From 3585c75b2ae3cef94d518ebe949399c2a6d4281e Mon Sep 17 00:00:00 2001 From: Artyom Titov Date: Wed, 29 Jul 2026 17:48:33 +0300 Subject: [PATCH] Heavy calculations almost done. Added script for automatization "fill_table_from_nb.py" --- .../h_154-86_Pu240_8-9_osc_Qw1.nb | 982 +- .../h_156-84_h_Pu240_10-11_gid_Qw1.nb | 3429 +++-- .../h_156-84_h_Pu240_10-11_gid_Qw2.nb | 2630 ++-- .../h_156-84_h_Pu240_10-11_osc_Qw1.nb | 3630 ++--- .../h_156-84_h_Pu240_10-11_osc_Qw2.nb | 2765 ++-- .../h_156-84_h_Pu240_10-11_pr_Qw1.nb | 2402 +-- .../h_156-84_h_Pu240_10-11_pr_Qw2.nb | 2754 ++-- .../h_158-82_h_Pu240_12-13_osc_Qw1.nb | 979 +- .../h_160-80_Pu240_14-15_osc_Qw1.nb | 983 +- .../h_162-78_Pu240_16-17_osc_Qw1.nb | 976 +- .../h_164-76_Pu240_18-19_gid_Qw1.nb | 10465 +++++++------ .../h_164-76_Pu240_18-19_gid_Qw2.nb | 11656 ++++++++------ .../h_164-76_Pu240_18-19_osc_Qw1.nb | 10644 +++++++------ .../h_164-76_Pu240_18-19_osc_Qw2.nb | 9560 +++++++----- .../h_164-76_Pu240_18-19_pr_Qw1.nb | 11239 +++++++------- .../h_164-76_Pu240_18-19_pr_Qw2.nb | 10192 +++++++------ .../h_166-74_Pu240_20-21_gid_Qw1.nb | 10454 +++++++------ .../h_166-74_Pu240_20-21_gid_Qw2.nb | 11465 +++++++++----- .../h_166-74_Pu240_20-21_osc_Qw1.nb | 12590 ++++++++++------ .../h_166-74_Pu240_20-21_osc_Qw2.nb | 9413 +++++++----- .../h_166-74_Pu240_20-21_pr_Qw1.nb | 10406 +++++++------ .../h_166-74_Pu240_20-21_pr_Qw2.nb | 10163 +++++++------ .../166-74_h_Pu240_20-21/pattern_for_x.txt | 2 + .../h_168-72_Pu240_22-23_osc_Qw1.nb | 257 +- .../h_170-70_Pu240_24-25_osc_Qw1.nb | 439 +- .../h_172-68_Pu240_26-27_osc_Qw1.nb | 429 +- .../h_174-66_Pu240_2-3_osc_Qw1.nb | 984 +- ...ание.nb => h_174-66_Pu240_2-3_фитирование.nb.old} | 0 .../h_176-64_Pu240_4-5_gid_Qw1.nb | 10260 +++++++------ .../h_176-64_Pu240_4-5_gid_Qw2.nb | 11517 ++++++++------ .../h_176-64_Pu240_4-5_osc_Qw1.nb | 10613 +++++++------ .../h_176-64_Pu240_4-5_osc_Qw2.nb | 9458 +++++++----- .../h_176-64_Pu240_4-5_pr_Qw1.nb | 10970 ++++++++------ .../h_176-64_Pu240_4-5_pr_Qw2.nb | 10044 ++++++------ automation/decompress.py | 56 + automation/fill_table_from_nb.py | 519 + automation/table_template.xlsx | Bin 0 -> 29172 bytes automation/test_2-3.xlsx | Bin 0 -> 11493 bytes automation/wolfram-table_to_exel.py | 117 + 39 files changed, 126110 insertions(+), 89332 deletions(-) create mode 100644 Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/pattern_for_x.txt rename Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/{h_174-66_Pu240_2-3_фитирование.nb => h_174-66_Pu240_2-3_фитирование.nb.old} (100%) create mode 100644 automation/decompress.py create mode 100755 automation/fill_table_from_nb.py create mode 100644 automation/table_template.xlsx create mode 100644 automation/test_2-3.xlsx create mode 100755 automation/wolfram-table_to_exel.py diff --git a/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_osc_Qw1.nb b/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_osc_Qw1.nb index 3215f85..6ef6cf2 100644 --- a/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_osc_Qw1.nb +++ b/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_osc_Qw1.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 741755, 17356] -NotebookOptionsPosition[ 698999, 16671] -NotebookOutlinePosition[ 699462, 16690] -CellTagsIndexPosition[ 699419, 16687] +NotebookDataLength[ 749808, 17546] +NotebookOptionsPosition[ 706768, 16856] +NotebookOutlinePosition[ 707229, 16875] +CellTagsIndexPosition[ 707186, 16872] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -16667,13 +16667,198 @@ Cell[BoxData["0.019818602332043266`"], "Output", Cell[BoxData[ RowBox[{"NotebookSave", "[", "]"}]], "Input", CellLabel-> - "In[158]:=",ExpressionUUID->"0b907eb6-f914-4733-8572-30b883966193"] + "In[158]:=",ExpressionUUID->"0b907eb6-f914-4733-8572-30b883966193"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"CellPrint", "[", + RowBox[{"ExpressionCell", "[", + RowBox[{ + RowBox[{"Panel", "[", + RowBox[{ + RowBox[{"Row", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"Style", "[", + + RowBox[{"\"\<\:0423\:043f\:0440\:0430\:0432\:043b\:0435\:043d\:0438\ +\:0435 \:043a\:044d\:0448\:0435\:043c \:0433\:0440\:0430\:0444\:0438\:043a\ +\:0430: \>\"", ",", "Bold"}], "]"}], ",", + RowBox[{"Button", "[", + + RowBox[{"\"\<\:0421\:0434\:0435\:043b\:0430\:0442\:044c \:0442\ +\:0430\:0431\:043b\:0438\:0446\:0443 (\:041b\:0438\:043d\:0438\:044f 1)\>\"", + ",", + RowBox[{"Module", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"cell", ",", "pts"}], "}"}], ",", + RowBox[{ + RowBox[{"cell", "=", + RowBox[{"NotebookRead", "[", + RowBox[{"EvaluationNotebook", "[", "]"}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"pts", "=", + RowBox[{"Cases", "[", + RowBox[{"cell", ",", + RowBox[{ + RowBox[{"Line", "[", "p_", "]"}], ":>", "p"}], ",", + "Infinity"}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"If", "[", + RowBox[{ + RowBox[{ + RowBox[{"Length", "[", "pts", "]"}], ">", "0"}], ",", + RowBox[{ + RowBox[{"plotX", "=", + RowBox[{"pts", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"fInterp", "=", + RowBox[{"Interpolation", "[", "plotX", "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"dataX", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"x", ",", + RowBox[{"fInterp", "[", "x", "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30", ",", "1"}], "}"}]}], + "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"SelectionMove", "[", + RowBox[{ + RowBox[{"EvaluationNotebook", "[", "]"}], ",", "After", ",", + "Cell"}], "]"}], ";", "\[IndentingNewLine]", + RowBox[{"CellPrint", "[", + RowBox[{"Cell", "[", + RowBox[{ + RowBox[{"BoxData", "[", + RowBox[{"ToBoxes", "[", + RowBox[{"TableForm", "[", "dataX", "]"}], "]"}], "]"}], + ",", "\"\\""}], "]"}], "]"}]}], ",", + RowBox[{"MessageDialog", "[", + + RowBox[{"\"\<\:041e\:0448\:0438\:0431\:043a\:0430: \:0421\ +\:043d\:0430\:0447\:0430\:043b\:0430 \:0432\:044b\:0434\:0435\:043b\:0438\ +\:0442\:0435 \:043d\:0443\:0436\:043d\:044b\:0439 \:0433\:0440\:0430\:0444\ +\:0438\:043a (\:043a\:043b\:0438\:043a\:043d\:0438\:0442\:0435 \:043f\:043e \ +\:0435\:0433\:043e \:044f\:0447\:0435\:0439\:043a\:0435 \:0441\:043f\:0440\ +\:0430\:0432\:0430)!\>\"", ",", + RowBox[{"WindowFloating", "->", "True"}]}], "]"}]}], + "]"}]}]}], "]"}], ",", + RowBox[{"Background", "->", + RowBox[{"RGBColor", "[", + RowBox[{"0.9", ",", "0.95", ",", "1"}], "]"}]}], ",", + RowBox[{"ImageSize", "->", + RowBox[{"{", + RowBox[{"180", ",", "25"}], "}"}]}]}], "]"}]}], "}"}], "]"}], ",", + RowBox[{"Background", "->", + RowBox[{"GrayLevel", "[", "0.95", "]"}]}], ",", + RowBox[{"FrameMargins", "->", "10"}]}], "]"}], ",", "\"\\""}], + "]"}], "]"}], "\n"}]], "Input", + CellChangeTimes->{{3.9943043996512623`*^9, 3.994304399651291*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"f0913b64-df33-4f16-84b0-da56ee802d07"], + +Cell[BoxData[ + PanelBox[ + TemplateBox[{ + StyleBox[ + "\"\:0423\:043f\:0440\:0430\:0432\:043b\:0435\:043d\:0438\:0435 \:043a\ +\:044d\:0448\:0435\:043c \:0433\:0440\:0430\:0444\:0438\:043a\:0430: \"", + Bold, StripOnInput -> False], + ButtonBox[ + "\"\:0421\:0434\:0435\:043b\:0430\:0442\:044c \:0442\:0430\:0431\:043b\ +\:0438\:0446\:0443 (\:041b\:0438\:043d\:0438\:044f 1)\"", ButtonFunction :> + Module[{$CellContext`cell, $CellContext`pts}, $CellContext`cell = + NotebookRead[ + EvaluationNotebook[]]; $CellContext`pts = + Cases[$CellContext`cell, Line[ + Pattern[$CellContext`p, + Blank[]]] :> $CellContext`p, Infinity]; + If[Length[$CellContext`pts] > + 0, $CellContext`plotX = + Part[$CellContext`pts, 1]; $CellContext`fInterp = + Interpolation[$CellContext`plotX]; $CellContext`dataX = + Table[{$CellContext`x, + $CellContext`fInterp[$CellContext`x]}, {$CellContext`x, 0, 30, + 1}]; SelectionMove[ + EvaluationNotebook[], After, Cell]; CellPrint[ + Cell[ + BoxData[ + ToBoxes[ + TableForm[$CellContext`dataX]]], "Output"]], + MessageDialog[ + "\:041e\:0448\:0438\:0431\:043a\:0430: \ +\:0421\:043d\:0430\:0447\:0430\:043b\:0430 \:0432\:044b\:0434\:0435\:043b\ +\:0438\:0442\:0435 \:043d\:0443\:0436\:043d\:044b\:0439 \:0433\:0440\:0430\ +\:0444\:0438\:043a (\:043a\:043b\:0438\:043a\:043d\:0438\:0442\:0435 \:043f\ +\:043e \:0435\:0433\:043e \:044f\:0447\:0435\:0439\:043a\:0435 \:0441\:043f\ +\:0440\:0430\:0432\:0430)!", WindowFloating -> True]]], Background -> + RGBColor[0.9, 0.95, 1], ImageSize -> {180, 25}, Appearance -> Automatic, + Evaluator -> Automatic, Method -> "Preemptive"]}, + "RowDefault"], + Background->GrayLevel[0.95], + FrameMargins->10]], "Output", + CellChangeTimes->{ + 3.99430641511759*^9},ExpressionUUID->"dda37cc7-50aa-4438-95c6-9c548e7517bb"], + +Cell[BoxData[ + TagBox[GridBox[{ + {"0", + RowBox[{"-", "2.710505431213761`*^-19"}]}, + {"1", "0.020489309558545592`"}, + {"2", "0.039724654504877464`"}, + {"3", "0.05658208723303165`"}, + {"4", "0.07016998198659578`"}, + {"5", "0.07991022619154982`"}, + {"6", "0.08557239636701675`"}, + {"7", "0.08726491686633378`"}, + {"8", "0.08538860702639345`"}, + {"9", "0.08056193081154037`"}, + {"10", "0.0735315413224114`"}, + {"11", "0.0650822180646128`"}, + {"12", "0.055957630392178326`"}, + {"13", "0.04679874497037345`"}, + {"14", "0.03811028559399845`"}, + {"15", "0.030244030049669614`"}, + {"16", "0.023404894238764032`"}, + {"17", "0.017672093165321374`"}, + {"18", "0.013024768212300142`"}, + {"19", "0.00937380585847925`"}, + {"20", "0.006589764907581449`"}, + {"21", "0.004526326848218527`"}, + {"22", "0.0030384010445308313`"}, + {"23", "0.0019936786425620526`"}, + {"24", "0.0012789470861214749`"}, + {"25", "0.0008022403313169525`"}, + {"26", "0.0004921188875513814`"}, + {"27", "0.0002952580760829693`"}, + {"28", "0.00017327924445094644`"}, + {"29", "0.00009948234855575203`"}, + {"30", "0.00005587762316801098`"} + }, + GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[2.0999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + Function[BoxForm`e$, + TableForm[BoxForm`e$]]]], "Output", + CellChangeTimes->{ + 3.9943064475333967`*^9},ExpressionUUID->"8713dc71-d23f-4006-96c8-\ +0832c1c46d88"] +}, Open ]] }, Evaluator->"Local", -WindowSize->{714, 288}, -WindowMargins->{{-3, Automatic}, {297, Automatic}}, +WindowSize->{1440, 882}, +WindowMargins->{{0, Automatic}, {0, Automatic}}, CellContext->Notebook, -Magnification:>1.4 Inherited, +Magnification:>0.8 Inherited, FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"8af74bcb-cc50-f64a-8d83-c4bf7188d038" @@ -16690,675 +16875,682 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 300, 5, 73, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], -Cell[879, 29, 269, 4, 46, "Output",ExpressionUUID->"13edd4a7-57d6-4827-9179-655d5331a610"] +Cell[576, 22, 300, 5, 29, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], +Cell[879, 29, 269, 4, 33, "Output",ExpressionUUID->"13edd4a7-57d6-4827-9179-655d5331a610"] }, Open ]], Cell[CellGroupData[{ -Cell[1185, 38, 245, 4, 40, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], -Cell[1433, 44, 273, 4, 46, "Output",ExpressionUUID->"e19fce7a-361a-4025-baf2-ce5fa0fac9de"] +Cell[1185, 38, 245, 4, 29, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], +Cell[1433, 44, 273, 4, 33, "Output",ExpressionUUID->"e19fce7a-361a-4025-baf2-ce5fa0fac9de"] }, Open ]], Cell[CellGroupData[{ -Cell[1743, 53, 228, 4, 40, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], -Cell[1974, 59, 273, 4, 46, "Output",ExpressionUUID->"54ea73d4-4df9-4373-9a4f-006ec8158187"] +Cell[1743, 53, 228, 4, 29, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], +Cell[1974, 59, 273, 4, 33, "Output",ExpressionUUID->"54ea73d4-4df9-4373-9a4f-006ec8158187"] }, Open ]], Cell[CellGroupData[{ -Cell[2284, 68, 175, 3, 40, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], -Cell[2462, 73, 273, 4, 46, "Output",ExpressionUUID->"88242743-0945-4493-9a1f-026edbd79f55"] +Cell[2284, 68, 175, 3, 29, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], +Cell[2462, 73, 273, 4, 33, "Output",ExpressionUUID->"88242743-0945-4493-9a1f-026edbd79f55"] }, Open ]], Cell[CellGroupData[{ -Cell[2772, 82, 257, 7, 59, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], -Cell[3032, 91, 287, 4, 46, "Output",ExpressionUUID->"fa767b48-31a7-45c4-941b-61e0b5206629"] +Cell[2772, 82, 257, 7, 42, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], +Cell[3032, 91, 287, 4, 33, "Output",ExpressionUUID->"fa767b48-31a7-45c4-941b-61e0b5206629"] }, Open ]], Cell[CellGroupData[{ -Cell[3356, 100, 131, 2, 40, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], -Cell[3490, 104, 273, 4, 46, "Output",ExpressionUUID->"1a542d18-2927-4316-8213-04e2a6550fb9"] +Cell[3356, 100, 131, 2, 29, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], +Cell[3490, 104, 273, 4, 33, "Output",ExpressionUUID->"1a542d18-2927-4316-8213-04e2a6550fb9"] }, Open ]], Cell[CellGroupData[{ -Cell[3800, 113, 276, 6, 40, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], -Cell[4079, 121, 288, 4, 46, "Output",ExpressionUUID->"81931160-91b0-4ce5-b93f-aab091beda8c"] +Cell[3800, 113, 276, 6, 29, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], +Cell[4079, 121, 288, 4, 33, "Output",ExpressionUUID->"81931160-91b0-4ce5-b93f-aab091beda8c"] }, Open ]], Cell[CellGroupData[{ -Cell[4404, 130, 257, 7, 40, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], -Cell[4664, 139, 285, 4, 46, "Output",ExpressionUUID->"b6acc2fa-bee3-474d-a90d-1614480cbd28"] +Cell[4404, 130, 257, 7, 29, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], +Cell[4664, 139, 285, 4, 33, "Output",ExpressionUUID->"b6acc2fa-bee3-474d-a90d-1614480cbd28"] }, Open ]], Cell[CellGroupData[{ -Cell[4986, 148, 224, 4, 40, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], -Cell[5213, 154, 253, 4, 46, "Output",ExpressionUUID->"35f223e9-2c4d-4fcd-9da1-b7c04bbc5290"] +Cell[4986, 148, 224, 4, 29, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], +Cell[5213, 154, 253, 4, 33, "Output",ExpressionUUID->"35f223e9-2c4d-4fcd-9da1-b7c04bbc5290"] }, Open ]], Cell[CellGroupData[{ -Cell[5503, 163, 226, 4, 40, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], -Cell[5732, 169, 254, 4, 46, "Output",ExpressionUUID->"5f1a0c03-293a-47fc-90c9-436a7dfd93a0"] +Cell[5503, 163, 226, 4, 29, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], +Cell[5732, 169, 254, 4, 33, "Output",ExpressionUUID->"5f1a0c03-293a-47fc-90c9-436a7dfd93a0"] }, Open ]], Cell[CellGroupData[{ -Cell[6023, 178, 129, 2, 40, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], -Cell[6155, 182, 269, 4, 46, "Output",ExpressionUUID->"bdd87bb8-800c-40b7-971a-faeaced84c9a"] +Cell[6023, 178, 129, 2, 29, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], +Cell[6155, 182, 269, 4, 33, "Output",ExpressionUUID->"bdd87bb8-800c-40b7-971a-faeaced84c9a"] }, Open ]], Cell[CellGroupData[{ -Cell[6461, 191, 129, 2, 40, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], -Cell[6593, 195, 269, 4, 46, "Output",ExpressionUUID->"8094242e-c3d9-454c-bba8-302a46e733af"] +Cell[6461, 191, 129, 2, 29, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], +Cell[6593, 195, 269, 4, 33, "Output",ExpressionUUID->"8094242e-c3d9-454c-bba8-302a46e733af"] }, Open ]], Cell[CellGroupData[{ -Cell[6899, 204, 557, 19, 109, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], -Cell[7459, 225, 293, 4, 46, "Output",ExpressionUUID->"cd43ac5a-1193-4542-9d4d-57f9b89f4ea8"] +Cell[6899, 204, 557, 19, 79, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], +Cell[7459, 225, 293, 4, 33, "Output",ExpressionUUID->"cd43ac5a-1193-4542-9d4d-57f9b89f4ea8"] }, Open ]], Cell[CellGroupData[{ -Cell[7789, 234, 557, 19, 109, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], -Cell[8349, 255, 288, 4, 46, "Output",ExpressionUUID->"4fb3c8f5-f316-45bd-89cf-e6c12c9212e5"] +Cell[7789, 234, 557, 19, 80, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], +Cell[8349, 255, 288, 4, 33, "Output",ExpressionUUID->"4fb3c8f5-f316-45bd-89cf-e6c12c9212e5"] }, Open ]], Cell[CellGroupData[{ -Cell[8674, 264, 1588, 50, 293, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], -Cell[10265, 316, 287, 4, 46, "Output",ExpressionUUID->"f2619396-a2df-4b98-8280-f5e6f139c3bf"] +Cell[8674, 264, 1588, 50, 108, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], +Cell[10265, 316, 287, 4, 33, "Output",ExpressionUUID->"f2619396-a2df-4b98-8280-f5e6f139c3bf"] }, Open ]], Cell[CellGroupData[{ -Cell[10589, 325, 1422, 46, 232, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], -Cell[12014, 373, 308, 5, 46, "Output",ExpressionUUID->"2af7a3ca-ad28-4afa-b3c7-776d4721a746"] +Cell[10589, 325, 1422, 46, 108, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], +Cell[12014, 373, 308, 5, 33, "Output",ExpressionUUID->"2af7a3ca-ad28-4afa-b3c7-776d4721a746"] }, Open ]], Cell[CellGroupData[{ -Cell[12359, 383, 1422, 46, 232, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], -Cell[13784, 431, 308, 5, 46, "Output",ExpressionUUID->"f4361646-888b-4409-b6fe-66d1cc478e5a"] +Cell[12359, 383, 1422, 46, 108, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], +Cell[13784, 431, 308, 5, 33, "Output",ExpressionUUID->"f4361646-888b-4409-b6fe-66d1cc478e5a"] }, Open ]], Cell[CellGroupData[{ -Cell[14129, 441, 1588, 50, 293, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], -Cell[15720, 493, 284, 4, 46, "Output",ExpressionUUID->"0e66de81-3cad-4c06-af39-43b01937a116"] +Cell[14129, 441, 1588, 50, 108, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], +Cell[15720, 493, 284, 4, 33, "Output",ExpressionUUID->"0e66de81-3cad-4c06-af39-43b01937a116"] }, Open ]], Cell[CellGroupData[{ -Cell[16041, 502, 131, 2, 40, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], -Cell[16175, 506, 272, 4, 46, "Output",ExpressionUUID->"71a37eb7-6334-465e-9716-4d81a4b21efe"] +Cell[16041, 502, 131, 2, 29, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], +Cell[16175, 506, 272, 4, 33, "Output",ExpressionUUID->"71a37eb7-6334-465e-9716-4d81a4b21efe"] }, Open ]], Cell[CellGroupData[{ -Cell[16484, 515, 133, 2, 40, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], -Cell[16620, 519, 275, 4, 46, "Output",ExpressionUUID->"f5724984-3a57-4aa7-a8ce-bcfe5deaedef"] +Cell[16484, 515, 133, 2, 29, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], +Cell[16620, 519, 275, 4, 33, "Output",ExpressionUUID->"f5724984-3a57-4aa7-a8ce-bcfe5deaedef"] }, Open ]], Cell[CellGroupData[{ -Cell[16932, 528, 134, 2, 40, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], -Cell[17069, 532, 276, 4, 46, "Output",ExpressionUUID->"ccd18e3a-e9a2-4e14-a4c6-1efd69bc6fa7"] +Cell[16932, 528, 134, 2, 29, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], +Cell[17069, 532, 276, 4, 33, "Output",ExpressionUUID->"ccd18e3a-e9a2-4e14-a4c6-1efd69bc6fa7"] }, Open ]], Cell[CellGroupData[{ -Cell[17382, 541, 219, 4, 40, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], -Cell[17604, 547, 287, 5, 46, "Output",ExpressionUUID->"e64e45e4-6145-4443-891b-0cac74457f0f"] +Cell[17382, 541, 219, 4, 29, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], +Cell[17604, 547, 287, 5, 33, "Output",ExpressionUUID->"e64e45e4-6145-4443-891b-0cac74457f0f"] }, Open ]], Cell[CellGroupData[{ -Cell[17928, 557, 134, 2, 40, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], -Cell[18065, 561, 279, 4, 46, "Output",ExpressionUUID->"6f4b8980-f73e-467d-84dd-e84085def07a"] +Cell[17928, 557, 134, 2, 29, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], +Cell[18065, 561, 279, 4, 33, "Output",ExpressionUUID->"6f4b8980-f73e-467d-84dd-e84085def07a"] }, Open ]], Cell[CellGroupData[{ -Cell[18381, 570, 328, 5, 40, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], -Cell[18712, 577, 275, 4, 46, "Output",ExpressionUUID->"0610a978-d6c9-4604-9871-75125a2e3331"] +Cell[18381, 570, 328, 5, 29, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], +Cell[18712, 577, 275, 4, 33, "Output",ExpressionUUID->"0610a978-d6c9-4604-9871-75125a2e3331"] }, Open ]], Cell[CellGroupData[{ -Cell[19024, 586, 295, 5, 40, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], -Cell[19322, 593, 272, 4, 46, "Output",ExpressionUUID->"6b58caaa-7d70-42aa-bbf6-9184474e9434"] +Cell[19024, 586, 295, 5, 29, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], +Cell[19322, 593, 272, 4, 33, "Output",ExpressionUUID->"6b58caaa-7d70-42aa-bbf6-9184474e9434"] }, Open ]], Cell[CellGroupData[{ -Cell[19631, 602, 219, 4, 40, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], -Cell[19853, 608, 273, 4, 46, "Output",ExpressionUUID->"1f9ed0e9-8e8f-4911-aeed-aca2905bf288"] +Cell[19631, 602, 219, 4, 29, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], +Cell[19853, 608, 273, 4, 33, "Output",ExpressionUUID->"1f9ed0e9-8e8f-4911-aeed-aca2905bf288"] }, Open ]], Cell[CellGroupData[{ -Cell[20163, 617, 350, 10, 59, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], -Cell[20516, 629, 299, 4, 46, "Output",ExpressionUUID->"d7090f2a-68a1-4bf5-9c42-d712684d1d87"] +Cell[20163, 617, 350, 10, 42, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], +Cell[20516, 629, 299, 4, 33, "Output",ExpressionUUID->"d7090f2a-68a1-4bf5-9c42-d712684d1d87"] }, Open ]], Cell[CellGroupData[{ -Cell[20852, 638, 350, 10, 59, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], -Cell[21205, 650, 306, 5, 46, "Output",ExpressionUUID->"1f4b53ef-5801-4b20-85e1-9b29a83032b8"] +Cell[20852, 638, 350, 10, 42, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], +Cell[21205, 650, 306, 5, 33, "Output",ExpressionUUID->"1f4b53ef-5801-4b20-85e1-9b29a83032b8"] }, Open ]], Cell[CellGroupData[{ -Cell[21548, 660, 994, 26, 201, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], -Cell[22545, 688, 289, 4, 46, "Output",ExpressionUUID->"6ebec195-82b4-4757-8c0c-46846dc9bc50"] +Cell[21548, 660, 994, 26, 81, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], +Cell[22545, 688, 289, 4, 33, "Output",ExpressionUUID->"6ebec195-82b4-4757-8c0c-46846dc9bc50"] }, Open ]], Cell[CellGroupData[{ -Cell[22871, 697, 199, 3, 40, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], -Cell[23073, 702, 272, 4, 46, "Output",ExpressionUUID->"25103de2-783e-4940-87b9-ecd84f507211"] +Cell[22871, 697, 199, 3, 29, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], +Cell[23073, 702, 272, 4, 33, "Output",ExpressionUUID->"25103de2-783e-4940-87b9-ecd84f507211"] }, Open ]], Cell[CellGroupData[{ -Cell[23382, 711, 326, 5, 40, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], -Cell[23711, 718, 250, 4, 46, "Output",ExpressionUUID->"5df84669-6f08-4a4d-80c9-aaf07c1d3d7c"] +Cell[23382, 711, 326, 5, 29, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], +Cell[23711, 718, 250, 4, 33, "Output",ExpressionUUID->"5df84669-6f08-4a4d-80c9-aaf07c1d3d7c"] }, Open ]], -Cell[23976, 725, 173, 2, 40, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], +Cell[23976, 725, 173, 2, 29, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], Cell[CellGroupData[{ -Cell[24174, 731, 327, 5, 40, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], -Cell[24504, 738, 255, 4, 46, "Output",ExpressionUUID->"19e60f5d-d416-4c31-b73a-57fc78f53446"] +Cell[24174, 731, 327, 5, 29, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], +Cell[24504, 738, 255, 4, 33, "Output",ExpressionUUID->"19e60f5d-d416-4c31-b73a-57fc78f53446"] }, Open ]], -Cell[24774, 745, 173, 2, 40, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], +Cell[24774, 745, 173, 2, 29, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], Cell[CellGroupData[{ -Cell[24972, 751, 329, 5, 40, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], -Cell[25304, 758, 252, 4, 46, "Output",ExpressionUUID->"b09d4da2-5eca-4fd2-8983-644f3df93e1a"] +Cell[24972, 751, 329, 5, 29, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], +Cell[25304, 758, 252, 4, 33, "Output",ExpressionUUID->"b09d4da2-5eca-4fd2-8983-644f3df93e1a"] }, Open ]], -Cell[25571, 765, 173, 2, 40, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], +Cell[25571, 765, 173, 2, 29, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], Cell[CellGroupData[{ -Cell[25769, 771, 354, 5, 40, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], -Cell[26126, 778, 252, 4, 46, "Output",ExpressionUUID->"f846f60c-e02a-4b73-9cf9-3a86a5116aac"] +Cell[25769, 771, 354, 5, 29, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], +Cell[26126, 778, 252, 4, 33, "Output",ExpressionUUID->"f846f60c-e02a-4b73-9cf9-3a86a5116aac"] }, Open ]], -Cell[26393, 785, 171, 2, 40, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], +Cell[26393, 785, 171, 2, 29, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], Cell[CellGroupData[{ -Cell[26589, 791, 299, 5, 40, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], -Cell[26891, 798, 251, 4, 46, "Output",ExpressionUUID->"282744a4-1412-4ed0-886f-b428b2e3700e"] +Cell[26589, 791, 299, 5, 29, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], +Cell[26891, 798, 251, 4, 33, "Output",ExpressionUUID->"282744a4-1412-4ed0-886f-b428b2e3700e"] }, Open ]], -Cell[27157, 805, 171, 2, 40, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], +Cell[27157, 805, 171, 2, 29, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], Cell[CellGroupData[{ -Cell[27353, 811, 303, 5, 40, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], -Cell[27659, 818, 253, 4, 46, "Output",ExpressionUUID->"5c1d5645-a6e5-431e-b59e-af5ddd759371"] +Cell[27353, 811, 303, 5, 29, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], +Cell[27659, 818, 253, 4, 33, "Output",ExpressionUUID->"5c1d5645-a6e5-431e-b59e-af5ddd759371"] }, Open ]], -Cell[27927, 825, 173, 2, 40, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], +Cell[27927, 825, 173, 2, 29, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], Cell[CellGroupData[{ -Cell[28125, 831, 306, 5, 40, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], -Cell[28434, 838, 252, 4, 46, "Output",ExpressionUUID->"39084966-3bae-4903-92b3-d232bfe7c09f"] +Cell[28125, 831, 306, 5, 29, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], +Cell[28434, 838, 252, 4, 33, "Output",ExpressionUUID->"39084966-3bae-4903-92b3-d232bfe7c09f"] }, Open ]], -Cell[28701, 845, 172, 2, 40, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], +Cell[28701, 845, 172, 2, 29, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], Cell[CellGroupData[{ -Cell[28898, 851, 275, 4, 40, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], -Cell[29176, 857, 250, 4, 46, "Output",ExpressionUUID->"a99c4431-50b1-4d90-ae69-9c62f70b4fde"] +Cell[28898, 851, 275, 4, 29, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], +Cell[29176, 857, 250, 4, 33, "Output",ExpressionUUID->"a99c4431-50b1-4d90-ae69-9c62f70b4fde"] }, Open ]], -Cell[29441, 864, 175, 2, 40, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], +Cell[29441, 864, 175, 2, 29, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ -Cell[29641, 870, 19809, 485, 3376, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], -Cell[49453, 1357, 289, 4, 46, "Output",ExpressionUUID->"038ace0f-3460-4c22-bf0a-1baa3f75dc5b"] +Cell[29641, 870, 19809, 485, 1475, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], +Cell[49453, 1357, 289, 4, 33, "Output",ExpressionUUID->"038ace0f-3460-4c22-bf0a-1baa3f75dc5b"] }, Open ]], Cell[CellGroupData[{ -Cell[49779, 1366, 19748, 489, 3376, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], -Cell[69530, 1857, 293, 4, 46, "Output",ExpressionUUID->"2b1e9200-dfd1-462a-94cd-daf42fc83ecc"] +Cell[49779, 1366, 19748, 489, 1451, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], +Cell[69530, 1857, 293, 4, 33, "Output",ExpressionUUID->"2b1e9200-dfd1-462a-94cd-daf42fc83ecc"] }, Open ]], Cell[CellGroupData[{ -Cell[69860, 1866, 19748, 483, 3375, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], -Cell[89611, 2351, 304, 5, 46, "Output",ExpressionUUID->"1798d23b-515d-45fa-9d37-fd3fdef1e939"] +Cell[69860, 1866, 19748, 483, 1463, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], +Cell[89611, 2351, 304, 5, 33, "Output",ExpressionUUID->"1798d23b-515d-45fa-9d37-fd3fdef1e939"] }, Open ]], Cell[CellGroupData[{ -Cell[89952, 2361, 22534, 553, 3857, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], -Cell[112489, 2916, 307, 5, 46, "Output",ExpressionUUID->"5e879384-0a04-466c-bf19-8858ea4b5a4b"] +Cell[89952, 2361, 22534, 553, 1659, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], +Cell[112489, 2916, 307, 5, 33, "Output",ExpressionUUID->"5e879384-0a04-466c-bf19-8858ea4b5a4b"] }, Open ]], Cell[CellGroupData[{ -Cell[112833, 2926, 22535, 553, 3857, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], -Cell[135371, 3481, 312, 5, 46, "Output",ExpressionUUID->"96e1fcc1-fcef-4c62-8552-8142d8814ed4"] +Cell[112833, 2926, 22535, 553, 1647, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], +Cell[135371, 3481, 312, 5, 33, "Output",ExpressionUUID->"96e1fcc1-fcef-4c62-8552-8142d8814ed4"] }, Open ]], Cell[CellGroupData[{ -Cell[135720, 3491, 25491, 626, 4339, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], -Cell[161214, 4119, 302, 5, 46, "Output",ExpressionUUID->"ff641489-2ee3-4031-ab1e-d8f5d00b7f91"] +Cell[135720, 3491, 25491, 626, 1843, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], +Cell[161214, 4119, 302, 5, 33, "Output",ExpressionUUID->"ff641489-2ee3-4031-ab1e-d8f5d00b7f91"] }, Open ]], Cell[CellGroupData[{ -Cell[161553, 4129, 130, 2, 40, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], -Cell[161686, 4133, 273, 4, 46, "Output",ExpressionUUID->"222c333f-af34-4afd-bf0d-b06b5fb59c3e"] +Cell[161553, 4129, 130, 2, 29, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], +Cell[161686, 4133, 273, 4, 33, "Output",ExpressionUUID->"222c333f-af34-4afd-bf0d-b06b5fb59c3e"] }, Open ]], Cell[CellGroupData[{ -Cell[161996, 4142, 130, 2, 40, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], -Cell[162129, 4146, 274, 4, 46, "Output",ExpressionUUID->"603c96e9-0df4-4ace-b959-de2ea3e018ea"] +Cell[161996, 4142, 130, 2, 29, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], +Cell[162129, 4146, 274, 4, 33, "Output",ExpressionUUID->"603c96e9-0df4-4ace-b959-de2ea3e018ea"] }, Open ]], Cell[CellGroupData[{ -Cell[162440, 4155, 1144, 39, 155, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], -Cell[163587, 4196, 285, 4, 46, "Output",ExpressionUUID->"4051fc27-9d23-4be6-8dce-481e5caa0fb1"] +Cell[162440, 4155, 1144, 39, 108, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], +Cell[163587, 4196, 285, 4, 33, "Output",ExpressionUUID->"4051fc27-9d23-4be6-8dce-481e5caa0fb1"] }, Open ]], Cell[CellGroupData[{ -Cell[163909, 4205, 1041, 35, 210, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], -Cell[164953, 4242, 308, 5, 46, "Output",ExpressionUUID->"dddc311a-062c-4937-97c1-40a5b4f6fe0a"] +Cell[163909, 4205, 1041, 35, 147, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], +Cell[164953, 4242, 308, 5, 33, "Output",ExpressionUUID->"dddc311a-062c-4937-97c1-40a5b4f6fe0a"] }, Open ]], Cell[CellGroupData[{ -Cell[165298, 4252, 1144, 39, 155, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], -Cell[166445, 4293, 288, 4, 46, "Output",ExpressionUUID->"6c32cef0-3d1d-4930-aa28-f89ab5702664"] +Cell[165298, 4252, 1144, 39, 108, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], +Cell[166445, 4293, 288, 4, 33, "Output",ExpressionUUID->"6c32cef0-3d1d-4930-aa28-f89ab5702664"] }, Open ]], Cell[CellGroupData[{ -Cell[166770, 4302, 108, 1, 40, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], -Cell[166881, 4305, 286, 4, 46, "Output",ExpressionUUID->"02e58389-303e-46f1-94f0-f344f20efd13"] +Cell[166770, 4302, 108, 1, 29, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], +Cell[166881, 4305, 286, 4, 33, "Output",ExpressionUUID->"02e58389-303e-46f1-94f0-f344f20efd13"] }, Open ]], Cell[CellGroupData[{ -Cell[167204, 4314, 108, 1, 40, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], -Cell[167315, 4317, 308, 5, 46, "Output",ExpressionUUID->"f83a429a-aa6f-4253-bb94-2922c439220c"] +Cell[167204, 4314, 108, 1, 29, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], +Cell[167315, 4317, 308, 5, 33, "Output",ExpressionUUID->"f83a429a-aa6f-4253-bb94-2922c439220c"] }, Open ]], Cell[CellGroupData[{ -Cell[167660, 4327, 108, 1, 40, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], -Cell[167771, 4330, 305, 5, 46, "Output",ExpressionUUID->"e8388ae6-23d2-431a-aa66-e58610522aec"] +Cell[167660, 4327, 108, 1, 29, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], +Cell[167771, 4330, 305, 5, 33, "Output",ExpressionUUID->"e8388ae6-23d2-431a-aa66-e58610522aec"] }, Open ]], Cell[CellGroupData[{ -Cell[168113, 4340, 108, 1, 40, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], -Cell[168224, 4343, 290, 4, 46, "Output",ExpressionUUID->"729f8994-88a4-4584-8c2a-fe15cf30a42a"] +Cell[168113, 4340, 108, 1, 29, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], +Cell[168224, 4343, 290, 4, 33, "Output",ExpressionUUID->"729f8994-88a4-4584-8c2a-fe15cf30a42a"] }, Open ]], Cell[CellGroupData[{ -Cell[168551, 4352, 107, 1, 40, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], -Cell[168661, 4355, 290, 4, 46, "Output",ExpressionUUID->"41251c16-68bd-476d-b6ef-dd7061a2d552"] +Cell[168551, 4352, 107, 1, 29, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], +Cell[168661, 4355, 290, 4, 33, "Output",ExpressionUUID->"41251c16-68bd-476d-b6ef-dd7061a2d552"] }, Open ]], Cell[CellGroupData[{ -Cell[168988, 4364, 107, 1, 40, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], -Cell[169098, 4367, 288, 4, 46, "Output",ExpressionUUID->"9850f0cc-e288-48a1-9bba-ed1dd44010b4"] +Cell[168988, 4364, 107, 1, 29, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], +Cell[169098, 4367, 288, 4, 33, "Output",ExpressionUUID->"9850f0cc-e288-48a1-9bba-ed1dd44010b4"] }, Open ]], Cell[CellGroupData[{ -Cell[169423, 4376, 497, 16, 77, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], -Cell[169923, 4394, 306, 5, 46, "Output",ExpressionUUID->"93dce725-35e5-4930-970d-6056902d7255"] +Cell[169423, 4376, 497, 16, 55, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], +Cell[169923, 4394, 306, 5, 33, "Output",ExpressionUUID->"93dce725-35e5-4930-970d-6056902d7255"] }, Open ]], Cell[CellGroupData[{ -Cell[170266, 4404, 497, 16, 77, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], -Cell[170766, 4422, 301, 5, 46, "Output",ExpressionUUID->"643029ab-084a-4807-9503-34dec14d909d"] +Cell[170266, 4404, 497, 16, 55, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], +Cell[170766, 4422, 301, 5, 33, "Output",ExpressionUUID->"643029ab-084a-4807-9503-34dec14d909d"] }, Open ]], Cell[CellGroupData[{ -Cell[171104, 4432, 1788, 60, 473, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], -Cell[172895, 4494, 289, 4, 46, "Output",ExpressionUUID->"58da0836-d864-49f7-a483-6b0ad94f0020"] +Cell[171104, 4432, 1788, 60, 185, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], +Cell[172895, 4494, 289, 4, 33, "Output",ExpressionUUID->"58da0836-d864-49f7-a483-6b0ad94f0020"] }, Open ]], Cell[CellGroupData[{ -Cell[173221, 4503, 1101, 36, 241, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], -Cell[174325, 4541, 310, 5, 46, "Output",ExpressionUUID->"819378b0-8043-4d90-9b88-b2d94d525cf4"] +Cell[173221, 4503, 1101, 36, 132, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], +Cell[174325, 4541, 310, 5, 33, "Output",ExpressionUUID->"819378b0-8043-4d90-9b88-b2d94d525cf4"] }, Open ]], Cell[CellGroupData[{ -Cell[174672, 4551, 1818, 61, 473, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], -Cell[176493, 4614, 285, 4, 46, "Output",ExpressionUUID->"ed1e72b0-d0bd-42da-a656-f30859c950e0"] +Cell[174672, 4551, 1818, 61, 161, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], +Cell[176493, 4614, 285, 4, 33, "Output",ExpressionUUID->"ed1e72b0-d0bd-42da-a656-f30859c950e0"] }, Open ]], Cell[CellGroupData[{ -Cell[176815, 4623, 1631, 53, 228, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], -Cell[178449, 4678, 289, 4, 46, "Output",ExpressionUUID->"038a78fb-06d5-4458-ba53-df8f557ad48b"] +Cell[176815, 4623, 1631, 53, 80, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], +Cell[178449, 4678, 289, 4, 33, "Output",ExpressionUUID->"038a78fb-06d5-4458-ba53-df8f557ad48b"] }, Open ]], Cell[CellGroupData[{ -Cell[178775, 4687, 1631, 53, 111, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], -Cell[180409, 4742, 288, 4, 46, "Output",ExpressionUUID->"fa3c2009-e6e1-43ba-8441-9a19ff0f2e09"] +Cell[178775, 4687, 1631, 53, 80, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], +Cell[180409, 4742, 288, 4, 33, "Output",ExpressionUUID->"fa3c2009-e6e1-43ba-8441-9a19ff0f2e09"] }, Open ]], Cell[CellGroupData[{ -Cell[180734, 4751, 227, 4, 40, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], -Cell[180964, 4757, 254, 4, 46, "Output",ExpressionUUID->"94f99678-c82d-4fc3-a317-4aa182c83bc4"] +Cell[180734, 4751, 227, 4, 29, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], +Cell[180964, 4757, 254, 4, 33, "Output",ExpressionUUID->"94f99678-c82d-4fc3-a317-4aa182c83bc4"] }, Open ]], -Cell[181233, 4764, 172, 2, 40, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], +Cell[181233, 4764, 172, 2, 29, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], Cell[CellGroupData[{ -Cell[181430, 4770, 225, 4, 40, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], -Cell[181658, 4776, 254, 4, 46, "Output",ExpressionUUID->"1caf8546-fde3-40ae-a10b-d2f256c15b2e"] +Cell[181430, 4770, 225, 4, 29, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], +Cell[181658, 4776, 254, 4, 33, "Output",ExpressionUUID->"1caf8546-fde3-40ae-a10b-d2f256c15b2e"] }, Open ]], -Cell[181927, 4783, 173, 2, 40, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], +Cell[181927, 4783, 173, 2, 29, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ -Cell[182125, 4789, 1297, 42, 67, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], -Cell[183425, 4833, 288, 4, 46, "Output",ExpressionUUID->"2169c98a-ea90-47f3-a84a-0f4f39f457e7"] +Cell[182125, 4789, 1297, 42, 113, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], +Cell[183425, 4833, 288, 4, 33, "Output",ExpressionUUID->"2169c98a-ea90-47f3-a84a-0f4f39f457e7"] }, Open ]], Cell[CellGroupData[{ -Cell[183750, 4842, 927, 30, 79, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], -Cell[184680, 4874, 294, 4, 46, "Output",ExpressionUUID->"c5b8f3b8-f0c6-495d-beb6-7517d0822ce7"] +Cell[183750, 4842, 927, 30, 55, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], +Cell[184680, 4874, 294, 4, 33, "Output",ExpressionUUID->"c5b8f3b8-f0c6-495d-beb6-7517d0822ce7"] }, Open ]], Cell[CellGroupData[{ -Cell[185011, 4883, 903, 29, 79, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], -Cell[185917, 4914, 294, 4, 46, "Output",ExpressionUUID->"4e3b7ff2-ca15-41c7-9b94-d41ea2a2868c"] +Cell[185011, 4883, 903, 29, 55, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], +Cell[185917, 4914, 294, 4, 33, "Output",ExpressionUUID->"4e3b7ff2-ca15-41c7-9b94-d41ea2a2868c"] }, Open ]], Cell[CellGroupData[{ -Cell[186248, 4923, 554, 18, 73, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], -Cell[186805, 4943, 686, 10, 46, "Output",ExpressionUUID->"0980fbd3-3ef2-4c28-890d-ad30eee711e6"] +Cell[186248, 4923, 554, 18, 52, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], +Cell[186805, 4943, 686, 10, 33, "Output",ExpressionUUID->"0980fbd3-3ef2-4c28-890d-ad30eee711e6"] }, Open ]], Cell[CellGroupData[{ -Cell[187528, 4958, 661, 21, 73, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], -Cell[188192, 4981, 667, 9, 46, "Output",ExpressionUUID->"77d5e7ff-61b5-498c-85f2-1faf9ba17e42"] +Cell[187528, 4958, 661, 21, 52, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], +Cell[188192, 4981, 667, 9, 33, "Output",ExpressionUUID->"77d5e7ff-61b5-498c-85f2-1faf9ba17e42"] }, Open ]], Cell[CellGroupData[{ -Cell[188896, 4995, 166, 4, 77, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], -Cell[189065, 5001, 698, 10, 46, "Output",ExpressionUUID->"b5ac9a55-558c-4932-b7d1-afccf1ef42da"] +Cell[188896, 4995, 166, 4, 55, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], +Cell[189065, 5001, 698, 10, 33, "Output",ExpressionUUID->"b5ac9a55-558c-4932-b7d1-afccf1ef42da"] }, Open ]], Cell[CellGroupData[{ -Cell[189800, 5016, 232, 5, 77, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], -Cell[190035, 5023, 636, 9, 46, "Output",ExpressionUUID->"59350063-5e88-4ae9-af7f-a6f18810d1d0"] +Cell[189800, 5016, 232, 5, 55, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], +Cell[190035, 5023, 636, 9, 33, "Output",ExpressionUUID->"59350063-5e88-4ae9-af7f-a6f18810d1d0"] }, Open ]], Cell[CellGroupData[{ -Cell[190708, 5037, 219, 5, 60, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], -Cell[190930, 5044, 664, 9, 46, "Output",ExpressionUUID->"7523cb84-61c9-4105-94a7-520c97b7a117"] +Cell[190708, 5037, 219, 5, 43, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], +Cell[190930, 5044, 664, 9, 33, "Output",ExpressionUUID->"7523cb84-61c9-4105-94a7-520c97b7a117"] }, Open ]], Cell[CellGroupData[{ -Cell[191631, 5058, 177, 4, 60, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], -Cell[191811, 5064, 687, 10, 46, "Output",ExpressionUUID->"eb517569-f404-4af3-a7d7-8547efb15186"] +Cell[191631, 5058, 177, 4, 43, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], +Cell[191811, 5064, 687, 10, 33, "Output",ExpressionUUID->"eb517569-f404-4af3-a7d7-8547efb15186"] }, Open ]], Cell[CellGroupData[{ -Cell[192535, 5079, 6051, 184, 465, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], -Cell[198589, 5265, 662, 9, 46, "Output",ExpressionUUID->"41e32b7b-b79e-423f-9bbd-6b8af0701157"] +Cell[192535, 5079, 6051, 184, 475, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], +Cell[198589, 5265, 662, 9, 33, "Output",ExpressionUUID->"41e32b7b-b79e-423f-9bbd-6b8af0701157"] }, Open ]], Cell[CellGroupData[{ -Cell[199288, 5279, 406, 9, 81, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], -Cell[199697, 5290, 682, 10, 68, "Output",ExpressionUUID->"4ac84946-4e87-46bb-a71f-fa8026e07e2e"] +Cell[199288, 5279, 406, 9, 57, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], +Cell[199697, 5290, 682, 10, 49, "Output",ExpressionUUID->"4ac84946-4e87-46bb-a71f-fa8026e07e2e"] }, Open ]], -Cell[200394, 5303, 488, 9, 40, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], +Cell[200394, 5303, 488, 9, 29, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ -Cell[200907, 5316, 554, 18, 73, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], -Cell[201464, 5336, 289, 4, 46, "Output",ExpressionUUID->"4c413de3-8824-4095-9f41-c8aa397c8133"] +Cell[200907, 5316, 554, 18, 52, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], +Cell[201464, 5336, 289, 4, 33, "Output",ExpressionUUID->"4c413de3-8824-4095-9f41-c8aa397c8133"] }, Open ]], Cell[CellGroupData[{ -Cell[201790, 5345, 619, 20, 73, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], -Cell[202412, 5367, 287, 4, 46, "Output",ExpressionUUID->"a184cb01-a20e-403c-9e62-e0b60f0f81bf"] +Cell[201790, 5345, 619, 20, 52, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], +Cell[202412, 5367, 287, 4, 33, "Output",ExpressionUUID->"a184cb01-a20e-403c-9e62-e0b60f0f81bf"] }, Open ]], Cell[CellGroupData[{ -Cell[202736, 5376, 166, 4, 77, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], -Cell[202905, 5382, 284, 4, 46, "Output",ExpressionUUID->"d2b926f5-434a-4431-8f56-d41c491add02"] +Cell[202736, 5376, 166, 4, 55, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], +Cell[202905, 5382, 284, 4, 33, "Output",ExpressionUUID->"d2b926f5-434a-4431-8f56-d41c491add02"] }, Open ]], Cell[CellGroupData[{ -Cell[203226, 5391, 166, 4, 77, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], -Cell[203395, 5397, 288, 4, 46, "Output",ExpressionUUID->"b4853515-74e7-401a-9324-3cc4798ac487"] +Cell[203226, 5391, 166, 4, 55, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], +Cell[203395, 5397, 288, 4, 33, "Output",ExpressionUUID->"b4853515-74e7-401a-9324-3cc4798ac487"] }, Open ]], Cell[CellGroupData[{ -Cell[203720, 5406, 177, 4, 60, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], -Cell[203900, 5412, 290, 4, 46, "Output",ExpressionUUID->"d99706ac-02da-4424-a6be-f473826a5ae5"] +Cell[203720, 5406, 177, 4, 43, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], +Cell[203900, 5412, 290, 4, 33, "Output",ExpressionUUID->"d99706ac-02da-4424-a6be-f473826a5ae5"] }, Open ]], Cell[CellGroupData[{ -Cell[204227, 5421, 177, 4, 60, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], -Cell[204407, 5427, 292, 4, 46, "Output",ExpressionUUID->"5eba89ef-0fa9-4b74-a7b7-fc14b39b6df4"] +Cell[204227, 5421, 177, 4, 43, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], +Cell[204407, 5427, 292, 4, 33, "Output",ExpressionUUID->"5eba89ef-0fa9-4b74-a7b7-fc14b39b6df4"] }, Open ]], Cell[CellGroupData[{ -Cell[204736, 5436, 6051, 184, 465, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], -Cell[210790, 5622, 289, 4, 46, "Output",ExpressionUUID->"31ae9a59-eafd-4b75-b670-f0bd8fd6528e"] +Cell[204736, 5436, 6051, 184, 475, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], +Cell[210790, 5622, 289, 4, 33, "Output",ExpressionUUID->"31ae9a59-eafd-4b75-b670-f0bd8fd6528e"] }, Open ]], Cell[CellGroupData[{ -Cell[211116, 5631, 364, 8, 58, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], -Cell[211483, 5641, 285, 4, 46, "Output",ExpressionUUID->"9d97fff2-a297-48d2-aa2f-0b6bf06a9197"] +Cell[211116, 5631, 364, 8, 41, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], +Cell[211483, 5641, 285, 4, 33, "Output",ExpressionUUID->"9d97fff2-a297-48d2-aa2f-0b6bf06a9197"] }, Open ]], Cell[CellGroupData[{ -Cell[211805, 5650, 6118, 186, 465, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], -Cell[217926, 5838, 289, 4, 46, "Output",ExpressionUUID->"4c294fe4-3ef7-4e61-9fb7-6361728c9407"] +Cell[211805, 5650, 6118, 186, 475, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], +Cell[217926, 5838, 289, 4, 33, "Output",ExpressionUUID->"4c294fe4-3ef7-4e61-9fb7-6361728c9407"] }, Open ]], Cell[CellGroupData[{ -Cell[218252, 5847, 364, 8, 58, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], -Cell[218619, 5857, 287, 4, 46, "Output",ExpressionUUID->"c0813815-0cc4-4099-a4a1-f9cd12c143fc"] +Cell[218252, 5847, 364, 8, 41, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], +Cell[218619, 5857, 287, 4, 33, "Output",ExpressionUUID->"c0813815-0cc4-4099-a4a1-f9cd12c143fc"] }, Open ]], Cell[CellGroupData[{ -Cell[218943, 5866, 2659, 87, 232, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], -Cell[221605, 5955, 289, 4, 46, "Output",ExpressionUUID->"959acbcf-3394-4cf0-8c84-3305235c285d"] +Cell[218943, 5866, 2659, 87, 161, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], +Cell[221605, 5955, 289, 4, 33, "Output",ExpressionUUID->"959acbcf-3394-4cf0-8c84-3305235c285d"] }, Open ]], Cell[CellGroupData[{ -Cell[221931, 5964, 2599, 84, 232, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], -Cell[224533, 6050, 288, 4, 46, "Output",ExpressionUUID->"6d721ff9-b894-489a-8018-31cdbcc4e6d1"] +Cell[221931, 5964, 2599, 84, 161, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], +Cell[224533, 6050, 288, 4, 33, "Output",ExpressionUUID->"6d721ff9-b894-489a-8018-31cdbcc4e6d1"] }, Open ]], Cell[CellGroupData[{ -Cell[224858, 6059, 3708, 117, 341, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], -Cell[228569, 6178, 295, 4, 46, "Output",ExpressionUUID->"b103b628-e5f6-4cf4-9ac5-e17052837861"] +Cell[224858, 6059, 3708, 117, 238, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], +Cell[228569, 6178, 295, 4, 33, "Output",ExpressionUUID->"b103b628-e5f6-4cf4-9ac5-e17052837861"] }, Open ]], -Cell[228879, 6185, 164, 4, 40, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], +Cell[228879, 6185, 164, 4, 29, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ -Cell[229068, 6193, 2101, 60, 88, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], -Cell[231172, 6255, 739, 16, 60, "Message",ExpressionUUID->"bb238776-c156-4640-beed-3bd676a27485"], -Cell[231914, 6273, 738, 16, 60, "Message",ExpressionUUID->"def4c48d-1aba-4521-8075-fb41df6512e3"], -Cell[232655, 6291, 741, 16, 60, "Message",ExpressionUUID->"48af6a53-90aa-4d02-ba3d-116fd19e1eca"], -Cell[233399, 6309, 585, 13, 36, "Message",ExpressionUUID->"7c7eb366-b268-4744-8d4a-26374b5d9744"], -Cell[233987, 6324, 321, 6, 46, "Output",ExpressionUUID->"1d4d7b1d-a8e1-4df0-84b8-4a07feb648bf"] +Cell[229068, 6193, 2101, 60, 149, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], +Cell[231172, 6255, 739, 16, 58, "Message",ExpressionUUID->"bb238776-c156-4640-beed-3bd676a27485"], +Cell[231914, 6273, 738, 16, 58, "Message",ExpressionUUID->"def4c48d-1aba-4521-8075-fb41df6512e3"], +Cell[232655, 6291, 741, 16, 58, "Message",ExpressionUUID->"48af6a53-90aa-4d02-ba3d-116fd19e1eca"], +Cell[233399, 6309, 585, 13, 26, "Message",ExpressionUUID->"7c7eb366-b268-4744-8d4a-26374b5d9744"], +Cell[233987, 6324, 321, 6, 33, "Output",ExpressionUUID->"1d4d7b1d-a8e1-4df0-84b8-4a07feb648bf"] }, Open ]], Cell[CellGroupData[{ -Cell[234345, 6335, 2077, 59, 127, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], -Cell[236425, 6396, 685, 15, 82, "Message",ExpressionUUID->"c5295c70-5806-4f91-825f-7567e9ace28d"], -Cell[237113, 6413, 687, 15, 136, "Message",ExpressionUUID->"8109e673-919f-497e-a743-2663bec99ff4"], -Cell[237803, 6430, 691, 15, 136, "Message",ExpressionUUID->"9cc3b430-a337-4a58-888d-d6f531f48193"], -Cell[238497, 6447, 589, 13, 61, "Message",ExpressionUUID->"7500908e-ac1d-4ca5-862f-b8e38b9e31be"], -Cell[239089, 6462, 288, 5, 46, "Output",ExpressionUUID->"c2c62d68-a3e7-485e-bf97-1a7e82ca345e"] +Cell[234345, 6335, 2077, 59, 119, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], +Cell[236425, 6396, 685, 15, 58, "Message",ExpressionUUID->"c5295c70-5806-4f91-825f-7567e9ace28d"], +Cell[237113, 6413, 687, 15, 58, "Message",ExpressionUUID->"8109e673-919f-497e-a743-2663bec99ff4"], +Cell[237803, 6430, 691, 15, 58, "Message",ExpressionUUID->"9cc3b430-a337-4a58-888d-d6f531f48193"], +Cell[238497, 6447, 589, 13, 26, "Message",ExpressionUUID->"7500908e-ac1d-4ca5-862f-b8e38b9e31be"], +Cell[239089, 6462, 288, 5, 33, "Output",ExpressionUUID->"c2c62d68-a3e7-485e-bf97-1a7e82ca345e"] }, Open ]], Cell[CellGroupData[{ -Cell[239414, 6472, 1961, 53, 292, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], -Cell[241378, 6527, 20579, 388, 325, "Output",ExpressionUUID->"9180f680-0b93-4d8d-9854-330a9280068c"] +Cell[239414, 6472, 1961, 53, 62, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], +Cell[241378, 6527, 20579, 388, 62, "Output",ExpressionUUID->"9180f680-0b93-4d8d-9854-330a9280068c"] }, Open ]], Cell[CellGroupData[{ -Cell[261994, 6920, 2117, 60, 387, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], -Cell[264114, 6982, 530, 12, 105, "Message",ExpressionUUID->"16233701-3203-4726-a68d-e22d6c5ebdb8"], -Cell[264647, 6996, 535, 12, 105, "Message",ExpressionUUID->"e99bb3b7-36e8-4078-9335-cfe760f6b877"], -Cell[265185, 7010, 539, 12, 105, "Message",ExpressionUUID->"0217891a-64ad-4b58-a9f9-ecd10d913de4"], -Cell[265727, 7024, 490, 11, 60, "Message",ExpressionUUID->"1437835e-9d99-49da-807a-396cc397c41f"], -Cell[266220, 7037, 30878, 555, 325, "Output",ExpressionUUID->"6071ed82-2b7e-4128-85ec-c8f2f5a086b8"] +Cell[261994, 6920, 2117, 60, 62, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], +Cell[264114, 6982, 530, 12, 62, "Message",ExpressionUUID->"16233701-3203-4726-a68d-e22d6c5ebdb8"], +Cell[264647, 6996, 535, 12, 58, "Message",ExpressionUUID->"e99bb3b7-36e8-4078-9335-cfe760f6b877"], +Cell[265185, 7010, 539, 12, 58, "Message",ExpressionUUID->"0217891a-64ad-4b58-a9f9-ecd10d913de4"], +Cell[265727, 7024, 490, 11, 26, "Message",ExpressionUUID->"1437835e-9d99-49da-807a-396cc397c41f"], +Cell[266220, 7037, 30878, 555, 232, "Output",ExpressionUUID->"6071ed82-2b7e-4128-85ec-c8f2f5a086b8"] }, Open ]], Cell[CellGroupData[{ -Cell[297135, 7597, 2552, 71, 323, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], -Cell[299690, 7670, 9496, 223, 334, "Output",ExpressionUUID->"c41a2731-a84e-4615-8b40-92d02b9f7e48"] +Cell[297135, 7597, 2552, 71, 130, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], +Cell[299690, 7670, 9496, 223, 239, "Output",ExpressionUUID->"c41a2731-a84e-4615-8b40-92d02b9f7e48"] }, Open ]], Cell[CellGroupData[{ -Cell[309223, 7898, 232, 5, 40, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], -Cell[309458, 7905, 37238, 687, 325, "Output",ExpressionUUID->"3a309f86-6a2c-4e38-b033-8c6e4b01daa4"] +Cell[309223, 7898, 232, 5, 29, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], +Cell[309458, 7905, 37238, 687, 232, "Output",ExpressionUUID->"3a309f86-6a2c-4e38-b033-8c6e4b01daa4"] }, Open ]], Cell[CellGroupData[{ -Cell[346733, 8597, 237, 7, 67, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], -Cell[346973, 8606, 194, 3, 46, "Output",ExpressionUUID->"0f23036d-2fd3-46bd-94d4-ce51a3060fcb"] +Cell[346733, 8597, 237, 7, 47, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], +Cell[346973, 8606, 194, 3, 33, "Output",ExpressionUUID->"0f23036d-2fd3-46bd-94d4-ce51a3060fcb"] }, Open ]], Cell[CellGroupData[{ -Cell[347204, 8614, 1837, 53, 339, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], -Cell[349044, 8669, 550, 12, 112, "Message",ExpressionUUID->"50a06c82-c7e8-42a3-8464-5f52c3b61424"], -Cell[349597, 8683, 554, 12, 112, "Message",ExpressionUUID->"a94e864b-f7b9-420e-8025-cd2483a29b09"], -Cell[350154, 8697, 645, 14, 108, "Message",ExpressionUUID->"ff64baf1-7e5f-4bea-9553-7b886e5b3443"], -Cell[350802, 8713, 492, 11, 60, "Message",ExpressionUUID->"3fc27bf5-36b4-4b5c-a36c-ef38270ca581"], -Cell[351297, 8726, 25549, 468, 327, "Output",ExpressionUUID->"233f1e18-8401-4876-9bda-82f4a2a4005e"] +Cell[347204, 8614, 1837, 53, 99, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], +Cell[349044, 8669, 550, 12, 40, "Message",ExpressionUUID->"50a06c82-c7e8-42a3-8464-5f52c3b61424"], +Cell[349597, 8683, 554, 12, 40, "Message",ExpressionUUID->"a94e864b-f7b9-420e-8025-cd2483a29b09"], +Cell[350154, 8697, 645, 14, 40, "Message",ExpressionUUID->"ff64baf1-7e5f-4bea-9553-7b886e5b3443"], +Cell[350802, 8713, 492, 11, 26, "Message",ExpressionUUID->"3fc27bf5-36b4-4b5c-a36c-ef38270ca581"], +Cell[351297, 8726, 25549, 468, 233, "Output",ExpressionUUID->"233f1e18-8401-4876-9bda-82f4a2a4005e"] }, Open ]], Cell[CellGroupData[{ -Cell[376883, 9199, 1616, 48, 144, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], -Cell[378502, 9249, 644, 14, 84, "Message",ExpressionUUID->"6f5bbbfc-7c37-4dda-b820-b1feb4953be3"], -Cell[379149, 9265, 645, 14, 84, "Message",ExpressionUUID->"46dc54da-73b1-484a-8f7e-fb81630002b7"], -Cell[379797, 9281, 645, 14, 84, "Message",ExpressionUUID->"980cdd6c-e6f9-4d13-8746-929d70d33379"], -Cell[380445, 9297, 492, 11, 60, "Message",ExpressionUUID->"ac2643cd-d890-4a8d-a948-33c4ed2500ab"], -Cell[380940, 9310, 194, 3, 46, "Output",ExpressionUUID->"b7750efd-4415-4c17-a737-5e1107da72b3"] +Cell[376883, 9199, 1616, 48, 71, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], +Cell[378502, 9249, 644, 14, 40, "Message",ExpressionUUID->"6f5bbbfc-7c37-4dda-b820-b1feb4953be3"], +Cell[379149, 9265, 645, 14, 40, "Message",ExpressionUUID->"46dc54da-73b1-484a-8f7e-fb81630002b7"], +Cell[379797, 9281, 645, 14, 40, "Message",ExpressionUUID->"980cdd6c-e6f9-4d13-8746-929d70d33379"], +Cell[380445, 9297, 492, 11, 26, "Message",ExpressionUUID->"ac2643cd-d890-4a8d-a948-33c4ed2500ab"], +Cell[380940, 9310, 194, 3, 33, "Output",ExpressionUUID->"b7750efd-4415-4c17-a737-5e1107da72b3"] }, Open ]], Cell[CellGroupData[{ -Cell[381171, 9318, 2272, 64, 461, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], -Cell[383446, 9384, 646, 14, 108, "Message",ExpressionUUID->"db229b02-6238-46e6-998b-f817bb8c6b93"], -Cell[384095, 9400, 645, 14, 84, "Message",ExpressionUUID->"883ca953-6112-40cb-9203-9a1e648f4bf9"], -Cell[384743, 9416, 646, 14, 84, "Message",ExpressionUUID->"6cb2e090-d621-4222-b57b-2f0fd2a375a7"], -Cell[385392, 9432, 492, 11, 60, "Message",ExpressionUUID->"a8d3cc56-ba9f-40ac-9259-5f5d75a8e8fc"], -Cell[385887, 9445, 195, 3, 46, "Output",ExpressionUUID->"afe44931-e120-49b0-a331-488134d2fca2"] +Cell[381171, 9318, 2272, 64, 64, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], +Cell[383446, 9384, 646, 14, 40, "Message",ExpressionUUID->"db229b02-6238-46e6-998b-f817bb8c6b93"], +Cell[384095, 9400, 645, 14, 40, "Message",ExpressionUUID->"883ca953-6112-40cb-9203-9a1e648f4bf9"], +Cell[384743, 9416, 646, 14, 40, "Message",ExpressionUUID->"6cb2e090-d621-4222-b57b-2f0fd2a375a7"], +Cell[385392, 9432, 492, 11, 26, "Message",ExpressionUUID->"a8d3cc56-ba9f-40ac-9259-5f5d75a8e8fc"], +Cell[385887, 9445, 195, 3, 33, "Output",ExpressionUUID->"afe44931-e120-49b0-a331-488134d2fca2"] }, Open ]], Cell[CellGroupData[{ -Cell[386119, 9453, 2233, 63, 461, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], -Cell[388355, 9518, 643, 14, 108, "Message",ExpressionUUID->"85e49407-8e8e-4da4-8579-bd683cea1de4"], -Cell[389001, 9534, 642, 14, 84, "Message",ExpressionUUID->"cc0b260d-e116-4475-80d0-6c25a3e702d5"], -Cell[389646, 9550, 645, 14, 84, "Message",ExpressionUUID->"6822039b-be3e-44d2-aeb1-92348e3938bd"], -Cell[390294, 9566, 489, 11, 60, "Message",ExpressionUUID->"9dd3e765-aa35-49cb-8c6f-540415b21c3d"], -Cell[390786, 9579, 197, 3, 46, "Output",ExpressionUUID->"b0567982-7f8b-4cdf-8a4b-add5b14220fa"] +Cell[386119, 9453, 2233, 63, 64, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], +Cell[388355, 9518, 643, 14, 40, "Message",ExpressionUUID->"85e49407-8e8e-4da4-8579-bd683cea1de4"], +Cell[389001, 9534, 642, 14, 40, "Message",ExpressionUUID->"cc0b260d-e116-4475-80d0-6c25a3e702d5"], +Cell[389646, 9550, 645, 14, 40, "Message",ExpressionUUID->"6822039b-be3e-44d2-aeb1-92348e3938bd"], +Cell[390294, 9566, 489, 11, 26, "Message",ExpressionUUID->"9dd3e765-aa35-49cb-8c6f-540415b21c3d"], +Cell[390786, 9579, 197, 3, 33, "Output",ExpressionUUID->"b0567982-7f8b-4cdf-8a4b-add5b14220fa"] }, Open ]], Cell[CellGroupData[{ -Cell[391020, 9587, 2235, 63, 461, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], -Cell[393258, 9652, 644, 14, 108, "Message",ExpressionUUID->"dab10240-d33a-44d4-a4d2-ad17dda6ae8d"], -Cell[393905, 9668, 643, 14, 84, "Message",ExpressionUUID->"dfc50201-21b6-485c-a38c-5bf4b86c28a2"], -Cell[394551, 9684, 644, 14, 84, "Message",ExpressionUUID->"8aec9205-88de-4b9d-a64f-371c9198930e"], -Cell[395198, 9700, 490, 11, 60, "Message",ExpressionUUID->"8d346fdf-b2b0-4408-8568-3645590be30f"], -Cell[395691, 9713, 195, 3, 46, "Output",ExpressionUUID->"cbb2fdd7-0c67-4dfc-9e51-613418d01ced"] +Cell[391020, 9587, 2235, 63, 64, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], +Cell[393258, 9652, 644, 14, 40, "Message",ExpressionUUID->"dab10240-d33a-44d4-a4d2-ad17dda6ae8d"], +Cell[393905, 9668, 643, 14, 40, "Message",ExpressionUUID->"dfc50201-21b6-485c-a38c-5bf4b86c28a2"], +Cell[394551, 9684, 644, 14, 40, "Message",ExpressionUUID->"8aec9205-88de-4b9d-a64f-371c9198930e"], +Cell[395198, 9700, 490, 11, 26, "Message",ExpressionUUID->"8d346fdf-b2b0-4408-8568-3645590be30f"], +Cell[395691, 9713, 195, 3, 33, "Output",ExpressionUUID->"cbb2fdd7-0c67-4dfc-9e51-613418d01ced"] }, Open ]], Cell[CellGroupData[{ -Cell[395923, 9721, 236, 6, 66, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], -Cell[396162, 9729, 197, 3, 46, "Output",ExpressionUUID->"85472415-17d8-4a32-a5c1-00cfb1b7f14e"] +Cell[395923, 9721, 236, 6, 46, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], +Cell[396162, 9729, 197, 3, 33, "Output",ExpressionUUID->"85472415-17d8-4a32-a5c1-00cfb1b7f14e"] }, Open ]], -Cell[396374, 9735, 273, 6, 40, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], +Cell[396374, 9735, 273, 6, 29, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ -Cell[396672, 9745, 558, 19, 73, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], -Cell[397233, 9766, 193, 3, 46, "Output",ExpressionUUID->"830c4460-484e-4d0c-824c-a1b6a5baf4a0"] +Cell[396672, 9745, 558, 19, 51, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], +Cell[397233, 9766, 193, 3, 33, "Output",ExpressionUUID->"830c4460-484e-4d0c-824c-a1b6a5baf4a0"] }, Open ]], Cell[CellGroupData[{ -Cell[397463, 9774, 170, 5, 77, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], -Cell[397636, 9781, 195, 3, 46, "Output",ExpressionUUID->"c8980ba0-c564-437a-882a-c42fe61eaccd"] +Cell[397463, 9774, 170, 5, 55, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], +Cell[397636, 9781, 195, 3, 33, "Output",ExpressionUUID->"c8980ba0-c564-437a-882a-c42fe61eaccd"] }, Open ]], Cell[CellGroupData[{ -Cell[397868, 9789, 181, 5, 60, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], -Cell[398052, 9796, 194, 3, 46, "Output",ExpressionUUID->"736e1c38-34ae-4e81-b2ba-3ce2d5bb49d9"] +Cell[397868, 9789, 181, 5, 43, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], +Cell[398052, 9796, 194, 3, 33, "Output",ExpressionUUID->"736e1c38-34ae-4e81-b2ba-3ce2d5bb49d9"] }, Open ]], Cell[CellGroupData[{ -Cell[398283, 9804, 6055, 185, 1094, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], -Cell[404341, 9991, 194, 3, 46, "Output",ExpressionUUID->"68c846e1-553b-49a0-a3ba-aa1d454dd055"] +Cell[398283, 9804, 6055, 185, 183, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], +Cell[404341, 9991, 194, 3, 33, "Output",ExpressionUUID->"68c846e1-553b-49a0-a3ba-aa1d454dd055"] }, Open ]], Cell[CellGroupData[{ -Cell[404572, 9999, 368, 9, 58, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], -Cell[404943, 10010, 191, 3, 46, "Output",ExpressionUUID->"620025c8-175d-4bfa-8ea2-e73aa2d8f2ec"] +Cell[404572, 9999, 368, 9, 41, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], +Cell[404943, 10010, 191, 3, 33, "Output",ExpressionUUID->"620025c8-175d-4bfa-8ea2-e73aa2d8f2ec"] }, Open ]], Cell[CellGroupData[{ -Cell[405171, 10018, 6122, 187, 1094, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], -Cell[411296, 10207, 196, 3, 46, "Output",ExpressionUUID->"ec80de55-fa31-4bed-8b6c-a29466dc93d2"] +Cell[405171, 10018, 6122, 187, 183, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], +Cell[411296, 10207, 196, 3, 33, "Output",ExpressionUUID->"ec80de55-fa31-4bed-8b6c-a29466dc93d2"] }, Open ]], Cell[CellGroupData[{ -Cell[411529, 10215, 368, 9, 58, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], -Cell[411900, 10226, 193, 3, 46, "Output",ExpressionUUID->"6dd9775a-e665-4687-a329-90b93fb0dc57"] +Cell[411529, 10215, 368, 9, 41, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], +Cell[411900, 10226, 193, 3, 33, "Output",ExpressionUUID->"6dd9775a-e665-4687-a329-90b93fb0dc57"] }, Open ]], Cell[CellGroupData[{ -Cell[412130, 10234, 2663, 88, 470, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], -Cell[414796, 10324, 196, 3, 46, "Output",ExpressionUUID->"3572d612-4b7a-4b2d-986a-883ac51fd525"] +Cell[412130, 10234, 2663, 88, 107, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], +Cell[414796, 10324, 196, 3, 33, "Output",ExpressionUUID->"3572d612-4b7a-4b2d-986a-883ac51fd525"] }, Open ]], Cell[CellGroupData[{ -Cell[415029, 10332, 2603, 85, 470, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], -Cell[417635, 10419, 194, 3, 46, "Output",ExpressionUUID->"1422074a-13cc-435f-8d40-34be5dea6350"] +Cell[415029, 10332, 2603, 85, 107, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], +Cell[417635, 10419, 194, 3, 33, "Output",ExpressionUUID->"1422074a-13cc-435f-8d40-34be5dea6350"] }, Open ]], Cell[CellGroupData[{ -Cell[417866, 10427, 3712, 118, 620, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], -Cell[421581, 10547, 194, 3, 46, "Output",ExpressionUUID->"d8ec8bdd-4662-411d-81fe-441807f87b0a"] +Cell[417866, 10427, 3712, 118, 160, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], +Cell[421581, 10547, 194, 3, 33, "Output",ExpressionUUID->"d8ec8bdd-4662-411d-81fe-441807f87b0a"] }, Open ]], Cell[CellGroupData[{ -Cell[421812, 10555, 2101, 60, 292, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], -Cell[423916, 10617, 645, 14, 84, "Message",ExpressionUUID->"ed6cbe47-34e4-4cee-95e7-d417a45b96c9"], -Cell[424564, 10633, 646, 14, 84, "Message",ExpressionUUID->"3c2f0abf-588d-4658-9332-6f31cd9c85a8"], -Cell[425213, 10649, 648, 14, 84, "Message",ExpressionUUID->"aad7c81a-0042-4f12-bcce-6368236a67f8"], -Cell[425864, 10665, 492, 11, 60, "Message",ExpressionUUID->"5d7b1dba-9144-4326-9e5b-e8fe81b08e40"], -Cell[426359, 10678, 196, 3, 46, "Output",ExpressionUUID->"1a3f5d4c-0e3b-4d05-bd9a-d9a299e3e87f"] +Cell[421812, 10555, 2101, 60, 64, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], +Cell[423916, 10617, 645, 14, 40, "Message",ExpressionUUID->"ed6cbe47-34e4-4cee-95e7-d417a45b96c9"], +Cell[424564, 10633, 646, 14, 40, "Message",ExpressionUUID->"3c2f0abf-588d-4658-9332-6f31cd9c85a8"], +Cell[425213, 10649, 648, 14, 40, "Message",ExpressionUUID->"aad7c81a-0042-4f12-bcce-6368236a67f8"], +Cell[425864, 10665, 492, 11, 26, "Message",ExpressionUUID->"5d7b1dba-9144-4326-9e5b-e8fe81b08e40"], +Cell[426359, 10678, 196, 3, 33, "Output",ExpressionUUID->"1a3f5d4c-0e3b-4d05-bd9a-d9a299e3e87f"] }, Open ]], Cell[CellGroupData[{ -Cell[426592, 10686, 2103, 60, 292, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], -Cell[428698, 10748, 647, 14, 84, "Message",ExpressionUUID->"9571e0c8-33d3-4031-a4f8-73eb8052315e"], -Cell[429348, 10764, 646, 14, 84, "Message",ExpressionUUID->"5af6330d-10a4-4485-87a5-8a98ffcf5fd0"], -Cell[429997, 10780, 648, 14, 84, "Message",ExpressionUUID->"5f1e65b7-ad0d-4735-8b94-4c627e29cf25"], -Cell[430648, 10796, 492, 11, 60, "Message",ExpressionUUID->"eb328550-0b83-44aa-a188-982971628863"], -Cell[431143, 10809, 193, 3, 46, "Output",ExpressionUUID->"56004ea5-9cfe-4e63-8c3a-7096c669259a"] +Cell[426592, 10686, 2103, 60, 64, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], +Cell[428698, 10748, 647, 14, 40, "Message",ExpressionUUID->"9571e0c8-33d3-4031-a4f8-73eb8052315e"], +Cell[429348, 10764, 646, 14, 40, "Message",ExpressionUUID->"5af6330d-10a4-4485-87a5-8a98ffcf5fd0"], +Cell[429997, 10780, 648, 14, 40, "Message",ExpressionUUID->"5f1e65b7-ad0d-4735-8b94-4c627e29cf25"], +Cell[430648, 10796, 492, 11, 26, "Message",ExpressionUUID->"eb328550-0b83-44aa-a188-982971628863"], +Cell[431143, 10809, 193, 3, 33, "Output",ExpressionUUID->"56004ea5-9cfe-4e63-8c3a-7096c669259a"] }, Open ]], Cell[CellGroupData[{ -Cell[431373, 10817, 2053, 55, 292, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], -Cell[433429, 10874, 20332, 382, 331, "Output",ExpressionUUID->"60a1f101-b826-4b48-b1df-41a6df932793"] +Cell[431373, 10817, 2053, 55, 53, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], +Cell[433429, 10874, 20332, 382, 236, "Output",ExpressionUUID->"60a1f101-b826-4b48-b1df-41a6df932793"] }, Open ]], Cell[CellGroupData[{ -Cell[453798, 11261, 2141, 60, 387, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], -Cell[455942, 11323, 537, 12, 105, "Message",ExpressionUUID->"458c9dee-b04c-428d-ac0a-0e84b808c955"], -Cell[456482, 11337, 543, 12, 105, "Message",ExpressionUUID->"967982c5-a918-4781-b5e7-a9e96f01a58a"], -Cell[457028, 11351, 544, 12, 139, "Message",ExpressionUUID->"f1002ef9-6125-4ca6-8eda-3163e1dc2ee6"], -Cell[457575, 11365, 490, 11, 60, "Message",ExpressionUUID->"10a723ed-1527-4415-985d-0d0b36145b28"], -Cell[458068, 11378, 31899, 570, 325, "Output",ExpressionUUID->"2987efed-ddd9-408f-94eb-2d3455dbe161"] +Cell[453798, 11261, 2141, 60, 99, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], +Cell[455942, 11323, 537, 12, 40, "Message",ExpressionUUID->"458c9dee-b04c-428d-ac0a-0e84b808c955"], +Cell[456482, 11337, 543, 12, 40, "Message",ExpressionUUID->"967982c5-a918-4781-b5e7-a9e96f01a58a"], +Cell[457028, 11351, 544, 12, 40, "Message",ExpressionUUID->"f1002ef9-6125-4ca6-8eda-3163e1dc2ee6"], +Cell[457575, 11365, 490, 11, 26, "Message",ExpressionUUID->"10a723ed-1527-4415-985d-0d0b36145b28"], +Cell[458068, 11378, 31899, 570, 232, "Output",ExpressionUUID->"2987efed-ddd9-408f-94eb-2d3455dbe161"] }, Open ]], -Cell[489982, 11951, 200, 4, 40, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], +Cell[489982, 11951, 200, 4, 29, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], Cell[CellGroupData[{ -Cell[490207, 11959, 232, 5, 40, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], -Cell[490442, 11966, 38263, 702, 325, "Output",ExpressionUUID->"405cf143-2974-4b3e-b99e-469a5dcceadc"] +Cell[490207, 11959, 232, 5, 29, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], +Cell[490442, 11966, 38263, 702, 232, "Output",ExpressionUUID->"405cf143-2974-4b3e-b99e-469a5dcceadc"] }, Open ]], Cell[CellGroupData[{ -Cell[528742, 12673, 1616, 48, 144, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], -Cell[530361, 12723, 646, 14, 84, "Message",ExpressionUUID->"f896bf94-2bab-481b-b421-570f3b84c7e7"], -Cell[531010, 12739, 646, 14, 84, "Message",ExpressionUUID->"4612d3ae-0b43-4a7d-9710-17ada6cafdc3"], -Cell[531659, 12755, 646, 14, 84, "Message",ExpressionUUID->"3dc912da-6cb1-4c64-9d7a-88ffe9985457"], -Cell[532308, 12771, 494, 11, 60, "Message",ExpressionUUID->"1404938d-e709-4462-904e-d95edba3354a"], -Cell[532805, 12784, 192, 3, 46, "Output",ExpressionUUID->"55ce24fe-2edd-4812-bf89-e34afdfa95ee"] +Cell[528742, 12673, 1616, 48, 71, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], +Cell[530361, 12723, 646, 14, 40, "Message",ExpressionUUID->"f896bf94-2bab-481b-b421-570f3b84c7e7"], +Cell[531010, 12739, 646, 14, 40, "Message",ExpressionUUID->"4612d3ae-0b43-4a7d-9710-17ada6cafdc3"], +Cell[531659, 12755, 646, 14, 40, "Message",ExpressionUUID->"3dc912da-6cb1-4c64-9d7a-88ffe9985457"], +Cell[532308, 12771, 494, 11, 26, "Message",ExpressionUUID->"1404938d-e709-4462-904e-d95edba3354a"], +Cell[532805, 12784, 192, 3, 33, "Output",ExpressionUUID->"55ce24fe-2edd-4812-bf89-e34afdfa95ee"] }, Open ]], Cell[CellGroupData[{ -Cell[533034, 12792, 2270, 64, 461, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], -Cell[535307, 12858, 644, 14, 84, "Message",ExpressionUUID->"531b0dc8-6768-440c-a04a-3c1a08cfe2b5"], -Cell[535954, 12874, 646, 14, 84, "Message",ExpressionUUID->"41adb977-9d79-4069-a95c-5be8e8346117"], -Cell[536603, 12890, 648, 14, 84, "Message",ExpressionUUID->"35037419-3030-452c-b2da-a98f0414107d"], -Cell[537254, 12906, 494, 11, 60, "Message",ExpressionUUID->"a51974cd-f3e9-41d9-943d-9ee44837cc7d"], -Cell[537751, 12919, 196, 3, 46, "Output",ExpressionUUID->"420d570b-bd0d-4494-8992-d49859a69641"] +Cell[533034, 12792, 2270, 64, 64, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], +Cell[535307, 12858, 644, 14, 40, "Message",ExpressionUUID->"531b0dc8-6768-440c-a04a-3c1a08cfe2b5"], +Cell[535954, 12874, 646, 14, 40, "Message",ExpressionUUID->"41adb977-9d79-4069-a95c-5be8e8346117"], +Cell[536603, 12890, 648, 14, 40, "Message",ExpressionUUID->"35037419-3030-452c-b2da-a98f0414107d"], +Cell[537254, 12906, 494, 11, 26, "Message",ExpressionUUID->"a51974cd-f3e9-41d9-943d-9ee44837cc7d"], +Cell[537751, 12919, 196, 3, 33, "Output",ExpressionUUID->"420d570b-bd0d-4494-8992-d49859a69641"] }, Open ]], Cell[CellGroupData[{ -Cell[537984, 12927, 2233, 63, 461, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], -Cell[540220, 12992, 643, 14, 84, "Message",ExpressionUUID->"6687a382-8556-4c89-aedc-be6cf3757f18"], -Cell[540866, 13008, 644, 14, 84, "Message",ExpressionUUID->"c2b7c64c-207a-4917-8fa0-f91256f096fc"], -Cell[541513, 13024, 644, 14, 84, "Message",ExpressionUUID->"40acec2f-144a-4e47-b544-9efea0625e2d"], -Cell[542160, 13040, 492, 11, 60, "Message",ExpressionUUID->"60ff8026-132f-47f9-901f-9a4ba021c984"], -Cell[542655, 13053, 192, 3, 46, "Output",ExpressionUUID->"a4ec448a-9b2c-4f7e-8815-5caba918aa05"] +Cell[537984, 12927, 2233, 63, 64, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], +Cell[540220, 12992, 643, 14, 40, "Message",ExpressionUUID->"6687a382-8556-4c89-aedc-be6cf3757f18"], +Cell[540866, 13008, 644, 14, 40, "Message",ExpressionUUID->"c2b7c64c-207a-4917-8fa0-f91256f096fc"], +Cell[541513, 13024, 644, 14, 40, "Message",ExpressionUUID->"40acec2f-144a-4e47-b544-9efea0625e2d"], +Cell[542160, 13040, 492, 11, 26, "Message",ExpressionUUID->"60ff8026-132f-47f9-901f-9a4ba021c984"], +Cell[542655, 13053, 192, 3, 33, "Output",ExpressionUUID->"a4ec448a-9b2c-4f7e-8815-5caba918aa05"] }, Open ]], Cell[CellGroupData[{ -Cell[542884, 13061, 2233, 63, 461, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], -Cell[545120, 13126, 645, 14, 84, "Message",ExpressionUUID->"1c624e6a-236f-44ad-b02f-d693a51fc1fb"], -Cell[545768, 13142, 646, 14, 84, "Message",ExpressionUUID->"68356879-64e0-43ba-b1d9-6f8ea664ee3d"], -Cell[546417, 13158, 648, 14, 84, "Message",ExpressionUUID->"888df696-75ce-471d-a714-30f85d89f785"], -Cell[547068, 13174, 492, 11, 60, "Message",ExpressionUUID->"f091a327-19c2-4ac4-99ae-68049e436f51"], -Cell[547563, 13187, 195, 3, 46, "Output",ExpressionUUID->"b64976de-06a3-4907-a6f0-09bb6bb0a9de"] +Cell[542884, 13061, 2233, 63, 64, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], +Cell[545120, 13126, 645, 14, 40, "Message",ExpressionUUID->"1c624e6a-236f-44ad-b02f-d693a51fc1fb"], +Cell[545768, 13142, 646, 14, 40, "Message",ExpressionUUID->"68356879-64e0-43ba-b1d9-6f8ea664ee3d"], +Cell[546417, 13158, 648, 14, 40, "Message",ExpressionUUID->"888df696-75ce-471d-a714-30f85d89f785"], +Cell[547068, 13174, 492, 11, 26, "Message",ExpressionUUID->"f091a327-19c2-4ac4-99ae-68049e436f51"], +Cell[547563, 13187, 195, 3, 33, "Output",ExpressionUUID->"b64976de-06a3-4907-a6f0-09bb6bb0a9de"] }, Open ]], Cell[CellGroupData[{ -Cell[547795, 13195, 236, 6, 66, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], -Cell[548034, 13203, 193, 3, 46, "Output",ExpressionUUID->"2ee7f7d4-be23-4a05-bffa-121ff4f6022b"] +Cell[547795, 13195, 236, 6, 46, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], +Cell[548034, 13203, 193, 3, 33, "Output",ExpressionUUID->"2ee7f7d4-be23-4a05-bffa-121ff4f6022b"] }, Open ]], -Cell[548242, 13209, 271, 6, 40, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], +Cell[548242, 13209, 271, 6, 29, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ -Cell[548538, 13219, 558, 19, 73, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], -Cell[549099, 13240, 195, 3, 46, "Output",ExpressionUUID->"0a129f90-a30a-4d4f-9541-82c1d0577791"] +Cell[548538, 13219, 558, 19, 51, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], +Cell[549099, 13240, 195, 3, 33, "Output",ExpressionUUID->"0a129f90-a30a-4d4f-9541-82c1d0577791"] }, Open ]], Cell[CellGroupData[{ -Cell[549331, 13248, 170, 5, 77, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], -Cell[549504, 13255, 195, 3, 46, "Output",ExpressionUUID->"112360a6-9cb2-44ba-bbde-57dfe0a63c0b"] +Cell[549331, 13248, 170, 5, 55, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], +Cell[549504, 13255, 195, 3, 33, "Output",ExpressionUUID->"112360a6-9cb2-44ba-bbde-57dfe0a63c0b"] }, Open ]], Cell[CellGroupData[{ -Cell[549736, 13263, 181, 5, 60, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], -Cell[549920, 13270, 195, 3, 46, "Output",ExpressionUUID->"2578f5eb-8bc4-4711-a950-73a9ae3e788f"] +Cell[549736, 13263, 181, 5, 43, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], +Cell[549920, 13270, 195, 3, 33, "Output",ExpressionUUID->"2578f5eb-8bc4-4711-a950-73a9ae3e788f"] }, Open ]], Cell[CellGroupData[{ -Cell[550152, 13278, 6055, 185, 1094, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], -Cell[556210, 13465, 199, 3, 46, "Output",ExpressionUUID->"039c7178-0650-45fd-a630-56b4818ee828"] +Cell[550152, 13278, 6055, 185, 183, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], +Cell[556210, 13465, 199, 3, 33, "Output",ExpressionUUID->"039c7178-0650-45fd-a630-56b4818ee828"] }, Open ]], Cell[CellGroupData[{ -Cell[556446, 13473, 368, 9, 58, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], -Cell[556817, 13484, 194, 3, 46, "Output",ExpressionUUID->"782c54da-f9f8-42bb-bc80-23b09006e9b4"] +Cell[556446, 13473, 368, 9, 41, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], +Cell[556817, 13484, 194, 3, 33, "Output",ExpressionUUID->"782c54da-f9f8-42bb-bc80-23b09006e9b4"] }, Open ]], Cell[CellGroupData[{ -Cell[557048, 13492, 6122, 187, 1094, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], -Cell[563173, 13681, 196, 3, 46, "Output",ExpressionUUID->"51326464-a4a6-4e66-b0b5-9e22e584649d"] +Cell[557048, 13492, 6122, 187, 183, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], +Cell[563173, 13681, 196, 3, 33, "Output",ExpressionUUID->"51326464-a4a6-4e66-b0b5-9e22e584649d"] }, Open ]], Cell[CellGroupData[{ -Cell[563406, 13689, 368, 9, 58, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], -Cell[563777, 13700, 195, 3, 46, "Output",ExpressionUUID->"5da7409c-34fe-4443-aa35-9838aa03e7b6"] +Cell[563406, 13689, 368, 9, 41, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], +Cell[563777, 13700, 195, 3, 33, "Output",ExpressionUUID->"5da7409c-34fe-4443-aa35-9838aa03e7b6"] }, Open ]], Cell[CellGroupData[{ -Cell[564009, 13708, 2663, 88, 470, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], -Cell[566675, 13798, 196, 3, 46, "Output",ExpressionUUID->"d0a92889-fdb4-4179-9f6d-e90d27e6dc8b"] +Cell[564009, 13708, 2663, 88, 107, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], +Cell[566675, 13798, 196, 3, 33, "Output",ExpressionUUID->"d0a92889-fdb4-4179-9f6d-e90d27e6dc8b"] }, Open ]], Cell[CellGroupData[{ -Cell[566908, 13806, 2603, 85, 470, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], -Cell[569514, 13893, 192, 3, 46, "Output",ExpressionUUID->"fcfdc000-b935-4a75-98a8-2e4c6df0034f"] +Cell[566908, 13806, 2603, 85, 107, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], +Cell[569514, 13893, 192, 3, 33, "Output",ExpressionUUID->"fcfdc000-b935-4a75-98a8-2e4c6df0034f"] }, Open ]], Cell[CellGroupData[{ -Cell[569743, 13901, 3712, 118, 620, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], -Cell[573458, 14021, 194, 3, 46, "Output",ExpressionUUID->"496320be-e0cc-4ffc-ae38-f021272b40a7"] +Cell[569743, 13901, 3712, 118, 160, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], +Cell[573458, 14021, 194, 3, 33, "Output",ExpressionUUID->"496320be-e0cc-4ffc-ae38-f021272b40a7"] }, Open ]], Cell[CellGroupData[{ -Cell[573689, 14029, 2101, 60, 292, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], -Cell[575793, 14091, 645, 14, 84, "Message",ExpressionUUID->"0c75b933-64ee-4026-ae05-0bd9aeebf030"], -Cell[576441, 14107, 645, 14, 84, "Message",ExpressionUUID->"9ff5564c-cc4e-4a37-8a32-178f05754c84"], -Cell[577089, 14123, 648, 14, 84, "Message",ExpressionUUID->"be0a7790-c377-4f3e-8194-cfe9fbb7ce18"], -Cell[577740, 14139, 492, 11, 60, "Message",ExpressionUUID->"5b9b2096-5f5f-4b8d-b29f-b5cd98917c3c"], -Cell[578235, 14152, 196, 3, 46, "Output",ExpressionUUID->"b7e81d56-ccd6-4ea7-a569-c0a8803778ab"] +Cell[573689, 14029, 2101, 60, 64, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], +Cell[575793, 14091, 645, 14, 40, "Message",ExpressionUUID->"0c75b933-64ee-4026-ae05-0bd9aeebf030"], +Cell[576441, 14107, 645, 14, 40, "Message",ExpressionUUID->"9ff5564c-cc4e-4a37-8a32-178f05754c84"], +Cell[577089, 14123, 648, 14, 40, "Message",ExpressionUUID->"be0a7790-c377-4f3e-8194-cfe9fbb7ce18"], +Cell[577740, 14139, 492, 11, 26, "Message",ExpressionUUID->"5b9b2096-5f5f-4b8d-b29f-b5cd98917c3c"], +Cell[578235, 14152, 196, 3, 33, "Output",ExpressionUUID->"b7e81d56-ccd6-4ea7-a569-c0a8803778ab"] }, Open ]], Cell[CellGroupData[{ -Cell[578468, 14160, 2103, 60, 292, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], -Cell[580574, 14222, 648, 14, 84, "Message",ExpressionUUID->"1cd9a2a3-fa0c-42c8-b27e-2374ff2b1b9f"], -Cell[581225, 14238, 643, 14, 84, "Message",ExpressionUUID->"3969133d-945a-4f58-9b85-c3e8964f422a"], -Cell[581871, 14254, 645, 14, 84, "Message",ExpressionUUID->"10cd9af0-204c-46e6-81bf-9c20546bfb68"], -Cell[582519, 14270, 492, 11, 60, "Message",ExpressionUUID->"a312d92b-00d9-4006-81bc-de6549d5a217"], -Cell[583014, 14283, 194, 3, 46, "Output",ExpressionUUID->"44079fde-d0c3-44c4-819e-97542f61be99"] +Cell[578468, 14160, 2103, 60, 64, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], +Cell[580574, 14222, 648, 14, 40, "Message",ExpressionUUID->"1cd9a2a3-fa0c-42c8-b27e-2374ff2b1b9f"], +Cell[581225, 14238, 643, 14, 40, "Message",ExpressionUUID->"3969133d-945a-4f58-9b85-c3e8964f422a"], +Cell[581871, 14254, 645, 14, 40, "Message",ExpressionUUID->"10cd9af0-204c-46e6-81bf-9c20546bfb68"], +Cell[582519, 14270, 492, 11, 26, "Message",ExpressionUUID->"a312d92b-00d9-4006-81bc-de6549d5a217"], +Cell[583014, 14283, 194, 3, 33, "Output",ExpressionUUID->"44079fde-d0c3-44c4-819e-97542f61be99"] }, Open ]], Cell[CellGroupData[{ -Cell[583245, 14291, 2053, 55, 292, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], -Cell[585301, 14348, 20271, 383, 331, "Output",ExpressionUUID->"326a9d7a-6d2f-4560-a54f-c0d841b875e1"] +Cell[583245, 14291, 2053, 55, 53, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], +Cell[585301, 14348, 20271, 383, 236, "Output",ExpressionUUID->"326a9d7a-6d2f-4560-a54f-c0d841b875e1"] }, Open ]], Cell[CellGroupData[{ -Cell[605609, 14736, 2141, 60, 387, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], -Cell[607753, 14798, 536, 12, 105, "Message",ExpressionUUID->"94388b7a-69f8-410b-908c-c24dbfe7d4ae"], -Cell[608292, 14812, 539, 12, 105, "Message",ExpressionUUID->"69fcec10-8330-40c2-8e7d-34edec2baf66"], -Cell[608834, 14826, 542, 12, 105, "Message",ExpressionUUID->"9dbf060a-fce5-43e9-814e-4412034031e4"], -Cell[609379, 14840, 490, 11, 60, "Message",ExpressionUUID->"271a5615-6722-429c-acd0-839b6c297768"], -Cell[609872, 14853, 31304, 561, 325, "Output",ExpressionUUID->"708a2554-ef03-4b55-a91f-f71f738cdd64"] +Cell[605609, 14736, 2141, 60, 99, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], +Cell[607753, 14798, 536, 12, 40, "Message",ExpressionUUID->"94388b7a-69f8-410b-908c-c24dbfe7d4ae"], +Cell[608292, 14812, 539, 12, 40, "Message",ExpressionUUID->"69fcec10-8330-40c2-8e7d-34edec2baf66"], +Cell[608834, 14826, 542, 12, 40, "Message",ExpressionUUID->"9dbf060a-fce5-43e9-814e-4412034031e4"], +Cell[609379, 14840, 490, 11, 26, "Message",ExpressionUUID->"271a5615-6722-429c-acd0-839b6c297768"], +Cell[609872, 14853, 31304, 561, 232, "Output",ExpressionUUID->"708a2554-ef03-4b55-a91f-f71f738cdd64"] }, Open ]], -Cell[641191, 15417, 207, 4, 40, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], +Cell[641191, 15417, 207, 4, 29, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], Cell[CellGroupData[{ -Cell[641423, 15425, 230, 5, 40, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], -Cell[641656, 15432, 37664, 693, 325, "Output",ExpressionUUID->"d345201d-9856-412e-bc61-9b14a54ff740"] +Cell[641423, 15425, 230, 5, 29, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], +Cell[641656, 15432, 37664, 693, 232, "Output",ExpressionUUID->"d345201d-9856-412e-bc61-9b14a54ff740"] }, Open ]], Cell[CellGroupData[{ -Cell[679357, 16130, 1616, 48, 144, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], -Cell[680976, 16180, 645, 14, 84, "Message",ExpressionUUID->"27a3bab1-f8a4-4599-874a-0ad2f8bf9df4"], -Cell[681624, 16196, 647, 14, 84, "Message",ExpressionUUID->"0e3a6be6-b7f5-4272-b915-8cede30503b3"], -Cell[682274, 16212, 648, 14, 84, "Message",ExpressionUUID->"7bc67e0c-9546-4acc-a429-74d97013ed45"], -Cell[682925, 16228, 494, 11, 60, "Message",ExpressionUUID->"9fc0c765-e643-46ff-9a74-3c5e0a98af9a"], -Cell[683422, 16241, 195, 3, 46, "Output",ExpressionUUID->"4c62cd97-4794-44bd-9396-b61b4be4e2ed"] +Cell[679357, 16130, 1616, 48, 71, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], +Cell[680976, 16180, 645, 14, 40, "Message",ExpressionUUID->"27a3bab1-f8a4-4599-874a-0ad2f8bf9df4"], +Cell[681624, 16196, 647, 14, 40, "Message",ExpressionUUID->"0e3a6be6-b7f5-4272-b915-8cede30503b3"], +Cell[682274, 16212, 648, 14, 40, "Message",ExpressionUUID->"7bc67e0c-9546-4acc-a429-74d97013ed45"], +Cell[682925, 16228, 494, 11, 26, "Message",ExpressionUUID->"9fc0c765-e643-46ff-9a74-3c5e0a98af9a"], +Cell[683422, 16241, 195, 3, 33, "Output",ExpressionUUID->"4c62cd97-4794-44bd-9396-b61b4be4e2ed"] }, Open ]], Cell[CellGroupData[{ -Cell[683654, 16249, 2269, 64, 461, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], -Cell[685926, 16315, 644, 14, 84, "Message",ExpressionUUID->"d0d424bc-5148-4702-9191-a1b023685210"], -Cell[686573, 16331, 645, 14, 84, "Message",ExpressionUUID->"696a85f5-de3f-4d61-9add-bc05ca3bb0cb"], -Cell[687221, 16347, 644, 14, 84, "Message",ExpressionUUID->"e06488ef-a37a-4ce4-b55d-1c466f699de2"], -Cell[687868, 16363, 490, 11, 60, "Message",ExpressionUUID->"c7d1477c-71c7-41c1-aa71-8633c092ddb7"], -Cell[688361, 16376, 190, 3, 46, "Output",ExpressionUUID->"b053ea25-1004-426b-a3aa-b1f571c1897f"] +Cell[683654, 16249, 2269, 64, 64, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], +Cell[685926, 16315, 644, 14, 40, "Message",ExpressionUUID->"d0d424bc-5148-4702-9191-a1b023685210"], +Cell[686573, 16331, 645, 14, 40, "Message",ExpressionUUID->"696a85f5-de3f-4d61-9add-bc05ca3bb0cb"], +Cell[687221, 16347, 644, 14, 40, "Message",ExpressionUUID->"e06488ef-a37a-4ce4-b55d-1c466f699de2"], +Cell[687868, 16363, 490, 11, 26, "Message",ExpressionUUID->"c7d1477c-71c7-41c1-aa71-8633c092ddb7"], +Cell[688361, 16376, 190, 3, 33, "Output",ExpressionUUID->"b053ea25-1004-426b-a3aa-b1f571c1897f"] }, Open ]], Cell[CellGroupData[{ -Cell[688588, 16384, 2233, 63, 461, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], -Cell[690824, 16449, 648, 14, 84, "Message",ExpressionUUID->"dae90408-ed74-4eb2-a5d3-34be7337fe0d"], -Cell[691475, 16465, 645, 14, 84, "Message",ExpressionUUID->"e70e652d-be5d-429d-9e81-0ecc4261a966"], -Cell[692123, 16481, 648, 14, 84, "Message",ExpressionUUID->"7939a19a-96f3-4537-9afe-36792ad89083"], -Cell[692774, 16497, 491, 11, 60, "Message",ExpressionUUID->"d9ad3655-5452-407b-af4f-61c451ffcacc"], -Cell[693268, 16510, 194, 3, 46, "Output",ExpressionUUID->"54f5d98a-da96-4a1b-bf46-610217b41295"] +Cell[688588, 16384, 2233, 63, 64, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], +Cell[690824, 16449, 648, 14, 40, "Message",ExpressionUUID->"dae90408-ed74-4eb2-a5d3-34be7337fe0d"], +Cell[691475, 16465, 645, 14, 40, "Message",ExpressionUUID->"e70e652d-be5d-429d-9e81-0ecc4261a966"], +Cell[692123, 16481, 648, 14, 40, "Message",ExpressionUUID->"7939a19a-96f3-4537-9afe-36792ad89083"], +Cell[692774, 16497, 491, 11, 26, "Message",ExpressionUUID->"d9ad3655-5452-407b-af4f-61c451ffcacc"], +Cell[693268, 16510, 194, 3, 33, "Output",ExpressionUUID->"54f5d98a-da96-4a1b-bf46-610217b41295"] }, Open ]], Cell[CellGroupData[{ -Cell[693499, 16518, 2235, 63, 461, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], -Cell[695737, 16583, 644, 14, 84, "Message",ExpressionUUID->"acb95209-d868-44cc-a5b9-afca7258f83b"], -Cell[696384, 16599, 643, 14, 84, "Message",ExpressionUUID->"7c954ed9-2435-42c1-a416-b33c5aed14b0"], -Cell[697030, 16615, 646, 14, 84, "Message",ExpressionUUID->"4f6eef0e-264e-483d-a917-9d36917fab6a"], -Cell[697679, 16631, 490, 11, 60, "Message",ExpressionUUID->"48a64460-800f-4143-9547-2cabd0d4c622"], -Cell[698172, 16644, 194, 3, 46, "Output",ExpressionUUID->"827eac2d-995e-48ec-afd6-a4acea4a1919"] +Cell[693499, 16518, 2235, 63, 64, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], +Cell[695737, 16583, 644, 14, 40, "Message",ExpressionUUID->"acb95209-d868-44cc-a5b9-afca7258f83b"], +Cell[696384, 16599, 643, 14, 40, "Message",ExpressionUUID->"7c954ed9-2435-42c1-a416-b33c5aed14b0"], +Cell[697030, 16615, 646, 14, 40, "Message",ExpressionUUID->"4f6eef0e-264e-483d-a917-9d36917fab6a"], +Cell[697679, 16631, 490, 11, 26, "Message",ExpressionUUID->"48a64460-800f-4143-9547-2cabd0d4c622"], +Cell[698172, 16644, 194, 3, 33, "Output",ExpressionUUID->"827eac2d-995e-48ec-afd6-a4acea4a1919"] }, Open ]], Cell[CellGroupData[{ -Cell[698403, 16652, 234, 6, 66, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], -Cell[698640, 16660, 197, 3, 46, "Output",ExpressionUUID->"e527cff2-5d6b-4fb6-8827-38771ef39b77"] +Cell[698403, 16652, 234, 6, 46, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], +Cell[698640, 16660, 197, 3, 33, "Output",ExpressionUUID->"e527cff2-5d6b-4fb6-8827-38771ef39b77"] }, Open ]], -Cell[698852, 16666, 143, 3, 40, "Input",ExpressionUUID->"0b907eb6-f914-4733-8572-30b883966193"] +Cell[698852, 16666, 143, 3, 29, "Input",ExpressionUUID->"0b907eb6-f914-4733-8572-30b883966193"], +Cell[CellGroupData[{ +Cell[699020, 16673, 4091, 88, 220, "Input",ExpressionUUID->"f0913b64-df33-4f16-84b0-da56ee802d07"], +Cell[703114, 16763, 1972, 41, 66, "Output",ExpressionUUID->"dda37cc7-50aa-4438-95c6-9c548e7517bb"], +Cell[705089, 16806, 1663, 47, 523, "Output",ExpressionUUID->"8713dc71-d23f-4006-96c8-0832c1c46d88"] +}, Open ]] } ] *) +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_gid_Qw1.nb b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_gid_Qw1.nb index 843eeb7..182675f 100644 --- a/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_gid_Qw1.nb +++ b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_gid_Qw1.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 675560, 16235] -NotebookOptionsPosition[ 634890, 15586] -NotebookOutlinePosition[ 635303, 15603] -CellTagsIndexPosition[ 635260, 15600] +NotebookDataLength[ 691229, 16466] +NotebookOptionsPosition[ 650256, 15812] +NotebookOutlinePosition[ 650660, 15829] +CellTagsIndexPosition[ 650617, 15826] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -27,17 +27,16 @@ Cell[BoxData[ 3.9920650045886707`*^9, {3.9938046575111637`*^9, 3.993804701607058*^9}, 3.993804733204545*^9, {3.993909737291142*^9, 3.993909742224861*^9}, { 3.993909952221772*^9, 3.993909984030127*^9}}, - CellLabel-> - "In[375]:=",ExpressionUUID->"e2613019-1cd1-4448-b93f-d9e947ba1863"], + CellLabel->"In[1]:=",ExpressionUUID->"e2613019-1cd1-4448-b93f-d9e947ba1863"], Cell[BoxData["6.05`"], "Output", CellChangeTimes->{ 3.991320420900818*^9, 3.993804549577532*^9, 3.993804625944013*^9, { 3.993804662482604*^9, 3.993804748770383*^9}, 3.9939096014243507`*^9, 3.9939096691949368`*^9, 3.993909752549667*^9, 3.993909908282672*^9, { - 3.9939099553998528`*^9, 3.993909989690781*^9}, 3.993911037635344*^9}, - CellLabel-> - "Out[375]=",ExpressionUUID->"d4fd105c-488d-48db-b763-a57b5c481649"] + 3.9939099553998528`*^9, 3.993909989690781*^9}, 3.993911037635344*^9, + 3.994250265509552*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"2e215bec-6e4f-4712-bc2b-57a2a0234a6b"] }, Open ]], Cell[CellGroupData[{ @@ -46,17 +45,16 @@ Cell[BoxData[ RowBox[{"A", "=", "240"}]], "Input", CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { 3.993909136325391*^9, 3.993909137492978*^9}}, - CellLabel-> - "In[376]:=",ExpressionUUID->"443e9bcf-7ea8-4c60-b9dd-9b2a8fb814b9"], + CellLabel->"In[2]:=",ExpressionUUID->"443e9bcf-7ea8-4c60-b9dd-9b2a8fb814b9"], Cell[BoxData["240"], "Output", CellChangeTimes->{ 3.9913196497381973`*^9, 3.9938045496655397`*^9, 3.9938046259897127`*^9, { 3.9938046625249434`*^9, 3.9938047488188868`*^9}, 3.993909601730575*^9, 3.993909669289562*^9, 3.99390975259161*^9, 3.993909908569488*^9, { - 3.993909955491517*^9, 3.9939099897296047`*^9}, 3.993911037690444*^9}, - CellLabel-> - "Out[376]=",ExpressionUUID->"1a9ea5cd-87c2-40b2-9c38-7bc78fd2c0c5"] + 3.993909955491517*^9, 3.9939099897296047`*^9}, 3.993911037690444*^9, + 3.994250266098074*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"22fd1f04-d303-4dfe-8e1b-7e57d0e0aa8e"] }, Open ]], Cell[CellGroupData[{ @@ -65,8 +63,7 @@ Cell[BoxData[ RowBox[{"A1", "=", "156"}]], "Input", CellChangeTimes->{ 3.991798961431202*^9, {3.99380431527282*^9, 3.993804315993903*^9}}, - CellLabel-> - "In[377]:=",ExpressionUUID->"0440c475-241f-431d-a534-e7681d26cb0a"], + CellLabel->"In[3]:=",ExpressionUUID->"0440c475-241f-431d-a534-e7681d26cb0a"], Cell[BoxData["156"], "Output", CellChangeTimes->{ @@ -74,9 +71,8 @@ Cell[BoxData["156"], "Output", 3.9938046260086718`*^9, {3.99380466254038*^9, 3.99380474883888*^9}, 3.9939096017486753`*^9, 3.9939096693086853`*^9, 3.9939097526160994`*^9, 3.993909908588579*^9, {3.993909955509431*^9, 3.9939099897457*^9}, - 3.993911037703473*^9}, - CellLabel-> - "Out[377]=",ExpressionUUID->"f72af903-72ad-49f7-b876-be07a6a28860"] + 3.993911037703473*^9, 3.994250266134178*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"f58c24c8-cf50-4a24-904d-e2cfd18ea177"] }, Open ]], Cell[CellGroupData[{ @@ -84,17 +80,16 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, - CellLabel-> - "In[378]:=",ExpressionUUID->"ef1d6164-8176-48b6-850c-9d997dda1516"], + CellLabel->"In[4]:=",ExpressionUUID->"ef1d6164-8176-48b6-850c-9d997dda1516"], Cell[BoxData["0.55`"], "Output", CellChangeTimes->{ 3.991319649777508*^9, 3.993804549706154*^9, 3.9938046260288763`*^9, { 3.993804662560594*^9, 3.993804748856688*^9}, 3.9939096017670803`*^9, 3.9939096693268347`*^9, 3.993909752633919*^9, 3.993909908607675*^9, { - 3.993909955527431*^9, 3.993909989761148*^9}, 3.9939110377145157`*^9}, - CellLabel-> - "Out[378]=",ExpressionUUID->"5f815c8b-ff3b-435d-97be-e18947ab8f10"] + 3.993909955527431*^9, 3.993909989761148*^9}, 3.9939110377145157`*^9, + 3.994250266174766*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"19b1048c-e203-46aa-bb1d-3b48c2e380dc"] }, Open ]], Cell[CellGroupData[{ @@ -106,34 +101,32 @@ Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", - CellLabel-> - "In[379]:=",ExpressionUUID->"41f05153-1908-4f00-a841-ae32c5084d77"], + CellLabel->"In[5]:=",ExpressionUUID->"41f05153-1908-4f00-a841-ae32c5084d77"], Cell[BoxData["0.5455000000000001`"], "Output", CellChangeTimes->{ 3.9913196497965145`*^9, 3.99380454972574*^9, 3.993804626048635*^9, { 3.9938046625774603`*^9, 3.993804748860417*^9}, 3.993909601785378*^9, 3.993909669330983*^9, 3.9939097526503696`*^9, 3.993909908626553*^9, { - 3.9939099555442657`*^9, 3.993909989776597*^9}, 3.9939110377283*^9}, - CellLabel-> - "Out[379]=",ExpressionUUID->"7a9c001c-3924-42d7-bc5a-54b5337189c1"] + 3.9939099555442657`*^9, 3.993909989776597*^9}, 3.9939110377283*^9, + 3.994250266208706*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"c8b2455f-8da7-4d15-acb8-204a4ffbc993"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", - CellLabel-> - "In[380]:=",ExpressionUUID->"41549578-bfdd-4c63-919a-ca83e6cfaefc"], + CellLabel->"In[6]:=",ExpressionUUID->"41549578-bfdd-4c63-919a-ca83e6cfaefc"], Cell[BoxData["0.17`"], "Output", CellChangeTimes->{ 3.9913196498144608`*^9, 3.993804549747018*^9, 3.993804626052534*^9, { 3.9938046625812197`*^9, 3.9938047488891172`*^9}, 3.9939096018028593`*^9, 3.993909669362465*^9, 3.993909752666353*^9, 3.99390990864529*^9, { - 3.9939099555482264`*^9, 3.993909989792164*^9}, 3.9939110377422857`*^9}, - CellLabel-> - "Out[380]=",ExpressionUUID->"bafbd14c-ca5e-4a37-a07c-0553e416ccb2"] + 3.9939099555482264`*^9, 3.993909989792164*^9}, 3.9939110377422857`*^9, + 3.9942502662503853`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"7fd8b0c9-023f-490e-aca8-af97d67d559d"] }, Open ]], Cell[CellGroupData[{ @@ -144,17 +137,16 @@ Cell[BoxData[ SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}]}]], "Input", CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, - CellLabel-> - "In[381]:=",ExpressionUUID->"5709b6e1-d7b3-4886-a917-560d39a0bd84"], + CellLabel->"In[7]:=",ExpressionUUID->"5709b6e1-d7b3-4886-a917-560d39a0bd84"], Cell[BoxData["6.244526630021248`"], "Output", CellChangeTimes->{ 3.9913196498225155`*^9, 3.993804549770184*^9, 3.993804626085994*^9, { 3.9938046626047153`*^9, 3.993804748905245*^9}, 3.993909601820876*^9, 3.9939096693803263`*^9, 3.993909752687901*^9, 3.993909908664627*^9, { - 3.993909955570965*^9, 3.993909989807292*^9}, 3.99391103775216*^9}, - CellLabel-> - "Out[381]=",ExpressionUUID->"60667043-fdb9-4519-afb3-9c89e6ca31e3"] + 3.993909955570965*^9, 3.993909989807292*^9}, 3.99391103775216*^9, + 3.994250266289281*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"dd6f7ce0-e866-44cd-a341-256e9bd7ba47"] }, Open ]], Cell[CellGroupData[{ @@ -166,17 +158,16 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", - CellLabel-> - "In[382]:=",ExpressionUUID->"a0107a62-7ec2-409a-b807-ea94b3cf0630"], + CellLabel->"In[8]:=",ExpressionUUID->"a0107a62-7ec2-409a-b807-ea94b3cf0630"], Cell[BoxData["5.08024220226995`"], "Output", CellChangeTimes->{ 3.9913196498425236`*^9, 3.9938045497749643`*^9, 3.993804626103525*^9, { 3.993804662619735*^9, 3.993804748921926*^9}, 3.993909601824861*^9, 3.99390966939812*^9, 3.993909752692038*^9, 3.993909908682929*^9, { - 3.993909955589458*^9, 3.993909989822392*^9}, 3.99391103776814*^9}, - CellLabel-> - "Out[382]=",ExpressionUUID->"51e3025d-5121-4acc-a584-c09be5affe5d"] + 3.993909955589458*^9, 3.993909989822392*^9}, 3.99391103776814*^9, + 3.9942502663247213`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"72f01787-8098-4231-8ed7-d8b409b1dc12"] }, Open ]], Cell[CellGroupData[{ @@ -185,17 +176,15 @@ Cell[BoxData[ RowBox[{"b1", "=", "0.9831"}]], "Input", CellChangeTimes->{ 3.991799283179735*^9, {3.9938043369460163`*^9, 3.993804343883932*^9}}, - CellLabel-> - "In[383]:=",ExpressionUUID->"636ac2f6-3024-432d-b163-bcf5b0a8ed7a"], + CellLabel->"In[9]:=",ExpressionUUID->"636ac2f6-3024-432d-b163-bcf5b0a8ed7a"], Cell[BoxData["0.9831`"], "Output", CellChangeTimes->{ 3.993804549811586*^9, 3.993804626121752*^9, {3.993804662635777*^9, 3.9938047489393063`*^9}, 3.993909601854841*^9, 3.993909669421215*^9, 3.9939097527133102`*^9, 3.99390990870128*^9, {3.993909955606114*^9, - 3.9939099898261213`*^9}, 3.9939110377823877`*^9}, - CellLabel-> - "Out[383]=",ExpressionUUID->"61bb687b-7628-47f0-ba8d-cc0dcb08bdec"] + 3.9939099898261213`*^9}, 3.9939110377823877`*^9, 3.99425026636443*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"cd851554-0d0d-4cb4-9654-1b670836e6ed"] }, Open ]], Cell[CellGroupData[{ @@ -204,51 +193,47 @@ Cell[BoxData[ RowBox[{"b2", "=", "0.463"}]], "Input", CellChangeTimes->{ 3.991799280663351*^9, {3.9938043632365713`*^9, 3.993804381532929*^9}}, - CellLabel-> - "In[384]:=",ExpressionUUID->"7b7fb43d-a28c-43a3-b61a-23f6168edf15"], + CellLabel->"In[10]:=",ExpressionUUID->"7b7fb43d-a28c-43a3-b61a-23f6168edf15"], Cell[BoxData["0.463`"], "Output", CellChangeTimes->{ 3.993804549830037*^9, 3.993804626139834*^9, {3.993804662651184*^9, 3.993804748955449*^9}, 3.993909601874164*^9, 3.993909669438889*^9, 3.99390975272956*^9, 3.9939099087196302`*^9, {3.99390995562206*^9, - 3.993909989846019*^9}, 3.993911037796595*^9}, - CellLabel-> - "Out[384]=",ExpressionUUID->"6a8cd77a-0723-4fdd-befb-25887a9176ff"] + 3.993909989846019*^9}, 3.993911037796595*^9, 3.994250266404858*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"18b9e5e3-e5ee-46b1-bf44-8829cecc4afd"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", - CellLabel-> - "In[385]:=",ExpressionUUID->"b9037d32-08c5-4b43-b77b-c223e453cddb"], + CellLabel->"In[11]:=",ExpressionUUID->"b9037d32-08c5-4b43-b77b-c223e453cddb"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498927155`*^9, 3.9938045498689833`*^9, 3.993804626160439*^9, { 3.993804662666739*^9, 3.9938047489718924`*^9}, 3.993909601896028*^9, 3.993909669457499*^9, 3.993909752744871*^9, 3.9939099087374763`*^9, { - 3.993909955638915*^9, 3.993909989862071*^9}, 3.993911037811788*^9}, - CellLabel-> - "Out[385]=",ExpressionUUID->"88526cba-413c-4e8f-a247-63b7aaaa582a"] + 3.993909955638915*^9, 3.993909989862071*^9}, 3.993911037811788*^9, + 3.994250266431389*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"25be450c-b03c-4d96-a0bd-5e0a316b9fe3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", - CellLabel-> - "In[386]:=",ExpressionUUID->"fcbeb936-c4b5-4282-b9a2-fe0786c368b1"], + CellLabel->"In[12]:=",ExpressionUUID->"fcbeb936-c4b5-4282-b9a2-fe0786c368b1"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498996067`*^9, 3.9938045498874207`*^9, 3.9938046261797523`*^9, { 3.993804662682715*^9, 3.993804748988103*^9}, 3.993909601914316*^9, 3.993909669475305*^9, 3.993909752760817*^9, 3.993909908755747*^9, { - 3.993909955656601*^9, 3.993909989865912*^9}, 3.9939110378223057`*^9}, - CellLabel-> - "Out[386]=",ExpressionUUID->"2b687b6b-552c-4a6b-ad1e-afbd230ca4ed"] + 3.993909955656601*^9, 3.993909989865912*^9}, 3.9939110378223057`*^9, + 3.994250266465857*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"46479521-38b2-4543-8ab9-a02591db558d"] }, Open ]], Cell[CellGroupData[{ @@ -272,17 +257,16 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[387]:=",ExpressionUUID->"417e4130-f2b1-4e39-b540-9674d94f7503"], + CellLabel->"In[13]:=",ExpressionUUID->"417e4130-f2b1-4e39-b540-9674d94f7503"], Cell[BoxData["2.5173601133375656`"], "Output", CellChangeTimes->{ 3.9913197863028755`*^9, 3.9938045499058733`*^9, 3.993804626198407*^9, { 3.9938046626977053`*^9, 3.993804749004431*^9}, 3.9939096019331207`*^9, 3.993909669493326*^9, 3.993909752780408*^9, 3.993909908773466*^9, { - 3.993909955671833*^9, 3.993909989883627*^9}, 3.993911037838347*^9}, - CellLabel-> - "Out[387]=",ExpressionUUID->"32b8ffec-a4e8-45a2-a216-40ca76ffe4be"] + 3.993909955671833*^9, 3.993909989883627*^9}, 3.993911037838347*^9, + 3.994250266510013*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"5526fb10-f75b-4466-ba4e-9b96b297ee80"] }, Open ]], Cell[CellGroupData[{ @@ -306,17 +290,16 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[388]:=",ExpressionUUID->"b4aa75b6-ed33-41c9-b0cd-b743a5f94ef8"], + CellLabel->"In[14]:=",ExpressionUUID->"b4aa75b6-ed33-41c9-b0cd-b743a5f94ef8"], Cell[BoxData["1.5234450434796134`"], "Output", CellChangeTimes->{ 3.9913197864610195`*^9, 3.993804549925211*^9, 3.993804626217005*^9, { 3.993804662711796*^9, 3.99380474902066*^9}, 3.993909601952641*^9, 3.9939096695112753`*^9, 3.993909752793829*^9, 3.9939099087914257`*^9, { - 3.993909955686531*^9, 3.993909989897831*^9}, 3.993911037853894*^9}, - CellLabel-> - "Out[388]=",ExpressionUUID->"179ec3e0-52a4-4463-92d2-a771f3308974"] + 3.993909955686531*^9, 3.993909989897831*^9}, 3.993911037853894*^9, + 3.9942502665517607`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"40a2fe55-0519-488a-a65c-3a1d27bb4a76"] }, Open ]], Cell[CellGroupData[{ @@ -324,25 +307,87 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c11", "=", RowBox[{"1", "-", - FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"df14f441-4a87-4295-a720-81ccd5a32dae"], + +Cell[BoxData["0.2814027825454283`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.9938045499441977`*^9, 3.993804626236014*^9, { + 3.993804662725235*^9, 3.993804749036929*^9}, 3.993909601972386*^9, + 3.993909669529284*^9, 3.993909752809037*^9, 3.9939099088105917`*^9, { + 3.993909955701372*^9, 3.993909989911367*^9}, 3.993911037869225*^9, + 3.994250266634776*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"98186082-1b9d-44b0-a00d-8b05d693337f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + RowBox[{ + RowBox[{"(", RowBox[{ RowBox[{"(", - RowBox[{ - RowBox[{"R02", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b2", "*", "b2"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b2", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", - RowBox[{"d", "*", - SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", RowBox[{"(", - RowBox[{ - SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], ")"}], "/", + RowBox[{"(", RowBox[{ RowBox[{"R01", "*", RowBox[{"(", @@ -368,68 +413,8 @@ Cell[BoxData[ SuperscriptBox["w1", "2"]}], "+", RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", - SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", - CellLabel-> - "In[389]:=",ExpressionUUID->"df14f441-4a87-4295-a720-81ccd5a32dae"], - -Cell[BoxData["0.2814027825454283`"], "Output", - CellChangeTimes->{ - 3.991319786533783*^9, 3.9938045499441977`*^9, 3.993804626236014*^9, { - 3.993804662725235*^9, 3.993804749036929*^9}, 3.993909601972386*^9, - 3.993909669529284*^9, 3.993909752809037*^9, 3.9939099088105917`*^9, { - 3.993909955701372*^9, 3.993909989911367*^9}, 3.993911037869225*^9}, - CellLabel-> - "Out[389]=",ExpressionUUID->"5ec68db5-7cae-42cb-a223-7b33cf0f9825"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"c12", "=", - FractionBox[ - RowBox[{ - RowBox[{"(", - RowBox[{"R02", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b2", "*", "b2"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b2", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", - RowBox[{"(", - RowBox[{"1", "-", - SuperscriptBox["w2", "2"]}], ")"}]}], - RowBox[{ - RowBox[{"R01", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b1", "*", "b1"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b1", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w2", "2"]}], "+", - RowBox[{"R02", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b2", "*", "b2"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b2", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w1", "2"]}], "+", - RowBox[{"d", "*", - SuperscriptBox["w2", "2"], "*", - SuperscriptBox["w1", "2"]}]}]]}]], "Input", - CellLabel-> - "In[390]:=",ExpressionUUID->"fb1bf839-fed5-405c-bd20-b6c9348412b6"], + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"fb1bf839-fed5-405c-bd20-b6c9348412b6"], Cell[BoxData[ RowBox[{"-", "0.056142152983087`"}]], "Output", @@ -437,95 +422,33 @@ Cell[BoxData[ 3.991319786540777*^9, 3.993804549962688*^9, 3.993804626257918*^9, { 3.993804662739541*^9, 3.993804749053331*^9}, 3.9939096019922533`*^9, 3.9939096695470543`*^9, 3.993909752823636*^9, 3.993909908814773*^9, { - 3.993909955715828*^9, 3.993909989925456*^9}, 3.993911037882963*^9}, - CellLabel-> - "Out[390]=",ExpressionUUID->"fce84782-b694-483c-8ffe-91cb0ed7b14f"] + 3.993909955715828*^9, 3.993909989925456*^9}, 3.993911037882963*^9, + 3.994250266666953*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"f5e39cec-c7ec-4799-b230-41b4a7190750"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c21", "=", - FractionBox[ - RowBox[{ - RowBox[{"(", - RowBox[{"R01", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b1", "*", "b1"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b1", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", - RowBox[{"(", - RowBox[{"1", "-", - SuperscriptBox["w1", "2"]}], ")"}]}], - RowBox[{ - RowBox[{"R01", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b1", "*", "b1"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b1", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w2", "2"]}], "+", - RowBox[{"R02", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b2", "*", "b2"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b2", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w1", "2"]}], "+", - RowBox[{"d", "*", - SuperscriptBox["w2", "2"], "*", - SuperscriptBox["w1", "2"]}]}]]}]], "Input", - CellLabel-> - "In[391]:=",ExpressionUUID->"8373afe2-afec-489f-8564-39b14c4e3251"], - -Cell[BoxData[ - RowBox[{"-", "0.3374911667667172`"}]], "Output", - CellChangeTimes->{ - 3.9913197865777817`*^9, 3.993804549981371*^9, 3.993804626278822*^9, { - 3.9938046627542543`*^9, 3.993804749069655*^9}, 3.993909602011525*^9, - 3.993909669564651*^9, 3.993909752838642*^9, 3.9939099088478737`*^9, { - 3.993909955730867*^9, 3.993909989940257*^9}, 3.9939110378987722`*^9}, - CellLabel-> - "Out[391]=",ExpressionUUID->"03369303-0f9a-496b-b644-da890b74728b"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"c22", "=", - RowBox[{"1", "-", - FractionBox[ + RowBox[{ + RowBox[{"(", RowBox[{ RowBox[{"(", - RowBox[{ - RowBox[{"R01", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b1", "*", "b1"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b1", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", - RowBox[{"d", "*", - SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", RowBox[{"(", - RowBox[{ - SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], ")"}], "/", + RowBox[{"(", RowBox[{ RowBox[{"R01", "*", RowBox[{"(", @@ -551,69 +474,130 @@ Cell[BoxData[ SuperscriptBox["w1", "2"]}], "+", RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", - SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", - CellLabel-> - "In[392]:=",ExpressionUUID->"ecd52cbc-ac4b-46c8-9f6d-5b532e60bc36"], + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"8373afe2-afec-489f-8564-39b14c4e3251"], + +Cell[BoxData[ + RowBox[{"-", "0.3374911667667172`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.993804549981371*^9, 3.993804626278822*^9, { + 3.9938046627542543`*^9, 3.993804749069655*^9}, 3.993909602011525*^9, + 3.993909669564651*^9, 3.993909752838642*^9, 3.9939099088478737`*^9, { + 3.993909955730867*^9, 3.993909989940257*^9}, 3.9939110378987722`*^9, + 3.9942502667006702`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"b07e74f0-6fd4-4eec-86fa-12fe28c56087"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"ecd52cbc-ac4b-46c8-9f6d-5b532e60bc36"], Cell[BoxData["0.5841645161809887`"], "Output", CellChangeTimes->{ 3.9913197866129*^9, 3.99380455000006*^9, 3.993804626300075*^9, { 3.993804662773251*^9, 3.993804749085907*^9}, 3.993909602031176*^9, 3.9939096695825167`*^9, 3.993909752853649*^9, 3.993909908866128*^9, { - 3.99390995574667*^9, 3.993909989956238*^9}, 3.9939110379104853`*^9}, - CellLabel-> - "Out[392]=",ExpressionUUID->"8295c406-bcd4-426c-8f3a-94863916736a"] + 3.99390995574667*^9, 3.993909989956238*^9}, 3.9939110379104853`*^9, + 3.9942502667367363`*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"c3f36a3b-6924-4a0f-9adc-ccddcbc153aa"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", - CellLabel-> - "In[393]:=",ExpressionUUID->"f9e1f2f8-62ca-48cc-a15b-da24067d61ee"], + CellLabel->"In[19]:=",ExpressionUUID->"f9e1f2f8-62ca-48cc-a15b-da24067d61ee"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786620775*^9, 3.993804550019484*^9, 3.993804626319972*^9, { 3.993804662777142*^9, 3.9938047491020308`*^9}, 3.99390960204895*^9, 3.9939096695998087`*^9, 3.9939097528680077`*^9, 3.9939099088839207`*^9, { - 3.993909955761622*^9, 3.993909989971353*^9}, 3.993911037920701*^9}, - CellLabel-> - "Out[393]=",ExpressionUUID->"6f3c7896-8947-4195-a0f4-f721808fb326"] + 3.993909955761622*^9, 3.993909989971353*^9}, 3.993911037920701*^9, + 3.9942502667645187`*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"19dee2bd-7532-44c8-98e8-f977e2477f27"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fin", "=", "0.09"}]], "Input", - CellLabel-> - "In[394]:=",ExpressionUUID->"e24330f7-97a2-461b-a8b4-b8973bc9a75a"], + CellLabel->"In[20]:=",ExpressionUUID->"e24330f7-97a2-461b-a8b4-b8973bc9a75a"], Cell[BoxData["0.09`"], "Output", CellChangeTimes->{ 3.991319786657793*^9, 3.9938045500378237`*^9, 3.993804626339315*^9, { 3.993804662793344*^9, 3.99380474911817*^9}, 3.993909602068466*^9, 3.9939096696185913`*^9, 3.993909752884066*^9, 3.993909908903553*^9, { - 3.9939099557765713`*^9, 3.993909989986253*^9}, 3.993911037933847*^9}, - CellLabel-> - "Out[394]=",ExpressionUUID->"6d31738c-f199-4c93-9a6a-236c16f13995"] + 3.9939099557765713`*^9, 3.993909989986253*^9}, 3.993911037933847*^9, + 3.994250266802301*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"1bb9913a-53a7-4a96-9257-490c4a5b4be6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffin", "=", "0.42"}]], "Input", - CellLabel-> - "In[395]:=",ExpressionUUID->"011c1e33-c606-4918-88c9-27d634a13cba"], + CellLabel->"In[21]:=",ExpressionUUID->"011c1e33-c606-4918-88c9-27d634a13cba"], Cell[BoxData["0.42`"], "Output", CellChangeTimes->{ 3.9913197866657925`*^9, 3.9938045500560837`*^9, 3.9938046263600817`*^9, { 3.99380466280895*^9, 3.993804749134166*^9}, 3.993909602086402*^9, 3.9939096696362677`*^9, 3.99390975290001*^9, 3.9939099089231663`*^9, { - 3.9939099557917356`*^9, 3.9939099900012712`*^9}, 3.99391103794767*^9}, - CellLabel-> - "Out[395]=",ExpressionUUID->"9c81f793-174e-4d73-894f-eabad6bf8aa6"] + 3.9939099557917356`*^9, 3.9939099900012712`*^9}, 3.99391103794767*^9, + 3.994250266834391*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"cc0bda9b-0d4b-4095-b2de-101082904ed0"] }, Open ]], Cell[CellGroupData[{ @@ -622,8 +606,7 @@ Cell[BoxData[ RowBox[{"fex", "=", RowBox[{"-", "2.59"}]}]], "Input", CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, - CellLabel-> - "In[396]:=",ExpressionUUID->"6be913a8-c54f-488d-8d90-c7271ff8c2de"], + CellLabel->"In[22]:=",ExpressionUUID->"6be913a8-c54f-488d-8d90-c7271ff8c2de"], Cell[BoxData[ RowBox[{"-", "2.59`"}]], "Output", @@ -631,26 +614,25 @@ Cell[BoxData[ 3.9913197866996*^9, 3.993804550075344*^9, 3.993804626383381*^9, { 3.99380466282749*^9, 3.993804749150152*^9}, 3.993909602104745*^9, 3.9939096696539907`*^9, 3.993909752916039*^9, 3.993909908940823*^9, { - 3.993909955808311*^9, 3.993909990017736*^9}, 3.993911037961752*^9}, - CellLabel-> - "Out[396]=",ExpressionUUID->"420596df-c0fc-4bd7-9d6f-bc679216ad2c"] + 3.993909955808311*^9, 3.993909990017736*^9}, 3.993911037961752*^9, + 3.9942502668718977`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"9e026328-9157-4d24-a1cb-c40d15f3b396"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffex", "=", "0.54"}]], "Input", - CellLabel-> - "In[397]:=",ExpressionUUID->"add03edc-2776-45d5-a58f-7187a239bb40"], + CellLabel->"In[23]:=",ExpressionUUID->"add03edc-2776-45d5-a58f-7187a239bb40"], Cell[BoxData["0.54`"], "Output", CellChangeTimes->{ 3.9913197867406044`*^9, 3.993804550093996*^9, 3.99380462640412*^9, { 3.9938046628451138`*^9, 3.993804749168808*^9}, 3.993909602124238*^9, 3.993909669671417*^9, 3.9939097529322453`*^9, 3.993909908959701*^9, { - 3.99390995582368*^9, 3.9939099900328217`*^9}, 3.993911037972886*^9}, - CellLabel-> - "Out[397]=",ExpressionUUID->"bd6ff632-d188-49b1-89b5-efeb048893f6"] + 3.99390995582368*^9, 3.9939099900328217`*^9}, 3.993911037972886*^9, + 3.994250266911407*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"4afba6c8-104d-41a1-af5b-3ae772ad541e"] }, Open ]], Cell[CellGroupData[{ @@ -660,17 +642,15 @@ Cell[BoxData[ CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { 3.9938046144530077`*^9, 3.9938046145855627`*^9}}, - CellLabel-> - "In[398]:=",ExpressionUUID->"2fbd90d7-193f-4d04-8180-1206116ebdb2"], + CellLabel->"In[24]:=",ExpressionUUID->"2fbd90d7-193f-4d04-8180-1206116ebdb2"], Cell[BoxData["66"], "Output", CellChangeTimes->{ 3.9913197867861958`*^9, 3.993804626423663*^9, {3.993804662861299*^9, 3.99380474918727*^9}, 3.993909602142963*^9, 3.99390966968908*^9, 3.993909752947946*^9, 3.993909908977618*^9, {3.993909955827662*^9, - 3.993909990050256*^9}, 3.993911037994136*^9}, - CellLabel-> - "Out[398]=",ExpressionUUID->"e5e42f13-5ce8-4763-bb85-89c27bbf3fd8"] + 3.993909990050256*^9}, 3.993911037994136*^9, 3.994250266947044*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"70399c3a-7204-43fe-a28f-960a45fed4fd"] }, Open ]], Cell[CellGroupData[{ @@ -680,17 +660,16 @@ Cell[BoxData[ RowBox[{"94", "-", "Z1"}]}]], "Input", CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, 3.9916443064841423`*^9, {3.99380461799697*^9, 3.993804618062627*^9}}, - CellLabel-> - "In[399]:=",ExpressionUUID->"fc4235bf-fadc-4690-8f0d-18f3b2200088"], + CellLabel->"In[25]:=",ExpressionUUID->"fc4235bf-fadc-4690-8f0d-18f3b2200088"], Cell[BoxData["28"], "Output", CellChangeTimes->{ 3.9913197867928696`*^9, 3.9938045501483994`*^9, 3.993804626442574*^9, { 3.993804662877561*^9, 3.9938047492047462`*^9}, 3.993909602161409*^9, 3.993909669707423*^9, 3.993909752964058*^9, 3.9939099089960423`*^9, { - 3.993909955845819*^9, 3.993909990065692*^9}, 3.993911038007214*^9}, - CellLabel-> - "Out[399]=",ExpressionUUID->"24dbef3c-4ae3-41d7-9b31-769355b412ff"] + 3.993909955845819*^9, 3.993909990065692*^9}, 3.993911038007214*^9, + 3.994250266983903*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"814d5698-4af1-4386-a717-98c29df849a4"] }, Open ]], Cell[CellGroupData[{ @@ -699,17 +678,16 @@ Cell[BoxData[ RowBox[{"A2", "=", RowBox[{"A", "-", "A1"}]}]], "Input", CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, - CellLabel-> - "In[400]:=",ExpressionUUID->"5f74ce5d-7cfb-4ba8-aaf8-5d83cab854b9"], + CellLabel->"In[26]:=",ExpressionUUID->"5f74ce5d-7cfb-4ba8-aaf8-5d83cab854b9"], Cell[BoxData["84"], "Output", CellChangeTimes->{ 3.991319786827894*^9, 3.993804550167096*^9, 3.993804626459854*^9, { 3.993804662896564*^9, 3.9938047492214317`*^9}, 3.993909602179817*^9, 3.993909669724697*^9, 3.993909752980503*^9, 3.9939099090164824`*^9, { - 3.993909955861395*^9, 3.9939099900817633`*^9}, 3.993911038026639*^9}, - CellLabel-> - "Out[400]=",ExpressionUUID->"10cff456-b828-4002-9096-a1ef2322e773"] + 3.993909955861395*^9, 3.9939099900817633`*^9}, 3.993911038026639*^9, + 3.994250267024177*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"20258c55-de00-4daf-b7a4-9ab0b35c9f8b"] }, Open ]], Cell[CellGroupData[{ @@ -724,17 +702,16 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[401]:=",ExpressionUUID->"9fa1cd0a-4306-4258-afa3-6065345a4359"], + CellLabel->"In[27]:=",ExpressionUUID->"9fa1cd0a-4306-4258-afa3-6065345a4359"], Cell[BoxData["0.11153846153846153`"], "Output", CellChangeTimes->{ 3.9913197868648605`*^9, 3.9938045501856823`*^9, 3.993804626476894*^9, { 3.993804662912559*^9, 3.993804749238111*^9}, 3.993909602199831*^9, 3.993909669742579*^9, 3.9939097529958878`*^9, 3.993909909035789*^9, { - 3.993909955876047*^9, 3.9939099900975027`*^9}, 3.9939110380410423`*^9}, - CellLabel-> - "Out[401]=",ExpressionUUID->"33004a9b-800c-4fff-bb82-fb359bbd1c9b"] + 3.993909955876047*^9, 3.9939099900975027`*^9}, 3.9939110380410423`*^9, + 3.9942502670345707`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"98e00214-d8b2-4a8a-9e61-f4363a7bdc56"] }, Open ]], Cell[CellGroupData[{ @@ -749,8 +726,7 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[402]:=",ExpressionUUID->"09c01555-6043-4676-bd39-e31b19457e4b"], + CellLabel->"In[28]:=",ExpressionUUID->"09c01555-6043-4676-bd39-e31b19457e4b"], Cell[BoxData[ RowBox[{"-", "2.562307692307692`"}]], "Output", @@ -758,9 +734,9 @@ Cell[BoxData[ 3.9913197868718567`*^9, 3.993804550204549*^9, 3.9938046264931793`*^9, { 3.993804662930933*^9, 3.993804749256987*^9}, 3.993909602217969*^9, 3.993909669760494*^9, 3.99390975301192*^9, 3.993909909054161*^9, { - 3.99390995589108*^9, 3.993909990112661*^9}, 3.993911038085093*^9}, - CellLabel-> - "Out[402]=",ExpressionUUID->"9b490649-9d84-4d5b-8157-f49fff47fe6d"] + 3.99390995589108*^9, 3.993909990112661*^9}, 3.993911038085093*^9, + 3.994250267076768*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"fde49fca-2726-4c02-8d7c-cd6b16f211d2"] }, Open ]], Cell[CellGroupData[{ @@ -791,17 +767,16 @@ Cell[BoxData[ CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, - CellLabel-> - "In[403]:=",ExpressionUUID->"69f69ce7-bfb8-4f66-ba9e-f95a6d86dc06"], + CellLabel->"In[29]:=",ExpressionUUID->"69f69ce7-bfb8-4f66-ba9e-f95a6d86dc06"], Cell[BoxData["22.163907548137733`"], "Output", CellChangeTimes->{ 3.9913197869068584`*^9, 3.993804550224925*^9, 3.993804626512244*^9, { 3.993804662948985*^9, 3.993804749273611*^9}, 3.993909602237144*^9, 3.99390966977844*^9, 3.993909753027061*^9, 3.993909909073007*^9, { - 3.9939099559075603`*^9, 3.993909990129081*^9}, 3.993911038106782*^9}, - CellLabel-> - "Out[403]=",ExpressionUUID->"a263013c-a933-46e6-89ad-22e7826fe2e3"] + 3.9939099559075603`*^9, 3.993909990129081*^9}, 3.993911038106782*^9, + 3.994250267116708*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"1cbe0891-50f3-4344-9a28-a842b235949c"] }, Open ]], Cell[CellGroupData[{ @@ -809,17 +784,16 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, - CellLabel-> - "In[404]:=",ExpressionUUID->"2ba5902a-1951-4847-91cb-b0923cd2fa14"], + CellLabel->"In[30]:=",ExpressionUUID->"2ba5902a-1951-4847-91cb-b0923cd2fa14"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786940857*^9, 3.993804550242552*^9, 3.993804626529005*^9, { 3.993804662966734*^9, 3.9938047492900057`*^9}, 3.993909602255596*^9, 3.993909669800799*^9, 3.993909753041724*^9, 3.993909909091654*^9, { - 3.9939099559230347`*^9, 3.993909990146391*^9}, 3.9939110381243277`*^9}, - CellLabel-> - "Out[404]=",ExpressionUUID->"b109a9cd-f642-4657-b4fc-b30b971cac78"] + 3.9939099559230347`*^9, 3.993909990146391*^9}, 3.9939110381243277`*^9, + 3.994250267153191*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"f4d303e9-2ea3-41a8-99fe-a5a01a64f456"] }, Open ]], Cell[CellGroupData[{ @@ -829,23 +803,20 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { 3.9938043992805843`*^9, 3.993804401771452*^9}}, - CellLabel-> - "In[405]:=",ExpressionUUID->"db3c1156-4ab5-445a-93e3-5e6eb64b0af5"], + CellLabel->"In[31]:=",ExpressionUUID->"db3c1156-4ab5-445a-93e3-5e6eb64b0af5"], Cell[BoxData["1.653`"], "Output", CellChangeTimes->{ 3.993804550280451*^9, 3.993804626545594*^9, {3.993804662983712*^9, 3.9938047493074627`*^9}, 3.9939096022742043`*^9, 3.99390966981877*^9, 3.9939097530579777`*^9, 3.993909909111307*^9, {3.993909955941221*^9, - 3.993909990162526*^9}, 3.993911038139822*^9}, - CellLabel-> - "Out[405]=",ExpressionUUID->"b2fbf44f-506d-44e8-9544-1867ac6550b2"] + 3.993909990162526*^9}, 3.993911038139822*^9, 3.994250267186331*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"880910dc-70a4-4f67-8037-ad61b06bcf52"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, - CellLabel-> - "In[406]:=",ExpressionUUID->"5931bbf5-181e-415f-82d2-c1c2cb0e608a"], + CellLabel->"In[32]:=",ExpressionUUID->"5931bbf5-181e-415f-82d2-c1c2cb0e608a"], Cell[CellGroupData[{ @@ -854,23 +825,20 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { 3.9938044044051847`*^9, 3.993804405718573*^9}}, - CellLabel-> - "In[407]:=",ExpressionUUID->"bd268473-bc46-4773-9997-e67daff24693"], + CellLabel->"In[33]:=",ExpressionUUID->"bd268473-bc46-4773-9997-e67daff24693"], Cell[BoxData["0.855`"], "Output", CellChangeTimes->{ 3.9938045503168097`*^9, 3.993804626574059*^9, {3.993804663013727*^9, 3.993804749370492*^9}, 3.993909602333745*^9, 3.99390966987148*^9, 3.9939097530831842`*^9, 3.993909909145574*^9, {3.993909955961776*^9, - 3.993909990180032*^9}, 3.993911038176929*^9}, - CellLabel-> - "Out[407]=",ExpressionUUID->"f891d17f-6856-46a0-b060-d5a4704e4ab2"] + 3.993909990180032*^9}, 3.993911038176929*^9, 3.994250267237556*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"0565c7d2-68e1-4541-a307-56bccfb7deef"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, - CellLabel-> - "In[408]:=",ExpressionUUID->"972ec9a7-2100-480e-904a-88a4be38cc23"], + CellLabel->"In[34]:=",ExpressionUUID->"972ec9a7-2100-480e-904a-88a4be38cc23"], Cell[CellGroupData[{ @@ -879,23 +847,20 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { 3.9938044089096622`*^9, 3.993804410585486*^9}}, - CellLabel-> - "In[409]:=",ExpressionUUID->"aa1e39a9-2135-47d8-a0b5-63b872d3c5ae"], + CellLabel->"In[35]:=",ExpressionUUID->"aa1e39a9-2135-47d8-a0b5-63b872d3c5ae"], Cell[BoxData["2.405`"], "Output", CellChangeTimes->{ 3.993804550350713*^9, 3.993804626598034*^9, {3.993804663037463*^9, 3.993804749435276*^9}, 3.9939096023888474`*^9, 3.993909669925479*^9, 3.9939097531059*^9, 3.993909909180294*^9, {3.9939099559820957`*^9, - 3.993909990196824*^9}, 3.993911038201398*^9}, - CellLabel-> - "Out[409]=",ExpressionUUID->"69bb5a1b-11ec-44f4-bd72-b6479f6f28cb"] + 3.993909990196824*^9}, 3.993911038201398*^9, 3.99425026727769*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"e6b784c6-a121-4285-a8f5-eb4bb71654c1"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, - CellLabel-> - "In[410]:=",ExpressionUUID->"9f0b83ba-fe4d-4494-b58a-252ef815fdf2"], + CellLabel->"In[36]:=",ExpressionUUID->"9f0b83ba-fe4d-4494-b58a-252ef815fdf2"], Cell[CellGroupData[{ @@ -904,23 +869,20 @@ Cell[BoxData[ CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, 3.991799359954439*^9, {3.993804414830567*^9, 3.993804416147113*^9}}, - CellLabel-> - "In[411]:=",ExpressionUUID->"d7bec374-17fb-47a0-a3a1-78c5a8fef486"], + CellLabel->"In[37]:=",ExpressionUUID->"d7bec374-17fb-47a0-a3a1-78c5a8fef486"], Cell[BoxData["1.225`"], "Output", CellChangeTimes->{ 3.993804550383745*^9, 3.993804626621963*^9, {3.993804663060033*^9, 3.9938047494929237`*^9}, 3.9939096024465313`*^9, 3.993909669980788*^9, 3.993909753130068*^9, 3.993909909216509*^9, {3.993909956000244*^9, - 3.993909990213717*^9}, 3.993911038229026*^9}, - CellLabel-> - "Out[411]=",ExpressionUUID->"2d4fc780-da15-4d36-985b-a37e7dd5f0b3"] + 3.993909990213717*^9}, 3.993911038229026*^9, 3.9942502673208513`*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"b5bdc12a-811e-43c0-8c48-5c7e71327cbd"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, - CellLabel-> - "In[412]:=",ExpressionUUID->"337543ae-832b-4d9b-bfc6-7bcb457ba7e6"], + CellLabel->"In[38]:=",ExpressionUUID->"337543ae-832b-4d9b-bfc6-7bcb457ba7e6"], Cell[CellGroupData[{ @@ -929,23 +891,20 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, 3.991718016467348*^9, 3.991799361414671*^9, {3.993804418872067*^9, 3.9938044202542753`*^9}}, - CellLabel-> - "In[413]:=",ExpressionUUID->"0a708962-e9f1-4707-b1f9-836dce9e0193"], + CellLabel->"In[39]:=",ExpressionUUID->"0a708962-e9f1-4707-b1f9-836dce9e0193"], Cell[BoxData["1.63`"], "Output", CellChangeTimes->{ 3.993804550416999*^9, 3.993804626645709*^9, {3.9938046630845337`*^9, 3.993804749547261*^9}, 3.993909602527773*^9, 3.993909670035091*^9, 3.993909753153574*^9, 3.993909909250422*^9, {3.993909956017232*^9, - 3.993909990230207*^9}, 3.99391103825677*^9}, - CellLabel-> - "Out[413]=",ExpressionUUID->"b81f3211-78b6-4bd3-9a2e-9e7fb7aa0b0d"] + 3.993909990230207*^9}, 3.99391103825677*^9, 3.994250267366297*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"93c459f8-6b89-4c45-9cf5-695ca04b3bb3"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, - CellLabel-> - "In[414]:=",ExpressionUUID->"969e4461-b550-4fcd-9506-8fa9ab11c4a4"], + CellLabel->"In[40]:=",ExpressionUUID->"969e4461-b550-4fcd-9506-8fa9ab11c4a4"], Cell[CellGroupData[{ @@ -954,23 +913,20 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993804423858293*^9, 3.993804426562767*^9}}, - CellLabel-> - "In[415]:=",ExpressionUUID->"8a5a4a0c-3c8d-43f6-bc79-b05e89692fa2"], + CellLabel->"In[41]:=",ExpressionUUID->"8a5a4a0c-3c8d-43f6-bc79-b05e89692fa2"], Cell[BoxData["0.5571`"], "Output", CellChangeTimes->{ 3.993804550449337*^9, 3.993804626671207*^9, {3.993804663115242*^9, 3.993804749603999*^9}, 3.993909602589055*^9, 3.9939096700891027`*^9, 3.993909753176607*^9, 3.993909909285474*^9, {3.9939099560344143`*^9, - 3.9939099902470818`*^9}, 3.9939110382835693`*^9}, - CellLabel-> - "Out[415]=",ExpressionUUID->"22972986-ffaf-43d9-8331-1203e6e77faa"] + 3.9939099902470818`*^9}, 3.9939110382835693`*^9, 3.994250267408598*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"54450ec1-87dc-458b-a6f5-d0aa49341ccc"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, - CellLabel-> - "In[416]:=",ExpressionUUID->"d562173a-f871-47b4-b1cc-e4805c0d6d5a"], + CellLabel->"In[42]:=",ExpressionUUID->"d562173a-f871-47b4-b1cc-e4805c0d6d5a"], Cell[CellGroupData[{ @@ -979,23 +935,20 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.9938044301504927`*^9, 3.993804433535384*^9}}, - CellLabel-> - "In[417]:=",ExpressionUUID->"f93cc465-f599-4745-bcbf-a8a51fd7a1a9"], + CellLabel->"In[43]:=",ExpressionUUID->"f93cc465-f599-4745-bcbf-a8a51fd7a1a9"], Cell[BoxData["1.82`"], "Output", CellChangeTimes->{ 3.993804550483719*^9, 3.993804626698537*^9, {3.993804663139299*^9, 3.993804749658854*^9}, 3.993909602653262*^9, 3.993909670143072*^9, 3.993909753199719*^9, 3.993909909346984*^9, {3.993909956051777*^9, - 3.9939099902633963`*^9}, 3.99391103830669*^9}, - CellLabel-> - "Out[417]=",ExpressionUUID->"9c6e512b-4de4-46ef-8ab2-e0215070a0c1"] + 3.9939099902633963`*^9}, 3.99391103830669*^9, 3.9942502674447823`*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"75df8110-da98-43ff-8609-7711a5d42f4b"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, - CellLabel-> - "In[418]:=",ExpressionUUID->"c7af8400-6139-42fe-a5e8-672bdba2cdf2"], + CellLabel->"In[44]:=",ExpressionUUID->"c7af8400-6139-42fe-a5e8-672bdba2cdf2"], Cell[CellGroupData[{ @@ -1003,23 +956,20 @@ Cell[BoxData[ RowBox[{"nn2", "=", "1.82"}]], "Input", CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, 3.9917993660901737`*^9, {3.993804436228294*^9, 3.993804438250544*^9}}, - CellLabel-> - "In[419]:=",ExpressionUUID->"89009734-4da1-455a-b750-75ef5b7b38c4"], + CellLabel->"In[45]:=",ExpressionUUID->"89009734-4da1-455a-b750-75ef5b7b38c4"], Cell[BoxData["1.82`"], "Output", CellChangeTimes->{ 3.993804550516501*^9, 3.993804626722493*^9, {3.9938046631629744`*^9, 3.993804749712779*^9}, 3.9939096027072487`*^9, 3.993909670196845*^9, 3.9939097532228928`*^9, 3.993909909381329*^9, {3.993909956068966*^9, - 3.993909990279929*^9}, 3.9939110383309317`*^9}, - CellLabel-> - "Out[419]=",ExpressionUUID->"63f4dbf2-0f15-4a23-8838-ba96610c34f3"] + 3.993909990279929*^9}, 3.9939110383309317`*^9, 3.994250267484476*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"b3493d35-a7fd-463f-bcb3-90093d2a691d"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, - CellLabel-> - "In[420]:=",ExpressionUUID->"6e419f8d-b777-4b6c-8b26-1bc47e16689c"], + CellLabel->"In[46]:=",ExpressionUUID->"6e419f8d-b777-4b6c-8b26-1bc47e16689c"], Cell[CellGroupData[{ @@ -1508,8 +1458,7 @@ uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== "], - CellLabel-> - "In[421]:=",ExpressionUUID->"59c6a01e-7abe-4a0d-b5ab-eddbba5a8883"], + CellLabel->"In[47]:=",ExpressionUUID->"59c6a01e-7abe-4a0d-b5ab-eddbba5a8883"], Cell[BoxData[ RowBox[{"-", "0.04675250913077061`"}]], "Output", @@ -1517,9 +1466,9 @@ Cell[BoxData[ 3.991319787430073*^9, 3.993804550599751*^9, 3.993804626769621*^9, { 3.99380466321212*^9, 3.993804749779405*^9}, 3.993909602821623*^9, 3.9939096702786417`*^9, 3.993909753275091*^9, 3.993909909468431*^9, { - 3.9939099561101503`*^9, 3.993909990324842*^9}, 3.99391103841514*^9}, - CellLabel-> - "Out[421]=",ExpressionUUID->"74b5eeb9-8895-4640-9e7f-b97f932738de"] + 3.9939099561101503`*^9, 3.993909990324842*^9}, 3.99391103841514*^9, + 3.994250267714839*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"44e4d46b-b99f-49e4-a86f-a4631fad7a13"] }, Open ]], Cell[CellGroupData[{ @@ -2013,17 +1962,16 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[422]:=",ExpressionUUID->"9fe9fa3a-9aad-4efe-9673-a425841a5d45"], + CellLabel->"In[48]:=",ExpressionUUID->"9fe9fa3a-9aad-4efe-9673-a425841a5d45"], Cell[BoxData["0.08542989528290149`"], "Output", CellChangeTimes->{ 3.991319787574972*^9, 3.9938045506724253`*^9, 3.993804626799774*^9, { 3.993804663242297*^9, 3.993804749831417*^9}, 3.993909602850985*^9, 3.993909670308428*^9, 3.99390975330634*^9, 3.993909909504902*^9, { - 3.993909956139316*^9, 3.993909990356688*^9}, 3.9939110384758997`*^9}, - CellLabel-> - "Out[422]=",ExpressionUUID->"225c2c94-b8fe-47b2-aa85-cd1a95a70080"] + 3.993909956139316*^9, 3.993909990356688*^9}, 3.9939110384758997`*^9, + 3.994250267867118*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"0f14f789-65a9-4b11-943a-4e466363921d"] }, Open ]], Cell[CellGroupData[{ @@ -2511,8 +2459,7 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[423]:=",ExpressionUUID->"ef1feabe-3968-464c-844d-1e5d155c2fa3"], + CellLabel->"In[49]:=",ExpressionUUID->"ef1feabe-3968-464c-844d-1e5d155c2fa3"], Cell[BoxData[ RowBox[{"-", "92.97992176536582`"}]], "Output", @@ -2520,9 +2467,9 @@ Cell[BoxData[ 3.991319787641424*^9, 3.9938045506993027`*^9, 3.993804626828765*^9, { 3.99380466327107*^9, 3.99380474985798*^9}, 3.993909602878909*^9, 3.9939096703348618`*^9, 3.993909753333283*^9, 3.993909909537113*^9, { - 3.993909956164773*^9, 3.993909990381176*^9}, 3.993911038526807*^9}, - CellLabel-> - "Out[423]=",ExpressionUUID->"3fe860d3-0a7c-452c-94a8-90d5b40fe390"] + 3.993909956164773*^9, 3.993909990381176*^9}, 3.993911038526807*^9, + 3.994250267951889*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"ade9a2b7-65c2-4bf4-b505-7280486764c2"] }, Open ]], Cell[CellGroupData[{ @@ -3080,8 +3027,7 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[424]:=",ExpressionUUID->"1e581ee0-054b-46d2-8c5a-9bb5982d598c"], + CellLabel->"In[50]:=",ExpressionUUID->"1e581ee0-054b-46d2-8c5a-9bb5982d598c"], Cell[BoxData[ RowBox[{"-", "58.84836946427625`"}]], "Output", @@ -3089,9 +3035,9 @@ Cell[BoxData[ 3.991319787711939*^9, 3.993804550730234*^9, 3.993804626860573*^9, { 3.99380466335039*^9, 3.993804749888824*^9}, 3.9939096029089117`*^9, 3.9939096703655453`*^9, 3.993909753364204*^9, 3.9939099095691557`*^9, { - 3.9939099561943274`*^9, 3.9939099904093027`*^9}, 3.9939110385884027`*^9}, - CellLabel-> - "Out[424]=",ExpressionUUID->"6a9faec9-eed0-4e11-a587-a6ac3ae026a8"] + 3.9939099561943274`*^9, 3.9939099904093027`*^9}, 3.9939110385884027`*^9, + 3.994250268045218*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"4ed36e6d-4e5c-4a37-ba24-e8ec99324dca"] }, Open ]], Cell[CellGroupData[{ @@ -3649,8 +3595,7 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[425]:=",ExpressionUUID->"5583bf70-cddf-4d50-81b6-7778328ce6a0"], + CellLabel->"In[51]:=",ExpressionUUID->"5583bf70-cddf-4d50-81b6-7778328ce6a0"], Cell[BoxData[ RowBox[{"-", "175.78557664639112`"}]], "Output", @@ -3658,9 +3603,9 @@ Cell[BoxData[ 3.9913197877723045`*^9, 3.993804550761911*^9, 3.993804626893774*^9, { 3.993804663389638*^9, 3.993804749919907*^9}, 3.9939096029398603`*^9, 3.993909670396442*^9, 3.993909753395891*^9, 3.9939099096076517`*^9, { - 3.9939099562247763`*^9, 3.9939099904381638`*^9}, 3.993911038653371*^9}, - CellLabel-> - "Out[425]=",ExpressionUUID->"14eff3a8-4161-422c-a3a6-8c988877b3f4"] + 3.9939099562247763`*^9, 3.9939099904381638`*^9}, 3.993911038653371*^9, + 3.994250268146137*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"7bdfdb77-c379-4200-8b40-32a4abe956b3"] }, Open ]], Cell[CellGroupData[{ @@ -4291,8 +4236,7 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[426]:=",ExpressionUUID->"d4a9e022-861f-44b4-abb0-cf2c42b811ab"], + CellLabel->"In[52]:=",ExpressionUUID->"d4a9e022-861f-44b4-abb0-cf2c42b811ab"], Cell[BoxData[ RowBox[{"-", "221.57551938396955`"}]], "Output", @@ -4300,43 +4244,41 @@ Cell[BoxData[ 3.991319787833355*^9, 3.993804550797638*^9, 3.993804626930235*^9, { 3.993804663472403*^9, 3.993804749955412*^9}, 3.993909602975071*^9, 3.9939096704323187`*^9, 3.993909753433277*^9, 3.99390990964828*^9, { - 3.9939099562605953`*^9, 3.993909990472554*^9}, 3.993911038752912*^9}, - CellLabel-> - "Out[426]=",ExpressionUUID->"c6577197-bfa6-42df-a82d-96a935534840"] + 3.9939099562605953`*^9, 3.993909990472554*^9}, 3.993911038752912*^9, + 3.994250268260363*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"5972a839-9b36-4010-ba7b-ec26314537bd"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U21", "=", "0"}]], "Input", - CellLabel-> - "In[427]:=",ExpressionUUID->"07a57a47-78cf-4e94-a219-34714ea7078f"], + CellLabel->"In[53]:=",ExpressionUUID->"07a57a47-78cf-4e94-a219-34714ea7078f"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210013676`*^9, 3.9938045508194923`*^9, 3.993804626946419*^9, { 3.993804663488306*^9, 3.993804749974567*^9}, 3.9939096029931*^9, 3.993909670451165*^9, 3.9939097534481*^9, 3.993909909666844*^9, { - 3.993909956278285*^9, 3.9939099904879293`*^9}, 3.9939110387674847`*^9}, - CellLabel-> - "Out[427]=",ExpressionUUID->"4eb78385-cbe7-4eaf-8a71-e49e4baf4bd4"] + 3.993909956278285*^9, 3.9939099904879293`*^9}, 3.9939110387674847`*^9, + 3.994250268299748*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"77e4f596-1d74-4513-9fa2-fec6aa1ec190"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U22", "=", "0"}]], "Input", - CellLabel-> - "In[428]:=",ExpressionUUID->"9f52ceaf-b908-44ad-953a-e2910cf1edf0"], + CellLabel->"In[54]:=",ExpressionUUID->"9f52ceaf-b908-44ad-953a-e2910cf1edf0"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210355663`*^9, 3.993804550838839*^9, 3.99380462696198*^9, { 3.993804663542288*^9, 3.993804749990815*^9}, 3.9939096030110683`*^9, 3.993909670469376*^9, 3.993909753462414*^9, 3.9939099096844893`*^9, { - 3.993909956293055*^9, 3.993909990503254*^9}, 3.993911038779873*^9}, - CellLabel-> - "Out[428]=",ExpressionUUID->"6e664c6f-c830-44a4-a8b7-065ffaffac3f"] + 3.993909956293055*^9, 3.993909990503254*^9}, 3.993911038779873*^9, + 3.99425026833749*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"5d526322-5edb-4071-8cb6-4efd3b0fb66e"] }, Open ]], Cell[CellGroupData[{ @@ -4380,17 +4322,16 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[429]:=",ExpressionUUID->"b3b33961-ae3b-4338-9b97-8b1c115e81a8"], + CellLabel->"In[55]:=",ExpressionUUID->"b3b33961-ae3b-4338-9b97-8b1c115e81a8"], Cell[BoxData["111.7060296377673`"], "Output", CellChangeTimes->{ 3.991320421068556*^9, 3.9938045508585377`*^9, 3.993804626991984*^9, { 3.993804663557494*^9, 3.9938047500074787`*^9}, 3.99390960303067*^9, 3.993909670487976*^9, 3.993909753477995*^9, 3.9939099097033167`*^9, { - 3.993909956309827*^9, 3.993909990518099*^9}, 3.993911038792316*^9}, - CellLabel-> - "Out[429]=",ExpressionUUID->"56155f4f-e685-4a1a-b21c-af1796a094e1"] + 3.993909956309827*^9, 3.993909990518099*^9}, 3.993911038792316*^9, + 3.99425026837116*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"a467e925-d5a9-43bb-8fb7-a5b96d62b77c"] }, Open ]], Cell[CellGroupData[{ @@ -4430,8 +4371,7 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[430]:=",ExpressionUUID->"cb9e573b-77e1-4f2c-a160-b65bdb479ee7"], + CellLabel->"In[56]:=",ExpressionUUID->"cb9e573b-77e1-4f2c-a160-b65bdb479ee7"], Cell[BoxData[ RowBox[{"-", "116.92037152462031`"}]], "Output", @@ -4439,9 +4379,9 @@ Cell[BoxData[ 3.991320421098543*^9, 3.993804550878648*^9, 3.993804627006651*^9, { 3.99380466357337*^9, 3.993804750023952*^9}, 3.993909603048832*^9, 3.993909670506846*^9, 3.99390975349363*^9, 3.993909909722876*^9, { - 3.9939099563244467`*^9, 3.993909990532846*^9}, 3.993911038807075*^9}, - CellLabel-> - "Out[430]=",ExpressionUUID->"380594f3-4c91-4919-9dbd-d6d3ca4a3c8e"] + 3.9939099563244467`*^9, 3.993909990532846*^9}, 3.993911038807075*^9, + 3.994250268406061*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"92d1cdb7-7631-4ea2-a7e6-a113826e1baf"] }, Open ]], Cell[CellGroupData[{ @@ -4485,40 +4425,37 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[431]:=",ExpressionUUID->"70992e07-ab8c-4ce5-b358-14db4a13dc00"], + CellLabel->"In[57]:=",ExpressionUUID->"70992e07-ab8c-4ce5-b358-14db4a13dc00"], Cell[BoxData["187.12903971509587`"], "Output", CellChangeTimes->{ 3.9913204211275444`*^9, 3.9938045509027987`*^9, 3.993804627020084*^9, { 3.993804663589897*^9, 3.993804750040456*^9}, 3.9939096030676117`*^9, 3.9939096705252743`*^9, 3.993909753508572*^9, 3.993909909741909*^9, { - 3.993909956339319*^9, 3.9939099905477867`*^9}, 3.993911038823534*^9}, - CellLabel-> - "Out[431]=",ExpressionUUID->"08b93e62-8b44-4cac-9f59-63efe672ea9a"] + 3.993909956339319*^9, 3.9939099905477867`*^9}, 3.993911038823534*^9, + 3.994250268443108*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"2b69a130-8051-41b9-9e06-ba1cd264138f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c11"], "Input", - CellLabel-> - "In[432]:=",ExpressionUUID->"384b135b-4522-4b24-9059-13c7f46e631d"], + CellLabel->"In[58]:=",ExpressionUUID->"384b135b-4522-4b24-9059-13c7f46e631d"], Cell[BoxData["0.2814027825454283`"], "Output", CellChangeTimes->{ 3.9913204211385536`*^9, 3.9938045509220467`*^9, 3.993804627033495*^9, { 3.993804663606344*^9, 3.9938047500576067`*^9}, 3.993909603085306*^9, 3.993909670543174*^9, 3.993909753523663*^9, 3.9939099097598248`*^9, { - 3.993909956353833*^9, 3.993909990562546*^9}, 3.99391103883325*^9}, - CellLabel-> - "Out[432]=",ExpressionUUID->"705d0161-5a4c-4fef-9632-b8a55b372fc2"] + 3.993909956353833*^9, 3.993909990562546*^9}, 3.99391103883325*^9, + 3.9942502684805927`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"afa19d15-b4f4-4178-95f8-fec27b37dd17"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c12"], "Input", - CellLabel-> - "In[433]:=",ExpressionUUID->"a05eb3c9-d58f-40f8-a39c-a1ab424f5b02"], + CellLabel->"In[59]:=",ExpressionUUID->"a05eb3c9-d58f-40f8-a39c-a1ab424f5b02"], Cell[BoxData[ RowBox[{"-", "0.056142152983087`"}]], "Output", @@ -4526,16 +4463,15 @@ Cell[BoxData[ 3.9913204211683464`*^9, 3.993804550940889*^9, 3.993804627047104*^9, { 3.99380466362283*^9, 3.993804750074596*^9}, 3.993909603103224*^9, 3.993909670561534*^9, 3.993909753539481*^9, 3.993909909777351*^9, { - 3.9939099563684807`*^9, 3.993909990577075*^9}, 3.9939110388486443`*^9}, - CellLabel-> - "Out[433]=",ExpressionUUID->"8c2e52eb-a0b0-4b53-a18c-61cefd6622ff"] + 3.9939099563684807`*^9, 3.993909990577075*^9}, 3.9939110388486443`*^9, + 3.9942502685191727`*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"c43fcadf-c7a0-444e-a6eb-e74d0b37ce91"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c21"], "Input", - CellLabel-> - "In[434]:=",ExpressionUUID->"c36cbbf2-2585-4db0-b38c-380a55b33acc"], + CellLabel->"In[60]:=",ExpressionUUID->"c36cbbf2-2585-4db0-b38c-380a55b33acc"], Cell[BoxData[ RowBox[{"-", "0.3374911667667172`"}]], "Output", @@ -4543,57 +4479,54 @@ Cell[BoxData[ 3.991320421199068*^9, 3.99380455096201*^9, 3.993804627060543*^9, { 3.9938046636401176`*^9, 3.9938047500897923`*^9}, 3.993909603121352*^9, 3.993909670579809*^9, 3.993909753557192*^9, 3.9939099097958403`*^9, { - 3.99390995638293*^9, 3.9939099905920963`*^9}, 3.993911038864317*^9}, - CellLabel-> - "Out[434]=",ExpressionUUID->"875db7a7-09e3-4adb-bc2b-b845448d0299"] + 3.99390995638293*^9, 3.9939099905920963`*^9}, 3.993911038864317*^9, + 3.994250268550564*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"5e6131eb-bdda-41fb-9f16-deabb8575f85"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c22"], "Input", - CellLabel-> - "In[435]:=",ExpressionUUID->"dbe59e5f-37d6-4087-ab77-dc1c6394dac8"], + CellLabel->"In[61]:=",ExpressionUUID->"dbe59e5f-37d6-4087-ab77-dc1c6394dac8"], Cell[BoxData["0.5841645161809887`"], "Output", CellChangeTimes->{ 3.991320421228037*^9, 3.993804550980524*^9, 3.9938046270751667`*^9, { 3.993804663656624*^9, 3.993804750107565*^9}, 3.993909603139456*^9, 3.993909670598647*^9, 3.9939097536021843`*^9, 3.993909909812099*^9, { - 3.993909956397331*^9, 3.9939099906069927`*^9}, 3.993911038878274*^9}, - CellLabel-> - "Out[435]=",ExpressionUUID->"7752c35a-9089-4894-bdb4-2a40f08fb54a"] + 3.993909956397331*^9, 3.9939099906069927`*^9}, 3.993911038878274*^9, + 3.994250268580192*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"2fa20e9f-8837-479f-a3b2-95e00cb57c9b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w1"], "Input", - CellLabel-> - "In[436]:=",ExpressionUUID->"f0adf480-5480-4750-98be-1b6f2161d1de"], + CellLabel->"In[62]:=",ExpressionUUID->"f0adf480-5480-4750-98be-1b6f2161d1de"], Cell[BoxData["2.5173601133375656`"], "Output", CellChangeTimes->{ 3.9913204212585373`*^9, 3.993804550999857*^9, 3.993804627093104*^9, { 3.993804663673789*^9, 3.993804750123993*^9}, 3.993909603159047*^9, 3.9939096706237583`*^9, 3.993909753618161*^9, 3.993909909815946*^9, { - 3.993909956411661*^9, 3.993909990622797*^9}, 3.9939110388909483`*^9}, - CellLabel-> - "Out[436]=",ExpressionUUID->"2d5f30a1-d71c-470a-8f0e-35635667a39a"] + 3.993909956411661*^9, 3.993909990622797*^9}, 3.9939110388909483`*^9, + 3.994250268614004*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"9227e8a0-fd8d-4bf3-8986-fcbfe27230bd"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w2"], "Input", - CellLabel-> - "In[437]:=",ExpressionUUID->"8936e7fb-c178-4ca6-9a68-4e0919efc614"], + CellLabel->"In[63]:=",ExpressionUUID->"8936e7fb-c178-4ca6-9a68-4e0919efc614"], Cell[BoxData["1.5234450434796134`"], "Output", CellChangeTimes->{ 3.9913204212884274`*^9, 3.993804551018916*^9, 3.993804627108033*^9, { 3.993804663692298*^9, 3.993804750140585*^9}, 3.99390960317778*^9, 3.993909670643187*^9, 3.9939097536363897`*^9, 3.993909909844212*^9, { - 3.993909956428871*^9, 3.993909990639729*^9}, 3.9939110389058247`*^9}, - CellLabel-> - "Out[437]=",ExpressionUUID->"8fc2108c-3aeb-4560-a70c-5f732167be56"] + 3.993909956428871*^9, 3.993909990639729*^9}, 3.9939110389058247`*^9, + 3.994250268651925*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"ecf2c577-6054-4e1e-9cd7-4058eaab7060"] }, Open ]], Cell[CellGroupData[{ @@ -4614,8 +4547,7 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", - CellLabel-> - "In[438]:=",ExpressionUUID->"2e930878-5f0e-46e2-bb48-74486ca20414"], + CellLabel->"In[64]:=",ExpressionUUID->"2e930878-5f0e-46e2-bb48-74486ca20414"], Cell[BoxData[ RowBox[{"-", "18.177896388526342`"}]], "Output", @@ -4623,9 +4555,9 @@ Cell[BoxData[ 3.9913204213185234`*^9, 3.993804551037992*^9, 3.993804627123701*^9, { 3.993804663711438*^9, 3.993804750156764*^9}, 3.993909603196027*^9, 3.993909670663684*^9, 3.99390975365348*^9, 3.993909909862356*^9, { - 3.993909956443829*^9, 3.993909990654669*^9}, 3.99391103891957*^9}, - CellLabel-> - "Out[438]=",ExpressionUUID->"917126ff-22c4-48e1-bf6b-9ceb1cb0d366"] + 3.993909956443829*^9, 3.993909990654669*^9}, 3.99391103891957*^9, + 3.9942502686814938`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"0324a740-3a20-4ab9-b8e9-7b77b560891a"] }, Open ]], Cell[CellGroupData[{ @@ -4646,8 +4578,7 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", - CellLabel-> - "In[439]:=",ExpressionUUID->"2b862371-4e0b-462d-995c-2f10996cce70"], + CellLabel->"In[65]:=",ExpressionUUID->"2b862371-4e0b-462d-995c-2f10996cce70"], Cell[BoxData[ RowBox[{"-", "4.422931821128753`"}]], "Output", @@ -4655,9 +4586,9 @@ Cell[BoxData[ 3.991320421349531*^9, 3.99380455105733*^9, 3.993804627139119*^9, { 3.993804663729148*^9, 3.993804750173326*^9}, 3.993909603216249*^9, 3.993909670683181*^9, 3.993909753671298*^9, 3.993909909877062*^9, { - 3.993909956460279*^9, 3.993909990669105*^9}, 3.993911038933881*^9}, - CellLabel-> - "Out[439]=",ExpressionUUID->"9395d7ee-33ea-4256-8021-ac9b1d7dadbb"] + 3.993909956460279*^9, 3.993909990669105*^9}, 3.993911038933881*^9, + 3.99425026871389*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"4653df07-a401-42b8-a3b7-9592f719a676"] }, Open ]], Cell[CellGroupData[{ @@ -4722,17 +4653,16 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[440]:=",ExpressionUUID->"7b4a10f4-9a7e-4b72-a748-57082eabd0e7"], + CellLabel->"In[66]:=",ExpressionUUID->"7b4a10f4-9a7e-4b72-a748-57082eabd0e7"], Cell[BoxData["93.52813324924097`"], "Output", CellChangeTimes->{ 3.9913204213784294`*^9, 3.9938045510774317`*^9, 3.993804627154879*^9, { 3.993804663746785*^9, 3.993804750189831*^9}, 3.993909603237997*^9, 3.99390967070298*^9, 3.993909753690928*^9, 3.993909909892799*^9, { - 3.9939099564827127`*^9, 3.993909990683666*^9}, 3.99391103894681*^9}, - CellLabel-> - "Out[440]=",ExpressionUUID->"b43b4cc0-44e4-459a-9dc5-9836ed23d803"] + 3.9939099564827127`*^9, 3.993909990683666*^9}, 3.99391103894681*^9, + 3.9942502687468357`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"ebe14560-a5a6-4f64-bcf4-d4f807b4ea7d"] }, Open ]], Cell[CellGroupData[{ @@ -4773,8 +4703,7 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[441]:=",ExpressionUUID->"08e21e0d-42c2-40a7-be13-a153ded206f8"], + CellLabel->"In[67]:=",ExpressionUUID->"08e21e0d-42c2-40a7-be13-a153ded206f8"], Cell[BoxData[ RowBox[{"-", "116.92037152462031`"}]], "Output", @@ -4782,9 +4711,9 @@ Cell[BoxData[ 3.9913204213904285`*^9, 3.993804551098919*^9, 3.99380462716993*^9, { 3.99380466376478*^9, 3.993804750205999*^9}, 3.9939096032579308`*^9, 3.99390967072291*^9, 3.993909753708663*^9, 3.993909909912747*^9, { - 3.9939099564995337`*^9, 3.993909990698875*^9}, 3.993911038962907*^9}, - CellLabel-> - "Out[441]=",ExpressionUUID->"0701c1de-d94d-434a-aa79-e2329a461e2c"] + 3.9939099564995337`*^9, 3.993909990698875*^9}, 3.993911038962907*^9, + 3.994250268783511*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"8e278ec1-1f72-449e-8cc9-1e3e021ba32d"] }, Open ]], Cell[CellGroupData[{ @@ -4850,17 +4779,16 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[442]:=",ExpressionUUID->"9a2d7b0b-790a-4058-b496-aa10960c048a"], + CellLabel->"In[68]:=",ExpressionUUID->"9a2d7b0b-790a-4058-b496-aa10960c048a"], Cell[BoxData["182.70610789396713`"], "Output", CellChangeTimes->{ 3.991320421419428*^9, 3.993804551121139*^9, 3.993804627185237*^9, { 3.9938046637699213`*^9, 3.993804750221984*^9}, 3.993909603279203*^9, 3.993909670743991*^9, 3.993909753728705*^9, 3.993909909930686*^9, { - 3.993909956518093*^9, 3.9939099907215357`*^9}, 3.993911038974886*^9}, - CellLabel-> - "Out[442]=",ExpressionUUID->"d11cc552-4d80-42b6-bca4-296644cafc73"] + 3.993909956518093*^9, 3.9939099907215357`*^9}, 3.993911038974886*^9, + 3.994250268823276*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"0f2c9307-aa67-4abf-9bfb-c85a1996b984"] }, Open ]], Cell[CellGroupData[{ @@ -4918,17 +4846,16 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[443]:=",ExpressionUUID->"29897a30-ec4c-4955-8c6b-9ba83d18963b"], + CellLabel->"In[69]:=",ExpressionUUID->"29897a30-ec4c-4955-8c6b-9ba83d18963b"], Cell[BoxData["150.0362849602646`"], "Output", CellChangeTimes->{ 3.9913204214494324`*^9, 3.9938045511434107`*^9, 3.993804627199387*^9, { 3.9938046637889233`*^9, 3.993804750238797*^9}, 3.993909603297597*^9, 3.993909670763399*^9, 3.993909753746546*^9, 3.993909909946938*^9, { - 3.99390995653423*^9, 3.993909990735869*^9}, 3.9939110389925137`*^9}, - CellLabel-> - "Out[443]=",ExpressionUUID->"5c2d0a94-4c49-43d5-b908-41b61b4a1d78"] + 3.99390995653423*^9, 3.993909990735869*^9}, 3.9939110389925137`*^9, + 3.994250268858536*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"0f61154f-af5f-4d35-b593-eafea59d5ab5"] }, Open ]], Cell[CellGroupData[{ @@ -4986,17 +4913,16 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[444]:=",ExpressionUUID->"fbb25ab1-9afb-43d7-a82a-6f344966c492"], + CellLabel->"In[70]:=",ExpressionUUID->"fbb25ab1-9afb-43d7-a82a-6f344966c492"], Cell[BoxData["845.8339546196385`"], "Output", CellChangeTimes->{ 3.991320421481529*^9, 3.993804551165799*^9, 3.993804627215629*^9, { 3.9938046638111277`*^9, 3.993804750255252*^9}, 3.993909603318231*^9, 3.993909670782775*^9, 3.993909753763286*^9, 3.993909909962928*^9, { - 3.9939099565492992`*^9, 3.993909990750906*^9}, 3.993911039004581*^9}, - CellLabel-> - "Out[444]=",ExpressionUUID->"91f58316-1aa1-4662-98b2-782aed6190e3"] + 3.9939099565492992`*^9, 3.993909990750906*^9}, 3.993911039004581*^9, + 3.994250268892823*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"aeafd6bd-90a1-42e5-9aec-aed61c28f1e4"] }, Open ]], Cell[CellGroupData[{ @@ -5005,21 +4931,18 @@ Cell[BoxData[ RowBox[{"f1", "=", "0.48021"}]], "Input", CellChangeTimes->{ 3.991849227197853*^9, {3.993909865529995*^9, 3.993909874184963*^9}}, - CellLabel-> - "In[445]:=",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], + CellLabel->"In[71]:=",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], Cell[BoxData["0.48021`"], "Output", CellChangeTimes->{ 3.99390990997964*^9, {3.993909956564432*^9, 3.9939099907651367`*^9}, - 3.9939110390211773`*^9}, - CellLabel-> - "Out[445]=",ExpressionUUID->"8907ee7e-d5d0-402d-b24f-0805f550a387"] + 3.9939110390211773`*^9, 3.994250268930336*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"bc338146-58a2-4cf1-9478-b5da703618d4"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991849227899128*^9, 3.9918492279041367`*^9}}, - CellLabel-> - "In[446]:=",ExpressionUUID->"93cad80c-1de7-2e4b-9b8c-14a272e65d1f"], + CellLabel->"In[72]:=",ExpressionUUID->"93cad80c-1de7-2e4b-9b8c-14a272e65d1f"], Cell[CellGroupData[{ @@ -5027,21 +4950,18 @@ Cell[BoxData[ RowBox[{"f2", "=", "0.1536"}]], "Input", CellChangeTimes->{ 3.9918492290557346`*^9, {3.9939098793789873`*^9, 3.993909884506517*^9}}, - CellLabel-> - "In[447]:=",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], + CellLabel->"In[73]:=",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], Cell[BoxData["0.1536`"], "Output", CellChangeTimes->{ 3.993909910010264*^9, {3.9939099565917253`*^9, 3.993909990782136*^9}, - 3.993911039046362*^9}, - CellLabel-> - "Out[447]=",ExpressionUUID->"42a92faf-9c62-4d94-bf9a-37a8880cef45"] + 3.993911039046362*^9, 3.994250268973418*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"475adbe8-6475-4950-8493-c6c3dbd6979d"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991849229804535*^9, 3.991849229809536*^9}}, - CellLabel-> - "In[448]:=",ExpressionUUID->"15fe72e6-19f0-9540-b29f-3056e2e0b957"], + CellLabel->"In[74]:=",ExpressionUUID->"15fe72e6-19f0-9540-b29f-3056e2e0b957"], Cell[CellGroupData[{ @@ -5087,15 +5007,13 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel-> - "In[449]:=",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], + CellLabel->"In[75]:=",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], Cell[BoxData["3.0421649672677`*^-53"], "Output", CellChangeTimes->{ 3.9913335367025833`*^9, 3.993909910040695*^9, {3.993909956616023*^9, - 3.993909990798419*^9}, 3.9939110390738792`*^9}, - CellLabel-> - "Out[449]=",ExpressionUUID->"86afbdc5-4961-4d4c-a1a2-307ff9ba0073"] + 3.993909990798419*^9}, 3.9939110390738792`*^9, 3.994250269010277*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"89fff74b-ed62-4bf4-9e25-3f9f5aee8cae"] }, Open ]], Cell[CellGroupData[{ @@ -5130,15 +5048,13 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", CellChangeTimes->{3.9915575926932735`*^9}, - CellLabel-> - "In[450]:=",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], + CellLabel->"In[76]:=",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], Cell[BoxData["1.0691663512142516`*^-54"], "Output", CellChangeTimes->{ 3.991333536726557*^9, 3.993909910056779*^9, {3.993909956630228*^9, - 3.993909990812478*^9}, 3.993911039089611*^9}, - CellLabel-> - "Out[450]=",ExpressionUUID->"744b8b7e-dede-44bd-ab11-9b675b375848"] + 3.993909990812478*^9}, 3.993911039089611*^9, 3.994250269048649*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"30686db7-9b86-4d59-89a5-27b64d67a72d"] }, Open ]], Cell[CellGroupData[{ @@ -5172,15 +5088,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", CellChangeTimes->{{3.991557595005127*^9, 3.991557596789215*^9}}, - CellLabel-> - "In[451]:=",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], + CellLabel->"In[77]:=",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], Cell[BoxData["7.422938590368768`*^-55"], "Output", CellChangeTimes->{ 3.9913335367515736`*^9, 3.993909910073305*^9, {3.9939099566443453`*^9, - 3.9939099908166847`*^9}, 3.9939110391039343`*^9}, - CellLabel-> - "Out[451]=",ExpressionUUID->"41b86a86-0ea6-421b-9c59-c2b49b287042"] + 3.9939099908166847`*^9}, 3.9939110391039343`*^9, 3.994250269083609*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"8dba9cff-62bc-47a4-a5b6-b49d998636d6"] }, Open ]], Cell[CellGroupData[{ @@ -5203,15 +5117,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel-> - "In[452]:=",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], + CellLabel->"In[78]:=",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], Cell[BoxData["10.515928007617523`"], "Output", CellChangeTimes->{ 3.9913335367605553`*^9, 3.993909910089398*^9, {3.9939099566583242`*^9, - 3.993909990831061*^9}, 3.993911039117671*^9}, - CellLabel-> - "Out[452]=",ExpressionUUID->"a3edd8e1-9378-47d9-a8e7-5c608ced1558"] + 3.993909990831061*^9}, 3.993911039117671*^9, 3.9942502691175623`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"e8ac8260-d3b1-4441-bf3e-de45f4897a6c"] }, Open ]], Cell[CellGroupData[{ @@ -5236,15 +5148,13 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", - CellLabel-> - "In[453]:=",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], + CellLabel->"In[79]:=",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], Cell[BoxData["24.81136944974492`"], "Output", CellChangeTimes->{ 3.991333536783556*^9, 3.9939099101055737`*^9, {3.993909956672185*^9, - 3.993909990845847*^9}, 3.9939110391350203`*^9}, - CellLabel-> - "Out[453]=",ExpressionUUID->"85912d8c-219e-4780-9dda-21fec721e177"] + 3.993909990845847*^9}, 3.9939110391350203`*^9, 3.9942502691559362`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"e949365d-b3d9-461f-a7b4-3da44df2458f"] }, Open ]], Cell[CellGroupData[{ @@ -5253,15 +5163,13 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel-> - "In[454]:=",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], + CellLabel->"In[80]:=",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], Cell[BoxData["3.777237989202462`"], "Output", CellChangeTimes->{ 3.9913335367915726`*^9, 3.99390991012142*^9, {3.9939099566854477`*^9, - 3.993909990861813*^9}, 3.9939110391511*^9}, - CellLabel-> - "Out[454]=",ExpressionUUID->"e4f48cd1-7fe3-4fdb-afda-d6e0640adf89"] + 3.993909990861813*^9}, 3.9939110391511*^9, 3.9942502691863327`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"115e2f4a-2598-406e-b6df-258e0a7ea181"] }, Open ]], Cell[CellGroupData[{ @@ -5270,15 +5178,13 @@ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", - CellLabel-> - "In[455]:=",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], + CellLabel->"In[81]:=",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], Cell[BoxData["5.838713828670062`"], "Output", CellChangeTimes->{ 3.99133353681583*^9, 3.993909910137066*^9, {3.993909956698565*^9, - 3.993909990865922*^9}, 3.993911039165859*^9}, - CellLabel-> - "Out[455]=",ExpressionUUID->"9e2bce8d-f46b-4c70-af11-d313cc4659e2"] + 3.993909990865922*^9}, 3.993911039165859*^9, 3.99425026921566*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"bf50df0b-ebd1-4b55-b1ef-47b921e610f8"] }, Open ]], Cell[CellGroupData[{ @@ -5287,15 +5193,13 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel-> - "In[456]:=",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], + CellLabel->"In[82]:=",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], Cell[BoxData["144.86648591446757`"], "Output", CellChangeTimes->{ 3.991333536826782*^9, 3.993909910152853*^9, {3.993909956711982*^9, - 3.99390999088028*^9}, 3.993911039183076*^9}, - CellLabel-> - "Out[456]=",ExpressionUUID->"a011ca80-5ac6-459d-b1c5-2215e8b8746b"] + 3.99390999088028*^9}, 3.993911039183076*^9, 3.994250269246929*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"3e8b3ec5-7402-41d8-b632-ab37f17bb608"] }, Open ]], Cell[CellGroupData[{ @@ -5304,15 +5208,13 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[457]:=",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], + CellLabel->"In[83]:=",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], Cell[BoxData["39.72116276209107`"], "Output", CellChangeTimes->{ 3.9913335368508377`*^9, 3.993909910168515*^9, {3.993909956725478*^9, - 3.9939099908939743`*^9}, 3.993911039194149*^9}, - CellLabel-> - "Out[457]=",ExpressionUUID->"917c2e23-2ba6-4cca-968f-ad1b099c6b04"] + 3.9939099908939743`*^9}, 3.993911039194149*^9, 3.9942502692805023`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"1d95f2c5-d499-4b1d-8a9e-445e29bae281"] }, Open ]], Cell[CellGroupData[{ @@ -5501,15 +5403,13 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[458]:=",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], + CellLabel->"In[84]:=",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], Cell[BoxData["0.006170548043396606`"], "Output", CellChangeTimes->{ 3.9913335368758316`*^9, 3.993909910184186*^9, {3.993909956739429*^9, - 3.9939099909078827`*^9}, 3.993911039206811*^9}, - CellLabel-> - "Out[458]=",ExpressionUUID->"1111cc34-f2ab-4265-9748-78c2ecc3044d"] + 3.9939099909078827`*^9}, 3.993911039206811*^9, 3.9942502693200808`*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"60aa294c-8683-4959-a237-5b4bf892ba65"] }, Open ]], Cell[CellGroupData[{ @@ -5523,16 +5423,14 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", Background->RGBColor[0.4, 0.6, 1, 0.33], - CellLabel-> - "In[459]:=",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], + CellLabel->"In[85]:=",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], Cell[BoxData["11.281921450556462`"], "Output", CellChangeTimes->{ 3.991333536973074*^9, 3.993909910327243*^9, {3.9939099567897167`*^9, - 3.993909990956339*^9}, 3.993911039303739*^9}, + 3.993909990956339*^9}, 3.993911039303739*^9, 3.994250269594537*^9}, Background->RGBColor[0.14, 0.8, 0.14, 0.33], - CellLabel-> - "Out[459]=",ExpressionUUID->"6cc60b67-f232-4393-bbdb-adcb27d9062f"] + CellLabel->"Out[85]=",ExpressionUUID->"b8cf965c-f29d-47c5-90e5-2b29e47b67f5"] }, Open ]], Cell[CellGroupData[{ @@ -5723,15 +5621,13 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[460]:=",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], + CellLabel->"In[86]:=",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], Cell[BoxData["0.024586651057114623`"], "Output", CellChangeTimes->{ 3.9913335369870644`*^9, 3.993909910427017*^9, {3.9939099568040457`*^9, - 3.993909990971386*^9}, 3.9939110393208857`*^9}, - CellLabel-> - "Out[460]=",ExpressionUUID->"fecff830-c8c8-4e89-88c4-afe64d8252ec"] + 3.993909990971386*^9}, 3.9939110393208857`*^9, 3.99425026963105*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"4b8d33f5-0051-4e12-b6aa-d36a61d6e7d1"] }, Open ]], Cell[CellGroupData[{ @@ -5744,15 +5640,13 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[461]:=",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], + CellLabel->"In[87]:=",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], Cell[BoxData["5.651910185815362`"], "Output", CellChangeTimes->{ 3.9913335370800858`*^9, 3.993909910470825*^9, {3.993909956869781*^9, - 3.993909991019307*^9}, 3.99391103942657*^9}, - CellLabel-> - "Out[461]=",ExpressionUUID->"7a0e6e54-9e42-481f-85f9-c5788122f126"] + 3.993909991019307*^9}, 3.99391103942657*^9, 3.994250269719077*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"4e5c6d9b-e457-4d84-92bf-fbbe70c03b29"] }, Open ]], Cell[CellGroupData[{ @@ -5844,15 +5738,13 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[462]:=",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], + CellLabel->"In[88]:=",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], Cell[BoxData["0.08103600808733596`"], "Output", CellChangeTimes->{ 3.9913335370930634`*^9, 3.993909910485589*^9, {3.993909956886765*^9, - 3.993909991034367*^9}, 3.993911039454029*^9}, - CellLabel-> - "Out[462]=",ExpressionUUID->"dac4f234-2dbc-4f2a-b799-949302976f29"] + 3.993909991034367*^9}, 3.993911039454029*^9, 3.994250269730165*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"04728486-b4d0-4cfb-ad73-18aed6679e5c"] }, Open ]], Cell[CellGroupData[{ @@ -5941,15 +5833,13 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[463]:=",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], + CellLabel->"In[89]:=",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], Cell[BoxData["0.9189639919126641`"], "Output", CellChangeTimes->{ 3.991333537118065*^9, 3.99390991050031*^9, {3.9939099569002743`*^9, - 3.993909991048984*^9}, 3.9939110394837112`*^9}, - CellLabel-> - "Out[463]=",ExpressionUUID->"302fc248-a86d-48cb-9b5f-539d065c4e5c"] + 3.993909991048984*^9}, 3.9939110394837112`*^9, 3.994250269743101*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"a3431266-72c9-4dc5-83cb-9799bb6c7a3c"] }, Open ]], Cell[CellGroupData[{ @@ -6071,22 +5961,19 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel-> - "In[464]:=",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], + CellLabel->"In[90]:=",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], Cell[BoxData["0.0744691734806052`"], "Output", CellChangeTimes->{ 3.9913335371420746`*^9, 3.993909910517559*^9, {3.993909956914535*^9, - 3.993909991063764*^9}, 3.993911039508452*^9}, - CellLabel-> - "Out[464]=",ExpressionUUID->"9eb7ae23-6a3a-4f35-8f86-8380d70bd085"] + 3.993909991063764*^9}, 3.993911039508452*^9, 3.9942502697581577`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"636d327e-4efa-406a-8ebb-280dfc5297c0"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", - CellLabel-> - "In[465]:=",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], + CellLabel->"In[91]:=",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], Cell[CellGroupData[{ @@ -6148,81 +6035,82 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.991849241512779*^9}, - CellLabel-> - "In[466]:=",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], + CellLabel->"In[92]:=",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.291943993898594`*^-203\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 466, 30, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 1, + 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913335371540604`*^9, 3.99390991054712*^9, {3.993909956944457*^9, - 3.993909991081581*^9}, 3.993911039545395*^9}, + 3.993909991081581*^9}, 3.993911039545395*^9, 3.994250269902588*^9}, CellLabel-> "During evaluation of \ -In[466]:=",ExpressionUUID->"f0bb1dad-445b-4475-a3a8-befa0d983aa9"], +In[92]:=",ExpressionUUID->"89cb9494-3873-4cab-bfe0-b68aed2c8035"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.3379031508727371`*^-207\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 466, 31, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 2, + 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913335371540604`*^9, 3.99390991054712*^9, {3.993909956944457*^9, - 3.993909991081581*^9}, 3.993911039553008*^9}, + 3.993909991081581*^9}, 3.993911039545395*^9, 3.994250269941135*^9}, CellLabel-> "During evaluation of \ -In[466]:=",ExpressionUUID->"cd2b4475-19fa-42b1-977e-6337c3f6fb23"], +In[92]:=",ExpressionUUID->"458b5589-bd35-413f-bb87-b2f71d91a9bd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.3824712490891436`*^-212\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 466, 32, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 3, + 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913335371540604`*^9, 3.99390991054712*^9, {3.993909956944457*^9, - 3.993909991081581*^9}, 3.993911039561417*^9}, + 3.993909991081581*^9}, 3.993911039545395*^9, 3.994250269949396*^9}, CellLabel-> "During evaluation of \ -In[466]:=",ExpressionUUID->"86717bb6-fa86-4853-98f1-6b7918532c06"], +In[92]:=",ExpressionUUID->"7601be35-c948-4074-909f-dfc34eccea65"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 466, 33, 31385385850037802788, "kernel 2"}, +during this calculation.\"", 2, 92, 4, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913335371540604`*^9, 3.99390991054712*^9, {3.993909956944457*^9, - 3.993909991081581*^9}, 3.9939110395716267`*^9}, + 3.993909991081581*^9}, 3.993911039545395*^9, 3.9942502699554358`*^9}, CellLabel-> "During evaluation of \ -In[466]:=",ExpressionUUID->"2858be08-b268-4bc6-9336-c1e615d5226f"], +In[92]:=",ExpressionUUID->"02af6b6d-49ae-40a3-8440-85c4c1bd5576"], Cell[BoxData["11.281921450556474`"], "Output", CellChangeTimes->{ 3.9913335399194164`*^9, 3.993909911925639*^9, {3.99390995881207*^9, - 3.993909991386777*^9}, 3.993911043187406*^9}, - CellLabel-> - "Out[466]=",ExpressionUUID->"cd95d79e-fbb1-4fec-9587-bb0989fa8824"] + 3.993909991386777*^9}, 3.993911043187406*^9, 3.994250273293831*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"6b8fb343-e19b-4adb-85f9-758934ee234d"] }, Open ]], Cell[CellGroupData[{ @@ -6285,81 +6173,82 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.9918492463930817`*^9}, - CellLabel-> - "In[467]:=",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], + CellLabel->"In[93]:=",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.291943993898594`*^-203\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 467, 34, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 5, + 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913335399544125`*^9, 3.993909911987515*^9, {3.99390995886233*^9, - 3.9939099715229683`*^9}, 3.99391104324146*^9}, + 3.9939099715229683`*^9}, 3.99391104324146*^9, 3.994250273342586*^9}, CellLabel-> "During evaluation of \ -In[467]:=",ExpressionUUID->"6150d9fb-4b61-4cc0-837f-09ecd19c3538"], +In[93]:=",ExpressionUUID->"58bc8216-13d7-4c59-a937-999109ea9733"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.3379031508727371`*^-207\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 467, 35, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 6, + 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913335399544125`*^9, 3.993909911987515*^9, {3.99390995886233*^9, - 3.9939099715229683`*^9}, 3.9939110432517633`*^9}, + 3.9939099715229683`*^9}, 3.99391104324146*^9, 3.994250273350868*^9}, CellLabel-> "During evaluation of \ -In[467]:=",ExpressionUUID->"eb02c601-a6dc-43b2-842d-2075e177e786"], +In[93]:=",ExpressionUUID->"b933cba3-a1b0-48b5-a934-3f57d835a644"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.3824712490891436`*^-212\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 467, 36, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 7, + 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913335399544125`*^9, 3.993909911987515*^9, {3.99390995886233*^9, - 3.9939099715229683`*^9}, 3.993911043262134*^9}, + 3.9939099715229683`*^9}, 3.99391104324146*^9, 3.9942502733586597`*^9}, CellLabel-> "During evaluation of \ -In[467]:=",ExpressionUUID->"1540a7ef-14ae-420c-ade1-18a60e1ca0a8"], +In[93]:=",ExpressionUUID->"f0dfd1b6-95bc-4f89-9a17-dc2f01329d3a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 467, 37, 31385385850037802788, "kernel 2"}, +during this calculation.\"", 2, 93, 8, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913335399544125`*^9, 3.993909911987515*^9, {3.99390995886233*^9, - 3.9939099715229683`*^9}, 3.993911043271591*^9}, + 3.9939099715229683`*^9}, 3.99391104324146*^9, 3.994250273366275*^9}, CellLabel-> "During evaluation of \ -In[467]:=",ExpressionUUID->"be9e2673-20b2-41d4-a00e-ca02eaf03c21"], +In[93]:=",ExpressionUUID->"ca6326bc-1557-48ce-880c-af220190201b"], Cell[BoxData["5.6519101858153675`"], "Output", CellChangeTimes->{ 3.991333542631773*^9, 3.993909913332692*^9, {3.993909960604814*^9, - 3.9939099735141*^9}, 3.993911047805615*^9}, - CellLabel-> - "Out[467]=",ExpressionUUID->"b29b41f9-2a88-46b5-b13a-0a779e1d636b"] + 3.9939099735141*^9}, 3.993911047805615*^9, 3.9942502764046392`*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"95cee66f-5f48-44c9-a19b-e9283e9afb1f"] }, Open ]], Cell[CellGroupData[{ @@ -6369,55 +6258,56 @@ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ - FractionBox[ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", RowBox[{ - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", - RowBox[{"Cos", "[", - FractionBox[ - RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], - RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{3.9918492535482903`*^9}, - CellLabel-> - "In[468]:=",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], + CellLabel->"In[94]:=",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], Cell[BoxData[ GraphicsBox[ @@ -6805,9 +6695,8 @@ sSMkpCTnuJtjU3Tlc+FIEqoZnuNb/8b/EkXxRZEQHCdwwwbb4LXN/J9oEup6 Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.991333813212965*^9, {3.9939099475743103`*^9, 3.993909988137138*^9}, - 3.993911340131598*^9}, - CellLabel-> - "Out[468]=",ExpressionUUID->"8248db6d-f345-4e71-b8bb-108b0f1831cc"] + 3.993911340131598*^9, 3.9942508331915293`*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"62b3f7d8-933d-4600-9efc-3b2954c80dd5"] }, Open ]], Cell[CellGroupData[{ @@ -6871,36 +6760,37 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{3.991849261714945*^9}, - CellLabel-> - "In[469]:=",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], + CellLabel->"In[95]:=",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.888488204170118`*^-265\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 469, - 38, 31385385850037802788, "kernel 2"}, +represent as a normalized machine number; precision may be lost.\"", 2, 95, 9, + 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991333813432829*^9, 3.993911340472556*^9}, + CellChangeTimes->{3.991333813432829*^9, 3.993911340472556*^9, + 3.994250833756114*^9}, CellLabel-> "During evaluation of \ -In[469]:=",ExpressionUUID->"7411883c-b85a-4f53-a4e5-41252b857684"], +In[95]:=",ExpressionUUID->"9e8aec13-42c5-4cda-8e8a-0e19a4b5f3fb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.742827783043374`*^-276\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 469, 39, 31385385850037802788, "kernel 2"}, +to represent as a normalized machine number; precision may be lost.\"", 2, 95, + 10, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991333813432829*^9, 3.993911340479508*^9}, + CellChangeTimes->{3.991333813432829*^9, 3.993911340472556*^9, + 3.994250833765317*^9}, CellLabel-> "During evaluation of \ -In[469]:=",ExpressionUUID->"03115f23-fa88-4de7-abae-4a3b5911aae6"], +In[95]:=",ExpressionUUID->"c14cceec-03ed-4b72-b3a9-d8b46ff0a4e6"], Cell[BoxData[ TemplateBox[{ @@ -6908,26 +6798,28 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"2.6045127124194262`*^-287\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 469, 40, 31385385850037802788, "kernel 2"}, + 2, 95, 11, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991333813432829*^9, 3.993911340486128*^9}, + CellChangeTimes->{3.991333813432829*^9, 3.993911340472556*^9, + 3.994250833773225*^9}, CellLabel-> "During evaluation of \ -In[469]:=",ExpressionUUID->"fa604317-63f1-41c2-9609-279e74d4e1ad"], +In[95]:=",ExpressionUUID->"927b363b-963b-43ac-b442-bbcba6a64645"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 469, 41, 31385385850037802788, "kernel 2"}, +during this calculation.\"", 2, 95, 12, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991333813432829*^9, 3.993911340492495*^9}, + CellChangeTimes->{3.991333813432829*^9, 3.993911340472556*^9, + 3.994250833783633*^9}, CellLabel-> "During evaluation of \ -In[469]:=",ExpressionUUID->"ecd63d0e-215c-4a48-b28d-0eaa5e34de40"], +In[95]:=",ExpressionUUID->"39055043-6fd0-4241-af12-132890ad0b80"], Cell[BoxData[ GraphicsBox[ @@ -7344,9 +7236,9 @@ NuVG5McWOYC4fpGm6x8uWvuEL0pJd4DsI1WT8/NczJSraCiKdID/A3SwXww= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991334471589432*^9, 3.993911699601275*^9}, - CellLabel-> - "Out[469]=",ExpressionUUID->"089a698f-7b8d-4b27-94ed-4ef88eb53843"] + CellChangeTimes->{3.991334471589432*^9, 3.993911699601275*^9, + 3.994251468977058*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"37cb5ca1-278d-4828-a520-db77da1e30ff"] }, Open ]], Cell[CellGroupData[{ @@ -7420,8 +7312,7 @@ Cell[BoxData[ RowBox[{"30", ",", "0.001983"}], "}"}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, 3.993910327600246*^9}, - CellLabel-> - "In[470]:=",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], + CellLabel->"In[96]:=",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], Cell[BoxData[ GraphicsBox[{{}, @@ -7644,9 +7535,8 @@ SA== Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.993911699754704*^9}, - CellLabel-> - "Out[470]=",ExpressionUUID->"b0d8f2c3-9630-462c-ab11-388fe567dc23"] + CellChangeTimes->{3.993911699754704*^9, 3.994251469217237*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"480c4013-b65e-4dcb-bf67-125d7f5105ae"] }, Open ]], Cell[CellGroupData[{ @@ -7655,8 +7545,7 @@ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, - CellLabel-> - "In[471]:=",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], + CellLabel->"In[97]:=",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], Cell[BoxData[ GraphicsBox[{ @@ -8205,9 +8094,8 @@ SA== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9939116997824*^9}, - CellLabel-> - "Out[471]=",ExpressionUUID->"fe2a41bb-d389-4b2c-b608-6544584a8168"] + CellChangeTimes->{3.9939116997824*^9, 3.994251469262434*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"b4c8b08e-c51e-4638-a2f0-e95271ec7fe2"] }, Open ]], Cell[CellGroupData[{ @@ -8218,13 +8106,12 @@ Cell[BoxData[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", CellChangeTimes->{3.9918492800964603`*^9}, - CellLabel-> - "In[472]:=",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], + CellLabel->"In[98]:=",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], Cell[BoxData["10.666671082163598`"], "Output", - CellChangeTimes->{3.991334803166374*^9, 3.993911699813674*^9}, - CellLabel-> - "Out[472]=",ExpressionUUID->"e1c84f90-e51e-4ff9-b91e-1ddfe0b28fbf"] + CellChangeTimes->{3.991334803166374*^9, 3.993911699813674*^9, + 3.9942514693109818`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"4c6ffe93-27b7-48f7-af99-d909576ce406"] }, Open ]], Cell[CellGroupData[{ @@ -8281,8 +8168,7 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{3.9918492818821335`*^9}, - CellLabel-> - "In[473]:=",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], + CellLabel->"In[99]:=",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], Cell[BoxData[ TemplateBox[{ @@ -8290,13 +8176,14 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"1.542882507705326`*^-262\\\", \ \\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 473, 42, 31385385850037802788, "kernel 2"}, + 2, 99, 13, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.99133480336051*^9, 3.9939116999045753`*^9}, + CellChangeTimes->{3.99133480336051*^9, 3.9939116999045753`*^9, + 3.994251469434222*^9}, CellLabel-> "During evaluation of \ -In[473]:=",ExpressionUUID->"844dccdc-feaa-494f-ba5f-7f3b18313545"], +In[99]:=",ExpressionUUID->"ce5699ad-9f7b-4cf8-8e2f-48dff4e6ea2a"], Cell[BoxData[ TemplateBox[{ @@ -8304,13 +8191,14 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"3.101733227858878`*^-272\\\", \ \\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 473, 43, 31385385850037802788, "kernel 2"}, +\"", 2, 99, 14, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.99133480336051*^9, 3.993911699911441*^9}, + CellChangeTimes->{3.99133480336051*^9, 3.9939116999045753`*^9, + 3.994251469441978*^9}, CellLabel-> "During evaluation of \ -In[473]:=",ExpressionUUID->"f2658ebb-6507-43b6-84af-2f915b6910f7"], +In[99]:=",ExpressionUUID->"6c192927-9d88-49e0-9ae7-2467460ee462"], Cell[BoxData[ TemplateBox[{ @@ -8318,26 +8206,28 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"6.235568145180698`*^-282\\\", \ \\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 473, 44, 31385385850037802788, "kernel 2"}, +\"", 2, 99, 15, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.99133480336051*^9, 3.993911699918083*^9}, + CellChangeTimes->{3.99133480336051*^9, 3.9939116999045753`*^9, + 3.99425146944956*^9}, CellLabel-> "During evaluation of \ -In[473]:=",ExpressionUUID->"0578e9ed-b2ca-4182-be7a-2018ae49e135"], +In[99]:=",ExpressionUUID->"3e27145d-0b6d-4fc8-bbe6-731ff19195de"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 473, 45, 31385385850037802788, "kernel 2"}, +during this calculation.\"", 2, 99, 16, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.99133480336051*^9, 3.993911699924427*^9}, + CellChangeTimes->{3.99133480336051*^9, 3.9939116999045753`*^9, + 3.9942514694608803`*^9}, CellLabel-> "During evaluation of \ -In[473]:=",ExpressionUUID->"6336bbf2-045b-43d3-876c-876c98bf72c6"], +In[99]:=",ExpressionUUID->"d360ded1-b42e-4af6-8bb1-d03e28ec0b8e"], Cell[BoxData[ GraphicsBox[ @@ -8775,9 +8665,9 @@ wf+aROkB Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991335257344549*^9, 3.993912170444468*^9}, - CellLabel-> - "Out[473]=",ExpressionUUID->"1350bc78-9228-4346-af21-2a2e9461692c"] + CellChangeTimes->{3.991335257344549*^9, 3.993912170444468*^9, + 3.994252301253008*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"61a03a4d-2c9f-4404-a623-937e7ff4b3d5"] }, Open ]], Cell[CellGroupData[{ @@ -8830,72 +8720,78 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[474]:=",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], + "In[100]:=",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.1050021912675125`*^-174\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 474, 46, 31385385850037802788, "kernel 2"}, +RowBox[{\\\"182746270923358292188640954459021807938\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"61\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3679745821507584000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 17, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991335257395241*^9, 3.993912170579567*^9}, + CellChangeTimes->{3.991335257395241*^9, 3.993912170579567*^9, + 3.9942523014289293`*^9}, CellLabel-> "During evaluation of \ -In[474]:=",ExpressionUUID->"7952c96c-44fa-45e4-93b4-7775eb6d6e73"], +In[100]:=",ExpressionUUID->"99c3ee78-fd6c-44cf-9f7b-56a4a08a8ee4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.197184244705837`*^-177\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 474, 47, 31385385850037802788, "kernel 2"}, +RowBox[{\\\"532888126012512780022077023202507591948\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"64\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0138815516114944000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 18, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991335257395241*^9, 3.9939121705908527`*^9}, + CellChangeTimes->{3.991335257395241*^9, 3.993912170579567*^9, + 3.9942523014419394`*^9}, CellLabel-> "During evaluation of \ -In[474]:=",ExpressionUUID->"299d58b3-1f7c-4da1-b159-0e9853eeb412"], +In[100]:=",ExpressionUUID->"373354e7-a975-467d-85ec-9f1ad6519259"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.1760331371937522`*^-180\\\", \ -RowBox[{\\\"\ -161198658118785115956678299518758546564525592888043685145303185612679\\\", \ -RowBox[{\\\"\[LeftSkeleton]\\\", \\\"8\\\", \\\"\[RightSkeleton]\\\"}], \ -\\\"3109099682969421627018644700669916936247705600000000000000000000000000\\\"\ -}]]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 474, 48, 31385385850037802788, "kernel 2"}, +RowBox[{\\\"161198658118785115956678299518758546564\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"68\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9916936247705600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 19, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991335257395241*^9, 3.993912170599731*^9}, + CellChangeTimes->{3.991335257395241*^9, 3.993912170579567*^9, + 3.99425230145146*^9}, CellLabel-> "During evaluation of \ -In[474]:=",ExpressionUUID->"e049cc58-007c-4ba1-97ab-dba1578f3ff5"], +In[100]:=",ExpressionUUID->"a4447d70-5197-4f5e-943f-b11a45051de9"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 474, 49, 31385385850037802788, "kernel 2"}, +during this calculation.\"", 2, 100, 20, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991335257395241*^9, 3.9939121706068153`*^9}, + CellChangeTimes->{3.991335257395241*^9, 3.993912170579567*^9, + 3.994252301461617*^9}, CellLabel-> "During evaluation of \ -In[474]:=",ExpressionUUID->"c390de56-6572-4cc5-87f9-842e36d21290"], +In[100]:=",ExpressionUUID->"63efaad4-f632-454a-a211-316efbb3c927"], Cell[BoxData["10.666662393407478`"], "Output", - CellChangeTimes->{3.991335263670042*^9, 3.993912215481307*^9}, + CellChangeTimes->{3.991335263670042*^9, 3.993912215481307*^9, + 3.9942523791480513`*^9}, CellLabel-> - "Out[474]=",ExpressionUUID->"05d65de7-84cd-4aa5-a191-6b5cf83eae5f"] + "Out[100]=",ExpressionUUID->"b46df93e-ee45-4d9f-a5de-067d808729b2"] }, Open ]], Cell[CellGroupData[{ @@ -8964,70 +8860,78 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.991849285445259*^9, 3.991849289419262*^9}}, CellLabel-> - "In[475]:=",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], + "In[101]:=",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.291943993898594`*^-203\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 475, 50, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 21, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991335263710146*^9, 3.993912215544017*^9}, + CellChangeTimes->{3.991335263710146*^9, 3.993912215544017*^9, + 3.994252379238124*^9}, CellLabel-> "During evaluation of \ -In[475]:=",ExpressionUUID->"d3b01940-ab9c-4ed2-848b-683f61a906d2"], +In[101]:=",ExpressionUUID->"62c1d586-b60b-414f-b56c-956e5cc9b3e3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.3379031508727371`*^-207\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 475, 51, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 22, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991335263710146*^9, 3.993912215553561*^9}, + CellChangeTimes->{3.991335263710146*^9, 3.993912215544017*^9, + 3.994252379250646*^9}, CellLabel-> "During evaluation of \ -In[475]:=",ExpressionUUID->"2f81a440-4221-42e4-8bab-588e17fab627"], +In[101]:=",ExpressionUUID->"c6dce636-ad17-4951-b755-f2c044fa7129"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.3824712490891436`*^-212\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 475, 52, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 23, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991335263710146*^9, 3.993912215561042*^9}, + CellChangeTimes->{3.991335263710146*^9, 3.993912215544017*^9, + 3.994252379260624*^9}, CellLabel-> "During evaluation of \ -In[475]:=",ExpressionUUID->"e979a177-f304-4d92-9604-76529c6cff95"], +In[101]:=",ExpressionUUID->"76d63a4c-d2e5-49e0-bb4f-35152c8f8114"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 475, 53, 31385385850037802788, "kernel 2"}, +during this calculation.\"", 2, 101, 24, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991335263710146*^9, 3.99391221556734*^9}, + CellChangeTimes->{3.991335263710146*^9, 3.993912215544017*^9, + 3.994252379270103*^9}, CellLabel-> "During evaluation of \ -In[475]:=",ExpressionUUID->"6f0137ba-021d-4bad-9d82-2672c3de3660"], +In[101]:=",ExpressionUUID->"73e0f859-251e-48cc-8217-afe778c32e78"], Cell[BoxData["2.0411674680987097`"], "Output", - CellChangeTimes->{3.991335268779545*^9, 3.9939122229819107`*^9}, + CellChangeTimes->{3.991335268779545*^9, 3.9939122229819107`*^9, + 3.99425239084374*^9}, CellLabel-> - "Out[475]=",ExpressionUUID->"cc20d487-dc53-4dcc-bcec-ed99ba962734"] + "Out[101]=",ExpressionUUID->"54f48304-197c-425b-b994-592e9fc1ac02"] }, Open ]], Cell[CellGroupData[{ @@ -9095,70 +8999,78 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.991849293744112*^9, 3.9918492959939384`*^9}}, CellLabel-> - "In[476]:=",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], + "In[102]:=",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.291943993898594`*^-203\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 476, 54, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 25, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991335268812542*^9, 3.9939122230239983`*^9}, + CellChangeTimes->{3.991335268812542*^9, 3.9939122230239983`*^9, + 3.994252390897353*^9}, CellLabel-> "During evaluation of \ -In[476]:=",ExpressionUUID->"f6c08f42-2b99-4625-8ff6-e8e9d1a52f3d"], +In[102]:=",ExpressionUUID->"d4a3e5f6-c2ea-4368-bdbd-7944f8ebf3b0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.3379031508727371`*^-207\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 476, 55, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 26, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991335268812542*^9, 3.9939122230331383`*^9}, + CellChangeTimes->{3.991335268812542*^9, 3.9939122230239983`*^9, + 3.99425239090691*^9}, CellLabel-> "During evaluation of \ -In[476]:=",ExpressionUUID->"976c08a1-7dab-401f-bb01-884da17100f0"], +In[102]:=",ExpressionUUID->"d1294f23-2ef3-4b58-a89b-774366e48d9a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.3824712490891436`*^-212\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 476, 56, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 27, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991335268812542*^9, 3.993912223041781*^9}, + CellChangeTimes->{3.991335268812542*^9, 3.9939122230239983`*^9, + 3.994252390917426*^9}, CellLabel-> "During evaluation of \ -In[476]:=",ExpressionUUID->"1877cd5c-9bca-4499-9ac1-964f124021e6"], +In[102]:=",ExpressionUUID->"3826695b-72ef-41f1-9040-8cc31df4b537"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 476, 57, 31385385850037802788, "kernel 2"}, +during this calculation.\"", 2, 102, 28, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991335268812542*^9, 3.9939122230505657`*^9}, + CellChangeTimes->{3.991335268812542*^9, 3.9939122230239983`*^9, + 3.994252390927307*^9}, CellLabel-> "During evaluation of \ -In[476]:=",ExpressionUUID->"caab4845-2726-4a85-8ab3-9e0b2213b0e2"], +In[102]:=",ExpressionUUID->"667c00a1-fbe8-46d6-b75a-ab0276c13b12"], Cell[BoxData["34.77840786479368`"], "Output", - CellChangeTimes->{3.991335272704685*^9, 3.99391223073044*^9}, + CellChangeTimes->{3.991335272704685*^9, 3.99391223073044*^9, + 3.9942524015887337`*^9}, CellLabel-> - "Out[476]=",ExpressionUUID->"97cb6798-3276-4c36-b268-5fb451a16899"] + "Out[102]=",ExpressionUUID->"765929a2-1fb4-4beb-8b30-14e9c54e674d"] }, Open ]], Cell[CellGroupData[{ @@ -9226,70 +9138,78 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9918492993108063`*^9, 3.991849303274454*^9}}, CellLabel-> - "In[477]:=",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], + "In[103]:=",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.291943993898594`*^-203\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 477, 58, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 29, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913352727386665`*^9, 3.9939122308010178`*^9}, + CellChangeTimes->{3.9913352727386665`*^9, 3.9939122308010178`*^9, + 3.994252401663382*^9}, CellLabel-> "During evaluation of \ -In[477]:=",ExpressionUUID->"a13979e8-90b6-470c-afff-aff034754570"], +In[103]:=",ExpressionUUID->"5110d1fc-be14-4d13-846f-03ac324dca1a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.3379031508727371`*^-207\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 477, 59, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 30, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913352727386665`*^9, 3.9939122308081923`*^9}, + CellChangeTimes->{3.9913352727386665`*^9, 3.9939122308010178`*^9, + 3.994252401673855*^9}, CellLabel-> "During evaluation of \ -In[477]:=",ExpressionUUID->"61f0836c-d380-4f5a-b684-d557ef29df64"], +In[103]:=",ExpressionUUID->"fb10e3f3-629c-4223-8c5e-ba27643cc75c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.3824712490891436`*^-212\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 477, 60, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 31, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913352727386665`*^9, 3.9939122308169203`*^9}, + CellChangeTimes->{3.9913352727386665`*^9, 3.9939122308010178`*^9, + 3.994252401682583*^9}, CellLabel-> "During evaluation of \ -In[477]:=",ExpressionUUID->"f98e1c3b-5732-4f1a-bdc3-42b1fc3a81a6"], +In[103]:=",ExpressionUUID->"30f0e036-bcf9-4163-bb72-612f51c940cc"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 477, 61, 31385385850037802788, "kernel 2"}, +during this calculation.\"", 2, 103, 32, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913352727386665`*^9, 3.9939122308248568`*^9}, + CellChangeTimes->{3.9913352727386665`*^9, 3.9939122308010178`*^9, + 3.994252401692134*^9}, CellLabel-> "During evaluation of \ -In[477]:=",ExpressionUUID->"647fc013-07e6-4cbd-a64b-f0062c6007bb"], +In[103]:=",ExpressionUUID->"b2a59bce-a85b-43b3-a85f-c52fd45fef4e"], Cell[BoxData["8.728388266626204`"], "Output", - CellChangeTimes->{3.991335275154251*^9, 3.993912235200356*^9}, + CellChangeTimes->{3.991335275154251*^9, 3.993912235200356*^9, + 3.994252410738702*^9}, CellLabel-> - "Out[477]=",ExpressionUUID->"39a28402-2b45-4a3b-8238-c4f91fac58d7"] + "Out[103]=",ExpressionUUID->"b276ed79-ff9e-4810-ab3a-186e703c56bb"] }, Open ]], Cell[CellGroupData[{ @@ -9300,12 +9220,13 @@ Cell[BoxData[ RowBox[{"S1", "*", "S2"}]]]], "Input", CellChangeTimes->{{3.9918493065908413`*^9, 3.9918493103344364`*^9}}, CellLabel-> - "In[478]:=",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], + "In[104]:=",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], Cell[BoxData["0.11715390289798881`"], "Output", - CellChangeTimes->{3.991335275186266*^9, 3.993912235237718*^9}, + CellChangeTimes->{3.991335275186266*^9, 3.993912235237718*^9, + 3.994252410787909*^9}, CellLabel-> - "Out[478]=",ExpressionUUID->"5faf956e-3cfa-4714-815b-e2b4997e7019"] + "Out[104]=",ExpressionUUID->"0c1e7ebf-b085-450a-b0d1-23ddc5cc2385"] }, Open ]], Cell[BoxData[ @@ -9314,7 +9235,7 @@ Cell[BoxData[ CellChangeTimes->{{3.991849314761318*^9, 3.9918493173333225`*^9}, 3.991924798063732*^9}, CellLabel-> - "In[479]:=",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], + "In[105]:=",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], Cell[CellGroupData[{ @@ -9337,12 +9258,13 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[480]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], + "In[106]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], Cell[BoxData["6.358193422202221`"], "Output", - CellChangeTimes->{3.9913352752142563`*^9, 3.993912235255887*^9}, + CellChangeTimes->{3.9913352752142563`*^9, 3.993912235255887*^9, + 3.994252410813097*^9}, CellLabel-> - "Out[480]=",ExpressionUUID->"417f9f58-9b55-4de0-b368-9b80141fbd93"] + "Out[106]=",ExpressionUUID->"1eac382a-4686-4924-bfc3-7f0e3772182d"] }, Open ]], Cell[CellGroupData[{ @@ -9352,12 +9274,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[481]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], + "In[107]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], Cell[BoxData["4.857706633096519`"], "Output", - CellChangeTimes->{3.9913352752482567`*^9, 3.993912235265938*^9}, + CellChangeTimes->{3.9913352752482567`*^9, 3.993912235265938*^9, + 3.994252410827283*^9}, CellLabel-> - "Out[481]=",ExpressionUUID->"013a28d7-8b09-4b6d-8cef-4d6efbc406fd"] + "Out[107]=",ExpressionUUID->"856d91e7-2c7c-49fb-9172-d08a7b844947"] }, Open ]], Cell[CellGroupData[{ @@ -9367,12 +9290,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[482]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], + "In[108]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], Cell[BoxData["30.886238361542382`"], "Output", - CellChangeTimes->{3.9913352753089123`*^9, 3.993912235275639*^9}, + CellChangeTimes->{3.9913352753089123`*^9, 3.993912235275639*^9, + 3.994252410841866*^9}, CellLabel-> - "Out[482]=",ExpressionUUID->"941c95c5-c5f0-4ae6-af4b-90d6aafe0756"] + "Out[108]=",ExpressionUUID->"8dcbf39f-a9e6-431c-8626-9a94e1920cbf"] }, Open ]], Cell[CellGroupData[{ @@ -9562,12 +9486,13 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[483]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], + "In[109]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], Cell[BoxData["0.006526340125847156`"], "Output", - CellChangeTimes->{3.9913352753341656`*^9, 3.993912235289304*^9}, + CellChangeTimes->{3.9913352753341656`*^9, 3.993912235289304*^9, + 3.9942524108631163`*^9}, CellLabel-> - "Out[483]=",ExpressionUUID->"0a366f1b-b00d-43a6-9d75-02b40151783c"] + "Out[109]=",ExpressionUUID->"9ecd443c-4c0c-4467-b788-2794181e3db0"] }, Open ]], Cell[CellGroupData[{ @@ -9581,12 +9506,13 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[484]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], + "In[110]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], Cell[BoxData["10.970087429851233`"], "Output", - CellChangeTimes->{3.9913352754296722`*^9, 3.9939122354027367`*^9}, + CellChangeTimes->{3.9913352754296722`*^9, 3.9939122354027367`*^9, + 3.994252411037898*^9}, CellLabel-> - "Out[484]=",ExpressionUUID->"b08cd80f-0acf-4296-a902-63c4118487e9"] + "Out[110]=",ExpressionUUID->"ab4bf19a-e705-42f5-a889-ef1dabb9b4e1"] }, Open ]], Cell[CellGroupData[{ @@ -9778,12 +9704,13 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[485]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], + "In[111]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], Cell[BoxData["0.03140944946696032`"], "Output", - CellChangeTimes->{3.9913352754426765`*^9, 3.993912235416356*^9}, + CellChangeTimes->{3.9913352754426765`*^9, 3.993912235416356*^9, + 3.994252411060458*^9}, CellLabel-> - "Out[485]=",ExpressionUUID->"cce731a5-adc5-4bf6-a28e-3d39df4e4ef8"] + "Out[111]=",ExpressionUUID->"a9b5bd63-c421-48f5-bf17-7925a8d4f995"] }, Open ]], Cell[CellGroupData[{ @@ -9797,12 +9724,13 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[486]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], + "In[112]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], Cell[BoxData["5.000515508482822`"], "Output", - CellChangeTimes->{3.991335275540678*^9, 3.993912235523343*^9}, + CellChangeTimes->{3.991335275540678*^9, 3.993912235523343*^9, + 3.9942524112593393`*^9}, CellLabel-> - "Out[486]=",ExpressionUUID->"b45619fa-4281-469b-a0f1-854bc0f57876"] + "Out[112]=",ExpressionUUID->"c31e689a-0c6c-4239-906d-1e32c26724e4"] }, Open ]], Cell[CellGroupData[{ @@ -9895,12 +9823,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[487]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], + "In[113]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], Cell[BoxData["0.08103600808733596`"], "Output", - CellChangeTimes->{3.9913352755566807`*^9, 3.9939122355347*^9}, + CellChangeTimes->{3.9913352755566807`*^9, 3.9939122355347*^9, + 3.994252411277049*^9}, CellLabel-> - "Out[487]=",ExpressionUUID->"af33a0b4-81b3-4032-9e64-4b9a84f86afb"] + "Out[113]=",ExpressionUUID->"441da035-d120-4cd8-82d9-a7d1436b8d2e"] }, Open ]], Cell[CellGroupData[{ @@ -9990,12 +9919,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[488]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], + "In[114]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], Cell[BoxData["0.9189639919126641`"], "Output", - CellChangeTimes->{3.991335275581682*^9, 3.993912235546877*^9}, + CellChangeTimes->{3.991335275581682*^9, 3.993912235546877*^9, + 3.994252411294142*^9}, CellLabel-> - "Out[488]=",ExpressionUUID->"3c511603-5b75-4506-b90e-7d9353897a40"] + "Out[114]=",ExpressionUUID->"ee42baf5-e3e2-45a7-ad67-899fd12c3548"] }, Open ]], Cell[CellGroupData[{ @@ -10118,12 +10048,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[489]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], + "In[115]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], Cell[BoxData["0.0744691734806052`"], "Output", - CellChangeTimes->{3.9913352756087036`*^9, 3.9939122355576143`*^9}, + CellChangeTimes->{3.9913352756087036`*^9, 3.9939122355576143`*^9, + 3.994252411314501*^9}, CellLabel-> - "Out[489]=",ExpressionUUID->"277cd595-dc78-4e20-92e4-776669eebf9e"] + "Out[115]=",ExpressionUUID->"08be7cba-c74d-404f-984e-c51e5cc24c17"] }, Open ]], Cell[CellGroupData[{ @@ -10187,70 +10118,78 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.991849332835844*^9}, CellLabel-> - "In[490]:=",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], + "In[116]:=",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.589631272917083`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 490, 62, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 116, + 33, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991335275636673*^9, 3.993912235572054*^9}, + CellChangeTimes->{3.991335275636673*^9, 3.993912235572054*^9, + 3.994252411336961*^9}, CellLabel-> "During evaluation of \ -In[490]:=",ExpressionUUID->"19b7419b-99f7-44a1-a9bf-807d2bf86f0c"], +In[116]:=",ExpressionUUID->"fd0daa83-08a3-446c-ba0b-1d26a1d6cb7d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.22497537122702`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 490, 63, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 116, + 34, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991335275636673*^9, 3.9939122355814*^9}, + CellChangeTimes->{3.991335275636673*^9, 3.993912235572054*^9, + 3.994252411348184*^9}, CellLabel-> "During evaluation of \ -In[490]:=",ExpressionUUID->"34681da4-23b8-4b45-b82b-8454e951e66e"], +In[116]:=",ExpressionUUID->"fb82c25c-9971-49ac-bbc4-82ffa14b0dc3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0542183327581043`*^-216\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 490, 64, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 116, + 35, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991335275636673*^9, 3.9939122355890913`*^9}, + CellChangeTimes->{3.991335275636673*^9, 3.993912235572054*^9, + 3.994252411359041*^9}, CellLabel-> "During evaluation of \ -In[490]:=",ExpressionUUID->"0f7a6ad9-5d9d-4cac-9ce6-2cd44f0fe3de"], +In[116]:=",ExpressionUUID->"e3d6ca71-26eb-4461-8095-68997248d756"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 490, 65, 31385385850037802788, "kernel 2"}, +during this calculation.\"", 2, 116, 36, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991335275636673*^9, 3.993912235596463*^9}, + CellChangeTimes->{3.991335275636673*^9, 3.993912235572054*^9, + 3.994252411369409*^9}, CellLabel-> "During evaluation of \ -In[490]:=",ExpressionUUID->"3032e88f-6f76-4eff-91bc-158dd0b626c1"], +In[116]:=",ExpressionUUID->"d5f8d80a-f7ad-4dac-b00b-a297f621390a"], Cell[BoxData["10.970087429851223`"], "Output", - CellChangeTimes->{3.991335279487499*^9, 3.99391223957386*^9}, + CellChangeTimes->{3.991335279487499*^9, 3.99391223957386*^9, + 3.9942524193011436`*^9}, CellLabel-> - "Out[490]=",ExpressionUUID->"4b75a10a-90e7-437d-a4f8-e9c64eed0379"] + "Out[116]=",ExpressionUUID->"63e4d5fe-b848-4e16-b700-bb594e8c37d1"] }, Open ]], Cell[CellGroupData[{ @@ -10314,70 +10253,78 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.9918493361354027`*^9}, CellLabel-> - "In[491]:=",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], + "In[117]:=",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.589631272917083`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 491, 66, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 37, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991335279522499*^9, 3.993912239614373*^9}, + CellChangeTimes->{3.991335279522499*^9, 3.993912239614373*^9, + 3.9942524193552647`*^9}, CellLabel-> "During evaluation of \ -In[491]:=",ExpressionUUID->"e6f9da1d-19b9-4d17-bc7e-4c8bbdbe5c5d"], +In[117]:=",ExpressionUUID->"2344d6fe-369c-49cf-b3a0-d01a0623a3a5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.22497537122702`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 491, 67, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 38, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991335279522499*^9, 3.9939122396216908`*^9}, + CellChangeTimes->{3.991335279522499*^9, 3.993912239614373*^9, + 3.994252419366115*^9}, CellLabel-> "During evaluation of \ -In[491]:=",ExpressionUUID->"55a37460-04b6-4566-9e9b-6d8218cd8fab"], +In[117]:=",ExpressionUUID->"ae0d9a92-f9de-4b22-bbe9-89ecdea7c557"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0542183327581043`*^-216\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 491, 68, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 39, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991335279522499*^9, 3.993912239628738*^9}, + CellChangeTimes->{3.991335279522499*^9, 3.993912239614373*^9, + 3.994252419375503*^9}, CellLabel-> "During evaluation of \ -In[491]:=",ExpressionUUID->"6a397a08-4cbd-4258-ae6f-00d0e14f8b9a"], +In[117]:=",ExpressionUUID->"1e495ddb-077e-4156-9561-07e61da50cee"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 491, 69, 31385385850037802788, "kernel 2"}, +during this calculation.\"", 2, 117, 40, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991335279522499*^9, 3.993912239636507*^9}, + CellChangeTimes->{3.991335279522499*^9, 3.993912239614373*^9, + 3.994252419385921*^9}, CellLabel-> "During evaluation of \ -In[491]:=",ExpressionUUID->"7197816a-c743-4c17-802f-838b8993968c"], +In[117]:=",ExpressionUUID->"ee2212f4-0b8b-4fcf-b536-3ba880208126"], Cell[BoxData["5.000515508482825`"], "Output", - CellChangeTimes->{3.991335283631424*^9, 3.993912243503162*^9}, + CellChangeTimes->{3.991335283631424*^9, 3.993912243503162*^9, + 3.99425242723999*^9}, CellLabel-> - "Out[491]=",ExpressionUUID->"3db605fb-cac7-4bbe-9ecd-24e13dd2109b"] + "Out[117]=",ExpressionUUID->"d73311ee-f54c-4c96-9f2c-9ef749a47486"] }, Open ]], Cell[CellGroupData[{ @@ -10437,7 +10384,7 @@ Cell[BoxData[ RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{3.9918494105860615`*^9}, CellLabel-> - "In[492]:=",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], + "In[118]:=",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], Cell[BoxData[ GraphicsBox[ @@ -10813,9 +10760,10 @@ IuAGb92qw9i3VGVTZIIJ2PJwge6IXSLWVygeQoDtw7x7J7F7fuV/FAojYK5s Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913355426284504`*^9, 3.993912514653851*^9}, + CellChangeTimes->{3.9913355426284504`*^9, 3.993912514653851*^9, + 3.9942529889294157`*^9}, CellLabel-> - "Out[492]=",ExpressionUUID->"c4d6604f-f587-4b79-ba77-30c9888516b6"] + "Out[118]=",ExpressionUUID->"7314b997-f034-4b70-a9d9-bf861b707bd1"] }, Open ]], Cell[CellGroupData[{ @@ -10881,21 +10829,21 @@ Cell[BoxData[ CellChangeTimes->{ 3.9918494141657047`*^9, {3.991849451432905*^9, 3.991849451715925*^9}}, CellLabel-> - "In[493]:=",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], + "In[119]:=",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.2869323053586765`*^-267\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 493, - 70, 31385385850037802788, "kernel 2"}, +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 41, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9939125147835217`*^9}, + CellChangeTimes->{3.9939125147835217`*^9, 3.9942529891261673`*^9}, CellLabel-> "During evaluation of \ -In[493]:=",ExpressionUUID->"78c4bd2c-59d4-4bf9-8c2b-1b30e1319482"], +In[119]:=",ExpressionUUID->"b696cfd6-9fca-4467-9a88-215696c006b5"], Cell[BoxData[ TemplateBox[{ @@ -10903,13 +10851,13 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"9.75260251002106`*^-279\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 493, 71, 31385385850037802788, "kernel 2"}, + 119, 42, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912514791078*^9}, + CellChangeTimes->{3.9939125147835217`*^9, 3.994252989134582*^9}, CellLabel-> "During evaluation of \ -In[493]:=",ExpressionUUID->"7d0e1633-09cf-4b93-9a06-986f6e7ef2e1"], +In[119]:=",ExpressionUUID->"8d3382fd-6499-487e-afbf-5e0d8382c457"], Cell[BoxData[ TemplateBox[{ @@ -10917,26 +10865,26 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"7.390696101296517`*^-290\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 493, 72, 31385385850037802788, "kernel 2"}, + 2, 119, 43, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912514798457*^9}, + CellChangeTimes->{3.9939125147835217`*^9, 3.994252989143793*^9}, CellLabel-> "During evaluation of \ -In[493]:=",ExpressionUUID->"d8f781ba-8564-4bc3-856a-bff5a22f6b5d"], +In[119]:=",ExpressionUUID->"62852686-d52f-4f55-8ac9-fd7f9523a3c4"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 493, 73, 31385385850037802788, "kernel 2"}, +during this calculation.\"", 2, 119, 44, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912514805155*^9}, + CellChangeTimes->{3.9939125147835217`*^9, 3.9942529891515627`*^9}, CellLabel-> "During evaluation of \ -In[493]:=",ExpressionUUID->"648644b2-ba9d-4391-a8ed-82111accb84c"], +In[119]:=",ExpressionUUID->"53c1a571-3f8e-4dbe-bd78-0f84fd9c5ff4"], Cell[BoxData[ GraphicsBox[ @@ -11353,9 +11301,9 @@ DlN5F8jeVTU+N8fBgZangcsXu8D/ASOGfVo= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.993912871634519*^9}, + CellChangeTimes->{3.993912871634519*^9, 3.994253574784932*^9}, CellLabel-> - "Out[493]=",ExpressionUUID->"68b840fc-72a0-420c-af81-4afa3a3ac549"] + "Out[119]=",ExpressionUUID->"1191a391-3c3c-4cae-a878-879b69a645a3"] }, Open ]], Cell[CellGroupData[{ @@ -11364,7 +11312,7 @@ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", CellLabel-> - "In[494]:=",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], + "In[120]:=",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], Cell[BoxData[ GraphicsBox[{ @@ -11913,9 +11861,9 @@ SA== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.993912871715796*^9}, + CellChangeTimes->{3.993912871715796*^9, 3.994253574891301*^9}, CellLabel-> - "Out[494]=",ExpressionUUID->"833d0481-fbaa-439a-9e62-d3f29c06f0ff"] + "Out[120]=",ExpressionUUID->"493e4d29-b9f1-4ae6-9263-6dc391cee9e2"] }, Open ]], Cell[CellGroupData[{ @@ -11968,76 +11916,78 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[495]:=",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], + "In[121]:=",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.2265417749209915`*^-168\\\", \ -RowBox[{\\\"\ -161198658118785115956678299518758546564525592888043685145303185612679\\\", \ -RowBox[{\\\"\[LeftSkeleton]\\\", \\\"8\\\", \\\"\[RightSkeleton]\\\"}], \ -\\\"3109099682969421627018644700669916936247705600000000000000000000000000\\\"\ -}]]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 495, 74, 31385385850037802788, "kernel 2"}, +RowBox[{\\\"161198658118785115956678299518758546564\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"68\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9916936247705600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 45, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991337269930374*^9, 3.9939128717566557`*^9}, + CellChangeTimes->{3.991337269930374*^9, 3.9939128717566557`*^9, + 3.994253574998481*^9}, CellLabel-> "During evaluation of \ -In[495]:=",ExpressionUUID->"16310b94-0d43-431a-ac4c-a56fdb4d58f8"], +In[121]:=",ExpressionUUID->"728614ff-9d42-4fd8-b581-5da89428457f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.085798647111027`*^-171\\\", \ -RowBox[{\\\"\ -505518991860510123640143147290826802026352259296904996615670790081361\\\", \ -RowBox[{\\\"\[LeftSkeleton]\\\", \\\"11\\\", \\\"\[RightSkeleton]\\\"}], \ -\\\"0136605792106222330469781300859512072804761600000000000000000000000000\\\"\ -}]]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 495, 75, 31385385850037802788, "kernel 2"}, +RowBox[{\\\"505518991860510123640143147290826802026\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"71\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9512072804761600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 46, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991337269930374*^9, 3.993912871763949*^9}, + CellChangeTimes->{3.991337269930374*^9, 3.9939128717566557`*^9, + 3.994253575008347*^9}, CellLabel-> "During evaluation of \ -In[495]:=",ExpressionUUID->"caab0c1a-7cea-4cb6-a50a-a4f7282092b5"], +In[121]:=",ExpressionUUID->"01cb7866-6a54-4610-aba8-acbff5b645ee"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.612055016585798`*^-175\\\", \ -RowBox[{\\\"\ -164243120455479739170682508554789627978361849045564433400431439697434\\\", \ -RowBox[{\\\"\[LeftSkeleton]\\\", \\\"15\\\", \\\"\[RightSkeleton]\\\"}], \ -\\\"3832218553116351696319446492554724542670438400000000000000000000000000\\\"\ -}]]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 495, 76, 31385385850037802788, "kernel 2"}, +RowBox[{\\\"164243120455479739170682508554789627978\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"75\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4724542670438400000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 47, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991337269930374*^9, 3.993912871771645*^9}, + CellChangeTimes->{3.991337269930374*^9, 3.9939128717566557`*^9, + 3.9942535750190372`*^9}, CellLabel-> "During evaluation of \ -In[495]:=",ExpressionUUID->"5b25ad31-1c01-4c69-802f-1526bf225ea4"], +In[121]:=",ExpressionUUID->"5e6a356e-6e66-4127-92a8-d3541a70ba64"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 495, 77, 31385385850037802788, "kernel 2"}, +during this calculation.\"", 2, 121, 48, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991337269930374*^9, 3.993912871780343*^9}, + CellChangeTimes->{3.991337269930374*^9, 3.9939128717566557`*^9, + 3.994253575027851*^9}, CellLabel-> "During evaluation of \ -In[495]:=",ExpressionUUID->"35cde4ca-5a35-47f9-b289-f9fbcf61119e"], +In[121]:=",ExpressionUUID->"1348e566-82d7-4dff-a637-06d0712e6082"], Cell[BoxData["10.666530087208022`"], "Output", - CellChangeTimes->{3.9913372766841774`*^9, 3.993912920805209*^9}, + CellChangeTimes->{3.9913372766841774`*^9, 3.993912920805209*^9, + 3.9942536601383133`*^9}, CellLabel-> - "Out[495]=",ExpressionUUID->"09f8f960-c354-46a7-bbcf-f36d1bb76257"] + "Out[121]=",ExpressionUUID->"2642b61a-577e-45bb-a544-a6eea9f827ea"] }, Open ]], Cell[CellGroupData[{ @@ -12106,70 +12056,78 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9918494640512295`*^9, 3.991849468375696*^9}}, CellLabel-> - "In[496]:=",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], + "In[122]:=",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.589631272917083`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 496, 78, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 49, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913372767181473`*^9, 3.993912920858247*^9}, + CellChangeTimes->{3.9913372767181473`*^9, 3.993912920858247*^9, + 3.994253660196577*^9}, CellLabel-> "During evaluation of \ -In[496]:=",ExpressionUUID->"4a34e78a-febf-4749-9df0-8525daf268da"], +In[122]:=",ExpressionUUID->"8417a1d5-bd96-43c3-b655-062e95c6defd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.22497537122702`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 496, 79, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 50, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913372767181473`*^9, 3.993912920868288*^9}, + CellChangeTimes->{3.9913372767181473`*^9, 3.993912920858247*^9, + 3.994253660207192*^9}, CellLabel-> "During evaluation of \ -In[496]:=",ExpressionUUID->"af10cc09-45c5-4f71-aceb-6f3b9d1b7088"], +In[122]:=",ExpressionUUID->"3e42f01c-d3d7-4134-8418-90b5819c4597"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0542183327581043`*^-216\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 496, 80, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 51, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913372767181473`*^9, 3.993912920875654*^9}, + CellChangeTimes->{3.9913372767181473`*^9, 3.993912920858247*^9, + 3.994253660216181*^9}, CellLabel-> "During evaluation of \ -In[496]:=",ExpressionUUID->"2634b813-43a4-4f96-91e9-1f9775e13b7a"], +In[122]:=",ExpressionUUID->"c10a11aa-7674-42f5-b142-b92f9c9a0128"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 496, 81, 31385385850037802788, "kernel 2"}, +during this calculation.\"", 2, 122, 52, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913372767181473`*^9, 3.9939129208824453`*^9}, + CellChangeTimes->{3.9913372767181473`*^9, 3.993912920858247*^9, + 3.9942536602251997`*^9}, CellLabel-> "During evaluation of \ -In[496]:=",ExpressionUUID->"fb0c5fd5-f417-4fab-9d12-e1f786eede7a"], +In[122]:=",ExpressionUUID->"740abd91-9b87-4625-be3e-e07d8eaa0572"], Cell[BoxData["1.14155461116925`"], "Output", - CellChangeTimes->{3.991337284091696*^9, 3.993912928487941*^9}, + CellChangeTimes->{3.991337284091696*^9, 3.993912928487941*^9, + 3.994253671751333*^9}, CellLabel-> - "Out[496]=",ExpressionUUID->"f0bdb151-f39b-43c7-abbf-24dacdad6ba7"] + "Out[122]=",ExpressionUUID->"16fa5042-dc4d-4577-b961-5afd32e23fa6"] }, Open ]], Cell[CellGroupData[{ @@ -12237,70 +12195,78 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9918494737320137`*^9, 3.9918494774550457`*^9}}, CellLabel-> - "In[497]:=",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], + "In[123]:=",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.589631272917083`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 497, 82, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 123, + 53, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991337284131695*^9, 3.9939129285331793`*^9}, + CellChangeTimes->{3.991337284131695*^9, 3.9939129285331793`*^9, + 3.9942536718027678`*^9}, CellLabel-> "During evaluation of \ -In[497]:=",ExpressionUUID->"47f96900-0e63-42d2-bc59-8c419c52efca"], +In[123]:=",ExpressionUUID->"a1a129dd-874b-428d-b92a-d14007ff00aa"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.22497537122702`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 497, 83, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 123, + 54, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991337284131695*^9, 3.993912928539587*^9}, + CellChangeTimes->{3.991337284131695*^9, 3.9939129285331793`*^9, + 3.994253671812735*^9}, CellLabel-> "During evaluation of \ -In[497]:=",ExpressionUUID->"15153692-68b1-4f41-b260-1aff11fc6783"], +In[123]:=",ExpressionUUID->"b3e157e6-28b3-4a97-9733-82bbab70bf73"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0542183327581043`*^-216\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 497, 84, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 123, + 55, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991337284131695*^9, 3.993912928548094*^9}, + CellChangeTimes->{3.991337284131695*^9, 3.9939129285331793`*^9, + 3.9942536718210897`*^9}, CellLabel-> "During evaluation of \ -In[497]:=",ExpressionUUID->"e42851c2-8a5f-4fe7-9125-20e6101a0067"], +In[123]:=",ExpressionUUID->"51247b19-3e22-4aea-83e2-9426e6c39dc6"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 497, 85, 31385385850037802788, "kernel 2"}, +during this calculation.\"", 2, 123, 56, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991337284131695*^9, 3.993912928556826*^9}, + CellChangeTimes->{3.991337284131695*^9, 3.9939129285331793`*^9, + 3.99425367182979*^9}, CellLabel-> "During evaluation of \ -In[497]:=",ExpressionUUID->"c59d4cd2-3d9d-4d62-9749-3dfb5e4fa1d0"], +In[123]:=",ExpressionUUID->"2fc29951-e897-4325-981b-c68de4b73f51"], Cell[BoxData["32.882416862191306`"], "Output", - CellChangeTimes->{3.9913372907074146`*^9, 3.993912935551147*^9}, + CellChangeTimes->{3.9913372907074146`*^9, 3.993912935551147*^9, + 3.994253682751795*^9}, CellLabel-> - "Out[497]=",ExpressionUUID->"210467ae-044a-4b24-b088-766846f21d9d"] + "Out[123]=",ExpressionUUID->"e29ecba6-cd5f-4b04-a9df-ae021c8637d1"] }, Open ]], Cell[CellGroupData[{ @@ -12368,70 +12334,78 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.991849482271084*^9, 3.9918494852683945`*^9}}, CellLabel-> - "In[498]:=",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], + "In[124]:=",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.589631272917083`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 498, 86, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 124, + 57, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991337290744484*^9, 3.993912935589964*^9}, + CellChangeTimes->{3.991337290744484*^9, 3.993912935589964*^9, + 3.9942536828057547`*^9}, CellLabel-> "During evaluation of \ -In[498]:=",ExpressionUUID->"5201aa3b-46a6-4570-86f0-98ee412ed122"], +In[124]:=",ExpressionUUID->"76a54297-d3c0-440c-865f-93f8977b0603"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.22497537122702`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 498, 87, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 124, + 58, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991337290744484*^9, 3.9939129355974417`*^9}, + CellChangeTimes->{3.991337290744484*^9, 3.993912935589964*^9, + 3.994253682815543*^9}, CellLabel-> "During evaluation of \ -In[498]:=",ExpressionUUID->"fd0107d4-074b-4515-9655-e1cc1cfc3830"], +In[124]:=",ExpressionUUID->"67e1d5cb-3780-4608-809e-39b502407877"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0542183327581043`*^-216\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 498, 88, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 124, + 59, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991337290744484*^9, 3.993912935605248*^9}, + CellChangeTimes->{3.991337290744484*^9, 3.993912935589964*^9, + 3.994253682825882*^9}, CellLabel-> "During evaluation of \ -In[498]:=",ExpressionUUID->"de71bb8e-0d20-4b54-8182-c7150fc47e23"], +In[124]:=",ExpressionUUID->"0fc4c07f-9d49-4fac-9502-4493f7720865"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 498, 89, 31385385850037802788, "kernel 2"}, +during this calculation.\"", 2, 124, 60, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991337290744484*^9, 3.993912935612504*^9}, + CellChangeTimes->{3.991337290744484*^9, 3.993912935589964*^9, + 3.994253682834441*^9}, CellLabel-> "During evaluation of \ -In[498]:=",ExpressionUUID->"7dbe95b4-cd7e-40bd-bc91-22274f86b146"], +In[124]:=",ExpressionUUID->"5aeb2465-4697-4cc6-a08c-00bb61c0c174"], Cell[BoxData["6.8323972640237365`"], "Output", - CellChangeTimes->{3.991337294569908*^9, 3.9939129399807577`*^9}, + CellChangeTimes->{3.991337294569908*^9, 3.9939129399807577`*^9, + 3.994253692042535*^9}, CellLabel-> - "Out[498]=",ExpressionUUID->"292fbc4d-bb9e-4eeb-97c5-94bda23f124d"] + "Out[124]=",ExpressionUUID->"1cf76343-eee5-42a6-a905-60b19685b343"] }, Open ]], Cell[CellGroupData[{ @@ -12442,12 +12416,13 @@ Cell[BoxData[ RowBox[{"S1", "*", "S2"}]]]], "Input", CellChangeTimes->{{3.9918494889040737`*^9, 3.9918494971484394`*^9}}, CellLabel-> - "In[499]:=",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], + "In[125]:=",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], Cell[BoxData["0.0761602344393777`"], "Output", - CellChangeTimes->{3.9913372946009064`*^9, 3.993912940024393*^9}, + CellChangeTimes->{3.9913372946009064`*^9, 3.993912940024393*^9, + 3.994253692095294*^9}, CellLabel-> - "Out[499]=",ExpressionUUID->"311074a0-6d40-415d-8d38-eb65ba5bc784"] + "Out[125]=",ExpressionUUID->"0140c18a-aa99-4492-98a0-3eb24359aef9"] }, Open ]], Cell[BoxData[ @@ -12456,7 +12431,7 @@ Cell[BoxData[ CellChangeTimes->{{3.9918495000311985`*^9, 3.9918495029810333`*^9}, 3.9919248636163254`*^9}, CellLabel-> - "In[500]:=",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], + "In[126]:=",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], Cell[CellGroupData[{ @@ -12479,12 +12454,13 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[501]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], + "In[127]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], Cell[BoxData["14.989443615829972`"], "Output", - CellChangeTimes->{3.991337294629921*^9, 3.993912940038625*^9}, + CellChangeTimes->{3.991337294629921*^9, 3.993912940038625*^9, + 3.994253692120405*^9}, CellLabel-> - "Out[501]=",ExpressionUUID->"f7febed8-a808-4167-8f50-fc87f53c3334"] + "Out[127]=",ExpressionUUID->"436dbbb5-ee7b-4f01-b71c-05c4667c772d"] }, Open ]], Cell[CellGroupData[{ @@ -12494,12 +12470,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[502]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], + "In[128]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], Cell[BoxData["3.163773577018768`"], "Output", - CellChangeTimes->{3.9913372946629753`*^9, 3.993912940047989*^9}, + CellChangeTimes->{3.9913372946629753`*^9, 3.993912940047989*^9, + 3.994253692135181*^9}, CellLabel-> - "Out[502]=",ExpressionUUID->"675e8a82-b266-45d9-b6cd-bfb1ae85c458"] + "Out[128]=",ExpressionUUID->"80984236-cdbf-4032-a62c-d58e87c845c1"] }, Open ]], Cell[CellGroupData[{ @@ -12509,12 +12486,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[503]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], + "In[129]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], Cell[BoxData["47.42320564597552`"], "Output", - CellChangeTimes->{3.9913372947367725`*^9, 3.993912940058085*^9}, + CellChangeTimes->{3.9913372947367725`*^9, 3.993912940058085*^9, + 3.994253692150687*^9}, CellLabel-> - "Out[503]=",ExpressionUUID->"245285a3-b6e2-4ddb-97bd-b7018e2544c5"] + "Out[129]=",ExpressionUUID->"5f539f6f-9beb-41ea-bf36-bbb9c1fc5e61"] }, Open ]], Cell[CellGroupData[{ @@ -12704,12 +12682,13 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[504]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], + "In[130]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], Cell[BoxData["0.005890592758974288`"], "Output", - CellChangeTimes->{3.9913372947513313`*^9, 3.993912940074173*^9}, + CellChangeTimes->{3.9913372947513313`*^9, 3.993912940074173*^9, + 3.99425369216978*^9}, CellLabel-> - "Out[504]=",ExpressionUUID->"77790059-a780-48e6-8fd1-74072e1c4d96"] + "Out[130]=",ExpressionUUID->"c9fcfb95-3541-4272-84bb-8f379d8935dd"] }, Open ]], Cell[CellGroupData[{ @@ -12723,12 +12702,13 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[505]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], + "In[131]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], Cell[BoxData["11.546900967443046`"], "Output", - CellChangeTimes->{3.9913372948636913`*^9, 3.993912940201436*^9}, + CellChangeTimes->{3.9913372948636913`*^9, 3.993912940201436*^9, + 3.9942536923422813`*^9}, CellLabel-> - "Out[505]=",ExpressionUUID->"16ebeef3-4712-4837-a286-30bfe11d9842"] + "Out[131]=",ExpressionUUID->"faaf69b2-a2a7-4fe5-9c30-64d9cc925520"] }, Open ]], Cell[CellGroupData[{ @@ -12920,12 +12900,13 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[506]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], + "In[132]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], Cell[BoxData["0.020672039786382806`"], "Output", - CellChangeTimes->{3.991337294877693*^9, 3.993912940214161*^9}, + CellChangeTimes->{3.991337294877693*^9, 3.993912940214161*^9, + 3.9942536923634243`*^9}, CellLabel-> - "Out[506]=",ExpressionUUID->"d850c476-2e41-4d3b-ba86-823e0f6a27bd"] + "Out[132]=",ExpressionUUID->"b9b37a75-e8ad-4b3e-9b67-7452bf08f754"] }, Open ]], Cell[CellGroupData[{ @@ -12939,12 +12920,13 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[507]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], + "In[133]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], Cell[BoxData["6.163867218227099`"], "Output", - CellChangeTimes->{3.991337294976324*^9, 3.993912940324975*^9}, + CellChangeTimes->{3.991337294976324*^9, 3.993912940324975*^9, + 3.994253692563094*^9}, CellLabel-> - "Out[507]=",ExpressionUUID->"0c508fa5-35b2-4332-9a14-285e8fcd3707"] + "Out[133]=",ExpressionUUID->"bf1c6218-5881-4921-a647-11c9053d765a"] }, Open ]], Cell[CellGroupData[{ @@ -13037,12 +13019,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[508]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], + "In[134]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], Cell[BoxData["0.08103600808733596`"], "Output", - CellChangeTimes->{3.9913372950022793`*^9, 3.993912940336294*^9}, + CellChangeTimes->{3.9913372950022793`*^9, 3.993912940336294*^9, + 3.994253692579096*^9}, CellLabel-> - "Out[508]=",ExpressionUUID->"236b5d65-bca9-4fe1-8432-f7c6cd9e598a"] + "Out[134]=",ExpressionUUID->"7970301a-176d-4d1c-b09b-5c7ea78fd919"] }, Open ]], Cell[CellGroupData[{ @@ -13132,12 +13115,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[509]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], + "In[135]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], Cell[BoxData["0.9189639919126641`"], "Output", - CellChangeTimes->{3.991337295013279*^9, 3.993912940349085*^9}, + CellChangeTimes->{3.991337295013279*^9, 3.993912940349085*^9, + 3.994253692596025*^9}, CellLabel-> - "Out[509]=",ExpressionUUID->"c2defeb3-aea8-4766-a6e5-12fd4a147709"] + "Out[135]=",ExpressionUUID->"e6fa2b2b-c95e-467f-bbdd-c89424d0bef7"] }, Open ]], Cell[CellGroupData[{ @@ -13260,12 +13244,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[510]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], + "In[136]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], Cell[BoxData["0.0744691734806052`"], "Output", - CellChangeTimes->{3.991337295041279*^9, 3.993912940361722*^9}, + CellChangeTimes->{3.991337295041279*^9, 3.993912940361722*^9, + 3.994253692613542*^9}, CellLabel-> - "Out[510]=",ExpressionUUID->"7cde91a8-9447-4c67-96b6-bf04332b4217"] + "Out[136]=",ExpressionUUID->"e4bd79ca-dbc5-436c-8040-54fed79603bf"] }, Open ]], Cell[CellGroupData[{ @@ -13329,70 +13314,78 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.991849517192892*^9}, CellLabel-> - "In[511]:=",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], + "In[137]:=",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.345686913949945`*^-201\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 511, 90, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 137, + 61, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913372950662746`*^9, 3.993912940377315*^9}, + CellChangeTimes->{3.9913372950662746`*^9, 3.993912940377315*^9, + 3.99425369263144*^9}, CellLabel-> "During evaluation of \ -In[511]:=",ExpressionUUID->"c592a299-a715-44b1-817a-f595f93cd648"], +In[137]:=",ExpressionUUID->"59f38048-c81a-4691-871a-24abcc978c83"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.657594741078021`*^-205\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 511, 91, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 137, + 62, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913372950662746`*^9, 3.99391294038652*^9}, + CellChangeTimes->{3.9913372950662746`*^9, 3.993912940377315*^9, + 3.994253692640608*^9}, CellLabel-> "During evaluation of \ -In[511]:=",ExpressionUUID->"9290345e-cd0f-43e9-86b6-f5f871526043"], +In[137]:=",ExpressionUUID->"9e284b37-4c68-40af-a8e6-9964ab25b509"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"7.557293404793143`*^-210\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 511, 92, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 137, + 63, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913372950662746`*^9, 3.993912940394623*^9}, + CellChangeTimes->{3.9913372950662746`*^9, 3.993912940377315*^9, + 3.9942536926497297`*^9}, CellLabel-> "During evaluation of \ -In[511]:=",ExpressionUUID->"64e545e3-cbf2-4c14-b441-2a81d9d6ac86"], +In[137]:=",ExpressionUUID->"ab9decba-dd42-4507-8ece-8fed8422ec6e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 511, 93, 31385385850037802788, "kernel 2"}, +during this calculation.\"", 2, 137, 64, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913372950662746`*^9, 3.9939129404029083`*^9}, + CellChangeTimes->{3.9913372950662746`*^9, 3.993912940377315*^9, + 3.994253692660932*^9}, CellLabel-> "During evaluation of \ -In[511]:=",ExpressionUUID->"f31ac590-a185-4463-a267-b47d118d54e8"], +In[137]:=",ExpressionUUID->"7daa2a7a-5c41-4034-9093-13ee28a3ce4b"], Cell[BoxData["11.546900967443065`"], "Output", - CellChangeTimes->{3.991337298790371*^9, 3.993912944572825*^9}, + CellChangeTimes->{3.991337298790371*^9, 3.993912944572825*^9, + 3.994253700559353*^9}, CellLabel-> - "Out[511]=",ExpressionUUID->"ad2a8669-1187-4a70-aeda-9bdf508d7c2c"] + "Out[137]=",ExpressionUUID->"325fc0f1-b6ef-457c-aa84-84f6e04c1d2c"] }, Open ]], Cell[CellGroupData[{ @@ -13456,70 +13449,78 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.991849520751028*^9}, CellLabel-> - "In[512]:=",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], + "In[138]:=",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.345686913949945`*^-201\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 512, 94, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 65, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913372988243732`*^9, 3.9939129446173487`*^9}, + CellChangeTimes->{3.9913372988243732`*^9, 3.9939129446173487`*^9, + 3.9942537006109667`*^9}, CellLabel-> "During evaluation of \ -In[512]:=",ExpressionUUID->"8fd52e31-c61c-443d-9d37-15df9b0dbf9f"], +In[138]:=",ExpressionUUID->"6048d800-1ce4-4796-9454-473e67621a9d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.657594741078021`*^-205\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 512, 95, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 66, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913372988243732`*^9, 3.993912944625301*^9}, + CellChangeTimes->{3.9913372988243732`*^9, 3.9939129446173487`*^9, + 3.9942537006241083`*^9}, CellLabel-> "During evaluation of \ -In[512]:=",ExpressionUUID->"cde6b196-21dc-4b0d-804b-c9e2ba1613aa"], +In[138]:=",ExpressionUUID->"98221b74-cd12-4db3-9e83-a7cef77019b8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"7.557293404793143`*^-210\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 512, 96, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 67, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913372988243732`*^9, 3.9939129446336603`*^9}, + CellChangeTimes->{3.9913372988243732`*^9, 3.9939129446173487`*^9, + 3.994253700635236*^9}, CellLabel-> "During evaluation of \ -In[512]:=",ExpressionUUID->"854ab2a4-4c0e-43ae-ab2a-f72184c2a693"], +In[138]:=",ExpressionUUID->"98830aa8-cd51-4eca-8c5a-fdd415becfdf"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 512, 97, 31385385850037802788, "kernel 2"}, +during this calculation.\"", 2, 138, 68, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913372988243732`*^9, 3.993912944641671*^9}, + CellChangeTimes->{3.9913372988243732`*^9, 3.9939129446173487`*^9, + 3.99425370064439*^9}, CellLabel-> "During evaluation of \ -In[512]:=",ExpressionUUID->"99e4370d-af87-405f-9603-f51132b04493"], +In[138]:=",ExpressionUUID->"01cffa97-1740-4cde-a2bd-7feab9606314"], Cell[BoxData["6.163867218227105`"], "Output", - CellChangeTimes->{3.991337302457178*^9, 3.9939129485991793`*^9}, + CellChangeTimes->{3.991337302457178*^9, 3.9939129485991793`*^9, + 3.994253708500011*^9}, CellLabel-> - "Out[512]=",ExpressionUUID->"e8d96523-813b-4f98-956d-8d0da0546228"] + "Out[138]=",ExpressionUUID->"e5dcfa5d-7427-4723-a0b2-e58db71f13e7"] }, Open ]], Cell[CellGroupData[{ @@ -13579,7 +13580,7 @@ Cell[BoxData[ RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{3.991849523511486*^9}, CellLabel-> - "In[513]:=",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], + "In[139]:=",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], Cell[BoxData[ GraphicsBox[ @@ -13965,9 +13966,10 @@ Jb9HtghHUlgi88fQitjs7drf01GkftVv2ED8P43M5L8= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991337564416748*^9, 3.993913230631196*^9}, + CellChangeTimes->{3.991337564416748*^9, 3.993913230631196*^9, + 3.99425423812013*^9}, CellLabel-> - "Out[513]=",ExpressionUUID->"ef742225-0fa9-47ae-9d3d-5eacf17fd391"] + "Out[139]=",ExpressionUUID->"a0859840-1d77-436b-b103-b8201b198fbc"] }, Open ]], Cell[CellGroupData[{ @@ -14033,21 +14035,22 @@ Cell[BoxData[ CellChangeTimes->{ 3.9918495265156612`*^9, {3.991849580574194*^9, 3.9918495807911797`*^9}}, CellLabel-> - "In[514]:=",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], + "In[140]:=",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.85629179545352`*^-264\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 514, - 98, 31385385850037802788, "kernel 2"}, +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 69, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991337564646551*^9, 3.99391323077468*^9}, + CellChangeTimes->{3.991337564646551*^9, 3.99391323077468*^9, + 3.994254238286159*^9}, CellLabel-> "During evaluation of \ -In[514]:=",ExpressionUUID->"c416f788-665b-489a-835b-7501acbda8a7"], +In[140]:=",ExpressionUUID->"d3a4666d-28e3-4167-99db-689ae8762cb5"], Cell[BoxData[ TemplateBox[{ @@ -14055,13 +14058,14 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"5.186815573391955`*^-275\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 514, 99, 31385385850037802788, "kernel 2"}, + 140, 70, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991337564646551*^9, 3.9939132307829237`*^9}, + CellChangeTimes->{3.991337564646551*^9, 3.99391323077468*^9, + 3.9942542382942133`*^9}, CellLabel-> "During evaluation of \ -In[514]:=",ExpressionUUID->"0b2a0805-5c4d-4244-acba-e2a4003687fd"], +In[140]:=",ExpressionUUID->"5d21d2d7-f9da-4322-964e-343b81e25b46"], Cell[BoxData[ TemplateBox[{ @@ -14069,26 +14073,28 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"5.539835109901768`*^-286\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 514, 100, 31385385850037802788, "kernel 2"}, + 2, 140, 71, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991337564646551*^9, 3.99391323079139*^9}, + CellChangeTimes->{3.991337564646551*^9, 3.99391323077468*^9, + 3.994254238301445*^9}, CellLabel-> "During evaluation of \ -In[514]:=",ExpressionUUID->"4c281454-3b5f-4ff1-97fd-1a6536ffc961"], +In[140]:=",ExpressionUUID->"b662d808-42b4-4eb8-9456-81cb0ab10ac4"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 514, 101, 31385385850037802788, "kernel 2"}, +during this calculation.\"", 2, 140, 72, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991337564646551*^9, 3.993913230798911*^9}, + CellChangeTimes->{3.991337564646551*^9, 3.99391323077468*^9, + 3.994254238308058*^9}, CellLabel-> "During evaluation of \ -In[514]:=",ExpressionUUID->"1c40d75f-53d0-4ed6-b7fc-7bbdaadef31a"], +In[140]:=",ExpressionUUID->"8ed86a36-78db-4787-88c7-4f5fe2b3308c"], Cell[BoxData[ GraphicsBox[ @@ -14493,9 +14499,10 @@ oJmjU/RlgPQ/VEg75rjAvV6T4LPfOWiZOvX1cIwLWC3ZBtrDHHyU/o93vr8L Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913381496467495`*^9, 3.99391353472058*^9}, + CellChangeTimes->{3.9913381496467495`*^9, 3.99391353472058*^9, + 3.994254617013535*^9}, CellLabel-> - "Out[514]=",ExpressionUUID->"b5aa5ebb-ff7d-4a21-8ae0-4ba228b583a5"] + "Out[140]=",ExpressionUUID->"2041fa44-3521-41fc-93c0-1749172a5bee"] }, Open ]], Cell[CellGroupData[{ @@ -14505,7 +14512,7 @@ Cell[BoxData[ RowBox[{"x", ",", "xx"}], "]"}]], "Input", CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, CellLabel-> - "In[515]:=",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], + "In[141]:=",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], Cell[BoxData[ GraphicsBox[{ @@ -15042,9 +15049,9 @@ SA== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9939135347707443`*^9}, + CellChangeTimes->{3.9939135347707443`*^9, 3.994254617074829*^9}, CellLabel-> - "Out[515]=",ExpressionUUID->"032ba1c8-501c-48ab-9ad4-acceacd8e23e"] + "Out[141]=",ExpressionUUID->"eb796ad5-fbd6-4e6a-83a9-e2a8682b5798"] }, Open ]], Cell[CellGroupData[{ @@ -15097,70 +15104,78 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[516]:=",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], + "In[142]:=",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"7.585584738321876`*^-179\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 516, 102, 31385385850037802788, "kernel 2"}, +RowBox[{\\\"650574122190666757524531699747318646986\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"57\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8904834370174976000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 73, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.99133920579224*^9, 3.993913534802758*^9}, + CellChangeTimes->{3.99133920579224*^9, 3.993913534802758*^9, + 3.99425461710046*^9}, CellLabel-> "During evaluation of \ -In[516]:=",ExpressionUUID->"86d8baa0-151e-476a-a7bd-9c16dcbf214b"], +In[142]:=",ExpressionUUID->"efeb89f5-99f5-473d-90ee-a04dbc6e4090"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.8484213906936793`*^-182\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 516, 103, 31385385850037802788, "kernel 2"}, +RowBox[{\\\"182746270923358292188640954459021807938\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"61\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3679745821507584000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 74, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.99133920579224*^9, 3.993913534808783*^9}, + CellChangeTimes->{3.99133920579224*^9, 3.993913534802758*^9, + 3.9942546171052723`*^9}, CellLabel-> "During evaluation of \ -In[516]:=",ExpressionUUID->"cec531fe-0f88-406b-bbbf-4fc393aa669b"], +In[142]:=",ExpressionUUID->"0126e4c3-5f3b-4b60-a02a-d3d85bbe56b3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.069595120066673`*^-185\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 516, 104, 31385385850037802788, "kernel 2"}, +RowBox[{\\\"532888126012512780022077023202507591948\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"64\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0138815516114944000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 75, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.99133920579224*^9, 3.9939135348145227`*^9}, + CellChangeTimes->{3.99133920579224*^9, 3.993913534802758*^9, + 3.9942546171099463`*^9}, CellLabel-> "During evaluation of \ -In[516]:=",ExpressionUUID->"b375bd9d-c9da-4b50-96d4-82f9708f963d"], +In[142]:=",ExpressionUUID->"96028b8c-1191-4b43-8258-0f599d9c2335"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 516, 105, 31385385850037802788, "kernel 2"}, +during this calculation.\"", 2, 142, 76, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.99133920579224*^9, 3.993913534819974*^9}, + CellChangeTimes->{3.99133920579224*^9, 3.993913534802758*^9, + 3.9942546171144667`*^9}, CellLabel-> "During evaluation of \ -In[516]:=",ExpressionUUID->"4b957ac8-0279-49fa-b6e4-d193ae74d62c"], +In[142]:=",ExpressionUUID->"1db88e3f-4cc3-4bb3-a235-37ceaf6f70f0"], Cell[BoxData["10.666669707657078`"], "Output", - CellChangeTimes->{3.9913392124888554`*^9, 3.9939135608060837`*^9}, + CellChangeTimes->{3.9913392124888554`*^9, 3.9939135608060837`*^9, + 3.994254638675606*^9}, CellLabel-> - "Out[516]=",ExpressionUUID->"55be23de-81d7-4a44-9656-d2f488b2e57a"] + "Out[142]=",ExpressionUUID->"ab93f488-578f-4dac-a0e0-d122c8e443e2"] }, Open ]], Cell[CellGroupData[{ @@ -15229,70 +15244,78 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.991849547748472*^9, 3.9918495528702526`*^9}}, CellLabel-> - "In[517]:=",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], + "In[143]:=",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.345686913949945`*^-201\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 517, 106, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 77, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913392125258827`*^9, 3.993913560833766*^9}, + CellChangeTimes->{3.9913392125258827`*^9, 3.993913560833766*^9, + 3.9942546386973658`*^9}, CellLabel-> "During evaluation of \ -In[517]:=",ExpressionUUID->"f28cff40-afc3-4eca-8604-710d1b2c383a"], +In[143]:=",ExpressionUUID->"66f96747-cd0c-4c4b-9e0e-d74e99088080"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.657594741078021`*^-205\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 517, 107, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 78, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913392125258827`*^9, 3.993913560838673*^9}, + CellChangeTimes->{3.9913392125258827`*^9, 3.993913560833766*^9, + 3.9942546387011347`*^9}, CellLabel-> "During evaluation of \ -In[517]:=",ExpressionUUID->"11c14f54-407e-43dd-891a-f6d8da44c40e"], +In[143]:=",ExpressionUUID->"13d03479-1e86-412a-8734-acd433bf4c8d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"7.557293404793143`*^-210\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 517, 108, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 79, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913392125258827`*^9, 3.993913560844852*^9}, + CellChangeTimes->{3.9913392125258827`*^9, 3.993913560833766*^9, + 3.994254638706004*^9}, CellLabel-> "During evaluation of \ -In[517]:=",ExpressionUUID->"c0b245b9-83bd-477e-98d6-cb8ceedcadba"], +In[143]:=",ExpressionUUID->"4113bfb8-75e1-4a0a-9b2a-c4781e84b647"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 517, 109, 31385385850037802788, "kernel 2"}, +during this calculation.\"", 2, 143, 80, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913392125258827`*^9, 3.993913560849484*^9}, + CellChangeTimes->{3.9913392125258827`*^9, 3.993913560833766*^9, + 3.994254638709958*^9}, CellLabel-> "During evaluation of \ -In[517]:=",ExpressionUUID->"10923acd-f8bf-46c7-9300-c03695fe61ec"], +In[143]:=",ExpressionUUID->"fed45544-b100-455e-8ee2-07b836840756"], Cell[BoxData["2.9390142535411505`"], "Output", - CellChangeTimes->{3.9913392196090164`*^9, 3.9939135650610123`*^9}, + CellChangeTimes->{3.9913392196090164`*^9, 3.9939135650610123`*^9, + 3.994254642101294*^9}, CellLabel-> - "Out[517]=",ExpressionUUID->"7f6cea85-4ce2-4464-9f71-1f4043c26abb"] + "Out[143]=",ExpressionUUID->"056ba486-e9cf-4256-bef4-83e92fa1244c"] }, Open ]], Cell[CellGroupData[{ @@ -15360,70 +15383,78 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9918495568340263`*^9, 3.991849559359928*^9}}, CellLabel-> - "In[518]:=",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], + "In[144]:=",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.345686913949945`*^-201\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 518, 110, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 81, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913392196440163`*^9, 3.993913565088787*^9}, + CellChangeTimes->{3.9913392196440163`*^9, 3.993913565088787*^9, + 3.994254642127301*^9}, CellLabel-> "During evaluation of \ -In[518]:=",ExpressionUUID->"e7264742-ef3c-4ffd-b52f-87edb23d4d66"], +In[144]:=",ExpressionUUID->"10bdf9fa-1f6b-4a0c-ac8f-df2b7bca6ee1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.657594741078021`*^-205\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 518, 111, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 82, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913392196440163`*^9, 3.9939135650942*^9}, + CellChangeTimes->{3.9913392196440163`*^9, 3.993913565088787*^9, + 3.994254642132017*^9}, CellLabel-> "During evaluation of \ -In[518]:=",ExpressionUUID->"367f54aa-a5fc-4cfd-9fdd-b5515c573124"], +In[144]:=",ExpressionUUID->"cab987a4-134d-4f15-bebc-e2eebe2edb42"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"7.557293404793143`*^-210\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 518, 112, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 83, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913392196440163`*^9, 3.993913565099669*^9}, + CellChangeTimes->{3.9913392196440163`*^9, 3.993913565088787*^9, + 3.994254642136091*^9}, CellLabel-> "During evaluation of \ -In[518]:=",ExpressionUUID->"6bb271b8-5d82-4b54-a6bc-58dd3e907aa2"], +In[144]:=",ExpressionUUID->"bce1f6b7-b4fd-4411-b896-e0032b134673"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 518, 113, 31385385850037802788, "kernel 2"}, +during this calculation.\"", 2, 144, 84, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913392196440163`*^9, 3.9939135651043997`*^9}, + CellChangeTimes->{3.9913392196440163`*^9, 3.993913565088787*^9, + 3.9942546421394863`*^9}, CellLabel-> "During evaluation of \ -In[518]:=",ExpressionUUID->"0ca56dfc-fe35-4d8e-bac0-61d481a6c12c"], +In[144]:=",ExpressionUUID->"b5661591-3ccf-4855-8475-d1fdf680cda3"], Cell[BoxData["36.4312804132669`"], "Output", - CellChangeTimes->{3.9913392268711624`*^9, 3.993913569114086*^9}, + CellChangeTimes->{3.9913392268711624`*^9, 3.993913569114086*^9, + 3.994254645490759*^9}, CellLabel-> - "Out[518]=",ExpressionUUID->"95a59442-e242-4e4e-bc84-4e2cdf058208"] + "Out[144]=",ExpressionUUID->"8de98c36-ea62-445e-9aee-7655c8bc380f"] }, Open ]], Cell[CellGroupData[{ @@ -15491,70 +15522,78 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.991849563755764*^9, 3.991849566543682*^9}}, CellLabel-> - "In[519]:=",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], + "In[145]:=",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.345686913949945`*^-201\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 519, 114, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 85, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991339226907137*^9, 3.9939135691427097`*^9}, + CellChangeTimes->{3.991339226907137*^9, 3.9939135691427097`*^9, + 3.9942546455150146`*^9}, CellLabel-> "During evaluation of \ -In[519]:=",ExpressionUUID->"3c01985b-faf5-4433-a20d-d1d76dc89ebd"], +In[145]:=",ExpressionUUID->"03dd76d3-01d5-414d-adb4-035118c9d3b1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.657594741078021`*^-205\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 519, 115, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 86, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991339226907137*^9, 3.993913569147913*^9}, + CellChangeTimes->{3.991339226907137*^9, 3.9939135691427097`*^9, + 3.99425464551899*^9}, CellLabel-> "During evaluation of \ -In[519]:=",ExpressionUUID->"af49d828-af1a-4fcc-80e2-8daa7889a08c"], +In[145]:=",ExpressionUUID->"30859728-3020-4306-9ed8-0a4d4b6fbeaa"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"7.557293404793143`*^-210\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 519, 116, - 31385385850037802788, "kernel 2"}, +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 87, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991339226907137*^9, 3.993913569153154*^9}, + CellChangeTimes->{3.991339226907137*^9, 3.9939135691427097`*^9, + 3.994254645522991*^9}, CellLabel-> "During evaluation of \ -In[519]:=",ExpressionUUID->"bfd21384-0028-46f2-abef-2712e0b8f274"], +In[145]:=",ExpressionUUID->"99a8d3bc-66dd-4716-845d-5d165878488f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 519, 117, 31385385850037802788, "kernel 2"}, +during this calculation.\"", 2, 145, 88, 31387618124141652155, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991339226907137*^9, 3.9939135691578627`*^9}, + CellChangeTimes->{3.991339226907137*^9, 3.9939135691427097`*^9, + 3.994254645526472*^9}, CellLabel-> "During evaluation of \ -In[519]:=",ExpressionUUID->"7fcdce36-ce4b-46a6-8735-976f92d7f9a4"], +In[145]:=",ExpressionUUID->"4f429ed3-1ef0-4f01-a6b6-fe23725eee44"], Cell[BoxData["10.381260815099393`"], "Output", - CellChangeTimes->{3.9913392304284153`*^9, 3.993913571550861*^9}, + CellChangeTimes->{3.9913392304284153`*^9, 3.993913571550861*^9, + 3.994254647559548*^9}, CellLabel-> - "Out[519]=",ExpressionUUID->"4cd9d0e7-d572-4982-9cab-af05f067659e"] + "Out[145]=",ExpressionUUID->"5fd8d44d-c09c-42d8-94b4-f4acfa4fe787"] }, Open ]], Cell[CellGroupData[{ @@ -15565,27 +15604,214 @@ Cell[BoxData[ RowBox[{"S1", "*", "S2"}]]]], "Input", CellChangeTimes->{{3.991849569404436*^9, 3.991849573855135*^9}}, CellLabel-> - "In[520]:=",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], + "In[146]:=",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], Cell[BoxData["0.15112608211445294`"], "Output", - CellChangeTimes->{3.9913392304624157`*^9, 3.993913571578285*^9}, + CellChangeTimes->{3.9913392304624157`*^9, 3.993913571578285*^9, + 3.994254647579265*^9}, CellLabel-> - "Out[520]=",ExpressionUUID->"cac57ee5-82d9-4d9b-ab5f-6695c1ebcc51"] + "Out[146]=",ExpressionUUID->"4e62a394-ffe7-4e68-853e-1d54699c6ee7"] }, Open ]], Cell[BoxData[ RowBox[{"NotebookSave", "[", "]"}]], "Input", CellChangeTimes->{{3.993910336648575*^9, 3.993910341149803*^9}}, CellLabel-> - "In[521]:=",ExpressionUUID->"4a456bb3-2fb7-49dd-88c6-de6421feddfc"], + "In[147]:=",ExpressionUUID->"4a456bb3-2fb7-49dd-88c6-de6421feddfc"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.993911136039036*^9, 3.993911156903111*^9}},ExpressionUUID->"931707c2-fff5-48e5-9290-\ -a58fa50890b4"] +a58fa50890b4"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"CellPrint", "[", + RowBox[{"ExpressionCell", "[", + RowBox[{ + RowBox[{"Panel", "[", + RowBox[{ + RowBox[{"Row", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"Style", "[", + + RowBox[{"\"\<\:0423\:043f\:0440\:0430\:0432\:043b\:0435\:043d\:0438\ +\:0435 \:043a\:044d\:0448\:0435\:043c \:0433\:0440\:0430\:0444\:0438\:043a\ +\:0430: \>\"", ",", "Bold"}], "]"}], ",", + RowBox[{"Button", "[", + + RowBox[{"\"\<\:0421\:0434\:0435\:043b\:0430\:0442\:044c \:0442\ +\:0430\:0431\:043b\:0438\:0446\:0443 (\:041b\:0438\:043d\:0438\:044f 1)\>\"", + ",", + RowBox[{"Module", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"cell", ",", "pts"}], "}"}], ",", + RowBox[{ + RowBox[{"cell", "=", + RowBox[{"NotebookRead", "[", + RowBox[{"EvaluationNotebook", "[", "]"}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"pts", "=", + RowBox[{"Cases", "[", + RowBox[{"cell", ",", + RowBox[{ + RowBox[{"Line", "[", "p_", "]"}], ":>", "p"}], ",", + "Infinity"}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"If", "[", + RowBox[{ + RowBox[{ + RowBox[{"Length", "[", "pts", "]"}], ">", "0"}], ",", + RowBox[{ + RowBox[{"plotX", "=", + RowBox[{"pts", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"fInterp", "=", + RowBox[{"Interpolation", "[", "plotX", "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"dataX", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"x", ",", + RowBox[{"fInterp", "[", "x", "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30", ",", "1"}], "}"}]}], + "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"SelectionMove", "[", + RowBox[{ + RowBox[{"EvaluationNotebook", "[", "]"}], ",", "After", ",", + "Cell"}], "]"}], ";", "\[IndentingNewLine]", + RowBox[{"CellPrint", "[", + RowBox[{"Cell", "[", + RowBox[{ + RowBox[{"BoxData", "[", + RowBox[{"ToBoxes", "[", + RowBox[{"TableForm", "[", "dataX", "]"}], "]"}], "]"}], + ",", "\"\\""}], "]"}], "]"}]}], ",", + RowBox[{"MessageDialog", "[", + + RowBox[{"\"\<\:041e\:0448\:0438\:0431\:043a\:0430: \:0421\ +\:043d\:0430\:0447\:0430\:043b\:0430 \:0432\:044b\:0434\:0435\:043b\:0438\ +\:0442\:0435 \:043d\:0443\:0436\:043d\:044b\:0439 \:0433\:0440\:0430\:0444\ +\:0438\:043a (\:043a\:043b\:0438\:043a\:043d\:0438\:0442\:0435 \:043f\:043e \ +\:0435\:0433\:043e \:044f\:0447\:0435\:0439\:043a\:0435 \:0441\:043f\:0440\ +\:0430\:0432\:0430)!\>\"", ",", + RowBox[{"WindowFloating", "->", "True"}]}], "]"}]}], + "]"}]}]}], "]"}], ",", + RowBox[{"Background", "->", + RowBox[{"RGBColor", "[", + RowBox[{"0.9", ",", "0.95", ",", "1"}], "]"}]}], ",", + RowBox[{"ImageSize", "->", + RowBox[{"{", + RowBox[{"180", ",", "25"}], "}"}]}]}], "]"}]}], "}"}], "]"}], ",", + RowBox[{"Background", "->", + RowBox[{"GrayLevel", "[", "0.95", "]"}]}], ",", + RowBox[{"FrameMargins", "->", "10"}]}], "]"}], ",", "\"\\""}], + "]"}], "]"}], "\n"}]], "Input", + CellChangeTimes->{{3.9943043996512623`*^9, 3.994304399651291*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"770d56c8-b8cd-4e38-9391-7b4b0b29af87"], + +Cell[BoxData[ + PanelBox[ + TemplateBox[{ + StyleBox[ + "\"\:0423\:043f\:0440\:0430\:0432\:043b\:0435\:043d\:0438\:0435 \:043a\ +\:044d\:0448\:0435\:043c \:0433\:0440\:0430\:0444\:0438\:043a\:0430: \"", + Bold, StripOnInput -> False], + ButtonBox[ + "\"\:0421\:0434\:0435\:043b\:0430\:0442\:044c \:0442\:0430\:0431\:043b\ +\:0438\:0446\:0443 (\:041b\:0438\:043d\:0438\:044f 1)\"", ButtonFunction :> + Module[{$CellContext`cell, $CellContext`pts}, $CellContext`cell = + NotebookRead[ + EvaluationNotebook[]]; $CellContext`pts = + Cases[$CellContext`cell, Line[ + Pattern[$CellContext`p, + Blank[]]] :> $CellContext`p, Infinity]; + If[Length[$CellContext`pts] > + 0, $CellContext`plotX = + Part[$CellContext`pts, 1]; $CellContext`fInterp = + Interpolation[$CellContext`plotX]; $CellContext`dataX = + Table[{$CellContext`x, + $CellContext`fInterp[$CellContext`x]}, {$CellContext`x, 0, 30, + 1}]; SelectionMove[ + EvaluationNotebook[], After, Cell]; CellPrint[ + Cell[ + BoxData[ + ToBoxes[ + TableForm[$CellContext`dataX]]], "Output"]], + MessageDialog[ + "\:041e\:0448\:0438\:0431\:043a\:0430: \ +\:0421\:043d\:0430\:0447\:0430\:043b\:0430 \:0432\:044b\:0434\:0435\:043b\ +\:0438\:0442\:0435 \:043d\:0443\:0436\:043d\:044b\:0439 \:0433\:0440\:0430\ +\:0444\:0438\:043a (\:043a\:043b\:0438\:043a\:043d\:0438\:0442\:0435 \:043f\ +\:043e \:0435\:0433\:043e \:044f\:0447\:0435\:0439\:043a\:0435 \:0441\:043f\ +\:0440\:0430\:0432\:0430)!", WindowFloating -> True]]], Background -> + RGBColor[0.9, 0.95, 1], ImageSize -> {180, 25}, Appearance -> Automatic, + Evaluator -> Automatic, Method -> "Preemptive"]}, + "RowDefault"], + Background->GrayLevel[0.95], + FrameMargins->10]], "Output", + CellChangeTimes->{ + 3.994306253151259*^9},ExpressionUUID->"bb6efade-d00b-48e8-bb01-\ +db01e3db1c9b"], + +Cell[BoxData[ + TagBox[GridBox[{ + {"0", + RowBox[{"-", "6.776263578034403`*^-20"}]}, + {"1", "0.012967821910746004`"}, + {"2", "0.025432531300577876`"}, + {"3", "0.03692419474677215`"}, + {"4", "0.047033421661261725`"}, + {"5", "0.055438422799081545`"}, + {"6", "0.061917615962370755`"}, + {"7", "0.06636122857386303`"}, + {"8", "0.06876873920171263`"}, + {"9", "0.0692404010936155`"}, + {"10", "0.06796171810999001`"}, + {"11", "0.0651831899975386`"}, + {"12", "0.061197560643765206`"}, + {"13", "0.056316759384404405`"}, + {"14", "0.05085046922876875`"}, + {"15", "0.045088174715546984`"}, + {"16", "0.039284927141141`"}, + {"17", "0.033652867954909495`"}, + {"18", "0.028355913887981508`"}, + {"19", "0.02350994982124317`"}, + {"20", "0.019186250163584724`"}, + {"21", "0.015415972923393837`"}, + {"22", "0.012198199965061628`"}, + {"23", "0.009507270851938348`"}, + {"24", "0.007300017029208823`"}, + {"25", "0.005522921488224643`"}, + {"26", "0.004117646192816387`"}, + {"27", "0.0030256676504015504`"}, + {"28", "0.0021914150281837695`"}, + {"29", "0.0015646111267855337`"}, + {"30", "0.001101292802106224`"} + }, + GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[2.0999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + Function[BoxForm`e$, + TableForm[BoxForm`e$]]]], "Output", + CellChangeTimes->{ + 3.994306267184659*^9},ExpressionUUID->"3578c236-4ebc-43f5-aa21-\ +1d760143ebcc"] +}, Open ]] }, -WindowSize->{714, 288}, -WindowMargins->{{-3, Automatic}, {297, Automatic}}, +WindowSize->{1440, 882}, +WindowMargins->{{0, Automatic}, {0, 18}}, CellContext->Notebook, FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", @@ -15603,641 +15829,648 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 428, 8, 29, "Input",ExpressionUUID->"e2613019-1cd1-4448-b93f-d9e947ba1863"], -Cell[1007, 32, 424, 7, 33, "Output",ExpressionUUID->"d4fd105c-488d-48db-b763-a57b5c481649"] +Cell[576, 22, 423, 7, 66, "Input",ExpressionUUID->"e2613019-1cd1-4448-b93f-d9e947ba1863"], +Cell[1002, 31, 445, 7, 41, "Output",ExpressionUUID->"2e215bec-6e4f-4712-bc2b-57a2a0234a6b"] }, Open ]], Cell[CellGroupData[{ -Cell[1468, 44, 251, 5, 29, "Input",ExpressionUUID->"443e9bcf-7ea8-4c60-b9dd-9b2a8fb814b9"], -Cell[1722, 51, 427, 7, 33, "Output",ExpressionUUID->"1a9ea5cd-87c2-40b2-9c38-7bc78fd2c0c5"] +Cell[1484, 43, 246, 4, 36, "Input",ExpressionUUID->"443e9bcf-7ea8-4c60-b9dd-9b2a8fb814b9"], +Cell[1733, 49, 448, 7, 41, "Output",ExpressionUUID->"22fd1f04-d303-4dfe-8e1b-7e57d0e0aa8e"] }, Open ]], Cell[CellGroupData[{ -Cell[2186, 63, 225, 5, 29, "Input",ExpressionUUID->"0440c475-241f-431d-a534-e7681d26cb0a"], -Cell[2414, 70, 450, 8, 33, "Output",ExpressionUUID->"f72af903-72ad-49f7-b876-be07a6a28860"] +Cell[2218, 61, 220, 4, 36, "Input",ExpressionUUID->"0440c475-241f-431d-a534-e7681d26cb0a"], +Cell[2441, 67, 467, 7, 41, "Output",ExpressionUUID->"f58c24c8-cf50-4a24-904d-e2cfd18ea177"] }, Open ]], Cell[CellGroupData[{ -Cell[2901, 83, 180, 4, 29, "Input",ExpressionUUID->"ef1d6164-8176-48b6-850c-9d997dda1516"], -Cell[3084, 89, 426, 7, 33, "Output",ExpressionUUID->"5f815c8b-ff3b-435d-97be-e18947ab8f10"] +Cell[2945, 79, 175, 3, 36, "Input",ExpressionUUID->"ef1d6164-8176-48b6-850c-9d997dda1516"], +Cell[3123, 84, 447, 7, 41, "Output",ExpressionUUID->"19b1048c-e203-46aa-bb1d-3b48c2e380dc"] }, Open ]], Cell[CellGroupData[{ -Cell[3547, 101, 262, 8, 42, "Input",ExpressionUUID->"41f05153-1908-4f00-a841-ae32c5084d77"], -Cell[3812, 111, 437, 7, 33, "Output",ExpressionUUID->"7a9c001c-3924-42d7-bc5a-54b5337189c1"] +Cell[3607, 96, 257, 7, 54, "Input",ExpressionUUID->"41f05153-1908-4f00-a841-ae32c5084d77"], +Cell[3867, 105, 458, 7, 41, "Output",ExpressionUUID->"c8b2455f-8da7-4d15-acb8-204a4ffbc993"] }, Open ]], Cell[CellGroupData[{ -Cell[4286, 123, 136, 3, 29, "Input",ExpressionUUID->"41549578-bfdd-4c63-919a-ca83e6cfaefc"], -Cell[4425, 128, 429, 7, 33, "Output",ExpressionUUID->"bafbd14c-ca5e-4a37-a07c-0553e416ccb2"] +Cell[4362, 117, 131, 2, 36, "Input",ExpressionUUID->"41549578-bfdd-4c63-919a-ca83e6cfaefc"], +Cell[4496, 121, 452, 7, 41, "Output",ExpressionUUID->"7fd8b0c9-023f-490e-aca8-af97d67d559d"] }, Open ]], Cell[CellGroupData[{ -Cell[4891, 140, 281, 7, 29, "Input",ExpressionUUID->"5709b6e1-d7b3-4886-a917-560d39a0bd84"], -Cell[5175, 149, 436, 7, 33, "Output",ExpressionUUID->"60667043-fdb9-4519-afb3-9c89e6ca31e3"] +Cell[4985, 133, 276, 6, 36, "Input",ExpressionUUID->"5709b6e1-d7b3-4886-a917-560d39a0bd84"], +Cell[5264, 141, 457, 7, 41, "Output",ExpressionUUID->"dd6f7ce0-e866-44cd-a341-256e9bd7ba47"] }, Open ]], Cell[CellGroupData[{ -Cell[5648, 161, 262, 8, 29, "Input",ExpressionUUID->"a0107a62-7ec2-409a-b807-ea94b3cf0630"], -Cell[5913, 171, 432, 7, 33, "Output",ExpressionUUID->"51e3025d-5121-4acc-a584-c09be5affe5d"] +Cell[5758, 153, 257, 7, 36, "Input",ExpressionUUID->"a0107a62-7ec2-409a-b807-ea94b3cf0630"], +Cell[6018, 162, 455, 7, 41, "Output",ExpressionUUID->"72f01787-8098-4231-8ed7-d8b409b1dc12"] }, Open ]], Cell[CellGroupData[{ -Cell[6382, 183, 231, 5, 29, "Input",ExpressionUUID->"636ac2f6-3024-432d-b163-bcf5b0a8ed7a"], -Cell[6616, 190, 405, 7, 33, "Output",ExpressionUUID->"61bb687b-7628-47f0-ba8d-cc0dcb08bdec"] +Cell[6510, 174, 226, 4, 36, "Input",ExpressionUUID->"636ac2f6-3024-432d-b163-bcf5b0a8ed7a"], +Cell[6739, 180, 421, 6, 41, "Output",ExpressionUUID->"cd851554-0d0d-4cb4-9654-1b670836e6ed"] }, Open ]], Cell[CellGroupData[{ -Cell[7058, 202, 230, 5, 29, "Input",ExpressionUUID->"7b7fb43d-a28c-43a3-b61a-23f6168edf15"], -Cell[7291, 209, 397, 7, 33, "Output",ExpressionUUID->"6a8cd77a-0723-4fdd-befb-25887a9176ff"] +Cell[7197, 191, 226, 4, 36, "Input",ExpressionUUID->"7b7fb43d-a28c-43a3-b61a-23f6168edf15"], +Cell[7426, 197, 415, 6, 41, "Output",ExpressionUUID->"18b9e5e3-e5ee-46b1-bf44-8829cecc4afd"] }, Open ]], Cell[CellGroupData[{ -Cell[7725, 221, 133, 3, 29, "Input",ExpressionUUID->"b9037d32-08c5-4b43-b77b-c223e453cddb"], -Cell[7861, 226, 422, 7, 33, "Output",ExpressionUUID->"88526cba-413c-4e8f-a247-63b7aaaa582a"] +Cell[7878, 208, 129, 2, 36, "Input",ExpressionUUID->"b9037d32-08c5-4b43-b77b-c223e453cddb"], +Cell[8010, 212, 444, 7, 41, "Output",ExpressionUUID->"25be450c-b03c-4d96-a0bd-5e0a316b9fe3"] }, Open ]], Cell[CellGroupData[{ -Cell[8320, 238, 133, 3, 29, "Input",ExpressionUUID->"fcbeb936-c4b5-4282-b9a2-fe0786c368b1"], -Cell[8456, 243, 422, 7, 33, "Output",ExpressionUUID->"2b687b6b-552c-4a6b-ad1e-afbd230ca4ed"] +Cell[8491, 224, 129, 2, 36, "Input",ExpressionUUID->"fcbeb936-c4b5-4282-b9a2-fe0786c368b1"], +Cell[8623, 228, 444, 7, 41, "Output",ExpressionUUID->"46479521-38b2-4543-8ab9-a02591db558d"] }, Open ]], Cell[CellGroupData[{ -Cell[8915, 255, 561, 20, 79, "Input",ExpressionUUID->"417e4130-f2b1-4e39-b540-9674d94f7503"], -Cell[9479, 277, 440, 7, 33, "Output",ExpressionUUID->"32b8ffec-a4e8-45a2-a216-40ca76ffe4be"] +Cell[9104, 240, 557, 19, 100, "Input",ExpressionUUID->"417e4130-f2b1-4e39-b540-9674d94f7503"], +Cell[9664, 261, 462, 7, 41, "Output",ExpressionUUID->"5526fb10-f75b-4466-ba4e-9b96b297ee80"] }, Open ]], Cell[CellGroupData[{ -Cell[9956, 289, 561, 20, 79, "Input",ExpressionUUID->"b4aa75b6-ed33-41c9-b0cd-b743a5f94ef8"], -Cell[10520, 311, 437, 7, 33, "Output",ExpressionUUID->"179ec3e0-52a4-4463-92d2-a771f3308974"] +Cell[10163, 273, 557, 19, 100, "Input",ExpressionUUID->"b4aa75b6-ed33-41c9-b0cd-b743a5f94ef8"], +Cell[10723, 294, 461, 7, 41, "Output",ExpressionUUID->"40a2fe55-0519-488a-a65c-3a1d27bb4a76"] }, Open ]], Cell[CellGroupData[{ -Cell[10994, 323, 1496, 49, 79, "Input",ExpressionUUID->"df14f441-4a87-4295-a720-81ccd5a32dae"], -Cell[12493, 374, 436, 7, 33, "Output",ExpressionUUID->"5ec68db5-7cae-42cb-a223-7b33cf0f9825"] +Cell[11221, 306, 1588, 50, 103, "Input",ExpressionUUID->"df14f441-4a87-4295-a720-81ccd5a32dae"], +Cell[12812, 358, 458, 7, 41, "Output",ExpressionUUID->"98186082-1b9d-44b0-a00d-8b05d693337f"] }, Open ]], Cell[CellGroupData[{ -Cell[12966, 386, 1335, 45, 79, "Input",ExpressionUUID->"fb1bf839-fed5-405c-bd20-b6c9348412b6"], -Cell[14304, 433, 452, 8, 33, "Output",ExpressionUUID->"fce84782-b694-483c-8ffe-91cb0ed7b14f"] +Cell[13307, 370, 1422, 46, 73, "Input",ExpressionUUID->"fb1bf839-fed5-405c-bd20-b6c9348412b6"], +Cell[14732, 418, 474, 8, 41, "Output",ExpressionUUID->"f5e39cec-c7ec-4799-b230-41b4a7190750"] }, Open ]], Cell[CellGroupData[{ -Cell[14793, 446, 1335, 45, 79, "Input",ExpressionUUID->"8373afe2-afec-489f-8564-39b14c4e3251"], -Cell[16131, 493, 457, 8, 33, "Output",ExpressionUUID->"03369303-0f9a-496b-b644-da890b74728b"] +Cell[15243, 431, 1422, 46, 73, "Input",ExpressionUUID->"8373afe2-afec-489f-8564-39b14c4e3251"], +Cell[16668, 479, 481, 8, 41, "Output",ExpressionUUID->"b07e74f0-6fd4-4eec-86fa-12fe28c56087"] }, Open ]], Cell[CellGroupData[{ -Cell[16625, 506, 1496, 49, 79, "Input",ExpressionUUID->"ecd52cbc-ac4b-46c8-9f6d-5b532e60bc36"], -Cell[18124, 557, 432, 7, 33, "Output",ExpressionUUID->"8295c406-bcd4-426c-8f3a-94863916736a"] +Cell[17186, 492, 1588, 50, 103, "Input",ExpressionUUID->"ecd52cbc-ac4b-46c8-9f6d-5b532e60bc36"], +Cell[18777, 544, 456, 7, 41, "Output",ExpressionUUID->"c3f36a3b-6924-4a0f-9adc-ccddcbc153aa"] }, Open ]], Cell[CellGroupData[{ -Cell[18593, 569, 135, 3, 29, "Input",ExpressionUUID->"f9e1f2f8-62ca-48cc-a15b-da24067d61ee"], -Cell[18731, 574, 423, 7, 33, "Output",ExpressionUUID->"6f3c7896-8947-4195-a0f4-f721808fb326"] +Cell[19270, 556, 131, 2, 36, "Input",ExpressionUUID->"f9e1f2f8-62ca-48cc-a15b-da24067d61ee"], +Cell[19404, 560, 447, 7, 41, "Output",ExpressionUUID->"19dee2bd-7532-44c8-98e8-f977e2477f27"] }, Open ]], Cell[CellGroupData[{ -Cell[19191, 586, 137, 3, 29, "Input",ExpressionUUID->"e24330f7-97a2-461b-a8b4-b8973bc9a75a"], -Cell[19331, 591, 423, 7, 33, "Output",ExpressionUUID->"6d31738c-f199-4c93-9a6a-236c16f13995"] +Cell[19888, 572, 133, 2, 36, "Input",ExpressionUUID->"e24330f7-97a2-461b-a8b4-b8973bc9a75a"], +Cell[20024, 576, 445, 7, 41, "Output",ExpressionUUID->"1bb9913a-53a7-4a96-9257-490c4a5b4be6"] }, Open ]], Cell[CellGroupData[{ -Cell[19791, 603, 138, 3, 29, "Input",ExpressionUUID->"011c1e33-c606-4918-88c9-27d634a13cba"], -Cell[19932, 608, 429, 7, 33, "Output",ExpressionUUID->"9c81f793-174e-4d73-894f-eabad6bf8aa6"] +Cell[20506, 588, 134, 2, 36, "Input",ExpressionUUID->"011c1e33-c606-4918-88c9-27d634a13cba"], +Cell[20643, 592, 451, 7, 41, "Output",ExpressionUUID->"cc0bda9b-0d4b-4095-b2de-101082904ed0"] }, Open ]], Cell[CellGroupData[{ -Cell[20398, 620, 223, 5, 29, "Input",ExpressionUUID->"6be913a8-c54f-488d-8d90-c7271ff8c2de"], -Cell[20624, 627, 434, 8, 33, "Output",ExpressionUUID->"420596df-c0fc-4bd7-9d6f-bc679216ad2c"] +Cell[21131, 604, 219, 4, 36, "Input",ExpressionUUID->"6be913a8-c54f-488d-8d90-c7271ff8c2de"], +Cell[21353, 610, 458, 8, 41, "Output",ExpressionUUID->"9e026328-9157-4d24-a1cb-c40d15f3b396"] }, Open ]], Cell[CellGroupData[{ -Cell[21095, 640, 138, 3, 29, "Input",ExpressionUUID->"add03edc-2776-45d5-a58f-7187a239bb40"], -Cell[21236, 645, 424, 7, 33, "Output",ExpressionUUID->"bd6ff632-d188-49b1-89b5-efeb048893f6"] +Cell[21848, 623, 134, 2, 36, "Input",ExpressionUUID->"add03edc-2776-45d5-a58f-7187a239bb40"], +Cell[21985, 627, 446, 7, 41, "Output",ExpressionUUID->"4afba6c8-104d-41a1-af5b-3ae772ad541e"] }, Open ]], Cell[CellGroupData[{ -Cell[21697, 657, 330, 6, 29, "Input",ExpressionUUID->"2fbd90d7-193f-4d04-8180-1206116ebdb2"], -Cell[22030, 665, 393, 7, 33, "Output",ExpressionUUID->"e5e42f13-5ce8-4763-bb85-89c27bbf3fd8"] +Cell[22468, 639, 326, 5, 36, "Input",ExpressionUUID->"2fbd90d7-193f-4d04-8180-1206116ebdb2"], +Cell[22797, 646, 411, 6, 41, "Output",ExpressionUUID->"70399c3a-7204-43fe-a28f-960a45fed4fd"] }, Open ]], Cell[CellGroupData[{ -Cell[22460, 677, 299, 6, 29, "Input",ExpressionUUID->"fc4235bf-fadc-4690-8f0d-18f3b2200088"], -Cell[22762, 685, 423, 7, 33, "Output",ExpressionUUID->"24dbef3c-4ae3-41d7-9b31-769355b412ff"] +Cell[23245, 657, 295, 5, 36, "Input",ExpressionUUID->"fc4235bf-fadc-4690-8f0d-18f3b2200088"], +Cell[23543, 664, 445, 7, 41, "Output",ExpressionUUID->"814d5698-4af1-4386-a717-98c29df849a4"] }, Open ]], Cell[CellGroupData[{ -Cell[23222, 697, 223, 5, 29, "Input",ExpressionUUID->"5f74ce5d-7cfb-4ba8-aaf8-5d83cab854b9"], -Cell[23448, 704, 421, 7, 33, "Output",ExpressionUUID->"10cff456-b828-4002-9096-a1ef2322e773"] +Cell[24025, 676, 219, 4, 36, "Input",ExpressionUUID->"5f74ce5d-7cfb-4ba8-aaf8-5d83cab854b9"], +Cell[24247, 682, 443, 7, 41, "Output",ExpressionUUID->"20258c55-de00-4daf-b7a4-9ab0b35c9f8b"] }, Open ]], Cell[CellGroupData[{ -Cell[23906, 716, 354, 11, 42, "Input",ExpressionUUID->"9fa1cd0a-4306-4258-afa3-6065345a4359"], -Cell[24263, 729, 443, 7, 33, "Output",ExpressionUUID->"33004a9b-800c-4fff-bb82-fb359bbd1c9b"] +Cell[24727, 694, 350, 10, 54, "Input",ExpressionUUID->"9fa1cd0a-4306-4258-afa3-6065345a4359"], +Cell[25080, 706, 467, 7, 41, "Output",ExpressionUUID->"98e00214-d8b2-4a8a-9e61-f4363a7bdc56"] }, Open ]], Cell[CellGroupData[{ -Cell[24743, 741, 354, 11, 42, "Input",ExpressionUUID->"09c01555-6043-4676-bd39-e31b19457e4b"], -Cell[25100, 754, 450, 8, 33, "Output",ExpressionUUID->"9b490649-9d84-4d5b-8157-f49fff47fe6d"] +Cell[25584, 718, 350, 10, 54, "Input",ExpressionUUID->"09c01555-6043-4676-bd39-e31b19457e4b"], +Cell[25937, 730, 472, 8, 41, "Output",ExpressionUUID->"fde49fca-2726-4c02-8d7c-cd6b16f211d2"] }, Open ]], Cell[CellGroupData[{ -Cell[25587, 767, 998, 27, 81, "Input",ExpressionUUID->"69f69ce7-bfb8-4f66-ba9e-f95a6d86dc06"], -Cell[26588, 796, 435, 7, 33, "Output",ExpressionUUID->"a263013c-a933-46e6-89ad-22e7826fe2e3"] +Cell[26446, 743, 994, 26, 55, "Input",ExpressionUUID->"69f69ce7-bfb8-4f66-ba9e-f95a6d86dc06"], +Cell[27443, 771, 457, 7, 41, "Output",ExpressionUUID->"1cbe0891-50f3-4344-9a28-a842b235949c"] }, Open ]], Cell[CellGroupData[{ -Cell[27060, 808, 203, 4, 29, "Input",ExpressionUUID->"2ba5902a-1951-4847-91cb-b0923cd2fa14"], -Cell[27266, 814, 422, 7, 33, "Output",ExpressionUUID->"b109a9cd-f642-4657-b4fc-b30b971cac78"] +Cell[27937, 783, 199, 3, 36, "Input",ExpressionUUID->"2ba5902a-1951-4847-91cb-b0923cd2fa14"], +Cell[28139, 788, 444, 7, 41, "Output",ExpressionUUID->"f4d303e9-2ea3-41a8-99fe-a5a01a64f456"] }, Open ]], Cell[CellGroupData[{ -Cell[27725, 826, 333, 6, 29, "Input",ExpressionUUID->"db3c1156-4ab5-445a-93e3-5e6eb64b0af5"], -Cell[28061, 834, 402, 7, 33, "Output",ExpressionUUID->"b2fbf44f-506d-44e8-9544-1867ac6550b2"] +Cell[28620, 800, 329, 5, 36, "Input",ExpressionUUID->"db3c1156-4ab5-445a-93e3-5e6eb64b0af5"], +Cell[28952, 807, 420, 6, 41, "Output",ExpressionUUID->"880910dc-70a4-4f67-8037-ad61b06bcf52"] }, Open ]], -Cell[28478, 844, 177, 3, 29, "Input",ExpressionUUID->"5931bbf5-181e-415f-82d2-c1c2cb0e608a"], +Cell[29387, 816, 173, 2, 36, "Input",ExpressionUUID->"5931bbf5-181e-415f-82d2-c1c2cb0e608a"], Cell[CellGroupData[{ -Cell[28680, 851, 333, 6, 29, "Input",ExpressionUUID->"bd268473-bc46-4773-9997-e67daff24693"], -Cell[29016, 859, 400, 7, 33, "Output",ExpressionUUID->"f891d17f-6856-46a0-b060-d5a4704e4ab2"] +Cell[29585, 822, 329, 5, 36, "Input",ExpressionUUID->"bd268473-bc46-4773-9997-e67daff24693"], +Cell[29917, 829, 418, 6, 41, "Output",ExpressionUUID->"0565c7d2-68e1-4541-a307-56bccfb7deef"] }, Open ]], -Cell[29431, 869, 177, 3, 29, "Input",ExpressionUUID->"972ec9a7-2100-480e-904a-88a4be38cc23"], +Cell[30350, 838, 173, 2, 36, "Input",ExpressionUUID->"972ec9a7-2100-480e-904a-88a4be38cc23"], Cell[CellGroupData[{ -Cell[29633, 876, 334, 6, 29, "Input",ExpressionUUID->"aa1e39a9-2135-47d8-a0b5-63b872d3c5ae"], -Cell[29970, 884, 399, 7, 33, "Output",ExpressionUUID->"69bb5a1b-11ec-44f4-bd72-b6479f6f28cb"] +Cell[30548, 844, 330, 5, 36, "Input",ExpressionUUID->"aa1e39a9-2135-47d8-a0b5-63b872d3c5ae"], +Cell[30881, 851, 416, 6, 41, "Output",ExpressionUUID->"e6b784c6-a121-4285-a8f5-eb4bb71654c1"] }, Open ]], -Cell[30384, 894, 177, 3, 29, "Input",ExpressionUUID->"9f0b83ba-fe4d-4494-b58a-252ef815fdf2"], +Cell[31312, 860, 173, 2, 36, "Input",ExpressionUUID->"9f0b83ba-fe4d-4494-b58a-252ef815fdf2"], Cell[CellGroupData[{ -Cell[30586, 901, 356, 6, 29, "Input",ExpressionUUID->"d7bec374-17fb-47a0-a3a1-78c5a8fef486"], -Cell[30945, 909, 401, 7, 33, "Output",ExpressionUUID->"2d4fc780-da15-4d36-985b-a37e7dd5f0b3"] +Cell[31510, 866, 352, 5, 36, "Input",ExpressionUUID->"d7bec374-17fb-47a0-a3a1-78c5a8fef486"], +Cell[31865, 873, 421, 6, 41, "Output",ExpressionUUID->"b5bdc12a-811e-43c0-8c48-5c7e71327cbd"] }, Open ]], -Cell[31361, 919, 175, 3, 29, "Input",ExpressionUUID->"337543ae-832b-4d9b-bfc6-7bcb457ba7e6"], +Cell[32301, 882, 171, 2, 36, "Input",ExpressionUUID->"337543ae-832b-4d9b-bfc6-7bcb457ba7e6"], Cell[CellGroupData[{ -Cell[31561, 926, 304, 6, 29, "Input",ExpressionUUID->"0a708962-e9f1-4707-b1f9-836dce9e0193"], -Cell[31868, 934, 397, 7, 33, "Output",ExpressionUUID->"b81f3211-78b6-4bd3-9a2e-9e7fb7aa0b0d"] +Cell[32497, 888, 300, 5, 36, "Input",ExpressionUUID->"0a708962-e9f1-4707-b1f9-836dce9e0193"], +Cell[32800, 895, 415, 6, 41, "Output",ExpressionUUID->"93c459f8-6b89-4c45-9cf5-695ca04b3bb3"] }, Open ]], -Cell[32280, 944, 175, 3, 29, "Input",ExpressionUUID->"969e4461-b550-4fcd-9506-8fa9ab11c4a4"], +Cell[33230, 904, 171, 2, 36, "Input",ExpressionUUID->"969e4461-b550-4fcd-9506-8fa9ab11c4a4"], Cell[CellGroupData[{ -Cell[32480, 951, 308, 6, 29, "Input",ExpressionUUID->"8a5a4a0c-3c8d-43f6-bc79-b05e89692fa2"], -Cell[32791, 959, 406, 7, 33, "Output",ExpressionUUID->"22972986-ffaf-43d9-8331-1203e6e77faa"] +Cell[33426, 910, 304, 5, 36, "Input",ExpressionUUID->"8a5a4a0c-3c8d-43f6-bc79-b05e89692fa2"], +Cell[33733, 917, 424, 6, 41, "Output",ExpressionUUID->"54450ec1-87dc-458b-a6f5-d0aa49341ccc"] }, Open ]], -Cell[33212, 969, 177, 3, 29, "Input",ExpressionUUID->"d562173a-f871-47b4-b1cc-e4805c0d6d5a"], +Cell[34172, 926, 173, 2, 36, "Input",ExpressionUUID->"d562173a-f871-47b4-b1cc-e4805c0d6d5a"], Cell[CellGroupData[{ -Cell[33414, 976, 311, 6, 29, "Input",ExpressionUUID->"f93cc465-f599-4745-bcbf-a8a51fd7a1a9"], -Cell[33728, 984, 397, 7, 33, "Output",ExpressionUUID->"9c6e512b-4de4-46ef-8ab2-e0215070a0c1"] +Cell[34370, 932, 307, 5, 36, "Input",ExpressionUUID->"f93cc465-f599-4745-bcbf-a8a51fd7a1a9"], +Cell[34680, 939, 417, 6, 41, "Output",ExpressionUUID->"75df8110-da98-43ff-8609-7711a5d42f4b"] }, Open ]], -Cell[34140, 994, 176, 3, 29, "Input",ExpressionUUID->"c7af8400-6139-42fe-a5e8-672bdba2cdf2"], +Cell[35112, 948, 172, 2, 36, "Input",ExpressionUUID->"c7af8400-6139-42fe-a5e8-672bdba2cdf2"], Cell[CellGroupData[{ -Cell[34341, 1001, 278, 5, 29, "Input",ExpressionUUID->"89009734-4da1-455a-b750-75ef5b7b38c4"], -Cell[34622, 1008, 404, 7, 33, "Output",ExpressionUUID->"63f4dbf2-0f15-4a23-8838-ba96610c34f3"] +Cell[35309, 954, 274, 4, 36, "Input",ExpressionUUID->"89009734-4da1-455a-b750-75ef5b7b38c4"], +Cell[35586, 960, 422, 6, 41, "Output",ExpressionUUID->"b3493d35-a7fd-463f-bcb3-90093d2a691d"] }, Open ]], -Cell[35041, 1018, 179, 3, 29, "Input",ExpressionUUID->"6e419f8d-b777-4b6c-8b26-1bc47e16689c"], +Cell[36023, 969, 175, 2, 36, "Input",ExpressionUUID->"6e419f8d-b777-4b6c-8b26-1bc47e16689c"], Cell[CellGroupData[{ -Cell[35245, 1025, 19813, 486, 1844, "Input",ExpressionUUID->"59c6a01e-7abe-4a0d-b5ab-eddbba5a8883"], -Cell[55061, 1513, 452, 8, 33, "Output",ExpressionUUID->"74b5eeb9-8895-4640-9e7f-b97f932738de"] +Cell[36223, 975, 19809, 485, 1708, "Input",ExpressionUUID->"59c6a01e-7abe-4a0d-b5ab-eddbba5a8883"], +Cell[56035, 1462, 474, 8, 41, "Output",ExpressionUUID->"44e4d46b-b99f-49e4-a86f-a4631fad7a13"] }, Open ]], Cell[CellGroupData[{ -Cell[55550, 1526, 19752, 490, 1981, "Input",ExpressionUUID->"9fe9fa3a-9aad-4efe-9673-a425841a5d45"], -Cell[75305, 2018, 436, 7, 33, "Output",ExpressionUUID->"225c2c94-b8fe-47b2-aa85-cd1a95a70080"] +Cell[56546, 1475, 19748, 489, 1720, "Input",ExpressionUUID->"9fe9fa3a-9aad-4efe-9673-a425841a5d45"], +Cell[76297, 1966, 458, 7, 41, "Output",ExpressionUUID->"0f14f789-65a9-4b11-943a-4e466363921d"] }, Open ]], Cell[CellGroupData[{ -Cell[75778, 2030, 19752, 484, 1970, "Input",ExpressionUUID->"ef1feabe-3968-464c-844d-1e5d155c2fa3"], -Cell[95533, 2516, 450, 8, 33, "Output",ExpressionUUID->"3fe860d3-0a7c-452c-94a8-90d5b40fe390"] +Cell[76792, 1978, 19748, 483, 1720, "Input",ExpressionUUID->"ef1feabe-3968-464c-844d-1e5d155c2fa3"], +Cell[96543, 2463, 472, 8, 41, "Output",ExpressionUUID->"ade9a2b7-65c2-4bf4-b505-7280486764c2"] }, Open ]], Cell[CellGroupData[{ -Cell[96020, 2529, 22538, 554, 2217, "Input",ExpressionUUID->"1e581ee0-054b-46d2-8c5a-9bb5982d598c"], -Cell[118561, 3085, 459, 8, 33, "Output",ExpressionUUID->"6a9faec9-eed0-4e11-a587-a6ac3ae026a8"] +Cell[97052, 2476, 22534, 553, 1885, "Input",ExpressionUUID->"1e581ee0-054b-46d2-8c5a-9bb5982d598c"], +Cell[119589, 3031, 481, 8, 41, "Output",ExpressionUUID->"4ed36e6d-4e5c-4a37-ba24-e8ec99324dca"] }, Open ]], Cell[CellGroupData[{ -Cell[119057, 3098, 22539, 554, 2254, "Input",ExpressionUUID->"5583bf70-cddf-4d50-81b6-7778328ce6a0"], -Cell[141599, 3654, 459, 8, 33, "Output",ExpressionUUID->"14eff3a8-4161-422c-a3a6-8c988877b3f4"] +Cell[120107, 3044, 22535, 553, 1885, "Input",ExpressionUUID->"5583bf70-cddf-4d50-81b6-7778328ce6a0"], +Cell[142645, 3599, 481, 8, 41, "Output",ExpressionUUID->"7bdfdb77-c379-4200-8b40-32a4abe956b3"] }, Open ]], Cell[CellGroupData[{ -Cell[142095, 3667, 25495, 627, 2501, "Input",ExpressionUUID->"d4a9e022-861f-44b4-abb0-cf2c42b811ab"], -Cell[167593, 4296, 452, 8, 33, "Output",ExpressionUUID->"c6577197-bfa6-42df-a82d-96a935534840"] +Cell[143163, 3612, 25491, 626, 2078, "Input",ExpressionUUID->"d4a9e022-861f-44b4-abb0-cf2c42b811ab"], +Cell[168657, 4240, 474, 8, 41, "Output",ExpressionUUID->"5972a839-9b36-4010-ba7b-ec26314537bd"] }, Open ]], Cell[CellGroupData[{ -Cell[168082, 4309, 134, 3, 29, "Input",ExpressionUUID->"07a57a47-78cf-4e94-a219-34714ea7078f"], -Cell[168219, 4314, 418, 7, 33, "Output",ExpressionUUID->"4eb78385-cbe7-4eaf-8a71-e49e4baf4bd4"] +Cell[169168, 4253, 130, 2, 36, "Input",ExpressionUUID->"07a57a47-78cf-4e94-a219-34714ea7078f"], +Cell[169301, 4257, 440, 7, 41, "Output",ExpressionUUID->"77e4f596-1d74-4513-9fa2-fec6aa1ec190"] }, Open ]], Cell[CellGroupData[{ -Cell[168674, 4326, 134, 3, 29, "Input",ExpressionUUID->"9f52ceaf-b908-44ad-953a-e2910cf1edf0"], -Cell[168811, 4331, 419, 7, 33, "Output",ExpressionUUID->"6e664c6f-c830-44a4-a8b7-065ffaffac3f"] +Cell[169778, 4269, 130, 2, 36, "Input",ExpressionUUID->"9f52ceaf-b908-44ad-953a-e2910cf1edf0"], +Cell[169911, 4273, 440, 7, 41, "Output",ExpressionUUID->"5d526322-5edb-4071-8cb6-4efd3b0fb66e"] }, Open ]], Cell[CellGroupData[{ -Cell[169267, 4343, 1148, 40, 107, "Input",ExpressionUUID->"b3b33961-ae3b-4338-9b97-8b1c115e81a8"], -Cell[170418, 4385, 436, 7, 33, "Output",ExpressionUUID->"56155f4f-e685-4a1a-b21c-af1796a094e1"] +Cell[170388, 4285, 1144, 39, 73, "Input",ExpressionUUID->"b3b33961-ae3b-4338-9b97-8b1c115e81a8"], +Cell[171535, 4326, 457, 7, 41, "Output",ExpressionUUID->"a467e925-d5a9-43bb-8fb7-a5b96d62b77c"] }, Open ]], Cell[CellGroupData[{ -Cell[170891, 4397, 1045, 36, 107, "Input",ExpressionUUID->"cb9e573b-77e1-4f2c-a160-b65bdb479ee7"], -Cell[171939, 4435, 449, 8, 33, "Output",ExpressionUUID->"380594f3-4c91-4919-9dbd-d6d3ca4a3c8e"] +Cell[172029, 4338, 1041, 35, 73, "Input",ExpressionUUID->"cb9e573b-77e1-4f2c-a160-b65bdb479ee7"], +Cell[173073, 4375, 471, 8, 41, "Output",ExpressionUUID->"92d1cdb7-7631-4ea2-a7e6-a113826e1baf"] }, Open ]], Cell[CellGroupData[{ -Cell[172425, 4448, 1148, 40, 107, "Input",ExpressionUUID->"70992e07-ab8c-4ce5-b358-14db4a13dc00"], -Cell[173576, 4490, 442, 7, 33, "Output",ExpressionUUID->"08b93e62-8b44-4cac-9f59-63efe672ea9a"] +Cell[173581, 4388, 1144, 39, 73, "Input",ExpressionUUID->"70992e07-ab8c-4ce5-b358-14db4a13dc00"], +Cell[174728, 4429, 464, 7, 41, "Output",ExpressionUUID->"2b69a130-8051-41b9-9e06-ba1cd264138f"] }, Open ]], Cell[CellGroupData[{ -Cell[174055, 4502, 112, 2, 29, "Input",ExpressionUUID->"384b135b-4522-4b24-9059-13c7f46e631d"], -Cell[174170, 4506, 439, 7, 33, "Output",ExpressionUUID->"705d0161-5a4c-4fef-9632-b8a55b372fc2"] +Cell[175229, 4441, 108, 1, 36, "Input",ExpressionUUID->"384b135b-4522-4b24-9059-13c7f46e631d"], +Cell[175340, 4444, 463, 7, 41, "Output",ExpressionUUID->"afa19d15-b4f4-4178-95f8-fec27b37dd17"] }, Open ]], Cell[CellGroupData[{ -Cell[174646, 4518, 112, 2, 29, "Input",ExpressionUUID->"a05eb3c9-d58f-40f8-a39c-a1ab424f5b02"], -Cell[174761, 4522, 453, 8, 33, "Output",ExpressionUUID->"8c2e52eb-a0b0-4b53-a18c-61cefd6622ff"] +Cell[175840, 4456, 108, 1, 36, "Input",ExpressionUUID->"a05eb3c9-d58f-40f8-a39c-a1ab424f5b02"], +Cell[175951, 4459, 477, 8, 41, "Output",ExpressionUUID->"c43fcadf-c7a0-444e-a6eb-e74d0b37ce91"] }, Open ]], Cell[CellGroupData[{ -Cell[175251, 4535, 112, 2, 29, "Input",ExpressionUUID->"c36cbbf2-2585-4db0-b38c-380a55b33acc"], -Cell[175366, 4539, 455, 8, 33, "Output",ExpressionUUID->"875db7a7-09e3-4adb-bc2b-b845448d0299"] +Cell[176465, 4472, 108, 1, 36, "Input",ExpressionUUID->"c36cbbf2-2585-4db0-b38c-380a55b33acc"], +Cell[176576, 4475, 477, 8, 41, "Output",ExpressionUUID->"5e6131eb-bdda-41fb-9f16-deabb8575f85"] }, Open ]], Cell[CellGroupData[{ -Cell[175858, 4552, 112, 2, 29, "Input",ExpressionUUID->"dbe59e5f-37d6-4087-ab77-dc1c6394dac8"], -Cell[175973, 4556, 438, 7, 33, "Output",ExpressionUUID->"7752c35a-9089-4894-bdb4-2a40f08fb54a"] +Cell[177090, 4488, 108, 1, 36, "Input",ExpressionUUID->"dbe59e5f-37d6-4087-ab77-dc1c6394dac8"], +Cell[177201, 4491, 460, 7, 41, "Output",ExpressionUUID->"2fa20e9f-8837-479f-a3b2-95e00cb57c9b"] }, Open ]], Cell[CellGroupData[{ -Cell[176448, 4568, 111, 2, 29, "Input",ExpressionUUID->"f0adf480-5480-4750-98be-1b6f2161d1de"], -Cell[176562, 4572, 438, 7, 33, "Output",ExpressionUUID->"2d5f30a1-d71c-470a-8f0e-35635667a39a"] +Cell[177698, 4503, 107, 1, 36, "Input",ExpressionUUID->"f0adf480-5480-4750-98be-1b6f2161d1de"], +Cell[177808, 4506, 460, 7, 41, "Output",ExpressionUUID->"9227e8a0-fd8d-4bf3-8986-fcbfe27230bd"] }, Open ]], Cell[CellGroupData[{ -Cell[177037, 4584, 111, 2, 29, "Input",ExpressionUUID->"8936e7fb-c178-4ca6-9a68-4e0919efc614"], -Cell[177151, 4588, 437, 7, 33, "Output",ExpressionUUID->"8fc2108c-3aeb-4560-a70c-5f732167be56"] +Cell[178305, 4518, 107, 1, 36, "Input",ExpressionUUID->"8936e7fb-c178-4ca6-9a68-4e0919efc614"], +Cell[178415, 4521, 459, 7, 41, "Output",ExpressionUUID->"ecf2c577-6054-4e1e-9cd7-4058eaab7060"] }, Open ]], Cell[CellGroupData[{ -Cell[177625, 4600, 501, 17, 55, "Input",ExpressionUUID->"2e930878-5f0e-46e2-bb48-74486ca20414"], -Cell[178129, 4619, 449, 8, 33, "Output",ExpressionUUID->"917126ff-22c4-48e1-bf6b-9ceb1cb0d366"] +Cell[178911, 4533, 497, 16, 71, "Input",ExpressionUUID->"2e930878-5f0e-46e2-bb48-74486ca20414"], +Cell[179411, 4551, 473, 8, 41, "Output",ExpressionUUID->"0324a740-3a20-4ab9-b8e9-7b77b560891a"] }, Open ]], Cell[CellGroupData[{ -Cell[178615, 4632, 501, 17, 55, "Input",ExpressionUUID->"2b862371-4e0b-462d-995c-2f10996cce70"], -Cell[179119, 4651, 447, 8, 33, "Output",ExpressionUUID->"9395d7ee-33ea-4256-8021-ac9b1d7dadbb"] +Cell[179921, 4564, 497, 16, 71, "Input",ExpressionUUID->"2b862371-4e0b-462d-995c-2f10996cce70"], +Cell[180421, 4582, 468, 8, 41, "Output",ExpressionUUID->"4653df07-a401-42b8-a3b7-9592f719a676"] }, Open ]], Cell[CellGroupData[{ -Cell[179603, 4664, 1792, 61, 183, "Input",ExpressionUUID->"7b4a10f4-9a7e-4b72-a748-57082eabd0e7"], -Cell[181398, 4727, 435, 7, 33, "Output",ExpressionUUID->"b43b4cc0-44e4-459a-9dc5-9836ed23d803"] +Cell[180926, 4595, 1788, 60, 142, "Input",ExpressionUUID->"7b4a10f4-9a7e-4b72-a748-57082eabd0e7"], +Cell[182717, 4657, 459, 7, 41, "Output",ExpressionUUID->"ebe14560-a5a6-4f64-bcf4-d4f807b4ea7d"] }, Open ]], Cell[CellGroupData[{ -Cell[181870, 4739, 1105, 37, 131, "Input",ExpressionUUID->"08e21e0d-42c2-40a7-be13-a153ded206f8"], -Cell[182978, 4778, 452, 8, 33, "Output",ExpressionUUID->"0701c1de-d94d-434a-aa79-e2329a461e2c"] +Cell[183213, 4669, 1101, 36, 73, "Input",ExpressionUUID->"08e21e0d-42c2-40a7-be13-a153ded206f8"], +Cell[184317, 4707, 474, 8, 41, "Output",ExpressionUUID->"8e278ec1-1f72-449e-8cc9-1e3e021ba32d"] }, Open ]], Cell[CellGroupData[{ -Cell[183467, 4791, 1822, 62, 160, "Input",ExpressionUUID->"9a2d7b0b-790a-4058-b496-aa10960c048a"], -Cell[185292, 4855, 436, 7, 33, "Output",ExpressionUUID->"d11cc552-4d80-42b6-bca4-296644cafc73"] +Cell[184828, 4720, 1818, 61, 144, "Input",ExpressionUUID->"9a2d7b0b-790a-4058-b496-aa10960c048a"], +Cell[186649, 4783, 458, 7, 41, "Output",ExpressionUUID->"0f2c9307-aa67-4abf-9bfb-c85a1996b984"] }, Open ]], Cell[CellGroupData[{ -Cell[185765, 4867, 1635, 54, 162, "Input",ExpressionUUID->"29897a30-ec4c-4955-8c6b-9ba83d18963b"], -Cell[187403, 4923, 438, 7, 33, "Output",ExpressionUUID->"5c2d0a94-4c49-43d5-b908-41b61b4a1d78"] +Cell[187144, 4795, 1631, 53, 101, "Input",ExpressionUUID->"29897a30-ec4c-4955-8c6b-9ba83d18963b"], +Cell[188778, 4850, 460, 7, 41, "Output",ExpressionUUID->"0f61154f-af5f-4d35-b593-eafea59d5ab5"] }, Open ]], Cell[CellGroupData[{ -Cell[187878, 4935, 1635, 54, 162, "Input",ExpressionUUID->"fbb25ab1-9afb-43d7-a82a-6f344966c492"], -Cell[189516, 4991, 435, 7, 33, "Output",ExpressionUUID->"91f58316-1aa1-4662-98b2-782aed6190e3"] +Cell[189275, 4862, 1631, 53, 101, "Input",ExpressionUUID->"fbb25ab1-9afb-43d7-a82a-6f344966c492"], +Cell[190909, 4917, 457, 7, 41, "Output",ExpressionUUID->"aeafd6bd-90a1-42e5-9aec-aed61c28f1e4"] }, Open ]], Cell[CellGroupData[{ -Cell[189988, 5003, 230, 5, 29, "Input",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], -Cell[190221, 5010, 238, 5, 33, "Output",ExpressionUUID->"8907ee7e-d5d0-402d-b24f-0805f550a387"] +Cell[191403, 4929, 226, 4, 36, "Input",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], +Cell[191632, 4935, 256, 4, 41, "Output",ExpressionUUID->"bc338146-58a2-4cf1-9478-b5da703618d4"] }, Open ]], -Cell[190474, 5018, 177, 3, 29, "Input",ExpressionUUID->"93cad80c-1de7-2e4b-9b8c-14a272e65d1f"], +Cell[191903, 4942, 173, 2, 36, "Input",ExpressionUUID->"93cad80c-1de7-2e4b-9b8c-14a272e65d1f"], Cell[CellGroupData[{ -Cell[190676, 5025, 233, 5, 29, "Input",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], -Cell[190912, 5032, 236, 5, 33, "Output",ExpressionUUID->"42a92faf-9c62-4d94-bf9a-37a8880cef45"] +Cell[192101, 4948, 229, 4, 36, "Input",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], +Cell[192333, 4954, 254, 4, 41, "Output",ExpressionUUID->"475adbe8-6475-4950-8493-c6c3dbd6979d"] }, Open ]], -Cell[191163, 5040, 175, 3, 29, "Input",ExpressionUUID->"15fe72e6-19f0-9540-b29f-3056e2e0b957"], +Cell[192602, 4961, 171, 2, 36, "Input",ExpressionUUID->"15fe72e6-19f0-9540-b29f-3056e2e0b957"], Cell[CellGroupData[{ -Cell[191363, 5047, 1301, 43, 111, "Input",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], -Cell[192667, 5092, 274, 5, 33, "Output",ExpressionUUID->"86afbdc5-4961-4d4c-a1a2-307ff9ba0073"] +Cell[192798, 4967, 1297, 42, 61, "Input",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], +Cell[194098, 5011, 292, 4, 41, "Output",ExpressionUUID->"89fff74b-ed62-4bf4-9e25-3f9f5aee8cae"] }, Open ]], Cell[CellGroupData[{ -Cell[192978, 5102, 933, 31, 96, "Input",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], -Cell[193914, 5135, 273, 5, 33, "Output",ExpressionUUID->"744b8b7e-dede-44bd-ab11-9b675b375848"] +Cell[194427, 5020, 929, 30, 73, "Input",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], +Cell[195359, 5052, 291, 4, 41, "Output",ExpressionUUID->"30686db7-9b86-4d59-89a5-27b64d67a72d"] }, Open ]], Cell[CellGroupData[{ -Cell[194224, 5145, 908, 30, 55, "Input",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], -Cell[195135, 5177, 280, 5, 33, "Output",ExpressionUUID->"41b86a86-0ea6-421b-9c59-c2b49b287042"] +Cell[195687, 5061, 904, 29, 73, "Input",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], +Cell[196594, 5092, 298, 4, 41, "Output",ExpressionUUID->"8dba9cff-62bc-47a4-a5b6-b49d998636d6"] }, Open ]], Cell[CellGroupData[{ -Cell[195452, 5187, 558, 19, 51, "Input",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], -Cell[196013, 5208, 272, 5, 33, "Output",ExpressionUUID->"a3edd8e1-9378-47d9-a8e7-5c608ced1558"] +Cell[196929, 5101, 554, 18, 66, "Input",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], +Cell[197486, 5121, 292, 4, 41, "Output",ExpressionUUID->"e8ac8260-d3b1-4441-bf3e-de45f4897a6c"] }, Open ]], Cell[CellGroupData[{ -Cell[196322, 5218, 623, 21, 51, "Input",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], -Cell[196948, 5241, 271, 5, 33, "Output",ExpressionUUID->"85912d8c-219e-4780-9dda-21fec721e177"] +Cell[197815, 5130, 619, 20, 66, "Input",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], +Cell[198437, 5152, 291, 4, 41, "Output",ExpressionUUID->"e949365d-b3d9-461f-a7b4-3da44df2458f"] }, Open ]], Cell[CellGroupData[{ -Cell[197256, 5251, 170, 5, 55, "Input",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], -Cell[197429, 5258, 268, 5, 33, "Output",ExpressionUUID->"e4f48cd1-7fe3-4fdb-afda-d6e0640adf89"] +Cell[198765, 5161, 166, 4, 71, "Input",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], +Cell[198934, 5167, 288, 4, 41, "Output",ExpressionUUID->"115e2f4a-2598-406e-b6df-258e0a7ea181"] }, Open ]], Cell[CellGroupData[{ -Cell[197734, 5268, 170, 5, 54, "Input",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], -Cell[197907, 5275, 266, 5, 33, "Output",ExpressionUUID->"9e2bce8d-f46b-4c70-af11-d313cc4659e2"] +Cell[199259, 5176, 166, 4, 69, "Input",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], +Cell[199428, 5182, 283, 4, 41, "Output",ExpressionUUID->"bf50df0b-ebd1-4b55-b1ef-47b921e610f8"] }, Open ]], Cell[CellGroupData[{ -Cell[198210, 5285, 181, 5, 43, "Input",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], -Cell[198394, 5292, 267, 5, 33, "Output",ExpressionUUID->"a011ca80-5ac6-459d-b1c5-2215e8b8746b"] +Cell[199748, 5191, 177, 4, 55, "Input",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], +Cell[199928, 5197, 285, 4, 41, "Output",ExpressionUUID->"3e8b3ec5-7402-41d8-b632-ab37f17bb608"] }, Open ]], Cell[CellGroupData[{ -Cell[198698, 5302, 181, 5, 43, "Input",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], -Cell[198882, 5309, 271, 5, 33, "Output",ExpressionUUID->"917c2e23-2ba6-4cca-968f-ad1b099c6b04"] +Cell[200250, 5206, 177, 4, 55, "Input",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], +Cell[200430, 5212, 291, 4, 41, "Output",ExpressionUUID->"1d95f2c5-d499-4b1d-8a9e-445e29bae281"] }, Open ]], Cell[CellGroupData[{ -Cell[199190, 5319, 6055, 185, 474, "Input",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], -Cell[205248, 5506, 274, 5, 33, "Output",ExpressionUUID->"1111cc34-f2ab-4265-9748-78c2ecc3044d"] +Cell[200758, 5221, 6051, 184, 431, "Input",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], +Cell[206812, 5407, 294, 4, 41, "Output",ExpressionUUID->"60aa294c-8683-4959-a237-5b4bf892ba65"] }, Open ]], Cell[CellGroupData[{ -Cell[205559, 5516, 410, 10, 57, "Input",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], -Cell[205972, 5528, 316, 6, 49, "Output",ExpressionUUID->"6cc60b67-f232-4393-bbdb-adcb27d9062f"] +Cell[207143, 5416, 406, 9, 73, "Input",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], +Cell[207552, 5427, 334, 5, 61, "Output",ExpressionUUID->"b8cf965c-f29d-47c5-90e5-2b29e47b67f5"] }, Open ]], Cell[CellGroupData[{ -Cell[206325, 5539, 6122, 187, 474, "Input",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], -Cell[212450, 5728, 276, 5, 33, "Output",ExpressionUUID->"fecff830-c8c8-4e89-88c4-afe64d8252ec"] +Cell[207923, 5437, 6118, 186, 431, "Input",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], +Cell[214044, 5625, 293, 4, 41, "Output",ExpressionUUID->"4b8d33f5-0051-4e12-b6aa-d36a61d6e7d1"] }, Open ]], Cell[CellGroupData[{ -Cell[212763, 5738, 368, 9, 41, "Input",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], -Cell[213134, 5749, 268, 5, 33, "Output",ExpressionUUID->"7a0e6e54-9e42-481f-85f9-c5788122f126"] +Cell[214374, 5634, 364, 8, 53, "Input",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], +Cell[214741, 5644, 286, 4, 41, "Output",ExpressionUUID->"4e5c6d9b-e457-4d84-92bf-fbbe70c03b29"] }, Open ]], Cell[CellGroupData[{ -Cell[213439, 5759, 2663, 88, 285, "Input",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], -Cell[216105, 5849, 271, 5, 33, "Output",ExpressionUUID->"dac4f234-2dbc-4f2a-b799-949302976f29"] +Cell[215064, 5653, 2659, 87, 215, "Input",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], +Cell[217726, 5742, 289, 4, 41, "Output",ExpressionUUID->"04728486-b4d0-4cfb-ad73-18aed6679e5c"] }, Open ]], Cell[CellGroupData[{ -Cell[216413, 5859, 2603, 85, 211, "Input",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], -Cell[219019, 5946, 271, 5, 33, "Output",ExpressionUUID->"302fc248-a86d-48cb-9b5f-539d065c4e5c"] +Cell[218052, 5751, 2599, 84, 215, "Input",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], +Cell[220654, 5837, 289, 4, 41, "Output",ExpressionUUID->"a3431266-72c9-4dc5-83cb-9799bb6c7a3c"] }, Open ]], Cell[CellGroupData[{ -Cell[219327, 5956, 3712, 118, 327, "Input",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], -Cell[223042, 6076, 270, 5, 33, "Output",ExpressionUUID->"9eb7ae23-6a3a-4f35-8f86-8380d70bd085"] +Cell[220980, 5846, 3708, 117, 316, "Input",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], +Cell[224691, 5965, 290, 4, 41, "Output",ExpressionUUID->"636d327e-4efa-406a-8ebb-280dfc5297c0"] }, Open ]], -Cell[223327, 6084, 164, 4, 29, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], +Cell[224996, 5972, 160, 3, 36, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], Cell[CellGroupData[{ -Cell[223516, 6092, 2075, 59, 234, "Input",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], -Cell[225594, 6153, 676, 15, 80, "Message",ExpressionUUID->"f0bb1dad-445b-4475-a3a8-befa0d983aa9"], -Cell[226273, 6170, 681, 15, 80, "Message",ExpressionUUID->"cd2b4475-19fa-42b1-977e-6337c3f6fb23"], -Cell[226957, 6187, 684, 15, 80, "Message",ExpressionUUID->"86717bb6-fa86-4853-98f1-6b7918532c06"], -Cell[227644, 6204, 571, 13, 26, "Message",ExpressionUUID->"2858be08-b268-4bc6-9336-c1e615d5226f"], -Cell[228218, 6219, 269, 5, 33, "Output",ExpressionUUID->"cd95d79e-fbb1-4fec-9587-bb0989fa8824"] +Cell[225181, 5979, 2071, 58, 116, "Input",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], +Cell[227255, 6039, 757, 16, 48, "Message",ExpressionUUID->"89cb9494-3873-4cab-bfe0-b68aed2c8035"], +Cell[228015, 6057, 758, 16, 48, "Message",ExpressionUUID->"458b5589-bd35-413f-bb87-b2f71d91a9bd"], +Cell[228776, 6075, 758, 16, 48, "Message",ExpressionUUID->"7601be35-c948-4074-909f-dfc34eccea65"], +Cell[229537, 6093, 587, 13, 32, "Message",ExpressionUUID->"02af6b6d-49ae-40a3-8440-85c4c1bd5576"], +Cell[230127, 6108, 287, 4, 41, "Output",ExpressionUUID->"6b8fb343-e19b-4adb-85f9-758934ee234d"] }, Open ]], Cell[CellGroupData[{ -Cell[228524, 6229, 2077, 59, 234, "Input",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], -Cell[230604, 6290, 677, 15, 80, "Message",ExpressionUUID->"6150d9fb-4b61-4cc0-837f-09ecd19c3538"], -Cell[231284, 6307, 685, 15, 80, "Message",ExpressionUUID->"eb02c601-a6dc-43b2-842d-2075e177e786"], -Cell[231972, 6324, 686, 15, 80, "Message",ExpressionUUID->"1540a7ef-14ae-420c-ade1-18a60e1ca0a8"], -Cell[232661, 6341, 571, 13, 26, "Message",ExpressionUUID->"be9e2673-20b2-41d4-a00e-ca02eaf03c21"], -Cell[233235, 6356, 266, 5, 33, "Output",ExpressionUUID->"b29b41f9-2a88-46b5-b13a-0a779e1d636b"] +Cell[230451, 6117, 2073, 58, 116, "Input",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], +Cell[232527, 6177, 758, 16, 48, "Message",ExpressionUUID->"58bc8216-13d7-4c59-a937-999109ea9733"], +Cell[233288, 6195, 759, 16, 48, "Message",ExpressionUUID->"b933cba3-a1b0-48b5-a934-3f57d835a644"], +Cell[234050, 6213, 761, 16, 48, "Message",ExpressionUUID->"f0dfd1b6-95bc-4f89-9a17-dc2f01329d3a"], +Cell[234814, 6231, 586, 13, 32, "Message",ExpressionUUID->"ca6326bc-1557-48ce-880c-af220190201b"], +Cell[235403, 6246, 286, 4, 41, "Output",ExpressionUUID->"95cee66f-5f48-44c9-a19b-e9283e9afb1f"] }, Open ]], Cell[CellGroupData[{ -Cell[233538, 6366, 1961, 53, 102, "Input",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], -Cell[235502, 6421, 20531, 388, 240, "Output",ExpressionUUID->"8248db6d-f345-4e71-b8bb-108b0f1831cc"] +Cell[235726, 6255, 2049, 54, 63, "Input",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], +Cell[237778, 6311, 20551, 387, 301, "Output",ExpressionUUID->"62b3f7d8-933d-4600-9efc-3b2954c80dd5"] }, Open ]], Cell[CellGroupData[{ -Cell[256070, 6814, 2115, 60, 261, "Input",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], -Cell[258188, 6876, 537, 12, 59, "Message",ExpressionUUID->"7411883c-b85a-4f53-a4e5-41252b857684"], -Cell[258728, 6890, 540, 12, 59, "Message",ExpressionUUID->"03115f23-fa88-4de7-abae-4a3b5911aae6"], -Cell[259271, 6904, 544, 12, 59, "Message",ExpressionUUID->"fa604317-63f1-41c2-9609-279e74d4e1ad"], -Cell[259818, 6918, 493, 11, 26, "Message",ExpressionUUID->"ecd63d0e-215c-4a48-b28d-0eaa5e34de40"], -Cell[260314, 6931, 22434, 417, 234, "Output",ExpressionUUID->"089a698f-7b8d-4b27-94ed-4ef88eb53843"] +Cell[258366, 6703, 2111, 59, 116, "Input",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], +Cell[260480, 6764, 556, 13, 48, "Message",ExpressionUUID->"9e8aec13-42c5-4cda-8e8a-0e19a4b5f3fb"], +Cell[261039, 6779, 560, 13, 48, "Message",ExpressionUUID->"c14cceec-03ed-4b72-b3a9-d8b46ff0a4e6"], +Cell[261602, 6794, 564, 13, 48, "Message",ExpressionUUID->"927b363b-963b-43ac-b442-bbcba6a64645"], +Cell[262169, 6809, 513, 12, 32, "Message",ExpressionUUID->"39055043-6fd0-4241-af12-132890ad0b80"], +Cell[262685, 6823, 22455, 417, 293, "Output",ExpressionUUID->"37cb5ca1-278d-4828-a520-db77da1e30ff"] }, Open ]], Cell[CellGroupData[{ -Cell[282785, 7353, 2480, 70, 169, "Input",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], -Cell[285268, 7425, 9496, 223, 242, "Output",ExpressionUUID->"b0d8f2c3-9630-462c-ab11-388fe567dc23"] +Cell[285177, 7245, 2476, 69, 140, "Input",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], +Cell[287656, 7316, 9514, 222, 303, "Output",ExpressionUUID->"480c4013-b65e-4dcb-bf67-125d7f5105ae"] }, Open ]], Cell[CellGroupData[{ -Cell[294801, 7653, 232, 5, 29, "Input",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], -Cell[295036, 7660, 28794, 549, 234, "Output",ExpressionUUID->"fe2a41bb-d389-4b2c-b608-6544584a8168"] +Cell[297207, 7543, 228, 4, 36, "Input",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], +Cell[297438, 7549, 28812, 548, 293, "Output",ExpressionUUID->"b4c8b08e-c51e-4638-a2f0-e95271ec7fe2"] }, Open ]], Cell[CellGroupData[{ -Cell[323867, 8214, 240, 7, 47, "Input",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], -Cell[324110, 8223, 193, 3, 33, "Output",ExpressionUUID->"e1c84f90-e51e-4ff9-b91e-1ddfe0b28fbf"] +Cell[326287, 8102, 236, 6, 61, "Input",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], +Cell[326526, 8110, 216, 3, 41, "Output",ExpressionUUID->"4c6ffe93-27b7-48f7-af99-d909576ce406"] }, Open ]], Cell[CellGroupData[{ -Cell[324340, 8231, 1839, 53, 190, "Input",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], -Cell[326182, 8286, 547, 12, 59, "Message",ExpressionUUID->"844dccdc-feaa-494f-ba5f-7f3b18313545"], -Cell[326732, 8300, 545, 12, 59, "Message",ExpressionUUID->"f2658ebb-6507-43b6-84af-2f915b6910f7"], -Cell[327280, 8314, 548, 12, 59, "Message",ExpressionUUID->"0578e9ed-b2ca-4182-be7a-2018ae49e135"], -Cell[327831, 8328, 492, 11, 26, "Message",ExpressionUUID->"6336bbf2-045b-43d3-876c-876c98bf72c6"], -Cell[328326, 8341, 23739, 438, 232, "Output",ExpressionUUID->"1350bc78-9228-4346-af21-2a2e9461692c"] +Cell[326779, 8118, 1835, 52, 116, "Input",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], +Cell[328617, 8172, 567, 13, 48, "Message",ExpressionUUID->"ce5699ad-9f7b-4cf8-8e2f-48dff4e6ea2a"], +Cell[329187, 8187, 567, 13, 48, "Message",ExpressionUUID->"6c192927-9d88-49e0-9ae7-2467460ee462"], +Cell[329757, 8202, 569, 13, 48, "Message",ExpressionUUID->"3e27145d-0b6d-4fc8-bbe6-731ff19195de"], +Cell[330329, 8217, 516, 12, 32, "Message",ExpressionUUID->"d360ded1-b42e-4af6-8bb1-d03e28ec0b8e"], +Cell[330848, 8231, 23760, 438, 290, "Output",ExpressionUUID->"61a03a4d-2c9f-4404-a623-937e7ff4b3d5"] }, Open ]], Cell[CellGroupData[{ -Cell[352102, 8784, 1616, 48, 104, "Input",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], -Cell[353721, 8834, 630, 13, 80, "Message",ExpressionUUID->"7952c96c-44fa-45e4-93b4-7775eb6d6e73"], -Cell[354354, 8849, 634, 13, 80, "Message",ExpressionUUID->"299d58b3-1f7c-4da1-b159-0e9853eeb412"], -Cell[354991, 8864, 725, 15, 80, "Message",ExpressionUUID->"e049cc58-007c-4ba1-97ab-dba1578f3ff5"], -Cell[355719, 8881, 495, 11, 26, "Message",ExpressionUUID->"c390de56-6572-4cc5-87f9-842e36d21290"], -Cell[356217, 8894, 193, 3, 33, "Output",ExpressionUUID->"05d65de7-84cd-4aa5-a191-6b5cf83eae5f"] +Cell[354645, 8674, 1616, 48, 86, "Input",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], +Cell[356264, 8724, 690, 15, 48, "Message",ExpressionUUID->"99c3ee78-fd6c-44cf-9f7b-56a4a08a8ee4"], +Cell[356957, 8741, 689, 15, 48, "Message",ExpressionUUID->"373354e7-a975-467d-85ec-9f1ad6519259"], +Cell[357649, 8758, 687, 15, 48, "Message",ExpressionUUID->"a4447d70-5197-4f5e-943f-b11a45051de9"], +Cell[358339, 8775, 515, 12, 32, "Message",ExpressionUUID->"63efaad4-f632-454a-a211-316efbb3c927"], +Cell[358857, 8789, 220, 4, 41, "Output",ExpressionUUID->"b46df93e-ee45-4d9f-a5de-067d808729b2"] }, Open ]], Cell[CellGroupData[{ -Cell[356447, 8902, 2270, 64, 212, "Input",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], -Cell[358720, 8968, 600, 13, 80, "Message",ExpressionUUID->"d3b01940-ab9c-4ed2-848b-683f61a906d2"], -Cell[359323, 8983, 605, 13, 80, "Message",ExpressionUUID->"2f81a440-4221-42e4-8bab-588e17fab627"], -Cell[359931, 8998, 608, 13, 80, "Message",ExpressionUUID->"e979a177-f304-4d92-9604-76529c6cff95"], -Cell[360542, 9013, 492, 11, 26, "Message",ExpressionUUID->"6f0137ba-021d-4bad-9d82-2672c3de3660"], -Cell[361037, 9026, 195, 3, 33, "Output",ExpressionUUID->"cc20d487-dc53-4dcc-bcec-ed99ba962734"] +Cell[359114, 8798, 2270, 64, 81, "Input",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], +Cell[361387, 8864, 687, 15, 48, "Message",ExpressionUUID->"62c1d586-b60b-414f-b56c-956e5cc9b3e3"], +Cell[362077, 8881, 688, 15, 48, "Message",ExpressionUUID->"c6dce636-ad17-4951-b755-f2c044fa7129"], +Cell[362768, 8898, 688, 15, 48, "Message",ExpressionUUID->"76d63a4c-d2e5-49e0-bb4f-35152c8f8114"], +Cell[363459, 8915, 515, 12, 32, "Message",ExpressionUUID->"73e0f859-251e-48cc-8217-afe778c32e78"], +Cell[363977, 8929, 219, 4, 41, "Output",ExpressionUUID->"54f48304-197c-425b-b994-592e9fc1ac02"] }, Open ]], Cell[CellGroupData[{ -Cell[361269, 9034, 2233, 63, 212, "Input",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], -Cell[363505, 9099, 602, 13, 80, "Message",ExpressionUUID->"f6c08f42-2b99-4625-8ff6-e8e9d1a52f3d"], -Cell[364110, 9114, 607, 13, 80, "Message",ExpressionUUID->"976c08a1-7dab-401f-bb01-884da17100f0"], -Cell[364720, 9129, 608, 13, 80, "Message",ExpressionUUID->"1877cd5c-9bca-4499-9ac1-964f124021e6"], -Cell[365331, 9144, 495, 11, 26, "Message",ExpressionUUID->"caab4845-2726-4a85-8ab3-9e0b2213b0e2"], -Cell[365829, 9157, 191, 3, 33, "Output",ExpressionUUID->"97cb6798-3276-4c36-b268-5fb451a16899"] +Cell[364233, 8938, 2233, 63, 81, "Input",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], +Cell[366469, 9003, 689, 15, 48, "Message",ExpressionUUID->"d4a3e5f6-c2ea-4368-bdbd-7944f8ebf3b0"], +Cell[367161, 9020, 689, 15, 48, "Message",ExpressionUUID->"d1294f23-2ef3-4b58-a89b-774366e48d9a"], +Cell[367853, 9037, 690, 15, 48, "Message",ExpressionUUID->"3826695b-72ef-41f1-9040-8cc31df4b537"], +Cell[368546, 9054, 517, 12, 32, "Message",ExpressionUUID->"667c00a1-fbe8-46d6-b75a-ab0276c13b12"], +Cell[369066, 9068, 218, 4, 41, "Output",ExpressionUUID->"765929a2-1fb4-4beb-8b30-14e9c54e674d"] }, Open ]], Cell[CellGroupData[{ -Cell[366057, 9165, 2233, 63, 212, "Input",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], -Cell[368293, 9230, 604, 13, 80, "Message",ExpressionUUID->"a13979e8-90b6-470c-afff-aff034754570"], -Cell[368900, 9245, 609, 13, 80, "Message",ExpressionUUID->"61f0836c-d380-4f5a-b684-d557ef29df64"], -Cell[369512, 9260, 612, 13, 80, "Message",ExpressionUUID->"f98e1c3b-5732-4f1a-bdc3-42b1fc3a81a6"], -Cell[370127, 9275, 497, 11, 26, "Message",ExpressionUUID->"647fc013-07e6-4cbd-a64b-f0062c6007bb"], -Cell[370627, 9288, 192, 3, 33, "Output",ExpressionUUID->"39a28402-2b45-4a3b-8238-c4f91fac58d7"] +Cell[369321, 9077, 2233, 63, 81, "Input",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], +Cell[371557, 9142, 691, 15, 48, "Message",ExpressionUUID->"5110d1fc-be14-4d13-846f-03ac324dca1a"], +Cell[372251, 9159, 692, 15, 48, "Message",ExpressionUUID->"fb10e3f3-629c-4223-8c5e-ba27643cc75c"], +Cell[372946, 9176, 692, 15, 48, "Message",ExpressionUUID->"30f0e036-bcf9-4163-bb72-612f51c940cc"], +Cell[373641, 9193, 519, 12, 32, "Message",ExpressionUUID->"b2a59bce-a85b-43b3-a85f-c52fd45fef4e"], +Cell[374163, 9207, 217, 4, 41, "Output",ExpressionUUID->"b276ed79-ff9e-4810-ab3a-186e703c56bb"] }, Open ]], Cell[CellGroupData[{ -Cell[370856, 9296, 238, 6, 46, "Input",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], -Cell[371097, 9304, 194, 3, 33, "Output",ExpressionUUID->"5faf956e-3cfa-4714-815b-e2b4997e7019"] +Cell[374417, 9216, 238, 6, 60, "Input",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], +Cell[374658, 9224, 219, 4, 41, "Output",ExpressionUUID->"0c1e7ebf-b085-450a-b0d1-23ddc5cc2385"] }, Open ]], -Cell[371306, 9310, 271, 6, 29, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], +Cell[374892, 9231, 271, 6, 36, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], Cell[CellGroupData[{ -Cell[371602, 9320, 558, 19, 51, "Input",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], -Cell[372163, 9341, 194, 3, 33, "Output",ExpressionUUID->"417f9f58-9b55-4de0-b368-9b80141fbd93"] +Cell[375188, 9241, 558, 19, 66, "Input",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], +Cell[375749, 9262, 219, 4, 41, "Output",ExpressionUUID->"1eac382a-4686-4924-bfc3-7f0e3772182d"] }, Open ]], Cell[CellGroupData[{ -Cell[372394, 9349, 170, 5, 55, "Input",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], -Cell[372567, 9356, 194, 3, 33, "Output",ExpressionUUID->"013a28d7-8b09-4b6d-8cef-4d6efbc406fd"] +Cell[376005, 9271, 170, 5, 71, "Input",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], +Cell[376178, 9278, 219, 4, 41, "Output",ExpressionUUID->"856d91e7-2c7c-49fb-9172-d08a7b844947"] }, Open ]], Cell[CellGroupData[{ -Cell[372798, 9364, 181, 5, 43, "Input",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], -Cell[372982, 9371, 195, 3, 33, "Output",ExpressionUUID->"941c95c5-c5f0-4ae6-af4b-90d6aafe0756"] +Cell[376434, 9287, 181, 5, 55, "Input",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], +Cell[376618, 9294, 220, 4, 41, "Output",ExpressionUUID->"8dcbf39f-a9e6-431c-8626-9a94e1920cbf"] }, Open ]], Cell[CellGroupData[{ -Cell[373214, 9379, 6055, 185, 474, "Input",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], -Cell[379272, 9566, 197, 3, 33, "Output",ExpressionUUID->"0a366f1b-b00d-43a6-9d75-02b40151783c"] +Cell[376875, 9303, 6055, 185, 431, "Input",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], +Cell[382933, 9490, 224, 4, 41, "Output",ExpressionUUID->"9ecd443c-4c0c-4467-b788-2794181e3db0"] }, Open ]], Cell[CellGroupData[{ -Cell[379506, 9574, 368, 9, 41, "Input",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], -Cell[379877, 9585, 197, 3, 33, "Output",ExpressionUUID->"b08cd80f-0acf-4296-a902-63c4118487e9"] +Cell[383194, 9499, 368, 9, 53, "Input",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], +Cell[383565, 9510, 222, 4, 41, "Output",ExpressionUUID->"ab4bf19a-e705-42f5-a889-ef1dabb9b4e1"] }, Open ]], Cell[CellGroupData[{ -Cell[380111, 9593, 6122, 187, 474, "Input",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], -Cell[386236, 9782, 196, 3, 33, "Output",ExpressionUUID->"cce731a5-adc5-4bf6-a28e-3d39df4e4ef8"] +Cell[383824, 9519, 6122, 187, 431, "Input",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], +Cell[389949, 9708, 221, 4, 41, "Output",ExpressionUUID->"a9b5bd63-c421-48f5-bf17-7925a8d4f995"] }, Open ]], Cell[CellGroupData[{ -Cell[386469, 9790, 368, 9, 41, "Input",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], -Cell[386840, 9801, 192, 3, 33, "Output",ExpressionUUID->"b45619fa-4281-469b-a0f1-854bc0f57876"] +Cell[390207, 9717, 368, 9, 53, "Input",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], +Cell[390578, 9728, 219, 4, 41, "Output",ExpressionUUID->"c31e689a-0c6c-4239-906d-1e32c26724e4"] }, Open ]], Cell[CellGroupData[{ -Cell[387069, 9809, 2663, 88, 285, "Input",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], -Cell[389735, 9899, 194, 3, 33, "Output",ExpressionUUID->"af33a0b4-81b3-4032-9e64-4b9a84f86afb"] +Cell[390834, 9737, 2663, 88, 215, "Input",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], +Cell[393500, 9827, 219, 4, 41, "Output",ExpressionUUID->"441da035-d120-4cd8-82d9-a7d1436b8d2e"] }, Open ]], Cell[CellGroupData[{ -Cell[389966, 9907, 2603, 85, 211, "Input",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], -Cell[392572, 9994, 193, 3, 33, "Output",ExpressionUUID->"3c511603-5b75-4506-b90e-7d9353897a40"] +Cell[393756, 9836, 2603, 85, 215, "Input",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], +Cell[396362, 9923, 218, 4, 41, "Output",ExpressionUUID->"ee42baf5-e3e2-45a7-ad67-899fd12c3548"] }, Open ]], Cell[CellGroupData[{ -Cell[392802, 10002, 3712, 118, 327, "Input",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], -Cell[396517, 10122, 197, 3, 33, "Output",ExpressionUUID->"277cd595-dc78-4e20-92e4-776669eebf9e"] +Cell[396617, 9932, 3712, 118, 316, "Input",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], +Cell[400332, 10052, 222, 4, 41, "Output",ExpressionUUID->"08be7cba-c74d-404f-984e-c51e5cc24c17"] }, Open ]], Cell[CellGroupData[{ -Cell[396751, 10130, 2075, 59, 234, "Input",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], -Cell[398829, 10191, 600, 13, 80, "Message",ExpressionUUID->"19b7419b-99f7-44a1-a9bf-807d2bf86f0c"], -Cell[399432, 10206, 601, 13, 80, "Message",ExpressionUUID->"34681da4-23b8-4b45-b82b-8454e951e66e"], -Cell[400036, 10221, 610, 13, 80, "Message",ExpressionUUID->"0f7a6ad9-5d9d-4cac-9ce6-2cd44f0fe3de"], -Cell[400649, 10236, 493, 11, 26, "Message",ExpressionUUID->"3032e88f-6f76-4eff-91bc-158dd0b626c1"], -Cell[401145, 10249, 192, 3, 33, "Output",ExpressionUUID->"4b75a10a-90e7-437d-a4f8-e9c64eed0379"] +Cell[400591, 10061, 2075, 59, 116, "Input",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], +Cell[402669, 10122, 687, 15, 48, "Message",ExpressionUUID->"fd0daa83-08a3-446c-ba0b-1d26a1d6cb7d"], +Cell[403359, 10139, 686, 15, 48, "Message",ExpressionUUID->"fb82c25c-9971-49ac-bbc4-82ffa14b0dc3"], +Cell[404048, 10156, 688, 15, 48, "Message",ExpressionUUID->"e3d6ca71-26eb-4461-8095-68997248d756"], +Cell[404739, 10173, 515, 12, 32, "Message",ExpressionUUID->"d5f8d80a-f7ad-4dac-b00b-a297f621390a"], +Cell[405257, 10187, 219, 4, 41, "Output",ExpressionUUID->"63e4d5fe-b848-4e16-b700-bb594e8c37d1"] }, Open ]], Cell[CellGroupData[{ -Cell[401374, 10257, 2077, 59, 234, "Input",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], -Cell[403454, 10318, 600, 13, 80, "Message",ExpressionUUID->"e6f9da1d-19b9-4d17-bc7e-4c8bbdbe5c5d"], -Cell[404057, 10333, 605, 13, 80, "Message",ExpressionUUID->"55a37460-04b6-4566-9e9b-6d8218cd8fab"], -Cell[404665, 10348, 608, 13, 80, "Message",ExpressionUUID->"6a397a08-4cbd-4258-ae6f-00d0e14f8b9a"], -Cell[405276, 10363, 493, 11, 26, "Message",ExpressionUUID->"7197816a-c743-4c17-802f-838b8993968c"], -Cell[405772, 10376, 192, 3, 33, "Output",ExpressionUUID->"3db605fb-cac7-4bbe-9ecd-24e13dd2109b"] +Cell[405513, 10196, 2077, 59, 116, "Input",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], +Cell[407593, 10257, 689, 15, 48, "Message",ExpressionUUID->"2344d6fe-369c-49cf-b3a0-d01a0623a3a5"], +Cell[408285, 10274, 686, 15, 48, "Message",ExpressionUUID->"ae0d9a92-f9de-4b22-bbe9-89ecdea7c557"], +Cell[408974, 10291, 688, 15, 48, "Message",ExpressionUUID->"1e495ddb-077e-4156-9561-07e61da50cee"], +Cell[409665, 10308, 515, 12, 32, "Message",ExpressionUUID->"ee2212f4-0b8b-4fcf-b536-3ba880208126"], +Cell[410183, 10322, 216, 4, 41, "Output",ExpressionUUID->"d73311ee-f54c-4c96-9f2c-9ef749a47486"] }, Open ]], Cell[CellGroupData[{ -Cell[406001, 10384, 2053, 55, 151, "Input",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], -Cell[408057, 10441, 20012, 376, 239, "Output",ExpressionUUID->"c4d6604f-f587-4b79-ba77-30c9888516b6"] +Cell[410436, 10331, 2053, 55, 63, "Input",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], +Cell[412492, 10388, 20039, 377, 299, "Output",ExpressionUUID->"7314b997-f034-4b70-a9d9-bf861b707bd1"] }, Open ]], Cell[CellGroupData[{ -Cell[428106, 10822, 2166, 61, 261, "Input",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], -Cell[430275, 10885, 518, 12, 59, "Message",ExpressionUUID->"78c4bd2c-59d4-4bf9-8c2b-1b30e1319482"], -Cell[430796, 10899, 517, 12, 59, "Message",ExpressionUUID->"7d0e1633-09cf-4b93-9a06-986f6e7ef2e1"], -Cell[431316, 10913, 521, 12, 59, "Message",ExpressionUUID->"d8f781ba-8564-4bc3-856a-bff5a22f6b5d"], -Cell[431840, 10927, 471, 11, 26, "Message",ExpressionUUID->"648644b2-ba9d-4391-a8ed-82111accb84c"], -Cell[432314, 10940, 22520, 417, 232, "Output",ExpressionUUID->"68b840fc-72a0-420c-af81-4afa3a3ac549"] +Cell[432568, 10770, 2166, 61, 116, "Input",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], +Cell[434737, 10833, 539, 12, 48, "Message",ExpressionUUID->"b696cfd6-9fca-4467-9a88-215696c006b5"], +Cell[435279, 10847, 538, 12, 48, "Message",ExpressionUUID->"8d3382fd-6499-487e-afbf-5e0d8382c457"], +Cell[435820, 10861, 542, 12, 48, "Message",ExpressionUUID->"62852686-d52f-4f55-8ac9-fd7f9523a3c4"], +Cell[436365, 10875, 494, 11, 32, "Message",ExpressionUUID->"53c1a571-3f8e-4dbe-bd78-0f84fd9c5ff4"], +Cell[436862, 10888, 22542, 417, 290, "Output",ExpressionUUID->"1191a391-3c3c-4cae-a878-879b69a645a3"] }, Open ]], Cell[CellGroupData[{ -Cell[454871, 11362, 164, 4, 29, "Input",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], -Cell[455038, 11368, 28904, 549, 232, "Output",ExpressionUUID->"833d0481-fbaa-439a-9e62-d3f29c06f0ff"] +Cell[459441, 11310, 164, 4, 36, "Input",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], +Cell[459608, 11316, 28926, 549, 290, "Output",ExpressionUUID->"493e4d29-b9f1-4ae6-9263-6dc391cee9e2"] }, Open ]], Cell[CellGroupData[{ -Cell[483979, 11922, 1616, 48, 104, "Input",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], -Cell[485598, 11972, 727, 15, 80, "Message",ExpressionUUID->"16310b94-0d43-431a-ac4c-a56fdb4d58f8"], -Cell[486328, 11989, 725, 15, 80, "Message",ExpressionUUID->"caab0c1a-7cea-4cb6-a50a-a4f7282092b5"], -Cell[487056, 12006, 725, 15, 80, "Message",ExpressionUUID->"5b25ad31-1c01-4c69-802f-1526bf225ea4"], -Cell[487784, 12023, 493, 11, 26, "Message",ExpressionUUID->"35cde4ca-5a35-47f9-b289-f9fbcf61119e"], -Cell[488280, 12036, 195, 3, 33, "Output",ExpressionUUID->"09f8f960-c354-46a7-bbcf-f36d1bb76257"] +Cell[488571, 11870, 1616, 48, 86, "Input",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], +Cell[490190, 11920, 690, 15, 48, "Message",ExpressionUUID->"728614ff-9d42-4fd8-b581-5da89428457f"], +Cell[490883, 11937, 689, 15, 48, "Message",ExpressionUUID->"01cb7866-6a54-4610-aba8-acbff5b645ee"], +Cell[491575, 11954, 691, 15, 48, "Message",ExpressionUUID->"5e6a356e-6e66-4127-92a8-d3541a70ba64"], +Cell[492269, 11971, 517, 12, 32, "Message",ExpressionUUID->"1348e566-82d7-4dff-a637-06d0712e6082"], +Cell[492789, 11985, 222, 4, 41, "Output",ExpressionUUID->"2642b61a-577e-45bb-a544-a6eea9f827ea"] }, Open ]], Cell[CellGroupData[{ -Cell[488512, 12044, 2272, 64, 212, "Input",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], -Cell[490787, 12110, 602, 13, 80, "Message",ExpressionUUID->"4a34e78a-febf-4749-9df0-8525daf268da"], -Cell[491392, 12125, 605, 13, 80, "Message",ExpressionUUID->"af10cc09-45c5-4f71-aceb-6f3b9d1b7088"], -Cell[492000, 12140, 610, 13, 80, "Message",ExpressionUUID->"2634b813-43a4-4f96-91e9-1f9775e13b7a"], -Cell[492613, 12155, 497, 11, 26, "Message",ExpressionUUID->"fb0c5fd5-f417-4fab-9d12-e1f786eede7a"], -Cell[493113, 12168, 191, 3, 33, "Output",ExpressionUUID->"f0bdb151-f39b-43c7-abbf-24dacdad6ba7"] +Cell[493048, 11994, 2272, 64, 81, "Input",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], +Cell[495323, 12060, 689, 15, 48, "Message",ExpressionUUID->"8417a1d5-bd96-43c3-b655-062e95c6defd"], +Cell[496015, 12077, 688, 15, 48, "Message",ExpressionUUID->"3e42f01c-d3d7-4134-8418-90b5819c4597"], +Cell[496706, 12094, 690, 15, 48, "Message",ExpressionUUID->"c10a11aa-7674-42f5-b142-b92f9c9a0128"], +Cell[497399, 12111, 519, 12, 32, "Message",ExpressionUUID->"740abd91-9b87-4625-be3e-e07d8eaa0572"], +Cell[497921, 12125, 216, 4, 41, "Output",ExpressionUUID->"16fa5042-dc4d-4577-b961-5afd32e23fa6"] }, Open ]], Cell[CellGroupData[{ -Cell[493341, 12176, 2235, 63, 212, "Input",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], -Cell[495579, 12241, 602, 13, 80, "Message",ExpressionUUID->"47f96900-0e63-42d2-bc59-8c419c52efca"], -Cell[496184, 12256, 603, 13, 80, "Message",ExpressionUUID->"15153692-68b1-4f41-b260-1aff11fc6783"], -Cell[496790, 12271, 608, 13, 80, "Message",ExpressionUUID->"e42851c2-8a5f-4fe7-9125-20e6101a0067"], -Cell[497401, 12286, 493, 11, 26, "Message",ExpressionUUID->"c59d4cd2-3d9d-4d62-9749-3dfb5e4fa1d0"], -Cell[497897, 12299, 195, 3, 33, "Output",ExpressionUUID->"210467ae-044a-4b24-b088-766846f21d9d"] +Cell[498174, 12134, 2235, 63, 81, "Input",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], +Cell[500412, 12199, 691, 15, 48, "Message",ExpressionUUID->"a1a129dd-874b-428d-b92a-d14007ff00aa"], +Cell[501106, 12216, 688, 15, 48, "Message",ExpressionUUID->"b3e157e6-28b3-4a97-9733-82bbab70bf73"], +Cell[501797, 12233, 692, 15, 48, "Message",ExpressionUUID->"51247b19-3e22-4aea-83e2-9426e6c39dc6"], +Cell[502492, 12250, 516, 12, 32, "Message",ExpressionUUID->"2fc29951-e897-4325-981b-c68de4b73f51"], +Cell[503011, 12264, 220, 4, 41, "Output",ExpressionUUID->"e29ecba6-cd5f-4b04-a9df-ae021c8637d1"] }, Open ]], Cell[CellGroupData[{ -Cell[498129, 12307, 2233, 63, 212, "Input",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], -Cell[500365, 12372, 600, 13, 80, "Message",ExpressionUUID->"5201aa3b-46a6-4570-86f0-98ee412ed122"], -Cell[500968, 12387, 605, 13, 80, "Message",ExpressionUUID->"fd0107d4-074b-4515-9655-e1cc1cfc3830"], -Cell[501576, 12402, 608, 13, 80, "Message",ExpressionUUID->"de71bb8e-0d20-4b54-8182-c7150fc47e23"], -Cell[502187, 12417, 493, 11, 26, "Message",ExpressionUUID->"7dbe95b4-cd7e-40bd-bc91-22274f86b146"], -Cell[502683, 12430, 195, 3, 33, "Output",ExpressionUUID->"292fbc4d-bb9e-4eeb-97c5-94bda23f124d"] +Cell[503268, 12273, 2233, 63, 81, "Input",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], +Cell[505504, 12338, 689, 15, 48, "Message",ExpressionUUID->"76a54297-d3c0-440c-865f-93f8977b0603"], +Cell[506196, 12355, 686, 15, 48, "Message",ExpressionUUID->"67e1d5cb-3780-4608-809e-39b502407877"], +Cell[506885, 12372, 688, 15, 48, "Message",ExpressionUUID->"0fc4c07f-9d49-4fac-9502-4493f7720865"], +Cell[507576, 12389, 515, 12, 32, "Message",ExpressionUUID->"5aeb2465-4697-4cc6-a08c-00bb61c0c174"], +Cell[508094, 12403, 220, 4, 41, "Output",ExpressionUUID->"1cf76343-eee5-42a6-a905-60b19685b343"] }, Open ]], Cell[CellGroupData[{ -Cell[502915, 12438, 238, 6, 46, "Input",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], -Cell[503156, 12446, 195, 3, 33, "Output",ExpressionUUID->"311074a0-6d40-415d-8d38-eb65ba5bc784"] +Cell[508351, 12412, 238, 6, 60, "Input",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], +Cell[508592, 12420, 220, 4, 41, "Output",ExpressionUUID->"0140c18a-aa99-4492-98a0-3eb24359aef9"] }, Open ]], -Cell[503366, 12452, 275, 6, 29, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], +Cell[508827, 12427, 275, 6, 36, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], Cell[CellGroupData[{ -Cell[503666, 12462, 558, 19, 51, "Input",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], -Cell[504227, 12483, 193, 3, 33, "Output",ExpressionUUID->"f7febed8-a808-4167-8f50-fc87f53c3334"] +Cell[509127, 12437, 558, 19, 66, "Input",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], +Cell[509688, 12458, 218, 4, 41, "Output",ExpressionUUID->"436dbbb5-ee7b-4f01-b71c-05c4667c772d"] }, Open ]], Cell[CellGroupData[{ -Cell[504457, 12491, 170, 5, 55, "Input",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], -Cell[504630, 12498, 194, 3, 33, "Output",ExpressionUUID->"675e8a82-b266-45d9-b6cd-bfb1ae85c458"] +Cell[509943, 12467, 170, 5, 71, "Input",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], +Cell[510116, 12474, 219, 4, 41, "Output",ExpressionUUID->"80984236-cdbf-4032-a62c-d58e87c845c1"] }, Open ]], Cell[CellGroupData[{ -Cell[504861, 12506, 181, 5, 43, "Input",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], -Cell[505045, 12513, 194, 3, 33, "Output",ExpressionUUID->"245285a3-b6e2-4ddb-97bd-b7018e2544c5"] +Cell[510372, 12483, 181, 5, 55, "Input",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], +Cell[510556, 12490, 219, 4, 41, "Output",ExpressionUUID->"5f539f6f-9beb-41ea-bf36-bbb9c1fc5e61"] }, Open ]], Cell[CellGroupData[{ -Cell[505276, 12521, 6055, 185, 474, "Input",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], -Cell[511334, 12708, 197, 3, 33, "Output",ExpressionUUID->"77790059-a780-48e6-8fd1-74072e1c4d96"] +Cell[510812, 12499, 6055, 185, 431, "Input",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], +Cell[516870, 12686, 221, 4, 41, "Output",ExpressionUUID->"c9fcfb95-3541-4272-84bb-8f379d8935dd"] }, Open ]], Cell[CellGroupData[{ -Cell[511568, 12716, 368, 9, 41, "Input",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], -Cell[511939, 12727, 195, 3, 33, "Output",ExpressionUUID->"16ebeef3-4712-4837-a286-30bfe11d9842"] +Cell[517128, 12695, 368, 9, 53, "Input",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], +Cell[517499, 12706, 222, 4, 41, "Output",ExpressionUUID->"faaf69b2-a2a7-4fe5-9c30-64d9cc925520"] }, Open ]], Cell[CellGroupData[{ -Cell[512171, 12735, 6122, 187, 474, "Input",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], -Cell[518296, 12924, 195, 3, 33, "Output",ExpressionUUID->"d850c476-2e41-4d3b-ba86-823e0f6a27bd"] +Cell[517758, 12715, 6122, 187, 431, "Input",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], +Cell[523883, 12904, 222, 4, 41, "Output",ExpressionUUID->"b9b37a75-e8ad-4b3e-9b67-7452bf08f754"] }, Open ]], Cell[CellGroupData[{ -Cell[518528, 12932, 368, 9, 41, "Input",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], -Cell[518899, 12943, 192, 3, 33, "Output",ExpressionUUID->"0c508fa5-35b2-4332-9a14-285e8fcd3707"] +Cell[524142, 12913, 368, 9, 53, "Input",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], +Cell[524513, 12924, 217, 4, 41, "Output",ExpressionUUID->"bf1c6218-5881-4921-a647-11c9053d765a"] }, Open ]], Cell[CellGroupData[{ -Cell[519128, 12951, 2663, 88, 285, "Input",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], -Cell[521794, 13041, 196, 3, 33, "Output",ExpressionUUID->"236b5d65-bca9-4fe1-8432-f7c6cd9e598a"] +Cell[524767, 12933, 2663, 88, 215, "Input",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], +Cell[527433, 13023, 221, 4, 41, "Output",ExpressionUUID->"7970301a-176d-4d1c-b09b-5c7ea78fd919"] }, Open ]], Cell[CellGroupData[{ -Cell[522027, 13049, 2603, 85, 211, "Input",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], -Cell[524633, 13136, 193, 3, 33, "Output",ExpressionUUID->"c2defeb3-aea8-4766-a6e5-12fd4a147709"] +Cell[527691, 13032, 2603, 85, 215, "Input",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], +Cell[530297, 13119, 218, 4, 41, "Output",ExpressionUUID->"e6fa2b2b-c95e-467f-bbdd-c89424d0bef7"] }, Open ]], Cell[CellGroupData[{ -Cell[524863, 13144, 3712, 118, 327, "Input",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], -Cell[528578, 13264, 193, 3, 33, "Output",ExpressionUUID->"7cde91a8-9447-4c67-96b6-bf04332b4217"] +Cell[530552, 13128, 3712, 118, 316, "Input",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], +Cell[534267, 13248, 218, 4, 41, "Output",ExpressionUUID->"e4bd79ca-dbc5-436c-8040-54fed79603bf"] }, Open ]], Cell[CellGroupData[{ -Cell[528808, 13272, 2075, 59, 234, "Input",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], -Cell[530886, 13333, 602, 13, 80, "Message",ExpressionUUID->"c592a299-a715-44b1-817a-f595f93cd648"], -Cell[531491, 13348, 605, 13, 80, "Message",ExpressionUUID->"9290345e-cd0f-43e9-86b6-f5f871526043"], -Cell[532099, 13363, 609, 13, 80, "Message",ExpressionUUID->"64e545e3-cbf2-4c14-b441-2a81d9d6ac86"], -Cell[532711, 13378, 497, 11, 26, "Message",ExpressionUUID->"f31ac590-a185-4463-a267-b47d118d54e8"], -Cell[533211, 13391, 193, 3, 33, "Output",ExpressionUUID->"ad2a8669-1187-4a70-aeda-9bdf508d7c2c"] +Cell[534522, 13257, 2075, 59, 116, "Input",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], +Cell[536600, 13318, 688, 15, 48, "Message",ExpressionUUID->"59f38048-c81a-4691-871a-24abcc978c83"], +Cell[537291, 13335, 689, 15, 48, "Message",ExpressionUUID->"9e284b37-4c68-40af-a8e6-9964ab25b509"], +Cell[537983, 13352, 691, 15, 48, "Message",ExpressionUUID->"ab9decba-dd42-4507-8ece-8fed8422ec6e"], +Cell[538677, 13369, 517, 12, 32, "Message",ExpressionUUID->"7daa2a7a-5c41-4034-9093-13ee28a3ce4b"], +Cell[539197, 13383, 218, 4, 41, "Output",ExpressionUUID->"325fc0f1-b6ef-457c-aa84-84f6e04c1d2c"] }, Open ]], Cell[CellGroupData[{ -Cell[533441, 13399, 2075, 59, 234, "Input",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], -Cell[535519, 13460, 604, 13, 80, "Message",ExpressionUUID->"8fd52e31-c61c-443d-9d37-15df9b0dbf9f"], -Cell[536126, 13475, 606, 13, 80, "Message",ExpressionUUID->"cde6b196-21dc-4b0d-804b-c9e2ba1613aa"], -Cell[536735, 13490, 611, 13, 80, "Message",ExpressionUUID->"854ab2a4-4c0e-43ae-ab2a-f72184c2a693"], -Cell[537349, 13505, 495, 11, 26, "Message",ExpressionUUID->"99e4370d-af87-405f-9603-f51132b04493"], -Cell[537847, 13518, 194, 3, 33, "Output",ExpressionUUID->"e8d96523-813b-4f98-956d-8d0da0546228"] +Cell[539452, 13392, 2075, 59, 116, "Input",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], +Cell[541530, 13453, 693, 15, 48, "Message",ExpressionUUID->"6048d800-1ce4-4796-9454-473e67621a9d"], +Cell[542226, 13470, 693, 15, 48, "Message",ExpressionUUID->"98221b74-cd12-4db3-9e83-a7cef77019b8"], +Cell[542922, 13487, 691, 15, 48, "Message",ExpressionUUID->"98830aa8-cd51-4eca-8c5a-fdd415becfdf"], +Cell[543616, 13504, 518, 12, 32, "Message",ExpressionUUID->"01cffa97-1740-4cde-a2bd-7feab9606314"], +Cell[544137, 13518, 219, 4, 41, "Output",ExpressionUUID->"e5dcfa5d-7427-4723-a0b2-e58db71f13e7"] }, Open ]], Cell[CellGroupData[{ -Cell[538078, 13526, 2051, 55, 151, "Input",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], -Cell[540132, 13583, 20580, 386, 236, "Output",ExpressionUUID->"ef742225-0fa9-47ae-9d3d-5eacf17fd391"] +Cell[544393, 13527, 2051, 55, 63, "Input",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], +Cell[546447, 13584, 20604, 387, 295, "Output",ExpressionUUID->"a0859840-1d77-436b-b103-b8201b198fbc"] }, Open ]], Cell[CellGroupData[{ -Cell[560749, 13974, 2168, 61, 261, "Input",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], -Cell[562920, 14037, 535, 12, 59, "Message",ExpressionUUID->"c416f788-665b-489a-835b-7501acbda8a7"], -Cell[563458, 14051, 542, 12, 59, "Message",ExpressionUUID->"0b2a0805-5c4d-4244-acba-e2a4003687fd"], -Cell[564003, 14065, 543, 12, 59, "Message",ExpressionUUID->"4c281454-3b5f-4ff1-97fd-1a6536ffc961"], -Cell[564549, 14079, 494, 11, 26, "Message",ExpressionUUID->"1c40d75f-53d0-4ed6-b7fc-7bbdaadef31a"], -Cell[565046, 14092, 21843, 405, 232, "Output",ExpressionUUID->"b5aa5ebb-ff7d-4a21-8ae0-4ba228b583a5"] +Cell[567088, 13976, 2168, 61, 116, "Input",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], +Cell[569259, 14039, 557, 13, 48, "Message",ExpressionUUID->"d3a4666d-28e3-4167-99db-689ae8762cb5"], +Cell[569819, 14054, 563, 13, 48, "Message",ExpressionUUID->"5d21d2d7-f9da-4322-964e-343b81e25b46"], +Cell[570385, 14069, 564, 13, 48, "Message",ExpressionUUID->"b662d808-42b4-4eb8-9456-81cb0ab10ac4"], +Cell[570952, 14084, 514, 12, 32, "Message",ExpressionUUID->"8ed86a36-78db-4787-88c7-4f5fe2b3308c"], +Cell[571469, 14098, 21868, 406, 290, "Output",ExpressionUUID->"2041fa44-3521-41fc-93c0-1749172a5bee"] }, Open ]], Cell[CellGroupData[{ -Cell[586926, 14502, 232, 5, 29, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], -Cell[587161, 14509, 28206, 537, 232, "Output",ExpressionUUID->"032ba1c8-501c-48ab-9ad4-acceacd8e23e"] +Cell[593374, 14509, 232, 5, 36, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], +Cell[593609, 14516, 28228, 537, 290, "Output",ExpressionUUID->"eb796ad5-fbd6-4e6a-83a9-e2a8682b5798"] }, Open ]], Cell[CellGroupData[{ -Cell[615404, 15051, 1616, 48, 104, "Input",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], -Cell[617023, 15101, 627, 13, 80, "Message",ExpressionUUID->"86d8baa0-151e-476a-a7bd-9c16dcbf214b"], -Cell[617653, 15116, 630, 13, 80, "Message",ExpressionUUID->"cec531fe-0f88-406b-bbbf-4fc393aa669b"], -Cell[618286, 15131, 634, 13, 80, "Message",ExpressionUUID->"b375bd9d-c9da-4b50-96d4-82f9708f963d"], -Cell[618923, 15146, 493, 11, 26, "Message",ExpressionUUID->"4b957ac8-0279-49fa-b6e4-d193ae74d62c"], -Cell[619419, 15159, 197, 3, 33, "Output",ExpressionUUID->"55be23de-81d7-4a44-9656-d2f488b2e57a"] +Cell[621874, 15058, 1616, 48, 86, "Input",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], +Cell[623493, 15108, 685, 15, 48, "Message",ExpressionUUID->"efeb89f5-99f5-473d-90ee-a04dbc6e4090"], +Cell[624181, 15125, 689, 15, 48, "Message",ExpressionUUID->"0126e4c3-5f3b-4b60-a02a-d3d85bbe56b3"], +Cell[624873, 15142, 688, 15, 48, "Message",ExpressionUUID->"96028b8c-1191-4b43-8258-0f599d9c2335"], +Cell[625564, 15159, 516, 12, 32, "Message",ExpressionUUID->"1db88e3f-4cc3-4bb3-a235-37ceaf6f70f0"], +Cell[626083, 15173, 222, 4, 41, "Output",ExpressionUUID->"ab93f488-578f-4dac-a0e0-d122c8e443e2"] }, Open ]], Cell[CellGroupData[{ -Cell[619653, 15167, 2272, 64, 212, "Input",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], -Cell[621928, 15233, 603, 13, 80, "Message",ExpressionUUID->"f28cff40-afc3-4eca-8604-710d1b2c383a"], -Cell[622534, 15248, 607, 13, 80, "Message",ExpressionUUID->"11c14f54-407e-43dd-891a-f6d8da44c40e"], -Cell[623144, 15263, 610, 13, 80, "Message",ExpressionUUID->"c0b245b9-83bd-477e-98d6-cb8ceedcadba"], -Cell[623757, 15278, 496, 11, 26, "Message",ExpressionUUID->"10923acd-f8bf-46c7-9300-c03695fe61ec"], -Cell[624256, 15291, 197, 3, 33, "Output",ExpressionUUID->"7f6cea85-4ce2-4464-9f71-1f4043c26abb"] +Cell[626342, 15182, 2272, 64, 81, "Input",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], +Cell[628617, 15248, 691, 15, 48, "Message",ExpressionUUID->"66f96747-cd0c-4c4b-9e0e-d74e99088080"], +Cell[629311, 15265, 691, 15, 48, "Message",ExpressionUUID->"13d03479-1e86-412a-8734-acd433bf4c8d"], +Cell[630005, 15282, 689, 15, 48, "Message",ExpressionUUID->"4113bfb8-75e1-4a0a-9b2a-c4781e84b647"], +Cell[630697, 15299, 517, 12, 32, "Message",ExpressionUUID->"fed45544-b100-455e-8ee2-07b836840756"], +Cell[631217, 15313, 222, 4, 41, "Output",ExpressionUUID->"056ba486-e9cf-4256-bef4-83e92fa1244c"] }, Open ]], Cell[CellGroupData[{ -Cell[624490, 15299, 2233, 63, 212, "Input",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], -Cell[626726, 15364, 603, 13, 80, "Message",ExpressionUUID->"e7264742-ef3c-4ffd-b52f-87edb23d4d66"], -Cell[627332, 15379, 605, 13, 80, "Message",ExpressionUUID->"367f54aa-a5fc-4cfd-9fdd-b5515c573124"], -Cell[627940, 15394, 610, 13, 80, "Message",ExpressionUUID->"6bb271b8-5d82-4b54-a6bc-58dd3e907aa2"], -Cell[628553, 15409, 498, 11, 26, "Message",ExpressionUUID->"0ca56dfc-fe35-4d8e-bac0-61d481a6c12c"], -Cell[629054, 15422, 193, 3, 33, "Output",ExpressionUUID->"95a59442-e242-4e4e-bc84-4e2cdf058208"] +Cell[631476, 15322, 2233, 63, 81, "Input",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], +Cell[633712, 15387, 689, 15, 48, "Message",ExpressionUUID->"10bdf9fa-1f6b-4a0c-ac8f-df2b7bca6ee1"], +Cell[634404, 15404, 689, 15, 48, "Message",ExpressionUUID->"cab987a4-134d-4f15-bebc-e2eebe2edb42"], +Cell[635096, 15421, 689, 15, 48, "Message",ExpressionUUID->"bce1f6b7-b4fd-4411-b896-e0032b134673"], +Cell[635788, 15438, 519, 12, 32, "Message",ExpressionUUID->"b5661591-3ccf-4855-8475-d1fdf680cda3"], +Cell[636310, 15452, 218, 4, 41, "Output",ExpressionUUID->"8de98c36-ea62-445e-9aee-7655c8bc380f"] }, Open ]], Cell[CellGroupData[{ -Cell[629284, 15430, 2231, 63, 212, "Input",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], -Cell[631518, 15495, 603, 13, 80, "Message",ExpressionUUID->"3c01985b-faf5-4433-a20d-d1d76dc89ebd"], -Cell[632124, 15510, 605, 13, 80, "Message",ExpressionUUID->"af49d828-af1a-4fcc-80e2-8daa7889a08c"], -Cell[632732, 15525, 608, 13, 80, "Message",ExpressionUUID->"bfd21384-0028-46f2-abef-2712e0b8f274"], -Cell[633343, 15540, 496, 11, 26, "Message",ExpressionUUID->"7fcdce36-ce4b-46a6-8735-976f92d7f9a4"], -Cell[633842, 15553, 195, 3, 33, "Output",ExpressionUUID->"4cd9d0e7-d572-4982-9cab-af05f067659e"] +Cell[636565, 15461, 2231, 63, 81, "Input",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], +Cell[638799, 15526, 691, 15, 48, "Message",ExpressionUUID->"03dd76d3-01d5-414d-adb4-035118c9d3b1"], +Cell[639493, 15543, 688, 15, 48, "Message",ExpressionUUID->"30859728-3020-4306-9ed8-0a4d4b6fbeaa"], +Cell[640184, 15560, 689, 15, 48, "Message",ExpressionUUID->"99a8d3bc-66dd-4716-845d-5d165878488f"], +Cell[640876, 15577, 517, 12, 32, "Message",ExpressionUUID->"4f429ed3-1ef0-4f01-a6b6-fe23725eee44"], +Cell[641396, 15591, 220, 4, 41, "Output",ExpressionUUID->"5fd8d44d-c09c-42d8-94b4-f4acfa4fe787"] }, Open ]], Cell[CellGroupData[{ -Cell[634074, 15561, 234, 6, 46, "Input",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], -Cell[634311, 15569, 196, 3, 33, "Output",ExpressionUUID->"cac57ee5-82d9-4d9b-ab5f-6695c1ebcc51"] +Cell[641653, 15600, 234, 6, 60, "Input",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], +Cell[641890, 15608, 221, 4, 41, "Output",ExpressionUUID->"4e62a394-ffe7-4e68-853e-1d54699c6ee7"] }, Open ]], -Cell[634522, 15575, 209, 4, 29, "Input",ExpressionUUID->"4a456bb3-2fb7-49dd-88c6-de6421feddfc"], -Cell[634734, 15581, 152, 3, 29, "Input",ExpressionUUID->"931707c2-fff5-48e5-9290-a58fa50890b4"] +Cell[642126, 15615, 209, 4, 36, "Input",ExpressionUUID->"4a456bb3-2fb7-49dd-88c6-de6421feddfc"], +Cell[642338, 15621, 152, 3, 36, "Input",ExpressionUUID->"931707c2-fff5-48e5-9290-a58fa50890b4"], +Cell[CellGroupData[{ +Cell[642515, 15628, 4091, 88, 373, "Input",ExpressionUUID->"770d56c8-b8cd-4e38-9391-7b4b0b29af87"], +Cell[646609, 15718, 1975, 42, 81, "Output",ExpressionUUID->"bb6efade-d00b-48e8-bb01-db01e3db1c9b"], +Cell[648587, 15762, 1653, 47, 706, "Output",ExpressionUUID->"3578c236-4ebc-43f5-aa21-1d760143ebcc"] +}, Open ]] } ] *) +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_gid_Qw2.nb b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_gid_Qw2.nb index fb9f537..62f9682 100644 --- a/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_gid_Qw2.nb +++ b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_gid_Qw2.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 664851, 15916] -NotebookOptionsPosition[ 624176, 15266] -NotebookOutlinePosition[ 624611, 15284] -CellTagsIndexPosition[ 624568, 15281] +NotebookDataLength[ 672609, 16022] +NotebookOptionsPosition[ 631934, 15372] +NotebookOutlinePosition[ 632363, 15390] +CellTagsIndexPosition[ 632320, 15387] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -34,8 +34,9 @@ Cell[BoxData["6.05`"], "Output", 3.991320420900818*^9, 3.993804549577532*^9, 3.993804625944013*^9, { 3.993804662482604*^9, 3.993804748770383*^9}, 3.9939096014243507`*^9, 3.9939096691949368`*^9, 3.993909752549667*^9, 3.993909908282672*^9, { - 3.9939099553998528`*^9, 3.993909989690781*^9}, 3.993911033388156*^9}, - CellLabel->"Out[1]=",ExpressionUUID->"9cd80fad-0394-47c1-a772-56d3714afda6"] + 3.9939099553998528`*^9, 3.993909989690781*^9}, 3.993911033388156*^9, + 3.994250299190284*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"80b4d315-8d1d-4a60-ac44-403e3785cac6"] }, Open ]], Cell[CellGroupData[{ @@ -51,8 +52,9 @@ Cell[BoxData["240"], "Output", 3.9913196497381973`*^9, 3.9938045496655397`*^9, 3.9938046259897127`*^9, { 3.9938046625249434`*^9, 3.9938047488188868`*^9}, 3.993909601730575*^9, 3.993909669289562*^9, 3.99390975259161*^9, 3.993909908569488*^9, { - 3.993909955491517*^9, 3.9939099897296047`*^9}, 3.993911033834392*^9}, - CellLabel->"Out[2]=",ExpressionUUID->"c0a788f1-57ef-4e02-adf3-b04fe76ad3d9"] + 3.993909955491517*^9, 3.9939099897296047`*^9}, 3.993911033834392*^9, + 3.994250299316125*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"5066a968-10ea-44a2-bdbf-05cd3a5c37e6"] }, Open ]], Cell[CellGroupData[{ @@ -69,8 +71,8 @@ Cell[BoxData["156"], "Output", 3.9938046260086718`*^9, {3.99380466254038*^9, 3.99380474883888*^9}, 3.9939096017486753`*^9, 3.9939096693086853`*^9, 3.9939097526160994`*^9, 3.993909908588579*^9, {3.993909955509431*^9, 3.9939099897457*^9}, - 3.993911033845459*^9}, - CellLabel->"Out[3]=",ExpressionUUID->"ddeec9b0-5b90-42c2-9388-644aaf5668ed"] + 3.993911033845459*^9, 3.9942502993409767`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"7b572534-9fdc-4eee-b4de-0e237385bc0e"] }, Open ]], Cell[CellGroupData[{ @@ -85,8 +87,9 @@ Cell[BoxData["0.55`"], "Output", 3.991319649777508*^9, 3.993804549706154*^9, 3.9938046260288763`*^9, { 3.993804662560594*^9, 3.993804748856688*^9}, 3.9939096017670803`*^9, 3.9939096693268347`*^9, 3.993909752633919*^9, 3.993909908607675*^9, { - 3.993909955527431*^9, 3.993909989761148*^9}, 3.993911033854707*^9}, - CellLabel->"Out[4]=",ExpressionUUID->"e1eb2a14-cf38-4c11-9fca-f61c89510188"] + 3.993909955527431*^9, 3.993909989761148*^9}, 3.993911033854707*^9, + 3.9942502993605013`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"e155d993-1a1b-443e-b4b5-d5e42699915d"] }, Open ]], Cell[CellGroupData[{ @@ -105,8 +108,9 @@ Cell[BoxData["0.5455000000000001`"], "Output", 3.9913196497965145`*^9, 3.99380454972574*^9, 3.993804626048635*^9, { 3.9938046625774603`*^9, 3.993804748860417*^9}, 3.993909601785378*^9, 3.993909669330983*^9, 3.9939097526503696`*^9, 3.993909908626553*^9, { - 3.9939099555442657`*^9, 3.993909989776597*^9}, 3.993911033863673*^9}, - CellLabel->"Out[5]=",ExpressionUUID->"11a8f3fa-0d8c-42ea-9bcf-e05ba723ad90"] + 3.9939099555442657`*^9, 3.993909989776597*^9}, 3.993911033863673*^9, + 3.994250299380643*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"fef7822f-0e19-4613-a296-69e2436b634a"] }, Open ]], Cell[CellGroupData[{ @@ -120,8 +124,9 @@ Cell[BoxData["0.17`"], "Output", 3.9913196498144608`*^9, 3.993804549747018*^9, 3.993804626052534*^9, { 3.9938046625812197`*^9, 3.9938047488891172`*^9}, 3.9939096018028593`*^9, 3.993909669362465*^9, 3.993909752666353*^9, 3.99390990864529*^9, { - 3.9939099555482264`*^9, 3.993909989792164*^9}, 3.9939110338727818`*^9}, - CellLabel->"Out[6]=",ExpressionUUID->"06df9a5b-7d37-45d4-865d-868f50964049"] + 3.9939099555482264`*^9, 3.993909989792164*^9}, 3.9939110338727818`*^9, + 3.9942502994001427`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"00a0a7c9-30c9-4b72-aab6-7ffbb0aeddb0"] }, Open ]], Cell[CellGroupData[{ @@ -139,8 +144,9 @@ Cell[BoxData["6.244526630021248`"], "Output", 3.9913196498225155`*^9, 3.993804549770184*^9, 3.993804626085994*^9, { 3.9938046626047153`*^9, 3.993804748905245*^9}, 3.993909601820876*^9, 3.9939096693803263`*^9, 3.993909752687901*^9, 3.993909908664627*^9, { - 3.993909955570965*^9, 3.993909989807292*^9}, 3.993911033881481*^9}, - CellLabel->"Out[7]=",ExpressionUUID->"e0cad35c-8020-493f-b199-0e7136d6e7a8"] + 3.993909955570965*^9, 3.993909989807292*^9}, 3.993911033881481*^9, + 3.994250299436921*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"1eb511fe-cdf6-428f-b4de-d0f0308489e7"] }, Open ]], Cell[CellGroupData[{ @@ -159,8 +165,9 @@ Cell[BoxData["5.08024220226995`"], "Output", 3.9913196498425236`*^9, 3.9938045497749643`*^9, 3.993804626103525*^9, { 3.993804662619735*^9, 3.993804748921926*^9}, 3.993909601824861*^9, 3.99390966939812*^9, 3.993909752692038*^9, 3.993909908682929*^9, { - 3.993909955589458*^9, 3.993909989822392*^9}, 3.9939110338902884`*^9}, - CellLabel->"Out[8]=",ExpressionUUID->"1f727c2f-3764-46d3-9b3a-1c6724532477"] + 3.993909955589458*^9, 3.993909989822392*^9}, 3.9939110338902884`*^9, + 3.9942502994555387`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"5c8b2260-dbd5-4f12-b631-c355f147feac"] }, Open ]], Cell[CellGroupData[{ @@ -176,8 +183,8 @@ Cell[BoxData["0.9831`"], "Output", 3.993804549811586*^9, 3.993804626121752*^9, {3.993804662635777*^9, 3.9938047489393063`*^9}, 3.993909601854841*^9, 3.993909669421215*^9, 3.9939097527133102`*^9, 3.99390990870128*^9, {3.993909955606114*^9, - 3.9939099898261213`*^9}, 3.993911033898979*^9}, - CellLabel->"Out[9]=",ExpressionUUID->"f0a7413b-dfde-44f5-b2ec-5d8f88ebef26"] + 3.9939099898261213`*^9}, 3.993911033898979*^9, 3.9942502994777412`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"c97637d2-171e-4a6b-9379-0eddb5896bc8"] }, Open ]], Cell[CellGroupData[{ @@ -193,8 +200,8 @@ Cell[BoxData["0.463`"], "Output", 3.993804549830037*^9, 3.993804626139834*^9, {3.993804662651184*^9, 3.993804748955449*^9}, 3.993909601874164*^9, 3.993909669438889*^9, 3.99390975272956*^9, 3.9939099087196302`*^9, {3.99390995562206*^9, - 3.993909989846019*^9}, 3.993911033907504*^9}, - CellLabel->"Out[10]=",ExpressionUUID->"a97bcfc2-d77e-454e-b40f-d835655ffecf"] + 3.993909989846019*^9}, 3.993911033907504*^9, 3.994250299501202*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"d3cc0404-2b94-429c-b701-1b29f7368bd2"] }, Open ]], Cell[CellGroupData[{ @@ -208,8 +215,9 @@ Cell[BoxData["0"], "Output", 3.9913196498927155`*^9, 3.9938045498689833`*^9, 3.993804626160439*^9, { 3.993804662666739*^9, 3.9938047489718924`*^9}, 3.993909601896028*^9, 3.993909669457499*^9, 3.993909752744871*^9, 3.9939099087374763`*^9, { - 3.993909955638915*^9, 3.993909989862071*^9}, 3.993911033916355*^9}, - CellLabel->"Out[11]=",ExpressionUUID->"576644a1-efb9-41e7-88cc-80f962284c93"] + 3.993909955638915*^9, 3.993909989862071*^9}, 3.993911033916355*^9, + 3.994250299519126*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"47f3fb7f-02c0-48bf-8628-4bcb79dfcb2d"] }, Open ]], Cell[CellGroupData[{ @@ -223,8 +231,9 @@ Cell[BoxData["0"], "Output", 3.9913196498996067`*^9, 3.9938045498874207`*^9, 3.9938046261797523`*^9, { 3.993804662682715*^9, 3.993804748988103*^9}, 3.993909601914316*^9, 3.993909669475305*^9, 3.993909752760817*^9, 3.993909908755747*^9, { - 3.993909955656601*^9, 3.993909989865912*^9}, 3.99391103392523*^9}, - CellLabel->"Out[12]=",ExpressionUUID->"b2b1e75c-60e4-4b9a-b950-c90996c641e7"] + 3.993909955656601*^9, 3.993909989865912*^9}, 3.99391103392523*^9, + 3.9942502995376377`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"b1cdd136-7f03-4b16-a829-9033d894fa38"] }, Open ]], Cell[CellGroupData[{ @@ -255,8 +264,9 @@ Cell[BoxData["2.5173601133375656`"], "Output", 3.9913197863028755`*^9, 3.9938045499058733`*^9, 3.993804626198407*^9, { 3.9938046626977053`*^9, 3.993804749004431*^9}, 3.9939096019331207`*^9, 3.993909669493326*^9, 3.993909752780408*^9, 3.993909908773466*^9, { - 3.993909955671833*^9, 3.993909989883627*^9}, 3.993911033934623*^9}, - CellLabel->"Out[13]=",ExpressionUUID->"563cdf2b-f221-4e5e-bf07-e3b9276f05c0"] + 3.993909955671833*^9, 3.993909989883627*^9}, 3.993911033934623*^9, + 3.994250299556587*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"866647d0-6fb5-4e28-ab09-f8f7645b97cb"] }, Open ]], Cell[CellGroupData[{ @@ -287,8 +297,9 @@ Cell[BoxData["1.5234450434796134`"], "Output", 3.9913197864610195`*^9, 3.993804549925211*^9, 3.993804626217005*^9, { 3.993804662711796*^9, 3.99380474902066*^9}, 3.993909601952641*^9, 3.9939096695112753`*^9, 3.993909752793829*^9, 3.9939099087914257`*^9, { - 3.993909955686531*^9, 3.993909989897831*^9}, 3.993911033943578*^9}, - CellLabel->"Out[14]=",ExpressionUUID->"b4d79cd8-d126-4891-96e3-222141efb8f7"] + 3.993909955686531*^9, 3.993909989897831*^9}, 3.993911033943578*^9, + 3.994250299574717*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"c897080c-fb58-4146-ac39-7f9e4f3422d5"] }, Open ]], Cell[CellGroupData[{ @@ -296,25 +307,87 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c11", "=", RowBox[{"1", "-", - FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"7f898a1c-4149-4e48-8d5a-787d921cc6c3"], + +Cell[BoxData["0.2814027825454283`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.9938045499441977`*^9, 3.993804626236014*^9, { + 3.993804662725235*^9, 3.993804749036929*^9}, 3.993909601972386*^9, + 3.993909669529284*^9, 3.993909752809037*^9, 3.9939099088105917`*^9, { + 3.993909955701372*^9, 3.993909989911367*^9}, 3.993911033954171*^9, + 3.994250299593646*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"50add78f-7880-42a0-9e3f-76b878457cc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + RowBox[{ + RowBox[{"(", RowBox[{ RowBox[{"(", - RowBox[{ - RowBox[{"R02", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b2", "*", "b2"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b2", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", - RowBox[{"d", "*", - SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", RowBox[{"(", - RowBox[{ - SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], ")"}], "/", + RowBox[{"(", RowBox[{ RowBox[{"R01", "*", RowBox[{"(", @@ -340,64 +413,7 @@ Cell[BoxData[ SuperscriptBox["w1", "2"]}], "+", RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", - SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", - CellLabel->"In[15]:=",ExpressionUUID->"7f898a1c-4149-4e48-8d5a-787d921cc6c3"], - -Cell[BoxData["0.2814027825454283`"], "Output", - CellChangeTimes->{ - 3.991319786533783*^9, 3.9938045499441977`*^9, 3.993804626236014*^9, { - 3.993804662725235*^9, 3.993804749036929*^9}, 3.993909601972386*^9, - 3.993909669529284*^9, 3.993909752809037*^9, 3.9939099088105917`*^9, { - 3.993909955701372*^9, 3.993909989911367*^9}, 3.993911033954171*^9}, - CellLabel->"Out[15]=",ExpressionUUID->"124437ae-44e8-485f-88b0-b1f928125941"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"c12", "=", - FractionBox[ - RowBox[{ - RowBox[{"(", - RowBox[{"R02", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b2", "*", "b2"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b2", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", - RowBox[{"(", - RowBox[{"1", "-", - SuperscriptBox["w2", "2"]}], ")"}]}], - RowBox[{ - RowBox[{"R01", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b1", "*", "b1"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b1", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w2", "2"]}], "+", - RowBox[{"R02", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b2", "*", "b2"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b2", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w1", "2"]}], "+", - RowBox[{"d", "*", - SuperscriptBox["w2", "2"], "*", - SuperscriptBox["w1", "2"]}]}]]}]], "Input", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", CellLabel->"In[16]:=",ExpressionUUID->"72e232d5-d2ad-47f0-b0a4-21bb92079088"], Cell[BoxData[ @@ -406,92 +422,33 @@ Cell[BoxData[ 3.991319786540777*^9, 3.993804549962688*^9, 3.993804626257918*^9, { 3.993804662739541*^9, 3.993804749053331*^9}, 3.9939096019922533`*^9, 3.9939096695470543`*^9, 3.993909752823636*^9, 3.993909908814773*^9, { - 3.993909955715828*^9, 3.993909989925456*^9}, 3.993911033963623*^9}, - CellLabel->"Out[16]=",ExpressionUUID->"4df238bf-c3aa-46d1-a1c1-7e9ce4f55397"] + 3.993909955715828*^9, 3.993909989925456*^9}, 3.993911033963623*^9, + 3.9942502996122026`*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"82b89510-1e25-4610-90f0-9aa61ae8607c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c21", "=", - FractionBox[ - RowBox[{ - RowBox[{"(", - RowBox[{"R01", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b1", "*", "b1"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b1", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", - RowBox[{"(", - RowBox[{"1", "-", - SuperscriptBox["w1", "2"]}], ")"}]}], - RowBox[{ - RowBox[{"R01", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b1", "*", "b1"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b1", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w2", "2"]}], "+", - RowBox[{"R02", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b2", "*", "b2"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b2", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w1", "2"]}], "+", - RowBox[{"d", "*", - SuperscriptBox["w2", "2"], "*", - SuperscriptBox["w1", "2"]}]}]]}]], "Input", - CellLabel->"In[17]:=",ExpressionUUID->"1edc2047-e88e-44db-b381-c35783007001"], - -Cell[BoxData[ - RowBox[{"-", "0.3374911667667172`"}]], "Output", - CellChangeTimes->{ - 3.9913197865777817`*^9, 3.993804549981371*^9, 3.993804626278822*^9, { - 3.9938046627542543`*^9, 3.993804749069655*^9}, 3.993909602011525*^9, - 3.993909669564651*^9, 3.993909752838642*^9, 3.9939099088478737`*^9, { - 3.993909955730867*^9, 3.993909989940257*^9}, 3.993911033973342*^9}, - CellLabel->"Out[17]=",ExpressionUUID->"1045f8fe-474d-4bf7-a620-469cddacd665"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"c22", "=", - RowBox[{"1", "-", - FractionBox[ + RowBox[{ + RowBox[{"(", RowBox[{ RowBox[{"(", - RowBox[{ - RowBox[{"R01", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b1", "*", "b1"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b1", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", - RowBox[{"d", "*", - SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", RowBox[{"(", - RowBox[{ - SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], ")"}], "/", + RowBox[{"(", RowBox[{ RowBox[{"R01", "*", RowBox[{"(", @@ -517,7 +474,72 @@ Cell[BoxData[ SuperscriptBox["w1", "2"]}], "+", RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", - SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"1edc2047-e88e-44db-b381-c35783007001"], + +Cell[BoxData[ + RowBox[{"-", "0.3374911667667172`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.993804549981371*^9, 3.993804626278822*^9, { + 3.9938046627542543`*^9, 3.993804749069655*^9}, 3.993909602011525*^9, + 3.993909669564651*^9, 3.993909752838642*^9, 3.9939099088478737`*^9, { + 3.993909955730867*^9, 3.993909989940257*^9}, 3.993911033973342*^9, + 3.994250305411887*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"93cd8c8a-31a6-48c8-9d3e-951574814441"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", CellLabel->"In[18]:=",ExpressionUUID->"04417b41-b14e-436c-a276-ea3a355e9acc"], Cell[BoxData["0.5841645161809887`"], "Output", @@ -525,8 +547,9 @@ Cell[BoxData["0.5841645161809887`"], "Output", 3.9913197866129*^9, 3.99380455000006*^9, 3.993804626300075*^9, { 3.993804662773251*^9, 3.993804749085907*^9}, 3.993909602031176*^9, 3.9939096695825167`*^9, 3.993909752853649*^9, 3.993909908866128*^9, { - 3.99390995574667*^9, 3.993909989956238*^9}, 3.993911033982602*^9}, - CellLabel->"Out[18]=",ExpressionUUID->"ec9ac0ee-284b-4242-b736-2d738a5010e0"] + 3.99390995574667*^9, 3.993909989956238*^9}, 3.993911033982602*^9, + 3.9942503058980722`*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"85f7dfc0-5c84-44d1-aeb8-c5beeb0dd42b"] }, Open ]], Cell[CellGroupData[{ @@ -540,8 +563,9 @@ Cell[BoxData["300"], "Output", 3.991319786620775*^9, 3.993804550019484*^9, 3.993804626319972*^9, { 3.993804662777142*^9, 3.9938047491020308`*^9}, 3.99390960204895*^9, 3.9939096695998087`*^9, 3.9939097528680077`*^9, 3.9939099088839207`*^9, { - 3.993909955761622*^9, 3.993909989971353*^9}, 3.993911033991098*^9}, - CellLabel->"Out[19]=",ExpressionUUID->"09550345-34b0-4743-babb-3cf20c848efc"] + 3.993909955761622*^9, 3.993909989971353*^9}, 3.993911033991098*^9, + 3.994250305916853*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"c3cf95bf-1091-4045-b082-f06fc5cf50e4"] }, Open ]], Cell[CellGroupData[{ @@ -555,8 +579,9 @@ Cell[BoxData["0.09`"], "Output", 3.991319786657793*^9, 3.9938045500378237`*^9, 3.993804626339315*^9, { 3.993804662793344*^9, 3.99380474911817*^9}, 3.993909602068466*^9, 3.9939096696185913`*^9, 3.993909752884066*^9, 3.993909908903553*^9, { - 3.9939099557765713`*^9, 3.993909989986253*^9}, 3.993911033999634*^9}, - CellLabel->"Out[20]=",ExpressionUUID->"6d691808-d9a9-454f-a9c8-f572113e3d08"] + 3.9939099557765713`*^9, 3.993909989986253*^9}, 3.993911033999634*^9, + 3.994250306004737*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"39869939-ff2b-4dc8-bc80-2558498bf56b"] }, Open ]], Cell[CellGroupData[{ @@ -570,8 +595,9 @@ Cell[BoxData["0.42`"], "Output", 3.9913197866657925`*^9, 3.9938045500560837`*^9, 3.9938046263600817`*^9, { 3.99380466280895*^9, 3.993804749134166*^9}, 3.993909602086402*^9, 3.9939096696362677`*^9, 3.99390975290001*^9, 3.9939099089231663`*^9, { - 3.9939099557917356`*^9, 3.9939099900012712`*^9}, 3.99391103401083*^9}, - CellLabel->"Out[21]=",ExpressionUUID->"737986ef-b081-49e5-9a7f-9313ff1c2a05"] + 3.9939099557917356`*^9, 3.9939099900012712`*^9}, 3.99391103401083*^9, + 3.9942503060464563`*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"6c4ff59c-5bef-4ae8-a3e3-b6c7b22f9e54"] }, Open ]], Cell[CellGroupData[{ @@ -588,8 +614,9 @@ Cell[BoxData[ 3.9913197866996*^9, 3.993804550075344*^9, 3.993804626383381*^9, { 3.99380466282749*^9, 3.993804749150152*^9}, 3.993909602104745*^9, 3.9939096696539907`*^9, 3.993909752916039*^9, 3.993909908940823*^9, { - 3.993909955808311*^9, 3.993909990017736*^9}, 3.993911034021475*^9}, - CellLabel->"Out[22]=",ExpressionUUID->"09ea48e6-54b2-420b-af99-09f13f32b1ea"] + 3.993909955808311*^9, 3.993909990017736*^9}, 3.993911034021475*^9, + 3.994250306064259*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"acf8c7b9-badb-4da1-ac01-1bca615e6e42"] }, Open ]], Cell[CellGroupData[{ @@ -603,8 +630,9 @@ Cell[BoxData["0.54`"], "Output", 3.9913197867406044`*^9, 3.993804550093996*^9, 3.99380462640412*^9, { 3.9938046628451138`*^9, 3.993804749168808*^9}, 3.993909602124238*^9, 3.993909669671417*^9, 3.9939097529322453`*^9, 3.993909908959701*^9, { - 3.99390995582368*^9, 3.9939099900328217`*^9}, 3.9939110340312433`*^9}, - CellLabel->"Out[23]=",ExpressionUUID->"befefff8-3e5d-4451-b845-8a63866b9ce1"] + 3.99390995582368*^9, 3.9939099900328217`*^9}, 3.9939110340312433`*^9, + 3.9942503060790377`*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"56e5f27c-4544-48b4-be84-94af75a73795"] }, Open ]], Cell[CellGroupData[{ @@ -621,8 +649,8 @@ Cell[BoxData["66"], "Output", 3.9913197867861958`*^9, 3.993804626423663*^9, {3.993804662861299*^9, 3.99380474918727*^9}, 3.993909602142963*^9, 3.99390966968908*^9, 3.993909752947946*^9, 3.993909908977618*^9, {3.993909955827662*^9, - 3.993909990050256*^9}, 3.993911034042344*^9}, - CellLabel->"Out[24]=",ExpressionUUID->"d299ee21-b5ee-414b-99a0-626114de4639"] + 3.993909990050256*^9}, 3.993911034042344*^9, 3.994250306101849*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"517dac08-1941-4af0-a321-83a566d03447"] }, Open ]], Cell[CellGroupData[{ @@ -639,8 +667,9 @@ Cell[BoxData["28"], "Output", 3.9913197867928696`*^9, 3.9938045501483994`*^9, 3.993804626442574*^9, { 3.993804662877561*^9, 3.9938047492047462`*^9}, 3.993909602161409*^9, 3.993909669707423*^9, 3.993909752964058*^9, 3.9939099089960423`*^9, { - 3.993909955845819*^9, 3.993909990065692*^9}, 3.99391103405342*^9}, - CellLabel->"Out[25]=",ExpressionUUID->"fd32912c-6c0d-476f-96f9-f0fc2bf45bf5"] + 3.993909955845819*^9, 3.993909990065692*^9}, 3.99391103405342*^9, + 3.9942503061348877`*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"d714d21b-7a8b-481a-8d23-2c22d3cfaa67"] }, Open ]], Cell[CellGroupData[{ @@ -656,8 +685,9 @@ Cell[BoxData["84"], "Output", 3.991319786827894*^9, 3.993804550167096*^9, 3.993804626459854*^9, { 3.993804662896564*^9, 3.9938047492214317`*^9}, 3.993909602179817*^9, 3.993909669724697*^9, 3.993909752980503*^9, 3.9939099090164824`*^9, { - 3.993909955861395*^9, 3.9939099900817633`*^9}, 3.993911034063702*^9}, - CellLabel->"Out[26]=",ExpressionUUID->"a67695ab-1992-4986-b6aa-d5a4db8c4ba3"] + 3.993909955861395*^9, 3.9939099900817633`*^9}, 3.993911034063702*^9, + 3.994250306171071*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"3fbaa89a-1dfa-485b-93d9-6fe53b70e8bd"] }, Open ]], Cell[CellGroupData[{ @@ -679,8 +709,9 @@ Cell[BoxData["0.11153846153846153`"], "Output", 3.9913197868648605`*^9, 3.9938045501856823`*^9, 3.993804626476894*^9, { 3.993804662912559*^9, 3.993804749238111*^9}, 3.993909602199831*^9, 3.993909669742579*^9, 3.9939097529958878`*^9, 3.993909909035789*^9, { - 3.993909955876047*^9, 3.9939099900975027`*^9}, 3.993911034073077*^9}, - CellLabel->"Out[27]=",ExpressionUUID->"9f023df7-a829-4121-8206-d244cb5df56e"] + 3.993909955876047*^9, 3.9939099900975027`*^9}, 3.993911034073077*^9, + 3.9942503061880713`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"4f12ede0-4bf5-4a53-a215-db4209296086"] }, Open ]], Cell[CellGroupData[{ @@ -703,8 +734,9 @@ Cell[BoxData[ 3.9913197868718567`*^9, 3.993804550204549*^9, 3.9938046264931793`*^9, { 3.993804662930933*^9, 3.993804749256987*^9}, 3.993909602217969*^9, 3.993909669760494*^9, 3.99390975301192*^9, 3.993909909054161*^9, { - 3.99390995589108*^9, 3.993909990112661*^9}, 3.993911034083007*^9}, - CellLabel->"Out[28]=",ExpressionUUID->"c6b3c0ca-8755-49f5-a6e3-4997555f18ff"] + 3.99390995589108*^9, 3.993909990112661*^9}, 3.993911034083007*^9, + 3.994250306203719*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"4e1e8502-b16c-4fcb-a1f6-75a0a599b922"] }, Open ]], Cell[CellGroupData[{ @@ -742,8 +774,9 @@ Cell[BoxData["22.163907548137733`"], "Output", 3.9913197869068584`*^9, 3.993804550224925*^9, 3.993804626512244*^9, { 3.993804662948985*^9, 3.993804749273611*^9}, 3.993909602237144*^9, 3.99390966977844*^9, 3.993909753027061*^9, 3.993909909073007*^9, { - 3.9939099559075603`*^9, 3.993909990129081*^9}, 3.993911034092557*^9}, - CellLabel->"Out[29]=",ExpressionUUID->"af06bbb8-ca79-494e-b3f5-0f33c49d39c4"] + 3.9939099559075603`*^9, 3.993909990129081*^9}, 3.993911034092557*^9, + 3.994250306221533*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"54c063c1-f762-4f08-b416-be0c6924e3eb"] }, Open ]], Cell[CellGroupData[{ @@ -758,8 +791,9 @@ Cell[BoxData["300"], "Output", 3.991319786940857*^9, 3.993804550242552*^9, 3.993804626529005*^9, { 3.993804662966734*^9, 3.9938047492900057`*^9}, 3.993909602255596*^9, 3.993909669800799*^9, 3.993909753041724*^9, 3.993909909091654*^9, { - 3.9939099559230347`*^9, 3.993909990146391*^9}, 3.993911034103644*^9}, - CellLabel->"Out[30]=",ExpressionUUID->"37f1a30f-6527-4405-bb27-9ddb88b73d47"] + 3.9939099559230347`*^9, 3.993909990146391*^9}, 3.993911034103644*^9, + 3.994250306234733*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"2320d9f5-f859-46f8-b8a9-6492419af8a2"] }, Open ]], Cell[CellGroupData[{ @@ -776,8 +810,8 @@ Cell[BoxData["1.653`"], "Output", 3.993804550280451*^9, 3.993804626545594*^9, {3.993804662983712*^9, 3.9938047493074627`*^9}, 3.9939096022742043`*^9, 3.99390966981877*^9, 3.9939097530579777`*^9, 3.993909909111307*^9, {3.993909955941221*^9, - 3.993909990162526*^9}, 3.993911034113253*^9}, - CellLabel->"Out[31]=",ExpressionUUID->"aa02bdb6-79eb-4e23-bb2a-6ddf9b0c63a7"] + 3.993909990162526*^9}, 3.993911034113253*^9, 3.994250306251664*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"36b52fb9-d55c-4f71-ae1f-3a34cb48f6fa"] }, Open ]], Cell[BoxData[""], "Input", @@ -798,8 +832,8 @@ Cell[BoxData["0.855`"], "Output", 3.9938045503168097`*^9, 3.993804626574059*^9, {3.993804663013727*^9, 3.993804749370492*^9}, 3.993909602333745*^9, 3.99390966987148*^9, 3.9939097530831842`*^9, 3.993909909145574*^9, {3.993909955961776*^9, - 3.993909990180032*^9}, 3.9939110341311607`*^9}, - CellLabel->"Out[33]=",ExpressionUUID->"c42c820c-2557-43ec-8e9e-909319e1f11b"] + 3.993909990180032*^9}, 3.9939110341311607`*^9, 3.9942503062947407`*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"fa293e49-3140-4b8b-96a1-e27529b83b8c"] }, Open ]], Cell[BoxData[""], "Input", @@ -820,8 +854,8 @@ Cell[BoxData["2.405`"], "Output", 3.993804550350713*^9, 3.993804626598034*^9, {3.993804663037463*^9, 3.993804749435276*^9}, 3.9939096023888474`*^9, 3.993909669925479*^9, 3.9939097531059*^9, 3.993909909180294*^9, {3.9939099559820957`*^9, - 3.993909990196824*^9}, 3.993911034153755*^9}, - CellLabel->"Out[35]=",ExpressionUUID->"932beb2e-cd63-4ad5-90c1-cb994051fa0d"] + 3.993909990196824*^9}, 3.993911034153755*^9, 3.994250306329753*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"ed25f8b9-fdb8-4cf4-9189-7a47507e5262"] }, Open ]], Cell[BoxData[""], "Input", @@ -842,8 +876,8 @@ Cell[BoxData["1.225`"], "Output", 3.993804550383745*^9, 3.993804626621963*^9, {3.993804663060033*^9, 3.9938047494929237`*^9}, 3.9939096024465313`*^9, 3.993909669980788*^9, 3.993909753130068*^9, 3.993909909216509*^9, {3.993909956000244*^9, - 3.993909990213717*^9}, 3.993911034169413*^9}, - CellLabel->"Out[37]=",ExpressionUUID->"0677c22f-5c0c-4671-aae2-32348d3e4ad5"] + 3.993909990213717*^9}, 3.993911034169413*^9, 3.994250306368438*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"e350b07b-3dc5-41ac-a67a-58369ad3b0d0"] }, Open ]], Cell[BoxData[""], "Input", @@ -864,8 +898,8 @@ Cell[BoxData["1.63`"], "Output", 3.993804550416999*^9, 3.993804626645709*^9, {3.9938046630845337`*^9, 3.993804749547261*^9}, 3.993909602527773*^9, 3.993909670035091*^9, 3.993909753153574*^9, 3.993909909250422*^9, {3.993909956017232*^9, - 3.993909990230207*^9}, 3.993911034184588*^9}, - CellLabel->"Out[39]=",ExpressionUUID->"f66d1160-9b25-4292-ac3d-518524ca2416"] + 3.993909990230207*^9}, 3.993911034184588*^9, 3.994250306414691*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"3f19942d-4fed-452c-bc4a-086a99b95d1c"] }, Open ]], Cell[BoxData[""], "Input", @@ -886,8 +920,8 @@ Cell[BoxData["0.5571`"], "Output", 3.993804550449337*^9, 3.993804626671207*^9, {3.993804663115242*^9, 3.993804749603999*^9}, 3.993909602589055*^9, 3.9939096700891027`*^9, 3.993909753176607*^9, 3.993909909285474*^9, {3.9939099560344143`*^9, - 3.9939099902470818`*^9}, 3.9939110342005444`*^9}, - CellLabel->"Out[41]=",ExpressionUUID->"bb68c6a8-c2c0-4fc1-9486-4f8396c77e09"] + 3.9939099902470818`*^9}, 3.9939110342005444`*^9, 3.9942503065011177`*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"3cb80c78-c974-42eb-848f-18eca0f89299"] }, Open ]], Cell[BoxData[""], "Input", @@ -908,8 +942,8 @@ Cell[BoxData["1.82`"], "Output", 3.993804550483719*^9, 3.993804626698537*^9, {3.993804663139299*^9, 3.993804749658854*^9}, 3.993909602653262*^9, 3.993909670143072*^9, 3.993909753199719*^9, 3.993909909346984*^9, {3.993909956051777*^9, - 3.9939099902633963`*^9}, 3.993911034215588*^9}, - CellLabel->"Out[43]=",ExpressionUUID->"0d7f5595-231f-4951-9c0b-60278ef692ea"] + 3.9939099902633963`*^9}, 3.993911034215588*^9, 3.994250306547621*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"59104bdc-2bb0-483c-a74f-2bed1b8d29e4"] }, Open ]], Cell[BoxData[""], "Input", @@ -929,8 +963,8 @@ Cell[BoxData["1.82`"], "Output", 3.993804550516501*^9, 3.993804626722493*^9, {3.9938046631629744`*^9, 3.993804749712779*^9}, 3.9939096027072487`*^9, 3.993909670196845*^9, 3.9939097532228928`*^9, 3.993909909381329*^9, {3.993909956068966*^9, - 3.993909990279929*^9}, 3.993911034230833*^9}, - CellLabel->"Out[45]=",ExpressionUUID->"3cbc56fc-28b1-4775-90df-d2c0221cf591"] + 3.993909990279929*^9}, 3.993911034230833*^9, 3.994250306632289*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"8d2ed58d-f6dd-4747-bdae-2661d3bf59d3"] }, Open ]], Cell[BoxData[""], "Input", @@ -1432,8 +1466,9 @@ Cell[BoxData[ 3.991319787430073*^9, 3.993804550599751*^9, 3.993804626769621*^9, { 3.99380466321212*^9, 3.993804749779405*^9}, 3.993909602821623*^9, 3.9939096702786417`*^9, 3.993909753275091*^9, 3.993909909468431*^9, { - 3.9939099561101503`*^9, 3.993909990324842*^9}, 3.993911034348117*^9}, - CellLabel->"Out[47]=",ExpressionUUID->"8d5b16b7-0c4a-4508-a171-63903f0595c6"] + 3.9939099561101503`*^9, 3.993909990324842*^9}, 3.993911034348117*^9, + 3.994250306895714*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"a6c627c1-0f06-4153-ab98-efc3e4c8d4e1"] }, Open ]], Cell[CellGroupData[{ @@ -1934,8 +1969,9 @@ Cell[BoxData["0.08542989528290149`"], "Output", 3.991319787574972*^9, 3.9938045506724253`*^9, 3.993804626799774*^9, { 3.993804663242297*^9, 3.993804749831417*^9}, 3.993909602850985*^9, 3.993909670308428*^9, 3.99390975330634*^9, 3.993909909504902*^9, { - 3.993909956139316*^9, 3.993909990356688*^9}, 3.993911034394799*^9}, - CellLabel->"Out[48]=",ExpressionUUID->"7bf29fea-4a60-4fad-8edb-0c074061dd58"] + 3.993909956139316*^9, 3.993909990356688*^9}, 3.993911034394799*^9, + 3.994250307008054*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"924c67a8-9702-4ae8-9409-9f25a741a922"] }, Open ]], Cell[CellGroupData[{ @@ -2431,8 +2467,9 @@ Cell[BoxData[ 3.991319787641424*^9, 3.9938045506993027`*^9, 3.993804626828765*^9, { 3.99380466327107*^9, 3.99380474985798*^9}, 3.993909602878909*^9, 3.9939096703348618`*^9, 3.993909753333283*^9, 3.993909909537113*^9, { - 3.993909956164773*^9, 3.993909990381176*^9}, 3.9939110344479017`*^9}, - CellLabel->"Out[49]=",ExpressionUUID->"c3781f07-39c9-4fcc-9508-14e03be7b8f6"] + 3.993909956164773*^9, 3.993909990381176*^9}, 3.9939110344479017`*^9, + 3.994250307097488*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"2c9ae620-63d1-4d76-bdae-b3873e840469"] }, Open ]], Cell[CellGroupData[{ @@ -2998,8 +3035,9 @@ Cell[BoxData[ 3.991319787711939*^9, 3.993804550730234*^9, 3.993804626860573*^9, { 3.99380466335039*^9, 3.993804749888824*^9}, 3.9939096029089117`*^9, 3.9939096703655453`*^9, 3.993909753364204*^9, 3.9939099095691557`*^9, { - 3.9939099561943274`*^9, 3.9939099904093027`*^9}, 3.993911034552497*^9}, - CellLabel->"Out[50]=",ExpressionUUID->"97d44045-4e8b-4b1f-9269-9788c7923def"] + 3.9939099561943274`*^9, 3.9939099904093027`*^9}, 3.993911034552497*^9, + 3.994250307221479*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"f3478444-a18d-43ce-b500-831a52a651e8"] }, Open ]], Cell[CellGroupData[{ @@ -3565,8 +3603,9 @@ Cell[BoxData[ 3.9913197877723045`*^9, 3.993804550761911*^9, 3.993804626893774*^9, { 3.993804663389638*^9, 3.993804749919907*^9}, 3.9939096029398603`*^9, 3.993909670396442*^9, 3.993909753395891*^9, 3.9939099096076517`*^9, { - 3.9939099562247763`*^9, 3.9939099904381638`*^9}, 3.9939110346173267`*^9}, - CellLabel->"Out[51]=",ExpressionUUID->"7babe93f-2ac3-4541-8f18-ca71f9c82328"] + 3.9939099562247763`*^9, 3.9939099904381638`*^9}, 3.9939110346173267`*^9, + 3.994250307327915*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"6747a02e-163f-469d-9f51-adeacb923122"] }, Open ]], Cell[CellGroupData[{ @@ -4205,8 +4244,9 @@ Cell[BoxData[ 3.991319787833355*^9, 3.993804550797638*^9, 3.993804626930235*^9, { 3.993804663472403*^9, 3.993804749955412*^9}, 3.993909602975071*^9, 3.9939096704323187`*^9, 3.993909753433277*^9, 3.99390990964828*^9, { - 3.9939099562605953`*^9, 3.993909990472554*^9}, 3.993911034680691*^9}, - CellLabel->"Out[52]=",ExpressionUUID->"102edbab-a4ee-4f64-babc-d2fd1df5bfb4"] + 3.9939099562605953`*^9, 3.993909990472554*^9}, 3.993911034680691*^9, + 3.994250307515504*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"ed4a4b12-c491-4300-81dc-62d94451f6bd"] }, Open ]], Cell[CellGroupData[{ @@ -4220,8 +4260,9 @@ Cell[BoxData["0"], "Output", 3.9913204210013676`*^9, 3.9938045508194923`*^9, 3.993804626946419*^9, { 3.993804663488306*^9, 3.993804749974567*^9}, 3.9939096029931*^9, 3.993909670451165*^9, 3.9939097534481*^9, 3.993909909666844*^9, { - 3.993909956278285*^9, 3.9939099904879293`*^9}, 3.993911034695373*^9}, - CellLabel->"Out[53]=",ExpressionUUID->"20701862-87a8-4810-b849-d3e3dc75cd57"] + 3.993909956278285*^9, 3.9939099904879293`*^9}, 3.993911034695373*^9, + 3.994250307611163*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"8ced8f7f-c886-4dfd-bbdb-bd7ea4cecbc2"] }, Open ]], Cell[CellGroupData[{ @@ -4235,8 +4276,9 @@ Cell[BoxData["0"], "Output", 3.9913204210355663`*^9, 3.993804550838839*^9, 3.99380462696198*^9, { 3.993804663542288*^9, 3.993804749990815*^9}, 3.9939096030110683`*^9, 3.993909670469376*^9, 3.993909753462414*^9, 3.9939099096844893`*^9, { - 3.993909956293055*^9, 3.993909990503254*^9}, 3.99391103470693*^9}, - CellLabel->"Out[54]=",ExpressionUUID->"e75f4ae3-238f-4428-8e03-1cd272b7939e"] + 3.993909956293055*^9, 3.993909990503254*^9}, 3.99391103470693*^9, + 3.9942503076352*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"d8937626-9357-4030-98b2-c5fc7d528fd8"] }, Open ]], Cell[CellGroupData[{ @@ -4287,8 +4329,9 @@ Cell[BoxData["111.7060296377673`"], "Output", 3.991320421068556*^9, 3.9938045508585377`*^9, 3.993804626991984*^9, { 3.993804663557494*^9, 3.9938047500074787`*^9}, 3.99390960303067*^9, 3.993909670487976*^9, 3.993909753477995*^9, 3.9939099097033167`*^9, { - 3.993909956309827*^9, 3.993909990518099*^9}, 3.993911034719248*^9}, - CellLabel->"Out[55]=",ExpressionUUID->"19224885-ec48-488b-970c-5184f8048c37"] + 3.993909956309827*^9, 3.993909990518099*^9}, 3.993911034719248*^9, + 3.994250307659483*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"7d0c36d8-3736-4543-923c-dbe640f9a2a5"] }, Open ]], Cell[CellGroupData[{ @@ -4336,8 +4379,9 @@ Cell[BoxData[ 3.991320421098543*^9, 3.993804550878648*^9, 3.993804627006651*^9, { 3.99380466357337*^9, 3.993804750023952*^9}, 3.993909603048832*^9, 3.993909670506846*^9, 3.99390975349363*^9, 3.993909909722876*^9, { - 3.9939099563244467`*^9, 3.993909990532846*^9}, 3.99391103473282*^9}, - CellLabel->"Out[56]=",ExpressionUUID->"80007b65-16ce-40fe-b2b5-e2288fbca6df"] + 3.9939099563244467`*^9, 3.993909990532846*^9}, 3.99391103473282*^9, + 3.994250307682458*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"d296878c-5281-4d9f-b4ed-f93935f05cad"] }, Open ]], Cell[CellGroupData[{ @@ -4388,8 +4432,9 @@ Cell[BoxData["187.12903971509587`"], "Output", 3.9913204211275444`*^9, 3.9938045509027987`*^9, 3.993804627020084*^9, { 3.993804663589897*^9, 3.993804750040456*^9}, 3.9939096030676117`*^9, 3.9939096705252743`*^9, 3.993909753508572*^9, 3.993909909741909*^9, { - 3.993909956339319*^9, 3.9939099905477867`*^9}, 3.993911034743794*^9}, - CellLabel->"Out[57]=",ExpressionUUID->"cfb1464b-231b-4265-8091-491847f649c3"] + 3.993909956339319*^9, 3.9939099905477867`*^9}, 3.993911034743794*^9, + 3.994250307711031*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"a91b29b2-2ce2-48ae-b580-91efb2825dcb"] }, Open ]], Cell[CellGroupData[{ @@ -4402,8 +4447,9 @@ Cell[BoxData["0.2814027825454283`"], "Output", 3.9913204211385536`*^9, 3.9938045509220467`*^9, 3.993804627033495*^9, { 3.993804663606344*^9, 3.9938047500576067`*^9}, 3.993909603085306*^9, 3.993909670543174*^9, 3.993909753523663*^9, 3.9939099097598248`*^9, { - 3.993909956353833*^9, 3.993909990562546*^9}, 3.993911034754279*^9}, - CellLabel->"Out[58]=",ExpressionUUID->"0871b351-8d33-4e83-b874-814334d08350"] + 3.993909956353833*^9, 3.993909990562546*^9}, 3.993911034754279*^9, + 3.994250307728236*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"84f7a9a5-3c29-4708-832c-7f22a41ac72f"] }, Open ]], Cell[CellGroupData[{ @@ -4417,8 +4463,9 @@ Cell[BoxData[ 3.9913204211683464`*^9, 3.993804550940889*^9, 3.993804627047104*^9, { 3.99380466362283*^9, 3.993804750074596*^9}, 3.993909603103224*^9, 3.993909670561534*^9, 3.993909753539481*^9, 3.993909909777351*^9, { - 3.9939099563684807`*^9, 3.993909990577075*^9}, 3.9939110347651653`*^9}, - CellLabel->"Out[59]=",ExpressionUUID->"2eab2ac1-41a5-47db-a4ff-8fdd57873bc5"] + 3.9939099563684807`*^9, 3.993909990577075*^9}, 3.9939110347651653`*^9, + 3.994250307743353*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"2603a31a-13f9-48e9-b5b8-2199636f63b1"] }, Open ]], Cell[CellGroupData[{ @@ -4432,8 +4479,9 @@ Cell[BoxData[ 3.991320421199068*^9, 3.99380455096201*^9, 3.993804627060543*^9, { 3.9938046636401176`*^9, 3.9938047500897923`*^9}, 3.993909603121352*^9, 3.993909670579809*^9, 3.993909753557192*^9, 3.9939099097958403`*^9, { - 3.99390995638293*^9, 3.9939099905920963`*^9}, 3.993911034776531*^9}, - CellLabel->"Out[60]=",ExpressionUUID->"fa3e3b99-8de5-4837-ab78-37a5a29009da"] + 3.99390995638293*^9, 3.9939099905920963`*^9}, 3.993911034776531*^9, + 3.994250307757227*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"409773a4-42f5-445b-903a-44081fa10c67"] }, Open ]], Cell[CellGroupData[{ @@ -4446,8 +4494,9 @@ Cell[BoxData["0.5841645161809887`"], "Output", 3.991320421228037*^9, 3.993804550980524*^9, 3.9938046270751667`*^9, { 3.993804663656624*^9, 3.993804750107565*^9}, 3.993909603139456*^9, 3.993909670598647*^9, 3.9939097536021843`*^9, 3.993909909812099*^9, { - 3.993909956397331*^9, 3.9939099906069927`*^9}, 3.993911034794191*^9}, - CellLabel->"Out[61]=",ExpressionUUID->"db564248-b10c-446b-92f7-9c843da073ff"] + 3.993909956397331*^9, 3.9939099906069927`*^9}, 3.993911034794191*^9, + 3.994250307769616*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"b2bbf395-b311-482b-9f41-e72076a08407"] }, Open ]], Cell[CellGroupData[{ @@ -4460,8 +4509,9 @@ Cell[BoxData["2.5173601133375656`"], "Output", 3.9913204212585373`*^9, 3.993804550999857*^9, 3.993804627093104*^9, { 3.993804663673789*^9, 3.993804750123993*^9}, 3.993909603159047*^9, 3.9939096706237583`*^9, 3.993909753618161*^9, 3.993909909815946*^9, { - 3.993909956411661*^9, 3.993909990622797*^9}, 3.99391103480459*^9}, - CellLabel->"Out[62]=",ExpressionUUID->"b8f95172-ee8e-4963-a53e-3b4d838130b0"] + 3.993909956411661*^9, 3.993909990622797*^9}, 3.99391103480459*^9, + 3.994250307785075*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"c701343b-e4a3-4ad7-b915-b10911bd0c70"] }, Open ]], Cell[CellGroupData[{ @@ -4474,8 +4524,9 @@ Cell[BoxData["1.5234450434796134`"], "Output", 3.9913204212884274`*^9, 3.993804551018916*^9, 3.993804627108033*^9, { 3.993804663692298*^9, 3.993804750140585*^9}, 3.99390960317778*^9, 3.993909670643187*^9, 3.9939097536363897`*^9, 3.993909909844212*^9, { - 3.993909956428871*^9, 3.993909990639729*^9}, 3.993911034814896*^9}, - CellLabel->"Out[63]=",ExpressionUUID->"5d51effe-6d68-458f-b2be-f21d376c7e99"] + 3.993909956428871*^9, 3.993909990639729*^9}, 3.993911034814896*^9, + 3.994250307800021*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"47a70296-7161-4fef-be2d-a69e2296cbe5"] }, Open ]], Cell[CellGroupData[{ @@ -4504,8 +4555,9 @@ Cell[BoxData[ 3.9913204213185234`*^9, 3.993804551037992*^9, 3.993804627123701*^9, { 3.993804663711438*^9, 3.993804750156764*^9}, 3.993909603196027*^9, 3.993909670663684*^9, 3.99390975365348*^9, 3.993909909862356*^9, { - 3.993909956443829*^9, 3.993909990654669*^9}, 3.993911034824026*^9}, - CellLabel->"Out[64]=",ExpressionUUID->"4fe53d58-bfec-495e-96f6-700f97e196ba"] + 3.993909956443829*^9, 3.993909990654669*^9}, 3.993911034824026*^9, + 3.9942503078145*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"d7639da0-35b8-461c-bce7-85096c6d4e90"] }, Open ]], Cell[CellGroupData[{ @@ -4534,8 +4586,9 @@ Cell[BoxData[ 3.991320421349531*^9, 3.99380455105733*^9, 3.993804627139119*^9, { 3.993804663729148*^9, 3.993804750173326*^9}, 3.993909603216249*^9, 3.993909670683181*^9, 3.993909753671298*^9, 3.993909909877062*^9, { - 3.993909956460279*^9, 3.993909990669105*^9}, 3.993911034839003*^9}, - CellLabel->"Out[65]=",ExpressionUUID->"de31ab36-80e6-45af-b867-10b11405c579"] + 3.993909956460279*^9, 3.993909990669105*^9}, 3.993911034839003*^9, + 3.994250307839919*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"cd1b465d-8dd3-4dba-b116-d54b28c5b020"] }, Open ]], Cell[CellGroupData[{ @@ -4607,8 +4660,9 @@ Cell[BoxData["93.52813324924097`"], "Output", 3.9913204213784294`*^9, 3.9938045510774317`*^9, 3.993804627154879*^9, { 3.993804663746785*^9, 3.993804750189831*^9}, 3.993909603237997*^9, 3.99390967070298*^9, 3.993909753690928*^9, 3.993909909892799*^9, { - 3.9939099564827127`*^9, 3.993909990683666*^9}, 3.9939110348899097`*^9}, - CellLabel->"Out[66]=",ExpressionUUID->"f76a45a3-6f9b-4aef-9b49-5526eb3da2c8"] + 3.9939099564827127`*^9, 3.993909990683666*^9}, 3.9939110348899097`*^9, + 3.99425030786518*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"b05b5d74-fc13-44c0-ad8f-fdb7f91dc381"] }, Open ]], Cell[CellGroupData[{ @@ -4657,8 +4711,9 @@ Cell[BoxData[ 3.9913204213904285`*^9, 3.993804551098919*^9, 3.99380462716993*^9, { 3.99380466376478*^9, 3.993804750205999*^9}, 3.9939096032579308`*^9, 3.99390967072291*^9, 3.993909753708663*^9, 3.993909909912747*^9, { - 3.9939099564995337`*^9, 3.993909990698875*^9}, 3.993911034925613*^9}, - CellLabel->"Out[67]=",ExpressionUUID->"3f7e629a-01ea-48a8-b03c-d42d08d9f0e0"] + 3.9939099564995337`*^9, 3.993909990698875*^9}, 3.993911034925613*^9, + 3.9942503078809547`*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"c7685593-d1ab-459f-90f1-eb1dee71c928"] }, Open ]], Cell[CellGroupData[{ @@ -4731,8 +4786,9 @@ Cell[BoxData["182.70610789396713`"], "Output", 3.991320421419428*^9, 3.993804551121139*^9, 3.993804627185237*^9, { 3.9938046637699213`*^9, 3.993804750221984*^9}, 3.993909603279203*^9, 3.993909670743991*^9, 3.993909753728705*^9, 3.993909909930686*^9, { - 3.993909956518093*^9, 3.9939099907215357`*^9}, 3.993911034943129*^9}, - CellLabel->"Out[68]=",ExpressionUUID->"87712a6d-2470-432b-a42a-4a20fb1c7ca3"] + 3.993909956518093*^9, 3.9939099907215357`*^9}, 3.993911034943129*^9, + 3.994250307899474*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"606766b3-fe6d-434a-a8c2-8c7d07ac0539"] }, Open ]], Cell[CellGroupData[{ @@ -4797,8 +4853,9 @@ Cell[BoxData["150.0362849602646`"], "Output", 3.9913204214494324`*^9, 3.9938045511434107`*^9, 3.993804627199387*^9, { 3.9938046637889233`*^9, 3.993804750238797*^9}, 3.993909603297597*^9, 3.993909670763399*^9, 3.993909753746546*^9, 3.993909909946938*^9, { - 3.99390995653423*^9, 3.993909990735869*^9}, 3.993911034960313*^9}, - CellLabel->"Out[69]=",ExpressionUUID->"df20681e-2b90-4fe2-a4ba-757176d5fc85"] + 3.99390995653423*^9, 3.993909990735869*^9}, 3.993911034960313*^9, + 3.994250307916827*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"7a771db9-7940-4be6-b9d2-aee9efcfbb91"] }, Open ]], Cell[CellGroupData[{ @@ -4863,8 +4920,9 @@ Cell[BoxData["845.8339546196385`"], "Output", 3.991320421481529*^9, 3.993804551165799*^9, 3.993804627215629*^9, { 3.9938046638111277`*^9, 3.993804750255252*^9}, 3.993909603318231*^9, 3.993909670782775*^9, 3.993909753763286*^9, 3.993909909962928*^9, { - 3.9939099565492992`*^9, 3.993909990750906*^9}, 3.993911034975246*^9}, - CellLabel->"Out[70]=",ExpressionUUID->"feaed377-3abe-47bc-a612-d0a1a348fb45"] + 3.9939099565492992`*^9, 3.993909990750906*^9}, 3.993911034975246*^9, + 3.994250307934641*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"d333f255-b3e5-4cdb-8ac7-089d21c71092"] }, Open ]], Cell[CellGroupData[{ @@ -4876,8 +4934,8 @@ Cell[BoxData[ CellLabel->"In[71]:=",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], Cell[BoxData["0.4802`"], "Output", - CellChangeTimes->{3.993911034984426*^9}, - CellLabel->"Out[71]=",ExpressionUUID->"6a954de7-2249-4ed8-a35a-566ea49821cc"] + CellChangeTimes->{3.993911034984426*^9, 3.994250307952478*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"b95d91bb-2999-43e0-926d-6fb808281ea1"] }, Open ]], Cell[BoxData[""], "Input", @@ -4893,8 +4951,8 @@ Cell[BoxData[ CellLabel->"In[73]:=",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], Cell[BoxData["0.1536`"], "Output", - CellChangeTimes->{3.993911035009091*^9}, - CellLabel->"Out[73]=",ExpressionUUID->"f380d2da-7a0b-40f9-9609-3ac9ca84acd5"] + CellChangeTimes->{3.993911035009091*^9, 3.994250307983479*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"f62b42c8-9265-4bd5-abb4-14775b6d89a9"] }, Open ]], Cell[BoxData[""], "Input", @@ -4948,8 +5006,8 @@ Cell[BoxData[ CellLabel->"In[75]:=",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], Cell[BoxData["3.0421649672677`*^-53"], "Output", - CellChangeTimes->{3.993911035029347*^9}, - CellLabel->"Out[75]=",ExpressionUUID->"a3b94cd8-d8c6-4b5f-ab0f-90973d81e8c8"] + CellChangeTimes->{3.993911035029347*^9, 3.9942503080290613`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"cba3ebfa-4c5f-4497-a4fd-198dab334acd"] }, Open ]], Cell[CellGroupData[{ @@ -4987,8 +5045,8 @@ Cell[BoxData[ CellLabel->"In[76]:=",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], Cell[BoxData["1.0691440866560123`*^-54"], "Output", - CellChangeTimes->{3.993911035042004*^9}, - CellLabel->"Out[76]=",ExpressionUUID->"8d301370-8f2d-4db3-a406-a360a46fa3a3"] + CellChangeTimes->{3.993911035042004*^9, 3.9942503080574102`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"6627044e-ef91-4756-8ac5-b307ccc0ae48"] }, Open ]], Cell[CellGroupData[{ @@ -5025,8 +5083,8 @@ Cell[BoxData[ CellLabel->"In[77]:=",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], Cell[BoxData["7.422938590368768`*^-55"], "Output", - CellChangeTimes->{3.993911035052928*^9}, - CellLabel->"Out[77]=",ExpressionUUID->"2052b6db-c975-497a-9f41-732dfb1b0283"] + CellChangeTimes->{3.993911035052928*^9, 3.9942503080788813`*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"df0f754d-6496-4646-b0ba-194e759b4e34"] }, Open ]], Cell[CellGroupData[{ @@ -5052,8 +5110,8 @@ Cell[BoxData[ CellLabel->"In[78]:=",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], Cell[BoxData["10.515928007617523`"], "Output", - CellChangeTimes->{3.99391103506326*^9}, - CellLabel->"Out[78]=",ExpressionUUID->"bd7c1cdb-3305-43d6-b68d-078b019d5a48"] + CellChangeTimes->{3.99391103506326*^9, 3.994250308096335*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"584fcf34-ca49-497c-b296-b0e832751c77"] }, Open ]], Cell[CellGroupData[{ @@ -5082,8 +5140,8 @@ Cell[BoxData[ CellLabel->"In[79]:=",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], Cell[BoxData["27.853770534110033`"], "Output", - CellChangeTimes->{3.993911035073667*^9}, - CellLabel->"Out[79]=",ExpressionUUID->"07d22a82-a752-48e8-a7fc-c24969d30846"] + CellChangeTimes->{3.993911035073667*^9, 3.9942503081118298`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"e02ed6c9-844d-4f72-a967-60ef581609de"] }, Open ]], Cell[CellGroupData[{ @@ -5095,8 +5153,8 @@ Cell[BoxData[ CellLabel->"In[80]:=",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], Cell[BoxData["3.777237989202462`"], "Output", - CellChangeTimes->{3.993911035086005*^9}, - CellLabel->"Out[80]=",ExpressionUUID->"cb0a70f6-faaa-4cd5-b6e1-28adf1d82357"] + CellChangeTimes->{3.993911035086005*^9, 3.994250308210644*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"0273cc4c-1d09-4b09-8754-456c9d85f435"] }, Open ]], Cell[CellGroupData[{ @@ -5108,8 +5166,8 @@ Cell[BoxData[ CellLabel->"In[81]:=",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], Cell[BoxData["5.510621228139882`"], "Output", - CellChangeTimes->{3.993911035098166*^9}, - CellLabel->"Out[81]=",ExpressionUUID->"8043cc17-a1b1-4c9b-8724-d6759020ee09"] + CellChangeTimes->{3.993911035098166*^9, 3.994250308226269*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"08bd1826-99eb-41d3-a42a-edebc8f8edf5"] }, Open ]], Cell[CellGroupData[{ @@ -5121,8 +5179,8 @@ Cell[BoxData[ CellLabel->"In[82]:=",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], Cell[BoxData["153.4915791890039`"], "Output", - CellChangeTimes->{3.993911035108863*^9}, - CellLabel->"Out[82]=",ExpressionUUID->"36b108df-9bc7-4523-b286-3988613b6e45"] + CellChangeTimes->{3.993911035108863*^9, 3.994250308246407*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"4ba41e8e-3995-4298-97c5-ac9705241ec2"] }, Open ]], Cell[CellGroupData[{ @@ -5134,8 +5192,8 @@ Cell[BoxData[ CellLabel->"In[83]:=",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], Cell[BoxData["39.72116276209107`"], "Output", - CellChangeTimes->{3.9939110351208353`*^9}, - CellLabel->"Out[83]=",ExpressionUUID->"79fd0f54-f6da-4209-96e7-d477beeadefc"] + CellChangeTimes->{3.9939110351208353`*^9, 3.9942503082646523`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"0b23f56b-c301-4045-a4a2-efa882769428"] }, Open ]], Cell[CellGroupData[{ @@ -5327,8 +5385,8 @@ Cell[BoxData[ CellLabel->"In[84]:=",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], Cell[BoxData["0.005905154877936506`"], "Output", - CellChangeTimes->{3.993911035132434*^9}, - CellLabel->"Out[84]=",ExpressionUUID->"5b9b0a5d-3c66-4fca-acee-286f224dea41"] + CellChangeTimes->{3.993911035132434*^9, 3.994250308288767*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"65d95482-aed7-4cd1-bc7b-0c46890de59f"] }, Open ]], Cell[CellGroupData[{ @@ -5344,8 +5402,8 @@ Cell[BoxData[ CellLabel->"In[85]:=",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], Cell[BoxData["11.532654843512946`"], "Output", - CellChangeTimes->{3.9939110353459*^9}, - CellLabel->"Out[85]=",ExpressionUUID->"815a97fb-0451-453b-af48-45b0f998c371"] + CellChangeTimes->{3.9939110353459*^9, 3.9942503086196012`*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"2006ce52-9478-4ba9-8b1e-f81cfdc50e05"] }, Open ]], Cell[CellGroupData[{ @@ -5539,8 +5597,8 @@ Cell[BoxData[ CellLabel->"In[86]:=",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], Cell[BoxData["0.02455243660694453`"], "Output", - CellChangeTimes->{3.9939110353608713`*^9}, - CellLabel->"Out[86]=",ExpressionUUID->"65fb6428-b20e-4241-ad27-a27409e6adf0"] + CellChangeTimes->{3.9939110353608713`*^9, 3.994250308774372*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"bd7730ac-314f-4e09-a01f-4ee35c4604f1"] }, Open ]], Cell[CellGroupData[{ @@ -5556,8 +5614,8 @@ Cell[BoxData[ CellLabel->"In[87]:=",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], Cell[BoxData["5.655846855736567`"], "Output", - CellChangeTimes->{3.993911035439249*^9}, - CellLabel->"Out[87]=",ExpressionUUID->"6859bb29-936a-4b0f-86d0-dc38bb823711"] + CellChangeTimes->{3.993911035439249*^9, 3.994250308897307*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"8691148d-c21a-4cd4-8013-f0466fd55cb8"] }, Open ]], Cell[CellGroupData[{ @@ -5652,8 +5710,8 @@ Cell[BoxData[ CellLabel->"In[88]:=",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], Cell[BoxData["0.08103755887966854`"], "Output", - CellChangeTimes->{3.9939110354499683`*^9}, - CellLabel->"Out[88]=",ExpressionUUID->"7763f4b4-5b70-41da-9114-5a2c2d898287"] + CellChangeTimes->{3.9939110354499683`*^9, 3.994250308915347*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"41a722ab-4628-4f58-a9ed-78385a093eb8"] }, Open ]], Cell[CellGroupData[{ @@ -5745,8 +5803,8 @@ Cell[BoxData[ CellLabel->"In[89]:=",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], Cell[BoxData["0.9189624411203314`"], "Output", - CellChangeTimes->{3.993911035463278*^9}, - CellLabel->"Out[89]=",ExpressionUUID->"f8e0fa58-e025-44ec-bed6-cba17ae90f72"] + CellChangeTimes->{3.993911035463278*^9, 3.9942503089301662`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"7422b835-7aa3-40f8-9c83-dc850f747499"] }, Open ]], Cell[CellGroupData[{ @@ -5871,8 +5929,8 @@ Cell[BoxData[ CellLabel->"In[90]:=",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], Cell[BoxData["0.0744704729304928`"], "Output", - CellChangeTimes->{3.993911035569129*^9}, - CellLabel->"Out[90]=",ExpressionUUID->"b2ac48b3-5443-4e52-a6ad-226cd7860013"] + CellChangeTimes->{3.993911035569129*^9, 3.99425030894877*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"9c7ef388-0074-4072-ad24-f90f7d802d5f"] }, Open ]], Cell[BoxData[ @@ -5946,63 +6004,66 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.5195979912698294`*^-206\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 92, 1, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 1, + 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9939110356029377`*^9}, + CellChangeTimes->{3.9939110356029377`*^9, 3.9942503090100603`*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"dab50db0-f409-4890-afe1-0f1299e3d612"], +In[92]:=",ExpressionUUID->"dbb97ff2-876f-4907-ab75-49b706f094b7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.731286460672993`*^-211\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 92, 2, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 2, + 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993911035619616*^9}, + CellChangeTimes->{3.9939110356029377`*^9, 3.99425030903776*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"1fc074c1-01a3-4902-9928-abdbf57cbd5e"], +In[92]:=",ExpressionUUID->"9a8cc525-1d5c-4434-b384-f3b8619bf8e5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.0952734372083204`*^-215\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 92, 3, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 3, + 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9939110356273623`*^9}, + CellChangeTimes->{3.9939110356029377`*^9, 3.9942503090473843`*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"121cb2f6-2328-4dce-803e-1799db8f011c"], +In[92]:=",ExpressionUUID->"f0619e74-929e-44d9-9dcd-f386d6ec0b60"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 92, 4, 31385386322042493318, "kernel 3"}, +during this calculation.\"", 2, 92, 4, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993911035633706*^9}, + CellChangeTimes->{3.9939110356029377`*^9, 3.994250309056493*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"e92d163c-93b8-4361-a28f-1c4b99d7c24f"], +In[92]:=",ExpressionUUID->"5c41f606-28e2-4ce7-a7d8-fd3ea358e3da"], Cell[BoxData["11.532654843512939`"], "Output", - CellChangeTimes->{3.993911037979106*^9}, - CellLabel->"Out[92]=",ExpressionUUID->"cdfcc8fd-f0ac-448c-a1fd-cd6d5c4cdc88"] + CellChangeTimes->{3.993911037979106*^9, 3.994250312939446*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"02555646-a88d-4a2d-8671-23d0f6a32f8c"] }, Open ]], Cell[CellGroupData[{ @@ -6071,63 +6132,66 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.5195979912698294`*^-206\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 93, 5, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 5, + 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9939110380464563`*^9}, + CellChangeTimes->{3.9939110380464563`*^9, 3.99425031301254*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"0eac5177-ca8b-4ec7-8239-15e804334158"], +In[93]:=",ExpressionUUID->"0da4f7f9-302d-418b-b435-22147f4106f6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.731286460672993`*^-211\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 93, 6, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 6, + 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9939110380526123`*^9}, + CellChangeTimes->{3.9939110380464563`*^9, 3.994250313026453*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"0f50415b-f925-4b90-8799-8a868403a763"], +In[93]:=",ExpressionUUID->"9ac5943c-f377-4b6e-b423-30363f53a108"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.0952734372083204`*^-215\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 93, 7, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 7, + 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9939110380581903`*^9}, + CellChangeTimes->{3.9939110380464563`*^9, 3.994250313036613*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"44d3dea8-0ac3-428a-a2e4-8d66d2e4d378"], +In[93]:=",ExpressionUUID->"eba61cf9-ede7-4884-ae8e-0364deddcfe2"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 93, 8, 31385386322042493318, "kernel 3"}, +during this calculation.\"", 2, 93, 8, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9939110380662003`*^9}, + CellChangeTimes->{3.9939110380464563`*^9, 3.994250313047201*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"0509b959-f641-41d7-a564-76231fc7ad70"], +In[93]:=",ExpressionUUID->"8a62a13c-4d31-4181-a675-b37642e0db5b"], Cell[BoxData["5.655846855736566`"], "Output", - CellChangeTimes->{3.9939110404928207`*^9}, - CellLabel->"Out[93]=",ExpressionUUID->"10ed92d5-6ea7-4111-858c-0c6735bf6ff7"] + CellChangeTimes->{3.9939110404928207`*^9, 3.99425031682216*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"db7c6666-dfc7-4788-81a6-d598780f7c12"] }, Open ]], Cell[CellGroupData[{ @@ -6137,50 +6201,52 @@ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ - FractionBox[ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", RowBox[{ - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", - RowBox[{"Cos", "[", - FractionBox[ - RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], - RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{3.9918505747312756`*^9}, @@ -6568,8 +6634,8 @@ XPg/6gcDOg== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.993911330038269*^9}, - CellLabel->"Out[94]=",ExpressionUUID->"8e8d9c77-9b05-4c8c-96ca-b110d799d4f8"] + CellChangeTimes->{3.993911330038269*^9, 3.994250879001474*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"a33f97b1-0bdf-4ab5-b228-3f174bfcc503"] }, Open ]], Cell[CellGroupData[{ @@ -6641,13 +6707,13 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"6.122586195676297`*^-267\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 95, 9, - 31385386322042493318, "kernel 3"}, + 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993911330411903*^9}, + CellChangeTimes->{3.993911330411903*^9, 3.994250879579957*^9}, CellLabel-> "During evaluation of \ -In[95]:=",ExpressionUUID->"014468fb-20de-4035-9bc9-a87c10893be7"], +In[95]:=",ExpressionUUID->"67a41870-b118-410e-9ede-5fcd6872e21e"], Cell[BoxData[ TemplateBox[{ @@ -6655,13 +6721,13 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"4.951352687616217`*^-278\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, 95, - 10, 31385386322042493318, "kernel 3"}, + 10, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993911330419085*^9}, + CellChangeTimes->{3.993911330411903*^9, 3.99425087958991*^9}, CellLabel-> "During evaluation of \ -In[95]:=",ExpressionUUID->"ee2d94c1-9597-481d-be45-2ef0e1b38372"], +In[95]:=",ExpressionUUID->"6aa54d31-ba6d-44cd-ab79-904dffb8771d"], Cell[BoxData[ TemplateBox[{ @@ -6669,26 +6735,26 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"4.0041728533731696`*^-289\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 95, 11, 31385386322042493318, "kernel 3"}, + 2, 95, 11, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993911330425972*^9}, + CellChangeTimes->{3.993911330411903*^9, 3.994250879599708*^9}, CellLabel-> "During evaluation of \ -In[95]:=",ExpressionUUID->"b6befc36-6ffe-4e62-a2fa-881e22567876"], +In[95]:=",ExpressionUUID->"73f9916f-5989-4339-be5f-e84b81f5b492"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 95, 12, 31385386322042493318, "kernel 3"}, +during this calculation.\"", 2, 95, 12, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993911330434367*^9}, + CellChangeTimes->{3.993911330411903*^9, 3.994250879608592*^9}, CellLabel-> "During evaluation of \ -In[95]:=",ExpressionUUID->"016fceff-5ab8-4dc2-ad00-99d38decb03f"], +In[95]:=",ExpressionUUID->"776b2844-110e-41de-9c8d-e11f0a48897c"], Cell[BoxData[ GraphicsBox[ @@ -7093,8 +7159,8 @@ p+P//nFxS1uUq1SMLfwf0flrGw== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9939116789530497`*^9}, - CellLabel->"Out[95]=",ExpressionUUID->"8a202dbb-e994-4e8b-945b-c6d702039506"] + CellChangeTimes->{3.9939116789530497`*^9, 3.994251493893365*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"79ce712e-2067-4149-8405-eedaa6d35fa3"] }, Open ]], Cell[CellGroupData[{ @@ -7391,8 +7457,8 @@ SA== Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.993911679147246*^9}, - CellLabel->"Out[96]=",ExpressionUUID->"ef62d7eb-c542-4030-afa8-088323f54e54"] + CellChangeTimes->{3.993911679147246*^9, 3.994251494138701*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"75fe757c-df21-4fe4-bcd7-4406f078ba01"] }, Open ]], Cell[CellGroupData[{ @@ -7938,8 +8004,8 @@ SA== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.993911679177208*^9}, - CellLabel->"Out[97]=",ExpressionUUID->"ed023269-e904-46dc-820e-8d16fc85827c"] + CellChangeTimes->{3.993911679177208*^9, 3.994251494180094*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"4b57cbee-3ec3-4a5f-a690-f1c5fdc1338a"] }, Open ]], Cell[CellGroupData[{ @@ -7953,8 +8019,8 @@ Cell[BoxData[ CellLabel->"In[98]:=",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], Cell[BoxData["10.979617679683463`"], "Output", - CellChangeTimes->{3.9939116792071943`*^9}, - CellLabel->"Out[98]=",ExpressionUUID->"1a3c3c49-4adc-48c2-a220-2ae30e724fde"] + CellChangeTimes->{3.9939116792071943`*^9, 3.994251494229558*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"26e3f40c-c60e-4809-8d2c-e6f0f79762e3"] }, Open ]], Cell[CellGroupData[{ @@ -8019,13 +8085,13 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"1.542741915143631`*^-262\\\", \ \\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 99, 13, 31385386322042493318, "kernel 3"}, + 2, 99, 13, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993911679290359*^9}, + CellChangeTimes->{3.993911679290359*^9, 3.9942514943623*^9}, CellLabel-> "During evaluation of \ -In[99]:=",ExpressionUUID->"375811db-567e-4bb0-b879-1e8138d9297b"], +In[99]:=",ExpressionUUID->"8ad41be0-5a4d-48b1-9c74-8787ca42938f"], Cell[BoxData[ TemplateBox[{ @@ -8033,13 +8099,13 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"3.10144011999818`*^-272\\\", \ \\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 99, 14, 31385386322042493318, "kernel 3"}, +\"", 2, 99, 14, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993911679299211*^9}, + CellChangeTimes->{3.993911679290359*^9, 3.9942514943728943`*^9}, CellLabel-> "During evaluation of \ -In[99]:=",ExpressionUUID->"d94926b5-c4d3-42b2-8353-a0e33e227806"], +In[99]:=",ExpressionUUID->"d0ef427c-443a-4954-b1b0-b7db37598a6e"], Cell[BoxData[ TemplateBox[{ @@ -8047,26 +8113,26 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"6.234957852324122`*^-282\\\", \ \\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 99, 15, 31385386322042493318, "kernel 3"}, +\"", 2, 99, 15, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993911679305687*^9}, + CellChangeTimes->{3.993911679290359*^9, 3.994251494385147*^9}, CellLabel-> "During evaluation of \ -In[99]:=",ExpressionUUID->"f2161049-08e8-4e07-8226-1b8db003c6d8"], +In[99]:=",ExpressionUUID->"5ad5d840-0ba2-4f55-a590-ab915ddfe43c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 99, 16, 31385386322042493318, "kernel 3"}, +during this calculation.\"", 2, 99, 16, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9939116793138733`*^9}, + CellChangeTimes->{3.993911679290359*^9, 3.994251494393775*^9}, CellLabel-> "During evaluation of \ -In[99]:=",ExpressionUUID->"d453062d-42e8-46bf-b611-2bc017614ac6"], +In[99]:=",ExpressionUUID->"c6922e37-998d-4494-8d42-abd9c88340ad"], Cell[BoxData[ GraphicsBox[ @@ -8483,8 +8549,8 @@ gxl2LSZpFg6QHXRr6u9fDjoWr4v11nWA/wFiV4dP Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.993912125220696*^9}, - CellLabel->"Out[99]=",ExpressionUUID->"fce2c1bd-d896-4e50-8ac6-d5507d17c5c6"] + CellChangeTimes->{3.993912125220696*^9, 3.9942522443317966`*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"c43e0bd3-3cc1-443e-b961-2d744ea6fa6c"] }, Open ]], Cell[CellGroupData[{ @@ -8543,66 +8609,67 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.104267954830591`*^-174\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 100, 17, 31385386322042493318, "kernel 3"}, +RowBox[{\\\"182746270923358292188640954459021807938\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"61\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3679745821507584000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 17, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912125369446*^9}, + CellChangeTimes->{3.993912125369446*^9, 3.9942522444950953`*^9}, CellLabel-> "During evaluation of \ -In[100]:=",ExpressionUUID->"8d9a7d00-4a94-4a42-b1e9-637b4fd4e6e8"], +In[100]:=",ExpressionUUID->"d0cc3611-574e-48fb-8970-bedc98ef37d4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.1967838335460947`*^-177\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 100, 18, 31385386322042493318, "kernel 3"}, +RowBox[{\\\"532888126012512780022077023202507591948\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"64\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0138815516114944000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 18, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912125379724*^9}, + CellChangeTimes->{3.993912125369446*^9, 3.994252244505015*^9}, CellLabel-> "During evaluation of \ -In[100]:=",ExpressionUUID->"3c2a0164-d99f-4fc1-8df9-4079609610b7"], +In[100]:=",ExpressionUUID->"7725b4a9-ce3c-4c99-bd10-826ddcf2c41b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.1758148504045883`*^-180\\\", \ -RowBox[{\\\"\ -161198658118785115956678299518758546564525592888043685145303185612679\\\", \ -RowBox[{\\\"\[LeftSkeleton]\\\", \\\"8\\\", \\\"\[RightSkeleton]\\\"}], \ -\\\"3109099682969421627018644700669916936247705600000000000000000000000000\\\"\ -}]]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 100, 19, 31385386322042493318, "kernel 3"}, +RowBox[{\\\"161198658118785115956678299518758546564\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"68\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9916936247705600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 19, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.99391212538778*^9}, + CellChangeTimes->{3.993912125369446*^9, 3.9942522445159407`*^9}, CellLabel-> "During evaluation of \ -In[100]:=",ExpressionUUID->"aa122981-2730-4744-8795-783430bb8808"], +In[100]:=",ExpressionUUID->"abf55603-9972-4108-96b1-d0a2f256e925"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 100, 20, 31385386322042493318, "kernel 3"}, +during this calculation.\"", 2, 100, 20, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912125398168*^9}, + CellChangeTimes->{3.993912125369446*^9, 3.994252244525432*^9}, CellLabel-> "During evaluation of \ -In[100]:=",ExpressionUUID->"628a34be-4321-4911-ba71-881f979117bd"], +In[100]:=",ExpressionUUID->"3b6905e0-8553-45d0-9fe4-1d00c0ec5ea6"], Cell[BoxData["10.979598202076147`"], "Output", - CellChangeTimes->{3.9939121708500023`*^9}, + CellChangeTimes->{3.9939121708500023`*^9, 3.994252321996201*^9}, CellLabel-> - "Out[100]=",ExpressionUUID->"51b3b13c-cad6-45b4-9ec2-f6cf766d50bd"] + "Out[100]=",ExpressionUUID->"84aa9875-b111-4f18-8af6-d5b89b723b4c"] }, Open ]], Cell[CellGroupData[{ @@ -8677,64 +8744,67 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.5195979912698294`*^-206\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 101, 21, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 21, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912170911006*^9}, + CellChangeTimes->{3.993912170911006*^9, 3.9942523220719767`*^9}, CellLabel-> "During evaluation of \ -In[101]:=",ExpressionUUID->"0b51cbc8-9a5b-43f6-915b-9902d4ed0122"], +In[101]:=",ExpressionUUID->"33e39e53-d573-49d0-bde8-dde070617d2b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.731286460672993`*^-211\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 101, 22, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 22, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912170919773*^9}, + CellChangeTimes->{3.993912170911006*^9, 3.994252322081726*^9}, CellLabel-> "During evaluation of \ -In[101]:=",ExpressionUUID->"a039d0b4-3244-4c01-a17a-e11421091895"], +In[101]:=",ExpressionUUID->"974b836b-3232-471b-87c6-e610f75b65ab"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.0952734372083204`*^-215\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 101, 23, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 23, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912170929099*^9}, + CellChangeTimes->{3.993912170911006*^9, 3.994252322091485*^9}, CellLabel-> "During evaluation of \ -In[101]:=",ExpressionUUID->"a808f436-4e0d-4417-95d4-f874c9e2cd32"], +In[101]:=",ExpressionUUID->"01e4ceaf-1ea2-4edf-a0c0-3073f9506aa7"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 101, 24, 31385386322042493318, "kernel 3"}, +during this calculation.\"", 2, 101, 24, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.99391217093633*^9}, + CellChangeTimes->{3.993912170911006*^9, 3.994252322101717*^9}, CellLabel-> "During evaluation of \ -In[101]:=",ExpressionUUID->"553ab2ae-b145-4334-b526-d5a4424fb3d5"], +In[101]:=",ExpressionUUID->"2192dd61-092f-4cfc-8e64-fd530372268c"], Cell[BoxData["1.9063811470323075`"], "Output", - CellChangeTimes->{3.9939121785753593`*^9}, + CellChangeTimes->{3.9939121785753593`*^9, 3.994252333413*^9}, CellLabel-> - "Out[101]=",ExpressionUUID->"2279ce9e-c04e-483f-b575-43cfacde2cf2"] + "Out[101]=",ExpressionUUID->"15de13a3-8a92-439a-99c0-ffb4931d8046"] }, Open ]], Cell[CellGroupData[{ @@ -8808,64 +8878,67 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.5195979912698294`*^-206\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 102, 25, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 25, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912178615615*^9}, + CellChangeTimes->{3.993912178615615*^9, 3.994252333468182*^9}, CellLabel-> "During evaluation of \ -In[102]:=",ExpressionUUID->"4a90d760-ffbd-46fc-a464-42599917e02f"], +In[102]:=",ExpressionUUID->"e61353cc-396c-4f4e-b9db-98a5a56ab0fa"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.731286460672993`*^-211\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 102, 26, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 26, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912178623043*^9}, + CellChangeTimes->{3.993912178615615*^9, 3.994252333478518*^9}, CellLabel-> "During evaluation of \ -In[102]:=",ExpressionUUID->"f550f6dc-7898-4712-8f8f-3ce2c7bf3694"], +In[102]:=",ExpressionUUID->"570f8950-c79b-4f64-ab08-c50eb364ce0c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.0952734372083204`*^-215\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 102, 27, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 27, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912178631598*^9}, + CellChangeTimes->{3.993912178615615*^9, 3.994252333487398*^9}, CellLabel-> "During evaluation of \ -In[102]:=",ExpressionUUID->"d8a59fa8-d191-4616-aaad-2288166d40ec"], +In[102]:=",ExpressionUUID->"c99fd989-cc3b-4306-9658-a7d4fa2f67dd"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 102, 28, 31385386322042493318, "kernel 3"}, +during this calculation.\"", 2, 102, 28, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912178640584*^9}, + CellChangeTimes->{3.993912178615615*^9, 3.994252333496355*^9}, CellLabel-> "During evaluation of \ -In[102]:=",ExpressionUUID->"f19420be-7f9b-4489-b887-9a9ebbd2eaf2"], +In[102]:=",ExpressionUUID->"c54d2e86-3fb1-4dbd-839b-91226b056d47"], Cell[BoxData["36.34144083237693`"], "Output", - CellChangeTimes->{3.993912186212517*^9}, + CellChangeTimes->{3.993912186212517*^9, 3.994252344192428*^9}, CellLabel-> - "Out[102]=",ExpressionUUID->"f301ef49-6d4d-420e-badd-7c188a498e3f"] + "Out[102]=",ExpressionUUID->"c918be7e-2bfe-45ac-aa6c-2b36f6e57549"] }, Open ]], Cell[CellGroupData[{ @@ -8939,64 +9012,67 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.5195979912698294`*^-206\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 103, 29, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 29, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912186292371*^9}, + CellChangeTimes->{3.993912186292371*^9, 3.9942523442713118`*^9}, CellLabel-> "During evaluation of \ -In[103]:=",ExpressionUUID->"318424f3-f627-4479-b7a0-8828712d6e01"], +In[103]:=",ExpressionUUID->"b4355c64-ba1d-4094-99ab-d649d26bf46f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.731286460672993`*^-211\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 103, 30, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 30, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9939121863027487`*^9}, + CellChangeTimes->{3.993912186292371*^9, 3.994252344281767*^9}, CellLabel-> "During evaluation of \ -In[103]:=",ExpressionUUID->"c2babbe8-8b90-4c2e-afdb-5b9e1af34dc4"], +In[103]:=",ExpressionUUID->"a3bbd140-0502-465a-9b34-cdd92e07bd20"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.0952734372083204`*^-215\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 103, 31, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 31, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912186312422*^9}, + CellChangeTimes->{3.993912186292371*^9, 3.994252344290203*^9}, CellLabel-> "During evaluation of \ -In[103]:=",ExpressionUUID->"16099efc-28d7-4f43-b64d-1d912a76fe22"], +In[103]:=",ExpressionUUID->"cca3ca8f-4c48-441e-b619-30e7f8746a24"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 103, 32, 31385386322042493318, "kernel 3"}, +during this calculation.\"", 2, 103, 32, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912186320245*^9}, + CellChangeTimes->{3.993912186292371*^9, 3.99425234429867*^9}, CellLabel-> "During evaluation of \ -In[103]:=",ExpressionUUID->"d09f10c7-7bca-46cc-a45c-0a0d42b08c31"], +In[103]:=",ExpressionUUID->"e06e9cd1-e67c-487d-a92f-06ae3b897215"], Cell[BoxData["8.740551499554746`"], "Output", - CellChangeTimes->{3.993912190695375*^9}, + CellChangeTimes->{3.993912190695375*^9, 3.994252353288015*^9}, CellLabel-> - "Out[103]=",ExpressionUUID->"ebc4cbe7-a4b1-4dcc-9dcb-16015542edea"] + "Out[103]=",ExpressionUUID->"53cf4ae7-2695-4fe8-a7a2-2f734a4c0398"] }, Open ]], Cell[CellGroupData[{ @@ -9010,9 +9086,9 @@ Cell[BoxData[ "In[104]:=",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], Cell[BoxData["0.10696439658067683`"], "Output", - CellChangeTimes->{3.993912190729889*^9}, + CellChangeTimes->{3.993912190729889*^9, 3.994252353326453*^9}, CellLabel-> - "Out[104]=",ExpressionUUID->"cc0ea0f7-85aa-4c5e-a057-385dc2d43ddb"] + "Out[104]=",ExpressionUUID->"9203d6c0-7c95-4c6b-9ad6-720c328b6544"] }, Open ]], Cell[BoxData[ @@ -9047,9 +9123,9 @@ Cell[BoxData[ "In[106]:=",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], Cell[BoxData["6.358139165306476`"], "Output", - CellChangeTimes->{3.99391219074686*^9}, + CellChangeTimes->{3.99391219074686*^9, 3.994252353355834*^9}, CellLabel-> - "Out[106]=",ExpressionUUID->"6a067ff2-58d4-4baa-a580-fee567def8dc"] + "Out[106]=",ExpressionUUID->"9e4af5c1-46c5-43c6-8ea2-85ec75631e62"] }, Open ]], Cell[CellGroupData[{ @@ -9062,9 +9138,9 @@ Cell[BoxData[ "In[107]:=",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], Cell[BoxData["4.857727359563275`"], "Output", - CellChangeTimes->{3.99391219075723*^9}, + CellChangeTimes->{3.99391219075723*^9, 3.994252353369461*^9}, CellLabel-> - "Out[107]=",ExpressionUUID->"e5560b94-2240-4c66-a063-8f75ee3a7c02"] + "Out[107]=",ExpressionUUID->"47058bb2-5a42-4adc-afab-07ab8c345dea"] }, Open ]], Cell[CellGroupData[{ @@ -9077,9 +9153,9 @@ Cell[BoxData[ "In[108]:=",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], Cell[BoxData["30.88610657922007`"], "Output", - CellChangeTimes->{3.993912190766885*^9}, + CellChangeTimes->{3.993912190766885*^9, 3.994252353385646*^9}, CellLabel-> - "Out[108]=",ExpressionUUID->"767d9100-a80e-4dfc-a830-ddc309d4eaa3"] + "Out[108]=",ExpressionUUID->"3685e06c-1fdd-4e59-b820-d00c7aed8072"] }, Open ]], Cell[CellGroupData[{ @@ -9272,9 +9348,9 @@ Cell[BoxData[ "In[109]:=",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], Cell[BoxData["0.0062301991658596685`"], "Output", - CellChangeTimes->{3.993912190780223*^9}, + CellChangeTimes->{3.993912190780223*^9, 3.994252353406681*^9}, CellLabel-> - "Out[109]=",ExpressionUUID->"d91e43f4-0a3e-46e1-8b78-86b367284b4c"] + "Out[109]=",ExpressionUUID->"1cfea935-f4d6-4833-abb2-532829558a42"] }, Open ]], Cell[CellGroupData[{ @@ -9291,9 +9367,9 @@ Cell[BoxData[ "In[110]:=",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], Cell[BoxData["11.227782097995243`"], "Output", - CellChangeTimes->{3.993912190904725*^9}, + CellChangeTimes->{3.993912190904725*^9, 3.994252353599349*^9}, CellLabel-> - "Out[110]=",ExpressionUUID->"e788925a-f0df-4ddf-9917-460f0ee5c1af"] + "Out[110]=",ExpressionUUID->"0105e361-d40b-4a5a-801b-a58a14176ad5"] }, Open ]], Cell[CellGroupData[{ @@ -9488,9 +9564,9 @@ Cell[BoxData[ "In[111]:=",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], Cell[BoxData["0.03135376236433975`"], "Output", - CellChangeTimes->{3.993912190917932*^9}, + CellChangeTimes->{3.993912190917932*^9, 3.99425235361709*^9}, CellLabel-> - "Out[111]=",ExpressionUUID->"566c5ad9-2b02-4274-844d-61475381cadf"] + "Out[111]=",ExpressionUUID->"0c3dffb7-b977-46c9-94b0-9cf441a6f5b3"] }, Open ]], Cell[CellGroupData[{ @@ -9507,9 +9583,9 @@ Cell[BoxData[ "In[112]:=",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], Cell[BoxData["5.0049542211697675`"], "Output", - CellChangeTimes->{3.9939121910233507`*^9}, + CellChangeTimes->{3.9939121910233507`*^9, 3.994252353806171*^9}, CellLabel-> - "Out[112]=",ExpressionUUID->"0fbbc8ac-bae2-497f-ac4b-97573d4c9bb5"] + "Out[112]=",ExpressionUUID->"58b99df1-03b9-4e4e-9f3d-68a7d7ff1af9"] }, Open ]], Cell[CellGroupData[{ @@ -9605,9 +9681,9 @@ Cell[BoxData[ "In[113]:=",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], Cell[BoxData["0.08103755887966854`"], "Output", - CellChangeTimes->{3.9939121910341187`*^9}, + CellChangeTimes->{3.9939121910341187`*^9, 3.9942523538242683`*^9}, CellLabel-> - "Out[113]=",ExpressionUUID->"ba6d2d55-3d9f-4dfa-8ee7-d54d3c1a58e0"] + "Out[113]=",ExpressionUUID->"3423d47a-8d23-4990-a207-5b656a0651ba"] }, Open ]], Cell[CellGroupData[{ @@ -9700,9 +9776,9 @@ Cell[BoxData[ "In[114]:=",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], Cell[BoxData["0.9189624411203314`"], "Output", - CellChangeTimes->{3.993912191045905*^9}, + CellChangeTimes->{3.993912191045905*^9, 3.9942523538385983`*^9}, CellLabel-> - "Out[114]=",ExpressionUUID->"b6d10118-25ec-45e4-9537-2227b360c9ab"] + "Out[114]=",ExpressionUUID->"ee760bdf-1448-4d24-9c7e-eb51f7494f87"] }, Open ]], Cell[CellGroupData[{ @@ -9828,9 +9904,9 @@ Cell[BoxData[ "In[115]:=",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], Cell[BoxData["0.0744704729304928`"], "Output", - CellChangeTimes->{3.9939121910586767`*^9}, + CellChangeTimes->{3.9939121910586767`*^9, 3.994252353856059*^9}, CellLabel-> - "Out[115]=",ExpressionUUID->"1068be5c-92ce-4eb2-a1fe-a9a904e8a12f"] + "Out[115]=",ExpressionUUID->"09fd0c8a-3219-4c28-a17c-0b2c7726044f"] }, Open ]], Cell[CellGroupData[{ @@ -9900,64 +9976,67 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.429665248484887`*^-206\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 116, 33, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 116, + 33, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9939121910734463`*^9}, + CellChangeTimes->{3.9939121910734463`*^9, 3.9942523538769693`*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"46048712-d464-40a2-8631-ec42479332ae"], +In[116]:=",ExpressionUUID->"5f84bd2c-68ad-4734-8f56-fbc0cfeff5d8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.144566578191715`*^-211\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 116, 34, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 116, + 34, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912191081813*^9}, + CellChangeTimes->{3.9939121910734463`*^9, 3.994252353887361*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"8ff994af-0f0b-4fb0-826e-9a82a834f73f"], +In[116]:=",ExpressionUUID->"37fa1036-0eae-498f-99bd-3046b957af15"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.5401151650429164`*^-215\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 116, 35, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 116, + 35, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912191089266*^9}, + CellChangeTimes->{3.9939121910734463`*^9, 3.994252353896914*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"ccd16639-35c0-43c8-8109-bfdaaccfc4e2"], +In[116]:=",ExpressionUUID->"f9068de1-ed47-4faf-a86f-1ab5ee6be616"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 116, 36, 31385386322042493318, "kernel 3"}, +during this calculation.\"", 2, 116, 36, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9939121910963573`*^9}, + CellChangeTimes->{3.9939121910734463`*^9, 3.994252353907139*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"e67948a9-2d87-49bc-b52a-e3aeea75d3cc"], +In[116]:=",ExpressionUUID->"af270e0d-11a8-4a61-bc90-b65035005b5c"], Cell[BoxData["11.227782097995235`"], "Output", - CellChangeTimes->{3.9939121951727953`*^9}, + CellChangeTimes->{3.9939121951727953`*^9, 3.994252361625823*^9}, CellLabel-> - "Out[116]=",ExpressionUUID->"79177fab-0b45-41ca-8b4f-a759090a74f8"] + "Out[116]=",ExpressionUUID->"a4a9761d-541a-4074-8a03-9d53c9bd3d3a"] }, Open ]], Cell[CellGroupData[{ @@ -10027,64 +10106,67 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.429665248484887`*^-206\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 117, 37, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 37, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9939121952126827`*^9}, + CellChangeTimes->{3.9939121952126827`*^9, 3.9942523616770697`*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"eda322f2-b79a-4cc3-bdc0-3909cd4f44be"], +In[117]:=",ExpressionUUID->"8d523157-3533-46da-8b9d-373ceb550ab0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.144566578191715`*^-211\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 117, 38, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 38, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912195222185*^9}, + CellChangeTimes->{3.9939121952126827`*^9, 3.994252361685854*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"a9c9e3d0-1672-4ac6-b7c9-37b3ac4a24aa"], +In[117]:=",ExpressionUUID->"70cdfcca-96c8-4088-82d8-a9662b20dc31"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.5401151650429164`*^-215\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 117, 39, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 39, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912195231875*^9}, + CellChangeTimes->{3.9939121952126827`*^9, 3.994252361694846*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"993d3064-65f5-4f71-9811-16022945d60a"], +In[117]:=",ExpressionUUID->"a43333c6-d79a-4b97-81dd-580e8682a8a4"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 117, 40, 31385386322042493318, "kernel 3"}, +during this calculation.\"", 2, 117, 40, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912195240323*^9}, + CellChangeTimes->{3.9939121952126827`*^9, 3.9942523617042227`*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"6840efd2-6580-4db8-b1de-ac6282c30f3d"], +In[117]:=",ExpressionUUID->"7f346d86-56b3-411a-b9c1-5e6f372fd923"], Cell[BoxData["5.004954221169768`"], "Output", - CellChangeTimes->{3.993912199285849*^9}, + CellChangeTimes->{3.993912199285849*^9, 3.994252369454112*^9}, CellLabel-> - "Out[117]=",ExpressionUUID->"b33344e1-d5e2-423c-94c3-033ceb9b470b"] + "Out[117]=",ExpressionUUID->"fcbda0d1-bf94-4663-a530-4f51b6f8ef65"] }, Open ]], Cell[CellGroupData[{ @@ -10521,9 +10603,9 @@ xZCwTDFD9QH2KQ25DNlYEuxWyP17iP1wSXeRRBwJhfuEXpZjd/wtfCO6l4Q+ Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.993912477035983*^9}, + CellChangeTimes->{3.993912477035983*^9, 3.994252928323635*^9}, CellLabel-> - "Out[118]=",ExpressionUUID->"b715365e-c726-41e3-b15d-157d9d96ed07"] + "Out[118]=",ExpressionUUID->"17d9cf5a-157a-4f19-b43c-546116a4239b"] }, Open ]], Cell[CellGroupData[{ @@ -10596,13 +10678,13 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"1.6850229074983955`*^-269\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 119, - 41, 31385386322042493318, "kernel 3"}, + 41, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9939124771663847`*^9}, + CellChangeTimes->{3.9939124771663847`*^9, 3.994252928528311*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"21afb119-cb89-4b56-b4b2-b8c1a44ce2dc"], +In[119]:=",ExpressionUUID->"dd4b5c8f-09b3-424d-8df4-a4ba24d93b3d"], Cell[BoxData[ TemplateBox[{ @@ -10610,13 +10692,13 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"1.0658949013053117`*^-280\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 119, 42, 31385386322042493318, "kernel 3"}, + 119, 42, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912477175112*^9}, + CellChangeTimes->{3.9939124771663847`*^9, 3.99425292853852*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"b42d551f-89e8-4546-9e39-2a775c67d791"], +In[119]:=",ExpressionUUID->"657adcb4-d5b7-4064-9777-ce3c3bc67d47"], Cell[BoxData[ TemplateBox[{ @@ -10624,26 +10706,26 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"6.742531128644266`*^-292\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 119, 43, 31385386322042493318, "kernel 3"}, + 2, 119, 43, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912477183807*^9}, + CellChangeTimes->{3.9939124771663847`*^9, 3.994252928549828*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"9e2c1b4d-1379-4aad-9442-be51efeb0a84"], +In[119]:=",ExpressionUUID->"d3ebe492-80ec-452b-abe8-964f6557e0aa"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 119, 44, 31385386322042493318, "kernel 3"}, +during this calculation.\"", 2, 119, 44, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9939124771913567`*^9}, + CellChangeTimes->{3.9939124771663847`*^9, 3.9942529285613403`*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"b73bb783-4d98-433c-bd34-afa78bf687f7"], +In[119]:=",ExpressionUUID->"eb081c99-e725-45e5-95da-8458dcff6b30"], Cell[BoxData[ GraphicsBox[ @@ -11051,9 +11133,9 @@ KtcZlqy6o+E5x5zH3yjD06nOkLWvanJ+noPKhXks50hn+D8GiTbX Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.993912823364873*^9}, + CellChangeTimes->{3.993912823364873*^9, 3.9942534913774443`*^9}, CellLabel-> - "Out[119]=",ExpressionUUID->"a9d8f961-575d-44aa-86fe-b8e58def5ca5"] + "Out[119]=",ExpressionUUID->"f838a964-b5d4-4c69-9366-1b2f06c3111b"] }, Open ]], Cell[CellGroupData[{ @@ -11603,9 +11685,9 @@ SA== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.993912823429037*^9}, + CellChangeTimes->{3.993912823429037*^9, 3.994253491467071*^9}, CellLabel-> - "Out[120]=",ExpressionUUID->"2de50b0b-d1c8-4b50-a623-ffabc26252e7"] + "Out[120]=",ExpressionUUID->"faa26f22-47c7-4df9-b50c-b1e4e80db104"] }, Open ]], Cell[CellGroupData[{ @@ -11664,70 +11746,67 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.2268898040234828`*^-168\\\", \ -RowBox[{\\\"\ -161198658118785115956678299518758546564525592888043685145303185612679\\\", \ -RowBox[{\\\"\[LeftSkeleton]\\\", \\\"8\\\", \\\"\[RightSkeleton]\\\"}], \ -\\\"3109099682969421627018644700669916936247705600000000000000000000000000\\\"\ -}]]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 121, 45, 31385386322042493318, "kernel 3"}, +RowBox[{\\\"161198658118785115956678299518758546564\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"68\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9916936247705600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 45, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9939128234707527`*^9}, + CellChangeTimes->{3.9939128234707527`*^9, 3.994253491523306*^9}, CellLabel-> "During evaluation of \ -In[121]:=",ExpressionUUID->"467b5ab0-df8b-4c77-96e3-3fbc41fbdb6e"], +In[121]:=",ExpressionUUID->"b18e8400-78c6-44fd-bdff-f311999f3178"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.086112343103793`*^-171\\\", \ -RowBox[{\\\"\ -505518991860510123640143147290826802026352259296904996615670790081361\\\", \ -RowBox[{\\\"\[LeftSkeleton]\\\", \\\"11\\\", \\\"\[RightSkeleton]\\\"}], \ -\\\"0136605792106222330469781300859512072804761600000000000000000000000000\\\"\ -}]]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 121, 46, 31385386322042493318, "kernel 3"}, +RowBox[{\\\"505518991860510123640143147290826802026\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"71\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9512072804761600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 46, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9939128234797*^9}, + CellChangeTimes->{3.9939128234707527`*^9, 3.9942534915325947`*^9}, CellLabel-> "During evaluation of \ -In[121]:=",ExpressionUUID->"6d57dc7f-7e35-49f9-ade5-233200d34727"], +In[121]:=",ExpressionUUID->"a9dbc2a8-1f09-4cb2-9491-276a713a6fe3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.614881613441392`*^-175\\\", \ -RowBox[{\\\"\ -164243120455479739170682508554789627978361849045564433400431439697434\\\", \ -RowBox[{\\\"\[LeftSkeleton]\\\", \\\"15\\\", \\\"\[RightSkeleton]\\\"}], \ -\\\"3832218553116351696319446492554724542670438400000000000000000000000000\\\"\ -}]]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 121, 47, 31385386322042493318, "kernel 3"}, +RowBox[{\\\"164243120455479739170682508554789627978\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"75\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4724542670438400000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 47, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912823488049*^9}, + CellChangeTimes->{3.9939128234707527`*^9, 3.994253491543079*^9}, CellLabel-> "During evaluation of \ -In[121]:=",ExpressionUUID->"36b49f2a-dd2e-4a6e-8689-a1c810e48d37"], +In[121]:=",ExpressionUUID->"c83a30c1-3f6c-4194-957d-0e7dc8c4fab0"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 121, 48, 31385386322042493318, "kernel 3"}, +during this calculation.\"", 2, 121, 48, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912823497117*^9}, + CellChangeTimes->{3.9939128234707527`*^9, 3.9942534915535*^9}, CellLabel-> "During evaluation of \ -In[121]:=",ExpressionUUID->"eef18186-40b7-4517-a6cf-66287c13278a"], +In[121]:=",ExpressionUUID->"43282f97-eb61-4f2b-91fd-ff35eefc5b8c"], Cell[BoxData["10.979348807435494`"], "Output", - CellChangeTimes->{3.9939128684524803`*^9}, + CellChangeTimes->{3.9939128684524803`*^9, 3.994253574834467*^9}, CellLabel-> - "Out[121]=",ExpressionUUID->"a72235ea-c278-4c4b-8a0d-5f5a0b03f884"] + "Out[121]=",ExpressionUUID->"bfcc21cf-5576-40c2-bde8-c041d2fefc2f"] }, Open ]], Cell[CellGroupData[{ @@ -11802,64 +11881,67 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.429665248484887`*^-206\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 122, 49, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 49, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.99391286849113*^9}, + CellChangeTimes->{3.99391286849113*^9, 3.994253574936784*^9}, CellLabel-> "During evaluation of \ -In[122]:=",ExpressionUUID->"cd4be699-835e-4fdf-aff1-bf73ba0ae72f"], +In[122]:=",ExpressionUUID->"0ff574ee-6e52-4358-b498-5f1e514ad7f7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.144566578191715`*^-211\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 122, 50, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 50, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912868500444*^9}, + CellChangeTimes->{3.99391286849113*^9, 3.994253574947345*^9}, CellLabel-> "During evaluation of \ -In[122]:=",ExpressionUUID->"c8ff25c9-327c-4e1a-8066-aa12efab5a6c"], +In[122]:=",ExpressionUUID->"0dbf9fb6-810d-449e-b65c-42754ba9b387"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.5401151650429164`*^-215\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 122, 51, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 51, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912868509254*^9}, + CellChangeTimes->{3.99391286849113*^9, 3.994253574957569*^9}, CellLabel-> "During evaluation of \ -In[122]:=",ExpressionUUID->"dc79b4c1-ba6d-40dd-927e-87ceb14d1143"], +In[122]:=",ExpressionUUID->"f7175be0-8c2a-4c11-be98-0541a2ff0233"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 122, 52, 31385386322042493318, "kernel 3"}, +during this calculation.\"", 2, 122, 52, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912868516724*^9}, + CellChangeTimes->{3.99391286849113*^9, 3.994253574972086*^9}, CellLabel-> "During evaluation of \ -In[122]:=",ExpressionUUID->"f8a24eb2-35a5-4c6b-ac64-e0d06aae5ce5"], +In[122]:=",ExpressionUUID->"6a46e7cd-daab-4d72-81e5-a0a2d25a2b3b"], Cell[BoxData["1.043642076744126`"], "Output", - CellChangeTimes->{3.9939128763961153`*^9}, + CellChangeTimes->{3.9939128763961153`*^9, 3.994253586571897*^9}, CellLabel-> - "Out[122]=",ExpressionUUID->"e1e7f64d-1f35-46bf-b9e1-c8f758ec5dc9"] + "Out[122]=",ExpressionUUID->"0fefb417-95a4-44f2-b70f-5878cb96af57"] }, Open ]], Cell[CellGroupData[{ @@ -11933,64 +12015,67 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.429665248484887`*^-206\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 123, 53, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 123, + 53, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912876441674*^9}, + CellChangeTimes->{3.993912876441674*^9, 3.9942535866229143`*^9}, CellLabel-> "During evaluation of \ -In[123]:=",ExpressionUUID->"727d1b51-a9ea-41ee-b982-ef9a220f49a4"], +In[123]:=",ExpressionUUID->"062d9a12-1541-4aa1-acb6-dae06a371ad6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.144566578191715`*^-211\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 123, 54, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 123, + 54, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912876449923*^9}, + CellChangeTimes->{3.993912876441674*^9, 3.9942535866322947`*^9}, CellLabel-> "During evaluation of \ -In[123]:=",ExpressionUUID->"633d6728-2a59-4d8a-8332-eb304fc18479"], +In[123]:=",ExpressionUUID->"90c546fd-c618-4291-b3f7-194ade0cdb6a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.5401151650429164`*^-215\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 123, 55, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 123, + 55, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912876458996*^9}, + CellChangeTimes->{3.993912876441674*^9, 3.994253586640623*^9}, CellLabel-> "During evaluation of \ -In[123]:=",ExpressionUUID->"24b4adbe-8cc2-4221-9ebd-0aa560f47669"], +In[123]:=",ExpressionUUID->"417df559-19bf-4f0f-b750-cf966cb48ff3"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 123, 56, 31385386322042493318, "kernel 3"}, +during this calculation.\"", 2, 123, 56, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912876466322*^9}, + CellChangeTimes->{3.993912876441674*^9, 3.994253586650425*^9}, CellLabel-> "During evaluation of \ -In[123]:=",ExpressionUUID->"3477e4cf-50f0-464e-830c-2954d0b6526e"], +In[123]:=",ExpressionUUID->"ae8cddd7-8206-4612-9f17-80131d242584"], Cell[BoxData["34.44542154904611`"], "Output", - CellChangeTimes->{3.993912883731399*^9}, + CellChangeTimes->{3.993912883731399*^9, 3.994253597508094*^9}, CellLabel-> - "Out[123]=",ExpressionUUID->"4fbb24d6-9445-4935-beab-f3a1ccbf85b1"] + "Out[123]=",ExpressionUUID->"1f9ef52d-e4de-4146-be3c-ae9527617bf3"] }, Open ]], Cell[CellGroupData[{ @@ -12064,64 +12149,67 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.429665248484887`*^-206\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 124, 57, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 124, + 57, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9939128837728567`*^9}, + CellChangeTimes->{3.9939128837728567`*^9, 3.994253597557173*^9}, CellLabel-> "During evaluation of \ -In[124]:=",ExpressionUUID->"4ac76e19-412e-4984-9ad7-1e72e97d133e"], +In[124]:=",ExpressionUUID->"1f6bd149-c889-4725-927e-00791c351165"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.144566578191715`*^-211\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 124, 58, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 124, + 58, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912883779901*^9}, + CellChangeTimes->{3.9939128837728567`*^9, 3.994253597566921*^9}, CellLabel-> "During evaluation of \ -In[124]:=",ExpressionUUID->"c623e4ca-e9bc-44dd-995b-396e83eb32c3"], +In[124]:=",ExpressionUUID->"7676579f-eba0-445c-9aa8-8d147a940cd2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.5401151650429164`*^-215\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 124, 59, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 124, + 59, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9939128837869596`*^9}, + CellChangeTimes->{3.9939128837728567`*^9, 3.994253597575934*^9}, CellLabel-> "During evaluation of \ -In[124]:=",ExpressionUUID->"2c582c68-12c0-4305-bd5a-5244bc00881f"], +In[124]:=",ExpressionUUID->"e930cf69-64aa-4e17-9351-3b2aa7b73ee5"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 124, 60, 31385386322042493318, "kernel 3"}, +during this calculation.\"", 2, 124, 60, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912883793198*^9}, + CellChangeTimes->{3.9939128837728567`*^9, 3.994253597584578*^9}, CellLabel-> "During evaluation of \ -In[124]:=",ExpressionUUID->"6ca61102-39be-470c-b1d5-8600f9ed1018"], +In[124]:=",ExpressionUUID->"99d32b3d-2b4e-413c-a965-f2dad0befb11"], Cell[BoxData["6.844532216223904`"], "Output", - CellChangeTimes->{3.9939128880536346`*^9}, + CellChangeTimes->{3.9939128880536346`*^9, 3.994253606906022*^9}, CellLabel-> - "Out[124]=",ExpressionUUID->"0fa7ae1c-1fb7-4d80-b3e3-f3af49744391"] + "Out[124]=",ExpressionUUID->"54220f71-07b0-4e48-b44b-a79092836a8a"] }, Open ]], Cell[CellGroupData[{ @@ -12135,9 +12223,9 @@ Cell[BoxData[ "In[125]:=",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], Cell[BoxData["0.06796947920410033`"], "Output", - CellChangeTimes->{3.99391288810847*^9}, + CellChangeTimes->{3.99391288810847*^9, 3.994253606956728*^9}, CellLabel-> - "Out[125]=",ExpressionUUID->"c97b39ed-67cf-465c-98ca-c17e9acf450a"] + "Out[125]=",ExpressionUUID->"235f4c20-c04b-4192-8789-a04e5a8af3e7"] }, Open ]], Cell[BoxData[ @@ -12172,9 +12260,9 @@ Cell[BoxData[ "In[127]:=",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], Cell[BoxData["14.989142069903288`"], "Output", - CellChangeTimes->{3.993912888124988*^9}, + CellChangeTimes->{3.993912888124988*^9, 3.994253606980282*^9}, CellLabel-> - "Out[127]=",ExpressionUUID->"3756d335-df57-4dc2-90b1-bf8a5d08f0f7"] + "Out[127]=",ExpressionUUID->"f4fe6753-a02a-44a3-ac6c-c34afb0837b6"] }, Open ]], Cell[CellGroupData[{ @@ -12187,9 +12275,9 @@ Cell[BoxData[ "In[128]:=",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], Cell[BoxData["3.1638054006625937`"], "Output", - CellChangeTimes->{3.993912888136283*^9}, + CellChangeTimes->{3.993912888136283*^9, 3.9942536069953003`*^9}, CellLabel-> - "Out[128]=",ExpressionUUID->"b5ceb94d-52ba-4258-aa08-2c3a6e29fd25"] + "Out[128]=",ExpressionUUID->"546f6b26-3f74-4675-b6c3-fe4676a1b097"] }, Open ]], Cell[CellGroupData[{ @@ -12202,9 +12290,9 @@ Cell[BoxData[ "In[129]:=",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], Cell[BoxData["47.42272863205891`"], "Output", - CellChangeTimes->{3.993912888147264*^9}, + CellChangeTimes->{3.993912888147264*^9, 3.994253607010766*^9}, CellLabel-> - "Out[129]=",ExpressionUUID->"5f5f5ed9-9cdb-4b21-b891-7ba12e6269b2"] + "Out[129]=",ExpressionUUID->"0f7eaca8-2ec6-4e1f-9fb3-e1a85a988ee2"] }, Open ]], Cell[CellGroupData[{ @@ -12397,9 +12485,9 @@ Cell[BoxData[ "In[130]:=",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], Cell[BoxData["0.005648277221240992`"], "Output", - CellChangeTimes->{3.993912888162383*^9}, + CellChangeTimes->{3.993912888162383*^9, 3.994253607031353*^9}, CellLabel-> - "Out[130]=",ExpressionUUID->"eb894338-cd7e-4cd3-9375-0729379d9f89"] + "Out[130]=",ExpressionUUID->"38da2007-a157-4f2c-95a4-2988f453a4db"] }, Open ]], Cell[CellGroupData[{ @@ -12416,9 +12504,9 @@ Cell[BoxData[ "In[131]:=",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], Cell[BoxData["11.791985559233005`"], "Output", - CellChangeTimes->{3.993912888278873*^9}, + CellChangeTimes->{3.993912888278873*^9, 3.9942536072294903`*^9}, CellLabel-> - "Out[131]=",ExpressionUUID->"8feb67b6-ccd5-4179-802e-13ab55f4d62e"] + "Out[131]=",ExpressionUUID->"c4cc597e-1bf6-4320-b673-4502f92e6cc2"] }, Open ]], Cell[CellGroupData[{ @@ -12613,9 +12701,9 @@ Cell[BoxData[ "In[132]:=",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], Cell[BoxData["0.02064805104764801`"], "Output", - CellChangeTimes->{3.993912888293233*^9}, + CellChangeTimes->{3.993912888293233*^9, 3.9942536072496243`*^9}, CellLabel-> - "Out[132]=",ExpressionUUID->"2861d586-5c82-44c8-bc1c-6ccbb405c7c8"] + "Out[132]=",ExpressionUUID->"db39daba-8000-4829-a59e-55001d819da2"] }, Open ]], Cell[CellGroupData[{ @@ -12632,9 +12720,9 @@ Cell[BoxData[ "In[133]:=",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], Cell[BoxData["6.1674467444074805`"], "Output", - CellChangeTimes->{3.993912888411223*^9}, + CellChangeTimes->{3.993912888411223*^9, 3.99425360744495*^9}, CellLabel-> - "Out[133]=",ExpressionUUID->"12da8605-732c-4503-819a-26d25a95ca80"] + "Out[133]=",ExpressionUUID->"6173228d-5548-49b5-a81f-ca25d806e210"] }, Open ]], Cell[CellGroupData[{ @@ -12730,9 +12818,9 @@ Cell[BoxData[ "In[134]:=",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], Cell[BoxData["0.08103755887966854`"], "Output", - CellChangeTimes->{3.9939128884215717`*^9}, + CellChangeTimes->{3.9939128884215717`*^9, 3.9942536074625*^9}, CellLabel-> - "Out[134]=",ExpressionUUID->"802fe896-ba18-4dc2-bb3e-d4a93d048b6e"] + "Out[134]=",ExpressionUUID->"ff65d6e7-ff64-4d23-8bbc-9bfd6a9148e3"] }, Open ]], Cell[CellGroupData[{ @@ -12825,9 +12913,9 @@ Cell[BoxData[ "In[135]:=",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], Cell[BoxData["0.9189624411203314`"], "Output", - CellChangeTimes->{3.993912888431797*^9}, + CellChangeTimes->{3.993912888431797*^9, 3.9942536074797*^9}, CellLabel-> - "Out[135]=",ExpressionUUID->"29b81598-47fb-4ff8-b2f6-b33977e1a7a6"] + "Out[135]=",ExpressionUUID->"15625e1f-29f5-4228-9fe5-feb1fdcb9be1"] }, Open ]], Cell[CellGroupData[{ @@ -12953,9 +13041,9 @@ Cell[BoxData[ "In[136]:=",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], Cell[BoxData["0.0744704729304928`"], "Output", - CellChangeTimes->{3.993912888444821*^9}, + CellChangeTimes->{3.993912888444821*^9, 3.9942536074985943`*^9}, CellLabel-> - "Out[136]=",ExpressionUUID->"13f3204f-40c2-41f4-81a2-2894ff874891"] + "Out[136]=",ExpressionUUID->"710d7013-8327-454f-b7c2-ef14a9cb40fb"] }, Open ]], Cell[CellGroupData[{ @@ -13025,64 +13113,67 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.2134355719937444`*^-203\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 137, 61, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 137, + 61, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912888459671*^9}, + CellChangeTimes->{3.993912888459671*^9, 3.994253607518468*^9}, CellLabel-> "During evaluation of \ -In[137]:=",ExpressionUUID->"c033335d-a63d-4764-af37-0e2c9653adca"], +In[137]:=",ExpressionUUID->"d4064b14-2350-433c-a1c7-1e7be8939baf"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.9668106511679415`*^-208\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 137, 62, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 137, + 62, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9939128884671717`*^9}, + CellChangeTimes->{3.993912888459671*^9, 3.9942536075288754`*^9}, CellLabel-> "During evaluation of \ -In[137]:=",ExpressionUUID->"e252c9b9-9d21-4ad6-9bd2-afc38aaa5591"], +In[137]:=",ExpressionUUID->"ac36e18d-cc01-4ab5-99f8-ea6ad50073c4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"7.253755900217599`*^-213\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 137, 63, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 137, + 63, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912888474519*^9}, + CellChangeTimes->{3.993912888459671*^9, 3.994253607538768*^9}, CellLabel-> "During evaluation of \ -In[137]:=",ExpressionUUID->"450d629d-c8ab-450d-95f2-8b680d64b5e1"], +In[137]:=",ExpressionUUID->"3aff908e-fd8b-4b52-8f52-9cb4a1a3ed00"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 137, 64, 31385386322042493318, "kernel 3"}, +during this calculation.\"", 2, 137, 64, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912888482201*^9}, + CellChangeTimes->{3.993912888459671*^9, 3.994253607548584*^9}, CellLabel-> "During evaluation of \ -In[137]:=",ExpressionUUID->"55fba11a-16ee-41b6-b6c1-3dd2f22fef62"], +In[137]:=",ExpressionUUID->"491f832b-e1ac-420c-b6cb-c8628644f432"], Cell[BoxData["11.791985559233007`"], "Output", - CellChangeTimes->{3.993912892657148*^9}, + CellChangeTimes->{3.993912892657148*^9, 3.994253615588046*^9}, CellLabel-> - "Out[137]=",ExpressionUUID->"4e1284f5-ca8b-4f4a-828e-42c8e6b5ad61"] + "Out[137]=",ExpressionUUID->"19c77273-3a7b-4fd3-b0a3-f53921e6b48d"] }, Open ]], Cell[CellGroupData[{ @@ -13152,64 +13243,67 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.2134355719937444`*^-203\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 138, 65, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 65, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912892699357*^9}, + CellChangeTimes->{3.993912892699357*^9, 3.994253615642778*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"53367f91-0f4e-4b6f-bc17-4bd5d79a8240"], +In[138]:=",ExpressionUUID->"86f819ee-ed05-4921-b3c9-cd4798b5fb97"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.9668106511679415`*^-208\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 138, 66, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 66, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993912892709462*^9}, + CellChangeTimes->{3.993912892699357*^9, 3.9942536156518393`*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"a25ecd0a-d4bc-4803-ada0-243bf05c502b"], +In[138]:=",ExpressionUUID->"f97cd5a4-f273-4474-ae9b-802fef91bdb0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"7.253755900217599`*^-213\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 138, 67, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 67, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9939128927167253`*^9}, + CellChangeTimes->{3.993912892699357*^9, 3.994253615661137*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"645c7b69-9588-4ce4-a9dc-16152940f7cd"], +In[138]:=",ExpressionUUID->"db41647d-d036-4e20-841f-6abd064c03b4"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 138, 68, 31385386322042493318, "kernel 3"}, +during this calculation.\"", 2, 138, 68, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9939128927257643`*^9}, + CellChangeTimes->{3.993912892699357*^9, 3.994253615669463*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"346c8deb-0a1a-4358-a1bf-76bda3aef759"], +In[138]:=",ExpressionUUID->"48a6f4cc-eec7-4953-b5e8-bd8cc885aeab"], Cell[BoxData["6.167446744407481`"], "Output", - CellChangeTimes->{3.993912896760435*^9}, + CellChangeTimes->{3.993912896760435*^9, 3.994253623666143*^9}, CellLabel-> - "Out[138]=",ExpressionUUID->"7d30887b-3f99-486e-9c53-c64d503ba3ab"] + "Out[138]=",ExpressionUUID->"1f1a0b3b-1497-40d0-b2f3-feb9a810dcdf"] }, Open ]], Cell[CellGroupData[{ @@ -13653,9 +13747,9 @@ SLQLE7fPF9Yvj6SQscSCJUEs0hvVLhRFoajX9FMpYqNPdjML0RR2LNv8fiXx Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9939131846254787`*^9}, + CellChangeTimes->{3.9939131846254787`*^9, 3.9942541830445147`*^9}, CellLabel-> - "Out[139]=",ExpressionUUID->"f6ce29c8-5808-453a-ba7a-bbcc56732734"] + "Out[139]=",ExpressionUUID->"383efd52-0142-4ef2-b903-b4fd04cf2db6"] }, Open ]], Cell[CellGroupData[{ @@ -13729,13 +13823,13 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"1.2935960474337234`*^-265\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 140, - 69, 31385386322042493318, "kernel 3"}, + 69, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993913184805971*^9}, + CellChangeTimes->{3.993913184805971*^9, 3.994254183227625*^9}, CellLabel-> "During evaluation of \ -In[140]:=",ExpressionUUID->"4cce50cb-a12a-47df-8116-1bf2f488ab01"], +In[140]:=",ExpressionUUID->"5bbe2378-995b-4386-b139-00cbb63b44c9"], Cell[BoxData[ TemplateBox[{ @@ -13743,13 +13837,13 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"1.1879284721481199`*^-276\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 140, 70, 31385386322042493318, "kernel 3"}, + 140, 70, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993913184814623*^9}, + CellChangeTimes->{3.993913184805971*^9, 3.994254183236718*^9}, CellLabel-> "During evaluation of \ -In[140]:=",ExpressionUUID->"7bf11d88-215f-41f3-a80d-9706bec675fe"], +In[140]:=",ExpressionUUID->"978cb13c-09b9-490e-9c29-4dc565d80a6f"], Cell[BoxData[ TemplateBox[{ @@ -13757,26 +13851,26 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"1.0908923676287497`*^-287\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 140, 71, 31385386322042493318, "kernel 3"}, + 2, 140, 71, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993913184823202*^9}, + CellChangeTimes->{3.993913184805971*^9, 3.9942541832460012`*^9}, CellLabel-> "During evaluation of \ -In[140]:=",ExpressionUUID->"0285d95f-dba8-491d-a5e2-91ab0e257068"], +In[140]:=",ExpressionUUID->"12b23424-b852-4be7-9154-62a855e8ead5"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 140, 72, 31385386322042493318, "kernel 3"}, +during this calculation.\"", 2, 140, 72, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9939131848309526`*^9}, + CellChangeTimes->{3.993913184805971*^9, 3.9942541832546263`*^9}, CellLabel-> "During evaluation of \ -In[140]:=",ExpressionUUID->"24ba665e-ea74-4fc4-8fe6-1cd6aa431cf5"], +In[140]:=",ExpressionUUID->"8d296485-da1d-47d9-8674-64b8052e8164"], Cell[BoxData[ GraphicsBox[ @@ -14178,9 +14272,9 @@ hTLTHDy5YWAJ04UL8T/y3W/+4KDgIus8TTsuiK8u19z7m4M1VmnPTc25cDrw Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.993913500592657*^9}, + CellChangeTimes->{3.993913500592657*^9, 3.9942545894795856`*^9}, CellLabel-> - "Out[140]=",ExpressionUUID->"c639cf35-a4d9-4ee0-ac1c-7e57ecf69932"] + "Out[140]=",ExpressionUUID->"3ef4cca0-24a9-41e4-88e7-5a1df25eb345"] }, Open ]], Cell[CellGroupData[{ @@ -14723,9 +14817,9 @@ SA== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9939135006383677`*^9}, + CellChangeTimes->{3.9939135006383677`*^9, 3.994254589529046*^9}, CellLabel-> - "Out[141]=",ExpressionUUID->"205fba32-9f9d-4b11-a5d1-95d9019915d0"] + "Out[141]=",ExpressionUUID->"91c432c0-16a7-4203-b54f-520f162a9c41"] }, Open ]], Cell[CellGroupData[{ @@ -14784,64 +14878,67 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"7.592191633001042`*^-179\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 142, 73, 31385386322042493318, "kernel 3"}, +RowBox[{\\\"650574122190666757524531699747318646986\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"57\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8904834370174976000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 73, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993913500666773*^9}, + CellChangeTimes->{3.993913500666773*^9, 3.994254589559299*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"35ac7f20-3b11-4d88-978d-7f32ad24ce93"], +In[142]:=",ExpressionUUID->"2196de03-9911-41da-a461-b6b139b6965b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.8509500406875697`*^-182\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 142, 74, 31385386322042493318, "kernel 3"}, +RowBox[{\\\"182746270923358292188640954459021807938\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"61\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3679745821507584000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 74, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993913500676601*^9}, + CellChangeTimes->{3.993913500666773*^9, 3.994254589564337*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"38041153-34b5-4fb9-8fc4-23236d0fdbb7"], +In[142]:=",ExpressionUUID->"62df45b3-ef76-4a4f-843c-e7b4d6555f71"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0705625631427394`*^-185\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 142, 75, 31385386322042493318, "kernel 3"}, +RowBox[{\\\"532888126012512780022077023202507591948\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"64\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0138815516114944000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 75, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9939135006820507`*^9}, + CellChangeTimes->{3.993913500666773*^9, 3.994254589569578*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"b7cde893-a778-4794-b3c9-aed1ff2d417c"], +In[142]:=",ExpressionUUID->"9a8cee2c-566f-4fd4-8fba-07bc3627d37d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 142, 76, 31385386322042493318, "kernel 3"}, +during this calculation.\"", 2, 142, 76, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9939135006870604`*^9}, + CellChangeTimes->{3.993913500666773*^9, 3.9942545895748863`*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"651fb598-3c4a-451d-865b-11ff50e4bc28"], +In[142]:=",ExpressionUUID->"7013d942-a1b3-46ca-a8b9-22c069281481"], Cell[BoxData["10.979614470584425`"], "Output", - CellChangeTimes->{3.993913529547102*^9}, + CellChangeTimes->{3.993913529547102*^9, 3.994254616987159*^9}, CellLabel-> - "Out[142]=",ExpressionUUID->"213cb7a6-2451-4e24-91f1-449f35b14a19"] + "Out[142]=",ExpressionUUID->"3e37e56c-c077-4905-b013-7169d713ed37"] }, Open ]], Cell[CellGroupData[{ @@ -14916,64 +15013,67 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.2134355719937444`*^-203\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 143, 77, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 77, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993913529581897*^9}, + CellChangeTimes->{3.993913529581897*^9, 3.994254617032243*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"ce604b68-114a-4b33-9aea-865c1b87507b"], +In[143]:=",ExpressionUUID->"49460f96-6bfd-44ce-acdc-992fae3cb9f9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.9668106511679415`*^-208\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 143, 78, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 78, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993913529588193*^9}, + CellChangeTimes->{3.993913529581897*^9, 3.994254617036656*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"874ff68d-19ef-445e-878a-71c50fb3a18b"], +In[143]:=",ExpressionUUID->"daa21ec6-fea3-41b4-9dbb-ab7849be1f62"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"7.253755900217599`*^-213\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 143, 79, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 79, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993913529593472*^9}, + CellChangeTimes->{3.993913529581897*^9, 3.9942546170407963`*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"782b1360-044e-43c4-aea0-39ccf16a83e3"], +In[143]:=",ExpressionUUID->"ecc298dd-5851-4d0f-80f3-42e2b7edd95e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 143, 80, 31385386322042493318, "kernel 3"}, +during this calculation.\"", 2, 143, 80, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993913529599018*^9}, + CellChangeTimes->{3.993913529581897*^9, 3.994254617044746*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"a91ba5e4-403c-42af-8eb0-95bcf0ab0eb6"], +In[143]:=",ExpressionUUID->"6e5e6765-ed33-4660-b3af-2c5832b8fea9"], Cell[BoxData["2.773879147745742`"], "Output", - CellChangeTimes->{3.993913534469509*^9}, + CellChangeTimes->{3.993913534469509*^9, 3.994254621256515*^9}, CellLabel-> - "Out[143]=",ExpressionUUID->"bb39e09c-deab-4308-98ce-715faee42368"] + "Out[143]=",ExpressionUUID->"70a176a2-00de-43d4-b43a-b01a7234cc4e"] }, Open ]], Cell[CellGroupData[{ @@ -15047,64 +15147,67 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.2134355719937444`*^-203\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 144, 81, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 81, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993913534496759*^9}, + CellChangeTimes->{3.993913534496759*^9, 3.994254621281353*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"0c60132a-a10d-4f76-a708-24d4be75ff57"], +In[144]:=",ExpressionUUID->"58a4a545-5c34-408d-b70c-d82a5d537f7a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.9668106511679415`*^-208\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 144, 82, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 82, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993913534502398*^9}, + CellChangeTimes->{3.993913534496759*^9, 3.994254621286921*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"14e0a593-4ff1-466d-9f47-cde7571192f1"], +In[144]:=",ExpressionUUID->"bbfe14f6-7b61-43d1-b98e-b139af1269ef"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"7.253755900217599`*^-213\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 144, 83, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 83, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993913534507841*^9}, + CellChangeTimes->{3.993913534496759*^9, 3.9942546212915497`*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"ec5618c2-16b8-4f3f-b445-2c769ea7cba0"], +In[144]:=",ExpressionUUID->"714fb877-0a30-4101-a6e7-dc241ce3032c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 144, 84, 31385386322042493318, "kernel 3"}, +during this calculation.\"", 2, 144, 84, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9939135345134172`*^9}, + CellChangeTimes->{3.993913534496759*^9, 3.9942546212960453`*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"8060fbac-2786-4e43-8706-c957daf10c7a"], +In[144]:=",ExpressionUUID->"3f8168b5-2130-4b02-8a19-3c2a24698124"], Cell[BoxData["37.99421101278763`"], "Output", - CellChangeTimes->{3.9939135394350843`*^9}, + CellChangeTimes->{3.9939135394350843`*^9, 3.9942546252060747`*^9}, CellLabel-> - "Out[144]=",ExpressionUUID->"2005050e-e01f-49ca-bb21-0a3924af24d1"] + "Out[144]=",ExpressionUUID->"3bdc4c91-ed26-4aee-a6d9-29e07998663a"] }, Open ]], Cell[CellGroupData[{ @@ -15178,64 +15281,67 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.2134355719937444`*^-203\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 145, 85, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 85, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993913539465149*^9}, + CellChangeTimes->{3.993913539465149*^9, 3.994254625232574*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"99a069e4-d3ca-4512-b738-ebfc6e4e7060"], +In[145]:=",ExpressionUUID->"557af7bd-4ab9-4f8a-8334-0cd5bbc7c27d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.9668106511679415`*^-208\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 145, 86, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 86, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993913539470263*^9}, + CellChangeTimes->{3.993913539465149*^9, 3.994254625237125*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"cabd1be7-8d6c-486e-9899-ee651b833771"], +In[145]:=",ExpressionUUID->"6dfcd4b9-4aee-4180-a84f-b279b1303eb1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"7.253755900217599`*^-213\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 145, 87, - 31385386322042493318, "kernel 3"}, +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 87, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993913539475628*^9}, + CellChangeTimes->{3.993913539465149*^9, 3.9942546252416067`*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"e2bae2d3-0c6f-4403-8ac3-647c035552c5"], +In[145]:=",ExpressionUUID->"43469f1e-946c-44ce-aae4-b8691d54517f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 145, 88, 31385386322042493318, "kernel 3"}, +during this calculation.\"", 2, 145, 88, 31387619644620426520, "6"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993913539480692*^9}, + CellChangeTimes->{3.993913539465149*^9, 3.994254625245661*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"ae0ead6e-71cc-44f1-9e5f-d6b75a022c26"], +In[145]:=",ExpressionUUID->"084296e0-10e2-477e-8cc9-6bd356c65825"], Cell[BoxData["10.393321679965391`"], "Output", - CellChangeTimes->{3.993913542509152*^9}, + CellChangeTimes->{3.993913542509152*^9, 3.994254627689958*^9}, CellLabel-> - "Out[145]=",ExpressionUUID->"5d538ca9-5b3e-4837-88b8-1917f2562f50"] + "Out[145]=",ExpressionUUID->"60c96dc8-d4ce-4fb7-ac1c-407253b70d20"] }, Open ]], Cell[CellGroupData[{ @@ -15249,9 +15355,9 @@ Cell[BoxData[ "In[146]:=",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], Cell[BoxData["0.13958914142649398`"], "Output", - CellChangeTimes->{3.993913542536428*^9}, + CellChangeTimes->{3.993913542536428*^9, 3.994254627711232*^9}, CellLabel-> - "Out[146]=",ExpressionUUID->"6bb6bf52-cfe5-4a57-b6d2-fe3e7c7debfe"] + "Out[146]=",ExpressionUUID->"85ed077f-a1db-4dbe-be75-2aadd39877da"] }, Open ]], Cell[BoxData[ @@ -15264,9 +15370,9 @@ Cell[BoxData[""], "Input", 3.993911142432281*^9}},ExpressionUUID->"3d0ba265-1b31-40bb-9ba6-\ b5d6b8ec0f46"] }, -Evaluator->"kernel 3", -WindowSize->{714, 288}, -WindowMargins->{{Automatic, 3}, {297, Automatic}}, +Evaluator->"6", +WindowSize->{714, 170.25}, +WindowMargins->{{Automatic, 3}, {3, Automatic}}, CellContext->Notebook, FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", @@ -15284,640 +15390,640 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 423, 7, 29, "Input",ExpressionUUID->"05abdda5-6716-4539-b9fb-ae2303dccf46"], -Cell[1002, 31, 419, 6, 33, "Output",ExpressionUUID->"9cd80fad-0394-47c1-a772-56d3714afda6"] +Cell[576, 22, 423, 7, 36, "Input",ExpressionUUID->"05abdda5-6716-4539-b9fb-ae2303dccf46"], +Cell[1002, 31, 445, 7, 41, "Output",ExpressionUUID->"80b4d315-8d1d-4a60-ac44-403e3785cac6"] }, Open ]], Cell[CellGroupData[{ -Cell[1458, 42, 246, 4, 29, "Input",ExpressionUUID->"cd5cd0d6-a8ba-4b3f-8592-3df67108385a"], -Cell[1707, 48, 422, 6, 33, "Output",ExpressionUUID->"c0a788f1-57ef-4e02-adf3-b04fe76ad3d9"] +Cell[1484, 43, 246, 4, 36, "Input",ExpressionUUID->"cd5cd0d6-a8ba-4b3f-8592-3df67108385a"], +Cell[1733, 49, 448, 7, 41, "Output",ExpressionUUID->"5066a968-10ea-44a2-bdbf-05cd3a5c37e6"] }, Open ]], Cell[CellGroupData[{ -Cell[2166, 59, 220, 4, 29, "Input",ExpressionUUID->"558420ee-02da-499e-bd2a-f2a43ca12933"], -Cell[2389, 65, 445, 7, 33, "Output",ExpressionUUID->"ddeec9b0-5b90-42c2-9388-644aaf5668ed"] +Cell[2218, 61, 220, 4, 36, "Input",ExpressionUUID->"558420ee-02da-499e-bd2a-f2a43ca12933"], +Cell[2441, 67, 469, 7, 41, "Output",ExpressionUUID->"7b572534-9fdc-4eee-b4de-0e237385bc0e"] }, Open ]], Cell[CellGroupData[{ -Cell[2871, 77, 175, 3, 29, "Input",ExpressionUUID->"d3bc849a-5e55-432a-b28b-594968228043"], -Cell[3049, 82, 419, 6, 33, "Output",ExpressionUUID->"e1eb2a14-cf38-4c11-9fca-f61c89510188"] +Cell[2947, 79, 175, 3, 36, "Input",ExpressionUUID->"d3bc849a-5e55-432a-b28b-594968228043"], +Cell[3125, 84, 447, 7, 41, "Output",ExpressionUUID->"e155d993-1a1b-443e-b4b5-d5e42699915d"] }, Open ]], Cell[CellGroupData[{ -Cell[3505, 93, 257, 7, 42, "Input",ExpressionUUID->"10870501-ce8c-4871-ad24-0c2548183c2c"], -Cell[3765, 102, 434, 6, 33, "Output",ExpressionUUID->"11a8f3fa-0d8c-42ea-9bcf-e05ba723ad90"] +Cell[3609, 96, 257, 7, 54, "Input",ExpressionUUID->"10870501-ce8c-4871-ad24-0c2548183c2c"], +Cell[3869, 105, 460, 7, 41, "Output",ExpressionUUID->"fef7822f-0e19-4613-a296-69e2436b634a"] }, Open ]], Cell[CellGroupData[{ -Cell[4236, 113, 131, 2, 29, "Input",ExpressionUUID->"0ef67241-c95f-4056-8a4b-a6169ada793e"], -Cell[4370, 117, 424, 6, 33, "Output",ExpressionUUID->"06df9a5b-7d37-45d4-865d-868f50964049"] +Cell[4366, 117, 131, 2, 36, "Input",ExpressionUUID->"0ef67241-c95f-4056-8a4b-a6169ada793e"], +Cell[4500, 121, 452, 7, 41, "Output",ExpressionUUID->"00a0a7c9-30c9-4b72-aab6-7ffbb0aeddb0"] }, Open ]], Cell[CellGroupData[{ -Cell[4831, 128, 276, 6, 29, "Input",ExpressionUUID->"33a752f8-2310-43ff-9eef-7b0ab1b04094"], -Cell[5110, 136, 432, 6, 33, "Output",ExpressionUUID->"e0cad35c-8020-493f-b199-0e7136d6e7a8"] +Cell[4989, 133, 276, 6, 36, "Input",ExpressionUUID->"33a752f8-2310-43ff-9eef-7b0ab1b04094"], +Cell[5268, 141, 458, 7, 41, "Output",ExpressionUUID->"1eb511fe-cdf6-428f-b4de-d0f0308489e7"] }, Open ]], Cell[CellGroupData[{ -Cell[5579, 147, 257, 7, 29, "Input",ExpressionUUID->"82b66ab5-7d1a-4258-b326-7a3555e2ea3b"], -Cell[5839, 156, 430, 6, 33, "Output",ExpressionUUID->"1f727c2f-3764-46d3-9b3a-1c6724532477"] +Cell[5763, 153, 257, 7, 36, "Input",ExpressionUUID->"82b66ab5-7d1a-4258-b326-7a3555e2ea3b"], +Cell[6023, 162, 458, 7, 41, "Output",ExpressionUUID->"5c8b2260-dbd5-4f12-b631-c355f147feac"] }, Open ]], Cell[CellGroupData[{ -Cell[6306, 167, 226, 4, 29, "Input",ExpressionUUID->"92bc2628-c51f-4379-9a35-5375e7b9e02c"], -Cell[6535, 173, 398, 6, 33, "Output",ExpressionUUID->"f0a7413b-dfde-44f5-b2ec-5d8f88ebef26"] +Cell[6518, 174, 226, 4, 36, "Input",ExpressionUUID->"92bc2628-c51f-4379-9a35-5375e7b9e02c"], +Cell[6747, 180, 422, 6, 41, "Output",ExpressionUUID->"c97637d2-171e-4a6b-9379-0eddb5896bc8"] }, Open ]], Cell[CellGroupData[{ -Cell[6970, 184, 226, 4, 29, "Input",ExpressionUUID->"42d59920-a751-4232-8dde-77286251eab3"], -Cell[7199, 190, 393, 6, 33, "Output",ExpressionUUID->"a97bcfc2-d77e-454e-b40f-d835655ffecf"] +Cell[7206, 191, 226, 4, 36, "Input",ExpressionUUID->"42d59920-a751-4232-8dde-77286251eab3"], +Cell[7435, 197, 415, 6, 41, "Output",ExpressionUUID->"d3cc0404-2b94-429c-b701-1b29f7368bd2"] }, Open ]], Cell[CellGroupData[{ -Cell[7629, 201, 129, 2, 29, "Input",ExpressionUUID->"72e621b3-c03d-497f-91a7-65c9d0ef6588"], -Cell[7761, 205, 418, 6, 33, "Output",ExpressionUUID->"576644a1-efb9-41e7-88cc-80f962284c93"] +Cell[7887, 208, 129, 2, 36, "Input",ExpressionUUID->"72e621b3-c03d-497f-91a7-65c9d0ef6588"], +Cell[8019, 212, 444, 7, 41, "Output",ExpressionUUID->"47f3fb7f-02c0-48bf-8628-4bcb79dfcb2d"] }, Open ]], Cell[CellGroupData[{ -Cell[8216, 216, 129, 2, 29, "Input",ExpressionUUID->"f5e5c926-defc-4793-b5c2-2f5d7194b52e"], -Cell[8348, 220, 415, 6, 33, "Output",ExpressionUUID->"b2b1e75c-60e4-4b9a-b950-c90996c641e7"] +Cell[8500, 224, 129, 2, 36, "Input",ExpressionUUID->"f5e5c926-defc-4793-b5c2-2f5d7194b52e"], +Cell[8632, 228, 443, 7, 41, "Output",ExpressionUUID->"b1cdd136-7f03-4b16-a829-9033d894fa38"] }, Open ]], Cell[CellGroupData[{ -Cell[8800, 231, 557, 19, 79, "Input",ExpressionUUID->"e20340b0-09dd-4d7b-9833-df972bfbc8d2"], -Cell[9360, 252, 436, 6, 33, "Output",ExpressionUUID->"563cdf2b-f221-4e5e-bf07-e3b9276f05c0"] +Cell[9112, 240, 557, 19, 100, "Input",ExpressionUUID->"e20340b0-09dd-4d7b-9833-df972bfbc8d2"], +Cell[9672, 261, 462, 7, 41, "Output",ExpressionUUID->"866647d0-6fb5-4e28-ab09-f8f7645b97cb"] }, Open ]], Cell[CellGroupData[{ -Cell[9833, 263, 557, 19, 79, "Input",ExpressionUUID->"17a1420c-668f-48bf-a33a-0377c4d53583"], -Cell[10393, 284, 433, 6, 33, "Output",ExpressionUUID->"b4d79cd8-d126-4891-96e3-222141efb8f7"] +Cell[10171, 273, 557, 19, 100, "Input",ExpressionUUID->"17a1420c-668f-48bf-a33a-0377c4d53583"], +Cell[10731, 294, 459, 7, 41, "Output",ExpressionUUID->"c897080c-fb58-4146-ac39-7f9e4f3422d5"] }, Open ]], Cell[CellGroupData[{ -Cell[10863, 295, 1492, 48, 79, "Input",ExpressionUUID->"7f898a1c-4149-4e48-8d5a-787d921cc6c3"], -Cell[12358, 345, 432, 6, 33, "Output",ExpressionUUID->"124437ae-44e8-485f-88b0-b1f928125941"] +Cell[11227, 306, 1588, 50, 103, "Input",ExpressionUUID->"7f898a1c-4149-4e48-8d5a-787d921cc6c3"], +Cell[12818, 358, 458, 7, 41, "Output",ExpressionUUID->"50add78f-7880-42a0-9e3f-76b878457cc4"] }, Open ]], Cell[CellGroupData[{ -Cell[12827, 356, 1331, 44, 79, "Input",ExpressionUUID->"72e232d5-d2ad-47f0-b0a4-21bb92079088"], -Cell[14161, 402, 448, 7, 33, "Output",ExpressionUUID->"4df238bf-c3aa-46d1-a1c1-7e9ce4f55397"] +Cell[13313, 370, 1422, 46, 73, "Input",ExpressionUUID->"72e232d5-d2ad-47f0-b0a4-21bb92079088"], +Cell[14738, 418, 476, 8, 41, "Output",ExpressionUUID->"82b89510-1e25-4610-90f0-9aa61ae8607c"] }, Open ]], Cell[CellGroupData[{ -Cell[14646, 414, 1331, 44, 79, "Input",ExpressionUUID->"1edc2047-e88e-44db-b381-c35783007001"], -Cell[15980, 460, 451, 7, 33, "Output",ExpressionUUID->"1045f8fe-474d-4bf7-a620-469cddacd665"] +Cell[15251, 431, 1422, 46, 73, "Input",ExpressionUUID->"1edc2047-e88e-44db-b381-c35783007001"], +Cell[16676, 479, 477, 8, 41, "Output",ExpressionUUID->"93cd8c8a-31a6-48c8-9d3e-951574814441"] }, Open ]], Cell[CellGroupData[{ -Cell[16468, 472, 1492, 48, 79, "Input",ExpressionUUID->"04417b41-b14e-436c-a276-ea3a355e9acc"], -Cell[17963, 522, 426, 6, 33, "Output",ExpressionUUID->"ec9ac0ee-284b-4242-b736-2d738a5010e0"] +Cell[17190, 492, 1588, 50, 103, "Input",ExpressionUUID->"04417b41-b14e-436c-a276-ea3a355e9acc"], +Cell[18781, 544, 454, 7, 41, "Output",ExpressionUUID->"85f7dfc0-5c84-44d1-aeb8-c5beeb0dd42b"] }, Open ]], Cell[CellGroupData[{ -Cell[18426, 533, 131, 2, 29, "Input",ExpressionUUID->"8f8c8b1b-c2cb-4da4-9c56-95ef83789e37"], -Cell[18560, 537, 419, 6, 33, "Output",ExpressionUUID->"09550345-34b0-4743-babb-3cf20c848efc"] +Cell[19272, 556, 131, 2, 36, "Input",ExpressionUUID->"8f8c8b1b-c2cb-4da4-9c56-95ef83789e37"], +Cell[19406, 560, 445, 7, 41, "Output",ExpressionUUID->"c3cf95bf-1091-4045-b082-f06fc5cf50e4"] }, Open ]], Cell[CellGroupData[{ -Cell[19016, 548, 133, 2, 29, "Input",ExpressionUUID->"7693177e-ecb2-4da0-bc0a-b9033a60d4f0"], -Cell[19152, 552, 419, 6, 33, "Output",ExpressionUUID->"6d691808-d9a9-454f-a9c8-f572113e3d08"] +Cell[19888, 572, 133, 2, 36, "Input",ExpressionUUID->"7693177e-ecb2-4da0-bc0a-b9033a60d4f0"], +Cell[20024, 576, 445, 7, 41, "Output",ExpressionUUID->"39869939-ff2b-4dc8-bc80-2558498bf56b"] }, Open ]], Cell[CellGroupData[{ -Cell[19608, 563, 134, 2, 29, "Input",ExpressionUUID->"6808aeac-f9b2-4faf-bde7-44c8de39439e"], -Cell[19745, 567, 425, 6, 33, "Output",ExpressionUUID->"737986ef-b081-49e5-9a7f-9313ff1c2a05"] +Cell[20506, 588, 134, 2, 36, "Input",ExpressionUUID->"6808aeac-f9b2-4faf-bde7-44c8de39439e"], +Cell[20643, 592, 453, 7, 41, "Output",ExpressionUUID->"6c4ff59c-5bef-4ae8-a3e3-b6c7b22f9e54"] }, Open ]], Cell[CellGroupData[{ -Cell[20207, 578, 219, 4, 29, "Input",ExpressionUUID->"186179cf-5a57-4152-8f66-7c83b2b41e48"], -Cell[20429, 584, 430, 7, 33, "Output",ExpressionUUID->"09ea48e6-54b2-420b-af99-09f13f32b1ea"] +Cell[21133, 604, 219, 4, 36, "Input",ExpressionUUID->"186179cf-5a57-4152-8f66-7c83b2b41e48"], +Cell[21355, 610, 456, 8, 41, "Output",ExpressionUUID->"acf8c7b9-badb-4da1-ac01-1bca615e6e42"] }, Open ]], Cell[CellGroupData[{ -Cell[20896, 596, 134, 2, 29, "Input",ExpressionUUID->"f2a55312-8300-4d64-9ce8-444dc4c38322"], -Cell[21033, 600, 422, 6, 33, "Output",ExpressionUUID->"befefff8-3e5d-4451-b845-8a63866b9ce1"] +Cell[21848, 623, 134, 2, 36, "Input",ExpressionUUID->"f2a55312-8300-4d64-9ce8-444dc4c38322"], +Cell[21985, 627, 450, 7, 41, "Output",ExpressionUUID->"56e5f27c-4544-48b4-be84-94af75a73795"] }, Open ]], Cell[CellGroupData[{ -Cell[21492, 611, 326, 5, 29, "Input",ExpressionUUID->"fc2af8cf-abc8-4dda-b610-b1c1e330aa26"], -Cell[21821, 618, 389, 6, 33, "Output",ExpressionUUID->"d299ee21-b5ee-414b-99a0-626114de4639"] +Cell[22472, 639, 326, 5, 36, "Input",ExpressionUUID->"fc2af8cf-abc8-4dda-b610-b1c1e330aa26"], +Cell[22801, 646, 411, 6, 41, "Output",ExpressionUUID->"517dac08-1941-4af0-a321-83a566d03447"] }, Open ]], Cell[CellGroupData[{ -Cell[22247, 629, 295, 5, 29, "Input",ExpressionUUID->"b4fd75a1-1277-4d8e-afcf-b5c1e085cc8d"], -Cell[22545, 636, 418, 6, 33, "Output",ExpressionUUID->"fd32912c-6c0d-476f-96f9-f0fc2bf45bf5"] +Cell[23249, 657, 295, 5, 36, "Input",ExpressionUUID->"b4fd75a1-1277-4d8e-afcf-b5c1e085cc8d"], +Cell[23547, 664, 446, 7, 41, "Output",ExpressionUUID->"d714d21b-7a8b-481a-8d23-2c22d3cfaa67"] }, Open ]], Cell[CellGroupData[{ -Cell[23000, 647, 219, 4, 29, "Input",ExpressionUUID->"937e4c68-ef50-442e-a1b8-6cf6d5ebdf9b"], -Cell[23222, 653, 417, 6, 33, "Output",ExpressionUUID->"a67695ab-1992-4986-b6aa-d5a4db8c4ba3"] +Cell[24030, 676, 219, 4, 36, "Input",ExpressionUUID->"937e4c68-ef50-442e-a1b8-6cf6d5ebdf9b"], +Cell[24252, 682, 443, 7, 41, "Output",ExpressionUUID->"3fbaa89a-1dfa-485b-93d9-6fe53b70e8bd"] }, Open ]], Cell[CellGroupData[{ -Cell[23676, 664, 350, 10, 42, "Input",ExpressionUUID->"186e50f2-533a-4462-83c1-3a8606e72d3c"], -Cell[24029, 676, 437, 6, 33, "Output",ExpressionUUID->"9f023df7-a829-4121-8206-d244cb5df56e"] +Cell[24732, 694, 350, 10, 54, "Input",ExpressionUUID->"186e50f2-533a-4462-83c1-3a8606e72d3c"], +Cell[25085, 706, 465, 7, 41, "Output",ExpressionUUID->"4f12ede0-4bf5-4a53-a215-db4209296086"] }, Open ]], Cell[CellGroupData[{ -Cell[24503, 687, 350, 10, 42, "Input",ExpressionUUID->"25a285b0-ec3f-43c3-a83a-cd4d0155f067"], -Cell[24856, 699, 446, 7, 33, "Output",ExpressionUUID->"c6b3c0ca-8755-49f5-a6e3-4997555f18ff"] +Cell[25587, 718, 350, 10, 54, "Input",ExpressionUUID->"25a285b0-ec3f-43c3-a83a-cd4d0155f067"], +Cell[25940, 730, 472, 8, 41, "Output",ExpressionUUID->"4e1e8502-b16c-4fcb-a1f6-75a0a599b922"] }, Open ]], Cell[CellGroupData[{ -Cell[25339, 711, 994, 26, 81, "Input",ExpressionUUID->"8ea24ad9-55bc-4de3-965b-ee41fab25800"], -Cell[26336, 739, 431, 6, 33, "Output",ExpressionUUID->"af06bbb8-ca79-494e-b3f5-0f33c49d39c4"] +Cell[26449, 743, 994, 26, 105, "Input",ExpressionUUID->"8ea24ad9-55bc-4de3-965b-ee41fab25800"], +Cell[27446, 771, 457, 7, 41, "Output",ExpressionUUID->"54c063c1-f762-4f08-b416-be0c6924e3eb"] }, Open ]], Cell[CellGroupData[{ -Cell[26804, 750, 199, 3, 29, "Input",ExpressionUUID->"74df187a-f55e-4b88-9fba-1a5175b29724"], -Cell[27006, 755, 416, 6, 33, "Output",ExpressionUUID->"37f1a30f-6527-4405-bb27-9ddb88b73d47"] +Cell[27940, 783, 199, 3, 36, "Input",ExpressionUUID->"74df187a-f55e-4b88-9fba-1a5175b29724"], +Cell[28142, 788, 442, 7, 41, "Output",ExpressionUUID->"2320d9f5-f859-46f8-b8a9-6492419af8a2"] }, Open ]], Cell[CellGroupData[{ -Cell[27459, 766, 329, 5, 29, "Input",ExpressionUUID->"d913bdd6-a3a1-43c7-ac19-d684a159bfc6"], -Cell[27791, 773, 398, 6, 33, "Output",ExpressionUUID->"aa02bdb6-79eb-4e23-bb2a-6ddf9b0c63a7"] +Cell[28621, 800, 329, 5, 36, "Input",ExpressionUUID->"d913bdd6-a3a1-43c7-ac19-d684a159bfc6"], +Cell[28953, 807, 420, 6, 41, "Output",ExpressionUUID->"36b52fb9-d55c-4f71-ae1f-3a34cb48f6fa"] }, Open ]], -Cell[28204, 782, 173, 2, 29, "Input",ExpressionUUID->"b1558e11-859d-4482-ae4e-2562a7adf0c7"], +Cell[29388, 816, 173, 2, 109, "Input",ExpressionUUID->"b1558e11-859d-4482-ae4e-2562a7adf0c7"], Cell[CellGroupData[{ -Cell[28402, 788, 329, 5, 29, "Input",ExpressionUUID->"ee1dc828-900d-4de6-bfdb-75e795d36647"], -Cell[28734, 795, 398, 6, 33, "Output",ExpressionUUID->"c42c820c-2557-43ec-8e9e-909319e1f11b"] +Cell[29586, 822, 329, 5, 36, "Input",ExpressionUUID->"ee1dc828-900d-4de6-bfdb-75e795d36647"], +Cell[29918, 829, 422, 6, 41, "Output",ExpressionUUID->"fa293e49-3140-4b8b-96a1-e27529b83b8c"] }, Open ]], -Cell[29147, 804, 173, 2, 29, "Input",ExpressionUUID->"1d74df8c-8bc6-4bdd-bd10-bdb0da1d82d6"], +Cell[30355, 838, 173, 2, 109, "Input",ExpressionUUID->"1d74df8c-8bc6-4bdd-bd10-bdb0da1d82d6"], Cell[CellGroupData[{ -Cell[29345, 810, 330, 5, 29, "Input",ExpressionUUID->"85f84184-364d-4549-99ff-a8c6f3627bcd"], -Cell[29678, 817, 395, 6, 33, "Output",ExpressionUUID->"932beb2e-cd63-4ad5-90c1-cb994051fa0d"] +Cell[30553, 844, 330, 5, 36, "Input",ExpressionUUID->"85f84184-364d-4549-99ff-a8c6f3627bcd"], +Cell[30886, 851, 417, 6, 41, "Output",ExpressionUUID->"ed25f8b9-fdb8-4cf4-9189-7a47507e5262"] }, Open ]], -Cell[30088, 826, 173, 2, 29, "Input",ExpressionUUID->"93bf7275-b2a2-4844-aefa-329ad7dd8d1c"], +Cell[31318, 860, 173, 2, 109, "Input",ExpressionUUID->"93bf7275-b2a2-4844-aefa-329ad7dd8d1c"], Cell[CellGroupData[{ -Cell[30286, 832, 352, 5, 29, "Input",ExpressionUUID->"25a7455e-f586-40db-8572-97868cac8d7b"], -Cell[30641, 839, 397, 6, 33, "Output",ExpressionUUID->"0677c22f-5c0c-4671-aae2-32348d3e4ad5"] +Cell[31516, 866, 352, 5, 36, "Input",ExpressionUUID->"25a7455e-f586-40db-8572-97868cac8d7b"], +Cell[31871, 873, 419, 6, 41, "Output",ExpressionUUID->"e350b07b-3dc5-41ac-a67a-58369ad3b0d0"] }, Open ]], -Cell[31053, 848, 171, 2, 29, "Input",ExpressionUUID->"d4b494dc-3fee-4052-bad3-da47199989d9"], +Cell[32305, 882, 171, 2, 109, "Input",ExpressionUUID->"d4b494dc-3fee-4052-bad3-da47199989d9"], Cell[CellGroupData[{ -Cell[31249, 854, 300, 5, 29, "Input",ExpressionUUID->"c7984566-1545-41fc-9c2d-b070605a5ca9"], -Cell[31552, 861, 394, 6, 33, "Output",ExpressionUUID->"f66d1160-9b25-4292-ac3d-518524ca2416"] +Cell[32501, 888, 300, 5, 36, "Input",ExpressionUUID->"c7984566-1545-41fc-9c2d-b070605a5ca9"], +Cell[32804, 895, 416, 6, 41, "Output",ExpressionUUID->"3f19942d-4fed-452c-bc4a-086a99b95d1c"] }, Open ]], -Cell[31961, 870, 171, 2, 29, "Input",ExpressionUUID->"8a42e36f-e396-4225-9930-d0d21c3932fc"], +Cell[33235, 904, 171, 2, 109, "Input",ExpressionUUID->"8a42e36f-e396-4225-9930-d0d21c3932fc"], Cell[CellGroupData[{ -Cell[32157, 876, 304, 5, 29, "Input",ExpressionUUID->"e8f187a9-e088-414b-b8e6-ebbcd4d0f062"], -Cell[32464, 883, 402, 6, 33, "Output",ExpressionUUID->"bb68c6a8-c2c0-4fc1-9486-4f8396c77e09"] +Cell[33431, 910, 304, 5, 36, "Input",ExpressionUUID->"e8f187a9-e088-414b-b8e6-ebbcd4d0f062"], +Cell[33738, 917, 426, 6, 41, "Output",ExpressionUUID->"3cb80c78-c974-42eb-848f-18eca0f89299"] }, Open ]], -Cell[32881, 892, 173, 2, 29, "Input",ExpressionUUID->"82a00277-6c85-4885-b85c-aea6d3d5d9b5"], +Cell[34179, 926, 173, 2, 109, "Input",ExpressionUUID->"82a00277-6c85-4885-b85c-aea6d3d5d9b5"], Cell[CellGroupData[{ -Cell[33079, 898, 307, 5, 29, "Input",ExpressionUUID->"3f6fe4fe-4159-475c-89c9-410172843033"], -Cell[33389, 905, 394, 6, 33, "Output",ExpressionUUID->"0d7f5595-231f-4951-9c0b-60278ef692ea"] +Cell[34377, 932, 307, 5, 36, "Input",ExpressionUUID->"3f6fe4fe-4159-475c-89c9-410172843033"], +Cell[34687, 939, 416, 6, 41, "Output",ExpressionUUID->"59104bdc-2bb0-483c-a74f-2bed1b8d29e4"] }, Open ]], -Cell[33798, 914, 172, 2, 29, "Input",ExpressionUUID->"0a5ae49b-10ea-497f-91f8-3f37c2afa7b1"], +Cell[35118, 948, 172, 2, 109, "Input",ExpressionUUID->"0a5ae49b-10ea-497f-91f8-3f37c2afa7b1"], Cell[CellGroupData[{ -Cell[33995, 920, 274, 4, 29, "Input",ExpressionUUID->"1c92dc8b-757f-4fc9-90ec-abc4570e0bd8"], -Cell[34272, 926, 398, 6, 33, "Output",ExpressionUUID->"3cbc56fc-28b1-4775-90df-d2c0221cf591"] +Cell[35315, 954, 274, 4, 36, "Input",ExpressionUUID->"1c92dc8b-757f-4fc9-90ec-abc4570e0bd8"], +Cell[35592, 960, 420, 6, 41, "Output",ExpressionUUID->"8d2ed58d-f6dd-4747-bdae-2661d3bf59d3"] }, Open ]], -Cell[34685, 935, 175, 2, 29, "Input",ExpressionUUID->"dec96f57-2838-48a0-9627-70aa1644373b"], +Cell[36027, 969, 175, 2, 109, "Input",ExpressionUUID->"dec96f57-2838-48a0-9627-70aa1644373b"], Cell[CellGroupData[{ -Cell[34885, 941, 19809, 485, 1844, "Input",ExpressionUUID->"5ca15ec4-6408-49fe-b395-a4e052e91af1"], -Cell[54697, 1428, 449, 7, 33, "Output",ExpressionUUID->"8d5b16b7-0c4a-4508-a171-63903f0595c6"] +Cell[36227, 975, 19809, 485, 1708, "Input",ExpressionUUID->"5ca15ec4-6408-49fe-b395-a4e052e91af1"], +Cell[56039, 1462, 475, 8, 41, "Output",ExpressionUUID->"a6c627c1-0f06-4153-ab98-efc3e4c8d4e1"] }, Open ]], Cell[CellGroupData[{ -Cell[55183, 1440, 19748, 489, 1981, "Input",ExpressionUUID->"986730cf-3b5a-4b20-a53f-73c1f6b8fffa"], -Cell[74934, 1931, 430, 6, 33, "Output",ExpressionUUID->"7bf29fea-4a60-4fad-8edb-0c074061dd58"] +Cell[56551, 1475, 19748, 489, 1720, "Input",ExpressionUUID->"986730cf-3b5a-4b20-a53f-73c1f6b8fffa"], +Cell[76302, 1966, 456, 7, 41, "Output",ExpressionUUID->"924c67a8-9702-4ae8-9409-9f25a741a922"] }, Open ]], Cell[CellGroupData[{ -Cell[75401, 1942, 19748, 483, 1970, "Input",ExpressionUUID->"4c7ea369-2f93-4d75-ab60-40f8c1be17a8"], -Cell[95152, 2427, 448, 7, 33, "Output",ExpressionUUID->"c3781f07-39c9-4fcc-9508-14e03be7b8f6"] +Cell[76795, 1978, 19748, 483, 1720, "Input",ExpressionUUID->"4c7ea369-2f93-4d75-ab60-40f8c1be17a8"], +Cell[96546, 2463, 474, 8, 41, "Output",ExpressionUUID->"2c9ae620-63d1-4d76-bdae-b3873e840469"] }, Open ]], Cell[CellGroupData[{ -Cell[95637, 2439, 22534, 553, 2217, "Input",ExpressionUUID->"71d5510b-2fc3-4844-8f19-3a934937c2a2"], -Cell[118174, 2994, 453, 7, 33, "Output",ExpressionUUID->"97d44045-4e8b-4b1f-9269-9788c7923def"] +Cell[97057, 2476, 22534, 553, 1885, "Input",ExpressionUUID->"71d5510b-2fc3-4844-8f19-3a934937c2a2"], +Cell[119594, 3031, 479, 8, 41, "Output",ExpressionUUID->"f3478444-a18d-43ce-b500-831a52a651e8"] }, Open ]], Cell[CellGroupData[{ -Cell[118664, 3006, 22535, 553, 2254, "Input",ExpressionUUID->"39bd1344-a585-43ff-a24a-768f42be19bc"], -Cell[141202, 3561, 457, 7, 33, "Output",ExpressionUUID->"7babe93f-2ac3-4541-8f18-ca71f9c82328"] +Cell[120110, 3044, 22535, 553, 1885, "Input",ExpressionUUID->"39bd1344-a585-43ff-a24a-768f42be19bc"], +Cell[142648, 3599, 483, 8, 41, "Output",ExpressionUUID->"6747a02e-163f-469d-9f51-adeacb923122"] }, Open ]], Cell[CellGroupData[{ -Cell[141696, 3573, 25491, 626, 2501, "Input",ExpressionUUID->"1632b7ba-8a7e-43c4-aff2-299d9306e274"], -Cell[167190, 4201, 448, 7, 33, "Output",ExpressionUUID->"102edbab-a4ee-4f64-babc-d2fd1df5bfb4"] +Cell[143168, 3612, 25491, 626, 2078, "Input",ExpressionUUID->"1632b7ba-8a7e-43c4-aff2-299d9306e274"], +Cell[168662, 4240, 474, 8, 41, "Output",ExpressionUUID->"ed4a4b12-c491-4300-81dc-62d94451f6bd"] }, Open ]], Cell[CellGroupData[{ -Cell[167675, 4213, 130, 2, 29, "Input",ExpressionUUID->"649ab9a2-d5aa-4194-a3f4-b50041602aa6"], -Cell[167808, 4217, 412, 6, 33, "Output",ExpressionUUID->"20701862-87a8-4810-b849-d3e3dc75cd57"] +Cell[169173, 4253, 130, 2, 36, "Input",ExpressionUUID->"649ab9a2-d5aa-4194-a3f4-b50041602aa6"], +Cell[169306, 4257, 438, 7, 41, "Output",ExpressionUUID->"8ced8f7f-c886-4dfd-bbdb-bd7ea4cecbc2"] }, Open ]], Cell[CellGroupData[{ -Cell[168257, 4228, 130, 2, 29, "Input",ExpressionUUID->"9651659e-9cea-434d-ace1-9dd53c96bf1d"], -Cell[168390, 4232, 414, 6, 33, "Output",ExpressionUUID->"e75f4ae3-238f-4428-8e03-1cd272b7939e"] +Cell[169781, 4269, 130, 2, 36, "Input",ExpressionUUID->"9651659e-9cea-434d-ace1-9dd53c96bf1d"], +Cell[169914, 4273, 438, 7, 41, "Output",ExpressionUUID->"d8937626-9357-4030-98b2-c5fc7d528fd8"] }, Open ]], Cell[CellGroupData[{ -Cell[168841, 4243, 1144, 39, 107, "Input",ExpressionUUID->"ca4ef058-d31b-4e94-a2b6-761c4aa344b1"], -Cell[169988, 4284, 432, 6, 33, "Output",ExpressionUUID->"19224885-ec48-488b-970c-5184f8048c37"] +Cell[170389, 4285, 1144, 39, 73, "Input",ExpressionUUID->"ca4ef058-d31b-4e94-a2b6-761c4aa344b1"], +Cell[171536, 4326, 458, 7, 41, "Output",ExpressionUUID->"7d0c36d8-3736-4543-923c-dbe640f9a2a5"] }, Open ]], Cell[CellGroupData[{ -Cell[170457, 4295, 1041, 35, 107, "Input",ExpressionUUID->"31ef0128-f086-4a45-a7d7-05ffc22a54b4"], -Cell[171501, 4332, 444, 7, 33, "Output",ExpressionUUID->"80007b65-16ce-40fe-b2b5-e2288fbca6df"] +Cell[172031, 4338, 1041, 35, 73, "Input",ExpressionUUID->"31ef0128-f086-4a45-a7d7-05ffc22a54b4"], +Cell[173075, 4375, 470, 8, 41, "Output",ExpressionUUID->"d296878c-5281-4d9f-b4ed-f93935f05cad"] }, Open ]], Cell[CellGroupData[{ -Cell[171982, 4344, 1144, 39, 107, "Input",ExpressionUUID->"32fe3744-59e1-4e3d-a676-f45d43cfd134"], -Cell[173129, 4385, 438, 6, 33, "Output",ExpressionUUID->"cfb1464b-231b-4265-8091-491847f649c3"] +Cell[173582, 4388, 1144, 39, 73, "Input",ExpressionUUID->"32fe3744-59e1-4e3d-a676-f45d43cfd134"], +Cell[174729, 4429, 464, 7, 41, "Output",ExpressionUUID->"a91b29b2-2ce2-48ae-b580-91efb2825dcb"] }, Open ]], Cell[CellGroupData[{ -Cell[173604, 4396, 108, 1, 29, "Input",ExpressionUUID->"bcbf4997-4378-403d-a89e-315e5e0a5745"], -Cell[173715, 4399, 436, 6, 33, "Output",ExpressionUUID->"0871b351-8d33-4e83-b874-814334d08350"] +Cell[175230, 4441, 108, 1, 36, "Input",ExpressionUUID->"bcbf4997-4378-403d-a89e-315e5e0a5745"], +Cell[175341, 4444, 462, 7, 41, "Output",ExpressionUUID->"84f7a9a5-3c29-4708-832c-7f22a41ac72f"] }, Open ]], Cell[CellGroupData[{ -Cell[174188, 4410, 108, 1, 29, "Input",ExpressionUUID->"25e9b5ad-faec-4249-89c7-9166f84d8240"], -Cell[174299, 4413, 449, 7, 33, "Output",ExpressionUUID->"2eab2ac1-41a5-47db-a4ff-8fdd57873bc5"] +Cell[175840, 4456, 108, 1, 36, "Input",ExpressionUUID->"25e9b5ad-faec-4249-89c7-9166f84d8240"], +Cell[175951, 4459, 475, 8, 41, "Output",ExpressionUUID->"2603a31a-13f9-48e9-b5b8-2199636f63b1"] }, Open ]], Cell[CellGroupData[{ -Cell[174785, 4425, 108, 1, 29, "Input",ExpressionUUID->"88471f90-3b32-47ad-b6b9-27fdcd64c8d2"], -Cell[174896, 4428, 451, 7, 33, "Output",ExpressionUUID->"fa3e3b99-8de5-4837-ab78-37a5a29009da"] +Cell[176463, 4472, 108, 1, 36, "Input",ExpressionUUID->"88471f90-3b32-47ad-b6b9-27fdcd64c8d2"], +Cell[176574, 4475, 477, 8, 41, "Output",ExpressionUUID->"409773a4-42f5-445b-903a-44081fa10c67"] }, Open ]], Cell[CellGroupData[{ -Cell[175384, 4440, 108, 1, 29, "Input",ExpressionUUID->"71048c3b-fc34-420a-8d33-525edb786da6"], -Cell[175495, 4443, 434, 6, 33, "Output",ExpressionUUID->"db564248-b10c-446b-92f7-9c843da073ff"] +Cell[177088, 4488, 108, 1, 36, "Input",ExpressionUUID->"71048c3b-fc34-420a-8d33-525edb786da6"], +Cell[177199, 4491, 460, 7, 41, "Output",ExpressionUUID->"b2bbf395-b311-482b-9f41-e72076a08407"] }, Open ]], Cell[CellGroupData[{ -Cell[175966, 4454, 107, 1, 29, "Input",ExpressionUUID->"b3df5512-074c-45eb-81ee-574ba143c4ae"], -Cell[176076, 4457, 431, 6, 33, "Output",ExpressionUUID->"b8f95172-ee8e-4963-a53e-3b4d838130b0"] +Cell[177696, 4503, 107, 1, 36, "Input",ExpressionUUID->"b3df5512-074c-45eb-81ee-574ba143c4ae"], +Cell[177806, 4506, 457, 7, 41, "Output",ExpressionUUID->"c701343b-e4a3-4ad7-b915-b10911bd0c70"] }, Open ]], Cell[CellGroupData[{ -Cell[176544, 4468, 107, 1, 29, "Input",ExpressionUUID->"526e2f3d-6c90-485b-bbb5-57012dbb3629"], -Cell[176654, 4471, 431, 6, 33, "Output",ExpressionUUID->"5d51effe-6d68-458f-b2be-f21d376c7e99"] +Cell[178300, 4518, 107, 1, 36, "Input",ExpressionUUID->"526e2f3d-6c90-485b-bbb5-57012dbb3629"], +Cell[178410, 4521, 457, 7, 41, "Output",ExpressionUUID->"47a70296-7161-4fef-be2d-a69e2296cbe5"] }, Open ]], Cell[CellGroupData[{ -Cell[177122, 4482, 497, 16, 55, "Input",ExpressionUUID->"f5de3681-9534-4a07-8295-77494612ddd1"], -Cell[177622, 4500, 446, 7, 33, "Output",ExpressionUUID->"4fe53d58-bfec-495e-96f6-700f97e196ba"] +Cell[178904, 4533, 497, 16, 71, "Input",ExpressionUUID->"f5de3681-9534-4a07-8295-77494612ddd1"], +Cell[179404, 4551, 470, 8, 41, "Output",ExpressionUUID->"d7639da0-35b8-461c-bce7-85096c6d4e90"] }, Open ]], Cell[CellGroupData[{ -Cell[178105, 4512, 497, 16, 55, "Input",ExpressionUUID->"96dfab3e-18da-46e1-8c7a-ec9f10735340"], -Cell[178605, 4530, 443, 7, 33, "Output",ExpressionUUID->"de31ab36-80e6-45af-b867-10b11405c579"] +Cell[179911, 4564, 497, 16, 71, "Input",ExpressionUUID->"96dfab3e-18da-46e1-8c7a-ec9f10735340"], +Cell[180411, 4582, 469, 8, 41, "Output",ExpressionUUID->"cd1b465d-8dd3-4dba-b116-d54b28c5b020"] }, Open ]], Cell[CellGroupData[{ -Cell[179085, 4542, 1788, 60, 183, "Input",ExpressionUUID->"ad8b653e-a8e7-4eea-9e7e-5e6e636bf2b4"], -Cell[180876, 4604, 434, 6, 33, "Output",ExpressionUUID->"f76a45a3-6f9b-4aef-9b49-5526eb3da2c8"] +Cell[180917, 4595, 1788, 60, 142, "Input",ExpressionUUID->"ad8b653e-a8e7-4eea-9e7e-5e6e636bf2b4"], +Cell[182708, 4657, 459, 7, 41, "Output",ExpressionUUID->"b05b5d74-fc13-44c0-ad8f-fdb7f91dc381"] }, Open ]], Cell[CellGroupData[{ -Cell[181347, 4615, 1101, 36, 131, "Input",ExpressionUUID->"309cf18d-407a-484c-a467-47fb3e43c8f2"], -Cell[182451, 4653, 448, 7, 33, "Output",ExpressionUUID->"3f7e629a-01ea-48a8-b03c-d42d08d9f0e0"] +Cell[183204, 4669, 1101, 36, 73, "Input",ExpressionUUID->"309cf18d-407a-484c-a467-47fb3e43c8f2"], +Cell[184308, 4707, 476, 8, 41, "Output",ExpressionUUID->"c7685593-d1ab-459f-90f1-eb1dee71c928"] }, Open ]], Cell[CellGroupData[{ -Cell[182936, 4665, 1818, 61, 160, "Input",ExpressionUUID->"4924cb23-8e53-44c0-8c1c-7b26c4a9e860"], -Cell[184757, 4728, 432, 6, 33, "Output",ExpressionUUID->"87712a6d-2470-432b-a42a-4a20fb1c7ca3"] +Cell[184821, 4720, 1818, 61, 144, "Input",ExpressionUUID->"4924cb23-8e53-44c0-8c1c-7b26c4a9e860"], +Cell[186642, 4783, 458, 7, 41, "Output",ExpressionUUID->"606766b3-fe6d-434a-a8c2-8c7d07ac0539"] }, Open ]], Cell[CellGroupData[{ -Cell[185226, 4739, 1631, 53, 162, "Input",ExpressionUUID->"86689354-b148-490b-a239-2684716fc337"], -Cell[186860, 4794, 432, 6, 33, "Output",ExpressionUUID->"df20681e-2b90-4fe2-a4ba-757176d5fc85"] +Cell[187137, 4795, 1631, 53, 101, "Input",ExpressionUUID->"86689354-b148-490b-a239-2684716fc337"], +Cell[188771, 4850, 458, 7, 41, "Output",ExpressionUUID->"7a771db9-7940-4be6-b9d2-aee9efcfbb91"] }, Open ]], Cell[CellGroupData[{ -Cell[187329, 4805, 1631, 53, 162, "Input",ExpressionUUID->"5addcb8e-59cb-4e6f-8e41-b962a7995d11"], -Cell[188963, 4860, 431, 6, 33, "Output",ExpressionUUID->"feaed377-3abe-47bc-a612-d0a1a348fb45"] +Cell[189266, 4862, 1631, 53, 101, "Input",ExpressionUUID->"5addcb8e-59cb-4e6f-8e41-b962a7995d11"], +Cell[190900, 4917, 457, 7, 41, "Output",ExpressionUUID->"d333f255-b3e5-4cdb-8ac7-089d21c71092"] }, Open ]], Cell[CellGroupData[{ -Cell[189431, 4871, 227, 4, 29, "Input",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], -Cell[189661, 4877, 155, 2, 33, "Output",ExpressionUUID->"6a954de7-2249-4ed8-a35a-566ea49821cc"] +Cell[191394, 4929, 227, 4, 36, "Input",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], +Cell[191624, 4935, 177, 2, 41, "Output",ExpressionUUID->"b95d91bb-2999-43e0-926d-6fb808281ea1"] }, Open ]], -Cell[189831, 4882, 171, 2, 29, "Input",ExpressionUUID->"7730e455-e5f4-194b-b761-e7a6896afd10"], +Cell[191816, 4940, 171, 2, 36, "Input",ExpressionUUID->"7730e455-e5f4-194b-b761-e7a6896afd10"], Cell[CellGroupData[{ -Cell[190027, 4888, 225, 4, 29, "Input",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], -Cell[190255, 4894, 155, 2, 33, "Output",ExpressionUUID->"f380d2da-7a0b-40f9-9609-3ac9ca84acd5"] +Cell[192012, 4946, 225, 4, 36, "Input",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], +Cell[192240, 4952, 177, 2, 41, "Output",ExpressionUUID->"f62b42c8-9265-4bd5-abb4-14775b6d89a9"] }, Open ]], -Cell[190425, 4899, 173, 2, 29, "Input",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], +Cell[192432, 4957, 173, 2, 36, "Input",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], Cell[CellGroupData[{ -Cell[190623, 4905, 1297, 42, 47, "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], -Cell[191923, 4949, 169, 2, 33, "Output",ExpressionUUID->"a3b94cd8-d8c6-4b5f-ab0f-90973d81e8c8"] +Cell[192630, 4963, 1297, 42, 61, "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], +Cell[193930, 5007, 193, 2, 41, "Output",ExpressionUUID->"cba3ebfa-4c5f-4497-a4fd-198dab334acd"] }, Open ]], Cell[CellGroupData[{ -Cell[192129, 4956, 929, 30, 55, "Input",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], -Cell[193061, 4988, 172, 2, 33, "Output",ExpressionUUID->"8d301370-8f2d-4db3-a406-a360a46fa3a3"] +Cell[194160, 5014, 929, 30, 73, "Input",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], +Cell[195092, 5046, 196, 2, 41, "Output",ExpressionUUID->"6627044e-ef91-4756-8ac5-b307ccc0ae48"] }, Open ]], Cell[CellGroupData[{ -Cell[193270, 4995, 904, 29, 55, "Input",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], -Cell[194177, 5026, 171, 2, 33, "Output",ExpressionUUID->"2052b6db-c975-497a-9f41-732dfb1b0283"] +Cell[195325, 5053, 904, 29, 73, "Input",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], +Cell[196232, 5084, 195, 2, 41, "Output",ExpressionUUID->"df0f754d-6496-4646-b0ba-194e759b4e34"] }, Open ]], Cell[CellGroupData[{ -Cell[194385, 5033, 554, 18, 51, "Input",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], -Cell[194942, 5053, 166, 2, 33, "Output",ExpressionUUID->"bd7c1cdb-3305-43d6-b68d-078b019d5a48"] +Cell[196464, 5091, 554, 18, 66, "Input",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], +Cell[197021, 5111, 188, 2, 41, "Output",ExpressionUUID->"584fcf34-ca49-497c-b296-b0e832751c77"] }, Open ]], Cell[CellGroupData[{ -Cell[195145, 5060, 647, 21, 51, "Input",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], -Cell[195795, 5083, 167, 2, 33, "Output",ExpressionUUID->"07d22a82-a752-48e8-a7fc-c24969d30846"] +Cell[197246, 5118, 647, 21, 66, "Input",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], +Cell[197896, 5141, 191, 2, 41, "Output",ExpressionUUID->"e02ed6c9-844d-4f72-a967-60ef581609de"] }, Open ]], Cell[CellGroupData[{ -Cell[195999, 5090, 166, 4, 55, "Input",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], -Cell[196168, 5096, 166, 2, 33, "Output",ExpressionUUID->"cb0a70f6-faaa-4cd5-b6e1-28adf1d82357"] +Cell[198124, 5148, 166, 4, 71, "Input",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], +Cell[198293, 5154, 188, 2, 41, "Output",ExpressionUUID->"0273cc4c-1d09-4b09-8754-456c9d85f435"] }, Open ]], Cell[CellGroupData[{ -Cell[196371, 5103, 166, 4, 54, "Input",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], -Cell[196540, 5109, 166, 2, 33, "Output",ExpressionUUID->"8043cc17-a1b1-4c9b-8724-d6759020ee09"] +Cell[198518, 5161, 166, 4, 69, "Input",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], +Cell[198687, 5167, 188, 2, 41, "Output",ExpressionUUID->"08bd1826-99eb-41d3-a42a-edebc8f8edf5"] }, Open ]], Cell[CellGroupData[{ -Cell[196743, 5116, 177, 4, 43, "Input",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], -Cell[196923, 5122, 166, 2, 33, "Output",ExpressionUUID->"36b108df-9bc7-4523-b286-3988613b6e45"] +Cell[198912, 5174, 177, 4, 55, "Input",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], +Cell[199092, 5180, 188, 2, 41, "Output",ExpressionUUID->"4ba41e8e-3995-4298-97c5-ac9705241ec2"] }, Open ]], Cell[CellGroupData[{ -Cell[197126, 5129, 177, 4, 43, "Input",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], -Cell[197306, 5135, 168, 2, 33, "Output",ExpressionUUID->"79fd0f54-f6da-4209-96e7-d477beeadefc"] +Cell[199317, 5187, 177, 4, 55, "Input",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], +Cell[199497, 5193, 192, 2, 41, "Output",ExpressionUUID->"0b23f56b-c301-4045-a4a2-efa882769428"] }, Open ]], Cell[CellGroupData[{ -Cell[197511, 5142, 6051, 184, 183, "Input",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], -Cell[203565, 5328, 169, 2, 33, "Output",ExpressionUUID->"5b9b0a5d-3c66-4fca-acee-286f224dea41"] +Cell[199726, 5200, 6051, 184, 431, "Input",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], +Cell[205780, 5386, 191, 2, 41, "Output",ExpressionUUID->"65d95482-aed7-4cd1-bc7b-0c46890de59f"] }, Open ]], Cell[CellGroupData[{ -Cell[203771, 5335, 364, 8, 41, "Input",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], -Cell[204138, 5345, 165, 2, 33, "Output",ExpressionUUID->"815a97fb-0451-453b-af48-45b0f998c371"] +Cell[206008, 5393, 364, 8, 53, "Input",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], +Cell[206375, 5403, 189, 2, 41, "Output",ExpressionUUID->"2006ce52-9478-4ba9-8b1e-f81cfdc50e05"] }, Open ]], Cell[CellGroupData[{ -Cell[204340, 5352, 6118, 186, 183, "Input",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], -Cell[210461, 5540, 170, 2, 33, "Output",ExpressionUUID->"65fb6428-b20e-4241-ad27-a27409e6adf0"] +Cell[206601, 5410, 6118, 186, 431, "Input",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], +Cell[212722, 5598, 192, 2, 41, "Output",ExpressionUUID->"bd7730ac-314f-4e09-a01f-4ee35c4604f1"] }, Open ]], Cell[CellGroupData[{ -Cell[210668, 5547, 364, 8, 41, "Input",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], -Cell[211035, 5557, 166, 2, 33, "Output",ExpressionUUID->"6859bb29-936a-4b0f-86d0-dc38bb823711"] +Cell[212951, 5605, 364, 8, 53, "Input",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], +Cell[213318, 5615, 188, 2, 41, "Output",ExpressionUUID->"8691148d-c21a-4cd4-8013-f0466fd55cb8"] }, Open ]], Cell[CellGroupData[{ -Cell[211238, 5564, 2659, 87, 107, "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], -Cell[213900, 5653, 170, 2, 33, "Output",ExpressionUUID->"7763f4b4-5b70-41da-9114-5a2c2d898287"] +Cell[213543, 5622, 2659, 87, 215, "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], +Cell[216205, 5711, 192, 2, 41, "Output",ExpressionUUID->"41a722ab-4628-4f58-a9ed-78385a093eb8"] }, Open ]], Cell[CellGroupData[{ -Cell[214107, 5660, 2599, 84, 107, "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], -Cell[216709, 5746, 167, 2, 33, "Output",ExpressionUUID->"f8e0fa58-e025-44ec-bed6-cba17ae90f72"] +Cell[216434, 5718, 2599, 84, 215, "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], +Cell[219036, 5804, 191, 2, 41, "Output",ExpressionUUID->"7422b835-7aa3-40f8-9c83-dc850f747499"] }, Open ]], Cell[CellGroupData[{ -Cell[216913, 5753, 3708, 117, 160, "Input",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], -Cell[220624, 5872, 167, 2, 33, "Output",ExpressionUUID->"b2ac48b3-5443-4e52-a6ad-226cd7860013"] +Cell[219264, 5811, 3708, 117, 316, "Input",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], +Cell[222975, 5930, 188, 2, 41, "Output",ExpressionUUID->"9c7ef388-0074-4072-ad24-f90f7d802d5f"] }, Open ]], -Cell[220806, 5877, 160, 3, 29, "Input",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], +Cell[223178, 5935, 160, 3, 36, "Input",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], Cell[CellGroupData[{ -Cell[220991, 5884, 2073, 58, 99, "Input",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], -Cell[223067, 5944, 578, 13, 26, "Message",ExpressionUUID->"dab50db0-f409-4890-afe1-0f1299e3d612"], -Cell[223648, 5959, 579, 13, 26, "Message",ExpressionUUID->"1fc074c1-01a3-4902-9928-abdbf57cbd5e"], -Cell[224230, 5974, 585, 13, 26, "Message",ExpressionUUID->"121cb2f6-2328-4dce-803e-1799db8f011c"], -Cell[224818, 5989, 468, 11, 26, "Message",ExpressionUUID->"e92d163c-93b8-4361-a28f-1c4b99d7c24f"], -Cell[225289, 6002, 167, 2, 33, "Output",ExpressionUUID->"cdfcc8fd-f0ac-448c-a1fd-cd6d5c4cdc88"] +Cell[223363, 5942, 2073, 58, 116, "Input",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], +Cell[225439, 6002, 660, 14, 53, "Message",ExpressionUUID->"dbb97ff2-876f-4907-ab75-49b706f094b7"], +Cell[226102, 6018, 656, 14, 53, "Message",ExpressionUUID->"9a8cc525-1d5c-4434-b384-f3b8619bf8e5"], +Cell[226761, 6034, 660, 14, 53, "Message",ExpressionUUID->"f0619e74-929e-44d9-9dcd-f386d6ec0b60"], +Cell[227424, 6050, 485, 11, 32, "Message",ExpressionUUID->"5c41f606-28e2-4ce7-a7d8-fd3ea358e3da"], +Cell[227912, 6063, 189, 2, 41, "Output",ExpressionUUID->"02555646-a88d-4a2d-8671-23d0f6a32f8c"] }, Open ]], Cell[CellGroupData[{ -Cell[225493, 6009, 2070, 58, 234, "Input",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], -Cell[227566, 6069, 578, 13, 81, "Message",ExpressionUUID->"0eac5177-ca8b-4ec7-8239-15e804334158"], -Cell[228147, 6084, 581, 13, 81, "Message",ExpressionUUID->"0f50415b-f925-4b90-8799-8a868403a763"], -Cell[228731, 6099, 585, 13, 81, "Message",ExpressionUUID->"44d3dea8-0ac3-428a-a2e4-8d66d2e4d378"], -Cell[229319, 6114, 470, 11, 26, "Message",ExpressionUUID->"0509b959-f641-41d7-a564-76231fc7ad70"], -Cell[229792, 6127, 168, 2, 33, "Output",ExpressionUUID->"10ed92d5-6ea7-4111-858c-0c6735bf6ff7"] +Cell[228138, 6070, 2070, 58, 116, "Input",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], +Cell[230211, 6130, 657, 14, 53, "Message",ExpressionUUID->"0da4f7f9-302d-418b-b435-22147f4106f6"], +Cell[230871, 6146, 657, 14, 53, "Message",ExpressionUUID->"9ac5943c-f377-4b6e-b423-30363f53a108"], +Cell[231531, 6162, 658, 14, 53, "Message",ExpressionUUID->"eba61cf9-ede7-4884-ae8e-0364deddcfe2"], +Cell[232192, 6178, 485, 11, 32, "Message",ExpressionUUID->"8a62a13c-4d31-4181-a675-b37642e0db5b"], +Cell[232680, 6191, 189, 2, 41, "Output",ExpressionUUID->"db7c6666-dfc7-4788-81a6-d598780f7c12"] }, Open ]], Cell[CellGroupData[{ -Cell[229997, 6134, 1957, 52, 102, "Input",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], -Cell[231957, 6188, 20407, 383, 236, "Output",ExpressionUUID->"8e8d9c77-9b05-4c8c-96ca-b110d799d4f8"] +Cell[232906, 6198, 2049, 54, 63, "Input",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], +Cell[234958, 6254, 20429, 383, 295, "Output",ExpressionUUID->"a33f97b1-0bdf-4ab5-b228-3f174bfcc503"] }, Open ]], Cell[CellGroupData[{ -Cell[252401, 6576, 2113, 59, 261, "Input",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], -Cell[254517, 6637, 512, 12, 59, "Message",ExpressionUUID->"014468fb-20de-4035-9bc9-a87c10893be7"], -Cell[255032, 6651, 516, 12, 59, "Message",ExpressionUUID->"ee2d94c1-9597-481d-be45-2ef0e1b38372"], -Cell[255551, 6665, 520, 12, 59, "Message",ExpressionUUID->"b6befc36-6ffe-4e62-a2fa-881e22567876"], -Cell[256074, 6679, 469, 11, 26, "Message",ExpressionUUID->"016fceff-5ab8-4dc2-ad00-99d38decb03f"], -Cell[256546, 6692, 21762, 404, 232, "Output",ExpressionUUID->"8a202dbb-e994-4e8b-945b-c6d702039506"] +Cell[255424, 6642, 2113, 59, 311, "Input",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], +Cell[257540, 6703, 527, 12, 71, "Message",ExpressionUUID->"67a41870-b118-410e-9ede-5fcd6872e21e"], +Cell[258070, 6717, 530, 12, 71, "Message",ExpressionUUID->"6aa54d31-ba6d-44cd-ab79-904dffb8771d"], +Cell[258603, 6731, 535, 12, 71, "Message",ExpressionUUID->"73f9916f-5989-4339-be5f-e84b81f5b492"], +Cell[259141, 6745, 484, 11, 32, "Message",ExpressionUUID->"776b2844-110e-41de-9c8d-e11f0a48897c"], +Cell[259628, 6758, 21784, 404, 290, "Output",ExpressionUUID->"79ce712e-2067-4149-8405-eedaa6d35fa3"] }, Open ]], Cell[CellGroupData[{ -Cell[278345, 7101, 2476, 69, 169, "Input",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], -Cell[280824, 7172, 9492, 222, 242, "Output",ExpressionUUID->"ef62d7eb-c542-4030-afa8-088323f54e54"] +Cell[281449, 7167, 2476, 69, 140, "Input",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], +Cell[283928, 7238, 9514, 222, 303, "Output",ExpressionUUID->"75fe757c-df21-4fe4-bcd7-4406f078ba01"] }, Open ]], Cell[CellGroupData[{ -Cell[290353, 7399, 228, 4, 29, "Input",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], -Cell[290584, 7405, 28144, 536, 232, "Output",ExpressionUUID->"ed023269-e904-46dc-820e-8d16fc85827c"] +Cell[293479, 7465, 228, 4, 36, "Input",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], +Cell[293710, 7471, 28166, 536, 290, "Output",ExpressionUUID->"4b57cbee-3ec3-4a5f-a690-f1c5fdc1338a"] }, Open ]], Cell[CellGroupData[{ -Cell[318765, 7946, 234, 6, 47, "Input",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], -Cell[319002, 7954, 169, 2, 33, "Output",ExpressionUUID->"1a3c3c49-4adc-48c2-a220-2ae30e724fde"] +Cell[321913, 8012, 234, 6, 61, "Input",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], +Cell[322150, 8020, 191, 2, 41, "Output",ExpressionUUID->"26e3f40c-c60e-4809-8d2c-e6f0f79762e3"] }, Open ]], Cell[CellGroupData[{ -Cell[319208, 7961, 1833, 52, 190, "Input",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], -Cell[321044, 8015, 522, 12, 59, "Message",ExpressionUUID->"375811db-567e-4bb0-b879-1e8138d9297b"], -Cell[321569, 8029, 521, 12, 59, "Message",ExpressionUUID->"d94926b5-c4d3-42b2-8353-a0e33e227806"], -Cell[322093, 8043, 525, 12, 59, "Message",ExpressionUUID->"f2161049-08e8-4e07-8226-1b8db003c6d8"], -Cell[322621, 8057, 471, 11, 26, "Message",ExpressionUUID->"d453062d-42e8-46bf-b611-2bc017614ac6"], -Cell[323095, 8070, 22528, 416, 232, "Output",ExpressionUUID->"fce2c1bd-d896-4e50-8ac6-d5507d17c5c6"] +Cell[322378, 8027, 1833, 52, 116, "Input",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], +Cell[324214, 8081, 535, 12, 71, "Message",ExpressionUUID->"8ad41be0-5a4d-48b1-9c74-8787ca42938f"], +Cell[324752, 8095, 538, 12, 71, "Message",ExpressionUUID->"d0ef427c-443a-4954-b1b0-b7db37598a6e"], +Cell[325293, 8109, 540, 12, 71, "Message",ExpressionUUID->"5ad5d840-0ba2-4f55-a590-ab915ddfe43c"], +Cell[325836, 8123, 484, 11, 32, "Message",ExpressionUUID->"c6922e37-998d-4494-8d42-abd9c88340ad"], +Cell[326323, 8136, 22552, 416, 290, "Output",ExpressionUUID->"c43e0bd3-3cc1-443e-b961-2d744ea6fa6c"] }, Open ]], Cell[CellGroupData[{ -Cell[345660, 8491, 1616, 48, 104, "Input",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], -Cell[347279, 8541, 607, 13, 80, "Message",ExpressionUUID->"8d9a7d00-4a94-4a42-b1e9-637b4fd4e6e8"], -Cell[347889, 8556, 611, 13, 80, "Message",ExpressionUUID->"3c2a0164-d99f-4fc1-8df9-4079609610b7"], -Cell[348503, 8571, 702, 15, 80, "Message",ExpressionUUID->"aa122981-2730-4744-8795-783430bb8808"], -Cell[349208, 8588, 471, 11, 26, "Message",ExpressionUUID->"628a34be-4321-4911-ba71-881f979117bd"], -Cell[349682, 8601, 173, 3, 33, "Output",ExpressionUUID->"51b3b13c-cad6-45b4-9ec2-f6cf766d50bd"] +Cell[348912, 8557, 1616, 48, 86, "Input",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], +Cell[350531, 8607, 660, 14, 53, "Message",ExpressionUUID->"d0cc3611-574e-48fb-8970-bedc98ef37d4"], +Cell[351194, 8623, 659, 14, 53, "Message",ExpressionUUID->"7725b4a9-ce3c-4c99-bd10-826ddcf2c41b"], +Cell[351856, 8639, 661, 14, 53, "Message",ExpressionUUID->"abf55603-9972-4108-96b1-d0a2f256e925"], +Cell[352520, 8655, 486, 11, 32, "Message",ExpressionUUID->"3b6905e0-8553-45d0-9fe4-1d00c0ec5ea6"], +Cell[353009, 8668, 195, 3, 41, "Output",ExpressionUUID->"84aa9875-b111-4f18-8af6-d5b89b723b4c"] }, Open ]], Cell[CellGroupData[{ -Cell[349892, 8609, 2270, 64, 212, "Input",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], -Cell[352165, 8675, 579, 13, 80, "Message",ExpressionUUID->"0b51cbc8-9a5b-43f6-915b-9902d4ed0122"], -Cell[352747, 8690, 582, 13, 80, "Message",ExpressionUUID->"a039d0b4-3244-4c01-a17a-e11421091895"], -Cell[353332, 8705, 586, 13, 80, "Message",ExpressionUUID->"a808f436-4e0d-4417-95d4-f874c9e2cd32"], -Cell[353921, 8720, 470, 11, 26, "Message",ExpressionUUID->"553ab2ae-b145-4334-b526-d5a4424fb3d5"], -Cell[354394, 8733, 173, 3, 33, "Output",ExpressionUUID->"2279ce9e-c04e-483f-b575-43cfacde2cf2"] +Cell[353241, 8676, 2270, 64, 81, "Input",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], +Cell[355514, 8742, 661, 14, 53, "Message",ExpressionUUID->"33e39e53-d573-49d0-bde8-dde070617d2b"], +Cell[356178, 8758, 658, 14, 53, "Message",ExpressionUUID->"974b836b-3232-471b-87c6-e610f75b65ab"], +Cell[356839, 8774, 659, 14, 53, "Message",ExpressionUUID->"01e4ceaf-1ea2-4edf-a0c0-3073f9506aa7"], +Cell[357501, 8790, 486, 11, 32, "Message",ExpressionUUID->"2192dd61-092f-4cfc-8e64-fd530372268c"], +Cell[357990, 8803, 192, 3, 41, "Output",ExpressionUUID->"15de13a3-8a92-439a-99c0-ffb4931d8046"] }, Open ]], Cell[CellGroupData[{ -Cell[354604, 8741, 2231, 63, 212, "Input",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], -Cell[356838, 8806, 579, 13, 80, "Message",ExpressionUUID->"4a90d760-ffbd-46fc-a464-42599917e02f"], -Cell[357420, 8821, 582, 13, 80, "Message",ExpressionUUID->"f550f6dc-7898-4712-8f8f-3ce2c7bf3694"], -Cell[358005, 8836, 586, 13, 80, "Message",ExpressionUUID->"d8a59fa8-d191-4616-aaad-2288166d40ec"], -Cell[358594, 8851, 471, 11, 26, "Message",ExpressionUUID->"f19420be-7f9b-4489-b887-9a9ebbd2eaf2"], -Cell[359068, 8864, 170, 3, 33, "Output",ExpressionUUID->"f301ef49-6d4d-420e-badd-7c188a498e3f"] +Cell[358219, 8811, 2231, 63, 81, "Input",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], +Cell[360453, 8876, 659, 14, 53, "Message",ExpressionUUID->"e61353cc-396c-4f4e-b9db-98a5a56ab0fa"], +Cell[361115, 8892, 658, 14, 53, "Message",ExpressionUUID->"570f8950-c79b-4f64-ab08-c50eb364ce0c"], +Cell[361776, 8908, 659, 14, 53, "Message",ExpressionUUID->"c99fd989-cc3b-4306-9658-a7d4fa2f67dd"], +Cell[362438, 8924, 486, 11, 32, "Message",ExpressionUUID->"c54d2e86-3fb1-4dbd-839b-91226b056d47"], +Cell[362927, 8937, 192, 3, 41, "Output",ExpressionUUID->"c918be7e-2bfe-45ac-aa6c-2b36f6e57549"] }, Open ]], Cell[CellGroupData[{ -Cell[359275, 8872, 2233, 63, 212, "Input",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], -Cell[361511, 8937, 579, 13, 80, "Message",ExpressionUUID->"318424f3-f627-4479-b7a0-8828712d6e01"], -Cell[362093, 8952, 584, 13, 80, "Message",ExpressionUUID->"c2babbe8-8b90-4c2e-afdb-5b9e1af34dc4"], -Cell[362680, 8967, 586, 13, 80, "Message",ExpressionUUID->"16099efc-28d7-4f43-b64d-1d912a76fe22"], -Cell[363269, 8982, 471, 11, 26, "Message",ExpressionUUID->"d09f10c7-7bca-46cc-a45c-0a0d42b08c31"], -Cell[363743, 8995, 170, 3, 33, "Output",ExpressionUUID->"ebc4cbe7-a4b1-4dcc-9dcb-16015542edea"] +Cell[363156, 8945, 2233, 63, 81, "Input",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], +Cell[365392, 9010, 661, 14, 53, "Message",ExpressionUUID->"b4355c64-ba1d-4094-99ab-d649d26bf46f"], +Cell[366056, 9026, 658, 14, 53, "Message",ExpressionUUID->"a3bbd140-0502-465a-9b34-cdd92e07bd20"], +Cell[366717, 9042, 659, 14, 53, "Message",ExpressionUUID->"cca3ca8f-4c48-441e-b619-30e7f8746a24"], +Cell[367379, 9058, 485, 11, 32, "Message",ExpressionUUID->"e06e9cd1-e67c-487d-a92f-06ae3b897215"], +Cell[367867, 9071, 192, 3, 41, "Output",ExpressionUUID->"53cf4ae7-2695-4fe8-a7a2-2f734a4c0398"] }, Open ]], Cell[CellGroupData[{ -Cell[363950, 9003, 238, 6, 46, "Input",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], -Cell[364191, 9011, 172, 3, 33, "Output",ExpressionUUID->"cc0ea0f7-85aa-4c5e-a057-385dc2d43ddb"] +Cell[368096, 9079, 238, 6, 60, "Input",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], +Cell[368337, 9087, 194, 3, 41, "Output",ExpressionUUID->"9203d6c0-7c95-4c6b-9ad6-720c328b6544"] }, Open ]], -Cell[364378, 9017, 273, 6, 29, "Input",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], +Cell[368546, 9093, 273, 6, 36, "Input",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], Cell[CellGroupData[{ -Cell[364676, 9027, 558, 19, 51, "Input",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], -Cell[365237, 9048, 169, 3, 33, "Output",ExpressionUUID->"6a067ff2-58d4-4baa-a580-fee567def8dc"] +Cell[368844, 9103, 558, 19, 66, "Input",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], +Cell[369405, 9124, 191, 3, 41, "Output",ExpressionUUID->"9e4af5c1-46c5-43c6-8ea2-85ec75631e62"] }, Open ]], Cell[CellGroupData[{ -Cell[365443, 9056, 170, 5, 55, "Input",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], -Cell[365616, 9063, 169, 3, 33, "Output",ExpressionUUID->"e5560b94-2240-4c66-a063-8f75ee3a7c02"] +Cell[369633, 9132, 170, 5, 71, "Input",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], +Cell[369806, 9139, 191, 3, 41, "Output",ExpressionUUID->"47058bb2-5a42-4adc-afab-07ab8c345dea"] }, Open ]], Cell[CellGroupData[{ -Cell[365822, 9071, 181, 5, 43, "Input",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], -Cell[366006, 9078, 170, 3, 33, "Output",ExpressionUUID->"767d9100-a80e-4dfc-a830-ddc309d4eaa3"] +Cell[370034, 9147, 181, 5, 55, "Input",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], +Cell[370218, 9154, 192, 3, 41, "Output",ExpressionUUID->"3685e06c-1fdd-4e59-b820-d00c7aed8072"] }, Open ]], Cell[CellGroupData[{ -Cell[366213, 9086, 6055, 185, 474, "Input",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], -Cell[372271, 9273, 174, 3, 33, "Output",ExpressionUUID->"d91e43f4-0a3e-46e1-8b78-86b367284b4c"] +Cell[370447, 9162, 6055, 185, 431, "Input",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], +Cell[376505, 9349, 196, 3, 41, "Output",ExpressionUUID->"1cfea935-f4d6-4833-abb2-532829558a42"] }, Open ]], Cell[CellGroupData[{ -Cell[372482, 9281, 368, 9, 41, "Input",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], -Cell[372853, 9292, 171, 3, 33, "Output",ExpressionUUID->"e788925a-f0df-4ddf-9917-460f0ee5c1af"] +Cell[376738, 9357, 368, 9, 53, "Input",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], +Cell[377109, 9368, 193, 3, 41, "Output",ExpressionUUID->"0105e361-d40b-4a5a-801b-a58a14176ad5"] }, Open ]], Cell[CellGroupData[{ -Cell[373061, 9300, 6122, 187, 474, "Input",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], -Cell[379186, 9489, 172, 3, 33, "Output",ExpressionUUID->"566c5ad9-2b02-4274-844d-61475381cadf"] +Cell[377339, 9376, 6122, 187, 431, "Input",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], +Cell[383464, 9565, 193, 3, 41, "Output",ExpressionUUID->"0c3dffb7-b977-46c9-94b0-9cf441a6f5b3"] }, Open ]], Cell[CellGroupData[{ -Cell[379395, 9497, 368, 9, 41, "Input",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], -Cell[379766, 9508, 173, 3, 33, "Output",ExpressionUUID->"0fbbc8ac-bae2-497f-ac4b-97573d4c9bb5"] +Cell[383694, 9573, 368, 9, 53, "Input",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], +Cell[384065, 9584, 195, 3, 41, "Output",ExpressionUUID->"58b99df1-03b9-4e4e-9f3d-68a7d7ff1af9"] }, Open ]], Cell[CellGroupData[{ -Cell[379976, 9516, 2663, 88, 285, "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], -Cell[382642, 9606, 174, 3, 33, "Output",ExpressionUUID->"ba6d2d55-3d9f-4dfa-8ee7-d54d3c1a58e0"] +Cell[384297, 9592, 2663, 88, 215, "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], +Cell[386963, 9682, 198, 3, 41, "Output",ExpressionUUID->"3423d47a-8d23-4990-a207-5b656a0651ba"] }, Open ]], Cell[CellGroupData[{ -Cell[382853, 9614, 2603, 85, 211, "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], -Cell[385459, 9701, 171, 3, 33, "Output",ExpressionUUID->"b6d10118-25ec-45e4-9537-2227b360c9ab"] +Cell[387198, 9690, 2603, 85, 215, "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], +Cell[389804, 9777, 195, 3, 41, "Output",ExpressionUUID->"ee760bdf-1448-4d24-9c7e-eb51f7494f87"] }, Open ]], Cell[CellGroupData[{ -Cell[385667, 9709, 3712, 118, 327, "Input",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], -Cell[389382, 9829, 173, 3, 33, "Output",ExpressionUUID->"1068be5c-92ce-4eb2-a1fe-a9a904e8a12f"] +Cell[390036, 9785, 3712, 118, 316, "Input",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], +Cell[393751, 9905, 195, 3, 41, "Output",ExpressionUUID->"09fd0c8a-3219-4c28-a17c-0b2c7726044f"] }, Open ]], Cell[CellGroupData[{ -Cell[389592, 9837, 2075, 59, 234, "Input",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], -Cell[391670, 9898, 577, 13, 80, "Message",ExpressionUUID->"46048712-d464-40a2-8631-ec42479332ae"], -Cell[392250, 9913, 578, 13, 80, "Message",ExpressionUUID->"8ff994af-0f0b-4fb0-826e-9a82a834f73f"], -Cell[392831, 9928, 583, 13, 80, "Message",ExpressionUUID->"ccd16639-35c0-43c8-8109-bfdaaccfc4e2"], -Cell[393417, 9943, 473, 11, 26, "Message",ExpressionUUID->"e67948a9-2d87-49bc-b52a-e3aeea75d3cc"], -Cell[393893, 9956, 173, 3, 33, "Output",ExpressionUUID->"79177fab-0b45-41ca-8b4f-a759090a74f8"] +Cell[393983, 9913, 2075, 59, 116, "Input",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], +Cell[396061, 9974, 662, 14, 53, "Message",ExpressionUUID->"5f84bd2c-68ad-4734-8f56-fbc0cfeff5d8"], +Cell[396726, 9990, 660, 14, 53, "Message",ExpressionUUID->"37fa1036-0eae-498f-99bd-3046b957af15"], +Cell[397389, 10006, 661, 14, 53, "Message",ExpressionUUID->"f9068de1-ed47-4faf-a86f-1ab5ee6be616"], +Cell[398053, 10022, 488, 11, 32, "Message",ExpressionUUID->"af270e0d-11a8-4a61-bc90-b65035005b5c"], +Cell[398544, 10035, 195, 3, 41, "Output",ExpressionUUID->"a4a9761d-541a-4074-8a03-9d53c9bd3d3a"] }, Open ]], Cell[CellGroupData[{ -Cell[394103, 9964, 2077, 59, 234, "Input",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], -Cell[396183, 10025, 577, 13, 80, "Message",ExpressionUUID->"eda322f2-b79a-4cc3-bdc0-3909cd4f44be"], -Cell[396763, 10040, 578, 13, 80, "Message",ExpressionUUID->"a9c9e3d0-1672-4ac6-b7c9-37b3ac4a24aa"], -Cell[397344, 10055, 583, 13, 80, "Message",ExpressionUUID->"993d3064-65f5-4f71-9811-16022945d60a"], -Cell[397930, 10070, 471, 11, 26, "Message",ExpressionUUID->"6840efd2-6580-4db8-b1de-ac6282c30f3d"], -Cell[398404, 10083, 170, 3, 33, "Output",ExpressionUUID->"b33344e1-d5e2-423c-94c3-033ceb9b470b"] +Cell[398776, 10043, 2077, 59, 116, "Input",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], +Cell[400856, 10104, 662, 14, 53, "Message",ExpressionUUID->"8d523157-3533-46da-8b9d-373ceb550ab0"], +Cell[401521, 10120, 660, 14, 53, "Message",ExpressionUUID->"70cdfcca-96c8-4088-82d8-a9662b20dc31"], +Cell[402184, 10136, 661, 14, 53, "Message",ExpressionUUID->"a43333c6-d79a-4b97-81dd-580e8682a8a4"], +Cell[402848, 10152, 490, 11, 32, "Message",ExpressionUUID->"7f346d86-56b3-411a-b9c1-5e6f372fd923"], +Cell[403341, 10165, 192, 3, 41, "Output",ExpressionUUID->"fcbda0d1-bf94-4663-a530-4f51b6f8ef65"] }, Open ]], Cell[CellGroupData[{ -Cell[398611, 10091, 2053, 55, 151, "Input",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], -Cell[400667, 10148, 20017, 377, 236, "Output",ExpressionUUID->"b715365e-c726-41e3-b15d-157d9d96ed07"] +Cell[403570, 10173, 2053, 55, 63, "Input",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], +Cell[405626, 10230, 20039, 377, 295, "Output",ExpressionUUID->"17d9cf5a-157a-4f19-b43c-546116a4239b"] }, Open ]], Cell[CellGroupData[{ -Cell[420721, 10530, 2141, 60, 261, "Input",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], -Cell[422865, 10592, 518, 12, 59, "Message",ExpressionUUID->"21afb119-cb89-4b56-b4b2-b8c1a44ce2dc"], -Cell[423386, 10606, 519, 12, 59, "Message",ExpressionUUID->"b42d551f-89e8-4546-9e39-2a775c67d791"], -Cell[423908, 10620, 521, 12, 59, "Message",ExpressionUUID->"9e2c1b4d-1379-4aad-9442-be51efeb0a84"], -Cell[424432, 10634, 473, 11, 26, "Message",ExpressionUUID->"b73bb783-4d98-433c-bd34-afa78bf687f7"], -Cell[424908, 10647, 22019, 408, 233, "Output",ExpressionUUID->"a9d8f961-575d-44aa-86fe-b8e58def5ca5"] +Cell[425702, 10612, 2141, 60, 116, "Input",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], +Cell[427846, 10674, 533, 12, 48, "Message",ExpressionUUID->"dd4b5c8f-09b3-424d-8df4-a4ba24d93b3d"], +Cell[428382, 10688, 535, 12, 48, "Message",ExpressionUUID->"657adcb4-d5b7-4064-9777-ce3c3bc67d47"], +Cell[428920, 10702, 538, 12, 48, "Message",ExpressionUUID->"d3ebe492-80ec-452b-abe8-964f6557e0aa"], +Cell[429461, 10716, 490, 11, 32, "Message",ExpressionUUID->"eb081c99-e725-45e5-95da-8458dcff6b30"], +Cell[429954, 10729, 22043, 408, 292, "Output",ExpressionUUID->"f838a964-b5d4-4c69-9366-1b2f06c3111b"] }, Open ]], Cell[CellGroupData[{ -Cell[446964, 11060, 232, 5, 29, "Input",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], -Cell[447199, 11067, 28403, 540, 233, "Output",ExpressionUUID->"2de50b0b-d1c8-4b50-a623-ffabc26252e7"] +Cell[452034, 11142, 232, 5, 36, "Input",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], +Cell[452269, 11149, 28425, 540, 292, "Output",ExpressionUUID->"faa26f22-47c7-4df9-b50c-b1e4e80db104"] }, Open ]], Cell[CellGroupData[{ -Cell[475639, 11612, 1616, 48, 104, "Input",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], -Cell[477258, 11662, 705, 15, 80, "Message",ExpressionUUID->"467b5ab0-df8b-4c77-96e3-3fbc41fbdb6e"], -Cell[477966, 11679, 701, 15, 80, "Message",ExpressionUUID->"6d57dc7f-7e35-49f9-ade5-233200d34727"], -Cell[478670, 11696, 703, 15, 80, "Message",ExpressionUUID->"36b49f2a-dd2e-4a6e-8689-a1c810e48d37"], -Cell[479376, 11713, 471, 11, 26, "Message",ExpressionUUID->"eef18186-40b7-4517-a6cf-66287c13278a"], -Cell[479850, 11726, 173, 3, 33, "Output",ExpressionUUID->"a72235ea-c278-4c4b-8a0d-5f5a0b03f884"] +Cell[480731, 11694, 1616, 48, 86, "Input",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], +Cell[482350, 11744, 661, 14, 53, "Message",ExpressionUUID->"b18e8400-78c6-44fd-bdff-f311999f3178"], +Cell[483014, 11760, 662, 14, 53, "Message",ExpressionUUID->"a9dbc2a8-1f09-4cb2-9491-276a713a6fe3"], +Cell[483679, 11776, 660, 14, 53, "Message",ExpressionUUID->"c83a30c1-3f6c-4194-957d-0e7dc8c4fab0"], +Cell[484342, 11792, 486, 11, 32, "Message",ExpressionUUID->"43282f97-eb61-4f2b-91fd-ff35eefc5b8c"], +Cell[484831, 11805, 195, 3, 41, "Output",ExpressionUUID->"bfcc21cf-5576-40c2-bde8-c041d2fefc2f"] }, Open ]], Cell[CellGroupData[{ -Cell[480060, 11734, 2274, 64, 212, "Input",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], -Cell[482337, 11800, 574, 13, 80, "Message",ExpressionUUID->"cd4be699-835e-4fdf-aff1-bf73ba0ae72f"], -Cell[482914, 11815, 578, 13, 80, "Message",ExpressionUUID->"c8ff25c9-327c-4e1a-8066-aa12efab5a6c"], -Cell[483495, 11830, 583, 13, 80, "Message",ExpressionUUID->"dc79b4c1-ba6d-40dd-927e-87ceb14d1143"], -Cell[484081, 11845, 471, 11, 26, "Message",ExpressionUUID->"f8a24eb2-35a5-4c6b-ac64-e0d06aae5ce5"], -Cell[484555, 11858, 172, 3, 33, "Output",ExpressionUUID->"e1e7f64d-1f35-46bf-b9e1-c8f758ec5dc9"] +Cell[485063, 11813, 2274, 64, 81, "Input",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], +Cell[487340, 11879, 657, 14, 53, "Message",ExpressionUUID->"0ff574ee-6e52-4358-b498-5f1e514ad7f7"], +Cell[488000, 11895, 657, 14, 53, "Message",ExpressionUUID->"0dbf9fb6-810d-449e-b65c-42754ba9b387"], +Cell[488660, 11911, 658, 14, 53, "Message",ExpressionUUID->"f7175be0-8c2a-4c11-be98-0541a2ff0233"], +Cell[489321, 11927, 485, 11, 32, "Message",ExpressionUUID->"6a46e7cd-daab-4d72-81e5-a0a2d25a2b3b"], +Cell[489809, 11940, 194, 3, 41, "Output",ExpressionUUID->"0fefb417-95a4-44f2-b70f-5878cb96af57"] }, Open ]], Cell[CellGroupData[{ -Cell[484764, 11866, 2232, 63, 212, "Input",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], -Cell[486999, 11931, 575, 13, 80, "Message",ExpressionUUID->"727d1b51-a9ea-41ee-b982-ef9a220f49a4"], -Cell[487577, 11946, 578, 13, 80, "Message",ExpressionUUID->"633d6728-2a59-4d8a-8332-eb304fc18479"], -Cell[488158, 11961, 583, 13, 80, "Message",ExpressionUUID->"24b4adbe-8cc2-4221-9ebd-0aa560f47669"], -Cell[488744, 11976, 471, 11, 26, "Message",ExpressionUUID->"3477e4cf-50f0-464e-830c-2954d0b6526e"], -Cell[489218, 11989, 170, 3, 33, "Output",ExpressionUUID->"4fbb24d6-9445-4935-beab-f3a1ccbf85b1"] +Cell[490040, 11948, 2232, 63, 81, "Input",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], +Cell[492275, 12013, 660, 14, 53, "Message",ExpressionUUID->"062d9a12-1541-4aa1-acb6-dae06a371ad6"], +Cell[492938, 12029, 660, 14, 53, "Message",ExpressionUUID->"90c546fd-c618-4291-b3f7-194ade0cdb6a"], +Cell[493601, 12045, 659, 14, 53, "Message",ExpressionUUID->"417df559-19bf-4f0f-b750-cf966cb48ff3"], +Cell[494263, 12061, 486, 11, 32, "Message",ExpressionUUID->"ae8cddd7-8206-4612-9f17-80131d242584"], +Cell[494752, 12074, 192, 3, 41, "Output",ExpressionUUID->"1f9ef52d-e4de-4146-be3c-ae9527617bf3"] }, Open ]], Cell[CellGroupData[{ -Cell[489425, 11997, 2235, 63, 212, "Input",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], -Cell[491663, 12062, 577, 13, 80, "Message",ExpressionUUID->"4ac76e19-412e-4984-9ad7-1e72e97d133e"], -Cell[492243, 12077, 578, 13, 80, "Message",ExpressionUUID->"c623e4ca-e9bc-44dd-995b-396e83eb32c3"], -Cell[492824, 12092, 585, 13, 80, "Message",ExpressionUUID->"2c582c68-12c0-4305-bd5a-5244bc00881f"], -Cell[493412, 12107, 471, 11, 26, "Message",ExpressionUUID->"6ca61102-39be-470c-b1d5-8600f9ed1018"], -Cell[493886, 12120, 172, 3, 33, "Output",ExpressionUUID->"0fa7ae1c-1fb7-4d80-b3e3-f3af49744391"] +Cell[494981, 12082, 2235, 63, 81, "Input",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], +Cell[497219, 12147, 660, 14, 53, "Message",ExpressionUUID->"1f6bd149-c889-4725-927e-00791c351165"], +Cell[497882, 12163, 660, 14, 53, "Message",ExpressionUUID->"7676579f-eba0-445c-9aa8-8d147a940cd2"], +Cell[498545, 12179, 661, 14, 53, "Message",ExpressionUUID->"e930cf69-64aa-4e17-9351-3b2aa7b73ee5"], +Cell[499209, 12195, 488, 11, 32, "Message",ExpressionUUID->"99d32b3d-2b4e-413c-a965-f2dad0befb11"], +Cell[499700, 12208, 194, 3, 41, "Output",ExpressionUUID->"54220f71-07b0-4e48-b44b-a79092836a8a"] }, Open ]], Cell[CellGroupData[{ -Cell[494095, 12128, 238, 6, 46, "Input",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], -Cell[494336, 12136, 171, 3, 33, "Output",ExpressionUUID->"c97b39ed-67cf-465c-98ca-c17e9acf450a"] +Cell[499931, 12216, 238, 6, 60, "Input",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], +Cell[500172, 12224, 193, 3, 41, "Output",ExpressionUUID->"235f4c20-c04b-4192-8789-a04e5a8af3e7"] }, Open ]], -Cell[494522, 12142, 273, 6, 29, "Input",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], +Cell[500380, 12230, 273, 6, 36, "Input",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], Cell[CellGroupData[{ -Cell[494820, 12152, 558, 19, 51, "Input",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], -Cell[495381, 12173, 171, 3, 33, "Output",ExpressionUUID->"3756d335-df57-4dc2-90b1-bf8a5d08f0f7"] +Cell[500678, 12240, 558, 19, 66, "Input",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], +Cell[501239, 12261, 193, 3, 41, "Output",ExpressionUUID->"f4fe6753-a02a-44a3-ac6c-c34afb0837b6"] }, Open ]], Cell[CellGroupData[{ -Cell[495589, 12181, 170, 5, 55, "Input",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], -Cell[495762, 12188, 171, 3, 33, "Output",ExpressionUUID->"b5ceb94d-52ba-4258-aa08-2c3a6e29fd25"] +Cell[501469, 12269, 170, 5, 71, "Input",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], +Cell[501642, 12276, 195, 3, 41, "Output",ExpressionUUID->"546f6b26-3f74-4675-b6c3-fe4676a1b097"] }, Open ]], Cell[CellGroupData[{ -Cell[495970, 12196, 181, 5, 43, "Input",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], -Cell[496154, 12203, 170, 3, 33, "Output",ExpressionUUID->"5f5f5ed9-9cdb-4b21-b891-7ba12e6269b2"] +Cell[501874, 12284, 181, 5, 55, "Input",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], +Cell[502058, 12291, 192, 3, 41, "Output",ExpressionUUID->"0f7eaca8-2ec6-4e1f-9fb3-e1a85a988ee2"] }, Open ]], Cell[CellGroupData[{ -Cell[496361, 12211, 6055, 185, 474, "Input",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], -Cell[502419, 12398, 173, 3, 33, "Output",ExpressionUUID->"eb894338-cd7e-4cd3-9375-0729379d9f89"] +Cell[502287, 12299, 6055, 185, 431, "Input",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], +Cell[508345, 12486, 195, 3, 41, "Output",ExpressionUUID->"38da2007-a157-4f2c-95a4-2988f453a4db"] }, Open ]], Cell[CellGroupData[{ -Cell[502629, 12406, 368, 9, 41, "Input",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], -Cell[503000, 12417, 171, 3, 33, "Output",ExpressionUUID->"8feb67b6-ccd5-4179-802e-13ab55f4d62e"] +Cell[508577, 12494, 368, 9, 53, "Input",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], +Cell[508948, 12505, 195, 3, 41, "Output",ExpressionUUID->"c4cc597e-1bf6-4320-b673-4502f92e6cc2"] }, Open ]], Cell[CellGroupData[{ -Cell[503208, 12425, 6122, 187, 474, "Input",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], -Cell[509333, 12614, 172, 3, 33, "Output",ExpressionUUID->"2861d586-5c82-44c8-bc1c-6ccbb405c7c8"] +Cell[509180, 12513, 6122, 187, 431, "Input",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], +Cell[515305, 12702, 196, 3, 41, "Output",ExpressionUUID->"db39daba-8000-4829-a59e-55001d819da2"] }, Open ]], Cell[CellGroupData[{ -Cell[509542, 12622, 368, 9, 41, "Input",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], -Cell[509913, 12633, 171, 3, 33, "Output",ExpressionUUID->"12da8605-732c-4503-819a-26d25a95ca80"] +Cell[515538, 12710, 368, 9, 53, "Input",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], +Cell[515909, 12721, 192, 3, 41, "Output",ExpressionUUID->"6173228d-5548-49b5-a81f-ca25d806e210"] }, Open ]], Cell[CellGroupData[{ -Cell[510121, 12641, 2663, 88, 285, "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], -Cell[512787, 12731, 174, 3, 33, "Output",ExpressionUUID->"802fe896-ba18-4dc2-bb3e-d4a93d048b6e"] +Cell[516138, 12729, 2663, 88, 215, "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], +Cell[518804, 12819, 194, 3, 41, "Output",ExpressionUUID->"ff65d6e7-ff64-4d23-8bbc-9bfd6a9148e3"] }, Open ]], Cell[CellGroupData[{ -Cell[512998, 12739, 2603, 85, 211, "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], -Cell[515604, 12826, 171, 3, 33, "Output",ExpressionUUID->"29b81598-47fb-4ff8-b2f6-b33977e1a7a6"] +Cell[519035, 12827, 2603, 85, 215, "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], +Cell[521641, 12914, 191, 3, 41, "Output",ExpressionUUID->"15625e1f-29f5-4228-9fe5-feb1fdcb9be1"] }, Open ]], Cell[CellGroupData[{ -Cell[515812, 12834, 3712, 118, 327, "Input",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], -Cell[519527, 12954, 171, 3, 33, "Output",ExpressionUUID->"13f3204f-40c2-41f4-81a2-2894ff874891"] +Cell[521869, 12922, 3712, 118, 316, "Input",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], +Cell[525584, 13042, 195, 3, 41, "Output",ExpressionUUID->"710d7013-8327-454f-b7c2-ef14a9cb40fb"] }, Open ]], Cell[CellGroupData[{ -Cell[519735, 12962, 2077, 59, 234, "Input",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], -Cell[521815, 13023, 579, 13, 80, "Message",ExpressionUUID->"c033335d-a63d-4764-af37-0e2c9653adca"], -Cell[522397, 13038, 585, 13, 80, "Message",ExpressionUUID->"e252c9b9-9d21-4ad6-9bd2-afc38aaa5591"], -Cell[522985, 13053, 585, 13, 80, "Message",ExpressionUUID->"450d629d-c8ab-450d-95f2-8b680d64b5e1"], -Cell[523573, 13068, 471, 11, 26, "Message",ExpressionUUID->"55fba11a-16ee-41b6-b6c1-3dd2f22fef62"], -Cell[524047, 13081, 171, 3, 33, "Output",ExpressionUUID->"4e1284f5-ca8b-4f4a-828e-42c8e6b5ad61"] +Cell[525816, 13050, 2077, 59, 116, "Input",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], +Cell[527896, 13111, 659, 14, 53, "Message",ExpressionUUID->"d4064b14-2350-433c-a1c7-1e7be8939baf"], +Cell[528558, 13127, 661, 14, 53, "Message",ExpressionUUID->"ac36e18d-cc01-4ab5-99f8-ea6ad50073c4"], +Cell[529222, 13143, 658, 14, 53, "Message",ExpressionUUID->"3aff908e-fd8b-4b52-8f52-9cb4a1a3ed00"], +Cell[529883, 13159, 486, 11, 32, "Message",ExpressionUUID->"491f832b-e1ac-420c-b6cb-c8628644f432"], +Cell[530372, 13172, 193, 3, 41, "Output",ExpressionUUID->"19c77273-3a7b-4fd3-b0a3-f53921e6b48d"] }, Open ]], Cell[CellGroupData[{ -Cell[524255, 13089, 2077, 59, 234, "Input",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], -Cell[526335, 13150, 579, 13, 80, "Message",ExpressionUUID->"53367f91-0f4e-4b6f-bc17-4bd5d79a8240"], -Cell[526917, 13165, 583, 13, 80, "Message",ExpressionUUID->"a25ecd0a-d4bc-4803-ada0-243bf05c502b"], -Cell[527503, 13180, 587, 13, 80, "Message",ExpressionUUID->"645c7b69-9588-4ce4-a9dc-16152940f7cd"], -Cell[528093, 13195, 473, 11, 26, "Message",ExpressionUUID->"346c8deb-0a1a-4358-a1bf-76bda3aef759"], -Cell[528569, 13208, 170, 3, 33, "Output",ExpressionUUID->"7d30887b-3f99-486e-9c53-c64d503ba3ab"] +Cell[530602, 13180, 2077, 59, 116, "Input",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], +Cell[532682, 13241, 659, 14, 53, "Message",ExpressionUUID->"86f819ee-ed05-4921-b3c9-cd4798b5fb97"], +Cell[533344, 13257, 661, 14, 53, "Message",ExpressionUUID->"f97cd5a4-f273-4474-ae9b-802fef91bdb0"], +Cell[534008, 13273, 658, 14, 53, "Message",ExpressionUUID->"db41647d-d036-4e20-841f-6abd064c03b4"], +Cell[534669, 13289, 486, 11, 32, "Message",ExpressionUUID->"48a6f4cc-eec7-4953-b5e8-bd8cc885aeab"], +Cell[535158, 13302, 192, 3, 41, "Output",ExpressionUUID->"1f1a0b3b-1497-40d0-b2f3-feb9a810dcdf"] }, Open ]], Cell[CellGroupData[{ -Cell[528776, 13216, 2053, 55, 151, "Input",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], -Cell[530832, 13273, 20401, 384, 236, "Output",ExpressionUUID->"f6ce29c8-5808-453a-ba7a-bbcc56732734"] +Cell[535387, 13310, 2053, 55, 63, "Input",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], +Cell[537443, 13367, 20425, 384, 295, "Output",ExpressionUUID->"383efd52-0142-4ef2-b903-b4fd04cf2db6"] }, Open ]], Cell[CellGroupData[{ -Cell[551270, 13662, 2165, 61, 261, "Input",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], -Cell[553438, 13725, 516, 12, 59, "Message",ExpressionUUID->"4cce50cb-a12a-47df-8116-1bf2f488ab01"], -Cell[553957, 13739, 519, 12, 59, "Message",ExpressionUUID->"7bf11d88-215f-41f3-a80d-9706bec675fe"], -Cell[554479, 13753, 522, 12, 59, "Message",ExpressionUUID->"0285d95f-dba8-491d-a5e2-91ab0e257068"], -Cell[555004, 13767, 473, 11, 26, "Message",ExpressionUUID->"24ba665e-ea74-4fc4-8fe6-1cd6aa431cf5"], -Cell[555480, 13780, 21569, 402, 232, "Output",ExpressionUUID->"c639cf35-a4d9-4ee0-ac1c-7e57ecf69932"] +Cell[557905, 13756, 2165, 61, 311, "Input",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], +Cell[560073, 13819, 531, 12, 48, "Message",ExpressionUUID->"5bbe2378-995b-4386-b139-00cbb63b44c9"], +Cell[560607, 13833, 534, 12, 48, "Message",ExpressionUUID->"978cb13c-09b9-490e-9c29-4dc565d80a6f"], +Cell[561144, 13847, 539, 12, 48, "Message",ExpressionUUID->"12b23424-b852-4be7-9154-62a855e8ead5"], +Cell[561686, 13861, 488, 11, 32, "Message",ExpressionUUID->"8d296485-da1d-47d9-8674-64b8052e8164"], +Cell[562177, 13874, 21593, 402, 290, "Output",ExpressionUUID->"3ef4cca0-24a9-41e4-88e7-5a1df25eb345"] }, Open ]], Cell[CellGroupData[{ -Cell[577086, 14187, 164, 4, 29, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], -Cell[577253, 14193, 27955, 534, 232, "Output",ExpressionUUID->"205fba32-9f9d-4b11-a5d1-95d9019915d0"] +Cell[583807, 14281, 164, 4, 36, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], +Cell[583974, 14287, 27977, 534, 290, "Output",ExpressionUUID->"91c432c0-16a7-4203-b54f-520f162a9c41"] }, Open ]], Cell[CellGroupData[{ -Cell[605245, 14732, 1616, 48, 104, "Input",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], -Cell[606864, 14782, 605, 13, 80, "Message",ExpressionUUID->"35ac7f20-3b11-4d88-978d-7f32ad24ce93"], -Cell[607472, 14797, 608, 13, 80, "Message",ExpressionUUID->"38041153-34b5-4fb9-8fc4-23236d0fdbb7"], -Cell[608083, 14812, 613, 13, 80, "Message",ExpressionUUID->"b7cde893-a778-4794-b3c9-aed1ff2d417c"], -Cell[608699, 14827, 473, 11, 26, "Message",ExpressionUUID->"651fb598-3c4a-451d-865b-11ff50e4bc28"], -Cell[609175, 14840, 171, 3, 33, "Output",ExpressionUUID->"213cb7a6-2451-4e24-91f1-449f35b14a19"] +Cell[611988, 14826, 1616, 48, 132, "Input",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], +Cell[613607, 14876, 658, 14, 73, "Message",ExpressionUUID->"2196de03-9911-41da-a461-b6b139b6965b"], +Cell[614268, 14892, 659, 14, 73, "Message",ExpressionUUID->"62df45b3-ef76-4a4f-843c-e7b4d6555f71"], +Cell[614930, 14908, 659, 14, 73, "Message",ExpressionUUID->"9a8cee2c-566f-4fd4-8fba-07bc3627d37d"], +Cell[615592, 14924, 488, 11, 32, "Message",ExpressionUUID->"7013d942-a1b3-46ca-a8b9-22c069281481"], +Cell[616083, 14937, 193, 3, 41, "Output",ExpressionUUID->"3e37e56c-c077-4905-b013-7169d713ed37"] }, Open ]], Cell[CellGroupData[{ -Cell[609383, 14848, 2272, 64, 212, "Input",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], -Cell[611658, 14914, 579, 13, 80, "Message",ExpressionUUID->"ce604b68-114a-4b33-9aea-865c1b87507b"], -Cell[612240, 14929, 583, 13, 80, "Message",ExpressionUUID->"874ff68d-19ef-445e-878a-71c50fb3a18b"], -Cell[612826, 14944, 585, 13, 80, "Message",ExpressionUUID->"782b1360-044e-43c4-aea0-39ccf16a83e3"], -Cell[613414, 14959, 471, 11, 26, "Message",ExpressionUUID->"a91ba5e4-403c-42af-8eb0-95bcf0ab0eb6"], -Cell[613888, 14972, 170, 3, 33, "Output",ExpressionUUID->"bb39e09c-deab-4308-98ce-715faee42368"] +Cell[616313, 14945, 2272, 64, 348, "Input",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], +Cell[618588, 15011, 659, 14, 73, "Message",ExpressionUUID->"49460f96-6bfd-44ce-acdc-992fae3cb9f9"], +Cell[619250, 15027, 659, 14, 73, "Message",ExpressionUUID->"daa21ec6-fea3-41b4-9dbb-ab7849be1f62"], +Cell[619912, 15043, 660, 14, 73, "Message",ExpressionUUID->"ecc298dd-5851-4d0f-80f3-42e2b7edd95e"], +Cell[620575, 15059, 486, 11, 32, "Message",ExpressionUUID->"6e5e6765-ed33-4660-b3af-2c5832b8fea9"], +Cell[621064, 15072, 192, 3, 41, "Output",ExpressionUUID->"70a176a2-00de-43d4-b43a-b01a7234cc4e"] }, Open ]], Cell[CellGroupData[{ -Cell[614095, 14980, 2231, 63, 212, "Input",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], -Cell[616329, 15045, 579, 13, 80, "Message",ExpressionUUID->"0c60132a-a10d-4f76-a708-24d4be75ff57"], -Cell[616911, 15060, 583, 13, 80, "Message",ExpressionUUID->"14e0a593-4ff1-466d-9f47-cde7571192f1"], -Cell[617497, 15075, 585, 13, 80, "Message",ExpressionUUID->"ec5618c2-16b8-4f3f-b445-2c769ea7cba0"], -Cell[618085, 15090, 473, 11, 26, "Message",ExpressionUUID->"8060fbac-2786-4e43-8706-c957daf10c7a"], -Cell[618561, 15103, 172, 3, 33, "Output",ExpressionUUID->"2005050e-e01f-49ca-bb21-0a3924af24d1"] +Cell[621293, 15080, 2231, 63, 348, "Input",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], +Cell[623527, 15145, 659, 14, 73, "Message",ExpressionUUID->"58a4a545-5c34-408d-b70c-d82a5d537f7a"], +Cell[624189, 15161, 659, 14, 73, "Message",ExpressionUUID->"bbfe14f6-7b61-43d1-b98e-b139af1269ef"], +Cell[624851, 15177, 660, 14, 73, "Message",ExpressionUUID->"714fb877-0a30-4101-a6e7-dc241ce3032c"], +Cell[625514, 15193, 488, 11, 32, "Message",ExpressionUUID->"3f8168b5-2130-4b02-8a19-3c2a24698124"], +Cell[626005, 15206, 196, 3, 41, "Output",ExpressionUUID->"3bdc4c91-ed26-4aee-a6d9-29e07998663a"] }, Open ]], Cell[CellGroupData[{ -Cell[618770, 15111, 2233, 63, 212, "Input",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], -Cell[621006, 15176, 579, 13, 80, "Message",ExpressionUUID->"99a069e4-d3ca-4512-b738-ebfc6e4e7060"], -Cell[621588, 15191, 583, 13, 80, "Message",ExpressionUUID->"cabd1be7-8d6c-486e-9899-ee651b833771"], -Cell[622174, 15206, 585, 13, 80, "Message",ExpressionUUID->"e2bae2d3-0c6f-4403-8ac3-647c035552c5"], -Cell[622762, 15221, 471, 11, 26, "Message",ExpressionUUID->"ae0ead6e-71cc-44f1-9e5f-d6b75a022c26"], -Cell[623236, 15234, 171, 3, 33, "Output",ExpressionUUID->"5d538ca9-5b3e-4837-88b8-1917f2562f50"] +Cell[626238, 15214, 2233, 63, 348, "Input",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], +Cell[628474, 15279, 659, 14, 73, "Message",ExpressionUUID->"557af7bd-4ab9-4f8a-8334-0cd5bbc7c27d"], +Cell[629136, 15295, 659, 14, 73, "Message",ExpressionUUID->"6dfcd4b9-4aee-4180-a84f-b279b1303eb1"], +Cell[629798, 15311, 660, 14, 73, "Message",ExpressionUUID->"43469f1e-946c-44ce-aae4-b8691d54517f"], +Cell[630461, 15327, 486, 11, 32, "Message",ExpressionUUID->"084296e0-10e2-477e-8cc9-6bd356c65825"], +Cell[630950, 15340, 193, 3, 41, "Output",ExpressionUUID->"60c96dc8-d4ce-4fb7-ac1c-407253b70d20"] }, Open ]], Cell[CellGroupData[{ -Cell[623444, 15242, 238, 6, 46, "Input",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], -Cell[623685, 15250, 172, 3, 33, "Output",ExpressionUUID->"6bb6bf52-cfe5-4a57-b6d2-fe3e7c7debfe"] +Cell[631180, 15348, 238, 6, 60, "Input",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], +Cell[631421, 15356, 194, 3, 41, "Output",ExpressionUUID->"85ed077f-a1db-4dbe-be75-2aadd39877da"] }, Open ]], -Cell[623872, 15256, 143, 3, 29, "Input",ExpressionUUID->"94150439-83be-4890-9aea-082b5dc3e6e4"], -Cell[624018, 15261, 154, 3, 29, "Input",ExpressionUUID->"3d0ba265-1b31-40bb-9ba6-b5d6b8ec0f46"] +Cell[631630, 15362, 143, 3, 109, "Input",ExpressionUUID->"94150439-83be-4890-9aea-082b5dc3e6e4"], +Cell[631776, 15367, 154, 3, 109, "Input",ExpressionUUID->"3d0ba265-1b31-40bb-9ba6-b5d6b8ec0f46"] } ] *) diff --git a/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_osc_Qw1.nb b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_osc_Qw1.nb index 0dab95d..3f42144 100644 --- a/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_osc_Qw1.nb +++ b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_osc_Qw1.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 690061, 16630] -NotebookOptionsPosition[ 647307, 15945] -NotebookOutlinePosition[ 647763, 15964] -CellTagsIndexPosition[ 647720, 15961] +NotebookDataLength[ 695882, 16656] +NotebookOptionsPosition[ 653017, 15971] +NotebookOutlinePosition[ 653488, 15990] +CellTagsIndexPosition[ 653445, 15987] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -27,16 +27,15 @@ Cell[BoxData[ 3.9920650045886707`*^9, {3.9938046575111637`*^9, 3.993804701607058*^9}, 3.993804733204545*^9, {3.993909737291142*^9, 3.993909742224861*^9}, { 3.993910025500534*^9, 3.99391002667583*^9}}, - CellLabel-> - "In[290]:=",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], + CellLabel->"In[1]:=",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], Cell[BoxData["6.05`"], "Output", CellChangeTimes->{ 3.991320420900818*^9, 3.993804549577532*^9, 3.993804625944013*^9, { 3.993804662482604*^9, 3.993804748770383*^9}, 3.9939096014243507`*^9, - 3.9939096691949368`*^9, 3.993909752549667*^9, 3.993911040282156*^9}, - CellLabel-> - "Out[290]=",ExpressionUUID->"bfe8a91a-961c-482d-97a2-a7c995ffe74f"] + 3.9939096691949368`*^9, 3.993909752549667*^9, 3.993911040282156*^9, + 3.994250297709996*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"7e5e0840-990b-45dd-b63b-e623da0fed80"] }, Open ]], Cell[CellGroupData[{ @@ -45,16 +44,15 @@ Cell[BoxData[ RowBox[{"A", "=", "240"}]], "Input", CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { 3.993909136325391*^9, 3.993909137492978*^9}}, - CellLabel-> - "In[291]:=",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], + CellLabel->"In[2]:=",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], Cell[BoxData["240"], "Output", CellChangeTimes->{ 3.9913196497381973`*^9, 3.9938045496655397`*^9, 3.9938046259897127`*^9, { 3.9938046625249434`*^9, 3.9938047488188868`*^9}, 3.993909601730575*^9, - 3.993909669289562*^9, 3.99390975259161*^9, 3.993911040450327*^9}, - CellLabel-> - "Out[291]=",ExpressionUUID->"5a1c83b9-f479-4a9b-99f1-733098f74ca0"] + 3.993909669289562*^9, 3.99390975259161*^9, 3.993911040450327*^9, + 3.994250297833333*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"6085d694-0c2f-4816-bd19-e8430caf12ad"] }, Open ]], Cell[CellGroupData[{ @@ -63,17 +61,15 @@ Cell[BoxData[ RowBox[{"A1", "=", "156"}]], "Input", CellChangeTimes->{ 3.991798961431202*^9, {3.99380431527282*^9, 3.993804315993903*^9}}, - CellLabel-> - "In[292]:=",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], + CellLabel->"In[3]:=",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], Cell[BoxData["156"], "Output", CellChangeTimes->{ 3.9913196497578354`*^9, 3.993804317319977*^9, 3.9938045496866302`*^9, 3.9938046260086718`*^9, {3.99380466254038*^9, 3.99380474883888*^9}, 3.9939096017486753`*^9, 3.9939096693086853`*^9, 3.9939097526160994`*^9, - 3.993911040468547*^9}, - CellLabel-> - "Out[292]=",ExpressionUUID->"e053eff7-fb3b-4463-b69a-2c6eae4b8a0f"] + 3.993911040468547*^9, 3.994250297853574*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"c3dd7870-add7-45d2-b797-6883285f05e8"] }, Open ]], Cell[CellGroupData[{ @@ -81,16 +77,15 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, - CellLabel-> - "In[293]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], + CellLabel->"In[4]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], Cell[BoxData["0.55`"], "Output", CellChangeTimes->{ 3.991319649777508*^9, 3.993804549706154*^9, 3.9938046260288763`*^9, { 3.993804662560594*^9, 3.993804748856688*^9}, 3.9939096017670803`*^9, - 3.9939096693268347`*^9, 3.993909752633919*^9, 3.9939110404863653`*^9}, - CellLabel-> - "Out[293]=",ExpressionUUID->"9bfcf3e2-21bc-4d82-9c9b-62ec715a96eb"] + 3.9939096693268347`*^9, 3.993909752633919*^9, 3.9939110404863653`*^9, + 3.994250297877002*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"18755524-d3a8-4ab8-80c7-450be75145f9"] }, Open ]], Cell[CellGroupData[{ @@ -102,32 +97,30 @@ Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", - CellLabel-> - "In[294]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], + CellLabel->"In[5]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], Cell[BoxData["0.5455000000000001`"], "Output", CellChangeTimes->{ 3.9913196497965145`*^9, 3.99380454972574*^9, 3.993804626048635*^9, { 3.9938046625774603`*^9, 3.993804748860417*^9}, 3.993909601785378*^9, - 3.993909669330983*^9, 3.9939097526503696`*^9, 3.993911040509864*^9}, - CellLabel-> - "Out[294]=",ExpressionUUID->"67e0d955-77d4-400b-a1d1-6c0d19563e43"] + 3.993909669330983*^9, 3.9939097526503696`*^9, 3.993911040509864*^9, + 3.994250297899599*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"7d459864-1228-4261-abc2-24e347c6aa86"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", - CellLabel-> - "In[295]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], + CellLabel->"In[6]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], Cell[BoxData["0.17`"], "Output", CellChangeTimes->{ 3.9913196498144608`*^9, 3.993804549747018*^9, 3.993804626052534*^9, { 3.9938046625812197`*^9, 3.9938047488891172`*^9}, 3.9939096018028593`*^9, - 3.993909669362465*^9, 3.993909752666353*^9, 3.993911040522245*^9}, - CellLabel-> - "Out[295]=",ExpressionUUID->"3984b6eb-4d13-4dcb-829c-4fdb823c5845"] + 3.993909669362465*^9, 3.993909752666353*^9, 3.993911040522245*^9, + 3.9942502979188843`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"0285a591-7983-45d5-bb33-d610a31fc4b5"] }, Open ]], Cell[CellGroupData[{ @@ -138,16 +131,15 @@ Cell[BoxData[ SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}]}]], "Input", CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, - CellLabel-> - "In[296]:=",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], + CellLabel->"In[7]:=",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], Cell[BoxData["6.244526630021248`"], "Output", CellChangeTimes->{ 3.9913196498225155`*^9, 3.993804549770184*^9, 3.993804626085994*^9, { 3.9938046626047153`*^9, 3.993804748905245*^9}, 3.993909601820876*^9, - 3.9939096693803263`*^9, 3.993909752687901*^9, 3.993911040543586*^9}, - CellLabel-> - "Out[296]=",ExpressionUUID->"c3b970f2-4c56-4d38-b227-ae9a46a1b0d6"] + 3.9939096693803263`*^9, 3.993909752687901*^9, 3.993911040543586*^9, + 3.994250297942239*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"dca7b76c-8bec-4ab5-bf88-bd922a426eeb"] }, Open ]], Cell[CellGroupData[{ @@ -159,16 +151,15 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", - CellLabel-> - "In[297]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], + CellLabel->"In[8]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], Cell[BoxData["5.08024220226995`"], "Output", CellChangeTimes->{ 3.9913196498425236`*^9, 3.9938045497749643`*^9, 3.993804626103525*^9, { 3.993804662619735*^9, 3.993804748921926*^9}, 3.993909601824861*^9, - 3.99390966939812*^9, 3.993909752692038*^9, 3.99391104056579*^9}, - CellLabel-> - "Out[297]=",ExpressionUUID->"af49de57-e28e-47c9-b057-cdde5b162a5d"] + 3.99390966939812*^9, 3.993909752692038*^9, 3.99391104056579*^9, + 3.994250297960202*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"45538162-8789-43ee-a8fd-90e433483836"] }, Open ]], Cell[CellGroupData[{ @@ -177,16 +168,14 @@ Cell[BoxData[ RowBox[{"b1", "=", "0.9831"}]], "Input", CellChangeTimes->{ 3.991799283179735*^9, {3.9938043369460163`*^9, 3.993804343883932*^9}}, - CellLabel-> - "In[298]:=",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], + CellLabel->"In[9]:=",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], Cell[BoxData["0.9831`"], "Output", CellChangeTimes->{ 3.993804549811586*^9, 3.993804626121752*^9, {3.993804662635777*^9, 3.9938047489393063`*^9}, 3.993909601854841*^9, 3.993909669421215*^9, - 3.9939097527133102`*^9, 3.99391104058123*^9}, - CellLabel-> - "Out[298]=",ExpressionUUID->"f696685c-de7a-4b34-a5f0-ee2d475fe22d"] + 3.9939097527133102`*^9, 3.99391104058123*^9, 3.994250297986484*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"116ac38e-7743-4fd5-8830-841de2468a66"] }, Open ]], Cell[CellGroupData[{ @@ -195,48 +184,44 @@ Cell[BoxData[ RowBox[{"b2", "=", "0.463"}]], "Input", CellChangeTimes->{ 3.991799280663351*^9, {3.9938043632365713`*^9, 3.993804381532929*^9}}, - CellLabel-> - "In[299]:=",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], + CellLabel->"In[10]:=",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], Cell[BoxData["0.463`"], "Output", CellChangeTimes->{ 3.993804549830037*^9, 3.993804626139834*^9, {3.993804662651184*^9, 3.993804748955449*^9}, 3.993909601874164*^9, 3.993909669438889*^9, - 3.99390975272956*^9, 3.993911040594975*^9}, - CellLabel-> - "Out[299]=",ExpressionUUID->"9d41845c-7d14-41a1-8892-0ea2ee3b1256"] + 3.99390975272956*^9, 3.993911040594975*^9, 3.99425029801291*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"363c1938-e258-4241-bc2c-b9f732d5c9d6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", - CellLabel-> - "In[300]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], + CellLabel->"In[11]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498927155`*^9, 3.9938045498689833`*^9, 3.993804626160439*^9, { 3.993804662666739*^9, 3.9938047489718924`*^9}, 3.993909601896028*^9, - 3.993909669457499*^9, 3.993909752744871*^9, 3.993911040607565*^9}, - CellLabel-> - "Out[300]=",ExpressionUUID->"29508bda-bb73-4957-84cc-39a52ce48706"] + 3.993909669457499*^9, 3.993909752744871*^9, 3.993911040607565*^9, + 3.994250298027027*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"a54f0d25-0b5c-4de0-baf7-6b69ed952f59"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", - CellLabel-> - "In[301]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], + CellLabel->"In[12]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498996067`*^9, 3.9938045498874207`*^9, 3.9938046261797523`*^9, { 3.993804662682715*^9, 3.993804748988103*^9}, 3.993909601914316*^9, - 3.993909669475305*^9, 3.993909752760817*^9, 3.993911040620604*^9}, - CellLabel-> - "Out[301]=",ExpressionUUID->"29f8f643-604e-48c0-bf8f-65d048f231f1"] + 3.993909669475305*^9, 3.993909752760817*^9, 3.993911040620604*^9, + 3.994250298042767*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"5849de0a-95d2-49d2-a984-d880acec8f88"] }, Open ]], Cell[CellGroupData[{ @@ -260,16 +245,15 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[302]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], + CellLabel->"In[13]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], Cell[BoxData["2.5173601133375656`"], "Output", CellChangeTimes->{ 3.9913197863028755`*^9, 3.9938045499058733`*^9, 3.993804626198407*^9, { 3.9938046626977053`*^9, 3.993804749004431*^9}, 3.9939096019331207`*^9, - 3.993909669493326*^9, 3.993909752780408*^9, 3.993911040633182*^9}, - CellLabel-> - "Out[302]=",ExpressionUUID->"5c404409-2eb4-4f60-a7f5-77ba61fccbae"] + 3.993909669493326*^9, 3.993909752780408*^9, 3.993911040633182*^9, + 3.994250298070181*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"6bfd9645-addb-44ac-9086-0f442d0698c1"] }, Open ]], Cell[CellGroupData[{ @@ -293,16 +277,15 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[303]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], + CellLabel->"In[14]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], Cell[BoxData["1.5234450434796134`"], "Output", CellChangeTimes->{ 3.9913197864610195`*^9, 3.993804549925211*^9, 3.993804626217005*^9, { 3.993804662711796*^9, 3.99380474902066*^9}, 3.993909601952641*^9, - 3.9939096695112753`*^9, 3.993909752793829*^9, 3.993911040650964*^9}, - CellLabel-> - "Out[303]=",ExpressionUUID->"ad3588ca-b01a-4a3b-8fe2-5dd386fab4c7"] + 3.9939096695112753`*^9, 3.993909752793829*^9, 3.993911040650964*^9, + 3.994250298095707*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"4e0c5091-f078-4c07-83b8-ec234e9f2282"] }, Open ]], Cell[CellGroupData[{ @@ -357,16 +340,15 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[304]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], + CellLabel->"In[15]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], Cell[BoxData["0.2814027825454283`"], "Output", CellChangeTimes->{ 3.991319786533783*^9, 3.9938045499441977`*^9, 3.993804626236014*^9, { 3.993804662725235*^9, 3.993804749036929*^9}, 3.993909601972386*^9, - 3.993909669529284*^9, 3.993909752809037*^9, 3.9939110406687326`*^9}, - CellLabel-> - "Out[304]=",ExpressionUUID->"e81f064a-fccc-4129-9b3a-6e7a4c112343"] + 3.993909669529284*^9, 3.993909752809037*^9, 3.9939110406687326`*^9, + 3.9942502981149893`*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"179b658b-e969-4ef8-8f82-d2d331621a3d"] }, Open ]], Cell[CellGroupData[{ @@ -417,17 +399,16 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[305]:=",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], + CellLabel->"In[16]:=",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], Cell[BoxData[ RowBox[{"-", "0.056142152983087`"}]], "Output", CellChangeTimes->{ 3.991319786540777*^9, 3.993804549962688*^9, 3.993804626257918*^9, { 3.993804662739541*^9, 3.993804749053331*^9}, 3.9939096019922533`*^9, - 3.9939096695470543`*^9, 3.993909752823636*^9, 3.993911040685882*^9}, - CellLabel-> - "Out[305]=",ExpressionUUID->"fda63efa-27c6-4deb-82e4-a5e379b7e85c"] + 3.9939096695470543`*^9, 3.993909752823636*^9, 3.993911040685882*^9, + 3.9942502981380997`*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"c434eecd-9383-4f21-9026-0defb5d09250"] }, Open ]], Cell[CellGroupData[{ @@ -478,17 +459,16 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[306]:=",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], + CellLabel->"In[17]:=",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], Cell[BoxData[ RowBox[{"-", "0.3374911667667172`"}]], "Output", CellChangeTimes->{ 3.9913197865777817`*^9, 3.993804549981371*^9, 3.993804626278822*^9, { 3.9938046627542543`*^9, 3.993804749069655*^9}, 3.993909602011525*^9, - 3.993909669564651*^9, 3.993909752838642*^9, 3.993911040699798*^9}, - CellLabel-> - "Out[306]=",ExpressionUUID->"d981f946-6e4a-4ba1-8088-61f809d5a0c4"] + 3.993909669564651*^9, 3.993909752838642*^9, 3.993911040699798*^9, + 3.994250298160254*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"cb6a4231-4517-405f-8f96-5bc29a0bc625"] }, Open ]], Cell[CellGroupData[{ @@ -543,64 +523,60 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[307]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], + CellLabel->"In[18]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], Cell[BoxData["0.5841645161809887`"], "Output", CellChangeTimes->{ 3.9913197866129*^9, 3.99380455000006*^9, 3.993804626300075*^9, { 3.993804662773251*^9, 3.993804749085907*^9}, 3.993909602031176*^9, - 3.9939096695825167`*^9, 3.993909752853649*^9, 3.993911040717505*^9}, - CellLabel-> - "Out[307]=",ExpressionUUID->"a97e9892-d696-4222-9eef-5e31516a2745"] + 3.9939096695825167`*^9, 3.993909752853649*^9, 3.993911040717505*^9, + 3.994250298242064*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"64b7f505-2d73-431b-9793-453fc9d3cda1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", - CellLabel-> - "In[308]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], + CellLabel->"In[19]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786620775*^9, 3.993804550019484*^9, 3.993804626319972*^9, { 3.993804662777142*^9, 3.9938047491020308`*^9}, 3.99390960204895*^9, - 3.9939096695998087`*^9, 3.9939097528680077`*^9, 3.9939110407302427`*^9}, - CellLabel-> - "Out[308]=",ExpressionUUID->"1e7eb844-a0bd-4fb6-9e4a-1ec18f4e8892"] + 3.9939096695998087`*^9, 3.9939097528680077`*^9, 3.9939110407302427`*^9, + 3.994250298267358*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"c6c31a1f-2a12-42fa-a7f0-45e527747710"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fin", "=", "0.09"}]], "Input", - CellLabel-> - "In[309]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], + CellLabel->"In[20]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], Cell[BoxData["0.09`"], "Output", CellChangeTimes->{ 3.991319786657793*^9, 3.9938045500378237`*^9, 3.993804626339315*^9, { 3.993804662793344*^9, 3.99380474911817*^9}, 3.993909602068466*^9, - 3.9939096696185913`*^9, 3.993909752884066*^9, 3.9939110407465763`*^9}, - CellLabel-> - "Out[309]=",ExpressionUUID->"cfdcfe7d-5525-4642-8873-7a956588d382"] + 3.9939096696185913`*^9, 3.993909752884066*^9, 3.9939110407465763`*^9, + 3.994250304226118*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"238a8dab-0727-4b3e-81f0-4bc10b756d55"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffin", "=", "0.42"}]], "Input", - CellLabel-> - "In[310]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], + CellLabel->"In[21]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], Cell[BoxData["0.42`"], "Output", CellChangeTimes->{ 3.9913197866657925`*^9, 3.9938045500560837`*^9, 3.9938046263600817`*^9, { 3.99380466280895*^9, 3.993804749134166*^9}, 3.993909602086402*^9, - 3.9939096696362677`*^9, 3.99390975290001*^9, 3.993911040760674*^9}, - CellLabel-> - "Out[310]=",ExpressionUUID->"cb2eca35-3747-48cb-b0ff-3555e17cd729"] + 3.9939096696362677`*^9, 3.99390975290001*^9, 3.993911040760674*^9, + 3.9942503046535*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"898bb847-a24e-4fbd-9060-9d0e56708029"] }, Open ]], Cell[CellGroupData[{ @@ -609,33 +585,31 @@ Cell[BoxData[ RowBox[{"fex", "=", RowBox[{"-", "2.59"}]}]], "Input", CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, - CellLabel-> - "In[311]:=",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], + CellLabel->"In[22]:=",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], Cell[BoxData[ RowBox[{"-", "2.59`"}]], "Output", CellChangeTimes->{ 3.9913197866996*^9, 3.993804550075344*^9, 3.993804626383381*^9, { 3.99380466282749*^9, 3.993804749150152*^9}, 3.993909602104745*^9, - 3.9939096696539907`*^9, 3.993909752916039*^9, 3.993911040772584*^9}, - CellLabel-> - "Out[311]=",ExpressionUUID->"acce0cfc-40b0-46a7-a47f-63f0bbdd1c00"] + 3.9939096696539907`*^9, 3.993909752916039*^9, 3.993911040772584*^9, + 3.994250304675584*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"8af50e11-159b-4d05-92a9-be85a0e225a0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffex", "=", "0.54"}]], "Input", - CellLabel-> - "In[312]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], + CellLabel->"In[23]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], Cell[BoxData["0.54`"], "Output", CellChangeTimes->{ 3.9913197867406044`*^9, 3.993804550093996*^9, 3.99380462640412*^9, { 3.9938046628451138`*^9, 3.993804749168808*^9}, 3.993909602124238*^9, - 3.993909669671417*^9, 3.9939097529322453`*^9, 3.993911040786252*^9}, - CellLabel-> - "Out[312]=",ExpressionUUID->"8b7164b7-c4e6-47e3-8b21-346aa5cb62db"] + 3.993909669671417*^9, 3.9939097529322453`*^9, 3.993911040786252*^9, + 3.994250304693717*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"f10f6348-0ebb-4b7a-914d-83d467bfbeb1"] }, Open ]], Cell[CellGroupData[{ @@ -645,16 +619,14 @@ Cell[BoxData[ CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { 3.9938046144530077`*^9, 3.9938046145855627`*^9}}, - CellLabel-> - "In[313]:=",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], + CellLabel->"In[24]:=",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], Cell[BoxData["66"], "Output", CellChangeTimes->{ 3.9913197867861958`*^9, 3.993804626423663*^9, {3.993804662861299*^9, 3.99380474918727*^9}, 3.993909602142963*^9, 3.99390966968908*^9, - 3.993909752947946*^9, 3.99391104079755*^9}, - CellLabel-> - "Out[313]=",ExpressionUUID->"00c43026-2011-420a-9a45-ff2958d4751e"] + 3.993909752947946*^9, 3.99391104079755*^9, 3.9942503047758503`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"4b68035c-c7f7-4c98-9c21-b3773b8f4021"] }, Open ]], Cell[CellGroupData[{ @@ -664,16 +636,15 @@ Cell[BoxData[ RowBox[{"94", "-", "Z1"}]}]], "Input", CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, 3.9916443064841423`*^9, {3.99380461799697*^9, 3.993804618062627*^9}}, - CellLabel-> - "In[314]:=",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], + CellLabel->"In[25]:=",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], Cell[BoxData["28"], "Output", CellChangeTimes->{ 3.9913197867928696`*^9, 3.9938045501483994`*^9, 3.993804626442574*^9, { 3.993804662877561*^9, 3.9938047492047462`*^9}, 3.993909602161409*^9, - 3.993909669707423*^9, 3.993909752964058*^9, 3.993911040808663*^9}, - CellLabel-> - "Out[314]=",ExpressionUUID->"7927fe89-097d-476f-a75b-264cdb99e18c"] + 3.993909669707423*^9, 3.993909752964058*^9, 3.993911040808663*^9, + 3.994250304810886*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"81d68b50-95aa-411f-9942-b20d36b425a4"] }, Open ]], Cell[CellGroupData[{ @@ -682,16 +653,15 @@ Cell[BoxData[ RowBox[{"A2", "=", RowBox[{"A", "-", "A1"}]}]], "Input", CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, - CellLabel-> - "In[315]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], + CellLabel->"In[26]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], Cell[BoxData["84"], "Output", CellChangeTimes->{ 3.991319786827894*^9, 3.993804550167096*^9, 3.993804626459854*^9, { 3.993804662896564*^9, 3.9938047492214317`*^9}, 3.993909602179817*^9, - 3.993909669724697*^9, 3.993909752980503*^9, 3.993911040820331*^9}, - CellLabel-> - "Out[315]=",ExpressionUUID->"852532e5-89ce-4119-9e1c-f3de9400d6dd"] + 3.993909669724697*^9, 3.993909752980503*^9, 3.993911040820331*^9, + 3.994250304835018*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"8a6c5f69-87f9-4c71-a3cf-06d4a458e7ac"] }, Open ]], Cell[CellGroupData[{ @@ -706,16 +676,15 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[316]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], + CellLabel->"In[27]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], Cell[BoxData["0.11153846153846153`"], "Output", CellChangeTimes->{ 3.9913197868648605`*^9, 3.9938045501856823`*^9, 3.993804626476894*^9, { 3.993804662912559*^9, 3.993804749238111*^9}, 3.993909602199831*^9, - 3.993909669742579*^9, 3.9939097529958878`*^9, 3.993911040829289*^9}, - CellLabel-> - "Out[316]=",ExpressionUUID->"a9a96088-ba6f-4e12-9a2a-82e9f806b5cc"] + 3.993909669742579*^9, 3.9939097529958878`*^9, 3.993911040829289*^9, + 3.994250304857027*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"eee7a035-d493-48cb-b590-7e03a5b2de23"] }, Open ]], Cell[CellGroupData[{ @@ -730,17 +699,16 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[317]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], + CellLabel->"In[28]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], Cell[BoxData[ RowBox[{"-", "2.562307692307692`"}]], "Output", CellChangeTimes->{ 3.9913197868718567`*^9, 3.993804550204549*^9, 3.9938046264931793`*^9, { 3.993804662930933*^9, 3.993804749256987*^9}, 3.993909602217969*^9, - 3.993909669760494*^9, 3.99390975301192*^9, 3.993911040848421*^9}, - CellLabel-> - "Out[317]=",ExpressionUUID->"51d6a5d5-7e18-402f-97ca-ee722797b03d"] + 3.993909669760494*^9, 3.99390975301192*^9, 3.993911040848421*^9, + 3.994250304879362*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"6ac3385f-0f8f-46d1-800c-b44d5b24484e"] }, Open ]], Cell[CellGroupData[{ @@ -771,16 +739,15 @@ Cell[BoxData[ CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, - CellLabel-> - "In[318]:=",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], + CellLabel->"In[29]:=",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], Cell[BoxData["22.163907548137733`"], "Output", CellChangeTimes->{ 3.9913197869068584`*^9, 3.993804550224925*^9, 3.993804626512244*^9, { 3.993804662948985*^9, 3.993804749273611*^9}, 3.993909602237144*^9, - 3.99390966977844*^9, 3.993909753027061*^9, 3.993911040863247*^9}, - CellLabel-> - "Out[318]=",ExpressionUUID->"7c73e795-6feb-48ad-ba7f-4b3ebf476314"] + 3.99390966977844*^9, 3.993909753027061*^9, 3.993911040863247*^9, + 3.994250304916708*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"5e4e65ff-6a61-4266-8ca1-d62c0de021e2"] }, Open ]], Cell[CellGroupData[{ @@ -788,16 +755,15 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, - CellLabel-> - "In[319]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], + CellLabel->"In[30]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786940857*^9, 3.993804550242552*^9, 3.993804626529005*^9, { 3.993804662966734*^9, 3.9938047492900057`*^9}, 3.993909602255596*^9, - 3.993909669800799*^9, 3.993909753041724*^9, 3.9939110408795156`*^9}, - CellLabel-> - "Out[319]=",ExpressionUUID->"38deb10c-2d56-4d12-9e1d-e950eb2a7e36"] + 3.993909669800799*^9, 3.993909753041724*^9, 3.9939110408795156`*^9, + 3.994250304950794*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"0d72f375-7a0b-4d4b-a406-7bf88d6bcdce"] }, Open ]], Cell[CellGroupData[{ @@ -807,22 +773,19 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { 3.9938043992805843`*^9, 3.993804401771452*^9}}, - CellLabel-> - "In[320]:=",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], + CellLabel->"In[31]:=",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], Cell[BoxData["1.653`"], "Output", CellChangeTimes->{ 3.993804550280451*^9, 3.993804626545594*^9, {3.993804662983712*^9, 3.9938047493074627`*^9}, 3.9939096022742043`*^9, 3.99390966981877*^9, - 3.9939097530579777`*^9, 3.993911040894527*^9}, - CellLabel-> - "Out[320]=",ExpressionUUID->"0f8c8b41-799e-46e0-b1a5-0c58fc695566"] + 3.9939097530579777`*^9, 3.993911040894527*^9, 3.994250304983214*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"026e340f-cd4d-4e3b-97f0-ee19f6d8eb10"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, - CellLabel-> - "In[321]:=",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], + CellLabel->"In[32]:=",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], Cell[CellGroupData[{ @@ -831,22 +794,19 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { 3.9938044044051847`*^9, 3.993804405718573*^9}}, - CellLabel-> - "In[322]:=",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], + CellLabel->"In[33]:=",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], Cell[BoxData["0.855`"], "Output", CellChangeTimes->{ 3.9938045503168097`*^9, 3.993804626574059*^9, {3.993804663013727*^9, 3.993804749370492*^9}, 3.993909602333745*^9, 3.99390966987148*^9, - 3.9939097530831842`*^9, 3.993911040917564*^9}, - CellLabel-> - "Out[322]=",ExpressionUUID->"be181857-1700-4f40-9804-fb3f38c7d9bd"] + 3.9939097530831842`*^9, 3.993911040917564*^9, 3.99425030503701*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"ba3103e3-527c-45a0-aaaa-2172df42cd25"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, - CellLabel-> - "In[323]:=",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], + CellLabel->"In[34]:=",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], Cell[CellGroupData[{ @@ -855,22 +815,19 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { 3.9938044089096622`*^9, 3.993804410585486*^9}}, - CellLabel-> - "In[324]:=",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], + CellLabel->"In[35]:=",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], Cell[BoxData["2.405`"], "Output", CellChangeTimes->{ 3.993804550350713*^9, 3.993804626598034*^9, {3.993804663037463*^9, 3.993804749435276*^9}, 3.9939096023888474`*^9, 3.993909669925479*^9, - 3.9939097531059*^9, 3.993911040939246*^9}, - CellLabel-> - "Out[324]=",ExpressionUUID->"0348e624-9ea7-4810-bd70-d987f1999199"] + 3.9939097531059*^9, 3.993911040939246*^9, 3.994250305068447*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"9e8846e1-2c44-4d00-ba6a-e214965635ef"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, - CellLabel-> - "In[325]:=",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], + CellLabel->"In[36]:=",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], Cell[CellGroupData[{ @@ -879,22 +836,19 @@ Cell[BoxData[ CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, 3.991799359954439*^9, {3.993804414830567*^9, 3.993804416147113*^9}}, - CellLabel-> - "In[326]:=",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], + CellLabel->"In[37]:=",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], Cell[BoxData["1.225`"], "Output", CellChangeTimes->{ 3.993804550383745*^9, 3.993804626621963*^9, {3.993804663060033*^9, 3.9938047494929237`*^9}, 3.9939096024465313`*^9, 3.993909669980788*^9, - 3.993909753130068*^9, 3.993911040961238*^9}, - CellLabel-> - "Out[326]=",ExpressionUUID->"9c230e8e-38a6-466b-8e11-40289f94ddbb"] + 3.993909753130068*^9, 3.993911040961238*^9, 3.994250305160494*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"ab45e1b1-68df-44a7-b63b-785f4f6db1cc"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, - CellLabel-> - "In[327]:=",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], + CellLabel->"In[38]:=",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], Cell[CellGroupData[{ @@ -903,22 +857,19 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, 3.991718016467348*^9, 3.991799361414671*^9, {3.993804418872067*^9, 3.9938044202542753`*^9}}, - CellLabel-> - "In[328]:=",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], + CellLabel->"In[39]:=",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], Cell[BoxData["1.63`"], "Output", CellChangeTimes->{ 3.993804550416999*^9, 3.993804626645709*^9, {3.9938046630845337`*^9, 3.993804749547261*^9}, 3.993909602527773*^9, 3.993909670035091*^9, - 3.993909753153574*^9, 3.99391104098392*^9}, - CellLabel-> - "Out[328]=",ExpressionUUID->"3ad237c9-253f-4ed3-8cf7-28dc852b73e2"] + 3.993909753153574*^9, 3.99391104098392*^9, 3.994250305192685*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"05c6cf21-9caa-47b7-8553-9938ab825219"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, - CellLabel-> - "In[329]:=",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], + CellLabel->"In[40]:=",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], Cell[CellGroupData[{ @@ -927,22 +878,19 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993804423858293*^9, 3.993804426562767*^9}}, - CellLabel-> - "In[330]:=",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], + CellLabel->"In[41]:=",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], Cell[BoxData["0.5571`"], "Output", CellChangeTimes->{ 3.993804550449337*^9, 3.993804626671207*^9, {3.993804663115242*^9, 3.993804749603999*^9}, 3.993909602589055*^9, 3.9939096700891027`*^9, - 3.993909753176607*^9, 3.9939110410128717`*^9}, - CellLabel-> - "Out[330]=",ExpressionUUID->"13ac80b4-7bf6-458a-a983-fab5ead8ef5a"] + 3.993909753176607*^9, 3.9939110410128717`*^9, 3.994250305219616*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"a6150ddb-bf86-4692-be38-a88e69cfb7f2"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, - CellLabel-> - "In[331]:=",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], + CellLabel->"In[42]:=",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], Cell[CellGroupData[{ @@ -951,22 +899,19 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.9938044301504927`*^9, 3.993804433535384*^9}}, - CellLabel-> - "In[332]:=",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], + CellLabel->"In[43]:=",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], Cell[BoxData["1.82`"], "Output", CellChangeTimes->{ 3.993804550483719*^9, 3.993804626698537*^9, {3.993804663139299*^9, 3.993804749658854*^9}, 3.993909602653262*^9, 3.993909670143072*^9, - 3.993909753199719*^9, 3.993911041041524*^9}, - CellLabel-> - "Out[332]=",ExpressionUUID->"47c1d714-42c6-4d5a-80d4-9bf1a6a91f34"] + 3.993909753199719*^9, 3.993911041041524*^9, 3.994250305246361*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"18b63bd3-0a9b-445a-917d-363c571f476c"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, - CellLabel-> - "In[333]:=",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], + CellLabel->"In[44]:=",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], Cell[CellGroupData[{ @@ -974,22 +919,19 @@ Cell[BoxData[ RowBox[{"nn2", "=", "1.82"}]], "Input", CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, 3.9917993660901737`*^9, {3.993804436228294*^9, 3.993804438250544*^9}}, - CellLabel-> - "In[334]:=",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], + CellLabel->"In[45]:=",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], Cell[BoxData["1.82`"], "Output", CellChangeTimes->{ 3.993804550516501*^9, 3.993804626722493*^9, {3.9938046631629744`*^9, 3.993804749712779*^9}, 3.9939096027072487`*^9, 3.993909670196845*^9, - 3.9939097532228928`*^9, 3.9939110410620947`*^9}, - CellLabel-> - "Out[334]=",ExpressionUUID->"cb183a1e-c97a-4273-9f61-ac82f5744288"] + 3.9939097532228928`*^9, 3.9939110410620947`*^9, 3.994250305295092*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"c9875003-ba1c-4d2b-8d9d-e42420e0710d"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, - CellLabel-> - "In[335]:=",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], + CellLabel->"In[46]:=",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ @@ -1478,17 +1420,16 @@ uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== "], - CellLabel-> - "In[336]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], + CellLabel->"In[47]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], Cell[BoxData[ RowBox[{"-", "0.04675250913077061`"}]], "Output", CellChangeTimes->{ 3.991319787430073*^9, 3.993804550599751*^9, 3.993804626769621*^9, { 3.99380466321212*^9, 3.993804749779405*^9}, 3.993909602821623*^9, - 3.9939096702786417`*^9, 3.993909753275091*^9, 3.993911041160969*^9}, - CellLabel-> - "Out[336]=",ExpressionUUID->"9fdeb3d6-6f8d-4813-9463-eb0b5bcf954f"] + 3.9939096702786417`*^9, 3.993909753275091*^9, 3.993911041160969*^9, + 3.9942503055243196`*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"45f99ce2-edeb-496f-a527-9c3c649b6167"] }, Open ]], Cell[CellGroupData[{ @@ -1982,16 +1923,15 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[337]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], + CellLabel->"In[48]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], Cell[BoxData["0.08542989528290149`"], "Output", CellChangeTimes->{ 3.991319787574972*^9, 3.9938045506724253`*^9, 3.993804626799774*^9, { 3.993804663242297*^9, 3.993804749831417*^9}, 3.993909602850985*^9, - 3.993909670308428*^9, 3.99390975330634*^9, 3.993911041227948*^9}, - CellLabel-> - "Out[337]=",ExpressionUUID->"d4dfb4f1-df43-4c9a-8c38-be7975236feb"] + 3.993909670308428*^9, 3.99390975330634*^9, 3.993911041227948*^9, + 3.994250305630027*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"09ac1b92-e298-4136-a056-e9019816992a"] }, Open ]], Cell[CellGroupData[{ @@ -2479,17 +2419,16 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[338]:=",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], + CellLabel->"In[49]:=",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], Cell[BoxData[ RowBox[{"-", "92.97992176536582`"}]], "Output", CellChangeTimes->{ 3.991319787641424*^9, 3.9938045506993027`*^9, 3.993804626828765*^9, { 3.99380466327107*^9, 3.99380474985798*^9}, 3.993909602878909*^9, - 3.9939096703348618`*^9, 3.993909753333283*^9, 3.99391104129389*^9}, - CellLabel-> - "Out[338]=",ExpressionUUID->"e8732f27-b3b9-4d8b-8ffb-d51402fa2408"] + 3.9939096703348618`*^9, 3.993909753333283*^9, 3.99391104129389*^9, + 3.994250305852057*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"8e648c01-993b-442d-b400-cff2b1fa4851"] }, Open ]], Cell[CellGroupData[{ @@ -3047,17 +2986,16 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[339]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], + CellLabel->"In[50]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], Cell[BoxData[ RowBox[{"-", "58.84836946427625`"}]], "Output", CellChangeTimes->{ 3.991319787711939*^9, 3.993804550730234*^9, 3.993804626860573*^9, { 3.99380466335039*^9, 3.993804749888824*^9}, 3.9939096029089117`*^9, - 3.9939096703655453`*^9, 3.993909753364204*^9, 3.9939110413816547`*^9}, - CellLabel-> - "Out[339]=",ExpressionUUID->"e8ad7708-77f4-4fe2-b342-af8dbc55d0c3"] + 3.9939096703655453`*^9, 3.993909753364204*^9, 3.9939110413816547`*^9, + 3.9942503059876137`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"7a85a12d-8327-494d-970e-4c4b46a69560"] }, Open ]], Cell[CellGroupData[{ @@ -3615,17 +3553,16 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[340]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], + CellLabel->"In[51]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], Cell[BoxData[ RowBox[{"-", "175.78557664639112`"}]], "Output", CellChangeTimes->{ 3.9913197877723045`*^9, 3.993804550761911*^9, 3.993804626893774*^9, { 3.993804663389638*^9, 3.993804749919907*^9}, 3.9939096029398603`*^9, - 3.993909670396442*^9, 3.993909753395891*^9, 3.993911041465062*^9}, - CellLabel-> - "Out[340]=",ExpressionUUID->"52086ec7-64a7-4ef2-adb5-6f895c2cd88e"] + 3.993909670396442*^9, 3.993909753395891*^9, 3.993911041465062*^9, + 3.994250306116283*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"fb5fb639-7f8e-45cf-8b38-259346c82d3f"] }, Open ]], Cell[CellGroupData[{ @@ -4256,49 +4193,46 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[341]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], + CellLabel->"In[52]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], Cell[BoxData[ RowBox[{"-", "221.57551938396955`"}]], "Output", CellChangeTimes->{ 3.991319787833355*^9, 3.993804550797638*^9, 3.993804626930235*^9, { 3.993804663472403*^9, 3.993804749955412*^9}, 3.993909602975071*^9, - 3.9939096704323187`*^9, 3.993909753433277*^9, 3.9939110415477953`*^9}, - CellLabel-> - "Out[341]=",ExpressionUUID->"51afe6c6-8696-49f6-81bc-dee7e3c3fa3d"] + 3.9939096704323187`*^9, 3.993909753433277*^9, 3.9939110415477953`*^9, + 3.994250306261078*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"d2972e28-d0f5-4284-a4d5-e35b18a94433"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U21", "=", "0"}]], "Input", - CellLabel-> - "In[342]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], + CellLabel->"In[53]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210013676`*^9, 3.9938045508194923`*^9, 3.993804626946419*^9, { 3.993804663488306*^9, 3.993804749974567*^9}, 3.9939096029931*^9, - 3.993909670451165*^9, 3.9939097534481*^9, 3.993911041562955*^9}, - CellLabel-> - "Out[342]=",ExpressionUUID->"c00e6e0e-cc43-4657-8b9b-2c6da5ad5a94"] + 3.993909670451165*^9, 3.9939097534481*^9, 3.993911041562955*^9, + 3.994250306351131*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"ee6420d3-386f-4054-8250-f925b1cf0f17"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U22", "=", "0"}]], "Input", - CellLabel-> - "In[343]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], + CellLabel->"In[54]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210355663`*^9, 3.993804550838839*^9, 3.99380462696198*^9, { 3.993804663542288*^9, 3.993804749990815*^9}, 3.9939096030110683`*^9, - 3.993909670469376*^9, 3.993909753462414*^9, 3.993911041578163*^9}, - CellLabel-> - "Out[343]=",ExpressionUUID->"d8321473-7421-4f13-8278-ddc47a846fe6"] + 3.993909670469376*^9, 3.993909753462414*^9, 3.993911041578163*^9, + 3.994250306377329*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"e8bd61d2-91d6-4298-ace5-dc830e163049"] }, Open ]], Cell[CellGroupData[{ @@ -4342,16 +4276,15 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[344]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], + CellLabel->"In[55]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], Cell[BoxData["111.7060296377673`"], "Output", CellChangeTimes->{ 3.991320421068556*^9, 3.9938045508585377`*^9, 3.993804626991984*^9, { 3.993804663557494*^9, 3.9938047500074787`*^9}, 3.99390960303067*^9, - 3.993909670487976*^9, 3.993909753477995*^9, 3.993911041596219*^9}, - CellLabel-> - "Out[344]=",ExpressionUUID->"323b0ebf-d356-4fe1-a9e8-da32d91118bc"] + 3.993909670487976*^9, 3.993909753477995*^9, 3.993911041596219*^9, + 3.9942503063976*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"d7aa6632-0697-4364-a73e-7540bf139bfe"] }, Open ]], Cell[CellGroupData[{ @@ -4391,17 +4324,16 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[345]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], + CellLabel->"In[56]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], Cell[BoxData[ RowBox[{"-", "116.92037152462031`"}]], "Output", CellChangeTimes->{ 3.991320421098543*^9, 3.993804550878648*^9, 3.993804627006651*^9, { 3.99380466357337*^9, 3.993804750023952*^9}, 3.993909603048832*^9, - 3.993909670506846*^9, 3.99390975349363*^9, 3.993911041616233*^9}, - CellLabel-> - "Out[345]=",ExpressionUUID->"8cf89501-6bc0-4d5e-97f3-6244f92b8ab0"] + 3.993909670506846*^9, 3.99390975349363*^9, 3.993911041616233*^9, + 3.994250306425074*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"dad4c560-fa3e-491c-91ef-4d76f5728eba"] }, Open ]], Cell[CellGroupData[{ @@ -4445,108 +4377,101 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[346]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], + CellLabel->"In[57]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], Cell[BoxData["187.12903971509587`"], "Output", CellChangeTimes->{ 3.9913204211275444`*^9, 3.9938045509027987`*^9, 3.993804627020084*^9, { 3.993804663589897*^9, 3.993804750040456*^9}, 3.9939096030676117`*^9, - 3.9939096705252743`*^9, 3.993909753508572*^9, 3.993911041630309*^9}, - CellLabel-> - "Out[346]=",ExpressionUUID->"3d3703ac-6357-44ec-865c-c87d37909a26"] + 3.9939096705252743`*^9, 3.993909753508572*^9, 3.993911041630309*^9, + 3.994250306445006*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"ecec6da1-8557-442f-bf3a-76a8353fd3a4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c11"], "Input", - CellLabel-> - "In[347]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], + CellLabel->"In[58]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], Cell[BoxData["0.2814027825454283`"], "Output", CellChangeTimes->{ 3.9913204211385536`*^9, 3.9938045509220467`*^9, 3.993804627033495*^9, { 3.993804663606344*^9, 3.9938047500576067`*^9}, 3.993909603085306*^9, - 3.993909670543174*^9, 3.993909753523663*^9, 3.993911041648457*^9}, - CellLabel-> - "Out[347]=",ExpressionUUID->"f3f34492-b518-4fed-af47-4bc06ab7eb38"] + 3.993909670543174*^9, 3.993909753523663*^9, 3.993911041648457*^9, + 3.9942503064647207`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"01e44971-fe53-432d-ae4c-1d895982c40e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c12"], "Input", - CellLabel-> - "In[348]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], + CellLabel->"In[59]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], Cell[BoxData[ RowBox[{"-", "0.056142152983087`"}]], "Output", CellChangeTimes->{ 3.9913204211683464`*^9, 3.993804550940889*^9, 3.993804627047104*^9, { 3.99380466362283*^9, 3.993804750074596*^9}, 3.993909603103224*^9, - 3.993909670561534*^9, 3.993909753539481*^9, 3.99391104166289*^9}, - CellLabel-> - "Out[348]=",ExpressionUUID->"35ca0862-e112-48d8-b6d4-fe2a52cf5875"] + 3.993909670561534*^9, 3.993909753539481*^9, 3.99391104166289*^9, + 3.9942503064897842`*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"5f94c9c5-fa05-46e1-86ce-25a37c7ae5c3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c21"], "Input", - CellLabel-> - "In[349]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], + CellLabel->"In[60]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], Cell[BoxData[ RowBox[{"-", "0.3374911667667172`"}]], "Output", CellChangeTimes->{ 3.991320421199068*^9, 3.99380455096201*^9, 3.993804627060543*^9, { 3.9938046636401176`*^9, 3.9938047500897923`*^9}, 3.993909603121352*^9, - 3.993909670579809*^9, 3.993909753557192*^9, 3.993911041676931*^9}, - CellLabel-> - "Out[349]=",ExpressionUUID->"b391c8a9-a61c-4a3d-92df-47ac3772b7e2"] + 3.993909670579809*^9, 3.993909753557192*^9, 3.993911041676931*^9, + 3.994250306511787*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"4d5599f1-19c9-457d-8956-5771262fc7bf"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c22"], "Input", - CellLabel-> - "In[350]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], + CellLabel->"In[61]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], Cell[BoxData["0.5841645161809887`"], "Output", CellChangeTimes->{ 3.991320421228037*^9, 3.993804550980524*^9, 3.9938046270751667`*^9, { 3.993804663656624*^9, 3.993804750107565*^9}, 3.993909603139456*^9, - 3.993909670598647*^9, 3.9939097536021843`*^9, 3.993911041688751*^9}, - CellLabel-> - "Out[350]=",ExpressionUUID->"3db68da0-548f-48c5-923b-9fde0e728483"] + 3.993909670598647*^9, 3.9939097536021843`*^9, 3.993911041688751*^9, + 3.9942503065323753`*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"c967a0fa-3249-40a6-981c-853fb2662b0d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w1"], "Input", - CellLabel-> - "In[351]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], + CellLabel->"In[62]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], Cell[BoxData["2.5173601133375656`"], "Output", CellChangeTimes->{ 3.9913204212585373`*^9, 3.993804550999857*^9, 3.993804627093104*^9, { 3.993804663673789*^9, 3.993804750123993*^9}, 3.993909603159047*^9, - 3.9939096706237583`*^9, 3.993909753618161*^9, 3.9939110417032013`*^9}, - CellLabel-> - "Out[351]=",ExpressionUUID->"f4eb2573-5af2-4ee9-b3b7-4ddf5fed63d2"] + 3.9939096706237583`*^9, 3.993909753618161*^9, 3.9939110417032013`*^9, + 3.994250306561907*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"430be51d-c1a6-43b8-a219-95b0a34b0192"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w2"], "Input", - CellLabel-> - "In[352]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], + CellLabel->"In[63]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], Cell[BoxData["1.5234450434796134`"], "Output", CellChangeTimes->{ 3.9913204212884274`*^9, 3.993804551018916*^9, 3.993804627108033*^9, { 3.993804663692298*^9, 3.993804750140585*^9}, 3.99390960317778*^9, - 3.993909670643187*^9, 3.9939097536363897`*^9, 3.993911041720379*^9}, - CellLabel-> - "Out[352]=",ExpressionUUID->"264a4a7e-61ea-4427-9ff1-93ff6733efe8"] + 3.993909670643187*^9, 3.9939097536363897`*^9, 3.993911041720379*^9, + 3.994250306619422*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"a78c46b7-5034-49ad-8ca4-d4be2b3f6d48"] }, Open ]], Cell[CellGroupData[{ @@ -4567,17 +4492,16 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", - CellLabel-> - "In[353]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], + CellLabel->"In[64]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], Cell[BoxData[ RowBox[{"-", "18.177896388526342`"}]], "Output", CellChangeTimes->{ 3.9913204213185234`*^9, 3.993804551037992*^9, 3.993804627123701*^9, { 3.993804663711438*^9, 3.993804750156764*^9}, 3.993909603196027*^9, - 3.993909670663684*^9, 3.99390975365348*^9, 3.9939110417352552`*^9}, - CellLabel-> - "Out[353]=",ExpressionUUID->"0d90d79e-7718-44ef-8536-c8b70f3e3f93"] + 3.993909670663684*^9, 3.99390975365348*^9, 3.9939110417352552`*^9, + 3.994250306646943*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"0a508625-23df-4416-8169-4059fb9c2fa3"] }, Open ]], Cell[CellGroupData[{ @@ -4598,17 +4522,16 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", - CellLabel-> - "In[354]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], + CellLabel->"In[65]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], Cell[BoxData[ RowBox[{"-", "4.422931821128753`"}]], "Output", CellChangeTimes->{ 3.991320421349531*^9, 3.99380455105733*^9, 3.993804627139119*^9, { 3.993804663729148*^9, 3.993804750173326*^9}, 3.993909603216249*^9, - 3.993909670683181*^9, 3.993909753671298*^9, 3.993911041748139*^9}, - CellLabel-> - "Out[354]=",ExpressionUUID->"5899783c-02e0-476e-bb06-ab1ff1675256"] + 3.993909670683181*^9, 3.993909753671298*^9, 3.993911041748139*^9, + 3.9942503066682167`*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"1aedbfbd-4581-4324-ae58-d596e2b485c9"] }, Open ]], Cell[CellGroupData[{ @@ -4673,16 +4596,15 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[355]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], + CellLabel->"In[66]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], Cell[BoxData["93.52813324924097`"], "Output", CellChangeTimes->{ 3.9913204213784294`*^9, 3.9938045510774317`*^9, 3.993804627154879*^9, { 3.993804663746785*^9, 3.993804750189831*^9}, 3.993909603237997*^9, - 3.99390967070298*^9, 3.993909753690928*^9, 3.9939110417615643`*^9}, - CellLabel-> - "Out[355]=",ExpressionUUID->"4915d6ea-6e4d-4198-acb3-1942d38466f3"] + 3.99390967070298*^9, 3.993909753690928*^9, 3.9939110417615643`*^9, + 3.994250306714437*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"c2f114bd-5372-4009-8d47-e4b090e8144f"] }, Open ]], Cell[CellGroupData[{ @@ -4723,17 +4645,16 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[356]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], + CellLabel->"In[67]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], Cell[BoxData[ RowBox[{"-", "116.92037152462031`"}]], "Output", CellChangeTimes->{ 3.9913204213904285`*^9, 3.993804551098919*^9, 3.99380462716993*^9, { 3.99380466376478*^9, 3.993804750205999*^9}, 3.9939096032579308`*^9, - 3.99390967072291*^9, 3.993909753708663*^9, 3.993911041777234*^9}, - CellLabel-> - "Out[356]=",ExpressionUUID->"defcebc4-9f3c-45b6-8c27-fc291aebc3f5"] + 3.99390967072291*^9, 3.993909753708663*^9, 3.993911041777234*^9, + 3.9942503067316723`*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"5c07b3d9-b039-4cdc-95cc-220221f8a0d1"] }, Open ]], Cell[CellGroupData[{ @@ -4799,16 +4720,15 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[357]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], + CellLabel->"In[68]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], Cell[BoxData["182.70610789396713`"], "Output", CellChangeTimes->{ 3.991320421419428*^9, 3.993804551121139*^9, 3.993804627185237*^9, { 3.9938046637699213`*^9, 3.993804750221984*^9}, 3.993909603279203*^9, - 3.993909670743991*^9, 3.993909753728705*^9, 3.9939110417957993`*^9}, - CellLabel-> - "Out[357]=",ExpressionUUID->"a8fb87c6-4d4f-43d5-9023-2eddf26cf8cb"] + 3.993909670743991*^9, 3.993909753728705*^9, 3.9939110417957993`*^9, + 3.99425030674656*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"b022353b-b48c-4d59-af9d-202d94913bc8"] }, Open ]], Cell[CellGroupData[{ @@ -4866,16 +4786,15 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[358]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], + CellLabel->"In[69]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], Cell[BoxData["150.0362849602646`"], "Output", CellChangeTimes->{ 3.9913204214494324`*^9, 3.9938045511434107`*^9, 3.993804627199387*^9, { 3.9938046637889233`*^9, 3.993804750238797*^9}, 3.993909603297597*^9, - 3.993909670763399*^9, 3.993909753746546*^9, 3.9939110418163233`*^9}, - CellLabel-> - "Out[358]=",ExpressionUUID->"4e2c9538-d90f-4a4f-8ef7-9ccd846e9fbf"] + 3.993909670763399*^9, 3.993909753746546*^9, 3.9939110418163233`*^9, + 3.994250306764503*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"5ec90259-67e4-4516-ad05-3145806602db"] }, Open ]], Cell[CellGroupData[{ @@ -4933,16 +4852,15 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[359]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], + CellLabel->"In[70]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], Cell[BoxData["845.8339546196385`"], "Output", CellChangeTimes->{ 3.991320421481529*^9, 3.993804551165799*^9, 3.993804627215629*^9, { 3.9938046638111277`*^9, 3.993804750255252*^9}, 3.993909603318231*^9, - 3.993909670782775*^9, 3.993909753763286*^9, 3.993911041829805*^9}, - CellLabel-> - "Out[359]=",ExpressionUUID->"7cec3038-b116-4b3b-b343-f6f62c2f4881"] + 3.993909670782775*^9, 3.993909753763286*^9, 3.993911041829805*^9, + 3.994250306783534*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"0fefaa22-8c66-465d-983b-8324af8a9d9b"] }, Open ]], Cell[CellGroupData[{ @@ -4951,22 +4869,19 @@ Cell[BoxData[ RowBox[{"f1", "=", "0.87134"}]], "Input", CellChangeTimes->{ 3.991799412462593*^9, {3.993804460588807*^9, 3.993804469981*^9}}, - CellLabel-> - "In[360]:=",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], + CellLabel->"In[71]:=",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], Cell[BoxData["0.87134`"], "Output", CellChangeTimes->{ 3.993804551189562*^9, 3.9938046272310677`*^9, {3.993804663828719*^9, 3.993804750272208*^9}, 3.9939096033412027`*^9, 3.993909670802791*^9, - 3.9939097537799053`*^9, 3.9939110418448963`*^9}, - CellLabel-> - "Out[360]=",ExpressionUUID->"4ce32cac-7bde-43b8-8882-12e68817bec6"] + 3.9939097537799053`*^9, 3.9939110418448963`*^9, 3.994250306799903*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"a9e19a21-80ae-495c-8e77-e7ee3776927b"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184866880085*^9, 3.9918486688048573`*^9}}, - CellLabel-> - "In[361]:=",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], + CellLabel->"In[72]:=",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], Cell[CellGroupData[{ @@ -4974,22 +4889,19 @@ Cell[BoxData[ RowBox[{"f2", "=", "0.6073"}]], "Input", CellChangeTimes->{ 3.991799414288656*^9, {3.993804473278672*^9, 3.9938044778800373`*^9}}, - CellLabel-> - "In[362]:=",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], + CellLabel->"In[73]:=",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], Cell[BoxData["0.6073`"], "Output", CellChangeTimes->{ 3.9938045512098618`*^9, 3.9938046273151007`*^9, {3.993804663853574*^9, 3.993804750319048*^9}, 3.9939096034007072`*^9, 3.993909670898655*^9, - 3.9939097538056107`*^9, 3.993911041873698*^9}, - CellLabel-> - "Out[362]=",ExpressionUUID->"15f9aaa3-b324-4bdf-a9b7-b520c9b4007d"] + 3.9939097538056107`*^9, 3.993911041873698*^9, 3.99425030682195*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"79215c61-8ef3-4278-9986-29adfbb88ba5"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848669922333*^9, 3.9918486699293537`*^9}}, - CellLabel-> - "In[363]:=",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], + CellLabel->"In[74]:=",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ @@ -5035,16 +4947,15 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel-> - "In[364]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], + CellLabel->"In[75]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], Cell[BoxData["3.0421649672677`*^-53"], "Output", CellChangeTimes->{ 3.99132042156752*^9, 3.993804551233213*^9, 3.9938046273973837`*^9, { 3.993804663880035*^9, 3.99380475037041*^9}, 3.993909603457355*^9, - 3.9939096710007544`*^9, 3.9939097538328047`*^9, 3.9939110419031353`*^9}, - CellLabel-> - "Out[364]=",ExpressionUUID->"80bcd1fa-da2f-4290-b680-2fdbb65eee50"] + 3.9939096710007544`*^9, 3.9939097538328047`*^9, 3.9939110419031353`*^9, + 3.994250306849622*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"980ad1d6-8007-4c96-a3ca-386f7d45d0d8"] }, Open ]], Cell[CellGroupData[{ @@ -5079,16 +4990,15 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", CellChangeTimes->{3.991557471461853*^9}, - CellLabel-> - "In[365]:=",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], + CellLabel->"In[76]:=",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], Cell[BoxData["1.9400000176319233`*^-54"], "Output", CellChangeTimes->{ 3.99132042159643*^9, 3.9938045512511387`*^9, 3.99380462741365*^9, { 3.9938046638995543`*^9, 3.993804750375908*^9}, 3.993909603519093*^9, - 3.993909671019692*^9, 3.993909753848701*^9, 3.993911041917101*^9}, - CellLabel-> - "Out[365]=",ExpressionUUID->"a21bcf61-580d-4a62-8d19-dfad63e75fd3"] + 3.993909671019692*^9, 3.993909753848701*^9, 3.993911041917101*^9, + 3.994250306867947*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"760c1597-5cd5-4520-b9fe-d556139bd769"] }, Open ]], Cell[CellGroupData[{ @@ -5122,16 +5032,15 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", CellChangeTimes->{{3.991557474366678*^9, 3.99155747655138*^9}}, - CellLabel-> - "In[366]:=",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], + CellLabel->"In[77]:=",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], Cell[BoxData["2.9348636757362973`*^-54"], "Output", CellChangeTimes->{ 3.9913204216085243`*^9, 3.993804551271442*^9, 3.993804627429818*^9, { 3.9938046639208717`*^9, 3.993804750405836*^9}, 3.993909603537717*^9, - 3.993909671037129*^9, 3.993909753866908*^9, 3.993911041932159*^9}, - CellLabel-> - "Out[366]=",ExpressionUUID->"6abcaa94-9032-406e-bdb7-04b85c373673"] + 3.993909671037129*^9, 3.993909753866908*^9, 3.993911041932159*^9, + 3.99425030688592*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"217fe29e-91ac-494a-b650-fb6b6f883a50"] }, Open ]], Cell[CellGroupData[{ @@ -5154,8 +5063,7 @@ Cell[BoxData[ FractionBox[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", - CellLabel-> - "In[367]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], + CellLabel->"In[78]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], Cell[BoxData["16.949955979643292`"], "Output", CellChangeTimes->{ @@ -5167,9 +5075,8 @@ Cell[BoxData["16.949955979643292`"], "Output", 3.9920915619364376`*^9, 3.9920915885645847`*^9}, 3.993804551291231*^9, 3.993804627445462*^9, {3.9938046639400787`*^9, 3.993804750423704*^9}, 3.993909603556985*^9, 3.993909671054867*^9, 3.993909753883994*^9, - 3.993911041948142*^9}, - CellLabel-> - "Out[367]=",ExpressionUUID->"c4af0c0d-0f83-4e82-8076-27a3646b87be"] + 3.993911041948142*^9, 3.994250306937025*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"dd498b6e-f8b7-4314-9da2-614dc2b0c910"] }, Open ]], Cell[CellGroupData[{ @@ -5195,8 +5102,7 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", CellChangeTimes->{3.992086162437586*^9}, - CellLabel-> - "In[368]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], + CellLabel->"In[79]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], Cell[BoxData["60.97542202126651`"], "Output", CellChangeTimes->{ @@ -5207,9 +5113,9 @@ Cell[BoxData["60.97542202126651`"], "Output", 3.9920915031479607`*^9, 3.9920915226223583`*^9}, {3.9920915619450817`*^9, 3.992091588571615*^9}, 3.993804551310236*^9, 3.993804627464243*^9, { 3.99380466395988*^9, 3.993804750440651*^9}, 3.993909603575082*^9, - 3.993909671072386*^9, 3.993909753901793*^9, 3.993911041965332*^9}, - CellLabel-> - "Out[368]=",ExpressionUUID->"b4f66e2f-cb0c-4224-8a07-7cedcf9eed4b"] + 3.993909671072386*^9, 3.993909753901793*^9, 3.993911041965332*^9, + 3.9942503069510117`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"200aa5cd-83e3-41a4-b7c0-fc50111f19ac"] }, Open ]], Cell[CellGroupData[{ @@ -5218,8 +5124,7 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", - CellLabel-> - "In[369]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], + CellLabel->"In[80]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], Cell[BoxData["2.975184232328209`"], "Output", CellChangeTimes->{ @@ -5231,9 +5136,8 @@ Cell[BoxData["2.975184232328209`"], "Output", 3.9920915619686337`*^9, 3.992091588596325*^9}, 3.9938045513291607`*^9, 3.993804627480462*^9, {3.993804663978706*^9, 3.993804750457796*^9}, 3.993909603593001*^9, 3.99390967109*^9, 3.993909753922512*^9, - 3.993911041981628*^9}, - CellLabel-> - "Out[369]=",ExpressionUUID->"02df6713-854c-4416-a21f-03250a1e4b9a"] + 3.993911041981628*^9, 3.994250306970392*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"00b2a8a8-399a-466d-a148-ed344a7b4bf1"] }, Open ]], Cell[CellGroupData[{ @@ -5243,8 +5147,7 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kw", "Qw2"]]}]], "Input", CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, - CellLabel-> - "In[370]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], + CellLabel->"In[81]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], Cell[BoxData["3.7244757436078038`"], "Output", CellChangeTimes->{ @@ -5255,9 +5158,8 @@ Cell[BoxData["3.7244757436078038`"], "Output", 3.992091522636343*^9}, {3.992091561975609*^9, 3.99209158860334*^9}, 3.993804551352229*^9, 3.993804627495925*^9, {3.9938046639979277`*^9, 3.9938047504752207`*^9}, 3.993909603610806*^9, 3.9939096711075373`*^9, - 3.99390975393994*^9, 3.9939110419992867`*^9}, - CellLabel-> - "Out[370]=",ExpressionUUID->"954646b8-0650-4cd9-9918-ea5626fc0d73"] + 3.99390975393994*^9, 3.9939110419992867`*^9, 3.99425030698659*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"9f88b1cd-f551-4904-8727-18e5f75a8496"] }, Open ]], Cell[CellGroupData[{ @@ -5267,8 +5169,7 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", CellChangeTimes->{3.992086167409481*^9}, - CellLabel-> - "In[371]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], + CellLabel->"In[82]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], Cell[BoxData["227.10148027445624`"], "Output", CellChangeTimes->{ @@ -5279,9 +5180,9 @@ Cell[BoxData["227.10148027445624`"], "Output", 3.992091503209553*^9, 3.992091522657341*^9}, {3.992091561999613*^9, 3.9920915886284447`*^9}, 3.993804551376326*^9, 3.9938046275117693`*^9, { 3.993804664015345*^9, 3.9938047504918823`*^9}, 3.9939096036289663`*^9, - 3.993909671124358*^9, 3.9939097539567833`*^9, 3.993911042016334*^9}, - CellLabel-> - "Out[371]=",ExpressionUUID->"686de71d-1e2e-408e-ac13-dc75205ede9b"] + 3.993909671124358*^9, 3.9939097539567833`*^9, 3.993911042016334*^9, + 3.994250307001343*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"cc707c66-3d82-49d5-9423-b49a282f8006"] }, Open ]], Cell[CellGroupData[{ @@ -5290,8 +5191,7 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[372]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], + CellLabel->"In[83]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], Cell[BoxData["50.42924176929196`"], "Output", CellChangeTimes->{ @@ -5303,9 +5203,8 @@ Cell[BoxData["50.42924176929196`"], "Output", 3.992091562006651*^9, 3.992091588636162*^9}, 3.993804551399091*^9, 3.993804627527876*^9, {3.9938046640338173`*^9, 3.9938047505087337`*^9}, 3.9939096036475058`*^9, 3.993909671141721*^9, 3.9939097539762583`*^9, - 3.993911042035324*^9}, - CellLabel-> - "Out[372]=",ExpressionUUID->"61ea77e9-fafc-4186-8626-e5e497ff3546"] + 3.993911042035324*^9, 3.994250307042965*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"a9febe76-1db9-472d-8f72-3ed1055f26e6"] }, Open ]], Cell[CellGroupData[{ @@ -5494,8 +5393,7 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[373]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], + CellLabel->"In[84]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], Cell[BoxData["0.004756853155766424`"], "Output", CellChangeTimes->{ @@ -5506,9 +5404,9 @@ Cell[BoxData["0.004756853155766424`"], "Output", 3.992091503241564*^9, 3.9920915226853714`*^9}, {3.9920915620301514`*^9, 3.992091588657053*^9}, 3.9938045514242287`*^9, 3.9938046275456333`*^9, { 3.993804664055047*^9, 3.993804750526937*^9}, 3.9939096036668053`*^9, - 3.9939096711624947`*^9, 3.993909753995727*^9, 3.9939110420593557`*^9}, - CellLabel-> - "Out[373]=",ExpressionUUID->"24b81928-f74d-473b-948c-3e47b8d81f5b"] + 3.9939096711624947`*^9, 3.993909753995727*^9, 3.9939110420593557`*^9, + 3.994250307062121*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"00df9d72-a8e4-425f-aff9-5ce5c80f0206"] }, Open ]], Cell[CellGroupData[{ @@ -5522,8 +5420,7 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", Background->RGBColor[0.4, 0.6, 1, 0.33], - CellLabel-> - "In[374]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], + CellLabel->"In[85]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], Cell[BoxData["12.849465664032497`"], "Output", CellChangeTimes->{ @@ -5534,10 +5431,9 @@ Cell[BoxData["12.849465664032497`"], "Output", 3.9920915227624416`*^9}, {3.9920915621031647`*^9, 3.9920915887305927`*^9}, 3.993804558491816*^9, 3.993804627606395*^9, {3.993804664245903*^9, 3.993804750584255*^9}, 3.993909603817916*^9, 3.9939096712030077`*^9, - 3.9939097540483437`*^9, 3.9939110421734457`*^9}, + 3.9939097540483437`*^9, 3.9939110421734457`*^9, 3.994250307385476*^9}, Background->RGBColor[0.14, 0.8, 0.14, 0.33], - CellLabel-> - "Out[374]=",ExpressionUUID->"5dd8ddf4-a524-400d-aa99-a023faf3ab84"] + CellLabel->"Out[85]=",ExpressionUUID->"2880c982-cc97-4e65-b6fe-8be3f93d8162"] }, Open ]], Cell[BoxData[ @@ -5549,8 +5445,7 @@ Cell[BoxData[ 3.992086184000986*^9, 3.9920862197077847`*^9}, {3.99208635879986*^9, 3.9920863634349823`*^9}, {3.9920864985362244`*^9, 3.992086501430176*^9}, { 3.9920869541635437`*^9, 3.992086954848522*^9}}, - CellLabel-> - "In[375]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], + CellLabel->"In[86]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ @@ -5572,16 +5467,14 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel-> - "In[376]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], + CellLabel->"In[87]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], Cell[BoxData["38.84466939348111`"], "Output", CellChangeTimes->{ 3.991320421637537*^9, 3.993804558650564*^9, 3.993804627696252*^9, { 3.993804664275373*^9, 3.9938047506253633`*^9}, 3.993909671332471*^9, - 3.993909754075427*^9, 3.993911042207191*^9}, - CellLabel-> - "Out[376]=",ExpressionUUID->"4af336c2-2169-4156-8f2f-9ab0a0c1ecf1"] + 3.993909754075427*^9, 3.993911042207191*^9, 3.994250307555229*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"82e4cfe5-e403-4850-96f8-11e973a15c87"] }, Open ]], Cell[CellGroupData[{ @@ -5606,16 +5499,14 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", - CellLabel-> - "In[377]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], + CellLabel->"In[88]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], Cell[BoxData["60.97542202126651`"], "Output", CellChangeTimes->{ 3.9913204216685333`*^9, 3.993804558673142*^9, 3.9938046277129297`*^9, { 3.993804664291841*^9, 3.9938047506431723`*^9}, 3.9939096713510027`*^9, - 3.9939097540920687`*^9, 3.993911042222156*^9}, - CellLabel-> - "Out[377]=",ExpressionUUID->"74532804-78ed-47c2-b79d-730d3a274cfe"] + 3.9939097540920687`*^9, 3.993911042222156*^9, 3.994250307583623*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"db80d4f9-afa3-48c4-8d6a-3701da5894de"] }, Open ]], Cell[CellGroupData[{ @@ -5624,16 +5515,14 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel-> - "In[378]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], + CellLabel->"In[89]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], Cell[BoxData["1.9653162101366086`"], "Output", CellChangeTimes->{ 3.991320421698473*^9, 3.993804558695623*^9, 3.993804627729672*^9, { 3.9938046643086157`*^9, 3.9938047506600924`*^9}, 3.993909671368396*^9, - 3.9939097541091003`*^9, 3.993911042236762*^9}, - CellLabel-> - "Out[378]=",ExpressionUUID->"43f74d68-2380-4fa5-a378-14f1da6e5d6e"] + 3.9939097541091003`*^9, 3.993911042236762*^9, 3.9942503076033373`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"70144822-b68c-4253-8b63-c88644700972"] }, Open ]], Cell[CellGroupData[{ @@ -5642,16 +5531,14 @@ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", - CellLabel-> - "In[379]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], + CellLabel->"In[90]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], Cell[BoxData["3.7244757436078038`"], "Output", CellChangeTimes->{ 3.991320421726494*^9, 3.99380455870804*^9, 3.993804627746478*^9, { 3.993804664327388*^9, 3.993804750676002*^9}, 3.993909671384974*^9, - 3.993909754126589*^9, 3.9939110422501383`*^9}, - CellLabel-> - "Out[379]=",ExpressionUUID->"eee2a58c-fdc8-417c-bb7d-28711aeba14f"] + 3.993909754126589*^9, 3.9939110422501383`*^9, 3.9942503076268787`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"042085c1-a57e-448c-9983-2e81036efcad"] }, Open ]], Cell[CellGroupData[{ @@ -5660,16 +5547,14 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel-> - "In[380]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], + CellLabel->"In[91]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], Cell[BoxData["227.10148027445624`"], "Output", CellChangeTimes->{ 3.9913204217554817`*^9, 3.9938045587408037`*^9, 3.993804627762784*^9, { 3.9938046643447866`*^9, 3.9938047506937304`*^9}, 3.993909671401758*^9, - 3.993909754145002*^9, 3.993911042265048*^9}, - CellLabel-> - "Out[380]=",ExpressionUUID->"71fcab11-d8c1-426f-ae59-d118fb9eb7c7"] + 3.993909754145002*^9, 3.993911042265048*^9, 3.994250307650741*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"5b7315d3-7b5f-47c9-bf5f-8034e2fcb5ab"] }, Open ]], Cell[CellGroupData[{ @@ -5678,16 +5563,14 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[381]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], + CellLabel->"In[92]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], Cell[BoxData["76.34205843640582`"], "Output", CellChangeTimes->{ 3.9913204217855225`*^9, 3.993804558766971*^9, 3.993804627766616*^9, { 3.99380466436355*^9, 3.9938047507109013`*^9}, 3.993909671416819*^9, - 3.993909754167406*^9, 3.993911042279223*^9}, - CellLabel-> - "Out[381]=",ExpressionUUID->"c181fb4e-ede0-484e-8e9b-16f3dd7de7b6"] + 3.993909754167406*^9, 3.993911042279223*^9, 3.994250307673789*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"aeac21a6-bebc-468a-b022-7e59037ad44f"] }, Open ]], Cell[CellGroupData[{ @@ -5876,16 +5759,14 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[382]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], + CellLabel->"In[93]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], Cell[BoxData["0.004234850780187917`"], "Output", CellChangeTimes->{ 3.9913204218154297`*^9, 3.993804558970088*^9, 3.993804627783367*^9, { 3.993804664384842*^9, 3.993804750726766*^9}, 3.993909671435361*^9, - 3.993909754186618*^9, 3.993911042294293*^9}, - CellLabel-> - "Out[382]=",ExpressionUUID->"a4243a21-8d24-45a9-8e2c-7739a1ea1f9b"] + 3.993909754186618*^9, 3.993911042294293*^9, 3.994250307702999*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"993c07d5-988e-48b2-ae54-c1c4070c767a"] }, Open ]], Cell[CellGroupData[{ @@ -5898,16 +5779,14 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[383]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], + CellLabel->"In[94]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], Cell[BoxData["13.618393681706955`"], "Output", CellChangeTimes->{ 3.991320422776104*^9, 3.993804565932764*^9, 3.993804627825531*^9, { 3.993804664534915*^9, 3.993804750782548*^9}, 3.9939096714795732`*^9, - 3.993909754249015*^9, 3.99391104240521*^9}, - CellLabel-> - "Out[383]=",ExpressionUUID->"bfffaa2a-5691-4f0a-9c9d-142a862a6a3a"] + 3.993909754249015*^9, 3.99391104240521*^9, 3.994250307821879*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"ddfe430e-d3f0-421d-8dc6-543adadd9617"] }, Open ]], Cell[CellGroupData[{ @@ -6098,16 +5977,14 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[384]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], + CellLabel->"In[95]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], Cell[BoxData["0.0121592726191095`"], "Output", CellChangeTimes->{ 3.9913204229248886`*^9, 3.993804566036397*^9, 3.993804627844046*^9, { 3.9938046646184893`*^9, 3.99380475080024*^9}, 3.993909671497088*^9, - 3.9939097542679853`*^9, 3.993911042443592*^9}, - CellLabel-> - "Out[384]=",ExpressionUUID->"eaf78250-6361-4b32-82f4-c2b3be6fc0ca"] + 3.9939097542679853`*^9, 3.993911042443592*^9, 3.994250307847886*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"9fee484a-5a79-4bb0-884c-95ad7c12132b"] }, Open ]], Cell[CellGroupData[{ @@ -6120,16 +5997,14 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[385]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], + CellLabel->"In[96]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], Cell[BoxData["8.036947711484437`"], "Output", CellChangeTimes->{ 3.9913204230053368`*^9, 3.993804572934832*^9, 3.99380462789159*^9, { 3.9938046647644367`*^9, 3.993804750875383*^9}, 3.9939096715391693`*^9, - 3.9939097543299227`*^9, 3.9939110425613413`*^9}, - CellLabel-> - "Out[385]=",ExpressionUUID->"da822dbd-79fb-4ca5-a70e-6d275dd0edfb"] + 3.9939097543299227`*^9, 3.9939110425613413`*^9, 3.9942503079757338`*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"07538171-b2a7-4602-896e-036ce6e6e1d4"] }, Open ]], Cell[CellGroupData[{ @@ -6221,16 +6096,14 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[386]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], + CellLabel->"In[97]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], Cell[BoxData["0.16117775346672777`"], "Output", CellChangeTimes->{ 3.9913204230393543`*^9, 3.9938045729616632`*^9, 3.993804627909639*^9, { 3.9938046647854*^9, 3.993804750894088*^9}, 3.993909671568618*^9, - 3.993909754348627*^9, 3.993911042580553*^9}, - CellLabel-> - "Out[386]=",ExpressionUUID->"43890d40-4a13-4062-85f7-4045ba53a71f"] + 3.993909754348627*^9, 3.993911042580553*^9, 3.9942503080021257`*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"ffdc8dd2-6f58-4d8b-8a8b-bb61ba7835fc"] }, Open ]], Cell[CellGroupData[{ @@ -6319,16 +6192,14 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[387]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], + CellLabel->"In[98]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], Cell[BoxData["0.8388222465332723`"], "Output", CellChangeTimes->{ 3.9913204230728855`*^9, 3.993804572978097*^9, 3.9938046279280443`*^9, { 3.993804664805017*^9, 3.993804750912019*^9}, 3.9939096715856256`*^9, - 3.9939097543686132`*^9, 3.993911042595171*^9}, - CellLabel-> - "Out[387]=",ExpressionUUID->"1b41b159-e335-46b4-8dab-dde4c0c328ec"] + 3.9939097543686132`*^9, 3.993911042595171*^9, 3.994250308021744*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"27392925-1662-483b-9236-e2f85ac3a206"] }, Open ]], Cell[CellGroupData[{ @@ -6450,23 +6321,21 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel-> - "In[388]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], + CellLabel->"In[99]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], Cell[BoxData["0.1351994852541465`"], "Output", CellChangeTimes->{ 3.9913204231038837`*^9, 3.9938045729952374`*^9, 3.993804627944169*^9, { 3.993804664823594*^9, 3.993804750930588*^9}, 3.9939096716056967`*^9, - 3.99390975438794*^9, 3.9939110426177177`*^9}, - CellLabel-> - "Out[388]=",ExpressionUUID->"95b67a85-e6ed-4aeb-85ac-f0bc84b392bf"] + 3.99390975438794*^9, 3.9939110426177177`*^9, 3.9942503080487213`*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"be3ac371-3057-486b-ac77-0350935fecfa"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellLabel-> - "In[389]:=",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], + "In[100]:=",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ @@ -6530,85 +6399,85 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.991799443370365*^9}, CellLabel-> - "In[390]:=",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], + "In[101]:=",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.938667696143313`*^-212\\\", \ -RowBox[{\\\"1119071536804432775059941\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"31183104000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 390, 13, 31385385712403366894, "Local"}, +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 101, 1, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913204231548862`*^9, 3.993804589478944*^9, 3.993804628086953*^9, { 3.99380466485177*^9, 3.9938047509601793`*^9}, 3.993909671679077*^9, - 3.9939097544169483`*^9, 3.993911042658387*^9}, + 3.9939097544169483`*^9, 3.993911042658387*^9, 3.994250308129438*^9}, CellLabel-> "During evaluation of \ -In[390]:=",ExpressionUUID->"623f67bb-e287-4897-91a3-015f89d125bd"], +In[101]:=",ExpressionUUID->"14c1a8d9-a592-4452-a668-1fbee88fc9c8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.03627803197554`*^-217\\\", \ -RowBox[{\\\"1974042190923019415205737\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \\\"06995456000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 390, 14, 31385385712403366894, "Local"}, +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 101, 2, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913204231548862`*^9, 3.993804589478944*^9, 3.993804628086953*^9, { 3.99380466485177*^9, 3.9938047509601793`*^9}, 3.993909671679077*^9, - 3.9939097544169483`*^9, 3.993911042692605*^9}, + 3.9939097544169483`*^9, 3.993911042658387*^9, 3.994250308179846*^9}, CellLabel-> "During evaluation of \ -In[390]:=",ExpressionUUID->"925a0cfa-4b19-44bc-8c3f-9a84279127fc"], +In[101]:=",ExpressionUUID->"45870665-28a1-453f-a9b5-5cf71b59b144"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.4109891461861855`*^-222\\\", \ -RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 390, 15, 31385385712403366894, "Local"}, +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 101, 3, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913204231548862`*^9, 3.993804589478944*^9, 3.993804628086953*^9, { 3.99380466485177*^9, 3.9938047509601793`*^9}, 3.993909671679077*^9, - 3.9939097544169483`*^9, 3.993911042701233*^9}, + 3.9939097544169483`*^9, 3.993911042658387*^9, 3.994250308192802*^9}, CellLabel-> "During evaluation of \ -In[390]:=",ExpressionUUID->"08189eb4-63f2-4363-b5b9-c058f3e7b947"], +In[101]:=",ExpressionUUID->"a160ea06-efb3-40b9-8266-df41d5c92d6a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 390, 16, 31385385712403366894, "Local"}, +during this calculation.\"", 2, 101, 4, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913204231548862`*^9, 3.993804589478944*^9, 3.993804628086953*^9, { 3.99380466485177*^9, 3.9938047509601793`*^9}, 3.993909671679077*^9, - 3.9939097544169483`*^9, 3.993911042710885*^9}, + 3.9939097544169483`*^9, 3.993911042658387*^9, 3.994250308201496*^9}, CellLabel-> "During evaluation of \ -In[390]:=",ExpressionUUID->"713426fb-75a0-4355-9a30-2b30346e063a"], +In[101]:=",ExpressionUUID->"215bfb90-5523-4e03-b9bc-4aed44d8e698"], Cell[BoxData["13.61839368170694`"], "Output", CellChangeTimes->{ 3.9913204260017204`*^9, {3.9938046247879457`*^9, 3.9938046294793577`*^9}, { 3.993804676572288*^9, 3.993804752876156*^9}, 3.9939096728921347`*^9, - 3.9939097548110228`*^9, 3.9939110469001427`*^9}, + 3.9939097548110228`*^9, 3.9939110469001427`*^9, 3.99425031195205*^9}, CellLabel-> - "Out[390]=",ExpressionUUID->"17816c1e-142c-4f9d-8c2a-627aab93860e"] + "Out[101]=",ExpressionUUID->"cb1450d0-52d3-40b7-aec2-27ba598dda81"] }, Open ]], Cell[CellGroupData[{ @@ -6673,80 +6542,85 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.9917994459475594`*^9}, CellLabel-> - "In[391]:=",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], + "In[102]:=",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.938667696143313`*^-212\\\", \ -RowBox[{\\\"1119071536804432775059941\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"31183104000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 391, 17, 31385385712403366894, "Local"}, +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 102, 5, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913204262354183`*^9, 3.993804629509783*^9, {3.993804682056448*^9, - 3.993804752899742*^9}, 3.993909672937112*^9, 3.993911046966124*^9}, + 3.993804752899742*^9}, 3.993909672937112*^9, 3.993911046966124*^9, + 3.9942503120185537`*^9}, CellLabel-> "During evaluation of \ -In[391]:=",ExpressionUUID->"6d850d59-5847-4df6-b782-5f12eba60362"], +In[102]:=",ExpressionUUID->"b9224712-18b9-472b-987c-b22842660e70"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.03627803197554`*^-217\\\", \ -RowBox[{\\\"1974042190923019415205737\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \\\"06995456000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 391, 18, 31385385712403366894, "Local"}, +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 102, 6, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913204262354183`*^9, 3.993804629509783*^9, {3.993804682056448*^9, - 3.993804752899742*^9}, 3.993909672937112*^9, 3.993911046975861*^9}, + 3.993804752899742*^9}, 3.993909672937112*^9, 3.993911046966124*^9, + 3.994250312031909*^9}, CellLabel-> "During evaluation of \ -In[391]:=",ExpressionUUID->"e490933d-3bda-4acb-b59b-de3a56bf008e"], +In[102]:=",ExpressionUUID->"75bfa68c-212f-4cd7-81e5-93fb3f846036"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.4109891461861855`*^-222\\\", \ -RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 391, 19, 31385385712403366894, "Local"}, +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 102, 7, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913204262354183`*^9, 3.993804629509783*^9, {3.993804682056448*^9, - 3.993804752899742*^9}, 3.993909672937112*^9, 3.9939110469854603`*^9}, + 3.993804752899742*^9}, 3.993909672937112*^9, 3.993911046966124*^9, + 3.994250312041636*^9}, CellLabel-> "During evaluation of \ -In[391]:=",ExpressionUUID->"f04c7c57-aa7b-4321-aff4-381ec830e5cf"], +In[102]:=",ExpressionUUID->"3d167c57-33fb-4be0-bee1-f0e76ffa898b"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 391, 20, 31385385712403366894, "Local"}, +during this calculation.\"", 2, 102, 8, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913204262354183`*^9, 3.993804629509783*^9, {3.993804682056448*^9, - 3.993804752899742*^9}, 3.993909672937112*^9, 3.993911046995659*^9}, + 3.993804752899742*^9}, 3.993909672937112*^9, 3.993911046966124*^9, + 3.994250312050755*^9}, CellLabel-> "During evaluation of \ -In[391]:=",ExpressionUUID->"a110e1f0-21f7-42a0-81ec-17dc53acff04"], +In[102]:=",ExpressionUUID->"27343148-2595-4705-98de-982646e0b736"], Cell[BoxData["8.03694771148443`"], "Output", CellChangeTimes->{ 3.991320428882721*^9, 3.9938046309154882`*^9, {3.9938046839032497`*^9, - 3.9938047546960163`*^9}, 3.993909674130537*^9, 3.9939110507868*^9}, + 3.9938047546960163`*^9}, 3.993909674130537*^9, 3.9939110507868*^9, + 3.994250315607257*^9}, CellLabel-> - "Out[391]=",ExpressionUUID->"a49119d9-6344-4483-9541-8ea343b0109b"] + "Out[102]=",ExpressionUUID->"938ae3ea-b7f2-41c9-bac7-8d3ac7dd23ef"] }, Open ]], Cell[CellGroupData[{ @@ -6806,7 +6680,7 @@ Cell[BoxData[ RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{3.9917994505623856`*^9}, CellLabel-> - "In[392]:=",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], + "In[103]:=",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], Cell[BoxData[ GraphicsBox[ @@ -7192,9 +7066,10 @@ erYCu3eprFE4moQ1oimNVf/iD8b08saQYG5aQHuMbfjRdvFvLAlVFUKd//x/ Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.9913206956809444`*^9, {3.9938046609604053`*^9, 3.993804747482561*^9}, - 3.993804789329523*^9, 3.9939097507580233`*^9, 3.9939113377762127`*^9}, + 3.993804789329523*^9, 3.9939097507580233`*^9, 3.9939113377762127`*^9, + 3.994250880210836*^9}, CellLabel-> - "Out[392]=",ExpressionUUID->"fbb4aba8-c808-40be-aef7-03e689c9e112"] + "Out[103]=",ExpressionUUID->"3e2c1e59-dc11-4acb-b48b-5c2a1e2273fc"] }, Open ]], Cell[CellGroupData[{ @@ -7260,35 +7135,37 @@ Cell[BoxData[ RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{3.9917994543716736`*^9}, CellLabel-> - "In[393]:=",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], + "In[104]:=",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.5835818797021963`*^-267\\\", \ \\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 393, - 21, 31385385712403366894, "Local"}, +represent as a normalized machine number; precision may be lost.\"", 2, 104, + 9, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991320696298666*^9, 3.993911338109069*^9}, + CellChangeTimes->{3.991320696298666*^9, 3.993911338109069*^9, + 3.994250880798427*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"0ccd3624-3a6c-4025-9d8e-876d0de34cab"], +In[104]:=",ExpressionUUID->"6053b2b4-fcb0-4399-9d63-8e910a04fe25"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.326580290176643`*^-279\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 393, - 22, 31385385712403366894, "Local"}, +represent as a normalized machine number; precision may be lost.\"", 2, 104, + 10, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991320696298666*^9, 3.993911338119452*^9}, + CellChangeTimes->{3.991320696298666*^9, 3.993911338109069*^9, + 3.994250880808587*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"a66f833c-80e4-437b-8bf8-b4a950a1072e"], +In[104]:=",ExpressionUUID->"96d30493-0c11-438e-bb44-b15f3fd18615"], Cell[BoxData[ TemplateBox[{ @@ -7296,26 +7173,28 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"2.4273227968308645`*^-290\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 393, 23, 31385385712403366894, "Local"}, + 104, 11, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991320696298666*^9, 3.9939113381285973`*^9}, + CellChangeTimes->{3.991320696298666*^9, 3.993911338109069*^9, + 3.994250880818186*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"9e714659-a7c0-4ca1-8761-eacb6bd5a53a"], +In[104]:=",ExpressionUUID->"0452e98e-cd08-4215-a3dc-41e98886a167"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 393, 24, 31385385712403366894, "Local"}, +during this calculation.\"", 2, 104, 12, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991320696298666*^9, 3.9939113381372347`*^9}, + CellChangeTimes->{3.991320696298666*^9, 3.993911338109069*^9, + 3.994250880828027*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"db56b3b4-c8b3-481a-94b0-2143419af947"], +In[104]:=",ExpressionUUID->"7ff5aaea-6a89-4af0-92f0-53daf49c1df7"], Cell[BoxData[ GraphicsBox[ @@ -7732,9 +7611,10 @@ IXuB1wqhIKJfpOHyh4NHJq6luouFwoWAsrGZGQ7G8Y/s+DUnFP4H8sCO8Q== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913218813523655`*^9, 3.9939116655857286`*^9}, + CellChangeTimes->{3.9913218813523655`*^9, 3.9939116655857286`*^9, + 3.994251460453107*^9}, CellLabel-> - "Out[393]=",ExpressionUUID->"da5b217a-ccfb-4e34-8495-636a03776350"] + "Out[104]=",ExpressionUUID->"d7a18e4f-9fd7-4bc0-bdf5-08bd537ee705"] }, Open ]], Cell[CellGroupData[{ @@ -7809,7 +7689,7 @@ Cell[BoxData[ CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, 3.993910309762579*^9}, CellLabel-> - "In[394]:=",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], + "In[105]:=",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], Cell[BoxData[ GraphicsBox[{{}, @@ -8032,9 +7912,9 @@ SA== Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.993911665764442*^9}, + CellChangeTimes->{3.993911665764442*^9, 3.994251460692766*^9}, CellLabel-> - "Out[394]=",ExpressionUUID->"2ffc8e42-75af-4f94-8c10-bfc4a0772457"] + "Out[105]=",ExpressionUUID->"c03c769e-8999-47f4-b2d9-57cb00e41bc8"] }, Open ]], Cell[CellGroupData[{ @@ -8044,7 +7924,7 @@ Cell[BoxData[ RowBox[{"x", ",", "xx"}], "]"}]], "Input", CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, CellLabel-> - "In[395]:=",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], + "In[106]:=",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], Cell[BoxData[ GraphicsBox[{ @@ -8593,9 +8473,9 @@ SA== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.99391166579453*^9}, + CellChangeTimes->{3.99391166579453*^9, 3.994251460733129*^9}, CellLabel-> - "Out[395]=",ExpressionUUID->"bff43359-539a-4d3e-8ae6-1c6cf8d45644"] + "Out[106]=",ExpressionUUID->"b3b4c257-cb80-4495-8d96-ca0eabf8448d"] }, Open ]], Cell[CellGroupData[{ @@ -8607,12 +8487,13 @@ Cell[BoxData[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", CellChangeTimes->{3.99179966106703*^9}, CellLabel-> - "In[396]:=",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], + "In[107]:=",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], Cell[BoxData["13.355339213677793`"], "Output", - CellChangeTimes->{3.9913229040054893`*^9, 3.993911665830122*^9}, + CellChangeTimes->{3.9913229040054893`*^9, 3.993911665830122*^9, + 3.994251460783985*^9}, CellLabel-> - "Out[396]=",ExpressionUUID->"ae80cbb2-3d41-4950-803e-6fceadb0b0cb"] + "Out[107]=",ExpressionUUID->"f47e164a-02ab-418e-8ae5-3b2af49f595e"] }, Open ]], Cell[CellGroupData[{ @@ -8626,27 +8507,30 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], - ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -8670,7 +8554,7 @@ Cell[BoxData[ RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{3.991799666995865*^9}, CellLabel-> - "In[397]:=",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], + "In[108]:=",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], Cell[BoxData[ TemplateBox[{ @@ -8678,13 +8562,14 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"2.5898005302150334`*^-259\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 397, 25, 31385385712403366894, "Local"}, + 108, 13, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913229042538757`*^9, 3.993911665908915*^9}, + CellChangeTimes->{3.9913229042538757`*^9, 3.993911665908915*^9, + 3.99425146091615*^9}, CellLabel-> "During evaluation of \ -In[397]:=",ExpressionUUID->"523bf3d7-4fef-4c86-be01-6f7f30712630"], +In[108]:=",ExpressionUUID->"5a4f8082-43cb-4ff2-98e4-5be5f531ac3d"], Cell[BoxData[ TemplateBox[{ @@ -8692,42 +8577,45 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"1.1743484206908533`*^-269\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 397, 26, 31385385712403366894, "Local"}, + 2, 108, 14, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913229042538757`*^9, 3.9939116659172277`*^9}, + CellChangeTimes->{3.9913229042538757`*^9, 3.993911665908915*^9, + 3.99425146092671*^9}, CellLabel-> "During evaluation of \ -In[397]:=",ExpressionUUID->"30a7366b-222b-4b26-a808-7ee63d33994a"], +In[108]:=",ExpressionUUID->"b5de9be2-b84c-4f79-8f94-75b89b105264"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.325098196132481`*^-280\\\", \ -RowBox[{\\\"11856747790825406662563134\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"5\\\", \\\"\[RightSkeleton]\\\"}], \ -\\\"19254518349824000000000000\\\"}]]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 397, 27, - 31385385712403366894, "Local"}, +RowBox[{\\\"1185674779082540666256313\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9254518349824000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 108, 15, + 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913229042538757`*^9, 3.99391166592393*^9}, + CellChangeTimes->{3.9913229042538757`*^9, 3.993911665908915*^9, + 3.9942514609373827`*^9}, CellLabel-> "During evaluation of \ -In[397]:=",ExpressionUUID->"7588215e-3eae-4afb-8dc8-129b29b669c7"], +In[108]:=",ExpressionUUID->"296b1916-3ef9-4ce0-a19e-fca6d8952b37"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 397, 28, 31385385712403366894, "Local"}, +during this calculation.\"", 2, 108, 16, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913229042538757`*^9, 3.993911665933119*^9}, + CellChangeTimes->{3.9913229042538757`*^9, 3.993911665908915*^9, + 3.99425146094919*^9}, CellLabel-> "During evaluation of \ -In[397]:=",ExpressionUUID->"9af0bc8d-ae70-48f8-a9b2-7db03a938698"], +In[108]:=",ExpressionUUID->"3f8edee0-1ca0-4e8f-be37-4ecb38103aba"], Cell[BoxData[ GraphicsBox[ @@ -8736,94 +8624,94 @@ Cell[BoxData[ TagBox[ {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], LineBox[CompressedData[" -1:eJwV1nlUTX0XB3BP0UCSZqXp3ntuczI0d+0tlJIyVEgqaa4nolFo0KySkpQ0 -0HzPRUmjIYrKk5BmZCgkGmiO9J73j7PO+qyzzlq/aX/3T8Hp2F4XriVLlnD9 -Qz3Ue7q/pZFxPn/zeCTZdFhJZ3NHtmTwlp4IKN/dK0/fLAYo9sJJsicFjpol -bZlgERCwu7Sbu+c6fLH/530nSwtWj0qkzHWXg7j1Vqcy1nZ4f8/i2GT3Y8i/ -aTpjwrIGY8bwu5/d7dDk6JRXaeACc906aePdn8A0WzX5tJY/NGwtyn91fQK8 -mVMNyxaiYO37mi9OagvQINDdsn5TMoh6O5TybuVGVopbr5tKGqSsN66zsObD -W1VOYWzrTOi9oln/U2glahl/qGYMZ8P5/NAXXGtWY+b74V1pzXkgcWkgLvWa -CJ5KFfvdNnADYqxMN7dPi2Go8LST8c0COKmX59ASIYlVaY9X7/Mqgm1j86d8 -BqTwr+pFG9vuYgjecUnl0Q8pzJj/axn7thhu5qn3iUxLoXh1wPo7H4tB0spR -r4ZPGhmwlb34vRh+VD+Z4daQxvwXN31PLimB1Ihkv4wgaXRl9PA8VSqBT2JM -n8aVa3GfI5+dWGAJhBvuOSKlK4Oer4uFLZeXwg777F86RjJ43MchUXRVKQiG -fT9nbS6DerGze7pESiGrIaow2VEGTUp4qy1kSqHarPY7T5wMPrLGX8KapTB+ -gB4w0SuDs7rKM0NWpWDvPxXfGiKLZz+Tms+ulgKRbrR2OEoW4d54mmRuKTXe -CxzeZFk0SHLHo/mlcOqP8kujfFlkzaY7j5ClkHbOXqymVRZfp+Z+7bhfCq0X -m3IKZOQwxzykeby/FPRvZlScfSiHjpsFbxySZcO27raF0WY5/M7LGB5XYIPF -kqUmDu1y+OxI13gEwYaje3164bMctpfJsK6pscE4RCE0bJk8RjRUvCrVZ8Nx -uekbW1Tl8fVy/p/KNmxodMsZaQiQx4qriQer49lg+kdP+HSIPN7V9Cj8nMiG -tuQO7U1h8jicf7pi1UU29Nbwh+XHyWN7TLGobTobRlf4CUdlyWPAmcavTTfY -IHl7h47xY3nMGr88znuPDd6zP8OaVyogc72Rh9QwG/R9XcW/CCtglWBFtPQI -G/iG+9jckgqozt3eIznOhoI3DV2baQrY5zQizTfNhv4HaWp3tRUwaKKNXvMP -CZZRej15Dgq4Oemwj4skCRuEw9eFlClgdMjX2iEjEpacn2q8UqmAvJr5X49v -J6GN29O2sk4Bu+OC9kyZkOA1tTfq5xMFvMUk3/0yJyG/h/HGrU8BVRtMPtbb -kCCe0xxtxU3D+mKtD8UeJMypCvWrW9PQ7M8dFjuBhOlrUuEbbWlI3zQtUZ5E -wuQqgqHnQEOhOx6H7yaTMDqh57nNg4YtOwJUyy6R8Knu6LTtGRpOEGbvz2SR -8GxnlWBsAQ15wq3+8WaT0HT/UVliKQ3vGuo91OOQ0Liu1Sr1Fg0Plw+Nct8i -4YHIx8zsGhrWdrgWJJaTUP5mueLd5zTk2oUhATUkZHrZw6cpGhoZlq/LfkpC -+jv3T1/naVi0WRw3NpNwyfJk1MgiDW1yLrY0tpCQtDH2v1l+OgbW1Zi+ayUh -4nfZ/lWydDy0xVlgsJ1an/PLjhsa07G6hGu5aT8J7gurRIx20lHuYueXgvck -uB6TqjTZTUf3A3XbFj+Q4Lhv3Z+9tnTc/akzqmiABCvpg7EePnT8Fsen1jZE -giGbzL18mY5qYVfD/H6R8EaenbP9Kh1bLAL5oidIOHW5JHsyh45Dp30TL02S -UBVemLW3hI71Gy4lF09T+3sg94rgPTr+mPGLJedJUF52KTn6Ix079+wsYnBx -oPlUygWtL3Q0LHmhy8PNAdfx5KTBYTryJc20DVLOf5OYYDRJR24ZxoqMZRyQ -L4+J/cvDwKN3Sl6+4+OAuENIWIAaA1OPP1jsEeTA3Y7gUGI9A1dkdoqfX8UB -K7Ogsx1aDHwYfEFfX4gDKVr+pzcAA+vP/i65sJoDKwWOBY3uYWCGK+hIiHKA -DP838JoNAz2fTTwqo2w24xVgfoiBygqBh03FOBD7yd2v1JmBD4L4W46Jc2Bp -jdNx10AGLszuCs+Q5MANjSPHxE4z0GbYLW/tGg4Y5Tv4NIYx8LFeZlcW5dAL -dt60eAY66flHXJLiwLyLjXt/FgPf37Edc1zLgYw3Vm6JeQzkd49vaqWsu2ef -q2EhAz/n6tZoyXAgwHC3c+YtBibQzL//pfxT2MzR5jE1nst8mT5yHOjxpr30 -bGKgiHiqzTPK9U/nIbSVgSZBS2/R5DmQfIotV9zFwMjtMdotlIM6zl2494aB -Jz6scpNQ4ICjht3iyw8MNLj/r7YTZc1PAu/nhhk4oJZdMUJZ0vCzheA4A5Uq -fjhr0Diw5PL9B7QpBh534avyojw0lqahM8/Ay3dvswsovzD1yd65yECj2wVb -31KuvGEs6LiUwPSZotBVdA5kL8ie9eMnsLshyBEo+5S9OHxNhMAr1YkiaZRt -VhQ/L5MkkI+1/2st5c0uYaynMgQmLcw5vaPMfHiA00cjsE5aP+YP5ZVr1suM -KRIov+utlSSDA5Mn+BO51Qkc7Sto1aT8tvXjH4kNBLLz7Ma2U25k1nqr6RD4 -SKjp/n7KZFjKWzQkUEeF1HWlfKnP09x6C4HmEa8dfSmf3rT1nocxgWKwTCeY -snOStNrZnQRulFx+7wzlnUMTV1N2E+hiwx4/S3mDUeuKImsCN78u7zxNWSor -P6TOlsC7s8NegZS5pk9/f+FAYH+9bIUP5WFL60ODzgRG311zy4lye4n6f7Me -BDaMFR3eR7mWm8dg5TECGyUu1yPl64f7SxX8CDRyLutRoRxXVSmlHUygZWZT -4WrKx1dfiDc7S2CfQJHqFLU+B7zc5u3PEXgkS9a9kzI+Ac+TsQRmVi7YlVNW -kpPsi0kkUNBGdEUCZaHgcdOsFGq9/tl40onybHtzze10AhNbVS5rUf6glqf8 -JIvAMOvnfssoN0cHZ/TmEVj19Meqdmq/b3/Ywz9aSKBT5yH3q5Sv6KsEc5EE -2j4aOXuEstto3wHVSgJPD7R8G6DOl8WOO81QR6DhzvuQS1n7+nldq3oCK34R -+w9S5rExlDzzjMBwk1vPH1Hnd/SWaOzFFwQOeJ/R8KXcxT8yU9BBoMcjaSsZ -yoX3r3W39RNoX6f804uqhySJAJOBAer8iOz0FKQc4GtRNTNEYMtiDpsjy4Ht -xOJl+QkC39zbFf+Jqq/BBEebE7xM9F1W+YKg6tFnWI2mKcDEjwJhZKU0B2ZM -5kZGhJioPhL/aBvl5dwpUR5STOQJ0E4/QNW3ZnBDhaM6Ey/O1C91oPKhtutC -mOwGJmod8qrqleDA1k125m+1mTgkylu8h7LN2OTAfmRixYpf2/WofDnjwhSx -3MdE6aqm2K8i1PwbfvULHGDi35eqYE45Wf5h6TM7Jg6vNNO7Kfz/vNxvZOzK -xDDf3N8eVL492xPnywpmYomo/vN6Kh/FN/94oZrDxMo/Z0x/UPmZe7X66rcb -TNz06n0qQVl5LtKtqJiJr9d1qNvxcsCwQmaRVs5Ee1bgvkdU/h5VsdSQesLE -QJ3np7yo/L4tXp7A952J4fPCg/CbBH2/sweejlHz7SmKsKDyvuGVGSNykolK -wVxnbOdI6EoYqFtcYOLzlwqxnjMk/OES+z4tpIgsy5aVXlQ/MR0LNP2srYhL -93ZFjQ6TsHa9bDSfoSIObsk7WfeN6s8nGh+rblHEd3MsmyiqP12aFjI8sVMR -lVxnF1Z9IaF/oURj0UER/+KbiSUfSTgh8FZkTZwifugVs9/bRfVbZew3f0P9 -3xDpXvuABG+vL1LHPyhiU/K2UcX7JAAnYX/qZ0U03cIVn1JHwqBm78veMUU8 -KFrN61BNgobuiQbXpUpYVjik11lGzc84vzhMnXJ6oIdOPgk/jvKdrAhVQlO9 -wri+aGq82dvuP4xUwqHlA0NTkSSM9Ybx/henhL//ns0UPEfCL8u5qx9TlTCQ -zTOnE0rCjMFwo2CxEh4Tbar3DCSBS7RV3OOlEvbMXHPb40bCmsYLtTIKylR/ -6ohWoe5HxgwJrpjHyhhjUZC+Y44N35xMig2alDFnGSvmB3X/SsgLtBj/Txk1 -EjztkybZ8Fq2J/NgpzKyU5hN/42xwXFNxka1IWW8cz72qvoXNgQLSru8WqmC -5BJSOqmdDeSsbLP0QRVUtN/3vrmEDcLPmUm3x1Qwu+SB1MG9bFgbe2u3trYa -9n9p21cZUgpXVPWERNzUqf0O+9yfXgLPpLZoTVzUwD8DBh/KrxeD/trHyeu6 -1iG3uk1wSWQRCHJf9zsSoYnPzXOHBjwLQTZczvAgcz3Gi60k89ULgJ+wq9zb -tB6D9sgEWo3eAA3WmluBhzeg/cNI9lj9dTjRL9xgtmQjvutOTy4JzoOxiQRr -0ysbEWp1NxWa5YLJuqeZpuqb0CJHK6PKPBseTBj8nmnbhGZv9UeffLwKPmob -+l65aOGuuMYD8eUZwBp17jjIr40jkTFGLV7psJ0huWvldW2c+W3iYeucBkph -8UGPdXTw3IoN5/TCUkHFRe8h0aeDRKxsf3PyRXB54B5Z4auLIXB+zP/BBXiY -2+H8U0wPh5/O87btTYDJ4sWZdVV6GFo9cIFXNw6OEmz+zF36qM41GM+TEA0/ -VVK1y8f1kbb9sF7GwDmozv/9cSrWAEXdHDeK5oaD7TY6Gsga4tdgSVuDTaEg -/W9MjUa9ITL42rwsDUJAbLl32a79LDQTql2w/hwI+VvPnBo/yMIV4OWo2x0I -G84kbU21Y6FvlICfQksgWIzf7uw5wsJ7o4aFvJxAiO6amjvqzcIUKdFFun8g -zF4PNToVzsJtt4ubMnkCoc8g9XUhm4Vj71RfnNAIAHf//CzTmyxUmZYNVlQI -gOmbd11+3GZhXOKxS59EAkCY1jOzvpKFklcUJbzn/GEnn8za+/Us9Bt6K9ra -6A/3OgqdX3eysFVgteYDO38wE6xWD+hh4eXBHYs9lv7QY9IyLfmGhTHsx3Lz -Rv4wWfs91v4DCwX2HTO3VPYH9TxNzrdhFoYN71y7fdoP7vVtCUgYYaHoho2s -lG9+YCa6D9aNs3CjCeR8fusHrjH+r/ymWPjnToVsToMfTNZHZ0rMsnBQUUx3 -WZUfRMynH62dZ+H2G7HxvqV+ILSpRO3wAjU+1+Wig9f8IPvf2qnFRep7Wlq7 -3UU/+B8jw1O4 +1:eJwV1mk4VW0XB/AeKhSSISLTOWcfszSYHWulIhINqCQkM49ShqQMlTFTJKEM +ZT77VCRzpSj0SJO5kqKSMpRZybvfD/va1+/Dvq77Xve9/mvLOx3b68K1ZMkS +rn+oh3pP97U0Mi7mGY5fIJsOK2obtmdJBG3pPgdlu3vk6IZigGIvnCS6k8HZ +LGHLBIuAgN0lXdzdN+CL/T8fOliasHpUPHmuqwzWWG91KmVthw91Fscmux7D +zVumMyYsazBmDL//2fUamhydciv0XWCuSzt1vOsTmGapJJ3R9IeGrYV5r25M +gDdzqmHZQgSs+1D9xUl1ARr4u1o2bE4CUW+HEp6t3MhKdutxU06F5A3GtRbW +vFha6RTGts6Anqsa9T+FBFDTuL+KMZwFF/NCX3CtXY1XPwzvSm3OBfHLAzEp +10XwdIrY77aBmxBlZWr4eloMQ4WnnYxv5cNJ3VyHlnMSWJn6ePU+r0LYNjZ/ +2mdAEv+qXLKx7SqCoB2XlR/9kMT0+b+W0e+K4FauWq/ItCSKVwVsuPuxCCSs +HHWreaWQAVvZi9+L4EfVkxludSnMe3HL9+SSYkg5l+SXfkoKXRndy58qFsMn +MaZPo8A63OfIaycWWAzhBnuOSOpIo+ebImHLFSWwwz7rl7aRNPr6OMSLrioB +wbDv563NpVE/enZPp0gJXGuIKEhylEaTYp4qC+kSqDKr+b48RhofWeMvYY0S +GD9AD5jokcZZHaWZIasSsPefim0NlsHQz6TGs8wSINKM1g1HyCDUjadK5JRQ +603k8CTJICvBHY/mlcDpP0ovjfJk0GA2zXmELIHU8/Zi1a0y+CYl52v7/RJo +vdSUnS8tiznmwc3jfSWgdyu9POShLDoaCt48JMOGbV1tC6PNsjjCwxgel2eD +xZKlJg6vZfHZkc7xcwQbju716YHPsvi6VJp1XZUNxsHyoWHL5PBcQ/mrEj02 +HJedvrlFRQ47VvD9VLJhQ6Nb9khDgByWZ8YfrIplg+kfXeEzwXJ4T8Oj4HM8 +G9qS2rU2h8nhUN6Z8lWX2NBTzReWFyOHr6KKRG3T2DC60k844pocBpxt/Np0 +kw0Sd3ZoGz+Ww8zxK+M8dWzwnv0Z1iwgj4wNRh6Sw2zQ83Vd80VYHisFyyOl +RtjAO9zL5paQRzXu190S42zIf9vQaUiTx16nESneaTb0PUhVvaclj/4TbfTq +f0iwjNDtznWQR8OEwz4uEiRsFA5fH1wqjxeCv9YMGZGw5OJU49UKeeTRyPt6 +fDsJbdyethW18tgVc2rPlAkJXlN7I34+kcdSJvn+lzkJed2Mt2698qjSYPKx +3oaENdnNkVbcNKwv0uwv8iBhTkWoT82ahjv+3GWx40iYvi4ZvsmWhvTN0+Jl +CSRMriIYug40FLrrcfheEgmjE7qe2zxo2LIjQKX0Mgmfao9O256l4QRh9uHs +NRKe7awUjM6nIVe41T/ebBKa7j8qjS+h4T0D3Ye6HBIa17dapdym4eGyoVHu +2yQ8EPmYkVVNw5p21/z4MhLK3q5QuPechkt3YXBANQkZXvbwaYqGRgZl67Oe +kpD23v3T13kaFhquwU3NJFy2PBkxskhDm+xLLY0tJCRsiv5vlo+OgbXVpu9b +STj3u3T/Khk6HtrizD/4mqrPxWXHDYzpWFXMtcK0jwT3hVUiRjvpKHup40v+ +BxJcj0lWmOymo/uB2m2L/SQ47lv/Z68tHXd/6ogoHCDBSupgtIcPHb/G8Kq2 +DZFgwCZzrlyho2pYZpjfLxLeyrGzt2fSscUikDdygoTTV4qzJrPpOHTGN/7y +JAmV4QXX9hbTsX7j5aSiaep8D+RcFayj448Zv2hyngSlZZeTIj/SsWPPzkIG +FweaTycnan6ho17xC53l3BxwHU9KGBymI2/CTNsg5by38XFGk3TklmasTF/G +AbmyqOi/yxl49G7xy/e8HFjjEBwWoMrAlOMPFrsFOXCvPSiU2MDAlRkday6u +4oCV2amQdk0GPgxK1NMT4kCypv+ZjcDA+pDfxYmrOSDAf+zU6B4GpruCtrgo +B8jwfwOv2zDQ89nEo1LKZjNeAeaHGKgkH3jYVIwD0Z/c/UqcGVh3iq/l2BoO +LK12Ou4ayMCF2V3h6RIcuKl+5JjYGQZaD7vlrlvLAaM8B5/GMAY+0c3ovEY5 +NNHOmxbLQAdd/3OXJTkw72Lj3neNgf13bccc13Eg/a2VW3wuA/ncY5taKevs +2edqUMDAwRydak1pDgQY7HbOuM3AOJr597+UfwqbOdo8ZuCDK7wZPrIc6Pam +vfRsYqDImhSbZ5Trn85DaCsDTU4tvU2T40DSabZsUScDI7ZHabVQPtV+PrHu +LQNP9K9yE5fngKO63eLLfgbq3/9Xy4myxif+D3PDDPyomlU+QlnC4LOF4DgD +Fct/OKvTOLDkyv0HtCkGnnThrfSiPDSWqq49z8Ar9+6w8ym/MPXJ2rnIQLyT +v/Ud5YqbxoKOSwlMmykMXUXnQNaCTIgfH4FdDaccgbJP6YvD10UIvFoVL5JK +2WZl0fNSCQJ5Wfu/1lA2dAljPZUmMH5hzuk9ZebDA5xeGoG1UnpRfygLrN0g +PaZAoNyud1YSDA5MnuCL51YjcLQ3v1WD8rvWj3/ENxLIzrUb2065kVnjrapN +4COhpvv7KZNhye/QgEBtZVLHlfLlXk9z6y0Emp974+hL+czmrXUexgSKwTLt +IMrOCVKqITsJ3CSxou4s5Z1DE5nJuwl0s2GPh1DeaNS6stCaQMM3ZR1nKEte +ywuutSXw3uywVyBlrukz3184ENhXL1PuQ3nY0vrQoDOBkffW3nai/LpY7b9Z +DwIbxgoP76Ncw71cX+AYgU/Fr9Qj5RuH+0rk/Qg0ci7tVqYcU1khqRVEoEVG +U8FqysdXJ8aahRDYy1+oMkXV54CX27z9eQKdrsm4d1DGJ+B5MprAjIoFuzLK +irISvVHxBPLbiK6MoywUNG56LZmq1z+bTjpRnn3dXH0njap/q/IVTcr9qrlK +T64RGGL93G8Z5ebIoPSeXAKrnv5Y9Zo67zv9e/hGCwh07jjknkn5qp5yEBdJ +oO2jkZAjlN1Gew+oVBAYPNDybYC6XxY77jZDLYEGO+9DDmWtGxd1rOqpev0i +9h+kvNzGQOLsMwLDTW4/f0Td39HbotGXXhA44H1W3ZdyJ9/ITH47ge6PpKyk +KRfcv97V1kegfa3STy+qHxLEA0wGBghMFNnpKUg5wNeicmaIwJbFbDZHhgPb +icUrchMEvq3bFfuJ6q/BOEebEzxM9F1W8YKg+tFnWJWmwc/Ej/xhZIUUB2ZM +5kZGhJioNhL7aBvlFdzJER6STOQJ0Eo7QPW3RlBDuaMaEy/N1C91oPKhpjMx +TGYjEzUPeVX2iHNg62Y783daTBwS5SnaQ9lmbHJgPzKxfOWv7bpUvpx1YYpY +7mOiVGVT9FcRav8Nv/r4DzDx70sVMKecJPew5JkdE4cFzHRvCf8/L/cbGbsy +Mcw357cHlW/P9sT4soKYWCyq97yeysc1hj9eqGQzseLPWdMfVH7mZFZlfrvJ +xM2vPqQQlJXmLrgVFjGxY327mh0PBwzKpRdpZUw8xArc94jK36PKluqST5gY +qP38tBeV33fWlMXxfmdi+LzwIPwmQc8v5MDTMWq/3YXnLKi8b3hlxrgwyUTF +IK6ztnMkdMYN1C4uMPH5S/lozxkS/nCJfZ8WUkCwbBHwouaJ6Vig6WctBVy6 +tzNidJiEdRtkInkNFHBwS+7J2m/UfD7R+FhliwK+n2PZRFDz6fK0kMGJnQqo +6Dq7sOoLCX0LxeqLDgr4F99OLPlIwgn+dyJrYxSwv0fMfm8nNW+VsM/8LfV9 +wwX3mgckeHt9kTzer4BPkraNKtwnAThx+1M+K6DpFq7Y5FoSBjV6XvaMKeBB +0SoehyoS1HVONLguVcTSgiHdjlJqf8Z5RWFqlNMCPbTzSPhxlPdkeagimuoW +xPRGUuvN2nb/4QVF/LJiYGjqAgljPWE8/8Uo4u+/IRmC50n4ZTmX+TFFEQPZ +y+e0Q0mY0R9uFCxSxH9Fm+o9A0ngEm1d4/FSEbtnrrvtcSNhbWNijbS8EjWf +2iOVqf8jY4Y4V9RjJYy0yE/bMceGb04mRfpNSpi9jBX1g/r/issNtBj/TwnV +4jztEybZ8EamO+NghxKyk5lN/42xwXFt+ibVISW8ezE6U+0LG4IEpVxeCSgj +uYSUSnjNBnJWplnqoDIq2O/70FzMBuHnzIQ7Y8qYVfxA8uBeNqyLvr1bS0sV ++7607asILoGrKrpCIm5q1HmHfe5LK4Znkls0Jy6p458B/f6yG0Wgt+5x0vrO +9citZhNUfKEQBLlv+B05p4HPzXOGBjwLQCZc1uAgcwPGigmQeWr5wEfYVext +2oABe6QDrUZvgjpr7e3AwxvR/uEF9lj9DTjRJ9xgtmQTvu9KSyoOyoWxiThr +06ub0LBGZ3OBWQ6YrH+aYaq2GXdla6ZXmmfBgwn93zNtm9Hsnd7ok4+Z4KO6 +sfeViybuimk8EFuWDqxR5/aDfFo4ciHKqMUrDbYzJHYJ3NDCmd8mHrbOqaAY +FnvqsbY2nl+58bxuWAoou+g+JHq1kYiW6WtOugQuD9wvlPvq4Gm4OOb/IBEe +5rQ7/xTTxeGn8zxte+NgsmhxZn2lLoZUDSTy6MTAUYLNl7FLD9W4BmOXx0XC +T+UUrbJxPaRtP6ybPnAeqvJ+f5yK1kdRN8dNojnhYLuNjvoyBvg1SMJWf3Mo +SP0bVa1eb4AEb5uXpX4wiK3wLt21n4VmQjUL1p8DIW/r2dPjB1m4ErwcdboC +YePZhK0pdiz0jeD3k28JBIvxOx3dR1hYN2pQwMMJhMjOqbmj3ixMlhRdpPsH +wuyNUKPT4SzcdqeoKWN5IPTqp7wpYLNw7L3KixPqAeDun3fN9BYLladlghTk +A2D61j2XH3dYGB1/7PInkQAQpnXPbKhgocRVBXHvOX/YySu97n49C/2G3om2 +NvpDXXuB85sOFrbyr9Z4YOcPZoJVagHdLLw6uGOx29Ifuk1apiXesjCK/Vh2 +3sgfJmu+R9v3s1Bg3zFzSyV/UMvV4HwbZmHY8M5126f9oK53S0DcCAtFN25i +JX/zAzPRfbB+nIWbTCD78zs/cI3yf+U3xcI/d8tlshv8YLI+MkN8loWfFcR0 +llX6wbn5tKM18yzccTM61rfED4Q2F6seXqDW57pCdPC6H2T9WzO1uMjC7amp +r+0u+cH/AL7EU6w= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -8840,100 +8728,100 @@ WZUfRMynH62dZ+H2G7HxvqV+ILSpRO3wAjU+1+Wig9f8IPvf2qnFRep7Wlq7 RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nlUTX0XB3BP0UCSZqXp3ntuczI0d+0tlJIyVEgqaa4nolFo0KySkpQ0 -0HzPRUmjIYrKk5BmZCgkGmiO9J73j7PO+qyzzlq/aX/3T8Hp2F4XriVLlnD9 -Qz3Ue7q/pZFxPn/zeCTZdFhJZ3NHtmTwlp4IKN/dK0/fLAYo9sJJsicFjpol -bZlgERCwu7Sbu+c6fLH/530nSwtWj0qkzHWXg7j1Vqcy1nZ4f8/i2GT3Y8i/ -aTpjwrIGY8bwu5/d7dDk6JRXaeACc906aePdn8A0WzX5tJY/NGwtyn91fQK8 -mVMNyxaiYO37mi9OagvQINDdsn5TMoh6O5TybuVGVopbr5tKGqSsN66zsObD -W1VOYWzrTOi9oln/U2glahl/qGYMZ8P5/NAXXGtWY+b74V1pzXkgcWkgLvWa -CJ5KFfvdNnADYqxMN7dPi2Go8LST8c0COKmX59ASIYlVaY9X7/Mqgm1j86d8 -BqTwr+pFG9vuYgjecUnl0Q8pzJj/axn7thhu5qn3iUxLoXh1wPo7H4tB0spR -r4ZPGhmwlb34vRh+VD+Z4daQxvwXN31PLimB1Ihkv4wgaXRl9PA8VSqBT2JM -n8aVa3GfI5+dWGAJhBvuOSKlK4Oer4uFLZeXwg777F86RjJ43MchUXRVKQiG -fT9nbS6DerGze7pESiGrIaow2VEGTUp4qy1kSqHarPY7T5wMPrLGX8KapTB+ -gB4w0SuDs7rKM0NWpWDvPxXfGiKLZz+Tms+ulgKRbrR2OEoW4d54mmRuKTXe -CxzeZFk0SHLHo/mlcOqP8kujfFlkzaY7j5ClkHbOXqymVRZfp+Z+7bhfCq0X -m3IKZOQwxzykeby/FPRvZlScfSiHjpsFbxySZcO27raF0WY5/M7LGB5XYIPF -kqUmDu1y+OxI13gEwYaje3164bMctpfJsK6pscE4RCE0bJk8RjRUvCrVZ8Nx -uekbW1Tl8fVy/p/KNmxodMsZaQiQx4qriQer49lg+kdP+HSIPN7V9Cj8nMiG -tuQO7U1h8jicf7pi1UU29Nbwh+XHyWN7TLGobTobRlf4CUdlyWPAmcavTTfY -IHl7h47xY3nMGr88znuPDd6zP8OaVyogc72Rh9QwG/R9XcW/CCtglWBFtPQI -G/iG+9jckgqozt3eIznOhoI3DV2baQrY5zQizTfNhv4HaWp3tRUwaKKNXvMP -CZZRej15Dgq4Oemwj4skCRuEw9eFlClgdMjX2iEjEpacn2q8UqmAvJr5X49v -J6GN29O2sk4Bu+OC9kyZkOA1tTfq5xMFvMUk3/0yJyG/h/HGrU8BVRtMPtbb -kCCe0xxtxU3D+mKtD8UeJMypCvWrW9PQ7M8dFjuBhOlrUuEbbWlI3zQtUZ5E -wuQqgqHnQEOhOx6H7yaTMDqh57nNg4YtOwJUyy6R8Knu6LTtGRpOEGbvz2SR -8GxnlWBsAQ15wq3+8WaT0HT/UVliKQ3vGuo91OOQ0Liu1Sr1Fg0Plw+Nct8i -4YHIx8zsGhrWdrgWJJaTUP5mueLd5zTk2oUhATUkZHrZw6cpGhoZlq/LfkpC -+jv3T1/naVi0WRw3NpNwyfJk1MgiDW1yLrY0tpCQtDH2v1l+OgbW1Zi+ayUh -4nfZ/lWydDy0xVlgsJ1an/PLjhsa07G6hGu5aT8J7gurRIx20lHuYueXgvck -uB6TqjTZTUf3A3XbFj+Q4Lhv3Z+9tnTc/akzqmiABCvpg7EePnT8Fsen1jZE -giGbzL18mY5qYVfD/H6R8EaenbP9Kh1bLAL5oidIOHW5JHsyh45Dp30TL02S -UBVemLW3hI71Gy4lF09T+3sg94rgPTr+mPGLJedJUF52KTn6Ix079+wsYnBx -oPlUygWtL3Q0LHmhy8PNAdfx5KTBYTryJc20DVLOf5OYYDRJR24ZxoqMZRyQ -L4+J/cvDwKN3Sl6+4+OAuENIWIAaA1OPP1jsEeTA3Y7gUGI9A1dkdoqfX8UB -K7Ogsx1aDHwYfEFfX4gDKVr+pzcAA+vP/i65sJoDKwWOBY3uYWCGK+hIiHKA -DP838JoNAz2fTTwqo2w24xVgfoiBygqBh03FOBD7yd2v1JmBD4L4W46Jc2Bp -jdNx10AGLszuCs+Q5MANjSPHxE4z0GbYLW/tGg4Y5Tv4NIYx8LFeZlcW5dAL -dt60eAY66flHXJLiwLyLjXt/FgPf37Edc1zLgYw3Vm6JeQzkd49vaqWsu2ef -q2EhAz/n6tZoyXAgwHC3c+YtBibQzL//pfxT2MzR5jE1nst8mT5yHOjxpr30 -bGKgiHiqzTPK9U/nIbSVgSZBS2/R5DmQfIotV9zFwMjtMdotlIM6zl2494aB -Jz6scpNQ4ICjht3iyw8MNLj/r7YTZc1PAu/nhhk4oJZdMUJZ0vCzheA4A5Uq -fjhr0Diw5PL9B7QpBh534avyojw0lqahM8/Ay3dvswsovzD1yd65yECj2wVb -31KuvGEs6LiUwPSZotBVdA5kL8ie9eMnsLshyBEo+5S9OHxNhMAr1YkiaZRt -VhQ/L5MkkI+1/2st5c0uYaynMgQmLcw5vaPMfHiA00cjsE5aP+YP5ZVr1suM -KRIov+utlSSDA5Mn+BO51Qkc7Sto1aT8tvXjH4kNBLLz7Ma2U25k1nqr6RD4 -SKjp/n7KZFjKWzQkUEeF1HWlfKnP09x6C4HmEa8dfSmf3rT1nocxgWKwTCeY -snOStNrZnQRulFx+7wzlnUMTV1N2E+hiwx4/S3mDUeuKImsCN78u7zxNWSor -P6TOlsC7s8NegZS5pk9/f+FAYH+9bIUP5WFL60ODzgRG311zy4lye4n6f7Me -BDaMFR3eR7mWm8dg5TECGyUu1yPl64f7SxX8CDRyLutRoRxXVSmlHUygZWZT -4WrKx1dfiDc7S2CfQJHqFLU+B7zc5u3PEXgkS9a9kzI+Ac+TsQRmVi7YlVNW -kpPsi0kkUNBGdEUCZaHgcdOsFGq9/tl40onybHtzze10AhNbVS5rUf6glqf8 -JIvAMOvnfssoN0cHZ/TmEVj19Meqdmq/b3/Ywz9aSKBT5yH3q5Sv6KsEc5EE -2j4aOXuEstto3wHVSgJPD7R8G6DOl8WOO81QR6DhzvuQS1n7+nldq3oCK34R -+w9S5rExlDzzjMBwk1vPH1Hnd/SWaOzFFwQOeJ/R8KXcxT8yU9BBoMcjaSsZ -yoX3r3W39RNoX6f804uqhySJAJOBAer8iOz0FKQc4GtRNTNEYMtiDpsjy4Ht -xOJl+QkC39zbFf+Jqq/BBEebE7xM9F1W+YKg6tFnWI2mKcDEjwJhZKU0B2ZM -5kZGhJioPhL/aBvl5dwpUR5STOQJ0E4/QNW3ZnBDhaM6Ey/O1C91oPKhtutC -mOwGJmod8qrqleDA1k125m+1mTgkylu8h7LN2OTAfmRixYpf2/WofDnjwhSx -3MdE6aqm2K8i1PwbfvULHGDi35eqYE45Wf5h6TM7Jg6vNNO7Kfz/vNxvZOzK -xDDf3N8eVL492xPnywpmYomo/vN6Kh/FN/94oZrDxMo/Z0x/UPmZe7X66rcb -TNz06n0qQVl5LtKtqJiJr9d1qNvxcsCwQmaRVs5Ee1bgvkdU/h5VsdSQesLE -QJ3np7yo/L4tXp7A952J4fPCg/CbBH2/sweejlHz7SmKsKDyvuGVGSNykolK -wVxnbOdI6EoYqFtcYOLzlwqxnjMk/OES+z4tpIgsy5aVXlQ/MR0LNP2srYhL -93ZFjQ6TsHa9bDSfoSIObsk7WfeN6s8nGh+rblHEd3MsmyiqP12aFjI8sVMR -lVxnF1Z9IaF/oURj0UER/+KbiSUfSTgh8FZkTZwifugVs9/bRfVbZew3f0P9 -3xDpXvuABG+vL1LHPyhiU/K2UcX7JAAnYX/qZ0U03cIVn1JHwqBm78veMUU8 -KFrN61BNgobuiQbXpUpYVjik11lGzc84vzhMnXJ6oIdOPgk/jvKdrAhVQlO9 -wri+aGq82dvuP4xUwqHlA0NTkSSM9Ybx/henhL//ns0UPEfCL8u5qx9TlTCQ -zTOnE0rCjMFwo2CxEh4Tbar3DCSBS7RV3OOlEvbMXHPb40bCmsYLtTIKylR/ -6ohWoe5HxgwJrpjHyhhjUZC+Y44N35xMig2alDFnGSvmB3X/SsgLtBj/Txk1 -EjztkybZ8Fq2J/NgpzKyU5hN/42xwXFNxka1IWW8cz72qvoXNgQLSru8WqmC -5BJSOqmdDeSsbLP0QRVUtN/3vrmEDcLPmUm3x1Qwu+SB1MG9bFgbe2u3trYa -9n9p21cZUgpXVPWERNzUqf0O+9yfXgLPpLZoTVzUwD8DBh/KrxeD/trHyeu6 -1iG3uk1wSWQRCHJf9zsSoYnPzXOHBjwLQTZczvAgcz3Gi60k89ULgJ+wq9zb -tB6D9sgEWo3eAA3WmluBhzeg/cNI9lj9dTjRL9xgtmQjvutOTy4JzoOxiQRr -0ysbEWp1NxWa5YLJuqeZpuqb0CJHK6PKPBseTBj8nmnbhGZv9UeffLwKPmob -+l65aOGuuMYD8eUZwBp17jjIr40jkTFGLV7psJ0huWvldW2c+W3iYeucBkph -8UGPdXTw3IoN5/TCUkHFRe8h0aeDRKxsf3PyRXB54B5Z4auLIXB+zP/BBXiY -2+H8U0wPh5/O87btTYDJ4sWZdVV6GFo9cIFXNw6OEmz+zF36qM41GM+TEA0/ -VVK1y8f1kbb9sF7GwDmozv/9cSrWAEXdHDeK5oaD7TY6Gsga4tdgSVuDTaEg -/W9MjUa9ITL42rwsDUJAbLl32a79LDQTql2w/hwI+VvPnBo/yMIV4OWo2x0I -G84kbU21Y6FvlICfQksgWIzf7uw5wsJ7o4aFvJxAiO6amjvqzcIUKdFFun8g -zF4PNToVzsJtt4ubMnkCoc8g9XUhm4Vj71RfnNAIAHf//CzTmyxUmZYNVlQI -gOmbd11+3GZhXOKxS59EAkCY1jOzvpKFklcUJbzn/GEnn8za+/Us9Bt6K9ra -6A/3OgqdX3eysFVgteYDO38wE6xWD+hh4eXBHYs9lv7QY9IyLfmGhTHsx3Lz -Rv4wWfs91v4DCwX2HTO3VPYH9TxNzrdhFoYN71y7fdoP7vVtCUgYYaHoho2s -lG9+YCa6D9aNs3CjCeR8fusHrjH+r/ymWPjnToVsToMfTNZHZ0rMsnBQUUx3 -WZUfRMynH62dZ+H2G7HxvqV+ILSpRO3wAjU+1+Wig9f8IPvf2qnFRep7Wlq7 -3UU/+B8jw1O4 +1:eJwV1mk4VW0XB/AeKhSSISLTOWcfszSYHWulIhINqCQkM49ShqQMlTFTJKEM +ZT77VCRzpSj0SJO5kqKSMpRZybvfD/va1+/Dvq77Xve9/mvLOx3b68K1ZMkS +rn+oh3pP97U0Mi7mGY5fIJsOK2obtmdJBG3pPgdlu3vk6IZigGIvnCS6k8HZ +LGHLBIuAgN0lXdzdN+CL/T8fOliasHpUPHmuqwzWWG91KmVthw91Fscmux7D +zVumMyYsazBmDL//2fUamhydciv0XWCuSzt1vOsTmGapJJ3R9IeGrYV5r25M +gDdzqmHZQgSs+1D9xUl1ARr4u1o2bE4CUW+HEp6t3MhKdutxU06F5A3GtRbW +vFha6RTGts6Anqsa9T+FBFDTuL+KMZwFF/NCX3CtXY1XPwzvSm3OBfHLAzEp +10XwdIrY77aBmxBlZWr4eloMQ4WnnYxv5cNJ3VyHlnMSWJn6ePU+r0LYNjZ/ +2mdAEv+qXLKx7SqCoB2XlR/9kMT0+b+W0e+K4FauWq/ItCSKVwVsuPuxCCSs +HHWreaWQAVvZi9+L4EfVkxludSnMe3HL9+SSYkg5l+SXfkoKXRndy58qFsMn +MaZPo8A63OfIaycWWAzhBnuOSOpIo+ebImHLFSWwwz7rl7aRNPr6OMSLrioB +wbDv563NpVE/enZPp0gJXGuIKEhylEaTYp4qC+kSqDKr+b48RhofWeMvYY0S +GD9AD5jokcZZHaWZIasSsPefim0NlsHQz6TGs8wSINKM1g1HyCDUjadK5JRQ +603k8CTJICvBHY/mlcDpP0ovjfJk0GA2zXmELIHU8/Zi1a0y+CYl52v7/RJo +vdSUnS8tiznmwc3jfSWgdyu9POShLDoaCt48JMOGbV1tC6PNsjjCwxgel2eD +xZKlJg6vZfHZkc7xcwQbju716YHPsvi6VJp1XZUNxsHyoWHL5PBcQ/mrEj02 +HJedvrlFRQ47VvD9VLJhQ6Nb9khDgByWZ8YfrIplg+kfXeEzwXJ4T8Oj4HM8 +G9qS2rU2h8nhUN6Z8lWX2NBTzReWFyOHr6KKRG3T2DC60k844pocBpxt/Np0 +kw0Sd3ZoGz+Ww8zxK+M8dWzwnv0Z1iwgj4wNRh6Sw2zQ83Vd80VYHisFyyOl +RtjAO9zL5paQRzXu190S42zIf9vQaUiTx16nESneaTb0PUhVvaclj/4TbfTq +f0iwjNDtznWQR8OEwz4uEiRsFA5fH1wqjxeCv9YMGZGw5OJU49UKeeTRyPt6 +fDsJbdyethW18tgVc2rPlAkJXlN7I34+kcdSJvn+lzkJed2Mt2698qjSYPKx +3oaENdnNkVbcNKwv0uwv8iBhTkWoT82ahjv+3GWx40iYvi4ZvsmWhvTN0+Jl +CSRMriIYug40FLrrcfheEgmjE7qe2zxo2LIjQKX0Mgmfao9O256l4QRh9uHs +NRKe7awUjM6nIVe41T/ebBKa7j8qjS+h4T0D3Ye6HBIa17dapdym4eGyoVHu +2yQ8EPmYkVVNw5p21/z4MhLK3q5QuPechkt3YXBANQkZXvbwaYqGRgZl67Oe +kpD23v3T13kaFhquwU3NJFy2PBkxskhDm+xLLY0tJCRsiv5vlo+OgbXVpu9b +STj3u3T/Khk6HtrizD/4mqrPxWXHDYzpWFXMtcK0jwT3hVUiRjvpKHup40v+ +BxJcj0lWmOymo/uB2m2L/SQ47lv/Z68tHXd/6ogoHCDBSupgtIcPHb/G8Kq2 +DZFgwCZzrlyho2pYZpjfLxLeyrGzt2fSscUikDdygoTTV4qzJrPpOHTGN/7y +JAmV4QXX9hbTsX7j5aSiaep8D+RcFayj448Zv2hyngSlZZeTIj/SsWPPzkIG +FweaTycnan6ho17xC53l3BxwHU9KGBymI2/CTNsg5by38XFGk3TklmasTF/G +AbmyqOi/yxl49G7xy/e8HFjjEBwWoMrAlOMPFrsFOXCvPSiU2MDAlRkday6u +4oCV2amQdk0GPgxK1NMT4kCypv+ZjcDA+pDfxYmrOSDAf+zU6B4GpruCtrgo +B8jwfwOv2zDQ89nEo1LKZjNeAeaHGKgkH3jYVIwD0Z/c/UqcGVh3iq/l2BoO +LK12Ou4ayMCF2V3h6RIcuKl+5JjYGQZaD7vlrlvLAaM8B5/GMAY+0c3ovEY5 +NNHOmxbLQAdd/3OXJTkw72Lj3neNgf13bccc13Eg/a2VW3wuA/ncY5taKevs +2edqUMDAwRydak1pDgQY7HbOuM3AOJr597+UfwqbOdo8ZuCDK7wZPrIc6Pam +vfRsYqDImhSbZ5Trn85DaCsDTU4tvU2T40DSabZsUScDI7ZHabVQPtV+PrHu +LQNP9K9yE5fngKO63eLLfgbq3/9Xy4myxif+D3PDDPyomlU+QlnC4LOF4DgD +Fct/OKvTOLDkyv0HtCkGnnThrfSiPDSWqq49z8Ar9+6w8ym/MPXJ2rnIQLyT +v/Ud5YqbxoKOSwlMmykMXUXnQNaCTIgfH4FdDaccgbJP6YvD10UIvFoVL5JK +2WZl0fNSCQJ5Wfu/1lA2dAljPZUmMH5hzuk9ZebDA5xeGoG1UnpRfygLrN0g +PaZAoNyud1YSDA5MnuCL51YjcLQ3v1WD8rvWj3/ENxLIzrUb2065kVnjrapN +4COhpvv7KZNhye/QgEBtZVLHlfLlXk9z6y0Emp974+hL+czmrXUexgSKwTLt +IMrOCVKqITsJ3CSxou4s5Z1DE5nJuwl0s2GPh1DeaNS6stCaQMM3ZR1nKEte +ywuutSXw3uywVyBlrukz3184ENhXL1PuQ3nY0vrQoDOBkffW3nai/LpY7b9Z +DwIbxgoP76Ncw71cX+AYgU/Fr9Qj5RuH+0rk/Qg0ci7tVqYcU1khqRVEoEVG +U8FqysdXJ8aahRDYy1+oMkXV54CX27z9eQKdrsm4d1DGJ+B5MprAjIoFuzLK +irISvVHxBPLbiK6MoywUNG56LZmq1z+bTjpRnn3dXH0njap/q/IVTcr9qrlK +T64RGGL93G8Z5ebIoPSeXAKrnv5Y9Zo67zv9e/hGCwh07jjknkn5qp5yEBdJ +oO2jkZAjlN1Gew+oVBAYPNDybYC6XxY77jZDLYEGO+9DDmWtGxd1rOqpev0i +9h+kvNzGQOLsMwLDTW4/f0Td39HbotGXXhA44H1W3ZdyJ9/ITH47ge6PpKyk +KRfcv97V1kegfa3STy+qHxLEA0wGBghMFNnpKUg5wNeicmaIwJbFbDZHhgPb +icUrchMEvq3bFfuJ6q/BOEebEzxM9F1W8YKg+tFnWJWmwc/Ej/xhZIUUB2ZM +5kZGhJioNhL7aBvlFdzJER6STOQJ0Eo7QPW3RlBDuaMaEy/N1C91oPKhpjMx +TGYjEzUPeVX2iHNg62Y783daTBwS5SnaQ9lmbHJgPzKxfOWv7bpUvpx1YYpY +7mOiVGVT9FcRav8Nv/r4DzDx70sVMKecJPew5JkdE4cFzHRvCf8/L/cbGbsy +Mcw357cHlW/P9sT4soKYWCyq97yeysc1hj9eqGQzseLPWdMfVH7mZFZlfrvJ +xM2vPqQQlJXmLrgVFjGxY327mh0PBwzKpRdpZUw8xArc94jK36PKluqST5gY +qP38tBeV33fWlMXxfmdi+LzwIPwmQc8v5MDTMWq/3YXnLKi8b3hlxrgwyUTF +IK6ztnMkdMYN1C4uMPH5S/lozxkS/nCJfZ8WUkCwbBHwouaJ6Vig6WctBVy6 +tzNidJiEdRtkInkNFHBwS+7J2m/UfD7R+FhliwK+n2PZRFDz6fK0kMGJnQqo +6Dq7sOoLCX0LxeqLDgr4F99OLPlIwgn+dyJrYxSwv0fMfm8nNW+VsM/8LfV9 +wwX3mgckeHt9kTzer4BPkraNKtwnAThx+1M+K6DpFq7Y5FoSBjV6XvaMKeBB +0SoehyoS1HVONLguVcTSgiHdjlJqf8Z5RWFqlNMCPbTzSPhxlPdkeagimuoW +xPRGUuvN2nb/4QVF/LJiYGjqAgljPWE8/8Uo4u+/IRmC50n4ZTmX+TFFEQPZ +y+e0Q0mY0R9uFCxSxH9Fm+o9A0ngEm1d4/FSEbtnrrvtcSNhbWNijbS8EjWf +2iOVqf8jY4Y4V9RjJYy0yE/bMceGb04mRfpNSpi9jBX1g/r/issNtBj/TwnV +4jztEybZ8EamO+NghxKyk5lN/42xwXFt+ibVISW8ezE6U+0LG4IEpVxeCSgj +uYSUSnjNBnJWplnqoDIq2O/70FzMBuHnzIQ7Y8qYVfxA8uBeNqyLvr1bS0sV ++7607asILoGrKrpCIm5q1HmHfe5LK4Znkls0Jy6p458B/f6yG0Wgt+5x0vrO +9citZhNUfKEQBLlv+B05p4HPzXOGBjwLQCZc1uAgcwPGigmQeWr5wEfYVext +2oABe6QDrUZvgjpr7e3AwxvR/uEF9lj9DTjRJ9xgtmQTvu9KSyoOyoWxiThr +06ub0LBGZ3OBWQ6YrH+aYaq2GXdla6ZXmmfBgwn93zNtm9Hsnd7ok4+Z4KO6 +sfeViybuimk8EFuWDqxR5/aDfFo4ciHKqMUrDbYzJHYJ3NDCmd8mHrbOqaAY +FnvqsbY2nl+58bxuWAoou+g+JHq1kYiW6WtOugQuD9wvlPvq4Gm4OOb/IBEe +5rQ7/xTTxeGn8zxte+NgsmhxZn2lLoZUDSTy6MTAUYLNl7FLD9W4BmOXx0XC +T+UUrbJxPaRtP6ybPnAeqvJ+f5yK1kdRN8dNojnhYLuNjvoyBvg1SMJWf3Mo +SP0bVa1eb4AEb5uXpX4wiK3wLt21n4VmQjUL1p8DIW/r2dPjB1m4ErwcdboC +YePZhK0pdiz0jeD3k28JBIvxOx3dR1hYN2pQwMMJhMjOqbmj3ixMlhRdpPsH +wuyNUKPT4SzcdqeoKWN5IPTqp7wpYLNw7L3KixPqAeDun3fN9BYLladlghTk +A2D61j2XH3dYGB1/7PInkQAQpnXPbKhgocRVBXHvOX/YySu97n49C/2G3om2 +NvpDXXuB85sOFrbyr9Z4YOcPZoJVagHdLLw6uGOx29Ifuk1apiXesjCK/Vh2 +3sgfJmu+R9v3s1Bg3zFzSyV/UMvV4HwbZmHY8M5126f9oK53S0DcCAtFN25i +JX/zAzPRfbB+nIWbTCD78zs/cI3yf+U3xcI/d8tlshv8YLI+MkN8loWfFcR0 +llX6wbn5tKM18yzccTM61rfED4Q2F6seXqDW57pCdPC6H2T9WzO1uMjC7amp +r+0u+cH/AL7EU6w= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.05691906631333835}}, + "PlotRange" -> {{0, 30}, {0., 0.056919066313338366`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> @@ -8957,7 +8845,7 @@ WZUfRMynH62dZ+H2G7HxvqV+ILSpRO3wAjU+1+Wig9f8IPvf2qnFRep7Wlq7 "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.05691906631333835}}, + "PlotRange" -> {{0, 30}, {0., 0.056919066313338366`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), @@ -8986,100 +8874,100 @@ WZUfRMynH62dZ+H2G7HxvqV+ILSpRO3wAjU+1+Wig9f8IPvf2qnFRep7Wlq7 RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nlUTX0XB3BP0UCSZqXp3ntuczI0d+0tlJIyVEgqaa4nolFo0KySkpQ0 -0HzPRUmjIYrKk5BmZCgkGmiO9J73j7PO+qyzzlq/aX/3T8Hp2F4XriVLlnD9 -Qz3Ue7q/pZFxPn/zeCTZdFhJZ3NHtmTwlp4IKN/dK0/fLAYo9sJJsicFjpol -bZlgERCwu7Sbu+c6fLH/530nSwtWj0qkzHWXg7j1Vqcy1nZ4f8/i2GT3Y8i/ -aTpjwrIGY8bwu5/d7dDk6JRXaeACc906aePdn8A0WzX5tJY/NGwtyn91fQK8 -mVMNyxaiYO37mi9OagvQINDdsn5TMoh6O5TybuVGVopbr5tKGqSsN66zsObD -W1VOYWzrTOi9oln/U2glahl/qGYMZ8P5/NAXXGtWY+b74V1pzXkgcWkgLvWa -CJ5KFfvdNnADYqxMN7dPi2Go8LST8c0COKmX59ASIYlVaY9X7/Mqgm1j86d8 -BqTwr+pFG9vuYgjecUnl0Q8pzJj/axn7thhu5qn3iUxLoXh1wPo7H4tB0spR -r4ZPGhmwlb34vRh+VD+Z4daQxvwXN31PLimB1Ihkv4wgaXRl9PA8VSqBT2JM -n8aVa3GfI5+dWGAJhBvuOSKlK4Oer4uFLZeXwg777F86RjJ43MchUXRVKQiG -fT9nbS6DerGze7pESiGrIaow2VEGTUp4qy1kSqHarPY7T5wMPrLGX8KapTB+ -gB4w0SuDs7rKM0NWpWDvPxXfGiKLZz+Tms+ulgKRbrR2OEoW4d54mmRuKTXe -CxzeZFk0SHLHo/mlcOqP8kujfFlkzaY7j5ClkHbOXqymVRZfp+Z+7bhfCq0X -m3IKZOQwxzykeby/FPRvZlScfSiHjpsFbxySZcO27raF0WY5/M7LGB5XYIPF -kqUmDu1y+OxI13gEwYaje3164bMctpfJsK6pscE4RCE0bJk8RjRUvCrVZ8Nx -uekbW1Tl8fVy/p/KNmxodMsZaQiQx4qriQer49lg+kdP+HSIPN7V9Cj8nMiG -tuQO7U1h8jicf7pi1UU29Nbwh+XHyWN7TLGobTobRlf4CUdlyWPAmcavTTfY -IHl7h47xY3nMGr88znuPDd6zP8OaVyogc72Rh9QwG/R9XcW/CCtglWBFtPQI -G/iG+9jckgqozt3eIznOhoI3DV2baQrY5zQizTfNhv4HaWp3tRUwaKKNXvMP -CZZRej15Dgq4Oemwj4skCRuEw9eFlClgdMjX2iEjEpacn2q8UqmAvJr5X49v -J6GN29O2sk4Bu+OC9kyZkOA1tTfq5xMFvMUk3/0yJyG/h/HGrU8BVRtMPtbb -kCCe0xxtxU3D+mKtD8UeJMypCvWrW9PQ7M8dFjuBhOlrUuEbbWlI3zQtUZ5E -wuQqgqHnQEOhOx6H7yaTMDqh57nNg4YtOwJUyy6R8Knu6LTtGRpOEGbvz2SR -8GxnlWBsAQ15wq3+8WaT0HT/UVliKQ3vGuo91OOQ0Liu1Sr1Fg0Plw+Nct8i -4YHIx8zsGhrWdrgWJJaTUP5mueLd5zTk2oUhATUkZHrZw6cpGhoZlq/LfkpC -+jv3T1/naVi0WRw3NpNwyfJk1MgiDW1yLrY0tpCQtDH2v1l+OgbW1Zi+ayUh -4nfZ/lWydDy0xVlgsJ1an/PLjhsa07G6hGu5aT8J7gurRIx20lHuYueXgvck -uB6TqjTZTUf3A3XbFj+Q4Lhv3Z+9tnTc/akzqmiABCvpg7EePnT8Fsen1jZE -giGbzL18mY5qYVfD/H6R8EaenbP9Kh1bLAL5oidIOHW5JHsyh45Dp30TL02S -UBVemLW3hI71Gy4lF09T+3sg94rgPTr+mPGLJedJUF52KTn6Ix079+wsYnBx -oPlUygWtL3Q0LHmhy8PNAdfx5KTBYTryJc20DVLOf5OYYDRJR24ZxoqMZRyQ -L4+J/cvDwKN3Sl6+4+OAuENIWIAaA1OPP1jsEeTA3Y7gUGI9A1dkdoqfX8UB -K7Ogsx1aDHwYfEFfX4gDKVr+pzcAA+vP/i65sJoDKwWOBY3uYWCGK+hIiHKA -DP838JoNAz2fTTwqo2w24xVgfoiBygqBh03FOBD7yd2v1JmBD4L4W46Jc2Bp -jdNx10AGLszuCs+Q5MANjSPHxE4z0GbYLW/tGg4Y5Tv4NIYx8LFeZlcW5dAL -dt60eAY66flHXJLiwLyLjXt/FgPf37Edc1zLgYw3Vm6JeQzkd49vaqWsu2ef -q2EhAz/n6tZoyXAgwHC3c+YtBibQzL//pfxT2MzR5jE1nst8mT5yHOjxpr30 -bGKgiHiqzTPK9U/nIbSVgSZBS2/R5DmQfIotV9zFwMjtMdotlIM6zl2494aB -Jz6scpNQ4ICjht3iyw8MNLj/r7YTZc1PAu/nhhk4oJZdMUJZ0vCzheA4A5Uq -fjhr0Diw5PL9B7QpBh534avyojw0lqahM8/Ay3dvswsovzD1yd65yECj2wVb -31KuvGEs6LiUwPSZotBVdA5kL8ie9eMnsLshyBEo+5S9OHxNhMAr1YkiaZRt -VhQ/L5MkkI+1/2st5c0uYaynMgQmLcw5vaPMfHiA00cjsE5aP+YP5ZVr1suM -KRIov+utlSSDA5Mn+BO51Qkc7Sto1aT8tvXjH4kNBLLz7Ma2U25k1nqr6RD4 -SKjp/n7KZFjKWzQkUEeF1HWlfKnP09x6C4HmEa8dfSmf3rT1nocxgWKwTCeY -snOStNrZnQRulFx+7wzlnUMTV1N2E+hiwx4/S3mDUeuKImsCN78u7zxNWSor -P6TOlsC7s8NegZS5pk9/f+FAYH+9bIUP5WFL60ODzgRG311zy4lye4n6f7Me -BDaMFR3eR7mWm8dg5TECGyUu1yPl64f7SxX8CDRyLutRoRxXVSmlHUygZWZT -4WrKx1dfiDc7S2CfQJHqFLU+B7zc5u3PEXgkS9a9kzI+Ac+TsQRmVi7YlVNW -kpPsi0kkUNBGdEUCZaHgcdOsFGq9/tl40onybHtzze10AhNbVS5rUf6glqf8 -JIvAMOvnfssoN0cHZ/TmEVj19Meqdmq/b3/Ywz9aSKBT5yH3q5Sv6KsEc5EE -2j4aOXuEstto3wHVSgJPD7R8G6DOl8WOO81QR6DhzvuQS1n7+nldq3oCK34R -+w9S5rExlDzzjMBwk1vPH1Hnd/SWaOzFFwQOeJ/R8KXcxT8yU9BBoMcjaSsZ -yoX3r3W39RNoX6f804uqhySJAJOBAer8iOz0FKQc4GtRNTNEYMtiDpsjy4Ht -xOJl+QkC39zbFf+Jqq/BBEebE7xM9F1W+YKg6tFnWI2mKcDEjwJhZKU0B2ZM -5kZGhJioPhL/aBvl5dwpUR5STOQJ0E4/QNW3ZnBDhaM6Ey/O1C91oPKhtutC -mOwGJmod8qrqleDA1k125m+1mTgkylu8h7LN2OTAfmRixYpf2/WofDnjwhSx -3MdE6aqm2K8i1PwbfvULHGDi35eqYE45Wf5h6TM7Jg6vNNO7Kfz/vNxvZOzK -xDDf3N8eVL492xPnywpmYomo/vN6Kh/FN/94oZrDxMo/Z0x/UPmZe7X66rcb -TNz06n0qQVl5LtKtqJiJr9d1qNvxcsCwQmaRVs5Ee1bgvkdU/h5VsdSQesLE -QJ3np7yo/L4tXp7A952J4fPCg/CbBH2/sweejlHz7SmKsKDyvuGVGSNykolK -wVxnbOdI6EoYqFtcYOLzlwqxnjMk/OES+z4tpIgsy5aVXlQ/MR0LNP2srYhL -93ZFjQ6TsHa9bDSfoSIObsk7WfeN6s8nGh+rblHEd3MsmyiqP12aFjI8sVMR -lVxnF1Z9IaF/oURj0UER/+KbiSUfSTgh8FZkTZwifugVs9/bRfVbZew3f0P9 -3xDpXvuABG+vL1LHPyhiU/K2UcX7JAAnYX/qZ0U03cIVn1JHwqBm78veMUU8 -KFrN61BNgobuiQbXpUpYVjik11lGzc84vzhMnXJ6oIdOPgk/jvKdrAhVQlO9 -wri+aGq82dvuP4xUwqHlA0NTkSSM9Ybx/henhL//ns0UPEfCL8u5qx9TlTCQ -zTOnE0rCjMFwo2CxEh4Tbar3DCSBS7RV3OOlEvbMXHPb40bCmsYLtTIKylR/ -6ohWoe5HxgwJrpjHyhhjUZC+Y44N35xMig2alDFnGSvmB3X/SsgLtBj/Txk1 -EjztkybZ8Fq2J/NgpzKyU5hN/42xwXFNxka1IWW8cz72qvoXNgQLSru8WqmC -5BJSOqmdDeSsbLP0QRVUtN/3vrmEDcLPmUm3x1Qwu+SB1MG9bFgbe2u3trYa -9n9p21cZUgpXVPWERNzUqf0O+9yfXgLPpLZoTVzUwD8DBh/KrxeD/trHyeu6 -1iG3uk1wSWQRCHJf9zsSoYnPzXOHBjwLQTZczvAgcz3Gi60k89ULgJ+wq9zb -tB6D9sgEWo3eAA3WmluBhzeg/cNI9lj9dTjRL9xgtmQjvutOTy4JzoOxiQRr -0ysbEWp1NxWa5YLJuqeZpuqb0CJHK6PKPBseTBj8nmnbhGZv9UeffLwKPmob -+l65aOGuuMYD8eUZwBp17jjIr40jkTFGLV7psJ0huWvldW2c+W3iYeucBkph -8UGPdXTw3IoN5/TCUkHFRe8h0aeDRKxsf3PyRXB54B5Z4auLIXB+zP/BBXiY -2+H8U0wPh5/O87btTYDJ4sWZdVV6GFo9cIFXNw6OEmz+zF36qM41GM+TEA0/ -VVK1y8f1kbb9sF7GwDmozv/9cSrWAEXdHDeK5oaD7TY6Gsga4tdgSVuDTaEg -/W9MjUa9ITL42rwsDUJAbLl32a79LDQTql2w/hwI+VvPnBo/yMIV4OWo2x0I -G84kbU21Y6FvlICfQksgWIzf7uw5wsJ7o4aFvJxAiO6amjvqzcIUKdFFun8g -zF4PNToVzsJtt4ubMnkCoc8g9XUhm4Vj71RfnNAIAHf//CzTmyxUmZYNVlQI -gOmbd11+3GZhXOKxS59EAkCY1jOzvpKFklcUJbzn/GEnn8za+/Us9Bt6K9ra -6A/3OgqdX3eysFVgteYDO38wE6xWD+hh4eXBHYs9lv7QY9IyLfmGhTHsx3Lz -Rv4wWfs91v4DCwX2HTO3VPYH9TxNzrdhFoYN71y7fdoP7vVtCUgYYaHoho2s -lG9+YCa6D9aNs3CjCeR8fusHrjH+r/ymWPjnToVsToMfTNZHZ0rMsnBQUUx3 -WZUfRMynH62dZ+H2G7HxvqV+ILSpRO3wAjU+1+Wig9f8IPvf2qnFRep7Wlq7 -3UU/+B8jw1O4 +1:eJwV1mk4VW0XB/AeKhSSISLTOWcfszSYHWulIhINqCQkM49ShqQMlTFTJKEM +ZT77VCRzpSj0SJO5kqKSMpRZybvfD/va1+/Dvq77Xve9/mvLOx3b68K1ZMkS +rn+oh3pP97U0Mi7mGY5fIJsOK2obtmdJBG3pPgdlu3vk6IZigGIvnCS6k8HZ +LGHLBIuAgN0lXdzdN+CL/T8fOliasHpUPHmuqwzWWG91KmVthw91Fscmux7D +zVumMyYsazBmDL//2fUamhydciv0XWCuSzt1vOsTmGapJJ3R9IeGrYV5r25M +gDdzqmHZQgSs+1D9xUl1ARr4u1o2bE4CUW+HEp6t3MhKdutxU06F5A3GtRbW +vFha6RTGts6Anqsa9T+FBFDTuL+KMZwFF/NCX3CtXY1XPwzvSm3OBfHLAzEp +10XwdIrY77aBmxBlZWr4eloMQ4WnnYxv5cNJ3VyHlnMSWJn6ePU+r0LYNjZ/ +2mdAEv+qXLKx7SqCoB2XlR/9kMT0+b+W0e+K4FauWq/ItCSKVwVsuPuxCCSs +HHWreaWQAVvZi9+L4EfVkxludSnMe3HL9+SSYkg5l+SXfkoKXRndy58qFsMn +MaZPo8A63OfIaycWWAzhBnuOSOpIo+ebImHLFSWwwz7rl7aRNPr6OMSLrioB +wbDv563NpVE/enZPp0gJXGuIKEhylEaTYp4qC+kSqDKr+b48RhofWeMvYY0S +GD9AD5jokcZZHaWZIasSsPefim0NlsHQz6TGs8wSINKM1g1HyCDUjadK5JRQ +603k8CTJICvBHY/mlcDpP0ovjfJk0GA2zXmELIHU8/Zi1a0y+CYl52v7/RJo +vdSUnS8tiznmwc3jfSWgdyu9POShLDoaCt48JMOGbV1tC6PNsjjCwxgel2eD +xZKlJg6vZfHZkc7xcwQbju716YHPsvi6VJp1XZUNxsHyoWHL5PBcQ/mrEj02 +HJedvrlFRQ47VvD9VLJhQ6Nb9khDgByWZ8YfrIplg+kfXeEzwXJ4T8Oj4HM8 +G9qS2rU2h8nhUN6Z8lWX2NBTzReWFyOHr6KKRG3T2DC60k844pocBpxt/Np0 +kw0Sd3ZoGz+Ww8zxK+M8dWzwnv0Z1iwgj4wNRh6Sw2zQ83Vd80VYHisFyyOl +RtjAO9zL5paQRzXu190S42zIf9vQaUiTx16nESneaTb0PUhVvaclj/4TbfTq +f0iwjNDtznWQR8OEwz4uEiRsFA5fH1wqjxeCv9YMGZGw5OJU49UKeeTRyPt6 +fDsJbdyethW18tgVc2rPlAkJXlN7I34+kcdSJvn+lzkJed2Mt2698qjSYPKx +3oaENdnNkVbcNKwv0uwv8iBhTkWoT82ahjv+3GWx40iYvi4ZvsmWhvTN0+Jl +CSRMriIYug40FLrrcfheEgmjE7qe2zxo2LIjQKX0Mgmfao9O256l4QRh9uHs +NRKe7awUjM6nIVe41T/ebBKa7j8qjS+h4T0D3Ye6HBIa17dapdym4eGyoVHu +2yQ8EPmYkVVNw5p21/z4MhLK3q5QuPechkt3YXBANQkZXvbwaYqGRgZl67Oe +kpD23v3T13kaFhquwU3NJFy2PBkxskhDm+xLLY0tJCRsiv5vlo+OgbXVpu9b +STj3u3T/Khk6HtrizD/4mqrPxWXHDYzpWFXMtcK0jwT3hVUiRjvpKHup40v+ +BxJcj0lWmOymo/uB2m2L/SQ47lv/Z68tHXd/6ogoHCDBSupgtIcPHb/G8Kq2 +DZFgwCZzrlyho2pYZpjfLxLeyrGzt2fSscUikDdygoTTV4qzJrPpOHTGN/7y +JAmV4QXX9hbTsX7j5aSiaep8D+RcFayj448Zv2hyngSlZZeTIj/SsWPPzkIG +FweaTycnan6ho17xC53l3BxwHU9KGBymI2/CTNsg5by38XFGk3TklmasTF/G +AbmyqOi/yxl49G7xy/e8HFjjEBwWoMrAlOMPFrsFOXCvPSiU2MDAlRkday6u +4oCV2amQdk0GPgxK1NMT4kCypv+ZjcDA+pDfxYmrOSDAf+zU6B4GpruCtrgo +B8jwfwOv2zDQ89nEo1LKZjNeAeaHGKgkH3jYVIwD0Z/c/UqcGVh3iq/l2BoO +LK12Ou4ayMCF2V3h6RIcuKl+5JjYGQZaD7vlrlvLAaM8B5/GMAY+0c3ovEY5 +NNHOmxbLQAdd/3OXJTkw72Lj3neNgf13bccc13Eg/a2VW3wuA/ncY5taKevs +2edqUMDAwRydak1pDgQY7HbOuM3AOJr597+UfwqbOdo8ZuCDK7wZPrIc6Pam +vfRsYqDImhSbZ5Trn85DaCsDTU4tvU2T40DSabZsUScDI7ZHabVQPtV+PrHu +LQNP9K9yE5fngKO63eLLfgbq3/9Xy4myxif+D3PDDPyomlU+QlnC4LOF4DgD +Fct/OKvTOLDkyv0HtCkGnnThrfSiPDSWqq49z8Ar9+6w8ym/MPXJ2rnIQLyT +v/Ud5YqbxoKOSwlMmykMXUXnQNaCTIgfH4FdDaccgbJP6YvD10UIvFoVL5JK +2WZl0fNSCQJ5Wfu/1lA2dAljPZUmMH5hzuk9ZebDA5xeGoG1UnpRfygLrN0g +PaZAoNyud1YSDA5MnuCL51YjcLQ3v1WD8rvWj3/ENxLIzrUb2065kVnjrapN +4COhpvv7KZNhye/QgEBtZVLHlfLlXk9z6y0Emp974+hL+czmrXUexgSKwTLt +IMrOCVKqITsJ3CSxou4s5Z1DE5nJuwl0s2GPh1DeaNS6stCaQMM3ZR1nKEte +ywuutSXw3uywVyBlrukz3184ENhXL1PuQ3nY0vrQoDOBkffW3nai/LpY7b9Z +DwIbxgoP76Ncw71cX+AYgU/Fr9Qj5RuH+0rk/Qg0ci7tVqYcU1khqRVEoEVG +U8FqysdXJ8aahRDYy1+oMkXV54CX27z9eQKdrsm4d1DGJ+B5MprAjIoFuzLK +irISvVHxBPLbiK6MoywUNG56LZmq1z+bTjpRnn3dXH0njap/q/IVTcr9qrlK +T64RGGL93G8Z5ebIoPSeXAKrnv5Y9Zo67zv9e/hGCwh07jjknkn5qp5yEBdJ +oO2jkZAjlN1Gew+oVBAYPNDybYC6XxY77jZDLYEGO+9DDmWtGxd1rOqpev0i +9h+kvNzGQOLsMwLDTW4/f0Td39HbotGXXhA44H1W3ZdyJ9/ITH47ge6PpKyk +KRfcv97V1kegfa3STy+qHxLEA0wGBghMFNnpKUg5wNeicmaIwJbFbDZHhgPb +icUrchMEvq3bFfuJ6q/BOEebEzxM9F1W8YKg+tFnWJWmwc/Ej/xhZIUUB2ZM +5kZGhJioNhL7aBvlFdzJER6STOQJ0Eo7QPW3RlBDuaMaEy/N1C91oPKhpjMx +TGYjEzUPeVX2iHNg62Y783daTBwS5SnaQ9lmbHJgPzKxfOWv7bpUvpx1YYpY +7mOiVGVT9FcRav8Nv/r4DzDx70sVMKecJPew5JkdE4cFzHRvCf8/L/cbGbsy +Mcw357cHlW/P9sT4soKYWCyq97yeysc1hj9eqGQzseLPWdMfVH7mZFZlfrvJ +xM2vPqQQlJXmLrgVFjGxY327mh0PBwzKpRdpZUw8xArc94jK36PKluqST5gY +qP38tBeV33fWlMXxfmdi+LzwIPwmQc8v5MDTMWq/3YXnLKi8b3hlxrgwyUTF +IK6ztnMkdMYN1C4uMPH5S/lozxkS/nCJfZ8WUkCwbBHwouaJ6Vig6WctBVy6 +tzNidJiEdRtkInkNFHBwS+7J2m/UfD7R+FhliwK+n2PZRFDz6fK0kMGJnQqo +6Dq7sOoLCX0LxeqLDgr4F99OLPlIwgn+dyJrYxSwv0fMfm8nNW+VsM/8LfV9 +wwX3mgckeHt9kTzer4BPkraNKtwnAThx+1M+K6DpFq7Y5FoSBjV6XvaMKeBB +0SoehyoS1HVONLguVcTSgiHdjlJqf8Z5RWFqlNMCPbTzSPhxlPdkeagimuoW +xPRGUuvN2nb/4QVF/LJiYGjqAgljPWE8/8Uo4u+/IRmC50n4ZTmX+TFFEQPZ +y+e0Q0mY0R9uFCxSxH9Fm+o9A0ngEm1d4/FSEbtnrrvtcSNhbWNijbS8EjWf +2iOVqf8jY4Y4V9RjJYy0yE/bMceGb04mRfpNSpi9jBX1g/r/issNtBj/TwnV +4jztEybZ8EamO+NghxKyk5lN/42xwXFt+ibVISW8ezE6U+0LG4IEpVxeCSgj +uYSUSnjNBnJWplnqoDIq2O/70FzMBuHnzIQ7Y8qYVfxA8uBeNqyLvr1bS0sV ++7607asILoGrKrpCIm5q1HmHfe5LK4Znkls0Jy6p458B/f6yG0Wgt+5x0vrO +9citZhNUfKEQBLlv+B05p4HPzXOGBjwLQCZc1uAgcwPGigmQeWr5wEfYVext +2oABe6QDrUZvgjpr7e3AwxvR/uEF9lj9DTjRJ9xgtmQTvu9KSyoOyoWxiThr +06ub0LBGZ3OBWQ6YrH+aYaq2GXdla6ZXmmfBgwn93zNtm9Hsnd7ok4+Z4KO6 +sfeViybuimk8EFuWDqxR5/aDfFo4ciHKqMUrDbYzJHYJ3NDCmd8mHrbOqaAY +FnvqsbY2nl+58bxuWAoou+g+JHq1kYiW6WtOugQuD9wvlPvq4Gm4OOb/IBEe +5rQ7/xTTxeGn8zxte+NgsmhxZn2lLoZUDSTy6MTAUYLNl7FLD9W4BmOXx0XC +T+UUrbJxPaRtP6ybPnAeqvJ+f5yK1kdRN8dNojnhYLuNjvoyBvg1SMJWf3Mo +SP0bVa1eb4AEb5uXpX4wiK3wLt21n4VmQjUL1p8DIW/r2dPjB1m4ErwcdboC +YePZhK0pdiz0jeD3k28JBIvxOx3dR1hYN2pQwMMJhMjOqbmj3ixMlhRdpPsH +wuyNUKPT4SzcdqeoKWN5IPTqp7wpYLNw7L3KixPqAeDun3fN9BYLladlghTk +A2D61j2XH3dYGB1/7PInkQAQpnXPbKhgocRVBXHvOX/YySu97n49C/2G3om2 +NvpDXXuB85sOFrbyr9Z4YOcPZoJVagHdLLw6uGOx29Ifuk1apiXesjCK/Vh2 +3sgfJmu+R9v3s1Bg3zFzSyV/UMvV4HwbZmHY8M5126f9oK53S0DcCAtFN25i +JX/zAzPRfbB+nIWbTCD78zs/cI3yf+U3xcI/d8tlshv8YLI+MkN8loWfFcR0 +llX6wbn5tKM18yzccTM61rfED4Q2F6seXqDW57pCdPC6H2T9WzO1uMjC7amp +r+0u+cH/AL7EU6w= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.05691906631333835}}, + "PlotRange" -> {{0, 30}, {0., 0.056919066313338366`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { @@ -9130,7 +9018,7 @@ WZUfRMynH62dZ+H2G7HxvqV+ILSpRO3wAjU+1+Wig9f8IPvf2qnFRep7Wlq7 (Identity[#]& )[ Part[#, 2]]}& )}}, PlotInteractivity:>True, - PlotRange->{{0, 30}, {0., 0.05691906631333835}}, + PlotRange->{{0, 30}, {0., 0.056919066313338366`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -9138,9 +9026,10 @@ WZUfRMynH62dZ+H2G7HxvqV+ILSpRO3wAjU+1+Wig9f8IPvf2qnFRep7Wlq7 Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913236646248627`*^9, 3.993912048943969*^9}, + CellChangeTimes->{3.9913236646248627`*^9, 3.993912048943969*^9, + 3.994252118525329*^9}, CellLabel-> - "Out[397]=",ExpressionUUID->"46a4a630-7a13-46e2-97fd-6f99f1bf1e11"] + "Out[108]=",ExpressionUUID->"60eef477-fbf6-4088-9ca6-c38db98eafb7"] }, Open ]], Cell[CellGroupData[{ @@ -9152,26 +9041,30 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], - ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -9193,70 +9086,75 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[398]:=",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], + "In[109]:=",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"8.452459865398409`*^-189\\\", \ -RowBox[{\\\"1541053003386102322388122\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"72\\\", \\\"\[RightSkeleton]\\\"}], \\\"38617600000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 398, 29, 31385385712403366894, "Local"}, +RowBox[{\\\"154105300338610232238812\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"74\\\", \\\"\[RightSkeleton]\\\"}], \\\"8617600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 109, 17, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991323664732767*^9, 3.993912049060802*^9}, + CellChangeTimes->{3.991323664732767*^9, 3.993912049060802*^9, + 3.9942521186908293`*^9}, CellLabel-> "During evaluation of \ -In[398]:=",ExpressionUUID->"cd830cde-30cd-4a13-bf04-b633de106129"], +In[109]:=",ExpressionUUID->"e2fbd359-d692-4d4c-8451-274e00f6d2bf"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0204583074291615`*^-192\\\", \ -RowBox[{\\\"3700068261130031676053882\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"75\\\", \\\"\[RightSkeleton]\\\"}], \\\"20857600000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 398, 30, 31385385712403366894, "Local"}, +RowBox[{\\\"370006826113003167605388\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"77\\\", \\\"\[RightSkeleton]\\\"}], \\\"0857600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 109, 18, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991323664732767*^9, 3.9939120490679092`*^9}, + CellChangeTimes->{3.991323664732767*^9, 3.993912049060802*^9, + 3.994252118704185*^9}, CellLabel-> "During evaluation of \ -In[398]:=",ExpressionUUID->"8c59ad0e-95f0-4862-8d26-7a6c32f100c2"], +In[109]:=",ExpressionUUID->"e2db3dbb-af1b-461b-953a-045e0281d7f4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.2319906557191388`*^-196\\\", \ -RowBox[{\\\"9250170652825079190134707\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"78\\\", \\\"\[RightSkeleton]\\\"}], \\\"44000000000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 398, 31, 31385385712403366894, "Local"}, +RowBox[{\\\"925017065282507919013470\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"80\\\", \\\"\[RightSkeleton]\\\"}], \\\"4000000000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 109, 19, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991323664732767*^9, 3.993912049074239*^9}, + CellChangeTimes->{3.991323664732767*^9, 3.993912049060802*^9, + 3.9942521187165728`*^9}, CellLabel-> "During evaluation of \ -In[398]:=",ExpressionUUID->"4c38b059-b1f8-42d1-9e6b-f8b1b0368b6d"], +In[109]:=",ExpressionUUID->"feaabaa6-6185-47a3-bc01-8167b5fccf00"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 398, 32, 31385385712403366894, "Local"}, +during this calculation.\"", 2, 109, 20, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991323664732767*^9, 3.993912049081277*^9}, + CellChangeTimes->{3.991323664732767*^9, 3.993912049060802*^9, + 3.9942521187258453`*^9}, CellLabel-> "During evaluation of \ -In[398]:=",ExpressionUUID->"116a3492-777c-4452-b405-af3cbf9af57c"], +In[109]:=",ExpressionUUID->"8a8ff505-bfae-4bc2-ab5b-a2cc7bf65e64"], Cell[BoxData["13.355339007683929`"], "Output", - CellChangeTimes->{3.9913236764669056`*^9, 3.993912088955201*^9}, + CellChangeTimes->{3.9913236764669056`*^9, 3.993912088955201*^9, + 3.994252190061185*^9}, CellLabel-> - "Out[398]=",ExpressionUUID->"e686dcca-242b-4bb0-847f-b6eb51abf131"] + "Out[109]=",ExpressionUUID->"e29a7149-48b8-469c-a13c-a52c1956105b"] }, Open ]], Cell[CellGroupData[{ @@ -9325,70 +9223,75 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9917996753598194`*^9, 3.991799698091812*^9}}, CellLabel-> - "In[399]:=",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], + "In[110]:=",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.938667696143313`*^-212\\\", \ -RowBox[{\\\"1119071536804432775059941\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"31183104000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 399, 33, 31385385712403366894, "Local"}, +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 110, 21, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913236765399036`*^9, 3.993912089039199*^9}, + CellChangeTimes->{3.9913236765399036`*^9, 3.993912089039199*^9, + 3.994252190140201*^9}, CellLabel-> "During evaluation of \ -In[399]:=",ExpressionUUID->"6f11f919-3f2c-42c5-a014-4b541822f38d"], +In[110]:=",ExpressionUUID->"56a9f6d7-d2ff-44ac-b4f6-2cbf21bef4dc"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.03627803197554`*^-217\\\", \ -RowBox[{\\\"1974042190923019415205737\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \\\"06995456000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 399, 34, 31385385712403366894, "Local"}, +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 110, 22, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913236765399036`*^9, 3.993912089050189*^9}, + CellChangeTimes->{3.9913236765399036`*^9, 3.993912089039199*^9, + 3.994252190149932*^9}, CellLabel-> "During evaluation of \ -In[399]:=",ExpressionUUID->"00d447eb-8191-4726-9d5c-8dd00ae2d659"], +In[110]:=",ExpressionUUID->"4a2f4be9-848c-4806-9010-5d8557263afe"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.4109891461861855`*^-222\\\", \ -RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 399, 35, 31385385712403366894, "Local"}, +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 110, 23, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913236765399036`*^9, 3.9939120890591393`*^9}, + CellChangeTimes->{3.9913236765399036`*^9, 3.993912089039199*^9, + 3.994252190159971*^9}, CellLabel-> "During evaluation of \ -In[399]:=",ExpressionUUID->"70b25088-aaa0-4381-8e5a-f56f590dea57"], +In[110]:=",ExpressionUUID->"2d7009d3-81f0-486d-8b1e-1b08adb86606"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 399, 36, 31385385712403366894, "Local"}, +during this calculation.\"", 2, 110, 24, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913236765399036`*^9, 3.993912089068692*^9}, + CellChangeTimes->{3.9913236765399036`*^9, 3.993912089039199*^9, + 3.9942521901691847`*^9}, CellLabel-> "During evaluation of \ -In[399]:=",ExpressionUUID->"f4123f41-f473-4795-aa18-a138851274b2"], +In[110]:=",ExpressionUUID->"b700629c-32a9-41fb-86c8-fc475c613573"], Cell[BoxData["2.9548769180122063`"], "Output", - CellChangeTimes->{3.9913236883162384`*^9, 3.993912096090868*^9}, + CellChangeTimes->{3.9913236883162384`*^9, 3.993912096090868*^9, + 3.9942522012653313`*^9}, CellLabel-> - "Out[399]=",ExpressionUUID->"88a10dc8-1d55-4360-aadc-ded297b63e0a"] + "Out[110]=",ExpressionUUID->"96b9ad36-9e2f-4c1c-b5c5-e08eee5cba7c"] }, Open ]], Cell[CellGroupData[{ @@ -9456,70 +9359,75 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9917997261183853`*^9, 3.991799730012718*^9}}, CellLabel-> - "In[400]:=",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], + "In[111]:=",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.938667696143313`*^-212\\\", \ -RowBox[{\\\"1119071536804432775059941\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"31183104000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 400, 37, 31385385712403366894, "Local"}, +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 111, 25, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.99132368839011*^9, 3.993912096135563*^9}, + CellChangeTimes->{3.99132368839011*^9, 3.993912096135563*^9, + 3.994252201316505*^9}, CellLabel-> "During evaluation of \ -In[400]:=",ExpressionUUID->"6d4b62f5-bfdd-4304-89b3-a101a0c9b99b"], +In[111]:=",ExpressionUUID->"256c2919-c0f3-4935-bb5f-656bbe8712b3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.03627803197554`*^-217\\\", \ -RowBox[{\\\"1974042190923019415205737\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \\\"06995456000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 400, 38, 31385385712403366894, "Local"}, +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 111, 26, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.99132368839011*^9, 3.99391209614445*^9}, + CellChangeTimes->{3.99132368839011*^9, 3.993912096135563*^9, + 3.994252201326734*^9}, CellLabel-> "During evaluation of \ -In[400]:=",ExpressionUUID->"00239eef-53c8-49ea-ba28-968720ec27d5"], +In[111]:=",ExpressionUUID->"ec59e2bf-3b30-4096-930c-cb6e1618061e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.4109891461861855`*^-222\\\", \ -RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 400, 39, 31385385712403366894, "Local"}, +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 111, 27, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.99132368839011*^9, 3.99391209615368*^9}, + CellChangeTimes->{3.99132368839011*^9, 3.993912096135563*^9, + 3.994252201336114*^9}, CellLabel-> "During evaluation of \ -In[400]:=",ExpressionUUID->"e37ef50b-2d4f-4a58-8f0c-9f07760a85b9"], +In[111]:=",ExpressionUUID->"73d10fdb-4240-45d4-b03a-768be2e63ae5"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 400, 40, 31385385712403366894, "Local"}, +during this calculation.\"", 2, 111, 28, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.99132368839011*^9, 3.993912096160725*^9}, + CellChangeTimes->{3.99132368839011*^9, 3.993912096135563*^9, + 3.9942522013465433`*^9}, CellLabel-> "During evaluation of \ -In[400]:=",ExpressionUUID->"515ee46f-9901-48e3-b92e-e7ac0235637d"], +In[111]:=",ExpressionUUID->"f602cf25-4067-4fc0-99f7-06a1d91628f2"], Cell[BoxData["50.675182607739735`"], "Output", - CellChangeTimes->{3.9913236988049507`*^9, 3.993912103041934*^9}, + CellChangeTimes->{3.9913236988049507`*^9, 3.993912103041934*^9, + 3.9942522117115183`*^9}, CellLabel-> - "Out[400]=",ExpressionUUID->"dbff754e-541c-4d15-9fa6-0b7533437680"] + "Out[111]=",ExpressionUUID->"07f64aca-a0aa-4eb8-9d64-b5d5e7a55cc9"] }, Open ]], Cell[CellGroupData[{ @@ -9587,70 +9495,75 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9917997336698074`*^9, 3.9917997367747993`*^9}}, CellLabel-> - "In[401]:=",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], + "In[112]:=",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.938667696143313`*^-212\\\", \ -RowBox[{\\\"1119071536804432775059941\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"31183104000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 401, 41, 31385385712403366894, "Local"}, +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 112, 29, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991323698915848*^9, 3.9939121030903597`*^9}, + CellChangeTimes->{3.991323698915848*^9, 3.9939121030903597`*^9, + 3.9942522117758293`*^9}, CellLabel-> "During evaluation of \ -In[401]:=",ExpressionUUID->"18476870-01fe-4ced-8de1-ab3481dfd2bd"], +In[112]:=",ExpressionUUID->"9a0bbdea-6e0f-4733-8553-5cd5158d4496"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.03627803197554`*^-217\\\", \ -RowBox[{\\\"1974042190923019415205737\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \\\"06995456000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 401, 42, 31385385712403366894, "Local"}, +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 112, 30, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991323698915848*^9, 3.993912103099188*^9}, + CellChangeTimes->{3.991323698915848*^9, 3.9939121030903597`*^9, + 3.994252211786174*^9}, CellLabel-> "During evaluation of \ -In[401]:=",ExpressionUUID->"ac74d7aa-d890-46f4-86a5-2a1ce90bfb40"], +In[112]:=",ExpressionUUID->"8b637c97-58c1-4ba7-92b6-4709e7b1ed09"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.4109891461861855`*^-222\\\", \ -RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 401, 43, 31385385712403366894, "Local"}, +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 112, 31, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991323698915848*^9, 3.993912103106246*^9}, + CellChangeTimes->{3.991323698915848*^9, 3.9939121030903597`*^9, + 3.994252211796381*^9}, CellLabel-> "During evaluation of \ -In[401]:=",ExpressionUUID->"4c2720e8-e70f-4d05-bb47-b74a7a4ae775"], +In[112]:=",ExpressionUUID->"fe9636d4-83d0-4045-8d14-40fa55e8dd08"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 401, 44, 31385385712403366894, "Local"}, +during this calculation.\"", 2, 112, 32, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991323698915848*^9, 3.993912103112796*^9}, + CellChangeTimes->{3.991323698915848*^9, 3.9939121030903597`*^9, + 3.9942522118054028`*^9}, CellLabel-> "During evaluation of \ -In[401]:=",ExpressionUUID->"5cdf37d9-cd3f-4578-8a46-00faed6545e2"], +In[112]:=",ExpressionUUID->"9aab5060-8365-4f3b-a16f-e836f3e94a7e"], Cell[BoxData["17.649233085314943`"], "Output", - CellChangeTimes->{3.991323706795576*^9, 3.993912107358922*^9}, + CellChangeTimes->{3.991323706795576*^9, 3.993912107358922*^9, + 3.994252220479453*^9}, CellLabel-> - "Out[401]=",ExpressionUUID->"6a49af0a-886e-463a-8c6d-0cc39f501c4b"] + "Out[112]=",ExpressionUUID->"3c5f3f59-601d-42a3-95a8-e8d145f40cb6"] }, Open ]], Cell[CellGroupData[{ @@ -9661,12 +9574,13 @@ Cell[BoxData[ RowBox[{"S1", "*", "S2"}]]]], "Input", CellChangeTimes->{{3.991799742384985*^9, 3.9917997459840527`*^9}}, CellLabel-> - "In[402]:=",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], + "In[113]:=",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], Cell[BoxData["0.09880497555489103`"], "Output", - CellChangeTimes->{3.991323706858589*^9, 3.993912107400564*^9}, + CellChangeTimes->{3.991323706858589*^9, 3.993912107400564*^9, + 3.994252220525783*^9}, CellLabel-> - "Out[402]=",ExpressionUUID->"84984732-767e-4840-80da-d63b6f097d5e"] + "Out[113]=",ExpressionUUID->"e3c0cedb-b8f4-43a1-b1ad-e813eda03673"] }, Open ]], Cell[BoxData[ @@ -9675,7 +9589,7 @@ Cell[BoxData[ CellChangeTimes->{{3.9917997487290344`*^9, 3.991799750684988*^9}, 3.9919243164025135`*^9}, CellLabel-> - "In[403]:=",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], + "In[114]:=",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ @@ -9698,12 +9612,13 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[404]:=",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], + "In[115]:=",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], Cell[BoxData["16.949955979643292`"], "Output", - CellChangeTimes->{3.991323706886154*^9, 3.9939121074182367`*^9}, + CellChangeTimes->{3.991323706886154*^9, 3.9939121074182367`*^9, + 3.994252220554482*^9}, CellLabel-> - "Out[404]=",ExpressionUUID->"a0973890-dd1e-41a9-be2a-80bd9f54cef5"] + "Out[115]=",ExpressionUUID->"c5e50e35-ed6c-422d-8f0e-079b1d3f43e1"] }, Open ]], Cell[CellGroupData[{ @@ -9713,12 +9628,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[405]:=",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], + "In[116]:=",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], Cell[BoxData["2.975184232328209`"], "Output", - CellChangeTimes->{3.9913237069236546`*^9, 3.993912107430176*^9}, + CellChangeTimes->{3.9913237069236546`*^9, 3.993912107430176*^9, + 3.994252220571052*^9}, CellLabel-> - "Out[405]=",ExpressionUUID->"6b2aaa76-5a5d-484a-85c8-c7115cfd59d9"] + "Out[116]=",ExpressionUUID->"86f71a65-56a1-47cc-9034-db8af67dfe0a"] }, Open ]], Cell[CellGroupData[{ @@ -9728,12 +9644,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[406]:=",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], + "In[117]:=",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], Cell[BoxData["50.42924176929196`"], "Output", - CellChangeTimes->{3.9913237069753113`*^9, 3.9939121074428062`*^9}, + CellChangeTimes->{3.9913237069753113`*^9, 3.9939121074428062`*^9, + 3.994252220586566*^9}, CellLabel-> - "Out[406]=",ExpressionUUID->"40ee655b-b49b-4737-afd2-d04cd053e244"] + "Out[117]=",ExpressionUUID->"a7caf365-b9b6-4ec8-83a6-e965d5a204c9"] }, Open ]], Cell[CellGroupData[{ @@ -9923,12 +9840,13 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[407]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], + "In[118]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], Cell[BoxData["0.004756853155766424`"], "Output", - CellChangeTimes->{3.991323707000412*^9, 3.99391210745792*^9}, + CellChangeTimes->{3.991323707000412*^9, 3.99391210745792*^9, + 3.9942522206049957`*^9}, CellLabel-> - "Out[407]=",ExpressionUUID->"b206bf11-fec3-4fa1-ac22-1e651888607a"] + "Out[118]=",ExpressionUUID->"a5818948-5fa4-402a-b022-b7ce14339bfd"] }, Open ]], Cell[CellGroupData[{ @@ -9942,12 +9860,13 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[408]:=",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], + "In[119]:=",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], Cell[BoxData["12.849465664032497`"], "Output", - CellChangeTimes->{3.991323707203314*^9, 3.99391210757804*^9}, + CellChangeTimes->{3.991323707203314*^9, 3.99391210757804*^9, + 3.994252220789819*^9}, CellLabel-> - "Out[408]=",ExpressionUUID->"d2fd175c-b6a7-4bfa-b44b-b7cb6dd25c9a"] + "Out[119]=",ExpressionUUID->"87d7995e-e18e-47c3-b866-1809141ea830"] }, Open ]], Cell[CellGroupData[{ @@ -10139,12 +10058,13 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[409]:=",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], + "In[120]:=",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], Cell[BoxData["0.017752862247783458`"], "Output", - CellChangeTimes->{3.9913237072224197`*^9, 3.993912107592163*^9}, + CellChangeTimes->{3.9913237072224197`*^9, 3.993912107592163*^9, + 3.994252220807225*^9}, CellLabel-> - "Out[409]=",ExpressionUUID->"cd4f89d9-610b-47f6-8c25-21125d2b2684"] + "Out[120]=",ExpressionUUID->"534b8edf-c00f-4c5d-9148-9e30208d3a8b"] }, Open ]], Cell[CellGroupData[{ @@ -10158,12 +10078,13 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[410]:=",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], + "In[121]:=",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], Cell[BoxData["6.651364514017316`"], "Output", - CellChangeTimes->{3.991323707432623*^9, 3.993912107712181*^9}, + CellChangeTimes->{3.991323707432623*^9, 3.993912107712181*^9, + 3.994252221008616*^9}, CellLabel-> - "Out[410]=",ExpressionUUID->"810d9fdd-098a-45e6-9e3b-c1b96d949ad6"] + "Out[121]=",ExpressionUUID->"a350efff-1535-4d6a-ab31-217c5b4200a7"] }, Open ]], Cell[CellGroupData[{ @@ -10256,12 +10177,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[411]:=",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], + "In[122]:=",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], Cell[BoxData["0.16117775346672777`"], "Output", - CellChangeTimes->{3.9913237074497375`*^9, 3.993912107725873*^9}, + CellChangeTimes->{3.9913237074497375`*^9, 3.993912107725873*^9, + 3.994252221023494*^9}, CellLabel-> - "Out[411]=",ExpressionUUID->"c96d800b-a62a-4ff9-a858-59e04645f870"] + "Out[122]=",ExpressionUUID->"6b948b2a-f064-4578-8a91-4ccb750452cd"] }, Open ]], Cell[CellGroupData[{ @@ -10351,12 +10273,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[412]:=",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], + "In[123]:=",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], Cell[BoxData["0.8388222465332723`"], "Output", - CellChangeTimes->{3.991323707467621*^9, 3.993912107738948*^9}, + CellChangeTimes->{3.991323707467621*^9, 3.993912107738948*^9, + 3.99425222104142*^9}, CellLabel-> - "Out[412]=",ExpressionUUID->"72475dbf-09a4-4359-ac04-16d599315f3a"] + "Out[123]=",ExpressionUUID->"466ddcc4-2db4-41f4-8b5f-4fec3b1a8842"] }, Open ]], Cell[CellGroupData[{ @@ -10479,12 +10402,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[413]:=",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], + "In[124]:=",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], Cell[BoxData["0.1351994852541465`"], "Output", - CellChangeTimes->{3.991323707488617*^9, 3.9939121077517853`*^9}, + CellChangeTimes->{3.991323707488617*^9, 3.9939121077517853`*^9, + 3.9942522210607452`*^9}, CellLabel-> - "Out[413]=",ExpressionUUID->"144f2c45-1a9e-4e46-a04a-dba09c69c10e"] + "Out[124]=",ExpressionUUID->"80c5b8eb-267b-480b-b1c8-c59240a44878"] }, Open ]], Cell[CellGroupData[{ @@ -10549,70 +10473,77 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.991799766323864*^9}, CellLabel-> - "In[414]:=",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], + "In[125]:=",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.6142620210258265`*^-216\\\", \ -RowBox[{\\\"41607359339843574325548110\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"41\\\", \\\"\[RightSkeleton]\\\"}], \\\"16426506240000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 414, 45, 31385385712403366894, "Local"}, +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 125, 33, + 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913237075117207`*^9, 3.993912107770464*^9}, + CellChangeTimes->{3.9913237075117207`*^9, 3.993912107770464*^9, + 3.994252221079954*^9}, CellLabel-> "During evaluation of \ -In[414]:=",ExpressionUUID->"97eaefb7-fbb6-487c-a554-1cecfa909e9b"], +In[125]:=",ExpressionUUID->"bed6942e-f3aa-4df1-a4be-67308cb50dce"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"7.755125575464367`*^-222\\\", \ -RowBox[{\\\"66571774943749718920876976\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"44\\\", \\\"\[RightSkeleton]\\\"}], \\\"82409984000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 414, 46, 31385385712403366894, "Local"}, +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 125, 34, + 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913237075117207`*^9, 3.993912107778652*^9}, + CellChangeTimes->{3.9913237075117207`*^9, 3.993912107770464*^9, + 3.994252221091115*^9}, CellLabel-> "During evaluation of \ -In[414]:=",ExpressionUUID->"afa4e9ec-5c72-40bd-afa8-80abebe01c48"], +In[125]:=",ExpressionUUID->"ce7ffa43-51ae-401a-a7b5-7c0249f23437"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.3005334663287504`*^-227\\\", \ -RowBox[{\\\"1119071536804432775059941\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"31183104000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 414, 47, 31385385712403366894, "Local"}, +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 125, 35, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913237075117207`*^9, 3.993912107786582*^9}, + CellChangeTimes->{3.9913237075117207`*^9, 3.993912107770464*^9, + 3.994252221102006*^9}, CellLabel-> "During evaluation of \ -In[414]:=",ExpressionUUID->"961ee725-5ff5-4162-a7a8-67ae6254779e"], +In[125]:=",ExpressionUUID->"4e92f56c-54f4-4e31-afee-134e1bb8492f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 414, 48, 31385385712403366894, "Local"}, +during this calculation.\"", 2, 125, 36, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913237075117207`*^9, 3.993912107795618*^9}, + CellChangeTimes->{3.9913237075117207`*^9, 3.993912107770464*^9, + 3.994252221110642*^9}, CellLabel-> "During evaluation of \ -In[414]:=",ExpressionUUID->"ae87376e-a859-42cd-84ba-de6f46e2e2ad"], +In[125]:=",ExpressionUUID->"3ef914c4-bf8f-4483-a4bc-8b575820e2c0"], Cell[BoxData["12.849465664032484`"], "Output", - CellChangeTimes->{3.9913237161181736`*^9, 3.993912111736191*^9}, + CellChangeTimes->{3.9913237161181736`*^9, 3.993912111736191*^9, + 3.99425222852901*^9}, CellLabel-> - "Out[414]=",ExpressionUUID->"e3de8c48-cfaf-4aa6-acaf-387fcdbba247"] + "Out[125]=",ExpressionUUID->"aa518587-d5ac-4dad-bb29-4a98edf38268"] }, Open ]], Cell[CellGroupData[{ @@ -10677,70 +10608,77 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.9917997699328365`*^9}, CellLabel-> - "In[415]:=",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], + "In[126]:=",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.6142620210258265`*^-216\\\", \ -RowBox[{\\\"41607359339843574325548110\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"41\\\", \\\"\[RightSkeleton]\\\"}], \\\"16426506240000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 415, 49, 31385385712403366894, "Local"}, +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 126, 37, + 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913237161871567`*^9, 3.993912111788364*^9}, + CellChangeTimes->{3.9913237161871567`*^9, 3.993912111788364*^9, + 3.994252228582697*^9}, CellLabel-> "During evaluation of \ -In[415]:=",ExpressionUUID->"ae570001-9486-4742-ab72-3bfe981e7410"], +In[126]:=",ExpressionUUID->"8c6c54ca-c85e-48c3-854e-52afc379d579"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"7.755125575464367`*^-222\\\", \ -RowBox[{\\\"66571774943749718920876976\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"44\\\", \\\"\[RightSkeleton]\\\"}], \\\"82409984000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 415, 50, 31385385712403366894, "Local"}, +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 126, 38, + 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913237161871567`*^9, 3.993912111797927*^9}, + CellChangeTimes->{3.9913237161871567`*^9, 3.993912111788364*^9, + 3.994252228592161*^9}, CellLabel-> "During evaluation of \ -In[415]:=",ExpressionUUID->"97bf86aa-1936-4b37-b717-04c29f1b1f96"], +In[126]:=",ExpressionUUID->"cc4989dc-d416-4d4e-85d3-f1e90f90ae4f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.3005334663287504`*^-227\\\", \ -RowBox[{\\\"1119071536804432775059941\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"31183104000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 415, 51, 31385385712403366894, "Local"}, +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 126, 39, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913237161871567`*^9, 3.9939121118074427`*^9}, + CellChangeTimes->{3.9913237161871567`*^9, 3.993912111788364*^9, + 3.994252228601156*^9}, CellLabel-> "During evaluation of \ -In[415]:=",ExpressionUUID->"1bf96efa-2a14-4101-81cc-09277784ffad"], +In[126]:=",ExpressionUUID->"8d84a4d5-e506-424c-b9e7-58ab7ef65f14"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 415, 52, 31385385712403366894, "Local"}, +during this calculation.\"", 2, 126, 40, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913237161871567`*^9, 3.993912111817912*^9}, + CellChangeTimes->{3.9913237161871567`*^9, 3.993912111788364*^9, + 3.994252228609867*^9}, CellLabel-> "During evaluation of \ -In[415]:=",ExpressionUUID->"ffeaf6b0-92af-432b-9acc-7a06eefa6fa9"], +In[126]:=",ExpressionUUID->"e460745e-bdc7-48e5-b175-a6312f966871"], Cell[BoxData["6.651364514017317`"], "Output", - CellChangeTimes->{3.991323724852854*^9, 3.993912115626089*^9}, + CellChangeTimes->{3.991323724852854*^9, 3.993912115626089*^9, + 3.994252235982163*^9}, CellLabel-> - "Out[415]=",ExpressionUUID->"49f94328-8713-479c-8267-ecb6a8c31755"] + "Out[126]=",ExpressionUUID->"3d300280-58b9-4aa6-8ba2-2c3f31d5ae5d"] }, Open ]], Cell[CellGroupData[{ @@ -10800,7 +10738,7 @@ Cell[BoxData[ RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{3.9917997843341885`*^9}, CellLabel-> - "In[416]:=",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], + "In[127]:=",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], Cell[BoxData[ GraphicsBox[ @@ -11183,9 +11121,10 @@ nMMuYj8XGasSjSQglnLH/xL20O+KFoEoAuLjGG2X1/JpMUM8MQT8TnF4EI9t Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913242457281837`*^9, 3.993912402238702*^9}, + CellChangeTimes->{3.9913242457281837`*^9, 3.993912402238702*^9, + 3.99425280438691*^9}, CellLabel-> - "Out[416]=",ExpressionUUID->"627a9fac-5273-4c5f-9972-fe0a019a7489"] + "Out[127]=",ExpressionUUID->"e6bd7a26-2842-4280-917b-ad802ab46faa"] }, Open ]], Cell[CellGroupData[{ @@ -11251,35 +11190,37 @@ Cell[BoxData[ RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.9917997871187477`*^9, 3.991799792469698*^9}}, CellLabel-> - "In[417]:=",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], + "In[128]:=",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.2023729013333779`*^-275\\\", \ \\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 417, - 53, 31385385712403366894, "Local"}, +represent as a normalized machine number; precision may be lost.\"", 2, 128, + 41, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991324246104725*^9, 3.993912402372052*^9}, + CellChangeTimes->{3.991324246104725*^9, 3.993912402372052*^9, + 3.994252804592815*^9}, CellLabel-> "During evaluation of \ -In[417]:=",ExpressionUUID->"eed9319d-61c5-4cbc-8abb-ef5e730d3bd6"], +In[128]:=",ExpressionUUID->"134a0099-4350-4aac-a5ec-916204d28533"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.3396686823383758`*^-287\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 417, - 54, 31385385712403366894, "Local"}, +represent as a normalized machine number; precision may be lost.\"", 2, 128, + 42, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991324246104725*^9, 3.993912402379848*^9}, + CellChangeTimes->{3.991324246104725*^9, 3.993912402372052*^9, + 3.994252804606339*^9}, CellLabel-> "During evaluation of \ -In[417]:=",ExpressionUUID->"77944505-cc3c-4111-909f-e1d2d66779ac"], +In[128]:=",ExpressionUUID->"79feb1e2-6dc8-4306-b020-fa49a96cf67f"], Cell[BoxData[ TemplateBox[{ @@ -11287,26 +11228,28 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"1.492641905392233`*^-299\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 417, 55, 31385385712403366894, "Local"}, + 128, 43, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991324246104725*^9, 3.993912402386743*^9}, + CellChangeTimes->{3.991324246104725*^9, 3.993912402372052*^9, + 3.994252804618238*^9}, CellLabel-> "During evaluation of \ -In[417]:=",ExpressionUUID->"3701580d-d694-4225-9e16-a3fb17132f5a"], +In[128]:=",ExpressionUUID->"c51a7460-0235-4eed-bc00-26e39a90cd5e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 417, 56, 31385385712403366894, "Local"}, +during this calculation.\"", 2, 128, 44, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991324246104725*^9, 3.993912402392991*^9}, + CellChangeTimes->{3.991324246104725*^9, 3.993912402372052*^9, + 3.994252804629059*^9}, CellLabel-> "During evaluation of \ -In[417]:=",ExpressionUUID->"c275d6ea-0331-485b-9d71-2a67e93f38ed"], +In[128]:=",ExpressionUUID->"c7d3d193-99bd-41f6-ac93-cb8d007a5c9a"], Cell[BoxData[ GraphicsBox[ @@ -11717,16 +11660,17 @@ wHw8Ohj8YeGqUs19U2S8/Srq2ip/yPe5MzIzw8PkJs2aX+r+8D/GrFVv Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991324915847246*^9, 3.993912712200996*^9}, + CellChangeTimes->{3.991324915847246*^9, 3.993912712200996*^9, + 3.9942533240020857`*^9}, CellLabel-> - "Out[417]=",ExpressionUUID->"f67dacfc-21a3-4ab4-b77d-d83e95d54466"] + "Out[128]=",ExpressionUUID->"c7cadff6-0021-4799-84a0-40eb2e413010"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{3.991799816909994*^9, 3.9918001103050213`*^9, 3.991924419552084*^9}, CellLabel-> - "In[418]:=",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], + "In[129]:=",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], Cell[CellGroupData[{ @@ -11735,7 +11679,7 @@ Cell[BoxData[ RowBox[{"x", ",", "xx"}], "]"}]], "Input", CellChangeTimes->{{3.991799819852022*^9, 3.9917998213158054`*^9}}, CellLabel-> - "In[419]:=",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], + "In[130]:=",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], Cell[BoxData[ GraphicsBox[{ @@ -12278,9 +12222,9 @@ SA== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.993912712275468*^9}, + CellChangeTimes->{3.993912712275468*^9, 3.9942533240872927`*^9}, CellLabel-> - "Out[419]=",ExpressionUUID->"457c8c45-f873-46bf-bf6b-3bd6aae99cc4"] + "Out[130]=",ExpressionUUID->"1c448605-da8b-4e01-9993-58dc6366eae7"] }, Open ]], Cell[CellGroupData[{ @@ -12292,26 +12236,30 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], - ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -12333,70 +12281,75 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[420]:=",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], + "In[131]:=",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.473162962059499`*^-182\\\", \ -RowBox[{\\\"2405969386799803097354037\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"82\\\", \\\"\[RightSkeleton]\\\"}], \\\"44000000000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 420, 57, 31385385712403366894, "Local"}, +RowBox[{\\\"240596938679980309735403\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"84\\\", \\\"\[RightSkeleton]\\\"}], \\\"4000000000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 131, 45, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913265068365192`*^9, 3.9939127123241777`*^9}, + CellChangeTimes->{3.9913265068365192`*^9, 3.9939127123241777`*^9, + 3.994253324144352*^9}, CellLabel-> "During evaluation of \ -In[420]:=",ExpressionUUID->"971319c3-0053-4e5e-8034-1047fb97790b"], +In[131]:=",ExpressionUUID->"7df0cdf9-83e7-4901-8004-9472d534fe2b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.609486128487091`*^-186\\\", \ -RowBox[{\\\"6505741221906667575245316\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"85\\\", \\\"\[RightSkeleton]\\\"}], \\\"76000000000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 420, 58, 31385385712403366894, "Local"}, +RowBox[{\\\"650574122190666757524531\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"87\\\", \\\"\[RightSkeleton]\\\"}], \\\"6000000000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 131, 46, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913265068365192`*^9, 3.993912712331689*^9}, + CellChangeTimes->{3.9913265068365192`*^9, 3.9939127123241777`*^9, + 3.994253324154008*^9}, CellLabel-> "During evaluation of \ -In[420]:=",ExpressionUUID->"09373d9b-464d-4cf1-859d-7e96037ead50"], +In[131]:=",ExpressionUUID->"951a47de-8893-4cf2-8ea9-da46e9151957"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.6587357017889306`*^-189\\\", \ -RowBox[{\\\"1827462709233582921886409\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"89\\\", \\\"\[RightSkeleton]\\\"}], \\\"84000000000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 420, 59, 31385385712403366894, "Local"}, +RowBox[{\\\"182746270923358292188640\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"91\\\", \\\"\[RightSkeleton]\\\"}], \\\"4000000000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 131, 47, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913265068365192`*^9, 3.993912712338233*^9}, + CellChangeTimes->{3.9913265068365192`*^9, 3.9939127123241777`*^9, + 3.994253324162471*^9}, CellLabel-> "During evaluation of \ -In[420]:=",ExpressionUUID->"0ac54353-e64c-4492-aa1c-6df9386ed2b0"], +In[131]:=",ExpressionUUID->"eab1ca7a-f475-457e-ac87-2d996fecc0f5"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 420, 60, 31385385712403366894, "Local"}, +during this calculation.\"", 2, 131, 48, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913265068365192`*^9, 3.993912712346916*^9}, + CellChangeTimes->{3.9913265068365192`*^9, 3.9939127123241777`*^9, + 3.994253324170041*^9}, CellLabel-> "During evaluation of \ -In[420]:=",ExpressionUUID->"b4a79e1c-1b97-4ac3-bc84-beffcf2c7bd2"], +In[131]:=",ExpressionUUID->"e8117c3a-a431-40ad-aec6-49f277a0729f"], Cell[BoxData["13.355303943001811`"], "Output", - CellChangeTimes->{3.991326513010317*^9, 3.993912754529977*^9}, + CellChangeTimes->{3.991326513010317*^9, 3.993912754529977*^9, + 3.994253402388446*^9}, CellLabel-> - "Out[420]=",ExpressionUUID->"6922aa63-f744-4f85-9f67-b6d9e2babe8b"] + "Out[131]=",ExpressionUUID->"45d34b97-152e-4b4d-a133-5ae0a5eee778"] }, Open ]], Cell[CellGroupData[{ @@ -12465,70 +12418,77 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9917998502248*^9, 3.9917998584727135`*^9}}, CellLabel-> - "In[421]:=",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], + "In[132]:=",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.6142620210258265`*^-216\\\", \ -RowBox[{\\\"41607359339843574325548110\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"41\\\", \\\"\[RightSkeleton]\\\"}], \\\"16426506240000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 421, 61, 31385385712403366894, "Local"}, +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 132, 49, + 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913265130447063`*^9, 3.993912754575688*^9}, + CellChangeTimes->{3.9913265130447063`*^9, 3.993912754575688*^9, + 3.994253402438139*^9}, CellLabel-> "During evaluation of \ -In[421]:=",ExpressionUUID->"b7477e27-823f-4151-9f0a-a4362dd5109f"], +In[132]:=",ExpressionUUID->"bc412945-dd28-460e-91c4-767f018f386e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"7.755125575464367`*^-222\\\", \ -RowBox[{\\\"66571774943749718920876976\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"44\\\", \\\"\[RightSkeleton]\\\"}], \\\"82409984000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 421, 62, 31385385712403366894, "Local"}, +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 132, 50, + 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913265130447063`*^9, 3.993912754585231*^9}, + CellChangeTimes->{3.9913265130447063`*^9, 3.993912754575688*^9, + 3.994253402449768*^9}, CellLabel-> "During evaluation of \ -In[421]:=",ExpressionUUID->"0203a43e-977c-4b78-a3b8-358a05ca00d2"], +In[132]:=",ExpressionUUID->"5fa2d976-5d66-4e98-a8fc-a2309092f720"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.3005334663287504`*^-227\\\", \ -RowBox[{\\\"1119071536804432775059941\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"31183104000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 421, 63, 31385385712403366894, "Local"}, +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 132, 51, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913265130447063`*^9, 3.993912754594365*^9}, + CellChangeTimes->{3.9913265130447063`*^9, 3.993912754575688*^9, + 3.994253402458932*^9}, CellLabel-> "During evaluation of \ -In[421]:=",ExpressionUUID->"25b614dd-4adc-4e6c-89df-1b7fd70fa139"], +In[132]:=",ExpressionUUID->"74558083-aab5-4a20-b83d-655d51747757"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 421, 64, 31385385712403366894, "Local"}, +during this calculation.\"", 2, 132, 52, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913265130447063`*^9, 3.993912754600709*^9}, + CellChangeTimes->{3.9913265130447063`*^9, 3.993912754575688*^9, + 3.9942534024669237`*^9}, CellLabel-> "During evaluation of \ -In[421]:=",ExpressionUUID->"406e20aa-a59a-429c-a049-6a6bdcc41eb1"], +In[132]:=",ExpressionUUID->"026627d2-8a91-44e8-a368-239accad1f36"], Cell[BoxData["0.7035044261375052`"], "Output", - CellChangeTimes->{3.9913265201819115`*^9, 3.993912761547427*^9}, + CellChangeTimes->{3.9913265201819115`*^9, 3.993912761547427*^9, + 3.9942534134726543`*^9}, CellLabel-> - "Out[421]=",ExpressionUUID->"e379c77e-c71f-4ca3-ae18-348fe8ccc0e6"] + "Out[132]=",ExpressionUUID->"23164286-3f66-4dd9-ba84-7bec2ac06399"] }, Open ]], Cell[CellGroupData[{ @@ -12596,70 +12556,77 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9917998626681576`*^9, 3.991799866004116*^9}}, CellLabel-> - "In[422]:=",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], + "In[133]:=",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.6142620210258265`*^-216\\\", \ -RowBox[{\\\"41607359339843574325548110\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"41\\\", \\\"\[RightSkeleton]\\\"}], \\\"16426506240000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 422, 65, 31385385712403366894, "Local"}, +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 133, 53, + 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991326520216116*^9, 3.993912761588828*^9}, + CellChangeTimes->{3.991326520216116*^9, 3.993912761588828*^9, + 3.994253413529615*^9}, CellLabel-> "During evaluation of \ -In[422]:=",ExpressionUUID->"4ee63082-8ed4-46ef-b127-88703042a56f"], +In[133]:=",ExpressionUUID->"62ae9c05-beeb-4fb4-8120-5f98a5c19998"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"7.755125575464367`*^-222\\\", \ -RowBox[{\\\"66571774943749718920876976\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"44\\\", \\\"\[RightSkeleton]\\\"}], \\\"82409984000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 422, 66, 31385385712403366894, "Local"}, +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 133, 54, + 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991326520216116*^9, 3.9939127615971212`*^9}, + CellChangeTimes->{3.991326520216116*^9, 3.993912761588828*^9, + 3.9942534135393877`*^9}, CellLabel-> "During evaluation of \ -In[422]:=",ExpressionUUID->"7814faba-a713-482b-9354-9113a9cb2dcd"], +In[133]:=",ExpressionUUID->"4c42ec6d-dec0-4a21-8d3d-15e39153bf2d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.3005334663287504`*^-227\\\", \ -RowBox[{\\\"1119071536804432775059941\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"31183104000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 422, 67, 31385385712403366894, "Local"}, +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 133, 55, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991326520216116*^9, 3.993912761606213*^9}, + CellChangeTimes->{3.991326520216116*^9, 3.993912761588828*^9, + 3.994253413548085*^9}, CellLabel-> "During evaluation of \ -In[422]:=",ExpressionUUID->"66e21697-54eb-4bab-9951-22a01afda078"], +In[133]:=",ExpressionUUID->"5d0ad483-ec7f-4115-95c9-fb374d50e80a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 422, 68, 31385385712403366894, "Local"}, +during this calculation.\"", 2, 133, 56, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991326520216116*^9, 3.993912761615622*^9}, + CellChangeTimes->{3.991326520216116*^9, 3.993912761588828*^9, + 3.9942534135574007`*^9}, CellLabel-> "During evaluation of \ -In[422]:=",ExpressionUUID->"3c35abb4-8c30-47f7-b5bc-9527e2121518"], +In[133]:=",ExpressionUUID->"a2d6755f-2c8c-4f55-a94f-d2254fa770c0"], Cell[BoxData["45.114244559431675`"], "Output", - CellChangeTimes->{3.9913265264075394`*^9, 3.993912768002111*^9}, + CellChangeTimes->{3.9913265264075394`*^9, 3.993912768002111*^9, + 3.994253424033053*^9}, CellLabel-> - "Out[422]=",ExpressionUUID->"31549e16-ce64-4a48-af5e-4f44840b5999"] + "Out[133]=",ExpressionUUID->"fb0b0c0f-ad19-48e1-ac8c-921a51cdc9fa"] }, Open ]], Cell[CellGroupData[{ @@ -12727,70 +12694,77 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.991799871682028*^9, 3.9917998792226925`*^9}}, CellLabel-> - "In[423]:=",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], + "In[134]:=",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.6142620210258265`*^-216\\\", \ -RowBox[{\\\"41607359339843574325548110\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"41\\\", \\\"\[RightSkeleton]\\\"}], \\\"16426506240000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 423, 69, 31385385712403366894, "Local"}, +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 134, 57, + 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913265264435444`*^9, 3.993912768043344*^9}, + CellChangeTimes->{3.9913265264435444`*^9, 3.993912768043344*^9, + 3.994253424090787*^9}, CellLabel-> "During evaluation of \ -In[423]:=",ExpressionUUID->"7b79ebea-6de7-4543-adf4-29203e02bf85"], +In[134]:=",ExpressionUUID->"dfb256fe-0084-43f4-892f-93e3e185bf5a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"7.755125575464367`*^-222\\\", \ -RowBox[{\\\"66571774943749718920876976\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"44\\\", \\\"\[RightSkeleton]\\\"}], \\\"82409984000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 423, 70, 31385385712403366894, "Local"}, +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 134, 58, + 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913265264435444`*^9, 3.993912768050789*^9}, + CellChangeTimes->{3.9913265264435444`*^9, 3.993912768043344*^9, + 3.9942534241034813`*^9}, CellLabel-> "During evaluation of \ -In[423]:=",ExpressionUUID->"5e552997-1a98-42a0-bab8-7042b31b2fba"], +In[134]:=",ExpressionUUID->"5d9bd011-bd70-45a0-bd5c-b5333df0c7a9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.3005334663287504`*^-227\\\", \ -RowBox[{\\\"1119071536804432775059941\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"31183104000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 423, 71, 31385385712403366894, "Local"}, +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 134, 59, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913265264435444`*^9, 3.993912768059546*^9}, + CellChangeTimes->{3.9913265264435444`*^9, 3.993912768043344*^9, + 3.9942534241133413`*^9}, CellLabel-> "During evaluation of \ -In[423]:=",ExpressionUUID->"7e11e881-3102-4e0d-b63b-2b37aa5ef979"], +In[134]:=",ExpressionUUID->"2ecb9ee8-0ade-455c-a129-5ed74f510a97"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 423, 72, 31385385712403366894, "Local"}, +during this calculation.\"", 2, 134, 60, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913265264435444`*^9, 3.993912768068482*^9}, + CellChangeTimes->{3.9913265264435444`*^9, 3.993912768043344*^9, + 3.9942534241208982`*^9}, CellLabel-> "During evaluation of \ -In[423]:=",ExpressionUUID->"3545068b-5da2-41d8-a24f-4dcc30c19490"], +In[134]:=",ExpressionUUID->"b7eb295c-03ee-4828-8583-5744dac78d43"], Cell[BoxData["12.088295037007164`"], "Output", - CellChangeTimes->{3.9913265299431496`*^9, 3.993912771832384*^9}, + CellChangeTimes->{3.9913265299431496`*^9, 3.993912771832384*^9, + 3.994253432735119*^9}, CellLabel-> - "Out[423]=",ExpressionUUID->"20029165-f1c4-4c30-8543-d84631697c54"] + "Out[134]=",ExpressionUUID->"1db41887-be06-43a3-97d0-9a8c1bad76d3"] }, Open ]], Cell[CellGroupData[{ @@ -12801,12 +12775,13 @@ Cell[BoxData[ RowBox[{"S1", "*", "S2"}]]]], "Input", CellChangeTimes->{{3.9917998836260815`*^9, 3.991799887334032*^9}}, CellLabel-> - "In[424]:=",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], + "In[135]:=",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], Cell[BoxData["0.030125028317611945`"], "Output", - CellChangeTimes->{3.991326529975149*^9, 3.9939127718738317`*^9}, + CellChangeTimes->{3.991326529975149*^9, 3.9939127718738317`*^9, + 3.994253432779553*^9}, CellLabel-> - "Out[424]=",ExpressionUUID->"b545ecb4-0ca2-4015-aee4-b7625c8c7028"] + "Out[135]=",ExpressionUUID->"f4d9ddff-b455-4427-bf3a-1d16a11f75b0"] }, Open ]], Cell[BoxData[ @@ -12815,7 +12790,7 @@ Cell[BoxData[ CellChangeTimes->{{3.991799895862177*^9, 3.9917998977747803`*^9}, 3.991924340381132*^9}, CellLabel-> - "In[425]:=",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], + "In[136]:=",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ @@ -12838,12 +12813,13 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[426]:=",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], + "In[137]:=",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], Cell[BoxData["26.466421626583998`"], "Output", - CellChangeTimes->{3.9913265300040226`*^9, 3.993912771890111*^9}, + CellChangeTimes->{3.9913265300040226`*^9, 3.993912771890111*^9, + 3.994253432805344*^9}, CellLabel-> - "Out[426]=",ExpressionUUID->"eb3107b4-91f3-4eb9-9905-886d4c1ef052"] + "Out[137]=",ExpressionUUID->"01666d41-e6a3-454f-9d37-bbc6dab4d978"] }, Open ]], Cell[CellGroupData[{ @@ -12853,12 +12829,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[427]:=",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], + "In[138]:=",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], Cell[BoxData["2.3809514381765835`"], "Output", - CellChangeTimes->{3.991326530052025*^9, 3.9939127719017773`*^9}, + CellChangeTimes->{3.991326530052025*^9, 3.9939127719017773`*^9, + 3.994253432820073*^9}, CellLabel-> - "Out[427]=",ExpressionUUID->"fdf9e2db-b4e9-4a0c-a466-4c1ee8e0cc43"] + "Out[138]=",ExpressionUUID->"a4d94613-19c6-4ecc-b291-87d376eb52d6"] }, Open ]], Cell[CellGroupData[{ @@ -12868,12 +12845,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[428]:=",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], + "In[139]:=",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], Cell[BoxData["63.015264635203`"], "Output", - CellChangeTimes->{3.9913265300922585`*^9, 3.99391277191363*^9}, + CellChangeTimes->{3.9913265300922585`*^9, 3.99391277191363*^9, + 3.994253432834176*^9}, CellLabel-> - "Out[428]=",ExpressionUUID->"14acd0c7-7060-40e2-8545-9dcfd5ed780a"] + "Out[139]=",ExpressionUUID->"85d29ef7-bdf4-49e0-afa2-da8b3e9b21b1"] }, Open ]], Cell[CellGroupData[{ @@ -13063,12 +13041,13 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[429]:=",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], + "In[140]:=",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], Cell[BoxData["0.004488148331862122`"], "Output", - CellChangeTimes->{3.9913265301172295`*^9, 3.993912771927656*^9}, + CellChangeTimes->{3.9913265301172295`*^9, 3.993912771927656*^9, + 3.994253432852737*^9}, CellLabel-> - "Out[429]=",ExpressionUUID->"ca40508f-744d-4f11-9faa-f1352dc7ba69"] + "Out[140]=",ExpressionUUID->"256b95b2-fea9-4011-b25d-4cd39b8007a6"] }, Open ]], Cell[CellGroupData[{ @@ -13082,12 +13061,13 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[430]:=",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], + "In[141]:=",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], Cell[BoxData["13.228522483426284`"], "Output", - CellChangeTimes->{3.991326530210228*^9, 3.993912772048314*^9}, + CellChangeTimes->{3.991326530210228*^9, 3.993912772048314*^9, + 3.9942534330502653`*^9}, CellLabel-> - "Out[430]=",ExpressionUUID->"94302bed-41e6-4906-9080-95361c813892"] + "Out[141]=",ExpressionUUID->"27447e5e-1569-4c3e-80d0-33501cecff86"] }, Open ]], Cell[CellGroupData[{ @@ -13279,12 +13259,13 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[431]:=",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], + "In[142]:=",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], Cell[BoxData["0.014510635815488322`"], "Output", - CellChangeTimes->{3.9913265302252293`*^9, 3.9939127720611897`*^9}, + CellChangeTimes->{3.9913265302252293`*^9, 3.9939127720611897`*^9, + 3.994253433069418*^9}, CellLabel-> - "Out[431]=",ExpressionUUID->"99eaea07-31bd-4b93-929f-d2698fdc6e40"] + "Out[142]=",ExpressionUUID->"f6174d62-2633-4315-816a-dd6fc828269a"] }, Open ]], Cell[CellGroupData[{ @@ -13298,12 +13279,13 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[432]:=",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], + "In[143]:=",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], Cell[BoxData["7.357016320608085`"], "Output", - CellChangeTimes->{3.9913265303172264`*^9, 3.993912772186018*^9}, + CellChangeTimes->{3.9913265303172264`*^9, 3.993912772186018*^9, + 3.994253433271248*^9}, CellLabel-> - "Out[432]=",ExpressionUUID->"843893ab-8424-47e7-9025-95188c1c8ebc"] + "Out[143]=",ExpressionUUID->"e437148b-8d9c-4bc4-b17a-e6c4ddf77def"] }, Open ]], Cell[CellGroupData[{ @@ -13396,12 +13378,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[433]:=",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], + "In[144]:=",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], Cell[BoxData["0.16117775346672777`"], "Output", - CellChangeTimes->{3.9913265303292294`*^9, 3.993912772198105*^9}, + CellChangeTimes->{3.9913265303292294`*^9, 3.993912772198105*^9, + 3.994253433289671*^9}, CellLabel-> - "Out[433]=",ExpressionUUID->"4f84924d-5589-453c-9fba-d0fbc96b8441"] + "Out[144]=",ExpressionUUID->"b930a6d6-3452-4729-955e-73f1f2d2827a"] }, Open ]], Cell[CellGroupData[{ @@ -13491,12 +13474,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[434]:=",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], + "In[145]:=",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], Cell[BoxData["0.8388222465332723`"], "Output", - CellChangeTimes->{3.991326530340416*^9, 3.993912772214373*^9}, + CellChangeTimes->{3.991326530340416*^9, 3.993912772214373*^9, + 3.994253433306032*^9}, CellLabel-> - "Out[434]=",ExpressionUUID->"e9512e21-91c2-4378-8944-9ccc6e29bead"] + "Out[145]=",ExpressionUUID->"3262d2c0-1fb7-4964-af6e-231c5c0a84d0"] }, Open ]], Cell[CellGroupData[{ @@ -13619,12 +13603,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[435]:=",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], + "In[146]:=",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], Cell[BoxData["0.1351994852541465`"], "Output", - CellChangeTimes->{3.991326530367384*^9, 3.9939127722284803`*^9}, + CellChangeTimes->{3.991326530367384*^9, 3.9939127722284803`*^9, + 3.994253433325417*^9}, CellLabel-> - "Out[435]=",ExpressionUUID->"1102993f-0235-4dad-b940-e9dba848d008"] + "Out[146]=",ExpressionUUID->"53e85c36-1a24-4f54-ab3e-dab8a69ad2cb"] }, Open ]], Cell[CellGroupData[{ @@ -13689,70 +13674,75 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.991799912745739*^9}, CellLabel-> - "In[436]:=",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], + "In[147]:=",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0056133613610368`*^-217\\\", \ -RowBox[{\\\"1119071536804432775059941\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"31183104000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 436, 73, 31385385712403366894, "Local"}, +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 147, 61, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913265303923836`*^9, 3.9939127722469063`*^9}, + CellChangeTimes->{3.9913265303923836`*^9, 3.9939127722469063`*^9, + 3.9942534333488827`*^9}, CellLabel-> "During evaluation of \ -In[436]:=",ExpressionUUID->"908716b0-dd94-4bd7-9b80-375f76160171"], +In[147]:=",ExpressionUUID->"6013fafe-8cdd-4793-8178-3ac16722b9b9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.12633993857545`*^-223\\\", \ -RowBox[{\\\"1974042190923019415205737\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \\\"06995456000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 436, 74, 31385385712403366894, "Local"}, +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 147, 62, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913265303923836`*^9, 3.9939127722569723`*^9}, + CellChangeTimes->{3.9913265303923836`*^9, 3.9939127722469063`*^9, + 3.994253433358197*^9}, CellLabel-> "During evaluation of \ -In[436]:=",ExpressionUUID->"379cc3a6-f4e7-4926-9677-e72225d90d6e"], +In[147]:=",ExpressionUUID->"4ea36b9e-fcf0-4be1-947d-16165cc4c460"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.6132669051121417`*^-228\\\", \ -RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 436, 75, 31385385712403366894, "Local"}, +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 147, 63, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913265303923836`*^9, 3.9939127722659693`*^9}, + CellChangeTimes->{3.9913265303923836`*^9, 3.9939127722469063`*^9, + 3.994253433367424*^9}, CellLabel-> "During evaluation of \ -In[436]:=",ExpressionUUID->"f756744c-125d-4ba7-9074-1ca729b9ed72"], +In[147]:=",ExpressionUUID->"18ae5be6-6754-44f4-b7c8-023d675708c6"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 436, 76, 31385385712403366894, "Local"}, +during this calculation.\"", 2, 147, 64, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913265303923836`*^9, 3.9939127722745323`*^9}, + CellChangeTimes->{3.9913265303923836`*^9, 3.9939127722469063`*^9, + 3.994253433375311*^9}, CellLabel-> "During evaluation of \ -In[436]:=",ExpressionUUID->"a33bc922-5ecb-48ae-8cf9-1f456f118836"], +In[147]:=",ExpressionUUID->"ffacb075-aa9d-43c2-91b0-f6240f9a434a"], Cell[BoxData["13.228522483426291`"], "Output", - CellChangeTimes->{3.9913265339749985`*^9, 3.9939127759968*^9}, + CellChangeTimes->{3.9913265339749985`*^9, 3.9939127759968*^9, + 3.994253440931096*^9}, CellLabel-> - "Out[436]=",ExpressionUUID->"abac4ef5-74c9-4d5b-8704-5e100aef2432"] + "Out[147]=",ExpressionUUID->"5215bc71-dad7-4d88-8f0c-d7925530984b"] }, Open ]], Cell[CellGroupData[{ @@ -13817,70 +13807,75 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.9917999175346184`*^9}, CellLabel-> - "In[437]:=",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], + "In[148]:=",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0056133613610368`*^-217\\\", \ -RowBox[{\\\"1119071536804432775059941\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"31183104000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 437, 77, 31385385712403366894, "Local"}, +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 148, 65, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913265340092525`*^9, 3.9939127760497637`*^9}, + CellChangeTimes->{3.9913265340092525`*^9, 3.9939127760497637`*^9, + 3.994253440986294*^9}, CellLabel-> "During evaluation of \ -In[437]:=",ExpressionUUID->"3d26a09a-94a6-4cd1-bb00-22ad19337da2"], +In[148]:=",ExpressionUUID->"a30ef28c-d5e6-43c4-a583-647bf74daf9f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.12633993857545`*^-223\\\", \ -RowBox[{\\\"1974042190923019415205737\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \\\"06995456000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 437, 78, 31385385712403366894, "Local"}, +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 148, 66, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913265340092525`*^9, 3.993912776060192*^9}, + CellChangeTimes->{3.9913265340092525`*^9, 3.9939127760497637`*^9, + 3.994253440995661*^9}, CellLabel-> "During evaluation of \ -In[437]:=",ExpressionUUID->"2d41734b-a27c-40ba-9783-663d685041a1"], +In[148]:=",ExpressionUUID->"b21852f7-a77d-488c-9aca-f14528852f6a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.6132669051121417`*^-228\\\", \ -RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 437, 79, 31385385712403366894, "Local"}, +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 148, 67, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913265340092525`*^9, 3.993912776068693*^9}, + CellChangeTimes->{3.9913265340092525`*^9, 3.9939127760497637`*^9, + 3.994253441004875*^9}, CellLabel-> "During evaluation of \ -In[437]:=",ExpressionUUID->"09717490-405a-4c8b-b481-ea8aff1fc7a3"], +In[148]:=",ExpressionUUID->"e553eedd-f3ed-455e-a33e-156d7ddf5f68"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 437, 80, 31385385712403366894, "Local"}, +during this calculation.\"", 2, 148, 68, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913265340092525`*^9, 3.993912776077297*^9}, + CellChangeTimes->{3.9913265340092525`*^9, 3.9939127760497637`*^9, + 3.9942534410144587`*^9}, CellLabel-> "During evaluation of \ -In[437]:=",ExpressionUUID->"4ca60dc3-a9a4-4a44-a4e3-278683f8ffc1"], +In[148]:=",ExpressionUUID->"04f480a4-82c9-48ef-b37a-0d279821271f"], Cell[BoxData["7.3570163206080865`"], "Output", - CellChangeTimes->{3.9913265375649567`*^9, 3.993912779840969*^9}, + CellChangeTimes->{3.9913265375649567`*^9, 3.993912779840969*^9, + 3.994253448546941*^9}, CellLabel-> - "Out[437]=",ExpressionUUID->"58954f68-cf53-461e-af51-ddda6e4e1531"] + "Out[148]=",ExpressionUUID->"3ea1796b-599f-42c1-abab-0a33aade79fa"] }, Open ]], Cell[CellGroupData[{ @@ -13940,7 +13935,7 @@ Cell[BoxData[ RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{3.9917999220519733`*^9}, CellLabel-> - "In[438]:=",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], + "In[149]:=",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], Cell[BoxData[ GraphicsBox[ @@ -14323,9 +14318,10 @@ rWPkggmoCNikfA87VkUqXTKEgDGRxwWZ2NXCzEqRMAKe/RumnoM98Lu8hT8C Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913267728125134`*^9, 3.993913068921155*^9}, + CellChangeTimes->{3.9913267728125134`*^9, 3.993913068921155*^9, + 3.994254025156248*^9}, CellLabel-> - "Out[438]=",ExpressionUUID->"cf873716-f744-419e-b53b-2721b5da28dd"] + "Out[149]=",ExpressionUUID->"02091f19-6c90-4944-ad79-4035934a3341"] }, Open ]], Cell[CellGroupData[{ @@ -14391,35 +14387,37 @@ Cell[BoxData[ RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.991799933259697*^9, 3.9917999365172615`*^9}}, CellLabel-> - "In[439]:=",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], + "In[150]:=",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.0773864283400737`*^-270\\\", \ \\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 439, - 81, 31385385712403366894, "Local"}, +represent as a normalized machine number; precision may be lost.\"", 2, 150, + 69, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991326773051552*^9, 3.993913069072709*^9}, + CellChangeTimes->{3.991326773051552*^9, 3.993913069072709*^9, + 3.994254025359387*^9}, CellLabel-> "During evaluation of \ -In[439]:=",ExpressionUUID->"103c4703-42b8-4e19-89c7-e15cda907818"], +In[150]:=",ExpressionUUID->"eccd5f58-c3c9-4c9a-b641-89b0798e7dfd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.892192204982692`*^-282\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 439, - 82, 31385385712403366894, "Local"}, +represent as a normalized machine number; precision may be lost.\"", 2, 150, + 70, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991326773051552*^9, 3.993913069080847*^9}, + CellChangeTimes->{3.991326773051552*^9, 3.993913069072709*^9, + 3.994254025369812*^9}, CellLabel-> "During evaluation of \ -In[439]:=",ExpressionUUID->"378289be-f5fd-421c-86f0-8094a95c0f95"], +In[150]:=",ExpressionUUID->"436058e2-67f5-46a3-945a-24f33b405edb"], Cell[BoxData[ TemplateBox[{ @@ -14427,26 +14425,28 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"1.1281628027191075`*^-293\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 439, 83, 31385385712403366894, "Local"}, + 150, 71, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991326773051552*^9, 3.9939130690878353`*^9}, + CellChangeTimes->{3.991326773051552*^9, 3.993913069072709*^9, + 3.9942540253815393`*^9}, CellLabel-> "During evaluation of \ -In[439]:=",ExpressionUUID->"d5911927-b752-49df-805a-1edb8911e218"], +In[150]:=",ExpressionUUID->"1ea2d794-4d91-4084-9e03-e17ff74588b4"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 439, 84, 31385385712403366894, "Local"}, +during this calculation.\"", 2, 150, 72, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991326773051552*^9, 3.99391306909587*^9}, + CellChangeTimes->{3.991326773051552*^9, 3.993913069072709*^9, + 3.994254025390194*^9}, CellLabel-> "During evaluation of \ -In[439]:=",ExpressionUUID->"ef588db9-db91-49da-a0a8-88995a271dc5"], +In[150]:=",ExpressionUUID->"93b24832-4249-4b75-a8fa-91b646073000"], Cell[BoxData[ GraphicsBox[ @@ -14851,16 +14851,17 @@ C7pz7pw/rNQsVD4wx0LnF6mD7sH+kHn00eT8PAs5HhXW27394X9uNzue Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991327033758711*^9, 3.9939133735510397`*^9}, + CellChangeTimes->{3.991327033758711*^9, 3.9939133735510397`*^9, + 3.994254452446519*^9}, CellLabel-> - "Out[439]=",ExpressionUUID->"f62d5a83-23ae-4211-afa5-a6b95d786d46"] + "Out[150]=",ExpressionUUID->"1e5057e2-131f-4b5b-995a-014826c134c1"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9917999433700733`*^9, 3.9917999479698143`*^9}, 3.9919244033659534`*^9}, CellLabel-> - "In[440]:=",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], + "In[151]:=",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], Cell[CellGroupData[{ @@ -14869,7 +14870,7 @@ Cell[BoxData[ RowBox[{"x", ",", "xx"}], "]"}]], "Input", CellChangeTimes->{{3.991799951845436*^9, 3.991799954096182*^9}}, CellLabel-> - "In[441]:=",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], + "In[152]:=",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], Cell[BoxData[ GraphicsBox[{ @@ -15406,9 +15407,9 @@ SA== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9939133736234922`*^9}, + CellChangeTimes->{3.9939133736234922`*^9, 3.994254452546283*^9}, CellLabel-> - "Out[441]=",ExpressionUUID->"8578460c-b5bf-4de8-9652-aa370e0eb0fc"] + "Out[152]=",ExpressionUUID->"219442d2-df11-4e84-92cd-486f2f162c08"] }, Open ]], Cell[CellGroupData[{ @@ -15420,26 +15421,30 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], - ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -15461,70 +15466,75 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[442]:=",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], + "In[153]:=",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.49268854196114`*^-184\\\", \ -RowBox[{\\\"3700068261130031676053882\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"75\\\", \\\"\[RightSkeleton]\\\"}], \\\"20857600000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 442, 85, 31385385712403366894, "Local"}, +RowBox[{\\\"370006826113003167605388\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"77\\\", \\\"\[RightSkeleton]\\\"}], \\\"0857600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 153, 73, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913279097599506`*^9, 3.993913373667974*^9}, + CellChangeTimes->{3.9913279097599506`*^9, 3.993913373667974*^9, + 3.994254452605493*^9}, CellLabel-> "During evaluation of \ -In[442]:=",ExpressionUUID->"d7a81420-7cb3-464a-a10e-a6f5b5944f65"], +In[153]:=",ExpressionUUID->"407b6172-034d-4d67-9e73-72105bafda28"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.6449505089848165`*^-188\\\", \ -RowBox[{\\\"9250170652825079190134707\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"78\\\", \\\"\[RightSkeleton]\\\"}], \\\"44000000000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 442, 86, 31385385712403366894, "Local"}, +RowBox[{\\\"925017065282507919013470\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"80\\\", \\\"\[RightSkeleton]\\\"}], \\\"4000000000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 153, 74, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913279097599506`*^9, 3.993913373676444*^9}, + CellChangeTimes->{3.9913279097599506`*^9, 3.993913373667974*^9, + 3.994254452616373*^9}, CellLabel-> "During evaluation of \ -In[442]:=",ExpressionUUID->"6a1be0c6-6d06-47da-9c1f-90578c1b3b21"], +In[153]:=",ExpressionUUID->"1dd363f7-ccbe-42af-8b70-a72f35113091"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.6866864709685456`*^-192\\\", \ -RowBox[{\\\"2405969386799803097354037\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"82\\\", \\\"\[RightSkeleton]\\\"}], \\\"44000000000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 442, 87, 31385385712403366894, "Local"}, +RowBox[{\\\"240596938679980309735403\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"84\\\", \\\"\[RightSkeleton]\\\"}], \\\"4000000000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 153, 75, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913279097599506`*^9, 3.993913373683167*^9}, + CellChangeTimes->{3.9913279097599506`*^9, 3.993913373667974*^9, + 3.994254452625287*^9}, CellLabel-> "During evaluation of \ -In[442]:=",ExpressionUUID->"c60f9cf8-533e-4cf0-8bf5-b8c47b09d273"], +In[153]:=",ExpressionUUID->"fee252ba-3d75-4045-ac4e-8a8fd75a61bd"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 442, 88, 31385385712403366894, "Local"}, +during this calculation.\"", 2, 153, 76, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913279097599506`*^9, 3.993913373690556*^9}, + CellChangeTimes->{3.9913279097599506`*^9, 3.993913373667974*^9, + 3.994254452632474*^9}, CellLabel-> "During evaluation of \ -In[442]:=",ExpressionUUID->"c71a4e89-961c-4699-b77f-53ff737cb184"], +In[153]:=",ExpressionUUID->"cb217716-0426-4178-9d0f-7c1b0a25b79a"], Cell[BoxData["13.355336655118318`"], "Output", - CellChangeTimes->{3.9913279159698696`*^9, 3.993913413625618*^9}, + CellChangeTimes->{3.9913279159698696`*^9, 3.993913413625618*^9, + 3.994254507665391*^9}, CellLabel-> - "Out[442]=",ExpressionUUID->"03f393a8-4ffb-40a8-8a34-0251046f3f86"] + "Out[153]=",ExpressionUUID->"ef7742e6-0500-496b-89d8-6144328d2803"] }, Open ]], Cell[CellGroupData[{ @@ -15593,70 +15603,75 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.99179998339209*^9, 3.991799988637089*^9}}, CellLabel-> - "In[443]:=",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], + "In[154]:=",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0056133613610368`*^-217\\\", \ -RowBox[{\\\"1119071536804432775059941\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"31183104000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 443, 89, 31385385712403366894, "Local"}, +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 154, 77, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991327916008396*^9, 3.993913413666*^9}, + CellChangeTimes->{3.991327916008396*^9, 3.993913413666*^9, + 3.994254507710155*^9}, CellLabel-> "During evaluation of \ -In[443]:=",ExpressionUUID->"2c7693da-11ac-41ba-8219-6a56657fcbca"], +In[154]:=",ExpressionUUID->"745307e0-bbbc-4343-9e70-c3cac925d883"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.12633993857545`*^-223\\\", \ -RowBox[{\\\"1974042190923019415205737\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \\\"06995456000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 443, 90, 31385385712403366894, "Local"}, +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 154, 78, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991327916008396*^9, 3.9939134136736097`*^9}, + CellChangeTimes->{3.991327916008396*^9, 3.993913413666*^9, + 3.9942545077183733`*^9}, CellLabel-> "During evaluation of \ -In[443]:=",ExpressionUUID->"df31daad-88e9-4bee-b2e3-abee5749b176"], +In[154]:=",ExpressionUUID->"5b90f088-3cc5-4b45-815d-86a0e4a834dd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.6132669051121417`*^-228\\\", \ -RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 443, 91, 31385385712403366894, "Local"}, +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 154, 79, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991327916008396*^9, 3.993913413681617*^9}, + CellChangeTimes->{3.991327916008396*^9, 3.993913413666*^9, + 3.9942545077268744`*^9}, CellLabel-> "During evaluation of \ -In[443]:=",ExpressionUUID->"4c87c40e-c0f2-4a45-b389-fd2526c884ad"], +In[154]:=",ExpressionUUID->"c72ed241-73d9-43cd-89cb-a75ac84cb110"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 443, 92, 31385385712403366894, "Local"}, +during this calculation.\"", 2, 154, 80, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991327916008396*^9, 3.993913413688098*^9}, + CellChangeTimes->{3.991327916008396*^9, 3.993913413666*^9, + 3.994254507735114*^9}, CellLabel-> "During evaluation of \ -In[443]:=",ExpressionUUID->"b76e4f06-b87a-4a62-9a94-a174733b9a4e"], +In[154]:=",ExpressionUUID->"89976e96-015b-4a56-899b-7872b72fe45b"], Cell[BoxData["1.6614538130750567`"], "Output", - CellChangeTimes->{3.991327922931429*^9, 3.99391342051232*^9}, + CellChangeTimes->{3.991327922931429*^9, 3.99391342051232*^9, + 3.9942545167122297`*^9}, CellLabel-> - "Out[443]=",ExpressionUUID->"4e24c109-d40a-4d76-a484-3dd5c5f74e09"] + "Out[154]=",ExpressionUUID->"53f87584-9ddb-417a-a06e-a3280b4ccc96"] }, Open ]], Cell[CellGroupData[{ @@ -15724,70 +15739,75 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.991799991275097*^9, 3.9917999948700333`*^9}}, CellLabel-> - "In[444]:=",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], + "In[155]:=",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0056133613610368`*^-217\\\", \ -RowBox[{\\\"1119071536804432775059941\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"31183104000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 444, 93, 31385385712403366894, "Local"}, +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 155, 81, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913279229664307`*^9, 3.993913420556695*^9}, + CellChangeTimes->{3.9913279229664307`*^9, 3.993913420556695*^9, + 3.994254516762191*^9}, CellLabel-> "During evaluation of \ -In[444]:=",ExpressionUUID->"79744f26-d760-4ab4-bad5-4f121ce68457"], +In[155]:=",ExpressionUUID->"db0511ce-78bf-47f7-82fd-29e8ac26b7f2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.12633993857545`*^-223\\\", \ -RowBox[{\\\"1974042190923019415205737\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \\\"06995456000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 444, 94, 31385385712403366894, "Local"}, +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 155, 82, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913279229664307`*^9, 3.993913420565884*^9}, + CellChangeTimes->{3.9913279229664307`*^9, 3.993913420556695*^9, + 3.994254516771303*^9}, CellLabel-> "During evaluation of \ -In[444]:=",ExpressionUUID->"65a9a6ba-5e8a-4ff4-b7b0-e6e81f2da5ec"], +In[155]:=",ExpressionUUID->"4fb6b90b-a733-4f61-8e93-0c06de649020"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.6132669051121417`*^-228\\\", \ -RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 444, 95, 31385385712403366894, "Local"}, +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 155, 83, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913279229664307`*^9, 3.993913420573615*^9}, + CellChangeTimes->{3.9913279229664307`*^9, 3.993913420556695*^9, + 3.994254516778645*^9}, CellLabel-> "During evaluation of \ -In[444]:=",ExpressionUUID->"c7b94a91-0eeb-48bc-b2ec-7f7bafd16278"], +In[155]:=",ExpressionUUID->"b20f2285-cfbc-408c-8661-a0ae351e9369"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 444, 96, 31385385712403366894, "Local"}, +during this calculation.\"", 2, 155, 84, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913279229664307`*^9, 3.993913420580414*^9}, + CellChangeTimes->{3.9913279229664307`*^9, 3.993913420556695*^9, + 3.994254516787191*^9}, CellLabel-> "During evaluation of \ -In[444]:=",ExpressionUUID->"1edc40e9-2377-4fc6-84e4-7c4c0ed522b9"], +In[155]:=",ExpressionUUID->"53312eaf-6cfa-401e-875f-d0592f779f9e"], Cell[BoxData["47.81522818197809`"], "Output", - CellChangeTimes->{3.9913279288200035`*^9, 3.993913426960677*^9}, + CellChangeTimes->{3.9913279288200035`*^9, 3.993913426960677*^9, + 3.994254524413948*^9}, CellLabel-> - "Out[444]=",ExpressionUUID->"7d1192e4-ee11-41f1-9450-a8881861087c"] + "Out[155]=",ExpressionUUID->"b670c5d3-1d5d-48cf-b4e5-9eee687ab497"] }, Open ]], Cell[CellGroupData[{ @@ -15855,70 +15875,75 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9918000011431293`*^9, 3.9918000068677616`*^9}}, CellLabel-> - "In[445]:=",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], + "In[156]:=",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0056133613610368`*^-217\\\", \ -RowBox[{\\\"1119071536804432775059941\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"31183104000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 445, 97, 31385385712403366894, "Local"}, +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 156, 85, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991327928854006*^9, 3.993913427003449*^9}, + CellChangeTimes->{3.991327928854006*^9, 3.993913427003449*^9, + 3.994254524506199*^9}, CellLabel-> "During evaluation of \ -In[445]:=",ExpressionUUID->"b5a95b1a-285f-4a3b-b783-b28610774b78"], +In[156]:=",ExpressionUUID->"7c96c106-9071-44d8-8ee6-190c5ee9d848"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.12633993857545`*^-223\\\", \ -RowBox[{\\\"1974042190923019415205737\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \\\"06995456000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 445, 98, 31385385712403366894, "Local"}, +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 156, 86, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991327928854006*^9, 3.993913427012066*^9}, + CellChangeTimes->{3.991327928854006*^9, 3.993913427003449*^9, + 3.994254524515065*^9}, CellLabel-> "During evaluation of \ -In[445]:=",ExpressionUUID->"40fe5da3-b9d8-4f49-812d-74a11ba3b6c6"], +In[156]:=",ExpressionUUID->"aa04a221-a583-45e2-8791-c3f2947d02c4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.6132669051121417`*^-228\\\", \ -RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 445, 99, 31385385712403366894, "Local"}, +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 156, 87, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991327928854006*^9, 3.993913427020748*^9}, + CellChangeTimes->{3.991327928854006*^9, 3.993913427003449*^9, + 3.994254524526108*^9}, CellLabel-> "During evaluation of \ -In[445]:=",ExpressionUUID->"ed710ac6-ecf7-4bc0-b0f8-6c36b02ab7f7"], +In[156]:=",ExpressionUUID->"112b1378-d486-4996-b7fa-db32bcd2332c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 445, 100, 31385385712403366894, "Local"}, +during this calculation.\"", 2, 156, 88, 31387619638063226520, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991327928854006*^9, 3.993913427029614*^9}, + CellChangeTimes->{3.991327928854006*^9, 3.993913427003449*^9, + 3.99425452453542*^9}, CellLabel-> "During evaluation of \ -In[445]:=",ExpressionUUID->"7358701c-89f2-47c6-b402-e2b4d2159c55"], +In[156]:=",ExpressionUUID->"779b1f25-6d36-47aa-b759-9470dbdd54bd"], Cell[BoxData["14.789278659553347`"], "Output", - CellChangeTimes->{3.9913279320131683`*^9, 3.993913431040719*^9}, + CellChangeTimes->{3.9913279320131683`*^9, 3.993913431040719*^9, + 3.9942545291601963`*^9}, CellLabel-> - "Out[445]=",ExpressionUUID->"eb0a318f-0640-4ada-8e30-48a097995ea0"] + "Out[156]=",ExpressionUUID->"d70ac318-6d8b-4b12-8ddd-6852411139db"] }, Open ]], Cell[CellGroupData[{ @@ -15929,23 +15954,24 @@ Cell[BoxData[ RowBox[{"S1", "*", "S2"}]]]], "Input", CellChangeTimes->{{3.991800029528055*^9, 3.991800041720209*^9}}, CellLabel-> - "In[446]:=",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], + "In[157]:=",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], Cell[BoxData["0.06247865337558097`"], "Output", - CellChangeTimes->{3.9913279320452003`*^9, 3.993913431079196*^9}, + CellChangeTimes->{3.9913279320452003`*^9, 3.993913431079196*^9, + 3.9942545292108717`*^9}, CellLabel-> - "Out[446]=",ExpressionUUID->"91d53714-6ad2-4a5f-b30e-2bced787e19f"] + "Out[157]=",ExpressionUUID->"9537287a-3575-4cde-a8bf-a056aa9ab3e0"] }, Open ]], Cell[BoxData[ RowBox[{"NotebookSave", "[", "]"}]], "Input", CellChangeTimes->{{3.993910127230443*^9, 3.993910134493907*^9}}, CellLabel-> - "In[447]:=",ExpressionUUID->"f4cd9d51-1336-4e6c-a95b-a638dfdfe4e7"] + "In[158]:=",ExpressionUUID->"f4cd9d51-1336-4e6c-a95b-a638dfdfe4e7"] }, -Evaluator->"Local", -WindowSize->{714, 288}, -WindowMargins->{{-3, Automatic}, {591, 15}}, +Evaluator->"kernel 5", +WindowSize->{714, 170.25}, +WindowMargins->{{Automatic, 3}, {179.25, Automatic}}, CellContext->Notebook, Magnification:>1.5 Inherited, FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", @@ -15964,674 +15990,674 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 427, 8, 79, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], -Cell[1006, 32, 350, 6, 50, "Output",ExpressionUUID->"bfe8a91a-961c-482d-97a2-a7c995ffe74f"] +Cell[576, 22, 422, 7, 55, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], +Cell[1001, 31, 371, 6, 62, "Output",ExpressionUUID->"7e5e0840-990b-45dd-b63b-e623da0fed80"] }, Open ]], Cell[CellGroupData[{ -Cell[1393, 43, 251, 5, 44, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], -Cell[1647, 50, 353, 6, 50, "Output",ExpressionUUID->"5a1c83b9-f479-4a9b-99f1-733098f74ca0"] +Cell[1409, 42, 246, 4, 55, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], +Cell[1658, 48, 374, 6, 62, "Output",ExpressionUUID->"6085d694-0c2f-4816-bd19-e8430caf12ad"] }, Open ]], Cell[CellGroupData[{ -Cell[2037, 61, 225, 5, 44, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], -Cell[2265, 68, 380, 7, 50, "Output",ExpressionUUID->"e053eff7-fb3b-4463-b69a-2c6eae4b8a0f"] +Cell[2069, 59, 220, 4, 55, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], +Cell[2292, 65, 397, 6, 62, "Output",ExpressionUUID->"c3dd7870-add7-45d2-b797-6883285f05e8"] }, Open ]], Cell[CellGroupData[{ -Cell[2682, 80, 180, 4, 44, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], -Cell[2865, 86, 354, 6, 50, "Output",ExpressionUUID->"9bfcf3e2-21bc-4d82-9c9b-62ec715a96eb"] +Cell[2726, 76, 175, 3, 55, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], +Cell[2904, 81, 375, 6, 62, "Output",ExpressionUUID->"18755524-d3a8-4ab8-80c7-450be75145f9"] }, Open ]], Cell[CellGroupData[{ -Cell[3256, 97, 262, 8, 64, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], -Cell[3521, 107, 365, 6, 50, "Output",ExpressionUUID->"67e0d955-77d4-400b-a1d1-6c0d19563e43"] +Cell[3316, 92, 257, 7, 81, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], +Cell[3576, 101, 386, 6, 62, "Output",ExpressionUUID->"7d459864-1228-4261-abc2-24e347c6aa86"] }, Open ]], Cell[CellGroupData[{ -Cell[3923, 118, 136, 3, 44, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], -Cell[4062, 123, 354, 6, 50, "Output",ExpressionUUID->"3984b6eb-4d13-4dcb-829c-4fdb823c5845"] +Cell[3999, 112, 131, 2, 55, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], +Cell[4133, 116, 377, 6, 62, "Output",ExpressionUUID->"0285a591-7983-45d5-bb33-d610a31fc4b5"] }, Open ]], Cell[CellGroupData[{ -Cell[4453, 134, 281, 7, 44, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], -Cell[4737, 143, 365, 6, 50, "Output",ExpressionUUID->"c3b970f2-4c56-4d38-b227-ae9a46a1b0d6"] +Cell[4547, 127, 276, 6, 55, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], +Cell[4826, 135, 386, 6, 62, "Output",ExpressionUUID->"dca7b76c-8bec-4ab5-bf88-bd922a426eeb"] }, Open ]], Cell[CellGroupData[{ -Cell[5139, 154, 262, 8, 44, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], -Cell[5404, 164, 360, 6, 50, "Output",ExpressionUUID->"af49de57-e28e-47c9-b057-cdde5b162a5d"] +Cell[5249, 146, 257, 7, 55, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], +Cell[5509, 155, 381, 6, 62, "Output",ExpressionUUID->"45538162-8789-43ee-a8fd-90e433483836"] }, Open ]], Cell[CellGroupData[{ -Cell[5801, 175, 231, 5, 44, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], -Cell[6035, 182, 329, 6, 50, "Output",ExpressionUUID->"f696685c-de7a-4b34-a5f0-ee2d475fe22d"] +Cell[5927, 166, 226, 4, 55, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], +Cell[6156, 172, 346, 5, 62, "Output",ExpressionUUID->"116ac38e-7743-4fd5-8830-841de2468a66"] }, Open ]], Cell[CellGroupData[{ -Cell[6401, 193, 230, 5, 44, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], -Cell[6634, 200, 324, 6, 50, "Output",ExpressionUUID->"9d41845c-7d14-41a1-8892-0ea2ee3b1256"] +Cell[6539, 182, 226, 4, 55, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], +Cell[6768, 188, 341, 5, 62, "Output",ExpressionUUID->"363c1938-e258-4241-bc2c-b9f732d5c9d6"] }, Open ]], Cell[CellGroupData[{ -Cell[6995, 211, 133, 3, 44, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], -Cell[7131, 216, 348, 6, 50, "Output",ExpressionUUID->"29508bda-bb73-4957-84cc-39a52ce48706"] +Cell[7146, 198, 129, 2, 55, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], +Cell[7278, 202, 370, 6, 62, "Output",ExpressionUUID->"a54f0d25-0b5c-4de0-baf7-6b69ed952f59"] }, Open ]], Cell[CellGroupData[{ -Cell[7516, 227, 133, 3, 44, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], -Cell[7652, 232, 348, 6, 50, "Output",ExpressionUUID->"29f8f643-604e-48c0-bf8f-65d048f231f1"] +Cell[7685, 213, 129, 2, 55, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], +Cell[7817, 217, 370, 6, 62, "Output",ExpressionUUID->"5849de0a-95d2-49d2-a984-d880acec8f88"] }, Open ]], Cell[CellGroupData[{ -Cell[8037, 243, 561, 20, 119, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], -Cell[8601, 265, 368, 6, 50, "Output",ExpressionUUID->"5c404409-2eb4-4f60-a7f5-77ba61fccbae"] +Cell[8224, 228, 557, 19, 148, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], +Cell[8784, 249, 390, 6, 62, "Output",ExpressionUUID->"6bfd9645-addb-44ac-9086-0f442d0698c1"] }, Open ]], Cell[CellGroupData[{ -Cell[9006, 276, 561, 20, 119, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], -Cell[9570, 298, 363, 6, 50, "Output",ExpressionUUID->"ad3588ca-b01a-4a3b-8fe2-5dd386fab4c7"] +Cell[9211, 260, 557, 19, 148, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], +Cell[9771, 281, 385, 6, 62, "Output",ExpressionUUID->"4e0c5091-f078-4c07-83b8-ec234e9f2282"] }, Open ]], Cell[CellGroupData[{ -Cell[9970, 309, 1592, 51, 471, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], -Cell[11565, 362, 364, 6, 50, "Output",ExpressionUUID->"e81f064a-fccc-4129-9b3a-6e7a4c112343"] +Cell[10193, 292, 1588, 50, 639, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], +Cell[11784, 344, 388, 6, 62, "Output",ExpressionUUID->"179b658b-e969-4ef8-8f82-d2d331621a3d"] }, Open ]], Cell[CellGroupData[{ -Cell[11966, 373, 1426, 47, 247, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], -Cell[13395, 422, 380, 7, 50, "Output",ExpressionUUID->"fda63efa-27c6-4deb-82e4-a5e379b7e85c"] +Cell[12209, 355, 1422, 46, 561, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], +Cell[13634, 403, 404, 7, 62, "Output",ExpressionUUID->"c434eecd-9383-4f21-9026-0defb5d09250"] }, Open ]], Cell[CellGroupData[{ -Cell[13812, 434, 1426, 47, 247, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], -Cell[15241, 483, 381, 7, 50, "Output",ExpressionUUID->"d981f946-6e4a-4ba1-8088-61f809d5a0c4"] +Cell[14075, 415, 1422, 46, 561, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], +Cell[15500, 463, 403, 7, 62, "Output",ExpressionUUID->"cb6a4231-4517-405f-8f96-5bc29a0bc625"] }, Open ]], Cell[CellGroupData[{ -Cell[15659, 495, 1592, 51, 471, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], -Cell[17254, 548, 359, 6, 50, "Output",ExpressionUUID->"a97e9892-d696-4222-9eef-5e31516a2745"] +Cell[15940, 475, 1588, 50, 639, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], +Cell[17531, 527, 381, 6, 62, "Output",ExpressionUUID->"64b7f505-2d73-431b-9793-453fc9d3cda1"] }, Open ]], Cell[CellGroupData[{ -Cell[17650, 559, 135, 3, 44, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], -Cell[17788, 564, 351, 6, 50, "Output",ExpressionUUID->"1e7eb844-a0bd-4fb6-9e4a-1ec18f4e8892"] +Cell[17949, 538, 131, 2, 55, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], +Cell[18083, 542, 373, 6, 62, "Output",ExpressionUUID->"c6c31a1f-2a12-42fa-a7f0-45e527747710"] }, Open ]], Cell[CellGroupData[{ -Cell[18176, 575, 137, 3, 44, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], -Cell[18316, 580, 351, 6, 50, "Output",ExpressionUUID->"cfdcfe7d-5525-4642-8873-7a956588d382"] +Cell[18493, 553, 133, 2, 55, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], +Cell[18629, 557, 373, 6, 62, "Output",ExpressionUUID->"238a8dab-0727-4b3e-81f0-4bc10b756d55"] }, Open ]], Cell[CellGroupData[{ -Cell[18704, 591, 138, 3, 44, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], -Cell[18845, 596, 352, 6, 50, "Output",ExpressionUUID->"cb2eca35-3747-48cb-b0ff-3555e17cd729"] +Cell[19039, 568, 134, 2, 55, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], +Cell[19176, 572, 372, 6, 62, "Output",ExpressionUUID->"898bb847-a24e-4fbd-9060-9d0e56708029"] }, Open ]], Cell[CellGroupData[{ -Cell[19234, 607, 223, 5, 44, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], -Cell[19460, 614, 362, 7, 50, "Output",ExpressionUUID->"acce0cfc-40b0-46a7-a47f-63f0bbdd1c00"] +Cell[19585, 583, 219, 4, 55, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], +Cell[19807, 589, 384, 7, 62, "Output",ExpressionUUID->"8af50e11-159b-4d05-92a9-be85a0e225a0"] }, Open ]], Cell[CellGroupData[{ -Cell[19859, 626, 138, 3, 44, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], -Cell[20000, 631, 351, 6, 50, "Output",ExpressionUUID->"8b7164b7-c4e6-47e3-8b21-346aa5cb62db"] +Cell[20228, 601, 134, 2, 55, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], +Cell[20365, 605, 373, 6, 62, "Output",ExpressionUUID->"f10f6348-0ebb-4b7a-914d-83d467bfbeb1"] }, Open ]], Cell[CellGroupData[{ -Cell[20388, 642, 330, 6, 44, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], -Cell[20721, 650, 320, 6, 50, "Output",ExpressionUUID->"00c43026-2011-420a-9a45-ff2958d4751e"] +Cell[20775, 616, 326, 5, 55, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], +Cell[21104, 623, 340, 5, 62, "Output",ExpressionUUID->"4b68035c-c7f7-4c98-9c21-b3773b8f4021"] }, Open ]], Cell[CellGroupData[{ -Cell[21078, 661, 299, 6, 44, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], -Cell[21380, 669, 349, 6, 50, "Output",ExpressionUUID->"7927fe89-097d-476f-a75b-264cdb99e18c"] +Cell[21481, 633, 295, 5, 55, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], +Cell[21779, 640, 371, 6, 62, "Output",ExpressionUUID->"81d68b50-95aa-411f-9942-b20d36b425a4"] }, Open ]], Cell[CellGroupData[{ -Cell[21766, 680, 223, 5, 44, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], -Cell[21992, 687, 345, 6, 50, "Output",ExpressionUUID->"852532e5-89ce-4119-9e1c-f3de9400d6dd"] +Cell[22187, 651, 219, 4, 55, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], +Cell[22409, 657, 367, 6, 62, "Output",ExpressionUUID->"8a6c5f69-87f9-4c71-a3cf-06d4a458e7ac"] }, Open ]], Cell[CellGroupData[{ -Cell[22374, 698, 354, 11, 64, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], -Cell[22731, 711, 367, 6, 50, "Output",ExpressionUUID->"a9a96088-ba6f-4e12-9a2a-82e9f806b5cc"] +Cell[22813, 668, 350, 10, 81, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], +Cell[23166, 680, 389, 6, 62, "Output",ExpressionUUID->"eee7a035-d493-48cb-b590-7e03a5b2de23"] }, Open ]], Cell[CellGroupData[{ -Cell[23135, 722, 354, 11, 64, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], -Cell[23492, 735, 379, 7, 50, "Output",ExpressionUUID->"51d6a5d5-7e18-402f-97ca-ee722797b03d"] +Cell[23592, 691, 350, 10, 81, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], +Cell[23945, 703, 401, 7, 62, "Output",ExpressionUUID->"6ac3385f-0f8f-46d1-800c-b44d5b24484e"] }, Open ]], Cell[CellGroupData[{ -Cell[23908, 747, 998, 27, 327, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], -Cell[24909, 776, 361, 6, 50, "Output",ExpressionUUID->"7c73e795-6feb-48ad-ba7f-4b3ebf476314"] +Cell[24383, 715, 994, 26, 488, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], +Cell[25380, 743, 383, 6, 62, "Output",ExpressionUUID->"5e4e65ff-6a61-4266-8ca1-d62c0de021e2"] }, Open ]], Cell[CellGroupData[{ -Cell[25307, 787, 203, 4, 44, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], -Cell[25513, 793, 348, 6, 50, "Output",ExpressionUUID->"38deb10c-2d56-4d12-9e1d-e950eb2a7e36"] +Cell[25800, 754, 199, 3, 55, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], +Cell[26002, 759, 370, 6, 62, "Output",ExpressionUUID->"0d72f375-7a0b-4d4b-a406-7bf88d6bcdce"] }, Open ]], Cell[CellGroupData[{ -Cell[25898, 804, 333, 6, 44, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], -Cell[26234, 812, 330, 6, 50, "Output",ExpressionUUID->"0f8c8b41-799e-46e0-b1a5-0c58fc695566"] +Cell[26409, 770, 329, 5, 55, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], +Cell[26741, 777, 348, 5, 62, "Output",ExpressionUUID->"026e340f-cd4d-4e3b-97f0-ee19f6d8eb10"] }, Open ]], -Cell[26579, 821, 177, 3, 44, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], +Cell[27104, 785, 173, 2, 109, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], Cell[CellGroupData[{ -Cell[26781, 828, 333, 6, 44, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], -Cell[27117, 836, 328, 6, 50, "Output",ExpressionUUID->"be181857-1700-4f40-9804-fb3f38c7d9bd"] +Cell[27302, 791, 329, 5, 55, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], +Cell[27634, 798, 345, 5, 62, "Output",ExpressionUUID->"ba3103e3-527c-45a0-aaaa-2172df42cd25"] }, Open ]], -Cell[27460, 845, 177, 3, 44, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], +Cell[27994, 806, 173, 2, 109, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], Cell[CellGroupData[{ -Cell[27662, 852, 334, 6, 44, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], -Cell[27999, 860, 325, 6, 50, "Output",ExpressionUUID->"0348e624-9ea7-4810-bd70-d987f1999199"] +Cell[28192, 812, 330, 5, 55, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], +Cell[28525, 819, 343, 5, 62, "Output",ExpressionUUID->"9e8846e1-2c44-4d00-ba6a-e214965635ef"] }, Open ]], -Cell[28339, 869, 177, 3, 44, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], +Cell[28883, 827, 173, 2, 109, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], Cell[CellGroupData[{ -Cell[28541, 876, 356, 6, 44, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], -Cell[28900, 884, 329, 6, 50, "Output",ExpressionUUID->"9c230e8e-38a6-466b-8e11-40289f94ddbb"] +Cell[29081, 833, 352, 5, 55, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], +Cell[29436, 840, 347, 5, 62, "Output",ExpressionUUID->"ab45e1b1-68df-44a7-b63b-785f4f6db1cc"] }, Open ]], -Cell[29244, 893, 175, 3, 44, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], +Cell[29798, 848, 171, 2, 109, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], Cell[CellGroupData[{ -Cell[29444, 900, 304, 6, 44, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], -Cell[29751, 908, 325, 6, 50, "Output",ExpressionUUID->"3ad237c9-253f-4ed3-8cf7-28dc852b73e2"] +Cell[29994, 854, 300, 5, 55, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], +Cell[30297, 861, 343, 5, 62, "Output",ExpressionUUID->"05c6cf21-9caa-47b7-8553-9938ab825219"] }, Open ]], -Cell[30091, 917, 175, 3, 44, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], +Cell[30655, 869, 171, 2, 109, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], Cell[CellGroupData[{ -Cell[30291, 924, 308, 6, 44, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], -Cell[30602, 932, 330, 6, 50, "Output",ExpressionUUID->"13ac80b4-7bf6-458a-a983-fab5ead8ef5a"] +Cell[30851, 875, 304, 5, 55, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], +Cell[31158, 882, 348, 5, 62, "Output",ExpressionUUID->"a6150ddb-bf86-4692-be38-a88e69cfb7f2"] }, Open ]], -Cell[30947, 941, 177, 3, 44, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], +Cell[31521, 890, 173, 2, 109, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], Cell[CellGroupData[{ -Cell[31149, 948, 311, 6, 44, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], -Cell[31463, 956, 324, 6, 50, "Output",ExpressionUUID->"47c1d714-42c6-4d5a-80d4-9bf1a6a91f34"] +Cell[31719, 896, 307, 5, 55, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], +Cell[32029, 903, 342, 5, 62, "Output",ExpressionUUID->"18b63bd3-0a9b-445a-917d-363c571f476c"] }, Open ]], -Cell[31802, 965, 176, 3, 44, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], +Cell[32386, 911, 172, 2, 109, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], Cell[CellGroupData[{ -Cell[32003, 972, 278, 5, 44, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], -Cell[32284, 979, 332, 6, 50, "Output",ExpressionUUID->"cb183a1e-c97a-4273-9f61-ac82f5744288"] +Cell[32583, 917, 274, 4, 55, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], +Cell[32860, 923, 350, 5, 62, "Output",ExpressionUUID->"c9875003-ba1c-4d2b-8d9d-e42420e0710d"] }, Open ]], -Cell[32631, 988, 179, 3, 44, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], +Cell[33225, 931, 175, 2, 109, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ -Cell[32835, 995, 19813, 486, 3721, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], -Cell[52651, 1483, 379, 7, 50, "Output",ExpressionUUID->"9fdeb3d6-6f8d-4813-9463-eb0b5bcf954f"] +Cell[33425, 937, 19809, 485, 7166, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], +Cell[53237, 1424, 403, 7, 62, "Output",ExpressionUUID->"45f99ce2-edeb-496f-a527-9c3c649b6167"] }, Open ]], Cell[CellGroupData[{ -Cell[53067, 1495, 19752, 490, 3905, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], -Cell[72822, 1987, 362, 6, 50, "Output",ExpressionUUID->"d4dfb4f1-df43-4c9a-8c38-be7975236feb"] +Cell[53677, 1436, 19748, 489, 7205, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], +Cell[73428, 1927, 384, 6, 62, "Output",ExpressionUUID->"09ac1b92-e298-4136-a056-e9019816992a"] }, Open ]], Cell[CellGroupData[{ -Cell[73221, 1998, 19752, 484, 3803, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], -Cell[92976, 2484, 377, 7, 50, "Output",ExpressionUUID->"e8732f27-b3b9-4d8b-8ffb-d51402fa2408"] +Cell[73849, 1938, 19748, 483, 7204, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], +Cell[93600, 2423, 399, 7, 62, "Output",ExpressionUUID->"8e648c01-993b-442d-b400-cff2b1fa4851"] }, Open ]], Cell[CellGroupData[{ -Cell[93390, 2496, 22538, 554, 4326, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], -Cell[115931, 3052, 381, 7, 50, "Output",ExpressionUUID->"e8ad7708-77f4-4fe2-b342-af8dbc55d0c3"] +Cell[94036, 2435, 22534, 553, 8281, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], +Cell[116573, 2990, 405, 7, 62, "Output",ExpressionUUID->"7a85a12d-8327-494d-970e-4c4b46a69560"] }, Open ]], Cell[CellGroupData[{ -Cell[116349, 3064, 22539, 554, 4326, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], -Cell[138891, 3620, 381, 7, 50, "Output",ExpressionUUID->"52086ec7-64a7-4ef2-adb5-6f895c2cd88e"] +Cell[117015, 3002, 22535, 553, 8281, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], +Cell[139553, 3557, 403, 7, 62, "Output",ExpressionUUID->"fb5fb639-7f8e-45cf-8b38-259346c82d3f"] }, Open ]], Cell[CellGroupData[{ -Cell[139309, 3632, 25495, 627, 4849, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], -Cell[164807, 4261, 381, 7, 50, "Output",ExpressionUUID->"51afe6c6-8696-49f6-81bc-dee7e3c3fa3d"] +Cell[139993, 3569, 25491, 626, 9401, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], +Cell[165487, 4197, 403, 7, 62, "Output",ExpressionUUID->"d2972e28-d0f5-4284-a4d5-e35b18a94433"] }, Open ]], Cell[CellGroupData[{ -Cell[165225, 4273, 134, 3, 44, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], -Cell[165362, 4278, 342, 6, 50, "Output",ExpressionUUID->"c00e6e0e-cc43-4657-8b9b-2c6da5ad5a94"] +Cell[165927, 4209, 130, 2, 55, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], +Cell[166060, 4213, 364, 6, 62, "Output",ExpressionUUID->"ee6420d3-386f-4054-8250-f925b1cf0f17"] }, Open ]], Cell[CellGroupData[{ -Cell[165741, 4289, 134, 3, 44, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], -Cell[165878, 4294, 345, 6, 50, "Output",ExpressionUUID->"d8321473-7421-4f13-8278-ddc47a846fe6"] +Cell[166461, 4224, 130, 2, 55, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], +Cell[166594, 4228, 367, 6, 62, "Output",ExpressionUUID->"e8bd61d2-91d6-4298-ace5-dc830e163049"] }, Open ]], Cell[CellGroupData[{ -Cell[166260, 4305, 1148, 40, 336, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], -Cell[167411, 4347, 362, 6, 50, "Output",ExpressionUUID->"323b0ebf-d356-4fe1-a9e8-da32d91118bc"] +Cell[166998, 4239, 1144, 39, 628, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], +Cell[168145, 4280, 382, 6, 62, "Output",ExpressionUUID->"d7aa6632-0697-4364-a73e-7540bf139bfe"] }, Open ]], Cell[CellGroupData[{ -Cell[167810, 4358, 1045, 36, 334, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], -Cell[168858, 4396, 375, 7, 50, "Output",ExpressionUUID->"8cf89501-6bc0-4d5e-97f3-6244f92b8ab0"] +Cell[168564, 4291, 1041, 35, 625, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], +Cell[169608, 4328, 397, 7, 62, "Output",ExpressionUUID->"dad4c560-fa3e-491c-91ef-4d76f5728eba"] }, Open ]], Cell[CellGroupData[{ -Cell[169270, 4408, 1148, 40, 336, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], -Cell[170421, 4450, 368, 6, 50, "Output",ExpressionUUID->"3d3703ac-6357-44ec-865c-c87d37909a26"] +Cell[170042, 4340, 1144, 39, 628, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], +Cell[171189, 4381, 390, 6, 62, "Output",ExpressionUUID->"ecec6da1-8557-442f-bf3a-76a8353fd3a4"] }, Open ]], Cell[CellGroupData[{ -Cell[170826, 4461, 112, 2, 44, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], -Cell[170941, 4465, 366, 6, 50, "Output",ExpressionUUID->"f3f34492-b518-4fed-af47-4bc06ab7eb38"] +Cell[171616, 4392, 108, 1, 55, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], +Cell[171727, 4395, 390, 6, 62, "Output",ExpressionUUID->"01e44971-fe53-432d-ae4c-1d895982c40e"] }, Open ]], Cell[CellGroupData[{ -Cell[171344, 4476, 112, 2, 44, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], -Cell[171459, 4480, 376, 7, 50, "Output",ExpressionUUID->"35ca0862-e112-48d8-b6d4-fe2a52cf5875"] +Cell[172154, 4406, 108, 1, 55, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], +Cell[172265, 4409, 400, 7, 62, "Output",ExpressionUUID->"5f94c9c5-fa05-46e1-86ce-25a37c7ae5c3"] }, Open ]], Cell[CellGroupData[{ -Cell[171872, 4492, 112, 2, 44, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], -Cell[171987, 4496, 380, 7, 50, "Output",ExpressionUUID->"b391c8a9-a61c-4a3d-92df-47ac3772b7e2"] +Cell[172702, 4421, 108, 1, 55, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], +Cell[172813, 4424, 402, 7, 62, "Output",ExpressionUUID->"4d5599f1-19c9-457d-8956-5771262fc7bf"] }, Open ]], Cell[CellGroupData[{ -Cell[172404, 4508, 112, 2, 44, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], -Cell[172519, 4512, 364, 6, 50, "Output",ExpressionUUID->"3db68da0-548f-48c5-923b-9fde0e728483"] +Cell[173252, 4436, 108, 1, 55, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], +Cell[173363, 4439, 388, 6, 62, "Output",ExpressionUUID->"c967a0fa-3249-40a6-981c-853fb2662b0d"] }, Open ]], Cell[CellGroupData[{ -Cell[172920, 4523, 111, 2, 44, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], -Cell[173034, 4527, 366, 6, 50, "Output",ExpressionUUID->"f4eb2573-5af2-4ee9-b3b7-4ddf5fed63d2"] +Cell[173788, 4450, 107, 1, 55, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], +Cell[173898, 4453, 388, 6, 62, "Output",ExpressionUUID->"430be51d-c1a6-43b8-a219-95b0a34b0192"] }, Open ]], Cell[CellGroupData[{ -Cell[173437, 4538, 111, 2, 44, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], -Cell[173551, 4542, 363, 6, 50, "Output",ExpressionUUID->"264a4a7e-61ea-4427-9ff1-93ff6733efe8"] +Cell[174323, 4464, 107, 1, 55, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], +Cell[174433, 4467, 385, 6, 62, "Output",ExpressionUUID->"a78c46b7-5034-49ad-8ca4-d4be2b3f6d48"] }, Open ]], Cell[CellGroupData[{ -Cell[173951, 4553, 501, 17, 84, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], -Cell[174455, 4572, 380, 7, 50, "Output",ExpressionUUID->"0d90d79e-7718-44ef-8536-c8b70f3e3f93"] +Cell[174855, 4478, 497, 16, 182, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], +Cell[175355, 4496, 402, 7, 62, "Output",ExpressionUUID->"0a508625-23df-4416-8169-4059fb9c2fa3"] }, Open ]], Cell[CellGroupData[{ -Cell[174872, 4584, 501, 17, 84, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], -Cell[175376, 4603, 375, 7, 50, "Output",ExpressionUUID->"5899783c-02e0-476e-bb06-ab1ff1675256"] +Cell[175794, 4508, 497, 16, 182, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], +Cell[176294, 4526, 399, 7, 62, "Output",ExpressionUUID->"1aedbfbd-4581-4324-ae58-d596e2b485c9"] }, Open ]], Cell[CellGroupData[{ -Cell[175788, 4615, 1792, 61, 508, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], -Cell[177583, 4678, 364, 6, 50, "Output",ExpressionUUID->"4915d6ea-6e4d-4198-acb3-1942d38466f3"] +Cell[176730, 4538, 1788, 60, 1100, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], +Cell[178521, 4600, 386, 6, 62, "Output",ExpressionUUID->"c2f114bd-5372-4009-8d47-e4b090e8144f"] }, Open ]], Cell[CellGroupData[{ -Cell[177984, 4689, 1105, 37, 367, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], -Cell[179092, 4728, 378, 7, 50, "Output",ExpressionUUID->"defcebc4-9f3c-45b6-8c27-fc291aebc3f5"] +Cell[178944, 4611, 1101, 36, 667, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], +Cell[180048, 4649, 402, 7, 62, "Output",ExpressionUUID->"5c07b3d9-b039-4cdc-95cc-220221f8a0d1"] }, Open ]], Cell[CellGroupData[{ -Cell[179507, 4740, 1822, 62, 508, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], -Cell[181332, 4804, 364, 6, 50, "Output",ExpressionUUID->"a8fb87c6-4d4f-43d5-9023-2eddf26cf8cb"] +Cell[180487, 4661, 1818, 61, 1100, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], +Cell[182308, 4724, 385, 6, 62, "Output",ExpressionUUID->"b022353b-b48c-4d59-af9d-202d94913bc8"] }, Open ]], Cell[CellGroupData[{ -Cell[181733, 4815, 1635, 54, 287, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], -Cell[183371, 4871, 367, 6, 50, "Output",ExpressionUUID->"4e2c9538-d90f-4a4f-8ef7-9ccd846e9fbf"] +Cell[182730, 4735, 1631, 53, 451, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], +Cell[184364, 4790, 389, 6, 62, "Output",ExpressionUUID->"5ec90259-67e4-4516-ad05-3145806602db"] }, Open ]], Cell[CellGroupData[{ -Cell[183775, 4882, 1635, 54, 287, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], -Cell[185413, 4938, 361, 6, 50, "Output",ExpressionUUID->"7cec3038-b116-4b3b-b343-f6f62c2f4881"] +Cell[184790, 4801, 1631, 53, 451, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], +Cell[186424, 4856, 383, 6, 62, "Output",ExpressionUUID->"0fefaa22-8c66-465d-983b-8324af8a9d9b"] }, Open ]], Cell[CellGroupData[{ -Cell[185811, 4949, 227, 5, 44, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], -Cell[186041, 4956, 335, 6, 50, "Output",ExpressionUUID->"4ce32cac-7bde-43b8-8882-12e68817bec6"] +Cell[186844, 4867, 223, 4, 55, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], +Cell[187070, 4873, 353, 5, 62, "Output",ExpressionUUID->"a9e19a21-80ae-495c-8e77-e7ee3776927b"] }, Open ]], -Cell[186391, 4965, 176, 3, 44, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], +Cell[187438, 4881, 172, 2, 109, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], Cell[CellGroupData[{ -Cell[186592, 4972, 231, 5, 44, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], -Cell[186826, 4979, 334, 6, 50, "Output",ExpressionUUID->"15f9aaa3-b324-4bdf-a9b7-b520c9b4007d"] +Cell[187635, 4887, 227, 4, 55, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], +Cell[187865, 4893, 351, 5, 62, "Output",ExpressionUUID->"79215c61-8ef3-4278-9986-29adfbb88ba5"] }, Open ]], -Cell[187175, 4988, 177, 3, 44, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], +Cell[188231, 4901, 173, 2, 109, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ -Cell[187377, 4995, 1301, 43, 205, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], -Cell[188681, 5040, 368, 6, 50, "Output",ExpressionUUID->"80bcd1fa-da2f-4290-b680-2fdbb65eee50"] +Cell[188429, 4907, 1297, 42, 303, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], +Cell[189729, 4951, 390, 6, 62, "Output",ExpressionUUID->"980ad1d6-8007-4c96-a3ca-386f7d45d0d8"] }, Open ]], Cell[CellGroupData[{ -Cell[189086, 5051, 931, 31, 205, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], -Cell[190020, 5084, 367, 6, 50, "Output",ExpressionUUID->"a21bcf61-580d-4a62-8d19-dfad63e75fd3"] +Cell[190156, 4962, 927, 30, 259, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], +Cell[191086, 4994, 389, 6, 62, "Output",ExpressionUUID->"760c1597-5cd5-4520-b9fe-d556139bd769"] }, Open ]], Cell[CellGroupData[{ -Cell[190424, 5095, 907, 30, 149, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], -Cell[191334, 5127, 369, 6, 50, "Output",ExpressionUUID->"6abcaa94-9032-406e-bdb7-04b85c373673"] +Cell[191512, 5005, 903, 29, 259, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], +Cell[192418, 5036, 390, 6, 62, "Output",ExpressionUUID->"217fe29e-91ac-494a-b650-fb6b6f883a50"] }, Open ]], Cell[CellGroupData[{ -Cell[191740, 5138, 558, 19, 79, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], -Cell[192301, 5159, 759, 12, 50, "Output",ExpressionUUID->"c4af0c0d-0f83-4e82-8076-27a3646b87be"] +Cell[192845, 5047, 554, 18, 100, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], +Cell[193402, 5067, 777, 11, 62, "Output",ExpressionUUID->"dd498b6e-f8b7-4314-9da2-614dc2b0c910"] }, Open ]], Cell[CellGroupData[{ -Cell[193097, 5176, 665, 22, 79, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], -Cell[193765, 5200, 738, 11, 50, "Output",ExpressionUUID->"b4f66e2f-cb0c-4224-8a07-7cedcf9eed4b"] +Cell[194216, 5083, 661, 21, 100, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], +Cell[194880, 5106, 762, 11, 62, "Output",ExpressionUUID->"200aa5cd-83e3-41a4-b7c0-fc50111f19ac"] }, Open ]], Cell[CellGroupData[{ -Cell[194540, 5216, 170, 5, 84, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], -Cell[194713, 5223, 765, 12, 50, "Output",ExpressionUUID->"02df6713-854c-4416-a21f-03250a1e4b9a"] +Cell[195679, 5122, 166, 4, 105, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], +Cell[195848, 5128, 783, 11, 62, "Output",ExpressionUUID->"00b2a8a8-399a-466d-a148-ed344a7b4bf1"] }, Open ]], Cell[CellGroupData[{ -Cell[195515, 5240, 236, 6, 83, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], -Cell[195754, 5248, 713, 11, 50, "Output",ExpressionUUID->"954646b8-0650-4cd9-9918-ea5626fc0d73"] +Cell[196668, 5144, 232, 5, 104, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], +Cell[196903, 5151, 730, 10, 62, "Output",ExpressionUUID->"9f88b1cd-f551-4904-8727-18e5f75a8496"] }, Open ]], Cell[CellGroupData[{ -Cell[196504, 5264, 223, 6, 65, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], -Cell[196730, 5272, 744, 11, 50, "Output",ExpressionUUID->"686de71d-1e2e-408e-ac13-dc75205ede9b"] +Cell[197670, 5166, 219, 5, 81, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], +Cell[197892, 5173, 766, 11, 62, "Output",ExpressionUUID->"cc707c66-3d82-49d5-9423-b49a282f8006"] }, Open ]], Cell[CellGroupData[{ -Cell[197511, 5288, 181, 5, 65, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], -Cell[197695, 5295, 765, 12, 50, "Output",ExpressionUUID->"61ea77e9-fafc-4186-8626-e5e497ff3546"] +Cell[198695, 5189, 177, 4, 81, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], +Cell[198875, 5195, 783, 11, 62, "Output",ExpressionUUID->"a9febe76-1db9-472d-8f72-3ed1055f26e6"] }, Open ]], Cell[CellGroupData[{ -Cell[198497, 5312, 6055, 185, 1229, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], -Cell[204555, 5499, 744, 11, 50, "Output",ExpressionUUID->"24b81928-f74d-473b-948c-3e47b8d81f5b"] +Cell[199695, 5211, 6051, 184, 2152, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], +Cell[205749, 5397, 766, 11, 62, "Output",ExpressionUUID->"00df9d72-a8e4-425f-aff9-5ce5c80f0206"] }, Open ]], Cell[CellGroupData[{ -Cell[205336, 5515, 410, 10, 87, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], -Cell[205749, 5527, 763, 12, 74, "Output",ExpressionUUID->"5dd8ddf4-a524-400d-aa99-a023faf3ab84"] +Cell[206552, 5413, 406, 9, 109, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], +Cell[206961, 5424, 781, 11, 92, "Output",ExpressionUUID->"2880c982-cc97-4e65-b6fe-8be3f93d8162"] }, Open ]], -Cell[206527, 5542, 492, 10, 44, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], +Cell[207757, 5438, 488, 9, 109, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ -Cell[207044, 5556, 558, 19, 79, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], -Cell[207605, 5577, 339, 6, 50, "Output",ExpressionUUID->"4af336c2-2169-4156-8f2f-9ab0a0c1ecf1"] +Cell[208270, 5451, 554, 18, 100, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], +Cell[208827, 5471, 357, 5, 62, "Output",ExpressionUUID->"82e4cfe5-e403-4850-96f8-11e973a15c87"] }, Open ]], Cell[CellGroupData[{ -Cell[207981, 5588, 623, 21, 79, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], -Cell[208607, 5611, 347, 6, 50, "Output",ExpressionUUID->"74532804-78ed-47c2-b79d-730d3a274cfe"] +Cell[209221, 5481, 619, 20, 100, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], +Cell[209843, 5503, 365, 5, 62, "Output",ExpressionUUID->"db80d4f9-afa3-48c4-8d6a-3701da5894de"] }, Open ]], Cell[CellGroupData[{ -Cell[208991, 5622, 170, 5, 84, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], -Cell[209164, 5629, 344, 6, 50, "Output",ExpressionUUID->"43f74d68-2380-4fa5-a378-14f1da6e5d6e"] +Cell[210245, 5513, 166, 4, 105, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], +Cell[210414, 5519, 364, 5, 62, "Output",ExpressionUUID->"70144822-b68c-4253-8b63-c88644700972"] }, Open ]], Cell[CellGroupData[{ -Cell[209545, 5640, 170, 5, 83, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], -Cell[209718, 5647, 339, 6, 50, "Output",ExpressionUUID->"eee2a58c-fdc8-417c-bb7d-28711aeba14f"] +Cell[210815, 5529, 166, 4, 104, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], +Cell[210984, 5535, 359, 5, 62, "Output",ExpressionUUID->"042085c1-a57e-448c-9983-2e81036efcad"] }, Open ]], Cell[CellGroupData[{ -Cell[210094, 5658, 181, 5, 65, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], -Cell[210278, 5665, 346, 6, 50, "Output",ExpressionUUID->"71fcab11-d8c1-426f-ae59-d118fb9eb7c7"] +Cell[211380, 5545, 177, 4, 81, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], +Cell[211560, 5551, 364, 5, 62, "Output",ExpressionUUID->"5b7315d3-7b5f-47c9-bf5f-8034e2fcb5ab"] }, Open ]], Cell[CellGroupData[{ -Cell[210661, 5676, 181, 5, 65, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], -Cell[210845, 5683, 340, 6, 50, "Output",ExpressionUUID->"c181fb4e-ede0-484e-8e9b-16f3dd7de7b6"] +Cell[211961, 5561, 177, 4, 81, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], +Cell[212141, 5567, 358, 5, 62, "Output",ExpressionUUID->"aeac21a6-bebc-468a-b022-7e59037ad44f"] }, Open ]], Cell[CellGroupData[{ -Cell[211222, 5694, 6055, 185, 497, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], -Cell[217280, 5881, 342, 6, 50, "Output",ExpressionUUID->"a4243a21-8d24-45a9-8e2c-7739a1ea1f9b"] +Cell[212536, 5577, 6051, 184, 2152, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], +Cell[218590, 5763, 360, 5, 62, "Output",ExpressionUUID->"993c07d5-988e-48b2-ae54-c1c4070c767a"] }, Open ]], Cell[CellGroupData[{ -Cell[217659, 5892, 368, 9, 63, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], -Cell[218030, 5903, 339, 6, 50, "Output",ExpressionUUID->"bfffaa2a-5691-4f0a-9c9d-142a862a6a3a"] +Cell[218987, 5773, 364, 8, 79, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], +Cell[219354, 5783, 357, 5, 62, "Output",ExpressionUUID->"ddfe430e-d3f0-421d-8dc6-543adadd9617"] }, Open ]], Cell[CellGroupData[{ -Cell[218406, 5914, 6122, 187, 497, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], -Cell[224531, 6103, 343, 6, 50, "Output",ExpressionUUID->"eaf78250-6361-4b32-82f4-c2b3be6fc0ca"] +Cell[219748, 5793, 6118, 186, 2152, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], +Cell[225869, 5981, 361, 5, 62, "Output",ExpressionUUID->"9fee484a-5a79-4bb0-884c-95ad7c12132b"] }, Open ]], Cell[CellGroupData[{ -Cell[224911, 6114, 368, 9, 63, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], -Cell[225282, 6125, 346, 6, 50, "Output",ExpressionUUID->"da822dbd-79fb-4ca5-a70e-6d275dd0edfb"] +Cell[226267, 5991, 364, 8, 79, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], +Cell[226634, 6001, 366, 5, 62, "Output",ExpressionUUID->"07538171-b2a7-4602-896e-036ce6e6e1d4"] }, Open ]], Cell[CellGroupData[{ -Cell[225665, 6136, 2663, 88, 247, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], -Cell[228331, 6226, 341, 6, 50, "Output",ExpressionUUID->"43890d40-4a13-4062-85f7-4045ba53a71f"] +Cell[227037, 6011, 2659, 87, 1067, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], +Cell[229699, 6100, 361, 5, 62, "Output",ExpressionUUID->"ffdc8dd2-6f58-4d8b-8a8b-bb61ba7835fc"] }, Open ]], Cell[CellGroupData[{ -Cell[228709, 6237, 2603, 85, 247, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], -Cell[231315, 6324, 346, 6, 50, "Output",ExpressionUUID->"1b41b159-e335-46b4-8dab-dde4c0c328ec"] +Cell[230097, 6110, 2599, 84, 967, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], +Cell[232699, 6196, 364, 5, 62, "Output",ExpressionUUID->"27392925-1662-483b-9236-e2f85ac3a206"] }, Open ]], Cell[CellGroupData[{ -Cell[231698, 6335, 3712, 118, 364, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], -Cell[235413, 6455, 345, 6, 50, "Output",ExpressionUUID->"95b67a85-e6ed-4aeb-85ac-f0bc84b392bf"] +Cell[233100, 6206, 3708, 117, 1454, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], +Cell[236811, 6325, 365, 5, 62, "Output",ExpressionUUID->"be3ac371-3057-486b-ac77-0350935fecfa"] }, Open ]], -Cell[235773, 6464, 164, 4, 44, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], +Cell[237191, 6333, 164, 4, 109, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ -Cell[235962, 6472, 2101, 60, 132, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], -Cell[238066, 6534, 780, 16, 64, "Message",ExpressionUUID->"623f67bb-e287-4897-91a3-015f89d125bd"], -Cell[238849, 6552, 779, 16, 64, "Message",ExpressionUUID->"925a0cfa-4b19-44bc-8c3f-9a84279127fc"], -Cell[239631, 6570, 781, 16, 64, "Message",ExpressionUUID->"08189eb4-63f2-4363-b5b9-c058f3e7b947"], -Cell[240415, 6588, 640, 14, 39, "Message",ExpressionUUID->"713426fb-75a0-4355-9a30-2b30346e063a"], -Cell[241058, 6604, 351, 6, 50, "Output",ExpressionUUID->"17816c1e-142c-4f9d-8c2a-627aab93860e"] +Cell[237380, 6341, 2101, 60, 615, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], +Cell[239484, 6403, 802, 16, 182, "Message",ExpressionUUID->"14c1a8d9-a592-4452-a668-1fbee88fc9c8"], +Cell[240289, 6421, 801, 16, 182, "Message",ExpressionUUID->"45870665-28a1-453f-a9b5-5cf71b59b144"], +Cell[241093, 6439, 803, 16, 182, "Message",ExpressionUUID->"a160ea06-efb3-40b9-8266-df41d5c92d6a"], +Cell[241899, 6457, 664, 14, 81, "Message",ExpressionUUID->"215bfb90-5523-4e03-b9bc-4aed44d8e698"], +Cell[242566, 6473, 372, 6, 62, "Output",ExpressionUUID->"cb1450d0-52d3-40b7-aec2-27ba598dda81"] }, Open ]], Cell[CellGroupData[{ -Cell[241446, 6615, 2103, 60, 132, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], -Cell[243552, 6677, 729, 15, 64, "Message",ExpressionUUID->"6d850d59-5847-4df6-b782-5f12eba60362"], -Cell[244284, 6694, 728, 15, 64, "Message",ExpressionUUID->"e490933d-3bda-4acb-b59b-de3a56bf008e"], -Cell[245015, 6711, 732, 15, 89, "Message",ExpressionUUID->"f04c7c57-aa7b-4321-aff4-381ec830e5cf"], -Cell[245750, 6728, 589, 13, 65, "Message",ExpressionUUID->"a110e1f0-21f7-42a0-81ec-17dc53acff04"], -Cell[246342, 6743, 292, 5, 50, "Output",ExpressionUUID->"a49119d9-6344-4483-9541-8ea343b0109b"] +Cell[242975, 6484, 2103, 60, 615, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], +Cell[245081, 6546, 757, 16, 182, "Message",ExpressionUUID->"b9224712-18b9-472b-987c-b22842660e70"], +Cell[245841, 6564, 754, 16, 182, "Message",ExpressionUUID->"75bfa68c-212f-4cd7-81e5-93fb3f846036"], +Cell[246598, 6582, 756, 16, 182, "Message",ExpressionUUID->"3d167c57-33fb-4be0-bee1-f0e76ffa898b"], +Cell[247357, 6600, 617, 14, 81, "Message",ExpressionUUID->"27343148-2595-4705-98de-982646e0b736"], +Cell[247977, 6616, 318, 6, 62, "Output",ExpressionUUID->"938ae3ea-b7f2-41c9-bac7-8d3ac7dd23ef"] }, Open ]], Cell[CellGroupData[{ -Cell[246671, 6753, 2053, 55, 317, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], -Cell[248727, 6810, 20526, 386, 334, "Output",ExpressionUUID->"fbb4aba8-c808-40be-aef7-03e689c9e112"] +Cell[248332, 6627, 2053, 55, 506, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], +Cell[250388, 6684, 20552, 387, 327, "Output",ExpressionUUID->"3e2c1e59-dc11-4acb-b48b-5c2a1e2273fc"] }, Open ]], Cell[CellGroupData[{ -Cell[269290, 7201, 2144, 61, 450, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], -Cell[271437, 7264, 532, 12, 111, "Message",ExpressionUUID->"0ccd3624-3a6c-4025-9d8e-876d0de34cab"], -Cell[271972, 7278, 534, 12, 111, "Message",ExpressionUUID->"a66f833c-80e4-437b-8bf8-b4a950a1072e"], -Cell[272509, 7292, 540, 12, 147, "Message",ExpressionUUID->"9e714659-a7c0-4ca1-8761-eacb6bd5a53a"], -Cell[273052, 7306, 492, 11, 64, "Message",ExpressionUUID->"db56b3b4-c8b3-481a-94b0-2143419af947"], -Cell[273547, 7319, 22446, 417, 329, "Output",ExpressionUUID->"da5b217a-ccfb-4e34-8495-636a03776350"] +Cell[270977, 7076, 2144, 61, 627, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], +Cell[273124, 7139, 559, 13, 182, "Message",ExpressionUUID->"6053b2b4-fcb0-4399-9d63-8e910a04fe25"], +Cell[273686, 7154, 562, 13, 182, "Message",ExpressionUUID->"96d30493-0c11-438e-bb44-b15f3fd18615"], +Cell[274251, 7169, 566, 13, 182, "Message",ExpressionUUID->"0452e98e-cd08-4215-a3dc-41e98886a167"], +Cell[274820, 7184, 518, 12, 81, "Message",ExpressionUUID->"7ff5aaea-6a89-4af0-92f0-53daf49c1df7"], +Cell[275341, 7198, 22471, 418, 318, "Output",ExpressionUUID->"d7a18e4f-9fd7-4bc0-bdf5-08bd537ee705"] }, Open ]], Cell[CellGroupData[{ -Cell[296030, 7741, 2480, 70, 350, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], -Cell[298513, 7813, 9496, 223, 343, "Output",ExpressionUUID->"2ffc8e42-75af-4f94-8c10-bfc4a0772457"] +Cell[297849, 7621, 2480, 70, 677, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], +Cell[300332, 7693, 9518, 223, 334, "Output",ExpressionUUID->"c03c769e-8999-47f4-b2d9-57cb00e41bc8"] }, Open ]], Cell[CellGroupData[{ -Cell[308046, 8041, 232, 5, 44, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], -Cell[308281, 8048, 28803, 549, 329, "Output",ExpressionUUID->"bff43359-539a-4d3e-8ae6-1c6cf8d45644"] +Cell[309887, 7921, 232, 5, 55, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], +Cell[310122, 7928, 28825, 549, 318, "Output",ExpressionUUID->"b3b4c257-cb80-4495-8d96-ca0eabf8448d"] }, Open ]], Cell[CellGroupData[{ -Cell[337121, 8602, 237, 7, 72, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], -Cell[337361, 8611, 195, 3, 50, "Output",ExpressionUUID->"ae80cbb2-3d41-4950-803e-6fceadb0b0cb"] +Cell[338984, 8482, 237, 7, 90, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], +Cell[339224, 8491, 220, 4, 62, "Output",ExpressionUUID->"f47e164a-02ab-418e-8ae5-3b2af49f595e"] }, Open ]], Cell[CellGroupData[{ -Cell[337593, 8619, 1837, 53, 367, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], -Cell[339433, 8674, 540, 12, 147, "Message",ExpressionUUID->"523bf3d7-4fef-4c86-be01-6f7f30712630"], -Cell[339976, 8688, 545, 12, 147, "Message",ExpressionUUID->"30a7366b-222b-4b26-a808-7ee63d33994a"], -Cell[340524, 8702, 635, 14, 89, "Message",ExpressionUUID->"7588215e-3eae-4afb-8dc8-129b29b669c7"], -Cell[341162, 8718, 492, 11, 64, "Message",ExpressionUUID->"9af0bc8d-ae70-48f8-a9b2-7db03a938698"], -Cell[341657, 8731, 22106, 411, 336, "Output",ExpressionUUID->"46a4a630-7a13-46e2-97fd-6f99f1bf1e11"] +Cell[339481, 8500, 1972, 56, 684, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], +Cell[341456, 8558, 567, 13, 182, "Message",ExpressionUUID->"5a4f8082-43cb-4ff2-98e4-5be5f531ac3d"], +Cell[342026, 8573, 570, 13, 182, "Message",ExpressionUUID->"b5de9be2-b84c-4f79-8f94-75b89b105264"], +Cell[342599, 8588, 664, 15, 182, "Message",ExpressionUUID->"296b1916-3ef9-4ce0-a19e-fca6d8952b37"], +Cell[343266, 8605, 519, 12, 81, "Message",ExpressionUUID->"3f8edee0-1ca0-4e8f-be37-4ecb38103aba"], +Cell[343788, 8619, 22151, 412, 328, "Output",ExpressionUUID->"60eef477-fbf6-4088-9ca6-c38db98eafb7"] }, Open ]], Cell[CellGroupData[{ -Cell[363800, 9147, 1616, 48, 247, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], -Cell[365419, 9197, 630, 13, 89, "Message",ExpressionUUID->"cd830cde-30cd-4a13-bf04-b633de106129"], -Cell[366052, 9212, 633, 13, 89, "Message",ExpressionUUID->"8c59ad0e-95f0-4862-8d26-7a6c32f100c2"], -Cell[366688, 9227, 631, 13, 89, "Message",ExpressionUUID->"4c38b059-b1f8-42d1-9e6b-f8b1b0368b6d"], -Cell[367322, 9242, 490, 11, 64, "Message",ExpressionUUID->"116a3492-777c-4452-b405-af3cbf9af57c"], -Cell[367815, 9255, 195, 3, 50, "Output",ExpressionUUID->"e686dcca-242b-4bb0-847f-b6eb51abf131"] +Cell[365976, 9036, 1750, 52, 526, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], +Cell[367729, 9090, 658, 14, 182, "Message",ExpressionUUID->"e2fbd359-d692-4d4c-8451-274e00f6d2bf"], +Cell[368390, 9106, 657, 14, 182, "Message",ExpressionUUID->"e2db3dbb-af1b-461b-953a-045e0281d7f4"], +Cell[369050, 9122, 659, 14, 182, "Message",ExpressionUUID->"feaabaa6-6185-47a3-bc01-8167b5fccf00"], +Cell[369712, 9138, 520, 12, 81, "Message",ExpressionUUID->"8a8ff505-bfae-4bc2-ab5b-a2cc7bf65e64"], +Cell[370235, 9152, 220, 4, 62, "Output",ExpressionUUID->"e29a7149-48b8-469c-a13c-a52c1956105b"] }, Open ]], Cell[CellGroupData[{ -Cell[368047, 9263, 2272, 64, 501, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], -Cell[370322, 9329, 632, 13, 89, "Message",ExpressionUUID->"6f11f919-3f2c-42c5-a014-4b541822f38d"], -Cell[370957, 9344, 631, 13, 89, "Message",ExpressionUUID->"00d447eb-8191-4726-9d5c-8dd00ae2d659"], -Cell[371591, 9359, 635, 13, 89, "Message",ExpressionUUID->"70b25088-aaa0-4381-8e5a-f56f590dea57"], -Cell[372229, 9374, 492, 11, 64, "Message",ExpressionUUID->"f4123f41-f473-4795-aa18-a138851274b2"], -Cell[372724, 9387, 195, 3, 50, "Output",ExpressionUUID->"88a10dc8-1d55-4360-aadc-ded297b63e0a"] +Cell[370492, 9161, 2272, 64, 731, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], +Cell[372767, 9227, 658, 14, 182, "Message",ExpressionUUID->"56a9f6d7-d2ff-44ac-b4f6-2cbf21bef4dc"], +Cell[373428, 9243, 657, 14, 182, "Message",ExpressionUUID->"4a2f4be9-848c-4806-9010-5d8557263afe"], +Cell[374088, 9259, 659, 14, 182, "Message",ExpressionUUID->"2d7009d3-81f0-486d-8b1e-1b08adb86606"], +Cell[374750, 9275, 522, 12, 81, "Message",ExpressionUUID->"b700629c-32a9-41fb-86c8-fc475c613573"], +Cell[375275, 9289, 222, 4, 62, "Output",ExpressionUUID->"96b9ad36-9e2f-4c1c-b5c5-e08eee5cba7c"] }, Open ]], Cell[CellGroupData[{ -Cell[372956, 9395, 2233, 63, 501, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], -Cell[375192, 9460, 629, 13, 89, "Message",ExpressionUUID->"6d4b62f5-bfdd-4304-89b3-a101a0c9b99b"], -Cell[375824, 9475, 627, 13, 89, "Message",ExpressionUUID->"00239eef-53c8-49ea-ba28-968720ec27d5"], -Cell[376454, 9490, 629, 13, 89, "Message",ExpressionUUID->"e37ef50b-2d4f-4a58-8f0c-9f07760a85b9"], -Cell[377086, 9505, 489, 11, 64, "Message",ExpressionUUID->"515ee46f-9901-48e3-b92e-e7ac0235637d"], -Cell[377578, 9518, 195, 3, 50, "Output",ExpressionUUID->"dbff754e-541c-4d15-9fa6-0b7533437680"] +Cell[375534, 9298, 2233, 63, 692, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], +Cell[377770, 9363, 655, 14, 182, "Message",ExpressionUUID->"256c2919-c0f3-4935-bb5f-656bbe8712b3"], +Cell[378428, 9379, 654, 14, 182, "Message",ExpressionUUID->"ec59e2bf-3b30-4096-930c-cb6e1618061e"], +Cell[379085, 9395, 656, 14, 182, "Message",ExpressionUUID->"73d10fdb-4240-45d4-b03a-768be2e63ae5"], +Cell[379744, 9411, 519, 12, 81, "Message",ExpressionUUID->"f602cf25-4067-4fc0-99f7-06a1d91628f2"], +Cell[380266, 9425, 222, 4, 62, "Output",ExpressionUUID->"07f64aca-a0aa-4eb8-9d64-b5d5e7a55cc9"] }, Open ]], Cell[CellGroupData[{ -Cell[377810, 9526, 2235, 63, 501, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], -Cell[380048, 9591, 632, 13, 89, "Message",ExpressionUUID->"18476870-01fe-4ced-8de1-ab3481dfd2bd"], -Cell[380683, 9606, 629, 13, 89, "Message",ExpressionUUID->"ac74d7aa-d890-46f4-86a5-2a1ce90bfb40"], -Cell[381315, 9621, 631, 13, 89, "Message",ExpressionUUID->"4c2720e8-e70f-4d05-bb47-b74a7a4ae775"], -Cell[381949, 9636, 490, 11, 64, "Message",ExpressionUUID->"5cdf37d9-cd3f-4578-8a46-00faed6545e2"], -Cell[382442, 9649, 193, 3, 50, "Output",ExpressionUUID->"6a49af0a-886e-463a-8c6d-0cc39f501c4b"] +Cell[380525, 9434, 2235, 63, 692, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], +Cell[382763, 9499, 660, 14, 182, "Message",ExpressionUUID->"9a0bbdea-6e0f-4733-8553-5cd5158d4496"], +Cell[383426, 9515, 657, 14, 182, "Message",ExpressionUUID->"8b637c97-58c1-4ba7-92b6-4709e7b1ed09"], +Cell[384086, 9531, 659, 14, 182, "Message",ExpressionUUID->"fe9636d4-83d0-4045-8d14-40fa55e8dd08"], +Cell[384748, 9547, 522, 12, 81, "Message",ExpressionUUID->"9aab5060-8365-4f3b-a16f-e836f3e94a7e"], +Cell[385273, 9561, 218, 4, 62, "Output",ExpressionUUID->"3c5f3f59-601d-42a3-95a8-e8d145f40cb6"] }, Open ]], Cell[CellGroupData[{ -Cell[382672, 9657, 236, 6, 71, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], -Cell[382911, 9665, 194, 3, 50, "Output",ExpressionUUID->"84984732-767e-4840-80da-d63b6f097d5e"] +Cell[385528, 9570, 236, 6, 88, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], +Cell[385767, 9578, 219, 4, 62, "Output",ExpressionUUID->"e3c0cedb-b8f4-43a1-b1ad-e813eda03673"] }, Open ]], -Cell[383120, 9671, 273, 6, 44, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], +Cell[386001, 9585, 273, 6, 109, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ -Cell[383418, 9681, 558, 19, 79, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], -Cell[383979, 9702, 195, 3, 50, "Output",ExpressionUUID->"a0973890-dd1e-41a9-be2a-80bd9f54cef5"] +Cell[386299, 9595, 558, 19, 100, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], +Cell[386860, 9616, 220, 4, 62, "Output",ExpressionUUID->"c5e50e35-ed6c-422d-8f0e-079b1d3f43e1"] }, Open ]], Cell[CellGroupData[{ -Cell[384211, 9710, 170, 5, 84, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], -Cell[384384, 9717, 194, 3, 50, "Output",ExpressionUUID->"6b2aaa76-5a5d-484a-85c8-c7115cfd59d9"] +Cell[387117, 9625, 170, 5, 105, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], +Cell[387290, 9632, 219, 4, 62, "Output",ExpressionUUID->"86f71a65-56a1-47cc-9034-db8af67dfe0a"] }, Open ]], Cell[CellGroupData[{ -Cell[384615, 9725, 181, 5, 65, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], -Cell[384799, 9732, 196, 3, 50, "Output",ExpressionUUID->"40ee655b-b49b-4737-afd2-d04cd053e244"] +Cell[387546, 9641, 181, 5, 81, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], +Cell[387730, 9648, 221, 4, 62, "Output",ExpressionUUID->"a7caf365-b9b6-4ec8-83a6-e965d5a204c9"] }, Open ]], Cell[CellGroupData[{ -Cell[385032, 9740, 6055, 185, 1229, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], -Cell[391090, 9927, 194, 3, 50, "Output",ExpressionUUID->"b206bf11-fec3-4fa1-ac22-1e651888607a"] +Cell[387988, 9657, 6055, 185, 2152, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], +Cell[394046, 9844, 221, 4, 62, "Output",ExpressionUUID->"a5818948-5fa4-402a-b022-b7ce14339bfd"] }, Open ]], Cell[CellGroupData[{ -Cell[391321, 9935, 368, 9, 63, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], -Cell[391692, 9946, 192, 3, 50, "Output",ExpressionUUID->"d2fd175c-b6a7-4bfa-b44b-b7cb6dd25c9a"] +Cell[394304, 9853, 368, 9, 79, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], +Cell[394675, 9864, 217, 4, 62, "Output",ExpressionUUID->"87d7995e-e18e-47c3-b866-1809141ea830"] }, Open ]], Cell[CellGroupData[{ -Cell[391921, 9954, 6122, 187, 1292, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], -Cell[398046, 10143, 197, 3, 50, "Output",ExpressionUUID->"cd4f89d9-610b-47f6-8c25-21125d2b2684"] +Cell[394929, 9873, 6122, 187, 2152, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], +Cell[401054, 10062, 222, 4, 62, "Output",ExpressionUUID->"534b8edf-c00f-4c5d-9148-9e30208d3a8b"] }, Open ]], Cell[CellGroupData[{ -Cell[398280, 10151, 368, 9, 63, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], -Cell[398651, 10162, 192, 3, 50, "Output",ExpressionUUID->"810d9fdd-098a-45e6-9e3b-c1b96d949ad6"] +Cell[401313, 10071, 368, 9, 79, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], +Cell[401684, 10082, 217, 4, 62, "Output",ExpressionUUID->"a350efff-1535-4d6a-ab31-217c5b4200a7"] }, Open ]], Cell[CellGroupData[{ -Cell[398880, 10170, 2663, 88, 558, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], -Cell[401546, 10260, 196, 3, 50, "Output",ExpressionUUID->"c96d800b-a62a-4ff9-a858-59e04645f870"] +Cell[401938, 10091, 2663, 88, 1067, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], +Cell[404604, 10181, 221, 4, 62, "Output",ExpressionUUID->"6b948b2a-f064-4578-8a91-4ccb750452cd"] }, Open ]], Cell[CellGroupData[{ -Cell[401779, 10268, 2603, 85, 558, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], -Cell[404385, 10355, 193, 3, 50, "Output",ExpressionUUID->"72475dbf-09a4-4359-ac04-16d599315f3a"] +Cell[404862, 10190, 2603, 85, 967, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], +Cell[407468, 10277, 217, 4, 62, "Output",ExpressionUUID->"466ddcc4-2db4-41f4-8b5f-4fec3b1a8842"] }, Open ]], Cell[CellGroupData[{ -Cell[404615, 10363, 3712, 118, 781, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], -Cell[408330, 10483, 195, 3, 50, "Output",ExpressionUUID->"144f2c45-1a9e-4e46-a04a-dba09c69c10e"] +Cell[407722, 10286, 3712, 118, 1454, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], +Cell[411437, 10406, 222, 4, 62, "Output",ExpressionUUID->"80c5b8eb-267b-480b-b1c8-c59240a44878"] }, Open ]], Cell[CellGroupData[{ -Cell[408562, 10491, 2101, 60, 409, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], -Cell[410666, 10553, 634, 13, 89, "Message",ExpressionUUID->"97eaefb7-fbb6-487c-a554-1cecfa909e9b"], -Cell[411303, 10568, 633, 13, 89, "Message",ExpressionUUID->"afa4e9ec-5c72-40bd-afa8-80abebe01c48"], -Cell[411939, 10583, 633, 13, 89, "Message",ExpressionUUID->"961ee725-5ff5-4162-a7a8-67ae6254779e"], -Cell[412575, 10598, 492, 11, 64, "Message",ExpressionUUID->"ae87376e-a859-42cd-84ba-de6f46e2e2ad"], -Cell[413070, 10611, 195, 3, 50, "Output",ExpressionUUID->"e3de8c48-cfaf-4aa6-acaf-387fcdbba247"] +Cell[411696, 10415, 2101, 60, 615, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], +Cell[413800, 10477, 664, 15, 182, "Message",ExpressionUUID->"bed6942e-f3aa-4df1-a4be-67308cb50dce"], +Cell[414467, 10494, 663, 15, 182, "Message",ExpressionUUID->"ce7ffa43-51ae-401a-a7b5-7c0249f23437"], +Cell[415133, 10511, 659, 14, 182, "Message",ExpressionUUID->"4e92f56c-54f4-4e31-afee-134e1bb8492f"], +Cell[415795, 10527, 520, 12, 81, "Message",ExpressionUUID->"3ef914c4-bf8f-4483-a4bc-8b575820e2c0"], +Cell[416318, 10541, 219, 4, 62, "Output",ExpressionUUID->"aa518587-d5ac-4dad-bb29-4a98edf38268"] }, Open ]], Cell[CellGroupData[{ -Cell[413302, 10619, 2103, 60, 409, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], -Cell[415408, 10681, 634, 13, 89, "Message",ExpressionUUID->"ae570001-9486-4742-ab72-3bfe981e7410"], -Cell[416045, 10696, 633, 13, 89, "Message",ExpressionUUID->"97bf86aa-1936-4b37-b717-04c29f1b1f96"], -Cell[416681, 10711, 635, 13, 89, "Message",ExpressionUUID->"1bf96efa-2a14-4101-81cc-09277784ffad"], -Cell[417319, 10726, 492, 11, 64, "Message",ExpressionUUID->"ffeaf6b0-92af-432b-9acc-7a06eefa6fa9"], -Cell[417814, 10739, 192, 3, 50, "Output",ExpressionUUID->"49f94328-8713-479c-8267-ecb6a8c31755"] +Cell[416574, 10550, 2103, 60, 615, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], +Cell[418680, 10612, 664, 15, 182, "Message",ExpressionUUID->"8c6c54ca-c85e-48c3-854e-52afc379d579"], +Cell[419347, 10629, 663, 15, 182, "Message",ExpressionUUID->"cc4989dc-d416-4d4e-85d3-f1e90f90ae4f"], +Cell[420013, 10646, 659, 14, 182, "Message",ExpressionUUID->"8d84a4d5-e506-424c-b9e7-58ab7ef65f14"], +Cell[420675, 10662, 520, 12, 81, "Message",ExpressionUUID->"e460745e-bdc7-48e5-b175-a6312f966871"], +Cell[421198, 10676, 217, 4, 62, "Output",ExpressionUUID->"3d300280-58b9-4aa6-8ba2-2c3f31d5ae5d"] }, Open ]], Cell[CellGroupData[{ -Cell[418043, 10747, 2053, 55, 317, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], -Cell[420099, 10804, 20319, 383, 334, "Output",ExpressionUUID->"627a9fac-5273-4c5f-9972-fe0a019a7489"] +Cell[421452, 10685, 2053, 55, 506, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], +Cell[423508, 10742, 20343, 384, 327, "Output",ExpressionUUID->"e6bd7a26-2842-4280-917b-ad802ab46faa"] }, Open ]], Cell[CellGroupData[{ -Cell[440455, 11192, 2168, 61, 450, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], -Cell[442626, 11255, 532, 12, 111, "Message",ExpressionUUID->"eed9319d-61c5-4cbc-8abb-ef5e730d3bd6"], -Cell[443161, 11269, 535, 12, 111, "Message",ExpressionUUID->"77944505-cc3c-4111-909f-e1d2d66779ac"], -Cell[443699, 11283, 537, 12, 147, "Message",ExpressionUUID->"3701580d-d694-4225-9e16-a3fb17132f5a"], -Cell[444239, 11297, 490, 11, 64, "Message",ExpressionUUID->"c275d6ea-0331-485b-9d71-2a67e93f38ed"], -Cell[444732, 11310, 22244, 411, 329, "Output",ExpressionUUID->"f67dacfc-21a3-4ab4-b77d-d83e95d54466"] +Cell[443888, 11131, 2168, 61, 627, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], +Cell[446059, 11194, 560, 13, 182, "Message",ExpressionUUID->"134a0099-4350-4aac-a5ec-916204d28533"], +Cell[446622, 11209, 563, 13, 182, "Message",ExpressionUUID->"79feb1e2-6dc8-4306-b020-fa49a96cf67f"], +Cell[447188, 11224, 565, 13, 182, "Message",ExpressionUUID->"c51a7460-0235-4eed-bc00-26e39a90cd5e"], +Cell[447756, 11239, 518, 12, 81, "Message",ExpressionUUID->"c7d3d193-99bd-41f6-ac93-cb8d007a5c9a"], +Cell[448277, 11253, 22271, 412, 318, "Output",ExpressionUUID->"c7cadff6-0021-4799-84a0-40eb2e413010"] }, Open ]], -Cell[466991, 11724, 200, 4, 44, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], +Cell[470563, 11668, 200, 4, 109, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], Cell[CellGroupData[{ -Cell[467216, 11732, 232, 5, 44, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], -Cell[467451, 11739, 28606, 543, 329, "Output",ExpressionUUID->"457c8c45-f873-46bf-bf6b-3bd6aae99cc4"] +Cell[470788, 11676, 232, 5, 55, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], +Cell[471023, 11683, 28630, 543, 318, "Output",ExpressionUUID->"1c448605-da8b-4e01-9993-58dc6366eae7"] }, Open ]], Cell[CellGroupData[{ -Cell[496094, 12287, 1616, 48, 247, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], -Cell[497713, 12337, 634, 13, 89, "Message",ExpressionUUID->"971319c3-0053-4e5e-8034-1047fb97790b"], -Cell[498350, 12352, 632, 13, 89, "Message",ExpressionUUID->"09373d9b-464d-4cf1-859d-7e96037ead50"], -Cell[498985, 12367, 633, 13, 89, "Message",ExpressionUUID->"0ac54353-e64c-4492-aa1c-6df9386ed2b0"], -Cell[499621, 12382, 492, 11, 64, "Message",ExpressionUUID->"b4a79e1c-1b97-4ac3-bc84-beffcf2c7bd2"], -Cell[500116, 12395, 193, 3, 50, "Output",ExpressionUUID->"6922aa63-f744-4f85-9f67-b6d9e2babe8b"] +Cell[499690, 12231, 1750, 52, 526, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], +Cell[501443, 12285, 660, 14, 182, "Message",ExpressionUUID->"7df0cdf9-83e7-4901-8004-9472d534fe2b"], +Cell[502106, 12301, 660, 14, 182, "Message",ExpressionUUID->"951a47de-8893-4cf2-8ea9-da46e9151957"], +Cell[502769, 12317, 661, 14, 182, "Message",ExpressionUUID->"eab1ca7a-f475-457e-ac87-2d996fecc0f5"], +Cell[503433, 12333, 522, 12, 81, "Message",ExpressionUUID->"e8117c3a-a431-40ad-aec6-49f277a0729f"], +Cell[503958, 12347, 218, 4, 62, "Output",ExpressionUUID->"45d34b97-152e-4b4d-a133-5ae0a5eee778"] }, Open ]], Cell[CellGroupData[{ -Cell[500346, 12403, 2270, 64, 501, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], -Cell[502619, 12469, 634, 13, 89, "Message",ExpressionUUID->"b7477e27-823f-4151-9f0a-a4362dd5109f"], -Cell[503256, 12484, 633, 13, 89, "Message",ExpressionUUID->"0203a43e-977c-4b78-a3b8-358a05ca00d2"], -Cell[503892, 12499, 633, 13, 89, "Message",ExpressionUUID->"25b614dd-4adc-4e6c-89df-1b7fd70fa139"], -Cell[504528, 12514, 492, 11, 64, "Message",ExpressionUUID->"406e20aa-a59a-429c-a049-6a6bdcc41eb1"], -Cell[505023, 12527, 195, 3, 50, "Output",ExpressionUUID->"e379c77e-c71f-4ca3-ae18-348fe8ccc0e6"] +Cell[504213, 12356, 2270, 64, 731, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], +Cell[506486, 12422, 664, 15, 182, "Message",ExpressionUUID->"bc412945-dd28-460e-91c4-767f018f386e"], +Cell[507153, 12439, 663, 15, 182, "Message",ExpressionUUID->"5fa2d976-5d66-4e98-a8fc-a2309092f720"], +Cell[507819, 12456, 659, 14, 182, "Message",ExpressionUUID->"74558083-aab5-4a20-b83d-655d51747757"], +Cell[508481, 12472, 522, 12, 81, "Message",ExpressionUUID->"026627d2-8a91-44e8-a368-239accad1f36"], +Cell[509006, 12486, 222, 4, 62, "Output",ExpressionUUID->"23164286-3f66-4dd9-ba84-7bec2ac06399"] }, Open ]], Cell[CellGroupData[{ -Cell[505255, 12535, 2233, 63, 501, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], -Cell[507491, 12600, 632, 13, 89, "Message",ExpressionUUID->"4ee63082-8ed4-46ef-b127-88703042a56f"], -Cell[508126, 12615, 633, 13, 89, "Message",ExpressionUUID->"7814faba-a713-482b-9354-9113a9cb2dcd"], -Cell[508762, 12630, 631, 13, 89, "Message",ExpressionUUID->"66e21697-54eb-4bab-9951-22a01afda078"], -Cell[509396, 12645, 490, 11, 64, "Message",ExpressionUUID->"3c35abb4-8c30-47f7-b5bc-9527e2121518"], -Cell[509889, 12658, 195, 3, 50, "Output",ExpressionUUID->"31549e16-ce64-4a48-af5e-4f44840b5999"] +Cell[509265, 12495, 2233, 63, 692, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], +Cell[511501, 12560, 662, 15, 182, "Message",ExpressionUUID->"62ae9c05-beeb-4fb4-8120-5f98a5c19998"], +Cell[512166, 12577, 663, 15, 182, "Message",ExpressionUUID->"4c42ec6d-dec0-4a21-8d3d-15e39153bf2d"], +Cell[512832, 12594, 657, 14, 182, "Message",ExpressionUUID->"5d0ad483-ec7f-4115-95c9-fb374d50e80a"], +Cell[513492, 12610, 520, 12, 81, "Message",ExpressionUUID->"a2d6755f-2c8c-4f55-a94f-d2254fa770c0"], +Cell[514015, 12624, 220, 4, 62, "Output",ExpressionUUID->"fb0b0c0f-ad19-48e1-ac8c-921a51cdc9fa"] }, Open ]], Cell[CellGroupData[{ -Cell[510121, 12666, 2233, 63, 501, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], -Cell[512357, 12731, 634, 13, 89, "Message",ExpressionUUID->"7b79ebea-6de7-4543-adf4-29203e02bf85"], -Cell[512994, 12746, 633, 13, 89, "Message",ExpressionUUID->"5e552997-1a98-42a0-bab8-7042b31b2fba"], -Cell[513630, 12761, 633, 13, 89, "Message",ExpressionUUID->"7e11e881-3102-4e0d-b63b-2b37aa5ef979"], -Cell[514266, 12776, 492, 11, 64, "Message",ExpressionUUID->"3545068b-5da2-41d8-a24f-4dcc30c19490"], -Cell[514761, 12789, 195, 3, 50, "Output",ExpressionUUID->"20029165-f1c4-4c30-8543-d84631697c54"] +Cell[514272, 12633, 2233, 63, 692, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], +Cell[516508, 12698, 664, 15, 182, "Message",ExpressionUUID->"dfb256fe-0084-43f4-892f-93e3e185bf5a"], +Cell[517175, 12715, 665, 15, 182, "Message",ExpressionUUID->"5d9bd011-bd70-45a0-bd5c-b5333df0c7a9"], +Cell[517843, 12732, 661, 14, 182, "Message",ExpressionUUID->"2ecb9ee8-0ade-455c-a129-5ed74f510a97"], +Cell[518507, 12748, 522, 12, 81, "Message",ExpressionUUID->"b7eb295c-03ee-4828-8583-5744dac78d43"], +Cell[519032, 12762, 220, 4, 62, "Output",ExpressionUUID->"1db41887-be06-43a3-97d0-9a8c1bad76d3"] }, Open ]], Cell[CellGroupData[{ -Cell[514993, 12797, 236, 6, 71, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], -Cell[515232, 12805, 197, 3, 50, "Output",ExpressionUUID->"b545ecb4-0ca2-4015-aee4-b7625c8c7028"] +Cell[519289, 12771, 236, 6, 88, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], +Cell[519528, 12779, 222, 4, 62, "Output",ExpressionUUID->"f4d9ddff-b455-4427-bf3a-1d16a11f75b0"] }, Open ]], -Cell[515444, 12811, 271, 6, 44, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], +Cell[519765, 12786, 271, 6, 109, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ -Cell[515740, 12821, 558, 19, 79, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], -Cell[516301, 12842, 195, 3, 50, "Output",ExpressionUUID->"eb3107b4-91f3-4eb9-9905-886d4c1ef052"] +Cell[520061, 12796, 558, 19, 100, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], +Cell[520622, 12817, 220, 4, 62, "Output",ExpressionUUID->"01666d41-e6a3-454f-9d37-bbc6dab4d978"] }, Open ]], Cell[CellGroupData[{ -Cell[516533, 12850, 170, 5, 84, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], -Cell[516706, 12857, 195, 3, 50, "Output",ExpressionUUID->"fdf9e2db-b4e9-4a0c-a466-4c1ee8e0cc43"] +Cell[520879, 12826, 170, 5, 105, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], +Cell[521052, 12833, 220, 4, 62, "Output",ExpressionUUID->"a4d94613-19c6-4ecc-b291-87d376eb52d6"] }, Open ]], Cell[CellGroupData[{ -Cell[516938, 12865, 181, 5, 65, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], -Cell[517122, 12872, 191, 3, 50, "Output",ExpressionUUID->"14acd0c7-7060-40e2-8545-9dcfd5ed780a"] +Cell[521309, 12842, 181, 5, 81, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], +Cell[521493, 12849, 216, 4, 62, "Output",ExpressionUUID->"85d29ef7-bdf4-49e0-afa2-da8b3e9b21b1"] }, Open ]], Cell[CellGroupData[{ -Cell[517350, 12880, 6055, 185, 1229, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], -Cell[523408, 13067, 197, 3, 50, "Output",ExpressionUUID->"ca40508f-744d-4f11-9faa-f1352dc7ba69"] +Cell[521746, 12858, 6055, 185, 2152, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], +Cell[527804, 13045, 222, 4, 62, "Output",ExpressionUUID->"256b95b2-fea9-4011-b25d-4cd39b8007a6"] }, Open ]], Cell[CellGroupData[{ -Cell[523642, 13075, 368, 9, 63, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], -Cell[524013, 13086, 193, 3, 50, "Output",ExpressionUUID->"94302bed-41e6-4906-9080-95361c813892"] +Cell[528063, 13054, 368, 9, 79, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], +Cell[528434, 13065, 220, 4, 62, "Output",ExpressionUUID->"27447e5e-1569-4c3e-80d0-33501cecff86"] }, Open ]], Cell[CellGroupData[{ -Cell[524243, 13094, 6122, 187, 1292, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], -Cell[530368, 13283, 199, 3, 50, "Output",ExpressionUUID->"99eaea07-31bd-4b93-929f-d2698fdc6e40"] +Cell[528691, 13074, 6122, 187, 2152, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], +Cell[534816, 13263, 224, 4, 62, "Output",ExpressionUUID->"f6174d62-2633-4315-816a-dd6fc828269a"] }, Open ]], Cell[CellGroupData[{ -Cell[530604, 13291, 368, 9, 63, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], -Cell[530975, 13302, 194, 3, 50, "Output",ExpressionUUID->"843893ab-8424-47e7-9025-95188c1c8ebc"] +Cell[535077, 13272, 368, 9, 79, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], +Cell[535448, 13283, 219, 4, 62, "Output",ExpressionUUID->"e437148b-8d9c-4bc4-b17a-e6c4ddf77def"] }, Open ]], Cell[CellGroupData[{ -Cell[531206, 13310, 2663, 88, 558, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], -Cell[533872, 13400, 196, 3, 50, "Output",ExpressionUUID->"4f84924d-5589-453c-9fba-d0fbc96b8441"] +Cell[535704, 13292, 2663, 88, 1067, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], +Cell[538370, 13382, 221, 4, 62, "Output",ExpressionUUID->"b930a6d6-3452-4729-955e-73f1f2d2827a"] }, Open ]], Cell[CellGroupData[{ -Cell[534105, 13408, 2603, 85, 558, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], -Cell[536711, 13495, 193, 3, 50, "Output",ExpressionUUID->"e9512e21-91c2-4378-8944-9ccc6e29bead"] +Cell[538628, 13391, 2603, 85, 967, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], +Cell[541234, 13478, 218, 4, 62, "Output",ExpressionUUID->"3262d2c0-1fb7-4964-af6e-231c5c0a84d0"] }, Open ]], Cell[CellGroupData[{ -Cell[536941, 13503, 3712, 118, 781, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], -Cell[540656, 13623, 195, 3, 50, "Output",ExpressionUUID->"1102993f-0235-4dad-b940-e9dba848d008"] +Cell[541489, 13487, 3712, 118, 1454, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], +Cell[545204, 13607, 220, 4, 62, "Output",ExpressionUUID->"53e85c36-1a24-4f54-ab3e-dab8a69ad2cb"] }, Open ]], Cell[CellGroupData[{ -Cell[540888, 13631, 2101, 60, 409, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], -Cell[542992, 13693, 635, 13, 89, "Message",ExpressionUUID->"908716b0-dd94-4bd7-9b80-375f76160171"], -Cell[543630, 13708, 633, 13, 89, "Message",ExpressionUUID->"379cc3a6-f4e7-4926-9677-e72225d90d6e"], -Cell[544266, 13723, 635, 13, 89, "Message",ExpressionUUID->"f756744c-125d-4ba7-9074-1ca729b9ed72"], -Cell[544904, 13738, 494, 11, 64, "Message",ExpressionUUID->"a33bc922-5ecb-48ae-8cf9-1f456f118836"], -Cell[545401, 13751, 193, 3, 50, "Output",ExpressionUUID->"abac4ef5-74c9-4d5b-8704-5e100aef2432"] +Cell[545461, 13616, 2101, 60, 615, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], +Cell[547565, 13678, 663, 14, 182, "Message",ExpressionUUID->"6013fafe-8cdd-4793-8178-3ac16722b9b9"], +Cell[548231, 13694, 659, 14, 182, "Message",ExpressionUUID->"4ea36b9e-fcf0-4be1-947d-16165cc4c460"], +Cell[548893, 13710, 661, 14, 182, "Message",ExpressionUUID->"18ae5be6-6754-44f4-b7c8-023d675708c6"], +Cell[549557, 13726, 522, 12, 81, "Message",ExpressionUUID->"ffacb075-aa9d-43c2-91b0-f6240f9a434a"], +Cell[550082, 13740, 218, 4, 62, "Output",ExpressionUUID->"5215bc71-dad7-4d88-8f0c-d7925530984b"] }, Open ]], Cell[CellGroupData[{ -Cell[545631, 13759, 2103, 60, 409, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], -Cell[547737, 13821, 635, 13, 89, "Message",ExpressionUUID->"3d26a09a-94a6-4cd1-bb00-22ad19337da2"], -Cell[548375, 13836, 631, 13, 89, "Message",ExpressionUUID->"2d41734b-a27c-40ba-9783-663d685041a1"], -Cell[549009, 13851, 633, 13, 89, "Message",ExpressionUUID->"09717490-405a-4c8b-b481-ea8aff1fc7a3"], -Cell[549645, 13866, 492, 11, 64, "Message",ExpressionUUID->"4ca60dc3-a9a4-4a44-a4e3-278683f8ffc1"], -Cell[550140, 13879, 195, 3, 50, "Output",ExpressionUUID->"58954f68-cf53-461e-af51-ddda6e4e1531"] +Cell[550337, 13749, 2103, 60, 615, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], +Cell[552443, 13811, 661, 14, 182, "Message",ExpressionUUID->"a30ef28c-d5e6-43c4-a583-647bf74daf9f"], +Cell[553107, 13827, 659, 14, 182, "Message",ExpressionUUID->"b21852f7-a77d-488c-9aca-f14528852f6a"], +Cell[553769, 13843, 661, 14, 182, "Message",ExpressionUUID->"e553eedd-f3ed-455e-a33e-156d7ddf5f68"], +Cell[554433, 13859, 524, 12, 81, "Message",ExpressionUUID->"04f480a4-82c9-48ef-b37a-0d279821271f"], +Cell[554960, 13873, 220, 4, 62, "Output",ExpressionUUID->"3ea1796b-599f-42c1-abab-0a33aade79fa"] }, Open ]], Cell[CellGroupData[{ -Cell[550372, 13887, 2053, 55, 317, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], -Cell[552428, 13944, 20403, 383, 336, "Output",ExpressionUUID->"cf873716-f744-419e-b53b-2721b5da28dd"] +Cell[555217, 13882, 2053, 55, 506, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], +Cell[557273, 13939, 20428, 384, 327, "Output",ExpressionUUID->"02091f19-6c90-4944-ad79-4035934a3341"] }, Open ]], Cell[CellGroupData[{ -Cell[572868, 14332, 2168, 61, 450, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], -Cell[575039, 14395, 532, 12, 111, "Message",ExpressionUUID->"103c4703-42b8-4e19-89c7-e15cda907818"], -Cell[575574, 14409, 534, 12, 111, "Message",ExpressionUUID->"378289be-f5fd-421c-86f0-8094a95c0f95"], -Cell[576111, 14423, 540, 12, 147, "Message",ExpressionUUID->"d5911927-b752-49df-805a-1edb8911e218"], -Cell[576654, 14437, 489, 11, 64, "Message",ExpressionUUID->"ef588db9-db91-49da-a0a8-88995a271dc5"], -Cell[577146, 14450, 21872, 405, 333, "Output",ExpressionUUID->"f62d5a83-23ae-4211-afa5-a6b95d786d46"] +Cell[577738, 14328, 2168, 61, 627, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], +Cell[579909, 14391, 560, 13, 182, "Message",ExpressionUUID->"eccd5f58-c3c9-4c9a-b641-89b0798e7dfd"], +Cell[580472, 14406, 562, 13, 182, "Message",ExpressionUUID->"436058e2-67f5-46a3-945a-24f33b405edb"], +Cell[581037, 14421, 568, 13, 182, "Message",ExpressionUUID->"1ea2d794-4d91-4084-9e03-e17ff74588b4"], +Cell[581608, 14436, 518, 12, 81, "Message",ExpressionUUID->"93b24832-4249-4b75-a8fa-91b646073000"], +Cell[582129, 14450, 21897, 406, 325, "Output",ExpressionUUID->"1e5057e2-131f-4b5b-995a-014826c134c1"] }, Open ]], -Cell[599033, 14858, 207, 4, 44, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], +Cell[604041, 14859, 207, 4, 109, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], Cell[CellGroupData[{ -Cell[599265, 14866, 230, 5, 44, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], -Cell[599498, 14873, 28234, 537, 333, "Output",ExpressionUUID->"8578460c-b5bf-4de8-9652-aa370e0eb0fc"] +Cell[604273, 14867, 230, 5, 55, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], +Cell[604506, 14874, 28256, 537, 325, "Output",ExpressionUUID->"219442d2-df11-4e84-92cd-486f2f162c08"] }, Open ]], Cell[CellGroupData[{ -Cell[627769, 15415, 1616, 48, 247, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], -Cell[629388, 15465, 631, 13, 89, "Message",ExpressionUUID->"d7a81420-7cb3-464a-a10e-a6f5b5944f65"], -Cell[630022, 15480, 633, 13, 89, "Message",ExpressionUUID->"6a1be0c6-6d06-47da-9c1f-90578c1b3b21"], -Cell[630658, 15495, 633, 13, 89, "Message",ExpressionUUID->"c60f9cf8-533e-4cf0-8bf5-b8c47b09d273"], -Cell[631294, 15510, 492, 11, 64, "Message",ExpressionUUID->"c71a4e89-961c-4699-b77f-53ff737cb184"], -Cell[631789, 15523, 195, 3, 50, "Output",ExpressionUUID->"03f393a8-4ffb-40a8-8a34-0251046f3f86"] +Cell[632799, 15416, 1750, 52, 526, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], +Cell[634552, 15470, 657, 14, 182, "Message",ExpressionUUID->"407b6172-034d-4d67-9e73-72105bafda28"], +Cell[635212, 15486, 659, 14, 182, "Message",ExpressionUUID->"1dd363f7-ccbe-42af-8b70-a72f35113091"], +Cell[635874, 15502, 659, 14, 182, "Message",ExpressionUUID->"fee252ba-3d75-4045-ac4e-8a8fd75a61bd"], +Cell[636536, 15518, 520, 12, 81, "Message",ExpressionUUID->"cb217716-0426-4178-9d0f-7c1b0a25b79a"], +Cell[637059, 15532, 220, 4, 62, "Output",ExpressionUUID->"ef7742e6-0500-496b-89d8-6144328d2803"] }, Open ]], Cell[CellGroupData[{ -Cell[632021, 15531, 2269, 64, 501, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], -Cell[634293, 15597, 628, 13, 89, "Message",ExpressionUUID->"2c7693da-11ac-41ba-8219-6a56657fcbca"], -Cell[634924, 15612, 631, 13, 89, "Message",ExpressionUUID->"df31daad-88e9-4bee-b2e3-abee5749b176"], -Cell[635558, 15627, 631, 13, 89, "Message",ExpressionUUID->"4c87c40e-c0f2-4a45-b389-fd2526c884ad"], -Cell[636192, 15642, 490, 11, 64, "Message",ExpressionUUID->"b76e4f06-b87a-4a62-9a94-a174733b9a4e"], -Cell[636685, 15655, 192, 3, 50, "Output",ExpressionUUID->"4e24c109-d40a-4d76-a484-3dd5c5f74e09"] +Cell[637316, 15541, 2269, 64, 731, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], +Cell[639588, 15607, 654, 14, 182, "Message",ExpressionUUID->"745307e0-bbbc-4343-9e70-c3cac925d883"], +Cell[640245, 15623, 654, 14, 182, "Message",ExpressionUUID->"5b90f088-3cc5-4b45-815d-86a0e4a834dd"], +Cell[640902, 15639, 656, 14, 182, "Message",ExpressionUUID->"c72ed241-73d9-43cd-89cb-a75ac84cb110"], +Cell[641561, 15655, 515, 12, 81, "Message",ExpressionUUID->"89976e96-015b-4a56-899b-7872b72fe45b"], +Cell[642079, 15669, 219, 4, 62, "Output",ExpressionUUID->"53f87584-9ddb-417a-a06e-a3280b4ccc96"] }, Open ]], Cell[CellGroupData[{ -Cell[636914, 15663, 2233, 63, 501, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], -Cell[639150, 15728, 633, 13, 89, "Message",ExpressionUUID->"79744f26-d760-4ab4-bad5-4f121ce68457"], -Cell[639786, 15743, 631, 13, 89, "Message",ExpressionUUID->"65a9a6ba-5e8a-4ff4-b7b0-e6e81f2da5ec"], -Cell[640420, 15758, 633, 13, 89, "Message",ExpressionUUID->"c7b94a91-0eeb-48bc-b2ec-7f7bafd16278"], -Cell[641056, 15773, 492, 11, 64, "Message",ExpressionUUID->"1edc40e9-2377-4fc6-84e4-7c4c0ed522b9"], -Cell[641551, 15786, 194, 3, 50, "Output",ExpressionUUID->"7d1192e4-ee11-41f1-9450-a8881861087c"] +Cell[642335, 15678, 2233, 63, 692, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], +Cell[644571, 15743, 659, 14, 182, "Message",ExpressionUUID->"db0511ce-78bf-47f7-82fd-29e8ac26b7f2"], +Cell[645233, 15759, 657, 14, 182, "Message",ExpressionUUID->"4fb6b90b-a733-4f61-8e93-0c06de649020"], +Cell[645893, 15775, 659, 14, 182, "Message",ExpressionUUID->"b20f2285-cfbc-408c-8661-a0ae351e9369"], +Cell[646555, 15791, 520, 12, 81, "Message",ExpressionUUID->"53312eaf-6cfa-401e-875f-d0592f779f9e"], +Cell[647078, 15805, 219, 4, 62, "Output",ExpressionUUID->"b670c5d3-1d5d-48cf-b4e5-9eee687ab497"] }, Open ]], Cell[CellGroupData[{ -Cell[641782, 15794, 2235, 63, 501, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], -Cell[644020, 15859, 631, 13, 89, "Message",ExpressionUUID->"b5a95b1a-285f-4a3b-b783-b28610774b78"], -Cell[644654, 15874, 629, 13, 89, "Message",ExpressionUUID->"40fe5da3-b9d8-4f49-812d-74a11ba3b6c6"], -Cell[645286, 15889, 631, 13, 89, "Message",ExpressionUUID->"ed710ac6-ecf7-4bc0-b0f8-6c36b02ab7f7"], -Cell[645920, 15904, 491, 11, 64, "Message",ExpressionUUID->"7358701c-89f2-47c6-b402-e2b4d2159c55"], -Cell[646414, 15917, 195, 3, 50, "Output",ExpressionUUID->"eb0a318f-0640-4ada-8e30-48a097995ea0"] +Cell[647334, 15814, 2235, 63, 692, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], +Cell[649572, 15879, 657, 14, 182, "Message",ExpressionUUID->"7c96c106-9071-44d8-8ee6-190c5ee9d848"], +Cell[650232, 15895, 655, 14, 182, "Message",ExpressionUUID->"aa04a221-a583-45e2-8791-c3f2947d02c4"], +Cell[650890, 15911, 657, 14, 182, "Message",ExpressionUUID->"112b1378-d486-4996-b7fa-db32bcd2332c"], +Cell[651550, 15927, 517, 12, 81, "Message",ExpressionUUID->"779b1f25-6d36-47aa-b759-9470dbdd54bd"], +Cell[652070, 15941, 222, 4, 62, "Output",ExpressionUUID->"d70ac318-6d8b-4b12-8ddd-6852411139db"] }, Open ]], Cell[CellGroupData[{ -Cell[646646, 15925, 234, 6, 71, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], -Cell[646883, 15933, 196, 3, 50, "Output",ExpressionUUID->"91d53714-6ad2-4a5f-b30e-2bced787e19f"] +Cell[652329, 15950, 234, 6, 88, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], +Cell[652566, 15958, 223, 4, 62, "Output",ExpressionUUID->"9537287a-3575-4cde-a8bf-a056aa9ab3e0"] }, Open ]], -Cell[647094, 15939, 209, 4, 44, "Input",ExpressionUUID->"f4cd9d51-1336-4e6c-a95b-a638dfdfe4e7"] +Cell[652804, 15965, 209, 4, 109, "Input",ExpressionUUID->"f4cd9d51-1336-4e6c-a95b-a638dfdfe4e7"] } ] *) diff --git a/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_osc_Qw2.nb b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_osc_Qw2.nb index 3091358..3f38988 100644 --- a/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_osc_Qw2.nb +++ b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_osc_Qw2.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 669989, 15953] -NotebookOptionsPosition[ 629411, 15304] -NotebookOutlinePosition[ 629845, 15322] -CellTagsIndexPosition[ 629802, 15319] +NotebookDataLength[ 680030, 16220] +NotebookOptionsPosition[ 639414, 15571] +NotebookOutlinePosition[ 639855, 15589] +CellTagsIndexPosition[ 639812, 15586] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -34,8 +34,9 @@ Cell[BoxData["6.05`"], "Output", 3.991320420900818*^9, 3.993804549577532*^9, 3.993804625944013*^9, { 3.993804662482604*^9, 3.993804748770383*^9}, 3.9939096014243507`*^9, 3.9939096691949368`*^9, 3.993909752549667*^9, 3.993909908282672*^9, { - 3.9939099553998528`*^9, 3.993909989690781*^9}, 3.993911030709744*^9}, - CellLabel->"Out[1]=",ExpressionUUID->"e877c62f-ce3c-471f-8ce5-b864bdebc2ce"] + 3.9939099553998528`*^9, 3.993909989690781*^9}, 3.993911030709744*^9, + 3.994250296026806*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"9878c444-bb43-4526-b603-87501813d3cb"] }, Open ]], Cell[CellGroupData[{ @@ -51,8 +52,9 @@ Cell[BoxData["240"], "Output", 3.9913196497381973`*^9, 3.9938045496655397`*^9, 3.9938046259897127`*^9, { 3.9938046625249434`*^9, 3.9938047488188868`*^9}, 3.993909601730575*^9, 3.993909669289562*^9, 3.99390975259161*^9, 3.993909908569488*^9, { - 3.993909955491517*^9, 3.9939099897296047`*^9}, 3.993911031048973*^9}, - CellLabel->"Out[2]=",ExpressionUUID->"bd0e7061-afe1-4121-9d8b-cad6b43cc982"] + 3.993909955491517*^9, 3.9939099897296047`*^9}, 3.993911031048973*^9, + 3.994250296149867*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"1366abd7-7fb2-4722-8730-15f2e33071be"] }, Open ]], Cell[CellGroupData[{ @@ -69,8 +71,8 @@ Cell[BoxData["156"], "Output", 3.9938046260086718`*^9, {3.99380466254038*^9, 3.99380474883888*^9}, 3.9939096017486753`*^9, 3.9939096693086853`*^9, 3.9939097526160994`*^9, 3.993909908588579*^9, {3.993909955509431*^9, 3.9939099897457*^9}, - 3.9939110310578012`*^9}, - CellLabel->"Out[3]=",ExpressionUUID->"2879a66b-7c88-471a-8582-ea6a7e763056"] + 3.9939110310578012`*^9, 3.994250296167788*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"dcb4a416-479a-48cc-97c4-bf38df1a23d1"] }, Open ]], Cell[CellGroupData[{ @@ -85,8 +87,9 @@ Cell[BoxData["0.55`"], "Output", 3.991319649777508*^9, 3.993804549706154*^9, 3.9938046260288763`*^9, { 3.993804662560594*^9, 3.993804748856688*^9}, 3.9939096017670803`*^9, 3.9939096693268347`*^9, 3.993909752633919*^9, 3.993909908607675*^9, { - 3.993909955527431*^9, 3.993909989761148*^9}, 3.993911031065084*^9}, - CellLabel->"Out[4]=",ExpressionUUID->"a6880fec-55bf-464b-9712-5b33a8b3c0d8"] + 3.993909955527431*^9, 3.993909989761148*^9}, 3.993911031065084*^9, + 3.9942502961865473`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"56385f15-37ab-4282-9456-2215aacbdb6d"] }, Open ]], Cell[CellGroupData[{ @@ -105,8 +108,9 @@ Cell[BoxData["0.5455000000000001`"], "Output", 3.9913196497965145`*^9, 3.99380454972574*^9, 3.993804626048635*^9, { 3.9938046625774603`*^9, 3.993804748860417*^9}, 3.993909601785378*^9, 3.993909669330983*^9, 3.9939097526503696`*^9, 3.993909908626553*^9, { - 3.9939099555442657`*^9, 3.993909989776597*^9}, 3.993911031072727*^9}, - CellLabel->"Out[5]=",ExpressionUUID->"bbc3d9ae-3f0c-47d9-ac55-2c8da1335787"] + 3.9939099555442657`*^9, 3.993909989776597*^9}, 3.993911031072727*^9, + 3.994250296206347*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"784a9bd9-e214-4a54-aca1-4bb372953833"] }, Open ]], Cell[CellGroupData[{ @@ -120,8 +124,9 @@ Cell[BoxData["0.17`"], "Output", 3.9913196498144608`*^9, 3.993804549747018*^9, 3.993804626052534*^9, { 3.9938046625812197`*^9, 3.9938047488891172`*^9}, 3.9939096018028593`*^9, 3.993909669362465*^9, 3.993909752666353*^9, 3.99390990864529*^9, { - 3.9939099555482264`*^9, 3.993909989792164*^9}, 3.993911031079833*^9}, - CellLabel->"Out[6]=",ExpressionUUID->"586a0385-4468-4d23-8303-ad3d823df26e"] + 3.9939099555482264`*^9, 3.993909989792164*^9}, 3.993911031079833*^9, + 3.9942502962267647`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"83bcd3ea-7fc6-4447-92fe-5d61c8c44b6f"] }, Open ]], Cell[CellGroupData[{ @@ -139,8 +144,9 @@ Cell[BoxData["6.244526630021248`"], "Output", 3.9913196498225155`*^9, 3.993804549770184*^9, 3.993804626085994*^9, { 3.9938046626047153`*^9, 3.993804748905245*^9}, 3.993909601820876*^9, 3.9939096693803263`*^9, 3.993909752687901*^9, 3.993909908664627*^9, { - 3.993909955570965*^9, 3.993909989807292*^9}, 3.993911031086582*^9}, - CellLabel->"Out[7]=",ExpressionUUID->"6641c3af-5a52-4502-b1a4-c031eda1819f"] + 3.993909955570965*^9, 3.993909989807292*^9}, 3.993911031086582*^9, + 3.994250296247923*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"842b0223-c73f-43fb-8883-bc9d4d2fa063"] }, Open ]], Cell[CellGroupData[{ @@ -159,8 +165,9 @@ Cell[BoxData["5.08024220226995`"], "Output", 3.9913196498425236`*^9, 3.9938045497749643`*^9, 3.993804626103525*^9, { 3.993804662619735*^9, 3.993804748921926*^9}, 3.993909601824861*^9, 3.99390966939812*^9, 3.993909752692038*^9, 3.993909908682929*^9, { - 3.993909955589458*^9, 3.993909989822392*^9}, 3.993911031093058*^9}, - CellLabel->"Out[8]=",ExpressionUUID->"47c600ae-b4c7-44c7-ae03-0c80c8974879"] + 3.993909955589458*^9, 3.993909989822392*^9}, 3.993911031093058*^9, + 3.9942502962673397`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"8341fc5b-026b-4816-9f19-5d8008d982e9"] }, Open ]], Cell[CellGroupData[{ @@ -176,8 +183,8 @@ Cell[BoxData["0.9831`"], "Output", 3.993804549811586*^9, 3.993804626121752*^9, {3.993804662635777*^9, 3.9938047489393063`*^9}, 3.993909601854841*^9, 3.993909669421215*^9, 3.9939097527133102`*^9, 3.99390990870128*^9, {3.993909955606114*^9, - 3.9939099898261213`*^9}, 3.993911031099471*^9}, - CellLabel->"Out[9]=",ExpressionUUID->"d8e61811-91d2-4e1e-98c5-3c578d2b47b1"] + 3.9939099898261213`*^9}, 3.993911031099471*^9, 3.994250296286449*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"06b30646-ae21-4286-892a-f30befa3cfdc"] }, Open ]], Cell[CellGroupData[{ @@ -193,8 +200,8 @@ Cell[BoxData["0.463`"], "Output", 3.993804549830037*^9, 3.993804626139834*^9, {3.993804662651184*^9, 3.993804748955449*^9}, 3.993909601874164*^9, 3.993909669438889*^9, 3.99390975272956*^9, 3.9939099087196302`*^9, {3.99390995562206*^9, - 3.993909989846019*^9}, 3.993911031110158*^9}, - CellLabel->"Out[10]=",ExpressionUUID->"4d82fac8-6f8e-4ae7-bfed-2f3dc1cb264d"] + 3.993909989846019*^9}, 3.993911031110158*^9, 3.994250296305397*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"76deb09b-d362-4a62-a7ca-a75eaf39072b"] }, Open ]], Cell[CellGroupData[{ @@ -208,8 +215,9 @@ Cell[BoxData["0"], "Output", 3.9913196498927155`*^9, 3.9938045498689833`*^9, 3.993804626160439*^9, { 3.993804662666739*^9, 3.9938047489718924`*^9}, 3.993909601896028*^9, 3.993909669457499*^9, 3.993909752744871*^9, 3.9939099087374763`*^9, { - 3.993909955638915*^9, 3.993909989862071*^9}, 3.993911031118463*^9}, - CellLabel->"Out[11]=",ExpressionUUID->"462528a7-1d77-4f5d-b892-bd183ddd7a3e"] + 3.993909955638915*^9, 3.993909989862071*^9}, 3.993911031118463*^9, + 3.9942502963254623`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"0401fe8e-f9c0-4347-8441-5c46909f5079"] }, Open ]], Cell[CellGroupData[{ @@ -223,8 +231,9 @@ Cell[BoxData["0"], "Output", 3.9913196498996067`*^9, 3.9938045498874207`*^9, 3.9938046261797523`*^9, { 3.993804662682715*^9, 3.993804748988103*^9}, 3.993909601914316*^9, 3.993909669475305*^9, 3.993909752760817*^9, 3.993909908755747*^9, { - 3.993909955656601*^9, 3.993909989865912*^9}, 3.993911031135495*^9}, - CellLabel->"Out[12]=",ExpressionUUID->"94f3dcee-21fc-4566-9c75-0f572d1089cc"] + 3.993909955656601*^9, 3.993909989865912*^9}, 3.993911031135495*^9, + 3.9942502963467627`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"600e167a-e6ae-416a-a824-fcc9b9104fc2"] }, Open ]], Cell[CellGroupData[{ @@ -255,8 +264,9 @@ Cell[BoxData["2.5173601133375656`"], "Output", 3.9913197863028755`*^9, 3.9938045499058733`*^9, 3.993804626198407*^9, { 3.9938046626977053`*^9, 3.993804749004431*^9}, 3.9939096019331207`*^9, 3.993909669493326*^9, 3.993909752780408*^9, 3.993909908773466*^9, { - 3.993909955671833*^9, 3.993909989883627*^9}, 3.9939110311516953`*^9}, - CellLabel->"Out[13]=",ExpressionUUID->"673621fd-9276-4add-803f-584542b7ff5d"] + 3.993909955671833*^9, 3.993909989883627*^9}, 3.9939110311516953`*^9, + 3.99425029636718*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"0ca339d5-94f2-4c3a-af26-32db33f6380f"] }, Open ]], Cell[CellGroupData[{ @@ -287,8 +297,9 @@ Cell[BoxData["1.5234450434796134`"], "Output", 3.9913197864610195`*^9, 3.993804549925211*^9, 3.993804626217005*^9, { 3.993804662711796*^9, 3.99380474902066*^9}, 3.993909601952641*^9, 3.9939096695112753`*^9, 3.993909752793829*^9, 3.9939099087914257`*^9, { - 3.993909955686531*^9, 3.993909989897831*^9}, 3.993911031159083*^9}, - CellLabel->"Out[14]=",ExpressionUUID->"2a4cdcd1-4c75-4f42-b494-5ce9075e6fda"] + 3.993909955686531*^9, 3.993909989897831*^9}, 3.993911031159083*^9, + 3.994250296387452*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"d44ed5f7-f6a0-43f0-ad7d-c0ef8a17d7a9"] }, Open ]], Cell[CellGroupData[{ @@ -296,25 +307,87 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c11", "=", RowBox[{"1", "-", - FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"7c334f37-fb0f-4cc6-8cab-056596428d27"], + +Cell[BoxData["0.2814027825454283`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.9938045499441977`*^9, 3.993804626236014*^9, { + 3.993804662725235*^9, 3.993804749036929*^9}, 3.993909601972386*^9, + 3.993909669529284*^9, 3.993909752809037*^9, 3.9939099088105917`*^9, { + 3.993909955701372*^9, 3.993909989911367*^9}, 3.9939110311672277`*^9, + 3.994250296409154*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"c52fb30b-e60a-4423-a1f6-94020f133f81"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + RowBox[{ + RowBox[{"(", RowBox[{ RowBox[{"(", - RowBox[{ - RowBox[{"R02", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b2", "*", "b2"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b2", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", - RowBox[{"d", "*", - SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", RowBox[{"(", - RowBox[{ - SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], ")"}], "/", + RowBox[{"(", RowBox[{ RowBox[{"R01", "*", RowBox[{"(", @@ -340,64 +413,7 @@ Cell[BoxData[ SuperscriptBox["w1", "2"]}], "+", RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", - SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", - CellLabel->"In[15]:=",ExpressionUUID->"7c334f37-fb0f-4cc6-8cab-056596428d27"], - -Cell[BoxData["0.2814027825454283`"], "Output", - CellChangeTimes->{ - 3.991319786533783*^9, 3.9938045499441977`*^9, 3.993804626236014*^9, { - 3.993804662725235*^9, 3.993804749036929*^9}, 3.993909601972386*^9, - 3.993909669529284*^9, 3.993909752809037*^9, 3.9939099088105917`*^9, { - 3.993909955701372*^9, 3.993909989911367*^9}, 3.9939110311672277`*^9}, - CellLabel->"Out[15]=",ExpressionUUID->"8c680847-79d9-4cbf-b486-3c549a943f7e"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"c12", "=", - FractionBox[ - RowBox[{ - RowBox[{"(", - RowBox[{"R02", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b2", "*", "b2"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b2", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", - RowBox[{"(", - RowBox[{"1", "-", - SuperscriptBox["w2", "2"]}], ")"}]}], - RowBox[{ - RowBox[{"R01", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b1", "*", "b1"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b1", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w2", "2"]}], "+", - RowBox[{"R02", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b2", "*", "b2"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b2", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w1", "2"]}], "+", - RowBox[{"d", "*", - SuperscriptBox["w2", "2"], "*", - SuperscriptBox["w1", "2"]}]}]]}]], "Input", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", CellLabel->"In[16]:=",ExpressionUUID->"41ae5dc1-3cd9-4289-b2c9-74e90270ce4a"], Cell[BoxData[ @@ -406,92 +422,33 @@ Cell[BoxData[ 3.991319786540777*^9, 3.993804549962688*^9, 3.993804626257918*^9, { 3.993804662739541*^9, 3.993804749053331*^9}, 3.9939096019922533`*^9, 3.9939096695470543`*^9, 3.993909752823636*^9, 3.993909908814773*^9, { - 3.993909955715828*^9, 3.993909989925456*^9}, 3.9939110311732397`*^9}, - CellLabel->"Out[16]=",ExpressionUUID->"f4381b28-1304-4572-8967-8430f1adc990"] + 3.993909955715828*^9, 3.993909989925456*^9}, 3.9939110311732397`*^9, + 3.994250296429578*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"ebe56df4-1b04-4dfc-9ac5-36e5979ec5b4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c21", "=", - FractionBox[ - RowBox[{ - RowBox[{"(", - RowBox[{"R01", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b1", "*", "b1"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b1", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", - RowBox[{"(", - RowBox[{"1", "-", - SuperscriptBox["w1", "2"]}], ")"}]}], - RowBox[{ - RowBox[{"R01", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b1", "*", "b1"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b1", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w2", "2"]}], "+", - RowBox[{"R02", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b2", "*", "b2"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b2", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w1", "2"]}], "+", - RowBox[{"d", "*", - SuperscriptBox["w2", "2"], "*", - SuperscriptBox["w1", "2"]}]}]]}]], "Input", - CellLabel->"In[17]:=",ExpressionUUID->"e45a48f5-df3d-41f1-a7e8-6c67e9970db5"], - -Cell[BoxData[ - RowBox[{"-", "0.3374911667667172`"}]], "Output", - CellChangeTimes->{ - 3.9913197865777817`*^9, 3.993804549981371*^9, 3.993804626278822*^9, { - 3.9938046627542543`*^9, 3.993804749069655*^9}, 3.993909602011525*^9, - 3.993909669564651*^9, 3.993909752838642*^9, 3.9939099088478737`*^9, { - 3.993909955730867*^9, 3.993909989940257*^9}, 3.993911031185944*^9}, - CellLabel->"Out[17]=",ExpressionUUID->"5a1f9a44-f757-4d7d-ae1e-ed56eb6492ff"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"c22", "=", - RowBox[{"1", "-", - FractionBox[ + RowBox[{ + RowBox[{"(", RowBox[{ RowBox[{"(", - RowBox[{ - RowBox[{"R01", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b1", "*", "b1"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b1", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", - RowBox[{"d", "*", - SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", RowBox[{"(", - RowBox[{ - SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], ")"}], "/", + RowBox[{"(", RowBox[{ RowBox[{"R01", "*", RowBox[{"(", @@ -517,7 +474,72 @@ Cell[BoxData[ SuperscriptBox["w1", "2"]}], "+", RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", - SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"e45a48f5-df3d-41f1-a7e8-6c67e9970db5"], + +Cell[BoxData[ + RowBox[{"-", "0.3374911667667172`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.993804549981371*^9, 3.993804626278822*^9, { + 3.9938046627542543`*^9, 3.993804749069655*^9}, 3.993909602011525*^9, + 3.993909669564651*^9, 3.993909752838642*^9, 3.9939099088478737`*^9, { + 3.993909955730867*^9, 3.993909989940257*^9}, 3.993911031185944*^9, + 3.994250296450164*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"c70e4eaa-e2ee-4811-a595-594861a91e82"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", CellLabel->"In[18]:=",ExpressionUUID->"0747cd4c-0999-4626-9d29-27fa5749c8db"], Cell[BoxData["0.5841645161809887`"], "Output", @@ -525,8 +547,9 @@ Cell[BoxData["0.5841645161809887`"], "Output", 3.9913197866129*^9, 3.99380455000006*^9, 3.993804626300075*^9, { 3.993804662773251*^9, 3.993804749085907*^9}, 3.993909602031176*^9, 3.9939096695825167`*^9, 3.993909752853649*^9, 3.993909908866128*^9, { - 3.99390995574667*^9, 3.993909989956238*^9}, 3.9939110311980143`*^9}, - CellLabel->"Out[18]=",ExpressionUUID->"ce9b466e-8fa0-420e-91af-23055ed2d6de"] + 3.99390995574667*^9, 3.993909989956238*^9}, 3.9939110311980143`*^9, + 3.994250296470229*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"0cf28c61-05da-4529-8ab9-a0e5b8da002f"] }, Open ]], Cell[CellGroupData[{ @@ -540,8 +563,9 @@ Cell[BoxData["300"], "Output", 3.991319786620775*^9, 3.993804550019484*^9, 3.993804626319972*^9, { 3.993804662777142*^9, 3.9938047491020308`*^9}, 3.99390960204895*^9, 3.9939096695998087`*^9, 3.9939097528680077`*^9, 3.9939099088839207`*^9, { - 3.993909955761622*^9, 3.993909989971353*^9}, 3.993911031203785*^9}, - CellLabel->"Out[19]=",ExpressionUUID->"c7404771-739e-4085-8f3c-2d08c145269c"] + 3.993909955761622*^9, 3.993909989971353*^9}, 3.993911031203785*^9, + 3.9942503019788017`*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"bd1f6a88-27ad-4f00-9a5c-35dd6fc9e2ee"] }, Open ]], Cell[CellGroupData[{ @@ -555,8 +579,9 @@ Cell[BoxData["0.09`"], "Output", 3.991319786657793*^9, 3.9938045500378237`*^9, 3.993804626339315*^9, { 3.993804662793344*^9, 3.99380474911817*^9}, 3.993909602068466*^9, 3.9939096696185913`*^9, 3.993909752884066*^9, 3.993909908903553*^9, { - 3.9939099557765713`*^9, 3.993909989986253*^9}, 3.993911031215753*^9}, - CellLabel->"Out[20]=",ExpressionUUID->"a771ef0c-db19-477a-a58e-70ad2f971c82"] + 3.9939099557765713`*^9, 3.993909989986253*^9}, 3.993911031215753*^9, + 3.994250302413924*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"e01bf95b-76d7-4ffc-a98a-1a89d35b053d"] }, Open ]], Cell[CellGroupData[{ @@ -570,8 +595,9 @@ Cell[BoxData["0.42`"], "Output", 3.9913197866657925`*^9, 3.9938045500560837`*^9, 3.9938046263600817`*^9, { 3.99380466280895*^9, 3.993804749134166*^9}, 3.993909602086402*^9, 3.9939096696362677`*^9, 3.99390975290001*^9, 3.9939099089231663`*^9, { - 3.9939099557917356`*^9, 3.9939099900012712`*^9}, 3.993911031222721*^9}, - CellLabel->"Out[21]=",ExpressionUUID->"d24b5044-6bc2-41ab-afee-616efd1d8f26"] + 3.9939099557917356`*^9, 3.9939099900012712`*^9}, 3.993911031222721*^9, + 3.994250302435623*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"84aae45d-b097-47c6-a62b-a7cbdf273978"] }, Open ]], Cell[CellGroupData[{ @@ -588,8 +614,9 @@ Cell[BoxData[ 3.9913197866996*^9, 3.993804550075344*^9, 3.993804626383381*^9, { 3.99380466282749*^9, 3.993804749150152*^9}, 3.993909602104745*^9, 3.9939096696539907`*^9, 3.993909752916039*^9, 3.993909908940823*^9, { - 3.993909955808311*^9, 3.993909990017736*^9}, 3.993911031229842*^9}, - CellLabel->"Out[22]=",ExpressionUUID->"59ccda33-5505-41b9-bd29-e71b02f6a15d"] + 3.993909955808311*^9, 3.993909990017736*^9}, 3.993911031229842*^9, + 3.994250302461754*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"0718cb79-24ec-47b9-81c0-c803d87a07de"] }, Open ]], Cell[CellGroupData[{ @@ -603,8 +630,9 @@ Cell[BoxData["0.54`"], "Output", 3.9913197867406044`*^9, 3.993804550093996*^9, 3.99380462640412*^9, { 3.9938046628451138`*^9, 3.993804749168808*^9}, 3.993909602124238*^9, 3.993909669671417*^9, 3.9939097529322453`*^9, 3.993909908959701*^9, { - 3.99390995582368*^9, 3.9939099900328217`*^9}, 3.9939110312418957`*^9}, - CellLabel->"Out[23]=",ExpressionUUID->"47f36aba-61d0-4222-b523-8735a9ee7405"] + 3.99390995582368*^9, 3.9939099900328217`*^9}, 3.9939110312418957`*^9, + 3.994250302481257*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"9ff36b65-bdb1-4a94-b48f-71ed2a27573d"] }, Open ]], Cell[CellGroupData[{ @@ -621,8 +649,8 @@ Cell[BoxData["66"], "Output", 3.9913197867861958`*^9, 3.993804626423663*^9, {3.993804662861299*^9, 3.99380474918727*^9}, 3.993909602142963*^9, 3.99390966968908*^9, 3.993909752947946*^9, 3.993909908977618*^9, {3.993909955827662*^9, - 3.993909990050256*^9}, 3.993911031248909*^9}, - CellLabel->"Out[24]=",ExpressionUUID->"488dbf7d-24fa-4e61-98eb-1a5d326d1e59"] + 3.993909990050256*^9}, 3.993911031248909*^9, 3.994250302505415*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"a917ccc4-90d1-4151-8c6e-d72b9681102c"] }, Open ]], Cell[CellGroupData[{ @@ -639,8 +667,9 @@ Cell[BoxData["28"], "Output", 3.9913197867928696`*^9, 3.9938045501483994`*^9, 3.993804626442574*^9, { 3.993804662877561*^9, 3.9938047492047462`*^9}, 3.993909602161409*^9, 3.993909669707423*^9, 3.993909752964058*^9, 3.9939099089960423`*^9, { - 3.993909955845819*^9, 3.993909990065692*^9}, 3.9939110312560062`*^9}, - CellLabel->"Out[25]=",ExpressionUUID->"0492e1d1-793f-4e3a-8ecb-219f64f26d83"] + 3.993909955845819*^9, 3.993909990065692*^9}, 3.9939110312560062`*^9, + 3.994250302534904*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"9a771125-d0ce-4f39-b407-46eda530f77b"] }, Open ]], Cell[CellGroupData[{ @@ -656,8 +685,9 @@ Cell[BoxData["84"], "Output", 3.991319786827894*^9, 3.993804550167096*^9, 3.993804626459854*^9, { 3.993804662896564*^9, 3.9938047492214317`*^9}, 3.993909602179817*^9, 3.993909669724697*^9, 3.993909752980503*^9, 3.9939099090164824`*^9, { - 3.993909955861395*^9, 3.9939099900817633`*^9}, 3.9939110312629232`*^9}, - CellLabel->"Out[26]=",ExpressionUUID->"3357e445-3eb7-4be5-b7aa-b8e6e2c1e201"] + 3.993909955861395*^9, 3.9939099900817633`*^9}, 3.9939110312629232`*^9, + 3.9942503025703993`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"f1fb4bfe-38f6-4ba0-b071-05b314212c14"] }, Open ]], Cell[CellGroupData[{ @@ -679,8 +709,9 @@ Cell[BoxData["0.11153846153846153`"], "Output", 3.9913197868648605`*^9, 3.9938045501856823`*^9, 3.993804626476894*^9, { 3.993804662912559*^9, 3.993804749238111*^9}, 3.993909602199831*^9, 3.993909669742579*^9, 3.9939097529958878`*^9, 3.993909909035789*^9, { - 3.993909955876047*^9, 3.9939099900975027`*^9}, 3.993911031270207*^9}, - CellLabel->"Out[27]=",ExpressionUUID->"c924c6e9-1e41-4a59-8122-b95ec0fa8eb2"] + 3.993909955876047*^9, 3.9939099900975027`*^9}, 3.993911031270207*^9, + 3.994250302601831*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"ec4f816e-9e55-44bf-a345-2f0fbd36db50"] }, Open ]], Cell[CellGroupData[{ @@ -703,8 +734,9 @@ Cell[BoxData[ 3.9913197868718567`*^9, 3.993804550204549*^9, 3.9938046264931793`*^9, { 3.993804662930933*^9, 3.993804749256987*^9}, 3.993909602217969*^9, 3.993909669760494*^9, 3.99390975301192*^9, 3.993909909054161*^9, { - 3.99390995589108*^9, 3.993909990112661*^9}, 3.993911031277113*^9}, - CellLabel->"Out[28]=",ExpressionUUID->"fcac8916-733c-41df-9e81-29ed9a2fc3af"] + 3.99390995589108*^9, 3.993909990112661*^9}, 3.993911031277113*^9, + 3.994250302651122*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"712a4b03-2fd6-4f11-a3f2-b7e4b24e66fc"] }, Open ]], Cell[CellGroupData[{ @@ -742,8 +774,9 @@ Cell[BoxData["22.163907548137733`"], "Output", 3.9913197869068584`*^9, 3.993804550224925*^9, 3.993804626512244*^9, { 3.993804662948985*^9, 3.993804749273611*^9}, 3.993909602237144*^9, 3.99390966977844*^9, 3.993909753027061*^9, 3.993909909073007*^9, { - 3.9939099559075603`*^9, 3.993909990129081*^9}, 3.9939110312846737`*^9}, - CellLabel->"Out[29]=",ExpressionUUID->"2d9267dc-d08e-4a30-9868-ffed9febf7d8"] + 3.9939099559075603`*^9, 3.993909990129081*^9}, 3.9939110312846737`*^9, + 3.994250302670743*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"b783cea2-2696-4a9b-8473-29cd65298427"] }, Open ]], Cell[CellGroupData[{ @@ -758,8 +791,9 @@ Cell[BoxData["300"], "Output", 3.991319786940857*^9, 3.993804550242552*^9, 3.993804626529005*^9, { 3.993804662966734*^9, 3.9938047492900057`*^9}, 3.993909602255596*^9, 3.993909669800799*^9, 3.993909753041724*^9, 3.993909909091654*^9, { - 3.9939099559230347`*^9, 3.993909990146391*^9}, 3.993911031291934*^9}, - CellLabel->"Out[30]=",ExpressionUUID->"11c0a0db-8d27-45a5-85f5-084f07b53c86"] + 3.9939099559230347`*^9, 3.993909990146391*^9}, 3.993911031291934*^9, + 3.994250302684465*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"04808df3-3132-477a-81d2-b70ace1cd591"] }, Open ]], Cell[CellGroupData[{ @@ -776,8 +810,8 @@ Cell[BoxData["1.653`"], "Output", 3.993804550280451*^9, 3.993804626545594*^9, {3.993804662983712*^9, 3.9938047493074627`*^9}, 3.9939096022742043`*^9, 3.99390966981877*^9, 3.9939097530579777`*^9, 3.993909909111307*^9, {3.993909955941221*^9, - 3.993909990162526*^9}, 3.993911031298897*^9}, - CellLabel->"Out[31]=",ExpressionUUID->"ce8304ce-752f-4655-82ba-628be66336dc"] + 3.993909990162526*^9}, 3.993911031298897*^9, 3.994250302697485*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"511fbac6-19d8-4d8b-8dbd-54e721d3f7ac"] }, Open ]], Cell[BoxData[""], "Input", @@ -798,8 +832,8 @@ Cell[BoxData["0.855`"], "Output", 3.9938045503168097`*^9, 3.993804626574059*^9, {3.993804663013727*^9, 3.993804749370492*^9}, 3.993909602333745*^9, 3.99390966987148*^9, 3.9939097530831842`*^9, 3.993909909145574*^9, {3.993909955961776*^9, - 3.993909990180032*^9}, 3.993911031310495*^9}, - CellLabel->"Out[33]=",ExpressionUUID->"3368a452-0cbf-4cd3-9155-876d92048fb1"] + 3.993909990180032*^9}, 3.993911031310495*^9, 3.9942503027232*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"c624fac2-5588-49cb-88f9-e44871a023d4"] }, Open ]], Cell[BoxData[""], "Input", @@ -820,8 +854,8 @@ Cell[BoxData["2.405`"], "Output", 3.993804550350713*^9, 3.993804626598034*^9, {3.993804663037463*^9, 3.993804749435276*^9}, 3.9939096023888474`*^9, 3.993909669925479*^9, 3.9939097531059*^9, 3.993909909180294*^9, {3.9939099559820957`*^9, - 3.993909990196824*^9}, 3.993911031322105*^9}, - CellLabel->"Out[35]=",ExpressionUUID->"4354744f-841e-4026-bdb7-104877571ee8"] + 3.993909990196824*^9}, 3.993911031322105*^9, 3.994250302808942*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"bb7eca93-1106-404f-9349-872684d09cd0"] }, Open ]], Cell[BoxData[""], "Input", @@ -842,8 +876,8 @@ Cell[BoxData["1.225`"], "Output", 3.993804550383745*^9, 3.993804626621963*^9, {3.993804663060033*^9, 3.9938047494929237`*^9}, 3.9939096024465313`*^9, 3.993909669980788*^9, 3.993909753130068*^9, 3.993909909216509*^9, {3.993909956000244*^9, - 3.993909990213717*^9}, 3.9939110313336363`*^9}, - CellLabel->"Out[37]=",ExpressionUUID->"040d236b-0ac7-4f58-ba6a-10f19acec332"] + 3.993909990213717*^9}, 3.9939110313336363`*^9, 3.9942503029829273`*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"3f2602ad-e554-46c8-b0e7-d58521f2a173"] }, Open ]], Cell[BoxData[""], "Input", @@ -864,8 +898,8 @@ Cell[BoxData["1.63`"], "Output", 3.993804550416999*^9, 3.993804626645709*^9, {3.9938046630845337`*^9, 3.993804749547261*^9}, 3.993909602527773*^9, 3.993909670035091*^9, 3.993909753153574*^9, 3.993909909250422*^9, {3.993909956017232*^9, - 3.993909990230207*^9}, 3.993911031350232*^9}, - CellLabel->"Out[39]=",ExpressionUUID->"26713d3b-a0e9-42de-bef9-58ec4bd0adfa"] + 3.993909990230207*^9}, 3.993911031350232*^9, 3.994250303042974*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"2181ce8e-4efc-4b5c-8ccf-3685867ab641"] }, Open ]], Cell[BoxData[""], "Input", @@ -886,8 +920,8 @@ Cell[BoxData["0.5571`"], "Output", 3.993804550449337*^9, 3.993804626671207*^9, {3.993804663115242*^9, 3.993804749603999*^9}, 3.993909602589055*^9, 3.9939096700891027`*^9, 3.993909753176607*^9, 3.993909909285474*^9, {3.9939099560344143`*^9, - 3.9939099902470818`*^9}, 3.993911031362883*^9}, - CellLabel->"Out[41]=",ExpressionUUID->"ce2b0790-219f-4c1b-9502-307e2bb93a3d"] + 3.9939099902470818`*^9}, 3.993911031362883*^9, 3.9942503030980463`*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"3827e340-3bfc-4c72-81b0-de3a24a89340"] }, Open ]], Cell[BoxData[""], "Input", @@ -908,8 +942,8 @@ Cell[BoxData["1.82`"], "Output", 3.993804550483719*^9, 3.993804626698537*^9, {3.993804663139299*^9, 3.993804749658854*^9}, 3.993909602653262*^9, 3.993909670143072*^9, 3.993909753199719*^9, 3.993909909346984*^9, {3.993909956051777*^9, - 3.9939099902633963`*^9}, 3.993911031374729*^9}, - CellLabel->"Out[43]=",ExpressionUUID->"1d491a14-7be3-4d40-a92b-8984dcfc7323"] + 3.9939099902633963`*^9}, 3.993911031374729*^9, 3.994250303120749*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"74e65664-3132-456a-b84f-a0d976ff7520"] }, Open ]], Cell[BoxData[""], "Input", @@ -929,8 +963,8 @@ Cell[BoxData["1.82`"], "Output", 3.993804550516501*^9, 3.993804626722493*^9, {3.9938046631629744`*^9, 3.993804749712779*^9}, 3.9939096027072487`*^9, 3.993909670196845*^9, 3.9939097532228928`*^9, 3.993909909381329*^9, {3.993909956068966*^9, - 3.993909990279929*^9}, 3.9939110313868837`*^9}, - CellLabel->"Out[45]=",ExpressionUUID->"8f9d4760-ccd0-4b61-b1e8-a43e0a6ff455"] + 3.993909990279929*^9}, 3.9939110313868837`*^9, 3.99425030314324*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"63c16f73-5fd8-4aee-a150-8ac5b48d5c75"] }, Open ]], Cell[BoxData[""], "Input", @@ -1432,8 +1466,9 @@ Cell[BoxData[ 3.991319787430073*^9, 3.993804550599751*^9, 3.993804626769621*^9, { 3.99380466321212*^9, 3.993804749779405*^9}, 3.993909602821623*^9, 3.9939096702786417`*^9, 3.993909753275091*^9, 3.993909909468431*^9, { - 3.9939099561101503`*^9, 3.993909990324842*^9}, 3.993911031471344*^9}, - CellLabel->"Out[47]=",ExpressionUUID->"ab5d8042-5d88-43e5-bd86-81d303a87e8c"] + 3.9939099561101503`*^9, 3.993909990324842*^9}, 3.993911031471344*^9, + 3.9942503033885193`*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"b595d132-3788-428c-92f0-f12973a9cd64"] }, Open ]], Cell[CellGroupData[{ @@ -1934,8 +1969,9 @@ Cell[BoxData["0.08542989528290149`"], "Output", 3.991319787574972*^9, 3.9938045506724253`*^9, 3.993804626799774*^9, { 3.993804663242297*^9, 3.993804749831417*^9}, 3.993909602850985*^9, 3.993909670308428*^9, 3.99390975330634*^9, 3.993909909504902*^9, { - 3.993909956139316*^9, 3.993909990356688*^9}, 3.993911031503196*^9}, - CellLabel->"Out[48]=",ExpressionUUID->"36c8182c-1bce-4693-b2c6-6787564e8e52"] + 3.993909956139316*^9, 3.993909990356688*^9}, 3.993911031503196*^9, + 3.99425030352015*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"fe9670e4-a0aa-4128-b4bf-4cbe8793ad62"] }, Open ]], Cell[CellGroupData[{ @@ -2431,8 +2467,9 @@ Cell[BoxData[ 3.991319787641424*^9, 3.9938045506993027`*^9, 3.993804626828765*^9, { 3.99380466327107*^9, 3.99380474985798*^9}, 3.993909602878909*^9, 3.9939096703348618`*^9, 3.993909753333283*^9, 3.993909909537113*^9, { - 3.993909956164773*^9, 3.993909990381176*^9}, 3.9939110315323467`*^9}, - CellLabel->"Out[49]=",ExpressionUUID->"d11d43cc-2894-4a3b-9498-f17a6afa1edc"] + 3.993909956164773*^9, 3.993909990381176*^9}, 3.9939110315323467`*^9, + 3.994250303622854*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"94c43837-6015-4b94-ab07-31caa33fba24"] }, Open ]], Cell[CellGroupData[{ @@ -2998,8 +3035,9 @@ Cell[BoxData[ 3.991319787711939*^9, 3.993804550730234*^9, 3.993804626860573*^9, { 3.99380466335039*^9, 3.993804749888824*^9}, 3.9939096029089117`*^9, 3.9939096703655453`*^9, 3.993909753364204*^9, 3.9939099095691557`*^9, { - 3.9939099561943274`*^9, 3.9939099904093027`*^9}, 3.9939110315667753`*^9}, - CellLabel->"Out[50]=",ExpressionUUID->"a7eec9a5-189f-4a68-bcb8-c50d0ec62bc4"] + 3.9939099561943274`*^9, 3.9939099904093027`*^9}, 3.9939110315667753`*^9, + 3.9942503037234097`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"8070d58c-5008-43c7-905b-a73750d86527"] }, Open ]], Cell[CellGroupData[{ @@ -3565,8 +3603,9 @@ Cell[BoxData[ 3.9913197877723045`*^9, 3.993804550761911*^9, 3.993804626893774*^9, { 3.993804663389638*^9, 3.993804749919907*^9}, 3.9939096029398603`*^9, 3.993909670396442*^9, 3.993909753395891*^9, 3.9939099096076517`*^9, { - 3.9939099562247763`*^9, 3.9939099904381638`*^9}, 3.993911031600851*^9}, - CellLabel->"Out[51]=",ExpressionUUID->"b99889ec-3840-4657-b9a1-46ebb0d77d57"] + 3.9939099562247763`*^9, 3.9939099904381638`*^9}, 3.993911031600851*^9, + 3.994250303844215*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"93cbd0aa-3fc4-4736-8f53-e70db42d8ff9"] }, Open ]], Cell[CellGroupData[{ @@ -4205,8 +4244,9 @@ Cell[BoxData[ 3.991319787833355*^9, 3.993804550797638*^9, 3.993804626930235*^9, { 3.993804663472403*^9, 3.993804749955412*^9}, 3.993909602975071*^9, 3.9939096704323187`*^9, 3.993909753433277*^9, 3.99390990964828*^9, { - 3.9939099562605953`*^9, 3.993909990472554*^9}, 3.9939110316439943`*^9}, - CellLabel->"Out[52]=",ExpressionUUID->"f33fae5e-7947-4590-b890-ca4dfb1031b3"] + 3.9939099562605953`*^9, 3.993909990472554*^9}, 3.9939110316439943`*^9, + 3.99425030398018*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"10de8ab0-77b3-40bc-8198-4a732149a56a"] }, Open ]], Cell[CellGroupData[{ @@ -4220,8 +4260,9 @@ Cell[BoxData["0"], "Output", 3.9913204210013676`*^9, 3.9938045508194923`*^9, 3.993804626946419*^9, { 3.993804663488306*^9, 3.993804749974567*^9}, 3.9939096029931*^9, 3.993909670451165*^9, 3.9939097534481*^9, 3.993909909666844*^9, { - 3.993909956278285*^9, 3.9939099904879293`*^9}, 3.9939110316529217`*^9}, - CellLabel->"Out[53]=",ExpressionUUID->"2f584606-6846-4a7e-b62e-a24b07545449"] + 3.993909956278285*^9, 3.9939099904879293`*^9}, 3.9939110316529217`*^9, + 3.994250304013796*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"9b0164b8-957b-48c0-b155-f1eefe2fc52c"] }, Open ]], Cell[CellGroupData[{ @@ -4235,8 +4276,9 @@ Cell[BoxData["0"], "Output", 3.9913204210355663`*^9, 3.993804550838839*^9, 3.99380462696198*^9, { 3.993804663542288*^9, 3.993804749990815*^9}, 3.9939096030110683`*^9, 3.993909670469376*^9, 3.993909753462414*^9, 3.9939099096844893`*^9, { - 3.993909956293055*^9, 3.993909990503254*^9}, 3.993911031661001*^9}, - CellLabel->"Out[54]=",ExpressionUUID->"28b914c3-0d18-4f22-9e4d-95a37ade9253"] + 3.993909956293055*^9, 3.993909990503254*^9}, 3.993911031661001*^9, + 3.994250304105228*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"a4fa70f5-b878-4f30-a369-94aedbf5e25c"] }, Open ]], Cell[CellGroupData[{ @@ -4287,8 +4329,9 @@ Cell[BoxData["111.7060296377673`"], "Output", 3.991320421068556*^9, 3.9938045508585377`*^9, 3.993804626991984*^9, { 3.993804663557494*^9, 3.9938047500074787`*^9}, 3.99390960303067*^9, 3.993909670487976*^9, 3.993909753477995*^9, 3.9939099097033167`*^9, { - 3.993909956309827*^9, 3.993909990518099*^9}, 3.993911031669442*^9}, - CellLabel->"Out[55]=",ExpressionUUID->"34671313-99de-4910-919b-26092aaa370b"] + 3.993909956309827*^9, 3.993909990518099*^9}, 3.993911031669442*^9, + 3.994250304142933*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"20d60a2c-5b43-4cd8-990f-214a9f5ede03"] }, Open ]], Cell[CellGroupData[{ @@ -4336,8 +4379,9 @@ Cell[BoxData[ 3.991320421098543*^9, 3.993804550878648*^9, 3.993804627006651*^9, { 3.99380466357337*^9, 3.993804750023952*^9}, 3.993909603048832*^9, 3.993909670506846*^9, 3.99390975349363*^9, 3.993909909722876*^9, { - 3.9939099563244467`*^9, 3.993909990532846*^9}, 3.993911031677953*^9}, - CellLabel->"Out[56]=",ExpressionUUID->"f109b3bb-dfe9-48fb-9aae-cc08ff63cf4a"] + 3.9939099563244467`*^9, 3.993909990532846*^9}, 3.993911031677953*^9, + 3.994250304167965*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"9c3a3741-94e7-4ffd-8300-9e0682b1024b"] }, Open ]], Cell[CellGroupData[{ @@ -4388,8 +4432,9 @@ Cell[BoxData["187.12903971509587`"], "Output", 3.9913204211275444`*^9, 3.9938045509027987`*^9, 3.993804627020084*^9, { 3.993804663589897*^9, 3.993804750040456*^9}, 3.9939096030676117`*^9, 3.9939096705252743`*^9, 3.993909753508572*^9, 3.993909909741909*^9, { - 3.993909956339319*^9, 3.9939099905477867`*^9}, 3.993911031687729*^9}, - CellLabel->"Out[57]=",ExpressionUUID->"9ec1aab5-cc0f-4d93-8e96-c38c56f0b2b0"] + 3.993909956339319*^9, 3.9939099905477867`*^9}, 3.993911031687729*^9, + 3.994250304193289*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"2ca8bf17-13fa-421a-aa7a-99a8f161e6dd"] }, Open ]], Cell[CellGroupData[{ @@ -4402,8 +4447,9 @@ Cell[BoxData["0.2814027825454283`"], "Output", 3.9913204211385536`*^9, 3.9938045509220467`*^9, 3.993804627033495*^9, { 3.993804663606344*^9, 3.9938047500576067`*^9}, 3.993909603085306*^9, 3.993909670543174*^9, 3.993909753523663*^9, 3.9939099097598248`*^9, { - 3.993909956353833*^9, 3.993909990562546*^9}, 3.993911031696395*^9}, - CellLabel->"Out[58]=",ExpressionUUID->"7d503d63-4f13-4189-9364-9321a33b66a0"] + 3.993909956353833*^9, 3.993909990562546*^9}, 3.993911031696395*^9, + 3.994250304216803*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"1a6d69dd-b7c4-4db6-8704-c60ff1ed47b1"] }, Open ]], Cell[CellGroupData[{ @@ -4417,8 +4463,9 @@ Cell[BoxData[ 3.9913204211683464`*^9, 3.993804550940889*^9, 3.993804627047104*^9, { 3.99380466362283*^9, 3.993804750074596*^9}, 3.993909603103224*^9, 3.993909670561534*^9, 3.993909753539481*^9, 3.993909909777351*^9, { - 3.9939099563684807`*^9, 3.993909990577075*^9}, 3.993911031704919*^9}, - CellLabel->"Out[59]=",ExpressionUUID->"732d0118-5f1d-486f-9e99-438ea637680a"] + 3.9939099563684807`*^9, 3.993909990577075*^9}, 3.993911031704919*^9, + 3.994250304250663*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"f5979ee5-07ad-4766-a8f4-c97b7b773791"] }, Open ]], Cell[CellGroupData[{ @@ -4432,8 +4479,9 @@ Cell[BoxData[ 3.991320421199068*^9, 3.99380455096201*^9, 3.993804627060543*^9, { 3.9938046636401176`*^9, 3.9938047500897923`*^9}, 3.993909603121352*^9, 3.993909670579809*^9, 3.993909753557192*^9, 3.9939099097958403`*^9, { - 3.99390995638293*^9, 3.9939099905920963`*^9}, 3.993911031713554*^9}, - CellLabel->"Out[60]=",ExpressionUUID->"acd4211b-a1f2-47b3-ad7d-97be3addaa9e"] + 3.99390995638293*^9, 3.9939099905920963`*^9}, 3.993911031713554*^9, + 3.994250304276012*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"d2b13058-5d71-4af7-ae47-a8177fe3c185"] }, Open ]], Cell[CellGroupData[{ @@ -4446,8 +4494,9 @@ Cell[BoxData["0.5841645161809887`"], "Output", 3.991320421228037*^9, 3.993804550980524*^9, 3.9938046270751667`*^9, { 3.993804663656624*^9, 3.993804750107565*^9}, 3.993909603139456*^9, 3.993909670598647*^9, 3.9939097536021843`*^9, 3.993909909812099*^9, { - 3.993909956397331*^9, 3.9939099906069927`*^9}, 3.993911031725177*^9}, - CellLabel->"Out[61]=",ExpressionUUID->"c52b8b75-7951-46f5-8765-941a7861bf11"] + 3.993909956397331*^9, 3.9939099906069927`*^9}, 3.993911031725177*^9, + 3.994250304293399*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"4ce86af8-3e73-4039-ba8b-1a51b5f90c57"] }, Open ]], Cell[CellGroupData[{ @@ -4460,8 +4509,9 @@ Cell[BoxData["2.5173601133375656`"], "Output", 3.9913204212585373`*^9, 3.993804550999857*^9, 3.993804627093104*^9, { 3.993804663673789*^9, 3.993804750123993*^9}, 3.993909603159047*^9, 3.9939096706237583`*^9, 3.993909753618161*^9, 3.993909909815946*^9, { - 3.993909956411661*^9, 3.993909990622797*^9}, 3.993911031773446*^9}, - CellLabel->"Out[62]=",ExpressionUUID->"f387fffa-3cf8-4e26-b094-9e5958637fc6"] + 3.993909956411661*^9, 3.993909990622797*^9}, 3.993911031773446*^9, + 3.994250304319233*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"11d978c2-0c15-47ed-91b9-1c20a595d332"] }, Open ]], Cell[CellGroupData[{ @@ -4474,8 +4524,9 @@ Cell[BoxData["1.5234450434796134`"], "Output", 3.9913204212884274`*^9, 3.993804551018916*^9, 3.993804627108033*^9, { 3.993804663692298*^9, 3.993804750140585*^9}, 3.99390960317778*^9, 3.993909670643187*^9, 3.9939097536363897`*^9, 3.993909909844212*^9, { - 3.993909956428871*^9, 3.993909990639729*^9}, 3.9939110317821712`*^9}, - CellLabel->"Out[63]=",ExpressionUUID->"4469fb05-39b5-4f59-9093-9e4cb5603ed9"] + 3.993909956428871*^9, 3.993909990639729*^9}, 3.9939110317821712`*^9, + 3.994250304332189*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"dc2c8e2c-9661-41e5-8d2e-4ca9aad899a5"] }, Open ]], Cell[CellGroupData[{ @@ -4504,8 +4555,9 @@ Cell[BoxData[ 3.9913204213185234`*^9, 3.993804551037992*^9, 3.993804627123701*^9, { 3.993804663711438*^9, 3.993804750156764*^9}, 3.993909603196027*^9, 3.993909670663684*^9, 3.99390975365348*^9, 3.993909909862356*^9, { - 3.993909956443829*^9, 3.993909990654669*^9}, 3.993911031791176*^9}, - CellLabel->"Out[64]=",ExpressionUUID->"e132d07a-8582-431e-b733-47d9cec78c41"] + 3.993909956443829*^9, 3.993909990654669*^9}, 3.993911031791176*^9, + 3.9942503043463907`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"c30ca4f6-6ff2-4a3c-bf9d-26cd6cc3ebea"] }, Open ]], Cell[CellGroupData[{ @@ -4534,8 +4586,9 @@ Cell[BoxData[ 3.991320421349531*^9, 3.99380455105733*^9, 3.993804627139119*^9, { 3.993804663729148*^9, 3.993804750173326*^9}, 3.993909603216249*^9, 3.993909670683181*^9, 3.993909753671298*^9, 3.993909909877062*^9, { - 3.993909956460279*^9, 3.993909990669105*^9}, 3.993911031803832*^9}, - CellLabel->"Out[65]=",ExpressionUUID->"74d38fc5-9b71-4718-951c-fc969864de19"] + 3.993909956460279*^9, 3.993909990669105*^9}, 3.993911031803832*^9, + 3.9942503043618298`*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"bddac96b-efe1-45cc-a621-2dcb7e5eaa26"] }, Open ]], Cell[CellGroupData[{ @@ -4607,8 +4660,9 @@ Cell[BoxData["93.52813324924097`"], "Output", 3.9913204213784294`*^9, 3.9938045510774317`*^9, 3.993804627154879*^9, { 3.993804663746785*^9, 3.993804750189831*^9}, 3.993909603237997*^9, 3.99390967070298*^9, 3.993909753690928*^9, 3.993909909892799*^9, { - 3.9939099564827127`*^9, 3.993909990683666*^9}, 3.993911031816975*^9}, - CellLabel->"Out[66]=",ExpressionUUID->"a0aa4d37-79ce-4975-bc44-4ba6ab20e053"] + 3.9939099564827127`*^9, 3.993909990683666*^9}, 3.993911031816975*^9, + 3.9942503043809834`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"7daa0bc8-fedf-4d1e-bcb5-e82d14d816a0"] }, Open ]], Cell[CellGroupData[{ @@ -4657,8 +4711,9 @@ Cell[BoxData[ 3.9913204213904285`*^9, 3.993804551098919*^9, 3.99380462716993*^9, { 3.99380466376478*^9, 3.993804750205999*^9}, 3.9939096032579308`*^9, 3.99390967072291*^9, 3.993909753708663*^9, 3.993909909912747*^9, { - 3.9939099564995337`*^9, 3.993909990698875*^9}, 3.993911031823683*^9}, - CellLabel->"Out[67]=",ExpressionUUID->"ff3c5de5-d973-4e0f-a53c-354395350994"] + 3.9939099564995337`*^9, 3.993909990698875*^9}, 3.993911031823683*^9, + 3.9942503043945704`*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"63735390-9194-4e96-9232-a580d20ce01c"] }, Open ]], Cell[CellGroupData[{ @@ -4731,8 +4786,9 @@ Cell[BoxData["182.70610789396713`"], "Output", 3.991320421419428*^9, 3.993804551121139*^9, 3.993804627185237*^9, { 3.9938046637699213`*^9, 3.993804750221984*^9}, 3.993909603279203*^9, 3.993909670743991*^9, 3.993909753728705*^9, 3.993909909930686*^9, { - 3.993909956518093*^9, 3.9939099907215357`*^9}, 3.9939110318351507`*^9}, - CellLabel->"Out[68]=",ExpressionUUID->"426a8b66-365d-487d-81f1-4d86ed296c43"] + 3.993909956518093*^9, 3.9939099907215357`*^9}, 3.9939110318351507`*^9, + 3.9942503044101954`*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"310a4b74-7225-4250-ba5f-1c1a00386954"] }, Open ]], Cell[CellGroupData[{ @@ -4797,8 +4853,9 @@ Cell[BoxData["150.0362849602646`"], "Output", 3.9913204214494324`*^9, 3.9938045511434107`*^9, 3.993804627199387*^9, { 3.9938046637889233`*^9, 3.993804750238797*^9}, 3.993909603297597*^9, 3.993909670763399*^9, 3.993909753746546*^9, 3.993909909946938*^9, { - 3.99390995653423*^9, 3.993909990735869*^9}, 3.99391103184453*^9}, - CellLabel->"Out[69]=",ExpressionUUID->"ff345a12-90da-491a-81d0-17e27c667d40"] + 3.99390995653423*^9, 3.993909990735869*^9}, 3.99391103184453*^9, + 3.994250304425824*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"b3ed4df8-02ef-4009-bb02-7b76c89253d3"] }, Open ]], Cell[CellGroupData[{ @@ -4863,8 +4920,9 @@ Cell[BoxData["845.8339546196385`"], "Output", 3.991320421481529*^9, 3.993804551165799*^9, 3.993804627215629*^9, { 3.9938046638111277`*^9, 3.993804750255252*^9}, 3.993909603318231*^9, 3.993909670782775*^9, 3.993909753763286*^9, 3.993909909962928*^9, { - 3.9939099565492992`*^9, 3.993909990750906*^9}, 3.993911031853734*^9}, - CellLabel->"Out[70]=",ExpressionUUID->"16a94dd1-f6c2-4e84-95af-3e7d21bb9a50"] + 3.9939099565492992`*^9, 3.993909990750906*^9}, 3.993911031853734*^9, + 3.994250304440448*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"049ea29a-621e-44e9-864e-e18b967edf17"] }, Open ]], Cell[CellGroupData[{ @@ -4876,8 +4934,8 @@ Cell[BoxData[ CellLabel->"In[71]:=",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], Cell[BoxData["0.87134`"], "Output", - CellChangeTimes->{3.9939110318625507`*^9}, - CellLabel->"Out[71]=",ExpressionUUID->"cdd551bb-2c4f-49a6-9880-15c68083b367"] + CellChangeTimes->{3.9939110318625507`*^9, 3.994250304619917*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"311ca2f5-a76d-42b9-863e-c98fa0639a71"] }, Open ]], Cell[BoxData[""], "Input", @@ -4893,8 +4951,8 @@ Cell[BoxData[ CellLabel->"In[73]:=",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], Cell[BoxData["0.60727`"], "Output", - CellChangeTimes->{3.9939110318768597`*^9}, - CellLabel->"Out[73]=",ExpressionUUID->"e0472527-418d-49bf-8d31-0cfa8cd71397"] + CellChangeTimes->{3.9939110318768597`*^9, 3.9942503046653357`*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"a2f31bb5-3d70-4867-b84f-7051ea5012aa"] }, Open ]], Cell[BoxData[""], "Input", @@ -4948,8 +5006,9 @@ Cell[BoxData[ CellLabel->"In[75]:=",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], Cell[BoxData["3.0421649672677`*^-53"], "Output", - CellChangeTimes->{3.991339230528511*^9, 3.9939110318921013`*^9}, - CellLabel->"Out[75]=",ExpressionUUID->"8a6858ff-0606-4ff7-8486-e36c0e8eb411"] + CellChangeTimes->{3.991339230528511*^9, 3.9939110318921013`*^9, + 3.994250304761859*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"bf293a03-c797-4bde-82df-4f83d7f9e672"] }, Open ]], Cell[CellGroupData[{ @@ -4987,8 +5046,9 @@ Cell[BoxData[ CellLabel->"In[76]:=",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], Cell[BoxData["1.9400000176319233`*^-54"], "Output", - CellChangeTimes->{3.991339230554512*^9, 3.993911031900823*^9}, - CellLabel->"Out[76]=",ExpressionUUID->"d814fe75-a09d-4e11-b179-483da2cfb214"] + CellChangeTimes->{3.991339230554512*^9, 3.993911031900823*^9, + 3.994250304793517*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"da1be6f4-b690-4377-820f-917098b1eacb"] }, Open ]], Cell[CellGroupData[{ @@ -5025,8 +5085,9 @@ Cell[BoxData[ CellLabel->"In[77]:=",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], Cell[BoxData["2.934718696466954`*^-54"], "Output", - CellChangeTimes->{3.9913392305796223`*^9, 3.993911031911641*^9}, - CellLabel->"Out[77]=",ExpressionUUID->"2e0fe99b-30a4-45f5-ba99-c99959c1c9c3"] + CellChangeTimes->{3.9913392305796223`*^9, 3.993911031911641*^9, + 3.994250304824469*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"52795f2f-e3e4-4b74-b0d5-14bd6d9d7f8a"] }, Open ]], Cell[CellGroupData[{ @@ -5052,8 +5113,9 @@ Cell[BoxData[ CellLabel->"In[78]:=",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], Cell[BoxData["38.8429193316109`"], "Output", - CellChangeTimes->{3.9913392305906105`*^9, 3.9939110319211197`*^9}, - CellLabel->"Out[78]=",ExpressionUUID->"1cb41384-3006-4767-982d-ae8b89066976"] + CellChangeTimes->{3.9913392305906105`*^9, 3.9939110319211197`*^9, + 3.994250304847006*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"2f4c94f1-3b14-45dc-a570-5a02d1780907"] }, Open ]], Cell[CellGroupData[{ @@ -5082,8 +5144,9 @@ Cell[BoxData[ CellLabel->"In[79]:=",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], Cell[BoxData["82.08016255509085`"], "Output", - CellChangeTimes->{3.99133923061561*^9, 3.993911031929685*^9}, - CellLabel->"Out[79]=",ExpressionUUID->"d78fdcee-2cfc-4303-8335-0fd2ef70bfc3"] + CellChangeTimes->{3.99133923061561*^9, 3.993911031929685*^9, + 3.994250304869032*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"ca5074ab-0d1e-4cf3-bc87-f5c93f92df9a"] }, Open ]], Cell[CellGroupData[{ @@ -5095,8 +5158,9 @@ Cell[BoxData[ CellLabel->"In[80]:=",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], Cell[BoxData["1.9653604831506049`"], "Output", - CellChangeTimes->{3.9913392306426105`*^9, 3.993911031938208*^9}, - CellLabel->"Out[80]=",ExpressionUUID->"b026cf38-b7b8-4501-ab7f-0dbd44353bfc"] + CellChangeTimes->{3.9913392306426105`*^9, 3.993911031938208*^9, + 3.994250304891472*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"1a8dda63-729e-4502-b08b-a034c404164b"] }, Open ]], Cell[CellGroupData[{ @@ -5108,8 +5172,9 @@ Cell[BoxData[ CellLabel->"In[81]:=",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], Cell[BoxData["3.2101361599425497`"], "Output", - CellChangeTimes->{3.99133923065361*^9, 3.993911031946712*^9}, - CellLabel->"Out[81]=",ExpressionUUID->"2e414c6a-9245-40d4-a9fe-84fe1e735db8"] + CellChangeTimes->{3.99133923065361*^9, 3.993911031946712*^9, + 3.994250304908676*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"61afe149-a673-4484-96f5-06f8460aacd9"] }, Open ]], Cell[CellGroupData[{ @@ -5121,8 +5186,9 @@ Cell[BoxData[ CellLabel->"In[82]:=",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], Cell[BoxData["263.4884978320596`"], "Output", - CellChangeTimes->{3.9913392306776104`*^9, 3.9939110319553328`*^9}, - CellLabel->"Out[82]=",ExpressionUUID->"a0d75053-7572-41e2-8099-b89af26a78cf"] + CellChangeTimes->{3.9913392306776104`*^9, 3.9939110319553328`*^9, + 3.994250304942438*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"93f3d8b3-6de9-42e1-af10-61baa42356b6"] }, Open ]], Cell[CellGroupData[{ @@ -5134,8 +5200,9 @@ Cell[BoxData[ CellLabel->"In[83]:=",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], Cell[BoxData["76.34033870455477`"], "Output", - CellChangeTimes->{3.991339230703802*^9, 3.993911031963758*^9}, - CellLabel->"Out[83]=",ExpressionUUID->"34c2203a-b771-478c-90b1-41187efe24c7"] + CellChangeTimes->{3.991339230703802*^9, 3.993911031963758*^9, + 3.994250304975318*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"1fef6e03-2566-4f9b-acc0-82e6b5196f82"] }, Open ]], Cell[CellGroupData[{ @@ -5327,8 +5394,9 @@ Cell[BoxData[ CellLabel->"In[84]:=",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], Cell[BoxData["0.0038205883000502396`"], "Output", - CellChangeTimes->{3.9913392307297993`*^9, 3.993911031974937*^9}, - CellLabel->"Out[84]=",ExpressionUUID->"a0fcc521-fc43-40a6-8ed8-a424571dc745"] + CellChangeTimes->{3.9913392307297993`*^9, 3.993911031974937*^9, + 3.994250305011282*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"adb3cd7f-9237-445d-9ee8-094194140b82"] }, Open ]], Cell[CellGroupData[{ @@ -5344,8 +5412,9 @@ Cell[BoxData[ CellLabel->"In[85]:=",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], Cell[BoxData["14.337710926184645`"], "Output", - CellChangeTimes->{3.991339230837267*^9, 3.9939110321544647`*^9}, - CellLabel->"Out[85]=",ExpressionUUID->"b84483d3-a6ec-4d29-b5fb-bfdfc00451d1"] + CellChangeTimes->{3.991339230837267*^9, 3.9939110321544647`*^9, + 3.9942503053423223`*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"558d6365-400f-46db-9f4a-f1d4811c07be"] }, Open ]], Cell[CellGroupData[{ @@ -5539,8 +5608,9 @@ Cell[BoxData[ CellLabel->"In[86]:=",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], Cell[BoxData["0.0120214347505462`"], "Output", - CellChangeTimes->{3.9913392308522797`*^9, 3.993911032167016*^9}, - CellLabel->"Out[86]=",ExpressionUUID->"17b0830e-3630-4b7f-827c-903b94314390"] + CellChangeTimes->{3.9913392308522797`*^9, 3.993911032167016*^9, + 3.9942503054960213`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"35e1f9ae-ef80-405e-adfd-a74d5bca88d7"] }, Open ]], Cell[CellGroupData[{ @@ -5556,8 +5626,9 @@ Cell[BoxData[ CellLabel->"In[87]:=",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], Cell[BoxData["8.082892240661026`"], "Output", - CellChangeTimes->{3.991339230966341*^9, 3.9939110322348948`*^9}, - CellLabel->"Out[87]=",ExpressionUUID->"2c60b766-e108-4710-b2a3-501f33940c81"] + CellChangeTimes->{3.991339230966341*^9, 3.9939110322348948`*^9, + 3.994250305605405*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"d0ecab44-a4d5-41d8-94bc-74a51bb6d5e5"] }, Open ]], Cell[CellGroupData[{ @@ -5652,8 +5723,9 @@ Cell[BoxData[ CellLabel->"In[88]:=",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], Cell[BoxData["0.16117107469700653`"], "Output", - CellChangeTimes->{3.991339230988348*^9, 3.9939110322450323`*^9}, - CellLabel->"Out[88]=",ExpressionUUID->"fe12ee96-1c6c-4f48-93e5-eba776340c7d"] + CellChangeTimes->{3.991339230988348*^9, 3.9939110322450323`*^9, + 3.9942503056199007`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"5f860dde-e6a9-4f0e-adf2-024f8f189a87"] }, Open ]], Cell[CellGroupData[{ @@ -5745,8 +5817,9 @@ Cell[BoxData[ CellLabel->"In[89]:=",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], Cell[BoxData["0.8388289253029935`"], "Output", - CellChangeTimes->{3.991339231030445*^9, 3.993911032254189*^9}, - CellLabel->"Out[89]=",ExpressionUUID->"4ccba655-94e7-40ff-a960-16fbbdb6a445"] + CellChangeTimes->{3.991339231030445*^9, 3.993911032254189*^9, + 3.994250305648287*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"0a7cc6df-5238-4bc4-91ba-dbbd13bf1910"] }, Open ]], Cell[CellGroupData[{ @@ -5871,8 +5944,9 @@ Cell[BoxData[ CellLabel->"In[90]:=",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], Cell[BoxData["0.13519495937801848`"], "Output", - CellChangeTimes->{3.991339231060343*^9, 3.993911032263377*^9}, - CellLabel->"Out[90]=",ExpressionUUID->"a7d2f4bd-26bb-4ef0-b6c0-0f18a5fee25f"] + CellChangeTimes->{3.991339231060343*^9, 3.993911032263377*^9, + 3.9942503058440228`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"1d761905-cfc1-42d4-b01c-06aa574032d4"] }, Open ]], Cell[BoxData[ @@ -5946,63 +6020,71 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.1744920617229244`*^-216\\\", \ -\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ -9984000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 92, 1, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 1, + 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913392310873375`*^9, 3.99391103228942*^9}, + CellChangeTimes->{3.9913392310873375`*^9, 3.99391103228942*^9, + 3.9942503059334593`*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"2e480117-234a-4b0e-8bee-e846b19f11de"], +In[92]:=",ExpressionUUID->"7df04641-677a-4f02-a8ab-0c4fce19aab9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.3008166932115039`*^-221\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 92, 2, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 2, + 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913392310873375`*^9, 3.9939110322946663`*^9}, + CellChangeTimes->{3.9913392310873375`*^9, 3.99391103228942*^9, + 3.994250305959635*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"acb9f11a-c207-47ea-b1fd-98d10322f481"], +In[92]:=",ExpressionUUID->"52c7dd18-611f-4529-87dd-b4c43e8157e4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.330377384592761`*^-227\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 92, 3, - 31385386164681285117, "kernel 4"}, +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 3, + 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913392310873375`*^9, 3.9939110322995443`*^9}, + CellChangeTimes->{3.9913392310873375`*^9, 3.99391103228942*^9, + 3.994250305969345*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"69fe479a-007e-4376-811c-dfeeba7a59ac"], +In[92]:=",ExpressionUUID->"2769f085-ec2c-497d-bc77-e85a8541415e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 92, 4, 31385386164681285117, "kernel 4"}, +during this calculation.\"", 2, 92, 4, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913392310873375`*^9, 3.99391103230418*^9}, + CellChangeTimes->{3.9913392310873375`*^9, 3.99391103228942*^9, + 3.994250305978441*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"5240c7a7-543f-4215-89f9-de3bbb27fdf3"], +In[92]:=",ExpressionUUID->"867ca752-941e-494b-8482-1b073059c59a"], Cell[BoxData["14.337710926184627`"], "Output", - CellChangeTimes->{3.9913392346332226`*^9, 3.993911034781555*^9}, - CellLabel->"Out[92]=",ExpressionUUID->"2d7832ef-5537-4cc5-9df1-57829e79d99d"] + CellChangeTimes->{3.9913392346332226`*^9, 3.993911034781555*^9, + 3.9942503097449303`*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"855d1691-4a09-4b9f-bca3-3435aa24a83e"] }, Open ]], Cell[CellGroupData[{ @@ -6071,63 +6153,71 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.1744920617229244`*^-216\\\", \ -\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ -9984000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 93, 5, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 5, + 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991339234667631*^9, 3.993911034903496*^9}, + CellChangeTimes->{3.991339234667631*^9, 3.993911034903496*^9, + 3.994250309820614*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"80e8e632-6d0a-4b60-b703-740dbcb469d9"], +In[93]:=",ExpressionUUID->"e63be5e6-4b21-40db-afb1-2144b6dbf2cf"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.3008166932115039`*^-221\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 93, 6, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 6, + 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991339234667631*^9, 3.9939110349089823`*^9}, + CellChangeTimes->{3.991339234667631*^9, 3.993911034903496*^9, + 3.9942503098300953`*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"a1e53603-b354-48da-bbbd-a04fe007ba5a"], +In[93]:=",ExpressionUUID->"49d2e715-1873-4efe-8c50-da77e463721d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.330377384592761`*^-227\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 93, 7, - 31385386164681285117, "kernel 4"}, +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 7, + 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991339234667631*^9, 3.993911034914789*^9}, + CellChangeTimes->{3.991339234667631*^9, 3.993911034903496*^9, + 3.994250309840179*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"815c6c78-ca11-4799-ba16-b16dd694af4b"], +In[93]:=",ExpressionUUID->"04cdff78-dee0-4a39-951e-edc5b817e419"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 93, 8, 31385386164681285117, "kernel 4"}, +during this calculation.\"", 2, 93, 8, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991339234667631*^9, 3.993911034920588*^9}, + CellChangeTimes->{3.991339234667631*^9, 3.993911034903496*^9, + 3.9942503098494987`*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"af2434fa-97e4-49b8-97b6-53d09085c311"], +In[93]:=",ExpressionUUID->"c24924ad-d147-472c-8c70-aed2f0731c18"], Cell[BoxData["8.082892240661025`"], "Output", - CellChangeTimes->{3.99133923819088*^9, 3.993911037528841*^9}, - CellLabel->"Out[93]=",ExpressionUUID->"7fd2f7c1-5e15-41cc-a4e6-56d57ec5219b"] + CellChangeTimes->{3.99133923819088*^9, 3.993911037528841*^9, + 3.994250313327608*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"ae7545d8-749b-41ce-9f9c-bc467d113f1f"] }, Open ]], Cell[CellGroupData[{ @@ -6137,50 +6227,52 @@ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ - FractionBox[ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", RowBox[{ - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", - RowBox[{"Cos", "[", - FractionBox[ - RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], - RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{3.991849713921898*^9}, @@ -6559,8 +6651,9 @@ BFTn+DdPYBu3OlDziQTIKe/ZPYn9P73HqE4= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991339493274267*^9, 3.9939113213785458`*^9}, - CellLabel->"Out[94]=",ExpressionUUID->"cb1d4049-9151-4e29-80a9-34826b22cf33"] + CellChangeTimes->{3.991339493274267*^9, 3.9939113213785458`*^9, + 3.994250866587242*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"2694f2ca-9c56-4c10-8d02-119802ba7b49"] }, Open ]], Cell[CellGroupData[{ @@ -6632,13 +6725,14 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"2.0276280517056926`*^-272\\\", \ \\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 95, 9, - 31385386164681285117, "kernel 4"}, + 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991339493498577*^9, 3.9939113217050257`*^9}, + CellChangeTimes->{3.991339493498577*^9, 3.9939113217050257`*^9, + 3.994250867156126*^9}, CellLabel-> "During evaluation of \ -In[95]:=",ExpressionUUID->"6dbc284c-a974-464c-bb2c-8a8006d3e491"], +In[95]:=",ExpressionUUID->"7b2839c8-5249-4fc8-a0db-1f23957ea96e"], Cell[BoxData[ TemplateBox[{ @@ -6646,13 +6740,14 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"3.120675787707438`*^-284\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 95, - 10, 31385386164681285117, "kernel 4"}, + 10, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991339493498577*^9, 3.993911321712061*^9}, + CellChangeTimes->{3.991339493498577*^9, 3.9939113217050257`*^9, + 3.994250867166774*^9}, CellLabel-> "During evaluation of \ -In[95]:=",ExpressionUUID->"b15a4db0-d9c8-442e-8fea-82c09d63f7ba"], +In[95]:=",ExpressionUUID->"d10843ba-a50c-4d57-a5e6-eb739db15b6d"], Cell[BoxData[ TemplateBox[{ @@ -6660,26 +6755,28 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"4.802960465944963`*^-296\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, 95, - 11, 31385386164681285117, "kernel 4"}, + 11, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991339493498577*^9, 3.993911321720475*^9}, + CellChangeTimes->{3.991339493498577*^9, 3.9939113217050257`*^9, + 3.994250867178399*^9}, CellLabel-> "During evaluation of \ -In[95]:=",ExpressionUUID->"eb94f706-46c7-4bc6-8c54-fbe6413c36ee"], +In[95]:=",ExpressionUUID->"fe54e0ce-a0b5-4d28-a3de-fc49235cab3a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 95, 12, 31385386164681285117, "kernel 4"}, +during this calculation.\"", 2, 95, 12, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991339493498577*^9, 3.993911321728428*^9}, + CellChangeTimes->{3.991339493498577*^9, 3.9939113217050257`*^9, + 3.9942508671887407`*^9}, CellLabel-> "During evaluation of \ -In[95]:=",ExpressionUUID->"b36bdf8d-97dc-4f47-9026-1be095d4fee5"], +In[95]:=",ExpressionUUID->"c00dfdf3-6a3c-47dc-ae8a-b2a72b7af3e3"], Cell[BoxData[ GraphicsBox[ @@ -7093,8 +7190,9 @@ rV7mUZB7sHr21y82XnGxOFlPRMH/ADw0WRM= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991340117671425*^9, 3.993911644951833*^9}, - CellLabel->"Out[95]=",ExpressionUUID->"23c18686-716c-4028-b535-b127b402214d"] + CellChangeTimes->{3.991340117671425*^9, 3.993911644951833*^9, + 3.9942514208912907`*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"42b4a85e-87e0-46d1-bd68-127d999c2d7e"] }, Open ]], Cell[CellGroupData[{ @@ -7391,8 +7489,8 @@ SA== Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.99391164512409*^9}, - CellLabel->"Out[96]=",ExpressionUUID->"68f57f30-6303-4e60-b241-07f8e0399f00"] + CellChangeTimes->{3.99391164512409*^9, 3.99425142112807*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"b4e3e6b4-3079-4a78-a78e-fd77c8a49a7c"] }, Open ]], Cell[CellGroupData[{ @@ -7947,8 +8045,8 @@ SA== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9939116451609497`*^9}, - CellLabel->"Out[97]=",ExpressionUUID->"7d86889d-1f9a-475e-afa8-b224803f2864"] + CellChangeTimes->{3.9939116451609497`*^9, 3.994251421174591*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"f0a71487-53a6-4a6b-bc2a-aaa35df7239b"] }, Open ]], Cell[CellGroupData[{ @@ -7962,8 +8060,9 @@ Cell[BoxData[ CellLabel->"In[98]:=",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], Cell[BoxData["14.385526833371523`"], "Output", - CellChangeTimes->{3.991340544411957*^9, 3.993911645197796*^9}, - CellLabel->"Out[98]=",ExpressionUUID->"9537a4dd-e65f-48b0-9fa4-97b40538d7bb"] + CellChangeTimes->{3.991340544411957*^9, 3.993911645197796*^9, + 3.994251421225478*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"6cab9e3b-08f9-4b34-a472-7c996dfa574f"] }, Open ]], Cell[CellGroupData[{ @@ -8028,13 +8127,14 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"2.5937515579389638`*^-259\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, 99, - 13, 31385386164681285117, "kernel 4"}, + 13, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991340544611845*^9, 3.99391164528916*^9}, + CellChangeTimes->{3.991340544611845*^9, 3.99391164528916*^9, + 3.994251421354578*^9}, CellLabel-> "During evaluation of \ -In[99]:=",ExpressionUUID->"9954908a-b822-410e-80fe-d18b25bfdf72"], +In[99]:=",ExpressionUUID->"90d8c5da-0244-4640-bdf5-5fa7b748aa71"], Cell[BoxData[ TemplateBox[{ @@ -8042,13 +8142,14 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"1.176211740125045`*^-269\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 99, 14, 31385386164681285117, "kernel 4"}, + 2, 99, 14, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991340544611845*^9, 3.993911645295361*^9}, + CellChangeTimes->{3.991340544611845*^9, 3.99391164528916*^9, + 3.994251421363493*^9}, CellLabel-> "During evaluation of \ -In[99]:=",ExpressionUUID->"45d804dc-815e-404d-a1b9-be2566dc09f1"], +In[99]:=",ExpressionUUID->"6d8b87a6-a465-4249-af0d-b7cc4d85c339"], Cell[BoxData[ TemplateBox[{ @@ -8056,26 +8157,28 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"5.333872680956833`*^-280\\\", \ \\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 99, 15, 31385386164681285117, "kernel 4"}, + 2, 99, 15, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991340544611845*^9, 3.9939116453023653`*^9}, + CellChangeTimes->{3.991340544611845*^9, 3.99391164528916*^9, + 3.994251421371599*^9}, CellLabel-> "During evaluation of \ -In[99]:=",ExpressionUUID->"861092aa-55b3-4752-839a-a92568585ed4"], +In[99]:=",ExpressionUUID->"47642a3b-9025-42c9-9f09-44deb2e203cd"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 99, 16, 31385386164681285117, "kernel 4"}, +during this calculation.\"", 2, 99, 16, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991340544611845*^9, 3.993911645309524*^9}, + CellChangeTimes->{3.991340544611845*^9, 3.99391164528916*^9, + 3.994251421382002*^9}, CellLabel-> "During evaluation of \ -In[99]:=",ExpressionUUID->"65982ec0-9058-4cb4-a3c4-d012dc92e072"], +In[99]:=",ExpressionUUID->"b5727ede-78f6-492f-b17b-90929d464f77"], Cell[BoxData[ GraphicsBox[ @@ -8489,8 +8592,9 @@ cckJSN9XPjozw0HXm8/iT+acgP8DBAVnzg== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913408819317417`*^9, 3.993912048035161*^9}, - CellLabel->"Out[99]=",ExpressionUUID->"256259b5-5b52-437f-bc79-1eaff9ea3105"] + CellChangeTimes->{3.9913408819317417`*^9, 3.993912048035161*^9, + 3.994252111130155*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"13041d70-55a6-45e5-8738-43510896c0c8"] }, Open ]], Cell[CellGroupData[{ @@ -8549,64 +8653,72 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"8.47723595528574`*^-189\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +RowBox[{\\\"154105300338610232238812282088443762157\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"44\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3624858499033438617600000000000000000000\\\"}]]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 100, - 17, 31385386164681285117, "kernel 4"}, + 17, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991340881982744*^9, 3.9939120481515617`*^9}, + CellChangeTimes->{3.991340881982744*^9, 3.9939120481515617`*^9, + 3.9942521113026533`*^9}, CellLabel-> "During evaluation of \ -In[100]:=",ExpressionUUID->"384c2d04-a69d-470b-98de-8c7ffc6a1ec3"], +In[100]:=",ExpressionUUID->"239bf7a0-4926-42ab-b2d5-fe8f69e152cb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0235119134736646`*^-192\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +RowBox[{\\\"370006826113003167605388289294353472939\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"47\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3285256179286120857600000000000000000000\\\"}]]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 100, - 18, 31385386164681285117, "kernel 4"}, + 18, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991340881982744*^9, 3.9939120481625347`*^9}, + CellChangeTimes->{3.991340881982744*^9, 3.9939120481515617`*^9, + 3.994252111313768*^9}, CellLabel-> "During evaluation of \ -In[100]:=",ExpressionUUID->"8a0bc8b6-4d3f-41dc-9616-441d167dd7de"], +In[100]:=",ExpressionUUID->"ff7f3709-4408-488b-adbb-bb3bc87d2672"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.2357525997248376`*^-196\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 100, 19, 31385386164681285117, "kernel 4"}, +RowBox[{\\\"925017065282507919013470723235883682349\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"50\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3140448215302144000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 19, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991340881982744*^9, 3.993912048171548*^9}, + CellChangeTimes->{3.991340881982744*^9, 3.9939120481515617`*^9, + 3.994252111324123*^9}, CellLabel-> "During evaluation of \ -In[100]:=",ExpressionUUID->"6d50805f-e9b8-4daa-a65d-61b200ab23b0"], +In[100]:=",ExpressionUUID->"75dcabf2-9ab2-4e06-aa7f-853151c015dd"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 100, 20, 31385386164681285117, "kernel 4"}, +during this calculation.\"", 2, 100, 20, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991340881982744*^9, 3.9939120481800213`*^9}, + CellChangeTimes->{3.991340881982744*^9, 3.9939120481515617`*^9, + 3.994252111333065*^9}, CellLabel-> "During evaluation of \ -In[100]:=",ExpressionUUID->"ff786b4c-c07e-4a54-9312-a00361146ffc"], +In[100]:=",ExpressionUUID->"476c001d-940e-48b9-bcee-9fe26750457a"], Cell[BoxData["14.385524753668907`"], "Output", - CellChangeTimes->{3.9913408882266617`*^9, 3.993912088555481*^9}, + CellChangeTimes->{3.9913408882266617`*^9, 3.993912088555481*^9, + 3.9942521842374783`*^9}, CellLabel-> - "Out[100]=",ExpressionUUID->"27e2ce89-c5f8-479c-a94b-312ba4e9848a"] + "Out[100]=",ExpressionUUID->"62103483-09a4-4d2c-b2bc-8b9302f7bf6c"] }, Open ]], Cell[CellGroupData[{ @@ -8682,64 +8794,72 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.1744920617229244`*^-216\\\", \ -\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ -9984000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 101, 21, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 21, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913408882626343`*^9, 3.993912088620454*^9}, + CellChangeTimes->{3.9913408882626343`*^9, 3.993912088620454*^9, + 3.994252184328185*^9}, CellLabel-> "During evaluation of \ -In[101]:=",ExpressionUUID->"b00d1f6b-c0c3-4516-aaea-435b410752c8"], +In[101]:=",ExpressionUUID->"15c7f41d-90c1-4c34-a9e3-2f05e8fcf07f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.3008166932115039`*^-221\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 101, 22, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 22, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913408882626343`*^9, 3.9939120886294727`*^9}, + CellChangeTimes->{3.9913408882626343`*^9, 3.993912088620454*^9, + 3.9942521843373013`*^9}, CellLabel-> "During evaluation of \ -In[101]:=",ExpressionUUID->"c11232f7-eb0d-4fe2-9e6f-8c815acc0ce3"], +In[101]:=",ExpressionUUID->"508cf2ec-da89-421e-91f1-37c7c94bcf6a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.330377384592761`*^-227\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 101, 23, - 31385386164681285117, "kernel 4"}, +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 23, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913408882626343`*^9, 3.9939120886370993`*^9}, + CellChangeTimes->{3.9913408882626343`*^9, 3.993912088620454*^9, + 3.9942521843482237`*^9}, CellLabel-> "During evaluation of \ -In[101]:=",ExpressionUUID->"77fdc23a-05fb-44ef-9e84-f7676874d9db"], +In[101]:=",ExpressionUUID->"11b44d32-a9e5-4311-bf3d-d062c608b64e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 101, 24, 31385386164681285117, "kernel 4"}, +during this calculation.\"", 2, 101, 24, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913408882626343`*^9, 3.993912088643907*^9}, + CellChangeTimes->{3.9913408882626343`*^9, 3.993912088620454*^9, + 3.9942521843580837`*^9}, CellLabel-> "During evaluation of \ -In[101]:=",ExpressionUUID->"1f53acf0-b89f-40e1-a513-1696faed415a"], +In[101]:=",ExpressionUUID->"ff68c7b8-0d7b-4c31-a2ac-37f3185bf7d0"], Cell[BoxData["2.2169142577301115`"], "Output", - CellChangeTimes->{3.991340895263792*^9, 3.993912095762067*^9}, + CellChangeTimes->{3.991340895263792*^9, 3.993912095762067*^9, + 3.994252195102385*^9}, CellLabel-> - "Out[101]=",ExpressionUUID->"f755b29c-da4e-4151-87e1-81f7e06e006e"] + "Out[101]=",ExpressionUUID->"9e05c7ab-7d5a-4911-bf7d-b83002d3b856"] }, Open ]], Cell[CellGroupData[{ @@ -8813,64 +8933,72 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.1744920617229244`*^-216\\\", \ -\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ -9984000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 102, 25, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 25, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991340895297941*^9, 3.9939120958050137`*^9}, + CellChangeTimes->{3.991340895297941*^9, 3.9939120958050137`*^9, + 3.994252195154584*^9}, CellLabel-> "During evaluation of \ -In[102]:=",ExpressionUUID->"ddf00b05-f2f2-4136-b45b-4e9311911a02"], +In[102]:=",ExpressionUUID->"b8869fd8-500a-49ec-a2f2-6b3ee920d1f6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.3008166932115039`*^-221\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 102, 26, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 26, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991340895297941*^9, 3.9939120958124*^9}, + CellChangeTimes->{3.991340895297941*^9, 3.9939120958050137`*^9, + 3.994252195163723*^9}, CellLabel-> "During evaluation of \ -In[102]:=",ExpressionUUID->"d620df1d-cbc3-4852-8f30-6876aab74fe6"], +In[102]:=",ExpressionUUID->"138cc268-9591-400b-8c16-62d67e80e32a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.330377384592761`*^-227\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 102, 27, - 31385386164681285117, "kernel 4"}, +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 27, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991340895297941*^9, 3.9939120958221083`*^9}, + CellChangeTimes->{3.991340895297941*^9, 3.9939120958050137`*^9, + 3.994252195172874*^9}, CellLabel-> "During evaluation of \ -In[102]:=",ExpressionUUID->"89aebe25-4b97-441f-b070-c09d264d8f1c"], +In[102]:=",ExpressionUUID->"45a24c37-135d-48c8-83c4-4623ca4486fc"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 102, 28, 31385386164681285117, "kernel 4"}, +during this calculation.\"", 2, 102, 28, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991340895297941*^9, 3.993912095831461*^9}, + CellChangeTimes->{3.991340895297941*^9, 3.9939120958050137`*^9, + 3.99425219518244*^9}, CellLabel-> "During evaluation of \ -In[102]:=",ExpressionUUID->"0e3568ce-21b7-4a48-8562-44aa662bf55b"], +In[102]:=",ExpressionUUID->"83f53b5b-739f-4f40-91cd-b53f0909a214"], Cell[BoxData["56.16984080690669`"], "Output", - CellChangeTimes->{3.9913409010488796`*^9, 3.993912102507875*^9}, + CellChangeTimes->{3.9913409010488796`*^9, 3.993912102507875*^9, + 3.994252205406438*^9}, CellLabel-> - "Out[102]=",ExpressionUUID->"096e9e11-faff-46a1-8918-2dbee145d05e"] + "Out[102]=",ExpressionUUID->"3674d330-56c2-4be2-8ed8-befd08220c33"] }, Open ]], Cell[CellGroupData[{ @@ -8944,64 +9072,72 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.1744920617229244`*^-216\\\", \ -\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ -9984000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 103, 29, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 29, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913409010848827`*^9, 3.993912102543964*^9}, + CellChangeTimes->{3.9913409010848827`*^9, 3.993912102543964*^9, + 3.994252205487829*^9}, CellLabel-> "During evaluation of \ -In[103]:=",ExpressionUUID->"b71374cb-bf48-4731-994c-77badc302ac1"], +In[103]:=",ExpressionUUID->"0a4451f4-0625-42e8-a3be-b5177817410d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.3008166932115039`*^-221\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 103, 30, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 30, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913409010848827`*^9, 3.993912102550915*^9}, + CellChangeTimes->{3.9913409010848827`*^9, 3.993912102543964*^9, + 3.9942522054972363`*^9}, CellLabel-> "During evaluation of \ -In[103]:=",ExpressionUUID->"b17ef004-d77b-4fe5-90bb-f4ccf207c41f"], +In[103]:=",ExpressionUUID->"afd90f38-7e0c-499b-917c-0aed03c79503"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.330377384592761`*^-227\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 103, 31, - 31385386164681285117, "kernel 4"}, +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 31, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913409010848827`*^9, 3.993912102557569*^9}, + CellChangeTimes->{3.9913409010848827`*^9, 3.993912102543964*^9, + 3.994252205507337*^9}, CellLabel-> "During evaluation of \ -In[103]:=",ExpressionUUID->"8c38a2b5-45d2-4981-b553-9d9f444c4e18"], +In[103]:=",ExpressionUUID->"4e7975cc-4579-4a8a-9765-7f387ea191a2"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 103, 32, 31385386164681285117, "kernel 4"}, +during this calculation.\"", 2, 103, 32, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913409010848827`*^9, 3.9939121025651093`*^9}, + CellChangeTimes->{3.9913409010848827`*^9, 3.993912102543964*^9, + 3.994252205516427*^9}, CellLabel-> "During evaluation of \ -In[103]:=",ExpressionUUID->"9181d198-d118-45ca-b234-b322e0d9ecff"], +In[103]:=",ExpressionUUID->"ce42ebf3-0374-4622-83e7-e0e885a8a6e5"], Cell[BoxData["17.851599335329013`"], "Output", - CellChangeTimes->{3.991340904517517*^9, 3.9939121065293083`*^9}, + CellChangeTimes->{3.991340904517517*^9, 3.9939121065293083`*^9, + 3.99425221399527*^9}, CellLabel-> - "Out[103]=",ExpressionUUID->"b94c2691-c1e6-4104-af4c-c67fde932089"] + "Out[103]=",ExpressionUUID->"13f2acf7-2273-40a1-adf2-3638b3aaae52"] }, Open ]], Cell[CellGroupData[{ @@ -9015,9 +9151,10 @@ Cell[BoxData[ "In[104]:=",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], Cell[BoxData["0.07000978348403886`"], "Output", - CellChangeTimes->{3.991340904549515*^9, 3.9939121065705557`*^9}, + CellChangeTimes->{3.991340904549515*^9, 3.9939121065705557`*^9, + 3.9942522140429907`*^9}, CellLabel-> - "Out[104]=",ExpressionUUID->"c817ca5a-df17-43b4-bbc9-912ce11cb5ff"] + "Out[104]=",ExpressionUUID->"1a547237-8137-4997-9358-157db023c36d"] }, Open ]], Cell[BoxData[ @@ -9052,9 +9189,10 @@ Cell[BoxData[ "In[106]:=",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], Cell[BoxData["16.94962275376489`"], "Output", - CellChangeTimes->{3.9913409045775146`*^9, 3.993912106586233*^9}, + CellChangeTimes->{3.9913409045775146`*^9, 3.993912106586233*^9, + 3.994252214068429*^9}, CellLabel-> - "Out[106]=",ExpressionUUID->"ee75bbc0-f5d2-491e-bb2b-cb01731265a7"] + "Out[106]=",ExpressionUUID->"af316221-74d9-44ef-81fd-a4de599772d3"] }, Open ]], Cell[CellGroupData[{ @@ -9067,9 +9205,10 @@ Cell[BoxData[ "In[107]:=",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], Cell[BoxData["2.975213477920308`"], "Output", - CellChangeTimes->{3.991340904625164*^9, 3.993912106598085*^9}, + CellChangeTimes->{3.991340904625164*^9, 3.993912106598085*^9, + 3.9942522140826197`*^9}, CellLabel-> - "Out[107]=",ExpressionUUID->"bbe162a2-1060-4605-a0ad-eb5227a98af3"] + "Out[107]=",ExpressionUUID->"7d1e6d15-f6b7-46d6-bc5d-9ea598b8801a"] }, Open ]], Cell[CellGroupData[{ @@ -9082,9 +9221,10 @@ Cell[BoxData[ "In[108]:=",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], Cell[BoxData["50.42874606266602`"], "Output", - CellChangeTimes->{3.9913409046880226`*^9, 3.993912106608663*^9}, + CellChangeTimes->{3.9913409046880226`*^9, 3.993912106608663*^9, + 3.994252214097498*^9}, CellLabel-> - "Out[108]=",ExpressionUUID->"413a2a6a-0c59-4327-bcc0-3fccf5d5787a"] + "Out[108]=",ExpressionUUID->"cd6d53f9-754f-421a-a6be-534f77ea3bbe"] }, Open ]], Cell[CellGroupData[{ @@ -9277,9 +9417,10 @@ Cell[BoxData[ "In[109]:=",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], Cell[BoxData["0.0042403749350725176`"], "Output", - CellChangeTimes->{3.9913409047132187`*^9, 3.993912106623413*^9}, + CellChangeTimes->{3.9913409047132187`*^9, 3.993912106623413*^9, + 3.994252214118371*^9}, CellLabel-> - "Out[109]=",ExpressionUUID->"b0294ce1-a456-4720-821b-9f05ab5b24b5"] + "Out[109]=",ExpressionUUID->"7a56a88b-fc30-42f4-8ba9-2c9d91f33c92"] }, Open ]], Cell[CellGroupData[{ @@ -9296,9 +9437,10 @@ Cell[BoxData[ "In[110]:=",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], Cell[BoxData["13.609520099224378`"], "Output", - CellChangeTimes->{3.9913409048112164`*^9, 3.993912106732172*^9}, + CellChangeTimes->{3.9913409048112164`*^9, 3.993912106732172*^9, + 3.994252214298647*^9}, CellLabel-> - "Out[110]=",ExpressionUUID->"3255e731-9f5b-431a-b9b5-328e97723b88"] + "Out[110]=",ExpressionUUID->"5d351e9f-c88c-4505-98b0-3822ffd8d4b0"] }, Open ]], Cell[CellGroupData[{ @@ -9493,9 +9635,10 @@ Cell[BoxData[ "In[111]:=",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], Cell[BoxData["0.017460187469405666`"], "Output", - CellChangeTimes->{3.991340904825058*^9, 3.9939121067466908`*^9}, + CellChangeTimes->{3.991340904825058*^9, 3.9939121067466908`*^9, + 3.994252214316947*^9}, CellLabel-> - "Out[111]=",ExpressionUUID->"cedc2bf1-8c94-4adf-b1ee-8d13d69fa332"] + "Out[111]=",ExpressionUUID->"2e78ee3b-f825-49cc-adb6-48bad5265a43"] }, Open ]], Cell[CellGroupData[{ @@ -9512,9 +9655,10 @@ Cell[BoxData[ "In[112]:=",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], Cell[BoxData["6.70687928193851`"], "Output", - CellChangeTimes->{3.9913409049303207`*^9, 3.993912106853984*^9}, + CellChangeTimes->{3.9913409049303207`*^9, 3.993912106853984*^9, + 3.9942522145069304`*^9}, CellLabel-> - "Out[112]=",ExpressionUUID->"70afbde4-dbd4-4813-9d0e-fa107074905b"] + "Out[112]=",ExpressionUUID->"961b7383-ce16-4177-908a-45d006d29fd3"] }, Open ]], Cell[CellGroupData[{ @@ -9610,9 +9754,10 @@ Cell[BoxData[ "In[113]:=",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], Cell[BoxData["0.16117107469700653`"], "Output", - CellChangeTimes->{3.991340904948307*^9, 3.993912106866806*^9}, + CellChangeTimes->{3.991340904948307*^9, 3.993912106866806*^9, + 3.994252214522235*^9}, CellLabel-> - "Out[113]=",ExpressionUUID->"27740d0e-6309-4ca3-acc9-2a2552f00d56"] + "Out[113]=",ExpressionUUID->"c108a918-e37c-4780-84f9-4dad3944b958"] }, Open ]], Cell[CellGroupData[{ @@ -9705,9 +9850,10 @@ Cell[BoxData[ "In[114]:=",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], Cell[BoxData["0.8388289253029935`"], "Output", - CellChangeTimes->{3.991340904981308*^9, 3.993912106877474*^9}, + CellChangeTimes->{3.991340904981308*^9, 3.993912106877474*^9, + 3.994252214538048*^9}, CellLabel-> - "Out[114]=",ExpressionUUID->"b8f1ffe2-9b56-4cc8-9411-f4faa833acd1"] + "Out[114]=",ExpressionUUID->"06c8e219-d49b-42e6-bae5-25a6783cacde"] }, Open ]], Cell[CellGroupData[{ @@ -9833,9 +9979,10 @@ Cell[BoxData[ "In[115]:=",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], Cell[BoxData["0.13519495937801848`"], "Output", - CellChangeTimes->{3.99134090500931*^9, 3.993912106891643*^9}, + CellChangeTimes->{3.99134090500931*^9, 3.993912106891643*^9, + 3.994252214557754*^9}, CellLabel-> - "Out[115]=",ExpressionUUID->"11ea2195-77ce-40ce-8811-6922e74ef4a9"] + "Out[115]=",ExpressionUUID->"be0d79c1-e990-4c44-ac80-36d571b19277"] }, Open ]], Cell[CellGroupData[{ @@ -9905,64 +10052,72 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.7393704151698523`*^-225\\\", \ -\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ -0000000000000000\\\"]\\) is too small to represent as a normalized machine \ -number; precision may be lost.\"", 2, 116, 33, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"2735526583816145583533735060711274031995\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"10\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5590907374121359182397440000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 116, + 33, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991340905038307*^9, 3.993912106907434*^9}, + CellChangeTimes->{3.991340905038307*^9, 3.993912106907434*^9, + 3.9942522145780697`*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"acc2657f-b05a-4915-b775-05bd912b1707"], +In[116]:=",ExpressionUUID->"d180821c-3181-4b32-991d-a187871d9fff"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.643222556435218`*^-231\\\", \ -\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ -6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ -number; precision may be lost.\"", 2, 116, 34, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"4160735933984357432554811027341847802665\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"13\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3770116038587316426506240000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 116, + 34, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991340905038307*^9, 3.993912106917247*^9}, + CellChangeTimes->{3.991340905038307*^9, 3.993912106907434*^9, + 3.9942522145917597`*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"fc94fe14-976c-4d72-9441-2fb377b4c354"], +In[116]:=",ExpressionUUID->"2d7763ea-f0cc-42ff-baa9-a4c551815adb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.765546954408762`*^-237\\\", \ -\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ -9984000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 116, 35, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 116, + 35, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991340905038307*^9, 3.99391210692492*^9}, + CellChangeTimes->{3.991340905038307*^9, 3.993912106907434*^9, + 3.994252214601355*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"ea47a809-cf75-48da-8f3c-c08d2e09dc6d"], +In[116]:=",ExpressionUUID->"f7fa4a09-44a4-4e6c-85d0-06cf0554a42d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 116, 36, 31385386164681285117, "kernel 4"}, +during this calculation.\"", 2, 116, 36, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991340905038307*^9, 3.993912106933236*^9}, + CellChangeTimes->{3.991340905038307*^9, 3.993912106907434*^9, + 3.994252214610705*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"0555ae8b-c763-41dc-a845-0d000ca9f8f2"], +In[116]:=",ExpressionUUID->"0bb8fe6d-6de9-4340-8a5b-9987c778e420"], Cell[BoxData["13.609520099224374`"], "Output", - CellChangeTimes->{3.991340908920454*^9, 3.9939121106819696`*^9}, + CellChangeTimes->{3.991340908920454*^9, 3.9939121106819696`*^9, + 3.994252221910619*^9}, CellLabel-> - "Out[116]=",ExpressionUUID->"64b93019-d93d-4c56-926a-c6f145ac8a3b"] + "Out[116]=",ExpressionUUID->"7c233497-860a-41b4-be90-eee6c7910159"] }, Open ]], Cell[CellGroupData[{ @@ -10032,64 +10187,72 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.7393704151698523`*^-225\\\", \ -\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ -0000000000000000\\\"]\\) is too small to represent as a normalized machine \ -number; precision may be lost.\"", 2, 117, 37, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"2735526583816145583533735060711274031995\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"10\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5590907374121359182397440000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 37, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991340908954941*^9, 3.993912110721792*^9}, + CellChangeTimes->{3.991340908954941*^9, 3.993912110721792*^9, + 3.994252221981333*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"5609db64-4bc9-4fca-95dc-b85c83ff4a04"], +In[117]:=",ExpressionUUID->"4231c19e-3b66-4946-9273-c7730b3fdc11"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.643222556435218`*^-231\\\", \ -\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ -6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ -number; precision may be lost.\"", 2, 117, 38, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"4160735933984357432554811027341847802665\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"13\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3770116038587316426506240000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 38, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991340908954941*^9, 3.993912110729389*^9}, + CellChangeTimes->{3.991340908954941*^9, 3.993912110721792*^9, + 3.994252221991707*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"6a64fa50-0a02-4c38-900c-48d270e3efdb"], +In[117]:=",ExpressionUUID->"f18eb8c9-2418-4415-9438-fdee83c92151"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.765546954408762`*^-237\\\", \ -\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ -9984000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 117, 39, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 39, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991340908954941*^9, 3.993912110736484*^9}, + CellChangeTimes->{3.991340908954941*^9, 3.993912110721792*^9, + 3.9942522220008793`*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"271ff691-986a-4617-99af-9512043f60c2"], +In[117]:=",ExpressionUUID->"d185322b-c82c-4d04-9b68-dea3a8db1526"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 117, 40, 31385386164681285117, "kernel 4"}, +during this calculation.\"", 2, 117, 40, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991340908954941*^9, 3.993912110743696*^9}, + CellChangeTimes->{3.991340908954941*^9, 3.993912110721792*^9, + 3.9942522220095453`*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"bab3307a-d867-4080-974e-37041fda9aef"], +In[117]:=",ExpressionUUID->"2d3f6b0c-c841-4e14-9efd-425e033c1d08"], Cell[BoxData["6.706879281938506`"], "Output", - CellChangeTimes->{3.991340912767397*^9, 3.993912114336217*^9}, + CellChangeTimes->{3.991340912767397*^9, 3.993912114336217*^9, + 3.994252229233118*^9}, CellLabel-> - "Out[117]=",ExpressionUUID->"23ca59b0-2bc0-4fe2-9ec5-2906154386eb"] + "Out[117]=",ExpressionUUID->"79d2e1ab-31f1-411c-bb95-9f9df341c1e2"] }, Open ]], Cell[CellGroupData[{ @@ -10535,9 +10698,10 @@ CLjxydSxEHvza9sff2IJ4NWrjVz2/zqk/to= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913411752988663`*^9, 3.993912410537126*^9}, + CellChangeTimes->{3.9913411752988663`*^9, 3.993912410537126*^9, + 3.994252810501947*^9}, CellLabel-> - "Out[118]=",ExpressionUUID->"373032e6-a28c-49d9-b73f-ee267fe015f8"] + "Out[118]=",ExpressionUUID->"75238c90-19de-4e43-8509-2637fae42353"] }, Open ]], Cell[CellGroupData[{ @@ -10610,13 +10774,14 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"5.1554832222991776`*^-272\\\", \ \\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 119, - 41, 31385386164681285117, "kernel 4"}, + 41, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913411755393047`*^9, 3.993912410709701*^9}, + CellChangeTimes->{3.9913411755393047`*^9, 3.993912410709701*^9, + 3.994252810701159*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"229491b9-d572-42e7-8b5d-0a96b9aef6e4"], +In[119]:=",ExpressionUUID->"1d8160a1-3191-4bc0-9f40-19a070042db8"], Cell[BoxData[ TemplateBox[{ @@ -10624,13 +10789,14 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"2.404412045609285`*^-284\\\", \ \\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 119, - 42, 31385386164681285117, "kernel 4"}, + 42, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913411755393047`*^9, 3.993912410716975*^9}, + CellChangeTimes->{3.9913411755393047`*^9, 3.993912410709701*^9, + 3.994252810710372*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"f3b8e882-eb53-4b16-a144-bf798835878d"], +In[119]:=",ExpressionUUID->"cc9ba6e5-de30-4382-81b8-b0534b63b4dc"], Cell[BoxData[ TemplateBox[{ @@ -10638,26 +10804,28 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"1.1213686546520867`*^-296\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 119, - 43, 31385386164681285117, "kernel 4"}, + 43, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913411755393047`*^9, 3.993912410726171*^9}, + CellChangeTimes->{3.9913411755393047`*^9, 3.993912410709701*^9, + 3.994252810719411*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"dd2c2aed-4395-48a9-adf4-4496916a500c"], +In[119]:=",ExpressionUUID->"921e5de4-3bcc-4024-a64f-9107f9e41997"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 119, 44, 31385386164681285117, "kernel 4"}, +during this calculation.\"", 2, 119, 44, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913411755393047`*^9, 3.993912410735224*^9}, + CellChangeTimes->{3.9913411755393047`*^9, 3.993912410709701*^9, + 3.9942528107282877`*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"680aad12-30e2-408a-972d-76f4a5801e65"], +In[119]:=",ExpressionUUID->"63ad2bf5-1660-47b8-98d5-3ba8f2826766"], Cell[BoxData[ GraphicsBox[ @@ -11074,9 +11242,10 @@ mJlMn7oZFtq6cZK1l4SDpFGZ9t45FuqvdDvd/JsNlw/W/ZqfZ2HGxIO7viNs Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913414579436264`*^9, 3.993912716210352*^9}, + CellChangeTimes->{3.9913414579436264`*^9, 3.993912716210352*^9, + 3.994253311225645*^9}, CellLabel-> - "Out[119]=",ExpressionUUID->"ab52bdca-383e-46fc-a617-412f999fef4b"] + "Out[119]=",ExpressionUUID->"ecd4a90e-d169-4739-87d8-08ca5ec8b03a"] }, Open ]], Cell[CellGroupData[{ @@ -11635,9 +11804,9 @@ SA== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.99391271628644*^9}, + CellChangeTimes->{3.99391271628644*^9, 3.994253311311561*^9}, CellLabel-> - "Out[120]=",ExpressionUUID->"6d874a5f-3866-4845-bfd4-441b17aa13b8"] + "Out[120]=",ExpressionUUID->"7bb4b159-abd6-45df-bfca-a1d2df5d2c9e"] }, Open ]], Cell[CellGroupData[{ @@ -11696,64 +11865,72 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.4794716694365126`*^-182\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 121, 45, 31385386164681285117, "kernel 4"}, +RowBox[{\\\"240596938679980309735403735113653345779\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"54\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8305808000876544000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 45, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913423358439445`*^9, 3.993912716331231*^9}, + CellChangeTimes->{3.9913423358439445`*^9, 3.993912716331231*^9, + 3.9942533113655024`*^9}, CellLabel-> "During evaluation of \ -In[121]:=",ExpressionUUID->"cfce7262-7c7f-409f-bb54-d978dec4752e"], +In[121]:=",ExpressionUUID->"8cbf26ae-0b86-4069-871b-e6ae366a6e2b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.627283517099366`*^-186\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 121, 46, 31385386164681285117, "kernel 4"}, +RowBox[{\\\"650574122190666757524531699747318646986\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"57\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8904834370174976000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 46, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913423358439445`*^9, 3.993912716340466*^9}, + CellChangeTimes->{3.9913423358439445`*^9, 3.993912716331231*^9, + 3.994253311374732*^9}, CellLabel-> "During evaluation of \ -In[121]:=",ExpressionUUID->"648a4740-4a12-4ce8-813e-d41610c31ddd"], +In[121]:=",ExpressionUUID->"64a8d3cd-1f3d-4de0-b543-fd9669f4973f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.6637546364509728`*^-189\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 121, 47, 31385386164681285117, "kernel 4"}, +RowBox[{\\\"182746270923358292188640954459021807938\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"61\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3679745821507584000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 47, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913423358439445`*^9, 3.9939127163497066`*^9}, + CellChangeTimes->{3.9913423358439445`*^9, 3.993912716331231*^9, + 3.994253311382729*^9}, CellLabel-> "During evaluation of \ -In[121]:=",ExpressionUUID->"399e01f3-0d98-4a3e-bae9-36fff93a732a"], +In[121]:=",ExpressionUUID->"38502e96-b8ba-443f-8b3b-4ccfe65d78fa"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 121, 48, 31385386164681285117, "kernel 4"}, +during this calculation.\"", 2, 121, 48, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913423358439445`*^9, 3.99391271635874*^9}, + CellChangeTimes->{3.9913423358439445`*^9, 3.993912716331231*^9, + 3.994253311391699*^9}, CellLabel-> "During evaluation of \ -In[121]:=",ExpressionUUID->"298a4869-e7b3-4753-86b4-507afe95fb1a"], +In[121]:=",ExpressionUUID->"bb68c53a-7e3e-444d-8c72-9a375f743cbc"], Cell[BoxData["14.385319078275895`"], "Output", - CellChangeTimes->{3.9913423425170345`*^9, 3.993912758400791*^9}, + CellChangeTimes->{3.9913423425170345`*^9, 3.993912758400791*^9, + 3.9942533908554068`*^9}, CellLabel-> - "Out[121]=",ExpressionUUID->"404a6740-64f1-4915-8722-d2366871ccec"] + "Out[121]=",ExpressionUUID->"2bcd0e41-0998-4150-993a-04b2f3003b3d"] }, Open ]], Cell[CellGroupData[{ @@ -11828,64 +12005,72 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.7393704151698523`*^-225\\\", \ -\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ -0000000000000000\\\"]\\) is too small to represent as a normalized machine \ -number; precision may be lost.\"", 2, 122, 49, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"2735526583816145583533735060711274031995\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"10\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5590907374121359182397440000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 49, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913423425545177`*^9, 3.9939127584439993`*^9}, + CellChangeTimes->{3.9913423425545177`*^9, 3.9939127584439993`*^9, + 3.9942533909072323`*^9}, CellLabel-> "During evaluation of \ -In[122]:=",ExpressionUUID->"08e13102-b647-4676-8d9c-2ff06de37db1"], +In[122]:=",ExpressionUUID->"fb2af577-1a23-4b27-bd2e-a6f96a6290db"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.643222556435218`*^-231\\\", \ -\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ -6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ -number; precision may be lost.\"", 2, 122, 50, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"4160735933984357432554811027341847802665\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"13\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3770116038587316426506240000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 50, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913423425545177`*^9, 3.9939127584524937`*^9}, + CellChangeTimes->{3.9913423425545177`*^9, 3.9939127584439993`*^9, + 3.994253390916864*^9}, CellLabel-> "During evaluation of \ -In[122]:=",ExpressionUUID->"c1627039-52a2-48f5-92df-21a36bd5f3ee"], +In[122]:=",ExpressionUUID->"92a20f66-3856-41ac-9ede-65976ac60aa0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.765546954408762`*^-237\\\", \ -\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ -9984000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 122, 51, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 51, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913423425545177`*^9, 3.993912758459437*^9}, + CellChangeTimes->{3.9913423425545177`*^9, 3.9939127584439993`*^9, + 3.994253390926705*^9}, CellLabel-> "During evaluation of \ -In[122]:=",ExpressionUUID->"0bc75149-5217-4ee4-953e-abff7f8d9bf4"], +In[122]:=",ExpressionUUID->"b5390dd9-e50e-400f-81c9-8ad506b15539"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 122, 52, 31385386164681285117, "kernel 4"}, +during this calculation.\"", 2, 122, 52, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913423425545177`*^9, 3.993912758466427*^9}, + CellChangeTimes->{3.9913423425545177`*^9, 3.9939127584439993`*^9, + 3.994253390936117*^9}, CellLabel-> "During evaluation of \ -In[122]:=",ExpressionUUID->"f4c743c9-2e71-4500-ba4e-eaaaeadb48ac"], +In[122]:=",ExpressionUUID->"b59cbb34-9b7c-4756-9ff3-f6a9517fe53b"], Cell[BoxData["0.37076547999732745`"], "Output", - CellChangeTimes->{3.9913423499055786`*^9, 3.993912765278905*^9}, + CellChangeTimes->{3.9913423499055786`*^9, 3.993912765278905*^9, + 3.99425340162675*^9}, CellLabel-> - "Out[122]=",ExpressionUUID->"5a7bbfe4-5710-4f45-b0da-cd2af6187550"] + "Out[122]=",ExpressionUUID->"e9f8b69b-1bcc-49c9-ac8a-a42ecfc692ee"] }, Open ]], Cell[CellGroupData[{ @@ -11959,64 +12144,72 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.7393704151698523`*^-225\\\", \ -\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ -0000000000000000\\\"]\\) is too small to represent as a normalized machine \ -number; precision may be lost.\"", 2, 123, 53, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"2735526583816145583533735060711274031995\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"10\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5590907374121359182397440000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 123, + 53, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913423499435787`*^9, 3.9939127653187943`*^9}, + CellChangeTimes->{3.9913423499435787`*^9, 3.9939127653187943`*^9, + 3.994253401681436*^9}, CellLabel-> "During evaluation of \ -In[123]:=",ExpressionUUID->"0322bb50-add5-4a7b-8406-de7d73619985"], +In[123]:=",ExpressionUUID->"c5229037-1610-4760-9ad3-20cf3f6a9e32"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.643222556435218`*^-231\\\", \ -\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ -6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ -number; precision may be lost.\"", 2, 123, 54, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"4160735933984357432554811027341847802665\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"13\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3770116038587316426506240000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 123, + 54, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913423499435787`*^9, 3.993912765325923*^9}, + CellChangeTimes->{3.9913423499435787`*^9, 3.9939127653187943`*^9, + 3.994253401691551*^9}, CellLabel-> "During evaluation of \ -In[123]:=",ExpressionUUID->"6f8d455e-9065-4a13-8830-444aef8f08ae"], +In[123]:=",ExpressionUUID->"b2d9056d-40a1-473c-af56-77a90642e0c0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.765546954408762`*^-237\\\", \ -\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ -9984000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 123, 55, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 123, + 55, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913423499435787`*^9, 3.993912765334044*^9}, + CellChangeTimes->{3.9913423499435787`*^9, 3.9939127653187943`*^9, + 3.994253401702649*^9}, CellLabel-> "During evaluation of \ -In[123]:=",ExpressionUUID->"81d831d1-b9f4-4476-b9f6-15cbc6f5cff8"], +In[123]:=",ExpressionUUID->"c70cdeb2-894d-4f6c-9f22-cead672482e1"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 123, 56, 31385386164681285117, "kernel 4"}, +during this calculation.\"", 2, 123, 56, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913423499435787`*^9, 3.993912765342657*^9}, + CellChangeTimes->{3.9913423499435787`*^9, 3.9939127653187943`*^9, + 3.9942534017102213`*^9}, CellLabel-> "During evaluation of \ -In[123]:=",ExpressionUUID->"84365a8b-8af6-4e8a-8b89-8020ce96f185"], +In[123]:=",ExpressionUUID->"7cab5c39-da1a-4886-9acb-9e9b5343dbfd"], Cell[BoxData["50.60916543665978`"], "Output", - CellChangeTimes->{3.991342356382967*^9, 3.993912771610303*^9}, + CellChangeTimes->{3.991342356382967*^9, 3.993912771610303*^9, + 3.994253411863036*^9}, CellLabel-> - "Out[123]=",ExpressionUUID->"cba9e17d-9411-4ab4-afe0-ac9f29cd584b"] + "Out[123]=",ExpressionUUID->"392f7307-5d59-4bd8-8337-1d2404584fc2"] }, Open ]], Cell[CellGroupData[{ @@ -12090,64 +12283,72 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.7393704151698523`*^-225\\\", \ -\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ -0000000000000000\\\"]\\) is too small to represent as a normalized machine \ -number; precision may be lost.\"", 2, 124, 57, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"2735526583816145583533735060711274031995\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"10\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5590907374121359182397440000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 124, + 57, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991342356420965*^9, 3.993912771653872*^9}, + CellChangeTimes->{3.991342356420965*^9, 3.993912771653872*^9, + 3.994253411915989*^9}, CellLabel-> "During evaluation of \ -In[124]:=",ExpressionUUID->"9c89276c-fa41-4c3e-b2d4-9977f1ba49d8"], +In[124]:=",ExpressionUUID->"c6776229-777f-4b2b-affd-3864a832a7be"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.643222556435218`*^-231\\\", \ -\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ -6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ -number; precision may be lost.\"", 2, 124, 58, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"4160735933984357432554811027341847802665\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"13\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3770116038587316426506240000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 124, + 58, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991342356420965*^9, 3.993912771661523*^9}, + CellChangeTimes->{3.991342356420965*^9, 3.993912771653872*^9, + 3.994253411925602*^9}, CellLabel-> "During evaluation of \ -In[124]:=",ExpressionUUID->"e5fbb5b0-06cb-48bd-98fc-9c85a6e511b0"], +In[124]:=",ExpressionUUID->"d0eddb0b-2ceb-4aa1-aff6-6f86b7ff923f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.765546954408762`*^-237\\\", \ -\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ -9984000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 124, 59, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 124, + 59, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991342356420965*^9, 3.993912771668881*^9}, + CellChangeTimes->{3.991342356420965*^9, 3.993912771653872*^9, + 3.994253411933641*^9}, CellLabel-> "During evaluation of \ -In[124]:=",ExpressionUUID->"0a7b17e8-2ade-45f1-b57b-479f9735141c"], +In[124]:=",ExpressionUUID->"09f0355d-44f0-43f4-8c2b-391cff16c0e8"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 124, 60, 31385386164681285117, "kernel 4"}, +during this calculation.\"", 2, 124, 60, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991342356420965*^9, 3.993912771675825*^9}, + CellChangeTimes->{3.991342356420965*^9, 3.993912771653872*^9, + 3.99425341194247*^9}, CellLabel-> "During evaluation of \ -In[124]:=",ExpressionUUID->"34fefe3f-c3df-4f59-a155-f5637c31b37b"], +In[124]:=",ExpressionUUID->"322529fd-6f4a-4691-abd2-1a07226bc465"], Cell[BoxData["12.290923965082513`"], "Output", - CellChangeTimes->{3.9913423600715523`*^9, 3.993912775488983*^9}, + CellChangeTimes->{3.9913423600715523`*^9, 3.993912775488983*^9, + 3.99425342028249*^9}, CellLabel-> - "Out[124]=",ExpressionUUID->"cb63632a-af24-427f-bc6c-b14e18b51048"] + "Out[124]=",ExpressionUUID->"40d74f25-7942-4ccf-9156-f64082896228"] }, Open ]], Cell[CellGroupData[{ @@ -12161,9 +12362,10 @@ Cell[BoxData[ "In[125]:=",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], Cell[BoxData["0.014865942157169803`"], "Output", - CellChangeTimes->{3.9913423601046352`*^9, 3.993912775532261*^9}, + CellChangeTimes->{3.9913423601046352`*^9, 3.993912775532261*^9, + 3.9942534203244753`*^9}, CellLabel-> - "Out[125]=",ExpressionUUID->"10d078a8-e622-441e-bbf2-f64da6aa6256"] + "Out[125]=",ExpressionUUID->"aa5a1de9-54a8-42f9-b6bd-c88b246804fa"] }, Open ]], Cell[BoxData[ @@ -12198,9 +12400,10 @@ Cell[BoxData[ "In[127]:=",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], Cell[BoxData["26.466421626583998`"], "Output", - CellChangeTimes->{3.9913423601345863`*^9, 3.993912775549241*^9}, + CellChangeTimes->{3.9913423601345863`*^9, 3.993912775549241*^9, + 3.994253420350707*^9}, CellLabel-> - "Out[127]=",ExpressionUUID->"98957ea6-cb79-49d7-8df0-1e2d27795ff1"] + "Out[127]=",ExpressionUUID->"9e0c5d24-e694-4373-a6a8-44624ef24fc5"] }, Open ]], Cell[CellGroupData[{ @@ -12213,9 +12416,10 @@ Cell[BoxData[ "In[128]:=",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], Cell[BoxData["2.3809514381765835`"], "Output", - CellChangeTimes->{3.9913423601709976`*^9, 3.993912775558277*^9}, + CellChangeTimes->{3.9913423601709976`*^9, 3.993912775558277*^9, + 3.9942534203664713`*^9}, CellLabel-> - "Out[128]=",ExpressionUUID->"e07fe9e3-1fe9-48d6-a230-2f4f9742927d"] + "Out[128]=",ExpressionUUID->"144723de-c2b6-4024-8a53-e7b2286a9fd6"] }, Open ]], Cell[CellGroupData[{ @@ -12228,9 +12432,10 @@ Cell[BoxData[ "In[129]:=",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], Cell[BoxData["63.015264635203`"], "Output", - CellChangeTimes->{3.9913423602320137`*^9, 3.993912775567246*^9}, + CellChangeTimes->{3.9913423602320137`*^9, 3.993912775567246*^9, + 3.994253420380333*^9}, CellLabel-> - "Out[129]=",ExpressionUUID->"37258d1e-a81d-4816-8722-12ff0cecfa34"] + "Out[129]=",ExpressionUUID->"71009fe9-36f9-4415-aca7-cbe0213a59d9"] }, Open ]], Cell[CellGroupData[{ @@ -12423,9 +12628,10 @@ Cell[BoxData[ "In[130]:=",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], Cell[BoxData["0.00402552632389992`"], "Output", - CellChangeTimes->{3.991342360260002*^9, 3.993912775582375*^9}, + CellChangeTimes->{3.991342360260002*^9, 3.993912775582375*^9, + 3.994253420398885*^9}, CellLabel-> - "Out[130]=",ExpressionUUID->"f4e2634f-e356-4876-be2d-a5493db37b99"] + "Out[130]=",ExpressionUUID->"599a3880-12e2-4f06-a52e-70d89b0b17d8"] }, Open ]], Cell[CellGroupData[{ @@ -12442,9 +12648,10 @@ Cell[BoxData[ "In[131]:=",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], Cell[BoxData["13.967980022237668`"], "Output", - CellChangeTimes->{3.9913423603598785`*^9, 3.9939127757079067`*^9}, + CellChangeTimes->{3.9913423603598785`*^9, 3.9939127757079067`*^9, + 3.99425342059101*^9}, CellLabel-> - "Out[131]=",ExpressionUUID->"948bc8f1-7908-4795-9185-1c020f3087b2"] + "Out[131]=",ExpressionUUID->"48fe709f-c83c-4fb4-8e65-75f8c294c0d7"] }, Open ]], Cell[CellGroupData[{ @@ -12639,9 +12846,10 @@ Cell[BoxData[ "In[132]:=",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], Cell[BoxData["0.014314410130108944`"], "Output", - CellChangeTimes->{3.991342360375868*^9, 3.993912775719242*^9}, + CellChangeTimes->{3.991342360375868*^9, 3.993912775719242*^9, + 3.994253420609077*^9}, CellLabel-> - "Out[132]=",ExpressionUUID->"2d760fb4-18c0-4989-9ceb-8a61e4109e39"] + "Out[132]=",ExpressionUUID->"ad4f7145-fe8a-40db-bec6-a9c70ae4bf5d"] }, Open ]], Cell[CellGroupData[{ @@ -12658,9 +12866,10 @@ Cell[BoxData[ "In[133]:=",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], Cell[BoxData["7.407270635864089`"], "Output", - CellChangeTimes->{3.991342360471882*^9, 3.99391277582664*^9}, + CellChangeTimes->{3.991342360471882*^9, 3.99391277582664*^9, + 3.994253420803323*^9}, CellLabel-> - "Out[133]=",ExpressionUUID->"c1399915-4933-4213-aa79-c1165d03b33f"] + "Out[133]=",ExpressionUUID->"0f67e40c-df43-4b08-92fd-687b657658f5"] }, Open ]], Cell[CellGroupData[{ @@ -12756,9 +12965,10 @@ Cell[BoxData[ "In[134]:=",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], Cell[BoxData["0.16117107469700653`"], "Output", - CellChangeTimes->{3.991342360486868*^9, 3.993912775836749*^9}, + CellChangeTimes->{3.991342360486868*^9, 3.993912775836749*^9, + 3.99425342082021*^9}, CellLabel-> - "Out[134]=",ExpressionUUID->"9d6d77aa-89dd-4721-9b94-91e8f51afdef"] + "Out[134]=",ExpressionUUID->"08887665-7d35-4459-a9f6-d1eb64745bc2"] }, Open ]], Cell[CellGroupData[{ @@ -12851,9 +13061,10 @@ Cell[BoxData[ "In[135]:=",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], Cell[BoxData["0.8388289253029935`"], "Output", - CellChangeTimes->{3.9913423605138645`*^9, 3.9939127758475733`*^9}, + CellChangeTimes->{3.9913423605138645`*^9, 3.9939127758475733`*^9, + 3.994253420837973*^9}, CellLabel-> - "Out[135]=",ExpressionUUID->"75b5bbaf-5d27-4740-a454-4909289ef362"] + "Out[135]=",ExpressionUUID->"e97db3b2-c6d7-4432-b4f3-e6b9dac7b319"] }, Open ]], Cell[CellGroupData[{ @@ -12979,9 +13190,10 @@ Cell[BoxData[ "In[136]:=",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], Cell[BoxData["0.13519495937801848`"], "Output", - CellChangeTimes->{3.9913423605448647`*^9, 3.993912775858635*^9}, + CellChangeTimes->{3.9913423605448647`*^9, 3.993912775858635*^9, + 3.9942534208556347`*^9}, CellLabel-> - "Out[136]=",ExpressionUUID->"e312c472-4b6b-4aba-8d82-2f30cc9384f7"] + "Out[136]=",ExpressionUUID->"ca415d9d-077f-4a29-b388-872a2a532333"] }, Open ]], Cell[CellGroupData[{ @@ -13051,64 +13263,72 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.11265480661595`*^-218\\\", \ -\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ -6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ -number; precision may be lost.\"", 2, 137, 61, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"4160735933984357432554811027341847802665\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"13\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3770116038587316426506240000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 137, + 61, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991342360571863*^9, 3.993912775874619*^9}, + CellChangeTimes->{3.991342360571863*^9, 3.993912775874619*^9, + 3.994253420872253*^9}, CellLabel-> "During evaluation of \ -In[137]:=",ExpressionUUID->"587d9919-fb91-44cf-8ae5-b37f8c1acd6e"], +In[137]:=",ExpressionUUID->"753d83eb-3802-411d-8c94-08211d5e74eb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.480319396051099`*^-223\\\", \ -\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ -9984000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 137, 62, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 137, + 62, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991342360571863*^9, 3.99391277588249*^9}, + CellChangeTimes->{3.991342360571863*^9, 3.993912775874619*^9, + 3.9942534208812*^9}, CellLabel-> "During evaluation of \ -In[137]:=",ExpressionUUID->"336087e0-c45f-4a04-991a-e587f0464e8a"], +In[137]:=",ExpressionUUID->"23c82af4-61fc-43ca-8494-25c9ced5d8ee"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"6.751034069633404`*^-229\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 137, 63, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 137, + 63, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991342360571863*^9, 3.993912775889537*^9}, + CellChangeTimes->{3.991342360571863*^9, 3.993912775874619*^9, + 3.9942534208901987`*^9}, CellLabel-> "During evaluation of \ -In[137]:=",ExpressionUUID->"084c5824-71b7-4e77-a5c0-6671342e04b4"], +In[137]:=",ExpressionUUID->"988ebff3-a2fb-49d0-be8e-7416a923263f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 137, 64, 31385386164681285117, "kernel 4"}, +during this calculation.\"", 2, 137, 64, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991342360571863*^9, 3.993912775896323*^9}, + CellChangeTimes->{3.991342360571863*^9, 3.993912775874619*^9, + 3.994253420897685*^9}, CellLabel-> "During evaluation of \ -In[137]:=",ExpressionUUID->"f71589a5-118d-49c5-90d1-9abcf543e506"], +In[137]:=",ExpressionUUID->"ee7fbec6-1335-4214-8f5e-ff70178c39c6"], Cell[BoxData["13.967980022237661`"], "Output", - CellChangeTimes->{3.9913423642473736`*^9, 3.993912779666295*^9}, + CellChangeTimes->{3.9913423642473736`*^9, 3.993912779666295*^9, + 3.994253428391025*^9}, CellLabel-> - "Out[137]=",ExpressionUUID->"9bcf5af4-0d31-4fed-bd77-fed4551191d0"] + "Out[137]=",ExpressionUUID->"27171da1-bc76-4475-b9a5-007d3c95a17b"] }, Open ]], Cell[CellGroupData[{ @@ -13178,64 +13398,72 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.11265480661595`*^-218\\\", \ -\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ -6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ -number; precision may be lost.\"", 2, 138, 65, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"4160735933984357432554811027341847802665\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"13\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3770116038587316426506240000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 65, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991342364284378*^9, 3.993912779706501*^9}, + CellChangeTimes->{3.991342364284378*^9, 3.993912779706501*^9, + 3.994253428446228*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"8c8c5809-eb70-4da7-baa0-761124a426c8"], +In[138]:=",ExpressionUUID->"159586e4-876b-4f0a-b0ab-9ac2080bb753"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.480319396051099`*^-223\\\", \ -\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ -9984000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 138, 66, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 66, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991342364284378*^9, 3.993912779717695*^9}, + CellChangeTimes->{3.991342364284378*^9, 3.993912779706501*^9, + 3.994253428455518*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"49bc33d5-d0cb-47d1-a8f9-445a19777b30"], +In[138]:=",ExpressionUUID->"862141af-4571-430e-ab5d-f9e8e2699ae0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"6.751034069633404`*^-229\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 138, 67, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 67, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991342364284378*^9, 3.993912779725732*^9}, + CellChangeTimes->{3.991342364284378*^9, 3.993912779706501*^9, + 3.9942534284651413`*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"bdd7c7ba-7511-45f1-8b73-d5b39787dfaa"], +In[138]:=",ExpressionUUID->"e76c89a0-9eeb-4bfa-bd3a-fc0aaee46d27"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 138, 68, 31385386164681285117, "kernel 4"}, +during this calculation.\"", 2, 138, 68, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991342364284378*^9, 3.9939127797351627`*^9}, + CellChangeTimes->{3.991342364284378*^9, 3.993912779706501*^9, + 3.994253428472879*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"a1040f5d-c197-4141-893c-ca8e86dcadc5"], +In[138]:=",ExpressionUUID->"5dce7824-7bdb-4079-b68c-de8e5a292cda"], Cell[BoxData["7.407270635864098`"], "Output", - CellChangeTimes->{3.9913423679416714`*^9, 3.993912783449691*^9}, + CellChangeTimes->{3.9913423679416714`*^9, 3.993912783449691*^9, + 3.994253435856599*^9}, CellLabel-> - "Out[138]=",ExpressionUUID->"af88e2c9-a79c-4b32-bb9f-e1b399ec900f"] + "Out[138]=",ExpressionUUID->"fe83e27a-763b-44a0-a0c6-20fdc9673c57"] }, Open ]], Cell[CellGroupData[{ @@ -13678,9 +13906,10 @@ em22P1cjCdA6HJ695v8Dhz7w2w== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991342629715925*^9, 3.993913074672179*^9}, + CellChangeTimes->{3.991342629715925*^9, 3.993913074672179*^9, + 3.994254011421433*^9}, CellLabel-> - "Out[139]=",ExpressionUUID->"78d6b1e4-782b-42e4-bbde-3a65a383ffb7"] + "Out[139]=",ExpressionUUID->"83f1c413-7b90-45e7-85dc-1c49877213d9"] }, Open ]], Cell[CellGroupData[{ @@ -13753,13 +13982,14 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"1.6609917497192289`*^-276\\\", \ \\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 140, - 69, 31385386164681285117, "kernel 4"}, + 69, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913426299467087`*^9, 3.993913074818337*^9}, + CellChangeTimes->{3.9913426299467087`*^9, 3.993913074818337*^9, + 3.9942540116121387`*^9}, CellLabel-> "During evaluation of \ -In[140]:=",ExpressionUUID->"f3454c4a-6373-4e65-ae16-88e4016b94a6"], +In[140]:=",ExpressionUUID->"7e984491-7f5f-4c49-be11-de4071e7a95f"], Cell[BoxData[ TemplateBox[{ @@ -13767,13 +13997,14 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"1.6980429454765773`*^-288\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 140, - 70, 31385386164681285117, "kernel 4"}, + 70, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913426299467087`*^9, 3.9939130748278112`*^9}, + CellChangeTimes->{3.9913426299467087`*^9, 3.993913074818337*^9, + 3.99425401162374*^9}, CellLabel-> "During evaluation of \ -In[140]:=",ExpressionUUID->"6018480f-ce5e-420b-bdab-c22d183e739c"], +In[140]:=",ExpressionUUID->"c15c9f75-68bf-47a9-9a70-ff7c5cb8a373"], Cell[BoxData[ TemplateBox[{ @@ -13781,26 +14012,28 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"1.7359206300513918`*^-300\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 140, 71, 31385386164681285117, "kernel 4"}, + 140, 71, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913426299467087`*^9, 3.993913074836919*^9}, + CellChangeTimes->{3.9913426299467087`*^9, 3.993913074818337*^9, + 3.994254011633924*^9}, CellLabel-> "During evaluation of \ -In[140]:=",ExpressionUUID->"9510cf56-ef32-4d6d-974b-29bf848ef33f"], +In[140]:=",ExpressionUUID->"a60a32b6-3c1e-49e5-a675-8c27354dbf5a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 140, 72, 31385386164681285117, "kernel 4"}, +during this calculation.\"", 2, 140, 72, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913426299467087`*^9, 3.993913074845374*^9}, + CellChangeTimes->{3.9913426299467087`*^9, 3.993913074818337*^9, + 3.994254011643498*^9}, CellLabel-> "During evaluation of \ -In[140]:=",ExpressionUUID->"9f7a357c-8e18-4d8c-bdad-8097983e73f3"], +In[140]:=",ExpressionUUID->"8c40a3c9-6d63-48d4-8eaf-ec48127439f1"], Cell[BoxData[ GraphicsBox[ @@ -14211,9 +14444,10 @@ N5eq7ltk45aH38mg4BDI9a2ZWVpi47V4Xrlp7xD4P0L+io0= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913429049348164`*^9, 3.99391338310439*^9}, + CellChangeTimes->{3.9913429049348164`*^9, 3.99391338310439*^9, + 3.994254440220566*^9}, CellLabel-> - "Out[140]=",ExpressionUUID->"2338e335-369a-4cb4-ae1a-ebd00eec4ef3"] + "Out[140]=",ExpressionUUID->"ab26169a-6a27-4ae4-ad92-1e47940f5c3c"] }, Open ]], Cell[CellGroupData[{ @@ -14766,9 +15000,9 @@ SA== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9939133831812363`*^9}, + CellChangeTimes->{3.9939133831812363`*^9, 3.994254440301716*^9}, CellLabel-> - "Out[141]=",ExpressionUUID->"c8f5ccd8-cccc-4199-a9c4-f20a065fea70"] + "Out[141]=",ExpressionUUID->"40cb77f2-f4c7-4c14-8275-a655454428f7"] }, Open ]], Cell[CellGroupData[{ @@ -14827,64 +15061,72 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.4938537125733418`*^-184\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +RowBox[{\\\"370006826113003167605388289294353472939\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"47\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3285256179286120857600000000000000000000\\\"}]]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 142, - 73, 31385386164681285117, "kernel 4"}, + 73, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913437636167164`*^9, 3.9939133832202377`*^9}, + CellChangeTimes->{3.9913437636167164`*^9, 3.9939133832202377`*^9, + 3.9942544403726597`*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"5fca34ce-88c9-4fc3-94bb-f38cefe8cd5e"], +In[142]:=",ExpressionUUID->"df603f12-44e3-423e-8557-85ec2d30f3e3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.647057269916087`*^-188\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 142, 74, 31385386164681285117, "kernel 4"}, +RowBox[{\\\"925017065282507919013470723235883682349\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"50\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3140448215302144000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 74, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913437636167164`*^9, 3.993913383230113*^9}, + CellChangeTimes->{3.9913437636167164`*^9, 3.9939133832202377`*^9, + 3.994254440381237*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"491ac93b-fe37-4706-9c76-b51c4fedb2ca"], +In[142]:=",ExpressionUUID->"4a401f87-5dfd-420f-814a-ac60c49ad3c0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.6904942105377685`*^-192\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 142, 75, 31385386164681285117, "kernel 4"}, +RowBox[{\\\"240596938679980309735403735113653345779\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"54\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8305808000876544000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 75, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913437636167164`*^9, 3.9939133832389717`*^9}, + CellChangeTimes->{3.9913437636167164`*^9, 3.9939133832202377`*^9, + 3.994254440390366*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"8b844305-d7bf-4dad-aadc-af5bd7329332"], +In[142]:=",ExpressionUUID->"cfb12e8f-f201-4029-83fb-dd58f49cc606"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 142, 76, 31385386164681285117, "kernel 4"}, +during this calculation.\"", 2, 142, 76, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913437636167164`*^9, 3.9939133832474117`*^9}, + CellChangeTimes->{3.9913437636167164`*^9, 3.9939133832202377`*^9, + 3.9942544403996*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"fb2cf1c5-80e4-4341-b36d-3243a8e357df"], +In[142]:=",ExpressionUUID->"e1f2ce43-e284-4851-9c51-15baa2adcf1b"], Cell[BoxData["14.38550684381186`"], "Output", - CellChangeTimes->{3.991343769962549*^9, 3.993913426026228*^9}, + CellChangeTimes->{3.991343769962549*^9, 3.993913426026228*^9, + 3.9942544970035973`*^9}, CellLabel-> - "Out[142]=",ExpressionUUID->"6fb9d638-9120-4308-97e1-0a229b400907"] + "Out[142]=",ExpressionUUID->"9f6e96f0-dab9-4c13-9cc9-a563324b9a8b"] }, Open ]], Cell[CellGroupData[{ @@ -14959,64 +15201,72 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.11265480661595`*^-218\\\", \ -\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ -6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ -number; precision may be lost.\"", 2, 143, 77, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"4160735933984357432554811027341847802665\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"13\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3770116038587316426506240000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 77, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991343769999645*^9, 3.993913426066901*^9}, + CellChangeTimes->{3.991343769999645*^9, 3.993913426066901*^9, + 3.994254497055768*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"5e368c30-bf63-4928-a2ea-dc6fd946e4bc"], +In[143]:=",ExpressionUUID->"9b80a7f9-a216-40c9-85e2-a9d93a884199"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.480319396051099`*^-223\\\", \ -\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ -9984000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 143, 78, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 78, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991343769999645*^9, 3.993913426075159*^9}, + CellChangeTimes->{3.991343769999645*^9, 3.993913426066901*^9, + 3.9942544970634813`*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"e1e81615-1120-4083-97d2-cc1835eb7ab0"], +In[143]:=",ExpressionUUID->"ec2b3aba-2214-45bf-be05-af4c13f8cd00"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"6.751034069633404`*^-229\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 143, 79, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 79, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991343769999645*^9, 3.9939134260825768`*^9}, + CellChangeTimes->{3.991343769999645*^9, 3.993913426066901*^9, + 3.994254497072041*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"f59228e4-1609-4394-8545-e8f8d02d7550"], +In[143]:=",ExpressionUUID->"aceec463-6094-4984-9932-538d05ce6c92"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 143, 80, 31385386164681285117, "kernel 4"}, +during this calculation.\"", 2, 143, 80, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991343769999645*^9, 3.9939134260894833`*^9}, + CellChangeTimes->{3.991343769999645*^9, 3.993913426066901*^9, + 3.994254497080648*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"c2dd0c9a-779f-47fa-8d86-acdbd387b6e4"], +In[143]:=",ExpressionUUID->"bb5bdada-386f-4da3-bf91-946167265a2e"], Cell[BoxData["1.1214771568133792`"], "Output", - CellChangeTimes->{3.9913437771602173`*^9, 3.993913432767161*^9}, + CellChangeTimes->{3.9913437771602173`*^9, 3.993913432767161*^9, + 3.99425450562805*^9}, CellLabel-> - "Out[143]=",ExpressionUUID->"4fa8391f-be3b-4db5-a992-acfc062c08f3"] + "Out[143]=",ExpressionUUID->"964b4813-a389-4e17-b81d-cc6765cb2970"] }, Open ]], Cell[CellGroupData[{ @@ -15090,64 +15340,72 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.11265480661595`*^-218\\\", \ -\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ -6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ -number; precision may be lost.\"", 2, 144, 81, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"4160735933984357432554811027341847802665\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"13\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3770116038587316426506240000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 81, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913437771982174`*^9, 3.993913432804264*^9}, + CellChangeTimes->{3.9913437771982174`*^9, 3.993913432804264*^9, + 3.994254505672304*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"8b81eea7-9ad9-4757-a18c-a7f5723cf465"], +In[144]:=",ExpressionUUID->"dc83e9e9-0366-4d3a-9761-a0fb02a44960"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.480319396051099`*^-223\\\", \ -\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ -9984000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 144, 82, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 82, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913437771982174`*^9, 3.993913432812743*^9}, + CellChangeTimes->{3.9913437771982174`*^9, 3.993913432804264*^9, + 3.9942545056813602`*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"dcdec9d9-d61e-4367-8b95-fd6ae1b6de1b"], +In[144]:=",ExpressionUUID->"dfc1b8a0-40cd-4024-9ad1-a91ee470cbad"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"6.751034069633404`*^-229\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 144, 83, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 83, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913437771982174`*^9, 3.993913432821186*^9}, + CellChangeTimes->{3.9913437771982174`*^9, 3.993913432804264*^9, + 3.9942545056889*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"fe1b332f-ab48-41a1-9df1-7cfd1e9fd471"], +In[144]:=",ExpressionUUID->"6b631fd8-d88a-43d5-8def-26786c4398a8"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 144, 84, 31385386164681285117, "kernel 4"}, +during this calculation.\"", 2, 144, 84, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913437771982174`*^9, 3.993913432830039*^9}, + CellChangeTimes->{3.9913437771982174`*^9, 3.993913432804264*^9, + 3.994254505696539*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"f0735fc9-cc33-491e-94cb-3f6c3250a277"], +In[144]:=",ExpressionUUID->"80d70302-0587-4a10-b379-0757c510cbf8"], Cell[BoxData["53.31025543875894`"], "Output", - CellChangeTimes->{3.991343783589731*^9, 3.9939134383357277`*^9}, + CellChangeTimes->{3.991343783589731*^9, 3.9939134383357277`*^9, + 3.9942545142199097`*^9}, CellLabel-> - "Out[144]=",ExpressionUUID->"4aba3c83-316b-4ce0-b911-ac1cd5b66103"] + "Out[144]=",ExpressionUUID->"e6c1c06d-1fca-481e-b56f-67b8dccefdf3"] }, Open ]], Cell[CellGroupData[{ @@ -15221,64 +15479,72 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.11265480661595`*^-218\\\", \ -\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ -6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ -number; precision may be lost.\"", 2, 145, 85, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"4160735933984357432554811027341847802665\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"13\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3770116038587316426506240000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 85, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913437836316223`*^9, 3.9939134383745203`*^9}, + CellChangeTimes->{3.9913437836316223`*^9, 3.9939134383745203`*^9, + 3.994254514274973*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"307d352f-9024-4c6f-9b5d-8125fbf9abcb"], +In[145]:=",ExpressionUUID->"34eeb502-52b8-40e4-b978-a43b32868851"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.480319396051099`*^-223\\\", \ -\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ -9984000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 145, 86, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 86, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913437836316223`*^9, 3.993913438380889*^9}, + CellChangeTimes->{3.9913437836316223`*^9, 3.9939134383745203`*^9, + 3.9942545142852573`*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"a433575d-a202-4ca3-af43-b04992c7c8c1"], +In[145]:=",ExpressionUUID->"57653cd2-b8b1-4709-bcea-f137f0c6e59b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"6.751034069633404`*^-229\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 145, 87, 31385386164681285117, - "kernel 4"}, +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 87, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913437836316223`*^9, 3.9939134383869753`*^9}, + CellChangeTimes->{3.9913437836316223`*^9, 3.9939134383745203`*^9, + 3.994254514294355*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"56f75dd2-de16-484c-8f11-0d00a58da556"], +In[145]:=",ExpressionUUID->"640a9263-2469-4f74-94e3-8067050b8184"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 145, 88, 31385386164681285117, "kernel 4"}, +during this calculation.\"", 2, 145, 88, 31387619624951401400, "kernel 4"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913437836316223`*^9, 3.9939134383928223`*^9}, + CellChangeTimes->{3.9913437836316223`*^9, 3.9939134383745203`*^9, + 3.9942545143018227`*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"1dc2cd06-5cd1-42d9-a656-b110960aede9"], +In[145]:=",ExpressionUUID->"627bd0fe-4c7b-4d06-a454-8299efc49ca4"], Cell[BoxData["14.992013967181073`"], "Output", - CellChangeTimes->{3.9913437870822353`*^9, 3.9939134418423634`*^9}, + CellChangeTimes->{3.9913437870822353`*^9, 3.9939134418423634`*^9, + 3.994254519988141*^9}, CellLabel-> - "Out[145]=",ExpressionUUID->"77f75f1d-09c9-4ec1-a613-164938ebabdd"] + "Out[145]=",ExpressionUUID->"14a7a8e9-abe4-4789-912e-fbf5ae8d5d49"] }, Open ]], Cell[CellGroupData[{ @@ -15292,9 +15558,10 @@ Cell[BoxData[ "In[146]:=",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], Cell[BoxData["0.03966934787167059`"], "Output", - CellChangeTimes->{3.991343787117275*^9, 3.9939134418778267`*^9}, + CellChangeTimes->{3.991343787117275*^9, 3.9939134418778267`*^9, + 3.9942545200282383`*^9}, CellLabel-> - "Out[146]=",ExpressionUUID->"59b78d0a-4a5a-4bce-a170-cf1dbfa9b7a3"] + "Out[146]=",ExpressionUUID->"2bc3e41d-c84e-4c44-a228-c1f3dd7eb84b"] }, Open ]], Cell[BoxData[ @@ -15303,8 +15570,8 @@ Cell[BoxData[ "In[147]:=",ExpressionUUID->"bf9d1ff3-3014-4754-9c9c-98199fe3027d"] }, Evaluator->"kernel 4", -WindowSize->{714, 288}, -WindowMargins->{{Automatic, 3}, {Automatic, 15}}, +WindowSize->{714, 170.25}, +WindowMargins->{{Automatic, 3}, {356.25, Automatic}}, CellContext->Notebook, FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", @@ -15322,639 +15589,639 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 423, 7, 29, "Input",ExpressionUUID->"6b501036-8f29-4af3-8808-d54f61f602ee"], -Cell[1002, 31, 419, 6, 33, "Output",ExpressionUUID->"e877c62f-ce3c-471f-8ce5-b864bdebc2ce"] +Cell[576, 22, 423, 7, 36, "Input",ExpressionUUID->"6b501036-8f29-4af3-8808-d54f61f602ee"], +Cell[1002, 31, 445, 7, 41, "Output",ExpressionUUID->"9878c444-bb43-4526-b603-87501813d3cb"] }, Open ]], Cell[CellGroupData[{ -Cell[1458, 42, 246, 4, 29, "Input",ExpressionUUID->"6f55d317-e35b-4b36-8052-dd31882b2754"], -Cell[1707, 48, 422, 6, 33, "Output",ExpressionUUID->"bd0e7061-afe1-4121-9d8b-cad6b43cc982"] +Cell[1484, 43, 246, 4, 36, "Input",ExpressionUUID->"6f55d317-e35b-4b36-8052-dd31882b2754"], +Cell[1733, 49, 448, 7, 41, "Output",ExpressionUUID->"1366abd7-7fb2-4722-8730-15f2e33071be"] }, Open ]], Cell[CellGroupData[{ -Cell[2166, 59, 220, 4, 29, "Input",ExpressionUUID->"613c58a1-f24e-4443-bd3a-05aeeb43d655"], -Cell[2389, 65, 447, 7, 33, "Output",ExpressionUUID->"2879a66b-7c88-471a-8582-ea6a7e763056"] +Cell[2218, 61, 220, 4, 36, "Input",ExpressionUUID->"613c58a1-f24e-4443-bd3a-05aeeb43d655"], +Cell[2441, 67, 469, 7, 41, "Output",ExpressionUUID->"dcb4a416-479a-48cc-97c4-bf38df1a23d1"] }, Open ]], Cell[CellGroupData[{ -Cell[2873, 77, 175, 3, 29, "Input",ExpressionUUID->"fe14a0fb-0676-474f-bef9-40f721f2e0e6"], -Cell[3051, 82, 419, 6, 33, "Output",ExpressionUUID->"a6880fec-55bf-464b-9712-5b33a8b3c0d8"] +Cell[2947, 79, 175, 3, 36, "Input",ExpressionUUID->"fe14a0fb-0676-474f-bef9-40f721f2e0e6"], +Cell[3125, 84, 447, 7, 41, "Output",ExpressionUUID->"56385f15-37ab-4282-9456-2215aacbdb6d"] }, Open ]], Cell[CellGroupData[{ -Cell[3507, 93, 257, 7, 42, "Input",ExpressionUUID->"793e325a-1f13-4c70-8218-b50b15fcbb1b"], -Cell[3767, 102, 434, 6, 33, "Output",ExpressionUUID->"bbc3d9ae-3f0c-47d9-ac55-2c8da1335787"] +Cell[3609, 96, 257, 7, 54, "Input",ExpressionUUID->"793e325a-1f13-4c70-8218-b50b15fcbb1b"], +Cell[3869, 105, 460, 7, 41, "Output",ExpressionUUID->"784a9bd9-e214-4a54-aca1-4bb372953833"] }, Open ]], Cell[CellGroupData[{ -Cell[4238, 113, 131, 2, 29, "Input",ExpressionUUID->"e81ab4c8-ed5a-49e7-bdba-a15bcffea297"], -Cell[4372, 117, 422, 6, 33, "Output",ExpressionUUID->"586a0385-4468-4d23-8303-ad3d823df26e"] +Cell[4366, 117, 131, 2, 36, "Input",ExpressionUUID->"e81ab4c8-ed5a-49e7-bdba-a15bcffea297"], +Cell[4500, 121, 450, 7, 41, "Output",ExpressionUUID->"83bcd3ea-7fc6-4447-92fe-5d61c8c44b6f"] }, Open ]], Cell[CellGroupData[{ -Cell[4831, 128, 276, 6, 29, "Input",ExpressionUUID->"9bfe357a-88ce-4aae-aa98-2dde597bb0ab"], -Cell[5110, 136, 432, 6, 33, "Output",ExpressionUUID->"6641c3af-5a52-4502-b1a4-c031eda1819f"] +Cell[4987, 133, 276, 6, 36, "Input",ExpressionUUID->"9bfe357a-88ce-4aae-aa98-2dde597bb0ab"], +Cell[5266, 141, 458, 7, 41, "Output",ExpressionUUID->"842b0223-c73f-43fb-8883-bc9d4d2fa063"] }, Open ]], Cell[CellGroupData[{ -Cell[5579, 147, 257, 7, 29, "Input",ExpressionUUID->"9c1a304d-3b36-4569-b29f-3e6cdf49ccd8"], -Cell[5839, 156, 428, 6, 33, "Output",ExpressionUUID->"47c600ae-b4c7-44c7-ae03-0c80c8974879"] +Cell[5761, 153, 257, 7, 36, "Input",ExpressionUUID->"9c1a304d-3b36-4569-b29f-3e6cdf49ccd8"], +Cell[6021, 162, 456, 7, 41, "Output",ExpressionUUID->"8341fc5b-026b-4816-9f19-5d8008d982e9"] }, Open ]], Cell[CellGroupData[{ -Cell[6304, 167, 226, 4, 29, "Input",ExpressionUUID->"fd690b76-be44-44e6-9974-d5e9217b7888"], -Cell[6533, 173, 398, 6, 33, "Output",ExpressionUUID->"d8e61811-91d2-4e1e-98c5-3c578d2b47b1"] +Cell[6514, 174, 226, 4, 36, "Input",ExpressionUUID->"fd690b76-be44-44e6-9974-d5e9217b7888"], +Cell[6743, 180, 420, 6, 41, "Output",ExpressionUUID->"06b30646-ae21-4286-892a-f30befa3cfdc"] }, Open ]], Cell[CellGroupData[{ -Cell[6968, 184, 226, 4, 29, "Input",ExpressionUUID->"91c62644-a468-447f-b3ed-002992ea8feb"], -Cell[7197, 190, 393, 6, 33, "Output",ExpressionUUID->"4d82fac8-6f8e-4ae7-bfed-2f3dc1cb264d"] +Cell[7200, 191, 226, 4, 36, "Input",ExpressionUUID->"91c62644-a468-447f-b3ed-002992ea8feb"], +Cell[7429, 197, 415, 6, 41, "Output",ExpressionUUID->"76deb09b-d362-4a62-a7ca-a75eaf39072b"] }, Open ]], Cell[CellGroupData[{ -Cell[7627, 201, 129, 2, 29, "Input",ExpressionUUID->"b5608e50-195e-43c0-8457-ad8bcfc10e2a"], -Cell[7759, 205, 418, 6, 33, "Output",ExpressionUUID->"462528a7-1d77-4f5d-b892-bd183ddd7a3e"] +Cell[7881, 208, 129, 2, 36, "Input",ExpressionUUID->"b5608e50-195e-43c0-8457-ad8bcfc10e2a"], +Cell[8013, 212, 446, 7, 41, "Output",ExpressionUUID->"0401fe8e-f9c0-4347-8441-5c46909f5079"] }, Open ]], Cell[CellGroupData[{ -Cell[8214, 216, 129, 2, 29, "Input",ExpressionUUID->"149c2c16-5557-4b8b-a828-9e9beecd1f77"], -Cell[8346, 220, 416, 6, 33, "Output",ExpressionUUID->"94f3dcee-21fc-4566-9c75-0f572d1089cc"] +Cell[8496, 224, 129, 2, 36, "Input",ExpressionUUID->"149c2c16-5557-4b8b-a828-9e9beecd1f77"], +Cell[8628, 228, 444, 7, 41, "Output",ExpressionUUID->"600e167a-e6ae-416a-a824-fcc9b9104fc2"] }, Open ]], Cell[CellGroupData[{ -Cell[8799, 231, 557, 19, 79, "Input",ExpressionUUID->"6d268c4a-2777-478a-92f7-b2646bc0a7e7"], -Cell[9359, 252, 438, 6, 33, "Output",ExpressionUUID->"673621fd-9276-4add-803f-584542b7ff5d"] +Cell[9109, 240, 557, 19, 100, "Input",ExpressionUUID->"6d268c4a-2777-478a-92f7-b2646bc0a7e7"], +Cell[9669, 261, 463, 7, 41, "Output",ExpressionUUID->"0ca339d5-94f2-4c3a-af26-32db33f6380f"] }, Open ]], Cell[CellGroupData[{ -Cell[9834, 263, 557, 19, 79, "Input",ExpressionUUID->"f5f356d6-b75a-4b21-ba5f-490c723df621"], -Cell[10394, 284, 433, 6, 33, "Output",ExpressionUUID->"2a4cdcd1-4c75-4f42-b494-5ce9075e6fda"] +Cell[10169, 273, 557, 19, 100, "Input",ExpressionUUID->"f5f356d6-b75a-4b21-ba5f-490c723df621"], +Cell[10729, 294, 459, 7, 41, "Output",ExpressionUUID->"d44ed5f7-f6a0-43f0-ad7d-c0ef8a17d7a9"] }, Open ]], Cell[CellGroupData[{ -Cell[10864, 295, 1492, 48, 79, "Input",ExpressionUUID->"7c334f37-fb0f-4cc6-8cab-056596428d27"], -Cell[12359, 345, 434, 6, 33, "Output",ExpressionUUID->"8c680847-79d9-4cbf-b486-3c549a943f7e"] +Cell[11225, 306, 1588, 50, 215, "Input",ExpressionUUID->"7c334f37-fb0f-4cc6-8cab-056596428d27"], +Cell[12816, 358, 460, 7, 41, "Output",ExpressionUUID->"c52fb30b-e60a-4423-a1f6-94020f133f81"] }, Open ]], Cell[CellGroupData[{ -Cell[12830, 356, 1331, 44, 79, "Input",ExpressionUUID->"41ae5dc1-3cd9-4289-b2c9-74e90270ce4a"], -Cell[14164, 402, 450, 7, 33, "Output",ExpressionUUID->"f4381b28-1304-4572-8967-8430f1adc990"] +Cell[13313, 370, 1422, 46, 215, "Input",ExpressionUUID->"41ae5dc1-3cd9-4289-b2c9-74e90270ce4a"], +Cell[14738, 418, 476, 8, 41, "Output",ExpressionUUID->"ebe56df4-1b04-4dfc-9ac5-36e5979ec5b4"] }, Open ]], Cell[CellGroupData[{ -Cell[14651, 414, 1331, 44, 79, "Input",ExpressionUUID->"e45a48f5-df3d-41f1-a7e8-6c67e9970db5"], -Cell[15985, 460, 451, 7, 33, "Output",ExpressionUUID->"5a1f9a44-f757-4d7d-ae1e-ed56eb6492ff"] +Cell[15251, 431, 1422, 46, 215, "Input",ExpressionUUID->"e45a48f5-df3d-41f1-a7e8-6c67e9970db5"], +Cell[16676, 479, 477, 8, 41, "Output",ExpressionUUID->"c70e4eaa-e2ee-4811-a595-594861a91e82"] }, Open ]], Cell[CellGroupData[{ -Cell[16473, 472, 1492, 48, 79, "Input",ExpressionUUID->"0747cd4c-0999-4626-9d29-27fa5749c8db"], -Cell[17968, 522, 428, 6, 33, "Output",ExpressionUUID->"ce9b466e-8fa0-420e-91af-23055ed2d6de"] +Cell[17190, 492, 1588, 50, 215, "Input",ExpressionUUID->"0747cd4c-0999-4626-9d29-27fa5749c8db"], +Cell[18781, 544, 454, 7, 41, "Output",ExpressionUUID->"0cf28c61-05da-4529-8ab9-a0e5b8da002f"] }, Open ]], Cell[CellGroupData[{ -Cell[18433, 533, 131, 2, 29, "Input",ExpressionUUID->"d2de6f42-7d89-4c21-83ca-c81e8066ac5f"], -Cell[18567, 537, 419, 6, 33, "Output",ExpressionUUID->"c7404771-739e-4085-8f3c-2d08c145269c"] +Cell[19272, 556, 131, 2, 36, "Input",ExpressionUUID->"d2de6f42-7d89-4c21-83ca-c81e8066ac5f"], +Cell[19406, 560, 447, 7, 41, "Output",ExpressionUUID->"bd1f6a88-27ad-4f00-9a5c-35dd6fc9e2ee"] }, Open ]], Cell[CellGroupData[{ -Cell[19023, 548, 133, 2, 29, "Input",ExpressionUUID->"8f030f71-6ffe-4421-9b26-750f4e195467"], -Cell[19159, 552, 419, 6, 33, "Output",ExpressionUUID->"a771ef0c-db19-477a-a58e-70ad2f971c82"] +Cell[19890, 572, 133, 2, 36, "Input",ExpressionUUID->"8f030f71-6ffe-4421-9b26-750f4e195467"], +Cell[20026, 576, 445, 7, 41, "Output",ExpressionUUID->"e01bf95b-76d7-4ffc-a98a-1a89d35b053d"] }, Open ]], Cell[CellGroupData[{ -Cell[19615, 563, 134, 2, 29, "Input",ExpressionUUID->"5e82ed62-d5eb-415f-bfa2-c9866086ecd1"], -Cell[19752, 567, 426, 6, 33, "Output",ExpressionUUID->"d24b5044-6bc2-41ab-afee-616efd1d8f26"] +Cell[20508, 588, 134, 2, 36, "Input",ExpressionUUID->"5e82ed62-d5eb-415f-bfa2-c9866086ecd1"], +Cell[20645, 592, 452, 7, 41, "Output",ExpressionUUID->"84aae45d-b097-47c6-a62b-a7cbdf273978"] }, Open ]], Cell[CellGroupData[{ -Cell[20215, 578, 219, 4, 29, "Input",ExpressionUUID->"1462c24f-5b05-481b-b208-74a4724bc9e6"], -Cell[20437, 584, 430, 7, 33, "Output",ExpressionUUID->"59ccda33-5505-41b9-bd29-e71b02f6a15d"] +Cell[21134, 604, 219, 4, 36, "Input",ExpressionUUID->"1462c24f-5b05-481b-b208-74a4724bc9e6"], +Cell[21356, 610, 456, 8, 41, "Output",ExpressionUUID->"0718cb79-24ec-47b9-81c0-c803d87a07de"] }, Open ]], Cell[CellGroupData[{ -Cell[20904, 596, 134, 2, 29, "Input",ExpressionUUID->"876a3e8c-124c-4094-bcfd-1daf4cfeccf8"], -Cell[21041, 600, 422, 6, 33, "Output",ExpressionUUID->"47f36aba-61d0-4222-b523-8735a9ee7405"] +Cell[21849, 623, 134, 2, 36, "Input",ExpressionUUID->"876a3e8c-124c-4094-bcfd-1daf4cfeccf8"], +Cell[21986, 627, 448, 7, 41, "Output",ExpressionUUID->"9ff36b65-bdb1-4a94-b48f-71ed2a27573d"] }, Open ]], Cell[CellGroupData[{ -Cell[21500, 611, 326, 5, 29, "Input",ExpressionUUID->"08c39aa4-3ecb-4d21-bb3a-55c80642492b"], -Cell[21829, 618, 389, 6, 33, "Output",ExpressionUUID->"488dbf7d-24fa-4e61-98eb-1a5d326d1e59"] +Cell[22471, 639, 326, 5, 36, "Input",ExpressionUUID->"08c39aa4-3ecb-4d21-bb3a-55c80642492b"], +Cell[22800, 646, 411, 6, 41, "Output",ExpressionUUID->"a917ccc4-90d1-4151-8c6e-d72b9681102c"] }, Open ]], Cell[CellGroupData[{ -Cell[22255, 629, 295, 5, 29, "Input",ExpressionUUID->"2f2e6bbb-7711-4b58-8d89-47b87eb8a141"], -Cell[22553, 636, 421, 6, 33, "Output",ExpressionUUID->"0492e1d1-793f-4e3a-8ecb-219f64f26d83"] +Cell[23248, 657, 295, 5, 36, "Input",ExpressionUUID->"2f2e6bbb-7711-4b58-8d89-47b87eb8a141"], +Cell[23546, 664, 447, 7, 41, "Output",ExpressionUUID->"9a771125-d0ce-4f39-b407-46eda530f77b"] }, Open ]], Cell[CellGroupData[{ -Cell[23011, 647, 219, 4, 29, "Input",ExpressionUUID->"8c91f5e4-77f6-4100-bd3f-16775b62af64"], -Cell[23233, 653, 419, 6, 33, "Output",ExpressionUUID->"3357e445-3eb7-4be5-b7aa-b8e6e2c1e201"] +Cell[24030, 676, 219, 4, 36, "Input",ExpressionUUID->"8c91f5e4-77f6-4100-bd3f-16775b62af64"], +Cell[24252, 682, 447, 7, 41, "Output",ExpressionUUID->"f1fb4bfe-38f6-4ba0-b071-05b314212c14"] }, Open ]], Cell[CellGroupData[{ -Cell[23689, 664, 350, 10, 42, "Input",ExpressionUUID->"116cf255-50a3-4c65-9c35-0ee339c8a0c8"], -Cell[24042, 676, 437, 6, 33, "Output",ExpressionUUID->"c924c6e9-1e41-4a59-8122-b95ec0fa8eb2"] +Cell[24736, 694, 350, 10, 54, "Input",ExpressionUUID->"116cf255-50a3-4c65-9c35-0ee339c8a0c8"], +Cell[25089, 706, 463, 7, 41, "Output",ExpressionUUID->"ec4f816e-9e55-44bf-a345-2f0fbd36db50"] }, Open ]], Cell[CellGroupData[{ -Cell[24516, 687, 350, 10, 42, "Input",ExpressionUUID->"009ab160-d29c-4fbb-af5c-5af2e3867793"], -Cell[24869, 699, 446, 7, 33, "Output",ExpressionUUID->"fcac8916-733c-41df-9e81-29ed9a2fc3af"] +Cell[25589, 718, 350, 10, 54, "Input",ExpressionUUID->"009ab160-d29c-4fbb-af5c-5af2e3867793"], +Cell[25942, 730, 472, 8, 41, "Output",ExpressionUUID->"712a4b03-2fd6-4f11-a3f2-b7e4b24e66fc"] }, Open ]], Cell[CellGroupData[{ -Cell[25352, 711, 994, 26, 81, "Input",ExpressionUUID->"888dec56-9b31-43b8-bca8-ca214c829694"], -Cell[26349, 739, 433, 6, 33, "Output",ExpressionUUID->"2d9267dc-d08e-4a30-9868-ffed9febf7d8"] +Cell[26451, 743, 994, 26, 105, "Input",ExpressionUUID->"888dec56-9b31-43b8-bca8-ca214c829694"], +Cell[27448, 771, 459, 7, 41, "Output",ExpressionUUID->"b783cea2-2696-4a9b-8473-29cd65298427"] }, Open ]], Cell[CellGroupData[{ -Cell[26819, 750, 199, 3, 29, "Input",ExpressionUUID->"dfebb301-6500-4e99-95e2-5b9d7c963c54"], -Cell[27021, 755, 416, 6, 33, "Output",ExpressionUUID->"11c0a0db-8d27-45a5-85f5-084f07b53c86"] +Cell[27944, 783, 199, 3, 36, "Input",ExpressionUUID->"dfebb301-6500-4e99-95e2-5b9d7c963c54"], +Cell[28146, 788, 442, 7, 41, "Output",ExpressionUUID->"04808df3-3132-477a-81d2-b70ace1cd591"] }, Open ]], Cell[CellGroupData[{ -Cell[27474, 766, 329, 5, 29, "Input",ExpressionUUID->"6ef3347f-d9ed-4453-b6ed-f52620bee676"], -Cell[27806, 773, 398, 6, 33, "Output",ExpressionUUID->"ce8304ce-752f-4655-82ba-628be66336dc"] +Cell[28625, 800, 329, 5, 36, "Input",ExpressionUUID->"6ef3347f-d9ed-4453-b6ed-f52620bee676"], +Cell[28957, 807, 420, 6, 41, "Output",ExpressionUUID->"511fbac6-19d8-4d8b-8dbd-54e721d3f7ac"] }, Open ]], -Cell[28219, 782, 173, 2, 29, "Input",ExpressionUUID->"29a241b3-543a-4ce2-a1d5-c5a27fecc3d3"], +Cell[29392, 816, 173, 2, 109, "Input",ExpressionUUID->"29a241b3-543a-4ce2-a1d5-c5a27fecc3d3"], Cell[CellGroupData[{ -Cell[28417, 788, 329, 5, 29, "Input",ExpressionUUID->"bf6c91d1-0857-4cd3-a7f5-e0c26ab369e0"], -Cell[28749, 795, 396, 6, 33, "Output",ExpressionUUID->"3368a452-0cbf-4cd3-9155-876d92048fb1"] +Cell[29590, 822, 329, 5, 36, "Input",ExpressionUUID->"bf6c91d1-0857-4cd3-a7f5-e0c26ab369e0"], +Cell[29922, 829, 416, 6, 41, "Output",ExpressionUUID->"c624fac2-5588-49cb-88f9-e44871a023d4"] }, Open ]], -Cell[29160, 804, 173, 2, 29, "Input",ExpressionUUID->"5697acba-0abe-4b0d-8b77-b2eaeb0d5d6f"], +Cell[30353, 838, 173, 2, 109, "Input",ExpressionUUID->"5697acba-0abe-4b0d-8b77-b2eaeb0d5d6f"], Cell[CellGroupData[{ -Cell[29358, 810, 330, 5, 29, "Input",ExpressionUUID->"6f22bb89-400a-44cc-990c-65e396c729ea"], -Cell[29691, 817, 395, 6, 33, "Output",ExpressionUUID->"4354744f-841e-4026-bdb7-104877571ee8"] +Cell[30551, 844, 330, 5, 36, "Input",ExpressionUUID->"6f22bb89-400a-44cc-990c-65e396c729ea"], +Cell[30884, 851, 417, 6, 41, "Output",ExpressionUUID->"bb7eca93-1106-404f-9349-872684d09cd0"] }, Open ]], -Cell[30101, 826, 173, 2, 29, "Input",ExpressionUUID->"39e6ef81-22ed-44c4-aa01-7e70c91f4f85"], +Cell[31316, 860, 173, 2, 109, "Input",ExpressionUUID->"39e6ef81-22ed-44c4-aa01-7e70c91f4f85"], Cell[CellGroupData[{ -Cell[30299, 832, 352, 5, 29, "Input",ExpressionUUID->"068f809b-7336-439b-b221-c3a3afbfb05d"], -Cell[30654, 839, 399, 6, 33, "Output",ExpressionUUID->"040d236b-0ac7-4f58-ba6a-10f19acec332"] +Cell[31514, 866, 352, 5, 36, "Input",ExpressionUUID->"068f809b-7336-439b-b221-c3a3afbfb05d"], +Cell[31869, 873, 423, 6, 41, "Output",ExpressionUUID->"3f2602ad-e554-46c8-b0e7-d58521f2a173"] }, Open ]], -Cell[31068, 848, 171, 2, 29, "Input",ExpressionUUID->"b0f6dd5b-0244-47a1-8982-f2543f4c74ec"], +Cell[32307, 882, 171, 2, 109, "Input",ExpressionUUID->"b0f6dd5b-0244-47a1-8982-f2543f4c74ec"], Cell[CellGroupData[{ -Cell[31264, 854, 300, 5, 29, "Input",ExpressionUUID->"e63605c8-7a9c-4932-95b9-feef287ea3f5"], -Cell[31567, 861, 394, 6, 33, "Output",ExpressionUUID->"26713d3b-a0e9-42de-bef9-58ec4bd0adfa"] +Cell[32503, 888, 300, 5, 36, "Input",ExpressionUUID->"e63605c8-7a9c-4932-95b9-feef287ea3f5"], +Cell[32806, 895, 416, 6, 41, "Output",ExpressionUUID->"2181ce8e-4efc-4b5c-8ccf-3685867ab641"] }, Open ]], -Cell[31976, 870, 171, 2, 29, "Input",ExpressionUUID->"2279d2a9-7106-4486-8329-d4486c4031bf"], +Cell[33237, 904, 171, 2, 109, "Input",ExpressionUUID->"2279d2a9-7106-4486-8329-d4486c4031bf"], Cell[CellGroupData[{ -Cell[32172, 876, 304, 5, 29, "Input",ExpressionUUID->"8affe3a5-e61f-4e0f-b83d-56cc0298873f"], -Cell[32479, 883, 400, 6, 33, "Output",ExpressionUUID->"ce2b0790-219f-4c1b-9502-307e2bb93a3d"] +Cell[33433, 910, 304, 5, 36, "Input",ExpressionUUID->"8affe3a5-e61f-4e0f-b83d-56cc0298873f"], +Cell[33740, 917, 424, 6, 41, "Output",ExpressionUUID->"3827e340-3bfc-4c72-81b0-de3a24a89340"] }, Open ]], -Cell[32894, 892, 173, 2, 29, "Input",ExpressionUUID->"192a3951-bad0-42ff-9da6-642b4a96d515"], +Cell[34179, 926, 173, 2, 109, "Input",ExpressionUUID->"192a3951-bad0-42ff-9da6-642b4a96d515"], Cell[CellGroupData[{ -Cell[33092, 898, 307, 5, 29, "Input",ExpressionUUID->"88119282-66a1-48ab-a086-91abcd1621a0"], -Cell[33402, 905, 394, 6, 33, "Output",ExpressionUUID->"1d491a14-7be3-4d40-a92b-8984dcfc7323"] +Cell[34377, 932, 307, 5, 36, "Input",ExpressionUUID->"88119282-66a1-48ab-a086-91abcd1621a0"], +Cell[34687, 939, 416, 6, 41, "Output",ExpressionUUID->"74e65664-3132-456a-b84f-a0d976ff7520"] }, Open ]], -Cell[33811, 914, 172, 2, 29, "Input",ExpressionUUID->"1b459555-77c0-4677-91d5-79c385886979"], +Cell[35118, 948, 172, 2, 109, "Input",ExpressionUUID->"1b459555-77c0-4677-91d5-79c385886979"], Cell[CellGroupData[{ -Cell[34008, 920, 274, 4, 29, "Input",ExpressionUUID->"1796dadd-e5e4-48b1-bdd8-70302c49317a"], -Cell[34285, 926, 400, 6, 33, "Output",ExpressionUUID->"8f9d4760-ccd0-4b61-b1e8-a43e0a6ff455"] +Cell[35315, 954, 274, 4, 36, "Input",ExpressionUUID->"1796dadd-e5e4-48b1-bdd8-70302c49317a"], +Cell[35592, 960, 421, 6, 41, "Output",ExpressionUUID->"63c16f73-5fd8-4aee-a150-8ac5b48d5c75"] }, Open ]], -Cell[34700, 935, 175, 2, 29, "Input",ExpressionUUID->"99887852-5f5a-4745-a28c-a0a85d0e03db"], +Cell[36028, 969, 175, 2, 109, "Input",ExpressionUUID->"99887852-5f5a-4745-a28c-a0a85d0e03db"], Cell[CellGroupData[{ -Cell[34900, 941, 19809, 485, 1844, "Input",ExpressionUUID->"483d00c9-bf98-4bea-8e42-85ae4b485727"], -Cell[54712, 1428, 449, 7, 33, "Output",ExpressionUUID->"ab5d8042-5d88-43e5-bd86-81d303a87e8c"] +Cell[36228, 975, 19809, 485, 3208, "Input",ExpressionUUID->"483d00c9-bf98-4bea-8e42-85ae4b485727"], +Cell[56040, 1462, 477, 8, 41, "Output",ExpressionUUID->"b595d132-3788-428c-92f0-f12973a9cd64"] }, Open ]], Cell[CellGroupData[{ -Cell[55198, 1440, 19748, 489, 1981, "Input",ExpressionUUID->"122ddae3-f1fa-4a98-aa28-17fd48d356e5"], -Cell[74949, 1931, 430, 6, 33, "Output",ExpressionUUID->"36c8182c-1bce-4693-b2c6-6787564e8e52"] +Cell[56554, 1475, 19748, 489, 3138, "Input",ExpressionUUID->"122ddae3-f1fa-4a98-aa28-17fd48d356e5"], +Cell[76305, 1966, 455, 7, 41, "Output",ExpressionUUID->"fe9670e4-a0aa-4128-b4bf-4cbe8793ad62"] }, Open ]], Cell[CellGroupData[{ -Cell[75416, 1942, 19748, 483, 1970, "Input",ExpressionUUID->"d44712dc-ab84-4e32-b399-b4b8618cf2a7"], -Cell[95167, 2427, 448, 7, 33, "Output",ExpressionUUID->"d11d43cc-2894-4a3b-9498-f17a6afa1edc"] +Cell[76797, 1978, 19748, 483, 3198, "Input",ExpressionUUID->"d44712dc-ab84-4e32-b399-b4b8618cf2a7"], +Cell[96548, 2463, 474, 8, 41, "Output",ExpressionUUID->"94c43837-6015-4b94-ab07-31caa33fba24"] }, Open ]], Cell[CellGroupData[{ -Cell[95652, 2439, 22534, 553, 2217, "Input",ExpressionUUID->"cd35407c-fd0b-4037-b740-c156926deb50"], -Cell[118189, 2994, 455, 7, 33, "Output",ExpressionUUID->"a7eec9a5-189f-4a68-bcb8-c50d0ec62bc4"] +Cell[97059, 2476, 22534, 553, 3677, "Input",ExpressionUUID->"cd35407c-fd0b-4037-b740-c156926deb50"], +Cell[119596, 3031, 483, 8, 41, "Output",ExpressionUUID->"8070d58c-5008-43c7-905b-a73750d86527"] }, Open ]], Cell[CellGroupData[{ -Cell[118681, 3006, 22535, 553, 2254, "Input",ExpressionUUID->"61ac09ec-c758-46d7-b168-0363520aef58"], -Cell[141219, 3561, 455, 7, 33, "Output",ExpressionUUID->"b99889ec-3840-4657-b9a1-46ebb0d77d57"] +Cell[120116, 3044, 22535, 553, 3642, "Input",ExpressionUUID->"61ac09ec-c758-46d7-b168-0363520aef58"], +Cell[142654, 3599, 481, 8, 41, "Output",ExpressionUUID->"93cbd0aa-3fc4-4736-8f53-e70db42d8ff9"] }, Open ]], Cell[CellGroupData[{ -Cell[141711, 3573, 25491, 626, 2501, "Input",ExpressionUUID->"7c7f3958-a963-46b0-b1bd-061976e534ea"], -Cell[167205, 4201, 450, 7, 33, "Output",ExpressionUUID->"f33fae5e-7947-4590-b890-ca4dfb1031b3"] +Cell[143172, 3612, 25491, 626, 4121, "Input",ExpressionUUID->"7c7f3958-a963-46b0-b1bd-061976e534ea"], +Cell[168666, 4240, 475, 8, 41, "Output",ExpressionUUID->"10de8ab0-77b3-40bc-8198-4a732149a56a"] }, Open ]], Cell[CellGroupData[{ -Cell[167692, 4213, 130, 2, 29, "Input",ExpressionUUID->"14fbcab0-420b-4414-b082-c9dd58e65050"], -Cell[167825, 4217, 414, 6, 33, "Output",ExpressionUUID->"2f584606-6846-4a7e-b62e-a24b07545449"] +Cell[169178, 4253, 130, 2, 36, "Input",ExpressionUUID->"14fbcab0-420b-4414-b082-c9dd58e65050"], +Cell[169311, 4257, 440, 7, 41, "Output",ExpressionUUID->"9b0164b8-957b-48c0-b155-f1eefe2fc52c"] }, Open ]], Cell[CellGroupData[{ -Cell[168276, 4228, 130, 2, 29, "Input",ExpressionUUID->"13f61e08-8407-44a3-bf8e-fb2a10ec2892"], -Cell[168409, 4232, 415, 6, 33, "Output",ExpressionUUID->"28b914c3-0d18-4f22-9e4d-95a37ade9253"] +Cell[169788, 4269, 130, 2, 36, "Input",ExpressionUUID->"13f61e08-8407-44a3-bf8e-fb2a10ec2892"], +Cell[169921, 4273, 441, 7, 41, "Output",ExpressionUUID->"a4fa70f5-b878-4f30-a369-94aedbf5e25c"] }, Open ]], Cell[CellGroupData[{ -Cell[168861, 4243, 1144, 39, 107, "Input",ExpressionUUID->"e7d0ea19-0356-41c2-9c45-7330bb3d35f6"], -Cell[170008, 4284, 432, 6, 33, "Output",ExpressionUUID->"34671313-99de-4910-919b-26092aaa370b"] +Cell[170399, 4285, 1144, 39, 144, "Input",ExpressionUUID->"e7d0ea19-0356-41c2-9c45-7330bb3d35f6"], +Cell[171546, 4326, 458, 7, 41, "Output",ExpressionUUID->"20d60a2c-5b43-4cd8-990f-214a9f5ede03"] }, Open ]], Cell[CellGroupData[{ -Cell[170477, 4295, 1041, 35, 107, "Input",ExpressionUUID->"57f67f6f-6cce-454f-9651-289e457989a3"], -Cell[171521, 4332, 445, 7, 33, "Output",ExpressionUUID->"f109b3bb-dfe9-48fb-9aae-cc08ff63cf4a"] +Cell[172041, 4338, 1041, 35, 144, "Input",ExpressionUUID->"57f67f6f-6cce-454f-9651-289e457989a3"], +Cell[173085, 4375, 471, 8, 41, "Output",ExpressionUUID->"9c3a3741-94e7-4ffd-8300-9e0682b1024b"] }, Open ]], Cell[CellGroupData[{ -Cell[172003, 4344, 1144, 39, 107, "Input",ExpressionUUID->"c1320b1d-aab6-49e6-b5c5-502bf43ae668"], -Cell[173150, 4385, 438, 6, 33, "Output",ExpressionUUID->"9ec1aab5-cc0f-4d93-8e96-c38c56f0b2b0"] +Cell[173593, 4388, 1144, 39, 144, "Input",ExpressionUUID->"c1320b1d-aab6-49e6-b5c5-502bf43ae668"], +Cell[174740, 4429, 464, 7, 41, "Output",ExpressionUUID->"2ca8bf17-13fa-421a-aa7a-99a8f161e6dd"] }, Open ]], Cell[CellGroupData[{ -Cell[173625, 4396, 108, 1, 29, "Input",ExpressionUUID->"3f8f4d25-277c-499c-80ab-b6491f619ce8"], -Cell[173736, 4399, 436, 6, 33, "Output",ExpressionUUID->"7d503d63-4f13-4189-9364-9321a33b66a0"] +Cell[175241, 4441, 108, 1, 36, "Input",ExpressionUUID->"3f8f4d25-277c-499c-80ab-b6491f619ce8"], +Cell[175352, 4444, 462, 7, 41, "Output",ExpressionUUID->"1a6d69dd-b7c4-4db6-8704-c60ff1ed47b1"] }, Open ]], Cell[CellGroupData[{ -Cell[174209, 4410, 108, 1, 29, "Input",ExpressionUUID->"7722cfbf-7b9b-4ce4-89ca-6267a54323e1"], -Cell[174320, 4413, 447, 7, 33, "Output",ExpressionUUID->"732d0118-5f1d-486f-9e99-438ea637680a"] +Cell[175851, 4456, 108, 1, 36, "Input",ExpressionUUID->"7722cfbf-7b9b-4ce4-89ca-6267a54323e1"], +Cell[175962, 4459, 473, 8, 41, "Output",ExpressionUUID->"f5979ee5-07ad-4766-a8f4-c97b7b773791"] }, Open ]], Cell[CellGroupData[{ -Cell[174804, 4425, 108, 1, 29, "Input",ExpressionUUID->"9de4afab-0f51-4b89-9e67-72254e39e308"], -Cell[174915, 4428, 451, 7, 33, "Output",ExpressionUUID->"acd4211b-a1f2-47b3-ad7d-97be3addaa9e"] +Cell[176472, 4472, 108, 1, 36, "Input",ExpressionUUID->"9de4afab-0f51-4b89-9e67-72254e39e308"], +Cell[176583, 4475, 477, 8, 41, "Output",ExpressionUUID->"d2b13058-5d71-4af7-ae47-a8177fe3c185"] }, Open ]], Cell[CellGroupData[{ -Cell[175403, 4440, 108, 1, 29, "Input",ExpressionUUID->"1a3ccdfc-143c-4b78-b493-b61df2ba7fde"], -Cell[175514, 4443, 434, 6, 33, "Output",ExpressionUUID->"c52b8b75-7951-46f5-8765-941a7861bf11"] +Cell[177097, 4488, 108, 1, 36, "Input",ExpressionUUID->"1a3ccdfc-143c-4b78-b493-b61df2ba7fde"], +Cell[177208, 4491, 460, 7, 41, "Output",ExpressionUUID->"4ce86af8-3e73-4039-ba8b-1a51b5f90c57"] }, Open ]], Cell[CellGroupData[{ -Cell[175985, 4454, 107, 1, 29, "Input",ExpressionUUID->"adb007b0-c990-4f41-9753-b89b742a90db"], -Cell[176095, 4457, 432, 6, 33, "Output",ExpressionUUID->"f387fffa-3cf8-4e26-b094-9e5958637fc6"] +Cell[177705, 4503, 107, 1, 36, "Input",ExpressionUUID->"adb007b0-c990-4f41-9753-b89b742a90db"], +Cell[177815, 4506, 458, 7, 41, "Output",ExpressionUUID->"11d978c2-0c15-47ed-91b9-1c20a595d332"] }, Open ]], Cell[CellGroupData[{ -Cell[176564, 4468, 107, 1, 29, "Input",ExpressionUUID->"54f40ed1-5e5e-47c7-9ee6-89992d3fa4b5"], -Cell[176674, 4471, 433, 6, 33, "Output",ExpressionUUID->"4469fb05-39b5-4f59-9093-9e4cb5603ed9"] +Cell[178310, 4518, 107, 1, 36, "Input",ExpressionUUID->"54f40ed1-5e5e-47c7-9ee6-89992d3fa4b5"], +Cell[178420, 4521, 459, 7, 41, "Output",ExpressionUUID->"dc2c8e2c-9661-41e5-8d2e-4ca9aad899a5"] }, Open ]], Cell[CellGroupData[{ -Cell[177144, 4482, 497, 16, 55, "Input",ExpressionUUID->"5bdf14d4-4304-4664-a202-29a4639e0b38"], -Cell[177644, 4500, 446, 7, 33, "Output",ExpressionUUID->"e132d07a-8582-431e-b733-47d9cec78c41"] +Cell[178916, 4533, 497, 16, 71, "Input",ExpressionUUID->"5bdf14d4-4304-4664-a202-29a4639e0b38"], +Cell[179416, 4551, 474, 8, 41, "Output",ExpressionUUID->"c30ca4f6-6ff2-4a3c-bf9d-26cd6cc3ebea"] }, Open ]], Cell[CellGroupData[{ -Cell[178127, 4512, 497, 16, 55, "Input",ExpressionUUID->"d217019b-f2f3-49ab-a82a-7502c0d0e474"], -Cell[178627, 4530, 443, 7, 33, "Output",ExpressionUUID->"74d38fc5-9b71-4718-951c-fc969864de19"] +Cell[179927, 4564, 497, 16, 71, "Input",ExpressionUUID->"d217019b-f2f3-49ab-a82a-7502c0d0e474"], +Cell[180427, 4582, 471, 8, 41, "Output",ExpressionUUID->"bddac96b-efe1-45cc-a621-2dcb7e5eaa26"] }, Open ]], Cell[CellGroupData[{ -Cell[179107, 4542, 1788, 60, 183, "Input",ExpressionUUID->"92d76e6c-6ca4-4acd-834f-6566f79e20fb"], -Cell[180898, 4604, 432, 6, 33, "Output",ExpressionUUID->"a0aa4d37-79ce-4975-bc44-4ba6ab20e053"] +Cell[180935, 4595, 1788, 60, 340, "Input",ExpressionUUID->"92d76e6c-6ca4-4acd-834f-6566f79e20fb"], +Cell[182726, 4657, 460, 7, 41, "Output",ExpressionUUID->"7daa0bc8-fedf-4d1e-bcb5-e82d14d816a0"] }, Open ]], Cell[CellGroupData[{ -Cell[181367, 4615, 1101, 36, 131, "Input",ExpressionUUID->"c1e4f9d5-dc68-4b9c-b28e-dff39597c916"], -Cell[182471, 4653, 448, 7, 33, "Output",ExpressionUUID->"ff3c5de5-d973-4e0f-a53c-354395350994"] +Cell[183223, 4669, 1101, 36, 174, "Input",ExpressionUUID->"c1e4f9d5-dc68-4b9c-b28e-dff39597c916"], +Cell[184327, 4707, 476, 8, 41, "Output",ExpressionUUID->"63735390-9194-4e96-9232-a580d20ce01c"] }, Open ]], Cell[CellGroupData[{ -Cell[182956, 4665, 1818, 61, 160, "Input",ExpressionUUID->"6de00208-d600-4898-bb8c-41eef3f29edb"], -Cell[184777, 4728, 434, 6, 33, "Output",ExpressionUUID->"426a8b66-365d-487d-81f1-4d86ed296c43"] +Cell[184840, 4720, 1818, 61, 340, "Input",ExpressionUUID->"6de00208-d600-4898-bb8c-41eef3f29edb"], +Cell[186661, 4783, 462, 7, 41, "Output",ExpressionUUID->"310a4b74-7225-4250-ba5f-1c1a00386954"] }, Open ]], Cell[CellGroupData[{ -Cell[185248, 4739, 1631, 53, 162, "Input",ExpressionUUID->"4c93efa1-fcb3-486b-8cef-3839dcac974a"], -Cell[186882, 4794, 431, 6, 33, "Output",ExpressionUUID->"ff345a12-90da-491a-81d0-17e27c667d40"] +Cell[187160, 4795, 1631, 53, 208, "Input",ExpressionUUID->"4c93efa1-fcb3-486b-8cef-3839dcac974a"], +Cell[188794, 4850, 457, 7, 41, "Output",ExpressionUUID->"b3ed4df8-02ef-4009-bb02-7b76c89253d3"] }, Open ]], Cell[CellGroupData[{ -Cell[187350, 4805, 1631, 53, 162, "Input",ExpressionUUID->"ca5acf42-4edd-4671-8b25-b6e9bf7d3784"], -Cell[188984, 4860, 431, 6, 33, "Output",ExpressionUUID->"16a94dd1-f6c2-4e84-95af-3e7d21bb9a50"] +Cell[189288, 4862, 1631, 53, 208, "Input",ExpressionUUID->"ca5acf42-4edd-4671-8b25-b6e9bf7d3784"], +Cell[190922, 4917, 457, 7, 41, "Output",ExpressionUUID->"049ea29a-621e-44e9-864e-e18b967edf17"] }, Open ]], Cell[CellGroupData[{ -Cell[189452, 4871, 230, 4, 29, "Input",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], -Cell[189685, 4877, 158, 2, 33, "Output",ExpressionUUID->"cdd551bb-2c4f-49a6-9880-15c68083b367"] +Cell[191416, 4929, 230, 4, 36, "Input",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], +Cell[191649, 4935, 180, 2, 41, "Output",ExpressionUUID->"311ca2f5-a76d-42b9-863e-c98fa0639a71"] }, Open ]], -Cell[189858, 4882, 175, 2, 29, "Input",ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-c82e80965ca9"], +Cell[191844, 4940, 175, 2, 109, "Input",ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-c82e80965ca9"], Cell[CellGroupData[{ -Cell[190058, 4888, 228, 4, 29, "Input",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], -Cell[190289, 4894, 158, 2, 33, "Output",ExpressionUUID->"e0472527-418d-49bf-8d31-0cfa8cd71397"] +Cell[192044, 4946, 228, 4, 36, "Input",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], +Cell[192275, 4952, 182, 2, 41, "Output",ExpressionUUID->"a2f31bb5-3d70-4867-b84f-7051ea5012aa"] }, Open ]], -Cell[190462, 4899, 171, 2, 29, "Input",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], +Cell[192472, 4957, 171, 2, 109, "Input",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], Cell[CellGroupData[{ -Cell[190658, 4905, 1297, 42, 111, "Input",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], -Cell[191958, 4949, 193, 2, 33, "Output",ExpressionUUID->"8a6858ff-0606-4ff7-8486-e36c0e8eb411"] +Cell[192668, 4963, 1297, 42, 174, "Input",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], +Cell[193968, 5007, 218, 3, 41, "Output",ExpressionUUID->"bf293a03-c797-4bde-82df-4f83d7f9e672"] }, Open ]], Cell[CellGroupData[{ -Cell[192188, 4956, 927, 30, 96, "Input",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], -Cell[193118, 4988, 194, 2, 33, "Output",ExpressionUUID->"d814fe75-a09d-4e11-b179-483da2cfb214"] +Cell[194223, 5015, 927, 30, 128, "Input",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], +Cell[195153, 5047, 219, 3, 41, "Output",ExpressionUUID->"da1be6f4-b690-4377-820f-917098b1eacb"] }, Open ]], Cell[CellGroupData[{ -Cell[193349, 4995, 906, 29, 55, "Input",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], -Cell[194258, 5026, 195, 2, 33, "Output",ExpressionUUID->"2e0fe99b-30a4-45f5-ba99-c99959c1c9c3"] +Cell[195409, 5055, 906, 29, 128, "Input",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], +Cell[196318, 5086, 220, 3, 41, "Output",ExpressionUUID->"52795f2f-e3e4-4b74-b0d5-14bd6d9d7f8a"] }, Open ]], Cell[CellGroupData[{ -Cell[194490, 5033, 554, 18, 51, "Input",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], -Cell[195047, 5053, 191, 2, 33, "Output",ExpressionUUID->"1cb41384-3006-4767-982d-ae8b89066976"] +Cell[196575, 5094, 554, 18, 66, "Input",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], +Cell[197132, 5114, 216, 3, 41, "Output",ExpressionUUID->"2f4c94f1-3b14-45dc-a570-5a02d1780907"] }, Open ]], Cell[CellGroupData[{ -Cell[195275, 5060, 647, 21, 51, "Input",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], -Cell[195925, 5083, 187, 2, 33, "Output",ExpressionUUID->"d78fdcee-2cfc-4303-8335-0fd2ef70bfc3"] +Cell[197385, 5122, 647, 21, 66, "Input",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], +Cell[198035, 5145, 212, 3, 41, "Output",ExpressionUUID->"ca5074ab-0d1e-4cf3-bc87-f5c93f92df9a"] }, Open ]], Cell[CellGroupData[{ -Cell[196149, 5090, 166, 4, 55, "Input",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], -Cell[196318, 5096, 191, 2, 33, "Output",ExpressionUUID->"b026cf38-b7b8-4501-ab7f-0dbd44353bfc"] +Cell[198284, 5153, 166, 4, 71, "Input",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], +Cell[198453, 5159, 216, 3, 41, "Output",ExpressionUUID->"1a8dda63-729e-4502-b08b-a034c404164b"] }, Open ]], Cell[CellGroupData[{ -Cell[196546, 5103, 166, 4, 54, "Input",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], -Cell[196715, 5109, 188, 2, 33, "Output",ExpressionUUID->"2e414c6a-9245-40d4-a9fe-84fe1e735db8"] +Cell[198706, 5167, 166, 4, 69, "Input",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], +Cell[198875, 5173, 213, 3, 41, "Output",ExpressionUUID->"61afe149-a673-4484-96f5-06f8460aacd9"] }, Open ]], Cell[CellGroupData[{ -Cell[196940, 5116, 177, 4, 43, "Input",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], -Cell[197120, 5122, 192, 2, 33, "Output",ExpressionUUID->"a0d75053-7572-41e2-8099-b89af26a78cf"] +Cell[199125, 5181, 177, 4, 55, "Input",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], +Cell[199305, 5187, 217, 3, 41, "Output",ExpressionUUID->"93f3d8b3-6de9-42e1-af10-61baa42356b6"] }, Open ]], Cell[CellGroupData[{ -Cell[197349, 5129, 177, 4, 43, "Input",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], -Cell[197529, 5135, 188, 2, 33, "Output",ExpressionUUID->"34c2203a-b771-478c-90b1-41187efe24c7"] +Cell[199559, 5195, 177, 4, 55, "Input",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], +Cell[199739, 5201, 213, 3, 41, "Output",ExpressionUUID->"1fef6e03-2566-4f9b-acc0-82e6b5196f82"] }, Open ]], Cell[CellGroupData[{ -Cell[197754, 5142, 6051, 184, 474, "Input",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], -Cell[203808, 5328, 194, 2, 33, "Output",ExpressionUUID->"a0fcc521-fc43-40a6-8ed8-a424571dc745"] +Cell[199989, 5209, 6051, 184, 831, "Input",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], +Cell[206043, 5395, 219, 3, 41, "Output",ExpressionUUID->"adb3cd7f-9237-445d-9ee8-094194140b82"] }, Open ]], Cell[CellGroupData[{ -Cell[204039, 5335, 364, 8, 41, "Input",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], -Cell[204406, 5345, 191, 2, 33, "Output",ExpressionUUID->"b84483d3-a6ec-4d29-b5fb-bfdfc00451d1"] +Cell[206299, 5403, 364, 8, 53, "Input",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], +Cell[206666, 5413, 218, 3, 41, "Output",ExpressionUUID->"558d6365-400f-46db-9f4a-f1d4811c07be"] }, Open ]], Cell[CellGroupData[{ -Cell[204634, 5352, 6118, 186, 474, "Input",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], -Cell[210755, 5540, 191, 2, 33, "Output",ExpressionUUID->"17b0830e-3630-4b7f-827c-903b94314390"] +Cell[206921, 5421, 6118, 186, 900, "Input",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], +Cell[213042, 5609, 218, 3, 41, "Output",ExpressionUUID->"35e1f9ae-ef80-405e-adfd-a74d5bca88d7"] }, Open ]], Cell[CellGroupData[{ -Cell[210983, 5547, 364, 8, 41, "Input",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], -Cell[211350, 5557, 190, 2, 33, "Output",ExpressionUUID->"2c60b766-e108-4710-b2a3-501f33940c81"] +Cell[213297, 5617, 364, 8, 53, "Input",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], +Cell[213664, 5627, 215, 3, 41, "Output",ExpressionUUID->"d0ecab44-a4d5-41d8-94bc-74a51bb6d5e5"] }, Open ]], Cell[CellGroupData[{ -Cell[211577, 5564, 2659, 87, 107, "Input",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], -Cell[214239, 5653, 192, 2, 33, "Output",ExpressionUUID->"fe12ee96-1c6c-4f48-93e5-eba776340c7d"] +Cell[213916, 5635, 2659, 87, 435, "Input",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], +Cell[216578, 5724, 219, 3, 41, "Output",ExpressionUUID->"5f860dde-e6a9-4f0e-adf2-024f8f189a87"] }, Open ]], Cell[CellGroupData[{ -Cell[214468, 5660, 2599, 84, 107, "Input",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], -Cell[217070, 5746, 189, 2, 33, "Output",ExpressionUUID->"4ccba655-94e7-40ff-a960-16fbbdb6a445"] +Cell[216834, 5732, 2599, 84, 435, "Input",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], +Cell[219436, 5818, 214, 3, 41, "Output",ExpressionUUID->"0a7cc6df-5238-4bc4-91ba-dbbd13bf1910"] }, Open ]], Cell[CellGroupData[{ -Cell[217296, 5753, 3708, 117, 160, "Input",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], -Cell[221007, 5872, 190, 2, 33, "Output",ExpressionUUID->"a7d2f4bd-26bb-4ef0-b6c0-0f18a5fee25f"] +Cell[219687, 5826, 3708, 117, 575, "Input",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], +Cell[223398, 5945, 217, 3, 41, "Output",ExpressionUUID->"1d761905-cfc1-42d4-b01c-06aa574032d4"] }, Open ]], -Cell[221212, 5877, 160, 3, 29, "Input",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], +Cell[223630, 5951, 160, 3, 109, "Input",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], Cell[CellGroupData[{ -Cell[221397, 5884, 2073, 58, 99, "Input",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], -Cell[223473, 5944, 586, 13, 26, "Message",ExpressionUUID->"2e480117-234a-4b0e-8bee-e846b19f11de"], -Cell[224062, 5959, 593, 13, 26, "Message",ExpressionUUID->"acb9f11a-c207-47ea-b1fd-98d10322f481"], -Cell[224658, 5974, 595, 13, 26, "Message",ExpressionUUID->"69fe479a-007e-4376-811c-dfeeba7a59ac"], -Cell[225256, 5989, 491, 11, 26, "Message",ExpressionUUID->"5240c7a7-543f-4215-89f9-de3bbb27fdf3"], -Cell[225750, 6002, 191, 2, 33, "Output",ExpressionUUID->"2d7832ef-5537-4cc5-9df1-57829e79d99d"] +Cell[223815, 5958, 2073, 58, 276, "Input",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], +Cell[225891, 6018, 692, 15, 73, "Message",ExpressionUUID->"7df04641-677a-4f02-a8ab-0c4fce19aab9"], +Cell[226586, 6035, 689, 15, 73, "Message",ExpressionUUID->"52c7dd18-611f-4529-87dd-b4c43e8157e4"], +Cell[227278, 6052, 688, 15, 73, "Message",ExpressionUUID->"2769f085-ec2c-497d-bc77-e85a8541415e"], +Cell[227969, 6069, 516, 12, 32, "Message",ExpressionUUID->"867ca752-941e-494b-8482-1b073059c59a"], +Cell[228488, 6083, 218, 3, 41, "Output",ExpressionUUID->"855d1691-4a09-4b9f-bca3-3435aa24a83e"] }, Open ]], Cell[CellGroupData[{ -Cell[225978, 6009, 2071, 58, 234, "Input",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], -Cell[228052, 6069, 585, 13, 26, "Message",ExpressionUUID->"80e8e632-6d0a-4b60-b703-740dbcb469d9"], -Cell[228640, 6084, 591, 13, 26, "Message",ExpressionUUID->"a1e53603-b354-48da-bbbd-a04fe007ba5a"], -Cell[229234, 6099, 591, 13, 26, "Message",ExpressionUUID->"815c6c78-ca11-4799-ba16-b16dd694af4b"], -Cell[229828, 6114, 490, 11, 26, "Message",ExpressionUUID->"af2434fa-97e4-49b8-97b6-53d09085c311"], -Cell[230321, 6127, 187, 2, 33, "Output",ExpressionUUID->"7fd2f7c1-5e15-41cc-a4e6-56d57ec5219b"] +Cell[228743, 6091, 2071, 58, 276, "Input",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], +Cell[230817, 6151, 689, 15, 73, "Message",ExpressionUUID->"e63be5e6-4b21-40db-afb1-2144b6dbf2cf"], +Cell[231509, 6168, 690, 15, 73, "Message",ExpressionUUID->"49d2e715-1873-4efe-8c50-da77e463721d"], +Cell[232202, 6185, 687, 15, 73, "Message",ExpressionUUID->"04cdff78-dee0-4a39-951e-edc5b817e419"], +Cell[232892, 6202, 517, 12, 32, "Message",ExpressionUUID->"c24924ad-d147-472c-8c70-aed2f0731c18"], +Cell[233412, 6216, 212, 3, 41, "Output",ExpressionUUID->"ae7545d8-749b-41ce-9f9c-bc467d113f1f"] }, Open ]], Cell[CellGroupData[{ -Cell[230545, 6134, 1955, 52, 102, "Input",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], -Cell[232503, 6188, 19950, 374, 236, "Output",ExpressionUUID->"cb1d4049-9151-4e29-80a9-34826b22cf33"] +Cell[233661, 6224, 2047, 54, 232, "Input",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], +Cell[235711, 6280, 19975, 375, 295, "Output",ExpressionUUID->"2694f2ca-9c56-4c10-8d02-119802ba7b49"] }, Open ]], Cell[CellGroupData[{ -Cell[252490, 6567, 2111, 59, 261, "Input",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], -Cell[254604, 6628, 534, 12, 59, "Message",ExpressionUUID->"6dbc284c-a974-464c-bb2c-8a8006d3e491"], -Cell[255141, 6642, 535, 12, 59, "Message",ExpressionUUID->"b15a4db0-d9c8-442e-8fea-82c09d63f7ba"], -Cell[255679, 6656, 538, 12, 59, "Message",ExpressionUUID->"eb94f706-46c7-4bc6-8c54-fbe6413c36ee"], -Cell[256220, 6670, 491, 11, 26, "Message",ExpressionUUID->"b36bdf8d-97dc-4f47-9026-1be095d4fee5"], -Cell[256714, 6683, 22363, 413, 232, "Output",ExpressionUUID->"23c18686-716c-4028-b535-b127b402214d"] +Cell[255723, 6660, 2111, 59, 311, "Input",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], +Cell[257837, 6721, 559, 13, 71, "Message",ExpressionUUID->"7b2839c8-5249-4fc8-a0db-1f23957ea96e"], +Cell[258399, 6736, 562, 13, 71, "Message",ExpressionUUID->"d10843ba-a50c-4d57-a5e6-eb739db15b6d"], +Cell[258964, 6751, 565, 13, 71, "Message",ExpressionUUID->"fe54e0ce-a0b5-4d28-a3de-fc49235cab3a"], +Cell[259532, 6766, 520, 12, 32, "Message",ExpressionUUID->"c00dfdf3-6a3c-47dc-ae8a-b2a72b7af3e3"], +Cell[260055, 6780, 22390, 414, 290, "Output",ExpressionUUID->"42b4a85e-87e0-46d1-bd68-127d999c2d7e"] }, Open ]], Cell[CellGroupData[{ -Cell[279114, 7101, 2478, 69, 169, "Input",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], -Cell[281595, 7172, 9491, 222, 242, "Output",ExpressionUUID->"68f57f30-6303-4e60-b241-07f8e0399f00"] +Cell[282482, 7199, 2478, 69, 296, "Input",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], +Cell[284963, 7270, 9512, 222, 303, "Output",ExpressionUUID->"b4e3e6b4-3079-4a78-a78e-fd77c8a49a7c"] }, Open ]], Cell[CellGroupData[{ -Cell[291123, 7399, 228, 4, 29, "Input",ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-0ac982b58a3a"], -Cell[291354, 7405, 28727, 545, 232, "Output",ExpressionUUID->"7d86889d-1f9a-475e-afa8-b224803f2864"] +Cell[294512, 7497, 228, 4, 36, "Input",ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-0ac982b58a3a"], +Cell[294743, 7503, 28749, 545, 290, "Output",ExpressionUUID->"f0a71487-53a6-4a6b-bc2a-aaa35df7239b"] }, Open ]], Cell[CellGroupData[{ -Cell[320118, 7955, 236, 6, 47, "Input",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], -Cell[320357, 7963, 189, 2, 33, "Output",ExpressionUUID->"9537a4dd-e65f-48b0-9fa4-97b40538d7bb"] +Cell[323529, 8053, 236, 6, 61, "Input",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], +Cell[323768, 8061, 214, 3, 41, "Output",ExpressionUUID->"6cab9e3b-08f9-4b34-a472-7c996dfa574f"] }, Open ]], Cell[CellGroupData[{ -Cell[320583, 7970, 1833, 52, 190, "Input",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], -Cell[322419, 8024, 538, 12, 59, "Message",ExpressionUUID->"9954908a-b822-410e-80fe-d18b25bfdf72"], -Cell[322960, 8038, 541, 12, 59, "Message",ExpressionUUID->"45d804dc-815e-404d-a1b9-be2566dc09f1"], -Cell[323504, 8052, 546, 12, 59, "Message",ExpressionUUID->"861092aa-55b3-4752-839a-a92568585ed4"], -Cell[324053, 8066, 491, 11, 26, "Message",ExpressionUUID->"65982ec0-9058-4cb4-a3c4-d012dc92e072"], -Cell[324547, 8079, 22357, 413, 232, "Output",ExpressionUUID->"256259b5-5b52-437f-bc79-1eaff9ea3105"] +Cell[324019, 8069, 1833, 52, 311, "Input",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], +Cell[325855, 8123, 563, 13, 71, "Message",ExpressionUUID->"90d8c5da-0244-4640-bdf5-5fa7b748aa71"], +Cell[326421, 8138, 565, 13, 71, "Message",ExpressionUUID->"6d8b87a6-a465-4249-af0d-b7cc4d85c339"], +Cell[326989, 8153, 568, 13, 71, "Message",ExpressionUUID->"47642a3b-9025-42c9-9f09-44deb2e203cd"], +Cell[327560, 8168, 515, 12, 32, "Message",ExpressionUUID->"b5727ede-78f6-492f-b17b-90929d464f77"], +Cell[328078, 8182, 22382, 414, 290, "Output",ExpressionUUID->"13041d70-55a6-45e5-8738-43510896c0c8"] }, Open ]], Cell[CellGroupData[{ -Cell[346941, 8497, 1616, 48, 104, "Input",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], -Cell[348560, 8547, 615, 13, 80, "Message",ExpressionUUID->"384c2d04-a69d-470b-98de-8c7ffc6a1ec3"], -Cell[349178, 8562, 620, 13, 80, "Message",ExpressionUUID->"8a0bc8b6-4d3f-41dc-9616-441d167dd7de"], -Cell[349801, 8577, 621, 13, 80, "Message",ExpressionUUID->"6d50805f-e9b8-4daa-a65d-61b200ab23b0"], -Cell[350425, 8592, 495, 11, 26, "Message",ExpressionUUID->"ff786b4c-c07e-4a54-9312-a00361146ffc"], -Cell[350923, 8605, 195, 3, 33, "Output",ExpressionUUID->"27e2ce89-c5f8-479c-a94b-312ba4e9848a"] +Cell[350497, 8601, 1616, 48, 132, "Input",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], +Cell[352116, 8651, 693, 15, 73, "Message",ExpressionUUID->"239bf7a0-4926-42ab-b2d5-fe8f69e152cb"], +Cell[352812, 8668, 693, 15, 73, "Message",ExpressionUUID->"ff7f3709-4408-488b-adbb-bb3bc87d2672"], +Cell[353508, 8685, 693, 15, 73, "Message",ExpressionUUID->"75dcabf2-9ab2-4e06-aa7f-853151c015dd"], +Cell[354204, 8702, 520, 12, 32, "Message",ExpressionUUID->"476c001d-940e-48b9-bcee-9fe26750457a"], +Cell[354727, 8716, 222, 4, 41, "Output",ExpressionUUID->"62103483-09a4-4d2c-b2bc-8b9302f7bf6c"] }, Open ]], Cell[CellGroupData[{ -Cell[351155, 8613, 2296, 65, 212, "Input",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], -Cell[353454, 8680, 590, 13, 80, "Message",ExpressionUUID->"b00d1f6b-c0c3-4516-aaea-435b410752c8"], -Cell[354047, 8695, 596, 13, 80, "Message",ExpressionUUID->"c11232f7-eb0d-4fe2-9e6f-8c815acc0ce3"], -Cell[354646, 8710, 598, 13, 80, "Message",ExpressionUUID->"77fdc23a-05fb-44ef-9e84-f7676874d9db"], -Cell[355247, 8725, 495, 11, 26, "Message",ExpressionUUID->"1f53acf0-b89f-40e1-a513-1696faed415a"], -Cell[355745, 8738, 193, 3, 33, "Output",ExpressionUUID->"f755b29c-da4e-4151-87e1-81f7e06e006e"] +Cell[354986, 8725, 2296, 65, 348, "Input",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], +Cell[357285, 8792, 694, 15, 73, "Message",ExpressionUUID->"15c7f41d-90c1-4c34-a9e3-2f05e8fcf07f"], +Cell[357982, 8809, 695, 15, 73, "Message",ExpressionUUID->"508cf2ec-da89-421e-91f1-37c7c94bcf6a"], +Cell[358680, 8826, 694, 15, 73, "Message",ExpressionUUID->"11b44d32-a9e5-4311-bf3d-d062c608b64e"], +Cell[359377, 8843, 522, 12, 32, "Message",ExpressionUUID->"ff68c7b8-0d7b-4c31-a2ac-37f3185bf7d0"], +Cell[359902, 8857, 218, 4, 41, "Output",ExpressionUUID->"9e05c7ab-7d5a-4911-bf7d-b83002d3b856"] }, Open ]], Cell[CellGroupData[{ -Cell[355975, 8746, 2233, 63, 212, "Input",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], -Cell[358211, 8811, 590, 13, 80, "Message",ExpressionUUID->"ddf00b05-f2f2-4136-b45b-4e9311911a02"], -Cell[358804, 8826, 590, 13, 80, "Message",ExpressionUUID->"d620df1d-cbc3-4852-8f30-6876aab74fe6"], -Cell[359397, 8841, 596, 13, 80, "Message",ExpressionUUID->"89aebe25-4b97-441f-b070-c09d264d8f1c"], -Cell[359996, 8856, 493, 11, 26, "Message",ExpressionUUID->"0e3568ce-21b7-4a48-8562-44aa662bf55b"], -Cell[360492, 8869, 194, 3, 33, "Output",ExpressionUUID->"096e9e11-faff-46a1-8918-2dbee145d05e"] +Cell[360157, 8866, 2233, 63, 348, "Input",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], +Cell[362393, 8931, 694, 15, 73, "Message",ExpressionUUID->"b8869fd8-500a-49ec-a2f2-6b3ee920d1f6"], +Cell[363090, 8948, 693, 15, 73, "Message",ExpressionUUID->"138cc268-9591-400b-8c16-62d67e80e32a"], +Cell[363786, 8965, 692, 15, 73, "Message",ExpressionUUID->"45a24c37-135d-48c8-83c4-4623ca4486fc"], +Cell[364481, 8982, 519, 12, 32, "Message",ExpressionUUID->"83f53b5b-739f-4f40-91cd-b53f0909a214"], +Cell[365003, 8996, 219, 4, 41, "Output",ExpressionUUID->"3674d330-56c2-4be2-8ed8-befd08220c33"] }, Open ]], Cell[CellGroupData[{ -Cell[360723, 8877, 2235, 63, 212, "Input",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], -Cell[362961, 8942, 590, 13, 80, "Message",ExpressionUUID->"b71374cb-bf48-4731-994c-77badc302ac1"], -Cell[363554, 8957, 594, 13, 80, "Message",ExpressionUUID->"b17ef004-d77b-4fe5-90bb-f4ccf207c41f"], -Cell[364151, 8972, 596, 13, 80, "Message",ExpressionUUID->"8c38a2b5-45d2-4981-b553-9d9f444c4e18"], -Cell[364750, 8987, 497, 11, 26, "Message",ExpressionUUID->"9181d198-d118-45ca-b234-b322e0d9ecff"], -Cell[365250, 9000, 195, 3, 33, "Output",ExpressionUUID->"b94c2691-c1e6-4104-af4c-c67fde932089"] +Cell[365259, 9005, 2235, 63, 348, "Input",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], +Cell[367497, 9070, 694, 15, 73, "Message",ExpressionUUID->"0a4451f4-0625-42e8-a3be-b5177817410d"], +Cell[368194, 9087, 695, 15, 73, "Message",ExpressionUUID->"afd90f38-7e0c-499b-917c-0aed03c79503"], +Cell[368892, 9104, 692, 15, 73, "Message",ExpressionUUID->"4e7975cc-4579-4a8a-9765-7f387ea191a2"], +Cell[369587, 9121, 520, 12, 32, "Message",ExpressionUUID->"ce42ebf3-0374-4622-83e7-e0e885a8a6e5"], +Cell[370110, 9135, 219, 4, 41, "Output",ExpressionUUID->"13f2acf7-2273-40a1-adf2-3638b3aaae52"] }, Open ]], Cell[CellGroupData[{ -Cell[365482, 9008, 236, 6, 46, "Input",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], -Cell[365721, 9016, 196, 3, 33, "Output",ExpressionUUID->"c817ca5a-df17-43b4-bbc9-912ce11cb5ff"] +Cell[370366, 9144, 236, 6, 60, "Input",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], +Cell[370605, 9152, 223, 4, 41, "Output",ExpressionUUID->"1a547237-8137-4997-9358-157db023c36d"] }, Open ]], -Cell[365932, 9022, 270, 6, 29, "Input",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], +Cell[370843, 9159, 270, 6, 109, "Input",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], Cell[CellGroupData[{ -Cell[366227, 9032, 558, 19, 51, "Input",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], -Cell[366788, 9053, 194, 3, 33, "Output",ExpressionUUID->"ee75bbc0-f5d2-491e-bb2b-cb01731265a7"] +Cell[371138, 9169, 558, 19, 66, "Input",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], +Cell[371699, 9190, 219, 4, 41, "Output",ExpressionUUID->"af316221-74d9-44ef-81fd-a4de599772d3"] }, Open ]], Cell[CellGroupData[{ -Cell[367019, 9061, 170, 5, 55, "Input",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], -Cell[367192, 9068, 192, 3, 33, "Output",ExpressionUUID->"bbe162a2-1060-4605-a0ad-eb5227a98af3"] +Cell[371955, 9199, 170, 5, 71, "Input",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], +Cell[372128, 9206, 219, 4, 41, "Output",ExpressionUUID->"7d1e6d15-f6b7-46d6-bc5d-9ea598b8801a"] }, Open ]], Cell[CellGroupData[{ -Cell[367421, 9076, 181, 5, 43, "Input",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], -Cell[367605, 9083, 194, 3, 33, "Output",ExpressionUUID->"413a2a6a-0c59-4327-bcc0-3fccf5d5787a"] +Cell[372384, 9215, 181, 5, 55, "Input",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], +Cell[372568, 9222, 219, 4, 41, "Output",ExpressionUUID->"cd6d53f9-754f-421a-a6be-534f77ea3bbe"] }, Open ]], Cell[CellGroupData[{ -Cell[367836, 9091, 6055, 185, 474, "Input",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], -Cell[373894, 9278, 198, 3, 33, "Output",ExpressionUUID->"b0294ce1-a456-4720-821b-9f05ab5b24b5"] +Cell[372824, 9231, 6055, 185, 831, "Input",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], +Cell[378882, 9418, 223, 4, 41, "Output",ExpressionUUID->"7a56a88b-fc30-42f4-8ba9-2c9d91f33c92"] }, Open ]], Cell[CellGroupData[{ -Cell[374129, 9286, 368, 9, 41, "Input",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], -Cell[374500, 9297, 195, 3, 33, "Output",ExpressionUUID->"3255e731-9f5b-431a-b9b5-328e97723b88"] +Cell[379142, 9427, 368, 9, 53, "Input",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], +Cell[379513, 9438, 220, 4, 41, "Output",ExpressionUUID->"5d351e9f-c88c-4505-98b0-3822ffd8d4b0"] }, Open ]], Cell[CellGroupData[{ -Cell[374732, 9305, 6122, 187, 474, "Input",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], -Cell[380857, 9494, 197, 3, 33, "Output",ExpressionUUID->"cedc2bf1-8c94-4adf-b1ee-8d13d69fa332"] +Cell[379770, 9447, 6122, 187, 900, "Input",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], +Cell[385895, 9636, 222, 4, 41, "Output",ExpressionUUID->"2e78ee3b-f825-49cc-adb6-48bad5265a43"] }, Open ]], Cell[CellGroupData[{ -Cell[381091, 9502, 368, 9, 41, "Input",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], -Cell[381462, 9513, 193, 3, 33, "Output",ExpressionUUID->"70afbde4-dbd4-4813-9d0e-fa107074905b"] +Cell[386154, 9645, 368, 9, 53, "Input",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], +Cell[386525, 9656, 220, 4, 41, "Output",ExpressionUUID->"961b7383-ce16-4177-908a-45d006d29fd3"] }, Open ]], Cell[CellGroupData[{ -Cell[381692, 9521, 2663, 88, 285, "Input",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], -Cell[384358, 9611, 194, 3, 33, "Output",ExpressionUUID->"27740d0e-6309-4ca3-acc9-2a2552f00d56"] +Cell[386782, 9665, 2663, 88, 435, "Input",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], +Cell[389448, 9755, 219, 4, 41, "Output",ExpressionUUID->"c108a918-e37c-4780-84f9-4dad3944b958"] }, Open ]], Cell[CellGroupData[{ -Cell[384589, 9619, 2603, 85, 211, "Input",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], -Cell[387195, 9706, 193, 3, 33, "Output",ExpressionUUID->"b8f1ffe2-9b56-4cc8-9411-f4faa833acd1"] +Cell[389704, 9764, 2603, 85, 435, "Input",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], +Cell[392310, 9851, 218, 4, 41, "Output",ExpressionUUID->"06c8e219-d49b-42e6-bae5-25a6783cacde"] }, Open ]], Cell[CellGroupData[{ -Cell[387425, 9714, 3712, 118, 327, "Input",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], -Cell[391140, 9834, 193, 3, 33, "Output",ExpressionUUID->"11ea2195-77ce-40ce-8811-6922e74ef4a9"] +Cell[392565, 9860, 3712, 118, 575, "Input",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], +Cell[396280, 9980, 218, 4, 41, "Output",ExpressionUUID->"be0d79c1-e990-4c44-ac80-36d571b19277"] }, Open ]], Cell[CellGroupData[{ -Cell[391370, 9842, 2075, 59, 234, "Input",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], -Cell[393448, 9903, 582, 13, 63, "Message",ExpressionUUID->"acc2657f-b05a-4915-b775-05bd912b1707"], -Cell[394033, 9918, 584, 13, 63, "Message",ExpressionUUID->"fc94fe14-976c-4d72-9441-2fb377b4c354"], -Cell[394620, 9933, 586, 13, 80, "Message",ExpressionUUID->"ea47a809-cf75-48da-8f3c-c08d2e09dc6d"], -Cell[395209, 9948, 493, 11, 26, "Message",ExpressionUUID->"0555ae8b-c763-41dc-a845-0d000ca9f8f2"], -Cell[395705, 9961, 195, 3, 33, "Output",ExpressionUUID->"64b93019-d93d-4c56-926a-c6f145ac8a3b"] +Cell[396535, 9989, 2075, 59, 276, "Input",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], +Cell[398613, 10050, 694, 15, 73, "Message",ExpressionUUID->"d180821c-3181-4b32-991d-a187871d9fff"], +Cell[399310, 10067, 693, 15, 73, "Message",ExpressionUUID->"2d7763ea-f0cc-42ff-baa9-a4c551815adb"], +Cell[400006, 10084, 691, 15, 73, "Message",ExpressionUUID->"f7fa4a09-44a4-4e6c-85d0-06cf0554a42d"], +Cell[400700, 10101, 518, 12, 32, "Message",ExpressionUUID->"0bb8fe6d-6de9-4340-8a5b-9987c778e420"], +Cell[401221, 10115, 220, 4, 41, "Output",ExpressionUUID->"7c233497-860a-41b4-be90-eee6c7910159"] }, Open ]], Cell[CellGroupData[{ -Cell[395937, 9969, 2077, 59, 234, "Input",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], -Cell[398017, 10030, 582, 13, 63, "Message",ExpressionUUID->"5609db64-4bc9-4fca-95dc-b85c83ff4a04"], -Cell[398602, 10045, 584, 13, 63, "Message",ExpressionUUID->"6a64fa50-0a02-4c38-900c-48d270e3efdb"], -Cell[399189, 10060, 587, 13, 80, "Message",ExpressionUUID->"271ff691-986a-4617-99af-9512043f60c2"], -Cell[399779, 10075, 493, 11, 26, "Message",ExpressionUUID->"bab3307a-d867-4080-974e-37041fda9aef"], -Cell[400275, 10088, 192, 3, 33, "Output",ExpressionUUID->"23ca59b0-2bc0-4fe2-9ec5-2906154386eb"] +Cell[401478, 10124, 2077, 59, 276, "Input",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], +Cell[403558, 10185, 692, 15, 73, "Message",ExpressionUUID->"4231c19e-3b66-4946-9273-c7730b3fdc11"], +Cell[404253, 10202, 691, 15, 73, "Message",ExpressionUUID->"f18eb8c9-2418-4415-9438-fdee83c92151"], +Cell[404947, 10219, 693, 15, 73, "Message",ExpressionUUID->"d185322b-c82c-4d04-9b68-dea3a8db1526"], +Cell[405643, 10236, 520, 12, 32, "Message",ExpressionUUID->"2d3f6b0c-c841-4e14-9efd-425e033c1d08"], +Cell[406166, 10250, 217, 4, 41, "Output",ExpressionUUID->"79d2e1ab-31f1-411c-bb95-9f9df341c1e2"] }, Open ]], Cell[CellGroupData[{ -Cell[400504, 10096, 2051, 55, 151, "Input",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], -Cell[402558, 10153, 20542, 386, 236, "Output",ExpressionUUID->"373032e6-a28c-49d9-b73f-ee267fe015f8"] +Cell[406420, 10259, 2051, 55, 232, "Input",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], +Cell[408474, 10316, 20567, 387, 295, "Output",ExpressionUUID->"75238c90-19de-4e43-8509-2637fae42353"] }, Open ]], Cell[CellGroupData[{ -Cell[423137, 10544, 2143, 60, 261, "Input",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], -Cell[425283, 10606, 535, 12, 59, "Message",ExpressionUUID->"229491b9-d572-42e7-8b5d-0a96b9aef6e4"], -Cell[425821, 10620, 536, 12, 59, "Message",ExpressionUUID->"f3b8e882-eb53-4b16-a144-bf798835878d"], -Cell[426360, 10634, 540, 12, 59, "Message",ExpressionUUID->"dd2c2aed-4395-48a9-adf4-4496916a500c"], -Cell[426903, 10648, 495, 11, 26, "Message",ExpressionUUID->"680aad12-30e2-408a-972d-76f4a5801e65"], -Cell[427401, 10661, 22460, 417, 232, "Output",ExpressionUUID->"ab52bdca-383e-46fc-a617-412f999fef4b"] +Cell[429078, 10708, 2143, 60, 311, "Input",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], +Cell[431224, 10770, 560, 13, 71, "Message",ExpressionUUID->"1d8160a1-3191-4bc0-9f40-19a070042db8"], +Cell[431787, 10785, 561, 13, 71, "Message",ExpressionUUID->"cc9ba6e5-de30-4382-81b8-b0534b63b4dc"], +Cell[432351, 10800, 565, 13, 71, "Message",ExpressionUUID->"921e5de4-3bcc-4024-a64f-9107f9e41997"], +Cell[432919, 10815, 522, 12, 32, "Message",ExpressionUUID->"63ad2bf5-1660-47b8-98d5-3ba8f2826766"], +Cell[433444, 10829, 22485, 418, 290, "Output",ExpressionUUID->"ecd4a90e-d169-4739-87d8-08ca5ec8b03a"] }, Open ]], Cell[CellGroupData[{ -Cell[449898, 11083, 232, 5, 29, "Input",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], -Cell[450133, 11090, 28819, 549, 232, "Output",ExpressionUUID->"6d874a5f-3866-4845-bfd4-441b17aa13b8"] +Cell[455966, 11252, 232, 5, 36, "Input",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], +Cell[456201, 11259, 28841, 549, 290, "Output",ExpressionUUID->"7bb4b159-abd6-45df-bfca-a1d2df5d2c9e"] }, Open ]], Cell[CellGroupData[{ -Cell[478989, 11644, 1616, 48, 104, "Input",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], -Cell[480608, 11694, 627, 13, 80, "Message",ExpressionUUID->"cfce7262-7c7f-409f-bb54-d978dec4752e"], -Cell[481238, 11709, 629, 13, 80, "Message",ExpressionUUID->"648a4740-4a12-4ce8-813e-d41610c31ddd"], -Cell[481870, 11724, 634, 13, 80, "Message",ExpressionUUID->"399e01f3-0d98-4a3e-bae9-36fff93a732a"], -Cell[482507, 11739, 494, 11, 26, "Message",ExpressionUUID->"298a4869-e7b3-4753-86b4-507afe95fb1a"], -Cell[483004, 11752, 195, 3, 33, "Output",ExpressionUUID->"404a6740-64f1-4915-8722-d2366871ccec"] +Cell[485079, 11813, 1616, 48, 132, "Input",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], +Cell[486698, 11863, 695, 15, 73, "Message",ExpressionUUID->"8cbf26ae-0b86-4069-871b-e6ae366a6e2b"], +Cell[487396, 11880, 692, 15, 73, "Message",ExpressionUUID->"64a8d3cd-1f3d-4de0-b543-fd9669f4973f"], +Cell[488091, 11897, 693, 15, 73, "Message",ExpressionUUID->"38502e96-b8ba-443f-8b3b-4ccfe65d78fa"], +Cell[488787, 11914, 520, 12, 32, "Message",ExpressionUUID->"bb68c53a-7e3e-444d-8c72-9a375f743cbc"], +Cell[489310, 11928, 222, 4, 41, "Output",ExpressionUUID->"2bcd0e41-0998-4150-993a-04b2f3003b3d"] }, Open ]], Cell[CellGroupData[{ -Cell[483236, 11760, 2271, 64, 212, "Input",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], -Cell[485510, 11826, 586, 13, 63, "Message",ExpressionUUID->"08e13102-b647-4676-8d9c-2ff06de37db1"], -Cell[486099, 11841, 588, 13, 63, "Message",ExpressionUUID->"c1627039-52a2-48f5-92df-21a36bd5f3ee"], -Cell[486690, 11856, 589, 13, 80, "Message",ExpressionUUID->"0bc75149-5217-4ee4-953e-abff7f8d9bf4"], -Cell[487282, 11871, 495, 11, 26, "Message",ExpressionUUID->"f4c743c9-2e71-4500-ba4e-eaaaeadb48ac"], -Cell[487780, 11884, 196, 3, 33, "Output",ExpressionUUID->"5a7bbfe4-5710-4f45-b0da-cd2af6187550"] +Cell[489569, 11937, 2271, 64, 348, "Input",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], +Cell[491843, 12003, 698, 15, 73, "Message",ExpressionUUID->"fb2af577-1a23-4b27-bd2e-a6f96a6290db"], +Cell[492544, 12020, 695, 15, 73, "Message",ExpressionUUID->"92a20f66-3856-41ac-9ede-65976ac60aa0"], +Cell[493242, 12037, 695, 15, 73, "Message",ExpressionUUID->"b5390dd9-e50e-400f-81c9-8ad506b15539"], +Cell[493940, 12054, 522, 12, 32, "Message",ExpressionUUID->"b59cbb34-9b7c-4756-9ff3-f6a9517fe53b"], +Cell[494465, 12068, 220, 4, 41, "Output",ExpressionUUID->"e9f8b69b-1bcc-49c9-ac8a-a42ecfc692ee"] }, Open ]], Cell[CellGroupData[{ -Cell[488013, 11892, 2229, 63, 212, "Input",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], -Cell[490245, 11957, 586, 13, 63, "Message",ExpressionUUID->"0322bb50-add5-4a7b-8406-de7d73619985"], -Cell[490834, 11972, 586, 13, 63, "Message",ExpressionUUID->"6f8d455e-9065-4a13-8830-444aef8f08ae"], -Cell[491423, 11987, 589, 13, 80, "Message",ExpressionUUID->"81d831d1-b9f4-4476-b9f6-15cbc6f5cff8"], -Cell[492015, 12002, 495, 11, 26, "Message",ExpressionUUID->"84365a8b-8af6-4e8a-8b89-8020ce96f185"], -Cell[492513, 12015, 192, 3, 33, "Output",ExpressionUUID->"cba9e17d-9411-4ab4-afe0-ac9f29cd584b"] +Cell[494722, 12077, 2229, 63, 348, "Input",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], +Cell[496954, 12142, 696, 15, 73, "Message",ExpressionUUID->"c5229037-1610-4760-9ad3-20cf3f6a9e32"], +Cell[497653, 12159, 695, 15, 73, "Message",ExpressionUUID->"b2d9056d-40a1-473c-af56-77a90642e0c0"], +Cell[498351, 12176, 695, 15, 73, "Message",ExpressionUUID->"c70cdeb2-894d-4f6c-9f22-cead672482e1"], +Cell[499049, 12193, 524, 12, 32, "Message",ExpressionUUID->"7cab5c39-da1a-4886-9acb-9e9b5343dbfd"], +Cell[499576, 12207, 217, 4, 41, "Output",ExpressionUUID->"392f7307-5d59-4bd8-8337-1d2404584fc2"] }, Open ]], Cell[CellGroupData[{ -Cell[492742, 12023, 2235, 63, 212, "Input",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], -Cell[494980, 12088, 582, 13, 63, "Message",ExpressionUUID->"9c89276c-fa41-4c3e-b2d4-9977f1ba49d8"], -Cell[495565, 12103, 584, 13, 63, "Message",ExpressionUUID->"e5fbb5b0-06cb-48bd-98fc-9c85a6e511b0"], -Cell[496152, 12118, 587, 13, 80, "Message",ExpressionUUID->"0a7b17e8-2ade-45f1-b57b-479f9735141c"], -Cell[496742, 12133, 493, 11, 26, "Message",ExpressionUUID->"34fefe3f-c3df-4f59-a155-f5637c31b37b"], -Cell[497238, 12146, 195, 3, 33, "Output",ExpressionUUID->"cb63632a-af24-427f-bc6c-b14e18b51048"] +Cell[499830, 12216, 2235, 63, 348, "Input",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], +Cell[502068, 12281, 692, 15, 73, "Message",ExpressionUUID->"c6776229-777f-4b2b-affd-3864a832a7be"], +Cell[502763, 12298, 691, 15, 73, "Message",ExpressionUUID->"d0eddb0b-2ceb-4aa1-aff6-6f86b7ff923f"], +Cell[503457, 12315, 691, 15, 73, "Message",ExpressionUUID->"09f0355d-44f0-43f4-8c2b-391cff16c0e8"], +Cell[504151, 12332, 517, 12, 32, "Message",ExpressionUUID->"322529fd-6f4a-4691-abd2-1a07226bc465"], +Cell[504671, 12346, 219, 4, 41, "Output",ExpressionUUID->"40d74f25-7942-4ccf-9156-f64082896228"] }, Open ]], Cell[CellGroupData[{ -Cell[497470, 12154, 236, 6, 46, "Input",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], -Cell[497709, 12162, 197, 3, 33, "Output",ExpressionUUID->"10d078a8-e622-441e-bbf2-f64da6aa6256"] +Cell[504927, 12355, 236, 6, 60, "Input",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], +Cell[505166, 12363, 224, 4, 41, "Output",ExpressionUUID->"aa5a1de9-54a8-42f9-b6bd-c88b246804fa"] }, Open ]], -Cell[497921, 12168, 273, 6, 29, "Input",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], +Cell[505405, 12370, 273, 6, 109, "Input",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], Cell[CellGroupData[{ -Cell[498219, 12178, 558, 19, 51, "Input",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], -Cell[498780, 12199, 195, 3, 33, "Output",ExpressionUUID->"98957ea6-cb79-49d7-8df0-1e2d27795ff1"] +Cell[505703, 12380, 558, 19, 66, "Input",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], +Cell[506264, 12401, 220, 4, 41, "Output",ExpressionUUID->"9e0c5d24-e694-4373-a6a8-44624ef24fc5"] }, Open ]], Cell[CellGroupData[{ -Cell[499012, 12207, 170, 5, 55, "Input",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], -Cell[499185, 12214, 195, 3, 33, "Output",ExpressionUUID->"e07fe9e3-1fe9-48d6-a230-2f4f9742927d"] +Cell[506521, 12410, 170, 5, 71, "Input",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], +Cell[506694, 12417, 222, 4, 41, "Output",ExpressionUUID->"144723de-c2b6-4024-8a53-e7b2286a9fd6"] }, Open ]], Cell[CellGroupData[{ -Cell[499417, 12222, 181, 5, 43, "Input",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], -Cell[499601, 12229, 192, 3, 33, "Output",ExpressionUUID->"37258d1e-a81d-4816-8722-12ff0cecfa34"] +Cell[506953, 12426, 181, 5, 55, "Input",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], +Cell[507137, 12433, 217, 4, 41, "Output",ExpressionUUID->"71009fe9-36f9-4415-aca7-cbe0213a59d9"] }, Open ]], Cell[CellGroupData[{ -Cell[499830, 12237, 6055, 185, 474, "Input",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], -Cell[505888, 12424, 194, 3, 33, "Output",ExpressionUUID->"f4e2634f-e356-4876-be2d-a5493db37b99"] +Cell[507391, 12442, 6055, 185, 831, "Input",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], +Cell[513449, 12629, 219, 4, 41, "Output",ExpressionUUID->"599a3880-12e2-4f06-a52e-70d89b0b17d8"] }, Open ]], Cell[CellGroupData[{ -Cell[506119, 12432, 368, 9, 41, "Input",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], -Cell[506490, 12443, 197, 3, 33, "Output",ExpressionUUID->"948bc8f1-7908-4795-9185-1c020f3087b2"] +Cell[513705, 12638, 368, 9, 53, "Input",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], +Cell[514076, 12649, 221, 4, 41, "Output",ExpressionUUID->"48fe709f-c83c-4fb4-8e65-75f8c294c0d7"] }, Open ]], Cell[CellGroupData[{ -Cell[506724, 12451, 6122, 187, 474, "Input",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], -Cell[512849, 12640, 195, 3, 33, "Output",ExpressionUUID->"2d760fb4-18c0-4989-9ceb-8a61e4109e39"] +Cell[514334, 12658, 6122, 187, 900, "Input",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], +Cell[520459, 12847, 220, 4, 41, "Output",ExpressionUUID->"ad4f7145-fe8a-40db-bec6-a9c70ae4bf5d"] }, Open ]], Cell[CellGroupData[{ -Cell[513081, 12648, 368, 9, 41, "Input",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], -Cell[513452, 12659, 191, 3, 33, "Output",ExpressionUUID->"c1399915-4933-4213-aa79-c1165d03b33f"] +Cell[520716, 12856, 368, 9, 53, "Input",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], +Cell[521087, 12867, 216, 4, 41, "Output",ExpressionUUID->"0f67e40c-df43-4b08-92fd-687b657658f5"] }, Open ]], Cell[CellGroupData[{ -Cell[513680, 12667, 2663, 88, 285, "Input",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], -Cell[516346, 12757, 194, 3, 33, "Output",ExpressionUUID->"9d6d77aa-89dd-4721-9b94-91e8f51afdef"] +Cell[521340, 12876, 2663, 88, 435, "Input",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], +Cell[524006, 12966, 218, 4, 41, "Output",ExpressionUUID->"08887665-7d35-4459-a9f6-d1eb64745bc2"] }, Open ]], Cell[CellGroupData[{ -Cell[516577, 12765, 2603, 85, 211, "Input",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], -Cell[519183, 12852, 197, 3, 33, "Output",ExpressionUUID->"75b5bbaf-5d27-4740-a454-4909289ef362"] +Cell[524261, 12975, 2603, 85, 435, "Input",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], +Cell[526867, 13062, 222, 4, 41, "Output",ExpressionUUID->"e97db3b2-c6d7-4432-b4f3-e6b9dac7b319"] }, Open ]], Cell[CellGroupData[{ -Cell[519417, 12860, 3712, 118, 327, "Input",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], -Cell[523132, 12980, 196, 3, 33, "Output",ExpressionUUID->"e312c472-4b6b-4aba-8d82-2f30cc9384f7"] +Cell[527126, 13071, 3712, 118, 575, "Input",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], +Cell[530841, 13191, 223, 4, 41, "Output",ExpressionUUID->"ca415d9d-077f-4a29-b388-872a2a532333"] }, Open ]], Cell[CellGroupData[{ -Cell[523365, 12988, 2075, 59, 234, "Input",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], -Cell[525443, 13049, 583, 13, 63, "Message",ExpressionUUID->"587d9919-fb91-44cf-8ae5-b37f8c1acd6e"], -Cell[526029, 13064, 586, 13, 80, "Message",ExpressionUUID->"336087e0-c45f-4a04-991a-e587f0464e8a"], -Cell[526618, 13079, 591, 13, 80, "Message",ExpressionUUID->"084c5824-71b7-4e77-a5c0-6671342e04b4"], -Cell[527212, 13094, 493, 11, 26, "Message",ExpressionUUID->"f71589a5-118d-49c5-90d1-9abcf543e506"], -Cell[527708, 13107, 195, 3, 33, "Output",ExpressionUUID->"9bcf5af4-0d31-4fed-bd77-fed4551191d0"] +Cell[531101, 13200, 2075, 59, 276, "Input",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], +Cell[533179, 13261, 690, 15, 73, "Message",ExpressionUUID->"753d83eb-3802-411d-8c94-08211d5e74eb"], +Cell[533872, 13278, 689, 15, 73, "Message",ExpressionUUID->"23c82af4-61fc-43ca-8494-25c9ced5d8ee"], +Cell[534564, 13295, 692, 15, 73, "Message",ExpressionUUID->"988ebff3-a2fb-49d0-be8e-7416a923263f"], +Cell[535259, 13312, 518, 12, 32, "Message",ExpressionUUID->"ee7fbec6-1335-4214-8f5e-ff70178c39c6"], +Cell[535780, 13326, 220, 4, 41, "Output",ExpressionUUID->"27171da1-bc76-4475-b9a5-007d3c95a17b"] }, Open ]], Cell[CellGroupData[{ -Cell[527940, 13115, 2075, 59, 234, "Input",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], -Cell[530018, 13176, 583, 13, 63, "Message",ExpressionUUID->"8c8c5809-eb70-4da7-baa0-761124a426c8"], -Cell[530604, 13191, 587, 13, 80, "Message",ExpressionUUID->"49bc33d5-d0cb-47d1-a8f9-445a19777b30"], -Cell[531194, 13206, 591, 13, 80, "Message",ExpressionUUID->"bdd7c7ba-7511-45f1-8b73-d5b39787dfaa"], -Cell[531788, 13221, 495, 11, 26, "Message",ExpressionUUID->"a1040f5d-c197-4141-893c-ca8e86dcadc5"], -Cell[532286, 13234, 194, 3, 33, "Output",ExpressionUUID->"af88e2c9-a79c-4b32-bb9f-e1b399ec900f"] +Cell[536037, 13335, 2075, 59, 276, "Input",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], +Cell[538115, 13396, 690, 15, 73, "Message",ExpressionUUID->"159586e4-876b-4f0a-b0ab-9ac2080bb753"], +Cell[538808, 13413, 691, 15, 73, "Message",ExpressionUUID->"862141af-4571-430e-ab5d-f9e8e2699ae0"], +Cell[539502, 13430, 692, 15, 73, "Message",ExpressionUUID->"e76c89a0-9eeb-4bfa-bd3a-fc0aaee46d27"], +Cell[540197, 13447, 518, 12, 32, "Message",ExpressionUUID->"5dce7824-7bdb-4079-b68c-de8e5a292cda"], +Cell[540718, 13461, 219, 4, 41, "Output",ExpressionUUID->"fe83e27a-763b-44a0-a0c6-20fdc9673c57"] }, Open ]], Cell[CellGroupData[{ -Cell[532517, 13242, 2051, 55, 151, "Input",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], -Cell[534571, 13299, 20333, 383, 237, "Output",ExpressionUUID->"78d6b1e4-782b-42e4-bbde-3a65a383ffb7"] +Cell[540974, 13470, 2051, 55, 232, "Input",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], +Cell[543028, 13527, 20358, 384, 296, "Output",ExpressionUUID->"83f1c413-7b90-45e7-85dc-1c49877213d9"] }, Open ]], Cell[CellGroupData[{ -Cell[554941, 13687, 2141, 60, 261, "Input",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], -Cell[557085, 13749, 537, 12, 59, "Message",ExpressionUUID->"f3454c4a-6373-4e65-ae16-88e4016b94a6"], -Cell[557625, 13763, 542, 12, 59, "Message",ExpressionUUID->"6018480f-ce5e-420b-bdab-c22d183e739c"], -Cell[558170, 13777, 543, 12, 59, "Message",ExpressionUUID->"9510cf56-ef32-4d6d-974b-29bf848ef33f"], -Cell[558716, 13791, 495, 11, 26, "Message",ExpressionUUID->"9f7a357c-8e18-4d8c-bdad-8097983e73f3"], -Cell[559214, 13804, 22213, 411, 232, "Output",ExpressionUUID->"2338e335-369a-4cb4-ae1a-ebd00eec4ef3"] +Cell[563423, 13916, 2141, 60, 311, "Input",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], +Cell[565567, 13978, 564, 13, 71, "Message",ExpressionUUID->"7e984491-7f5f-4c49-be11-de4071e7a95f"], +Cell[566134, 13993, 564, 13, 71, "Message",ExpressionUUID->"c15c9f75-68bf-47a9-9a70-ff7c5cb8a373"], +Cell[566701, 14008, 568, 13, 71, "Message",ExpressionUUID->"a60a32b6-3c1e-49e5-a675-8c27354dbf5a"], +Cell[567272, 14023, 520, 12, 32, "Message",ExpressionUUID->"8c40a3c9-6d63-48d4-8eaf-ec48127439f1"], +Cell[567795, 14037, 22238, 412, 290, "Output",ExpressionUUID->"ab26169a-6a27-4ae4-ad92-1e47940f5c3c"] }, Open ]], Cell[CellGroupData[{ -Cell[581464, 14220, 232, 5, 29, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], -Cell[581699, 14227, 28576, 543, 232, "Output",ExpressionUUID->"c8f5ccd8-cccc-4199-a9c4-f20a065fea70"] +Cell[590070, 14454, 232, 5, 36, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], +Cell[590305, 14461, 28598, 543, 290, "Output",ExpressionUUID->"40cb77f2-f4c7-4c14-8275-a655454428f7"] }, Open ]], Cell[CellGroupData[{ -Cell[610312, 14775, 1616, 48, 104, "Input",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], -Cell[611931, 14825, 622, 13, 80, "Message",ExpressionUUID->"5fca34ce-88c9-4fc3-94bb-f38cefe8cd5e"], -Cell[612556, 14840, 622, 13, 80, "Message",ExpressionUUID->"491ac93b-fe37-4706-9c76-b51c4fedb2ca"], -Cell[613181, 14855, 629, 13, 80, "Message",ExpressionUUID->"8b844305-d7bf-4dad-aadc-af5bd7329332"], -Cell[613813, 14870, 497, 11, 26, "Message",ExpressionUUID->"fb2cf1c5-80e4-4341-b36d-3243a8e357df"], -Cell[614313, 14883, 192, 3, 33, "Output",ExpressionUUID->"6fb9d638-9120-4308-97e1-0a229b400907"] +Cell[618940, 15009, 1616, 48, 132, "Input",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], +Cell[620559, 15059, 697, 15, 73, "Message",ExpressionUUID->"df603f12-44e3-423e-8557-85ec2d30f3e3"], +Cell[621259, 15076, 694, 15, 73, "Message",ExpressionUUID->"4a401f87-5dfd-420f-814a-ac60c49ad3c0"], +Cell[621956, 15093, 695, 15, 73, "Message",ExpressionUUID->"cfb12e8f-f201-4029-83fb-dd58f49cc606"], +Cell[622654, 15110, 520, 12, 32, "Message",ExpressionUUID->"e1f2ce43-e284-4851-9c51-15baa2adcf1b"], +Cell[623177, 15124, 219, 4, 41, "Output",ExpressionUUID->"9f6e96f0-dab9-4c13-9cc9-a563324b9a8b"] }, Open ]], Cell[CellGroupData[{ -Cell[614542, 14891, 2274, 64, 212, "Input",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], -Cell[616819, 14957, 583, 13, 63, "Message",ExpressionUUID->"5e368c30-bf63-4928-a2ea-dc6fd946e4bc"], -Cell[617405, 14972, 587, 13, 80, "Message",ExpressionUUID->"e1e81615-1120-4083-97d2-cc1835eb7ab0"], -Cell[617995, 14987, 593, 13, 80, "Message",ExpressionUUID->"f59228e4-1609-4394-8545-e8f8d02d7550"], -Cell[618591, 15002, 495, 11, 26, "Message",ExpressionUUID->"c2dd0c9a-779f-47fa-8d86-acdbd387b6e4"], -Cell[619089, 15015, 195, 3, 33, "Output",ExpressionUUID->"4fa8391f-be3b-4db5-a992-acfc062c08f3"] +Cell[623433, 15133, 2274, 64, 348, "Input",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], +Cell[625710, 15199, 690, 15, 73, "Message",ExpressionUUID->"9b80a7f9-a216-40c9-85e2-a9d93a884199"], +Cell[626403, 15216, 693, 15, 73, "Message",ExpressionUUID->"ec2b3aba-2214-45bf-be05-af4c13f8cd00"], +Cell[627099, 15233, 690, 15, 73, "Message",ExpressionUUID->"aceec463-6094-4984-9932-538d05ce6c92"], +Cell[627792, 15250, 518, 12, 32, "Message",ExpressionUUID->"bb5bdada-386f-4da3-bf91-946167265a2e"], +Cell[628313, 15264, 219, 4, 41, "Output",ExpressionUUID->"964b4813-a389-4e17-b81d-cc6765cb2970"] }, Open ]], Cell[CellGroupData[{ -Cell[619321, 15023, 2233, 63, 212, "Input",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], -Cell[621557, 15088, 585, 13, 63, "Message",ExpressionUUID->"8b81eea7-9ad9-4757-a18c-a7f5723cf465"], -Cell[622145, 15103, 589, 13, 80, "Message",ExpressionUUID->"dcdec9d9-d61e-4367-8b95-fd6ae1b6de1b"], -Cell[622737, 15118, 593, 13, 80, "Message",ExpressionUUID->"fe1b332f-ab48-41a1-9df1-7cfd1e9fd471"], -Cell[623333, 15133, 495, 11, 26, "Message",ExpressionUUID->"f0735fc9-cc33-491e-94cb-3f6c3250a277"], -Cell[623831, 15146, 194, 3, 33, "Output",ExpressionUUID->"4aba3c83-316b-4ce0-b911-ac1cd5b66103"] +Cell[628569, 15273, 2233, 63, 348, "Input",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], +Cell[630805, 15338, 692, 15, 73, "Message",ExpressionUUID->"dc83e9e9-0366-4d3a-9761-a0fb02a44960"], +Cell[631500, 15355, 695, 15, 73, "Message",ExpressionUUID->"dfc1b8a0-40cd-4024-9ad1-a91ee470cbad"], +Cell[632198, 15372, 690, 15, 73, "Message",ExpressionUUID->"6b631fd8-d88a-43d5-8def-26786c4398a8"], +Cell[632891, 15389, 520, 12, 32, "Message",ExpressionUUID->"80d70302-0587-4a10-b379-0757c510cbf8"], +Cell[633414, 15403, 221, 4, 41, "Output",ExpressionUUID->"e6c1c06d-1fca-481e-b56f-67b8dccefdf3"] }, Open ]], Cell[CellGroupData[{ -Cell[624062, 15154, 2233, 63, 212, "Input",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], -Cell[626298, 15219, 587, 13, 63, "Message",ExpressionUUID->"307d352f-9024-4c6f-9b5d-8125fbf9abcb"], -Cell[626888, 15234, 589, 13, 80, "Message",ExpressionUUID->"a433575d-a202-4ca3-af43-b04992c7c8c1"], -Cell[627480, 15249, 595, 13, 80, "Message",ExpressionUUID->"56f75dd2-de16-484c-8f11-0d00a58da556"], -Cell[628078, 15264, 497, 11, 26, "Message",ExpressionUUID->"1dc2cd06-5cd1-42d9-a656-b110960aede9"], -Cell[628578, 15277, 197, 3, 33, "Output",ExpressionUUID->"77f75f1d-09c9-4ec1-a613-164938ebabdd"] +Cell[633672, 15412, 2233, 63, 348, "Input",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], +Cell[635908, 15477, 694, 15, 73, "Message",ExpressionUUID->"34eeb502-52b8-40e4-b978-a43b32868851"], +Cell[636605, 15494, 697, 15, 73, "Message",ExpressionUUID->"57653cd2-b8b1-4709-bcea-f137f0c6e59b"], +Cell[637305, 15511, 694, 15, 73, "Message",ExpressionUUID->"640a9263-2469-4f74-94e3-8067050b8184"], +Cell[638002, 15528, 524, 12, 32, "Message",ExpressionUUID->"627bd0fe-4c7b-4d06-a454-8299efc49ca4"], +Cell[638529, 15542, 222, 4, 41, "Output",ExpressionUUID->"14a7a8e9-abe4-4789-912e-fbf5ae8d5d49"] }, Open ]], Cell[CellGroupData[{ -Cell[628812, 15285, 238, 6, 46, "Input",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], -Cell[629053, 15293, 196, 3, 33, "Output",ExpressionUUID->"59b78d0a-4a5a-4bce-a170-cf1dbfa9b7a3"] +Cell[638788, 15551, 238, 6, 60, "Input",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], +Cell[639029, 15559, 223, 4, 41, "Output",ExpressionUUID->"2bc3e41d-c84e-4c44-a228-c1f3dd7eb84b"] }, Open ]], -Cell[629264, 15299, 143, 3, 29, "Input",ExpressionUUID->"bf9d1ff3-3014-4754-9c9c-98199fe3027d"] +Cell[639267, 15566, 143, 3, 109, "Input",ExpressionUUID->"bf9d1ff3-3014-4754-9c9c-98199fe3027d"] } ] *) diff --git a/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_pr_Qw1.nb b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_pr_Qw1.nb index 9fb83d0..cb19e6f 100644 --- a/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_pr_Qw1.nb +++ b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_pr_Qw1.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 667740, 15993] -NotebookOptionsPosition[ 627169, 15343] -NotebookOutlinePosition[ 627633, 15362] -CellTagsIndexPosition[ 627590, 15359] +NotebookDataLength[ 673023, 16095] +NotebookOptionsPosition[ 632426, 15445] +NotebookOutlinePosition[ 632897, 15464] +CellTagsIndexPosition[ 632854, 15461] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -27,15 +27,15 @@ Cell[BoxData[ 3.9920650045886707`*^9, {3.9938046575111637`*^9, 3.993804701607058*^9}, 3.993804733204545*^9, {3.993909737291142*^9, 3.993909742224861*^9}, { 3.993910025500534*^9, 3.99391002667583*^9}}, - CellLabel->"In[24]:=",ExpressionUUID->"26c26a16-1b0a-4efc-b3af-0175fe1cc140"], + CellLabel->"In[1]:=",ExpressionUUID->"26c26a16-1b0a-4efc-b3af-0175fe1cc140"], Cell[BoxData["6.05`"], "Output", CellChangeTimes->{ 3.991320420900818*^9, 3.993804549577532*^9, 3.993804625944013*^9, { 3.993804662482604*^9, 3.993804748770383*^9}, 3.9939096014243507`*^9, 3.9939096691949368`*^9, 3.993909752549667*^9, 3.993911040282156*^9, - 3.993916101937477*^9}, - CellLabel->"Out[24]=",ExpressionUUID->"324c79e0-21ce-486c-9be0-f0396d74f486"] + 3.993916101937477*^9, 3.994250294304982*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"8cfc9835-c1a5-4b5a-ab23-61e9911ecf93"] }, Open ]], Cell[CellGroupData[{ @@ -44,15 +44,15 @@ Cell[BoxData[ RowBox[{"A", "=", "240"}]], "Input", CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { 3.993909136325391*^9, 3.993909137492978*^9}}, - CellLabel->"In[25]:=",ExpressionUUID->"204c7c50-46af-46fd-9729-d209fac3838b"], + CellLabel->"In[2]:=",ExpressionUUID->"204c7c50-46af-46fd-9729-d209fac3838b"], Cell[BoxData["240"], "Output", CellChangeTimes->{ 3.9913196497381973`*^9, 3.9938045496655397`*^9, 3.9938046259897127`*^9, { 3.9938046625249434`*^9, 3.9938047488188868`*^9}, 3.993909601730575*^9, 3.993909669289562*^9, 3.99390975259161*^9, 3.993911040450327*^9, - 3.9939161020181723`*^9}, - CellLabel->"Out[25]=",ExpressionUUID->"8800dc50-8cc7-42f7-b3fb-926889f403f2"] + 3.9939161020181723`*^9, 3.9942502944393167`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"b38129c5-5fe7-49f8-ab94-e13ec3e205a6"] }, Open ]], Cell[CellGroupData[{ @@ -61,15 +61,15 @@ Cell[BoxData[ RowBox[{"A1", "=", "156"}]], "Input", CellChangeTimes->{ 3.991798961431202*^9, {3.99380431527282*^9, 3.993804315993903*^9}}, - CellLabel->"In[26]:=",ExpressionUUID->"5630bff6-90dd-4888-9621-cb7d97908b2d"], + CellLabel->"In[3]:=",ExpressionUUID->"5630bff6-90dd-4888-9621-cb7d97908b2d"], Cell[BoxData["156"], "Output", CellChangeTimes->{ 3.9913196497578354`*^9, 3.993804317319977*^9, 3.9938045496866302`*^9, 3.9938046260086718`*^9, {3.99380466254038*^9, 3.99380474883888*^9}, 3.9939096017486753`*^9, 3.9939096693086853`*^9, 3.9939097526160994`*^9, - 3.993911040468547*^9, 3.993916102024556*^9}, - CellLabel->"Out[26]=",ExpressionUUID->"2bca863f-a19e-4675-9bec-510b231b035f"] + 3.993911040468547*^9, 3.993916102024556*^9, 3.994250294461103*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"dac31722-a690-432e-994d-e4a24ba93631"] }, Open ]], Cell[CellGroupData[{ @@ -77,15 +77,15 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, - CellLabel->"In[27]:=",ExpressionUUID->"0a30049e-799d-477e-9c67-6851d13c3ede"], + CellLabel->"In[4]:=",ExpressionUUID->"0a30049e-799d-477e-9c67-6851d13c3ede"], Cell[BoxData["0.55`"], "Output", CellChangeTimes->{ 3.991319649777508*^9, 3.993804549706154*^9, 3.9938046260288763`*^9, { 3.993804662560594*^9, 3.993804748856688*^9}, 3.9939096017670803`*^9, 3.9939096693268347`*^9, 3.993909752633919*^9, 3.9939110404863653`*^9, - 3.993916102062241*^9}, - CellLabel->"Out[27]=",ExpressionUUID->"681e7615-4ca4-4b32-aea0-21378feed02a"] + 3.993916102062241*^9, 3.994250294481638*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"d53f7f2c-916e-4a91-b60e-cbe7b4e39569"] }, Open ]], Cell[CellGroupData[{ @@ -97,30 +97,30 @@ Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", - CellLabel->"In[28]:=",ExpressionUUID->"a2945748-6248-4753-ae17-ddecefca8204"], + CellLabel->"In[5]:=",ExpressionUUID->"a2945748-6248-4753-ae17-ddecefca8204"], Cell[BoxData["0.5455000000000001`"], "Output", CellChangeTimes->{ 3.9913196497965145`*^9, 3.99380454972574*^9, 3.993804626048635*^9, { 3.9938046625774603`*^9, 3.993804748860417*^9}, 3.993909601785378*^9, 3.993909669330983*^9, 3.9939097526503696`*^9, 3.993911040509864*^9, - 3.993916102082574*^9}, - CellLabel->"Out[28]=",ExpressionUUID->"80f7aa0c-e9c4-41b7-bb20-6560a5936cda"] + 3.993916102082574*^9, 3.994250294519177*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"2340091f-54c5-4aeb-8177-d83db47252cb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", - CellLabel->"In[29]:=",ExpressionUUID->"c14bc843-0583-4950-b06d-691f9c31cfa3"], + CellLabel->"In[6]:=",ExpressionUUID->"c14bc843-0583-4950-b06d-691f9c31cfa3"], Cell[BoxData["0.17`"], "Output", CellChangeTimes->{ 3.9913196498144608`*^9, 3.993804549747018*^9, 3.993804626052534*^9, { 3.9938046625812197`*^9, 3.9938047488891172`*^9}, 3.9939096018028593`*^9, 3.993909669362465*^9, 3.993909752666353*^9, 3.993911040522245*^9, - 3.9939161021031322`*^9}, - CellLabel->"Out[29]=",ExpressionUUID->"9400df4d-21d8-453f-be12-855fdb2bc8fc"] + 3.9939161021031322`*^9, 3.9942502945477457`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"89a089aa-76f3-47d2-b5ec-310db6f05f43"] }, Open ]], Cell[CellGroupData[{ @@ -131,15 +131,15 @@ Cell[BoxData[ SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}]}]], "Input", CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, - CellLabel->"In[30]:=",ExpressionUUID->"f5bce722-7b41-4db7-8d03-af0ac3d8c649"], + CellLabel->"In[7]:=",ExpressionUUID->"f5bce722-7b41-4db7-8d03-af0ac3d8c649"], Cell[BoxData["6.244526630021248`"], "Output", CellChangeTimes->{ 3.9913196498225155`*^9, 3.993804549770184*^9, 3.993804626085994*^9, { 3.9938046626047153`*^9, 3.993804748905245*^9}, 3.993909601820876*^9, 3.9939096693803263`*^9, 3.993909752687901*^9, 3.993911040543586*^9, - 3.993916102123417*^9}, - CellLabel->"Out[30]=",ExpressionUUID->"96901039-df3a-4362-bc2f-95461d341aa8"] + 3.993916102123417*^9, 3.994250294577766*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"0edf8c75-ba83-4afe-9222-91c34cd397f9"] }, Open ]], Cell[CellGroupData[{ @@ -151,15 +151,15 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", - CellLabel->"In[31]:=",ExpressionUUID->"9b2bd9a9-1884-4226-b9bb-67f5800ec261"], + CellLabel->"In[8]:=",ExpressionUUID->"9b2bd9a9-1884-4226-b9bb-67f5800ec261"], Cell[BoxData["5.08024220226995`"], "Output", CellChangeTimes->{ 3.9913196498425236`*^9, 3.9938045497749643`*^9, 3.993804626103525*^9, { 3.993804662619735*^9, 3.993804748921926*^9}, 3.993909601824861*^9, 3.99390966939812*^9, 3.993909752692038*^9, 3.99391104056579*^9, - 3.993916102146884*^9}, - CellLabel->"Out[31]=",ExpressionUUID->"1544885f-408d-4793-85b0-c307ab13ca7e"] + 3.993916102146884*^9, 3.994250294610464*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"fcebab3f-b008-41b5-bb80-76560c675e0e"] }, Open ]], Cell[CellGroupData[{ @@ -168,14 +168,15 @@ Cell[BoxData[ RowBox[{"b1", "=", "0.9831"}]], "Input", CellChangeTimes->{ 3.991799283179735*^9, {3.9938043369460163`*^9, 3.993804343883932*^9}}, - CellLabel->"In[32]:=",ExpressionUUID->"fcbe6772-3784-47fa-98be-f2c7aa522a31"], + CellLabel->"In[9]:=",ExpressionUUID->"fcbe6772-3784-47fa-98be-f2c7aa522a31"], Cell[BoxData["0.9831`"], "Output", CellChangeTimes->{ 3.993804549811586*^9, 3.993804626121752*^9, {3.993804662635777*^9, 3.9938047489393063`*^9}, 3.993909601854841*^9, 3.993909669421215*^9, - 3.9939097527133102`*^9, 3.99391104058123*^9, 3.993916102169735*^9}, - CellLabel->"Out[32]=",ExpressionUUID->"7ae56f43-44bf-41d3-ae4b-4ce8f9e486db"] + 3.9939097527133102`*^9, 3.99391104058123*^9, 3.993916102169735*^9, + 3.994250294641642*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"ddc3913c-c6f2-4e87-8aa5-eddfd958d729"] }, Open ]], Cell[CellGroupData[{ @@ -184,44 +185,45 @@ Cell[BoxData[ RowBox[{"b2", "=", "0.463"}]], "Input", CellChangeTimes->{ 3.991799280663351*^9, {3.9938043632365713`*^9, 3.993804381532929*^9}}, - CellLabel->"In[33]:=",ExpressionUUID->"3300daa7-8147-4c0e-ae9c-4e70de35396b"], + CellLabel->"In[10]:=",ExpressionUUID->"3300daa7-8147-4c0e-ae9c-4e70de35396b"], Cell[BoxData["0.463`"], "Output", CellChangeTimes->{ 3.993804549830037*^9, 3.993804626139834*^9, {3.993804662651184*^9, 3.993804748955449*^9}, 3.993909601874164*^9, 3.993909669438889*^9, - 3.99390975272956*^9, 3.993911040594975*^9, 3.9939161021911*^9}, - CellLabel->"Out[33]=",ExpressionUUID->"5abb9d11-1c92-425e-90d2-542e1adfd6a6"] + 3.99390975272956*^9, 3.993911040594975*^9, 3.9939161021911*^9, + 3.994250294765428*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"b073cfdf-a903-4cb2-9f49-c2d0987c07f7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", - CellLabel->"In[34]:=",ExpressionUUID->"e36edc2d-e5c6-4ad2-bc4e-97880bdc2118"], + CellLabel->"In[11]:=",ExpressionUUID->"e36edc2d-e5c6-4ad2-bc4e-97880bdc2118"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498927155`*^9, 3.9938045498689833`*^9, 3.993804626160439*^9, { 3.993804662666739*^9, 3.9938047489718924`*^9}, 3.993909601896028*^9, 3.993909669457499*^9, 3.993909752744871*^9, 3.993911040607565*^9, - 3.9939161022119837`*^9}, - CellLabel->"Out[34]=",ExpressionUUID->"0b8ca2c2-02a1-40f5-9991-dc27751c7af8"] + 3.9939161022119837`*^9, 3.9942503012391453`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"2e8a9563-02d3-458f-820e-2b70b4e549f4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", - CellLabel->"In[35]:=",ExpressionUUID->"d3e646b8-c13f-447f-acde-d73b321316bc"], + CellLabel->"In[12]:=",ExpressionUUID->"d3e646b8-c13f-447f-acde-d73b321316bc"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498996067`*^9, 3.9938045498874207`*^9, 3.9938046261797523`*^9, { 3.993804662682715*^9, 3.993804748988103*^9}, 3.993909601914316*^9, 3.993909669475305*^9, 3.993909752760817*^9, 3.993911040620604*^9, - 3.993916102232278*^9}, - CellLabel->"Out[35]=",ExpressionUUID->"c2a88142-b553-416c-95fd-02dbcf2dd626"] + 3.993916102232278*^9, 3.994250301659986*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"30c8bbf5-cab0-4689-b8c4-c09c97df94b7"] }, Open ]], Cell[CellGroupData[{ @@ -245,15 +247,15 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel->"In[36]:=",ExpressionUUID->"8b806b6f-2b74-4265-b7ef-cc6a19e7b208"], + CellLabel->"In[13]:=",ExpressionUUID->"8b806b6f-2b74-4265-b7ef-cc6a19e7b208"], Cell[BoxData["2.5173601133375656`"], "Output", CellChangeTimes->{ 3.9913197863028755`*^9, 3.9938045499058733`*^9, 3.993804626198407*^9, { 3.9938046626977053`*^9, 3.993804749004431*^9}, 3.9939096019331207`*^9, 3.993909669493326*^9, 3.993909752780408*^9, 3.993911040633182*^9, - 3.993916102252597*^9}, - CellLabel->"Out[36]=",ExpressionUUID->"7195b0df-4fd7-4c8f-9b13-2a637150b70a"] + 3.993916102252597*^9, 3.9942503016760483`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"fa623ce8-dd18-4e03-afbd-4fd9617cef79"] }, Open ]], Cell[CellGroupData[{ @@ -277,15 +279,15 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel->"In[37]:=",ExpressionUUID->"1224c2ae-ce5f-489c-8822-79cb715e44ea"], + CellLabel->"In[14]:=",ExpressionUUID->"1224c2ae-ce5f-489c-8822-79cb715e44ea"], Cell[BoxData["1.5234450434796134`"], "Output", CellChangeTimes->{ 3.9913197864610195`*^9, 3.993804549925211*^9, 3.993804626217005*^9, { 3.993804662711796*^9, 3.99380474902066*^9}, 3.993909601952641*^9, 3.9939096695112753`*^9, 3.993909752793829*^9, 3.993911040650964*^9, - 3.9939161022734747`*^9}, - CellLabel->"Out[37]=",ExpressionUUID->"c00e7a0a-2c20-4faf-881c-749b01df79b5"] + 3.9939161022734747`*^9, 3.994250301696925*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"1b7ec19a-7a81-4847-9394-b0dfa69fed19"] }, Open ]], Cell[CellGroupData[{ @@ -340,15 +342,15 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel->"In[38]:=",ExpressionUUID->"c162e657-ef0e-48d0-beca-55f08ee56145"], + CellLabel->"In[15]:=",ExpressionUUID->"c162e657-ef0e-48d0-beca-55f08ee56145"], Cell[BoxData["0.2814027825454283`"], "Output", CellChangeTimes->{ 3.991319786533783*^9, 3.9938045499441977`*^9, 3.993804626236014*^9, { 3.993804662725235*^9, 3.993804749036929*^9}, 3.993909601972386*^9, 3.993909669529284*^9, 3.993909752809037*^9, 3.9939110406687326`*^9, - 3.993916102294325*^9}, - CellLabel->"Out[38]=",ExpressionUUID->"f7ac154f-a600-4b9d-ae96-dc82d4cf521a"] + 3.993916102294325*^9, 3.994250301724687*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"203d2243-11d6-4a68-831b-797252963aa0"] }, Open ]], Cell[CellGroupData[{ @@ -399,7 +401,7 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", - CellLabel->"In[39]:=",ExpressionUUID->"7cbda4ee-cf16-489b-983d-acac094768ea"], + CellLabel->"In[16]:=",ExpressionUUID->"7cbda4ee-cf16-489b-983d-acac094768ea"], Cell[BoxData[ RowBox[{"-", "0.056142152983087`"}]], "Output", @@ -407,8 +409,8 @@ Cell[BoxData[ 3.991319786540777*^9, 3.993804549962688*^9, 3.993804626257918*^9, { 3.993804662739541*^9, 3.993804749053331*^9}, 3.9939096019922533`*^9, 3.9939096695470543`*^9, 3.993909752823636*^9, 3.993911040685882*^9, - 3.993916102316341*^9}, - CellLabel->"Out[39]=",ExpressionUUID->"4dd23120-9e40-4c85-8d46-c8625e23f59d"] + 3.993916102316341*^9, 3.9942503017526417`*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"13527b2a-f979-4a41-b4d0-d4e6f0e1e10a"] }, Open ]], Cell[CellGroupData[{ @@ -459,7 +461,7 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", - CellLabel->"In[40]:=",ExpressionUUID->"70a35548-a870-4493-8a84-845fe5b80060"], + CellLabel->"In[17]:=",ExpressionUUID->"70a35548-a870-4493-8a84-845fe5b80060"], Cell[BoxData[ RowBox[{"-", "0.3374911667667172`"}]], "Output", @@ -467,8 +469,8 @@ Cell[BoxData[ 3.9913197865777817`*^9, 3.993804549981371*^9, 3.993804626278822*^9, { 3.9938046627542543`*^9, 3.993804749069655*^9}, 3.993909602011525*^9, 3.993909669564651*^9, 3.993909752838642*^9, 3.993911040699798*^9, - 3.9939161023378563`*^9}, - CellLabel->"Out[40]=",ExpressionUUID->"b6a5cca7-3961-4b39-aaf2-b1dbef4d0bad"] + 3.9939161023378563`*^9, 3.994250301781197*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"80b9fe31-1b5a-4a9c-8920-4299f3d32386"] }, Open ]], Cell[CellGroupData[{ @@ -523,60 +525,60 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel->"In[41]:=",ExpressionUUID->"d9e748c8-26cf-4f2b-8f9b-4a4d0de5af12"], + CellLabel->"In[18]:=",ExpressionUUID->"d9e748c8-26cf-4f2b-8f9b-4a4d0de5af12"], Cell[BoxData["0.5841645161809887`"], "Output", CellChangeTimes->{ 3.9913197866129*^9, 3.99380455000006*^9, 3.993804626300075*^9, { 3.993804662773251*^9, 3.993804749085907*^9}, 3.993909602031176*^9, 3.9939096695825167`*^9, 3.993909752853649*^9, 3.993911040717505*^9, - 3.993916102361115*^9}, - CellLabel->"Out[41]=",ExpressionUUID->"f9642f02-8bc2-41be-9dde-ded39477f174"] + 3.993916102361115*^9, 3.994250301809774*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"959cf806-d147-4cfe-be11-809cb871a3d0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", - CellLabel->"In[42]:=",ExpressionUUID->"b2260ccb-3694-49f8-8ac2-40688beba51c"], + CellLabel->"In[19]:=",ExpressionUUID->"b2260ccb-3694-49f8-8ac2-40688beba51c"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786620775*^9, 3.993804550019484*^9, 3.993804626319972*^9, { 3.993804662777142*^9, 3.9938047491020308`*^9}, 3.99390960204895*^9, 3.9939096695998087`*^9, 3.9939097528680077`*^9, 3.9939110407302427`*^9, - 3.993916102384768*^9}, - CellLabel->"Out[42]=",ExpressionUUID->"56a6640f-5cf8-430b-ac0f-6cc86063094f"] + 3.993916102384768*^9, 3.994250301834797*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"03f23b27-4d3a-4546-b3db-87b59375dd26"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fin", "=", "0.09"}]], "Input", - CellLabel->"In[43]:=",ExpressionUUID->"15f43abf-bad8-4a0b-98b6-f6bcf06ed5e6"], + CellLabel->"In[20]:=",ExpressionUUID->"15f43abf-bad8-4a0b-98b6-f6bcf06ed5e6"], Cell[BoxData["0.09`"], "Output", CellChangeTimes->{ 3.991319786657793*^9, 3.9938045500378237`*^9, 3.993804626339315*^9, { 3.993804662793344*^9, 3.99380474911817*^9}, 3.993909602068466*^9, 3.9939096696185913`*^9, 3.993909752884066*^9, 3.9939110407465763`*^9, - 3.993916102407332*^9}, - CellLabel->"Out[43]=",ExpressionUUID->"3575f046-1315-4c55-b22d-cbbe607fc441"] + 3.993916102407332*^9, 3.994250301892722*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"4a059a77-2aeb-401c-857d-c623fdd5135c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffin", "=", "0.42"}]], "Input", - CellLabel->"In[44]:=",ExpressionUUID->"b9b0f8d4-ba1b-4c1e-be99-579da2035883"], + CellLabel->"In[21]:=",ExpressionUUID->"b9b0f8d4-ba1b-4c1e-be99-579da2035883"], Cell[BoxData["0.42`"], "Output", CellChangeTimes->{ 3.9913197866657925`*^9, 3.9938045500560837`*^9, 3.9938046263600817`*^9, { 3.99380466280895*^9, 3.993804749134166*^9}, 3.993909602086402*^9, 3.9939096696362677`*^9, 3.99390975290001*^9, 3.993911040760674*^9, - 3.993916102429802*^9}, - CellLabel->"Out[44]=",ExpressionUUID->"fd5e9efc-ff30-46f4-99b1-9700d4665a53"] + 3.993916102429802*^9, 3.994250301916875*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"377f13f7-20d9-4f3f-80b2-f2ec83479e2c"] }, Open ]], Cell[CellGroupData[{ @@ -585,7 +587,7 @@ Cell[BoxData[ RowBox[{"fex", "=", RowBox[{"-", "2.59"}]}]], "Input", CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, - CellLabel->"In[45]:=",ExpressionUUID->"4b046839-52f5-44f5-bda7-9bfcf58e8125"], + CellLabel->"In[22]:=",ExpressionUUID->"4b046839-52f5-44f5-bda7-9bfcf58e8125"], Cell[BoxData[ RowBox[{"-", "2.59`"}]], "Output", @@ -593,23 +595,23 @@ Cell[BoxData[ 3.9913197866996*^9, 3.993804550075344*^9, 3.993804626383381*^9, { 3.99380466282749*^9, 3.993804749150152*^9}, 3.993909602104745*^9, 3.9939096696539907`*^9, 3.993909752916039*^9, 3.993911040772584*^9, - 3.993916102451672*^9}, - CellLabel->"Out[45]=",ExpressionUUID->"836e9233-2cd7-49e9-a337-df1dbfa57b4e"] + 3.993916102451672*^9, 3.99425030193987*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"4d23825c-8890-4416-9b97-9ba4f6fd3d40"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffex", "=", "0.54"}]], "Input", - CellLabel->"In[46]:=",ExpressionUUID->"ba1fb4bf-cc83-4d32-82fe-79ef7850fd83"], + CellLabel->"In[23]:=",ExpressionUUID->"ba1fb4bf-cc83-4d32-82fe-79ef7850fd83"], Cell[BoxData["0.54`"], "Output", CellChangeTimes->{ 3.9913197867406044`*^9, 3.993804550093996*^9, 3.99380462640412*^9, { 3.9938046628451138`*^9, 3.993804749168808*^9}, 3.993909602124238*^9, 3.993909669671417*^9, 3.9939097529322453`*^9, 3.993911040786252*^9, - 3.993916102474003*^9}, - CellLabel->"Out[46]=",ExpressionUUID->"4eee233b-ec5e-485f-a411-e5544dfd0893"] + 3.993916102474003*^9, 3.994250301964435*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"11f1d37d-e65a-4871-8483-b963f75dc999"] }, Open ]], Cell[CellGroupData[{ @@ -619,14 +621,15 @@ Cell[BoxData[ CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { 3.9938046144530077`*^9, 3.9938046145855627`*^9}}, - CellLabel->"In[47]:=",ExpressionUUID->"9fabfce7-52f3-434c-aa63-a4d3e3fb362e"], + CellLabel->"In[24]:=",ExpressionUUID->"9fabfce7-52f3-434c-aa63-a4d3e3fb362e"], Cell[BoxData["66"], "Output", CellChangeTimes->{ 3.9913197867861958`*^9, 3.993804626423663*^9, {3.993804662861299*^9, 3.99380474918727*^9}, 3.993909602142963*^9, 3.99390966968908*^9, - 3.993909752947946*^9, 3.99391104079755*^9, 3.993916102510561*^9}, - CellLabel->"Out[47]=",ExpressionUUID->"2ec47ad5-fdcb-4bbd-8f73-cf46bf8d0394"] + 3.993909752947946*^9, 3.99391104079755*^9, 3.993916102510561*^9, + 3.994250301996685*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"e5c89208-afae-486e-8749-bb814a248cb7"] }, Open ]], Cell[CellGroupData[{ @@ -636,15 +639,15 @@ Cell[BoxData[ RowBox[{"94", "-", "Z1"}]}]], "Input", CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, 3.9916443064841423`*^9, {3.99380461799697*^9, 3.993804618062627*^9}}, - CellLabel->"In[48]:=",ExpressionUUID->"61807d35-25ac-461b-b91a-947e991dfc57"], + CellLabel->"In[25]:=",ExpressionUUID->"61807d35-25ac-461b-b91a-947e991dfc57"], Cell[BoxData["28"], "Output", CellChangeTimes->{ 3.9913197867928696`*^9, 3.9938045501483994`*^9, 3.993804626442574*^9, { 3.993804662877561*^9, 3.9938047492047462`*^9}, 3.993909602161409*^9, 3.993909669707423*^9, 3.993909752964058*^9, 3.993911040808663*^9, - 3.993916102533925*^9}, - CellLabel->"Out[48]=",ExpressionUUID->"ce85cc11-e318-4727-a1fa-22e547fe56aa"] + 3.993916102533925*^9, 3.9942503020110197`*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"5cacb833-9c1a-4951-ab1a-0cdd21ffc189"] }, Open ]], Cell[CellGroupData[{ @@ -653,15 +656,15 @@ Cell[BoxData[ RowBox[{"A2", "=", RowBox[{"A", "-", "A1"}]}]], "Input", CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, - CellLabel->"In[49]:=",ExpressionUUID->"15af80e0-b761-490c-b743-13b939c2b301"], + CellLabel->"In[26]:=",ExpressionUUID->"15af80e0-b761-490c-b743-13b939c2b301"], Cell[BoxData["84"], "Output", CellChangeTimes->{ 3.991319786827894*^9, 3.993804550167096*^9, 3.993804626459854*^9, { 3.993804662896564*^9, 3.9938047492214317`*^9}, 3.993909602179817*^9, 3.993909669724697*^9, 3.993909752980503*^9, 3.993911040820331*^9, - 3.9939161025578737`*^9}, - CellLabel->"Out[49]=",ExpressionUUID->"119db5f8-7da4-4568-9228-b4d760d98887"] + 3.9939161025578737`*^9, 3.994250302029454*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"a920d1a1-91e6-4600-97f1-83f8d9952fc3"] }, Open ]], Cell[CellGroupData[{ @@ -676,15 +679,15 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel->"In[50]:=",ExpressionUUID->"b4768c84-c996-418b-af48-594084c904f3"], + CellLabel->"In[27]:=",ExpressionUUID->"b4768c84-c996-418b-af48-594084c904f3"], Cell[BoxData["0.11153846153846153`"], "Output", CellChangeTimes->{ 3.9913197868648605`*^9, 3.9938045501856823`*^9, 3.993804626476894*^9, { 3.993804662912559*^9, 3.993804749238111*^9}, 3.993909602199831*^9, 3.993909669742579*^9, 3.9939097529958878`*^9, 3.993911040829289*^9, - 3.9939161025820713`*^9}, - CellLabel->"Out[50]=",ExpressionUUID->"2ed59f48-c2b2-4d19-bdbe-9ec67c31fc26"] + 3.9939161025820713`*^9, 3.994250302049089*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"abbee1f1-032f-44bc-adc2-c2226bfffe02"] }, Open ]], Cell[CellGroupData[{ @@ -699,7 +702,7 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel->"In[51]:=",ExpressionUUID->"8776d600-3ed0-4b58-83de-1d9552233afa"], + CellLabel->"In[28]:=",ExpressionUUID->"8776d600-3ed0-4b58-83de-1d9552233afa"], Cell[BoxData[ RowBox[{"-", "2.562307692307692`"}]], "Output", @@ -707,8 +710,8 @@ Cell[BoxData[ 3.9913197868718567`*^9, 3.993804550204549*^9, 3.9938046264931793`*^9, { 3.993804662930933*^9, 3.993804749256987*^9}, 3.993909602217969*^9, 3.993909669760494*^9, 3.99390975301192*^9, 3.993911040848421*^9, - 3.993916102606736*^9}, - CellLabel->"Out[51]=",ExpressionUUID->"3c45bef3-750e-4030-b887-c303a20895df"] + 3.993916102606736*^9, 3.9942503020662537`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"14e2ab4e-4f76-4ac1-b4f8-5dc8434cf384"] }, Open ]], Cell[CellGroupData[{ @@ -739,15 +742,15 @@ Cell[BoxData[ CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, - CellLabel->"In[52]:=",ExpressionUUID->"f1fb3388-4070-4f8c-afeb-ac5dade52d8b"], + CellLabel->"In[29]:=",ExpressionUUID->"f1fb3388-4070-4f8c-afeb-ac5dade52d8b"], Cell[BoxData["22.163907548137733`"], "Output", CellChangeTimes->{ 3.9913197869068584`*^9, 3.993804550224925*^9, 3.993804626512244*^9, { 3.993804662948985*^9, 3.993804749273611*^9}, 3.993909602237144*^9, 3.99390966977844*^9, 3.993909753027061*^9, 3.993911040863247*^9, - 3.9939161026312447`*^9}, - CellLabel->"Out[52]=",ExpressionUUID->"62c48184-1f48-45d5-8749-cc7b775ef8a0"] + 3.9939161026312447`*^9, 3.9942503020807962`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"6385efc2-45e4-4e71-8652-234e583780a0"] }, Open ]], Cell[CellGroupData[{ @@ -755,15 +758,15 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, - CellLabel->"In[53]:=",ExpressionUUID->"908ae3dc-d3ec-4128-9f2e-91d699c79e93"], + CellLabel->"In[30]:=",ExpressionUUID->"908ae3dc-d3ec-4128-9f2e-91d699c79e93"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786940857*^9, 3.993804550242552*^9, 3.993804626529005*^9, { 3.993804662966734*^9, 3.9938047492900057`*^9}, 3.993909602255596*^9, 3.993909669800799*^9, 3.993909753041724*^9, 3.9939110408795156`*^9, - 3.993916102655189*^9}, - CellLabel->"Out[53]=",ExpressionUUID->"398fcb47-c4de-4a4d-b9b0-3de2d683c0e2"] + 3.993916102655189*^9, 3.994250302094757*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"d6b11eed-e320-4394-94a0-aeae934a179c"] }, Open ]], Cell[CellGroupData[{ @@ -773,19 +776,20 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { 3.9938043992805843`*^9, 3.993804401771452*^9}}, - CellLabel->"In[54]:=",ExpressionUUID->"f7f4dd40-4e58-4807-a978-c3d03da81a45"], + CellLabel->"In[31]:=",ExpressionUUID->"f7f4dd40-4e58-4807-a978-c3d03da81a45"], Cell[BoxData["1.653`"], "Output", CellChangeTimes->{ 3.993804550280451*^9, 3.993804626545594*^9, {3.993804662983712*^9, 3.9938047493074627`*^9}, 3.9939096022742043`*^9, 3.99390966981877*^9, - 3.9939097530579777`*^9, 3.993911040894527*^9, 3.993916102679147*^9}, - CellLabel->"Out[54]=",ExpressionUUID->"1e303c9d-60b3-4334-a19d-8cbd50435467"] + 3.9939097530579777`*^9, 3.993911040894527*^9, 3.993916102679147*^9, + 3.994250302111662*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"da7d634f-8950-4d36-8504-3b0ab0237677"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, - CellLabel->"In[55]:=",ExpressionUUID->"8e6d7ba6-0413-43af-9a22-5a34da1efa50"], + CellLabel->"In[32]:=",ExpressionUUID->"8e6d7ba6-0413-43af-9a22-5a34da1efa50"], Cell[CellGroupData[{ @@ -794,19 +798,20 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { 3.9938044044051847`*^9, 3.993804405718573*^9}}, - CellLabel->"In[56]:=",ExpressionUUID->"19295610-ad81-4231-aa66-f8abe3286f0b"], + CellLabel->"In[33]:=",ExpressionUUID->"19295610-ad81-4231-aa66-f8abe3286f0b"], Cell[BoxData["0.855`"], "Output", CellChangeTimes->{ 3.9938045503168097`*^9, 3.993804626574059*^9, {3.993804663013727*^9, 3.993804749370492*^9}, 3.993909602333745*^9, 3.99390966987148*^9, - 3.9939097530831842`*^9, 3.993911040917564*^9, 3.9939161027523003`*^9}, - CellLabel->"Out[56]=",ExpressionUUID->"32b6da7a-74bd-4d29-89be-b7900a023ef5"] + 3.9939097530831842`*^9, 3.993911040917564*^9, 3.9939161027523003`*^9, + 3.994250302136784*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"280e24a0-4921-4c09-ade5-72f170bc5208"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, - CellLabel->"In[57]:=",ExpressionUUID->"32a0a2f2-0e41-4835-8fba-e0976c26533c"], + CellLabel->"In[34]:=",ExpressionUUID->"32a0a2f2-0e41-4835-8fba-e0976c26533c"], Cell[CellGroupData[{ @@ -815,19 +820,20 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { 3.9938044089096622`*^9, 3.993804410585486*^9}}, - CellLabel->"In[58]:=",ExpressionUUID->"93ee30e3-15f6-47b1-8763-9a8046115de8"], + CellLabel->"In[35]:=",ExpressionUUID->"93ee30e3-15f6-47b1-8763-9a8046115de8"], Cell[BoxData["2.405`"], "Output", CellChangeTimes->{ 3.993804550350713*^9, 3.993804626598034*^9, {3.993804663037463*^9, 3.993804749435276*^9}, 3.9939096023888474`*^9, 3.993909669925479*^9, - 3.9939097531059*^9, 3.993911040939246*^9, 3.993916102822095*^9}, - CellLabel->"Out[58]=",ExpressionUUID->"9866a54c-0a5f-4e04-8049-f01ae8f90e70"] + 3.9939097531059*^9, 3.993911040939246*^9, 3.993916102822095*^9, + 3.994250302161175*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"8e1fdad5-4bd0-4dd1-9b26-3095a8efbbda"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, - CellLabel->"In[59]:=",ExpressionUUID->"2162f6c0-569a-47d8-8ab6-d2949ab58d6a"], + CellLabel->"In[36]:=",ExpressionUUID->"2162f6c0-569a-47d8-8ab6-d2949ab58d6a"], Cell[CellGroupData[{ @@ -836,19 +842,20 @@ Cell[BoxData[ CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, 3.991799359954439*^9, {3.993804414830567*^9, 3.993804416147113*^9}}, - CellLabel->"In[60]:=",ExpressionUUID->"d6a21a25-baf5-46fb-bd52-3457b819f6bf"], + CellLabel->"In[37]:=",ExpressionUUID->"d6a21a25-baf5-46fb-bd52-3457b819f6bf"], Cell[BoxData["1.225`"], "Output", CellChangeTimes->{ 3.993804550383745*^9, 3.993804626621963*^9, {3.993804663060033*^9, 3.9938047494929237`*^9}, 3.9939096024465313`*^9, 3.993909669980788*^9, - 3.993909753130068*^9, 3.993911040961238*^9, 3.993916102886837*^9}, - CellLabel->"Out[60]=",ExpressionUUID->"3a916d04-9275-4445-b3a1-662c71fe6092"] + 3.993909753130068*^9, 3.993911040961238*^9, 3.993916102886837*^9, + 3.994250302186504*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"a1cd7920-3008-4a0e-b309-b13409112901"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, - CellLabel->"In[61]:=",ExpressionUUID->"c22d8007-0161-4853-800e-7d221c2c2a97"], + CellLabel->"In[38]:=",ExpressionUUID->"c22d8007-0161-4853-800e-7d221c2c2a97"], Cell[CellGroupData[{ @@ -857,19 +864,20 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, 3.991718016467348*^9, 3.991799361414671*^9, {3.993804418872067*^9, 3.9938044202542753`*^9}}, - CellLabel->"In[62]:=",ExpressionUUID->"7067a133-8a08-408d-a0fd-2285962d9ddb"], + CellLabel->"In[39]:=",ExpressionUUID->"7067a133-8a08-408d-a0fd-2285962d9ddb"], Cell[BoxData["1.63`"], "Output", CellChangeTimes->{ 3.993804550416999*^9, 3.993804626645709*^9, {3.9938046630845337`*^9, 3.993804749547261*^9}, 3.993909602527773*^9, 3.993909670035091*^9, - 3.993909753153574*^9, 3.99391104098392*^9, 3.993916102954484*^9}, - CellLabel->"Out[62]=",ExpressionUUID->"0a2640ac-f967-4e27-a135-8956668994ce"] + 3.993909753153574*^9, 3.99391104098392*^9, 3.993916102954484*^9, + 3.9942503022076902`*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"552d4195-ec9d-402b-ab67-3cc89c4567a8"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, - CellLabel->"In[63]:=",ExpressionUUID->"18f7a9e7-c435-424e-bcab-15974da0a0fa"], + CellLabel->"In[40]:=",ExpressionUUID->"18f7a9e7-c435-424e-bcab-15974da0a0fa"], Cell[CellGroupData[{ @@ -878,19 +886,20 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993804423858293*^9, 3.993804426562767*^9}}, - CellLabel->"In[64]:=",ExpressionUUID->"d876ec95-206a-47d4-b9cc-e6bfb36fa873"], + CellLabel->"In[41]:=",ExpressionUUID->"d876ec95-206a-47d4-b9cc-e6bfb36fa873"], Cell[BoxData["0.5571`"], "Output", CellChangeTimes->{ 3.993804550449337*^9, 3.993804626671207*^9, {3.993804663115242*^9, 3.993804749603999*^9}, 3.993909602589055*^9, 3.9939096700891027`*^9, - 3.993909753176607*^9, 3.9939110410128717`*^9, 3.993916103047998*^9}, - CellLabel->"Out[64]=",ExpressionUUID->"1f6523e5-3b57-48aa-8f46-739e54e3a723"] + 3.993909753176607*^9, 3.9939110410128717`*^9, 3.993916103047998*^9, + 3.994250302454143*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"d92b8839-07d3-4eda-8891-f14b43da5f4d"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, - CellLabel->"In[65]:=",ExpressionUUID->"77d49b93-d1f4-4f1a-86a0-63d44f33f0b4"], + CellLabel->"In[42]:=",ExpressionUUID->"77d49b93-d1f4-4f1a-86a0-63d44f33f0b4"], Cell[CellGroupData[{ @@ -899,19 +908,20 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.9938044301504927`*^9, 3.993804433535384*^9}}, - CellLabel->"In[66]:=",ExpressionUUID->"9a43eab4-5a23-41ae-b946-b7cc2b87040b"], + CellLabel->"In[43]:=",ExpressionUUID->"9a43eab4-5a23-41ae-b946-b7cc2b87040b"], Cell[BoxData["1.82`"], "Output", CellChangeTimes->{ 3.993804550483719*^9, 3.993804626698537*^9, {3.993804663139299*^9, 3.993804749658854*^9}, 3.993909602653262*^9, 3.993909670143072*^9, - 3.993909753199719*^9, 3.993911041041524*^9, 3.99391610312531*^9}, - CellLabel->"Out[66]=",ExpressionUUID->"94d5998b-14d2-4cbc-8d47-172872b81bcf"] + 3.993909753199719*^9, 3.993911041041524*^9, 3.99391610312531*^9, + 3.9942503024974813`*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"d3986bbf-2a0b-484b-8078-080d9ce82972"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, - CellLabel->"In[67]:=",ExpressionUUID->"cf4376cf-9b14-4408-954a-4eec001b376c"], + CellLabel->"In[44]:=",ExpressionUUID->"cf4376cf-9b14-4408-954a-4eec001b376c"], Cell[CellGroupData[{ @@ -919,19 +929,20 @@ Cell[BoxData[ RowBox[{"nn2", "=", "1.82"}]], "Input", CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, 3.9917993660901737`*^9, {3.993804436228294*^9, 3.993804438250544*^9}}, - CellLabel->"In[68]:=",ExpressionUUID->"347db530-8a18-4ad1-81da-abbcd8cda90b"], + CellLabel->"In[45]:=",ExpressionUUID->"347db530-8a18-4ad1-81da-abbcd8cda90b"], Cell[BoxData["1.82`"], "Output", CellChangeTimes->{ 3.993804550516501*^9, 3.993804626722493*^9, {3.9938046631629744`*^9, 3.993804749712779*^9}, 3.9939096027072487`*^9, 3.993909670196845*^9, - 3.9939097532228928`*^9, 3.9939110410620947`*^9, 3.993916103196061*^9}, - CellLabel->"Out[68]=",ExpressionUUID->"b9d6aa77-22e1-47b1-b17b-a1f2e89bf7b9"] + 3.9939097532228928`*^9, 3.9939110410620947`*^9, 3.993916103196061*^9, + 3.994250302563547*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"76924334-7c45-45a4-9622-f109713c1d3a"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, - CellLabel->"In[69]:=",ExpressionUUID->"41dd2d37-97c7-4898-915a-4babc7938952"], + CellLabel->"In[46]:=",ExpressionUUID->"41dd2d37-97c7-4898-915a-4babc7938952"], Cell[CellGroupData[{ @@ -1420,7 +1431,7 @@ uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== "], - CellLabel->"In[70]:=",ExpressionUUID->"4c7d71bc-6e10-498c-a94b-3de087525273"], + CellLabel->"In[47]:=",ExpressionUUID->"4c7d71bc-6e10-498c-a94b-3de087525273"], Cell[BoxData[ RowBox[{"-", "0.04675250913077061`"}]], "Output", @@ -1428,8 +1439,8 @@ Cell[BoxData[ 3.991319787430073*^9, 3.993804550599751*^9, 3.993804626769621*^9, { 3.99380466321212*^9, 3.993804749779405*^9}, 3.993909602821623*^9, 3.9939096702786417`*^9, 3.993909753275091*^9, 3.993911041160969*^9, - 3.993916103324903*^9}, - CellLabel->"Out[70]=",ExpressionUUID->"800dc3f8-06eb-46d7-955a-d34321a39f37"] + 3.993916103324903*^9, 3.994250302949156*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"fba3e303-c173-4485-8e7f-818433f4859d"] }, Open ]], Cell[CellGroupData[{ @@ -1923,15 +1934,15 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel->"In[71]:=",ExpressionUUID->"108df0b7-564a-41a9-9ca6-152638c913c3"], + CellLabel->"In[48]:=",ExpressionUUID->"108df0b7-564a-41a9-9ca6-152638c913c3"], Cell[BoxData["0.08542989528290149`"], "Output", CellChangeTimes->{ 3.991319787574972*^9, 3.9938045506724253`*^9, 3.993804626799774*^9, { 3.993804663242297*^9, 3.993804749831417*^9}, 3.993909602850985*^9, 3.993909670308428*^9, 3.99390975330634*^9, 3.993911041227948*^9, - 3.9939161033735113`*^9}, - CellLabel->"Out[71]=",ExpressionUUID->"bce4d0d7-3fe1-4ce7-b4e0-b252fbd631fb"] + 3.9939161033735113`*^9, 3.9942503030515747`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"9f19a764-b480-4af8-acef-4841b39b0926"] }, Open ]], Cell[CellGroupData[{ @@ -2419,7 +2430,7 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel->"In[72]:=",ExpressionUUID->"4c9ead0c-9b76-4f34-8a3c-5b9e822883d4"], + CellLabel->"In[49]:=",ExpressionUUID->"4c9ead0c-9b76-4f34-8a3c-5b9e822883d4"], Cell[BoxData[ RowBox[{"-", "92.97992176536582`"}]], "Output", @@ -2427,8 +2438,8 @@ Cell[BoxData[ 3.991319787641424*^9, 3.9938045506993027`*^9, 3.993804626828765*^9, { 3.99380466327107*^9, 3.99380474985798*^9}, 3.993909602878909*^9, 3.9939096703348618`*^9, 3.993909753333283*^9, 3.99391104129389*^9, - 3.993916103401421*^9}, - CellLabel->"Out[72]=",ExpressionUUID->"508aaf49-7310-4c9e-a071-5e79e24d9088"] + 3.993916103401421*^9, 3.994250303149968*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"4fcb97ec-3179-48b7-97d9-0c0bd2f54e71"] }, Open ]], Cell[CellGroupData[{ @@ -2986,7 +2997,7 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel->"In[73]:=",ExpressionUUID->"a82a656f-2cd4-4e27-9402-5230d3595daa"], + CellLabel->"In[50]:=",ExpressionUUID->"a82a656f-2cd4-4e27-9402-5230d3595daa"], Cell[BoxData[ RowBox[{"-", "58.84836946427625`"}]], "Output", @@ -2994,8 +3005,8 @@ Cell[BoxData[ 3.991319787711939*^9, 3.993804550730234*^9, 3.993804626860573*^9, { 3.99380466335039*^9, 3.993804749888824*^9}, 3.9939096029089117`*^9, 3.9939096703655453`*^9, 3.993909753364204*^9, 3.9939110413816547`*^9, - 3.993916103432529*^9}, - CellLabel->"Out[73]=",ExpressionUUID->"895bfa96-e0e5-425a-8488-9475c78a85bb"] + 3.993916103432529*^9, 3.994250303265027*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"a41d85c3-3fe9-4f30-91e9-c31b9a24dc6c"] }, Open ]], Cell[CellGroupData[{ @@ -3553,7 +3564,7 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel->"In[74]:=",ExpressionUUID->"09b7ccdc-5dd9-4d99-a3f4-2900ca2dcff3"], + CellLabel->"In[51]:=",ExpressionUUID->"09b7ccdc-5dd9-4d99-a3f4-2900ca2dcff3"], Cell[BoxData[ RowBox[{"-", "175.78557664639112`"}]], "Output", @@ -3561,8 +3572,8 @@ Cell[BoxData[ 3.9913197877723045`*^9, 3.993804550761911*^9, 3.993804626893774*^9, { 3.993804663389638*^9, 3.993804749919907*^9}, 3.9939096029398603`*^9, 3.993909670396442*^9, 3.993909753395891*^9, 3.993911041465062*^9, - 3.993916103464077*^9}, - CellLabel->"Out[74]=",ExpressionUUID->"1bed92a2-442a-4b69-8fae-201cfb56b1de"] + 3.993916103464077*^9, 3.99425030337407*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"418195ce-87c1-45e4-be09-5e9271421299"] }, Open ]], Cell[CellGroupData[{ @@ -4193,7 +4204,7 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel->"In[75]:=",ExpressionUUID->"0b2e37a4-acc9-46a6-9d73-1c538dacc043"], + CellLabel->"In[52]:=",ExpressionUUID->"0b2e37a4-acc9-46a6-9d73-1c538dacc043"], Cell[BoxData[ RowBox[{"-", "221.57551938396955`"}]], "Output", @@ -4201,38 +4212,38 @@ Cell[BoxData[ 3.991319787833355*^9, 3.993804550797638*^9, 3.993804626930235*^9, { 3.993804663472403*^9, 3.993804749955412*^9}, 3.993909602975071*^9, 3.9939096704323187`*^9, 3.993909753433277*^9, 3.9939110415477953`*^9, - 3.993916103501195*^9}, - CellLabel->"Out[75]=",ExpressionUUID->"a2cdae11-2b54-425b-9e85-87cb4da63dfb"] + 3.993916103501195*^9, 3.9942503035012703`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"fd7607d3-9e1a-4a8f-9d2b-0739e609cb85"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U21", "=", "0"}]], "Input", - CellLabel->"In[76]:=",ExpressionUUID->"ee8354dc-8984-466c-9640-9a634c4a928e"], + CellLabel->"In[53]:=",ExpressionUUID->"ee8354dc-8984-466c-9640-9a634c4a928e"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210013676`*^9, 3.9938045508194923`*^9, 3.993804626946419*^9, { 3.993804663488306*^9, 3.993804749974567*^9}, 3.9939096029931*^9, 3.993909670451165*^9, 3.9939097534481*^9, 3.993911041562955*^9, - 3.993916103521495*^9}, - CellLabel->"Out[76]=",ExpressionUUID->"7445555f-b735-4e19-a56b-a58b1311f4b5"] + 3.993916103521495*^9, 3.994250303582116*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"aa0d8d67-28d8-40f7-9206-702031693f6f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U22", "=", "0"}]], "Input", - CellLabel->"In[77]:=",ExpressionUUID->"fbb3dcc4-26fa-405a-8c82-5c30e23622cc"], + CellLabel->"In[54]:=",ExpressionUUID->"fbb3dcc4-26fa-405a-8c82-5c30e23622cc"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210355663`*^9, 3.993804550838839*^9, 3.99380462696198*^9, { 3.993804663542288*^9, 3.993804749990815*^9}, 3.9939096030110683`*^9, 3.993909670469376*^9, 3.993909753462414*^9, 3.993911041578163*^9, - 3.9939161035387506`*^9}, - CellLabel->"Out[77]=",ExpressionUUID->"eb619002-cc9a-4760-b17b-9deb9e3e8d8b"] + 3.9939161035387506`*^9, 3.9942503035975943`*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"e54b3927-5d9e-4701-83e9-cd7337d941a9"] }, Open ]], Cell[CellGroupData[{ @@ -4276,15 +4287,15 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel->"In[78]:=",ExpressionUUID->"9fdc753b-53da-4b56-b7f0-0395b984a145"], + CellLabel->"In[55]:=",ExpressionUUID->"9fdc753b-53da-4b56-b7f0-0395b984a145"], Cell[BoxData["111.7060296377673`"], "Output", CellChangeTimes->{ 3.991320421068556*^9, 3.9938045508585377`*^9, 3.993804626991984*^9, { 3.993804663557494*^9, 3.9938047500074787`*^9}, 3.99390960303067*^9, 3.993909670487976*^9, 3.993909753477995*^9, 3.993911041596219*^9, - 3.99391610355659*^9}, - CellLabel->"Out[78]=",ExpressionUUID->"391e759c-6e5f-4c46-a0e9-780a52d116e4"] + 3.99391610355659*^9, 3.994250303615641*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"f72b3600-133a-4a13-a335-35ea5ee97891"] }, Open ]], Cell[CellGroupData[{ @@ -4324,7 +4335,7 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel->"In[79]:=",ExpressionUUID->"860b2353-fa6a-4d6a-a71a-9b8849a95763"], + CellLabel->"In[56]:=",ExpressionUUID->"860b2353-fa6a-4d6a-a71a-9b8849a95763"], Cell[BoxData[ RowBox[{"-", "116.92037152462031`"}]], "Output", @@ -4332,8 +4343,8 @@ Cell[BoxData[ 3.991320421098543*^9, 3.993804550878648*^9, 3.993804627006651*^9, { 3.99380466357337*^9, 3.993804750023952*^9}, 3.993909603048832*^9, 3.993909670506846*^9, 3.99390975349363*^9, 3.993911041616233*^9, - 3.993916103574683*^9}, - CellLabel->"Out[79]=",ExpressionUUID->"0a57c1f8-be09-43ed-b92d-7e56fb4bde5d"] + 3.993916103574683*^9, 3.99425030366538*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"acc5535a-fa25-4828-b041-a887bbaa4181"] }, Open ]], Cell[CellGroupData[{ @@ -4377,35 +4388,35 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel->"In[80]:=",ExpressionUUID->"761da832-b2e6-4758-85c3-936b749cb6a1"], + CellLabel->"In[57]:=",ExpressionUUID->"761da832-b2e6-4758-85c3-936b749cb6a1"], Cell[BoxData["187.12903971509587`"], "Output", CellChangeTimes->{ 3.9913204211275444`*^9, 3.9938045509027987`*^9, 3.993804627020084*^9, { 3.993804663589897*^9, 3.993804750040456*^9}, 3.9939096030676117`*^9, 3.9939096705252743`*^9, 3.993909753508572*^9, 3.993911041630309*^9, - 3.993916103592448*^9}, - CellLabel->"Out[80]=",ExpressionUUID->"505d3122-1122-478d-959f-5c8ee2c8a240"] + 3.993916103592448*^9, 3.9942503036844187`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"75cdd877-7819-4e79-8c49-a8016761ffbf"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c11"], "Input", - CellLabel->"In[81]:=",ExpressionUUID->"69b30e47-9252-4807-a709-fe211b498050"], + CellLabel->"In[58]:=",ExpressionUUID->"69b30e47-9252-4807-a709-fe211b498050"], Cell[BoxData["0.2814027825454283`"], "Output", CellChangeTimes->{ 3.9913204211385536`*^9, 3.9938045509220467`*^9, 3.993804627033495*^9, { 3.993804663606344*^9, 3.9938047500576067`*^9}, 3.993909603085306*^9, 3.993909670543174*^9, 3.993909753523663*^9, 3.993911041648457*^9, - 3.9939161036111803`*^9}, - CellLabel->"Out[81]=",ExpressionUUID->"50f2817f-c132-4251-8062-b1d2212a88df"] + 3.9939161036111803`*^9, 3.994250303697192*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"c340d797-c9a1-4ec0-97ef-e4d0fbe46570"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c12"], "Input", - CellLabel->"In[82]:=",ExpressionUUID->"30a1015a-87a3-4d41-a8c2-e9121849176e"], + CellLabel->"In[59]:=",ExpressionUUID->"30a1015a-87a3-4d41-a8c2-e9121849176e"], Cell[BoxData[ RowBox[{"-", "0.056142152983087`"}]], "Output", @@ -4413,14 +4424,14 @@ Cell[BoxData[ 3.9913204211683464`*^9, 3.993804550940889*^9, 3.993804627047104*^9, { 3.99380466362283*^9, 3.993804750074596*^9}, 3.993909603103224*^9, 3.993909670561534*^9, 3.993909753539481*^9, 3.99391104166289*^9, - 3.9939161036307487`*^9}, - CellLabel->"Out[82]=",ExpressionUUID->"4a154ccc-2208-4a1d-b7ba-5e936c5fd4e2"] + 3.9939161036307487`*^9, 3.994250303714591*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"18f91631-f43a-4123-ade9-27f043d62d2a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c21"], "Input", - CellLabel->"In[83]:=",ExpressionUUID->"f0e44845-9986-4f32-a790-8440b2c439e9"], + CellLabel->"In[60]:=",ExpressionUUID->"f0e44845-9986-4f32-a790-8440b2c439e9"], Cell[BoxData[ RowBox[{"-", "0.3374911667667172`"}]], "Output", @@ -4428,50 +4439,50 @@ Cell[BoxData[ 3.991320421199068*^9, 3.99380455096201*^9, 3.993804627060543*^9, { 3.9938046636401176`*^9, 3.9938047500897923`*^9}, 3.993909603121352*^9, 3.993909670579809*^9, 3.993909753557192*^9, 3.993911041676931*^9, - 3.993916103655046*^9}, - CellLabel->"Out[83]=",ExpressionUUID->"6bd86e57-7512-4058-b46c-b40e2738c915"] + 3.993916103655046*^9, 3.9942503037737713`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"c74eabc5-56e1-47be-8045-be10e3a15aa4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c22"], "Input", - CellLabel->"In[84]:=",ExpressionUUID->"5a605471-8c22-4380-b127-1f1dd47ed52a"], + CellLabel->"In[61]:=",ExpressionUUID->"5a605471-8c22-4380-b127-1f1dd47ed52a"], Cell[BoxData["0.5841645161809887`"], "Output", CellChangeTimes->{ 3.991320421228037*^9, 3.993804550980524*^9, 3.9938046270751667`*^9, { 3.993804663656624*^9, 3.993804750107565*^9}, 3.993909603139456*^9, 3.993909670598647*^9, 3.9939097536021843`*^9, 3.993911041688751*^9, - 3.993916103675688*^9}, - CellLabel->"Out[84]=",ExpressionUUID->"2ee0c54a-44c4-4f00-b43b-30f3dfcda055"] + 3.993916103675688*^9, 3.994250303788265*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"8f587f71-ab5e-4aa4-9250-46d10580b950"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w1"], "Input", - CellLabel->"In[85]:=",ExpressionUUID->"f09aa527-60a2-4ef7-b8eb-c3c472d40523"], + CellLabel->"In[62]:=",ExpressionUUID->"f09aa527-60a2-4ef7-b8eb-c3c472d40523"], Cell[BoxData["2.5173601133375656`"], "Output", CellChangeTimes->{ 3.9913204212585373`*^9, 3.993804550999857*^9, 3.993804627093104*^9, { 3.993804663673789*^9, 3.993804750123993*^9}, 3.993909603159047*^9, 3.9939096706237583`*^9, 3.993909753618161*^9, 3.9939110417032013`*^9, - 3.993916103695614*^9}, - CellLabel->"Out[85]=",ExpressionUUID->"34dfdc3e-486b-47d4-838a-8e257d323658"] + 3.993916103695614*^9, 3.994250303802328*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"0307c108-b960-4539-a0da-92e8713fad1b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w2"], "Input", - CellLabel->"In[86]:=",ExpressionUUID->"9437c249-5d0f-4768-91cc-73b83b6fd2cb"], + CellLabel->"In[63]:=",ExpressionUUID->"9437c249-5d0f-4768-91cc-73b83b6fd2cb"], Cell[BoxData["1.5234450434796134`"], "Output", CellChangeTimes->{ 3.9913204212884274`*^9, 3.993804551018916*^9, 3.993804627108033*^9, { 3.993804663692298*^9, 3.993804750140585*^9}, 3.99390960317778*^9, 3.993909670643187*^9, 3.9939097536363897`*^9, 3.993911041720379*^9, - 3.99391610371972*^9}, - CellLabel->"Out[86]=",ExpressionUUID->"fe3c488b-1b64-46c1-92d0-8b7e09bc757d"] + 3.99391610371972*^9, 3.994250303818739*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"941fd5b1-c010-4a98-a1a5-97b889848a50"] }, Open ]], Cell[CellGroupData[{ @@ -4492,7 +4503,7 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", - CellLabel->"In[87]:=",ExpressionUUID->"e6b8b8d0-ae42-4d47-bdc8-16674ea04604"], + CellLabel->"In[64]:=",ExpressionUUID->"e6b8b8d0-ae42-4d47-bdc8-16674ea04604"], Cell[BoxData[ RowBox[{"-", "18.177896388526342`"}]], "Output", @@ -4500,8 +4511,8 @@ Cell[BoxData[ 3.9913204213185234`*^9, 3.993804551037992*^9, 3.993804627123701*^9, { 3.993804663711438*^9, 3.993804750156764*^9}, 3.993909603196027*^9, 3.993909670663684*^9, 3.99390975365348*^9, 3.9939110417352552`*^9, - 3.993916103740334*^9}, - CellLabel->"Out[87]=",ExpressionUUID->"9ad5cbee-99f5-4f33-a8f5-ffb4cdb07d9d"] + 3.993916103740334*^9, 3.994250303835268*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"067164e0-e3be-46db-af34-6de55957b741"] }, Open ]], Cell[CellGroupData[{ @@ -4522,7 +4533,7 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", - CellLabel->"In[88]:=",ExpressionUUID->"31114cdb-8af1-4e3b-9bb4-51ee021a3bf0"], + CellLabel->"In[65]:=",ExpressionUUID->"31114cdb-8af1-4e3b-9bb4-51ee021a3bf0"], Cell[BoxData[ RowBox[{"-", "4.422931821128753`"}]], "Output", @@ -4530,8 +4541,8 @@ Cell[BoxData[ 3.991320421349531*^9, 3.99380455105733*^9, 3.993804627139119*^9, { 3.993804663729148*^9, 3.993804750173326*^9}, 3.993909603216249*^9, 3.993909670683181*^9, 3.993909753671298*^9, 3.993911041748139*^9, - 3.993916103761271*^9}, - CellLabel->"Out[88]=",ExpressionUUID->"b365816f-d6b8-4d6e-a33b-2b0459ee443c"] + 3.993916103761271*^9, 3.9942503038875093`*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"75732242-1c05-4e27-a545-bbd2d79559d8"] }, Open ]], Cell[CellGroupData[{ @@ -4596,15 +4607,15 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]}]}]], "Input", - CellLabel->"In[89]:=",ExpressionUUID->"25ac905b-3951-422a-93cf-d7e9937f463e"], + CellLabel->"In[66]:=",ExpressionUUID->"25ac905b-3951-422a-93cf-d7e9937f463e"], Cell[BoxData["93.52813324924097`"], "Output", CellChangeTimes->{ 3.9913204213784294`*^9, 3.9938045510774317`*^9, 3.993804627154879*^9, { 3.993804663746785*^9, 3.993804750189831*^9}, 3.993909603237997*^9, 3.99390967070298*^9, 3.993909753690928*^9, 3.9939110417615643`*^9, - 3.9939161037827797`*^9}, - CellLabel->"Out[89]=",ExpressionUUID->"a27b13be-00a9-4e9f-8347-d7b7a372d18e"] + 3.9939161037827797`*^9, 3.9942503039011517`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"53168218-87d1-40ad-87fa-a29f290a9fb7"] }, Open ]], Cell[CellGroupData[{ @@ -4645,7 +4656,7 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", - CellLabel->"In[90]:=",ExpressionUUID->"7b6bb20d-afa7-442e-a5a2-898994a8b0c6"], + CellLabel->"In[67]:=",ExpressionUUID->"7b6bb20d-afa7-442e-a5a2-898994a8b0c6"], Cell[BoxData[ RowBox[{"-", "116.92037152462031`"}]], "Output", @@ -4653,8 +4664,8 @@ Cell[BoxData[ 3.9913204213904285`*^9, 3.993804551098919*^9, 3.99380462716993*^9, { 3.99380466376478*^9, 3.993804750205999*^9}, 3.9939096032579308`*^9, 3.99390967072291*^9, 3.993909753708663*^9, 3.993911041777234*^9, - 3.993916103803102*^9}, - CellLabel->"Out[90]=",ExpressionUUID->"ed573209-1a78-40a2-878c-15e01e9973ad"] + 3.993916103803102*^9, 3.9942503039155188`*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"053d4c2d-0355-4e3e-b069-136013c79d1f"] }, Open ]], Cell[CellGroupData[{ @@ -4720,15 +4731,15 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]}]}]], "Input", - CellLabel->"In[91]:=",ExpressionUUID->"80ac9d67-9237-443f-aa3f-2a8a5d0599da"], + CellLabel->"In[68]:=",ExpressionUUID->"80ac9d67-9237-443f-aa3f-2a8a5d0599da"], Cell[BoxData["182.70610789396713`"], "Output", CellChangeTimes->{ 3.991320421419428*^9, 3.993804551121139*^9, 3.993804627185237*^9, { 3.9938046637699213`*^9, 3.993804750221984*^9}, 3.993909603279203*^9, 3.993909670743991*^9, 3.993909753728705*^9, 3.9939110417957993`*^9, - 3.993916103827013*^9}, - CellLabel->"Out[91]=",ExpressionUUID->"086f8a1d-d230-4a5e-b310-cecd76a178c8"] + 3.993916103827013*^9, 3.99425030393091*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"2aad4ebb-c253-486a-95c7-cb02ee0225bc"] }, Open ]], Cell[CellGroupData[{ @@ -4786,15 +4797,15 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel->"In[92]:=",ExpressionUUID->"5f11066c-d152-4873-bc9f-9b0f487e480f"], + CellLabel->"In[69]:=",ExpressionUUID->"5f11066c-d152-4873-bc9f-9b0f487e480f"], Cell[BoxData["150.0362849602646`"], "Output", CellChangeTimes->{ 3.9913204214494324`*^9, 3.9938045511434107`*^9, 3.993804627199387*^9, { 3.9938046637889233`*^9, 3.993804750238797*^9}, 3.993909603297597*^9, 3.993909670763399*^9, 3.993909753746546*^9, 3.9939110418163233`*^9, - 3.993916103832526*^9}, - CellLabel->"Out[92]=",ExpressionUUID->"40c906b1-bbb2-4223-8540-c554fc9d915d"] + 3.993916103832526*^9, 3.994250303944606*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"e5406def-b20e-42e4-b5ca-ee01fa340175"] }, Open ]], Cell[CellGroupData[{ @@ -4852,15 +4863,15 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel->"In[93]:=",ExpressionUUID->"22e78aba-149f-4af3-8ab2-92ac3a9c7b5f"], + CellLabel->"In[70]:=",ExpressionUUID->"22e78aba-149f-4af3-8ab2-92ac3a9c7b5f"], Cell[BoxData["845.8339546196385`"], "Output", CellChangeTimes->{ 3.991320421481529*^9, 3.993804551165799*^9, 3.993804627215629*^9, { 3.9938046638111277`*^9, 3.993804750255252*^9}, 3.993909603318231*^9, 3.993909670782775*^9, 3.993909753763286*^9, 3.993911041829805*^9, - 3.993916103867443*^9}, - CellLabel->"Out[93]=",ExpressionUUID->"a7cd83cc-a7a5-4b9a-ae59-7fb61447d511"] + 3.993916103867443*^9, 3.994250303959614*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"3a6aa3f9-f7c0-44cd-b723-0cc5f66f5949"] }, Open ]], Cell[CellGroupData[{ @@ -4869,16 +4880,17 @@ Cell[BoxData[ RowBox[{"f1", "=", "0.47396"}]], "Input", CellChangeTimes->{ 3.9918488488187084`*^9, {3.993910166405199*^9, 3.9939101744811153`*^9}}, - CellLabel->"In[94]:=",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], + CellLabel->"In[71]:=",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], Cell[BoxData["0.47396`"], "Output", - CellChangeTimes->{3.993911022772211*^9, 3.993916103888163*^9}, - CellLabel->"Out[94]=",ExpressionUUID->"ae559e9e-25a3-477c-b42d-3dfa5da93e04"] + CellChangeTimes->{3.993911022772211*^9, 3.993916103888163*^9, + 3.994250303971874*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"eac56e15-d9fd-4cfd-8b31-63e7fd936a3b"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848849725815*^9, 3.9918488497328167`*^9}}, - CellLabel->"In[95]:=",ExpressionUUID->"a5161e25-7247-124f-8601-7bcc4af89c62"], + CellLabel->"In[72]:=",ExpressionUUID->"a5161e25-7247-124f-8601-7bcc4af89c62"], Cell[CellGroupData[{ @@ -4886,16 +4898,17 @@ Cell[BoxData[ RowBox[{"f2", "=", "0.24466"}]], "Input", CellChangeTimes->{ 3.9918488509977226`*^9, {3.993910176900714*^9, 3.9939101817046003`*^9}}, - CellLabel->"In[96]:=",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], + CellLabel->"In[73]:=",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], Cell[BoxData["0.24466`"], "Output", - CellChangeTimes->{3.993911022873777*^9, 3.993916103949174*^9}, - CellLabel->"Out[96]=",ExpressionUUID->"956f9688-562a-432a-960e-7a3222cf3456"] + CellChangeTimes->{3.993911022873777*^9, 3.993916103949174*^9, + 3.994250304028195*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"bbe609b6-6a10-4b65-8a32-dc3cd2b0cd3b"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848851636154*^9, 3.9918488516427097`*^9}}, - CellLabel->"In[97]:=",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], + CellLabel->"In[74]:=",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], Cell[CellGroupData[{ @@ -4941,12 +4954,12 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel->"In[98]:=",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], + CellLabel->"In[75]:=",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], Cell[BoxData["3.0421649672677`*^-53"], "Output", CellChangeTimes->{3.9913279321052856`*^9, 3.993911022902009*^9, - 3.993916104061735*^9}, - CellLabel->"Out[98]=",ExpressionUUID->"3a14f16d-6ec5-4f30-ad6d-d48c34fad803"] + 3.993916104061735*^9, 3.9942503040533113`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"165b0f58-c2cb-45a8-8f7f-9b649ca640bc"] }, Open ]], Cell[CellGroupData[{ @@ -4981,12 +4994,12 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", CellChangeTimes->{3.9915575644922657`*^9}, - CellLabel->"In[99]:=",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], + CellLabel->"In[76]:=",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], Cell[BoxData["1.0552510023146262`*^-54"], "Output", CellChangeTimes->{3.991327932129387*^9, 3.9939110229223003`*^9, - 3.993916104082437*^9}, - CellLabel->"Out[99]=",ExpressionUUID->"3109b7b7-8982-41be-915a-1576b2d7da5c"] + 3.993916104082437*^9, 3.994250304086918*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"b61ca563-e492-4f5f-b93d-c45de6f01e9d"] }, Open ]], Cell[CellGroupData[{ @@ -5020,14 +5033,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", CellChangeTimes->{{3.9915575683388195`*^9, 3.991557570173399*^9}}, - CellLabel-> - "In[100]:=",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], + CellLabel->"In[77]:=",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], Cell[BoxData["1.1823542679164208`*^-54"], "Output", CellChangeTimes->{3.991327932138338*^9, 3.993911022939782*^9, - 3.9939161041034*^9}, - CellLabel-> - "Out[100]=",ExpressionUUID->"8e459cdd-c221-453e-926c-f8b4cf236fc3"] + 3.9939161041034*^9, 3.994250304118445*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"578b5d99-9fe2-4f1e-9afc-a14602e803ea"] }, Open ]], Cell[CellGroupData[{ @@ -5050,14 +5061,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel-> - "In[101]:=",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], + CellLabel->"In[78]:=",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], Cell[BoxData["16.516942672454782`"], "Output", CellChangeTimes->{3.9913279321616154`*^9, 3.99391102295513*^9, - 3.9939161041239557`*^9}, - CellLabel-> - "Out[101]=",ExpressionUUID->"90121fa1-9b22-48aa-9130-d6c4f0fcb9b0"] + 3.9939161041239557`*^9, 3.9942503041338654`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"8db6765a-3d00-4da1-9f54-6ce427f88e8e"] }, Open ]], Cell[CellGroupData[{ @@ -5082,14 +5091,12 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", - CellLabel-> - "In[102]:=",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], + CellLabel->"In[79]:=",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], Cell[BoxData["30.248326256562038`"], "Output", CellChangeTimes->{3.9913279321696014`*^9, 3.9939110229746943`*^9, - 3.993916104144907*^9}, - CellLabel-> - "Out[102]=",ExpressionUUID->"6915c995-1276-4c81-b200-7aeb228fb6e1"] + 3.993916104144907*^9, 3.994250304159477*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"54b84d95-a36f-42e5-83cf-d2316a06b411"] }, Open ]], Cell[CellGroupData[{ @@ -5098,14 +5105,12 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel-> - "In[103]:=",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], + CellLabel->"In[80]:=",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], Cell[BoxData["3.013931102943886`"], "Output", CellChangeTimes->{3.9913279321926613`*^9, 3.993911022991911*^9, - 3.9939161041660357`*^9}, - CellLabel-> - "Out[103]=",ExpressionUUID->"d2fffa84-9057-404b-940d-f22e5285076c"] + 3.9939161041660357`*^9, 3.9942503041836*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"cbb33b2d-3e5c-4c4d-a82f-862c9d4f0933"] }, Open ]], Cell[CellGroupData[{ @@ -5114,14 +5119,12 @@ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", - CellLabel-> - "In[104]:=",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], + CellLabel->"In[81]:=",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], Cell[BoxData["5.288005318472368`"], "Output", CellChangeTimes->{3.991327932200657*^9, 3.993911023015183*^9, - 3.993916104189761*^9}, - CellLabel-> - "Out[104]=",ExpressionUUID->"e58e1cb1-3880-4621-9bb4-d5d3e9357bad"] + 3.993916104189761*^9, 3.994250304207521*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"e338a5b7-cf57-495b-8557-1a42ba03d5e0"] }, Open ]], Cell[CellGroupData[{ @@ -5130,14 +5133,12 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel-> - "In[105]:=",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], + CellLabel->"In[82]:=",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], Cell[BoxData["159.95331011958743`"], "Output", CellChangeTimes->{3.99132793222501*^9, 3.9939110230371733`*^9, - 3.993916104215991*^9}, - CellLabel-> - "Out[105]=",ExpressionUUID->"59eaddb4-0983-40d2-84bc-56db9a8da55c"] + 3.993916104215991*^9, 3.994250304241201*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"c73f2949-9992-42de-8433-8f98e9cf8bd7"] }, Open ]], Cell[CellGroupData[{ @@ -5146,14 +5147,12 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[106]:=",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], + CellLabel->"In[83]:=",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], Cell[BoxData["49.78092724605258`"], "Output", CellChangeTimes->{3.9913279322642612`*^9, 3.993911023059963*^9, - 3.993916104242375*^9}, - CellLabel-> - "Out[106]=",ExpressionUUID->"ff1ee0e3-bb3e-4a93-a2a2-b5befaca724c"] + 3.993916104242375*^9, 3.994250304268332*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"e6fea06f-43fc-4c75-a33a-768b8af23fac"] }, Open ]], Cell[CellGroupData[{ @@ -5342,14 +5341,12 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[107]:=",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], + CellLabel->"In[84]:=",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], Cell[BoxData["0.005801737962944015`"], "Output", CellChangeTimes->{3.9913279322906475`*^9, 3.9939110230806828`*^9, - 3.993916104269724*^9}, - CellLabel-> - "Out[107]=",ExpressionUUID->"49c869fd-1d1f-4e84-96a8-d84f32ad6f76"] + 3.993916104269724*^9, 3.9942503043016443`*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"43f095aa-f5df-4ed6-98e1-36d237bcc70c"] }, Open ]], Cell[CellGroupData[{ @@ -5362,14 +5359,12 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[108]:=",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], + CellLabel->"In[85]:=",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], Cell[BoxData["11.634986554328606`"], "Output", CellChangeTimes->{3.9913279323826447`*^9, 3.993911386005465*^9, - 3.99391610433676*^9}, - CellLabel-> - "Out[108]=",ExpressionUUID->"57dfa062-c928-4057-9b04-f8ef5b824e64"] + 3.99391610433676*^9, 3.994250304628377*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"49870db9-062b-430c-b2dc-d29932a57ae1"] }, Open ]], Cell[CellGroupData[{ @@ -5560,14 +5555,12 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[109]:=",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], + CellLabel->"In[86]:=",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], Cell[BoxData["0.019133804856087726`"], "Output", CellChangeTimes->{3.991327932394655*^9, 3.993911386764847*^9, - 3.993916104350358*^9}, - CellLabel-> - "Out[109]=",ExpressionUUID->"30f08eaf-ce35-4c7c-bf11-c5d44673648d"] + 3.993916104350358*^9, 3.994250304801968*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"f6cce4e3-16fa-40fd-b167-1f76a4a0a504"] }, Open ]], Cell[CellGroupData[{ @@ -5580,14 +5573,12 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[110]:=",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], + CellLabel->"In[87]:=",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], Cell[BoxData["6.406845785358704`"], "Output", CellChangeTimes->{3.991327932491659*^9, 3.993911757935813*^9, - 3.99391610439902*^9}, - CellLabel-> - "Out[110]=",ExpressionUUID->"8150a992-a82b-4547-952b-a9a413f9ac87"] + 3.99391610439902*^9, 3.994250304925199*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"cb02f81c-b807-4f7b-984d-13dd2fd9ffe0"] }, Open ]], Cell[CellGroupData[{ @@ -5679,14 +5670,12 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[111]:=",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], + CellLabel->"In[88]:=",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], Cell[BoxData["0.1245822467542299`"], "Output", CellChangeTimes->{3.991327932509678*^9, 3.9939117585106783`*^9, - 3.993916104408268*^9}, - CellLabel-> - "Out[111]=",ExpressionUUID->"316b69bc-2f4b-4ba2-aae7-d9c6a06d84f0"] + 3.993916104408268*^9, 3.9942503049578323`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"bd08373f-7419-4c20-8de5-faec4f5c16b9"] }, Open ]], Cell[CellGroupData[{ @@ -5775,14 +5764,12 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[112]:=",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], + CellLabel->"In[89]:=",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], Cell[BoxData["0.8754177532457702`"], "Output", CellChangeTimes->{3.9913279325457134`*^9, 3.9939117585215683`*^9, - 3.993916104417687*^9}, - CellLabel-> - "Out[112]=",ExpressionUUID->"8340be16-eca1-4edc-9ae2-f00769544489"] + 3.993916104417687*^9, 3.994250304992079*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"dec0ee54-50bb-4ff8-a26d-9cb260e8603d"] }, Open ]], Cell[CellGroupData[{ @@ -5904,21 +5891,18 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel-> - "In[113]:=",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], + CellLabel->"In[90]:=",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], Cell[BoxData["0.10906151054789807`"], "Output", CellChangeTimes->{3.9913279325697117`*^9, 3.993911758535819*^9, - 3.993916104427763*^9}, - CellLabel-> - "Out[113]=",ExpressionUUID->"14c33eec-4071-4009-a8f6-79e712a61895"] + 3.993916104427763*^9, 3.994250305022954*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"9d2b31a1-6934-417e-a6c4-8e0ad6efecf5"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", - CellLabel-> - "In[114]:=",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], + CellLabel->"In[91]:=",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], Cell[CellGroupData[{ @@ -5980,8 +5964,7 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.9918488620812244`*^9}, - CellLabel-> - "In[115]:=",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], + CellLabel->"In[92]:=",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], Cell[BoxData[ TemplateBox[{ @@ -5989,15 +5972,15 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"2.199845905076303`*^-206\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 115, 5, - 31385386112227679733, "kernel 1"}, +normalized machine number; precision may be lost.\"", 2, 92, 1, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913279325947113`*^9, 3.993911775515518*^9, - 3.9939161044547253`*^9}, + 3.9939161044547253`*^9, 3.99425030508659*^9}, CellLabel-> "During evaluation of \ -In[115]:=",ExpressionUUID->"2333a104-e05f-4020-a2be-da41d2a04e13"], +In[92]:=",ExpressionUUID->"82f42aad-5699-4cac-ba15-8424eda02bd7"], Cell[BoxData[ TemplateBox[{ @@ -6005,15 +5988,15 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"3.6279157807279646`*^-211\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 115, 6, - 31385386112227679733, "kernel 1"}, +normalized machine number; precision may be lost.\"", 2, 92, 2, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913279325947113`*^9, 3.993911775515518*^9, - 3.9939161044592857`*^9}, + 3.9939161044547253`*^9, 3.99425030512213*^9}, CellLabel-> "During evaluation of \ -In[115]:=",ExpressionUUID->"b8f00778-3341-4cca-907a-7573942df4b7"], +In[92]:=",ExpressionUUID->"e067b6fe-904b-4d01-a779-df708702c6fd"], Cell[BoxData[ TemplateBox[{ @@ -6021,35 +6004,34 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"5.983043122103806`*^-216\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 115, 7, - 31385386112227679733, "kernel 1"}, +a normalized machine number; precision may be lost.\"", 2, 92, 3, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913279325947113`*^9, 3.993911775515518*^9, - 3.99391610446381*^9}, + 3.9939161044547253`*^9, 3.994250305132821*^9}, CellLabel-> "During evaluation of \ -In[115]:=",ExpressionUUID->"6b851781-a5d1-4555-9570-dfd55758e291"], +In[92]:=",ExpressionUUID->"6c9abffb-9359-4831-b3ef-fc4b9eb646ad"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 115, 8, 31385386112227679733, "kernel 1"}, +during this calculation.\"", 2, 92, 4, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913279325947113`*^9, 3.993911775515518*^9, - 3.99391610446842*^9}, + 3.9939161044547253`*^9, 3.9942503051408*^9}, CellLabel-> "During evaluation of \ -In[115]:=",ExpressionUUID->"82d1fafe-6d91-4a32-a2c3-c033e19d7471"], +In[92]:=",ExpressionUUID->"a63af15a-a567-48f7-a51c-125a26f5183f"], Cell[BoxData["11.6349865543286`"], "Output", CellChangeTimes->{3.9913279359974174`*^9, 3.993916058903899*^9, - 3.9939161061649723`*^9}, - CellLabel-> - "Out[115]=",ExpressionUUID->"0dde49af-f93c-46e3-a01c-5b4b9d1b5b1d"] + 3.9939161061649723`*^9, 3.994250308956841*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"a2947d1d-45d5-4167-95d6-39a9068e79ca"] }, Open ]], Cell[CellGroupData[{ @@ -6112,8 +6094,7 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.991848865140564*^9}, - CellLabel-> - "In[116]:=",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], + CellLabel->"In[93]:=",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], Cell[BoxData[ TemplateBox[{ @@ -6121,14 +6102,15 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"2.199845905076303`*^-206\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 116, 9, - 31385386112227679733, "kernel 1"}, +normalized machine number; precision may be lost.\"", 2, 93, 5, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991327936033827*^9, 3.993916106223749*^9}, + CellChangeTimes->{3.991327936033827*^9, 3.993916106223749*^9, + 3.994250309083659*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"620f953c-2e1f-4b9f-af61-f1dc3d74eaed"], +In[93]:=",ExpressionUUID->"ed02dda6-044c-43f2-bae8-d986d49ba29b"], Cell[BoxData[ TemplateBox[{ @@ -6136,14 +6118,15 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"3.6279157807279646`*^-211\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 116, 10, - 31385386112227679733, "kernel 1"}, +normalized machine number; precision may be lost.\"", 2, 93, 6, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991327936033827*^9, 3.993916106228126*^9}, + CellChangeTimes->{3.991327936033827*^9, 3.993916106223749*^9, + 3.994250309095748*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"27a1eff1-2165-426c-a370-fd703a0d13ca"], +In[93]:=",ExpressionUUID->"39b60def-a36d-4b14-b0a3-6981d6bea359"], Cell[BoxData[ TemplateBox[{ @@ -6151,32 +6134,34 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"5.983043122103806`*^-216\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 116, 11, - 31385386112227679733, "kernel 1"}, +a normalized machine number; precision may be lost.\"", 2, 93, 7, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991327936033827*^9, 3.99391610623199*^9}, + CellChangeTimes->{3.991327936033827*^9, 3.993916106223749*^9, + 3.994250309104444*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"4dbe4979-effc-41de-8d32-77ea5fbd2a51"], +In[93]:=",ExpressionUUID->"f43def1e-6320-41bb-b9c9-f9d677e2d435"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 116, 12, 31385386112227679733, "kernel 1"}, +during this calculation.\"", 2, 93, 8, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991327936033827*^9, 3.993916106235869*^9}, + CellChangeTimes->{3.991327936033827*^9, 3.993916106223749*^9, + 3.994250309116394*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"fb234670-8ea1-4f24-8e72-07809c18a118"], +In[93]:=",ExpressionUUID->"cfe8f146-7d90-42bd-a972-78928a130a5b"], Cell[BoxData["6.406845785358708`"], "Output", - CellChangeTimes->{3.9913279393385086`*^9, 3.993916107843705*^9}, - CellLabel-> - "Out[116]=",ExpressionUUID->"88bdcf8e-1d9a-427e-9d67-24dab5c8b6e3"] + CellChangeTimes->{3.9913279393385086`*^9, 3.993916107843705*^9, + 3.9942503130894623`*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"e7bcc6f8-49db-462a-81d1-e14f11c221ff"] }, Open ]], Cell[CellGroupData[{ @@ -6233,8 +6218,7 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{3.991848869193308*^9}, - CellLabel-> - "In[117]:=",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], + CellLabel->"In[94]:=",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], Cell[BoxData[ GraphicsBox[ @@ -6620,9 +6604,9 @@ EPLm Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913281932019863`*^9, 3.993916247083982*^9}, - CellLabel-> - "Out[117]=",ExpressionUUID->"eeb53ca6-5a8d-4b45-aaa1-f33a1e966cf5"] + CellChangeTimes->{3.9913281932019863`*^9, 3.993916247083982*^9, + 3.9942508759678707`*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"a70dbbfd-c383-43fd-974e-e972070436bc"] }, Open ]], Cell[CellGroupData[{ @@ -6686,36 +6670,37 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{3.9918488717861137`*^9}, - CellLabel-> - "In[118]:=",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], + CellLabel->"In[95]:=",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0176596967145045`*^-269\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 118, - 13, 31385386112227679733, "kernel 1"}, +represent as a normalized machine number; precision may be lost.\"", 2, 95, 9, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913281934227676`*^9, 3.9939162472917356`*^9}, + CellChangeTimes->{3.9913281934227676`*^9, 3.9939162472917356`*^9, + 3.994250876522208*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"9e048295-c9b4-4f1f-a0e1-f157142d3654"], +In[95]:=",ExpressionUUID->"40ff8b0e-36b8-471a-a79c-43d72af67401"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"6.303561810592466`*^-281\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 118, 14, 31385386112227679733, "kernel 1"}, +to represent as a normalized machine number; precision may be lost.\"", 2, 95, + 10, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913281934227676`*^9, 3.993916247295936*^9}, + CellChangeTimes->{3.9913281934227676`*^9, 3.9939162472917356`*^9, + 3.994250876533496*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"bc3f7c38-0968-4796-b2f4-71f0debeefa4"], +In[95]:=",ExpressionUUID->"5530bd64-037e-4969-8dfd-80e03ee218ff"], Cell[BoxData[ TemplateBox[{ @@ -6723,26 +6708,28 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"3.9045362244611963`*^-292\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 118, 15, 31385386112227679733, "kernel 1"}, + 2, 95, 11, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913281934227676`*^9, 3.9939162472991037`*^9}, + CellChangeTimes->{3.9913281934227676`*^9, 3.9939162472917356`*^9, + 3.99425087654244*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"8fbfb12e-8696-4abd-b48c-222338d92a0d"], +In[95]:=",ExpressionUUID->"a249e424-17c5-4a30-acb7-4c1ce8f2d99c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 118, 16, 31385386112227679733, "kernel 1"}, +during this calculation.\"", 2, 95, 12, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913281934227676`*^9, 3.993916247301881*^9}, + CellChangeTimes->{3.9913281934227676`*^9, 3.9939162472917356`*^9, + 3.99425087655035*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"c7a4aea9-54db-411d-a328-fdb956e8cf6b"], +In[95]:=",ExpressionUUID->"466707e5-5272-4712-ad70-02c09c620377"], Cell[BoxData[ GraphicsBox[ @@ -7150,9 +7137,9 @@ wCKdPPW9U2wMifmcb9zrAJmH7o3MzLDx94uoVXn1DvA/Pl9xGQ== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913290128289948`*^9, 3.993916418657477*^9}, - CellLabel-> - "Out[118]=",ExpressionUUID->"a522b8bb-8c1e-4a6c-bf1b-492d7ec21c52"] + CellChangeTimes->{3.9913290128289948`*^9, 3.993916418657477*^9, + 3.994251451776148*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"9168db6f-f53a-4f03-b917-56399d34775a"] }, Open ]], Cell[CellGroupData[{ @@ -7226,8 +7213,7 @@ Cell[BoxData[ RowBox[{"30", ",", "0.001983"}], "}"}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, 3.9939103194128428`*^9}, - CellLabel-> - "In[119]:=",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], + CellLabel->"In[96]:=",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], Cell[BoxData[ GraphicsBox[{{}, @@ -7450,9 +7436,8 @@ SA== Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.993916418763949*^9}, - CellLabel-> - "Out[119]=",ExpressionUUID->"338ddb88-2617-42a9-a2f8-09bb9cccedfd"] + CellChangeTimes->{3.993916418763949*^9, 3.9942514519993677`*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"dd98949f-ad7e-43bf-a40b-da9e376e4434"] }, Open ]], Cell[CellGroupData[{ @@ -7461,8 +7446,7 @@ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, - CellLabel-> - "In[120]:=",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], + CellLabel->"In[97]:=",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], Cell[BoxData[ GraphicsBox[{ @@ -8002,9 +7986,8 @@ SA== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.993916418779551*^9}, - CellLabel-> - "Out[120]=",ExpressionUUID->"aefde3ea-e3b9-43fc-aee5-0945507da6f1"] + CellChangeTimes->{3.993916418779551*^9, 3.9942514520444307`*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"0fb8bb69-fded-4382-b619-7effd88db259"] }, Open ]], Cell[CellGroupData[{ @@ -8015,13 +7998,12 @@ Cell[BoxData[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", CellChangeTimes->{3.9918488983507824`*^9}, - CellLabel-> - "In[121]:=",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], + CellLabel->"In[98]:=",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], Cell[BoxData["11.208346711146406`"], "Output", - CellChangeTimes->{3.9913294794877434`*^9, 3.993916418795223*^9}, - CellLabel-> - "Out[121]=",ExpressionUUID->"6a9d630e-de7f-455e-b3ab-d3c4fb71e067"] + CellChangeTimes->{3.9913294794877434`*^9, 3.993916418795223*^9, + 3.9942514520913486`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"367376c8-d3ba-425e-9ad8-0120a6bef015"] }, Open ]], Cell[CellGroupData[{ @@ -8078,8 +8060,7 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{3.9918488997875195`*^9}, - CellLabel-> - "In[122]:=",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], + CellLabel->"In[99]:=",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], Cell[BoxData[ TemplateBox[{ @@ -8087,13 +8068,14 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"4.904607396701518`*^-259\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 122, 17, 31385386112227679733, "kernel 1"}, + 2, 99, 13, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913294796838703`*^9, 3.99391641883893*^9}, + CellChangeTimes->{3.9913294796838703`*^9, 3.99391641883893*^9, + 3.994251452212998*^9}, CellLabel-> "During evaluation of \ -In[122]:=",ExpressionUUID->"2cc06502-13b7-4e75-a0c7-aa9b344beac4"], +In[99]:=",ExpressionUUID->"63ff4c70-8cc5-46e3-9690-3aa4740802da"], Cell[BoxData[ TemplateBox[{ @@ -8101,13 +8083,14 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"5.696754303754148`*^-269\\\", \ \\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 122, 18, 31385386112227679733, "kernel 1"}, + 2, 99, 14, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913294796838703`*^9, 3.9939164188427343`*^9}, + CellChangeTimes->{3.9913294796838703`*^9, 3.99391641883893*^9, + 3.9942514522227497`*^9}, CellLabel-> "During evaluation of \ -In[122]:=",ExpressionUUID->"c37eed34-4449-4909-bdfc-eff69365db11"], +In[99]:=",ExpressionUUID->"fbafb355-9ede-4bc2-b512-4e01b9c873f1"], Cell[BoxData[ TemplateBox[{ @@ -8115,26 +8098,28 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"6.616841466080842`*^-279\\\", \ \\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 122, 19, 31385386112227679733, "kernel 1"}, +\"", 2, 99, 15, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913294796838703`*^9, 3.993916418845647*^9}, + CellChangeTimes->{3.9913294796838703`*^9, 3.99391641883893*^9, + 3.994251452231785*^9}, CellLabel-> "During evaluation of \ -In[122]:=",ExpressionUUID->"5915a9c1-77ac-4a0d-87e7-82fb0e5fa6d4"], +In[99]:=",ExpressionUUID->"9a7b7ded-3f6b-456b-9944-fa3a811022fe"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 122, 20, 31385386112227679733, "kernel 1"}, +during this calculation.\"", 2, 99, 16, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913294796838703`*^9, 3.993916418848744*^9}, + CellChangeTimes->{3.9913294796838703`*^9, 3.99391641883893*^9, + 3.9942514522409897`*^9}, CellLabel-> "During evaluation of \ -In[122]:=",ExpressionUUID->"6ea9ae3f-15c4-46a9-962c-a49f33c48b00"], +In[99]:=",ExpressionUUID->"034d4236-c5f4-4872-8df8-9cbf47c06830"], Cell[BoxData[ GraphicsBox[ @@ -8542,9 +8527,9 @@ aJ0j3H+7PvTUMBcLxgUvCpc6gpX4dtD6wcVxLwdG5SVH2J1w6GXIJBfzAoND Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913298974454536`*^9, 3.993916633069071*^9}, - CellLabel-> - "Out[122]=",ExpressionUUID->"f6eaa482-07ad-4721-b5d3-1b302f15ecee"] + CellChangeTimes->{3.9913298974454536`*^9, 3.993916633069071*^9, + 3.994252168627367*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"80ba2dda-771e-48f6-879a-afe245e7c93d"] }, Open ]], Cell[CellGroupData[{ @@ -8597,7 +8582,7 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[123]:=",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], + "In[100]:=",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], Cell[BoxData[ TemplateBox[{ @@ -8606,13 +8591,14 @@ Cell[BoxData[ \\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ 35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 123, 21, 31385386112227679733, "kernel 1"}, + 2, 100, 17, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913298974999084`*^9, 3.993916633146426*^9}, + CellChangeTimes->{3.9913298974999084`*^9, 3.993916633146426*^9, + 3.994252168785388*^9}, CellLabel-> "During evaluation of \ -In[123]:=",ExpressionUUID->"5e653149-a707-42c9-87c9-9c0e308505a7"], +In[100]:=",ExpressionUUID->"92479205-fcb3-4738-a911-9db34557c31c"], Cell[BoxData[ TemplateBox[{ @@ -8621,13 +8607,14 @@ Cell[BoxData[ \\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ 54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 123, 22, 31385386112227679733, "kernel 1"}, + 2, 100, 18, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913298974999084`*^9, 3.993916633151888*^9}, + CellChangeTimes->{3.9913298974999084`*^9, 3.993916633146426*^9, + 3.994252168796281*^9}, CellLabel-> "During evaluation of \ -In[123]:=",ExpressionUUID->"6b114936-59e0-4932-ac1b-0c46175662b3"], +In[100]:=",ExpressionUUID->"508f00b9-b4d1-401f-835c-ebbbf45c38bb"], Cell[BoxData[ TemplateBox[{ @@ -8636,31 +8623,34 @@ Cell[BoxData[ \\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ 734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 123, 23, 31385386112227679733, "kernel 1"}, +\"", 2, 100, 19, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913298974999084`*^9, 3.993916633155921*^9}, + CellChangeTimes->{3.9913298974999084`*^9, 3.993916633146426*^9, + 3.9942521688081627`*^9}, CellLabel-> "During evaluation of \ -In[123]:=",ExpressionUUID->"5c396db3-99ce-4f9f-86f2-09273c5ffbab"], +In[100]:=",ExpressionUUID->"5c36ab42-8975-4bb7-a4cb-e3f9eeaf9f08"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 123, 24, 31385386112227679733, "kernel 1"}, +during this calculation.\"", 2, 100, 20, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913298974999084`*^9, 3.9939166331593924`*^9}, + CellChangeTimes->{3.9913298974999084`*^9, 3.993916633146426*^9, + 3.994252168816427*^9}, CellLabel-> "During evaluation of \ -In[123]:=",ExpressionUUID->"6aefbd2a-f241-446d-99ee-3243fcdf9847"], +In[100]:=",ExpressionUUID->"5aef9305-d61d-43a2-86cf-09acd3b73a9e"], Cell[BoxData["11.208345983424353`"], "Output", - CellChangeTimes->{3.991329904262455*^9, 3.993916653739958*^9}, + CellChangeTimes->{3.991329904262455*^9, 3.993916653739958*^9, + 3.9942522451198797`*^9}, CellLabel-> - "Out[123]=",ExpressionUUID->"9b204c4a-0dfa-4eac-a253-25278cf3a16a"] + "Out[100]=",ExpressionUUID->"6fbe53b1-973f-4f38-80d4-022bddb6b724"] }, Open ]], Cell[CellGroupData[{ @@ -8729,7 +8719,7 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9918489049186344`*^9, 3.991848908595253*^9}}, CellLabel-> - "In[124]:=",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], + "In[101]:=",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], Cell[BoxData[ TemplateBox[{ @@ -8737,14 +8727,15 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"2.199845905076303`*^-206\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 124, 25, - 31385386112227679733, "kernel 1"}, +normalized machine number; precision may be lost.\"", 2, 101, 21, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991329904300501*^9, 3.993916653779312*^9}, + CellChangeTimes->{3.991329904300501*^9, 3.993916653779312*^9, + 3.994252245192878*^9}, CellLabel-> "During evaluation of \ -In[124]:=",ExpressionUUID->"d6146c95-6efa-44d3-ad1a-20a081d0c27f"], +In[101]:=",ExpressionUUID->"4114a8bf-6f18-477a-a698-8fbdda0af660"], Cell[BoxData[ TemplateBox[{ @@ -8752,14 +8743,15 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"3.6279157807279646`*^-211\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 124, 26, - 31385386112227679733, "kernel 1"}, +normalized machine number; precision may be lost.\"", 2, 101, 22, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991329904300501*^9, 3.993916653784349*^9}, + CellChangeTimes->{3.991329904300501*^9, 3.993916653779312*^9, + 3.9942522452012167`*^9}, CellLabel-> "During evaluation of \ -In[124]:=",ExpressionUUID->"0ab68bc5-51c9-4732-a5ee-cd4c3274abec"], +In[101]:=",ExpressionUUID->"82a87977-b8e7-45b8-96cc-d4858f49b6ff"], Cell[BoxData[ TemplateBox[{ @@ -8767,32 +8759,35 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"5.983043122103806`*^-216\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 124, 27, - 31385386112227679733, "kernel 1"}, +a normalized machine number; precision may be lost.\"", 2, 101, 23, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991329904300501*^9, 3.993916653787698*^9}, + CellChangeTimes->{3.991329904300501*^9, 3.993916653779312*^9, + 3.9942522452091208`*^9}, CellLabel-> "During evaluation of \ -In[124]:=",ExpressionUUID->"6c4920b6-6ea4-4444-97fb-e12823059251"], +In[101]:=",ExpressionUUID->"e95ce398-003c-4156-be40-5567c397dcab"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 124, 28, 31385386112227679733, "kernel 1"}, +during this calculation.\"", 2, 101, 24, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991329904300501*^9, 3.993916653790637*^9}, + CellChangeTimes->{3.991329904300501*^9, 3.993916653779312*^9, + 3.9942522452177973`*^9}, CellLabel-> "During evaluation of \ -In[124]:=",ExpressionUUID->"342f6334-90a8-4df8-bb2a-b778ba0184a5"], +In[101]:=",ExpressionUUID->"434a613a-9089-4ff4-a24d-9dee1e8a73fb"], Cell[BoxData["2.179321921577101`"], "Output", - CellChangeTimes->{3.9913299110465336`*^9, 3.993916657187173*^9}, + CellChangeTimes->{3.9913299110465336`*^9, 3.993916657187173*^9, + 3.9942522565077753`*^9}, CellLabel-> - "Out[124]=",ExpressionUUID->"9a73a598-db22-4fc3-a96b-38f4e32ee3b3"] + "Out[101]=",ExpressionUUID->"639adc1a-2c63-4e34-9f50-fdbfbd35358a"] }, Open ]], Cell[CellGroupData[{ @@ -8860,7 +8855,7 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9918489121661835`*^9, 3.9918489145264854`*^9}}, CellLabel-> - "In[125]:=",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], + "In[102]:=",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], Cell[BoxData[ TemplateBox[{ @@ -8868,14 +8863,15 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"2.199845905076303`*^-206\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 125, 29, - 31385386112227679733, "kernel 1"}, +normalized machine number; precision may be lost.\"", 2, 102, 25, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991329911081766*^9, 3.99391665721275*^9}, + CellChangeTimes->{3.991329911081766*^9, 3.99391665721275*^9, + 3.994252256563992*^9}, CellLabel-> "During evaluation of \ -In[125]:=",ExpressionUUID->"bfefabc3-441e-444b-9165-4ef60016ab8e"], +In[102]:=",ExpressionUUID->"3353107c-b23f-44ba-a8e7-75bbb6eb56e4"], Cell[BoxData[ TemplateBox[{ @@ -8883,14 +8879,15 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"3.6279157807279646`*^-211\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 125, 30, - 31385386112227679733, "kernel 1"}, +normalized machine number; precision may be lost.\"", 2, 102, 26, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991329911081766*^9, 3.9939166572183743`*^9}, + CellChangeTimes->{3.991329911081766*^9, 3.99391665721275*^9, + 3.994252256575091*^9}, CellLabel-> "During evaluation of \ -In[125]:=",ExpressionUUID->"d8e25f17-cc50-4f00-9f82-1e8db6b31d90"], +In[102]:=",ExpressionUUID->"7282fe06-11e4-4f26-b1cf-d93ecd5a35c2"], Cell[BoxData[ TemplateBox[{ @@ -8898,32 +8895,35 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"5.983043122103806`*^-216\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 125, 31, - 31385386112227679733, "kernel 1"}, +a normalized machine number; precision may be lost.\"", 2, 102, 27, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991329911081766*^9, 3.993916657221971*^9}, + CellChangeTimes->{3.991329911081766*^9, 3.99391665721275*^9, + 3.994252256584734*^9}, CellLabel-> "During evaluation of \ -In[125]:=",ExpressionUUID->"e605f4c3-e0bc-4780-95b3-9f3c5529547e"], +In[102]:=",ExpressionUUID->"20ab9071-7fc6-4072-94ac-faa14e93d83f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 125, 32, 31385386112227679733, "kernel 1"}, +during this calculation.\"", 2, 102, 28, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991329911081766*^9, 3.993916657225102*^9}, + CellChangeTimes->{3.991329911081766*^9, 3.99391665721275*^9, + 3.994252256592754*^9}, CellLabel-> "During evaluation of \ -In[125]:=",ExpressionUUID->"1e442ba8-4101-43eb-b83c-40e2dd105963"], +In[102]:=",ExpressionUUID->"5501b5b7-6a0d-492f-aa31-3d5bc6414876"], Cell[BoxData["36.989232876980005`"], "Output", - CellChangeTimes->{3.9913299163114815`*^9, 3.99391666032447*^9}, + CellChangeTimes->{3.9913299163114815`*^9, 3.99391666032447*^9, + 3.9942522672606487`*^9}, CellLabel-> - "Out[125]=",ExpressionUUID->"28b1d449-25ff-4ebb-8ed5-a9450f5d8c81"] + "Out[102]=",ExpressionUUID->"dc78b27f-2354-423b-9db0-eb5bad6ed6e4"] }, Open ]], Cell[CellGroupData[{ @@ -8991,7 +8991,7 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9918489192162857`*^9, 3.991848922582632*^9}}, CellLabel-> - "In[126]:=",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], + "In[103]:=",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], Cell[BoxData[ TemplateBox[{ @@ -8999,14 +8999,15 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"2.199845905076303`*^-206\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 126, 33, - 31385386112227679733, "kernel 1"}, +normalized machine number; precision may be lost.\"", 2, 103, 29, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913299163444805`*^9, 3.993916660347633*^9}, + CellChangeTimes->{3.9913299163444805`*^9, 3.993916660347633*^9, + 3.99425226733841*^9}, CellLabel-> "During evaluation of \ -In[126]:=",ExpressionUUID->"8ac562fb-0567-4f64-a208-65a0af86face"], +In[103]:=",ExpressionUUID->"89ebfbcf-502b-4b1f-87ce-a9852719e7a0"], Cell[BoxData[ TemplateBox[{ @@ -9014,14 +9015,15 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"3.6279157807279646`*^-211\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 126, 34, - 31385386112227679733, "kernel 1"}, +normalized machine number; precision may be lost.\"", 2, 103, 30, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913299163444805`*^9, 3.993916660351494*^9}, + CellChangeTimes->{3.9913299163444805`*^9, 3.993916660347633*^9, + 3.99425226734814*^9}, CellLabel-> "During evaluation of \ -In[126]:=",ExpressionUUID->"90a4334a-3424-40fc-b143-a2d518d3bbc5"], +In[103]:=",ExpressionUUID->"99753e13-da41-46a2-a74c-1e8076d83894"], Cell[BoxData[ TemplateBox[{ @@ -9029,32 +9031,35 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"5.983043122103806`*^-216\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 126, 35, - 31385386112227679733, "kernel 1"}, +a normalized machine number; precision may be lost.\"", 2, 103, 31, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913299163444805`*^9, 3.993916660355626*^9}, + CellChangeTimes->{3.9913299163444805`*^9, 3.993916660347633*^9, + 3.9942522673563223`*^9}, CellLabel-> "During evaluation of \ -In[126]:=",ExpressionUUID->"a9061ca7-292a-4d10-9b33-c29bcbea7b28"], +In[103]:=",ExpressionUUID->"6b8e55a3-74bc-47d3-932f-ad409b4057c5"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 126, 36, 31385386112227679733, "kernel 1"}, +during this calculation.\"", 2, 103, 32, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913299163444805`*^9, 3.993916660358889*^9}, + CellChangeTimes->{3.9913299163444805`*^9, 3.993916660347633*^9, + 3.994252267366476*^9}, CellLabel-> "During evaluation of \ -In[126]:=",ExpressionUUID->"73d71dd7-b4bf-4302-b3cc-803aee2e9bf2"], +In[103]:=",ExpressionUUID->"175b14a0-53e2-44a0-9e13-1e912cf49d0e"], Cell[BoxData["11.215847460379678`"], "Output", - CellChangeTimes->{3.9913299193276234`*^9, 3.99391666230492*^9}, + CellChangeTimes->{3.9913299193276234`*^9, 3.99391666230492*^9, + 3.994252276222123*^9}, CellLabel-> - "Out[126]=",ExpressionUUID->"885778f7-0f7e-40b6-89aa-ed494b43eb99"] + "Out[103]=",ExpressionUUID->"b1c1647d-4e80-4039-8c68-cf6756d9fdd5"] }, Open ]], Cell[CellGroupData[{ @@ -9065,12 +9070,13 @@ Cell[BoxData[ RowBox[{"S1", "*", "S2"}]]]], "Input", CellChangeTimes->{{3.991848926103155*^9, 3.9918489295815735`*^9}}, CellLabel-> - "In[127]:=",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], + "In[104]:=",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], Cell[BoxData["0.10699603350796649`"], "Output", - CellChangeTimes->{3.99132991935894*^9, 3.993916662327908*^9}, + CellChangeTimes->{3.99132991935894*^9, 3.993916662327908*^9, + 3.994252276266383*^9}, CellLabel-> - "Out[127]=",ExpressionUUID->"0d8092ef-63cf-44b1-9e6c-c3045f2c3d07"] + "Out[104]=",ExpressionUUID->"d26f0e90-9d15-4f76-b807-6376ff489dc8"] }, Open ]], Cell[BoxData[ @@ -9079,7 +9085,7 @@ Cell[BoxData[ CellChangeTimes->{{3.9918489327910748`*^9, 3.991848934830887*^9}, 3.991924914130762*^9}, CellLabel-> - "In[128]:=",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], + "In[105]:=",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], Cell[CellGroupData[{ @@ -9102,12 +9108,13 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[129]:=",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], + "In[106]:=",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], Cell[BoxData["8.092101191336006`"], "Output", - CellChangeTimes->{3.9913299193849545`*^9, 3.993916662335923*^9}, + CellChangeTimes->{3.9913299193849545`*^9, 3.993916662335923*^9, + 3.994252276290544*^9}, CellLabel-> - "Out[129]=",ExpressionUUID->"9ded835c-28eb-451d-9453-94098d00e2f7"] + "Out[106]=",ExpressionUUID->"dc5074ce-5fec-4fec-9fef-060f03ae447f"] }, Open ]], Cell[CellGroupData[{ @@ -9117,12 +9124,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[130]:=",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], + "In[107]:=",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], Cell[BoxData["4.305935286383965`"], "Output", - CellChangeTimes->{3.9913299194207077`*^9, 3.993916662340488*^9}, + CellChangeTimes->{3.9913299194207077`*^9, 3.993916662340488*^9, + 3.9942522763046207`*^9}, CellLabel-> - "Out[130]=",ExpressionUUID->"a2df90a1-42c5-44ca-98d8-a66ab68182d5"] + "Out[107]=",ExpressionUUID->"a430c415-9b7b-494d-a63e-f01551d43eac"] }, Open ]], Cell[CellGroupData[{ @@ -9132,12 +9140,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[131]:=",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], + "In[108]:=",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], Cell[BoxData["34.84406406076343`"], "Output", - CellChangeTimes->{3.9913299194738407`*^9, 3.99391666234486*^9}, + CellChangeTimes->{3.9913299194738407`*^9, 3.99391666234486*^9, + 3.994252276317719*^9}, CellLabel-> - "Out[131]=",ExpressionUUID->"c5d578c9-7406-46d6-b35f-ab3cc4d84476"] + "Out[108]=",ExpressionUUID->"449b0741-a3e2-46a4-a807-77f0d225018e"] }, Open ]], Cell[CellGroupData[{ @@ -9327,12 +9336,13 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[132]:=",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], + "In[109]:=",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], Cell[BoxData["0.006352219849921864`"], "Output", - CellChangeTimes->{3.991329919501911*^9, 3.9939166623517733`*^9}, + CellChangeTimes->{3.991329919501911*^9, 3.9939166623517733`*^9, + 3.994252276337142*^9}, CellLabel-> - "Out[132]=",ExpressionUUID->"992caf2d-8085-4b21-8f50-e6cade28ad09"] + "Out[109]=",ExpressionUUID->"5767f0d1-a372-4267-af89-77fc32effbc6"] }, Open ]], Cell[CellGroupData[{ @@ -9346,12 +9356,13 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[133]:=",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], + "In[110]:=",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], Cell[BoxData["11.1194211722896`"], "Output", - CellChangeTimes->{3.991329919596855*^9, 3.993916662406274*^9}, + CellChangeTimes->{3.991329919596855*^9, 3.993916662406274*^9, + 3.994252276540902*^9}, CellLabel-> - "Out[133]=",ExpressionUUID->"dd9bbcd6-52a8-4f05-8592-85d1813b52c6"] + "Out[110]=",ExpressionUUID->"a05dfba4-52e2-476d-ba64-57e8472c0c25"] }, Open ]], Cell[CellGroupData[{ @@ -9543,12 +9554,13 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[134]:=",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], + "In[111]:=",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], Cell[BoxData["0.026790505103200715`"], "Output", - CellChangeTimes->{3.9913299196126003`*^9, 3.993916662412593*^9}, + CellChangeTimes->{3.9913299196126003`*^9, 3.993916662412593*^9, + 3.994252276607172*^9}, CellLabel-> - "Out[134]=",ExpressionUUID->"bde5e0e1-628c-4b45-ad08-dd434d4c9a8a"] + "Out[111]=",ExpressionUUID->"40ebe67e-eba3-4c9b-bbe1-be8c088c2767"] }, Open ]], Cell[CellGroupData[{ @@ -9562,12 +9574,13 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[135]:=",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], + "In[112]:=",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], Cell[BoxData["5.41445177323832`"], "Output", - CellChangeTimes->{3.9913299197036095`*^9, 3.993916662466816*^9}, + CellChangeTimes->{3.9913299197036095`*^9, 3.993916662466816*^9, + 3.9942522767994347`*^9}, CellLabel-> - "Out[135]=",ExpressionUUID->"c2af8195-b87e-4ac3-9ce9-bd5bbe9cbf56"] + "Out[112]=",ExpressionUUID->"7ffc216c-2dc5-4ed4-83e9-4039809684a9"] }, Open ]], Cell[CellGroupData[{ @@ -9660,12 +9673,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[136]:=",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], + "In[113]:=",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], Cell[BoxData["0.1245822467542299`"], "Output", - CellChangeTimes->{3.9913299197165985`*^9, 3.993916662472418*^9}, + CellChangeTimes->{3.9913299197165985`*^9, 3.993916662472418*^9, + 3.9942522768175507`*^9}, CellLabel-> - "Out[136]=",ExpressionUUID->"cd4f3f46-9f3c-43e3-8d87-0587e42732b0"] + "Out[113]=",ExpressionUUID->"8dfff5dd-65ea-4519-aa24-3db0802f16ea"] }, Open ]], Cell[CellGroupData[{ @@ -9755,12 +9769,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[137]:=",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], + "In[114]:=",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], Cell[BoxData["0.8754177532457702`"], "Output", - CellChangeTimes->{3.991329919739599*^9, 3.9939166624772797`*^9}, + CellChangeTimes->{3.991329919739599*^9, 3.9939166624772797`*^9, + 3.994252276834577*^9}, CellLabel-> - "Out[137]=",ExpressionUUID->"e92f0d0b-893f-4897-ad9a-a3ad0de7df50"] + "Out[114]=",ExpressionUUID->"ad58389a-2b00-4689-91bc-b113617baef0"] }, Open ]], Cell[CellGroupData[{ @@ -9883,12 +9898,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[138]:=",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], + "In[115]:=",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], Cell[BoxData["0.10906151054789807`"], "Output", - CellChangeTimes->{3.9913299197646008`*^9, 3.993916662482142*^9}, + CellChangeTimes->{3.9913299197646008`*^9, 3.993916662482142*^9, + 3.994252276853739*^9}, CellLabel-> - "Out[138]=",ExpressionUUID->"87ea44b8-07bf-40fb-b0d2-5db9fddac08f"] + "Out[115]=",ExpressionUUID->"a885d57d-bba7-4b4c-8585-be0cb7f2869d"] }, Open ]], Cell[CellGroupData[{ @@ -9952,7 +9968,7 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.991848964116934*^9}, CellLabel-> - "In[139]:=",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], + "In[116]:=",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], Cell[BoxData[ TemplateBox[{ @@ -9960,14 +9976,15 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"3.3919427471718177`*^-211\\\", \ \\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ 29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 139, 37, - 31385386112227679733, "kernel 1"}, +normalized machine number; precision may be lost.\"", 2, 116, 33, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991329919788595*^9, 3.9939166624895973`*^9}, + CellChangeTimes->{3.991329919788595*^9, 3.9939166624895973`*^9, + 3.99425227687354*^9}, CellLabel-> "During evaluation of \ -In[139]:=",ExpressionUUID->"87026cf3-8a25-4623-8999-d644ba14506c"], +In[116]:=",ExpressionUUID->"adb97091-38e0-4dd2-adc6-521f9ec05bf5"], Cell[BoxData[ TemplateBox[{ @@ -9975,14 +9992,15 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"3.3057401750999514`*^-216\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 139, 38, - 31385386112227679733, "kernel 1"}, +normalized machine number; precision may be lost.\"", 2, 116, 34, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991329919788595*^9, 3.993916662493092*^9}, + CellChangeTimes->{3.991329919788595*^9, 3.9939166624895973`*^9, + 3.994252276881936*^9}, CellLabel-> "During evaluation of \ -In[139]:=",ExpressionUUID->"5f9f4319-6c99-4d27-9882-3bb53d9120f5"], +In[116]:=",ExpressionUUID->"2e7afb47-434d-41a6-b7bc-84b6ddf8b474"], Cell[BoxData[ TemplateBox[{ @@ -9990,32 +10008,35 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"3.221728348564105`*^-221\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 139, 39, - 31385386112227679733, "kernel 1"}, +normalized machine number; precision may be lost.\"", 2, 116, 35, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991329919788595*^9, 3.9939166624965763`*^9}, + CellChangeTimes->{3.991329919788595*^9, 3.9939166624895973`*^9, + 3.994252276891034*^9}, CellLabel-> "During evaluation of \ -In[139]:=",ExpressionUUID->"c551826e-8b91-4c0f-b749-a32595d9cf30"], +In[116]:=",ExpressionUUID->"f1425839-0019-49e2-b383-ec7f88366c86"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 139, 40, 31385386112227679733, "kernel 1"}, +during this calculation.\"", 2, 116, 36, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991329919788595*^9, 3.993916662500149*^9}, + CellChangeTimes->{3.991329919788595*^9, 3.9939166624895973`*^9, + 3.9942522769004183`*^9}, CellLabel-> "During evaluation of \ -In[139]:=",ExpressionUUID->"71ce08cc-4781-4a00-9062-233d22ad9146"], +In[116]:=",ExpressionUUID->"59cc37ea-c184-4e2b-94fa-6e89fee7f301"], Cell[BoxData["11.119421172289591`"], "Output", - CellChangeTimes->{3.991329923627493*^9, 3.993916664257629*^9}, + CellChangeTimes->{3.991329923627493*^9, 3.993916664257629*^9, + 3.994252284513927*^9}, CellLabel-> - "Out[139]=",ExpressionUUID->"a7a5f405-187c-448f-83bd-6b94db2cf868"] + "Out[116]=",ExpressionUUID->"8ab1de55-edb4-443f-9c49-2a0126f84104"] }, Open ]], Cell[CellGroupData[{ @@ -10079,7 +10100,7 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.9918489685110855`*^9}, CellLabel-> - "In[140]:=",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], + "In[117]:=",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], Cell[BoxData[ TemplateBox[{ @@ -10087,14 +10108,15 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"3.3919427471718177`*^-211\\\", \ \\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ 29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 140, 41, - 31385386112227679733, "kernel 1"}, +normalized machine number; precision may be lost.\"", 2, 117, 37, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913299236609*^9, 3.993916664282422*^9}, + CellChangeTimes->{3.9913299236609*^9, 3.993916664282422*^9, + 3.994252284570037*^9}, CellLabel-> "During evaluation of \ -In[140]:=",ExpressionUUID->"18ec318a-b9c4-4292-b8be-595fcd9f862b"], +In[117]:=",ExpressionUUID->"ce04400b-4e2d-4848-9fba-ffe8c56470cc"], Cell[BoxData[ TemplateBox[{ @@ -10102,14 +10124,15 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"3.3057401750999514`*^-216\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 140, 42, - 31385386112227679733, "kernel 1"}, +normalized machine number; precision may be lost.\"", 2, 117, 38, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913299236609*^9, 3.99391666428687*^9}, + CellChangeTimes->{3.9913299236609*^9, 3.993916664282422*^9, + 3.994252284579381*^9}, CellLabel-> "During evaluation of \ -In[140]:=",ExpressionUUID->"baaf577f-ca86-46ca-ac3c-ec2d8438230f"], +In[117]:=",ExpressionUUID->"3d9ac56b-b7ed-4a28-a251-3763c2e84a66"], Cell[BoxData[ TemplateBox[{ @@ -10117,32 +10140,35 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"3.221728348564105`*^-221\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 140, 43, - 31385386112227679733, "kernel 1"}, +normalized machine number; precision may be lost.\"", 2, 117, 39, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913299236609*^9, 3.993916664290818*^9}, + CellChangeTimes->{3.9913299236609*^9, 3.993916664282422*^9, + 3.994252284588727*^9}, CellLabel-> "During evaluation of \ -In[140]:=",ExpressionUUID->"bb404594-3f37-4a3f-80ba-f6edbed40461"], +In[117]:=",ExpressionUUID->"32ac3d14-2ad1-4a25-aeed-a52bc498dfe9"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 140, 44, 31385386112227679733, "kernel 1"}, +during this calculation.\"", 2, 117, 40, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913299236609*^9, 3.9939166642939577`*^9}, + CellChangeTimes->{3.9913299236609*^9, 3.993916664282422*^9, + 3.994252284596332*^9}, CellLabel-> "During evaluation of \ -In[140]:=",ExpressionUUID->"ebb2637f-b34c-48a4-bceb-45d53f42503b"], +In[117]:=",ExpressionUUID->"ca5dd7f5-e737-4f80-8ff2-5f6b3e63a7ea"], Cell[BoxData["5.414451773238315`"], "Output", - CellChangeTimes->{3.9913299274564743`*^9, 3.993916666029154*^9}, + CellChangeTimes->{3.9913299274564743`*^9, 3.993916666029154*^9, + 3.994252292112755*^9}, CellLabel-> - "Out[140]=",ExpressionUUID->"8a3b2297-8b4d-4645-ae34-42c10ba7937e"] + "Out[117]=",ExpressionUUID->"4d0795af-78c3-4443-8c08-99cb6a72cf9d"] }, Open ]], Cell[CellGroupData[{ @@ -10202,7 +10228,7 @@ Cell[BoxData[ RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{3.991848973885317*^9}, CellLabel-> - "In[141]:=",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], + "In[118]:=",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], Cell[BoxData[ GraphicsBox[ @@ -10583,9 +10609,10 @@ JRDQ4pTBKYmt17l38U8iAUMymwJX/X94iu3h Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913301734961166`*^9, 3.9939168024265833`*^9}, + CellChangeTimes->{3.9913301734961166`*^9, 3.9939168024265833`*^9, + 3.994252861251843*^9}, CellLabel-> - "Out[141]=",ExpressionUUID->"81bfdc95-10e9-4fd8-852e-928339611873"] + "Out[118]=",ExpressionUUID->"1d9f9957-9a34-42a1-a187-76d75bde6115"] }, Open ]], Cell[CellGroupData[{ @@ -10650,35 +10677,37 @@ Cell[BoxData[ RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.991848978152012*^9, 3.99184898469532*^9}}, CellLabel-> - "In[142]:=",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], + "In[119]:=",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.14935042893995`*^-264\\\", \ \\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 142, - 45, 31385386112227679733, "kernel 1"}, +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 41, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913301737143345`*^9, 3.993916802500098*^9}, + CellChangeTimes->{3.9913301737143345`*^9, 3.993916802500098*^9, + 3.994252861442399*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"4af5ddfc-9da4-4fd7-a581-324e6f3b3111"], +In[119]:=",ExpressionUUID->"8daf6882-032b-48ce-8ae8-e281e8b68c4d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.349106582727181`*^-275\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 142, - 46, 31385386112227679733, "kernel 1"}, +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 42, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913301737143345`*^9, 3.9939168025034647`*^9}, + CellChangeTimes->{3.9913301737143345`*^9, 3.993916802500098*^9, + 3.9942528614541903`*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"bbc924b2-09d9-4292-949e-4614e49e11d8"], +In[119]:=",ExpressionUUID->"6de129df-83d1-4206-ad0b-8cdbe8b08122"], Cell[BoxData[ TemplateBox[{ @@ -10686,26 +10715,28 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"1.2259356540752922`*^-286\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 142, 47, 31385386112227679733, "kernel 1"}, + 119, 43, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913301737143345`*^9, 3.993916802506794*^9}, + CellChangeTimes->{3.9913301737143345`*^9, 3.993916802500098*^9, + 3.994252861462914*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"81b6ef9c-c905-4765-a9ce-6b2970d7433e"], +In[119]:=",ExpressionUUID->"9b545db4-8801-4e31-a3c4-c9bb257dccfe"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 142, 48, 31385386112227679733, "kernel 1"}, +during this calculation.\"", 2, 119, 44, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913301737143345`*^9, 3.993916802509869*^9}, + CellChangeTimes->{3.9913301737143345`*^9, 3.993916802500098*^9, + 3.9942528614720383`*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"9d75b16d-36c8-4523-a51c-a55e798697bd"], +In[119]:=",ExpressionUUID->"a5b0857d-ff97-4016-8e22-4b62fe5b6dd7"], Cell[BoxData[ GraphicsBox[ @@ -11122,9 +11153,10 @@ ePf91Dw7yN/bND0/z8G3at91LqfZwf8BFe1vgA== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913306567510605`*^9, 3.993916977338089*^9}, + CellChangeTimes->{3.9913306567510605`*^9, 3.993916977338089*^9, + 3.994253443045315*^9}, CellLabel-> - "Out[142]=",ExpressionUUID->"e3c009db-6d41-4826-9099-17a0ea92d437"] + "Out[119]=",ExpressionUUID->"f39fce30-5c10-4255-b6b5-bc6fd7ae2787"] }, Open ]], Cell[CellGroupData[{ @@ -11134,7 +11166,7 @@ Cell[BoxData[ RowBox[{"x", ",", "xx"}], "]"}]], "Input", CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, CellLabel-> - "In[143]:=",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], + "In[120]:=",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], Cell[BoxData[ GraphicsBox[{ @@ -11683,9 +11715,9 @@ SA== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.993916977380677*^9}, + CellChangeTimes->{3.993916977380677*^9, 3.994253443129944*^9}, CellLabel-> - "Out[143]=",ExpressionUUID->"d787f112-579b-4551-9bf9-060fc09f0e53"] + "Out[120]=",ExpressionUUID->"fb87d530-5db5-48b9-ae55-a41e1059f904"] }, Open ]], Cell[CellGroupData[{ @@ -11738,7 +11770,7 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[144]:=",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], + "In[121]:=",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], Cell[BoxData[ TemplateBox[{ @@ -11747,13 +11779,14 @@ Cell[BoxData[ \\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ 734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 144, 49, 31385386112227679733, "kernel 1"}, +\"", 2, 121, 45, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991331752212366*^9, 3.993916977408078*^9}, + CellChangeTimes->{3.991331752212366*^9, 3.993916977408078*^9, + 3.994253443185442*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"62db389e-845b-4d30-b3aa-e876240e944b"], +In[121]:=",ExpressionUUID->"f5b7f5c3-e97f-4e0d-af92-4f3283d87efa"], Cell[BoxData[ TemplateBox[{ @@ -11762,46 +11795,52 @@ Cell[BoxData[ \\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ 116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 144, 50, 31385386112227679733, "kernel 1"}, +lost.\"", 2, 121, 46, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991331752212366*^9, 3.993916977411662*^9}, + CellChangeTimes->{3.991331752212366*^9, 3.993916977408078*^9, + 3.99425344319674*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"9264ecb9-6a5a-4998-9527-a95dd93cf772"], +In[121]:=",ExpressionUUID->"3535ddbc-2052-40c1-a686-5844af462331"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0221628321925618`*^-176\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 144, 51, 31385386112227679733, "kernel 1"}, +RowBox[{\\\"\ +161198658118785115956678299518758546564525592888043685145303185612679\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"8\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3109099682969421627018644700669916936247705600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 121, 47, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991331752212366*^9, 3.993916977415118*^9}, + CellChangeTimes->{3.991331752212366*^9, 3.993916977408078*^9, + 3.9942534432054*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"ac8299ec-f193-41da-9cdd-b034af7771b4"], +In[121]:=",ExpressionUUID->"7acba806-c49d-4e52-8c1b-884e2dce1218"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 144, 52, 31385386112227679733, "kernel 1"}, +during this calculation.\"", 2, 121, 48, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991331752212366*^9, 3.9939169774185247`*^9}, + CellChangeTimes->{3.991331752212366*^9, 3.993916977408078*^9, + 3.994253443215715*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"26510a91-0ead-4218-90df-77853d742e5a"], +In[121]:=",ExpressionUUID->"a679412d-1a1e-4178-bc6b-963609e85677"], Cell[BoxData["11.208298302300756`"], "Output", - CellChangeTimes->{3.991331759108553*^9, 3.993917000515568*^9}, + CellChangeTimes->{3.991331759108553*^9, 3.993917000515568*^9, + 3.994253530695581*^9}, CellLabel-> - "Out[144]=",ExpressionUUID->"6377a255-b8b6-4407-816a-cb4b575da237"] + "Out[121]=",ExpressionUUID->"aa5bf8fb-41a5-45f1-95d7-95bb892370e7"] }, Open ]], Cell[CellGroupData[{ @@ -11870,7 +11909,7 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.991849016830597*^9, 3.991849020984995*^9}}, CellLabel-> - "In[145]:=",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], + "In[122]:=",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], Cell[BoxData[ TemplateBox[{ @@ -11878,14 +11917,15 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"3.3919427471718177`*^-211\\\", \ \\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ 29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 145, 53, - 31385386112227679733, "kernel 1"}, +normalized machine number; precision may be lost.\"", 2, 122, 49, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913317591425533`*^9, 3.9939170005390778`*^9}, + CellChangeTimes->{3.9913317591425533`*^9, 3.9939170005390778`*^9, + 3.994253530744968*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"9124e467-4ae1-4021-a300-243dc94498eb"], +In[122]:=",ExpressionUUID->"fe9f8806-34bb-499b-9edf-95a78a431e35"], Cell[BoxData[ TemplateBox[{ @@ -11893,14 +11933,15 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"3.3057401750999514`*^-216\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 145, 54, - 31385386112227679733, "kernel 1"}, +normalized machine number; precision may be lost.\"", 2, 122, 50, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913317591425533`*^9, 3.993917000543351*^9}, + CellChangeTimes->{3.9913317591425533`*^9, 3.9939170005390778`*^9, + 3.994253530755529*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"c6549aa0-c62b-4513-ac6c-bd63e835fbea"], +In[122]:=",ExpressionUUID->"2c5f0edf-ea85-497e-986d-cf04045ae10d"], Cell[BoxData[ TemplateBox[{ @@ -11908,32 +11949,35 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"3.221728348564105`*^-221\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 145, 55, - 31385386112227679733, "kernel 1"}, +normalized machine number; precision may be lost.\"", 2, 122, 51, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913317591425533`*^9, 3.9939170005473948`*^9}, + CellChangeTimes->{3.9913317591425533`*^9, 3.9939170005390778`*^9, + 3.994253530766181*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"df2e08ef-c728-4d5e-862b-306fb2cf3581"], +In[122]:=",ExpressionUUID->"2f999e86-80e7-447f-b16c-af83fec74b1c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 145, 56, 31385386112227679733, "kernel 1"}, +during this calculation.\"", 2, 122, 52, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913317591425533`*^9, 3.993917000551076*^9}, + CellChangeTimes->{3.9913317591425533`*^9, 3.9939170005390778`*^9, + 3.994253530775475*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"9db75048-6c2e-4651-93e8-67308791c8ec"], +In[122]:=",ExpressionUUID->"75fb10cb-31ea-45a3-b055-e7a5b7c54de6"], Cell[BoxData["0.7779682329887233`"], "Output", - CellChangeTimes->{3.991331766558941*^9, 3.993917004063346*^9}, + CellChangeTimes->{3.991331766558941*^9, 3.993917004063346*^9, + 3.994253542050915*^9}, CellLabel-> - "Out[145]=",ExpressionUUID->"c4b9e709-44c9-455e-8ef5-ac8f37fed655"] + "Out[122]=",ExpressionUUID->"e29e38c3-4ddf-475e-bcd1-99466b477c39"] }, Open ]], Cell[CellGroupData[{ @@ -12001,7 +12045,7 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.991849024657757*^9, 3.991849027138817*^9}}, CellLabel-> - "In[146]:=",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], + "In[123]:=",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], Cell[BoxData[ TemplateBox[{ @@ -12009,14 +12053,15 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"3.3919427471718177`*^-211\\\", \ \\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ 29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 146, 57, - 31385386112227679733, "kernel 1"}, +normalized machine number; precision may be lost.\"", 2, 123, 53, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913317665951805`*^9, 3.993917004093231*^9}, + CellChangeTimes->{3.9913317665951805`*^9, 3.993917004093231*^9, + 3.994253542102659*^9}, CellLabel-> "During evaluation of \ -In[146]:=",ExpressionUUID->"21f560cb-17f9-4fd8-afd1-a3b49a847fb8"], +In[123]:=",ExpressionUUID->"acd863b5-5a66-4495-ae3e-1bd968ca29bf"], Cell[BoxData[ TemplateBox[{ @@ -12024,14 +12069,15 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"3.3057401750999514`*^-216\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 146, 58, - 31385386112227679733, "kernel 1"}, +normalized machine number; precision may be lost.\"", 2, 123, 54, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913317665951805`*^9, 3.993917004097135*^9}, + CellChangeTimes->{3.9913317665951805`*^9, 3.993917004093231*^9, + 3.994253542112731*^9}, CellLabel-> "During evaluation of \ -In[146]:=",ExpressionUUID->"0398c7dd-c0ba-4977-94d8-7a46d9c3a000"], +In[123]:=",ExpressionUUID->"6b87b7a3-ff1d-4601-87b4-3a994c67ac97"], Cell[BoxData[ TemplateBox[{ @@ -12039,32 +12085,35 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"3.221728348564105`*^-221\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 146, 59, - 31385386112227679733, "kernel 1"}, +normalized machine number; precision may be lost.\"", 2, 123, 55, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913317665951805`*^9, 3.9939170041006117`*^9}, + CellChangeTimes->{3.9913317665951805`*^9, 3.993917004093231*^9, + 3.994253542122842*^9}, CellLabel-> "During evaluation of \ -In[146]:=",ExpressionUUID->"86d0d906-331c-483a-aec8-995cab84b519"], +In[123]:=",ExpressionUUID->"9d82f555-8860-49f8-ab2b-b24202a67e6f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 146, 60, 31385386112227679733, "kernel 1"}, +during this calculation.\"", 2, 123, 56, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913317665951805`*^9, 3.9939170041038094`*^9}, + CellChangeTimes->{3.9913317665951805`*^9, 3.993917004093231*^9, + 3.994253542131042*^9}, CellLabel-> "During evaluation of \ -In[146]:=",ExpressionUUID->"b1e3ee7b-ff3f-4251-b481-4779b24e07fa"], +In[123]:=",ExpressionUUID->"a9cd7a2d-bf20-40a4-8db5-4aba23ed900a"], Cell[BoxData["33.783754604335904`"], "Output", - CellChangeTimes->{3.991331773590704*^9, 3.993917007631269*^9}, + CellChangeTimes->{3.991331773590704*^9, 3.993917007631269*^9, + 3.9942535525728073`*^9}, CellLabel-> - "Out[146]=",ExpressionUUID->"da699e51-8337-4555-b0a9-38b354c425a2"] + "Out[123]=",ExpressionUUID->"25f36ac6-64dc-490e-a50d-d665839e8278"] }, Open ]], Cell[CellGroupData[{ @@ -12132,7 +12181,7 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.991849031047804*^9, 3.9918490341764317`*^9}}, CellLabel-> - "In[147]:=",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], + "In[124]:=",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], Cell[BoxData[ TemplateBox[{ @@ -12140,14 +12189,15 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"3.3919427471718177`*^-211\\\", \ \\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ 29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 147, 61, - 31385386112227679733, "kernel 1"}, +normalized machine number; precision may be lost.\"", 2, 124, 57, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913317736257057`*^9, 3.993917007655273*^9}, + CellChangeTimes->{3.9913317736257057`*^9, 3.993917007655273*^9, + 3.9942535526242847`*^9}, CellLabel-> "During evaluation of \ -In[147]:=",ExpressionUUID->"e630d8e6-e72e-4896-8236-5e644436e26e"], +In[124]:=",ExpressionUUID->"526db64f-155a-4042-bcfe-ce1f7a6b6086"], Cell[BoxData[ TemplateBox[{ @@ -12155,14 +12205,15 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"3.3057401750999514`*^-216\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 147, 62, - 31385386112227679733, "kernel 1"}, +normalized machine number; precision may be lost.\"", 2, 124, 58, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913317736257057`*^9, 3.993917007659178*^9}, + CellChangeTimes->{3.9913317736257057`*^9, 3.993917007655273*^9, + 3.9942535526341352`*^9}, CellLabel-> "During evaluation of \ -In[147]:=",ExpressionUUID->"b945c7bd-5092-4b47-8a7f-06500796e5cb"], +In[124]:=",ExpressionUUID->"c35a5d60-7991-46fc-a8cc-0420465b6e5c"], Cell[BoxData[ TemplateBox[{ @@ -12170,32 +12221,35 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"3.221728348564105`*^-221\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 147, 63, - 31385386112227679733, "kernel 1"}, +normalized machine number; precision may be lost.\"", 2, 124, 59, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913317736257057`*^9, 3.993917007663225*^9}, + CellChangeTimes->{3.9913317736257057`*^9, 3.993917007655273*^9, + 3.994253552643388*^9}, CellLabel-> "During evaluation of \ -In[147]:=",ExpressionUUID->"32f9c9b5-dbf0-41ab-bf21-b30b40abbbda"], +In[124]:=",ExpressionUUID->"0b42e085-d06c-4da0-816f-5dddaeac531d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 147, 64, 31385386112227679733, "kernel 1"}, +during this calculation.\"", 2, 124, 60, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913317736257057`*^9, 3.99391700766682*^9}, + CellChangeTimes->{3.9913317736257057`*^9, 3.993917007655273*^9, + 3.9942535526512527`*^9}, CellLabel-> "During evaluation of \ -In[147]:=",ExpressionUUID->"735d0623-9874-4e24-9679-1a0c84c47df2"], +In[124]:=",ExpressionUUID->"ea4b53e1-b982-412f-95d3-daf4658a2a75"], Cell[BoxData["8.010369187735604`"], "Output", - CellChangeTimes->{3.991331777337887*^9, 3.993917009792976*^9}, + CellChangeTimes->{3.991331777337887*^9, 3.993917009792976*^9, + 3.994253561524962*^9}, CellLabel-> - "Out[147]=",ExpressionUUID->"cc9e248c-6f72-4e53-84f1-00dd2c592e80"] + "Out[124]=",ExpressionUUID->"da2bac54-e6a3-4804-8be5-dcadd8a0a918"] }, Open ]], Cell[CellGroupData[{ @@ -12206,12 +12260,13 @@ Cell[BoxData[ RowBox[{"S1", "*", "S2"}]]]], "Input", CellChangeTimes->{{3.9918490375675926`*^9, 3.991849040901537*^9}}, CellLabel-> - "In[148]:=",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], + "In[125]:=",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], Cell[BoxData["0.047291342234526065`"], "Output", - CellChangeTimes->{3.9913317773679104`*^9, 3.9939170098266497`*^9}, + CellChangeTimes->{3.9913317773679104`*^9, 3.9939170098266497`*^9, + 3.9942535615631733`*^9}, CellLabel-> - "Out[148]=",ExpressionUUID->"0817375f-aeff-41fb-8606-644e37fa0523"] + "Out[125]=",ExpressionUUID->"e0acc09c-4457-4468-8f2e-07c55dcd9fa4"] }, Open ]], Cell[BoxData[ @@ -12220,7 +12275,7 @@ Cell[BoxData[ CellChangeTimes->{{3.9918490438339844`*^9, 3.991849046673996*^9}, 3.9919249287922287`*^9}, CellLabel-> - "In[149]:=",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], + "In[126]:=",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], Cell[CellGroupData[{ @@ -12243,12 +12298,13 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[150]:=",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], + "In[127]:=",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], Cell[BoxData["14.800894227577137`"], "Output", - CellChangeTimes->{3.9913317774008274`*^9, 3.993917009847465*^9}, + CellChangeTimes->{3.9913317774008274`*^9, 3.993917009847465*^9, + 3.994253561588727*^9}, CellLabel-> - "Out[150]=",ExpressionUUID->"301b0e39-9a24-4394-bf63-03810f39cc5a"] + "Out[127]=",ExpressionUUID->"46c5067f-3a4b-4812-929a-a38e65e7b3d6"] }, Open ]], Cell[CellGroupData[{ @@ -12258,12 +12314,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[151]:=",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], + "In[128]:=",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], Cell[BoxData["3.183861544998538`"], "Output", - CellChangeTimes->{3.9913317774358253`*^9, 3.993917009853266*^9}, + CellChangeTimes->{3.9913317774358253`*^9, 3.993917009853266*^9, + 3.9942535616038446`*^9}, CellLabel-> - "Out[151]=",ExpressionUUID->"1e64545b-3fbb-43bb-b133-0e4e24a10b0a"] + "Out[128]=",ExpressionUUID->"acbbb8b4-a9ef-44ee-85b3-98d143ff1693"] }, Open ]], Cell[CellGroupData[{ @@ -12273,12 +12330,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[152]:=",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], + "In[129]:=",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], Cell[BoxData["47.123997962773686`"], "Output", - CellChangeTimes->{3.991331777510603*^9, 3.993917009859151*^9}, + CellChangeTimes->{3.991331777510603*^9, 3.993917009859151*^9, + 3.99425356161917*^9}, CellLabel-> - "Out[152]=",ExpressionUUID->"85b9b120-5774-4c1d-aae0-4002452ea138"] + "Out[129]=",ExpressionUUID->"bcc7cec4-cc40-41a9-857c-e2e4b12150a4"] }, Open ]], Cell[CellGroupData[{ @@ -12468,12 +12526,13 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[153]:=",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], + "In[130]:=",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], Cell[BoxData["0.00589257080754978`"], "Output", - CellChangeTimes->{3.991331777537592*^9, 3.993917009873825*^9}, + CellChangeTimes->{3.991331777537592*^9, 3.993917009873825*^9, + 3.994253561635468*^9}, CellLabel-> - "Out[153]=",ExpressionUUID->"a3f9a3aa-3db1-4ff9-b0c5-fa511dabdc36"] + "Out[130]=",ExpressionUUID->"5d640a9e-40c0-438b-b1ed-803b082e29ae"] }, Open ]], Cell[CellGroupData[{ @@ -12487,12 +12546,13 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[154]:=",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], + "In[131]:=",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], Cell[BoxData["11.544962743120607`"], "Output", - CellChangeTimes->{3.9913317776362495`*^9, 3.993917009930911*^9}, + CellChangeTimes->{3.9913317776362495`*^9, 3.993917009930911*^9, + 3.994253561834778*^9}, CellLabel-> - "Out[154]=",ExpressionUUID->"fad05be1-e43f-4569-8022-151dff411c43"] + "Out[131]=",ExpressionUUID->"c1aa02bc-166e-425c-b50c-f3dab036f89b"] }, Open ]], Cell[CellGroupData[{ @@ -12684,12 +12744,13 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[155]:=",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], + "In[132]:=",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], Cell[BoxData["0.02015861154610742`"], "Output", - CellChangeTimes->{3.9913317776511555`*^9, 3.993917009938689*^9}, + CellChangeTimes->{3.9913317776511555`*^9, 3.993917009938689*^9, + 3.994253561851296*^9}, CellLabel-> - "Out[155]=",ExpressionUUID->"28bf90b0-e653-41e2-b1a2-22737e26a3cf"] + "Out[132]=",ExpressionUUID->"337a890e-8021-4980-b5da-d0d877a9f150"] }, Open ]], Cell[CellGroupData[{ @@ -12703,12 +12764,13 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[156]:=",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], + "In[133]:=",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], Cell[BoxData["6.241868753667001`"], "Output", - CellChangeTimes->{3.991331777742655*^9, 3.993917009995133*^9}, + CellChangeTimes->{3.991331777742655*^9, 3.993917009995133*^9, + 3.994253562029566*^9}, CellLabel-> - "Out[156]=",ExpressionUUID->"4bc04271-3d15-4e8c-9e6b-f9fd1eddcce1"] + "Out[133]=",ExpressionUUID->"b318eb28-df16-4d32-a250-dd25cb9d0a8b"] }, Open ]], Cell[CellGroupData[{ @@ -12801,12 +12863,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[157]:=",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], + "In[134]:=",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], Cell[BoxData["0.1245822467542299`"], "Output", - CellChangeTimes->{3.9913317777546787`*^9, 3.9939170100023518`*^9}, + CellChangeTimes->{3.9913317777546787`*^9, 3.9939170100023518`*^9, + 3.994253562046075*^9}, CellLabel-> - "Out[157]=",ExpressionUUID->"d315aca0-be57-4b4f-9915-8f3fd773a9b0"] + "Out[134]=",ExpressionUUID->"215a3741-994a-4b8d-b174-cc46ee14f7be"] }, Open ]], Cell[CellGroupData[{ @@ -12896,12 +12959,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[158]:=",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], + "In[135]:=",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], Cell[BoxData["0.8754177532457702`"], "Output", - CellChangeTimes->{3.991331777779663*^9, 3.993917010008869*^9}, + CellChangeTimes->{3.991331777779663*^9, 3.993917010008869*^9, + 3.994253562061983*^9}, CellLabel-> - "Out[158]=",ExpressionUUID->"9d8ee359-7b36-47db-9a60-d0fcb3e5fa9d"] + "Out[135]=",ExpressionUUID->"80002680-77ba-4823-9357-8e2bd680c8cc"] }, Open ]], Cell[CellGroupData[{ @@ -13024,12 +13088,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[159]:=",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], + "In[136]:=",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], Cell[BoxData["0.10906151054789807`"], "Output", - CellChangeTimes->{3.9913317778036633`*^9, 3.993917010015767*^9}, + CellChangeTimes->{3.9913317778036633`*^9, 3.993917010015767*^9, + 3.9942535620789824`*^9}, CellLabel-> - "Out[159]=",ExpressionUUID->"885a598b-0787-4be9-9681-34b663c0bcb0"] + "Out[136]=",ExpressionUUID->"068c35d3-bde0-47e8-98c2-9115c4ebeba6"] }, Open ]], Cell[CellGroupData[{ @@ -13093,7 +13158,7 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.9918490946810665`*^9}, CellLabel-> - "In[160]:=",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], + "In[137]:=",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], Cell[BoxData[ TemplateBox[{ @@ -13101,14 +13166,15 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"1.5442165814848647`*^-207\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 160, 65, - 31385386112227679733, "kernel 1"}, +normalized machine number; precision may be lost.\"", 2, 137, 61, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913317778296604`*^9, 3.9939170100237007`*^9}, + CellChangeTimes->{3.9913317778296604`*^9, 3.9939170100237007`*^9, + 3.994253562098037*^9}, CellLabel-> "During evaluation of \ -In[160]:=",ExpressionUUID->"0e166fd8-fdfa-42ea-aaff-4b8a51556756"], +In[137]:=",ExpressionUUID->"d6b0a64a-7874-440b-a3bd-32304550f53e"], Cell[BoxData[ TemplateBox[{ @@ -13116,14 +13182,15 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"2.3941055101368864`*^-212\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 160, 66, - 31385386112227679733, "kernel 1"}, +normalized machine number; precision may be lost.\"", 2, 137, 62, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913317778296604`*^9, 3.993917010027108*^9}, + CellChangeTimes->{3.9913317778296604`*^9, 3.9939170100237007`*^9, + 3.9942535621077013`*^9}, CellLabel-> "During evaluation of \ -In[160]:=",ExpressionUUID->"1ac17a09-c2e8-4ed8-9eb2-77f9d82791ff"], +In[137]:=",ExpressionUUID->"487fc0c2-5402-496f-83a5-ba6ed0318767"], Cell[BoxData[ TemplateBox[{ @@ -13131,32 +13198,35 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"3.7117469546638064`*^-217\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 160, 67, - 31385386112227679733, "kernel 1"}, +a normalized machine number; precision may be lost.\"", 2, 137, 63, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913317778296604`*^9, 3.993917010030801*^9}, + CellChangeTimes->{3.9913317778296604`*^9, 3.9939170100237007`*^9, + 3.994253562116681*^9}, CellLabel-> "During evaluation of \ -In[160]:=",ExpressionUUID->"897c1490-3ca0-43ba-97f8-2191012b1bfa"], +In[137]:=",ExpressionUUID->"a09b714b-c17f-4024-986f-f4dffe609074"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 160, 68, 31385386112227679733, "kernel 1"}, +during this calculation.\"", 2, 137, 64, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913317778296604`*^9, 3.99391701003437*^9}, + CellChangeTimes->{3.9913317778296604`*^9, 3.9939170100237007`*^9, + 3.994253562126013*^9}, CellLabel-> "During evaluation of \ -In[160]:=",ExpressionUUID->"e5fd9e11-12e7-42a9-8b96-aeaf86a75e7c"], +In[137]:=",ExpressionUUID->"2a780a2f-85a8-4b18-996d-bf7cad05233e"], Cell[BoxData["11.54496274312061`"], "Output", - CellChangeTimes->{3.991331781456501*^9, 3.993917011850012*^9}, + CellChangeTimes->{3.991331781456501*^9, 3.993917011850012*^9, + 3.994253570049152*^9}, CellLabel-> - "Out[160]=",ExpressionUUID->"12056439-fe3e-41c7-ab4e-ecb24bd10c01"] + "Out[137]=",ExpressionUUID->"0efd83ac-9a06-452d-aa89-7e0e858b2513"] }, Open ]], Cell[CellGroupData[{ @@ -13220,7 +13290,7 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.99184909912471*^9}, CellLabel-> - "In[161]:=",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], + "In[138]:=",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], Cell[BoxData[ TemplateBox[{ @@ -13228,14 +13298,15 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"1.5442165814848647`*^-207\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 161, 69, - 31385386112227679733, "kernel 1"}, +normalized machine number; precision may be lost.\"", 2, 138, 65, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991331781491499*^9, 3.993917011876803*^9}, + CellChangeTimes->{3.991331781491499*^9, 3.993917011876803*^9, + 3.994253570102963*^9}, CellLabel-> "During evaluation of \ -In[161]:=",ExpressionUUID->"3a871784-3a01-4689-b345-2b1254bcee66"], +In[138]:=",ExpressionUUID->"2aa9b88b-c780-44ee-ae82-7dbefa97010e"], Cell[BoxData[ TemplateBox[{ @@ -13243,14 +13314,15 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"2.3941055101368864`*^-212\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 161, 70, - 31385386112227679733, "kernel 1"}, +normalized machine number; precision may be lost.\"", 2, 138, 66, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991331781491499*^9, 3.993917011880612*^9}, + CellChangeTimes->{3.991331781491499*^9, 3.993917011876803*^9, + 3.9942535701124353`*^9}, CellLabel-> "During evaluation of \ -In[161]:=",ExpressionUUID->"8cf7d6f7-dda1-488f-a681-e10231387598"], +In[138]:=",ExpressionUUID->"9cf2b483-b0d5-491b-b9cc-3c473251f30d"], Cell[BoxData[ TemplateBox[{ @@ -13258,32 +13330,35 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"3.7117469546638064`*^-217\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 161, 71, - 31385386112227679733, "kernel 1"}, +a normalized machine number; precision may be lost.\"", 2, 138, 67, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991331781491499*^9, 3.9939170118841753`*^9}, + CellChangeTimes->{3.991331781491499*^9, 3.993917011876803*^9, + 3.994253570121643*^9}, CellLabel-> "During evaluation of \ -In[161]:=",ExpressionUUID->"eed56352-710b-40e8-b869-8d4c90957aa1"], +In[138]:=",ExpressionUUID->"fc43944c-1206-4cd3-bff7-9a05c3c0e2a5"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 161, 72, 31385386112227679733, "kernel 1"}, +during this calculation.\"", 2, 138, 68, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991331781491499*^9, 3.993917011887439*^9}, + CellChangeTimes->{3.991331781491499*^9, 3.993917011876803*^9, + 3.994253570130958*^9}, CellLabel-> "During evaluation of \ -In[161]:=",ExpressionUUID->"ea8f6b58-fd5a-4c7f-92ce-a4994f63598d"], +In[138]:=",ExpressionUUID->"ef2473a5-d65c-4378-828c-d1dbe10f5ce6"], Cell[BoxData["6.241868753667001`"], "Output", - CellChangeTimes->{3.9913317851500416`*^9, 3.993917013802415*^9}, + CellChangeTimes->{3.9913317851500416`*^9, 3.993917013802415*^9, + 3.994253577876443*^9}, CellLabel-> - "Out[161]=",ExpressionUUID->"e736350e-0d04-433e-b0da-4312493f971d"] + "Out[138]=",ExpressionUUID->"e1c5470f-4aa7-4b75-82f0-dae750a8a89b"] }, Open ]], Cell[CellGroupData[{ @@ -13343,7 +13418,7 @@ Cell[BoxData[ RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{3.9918491043389053`*^9}, CellLabel-> - "In[162]:=",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], + "In[139]:=",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], Cell[BoxData[ GraphicsBox[ @@ -13727,9 +13802,10 @@ DKlXB0vpu8T/B40S9nU= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913320330871353`*^9, 3.993917153720121*^9}, + CellChangeTimes->{3.9913320330871353`*^9, 3.993917153720121*^9, + 3.99425414505788*^9}, CellLabel-> - "Out[162]=",ExpressionUUID->"2f05eba9-19e8-4dd3-953b-3f41773c53ce"] + "Out[139]=",ExpressionUUID->"a792d09c-2dc6-4c6f-a0a2-03f851aed9c5"] }, Open ]], Cell[CellGroupData[{ @@ -13794,21 +13870,22 @@ Cell[BoxData[ RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.9918491076725483`*^9, 3.9918491120260525`*^9}}, CellLabel-> - "In[163]:=",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], + "In[140]:=",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.3103931946086534`*^-270\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 163, - 73, 31385386112227679733, "kernel 1"}, +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 69, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991332033325203*^9, 3.993917153797319*^9}, + CellChangeTimes->{3.991332033325203*^9, 3.993917153797319*^9, + 3.9942541452529297`*^9}, CellLabel-> "During evaluation of \ -In[163]:=",ExpressionUUID->"e88330f7-6a4d-4b8a-8ecd-25061895359a"], +In[140]:=",ExpressionUUID->"2f92ecb6-0b5e-4178-bdbf-33ef9b43cae6"], Cell[BoxData[ TemplateBox[{ @@ -13816,13 +13893,14 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"1.3453629878567096`*^-281\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 163, 74, 31385386112227679733, "kernel 1"}, + 140, 70, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991332033325203*^9, 3.9939171538026342`*^9}, + CellChangeTimes->{3.991332033325203*^9, 3.993917153797319*^9, + 3.994254145262835*^9}, CellLabel-> "During evaluation of \ -In[163]:=",ExpressionUUID->"baf7453a-836e-4b1e-a391-6b37df72fc11"], +In[140]:=",ExpressionUUID->"2079f7d4-83a9-4ffa-8008-73cea13e797e"], Cell[BoxData[ TemplateBox[{ @@ -13830,26 +13908,28 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"7.834171141597914`*^-293\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 163, 75, 31385386112227679733, "kernel 1"}, + 2, 140, 71, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991332033325203*^9, 3.993917153806798*^9}, + CellChangeTimes->{3.991332033325203*^9, 3.993917153797319*^9, + 3.9942541452725277`*^9}, CellLabel-> "During evaluation of \ -In[163]:=",ExpressionUUID->"5b6e49dc-d682-4e03-98aa-536569be85af"], +In[140]:=",ExpressionUUID->"7ac88e5b-4ac5-40b7-ad01-d29bae510d9e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 163, 76, 31385386112227679733, "kernel 1"}, +during this calculation.\"", 2, 140, 72, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991332033325203*^9, 3.993917153810686*^9}, + CellChangeTimes->{3.991332033325203*^9, 3.993917153797319*^9, + 3.9942541452813883`*^9}, CellLabel-> "During evaluation of \ -In[163]:=",ExpressionUUID->"f6173936-13bd-4adc-b2eb-007a6646f35e"], +In[140]:=",ExpressionUUID->"21b3a856-27cb-41f2-9ba3-f4cb1a23bc52"], Cell[BoxData[ GraphicsBox[ @@ -14254,9 +14334,10 @@ HWGJbr6q4ywXMydWOs58cIBM35qpv3+56KENOpldDvA/il5b0w== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913324679337597`*^9, 3.993917491226137*^9}, + CellChangeTimes->{3.9913324679337597`*^9, 3.993917491226137*^9, + 3.994254557834847*^9}, CellLabel-> - "Out[163]=",ExpressionUUID->"ef5df887-51ea-4a4b-b0ce-bd2484cf3677"] + "Out[140]=",ExpressionUUID->"bd70e256-aab7-48fa-9f99-62d1a8f37bc1"] }, Open ]], Cell[CellGroupData[{ @@ -14266,7 +14347,7 @@ Cell[BoxData[ RowBox[{"x", ",", "xx"}], "]"}]], "Input", CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, CellLabel-> - "In[164]:=",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], + "In[141]:=",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], Cell[BoxData[ GraphicsBox[{ @@ -14803,9 +14884,9 @@ SA== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.993917491318997*^9}, + CellChangeTimes->{3.993917491318997*^9, 3.994254557919742*^9}, CellLabel-> - "Out[164]=",ExpressionUUID->"3bca3017-1b8d-49b1-b989-fa9add5d13cf"] + "Out[141]=",ExpressionUUID->"6e41d5b1-5aa7-4547-bc5c-93b45f8e9ae6"] }, Open ]], Cell[CellGroupData[{ @@ -14858,7 +14939,7 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[165]:=",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], + "In[142]:=",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], Cell[BoxData[ TemplateBox[{ @@ -14867,13 +14948,14 @@ Cell[BoxData[ \\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ 35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 165, 77, 31385386112227679733, "kernel 1"}, + 2, 142, 73, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991333512859148*^9, 3.993917491381341*^9}, + CellChangeTimes->{3.991333512859148*^9, 3.993917491381341*^9, + 3.994254557981381*^9}, CellLabel-> "During evaluation of \ -In[165]:=",ExpressionUUID->"9db42c85-d60a-4067-b6be-3b83cf6d6967"], +In[142]:=",ExpressionUUID->"830f532c-eed3-4d08-873e-e0bb87047232"], Cell[BoxData[ TemplateBox[{ @@ -14882,13 +14964,14 @@ Cell[BoxData[ \\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ 54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 165, 78, 31385386112227679733, "kernel 1"}, + 2, 142, 74, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991333512859148*^9, 3.993917491390511*^9}, + CellChangeTimes->{3.991333512859148*^9, 3.993917491381341*^9, + 3.994254557989093*^9}, CellLabel-> "During evaluation of \ -In[165]:=",ExpressionUUID->"87943419-9fcc-4e29-89a1-c0693108f99b"], +In[142]:=",ExpressionUUID->"22cc9e00-5aff-4d0e-aa3b-ae845357514b"], Cell[BoxData[ TemplateBox[{ @@ -14897,31 +14980,34 @@ Cell[BoxData[ \\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ 734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 165, 79, 31385386112227679733, "kernel 1"}, +\"", 2, 142, 75, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991333512859148*^9, 3.993917491398369*^9}, + CellChangeTimes->{3.991333512859148*^9, 3.993917491381341*^9, + 3.9942545579973373`*^9}, CellLabel-> "During evaluation of \ -In[165]:=",ExpressionUUID->"d9e0da2f-e13b-4271-bce7-3f50bac61baf"], +In[142]:=",ExpressionUUID->"b29c2529-e928-4eda-8894-b131f71e9239"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 165, 80, 31385386112227679733, "kernel 1"}, +during this calculation.\"", 2, 142, 76, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991333512859148*^9, 3.9939174914051323`*^9}, + CellChangeTimes->{3.991333512859148*^9, 3.993917491381341*^9, + 3.9942545580047817`*^9}, CellLabel-> "During evaluation of \ -In[165]:=",ExpressionUUID->"236bdc43-a0c3-42a8-8d92-1c63357021f5"], +In[142]:=",ExpressionUUID->"0ea8be9b-1f22-4d7d-a63f-67066aa895ba"], Cell[BoxData["11.208345082980326`"], "Output", - CellChangeTimes->{3.9913335200445786`*^9, 3.9939175416421967`*^9}, + CellChangeTimes->{3.9913335200445786`*^9, 3.9939175416421967`*^9, + 3.994254593898499*^9}, CellLabel-> - "Out[165]=",ExpressionUUID->"bde36af4-6809-4b41-8597-aeca2f08c977"] + "Out[142]=",ExpressionUUID->"d11aed7b-21fa-46d0-bdc3-8665c8bcce72"] }, Open ]], Cell[CellGroupData[{ @@ -14990,7 +15076,7 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9918491385551624`*^9, 3.991849142620474*^9}}, CellLabel-> - "In[166]:=",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], + "In[143]:=",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], Cell[BoxData[ TemplateBox[{ @@ -14998,14 +15084,15 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"1.5442165814848647`*^-207\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 166, 81, - 31385386112227679733, "kernel 1"}, +normalized machine number; precision may be lost.\"", 2, 143, 77, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913335200775414`*^9, 3.993917541690359*^9}, + CellChangeTimes->{3.9913335200775414`*^9, 3.993917541690359*^9, + 3.994254593931324*^9}, CellLabel-> "During evaluation of \ -In[166]:=",ExpressionUUID->"d62e7a13-83c7-4d0c-b356-61f4382a3c1e"], +In[143]:=",ExpressionUUID->"164398cf-fa42-4d4c-962d-a7e08f6da62b"], Cell[BoxData[ TemplateBox[{ @@ -15013,14 +15100,15 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"2.3941055101368864`*^-212\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 166, 82, - 31385386112227679733, "kernel 1"}, +normalized machine number; precision may be lost.\"", 2, 143, 78, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913335200775414`*^9, 3.99391754169984*^9}, + CellChangeTimes->{3.9913335200775414`*^9, 3.993917541690359*^9, + 3.9942545939383373`*^9}, CellLabel-> "During evaluation of \ -In[166]:=",ExpressionUUID->"5d37ff0a-231a-4619-86f1-9041e3f1991b"], +In[143]:=",ExpressionUUID->"57698603-23ce-461c-898f-b8d807be09d2"], Cell[BoxData[ TemplateBox[{ @@ -15028,32 +15116,35 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"3.7117469546638064`*^-217\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 166, 83, - 31385386112227679733, "kernel 1"}, +a normalized machine number; precision may be lost.\"", 2, 143, 79, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913335200775414`*^9, 3.9939175417087603`*^9}, + CellChangeTimes->{3.9913335200775414`*^9, 3.993917541690359*^9, + 3.994254593944091*^9}, CellLabel-> "During evaluation of \ -In[166]:=",ExpressionUUID->"bdf45c1f-bb12-40d7-a70d-b81061567e27"], +In[143]:=",ExpressionUUID->"dd450b73-1f3d-4c70-92e6-87fd549e6fbe"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 166, 84, 31385386112227679733, "kernel 1"}, +during this calculation.\"", 2, 143, 80, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913335200775414`*^9, 3.9939175417155323`*^9}, + CellChangeTimes->{3.9913335200775414`*^9, 3.993917541690359*^9, + 3.994254593948638*^9}, CellLabel-> "During evaluation of \ -In[166]:=",ExpressionUUID->"83a3341c-dd1e-4d48-ac57-b28e9d615928"], +In[143]:=",ExpressionUUID->"cdc040c7-366d-491e-9311-b7b989fc4596"], Cell[BoxData["1.8976942837928075`"], "Output", - CellChangeTimes->{3.9913335271231823`*^9, 3.993917550279533*^9}, + CellChangeTimes->{3.9913335271231823`*^9, 3.993917550279533*^9, + 3.9942545988296432`*^9}, CellLabel-> - "Out[166]=",ExpressionUUID->"98d22a37-0602-44a0-90c8-d56d2df5b5c1"] + "Out[143]=",ExpressionUUID->"d78f24a0-fb4a-4ac2-9a5a-6e974a2bcc26"] }, Open ]], Cell[CellGroupData[{ @@ -15121,7 +15212,7 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.991849146408966*^9, 3.9918491485488663`*^9}}, CellLabel-> - "In[167]:=",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], + "In[144]:=",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], Cell[BoxData[ TemplateBox[{ @@ -15129,14 +15220,15 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"1.5442165814848647`*^-207\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 167, 85, - 31385386112227679733, "kernel 1"}, +normalized machine number; precision may be lost.\"", 2, 144, 81, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913335271591835`*^9, 3.99391755033747*^9}, + CellChangeTimes->{3.9913335271591835`*^9, 3.99391755033747*^9, + 3.994254598859366*^9}, CellLabel-> "During evaluation of \ -In[167]:=",ExpressionUUID->"94fe5bdd-2473-4912-967a-7ceac35229af"], +In[144]:=",ExpressionUUID->"c280a2a0-84bc-4a37-9278-1966dddc6e34"], Cell[BoxData[ TemplateBox[{ @@ -15144,14 +15236,15 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"2.3941055101368864`*^-212\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 167, 86, - 31385386112227679733, "kernel 1"}, +normalized machine number; precision may be lost.\"", 2, 144, 82, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913335271591835`*^9, 3.993917550346005*^9}, + CellChangeTimes->{3.9913335271591835`*^9, 3.99391755033747*^9, + 3.994254598864359*^9}, CellLabel-> "During evaluation of \ -In[167]:=",ExpressionUUID->"dfaa725f-1692-4c80-a699-96c5faddedaf"], +In[144]:=",ExpressionUUID->"ae9a5cd0-557d-4454-9766-bbc6c77a493f"], Cell[BoxData[ TemplateBox[{ @@ -15159,32 +15252,35 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"3.7117469546638064`*^-217\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 167, 87, - 31385386112227679733, "kernel 1"}, +a normalized machine number; precision may be lost.\"", 2, 144, 83, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913335271591835`*^9, 3.99391755035498*^9}, + CellChangeTimes->{3.9913335271591835`*^9, 3.99391755033747*^9, + 3.994254598869356*^9}, CellLabel-> "During evaluation of \ -In[167]:=",ExpressionUUID->"7bf8b151-d80d-4880-a762-6d12d2da2ccd"], +In[144]:=",ExpressionUUID->"95bf9cc7-dbd1-4dc7-843f-05809edf951a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 167, 88, 31385386112227679733, "kernel 1"}, +during this calculation.\"", 2, 144, 84, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913335271591835`*^9, 3.993917550362542*^9}, + CellChangeTimes->{3.9913335271591835`*^9, 3.99391755033747*^9, + 3.994254598874157*^9}, CellLabel-> "During evaluation of \ -In[167]:=",ExpressionUUID->"367707d2-0b26-42c5-ac2f-244203cc7651"], +In[144]:=",ExpressionUUID->"5579be48-16dc-4417-90e0-7e77166a51f9"], Cell[BoxData["36.419050973065204`"], "Output", - CellChangeTimes->{3.9913335331581306`*^9, 3.9939175585906277`*^9}, + CellChangeTimes->{3.9913335331581306`*^9, 3.9939175585906277`*^9, + 3.9942546034411983`*^9}, CellLabel-> - "Out[167]=",ExpressionUUID->"91c38b38-1d1d-46b1-9eed-8f4fcf34a0ab"] + "Out[144]=",ExpressionUUID->"594da857-c725-4f18-ba9a-06032fcc5e1c"] }, Open ]], Cell[CellGroupData[{ @@ -15252,7 +15348,7 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9918491518098984`*^9, 3.9918491543107758`*^9}}, CellLabel-> - "In[168]:=",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], + "In[145]:=",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], Cell[BoxData[ TemplateBox[{ @@ -15260,14 +15356,15 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"1.5442165814848647`*^-207\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 168, 89, - 31385386112227679733, "kernel 1"}, +normalized machine number; precision may be lost.\"", 2, 145, 85, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913335331923027`*^9, 3.993917558655664*^9}, + CellChangeTimes->{3.9913335331923027`*^9, 3.993917558655664*^9, + 3.9942546034721527`*^9}, CellLabel-> "During evaluation of \ -In[168]:=",ExpressionUUID->"166c6310-7eaf-4c5a-abfb-6237a6157663"], +In[145]:=",ExpressionUUID->"868ab240-193a-466d-8d57-d81d5b72d41b"], Cell[BoxData[ TemplateBox[{ @@ -15275,14 +15372,15 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"2.3941055101368864`*^-212\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 168, 90, - 31385386112227679733, "kernel 1"}, +normalized machine number; precision may be lost.\"", 2, 145, 86, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913335331923027`*^9, 3.993917558663888*^9}, + CellChangeTimes->{3.9913335331923027`*^9, 3.993917558655664*^9, + 3.994254603478815*^9}, CellLabel-> "During evaluation of \ -In[168]:=",ExpressionUUID->"936c7a26-b64d-470c-8f46-a2f718056856"], +In[145]:=",ExpressionUUID->"351dfa01-1614-4d48-842d-c3ec535468ec"], Cell[BoxData[ TemplateBox[{ @@ -15290,32 +15388,35 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"3.7117469546638064`*^-217\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 168, 91, - 31385386112227679733, "kernel 1"}, +a normalized machine number; precision may be lost.\"", 2, 145, 87, + 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913335331923027`*^9, 3.993917558671172*^9}, + CellChangeTimes->{3.9913335331923027`*^9, 3.993917558655664*^9, + 3.994254603485407*^9}, CellLabel-> "During evaluation of \ -In[168]:=",ExpressionUUID->"f117f599-ae95-4efd-ab56-82e87f9417e6"], +In[145]:=",ExpressionUUID->"15d680ad-58e0-4817-8200-4cd6159fb9c8"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 168, 92, 31385386112227679733, "kernel 1"}, +during this calculation.\"", 2, 145, 88, 31387619618395013639, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913335331923027`*^9, 3.9939175586778393`*^9}, + CellChangeTimes->{3.9913335331923027`*^9, 3.993917558655664*^9, + 3.994254603491119*^9}, CellLabel-> "During evaluation of \ -In[168]:=",ExpressionUUID->"2d874001-5056-4b24-8fe2-7cbf07c101f2"], +In[145]:=",ExpressionUUID->"89f6b55f-28a8-417f-89db-4e9b439fa74e"], Cell[BoxData["10.645665556464941`"], "Output", - CellChangeTimes->{3.9913335366055527`*^9, 3.993917564119417*^9}, + CellChangeTimes->{3.9913335366055527`*^9, 3.993917564119417*^9, + 3.994254606369244*^9}, CellLabel-> - "Out[168]=",ExpressionUUID->"d9bd3ee2-39e9-4e64-98ca-2afe5aa82626"] + "Out[145]=",ExpressionUUID->"0739aad7-43a0-4dbc-871a-a6991e4209d5"] }, Open ]], Cell[CellGroupData[{ @@ -15326,12 +15427,13 @@ Cell[BoxData[ RowBox[{"S1", "*", "S2"}]]]], "Input", CellChangeTimes->{{3.9918491594691143`*^9, 3.9918491632611027`*^9}}, CellLabel-> - "In[169]:=",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], + "In[146]:=",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], Cell[BoxData["0.09637747145160384`"], "Output", - CellChangeTimes->{3.9913335366395893`*^9, 3.9939175641661463`*^9}, + CellChangeTimes->{3.9913335366395893`*^9, 3.9939175641661463`*^9, + 3.994254606396515*^9}, CellLabel-> - "Out[169]=",ExpressionUUID->"de1a0023-c03a-4434-b9d0-2111687fc332"] + "Out[146]=",ExpressionUUID->"42ca13f5-c695-462b-bf50-1305940c37bd"] }, Open ]], Cell[BoxData[ @@ -15339,11 +15441,11 @@ Cell[BoxData[ RowBox[{"NotebookSave", "[", "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{3.993910366766776*^9}, CellLabel-> - "In[170]:=",ExpressionUUID->"50796e04-fb69-4bb8-8c2c-ce75e583bac0"] + "In[147]:=",ExpressionUUID->"50796e04-fb69-4bb8-8c2c-ce75e583bac0"] }, -Evaluator->"kernel 1", -WindowSize->{1440, 882}, -WindowMargins->{{0, Automatic}, {0, Automatic}}, +Evaluator->"kernel 2", +WindowSize->{714, 170.25}, +WindowMargins->{{Automatic, 3}, {Automatic, 191.25}}, CellContext->Notebook, Magnification:>0.8 Inherited, FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", @@ -15362,639 +15464,639 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 423, 7, 23, "Input",ExpressionUUID->"26c26a16-1b0a-4efc-b3af-0175fe1cc140"], -Cell[1002, 31, 372, 6, 26, "Output",ExpressionUUID->"324c79e0-21ce-486c-9be0-f0396d74f486"] +Cell[576, 22, 422, 7, 29, "Input",ExpressionUUID->"26c26a16-1b0a-4efc-b3af-0175fe1cc140"], +Cell[1001, 31, 393, 6, 33, "Output",ExpressionUUID->"8cfc9835-c1a5-4b5a-ab23-61e9911ecf93"] }, Open ]], Cell[CellGroupData[{ -Cell[1411, 42, 247, 4, 23, "Input",ExpressionUUID->"204c7c50-46af-46fd-9729-d209fac3838b"], -Cell[1661, 48, 377, 6, 26, "Output",ExpressionUUID->"8800dc50-8cc7-42f7-b3fb-926889f403f2"] +Cell[1431, 42, 246, 4, 29, "Input",ExpressionUUID->"204c7c50-46af-46fd-9729-d209fac3838b"], +Cell[1680, 48, 400, 6, 33, "Output",ExpressionUUID->"b38129c5-5fe7-49f8-ab94-e13ec3e205a6"] }, Open ]], Cell[CellGroupData[{ -Cell[2075, 59, 221, 4, 23, "Input",ExpressionUUID->"5630bff6-90dd-4888-9621-cb7d97908b2d"], -Cell[2299, 65, 398, 6, 26, "Output",ExpressionUUID->"2bca863f-a19e-4675-9bec-510b231b035f"] +Cell[2117, 59, 220, 4, 29, "Input",ExpressionUUID->"5630bff6-90dd-4888-9621-cb7d97908b2d"], +Cell[2340, 65, 419, 6, 33, "Output",ExpressionUUID->"dac31722-a690-432e-994d-e4a24ba93631"] }, Open ]], Cell[CellGroupData[{ -Cell[2734, 76, 176, 3, 23, "Input",ExpressionUUID->"0a30049e-799d-477e-9c67-6851d13c3ede"], -Cell[2913, 81, 376, 6, 26, "Output",ExpressionUUID->"681e7615-4ca4-4b32-aea0-21378feed02a"] +Cell[2796, 76, 175, 3, 29, "Input",ExpressionUUID->"0a30049e-799d-477e-9c67-6851d13c3ede"], +Cell[2974, 81, 397, 6, 33, "Output",ExpressionUUID->"d53f7f2c-916e-4a91-b60e-cbe7b4e39569"] }, Open ]], Cell[CellGroupData[{ -Cell[3326, 92, 258, 7, 35, "Input",ExpressionUUID->"a2945748-6248-4753-ae17-ddecefca8204"], -Cell[3587, 101, 387, 6, 26, "Output",ExpressionUUID->"80f7aa0c-e9c4-41b7-bb20-6560a5936cda"] +Cell[3408, 92, 257, 7, 42, "Input",ExpressionUUID->"a2945748-6248-4753-ae17-ddecefca8204"], +Cell[3668, 101, 408, 6, 33, "Output",ExpressionUUID->"2340091f-54c5-4aeb-8177-d83db47252cb"] }, Open ]], Cell[CellGroupData[{ -Cell[4011, 112, 132, 2, 23, "Input",ExpressionUUID->"c14bc843-0583-4950-b06d-691f9c31cfa3"], -Cell[4146, 116, 378, 6, 26, "Output",ExpressionUUID->"9400df4d-21d8-453f-be12-855fdb2bc8fc"] +Cell[4113, 112, 131, 2, 29, "Input",ExpressionUUID->"c14bc843-0583-4950-b06d-691f9c31cfa3"], +Cell[4247, 116, 401, 6, 33, "Output",ExpressionUUID->"89a089aa-76f3-47d2-b5ec-310db6f05f43"] }, Open ]], Cell[CellGroupData[{ -Cell[4561, 127, 277, 6, 23, "Input",ExpressionUUID->"f5bce722-7b41-4db7-8d03-af0ac3d8c649"], -Cell[4841, 135, 387, 6, 26, "Output",ExpressionUUID->"96901039-df3a-4362-bc2f-95461d341aa8"] +Cell[4685, 127, 276, 6, 29, "Input",ExpressionUUID->"f5bce722-7b41-4db7-8d03-af0ac3d8c649"], +Cell[4964, 135, 408, 6, 33, "Output",ExpressionUUID->"0edf8c75-ba83-4afe-9222-91c34cd397f9"] }, Open ]], Cell[CellGroupData[{ -Cell[5265, 146, 258, 7, 23, "Input",ExpressionUUID->"9b2bd9a9-1884-4226-b9bb-67f5800ec261"], -Cell[5526, 155, 382, 6, 26, "Output",ExpressionUUID->"1544885f-408d-4793-85b0-c307ab13ca7e"] +Cell[5409, 146, 257, 7, 29, "Input",ExpressionUUID->"9b2bd9a9-1884-4226-b9bb-67f5800ec261"], +Cell[5669, 155, 403, 6, 33, "Output",ExpressionUUID->"fcebab3f-b008-41b5-bb80-76560c675e0e"] }, Open ]], Cell[CellGroupData[{ -Cell[5945, 166, 227, 4, 23, "Input",ExpressionUUID->"fcbe6772-3784-47fa-98be-f2c7aa522a31"], -Cell[6175, 172, 347, 5, 26, "Output",ExpressionUUID->"7ae56f43-44bf-41d3-ae4b-4ce8f9e486db"] +Cell[6109, 166, 226, 4, 29, "Input",ExpressionUUID->"fcbe6772-3784-47fa-98be-f2c7aa522a31"], +Cell[6338, 172, 372, 6, 33, "Output",ExpressionUUID->"ddc3913c-c6f2-4e87-8aa5-eddfd958d729"] }, Open ]], Cell[CellGroupData[{ -Cell[6559, 182, 226, 4, 23, "Input",ExpressionUUID->"3300daa7-8147-4c0e-ae9c-4e70de35396b"], -Cell[6788, 188, 340, 5, 26, "Output",ExpressionUUID->"5abb9d11-1c92-425e-90d2-542e1adfd6a6"] +Cell[6747, 183, 226, 4, 29, "Input",ExpressionUUID->"3300daa7-8147-4c0e-ae9c-4e70de35396b"], +Cell[6976, 189, 366, 6, 33, "Output",ExpressionUUID->"b073cfdf-a903-4cb2-9f49-c2d0987c07f7"] }, Open ]], Cell[CellGroupData[{ -Cell[7165, 198, 129, 2, 23, "Input",ExpressionUUID->"e36edc2d-e5c6-4ad2-bc4e-97880bdc2118"], -Cell[7297, 202, 372, 6, 26, "Output",ExpressionUUID->"0b8ca2c2-02a1-40f5-9991-dc27751c7af8"] +Cell[7379, 200, 129, 2, 29, "Input",ExpressionUUID->"e36edc2d-e5c6-4ad2-bc4e-97880bdc2118"], +Cell[7511, 204, 396, 6, 33, "Output",ExpressionUUID->"2e8a9563-02d3-458f-820e-2b70b4e549f4"] }, Open ]], Cell[CellGroupData[{ -Cell[7706, 213, 129, 2, 23, "Input",ExpressionUUID->"d3e646b8-c13f-447f-acde-d73b321316bc"], -Cell[7838, 217, 370, 6, 26, "Output",ExpressionUUID->"c2a88142-b553-416c-95fd-02dbcf2dd626"] +Cell[7944, 215, 129, 2, 29, "Input",ExpressionUUID->"d3e646b8-c13f-447f-acde-d73b321316bc"], +Cell[8076, 219, 392, 6, 33, "Output",ExpressionUUID->"30c8bbf5-cab0-4689-b8c4-c09c97df94b7"] }, Open ]], Cell[CellGroupData[{ -Cell[8245, 228, 557, 19, 67, "Input",ExpressionUUID->"8b806b6f-2b74-4265-b7ef-cc6a19e7b208"], -Cell[8805, 249, 390, 6, 26, "Output",ExpressionUUID->"7195b0df-4fd7-4c8f-9b13-2a637150b70a"] +Cell[8505, 230, 557, 19, 79, "Input",ExpressionUUID->"8b806b6f-2b74-4265-b7ef-cc6a19e7b208"], +Cell[9065, 251, 414, 6, 33, "Output",ExpressionUUID->"fa623ce8-dd18-4e03-afbd-4fd9617cef79"] }, Open ]], Cell[CellGroupData[{ -Cell[9232, 260, 557, 19, 67, "Input",ExpressionUUID->"1224c2ae-ce5f-489c-8822-79cb715e44ea"], -Cell[9792, 281, 387, 6, 26, "Output",ExpressionUUID->"c00e7a0a-2c20-4faf-881c-749b01df79b5"] +Cell[9516, 262, 557, 19, 79, "Input",ExpressionUUID->"1224c2ae-ce5f-489c-8822-79cb715e44ea"], +Cell[10076, 283, 409, 6, 33, "Output",ExpressionUUID->"1b7ec19a-7a81-4847-9394-b0dfa69fed19"] }, Open ]], Cell[CellGroupData[{ -Cell[10216, 292, 1588, 50, 48, "Input",ExpressionUUID->"c162e657-ef0e-48d0-beca-55f08ee56145"], -Cell[11807, 344, 386, 6, 26, "Output",ExpressionUUID->"f7ac154f-a600-4b9d-ae96-dc82d4cf521a"] +Cell[10522, 294, 1588, 50, 158, "Input",ExpressionUUID->"c162e657-ef0e-48d0-beca-55f08ee56145"], +Cell[12113, 346, 408, 6, 33, "Output",ExpressionUUID->"203d2243-11d6-4a68-831b-797252963aa0"] }, Open ]], Cell[CellGroupData[{ -Cell[12230, 355, 1422, 46, 48, "Input",ExpressionUUID->"7cbda4ee-cf16-489b-983d-acac094768ea"], -Cell[13655, 403, 402, 7, 26, "Output",ExpressionUUID->"4dd23120-9e40-4c85-8d46-c8625e23f59d"] +Cell[12558, 357, 1422, 46, 158, "Input",ExpressionUUID->"7cbda4ee-cf16-489b-983d-acac094768ea"], +Cell[13983, 405, 426, 7, 33, "Output",ExpressionUUID->"13527b2a-f979-4a41-b4d0-d4e6f0e1e10a"] }, Open ]], Cell[CellGroupData[{ -Cell[14094, 415, 1422, 46, 48, "Input",ExpressionUUID->"70a35548-a870-4493-8a84-845fe5b80060"], -Cell[15519, 463, 405, 7, 26, "Output",ExpressionUUID->"b6a5cca7-3961-4b39-aaf2-b1dbef4d0bad"] +Cell[14446, 417, 1422, 46, 158, "Input",ExpressionUUID->"70a35548-a870-4493-8a84-845fe5b80060"], +Cell[15871, 465, 427, 7, 33, "Output",ExpressionUUID->"80b9fe31-1b5a-4a9c-8920-4299f3d32386"] }, Open ]], Cell[CellGroupData[{ -Cell[15961, 475, 1588, 50, 48, "Input",ExpressionUUID->"d9e748c8-26cf-4f2b-8f9b-4a4d0de5af12"], -Cell[17552, 527, 381, 6, 26, "Output",ExpressionUUID->"f9642f02-8bc2-41be-9dde-ded39477f174"] +Cell[16335, 477, 1588, 50, 158, "Input",ExpressionUUID->"d9e748c8-26cf-4f2b-8f9b-4a4d0de5af12"], +Cell[17926, 529, 403, 6, 33, "Output",ExpressionUUID->"959cf806-d147-4cfe-be11-809cb871a3d0"] }, Open ]], Cell[CellGroupData[{ -Cell[17970, 538, 131, 2, 23, "Input",ExpressionUUID->"b2260ccb-3694-49f8-8ac2-40688beba51c"], -Cell[18104, 542, 373, 6, 26, "Output",ExpressionUUID->"56a6640f-5cf8-430b-ac0f-6cc86063094f"] +Cell[18366, 540, 131, 2, 29, "Input",ExpressionUUID->"b2260ccb-3694-49f8-8ac2-40688beba51c"], +Cell[18500, 544, 395, 6, 33, "Output",ExpressionUUID->"03f23b27-4d3a-4546-b3db-87b59375dd26"] }, Open ]], Cell[CellGroupData[{ -Cell[18514, 553, 133, 2, 23, "Input",ExpressionUUID->"15f43abf-bad8-4a0b-98b6-f6bcf06ed5e6"], -Cell[18650, 557, 373, 6, 26, "Output",ExpressionUUID->"3575f046-1315-4c55-b22d-cbbe607fc441"] +Cell[18932, 555, 133, 2, 29, "Input",ExpressionUUID->"15f43abf-bad8-4a0b-98b6-f6bcf06ed5e6"], +Cell[19068, 559, 395, 6, 33, "Output",ExpressionUUID->"4a059a77-2aeb-401c-857d-c623fdd5135c"] }, Open ]], Cell[CellGroupData[{ -Cell[19060, 568, 134, 2, 23, "Input",ExpressionUUID->"b9b0f8d4-ba1b-4c1e-be99-579da2035883"], -Cell[19197, 572, 374, 6, 26, "Output",ExpressionUUID->"fd5e9efc-ff30-46f4-99b1-9700d4665a53"] +Cell[19500, 570, 134, 2, 29, "Input",ExpressionUUID->"b9b0f8d4-ba1b-4c1e-be99-579da2035883"], +Cell[19637, 574, 396, 6, 33, "Output",ExpressionUUID->"377f13f7-20d9-4f3f-80b2-f2ec83479e2c"] }, Open ]], Cell[CellGroupData[{ -Cell[19608, 583, 219, 4, 23, "Input",ExpressionUUID->"4b046839-52f5-44f5-bda7-9bfcf58e8125"], -Cell[19830, 589, 384, 7, 26, "Output",ExpressionUUID->"836e9233-2cd7-49e9-a337-df1dbfa57b4e"] +Cell[20070, 585, 219, 4, 29, "Input",ExpressionUUID->"4b046839-52f5-44f5-bda7-9bfcf58e8125"], +Cell[20292, 591, 405, 7, 33, "Output",ExpressionUUID->"4d23825c-8890-4416-9b97-9ba4f6fd3d40"] }, Open ]], Cell[CellGroupData[{ -Cell[20251, 601, 134, 2, 23, "Input",ExpressionUUID->"ba1fb4bf-cc83-4d32-82fe-79ef7850fd83"], -Cell[20388, 605, 373, 6, 26, "Output",ExpressionUUID->"4eee233b-ec5e-485f-a411-e5544dfd0893"] +Cell[20734, 603, 134, 2, 29, "Input",ExpressionUUID->"ba1fb4bf-cc83-4d32-82fe-79ef7850fd83"], +Cell[20871, 607, 395, 6, 33, "Output",ExpressionUUID->"11f1d37d-e65a-4871-8483-b963f75dc999"] }, Open ]], Cell[CellGroupData[{ -Cell[20798, 616, 326, 5, 23, "Input",ExpressionUUID->"9fabfce7-52f3-434c-aa63-a4d3e3fb362e"], -Cell[21127, 623, 338, 5, 26, "Output",ExpressionUUID->"2ec47ad5-fdcb-4bbd-8f73-cf46bf8d0394"] +Cell[21303, 618, 326, 5, 29, "Input",ExpressionUUID->"9fabfce7-52f3-434c-aa63-a4d3e3fb362e"], +Cell[21632, 625, 364, 6, 33, "Output",ExpressionUUID->"e5c89208-afae-486e-8749-bb814a248cb7"] }, Open ]], Cell[CellGroupData[{ -Cell[21502, 633, 295, 5, 23, "Input",ExpressionUUID->"61807d35-25ac-461b-b91a-947e991dfc57"], -Cell[21800, 640, 371, 6, 26, "Output",ExpressionUUID->"ce85cc11-e318-4727-a1fa-22e547fe56aa"] +Cell[22033, 636, 295, 5, 29, "Input",ExpressionUUID->"61807d35-25ac-461b-b91a-947e991dfc57"], +Cell[22331, 643, 395, 6, 33, "Output",ExpressionUUID->"5cacb833-9c1a-4951-ab1a-0cdd21ffc189"] }, Open ]], Cell[CellGroupData[{ -Cell[22208, 651, 219, 4, 23, "Input",ExpressionUUID->"15af80e0-b761-490c-b743-13b939c2b301"], -Cell[22430, 657, 369, 6, 26, "Output",ExpressionUUID->"119db5f8-7da4-4568-9228-b4d760d98887"] +Cell[22763, 654, 219, 4, 29, "Input",ExpressionUUID->"15af80e0-b761-490c-b743-13b939c2b301"], +Cell[22985, 660, 391, 6, 33, "Output",ExpressionUUID->"a920d1a1-91e6-4600-97f1-83f8d9952fc3"] }, Open ]], Cell[CellGroupData[{ -Cell[22836, 668, 350, 10, 35, "Input",ExpressionUUID->"b4768c84-c996-418b-af48-594084c904f3"], -Cell[23189, 680, 391, 6, 26, "Output",ExpressionUUID->"2ed59f48-c2b2-4d19-bdbe-9ec67c31fc26"] +Cell[23413, 671, 350, 10, 42, "Input",ExpressionUUID->"b4768c84-c996-418b-af48-594084c904f3"], +Cell[23766, 683, 413, 6, 33, "Output",ExpressionUUID->"abbee1f1-032f-44bc-adc2-c2226bfffe02"] }, Open ]], Cell[CellGroupData[{ -Cell[23617, 691, 350, 10, 35, "Input",ExpressionUUID->"8776d600-3ed0-4b58-83de-1d9552233afa"], -Cell[23970, 703, 401, 7, 26, "Output",ExpressionUUID->"3c45bef3-750e-4030-b887-c303a20895df"] +Cell[24216, 694, 350, 10, 42, "Input",ExpressionUUID->"8776d600-3ed0-4b58-83de-1d9552233afa"], +Cell[24569, 706, 425, 7, 33, "Output",ExpressionUUID->"14e2ab4e-4f76-4ac1-b4f8-5dc8434cf384"] }, Open ]], Cell[CellGroupData[{ -Cell[24408, 715, 994, 26, 38, "Input",ExpressionUUID->"f1fb3388-4070-4f8c-afeb-ac5dade52d8b"], -Cell[25405, 743, 385, 6, 26, "Output",ExpressionUUID->"62c48184-1f48-45d5-8749-cc7b775ef8a0"] +Cell[25031, 718, 994, 26, 81, "Input",ExpressionUUID->"f1fb3388-4070-4f8c-afeb-ac5dade52d8b"], +Cell[26028, 746, 409, 6, 33, "Output",ExpressionUUID->"6385efc2-45e4-4e71-8652-234e583780a0"] }, Open ]], Cell[CellGroupData[{ -Cell[25827, 754, 199, 3, 23, "Input",ExpressionUUID->"908ae3dc-d3ec-4128-9f2e-91d699c79e93"], -Cell[26029, 759, 370, 6, 26, "Output",ExpressionUUID->"398fcb47-c4de-4a4d-b9b0-3de2d683c0e2"] +Cell[26474, 757, 199, 3, 29, "Input",ExpressionUUID->"908ae3dc-d3ec-4128-9f2e-91d699c79e93"], +Cell[26676, 762, 392, 6, 33, "Output",ExpressionUUID->"d6b11eed-e320-4394-94a0-aeae934a179c"] }, Open ]], Cell[CellGroupData[{ -Cell[26436, 770, 329, 5, 23, "Input",ExpressionUUID->"f7f4dd40-4e58-4807-a978-c3d03da81a45"], -Cell[26768, 777, 348, 5, 26, "Output",ExpressionUUID->"1e303c9d-60b3-4334-a19d-8cbd50435467"] +Cell[27105, 773, 329, 5, 29, "Input",ExpressionUUID->"f7f4dd40-4e58-4807-a978-c3d03da81a45"], +Cell[27437, 780, 374, 6, 33, "Output",ExpressionUUID->"da7d634f-8950-4d36-8504-3b0ab0237677"] }, Open ]], -Cell[27131, 785, 173, 2, 44, "Input",ExpressionUUID->"8e6d7ba6-0413-43af-9a22-5a34da1efa50"], +Cell[27826, 789, 173, 2, 29, "Input",ExpressionUUID->"8e6d7ba6-0413-43af-9a22-5a34da1efa50"], Cell[CellGroupData[{ -Cell[27329, 791, 329, 5, 23, "Input",ExpressionUUID->"19295610-ad81-4231-aa66-f8abe3286f0b"], -Cell[27661, 798, 348, 5, 26, "Output",ExpressionUUID->"32b6da7a-74bd-4d29-89be-b7900a023ef5"] +Cell[28024, 795, 329, 5, 29, "Input",ExpressionUUID->"19295610-ad81-4231-aa66-f8abe3286f0b"], +Cell[28356, 802, 374, 6, 33, "Output",ExpressionUUID->"280e24a0-4921-4c09-ade5-72f170bc5208"] }, Open ]], -Cell[28024, 806, 173, 2, 44, "Input",ExpressionUUID->"32a0a2f2-0e41-4835-8fba-e0976c26533c"], +Cell[28745, 811, 173, 2, 29, "Input",ExpressionUUID->"32a0a2f2-0e41-4835-8fba-e0976c26533c"], Cell[CellGroupData[{ -Cell[28222, 812, 330, 5, 23, "Input",ExpressionUUID->"93ee30e3-15f6-47b1-8763-9a8046115de8"], -Cell[28555, 819, 343, 5, 26, "Output",ExpressionUUID->"9866a54c-0a5f-4e04-8049-f01ae8f90e70"] +Cell[28943, 817, 330, 5, 29, "Input",ExpressionUUID->"93ee30e3-15f6-47b1-8763-9a8046115de8"], +Cell[29276, 824, 369, 6, 33, "Output",ExpressionUUID->"8e1fdad5-4bd0-4dd1-9b26-3095a8efbbda"] }, Open ]], -Cell[28913, 827, 173, 2, 44, "Input",ExpressionUUID->"2162f6c0-569a-47d8-8ab6-d2949ab58d6a"], +Cell[29660, 833, 173, 2, 29, "Input",ExpressionUUID->"2162f6c0-569a-47d8-8ab6-d2949ab58d6a"], Cell[CellGroupData[{ -Cell[29111, 833, 352, 5, 23, "Input",ExpressionUUID->"d6a21a25-baf5-46fb-bd52-3457b819f6bf"], -Cell[29466, 840, 347, 5, 26, "Output",ExpressionUUID->"3a916d04-9275-4445-b3a1-662c71fe6092"] +Cell[29858, 839, 352, 5, 29, "Input",ExpressionUUID->"d6a21a25-baf5-46fb-bd52-3457b819f6bf"], +Cell[30213, 846, 373, 6, 33, "Output",ExpressionUUID->"a1cd7920-3008-4a0e-b309-b13409112901"] }, Open ]], -Cell[29828, 848, 171, 2, 44, "Input",ExpressionUUID->"c22d8007-0161-4853-800e-7d221c2c2a97"], +Cell[30601, 855, 171, 2, 29, "Input",ExpressionUUID->"c22d8007-0161-4853-800e-7d221c2c2a97"], Cell[CellGroupData[{ -Cell[30024, 854, 300, 5, 23, "Input",ExpressionUUID->"7067a133-8a08-408d-a0fd-2285962d9ddb"], -Cell[30327, 861, 343, 5, 26, "Output",ExpressionUUID->"0a2640ac-f967-4e27-a135-8956668994ce"] +Cell[30797, 861, 300, 5, 29, "Input",ExpressionUUID->"7067a133-8a08-408d-a0fd-2285962d9ddb"], +Cell[31100, 868, 371, 6, 33, "Output",ExpressionUUID->"552d4195-ec9d-402b-ab67-3cc89c4567a8"] }, Open ]], -Cell[30685, 869, 171, 2, 44, "Input",ExpressionUUID->"18f7a9e7-c435-424e-bcab-15974da0a0fa"], +Cell[31486, 877, 171, 2, 29, "Input",ExpressionUUID->"18f7a9e7-c435-424e-bcab-15974da0a0fa"], Cell[CellGroupData[{ -Cell[30881, 875, 304, 5, 23, "Input",ExpressionUUID->"d876ec95-206a-47d4-b9cc-e6bfb36fa873"], -Cell[31188, 882, 348, 5, 26, "Output",ExpressionUUID->"1f6523e5-3b57-48aa-8f46-739e54e3a723"] +Cell[31682, 883, 304, 5, 29, "Input",ExpressionUUID->"d876ec95-206a-47d4-b9cc-e6bfb36fa873"], +Cell[31989, 890, 374, 6, 33, "Output",ExpressionUUID->"d92b8839-07d3-4eda-8891-f14b43da5f4d"] }, Open ]], -Cell[31551, 890, 173, 2, 44, "Input",ExpressionUUID->"77d49b93-d1f4-4f1a-86a0-63d44f33f0b4"], +Cell[32378, 899, 173, 2, 29, "Input",ExpressionUUID->"77d49b93-d1f4-4f1a-86a0-63d44f33f0b4"], Cell[CellGroupData[{ -Cell[31749, 896, 307, 5, 23, "Input",ExpressionUUID->"9a43eab4-5a23-41ae-b946-b7cc2b87040b"], -Cell[32059, 903, 341, 5, 26, "Output",ExpressionUUID->"94d5998b-14d2-4cbc-8d47-172872b81bcf"] +Cell[32576, 905, 307, 5, 29, "Input",ExpressionUUID->"9a43eab4-5a23-41ae-b946-b7cc2b87040b"], +Cell[32886, 912, 369, 6, 33, "Output",ExpressionUUID->"d3986bbf-2a0b-484b-8078-080d9ce82972"] }, Open ]], -Cell[32415, 911, 172, 2, 44, "Input",ExpressionUUID->"cf4376cf-9b14-4408-954a-4eec001b376c"], +Cell[33270, 921, 172, 2, 29, "Input",ExpressionUUID->"cf4376cf-9b14-4408-954a-4eec001b376c"], Cell[CellGroupData[{ -Cell[32612, 917, 274, 4, 23, "Input",ExpressionUUID->"347db530-8a18-4ad1-81da-abbcd8cda90b"], -Cell[32889, 923, 350, 5, 26, "Output",ExpressionUUID->"b9d6aa77-22e1-47b1-b17b-a1f2e89bf7b9"] +Cell[33467, 927, 274, 4, 29, "Input",ExpressionUUID->"347db530-8a18-4ad1-81da-abbcd8cda90b"], +Cell[33744, 933, 376, 6, 33, "Output",ExpressionUUID->"76924334-7c45-45a4-9622-f109713c1d3a"] }, Open ]], -Cell[33254, 931, 175, 2, 44, "Input",ExpressionUUID->"41dd2d37-97c7-4898-915a-4babc7938952"], +Cell[34135, 942, 175, 2, 29, "Input",ExpressionUUID->"41dd2d37-97c7-4898-915a-4babc7938952"], Cell[CellGroupData[{ -Cell[33454, 937, 19809, 485, 680, "Input",ExpressionUUID->"4c7d71bc-6e10-498c-a94b-3de087525273"], -Cell[53266, 1424, 401, 7, 26, "Output",ExpressionUUID->"800dc3f8-06eb-46d7-955a-d34321a39f37"] +Cell[34335, 948, 19809, 485, 1100, "Input",ExpressionUUID->"4c7d71bc-6e10-498c-a94b-3de087525273"], +Cell[54147, 1435, 423, 7, 33, "Output",ExpressionUUID->"fba3e303-c173-4485-8e7f-818433f4859d"] }, Open ]], Cell[CellGroupData[{ -Cell[53704, 1436, 19748, 489, 690, "Input",ExpressionUUID->"108df0b7-564a-41a9-9ca6-152638c913c3"], -Cell[73455, 1927, 386, 6, 26, "Output",ExpressionUUID->"bce4d0d7-3fe1-4ce7-b4e0-b252fbd631fb"] +Cell[54607, 1447, 19748, 489, 1100, "Input",ExpressionUUID->"108df0b7-564a-41a9-9ca6-152638c913c3"], +Cell[74358, 1938, 410, 6, 33, "Output",ExpressionUUID->"9f19a764-b480-4af8-acef-4841b39b0926"] }, Open ]], Cell[CellGroupData[{ -Cell[73878, 1938, 19748, 483, 689, "Input",ExpressionUUID->"4c9ead0c-9b76-4f34-8a3c-5b9e822883d4"], -Cell[93629, 2423, 399, 7, 26, "Output",ExpressionUUID->"508aaf49-7310-4c9e-a071-5e79e24d9088"] +Cell[74805, 1949, 19748, 483, 1099, "Input",ExpressionUUID->"4c9ead0c-9b76-4f34-8a3c-5b9e822883d4"], +Cell[94556, 2434, 421, 7, 33, "Output",ExpressionUUID->"4fcb97ec-3179-48b7-97d9-0c0bd2f54e71"] }, Open ]], Cell[CellGroupData[{ -Cell[94065, 2435, 22534, 553, 761, "Input",ExpressionUUID->"a82a656f-2cd4-4e27-9402-5230d3595daa"], -Cell[116602, 2990, 403, 7, 26, "Output",ExpressionUUID->"895bfa96-e0e5-425a-8488-9475c78a85bb"] +Cell[95014, 2446, 22534, 553, 1235, "Input",ExpressionUUID->"a82a656f-2cd4-4e27-9402-5230d3595daa"], +Cell[117551, 3001, 425, 7, 33, "Output",ExpressionUUID->"a41d85c3-3fe9-4f30-91e9-c31b9a24dc6c"] }, Open ]], Cell[CellGroupData[{ -Cell[117042, 3002, 22535, 553, 761, "Input",ExpressionUUID->"09b7ccdc-5dd9-4d99-a3f4-2900ca2dcff3"], -Cell[139580, 3557, 403, 7, 26, "Output",ExpressionUUID->"1bed92a2-442a-4b69-8fae-201cfb56b1de"] +Cell[118013, 3013, 22535, 553, 1235, "Input",ExpressionUUID->"09b7ccdc-5dd9-4d99-a3f4-2900ca2dcff3"], +Cell[140551, 3568, 424, 7, 33, "Output",ExpressionUUID->"418195ce-87c1-45e4-be09-5e9271421299"] }, Open ]], Cell[CellGroupData[{ -Cell[140020, 3569, 25491, 626, 833, "Input",ExpressionUUID->"0b2e37a4-acc9-46a6-9d73-1c538dacc043"], -Cell[165514, 4197, 403, 7, 26, "Output",ExpressionUUID->"a2cdae11-2b54-425b-9e85-87cb4da63dfb"] +Cell[141012, 3580, 25491, 626, 1350, "Input",ExpressionUUID->"0b2e37a4-acc9-46a6-9d73-1c538dacc043"], +Cell[166506, 4208, 427, 7, 33, "Output",ExpressionUUID->"fd7607d3-9e1a-4a8f-9d2b-0739e609cb85"] }, Open ]], Cell[CellGroupData[{ -Cell[165954, 4209, 130, 2, 23, "Input",ExpressionUUID->"ee8354dc-8984-466c-9640-9a634c4a928e"], -Cell[166087, 4213, 364, 6, 26, "Output",ExpressionUUID->"7445555f-b735-4e19-a56b-a58b1311f4b5"] +Cell[166970, 4220, 130, 2, 29, "Input",ExpressionUUID->"ee8354dc-8984-466c-9640-9a634c4a928e"], +Cell[167103, 4224, 386, 6, 33, "Output",ExpressionUUID->"aa0d8d67-28d8-40f7-9206-702031693f6f"] }, Open ]], Cell[CellGroupData[{ -Cell[166488, 4224, 130, 2, 23, "Input",ExpressionUUID->"fbb3dcc4-26fa-405a-8c82-5c30e23622cc"], -Cell[166621, 4228, 369, 6, 26, "Output",ExpressionUUID->"eb619002-cc9a-4760-b17b-9deb9e3e8d8b"] +Cell[167526, 4235, 130, 2, 29, "Input",ExpressionUUID->"fbb3dcc4-26fa-405a-8c82-5c30e23622cc"], +Cell[167659, 4239, 393, 6, 33, "Output",ExpressionUUID->"e54b3927-5d9e-4701-83e9-cd7337d941a9"] }, Open ]], Cell[CellGroupData[{ -Cell[167027, 4239, 1144, 39, 48, "Input",ExpressionUUID->"9fdc753b-53da-4b56-b7f0-0395b984a145"], -Cell[168174, 4280, 383, 6, 26, "Output",ExpressionUUID->"391e759c-6e5f-4c46-a0e9-780a52d116e4"] +Cell[168089, 4250, 1144, 39, 55, "Input",ExpressionUUID->"9fdc753b-53da-4b56-b7f0-0395b984a145"], +Cell[169236, 4291, 405, 6, 33, "Output",ExpressionUUID->"f72b3600-133a-4a13-a335-35ea5ee97891"] }, Open ]], Cell[CellGroupData[{ -Cell[168594, 4291, 1041, 35, 48, "Input",ExpressionUUID->"860b2353-fa6a-4d6a-a71a-9b8849a95763"], -Cell[169638, 4328, 397, 7, 26, "Output",ExpressionUUID->"0a57c1f8-be09-43ed-b92d-7e56fb4bde5d"] +Cell[169678, 4302, 1041, 35, 55, "Input",ExpressionUUID->"860b2353-fa6a-4d6a-a71a-9b8849a95763"], +Cell[170722, 4339, 418, 7, 33, "Output",ExpressionUUID->"acc5535a-fa25-4828-b041-a887bbaa4181"] }, Open ]], Cell[CellGroupData[{ -Cell[170072, 4340, 1144, 39, 48, "Input",ExpressionUUID->"761da832-b2e6-4758-85c3-936b749cb6a1"], -Cell[171219, 4381, 390, 6, 26, "Output",ExpressionUUID->"505d3122-1122-478d-959f-5c8ee2c8a240"] +Cell[171177, 4351, 1144, 39, 55, "Input",ExpressionUUID->"761da832-b2e6-4758-85c3-936b749cb6a1"], +Cell[172324, 4392, 414, 6, 33, "Output",ExpressionUUID->"75cdd877-7819-4e79-8c49-a8016761ffbf"] }, Open ]], Cell[CellGroupData[{ -Cell[171646, 4392, 108, 1, 23, "Input",ExpressionUUID->"69b30e47-9252-4807-a709-fe211b498050"], -Cell[171757, 4395, 390, 6, 26, "Output",ExpressionUUID->"50f2817f-c132-4251-8062-b1d2212a88df"] +Cell[172775, 4403, 108, 1, 29, "Input",ExpressionUUID->"69b30e47-9252-4807-a709-fe211b498050"], +Cell[172886, 4406, 412, 6, 33, "Output",ExpressionUUID->"c340d797-c9a1-4ec0-97ef-e4d0fbe46570"] }, Open ]], Cell[CellGroupData[{ -Cell[172184, 4406, 108, 1, 23, "Input",ExpressionUUID->"30a1015a-87a3-4d41-a8c2-e9121849176e"], -Cell[172295, 4409, 400, 7, 26, "Output",ExpressionUUID->"4a154ccc-2208-4a1d-b7ba-5e936c5fd4e2"] +Cell[173335, 4417, 108, 1, 29, "Input",ExpressionUUID->"30a1015a-87a3-4d41-a8c2-e9121849176e"], +Cell[173446, 4420, 422, 7, 33, "Output",ExpressionUUID->"18f91631-f43a-4123-ade9-27f043d62d2a"] }, Open ]], Cell[CellGroupData[{ -Cell[172732, 4421, 108, 1, 23, "Input",ExpressionUUID->"f0e44845-9986-4f32-a790-8440b2c439e9"], -Cell[172843, 4424, 402, 7, 26, "Output",ExpressionUUID->"6bd86e57-7512-4058-b46c-b40e2738c915"] +Cell[173905, 4432, 108, 1, 29, "Input",ExpressionUUID->"f0e44845-9986-4f32-a790-8440b2c439e9"], +Cell[174016, 4435, 426, 7, 33, "Output",ExpressionUUID->"c74eabc5-56e1-47be-8045-be10e3a15aa4"] }, Open ]], Cell[CellGroupData[{ -Cell[173282, 4436, 108, 1, 23, "Input",ExpressionUUID->"5a605471-8c22-4380-b127-1f1dd47ed52a"], -Cell[173393, 4439, 386, 6, 26, "Output",ExpressionUUID->"2ee0c54a-44c4-4f00-b43b-30f3dfcda055"] +Cell[174479, 4447, 108, 1, 29, "Input",ExpressionUUID->"5a605471-8c22-4380-b127-1f1dd47ed52a"], +Cell[174590, 4450, 408, 6, 33, "Output",ExpressionUUID->"8f587f71-ab5e-4aa4-9250-46d10580b950"] }, Open ]], Cell[CellGroupData[{ -Cell[173816, 4450, 107, 1, 23, "Input",ExpressionUUID->"f09aa527-60a2-4ef7-b8eb-c3c472d40523"], -Cell[173926, 4453, 388, 6, 26, "Output",ExpressionUUID->"34dfdc3e-486b-47d4-838a-8e257d323658"] +Cell[175035, 4461, 107, 1, 29, "Input",ExpressionUUID->"f09aa527-60a2-4ef7-b8eb-c3c472d40523"], +Cell[175145, 4464, 410, 6, 33, "Output",ExpressionUUID->"0307c108-b960-4539-a0da-92e8713fad1b"] }, Open ]], Cell[CellGroupData[{ -Cell[174351, 4464, 107, 1, 23, "Input",ExpressionUUID->"9437c249-5d0f-4768-91cc-73b83b6fd2cb"], -Cell[174461, 4467, 384, 6, 26, "Output",ExpressionUUID->"fe3c488b-1b64-46c1-92d0-8b7e09bc757d"] +Cell[175592, 4475, 107, 1, 29, "Input",ExpressionUUID->"9437c249-5d0f-4768-91cc-73b83b6fd2cb"], +Cell[175702, 4478, 406, 6, 33, "Output",ExpressionUUID->"941fd5b1-c010-4a98-a1a5-97b889848a50"] }, Open ]], Cell[CellGroupData[{ -Cell[174882, 4478, 497, 16, 46, "Input",ExpressionUUID->"e6b8b8d0-ae42-4d47-bdc8-16674ea04604"], -Cell[175382, 4496, 402, 7, 26, "Output",ExpressionUUID->"9ad5cbee-99f5-4f33-a8f5-ffb4cdb07d9d"] +Cell[176145, 4489, 497, 16, 55, "Input",ExpressionUUID->"e6b8b8d0-ae42-4d47-bdc8-16674ea04604"], +Cell[176645, 4507, 424, 7, 33, "Output",ExpressionUUID->"067164e0-e3be-46db-af34-6de55957b741"] }, Open ]], Cell[CellGroupData[{ -Cell[175821, 4508, 497, 16, 46, "Input",ExpressionUUID->"31114cdb-8af1-4e3b-9bb4-51ee021a3bf0"], -Cell[176321, 4526, 397, 7, 26, "Output",ExpressionUUID->"b365816f-d6b8-4d6e-a33b-2b0459ee443c"] +Cell[177106, 4519, 497, 16, 55, "Input",ExpressionUUID->"31114cdb-8af1-4e3b-9bb4-51ee021a3bf0"], +Cell[177606, 4537, 421, 7, 33, "Output",ExpressionUUID->"75732242-1c05-4e27-a545-bbd2d79559d8"] }, Open ]], Cell[CellGroupData[{ -Cell[176755, 4538, 1788, 60, 48, "Input",ExpressionUUID->"25ac905b-3951-422a-93cf-d7e9937f463e"], -Cell[178546, 4600, 388, 6, 26, "Output",ExpressionUUID->"a27b13be-00a9-4e9f-8347-d7b7a372d18e"] +Cell[178064, 4549, 1788, 60, 55, "Input",ExpressionUUID->"25ac905b-3951-422a-93cf-d7e9937f463e"], +Cell[179855, 4611, 412, 6, 33, "Output",ExpressionUUID->"53168218-87d1-40ad-87fa-a29f290a9fb7"] }, Open ]], Cell[CellGroupData[{ -Cell[178971, 4611, 1101, 36, 48, "Input",ExpressionUUID->"7b6bb20d-afa7-442e-a5a2-898994a8b0c6"], -Cell[180075, 4649, 400, 7, 26, "Output",ExpressionUUID->"ed573209-1a78-40a2-878c-15e01e9973ad"] +Cell[180304, 4622, 1101, 36, 55, "Input",ExpressionUUID->"7b6bb20d-afa7-442e-a5a2-898994a8b0c6"], +Cell[181408, 4660, 424, 7, 33, "Output",ExpressionUUID->"053d4c2d-0355-4e3e-b069-136013c79d1f"] }, Open ]], Cell[CellGroupData[{ -Cell[180512, 4661, 1818, 61, 95, "Input",ExpressionUUID->"80ac9d67-9237-443f-aa3f-2a8a5d0599da"], -Cell[182333, 4724, 386, 6, 26, "Output",ExpressionUUID->"086f8a1d-d230-4a5e-b310-cecd76a178c8"] +Cell[181869, 4672, 1818, 61, 107, "Input",ExpressionUUID->"80ac9d67-9237-443f-aa3f-2a8a5d0599da"], +Cell[183690, 4735, 407, 6, 33, "Output",ExpressionUUID->"2aad4ebb-c253-486a-95c7-cb02ee0225bc"] }, Open ]], Cell[CellGroupData[{ -Cell[182756, 4735, 1631, 53, 67, "Input",ExpressionUUID->"5f11066c-d152-4873-bc9f-9b0f487e480f"], -Cell[184390, 4790, 389, 6, 26, "Output",ExpressionUUID->"40c906b1-bbb2-4223-8540-c554fc9d915d"] +Cell[184134, 4746, 1631, 53, 79, "Input",ExpressionUUID->"5f11066c-d152-4873-bc9f-9b0f487e480f"], +Cell[185768, 4801, 411, 6, 33, "Output",ExpressionUUID->"e5406def-b20e-42e4-b5ca-ee01fa340175"] }, Open ]], Cell[CellGroupData[{ -Cell[184816, 4801, 1631, 53, 67, "Input",ExpressionUUID->"22e78aba-149f-4af3-8ab2-92ac3a9c7b5f"], -Cell[186450, 4856, 383, 6, 26, "Output",ExpressionUUID->"a7cd83cc-a7a5-4b9a-ae59-7fb61447d511"] +Cell[186216, 4812, 1631, 53, 79, "Input",ExpressionUUID->"22e78aba-149f-4af3-8ab2-92ac3a9c7b5f"], +Cell[187850, 4867, 405, 6, 33, "Output",ExpressionUUID->"3a6aa3f9-f7c0-44cd-b723-0cc5f66f5949"] }, Open ]], Cell[CellGroupData[{ -Cell[186870, 4867, 230, 4, 23, "Input",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], -Cell[187103, 4873, 178, 2, 26, "Output",ExpressionUUID->"ae559e9e-25a3-477c-b42d-3dfa5da93e04"] +Cell[188292, 4878, 230, 4, 29, "Input",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], +Cell[188525, 4884, 203, 3, 33, "Output",ExpressionUUID->"eac56e15-d9fd-4cfd-8b31-63e7fd936a3b"] }, Open ]], -Cell[187296, 4878, 173, 2, 23, "Input",ExpressionUUID->"a5161e25-7247-124f-8601-7bcc4af89c62"], +Cell[188743, 4890, 173, 2, 29, "Input",ExpressionUUID->"a5161e25-7247-124f-8601-7bcc4af89c62"], Cell[CellGroupData[{ -Cell[187494, 4884, 230, 4, 23, "Input",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], -Cell[187727, 4890, 178, 2, 26, "Output",ExpressionUUID->"956f9688-562a-432a-960e-7a3222cf3456"] +Cell[188941, 4896, 230, 4, 29, "Input",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], +Cell[189174, 4902, 203, 3, 33, "Output",ExpressionUUID->"bbe609b6-6a10-4b65-8a32-dc3cd2b0cd3b"] }, Open ]], -Cell[187920, 4895, 173, 2, 23, "Input",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], +Cell[189392, 4908, 173, 2, 29, "Input",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], Cell[CellGroupData[{ -Cell[188118, 4901, 1297, 42, 40, "Input",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], -Cell[189418, 4945, 218, 3, 26, "Output",ExpressionUUID->"3a14f16d-6ec5-4f30-ad6d-d48c34fad803"] +Cell[189590, 4914, 1297, 42, 47, "Input",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], +Cell[190890, 4958, 242, 3, 33, "Output",ExpressionUUID->"165b0f58-c2cb-45a8-8f7f-9b649ca640bc"] }, Open ]], Cell[CellGroupData[{ -Cell[189673, 4953, 929, 30, 48, "Input",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], -Cell[190605, 4985, 221, 3, 26, "Output",ExpressionUUID->"3109b7b7-8982-41be-915a-1576b2d7da5c"] +Cell[191169, 4966, 929, 30, 55, "Input",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], +Cell[192101, 4998, 243, 3, 33, "Output",ExpressionUUID->"b61ca563-e492-4f5f-b93d-c45de6f01e9d"] }, Open ]], Cell[CellGroupData[{ -Cell[190863, 4993, 910, 30, 48, "Input",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], -Cell[191776, 5025, 221, 4, 38, "Output",ExpressionUUID->"8e459cdd-c221-453e-926c-f8b4cf236fc3"] +Cell[192381, 5006, 906, 29, 55, "Input",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], +Cell[193290, 5037, 239, 3, 33, "Output",ExpressionUUID->"578b5d99-9fe2-4f1e-9afc-a14602e803ea"] }, Open ]], Cell[CellGroupData[{ -Cell[192034, 5034, 558, 19, 43, "Input",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], -Cell[192595, 5055, 221, 4, 38, "Output",ExpressionUUID->"90121fa1-9b22-48aa-9130-d6c4f0fcb9b0"] +Cell[193566, 5045, 554, 18, 51, "Input",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], +Cell[194123, 5065, 241, 3, 33, "Output",ExpressionUUID->"8db6765a-3d00-4da1-9f54-6ce427f88e8e"] }, Open ]], Cell[CellGroupData[{ -Cell[192853, 5064, 623, 21, 43, "Input",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], -Cell[193479, 5087, 222, 4, 38, "Output",ExpressionUUID->"6915c995-1276-4c81-b200-7aeb228fb6e1"] +Cell[194401, 5073, 619, 20, 51, "Input",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], +Cell[195023, 5095, 240, 3, 33, "Output",ExpressionUUID->"54b84d95-a36f-42e5-83cf-d2316a06b411"] }, Open ]], Cell[CellGroupData[{ -Cell[193738, 5096, 170, 5, 47, "Input",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], -Cell[193911, 5103, 221, 4, 38, "Output",ExpressionUUID->"d2fffa84-9057-404b-940d-f22e5285076c"] +Cell[195300, 5103, 166, 4, 55, "Input",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], +Cell[195469, 5109, 237, 3, 33, "Output",ExpressionUUID->"cbb33b2d-3e5c-4c4d-a82f-862c9d4f0933"] }, Open ]], Cell[CellGroupData[{ -Cell[194169, 5112, 170, 5, 46, "Input",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], -Cell[194342, 5119, 217, 4, 38, "Output",ExpressionUUID->"e58e1cb1-3880-4621-9bb4-d5d3e9357bad"] +Cell[195743, 5117, 166, 4, 54, "Input",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], +Cell[195912, 5123, 235, 3, 33, "Output",ExpressionUUID->"e338a5b7-cf57-495b-8557-1a42ba03d5e0"] }, Open ]], Cell[CellGroupData[{ -Cell[194596, 5128, 181, 5, 36, "Input",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], -Cell[194780, 5135, 219, 4, 38, "Output",ExpressionUUID->"59eaddb4-0983-40d2-84bc-56db9a8da55c"] +Cell[196184, 5131, 177, 4, 43, "Input",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], +Cell[196364, 5137, 237, 3, 33, "Output",ExpressionUUID->"c73f2949-9992-42de-8433-8f98e9cf8bd7"] }, Open ]], Cell[CellGroupData[{ -Cell[195036, 5144, 181, 5, 36, "Input",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], -Cell[195220, 5151, 219, 4, 38, "Output",ExpressionUUID->"ff1ee0e3-bb3e-4a93-a2a2-b5befaca724c"] +Cell[196638, 5145, 177, 4, 43, "Input",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], +Cell[196818, 5151, 237, 3, 33, "Output",ExpressionUUID->"e6fea06f-43fc-4c75-a33a-768b8af23fac"] }, Open ]], Cell[CellGroupData[{ -Cell[195476, 5160, 6055, 185, 161, "Input",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], -Cell[201534, 5347, 224, 4, 38, "Output",ExpressionUUID->"49c869fd-1d1f-4e84-96a8-d84f32ad6f76"] +Cell[197092, 5159, 6051, 184, 183, "Input",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], +Cell[203146, 5345, 244, 3, 33, "Output",ExpressionUUID->"43f095aa-f5df-4ed6-98e1-36d237bcc70c"] }, Open ]], Cell[CellGroupData[{ -Cell[201795, 5356, 368, 9, 33, "Input",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], -Cell[202166, 5367, 219, 4, 38, "Output",ExpressionUUID->"57dfa062-c928-4057-9b04-f8ef5b824e64"] +Cell[203427, 5353, 364, 8, 41, "Input",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], +Cell[203794, 5363, 237, 3, 33, "Output",ExpressionUUID->"49870db9-062b-430c-b2dc-d29932a57ae1"] }, Open ]], Cell[CellGroupData[{ -Cell[202422, 5376, 6122, 187, 161, "Input",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], -Cell[208547, 5565, 220, 4, 38, "Output",ExpressionUUID->"30f08eaf-ce35-4c7c-bf11-c5d44673648d"] +Cell[204068, 5371, 6118, 186, 183, "Input",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], +Cell[210189, 5559, 238, 3, 33, "Output",ExpressionUUID->"f6cce4e3-16fa-40fd-b167-1f76a4a0a504"] }, Open ]], Cell[CellGroupData[{ -Cell[208804, 5574, 368, 9, 33, "Input",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], -Cell[209175, 5585, 216, 4, 38, "Output",ExpressionUUID->"8150a992-a82b-4547-952b-a9a413f9ac87"] +Cell[210464, 5567, 364, 8, 41, "Input",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], +Cell[210831, 5577, 234, 3, 33, "Output",ExpressionUUID->"cb02f81c-b807-4f7b-984d-13dd2fd9ffe0"] }, Open ]], Cell[CellGroupData[{ -Cell[209428, 5594, 2663, 88, 95, "Input",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], -Cell[212094, 5684, 220, 4, 38, "Output",ExpressionUUID->"316b69bc-2f4b-4ba2-aae7-d9c6a06d84f0"] +Cell[211102, 5585, 2659, 87, 107, "Input",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], +Cell[213764, 5674, 240, 3, 33, "Output",ExpressionUUID->"bd08373f-7419-4c20-8de5-faec4f5c16b9"] }, Open ]], Cell[CellGroupData[{ -Cell[212351, 5693, 2603, 85, 95, "Input",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], -Cell[214957, 5780, 222, 4, 38, "Output",ExpressionUUID->"8340be16-eca1-4edc-9ae2-f00769544489"] +Cell[214041, 5682, 2599, 84, 107, "Input",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], +Cell[216643, 5768, 240, 3, 33, "Output",ExpressionUUID->"dec0ee54-50bb-4ff8-a26d-9cb260e8603d"] }, Open ]], Cell[CellGroupData[{ -Cell[215216, 5789, 3712, 118, 142, "Input",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], -Cell[218931, 5909, 221, 4, 38, "Output",ExpressionUUID->"14c33eec-4071-4009-a8f6-79e712a61895"] +Cell[216920, 5776, 3708, 117, 160, "Input",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], +Cell[220631, 5895, 239, 3, 33, "Output",ExpressionUUID->"9d2b31a1-6934-417e-a6c4-8e0ad6efecf5"] }, Open ]], -Cell[219167, 5916, 164, 4, 23, "Input",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], +Cell[220885, 5901, 160, 3, 29, "Input",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], Cell[CellGroupData[{ -Cell[219356, 5924, 2077, 59, 83, "Input",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], -Cell[221436, 5985, 625, 14, 34, "Message",ExpressionUUID->"2333a104-e05f-4020-a2be-da41d2a04e13"], -Cell[222064, 6001, 629, 14, 34, "Message",ExpressionUUID->"b8f00778-3341-4cca-907a-7573942df4b7"], -Cell[222696, 6017, 629, 14, 34, "Message",ExpressionUUID->"6b851781-a5d1-4555-9570-dfd55758e291"], -Cell[223328, 6033, 518, 12, 20, "Message",ExpressionUUID->"82d1fafe-6d91-4a32-a2c3-c033e19d7471"], -Cell[223849, 6047, 220, 4, 26, "Output",ExpressionUUID->"0dde49af-f93c-46e3-a01c-5b4b9d1b5b1d"] +Cell[221070, 5908, 2073, 58, 99, "Input",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], +Cell[223146, 5968, 644, 14, 26, "Message",ExpressionUUID->"82f42aad-5699-4cac-ba15-8424eda02bd7"], +Cell[223793, 5984, 648, 14, 26, "Message",ExpressionUUID->"e067b6fe-904b-4d01-a779-df708702c6fd"], +Cell[224444, 6000, 652, 14, 26, "Message",ExpressionUUID->"6c9abffb-9359-4831-b3ef-fc4b9eb646ad"], +Cell[225099, 6016, 539, 12, 26, "Message",ExpressionUUID->"a63af15a-a567-48f7-a51c-125a26f5183f"], +Cell[225641, 6030, 238, 3, 33, "Output",ExpressionUUID->"a2947d1d-45d5-4167-95d6-39a9068e79ca"] }, Open ]], Cell[CellGroupData[{ -Cell[224106, 6056, 2075, 59, 83, "Input",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], -Cell[226184, 6117, 596, 13, 34, "Message",ExpressionUUID->"620f953c-2e1f-4b9f-af61-f1dc3d74eaed"], -Cell[226783, 6132, 601, 13, 34, "Message",ExpressionUUID->"27a1eff1-2165-426c-a370-fd703a0d13ca"], -Cell[227387, 6147, 603, 13, 34, "Message",ExpressionUUID->"4dbe4979-effc-41de-8d32-77ea5fbd2a51"], -Cell[227993, 6162, 493, 11, 20, "Message",ExpressionUUID->"fb234670-8ea1-4f24-8e72-07809c18a118"], -Cell[228489, 6175, 194, 3, 26, "Output",ExpressionUUID->"88bdcf8e-1d9a-427e-9d67-24dab5c8b6e3"] +Cell[225916, 6038, 2071, 58, 99, "Input",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], +Cell[227990, 6098, 619, 14, 26, "Message",ExpressionUUID->"ed02dda6-044c-43f2-bae8-d986d49ba29b"], +Cell[228612, 6114, 623, 14, 26, "Message",ExpressionUUID->"39b60def-a36d-4b14-b0a3-6981d6bea359"], +Cell[229238, 6130, 626, 14, 26, "Message",ExpressionUUID->"f43def1e-6320-41bb-b9c9-f9d677e2d435"], +Cell[229867, 6146, 515, 12, 26, "Message",ExpressionUUID->"cfe8f146-7d90-42bd-a972-78928a130a5b"], +Cell[230385, 6160, 217, 3, 33, "Output",ExpressionUUID->"e7bcc6f8-49db-462a-81d1-e14f11c221ff"] }, Open ]], Cell[CellGroupData[{ -Cell[228720, 6183, 1959, 53, 61, "Input",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], -Cell[230682, 6238, 20446, 386, 189, "Output",ExpressionUUID->"eeb53ca6-5a8d-4b45-aaa1-f33a1e966cf5"] +Cell[230639, 6168, 1955, 52, 70, "Input",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], +Cell[232597, 6222, 20469, 386, 236, "Output",ExpressionUUID->"a70dbbfd-c383-43fd-974e-e972070436bc"] }, Open ]], Cell[CellGroupData[{ -Cell[251165, 6629, 2117, 60, 112, "Input",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], -Cell[253285, 6691, 542, 12, 49, "Message",ExpressionUUID->"9e048295-c9b4-4f1f-a0e1-f157142d3654"], -Cell[253830, 6705, 542, 12, 49, "Message",ExpressionUUID->"bc3f7c38-0968-4796-b2f4-71f0debeefa4"], -Cell[254375, 6719, 548, 12, 49, "Message",ExpressionUUID->"8fbfb12e-8696-4abd-b48c-222338d92a0d"], -Cell[254926, 6733, 495, 11, 20, "Message",ExpressionUUID->"c7a4aea9-54db-411d-a328-fdb956e8cf6b"], -Cell[255424, 6746, 22043, 408, 186, "Output",ExpressionUUID->"a522b8bb-8c1e-4a6c-bf1b-492d7ec21c52"] +Cell[253103, 6613, 2113, 59, 99, "Input",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], +Cell[255219, 6674, 564, 13, 40, "Message",ExpressionUUID->"40ff8b0e-36b8-471a-a79c-43d72af67401"], +Cell[255786, 6689, 567, 13, 40, "Message",ExpressionUUID->"5530bd64-037e-4969-8dfd-80e03ee218ff"], +Cell[256356, 6704, 570, 13, 40, "Message",ExpressionUUID->"a249e424-17c5-4a30-acb7-4c1ce8f2d99c"], +Cell[256929, 6719, 519, 12, 26, "Message",ExpressionUUID->"466707e5-5272-4712-ad70-02c09c620377"], +Cell[257451, 6733, 22064, 408, 232, "Output",ExpressionUUID->"9168db6f-f53a-4f03-b917-56399d34775a"] }, Open ]], Cell[CellGroupData[{ -Cell[277504, 7159, 2482, 70, 107, "Input",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], -Cell[279989, 7231, 9496, 223, 194, "Output",ExpressionUUID->"338ddb88-2617-42a9-a2f8-09bb9cccedfd"] +Cell[279552, 7146, 2478, 69, 69, "Input",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], +Cell[282033, 7217, 9516, 222, 242, "Output",ExpressionUUID->"dd98949f-ad7e-43bf-a40b-da9e376e4434"] }, Open ]], Cell[CellGroupData[{ -Cell[289522, 7459, 232, 5, 23, "Input",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], -Cell[289757, 7466, 28403, 540, 186, "Output",ExpressionUUID->"aefde3ea-e3b9-43fc-aee5-0945507da6f1"] +Cell[291586, 7444, 228, 4, 29, "Input",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], +Cell[291817, 7450, 28423, 539, 232, "Output",ExpressionUUID->"0fb8bb69-fded-4382-b619-7effd88db259"] }, Open ]], Cell[CellGroupData[{ -Cell[318197, 8011, 240, 7, 40, "Input",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], -Cell[318440, 8020, 195, 3, 38, "Output",ExpressionUUID->"6a9d630e-de7f-455e-b3ab-d3c4fb71e067"] +Cell[320277, 7994, 236, 6, 47, "Input",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], +Cell[320516, 8002, 218, 3, 33, "Output",ExpressionUUID->"367376c8-d3ba-425e-9ad8-0120a6bef015"] }, Open ]], Cell[CellGroupData[{ -Cell[318672, 8028, 1839, 53, 83, "Input",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], -Cell[320514, 8083, 544, 12, 49, "Message",ExpressionUUID->"2cc06502-13b7-4e75-a0c7-aa9b344beac4"], -Cell[321061, 8097, 550, 12, 49, "Message",ExpressionUUID->"c37eed34-4449-4909-bdfc-eff69365db11"], -Cell[321614, 8111, 548, 12, 49, "Message",ExpressionUUID->"5915a9c1-77ac-4a0d-87e7-82fb0e5fa6d4"], -Cell[322165, 8125, 495, 11, 20, "Message",ExpressionUUID->"6ea9ae3f-15c4-46a9-962c-a49f33c48b00"], -Cell[322663, 8138, 21995, 408, 187, "Output",ExpressionUUID->"f6eaa482-07ad-4721-b5d3-1b302f15ecee"] +Cell[320771, 8010, 1835, 52, 99, "Input",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], +Cell[322609, 8064, 567, 13, 40, "Message",ExpressionUUID->"63ff4c70-8cc5-46e3-9690-3aa4740802da"], +Cell[323179, 8079, 572, 13, 40, "Message",ExpressionUUID->"fbafb355-9ede-4bc2-b512-4e01b9c873f1"], +Cell[323754, 8094, 570, 13, 40, "Message",ExpressionUUID->"9a7b7ded-3f6b-456b-9944-fa3a811022fe"], +Cell[324327, 8109, 519, 12, 26, "Message",ExpressionUUID->"034d4236-c5f4-4872-8df8-9cbf47c06830"], +Cell[324849, 8123, 22016, 408, 233, "Output",ExpressionUUID->"80ba2dda-771e-48f6-879a-afe245e7c93d"] }, Open ]], Cell[CellGroupData[{ -Cell[344695, 8551, 1616, 48, 60, "Input",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], -Cell[346314, 8601, 627, 13, 51, "Message",ExpressionUUID->"5e653149-a707-42c9-87c9-9c0e308505a7"], -Cell[346944, 8616, 630, 13, 51, "Message",ExpressionUUID->"6b114936-59e0-4932-ac1b-0c46175662b3"], -Cell[347577, 8631, 631, 13, 51, "Message",ExpressionUUID->"5c396db3-99ce-4f9f-86f2-09273c5ffbab"], -Cell[348211, 8646, 497, 11, 20, "Message",ExpressionUUID->"6aefbd2a-f241-446d-99ee-3243fcdf9847"], -Cell[348711, 8659, 193, 3, 26, "Output",ExpressionUUID->"9b204c4a-0dfa-4eac-a253-25278cf3a16a"] +Cell[346902, 8536, 1616, 48, 71, "Input",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], +Cell[348521, 8586, 652, 14, 43, "Message",ExpressionUUID->"92479205-fcb3-4738-a911-9db34557c31c"], +Cell[349176, 8602, 655, 14, 43, "Message",ExpressionUUID->"508f00b9-b4d1-401f-835c-ebbbf45c38bb"], +Cell[349834, 8618, 658, 14, 43, "Message",ExpressionUUID->"5c36ab42-8975-4bb7-a4cb-e3f9eeaf9f08"], +Cell[350495, 8634, 520, 12, 26, "Message",ExpressionUUID->"5aef9305-d61d-43a2-86cf-09acd3b73a9e"], +Cell[351018, 8648, 220, 4, 33, "Output",ExpressionUUID->"6fbe53b1-973f-4f38-80d4-022bddb6b724"] }, Open ]], Cell[CellGroupData[{ -Cell[348941, 8667, 2272, 64, 128, "Input",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], -Cell[351216, 8733, 597, 13, 49, "Message",ExpressionUUID->"d6146c95-6efa-44d3-ad1a-20a081d0c27f"], -Cell[351816, 8748, 601, 13, 49, "Message",ExpressionUUID->"0ab68bc5-51c9-4732-a5ee-cd4c3274abec"], -Cell[352420, 8763, 604, 13, 69, "Message",ExpressionUUID->"6c4920b6-6ea4-4444-97fb-e12823059251"], -Cell[353027, 8778, 493, 11, 20, "Message",ExpressionUUID->"342f6334-90a8-4df8-bb2a-b778ba0184a5"], -Cell[353523, 8791, 194, 3, 26, "Output",ExpressionUUID->"9a73a598-db22-4fc3-a96b-38f4e32ee3b3"] +Cell[351275, 8657, 2272, 64, 64, "Input",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], +Cell[353550, 8723, 622, 14, 26, "Message",ExpressionUUID->"4114a8bf-6f18-477a-a698-8fbdda0af660"], +Cell[354175, 8739, 628, 14, 26, "Message",ExpressionUUID->"82a87977-b8e7-45b8-96cc-d4858f49b6ff"], +Cell[354806, 8755, 631, 14, 26, "Message",ExpressionUUID->"e95ce398-003c-4156-be40-5567c397dcab"], +Cell[355440, 8771, 520, 12, 26, "Message",ExpressionUUID->"434a613a-9089-4ff4-a24d-9dee1e8a73fb"], +Cell[355963, 8785, 221, 4, 33, "Output",ExpressionUUID->"639adc1a-2c63-4e34-9f50-fdbfbd35358a"] }, Open ]], Cell[CellGroupData[{ -Cell[353754, 8799, 2235, 63, 128, "Input",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], -Cell[355992, 8864, 596, 13, 49, "Message",ExpressionUUID->"bfefabc3-441e-444b-9165-4ef60016ab8e"], -Cell[356591, 8879, 603, 13, 49, "Message",ExpressionUUID->"d8e25f17-cc50-4f00-9f82-1e8db6b31d90"], -Cell[357197, 8894, 604, 13, 69, "Message",ExpressionUUID->"e605f4c3-e0bc-4780-95b3-9f3c5529547e"], -Cell[357804, 8909, 493, 11, 20, "Message",ExpressionUUID->"1e442ba8-4101-43eb-b83c-40e2dd105963"], -Cell[358300, 8922, 194, 3, 26, "Output",ExpressionUUID->"28b1d449-25ff-4ebb-8ed5-a9450f5d8c81"] +Cell[356221, 8794, 2235, 63, 64, "Input",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], +Cell[358459, 8859, 621, 14, 26, "Message",ExpressionUUID->"3353107c-b23f-44ba-a8e7-75bbb6eb56e4"], +Cell[359083, 8875, 625, 14, 26, "Message",ExpressionUUID->"7282fe06-11e4-4f26-b1cf-d93ecd5a35c2"], +Cell[359711, 8891, 628, 14, 26, "Message",ExpressionUUID->"20ab9071-7fc6-4072-94ac-faa14e93d83f"], +Cell[360342, 8907, 517, 12, 26, "Message",ExpressionUUID->"5501b5b7-6a0d-492f-aa31-3d5bc6414876"], +Cell[360862, 8921, 221, 4, 33, "Output",ExpressionUUID->"dc78b27f-2354-423b-9db0-eb5bad6ed6e4"] }, Open ]], Cell[CellGroupData[{ -Cell[358531, 8930, 2233, 63, 128, "Input",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], -Cell[360767, 8995, 599, 13, 49, "Message",ExpressionUUID->"8ac562fb-0567-4f64-a208-65a0af86face"], -Cell[361369, 9010, 603, 13, 49, "Message",ExpressionUUID->"90a4334a-3424-40fc-b143-a2d518d3bbc5"], -Cell[361975, 9025, 606, 13, 69, "Message",ExpressionUUID->"a9061ca7-292a-4d10-9b33-c29bcbea7b28"], -Cell[362584, 9040, 495, 11, 20, "Message",ExpressionUUID->"73d71dd7-b4bf-4302-b3cc-803aee2e9bf2"], -Cell[363082, 9053, 194, 3, 26, "Output",ExpressionUUID->"885778f7-0f7e-40b6-89aa-ed494b43eb99"] +Cell[361120, 8930, 2233, 63, 64, "Input",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], +Cell[363356, 8995, 623, 14, 26, "Message",ExpressionUUID->"89ebfbcf-502b-4b1f-87ce-a9852719e7a0"], +Cell[363982, 9011, 627, 14, 26, "Message",ExpressionUUID->"99753e13-da41-46a2-a74c-1e8076d83894"], +Cell[364612, 9027, 633, 14, 26, "Message",ExpressionUUID->"6b8e55a3-74bc-47d3-932f-ad409b4057c5"], +Cell[365248, 9043, 520, 12, 26, "Message",ExpressionUUID->"175b14a0-53e2-44a0-9e13-1e912cf49d0e"], +Cell[365771, 9057, 219, 4, 33, "Output",ExpressionUUID->"b1c1647d-4e80-4039-8c68-cf6756d9fdd5"] }, Open ]], Cell[CellGroupData[{ -Cell[363313, 9061, 236, 6, 39, "Input",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], -Cell[363552, 9069, 193, 3, 38, "Output",ExpressionUUID->"0d8092ef-63cf-44b1-9e6c-c3045f2c3d07"] +Cell[366027, 9066, 236, 6, 46, "Input",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], +Cell[366266, 9074, 218, 4, 33, "Output",ExpressionUUID->"d26f0e90-9d15-4f76-b807-6376ff489dc8"] }, Open ]], -Cell[363760, 9075, 271, 6, 23, "Input",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], +Cell[366499, 9081, 271, 6, 29, "Input",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], Cell[CellGroupData[{ -Cell[364056, 9085, 558, 19, 43, "Input",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], -Cell[364617, 9106, 194, 3, 38, "Output",ExpressionUUID->"9ded835c-28eb-451d-9453-94098d00e2f7"] +Cell[366795, 9091, 558, 19, 51, "Input",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], +Cell[367356, 9112, 219, 4, 33, "Output",ExpressionUUID->"dc5074ce-5fec-4fec-9fef-060f03ae447f"] }, Open ]], Cell[CellGroupData[{ -Cell[364848, 9114, 170, 5, 47, "Input",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], -Cell[365021, 9121, 194, 3, 38, "Output",ExpressionUUID->"a2df90a1-42c5-44ca-98d8-a66ab68182d5"] +Cell[367612, 9121, 170, 5, 55, "Input",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], +Cell[367785, 9128, 221, 4, 33, "Output",ExpressionUUID->"a430c415-9b7b-494d-a63e-f01551d43eac"] }, Open ]], Cell[CellGroupData[{ -Cell[365252, 9129, 181, 5, 36, "Input",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], -Cell[365436, 9136, 193, 3, 38, "Output",ExpressionUUID->"c5d578c9-7406-46d6-b35f-ab3cc4d84476"] +Cell[368043, 9137, 181, 5, 43, "Input",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], +Cell[368227, 9144, 218, 4, 33, "Output",ExpressionUUID->"449b0741-a3e2-46a4-a807-77f0d225018e"] }, Open ]], Cell[CellGroupData[{ -Cell[365666, 9144, 6055, 185, 413, "Input",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], -Cell[371724, 9331, 197, 3, 38, "Output",ExpressionUUID->"992caf2d-8085-4b21-8f50-e6cade28ad09"] +Cell[368482, 9153, 6055, 185, 183, "Input",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], +Cell[374540, 9340, 222, 4, 33, "Output",ExpressionUUID->"5767f0d1-a372-4267-af89-77fc32effbc6"] }, Open ]], Cell[CellGroupData[{ -Cell[371958, 9339, 368, 9, 33, "Input",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], -Cell[372329, 9350, 191, 3, 38, "Output",ExpressionUUID->"dd9bbcd6-52a8-4f05-8592-85d1813b52c6"] +Cell[374799, 9349, 368, 9, 41, "Input",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], +Cell[375170, 9360, 216, 4, 33, "Output",ExpressionUUID->"a05dfba4-52e2-476d-ba64-57e8472c0c25"] }, Open ]], Cell[CellGroupData[{ -Cell[372557, 9358, 6122, 187, 413, "Input",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], -Cell[378682, 9547, 197, 3, 38, "Output",ExpressionUUID->"bde5e0e1-628c-4b45-ad08-dd434d4c9a8a"] +Cell[375423, 9369, 6122, 187, 183, "Input",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], +Cell[381548, 9558, 222, 4, 33, "Output",ExpressionUUID->"40ebe67e-eba3-4c9b-bbe1-be8c088c2767"] }, Open ]], Cell[CellGroupData[{ -Cell[378916, 9555, 368, 9, 33, "Input",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], -Cell[379287, 9566, 193, 3, 38, "Output",ExpressionUUID->"c2af8195-b87e-4ac3-9ce9-bd5bbe9cbf56"] +Cell[381807, 9567, 368, 9, 41, "Input",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], +Cell[382178, 9578, 220, 4, 33, "Output",ExpressionUUID->"7ffc216c-2dc5-4ed4-83e9-4039809684a9"] }, Open ]], Cell[CellGroupData[{ -Cell[379517, 9574, 2663, 88, 142, "Input",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], -Cell[382183, 9664, 195, 3, 38, "Output",ExpressionUUID->"cd4f3f46-9f3c-43e3-8d87-0587e42732b0"] +Cell[382435, 9587, 2663, 88, 107, "Input",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], +Cell[385101, 9677, 222, 4, 33, "Output",ExpressionUUID->"8dfff5dd-65ea-4519-aa24-3db0802f16ea"] }, Open ]], Cell[CellGroupData[{ -Cell[382415, 9672, 2603, 85, 142, "Input",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], -Cell[385021, 9759, 195, 3, 38, "Output",ExpressionUUID->"e92f0d0b-893f-4897-ad9a-a3ad0de7df50"] +Cell[385360, 9686, 2603, 85, 107, "Input",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], +Cell[387966, 9773, 220, 4, 33, "Output",ExpressionUUID->"ad58389a-2b00-4689-91bc-b113617baef0"] }, Open ]], Cell[CellGroupData[{ -Cell[385253, 9767, 3712, 118, 208, "Input",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], -Cell[388968, 9887, 196, 3, 38, "Output",ExpressionUUID->"87ea44b8-07bf-40fb-b0d2-5db9fddac08f"] +Cell[388223, 9782, 3712, 118, 160, "Input",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], +Cell[391938, 9902, 221, 4, 33, "Output",ExpressionUUID->"a885d57d-bba7-4b4c-8585-be0cb7f2869d"] }, Open ]], Cell[CellGroupData[{ -Cell[389201, 9895, 2075, 59, 83, "Input",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], -Cell[391279, 9956, 597, 13, 49, "Message",ExpressionUUID->"87026cf3-8a25-4623-8999-d644ba14506c"], -Cell[391879, 9971, 598, 13, 49, "Message",ExpressionUUID->"5f9f4319-6c99-4d27-9882-3bb53d9120f5"], -Cell[392480, 9986, 602, 13, 34, "Message",ExpressionUUID->"c551826e-8b91-4c0f-b749-a32595d9cf30"], -Cell[393085, 10001, 493, 11, 20, "Message",ExpressionUUID->"71ce08cc-4781-4a00-9062-233d22ad9146"], -Cell[393581, 10014, 193, 3, 38, "Output",ExpressionUUID->"a7a5f405-187c-448f-83bd-6b94db2cf868"] +Cell[392196, 9911, 2075, 59, 99, "Input",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], +Cell[394274, 9972, 621, 14, 26, "Message",ExpressionUUID->"adb97091-38e0-4dd2-adc6-521f9ec05bf5"], +Cell[394898, 9988, 625, 14, 26, "Message",ExpressionUUID->"2e7afb47-434d-41a6-b7bc-84b6ddf8b474"], +Cell[395526, 10004, 627, 14, 26, "Message",ExpressionUUID->"f1425839-0019-49e2-b383-ec7f88366c86"], +Cell[396156, 10020, 522, 12, 26, "Message",ExpressionUUID->"59cc37ea-c184-4e2b-94fa-6e89fee7f301"], +Cell[396681, 10034, 218, 4, 33, "Output",ExpressionUUID->"8ab1de55-edb4-443f-9c49-2a0126f84104"] }, Open ]], Cell[CellGroupData[{ -Cell[393811, 10022, 2077, 59, 83, "Input",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], -Cell[395891, 10083, 593, 13, 34, "Message",ExpressionUUID->"18ec318a-b9c4-4292-b8be-595fcd9f862b"], -Cell[396487, 10098, 595, 13, 34, "Message",ExpressionUUID->"baaf577f-ca86-46ca-ac3c-ec2d8438230f"], -Cell[397085, 10113, 598, 13, 34, "Message",ExpressionUUID->"bb404594-3f37-4a3f-80ba-f6edbed40461"], -Cell[397686, 10128, 493, 11, 20, "Message",ExpressionUUID->"ebb2637f-b34c-48a4-bceb-45d53f42503b"], -Cell[398182, 10141, 194, 3, 38, "Output",ExpressionUUID->"8a3b2297-8b4d-4645-ae34-42c10ba7937e"] +Cell[396936, 10043, 2077, 59, 99, "Input",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], +Cell[399016, 10104, 618, 14, 26, "Message",ExpressionUUID->"ce04400b-4e2d-4848-9fba-ffe8c56470cc"], +Cell[399637, 10120, 621, 14, 26, "Message",ExpressionUUID->"3d9ac56b-b7ed-4a28-a251-3763c2e84a66"], +Cell[400261, 10136, 623, 14, 26, "Message",ExpressionUUID->"32ac3d14-2ad1-4a25-aeed-a52bc498dfe9"], +Cell[400887, 10152, 516, 12, 26, "Message",ExpressionUUID->"ca5dd7f5-e737-4f80-8ff2-5f6b3e63a7ea"], +Cell[401406, 10166, 219, 4, 33, "Output",ExpressionUUID->"4d0795af-78c3-4443-8c08-99cb6a72cf9d"] }, Open ]], Cell[CellGroupData[{ -Cell[398413, 10149, 2051, 55, 45, "Input",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], -Cell[400467, 10206, 20326, 381, 200, "Output",ExpressionUUID->"81bfdc95-10e9-4fd8-852e-928339611873"] +Cell[401662, 10175, 2051, 55, 53, "Input",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], +Cell[403716, 10232, 20351, 382, 236, "Output",ExpressionUUID->"1d9f9957-9a34-42a1-a187-76d75bde6115"] }, Open ]], Cell[CellGroupData[{ -Cell[420830, 10592, 2138, 60, 83, "Input",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], -Cell[422971, 10654, 535, 12, 34, "Message",ExpressionUUID->"4af5ddfc-9da4-4fd7-a581-324e6f3b3111"], -Cell[423509, 10668, 541, 12, 34, "Message",ExpressionUUID->"bbc924b2-09d9-4292-949e-4614e49e11d8"], -Cell[424053, 10682, 543, 12, 34, "Message",ExpressionUUID->"81b6ef9c-c905-4765-a9ce-6b2970d7433e"], -Cell[424599, 10696, 495, 11, 20, "Message",ExpressionUUID->"9d75b16d-36c8-4523-a51c-a55e798697bd"], -Cell[425097, 10709, 22556, 417, 197, "Output",ExpressionUUID->"e3c009db-6d41-4826-9099-17a0ea92d437"] +Cell[424104, 10619, 2138, 60, 99, "Input",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], +Cell[426245, 10681, 560, 13, 40, "Message",ExpressionUUID->"8daf6882-032b-48ce-8ae8-e281e8b68c4d"], +Cell[426808, 10696, 566, 13, 40, "Message",ExpressionUUID->"6de129df-83d1-4206-ad0b-8cdbe8b08122"], +Cell[427377, 10711, 568, 13, 40, "Message",ExpressionUUID->"9b545db4-8801-4e31-a3c4-c9bb257dccfe"], +Cell[427948, 10726, 522, 12, 26, "Message",ExpressionUUID->"a5b0857d-ff97-4016-8e22-4b62fe5b6dd7"], +Cell[428473, 10740, 22581, 418, 232, "Output",ExpressionUUID->"f39fce30-5c10-4255-b6b5-bc6fd7ae2787"] }, Open ]], Cell[CellGroupData[{ -Cell[447690, 11131, 232, 5, 23, "Input",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], -Cell[447925, 11138, 28916, 549, 197, "Output",ExpressionUUID->"d787f112-579b-4551-9bf9-060fc09f0e53"] +Cell[451091, 11163, 232, 5, 29, "Input",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], +Cell[451326, 11170, 28938, 549, 232, "Output",ExpressionUUID->"fb87d530-5db5-48b9-ae55-a41e1059f904"] }, Open ]], Cell[CellGroupData[{ -Cell[476878, 11692, 1616, 48, 60, "Input",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], -Cell[478497, 11742, 629, 13, 34, "Message",ExpressionUUID->"62db389e-845b-4d30-b3aa-e876240e944b"], -Cell[479129, 11757, 633, 13, 34, "Message",ExpressionUUID->"9264ecb9-6a5a-4998-9527-a95dd93cf772"], -Cell[479765, 11772, 637, 13, 34, "Message",ExpressionUUID->"ac8299ec-f193-41da-9cdd-b034af7771b4"], -Cell[480405, 11787, 495, 11, 20, "Message",ExpressionUUID->"26510a91-0ead-4218-90df-77853d742e5a"], -Cell[480903, 11800, 193, 3, 38, "Output",ExpressionUUID->"6377a255-b8b6-4407-816a-cb4b575da237"] +Cell[480301, 11724, 1616, 48, 71, "Input",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], +Cell[481920, 11774, 654, 14, 43, "Message",ExpressionUUID->"f5b7f5c3-e97f-4e0d-af92-4f3283d87efa"], +Cell[482577, 11790, 657, 14, 43, "Message",ExpressionUUID->"3535ddbc-2052-40c1-a686-5844af462331"], +Cell[483237, 11806, 748, 16, 43, "Message",ExpressionUUID->"7acba806-c49d-4e52-8c1b-884e2dce1218"], +Cell[483988, 11824, 518, 12, 26, "Message",ExpressionUUID->"a679412d-1a1e-4178-bc6b-963609e85677"], +Cell[484509, 11838, 218, 4, 33, "Output",ExpressionUUID->"aa5bf8fb-41a5-45f1-95d7-95bb892370e7"] }, Open ]], Cell[CellGroupData[{ -Cell[481133, 11808, 2270, 64, 54, "Input",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], -Cell[483406, 11874, 599, 13, 34, "Message",ExpressionUUID->"9124e467-4ae1-4021-a300-243dc94498eb"], -Cell[484008, 11889, 600, 13, 34, "Message",ExpressionUUID->"c6549aa0-c62b-4513-ac6c-bd63e835fbea"], -Cell[484611, 11904, 604, 13, 34, "Message",ExpressionUUID->"df2e08ef-c728-4d5e-862b-306fb2cf3581"], -Cell[485218, 11919, 495, 11, 20, "Message",ExpressionUUID->"9db75048-6c2e-4651-93e8-67308791c8ec"], -Cell[485716, 11932, 193, 3, 38, "Output",ExpressionUUID->"c4b9e709-44c9-455e-8ef5-ac8f37fed655"] +Cell[484764, 11847, 2270, 64, 64, "Input",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], +Cell[487037, 11913, 624, 14, 26, "Message",ExpressionUUID->"fe9f8806-34bb-499b-9edf-95a78a431e35"], +Cell[487664, 11929, 627, 14, 26, "Message",ExpressionUUID->"2c5f0edf-ea85-497e-986d-cf04045ae10d"], +Cell[488294, 11945, 629, 14, 26, "Message",ExpressionUUID->"2f999e86-80e7-447f-b16c-af83fec74b1c"], +Cell[488926, 11961, 522, 12, 26, "Message",ExpressionUUID->"75fb10cb-31ea-45a3-b055-e7a5b7c54de6"], +Cell[489451, 11975, 218, 4, 33, "Output",ExpressionUUID->"e29e38c3-4ddf-475e-bcd1-99466b477c39"] }, Open ]], Cell[CellGroupData[{ -Cell[485946, 11940, 2231, 63, 54, "Input",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], -Cell[488180, 12005, 597, 13, 34, "Message",ExpressionUUID->"21f560cb-17f9-4fd8-afd1-a3b49a847fb8"], -Cell[488780, 12020, 600, 13, 34, "Message",ExpressionUUID->"0398c7dd-c0ba-4977-94d8-7a46d9c3a000"], -Cell[489383, 12035, 604, 13, 34, "Message",ExpressionUUID->"86d0d906-331c-483a-aec8-995cab84b519"], -Cell[489990, 12050, 497, 11, 20, "Message",ExpressionUUID->"b1e3ee7b-ff3f-4251-b481-4779b24e07fa"], -Cell[490490, 12063, 193, 3, 38, "Output",ExpressionUUID->"da699e51-8337-4555-b0a9-38b354c425a2"] +Cell[489706, 11984, 2231, 63, 64, "Input",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], +Cell[491940, 12049, 622, 14, 26, "Message",ExpressionUUID->"acd863b5-5a66-4495-ae3e-1bd968ca29bf"], +Cell[492565, 12065, 625, 14, 26, "Message",ExpressionUUID->"6b87b7a3-ff1d-4601-87b4-3a994c67ac97"], +Cell[493193, 12081, 627, 14, 26, "Message",ExpressionUUID->"9d82f555-8860-49f8-ab2b-b24202a67e6f"], +Cell[493823, 12097, 520, 12, 26, "Message",ExpressionUUID->"a9cd7a2d-bf20-40a4-8db5-4aba23ed900a"], +Cell[494346, 12111, 220, 4, 33, "Output",ExpressionUUID->"25f36ac6-64dc-490e-a50d-d665839e8278"] }, Open ]], Cell[CellGroupData[{ -Cell[490720, 12071, 2233, 63, 54, "Input",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], -Cell[492956, 12136, 597, 13, 34, "Message",ExpressionUUID->"e630d8e6-e72e-4896-8236-5e644436e26e"], -Cell[493556, 12151, 600, 13, 34, "Message",ExpressionUUID->"b945c7bd-5092-4b47-8a7f-06500796e5cb"], -Cell[494159, 12166, 602, 13, 34, "Message",ExpressionUUID->"32f9c9b5-dbf0-41ab-bf21-b30b40abbbda"], -Cell[494764, 12181, 494, 11, 20, "Message",ExpressionUUID->"735d0623-9874-4e24-9679-1a0c84c47df2"], -Cell[495261, 12194, 192, 3, 38, "Output",ExpressionUUID->"cc9e248c-6f72-4e53-84f1-00dd2c592e80"] +Cell[494603, 12120, 2233, 63, 64, "Input",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], +Cell[496839, 12185, 624, 14, 26, "Message",ExpressionUUID->"526db64f-155a-4042-bcfe-ce1f7a6b6086"], +Cell[497466, 12201, 627, 14, 26, "Message",ExpressionUUID->"c35a5d60-7991-46fc-a8cc-0420465b6e5c"], +Cell[498096, 12217, 627, 14, 26, "Message",ExpressionUUID->"0b42e085-d06c-4da0-816f-5dddaeac531d"], +Cell[498726, 12233, 522, 12, 26, "Message",ExpressionUUID->"ea4b53e1-b982-412f-95d3-daf4658a2a75"], +Cell[499251, 12247, 217, 4, 33, "Output",ExpressionUUID->"da2bac54-e6a3-4804-8be5-dcadd8a0a918"] }, Open ]], Cell[CellGroupData[{ -Cell[495490, 12202, 236, 6, 39, "Input",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], -Cell[495729, 12210, 199, 3, 38, "Output",ExpressionUUID->"0817375f-aeff-41fb-8606-644e37fa0523"] +Cell[499505, 12256, 236, 6, 46, "Input",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], +Cell[499744, 12264, 226, 4, 33, "Output",ExpressionUUID->"e0acc09c-4457-4468-8f2e-07c55dcd9fa4"] }, Open ]], -Cell[495943, 12216, 273, 6, 23, "Input",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], +Cell[499985, 12271, 273, 6, 29, "Input",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], Cell[CellGroupData[{ -Cell[496241, 12226, 558, 19, 43, "Input",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], -Cell[496802, 12247, 195, 3, 38, "Output",ExpressionUUID->"301b0e39-9a24-4394-bf63-03810f39cc5a"] +Cell[500283, 12281, 558, 19, 51, "Input",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], +Cell[500844, 12302, 220, 4, 33, "Output",ExpressionUUID->"46c5067f-3a4b-4812-929a-a38e65e7b3d6"] }, Open ]], Cell[CellGroupData[{ -Cell[497034, 12255, 170, 5, 47, "Input",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], -Cell[497207, 12262, 194, 3, 38, "Output",ExpressionUUID->"1e64545b-3fbb-43bb-b133-0e4e24a10b0a"] +Cell[501101, 12311, 170, 5, 55, "Input",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], +Cell[501274, 12318, 221, 4, 33, "Output",ExpressionUUID->"acbbb8b4-a9ef-44ee-85b3-98d143ff1693"] }, Open ]], Cell[CellGroupData[{ -Cell[497438, 12270, 181, 5, 36, "Input",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], -Cell[497622, 12277, 193, 3, 38, "Output",ExpressionUUID->"85b9b120-5774-4c1d-aae0-4002452ea138"] +Cell[501532, 12327, 181, 5, 43, "Input",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], +Cell[501716, 12334, 217, 4, 33, "Output",ExpressionUUID->"bcc7cec4-cc40-41a9-857c-e2e4b12150a4"] }, Open ]], Cell[CellGroupData[{ -Cell[497852, 12285, 6055, 185, 161, "Input",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], -Cell[503910, 12472, 194, 3, 38, "Output",ExpressionUUID->"a3f9a3aa-3db1-4ff9-b0c5-fa511dabdc36"] +Cell[501970, 12343, 6055, 185, 183, "Input",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], +Cell[508028, 12530, 219, 4, 33, "Output",ExpressionUUID->"5d640a9e-40c0-438b-b1ed-803b082e29ae"] }, Open ]], Cell[CellGroupData[{ -Cell[504141, 12480, 368, 9, 33, "Input",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], -Cell[504512, 12491, 195, 3, 38, "Output",ExpressionUUID->"fad05be1-e43f-4569-8022-151dff411c43"] +Cell[508284, 12539, 368, 9, 41, "Input",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], +Cell[508655, 12550, 220, 4, 33, "Output",ExpressionUUID->"c1aa02bc-166e-425c-b50c-f3dab036f89b"] }, Open ]], Cell[CellGroupData[{ -Cell[504744, 12499, 6122, 187, 161, "Input",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], -Cell[510869, 12688, 196, 3, 38, "Output",ExpressionUUID->"28bf90b0-e653-41e2-b1a2-22737e26a3cf"] +Cell[508912, 12559, 6122, 187, 183, "Input",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], +Cell[515037, 12748, 221, 4, 33, "Output",ExpressionUUID->"337a890e-8021-4980-b5da-d0d877a9f150"] }, Open ]], Cell[CellGroupData[{ -Cell[511102, 12696, 368, 9, 33, "Input",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], -Cell[511473, 12707, 192, 3, 38, "Output",ExpressionUUID->"4bc04271-3d15-4e8c-9e6b-f9fd1eddcce1"] +Cell[515295, 12757, 368, 9, 41, "Input",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], +Cell[515666, 12768, 217, 4, 33, "Output",ExpressionUUID->"b318eb28-df16-4d32-a250-dd25cb9d0a8b"] }, Open ]], Cell[CellGroupData[{ -Cell[511702, 12715, 2663, 88, 95, "Input",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], -Cell[514368, 12805, 197, 3, 38, "Output",ExpressionUUID->"d315aca0-be57-4b4f-9915-8f3fd773a9b0"] +Cell[515920, 12777, 2663, 88, 107, "Input",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], +Cell[518586, 12867, 222, 4, 33, "Output",ExpressionUUID->"215a3741-994a-4b8d-b174-cc46ee14f7be"] }, Open ]], Cell[CellGroupData[{ -Cell[514602, 12813, 2603, 85, 95, "Input",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], -Cell[517208, 12900, 193, 3, 38, "Output",ExpressionUUID->"9d8ee359-7b36-47db-9a60-d0fcb3e5fa9d"] +Cell[518845, 12876, 2603, 85, 107, "Input",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], +Cell[521451, 12963, 218, 4, 33, "Output",ExpressionUUID->"80002680-77ba-4823-9357-8e2bd680c8cc"] }, Open ]], Cell[CellGroupData[{ -Cell[517438, 12908, 3712, 118, 142, "Input",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], -Cell[521153, 13028, 196, 3, 38, "Output",ExpressionUUID->"885a598b-0787-4be9-9681-34b663c0bcb0"] +Cell[521706, 12972, 3712, 118, 160, "Input",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], +Cell[525421, 13092, 223, 4, 33, "Output",ExpressionUUID->"068c35d3-bde0-47e8-98c2-9115c4ebeba6"] }, Open ]], Cell[CellGroupData[{ -Cell[521386, 13036, 2077, 59, 83, "Input",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], -Cell[523466, 13097, 602, 13, 34, "Message",ExpressionUUID->"0e166fd8-fdfa-42ea-aaff-4b8a51556756"], -Cell[524071, 13112, 603, 13, 34, "Message",ExpressionUUID->"1ac17a09-c2e8-4ed8-9eb2-77f9d82791ff"], -Cell[524677, 13127, 607, 13, 34, "Message",ExpressionUUID->"897c1490-3ca0-43ba-97f8-2191012b1bfa"], -Cell[525287, 13142, 494, 11, 20, "Message",ExpressionUUID->"e5fd9e11-12e7-42a9-8b96-aeaf86a75e7c"], -Cell[525784, 13155, 192, 3, 38, "Output",ExpressionUUID->"12056439-fe3e-41c7-ab4e-ecb24bd10c01"] +Cell[525681, 13101, 2077, 59, 99, "Input",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], +Cell[527761, 13162, 627, 14, 26, "Message",ExpressionUUID->"d6b0a64a-7874-440b-a3bd-32304550f53e"], +Cell[528391, 13178, 632, 14, 26, "Message",ExpressionUUID->"487fc0c2-5402-496f-83a5-ba6ed0318767"], +Cell[529026, 13194, 634, 14, 81, "Message",ExpressionUUID->"a09b714b-c17f-4024-986f-f4dffe609074"], +Cell[529663, 13210, 522, 12, 26, "Message",ExpressionUUID->"2a780a2f-85a8-4b18-996d-bf7cad05233e"], +Cell[530188, 13224, 217, 4, 33, "Output",ExpressionUUID->"0efd83ac-9a06-452d-aa89-7e0e858b2513"] }, Open ]], Cell[CellGroupData[{ -Cell[526013, 13163, 2074, 59, 83, "Input",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], -Cell[528090, 13224, 598, 13, 34, "Message",ExpressionUUID->"3a871784-3a01-4689-b345-2b1254bcee66"], -Cell[528691, 13239, 601, 13, 34, "Message",ExpressionUUID->"8cf7d6f7-dda1-488f-a681-e10231387598"], -Cell[529295, 13254, 607, 13, 34, "Message",ExpressionUUID->"eed56352-710b-40e8-b869-8d4c90957aa1"], -Cell[529905, 13269, 493, 11, 20, "Message",ExpressionUUID->"ea8f6b58-fd5a-4c7f-92ce-a4994f63598d"], -Cell[530401, 13282, 194, 3, 38, "Output",ExpressionUUID->"e736350e-0d04-433e-b0da-4312493f971d"] +Cell[530442, 13233, 2074, 59, 234, "Input",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], +Cell[532519, 13294, 623, 14, 26, "Message",ExpressionUUID->"2aa9b88b-c780-44ee-ae82-7dbefa97010e"], +Cell[533145, 13310, 628, 14, 26, "Message",ExpressionUUID->"9cf2b483-b0d5-491b-b9cc-3c473251f30d"], +Cell[533776, 13326, 630, 14, 26, "Message",ExpressionUUID->"fc43944c-1206-4cd3-bff7-9a05c3c0e2a5"], +Cell[534409, 13342, 518, 12, 26, "Message",ExpressionUUID->"ef2473a5-d65c-4378-828c-d1dbe10f5ce6"], +Cell[534930, 13356, 219, 4, 33, "Output",ExpressionUUID->"e1c5470f-4aa7-4b75-82f0-dae750a8a89b"] }, Open ]], Cell[CellGroupData[{ -Cell[530632, 13290, 2053, 55, 45, "Input",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], -Cell[532688, 13347, 20459, 384, 200, "Output",ExpressionUUID->"2f05eba9-19e8-4dd3-953b-3f41773c53ce"] +Cell[535186, 13365, 2053, 55, 53, "Input",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], +Cell[537242, 13422, 20483, 385, 236, "Output",ExpressionUUID->"a792d09c-2dc6-4c6f-a0a2-03f851aed9c5"] }, Open ]], Cell[CellGroupData[{ -Cell[553184, 13736, 2143, 60, 83, "Input",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], -Cell[555330, 13798, 538, 12, 34, "Message",ExpressionUUID->"e88330f7-6a4d-4b8a-8ecd-25061895359a"], -Cell[555871, 13812, 543, 12, 34, "Message",ExpressionUUID->"baf7453a-836e-4b1e-a391-6b37df72fc11"], -Cell[556417, 13826, 543, 12, 34, "Message",ExpressionUUID->"5b6e49dc-d682-4e03-98aa-536569be85af"], -Cell[556963, 13840, 493, 11, 20, "Message",ExpressionUUID->"f6173936-13bd-4adc-b2eb-007a6646f35e"], -Cell[557459, 13853, 21860, 405, 197, "Output",ExpressionUUID->"ef5df887-51ea-4a4b-b0ce-bd2484cf3677"] +Cell[557762, 13812, 2143, 60, 261, "Input",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], +Cell[559908, 13874, 565, 13, 40, "Message",ExpressionUUID->"2f92ecb6-0b5e-4178-bdbf-33ef9b43cae6"], +Cell[560476, 13889, 566, 13, 40, "Message",ExpressionUUID->"2079f7d4-83a9-4ffa-8008-73cea13e797e"], +Cell[561045, 13904, 570, 13, 40, "Message",ExpressionUUID->"7ac88e5b-4ac5-40b7-ad01-d29bae510d9e"], +Cell[561618, 13919, 520, 12, 26, "Message",ExpressionUUID->"21b3a856-27cb-41f2-9ba3-f4cb1a23bc52"], +Cell[562141, 13933, 21885, 406, 232, "Output",ExpressionUUID->"bd70e256-aab7-48fa-9f99-62d1a8f37bc1"] }, Open ]], Cell[CellGroupData[{ -Cell[579356, 14263, 232, 5, 23, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], -Cell[579591, 14270, 28220, 537, 197, "Output",ExpressionUUID->"3bca3017-1b8d-49b1-b989-fa9add5d13cf"] +Cell[584063, 14344, 232, 5, 29, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], +Cell[584298, 14351, 28242, 537, 232, "Output",ExpressionUUID->"6e41d5b1-5aa7-4547-bc5c-93b45f8e9ae6"] }, Open ]], Cell[CellGroupData[{ -Cell[607848, 14812, 1616, 48, 60, "Input",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], -Cell[609467, 14862, 624, 13, 34, "Message",ExpressionUUID->"9db42c85-d60a-4067-b6be-3b83cf6d6967"], -Cell[610094, 14877, 627, 13, 34, "Message",ExpressionUUID->"87943419-9fcc-4e29-89a1-c0693108f99b"], -Cell[610724, 14892, 630, 13, 34, "Message",ExpressionUUID->"d9e0da2f-e13b-4271-bce7-3f50bac61baf"], -Cell[611357, 14907, 495, 11, 20, "Message",ExpressionUUID->"236bdc43-a0c3-42a8-8d92-1c63357021f5"], -Cell[611855, 14920, 197, 3, 38, "Output",ExpressionUUID->"bde36af4-6809-4b41-8597-aeca2f08c977"] +Cell[612577, 14893, 1616, 48, 104, "Input",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], +Cell[614196, 14943, 649, 14, 80, "Message",ExpressionUUID->"830f532c-eed3-4d08-873e-e0bb87047232"], +Cell[614848, 14959, 652, 14, 80, "Message",ExpressionUUID->"22cc9e00-5aff-4d0e-aa3b-ae845357514b"], +Cell[615503, 14975, 657, 14, 80, "Message",ExpressionUUID->"b29c2529-e928-4eda-8894-b131f71e9239"], +Cell[616163, 14991, 520, 12, 26, "Message",ExpressionUUID->"0ea8be9b-1f22-4d7d-a63f-67066aa895ba"], +Cell[616686, 15005, 222, 4, 33, "Output",ExpressionUUID->"d11aed7b-21fa-46d0-bdc3-8665c8bcce72"] }, Open ]], Cell[CellGroupData[{ -Cell[612089, 14928, 2272, 64, 54, "Input",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], -Cell[614364, 14994, 600, 13, 34, "Message",ExpressionUUID->"d62e7a13-83c7-4d0c-b356-61f4382a3c1e"], -Cell[614967, 15009, 602, 13, 34, "Message",ExpressionUUID->"5d37ff0a-231a-4619-86f1-9041e3f1991b"], -Cell[615572, 15024, 609, 13, 34, "Message",ExpressionUUID->"bdf45c1f-bb12-40d7-a70d-b81061567e27"], -Cell[616184, 15039, 497, 11, 20, "Message",ExpressionUUID->"83a3341c-dd1e-4d48-ac57-b28e9d615928"], -Cell[616684, 15052, 195, 3, 38, "Output",ExpressionUUID->"98d22a37-0602-44a0-90c8-d56d2df5b5c1"] +Cell[616945, 15014, 2272, 64, 212, "Input",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], +Cell[619220, 15080, 625, 14, 80, "Message",ExpressionUUID->"164398cf-fa42-4d4c-962d-a7e08f6da62b"], +Cell[619848, 15096, 630, 14, 80, "Message",ExpressionUUID->"57698603-23ce-461c-898f-b8d807be09d2"], +Cell[620481, 15112, 632, 14, 80, "Message",ExpressionUUID->"dd450b73-1f3d-4c70-92e6-87fd549e6fbe"], +Cell[621116, 15128, 520, 12, 26, "Message",ExpressionUUID->"cdc040c7-366d-491e-9311-b7b989fc4596"], +Cell[621639, 15142, 222, 4, 33, "Output",ExpressionUUID->"d78f24a0-fb4a-4ac2-9a5a-6e974a2bcc26"] }, Open ]], Cell[CellGroupData[{ -Cell[616916, 15060, 2233, 63, 54, "Input",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], -Cell[619152, 15125, 599, 13, 34, "Message",ExpressionUUID->"94fe5bdd-2473-4912-967a-7ceac35229af"], -Cell[619754, 15140, 603, 13, 34, "Message",ExpressionUUID->"dfaa725f-1692-4c80-a699-96c5faddedaf"], -Cell[620360, 15155, 606, 13, 34, "Message",ExpressionUUID->"7bf8b151-d80d-4880-a762-6d12d2da2ccd"], -Cell[620969, 15170, 495, 11, 20, "Message",ExpressionUUID->"367707d2-0b26-42c5-ac2f-244203cc7651"], -Cell[621467, 15183, 197, 3, 38, "Output",ExpressionUUID->"91c38b38-1d1d-46b1-9eed-8f4fcf34a0ab"] +Cell[621898, 15151, 2233, 63, 212, "Input",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], +Cell[624134, 15216, 624, 14, 80, "Message",ExpressionUUID->"c280a2a0-84bc-4a37-9278-1966dddc6e34"], +Cell[624761, 15232, 627, 14, 80, "Message",ExpressionUUID->"ae9a5cd0-557d-4454-9766-bbc6c77a493f"], +Cell[625391, 15248, 631, 14, 80, "Message",ExpressionUUID->"95bf9cc7-dbd1-4dc7-843f-05809edf951a"], +Cell[626025, 15264, 519, 12, 26, "Message",ExpressionUUID->"5579be48-16dc-4417-90e0-7e77166a51f9"], +Cell[626547, 15278, 224, 4, 33, "Output",ExpressionUUID->"594da857-c725-4f18-ba9a-06032fcc5e1c"] }, Open ]], Cell[CellGroupData[{ -Cell[621701, 15191, 2235, 63, 54, "Input",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], -Cell[623939, 15256, 600, 13, 34, "Message",ExpressionUUID->"166c6310-7eaf-4c5a-abfb-6237a6157663"], -Cell[624542, 15271, 603, 13, 34, "Message",ExpressionUUID->"936c7a26-b64d-470c-8f46-a2f718056856"], -Cell[625148, 15286, 607, 13, 34, "Message",ExpressionUUID->"f117f599-ae95-4efd-ab56-82e87f9417e6"], -Cell[625758, 15301, 497, 11, 20, "Message",ExpressionUUID->"2d874001-5056-4b24-8fe2-7cbf07c101f2"], -Cell[626258, 15314, 195, 3, 38, "Output",ExpressionUUID->"d9bd3ee2-39e9-4e64-98ca-2afe5aa82626"] +Cell[626808, 15287, 2235, 63, 212, "Input",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], +Cell[629046, 15352, 627, 14, 80, "Message",ExpressionUUID->"868ab240-193a-466d-8d57-d81d5b72d41b"], +Cell[629676, 15368, 628, 14, 80, "Message",ExpressionUUID->"351dfa01-1614-4d48-842d-c3ec535468ec"], +Cell[630307, 15384, 632, 14, 80, "Message",ExpressionUUID->"15d680ad-58e0-4817-8200-4cd6159fb9c8"], +Cell[630942, 15400, 520, 12, 26, "Message",ExpressionUUID->"89f6b55f-28a8-417f-89db-4e9b439fa74e"], +Cell[631465, 15414, 220, 4, 33, "Output",ExpressionUUID->"0739aad7-43a0-4dbc-871a-a6991e4209d5"] }, Open ]], Cell[CellGroupData[{ -Cell[626490, 15322, 238, 6, 39, "Input",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], -Cell[626731, 15330, 198, 3, 38, "Output",ExpressionUUID->"de1a0023-c03a-4434-b9d0-2111687fc332"] +Cell[631722, 15423, 238, 6, 46, "Input",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], +Cell[631963, 15431, 223, 4, 33, "Output",ExpressionUUID->"42ca13f5-c695-462b-bf50-1305940c37bd"] }, Open ]], -Cell[626944, 15336, 221, 5, 40, "Input",ExpressionUUID->"50796e04-fb69-4bb8-8c2c-ce75e583bac0"] +Cell[632201, 15438, 221, 5, 109, "Input",ExpressionUUID->"50796e04-fb69-4bb8-8c2c-ce75e583bac0"] } ] *) diff --git a/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_pr_Qw2.nb b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_pr_Qw2.nb index da4d7bc..41e76d9 100644 --- a/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_pr_Qw2.nb +++ b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_pr_Qw2.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 667825, 15928] -NotebookOptionsPosition[ 627248, 15279] -NotebookOutlinePosition[ 627681, 15297] -CellTagsIndexPosition[ 627638, 15294] +NotebookDataLength[ 677129, 16172] +NotebookOptionsPosition[ 636551, 15523] +NotebookOutlinePosition[ 636988, 15541] +CellTagsIndexPosition[ 636945, 15538] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -34,8 +34,9 @@ Cell[BoxData["6.05`"], "Output", 3.991320420900818*^9, 3.993804549577532*^9, 3.993804625944013*^9, { 3.993804662482604*^9, 3.993804748770383*^9}, 3.9939096014243507`*^9, 3.9939096691949368`*^9, 3.993909752549667*^9, 3.993909908282672*^9, { - 3.9939099553998528`*^9, 3.993909989690781*^9}, 3.993911025590871*^9}, - CellLabel->"Out[1]=",ExpressionUUID->"2ff77687-126d-4521-80b2-40b16360f5c0"] + 3.9939099553998528`*^9, 3.993909989690781*^9}, 3.993911025590871*^9, + 3.994250292343574*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"2f1f287f-7961-4023-ac25-1d46c375ed15"] }, Open ]], Cell[CellGroupData[{ @@ -51,8 +52,9 @@ Cell[BoxData["240"], "Output", 3.9913196497381973`*^9, 3.9938045496655397`*^9, 3.9938046259897127`*^9, { 3.9938046625249434`*^9, 3.9938047488188868`*^9}, 3.993909601730575*^9, 3.993909669289562*^9, 3.99390975259161*^9, 3.993909908569488*^9, { - 3.993909955491517*^9, 3.9939099897296047`*^9}, 3.993911025888445*^9}, - CellLabel->"Out[2]=",ExpressionUUID->"f316f4c4-3808-4355-9650-eedc1ad43cad"] + 3.993909955491517*^9, 3.9939099897296047`*^9}, 3.993911025888445*^9, + 3.99425029246015*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"458ef2eb-7cf6-4123-b589-f08f55047850"] }, Open ]], Cell[CellGroupData[{ @@ -69,8 +71,8 @@ Cell[BoxData["156"], "Output", 3.9938046260086718`*^9, {3.99380466254038*^9, 3.99380474883888*^9}, 3.9939096017486753`*^9, 3.9939096693086853`*^9, 3.9939097526160994`*^9, 3.993909908588579*^9, {3.993909955509431*^9, 3.9939099897457*^9}, - 3.9939110258948603`*^9}, - CellLabel->"Out[3]=",ExpressionUUID->"5c9fd1de-a322-47ca-bb52-4264d504a153"] + 3.9939110258948603`*^9, 3.994250292476954*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"e6a0354b-8319-45da-ba38-9280f63971bf"] }, Open ]], Cell[CellGroupData[{ @@ -85,8 +87,9 @@ Cell[BoxData["0.55`"], "Output", 3.991319649777508*^9, 3.993804549706154*^9, 3.9938046260288763`*^9, { 3.993804662560594*^9, 3.993804748856688*^9}, 3.9939096017670803`*^9, 3.9939096693268347`*^9, 3.993909752633919*^9, 3.993909908607675*^9, { - 3.993909955527431*^9, 3.993909989761148*^9}, 3.9939110259004602`*^9}, - CellLabel->"Out[4]=",ExpressionUUID->"7f38a228-cc1d-4643-a1b4-91201e39cdc4"] + 3.993909955527431*^9, 3.993909989761148*^9}, 3.9939110259004602`*^9, + 3.994250292488722*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"2f7fe641-392b-44ff-852b-b678b73afb55"] }, Open ]], Cell[CellGroupData[{ @@ -105,8 +108,9 @@ Cell[BoxData["0.5455000000000001`"], "Output", 3.9913196497965145`*^9, 3.99380454972574*^9, 3.993804626048635*^9, { 3.9938046625774603`*^9, 3.993804748860417*^9}, 3.993909601785378*^9, 3.993909669330983*^9, 3.9939097526503696`*^9, 3.993909908626553*^9, { - 3.9939099555442657`*^9, 3.993909989776597*^9}, 3.993911025906686*^9}, - CellLabel->"Out[5]=",ExpressionUUID->"8c68cfa5-c9bb-4650-b311-fada6f055089"] + 3.9939099555442657`*^9, 3.993909989776597*^9}, 3.993911025906686*^9, + 3.9942502925078382`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"7fdd255f-cf38-4be9-bd0f-1d662026c01d"] }, Open ]], Cell[CellGroupData[{ @@ -120,8 +124,9 @@ Cell[BoxData["0.17`"], "Output", 3.9913196498144608`*^9, 3.993804549747018*^9, 3.993804626052534*^9, { 3.9938046625812197`*^9, 3.9938047488891172`*^9}, 3.9939096018028593`*^9, 3.993909669362465*^9, 3.993909752666353*^9, 3.99390990864529*^9, { - 3.9939099555482264`*^9, 3.993909989792164*^9}, 3.993911025916129*^9}, - CellLabel->"Out[6]=",ExpressionUUID->"3d9c7b67-f7a8-4890-8669-3cc7b5800a83"] + 3.9939099555482264`*^9, 3.993909989792164*^9}, 3.993911025916129*^9, + 3.994250292525462*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"a16cd8fc-cf2e-408f-845d-d62527c3c2ee"] }, Open ]], Cell[CellGroupData[{ @@ -139,8 +144,9 @@ Cell[BoxData["6.244526630021248`"], "Output", 3.9913196498225155`*^9, 3.993804549770184*^9, 3.993804626085994*^9, { 3.9938046626047153`*^9, 3.993804748905245*^9}, 3.993909601820876*^9, 3.9939096693803263`*^9, 3.993909752687901*^9, 3.993909908664627*^9, { - 3.993909955570965*^9, 3.993909989807292*^9}, 3.99391102592437*^9}, - CellLabel->"Out[7]=",ExpressionUUID->"0b8f8115-f662-46ed-b466-cff706dad83b"] + 3.993909955570965*^9, 3.993909989807292*^9}, 3.99391102592437*^9, + 3.994250292544276*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"02e1fb0f-671b-4de5-bd1d-cd8433c5361d"] }, Open ]], Cell[CellGroupData[{ @@ -159,8 +165,9 @@ Cell[BoxData["5.08024220226995`"], "Output", 3.9913196498425236`*^9, 3.9938045497749643`*^9, 3.993804626103525*^9, { 3.993804662619735*^9, 3.993804748921926*^9}, 3.993909601824861*^9, 3.99390966939812*^9, 3.993909752692038*^9, 3.993909908682929*^9, { - 3.993909955589458*^9, 3.993909989822392*^9}, 3.993911025932238*^9}, - CellLabel->"Out[8]=",ExpressionUUID->"62cb075f-9772-4640-860d-178966e8f448"] + 3.993909955589458*^9, 3.993909989822392*^9}, 3.993911025932238*^9, + 3.9942502925627537`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"194b6630-d770-49ce-b707-e4aaa9c8fd65"] }, Open ]], Cell[CellGroupData[{ @@ -176,8 +183,8 @@ Cell[BoxData["0.9831`"], "Output", 3.993804549811586*^9, 3.993804626121752*^9, {3.993804662635777*^9, 3.9938047489393063`*^9}, 3.993909601854841*^9, 3.993909669421215*^9, 3.9939097527133102`*^9, 3.99390990870128*^9, {3.993909955606114*^9, - 3.9939099898261213`*^9}, 3.993911025938468*^9}, - CellLabel->"Out[9]=",ExpressionUUID->"62afb091-1196-4890-b9a5-0934ba660e50"] + 3.9939099898261213`*^9}, 3.993911025938468*^9, 3.994250292580241*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"90bff8e5-2182-4f39-b2b5-0087613a09d3"] }, Open ]], Cell[CellGroupData[{ @@ -193,8 +200,8 @@ Cell[BoxData["0.463`"], "Output", 3.993804549830037*^9, 3.993804626139834*^9, {3.993804662651184*^9, 3.993804748955449*^9}, 3.993909601874164*^9, 3.993909669438889*^9, 3.99390975272956*^9, 3.9939099087196302`*^9, {3.99390995562206*^9, - 3.993909989846019*^9}, 3.993911025944909*^9}, - CellLabel->"Out[10]=",ExpressionUUID->"0d8d401f-aead-4e10-8b63-4c754ff33d00"] + 3.993909989846019*^9}, 3.993911025944909*^9, 3.994250292594578*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"1db5b6fb-f3d6-4134-953d-021924d1d6f3"] }, Open ]], Cell[CellGroupData[{ @@ -208,8 +215,9 @@ Cell[BoxData["0"], "Output", 3.9913196498927155`*^9, 3.9938045498689833`*^9, 3.993804626160439*^9, { 3.993804662666739*^9, 3.9938047489718924`*^9}, 3.993909601896028*^9, 3.993909669457499*^9, 3.993909752744871*^9, 3.9939099087374763`*^9, { - 3.993909955638915*^9, 3.993909989862071*^9}, 3.993911025952133*^9}, - CellLabel->"Out[11]=",ExpressionUUID->"5584e9e1-dbf1-4433-ad3e-1e4ba4b567cb"] + 3.993909955638915*^9, 3.993909989862071*^9}, 3.993911025952133*^9, + 3.9942502926104*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"50a3741a-901d-45ee-8e04-6323bfc7d459"] }, Open ]], Cell[CellGroupData[{ @@ -223,8 +231,9 @@ Cell[BoxData["0"], "Output", 3.9913196498996067`*^9, 3.9938045498874207`*^9, 3.9938046261797523`*^9, { 3.993804662682715*^9, 3.993804748988103*^9}, 3.993909601914316*^9, 3.993909669475305*^9, 3.993909752760817*^9, 3.993909908755747*^9, { - 3.993909955656601*^9, 3.993909989865912*^9}, 3.993911025959566*^9}, - CellLabel->"Out[12]=",ExpressionUUID->"d7162ac2-53b5-4cce-8a6c-b442b4a422cf"] + 3.993909955656601*^9, 3.993909989865912*^9}, 3.993911025959566*^9, + 3.994250292629642*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"98a9c8c4-dac8-4367-8264-9c2b266b08c4"] }, Open ]], Cell[CellGroupData[{ @@ -255,8 +264,9 @@ Cell[BoxData["2.5173601133375656`"], "Output", 3.9913197863028755`*^9, 3.9938045499058733`*^9, 3.993804626198407*^9, { 3.9938046626977053`*^9, 3.993804749004431*^9}, 3.9939096019331207`*^9, 3.993909669493326*^9, 3.993909752780408*^9, 3.993909908773466*^9, { - 3.993909955671833*^9, 3.993909989883627*^9}, 3.99391102596704*^9}, - CellLabel->"Out[13]=",ExpressionUUID->"8fea9113-32dd-4c09-8982-391eee7fe789"] + 3.993909955671833*^9, 3.993909989883627*^9}, 3.99391102596704*^9, + 3.994250292647513*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"90902e8b-ab1f-47c7-be0a-3cea34ee9443"] }, Open ]], Cell[CellGroupData[{ @@ -287,8 +297,9 @@ Cell[BoxData["1.5234450434796134`"], "Output", 3.9913197864610195`*^9, 3.993804549925211*^9, 3.993804626217005*^9, { 3.993804662711796*^9, 3.99380474902066*^9}, 3.993909601952641*^9, 3.9939096695112753`*^9, 3.993909752793829*^9, 3.9939099087914257`*^9, { - 3.993909955686531*^9, 3.993909989897831*^9}, 3.9939110259744253`*^9}, - CellLabel->"Out[14]=",ExpressionUUID->"8f92645b-c8b9-4710-8b36-6ee6c8115439"] + 3.993909955686531*^9, 3.993909989897831*^9}, 3.9939110259744253`*^9, + 3.994250292663108*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"27ba6915-12db-47c4-b78f-c3fc61ea077a"] }, Open ]], Cell[CellGroupData[{ @@ -296,25 +307,87 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c11", "=", RowBox[{"1", "-", - FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"f6cb74cb-a087-4212-a782-4f230b89058c"], + +Cell[BoxData["0.2814027825454283`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.9938045499441977`*^9, 3.993804626236014*^9, { + 3.993804662725235*^9, 3.993804749036929*^9}, 3.993909601972386*^9, + 3.993909669529284*^9, 3.993909752809037*^9, 3.9939099088105917`*^9, { + 3.993909955701372*^9, 3.993909989911367*^9}, 3.993911025980928*^9, + 3.994250292679872*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"2e9bbfe1-4ed3-4e7d-a7a7-a45f015c73c6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + RowBox[{ + RowBox[{"(", RowBox[{ RowBox[{"(", - RowBox[{ - RowBox[{"R02", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b2", "*", "b2"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b2", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", - RowBox[{"d", "*", - SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", RowBox[{"(", - RowBox[{ - SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], ")"}], "/", + RowBox[{"(", RowBox[{ RowBox[{"R01", "*", RowBox[{"(", @@ -340,64 +413,7 @@ Cell[BoxData[ SuperscriptBox["w1", "2"]}], "+", RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", - SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", - CellLabel->"In[15]:=",ExpressionUUID->"f6cb74cb-a087-4212-a782-4f230b89058c"], - -Cell[BoxData["0.2814027825454283`"], "Output", - CellChangeTimes->{ - 3.991319786533783*^9, 3.9938045499441977`*^9, 3.993804626236014*^9, { - 3.993804662725235*^9, 3.993804749036929*^9}, 3.993909601972386*^9, - 3.993909669529284*^9, 3.993909752809037*^9, 3.9939099088105917`*^9, { - 3.993909955701372*^9, 3.993909989911367*^9}, 3.993911025980928*^9}, - CellLabel->"Out[15]=",ExpressionUUID->"78b5cdd2-53ca-4e6a-b5e0-c8816f50ad42"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"c12", "=", - FractionBox[ - RowBox[{ - RowBox[{"(", - RowBox[{"R02", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b2", "*", "b2"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b2", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", - RowBox[{"(", - RowBox[{"1", "-", - SuperscriptBox["w2", "2"]}], ")"}]}], - RowBox[{ - RowBox[{"R01", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b1", "*", "b1"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b1", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w2", "2"]}], "+", - RowBox[{"R02", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b2", "*", "b2"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b2", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w1", "2"]}], "+", - RowBox[{"d", "*", - SuperscriptBox["w2", "2"], "*", - SuperscriptBox["w1", "2"]}]}]]}]], "Input", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", CellLabel->"In[16]:=",ExpressionUUID->"7d00126d-ffae-4c1b-be33-cd07ef70d489"], Cell[BoxData[ @@ -406,92 +422,33 @@ Cell[BoxData[ 3.991319786540777*^9, 3.993804549962688*^9, 3.993804626257918*^9, { 3.993804662739541*^9, 3.993804749053331*^9}, 3.9939096019922533`*^9, 3.9939096695470543`*^9, 3.993909752823636*^9, 3.993909908814773*^9, { - 3.993909955715828*^9, 3.993909989925456*^9}, 3.993911025987256*^9}, - CellLabel->"Out[16]=",ExpressionUUID->"9cc60c8b-e4b6-4224-be6c-b8ab7fe1148a"] + 3.993909955715828*^9, 3.993909989925456*^9}, 3.993911025987256*^9, + 3.9942502926959267`*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"ccb9b14e-0a1b-480c-b08e-a8524678562d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c21", "=", - FractionBox[ - RowBox[{ - RowBox[{"(", - RowBox[{"R01", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b1", "*", "b1"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b1", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", - RowBox[{"(", - RowBox[{"1", "-", - SuperscriptBox["w1", "2"]}], ")"}]}], - RowBox[{ - RowBox[{"R01", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b1", "*", "b1"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b1", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w2", "2"]}], "+", - RowBox[{"R02", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b2", "*", "b2"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b2", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w1", "2"]}], "+", - RowBox[{"d", "*", - SuperscriptBox["w2", "2"], "*", - SuperscriptBox["w1", "2"]}]}]]}]], "Input", - CellLabel->"In[17]:=",ExpressionUUID->"d9347f9e-d767-4990-98b7-c1f58c909844"], - -Cell[BoxData[ - RowBox[{"-", "0.3374911667667172`"}]], "Output", - CellChangeTimes->{ - 3.9913197865777817`*^9, 3.993804549981371*^9, 3.993804626278822*^9, { - 3.9938046627542543`*^9, 3.993804749069655*^9}, 3.993909602011525*^9, - 3.993909669564651*^9, 3.993909752838642*^9, 3.9939099088478737`*^9, { - 3.993909955730867*^9, 3.993909989940257*^9}, 3.993911025993608*^9}, - CellLabel->"Out[17]=",ExpressionUUID->"e2e69391-b57e-4534-b97d-86d86f800f19"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"c22", "=", - RowBox[{"1", "-", - FractionBox[ + RowBox[{ + RowBox[{"(", RowBox[{ RowBox[{"(", - RowBox[{ - RowBox[{"R01", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b1", "*", "b1"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b1", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", - RowBox[{"d", "*", - SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", RowBox[{"(", - RowBox[{ - SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], ")"}], "/", + RowBox[{"(", RowBox[{ RowBox[{"R01", "*", RowBox[{"(", @@ -517,7 +474,72 @@ Cell[BoxData[ SuperscriptBox["w1", "2"]}], "+", RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", - SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"d9347f9e-d767-4990-98b7-c1f58c909844"], + +Cell[BoxData[ + RowBox[{"-", "0.3374911667667172`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.993804549981371*^9, 3.993804626278822*^9, { + 3.9938046627542543`*^9, 3.993804749069655*^9}, 3.993909602011525*^9, + 3.993909669564651*^9, 3.993909752838642*^9, 3.9939099088478737`*^9, { + 3.993909955730867*^9, 3.993909989940257*^9}, 3.993911025993608*^9, + 3.99425029271152*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"6d1a7e03-a9c1-4667-b61b-6d4b7a255c4f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", CellLabel->"In[18]:=",ExpressionUUID->"0bea49d8-9dad-44de-926b-6b6e61f2f2ae"], Cell[BoxData["0.5841645161809887`"], "Output", @@ -525,8 +547,9 @@ Cell[BoxData["0.5841645161809887`"], "Output", 3.9913197866129*^9, 3.99380455000006*^9, 3.993804626300075*^9, { 3.993804662773251*^9, 3.993804749085907*^9}, 3.993909602031176*^9, 3.9939096695825167`*^9, 3.993909752853649*^9, 3.993909908866128*^9, { - 3.99390995574667*^9, 3.993909989956238*^9}, 3.9939110259998426`*^9}, - CellLabel->"Out[18]=",ExpressionUUID->"d0dcb8c2-1317-4942-8551-818bda097161"] + 3.99390995574667*^9, 3.993909989956238*^9}, 3.9939110259998426`*^9, + 3.9942502927281523`*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"33098b64-2c42-4d38-9b9f-2e714c8f895e"] }, Open ]], Cell[CellGroupData[{ @@ -540,8 +563,9 @@ Cell[BoxData["300"], "Output", 3.991319786620775*^9, 3.993804550019484*^9, 3.993804626319972*^9, { 3.993804662777142*^9, 3.9938047491020308`*^9}, 3.99390960204895*^9, 3.9939096695998087`*^9, 3.9939097528680077`*^9, 3.9939099088839207`*^9, { - 3.993909955761622*^9, 3.993909989971353*^9}, 3.993911026006178*^9}, - CellLabel->"Out[19]=",ExpressionUUID->"1978b12a-dcd4-4231-bed6-41d6e7fd155f"] + 3.993909955761622*^9, 3.993909989971353*^9}, 3.993911026006178*^9, + 3.994250299409404*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"70dfc06f-68e3-416e-9da9-ac339adabe1d"] }, Open ]], Cell[CellGroupData[{ @@ -555,8 +579,9 @@ Cell[BoxData["0.09`"], "Output", 3.991319786657793*^9, 3.9938045500378237`*^9, 3.993804626339315*^9, { 3.993804662793344*^9, 3.99380474911817*^9}, 3.993909602068466*^9, 3.9939096696185913`*^9, 3.993909752884066*^9, 3.993909908903553*^9, { - 3.9939099557765713`*^9, 3.993909989986253*^9}, 3.993911026012556*^9}, - CellLabel->"Out[20]=",ExpressionUUID->"e444f26b-8200-4cb4-9680-82fd188b97f1"] + 3.9939099557765713`*^9, 3.993909989986253*^9}, 3.993911026012556*^9, + 3.994250299855226*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"32a1b04c-7033-4c0a-9e1c-2738ec41b583"] }, Open ]], Cell[CellGroupData[{ @@ -570,8 +595,9 @@ Cell[BoxData["0.42`"], "Output", 3.9913197866657925`*^9, 3.9938045500560837`*^9, 3.9938046263600817`*^9, { 3.99380466280895*^9, 3.993804749134166*^9}, 3.993909602086402*^9, 3.9939096696362677`*^9, 3.99390975290001*^9, 3.9939099089231663`*^9, { - 3.9939099557917356`*^9, 3.9939099900012712`*^9}, 3.993911026018854*^9}, - CellLabel->"Out[21]=",ExpressionUUID->"6a9987c4-ad20-4a34-9f5d-b7f7dc0588f4"] + 3.9939099557917356`*^9, 3.9939099900012712`*^9}, 3.993911026018854*^9, + 3.994250299876317*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"ca5ba3ca-a1fd-4424-9761-6bd6b2fac486"] }, Open ]], Cell[CellGroupData[{ @@ -588,8 +614,9 @@ Cell[BoxData[ 3.9913197866996*^9, 3.993804550075344*^9, 3.993804626383381*^9, { 3.99380466282749*^9, 3.993804749150152*^9}, 3.993909602104745*^9, 3.9939096696539907`*^9, 3.993909752916039*^9, 3.993909908940823*^9, { - 3.993909955808311*^9, 3.993909990017736*^9}, 3.993911026024897*^9}, - CellLabel->"Out[22]=",ExpressionUUID->"b3fd51e8-9b66-40dc-a857-9d6018470b90"] + 3.993909955808311*^9, 3.993909990017736*^9}, 3.993911026024897*^9, + 3.9942502998952627`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"4d4438c3-8f52-4a22-8390-b0144b8d8578"] }, Open ]], Cell[CellGroupData[{ @@ -603,8 +630,9 @@ Cell[BoxData["0.54`"], "Output", 3.9913197867406044`*^9, 3.993804550093996*^9, 3.99380462640412*^9, { 3.9938046628451138`*^9, 3.993804749168808*^9}, 3.993909602124238*^9, 3.993909669671417*^9, 3.9939097529322453`*^9, 3.993909908959701*^9, { - 3.99390995582368*^9, 3.9939099900328217`*^9}, 3.993911026031644*^9}, - CellLabel->"Out[23]=",ExpressionUUID->"a479a4fa-9749-4010-9d84-06b245fbcb96"] + 3.99390995582368*^9, 3.9939099900328217`*^9}, 3.993911026031644*^9, + 3.994250299913578*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"f7f920c4-0106-462a-8217-f95ded6e7d19"] }, Open ]], Cell[CellGroupData[{ @@ -621,8 +649,8 @@ Cell[BoxData["66"], "Output", 3.9913197867861958`*^9, 3.993804626423663*^9, {3.993804662861299*^9, 3.99380474918727*^9}, 3.993909602142963*^9, 3.99390966968908*^9, 3.993909752947946*^9, 3.993909908977618*^9, {3.993909955827662*^9, - 3.993909990050256*^9}, 3.9939110260374327`*^9}, - CellLabel->"Out[24]=",ExpressionUUID->"dd6290e5-a9bd-479a-8a57-a03a852e3825"] + 3.993909990050256*^9}, 3.9939110260374327`*^9, 3.994250299934997*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"6074d1ce-614c-4b79-b2f8-eac6f3a580b1"] }, Open ]], Cell[CellGroupData[{ @@ -639,8 +667,9 @@ Cell[BoxData["28"], "Output", 3.9913197867928696`*^9, 3.9938045501483994`*^9, 3.993804626442574*^9, { 3.993804662877561*^9, 3.9938047492047462`*^9}, 3.993909602161409*^9, 3.993909669707423*^9, 3.993909752964058*^9, 3.9939099089960423`*^9, { - 3.993909955845819*^9, 3.993909990065692*^9}, 3.993911026044561*^9}, - CellLabel->"Out[25]=",ExpressionUUID->"fb4b803d-fdec-4be8-ab37-76e999ba03f6"] + 3.993909955845819*^9, 3.993909990065692*^9}, 3.993911026044561*^9, + 3.994250299957096*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"b38e3014-76ac-4418-a035-c198805f79bd"] }, Open ]], Cell[CellGroupData[{ @@ -656,8 +685,9 @@ Cell[BoxData["84"], "Output", 3.991319786827894*^9, 3.993804550167096*^9, 3.993804626459854*^9, { 3.993804662896564*^9, 3.9938047492214317`*^9}, 3.993909602179817*^9, 3.993909669724697*^9, 3.993909752980503*^9, 3.9939099090164824`*^9, { - 3.993909955861395*^9, 3.9939099900817633`*^9}, 3.9939110260513973`*^9}, - CellLabel->"Out[26]=",ExpressionUUID->"18954e4f-8ebd-40e9-b0c6-f4e7389baae3"] + 3.993909955861395*^9, 3.9939099900817633`*^9}, 3.9939110260513973`*^9, + 3.994250299978837*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"5bd535b6-aa56-4261-8cef-760790b6bd61"] }, Open ]], Cell[CellGroupData[{ @@ -679,8 +709,9 @@ Cell[BoxData["0.11153846153846153`"], "Output", 3.9913197868648605`*^9, 3.9938045501856823`*^9, 3.993804626476894*^9, { 3.993804662912559*^9, 3.993804749238111*^9}, 3.993909602199831*^9, 3.993909669742579*^9, 3.9939097529958878`*^9, 3.993909909035789*^9, { - 3.993909955876047*^9, 3.9939099900975027`*^9}, 3.993911026059709*^9}, - CellLabel->"Out[27]=",ExpressionUUID->"ba3efe79-0215-4f83-aa02-94625f8226dd"] + 3.993909955876047*^9, 3.9939099900975027`*^9}, 3.993911026059709*^9, + 3.9942502999977922`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"77d476b6-2110-46db-bfd7-dd30b2a20e81"] }, Open ]], Cell[CellGroupData[{ @@ -703,8 +734,9 @@ Cell[BoxData[ 3.9913197868718567`*^9, 3.993804550204549*^9, 3.9938046264931793`*^9, { 3.993804662930933*^9, 3.993804749256987*^9}, 3.993909602217969*^9, 3.993909669760494*^9, 3.99390975301192*^9, 3.993909909054161*^9, { - 3.99390995589108*^9, 3.993909990112661*^9}, 3.993911026066537*^9}, - CellLabel->"Out[28]=",ExpressionUUID->"7243a7f6-a15b-461c-ae4b-ec0b170641d6"] + 3.99390995589108*^9, 3.993909990112661*^9}, 3.993911026066537*^9, + 3.994250300017647*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"277775d4-31a7-442e-8850-50f355f6e787"] }, Open ]], Cell[CellGroupData[{ @@ -742,8 +774,9 @@ Cell[BoxData["22.163907548137733`"], "Output", 3.9913197869068584`*^9, 3.993804550224925*^9, 3.993804626512244*^9, { 3.993804662948985*^9, 3.993804749273611*^9}, 3.993909602237144*^9, 3.99390966977844*^9, 3.993909753027061*^9, 3.993909909073007*^9, { - 3.9939099559075603`*^9, 3.993909990129081*^9}, 3.9939110260734663`*^9}, - CellLabel->"Out[29]=",ExpressionUUID->"b40fec3e-362d-4d7c-a829-2553b5dcfc39"] + 3.9939099559075603`*^9, 3.993909990129081*^9}, 3.9939110260734663`*^9, + 3.994250300033599*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"65bccfdb-35d9-41a0-9959-6ec96dbe7fea"] }, Open ]], Cell[CellGroupData[{ @@ -758,8 +791,9 @@ Cell[BoxData["300"], "Output", 3.991319786940857*^9, 3.993804550242552*^9, 3.993804626529005*^9, { 3.993804662966734*^9, 3.9938047492900057`*^9}, 3.993909602255596*^9, 3.993909669800799*^9, 3.993909753041724*^9, 3.993909909091654*^9, { - 3.9939099559230347`*^9, 3.993909990146391*^9}, 3.9939110260797377`*^9}, - CellLabel->"Out[30]=",ExpressionUUID->"96022a23-09c0-41cc-b2b1-4121f2f04875"] + 3.9939099559230347`*^9, 3.993909990146391*^9}, 3.9939110260797377`*^9, + 3.9942503000570107`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"d9ada0fd-50ac-471c-9099-6e0e3afe8c1a"] }, Open ]], Cell[CellGroupData[{ @@ -776,8 +810,8 @@ Cell[BoxData["1.653`"], "Output", 3.993804550280451*^9, 3.993804626545594*^9, {3.993804662983712*^9, 3.9938047493074627`*^9}, 3.9939096022742043`*^9, 3.99390966981877*^9, 3.9939097530579777`*^9, 3.993909909111307*^9, {3.993909955941221*^9, - 3.993909990162526*^9}, 3.993911026087088*^9}, - CellLabel->"Out[31]=",ExpressionUUID->"feadcbdc-b88a-4dd3-a6fb-32cebc338291"] + 3.993909990162526*^9}, 3.993911026087088*^9, 3.994250300076017*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"9b5a8baa-f60a-4391-8408-532b5f4ff90a"] }, Open ]], Cell[BoxData[""], "Input", @@ -798,8 +832,8 @@ Cell[BoxData["0.855`"], "Output", 3.9938045503168097`*^9, 3.993804626574059*^9, {3.993804663013727*^9, 3.993804749370492*^9}, 3.993909602333745*^9, 3.99390966987148*^9, 3.9939097530831842`*^9, 3.993909909145574*^9, {3.993909955961776*^9, - 3.993909990180032*^9}, 3.9939110260975447`*^9}, - CellLabel->"Out[33]=",ExpressionUUID->"4917dc24-c690-4fbc-bb0d-e05a70c206d6"] + 3.993909990180032*^9}, 3.9939110260975447`*^9, 3.9942503001045*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"efa9e867-5390-475d-bc43-07b300aeffa9"] }, Open ]], Cell[BoxData[""], "Input", @@ -820,8 +854,8 @@ Cell[BoxData["2.405`"], "Output", 3.993804550350713*^9, 3.993804626598034*^9, {3.993804663037463*^9, 3.993804749435276*^9}, 3.9939096023888474`*^9, 3.993909669925479*^9, 3.9939097531059*^9, 3.993909909180294*^9, {3.9939099559820957`*^9, - 3.993909990196824*^9}, 3.993911026107259*^9}, - CellLabel->"Out[35]=",ExpressionUUID->"2b502167-8bb4-423e-8d65-ae2ee1b6d043"] + 3.993909990196824*^9}, 3.993911026107259*^9, 3.9942503001294622`*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"7f1a4c06-109a-4bff-b64b-7300be5c1f61"] }, Open ]], Cell[BoxData[""], "Input", @@ -842,8 +876,8 @@ Cell[BoxData["1.225`"], "Output", 3.993804550383745*^9, 3.993804626621963*^9, {3.993804663060033*^9, 3.9938047494929237`*^9}, 3.9939096024465313`*^9, 3.993909669980788*^9, 3.993909753130068*^9, 3.993909909216509*^9, {3.993909956000244*^9, - 3.993909990213717*^9}, 3.993911026117702*^9}, - CellLabel->"Out[37]=",ExpressionUUID->"c19da86d-d6fe-4e93-aa04-cd748dc8b329"] + 3.993909990213717*^9}, 3.993911026117702*^9, 3.994250300161545*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"55414141-0908-49be-b357-a5046c9a0d2a"] }, Open ]], Cell[BoxData[""], "Input", @@ -864,8 +898,8 @@ Cell[BoxData["1.63`"], "Output", 3.993804550416999*^9, 3.993804626645709*^9, {3.9938046630845337`*^9, 3.993804749547261*^9}, 3.993909602527773*^9, 3.993909670035091*^9, 3.993909753153574*^9, 3.993909909250422*^9, {3.993909956017232*^9, - 3.993909990230207*^9}, 3.9939110261278677`*^9}, - CellLabel->"Out[39]=",ExpressionUUID->"793943a0-0373-4888-bb56-ff875a0c3776"] + 3.993909990230207*^9}, 3.9939110261278677`*^9, 3.994250300185913*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"a5c7dc0b-152e-4469-a3d6-446c4947d74e"] }, Open ]], Cell[BoxData[""], "Input", @@ -886,8 +920,8 @@ Cell[BoxData["0.5571`"], "Output", 3.993804550449337*^9, 3.993804626671207*^9, {3.993804663115242*^9, 3.993804749603999*^9}, 3.993909602589055*^9, 3.9939096700891027`*^9, 3.993909753176607*^9, 3.993909909285474*^9, {3.9939099560344143`*^9, - 3.9939099902470818`*^9}, 3.993911026137753*^9}, - CellLabel->"Out[41]=",ExpressionUUID->"f0307285-9395-47ec-a8cf-1cd3c87798b1"] + 3.9939099902470818`*^9}, 3.993911026137753*^9, 3.994250300208598*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"3d5ee05b-d699-4709-8cf7-a9c1e40994d9"] }, Open ]], Cell[BoxData[""], "Input", @@ -908,8 +942,8 @@ Cell[BoxData["1.82`"], "Output", 3.993804550483719*^9, 3.993804626698537*^9, {3.993804663139299*^9, 3.993804749658854*^9}, 3.993909602653262*^9, 3.993909670143072*^9, 3.993909753199719*^9, 3.993909909346984*^9, {3.993909956051777*^9, - 3.9939099902633963`*^9}, 3.993911026147756*^9}, - CellLabel->"Out[43]=",ExpressionUUID->"cab174a2-a947-452f-9066-2a33a6bd277a"] + 3.9939099902633963`*^9}, 3.993911026147756*^9, 3.9942503002342997`*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"14a759e1-7715-4b2f-8eb6-2d196755a242"] }, Open ]], Cell[BoxData[""], "Input", @@ -929,8 +963,8 @@ Cell[BoxData["1.82`"], "Output", 3.993804550516501*^9, 3.993804626722493*^9, {3.9938046631629744`*^9, 3.993804749712779*^9}, 3.9939096027072487`*^9, 3.993909670196845*^9, 3.9939097532228928`*^9, 3.993909909381329*^9, {3.993909956068966*^9, - 3.993909990279929*^9}, 3.993911026159191*^9}, - CellLabel->"Out[45]=",ExpressionUUID->"9b2efd9e-d5b0-443e-8ee2-ecda317930d8"] + 3.993909990279929*^9}, 3.993911026159191*^9, 3.994250300258346*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"950239a7-23ca-4f4f-96ee-5aad48f76317"] }, Open ]], Cell[BoxData[""], "Input", @@ -1432,8 +1466,9 @@ Cell[BoxData[ 3.991319787430073*^9, 3.993804550599751*^9, 3.993804626769621*^9, { 3.99380466321212*^9, 3.993804749779405*^9}, 3.993909602821623*^9, 3.9939096702786417`*^9, 3.993909753275091*^9, 3.993909909468431*^9, { - 3.9939099561101503`*^9, 3.993909990324842*^9}, 3.993911026234973*^9}, - CellLabel->"Out[47]=",ExpressionUUID->"4ff8ba89-cf79-4188-a523-efcca094f28d"] + 3.9939099561101503`*^9, 3.993909990324842*^9}, 3.993911026234973*^9, + 3.994250300474783*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"8ffeda0c-fd47-4d09-b3d2-4d98b9a748ca"] }, Open ]], Cell[CellGroupData[{ @@ -1934,8 +1969,9 @@ Cell[BoxData["0.08542989528290149`"], "Output", 3.991319787574972*^9, 3.9938045506724253`*^9, 3.993804626799774*^9, { 3.993804663242297*^9, 3.993804749831417*^9}, 3.993909602850985*^9, 3.993909670308428*^9, 3.99390975330634*^9, 3.993909909504902*^9, { - 3.993909956139316*^9, 3.993909990356688*^9}, 3.993911026268642*^9}, - CellLabel->"Out[48]=",ExpressionUUID->"c872a6ca-b1d2-48fb-a63c-2599b3edd949"] + 3.993909956139316*^9, 3.993909990356688*^9}, 3.993911026268642*^9, + 3.9942503006637487`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"e3d3bdef-a3ca-4c62-9aa1-272b09151563"] }, Open ]], Cell[CellGroupData[{ @@ -2431,8 +2467,9 @@ Cell[BoxData[ 3.991319787641424*^9, 3.9938045506993027`*^9, 3.993804626828765*^9, { 3.99380466327107*^9, 3.99380474985798*^9}, 3.993909602878909*^9, 3.9939096703348618`*^9, 3.993909753333283*^9, 3.993909909537113*^9, { - 3.993909956164773*^9, 3.993909990381176*^9}, 3.9939110263003397`*^9}, - CellLabel->"Out[49]=",ExpressionUUID->"dacd1ee0-7e49-4ba3-8e78-d7c8493d27fc"] + 3.993909956164773*^9, 3.993909990381176*^9}, 3.9939110263003397`*^9, + 3.994250300776926*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"77d20ea5-7b8b-499d-b3b8-2870b2180b79"] }, Open ]], Cell[CellGroupData[{ @@ -2998,8 +3035,9 @@ Cell[BoxData[ 3.991319787711939*^9, 3.993804550730234*^9, 3.993804626860573*^9, { 3.99380466335039*^9, 3.993804749888824*^9}, 3.9939096029089117`*^9, 3.9939096703655453`*^9, 3.993909753364204*^9, 3.9939099095691557`*^9, { - 3.9939099561943274`*^9, 3.9939099904093027`*^9}, 3.9939110263336477`*^9}, - CellLabel->"Out[50]=",ExpressionUUID->"e1af7bb9-4fac-4833-a665-bd876bf16cc1"] + 3.9939099561943274`*^9, 3.9939099904093027`*^9}, 3.9939110263336477`*^9, + 3.994250300893458*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"030d6f3a-d60a-4a49-b3d4-4eed88c563e1"] }, Open ]], Cell[CellGroupData[{ @@ -3565,8 +3603,9 @@ Cell[BoxData[ 3.9913197877723045`*^9, 3.993804550761911*^9, 3.993804626893774*^9, { 3.993804663389638*^9, 3.993804749919907*^9}, 3.9939096029398603`*^9, 3.993909670396442*^9, 3.993909753395891*^9, 3.9939099096076517`*^9, { - 3.9939099562247763`*^9, 3.9939099904381638`*^9}, 3.9939110263657703`*^9}, - CellLabel->"Out[51]=",ExpressionUUID->"1611397b-532a-42c7-94c5-0f354014ef75"] + 3.9939099562247763`*^9, 3.9939099904381638`*^9}, 3.9939110263657703`*^9, + 3.994250301005281*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"9a8a3e89-4ebb-44ef-bbfb-53c0b5b9ff74"] }, Open ]], Cell[CellGroupData[{ @@ -4205,8 +4244,9 @@ Cell[BoxData[ 3.991319787833355*^9, 3.993804550797638*^9, 3.993804626930235*^9, { 3.993804663472403*^9, 3.993804749955412*^9}, 3.993909602975071*^9, 3.9939096704323187`*^9, 3.993909753433277*^9, 3.99390990964828*^9, { - 3.9939099562605953`*^9, 3.993909990472554*^9}, 3.993911026404107*^9}, - CellLabel->"Out[52]=",ExpressionUUID->"dc8422cc-d5e9-4e9a-b593-3ae2a348f82b"] + 3.9939099562605953`*^9, 3.993909990472554*^9}, 3.993911026404107*^9, + 3.9942503011224833`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"0ac657e9-b685-4b4e-85c6-0559811a7f4b"] }, Open ]], Cell[CellGroupData[{ @@ -4220,8 +4260,9 @@ Cell[BoxData["0"], "Output", 3.9913204210013676`*^9, 3.9938045508194923`*^9, 3.993804626946419*^9, { 3.993804663488306*^9, 3.993804749974567*^9}, 3.9939096029931*^9, 3.993909670451165*^9, 3.9939097534481*^9, 3.993909909666844*^9, { - 3.993909956278285*^9, 3.9939099904879293`*^9}, 3.993911026413846*^9}, - CellLabel->"Out[53]=",ExpressionUUID->"2c4e478d-d257-4fc0-b91a-ef13142d306c"] + 3.993909956278285*^9, 3.9939099904879293`*^9}, 3.993911026413846*^9, + 3.994250301145914*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"c57a9ba3-b84a-43ee-9e1a-a92c4001b8da"] }, Open ]], Cell[CellGroupData[{ @@ -4235,8 +4276,9 @@ Cell[BoxData["0"], "Output", 3.9913204210355663`*^9, 3.993804550838839*^9, 3.99380462696198*^9, { 3.993804663542288*^9, 3.993804749990815*^9}, 3.9939096030110683`*^9, 3.993909670469376*^9, 3.993909753462414*^9, 3.9939099096844893`*^9, { - 3.993909956293055*^9, 3.993909990503254*^9}, 3.993911026422203*^9}, - CellLabel->"Out[54]=",ExpressionUUID->"e0b3db66-f06b-4ee8-a5a4-ec30fcbc66d7"] + 3.993909956293055*^9, 3.993909990503254*^9}, 3.993911026422203*^9, + 3.994250301162388*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"6feed20b-a588-40f8-99b7-a0eae0294cec"] }, Open ]], Cell[CellGroupData[{ @@ -4287,8 +4329,9 @@ Cell[BoxData["111.7060296377673`"], "Output", 3.991320421068556*^9, 3.9938045508585377`*^9, 3.993804626991984*^9, { 3.993804663557494*^9, 3.9938047500074787`*^9}, 3.99390960303067*^9, 3.993909670487976*^9, 3.993909753477995*^9, 3.9939099097033167`*^9, { - 3.993909956309827*^9, 3.993909990518099*^9}, 3.993911026429702*^9}, - CellLabel->"Out[55]=",ExpressionUUID->"b5d5d469-1c62-4a57-9b6b-0c60143d0d79"] + 3.993909956309827*^9, 3.993909990518099*^9}, 3.993911026429702*^9, + 3.994250301179305*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"3bc759c7-0b91-4da5-9ff3-f90b6ae592db"] }, Open ]], Cell[CellGroupData[{ @@ -4336,8 +4379,9 @@ Cell[BoxData[ 3.991320421098543*^9, 3.993804550878648*^9, 3.993804627006651*^9, { 3.99380466357337*^9, 3.993804750023952*^9}, 3.993909603048832*^9, 3.993909670506846*^9, 3.99390975349363*^9, 3.993909909722876*^9, { - 3.9939099563244467`*^9, 3.993909990532846*^9}, 3.99391102643721*^9}, - CellLabel->"Out[56]=",ExpressionUUID->"03bf60ea-c17a-44b7-91c9-a96c062d846f"] + 3.9939099563244467`*^9, 3.993909990532846*^9}, 3.99391102643721*^9, + 3.994250301196224*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"7b5ccc9e-99d8-407e-b15f-00827abb7cdb"] }, Open ]], Cell[CellGroupData[{ @@ -4388,8 +4432,9 @@ Cell[BoxData["187.12903971509587`"], "Output", 3.9913204211275444`*^9, 3.9938045509027987`*^9, 3.993804627020084*^9, { 3.993804663589897*^9, 3.993804750040456*^9}, 3.9939096030676117`*^9, 3.9939096705252743`*^9, 3.993909753508572*^9, 3.993909909741909*^9, { - 3.993909956339319*^9, 3.9939099905477867`*^9}, 3.9939110264448433`*^9}, - CellLabel->"Out[57]=",ExpressionUUID->"86893a08-494d-49b6-936e-4ebf64bfa200"] + 3.993909956339319*^9, 3.9939099905477867`*^9}, 3.9939110264448433`*^9, + 3.994250301213335*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"93903271-4348-4122-b108-bea04a6a854c"] }, Open ]], Cell[CellGroupData[{ @@ -4402,8 +4447,9 @@ Cell[BoxData["0.2814027825454283`"], "Output", 3.9913204211385536`*^9, 3.9938045509220467`*^9, 3.993804627033495*^9, { 3.993804663606344*^9, 3.9938047500576067`*^9}, 3.993909603085306*^9, 3.993909670543174*^9, 3.993909753523663*^9, 3.9939099097598248`*^9, { - 3.993909956353833*^9, 3.993909990562546*^9}, 3.99391102645389*^9}, - CellLabel->"Out[58]=",ExpressionUUID->"14c7f59d-350d-4ff2-8b6e-e79f6d2c4381"] + 3.993909956353833*^9, 3.993909990562546*^9}, 3.99391102645389*^9, + 3.994250301229937*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"7609ea2f-75f1-43d5-93ee-a3e2a65f47c6"] }, Open ]], Cell[CellGroupData[{ @@ -4417,8 +4463,9 @@ Cell[BoxData[ 3.9913204211683464`*^9, 3.993804550940889*^9, 3.993804627047104*^9, { 3.99380466362283*^9, 3.993804750074596*^9}, 3.993909603103224*^9, 3.993909670561534*^9, 3.993909753539481*^9, 3.993909909777351*^9, { - 3.9939099563684807`*^9, 3.993909990577075*^9}, 3.9939110264630623`*^9}, - CellLabel->"Out[59]=",ExpressionUUID->"a7e9c4b9-b7bb-4ca4-b089-e562a25ffefd"] + 3.9939099563684807`*^9, 3.993909990577075*^9}, 3.9939110264630623`*^9, + 3.994250301253344*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"9bcd554e-19f9-4a90-98e8-46a310cc48d3"] }, Open ]], Cell[CellGroupData[{ @@ -4432,8 +4479,9 @@ Cell[BoxData[ 3.991320421199068*^9, 3.99380455096201*^9, 3.993804627060543*^9, { 3.9938046636401176`*^9, 3.9938047500897923`*^9}, 3.993909603121352*^9, 3.993909670579809*^9, 3.993909753557192*^9, 3.9939099097958403`*^9, { - 3.99390995638293*^9, 3.9939099905920963`*^9}, 3.9939110264700336`*^9}, - CellLabel->"Out[60]=",ExpressionUUID->"6a5edb87-6796-4994-90d8-5c61dd87722b"] + 3.99390995638293*^9, 3.9939099905920963`*^9}, 3.9939110264700336`*^9, + 3.9942503012669287`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"a3dcb00c-b799-40a9-ae27-a26f8e58f4f6"] }, Open ]], Cell[CellGroupData[{ @@ -4446,8 +4494,9 @@ Cell[BoxData["0.5841645161809887`"], "Output", 3.991320421228037*^9, 3.993804550980524*^9, 3.9938046270751667`*^9, { 3.993804663656624*^9, 3.993804750107565*^9}, 3.993909603139456*^9, 3.993909670598647*^9, 3.9939097536021843`*^9, 3.993909909812099*^9, { - 3.993909956397331*^9, 3.9939099906069927`*^9}, 3.993911026475967*^9}, - CellLabel->"Out[61]=",ExpressionUUID->"1745283d-7291-4687-b179-73118e532961"] + 3.993909956397331*^9, 3.9939099906069927`*^9}, 3.993911026475967*^9, + 3.9942503012811737`*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"4e6e8763-f436-4e6d-97b5-14c2186c52a5"] }, Open ]], Cell[CellGroupData[{ @@ -4460,8 +4509,9 @@ Cell[BoxData["2.5173601133375656`"], "Output", 3.9913204212585373`*^9, 3.993804550999857*^9, 3.993804627093104*^9, { 3.993804663673789*^9, 3.993804750123993*^9}, 3.993909603159047*^9, 3.9939096706237583`*^9, 3.993909753618161*^9, 3.993909909815946*^9, { - 3.993909956411661*^9, 3.993909990622797*^9}, 3.9939110264818974`*^9}, - CellLabel->"Out[62]=",ExpressionUUID->"248ba986-aaad-45d1-a498-0ba51f0dddc9"] + 3.993909956411661*^9, 3.993909990622797*^9}, 3.9939110264818974`*^9, + 3.994250301299151*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"03783e62-69d7-40dc-85b2-da070096357a"] }, Open ]], Cell[CellGroupData[{ @@ -4474,8 +4524,9 @@ Cell[BoxData["1.5234450434796134`"], "Output", 3.9913204212884274`*^9, 3.993804551018916*^9, 3.993804627108033*^9, { 3.993804663692298*^9, 3.993804750140585*^9}, 3.99390960317778*^9, 3.993909670643187*^9, 3.9939097536363897`*^9, 3.993909909844212*^9, { - 3.993909956428871*^9, 3.993909990639729*^9}, 3.993911026487887*^9}, - CellLabel->"Out[63]=",ExpressionUUID->"eee27ffd-1b64-4da9-8057-94ea600424af"] + 3.993909956428871*^9, 3.993909990639729*^9}, 3.993911026487887*^9, + 3.9942503013140497`*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"8cf9472b-9446-4725-abae-a243e3442867"] }, Open ]], Cell[CellGroupData[{ @@ -4504,8 +4555,9 @@ Cell[BoxData[ 3.9913204213185234`*^9, 3.993804551037992*^9, 3.993804627123701*^9, { 3.993804663711438*^9, 3.993804750156764*^9}, 3.993909603196027*^9, 3.993909670663684*^9, 3.99390975365348*^9, 3.993909909862356*^9, { - 3.993909956443829*^9, 3.993909990654669*^9}, 3.9939110264942513`*^9}, - CellLabel->"Out[64]=",ExpressionUUID->"53851cdf-cc95-4a81-9fac-1b691aa96f65"] + 3.993909956443829*^9, 3.993909990654669*^9}, 3.9939110264942513`*^9, + 3.9942503013282843`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"f0f93970-8be6-4e07-92c0-7393fc923804"] }, Open ]], Cell[CellGroupData[{ @@ -4534,8 +4586,9 @@ Cell[BoxData[ 3.991320421349531*^9, 3.99380455105733*^9, 3.993804627139119*^9, { 3.993804663729148*^9, 3.993804750173326*^9}, 3.993909603216249*^9, 3.993909670683181*^9, 3.993909753671298*^9, 3.993909909877062*^9, { - 3.993909956460279*^9, 3.993909990669105*^9}, 3.9939110265004187`*^9}, - CellLabel->"Out[65]=",ExpressionUUID->"bf1a0f1f-ecc7-42db-acca-9f31d559799f"] + 3.993909956460279*^9, 3.993909990669105*^9}, 3.9939110265004187`*^9, + 3.9942503013423843`*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"bda17cdc-dd38-46ae-86e0-01c390027488"] }, Open ]], Cell[CellGroupData[{ @@ -4607,8 +4660,9 @@ Cell[BoxData["93.52813324924097`"], "Output", 3.9913204213784294`*^9, 3.9938045510774317`*^9, 3.993804627154879*^9, { 3.993804663746785*^9, 3.993804750189831*^9}, 3.993909603237997*^9, 3.99390967070298*^9, 3.993909753690928*^9, 3.993909909892799*^9, { - 3.9939099564827127`*^9, 3.993909990683666*^9}, 3.993911026506887*^9}, - CellLabel->"Out[66]=",ExpressionUUID->"0876a694-86ec-4c4e-962b-51412f329ea1"] + 3.9939099564827127`*^9, 3.993909990683666*^9}, 3.993911026506887*^9, + 3.99425030135781*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"71456237-9957-44af-bc44-eb43c2edd485"] }, Open ]], Cell[CellGroupData[{ @@ -4657,8 +4711,9 @@ Cell[BoxData[ 3.9913204213904285`*^9, 3.993804551098919*^9, 3.99380462716993*^9, { 3.99380466376478*^9, 3.993804750205999*^9}, 3.9939096032579308`*^9, 3.99390967072291*^9, 3.993909753708663*^9, 3.993909909912747*^9, { - 3.9939099564995337`*^9, 3.993909990698875*^9}, 3.993911026514776*^9}, - CellLabel->"Out[67]=",ExpressionUUID->"b7916e35-f77b-4846-a227-56723c75d258"] + 3.9939099564995337`*^9, 3.993909990698875*^9}, 3.993911026514776*^9, + 3.99425030137446*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"0521c1ce-c963-4bea-90b7-2d0f13c3c8b9"] }, Open ]], Cell[CellGroupData[{ @@ -4731,8 +4786,9 @@ Cell[BoxData["182.70610789396713`"], "Output", 3.991320421419428*^9, 3.993804551121139*^9, 3.993804627185237*^9, { 3.9938046637699213`*^9, 3.993804750221984*^9}, 3.993909603279203*^9, 3.993909670743991*^9, 3.993909753728705*^9, 3.993909909930686*^9, { - 3.993909956518093*^9, 3.9939099907215357`*^9}, 3.9939110265220127`*^9}, - CellLabel->"Out[68]=",ExpressionUUID->"8f995499-97da-474e-8d87-84d5591275b5"] + 3.993909956518093*^9, 3.9939099907215357`*^9}, 3.9939110265220127`*^9, + 3.994250301392256*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"e36bbd70-8830-42b1-adae-0edf9e8bb547"] }, Open ]], Cell[CellGroupData[{ @@ -4797,8 +4853,9 @@ Cell[BoxData["150.0362849602646`"], "Output", 3.9913204214494324`*^9, 3.9938045511434107`*^9, 3.993804627199387*^9, { 3.9938046637889233`*^9, 3.993804750238797*^9}, 3.993909603297597*^9, 3.993909670763399*^9, 3.993909753746546*^9, 3.993909909946938*^9, { - 3.99390995653423*^9, 3.993909990735869*^9}, 3.99391102652905*^9}, - CellLabel->"Out[69]=",ExpressionUUID->"13722f58-d3d8-4fca-b758-a5cf2126b35a"] + 3.99390995653423*^9, 3.993909990735869*^9}, 3.99391102652905*^9, + 3.994250301409275*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"c4d3ed78-7eec-4a12-9453-98af057f8970"] }, Open ]], Cell[CellGroupData[{ @@ -4863,8 +4920,9 @@ Cell[BoxData["845.8339546196385`"], "Output", 3.991320421481529*^9, 3.993804551165799*^9, 3.993804627215629*^9, { 3.9938046638111277`*^9, 3.993804750255252*^9}, 3.993909603318231*^9, 3.993909670782775*^9, 3.993909753763286*^9, 3.993909909962928*^9, { - 3.9939099565492992`*^9, 3.993909990750906*^9}, 3.993911026536921*^9}, - CellLabel->"Out[70]=",ExpressionUUID->"8742e682-ce45-4a66-aaa2-ee9c276ce0a1"] + 3.9939099565492992`*^9, 3.993909990750906*^9}, 3.993911026536921*^9, + 3.994250301424849*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"04aa6988-f91a-4420-9cfd-72693271b536"] }, Open ]], Cell[CellGroupData[{ @@ -4876,8 +4934,8 @@ Cell[BoxData[ CellLabel->"In[71]:=",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], Cell[BoxData["0.47396`"], "Output", - CellChangeTimes->{3.993911026543569*^9}, - CellLabel->"Out[71]=",ExpressionUUID->"e3e4a6c4-a3b3-427c-9a50-d68e8a1f7c20"] + CellChangeTimes->{3.993911026543569*^9, 3.994250301440411*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"dd872366-165e-4cd4-a19a-e7457f2f03b2"] }, Open ]], Cell[BoxData[""], "Input", @@ -4893,8 +4951,8 @@ Cell[BoxData[ CellLabel->"In[73]:=",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], Cell[BoxData["0.24466`"], "Output", - CellChangeTimes->{3.9939110265571623`*^9}, - CellLabel->"Out[73]=",ExpressionUUID->"8fcd0982-58af-41c6-9a1c-179b00570a3d"] + CellChangeTimes->{3.9939110265571623`*^9, 3.9942503016354523`*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"cf899672-b9e9-4eda-bae2-ddcac48eb2b1"] }, Open ]], Cell[BoxData[""], "Input", @@ -4948,8 +5006,9 @@ Cell[BoxData[ CellLabel->"In[75]:=",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], Cell[BoxData["3.0421649672677`*^-53"], "Output", - CellChangeTimes->{3.9913437871842365`*^9, 3.9939110265692263`*^9}, - CellLabel->"Out[75]=",ExpressionUUID->"e1888170-e28e-4003-b74c-8d497f9d1c16"] + CellChangeTimes->{3.9913437871842365`*^9, 3.9939110265692263`*^9, + 3.994250301715479*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"94959f9d-bab0-4f6a-aa02-ac5789aff988"] }, Open ]], Cell[CellGroupData[{ @@ -4987,8 +5046,9 @@ Cell[BoxData[ CellLabel->"In[76]:=",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], Cell[BoxData["1.0552510023146262`*^-54"], "Output", - CellChangeTimes->{3.9913437872132397`*^9, 3.9939110265770597`*^9}, - CellLabel->"Out[76]=",ExpressionUUID->"78ee89a4-569b-4189-a96c-b57d8156a57f"] + CellChangeTimes->{3.9913437872132397`*^9, 3.9939110265770597`*^9, + 3.9942503017434063`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"8975f5b3-40f5-4106-b1f8-c041d5892c95"] }, Open ]], Cell[CellGroupData[{ @@ -5025,8 +5085,9 @@ Cell[BoxData[ CellLabel->"In[77]:=",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], Cell[BoxData["1.1823542679164208`*^-54"], "Output", - CellChangeTimes->{3.9913437872412376`*^9, 3.99391102658421*^9}, - CellLabel->"Out[77]=",ExpressionUUID->"7c141914-b00d-4538-b329-763a7da61522"] + CellChangeTimes->{3.9913437872412376`*^9, 3.99391102658421*^9, + 3.9942503017721453`*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"1be4bc5a-808d-4484-bf6a-8144aa8f80c9"] }, Open ]], Cell[CellGroupData[{ @@ -5052,8 +5113,9 @@ Cell[BoxData[ CellLabel->"In[78]:=",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], Cell[BoxData["16.516942672454782`"], "Output", - CellChangeTimes->{3.9913437872672386`*^9, 3.993911026593739*^9}, - CellLabel->"Out[78]=",ExpressionUUID->"a9468761-a43c-4c9c-85e6-9751630c2760"] + CellChangeTimes->{3.9913437872672386`*^9, 3.993911026593739*^9, + 3.994250301801858*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"5468c7d8-ab52-4d19-861c-0bb54733360e"] }, Open ]], Cell[CellGroupData[{ @@ -5082,8 +5144,9 @@ Cell[BoxData[ CellLabel->"In[79]:=",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], Cell[BoxData["34.86168487825869`"], "Output", - CellChangeTimes->{3.991343787279253*^9, 3.9939110266013813`*^9}, - CellLabel->"Out[79]=",ExpressionUUID->"9050ae96-7402-4e5f-bedc-f8add3abbc1a"] + CellChangeTimes->{3.991343787279253*^9, 3.9939110266013813`*^9, + 3.994250301826263*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"51853cc2-b01c-4df1-939b-43045adcb9cc"] }, Open ]], Cell[CellGroupData[{ @@ -5095,8 +5158,9 @@ Cell[BoxData[ CellLabel->"In[80]:=",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], Cell[BoxData["3.013931102943886`"], "Output", - CellChangeTimes->{3.9913437873062572`*^9, 3.9939110266466103`*^9}, - CellLabel->"Out[80]=",ExpressionUUID->"e411e238-3a34-412e-8148-74adc1584ba6"] + CellChangeTimes->{3.9913437873062572`*^9, 3.9939110266466103`*^9, + 3.994250301884644*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"767de6be-4ba9-4ae0-95ae-fe98444b9edc"] }, Open ]], Cell[CellGroupData[{ @@ -5108,8 +5172,9 @@ Cell[BoxData[ CellLabel->"In[81]:=",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], Cell[BoxData["4.925704690662333`"], "Output", - CellChangeTimes->{3.9913437873353844`*^9, 3.993911026654891*^9}, - CellLabel->"Out[81]=",ExpressionUUID->"d5908411-d1f1-4833-be44-5cc9a7b80907"] + CellChangeTimes->{3.9913437873353844`*^9, 3.993911026654891*^9, + 3.994250301908081*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"0820fe86-ac82-4d93-b13e-f019360a38da"] }, Open ]], Cell[CellGroupData[{ @@ -5121,8 +5186,9 @@ Cell[BoxData[ CellLabel->"In[82]:=",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], Cell[BoxData["171.71836472923098`"], "Output", - CellChangeTimes->{3.991343787361582*^9, 3.9939110266621637`*^9}, - CellLabel->"Out[82]=",ExpressionUUID->"13c529cb-6d29-4e8a-83d9-9b0aec974e9e"] + CellChangeTimes->{3.991343787361582*^9, 3.9939110266621637`*^9, + 3.9942503019314632`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"4c93d05e-b772-4dd2-a3cc-df02ffb2e94f"] }, Open ]], Cell[CellGroupData[{ @@ -5134,8 +5200,9 @@ Cell[BoxData[ CellLabel->"In[83]:=",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], Cell[BoxData["49.78092724605258`"], "Output", - CellChangeTimes->{3.9913437873734856`*^9, 3.993911026669231*^9}, - CellLabel->"Out[83]=",ExpressionUUID->"3a303b3f-8765-46a5-be66-86e7dc0e589b"] + CellChangeTimes->{3.9913437873734856`*^9, 3.993911026669231*^9, + 3.994250301954953*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"c7389358-4679-4a88-90fa-b1d9c086e30f"] }, Open ]], Cell[CellGroupData[{ @@ -5327,8 +5394,9 @@ Cell[BoxData[ CellLabel->"In[84]:=",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], Cell[BoxData["0.0055133366277036345`"], "Output", - CellChangeTimes->{3.9913437874002857`*^9, 3.993911026676877*^9}, - CellLabel->"Out[84]=",ExpressionUUID->"7bafc6ea-457b-4c21-85ab-1539fb266eef"] + CellChangeTimes->{3.9913437874002857`*^9, 3.993911026676877*^9, + 3.994250301989441*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"b6a8ef9e-92af-4032-8705-88d583616763"] }, Open ]], Cell[CellGroupData[{ @@ -5344,8 +5412,9 @@ Cell[BoxData[ CellLabel->"In[85]:=",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], Cell[BoxData["11.935419437135247`"], "Output", - CellChangeTimes->{3.9913437875033875`*^9, 3.9939110268130608`*^9}, - CellLabel->"Out[85]=",ExpressionUUID->"818510c7-70d2-4476-8ab6-6e092ef30694"] + CellChangeTimes->{3.9913437875033875`*^9, 3.9939110268130608`*^9, + 3.994250302370738*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"dce6a459-8d19-4d3b-922a-b12dc58e0344"] }, Open ]], Cell[CellGroupData[{ @@ -5539,8 +5608,9 @@ Cell[BoxData[ CellLabel->"In[86]:=",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], Cell[BoxData["0.019067186452883994`"], "Output", - CellChangeTimes->{3.9913437875342865`*^9, 3.993911026822516*^9}, - CellLabel->"Out[86]=",ExpressionUUID->"00dabf05-a61f-4385-a1ba-cb9cc0184da4"] + CellChangeTimes->{3.9913437875342865`*^9, 3.993911026822516*^9, + 3.994250302398115*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"13ac36c9-dd0e-429c-8275-a71d968b4276"] }, Open ]], Cell[CellGroupData[{ @@ -5556,8 +5626,9 @@ Cell[BoxData[ CellLabel->"In[87]:=",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], Cell[BoxData["6.418028391611255`"], "Output", - CellChangeTimes->{3.9913437876352882`*^9, 3.9939110268702173`*^9}, - CellLabel->"Out[87]=",ExpressionUUID->"026f6c10-de57-4902-ba20-9da41c4f2df8"] + CellChangeTimes->{3.9913437876352882`*^9, 3.9939110268702173`*^9, + 3.9942503025139503`*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"82ae4efb-fb32-4065-bcc6-3d32611fc50a"] }, Open ]], Cell[CellGroupData[{ @@ -5652,8 +5723,9 @@ Cell[BoxData[ CellLabel->"In[88]:=",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], Cell[BoxData["0.1245822467542299`"], "Output", - CellChangeTimes->{3.991343787650694*^9, 3.993911026877453*^9}, - CellLabel->"Out[88]=",ExpressionUUID->"421371bc-b610-4de8-8cd4-4cda93366277"] + CellChangeTimes->{3.991343787650694*^9, 3.993911026877453*^9, + 3.994250302545946*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"03f9f0ed-9287-4930-9df7-c9571694d476"] }, Open ]], Cell[CellGroupData[{ @@ -5745,8 +5817,9 @@ Cell[BoxData[ CellLabel->"In[89]:=",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], Cell[BoxData["0.8754177532457702`"], "Output", - CellChangeTimes->{3.9913437876776943`*^9, 3.993911026883663*^9}, - CellLabel->"Out[89]=",ExpressionUUID->"8635dd4c-9a2c-4de9-873a-e72bfa6d877a"] + CellChangeTimes->{3.9913437876776943`*^9, 3.993911026883663*^9, + 3.994250302578226*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"d277254f-1aa1-47a9-ab8d-ea37f8449e66"] }, Open ]], Cell[CellGroupData[{ @@ -5871,8 +5944,9 @@ Cell[BoxData[ CellLabel->"In[90]:=",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], Cell[BoxData["0.10906151054789807`"], "Output", - CellChangeTimes->{3.9913437877049465`*^9, 3.993911026891502*^9}, - CellLabel->"Out[90]=",ExpressionUUID->"b4d6351a-1815-4d82-b166-22e6e6a2f795"] + CellChangeTimes->{3.9913437877049465`*^9, 3.993911026891502*^9, + 3.994250302609631*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"cf4bfeaa-a805-4624-b76c-a5351eb982e5"] }, Open ]], Cell[BoxData[ @@ -5946,63 +6020,71 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.5112134123227008`*^-210\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 92, 1, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 1, + 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913437877189426`*^9, 3.993911026910644*^9}, + CellChangeTimes->{3.9913437877189426`*^9, 3.993911026910644*^9, + 3.9942503028313723`*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"296c0829-dbd3-4704-93b8-8265a14487d0"], +In[92]:=",ExpressionUUID->"62a245d6-75fc-43a8-9206-3b40aecd7d51"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.9942299602432769`*^-215\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 92, 2, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 2, + 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913437877189426`*^9, 3.993911026914609*^9}, + CellChangeTimes->{3.9913437877189426`*^9, 3.993911026910644*^9, + 3.994250302922442*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"4213c482-804d-47eb-a01f-f662c6240e41"], +In[92]:=",ExpressionUUID->"240babca-9508-4e27-9b6a-b9e075b6b779"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.6316290617216097`*^-220\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 92, 3, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 3, + 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913437877189426`*^9, 3.993911026918077*^9}, + CellChangeTimes->{3.9913437877189426`*^9, 3.993911026910644*^9, + 3.994250302932231*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"a5fb6b58-c5c6-4772-b54f-32a14986f05a"], +In[92]:=",ExpressionUUID->"81766610-946d-4385-9ee0-149c97146aea"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 92, 4, 31385386217134927151, "kernel 5"}, +during this calculation.\"", 2, 92, 4, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913437877189426`*^9, 3.9939110269218197`*^9}, + CellChangeTimes->{3.9913437877189426`*^9, 3.993911026910644*^9, + 3.994250302940276*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"0487bdeb-6054-4bb2-b631-2f97464bff3b"], +In[92]:=",ExpressionUUID->"a2cc2bb0-2145-4f67-afac-68607f710b26"], Cell[BoxData["11.935419437135241`"], "Output", - CellChangeTimes->{3.991343791131052*^9, 3.99391102846467*^9}, - CellLabel->"Out[92]=",ExpressionUUID->"9c6cb9a4-43eb-44fa-9cbe-2371e1023a3d"] + CellChangeTimes->{3.991343791131052*^9, 3.99391102846467*^9, + 3.994250306472393*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"69e16565-4021-4a97-91c6-a3b99855cc0d"] }, Open ]], Cell[CellGroupData[{ @@ -6071,63 +6153,71 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.5112134123227008`*^-210\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 93, 5, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 5, + 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913437911686516`*^9, 3.993911028532855*^9}, + CellChangeTimes->{3.9913437911686516`*^9, 3.993911028532855*^9, + 3.9942503065731792`*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"000bf45f-2856-4d01-b6b2-aa7c1c29711a"], +In[93]:=",ExpressionUUID->"acfd05e1-94af-44fd-9ad2-767b5cf0fa54"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.9942299602432769`*^-215\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 93, 6, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 6, + 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913437911686516`*^9, 3.9939110285371103`*^9}, + CellChangeTimes->{3.9913437911686516`*^9, 3.993911028532855*^9, + 3.994250306582973*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"76a89296-9be8-449b-ba2f-f530cc351cf4"], +In[93]:=",ExpressionUUID->"412f973f-f41e-4047-bccb-39764effacff"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.6316290617216097`*^-220\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 93, 7, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 7, + 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913437911686516`*^9, 3.993911028541278*^9}, + CellChangeTimes->{3.9913437911686516`*^9, 3.993911028532855*^9, + 3.9942503065916367`*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"016a40ba-d463-488a-8313-66bc1e671eed"], +In[93]:=",ExpressionUUID->"dd9e0ca5-c1cc-4a8f-b738-68c8eebc793e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 93, 8, 31385386217134927151, "kernel 5"}, +during this calculation.\"", 2, 93, 8, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913437911686516`*^9, 3.993911028545239*^9}, + CellChangeTimes->{3.9913437911686516`*^9, 3.993911028532855*^9, + 3.9942503066011133`*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"121a7e3e-35a8-48f2-ad97-66c07aa8c206"], +In[93]:=",ExpressionUUID->"efc110e0-422a-4af2-97fa-c9ebed11a5f6"], Cell[BoxData["6.4180283916112515`"], "Output", - CellChangeTimes->{3.991343794599764*^9, 3.9939110300447493`*^9}, - CellLabel->"Out[93]=",ExpressionUUID->"9cb3e202-b1d4-409f-bdad-bf5af816582b"] + CellChangeTimes->{3.991343794599764*^9, 3.9939110300447493`*^9, + 3.994250310246695*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"aaae4457-4efd-4f12-b620-32b3f316f003"] }, Open ]], Cell[CellGroupData[{ @@ -6137,50 +6227,52 @@ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ - FractionBox[ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", RowBox[{ - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", - RowBox[{"Cos", "[", - FractionBox[ - RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], - RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{3.9918501631488323`*^9}, @@ -6570,8 +6662,9 @@ lluN/X/6KvtW Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913440619685707`*^9, 3.993911315265519*^9}, - CellLabel->"Out[94]=",ExpressionUUID->"5ac2e6ff-e160-4f74-ae87-ee4fbb012d7e"] + CellChangeTimes->{3.9913440619685707`*^9, 3.993911315265519*^9, + 3.9942508769320393`*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"f3031d97-eb5d-485f-88d0-0c0734645391"] }, Open ]], Cell[CellGroupData[{ @@ -6643,13 +6736,14 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"4.830928356369934`*^-272\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 95, 9, - 31385386217134927151, "kernel 5"}, + 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913440621885586`*^9, 3.99391131562094*^9}, + CellChangeTimes->{3.9913440621885586`*^9, 3.99391131562094*^9, + 3.994250877498868*^9}, CellLabel-> "During evaluation of \ -In[95]:=",ExpressionUUID->"c9a7e4d7-d037-448b-b83a-b387245fc0d8"], +In[95]:=",ExpressionUUID->"7ea45914-5656-4944-9ed2-caa595b4b2af"], Cell[BoxData[ TemplateBox[{ @@ -6657,13 +6751,14 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"2.3944101145426107`*^-283\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, 95, - 10, 31385386217134927151, "kernel 5"}, + 10, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913440621885586`*^9, 3.993911315632498*^9}, + CellChangeTimes->{3.9913440621885586`*^9, 3.99391131562094*^9, + 3.994250877508827*^9}, CellLabel-> "During evaluation of \ -In[95]:=",ExpressionUUID->"7ac18c6d-5ea9-4bc1-b86e-acd7f4b02743"], +In[95]:=",ExpressionUUID->"cd2c8174-ba71-48cc-b14e-df25cfdf381a"], Cell[BoxData[ TemplateBox[{ @@ -6671,26 +6766,28 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"1.1867697828853772`*^-294\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 95, 11, 31385386217134927151, "kernel 5"}, + 2, 95, 11, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913440621885586`*^9, 3.993911315641189*^9}, + CellChangeTimes->{3.9913440621885586`*^9, 3.99391131562094*^9, + 3.994250877518141*^9}, CellLabel-> "During evaluation of \ -In[95]:=",ExpressionUUID->"a00d6dba-d985-411b-ab3f-e20ccfd84bae"], +In[95]:=",ExpressionUUID->"fd8c3cde-89b6-4912-bd95-2e42c516eb50"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 95, 12, 31385386217134927151, "kernel 5"}, +during this calculation.\"", 2, 95, 12, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913440621885586`*^9, 3.99391131564962*^9}, + CellChangeTimes->{3.9913440621885586`*^9, 3.99391131562094*^9, + 3.9942508775277023`*^9}, CellLabel-> "During evaluation of \ -In[95]:=",ExpressionUUID->"4b0ec7c9-539c-464c-ae7d-cf14a96e932c"], +In[95]:=",ExpressionUUID->"c0160085-ac39-4706-8be7-a0f656c1cd92"], Cell[BoxData[ GraphicsBox[ @@ -7107,8 +7204,9 @@ Hx58blY= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.99134491550045*^9, 3.993911657431486*^9}, - CellLabel->"Out[95]=",ExpressionUUID->"9f4e2c34-4db8-4279-a995-fd58feb3c00e"] + CellChangeTimes->{3.99134491550045*^9, 3.993911657431486*^9, + 3.994251455652807*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"d154182e-0511-491a-b266-3083e57fa75b"] }, Open ]], Cell[CellGroupData[{ @@ -7405,8 +7503,8 @@ SA== Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.993911657596561*^9}, - CellLabel->"Out[96]=",ExpressionUUID->"292f58bb-a964-46f8-a590-e5fa0410c9d4"] + CellChangeTimes->{3.993911657596561*^9, 3.994251455872532*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"fe94a47c-5a4e-4064-8ac5-ffe6d46e1cf1"] }, Open ]], Cell[CellGroupData[{ @@ -7964,8 +8062,8 @@ SA== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9939116576326847`*^9}, - CellLabel->"Out[97]=",ExpressionUUID->"eaba24d7-620a-4380-9738-49541306e8d9"] + CellChangeTimes->{3.9939116576326847`*^9, 3.994251455918995*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"21b60f58-8a72-4338-aa98-329b7a33c5e7"] }, Open ]], Cell[CellGroupData[{ @@ -7979,8 +8077,9 @@ Cell[BoxData[ CellLabel->"In[98]:=",ExpressionUUID->"1ec1e156-ca0f-9240-857c-ac86e3a0e3fd"], Cell[BoxData["11.613237631253016`"], "Output", - CellChangeTimes->{3.9913453868532257`*^9, 3.993911657669715*^9}, - CellLabel->"Out[98]=",ExpressionUUID->"a351bf50-4c20-4251-82d4-a4ccf332deb2"] + CellChangeTimes->{3.9913453868532257`*^9, 3.993911657669715*^9, + 3.9942514559681063`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"422bb6fa-8149-42cf-9a6f-7e74164172b6"] }, Open ]], Cell[CellGroupData[{ @@ -8045,13 +8144,14 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"4.904607396701518`*^-259\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 99, 13, 31385386217134927151, "kernel 5"}, + 2, 99, 13, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991345387062414*^9, 3.993911657786788*^9}, + CellChangeTimes->{3.991345387062414*^9, 3.993911657786788*^9, + 3.994251456090966*^9}, CellLabel-> "During evaluation of \ -In[99]:=",ExpressionUUID->"9d3dc5e4-443c-4d81-bc23-10ac0c3d65ea"], +In[99]:=",ExpressionUUID->"a2b870fb-6aea-4498-8019-f36b38f6688a"], Cell[BoxData[ TemplateBox[{ @@ -8059,13 +8159,14 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"5.696754303754148`*^-269\\\", \ \\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 99, 14, 31385386217134927151, "kernel 5"}, + 2, 99, 14, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991345387062414*^9, 3.993911657794146*^9}, + CellChangeTimes->{3.991345387062414*^9, 3.993911657786788*^9, + 3.9942514561015053`*^9}, CellLabel-> "During evaluation of \ -In[99]:=",ExpressionUUID->"9cefbd51-2850-4ea6-81aa-875466d3d63f"], +In[99]:=",ExpressionUUID->"6d8017e6-7234-4d73-9935-e763b01c361c"], Cell[BoxData[ TemplateBox[{ @@ -8073,26 +8174,28 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"6.616841466080842`*^-279\\\", \ \\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 99, 15, 31385386217134927151, "kernel 5"}, +\"", 2, 99, 15, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991345387062414*^9, 3.9939116578017607`*^9}, + CellChangeTimes->{3.991345387062414*^9, 3.993911657786788*^9, + 3.994251456110612*^9}, CellLabel-> "During evaluation of \ -In[99]:=",ExpressionUUID->"dca8c5b8-e941-486c-89c2-b98d8fa38644"], +In[99]:=",ExpressionUUID->"d86f9105-dc40-4c97-8689-6ca58379b43c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 99, 16, 31385386217134927151, "kernel 5"}, +during this calculation.\"", 2, 99, 16, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991345387062414*^9, 3.993911657810419*^9}, + CellChangeTimes->{3.991345387062414*^9, 3.993911657786788*^9, + 3.9942514561189547`*^9}, CellLabel-> "During evaluation of \ -In[99]:=",ExpressionUUID->"e205f72e-044f-4d1e-8b54-b23d5e4150e4"], +In[99]:=",ExpressionUUID->"8a9ea937-fa95-4e1a-80aa-716bb8e680b0"], Cell[BoxData[ GraphicsBox[ @@ -8500,8 +8603,9 @@ MX3dqXKai5F3j3X4h9uB2Ooc9QMzXKw+Uyuh4G4HKUcqJ2ZnuXh40Z3ytm12 Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913457856953163`*^9, 3.993912062338183*^9}, - CellLabel->"Out[99]=",ExpressionUUID->"bb49d1a1-7eb5-4d6b-a436-f9f95b11eb94"] + CellChangeTimes->{3.9913457856953163`*^9, 3.993912062338183*^9, + 3.994252173640203*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"1eb9cba5-9bb2-4af3-b3ad-951aa2f6b1df"] }, Open ]], Cell[CellGroupData[{ @@ -8560,64 +8664,72 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0128416120806113`*^-179\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 100, 17, 31385386217134927151, "kernel 5"}, +RowBox[{\\\"240596938679980309735403735113653345779\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"54\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8305808000876544000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 17, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991345785749161*^9, 3.993912062467863*^9}, + CellChangeTimes->{3.991345785749161*^9, 3.993912062467863*^9, + 3.994252173801869*^9}, CellLabel-> "During evaluation of \ -In[100]:=",ExpressionUUID->"2c94236a-5717-4dce-8696-3f984e8d8cec"], +In[100]:=",ExpressionUUID->"e75deb7d-80eb-4b55-90bd-60ffc1a293e0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.1321768243752935`*^-183\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 100, 18, 31385386217134927151, "kernel 5"}, +RowBox[{\\\"650574122190666757524531699747318646986\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"57\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8904834370174976000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 18, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991345785749161*^9, 3.993912062477399*^9}, + CellChangeTimes->{3.991345785749161*^9, 3.993912062467863*^9, + 3.994252173812512*^9}, CellLabel-> "During evaluation of \ -In[100]:=",ExpressionUUID->"fd04b7a1-f9ae-44bd-ac15-8e0176699632"], +In[100]:=",ExpressionUUID->"3e765f54-6cc1-4fc9-8063-e4a5434402a8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.686145930557288`*^-187\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 100, 19, 31385386217134927151, "kernel 5"}, +RowBox[{\\\"182746270923358292188640954459021807938\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"61\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3679745821507584000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 19, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991345785749161*^9, 3.993912062486833*^9}, + CellChangeTimes->{3.991345785749161*^9, 3.993912062467863*^9, + 3.9942521738240757`*^9}, CellLabel-> "During evaluation of \ -In[100]:=",ExpressionUUID->"234252e5-9eb6-4e3e-a1ca-3244847369b5"], +In[100]:=",ExpressionUUID->"e52a9643-3654-4d1b-a436-18a6922ac507"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 100, 20, 31385386217134927151, "kernel 5"}, +during this calculation.\"", 2, 100, 20, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991345785749161*^9, 3.993912062495741*^9}, + CellChangeTimes->{3.991345785749161*^9, 3.993912062467863*^9, + 3.9942521738337517`*^9}, CellLabel-> "During evaluation of \ -In[100]:=",ExpressionUUID->"4f8284a2-3caf-4d00-9aa3-1c4d5e1a3cb4"], +In[100]:=",ExpressionUUID->"23c6f83b-5440-4654-97a6-c4948d5d2ee3"], Cell[BoxData["11.613235513929938`"], "Output", - CellChangeTimes->{3.991345792196575*^9, 3.993912106297695*^9}, + CellChangeTimes->{3.991345792196575*^9, 3.993912106297695*^9, + 3.994252254262783*^9}, CellLabel-> - "Out[100]=",ExpressionUUID->"dd95c4b4-9027-4cce-ae10-02c85448fcd9"] + "Out[100]=",ExpressionUUID->"bd6af69c-1be1-4028-86ce-6dd3f8d40229"] }, Open ]], Cell[CellGroupData[{ @@ -8692,64 +8804,72 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.5112134123227008`*^-210\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 101, 21, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 21, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991345792232563*^9, 3.9939121063590193`*^9}, + CellChangeTimes->{3.991345792232563*^9, 3.9939121063590193`*^9, + 3.994252254341092*^9}, CellLabel-> "During evaluation of \ -In[101]:=",ExpressionUUID->"3c1ff53b-02d7-4ddb-ba18-d22d155e0697"], +In[101]:=",ExpressionUUID->"4b2f325e-0682-41c6-bea3-fc07be75ef02"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.9942299602432769`*^-215\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 101, 22, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 22, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991345792232563*^9, 3.9939121063670807`*^9}, + CellChangeTimes->{3.991345792232563*^9, 3.9939121063590193`*^9, + 3.9942522543501377`*^9}, CellLabel-> "During evaluation of \ -In[101]:=",ExpressionUUID->"4a3d79d7-d67e-41f1-bd12-e24a3dba5269"], +In[101]:=",ExpressionUUID->"47d9608b-ce06-4765-9b6c-b0b67abb46dc"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.6316290617216097`*^-220\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 101, 23, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 23, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991345792232563*^9, 3.9939121063755827`*^9}, + CellChangeTimes->{3.991345792232563*^9, 3.9939121063590193`*^9, + 3.9942522543594913`*^9}, CellLabel-> "During evaluation of \ -In[101]:=",ExpressionUUID->"7451c7ab-d2ff-4eb7-8c35-d6d706e29858"], +In[101]:=",ExpressionUUID->"e349ded9-9ce7-4b0c-86fa-240f8bf84362"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 101, 24, 31385386217134927151, "kernel 5"}, +during this calculation.\"", 2, 101, 24, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991345792232563*^9, 3.9939121063845987`*^9}, + CellChangeTimes->{3.991345792232563*^9, 3.9939121063590193`*^9, + 3.994252254369622*^9}, CellLabel-> "During evaluation of \ -In[101]:=",ExpressionUUID->"f323dc1c-65c7-402c-9c27-2a290e3767eb"], +In[101]:=",ExpressionUUID->"e41216a2-e7c2-4250-8ced-3deb8075d3f9"], Cell[BoxData["1.9539091448891655`"], "Output", - CellChangeTimes->{3.991345799137081*^9, 3.99391211440012*^9}, + CellChangeTimes->{3.991345799137081*^9, 3.99391211440012*^9, + 3.99425226567831*^9}, CellLabel-> - "Out[101]=",ExpressionUUID->"76adc51e-2c5d-4752-8d8e-0bb42255cc60"] + "Out[101]=",ExpressionUUID->"27c36be9-b0e4-4bb3-8c8d-617a44c71585"] }, Open ]], Cell[CellGroupData[{ @@ -8823,64 +8943,72 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.5112134123227008`*^-210\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 102, 25, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 25, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913457991730843`*^9, 3.993912114439636*^9}, + CellChangeTimes->{3.9913457991730843`*^9, 3.993912114439636*^9, + 3.994252265736786*^9}, CellLabel-> "During evaluation of \ -In[102]:=",ExpressionUUID->"c440f8da-7ec6-4083-9f74-1fad49a8395a"], +In[102]:=",ExpressionUUID->"905e9306-c8e5-4532-99bd-9ac5487d70a8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.9942299602432769`*^-215\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 102, 26, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 26, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913457991730843`*^9, 3.993912114448927*^9}, + CellChangeTimes->{3.9913457991730843`*^9, 3.993912114439636*^9, + 3.99425226574749*^9}, CellLabel-> "During evaluation of \ -In[102]:=",ExpressionUUID->"2a7dd348-7e38-4658-9469-fbc2148530d6"], +In[102]:=",ExpressionUUID->"c3f9c17e-fb60-477a-9bda-c65126e8679e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.6316290617216097`*^-220\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 102, 27, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 27, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913457991730843`*^9, 3.9939121144583883`*^9}, + CellChangeTimes->{3.9913457991730843`*^9, 3.993912114439636*^9, + 3.9942522657561083`*^9}, CellLabel-> "During evaluation of \ -In[102]:=",ExpressionUUID->"6fb74aed-6310-41f2-accc-b249129e6d57"], +In[102]:=",ExpressionUUID->"8519fa5b-9cac-4ae7-a790-b34e4922afed"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 102, 28, 31385386217134927151, "kernel 5"}, +during this calculation.\"", 2, 102, 28, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913457991730843`*^9, 3.9939121144683313`*^9}, + CellChangeTimes->{3.9913457991730843`*^9, 3.993912114439636*^9, + 3.9942522657651052`*^9}, CellLabel-> "During evaluation of \ -In[102]:=",ExpressionUUID->"fb9c6e40-c988-4905-b495-b64707ae6e3c"], +In[102]:=",ExpressionUUID->"8e8883d8-2090-4802-97cb-6e3b3c4d88f5"], Cell[BoxData["38.92413090182304`"], "Output", - CellChangeTimes->{3.991345804559931*^9, 3.993912121391386*^9}, + CellChangeTimes->{3.991345804559931*^9, 3.993912121391386*^9, + 3.9942522764785748`*^9}, CellLabel-> - "Out[102]=",ExpressionUUID->"56dddbdd-2c8b-4c4f-a86b-9995233e1e37"] + "Out[102]=",ExpressionUUID->"b43931c4-a32c-41ba-bea3-ba51f3a0d364"] }, Open ]], Cell[CellGroupData[{ @@ -8954,64 +9082,72 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.5112134123227008`*^-210\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 103, 29, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 29, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913458046014442`*^9, 3.993912121436591*^9}, + CellChangeTimes->{3.9913458046014442`*^9, 3.993912121436591*^9, + 3.99425227655503*^9}, CellLabel-> "During evaluation of \ -In[103]:=",ExpressionUUID->"e2a94797-360e-4638-8e95-9e3e2a59b6ff"], +In[103]:=",ExpressionUUID->"437e416e-a5bc-46b7-9773-93e5b81100a6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.9942299602432769`*^-215\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 103, 30, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 30, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913458046014442`*^9, 3.9939121214461813`*^9}, + CellChangeTimes->{3.9913458046014442`*^9, 3.993912121436591*^9, + 3.994252276564233*^9}, CellLabel-> "During evaluation of \ -In[103]:=",ExpressionUUID->"5b9aeef1-b0fd-4856-b963-f84e2d75534a"], +In[103]:=",ExpressionUUID->"67336896-c6bf-41f6-b29f-ad307627ea5d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.6316290617216097`*^-220\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 103, 31, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 31, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913458046014442`*^9, 3.993912121455099*^9}, + CellChangeTimes->{3.9913458046014442`*^9, 3.993912121436591*^9, + 3.994252276575697*^9}, CellLabel-> "During evaluation of \ -In[103]:=",ExpressionUUID->"9f2f97bc-6dcc-4533-884a-07f2a62a3413"], +In[103]:=",ExpressionUUID->"c723a954-8bba-4cfc-9d7b-60d4165da281"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 103, 32, 31385386217134927151, "kernel 5"}, +during this calculation.\"", 2, 103, 32, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913458046014442`*^9, 3.993912121464821*^9}, + CellChangeTimes->{3.9913458046014442`*^9, 3.993912121436591*^9, + 3.9942522765872*^9}, CellLabel-> "During evaluation of \ -In[103]:=",ExpressionUUID->"d1238310-cd30-453c-89ae-96210d33bb95"], +In[103]:=",ExpressionUUID->"a510eb48-0e36-4ece-abe5-3792fffc3ee1"], Cell[BoxData["11.255034251269551`"], "Output", - CellChangeTimes->{3.991345807954506*^9, 3.993912125843746*^9}, + CellChangeTimes->{3.991345807954506*^9, 3.993912125843746*^9, + 3.994252285508828*^9}, CellLabel-> - "Out[103]=",ExpressionUUID->"b04dcc75-081a-43c3-9396-dea12245ed3f"] + "Out[103]=",ExpressionUUID->"9c3a3229-4de3-4e64-835c-d5fbd2d3ee35"] }, Open ]], Cell[CellGroupData[{ @@ -9025,9 +9161,10 @@ Cell[BoxData[ "In[104]:=",ExpressionUUID->"350334c7-7c47-c24c-8adc-781173809e57"], Cell[BoxData["0.09335154129461061`"], "Output", - CellChangeTimes->{3.991345807987507*^9, 3.993912125879113*^9}, + CellChangeTimes->{3.991345807987507*^9, 3.993912125879113*^9, + 3.9942522855592003`*^9}, CellLabel-> - "Out[104]=",ExpressionUUID->"37f96905-5d7f-4485-b34f-1b52a689658d"] + "Out[104]=",ExpressionUUID->"0f59cdc6-7e24-4959-82d0-b52a3c6f01dd"] }, Open ]], Cell[BoxData[ @@ -9062,9 +9199,10 @@ Cell[BoxData[ "In[106]:=",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], Cell[BoxData["8.092101191336006`"], "Output", - CellChangeTimes->{3.991345808020666*^9, 3.9939121258947353`*^9}, + CellChangeTimes->{3.991345808020666*^9, 3.9939121258947353`*^9, + 3.994252285583796*^9}, CellLabel-> - "Out[106]=",ExpressionUUID->"41efecd1-d181-476a-a826-de428b9b21b9"] + "Out[106]=",ExpressionUUID->"728fc9e0-900d-414a-aa53-5068ee15f05c"] }, Open ]], Cell[CellGroupData[{ @@ -9077,9 +9215,10 @@ Cell[BoxData[ "In[107]:=",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], Cell[BoxData["4.305935286383965`"], "Output", - CellChangeTimes->{3.9913458080616665`*^9, 3.9939121259038687`*^9}, + CellChangeTimes->{3.9913458080616665`*^9, 3.9939121259038687`*^9, + 3.994252285598444*^9}, CellLabel-> - "Out[107]=",ExpressionUUID->"50fb6b7b-caf6-4187-a3be-35fef3f15152"] + "Out[107]=",ExpressionUUID->"0174712b-5184-4d9e-ae08-e294694b4b55"] }, Open ]], Cell[CellGroupData[{ @@ -9092,9 +9231,10 @@ Cell[BoxData[ "In[108]:=",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], Cell[BoxData["34.84406406076343`"], "Output", - CellChangeTimes->{3.991345808188246*^9, 3.993912125914444*^9}, + CellChangeTimes->{3.991345808188246*^9, 3.993912125914444*^9, + 3.994252285612262*^9}, CellLabel-> - "Out[108]=",ExpressionUUID->"3b5db344-f6b1-4c50-9219-4c5d47246062"] + "Out[108]=",ExpressionUUID->"52deb708-7e90-4f4c-b746-b69702961cf6"] }, Open ]], Cell[CellGroupData[{ @@ -9287,9 +9427,10 @@ Cell[BoxData[ "In[109]:=",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], Cell[BoxData["0.0060081167907000315`"], "Output", - CellChangeTimes->{3.991345808220566*^9, 3.993912125928492*^9}, + CellChangeTimes->{3.991345808220566*^9, 3.993912125928492*^9, + 3.9942522856289387`*^9}, CellLabel-> - "Out[109]=",ExpressionUUID->"0a388bd3-e3b3-44ad-89cd-9a35ae3f00a7"] + "Out[109]=",ExpressionUUID->"9c4e6226-4234-4884-b70e-42c0dc3498d9"] }, Open ]], Cell[CellGroupData[{ @@ -9306,9 +9447,10 @@ Cell[BoxData[ "In[110]:=",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], Cell[BoxData["11.433409475204698`"], "Output", - CellChangeTimes->{3.9913458083195686`*^9, 3.993912126029395*^9}, + CellChangeTimes->{3.9913458083195686`*^9, 3.993912126029395*^9, + 3.994252285809588*^9}, CellLabel-> - "Out[110]=",ExpressionUUID->"9c0056fe-1cf9-4835-abe3-5ae95d2fbc8b"] + "Out[110]=",ExpressionUUID->"b98372b8-f1fa-4977-bad4-580c3a429ae4"] }, Open ]], Cell[CellGroupData[{ @@ -9503,9 +9645,10 @@ Cell[BoxData[ "In[111]:=",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], Cell[BoxData["0.026660083757712765`"], "Output", - CellChangeTimes->{3.991345808334568*^9, 3.993912126041555*^9}, + CellChangeTimes->{3.991345808334568*^9, 3.993912126041555*^9, + 3.994252285830011*^9}, CellLabel-> - "Out[111]=",ExpressionUUID->"d85677bd-5eeb-414b-ace2-4568091abc78"] + "Out[111]=",ExpressionUUID->"53d50ae1-6a13-4201-9489-956d3ec8fe0e"] }, Open ]], Cell[CellGroupData[{ @@ -9522,9 +9665,10 @@ Cell[BoxData[ "In[112]:=",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], Cell[BoxData["5.427679386522664`"], "Output", - CellChangeTimes->{3.991345808432392*^9, 3.993912126143188*^9}, + CellChangeTimes->{3.991345808432392*^9, 3.993912126143188*^9, + 3.994252286020081*^9}, CellLabel-> - "Out[112]=",ExpressionUUID->"815e946b-b617-4736-8526-2babdc18933b"] + "Out[112]=",ExpressionUUID->"905a885e-a738-4887-be6f-bbcff6f318f7"] }, Open ]], Cell[CellGroupData[{ @@ -9620,9 +9764,10 @@ Cell[BoxData[ "In[113]:=",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], Cell[BoxData["0.1245822467542299`"], "Output", - CellChangeTimes->{3.991345808448488*^9, 3.993912126156296*^9}, + CellChangeTimes->{3.991345808448488*^9, 3.993912126156296*^9, + 3.9942522860387077`*^9}, CellLabel-> - "Out[113]=",ExpressionUUID->"41835d90-2768-4a21-bdb1-c73f50a8269b"] + "Out[113]=",ExpressionUUID->"b0a18d58-157b-4f71-97ea-611aeaaf8e4e"] }, Open ]], Cell[CellGroupData[{ @@ -9715,9 +9860,10 @@ Cell[BoxData[ "In[114]:=",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], Cell[BoxData["0.8754177532457702`"], "Output", - CellChangeTimes->{3.9913458084773808`*^9, 3.993912126169146*^9}, + CellChangeTimes->{3.9913458084773808`*^9, 3.993912126169146*^9, + 3.99425228605569*^9}, CellLabel-> - "Out[114]=",ExpressionUUID->"6e47e6ab-f315-4ff2-a6f3-78d2c786c9f4"] + "Out[114]=",ExpressionUUID->"576227c9-53c3-4d8f-a4c9-3073483b8cd7"] }, Open ]], Cell[CellGroupData[{ @@ -9843,9 +9989,10 @@ Cell[BoxData[ "In[115]:=",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], Cell[BoxData["0.10906151054789807`"], "Output", - CellChangeTimes->{3.9913458085134735`*^9, 3.993912126182828*^9}, + CellChangeTimes->{3.9913458085134735`*^9, 3.993912126182828*^9, + 3.994252286072839*^9}, CellLabel-> - "Out[115]=",ExpressionUUID->"4da321ea-57b6-40fe-a24f-c79310af2d7d"] + "Out[115]=",ExpressionUUID->"e4de80ba-2cb0-4d03-a04d-a4a1b83d1175"] }, Open ]], Cell[CellGroupData[{ @@ -9915,64 +10062,72 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.9319765446670173`*^-211\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 116, 33, 31385386217134927151, - "kernel 5"}, +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 116, + 33, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913458085463753`*^9, 3.993912126196825*^9}, + CellChangeTimes->{3.9913458085463753`*^9, 3.993912126196825*^9, + 3.99425228609282*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"38c3f314-b476-41b7-9f1a-3709da467a52"], +In[116]:=",ExpressionUUID->"200d5045-6f6b-4f75-9d1d-72f896c0d902"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.4016385737384748`*^-216\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 116, 34, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 116, + 34, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913458085463753`*^9, 3.9939121262040873`*^9}, + CellChangeTimes->{3.9913458085463753`*^9, 3.993912126196825*^9, + 3.994252286100959*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"a122c302-579b-47aa-8a29-f2f2fc5bf135"], +In[116]:=",ExpressionUUID->"9cb2ef69-0a07-44c6-97b8-42f21845b077"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0168812332709919`*^-221\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 116, 35, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 116, + 35, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913458085463753`*^9, 3.993912126210516*^9}, + CellChangeTimes->{3.9913458085463753`*^9, 3.993912126196825*^9, + 3.994252286110785*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"8bd92cec-29a1-4104-9fbc-c3c8a32dbdae"], +In[116]:=",ExpressionUUID->"f6ec9284-79e3-499f-8d06-403654603075"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 116, 36, 31385386217134927151, "kernel 5"}, +during this calculation.\"", 2, 116, 36, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913458085463753`*^9, 3.993912126217923*^9}, + CellChangeTimes->{3.9913458085463753`*^9, 3.993912126196825*^9, + 3.994252286120533*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"6de1f49f-d9a9-4e32-9a22-d75b73ac1f0b"], +In[116]:=",ExpressionUUID->"cc4ba857-5391-4421-8118-4903be25a8f9"], Cell[BoxData["11.433409475204714`"], "Output", - CellChangeTimes->{3.9913458125059433`*^9, 3.993912130012845*^9}, + CellChangeTimes->{3.9913458125059433`*^9, 3.993912130012845*^9, + 3.9942522943210373`*^9}, CellLabel-> - "Out[116]=",ExpressionUUID->"d2c4a372-a2da-4fa7-bdc5-8f2a4f55cd38"] + "Out[116]=",ExpressionUUID->"799f78d6-e730-4562-a79e-eab92f55ab4f"] }, Open ]], Cell[CellGroupData[{ @@ -10042,64 +10197,72 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.9319765446670173`*^-211\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 117, 37, 31385386217134927151, - "kernel 5"}, +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 37, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991345812542961*^9, 3.9939121300517607`*^9}, + CellChangeTimes->{3.991345812542961*^9, 3.9939121300517607`*^9, + 3.994252294376542*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"89d75611-9fc4-4059-a126-9fb3fac98109"], +In[117]:=",ExpressionUUID->"f3b971d5-a6c9-4065-afd8-70017a00f593"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.4016385737384748`*^-216\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 117, 38, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 38, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991345812542961*^9, 3.9939121300586233`*^9}, + CellChangeTimes->{3.991345812542961*^9, 3.9939121300517607`*^9, + 3.994252294385921*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"b021b16a-8d6e-4a17-9c30-6175e3521018"], +In[117]:=",ExpressionUUID->"aab294f7-8235-4d44-be0c-5666969ac1aa"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0168812332709919`*^-221\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 117, 39, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 39, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991345812542961*^9, 3.993912130065094*^9}, + CellChangeTimes->{3.991345812542961*^9, 3.9939121300517607`*^9, + 3.994252294394738*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"cf2d0a3f-ac82-4704-8c47-990bf7418bad"], +In[117]:=",ExpressionUUID->"0410d281-4cd3-4851-8d96-b754b048a0cc"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 117, 40, 31385386217134927151, "kernel 5"}, +during this calculation.\"", 2, 117, 40, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991345812542961*^9, 3.993912130071368*^9}, + CellChangeTimes->{3.991345812542961*^9, 3.9939121300517607`*^9, + 3.994252294403157*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"560ea45b-729c-4981-80d6-253cc2469fbc"], +In[117]:=",ExpressionUUID->"9c919aaa-2e47-4166-a7fa-b8d468dc9cf2"], Cell[BoxData["5.427679386522668`"], "Output", - CellChangeTimes->{3.991345816415531*^9, 3.993912133907745*^9}, + CellChangeTimes->{3.991345816415531*^9, 3.993912133907745*^9, + 3.994252302491376*^9}, CellLabel-> - "Out[117]=",ExpressionUUID->"a2a1a422-17ff-491a-b0f8-7af604a4b71f"] + "Out[117]=",ExpressionUUID->"7b13171c-82f1-4118-9400-f0dcf11db56c"] }, Open ]], Cell[CellGroupData[{ @@ -10542,9 +10705,10 @@ EvCekZjxH7b2a4vFv1EE2Fkqjy77f8vqMcA= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913460797739086`*^9, 3.993912422989008*^9}, + CellChangeTimes->{3.9913460797739086`*^9, 3.993912422989008*^9, + 3.994252875632945*^9}, CellLabel-> - "Out[118]=",ExpressionUUID->"eb9b911a-d33e-4829-9b37-e7bd4daefe37"] + "Out[118]=",ExpressionUUID->"15b75ac6-fcb0-438e-9f2a-b45f3a342721"] }, Open ]], Cell[CellGroupData[{ @@ -10617,13 +10781,14 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"1.0306518881693588`*^-266\\\", \ \\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 119, - 41, 31385386217134927151, "kernel 5"}, + 41, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991346080016945*^9, 3.993912423142127*^9}, + CellChangeTimes->{3.991346080016945*^9, 3.993912423142127*^9, + 3.9942528758332033`*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"b0bae760-b88c-4a38-8296-48277e5d34cc"], +In[119]:=",ExpressionUUID->"3561c903-a647-4434-a844-c70b4c5e5122"], Cell[BoxData[ TemplateBox[{ @@ -10631,13 +10796,14 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"2.80843708389008`*^-278\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 119, - 42, 31385386217134927151, "kernel 5"}, + 42, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991346080016945*^9, 3.9939124231495867`*^9}, + CellChangeTimes->{3.991346080016945*^9, 3.993912423142127*^9, + 3.994252875841755*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"6720e511-51b0-4ddf-b972-504e34e9e13e"], +In[119]:=",ExpressionUUID->"f0355f23-532e-4e39-868a-2a35db82bc07"], Cell[BoxData[ TemplateBox[{ @@ -10645,26 +10811,28 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"7.652747687852641`*^-290\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 119, 43, 31385386217134927151, "kernel 5"}, + 119, 43, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991346080016945*^9, 3.993912423156679*^9}, + CellChangeTimes->{3.991346080016945*^9, 3.993912423142127*^9, + 3.994252875850422*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"9c9abfcf-93ce-4891-8138-0f24cef88366"], +In[119]:=",ExpressionUUID->"0bd3ef55-3c66-433d-8afa-d7cc7477d02d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 119, 44, 31385386217134927151, "kernel 5"}, +during this calculation.\"", 2, 119, 44, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991346080016945*^9, 3.993912423163945*^9}, + CellChangeTimes->{3.991346080016945*^9, 3.993912423142127*^9, + 3.994252875862453*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"9cb52dc6-877c-45d9-9f43-5c4707a58a5c"], +In[119]:=",ExpressionUUID->"58eca71c-d3a1-41c2-9c8d-f4bb32d6be10"], Cell[BoxData[ GraphicsBox[ @@ -11072,9 +11240,10 @@ H7wcRw0= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913465524249306`*^9, 3.993912746536599*^9}, + CellChangeTimes->{3.9913465524249306`*^9, 3.993912746536599*^9, + 3.9942534067665157`*^9}, CellLabel-> - "Out[119]=",ExpressionUUID->"b63494eb-b053-4ebe-b42d-fbac4fd6a86e"] + "Out[119]=",ExpressionUUID->"5dcc3dbb-a465-4067-bd04-9d4250f76e33"] }, Open ]], Cell[CellGroupData[{ @@ -11624,9 +11793,9 @@ SA== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.993912746605508*^9}, + CellChangeTimes->{3.993912746605508*^9, 3.9942534068491077`*^9}, CellLabel-> - "Out[120]=",ExpressionUUID->"49159025-1b5f-4d94-aecf-5b90803a2778"] + "Out[120]=",ExpressionUUID->"1bf98625-601c-445f-b0fc-b1b8008e8be5"] }, Open ]], Cell[CellGroupData[{ @@ -11685,66 +11854,72 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.565511112911212`*^-170\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 121, 45, 31385386217134927151, "kernel 5"}, +RowBox[{\\\"182746270923358292188640954459021807938\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"61\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3679745821507584000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 45, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991347571140808*^9, 3.993912746643322*^9}, + CellChangeTimes->{3.991347571140808*^9, 3.993912746643322*^9, + 3.994253406911981*^9}, CellLabel-> "During evaluation of \ -In[121]:=",ExpressionUUID->"132b0c32-1455-4397-8e22-cf607a602a4a"], +In[121]:=",ExpressionUUID->"2fc750b8-b6c5-4054-b445-c7881a6c564b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.6193733680639606`*^-173\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 121, 46, 31385386217134927151, "kernel 5"}, +RowBox[{\\\"532888126012512780022077023202507591948\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"64\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0138815516114944000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 46, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991347571140808*^9, 3.993912746650316*^9}, + CellChangeTimes->{3.991347571140808*^9, 3.993912746643322*^9, + 3.994253406919895*^9}, CellLabel-> "During evaluation of \ -In[121]:=",ExpressionUUID->"34f95bb6-6a7a-4a69-b914-e29d12a220fa"], +In[121]:=",ExpressionUUID->"e45aec9a-6a9e-437c-b2cf-d7b6dcd3be9c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0221628321925618`*^-176\\\", \ -RowBox[{\\\"\ -161198658118785115956678299518758546564525592888043685145303185612679\\\", \ -RowBox[{\\\"\[LeftSkeleton]\\\", \\\"8\\\", \\\"\[RightSkeleton]\\\"}], \ -\\\"3109099682969421627018644700669916936247705600000000000000000000000000\\\"\ -}]]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 121, 47, 31385386217134927151, "kernel 5"}, +RowBox[{\\\"161198658118785115956678299518758546564\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"68\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9916936247705600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 47, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991347571140808*^9, 3.993912746658025*^9}, + CellChangeTimes->{3.991347571140808*^9, 3.993912746643322*^9, + 3.9942534069291153`*^9}, CellLabel-> "During evaluation of \ -In[121]:=",ExpressionUUID->"d8127e38-71f1-4d65-afa6-012ca7d6c046"], +In[121]:=",ExpressionUUID->"a4feaca8-b1bf-4353-a75c-86d0eca7ac3e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 121, 48, 31385386217134927151, "kernel 5"}, +during this calculation.\"", 2, 121, 48, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991347571140808*^9, 3.9939127466664333`*^9}, + CellChangeTimes->{3.991347571140808*^9, 3.993912746643322*^9, + 3.994253406938384*^9}, CellLabel-> "During evaluation of \ -In[121]:=",ExpressionUUID->"d58e5dab-f4bd-4ec3-9ef3-cca0763a4156"], +In[121]:=",ExpressionUUID->"3cd64fed-0acc-420b-b315-c8fb87839372"], Cell[BoxData["11.613124349692924`"], "Output", - CellChangeTimes->{3.991347578228073*^9, 3.993912792475524*^9}, + CellChangeTimes->{3.991347578228073*^9, 3.993912792475524*^9, + 3.994253487215632*^9}, CellLabel-> - "Out[121]=",ExpressionUUID->"c6bf2441-13a4-4ac8-9002-6e2548a19353"] + "Out[121]=",ExpressionUUID->"c44b10be-8f90-49a1-8d6b-a0a5987d4184"] }, Open ]], Cell[CellGroupData[{ @@ -11819,64 +11994,72 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.9319765446670173`*^-211\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 122, 49, 31385386217134927151, - "kernel 5"}, +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 49, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991347578265545*^9, 3.993912792515255*^9}, + CellChangeTimes->{3.991347578265545*^9, 3.993912792515255*^9, + 3.994253487273264*^9}, CellLabel-> "During evaluation of \ -In[122]:=",ExpressionUUID->"043e6756-c83a-4668-b8c3-8592bfe32ed0"], +In[122]:=",ExpressionUUID->"4615dd16-c962-445e-8845-952e54eb1731"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.4016385737384748`*^-216\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 122, 50, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 50, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991347578265545*^9, 3.9939127925215797`*^9}, + CellChangeTimes->{3.991347578265545*^9, 3.993912792515255*^9, + 3.9942534872834377`*^9}, CellLabel-> "During evaluation of \ -In[122]:=",ExpressionUUID->"22fb7af9-26f9-4182-b521-521b38d47868"], +In[122]:=",ExpressionUUID->"4231dfb6-d5b6-433b-9c55-0aefe511681b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0168812332709919`*^-221\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 122, 51, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 51, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991347578265545*^9, 3.9939127925298634`*^9}, + CellChangeTimes->{3.991347578265545*^9, 3.993912792515255*^9, + 3.994253487291801*^9}, CellLabel-> "During evaluation of \ -In[122]:=",ExpressionUUID->"204aa7d4-0538-442c-9979-c44e22f50a1a"], +In[122]:=",ExpressionUUID->"97ca25b3-c407-4417-9df5-bb6665c9c885"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 122, 52, 31385386217134927151, "kernel 5"}, +during this calculation.\"", 2, 122, 52, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991347578265545*^9, 3.993912792539016*^9}, + CellChangeTimes->{3.991347578265545*^9, 3.993912792515255*^9, + 3.9942534873028393`*^9}, CellLabel-> "During evaluation of \ -In[122]:=",ExpressionUUID->"706aa87b-d15a-4740-9be0-86cd70423c81"], +In[122]:=",ExpressionUUID->"29466976-44c3-4807-84d1-df067e77f26d"], Cell[BoxData["0.6471348763547213`"], "Output", - CellChangeTimes->{3.9913475858902473`*^9, 3.9939127994458838`*^9}, + CellChangeTimes->{3.9913475858902473`*^9, 3.9939127994458838`*^9, + 3.9942534984610233`*^9}, CellLabel-> - "Out[122]=",ExpressionUUID->"a0a2e845-20d5-41c7-b565-a848f7cb636c"] + "Out[122]=",ExpressionUUID->"80fafaac-2922-48ec-8cc4-21a39dfa66f6"] }, Open ]], Cell[CellGroupData[{ @@ -11950,64 +12133,72 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.9319765446670173`*^-211\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 123, 53, 31385386217134927151, - "kernel 5"}, +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 123, + 53, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913475859272156`*^9, 3.993912799489914*^9}, + CellChangeTimes->{3.9913475859272156`*^9, 3.993912799489914*^9, + 3.994253498512124*^9}, CellLabel-> "During evaluation of \ -In[123]:=",ExpressionUUID->"e61fa373-fc5c-4a91-b44d-40199161404d"], +In[123]:=",ExpressionUUID->"58f23fc0-a08d-4cd8-b0a9-cfaf653bd4d2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.4016385737384748`*^-216\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 123, 54, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 123, + 54, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913475859272156`*^9, 3.9939127994977083`*^9}, + CellChangeTimes->{3.9913475859272156`*^9, 3.993912799489914*^9, + 3.9942534985228567`*^9}, CellLabel-> "During evaluation of \ -In[123]:=",ExpressionUUID->"9b490e2d-e0ae-4cd6-860d-9d612b0f4654"], +In[123]:=",ExpressionUUID->"7addb531-e9a6-4594-9f50-f23f3bd764d6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0168812332709919`*^-221\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 123, 55, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 123, + 55, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913475859272156`*^9, 3.993912799506274*^9}, + CellChangeTimes->{3.9913475859272156`*^9, 3.993912799489914*^9, + 3.994253498531495*^9}, CellLabel-> "During evaluation of \ -In[123]:=",ExpressionUUID->"018f905a-f9ce-4250-aa53-7dd10c0e1c5c"], +In[123]:=",ExpressionUUID->"51f0c655-f5dc-4915-abb7-e23921e0e986"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 123, 56, 31385386217134927151, "kernel 5"}, +during this calculation.\"", 2, 123, 56, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913475859272156`*^9, 3.993912799514749*^9}, + CellChangeTimes->{3.9913475859272156`*^9, 3.993912799489914*^9, + 3.994253498539977*^9}, CellLabel-> "During evaluation of \ -In[123]:=",ExpressionUUID->"8b09dd62-b798-4291-b6b8-2ff75fa6d99f"], +In[123]:=",ExpressionUUID->"0d37e899-90a0-4af6-9c21-f3b449c10def"], Cell[BoxData["35.718652629178976`"], "Output", - CellChangeTimes->{3.9913475931276417`*^9, 3.993912806179657*^9}, + CellChangeTimes->{3.9913475931276417`*^9, 3.993912806179657*^9, + 3.9942535089978333`*^9}, CellLabel-> - "Out[123]=",ExpressionUUID->"49f30771-bcfa-4bed-ac14-aca75b6bdd05"] + "Out[123]=",ExpressionUUID->"76b17aeb-d475-44c8-8380-4b5a775be9e3"] }, Open ]], Cell[CellGroupData[{ @@ -12081,64 +12272,72 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.9319765446670173`*^-211\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 124, 57, 31385386217134927151, - "kernel 5"}, +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 124, + 57, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.99134759316485*^9, 3.993912806227763*^9}, + CellChangeTimes->{3.99134759316485*^9, 3.993912806227763*^9, + 3.994253509052614*^9}, CellLabel-> "During evaluation of \ -In[124]:=",ExpressionUUID->"8d7c57db-8699-4c3f-ab8f-03344dd0b416"], +In[124]:=",ExpressionUUID->"1f63e298-963f-45b8-9d3e-a26085cfbcd9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.4016385737384748`*^-216\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 124, 58, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 124, + 58, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.99134759316485*^9, 3.993912806236999*^9}, + CellChangeTimes->{3.99134759316485*^9, 3.993912806227763*^9, + 3.9942535090627937`*^9}, CellLabel-> "During evaluation of \ -In[124]:=",ExpressionUUID->"1c5d1c41-c3b2-45eb-a287-b161ba363198"], +In[124]:=",ExpressionUUID->"f0ce3395-0a7b-4089-acb1-d172b55fce07"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0168812332709919`*^-221\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 124, 59, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 124, + 59, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.99134759316485*^9, 3.993912806246114*^9}, + CellChangeTimes->{3.99134759316485*^9, 3.993912806227763*^9, + 3.994253509073366*^9}, CellLabel-> "During evaluation of \ -In[124]:=",ExpressionUUID->"eb3b3cfa-6c2b-4b73-bd64-fb33e3d3a5be"], +In[124]:=",ExpressionUUID->"f19440a0-1cca-44ba-b78b-1c8afcf75fd9"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 124, 60, 31385386217134927151, "kernel 5"}, +during this calculation.\"", 2, 124, 60, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.99134759316485*^9, 3.993912806254579*^9}, + CellChangeTimes->{3.99134759316485*^9, 3.993912806227763*^9, + 3.994253509083605*^9}, CellLabel-> "During evaluation of \ -In[124]:=",ExpressionUUID->"5810e70e-b4bc-4c10-ac25-c467e11802b9"], +In[124]:=",ExpressionUUID->"30c77d8d-20e4-439b-a3c9-d38ff629e100"], Cell[BoxData["8.049555978625436`"], "Output", - CellChangeTimes->{3.9913475973006153`*^9, 3.99391281037628*^9}, + CellChangeTimes->{3.9913475973006153`*^9, 3.99391281037628*^9, + 3.994253517883725*^9}, CellLabel-> - "Out[124]=",ExpressionUUID->"f8f2d7ff-1134-49c2-a79b-566766302058"] + "Out[124]=",ExpressionUUID->"9c697b64-0006-40a2-bf14-f3651e733027"] }, Open ]], Cell[CellGroupData[{ @@ -12152,9 +12351,10 @@ Cell[BoxData[ "In[125]:=",ExpressionUUID->"58b5e243-0972-1946-bd17-aca0f3e8a35b"], Cell[BoxData["0.038164652253163706`"], "Output", - CellChangeTimes->{3.991347597341627*^9, 3.9939128104130297`*^9}, + CellChangeTimes->{3.991347597341627*^9, 3.9939128104130297`*^9, + 3.994253517931567*^9}, CellLabel-> - "Out[125]=",ExpressionUUID->"a535fd26-5aae-4766-b9ca-e0251a6993a1"] + "Out[125]=",ExpressionUUID->"2104e7f2-d4ef-4497-ae35-2c476492b362"] }, Open ]], Cell[BoxData[ @@ -12189,9 +12389,10 @@ Cell[BoxData[ "In[127]:=",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], Cell[BoxData["14.800894227577137`"], "Output", - CellChangeTimes->{3.991347597372614*^9, 3.993912810426075*^9}, + CellChangeTimes->{3.991347597372614*^9, 3.993912810426075*^9, + 3.9942535179578648`*^9}, CellLabel-> - "Out[127]=",ExpressionUUID->"6fba74b2-c671-4da2-be32-79399b7fb02a"] + "Out[127]=",ExpressionUUID->"5564b48f-c6ed-40c3-b5eb-2a1077815884"] }, Open ]], Cell[CellGroupData[{ @@ -12204,9 +12405,10 @@ Cell[BoxData[ "In[128]:=",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], Cell[BoxData["3.183861544998538`"], "Output", - CellChangeTimes->{3.991347597428034*^9, 3.99391281043487*^9}, + CellChangeTimes->{3.991347597428034*^9, 3.99391281043487*^9, + 3.994253517971863*^9}, CellLabel-> - "Out[128]=",ExpressionUUID->"64ada44e-bd34-4e31-917f-bd2aeed879ad"] + "Out[128]=",ExpressionUUID->"56425aeb-aaae-4527-9061-b2c339d32c90"] }, Open ]], Cell[CellGroupData[{ @@ -12219,9 +12421,10 @@ Cell[BoxData[ "In[129]:=",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], Cell[BoxData["47.123997962773686`"], "Output", - CellChangeTimes->{3.9913475974971066`*^9, 3.993912810443791*^9}, + CellChangeTimes->{3.9913475974971066`*^9, 3.993912810443791*^9, + 3.99425351798665*^9}, CellLabel-> - "Out[129]=",ExpressionUUID->"71986d90-a855-40f3-aa28-9eb609ff7c96"] + "Out[129]=",ExpressionUUID->"056eb293-0350-4643-b18c-ce0b7b2366e7"] }, Open ]], Cell[CellGroupData[{ @@ -12414,9 +12617,10 @@ Cell[BoxData[ "In[130]:=",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], Cell[BoxData["0.00559529962910092`"], "Output", - CellChangeTimes->{3.991347597528105*^9, 3.9939128104576263`*^9}, + CellChangeTimes->{3.991347597528105*^9, 3.9939128104576263`*^9, + 3.9942535180046873`*^9}, CellLabel-> - "Out[130]=",ExpressionUUID->"205eb574-34aa-4f38-ad4e-8668009ac70e"] + "Out[130]=",ExpressionUUID->"9fc671d1-ee58-4420-b9d8-86f1810778fb"] }, Open ]], Cell[CellGroupData[{ @@ -12433,9 +12637,10 @@ Cell[BoxData[ "In[131]:=",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], Cell[BoxData["11.84767866550161`"], "Output", - CellChangeTimes->{3.9913475976441536`*^9, 3.993912810575431*^9}, + CellChangeTimes->{3.9913475976441536`*^9, 3.993912810575431*^9, + 3.994253518205414*^9}, CellLabel-> - "Out[131]=",ExpressionUUID->"6563377c-e258-4297-b68b-3eb5dfbd125d"] + "Out[131]=",ExpressionUUID->"7883d22d-bbdb-4d2c-ac9c-9b115539134c"] }, Open ]], Cell[CellGroupData[{ @@ -12630,9 +12835,10 @@ Cell[BoxData[ "In[132]:=",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], Cell[BoxData["0.02008467965920747`"], "Output", - CellChangeTimes->{3.991347597671173*^9, 3.993912810589172*^9}, + CellChangeTimes->{3.991347597671173*^9, 3.993912810589172*^9, + 3.994253518222327*^9}, CellLabel-> - "Out[132]=",ExpressionUUID->"e4a52df2-0759-4a9b-a13c-948dbe430057"] + "Out[132]=",ExpressionUUID->"234f7075-eaf4-4e12-8430-c305dee20779"] }, Open ]], Cell[CellGroupData[{ @@ -12649,9 +12855,10 @@ Cell[BoxData[ "In[133]:=",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], Cell[BoxData["6.253346388627769`"], "Output", - CellChangeTimes->{3.9913475977705975`*^9, 3.993912810705927*^9}, + CellChangeTimes->{3.9913475977705975`*^9, 3.993912810705927*^9, + 3.994253518421077*^9}, CellLabel-> - "Out[133]=",ExpressionUUID->"3e8accd3-3add-4d38-b7fd-d88f99fc0054"] + "Out[133]=",ExpressionUUID->"41dcbab2-880d-489a-8a21-8360207b851c"] }, Open ]], Cell[CellGroupData[{ @@ -12747,9 +12954,10 @@ Cell[BoxData[ "In[134]:=",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], Cell[BoxData["0.1245822467542299`"], "Output", - CellChangeTimes->{3.9913475977856007`*^9, 3.993912810717637*^9}, + CellChangeTimes->{3.9913475977856007`*^9, 3.993912810717637*^9, + 3.99425351843688*^9}, CellLabel-> - "Out[134]=",ExpressionUUID->"2e14b754-f6a7-4f3a-86f4-eca67188ac7e"] + "Out[134]=",ExpressionUUID->"f908838a-72ff-41a9-951e-c4bd2dad5c0d"] }, Open ]], Cell[CellGroupData[{ @@ -12842,9 +13050,10 @@ Cell[BoxData[ "In[135]:=",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], Cell[BoxData["0.8754177532457702`"], "Output", - CellChangeTimes->{3.991347597813669*^9, 3.993912810729372*^9}, + CellChangeTimes->{3.991347597813669*^9, 3.993912810729372*^9, + 3.9942535184549007`*^9}, CellLabel-> - "Out[135]=",ExpressionUUID->"beb36398-9c74-42e5-a6be-49dc91d16b87"] + "Out[135]=",ExpressionUUID->"423f8859-8c03-4950-933b-da7e1a478824"] }, Open ]], Cell[CellGroupData[{ @@ -12970,9 +13179,10 @@ Cell[BoxData[ "In[136]:=",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], Cell[BoxData["0.10906151054789807`"], "Output", - CellChangeTimes->{3.9913475978426323`*^9, 3.993912810741634*^9}, + CellChangeTimes->{3.9913475978426323`*^9, 3.993912810741634*^9, + 3.994253518473686*^9}, CellLabel-> - "Out[136]=",ExpressionUUID->"1395be38-1ed7-4ebf-853b-82dfcf37190d"] + "Out[136]=",ExpressionUUID->"150eaa97-3a68-47b2-81f3-adfffdb65a52"] }, Open ]], Cell[CellGroupData[{ @@ -13042,64 +13252,72 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"6.263665538678529`*^-207\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 137, 61, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 137, + 61, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991347597872814*^9, 3.9939128107603893`*^9}, + CellChangeTimes->{3.991347597872814*^9, 3.9939128107603893`*^9, + 3.9942535184933147`*^9}, CellLabel-> "During evaluation of \ -In[137]:=",ExpressionUUID->"7f99686b-a126-4853-9d0d-1d36de4cf04c"], +In[137]:=",ExpressionUUID->"f26a42c1-fd6a-48a4-95ab-9061699156cd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"7.713104930266547`*^-212\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 137, 62, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 137, + 62, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991347597872814*^9, 3.99391281076781*^9}, + CellChangeTimes->{3.991347597872814*^9, 3.9939128107603893`*^9, + 3.9942535185045156`*^9}, CellLabel-> "During evaluation of \ -In[137]:=",ExpressionUUID->"9c78004b-d7b5-4a57-8600-f479793c1638"], +In[137]:=",ExpressionUUID->"e4a0d7a2-c039-4705-96ba-2e00f80c9836"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.497950888012037`*^-217\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 137, 63, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 137, + 63, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991347597872814*^9, 3.99391281077451*^9}, + CellChangeTimes->{3.991347597872814*^9, 3.9939128107603893`*^9, + 3.994253518513887*^9}, CellLabel-> "During evaluation of \ -In[137]:=",ExpressionUUID->"77301570-3c9c-4d23-afd2-098e4bb225a2"], +In[137]:=",ExpressionUUID->"8f18d2fc-8abb-4da0-9463-dd135618389e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 137, 64, 31385386217134927151, "kernel 5"}, +during this calculation.\"", 2, 137, 64, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.991347597872814*^9, 3.993912810780875*^9}, + CellChangeTimes->{3.991347597872814*^9, 3.9939128107603893`*^9, + 3.9942535185230618`*^9}, CellLabel-> "During evaluation of \ -In[137]:=",ExpressionUUID->"f3fc4ec8-c943-4c63-8f0d-3debd7c38024"], +In[137]:=",ExpressionUUID->"e0d434f3-9da2-4d86-accc-f88f6fbac72c"], Cell[BoxData["11.847678665501597`"], "Output", - CellChangeTimes->{3.9913476018505497`*^9, 3.993912814694392*^9}, + CellChangeTimes->{3.9913476018505497`*^9, 3.993912814694392*^9, + 3.994253526206148*^9}, CellLabel-> - "Out[137]=",ExpressionUUID->"ee64801c-3110-4b02-9a53-dde3e82ea000"] + "Out[137]=",ExpressionUUID->"4053a536-4815-4630-8750-466c77401b37"] }, Open ]], Cell[CellGroupData[{ @@ -13169,64 +13387,72 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"6.263665538678529`*^-207\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 138, 65, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 65, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913476018885117`*^9, 3.993912814733638*^9}, + CellChangeTimes->{3.9913476018885117`*^9, 3.993912814733638*^9, + 3.994253526258284*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"8599e594-b085-4aac-b479-dddc9dfd8b4a"], +In[138]:=",ExpressionUUID->"a98e8c79-31ea-4f2a-a765-bce9888ba0df"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"7.713104930266547`*^-212\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 138, 66, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 66, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913476018885117`*^9, 3.993912814741329*^9}, + CellChangeTimes->{3.9913476018885117`*^9, 3.993912814733638*^9, + 3.994253526269298*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"b992822f-3f72-4791-bdf5-65aa79bb011c"], +In[138]:=",ExpressionUUID->"55f45a35-431b-4bbf-9ccf-1bbfa69d1e1e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.497950888012037`*^-217\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 138, 67, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 67, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913476018885117`*^9, 3.9939128147502728`*^9}, + CellChangeTimes->{3.9913476018885117`*^9, 3.993912814733638*^9, + 3.9942535262802143`*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"4406783d-65cd-406f-8709-a39de0044795"], +In[138]:=",ExpressionUUID->"b8fc2ced-58b2-4a66-b5cd-cf1178406a86"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 138, 68, 31385386217134927151, "kernel 5"}, +during this calculation.\"", 2, 138, 68, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913476018885117`*^9, 3.993912814759026*^9}, + CellChangeTimes->{3.9913476018885117`*^9, 3.993912814733638*^9, + 3.994253526290629*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"dcaed24c-5dfd-401a-93a2-d08d6ff5995f"], +In[138]:=",ExpressionUUID->"d4162ca4-be7a-4b57-bb85-415f9b8bfc55"], Cell[BoxData["6.253346388627771`"], "Output", - CellChangeTimes->{3.9913476058912296`*^9, 3.9939128186270723`*^9}, + CellChangeTimes->{3.9913476058912296`*^9, 3.9939128186270723`*^9, + 3.994253534005108*^9}, CellLabel-> - "Out[138]=",ExpressionUUID->"e3a124a5-3c19-4d61-85c6-7938d4b8f00e"] + "Out[138]=",ExpressionUUID->"e56bf044-e307-4089-a528-a17b7cd99234"] }, Open ]], Cell[CellGroupData[{ @@ -13670,9 +13896,10 @@ DQ== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991347865018469*^9, 3.993913108034637*^9}, + CellChangeTimes->{3.991347865018469*^9, 3.993913108034637*^9, + 3.994254104652564*^9}, CellLabel-> - "Out[139]=",ExpressionUUID->"41593627-78d9-424e-9d7f-2a6fb5060120"] + "Out[139]=",ExpressionUUID->"9873e04f-69e7-4312-928e-80f60d904686"] }, Open ]], Cell[CellGroupData[{ @@ -13746,13 +13973,14 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"9.180375049446201`*^-273\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 140, - 69, 31385386217134927151, "kernel 5"}, + 69, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913478652482224`*^9, 3.993913108191383*^9}, + CellChangeTimes->{3.9913478652482224`*^9, 3.993913108191383*^9, + 3.994254104850376*^9}, CellLabel-> "During evaluation of \ -In[140]:=",ExpressionUUID->"ba4ec73c-b67b-4028-8cb2-4baa36b2e32f"], +In[140]:=",ExpressionUUID->"3f6d75c7-aa91-428b-97eb-4019029002b0"], Cell[BoxData[ TemplateBox[{ @@ -13760,13 +13988,14 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"4.2459962698449713`*^-284\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 140, 70, 31385386217134927151, "kernel 5"}, + 140, 70, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913478652482224`*^9, 3.9939131082004547`*^9}, + CellChangeTimes->{3.9913478652482224`*^9, 3.993913108191383*^9, + 3.994254104859973*^9}, CellLabel-> "During evaluation of \ -In[140]:=",ExpressionUUID->"d34dea44-aad8-4175-b3d8-584b74eb7d72"], +In[140]:=",ExpressionUUID->"d3d1534d-5dbd-4ee1-af28-3395f31c20a7"], Cell[BoxData[ TemplateBox[{ @@ -13774,26 +14003,28 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"1.9638069497634476`*^-295\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 140, 71, 31385386217134927151, "kernel 5"}, + 2, 140, 71, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913478652482224`*^9, 3.9939131082080593`*^9}, + CellChangeTimes->{3.9913478652482224`*^9, 3.993913108191383*^9, + 3.994254104869568*^9}, CellLabel-> "During evaluation of \ -In[140]:=",ExpressionUUID->"a7564265-0bef-4940-9e85-c87c13ab298b"], +In[140]:=",ExpressionUUID->"df73c88b-bd61-47cb-bb08-3b42c677471e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 140, 72, 31385386217134927151, "kernel 5"}, +during this calculation.\"", 2, 140, 72, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913478652482224`*^9, 3.9939131082144012`*^9}, + CellChangeTimes->{3.9913478652482224`*^9, 3.993913108191383*^9, + 3.994254104877818*^9}, CellLabel-> "During evaluation of \ -In[140]:=",ExpressionUUID->"09d6750d-080c-4fd7-9cdf-8be9efe4d52e"], +In[140]:=",ExpressionUUID->"f1191076-6767-4d1a-b9ed-ea6e5439082a"], Cell[BoxData[ GraphicsBox[ @@ -14195,9 +14426,10 @@ Uxp/ Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913483238131485`*^9, 3.9939134390113697`*^9}, + CellChangeTimes->{3.9913483238131485`*^9, 3.9939134390113697`*^9, + 3.99425453398125*^9}, CellLabel-> - "Out[140]=",ExpressionUUID->"fc750c36-d92c-4a34-a5cf-34beddb6e205"] + "Out[140]=",ExpressionUUID->"f1dfe3b9-0ea9-413c-9b0d-b357e883e82c"] }, Open ]], Cell[CellGroupData[{ @@ -14741,9 +14973,9 @@ SA== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.993913439083282*^9}, + CellChangeTimes->{3.993913439083282*^9, 3.9942545340427*^9}, CellLabel-> - "Out[141]=",ExpressionUUID->"ba26e1aa-d6d6-4ec9-8f62-28b4032610d5"] + "Out[141]=",ExpressionUUID->"2052b9ed-dda5-4f53-878a-2992915feb84"] }, Open ]], Cell[CellGroupData[{ @@ -14802,64 +15034,67 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.724385516074866`*^-177\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 142, 73, 31385386217134927151, "kernel 5"}, +RowBox[{\\\"240596938679980309735403735113653345779\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"54\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8305808000876544000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 73, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993913439129263*^9}, + CellChangeTimes->{3.993913439129263*^9, 3.994254534103799*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"6fce96e0-095b-48ac-bae5-7d0e0ae76f75"], +In[142]:=",ExpressionUUID->"978c4ff3-cfb7-4662-be92-2e5b76419b47"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.401886523348829`*^-181\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 142, 74, 31385386217134927151, "kernel 5"}, +RowBox[{\\\"650574122190666757524531699747318646986\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"57\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8904834370174976000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 74, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993913439137004*^9}, + CellChangeTimes->{3.993913439129263*^9, 3.994254534110942*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"aa7a362e-ec0d-451a-8aea-9ec4646b234e"], +In[142]:=",ExpressionUUID->"532f35d0-6789-4061-9a30-9d287619f48f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.2446021195004494`*^-184\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 142, 75, 31385386217134927151, "kernel 5"}, +RowBox[{\\\"182746270923358292188640954459021807938\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"61\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3679745821507584000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 75, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9939134391462727`*^9}, + CellChangeTimes->{3.993913439129263*^9, 3.994254534120047*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"0f639d2b-d939-4c01-90f4-c37b7dc6c8f1"], +In[142]:=",ExpressionUUID->"51e80624-dcf5-4f0f-9853-dc4e8eb2fa03"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 142, 76, 31385386217134927151, "kernel 5"}, +during this calculation.\"", 2, 142, 76, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993913439154708*^9}, + CellChangeTimes->{3.993913439129263*^9, 3.9942545341266003`*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"20986ba1-777b-4158-a5b6-b0fea8cb7723"], +In[142]:=",ExpressionUUID->"fa2b9b1d-977a-42df-aed0-d92f5e70145a"], Cell[BoxData["11.613233073918158`"], "Output", - CellChangeTimes->{3.993913472260282*^9}, + CellChangeTimes->{3.993913472260282*^9, 3.9942545733236103`*^9}, CellLabel-> - "Out[142]=",ExpressionUUID->"720d606d-325e-4fbb-b13f-e7cfe5a7ec42"] + "Out[142]=",ExpressionUUID->"c70ade27-02d7-4ca7-962c-862126eae56c"] }, Open ]], Cell[CellGroupData[{ @@ -14934,64 +15169,67 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"6.263665538678529`*^-207\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 143, 77, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 77, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993913472297073*^9}, + CellChangeTimes->{3.993913472297073*^9, 3.9942545733743896`*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"2e45575c-d7f2-4250-9792-0821d0535693"], +In[143]:=",ExpressionUUID->"923f5ba8-e027-4b95-81e6-aa9d668e337a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"7.713104930266547`*^-212\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 143, 78, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 78, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993913472304844*^9}, + CellChangeTimes->{3.993913472297073*^9, 3.994254573389592*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"ddfde07e-6b2a-4933-b5b0-fe544ef26938"], +In[143]:=",ExpressionUUID->"20a60a6d-3ec3-4ff8-827e-8e15bd342593"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.497950888012037`*^-217\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 143, 79, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 79, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993913472312031*^9}, + CellChangeTimes->{3.993913472297073*^9, 3.9942545733970947`*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"17e1e4da-421b-4936-be90-f0fadd28e2e2"], +In[143]:=",ExpressionUUID->"ad583008-d533-4024-b1da-9ecd4967762e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 143, 80, 31385386217134927151, "kernel 5"}, +during this calculation.\"", 2, 143, 80, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993913472317809*^9}, + CellChangeTimes->{3.993913472297073*^9, 3.994254573404657*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"8ea0b3cf-e6e0-49a5-aa17-ab4a93218fd9"], +In[143]:=",ExpressionUUID->"ac752ed5-c86d-4752-b478-ec7d056214d2"], Cell[BoxData["1.6881172130202162`"], "Output", - CellChangeTimes->{3.993913477780637*^9}, + CellChangeTimes->{3.993913477780637*^9, 3.994254578972891*^9}, CellLabel-> - "Out[143]=",ExpressionUUID->"f916b298-4c70-4246-9dc9-247d0b132db7"] + "Out[143]=",ExpressionUUID->"931be3b4-071d-4b15-9e0c-c326d67ca09b"] }, Open ]], Cell[CellGroupData[{ @@ -15065,64 +15303,67 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"6.263665538678529`*^-207\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 144, 81, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 81, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993913477817108*^9}, + CellChangeTimes->{3.993913477817108*^9, 3.994254579025928*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"7a93c4f6-cec3-4af3-bd2d-8758e99e68f1"], +In[144]:=",ExpressionUUID->"5cfadac0-a577-4199-b4e4-aa1d8cb6a192"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"7.713104930266547`*^-212\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 144, 82, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 82, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9939134778251457`*^9}, + CellChangeTimes->{3.993913477817108*^9, 3.99425457903225*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"ec546ecc-62f2-43a7-a662-c581d1968add"], +In[144]:=",ExpressionUUID->"32088a40-f272-472c-b5a7-252fb85e78f3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.497950888012037`*^-217\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 144, 83, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 83, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993913477832829*^9}, + CellChangeTimes->{3.993913477817108*^9, 3.9942545790379963`*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"a0600c59-ba65-4f19-8291-834e800beed0"], +In[144]:=",ExpressionUUID->"f9922c01-d9d5-4632-98ec-68b8d457e591"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 144, 84, 31385386217134927151, "kernel 5"}, +during this calculation.\"", 2, 144, 84, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993913477840352*^9}, + CellChangeTimes->{3.993913477817108*^9, 3.994254579043449*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"b27399a5-1019-49da-be1f-17a62292e70d"], +In[144]:=",ExpressionUUID->"b936c640-daf0-45da-9a5b-062459553e00"], Cell[BoxData["38.3539489979083`"], "Output", - CellChangeTimes->{3.9939134831564713`*^9}, + CellChangeTimes->{3.9939134831564713`*^9, 3.994254584214254*^9}, CellLabel-> - "Out[144]=",ExpressionUUID->"02934bc0-6844-4305-80f2-75cdcdbf9351"] + "Out[144]=",ExpressionUUID->"aff0ea53-51ff-4cf2-822b-8e364a44de2a"] }, Open ]], Cell[CellGroupData[{ @@ -15196,64 +15437,67 @@ Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"6.263665538678529`*^-207\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 145, 85, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 85, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9939134831979237`*^9}, + CellChangeTimes->{3.9939134831979237`*^9, 3.994254584250607*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"5c965494-8318-4fca-a343-731df1fe0ef4"], +In[145]:=",ExpressionUUID->"3972f5c8-1143-410b-9b1c-1e0364185966"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"7.713104930266547`*^-212\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 145, 86, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 86, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.99391348320625*^9}, + CellChangeTimes->{3.9939134831979237`*^9, 3.994254584259075*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"b83dae3d-b5cb-41c4-86b9-c5cf3f6e9df8"], +In[145]:=",ExpressionUUID->"742088db-45dd-4af0-b80e-b2eb79fbf714"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.497950888012037`*^-217\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 145, 87, - 31385386217134927151, "kernel 5"}, +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 87, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993913483213835*^9}, + CellChangeTimes->{3.9939134831979237`*^9, 3.994254584266602*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"80cbc14e-cd38-4508-a9b1-b19239f27488"], +In[145]:=",ExpressionUUID->"08408e5e-8f38-4538-86cf-d28d6c780c6e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 145, 88, 31385386217134927151, "kernel 5"}, +during this calculation.\"", 2, 145, 88, 31387619605284925589, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.993913483221726*^9}, + CellChangeTimes->{3.9939134831979237`*^9, 3.994254584274022*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"e7775c4d-1aa8-4286-8040-cb3ebf53722b"], +In[145]:=",ExpressionUUID->"ec53b580-62dc-448e-b735-38b76d327f92"], Cell[BoxData["10.684852347354765`"], "Output", - CellChangeTimes->{3.99391348647617*^9}, + CellChangeTimes->{3.99391348647617*^9, 3.9942545873911*^9}, CellLabel-> - "Out[145]=",ExpressionUUID->"875f088e-43b6-4f40-b283-2399a46cf215"] + "Out[145]=",ExpressionUUID->"0b9423ed-4c22-450c-ad6b-082d483cb4ab"] }, Open ]], Cell[CellGroupData[{ @@ -15267,9 +15511,9 @@ Cell[BoxData[ "In[146]:=",ExpressionUUID->"54a5e329-20bd-e742-afe8-d2cfa007cfcf"], Cell[BoxData["0.0833898691699272`"], "Output", - CellChangeTimes->{3.993913486509944*^9}, + CellChangeTimes->{3.993913486509944*^9, 3.994254587424762*^9}, CellLabel-> - "Out[146]=",ExpressionUUID->"9ad3121f-0732-45d8-b739-9b541854240f"] + "Out[146]=",ExpressionUUID->"470eaf0e-6e2d-4308-8983-1dae84636726"] }, Open ]], Cell[BoxData[ @@ -15277,9 +15521,9 @@ Cell[BoxData[ CellLabel-> "In[147]:=",ExpressionUUID->"6453683b-e449-47ff-9a62-4d62a1065c45"] }, -Evaluator->"kernel 5", -WindowSize->{714, 288}, -WindowMargins->{{Automatic, 3}, {3, Automatic}}, +Evaluator->"kernel 1", +WindowSize->{714, 170.25}, +WindowMargins->{{Automatic, 3}, {Automatic, 15}}, CellContext->Notebook, FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", @@ -15297,639 +15541,639 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 423, 7, 29, "Input",ExpressionUUID->"5340c587-4281-4f64-8ac4-16edcffc7a6b"], -Cell[1002, 31, 419, 6, 33, "Output",ExpressionUUID->"2ff77687-126d-4521-80b2-40b16360f5c0"] +Cell[576, 22, 423, 7, 36, "Input",ExpressionUUID->"5340c587-4281-4f64-8ac4-16edcffc7a6b"], +Cell[1002, 31, 445, 7, 41, "Output",ExpressionUUID->"2f1f287f-7961-4023-ac25-1d46c375ed15"] }, Open ]], Cell[CellGroupData[{ -Cell[1458, 42, 246, 4, 29, "Input",ExpressionUUID->"d0e846b6-f624-4175-b323-d6355d021d29"], -Cell[1707, 48, 422, 6, 33, "Output",ExpressionUUID->"f316f4c4-3808-4355-9650-eedc1ad43cad"] +Cell[1484, 43, 246, 4, 36, "Input",ExpressionUUID->"d0e846b6-f624-4175-b323-d6355d021d29"], +Cell[1733, 49, 447, 7, 41, "Output",ExpressionUUID->"458ef2eb-7cf6-4123-b589-f08f55047850"] }, Open ]], Cell[CellGroupData[{ -Cell[2166, 59, 220, 4, 29, "Input",ExpressionUUID->"08c25d21-fb3b-4b50-ab9f-45ef4a0fb52e"], -Cell[2389, 65, 447, 7, 33, "Output",ExpressionUUID->"5c9fd1de-a322-47ca-bb52-4264d504a153"] +Cell[2217, 61, 220, 4, 36, "Input",ExpressionUUID->"08c25d21-fb3b-4b50-ab9f-45ef4a0fb52e"], +Cell[2440, 67, 469, 7, 41, "Output",ExpressionUUID->"e6a0354b-8319-45da-ba38-9280f63971bf"] }, Open ]], Cell[CellGroupData[{ -Cell[2873, 77, 175, 3, 29, "Input",ExpressionUUID->"39cc0c08-1617-4166-9ae0-4af40882f8ad"], -Cell[3051, 82, 421, 6, 33, "Output",ExpressionUUID->"7f38a228-cc1d-4643-a1b4-91201e39cdc4"] +Cell[2946, 79, 175, 3, 36, "Input",ExpressionUUID->"39cc0c08-1617-4166-9ae0-4af40882f8ad"], +Cell[3124, 84, 447, 7, 41, "Output",ExpressionUUID->"2f7fe641-392b-44ff-852b-b678b73afb55"] }, Open ]], Cell[CellGroupData[{ -Cell[3509, 93, 257, 7, 42, "Input",ExpressionUUID->"060a7784-7710-4bff-a58c-e56e9bdc1822"], -Cell[3769, 102, 434, 6, 33, "Output",ExpressionUUID->"8c68cfa5-c9bb-4650-b311-fada6f055089"] +Cell[3608, 96, 257, 7, 54, "Input",ExpressionUUID->"060a7784-7710-4bff-a58c-e56e9bdc1822"], +Cell[3868, 105, 462, 7, 41, "Output",ExpressionUUID->"7fdd255f-cf38-4be9-bd0f-1d662026c01d"] }, Open ]], Cell[CellGroupData[{ -Cell[4240, 113, 131, 2, 29, "Input",ExpressionUUID->"a9c7fc5d-6fac-40d9-8508-88018afcc1bc"], -Cell[4374, 117, 422, 6, 33, "Output",ExpressionUUID->"3d9c7b67-f7a8-4890-8669-3cc7b5800a83"] +Cell[4367, 117, 131, 2, 36, "Input",ExpressionUUID->"a9c7fc5d-6fac-40d9-8508-88018afcc1bc"], +Cell[4501, 121, 448, 7, 41, "Output",ExpressionUUID->"a16cd8fc-cf2e-408f-845d-d62527c3c2ee"] }, Open ]], Cell[CellGroupData[{ -Cell[4833, 128, 276, 6, 29, "Input",ExpressionUUID->"130a537a-a89c-4ba1-8509-3ff94bb09943"], -Cell[5112, 136, 431, 6, 33, "Output",ExpressionUUID->"0b8f8115-f662-46ed-b466-cff706dad83b"] +Cell[4986, 133, 276, 6, 36, "Input",ExpressionUUID->"130a537a-a89c-4ba1-8509-3ff94bb09943"], +Cell[5265, 141, 457, 7, 41, "Output",ExpressionUUID->"02e1fb0f-671b-4de5-bd1d-cd8433c5361d"] }, Open ]], Cell[CellGroupData[{ -Cell[5580, 147, 257, 7, 29, "Input",ExpressionUUID->"59c8805a-1cc3-4b74-a032-2a60d835e26e"], -Cell[5840, 156, 428, 6, 33, "Output",ExpressionUUID->"62cb075f-9772-4640-860d-178966e8f448"] +Cell[5759, 153, 257, 7, 36, "Input",ExpressionUUID->"59c8805a-1cc3-4b74-a032-2a60d835e26e"], +Cell[6019, 162, 456, 7, 41, "Output",ExpressionUUID->"194b6630-d770-49ce-b707-e4aaa9c8fd65"] }, Open ]], Cell[CellGroupData[{ -Cell[6305, 167, 226, 4, 29, "Input",ExpressionUUID->"a37b47c0-4433-4ca3-a9b3-3e037b74a968"], -Cell[6534, 173, 398, 6, 33, "Output",ExpressionUUID->"62afb091-1196-4890-b9a5-0934ba660e50"] +Cell[6512, 174, 226, 4, 36, "Input",ExpressionUUID->"a37b47c0-4433-4ca3-a9b3-3e037b74a968"], +Cell[6741, 180, 420, 6, 41, "Output",ExpressionUUID->"90bff8e5-2182-4f39-b2b5-0087613a09d3"] }, Open ]], Cell[CellGroupData[{ -Cell[6969, 184, 226, 4, 29, "Input",ExpressionUUID->"192b8a46-ce9e-467d-b141-21a46d717371"], -Cell[7198, 190, 393, 6, 33, "Output",ExpressionUUID->"0d8d401f-aead-4e10-8b63-4c754ff33d00"] +Cell[7198, 191, 226, 4, 36, "Input",ExpressionUUID->"192b8a46-ce9e-467d-b141-21a46d717371"], +Cell[7427, 197, 415, 6, 41, "Output",ExpressionUUID->"1db5b6fb-f3d6-4134-953d-021924d1d6f3"] }, Open ]], Cell[CellGroupData[{ -Cell[7628, 201, 129, 2, 29, "Input",ExpressionUUID->"7287cc68-46a7-4f33-8bd1-9e1836437c9d"], -Cell[7760, 205, 418, 6, 33, "Output",ExpressionUUID->"5584e9e1-dbf1-4433-ad3e-1e4ba4b567cb"] +Cell[7879, 208, 129, 2, 36, "Input",ExpressionUUID->"7287cc68-46a7-4f33-8bd1-9e1836437c9d"], +Cell[8011, 212, 442, 7, 41, "Output",ExpressionUUID->"50a3741a-901d-45ee-8e04-6323bfc7d459"] }, Open ]], Cell[CellGroupData[{ -Cell[8215, 216, 129, 2, 29, "Input",ExpressionUUID->"a9d7f555-b670-49c2-baaa-bca7623d7031"], -Cell[8347, 220, 416, 6, 33, "Output",ExpressionUUID->"d7162ac2-53b5-4cce-8a6c-b442b4a422cf"] +Cell[8490, 224, 129, 2, 36, "Input",ExpressionUUID->"a9d7f555-b670-49c2-baaa-bca7623d7031"], +Cell[8622, 228, 442, 7, 41, "Output",ExpressionUUID->"98a9c8c4-dac8-4367-8264-9c2b266b08c4"] }, Open ]], Cell[CellGroupData[{ -Cell[8800, 231, 557, 19, 79, "Input",ExpressionUUID->"11309400-bcac-470f-af41-a39c3a7614e0"], -Cell[9360, 252, 435, 6, 33, "Output",ExpressionUUID->"8fea9113-32dd-4c09-8982-391eee7fe789"] +Cell[9101, 240, 557, 19, 100, "Input",ExpressionUUID->"11309400-bcac-470f-af41-a39c3a7614e0"], +Cell[9661, 261, 461, 7, 41, "Output",ExpressionUUID->"90902e8b-ab1f-47c7-be0a-3cea34ee9443"] }, Open ]], Cell[CellGroupData[{ -Cell[9832, 263, 557, 19, 79, "Input",ExpressionUUID->"3d54cba6-f8f1-4449-8119-70e4d6ce7801"], -Cell[10392, 284, 435, 6, 33, "Output",ExpressionUUID->"8f92645b-c8b9-4710-8b36-6ee6c8115439"] +Cell[10159, 273, 557, 19, 100, "Input",ExpressionUUID->"3d54cba6-f8f1-4449-8119-70e4d6ce7801"], +Cell[10719, 294, 461, 7, 41, "Output",ExpressionUUID->"27ba6915-12db-47c4-b78f-c3fc61ea077a"] }, Open ]], Cell[CellGroupData[{ -Cell[10864, 295, 1492, 48, 79, "Input",ExpressionUUID->"f6cb74cb-a087-4212-a782-4f230b89058c"], -Cell[12359, 345, 432, 6, 33, "Output",ExpressionUUID->"78b5cdd2-53ca-4e6a-b5e0-c8816f50ad42"] +Cell[11217, 306, 1588, 50, 103, "Input",ExpressionUUID->"f6cb74cb-a087-4212-a782-4f230b89058c"], +Cell[12808, 358, 458, 7, 41, "Output",ExpressionUUID->"2e9bbfe1-4ed3-4e7d-a7a7-a45f015c73c6"] }, Open ]], Cell[CellGroupData[{ -Cell[12828, 356, 1331, 44, 79, "Input",ExpressionUUID->"7d00126d-ffae-4c1b-be33-cd07ef70d489"], -Cell[14162, 402, 448, 7, 33, "Output",ExpressionUUID->"9cc60c8b-e4b6-4224-be6c-b8ab7fe1148a"] +Cell[13303, 370, 1422, 46, 73, "Input",ExpressionUUID->"7d00126d-ffae-4c1b-be33-cd07ef70d489"], +Cell[14728, 418, 476, 8, 41, "Output",ExpressionUUID->"ccb9b14e-0a1b-480c-b08e-a8524678562d"] }, Open ]], Cell[CellGroupData[{ -Cell[14647, 414, 1331, 44, 79, "Input",ExpressionUUID->"d9347f9e-d767-4990-98b7-c1f58c909844"], -Cell[15981, 460, 451, 7, 33, "Output",ExpressionUUID->"e2e69391-b57e-4534-b97d-86d86f800f19"] +Cell[15241, 431, 1422, 46, 73, "Input",ExpressionUUID->"d9347f9e-d767-4990-98b7-c1f58c909844"], +Cell[16666, 479, 476, 8, 41, "Output",ExpressionUUID->"6d1a7e03-a9c1-4667-b61b-6d4b7a255c4f"] }, Open ]], Cell[CellGroupData[{ -Cell[16469, 472, 1492, 48, 79, "Input",ExpressionUUID->"0bea49d8-9dad-44de-926b-6b6e61f2f2ae"], -Cell[17964, 522, 428, 6, 33, "Output",ExpressionUUID->"d0dcb8c2-1317-4942-8551-818bda097161"] +Cell[17179, 492, 1588, 50, 103, "Input",ExpressionUUID->"0bea49d8-9dad-44de-926b-6b6e61f2f2ae"], +Cell[18770, 544, 456, 7, 41, "Output",ExpressionUUID->"33098b64-2c42-4d38-9b9f-2e714c8f895e"] }, Open ]], Cell[CellGroupData[{ -Cell[18429, 533, 131, 2, 29, "Input",ExpressionUUID->"721a9cb2-7d79-4947-845b-5db92e48f0eb"], -Cell[18563, 537, 419, 6, 33, "Output",ExpressionUUID->"1978b12a-dcd4-4231-bed6-41d6e7fd155f"] +Cell[19263, 556, 131, 2, 36, "Input",ExpressionUUID->"721a9cb2-7d79-4947-845b-5db92e48f0eb"], +Cell[19397, 560, 445, 7, 41, "Output",ExpressionUUID->"70dfc06f-68e3-416e-9da9-ac339adabe1d"] }, Open ]], Cell[CellGroupData[{ -Cell[19019, 548, 133, 2, 29, "Input",ExpressionUUID->"d7b5a0ec-27a4-44a4-8443-f624c1532842"], -Cell[19155, 552, 419, 6, 33, "Output",ExpressionUUID->"e444f26b-8200-4cb4-9680-82fd188b97f1"] +Cell[19879, 572, 133, 2, 36, "Input",ExpressionUUID->"d7b5a0ec-27a4-44a4-8443-f624c1532842"], +Cell[20015, 576, 445, 7, 41, "Output",ExpressionUUID->"32a1b04c-7033-4c0a-9e1c-2738ec41b583"] }, Open ]], Cell[CellGroupData[{ -Cell[19611, 563, 134, 2, 29, "Input",ExpressionUUID->"7138210b-d879-4fbf-9273-3b3a2f3f864f"], -Cell[19748, 567, 426, 6, 33, "Output",ExpressionUUID->"6a9987c4-ad20-4a34-9f5d-b7f7dc0588f4"] +Cell[20497, 588, 134, 2, 36, "Input",ExpressionUUID->"7138210b-d879-4fbf-9273-3b3a2f3f864f"], +Cell[20634, 592, 452, 7, 41, "Output",ExpressionUUID->"ca5ba3ca-a1fd-4424-9761-6bd6b2fac486"] }, Open ]], Cell[CellGroupData[{ -Cell[20211, 578, 219, 4, 29, "Input",ExpressionUUID->"b7ce4ab0-32f1-4899-a6e1-2210f7465553"], -Cell[20433, 584, 430, 7, 33, "Output",ExpressionUUID->"b3fd51e8-9b66-40dc-a857-9d6018470b90"] +Cell[21123, 604, 219, 4, 36, "Input",ExpressionUUID->"b7ce4ab0-32f1-4899-a6e1-2210f7465553"], +Cell[21345, 610, 458, 8, 41, "Output",ExpressionUUID->"4d4438c3-8f52-4a22-8390-b0144b8d8578"] }, Open ]], Cell[CellGroupData[{ -Cell[20900, 596, 134, 2, 29, "Input",ExpressionUUID->"16c419c7-db80-4aec-b764-93a2c8a0664d"], -Cell[21037, 600, 420, 6, 33, "Output",ExpressionUUID->"a479a4fa-9749-4010-9d84-06b245fbcb96"] +Cell[21840, 623, 134, 2, 36, "Input",ExpressionUUID->"16c419c7-db80-4aec-b764-93a2c8a0664d"], +Cell[21977, 627, 446, 7, 41, "Output",ExpressionUUID->"f7f920c4-0106-462a-8217-f95ded6e7d19"] }, Open ]], Cell[CellGroupData[{ -Cell[21494, 611, 326, 5, 29, "Input",ExpressionUUID->"c7054bce-197b-43ab-b438-c3dec534552d"], -Cell[21823, 618, 391, 6, 33, "Output",ExpressionUUID->"dd6290e5-a9bd-479a-8a57-a03a852e3825"] +Cell[22460, 639, 326, 5, 36, "Input",ExpressionUUID->"c7054bce-197b-43ab-b438-c3dec534552d"], +Cell[22789, 646, 413, 6, 41, "Output",ExpressionUUID->"6074d1ce-614c-4b79-b2f8-eac6f3a580b1"] }, Open ]], Cell[CellGroupData[{ -Cell[22251, 629, 295, 5, 29, "Input",ExpressionUUID->"04d9f85b-535c-47e3-8d88-94ebde8d963d"], -Cell[22549, 636, 419, 6, 33, "Output",ExpressionUUID->"fb4b803d-fdec-4be8-ab37-76e999ba03f6"] +Cell[23239, 657, 295, 5, 36, "Input",ExpressionUUID->"04d9f85b-535c-47e3-8d88-94ebde8d963d"], +Cell[23537, 664, 445, 7, 41, "Output",ExpressionUUID->"b38e3014-76ac-4418-a035-c198805f79bd"] }, Open ]], Cell[CellGroupData[{ -Cell[23005, 647, 219, 4, 29, "Input",ExpressionUUID->"1254b120-e55a-45ef-9884-b2831508b52e"], -Cell[23227, 653, 419, 6, 33, "Output",ExpressionUUID->"18954e4f-8ebd-40e9-b0c6-f4e7389baae3"] +Cell[24019, 676, 219, 4, 36, "Input",ExpressionUUID->"1254b120-e55a-45ef-9884-b2831508b52e"], +Cell[24241, 682, 445, 7, 41, "Output",ExpressionUUID->"5bd535b6-aa56-4261-8cef-760790b6bd61"] }, Open ]], Cell[CellGroupData[{ -Cell[23683, 664, 350, 10, 42, "Input",ExpressionUUID->"3e0fdee8-7b0b-49db-b8d9-51923383814f"], -Cell[24036, 676, 437, 6, 33, "Output",ExpressionUUID->"ba3efe79-0215-4f83-aa02-94625f8226dd"] +Cell[24723, 694, 350, 10, 54, "Input",ExpressionUUID->"3e0fdee8-7b0b-49db-b8d9-51923383814f"], +Cell[25076, 706, 465, 7, 41, "Output",ExpressionUUID->"77d476b6-2110-46db-bfd7-dd30b2a20e81"] }, Open ]], Cell[CellGroupData[{ -Cell[24510, 687, 350, 10, 42, "Input",ExpressionUUID->"d87c0776-58cc-4eb2-b035-74f07a5a5065"], -Cell[24863, 699, 446, 7, 33, "Output",ExpressionUUID->"7243a7f6-a15b-461c-ae4b-ec0b170641d6"] +Cell[25578, 718, 350, 10, 54, "Input",ExpressionUUID->"d87c0776-58cc-4eb2-b035-74f07a5a5065"], +Cell[25931, 730, 472, 8, 41, "Output",ExpressionUUID->"277775d4-31a7-442e-8850-50f355f6e787"] }, Open ]], Cell[CellGroupData[{ -Cell[25346, 711, 994, 26, 81, "Input",ExpressionUUID->"8296cca0-4151-4907-94af-7ec80bd030f4"], -Cell[26343, 739, 433, 6, 33, "Output",ExpressionUUID->"b40fec3e-362d-4d7c-a829-2553b5dcfc39"] +Cell[26440, 743, 994, 26, 55, "Input",ExpressionUUID->"8296cca0-4151-4907-94af-7ec80bd030f4"], +Cell[27437, 771, 459, 7, 41, "Output",ExpressionUUID->"65bccfdb-35d9-41a0-9959-6ec96dbe7fea"] }, Open ]], Cell[CellGroupData[{ -Cell[26813, 750, 199, 3, 29, "Input",ExpressionUUID->"39168759-e064-4bd3-a5b1-205d78bd0fce"], -Cell[27015, 755, 418, 6, 33, "Output",ExpressionUUID->"96022a23-09c0-41cc-b2b1-4121f2f04875"] +Cell[27933, 783, 199, 3, 36, "Input",ExpressionUUID->"39168759-e064-4bd3-a5b1-205d78bd0fce"], +Cell[28135, 788, 446, 7, 41, "Output",ExpressionUUID->"d9ada0fd-50ac-471c-9099-6e0e3afe8c1a"] }, Open ]], Cell[CellGroupData[{ -Cell[27470, 766, 329, 5, 29, "Input",ExpressionUUID->"69535cf0-f0f6-4bf3-84ca-1743cc4a4c8c"], -Cell[27802, 773, 398, 6, 33, "Output",ExpressionUUID->"feadcbdc-b88a-4dd3-a6fb-32cebc338291"] +Cell[28618, 800, 329, 5, 36, "Input",ExpressionUUID->"69535cf0-f0f6-4bf3-84ca-1743cc4a4c8c"], +Cell[28950, 807, 420, 6, 41, "Output",ExpressionUUID->"9b5a8baa-f60a-4391-8408-532b5f4ff90a"] }, Open ]], -Cell[28215, 782, 173, 2, 29, "Input",ExpressionUUID->"f48bc72c-4aeb-4787-9181-44df82eae805"], +Cell[29385, 816, 173, 2, 36, "Input",ExpressionUUID->"f48bc72c-4aeb-4787-9181-44df82eae805"], Cell[CellGroupData[{ -Cell[28413, 788, 329, 5, 29, "Input",ExpressionUUID->"0300626d-d331-48d3-ab83-79f6b6e24679"], -Cell[28745, 795, 398, 6, 33, "Output",ExpressionUUID->"4917dc24-c690-4fbc-bb0d-e05a70c206d6"] +Cell[29583, 822, 329, 5, 36, "Input",ExpressionUUID->"0300626d-d331-48d3-ab83-79f6b6e24679"], +Cell[29915, 829, 418, 6, 41, "Output",ExpressionUUID->"efa9e867-5390-475d-bc43-07b300aeffa9"] }, Open ]], -Cell[29158, 804, 173, 2, 29, "Input",ExpressionUUID->"6826f0d7-bcba-4732-a484-6f23902cf789"], +Cell[30348, 838, 173, 2, 36, "Input",ExpressionUUID->"6826f0d7-bcba-4732-a484-6f23902cf789"], Cell[CellGroupData[{ -Cell[29356, 810, 330, 5, 29, "Input",ExpressionUUID->"77d50aa9-02a8-4129-8701-b552267d9f30"], -Cell[29689, 817, 395, 6, 33, "Output",ExpressionUUID->"2b502167-8bb4-423e-8d65-ae2ee1b6d043"] +Cell[30546, 844, 330, 5, 36, "Input",ExpressionUUID->"77d50aa9-02a8-4129-8701-b552267d9f30"], +Cell[30879, 851, 419, 6, 41, "Output",ExpressionUUID->"7f1a4c06-109a-4bff-b64b-7300be5c1f61"] }, Open ]], -Cell[30099, 826, 173, 2, 29, "Input",ExpressionUUID->"26176309-4237-4dc0-80b7-b19713fab449"], +Cell[31313, 860, 173, 2, 36, "Input",ExpressionUUID->"26176309-4237-4dc0-80b7-b19713fab449"], Cell[CellGroupData[{ -Cell[30297, 832, 352, 5, 29, "Input",ExpressionUUID->"a1d095fc-a7ab-4b42-9466-8a83793015b2"], -Cell[30652, 839, 397, 6, 33, "Output",ExpressionUUID->"c19da86d-d6fe-4e93-aa04-cd748dc8b329"] +Cell[31511, 866, 352, 5, 36, "Input",ExpressionUUID->"a1d095fc-a7ab-4b42-9466-8a83793015b2"], +Cell[31866, 873, 419, 6, 41, "Output",ExpressionUUID->"55414141-0908-49be-b357-a5046c9a0d2a"] }, Open ]], -Cell[31064, 848, 171, 2, 29, "Input",ExpressionUUID->"7b906e7f-cb0d-4509-9cf1-4550d1690bec"], +Cell[32300, 882, 171, 2, 36, "Input",ExpressionUUID->"7b906e7f-cb0d-4509-9cf1-4550d1690bec"], Cell[CellGroupData[{ -Cell[31260, 854, 300, 5, 29, "Input",ExpressionUUID->"a5c601e1-485e-4015-ad55-6d795586d5f3"], -Cell[31563, 861, 396, 6, 33, "Output",ExpressionUUID->"793943a0-0373-4888-bb56-ff875a0c3776"] +Cell[32496, 888, 300, 5, 36, "Input",ExpressionUUID->"a5c601e1-485e-4015-ad55-6d795586d5f3"], +Cell[32799, 895, 418, 6, 41, "Output",ExpressionUUID->"a5c7dc0b-152e-4469-a3d6-446c4947d74e"] }, Open ]], -Cell[31974, 870, 171, 2, 29, "Input",ExpressionUUID->"cd52a4da-835d-459e-9425-d8083f200665"], +Cell[33232, 904, 171, 2, 36, "Input",ExpressionUUID->"cd52a4da-835d-459e-9425-d8083f200665"], Cell[CellGroupData[{ -Cell[32170, 876, 304, 5, 29, "Input",ExpressionUUID->"e009ccc2-a0cc-4eb5-a091-f5ec24a4c522"], -Cell[32477, 883, 400, 6, 33, "Output",ExpressionUUID->"f0307285-9395-47ec-a8cf-1cd3c87798b1"] +Cell[33428, 910, 304, 5, 36, "Input",ExpressionUUID->"e009ccc2-a0cc-4eb5-a091-f5ec24a4c522"], +Cell[33735, 917, 422, 6, 41, "Output",ExpressionUUID->"3d5ee05b-d699-4709-8cf7-a9c1e40994d9"] }, Open ]], -Cell[32892, 892, 173, 2, 29, "Input",ExpressionUUID->"d0da4006-9c85-453f-8b23-0f527d36b9a7"], +Cell[34172, 926, 173, 2, 36, "Input",ExpressionUUID->"d0da4006-9c85-453f-8b23-0f527d36b9a7"], Cell[CellGroupData[{ -Cell[33090, 898, 307, 5, 29, "Input",ExpressionUUID->"6ac172fd-98be-495c-985a-3f69083eb984"], -Cell[33400, 905, 394, 6, 33, "Output",ExpressionUUID->"cab174a2-a947-452f-9066-2a33a6bd277a"] +Cell[34370, 932, 307, 5, 36, "Input",ExpressionUUID->"6ac172fd-98be-495c-985a-3f69083eb984"], +Cell[34680, 939, 418, 6, 41, "Output",ExpressionUUID->"14a759e1-7715-4b2f-8eb6-2d196755a242"] }, Open ]], -Cell[33809, 914, 172, 2, 29, "Input",ExpressionUUID->"cbd47d23-3d3b-40f7-87df-6ea6067ee442"], +Cell[35113, 948, 172, 2, 36, "Input",ExpressionUUID->"cbd47d23-3d3b-40f7-87df-6ea6067ee442"], Cell[CellGroupData[{ -Cell[34006, 920, 274, 4, 29, "Input",ExpressionUUID->"50e44c9c-f0e8-46fa-88c9-46db7a60db27"], -Cell[34283, 926, 398, 6, 33, "Output",ExpressionUUID->"9b2efd9e-d5b0-443e-8ee2-ecda317930d8"] +Cell[35310, 954, 274, 4, 36, "Input",ExpressionUUID->"50e44c9c-f0e8-46fa-88c9-46db7a60db27"], +Cell[35587, 960, 420, 6, 41, "Output",ExpressionUUID->"950239a7-23ca-4f4f-96ee-5aad48f76317"] }, Open ]], -Cell[34696, 935, 175, 2, 29, "Input",ExpressionUUID->"3f8d9290-7219-491b-9983-c0ea5d20b6c1"], +Cell[36022, 969, 175, 2, 36, "Input",ExpressionUUID->"3f8d9290-7219-491b-9983-c0ea5d20b6c1"], Cell[CellGroupData[{ -Cell[34896, 941, 19809, 485, 1844, "Input",ExpressionUUID->"9111ddf9-f2a6-49e5-8c60-614d7057495a"], -Cell[54708, 1428, 449, 7, 33, "Output",ExpressionUUID->"4ff8ba89-cf79-4188-a523-efcca094f28d"] +Cell[36222, 975, 19809, 485, 1708, "Input",ExpressionUUID->"9111ddf9-f2a6-49e5-8c60-614d7057495a"], +Cell[56034, 1462, 475, 8, 41, "Output",ExpressionUUID->"8ffeda0c-fd47-4d09-b3d2-4d98b9a748ca"] }, Open ]], Cell[CellGroupData[{ -Cell[55194, 1440, 19748, 489, 1981, "Input",ExpressionUUID->"644cfb19-2ac9-4724-86c5-9aa2ea38c02b"], -Cell[74945, 1931, 430, 6, 33, "Output",ExpressionUUID->"c872a6ca-b1d2-48fb-a63c-2599b3edd949"] +Cell[56546, 1475, 19748, 489, 1720, "Input",ExpressionUUID->"644cfb19-2ac9-4724-86c5-9aa2ea38c02b"], +Cell[76297, 1966, 458, 7, 41, "Output",ExpressionUUID->"e3d3bdef-a3ca-4c62-9aa1-272b09151563"] }, Open ]], Cell[CellGroupData[{ -Cell[75412, 1942, 19748, 483, 1970, "Input",ExpressionUUID->"d18234de-a68e-4590-8566-b12ca9abced7"], -Cell[95163, 2427, 448, 7, 33, "Output",ExpressionUUID->"dacd1ee0-7e49-4ba3-8e78-d7c8493d27fc"] +Cell[76792, 1978, 19748, 483, 1720, "Input",ExpressionUUID->"d18234de-a68e-4590-8566-b12ca9abced7"], +Cell[96543, 2463, 474, 8, 41, "Output",ExpressionUUID->"77d20ea5-7b8b-499d-b3b8-2870b2180b79"] }, Open ]], Cell[CellGroupData[{ -Cell[95648, 2439, 22534, 553, 2217, "Input",ExpressionUUID->"145c01be-cc1a-43b6-be16-bced994a4bad"], -Cell[118185, 2994, 455, 7, 33, "Output",ExpressionUUID->"e1af7bb9-4fac-4833-a665-bd876bf16cc1"] +Cell[97054, 2476, 22534, 553, 1885, "Input",ExpressionUUID->"145c01be-cc1a-43b6-be16-bced994a4bad"], +Cell[119591, 3031, 481, 8, 41, "Output",ExpressionUUID->"030d6f3a-d60a-4a49-b3d4-4eed88c563e1"] }, Open ]], Cell[CellGroupData[{ -Cell[118677, 3006, 22535, 553, 2254, "Input",ExpressionUUID->"e0affe0f-5046-4218-83b8-9755a2510908"], -Cell[141215, 3561, 457, 7, 33, "Output",ExpressionUUID->"1611397b-532a-42c7-94c5-0f354014ef75"] +Cell[120109, 3044, 22535, 553, 1885, "Input",ExpressionUUID->"e0affe0f-5046-4218-83b8-9755a2510908"], +Cell[142647, 3599, 483, 8, 41, "Output",ExpressionUUID->"9a8a3e89-4ebb-44ef-bbfb-53c0b5b9ff74"] }, Open ]], Cell[CellGroupData[{ -Cell[141709, 3573, 25491, 626, 2501, "Input",ExpressionUUID->"a706720d-ff09-4d2c-87be-8b25d85bd2a0"], -Cell[167203, 4201, 448, 7, 33, "Output",ExpressionUUID->"dc8422cc-d5e9-4e9a-b593-3ae2a348f82b"] +Cell[143167, 3612, 25491, 626, 2078, "Input",ExpressionUUID->"a706720d-ff09-4d2c-87be-8b25d85bd2a0"], +Cell[168661, 4240, 476, 8, 41, "Output",ExpressionUUID->"0ac657e9-b685-4b4e-85c6-0559811a7f4b"] }, Open ]], Cell[CellGroupData[{ -Cell[167688, 4213, 130, 2, 29, "Input",ExpressionUUID->"96aa1cf6-83c6-4b55-9959-d83a24ba74cc"], -Cell[167821, 4217, 412, 6, 33, "Output",ExpressionUUID->"2c4e478d-d257-4fc0-b91a-ef13142d306c"] +Cell[169174, 4253, 130, 2, 36, "Input",ExpressionUUID->"96aa1cf6-83c6-4b55-9959-d83a24ba74cc"], +Cell[169307, 4257, 438, 7, 41, "Output",ExpressionUUID->"c57a9ba3-b84a-43ee-9e1a-a92c4001b8da"] }, Open ]], Cell[CellGroupData[{ -Cell[168270, 4228, 130, 2, 29, "Input",ExpressionUUID->"2c4d9d2b-aed8-48d9-a787-eff93a54c3ca"], -Cell[168403, 4232, 415, 6, 33, "Output",ExpressionUUID->"e0b3db66-f06b-4ee8-a5a4-ec30fcbc66d7"] +Cell[169782, 4269, 130, 2, 36, "Input",ExpressionUUID->"2c4d9d2b-aed8-48d9-a787-eff93a54c3ca"], +Cell[169915, 4273, 441, 7, 41, "Output",ExpressionUUID->"6feed20b-a588-40f8-99b7-a0eae0294cec"] }, Open ]], Cell[CellGroupData[{ -Cell[168855, 4243, 1144, 39, 107, "Input",ExpressionUUID->"df85a411-6f10-4042-9ca8-4ca1eddad444"], -Cell[170002, 4284, 432, 6, 33, "Output",ExpressionUUID->"b5d5d469-1c62-4a57-9b6b-0c60143d0d79"] +Cell[170393, 4285, 1144, 39, 73, "Input",ExpressionUUID->"df85a411-6f10-4042-9ca8-4ca1eddad444"], +Cell[171540, 4326, 458, 7, 41, "Output",ExpressionUUID->"3bc759c7-0b91-4da5-9ff3-f90b6ae592db"] }, Open ]], Cell[CellGroupData[{ -Cell[170471, 4295, 1041, 35, 107, "Input",ExpressionUUID->"0a73e903-1d5d-4e3d-93cc-297f73877f60"], -Cell[171515, 4332, 444, 7, 33, "Output",ExpressionUUID->"03bf60ea-c17a-44b7-91c9-a96c062d846f"] +Cell[172035, 4338, 1041, 35, 73, "Input",ExpressionUUID->"0a73e903-1d5d-4e3d-93cc-297f73877f60"], +Cell[173079, 4375, 470, 8, 41, "Output",ExpressionUUID->"7b5ccc9e-99d8-407e-b15f-00827abb7cdb"] }, Open ]], Cell[CellGroupData[{ -Cell[171996, 4344, 1144, 39, 107, "Input",ExpressionUUID->"48895cbc-551f-4668-a114-4559d44de445"], -Cell[173143, 4385, 440, 6, 33, "Output",ExpressionUUID->"86893a08-494d-49b6-936e-4ebf64bfa200"] +Cell[173586, 4388, 1144, 39, 73, "Input",ExpressionUUID->"48895cbc-551f-4668-a114-4559d44de445"], +Cell[174733, 4429, 466, 7, 41, "Output",ExpressionUUID->"93903271-4348-4122-b108-bea04a6a854c"] }, Open ]], Cell[CellGroupData[{ -Cell[173620, 4396, 108, 1, 29, "Input",ExpressionUUID->"73cb464b-2ca0-4ca0-875b-09b11d3e412a"], -Cell[173731, 4399, 435, 6, 33, "Output",ExpressionUUID->"14c7f59d-350d-4ff2-8b6e-e79f6d2c4381"] +Cell[175236, 4441, 108, 1, 36, "Input",ExpressionUUID->"73cb464b-2ca0-4ca0-875b-09b11d3e412a"], +Cell[175347, 4444, 461, 7, 41, "Output",ExpressionUUID->"7609ea2f-75f1-43d5-93ee-a3e2a65f47c6"] }, Open ]], Cell[CellGroupData[{ -Cell[174203, 4410, 108, 1, 29, "Input",ExpressionUUID->"d5f885d9-7a84-40c6-8191-3198b8fa1a35"], -Cell[174314, 4413, 449, 7, 33, "Output",ExpressionUUID->"a7e9c4b9-b7bb-4ca4-b089-e562a25ffefd"] +Cell[175845, 4456, 108, 1, 36, "Input",ExpressionUUID->"d5f885d9-7a84-40c6-8191-3198b8fa1a35"], +Cell[175956, 4459, 475, 8, 41, "Output",ExpressionUUID->"9bcd554e-19f9-4a90-98e8-46a310cc48d3"] }, Open ]], Cell[CellGroupData[{ -Cell[174800, 4425, 108, 1, 29, "Input",ExpressionUUID->"5064c015-765e-47a7-9341-bf218f3be58a"], -Cell[174911, 4428, 453, 7, 33, "Output",ExpressionUUID->"6a5edb87-6796-4994-90d8-5c61dd87722b"] +Cell[176468, 4472, 108, 1, 36, "Input",ExpressionUUID->"5064c015-765e-47a7-9341-bf218f3be58a"], +Cell[176579, 4475, 481, 8, 41, "Output",ExpressionUUID->"a3dcb00c-b799-40a9-ae27-a26f8e58f4f6"] }, Open ]], Cell[CellGroupData[{ -Cell[175401, 4440, 108, 1, 29, "Input",ExpressionUUID->"7a4306c0-6e79-4ffd-aa2b-196d9d9aea0b"], -Cell[175512, 4443, 434, 6, 33, "Output",ExpressionUUID->"1745283d-7291-4687-b179-73118e532961"] +Cell[177097, 4488, 108, 1, 36, "Input",ExpressionUUID->"7a4306c0-6e79-4ffd-aa2b-196d9d9aea0b"], +Cell[177208, 4491, 462, 7, 41, "Output",ExpressionUUID->"4e6e8763-f436-4e6d-97b5-14c2186c52a5"] }, Open ]], Cell[CellGroupData[{ -Cell[175983, 4454, 107, 1, 29, "Input",ExpressionUUID->"045d038a-0bc4-48dd-b8af-cf47a3cc1abe"], -Cell[176093, 4457, 434, 6, 33, "Output",ExpressionUUID->"248ba986-aaad-45d1-a498-0ba51f0dddc9"] +Cell[177707, 4503, 107, 1, 36, "Input",ExpressionUUID->"045d038a-0bc4-48dd-b8af-cf47a3cc1abe"], +Cell[177817, 4506, 460, 7, 41, "Output",ExpressionUUID->"03783e62-69d7-40dc-85b2-da070096357a"] }, Open ]], Cell[CellGroupData[{ -Cell[176564, 4468, 107, 1, 29, "Input",ExpressionUUID->"567dfeaa-6c6d-4c8e-922d-e88f873917d2"], -Cell[176674, 4471, 431, 6, 33, "Output",ExpressionUUID->"eee27ffd-1b64-4da9-8057-94ea600424af"] +Cell[178314, 4518, 107, 1, 36, "Input",ExpressionUUID->"567dfeaa-6c6d-4c8e-922d-e88f873917d2"], +Cell[178424, 4521, 459, 7, 41, "Output",ExpressionUUID->"8cf9472b-9446-4725-abae-a243e3442867"] }, Open ]], Cell[CellGroupData[{ -Cell[177142, 4482, 497, 16, 55, "Input",ExpressionUUID->"6a0ba710-6fc5-49fa-89ea-1aea56b36a3b"], -Cell[177642, 4500, 448, 7, 33, "Output",ExpressionUUID->"53851cdf-cc95-4a81-9fac-1b691aa96f65"] +Cell[178920, 4533, 497, 16, 71, "Input",ExpressionUUID->"6a0ba710-6fc5-49fa-89ea-1aea56b36a3b"], +Cell[179420, 4551, 476, 8, 41, "Output",ExpressionUUID->"f0f93970-8be6-4e07-92c0-7393fc923804"] }, Open ]], Cell[CellGroupData[{ -Cell[178127, 4512, 497, 16, 55, "Input",ExpressionUUID->"94fafa2f-cb34-4110-9bcb-cad2e89ba091"], -Cell[178627, 4530, 445, 7, 33, "Output",ExpressionUUID->"bf1a0f1f-ecc7-42db-acca-9f31d559799f"] +Cell[179933, 4564, 497, 16, 71, "Input",ExpressionUUID->"94fafa2f-cb34-4110-9bcb-cad2e89ba091"], +Cell[180433, 4582, 473, 8, 41, "Output",ExpressionUUID->"bda17cdc-dd38-46ae-86e0-01c390027488"] }, Open ]], Cell[CellGroupData[{ -Cell[179109, 4542, 1788, 60, 183, "Input",ExpressionUUID->"768f017f-12f6-4d51-9fa0-7726c4bcaa15"], -Cell[180900, 4604, 432, 6, 33, "Output",ExpressionUUID->"0876a694-86ec-4c4e-962b-51412f329ea1"] +Cell[180943, 4595, 1788, 60, 142, "Input",ExpressionUUID->"768f017f-12f6-4d51-9fa0-7726c4bcaa15"], +Cell[182734, 4657, 457, 7, 41, "Output",ExpressionUUID->"71456237-9957-44af-bc44-eb43c2edd485"] }, Open ]], Cell[CellGroupData[{ -Cell[181369, 4615, 1101, 36, 131, "Input",ExpressionUUID->"f37944e3-e08e-42c3-93bb-55ba2aa65976"], -Cell[182473, 4653, 448, 7, 33, "Output",ExpressionUUID->"b7916e35-f77b-4846-a227-56723c75d258"] +Cell[183228, 4669, 1101, 36, 73, "Input",ExpressionUUID->"f37944e3-e08e-42c3-93bb-55ba2aa65976"], +Cell[184332, 4707, 473, 8, 41, "Output",ExpressionUUID->"0521c1ce-c963-4bea-90b7-2d0f13c3c8b9"] }, Open ]], Cell[CellGroupData[{ -Cell[182958, 4665, 1818, 61, 160, "Input",ExpressionUUID->"fa1baf32-7832-4a1f-b77f-62d7239b3c3c"], -Cell[184779, 4728, 434, 6, 33, "Output",ExpressionUUID->"8f995499-97da-474e-8d87-84d5591275b5"] +Cell[184842, 4720, 1818, 61, 144, "Input",ExpressionUUID->"fa1baf32-7832-4a1f-b77f-62d7239b3c3c"], +Cell[186663, 4783, 460, 7, 41, "Output",ExpressionUUID->"e36bbd70-8830-42b1-adae-0edf9e8bb547"] }, Open ]], Cell[CellGroupData[{ -Cell[185250, 4739, 1631, 53, 162, "Input",ExpressionUUID->"d095eabe-1a14-42af-ac8c-650159f60880"], -Cell[186884, 4794, 431, 6, 33, "Output",ExpressionUUID->"13722f58-d3d8-4fca-b758-a5cf2126b35a"] +Cell[187160, 4795, 1631, 53, 101, "Input",ExpressionUUID->"d095eabe-1a14-42af-ac8c-650159f60880"], +Cell[188794, 4850, 457, 7, 41, "Output",ExpressionUUID->"c4d3ed78-7eec-4a12-9453-98af057f8970"] }, Open ]], Cell[CellGroupData[{ -Cell[187352, 4805, 1631, 53, 162, "Input",ExpressionUUID->"5931f665-0212-404b-a9fd-a1836443f4c7"], -Cell[188986, 4860, 431, 6, 33, "Output",ExpressionUUID->"8742e682-ce45-4a66-aaa2-ee9c276ce0a1"] +Cell[189288, 4862, 1631, 53, 101, "Input",ExpressionUUID->"5931f665-0212-404b-a9fd-a1836443f4c7"], +Cell[190922, 4917, 457, 7, 41, "Output",ExpressionUUID->"04aa6988-f91a-4420-9cfd-72693271b536"] }, Open ]], Cell[CellGroupData[{ -Cell[189454, 4871, 230, 4, 29, "Input",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], -Cell[189687, 4877, 156, 2, 33, "Output",ExpressionUUID->"e3e4a6c4-a3b3-427c-9a50-d68e8a1f7c20"] +Cell[191416, 4929, 230, 4, 36, "Input",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], +Cell[191649, 4935, 178, 2, 41, "Output",ExpressionUUID->"dd872366-165e-4cd4-a19a-e7457f2f03b2"] }, Open ]], -Cell[189858, 4882, 173, 2, 29, "Input",ExpressionUUID->"5965eb10-01f8-5545-9b6f-8fab318cd4b7"], +Cell[191842, 4940, 173, 2, 36, "Input",ExpressionUUID->"5965eb10-01f8-5545-9b6f-8fab318cd4b7"], Cell[CellGroupData[{ -Cell[190056, 4888, 228, 4, 29, "Input",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], -Cell[190287, 4894, 158, 2, 33, "Output",ExpressionUUID->"8fcd0982-58af-41c6-9a1c-179b00570a3d"] +Cell[192040, 4946, 228, 4, 36, "Input",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], +Cell[192271, 4952, 182, 2, 41, "Output",ExpressionUUID->"cf899672-b9e9-4eda-bae2-ddcac48eb2b1"] }, Open ]], -Cell[190460, 4899, 173, 2, 29, "Input",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], +Cell[192468, 4957, 173, 2, 36, "Input",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], Cell[CellGroupData[{ -Cell[190658, 4905, 1297, 42, 111, "Input",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], -Cell[191958, 4949, 195, 2, 33, "Output",ExpressionUUID->"e1888170-e28e-4003-b74c-8d497f9d1c16"] +Cell[192666, 4963, 1297, 42, 61, "Input",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], +Cell[193966, 5007, 220, 3, 41, "Output",ExpressionUUID->"94959f9d-bab0-4f6a-aa02-ac5789aff988"] }, Open ]], Cell[CellGroupData[{ -Cell[192190, 4956, 927, 30, 96, "Input",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], -Cell[193120, 4988, 198, 2, 33, "Output",ExpressionUUID->"78ee89a4-569b-4189-a96c-b57d8156a57f"] +Cell[194223, 5015, 927, 30, 73, "Input",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], +Cell[195153, 5047, 225, 3, 41, "Output",ExpressionUUID->"8975f5b3-40f5-4106-b1f8-c041d5892c95"] }, Open ]], Cell[CellGroupData[{ -Cell[193355, 4995, 908, 29, 55, "Input",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], -Cell[194266, 5026, 195, 2, 33, "Output",ExpressionUUID->"7c141914-b00d-4538-b329-763a7da61522"] +Cell[195415, 5055, 908, 29, 73, "Input",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], +Cell[196326, 5086, 222, 3, 41, "Output",ExpressionUUID->"1be4bc5a-808d-4484-bf6a-8144aa8f80c9"] }, Open ]], Cell[CellGroupData[{ -Cell[194498, 5033, 554, 18, 51, "Input",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], -Cell[195055, 5053, 191, 2, 33, "Output",ExpressionUUID->"a9468761-a43c-4c9c-85e6-9751630c2760"] +Cell[196585, 5094, 554, 18, 66, "Input",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], +Cell[197142, 5114, 216, 3, 41, "Output",ExpressionUUID->"5468c7d8-ab52-4d19-861c-0bb54733360e"] }, Open ]], Cell[CellGroupData[{ -Cell[195283, 5060, 647, 21, 51, "Input",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], -Cell[195933, 5083, 190, 2, 33, "Output",ExpressionUUID->"9050ae96-7402-4e5f-bedc-f8add3abbc1a"] +Cell[197395, 5122, 647, 21, 66, "Input",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], +Cell[198045, 5145, 215, 3, 41, "Output",ExpressionUUID->"51853cc2-b01c-4df1-939b-43045adcb9cc"] }, Open ]], Cell[CellGroupData[{ -Cell[196160, 5090, 166, 4, 55, "Input",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], -Cell[196329, 5096, 192, 2, 33, "Output",ExpressionUUID->"e411e238-3a34-412e-8148-74adc1584ba6"] +Cell[198297, 5153, 166, 4, 71, "Input",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], +Cell[198466, 5159, 217, 3, 41, "Output",ExpressionUUID->"767de6be-4ba9-4ae0-95ae-fe98444b9edc"] }, Open ]], Cell[CellGroupData[{ -Cell[196558, 5103, 166, 4, 54, "Input",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], -Cell[196727, 5109, 190, 2, 33, "Output",ExpressionUUID->"d5908411-d1f1-4833-be44-5cc9a7b80907"] +Cell[198720, 5167, 166, 4, 69, "Input",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], +Cell[198889, 5173, 215, 3, 41, "Output",ExpressionUUID->"0820fe86-ac82-4d93-b13e-f019360a38da"] }, Open ]], Cell[CellGroupData[{ -Cell[196954, 5116, 177, 4, 43, "Input",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], -Cell[197134, 5122, 191, 2, 33, "Output",ExpressionUUID->"13c529cb-6d29-4e8a-83d9-9b0aec974e9e"] +Cell[199141, 5181, 177, 4, 55, "Input",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], +Cell[199321, 5187, 218, 3, 41, "Output",ExpressionUUID->"4c93d05e-b772-4dd2-a3cc-df02ffb2e94f"] }, Open ]], Cell[CellGroupData[{ -Cell[197362, 5129, 177, 4, 43, "Input",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], -Cell[197542, 5135, 190, 2, 33, "Output",ExpressionUUID->"3a303b3f-8765-46a5-be66-86e7dc0e589b"] +Cell[199576, 5195, 177, 4, 55, "Input",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], +Cell[199756, 5201, 215, 3, 41, "Output",ExpressionUUID->"c7389358-4679-4a88-90fa-b1d9c086e30f"] }, Open ]], Cell[CellGroupData[{ -Cell[197769, 5142, 6051, 184, 474, "Input",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], -Cell[203823, 5328, 194, 2, 33, "Output",ExpressionUUID->"7bafc6ea-457b-4c21-85ab-1539fb266eef"] +Cell[200008, 5209, 6051, 184, 431, "Input",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], +Cell[206062, 5395, 219, 3, 41, "Output",ExpressionUUID->"b6a8ef9e-92af-4032-8705-88d583616763"] }, Open ]], Cell[CellGroupData[{ -Cell[204054, 5335, 364, 8, 41, "Input",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], -Cell[204421, 5345, 193, 2, 33, "Output",ExpressionUUID->"818510c7-70d2-4476-8ab6-6e092ef30694"] +Cell[206318, 5403, 364, 8, 53, "Input",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], +Cell[206685, 5413, 218, 3, 41, "Output",ExpressionUUID->"dce6a459-8d19-4d3b-922a-b12dc58e0344"] }, Open ]], Cell[CellGroupData[{ -Cell[204651, 5352, 6118, 186, 474, "Input",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], -Cell[210772, 5540, 193, 2, 33, "Output",ExpressionUUID->"00dabf05-a61f-4385-a1ba-cb9cc0184da4"] +Cell[206940, 5421, 6118, 186, 431, "Input",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], +Cell[213061, 5609, 218, 3, 41, "Output",ExpressionUUID->"13ac36c9-dd0e-429c-8275-a71d968b4276"] }, Open ]], Cell[CellGroupData[{ -Cell[211002, 5547, 364, 8, 41, "Input",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], -Cell[211369, 5557, 192, 2, 33, "Output",ExpressionUUID->"026f6c10-de57-4902-ba20-9da41c4f2df8"] +Cell[213316, 5617, 364, 8, 53, "Input",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], +Cell[213683, 5627, 219, 3, 41, "Output",ExpressionUUID->"82ae4efb-fb32-4065-bcc6-3d32611fc50a"] }, Open ]], Cell[CellGroupData[{ -Cell[211598, 5564, 2659, 87, 285, "Input",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], -Cell[214260, 5653, 189, 2, 33, "Output",ExpressionUUID->"421371bc-b610-4de8-8cd4-4cda93366277"] +Cell[213939, 5635, 2659, 87, 215, "Input",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], +Cell[216601, 5724, 214, 3, 41, "Output",ExpressionUUID->"03f9f0ed-9287-4930-9df7-c9571694d476"] }, Open ]], Cell[CellGroupData[{ -Cell[214486, 5660, 2599, 84, 211, "Input",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], -Cell[217088, 5746, 191, 2, 33, "Output",ExpressionUUID->"8635dd4c-9a2c-4de9-873a-e72bfa6d877a"] +Cell[216852, 5732, 2599, 84, 215, "Input",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], +Cell[219454, 5818, 216, 3, 41, "Output",ExpressionUUID->"d277254f-1aa1-47a9-ab8d-ea37f8449e66"] }, Open ]], Cell[CellGroupData[{ -Cell[217316, 5753, 3708, 117, 327, "Input",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], -Cell[221027, 5872, 192, 2, 33, "Output",ExpressionUUID->"b4d6351a-1815-4d82-b166-22e6e6a2f795"] +Cell[219707, 5826, 3708, 117, 316, "Input",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], +Cell[223418, 5945, 217, 3, 41, "Output",ExpressionUUID->"cf4bfeaa-a805-4624-b76c-a5351eb982e5"] }, Open ]], -Cell[221234, 5877, 160, 3, 29, "Input",ExpressionUUID->"8111b6bb-cdcb-ad40-9440-412e77bed40d"], +Cell[223650, 5951, 160, 3, 36, "Input",ExpressionUUID->"8111b6bb-cdcb-ad40-9440-412e77bed40d"], Cell[CellGroupData[{ -Cell[221419, 5884, 2073, 58, 234, "Input",ExpressionUUID->"fc88a60e-e348-d344-96c4-1f4f66f53217"], -Cell[223495, 5944, 597, 13, 26, "Message",ExpressionUUID->"296c0829-dbd3-4704-93b8-8265a14487d0"], -Cell[224095, 5959, 600, 13, 26, "Message",ExpressionUUID->"4213c482-804d-47eb-a01f-f662c6240e41"], -Cell[224698, 5974, 604, 13, 26, "Message",ExpressionUUID->"a5fb6b58-c5c6-4772-b54f-32a14986f05a"], -Cell[225305, 5989, 494, 11, 26, "Message",ExpressionUUID->"0487bdeb-6054-4bb2-b631-2f97464bff3b"], -Cell[225802, 6002, 188, 2, 33, "Output",ExpressionUUID->"9c6cb9a4-43eb-44fa-9cbe-2371e1023a3d"] +Cell[223835, 5958, 2073, 58, 116, "Input",ExpressionUUID->"fc88a60e-e348-d344-96c4-1f4f66f53217"], +Cell[225911, 6018, 692, 15, 53, "Message",ExpressionUUID->"62a245d6-75fc-43a8-9206-3b40aecd7d51"], +Cell[226606, 6035, 690, 15, 53, "Message",ExpressionUUID->"240babca-9508-4e27-9b6a-b9e075b6b779"], +Cell[227299, 6052, 690, 15, 53, "Message",ExpressionUUID->"81766610-946d-4385-9ee0-149c97146aea"], +Cell[227992, 6069, 517, 12, 32, "Message",ExpressionUUID->"a2cc2bb0-2145-4f67-afac-68607f710b26"], +Cell[228512, 6083, 213, 3, 41, "Output",ExpressionUUID->"69e16565-4021-4a97-91c6-a3b99855cc0d"] }, Open ]], Cell[CellGroupData[{ -Cell[226027, 6009, 2073, 58, 99, "Input",ExpressionUUID->"dca13eb7-7f94-3e45-81a8-b62dad3009d2"], -Cell[228103, 6069, 597, 13, 26, "Message",ExpressionUUID->"000bf45f-2856-4d01-b6b2-aa7c1c29711a"], -Cell[228703, 6084, 602, 13, 26, "Message",ExpressionUUID->"76a89296-9be8-449b-ba2f-f530cc351cf4"], -Cell[229308, 6099, 604, 13, 26, "Message",ExpressionUUID->"016a40ba-d463-488a-8313-66bc1e671eed"], -Cell[229915, 6114, 492, 11, 26, "Message",ExpressionUUID->"121a7e3e-35a8-48f2-ad97-66c07aa8c206"], -Cell[230410, 6127, 191, 2, 33, "Output",ExpressionUUID->"9cb3e202-b1d4-409f-bdad-bf5af816582b"] +Cell[228762, 6091, 2073, 58, 116, "Input",ExpressionUUID->"dca13eb7-7f94-3e45-81a8-b62dad3009d2"], +Cell[230838, 6151, 692, 15, 53, "Message",ExpressionUUID->"acfd05e1-94af-44fd-9ad2-767b5cf0fa54"], +Cell[231533, 6168, 690, 15, 53, "Message",ExpressionUUID->"412f973f-f41e-4047-bccb-39764effacff"], +Cell[232226, 6185, 692, 15, 53, "Message",ExpressionUUID->"dd9e0ca5-c1cc-4a8f-b738-68c8eebc793e"], +Cell[232921, 6202, 519, 12, 32, "Message",ExpressionUUID->"efc110e0-422a-4af2-97fa-c9ebed11a5f6"], +Cell[233443, 6216, 216, 3, 41, "Output",ExpressionUUID->"aaae4457-4efd-4f12-b620-32b3f316f003"] }, Open ]], Cell[CellGroupData[{ -Cell[230638, 6134, 1957, 52, 102, "Input",ExpressionUUID->"46451e4d-f5ef-b246-91c6-4265c9fafb97"], -Cell[232598, 6188, 20466, 385, 236, "Output",ExpressionUUID->"5ac2e6ff-e160-4f74-ae87-ee4fbb012d7e"] +Cell[233696, 6224, 2049, 54, 63, "Input",ExpressionUUID->"46451e4d-f5ef-b246-91c6-4265c9fafb97"], +Cell[235748, 6280, 20493, 386, 295, "Output",ExpressionUUID->"f3031d97-eb5d-485f-88d0-0c0734645391"] }, Open ]], Cell[CellGroupData[{ -Cell[253101, 6578, 2113, 59, 261, "Input",ExpressionUUID->"06bd0169-a5a6-404c-935d-e1a61565f71e"], -Cell[255217, 6639, 535, 12, 59, "Message",ExpressionUUID->"c9a7e4d7-d037-448b-b83a-b387245fc0d8"], -Cell[255755, 6653, 541, 12, 59, "Message",ExpressionUUID->"7ac18c6d-5ea9-4bc1-b86e-acd7f4b02743"], -Cell[256299, 6667, 544, 12, 59, "Message",ExpressionUUID->"a00d6dba-d985-411b-ab3f-e20ccfd84bae"], -Cell[256846, 6681, 492, 11, 26, "Message",ExpressionUUID->"4b0ec7c9-539c-464c-ae7d-cf14a96e932c"], -Cell[257341, 6694, 22453, 416, 232, "Output",ExpressionUUID->"9f4e2c34-4db8-4279-a995-fd58feb3c00e"] +Cell[256278, 6671, 2113, 59, 116, "Input",ExpressionUUID->"06bd0169-a5a6-404c-935d-e1a61565f71e"], +Cell[258394, 6732, 560, 13, 48, "Message",ExpressionUUID->"7ea45914-5656-4944-9ed2-caa595b4b2af"], +Cell[258957, 6747, 565, 13, 48, "Message",ExpressionUUID->"cd2c8174-ba71-48cc-b14e-df25cfdf381a"], +Cell[259525, 6762, 568, 13, 48, "Message",ExpressionUUID->"fd8c3cde-89b6-4912-bd95-2e42c516eb50"], +Cell[260096, 6777, 519, 12, 32, "Message",ExpressionUUID->"c0160085-ac39-4706-8be7-a0f656c1cd92"], +Cell[260618, 6791, 22478, 417, 290, "Output",ExpressionUUID->"d154182e-0511-491a-b266-3083e57fa75b"] }, Open ]], Cell[CellGroupData[{ -Cell[279831, 7115, 2476, 69, 169, "Input",ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-b938908ab9a4"], -Cell[282310, 7186, 9492, 222, 242, "Output",ExpressionUUID->"292f58bb-a964-46f8-a590-e5fa0410c9d4"] +Cell[283133, 7213, 2476, 69, 140, "Input",ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-b938908ab9a4"], +Cell[285612, 7284, 9514, 222, 303, "Output",ExpressionUUID->"fe94a47c-5a4e-4064-8ac5-ffe6d46e1cf1"] }, Open ]], Cell[CellGroupData[{ -Cell[291839, 7413, 228, 4, 29, "Input",ExpressionUUID->"6b0777bb-40fd-b54e-aa03-b6e82cb2e939"], -Cell[292070, 7419, 28818, 548, 232, "Output",ExpressionUUID->"eaba24d7-620a-4380-9738-49541306e8d9"] +Cell[295163, 7511, 228, 4, 36, "Input",ExpressionUUID->"6b0777bb-40fd-b54e-aa03-b6e82cb2e939"], +Cell[295394, 7517, 28840, 548, 290, "Output",ExpressionUUID->"21b60f58-8a72-4338-aa98-329b7a33c5e7"] }, Open ]], Cell[CellGroupData[{ -Cell[320925, 7972, 236, 6, 47, "Input",ExpressionUUID->"1ec1e156-ca0f-9240-857c-ac86e3a0e3fd"], -Cell[321164, 7980, 191, 2, 33, "Output",ExpressionUUID->"a351bf50-4c20-4251-82d4-a4ccf332deb2"] +Cell[324271, 8070, 236, 6, 61, "Input",ExpressionUUID->"1ec1e156-ca0f-9240-857c-ac86e3a0e3fd"], +Cell[324510, 8078, 218, 3, 41, "Output",ExpressionUUID->"422bb6fa-8149-42cf-9a6f-7e74164172b6"] }, Open ]], Cell[CellGroupData[{ -Cell[321392, 7987, 1833, 52, 190, "Input",ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-da901e49f6f1"], -Cell[323228, 8041, 541, 12, 59, "Message",ExpressionUUID->"9d3dc5e4-443c-4d81-bc23-10ac0c3d65ea"], -Cell[323772, 8055, 544, 12, 59, "Message",ExpressionUUID->"9cefbd51-2850-4ea6-81aa-875466d3d63f"], -Cell[324319, 8069, 546, 12, 59, "Message",ExpressionUUID->"dca8c5b8-e941-486c-89c2-b98d8fa38644"], -Cell[324868, 8083, 491, 11, 26, "Message",ExpressionUUID->"e205f72e-044f-4d1e-8b54-b23d5e4150e4"], -Cell[325362, 8096, 21907, 407, 232, "Output",ExpressionUUID->"bb49d1a1-7eb5-4d6b-a436-f9f95b11eb94"] +Cell[324765, 8086, 1833, 52, 116, "Input",ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-da901e49f6f1"], +Cell[326601, 8140, 566, 13, 48, "Message",ExpressionUUID->"a2b870fb-6aea-4498-8019-f36b38f6688a"], +Cell[327170, 8155, 571, 13, 48, "Message",ExpressionUUID->"6d8017e6-7234-4d73-9935-e763b01c361c"], +Cell[327744, 8170, 569, 13, 48, "Message",ExpressionUUID->"d86f9105-dc40-4c97-8689-6ca58379b43c"], +Cell[328316, 8185, 518, 12, 32, "Message",ExpressionUUID->"8a9ea937-fa95-4e1a-80aa-716bb8e680b0"], +Cell[328837, 8199, 21932, 408, 290, "Output",ExpressionUUID->"1eb9cba5-9bb2-4af3-b3ad-951aa2f6b1df"] }, Open ]], Cell[CellGroupData[{ -Cell[347306, 8508, 1616, 48, 104, "Input",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], -Cell[348925, 8558, 625, 13, 80, "Message",ExpressionUUID->"2c94236a-5717-4dce-8696-3f984e8d8cec"], -Cell[349553, 8573, 628, 13, 80, "Message",ExpressionUUID->"fd04b7a1-f9ae-44bd-ac15-8e0176699632"], -Cell[350184, 8588, 629, 13, 80, "Message",ExpressionUUID->"234252e5-9eb6-4e3e-a1ca-3244847369b5"], -Cell[350816, 8603, 493, 11, 26, "Message",ExpressionUUID->"4f8284a2-3caf-4d00-9aa3-1c4d5e1a3cb4"], -Cell[351312, 8616, 193, 3, 33, "Output",ExpressionUUID->"dd95c4b4-9027-4cce-ae10-02c85448fcd9"] +Cell[350806, 8612, 1616, 48, 86, "Input",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], +Cell[352425, 8662, 691, 15, 53, "Message",ExpressionUUID->"e75deb7d-80eb-4b55-90bd-60ffc1a293e0"], +Cell[353119, 8679, 691, 15, 53, "Message",ExpressionUUID->"3e765f54-6cc1-4fc9-8063-e4a5434402a8"], +Cell[353813, 8696, 692, 15, 53, "Message",ExpressionUUID->"e52a9643-3654-4d1b-a436-18a6922ac507"], +Cell[354508, 8713, 520, 12, 32, "Message",ExpressionUUID->"23c6f83b-5440-4654-97a6-c4948d5d2ee3"], +Cell[355031, 8727, 218, 4, 41, "Output",ExpressionUUID->"bd6af69c-1be1-4028-86ce-6dd3f8d40229"] }, Open ]], Cell[CellGroupData[{ -Cell[351542, 8624, 2274, 64, 212, "Input",ExpressionUUID->"0b10f52e-4583-2a4b-993d-96e59dd43e6a"], -Cell[353819, 8690, 600, 13, 80, "Message",ExpressionUUID->"3c1ff53b-02d7-4ddb-ba18-d22d155e0697"], -Cell[354422, 8705, 603, 13, 80, "Message",ExpressionUUID->"4a3d79d7-d67e-41f1-bd12-e24a3dba5269"], -Cell[355028, 8720, 607, 13, 80, "Message",ExpressionUUID->"7451c7ab-d2ff-4eb7-8c35-d6d706e29858"], -Cell[355638, 8735, 495, 11, 26, "Message",ExpressionUUID->"f323dc1c-65c7-402c-9c27-2a290e3767eb"], -Cell[356136, 8748, 192, 3, 33, "Output",ExpressionUUID->"76adc51e-2c5d-4752-8d8e-0bb42255cc60"] +Cell[355286, 8736, 2274, 64, 81, "Input",ExpressionUUID->"0b10f52e-4583-2a4b-993d-96e59dd43e6a"], +Cell[357563, 8802, 693, 15, 53, "Message",ExpressionUUID->"4b2f325e-0682-41c6-bea3-fc07be75ef02"], +Cell[358259, 8819, 695, 15, 53, "Message",ExpressionUUID->"47d9608b-ce06-4765-9b6c-b0b67abb46dc"], +Cell[358957, 8836, 695, 15, 53, "Message",ExpressionUUID->"e349ded9-9ce7-4b0c-86fa-240f8bf84362"], +Cell[359655, 8853, 520, 12, 32, "Message",ExpressionUUID->"e41216a2-e7c2-4250-8ced-3deb8075d3f9"], +Cell[360178, 8867, 216, 4, 41, "Output",ExpressionUUID->"27c36be9-b0e4-4bb3-8c8d-617a44c71585"] }, Open ]], Cell[CellGroupData[{ -Cell[356365, 8756, 2230, 63, 212, "Input",ExpressionUUID->"a58948c9-6d3d-e847-a269-d2e0cc5d1484"], -Cell[358598, 8821, 600, 13, 80, "Message",ExpressionUUID->"c440f8da-7ec6-4083-9f74-1fad49a8395a"], -Cell[359201, 8836, 603, 13, 80, "Message",ExpressionUUID->"2a7dd348-7e38-4658-9469-fbc2148530d6"], -Cell[359807, 8851, 609, 13, 80, "Message",ExpressionUUID->"6fb74aed-6310-41f2-accc-b249129e6d57"], -Cell[360419, 8866, 497, 11, 26, "Message",ExpressionUUID->"fb9c6e40-c988-4905-b495-b64707ae6e3c"], -Cell[360919, 8879, 192, 3, 33, "Output",ExpressionUUID->"56dddbdd-2c8b-4c4f-a86b-9995233e1e37"] +Cell[360431, 8876, 2230, 63, 81, "Input",ExpressionUUID->"a58948c9-6d3d-e847-a269-d2e0cc5d1484"], +Cell[362664, 8941, 693, 15, 53, "Message",ExpressionUUID->"905e9306-c8e5-4532-99bd-9ac5487d70a8"], +Cell[363360, 8958, 692, 15, 53, "Message",ExpressionUUID->"c3f9c17e-fb60-477a-9bda-c65126e8679e"], +Cell[364055, 8975, 695, 15, 53, "Message",ExpressionUUID->"8519fa5b-9cac-4ae7-a790-b34e4922afed"], +Cell[364753, 8992, 522, 12, 32, "Message",ExpressionUUID->"8e8883d8-2090-4802-97cb-6e3b3c4d88f5"], +Cell[365278, 9006, 219, 4, 41, "Output",ExpressionUUID->"b43931c4-a32c-41ba-bea3-ba51f3a0d364"] }, Open ]], Cell[CellGroupData[{ -Cell[361148, 8887, 2233, 63, 212, "Input",ExpressionUUID->"c817b2d1-7deb-5a45-9938-ca10003188eb"], -Cell[363384, 8952, 600, 13, 80, "Message",ExpressionUUID->"e2a94797-360e-4638-8e95-9e3e2a59b6ff"], -Cell[363987, 8967, 605, 13, 80, "Message",ExpressionUUID->"5b9aeef1-b0fd-4856-b963-f84e2d75534a"], -Cell[364595, 8982, 607, 13, 80, "Message",ExpressionUUID->"9f2f97bc-6dcc-4533-884a-07f2a62a3413"], -Cell[365205, 8997, 495, 11, 26, "Message",ExpressionUUID->"d1238310-cd30-453c-89ae-96210d33bb95"], -Cell[365703, 9010, 193, 3, 33, "Output",ExpressionUUID->"b04dcc75-081a-43c3-9396-dea12245ed3f"] +Cell[365534, 9015, 2233, 63, 81, "Input",ExpressionUUID->"c817b2d1-7deb-5a45-9938-ca10003188eb"], +Cell[367770, 9080, 692, 15, 53, "Message",ExpressionUUID->"437e416e-a5bc-46b7-9773-93e5b81100a6"], +Cell[368465, 9097, 693, 15, 53, "Message",ExpressionUUID->"67336896-c6bf-41f6-b29f-ad307627ea5d"], +Cell[369161, 9114, 693, 15, 53, "Message",ExpressionUUID->"c723a954-8bba-4cfc-9d7b-60d4165da281"], +Cell[369857, 9131, 518, 12, 32, "Message",ExpressionUUID->"a510eb48-0e36-4ece-abe5-3792fffc3ee1"], +Cell[370378, 9145, 218, 4, 41, "Output",ExpressionUUID->"9c3a3229-4de3-4e64-835c-d5fbd2d3ee35"] }, Open ]], Cell[CellGroupData[{ -Cell[365933, 9018, 236, 6, 46, "Input",ExpressionUUID->"350334c7-7c47-c24c-8adc-781173809e57"], -Cell[366172, 9026, 194, 3, 33, "Output",ExpressionUUID->"37f96905-5d7f-4485-b34f-1b52a689658d"] +Cell[370633, 9154, 236, 6, 60, "Input",ExpressionUUID->"350334c7-7c47-c24c-8adc-781173809e57"], +Cell[370872, 9162, 221, 4, 41, "Output",ExpressionUUID->"0f59cdc6-7e24-4959-82d0-b52a3c6f01dd"] }, Open ]], -Cell[366381, 9032, 271, 6, 29, "Input",ExpressionUUID->"597921e5-69d3-564d-a8fa-092e912c15e0"], +Cell[371108, 9169, 271, 6, 36, "Input",ExpressionUUID->"597921e5-69d3-564d-a8fa-092e912c15e0"], Cell[CellGroupData[{ -Cell[366677, 9042, 558, 19, 51, "Input",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], -Cell[367238, 9063, 194, 3, 33, "Output",ExpressionUUID->"41efecd1-d181-476a-a826-de428b9b21b9"] +Cell[371404, 9179, 558, 19, 66, "Input",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], +Cell[371965, 9200, 219, 4, 41, "Output",ExpressionUUID->"728fc9e0-900d-414a-aa53-5068ee15f05c"] }, Open ]], Cell[CellGroupData[{ -Cell[367469, 9071, 170, 5, 55, "Input",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], -Cell[367642, 9078, 196, 3, 33, "Output",ExpressionUUID->"50fb6b7b-caf6-4187-a3be-35fef3f15152"] +Cell[372221, 9209, 170, 5, 71, "Input",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], +Cell[372394, 9216, 221, 4, 41, "Output",ExpressionUUID->"0174712b-5184-4d9e-ae08-e294694b4b55"] }, Open ]], Cell[CellGroupData[{ -Cell[367875, 9086, 181, 5, 43, "Input",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], -Cell[368059, 9093, 192, 3, 33, "Output",ExpressionUUID->"3b5db344-f6b1-4c50-9219-4c5d47246062"] +Cell[372652, 9225, 181, 5, 55, "Input",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], +Cell[372836, 9232, 217, 4, 41, "Output",ExpressionUUID->"52deb708-7e90-4f4c-b746-b69702961cf6"] }, Open ]], Cell[CellGroupData[{ -Cell[368288, 9101, 6055, 185, 474, "Input",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], -Cell[374346, 9288, 196, 3, 33, "Output",ExpressionUUID->"0a388bd3-e3b3-44ad-89cd-9a35ae3f00a7"] +Cell[373090, 9241, 6055, 185, 431, "Input",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], +Cell[379148, 9428, 223, 4, 41, "Output",ExpressionUUID->"9c4e6226-4234-4884-b70e-42c0dc3498d9"] }, Open ]], Cell[CellGroupData[{ -Cell[374579, 9296, 368, 9, 41, "Input",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], -Cell[374950, 9307, 195, 3, 33, "Output",ExpressionUUID->"9c0056fe-1cf9-4835-abe3-5ae95d2fbc8b"] +Cell[379408, 9437, 368, 9, 53, "Input",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], +Cell[379779, 9448, 220, 4, 41, "Output",ExpressionUUID->"b98372b8-f1fa-4977-bad4-580c3a429ae4"] }, Open ]], Cell[CellGroupData[{ -Cell[375182, 9315, 6122, 187, 474, "Input",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], -Cell[381307, 9504, 195, 3, 33, "Output",ExpressionUUID->"d85677bd-5eeb-414b-ace2-4568091abc78"] +Cell[380036, 9457, 6122, 187, 431, "Input",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], +Cell[386161, 9646, 220, 4, 41, "Output",ExpressionUUID->"53d50ae1-6a13-4201-9489-956d3ec8fe0e"] }, Open ]], Cell[CellGroupData[{ -Cell[381539, 9512, 368, 9, 41, "Input",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], -Cell[381910, 9523, 192, 3, 33, "Output",ExpressionUUID->"815e946b-b617-4736-8526-2babdc18933b"] +Cell[386418, 9655, 368, 9, 53, "Input",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], +Cell[386789, 9666, 217, 4, 41, "Output",ExpressionUUID->"905a885e-a738-4887-be6f-bbcff6f318f7"] }, Open ]], Cell[CellGroupData[{ -Cell[382139, 9531, 2663, 88, 285, "Input",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], -Cell[384805, 9621, 193, 3, 33, "Output",ExpressionUUID->"41835d90-2768-4a21-bdb1-c73f50a8269b"] +Cell[387043, 9675, 2663, 88, 215, "Input",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], +Cell[389709, 9765, 220, 4, 41, "Output",ExpressionUUID->"b0a18d58-157b-4f71-97ea-611aeaaf8e4e"] }, Open ]], Cell[CellGroupData[{ -Cell[385035, 9629, 2603, 85, 211, "Input",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], -Cell[387641, 9716, 195, 3, 33, "Output",ExpressionUUID->"6e47e6ab-f315-4ff2-a6f3-78d2c786c9f4"] +Cell[389966, 9774, 2603, 85, 215, "Input",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], +Cell[392572, 9861, 219, 4, 41, "Output",ExpressionUUID->"576227c9-53c3-4d8f-a4c9-3073483b8cd7"] }, Open ]], Cell[CellGroupData[{ -Cell[387873, 9724, 3712, 118, 327, "Input",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], -Cell[391588, 9844, 196, 3, 33, "Output",ExpressionUUID->"4da321ea-57b6-40fe-a24f-c79310af2d7d"] +Cell[392828, 9870, 3712, 118, 316, "Input",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], +Cell[396543, 9990, 221, 4, 41, "Output",ExpressionUUID->"e4de80ba-2cb0-4d03-a04d-a4a1b83d1175"] }, Open ]], Cell[CellGroupData[{ -Cell[391821, 9852, 2074, 59, 234, "Input",ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], -Cell[393898, 9913, 594, 13, 80, "Message",ExpressionUUID->"38c3f314-b476-41b7-9f1a-3709da467a52"], -Cell[394495, 9928, 599, 13, 80, "Message",ExpressionUUID->"a122c302-579b-47aa-8a29-f2f2fc5bf135"], -Cell[395097, 9943, 600, 13, 80, "Message",ExpressionUUID->"8bd92cec-29a1-4104-9fbc-c3c8a32dbdae"], -Cell[395700, 9958, 495, 11, 26, "Message",ExpressionUUID->"6de1f49f-d9a9-4e32-9a22-d75b73ac1f0b"], -Cell[396198, 9971, 195, 3, 33, "Output",ExpressionUUID->"d2c4a372-a2da-4fa7-bdc5-8f2a4f55cd38"] +Cell[396801, 9999, 2074, 59, 116, "Input",ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], +Cell[398878, 10060, 692, 15, 53, "Message",ExpressionUUID->"200d5045-6f6b-4f75-9d1d-72f896c0d902"], +Cell[399573, 10077, 693, 15, 53, "Message",ExpressionUUID->"9cb2ef69-0a07-44c6-97b8-42f21845b077"], +Cell[400269, 10094, 693, 15, 53, "Message",ExpressionUUID->"f6ec9284-79e3-499f-8d06-403654603075"], +Cell[400965, 10111, 520, 12, 32, "Message",ExpressionUUID->"cc4ba857-5391-4421-8118-4903be25a8f9"], +Cell[401488, 10125, 222, 4, 41, "Output",ExpressionUUID->"799f78d6-e730-4562-a79e-eab92f55ab4f"] }, Open ]], Cell[CellGroupData[{ -Cell[396430, 9979, 2077, 59, 234, "Input",ExpressionUUID->"baacd3f7-96e4-2949-b9f9-9afb90e551d9"], -Cell[398510, 10040, 594, 13, 80, "Message",ExpressionUUID->"89d75611-9fc4-4059-a126-9fb3fac98109"], -Cell[399107, 10055, 597, 13, 80, "Message",ExpressionUUID->"b021b16a-8d6e-4a17-9c30-6175e3521018"], -Cell[399707, 10070, 598, 13, 80, "Message",ExpressionUUID->"cf2d0a3f-ac82-4704-8c47-990bf7418bad"], -Cell[400308, 10085, 493, 11, 26, "Message",ExpressionUUID->"560ea45b-729c-4981-80d6-253cc2469fbc"], -Cell[400804, 10098, 192, 3, 33, "Output",ExpressionUUID->"a2a1a422-17ff-491a-b0f8-7af604a4b71f"] +Cell[401747, 10134, 2077, 59, 116, "Input",ExpressionUUID->"baacd3f7-96e4-2949-b9f9-9afb90e551d9"], +Cell[403827, 10195, 693, 15, 53, "Message",ExpressionUUID->"f3b971d5-a6c9-4065-afd8-70017a00f593"], +Cell[404523, 10212, 693, 15, 53, "Message",ExpressionUUID->"aab294f7-8235-4d44-be0c-5666969ac1aa"], +Cell[405219, 10229, 693, 15, 53, "Message",ExpressionUUID->"0410d281-4cd3-4851-8d96-b754b048a0cc"], +Cell[405915, 10246, 520, 12, 32, "Message",ExpressionUUID->"9c919aaa-2e47-4166-a7fa-b8d468dc9cf2"], +Cell[406438, 10260, 217, 4, 41, "Output",ExpressionUUID->"7b13171c-82f1-4118-9400-f0dcf11db56c"] }, Open ]], Cell[CellGroupData[{ -Cell[401033, 10106, 2053, 55, 151, "Input",ExpressionUUID->"ea08a5a9-d446-9147-ba82-e3924f732df2"], -Cell[403089, 10163, 20355, 383, 239, "Output",ExpressionUUID->"eb9b911a-d33e-4829-9b37-e7bd4daefe37"] +Cell[406692, 10269, 2053, 55, 63, "Input",ExpressionUUID->"ea08a5a9-d446-9147-ba82-e3924f732df2"], +Cell[408748, 10326, 20380, 384, 300, "Output",ExpressionUUID->"15b75ac6-fcb0-438e-9f2a-b45f3a342721"] }, Open ]], Cell[CellGroupData[{ -Cell[423481, 10551, 2143, 60, 261, "Input",ExpressionUUID->"42ddbf41-0bd8-b749-bead-56c89a9b7467"], -Cell[425627, 10613, 535, 12, 59, "Message",ExpressionUUID->"b0bae760-b88c-4a38-8296-48277e5d34cc"], -Cell[426165, 10627, 538, 12, 59, "Message",ExpressionUUID->"6720e511-51b0-4ddf-b972-504e34e9e13e"], -Cell[426706, 10641, 540, 12, 59, "Message",ExpressionUUID->"9c9abfcf-93ce-4891-8138-0f24cef88366"], -Cell[427249, 10655, 493, 11, 26, "Message",ExpressionUUID->"9cb52dc6-877c-45d9-9f43-5c4707a58a5c"], -Cell[427745, 10668, 21911, 408, 237, "Output",ExpressionUUID->"b63494eb-b053-4ebe-b42d-fbac4fd6a86e"] +Cell[429165, 10715, 2143, 60, 116, "Input",ExpressionUUID->"42ddbf41-0bd8-b749-bead-56c89a9b7467"], +Cell[431311, 10777, 562, 13, 48, "Message",ExpressionUUID->"3561c903-a647-4434-a844-c70b4c5e5122"], +Cell[431876, 10792, 561, 13, 48, "Message",ExpressionUUID->"f0355f23-532e-4e39-868a-2a35db82bc07"], +Cell[432440, 10807, 565, 13, 48, "Message",ExpressionUUID->"0bd3ef55-3c66-433d-8afa-d7cc7477d02d"], +Cell[433008, 10822, 518, 12, 32, "Message",ExpressionUUID->"58eca71c-d3a1-41c2-9c8d-f4bb32d6be10"], +Cell[433529, 10836, 21938, 409, 297, "Output",ExpressionUUID->"5dcc3dbb-a465-4067-bd04-9d4250f76e33"] }, Open ]], Cell[CellGroupData[{ -Cell[449693, 11081, 232, 5, 29, "Input",ExpressionUUID->"6883477e-2a54-0a45-979a-ae60c73e9e82"], -Cell[449928, 11088, 28271, 540, 237, "Output",ExpressionUUID->"49159025-1b5f-4d94-aecf-5b90803a2778"] +Cell[455504, 11250, 232, 5, 36, "Input",ExpressionUUID->"6883477e-2a54-0a45-979a-ae60c73e9e82"], +Cell[455739, 11257, 28295, 540, 297, "Output",ExpressionUUID->"1bf98625-601c-445f-b0fc-b1b8008e8be5"] }, Open ]], Cell[CellGroupData[{ -Cell[478236, 11633, 1616, 48, 104, "Input",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], -Cell[479855, 11683, 629, 13, 80, "Message",ExpressionUUID->"132b0c32-1455-4397-8e22-cf607a602a4a"], -Cell[480487, 11698, 633, 13, 80, "Message",ExpressionUUID->"34f95bb6-6a7a-4a69-b914-e29d12a220fa"], -Cell[481123, 11713, 725, 15, 80, "Message",ExpressionUUID->"d8127e38-71f1-4d65-afa6-012ca7d6c046"], -Cell[481851, 11730, 495, 11, 26, "Message",ExpressionUUID->"d58e5dab-f4bd-4ec3-9ef3-cca0763a4156"], -Cell[482349, 11743, 193, 3, 33, "Output",ExpressionUUID->"c6bf2441-13a4-4ac8-9002-6e2548a19353"] +Cell[484071, 11802, 1616, 48, 86, "Input",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], +Cell[485690, 11852, 690, 15, 53, "Message",ExpressionUUID->"2fc750b8-b6c5-4054-b445-c7881a6c564b"], +Cell[486383, 11869, 691, 15, 53, "Message",ExpressionUUID->"e45aec9a-6a9e-437c-b2cf-d7b6dcd3be9c"], +Cell[487077, 11886, 693, 15, 53, "Message",ExpressionUUID->"a4feaca8-b1bf-4353-a75c-86d0eca7ac3e"], +Cell[487773, 11903, 518, 12, 32, "Message",ExpressionUUID->"3cd64fed-0acc-420b-b315-c8fb87839372"], +Cell[488294, 11917, 218, 4, 41, "Output",ExpressionUUID->"c44b10be-8f90-49a1-8d6b-a0a5987d4184"] }, Open ]], Cell[CellGroupData[{ -Cell[482579, 11751, 2274, 64, 212, "Input",ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-2a98ba29b602"], -Cell[484856, 11817, 592, 13, 80, "Message",ExpressionUUID->"043e6756-c83a-4668-b8c3-8592bfe32ed0"], -Cell[485451, 11832, 597, 13, 80, "Message",ExpressionUUID->"22fb7af9-26f9-4182-b521-521b38d47868"], -Cell[486051, 11847, 600, 13, 80, "Message",ExpressionUUID->"204aa7d4-0538-442c-9979-c44e22f50a1a"], -Cell[486654, 11862, 493, 11, 26, "Message",ExpressionUUID->"706aa87b-d15a-4740-9be0-86cd70423c81"], -Cell[487150, 11875, 197, 3, 33, "Output",ExpressionUUID->"a0a2e845-20d5-41c7-b565-a848f7cb636c"] +Cell[488549, 11926, 2274, 64, 81, "Input",ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-2a98ba29b602"], +Cell[490826, 11992, 691, 15, 53, "Message",ExpressionUUID->"4615dd16-c962-445e-8845-952e54eb1731"], +Cell[491520, 12009, 693, 15, 53, "Message",ExpressionUUID->"4231dfb6-d5b6-433b-9c55-0aefe511681b"], +Cell[492216, 12026, 691, 15, 53, "Message",ExpressionUUID->"97ca25b3-c407-4417-9df5-bb6665c9c885"], +Cell[492910, 12043, 520, 12, 32, "Message",ExpressionUUID->"29466976-44c3-4807-84d1-df067e77f26d"], +Cell[493433, 12057, 224, 4, 41, "Output",ExpressionUUID->"80fafaac-2922-48ec-8cc4-21a39dfa66f6"] }, Open ]], Cell[CellGroupData[{ -Cell[487384, 11883, 2231, 63, 212, "Input",ExpressionUUID->"edfdd675-c60b-304e-9e16-68452b971319"], -Cell[489618, 11948, 594, 13, 80, "Message",ExpressionUUID->"e61fa373-fc5c-4a91-b44d-40199161404d"], -Cell[490215, 11963, 599, 13, 80, "Message",ExpressionUUID->"9b490e2d-e0ae-4cd6-860d-9d612b0f4654"], -Cell[490817, 11978, 600, 13, 80, "Message",ExpressionUUID->"018f905a-f9ce-4250-aa53-7dd10c0e1c5c"], -Cell[491420, 11993, 495, 11, 26, "Message",ExpressionUUID->"8b09dd62-b798-4291-b6b8-2ff75fa6d99f"], -Cell[491918, 12006, 195, 3, 33, "Output",ExpressionUUID->"49f30771-bcfa-4bed-ac14-aca75b6bdd05"] +Cell[493694, 12066, 2231, 63, 81, "Input",ExpressionUUID->"edfdd675-c60b-304e-9e16-68452b971319"], +Cell[495928, 12131, 693, 15, 53, "Message",ExpressionUUID->"58f23fc0-a08d-4cd8-b0a9-cfaf653bd4d2"], +Cell[496624, 12148, 695, 15, 53, "Message",ExpressionUUID->"7addb531-e9a6-4594-9f50-f23f3bd764d6"], +Cell[497322, 12165, 693, 15, 53, "Message",ExpressionUUID->"51f0c655-f5dc-4915-abb7-e23921e0e986"], +Cell[498018, 12182, 520, 12, 32, "Message",ExpressionUUID->"0d37e899-90a0-4af6-9c21-f3b449c10def"], +Cell[498541, 12196, 222, 4, 41, "Output",ExpressionUUID->"76b17aeb-d475-44c8-8380-4b5a775be9e3"] }, Open ]], Cell[CellGroupData[{ -Cell[492150, 12014, 2231, 63, 212, "Input",ExpressionUUID->"d0469d46-2e74-494a-be85-b41cb2f3fa92"], -Cell[494384, 12079, 591, 13, 80, "Message",ExpressionUUID->"8d7c57db-8699-4c3f-ab8f-03344dd0b416"], -Cell[494978, 12094, 594, 13, 80, "Message",ExpressionUUID->"1c5d1c41-c3b2-45eb-a287-b161ba363198"], -Cell[495575, 12109, 597, 13, 80, "Message",ExpressionUUID->"eb3b3cfa-6c2b-4b73-bd64-fb33e3d3a5be"], -Cell[496175, 12124, 492, 11, 26, "Message",ExpressionUUID->"5810e70e-b4bc-4c10-ac25-c467e11802b9"], -Cell[496670, 12137, 193, 3, 33, "Output",ExpressionUUID->"f8f2d7ff-1134-49c2-a79b-566766302058"] +Cell[498800, 12205, 2231, 63, 81, "Input",ExpressionUUID->"d0469d46-2e74-494a-be85-b41cb2f3fa92"], +Cell[501034, 12270, 690, 15, 53, "Message",ExpressionUUID->"1f63e298-963f-45b8-9d3e-a26085cfbcd9"], +Cell[501727, 12287, 692, 15, 53, "Message",ExpressionUUID->"f0ce3395-0a7b-4089-acb1-d172b55fce07"], +Cell[502422, 12304, 690, 15, 53, "Message",ExpressionUUID->"f19440a0-1cca-44ba-b78b-1c8afcf75fd9"], +Cell[503115, 12321, 517, 12, 32, "Message",ExpressionUUID->"30c77d8d-20e4-439b-a3c9-d38ff629e100"], +Cell[503635, 12335, 218, 4, 41, "Output",ExpressionUUID->"9c697b64-0006-40a2-bf14-f3651e733027"] }, Open ]], Cell[CellGroupData[{ -Cell[496900, 12145, 235, 6, 46, "Input",ExpressionUUID->"58b5e243-0972-1946-bd17-aca0f3e8a35b"], -Cell[497138, 12153, 197, 3, 33, "Output",ExpressionUUID->"a535fd26-5aae-4766-b9ca-e0251a6993a1"] +Cell[503890, 12344, 235, 6, 60, "Input",ExpressionUUID->"58b5e243-0972-1946-bd17-aca0f3e8a35b"], +Cell[504128, 12352, 222, 4, 41, "Output",ExpressionUUID->"2104e7f2-d4ef-4497-ae35-2c476492b362"] }, Open ]], -Cell[497350, 12159, 270, 6, 29, "Input",ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-a3711ba632a4"], +Cell[504365, 12359, 270, 6, 36, "Input",ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-a3711ba632a4"], Cell[CellGroupData[{ -Cell[497645, 12169, 558, 19, 51, "Input",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], -Cell[498206, 12190, 193, 3, 33, "Output",ExpressionUUID->"6fba74b2-c671-4da2-be32-79399b7fb02a"] +Cell[504660, 12369, 558, 19, 66, "Input",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], +Cell[505221, 12390, 220, 4, 41, "Output",ExpressionUUID->"5564b48f-c6ed-40c3-b5eb-2a1077815884"] }, Open ]], Cell[CellGroupData[{ -Cell[498436, 12198, 170, 5, 55, "Input",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], -Cell[498609, 12205, 191, 3, 33, "Output",ExpressionUUID->"64ada44e-bd34-4e31-917f-bd2aeed879ad"] +Cell[505478, 12399, 170, 5, 71, "Input",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], +Cell[505651, 12406, 216, 4, 41, "Output",ExpressionUUID->"56425aeb-aaae-4527-9061-b2c339d32c90"] }, Open ]], Cell[CellGroupData[{ -Cell[498837, 12213, 181, 5, 43, "Input",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], -Cell[499021, 12220, 195, 3, 33, "Output",ExpressionUUID->"71986d90-a855-40f3-aa28-9eb609ff7c96"] +Cell[505904, 12415, 181, 5, 55, "Input",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], +Cell[506088, 12422, 219, 4, 41, "Output",ExpressionUUID->"056eb293-0350-4643-b18c-ce0b7b2366e7"] }, Open ]], Cell[CellGroupData[{ -Cell[499253, 12228, 6055, 185, 474, "Input",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], -Cell[505311, 12415, 196, 3, 33, "Output",ExpressionUUID->"205eb574-34aa-4f38-ad4e-8668009ac70e"] +Cell[506344, 12431, 6055, 185, 431, "Input",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], +Cell[512402, 12618, 223, 4, 41, "Output",ExpressionUUID->"9fc671d1-ee58-4420-b9d8-86f1810778fb"] }, Open ]], Cell[CellGroupData[{ -Cell[505544, 12423, 368, 9, 41, "Input",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], -Cell[505915, 12434, 194, 3, 33, "Output",ExpressionUUID->"6563377c-e258-4297-b68b-3eb5dfbd125d"] +Cell[512662, 12627, 368, 9, 53, "Input",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], +Cell[513033, 12638, 219, 4, 41, "Output",ExpressionUUID->"7883d22d-bbdb-4d2c-ac9c-9b115539134c"] }, Open ]], Cell[CellGroupData[{ -Cell[506146, 12442, 6122, 187, 474, "Input",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], -Cell[512271, 12631, 194, 3, 33, "Output",ExpressionUUID->"e4a52df2-0759-4a9b-a13c-948dbe430057"] +Cell[513289, 12647, 6122, 187, 431, "Input",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], +Cell[519414, 12836, 219, 4, 41, "Output",ExpressionUUID->"234f7075-eaf4-4e12-8430-c305dee20779"] }, Open ]], Cell[CellGroupData[{ -Cell[512502, 12639, 368, 9, 41, "Input",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], -Cell[512873, 12650, 194, 3, 33, "Output",ExpressionUUID->"3e8accd3-3add-4d38-b7fd-d88f99fc0054"] +Cell[519670, 12845, 368, 9, 53, "Input",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], +Cell[520041, 12856, 219, 4, 41, "Output",ExpressionUUID->"41dcbab2-880d-489a-8a21-8360207b851c"] }, Open ]], Cell[CellGroupData[{ -Cell[513104, 12658, 2663, 88, 285, "Input",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], -Cell[515770, 12748, 195, 3, 33, "Output",ExpressionUUID->"2e14b754-f6a7-4f3a-86f4-eca67188ac7e"] +Cell[520297, 12865, 2663, 88, 215, "Input",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], +Cell[522963, 12955, 219, 4, 41, "Output",ExpressionUUID->"f908838a-72ff-41a9-951e-c4bd2dad5c0d"] }, Open ]], Cell[CellGroupData[{ -Cell[516002, 12756, 2603, 85, 211, "Input",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], -Cell[518608, 12843, 193, 3, 33, "Output",ExpressionUUID->"beb36398-9c74-42e5-a6be-49dc91d16b87"] +Cell[523219, 12964, 2603, 85, 215, "Input",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], +Cell[525825, 13051, 220, 4, 41, "Output",ExpressionUUID->"423f8859-8c03-4950-933b-da7e1a478824"] }, Open ]], Cell[CellGroupData[{ -Cell[518838, 12851, 3712, 118, 327, "Input",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], -Cell[522553, 12971, 196, 3, 33, "Output",ExpressionUUID->"1395be38-1ed7-4ebf-853b-82dfcf37190d"] +Cell[526082, 13060, 3712, 118, 316, "Input",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], +Cell[529797, 13180, 221, 4, 41, "Output",ExpressionUUID->"150eaa97-3a68-47b2-81f3-adfffdb65a52"] }, Open ]], Cell[CellGroupData[{ -Cell[522786, 12979, 2077, 59, 234, "Input",ExpressionUUID->"ba508068-6b78-254c-87d6-cf1adc0753dd"], -Cell[524866, 13040, 596, 13, 80, "Message",ExpressionUUID->"7f99686b-a126-4853-9d0d-1d36de4cf04c"], -Cell[525465, 13055, 596, 13, 80, "Message",ExpressionUUID->"9c78004b-d7b5-4a57-8600-f479793c1638"], -Cell[526064, 13070, 599, 13, 80, "Message",ExpressionUUID->"77301570-3c9c-4d23-afd2-098e4bb225a2"], -Cell[526666, 13085, 493, 11, 26, "Message",ExpressionUUID->"f3fc4ec8-c943-4c63-8f0d-3debd7c38024"], -Cell[527162, 13098, 195, 3, 33, "Output",ExpressionUUID->"ee64801c-3110-4b02-9a53-dde3e82ea000"] +Cell[530055, 13189, 2077, 59, 116, "Input",ExpressionUUID->"ba508068-6b78-254c-87d6-cf1adc0753dd"], +Cell[532135, 13250, 694, 15, 53, "Message",ExpressionUUID->"f26a42c1-fd6a-48a4-95ab-9061699156cd"], +Cell[532832, 13267, 694, 15, 73, "Message",ExpressionUUID->"e4a0d7a2-c039-4705-96ba-2e00f80c9836"], +Cell[533529, 13284, 692, 15, 73, "Message",ExpressionUUID->"8f18d2fc-8abb-4da0-9463-dd135618389e"], +Cell[534224, 13301, 522, 12, 32, "Message",ExpressionUUID->"e0d434f3-9da2-4d86-accc-f88f6fbac72c"], +Cell[534749, 13315, 220, 4, 41, "Output",ExpressionUUID->"4053a536-4815-4630-8750-466c77401b37"] }, Open ]], Cell[CellGroupData[{ -Cell[527394, 13106, 2077, 59, 234, "Input",ExpressionUUID->"842e33e4-ae06-f746-ab8b-97489285cc9c"], -Cell[529474, 13167, 596, 13, 80, "Message",ExpressionUUID->"8599e594-b085-4aac-b479-dddc9dfd8b4a"], -Cell[530073, 13182, 599, 13, 80, "Message",ExpressionUUID->"b992822f-3f72-4791-bdf5-65aa79bb011c"], -Cell[530675, 13197, 604, 13, 80, "Message",ExpressionUUID->"4406783d-65cd-406f-8709-a39de0044795"], -Cell[531282, 13212, 495, 11, 26, "Message",ExpressionUUID->"dcaed24c-5dfd-401a-93a2-d08d6ff5995f"], -Cell[531780, 13225, 196, 3, 33, "Output",ExpressionUUID->"e3a124a5-3c19-4d61-85c6-7938d4b8f00e"] +Cell[535006, 13324, 2077, 59, 116, "Input",ExpressionUUID->"842e33e4-ae06-f746-ab8b-97489285cc9c"], +Cell[537086, 13385, 692, 15, 53, "Message",ExpressionUUID->"a98e8c79-31ea-4f2a-a765-bce9888ba0df"], +Cell[537781, 13402, 692, 15, 53, "Message",ExpressionUUID->"55f45a35-431b-4bbf-9ccf-1bbfa69d1e1e"], +Cell[538476, 13419, 694, 15, 53, "Message",ExpressionUUID->"b8fc2ced-58b2-4a66-b5cd-cf1178406a86"], +Cell[539173, 13436, 520, 12, 32, "Message",ExpressionUUID->"d4162ca4-be7a-4b57-bb85-415f9b8bfc55"], +Cell[539696, 13450, 221, 4, 41, "Output",ExpressionUUID->"e56bf044-e307-4089-a528-a17b7cd99234"] }, Open ]], Cell[CellGroupData[{ -Cell[532013, 13233, 2051, 55, 151, "Input",ExpressionUUID->"b2e314f8-a6f0-6942-a94c-5ac1cacd7190"], -Cell[534067, 13290, 20405, 384, 236, "Output",ExpressionUUID->"41593627-78d9-424e-9d7f-2a6fb5060120"] +Cell[539954, 13459, 2051, 55, 63, "Input",ExpressionUUID->"b2e314f8-a6f0-6942-a94c-5ac1cacd7190"], +Cell[542008, 13516, 20430, 385, 295, "Output",ExpressionUUID->"9873e04f-69e7-4312-928e-80f60d904686"] }, Open ]], Cell[CellGroupData[{ -Cell[554509, 13679, 2168, 61, 261, "Input",ExpressionUUID->"497f9779-a3e4-c84e-a207-0aac70483e3c"], -Cell[556680, 13742, 539, 12, 59, "Message",ExpressionUUID->"ba4ec73c-b67b-4028-8cb2-4baa36b2e32f"], -Cell[557222, 13756, 545, 12, 59, "Message",ExpressionUUID->"d34dea44-aad8-4175-b3d8-584b74eb7d72"], -Cell[557770, 13770, 548, 12, 59, "Message",ExpressionUUID->"a7564265-0bef-4940-9e85-c87c13ab298b"], -Cell[558321, 13784, 497, 11, 26, "Message",ExpressionUUID->"09d6750d-080c-4fd7-9cdf-8be9efe4d52e"], -Cell[558821, 13797, 21531, 402, 232, "Output",ExpressionUUID->"fc750c36-d92c-4a34-a5cf-34beddb6e205"] +Cell[562475, 13906, 2168, 61, 311, "Input",ExpressionUUID->"497f9779-a3e4-c84e-a207-0aac70483e3c"], +Cell[564646, 13969, 564, 13, 48, "Message",ExpressionUUID->"3f6d75c7-aa91-428b-97eb-4019029002b0"], +Cell[565213, 13984, 568, 13, 48, "Message",ExpressionUUID->"d3d1534d-5dbd-4ee1-af28-3395f31c20a7"], +Cell[565784, 13999, 571, 13, 48, "Message",ExpressionUUID->"df73c88b-bd61-47cb-bb08-3b42c677471e"], +Cell[566358, 14014, 520, 12, 32, "Message",ExpressionUUID->"f1191076-6767-4d1a-b9ed-ea6e5439082a"], +Cell[566881, 14028, 21555, 403, 290, "Output",ExpressionUUID->"f1dfe3b9-0ea9-413c-9b0d-b357e883e82c"] }, Open ]], Cell[CellGroupData[{ -Cell[580389, 14204, 232, 5, 29, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], -Cell[580624, 14211, 27889, 534, 232, "Output",ExpressionUUID->"ba26e1aa-d6d6-4ec9-8f62-28b4032610d5"] +Cell[588473, 14436, 232, 5, 36, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], +Cell[588708, 14443, 27909, 534, 290, "Output",ExpressionUUID->"2052b9ed-dda5-4f53-878a-2992915feb84"] }, Open ]], Cell[CellGroupData[{ -Cell[608550, 14750, 1616, 48, 104, "Input",ExpressionUUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], -Cell[610169, 14800, 602, 13, 80, "Message",ExpressionUUID->"6fce96e0-095b-48ac-bae5-7d0e0ae76f75"], -Cell[610774, 14815, 605, 13, 80, "Message",ExpressionUUID->"aa7a362e-ec0d-451a-8aea-9ec4646b234e"], -Cell[611382, 14830, 610, 13, 80, "Message",ExpressionUUID->"0f639d2b-d939-4c01-90f4-c37b7dc6c8f1"], -Cell[611995, 14845, 471, 11, 26, "Message",ExpressionUUID->"20986ba1-777b-4158-a5b6-b0fea8cb7723"], -Cell[612469, 14858, 171, 3, 33, "Output",ExpressionUUID->"720d606d-325e-4fbb-b13f-e7cfe5a7ec42"] +Cell[616654, 14982, 1616, 48, 132, "Input",ExpressionUUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], +Cell[618273, 15032, 665, 14, 73, "Message",ExpressionUUID->"978c4ff3-cfb7-4662-be92-2e5b76419b47"], +Cell[618941, 15048, 665, 14, 73, "Message",ExpressionUUID->"532f35d0-6789-4061-9a30-9d287619f48f"], +Cell[619609, 15064, 666, 14, 73, "Message",ExpressionUUID->"51e80624-dcf5-4f0f-9853-dc4e8eb2fa03"], +Cell[620278, 15080, 495, 11, 32, "Message",ExpressionUUID->"fa2b9b1d-977a-42df-aed0-d92f5e70145a"], +Cell[620776, 15093, 195, 3, 41, "Output",ExpressionUUID->"c70ade27-02d7-4ca7-962c-862126eae56c"] }, Open ]], Cell[CellGroupData[{ -Cell[612677, 14866, 2272, 64, 212, "Input",ExpressionUUID->"a3e3d205-e3b4-874a-a36c-53cfa72184b4"], -Cell[614952, 14932, 572, 13, 80, "Message",ExpressionUUID->"2e45575c-d7f2-4250-9792-0821d0535693"], -Cell[615527, 14947, 575, 13, 80, "Message",ExpressionUUID->"ddfde07e-6b2a-4933-b5b0-fe544ef26938"], -Cell[616105, 14962, 578, 13, 80, "Message",ExpressionUUID->"17e1e4da-421b-4936-be90-f0fadd28e2e2"], -Cell[616686, 14977, 471, 11, 26, "Message",ExpressionUUID->"8ea0b3cf-e6e0-49a5-aa17-ab4a93218fd9"], -Cell[617160, 14990, 171, 3, 33, "Output",ExpressionUUID->"f916b298-4c70-4246-9dc9-247d0b132db7"] +Cell[621008, 15101, 2272, 64, 348, "Input",ExpressionUUID->"a3e3d205-e3b4-874a-a36c-53cfa72184b4"], +Cell[623283, 15167, 667, 14, 73, "Message",ExpressionUUID->"923f5ba8-e027-4b95-81e6-aa9d668e337a"], +Cell[623953, 15183, 665, 14, 73, "Message",ExpressionUUID->"20a60a6d-3ec3-4ff8-827e-8e15bd342593"], +Cell[624621, 15199, 667, 14, 73, "Message",ExpressionUUID->"ad583008-d533-4024-b1da-9ecd4967762e"], +Cell[625291, 15215, 493, 11, 32, "Message",ExpressionUUID->"ac752ed5-c86d-4752-b478-ec7d056214d2"], +Cell[625787, 15228, 193, 3, 41, "Output",ExpressionUUID->"931be3b4-071d-4b15-9e0c-c326d67ca09b"] }, Open ]], Cell[CellGroupData[{ -Cell[617368, 14998, 2233, 63, 212, "Input",ExpressionUUID->"6977f025-454e-0e4a-b118-07bad9ba3e82"], -Cell[619604, 15063, 572, 13, 80, "Message",ExpressionUUID->"7a93c4f6-cec3-4af3-bd2d-8758e99e68f1"], -Cell[620179, 15078, 577, 13, 80, "Message",ExpressionUUID->"ec546ecc-62f2-43a7-a662-c581d1968add"], -Cell[620759, 15093, 578, 13, 80, "Message",ExpressionUUID->"a0600c59-ba65-4f19-8291-834e800beed0"], -Cell[621340, 15108, 471, 11, 26, "Message",ExpressionUUID->"b27399a5-1019-49da-be1f-17a62292e70d"], -Cell[621814, 15121, 171, 3, 33, "Output",ExpressionUUID->"02934bc0-6844-4305-80f2-75cdcdbf9351"] +Cell[626017, 15236, 2233, 63, 348, "Input",ExpressionUUID->"6977f025-454e-0e4a-b118-07bad9ba3e82"], +Cell[628253, 15301, 665, 14, 73, "Message",ExpressionUUID->"5cfadac0-a577-4199-b4e4-aa1d8cb6a192"], +Cell[628921, 15317, 664, 14, 73, "Message",ExpressionUUID->"32088a40-f272-472c-b5a7-252fb85e78f3"], +Cell[629588, 15333, 667, 14, 73, "Message",ExpressionUUID->"f9922c01-d9d5-4632-98ec-68b8d457e591"], +Cell[630258, 15349, 493, 11, 32, "Message",ExpressionUUID->"b936c640-daf0-45da-9a5b-062459553e00"], +Cell[630754, 15362, 193, 3, 41, "Output",ExpressionUUID->"aff0ea53-51ff-4cf2-822b-8e364a44de2a"] }, Open ]], Cell[CellGroupData[{ -Cell[622022, 15129, 2235, 63, 212, "Input",ExpressionUUID->"df8ecb01-788a-604d-b773-f29bb610eb30"], -Cell[624260, 15194, 574, 13, 80, "Message",ExpressionUUID->"5c965494-8318-4fca-a343-731df1fe0ef4"], -Cell[624837, 15209, 574, 13, 80, "Message",ExpressionUUID->"b83dae3d-b5cb-41c4-86b9-c5cf3f6e9df8"], -Cell[625414, 15224, 578, 13, 80, "Message",ExpressionUUID->"80cbc14e-cd38-4508-a9b1-b19239f27488"], -Cell[625995, 15239, 471, 11, 26, "Message",ExpressionUUID->"e7775c4d-1aa8-4286-8040-cb3ebf53722b"], -Cell[626469, 15252, 170, 3, 33, "Output",ExpressionUUID->"875f088e-43b6-4f40-b283-2399a46cf215"] +Cell[630984, 15370, 2235, 63, 348, "Input",ExpressionUUID->"df8ecb01-788a-604d-b773-f29bb610eb30"], +Cell[633222, 15435, 667, 14, 73, "Message",ExpressionUUID->"3972f5c8-1143-410b-9b1c-1e0364185966"], +Cell[633892, 15451, 667, 14, 73, "Message",ExpressionUUID->"742088db-45dd-4af0-b80e-b2eb79fbf714"], +Cell[634562, 15467, 667, 14, 73, "Message",ExpressionUUID->"08408e5e-8f38-4538-86cf-d28d6c780c6e"], +Cell[635232, 15483, 495, 11, 32, "Message",ExpressionUUID->"ec53b580-62dc-448e-b735-38b76d327f92"], +Cell[635730, 15496, 190, 3, 41, "Output",ExpressionUUID->"0b9423ed-4c22-450c-ad6b-082d483cb4ab"] }, Open ]], Cell[CellGroupData[{ -Cell[626676, 15260, 236, 6, 46, "Input",ExpressionUUID->"54a5e329-20bd-e742-afe8-d2cfa007cfcf"], -Cell[626915, 15268, 171, 3, 33, "Output",ExpressionUUID->"9ad3121f-0732-45d8-b739-9b541854240f"] +Cell[635957, 15504, 236, 6, 60, "Input",ExpressionUUID->"54a5e329-20bd-e742-afe8-d2cfa007cfcf"], +Cell[636196, 15512, 193, 3, 41, "Output",ExpressionUUID->"470eaf0e-6e2d-4308-8983-1dae84636726"] }, Open ]], -Cell[627101, 15274, 143, 3, 29, "Input",ExpressionUUID->"6453683b-e449-47ff-9a62-4d62a1065c45"] +Cell[636404, 15518, 143, 3, 109, "Input",ExpressionUUID->"6453683b-e449-47ff-9a62-4d62a1065c45"] } ] *) diff --git a/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_osc_Qw1.nb b/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_osc_Qw1.nb index 6420fd0..c1be011 100644 --- a/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_osc_Qw1.nb +++ b/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_osc_Qw1.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 683299, 16446] -NotebookOptionsPosition[ 640621, 15761] -NotebookOutlinePosition[ 641082, 15780] -CellTagsIndexPosition[ 641039, 15777] +NotebookDataLength[ 691408, 16637] +NotebookOptionsPosition[ 648382, 15947] +NotebookOutlinePosition[ 648836, 15966] +CellTagsIndexPosition[ 648793, 15963] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -15757,11 +15757,197 @@ Cell[BoxData[ RowBox[{"NotebookSave", "[", "]"}]], "Input", CellChangeTimes->{{3.9939171652745667`*^9, 3.99391716816823*^9}}, CellLabel-> - "In[158]:=",ExpressionUUID->"5222ef37-9b05-4daa-a7c2-20929e853801"] + "In[158]:=",ExpressionUUID->"5222ef37-9b05-4daa-a7c2-20929e853801"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"CellPrint", "[", + RowBox[{"ExpressionCell", "[", + RowBox[{ + RowBox[{"Panel", "[", + RowBox[{ + RowBox[{"Row", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"Style", "[", + + RowBox[{"\"\<\:0423\:043f\:0440\:0430\:0432\:043b\:0435\:043d\:0438\ +\:0435 \:043a\:044d\:0448\:0435\:043c \:0433\:0440\:0430\:0444\:0438\:043a\ +\:0430: \>\"", ",", "Bold"}], "]"}], ",", + RowBox[{"Button", "[", + + RowBox[{"\"\<\:0421\:0434\:0435\:043b\:0430\:0442\:044c \:0442\ +\:0430\:0431\:043b\:0438\:0446\:0443 (\:041b\:0438\:043d\:0438\:044f 1)\>\"", + ",", + RowBox[{"Module", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"cell", ",", "pts"}], "}"}], ",", + RowBox[{ + RowBox[{"cell", "=", + RowBox[{"NotebookRead", "[", + RowBox[{"EvaluationNotebook", "[", "]"}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"pts", "=", + RowBox[{"Cases", "[", + RowBox[{"cell", ",", + RowBox[{ + RowBox[{"Line", "[", "p_", "]"}], ":>", "p"}], ",", + "Infinity"}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"If", "[", + RowBox[{ + RowBox[{ + RowBox[{"Length", "[", "pts", "]"}], ">", "0"}], ",", + RowBox[{ + RowBox[{"plotX", "=", + RowBox[{"pts", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"fInterp", "=", + RowBox[{"Interpolation", "[", "plotX", "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"dataX", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"x", ",", + RowBox[{"fInterp", "[", "x", "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30", ",", "1"}], "}"}]}], + "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"SelectionMove", "[", + RowBox[{ + RowBox[{"EvaluationNotebook", "[", "]"}], ",", "After", ",", + "Cell"}], "]"}], ";", "\[IndentingNewLine]", + RowBox[{"CellPrint", "[", + RowBox[{"Cell", "[", + RowBox[{ + RowBox[{"BoxData", "[", + RowBox[{"ToBoxes", "[", + RowBox[{"TableForm", "[", "dataX", "]"}], "]"}], "]"}], + ",", "\"\\""}], "]"}], "]"}]}], ",", + RowBox[{"MessageDialog", "[", + + RowBox[{"\"\<\:041e\:0448\:0438\:0431\:043a\:0430: \:0421\ +\:043d\:0430\:0447\:0430\:043b\:0430 \:0432\:044b\:0434\:0435\:043b\:0438\ +\:0442\:0435 \:043d\:0443\:0436\:043d\:044b\:0439 \:0433\:0440\:0430\:0444\ +\:0438\:043a (\:043a\:043b\:0438\:043a\:043d\:0438\:0442\:0435 \:043f\:043e \ +\:0435\:0433\:043e \:044f\:0447\:0435\:0439\:043a\:0435 \:0441\:043f\:0440\ +\:0430\:0432\:0430)!\>\"", ",", + RowBox[{"WindowFloating", "->", "True"}]}], "]"}]}], + "]"}]}]}], "]"}], ",", + RowBox[{"Background", "->", + RowBox[{"RGBColor", "[", + RowBox[{"0.9", ",", "0.95", ",", "1"}], "]"}]}], ",", + RowBox[{"ImageSize", "->", + RowBox[{"{", + RowBox[{"180", ",", "25"}], "}"}]}]}], "]"}]}], "}"}], "]"}], ",", + RowBox[{"Background", "->", + RowBox[{"GrayLevel", "[", "0.95", "]"}]}], ",", + RowBox[{"FrameMargins", "->", "10"}]}], "]"}], ",", "\"\\""}], + "]"}], "]"}], "\n"}]], "Input", + CellChangeTimes->{{3.9943043996512623`*^9, 3.994304399651291*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"e9bef9ed-047f-4caa-8611-82644576b373"], + +Cell[BoxData[ + PanelBox[ + TemplateBox[{ + StyleBox[ + "\"\:0423\:043f\:0440\:0430\:0432\:043b\:0435\:043d\:0438\:0435 \:043a\ +\:044d\:0448\:0435\:043c \:0433\:0440\:0430\:0444\:0438\:043a\:0430: \"", + Bold, StripOnInput -> False], + ButtonBox[ + "\"\:0421\:0434\:0435\:043b\:0430\:0442\:044c \:0442\:0430\:0431\:043b\ +\:0438\:0446\:0443 (\:041b\:0438\:043d\:0438\:044f 1)\"", ButtonFunction :> + Module[{$CellContext`cell, $CellContext`pts}, $CellContext`cell = + NotebookRead[ + EvaluationNotebook[]]; $CellContext`pts = + Cases[$CellContext`cell, Line[ + Pattern[$CellContext`p, + Blank[]]] :> $CellContext`p, Infinity]; + If[Length[$CellContext`pts] > + 0, $CellContext`plotX = + Part[$CellContext`pts, 1]; $CellContext`fInterp = + Interpolation[$CellContext`plotX]; $CellContext`dataX = + Table[{$CellContext`x, + $CellContext`fInterp[$CellContext`x]}, {$CellContext`x, 0, 30, + 1}]; SelectionMove[ + EvaluationNotebook[], After, Cell]; CellPrint[ + Cell[ + BoxData[ + ToBoxes[ + TableForm[$CellContext`dataX]]], "Output"]], + MessageDialog[ + "\:041e\:0448\:0438\:0431\:043a\:0430: \ +\:0421\:043d\:0430\:0447\:0430\:043b\:0430 \:0432\:044b\:0434\:0435\:043b\ +\:0438\:0442\:0435 \:043d\:0443\:0436\:043d\:044b\:0439 \:0433\:0440\:0430\ +\:0444\:0438\:043a (\:043a\:043b\:0438\:043a\:043d\:0438\:0442\:0435 \:043f\ +\:043e \:0435\:0433\:043e \:044f\:0447\:0435\:0439\:043a\:0435 \:0441\:043f\ +\:0440\:0430\:0432\:0430)!", WindowFloating -> True]]], Background -> + RGBColor[0.9, 0.95, 1], ImageSize -> {180, 25}, Appearance -> Automatic, + Evaluator -> Automatic, Method -> "Preemptive"]}, + "RowDefault"], + Background->GrayLevel[0.95], + FrameMargins->10]], "Output", + CellChangeTimes->{ + 3.9943059968489323`*^9},ExpressionUUID->"f4bac517-d1e4-4c68-ae64-\ +3a035e027e1b"], + +Cell[BoxData[ + TagBox[GridBox[{ + {"0", + RowBox[{"-", "2.710505431213761`*^-20"}]}, + {"1", "0.010314319698836005`"}, + {"2", "0.02031017743705008`"}, + {"3", "0.029685844770496576`"}, + {"4", "0.038170411377032025`"}, + {"5", "0.04553820512914989`"}, + {"6", "0.05161704692195882`"}, + {"7", "0.05629531040769965`"}, + {"8", "0.059524224433055314`"}, + {"9", "0.06131590260770419`"}, + {"10", "0.061738312040359525`"}, + {"11", "0.06090723007234113`"}, + {"12", "0.05897610747293012`"}, + {"13", "0.05612472111968238`"}, + {"14", "0.05254751456848439`"}, + {"15", "0.04844246547219522`"}, + {"16", "0.04400101354894763`"}, + {"17", "0.03940007904603873`"}, + {"18", "0.03479551764251239`"}, + {"19", "0.03031817531912846`"}, + {"20", "0.026072183521456814`"}, + {"21", "0.022134059164271417`"}, + {"22", "0.018554746538884996`"}, + {"23", "0.015362073864252349`"}, + {"24", "0.012563740489640311`"}, + {"25", "0.010151511581628598`"}, + {"26", "0.008104847447747855`"}, + {"27", "0.006394585387079465`"}, + {"28", "0.004986337974856244`"}, + {"29", "0.003843209974006569`"}, + {"30", "0.0029281071211333925`"} + }, + GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[2.0999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + Function[BoxForm`e$, + TableForm[BoxForm`e$]]]], "Output", + CellChangeTimes->{ + 3.994306016687532*^9},ExpressionUUID->"85a96fbf-af40-43e9-99bb-\ +e4b766cbde3e"] +}, Open ]] }, Evaluator->"Local", WindowSize->{1440, 882}, -WindowMargins->{{0, Automatic}, {0, Automatic}}, +WindowMargins->{{0, Automatic}, {0, 18}}, CellContext->Notebook, Magnification:>0.8 Inherited, FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", @@ -15780,675 +15966,682 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 302, 5, 42, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], -Cell[881, 29, 295, 5, 26, "Output",ExpressionUUID->"8ace6df8-99f7-477c-809a-5c62b763f3b3"] +Cell[576, 22, 302, 5, 29, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], +Cell[881, 29, 295, 5, 33, "Output",ExpressionUUID->"8ace6df8-99f7-477c-809a-5c62b763f3b3"] }, Open ]], Cell[CellGroupData[{ -Cell[1213, 39, 246, 4, 23, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], -Cell[1462, 45, 299, 5, 26, "Output",ExpressionUUID->"f94410f4-098e-40fa-8b8f-83070d00e5df"] +Cell[1213, 39, 246, 4, 29, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], +Cell[1462, 45, 299, 5, 33, "Output",ExpressionUUID->"f94410f4-098e-40fa-8b8f-83070d00e5df"] }, Open ]], Cell[CellGroupData[{ -Cell[1798, 55, 223, 4, 23, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], -Cell[2024, 61, 299, 5, 26, "Output",ExpressionUUID->"36f24ac2-a8bc-441f-a12b-8802d3b376cb"] +Cell[1798, 55, 223, 4, 29, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], +Cell[2024, 61, 299, 5, 33, "Output",ExpressionUUID->"36f24ac2-a8bc-441f-a12b-8802d3b376cb"] }, Open ]], Cell[CellGroupData[{ -Cell[2360, 71, 175, 3, 23, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], -Cell[2538, 76, 295, 5, 26, "Output",ExpressionUUID->"efcf3994-134a-4e2f-b62b-c907dbfe8e07"] +Cell[2360, 71, 175, 3, 29, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], +Cell[2538, 76, 295, 5, 33, "Output",ExpressionUUID->"efcf3994-134a-4e2f-b62b-c907dbfe8e07"] }, Open ]], Cell[CellGroupData[{ -Cell[2870, 86, 257, 7, 35, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], -Cell[3130, 95, 306, 5, 26, "Output",ExpressionUUID->"b7562f5a-2b46-490e-bf7d-47297ed3c910"] +Cell[2870, 86, 257, 7, 42, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], +Cell[3130, 95, 306, 5, 33, "Output",ExpressionUUID->"b7562f5a-2b46-490e-bf7d-47297ed3c910"] }, Open ]], Cell[CellGroupData[{ -Cell[3473, 105, 131, 2, 23, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], -Cell[3607, 109, 305, 5, 26, "Output",ExpressionUUID->"a8763186-b10a-4630-bb17-443ae165eb5a"] +Cell[3473, 105, 131, 2, 29, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], +Cell[3607, 109, 305, 5, 33, "Output",ExpressionUUID->"a8763186-b10a-4630-bb17-443ae165eb5a"] }, Open ]], Cell[CellGroupData[{ -Cell[3949, 119, 276, 6, 23, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], -Cell[4228, 127, 314, 5, 26, "Output",ExpressionUUID->"c674dd94-a99f-48c6-8dfb-db4243ab9056"] +Cell[3949, 119, 276, 6, 29, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], +Cell[4228, 127, 314, 5, 33, "Output",ExpressionUUID->"c674dd94-a99f-48c6-8dfb-db4243ab9056"] }, Open ]], Cell[CellGroupData[{ -Cell[4579, 137, 257, 7, 23, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], -Cell[4839, 146, 314, 5, 26, "Output",ExpressionUUID->"016580cb-aabf-4ffa-8c7b-a835a833a305"] +Cell[4579, 137, 257, 7, 29, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], +Cell[4839, 146, 314, 5, 33, "Output",ExpressionUUID->"016580cb-aabf-4ffa-8c7b-a835a833a305"] }, Open ]], Cell[CellGroupData[{ -Cell[5190, 156, 226, 4, 23, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], -Cell[5419, 162, 271, 4, 26, "Output",ExpressionUUID->"7476101d-447d-4bf0-ab82-6efcd448962f"] +Cell[5190, 156, 226, 4, 29, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], +Cell[5419, 162, 271, 4, 33, "Output",ExpressionUUID->"7476101d-447d-4bf0-ab82-6efcd448962f"] }, Open ]], Cell[CellGroupData[{ -Cell[5727, 171, 225, 4, 23, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], -Cell[5955, 177, 284, 4, 26, "Output",ExpressionUUID->"49557e83-ee6e-473a-add2-8ccb56401e6a"] +Cell[5727, 171, 225, 4, 29, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], +Cell[5955, 177, 284, 4, 33, "Output",ExpressionUUID->"49557e83-ee6e-473a-add2-8ccb56401e6a"] }, Open ]], Cell[CellGroupData[{ -Cell[6276, 186, 129, 2, 23, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], -Cell[6408, 190, 301, 5, 26, "Output",ExpressionUUID->"14394ce5-24d8-4433-92ec-057199a3f02b"] +Cell[6276, 186, 129, 2, 29, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], +Cell[6408, 190, 301, 5, 33, "Output",ExpressionUUID->"14394ce5-24d8-4433-92ec-057199a3f02b"] }, Open ]], Cell[CellGroupData[{ -Cell[6746, 200, 129, 2, 23, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], -Cell[6878, 204, 302, 5, 26, "Output",ExpressionUUID->"4133b54d-b6d3-4e75-bda7-d3cfec377199"] +Cell[6746, 200, 129, 2, 29, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], +Cell[6878, 204, 302, 5, 33, "Output",ExpressionUUID->"4133b54d-b6d3-4e75-bda7-d3cfec377199"] }, Open ]], Cell[CellGroupData[{ -Cell[7217, 214, 557, 19, 67, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], -Cell[7777, 235, 315, 5, 26, "Output",ExpressionUUID->"fed902f4-5ed9-48ac-8d7f-aac342eb8f25"] +Cell[7217, 214, 557, 19, 79, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], +Cell[7777, 235, 315, 5, 33, "Output",ExpressionUUID->"fed902f4-5ed9-48ac-8d7f-aac342eb8f25"] }, Open ]], Cell[CellGroupData[{ -Cell[8129, 245, 557, 19, 67, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], -Cell[8689, 266, 313, 5, 26, "Output",ExpressionUUID->"8b7bc6f5-257b-432a-8a45-b540c4851388"] +Cell[8129, 245, 557, 19, 79, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], +Cell[8689, 266, 313, 5, 33, "Output",ExpressionUUID->"8b7bc6f5-257b-432a-8a45-b540c4851388"] }, Open ]], Cell[CellGroupData[{ -Cell[9039, 276, 1492, 48, 67, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], -Cell[10534, 326, 317, 5, 26, "Output",ExpressionUUID->"bb292f04-fd15-4fcd-a9fb-280f6549551b"] +Cell[9039, 276, 1492, 48, 79, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], +Cell[10534, 326, 317, 5, 33, "Output",ExpressionUUID->"bb292f04-fd15-4fcd-a9fb-280f6549551b"] }, Open ]], Cell[CellGroupData[{ -Cell[10888, 336, 1331, 44, 67, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], -Cell[12222, 382, 332, 6, 26, "Output",ExpressionUUID->"3b93670d-792f-4c13-bb1c-5f9fa6fbc8bd"] +Cell[10888, 336, 1331, 44, 79, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], +Cell[12222, 382, 332, 6, 33, "Output",ExpressionUUID->"3b93670d-792f-4c13-bb1c-5f9fa6fbc8bd"] }, Open ]], Cell[CellGroupData[{ -Cell[12591, 393, 1331, 44, 67, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], -Cell[13925, 439, 336, 6, 26, "Output",ExpressionUUID->"d9423fdb-57b9-4642-bd4d-10d366f8a2e5"] +Cell[12591, 393, 1331, 44, 79, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], +Cell[13925, 439, 336, 6, 33, "Output",ExpressionUUID->"d9423fdb-57b9-4642-bd4d-10d366f8a2e5"] }, Open ]], Cell[CellGroupData[{ -Cell[14298, 450, 1492, 48, 67, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], -Cell[15793, 500, 312, 5, 26, "Output",ExpressionUUID->"10a5ccb4-ed18-48de-aa9f-844f6678ef3b"] +Cell[14298, 450, 1492, 48, 79, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], +Cell[15793, 500, 312, 5, 33, "Output",ExpressionUUID->"10a5ccb4-ed18-48de-aa9f-844f6678ef3b"] }, Open ]], Cell[CellGroupData[{ -Cell[16142, 510, 131, 2, 23, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], -Cell[16276, 514, 296, 5, 26, "Output",ExpressionUUID->"15668269-0801-406e-85d8-606501fca5ee"] +Cell[16142, 510, 131, 2, 29, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], +Cell[16276, 514, 296, 5, 33, "Output",ExpressionUUID->"15668269-0801-406e-85d8-606501fca5ee"] }, Open ]], Cell[CellGroupData[{ -Cell[16609, 524, 133, 2, 23, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], -Cell[16745, 528, 299, 5, 26, "Output",ExpressionUUID->"9365dab5-f2ad-4331-82f2-f4ade6c39b19"] +Cell[16609, 524, 133, 2, 29, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], +Cell[16745, 528, 299, 5, 33, "Output",ExpressionUUID->"9365dab5-f2ad-4331-82f2-f4ade6c39b19"] }, Open ]], Cell[CellGroupData[{ -Cell[17081, 538, 134, 2, 23, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], -Cell[17218, 542, 304, 5, 26, "Output",ExpressionUUID->"c99d0918-277b-4e14-a9df-cf5733986314"] +Cell[17081, 538, 134, 2, 29, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], +Cell[17218, 542, 304, 5, 33, "Output",ExpressionUUID->"c99d0918-277b-4e14-a9df-cf5733986314"] }, Open ]], Cell[CellGroupData[{ -Cell[17559, 552, 219, 4, 23, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], -Cell[17781, 558, 315, 6, 26, "Output",ExpressionUUID->"1a145dcf-83c1-4e0e-a27d-b6c216da93b2"] +Cell[17559, 552, 219, 4, 29, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], +Cell[17781, 558, 315, 6, 33, "Output",ExpressionUUID->"1a145dcf-83c1-4e0e-a27d-b6c216da93b2"] }, Open ]], Cell[CellGroupData[{ -Cell[18133, 569, 134, 2, 23, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], -Cell[18270, 573, 304, 5, 26, "Output",ExpressionUUID->"b763a445-aaa4-4b6c-a84d-a44a696342fb"] +Cell[18133, 569, 134, 2, 29, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], +Cell[18270, 573, 304, 5, 33, "Output",ExpressionUUID->"b763a445-aaa4-4b6c-a84d-a44a696342fb"] }, Open ]], Cell[CellGroupData[{ -Cell[18611, 583, 324, 5, 23, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], -Cell[18938, 590, 298, 5, 26, "Output",ExpressionUUID->"9f47998e-b36d-4f8f-8c33-f8acd9538c53"] +Cell[18611, 583, 324, 5, 29, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], +Cell[18938, 590, 298, 5, 33, "Output",ExpressionUUID->"9f47998e-b36d-4f8f-8c33-f8acd9538c53"] }, Open ]], Cell[CellGroupData[{ -Cell[19273, 600, 296, 5, 23, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], -Cell[19572, 607, 298, 5, 26, "Output",ExpressionUUID->"29713aad-731c-48e3-9916-1411c23720a0"] +Cell[19273, 600, 296, 5, 29, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], +Cell[19572, 607, 298, 5, 33, "Output",ExpressionUUID->"29713aad-731c-48e3-9916-1411c23720a0"] }, Open ]], Cell[CellGroupData[{ -Cell[19907, 617, 219, 4, 23, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], -Cell[20129, 623, 300, 5, 26, "Output",ExpressionUUID->"bcb53e67-3d30-42f7-bb6a-6087c3c3f01f"] +Cell[19907, 617, 219, 4, 29, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], +Cell[20129, 623, 300, 5, 33, "Output",ExpressionUUID->"bcb53e67-3d30-42f7-bb6a-6087c3c3f01f"] }, Open ]], Cell[CellGroupData[{ -Cell[20466, 633, 350, 10, 35, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], -Cell[20819, 645, 317, 5, 26, "Output",ExpressionUUID->"4268b8a0-2c69-492c-9eac-76aa8cb8146e"] +Cell[20466, 633, 350, 10, 42, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], +Cell[20819, 645, 317, 5, 33, "Output",ExpressionUUID->"4268b8a0-2c69-492c-9eac-76aa8cb8146e"] }, Open ]], Cell[CellGroupData[{ -Cell[21173, 655, 350, 10, 35, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], -Cell[21526, 667, 334, 6, 26, "Output",ExpressionUUID->"c3b983e2-c5c3-42b2-a05a-12cdb110e16e"] +Cell[21173, 655, 350, 10, 42, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], +Cell[21526, 667, 334, 6, 33, "Output",ExpressionUUID->"c3b983e2-c5c3-42b2-a05a-12cdb110e16e"] }, Open ]], Cell[CellGroupData[{ -Cell[21897, 678, 994, 26, 38, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], -Cell[22894, 706, 313, 5, 26, "Output",ExpressionUUID->"6ef4257e-698c-4311-bf2d-9443097a3332"] +Cell[21897, 678, 994, 26, 43, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], +Cell[22894, 706, 313, 5, 33, "Output",ExpressionUUID->"6ef4257e-698c-4311-bf2d-9443097a3332"] }, Open ]], Cell[CellGroupData[{ -Cell[23244, 716, 199, 3, 23, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], -Cell[23446, 721, 299, 5, 26, "Output",ExpressionUUID->"424cbc03-22c6-47d5-9e4c-b62dbf4e5078"] +Cell[23244, 716, 199, 3, 29, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], +Cell[23446, 721, 299, 5, 33, "Output",ExpressionUUID->"424cbc03-22c6-47d5-9e4c-b62dbf4e5078"] }, Open ]], Cell[CellGroupData[{ -Cell[23782, 731, 325, 5, 23, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], -Cell[24110, 738, 270, 4, 26, "Output",ExpressionUUID->"e64364fa-6105-474a-8650-b59d82da65c0"] +Cell[23782, 731, 325, 5, 109, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], +Cell[24110, 738, 270, 4, 109, "Output",ExpressionUUID->"e64364fa-6105-474a-8650-b59d82da65c0"] }, Open ]], -Cell[24395, 745, 173, 2, 23, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], +Cell[24395, 745, 173, 2, 109, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], Cell[CellGroupData[{ -Cell[24593, 751, 327, 5, 23, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], -Cell[24923, 758, 277, 4, 26, "Output",ExpressionUUID->"d9ee098d-f606-43ed-ba32-bec20beb9564"] +Cell[24593, 751, 327, 5, 109, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], +Cell[24923, 758, 277, 4, 109, "Output",ExpressionUUID->"d9ee098d-f606-43ed-ba32-bec20beb9564"] }, Open ]], -Cell[25215, 765, 173, 2, 23, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], +Cell[25215, 765, 173, 2, 29, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], Cell[CellGroupData[{ -Cell[25413, 771, 330, 5, 23, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], -Cell[25746, 778, 279, 4, 26, "Output",ExpressionUUID->"ea07f0d3-23bf-4b06-a949-451546af9e37"] +Cell[25413, 771, 330, 5, 29, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], +Cell[25746, 778, 279, 4, 33, "Output",ExpressionUUID->"ea07f0d3-23bf-4b06-a949-451546af9e37"] }, Open ]], -Cell[26040, 785, 173, 2, 23, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], +Cell[26040, 785, 173, 2, 29, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], Cell[CellGroupData[{ -Cell[26238, 791, 351, 5, 23, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], -Cell[26592, 798, 281, 4, 26, "Output",ExpressionUUID->"d8eb8c30-889d-4f69-ab4b-116a444e2d84"] +Cell[26238, 791, 351, 5, 29, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], +Cell[26592, 798, 281, 4, 33, "Output",ExpressionUUID->"d8eb8c30-889d-4f69-ab4b-116a444e2d84"] }, Open ]], -Cell[26888, 805, 171, 2, 23, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], +Cell[26888, 805, 171, 2, 29, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], Cell[CellGroupData[{ -Cell[27084, 811, 301, 5, 23, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], -Cell[27388, 818, 273, 4, 26, "Output",ExpressionUUID->"00e074ca-9952-41f5-a725-6aaeca7998d5"] +Cell[27084, 811, 301, 5, 29, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], +Cell[27388, 818, 273, 4, 33, "Output",ExpressionUUID->"00e074ca-9952-41f5-a725-6aaeca7998d5"] }, Open ]], -Cell[27676, 825, 171, 2, 23, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], +Cell[27676, 825, 171, 2, 29, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], Cell[CellGroupData[{ -Cell[27872, 831, 303, 5, 23, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], -Cell[28178, 838, 273, 4, 26, "Output",ExpressionUUID->"a981d50c-124b-43ab-a4d9-10e092e699f5"] +Cell[27872, 831, 303, 5, 29, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], +Cell[28178, 838, 273, 4, 33, "Output",ExpressionUUID->"a981d50c-124b-43ab-a4d9-10e092e699f5"] }, Open ]], -Cell[28466, 845, 173, 2, 23, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], +Cell[28466, 845, 173, 2, 29, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], Cell[CellGroupData[{ -Cell[28664, 851, 307, 5, 23, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], -Cell[28974, 858, 276, 4, 26, "Output",ExpressionUUID->"11a5d72c-c392-41e8-8071-51a345495633"] +Cell[28664, 851, 307, 5, 29, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], +Cell[28974, 858, 276, 4, 33, "Output",ExpressionUUID->"11a5d72c-c392-41e8-8071-51a345495633"] }, Open ]], -Cell[29265, 865, 172, 2, 23, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], +Cell[29265, 865, 172, 2, 29, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], Cell[CellGroupData[{ -Cell[29462, 871, 275, 4, 23, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], -Cell[29740, 877, 277, 4, 26, "Output",ExpressionUUID->"383a7c98-59e7-4de2-a799-134e9c2770e9"] +Cell[29462, 871, 275, 4, 29, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], +Cell[29740, 877, 277, 4, 33, "Output",ExpressionUUID->"383a7c98-59e7-4de2-a799-134e9c2770e9"] }, Open ]], -Cell[30032, 884, 175, 2, 23, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], +Cell[30032, 884, 175, 2, 29, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ -Cell[30232, 890, 19809, 485, 680, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], -Cell[50044, 1377, 315, 5, 26, "Output",ExpressionUUID->"0f936696-d1ee-4d18-a288-e9dff99bec5c"] +Cell[30232, 890, 19809, 485, 1100, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], +Cell[50044, 1377, 315, 5, 33, "Output",ExpressionUUID->"0f936696-d1ee-4d18-a288-e9dff99bec5c"] }, Open ]], Cell[CellGroupData[{ -Cell[50396, 1387, 19748, 489, 690, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], -Cell[70147, 1878, 313, 5, 26, "Output",ExpressionUUID->"7e3bd6cf-0025-4d13-b664-04963a9d320a"] +Cell[50396, 1387, 19748, 489, 1100, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], +Cell[70147, 1878, 313, 5, 33, "Output",ExpressionUUID->"7e3bd6cf-0025-4d13-b664-04963a9d320a"] }, Open ]], Cell[CellGroupData[{ -Cell[70497, 1888, 19748, 483, 689, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], -Cell[90248, 2373, 328, 6, 26, "Output",ExpressionUUID->"a4ccf6ce-0de7-4793-b06c-c1eb3fb18a9d"] +Cell[70497, 1888, 19748, 483, 1099, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], +Cell[90248, 2373, 328, 6, 33, "Output",ExpressionUUID->"a4ccf6ce-0de7-4793-b06c-c1eb3fb18a9d"] }, Open ]], Cell[CellGroupData[{ -Cell[90613, 2384, 22534, 553, 761, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], -Cell[113150, 2939, 330, 6, 26, "Output",ExpressionUUID->"3c96cf49-2b7e-4570-bd05-4026c0610104"] +Cell[90613, 2384, 22534, 553, 1235, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], +Cell[113150, 2939, 330, 6, 33, "Output",ExpressionUUID->"3c96cf49-2b7e-4570-bd05-4026c0610104"] }, Open ]], Cell[CellGroupData[{ -Cell[113517, 2950, 22535, 553, 761, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], -Cell[136055, 3505, 333, 6, 26, "Output",ExpressionUUID->"08a63b32-6a93-4275-bbaf-23be7bac10dd"] +Cell[113517, 2950, 22535, 553, 1235, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], +Cell[136055, 3505, 333, 6, 33, "Output",ExpressionUUID->"08a63b32-6a93-4275-bbaf-23be7bac10dd"] }, Open ]], Cell[CellGroupData[{ -Cell[136425, 3516, 25491, 626, 833, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], -Cell[161919, 4144, 328, 6, 26, "Output",ExpressionUUID->"49a2e7a4-7b62-4840-acba-2cfd59e98589"] +Cell[136425, 3516, 25491, 626, 1350, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], +Cell[161919, 4144, 328, 6, 33, "Output",ExpressionUUID->"49a2e7a4-7b62-4840-acba-2cfd59e98589"] }, Open ]], Cell[CellGroupData[{ -Cell[162284, 4155, 130, 2, 23, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], -Cell[162417, 4159, 297, 5, 26, "Output",ExpressionUUID->"67e28a61-b6f2-4299-9f7c-137e60c41b76"] +Cell[162284, 4155, 130, 2, 29, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], +Cell[162417, 4159, 297, 5, 33, "Output",ExpressionUUID->"67e28a61-b6f2-4299-9f7c-137e60c41b76"] }, Open ]], Cell[CellGroupData[{ -Cell[162751, 4169, 130, 2, 23, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], -Cell[162884, 4173, 302, 5, 26, "Output",ExpressionUUID->"68a725a5-2810-4999-b840-96d1dcaa1fb9"] +Cell[162751, 4169, 130, 2, 29, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], +Cell[162884, 4173, 302, 5, 33, "Output",ExpressionUUID->"68a725a5-2810-4999-b840-96d1dcaa1fb9"] }, Open ]], Cell[CellGroupData[{ -Cell[163223, 4183, 1144, 39, 48, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], -Cell[164370, 4224, 311, 5, 26, "Output",ExpressionUUID->"16d0f2b8-73e3-43ef-b36f-7942bcb787dd"] +Cell[163223, 4183, 1144, 39, 55, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], +Cell[164370, 4224, 311, 5, 33, "Output",ExpressionUUID->"16d0f2b8-73e3-43ef-b36f-7942bcb787dd"] }, Open ]], Cell[CellGroupData[{ -Cell[164718, 4234, 1041, 35, 48, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], -Cell[165762, 4271, 326, 6, 26, "Output",ExpressionUUID->"3ef5557f-f15d-4461-9657-9414667c38ee"] +Cell[164718, 4234, 1041, 35, 55, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], +Cell[165762, 4271, 326, 6, 33, "Output",ExpressionUUID->"3ef5557f-f15d-4461-9657-9414667c38ee"] }, Open ]], Cell[CellGroupData[{ -Cell[166125, 4282, 1144, 39, 48, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], -Cell[167272, 4323, 318, 5, 26, "Output",ExpressionUUID->"621c3676-6f5f-4a51-8777-7d466543eabc"] +Cell[166125, 4282, 1144, 39, 55, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], +Cell[167272, 4323, 318, 5, 33, "Output",ExpressionUUID->"621c3676-6f5f-4a51-8777-7d466543eabc"] }, Open ]], Cell[CellGroupData[{ -Cell[167627, 4333, 108, 1, 23, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], -Cell[167738, 4336, 319, 5, 26, "Output",ExpressionUUID->"4c3e597c-1008-44f9-a3e5-3bbe24598662"] +Cell[167627, 4333, 108, 1, 29, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], +Cell[167738, 4336, 319, 5, 33, "Output",ExpressionUUID->"4c3e597c-1008-44f9-a3e5-3bbe24598662"] }, Open ]], Cell[CellGroupData[{ -Cell[168094, 4346, 108, 1, 23, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], -Cell[168205, 4349, 332, 6, 26, "Output",ExpressionUUID->"a2cd9e57-86ba-47ab-b600-8198afd0d960"] +Cell[168094, 4346, 108, 1, 29, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], +Cell[168205, 4349, 332, 6, 33, "Output",ExpressionUUID->"a2cd9e57-86ba-47ab-b600-8198afd0d960"] }, Open ]], Cell[CellGroupData[{ -Cell[168574, 4360, 108, 1, 23, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], -Cell[168685, 4363, 333, 6, 26, "Output",ExpressionUUID->"b1306736-47e0-485c-9bbf-d3e5989faa81"] +Cell[168574, 4360, 108, 1, 29, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], +Cell[168685, 4363, 333, 6, 33, "Output",ExpressionUUID->"b1306736-47e0-485c-9bbf-d3e5989faa81"] }, Open ]], Cell[CellGroupData[{ -Cell[169055, 4374, 108, 1, 23, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], -Cell[169166, 4377, 314, 5, 26, "Output",ExpressionUUID->"90d257cc-b54b-4d66-a02d-8303ed929d68"] +Cell[169055, 4374, 108, 1, 29, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], +Cell[169166, 4377, 314, 5, 33, "Output",ExpressionUUID->"90d257cc-b54b-4d66-a02d-8303ed929d68"] }, Open ]], Cell[CellGroupData[{ -Cell[169517, 4387, 107, 1, 23, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], -Cell[169627, 4390, 318, 5, 26, "Output",ExpressionUUID->"648c0fdc-5c6c-4fe8-aa10-c925a2e9b1f3"] +Cell[169517, 4387, 107, 1, 29, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], +Cell[169627, 4390, 318, 5, 33, "Output",ExpressionUUID->"648c0fdc-5c6c-4fe8-aa10-c925a2e9b1f3"] }, Open ]], Cell[CellGroupData[{ -Cell[169982, 4400, 107, 1, 23, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], -Cell[170092, 4403, 315, 5, 26, "Output",ExpressionUUID->"26d57641-c233-4f18-becc-dfdf7b1bf81c"] +Cell[169982, 4400, 107, 1, 29, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], +Cell[170092, 4403, 315, 5, 33, "Output",ExpressionUUID->"26d57641-c233-4f18-becc-dfdf7b1bf81c"] }, Open ]], Cell[CellGroupData[{ -Cell[170444, 4413, 497, 16, 46, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], -Cell[170944, 4431, 334, 6, 26, "Output",ExpressionUUID->"66286b5e-b7d9-4119-863e-ae28b6287741"] +Cell[170444, 4413, 497, 16, 55, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], +Cell[170944, 4431, 334, 6, 33, "Output",ExpressionUUID->"66286b5e-b7d9-4119-863e-ae28b6287741"] }, Open ]], Cell[CellGroupData[{ -Cell[171315, 4442, 497, 16, 46, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], -Cell[171815, 4460, 336, 6, 26, "Output",ExpressionUUID->"9fc6843a-5ff7-4114-8ef6-28161695f4ab"] +Cell[171315, 4442, 497, 16, 55, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], +Cell[171815, 4460, 336, 6, 33, "Output",ExpressionUUID->"9fc6843a-5ff7-4114-8ef6-28161695f4ab"] }, Open ]], Cell[CellGroupData[{ -Cell[172188, 4471, 1788, 60, 48, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], -Cell[173979, 4533, 315, 5, 26, "Output",ExpressionUUID->"0e4958a1-96cc-4635-8bb4-2fc535609ef2"] +Cell[172188, 4471, 1788, 60, 55, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], +Cell[173979, 4533, 315, 5, 33, "Output",ExpressionUUID->"0e4958a1-96cc-4635-8bb4-2fc535609ef2"] }, Open ]], Cell[CellGroupData[{ -Cell[174331, 4543, 1101, 36, 48, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], -Cell[175435, 4581, 330, 6, 26, "Output",ExpressionUUID->"38121e0e-4f7d-48f5-b272-9d7e6b444d3b"] +Cell[174331, 4543, 1101, 36, 55, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], +Cell[175435, 4581, 330, 6, 33, "Output",ExpressionUUID->"38121e0e-4f7d-48f5-b272-9d7e6b444d3b"] }, Open ]], Cell[CellGroupData[{ -Cell[175802, 4592, 1818, 61, 95, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], -Cell[177623, 4655, 311, 5, 26, "Output",ExpressionUUID->"578f8c4f-2e3d-4535-bd8f-b8b86ea610e0"] +Cell[175802, 4592, 1818, 61, 107, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], +Cell[177623, 4655, 311, 5, 33, "Output",ExpressionUUID->"578f8c4f-2e3d-4535-bd8f-b8b86ea610e0"] }, Open ]], Cell[CellGroupData[{ -Cell[177971, 4665, 1631, 53, 67, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], -Cell[179605, 4720, 313, 5, 26, "Output",ExpressionUUID->"e609fa81-3c9d-4d2e-8a5b-d4867a687379"] +Cell[177971, 4665, 1631, 53, 79, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], +Cell[179605, 4720, 313, 5, 33, "Output",ExpressionUUID->"e609fa81-3c9d-4d2e-8a5b-d4867a687379"] }, Open ]], Cell[CellGroupData[{ -Cell[179955, 4730, 1631, 53, 67, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], -Cell[181589, 4785, 316, 5, 26, "Output",ExpressionUUID->"7b22d0e7-fe7f-426c-a531-ee45fd5a417f"] +Cell[179955, 4730, 1631, 53, 79, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], +Cell[181589, 4785, 316, 5, 33, "Output",ExpressionUUID->"7b22d0e7-fe7f-426c-a531-ee45fd5a417f"] }, Open ]], Cell[CellGroupData[{ -Cell[181942, 4795, 227, 4, 23, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], -Cell[182172, 4801, 280, 4, 26, "Output",ExpressionUUID->"9badcb5c-4f3e-4f7e-98e2-8110962d5d3b"] +Cell[181942, 4795, 227, 4, 29, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], +Cell[182172, 4801, 280, 4, 33, "Output",ExpressionUUID->"9badcb5c-4f3e-4f7e-98e2-8110962d5d3b"] }, Open ]], -Cell[182467, 4808, 172, 2, 23, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], +Cell[182467, 4808, 172, 2, 29, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], Cell[CellGroupData[{ -Cell[182664, 4814, 225, 4, 23, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], -Cell[182892, 4820, 280, 4, 26, "Output",ExpressionUUID->"78bda8ec-636f-4e9f-8348-73668650363c"] +Cell[182664, 4814, 225, 4, 29, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], +Cell[182892, 4820, 280, 4, 33, "Output",ExpressionUUID->"78bda8ec-636f-4e9f-8348-73668650363c"] }, Open ]], -Cell[183187, 4827, 173, 2, 23, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], +Cell[183187, 4827, 173, 2, 29, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ -Cell[183385, 4833, 1297, 42, 40, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], -Cell[184685, 4877, 318, 5, 26, "Output",ExpressionUUID->"9880f7cb-68d5-45eb-b6d8-96e89134811d"] +Cell[183385, 4833, 1297, 42, 47, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], +Cell[184685, 4877, 318, 5, 33, "Output",ExpressionUUID->"9880f7cb-68d5-45eb-b6d8-96e89134811d"] }, Open ]], Cell[CellGroupData[{ -Cell[185040, 4887, 927, 30, 48, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], -Cell[185970, 4919, 317, 5, 26, "Output",ExpressionUUID->"6316abeb-7945-4c99-bc2f-089d14984077"] +Cell[185040, 4887, 927, 30, 55, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], +Cell[185970, 4919, 317, 5, 33, "Output",ExpressionUUID->"6316abeb-7945-4c99-bc2f-089d14984077"] }, Open ]], Cell[CellGroupData[{ -Cell[186324, 4929, 903, 29, 48, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], -Cell[187230, 4960, 318, 5, 26, "Output",ExpressionUUID->"a57cb488-aaa8-42ba-9794-349fba086c04"] +Cell[186324, 4929, 903, 29, 55, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], +Cell[187230, 4960, 318, 5, 33, "Output",ExpressionUUID->"a57cb488-aaa8-42ba-9794-349fba086c04"] }, Open ]], Cell[CellGroupData[{ -Cell[187585, 4970, 554, 18, 43, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], -Cell[188142, 4990, 709, 10, 26, "Output",ExpressionUUID->"927d6a5a-a991-48d4-a0c0-13ed8dc5f9e4"] +Cell[187585, 4970, 554, 18, 51, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], +Cell[188142, 4990, 709, 10, 33, "Output",ExpressionUUID->"927d6a5a-a991-48d4-a0c0-13ed8dc5f9e4"] }, Open ]], Cell[CellGroupData[{ -Cell[188888, 5005, 661, 21, 43, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], -Cell[189552, 5028, 693, 10, 26, "Output",ExpressionUUID->"b27c18da-d67f-4168-b44c-87ebc8be5c78"] +Cell[188888, 5005, 661, 21, 51, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], +Cell[189552, 5028, 693, 10, 33, "Output",ExpressionUUID->"b27c18da-d67f-4168-b44c-87ebc8be5c78"] }, Open ]], Cell[CellGroupData[{ -Cell[190282, 5043, 166, 4, 47, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], -Cell[190451, 5049, 718, 10, 26, "Output",ExpressionUUID->"03cfc0da-98e1-441e-b7a5-5b9ba0ea3941"] +Cell[190282, 5043, 166, 4, 55, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], +Cell[190451, 5049, 718, 10, 33, "Output",ExpressionUUID->"03cfc0da-98e1-441e-b7a5-5b9ba0ea3941"] }, Open ]], Cell[CellGroupData[{ -Cell[191206, 5064, 232, 5, 46, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], -Cell[191441, 5071, 657, 9, 26, "Output",ExpressionUUID->"16a78f2a-35fc-44a4-bfc9-cf7794e34b71"] +Cell[191206, 5064, 232, 5, 54, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], +Cell[191441, 5071, 657, 9, 33, "Output",ExpressionUUID->"16a78f2a-35fc-44a4-bfc9-cf7794e34b71"] }, Open ]], Cell[CellGroupData[{ -Cell[192135, 5085, 219, 5, 36, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], -Cell[192357, 5092, 688, 10, 26, "Output",ExpressionUUID->"fdec06fe-2510-42ba-825c-1ff42aa20137"] +Cell[192135, 5085, 219, 5, 43, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], +Cell[192357, 5092, 688, 10, 33, "Output",ExpressionUUID->"fdec06fe-2510-42ba-825c-1ff42aa20137"] }, Open ]], Cell[CellGroupData[{ -Cell[193082, 5107, 177, 4, 36, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], -Cell[193262, 5113, 707, 10, 26, "Output",ExpressionUUID->"eff75831-6eec-4264-a07e-06e0121c56d5"] +Cell[193082, 5107, 177, 4, 43, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], +Cell[193262, 5113, 707, 10, 33, "Output",ExpressionUUID->"eff75831-6eec-4264-a07e-06e0121c56d5"] }, Open ]], Cell[CellGroupData[{ -Cell[194006, 5128, 6051, 184, 161, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], -Cell[200060, 5314, 686, 10, 26, "Output",ExpressionUUID->"a11da365-23e7-4637-90e3-f23027bda11d"] +Cell[194006, 5128, 6051, 184, 183, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], +Cell[200060, 5314, 686, 10, 33, "Output",ExpressionUUID->"a11da365-23e7-4637-90e3-f23027bda11d"] }, Open ]], Cell[CellGroupData[{ -Cell[200783, 5329, 406, 9, 46, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], -Cell[201192, 5340, 705, 10, 39, "Output",ExpressionUUID->"cd060f02-d795-4661-9dec-01d8a3df6742"] +Cell[200783, 5329, 406, 9, 57, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], +Cell[201192, 5340, 705, 10, 49, "Output",ExpressionUUID->"cd060f02-d795-4661-9dec-01d8a3df6742"] }, Open ]], -Cell[201912, 5353, 488, 9, 23, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], +Cell[201912, 5353, 488, 9, 29, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ -Cell[202425, 5366, 554, 18, 43, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], -Cell[202982, 5386, 310, 5, 26, "Output",ExpressionUUID->"b45d740d-2124-4a34-8528-bb737b1c9d54"] +Cell[202425, 5366, 554, 18, 51, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], +Cell[202982, 5386, 310, 5, 33, "Output",ExpressionUUID->"b45d740d-2124-4a34-8528-bb737b1c9d54"] }, Open ]], Cell[CellGroupData[{ -Cell[203329, 5396, 619, 20, 43, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], -Cell[203951, 5418, 320, 5, 26, "Output",ExpressionUUID->"7bfbfe1a-e321-46de-b110-d210971ea271"] +Cell[203329, 5396, 619, 20, 51, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], +Cell[203951, 5418, 320, 5, 33, "Output",ExpressionUUID->"7bfbfe1a-e321-46de-b110-d210971ea271"] }, Open ]], Cell[CellGroupData[{ -Cell[204308, 5428, 166, 4, 47, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], -Cell[204477, 5434, 310, 5, 26, "Output",ExpressionUUID->"04dc38b9-e2a9-41d0-87da-1da9610e899f"] +Cell[204308, 5428, 166, 4, 55, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], +Cell[204477, 5434, 310, 5, 33, "Output",ExpressionUUID->"04dc38b9-e2a9-41d0-87da-1da9610e899f"] }, Open ]], Cell[CellGroupData[{ -Cell[204824, 5444, 166, 4, 46, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], -Cell[204993, 5450, 312, 5, 26, "Output",ExpressionUUID->"12ee275a-994d-4558-8bce-85e65c70f45d"] +Cell[204824, 5444, 166, 4, 54, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], +Cell[204993, 5450, 312, 5, 33, "Output",ExpressionUUID->"12ee275a-994d-4558-8bce-85e65c70f45d"] }, Open ]], Cell[CellGroupData[{ -Cell[205342, 5460, 177, 4, 36, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], -Cell[205522, 5466, 317, 5, 26, "Output",ExpressionUUID->"2c65ac14-44f6-458a-b737-ddc21e9803da"] +Cell[205342, 5460, 177, 4, 43, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], +Cell[205522, 5466, 317, 5, 33, "Output",ExpressionUUID->"2c65ac14-44f6-458a-b737-ddc21e9803da"] }, Open ]], Cell[CellGroupData[{ -Cell[205876, 5476, 177, 4, 36, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], -Cell[206056, 5482, 313, 5, 26, "Output",ExpressionUUID->"83e76410-18c7-4252-8e44-1362e95f47f8"] +Cell[205876, 5476, 177, 4, 43, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], +Cell[206056, 5482, 313, 5, 33, "Output",ExpressionUUID->"83e76410-18c7-4252-8e44-1362e95f47f8"] }, Open ]], Cell[CellGroupData[{ -Cell[206406, 5492, 6051, 184, 161, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], -Cell[212460, 5678, 316, 5, 26, "Output",ExpressionUUID->"aeebb0a9-0406-444e-8c08-b91e92d41bf0"] +Cell[206406, 5492, 6051, 184, 183, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], +Cell[212460, 5678, 316, 5, 33, "Output",ExpressionUUID->"aeebb0a9-0406-444e-8c08-b91e92d41bf0"] }, Open ]], Cell[CellGroupData[{ -Cell[212813, 5688, 364, 8, 33, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], -Cell[213180, 5698, 318, 5, 26, "Output",ExpressionUUID->"2ad19dfe-64cc-405c-8ac0-b4884e781493"] +Cell[212813, 5688, 364, 8, 41, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], +Cell[213180, 5698, 318, 5, 33, "Output",ExpressionUUID->"2ad19dfe-64cc-405c-8ac0-b4884e781493"] }, Open ]], Cell[CellGroupData[{ -Cell[213535, 5708, 6118, 186, 161, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], -Cell[219656, 5896, 317, 5, 26, "Output",ExpressionUUID->"db2f3f10-4f13-4545-a16a-937b8b9055aa"] +Cell[213535, 5708, 6118, 186, 183, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], +Cell[219656, 5896, 317, 5, 33, "Output",ExpressionUUID->"db2f3f10-4f13-4545-a16a-937b8b9055aa"] }, Open ]], Cell[CellGroupData[{ -Cell[220010, 5906, 364, 8, 33, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], -Cell[220377, 5916, 315, 5, 26, "Output",ExpressionUUID->"00fe4cf2-396b-4e7a-a1ed-7907bd016d50"] +Cell[220010, 5906, 364, 8, 41, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], +Cell[220377, 5916, 315, 5, 33, "Output",ExpressionUUID->"00fe4cf2-396b-4e7a-a1ed-7907bd016d50"] }, Open ]], Cell[CellGroupData[{ -Cell[220729, 5926, 2659, 87, 95, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], -Cell[223391, 6015, 317, 5, 26, "Output",ExpressionUUID->"071391a5-d3e7-4340-be9a-ae168e518bd3"] +Cell[220729, 5926, 2659, 87, 107, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], +Cell[223391, 6015, 317, 5, 33, "Output",ExpressionUUID->"071391a5-d3e7-4340-be9a-ae168e518bd3"] }, Open ]], Cell[CellGroupData[{ -Cell[223745, 6025, 2599, 84, 95, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], -Cell[226347, 6111, 318, 5, 26, "Output",ExpressionUUID->"6859d4f6-6590-4aea-8fcd-3ce591184b81"] +Cell[223745, 6025, 2599, 84, 109, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], +Cell[226347, 6111, 318, 5, 109, "Output",ExpressionUUID->"6859d4f6-6590-4aea-8fcd-3ce591184b81"] }, Open ]], Cell[CellGroupData[{ -Cell[226702, 6121, 3708, 117, 142, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], -Cell[230413, 6240, 315, 5, 26, "Output",ExpressionUUID->"1c599b7f-6cd2-4924-aeea-5a767e2a6b61"] +Cell[226702, 6121, 3708, 117, 109, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], +Cell[230413, 6240, 315, 5, 109, "Output",ExpressionUUID->"1c599b7f-6cd2-4924-aeea-5a767e2a6b61"] }, Open ]], -Cell[230743, 6248, 164, 4, 23, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], +Cell[230743, 6248, 164, 4, 109, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ -Cell[230932, 6256, 2075, 59, 83, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], -Cell[233010, 6317, 692, 15, 34, "Message",ExpressionUUID->"7db6caf8-603d-4fa7-bd72-3b4e5c098e6b"], -Cell[233705, 6334, 694, 15, 34, "Message",ExpressionUUID->"0be7410d-16be-4290-97e6-4a435cd336c5"], -Cell[234402, 6351, 697, 15, 34, "Message",ExpressionUUID->"f3c5f3d4-d0e5-4495-b7da-61a995a837d2"], -Cell[235102, 6368, 615, 14, 20, "Message",ExpressionUUID->"6f4809bd-2089-4388-bda3-08306751de88"], -Cell[235720, 6384, 293, 5, 38, "Output",ExpressionUUID->"a115185a-2415-494f-a578-7cb4abdf8b36"] +Cell[230932, 6256, 2075, 59, 99, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], +Cell[233010, 6317, 692, 15, 40, "Message",ExpressionUUID->"7db6caf8-603d-4fa7-bd72-3b4e5c098e6b"], +Cell[233705, 6334, 694, 15, 40, "Message",ExpressionUUID->"0be7410d-16be-4290-97e6-4a435cd336c5"], +Cell[234402, 6351, 697, 15, 40, "Message",ExpressionUUID->"f3c5f3d4-d0e5-4495-b7da-61a995a837d2"], +Cell[235102, 6368, 615, 14, 26, "Message",ExpressionUUID->"6f4809bd-2089-4388-bda3-08306751de88"], +Cell[235720, 6384, 293, 5, 33, "Output",ExpressionUUID->"a115185a-2415-494f-a578-7cb4abdf8b36"] }, Open ]], Cell[CellGroupData[{ -Cell[236050, 6394, 2077, 59, 83, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], -Cell[238130, 6455, 642, 14, 34, "Message",ExpressionUUID->"e02619c9-50c4-4524-b40f-61bcf37d6afe"], -Cell[238775, 6471, 644, 14, 34, "Message",ExpressionUUID->"b26ba89a-02c0-4164-a23d-a82474a65e86"], -Cell[239422, 6487, 647, 14, 34, "Message",ExpressionUUID->"2c7657ae-b6ce-4044-bf32-ed04068b87b8"], -Cell[240072, 6503, 568, 13, 20, "Message",ExpressionUUID->"e3c55c4d-ef28-42d3-9e28-2c6477257f0c"], -Cell[240643, 6518, 267, 5, 38, "Output",ExpressionUUID->"6e5df828-8d19-4ac9-b329-67aa79451167"] +Cell[236050, 6394, 2077, 59, 99, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], +Cell[238130, 6455, 642, 14, 40, "Message",ExpressionUUID->"e02619c9-50c4-4524-b40f-61bcf37d6afe"], +Cell[238775, 6471, 644, 14, 40, "Message",ExpressionUUID->"b26ba89a-02c0-4164-a23d-a82474a65e86"], +Cell[239422, 6487, 647, 14, 40, "Message",ExpressionUUID->"2c7657ae-b6ce-4044-bf32-ed04068b87b8"], +Cell[240072, 6503, 568, 13, 26, "Message",ExpressionUUID->"e3c55c4d-ef28-42d3-9e28-2c6477257f0c"], +Cell[240643, 6518, 267, 5, 33, "Output",ExpressionUUID->"6e5df828-8d19-4ac9-b329-67aa79451167"] }, Open ]], Cell[CellGroupData[{ -Cell[240947, 6528, 1961, 53, 61, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], -Cell[242911, 6583, 20424, 385, 197, "Output",ExpressionUUID->"ad96e8ef-a370-4562-b2ab-d65bef6c9fcf"] +Cell[240947, 6528, 1961, 53, 70, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], +Cell[242911, 6583, 20424, 385, 232, "Output",ExpressionUUID->"ad96e8ef-a370-4562-b2ab-d65bef6c9fcf"] }, Open ]], Cell[CellGroupData[{ -Cell[263372, 6973, 2117, 60, 83, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], -Cell[265492, 7035, 552, 13, 34, "Message",ExpressionUUID->"3ad43e01-ee23-4107-a832-45c4f85f76d2"], -Cell[266047, 7050, 556, 13, 34, "Message",ExpressionUUID->"7c2addad-1d59-413c-8511-162ca08ee807"], -Cell[266606, 7065, 557, 13, 34, "Message",ExpressionUUID->"cbbc48d8-6759-4141-b2bd-1855b9735a3c"], -Cell[267166, 7080, 515, 12, 20, "Message",ExpressionUUID->"b3f67f4a-8474-456a-8805-94bd8e10cd2c"], -Cell[267684, 7094, 21960, 409, 197, "Output",ExpressionUUID->"49a808fe-7cc5-491e-8439-e492d1cf8d97"] +Cell[263372, 6973, 2117, 60, 99, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], +Cell[265492, 7035, 552, 13, 40, "Message",ExpressionUUID->"3ad43e01-ee23-4107-a832-45c4f85f76d2"], +Cell[266047, 7050, 556, 13, 40, "Message",ExpressionUUID->"7c2addad-1d59-413c-8511-162ca08ee807"], +Cell[266606, 7065, 557, 13, 40, "Message",ExpressionUUID->"cbbc48d8-6759-4141-b2bd-1855b9735a3c"], +Cell[267166, 7080, 515, 12, 26, "Message",ExpressionUUID->"b3f67f4a-8474-456a-8805-94bd8e10cd2c"], +Cell[267684, 7094, 21960, 409, 232, "Output",ExpressionUUID->"49a808fe-7cc5-491e-8439-e492d1cf8d97"] }, Open ]], Cell[CellGroupData[{ -Cell[289681, 7508, 2479, 70, 57, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], -Cell[292163, 7580, 9530, 223, 191, "Output",ExpressionUUID->"c391da1b-a551-4080-af1e-0f3647b659c1"] +Cell[289681, 7508, 2479, 70, 69, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], +Cell[292163, 7580, 9530, 223, 239, "Output",ExpressionUUID->"c391da1b-a551-4080-af1e-0f3647b659c1"] }, Open ]], Cell[CellGroupData[{ -Cell[301730, 7808, 232, 5, 23, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], -Cell[301965, 7815, 28329, 540, 186, "Output",ExpressionUUID->"5b506e25-b1fd-4d0e-8fb4-ff4d298ce6d8"] +Cell[301730, 7808, 232, 5, 29, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], +Cell[301965, 7815, 28329, 540, 232, "Output",ExpressionUUID->"5b506e25-b1fd-4d0e-8fb4-ff4d298ce6d8"] }, Open ]], Cell[CellGroupData[{ -Cell[330331, 8360, 237, 7, 40, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], -Cell[330571, 8369, 221, 4, 38, "Output",ExpressionUUID->"93d1e836-7cc1-4710-88a0-ba6ab725c7cf"] +Cell[330331, 8360, 237, 7, 47, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], +Cell[330571, 8369, 221, 4, 33, "Output",ExpressionUUID->"93d1e836-7cc1-4710-88a0-ba6ab725c7cf"] }, Open ]], Cell[CellGroupData[{ -Cell[330829, 8378, 1837, 53, 83, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], -Cell[332669, 8433, 571, 13, 34, "Message",ExpressionUUID->"37634bb2-42c8-461e-ae83-c30194f6f237"], -Cell[333243, 8448, 570, 13, 34, "Message",ExpressionUUID->"47c3577a-4873-43f5-8e4f-cfeaef79f929"], -Cell[333816, 8463, 573, 13, 34, "Message",ExpressionUUID->"1711433a-0979-406b-940e-55079bd56e0f"], -Cell[334392, 8478, 519, 12, 20, "Message",ExpressionUUID->"516b1aaa-a562-46a1-b7f2-3eb0d60f6990"], -Cell[334914, 8492, 21860, 406, 188, "Output",ExpressionUUID->"441956a8-144e-4cd4-a3fb-4eec918ab3ca"] +Cell[330829, 8378, 1837, 53, 99, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], +Cell[332669, 8433, 571, 13, 40, "Message",ExpressionUUID->"37634bb2-42c8-461e-ae83-c30194f6f237"], +Cell[333243, 8448, 570, 13, 40, "Message",ExpressionUUID->"47c3577a-4873-43f5-8e4f-cfeaef79f929"], +Cell[333816, 8463, 573, 13, 40, "Message",ExpressionUUID->"1711433a-0979-406b-940e-55079bd56e0f"], +Cell[334392, 8478, 519, 12, 26, "Message",ExpressionUUID->"516b1aaa-a562-46a1-b7f2-3eb0d60f6990"], +Cell[334914, 8492, 21860, 406, 235, "Output",ExpressionUUID->"441956a8-144e-4cd4-a3fb-4eec918ab3ca"] }, Open ]], Cell[CellGroupData[{ -Cell[356811, 8903, 1616, 48, 60, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], -Cell[358430, 8953, 653, 14, 34, "Message",ExpressionUUID->"135ea8ce-f120-4aa8-8f3f-d102b128839d"], -Cell[359086, 8969, 658, 14, 34, "Message",ExpressionUUID->"976ff930-5454-42c0-bcd9-ef8f65e2684e"], -Cell[359747, 8985, 659, 14, 34, "Message",ExpressionUUID->"f03a0b4a-d5e9-42c3-b425-e803ce32a17d"], -Cell[360409, 9001, 514, 12, 20, "Message",ExpressionUUID->"036a2407-eb32-46e7-bda2-6faffb95b6d2"], -Cell[360926, 9015, 222, 4, 26, "Output",ExpressionUUID->"8280ebee-f859-4124-9606-583a6bb1eace"] +Cell[356811, 8903, 1616, 48, 71, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], +Cell[358430, 8953, 653, 14, 59, "Message",ExpressionUUID->"135ea8ce-f120-4aa8-8f3f-d102b128839d"], +Cell[359086, 8969, 658, 14, 59, "Message",ExpressionUUID->"976ff930-5454-42c0-bcd9-ef8f65e2684e"], +Cell[359747, 8985, 659, 14, 59, "Message",ExpressionUUID->"f03a0b4a-d5e9-42c3-b425-e803ce32a17d"], +Cell[360409, 9001, 514, 12, 26, "Message",ExpressionUUID->"036a2407-eb32-46e7-bda2-6faffb95b6d2"], +Cell[360926, 9015, 222, 4, 33, "Output",ExpressionUUID->"8280ebee-f859-4124-9606-583a6bb1eace"] }, Open ]], Cell[CellGroupData[{ -Cell[361185, 9024, 2272, 64, 54, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], -Cell[363460, 9090, 594, 13, 34, "Message",ExpressionUUID->"a92f221d-5234-410d-bfb3-08bee04306b8"], -Cell[364057, 9105, 599, 13, 34, "Message",ExpressionUUID->"e5d6e4c3-1d18-4242-8a76-1559d827019d"], -Cell[364659, 9120, 600, 13, 34, "Message",ExpressionUUID->"53d4374b-ca77-4069-894e-ead97439d03a"], -Cell[365262, 9135, 519, 12, 20, "Message",ExpressionUUID->"adef9b11-7ddb-4ead-b267-80f8d857763f"], -Cell[365784, 9149, 221, 4, 26, "Output",ExpressionUUID->"e9b48143-3517-49fd-98a3-83fb4143abce"] +Cell[361185, 9024, 2272, 64, 64, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], +Cell[363460, 9090, 594, 13, 40, "Message",ExpressionUUID->"a92f221d-5234-410d-bfb3-08bee04306b8"], +Cell[364057, 9105, 599, 13, 40, "Message",ExpressionUUID->"e5d6e4c3-1d18-4242-8a76-1559d827019d"], +Cell[364659, 9120, 600, 13, 40, "Message",ExpressionUUID->"53d4374b-ca77-4069-894e-ead97439d03a"], +Cell[365262, 9135, 519, 12, 26, "Message",ExpressionUUID->"adef9b11-7ddb-4ead-b267-80f8d857763f"], +Cell[365784, 9149, 221, 4, 33, "Output",ExpressionUUID->"e9b48143-3517-49fd-98a3-83fb4143abce"] }, Open ]], Cell[CellGroupData[{ -Cell[366042, 9158, 2233, 63, 54, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], -Cell[368278, 9223, 592, 13, 34, "Message",ExpressionUUID->"f09165b4-2803-440d-92db-99f331c3508b"], -Cell[368873, 9238, 596, 13, 34, "Message",ExpressionUUID->"d98fd29a-1786-454a-b465-232c787afb76"], -Cell[369472, 9253, 597, 13, 34, "Message",ExpressionUUID->"ac6a0de0-1ef2-4b0e-bbdf-be6e79ee1d5f"], -Cell[370072, 9268, 518, 12, 20, "Message",ExpressionUUID->"53f3f8e4-b1d1-4da0-86e9-47cfd30a10c3"], -Cell[370593, 9282, 220, 4, 26, "Output",ExpressionUUID->"4b6db8dd-8a1f-4269-a211-a0e76df118eb"] +Cell[366042, 9158, 2233, 63, 64, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], +Cell[368278, 9223, 592, 13, 40, "Message",ExpressionUUID->"f09165b4-2803-440d-92db-99f331c3508b"], +Cell[368873, 9238, 596, 13, 40, "Message",ExpressionUUID->"d98fd29a-1786-454a-b465-232c787afb76"], +Cell[369472, 9253, 597, 13, 40, "Message",ExpressionUUID->"ac6a0de0-1ef2-4b0e-bbdf-be6e79ee1d5f"], +Cell[370072, 9268, 518, 12, 26, "Message",ExpressionUUID->"53f3f8e4-b1d1-4da0-86e9-47cfd30a10c3"], +Cell[370593, 9282, 220, 4, 33, "Output",ExpressionUUID->"4b6db8dd-8a1f-4269-a211-a0e76df118eb"] }, Open ]], Cell[CellGroupData[{ -Cell[370850, 9291, 2235, 63, 54, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], -Cell[373088, 9356, 591, 13, 34, "Message",ExpressionUUID->"49337afd-d206-4e37-a7ee-a4ab54349c86"], -Cell[373682, 9371, 593, 13, 34, "Message",ExpressionUUID->"4c524947-ac54-4a97-a1e8-044705858848"], -Cell[374278, 9386, 598, 13, 34, "Message",ExpressionUUID->"2126c628-88dd-4a7e-bf5c-ff76059ec17f"], -Cell[374879, 9401, 515, 12, 20, "Message",ExpressionUUID->"ae6fe6fa-e5e1-423a-bb59-88acc4603231"], -Cell[375397, 9415, 216, 4, 26, "Output",ExpressionUUID->"14c2fac3-3d10-4687-8c68-d6a5978f1964"] +Cell[370850, 9291, 2235, 63, 64, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], +Cell[373088, 9356, 591, 13, 40, "Message",ExpressionUUID->"49337afd-d206-4e37-a7ee-a4ab54349c86"], +Cell[373682, 9371, 593, 13, 40, "Message",ExpressionUUID->"4c524947-ac54-4a97-a1e8-044705858848"], +Cell[374278, 9386, 598, 13, 40, "Message",ExpressionUUID->"2126c628-88dd-4a7e-bf5c-ff76059ec17f"], +Cell[374879, 9401, 515, 12, 26, "Message",ExpressionUUID->"ae6fe6fa-e5e1-423a-bb59-88acc4603231"], +Cell[375397, 9415, 216, 4, 33, "Output",ExpressionUUID->"14c2fac3-3d10-4687-8c68-d6a5978f1964"] }, Open ]], Cell[CellGroupData[{ -Cell[375650, 9424, 236, 6, 39, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], -Cell[375889, 9432, 221, 4, 38, "Output",ExpressionUUID->"8db47ff3-3fae-425a-9ccb-de0d3b44a0bc"] +Cell[375650, 9424, 236, 6, 46, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], +Cell[375889, 9432, 221, 4, 33, "Output",ExpressionUUID->"8db47ff3-3fae-425a-9ccb-de0d3b44a0bc"] }, Open ]], -Cell[376125, 9439, 273, 6, 23, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], +Cell[376125, 9439, 273, 6, 29, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ -Cell[376423, 9449, 558, 19, 43, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], -Cell[376984, 9470, 218, 4, 38, "Output",ExpressionUUID->"59104d31-2bc0-4ed1-aeb2-29363aeb69e1"] +Cell[376423, 9449, 558, 19, 51, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], +Cell[376984, 9470, 218, 4, 33, "Output",ExpressionUUID->"59104d31-2bc0-4ed1-aeb2-29363aeb69e1"] }, Open ]], Cell[CellGroupData[{ -Cell[377239, 9479, 170, 5, 47, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], -Cell[377412, 9486, 220, 4, 38, "Output",ExpressionUUID->"0a518d21-c9b1-4c0f-828d-1669bbc3b949"] +Cell[377239, 9479, 170, 5, 55, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], +Cell[377412, 9486, 220, 4, 33, "Output",ExpressionUUID->"0a518d21-c9b1-4c0f-828d-1669bbc3b949"] }, Open ]], Cell[CellGroupData[{ -Cell[377669, 9495, 181, 5, 36, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], -Cell[377853, 9502, 221, 4, 38, "Output",ExpressionUUID->"b927d1ef-7516-4d5e-b505-eae4c106b95a"] +Cell[377669, 9495, 181, 5, 43, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], +Cell[377853, 9502, 221, 4, 33, "Output",ExpressionUUID->"b927d1ef-7516-4d5e-b505-eae4c106b95a"] }, Open ]], Cell[CellGroupData[{ -Cell[378111, 9511, 6055, 185, 161, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], -Cell[384169, 9698, 220, 4, 38, "Output",ExpressionUUID->"501baae9-3ff8-4dd0-ac89-8855a6eda457"] +Cell[378111, 9511, 6055, 185, 183, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], +Cell[384169, 9698, 220, 4, 33, "Output",ExpressionUUID->"501baae9-3ff8-4dd0-ac89-8855a6eda457"] }, Open ]], Cell[CellGroupData[{ -Cell[384426, 9707, 368, 9, 33, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], -Cell[384797, 9718, 218, 4, 38, "Output",ExpressionUUID->"ab5d7f40-c40b-41a3-abea-48e825c38038"] +Cell[384426, 9707, 368, 9, 41, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], +Cell[384797, 9718, 218, 4, 33, "Output",ExpressionUUID->"ab5d7f40-c40b-41a3-abea-48e825c38038"] }, Open ]], Cell[CellGroupData[{ -Cell[385052, 9727, 6122, 187, 161, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], -Cell[391177, 9916, 222, 4, 38, "Output",ExpressionUUID->"94994ab9-aa21-43ea-b5f2-3d96ba32743b"] +Cell[385052, 9727, 6122, 187, 183, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], +Cell[391177, 9916, 222, 4, 33, "Output",ExpressionUUID->"94994ab9-aa21-43ea-b5f2-3d96ba32743b"] }, Open ]], Cell[CellGroupData[{ -Cell[391436, 9925, 368, 9, 33, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], -Cell[391807, 9936, 217, 4, 38, "Output",ExpressionUUID->"85658680-64d9-4a60-bdda-76d960ded228"] +Cell[391436, 9925, 368, 9, 41, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], +Cell[391807, 9936, 217, 4, 33, "Output",ExpressionUUID->"85658680-64d9-4a60-bdda-76d960ded228"] }, Open ]], Cell[CellGroupData[{ -Cell[392061, 9945, 2663, 88, 95, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], -Cell[394727, 10035, 221, 4, 38, "Output",ExpressionUUID->"2d51783c-afdf-4213-9211-2c474efddaa8"] +Cell[392061, 9945, 2663, 88, 107, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], +Cell[394727, 10035, 221, 4, 33, "Output",ExpressionUUID->"2d51783c-afdf-4213-9211-2c474efddaa8"] }, Open ]], Cell[CellGroupData[{ -Cell[394985, 10044, 2603, 85, 95, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], -Cell[397591, 10131, 220, 4, 38, "Output",ExpressionUUID->"188a0ad5-35b2-41a6-94ee-ccbce6057b68"] +Cell[394985, 10044, 2603, 85, 107, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], +Cell[397591, 10131, 220, 4, 33, "Output",ExpressionUUID->"188a0ad5-35b2-41a6-94ee-ccbce6057b68"] }, Open ]], Cell[CellGroupData[{ -Cell[397848, 10140, 3712, 118, 142, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], -Cell[401563, 10260, 221, 4, 38, "Output",ExpressionUUID->"0ca39747-8a96-471e-bf8d-15452f283026"] +Cell[397848, 10140, 3712, 118, 160, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], +Cell[401563, 10260, 221, 4, 33, "Output",ExpressionUUID->"0ca39747-8a96-471e-bf8d-15452f283026"] }, Open ]], Cell[CellGroupData[{ -Cell[401821, 10269, 2075, 59, 83, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], -Cell[403899, 10330, 600, 13, 34, "Message",ExpressionUUID->"bc111cd5-5fd8-4507-b188-207226a9e4f9"], -Cell[404502, 10345, 604, 13, 34, "Message",ExpressionUUID->"7f5c8d8d-cc14-4316-ab12-beb94b77f023"], -Cell[405109, 10360, 612, 14, 34, "Message",ExpressionUUID->"9e8931b1-3e05-4de1-b53a-3ffd33cd1401"], -Cell[405724, 10376, 517, 12, 20, "Message",ExpressionUUID->"53ad88bc-43a6-40cf-a6da-73bf26f261ac"], -Cell[406244, 10390, 220, 4, 26, "Output",ExpressionUUID->"d4c879ec-e026-4f7d-bbd3-aba13436762a"] +Cell[401821, 10269, 2075, 59, 99, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], +Cell[403899, 10330, 600, 13, 40, "Message",ExpressionUUID->"bc111cd5-5fd8-4507-b188-207226a9e4f9"], +Cell[404502, 10345, 604, 13, 40, "Message",ExpressionUUID->"7f5c8d8d-cc14-4316-ab12-beb94b77f023"], +Cell[405109, 10360, 612, 14, 40, "Message",ExpressionUUID->"9e8931b1-3e05-4de1-b53a-3ffd33cd1401"], +Cell[405724, 10376, 517, 12, 26, "Message",ExpressionUUID->"53ad88bc-43a6-40cf-a6da-73bf26f261ac"], +Cell[406244, 10390, 220, 4, 33, "Output",ExpressionUUID->"d4c879ec-e026-4f7d-bbd3-aba13436762a"] }, Open ]], Cell[CellGroupData[{ -Cell[406501, 10399, 2077, 59, 83, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], -Cell[408581, 10460, 602, 13, 34, "Message",ExpressionUUID->"557b3f01-2a39-4087-89ae-7c46da5b7253"], -Cell[409186, 10475, 604, 13, 34, "Message",ExpressionUUID->"d412ad5a-69e7-4523-aeb8-28e3d00fbd49"], -Cell[409793, 10490, 612, 14, 34, "Message",ExpressionUUID->"4f342b01-74fe-4d07-a0b8-d22388e5d012"], -Cell[410408, 10506, 519, 12, 20, "Message",ExpressionUUID->"1b4ec0e4-fada-416a-85eb-c6d39373919b"], -Cell[410930, 10520, 219, 4, 26, "Output",ExpressionUUID->"4e9b4665-55b6-41d6-bd23-a464e304e474"] +Cell[406501, 10399, 2077, 59, 99, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], +Cell[408581, 10460, 602, 13, 40, "Message",ExpressionUUID->"557b3f01-2a39-4087-89ae-7c46da5b7253"], +Cell[409186, 10475, 604, 13, 40, "Message",ExpressionUUID->"d412ad5a-69e7-4523-aeb8-28e3d00fbd49"], +Cell[409793, 10490, 612, 14, 40, "Message",ExpressionUUID->"4f342b01-74fe-4d07-a0b8-d22388e5d012"], +Cell[410408, 10506, 519, 12, 26, "Message",ExpressionUUID->"1b4ec0e4-fada-416a-85eb-c6d39373919b"], +Cell[410930, 10520, 219, 4, 33, "Output",ExpressionUUID->"4e9b4665-55b6-41d6-bd23-a464e304e474"] }, Open ]], Cell[CellGroupData[{ -Cell[411186, 10529, 2053, 55, 45, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], -Cell[413242, 10586, 20519, 387, 186, "Output",ExpressionUUID->"41a9957a-7c82-4d93-94f2-a6b1a99866d2"] +Cell[411186, 10529, 2053, 55, 53, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], +Cell[413242, 10586, 20519, 387, 232, "Output",ExpressionUUID->"41a9957a-7c82-4d93-94f2-a6b1a99866d2"] }, Open ]], Cell[CellGroupData[{ -Cell[433798, 10978, 2141, 60, 83, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], -Cell[435942, 11040, 557, 13, 34, "Message",ExpressionUUID->"0ef15e2f-9fc1-4093-a615-184315c7a3f9"], -Cell[436502, 11055, 557, 13, 34, "Message",ExpressionUUID->"063254a0-c64d-4cf3-afbe-538c1403f093"], -Cell[437062, 11070, 559, 13, 34, "Message",ExpressionUUID->"ecf85bb7-1ee4-4d4f-854e-e4d2445c1d0b"], -Cell[437624, 11085, 514, 12, 20, "Message",ExpressionUUID->"e3ab4f74-fa87-426c-aa19-a58466c8d733"], -Cell[438141, 11099, 22408, 415, 186, "Output",ExpressionUUID->"3fa73378-f3e5-45ca-a0f7-12cf19f86f32"] +Cell[433798, 10978, 2141, 60, 99, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], +Cell[435942, 11040, 557, 13, 40, "Message",ExpressionUUID->"0ef15e2f-9fc1-4093-a615-184315c7a3f9"], +Cell[436502, 11055, 557, 13, 40, "Message",ExpressionUUID->"063254a0-c64d-4cf3-afbe-538c1403f093"], +Cell[437062, 11070, 559, 13, 40, "Message",ExpressionUUID->"ecf85bb7-1ee4-4d4f-854e-e4d2445c1d0b"], +Cell[437624, 11085, 514, 12, 26, "Message",ExpressionUUID->"e3ab4f74-fa87-426c-aa19-a58466c8d733"], +Cell[438141, 11099, 22408, 415, 232, "Output",ExpressionUUID->"3fa73378-f3e5-45ca-a0f7-12cf19f86f32"] }, Open ]], -Cell[460564, 11517, 200, 4, 23, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], +Cell[460564, 11517, 200, 4, 29, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], Cell[CellGroupData[{ -Cell[460789, 11525, 232, 5, 23, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], -Cell[461024, 11532, 28783, 546, 186, "Output",ExpressionUUID->"42044614-f7f6-45ab-bd4c-cc32c3a7e481"] +Cell[460789, 11525, 232, 5, 29, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], +Cell[461024, 11532, 28783, 546, 232, "Output",ExpressionUUID->"42044614-f7f6-45ab-bd4c-cc32c3a7e481"] }, Open ]], Cell[CellGroupData[{ -Cell[489844, 12083, 1616, 48, 60, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], -Cell[491463, 12133, 664, 14, 34, "Message",ExpressionUUID->"32aa89b4-3db6-4ffc-b582-e74ee5524db1"], -Cell[492130, 12149, 667, 14, 34, "Message",ExpressionUUID->"07cc474b-2120-48de-ad7e-cff2c81bf674"], -Cell[492800, 12165, 670, 14, 34, "Message",ExpressionUUID->"8aa089c4-56ae-43ef-a7ae-8e5e93812027"], -Cell[493473, 12181, 516, 12, 20, "Message",ExpressionUUID->"22b991f2-d702-4717-9625-8f1ad738fe51"], -Cell[493992, 12195, 219, 4, 26, "Output",ExpressionUUID->"a93e7be2-9fdf-495e-a50d-6b6120d5e257"] +Cell[489844, 12083, 1616, 48, 71, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], +Cell[491463, 12133, 664, 14, 59, "Message",ExpressionUUID->"32aa89b4-3db6-4ffc-b582-e74ee5524db1"], +Cell[492130, 12149, 667, 14, 59, "Message",ExpressionUUID->"07cc474b-2120-48de-ad7e-cff2c81bf674"], +Cell[492800, 12165, 670, 14, 59, "Message",ExpressionUUID->"8aa089c4-56ae-43ef-a7ae-8e5e93812027"], +Cell[493473, 12181, 516, 12, 26, "Message",ExpressionUUID->"22b991f2-d702-4717-9625-8f1ad738fe51"], +Cell[493992, 12195, 219, 4, 33, "Output",ExpressionUUID->"a93e7be2-9fdf-495e-a50d-6b6120d5e257"] }, Open ]], Cell[CellGroupData[{ -Cell[494248, 12204, 2270, 64, 54, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], -Cell[496521, 12270, 602, 13, 34, "Message",ExpressionUUID->"4e05632b-f6e7-4e5f-a7d7-0c1f7eeb7c33"], -Cell[497126, 12285, 606, 13, 34, "Message",ExpressionUUID->"2cb142ab-76ef-4861-a6cf-8b2fdc980f52"], -Cell[497735, 12300, 612, 14, 34, "Message",ExpressionUUID->"55a231d1-7086-413c-899d-ea00776be94f"], -Cell[498350, 12316, 519, 12, 20, "Message",ExpressionUUID->"81f72747-8601-4ecc-9173-c199adb51395"], -Cell[498872, 12330, 221, 4, 26, "Output",ExpressionUUID->"f2d1f356-e853-40e9-bf20-22501833ddbc"] +Cell[494248, 12204, 2270, 64, 64, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], +Cell[496521, 12270, 602, 13, 40, "Message",ExpressionUUID->"4e05632b-f6e7-4e5f-a7d7-0c1f7eeb7c33"], +Cell[497126, 12285, 606, 13, 40, "Message",ExpressionUUID->"2cb142ab-76ef-4861-a6cf-8b2fdc980f52"], +Cell[497735, 12300, 612, 14, 40, "Message",ExpressionUUID->"55a231d1-7086-413c-899d-ea00776be94f"], +Cell[498350, 12316, 519, 12, 26, "Message",ExpressionUUID->"81f72747-8601-4ecc-9173-c199adb51395"], +Cell[498872, 12330, 221, 4, 33, "Output",ExpressionUUID->"f2d1f356-e853-40e9-bf20-22501833ddbc"] }, Open ]], Cell[CellGroupData[{ -Cell[499130, 12339, 2233, 63, 54, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], -Cell[501366, 12404, 598, 13, 34, "Message",ExpressionUUID->"04b6533d-ca5a-4045-ac29-267b9286b928"], -Cell[501967, 12419, 602, 13, 34, "Message",ExpressionUUID->"70e42bbf-7ef9-4ac4-a1d7-f94a2bdd33c4"], -Cell[502572, 12434, 610, 14, 34, "Message",ExpressionUUID->"5c90723f-4071-4af6-9181-15c425b12d88"], -Cell[503185, 12450, 515, 12, 20, "Message",ExpressionUUID->"0dec2a71-e4cd-4e4a-8a6e-ae91ed933c7f"], -Cell[503703, 12464, 219, 4, 26, "Output",ExpressionUUID->"48020119-d6ca-4886-8195-e68be3d20f4d"] +Cell[499130, 12339, 2233, 63, 64, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], +Cell[501366, 12404, 598, 13, 40, "Message",ExpressionUUID->"04b6533d-ca5a-4045-ac29-267b9286b928"], +Cell[501967, 12419, 602, 13, 40, "Message",ExpressionUUID->"70e42bbf-7ef9-4ac4-a1d7-f94a2bdd33c4"], +Cell[502572, 12434, 610, 14, 40, "Message",ExpressionUUID->"5c90723f-4071-4af6-9181-15c425b12d88"], +Cell[503185, 12450, 515, 12, 26, "Message",ExpressionUUID->"0dec2a71-e4cd-4e4a-8a6e-ae91ed933c7f"], +Cell[503703, 12464, 219, 4, 33, "Output",ExpressionUUID->"48020119-d6ca-4886-8195-e68be3d20f4d"] }, Open ]], Cell[CellGroupData[{ -Cell[503959, 12473, 2233, 63, 54, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], -Cell[506195, 12538, 600, 13, 34, "Message",ExpressionUUID->"b79c892f-6849-42fe-968f-76ab8d8f0e05"], -Cell[506798, 12553, 606, 13, 34, "Message",ExpressionUUID->"54087548-32ca-4f45-921f-f81e6260ee68"], -Cell[507407, 12568, 612, 14, 34, "Message",ExpressionUUID->"2e14c20d-bf46-4b14-b595-7b7c322f9a4c"], -Cell[508022, 12584, 519, 12, 20, "Message",ExpressionUUID->"0176345c-efe8-457b-9853-3de244cc0c33"], -Cell[508544, 12598, 217, 4, 26, "Output",ExpressionUUID->"e2a295a0-19ee-4f53-aea5-ff537ae4b5e3"] +Cell[503959, 12473, 2233, 63, 64, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], +Cell[506195, 12538, 600, 13, 40, "Message",ExpressionUUID->"b79c892f-6849-42fe-968f-76ab8d8f0e05"], +Cell[506798, 12553, 606, 13, 40, "Message",ExpressionUUID->"54087548-32ca-4f45-921f-f81e6260ee68"], +Cell[507407, 12568, 612, 14, 40, "Message",ExpressionUUID->"2e14c20d-bf46-4b14-b595-7b7c322f9a4c"], +Cell[508022, 12584, 519, 12, 26, "Message",ExpressionUUID->"0176345c-efe8-457b-9853-3de244cc0c33"], +Cell[508544, 12598, 217, 4, 33, "Output",ExpressionUUID->"e2a295a0-19ee-4f53-aea5-ff537ae4b5e3"] }, Open ]], Cell[CellGroupData[{ -Cell[508798, 12607, 236, 6, 39, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], -Cell[509037, 12615, 220, 4, 38, "Output",ExpressionUUID->"1a052e0e-1eff-4b73-9436-4248b2d66f1e"] +Cell[508798, 12607, 236, 6, 46, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], +Cell[509037, 12615, 220, 4, 33, "Output",ExpressionUUID->"1a052e0e-1eff-4b73-9436-4248b2d66f1e"] }, Open ]], -Cell[509272, 12622, 271, 6, 23, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], +Cell[509272, 12622, 271, 6, 29, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ -Cell[509568, 12632, 558, 19, 43, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], -Cell[510129, 12653, 220, 4, 38, "Output",ExpressionUUID->"fdc1488b-4862-4014-a9b0-2dbfd83a3646"] +Cell[509568, 12632, 558, 19, 51, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], +Cell[510129, 12653, 220, 4, 33, "Output",ExpressionUUID->"fdc1488b-4862-4014-a9b0-2dbfd83a3646"] }, Open ]], Cell[CellGroupData[{ -Cell[510386, 12662, 170, 5, 47, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], -Cell[510559, 12669, 218, 4, 38, "Output",ExpressionUUID->"786e2a27-4966-4790-98e8-5ecac59d9982"] +Cell[510386, 12662, 170, 5, 55, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], +Cell[510559, 12669, 218, 4, 33, "Output",ExpressionUUID->"786e2a27-4966-4790-98e8-5ecac59d9982"] }, Open ]], Cell[CellGroupData[{ -Cell[510814, 12678, 181, 5, 36, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], -Cell[510998, 12685, 222, 4, 38, "Output",ExpressionUUID->"bb8a3557-f77f-4b15-9ea0-fb7ff8c8d1af"] +Cell[510814, 12678, 181, 5, 43, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], +Cell[510998, 12685, 222, 4, 33, "Output",ExpressionUUID->"bb8a3557-f77f-4b15-9ea0-fb7ff8c8d1af"] }, Open ]], Cell[CellGroupData[{ -Cell[511257, 12694, 6055, 185, 161, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], -Cell[517315, 12881, 226, 4, 38, "Output",ExpressionUUID->"4b7fe0ae-c8e5-497a-921e-23c5d24c4aa3"] +Cell[511257, 12694, 6055, 185, 183, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], +Cell[517315, 12881, 226, 4, 33, "Output",ExpressionUUID->"4b7fe0ae-c8e5-497a-921e-23c5d24c4aa3"] }, Open ]], Cell[CellGroupData[{ -Cell[517578, 12890, 368, 9, 33, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], -Cell[517949, 12901, 220, 4, 38, "Output",ExpressionUUID->"844cf85f-0d4f-444b-99cb-fd41d12eeda4"] +Cell[517578, 12890, 368, 9, 41, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], +Cell[517949, 12901, 220, 4, 33, "Output",ExpressionUUID->"844cf85f-0d4f-444b-99cb-fd41d12eeda4"] }, Open ]], Cell[CellGroupData[{ -Cell[518206, 12910, 6122, 187, 161, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], -Cell[524331, 13099, 223, 4, 38, "Output",ExpressionUUID->"6121ec03-5cd8-4342-af99-7cae1ac642ba"] +Cell[518206, 12910, 6122, 187, 183, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], +Cell[524331, 13099, 223, 4, 33, "Output",ExpressionUUID->"6121ec03-5cd8-4342-af99-7cae1ac642ba"] }, Open ]], Cell[CellGroupData[{ -Cell[524591, 13108, 368, 9, 33, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], -Cell[524962, 13119, 219, 4, 38, "Output",ExpressionUUID->"fb0d77e1-2c3d-4556-b2b8-6732b0f6faed"] +Cell[524591, 13108, 368, 9, 41, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], +Cell[524962, 13119, 219, 4, 33, "Output",ExpressionUUID->"fb0d77e1-2c3d-4556-b2b8-6732b0f6faed"] }, Open ]], Cell[CellGroupData[{ -Cell[525218, 13128, 2663, 88, 95, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], -Cell[527884, 13218, 221, 4, 38, "Output",ExpressionUUID->"cc6506e9-1013-4e66-8195-69c8244462d8"] +Cell[525218, 13128, 2663, 88, 107, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], +Cell[527884, 13218, 221, 4, 33, "Output",ExpressionUUID->"cc6506e9-1013-4e66-8195-69c8244462d8"] }, Open ]], Cell[CellGroupData[{ -Cell[528142, 13227, 2603, 85, 95, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], -Cell[530748, 13314, 219, 4, 38, "Output",ExpressionUUID->"4b266010-df55-4b9d-9597-9b35afca2dc7"] +Cell[528142, 13227, 2603, 85, 107, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], +Cell[530748, 13314, 219, 4, 33, "Output",ExpressionUUID->"4b266010-df55-4b9d-9597-9b35afca2dc7"] }, Open ]], Cell[CellGroupData[{ -Cell[531004, 13323, 3712, 118, 142, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], -Cell[534719, 13443, 219, 4, 38, "Output",ExpressionUUID->"706fd30e-af9f-4537-8fa5-e10481af0f63"] +Cell[531004, 13323, 3712, 118, 160, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], +Cell[534719, 13443, 219, 4, 33, "Output",ExpressionUUID->"706fd30e-af9f-4537-8fa5-e10481af0f63"] }, Open ]], Cell[CellGroupData[{ -Cell[534975, 13452, 2075, 59, 83, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], -Cell[537053, 13513, 589, 13, 34, "Message",ExpressionUUID->"8ab7f02a-146b-4f39-88d2-f3bcd3ac1755"], -Cell[537645, 13528, 595, 13, 34, "Message",ExpressionUUID->"87dd7c66-9ce9-4388-bf1f-1b9553b297ca"], -Cell[538243, 13543, 598, 13, 34, "Message",ExpressionUUID->"f960c8ff-ff8a-4394-97dc-c4338cddc6c5"], -Cell[538844, 13558, 517, 12, 20, "Message",ExpressionUUID->"48ee5bb9-8cb1-4cad-9919-2ccd954c8720"], -Cell[539364, 13572, 220, 4, 26, "Output",ExpressionUUID->"df139cf8-6c2b-41c0-8fca-b24ea3666d21"] +Cell[534975, 13452, 2075, 59, 99, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], +Cell[537053, 13513, 589, 13, 40, "Message",ExpressionUUID->"8ab7f02a-146b-4f39-88d2-f3bcd3ac1755"], +Cell[537645, 13528, 595, 13, 40, "Message",ExpressionUUID->"87dd7c66-9ce9-4388-bf1f-1b9553b297ca"], +Cell[538243, 13543, 598, 13, 40, "Message",ExpressionUUID->"f960c8ff-ff8a-4394-97dc-c4338cddc6c5"], +Cell[538844, 13558, 517, 12, 26, "Message",ExpressionUUID->"48ee5bb9-8cb1-4cad-9919-2ccd954c8720"], +Cell[539364, 13572, 220, 4, 33, "Output",ExpressionUUID->"df139cf8-6c2b-41c0-8fca-b24ea3666d21"] }, Open ]], Cell[CellGroupData[{ -Cell[539621, 13581, 2077, 59, 83, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], -Cell[541701, 13642, 591, 13, 34, "Message",ExpressionUUID->"45204b2d-dcf5-4783-9d88-634ac15bfe4a"], -Cell[542295, 13657, 595, 13, 34, "Message",ExpressionUUID->"3cd5935f-5020-4895-89a4-4edbcd033bcd"], -Cell[542893, 13672, 600, 13, 34, "Message",ExpressionUUID->"930ad625-a227-4fb2-94a9-d5ca28c459f4"], -Cell[543496, 13687, 519, 12, 20, "Message",ExpressionUUID->"a9e9a4d0-61a8-4633-ad6a-f774adb44867"], -Cell[544018, 13701, 171, 3, 26, "Output",ExpressionUUID->"2ef48bfb-7593-4459-a2e3-5ee63bbc1568"] +Cell[539621, 13581, 2077, 59, 99, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], +Cell[541701, 13642, 591, 13, 40, "Message",ExpressionUUID->"45204b2d-dcf5-4783-9d88-634ac15bfe4a"], +Cell[542295, 13657, 595, 13, 40, "Message",ExpressionUUID->"3cd5935f-5020-4895-89a4-4edbcd033bcd"], +Cell[542893, 13672, 600, 13, 40, "Message",ExpressionUUID->"930ad625-a227-4fb2-94a9-d5ca28c459f4"], +Cell[543496, 13687, 519, 12, 26, "Message",ExpressionUUID->"a9e9a4d0-61a8-4633-ad6a-f774adb44867"], +Cell[544018, 13701, 171, 3, 33, "Output",ExpressionUUID->"2ef48bfb-7593-4459-a2e3-5ee63bbc1568"] }, Open ]], Cell[CellGroupData[{ -Cell[544226, 13709, 2053, 55, 45, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], -Cell[546282, 13766, 20246, 382, 186, "Output",ExpressionUUID->"c79f0671-ba93-466b-ae0a-f3a5242ab6c2"] +Cell[544226, 13709, 2053, 55, 53, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], +Cell[546282, 13766, 20246, 382, 232, "Output",ExpressionUUID->"c79f0671-ba93-466b-ae0a-f3a5242ab6c2"] }, Open ]], Cell[CellGroupData[{ -Cell[566565, 14153, 2141, 60, 83, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], -Cell[568709, 14215, 526, 12, 34, "Message",ExpressionUUID->"9cf51190-ce7d-4baa-abaa-74e307a7f05e"], -Cell[569238, 14229, 529, 12, 34, "Message",ExpressionUUID->"43e9eb0f-a6b0-4b47-ac07-a433dce9d49f"], -Cell[569770, 14243, 488, 11, 20, "Message",ExpressionUUID->"80f50f78-4ca3-42b4-b33e-aa38cce9eb00"], -Cell[570261, 14256, 492, 11, 20, "Message",ExpressionUUID->"89b0a6f6-f52f-4f36-9a51-70270bf30bcd"], -Cell[570756, 14269, 21993, 408, 186, "Output",ExpressionUUID->"14d04d0a-f726-4e82-97d5-fe7167decbbf"] +Cell[566565, 14153, 2141, 60, 99, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], +Cell[568709, 14215, 526, 12, 40, "Message",ExpressionUUID->"9cf51190-ce7d-4baa-abaa-74e307a7f05e"], +Cell[569238, 14229, 529, 12, 40, "Message",ExpressionUUID->"43e9eb0f-a6b0-4b47-ac07-a433dce9d49f"], +Cell[569770, 14243, 488, 11, 26, "Message",ExpressionUUID->"80f50f78-4ca3-42b4-b33e-aa38cce9eb00"], +Cell[570261, 14256, 492, 11, 26, "Message",ExpressionUUID->"89b0a6f6-f52f-4f36-9a51-70270bf30bcd"], +Cell[570756, 14269, 21993, 408, 232, "Output",ExpressionUUID->"14d04d0a-f726-4e82-97d5-fe7167decbbf"] }, Open ]], -Cell[592764, 14680, 207, 4, 23, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], +Cell[592764, 14680, 207, 4, 29, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], Cell[CellGroupData[{ -Cell[592996, 14688, 230, 5, 23, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], -Cell[593229, 14695, 28367, 540, 186, "Output",ExpressionUUID->"d49d95b6-1bd5-472b-915e-01cbd2a2587c"] +Cell[592996, 14688, 230, 5, 29, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], +Cell[593229, 14695, 28367, 540, 232, "Output",ExpressionUUID->"d49d95b6-1bd5-472b-915e-01cbd2a2587c"] }, Open ]], Cell[CellGroupData[{ -Cell[621633, 15240, 1616, 48, 60, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], -Cell[623252, 15290, 636, 13, 34, "Message",ExpressionUUID->"b2cd1bd0-2f96-4723-9335-dd235a6d6316"], -Cell[623891, 15305, 639, 13, 34, "Message",ExpressionUUID->"63719031-7e3e-41de-877b-14afc0984b10"], -Cell[624533, 15320, 644, 13, 34, "Message",ExpressionUUID->"58ad6f23-62fd-428a-af53-27f4d8163dc5"], -Cell[625180, 15335, 491, 11, 20, "Message",ExpressionUUID->"43396911-f2ea-44c6-93a3-5b007f1db5f2"], -Cell[625674, 15348, 194, 3, 26, "Output",ExpressionUUID->"72a3047d-52f5-4157-954f-c48b84aaaee4"] +Cell[621633, 15240, 1616, 48, 71, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], +Cell[623252, 15290, 636, 13, 59, "Message",ExpressionUUID->"b2cd1bd0-2f96-4723-9335-dd235a6d6316"], +Cell[623891, 15305, 639, 13, 59, "Message",ExpressionUUID->"63719031-7e3e-41de-877b-14afc0984b10"], +Cell[624533, 15320, 644, 13, 59, "Message",ExpressionUUID->"58ad6f23-62fd-428a-af53-27f4d8163dc5"], +Cell[625180, 15335, 491, 11, 26, "Message",ExpressionUUID->"43396911-f2ea-44c6-93a3-5b007f1db5f2"], +Cell[625674, 15348, 194, 3, 33, "Output",ExpressionUUID->"72a3047d-52f5-4157-954f-c48b84aaaee4"] }, Open ]], Cell[CellGroupData[{ -Cell[625905, 15356, 2269, 64, 54, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], -Cell[628177, 15422, 562, 12, 34, "Message",ExpressionUUID->"ed9262be-7213-4675-904e-372d303934e7"], -Cell[628742, 15436, 566, 12, 34, "Message",ExpressionUUID->"3a496218-9d40-4854-94d9-d6953e5d82cc"], -Cell[629311, 15450, 569, 12, 34, "Message",ExpressionUUID->"638eb3d7-9e19-48a4-8822-22f3c2de69e0"], -Cell[629883, 15464, 490, 11, 20, "Message",ExpressionUUID->"2f16c49b-fd69-460c-b357-18d7709ab79e"], -Cell[630376, 15477, 194, 3, 26, "Output",ExpressionUUID->"8f2c2776-41ae-4e69-b2d8-fa02ec913d51"] +Cell[625905, 15356, 2269, 64, 64, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], +Cell[628177, 15422, 562, 12, 40, "Message",ExpressionUUID->"ed9262be-7213-4675-904e-372d303934e7"], +Cell[628742, 15436, 566, 12, 40, "Message",ExpressionUUID->"3a496218-9d40-4854-94d9-d6953e5d82cc"], +Cell[629311, 15450, 569, 12, 40, "Message",ExpressionUUID->"638eb3d7-9e19-48a4-8822-22f3c2de69e0"], +Cell[629883, 15464, 490, 11, 26, "Message",ExpressionUUID->"2f16c49b-fd69-460c-b357-18d7709ab79e"], +Cell[630376, 15477, 194, 3, 33, "Output",ExpressionUUID->"8f2c2776-41ae-4e69-b2d8-fa02ec913d51"] }, Open ]], Cell[CellGroupData[{ -Cell[630607, 15485, 2233, 63, 54, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], -Cell[632843, 15550, 564, 12, 34, "Message",ExpressionUUID->"0b81ecd0-66cf-4cd9-98b8-0b9de93a884a"], -Cell[633410, 15564, 568, 12, 34, "Message",ExpressionUUID->"7ce6452c-03ca-4d09-9ebc-23f4be8d9e93"], -Cell[633981, 15578, 573, 12, 34, "Message",ExpressionUUID->"79ad7bf9-9a1d-44d8-bc8e-ecf1ddbf4cfd"], -Cell[634557, 15592, 492, 11, 20, "Message",ExpressionUUID->"bd8c0e1a-00c3-435c-b50c-f98095149cdd"], -Cell[635052, 15605, 196, 3, 26, "Output",ExpressionUUID->"21a4831c-ca6c-40bc-8d97-5bddd93eb456"] +Cell[630607, 15485, 2233, 63, 64, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], +Cell[632843, 15550, 564, 12, 40, "Message",ExpressionUUID->"0b81ecd0-66cf-4cd9-98b8-0b9de93a884a"], +Cell[633410, 15564, 568, 12, 40, "Message",ExpressionUUID->"7ce6452c-03ca-4d09-9ebc-23f4be8d9e93"], +Cell[633981, 15578, 573, 12, 40, "Message",ExpressionUUID->"79ad7bf9-9a1d-44d8-bc8e-ecf1ddbf4cfd"], +Cell[634557, 15592, 492, 11, 26, "Message",ExpressionUUID->"bd8c0e1a-00c3-435c-b50c-f98095149cdd"], +Cell[635052, 15605, 196, 3, 33, "Output",ExpressionUUID->"21a4831c-ca6c-40bc-8d97-5bddd93eb456"] }, Open ]], Cell[CellGroupData[{ -Cell[635285, 15613, 2235, 63, 54, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], -Cell[637523, 15678, 562, 12, 34, "Message",ExpressionUUID->"52398569-3900-461e-ae22-e2560ae17668"], -Cell[638088, 15692, 568, 12, 34, "Message",ExpressionUUID->"d80eaf48-cf25-47ea-a824-2e70c5fc528d"], -Cell[638659, 15706, 569, 12, 34, "Message",ExpressionUUID->"571d8e6d-b8e2-4a4c-8347-0a87e9cb3684"], -Cell[639231, 15720, 490, 11, 20, "Message",ExpressionUUID->"1df51b95-0ec6-4808-a700-0d3df1ae394b"], -Cell[639724, 15733, 196, 3, 26, "Output",ExpressionUUID->"de1a5bbd-c6f2-4107-99da-852b56efe704"] +Cell[635285, 15613, 2235, 63, 64, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], +Cell[637523, 15678, 562, 12, 40, "Message",ExpressionUUID->"52398569-3900-461e-ae22-e2560ae17668"], +Cell[638088, 15692, 568, 12, 40, "Message",ExpressionUUID->"d80eaf48-cf25-47ea-a824-2e70c5fc528d"], +Cell[638659, 15706, 569, 12, 40, "Message",ExpressionUUID->"571d8e6d-b8e2-4a4c-8347-0a87e9cb3684"], +Cell[639231, 15720, 490, 11, 26, "Message",ExpressionUUID->"1df51b95-0ec6-4808-a700-0d3df1ae394b"], +Cell[639724, 15733, 196, 3, 33, "Output",ExpressionUUID->"de1a5bbd-c6f2-4107-99da-852b56efe704"] }, Open ]], Cell[CellGroupData[{ -Cell[639957, 15741, 234, 6, 39, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], -Cell[640194, 15749, 198, 3, 38, "Output",ExpressionUUID->"9dd22fc7-55ad-4787-bbcd-b666325dadb2"] +Cell[639957, 15741, 234, 6, 46, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], +Cell[640194, 15749, 198, 3, 33, "Output",ExpressionUUID->"9dd22fc7-55ad-4787-bbcd-b666325dadb2"] }, Open ]], -Cell[640407, 15755, 210, 4, 23, "Input",ExpressionUUID->"5222ef37-9b05-4daa-a7c2-20929e853801"] +Cell[640407, 15755, 210, 4, 29, "Input",ExpressionUUID->"5222ef37-9b05-4daa-a7c2-20929e853801"], +Cell[CellGroupData[{ +Cell[640642, 15763, 4091, 88, 220, "Input",ExpressionUUID->"e9bef9ed-047f-4caa-8611-82644576b373"], +Cell[644736, 15853, 1977, 42, 66, "Output",ExpressionUUID->"f4bac517-d1e4-4c68-ae64-3a035e027e1b"], +Cell[646716, 15897, 1650, 47, 523, "Output",ExpressionUUID->"85a96fbf-af40-43e9-99bb-e4b766cbde3e"] +}, Open ]] } ] *) +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_osc_Qw1.nb b/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_osc_Qw1.nb index a2c0e11..3583290 100644 --- a/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_osc_Qw1.nb +++ b/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_osc_Qw1.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 677241, 16451] -NotebookOptionsPosition[ 634523, 15767] -NotebookOutlinePosition[ 634963, 15785] -CellTagsIndexPosition[ 634920, 15782] +NotebookDataLength[ 685291, 16642] +NotebookOptionsPosition[ 642284, 15953] +NotebookOutlinePosition[ 642725, 15971] +CellTagsIndexPosition[ 642682, 15968] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -15763,12 +15763,198 @@ Cell[BoxData[ RowBox[{"NotebookSave", "[", "]"}]], "Input", CellChangeTimes->{{3.993958925987282*^9, 3.993958928029352*^9}}, CellLabel-> - "In[261]:=",ExpressionUUID->"4a107597-f742-49a1-8511-f72cb122299c"] + "In[261]:=",ExpressionUUID->"4a107597-f742-49a1-8511-f72cb122299c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"CellPrint", "[", + RowBox[{"ExpressionCell", "[", + RowBox[{ + RowBox[{"Panel", "[", + RowBox[{ + RowBox[{"Row", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"Style", "[", + + RowBox[{"\"\<\:0423\:043f\:0440\:0430\:0432\:043b\:0435\:043d\:0438\ +\:0435 \:043a\:044d\:0448\:0435\:043c \:0433\:0440\:0430\:0444\:0438\:043a\ +\:0430: \>\"", ",", "Bold"}], "]"}], ",", + RowBox[{"Button", "[", + + RowBox[{"\"\<\:0421\:0434\:0435\:043b\:0430\:0442\:044c \:0442\ +\:0430\:0431\:043b\:0438\:0446\:0443 (\:041b\:0438\:043d\:0438\:044f 1)\>\"", + ",", + RowBox[{"Module", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"cell", ",", "pts"}], "}"}], ",", + RowBox[{ + RowBox[{"cell", "=", + RowBox[{"NotebookRead", "[", + RowBox[{"EvaluationNotebook", "[", "]"}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"pts", "=", + RowBox[{"Cases", "[", + RowBox[{"cell", ",", + RowBox[{ + RowBox[{"Line", "[", "p_", "]"}], ":>", "p"}], ",", + "Infinity"}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"If", "[", + RowBox[{ + RowBox[{ + RowBox[{"Length", "[", "pts", "]"}], ">", "0"}], ",", + RowBox[{ + RowBox[{"plotX", "=", + RowBox[{"pts", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"fInterp", "=", + RowBox[{"Interpolation", "[", "plotX", "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"dataX", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"x", ",", + RowBox[{"fInterp", "[", "x", "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30", ",", "1"}], "}"}]}], + "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"SelectionMove", "[", + RowBox[{ + RowBox[{"EvaluationNotebook", "[", "]"}], ",", "After", ",", + "Cell"}], "]"}], ";", "\[IndentingNewLine]", + RowBox[{"CellPrint", "[", + RowBox[{"Cell", "[", + RowBox[{ + RowBox[{"BoxData", "[", + RowBox[{"ToBoxes", "[", + RowBox[{"TableForm", "[", "dataX", "]"}], "]"}], "]"}], + ",", "\"\\""}], "]"}], "]"}]}], ",", + RowBox[{"MessageDialog", "[", + + RowBox[{"\"\<\:041e\:0448\:0438\:0431\:043a\:0430: \:0421\ +\:043d\:0430\:0447\:0430\:043b\:0430 \:0432\:044b\:0434\:0435\:043b\:0438\ +\:0442\:0435 \:043d\:0443\:0436\:043d\:044b\:0439 \:0433\:0440\:0430\:0444\ +\:0438\:043a (\:043a\:043b\:0438\:043a\:043d\:0438\:0442\:0435 \:043f\:043e \ +\:0435\:0433\:043e \:044f\:0447\:0435\:0439\:043a\:0435 \:0441\:043f\:0440\ +\:0430\:0432\:0430)!\>\"", ",", + RowBox[{"WindowFloating", "->", "True"}]}], "]"}]}], + "]"}]}]}], "]"}], ",", + RowBox[{"Background", "->", + RowBox[{"RGBColor", "[", + RowBox[{"0.9", ",", "0.95", ",", "1"}], "]"}]}], ",", + RowBox[{"ImageSize", "->", + RowBox[{"{", + RowBox[{"180", ",", "25"}], "}"}]}]}], "]"}]}], "}"}], "]"}], ",", + RowBox[{"Background", "->", + RowBox[{"GrayLevel", "[", "0.95", "]"}]}], ",", + RowBox[{"FrameMargins", "->", "10"}]}], "]"}], ",", "\"\\""}], + "]"}], "]"}], "\n"}]], "Input", + CellChangeTimes->{{3.9943043996512623`*^9, 3.994304399651291*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"02b49021-35aa-46d4-be26-49a33520bca5"], + +Cell[BoxData[ + PanelBox[ + TemplateBox[{ + StyleBox[ + "\"\:0423\:043f\:0440\:0430\:0432\:043b\:0435\:043d\:0438\:0435 \:043a\ +\:044d\:0448\:0435\:043c \:0433\:0440\:0430\:0444\:0438\:043a\:0430: \"", + Bold, StripOnInput -> False], + ButtonBox[ + "\"\:0421\:0434\:0435\:043b\:0430\:0442\:044c \:0442\:0430\:0431\:043b\ +\:0438\:0446\:0443 (\:041b\:0438\:043d\:0438\:044f 1)\"", ButtonFunction :> + Module[{$CellContext`cell, $CellContext`pts}, $CellContext`cell = + NotebookRead[ + EvaluationNotebook[]]; $CellContext`pts = + Cases[$CellContext`cell, Line[ + Pattern[$CellContext`p, + Blank[]]] :> $CellContext`p, Infinity]; + If[Length[$CellContext`pts] > + 0, $CellContext`plotX = + Part[$CellContext`pts, 1]; $CellContext`fInterp = + Interpolation[$CellContext`plotX]; $CellContext`dataX = + Table[{$CellContext`x, + $CellContext`fInterp[$CellContext`x]}, {$CellContext`x, 0, 30, + 1}]; SelectionMove[ + EvaluationNotebook[], After, Cell]; CellPrint[ + Cell[ + BoxData[ + ToBoxes[ + TableForm[$CellContext`dataX]]], "Output"]], + MessageDialog[ + "\:041e\:0448\:0438\:0431\:043a\:0430: \ +\:0421\:043d\:0430\:0447\:0430\:043b\:0430 \:0432\:044b\:0434\:0435\:043b\ +\:0438\:0442\:0435 \:043d\:0443\:0436\:043d\:044b\:0439 \:0433\:0440\:0430\ +\:0444\:0438\:043a (\:043a\:043b\:0438\:043a\:043d\:0438\:0442\:0435 \:043f\ +\:043e \:0435\:0433\:043e \:044f\:0447\:0435\:0439\:043a\:0435 \:0441\:043f\ +\:0440\:0430\:0432\:0430)!", WindowFloating -> True]]], Background -> + RGBColor[0.9, 0.95, 1], ImageSize -> {180, 25}, Appearance -> Automatic, + Evaluator -> Automatic, Method -> "Preemptive"]}, + "RowDefault"], + Background->GrayLevel[0.95], + FrameMargins->10]], "Output", + CellChangeTimes->{ + 3.994305870122645*^9},ExpressionUUID->"0792713b-7c21-4395-8ed6-\ +797ee55dda92"], + +Cell[BoxData[ + TagBox[GridBox[{ + {"0", + RowBox[{"-", "4.0657581468206416`*^-20"}]}, + {"1", "0.011415974711135066`"}, + {"2", "0.022441917064087574`"}, + {"3", "0.03271046141461188`"}, + {"4", "0.041895827503947665`"}, + {"5", "0.04973303464879212`"}, + {"6", "0.05602740790658436`"}, + {"7", "0.06066462965157502`"}, + {"8", "0.06361057435119885`"}, + {"9", "0.06490785160299405`"}, + {"10", "0.06466714628645168`"}, + {"11", "0.06305491266157685`"}, + {"12", "0.06027866376290094`"}, + {"13", "0.05657121611579313`"}, + {"14", "0.05217513763778367`"}, + {"15", "0.04732865266381718`"}, + {"16", "0.042253537908333264`"}, + {"17", "0.03714638796565802`"}, + {"18", "0.032172000789703184`"}, + {"19", "0.027460533167210536`"}, + {"20", "0.0231074195841978`"}, + {"21", "0.01917428623117686`"}, + {"22", "0.01569326678621727`"}, + {"23", "0.012671410948990883`"}, + {"24", "0.010095479118880238`"}, + {"25", "0.007937576789017887`"}, + {"26", "0.006159810120382102`"}, + {"27", "0.0047186413147811395`"}, + {"28", "0.0035684869661269034`"}, + {"29", "0.0026644764109451215`"}, + {"30", "0.001964424375579526`"} + }, + GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[2.0999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + Function[BoxForm`e$, + TableForm[BoxForm`e$]]]], "Output", + CellChangeTimes->{ + 3.9943058966280813`*^9},ExpressionUUID->"d1ee4691-241f-47c4-bcf2-\ +308fcc0f3317"] +}, Open ]] }, -WindowSize->{714, 435}, -WindowMargins->{{Automatic, 3}, {3, Automatic}}, +WindowSize->{1440, 882}, +WindowMargins->{{0, Automatic}, {0, Automatic}}, CellContext->Notebook, -Magnification:>1.2 Inherited, +Magnification:>0.6 Inherited, FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"8af74bcb-cc50-f64a-8d83-c4bf7188d038" @@ -15785,675 +15971,682 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 303, 6, 35, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], -Cell[882, 30, 249, 5, 40, "Output",ExpressionUUID->"a9a5fb07-efa3-4ce1-831a-c88fd0ca4555"] +Cell[576, 22, 303, 6, 22, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], +Cell[882, 30, 249, 5, 25, "Output",ExpressionUUID->"a9a5fb07-efa3-4ce1-831a-c88fd0ca4555"] }, Open ]], Cell[CellGroupData[{ -Cell[1168, 40, 253, 5, 35, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], -Cell[1424, 47, 258, 5, 40, "Output",ExpressionUUID->"ab53ef7c-2d24-4fa5-bdc6-152c4d33f037"] +Cell[1168, 40, 253, 5, 22, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], +Cell[1424, 47, 258, 5, 25, "Output",ExpressionUUID->"ab53ef7c-2d24-4fa5-bdc6-152c4d33f037"] }, Open ]], Cell[CellGroupData[{ -Cell[1719, 57, 228, 5, 35, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], -Cell[1950, 64, 260, 5, 40, "Output",ExpressionUUID->"13e41668-a435-4dda-b9a2-6d3494df318f"] +Cell[1719, 57, 228, 5, 22, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], +Cell[1950, 64, 260, 5, 25, "Output",ExpressionUUID->"13e41668-a435-4dda-b9a2-6d3494df318f"] }, Open ]], Cell[CellGroupData[{ -Cell[2247, 74, 180, 4, 35, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], -Cell[2430, 80, 256, 5, 40, "Output",ExpressionUUID->"3cb477c6-0607-409d-920a-b106c23fb6c4"] +Cell[2247, 74, 180, 4, 22, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], +Cell[2430, 80, 256, 5, 25, "Output",ExpressionUUID->"3cb477c6-0607-409d-920a-b106c23fb6c4"] }, Open ]], Cell[CellGroupData[{ -Cell[2723, 90, 262, 8, 52, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], -Cell[2988, 100, 256, 5, 40, "Output",ExpressionUUID->"ec478b7f-2783-4572-89d7-75a1371ab72e"] +Cell[2723, 90, 262, 8, 34, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], +Cell[2988, 100, 256, 5, 25, "Output",ExpressionUUID->"ec478b7f-2783-4572-89d7-75a1371ab72e"] }, Open ]], Cell[CellGroupData[{ -Cell[3281, 110, 136, 3, 35, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], -Cell[3420, 115, 256, 5, 40, "Output",ExpressionUUID->"952cfc55-88c7-4100-b313-19952153b52f"] +Cell[3281, 110, 136, 3, 22, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], +Cell[3420, 115, 256, 5, 25, "Output",ExpressionUUID->"952cfc55-88c7-4100-b313-19952153b52f"] }, Open ]], Cell[CellGroupData[{ -Cell[3713, 125, 281, 7, 35, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], -Cell[3997, 134, 273, 5, 40, "Output",ExpressionUUID->"879e0690-82ab-430f-996b-52c758873082"] +Cell[3713, 125, 281, 7, 22, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], +Cell[3997, 134, 273, 5, 25, "Output",ExpressionUUID->"879e0690-82ab-430f-996b-52c758873082"] }, Open ]], Cell[CellGroupData[{ -Cell[4307, 144, 262, 8, 35, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], -Cell[4572, 154, 270, 5, 40, "Output",ExpressionUUID->"a849c59e-27e0-4820-8e7a-a4cf10b5117b"] +Cell[4307, 144, 262, 8, 22, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], +Cell[4572, 154, 270, 5, 25, "Output",ExpressionUUID->"a849c59e-27e0-4820-8e7a-a4cf10b5117b"] }, Open ]], Cell[CellGroupData[{ -Cell[4879, 164, 234, 5, 35, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], -Cell[5116, 171, 234, 4, 40, "Output",ExpressionUUID->"2302fcbc-34fd-4c4c-86bb-ac644cc6a55a"] +Cell[4879, 164, 234, 5, 22, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], +Cell[5116, 171, 234, 4, 25, "Output",ExpressionUUID->"2302fcbc-34fd-4c4c-86bb-ac644cc6a55a"] }, Open ]], Cell[CellGroupData[{ -Cell[5387, 180, 229, 5, 35, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], -Cell[5619, 187, 231, 4, 40, "Output",ExpressionUUID->"cf3836cd-0774-4fb9-9fa1-0648291922bf"] +Cell[5387, 180, 229, 5, 22, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], +Cell[5619, 187, 231, 4, 25, "Output",ExpressionUUID->"cf3836cd-0774-4fb9-9fa1-0648291922bf"] }, Open ]], Cell[CellGroupData[{ -Cell[5887, 196, 133, 3, 35, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], -Cell[6023, 201, 252, 5, 40, "Output",ExpressionUUID->"0a07047d-bbbd-4118-bf40-6b950a77c13d"] +Cell[5887, 196, 133, 3, 22, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], +Cell[6023, 201, 252, 5, 25, "Output",ExpressionUUID->"0a07047d-bbbd-4118-bf40-6b950a77c13d"] }, Open ]], Cell[CellGroupData[{ -Cell[6312, 211, 133, 3, 35, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], -Cell[6448, 216, 254, 5, 40, "Output",ExpressionUUID->"d04d1e28-e0df-485f-a849-c0576e959923"] +Cell[6312, 211, 133, 3, 22, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], +Cell[6448, 216, 254, 5, 25, "Output",ExpressionUUID->"d04d1e28-e0df-485f-a849-c0576e959923"] }, Open ]], Cell[CellGroupData[{ -Cell[6739, 226, 561, 20, 95, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], -Cell[7303, 248, 268, 5, 40, "Output",ExpressionUUID->"6eacb911-d7e9-4e27-ba5e-0e4ffda94d0e"] +Cell[6739, 226, 561, 20, 65, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], +Cell[7303, 248, 268, 5, 25, "Output",ExpressionUUID->"6eacb911-d7e9-4e27-ba5e-0e4ffda94d0e"] }, Open ]], Cell[CellGroupData[{ -Cell[7608, 258, 561, 20, 95, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], -Cell[8172, 280, 271, 5, 40, "Output",ExpressionUUID->"1cfcd1e5-00ad-4336-b8bc-c20130d97bd9"] +Cell[7608, 258, 561, 20, 65, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], +Cell[8172, 280, 271, 5, 25, "Output",ExpressionUUID->"1cfcd1e5-00ad-4336-b8bc-c20130d97bd9"] }, Open ]], Cell[CellGroupData[{ -Cell[8480, 290, 1592, 51, 199, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], -Cell[10075, 343, 271, 5, 40, "Output",ExpressionUUID->"3f033dce-57c5-4fed-8bc9-6cb0ebb3b6c5"] +Cell[8480, 290, 1592, 51, 45, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], +Cell[10075, 343, 271, 5, 25, "Output",ExpressionUUID->"3f033dce-57c5-4fed-8bc9-6cb0ebb3b6c5"] }, Open ]], Cell[CellGroupData[{ -Cell[10383, 353, 1426, 47, 199, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], -Cell[11812, 402, 285, 6, 40, "Output",ExpressionUUID->"50187f20-b76d-419a-8c5b-56efe41c65e9"] +Cell[10383, 353, 1426, 47, 83, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], +Cell[11812, 402, 285, 6, 25, "Output",ExpressionUUID->"50187f20-b76d-419a-8c5b-56efe41c65e9"] }, Open ]], Cell[CellGroupData[{ -Cell[12134, 413, 1426, 47, 199, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], -Cell[13563, 462, 288, 6, 40, "Output",ExpressionUUID->"0cee25e3-3a23-49a3-8bb6-9161df9213ee"] +Cell[12134, 413, 1426, 47, 83, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], +Cell[13563, 462, 288, 6, 25, "Output",ExpressionUUID->"0cee25e3-3a23-49a3-8bb6-9161df9213ee"] }, Open ]], Cell[CellGroupData[{ -Cell[13888, 473, 1592, 51, 199, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], -Cell[15483, 526, 264, 5, 40, "Output",ExpressionUUID->"51d90ea7-0061-4fb8-8f91-f197c6511ecc"] +Cell[13888, 473, 1592, 51, 100, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], +Cell[15483, 526, 264, 5, 25, "Output",ExpressionUUID->"51d90ea7-0061-4fb8-8f91-f197c6511ecc"] }, Open ]], Cell[CellGroupData[{ -Cell[15784, 536, 135, 3, 35, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], -Cell[15922, 541, 254, 5, 40, "Output",ExpressionUUID->"cd613fee-7343-46b6-ba46-7f5837d0b227"] +Cell[15784, 536, 135, 3, 22, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], +Cell[15922, 541, 254, 5, 25, "Output",ExpressionUUID->"cd613fee-7343-46b6-ba46-7f5837d0b227"] }, Open ]], Cell[CellGroupData[{ -Cell[16213, 551, 137, 3, 35, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], -Cell[16353, 556, 257, 5, 40, "Output",ExpressionUUID->"8d80e80c-031f-49e6-9361-ce17caafbab6"] +Cell[16213, 551, 137, 3, 22, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], +Cell[16353, 556, 257, 5, 25, "Output",ExpressionUUID->"8d80e80c-031f-49e6-9361-ce17caafbab6"] }, Open ]], Cell[CellGroupData[{ -Cell[16647, 566, 138, 3, 35, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], -Cell[16788, 571, 261, 5, 40, "Output",ExpressionUUID->"22fa51d2-e002-4937-be16-981199cc158e"] +Cell[16647, 566, 138, 3, 22, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], +Cell[16788, 571, 261, 5, 25, "Output",ExpressionUUID->"22fa51d2-e002-4937-be16-981199cc158e"] }, Open ]], Cell[CellGroupData[{ -Cell[17086, 581, 223, 5, 35, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], -Cell[17312, 588, 267, 6, 40, "Output",ExpressionUUID->"ed15e73b-1d85-418e-8eed-ea366d8d0ca4"] +Cell[17086, 581, 223, 5, 22, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], +Cell[17312, 588, 267, 6, 25, "Output",ExpressionUUID->"ed15e73b-1d85-418e-8eed-ea366d8d0ca4"] }, Open ]], Cell[CellGroupData[{ -Cell[17616, 599, 138, 3, 35, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], -Cell[17757, 604, 260, 5, 40, "Output",ExpressionUUID->"8b38613a-7843-46e9-83ca-2159a3aebdcc"] +Cell[17616, 599, 138, 3, 22, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], +Cell[17757, 604, 260, 5, 25, "Output",ExpressionUUID->"8b38613a-7843-46e9-83ca-2159a3aebdcc"] }, Open ]], Cell[CellGroupData[{ -Cell[18054, 614, 328, 6, 35, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], -Cell[18385, 622, 255, 5, 40, "Output",ExpressionUUID->"a49fb441-bd95-4b49-b9c6-c8b012c938da"] +Cell[18054, 614, 328, 6, 22, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], +Cell[18385, 622, 255, 5, 25, "Output",ExpressionUUID->"a49fb441-bd95-4b49-b9c6-c8b012c938da"] }, Open ]], Cell[CellGroupData[{ -Cell[18677, 632, 300, 6, 35, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], -Cell[18980, 640, 255, 5, 40, "Output",ExpressionUUID->"b80292aa-b2a2-4ed7-ae2c-5273471adf98"] +Cell[18677, 632, 300, 6, 22, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], +Cell[18980, 640, 255, 5, 25, "Output",ExpressionUUID->"b80292aa-b2a2-4ed7-ae2c-5273471adf98"] }, Open ]], Cell[CellGroupData[{ -Cell[19272, 650, 223, 5, 35, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], -Cell[19498, 657, 253, 5, 40, "Output",ExpressionUUID->"53b3ef6c-c879-45c6-b932-6730c1c85061"] +Cell[19272, 650, 223, 5, 22, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], +Cell[19498, 657, 253, 5, 25, "Output",ExpressionUUID->"53b3ef6c-c879-45c6-b932-6730c1c85061"] }, Open ]], Cell[CellGroupData[{ -Cell[19788, 667, 354, 11, 52, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], -Cell[20145, 680, 259, 5, 40, "Output",ExpressionUUID->"5ecabcad-dc5c-4069-821d-40284df3af25"] +Cell[19788, 667, 354, 11, 32, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], +Cell[20145, 680, 259, 5, 25, "Output",ExpressionUUID->"5ecabcad-dc5c-4069-821d-40284df3af25"] }, Open ]], Cell[CellGroupData[{ -Cell[20441, 690, 354, 11, 52, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], -Cell[20798, 703, 291, 6, 40, "Output",ExpressionUUID->"f2c2f01b-90f3-49e6-ac35-2570baaaa52f"] +Cell[20441, 690, 354, 11, 32, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], +Cell[20798, 703, 291, 6, 25, "Output",ExpressionUUID->"f2c2f01b-90f3-49e6-ac35-2570baaaa52f"] }, Open ]], Cell[CellGroupData[{ -Cell[21126, 714, 998, 27, 99, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], -Cell[22127, 743, 272, 5, 40, "Output",ExpressionUUID->"bf09b7f3-434c-4827-989a-085dc7d1bd82"] +Cell[21126, 714, 998, 27, 49, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], +Cell[22127, 743, 272, 5, 25, "Output",ExpressionUUID->"bf09b7f3-434c-4827-989a-085dc7d1bd82"] }, Open ]], Cell[CellGroupData[{ -Cell[22436, 753, 203, 4, 35, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], -Cell[22642, 759, 254, 5, 40, "Output",ExpressionUUID->"a3c62cf8-91fb-491d-be11-1567616e89e0"] +Cell[22436, 753, 203, 4, 22, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], +Cell[22642, 759, 254, 5, 25, "Output",ExpressionUUID->"a3c62cf8-91fb-491d-be11-1567616e89e0"] }, Open ]], Cell[CellGroupData[{ -Cell[22933, 769, 335, 6, 35, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], -Cell[23271, 777, 230, 4, 40, "Output",ExpressionUUID->"16b7e669-78f7-4325-8156-792fff036840"] +Cell[22933, 769, 335, 6, 22, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], +Cell[23271, 777, 230, 4, 25, "Output",ExpressionUUID->"16b7e669-78f7-4325-8156-792fff036840"] }, Open ]], -Cell[23516, 784, 177, 3, 35, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], +Cell[23516, 784, 177, 3, 22, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], Cell[CellGroupData[{ -Cell[23718, 791, 331, 6, 35, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], -Cell[24052, 799, 230, 4, 40, "Output",ExpressionUUID->"e2b9ed26-d1f9-4430-8a95-c0883180fce1"] +Cell[23718, 791, 331, 6, 22, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], +Cell[24052, 799, 230, 4, 25, "Output",ExpressionUUID->"e2b9ed26-d1f9-4430-8a95-c0883180fce1"] }, Open ]], -Cell[24297, 806, 177, 3, 35, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], +Cell[24297, 806, 177, 3, 22, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], Cell[CellGroupData[{ -Cell[24499, 813, 334, 6, 35, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], -Cell[24836, 821, 229, 4, 40, "Output",ExpressionUUID->"0c91077a-2442-48ac-8db9-fbdf0dc9615b"] +Cell[24499, 813, 334, 6, 22, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], +Cell[24836, 821, 229, 4, 25, "Output",ExpressionUUID->"0c91077a-2442-48ac-8db9-fbdf0dc9615b"] }, Open ]], -Cell[25080, 828, 177, 3, 35, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], +Cell[25080, 828, 177, 3, 22, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], Cell[CellGroupData[{ -Cell[25282, 835, 356, 6, 35, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], -Cell[25641, 843, 234, 4, 40, "Output",ExpressionUUID->"b0bf74c9-2db7-467d-86d7-576900070905"] +Cell[25282, 835, 356, 6, 22, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], +Cell[25641, 843, 234, 4, 25, "Output",ExpressionUUID->"b0bf74c9-2db7-467d-86d7-576900070905"] }, Open ]], -Cell[25890, 850, 175, 3, 35, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], +Cell[25890, 850, 175, 3, 22, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], Cell[CellGroupData[{ -Cell[26090, 857, 303, 6, 35, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], -Cell[26396, 865, 231, 4, 40, "Output",ExpressionUUID->"a888dd19-4d58-4eec-b32f-16e57dcc7d26"] +Cell[26090, 857, 303, 6, 22, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], +Cell[26396, 865, 231, 4, 25, "Output",ExpressionUUID->"a888dd19-4d58-4eec-b32f-16e57dcc7d26"] }, Open ]], -Cell[26642, 872, 175, 3, 35, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], +Cell[26642, 872, 175, 3, 22, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], Cell[CellGroupData[{ -Cell[26842, 879, 309, 6, 35, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], -Cell[27154, 887, 231, 4, 40, "Output",ExpressionUUID->"26d10228-69e1-444c-969c-d95754e125e0"] +Cell[26842, 879, 309, 6, 22, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], +Cell[27154, 887, 231, 4, 25, "Output",ExpressionUUID->"26d10228-69e1-444c-969c-d95754e125e0"] }, Open ]], -Cell[27400, 894, 177, 3, 35, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], +Cell[27400, 894, 177, 3, 22, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], Cell[CellGroupData[{ -Cell[27602, 901, 311, 6, 35, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], -Cell[27916, 909, 229, 4, 40, "Output",ExpressionUUID->"02ab5665-8182-481d-b707-d89f2e4461be"] +Cell[27602, 901, 311, 6, 22, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], +Cell[27916, 909, 229, 4, 25, "Output",ExpressionUUID->"02ab5665-8182-481d-b707-d89f2e4461be"] }, Open ]], -Cell[28160, 916, 176, 3, 35, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], +Cell[28160, 916, 176, 3, 22, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], Cell[CellGroupData[{ -Cell[28361, 923, 280, 5, 35, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], -Cell[28644, 930, 232, 4, 40, "Output",ExpressionUUID->"f19b94a8-5e6e-4bde-abe5-ec1ac1c215ab"] +Cell[28361, 923, 280, 5, 22, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], +Cell[28644, 930, 232, 4, 25, "Output",ExpressionUUID->"f19b94a8-5e6e-4bde-abe5-ec1ac1c215ab"] }, Open ]], -Cell[28891, 937, 179, 3, 35, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], +Cell[28891, 937, 179, 3, 22, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ -Cell[29095, 944, 19813, 486, 2839, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], -Cell[48911, 1432, 271, 5, 40, "Output",ExpressionUUID->"8ab563c2-371c-432a-b605-3a1b5b5dad3c"] +Cell[29095, 944, 19813, 486, 1051, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], +Cell[48911, 1432, 271, 5, 25, "Output",ExpressionUUID->"8ab563c2-371c-432a-b605-3a1b5b5dad3c"] }, Open ]], Cell[CellGroupData[{ -Cell[49219, 1442, 19752, 490, 2839, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], -Cell[68974, 1934, 269, 5, 40, "Output",ExpressionUUID->"9f062c12-c840-4488-aec2-3ea8a89c9f9e"] +Cell[49219, 1442, 19752, 490, 1051, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], +Cell[68974, 1934, 269, 5, 25, "Output",ExpressionUUID->"9f062c12-c840-4488-aec2-3ea8a89c9f9e"] }, Open ]], Cell[CellGroupData[{ -Cell[69280, 1944, 19752, 484, 2838, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], -Cell[89035, 2430, 287, 6, 40, "Output",ExpressionUUID->"4a1dfd64-c0b7-4c04-962c-62567faee8e3"] +Cell[69280, 1944, 19752, 484, 1050, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], +Cell[89035, 2430, 287, 6, 25, "Output",ExpressionUUID->"4a1dfd64-c0b7-4c04-962c-62567faee8e3"] }, Open ]], Cell[CellGroupData[{ -Cell[89359, 2441, 22538, 554, 3235, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], -Cell[111900, 2997, 289, 6, 40, "Output",ExpressionUUID->"0f7625b1-65a4-4e0c-ac57-7d6656cca917"] +Cell[89359, 2441, 22538, 554, 1168, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], +Cell[111900, 2997, 289, 6, 25, "Output",ExpressionUUID->"0f7625b1-65a4-4e0c-ac57-7d6656cca917"] }, Open ]], Cell[CellGroupData[{ -Cell[112226, 3008, 22539, 554, 3235, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], -Cell[134768, 3564, 287, 6, 40, "Output",ExpressionUUID->"84f31232-3ead-4642-ac10-79431cbfa49f"] +Cell[112226, 3008, 22539, 554, 1168, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], +Cell[134768, 3564, 287, 6, 25, "Output",ExpressionUUID->"84f31232-3ead-4642-ac10-79431cbfa49f"] }, Open ]], Cell[CellGroupData[{ -Cell[135092, 3575, 25495, 627, 3632, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], -Cell[160590, 4204, 285, 6, 40, "Output",ExpressionUUID->"ba2445f1-7f0b-4579-8cd5-cc681e7c5912"] +Cell[135092, 3575, 25495, 627, 1302, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], +Cell[160590, 4204, 285, 6, 25, "Output",ExpressionUUID->"ba2445f1-7f0b-4579-8cd5-cc681e7c5912"] }, Open ]], Cell[CellGroupData[{ -Cell[160912, 4215, 134, 3, 35, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], -Cell[161049, 4220, 251, 5, 40, "Output",ExpressionUUID->"85c41d92-1532-423d-b633-e1978b69c6ad"] +Cell[160912, 4215, 134, 3, 22, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], +Cell[161049, 4220, 251, 5, 25, "Output",ExpressionUUID->"85c41d92-1532-423d-b633-e1978b69c6ad"] }, Open ]], Cell[CellGroupData[{ -Cell[161337, 4230, 134, 3, 35, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], -Cell[161474, 4235, 254, 5, 40, "Output",ExpressionUUID->"cae24648-d812-44c1-b473-1adb6a80b2c8"] +Cell[161337, 4230, 134, 3, 22, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], +Cell[161474, 4235, 254, 5, 25, "Output",ExpressionUUID->"cae24648-d812-44c1-b473-1adb6a80b2c8"] }, Open ]], Cell[CellGroupData[{ -Cell[161765, 4245, 1148, 40, 133, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], -Cell[162916, 4287, 270, 5, 40, "Output",ExpressionUUID->"d3183bdb-a0cd-4f0b-b9e0-cc1a70afa715"] +Cell[161765, 4245, 1148, 40, 42, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], +Cell[162916, 4287, 270, 5, 25, "Output",ExpressionUUID->"d3183bdb-a0cd-4f0b-b9e0-cc1a70afa715"] }, Open ]], Cell[CellGroupData[{ -Cell[163223, 4297, 1045, 36, 133, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], -Cell[164271, 4335, 287, 6, 40, "Output",ExpressionUUID->"4ff3b0ee-1447-4bd4-a418-275811180720"] +Cell[163223, 4297, 1045, 36, 42, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], +Cell[164271, 4335, 287, 6, 25, "Output",ExpressionUUID->"4ff3b0ee-1447-4bd4-a418-275811180720"] }, Open ]], Cell[CellGroupData[{ -Cell[164595, 4346, 1148, 40, 133, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], -Cell[165746, 4388, 269, 5, 40, "Output",ExpressionUUID->"c44ad502-bcaa-4d7c-a6b7-05c16bc1024d"] +Cell[164595, 4346, 1148, 40, 42, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], +Cell[165746, 4388, 269, 5, 25, "Output",ExpressionUUID->"c44ad502-bcaa-4d7c-a6b7-05c16bc1024d"] }, Open ]], Cell[CellGroupData[{ -Cell[166052, 4398, 112, 2, 35, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], -Cell[166167, 4402, 273, 5, 40, "Output",ExpressionUUID->"8549581e-6e9f-4648-a8a4-282b12998faf"] +Cell[166052, 4398, 112, 2, 22, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], +Cell[166167, 4402, 273, 5, 25, "Output",ExpressionUUID->"8549581e-6e9f-4648-a8a4-282b12998faf"] }, Open ]], Cell[CellGroupData[{ -Cell[166477, 4412, 112, 2, 35, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], -Cell[166592, 4416, 289, 6, 40, "Output",ExpressionUUID->"c720f44c-e962-49f3-83a4-7ab674a7253d"] +Cell[166477, 4412, 112, 2, 22, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], +Cell[166592, 4416, 289, 6, 25, "Output",ExpressionUUID->"c720f44c-e962-49f3-83a4-7ab674a7253d"] }, Open ]], Cell[CellGroupData[{ -Cell[166918, 4427, 112, 2, 35, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], -Cell[167033, 4431, 287, 6, 40, "Output",ExpressionUUID->"0d95941f-8c66-4767-99e0-4e11c5e9c317"] +Cell[166918, 4427, 112, 2, 22, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], +Cell[167033, 4431, 287, 6, 25, "Output",ExpressionUUID->"0d95941f-8c66-4767-99e0-4e11c5e9c317"] }, Open ]], Cell[CellGroupData[{ -Cell[167357, 4442, 112, 2, 35, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], -Cell[167472, 4446, 269, 5, 40, "Output",ExpressionUUID->"c40a374c-596f-4f68-b311-d9cbd5f7b642"] +Cell[167357, 4442, 112, 2, 22, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], +Cell[167472, 4446, 269, 5, 25, "Output",ExpressionUUID->"c40a374c-596f-4f68-b311-d9cbd5f7b642"] }, Open ]], Cell[CellGroupData[{ -Cell[167778, 4456, 111, 2, 35, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], -Cell[167892, 4460, 272, 5, 40, "Output",ExpressionUUID->"26bee78e-88dc-4789-9cbd-bd1b64e16b1b"] +Cell[167778, 4456, 111, 2, 22, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], +Cell[167892, 4460, 272, 5, 25, "Output",ExpressionUUID->"26bee78e-88dc-4789-9cbd-bd1b64e16b1b"] }, Open ]], Cell[CellGroupData[{ -Cell[168201, 4470, 111, 2, 35, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], -Cell[168315, 4474, 273, 5, 40, "Output",ExpressionUUID->"903052c0-a334-4dbe-8531-7b35c38334b0"] +Cell[168201, 4470, 111, 2, 22, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], +Cell[168315, 4474, 273, 5, 25, "Output",ExpressionUUID->"903052c0-a334-4dbe-8531-7b35c38334b0"] }, Open ]], Cell[CellGroupData[{ -Cell[168625, 4484, 501, 17, 66, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], -Cell[169129, 4503, 288, 6, 40, "Output",ExpressionUUID->"d19df074-b109-4361-aca5-2bfad46a685a"] +Cell[168625, 4484, 501, 17, 42, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], +Cell[169129, 4503, 288, 6, 25, "Output",ExpressionUUID->"d19df074-b109-4361-aca5-2bfad46a685a"] }, Open ]], Cell[CellGroupData[{ -Cell[169454, 4514, 501, 17, 66, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], -Cell[169958, 4533, 285, 6, 40, "Output",ExpressionUUID->"cf38699d-4147-48fc-b552-346bee406c82"] +Cell[169454, 4514, 501, 17, 42, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], +Cell[169958, 4533, 285, 6, 25, "Output",ExpressionUUID->"cf38699d-4147-48fc-b552-346bee406c82"] }, Open ]], Cell[CellGroupData[{ -Cell[170280, 4544, 1792, 61, 317, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], -Cell[172075, 4607, 271, 5, 40, "Output",ExpressionUUID->"1b47b7a5-4b75-4b5e-b24d-519ccd326430"] +Cell[170280, 4544, 1792, 61, 100, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], +Cell[172075, 4607, 271, 5, 25, "Output",ExpressionUUID->"1b47b7a5-4b75-4b5e-b24d-519ccd326430"] }, Open ]], Cell[CellGroupData[{ -Cell[172383, 4617, 1105, 37, 162, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], -Cell[173491, 4656, 293, 6, 40, "Output",ExpressionUUID->"ac80075a-a06b-4884-8663-e770c13965a4"] +Cell[172383, 4617, 1105, 37, 42, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], +Cell[173491, 4656, 293, 6, 25, "Output",ExpressionUUID->"ac80075a-a06b-4884-8663-e770c13965a4"] }, Open ]], Cell[CellGroupData[{ -Cell[173821, 4667, 1822, 62, 317, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], -Cell[175646, 4731, 268, 5, 40, "Output",ExpressionUUID->"99d3e00e-8db6-42e7-89a3-1562475d72fb"] +Cell[173821, 4667, 1822, 62, 83, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], +Cell[175646, 4731, 268, 5, 25, "Output",ExpressionUUID->"99d3e00e-8db6-42e7-89a3-1562475d72fb"] }, Open ]], Cell[CellGroupData[{ -Cell[175951, 4741, 1635, 54, 199, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], -Cell[177589, 4797, 269, 5, 40, "Output",ExpressionUUID->"5119f483-f20d-43a7-95f4-1d86237e8467"] +Cell[175951, 4741, 1635, 54, 60, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], +Cell[177589, 4797, 269, 5, 25, "Output",ExpressionUUID->"5119f483-f20d-43a7-95f4-1d86237e8467"] }, Open ]], Cell[CellGroupData[{ -Cell[177895, 4807, 1635, 54, 199, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], -Cell[179533, 4863, 269, 5, 40, "Output",ExpressionUUID->"c1d92fd0-3ce2-44dd-9e8a-d5b60dc1f7c2"] +Cell[177895, 4807, 1635, 54, 60, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], +Cell[179533, 4863, 269, 5, 25, "Output",ExpressionUUID->"c1d92fd0-3ce2-44dd-9e8a-d5b60dc1f7c2"] }, Open ]], Cell[CellGroupData[{ -Cell[179839, 4873, 233, 5, 35, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], -Cell[180075, 4880, 237, 4, 40, "Output",ExpressionUUID->"85594dee-c264-411f-a513-8a4300e6bd31"] +Cell[179839, 4873, 233, 5, 22, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], +Cell[180075, 4880, 237, 4, 25, "Output",ExpressionUUID->"85594dee-c264-411f-a513-8a4300e6bd31"] }, Open ]], -Cell[180327, 4887, 176, 3, 35, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], +Cell[180327, 4887, 176, 3, 22, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], Cell[CellGroupData[{ -Cell[180528, 4894, 231, 5, 35, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], -Cell[180762, 4901, 233, 4, 40, "Output",ExpressionUUID->"0fa6846e-5369-4130-9f9e-a7ceb1987892"] +Cell[180528, 4894, 231, 5, 22, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], +Cell[180762, 4901, 233, 4, 25, "Output",ExpressionUUID->"0fa6846e-5369-4130-9f9e-a7ceb1987892"] }, Open ]], -Cell[181010, 4908, 177, 3, 35, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], +Cell[181010, 4908, 177, 3, 22, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ -Cell[181212, 4915, 1301, 43, 165, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], -Cell[182516, 4960, 273, 5, 40, "Output",ExpressionUUID->"738ad1b0-f5e6-4bb2-aac5-0760969fa1ad"] +Cell[181212, 4915, 1301, 43, 36, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], +Cell[182516, 4960, 273, 5, 25, "Output",ExpressionUUID->"738ad1b0-f5e6-4bb2-aac5-0760969fa1ad"] }, Open ]], Cell[CellGroupData[{ -Cell[182826, 4970, 931, 31, 120, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], -Cell[183760, 5003, 272, 5, 40, "Output",ExpressionUUID->"2f67cdad-20e4-42da-804d-6b02d19cf32e"] +Cell[182826, 4970, 931, 31, 42, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], +Cell[183760, 5003, 272, 5, 25, "Output",ExpressionUUID->"2f67cdad-20e4-42da-804d-6b02d19cf32e"] }, Open ]], Cell[CellGroupData[{ -Cell[184069, 5013, 907, 30, 120, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], -Cell[184979, 5045, 277, 5, 40, "Output",ExpressionUUID->"8889a1b4-5042-4578-88e9-bfd40a274f34"] +Cell[184069, 5013, 907, 30, 42, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], +Cell[184979, 5045, 277, 5, 25, "Output",ExpressionUUID->"8889a1b4-5042-4578-88e9-bfd40a274f34"] }, Open ]], Cell[CellGroupData[{ -Cell[185293, 5055, 558, 19, 63, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], -Cell[185854, 5076, 664, 10, 40, "Output",ExpressionUUID->"37b2d053-def3-43d9-8615-ae0125df0198"] +Cell[185293, 5055, 558, 19, 39, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], +Cell[185854, 5076, 664, 10, 25, "Output",ExpressionUUID->"37b2d053-def3-43d9-8615-ae0125df0198"] }, Open ]], Cell[CellGroupData[{ -Cell[186555, 5091, 665, 22, 63, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], -Cell[187223, 5115, 646, 10, 40, "Output",ExpressionUUID->"2fb2aed8-2d96-4dd2-8599-821672e19831"] +Cell[186555, 5091, 665, 22, 39, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], +Cell[187223, 5115, 646, 10, 25, "Output",ExpressionUUID->"2fb2aed8-2d96-4dd2-8599-821672e19831"] }, Open ]], Cell[CellGroupData[{ -Cell[187906, 5130, 170, 5, 67, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], -Cell[188079, 5137, 674, 10, 40, "Output",ExpressionUUID->"c486d52e-e696-4f82-a064-7be33d538ec8"] +Cell[187906, 5130, 170, 5, 42, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], +Cell[188079, 5137, 674, 10, 25, "Output",ExpressionUUID->"c486d52e-e696-4f82-a064-7be33d538ec8"] }, Open ]], Cell[CellGroupData[{ -Cell[188790, 5152, 236, 6, 66, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], -Cell[189029, 5160, 618, 10, 40, "Output",ExpressionUUID->"acca76e3-ce04-4230-8ed2-2e9056e88a0e"] +Cell[188790, 5152, 236, 6, 41, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], +Cell[189029, 5160, 618, 10, 25, "Output",ExpressionUUID->"acca76e3-ce04-4230-8ed2-2e9056e88a0e"] }, Open ]], Cell[CellGroupData[{ -Cell[189684, 5175, 223, 6, 52, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], -Cell[189910, 5183, 644, 10, 40, "Output",ExpressionUUID->"17d67621-1a21-4579-a10c-6d172efc831e"] +Cell[189684, 5175, 223, 6, 32, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], +Cell[189910, 5183, 644, 10, 25, "Output",ExpressionUUID->"17d67621-1a21-4579-a10c-6d172efc831e"] }, Open ]], Cell[CellGroupData[{ -Cell[190591, 5198, 181, 5, 52, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], -Cell[190775, 5205, 666, 10, 40, "Output",ExpressionUUID->"ab07be69-4284-4f78-a859-5ed66ab00c8d"] +Cell[190591, 5198, 181, 5, 32, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], +Cell[190775, 5205, 666, 10, 25, "Output",ExpressionUUID->"ab07be69-4284-4f78-a859-5ed66ab00c8d"] }, Open ]], Cell[CellGroupData[{ -Cell[191478, 5220, 6055, 185, 777, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], -Cell[197536, 5407, 646, 10, 40, "Output",ExpressionUUID->"8c3f4f6b-dcfb-4bcf-b080-0f9183dcb737"] +Cell[191478, 5220, 6055, 185, 248, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], +Cell[197536, 5407, 646, 10, 25, "Output",ExpressionUUID->"8c3f4f6b-dcfb-4bcf-b080-0f9183dcb737"] }, Open ]], Cell[CellGroupData[{ -Cell[198219, 5422, 410, 10, 70, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], -Cell[198632, 5434, 665, 11, 59, "Output",ExpressionUUID->"f81d4af2-e2fd-4900-bc0d-9fae69e9c838"] +Cell[198219, 5422, 410, 10, 43, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], +Cell[198632, 5434, 665, 11, 37, "Output",ExpressionUUID->"f81d4af2-e2fd-4900-bc0d-9fae69e9c838"] }, Open ]], -Cell[199312, 5448, 492, 10, 35, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], +Cell[199312, 5448, 492, 10, 22, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ -Cell[199829, 5462, 558, 19, 63, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], -Cell[200390, 5483, 267, 5, 40, "Output",ExpressionUUID->"b8bad34a-7788-4532-bf78-36411ffec5ec"] +Cell[199829, 5462, 558, 19, 39, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], +Cell[200390, 5483, 267, 5, 25, "Output",ExpressionUUID->"b8bad34a-7788-4532-bf78-36411ffec5ec"] }, Open ]], Cell[CellGroupData[{ -Cell[200694, 5493, 623, 21, 63, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], -Cell[201320, 5516, 267, 5, 40, "Output",ExpressionUUID->"2c839f86-aacf-49ed-91f4-c0467939c11f"] +Cell[200694, 5493, 623, 21, 39, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], +Cell[201320, 5516, 267, 5, 25, "Output",ExpressionUUID->"2c839f86-aacf-49ed-91f4-c0467939c11f"] }, Open ]], Cell[CellGroupData[{ -Cell[201624, 5526, 170, 5, 67, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], -Cell[201797, 5533, 269, 5, 40, "Output",ExpressionUUID->"9bbad2a6-f2e6-4930-9dde-d8b966c12464"] +Cell[201624, 5526, 170, 5, 42, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], +Cell[201797, 5533, 269, 5, 25, "Output",ExpressionUUID->"9bbad2a6-f2e6-4930-9dde-d8b966c12464"] }, Open ]], Cell[CellGroupData[{ -Cell[202103, 5543, 170, 5, 66, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], -Cell[202276, 5550, 270, 5, 40, "Output",ExpressionUUID->"ed97d04f-0b09-409b-b0a8-3fdc8958cd2d"] +Cell[202103, 5543, 170, 5, 41, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], +Cell[202276, 5550, 270, 5, 25, "Output",ExpressionUUID->"ed97d04f-0b09-409b-b0a8-3fdc8958cd2d"] }, Open ]], Cell[CellGroupData[{ -Cell[202583, 5560, 181, 5, 52, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], -Cell[202767, 5567, 274, 5, 40, "Output",ExpressionUUID->"e4ab2809-bcec-46e1-b22c-f5962c5b8d6b"] +Cell[202583, 5560, 181, 5, 32, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], +Cell[202767, 5567, 274, 5, 25, "Output",ExpressionUUID->"e4ab2809-bcec-46e1-b22c-f5962c5b8d6b"] }, Open ]], Cell[CellGroupData[{ -Cell[203078, 5577, 181, 5, 52, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], -Cell[203262, 5584, 272, 5, 40, "Output",ExpressionUUID->"d8298e7b-e84c-4635-8aa2-e7bd5bc4f51e"] +Cell[203078, 5577, 181, 5, 32, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], +Cell[203262, 5584, 272, 5, 25, "Output",ExpressionUUID->"d8298e7b-e84c-4635-8aa2-e7bd5bc4f51e"] }, Open ]], Cell[CellGroupData[{ -Cell[203571, 5594, 6055, 185, 777, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], -Cell[209629, 5781, 272, 5, 40, "Output",ExpressionUUID->"a579cf95-2750-44ac-b494-201f4f83d231"] +Cell[203571, 5594, 6055, 185, 248, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], +Cell[209629, 5781, 272, 5, 25, "Output",ExpressionUUID->"a579cf95-2750-44ac-b494-201f4f83d231"] }, Open ]], Cell[CellGroupData[{ -Cell[209938, 5791, 368, 9, 50, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], -Cell[210309, 5802, 267, 5, 40, "Output",ExpressionUUID->"6a814903-de95-4b0a-bf3c-a09aba2b6eda"] +Cell[209938, 5791, 368, 9, 31, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], +Cell[210309, 5802, 267, 5, 25, "Output",ExpressionUUID->"6a814903-de95-4b0a-bf3c-a09aba2b6eda"] }, Open ]], Cell[CellGroupData[{ -Cell[210613, 5812, 6122, 187, 840, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], -Cell[216738, 6001, 274, 5, 40, "Output",ExpressionUUID->"8b5952fa-df7b-4d2e-bb08-6d76b814479c"] +Cell[210613, 5812, 6122, 187, 248, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], +Cell[216738, 6001, 274, 5, 25, "Output",ExpressionUUID->"8b5952fa-df7b-4d2e-bb08-6d76b814479c"] }, Open ]], Cell[CellGroupData[{ -Cell[217049, 6011, 368, 9, 50, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], -Cell[217420, 6022, 269, 5, 40, "Output",ExpressionUUID->"950b0482-a297-498b-a36c-8cf04d86b94f"] +Cell[217049, 6011, 368, 9, 31, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], +Cell[217420, 6022, 269, 5, 25, "Output",ExpressionUUID->"950b0482-a297-498b-a36c-8cf04d86b94f"] }, Open ]], Cell[CellGroupData[{ -Cell[217726, 6032, 2663, 88, 406, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], -Cell[220392, 6122, 273, 5, 40, "Output",ExpressionUUID->"ad197901-c35e-433a-87ff-90997f407a95"] +Cell[217726, 6032, 2663, 88, 123, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], +Cell[220392, 6122, 273, 5, 25, "Output",ExpressionUUID->"ad197901-c35e-433a-87ff-90997f407a95"] }, Open ]], Cell[CellGroupData[{ -Cell[220702, 6132, 2603, 85, 406, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], -Cell[223308, 6219, 268, 5, 40, "Output",ExpressionUUID->"853ef337-9927-4eb7-a946-92f635d743cf"] +Cell[220702, 6132, 2603, 85, 123, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], +Cell[223308, 6219, 268, 5, 25, "Output",ExpressionUUID->"853ef337-9927-4eb7-a946-92f635d743cf"] }, Open ]], Cell[CellGroupData[{ -Cell[223613, 6229, 3712, 118, 535, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], -Cell[227328, 6349, 274, 5, 40, "Output",ExpressionUUID->"52535f3a-4a2f-4296-b3bf-94e5ad050399"] +Cell[223613, 6229, 3712, 118, 182, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], +Cell[227328, 6349, 274, 5, 25, "Output",ExpressionUUID->"52535f3a-4a2f-4296-b3bf-94e5ad050399"] }, Open ]], -Cell[227617, 6357, 164, 4, 35, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], +Cell[227617, 6357, 164, 4, 22, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ -Cell[227806, 6365, 2075, 59, 261, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], -Cell[229884, 6426, 665, 15, 96, "Message",ExpressionUUID->"fe50f6f6-8b11-4097-9ac4-3ff35e578189"], -Cell[230552, 6443, 755, 16, 72, "Message",ExpressionUUID->"5836f404-8a9f-41ba-a836-d5225287fb7f"], -Cell[231310, 6461, 754, 16, 72, "Message",ExpressionUUID->"10ca8129-3cd8-479a-9b29-7e7ad537b79b"], -Cell[232067, 6479, 572, 13, 31, "Message",ExpressionUUID->"054c6a23-b68e-4dba-a3b1-82c9f504af16"], -Cell[232642, 6494, 274, 5, 40, "Output",ExpressionUUID->"987c8bb9-43b9-4b8f-960b-2976d79d8eab"] +Cell[227806, 6365, 2075, 59, 69, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], +Cell[229884, 6426, 665, 15, 43, "Message",ExpressionUUID->"fe50f6f6-8b11-4097-9ac4-3ff35e578189"], +Cell[230552, 6443, 755, 16, 43, "Message",ExpressionUUID->"5836f404-8a9f-41ba-a836-d5225287fb7f"], +Cell[231310, 6461, 754, 16, 54, "Message",ExpressionUUID->"10ca8129-3cd8-479a-9b29-7e7ad537b79b"], +Cell[232067, 6479, 572, 13, 54, "Message",ExpressionUUID->"054c6a23-b68e-4dba-a3b1-82c9f504af16"], +Cell[232642, 6494, 274, 5, 54, "Output",ExpressionUUID->"987c8bb9-43b9-4b8f-960b-2976d79d8eab"] }, Open ]], Cell[CellGroupData[{ -Cell[232953, 6504, 2077, 59, 261, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], -Cell[235033, 6565, 612, 14, 96, "Message",ExpressionUUID->"62acd717-eb91-4842-9a67-595464b2d25b"], -Cell[235648, 6581, 703, 15, 72, "Message",ExpressionUUID->"d9eaa369-a6f3-4f61-84ce-f25867c9c069"], -Cell[236354, 6598, 702, 15, 72, "Message",ExpressionUUID->"299fd6f8-de41-42ad-8e75-ef5fd7185119"], -Cell[237059, 6615, 520, 12, 31, "Message",ExpressionUUID->"624573a1-3ca6-426a-8554-c3841b02aaa6"], -Cell[237582, 6629, 217, 4, 40, "Output",ExpressionUUID->"7fe0ee60-03da-447d-835d-29202b30402d"] +Cell[232953, 6504, 2077, 59, 54, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], +Cell[235033, 6565, 612, 14, 43, "Message",ExpressionUUID->"62acd717-eb91-4842-9a67-595464b2d25b"], +Cell[235648, 6581, 703, 15, 43, "Message",ExpressionUUID->"d9eaa369-a6f3-4f61-84ce-f25867c9c069"], +Cell[236354, 6598, 702, 15, 43, "Message",ExpressionUUID->"299fd6f8-de41-42ad-8e75-ef5fd7185119"], +Cell[237059, 6615, 520, 12, 19, "Message",ExpressionUUID->"624573a1-3ca6-426a-8554-c3841b02aaa6"], +Cell[237582, 6629, 217, 4, 25, "Output",ExpressionUUID->"7fe0ee60-03da-447d-835d-29202b30402d"] }, Open ]], Cell[CellGroupData[{ -Cell[237836, 6638, 2053, 55, 218, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], -Cell[239892, 6695, 20563, 387, 283, "Output",ExpressionUUID->"cc9d3397-7642-44b4-a4b3-c24fe4c5a0fd"] +Cell[237836, 6638, 2053, 55, 37, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], +Cell[239892, 6695, 20563, 387, 177, "Output",ExpressionUUID->"cc9d3397-7642-44b4-a4b3-c24fe4c5a0fd"] }, Open ]], Cell[CellGroupData[{ -Cell[260492, 7087, 2117, 60, 294, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], -Cell[262612, 7149, 532, 12, 70, "Message",ExpressionUUID->"0c3a806d-92ad-4f51-87de-3d30089a545b"], -Cell[263147, 7163, 533, 12, 70, "Message",ExpressionUUID->"5e7e8083-251d-40bd-88c1-2173be5e8cb2"], -Cell[263683, 7177, 538, 12, 70, "Message",ExpressionUUID->"ab768ce9-4011-4f61-8353-bbae4b41ab76"], -Cell[264224, 7191, 495, 11, 31, "Message",ExpressionUUID->"418dcade-37a2-4357-85be-bfe43e6c42bb"], -Cell[264722, 7204, 22176, 411, 279, "Output",ExpressionUUID->"37f72b49-d2e6-48ae-9ae2-24e54431e2a3"] +Cell[260492, 7087, 2117, 60, 69, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], +Cell[262612, 7149, 532, 12, 54, "Message",ExpressionUUID->"0c3a806d-92ad-4f51-87de-3d30089a545b"], +Cell[263147, 7163, 533, 12, 54, "Message",ExpressionUUID->"5e7e8083-251d-40bd-88c1-2173be5e8cb2"], +Cell[263683, 7177, 538, 12, 54, "Message",ExpressionUUID->"ab768ce9-4011-4f61-8353-bbae4b41ab76"], +Cell[264224, 7191, 495, 11, 54, "Message",ExpressionUUID->"418dcade-37a2-4357-85be-bfe43e6c42bb"], +Cell[264722, 7204, 22176, 411, 54, "Output",ExpressionUUID->"37f72b49-d2e6-48ae-9ae2-24e54431e2a3"] }, Open ]], Cell[CellGroupData[{ -Cell[286935, 7620, 2529, 70, 258, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], -Cell[289467, 7692, 9471, 220, 286, "Output",ExpressionUUID->"5ee811a4-492d-4370-adae-0a8d1e1b789b"] +Cell[286935, 7620, 2529, 70, 54, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], +Cell[289467, 7692, 9471, 220, 54, "Output",ExpressionUUID->"5ee811a4-492d-4370-adae-0a8d1e1b789b"] }, Open ]], Cell[CellGroupData[{ -Cell[298975, 7917, 232, 5, 35, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], -Cell[299210, 7924, 28506, 540, 279, "Output",ExpressionUUID->"6f716bef-b33a-4363-918b-90540967b81d"] +Cell[298975, 7917, 232, 5, 54, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], +Cell[299210, 7924, 28506, 540, 54, "Output",ExpressionUUID->"6f716bef-b33a-4363-918b-90540967b81d"] }, Open ]], Cell[CellGroupData[{ -Cell[327753, 8469, 237, 7, 58, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], -Cell[327993, 8478, 196, 3, 40, "Output",ExpressionUUID->"e383eab1-7b0f-42c0-a7fe-63f91c045bca"] +Cell[327753, 8469, 237, 7, 54, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], +Cell[327993, 8478, 196, 3, 25, "Output",ExpressionUUID->"e383eab1-7b0f-42c0-a7fe-63f91c045bca"] }, Open ]], Cell[CellGroupData[{ -Cell[328226, 8486, 1837, 53, 294, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], -Cell[330066, 8541, 548, 12, 70, "Message",ExpressionUUID->"ce848234-476b-4f84-a01b-a05d1f7cb894"], -Cell[330617, 8555, 548, 12, 70, "Message",ExpressionUUID->"bc6ae7c8-5ff9-4f9f-8493-289bd5db4e17"], -Cell[331168, 8569, 552, 12, 70, "Message",ExpressionUUID->"caf80f91-8025-4b2d-9ed5-2ad9d9ca8ee9"], -Cell[331723, 8583, 495, 11, 31, "Message",ExpressionUUID->"91d44f0a-ef64-49af-81f6-eedeb7a3749e"], -Cell[332221, 8596, 21923, 408, 279, "Output",ExpressionUUID->"0226de08-6f76-4587-9913-f88f20e10a55"] +Cell[328226, 8486, 1837, 53, 80, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], +Cell[330066, 8541, 548, 12, 32, "Message",ExpressionUUID->"ce848234-476b-4f84-a01b-a05d1f7cb894"], +Cell[330617, 8555, 548, 12, 32, "Message",ExpressionUUID->"bc6ae7c8-5ff9-4f9f-8493-289bd5db4e17"], +Cell[331168, 8569, 552, 12, 32, "Message",ExpressionUUID->"caf80f91-8025-4b2d-9ed5-2ad9d9ca8ee9"], +Cell[331723, 8583, 495, 11, 19, "Message",ExpressionUUID->"91d44f0a-ef64-49af-81f6-eedeb7a3749e"], +Cell[332221, 8596, 21923, 408, 174, "Output",ExpressionUUID->"0226de08-6f76-4587-9913-f88f20e10a55"] }, Open ]], Cell[CellGroupData[{ -Cell[354181, 9009, 1616, 48, 124, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], -Cell[355800, 9059, 674, 14, 72, "Message",ExpressionUUID->"ecb5410d-e184-4e12-8a1f-d5c83697d7ce"], -Cell[356477, 9075, 677, 14, 72, "Message",ExpressionUUID->"56cffef2-2c25-43c8-8ec2-60e9923c6dd6"], -Cell[357157, 9091, 676, 14, 72, "Message",ExpressionUUID->"ffa8f6d9-a3ec-4c75-b8de-183bb29bc06e"], -Cell[357836, 9107, 495, 11, 31, "Message",ExpressionUUID->"263d9c58-07af-4266-a874-ba1e2f46537f"], -Cell[358334, 9120, 194, 3, 40, "Output",ExpressionUUID->"c682550c-a8c3-47bc-8e6f-ed4c2e9d75f7"] +Cell[354181, 9009, 1616, 48, 58, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], +Cell[355800, 9059, 674, 14, 32, "Message",ExpressionUUID->"ecb5410d-e184-4e12-8a1f-d5c83697d7ce"], +Cell[356477, 9075, 677, 14, 32, "Message",ExpressionUUID->"56cffef2-2c25-43c8-8ec2-60e9923c6dd6"], +Cell[357157, 9091, 676, 14, 32, "Message",ExpressionUUID->"ffa8f6d9-a3ec-4c75-b8de-183bb29bc06e"], +Cell[357836, 9107, 495, 11, 19, "Message",ExpressionUUID->"263d9c58-07af-4266-a874-ba1e2f46537f"], +Cell[358334, 9120, 194, 3, 25, "Output",ExpressionUUID->"c682550c-a8c3-47bc-8e6f-ed4c2e9d75f7"] }, Open ]], Cell[CellGroupData[{ -Cell[358565, 9128, 2272, 64, 331, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], -Cell[360840, 9194, 587, 13, 96, "Message",ExpressionUUID->"4f2291fd-19b6-47e3-ab4e-62799cd21dd7"], -Cell[361430, 9209, 676, 14, 72, "Message",ExpressionUUID->"83fd7fc0-40ac-415c-8eb9-5c19f744cd2f"], -Cell[362109, 9225, 677, 14, 72, "Message",ExpressionUUID->"0c6d341d-9f07-4375-a707-0e04baafc3af"], -Cell[362789, 9241, 495, 11, 31, "Message",ExpressionUUID->"f0958036-726a-48b9-8817-854fb497eeb6"], -Cell[363287, 9254, 196, 3, 40, "Output",ExpressionUUID->"0f4ad498-d668-4ee3-9664-c78eef2a59be"] +Cell[358565, 9128, 2272, 64, 50, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], +Cell[360840, 9194, 587, 13, 32, "Message",ExpressionUUID->"4f2291fd-19b6-47e3-ab4e-62799cd21dd7"], +Cell[361430, 9209, 676, 14, 32, "Message",ExpressionUUID->"83fd7fc0-40ac-415c-8eb9-5c19f744cd2f"], +Cell[362109, 9225, 677, 14, 32, "Message",ExpressionUUID->"0c6d341d-9f07-4375-a707-0e04baafc3af"], +Cell[362789, 9241, 495, 11, 19, "Message",ExpressionUUID->"f0958036-726a-48b9-8817-854fb497eeb6"], +Cell[363287, 9254, 196, 3, 25, "Output",ExpressionUUID->"0f4ad498-d668-4ee3-9664-c78eef2a59be"] }, Open ]], Cell[CellGroupData[{ -Cell[363520, 9262, 2233, 63, 331, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], -Cell[365756, 9327, 584, 13, 96, "Message",ExpressionUUID->"a5c93ae9-e6ee-4c06-bccc-c945076b5a39"], -Cell[366343, 9342, 673, 14, 72, "Message",ExpressionUUID->"5ecc8f8a-9080-4667-91d6-12ffdaa39a36"], -Cell[367019, 9358, 674, 14, 72, "Message",ExpressionUUID->"8f0ad0e6-db62-4e50-8f6b-253991d0c3ef"], -Cell[367696, 9374, 492, 11, 31, "Message",ExpressionUUID->"094083fb-0959-4d12-b38a-d8953f514363"], -Cell[368191, 9387, 195, 3, 40, "Output",ExpressionUUID->"e5a1445c-8af3-41ba-afaa-837e7555c72a"] +Cell[363520, 9262, 2233, 63, 50, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], +Cell[365756, 9327, 584, 13, 32, "Message",ExpressionUUID->"a5c93ae9-e6ee-4c06-bccc-c945076b5a39"], +Cell[366343, 9342, 673, 14, 32, "Message",ExpressionUUID->"5ecc8f8a-9080-4667-91d6-12ffdaa39a36"], +Cell[367019, 9358, 674, 14, 32, "Message",ExpressionUUID->"8f0ad0e6-db62-4e50-8f6b-253991d0c3ef"], +Cell[367696, 9374, 492, 11, 19, "Message",ExpressionUUID->"094083fb-0959-4d12-b38a-d8953f514363"], +Cell[368191, 9387, 195, 3, 25, "Output",ExpressionUUID->"e5a1445c-8af3-41ba-afaa-837e7555c72a"] }, Open ]], Cell[CellGroupData[{ -Cell[368423, 9395, 2235, 63, 331, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], -Cell[370661, 9460, 587, 13, 96, "Message",ExpressionUUID->"f2a13e83-0601-4d36-bd18-289c10a57cb2"], -Cell[371251, 9475, 674, 14, 72, "Message",ExpressionUUID->"4d719217-c027-4158-9fae-a8652c2b5421"], -Cell[371928, 9491, 677, 14, 72, "Message",ExpressionUUID->"749595b3-27a9-4a60-9da0-cf620432c4eb"], -Cell[372608, 9507, 492, 11, 31, "Message",ExpressionUUID->"e88374a1-22dc-4feb-a2fc-1b51a744257b"], -Cell[373103, 9520, 194, 3, 40, "Output",ExpressionUUID->"b8b4f5eb-441b-44f6-9adc-ae4b9dca59c1"] +Cell[368423, 9395, 2235, 63, 50, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], +Cell[370661, 9460, 587, 13, 32, "Message",ExpressionUUID->"f2a13e83-0601-4d36-bd18-289c10a57cb2"], +Cell[371251, 9475, 674, 14, 32, "Message",ExpressionUUID->"4d719217-c027-4158-9fae-a8652c2b5421"], +Cell[371928, 9491, 677, 14, 32, "Message",ExpressionUUID->"749595b3-27a9-4a60-9da0-cf620432c4eb"], +Cell[372608, 9507, 492, 11, 19, "Message",ExpressionUUID->"e88374a1-22dc-4feb-a2fc-1b51a744257b"], +Cell[373103, 9520, 194, 3, 25, "Output",ExpressionUUID->"b8b4f5eb-441b-44f6-9adc-ae4b9dca59c1"] }, Open ]], Cell[CellGroupData[{ -Cell[373334, 9528, 236, 6, 56, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], -Cell[373573, 9536, 195, 3, 40, "Output",ExpressionUUID->"c2a99505-9956-407b-b124-4696cae57ab4"] +Cell[373334, 9528, 236, 6, 38, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], +Cell[373573, 9536, 195, 3, 25, "Output",ExpressionUUID->"c2a99505-9956-407b-b124-4696cae57ab4"] }, Open ]], -Cell[373783, 9542, 273, 6, 35, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], +Cell[373783, 9542, 273, 6, 22, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ -Cell[374081, 9552, 558, 19, 63, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], -Cell[374642, 9573, 192, 3, 40, "Output",ExpressionUUID->"d5929414-1fba-4b07-9688-fd4d361abc13"] +Cell[374081, 9552, 558, 19, 40, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], +Cell[374642, 9573, 192, 3, 25, "Output",ExpressionUUID->"d5929414-1fba-4b07-9688-fd4d361abc13"] }, Open ]], Cell[CellGroupData[{ -Cell[374871, 9581, 170, 5, 67, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], -Cell[375044, 9588, 195, 3, 40, "Output",ExpressionUUID->"0ab71679-554d-49d5-9dae-e9d812a80f38"] +Cell[374871, 9581, 170, 5, 44, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], +Cell[375044, 9588, 195, 3, 25, "Output",ExpressionUUID->"0ab71679-554d-49d5-9dae-e9d812a80f38"] }, Open ]], Cell[CellGroupData[{ -Cell[375276, 9596, 181, 5, 52, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], -Cell[375460, 9603, 195, 3, 40, "Output",ExpressionUUID->"b9637100-760f-49c7-907a-ff75788fd373"] +Cell[375276, 9596, 181, 5, 35, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], +Cell[375460, 9603, 195, 3, 25, "Output",ExpressionUUID->"b9637100-760f-49c7-907a-ff75788fd373"] }, Open ]], Cell[CellGroupData[{ -Cell[375692, 9611, 6055, 185, 777, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], -Cell[381750, 9798, 195, 3, 40, "Output",ExpressionUUID->"b8153e8b-f9a8-41e1-af3c-82c7bea99152"] +Cell[375692, 9611, 6055, 185, 153, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], +Cell[381750, 9798, 195, 3, 25, "Output",ExpressionUUID->"b8153e8b-f9a8-41e1-af3c-82c7bea99152"] }, Open ]], Cell[CellGroupData[{ -Cell[381982, 9806, 368, 9, 50, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], -Cell[382353, 9817, 193, 3, 40, "Output",ExpressionUUID->"0faee5b1-5faa-4170-92c1-3f48ae43bc12"] +Cell[381982, 9806, 368, 9, 31, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], +Cell[382353, 9817, 193, 3, 25, "Output",ExpressionUUID->"0faee5b1-5faa-4170-92c1-3f48ae43bc12"] }, Open ]], Cell[CellGroupData[{ -Cell[382583, 9825, 6122, 187, 840, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], -Cell[388708, 10014, 196, 3, 40, "Output",ExpressionUUID->"e9be25f5-ea18-4af3-9dda-116acf74ff68"] +Cell[382583, 9825, 6122, 187, 153, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], +Cell[388708, 10014, 196, 3, 25, "Output",ExpressionUUID->"e9be25f5-ea18-4af3-9dda-116acf74ff68"] }, Open ]], Cell[CellGroupData[{ -Cell[388941, 10022, 368, 9, 50, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], -Cell[389312, 10033, 193, 3, 40, "Output",ExpressionUUID->"c53b671a-df6c-4b7b-ac86-69534398fa7e"] +Cell[388941, 10022, 368, 9, 31, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], +Cell[389312, 10033, 193, 3, 25, "Output",ExpressionUUID->"c53b671a-df6c-4b7b-ac86-69534398fa7e"] }, Open ]], Cell[CellGroupData[{ -Cell[389542, 10041, 2663, 88, 406, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], -Cell[392208, 10131, 196, 3, 40, "Output",ExpressionUUID->"9f1144c2-6cfe-42eb-b907-f2d1439db699"] +Cell[389542, 10041, 2663, 88, 90, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], +Cell[392208, 10131, 196, 3, 25, "Output",ExpressionUUID->"9f1144c2-6cfe-42eb-b907-f2d1439db699"] }, Open ]], Cell[CellGroupData[{ -Cell[392441, 10139, 2603, 85, 406, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], -Cell[395047, 10226, 195, 3, 40, "Output",ExpressionUUID->"00f64a19-0434-498a-a9c6-985ba04cf2e7"] +Cell[392441, 10139, 2603, 85, 45, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], +Cell[395047, 10226, 195, 3, 25, "Output",ExpressionUUID->"00f64a19-0434-498a-a9c6-985ba04cf2e7"] }, Open ]], Cell[CellGroupData[{ -Cell[395279, 10234, 3712, 118, 535, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], -Cell[398994, 10354, 195, 3, 40, "Output",ExpressionUUID->"2b9824d3-4ef0-40b0-9b47-5785c208aec1"] +Cell[395279, 10234, 3712, 118, 135, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], +Cell[398994, 10354, 195, 3, 25, "Output",ExpressionUUID->"2b9824d3-4ef0-40b0-9b47-5785c208aec1"] }, Open ]], Cell[CellGroupData[{ -Cell[399226, 10362, 2075, 59, 261, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], -Cell[401304, 10423, 566, 12, 96, "Message",ExpressionUUID->"21e061db-9fe0-4b8e-9a85-4b01e81d3dc0"], -Cell[401873, 10437, 571, 12, 96, "Message",ExpressionUUID->"9057dc14-1620-4fb0-b559-e06501b3b97d"], -Cell[402447, 10451, 574, 12, 96, "Message",ExpressionUUID->"6bf0e770-ff6f-4982-9299-0846b158f8fd"], -Cell[403024, 10465, 495, 11, 31, "Message",ExpressionUUID->"16ef0941-d8f6-48c9-9812-008987f9aa8e"], -Cell[403522, 10478, 196, 3, 40, "Output",ExpressionUUID->"967adaf7-8c54-475b-b400-fe2ef9da08de"] +Cell[399226, 10362, 2075, 59, 80, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], +Cell[401304, 10423, 566, 12, 32, "Message",ExpressionUUID->"21e061db-9fe0-4b8e-9a85-4b01e81d3dc0"], +Cell[401873, 10437, 571, 12, 32, "Message",ExpressionUUID->"9057dc14-1620-4fb0-b559-e06501b3b97d"], +Cell[402447, 10451, 574, 12, 32, "Message",ExpressionUUID->"6bf0e770-ff6f-4982-9299-0846b158f8fd"], +Cell[403024, 10465, 495, 11, 19, "Message",ExpressionUUID->"16ef0941-d8f6-48c9-9812-008987f9aa8e"], +Cell[403522, 10478, 196, 3, 25, "Output",ExpressionUUID->"967adaf7-8c54-475b-b400-fe2ef9da08de"] }, Open ]], Cell[CellGroupData[{ -Cell[403755, 10486, 2077, 59, 261, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], -Cell[405835, 10547, 568, 12, 96, "Message",ExpressionUUID->"f3a7e894-798f-4fba-bdfb-eba7689af6e8"], -Cell[406406, 10561, 571, 12, 96, "Message",ExpressionUUID->"23dfe279-8f5e-44e7-9336-fa6ae58841bd"], -Cell[406980, 10575, 574, 12, 96, "Message",ExpressionUUID->"bbdf3526-dd61-455c-8398-08cde095e909"], -Cell[407557, 10589, 495, 11, 31, "Message",ExpressionUUID->"b59a0bf5-c5c9-4688-8bd8-a5f19c63198f"], -Cell[408055, 10602, 193, 3, 40, "Output",ExpressionUUID->"f513b1b9-5ad0-44de-861f-953555c5afa1"] +Cell[403755, 10486, 2077, 59, 80, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], +Cell[405835, 10547, 568, 12, 32, "Message",ExpressionUUID->"f3a7e894-798f-4fba-bdfb-eba7689af6e8"], +Cell[406406, 10561, 571, 12, 32, "Message",ExpressionUUID->"23dfe279-8f5e-44e7-9336-fa6ae58841bd"], +Cell[406980, 10575, 574, 12, 32, "Message",ExpressionUUID->"bbdf3526-dd61-455c-8398-08cde095e909"], +Cell[407557, 10589, 495, 11, 19, "Message",ExpressionUUID->"b59a0bf5-c5c9-4688-8bd8-a5f19c63198f"], +Cell[408055, 10602, 193, 3, 25, "Output",ExpressionUUID->"f513b1b9-5ad0-44de-861f-953555c5afa1"] }, Open ]], Cell[CellGroupData[{ -Cell[408285, 10610, 2053, 55, 218, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], -Cell[410341, 10667, 20263, 383, 279, "Output",ExpressionUUID->"52c22aed-c647-40dc-acd3-7678ca8f9ad8"] +Cell[408285, 10610, 2053, 55, 42, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], +Cell[410341, 10667, 20263, 383, 174, "Output",ExpressionUUID->"52c22aed-c647-40dc-acd3-7678ca8f9ad8"] }, Open ]], Cell[CellGroupData[{ -Cell[430641, 11055, 2141, 60, 294, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], -Cell[432785, 11117, 532, 12, 70, "Message",ExpressionUUID->"3c2b6c3e-ab94-432b-a8d7-898b80709076"], -Cell[433320, 11131, 533, 12, 70, "Message",ExpressionUUID->"9c1983a0-c6ca-42cd-898e-86e5ed8770b2"], -Cell[433856, 11145, 536, 12, 70, "Message",ExpressionUUID->"0e130ab8-c9d8-4902-b72c-25716b3d64ce"], -Cell[434395, 11159, 493, 11, 31, "Message",ExpressionUUID->"d3dcd190-3148-41bb-bb84-b4a08fa2317a"], -Cell[434891, 11172, 21786, 405, 279, "Output",ExpressionUUID->"b1587433-462c-4c12-a6c3-f63c1ee08a99"] +Cell[430641, 11055, 2141, 60, 80, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], +Cell[432785, 11117, 532, 12, 32, "Message",ExpressionUUID->"3c2b6c3e-ab94-432b-a8d7-898b80709076"], +Cell[433320, 11131, 533, 12, 32, "Message",ExpressionUUID->"9c1983a0-c6ca-42cd-898e-86e5ed8770b2"], +Cell[433856, 11145, 536, 12, 32, "Message",ExpressionUUID->"0e130ab8-c9d8-4902-b72c-25716b3d64ce"], +Cell[434395, 11159, 493, 11, 19, "Message",ExpressionUUID->"d3dcd190-3148-41bb-bb84-b4a08fa2317a"], +Cell[434891, 11172, 21786, 405, 174, "Output",ExpressionUUID->"b1587433-462c-4c12-a6c3-f63c1ee08a99"] }, Open ]], -Cell[456692, 11580, 200, 4, 35, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], +Cell[456692, 11580, 200, 4, 22, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], Cell[CellGroupData[{ -Cell[456917, 11588, 232, 5, 35, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], -Cell[457152, 11595, 28121, 534, 279, "Output",ExpressionUUID->"9b2b3222-bc34-4318-b652-ee2577e2f2bd"] +Cell[456917, 11588, 232, 5, 22, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], +Cell[457152, 11595, 28121, 534, 174, "Output",ExpressionUUID->"9b2b3222-bc34-4318-b652-ee2577e2f2bd"] }, Open ]], Cell[CellGroupData[{ -Cell[485310, 12134, 1616, 48, 124, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], -Cell[486929, 12184, 676, 14, 72, "Message",ExpressionUUID->"94489e8c-1cb5-4aae-a296-eb4bf6ff69ce"], -Cell[487608, 12200, 677, 14, 72, "Message",ExpressionUUID->"1387aee6-dcdc-44d5-aaa7-471aadea45d1"], -Cell[488288, 12216, 678, 14, 72, "Message",ExpressionUUID->"97ecb3f6-96cd-40fe-8428-88b3ec8eec79"], -Cell[488969, 12232, 497, 11, 31, "Message",ExpressionUUID->"29272bd0-91b5-489b-9b72-40b3113a0ee7"], -Cell[489469, 12245, 192, 3, 40, "Output",ExpressionUUID->"33cd1388-780f-484c-821c-4412847fa484"] +Cell[485310, 12134, 1616, 48, 58, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], +Cell[486929, 12184, 676, 14, 32, "Message",ExpressionUUID->"94489e8c-1cb5-4aae-a296-eb4bf6ff69ce"], +Cell[487608, 12200, 677, 14, 32, "Message",ExpressionUUID->"1387aee6-dcdc-44d5-aaa7-471aadea45d1"], +Cell[488288, 12216, 678, 14, 32, "Message",ExpressionUUID->"97ecb3f6-96cd-40fe-8428-88b3ec8eec79"], +Cell[488969, 12232, 497, 11, 19, "Message",ExpressionUUID->"29272bd0-91b5-489b-9b72-40b3113a0ee7"], +Cell[489469, 12245, 192, 3, 25, "Output",ExpressionUUID->"33cd1388-780f-484c-821c-4412847fa484"] }, Open ]], Cell[CellGroupData[{ -Cell[489698, 12253, 2270, 64, 331, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], -Cell[491971, 12319, 566, 12, 96, "Message",ExpressionUUID->"413df039-d1f0-40cc-ba28-df23175f2706"], -Cell[492540, 12333, 571, 12, 96, "Message",ExpressionUUID->"988627d0-f563-4923-8b21-49a13d3bb941"], -Cell[493114, 12347, 574, 12, 96, "Message",ExpressionUUID->"9c604d8a-0baa-423c-b18a-8732dfeddf4e"], -Cell[493691, 12361, 497, 11, 31, "Message",ExpressionUUID->"151374f9-ef06-42d3-9ec3-ac3d518c4f2d"], -Cell[494191, 12374, 197, 3, 40, "Output",ExpressionUUID->"e3da2886-614c-48a9-aefe-029771455ed3"] +Cell[489698, 12253, 2270, 64, 50, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], +Cell[491971, 12319, 566, 12, 32, "Message",ExpressionUUID->"413df039-d1f0-40cc-ba28-df23175f2706"], +Cell[492540, 12333, 571, 12, 32, "Message",ExpressionUUID->"988627d0-f563-4923-8b21-49a13d3bb941"], +Cell[493114, 12347, 574, 12, 32, "Message",ExpressionUUID->"9c604d8a-0baa-423c-b18a-8732dfeddf4e"], +Cell[493691, 12361, 497, 11, 19, "Message",ExpressionUUID->"151374f9-ef06-42d3-9ec3-ac3d518c4f2d"], +Cell[494191, 12374, 197, 3, 25, "Output",ExpressionUUID->"e3da2886-614c-48a9-aefe-029771455ed3"] }, Open ]], Cell[CellGroupData[{ -Cell[494425, 12382, 2233, 63, 331, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], -Cell[496661, 12447, 564, 12, 96, "Message",ExpressionUUID->"49c9dea2-938c-4740-9f21-4ab9b501896c"], -Cell[497228, 12461, 569, 12, 96, "Message",ExpressionUUID->"9146775b-8474-415c-bb86-60a3e71cb962"], -Cell[497800, 12475, 572, 12, 96, "Message",ExpressionUUID->"a4d33c59-be3a-4159-b51b-6c1a51a8ce2c"], -Cell[498375, 12489, 493, 11, 31, "Message",ExpressionUUID->"7dbaf65e-47d8-4278-b310-a6f4a685017b"], -Cell[498871, 12502, 194, 3, 40, "Output",ExpressionUUID->"82990ad7-0074-421f-ba94-58a1a040ebe8"] +Cell[494425, 12382, 2233, 63, 50, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], +Cell[496661, 12447, 564, 12, 32, "Message",ExpressionUUID->"49c9dea2-938c-4740-9f21-4ab9b501896c"], +Cell[497228, 12461, 569, 12, 32, "Message",ExpressionUUID->"9146775b-8474-415c-bb86-60a3e71cb962"], +Cell[497800, 12475, 572, 12, 32, "Message",ExpressionUUID->"a4d33c59-be3a-4159-b51b-6c1a51a8ce2c"], +Cell[498375, 12489, 493, 11, 19, "Message",ExpressionUUID->"7dbaf65e-47d8-4278-b310-a6f4a685017b"], +Cell[498871, 12502, 194, 3, 25, "Output",ExpressionUUID->"82990ad7-0074-421f-ba94-58a1a040ebe8"] }, Open ]], Cell[CellGroupData[{ -Cell[499102, 12510, 2233, 63, 331, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], -Cell[501338, 12575, 566, 12, 96, "Message",ExpressionUUID->"5142eb42-3bc7-405c-9464-7ea2adc48902"], -Cell[501907, 12589, 573, 12, 96, "Message",ExpressionUUID->"7962084e-8658-4134-a423-a04c3cf78f2c"], -Cell[502483, 12603, 574, 12, 96, "Message",ExpressionUUID->"fda57212-3ece-4f7e-80b5-b56025955856"], -Cell[503060, 12617, 494, 11, 31, "Message",ExpressionUUID->"203db6b1-f42b-446d-a1aa-05b49a31228c"], -Cell[503557, 12630, 194, 3, 40, "Output",ExpressionUUID->"7fbf773d-653e-4d75-924e-b96ac266b8a4"] +Cell[499102, 12510, 2233, 63, 50, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], +Cell[501338, 12575, 566, 12, 32, "Message",ExpressionUUID->"5142eb42-3bc7-405c-9464-7ea2adc48902"], +Cell[501907, 12589, 573, 12, 32, "Message",ExpressionUUID->"7962084e-8658-4134-a423-a04c3cf78f2c"], +Cell[502483, 12603, 574, 12, 32, "Message",ExpressionUUID->"fda57212-3ece-4f7e-80b5-b56025955856"], +Cell[503060, 12617, 494, 11, 19, "Message",ExpressionUUID->"203db6b1-f42b-446d-a1aa-05b49a31228c"], +Cell[503557, 12630, 194, 3, 25, "Output",ExpressionUUID->"7fbf773d-653e-4d75-924e-b96ac266b8a4"] }, Open ]], Cell[CellGroupData[{ -Cell[503788, 12638, 236, 6, 56, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], -Cell[504027, 12646, 198, 3, 40, "Output",ExpressionUUID->"523bfb2f-0fa5-41ae-9096-be9e305429e0"] +Cell[503788, 12638, 236, 6, 38, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], +Cell[504027, 12646, 198, 3, 25, "Output",ExpressionUUID->"523bfb2f-0fa5-41ae-9096-be9e305429e0"] }, Open ]], -Cell[504240, 12652, 271, 6, 35, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], +Cell[504240, 12652, 271, 6, 22, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ -Cell[504536, 12662, 558, 19, 63, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], -Cell[505097, 12683, 195, 3, 40, "Output",ExpressionUUID->"7e1ac2e1-c855-4857-bd83-0825d7bac6e6"] +Cell[504536, 12662, 558, 19, 40, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], +Cell[505097, 12683, 195, 3, 25, "Output",ExpressionUUID->"7e1ac2e1-c855-4857-bd83-0825d7bac6e6"] }, Open ]], Cell[CellGroupData[{ -Cell[505329, 12691, 170, 5, 67, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], -Cell[505502, 12698, 192, 3, 40, "Output",ExpressionUUID->"263cb3f1-3b0d-4fc1-a553-d0cfe26e8e47"] +Cell[505329, 12691, 170, 5, 44, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], +Cell[505502, 12698, 192, 3, 25, "Output",ExpressionUUID->"263cb3f1-3b0d-4fc1-a553-d0cfe26e8e47"] }, Open ]], Cell[CellGroupData[{ -Cell[505731, 12706, 181, 5, 52, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], -Cell[505915, 12713, 197, 3, 40, "Output",ExpressionUUID->"1591d511-d6d7-473d-86c6-29e935d2f3b9"] +Cell[505731, 12706, 181, 5, 35, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], +Cell[505915, 12713, 197, 3, 25, "Output",ExpressionUUID->"1591d511-d6d7-473d-86c6-29e935d2f3b9"] }, Open ]], Cell[CellGroupData[{ -Cell[506149, 12721, 6055, 185, 777, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], -Cell[512207, 12908, 196, 3, 40, "Output",ExpressionUUID->"6d49b682-dcc3-49a0-9ff1-415879839e6e"] +Cell[506149, 12721, 6055, 185, 153, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], +Cell[512207, 12908, 196, 3, 25, "Output",ExpressionUUID->"6d49b682-dcc3-49a0-9ff1-415879839e6e"] }, Open ]], Cell[CellGroupData[{ -Cell[512440, 12916, 368, 9, 50, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], -Cell[512811, 12927, 191, 3, 40, "Output",ExpressionUUID->"4832343c-ae39-465f-9098-7cc6a784070e"] +Cell[512440, 12916, 368, 9, 31, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], +Cell[512811, 12927, 191, 3, 25, "Output",ExpressionUUID->"4832343c-ae39-465f-9098-7cc6a784070e"] }, Open ]], Cell[CellGroupData[{ -Cell[513039, 12935, 6122, 187, 840, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], -Cell[519164, 13124, 196, 3, 40, "Output",ExpressionUUID->"5afd1aae-69e4-4e07-8939-def7e9dab7ea"] +Cell[513039, 12935, 6122, 187, 153, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], +Cell[519164, 13124, 196, 3, 25, "Output",ExpressionUUID->"5afd1aae-69e4-4e07-8939-def7e9dab7ea"] }, Open ]], Cell[CellGroupData[{ -Cell[519397, 13132, 368, 9, 50, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], -Cell[519768, 13143, 195, 3, 40, "Output",ExpressionUUID->"09219f72-7524-4245-be3b-7ad1314f284b"] +Cell[519397, 13132, 368, 9, 31, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], +Cell[519768, 13143, 195, 3, 25, "Output",ExpressionUUID->"09219f72-7524-4245-be3b-7ad1314f284b"] }, Open ]], Cell[CellGroupData[{ -Cell[520000, 13151, 2663, 88, 406, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], -Cell[522666, 13241, 196, 3, 40, "Output",ExpressionUUID->"175bf8c7-ec17-4998-8d14-59cb33988ab0"] +Cell[520000, 13151, 2663, 88, 90, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], +Cell[522666, 13241, 196, 3, 25, "Output",ExpressionUUID->"175bf8c7-ec17-4998-8d14-59cb33988ab0"] }, Open ]], Cell[CellGroupData[{ -Cell[522899, 13249, 2603, 85, 406, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], -Cell[525505, 13336, 193, 3, 40, "Output",ExpressionUUID->"e09164b1-5c0c-4f00-8be1-ab00cf8a7496"] +Cell[522899, 13249, 2603, 85, 45, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], +Cell[525505, 13336, 193, 3, 25, "Output",ExpressionUUID->"e09164b1-5c0c-4f00-8be1-ab00cf8a7496"] }, Open ]], Cell[CellGroupData[{ -Cell[525735, 13344, 3712, 118, 535, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], -Cell[529450, 13464, 193, 3, 40, "Output",ExpressionUUID->"43afa503-7f37-4d80-93c5-60c77716c97c"] +Cell[525735, 13344, 3712, 118, 135, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], +Cell[529450, 13464, 193, 3, 25, "Output",ExpressionUUID->"43afa503-7f37-4d80-93c5-60c77716c97c"] }, Open ]], Cell[CellGroupData[{ -Cell[529680, 13472, 2075, 59, 261, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], -Cell[531758, 13533, 573, 12, 96, "Message",ExpressionUUID->"74b49590-7139-4c26-8a94-ac70e70874c3"], -Cell[532334, 13547, 573, 12, 96, "Message",ExpressionUUID->"d9d45a48-9923-4344-b05b-6a37b1c2b09a"], -Cell[532910, 13561, 583, 13, 96, "Message",ExpressionUUID->"ddc6472f-51b1-4aa2-b4df-b7c057434580"], -Cell[533496, 13576, 497, 11, 31, "Message",ExpressionUUID->"1f4697e6-72d5-4c3d-9efb-ce98ed03f574"], -Cell[533996, 13589, 194, 3, 40, "Output",ExpressionUUID->"4b97a184-8247-4e1f-a51e-d507fcc87bf8"] +Cell[529680, 13472, 2075, 59, 80, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], +Cell[531758, 13533, 573, 12, 32, "Message",ExpressionUUID->"74b49590-7139-4c26-8a94-ac70e70874c3"], +Cell[532334, 13547, 573, 12, 32, "Message",ExpressionUUID->"d9d45a48-9923-4344-b05b-6a37b1c2b09a"], +Cell[532910, 13561, 583, 13, 32, "Message",ExpressionUUID->"ddc6472f-51b1-4aa2-b4df-b7c057434580"], +Cell[533496, 13576, 497, 11, 19, "Message",ExpressionUUID->"1f4697e6-72d5-4c3d-9efb-ce98ed03f574"], +Cell[533996, 13589, 194, 3, 25, "Output",ExpressionUUID->"4b97a184-8247-4e1f-a51e-d507fcc87bf8"] }, Open ]], Cell[CellGroupData[{ -Cell[534227, 13597, 2077, 59, 261, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], -Cell[536307, 13658, 571, 12, 96, "Message",ExpressionUUID->"6ad66865-c9db-44d0-bed7-0375e23df679"], -Cell[536881, 13672, 573, 12, 96, "Message",ExpressionUUID->"4506c5b8-4b22-45fc-b315-d113b3be1b11"], -Cell[537457, 13686, 581, 13, 96, "Message",ExpressionUUID->"9bcefa65-57f2-4513-88b7-328799f98275"], -Cell[538041, 13701, 495, 11, 31, "Message",ExpressionUUID->"9bd429f0-5c1d-47d0-afa5-344c9901bca8"], -Cell[538539, 13714, 194, 3, 40, "Output",ExpressionUUID->"e51d6dd0-d0a1-48e0-a5ba-ec1c564b732d"] +Cell[534227, 13597, 2077, 59, 80, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], +Cell[536307, 13658, 571, 12, 32, "Message",ExpressionUUID->"6ad66865-c9db-44d0-bed7-0375e23df679"], +Cell[536881, 13672, 573, 12, 32, "Message",ExpressionUUID->"4506c5b8-4b22-45fc-b315-d113b3be1b11"], +Cell[537457, 13686, 581, 13, 32, "Message",ExpressionUUID->"9bcefa65-57f2-4513-88b7-328799f98275"], +Cell[538041, 13701, 495, 11, 19, "Message",ExpressionUUID->"9bd429f0-5c1d-47d0-afa5-344c9901bca8"], +Cell[538539, 13714, 194, 3, 25, "Output",ExpressionUUID->"e51d6dd0-d0a1-48e0-a5ba-ec1c564b732d"] }, Open ]], Cell[CellGroupData[{ -Cell[538770, 13722, 2053, 55, 218, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], -Cell[540826, 13779, 20275, 383, 279, "Output",ExpressionUUID->"6daec290-f786-4e63-a645-f78f243b3811"] +Cell[538770, 13722, 2053, 55, 42, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], +Cell[540826, 13779, 20275, 383, 174, "Output",ExpressionUUID->"6daec290-f786-4e63-a645-f78f243b3811"] }, Open ]], Cell[CellGroupData[{ -Cell[561138, 14167, 2141, 60, 294, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], -Cell[563282, 14229, 531, 12, 70, "Message",ExpressionUUID->"30972f83-ff0c-45a4-b407-c4621c16498f"], -Cell[563816, 14243, 533, 12, 70, "Message",ExpressionUUID->"cfe1eefe-44e9-4901-97c1-e7e7e4f9c9df"], -Cell[564352, 14257, 533, 12, 70, "Message",ExpressionUUID->"0cfb608a-5dc3-41f0-b2e3-b4fa7e1b2a0a"], -Cell[564888, 14271, 495, 11, 31, "Message",ExpressionUUID->"6f80750b-2967-4c67-a278-83eed6386c34"], -Cell[565386, 14284, 21555, 402, 279, "Output",ExpressionUUID->"106ffece-677e-4ac3-bf49-10c4305d921d"] +Cell[561138, 14167, 2141, 60, 80, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], +Cell[563282, 14229, 531, 12, 32, "Message",ExpressionUUID->"30972f83-ff0c-45a4-b407-c4621c16498f"], +Cell[563816, 14243, 533, 12, 32, "Message",ExpressionUUID->"cfe1eefe-44e9-4901-97c1-e7e7e4f9c9df"], +Cell[564352, 14257, 533, 12, 32, "Message",ExpressionUUID->"0cfb608a-5dc3-41f0-b2e3-b4fa7e1b2a0a"], +Cell[564888, 14271, 495, 11, 19, "Message",ExpressionUUID->"6f80750b-2967-4c67-a278-83eed6386c34"], +Cell[565386, 14284, 21555, 402, 174, "Output",ExpressionUUID->"106ffece-677e-4ac3-bf49-10c4305d921d"] }, Open ]], -Cell[586956, 14689, 207, 4, 35, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], +Cell[586956, 14689, 207, 4, 22, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], Cell[CellGroupData[{ -Cell[587188, 14697, 230, 5, 35, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], -Cell[587421, 14704, 27890, 531, 279, "Output",ExpressionUUID->"7fad279d-cb4d-4db9-b31f-78899e79d630"] +Cell[587188, 14697, 230, 5, 22, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], +Cell[587421, 14704, 27890, 531, 174, "Output",ExpressionUUID->"7fad279d-cb4d-4db9-b31f-78899e79d630"] }, Open ]], Cell[CellGroupData[{ -Cell[615348, 15240, 1616, 48, 124, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], -Cell[616967, 15290, 677, 14, 72, "Message",ExpressionUUID->"58f1f452-41b8-46cf-b658-1e8a306177e4"], -Cell[617647, 15306, 678, 14, 72, "Message",ExpressionUUID->"a17dd183-ba0e-401c-8c3a-d8b1ee036c54"], -Cell[618328, 15322, 676, 14, 72, "Message",ExpressionUUID->"5781f17b-7fdb-4fd0-9b9b-bc2894e79396"], -Cell[619007, 15338, 495, 11, 31, "Message",ExpressionUUID->"737eb4b1-9b99-4de8-ba65-6f8911c6c141"], -Cell[619505, 15351, 195, 3, 40, "Output",ExpressionUUID->"583963dc-81b6-4c21-80e2-9eac5ba4c27e"] +Cell[615348, 15240, 1616, 48, 58, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], +Cell[616967, 15290, 677, 14, 32, "Message",ExpressionUUID->"58f1f452-41b8-46cf-b658-1e8a306177e4"], +Cell[617647, 15306, 678, 14, 32, "Message",ExpressionUUID->"a17dd183-ba0e-401c-8c3a-d8b1ee036c54"], +Cell[618328, 15322, 676, 14, 32, "Message",ExpressionUUID->"5781f17b-7fdb-4fd0-9b9b-bc2894e79396"], +Cell[619007, 15338, 495, 11, 19, "Message",ExpressionUUID->"737eb4b1-9b99-4de8-ba65-6f8911c6c141"], +Cell[619505, 15351, 195, 3, 25, "Output",ExpressionUUID->"583963dc-81b6-4c21-80e2-9eac5ba4c27e"] }, Open ]], Cell[CellGroupData[{ -Cell[619737, 15359, 2269, 64, 331, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], -Cell[622009, 15425, 571, 12, 96, "Message",ExpressionUUID->"523a6360-a6a9-4e49-9897-f4c391fb1646"], -Cell[622583, 15439, 571, 12, 96, "Message",ExpressionUUID->"359cac77-e1a1-4a17-b6fc-05cc812eee08"], -Cell[623157, 15453, 579, 13, 96, "Message",ExpressionUUID->"8eead7c5-ed67-484c-91a4-6780a905f08d"], -Cell[623739, 15468, 492, 11, 31, "Message",ExpressionUUID->"9b315962-a164-4d2a-9620-85d403232096"], -Cell[624234, 15481, 195, 3, 40, "Output",ExpressionUUID->"5742c6ee-fcfa-46d4-b914-835953332318"] +Cell[619737, 15359, 2269, 64, 50, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], +Cell[622009, 15425, 571, 12, 32, "Message",ExpressionUUID->"523a6360-a6a9-4e49-9897-f4c391fb1646"], +Cell[622583, 15439, 571, 12, 32, "Message",ExpressionUUID->"359cac77-e1a1-4a17-b6fc-05cc812eee08"], +Cell[623157, 15453, 579, 13, 32, "Message",ExpressionUUID->"8eead7c5-ed67-484c-91a4-6780a905f08d"], +Cell[623739, 15468, 492, 11, 19, "Message",ExpressionUUID->"9b315962-a164-4d2a-9620-85d403232096"], +Cell[624234, 15481, 195, 3, 25, "Output",ExpressionUUID->"5742c6ee-fcfa-46d4-b914-835953332318"] }, Open ]], Cell[CellGroupData[{ -Cell[624466, 15489, 2233, 63, 331, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], -Cell[626702, 15554, 571, 12, 96, "Message",ExpressionUUID->"6c9ec524-7a32-4612-bef2-ad1f84a3da9d"], -Cell[627276, 15568, 573, 12, 96, "Message",ExpressionUUID->"af3879cc-610a-4a1a-adf9-71a6558c661f"], -Cell[627852, 15582, 581, 13, 96, "Message",ExpressionUUID->"cd63b8f3-b683-423a-bee2-cd1acf83a72d"], -Cell[628436, 15597, 495, 11, 31, "Message",ExpressionUUID->"a84efb2d-6fd6-4630-92eb-b7b9a66acb13"], -Cell[628934, 15610, 195, 3, 40, "Output",ExpressionUUID->"43492c28-b567-414a-a483-39ff6855c008"] +Cell[624466, 15489, 2233, 63, 50, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], +Cell[626702, 15554, 571, 12, 32, "Message",ExpressionUUID->"6c9ec524-7a32-4612-bef2-ad1f84a3da9d"], +Cell[627276, 15568, 573, 12, 32, "Message",ExpressionUUID->"af3879cc-610a-4a1a-adf9-71a6558c661f"], +Cell[627852, 15582, 581, 13, 32, "Message",ExpressionUUID->"cd63b8f3-b683-423a-bee2-cd1acf83a72d"], +Cell[628436, 15597, 495, 11, 19, "Message",ExpressionUUID->"a84efb2d-6fd6-4630-92eb-b7b9a66acb13"], +Cell[628934, 15610, 195, 3, 25, "Output",ExpressionUUID->"43492c28-b567-414a-a483-39ff6855c008"] }, Open ]], Cell[CellGroupData[{ -Cell[629166, 15618, 2235, 63, 331, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], -Cell[631404, 15683, 569, 12, 96, "Message",ExpressionUUID->"b2b7bf7f-b2f7-47b5-b521-7528974ec84d"], -Cell[631976, 15697, 571, 12, 96, "Message",ExpressionUUID->"3c94fec3-a03a-449b-bc2f-8b93af73fcd6"], -Cell[632550, 15711, 579, 13, 96, "Message",ExpressionUUID->"689282fd-c56c-4a39-a6b3-7618aea003a0"], -Cell[633132, 15726, 492, 11, 31, "Message",ExpressionUUID->"d86019a8-a524-4b57-80a4-5add0dd0f17d"], -Cell[633627, 15739, 194, 3, 40, "Output",ExpressionUUID->"18d73612-1a6e-4cce-a638-e4ced0bc8bba"] +Cell[629166, 15618, 2235, 63, 50, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], +Cell[631404, 15683, 569, 12, 32, "Message",ExpressionUUID->"b2b7bf7f-b2f7-47b5-b521-7528974ec84d"], +Cell[631976, 15697, 571, 12, 32, "Message",ExpressionUUID->"3c94fec3-a03a-449b-bc2f-8b93af73fcd6"], +Cell[632550, 15711, 579, 13, 32, "Message",ExpressionUUID->"689282fd-c56c-4a39-a6b3-7618aea003a0"], +Cell[633132, 15726, 492, 11, 19, "Message",ExpressionUUID->"d86019a8-a524-4b57-80a4-5add0dd0f17d"], +Cell[633627, 15739, 194, 3, 25, "Output",ExpressionUUID->"18d73612-1a6e-4cce-a638-e4ced0bc8bba"] }, Open ]], Cell[CellGroupData[{ -Cell[633858, 15747, 234, 6, 56, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], -Cell[634095, 15755, 200, 3, 40, "Output",ExpressionUUID->"52b2ae8b-4aa1-4485-a2e8-ec8a5ecddd06"] +Cell[633858, 15747, 234, 6, 38, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], +Cell[634095, 15755, 200, 3, 25, "Output",ExpressionUUID->"52b2ae8b-4aa1-4485-a2e8-ec8a5ecddd06"] }, Open ]], -Cell[634310, 15761, 209, 4, 35, "Input",ExpressionUUID->"4a107597-f742-49a1-8511-f72cb122299c"] +Cell[634310, 15761, 209, 4, 22, "Input",ExpressionUUID->"4a107597-f742-49a1-8511-f72cb122299c"], +Cell[CellGroupData[{ +Cell[634544, 15769, 4091, 88, 154, "Input",ExpressionUUID->"02b49021-35aa-46d4-be26-49a33520bca5"], +Cell[638638, 15859, 1975, 42, 50, "Output",ExpressionUUID->"0792713b-7c21-4395-8ed6-797ee55dda92"], +Cell[640616, 15903, 1652, 47, 433, "Output",ExpressionUUID->"d1ee4691-241f-47c4-bcf2-308fcc0f3317"] +}, Open ]] } ] *) +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_osc_Qw1.nb b/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_osc_Qw1.nb index 85dc797..3f42851 100644 --- a/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_osc_Qw1.nb +++ b/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_osc_Qw1.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 686614, 16614] -NotebookOptionsPosition[ 644121, 15933] -NotebookOutlinePosition[ 644585, 15952] -CellTagsIndexPosition[ 644542, 15949] +NotebookDataLength[ 694704, 16804] +NotebookOptionsPosition[ 651876, 16118] +NotebookOutlinePosition[ 652333, 16137] +CellTagsIndexPosition[ 652290, 16134] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -15929,13 +15929,198 @@ Cell[BoxData[ RowBox[{"NotebookSave", "[", "]"}]], "Input", CellChangeTimes->{{3.9940131274965057`*^9, 3.99401313558323*^9}}, CellLabel-> - "In[347]:=",ExpressionUUID->"513f446a-7f4e-4e3e-a8ae-ef97951f73d4"] + "In[347]:=",ExpressionUUID->"513f446a-7f4e-4e3e-a8ae-ef97951f73d4"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"CellPrint", "[", + RowBox[{"ExpressionCell", "[", + RowBox[{ + RowBox[{"Panel", "[", + RowBox[{ + RowBox[{"Row", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"Style", "[", + + RowBox[{"\"\<\:0423\:043f\:0440\:0430\:0432\:043b\:0435\:043d\:0438\ +\:0435 \:043a\:044d\:0448\:0435\:043c \:0433\:0440\:0430\:0444\:0438\:043a\ +\:0430: \>\"", ",", "Bold"}], "]"}], ",", + RowBox[{"Button", "[", + + RowBox[{"\"\<\:0421\:0434\:0435\:043b\:0430\:0442\:044c \:0442\ +\:0430\:0431\:043b\:0438\:0446\:0443 (\:041b\:0438\:043d\:0438\:044f 1)\>\"", + ",", + RowBox[{"Module", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"cell", ",", "pts"}], "}"}], ",", + RowBox[{ + RowBox[{"cell", "=", + RowBox[{"NotebookRead", "[", + RowBox[{"EvaluationNotebook", "[", "]"}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"pts", "=", + RowBox[{"Cases", "[", + RowBox[{"cell", ",", + RowBox[{ + RowBox[{"Line", "[", "p_", "]"}], ":>", "p"}], ",", + "Infinity"}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"If", "[", + RowBox[{ + RowBox[{ + RowBox[{"Length", "[", "pts", "]"}], ">", "0"}], ",", + RowBox[{ + RowBox[{"plotX", "=", + RowBox[{"pts", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"fInterp", "=", + RowBox[{"Interpolation", "[", "plotX", "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"dataX", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"x", ",", + RowBox[{"fInterp", "[", "x", "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30", ",", "1"}], "}"}]}], + "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"SelectionMove", "[", + RowBox[{ + RowBox[{"EvaluationNotebook", "[", "]"}], ",", "After", ",", + "Cell"}], "]"}], ";", "\[IndentingNewLine]", + RowBox[{"CellPrint", "[", + RowBox[{"Cell", "[", + RowBox[{ + RowBox[{"BoxData", "[", + RowBox[{"ToBoxes", "[", + RowBox[{"TableForm", "[", "dataX", "]"}], "]"}], "]"}], + ",", "\"\\""}], "]"}], "]"}]}], ",", + RowBox[{"MessageDialog", "[", + + RowBox[{"\"\<\:041e\:0448\:0438\:0431\:043a\:0430: \:0421\ +\:043d\:0430\:0447\:0430\:043b\:0430 \:0432\:044b\:0434\:0435\:043b\:0438\ +\:0442\:0435 \:043d\:0443\:0436\:043d\:044b\:0439 \:0433\:0440\:0430\:0444\ +\:0438\:043a (\:043a\:043b\:0438\:043a\:043d\:0438\:0442\:0435 \:043f\:043e \ +\:0435\:0433\:043e \:044f\:0447\:0435\:0439\:043a\:0435 \:0441\:043f\:0440\ +\:0430\:0432\:0430)!\>\"", ",", + RowBox[{"WindowFloating", "->", "True"}]}], "]"}]}], + "]"}]}]}], "]"}], ",", + RowBox[{"Background", "->", + RowBox[{"RGBColor", "[", + RowBox[{"0.9", ",", "0.95", ",", "1"}], "]"}]}], ",", + RowBox[{"ImageSize", "->", + RowBox[{"{", + RowBox[{"180", ",", "25"}], "}"}]}]}], "]"}]}], "}"}], "]"}], ",", + RowBox[{"Background", "->", + RowBox[{"GrayLevel", "[", "0.95", "]"}]}], ",", + RowBox[{"FrameMargins", "->", "10"}]}], "]"}], ",", "\"\\""}], + "]"}], "]"}], "\n"}]], "Input", + CellChangeTimes->{{3.9943043996512623`*^9, 3.994304399651291*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"5509bda9-b3b1-4127-bb56-9e172827bd20"], + +Cell[BoxData[ + PanelBox[ + TemplateBox[{ + StyleBox[ + "\"\:0423\:043f\:0440\:0430\:0432\:043b\:0435\:043d\:0438\:0435 \:043a\ +\:044d\:0448\:0435\:043c \:0433\:0440\:0430\:0444\:0438\:043a\:0430: \"", + Bold, StripOnInput -> False], + ButtonBox[ + "\"\:0421\:0434\:0435\:043b\:0430\:0442\:044c \:0442\:0430\:0431\:043b\ +\:0438\:0446\:0443 (\:041b\:0438\:043d\:0438\:044f 1)\"", ButtonFunction :> + Module[{$CellContext`cell, $CellContext`pts}, $CellContext`cell = + NotebookRead[ + EvaluationNotebook[]]; $CellContext`pts = + Cases[$CellContext`cell, Line[ + Pattern[$CellContext`p, + Blank[]]] :> $CellContext`p, Infinity]; + If[Length[$CellContext`pts] > + 0, $CellContext`plotX = + Part[$CellContext`pts, 1]; $CellContext`fInterp = + Interpolation[$CellContext`plotX]; $CellContext`dataX = + Table[{$CellContext`x, + $CellContext`fInterp[$CellContext`x]}, {$CellContext`x, 0, 30, + 1}]; SelectionMove[ + EvaluationNotebook[], After, Cell]; CellPrint[ + Cell[ + BoxData[ + ToBoxes[ + TableForm[$CellContext`dataX]]], "Output"]], + MessageDialog[ + "\:041e\:0448\:0438\:0431\:043a\:0430: \ +\:0421\:043d\:0430\:0447\:0430\:043b\:0430 \:0432\:044b\:0434\:0435\:043b\ +\:0438\:0442\:0435 \:043d\:0443\:0436\:043d\:044b\:0439 \:0433\:0440\:0430\ +\:0444\:0438\:043a (\:043a\:043b\:0438\:043a\:043d\:0438\:0442\:0435 \:043f\ +\:043e \:0435\:0433\:043e \:044f\:0447\:0435\:0439\:043a\:0435 \:0441\:043f\ +\:0440\:0430\:0432\:0430)!", WindowFloating -> True]]], Background -> + RGBColor[0.9, 0.95, 1], ImageSize -> {180, 25}, Appearance -> Automatic, + Evaluator -> Automatic, Method -> "Preemptive"]}, + "RowDefault"], + Background->GrayLevel[0.95], + FrameMargins->10]], "Output", + CellChangeTimes->{ + 3.99430574754075*^9},ExpressionUUID->"0bad29c3-945a-4604-b73e-0f2ffb5e0f87"], + +Cell[BoxData[ + TagBox[GridBox[{ + {"0", + RowBox[{"-", "2.710505431213761`*^-20"}]}, + {"1", "0.010789049408902624`"}, + {"2", "0.021229682147013755`"}, + {"3", "0.030992625680954452`"}, + {"4", "0.03978380701317644`"}, + {"5", "0.0473608184470492`"}, + {"6", "0.0535413245437898`"}, + {"7", "0.05821216754234941`"}, + {"8", "0.06132993498108955`"}, + {"9", "0.06291884160741464`"}, + {"10", "0.06306418757395182`"}, + {"11", "0.061902614452221796`"}, + {"12", "0.05961011546320101`"}, + {"13", "0.05638886911323768`"}, + {"14", "0.052453975929695154`"}, + {"15", "0.0480209925186704`"}, + {"16", "0.04329500042571361`"}, + {"17", "0.03846219683963798`"}, + {"18", "0.03368323521114852`"}, + {"19", "0.029089650563860286`"}, + {"20", "0.02478276289430264`"}, + {"21", "0.020833476224154223`"}, + {"22", "0.017285247122275513`"}, + {"23", "0.014157353660102592`"}, + {"24", "0.011448652405758054`"}, + {"25", "0.009142415851456157`"}, + {"26", "0.0072104352171538134`"}, + {"27", "0.005617035978104718`"}, + {"28", "0.004322610915453327`"}, + {"29", "0.00328639860239508`"}, + {"30", "0.0024686869200015206`"} + }, + GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[2.0999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + Function[BoxForm`e$, + TableForm[BoxForm`e$]]]], "Output", + CellChangeTimes->{ + 3.9943057801397657`*^9},ExpressionUUID->"c10121ff-96fe-4e1d-9a0b-\ +7d6011d83a2c"] +}, Open ]] }, Evaluator->"kernel 3", WindowSize->{1440, 882}, -WindowMargins->{{0, Automatic}, {0, Automatic}}, +WindowMargins->{{0, Automatic}, {0, 18}}, CellContext->Notebook, -Magnification:>1.4 Inherited, +Magnification:>0.9 Inherited, FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"8af74bcb-cc50-f64a-8d83-c4bf7188d038" @@ -15952,673 +16137,676 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 253, 5, 40, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], -Cell[832, 29, 332, 6, 46, "Output",ExpressionUUID->"02b76cfc-9129-4c15-aecc-0b70abf97942"] +Cell[576, 22, 253, 5, 33, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], +Cell[832, 29, 332, 6, 37, "Output",ExpressionUUID->"02b76cfc-9129-4c15-aecc-0b70abf97942"] }, Open ]], Cell[CellGroupData[{ -Cell[1201, 40, 230, 5, 40, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], -Cell[1434, 47, 334, 6, 46, "Output",ExpressionUUID->"87da360f-d1f9-4448-a2dd-dc8c52cc150b"] +Cell[1201, 40, 230, 5, 33, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], +Cell[1434, 47, 334, 6, 37, "Output",ExpressionUUID->"87da360f-d1f9-4448-a2dd-dc8c52cc150b"] }, Open ]], Cell[CellGroupData[{ -Cell[1805, 58, 180, 4, 40, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], -Cell[1988, 64, 328, 6, 46, "Output",ExpressionUUID->"0eda2467-657a-4a1d-a7f5-6670d09772e1"] +Cell[1805, 58, 180, 4, 33, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], +Cell[1988, 64, 328, 6, 37, "Output",ExpressionUUID->"0eda2467-657a-4a1d-a7f5-6670d09772e1"] }, Open ]], Cell[CellGroupData[{ -Cell[2353, 75, 262, 8, 59, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], -Cell[2618, 85, 343, 6, 46, "Output",ExpressionUUID->"91772306-fc7d-4c2c-a2a8-ed20c40fa78b"] +Cell[2353, 75, 262, 8, 49, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], +Cell[2618, 85, 343, 6, 37, "Output",ExpressionUUID->"91772306-fc7d-4c2c-a2a8-ed20c40fa78b"] }, Open ]], Cell[CellGroupData[{ -Cell[2998, 96, 136, 3, 40, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], -Cell[3137, 101, 332, 6, 46, "Output",ExpressionUUID->"d3f344b2-a7ce-4205-b88b-06289fa21188"] +Cell[2998, 96, 136, 3, 33, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], +Cell[3137, 101, 332, 6, 37, "Output",ExpressionUUID->"d3f344b2-a7ce-4205-b88b-06289fa21188"] }, Open ]], Cell[CellGroupData[{ -Cell[3506, 112, 281, 7, 40, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], -Cell[3790, 121, 343, 6, 46, "Output",ExpressionUUID->"f0e0dfa6-95df-4cdb-bc6a-f6f679bb515b"] +Cell[3506, 112, 281, 7, 33, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], +Cell[3790, 121, 343, 6, 37, "Output",ExpressionUUID->"f0e0dfa6-95df-4cdb-bc6a-f6f679bb515b"] }, Open ]], Cell[CellGroupData[{ -Cell[4170, 132, 262, 8, 40, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], -Cell[4435, 142, 341, 6, 46, "Output",ExpressionUUID->"ca5eaa25-ca1a-45e1-8dab-ef5558f5e848"] +Cell[4170, 132, 262, 8, 33, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], +Cell[4435, 142, 341, 6, 37, "Output",ExpressionUUID->"ca5eaa25-ca1a-45e1-8dab-ef5558f5e848"] }, Open ]], Cell[CellGroupData[{ -Cell[4813, 153, 282, 6, 40, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], -Cell[5098, 161, 313, 6, 46, "Output",ExpressionUUID->"295a4cbe-7878-4dbf-ba68-c5eba9ca3bd2"] +Cell[4813, 153, 282, 6, 33, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], +Cell[5098, 161, 313, 6, 37, "Output",ExpressionUUID->"295a4cbe-7878-4dbf-ba68-c5eba9ca3bd2"] }, Open ]], Cell[CellGroupData[{ -Cell[5448, 172, 230, 5, 40, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], -Cell[5681, 179, 306, 6, 46, "Output",ExpressionUUID->"09582f61-e993-4f6a-baf2-da0470724e35"] +Cell[5448, 172, 230, 5, 33, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], +Cell[5681, 179, 306, 6, 37, "Output",ExpressionUUID->"09582f61-e993-4f6a-baf2-da0470724e35"] }, Open ]], Cell[CellGroupData[{ -Cell[6024, 190, 133, 3, 40, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], -Cell[6160, 195, 327, 6, 46, "Output",ExpressionUUID->"3ebc86f1-b242-4d68-97bf-f699271c546a"] +Cell[6024, 190, 133, 3, 33, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], +Cell[6160, 195, 327, 6, 37, "Output",ExpressionUUID->"3ebc86f1-b242-4d68-97bf-f699271c546a"] }, Open ]], Cell[CellGroupData[{ -Cell[6524, 206, 133, 3, 40, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], -Cell[6660, 211, 325, 6, 46, "Output",ExpressionUUID->"4463342c-feaf-48eb-8ada-f24efca164cf"] +Cell[6524, 206, 133, 3, 33, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], +Cell[6660, 211, 325, 6, 37, "Output",ExpressionUUID->"4463342c-feaf-48eb-8ada-f24efca164cf"] }, Open ]], Cell[CellGroupData[{ -Cell[7022, 222, 561, 20, 109, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], -Cell[7586, 244, 346, 6, 46, "Output",ExpressionUUID->"85ef006f-629c-4ea9-9da2-ea7984aca181"] +Cell[7022, 222, 561, 20, 90, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], +Cell[7586, 244, 346, 6, 37, "Output",ExpressionUUID->"85ef006f-629c-4ea9-9da2-ea7984aca181"] }, Open ]], Cell[CellGroupData[{ -Cell[7969, 255, 561, 20, 109, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], -Cell[8533, 277, 343, 6, 46, "Output",ExpressionUUID->"463cb81b-0290-434c-879b-7f5f9942d0be"] +Cell[7969, 255, 561, 20, 90, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], +Cell[8533, 277, 343, 6, 37, "Output",ExpressionUUID->"463cb81b-0290-434c-879b-7f5f9942d0be"] }, Open ]], Cell[CellGroupData[{ -Cell[8913, 288, 1592, 51, 188, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], -Cell[10508, 341, 342, 6, 46, "Output",ExpressionUUID->"5bdb3916-91fb-4347-af64-c89c87bb1fc6"] +Cell[8913, 288, 1592, 51, 122, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], +Cell[10508, 341, 342, 6, 37, "Output",ExpressionUUID->"5bdb3916-91fb-4347-af64-c89c87bb1fc6"] }, Open ]], Cell[CellGroupData[{ -Cell[10887, 352, 1426, 47, 155, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], -Cell[12316, 401, 359, 7, 46, "Output",ExpressionUUID->"1f9da4a4-8840-446f-8c48-327dcb682c06"] +Cell[10887, 352, 1426, 47, 122, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], +Cell[12316, 401, 359, 7, 37, "Output",ExpressionUUID->"1f9da4a4-8840-446f-8c48-327dcb682c06"] }, Open ]], Cell[CellGroupData[{ -Cell[12712, 413, 1426, 47, 155, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], -Cell[14141, 462, 361, 7, 46, "Output",ExpressionUUID->"e43e3543-f7a7-4009-b1f4-c4d6b7f0226f"] +Cell[12712, 413, 1426, 47, 122, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], +Cell[14141, 462, 361, 7, 37, "Output",ExpressionUUID->"e43e3543-f7a7-4009-b1f4-c4d6b7f0226f"] }, Open ]], Cell[CellGroupData[{ -Cell[14539, 474, 1592, 51, 188, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], -Cell[16134, 527, 334, 6, 46, "Output",ExpressionUUID->"2c42b9e8-119a-4541-8b2c-039ba53fa9c8"] +Cell[14539, 474, 1592, 51, 122, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], +Cell[16134, 527, 334, 6, 37, "Output",ExpressionUUID->"2c42b9e8-119a-4541-8b2c-039ba53fa9c8"] }, Open ]], Cell[CellGroupData[{ -Cell[16505, 538, 135, 3, 40, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], -Cell[16643, 543, 324, 6, 46, "Output",ExpressionUUID->"395e26c2-3dc4-40f9-a8e5-15a42707a0d9"] +Cell[16505, 538, 135, 3, 32, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], +Cell[16643, 543, 324, 6, 37, "Output",ExpressionUUID->"395e26c2-3dc4-40f9-a8e5-15a42707a0d9"] }, Open ]], Cell[CellGroupData[{ -Cell[17004, 554, 137, 3, 40, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], -Cell[17144, 559, 330, 6, 46, "Output",ExpressionUUID->"971d9b92-7e50-4524-af3e-d34c1f74f43b"] +Cell[17004, 554, 137, 3, 32, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], +Cell[17144, 559, 330, 6, 37, "Output",ExpressionUUID->"971d9b92-7e50-4524-af3e-d34c1f74f43b"] }, Open ]], Cell[CellGroupData[{ -Cell[17511, 570, 138, 3, 40, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], -Cell[17652, 575, 328, 6, 46, "Output",ExpressionUUID->"e7ecbe34-8915-49fe-ac77-de27c0c908cb"] +Cell[17511, 570, 138, 3, 32, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], +Cell[17652, 575, 328, 6, 37, "Output",ExpressionUUID->"e7ecbe34-8915-49fe-ac77-de27c0c908cb"] }, Open ]], Cell[CellGroupData[{ -Cell[18017, 586, 223, 5, 40, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], -Cell[18243, 593, 341, 7, 46, "Output",ExpressionUUID->"5a866327-178c-4686-8e92-7dd75c7964ac"] +Cell[18017, 586, 223, 5, 32, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], +Cell[18243, 593, 341, 7, 37, "Output",ExpressionUUID->"5a866327-178c-4686-8e92-7dd75c7964ac"] }, Open ]], Cell[CellGroupData[{ -Cell[18621, 605, 138, 3, 40, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], -Cell[18762, 610, 332, 6, 46, "Output",ExpressionUUID->"0da10e8e-61fb-4d64-bc48-784dd04fbefe"] +Cell[18621, 605, 138, 3, 32, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], +Cell[18762, 610, 332, 6, 37, "Output",ExpressionUUID->"0da10e8e-61fb-4d64-bc48-784dd04fbefe"] }, Open ]], Cell[CellGroupData[{ -Cell[19131, 621, 328, 6, 40, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], -Cell[19462, 629, 325, 6, 46, "Output",ExpressionUUID->"3c53442c-8e6e-4774-b28a-b9b3be86e290"] +Cell[19131, 621, 328, 6, 32, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], +Cell[19462, 629, 325, 6, 37, "Output",ExpressionUUID->"3c53442c-8e6e-4774-b28a-b9b3be86e290"] }, Open ]], Cell[CellGroupData[{ -Cell[19824, 640, 300, 6, 40, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], -Cell[20127, 648, 327, 6, 46, "Output",ExpressionUUID->"383bf52f-64cd-4e33-bd9d-8172335eda33"] +Cell[19824, 640, 300, 6, 32, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], +Cell[20127, 648, 327, 6, 37, "Output",ExpressionUUID->"383bf52f-64cd-4e33-bd9d-8172335eda33"] }, Open ]], Cell[CellGroupData[{ -Cell[20491, 659, 223, 5, 40, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], -Cell[20717, 666, 328, 6, 46, "Output",ExpressionUUID->"875dd278-6a24-4361-9f0b-e6670678fe27"] +Cell[20491, 659, 223, 5, 32, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], +Cell[20717, 666, 328, 6, 37, "Output",ExpressionUUID->"875dd278-6a24-4361-9f0b-e6670678fe27"] }, Open ]], Cell[CellGroupData[{ -Cell[21082, 677, 354, 11, 59, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], -Cell[21439, 690, 342, 6, 46, "Output",ExpressionUUID->"6288499c-7ff9-4150-95ab-5853bcb008f4"] +Cell[21082, 677, 354, 11, 48, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], +Cell[21439, 690, 342, 6, 37, "Output",ExpressionUUID->"6288499c-7ff9-4150-95ab-5853bcb008f4"] }, Open ]], Cell[CellGroupData[{ -Cell[21818, 701, 354, 11, 59, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], -Cell[22175, 714, 363, 7, 46, "Output",ExpressionUUID->"d2fa704d-7523-487c-a231-bbba5c26706f"] +Cell[21818, 701, 354, 11, 48, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], +Cell[22175, 714, 363, 7, 37, "Output",ExpressionUUID->"d2fa704d-7523-487c-a231-bbba5c26706f"] }, Open ]], Cell[CellGroupData[{ -Cell[22575, 726, 998, 27, 60, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], -Cell[23576, 755, 348, 6, 46, "Output",ExpressionUUID->"daecb561-b08f-484e-8637-cfd138f9bc6e"] +Cell[22575, 726, 998, 27, 91, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], +Cell[23576, 755, 348, 6, 37, "Output",ExpressionUUID->"daecb561-b08f-484e-8637-cfd138f9bc6e"] }, Open ]], Cell[CellGroupData[{ -Cell[23961, 766, 203, 4, 40, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], -Cell[24167, 772, 326, 6, 46, "Output",ExpressionUUID->"9b43ccba-dea2-4c4a-baa1-ff7c06c35b07"] +Cell[23961, 766, 203, 4, 32, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], +Cell[24167, 772, 326, 6, 37, "Output",ExpressionUUID->"9b43ccba-dea2-4c4a-baa1-ff7c06c35b07"] }, Open ]], Cell[CellGroupData[{ -Cell[24530, 783, 333, 6, 40, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], -Cell[24866, 791, 283, 5, 46, "Output",ExpressionUUID->"e1837d25-c3ef-481b-95cf-194d0ceb1503"] +Cell[24530, 783, 333, 6, 32, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], +Cell[24866, 791, 283, 5, 37, "Output",ExpressionUUID->"e1837d25-c3ef-481b-95cf-194d0ceb1503"] }, Open ]], -Cell[25164, 799, 177, 3, 40, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], +Cell[25164, 799, 177, 3, 32, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], Cell[CellGroupData[{ -Cell[25366, 806, 331, 6, 40, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], -Cell[25700, 814, 279, 5, 46, "Output",ExpressionUUID->"1b02dbd8-3996-406e-a7b6-16b6e27835dd"] +Cell[25366, 806, 331, 6, 32, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], +Cell[25700, 814, 279, 5, 37, "Output",ExpressionUUID->"1b02dbd8-3996-406e-a7b6-16b6e27835dd"] }, Open ]], -Cell[25994, 822, 177, 3, 40, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], +Cell[25994, 822, 177, 3, 32, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], Cell[CellGroupData[{ -Cell[26196, 829, 330, 6, 40, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], -Cell[26529, 837, 280, 5, 46, "Output",ExpressionUUID->"64784e32-c082-45e1-9dcc-45ae477eb016"] +Cell[26196, 829, 330, 6, 32, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], +Cell[26529, 837, 280, 5, 37, "Output",ExpressionUUID->"64784e32-c082-45e1-9dcc-45ae477eb016"] }, Open ]], -Cell[26824, 845, 177, 3, 40, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], +Cell[26824, 845, 177, 3, 32, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], Cell[CellGroupData[{ -Cell[27026, 852, 358, 6, 40, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], -Cell[27387, 860, 281, 5, 46, "Output",ExpressionUUID->"0bd4dd65-9cbb-4258-90e4-15654d27e930"] +Cell[27026, 852, 358, 6, 32, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], +Cell[27387, 860, 281, 5, 37, "Output",ExpressionUUID->"0bd4dd65-9cbb-4258-90e4-15654d27e930"] }, Open ]], -Cell[27683, 868, 175, 3, 40, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], +Cell[27683, 868, 175, 3, 32, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], Cell[CellGroupData[{ -Cell[27883, 875, 303, 6, 40, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], -Cell[28189, 883, 279, 5, 46, "Output",ExpressionUUID->"aa149681-3df3-408b-89e6-f44826c5aa1c"] +Cell[27883, 875, 303, 6, 32, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], +Cell[28189, 883, 279, 5, 37, "Output",ExpressionUUID->"aa149681-3df3-408b-89e6-f44826c5aa1c"] }, Open ]], -Cell[28483, 891, 175, 3, 40, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], +Cell[28483, 891, 175, 3, 32, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], Cell[CellGroupData[{ -Cell[28683, 898, 306, 6, 40, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], -Cell[28992, 906, 282, 5, 46, "Output",ExpressionUUID->"16aae6bf-c99e-4322-89b4-37f0024483e7"] +Cell[28683, 898, 306, 6, 32, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], +Cell[28992, 906, 282, 5, 37, "Output",ExpressionUUID->"16aae6bf-c99e-4322-89b4-37f0024483e7"] }, Open ]], -Cell[29289, 914, 177, 3, 40, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], +Cell[29289, 914, 177, 3, 32, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], Cell[CellGroupData[{ -Cell[29491, 921, 309, 6, 40, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], -Cell[29803, 929, 277, 5, 46, "Output",ExpressionUUID->"48612957-1fe6-4701-847c-954c5540e7bc"] +Cell[29491, 921, 309, 6, 32, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], +Cell[29803, 929, 277, 5, 37, "Output",ExpressionUUID->"48612957-1fe6-4701-847c-954c5540e7bc"] }, Open ]], -Cell[30095, 937, 176, 3, 40, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], +Cell[30095, 937, 176, 3, 32, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], Cell[CellGroupData[{ -Cell[30296, 944, 279, 5, 40, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], -Cell[30578, 951, 285, 5, 46, "Output",ExpressionUUID->"b837f1be-feee-4838-8d8e-9b413609dddd"] +Cell[30296, 944, 279, 5, 32, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], +Cell[30578, 951, 285, 5, 37, "Output",ExpressionUUID->"b837f1be-feee-4838-8d8e-9b413609dddd"] }, Open ]], -Cell[30878, 959, 179, 3, 40, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], +Cell[30878, 959, 179, 3, 32, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ -Cell[31082, 966, 19813, 486, 1847, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], -Cell[50898, 1454, 345, 6, 46, "Output",ExpressionUUID->"7abbd9eb-8584-45db-87ee-afe5657a5b56"] +Cell[31082, 966, 19813, 486, 1659, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], +Cell[50898, 1454, 345, 6, 37, "Output",ExpressionUUID->"7abbd9eb-8584-45db-87ee-afe5657a5b56"] }, Open ]], Cell[CellGroupData[{ -Cell[51280, 1465, 19752, 490, 1862, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], -Cell[71035, 1957, 341, 6, 46, "Output",ExpressionUUID->"511b2473-64a7-4d45-8b08-6aee373e1bd5"] +Cell[51280, 1465, 19752, 490, 1632, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], +Cell[71035, 1957, 341, 6, 37, "Output",ExpressionUUID->"511b2473-64a7-4d45-8b08-6aee373e1bd5"] }, Open ]], Cell[CellGroupData[{ -Cell[71413, 1968, 19752, 484, 1861, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], -Cell[91168, 2454, 360, 7, 46, "Output",ExpressionUUID->"4dcb72b9-5a05-475a-b19b-308eff8e0aa1"] +Cell[71413, 1968, 19752, 484, 1646, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], +Cell[91168, 2454, 360, 7, 37, "Output",ExpressionUUID->"4dcb72b9-5a05-475a-b19b-308eff8e0aa1"] }, Open ]], Cell[CellGroupData[{ -Cell[91565, 2466, 22538, 554, 2040, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], -Cell[114106, 3022, 364, 7, 46, "Output",ExpressionUUID->"ffc63857-f558-4c1b-aa1f-8e9664db9a96"] +Cell[91565, 2466, 22538, 554, 1866, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], +Cell[114106, 3022, 364, 7, 37, "Output",ExpressionUUID->"ffc63857-f558-4c1b-aa1f-8e9664db9a96"] }, Open ]], Cell[CellGroupData[{ -Cell[114507, 3034, 22539, 554, 2040, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], -Cell[137049, 3590, 359, 7, 46, "Output",ExpressionUUID->"79d7da26-6e3c-437d-a235-ddc3df0dc28b"] +Cell[114507, 3034, 22539, 554, 1853, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], +Cell[137049, 3590, 359, 7, 37, "Output",ExpressionUUID->"79d7da26-6e3c-437d-a235-ddc3df0dc28b"] }, Open ]], Cell[CellGroupData[{ -Cell[137445, 3602, 25495, 627, 2249, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], -Cell[162943, 4231, 365, 7, 46, "Output",ExpressionUUID->"28e5e873-8564-4b25-9879-9ebc8bfbcc56"] +Cell[137445, 3602, 25495, 627, 2074, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], +Cell[162943, 4231, 365, 7, 37, "Output",ExpressionUUID->"28e5e873-8564-4b25-9879-9ebc8bfbcc56"] }, Open ]], Cell[CellGroupData[{ -Cell[163345, 4243, 134, 3, 40, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], -Cell[163482, 4248, 324, 6, 46, "Output",ExpressionUUID->"701467f8-89d6-4de9-b19b-5c5f3a79c52d"] +Cell[163345, 4243, 134, 3, 32, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], +Cell[163482, 4248, 324, 6, 37, "Output",ExpressionUUID->"701467f8-89d6-4de9-b19b-5c5f3a79c52d"] }, Open ]], Cell[CellGroupData[{ -Cell[163843, 4259, 134, 3, 40, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], -Cell[163980, 4264, 328, 6, 46, "Output",ExpressionUUID->"fd78c7cb-fb20-4a5e-a0cc-ca92898d4ce8"] +Cell[163843, 4259, 134, 3, 32, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], +Cell[163980, 4264, 328, 6, 37, "Output",ExpressionUUID->"fd78c7cb-fb20-4a5e-a0cc-ca92898d4ce8"] }, Open ]], Cell[CellGroupData[{ -Cell[164345, 4275, 1148, 40, 79, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], -Cell[165496, 4317, 342, 6, 46, "Output",ExpressionUUID->"ff27cef7-2204-4642-a5d3-ef5c497c19ec"] +Cell[164345, 4275, 1148, 40, 122, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], +Cell[165496, 4317, 342, 6, 37, "Output",ExpressionUUID->"ff27cef7-2204-4642-a5d3-ef5c497c19ec"] }, Open ]], Cell[CellGroupData[{ -Cell[165875, 4328, 1045, 36, 79, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], -Cell[166923, 4366, 359, 7, 46, "Output",ExpressionUUID->"19d6e9ef-bb94-4290-8a5a-d34e8f46c1d8"] +Cell[165875, 4328, 1045, 36, 165, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], +Cell[166923, 4366, 359, 7, 37, "Output",ExpressionUUID->"19d6e9ef-bb94-4290-8a5a-d34e8f46c1d8"] }, Open ]], Cell[CellGroupData[{ -Cell[167319, 4378, 1148, 40, 79, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], -Cell[168470, 4420, 342, 6, 46, "Output",ExpressionUUID->"2963b4d2-9c77-4d18-99d7-7ef1acd2a4e0"] +Cell[167319, 4378, 1148, 40, 122, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], +Cell[168470, 4420, 342, 6, 37, "Output",ExpressionUUID->"2963b4d2-9c77-4d18-99d7-7ef1acd2a4e0"] }, Open ]], Cell[CellGroupData[{ -Cell[168849, 4431, 112, 2, 40, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], -Cell[168964, 4435, 344, 6, 46, "Output",ExpressionUUID->"4c29393f-e540-403e-bdfa-c0ed3f8faf1d"] +Cell[168849, 4431, 112, 2, 32, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], +Cell[168964, 4435, 344, 6, 37, "Output",ExpressionUUID->"4c29393f-e540-403e-bdfa-c0ed3f8faf1d"] }, Open ]], Cell[CellGroupData[{ -Cell[169345, 4446, 112, 2, 40, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], -Cell[169460, 4450, 361, 7, 46, "Output",ExpressionUUID->"51392b7b-70d5-4e2b-82d1-d437a378ee34"] +Cell[169345, 4446, 112, 2, 32, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], +Cell[169460, 4450, 361, 7, 37, "Output",ExpressionUUID->"51392b7b-70d5-4e2b-82d1-d437a378ee34"] }, Open ]], Cell[CellGroupData[{ -Cell[169858, 4462, 112, 2, 40, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], -Cell[169973, 4466, 359, 7, 46, "Output",ExpressionUUID->"cbcfe3cd-6704-43dd-9b36-45475ac4a3a8"] +Cell[169858, 4462, 112, 2, 32, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], +Cell[169973, 4466, 359, 7, 37, "Output",ExpressionUUID->"cbcfe3cd-6704-43dd-9b36-45475ac4a3a8"] }, Open ]], Cell[CellGroupData[{ -Cell[170369, 4478, 112, 2, 40, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], -Cell[170484, 4482, 348, 6, 46, "Output",ExpressionUUID->"646a36a2-9adc-4399-9879-3511872be4c4"] +Cell[170369, 4478, 112, 2, 32, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], +Cell[170484, 4482, 348, 6, 37, "Output",ExpressionUUID->"646a36a2-9adc-4399-9879-3511872be4c4"] }, Open ]], Cell[CellGroupData[{ -Cell[170869, 4493, 111, 2, 40, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], -Cell[170983, 4497, 345, 6, 46, "Output",ExpressionUUID->"e08d193f-c9d1-4305-8d1c-74ba6cf6448b"] +Cell[170869, 4493, 111, 2, 32, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], +Cell[170983, 4497, 345, 6, 37, "Output",ExpressionUUID->"e08d193f-c9d1-4305-8d1c-74ba6cf6448b"] }, Open ]], Cell[CellGroupData[{ -Cell[171365, 4508, 111, 2, 40, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], -Cell[171479, 4512, 342, 6, 46, "Output",ExpressionUUID->"550be261-cd55-4ec7-961f-6a9d36a5309d"] +Cell[171365, 4508, 111, 2, 32, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], +Cell[171479, 4512, 342, 6, 37, "Output",ExpressionUUID->"550be261-cd55-4ec7-961f-6a9d36a5309d"] }, Open ]], Cell[CellGroupData[{ -Cell[171858, 4523, 501, 17, 77, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], -Cell[172362, 4542, 359, 7, 46, "Output",ExpressionUUID->"d8acaa4c-8e8a-49df-8cfc-f93eecb5bf14"] +Cell[171858, 4523, 501, 17, 62, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], +Cell[172362, 4542, 359, 7, 37, "Output",ExpressionUUID->"d8acaa4c-8e8a-49df-8cfc-f93eecb5bf14"] }, Open ]], Cell[CellGroupData[{ -Cell[172758, 4554, 501, 17, 77, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], -Cell[173262, 4573, 362, 7, 46, "Output",ExpressionUUID->"c6ff9333-7f9b-4cad-b3b5-279db28e4af7"] +Cell[172758, 4554, 501, 17, 62, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], +Cell[173262, 4573, 362, 7, 37, "Output",ExpressionUUID->"c6ff9333-7f9b-4cad-b3b5-279db28e4af7"] }, Open ]], Cell[CellGroupData[{ -Cell[173661, 4585, 1792, 61, 187, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], -Cell[175456, 4648, 342, 6, 46, "Output",ExpressionUUID->"d126348f-0129-4078-9de4-fa391fa116a1"] +Cell[173661, 4585, 1792, 61, 208, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], +Cell[175456, 4648, 342, 6, 37, "Output",ExpressionUUID->"d126348f-0129-4078-9de4-fa391fa116a1"] }, Open ]], Cell[CellGroupData[{ -Cell[175835, 4659, 1105, 37, 79, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], -Cell[176943, 4698, 359, 7, 46, "Output",ExpressionUUID->"6874a61c-1de7-479c-b005-4bd4509b82f7"] +Cell[175835, 4659, 1105, 37, 148, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], +Cell[176943, 4698, 359, 7, 37, "Output",ExpressionUUID->"6874a61c-1de7-479c-b005-4bd4509b82f7"] }, Open ]], Cell[CellGroupData[{ -Cell[177339, 4710, 1822, 62, 155, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], -Cell[179164, 4774, 341, 6, 46, "Output",ExpressionUUID->"64bcdb20-2846-4fbb-b7b6-7f5ec6fefc3a"] +Cell[177339, 4710, 1822, 62, 182, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], +Cell[179164, 4774, 341, 6, 37, "Output",ExpressionUUID->"64bcdb20-2846-4fbb-b7b6-7f5ec6fefc3a"] }, Open ]], Cell[CellGroupData[{ -Cell[179542, 4785, 1635, 54, 111, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], -Cell[181180, 4841, 342, 6, 46, "Output",ExpressionUUID->"e258b404-ca27-4ae5-98ff-9de0aa6941e7"] +Cell[179542, 4785, 1635, 54, 90, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], +Cell[181180, 4841, 342, 6, 37, "Output",ExpressionUUID->"e258b404-ca27-4ae5-98ff-9de0aa6941e7"] }, Open ]], Cell[CellGroupData[{ -Cell[181559, 4852, 1635, 54, 111, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], -Cell[183197, 4908, 344, 6, 46, "Output",ExpressionUUID->"6599509e-cfde-4ffe-9757-8890f74c1b13"] +Cell[181559, 4852, 1635, 54, 90, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], +Cell[183197, 4908, 344, 6, 37, "Output",ExpressionUUID->"6599509e-cfde-4ffe-9757-8890f74c1b13"] }, Open ]], Cell[CellGroupData[{ -Cell[183578, 4919, 233, 5, 40, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], -Cell[183814, 4926, 310, 6, 46, "Output",ExpressionUUID->"f10b3d2c-a7e8-455a-82cd-477560420146"] +Cell[183578, 4919, 233, 5, 32, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], +Cell[183814, 4926, 310, 6, 37, "Output",ExpressionUUID->"f10b3d2c-a7e8-455a-82cd-477560420146"] }, Open ]], -Cell[184139, 4935, 176, 3, 40, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], +Cell[184139, 4935, 176, 3, 32, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], Cell[CellGroupData[{ -Cell[184340, 4942, 231, 5, 40, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], -Cell[184574, 4949, 306, 6, 46, "Output",ExpressionUUID->"86c74c4f-545d-447f-baa1-371b7ec57db9"] +Cell[184340, 4942, 231, 5, 32, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], +Cell[184574, 4949, 306, 6, 37, "Output",ExpressionUUID->"86c74c4f-545d-447f-baa1-371b7ec57db9"] }, Open ]], -Cell[184895, 4958, 177, 3, 40, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], +Cell[184895, 4958, 177, 3, 32, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ -Cell[185097, 4965, 1301, 43, 67, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], -Cell[186401, 5010, 342, 6, 46, "Output",ExpressionUUID->"c6037ac0-fb8c-4373-a1d6-3cc76f99c8c5"] +Cell[185097, 4965, 1301, 43, 127, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], +Cell[186401, 5010, 342, 6, 37, "Output",ExpressionUUID->"c6037ac0-fb8c-4373-a1d6-3cc76f99c8c5"] }, Open ]], Cell[CellGroupData[{ -Cell[186780, 5021, 931, 31, 79, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], -Cell[187714, 5054, 349, 6, 46, "Output",ExpressionUUID->"a6e59043-72fc-43ae-b741-40652e596d17"] +Cell[186780, 5021, 931, 31, 62, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], +Cell[187714, 5054, 349, 6, 37, "Output",ExpressionUUID->"a6e59043-72fc-43ae-b741-40652e596d17"] }, Open ]], Cell[CellGroupData[{ -Cell[188100, 5065, 907, 30, 79, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], -Cell[189010, 5097, 350, 6, 46, "Output",ExpressionUUID->"9ce80ff2-7674-45fb-b4e6-c11f951d5e94"] +Cell[188100, 5065, 907, 30, 62, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], +Cell[189010, 5097, 350, 6, 37, "Output",ExpressionUUID->"9ce80ff2-7674-45fb-b4e6-c11f951d5e94"] }, Open ]], Cell[CellGroupData[{ -Cell[189397, 5108, 558, 19, 73, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], -Cell[189958, 5129, 734, 11, 46, "Output",ExpressionUUID->"7cfdc7aa-9871-434d-80e9-346b37c7c883"] +Cell[189397, 5108, 558, 19, 58, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], +Cell[189958, 5129, 734, 11, 37, "Output",ExpressionUUID->"7cfdc7aa-9871-434d-80e9-346b37c7c883"] }, Open ]], Cell[CellGroupData[{ -Cell[190729, 5145, 665, 22, 73, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], -Cell[191397, 5169, 722, 11, 46, "Output",ExpressionUUID->"89e732a4-fc80-4fcf-80af-d8b97e7667c9"] +Cell[190729, 5145, 665, 22, 58, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], +Cell[191397, 5169, 722, 11, 37, "Output",ExpressionUUID->"89e732a4-fc80-4fcf-80af-d8b97e7667c9"] }, Open ]], Cell[CellGroupData[{ -Cell[192156, 5185, 170, 5, 77, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], -Cell[192329, 5192, 747, 11, 46, "Output",ExpressionUUID->"bb75cfd4-3cd5-438b-81a9-0aa6b8c2094b"] +Cell[192156, 5185, 170, 5, 62, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], +Cell[192329, 5192, 747, 11, 37, "Output",ExpressionUUID->"bb75cfd4-3cd5-438b-81a9-0aa6b8c2094b"] }, Open ]], Cell[CellGroupData[{ -Cell[193113, 5208, 236, 6, 77, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], -Cell[193352, 5216, 688, 11, 46, "Output",ExpressionUUID->"1abe96a5-280d-4c93-8cf8-675395b2c61f"] +Cell[193113, 5208, 236, 6, 61, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], +Cell[193352, 5216, 688, 11, 37, "Output",ExpressionUUID->"1abe96a5-280d-4c93-8cf8-675395b2c61f"] }, Open ]], Cell[CellGroupData[{ -Cell[194077, 5232, 223, 6, 60, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], -Cell[194303, 5240, 722, 11, 46, "Output",ExpressionUUID->"00770fed-5e8d-4087-b9b3-dbaecfa0d4f1"] +Cell[194077, 5232, 223, 6, 48, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], +Cell[194303, 5240, 722, 11, 37, "Output",ExpressionUUID->"00770fed-5e8d-4087-b9b3-dbaecfa0d4f1"] }, Open ]], Cell[CellGroupData[{ -Cell[195062, 5256, 181, 5, 60, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], -Cell[195246, 5263, 736, 11, 46, "Output",ExpressionUUID->"6ed2d034-e49f-4118-b53d-e40f5d4475c8"] +Cell[195062, 5256, 181, 5, 48, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], +Cell[195246, 5263, 736, 11, 37, "Output",ExpressionUUID->"6ed2d034-e49f-4118-b53d-e40f5d4475c8"] }, Open ]], Cell[CellGroupData[{ -Cell[196019, 5279, 6055, 185, 465, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], -Cell[202077, 5466, 722, 11, 46, "Output",ExpressionUUID->"e6ae6e7a-f53b-4936-b214-5b1d10c67220"] +Cell[196019, 5279, 6055, 185, 534, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], +Cell[202077, 5466, 722, 11, 37, "Output",ExpressionUUID->"e6ae6e7a-f53b-4936-b214-5b1d10c67220"] }, Open ]], Cell[CellGroupData[{ -Cell[202836, 5482, 410, 10, 81, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], -Cell[203249, 5494, 366, 6, 68, "Output",ExpressionUUID->"cd5cd31e-0fec-4845-9095-ea1d9d516b87"] +Cell[202836, 5482, 410, 10, 65, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], +Cell[203249, 5494, 366, 6, 55, "Output",ExpressionUUID->"cd5cd31e-0fec-4845-9095-ea1d9d516b87"] }, Open ]], -Cell[203630, 5503, 492, 10, 40, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], +Cell[203630, 5503, 492, 10, 32, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ -Cell[204147, 5517, 558, 19, 73, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], -Cell[204708, 5538, 294, 5, 46, "Output",ExpressionUUID->"1453884d-6a99-442b-8beb-dc424705eb90"] +Cell[204147, 5517, 558, 19, 58, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], +Cell[204708, 5538, 294, 5, 37, "Output",ExpressionUUID->"1453884d-6a99-442b-8beb-dc424705eb90"] }, Open ]], Cell[CellGroupData[{ -Cell[205039, 5548, 623, 21, 73, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], -Cell[205665, 5571, 293, 5, 46, "Output",ExpressionUUID->"da49ef5a-2c17-49ca-93cd-79204a005255"] +Cell[205039, 5548, 623, 21, 58, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], +Cell[205665, 5571, 293, 5, 37, "Output",ExpressionUUID->"da49ef5a-2c17-49ca-93cd-79204a005255"] }, Open ]], Cell[CellGroupData[{ -Cell[205995, 5581, 170, 5, 77, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], -Cell[206168, 5588, 293, 5, 46, "Output",ExpressionUUID->"98ef52c9-fa5c-4b42-9c3c-906cbccfe97a"] +Cell[205995, 5581, 170, 5, 62, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], +Cell[206168, 5588, 293, 5, 37, "Output",ExpressionUUID->"98ef52c9-fa5c-4b42-9c3c-906cbccfe97a"] }, Open ]], Cell[CellGroupData[{ -Cell[206498, 5598, 170, 5, 77, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], -Cell[206671, 5605, 289, 5, 46, "Output",ExpressionUUID->"5d091b1c-518d-44ec-8335-d59289a14a33"] +Cell[206498, 5598, 170, 5, 61, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], +Cell[206671, 5605, 289, 5, 37, "Output",ExpressionUUID->"5d091b1c-518d-44ec-8335-d59289a14a33"] }, Open ]], Cell[CellGroupData[{ -Cell[206997, 5615, 181, 5, 60, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], -Cell[207181, 5622, 292, 5, 46, "Output",ExpressionUUID->"5f2a2cec-22c6-4726-883f-70a256d0e7bf"] +Cell[206997, 5615, 181, 5, 48, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], +Cell[207181, 5622, 292, 5, 37, "Output",ExpressionUUID->"5f2a2cec-22c6-4726-883f-70a256d0e7bf"] }, Open ]], Cell[CellGroupData[{ -Cell[207510, 5632, 181, 5, 60, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], -Cell[207694, 5639, 296, 5, 46, "Output",ExpressionUUID->"b596bab9-4ced-4428-80a1-ed3b30c43224"] +Cell[207510, 5632, 181, 5, 48, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], +Cell[207694, 5639, 296, 5, 37, "Output",ExpressionUUID->"b596bab9-4ced-4428-80a1-ed3b30c43224"] }, Open ]], Cell[CellGroupData[{ -Cell[208027, 5649, 6055, 185, 465, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], -Cell[214085, 5836, 299, 5, 46, "Output",ExpressionUUID->"20c64375-2ff9-423e-9a77-95f10111473e"] +Cell[208027, 5649, 6055, 185, 534, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], +Cell[214085, 5836, 299, 5, 37, "Output",ExpressionUUID->"20c64375-2ff9-423e-9a77-95f10111473e"] }, Open ]], Cell[CellGroupData[{ -Cell[214421, 5846, 368, 9, 58, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], -Cell[214792, 5857, 290, 5, 46, "Output",ExpressionUUID->"5b23be25-28ae-4bc9-96c1-2cecf7a8b2ef"] +Cell[214421, 5846, 368, 9, 47, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], +Cell[214792, 5857, 290, 5, 37, "Output",ExpressionUUID->"5b23be25-28ae-4bc9-96c1-2cecf7a8b2ef"] }, Open ]], Cell[CellGroupData[{ -Cell[215119, 5867, 6122, 187, 465, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], -Cell[221244, 6056, 298, 5, 46, "Output",ExpressionUUID->"736a754b-5a93-4e14-a466-b2b258fc8c84"] +Cell[215119, 5867, 6122, 187, 534, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], +Cell[221244, 6056, 298, 5, 37, "Output",ExpressionUUID->"736a754b-5a93-4e14-a466-b2b258fc8c84"] }, Open ]], Cell[CellGroupData[{ -Cell[221579, 6066, 368, 9, 58, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], -Cell[221950, 6077, 292, 5, 46, "Output",ExpressionUUID->"47a716cc-5b4f-44bf-8446-3f391bc4fbcc"] +Cell[221579, 6066, 368, 9, 47, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], +Cell[221950, 6077, 292, 5, 37, "Output",ExpressionUUID->"47a716cc-5b4f-44bf-8446-3f391bc4fbcc"] }, Open ]], Cell[CellGroupData[{ -Cell[222279, 6087, 2663, 88, 232, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], -Cell[224945, 6177, 293, 5, 46, "Output",ExpressionUUID->"df900390-109e-4d03-a98a-12679baf458b"] +Cell[222279, 6087, 2663, 88, 182, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], +Cell[224945, 6177, 293, 5, 37, "Output",ExpressionUUID->"df900390-109e-4d03-a98a-12679baf458b"] }, Open ]], Cell[CellGroupData[{ -Cell[225275, 6187, 2603, 85, 232, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], -Cell[227881, 6274, 294, 5, 46, "Output",ExpressionUUID->"a2a1d18f-7c99-40b7-af31-c7cbc0b20d98"] +Cell[225275, 6187, 2603, 85, 182, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], +Cell[227881, 6274, 294, 5, 37, "Output",ExpressionUUID->"a2a1d18f-7c99-40b7-af31-c7cbc0b20d98"] }, Open ]], Cell[CellGroupData[{ -Cell[228212, 6284, 3712, 118, 341, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], -Cell[231927, 6404, 293, 5, 46, "Output",ExpressionUUID->"76d2dedb-b4ba-4d09-8042-31f6e16f873a"] +Cell[228212, 6284, 3712, 118, 268, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], +Cell[231927, 6404, 293, 5, 37, "Output",ExpressionUUID->"76d2dedb-b4ba-4d09-8042-31f6e16f873a"] }, Open ]], -Cell[232235, 6412, 164, 4, 40, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], +Cell[232235, 6412, 164, 4, 32, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ -Cell[232424, 6420, 2101, 60, 88, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], -Cell[234528, 6482, 746, 16, 55, "Message",ExpressionUUID->"ba462120-f669-479d-b9f6-7b50cbe6753c"], -Cell[235277, 6500, 746, 16, 55, "Message",ExpressionUUID->"fb420991-f92c-4010-9d29-1a973a089690"], -Cell[236026, 6518, 744, 16, 55, "Message",ExpressionUUID->"a27faa5c-f3f5-45dc-adf3-5626211a72e7"], -Cell[236773, 6536, 592, 13, 36, "Message",ExpressionUUID->"d2844ebc-25d8-4ee4-81ee-d6a27dd8ebab"], -Cell[237368, 6551, 290, 5, 46, "Output",ExpressionUUID->"fb03bf0e-33a8-4c59-934e-e003d7f46c8a"] +Cell[232424, 6420, 2101, 60, 167, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], +Cell[234528, 6482, 746, 16, 65, "Message",ExpressionUUID->"ba462120-f669-479d-b9f6-7b50cbe6753c"], +Cell[235277, 6500, 746, 16, 65, "Message",ExpressionUUID->"fb420991-f92c-4010-9d29-1a973a089690"], +Cell[236026, 6518, 744, 16, 65, "Message",ExpressionUUID->"a27faa5c-f3f5-45dc-adf3-5626211a72e7"], +Cell[236773, 6536, 592, 13, 24, "Message",ExpressionUUID->"d2844ebc-25d8-4ee4-81ee-d6a27dd8ebab"], +Cell[237368, 6551, 290, 5, 37, "Output",ExpressionUUID->"fb03bf0e-33a8-4c59-934e-e003d7f46c8a"] }, Open ]], Cell[CellGroupData[{ -Cell[237695, 6561, 2103, 60, 88, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], -Cell[239801, 6623, 749, 16, 55, "Message",ExpressionUUID->"75e712f1-aa43-47e6-9fb0-3a0ef7cfa3ce"], -Cell[240553, 6641, 746, 16, 55, "Message",ExpressionUUID->"b1105def-90b9-4cc7-9ce9-d6aa64d58c69"], -Cell[241302, 6659, 745, 16, 55, "Message",ExpressionUUID->"53797d7a-cfbe-4f04-8468-c1ed440d2576"], -Cell[242050, 6677, 592, 13, 36, "Message",ExpressionUUID->"e8a339af-8ba6-4c91-9a83-4422e1dbe572"], -Cell[242645, 6692, 268, 5, 46, "Output",ExpressionUUID->"20407880-a3e3-41ad-b179-71bee9ceebe9"] +Cell[237695, 6561, 2103, 60, 167, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], +Cell[239801, 6623, 749, 16, 65, "Message",ExpressionUUID->"75e712f1-aa43-47e6-9fb0-3a0ef7cfa3ce"], +Cell[240553, 6641, 746, 16, 65, "Message",ExpressionUUID->"b1105def-90b9-4cc7-9ce9-d6aa64d58c69"], +Cell[241302, 6659, 745, 16, 65, "Message",ExpressionUUID->"53797d7a-cfbe-4f04-8468-c1ed440d2576"], +Cell[242050, 6677, 592, 13, 24, "Message",ExpressionUUID->"e8a339af-8ba6-4c91-9a83-4422e1dbe572"], +Cell[242645, 6692, 268, 5, 37, "Output",ExpressionUUID->"20407880-a3e3-41ad-b179-71bee9ceebe9"] }, Open ]], Cell[CellGroupData[{ -Cell[242950, 6702, 2053, 55, 69, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], -Cell[245006, 6759, 20424, 385, 331, "Output",ExpressionUUID->"c1d87555-db09-4800-a0c6-0cf912270367"] +Cell[242950, 6702, 2053, 55, 87, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], +Cell[245006, 6759, 20424, 385, 265, "Output",ExpressionUUID->"c1d87555-db09-4800-a0c6-0cf912270367"] }, Open ]], Cell[CellGroupData[{ -Cell[265467, 7149, 2117, 60, 127, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], -Cell[267587, 7211, 536, 12, 55, "Message",ExpressionUUID->"3a6f78dd-bfbf-4016-9044-eeaf19ac4377"], -Cell[268126, 7225, 536, 12, 55, "Message",ExpressionUUID->"39976ec9-3806-4ffb-894e-0742ba39af42"], -Cell[268665, 7239, 542, 12, 55, "Message",ExpressionUUID->"79ffcff3-7355-4532-a373-cbf1e999371b"], -Cell[269210, 7253, 493, 11, 36, "Message",ExpressionUUID->"c1313220-66a9-4621-9267-3e1c6cdbca79"], -Cell[269706, 7266, 22225, 411, 325, "Output",ExpressionUUID->"a4ccab54-93ef-4c67-b750-900f54bdd630"] +Cell[265467, 7149, 2117, 60, 141, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], +Cell[267587, 7211, 536, 12, 65, "Message",ExpressionUUID->"3a6f78dd-bfbf-4016-9044-eeaf19ac4377"], +Cell[268126, 7225, 536, 12, 65, "Message",ExpressionUUID->"39976ec9-3806-4ffb-894e-0742ba39af42"], +Cell[268665, 7239, 542, 12, 65, "Message",ExpressionUUID->"79ffcff3-7355-4532-a373-cbf1e999371b"], +Cell[269210, 7253, 493, 11, 24, "Message",ExpressionUUID->"c1313220-66a9-4621-9267-3e1c6cdbca79"], +Cell[269706, 7266, 22225, 411, 261, "Output",ExpressionUUID->"a4ccab54-93ef-4c67-b750-900f54bdd630"] }, Open ]], Cell[CellGroupData[{ -Cell[291968, 7682, 2475, 70, 153, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], -Cell[294446, 7754, 9520, 223, 334, "Output",ExpressionUUID->"d65079b0-ce7e-4bef-8308-10d48c230075"] +Cell[291968, 7682, 2475, 70, 146, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], +Cell[294446, 7754, 9520, 223, 268, "Output",ExpressionUUID->"d65079b0-ce7e-4bef-8308-10d48c230075"] }, Open ]], Cell[CellGroupData[{ -Cell[304003, 7982, 232, 5, 40, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], -Cell[304238, 7989, 28586, 543, 325, "Output",ExpressionUUID->"7af24e38-b66f-485b-ab04-38435ed782cf"] +Cell[304003, 7982, 232, 5, 32, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], +Cell[304238, 7989, 28586, 543, 261, "Output",ExpressionUUID->"7af24e38-b66f-485b-ab04-38435ed782cf"] }, Open ]], Cell[CellGroupData[{ -Cell[332861, 8537, 237, 7, 67, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], -Cell[333101, 8546, 194, 3, 46, "Output",ExpressionUUID->"4f0e5a43-ce76-4365-908a-ba43eedcc6c6"] +Cell[332861, 8537, 237, 7, 53, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], +Cell[333101, 8546, 194, 3, 37, "Output",ExpressionUUID->"4f0e5a43-ce76-4365-908a-ba43eedcc6c6"] }, Open ]], Cell[CellGroupData[{ -Cell[333332, 8554, 1837, 53, 127, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], -Cell[335172, 8609, 549, 12, 55, "Message",ExpressionUUID->"eaaf9138-29c3-415b-b21b-b464e12e4477"], -Cell[335724, 8623, 548, 12, 55, "Message",ExpressionUUID->"20fc79c8-701d-4394-ae5a-e77891c1e8ce"], -Cell[336275, 8637, 554, 12, 55, "Message",ExpressionUUID->"89dbbed4-2051-4545-a235-eda37f3e2902"], -Cell[336832, 8651, 495, 11, 36, "Message",ExpressionUUID->"d29ff539-1678-4c58-89e1-388053aa22d4"], -Cell[337330, 8664, 22082, 411, 325, "Output",ExpressionUUID->"bbfc4dcd-faaa-4754-815d-cbd0f96b6bf0"] +Cell[333332, 8554, 1837, 53, 141, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], +Cell[335172, 8609, 549, 12, 65, "Message",ExpressionUUID->"eaaf9138-29c3-415b-b21b-b464e12e4477"], +Cell[335724, 8623, 548, 12, 65, "Message",ExpressionUUID->"20fc79c8-701d-4394-ae5a-e77891c1e8ce"], +Cell[336275, 8637, 554, 12, 65, "Message",ExpressionUUID->"89dbbed4-2051-4545-a235-eda37f3e2902"], +Cell[336832, 8651, 495, 11, 24, "Message",ExpressionUUID->"d29ff539-1678-4c58-89e1-388053aa22d4"], +Cell[337330, 8664, 22082, 411, 261, "Output",ExpressionUUID->"bbfc4dcd-faaa-4754-815d-cbd0f96b6bf0"] }, Open ]], Cell[CellGroupData[{ -Cell[359449, 9080, 1616, 48, 94, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], -Cell[361068, 9130, 648, 14, 55, "Message",ExpressionUUID->"94ae9d3f-e53f-4ea2-8ab6-2ebb87f38cac"], -Cell[361719, 9146, 645, 14, 55, "Message",ExpressionUUID->"37055412-cba5-434a-a824-04a59ab9af63"], -Cell[362367, 9162, 646, 14, 55, "Message",ExpressionUUID->"656c930e-10ef-4e62-bc3a-d47b7556a6f4"], -Cell[363016, 9178, 493, 11, 36, "Message",ExpressionUUID->"a8e4a7c0-977f-4232-bbb6-d7084fdb9d41"], -Cell[363512, 9191, 195, 3, 46, "Output",ExpressionUUID->"2573f994-7443-4094-b1b5-690d43729b0b"] +Cell[359449, 9080, 1616, 48, 76, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], +Cell[361068, 9130, 648, 14, 65, "Message",ExpressionUUID->"94ae9d3f-e53f-4ea2-8ab6-2ebb87f38cac"], +Cell[361719, 9146, 645, 14, 65, "Message",ExpressionUUID->"37055412-cba5-434a-a824-04a59ab9af63"], +Cell[362367, 9162, 646, 14, 65, "Message",ExpressionUUID->"656c930e-10ef-4e62-bc3a-d47b7556a6f4"], +Cell[363016, 9178, 493, 11, 24, "Message",ExpressionUUID->"a8e4a7c0-977f-4232-bbb6-d7084fdb9d41"], +Cell[363512, 9191, 195, 3, 37, "Output",ExpressionUUID->"2573f994-7443-4094-b1b5-690d43729b0b"] }, Open ]], Cell[CellGroupData[{ -Cell[363744, 9199, 2272, 64, 156, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], -Cell[366019, 9265, 650, 14, 55, "Message",ExpressionUUID->"603ab8ad-975f-41fe-b0e8-f37a58c99766"], -Cell[366672, 9281, 649, 14, 55, "Message",ExpressionUUID->"8a532210-0ac4-4ddb-ade8-ca6b71b99c32"], -Cell[367324, 9297, 648, 14, 55, "Message",ExpressionUUID->"97593a40-302d-412c-bbc0-f4ea801b7b7a"], -Cell[367975, 9313, 495, 11, 36, "Message",ExpressionUUID->"1c6b0772-a7a7-4b4d-94b4-3685b23eba4d"], -Cell[368473, 9326, 195, 3, 46, "Output",ExpressionUUID->"151975e4-5d70-47fe-b94d-ef9ea79c52f1"] +Cell[363744, 9199, 2272, 64, 167, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], +Cell[366019, 9265, 650, 14, 65, "Message",ExpressionUUID->"603ab8ad-975f-41fe-b0e8-f37a58c99766"], +Cell[366672, 9281, 649, 14, 65, "Message",ExpressionUUID->"8a532210-0ac4-4ddb-ade8-ca6b71b99c32"], +Cell[367324, 9297, 648, 14, 65, "Message",ExpressionUUID->"97593a40-302d-412c-bbc0-f4ea801b7b7a"], +Cell[367975, 9313, 495, 11, 24, "Message",ExpressionUUID->"1c6b0772-a7a7-4b4d-94b4-3685b23eba4d"], +Cell[368473, 9326, 195, 3, 37, "Output",ExpressionUUID->"151975e4-5d70-47fe-b94d-ef9ea79c52f1"] }, Open ]], Cell[CellGroupData[{ -Cell[368705, 9334, 2233, 63, 122, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], -Cell[370941, 9399, 647, 14, 55, "Message",ExpressionUUID->"908289d7-8015-4437-900a-4e52c11cf0ce"], -Cell[371591, 9415, 646, 14, 55, "Message",ExpressionUUID->"2b22c3b1-a039-444d-b2bf-b0f6c95b75f9"], -Cell[372240, 9431, 645, 14, 55, "Message",ExpressionUUID->"d1d3adad-6b41-4659-9910-c115c7819e55"], -Cell[372888, 9447, 492, 11, 36, "Message",ExpressionUUID->"3a72924a-4db7-4339-a4fc-598dce5f63a0"], -Cell[373383, 9460, 195, 3, 46, "Output",ExpressionUUID->"60a9c4d3-52fe-49fd-8963-37d121939b7d"] +Cell[368705, 9334, 2233, 63, 167, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], +Cell[370941, 9399, 647, 14, 65, "Message",ExpressionUUID->"908289d7-8015-4437-900a-4e52c11cf0ce"], +Cell[371591, 9415, 646, 14, 65, "Message",ExpressionUUID->"2b22c3b1-a039-444d-b2bf-b0f6c95b75f9"], +Cell[372240, 9431, 645, 14, 65, "Message",ExpressionUUID->"d1d3adad-6b41-4659-9910-c115c7819e55"], +Cell[372888, 9447, 492, 11, 24, "Message",ExpressionUUID->"3a72924a-4db7-4339-a4fc-598dce5f63a0"], +Cell[373383, 9460, 195, 3, 37, "Output",ExpressionUUID->"60a9c4d3-52fe-49fd-8963-37d121939b7d"] }, Open ]], Cell[CellGroupData[{ -Cell[373615, 9468, 2235, 63, 122, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], -Cell[375853, 9533, 648, 14, 55, "Message",ExpressionUUID->"0575ec17-ccdc-4a53-b4f7-6941fd2e2d7a"], -Cell[376504, 9549, 647, 14, 55, "Message",ExpressionUUID->"9ce0c746-01f0-4a07-af40-d6fc9cb7d3f8"], -Cell[377154, 9565, 646, 14, 55, "Message",ExpressionUUID->"a8e63a08-9519-4a6c-bb22-036249d4eb2e"], -Cell[377803, 9581, 495, 11, 36, "Message",ExpressionUUID->"0a324fb8-99e9-4fe9-9a34-53ba2a5b9e8b"], -Cell[378301, 9594, 192, 3, 46, "Output",ExpressionUUID->"9cddeb34-0014-405a-bcbc-e52bc06e1dc2"] +Cell[373615, 9468, 2235, 63, 167, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], +Cell[375853, 9533, 648, 14, 65, "Message",ExpressionUUID->"0575ec17-ccdc-4a53-b4f7-6941fd2e2d7a"], +Cell[376504, 9549, 647, 14, 65, "Message",ExpressionUUID->"9ce0c746-01f0-4a07-af40-d6fc9cb7d3f8"], +Cell[377154, 9565, 646, 14, 65, "Message",ExpressionUUID->"a8e63a08-9519-4a6c-bb22-036249d4eb2e"], +Cell[377803, 9581, 495, 11, 24, "Message",ExpressionUUID->"0a324fb8-99e9-4fe9-9a34-53ba2a5b9e8b"], +Cell[378301, 9594, 192, 3, 37, "Output",ExpressionUUID->"9cddeb34-0014-405a-bcbc-e52bc06e1dc2"] }, Open ]], Cell[CellGroupData[{ -Cell[378530, 9602, 236, 6, 66, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], -Cell[378769, 9610, 197, 3, 46, "Output",ExpressionUUID->"d385b9d5-d72d-4141-b8a0-d086341e18e7"] +Cell[378530, 9602, 236, 6, 52, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], +Cell[378769, 9610, 197, 3, 37, "Output",ExpressionUUID->"d385b9d5-d72d-4141-b8a0-d086341e18e7"] }, Open ]], -Cell[378981, 9616, 273, 6, 40, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], +Cell[378981, 9616, 273, 6, 32, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ -Cell[379279, 9626, 558, 19, 73, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], -Cell[379840, 9647, 193, 3, 46, "Output",ExpressionUUID->"733fbca9-2651-4052-95e7-41e70f98109b"] +Cell[379279, 9626, 558, 19, 58, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], +Cell[379840, 9647, 193, 3, 37, "Output",ExpressionUUID->"733fbca9-2651-4052-95e7-41e70f98109b"] }, Open ]], Cell[CellGroupData[{ -Cell[380070, 9655, 170, 5, 77, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], -Cell[380243, 9662, 195, 3, 46, "Output",ExpressionUUID->"61ccd792-ba29-494e-b151-b631735909e0"] +Cell[380070, 9655, 170, 5, 62, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], +Cell[380243, 9662, 195, 3, 37, "Output",ExpressionUUID->"61ccd792-ba29-494e-b151-b631735909e0"] }, Open ]], Cell[CellGroupData[{ -Cell[380475, 9670, 181, 5, 60, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], -Cell[380659, 9677, 195, 3, 46, "Output",ExpressionUUID->"c6d146fc-d6bb-44c3-9902-9e661957fd91"] +Cell[380475, 9670, 181, 5, 48, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], +Cell[380659, 9677, 195, 3, 37, "Output",ExpressionUUID->"c6d146fc-d6bb-44c3-9902-9e661957fd91"] }, Open ]], Cell[CellGroupData[{ -Cell[380891, 9685, 6055, 185, 465, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], -Cell[386949, 9872, 197, 3, 46, "Output",ExpressionUUID->"788ba529-b860-4ccc-b33d-d238ebfa3b75"] +Cell[380891, 9685, 6055, 185, 382, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], +Cell[386949, 9872, 197, 3, 37, "Output",ExpressionUUID->"788ba529-b860-4ccc-b33d-d238ebfa3b75"] }, Open ]], Cell[CellGroupData[{ -Cell[387183, 9880, 368, 9, 58, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], -Cell[387554, 9891, 193, 3, 46, "Output",ExpressionUUID->"f81a5b7d-fde2-4db6-a751-5931cdd8f114"] +Cell[387183, 9880, 368, 9, 48, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], +Cell[387554, 9891, 193, 3, 37, "Output",ExpressionUUID->"f81a5b7d-fde2-4db6-a751-5931cdd8f114"] }, Open ]], Cell[CellGroupData[{ -Cell[387784, 9899, 6122, 187, 465, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], -Cell[393909, 10088, 196, 3, 46, "Output",ExpressionUUID->"0f8df549-3604-434f-a99d-3f3ec0f4dcb6"] +Cell[387784, 9899, 6122, 187, 382, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], +Cell[393909, 10088, 196, 3, 37, "Output",ExpressionUUID->"0f8df549-3604-434f-a99d-3f3ec0f4dcb6"] }, Open ]], Cell[CellGroupData[{ -Cell[394142, 10096, 368, 9, 58, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], -Cell[394513, 10107, 194, 3, 46, "Output",ExpressionUUID->"47b3edbe-11e8-4e18-9f7c-69c5f0a6f707"] +Cell[394142, 10096, 368, 9, 48, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], +Cell[394513, 10107, 194, 3, 37, "Output",ExpressionUUID->"47b3edbe-11e8-4e18-9f7c-69c5f0a6f707"] }, Open ]], Cell[CellGroupData[{ -Cell[394744, 10115, 2663, 88, 232, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], -Cell[397410, 10205, 196, 3, 46, "Output",ExpressionUUID->"bde2f6dc-92cb-4821-aee6-0a2a578b7543"] +Cell[394744, 10115, 2663, 88, 190, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], +Cell[397410, 10205, 196, 3, 37, "Output",ExpressionUUID->"bde2f6dc-92cb-4821-aee6-0a2a578b7543"] }, Open ]], Cell[CellGroupData[{ -Cell[397643, 10213, 2603, 85, 232, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], -Cell[400249, 10300, 195, 3, 46, "Output",ExpressionUUID->"382a751b-43bc-4d30-a90f-4e32d88735a1"] +Cell[397643, 10213, 2603, 85, 190, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], +Cell[400249, 10300, 195, 3, 37, "Output",ExpressionUUID->"382a751b-43bc-4d30-a90f-4e32d88735a1"] }, Open ]], Cell[CellGroupData[{ -Cell[400481, 10308, 3712, 118, 341, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], -Cell[404196, 10428, 194, 3, 46, "Output",ExpressionUUID->"f41a3cdf-c662-4cfc-baf7-2df7fa7035f1"] +Cell[400481, 10308, 3712, 118, 280, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], +Cell[404196, 10428, 194, 3, 37, "Output",ExpressionUUID->"f41a3cdf-c662-4cfc-baf7-2df7fa7035f1"] }, Open ]], Cell[CellGroupData[{ -Cell[404427, 10436, 2101, 60, 88, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], -Cell[406531, 10498, 649, 14, 55, "Message",ExpressionUUID->"0ff80053-be79-4ae9-926a-91ac73fdfcb1"], -Cell[407183, 10514, 649, 14, 55, "Message",ExpressionUUID->"3c0e8781-f902-4c31-b9ba-53c863e17092"], -Cell[407835, 10530, 649, 14, 55, "Message",ExpressionUUID->"51f25e0f-0303-47ef-a1ac-9d29013bed1b"], -Cell[408487, 10546, 495, 11, 36, "Message",ExpressionUUID->"a6dacd27-fff5-45b9-ac1b-24117a51a09c"], -Cell[408985, 10559, 194, 3, 46, "Output",ExpressionUUID->"0aa9ab4d-3dda-4514-a2af-df6e7a2dd1e6"] +Cell[404427, 10436, 2101, 60, 73, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], +Cell[406531, 10498, 649, 14, 45, "Message",ExpressionUUID->"0ff80053-be79-4ae9-926a-91ac73fdfcb1"], +Cell[407183, 10514, 649, 14, 45, "Message",ExpressionUUID->"3c0e8781-f902-4c31-b9ba-53c863e17092"], +Cell[407835, 10530, 649, 14, 45, "Message",ExpressionUUID->"51f25e0f-0303-47ef-a1ac-9d29013bed1b"], +Cell[408487, 10546, 495, 11, 29, "Message",ExpressionUUID->"a6dacd27-fff5-45b9-ac1b-24117a51a09c"], +Cell[408985, 10559, 194, 3, 37, "Output",ExpressionUUID->"0aa9ab4d-3dda-4514-a2af-df6e7a2dd1e6"] }, Open ]], Cell[CellGroupData[{ -Cell[409216, 10567, 2103, 60, 88, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], -Cell[411322, 10629, 649, 14, 55, "Message",ExpressionUUID->"5112e02d-e545-48cf-9a8c-d7207461823f"], -Cell[411974, 10645, 649, 14, 55, "Message",ExpressionUUID->"64b49304-a247-42ef-843b-4f2dea728f3d"], -Cell[412626, 10661, 649, 14, 55, "Message",ExpressionUUID->"0f8b952b-3302-4a0c-8d5f-cc8f793c6e95"], -Cell[413278, 10677, 495, 11, 36, "Message",ExpressionUUID->"ba23b597-0c17-4135-a0ee-8e314fef255a"], -Cell[413776, 10690, 192, 3, 46, "Output",ExpressionUUID->"fa3818e2-c10e-4c9d-adf5-9c5b17c8bc33"] +Cell[409216, 10567, 2103, 60, 73, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], +Cell[411322, 10629, 649, 14, 45, "Message",ExpressionUUID->"5112e02d-e545-48cf-9a8c-d7207461823f"], +Cell[411974, 10645, 649, 14, 45, "Message",ExpressionUUID->"64b49304-a247-42ef-843b-4f2dea728f3d"], +Cell[412626, 10661, 649, 14, 45, "Message",ExpressionUUID->"0f8b952b-3302-4a0c-8d5f-cc8f793c6e95"], +Cell[413278, 10677, 495, 11, 29, "Message",ExpressionUUID->"ba23b597-0c17-4135-a0ee-8e314fef255a"], +Cell[413776, 10690, 192, 3, 37, "Output",ExpressionUUID->"fa3818e2-c10e-4c9d-adf5-9c5b17c8bc33"] }, Open ]], Cell[CellGroupData[{ -Cell[414005, 10698, 2053, 55, 69, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], -Cell[416061, 10755, 20383, 383, 325, "Output",ExpressionUUID->"cdcadd4d-0324-4ea7-b8eb-a3a53c14400c"] +Cell[414005, 10698, 2053, 55, 58, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], +Cell[416061, 10755, 20383, 383, 261, "Output",ExpressionUUID->"cdcadd4d-0324-4ea7-b8eb-a3a53c14400c"] }, Open ]], Cell[CellGroupData[{ -Cell[436481, 11143, 2141, 60, 127, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], -Cell[438625, 11205, 534, 12, 55, "Message",ExpressionUUID->"2540e0a5-4fec-4518-8fd9-9f5321dd3cf9"], -Cell[439162, 11219, 534, 12, 55, "Message",ExpressionUUID->"f1f87d24-0881-4926-9c87-37f3a4e40744"], -Cell[439699, 11233, 539, 12, 55, "Message",ExpressionUUID->"3a8f875c-d1cf-4b28-9aa7-e4320f768391"], -Cell[440241, 11247, 493, 11, 36, "Message",ExpressionUUID->"a8a37f01-1e07-4857-b73e-181202b25075"], -Cell[440737, 11260, 22226, 411, 325, "Output",ExpressionUUID->"a3ee5c8c-e35d-472c-9f34-282d27f563be"] +Cell[436481, 11143, 2141, 60, 107, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], +Cell[438625, 11205, 534, 12, 45, "Message",ExpressionUUID->"2540e0a5-4fec-4518-8fd9-9f5321dd3cf9"], +Cell[439162, 11219, 534, 12, 45, "Message",ExpressionUUID->"f1f87d24-0881-4926-9c87-37f3a4e40744"], +Cell[439699, 11233, 539, 12, 45, "Message",ExpressionUUID->"3a8f875c-d1cf-4b28-9aa7-e4320f768391"], +Cell[440241, 11247, 493, 11, 29, "Message",ExpressionUUID->"a8a37f01-1e07-4857-b73e-181202b25075"], +Cell[440737, 11260, 22226, 411, 261, "Output",ExpressionUUID->"a3ee5c8c-e35d-472c-9f34-282d27f563be"] }, Open ]], -Cell[462978, 11674, 200, 4, 40, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], +Cell[462978, 11674, 200, 4, 33, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], Cell[CellGroupData[{ -Cell[463203, 11682, 232, 5, 40, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], -Cell[463438, 11689, 28586, 543, 325, "Output",ExpressionUUID->"426e45d4-3b67-4356-a20d-590bc061f130"] +Cell[463203, 11682, 232, 5, 33, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], +Cell[463438, 11689, 28586, 543, 261, "Output",ExpressionUUID->"426e45d4-3b67-4356-a20d-590bc061f130"] }, Open ]], Cell[CellGroupData[{ -Cell[492061, 12237, 1616, 48, 94, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], -Cell[493680, 12287, 649, 14, 55, "Message",ExpressionUUID->"30c88cef-1d51-45d3-b4b8-877ff639bcfe"], -Cell[494332, 12303, 649, 14, 55, "Message",ExpressionUUID->"e391d19e-6fd7-45b3-a470-39b0e793777b"], -Cell[494984, 12319, 648, 14, 55, "Message",ExpressionUUID->"360dfca6-98b4-4aae-b8ed-fd95cd6f5c90"], -Cell[495635, 12335, 495, 11, 36, "Message",ExpressionUUID->"4aa83cf3-2f38-42ba-89df-3f2b793f2e13"], -Cell[496133, 12348, 192, 3, 46, "Output",ExpressionUUID->"63860990-9877-46fd-99fd-287dc41cec6f"] +Cell[492061, 12237, 1616, 48, 79, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], +Cell[493680, 12287, 649, 14, 45, "Message",ExpressionUUID->"30c88cef-1d51-45d3-b4b8-877ff639bcfe"], +Cell[494332, 12303, 649, 14, 45, "Message",ExpressionUUID->"e391d19e-6fd7-45b3-a470-39b0e793777b"], +Cell[494984, 12319, 648, 14, 45, "Message",ExpressionUUID->"360dfca6-98b4-4aae-b8ed-fd95cd6f5c90"], +Cell[495635, 12335, 495, 11, 29, "Message",ExpressionUUID->"4aa83cf3-2f38-42ba-89df-3f2b793f2e13"], +Cell[496133, 12348, 192, 3, 37, "Output",ExpressionUUID->"63860990-9877-46fd-99fd-287dc41cec6f"] }, Open ]], Cell[CellGroupData[{ -Cell[496362, 12356, 2270, 64, 156, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], -Cell[498635, 12422, 649, 14, 55, "Message",ExpressionUUID->"e821dab4-f096-4832-a5d5-43ba30f22e64"], -Cell[499287, 12438, 649, 14, 55, "Message",ExpressionUUID->"ac933b3c-206b-4aad-aafd-bfa6cedae605"], -Cell[499939, 12454, 649, 14, 55, "Message",ExpressionUUID->"ad2a10b1-f81e-4e10-9b6e-775704bf4102"], -Cell[500591, 12470, 495, 11, 36, "Message",ExpressionUUID->"421878f9-c289-4710-b02f-651c11178e7c"], -Cell[501089, 12483, 196, 3, 46, "Output",ExpressionUUID->"02f57a94-2248-4691-b708-06b596567ec1"] +Cell[496362, 12356, 2270, 64, 73, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], +Cell[498635, 12422, 649, 14, 45, "Message",ExpressionUUID->"e821dab4-f096-4832-a5d5-43ba30f22e64"], +Cell[499287, 12438, 649, 14, 45, "Message",ExpressionUUID->"ac933b3c-206b-4aad-aafd-bfa6cedae605"], +Cell[499939, 12454, 649, 14, 45, "Message",ExpressionUUID->"ad2a10b1-f81e-4e10-9b6e-775704bf4102"], +Cell[500591, 12470, 495, 11, 29, "Message",ExpressionUUID->"421878f9-c289-4710-b02f-651c11178e7c"], +Cell[501089, 12483, 196, 3, 37, "Output",ExpressionUUID->"02f57a94-2248-4691-b708-06b596567ec1"] }, Open ]], Cell[CellGroupData[{ -Cell[501322, 12491, 2233, 63, 122, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], -Cell[503558, 12556, 647, 14, 55, "Message",ExpressionUUID->"89106565-ce05-4d79-8235-8a18ffcdc937"], -Cell[504208, 12572, 647, 14, 55, "Message",ExpressionUUID->"7059694b-e74d-4dd5-a4ba-f711a9ac79d4"], -Cell[504858, 12588, 649, 14, 55, "Message",ExpressionUUID->"5a50379e-e762-437c-99d7-b32a3dcc0573"], -Cell[505510, 12604, 493, 11, 36, "Message",ExpressionUUID->"67293483-0e0d-4208-8db1-f41ca1696e0e"], -Cell[506006, 12617, 195, 3, 46, "Output",ExpressionUUID->"b2e048ac-2eda-4d44-b247-a3579a26f25b"] +Cell[501322, 12491, 2233, 63, 73, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], +Cell[503558, 12556, 647, 14, 45, "Message",ExpressionUUID->"89106565-ce05-4d79-8235-8a18ffcdc937"], +Cell[504208, 12572, 647, 14, 45, "Message",ExpressionUUID->"7059694b-e74d-4dd5-a4ba-f711a9ac79d4"], +Cell[504858, 12588, 649, 14, 45, "Message",ExpressionUUID->"5a50379e-e762-437c-99d7-b32a3dcc0573"], +Cell[505510, 12604, 493, 11, 29, "Message",ExpressionUUID->"67293483-0e0d-4208-8db1-f41ca1696e0e"], +Cell[506006, 12617, 195, 3, 37, "Output",ExpressionUUID->"b2e048ac-2eda-4d44-b247-a3579a26f25b"] }, Open ]], Cell[CellGroupData[{ -Cell[506238, 12625, 2233, 63, 122, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], -Cell[508474, 12690, 649, 14, 55, "Message",ExpressionUUID->"7529ee8b-37c9-4087-9380-a3e6549d6478"], -Cell[509126, 12706, 651, 14, 55, "Message",ExpressionUUID->"b77914b3-186b-4e58-b8c7-1c512c4bfea7"], -Cell[509780, 12722, 651, 14, 55, "Message",ExpressionUUID->"28546a42-b45d-420f-b485-349f57829216"], -Cell[510434, 12738, 495, 11, 36, "Message",ExpressionUUID->"a1d1d7c5-8ebe-41a5-a3cf-d3e4445143ea"], -Cell[510932, 12751, 195, 3, 46, "Output",ExpressionUUID->"9e9ab955-e636-4f47-b0c4-ab1e16eb3681"] +Cell[506238, 12625, 2233, 63, 73, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], +Cell[508474, 12690, 649, 14, 45, "Message",ExpressionUUID->"7529ee8b-37c9-4087-9380-a3e6549d6478"], +Cell[509126, 12706, 651, 14, 45, "Message",ExpressionUUID->"b77914b3-186b-4e58-b8c7-1c512c4bfea7"], +Cell[509780, 12722, 651, 14, 45, "Message",ExpressionUUID->"28546a42-b45d-420f-b485-349f57829216"], +Cell[510434, 12738, 495, 11, 29, "Message",ExpressionUUID->"a1d1d7c5-8ebe-41a5-a3cf-d3e4445143ea"], +Cell[510932, 12751, 195, 3, 37, "Output",ExpressionUUID->"9e9ab955-e636-4f47-b0c4-ab1e16eb3681"] }, Open ]], Cell[CellGroupData[{ -Cell[511164, 12759, 236, 6, 66, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], -Cell[511403, 12767, 196, 3, 46, "Output",ExpressionUUID->"d62e1f87-ded5-420d-a8d2-cf06d1981edb"] +Cell[511164, 12759, 236, 6, 54, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], +Cell[511403, 12767, 196, 3, 37, "Output",ExpressionUUID->"d62e1f87-ded5-420d-a8d2-cf06d1981edb"] }, Open ]], -Cell[511614, 12773, 271, 6, 40, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], +Cell[511614, 12773, 271, 6, 33, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ -Cell[511910, 12783, 558, 19, 73, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], -Cell[512471, 12804, 195, 3, 46, "Output",ExpressionUUID->"7ae7a733-236b-44d3-b2ff-49c4a5d2e7f7"] +Cell[511910, 12783, 558, 19, 59, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], +Cell[512471, 12804, 195, 3, 37, "Output",ExpressionUUID->"7ae7a733-236b-44d3-b2ff-49c4a5d2e7f7"] }, Open ]], Cell[CellGroupData[{ -Cell[512703, 12812, 170, 5, 77, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], -Cell[512876, 12819, 193, 3, 46, "Output",ExpressionUUID->"301ac93d-f024-43aa-9363-a2a7d87bef79"] +Cell[512703, 12812, 170, 5, 63, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], +Cell[512876, 12819, 193, 3, 37, "Output",ExpressionUUID->"301ac93d-f024-43aa-9363-a2a7d87bef79"] }, Open ]], Cell[CellGroupData[{ -Cell[513106, 12827, 181, 5, 60, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], -Cell[513290, 12834, 195, 3, 46, "Output",ExpressionUUID->"be4271c5-4dcc-4b69-8481-aaac382ef85c"] +Cell[513106, 12827, 181, 5, 49, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], +Cell[513290, 12834, 195, 3, 37, "Output",ExpressionUUID->"be4271c5-4dcc-4b69-8481-aaac382ef85c"] }, Open ]], Cell[CellGroupData[{ -Cell[513522, 12842, 6055, 185, 465, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], -Cell[519580, 13029, 197, 3, 46, "Output",ExpressionUUID->"f22f7b30-175d-47b8-bac0-415448a3862b"] +Cell[513522, 12842, 6055, 185, 382, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], +Cell[519580, 13029, 197, 3, 37, "Output",ExpressionUUID->"f22f7b30-175d-47b8-bac0-415448a3862b"] }, Open ]], Cell[CellGroupData[{ -Cell[519814, 13037, 368, 9, 58, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], -Cell[520185, 13048, 193, 3, 70, "Output",ExpressionUUID->"413feae9-af76-477c-867e-c7bcf12e4023"] +Cell[519814, 13037, 368, 9, 48, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], +Cell[520185, 13048, 193, 3, 37, "Output",ExpressionUUID->"413feae9-af76-477c-867e-c7bcf12e4023"] }, Open ]], Cell[CellGroupData[{ -Cell[520415, 13056, 6122, 187, 70, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], -Cell[526540, 13245, 199, 3, 70, "Output",ExpressionUUID->"918d67fa-219c-49ae-8205-97425ea65a4d"] +Cell[520415, 13056, 6122, 187, 382, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], +Cell[526540, 13245, 199, 3, 37, "Output",ExpressionUUID->"918d67fa-219c-49ae-8205-97425ea65a4d"] }, Open ]], Cell[CellGroupData[{ -Cell[526776, 13253, 368, 9, 70, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], -Cell[527147, 13264, 196, 3, 70, "Output",ExpressionUUID->"ec2f78d5-1cc4-4bdc-8a82-cc2cd6b4ccb2"] +Cell[526776, 13253, 368, 9, 48, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], +Cell[527147, 13264, 196, 3, 37, "Output",ExpressionUUID->"ec2f78d5-1cc4-4bdc-8a82-cc2cd6b4ccb2"] }, Open ]], Cell[CellGroupData[{ -Cell[527380, 13272, 2663, 88, 70, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], -Cell[530046, 13362, 196, 3, 70, "Output",ExpressionUUID->"35fded70-0449-4d46-a55f-90a3a8c97e60"] +Cell[527380, 13272, 2663, 88, 190, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], +Cell[530046, 13362, 196, 3, 37, "Output",ExpressionUUID->"35fded70-0449-4d46-a55f-90a3a8c97e60"] }, Open ]], Cell[CellGroupData[{ -Cell[530279, 13370, 2603, 85, 70, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], -Cell[532885, 13457, 193, 3, 70, "Output",ExpressionUUID->"47485af2-85e9-47a9-970f-66e4202d2301"] +Cell[530279, 13370, 2603, 85, 190, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], +Cell[532885, 13457, 193, 3, 37, "Output",ExpressionUUID->"47485af2-85e9-47a9-970f-66e4202d2301"] }, Open ]], Cell[CellGroupData[{ -Cell[533115, 13465, 3712, 118, 70, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], -Cell[536830, 13585, 194, 3, 70, "Output",ExpressionUUID->"e3217522-f91a-4340-a987-95c038ff0385"] +Cell[533115, 13465, 3712, 118, 280, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], +Cell[536830, 13585, 194, 3, 37, "Output",ExpressionUUID->"e3217522-f91a-4340-a987-95c038ff0385"] }, Open ]], Cell[CellGroupData[{ -Cell[537061, 13593, 2101, 60, 70, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], -Cell[539165, 13655, 651, 14, 70, "Message",ExpressionUUID->"d76e9eff-1ab7-4b79-ab2e-f565fb835827"], -Cell[539819, 13671, 651, 14, 70, "Message",ExpressionUUID->"db0739ae-5fd7-4bed-a876-78834f233cd9"], -Cell[540473, 13687, 647, 14, 70, "Message",ExpressionUUID->"d9a22c2d-2f4a-4bda-bca4-3fd3150fda12"], -Cell[541123, 13703, 494, 11, 70, "Message",ExpressionUUID->"5d39ee8a-3ca1-4d68-87fb-8978378e8711"], -Cell[541620, 13716, 195, 3, 70, "Output",ExpressionUUID->"b1f9d784-d5c5-4f41-b7be-b233a0392a43"] +Cell[537061, 13593, 2101, 60, 73, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], +Cell[539165, 13655, 651, 14, 45, "Message",ExpressionUUID->"d76e9eff-1ab7-4b79-ab2e-f565fb835827"], +Cell[539819, 13671, 651, 14, 45, "Message",ExpressionUUID->"db0739ae-5fd7-4bed-a876-78834f233cd9"], +Cell[540473, 13687, 647, 14, 45, "Message",ExpressionUUID->"d9a22c2d-2f4a-4bda-bca4-3fd3150fda12"], +Cell[541123, 13703, 494, 11, 29, "Message",ExpressionUUID->"5d39ee8a-3ca1-4d68-87fb-8978378e8711"], +Cell[541620, 13716, 195, 3, 37, "Output",ExpressionUUID->"b1f9d784-d5c5-4f41-b7be-b233a0392a43"] }, Open ]], Cell[CellGroupData[{ -Cell[541852, 13724, 2103, 60, 70, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], -Cell[543958, 13786, 648, 14, 70, "Message",ExpressionUUID->"dfd9516a-f899-4844-b16d-809a6a2b6307"], -Cell[544609, 13802, 647, 14, 70, "Message",ExpressionUUID->"12df5e30-1006-494e-a5ca-62641f4f91a3"], -Cell[545259, 13818, 648, 14, 70, "Message",ExpressionUUID->"9e707046-d9fe-4b5b-adf0-012eb39ef696"], -Cell[545910, 13834, 495, 11, 70, "Message",ExpressionUUID->"1964187f-89af-4e43-8f09-fc8cc6f2ed28"], -Cell[546408, 13847, 197, 3, 70, "Output",ExpressionUUID->"5481bc53-e119-40ae-ba74-6e92813de6a0"] +Cell[541852, 13724, 2103, 60, 73, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], +Cell[543958, 13786, 648, 14, 45, "Message",ExpressionUUID->"dfd9516a-f899-4844-b16d-809a6a2b6307"], +Cell[544609, 13802, 647, 14, 45, "Message",ExpressionUUID->"12df5e30-1006-494e-a5ca-62641f4f91a3"], +Cell[545259, 13818, 648, 14, 45, "Message",ExpressionUUID->"9e707046-d9fe-4b5b-adf0-012eb39ef696"], +Cell[545910, 13834, 495, 11, 29, "Message",ExpressionUUID->"1964187f-89af-4e43-8f09-fc8cc6f2ed28"], +Cell[546408, 13847, 197, 3, 37, "Output",ExpressionUUID->"5481bc53-e119-40ae-ba74-6e92813de6a0"] }, Open ]], Cell[CellGroupData[{ -Cell[546642, 13855, 2053, 55, 70, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], -Cell[548698, 13912, 20554, 386, 70, "Output",ExpressionUUID->"5bb9d157-8ab0-443f-bd1d-9987cadddb61"] +Cell[546642, 13855, 2053, 55, 58, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], +Cell[548698, 13912, 20554, 386, 266, "Output",ExpressionUUID->"5bb9d157-8ab0-443f-bd1d-9987cadddb61"] }, Open ]], Cell[CellGroupData[{ -Cell[569289, 14303, 2141, 60, 70, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], -Cell[571433, 14365, 535, 12, 70, "Message",ExpressionUUID->"fd50da40-92cc-4ad6-941f-d0ee971ac4ce"], -Cell[571971, 14379, 537, 12, 70, "Message",ExpressionUUID->"0bc5fa83-00f3-4535-8847-1a7dd96db495"], -Cell[572511, 14393, 540, 12, 70, "Message",ExpressionUUID->"53b89f26-a86b-4431-919b-87cf4d4793ef"], -Cell[573054, 14407, 495, 11, 70, "Message",ExpressionUUID->"80047130-70f7-45a8-952e-80935b702ead"], -Cell[573552, 14420, 21965, 408, 70, "Output",ExpressionUUID->"8ea655c6-75fb-4c51-93f6-3206c9e65e8c"] +Cell[569289, 14303, 2141, 60, 107, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], +Cell[571433, 14365, 535, 12, 45, "Message",ExpressionUUID->"fd50da40-92cc-4ad6-941f-d0ee971ac4ce"], +Cell[571971, 14379, 537, 12, 45, "Message",ExpressionUUID->"0bc5fa83-00f3-4535-8847-1a7dd96db495"], +Cell[572511, 14393, 540, 12, 45, "Message",ExpressionUUID->"53b89f26-a86b-4431-919b-87cf4d4793ef"], +Cell[573054, 14407, 495, 11, 29, "Message",ExpressionUUID->"80047130-70f7-45a8-952e-80935b702ead"], +Cell[573552, 14420, 21965, 408, 261, "Output",ExpressionUUID->"8ea655c6-75fb-4c51-93f6-3206c9e65e8c"] }, Open ]], -Cell[595532, 14831, 207, 4, 70, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], +Cell[595532, 14831, 207, 4, 33, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], Cell[CellGroupData[{ -Cell[595764, 14839, 230, 5, 70, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], -Cell[595997, 14846, 28327, 540, 70, "Output",ExpressionUUID->"9d1ff533-cf83-431b-ba7b-bfc305a42714"] +Cell[595764, 14839, 230, 5, 33, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], +Cell[595997, 14846, 28327, 540, 261, "Output",ExpressionUUID->"9d1ff533-cf83-431b-ba7b-bfc305a42714"] }, Open ]], Cell[CellGroupData[{ -Cell[624361, 15391, 1616, 48, 70, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], -Cell[625980, 15441, 651, 14, 70, "Message",ExpressionUUID->"666fb1cf-0dfb-4074-a65b-80df7e7b89b3"], -Cell[626634, 15457, 649, 14, 70, "Message",ExpressionUUID->"fa5eb4c8-2c7d-415d-919d-a9da79735dab"], -Cell[627286, 15473, 648, 14, 70, "Message",ExpressionUUID->"969b635f-9f9c-4e61-a3a1-f15ea88da7b1"], -Cell[627937, 15489, 495, 11, 70, "Message",ExpressionUUID->"d4deb18d-5d8b-46fe-ab13-4f72e93f412c"], -Cell[628435, 15502, 197, 3, 70, "Output",ExpressionUUID->"f32daa50-8d08-4014-8bad-96653b713d3b"] +Cell[624361, 15391, 1616, 48, 79, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], +Cell[625980, 15441, 651, 14, 45, "Message",ExpressionUUID->"666fb1cf-0dfb-4074-a65b-80df7e7b89b3"], +Cell[626634, 15457, 649, 14, 45, "Message",ExpressionUUID->"fa5eb4c8-2c7d-415d-919d-a9da79735dab"], +Cell[627286, 15473, 648, 14, 45, "Message",ExpressionUUID->"969b635f-9f9c-4e61-a3a1-f15ea88da7b1"], +Cell[627937, 15489, 495, 11, 29, "Message",ExpressionUUID->"d4deb18d-5d8b-46fe-ab13-4f72e93f412c"], +Cell[628435, 15502, 197, 3, 37, "Output",ExpressionUUID->"f32daa50-8d08-4014-8bad-96653b713d3b"] }, Open ]], Cell[CellGroupData[{ -Cell[628669, 15510, 2269, 64, 70, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], -Cell[630941, 15576, 649, 14, 70, "Message",ExpressionUUID->"5de0fa25-e140-46cc-a3f8-3aba86fb2c0e"], -Cell[631593, 15592, 647, 14, 70, "Message",ExpressionUUID->"5fa2ec55-35fd-4ab3-a975-0c57f822f78d"], -Cell[632243, 15608, 646, 14, 70, "Message",ExpressionUUID->"da636060-9f86-48ba-82d0-db3aec03a54d"], -Cell[632892, 15624, 495, 11, 70, "Message",ExpressionUUID->"10219f95-3fcc-4f03-9aa9-82141c7d82ef"], -Cell[633390, 15637, 196, 3, 70, "Output",ExpressionUUID->"97ad71f4-add2-475a-afed-6f9981fc2350"] +Cell[628669, 15510, 2269, 64, 73, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], +Cell[630941, 15576, 649, 14, 45, "Message",ExpressionUUID->"5de0fa25-e140-46cc-a3f8-3aba86fb2c0e"], +Cell[631593, 15592, 647, 14, 45, "Message",ExpressionUUID->"5fa2ec55-35fd-4ab3-a975-0c57f822f78d"], +Cell[632243, 15608, 646, 14, 45, "Message",ExpressionUUID->"da636060-9f86-48ba-82d0-db3aec03a54d"], +Cell[632892, 15624, 495, 11, 29, "Message",ExpressionUUID->"10219f95-3fcc-4f03-9aa9-82141c7d82ef"], +Cell[633390, 15637, 196, 3, 37, "Output",ExpressionUUID->"97ad71f4-add2-475a-afed-6f9981fc2350"] }, Open ]], Cell[CellGroupData[{ -Cell[633623, 15645, 2233, 63, 70, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], -Cell[635859, 15710, 649, 14, 70, "Message",ExpressionUUID->"f8dc0120-9ee9-4cd7-9a75-4220a93c2ad5"], -Cell[636511, 15726, 649, 14, 70, "Message",ExpressionUUID->"23719507-0560-4759-8652-d6f8559a93bc"], -Cell[637163, 15742, 646, 14, 70, "Message",ExpressionUUID->"f06d80c5-2b2d-4599-a266-b12135f00231"], -Cell[637812, 15758, 495, 11, 70, "Message",ExpressionUUID->"00a6587c-848e-49c3-9855-e81095002018"], -Cell[638310, 15771, 196, 3, 70, "Output",ExpressionUUID->"6953079e-8ee6-4f83-b21e-25483dd8585b"] +Cell[633623, 15645, 2233, 63, 73, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], +Cell[635859, 15710, 649, 14, 45, "Message",ExpressionUUID->"f8dc0120-9ee9-4cd7-9a75-4220a93c2ad5"], +Cell[636511, 15726, 649, 14, 45, "Message",ExpressionUUID->"23719507-0560-4759-8652-d6f8559a93bc"], +Cell[637163, 15742, 646, 14, 45, "Message",ExpressionUUID->"f06d80c5-2b2d-4599-a266-b12135f00231"], +Cell[637812, 15758, 495, 11, 29, "Message",ExpressionUUID->"00a6587c-848e-49c3-9855-e81095002018"], +Cell[638310, 15771, 196, 3, 37, "Output",ExpressionUUID->"6953079e-8ee6-4f83-b21e-25483dd8585b"] }, Open ]], Cell[CellGroupData[{ -Cell[638543, 15779, 2235, 63, 70, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], -Cell[640781, 15844, 646, 14, 70, "Message",ExpressionUUID->"cc5bfed3-ab1e-4eb5-9959-d3d8c3d96ca0"], -Cell[641430, 15860, 647, 14, 70, "Message",ExpressionUUID->"746a24a7-4fd5-4af0-962a-32df7162c298"], -Cell[642080, 15876, 646, 14, 70, "Message",ExpressionUUID->"6f0b219c-718c-4252-aa68-5d85da767b44"], -Cell[642729, 15892, 493, 11, 70, "Message",ExpressionUUID->"1e81d2c7-0c80-47b0-8fef-75045bcc6920"], -Cell[643225, 15905, 196, 3, 70, "Output",ExpressionUUID->"0a05abac-a814-4558-bce8-70bed6bff89f"] +Cell[638543, 15779, 2235, 63, 73, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], +Cell[640781, 15844, 646, 14, 45, "Message",ExpressionUUID->"cc5bfed3-ab1e-4eb5-9959-d3d8c3d96ca0"], +Cell[641430, 15860, 647, 14, 45, "Message",ExpressionUUID->"746a24a7-4fd5-4af0-962a-32df7162c298"], +Cell[642080, 15876, 646, 14, 45, "Message",ExpressionUUID->"6f0b219c-718c-4252-aa68-5d85da767b44"], +Cell[642729, 15892, 493, 11, 29, "Message",ExpressionUUID->"1e81d2c7-0c80-47b0-8fef-75045bcc6920"], +Cell[643225, 15905, 196, 3, 37, "Output",ExpressionUUID->"0a05abac-a814-4558-bce8-70bed6bff89f"] }, Open ]], Cell[CellGroupData[{ -Cell[643458, 15913, 234, 6, 70, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], -Cell[643695, 15921, 197, 3, 70, "Output",ExpressionUUID->"c57492f7-619a-4b1e-ace3-684d3b556383"] +Cell[643458, 15913, 234, 6, 54, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], +Cell[643695, 15921, 197, 3, 37, "Output",ExpressionUUID->"c57492f7-619a-4b1e-ace3-684d3b556383"] }, Open ]], -Cell[643907, 15927, 210, 4, 70, "Input",ExpressionUUID->"513f446a-7f4e-4e3e-a8ae-ef97951f73d4"] +Cell[643907, 15927, 210, 4, 33, "Input",ExpressionUUID->"513f446a-7f4e-4e3e-a8ae-ef97951f73d4"], +Cell[CellGroupData[{ +Cell[644142, 15935, 4091, 88, 339, "Input",ExpressionUUID->"5509bda9-b3b1-4127-bb56-9e172827bd20"], +Cell[648236, 16025, 1972, 41, 73, "Output",ExpressionUUID->"0bad29c3-945a-4604-b73e-0f2ffb5e0f87"], +Cell[650211, 16068, 1649, 47, 615, "Output",ExpressionUUID->"c10121ff-96fe-4e1d-9a0b-7d6011d83a2c"] +}, Open ]] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_gid_Qw1.nb b/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_gid_Qw1.nb index 0454776..176b1c7 100644 --- a/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_gid_Qw1.nb +++ b/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_gid_Qw1.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 598608, 14621] -NotebookOptionsPosition[ 559532, 14000] -NotebookOutlinePosition[ 559937, 14017] -CellTagsIndexPosition[ 559894, 14014] +NotebookDataLength[ 689889, 16392] +NotebookOptionsPosition[ 649481, 15745] +NotebookOutlinePosition[ 649912, 15763] +CellTagsIndexPosition[ 649869, 15760] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -25,15 +25,14 @@ Cell[BoxData[ CellChangeTimes->{ 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, 3.9920650045886707`*^9, {3.993816332414463*^9, 3.993816395113246*^9}, { - 3.99408327105175*^9, - 3.99408327225659*^9}},ExpressionUUID->"0078b1a8-3f2c-4497-9c52-\ -25d178044aa5"], + 3.99408327105175*^9, 3.99408327225659*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"0078b1a8-3f2c-4497-9c52-25d178044aa5"], Cell[BoxData["1.78`"], "Output", CellChangeTimes->{ - 3.991320420900818*^9, {3.9938163104908867`*^9, 3.993816400323968*^9}}, - CellLabel-> - "Out[407]=",ExpressionUUID->"fdea815f-0b7d-48d6-b4c5-454fd9e9abe9"] + 3.991320420900818*^9, {3.9938163104908867`*^9, 3.993816400323968*^9}, + 3.9942561799673223`*^9, 3.9942563800542507`*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"97114188-0761-457e-8130-14b8f5c2ddb6"] }, Open ]], Cell[CellGroupData[{ @@ -42,14 +41,13 @@ Cell[BoxData[ RowBox[{"A", "=", "240"}]], "Input", CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { 3.993816070416484*^9, 3.9938160711424847`*^9}}, - CellLabel-> - "In[408]:=",ExpressionUUID->"a9334120-83c8-487e-937e-b71399944f71"], + CellLabel->"In[2]:=",ExpressionUUID->"a9334120-83c8-487e-937e-b71399944f71"], Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.9913196497381973`*^9, {3.993816310783677*^9, 3.9938164003801527`*^9}}, - CellLabel-> - "Out[408]=",ExpressionUUID->"75bf04e3-1efd-4e1a-a8bc-1733941a8d9a"] + 3.9913196497381973`*^9, {3.993816310783677*^9, 3.9938164003801527`*^9}, + 3.9942561800341997`*^9, 3.9942563805775833`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"9897628f-fb22-43ec-8ec2-1fe962e0f23a"] }, Open ]], Cell[CellGroupData[{ @@ -58,14 +56,13 @@ Cell[BoxData[ RowBox[{"A1", "=", "164"}]], "Input", CellChangeTimes->{ 3.991798961431202*^9, {3.993816075114204*^9, 3.993816075786501*^9}}, - CellLabel-> - "In[409]:=",ExpressionUUID->"521debca-02aa-4e6f-b778-143a7373f897"], + CellLabel->"In[3]:=",ExpressionUUID->"521debca-02aa-4e6f-b778-143a7373f897"], Cell[BoxData["164"], "Output", CellChangeTimes->{ - 3.9913196497578354`*^9, {3.99381631080079*^9, 3.9938164003966837`*^9}}, - CellLabel-> - "Out[409]=",ExpressionUUID->"3a3747e5-8a45-4f53-921c-0f4875f1a833"] + 3.9913196497578354`*^9, {3.99381631080079*^9, 3.9938164003966837`*^9}, + 3.99425618004701*^9, 3.994256380586409*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"7a127f07-df5f-484a-bb09-955ff5466ef9"] }, Open ]], Cell[CellGroupData[{ @@ -73,14 +70,13 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, - CellLabel-> - "In[410]:=",ExpressionUUID->"be7b1703-772f-4229-a7b1-4d0c54ce94ef"], + CellLabel->"In[4]:=",ExpressionUUID->"be7b1703-772f-4229-a7b1-4d0c54ce94ef"], Cell[BoxData["0.55`"], "Output", CellChangeTimes->{ - 3.991319649777508*^9, {3.9938163108190804`*^9, 3.99381640041328*^9}}, - CellLabel-> - "Out[410]=",ExpressionUUID->"10ebbc28-5dc8-4772-8b90-e72bbae78510"] + 3.991319649777508*^9, {3.9938163108190804`*^9, 3.99381640041328*^9}, + 3.9942561800517797`*^9, 3.994256380617614*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"68a5fd6c-e72f-46ea-941c-ef8a90d30b83"] }, Open ]], Cell[CellGroupData[{ @@ -92,28 +88,26 @@ Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", - CellLabel-> - "In[411]:=",ExpressionUUID->"f1a895c8-4160-47f2-8a43-59625ca41a0f"], + CellLabel->"In[5]:=",ExpressionUUID->"f1a895c8-4160-47f2-8a43-59625ca41a0f"], Cell[BoxData["0.5445000000000001`"], "Output", CellChangeTimes->{ - 3.9913196497965145`*^9, {3.99381631083608*^9, 3.9938164004361677`*^9}}, - CellLabel-> - "Out[411]=",ExpressionUUID->"a2e55c08-86bc-436d-9c50-777bcaf60a17"] + 3.9913196497965145`*^9, {3.99381631083608*^9, 3.9938164004361677`*^9}, + 3.994256180069172*^9, 3.994256380677931*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"70b27afa-0d7b-4ded-8e0b-3be2ab689c5d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", - CellLabel-> - "In[412]:=",ExpressionUUID->"a980436e-908f-40c9-845d-eb8cd657bd0d"], + CellLabel->"In[6]:=",ExpressionUUID->"a980436e-908f-40c9-845d-eb8cd657bd0d"], Cell[BoxData["0.17`"], "Output", CellChangeTimes->{ - 3.9913196498144608`*^9, {3.99381631085299*^9, 3.99381640045368*^9}}, - CellLabel-> - "Out[412]=",ExpressionUUID->"657b79af-1493-428c-ae40-a956c36e42c9"] + 3.9913196498144608`*^9, {3.99381631085299*^9, 3.99381640045368*^9}, + 3.9942561800822773`*^9, 3.994256380711031*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"3808a02a-51b3-4724-9fac-2223ee8c17cd"] }, Open ]], Cell[CellGroupData[{ @@ -124,14 +118,13 @@ Cell[BoxData[ SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}]}]], "Input", CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, - CellLabel-> - "In[413]:=",ExpressionUUID->"56c7dee1-9453-4883-abea-f120911216ab"], + CellLabel->"In[7]:=",ExpressionUUID->"56c7dee1-9453-4883-abea-f120911216ab"], Cell[BoxData["6.349496262766175`"], "Output", CellChangeTimes->{ - 3.9913196498225155`*^9, {3.993816310870123*^9, 3.993816400471637*^9}}, - CellLabel-> - "Out[413]=",ExpressionUUID->"0951e39c-ba60-4988-88be-600cd4ce11ca"] + 3.9913196498225155`*^9, {3.993816310870123*^9, 3.993816400471637*^9}, + 3.994256180095162*^9, 3.994256380745429*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"d4c4b0f2-786c-44d4-8bd4-686bb08e3b1a"] }, Open ]], Cell[CellGroupData[{ @@ -143,14 +136,13 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", - CellLabel-> - "In[414]:=",ExpressionUUID->"4aa04189-5cd6-487e-a2bb-4e3f13b35124"], + CellLabel->"In[8]:=",ExpressionUUID->"4aa04189-5cd6-487e-a2bb-4e3f13b35124"], Cell[BoxData["4.913555357735675`"], "Output", CellChangeTimes->{ - 3.9913196498425236`*^9, {3.993816310887587*^9, 3.993816400489262*^9}}, - CellLabel-> - "Out[414]=",ExpressionUUID->"efe0ef06-9189-415d-a039-5c4146568ddd"] + 3.9913196498425236`*^9, {3.993816310887587*^9, 3.993816400489262*^9}, + 3.994256180112611*^9, 3.994256380778618*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"cb3f2a12-89f3-4cc3-8361-587f5ccc75fd"] }, Open ]], Cell[CellGroupData[{ @@ -159,13 +151,12 @@ Cell[BoxData[ RowBox[{"b1", "=", "0.96357"}]], "Input", CellChangeTimes->{ 3.991799283179735*^9, {3.993816155315236*^9, 3.99381616557413*^9}}, - CellLabel-> - "In[415]:=",ExpressionUUID->"69bafadd-8e2f-4831-8eb6-540d5e56e48b"], + CellLabel->"In[9]:=",ExpressionUUID->"69bafadd-8e2f-4831-8eb6-540d5e56e48b"], Cell[BoxData["0.96357`"], "Output", - CellChangeTimes->{{3.9938163109056883`*^9, 3.993816400504654*^9}}, - CellLabel-> - "Out[415]=",ExpressionUUID->"ff51d55c-2907-4526-a6bd-e8589961370d"] + CellChangeTimes->{{3.9938163109056883`*^9, 3.993816400504654*^9}, + 3.994256180126214*^9, 3.994256380802792*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"caba4d17-8a63-4e89-ac7a-438494942838"] }, Open ]], Cell[CellGroupData[{ @@ -174,41 +165,38 @@ Cell[BoxData[ RowBox[{"b2", "=", "0.39003"}]], "Input", CellChangeTimes->{ 3.991799280663351*^9, {3.993816167313641*^9, 3.9938161733246517`*^9}}, - CellLabel-> - "In[416]:=",ExpressionUUID->"39ae1ee7-3cea-484e-9675-bee0306ab848"], + CellLabel->"In[10]:=",ExpressionUUID->"39ae1ee7-3cea-484e-9675-bee0306ab848"], Cell[BoxData["0.39003`"], "Output", - CellChangeTimes->{{3.993816310923224*^9, 3.993816400519388*^9}}, - CellLabel-> - "Out[416]=",ExpressionUUID->"f2efe951-d2fe-409a-9f4b-980a37d3fd8b"] + CellChangeTimes->{{3.993816310923224*^9, 3.993816400519388*^9}, + 3.994256180131208*^9, 3.9942563808327208`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"c5397843-fdf3-410c-925e-e739aba87e10"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", - CellLabel-> - "In[417]:=",ExpressionUUID->"7cd62bc4-4b86-4bad-a731-6e6fb8c154b3"], + CellLabel->"In[11]:=",ExpressionUUID->"7cd62bc4-4b86-4bad-a731-6e6fb8c154b3"], Cell[BoxData["0"], "Output", CellChangeTimes->{ - 3.9913196498927155`*^9, {3.993816310942574*^9, 3.993816400534342*^9}}, - CellLabel-> - "Out[417]=",ExpressionUUID->"e78b1686-7a40-4129-a221-66af4aa81e08"] + 3.9913196498927155`*^9, {3.993816310942574*^9, 3.993816400534342*^9}, + 3.99425618014666*^9, 3.994256380881413*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"7c7cb694-6e9e-4e56-9bac-73a6a9f69c35"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", - CellLabel-> - "In[418]:=",ExpressionUUID->"6977bb7d-b00f-49e9-8144-c17500ab0c11"], + CellLabel->"In[12]:=",ExpressionUUID->"6977bb7d-b00f-49e9-8144-c17500ab0c11"], Cell[BoxData["0"], "Output", CellChangeTimes->{ - 3.9913196498996067`*^9, {3.993816310960237*^9, 3.993816400549685*^9}}, - CellLabel-> - "Out[418]=",ExpressionUUID->"ff38b6b2-4061-4c2c-abaa-e0623e1ba0cb"] + 3.9913196498996067`*^9, {3.993816310960237*^9, 3.993816400549685*^9}, + 3.994256180159597*^9, 3.994256380917054*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"35413ea1-2ec5-4b7a-83fa-e574553d14d0"] }, Open ]], Cell[CellGroupData[{ @@ -232,14 +220,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[419]:=",ExpressionUUID->"a7c7146a-ac9a-43ce-b710-2be58578dddb"], + CellLabel->"In[13]:=",ExpressionUUID->"a7c7146a-ac9a-43ce-b710-2be58578dddb"], Cell[BoxData["2.4652625900301657`"], "Output", CellChangeTimes->{ - 3.9913197863028755`*^9, {3.993816310977528*^9, 3.993816400564805*^9}}, - CellLabel-> - "Out[419]=",ExpressionUUID->"cab36dab-fbee-4b85-bca7-5d67476a0f0c"] + 3.9913197863028755`*^9, {3.993816310977528*^9, 3.993816400564805*^9}, + 3.9942561801744337`*^9, 3.994256380933414*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"5b5d282b-3541-4e7a-bad6-31dd61d6b52f"] }, Open ]], Cell[CellGroupData[{ @@ -263,14 +250,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[420]:=",ExpressionUUID->"eb37ae58-be41-4bd0-9482-8465cb26ae94"], + CellLabel->"In[14]:=",ExpressionUUID->"eb37ae58-be41-4bd0-9482-8465cb26ae94"], Cell[BoxData["1.4266899039519758`"], "Output", CellChangeTimes->{ - 3.9913197864610195`*^9, {3.993816310993836*^9, 3.993816400579666*^9}}, - CellLabel-> - "Out[420]=",ExpressionUUID->"c8730907-aacc-44f8-97dc-4117b2a8cd53"] + 3.9913197864610195`*^9, {3.993816310993836*^9, 3.993816400579666*^9}, + 3.994256180188075*^9, 3.9942563809799623`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"5adb995a-24bb-4b70-9347-19acb0c159ba"] }, Open ]], Cell[CellGroupData[{ @@ -325,14 +311,13 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[421]:=",ExpressionUUID->"a80d0da3-5266-43d6-9b80-2fce8c3e6a70"], + CellLabel->"In[15]:=",ExpressionUUID->"a80d0da3-5266-43d6-9b80-2fce8c3e6a70"], Cell[BoxData["0.3750149455401738`"], "Output", CellChangeTimes->{ - 3.991319786533783*^9, {3.993816311010377*^9, 3.993816400594367*^9}}, - CellLabel-> - "Out[421]=",ExpressionUUID->"b93eeb02-ae63-4cd7-9727-e0887430638d"] + 3.991319786533783*^9, {3.993816311010377*^9, 3.993816400594367*^9}, + 3.9942561802016478`*^9, 3.99425638101399*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"73f30d72-df83-457c-80c0-9d35ba2a4a36"] }, Open ]], Cell[CellGroupData[{ @@ -383,24 +368,39 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[422]:=",ExpressionUUID->"9d5edeb2-e277-4edf-92a4-cff25394f50b"], + CellLabel->"In[16]:=",ExpressionUUID->"9d5edeb2-e277-4edf-92a4-cff25394f50b"], Cell[BoxData[ RowBox[{"-", "0.07977775132414705`"}]], "Output", CellChangeTimes->{ - 3.991319786540777*^9, {3.993816311027995*^9, 3.9938164006102667`*^9}}, - CellLabel-> - "Out[422]=",ExpressionUUID->"de907f15-caba-4c00-a339-d5011ab9181b"] + 3.991319786540777*^9, {3.993816311027995*^9, 3.9938164006102667`*^9}, + 3.994256180214129*^9, 3.99425638102872*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"f6f53cbf-f671-40e8-b175-94315a01a1fa"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c21", "=", - FractionBox[ - RowBox[{ - RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ RowBox[{"R01", "*", RowBox[{"(", RowBox[{"1", "-", @@ -410,45 +410,30 @@ Cell[BoxData[ RowBox[{"b1", "*", SqrtBox[ FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", - RowBox[{"(", - RowBox[{"1", "-", - SuperscriptBox["w1", "2"]}], ")"}]}], - RowBox[{ - RowBox[{"R01", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b1", "*", "b1"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b1", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w2", "2"]}], "+", - RowBox[{"R02", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b2", "*", "b2"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b2", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w1", "2"]}], "+", - RowBox[{"d", "*", - SuperscriptBox["w2", "2"], "*", - SuperscriptBox["w1", "2"]}]}]]}]], "Input", - CellLabel-> - "In[423]:=",ExpressionUUID->"7eb6b972-158f-4c81-bc3b-1fd26d12632a"], + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"7eb6b972-158f-4c81-bc3b-1fd26d12632a"], Cell[BoxData[ RowBox[{"-", "0.6284430544064189`"}]], "Output", CellChangeTimes->{ - 3.9913197865777817`*^9, {3.993816311033072*^9, 3.993816400624234*^9}}, - CellLabel-> - "Out[423]=",ExpressionUUID->"bee247b5-8291-4f95-bbe9-a2b01cb9e472"] + 3.9913197865777817`*^9, {3.993816311033072*^9, 3.993816400624234*^9}, + 3.9942561802270737`*^9, 3.994256381080126*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"0cdee343-cba9-4c83-8166-e6178cdc6af0"] }, Open ]], Cell[CellGroupData[{ @@ -503,56 +488,52 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[424]:=",ExpressionUUID->"aa9c36c2-ea8d-416f-8a2d-d140f7f6d788"], + CellLabel->"In[18]:=",ExpressionUUID->"aa9c36c2-ea8d-416f-8a2d-d140f7f6d788"], Cell[BoxData["0.7294972450656219`"], "Output", CellChangeTimes->{ - 3.9913197866129*^9, {3.993816311062511*^9, 3.993816400639195*^9}}, - CellLabel-> - "Out[424]=",ExpressionUUID->"26bcfe06-89f8-4705-ab28-9b12ea97d539"] + 3.9913197866129*^9, {3.993816311062511*^9, 3.993816400639195*^9}, + 3.994256180239595*^9, 3.9942563811593924`*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"7ea1d380-0e26-44fb-905b-ae554b3300ac"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", - CellLabel-> - "In[425]:=",ExpressionUUID->"31c51e6c-6463-4db1-a431-f10e216a4c57"], + CellLabel->"In[19]:=",ExpressionUUID->"31c51e6c-6463-4db1-a431-f10e216a4c57"], Cell[BoxData["300"], "Output", CellChangeTimes->{ - 3.991319786620775*^9, {3.9938163110790157`*^9, 3.993816400654043*^9}}, - CellLabel-> - "Out[425]=",ExpressionUUID->"046d23fd-7172-4465-9b44-01ffd49b8a67"] + 3.991319786620775*^9, {3.9938163110790157`*^9, 3.993816400654043*^9}, + 3.9942561802515182`*^9, 3.9942563811873837`*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"79b2e9e6-3b8e-422a-bac6-866eb6b3030e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fin", "=", "0.09"}]], "Input", - CellLabel-> - "In[426]:=",ExpressionUUID->"debb51a0-f26c-4f97-81e8-ce91f3a48167"], + CellLabel->"In[20]:=",ExpressionUUID->"debb51a0-f26c-4f97-81e8-ce91f3a48167"], Cell[BoxData["0.09`"], "Output", CellChangeTimes->{ - 3.991319786657793*^9, {3.99381631109599*^9, 3.993816400670066*^9}}, - CellLabel-> - "Out[426]=",ExpressionUUID->"76ec4112-c53d-4970-a8d3-071968802c7b"] + 3.991319786657793*^9, {3.99381631109599*^9, 3.993816400670066*^9}, + 3.994256180264309*^9, 3.9942563812190523`*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"76d00002-af4d-4972-8945-bf08c59d881d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffin", "=", "0.42"}]], "Input", - CellLabel-> - "In[427]:=",ExpressionUUID->"a6191bab-ea35-4d0c-8e92-4e5653fd9ab6"], + CellLabel->"In[21]:=",ExpressionUUID->"a6191bab-ea35-4d0c-8e92-4e5653fd9ab6"], Cell[BoxData["0.42`"], "Output", CellChangeTimes->{ - 3.9913197866657925`*^9, {3.99381631111339*^9, 3.99381640068589*^9}}, - CellLabel-> - "Out[427]=",ExpressionUUID->"ea3addf6-1200-482e-a572-5a4bf7f404d0"] + 3.9913197866657925`*^9, {3.99381631111339*^9, 3.99381640068589*^9}, + 3.994256180276216*^9, 3.994256381257612*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"85461253-112c-4f39-ba51-ac8789c6e4ff"] }, Open ]], Cell[CellGroupData[{ @@ -561,29 +542,27 @@ Cell[BoxData[ RowBox[{"fex", "=", RowBox[{"-", "2.59"}]}]], "Input", CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, - CellLabel-> - "In[428]:=",ExpressionUUID->"eae176ea-c7f6-4d85-981d-ddaf0eee9fd1"], + CellLabel->"In[22]:=",ExpressionUUID->"eae176ea-c7f6-4d85-981d-ddaf0eee9fd1"], Cell[BoxData[ RowBox[{"-", "2.59`"}]], "Output", CellChangeTimes->{ - 3.9913197866996*^9, {3.993816311129064*^9, 3.993816400702038*^9}}, - CellLabel-> - "Out[428]=",ExpressionUUID->"a9b27f7f-080b-445c-9550-79190e1b6247"] + 3.9913197866996*^9, {3.993816311129064*^9, 3.993816400702038*^9}, + 3.994256180288741*^9, 3.994256381292926*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"a725b4b7-20fd-48ca-87b8-e18a1f49ffc5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffex", "=", "0.54"}]], "Input", - CellLabel-> - "In[429]:=",ExpressionUUID->"f876229a-3085-4608-a5b6-32a71bb5ec58"], + CellLabel->"In[23]:=",ExpressionUUID->"f876229a-3085-4608-a5b6-32a71bb5ec58"], Cell[BoxData["0.54`"], "Output", CellChangeTimes->{ - 3.9913197867406044`*^9, {3.993816311145554*^9, 3.9938164007190237`*^9}}, - CellLabel-> - "Out[429]=",ExpressionUUID->"662677eb-3521-4764-b7bf-7522c3d8cf44"] + 3.9913197867406044`*^9, {3.993816311145554*^9, 3.9938164007190237`*^9}, + 3.994256180301515*^9, 3.9942563813286457`*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"7bb29d88-bc52-43c4-8e15-ef3515aa6762"] }, Open ]], Cell[CellGroupData[{ @@ -593,14 +572,13 @@ Cell[BoxData[ CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { 3.9938161841110783`*^9, 3.9938161842569923`*^9}}, - CellLabel-> - "In[430]:=",ExpressionUUID->"c2ca37ef-ff09-46ca-ab95-b03305b45e8f"], + CellLabel->"In[24]:=",ExpressionUUID->"c2ca37ef-ff09-46ca-ab95-b03305b45e8f"], Cell[BoxData["66"], "Output", CellChangeTimes->{ - 3.9913197867861958`*^9, {3.993816311161642*^9, 3.993816400736003*^9}}, - CellLabel-> - "Out[430]=",ExpressionUUID->"57c03cbe-83a3-479c-bf77-5ca39e407a99"] + 3.9913197867861958`*^9, {3.993816311161642*^9, 3.993816400736003*^9}, + 3.99425618031456*^9, 3.994256381358418*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"8a0bbcca-7ffe-45df-94d4-881f0e7ef79c"] }, Open ]], Cell[CellGroupData[{ @@ -610,14 +588,13 @@ Cell[BoxData[ RowBox[{"94", "-", "Z1"}]}]], "Input", CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, 3.9916443064841423`*^9, {3.9938161866045017`*^9, 3.99381618669993*^9}}, - CellLabel-> - "In[431]:=",ExpressionUUID->"99a34b8f-4521-4eef-8692-d2e1401b2a65"], + CellLabel->"In[25]:=",ExpressionUUID->"99a34b8f-4521-4eef-8692-d2e1401b2a65"], Cell[BoxData["28"], "Output", CellChangeTimes->{ - 3.9913197867928696`*^9, {3.993816311177599*^9, 3.993816400757028*^9}}, - CellLabel-> - "Out[431]=",ExpressionUUID->"70aefc7c-f628-4b5a-82dc-ca026ebac07d"] + 3.9913197867928696`*^9, {3.993816311177599*^9, 3.993816400757028*^9}, + 3.994256180327029*^9, 3.994256381398395*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"3bd414c7-e2b4-4ff8-8fa7-57e9c05cf355"] }, Open ]], Cell[CellGroupData[{ @@ -626,14 +603,13 @@ Cell[BoxData[ RowBox[{"A2", "=", RowBox[{"A", "-", "A1"}]}]], "Input", CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, - CellLabel-> - "In[432]:=",ExpressionUUID->"76d1051a-db56-42d5-abfe-58600b8b61e5"], + CellLabel->"In[26]:=",ExpressionUUID->"76d1051a-db56-42d5-abfe-58600b8b61e5"], Cell[BoxData["76"], "Output", CellChangeTimes->{ - 3.991319786827894*^9, {3.993816311193193*^9, 3.993816400775269*^9}}, - CellLabel-> - "Out[432]=",ExpressionUUID->"40f14725-a48d-47ec-9d2b-ef32ec855bfe"] + 3.991319786827894*^9, {3.993816311193193*^9, 3.993816400775269*^9}, + 3.994256180340908*^9, 3.994256381434248*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"ac753ce4-eddb-4fc7-88cb-ac1118e599ca"] }, Open ]], Cell[CellGroupData[{ @@ -648,14 +624,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[433]:=",ExpressionUUID->"65c3cf13-5bb1-408f-8545-4d76d8502ae1"], + CellLabel->"In[27]:=",ExpressionUUID->"65c3cf13-5bb1-408f-8545-4d76d8502ae1"], Cell[BoxData["0.11156611039794609`"], "Output", CellChangeTimes->{ - 3.9913197868648605`*^9, {3.993816311209059*^9, 3.993816400793248*^9}}, - CellLabel-> - "Out[433]=",ExpressionUUID->"4dc1d140-1d2c-4860-8749-860b48c3e000"] + 3.9913197868648605`*^9, {3.993816311209059*^9, 3.993816400793248*^9}, + 3.994256180352943*^9, 3.994256381472674*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"121a0c3c-142d-4267-8c0d-2bac418eee3e"] }, Open ]], Cell[CellGroupData[{ @@ -670,15 +645,14 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[434]:=",ExpressionUUID->"5fa975c8-1a63-41b1-b0ba-e05224487524"], + CellLabel->"In[28]:=",ExpressionUUID->"5fa975c8-1a63-41b1-b0ba-e05224487524"], Cell[BoxData[ RowBox[{"-", "2.562272143774069`"}]], "Output", CellChangeTimes->{ - 3.9913197868718567`*^9, {3.993816311224965*^9, 3.993816400810424*^9}}, - CellLabel-> - "Out[434]=",ExpressionUUID->"e245803a-cac4-4995-a743-394da3c00771"] + 3.9913197868718567`*^9, {3.993816311224965*^9, 3.993816400810424*^9}, + 3.994256180365633*^9, 3.9942563815098753`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"0cc510ca-0576-45cd-a864-23a1a79a3adb"] }, Open ]], Cell[CellGroupData[{ @@ -709,14 +683,13 @@ Cell[BoxData[ CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, - CellLabel-> - "In[435]:=",ExpressionUUID->"36a0ca89-2ef9-483d-8ec5-f0531079a3a1"], + CellLabel->"In[29]:=",ExpressionUUID->"36a0ca89-2ef9-483d-8ec5-f0531079a3a1"], Cell[BoxData["17.58253870834664`"], "Output", CellChangeTimes->{ - 3.9913197869068584`*^9, {3.993816311240906*^9, 3.9938164008326178`*^9}}, - CellLabel-> - "Out[435]=",ExpressionUUID->"f816973e-24d1-4d01-989b-ddd389a581b7"] + 3.9913197869068584`*^9, {3.993816311240906*^9, 3.9938164008326178`*^9}, + 3.994256180379025*^9, 3.994256381544086*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"d7eda404-3e9d-4465-a588-674b46d339af"] }, Open ]], Cell[CellGroupData[{ @@ -724,14 +697,13 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, - CellLabel-> - "In[436]:=",ExpressionUUID->"b3a5a3db-d575-4f65-b1c3-b667ff775b6b"], + CellLabel->"In[30]:=",ExpressionUUID->"b3a5a3db-d575-4f65-b1c3-b667ff775b6b"], Cell[BoxData["300"], "Output", CellChangeTimes->{ - 3.991319786940857*^9, {3.993816311257287*^9, 3.993816400852189*^9}}, - CellLabel-> - "Out[436]=",ExpressionUUID->"47b7b8d8-ffc6-4b39-a104-0e83858cba8c"] + 3.991319786940857*^9, {3.993816311257287*^9, 3.993816400852189*^9}, + 3.994256180391842*^9, 3.994256381580963*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"9bc35037-bf7c-493e-8cb2-69e3627a1e04"] }, Open ]], Cell[CellGroupData[{ @@ -741,19 +713,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, 3.993816201054872*^9}, - CellLabel-> - "In[437]:=",ExpressionUUID->"406a39b3-f5b6-46a6-a7e7-773bb971f059"], + CellLabel->"In[31]:=",ExpressionUUID->"406a39b3-f5b6-46a6-a7e7-773bb971f059"], Cell[BoxData["2"], "Output", - CellChangeTimes->{{3.99381631127295*^9, 3.993816400871359*^9}}, - CellLabel-> - "Out[437]=",ExpressionUUID->"9521f395-e3d2-4b78-92b2-48f9ae66f093"] + CellChangeTimes->{{3.99381631127295*^9, 3.993816400871359*^9}, + 3.994256180404912*^9, 3.9942563816188087`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"c243285d-6193-4168-815a-83bfc3b325a4"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, - CellLabel-> - "In[438]:=",ExpressionUUID->"1bd623c9-ec92-4b12-bb38-5b5a9ff31feb"], + CellLabel->"In[32]:=",ExpressionUUID->"1bd623c9-ec92-4b12-bb38-5b5a9ff31feb"], Cell[CellGroupData[{ @@ -762,19 +732,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { 3.993816204826747*^9, 3.993816206119349*^9}}, - CellLabel-> - "In[439]:=",ExpressionUUID->"88066b2f-7a0c-4257-a80b-45d340112abb"], + CellLabel->"In[33]:=",ExpressionUUID->"88066b2f-7a0c-4257-a80b-45d340112abb"], Cell[BoxData["0.805`"], "Output", - CellChangeTimes->{{3.9938163113036537`*^9, 3.993816400895072*^9}}, - CellLabel-> - "Out[439]=",ExpressionUUID->"c71b4dfb-331d-4a8a-b4c8-83d9dcba9bbd"] + CellChangeTimes->{{3.9938163113036537`*^9, 3.993816400895072*^9}, + 3.9942561804207907`*^9, 3.994256381667036*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"6e8fd932-c7e6-451d-b93a-920290b27d24"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, - CellLabel-> - "In[440]:=",ExpressionUUID->"bb882a7a-347c-4dec-84c7-81f1219925cc"], + CellLabel->"In[34]:=",ExpressionUUID->"bb882a7a-347c-4dec-84c7-81f1219925cc"], Cell[CellGroupData[{ @@ -783,19 +751,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { 3.993816211321389*^9, 3.9938162195378838`*^9}}, - CellLabel-> - "In[441]:=",ExpressionUUID->"dd14a20c-d9b0-4443-b03e-54fd1436bd16"], + CellLabel->"In[35]:=",ExpressionUUID->"dd14a20c-d9b0-4443-b03e-54fd1436bd16"], Cell[BoxData["2.65`"], "Output", - CellChangeTimes->{{3.9938163113365593`*^9, 3.993816400917997*^9}}, - CellLabel-> - "Out[441]=",ExpressionUUID->"fda3ce3e-137e-4ca5-988a-52ed6e2f71a8"] + CellChangeTimes->{{3.9938163113365593`*^9, 3.993816400917997*^9}, + 3.994256180436131*^9, 3.9942563817072906`*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"6c74c316-bf83-452e-b4f4-98dc1a5cba32"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, - CellLabel-> - "In[442]:=",ExpressionUUID->"2af23f7f-edc1-4758-91b8-33377a388b9a"], + CellLabel->"In[36]:=",ExpressionUUID->"2af23f7f-edc1-4758-91b8-33377a388b9a"], Cell[CellGroupData[{ @@ -804,19 +770,17 @@ Cell[BoxData[ CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, 3.991799359954439*^9, {3.9938162225291348`*^9, 3.993816223644052*^9}}, - CellLabel-> - "In[443]:=",ExpressionUUID->"10ad3e7a-5e9f-43c6-a126-408531b302d7"], + CellLabel->"In[37]:=",ExpressionUUID->"10ad3e7a-5e9f-43c6-a126-408531b302d7"], Cell[BoxData["1.175`"], "Output", - CellChangeTimes->{{3.993816311366596*^9, 3.993816400940548*^9}}, - CellLabel-> - "Out[443]=",ExpressionUUID->"98adda66-91cc-4940-9b58-e9c4e4a0dbf1"] + CellChangeTimes->{{3.993816311366596*^9, 3.993816400940548*^9}, + 3.994256180450357*^9, 3.9942563817585573`*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"63b8f2e0-9df4-46ab-be4a-2842430113d6"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, - CellLabel-> - "In[444]:=",ExpressionUUID->"214a830d-2c2e-43a4-bc1c-053c15250314"], + CellLabel->"In[38]:=",ExpressionUUID->"214a830d-2c2e-43a4-bc1c-053c15250314"], Cell[CellGroupData[{ @@ -825,19 +789,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, 3.991718016467348*^9, 3.991799361414671*^9, {3.9938162281192904`*^9, 3.993816230831416*^9}}, - CellLabel-> - "In[445]:=",ExpressionUUID->"ecd20ef3-1ab0-4cde-852a-c5d9b1b73661"], + CellLabel->"In[39]:=",ExpressionUUID->"ecd20ef3-1ab0-4cde-852a-c5d9b1b73661"], Cell[BoxData["0.795`"], "Output", - CellChangeTimes->{{3.993816311396524*^9, 3.993816400963438*^9}}, - CellLabel-> - "Out[445]=",ExpressionUUID->"3e7a2388-5bdd-4c18-8b7f-49a73b0ce70b"] + CellChangeTimes->{{3.993816311396524*^9, 3.993816400963438*^9}, + 3.994256180464733*^9, 3.994256381797954*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"e872b377-18a3-49f3-a94a-094d73783c1c"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, - CellLabel-> - "In[446]:=",ExpressionUUID->"b93dbd63-8a40-4d50-8d17-8352fee8c2e0"], + CellLabel->"In[40]:=",ExpressionUUID->"b93dbd63-8a40-4d50-8d17-8352fee8c2e0"], Cell[CellGroupData[{ @@ -846,19 +808,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993816234625985*^9, 3.993816236062304*^9}}, - CellLabel-> - "In[447]:=",ExpressionUUID->"acae4259-cb0c-4c9e-b44a-b3aa1344e73d"], + CellLabel->"In[41]:=",ExpressionUUID->"acae4259-cb0c-4c9e-b44a-b3aa1344e73d"], Cell[BoxData["0.595`"], "Output", - CellChangeTimes->{{3.993816311427802*^9, 3.9938164009852858`*^9}}, - CellLabel-> - "Out[447]=",ExpressionUUID->"6d2bc2cf-4eb1-4352-9730-1f090a6b2350"] + CellChangeTimes->{{3.993816311427802*^9, 3.9938164009852858`*^9}, + 3.9942561804791803`*^9, 3.9942563818485603`*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"9a4a5350-eba2-4c1a-964e-306fd00e6850"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, - CellLabel-> - "In[448]:=",ExpressionUUID->"9123453a-6645-4642-ad71-c1e3a644e456"], + CellLabel->"In[42]:=",ExpressionUUID->"9123453a-6645-4642-ad71-c1e3a644e456"], Cell[CellGroupData[{ @@ -867,19 +827,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.993816238161579*^9, 3.9938162401131277`*^9}}, - CellLabel-> - "In[449]:=",ExpressionUUID->"e7e40969-7c6d-4193-bae0-cb0c20730271"], + CellLabel->"In[43]:=",ExpressionUUID->"e7e40969-7c6d-4193-bae0-cb0c20730271"], Cell[BoxData["1.47`"], "Output", - CellChangeTimes->{{3.993816311458173*^9, 3.9938164010070257`*^9}}, - CellLabel-> - "Out[449]=",ExpressionUUID->"254a84bc-ad13-4e9e-b418-958514a160df"] + CellChangeTimes->{{3.993816311458173*^9, 3.9938164010070257`*^9}, + 3.994256180492902*^9, 3.9942563818906393`*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"f4dae460-58fb-4e85-9ef7-0a64934270a5"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, - CellLabel-> - "In[450]:=",ExpressionUUID->"e3737c05-a507-415f-9d74-5abf111e8387"], + CellLabel->"In[44]:=",ExpressionUUID->"e3737c05-a507-415f-9d74-5abf111e8387"], Cell[CellGroupData[{ @@ -887,19 +845,17 @@ Cell[BoxData[ RowBox[{"nn2", "=", "0.655"}]], "Input", CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, 3.9917993660901737`*^9, {3.993816241842022*^9, 3.993816245056822*^9}}, - CellLabel-> - "In[451]:=",ExpressionUUID->"a4f55aad-c642-418e-bf88-1b425c7e6ec8"], + CellLabel->"In[45]:=",ExpressionUUID->"a4f55aad-c642-418e-bf88-1b425c7e6ec8"], Cell[BoxData["0.655`"], "Output", - CellChangeTimes->{{3.993816311488914*^9, 3.993816401028906*^9}}, - CellLabel-> - "Out[451]=",ExpressionUUID->"21448631-ab75-403c-9575-a42edf7aea55"] + CellChangeTimes->{{3.993816311488914*^9, 3.993816401028906*^9}, + 3.994256180522912*^9, 3.9942563819350033`*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"d4326a3f-62de-46e4-a260-3e19be33b4f6"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, - CellLabel-> - "In[452]:=",ExpressionUUID->"c0ccd081-db67-4cae-ba39-39483fa21e19"], + CellLabel->"In[46]:=",ExpressionUUID->"c0ccd081-db67-4cae-ba39-39483fa21e19"], Cell[CellGroupData[{ @@ -1388,14 +1344,13 @@ uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== "], - CellLabel-> - "In[453]:=",ExpressionUUID->"63dbfc9c-e42e-4c7a-871a-ad28a63575d2"], + CellLabel->"In[47]:=",ExpressionUUID->"63dbfc9c-e42e-4c7a-871a-ad28a63575d2"], Cell[BoxData["0.10932371372103143`"], "Output", CellChangeTimes->{ - 3.991319787430073*^9, {3.993816311598846*^9, 3.993816401077582*^9}}, - CellLabel-> - "Out[453]=",ExpressionUUID->"c2097b71-1445-4079-9c90-0343489e6f47"] + 3.991319787430073*^9, {3.993816311598846*^9, 3.993816401077582*^9}, + 3.994256180614002*^9, 3.994256382111895*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"a2af1de9-cc15-435e-98ce-e8aebd98d118"] }, Open ]], Cell[CellGroupData[{ @@ -1889,14 +1844,13 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[454]:=",ExpressionUUID->"2ea11fb9-c1cf-4b5c-be38-a3590d3d8bcc"], + CellLabel->"In[48]:=",ExpressionUUID->"2ea11fb9-c1cf-4b5c-be38-a3590d3d8bcc"], Cell[BoxData["9.790243175904545`"], "Output", CellChangeTimes->{ - 3.991319787574972*^9, {3.9938163116474113`*^9, 3.993816401110285*^9}}, - CellLabel-> - "Out[454]=",ExpressionUUID->"77c85e63-32bd-4e83-868d-8a4899d53a0e"] + 3.991319787574972*^9, {3.9938163116474113`*^9, 3.993816401110285*^9}, + 3.994256180647369*^9, 3.9942563822737417`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"29081585-7ce4-42b4-9b8a-a6918bcd4537"] }, Open ]], Cell[CellGroupData[{ @@ -2384,15 +2338,14 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[455]:=",ExpressionUUID->"13919706-748a-4c67-9595-2986977db5e6"], + CellLabel->"In[49]:=",ExpressionUUID->"13919706-748a-4c67-9595-2986977db5e6"], Cell[BoxData[ RowBox[{"-", "16.70631937398676`"}]], "Output", CellChangeTimes->{ - 3.991319787641424*^9, {3.993816311688833*^9, 3.99381640114319*^9}}, - CellLabel-> - "Out[455]=",ExpressionUUID->"08bfe9bc-ba63-4fc6-a19b-0113d1134dbf"] + 3.991319787641424*^9, {3.993816311688833*^9, 3.99381640114319*^9}, + 3.994256180680599*^9, 3.994256382349574*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"e975877b-7c62-4fa0-aa3e-98f15a6cbf1d"] }, Open ]], Cell[CellGroupData[{ @@ -3109,15 +3062,14 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[456]:=",ExpressionUUID->"2eb20ff3-6636-4349-a600-9842f9fd331a"], + CellLabel->"In[50]:=",ExpressionUUID->"2eb20ff3-6636-4349-a600-9842f9fd331a"], Cell[BoxData[ RowBox[{"-", "21.21244105904564`"}]], "Output", CellChangeTimes->{ - 3.991319787711939*^9, {3.99381631175032*^9, 3.993816401178795*^9}}, - CellLabel-> - "Out[456]=",ExpressionUUID->"6f83c814-6704-4fc2-b65d-476f8747e0e0"] + 3.991319787711939*^9, {3.99381631175032*^9, 3.993816401178795*^9}, + 3.9942561807234793`*^9, 3.994256382426091*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"a0cc1edb-e511-41d8-b693-ad420be802ed"] }, Open ]], Cell[CellGroupData[{ @@ -3675,15 +3627,14 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[457]:=",ExpressionUUID->"6124a934-47b0-4afd-b8b1-65c796c1e92c"], + CellLabel->"In[51]:=",ExpressionUUID->"6124a934-47b0-4afd-b8b1-65c796c1e92c"], Cell[BoxData[ RowBox[{"-", "64.11746269097033`"}]], "Output", CellChangeTimes->{ - 3.9913197877723045`*^9, {3.993816311810264*^9, 3.993816401216831*^9}}, - CellLabel-> - "Out[457]=",ExpressionUUID->"2fb99c3d-7c41-44fd-9473-f62eb3fb0eef"] + 3.9913197877723045`*^9, {3.993816311810264*^9, 3.993816401216831*^9}, + 3.994256180763073*^9, 3.994256382517577*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"2233fc74-e481-4b09-9fa6-a25dc8bd61c5"] }, Open ]], Cell[CellGroupData[{ @@ -4314,43 +4265,40 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[458]:=",ExpressionUUID->"067ad88a-a827-446e-ba85-df9489d80fe3"], + CellLabel->"In[52]:=",ExpressionUUID->"067ad88a-a827-446e-ba85-df9489d80fe3"], Cell[BoxData[ RowBox[{"-", "162.12919789671096`"}]], "Output", CellChangeTimes->{ - 3.991319787833355*^9, {3.993816311880077*^9, 3.9938164012606087`*^9}}, - CellLabel-> - "Out[458]=",ExpressionUUID->"a08bbafb-59b0-44f4-b7d4-786497b9371b"] + 3.991319787833355*^9, {3.993816311880077*^9, 3.9938164012606087`*^9}, + 3.9942561926906977`*^9, 3.99425638260579*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"d0628005-4741-40cb-b114-9fb77787affd"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U21", "=", "0"}]], "Input", - CellLabel-> - "In[459]:=",ExpressionUUID->"0fb9e55a-53df-459a-ac36-cdfd11764a24"], + CellLabel->"In[53]:=",ExpressionUUID->"0fb9e55a-53df-459a-ac36-cdfd11764a24"], Cell[BoxData["0"], "Output", CellChangeTimes->{ - 3.9913204210013676`*^9, {3.993816311896537*^9, 3.993816401279429*^9}}, - CellLabel-> - "Out[459]=",ExpressionUUID->"db1b7152-9c09-4fd0-bc25-97c8ed0c9214"] + 3.9913204210013676`*^9, {3.993816311896537*^9, 3.993816401279429*^9}, + 3.99425619289736*^9, 3.994256382639017*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"03ce5fe5-4424-4254-ac04-5ba77db1c487"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U22", "=", "0"}]], "Input", - CellLabel-> - "In[460]:=",ExpressionUUID->"e8ada919-e98f-4497-aa91-78add5700c1a"], + CellLabel->"In[54]:=",ExpressionUUID->"e8ada919-e98f-4497-aa91-78add5700c1a"], Cell[BoxData["0"], "Output", CellChangeTimes->{ - 3.9913204210355663`*^9, {3.993816311909266*^9, 3.993816401294653*^9}}, - CellLabel-> - "Out[460]=",ExpressionUUID->"f3e4187d-0eeb-4cb3-972f-a384b24c11c1"] + 3.9913204210355663`*^9, {3.993816311909266*^9, 3.993816401294653*^9}, + 3.994256192904447*^9, 3.994256382670211*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"41d9edab-fae6-4142-8664-b74a21ffa586"] }, Open ]], Cell[CellGroupData[{ @@ -4394,14 +4342,13 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[461]:=",ExpressionUUID->"11fb9513-8adc-426d-add8-7a0171eb08c4"], + CellLabel->"In[55]:=",ExpressionUUID->"11fb9513-8adc-426d-add8-7a0171eb08c4"], Cell[BoxData["137.278680377525`"], "Output", CellChangeTimes->{ - 3.991320421068556*^9, {3.993816311921467*^9, 3.993816401310416*^9}}, - CellLabel-> - "Out[461]=",ExpressionUUID->"f8754e43-d894-45ff-b17e-e7ba13d5b11b"] + 3.991320421068556*^9, {3.993816311921467*^9, 3.993816401310416*^9}, + 3.9942561929120893`*^9, 3.994256382703842*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"b7a4d180-0548-43e4-af04-ffa0694ff84b"] }, Open ]], Cell[CellGroupData[{ @@ -4441,15 +4388,14 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[462]:=",ExpressionUUID->"684ac7c8-ffcb-4f44-8014-70bc251db57e"], + CellLabel->"In[56]:=",ExpressionUUID->"684ac7c8-ffcb-4f44-8014-70bc251db57e"], Cell[BoxData[ RowBox[{"-", "124.2735331996648`"}]], "Output", CellChangeTimes->{ - 3.991320421098543*^9, {3.9938163119334393`*^9, 3.993816401325693*^9}}, - CellLabel-> - "Out[462]=",ExpressionUUID->"2f3454a8-bc7d-4cfc-b2b9-7fe692153711"] + 3.991320421098543*^9, {3.9938163119334393`*^9, 3.993816401325693*^9}, + 3.9942561929199667`*^9, 3.9942563827402067`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"4f21f58b-52a0-4262-9107-616427eaa77d"] }, Open ]], Cell[CellGroupData[{ @@ -4493,94 +4439,87 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[463]:=",ExpressionUUID->"91ac834b-4ce6-454e-958e-c28c093f969e"], + CellLabel->"In[57]:=",ExpressionUUID->"91ac834b-4ce6-454e-958e-c28c093f969e"], Cell[BoxData["136.79424869488386`"], "Output", CellChangeTimes->{ - 3.9913204211275444`*^9, {3.993816311945665*^9, 3.993816401340849*^9}}, - CellLabel-> - "Out[463]=",ExpressionUUID->"20c1b17e-3fdd-49bb-9c4b-0011a63d9439"] + 3.9913204211275444`*^9, {3.993816311945665*^9, 3.993816401340849*^9}, + 3.994256192926032*^9, 3.9942563827781467`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"4bfa1d07-a0d5-4ccb-bc6b-817752722050"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c11"], "Input", - CellLabel-> - "In[464]:=",ExpressionUUID->"95defb1f-0166-421b-9570-425e25f79e4b"], + CellLabel->"In[58]:=",ExpressionUUID->"95defb1f-0166-421b-9570-425e25f79e4b"], Cell[BoxData["0.3750149455401738`"], "Output", CellChangeTimes->{ - 3.9913204211385536`*^9, {3.9938163119574957`*^9, 3.993816401363001*^9}}, - CellLabel-> - "Out[464]=",ExpressionUUID->"4eea6a8d-a4e4-4492-a05d-ab326a6505ca"] + 3.9913204211385536`*^9, {3.9938163119574957`*^9, 3.993816401363001*^9}, + 3.994256192932119*^9, 3.9942563828139753`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"7ae545e0-04ec-4a0d-840f-0e0daaacf220"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c12"], "Input", - CellLabel-> - "In[465]:=",ExpressionUUID->"047f0807-e297-4e57-ab72-115d0bd4346c"], + CellLabel->"In[59]:=",ExpressionUUID->"047f0807-e297-4e57-ab72-115d0bd4346c"], Cell[BoxData[ RowBox[{"-", "0.07977775132414705`"}]], "Output", CellChangeTimes->{ - 3.9913204211683464`*^9, {3.9938163119693823`*^9, 3.99381640137784*^9}}, - CellLabel-> - "Out[465]=",ExpressionUUID->"0142c57a-b4c0-4f2b-848d-46c0d06d3c8d"] + 3.9913204211683464`*^9, {3.9938163119693823`*^9, 3.99381640137784*^9}, + 3.9942561929399147`*^9, 3.994256382851008*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"e69bb125-dc6e-4452-b95c-bb78eee660cc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c21"], "Input", - CellLabel-> - "In[466]:=",ExpressionUUID->"2db39cad-94a9-4ba7-9de3-f980ab1abdd3"], + CellLabel->"In[60]:=",ExpressionUUID->"2db39cad-94a9-4ba7-9de3-f980ab1abdd3"], Cell[BoxData[ RowBox[{"-", "0.6284430544064189`"}]], "Output", CellChangeTimes->{ - 3.991320421199068*^9, {3.9938163119814787`*^9, 3.993816401392654*^9}}, - CellLabel-> - "Out[466]=",ExpressionUUID->"5c828f33-8cea-4211-915e-bf2261536929"] + 3.991320421199068*^9, {3.9938163119814787`*^9, 3.993816401392654*^9}, + 3.994256192947382*^9, 3.994256382881138*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"c9985bf2-db50-4335-8418-6a9ced30b9ac"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c22"], "Input", - CellLabel-> - "In[467]:=",ExpressionUUID->"999c9294-a525-4435-b9b1-665af2777271"], + CellLabel->"In[61]:=",ExpressionUUID->"999c9294-a525-4435-b9b1-665af2777271"], Cell[BoxData["0.7294972450656219`"], "Output", CellChangeTimes->{ - 3.991320421228037*^9, {3.993816311994028*^9, 3.99381640140742*^9}}, - CellLabel-> - "Out[467]=",ExpressionUUID->"cbcbc64f-a97e-4f18-b0b1-372452a7f799"] + 3.991320421228037*^9, {3.993816311994028*^9, 3.99381640140742*^9}, + 3.99425619295292*^9, 3.994256382915545*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"335f41c8-266f-46a7-b8e5-7cec01fa159a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w1"], "Input", - CellLabel-> - "In[468]:=",ExpressionUUID->"7ae5dd29-22a7-4156-b928-348d5a26efc3"], + CellLabel->"In[62]:=",ExpressionUUID->"7ae5dd29-22a7-4156-b928-348d5a26efc3"], Cell[BoxData["2.4652625900301657`"], "Output", CellChangeTimes->{ - 3.9913204212585373`*^9, {3.993816312006279*^9, 3.99381640142347*^9}}, - CellLabel-> - "Out[468]=",ExpressionUUID->"3176776e-6eaa-41b2-84cf-48dbebee6e63"] + 3.9913204212585373`*^9, {3.993816312006279*^9, 3.99381640142347*^9}, + 3.994256192958783*^9, 3.994256382954721*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"2e553df4-7f7a-4954-8f36-7d4c2afbfb09"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w2"], "Input", - CellLabel-> - "In[469]:=",ExpressionUUID->"e309fcfb-5e9d-440e-8288-933ddf5d3183"], + CellLabel->"In[63]:=",ExpressionUUID->"e309fcfb-5e9d-440e-8288-933ddf5d3183"], Cell[BoxData["1.4266899039519758`"], "Output", CellChangeTimes->{ - 3.9913204212884274`*^9, {3.993816312018448*^9, 3.993816401439527*^9}}, - CellLabel-> - "Out[469]=",ExpressionUUID->"ebf04ddb-62dc-4687-bcae-0f897f7c991e"] + 3.9913204212884274`*^9, {3.993816312018448*^9, 3.993816401439527*^9}, + 3.994256192964364*^9, 3.994256382991685*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"4043533f-5d37-4dd8-bb68-eea3cdeafe2a"] }, Open ]], Cell[CellGroupData[{ @@ -4601,15 +4540,14 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", - CellLabel-> - "In[470]:=",ExpressionUUID->"18bb3739-c47b-437f-a843-22b7434fe3c0"], + CellLabel->"In[64]:=",ExpressionUUID->"18bb3739-c47b-437f-a843-22b7434fe3c0"], Cell[BoxData[ RowBox[{"-", "36.59398535367672`"}]], "Output", CellChangeTimes->{ - 3.9913204213185234`*^9, {3.9938163120312033`*^9, 3.9938164014556637`*^9}}, - CellLabel-> - "Out[470]=",ExpressionUUID->"0d7ea3a7-10ed-4b89-a04b-9e4175859abb"] + 3.9913204213185234`*^9, {3.9938163120312033`*^9, 3.9938164014556637`*^9}, + 3.9942561929700327`*^9, 3.9942563830257397`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"50b1deb8-4af3-4524-827d-1f3b9fba9e9c"] }, Open ]], Cell[CellGroupData[{ @@ -4630,15 +4568,14 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", - CellLabel-> - "In[471]:=",ExpressionUUID->"9336aeda-c150-460f-b72b-4a931a6c7246"], + CellLabel->"In[65]:=",ExpressionUUID->"9336aeda-c150-460f-b72b-4a931a6c7246"], Cell[BoxData[ RowBox[{"-", "6.706084141019179`"}]], "Output", CellChangeTimes->{ - 3.991320421349531*^9, {3.99381631203615*^9, 3.99381640147013*^9}}, - CellLabel-> - "Out[471]=",ExpressionUUID->"89edda8e-9ba7-45ab-bc4d-8798b2c67f33"] + 3.991320421349531*^9, {3.99381631203615*^9, 3.99381640147013*^9}, + 3.994256192976474*^9, 3.994256383055429*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"00652810-919f-4807-a2ff-38afaeb8abd6"] }, Open ]], Cell[CellGroupData[{ @@ -4703,14 +4640,13 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[472]:=",ExpressionUUID->"af548364-1bf8-4b09-9f56-235516d563a6"], + CellLabel->"In[66]:=",ExpressionUUID->"af548364-1bf8-4b09-9f56-235516d563a6"], Cell[BoxData["100.68469502384829`"], "Output", CellChangeTimes->{ - 3.9913204213784294`*^9, {3.9938163120484467`*^9, 3.993816401484993*^9}}, - CellLabel-> - "Out[472]=",ExpressionUUID->"592ec874-7297-4e35-ac4c-4a709753226e"] + 3.9913204213784294`*^9, {3.9938163120484467`*^9, 3.993816401484993*^9}, + 3.994256192982527*^9, 3.9942563830765142`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"df572e67-99d7-4f87-aa8b-979e4c679b93"] }, Open ]], Cell[CellGroupData[{ @@ -4751,15 +4687,14 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[473]:=",ExpressionUUID->"95a8fa6d-a243-49e0-9b82-930336521cbe"], + CellLabel->"In[67]:=",ExpressionUUID->"95a8fa6d-a243-49e0-9b82-930336521cbe"], Cell[BoxData[ RowBox[{"-", "124.2735331996648`"}]], "Output", CellChangeTimes->{ - 3.9913204213904285`*^9, {3.99381631206076*^9, 3.9938164015001698`*^9}}, - CellLabel-> - "Out[473]=",ExpressionUUID->"7a6d68bd-e620-44e0-ab90-a245f8890b51"] + 3.9913204213904285`*^9, {3.99381631206076*^9, 3.9938164015001698`*^9}, + 3.994256192989079*^9, 3.994256383088649*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"478914e7-4e6e-44dd-964f-e91650d5bb32"] }, Open ]], Cell[CellGroupData[{ @@ -4825,14 +4760,13 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[474]:=",ExpressionUUID->"3d40da52-7e84-43df-b724-f982bb0ccbe1"], + CellLabel->"In[68]:=",ExpressionUUID->"3d40da52-7e84-43df-b724-f982bb0ccbe1"], Cell[BoxData["130.0881645538647`"], "Output", CellChangeTimes->{ - 3.991320421419428*^9, {3.9938163120760603`*^9, 3.993816401514661*^9}}, - CellLabel-> - "Out[474]=",ExpressionUUID->"77bface0-ef1c-41b7-b57c-58f47957aebb"] + 3.991320421419428*^9, {3.9938163120760603`*^9, 3.993816401514661*^9}, + 3.994256192997402*^9, 3.994256383123838*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"e3633192-a52a-4a16-9404-6a102f829092"] }, Open ]], Cell[CellGroupData[{ @@ -4890,14 +4824,13 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[475]:=",ExpressionUUID->"f3391ef3-a316-4d0f-9274-0f9548039352"], + CellLabel->"In[69]:=",ExpressionUUID->"f3391ef3-a316-4d0f-9274-0f9548039352"], Cell[BoxData["37.11735851847544`"], "Output", CellChangeTimes->{ - 3.9913204214494324`*^9, {3.993816312091509*^9, 3.9938164015309277`*^9}}, - CellLabel-> - "Out[475]=",ExpressionUUID->"b6ed643f-f49e-4be2-9a01-f9bf4817aabc"] + 3.9913204214494324`*^9, {3.993816312091509*^9, 3.9938164015309277`*^9}, + 3.9942561930050507`*^9, 3.994256383260509*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"f9caec24-03a9-40ff-90d8-51ec4c6e5758"] }, Open ]], Cell[CellGroupData[{ @@ -4955,29 +4888,42 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[476]:=",ExpressionUUID->"ff4d53e3-2af3-48db-bfea-28618ad44623"], + CellLabel->"In[70]:=",ExpressionUUID->"ff4d53e3-2af3-48db-bfea-28618ad44623"], Cell[BoxData["835.6594550727934`"], "Output", CellChangeTimes->{ - 3.991320421481529*^9, {3.9938163121038647`*^9, 3.993816401547245*^9}}, - CellLabel-> - "Out[476]=",ExpressionUUID->"427228c1-f6e7-48fa-aca1-5fe5c3d5961f"] + 3.991320421481529*^9, {3.9938163121038647`*^9, 3.993816401547245*^9}, + 3.994256193012313*^9, 3.994256383287961*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"36e99c8a-c713-4966-9ba1-055b8f15b689"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"f1", "=", "0.4682518995"}]], "Input", CellFrame->{{0, 0}, {0, 0}}, CellChangeTimes->{3.991849227197853*^9, 3.99408329868815*^9}, - Background->RGBColor[ - 0.87, 0.94, 1],ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], + Background->RGBColor[0.87, 0.94, 1], + CellLabel->"In[71]:=",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], + +Cell[BoxData["0.4682518995`"], "Output", + CellChangeTimes->{3.994256193019508*^9, 3.994256383299818*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"180c2a6b-fa48-4f6c-bcc7-15dcf22662ac"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f2", "=", "0.1138781255"}]], "Input", CellFrame->{{0, 0}, {0, 0}}, CellChangeTimes->{3.9918492290557346`*^9, 3.994083305061903*^9}, - Background->RGBColor[ - 0.87, 0.94, 1],ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], + Background->RGBColor[0.87, 0.94, 1], + CellLabel->"In[72]:=",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], + +Cell[BoxData["0.1138781255`"], "Output", + CellChangeTimes->{3.9942561930260057`*^9, 3.9942563833339157`*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"c13620fa-2229-4df1-94c2-9420c83414c6"] +}, Open ]], Cell[CellGroupData[{ @@ -5023,13 +4969,12 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel-> - "In[233]:=",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], + CellLabel->"In[73]:=",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], -Cell[BoxData["2.3793916761039797`*^-53"], "Output", - CellChangeTimes->{3.9913335367025833`*^9}, - CellLabel-> - "Out[233]=",ExpressionUUID->"1db85c02-7ca3-154e-854d-2c36f89709c4"] +Cell[BoxData["1.5276604288963894`*^-53"], "Output", + CellChangeTimes->{3.9913335367025833`*^9, 3.994256193032757*^9, + 3.994256383349004*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"d19fbb0f-35f1-497a-9787-659217fb9fea"] }, Open ]], Cell[CellGroupData[{ @@ -5063,14 +5008,13 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.9915575926932735`*^9},ExpressionUUID->"e4db2648-4e1a-2c46-83ab-\ -fcd932c3b663"], + CellChangeTimes->{3.9915575926932735`*^9}, + CellLabel->"In[74]:=",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], -Cell[BoxData["5.020725113795862`*^-55"], "Output", - CellChangeTimes->{3.991333536726557*^9}, - CellLabel-> - "Out[234]=",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] +Cell[BoxData["8.734838744817244`*^-55"], "Output", + CellChangeTimes->{3.991333536726557*^9, 3.994256193040217*^9, + 3.9942563833789377`*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"cd849fa1-efc3-4c75-baeb-c683dc62c32b"] }, Open ]], Cell[CellGroupData[{ @@ -5103,14 +5047,13 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.991557595005127*^9, - 3.991557596789215*^9}},ExpressionUUID->"e4649c3d-e19e-ca42-95a0-\ -23b66397f1fd"], + CellChangeTimes->{{3.991557595005127*^9, 3.991557596789215*^9}}, + CellLabel->"In[75]:=",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], -Cell[BoxData["1.871372642785671`*^-54"], "Output", - CellChangeTimes->{3.9913335367515736`*^9}, - CellLabel-> - "Out[235]=",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] +Cell[BoxData["5.789701821687687`*^-55"], "Output", + CellChangeTimes->{3.9913335367515736`*^9, 3.994256193046232*^9, + 3.9942563833905067`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"0041d54c-0003-42f1-ac92-80c369edca0c"] }, Open ]], Cell[CellGroupData[{ @@ -5133,13 +5076,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel-> - "In[236]:=",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], + CellLabel->"In[76]:=",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], -Cell[BoxData["25.178011816139865`"], "Output", - CellChangeTimes->{3.9913335367605553`*^9}, - CellLabel-> - "Out[236]=",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] +Cell[BoxData["8.095476742309302`"], "Output", + CellChangeTimes->{3.9913335367605553`*^9, 3.994256193051861*^9, + 3.994256383409602*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"448321d1-348d-44d3-a9fd-b735bb911179"] }, Open ]], Cell[CellGroupData[{ @@ -5164,13 +5106,12 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", - CellLabel-> - "In[237]:=",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], + CellLabel->"In[77]:=",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], -Cell[BoxData["31.32034821453639`"], "Output", - CellChangeTimes->{3.991333536783556*^9}, - CellLabel-> - "Out[237]=",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +Cell[BoxData["19.248598852832544`"], "Output", + CellChangeTimes->{3.991333536783556*^9, 3.994256193058188*^9, + 3.994256383417739*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"99d11988-7303-463f-8f6d-42ab63c770ed"] }, Open ]], Cell[CellGroupData[{ @@ -5179,13 +5120,12 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel-> - "In[238]:=",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], + CellLabel->"In[78]:=",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], -Cell[BoxData["0.7475613664925793`"], "Output", - CellChangeTimes->{3.9913335367915726`*^9}, - CellLabel-> - "Out[238]=",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +Cell[BoxData["2.141249705200775`"], "Output", + CellChangeTimes->{3.9913335367915726`*^9, 3.994256193065712*^9, + 3.9942563834256363`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"378f4a71-0d4f-4d32-b501-700e09265a3f"] }, Open ]], Cell[CellGroupData[{ @@ -5194,13 +5134,12 @@ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", - CellLabel-> - "In[239]:=",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], + CellLabel->"In[79]:=",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], -Cell[BoxData["3.5403946764909393`"], "Output", - CellChangeTimes->{3.99133353681583*^9}, - CellLabel-> - "Out[239]=",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +Cell[BoxData["6.5889332031036965`"], "Output", + CellChangeTimes->{3.99133353681583*^9, 3.994256193073331*^9, + 3.994256383433414*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"24d3798e-4929-419a-8c06-146699d4d871"] }, Open ]], Cell[CellGroupData[{ @@ -5209,13 +5148,12 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel-> - "In[240]:=",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], + CellLabel->"In[80]:=",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], -Cell[BoxData["110.88639408458714`"], "Output", - CellChangeTimes->{3.991333536826782*^9}, - CellLabel-> - "Out[240]=",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +Cell[BoxData["126.82773209465206`"], "Output", + CellChangeTimes->{3.991333536826782*^9, 3.9942561930802927`*^9, + 3.994256383441074*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"714460db-ee53-4034-8516-245e72ac679e"] }, Open ]], Cell[CellGroupData[{ @@ -5224,13 +5162,12 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[241]:=",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], + CellLabel->"In[81]:=",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], -Cell[BoxData["18.822108918839827`"], "Output", - CellChangeTimes->{3.9913335368508377`*^9}, - CellLabel-> - "Out[241]=",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +Cell[BoxData["17.33443718792952`"], "Output", + CellChangeTimes->{3.9913335368508377`*^9, 3.994256193087832*^9, + 3.994256383449431*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"4352d2fc-7de9-4b50-bb58-d923eced890d"] }, Open ]], Cell[CellGroupData[{ @@ -5419,13 +5356,12 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[242]:=",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], + CellLabel->"In[82]:=",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], -Cell[BoxData["0.042044960793272385`"], "Output", - CellChangeTimes->{3.9913335368758316`*^9}, - CellLabel-> - "Out[242]=",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +Cell[BoxData["0.007567620340309023`"], "Output", + CellChangeTimes->{3.9913335368758316`*^9, 3.9942561930985603`*^9, + 3.994256383463614*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"e8e59e81-851c-4ccd-a728-2972f77ba470"] }, Open ]], Cell[CellGroupData[{ @@ -5438,13 +5374,12 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[243]:=",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], + CellLabel->"In[83]:=",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], -Cell[BoxData["4.322031867849089`"], "Output", - CellChangeTimes->{3.991333536973074*^9}, - CellLabel-> - "Out[243]=",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +Cell[BoxData["10.18744489869247`"], "Output", + CellChangeTimes->{3.991333536973074*^9, 3.9942561932417173`*^9, + 3.9942563836973248`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"359be4c6-da4a-4e71-bc69-25538a3ac055"] }, Open ]], Cell[CellGroupData[{ @@ -5635,13 +5570,12 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[244]:=",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], + CellLabel->"In[84]:=",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], -Cell[BoxData["0.011395075201487413`"], "Output", - CellChangeTimes->{3.9913335369870644`*^9}, - CellLabel-> - "Out[244]=",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +Cell[BoxData["0.05670992432690684`"], "Output", + CellChangeTimes->{3.9913335369870644`*^9, 3.994256193248847*^9, + 3.994256383733231*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"23f9845c-fd22-4a68-837b-4ae4262bbc9d"] }, Open ]], Cell[CellGroupData[{ @@ -5654,13 +5588,12 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[245]:=",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], + CellLabel->"In[85]:=",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], -Cell[BoxData["8.302069082299768`"], "Output", - CellChangeTimes->{3.9913335370800858`*^9}, - CellLabel-> - "Out[245]=",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +Cell[BoxData["3.7214775788451546`"], "Output", + CellChangeTimes->{3.9913335370800858`*^9, 3.9942561933204603`*^9, + 3.994256383887514*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"9b5a69c6-1bdf-41f8-9175-0da97e4dd51d"] }, Open ]], Cell[CellGroupData[{ @@ -5752,13 +5685,12 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[246]:=",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], + CellLabel->"In[86]:=",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], -Cell[BoxData["0.7884625602161153`"], "Output", - CellChangeTimes->{3.9913335370930634`*^9}, - CellLabel-> - "Out[246]=",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +Cell[BoxData["0.0485674311961468`"], "Output", + CellChangeTimes->{3.9913335370930634`*^9, 3.994256193329373*^9, + 3.9942563838986197`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"a23a39aa-71c9-4003-8409-f6a575e4fc9d"] }, Open ]], Cell[CellGroupData[{ @@ -5847,13 +5779,12 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[247]:=",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], + CellLabel->"In[87]:=",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], -Cell[BoxData["0.21153743978388478`"], "Output", - CellChangeTimes->{3.991333537118065*^9}, - CellLabel-> - "Out[247]=",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +Cell[BoxData["0.9514325688038533`"], "Output", + CellChangeTimes->{3.991333537118065*^9, 3.994256193338872*^9, + 3.994256383909646*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"581f0f60-072b-409a-af28-8770389836bc"] }, Open ]], Cell[CellGroupData[{ @@ -5975,19 +5906,18 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel-> - "In[248]:=",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], + CellLabel->"In[88]:=",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], -Cell[BoxData["0.16678935135356415`"], "Output", - CellChangeTimes->{3.9913335371420746`*^9}, - CellLabel-> - "Out[248]=",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] +Cell[BoxData["0.046208635823154355`"], "Output", + CellChangeTimes->{3.9913335371420746`*^9, 3.994256193347495*^9, + 3.9942563839479427`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"d2117f8b-77f3-4406-ada0-d4bbf11fd48d"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"ba4a3eff-9e3b-\ -5e47-a896-3a959bbbf44d"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[89]:=",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], Cell[CellGroupData[{ @@ -6048,65 +5978,78 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849241512779*^9},ExpressionUUID->"738a48f3-b38c-f441-aec4-\ -53babaa73a14"], + CellChangeTimes->{3.991849241512779*^9}, + CellLabel->"In[90]:=",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ -\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 249, 217, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335371540604`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4049669725958201`*^-201\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 90, 1, + 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335371540604`*^9, 3.994256193375556*^9, + 3.994256384032707*^9}, CellLabel-> "During evaluation of \ -In[249]:=",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], +In[90]:=",ExpressionUUID->"d21629d4-3e03-4c1e-a05c-e2ef0008f830"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ -\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ -\\\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 249, 218, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335371630745`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.8268403547260976`*^-206\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 90, 2, + 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335371540604`*^9, 3.994256193375556*^9, + 3.994256384048094*^9}, CellLabel-> "During evaluation of \ -In[249]:=",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], +In[90]:=",ExpressionUUID->"a0b4a377-8e36-4847-a7ea-8d59706725fa"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ -\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ -000\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 249, 219, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335371710587`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0423524101426077`*^-210\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 90, 3, + 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335371540604`*^9, 3.994256193375556*^9, + 3.9942563840538073`*^9}, CellLabel-> "During evaluation of \ -In[249]:=",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], +In[90]:=",ExpressionUUID->"2224c09d-6586-4230-870f-bad7cee675f8"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 249, 220, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133353717906*^9}, +during this calculation.\"", 2, 90, 4, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335371540604`*^9, 3.994256193375556*^9, + 3.994256384059238*^9}, CellLabel-> "During evaluation of \ -In[249]:=",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], +In[90]:=",ExpressionUUID->"44e7429a-ee27-417e-8a84-caec119ebfb5"], -Cell[BoxData["4.322031867849086`"], "Output", - CellChangeTimes->{3.9913335399194164`*^9}, - CellLabel-> - "Out[249]=",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +Cell[BoxData["10.18744489869247`"], "Output", + CellChangeTimes->{3.9913335399194164`*^9, 3.9942561949304647`*^9, + 3.994256387284214*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"b30b21f8-3e68-41a7-a060-d6b8aaa60f83"] }, Open ]], Cell[CellGroupData[{ @@ -6168,65 +6111,78 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918492463930817`*^9},ExpressionUUID->"86c33485-ed26-8f49-b3d0-\ -7d040d3b48f0"], + CellChangeTimes->{3.9918492463930817`*^9}, + CellLabel->"In[91]:=",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ -\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 250, 221, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335399544125`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4049669725958201`*^-201\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 91, 5, + 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335399544125`*^9, 3.994256195023357*^9, + 3.9942563874256907`*^9}, CellLabel-> "During evaluation of \ -In[250]:=",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], +In[91]:=",ExpressionUUID->"ff4a22ee-b74c-4e27-9a32-8794f1788d97"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ -\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ -\\\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 250, 222, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335399644184`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.8268403547260976`*^-206\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 91, 6, + 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335399544125`*^9, 3.994256195023357*^9, + 3.9942563874410133`*^9}, CellLabel-> "During evaluation of \ -In[250]:=",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], +In[91]:=",ExpressionUUID->"b48961ce-a26a-4419-855c-b35d02109d15"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ -\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ -000\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 250, 223, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333539972414*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0423524101426077`*^-210\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 91, 7, + 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335399544125`*^9, 3.994256195023357*^9, + 3.9942563874493103`*^9}, CellLabel-> "During evaluation of \ -In[250]:=",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], +In[91]:=",ExpressionUUID->"9c9083c1-904f-40d2-9bc6-08b6c156f0e5"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 250, 224, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333539979416*^9}, +during this calculation.\"", 2, 91, 8, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335399544125`*^9, 3.994256195023357*^9, + 3.994256387456932*^9}, CellLabel-> "During evaluation of \ -In[250]:=",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], +In[91]:=",ExpressionUUID->"6178501c-60d7-43bc-bbc9-1811511a1be4"], -Cell[BoxData["8.302069082299772`"], "Output", - CellChangeTimes->{3.991333542631773*^9}, - CellLabel-> - "Out[250]=",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +Cell[BoxData["3.7214775788451546`"], "Output", + CellChangeTimes->{3.991333542631773*^9, 3.994256196543577*^9, + 3.994256390445108*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"67d7313a-13c9-4a10-8d69-ebdf88c370a5"] }, Open ]], Cell[CellGroupData[{ @@ -6236,138 +6192,141 @@ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ - FractionBox[ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", RowBox[{ - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", - RowBox[{"Cos", "[", - FractionBox[ - RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], - RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918492535482903`*^9},ExpressionUUID->"f373fe4f-940c-0842-9236-\ -63ec36d318ad"], + CellChangeTimes->{3.9918492535482903`*^9}, + CellLabel->"In[92]:=",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX -URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf -Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 -cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF -XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o -Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF -ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w -BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk -L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg -nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 -g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 -wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d -rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V -guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h -Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI -7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 -KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju -0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ -ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j -tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v -r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN -mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln -Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 -dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO -kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw -6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ -4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb -bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 -G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV -hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm -5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm -d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 -N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw -6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs -M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h -CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc -6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r -2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I -zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc -ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW -H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 -367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL -MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX -rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY -lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm -GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap -xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ -A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht -vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF -bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV -iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R -xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj -9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA -nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh -NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 -5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D -gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB -k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq -Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN -BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq -QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L -JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl -IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf -YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix -J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot -/i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb -3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ -X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx -BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu -JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q -PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS -hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w -Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy -qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 -WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk0Vd0bB3BzxkIhicxCStc81H5MlVmkkCTuPSTJULoi8kop5UUqKpSh +jBUhU35CpQhl6I2EcpGpazqXkn7bH2ed9Vnn7O959riOnNcpRxoHGxvbGL5W +70Ft21Wed7TtdpU966mVwkC7p3N0vMyLkIV74I1VD2bqpiia16KgVJdt2tgO +1Pc8glqvkP7nHeo62CX0qEZu81bEp0z+q4t95fXG+qiCD+hXXKGbPnZVR1DG +MqUb7VvnEG+IPd77LiKs5j801fxdbhf2JobCYdLsC2J7S8gAtvXPCIOQ1gF0 +SOnzBTPsuuVxAXrBEOohDS33YvdES4RXBHxHFNdrZ62xp3nMx+cpDLTtxHsB +B2yea4GuWqwRBHYr3M7YMiLpzUE1Y0hCZQvhhm0nRT6cNptE59x2uhDYxH15 +cQ3eaVQiqDDujx2lZB97ovUn+ubN/S0E+z+Jrp2nC2ZQfsc9zhhsqpvf8RvX +ZpGFs6NGPDbzHtuD0oA59N19qfYGNq+8hvAMZQHpzW1e+xA7hdq4V1iMRL68 +d9qfYMs+co3awSKRdTEfqwpbf9ul6ZM1i8i88+XZdmxf3YHWcbNltONkBvzF +nqef4eJX/oPC3lbuFLzJQBdqBIxVeVeQ3OHmOEnsVNAv9Gn9izrymn11sKm5 +zebBBeyQ5eLKDMIueH1jMFqKA5Irtor8g80c9YhIusYBlALm7WTsCLWFZ08D +OEHV0P9TGXbKEzmFnxRukFzYIrOC3dsxWbeSzQ2hwy8DRG7h+mefu60V4wH6 +RU8lJewibbtkDRYPbJW61WSL3VR1jt2/hhdGVObeZWMvNHYOjJkJwqkgjkWv +2wwkaiMoHF4nCKbsN3oisTW7zEHIQAhmY4Q07mL7DZff37l9LZjqNJl0Ywdy +tGruEhQGN6YTv30qAzHkH8/EkiLwSnt0o2saHh/iHV+7lijMcieHRmBzFI7I +bQwShQdjejb3sWW1tjgWTIiCdUXY0R/YbmaJpW2D6yFMelEp+g4DtXsHh0i0 +iEH1FQ7tN3cZ6OujhHhPXnHwusoSmcWenCjIzrcQB2b1so/0PQbiP/2906he +HCSjdkWcwTa/eEDbs1wCQvQbLNTTGag6R3chL1MS8rMpHsUZDJTD+BVqeFoa +pG32PxXIYqB9zpe/hhRLw1jloyoT7Mmm9XuKR6ThYn2vOh1bO2ebmKyrDMgu +fbEawW7y8njGvXsLIJWokDfZDDT7c/DsWIwssJaLAtNzGWj9SfOyZ7byYK0+ +oJyaz0AjOfy+Dn7ycDx4g30fduWXDqmpS/Ig0eIxKFPAQO42R2KU6+Xh/SXD +3Y+wc9RDHdMoCvAw22K0thB/f/wRM1JCEdhWTjF/FzPQAR8BDashJbj9qG+q +uZSBUKgz5dAfJXBz9MuTeMZAarGZelRJZdiRZthMYLNla5lG7leG/Bd5ejxl +DFT89fCh0pfKMLhvqduyHO/Pg0XRm7JUIMrHW3T4Oa7P3LZn3EsVrC89ukN9 +wUDZTrf7WJGqkGrZy16PneA1NMh1VxW2d6S1SdXh9X3hzIRMpyoY73qb2oUt +UpvO5mSmBm5Nmkyrerx+tKbVahTUQSeOWmzVyEBS8v9GxQ9vg4vlrJBbbxmo +9uq86hKHBlwQzj6+5h0ejznXLkJOA5R6d36iY2c0KaqaemhAvSnvpiMtDCTv +U/1x8ZMG1M6t7FZ/j/tbxFAiWraDdJUT39cOBpKWkiFkXTXhrpNjdfp/+BzK +PS34G1HgA6s+4NIPBvKixixo2FGAfyMxKTCO96tC8ldPdwrY/nDpTMLmzHry +9DWdApoGuv0ZE3i/ZYwfSC6hwC0n3aEXU/g8TfVMV1XQAtR2tXjdLJ7feJvt +LjzaQPu8FMTxm4EeBCs6lLfqQKR6WqzS2hHUEYr0LuYawJeqC+oHd40gOY9u +uyP+uyAya9frQyEjiPa34rF0GMDVCzIb8otGkMRE5RoJL1PgqnjOFTE7gk5r +GX9JVjMHl0SDQ4uGo8hrarl5/bgF5PALlrLiRlGxaciazPa98PdW1U06YxTl +zPu9LEqxhKSK6457zMbQosnG901R1vCW3FJtUDKG+tk4Z4aO2cLnymirB0o/ +UMDmU4nRCvawYOUc/iHtB3p8vLn+ZqwDTLb3HtWTHUfn5iRZ6sf3gz2rzzoh +dxwtWO05+OaoI5yRW2efs3sCGRxOMmHsd4JwymaU1j+BPkqm+zVpHYBRoyTH +K2GTaNPDmNq8rc4QTq9rfas2hSoH1WzshA6C+asezYZPU0imi+kTOnUQFDRf +8WyIm0ZaN5OKsgcPgUnoPsE4u58onWtue3KjC3wQYq9hX8NEFSY7emOrXEHr +fCXfcBATpepdFVkucINO4+W7d/qZqL0v95LWtcNQvi07d6v5DCq3vacYeMEd +QsesxFTKZ9DMSSe2AOoRiFy38O3Vllm0sEfVd9rMA0qzdZfb4mZR3tTnxRDd +ozC201y08NcscnmQ631E0BOsCK9AMeocelZqfZTzsicc2Kd++E7XHDKQ+rh0 +ZckT9Dt60tWM5pHCoE/vh+PHYG2qhnDcvXk0LHDC/t73Y+CXo/c6jX0BdSTY +ee919gL67PZfNW4LKIWeKXCmwwtSZuqo6WULqLbu75K3pTe8kOxPWcNNonXu +cFmr2htMHhwLUNtHItkNb9o313qD+++VPCNLEmm22m7kqfMG7eoCCxsrEjka +H87/76U3MBgmOSdsSJSyObTl/Ftv+J8wFzPLgUSb+gvXNf/nDZN93QlzLiRS +9JBIdWd5w6lJiUNSx0lk4DmdF6tNhbT9kp/pl0n0MI0ZYqdLheqfhqH740i0 +oXN2t4Q+FTLMM86rXiHRtAWrK8+ICuPfo999ukri84uNvdWUCr8EVV00Eki0 +liXiKrqfChEteTK1KSQavq7Dl3mSCtcTFY18HpAooSbieOVDKhCpQtITlSQ6 +SbltQM+jQt22yKS0KhLZ5Jfw6RdQITCq2H9vNYn4b4/kPy+mwg9mw8EHNSSK +DXYYryijQkzzVtK2jkQRqoonyhuokCKga3G1kUR+t1v8S79SYeeFRPOE9ySy +XDtiHDxIhfM9FEfVNhJtjWUTonyjwgx5t6EReyRYp7iEQYU7HVYtZDuJjtll +Tj2dpIJAYS/d+SOJXLhDAp78okKziYz6Qg+J9oZsCiwSp4Fx8IziiwESNWRe +skreSAPO6a439oMkMm6dVaRvosGJCxHFQ9iaSi2fzWRoYBObBJzfSCT5Kdys +T4kGfa47/tk1TKIJw35xfh0aqCfkHEwYI9G/HPdf+DjRIEvWw/c+E/d/h2Cq +rTMN2nb9T0lqhkQXD9ODtQ7RAEmwy9/Eppc5qPx1o0F0WXnPpVlcP8GedMuL +Bo7cnRrH5kmk9c6L+iqIBu5TP8/N4P+eT0lKAgqJNAi+b9wbtUKix0jIdyyJ +BkAUlPRhX5yabyq+QYP2YcWvun9JRLFsitS/TQPTrgWdCewENu9Z2wwaePmu +GbBmZ6E9p+5/phfRIL/XZc0UJwtJS8fp7n5Mg0UrZZXdXCw0/+7UDc6nNNgn +MnonATtLGdkmPKOB8xJbpAY3C/3p76/Prsbv63/U9OZhoTIbqby2Zhoo6xgb +PeZlofhfHNwp72hwhtKdPI/tlTd+zLWVBtwP/HYZ8rGQMFe11HA7Dcz69sc3 +YvvXuPy71EMDh+KrvG38LKSgditUkUEDRdXBiAZBFvr16XznjxEaDIz0/fmD +3RFL03wyRoMmObYP+kIsFDmkPW4wSYOKb0kni7B7UzuP2M/RoFAiKTJ+LQsl +rxGxOMdOALNVmdwqzEK1s/2HT3MSYHHnrOZR7NH+guAAbgLEhy2TUrCNy8zv +e/ERoONv/HoZe8ST/ttKhIBTo6O/G0Rw/TYWohbrCfB5/MF3FttIT1QViREw +mtT9W1aUhRKFig5qSRLwRXr5Rji2UfVAiZQcAabRMfHK61mIyC1qFlMg4MDA +bxV77MTEsIF1SgQ4D2qPh2KPEOuFuFQJqNhZP9C4+nz9Xt9JTQJUJLYlOG1g +oeqV9VEjFALiBVIPncFm/Bi8OahNQNnmsD23sA3rzzV26RMwuUhP6cYe9n8s +8wII8L2RyLQUY6G1LuE6z00JuDjYNEzFNjDbZ1NiTkBGg+ZKJHaC5Lew3H0E +nC1Muf8Uu5LrSWKmFQEBM1Gqzdjff4Y/SrMh4LXVlU9fsfVfi3VfdyBgdstA +Fp84nu+SbxOXHQlwuydbL419/d4Tjn8O4PYafhw7sb8FW2qGuhAgs8ROHsAW +8hDfG+iG+0fueUTD1rf8fsTPnYDSa9Hnz6y233I+3sOTAP7QN6nJ2JX8Vlku +XgQct23pz1zNWxCvcqQSEPymfG/Rat7Q93YbggD1ZzE9z1fzWp+O7PElYEqC +crVhtb7n5/+AHwHeOnVerav5WVYbjPwJiI1R8uxezb8uoa4TgMejlPZP/2o+ +fdhkRyABRwoj3g5jC1JLXFSDCShP8NWZwNazjzylcJoA3gqV18zVfEPrS9Kh +BCyWVoYvYF9T2pguQScgwX7TwSXsCmHGM5FzBGgkWDsvYw/9LnknEEFASr51 +2Mpq/mjkEHckAX0bNjX8xdb9aL34NwrPR3jFDjYJFvo/gOH0uQ== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -6381,104 +6340,106 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX -URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf -Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 -cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF -XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o -Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF -ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w -BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk -L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg -nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 -g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 -wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d -rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V -guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h -Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI -7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 -KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju -0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ -ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j -tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v -r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN -mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln -Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 -dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO -kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw -6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ -4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb -bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 -G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV -hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm -5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm -d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 -N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw -6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs -M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h -CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc -6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r -2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I -zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc -ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW -H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 -367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL -MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX -rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY -lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm -GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap -xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ -A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht -vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF -bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV -iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R -xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj -9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA -nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh -NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 -5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D -gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB -k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq -Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN -BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq -QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L -JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl -IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf -YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix -J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot -/i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb -3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ -X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx -BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu -JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q -PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS -hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w -Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy -qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 -WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= +1:eJwV1nk0Vd0bB3BzxkIhicxCStc81H5MlVmkkCTuPSTJULoi8kop5UUqKpSh +jBUhU35CpQhl6I2EcpGpazqXkn7bH2ed9Vnn7O959riOnNcpRxoHGxvbGL5W +70Ft21Wed7TtdpU966mVwkC7p3N0vMyLkIV74I1VD2bqpiia16KgVJdt2tgO +1Pc8glqvkP7nHeo62CX0qEZu81bEp0z+q4t95fXG+qiCD+hXXKGbPnZVR1DG +MqUb7VvnEG+IPd77LiKs5j801fxdbhf2JobCYdLsC2J7S8gAtvXPCIOQ1gF0 +SOnzBTPsuuVxAXrBEOohDS33YvdES4RXBHxHFNdrZ62xp3nMx+cpDLTtxHsB +B2yea4GuWqwRBHYr3M7YMiLpzUE1Y0hCZQvhhm0nRT6cNptE59x2uhDYxH15 +cQ3eaVQiqDDujx2lZB97ovUn+ubN/S0E+z+Jrp2nC2ZQfsc9zhhsqpvf8RvX +ZpGFs6NGPDbzHtuD0oA59N19qfYGNq+8hvAMZQHpzW1e+xA7hdq4V1iMRL68 +d9qfYMs+co3awSKRdTEfqwpbf9ul6ZM1i8i88+XZdmxf3YHWcbNltONkBvzF +nqef4eJX/oPC3lbuFLzJQBdqBIxVeVeQ3OHmOEnsVNAv9Gn9izrymn11sKm5 +zebBBeyQ5eLKDMIueH1jMFqKA5Irtor8g80c9YhIusYBlALm7WTsCLWFZ08D +OEHV0P9TGXbKEzmFnxRukFzYIrOC3dsxWbeSzQ2hwy8DRG7h+mefu60V4wH6 +RU8lJewibbtkDRYPbJW61WSL3VR1jt2/hhdGVObeZWMvNHYOjJkJwqkgjkWv +2wwkaiMoHF4nCKbsN3oisTW7zEHIQAhmY4Q07mL7DZff37l9LZjqNJl0Ywdy +tGruEhQGN6YTv30qAzHkH8/EkiLwSnt0o2saHh/iHV+7lijMcieHRmBzFI7I +bQwShQdjejb3sWW1tjgWTIiCdUXY0R/YbmaJpW2D6yFMelEp+g4DtXsHh0i0 +iEH1FQ7tN3cZ6OujhHhPXnHwusoSmcWenCjIzrcQB2b1so/0PQbiP/2906he +HCSjdkWcwTa/eEDbs1wCQvQbLNTTGag6R3chL1MS8rMpHsUZDJTD+BVqeFoa +pG32PxXIYqB9zpe/hhRLw1jloyoT7Mmm9XuKR6ThYn2vOh1bO2ebmKyrDMgu +fbEawW7y8njGvXsLIJWokDfZDDT7c/DsWIwssJaLAtNzGWj9SfOyZ7byYK0+ +oJyaz0AjOfy+Dn7ycDx4g30fduWXDqmpS/Ig0eIxKFPAQO42R2KU6+Xh/SXD +3Y+wc9RDHdMoCvAw22K0thB/f/wRM1JCEdhWTjF/FzPQAR8BDashJbj9qG+q +uZSBUKgz5dAfJXBz9MuTeMZAarGZelRJZdiRZthMYLNla5lG7leG/Bd5ejxl +DFT89fCh0pfKMLhvqduyHO/Pg0XRm7JUIMrHW3T4Oa7P3LZn3EsVrC89ukN9 +wUDZTrf7WJGqkGrZy16PneA1NMh1VxW2d6S1SdXh9X3hzIRMpyoY73qb2oUt +UpvO5mSmBm5Nmkyrerx+tKbVahTUQSeOWmzVyEBS8v9GxQ9vg4vlrJBbbxmo +9uq86hKHBlwQzj6+5h0ejznXLkJOA5R6d36iY2c0KaqaemhAvSnvpiMtDCTv +U/1x8ZMG1M6t7FZ/j/tbxFAiWraDdJUT39cOBpKWkiFkXTXhrpNjdfp/+BzK +PS34G1HgA6s+4NIPBvKixixo2FGAfyMxKTCO96tC8ldPdwrY/nDpTMLmzHry +9DWdApoGuv0ZE3i/ZYwfSC6hwC0n3aEXU/g8TfVMV1XQAtR2tXjdLJ7feJvt +LjzaQPu8FMTxm4EeBCs6lLfqQKR6WqzS2hHUEYr0LuYawJeqC+oHd40gOY9u +uyP+uyAya9frQyEjiPa34rF0GMDVCzIb8otGkMRE5RoJL1PgqnjOFTE7gk5r +GX9JVjMHl0SDQ4uGo8hrarl5/bgF5PALlrLiRlGxaciazPa98PdW1U06YxTl +zPu9LEqxhKSK6457zMbQosnG901R1vCW3FJtUDKG+tk4Z4aO2cLnymirB0o/ +UMDmU4nRCvawYOUc/iHtB3p8vLn+ZqwDTLb3HtWTHUfn5iRZ6sf3gz2rzzoh +dxwtWO05+OaoI5yRW2efs3sCGRxOMmHsd4JwymaU1j+BPkqm+zVpHYBRoyTH +K2GTaNPDmNq8rc4QTq9rfas2hSoH1WzshA6C+asezYZPU0imi+kTOnUQFDRf +8WyIm0ZaN5OKsgcPgUnoPsE4u58onWtue3KjC3wQYq9hX8NEFSY7emOrXEHr +fCXfcBATpepdFVkucINO4+W7d/qZqL0v95LWtcNQvi07d6v5DCq3vacYeMEd +QsesxFTKZ9DMSSe2AOoRiFy38O3Vllm0sEfVd9rMA0qzdZfb4mZR3tTnxRDd +ozC201y08NcscnmQ631E0BOsCK9AMeocelZqfZTzsicc2Kd++E7XHDKQ+rh0 +ZckT9Dt60tWM5pHCoE/vh+PHYG2qhnDcvXk0LHDC/t73Y+CXo/c6jX0BdSTY +ee919gL67PZfNW4LKIWeKXCmwwtSZuqo6WULqLbu75K3pTe8kOxPWcNNonXu +cFmr2htMHhwLUNtHItkNb9o313qD+++VPCNLEmm22m7kqfMG7eoCCxsrEjka +H87/76U3MBgmOSdsSJSyObTl/Ftv+J8wFzPLgUSb+gvXNf/nDZN93QlzLiRS +9JBIdWd5w6lJiUNSx0lk4DmdF6tNhbT9kp/pl0n0MI0ZYqdLheqfhqH740i0 +oXN2t4Q+FTLMM86rXiHRtAWrK8+ICuPfo999ukri84uNvdWUCr8EVV00Eki0 +liXiKrqfChEteTK1KSQavq7Dl3mSCtcTFY18HpAooSbieOVDKhCpQtITlSQ6 +SbltQM+jQt22yKS0KhLZ5Jfw6RdQITCq2H9vNYn4b4/kPy+mwg9mw8EHNSSK +DXYYryijQkzzVtK2jkQRqoonyhuokCKga3G1kUR+t1v8S79SYeeFRPOE9ySy +XDtiHDxIhfM9FEfVNhJtjWUTonyjwgx5t6EReyRYp7iEQYU7HVYtZDuJjtll +Tj2dpIJAYS/d+SOJXLhDAp78okKziYz6Qg+J9oZsCiwSp4Fx8IziiwESNWRe +skreSAPO6a439oMkMm6dVaRvosGJCxHFQ9iaSi2fzWRoYBObBJzfSCT5Kdys +T4kGfa47/tk1TKIJw35xfh0aqCfkHEwYI9G/HPdf+DjRIEvWw/c+E/d/h2Cq +rTMN2nb9T0lqhkQXD9ODtQ7RAEmwy9/Eppc5qPx1o0F0WXnPpVlcP8GedMuL +Bo7cnRrH5kmk9c6L+iqIBu5TP8/N4P+eT0lKAgqJNAi+b9wbtUKix0jIdyyJ +BkAUlPRhX5yabyq+QYP2YcWvun9JRLFsitS/TQPTrgWdCewENu9Z2wwaePmu +GbBmZ6E9p+5/phfRIL/XZc0UJwtJS8fp7n5Mg0UrZZXdXCw0/+7UDc6nNNgn +MnonATtLGdkmPKOB8xJbpAY3C/3p76/Prsbv63/U9OZhoTIbqby2Zhoo6xgb +PeZlofhfHNwp72hwhtKdPI/tlTd+zLWVBtwP/HYZ8rGQMFe11HA7Dcz69sc3 +YvvXuPy71EMDh+KrvG38LKSgditUkUEDRdXBiAZBFvr16XznjxEaDIz0/fmD +3RFL03wyRoMmObYP+kIsFDmkPW4wSYOKb0kni7B7UzuP2M/RoFAiKTJ+LQsl +rxGxOMdOALNVmdwqzEK1s/2HT3MSYHHnrOZR7NH+guAAbgLEhy2TUrCNy8zv +e/ERoONv/HoZe8ST/ttKhIBTo6O/G0Rw/TYWohbrCfB5/MF3FttIT1QViREw +mtT9W1aUhRKFig5qSRLwRXr5Rji2UfVAiZQcAabRMfHK61mIyC1qFlMg4MDA +bxV77MTEsIF1SgQ4D2qPh2KPEOuFuFQJqNhZP9C4+nz9Xt9JTQJUJLYlOG1g +oeqV9VEjFALiBVIPncFm/Bi8OahNQNnmsD23sA3rzzV26RMwuUhP6cYe9n8s +8wII8L2RyLQUY6G1LuE6z00JuDjYNEzFNjDbZ1NiTkBGg+ZKJHaC5Lew3H0E +nC1Muf8Uu5LrSWKmFQEBM1Gqzdjff4Y/SrMh4LXVlU9fsfVfi3VfdyBgdstA +Fp84nu+SbxOXHQlwuydbL419/d4Tjn8O4PYafhw7sb8FW2qGuhAgs8ROHsAW +8hDfG+iG+0fueUTD1rf8fsTPnYDSa9Hnz6y233I+3sOTAP7QN6nJ2JX8Vlku +XgQct23pz1zNWxCvcqQSEPymfG/Rat7Q93YbggD1ZzE9z1fzWp+O7PElYEqC +crVhtb7n5/+AHwHeOnVerav5WVYbjPwJiI1R8uxezb8uoa4TgMejlPZP/2o+ +fdhkRyABRwoj3g5jC1JLXFSDCShP8NWZwNazjzylcJoA3gqV18zVfEPrS9Kh +BCyWVoYvYF9T2pguQScgwX7TwSXsCmHGM5FzBGgkWDsvYw/9LnknEEFASr51 +2Mpq/mjkEHckAX0bNjX8xdb9aL34NwrPR3jFDjYJFvo/gOH0uQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.9887929549829119, - 1.0113097844802965`}}, + "PlotRange" -> {{0, 180}, {0.674340904625761, + 1.4431154121191108`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.9887929549829141}, + "AxesOrigin" -> {0, 0.6743409046257625}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -6490,21 +6451,20 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.9887929549829119, - 1.0113097844802965`}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.9887929549829141}, + "PlotRange" -> {{0, 180}, {0.674340904625761, 1.4431154121191108`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6743409046257625}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -6518,102 +6478,104 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX -URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf -Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 -cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF -XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o -Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF -ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w -BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk -L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg -nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 -g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 -wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d -rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V -guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h -Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI -7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 -KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju -0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ -ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j -tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v -r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN -mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln -Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 -dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO -kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw -6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ -4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb -bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 -G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV -hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm -5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm -d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 -N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw -6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs -M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h -CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc -6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r -2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I -zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc -ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW -H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 -367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL -MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX -rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY -lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm -GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap -xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ -A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht -vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF -bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV -iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R -xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj -9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA -nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh -NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 -5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D -gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB -k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq -Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN -BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq -QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L -JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl -IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf -YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix -J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot -/i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb -3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ -X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx -BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu -JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q -PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS -hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w -Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy -qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 -WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= +1:eJwV1nk0Vd0bB3BzxkIhicxCStc81H5MlVmkkCTuPSTJULoi8kop5UUqKpSh +jBUhU35CpQhl6I2EcpGpazqXkn7bH2ed9Vnn7O959riOnNcpRxoHGxvbGL5W +70Ft21Wed7TtdpU966mVwkC7p3N0vMyLkIV74I1VD2bqpiia16KgVJdt2tgO +1Pc8glqvkP7nHeo62CX0qEZu81bEp0z+q4t95fXG+qiCD+hXXKGbPnZVR1DG +MqUb7VvnEG+IPd77LiKs5j801fxdbhf2JobCYdLsC2J7S8gAtvXPCIOQ1gF0 +SOnzBTPsuuVxAXrBEOohDS33YvdES4RXBHxHFNdrZ62xp3nMx+cpDLTtxHsB +B2yea4GuWqwRBHYr3M7YMiLpzUE1Y0hCZQvhhm0nRT6cNptE59x2uhDYxH15 +cQ3eaVQiqDDujx2lZB97ovUn+ubN/S0E+z+Jrp2nC2ZQfsc9zhhsqpvf8RvX +ZpGFs6NGPDbzHtuD0oA59N19qfYGNq+8hvAMZQHpzW1e+xA7hdq4V1iMRL68 +d9qfYMs+co3awSKRdTEfqwpbf9ul6ZM1i8i88+XZdmxf3YHWcbNltONkBvzF +nqef4eJX/oPC3lbuFLzJQBdqBIxVeVeQ3OHmOEnsVNAv9Gn9izrymn11sKm5 +zebBBeyQ5eLKDMIueH1jMFqKA5Irtor8g80c9YhIusYBlALm7WTsCLWFZ08D +OEHV0P9TGXbKEzmFnxRukFzYIrOC3dsxWbeSzQ2hwy8DRG7h+mefu60V4wH6 +RU8lJewibbtkDRYPbJW61WSL3VR1jt2/hhdGVObeZWMvNHYOjJkJwqkgjkWv +2wwkaiMoHF4nCKbsN3oisTW7zEHIQAhmY4Q07mL7DZff37l9LZjqNJl0Ywdy +tGruEhQGN6YTv30qAzHkH8/EkiLwSnt0o2saHh/iHV+7lijMcieHRmBzFI7I +bQwShQdjejb3sWW1tjgWTIiCdUXY0R/YbmaJpW2D6yFMelEp+g4DtXsHh0i0 +iEH1FQ7tN3cZ6OujhHhPXnHwusoSmcWenCjIzrcQB2b1so/0PQbiP/2906he +HCSjdkWcwTa/eEDbs1wCQvQbLNTTGag6R3chL1MS8rMpHsUZDJTD+BVqeFoa +pG32PxXIYqB9zpe/hhRLw1jloyoT7Mmm9XuKR6ThYn2vOh1bO2ebmKyrDMgu +fbEawW7y8njGvXsLIJWokDfZDDT7c/DsWIwssJaLAtNzGWj9SfOyZ7byYK0+ +oJyaz0AjOfy+Dn7ycDx4g30fduWXDqmpS/Ig0eIxKFPAQO42R2KU6+Xh/SXD +3Y+wc9RDHdMoCvAw22K0thB/f/wRM1JCEdhWTjF/FzPQAR8BDashJbj9qG+q +uZSBUKgz5dAfJXBz9MuTeMZAarGZelRJZdiRZthMYLNla5lG7leG/Bd5ejxl +DFT89fCh0pfKMLhvqduyHO/Pg0XRm7JUIMrHW3T4Oa7P3LZn3EsVrC89ukN9 +wUDZTrf7WJGqkGrZy16PneA1NMh1VxW2d6S1SdXh9X3hzIRMpyoY73qb2oUt +UpvO5mSmBm5Nmkyrerx+tKbVahTUQSeOWmzVyEBS8v9GxQ9vg4vlrJBbbxmo +9uq86hKHBlwQzj6+5h0ejznXLkJOA5R6d36iY2c0KaqaemhAvSnvpiMtDCTv +U/1x8ZMG1M6t7FZ/j/tbxFAiWraDdJUT39cOBpKWkiFkXTXhrpNjdfp/+BzK +PS34G1HgA6s+4NIPBvKixixo2FGAfyMxKTCO96tC8ldPdwrY/nDpTMLmzHry +9DWdApoGuv0ZE3i/ZYwfSC6hwC0n3aEXU/g8TfVMV1XQAtR2tXjdLJ7feJvt +LjzaQPu8FMTxm4EeBCs6lLfqQKR6WqzS2hHUEYr0LuYawJeqC+oHd40gOY9u +uyP+uyAya9frQyEjiPa34rF0GMDVCzIb8otGkMRE5RoJL1PgqnjOFTE7gk5r +GX9JVjMHl0SDQ4uGo8hrarl5/bgF5PALlrLiRlGxaciazPa98PdW1U06YxTl +zPu9LEqxhKSK6457zMbQosnG901R1vCW3FJtUDKG+tk4Z4aO2cLnymirB0o/ +UMDmU4nRCvawYOUc/iHtB3p8vLn+ZqwDTLb3HtWTHUfn5iRZ6sf3gz2rzzoh +dxwtWO05+OaoI5yRW2efs3sCGRxOMmHsd4JwymaU1j+BPkqm+zVpHYBRoyTH +K2GTaNPDmNq8rc4QTq9rfas2hSoH1WzshA6C+asezYZPU0imi+kTOnUQFDRf +8WyIm0ZaN5OKsgcPgUnoPsE4u58onWtue3KjC3wQYq9hX8NEFSY7emOrXEHr +fCXfcBATpepdFVkucINO4+W7d/qZqL0v95LWtcNQvi07d6v5DCq3vacYeMEd +QsesxFTKZ9DMSSe2AOoRiFy38O3Vllm0sEfVd9rMA0qzdZfb4mZR3tTnxRDd +ozC201y08NcscnmQ631E0BOsCK9AMeocelZqfZTzsicc2Kd++E7XHDKQ+rh0 +ZckT9Dt60tWM5pHCoE/vh+PHYG2qhnDcvXk0LHDC/t73Y+CXo/c6jX0BdSTY +ee919gL67PZfNW4LKIWeKXCmwwtSZuqo6WULqLbu75K3pTe8kOxPWcNNonXu +cFmr2htMHhwLUNtHItkNb9o313qD+++VPCNLEmm22m7kqfMG7eoCCxsrEjka +H87/76U3MBgmOSdsSJSyObTl/Ftv+J8wFzPLgUSb+gvXNf/nDZN93QlzLiRS +9JBIdWd5w6lJiUNSx0lk4DmdF6tNhbT9kp/pl0n0MI0ZYqdLheqfhqH740i0 +oXN2t4Q+FTLMM86rXiHRtAWrK8+ICuPfo999ukri84uNvdWUCr8EVV00Eki0 +liXiKrqfChEteTK1KSQavq7Dl3mSCtcTFY18HpAooSbieOVDKhCpQtITlSQ6 +SbltQM+jQt22yKS0KhLZ5Jfw6RdQITCq2H9vNYn4b4/kPy+mwg9mw8EHNSSK +DXYYryijQkzzVtK2jkQRqoonyhuokCKga3G1kUR+t1v8S79SYeeFRPOE9ySy +XDtiHDxIhfM9FEfVNhJtjWUTonyjwgx5t6EReyRYp7iEQYU7HVYtZDuJjtll +Tj2dpIJAYS/d+SOJXLhDAp78okKziYz6Qg+J9oZsCiwSp4Fx8IziiwESNWRe +skreSAPO6a439oMkMm6dVaRvosGJCxHFQ9iaSi2fzWRoYBObBJzfSCT5Kdys +T4kGfa47/tk1TKIJw35xfh0aqCfkHEwYI9G/HPdf+DjRIEvWw/c+E/d/h2Cq +rTMN2nb9T0lqhkQXD9ODtQ7RAEmwy9/Eppc5qPx1o0F0WXnPpVlcP8GedMuL +Bo7cnRrH5kmk9c6L+iqIBu5TP8/N4P+eT0lKAgqJNAi+b9wbtUKix0jIdyyJ +BkAUlPRhX5yabyq+QYP2YcWvun9JRLFsitS/TQPTrgWdCewENu9Z2wwaePmu +GbBmZ6E9p+5/phfRIL/XZc0UJwtJS8fp7n5Mg0UrZZXdXCw0/+7UDc6nNNgn +MnonATtLGdkmPKOB8xJbpAY3C/3p76/Prsbv63/U9OZhoTIbqby2Zhoo6xgb +PeZlofhfHNwp72hwhtKdPI/tlTd+zLWVBtwP/HYZ8rGQMFe11HA7Dcz69sc3 +YvvXuPy71EMDh+KrvG38LKSgditUkUEDRdXBiAZBFvr16XznjxEaDIz0/fmD +3RFL03wyRoMmObYP+kIsFDmkPW4wSYOKb0kni7B7UzuP2M/RoFAiKTJ+LQsl +rxGxOMdOALNVmdwqzEK1s/2HT3MSYHHnrOZR7NH+guAAbgLEhy2TUrCNy8zv +e/ERoONv/HoZe8ST/ttKhIBTo6O/G0Rw/TYWohbrCfB5/MF3FttIT1QViREw +mtT9W1aUhRKFig5qSRLwRXr5Rji2UfVAiZQcAabRMfHK61mIyC1qFlMg4MDA +bxV77MTEsIF1SgQ4D2qPh2KPEOuFuFQJqNhZP9C4+nz9Xt9JTQJUJLYlOG1g +oeqV9VEjFALiBVIPncFm/Bi8OahNQNnmsD23sA3rzzV26RMwuUhP6cYe9n8s +8wII8L2RyLQUY6G1LuE6z00JuDjYNEzFNjDbZ1NiTkBGg+ZKJHaC5Lew3H0E +nC1Muf8Uu5LrSWKmFQEBM1Gqzdjff4Y/SrMh4LXVlU9fsfVfi3VfdyBgdstA +Fp84nu+SbxOXHQlwuydbL419/d4Tjn8O4PYafhw7sb8FW2qGuhAgs8ROHsAW +8hDfG+iG+0fueUTD1rf8fsTPnYDSa9Hnz6y233I+3sOTAP7QN6nJ2JX8Vlku +XgQct23pz1zNWxCvcqQSEPymfG/Rat7Q93YbggD1ZzE9z1fzWp+O7PElYEqC +crVhtb7n5/+AHwHeOnVerav5WVYbjPwJiI1R8uxezb8uoa4TgMejlPZP/2o+ +fdhkRyABRwoj3g5jC1JLXFSDCShP8NWZwNazjzylcJoA3gqV18zVfEPrS9Kh +BCyWVoYvYF9T2pguQScgwX7TwSXsCmHGM5FzBGgkWDsvYw/9LnknEEFASr51 +2Mpq/mjkEHckAX0bNjX8xdb9aL34NwrPR3jFDjYJFvo/gOH0uQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.9887929549829119, 1.0113097844802965`}}, + "PlotRange" -> {{0, 180}, {0.674340904625761, 1.4431154121191108`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.9887929549829141}, + "AxesOrigin" -> {0, 0.6743409046257625}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -6623,7 +6585,8 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.9887929549829141}, + AxesOrigin->{0, 0.6743409046257625}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -6651,7 +6614,8 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.9887929549829119, 1.0113097844802965`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.674340904625761, 1.4431154121191108`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -6659,9 +6623,9 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991333813212965*^9}, - CellLabel-> - "Out[251]=",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] + CellChangeTimes->{3.991333813212965*^9, 3.994256350176409*^9, + 3.994256960111706*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"81b08f53-9323-41c1-a603-cc703c28c927"] }, Open ]], Cell[CellGroupData[{ @@ -6724,372 +6688,175 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849261714945*^9},ExpressionUUID->"24fa5db0-1063-354a-bd60-\ -c117a27ff3e1"], + CellChangeTimes->{3.991849261714945*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.0784227471040894`*^-281\\\", \ -\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 252, 225, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333813432829*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.7275300936106594`*^-264\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 9, + 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333813432829*^9, 3.994256960668057*^9}, CellLabel-> "During evaluation of \ -In[252]:=",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], +In[93]:=",ExpressionUUID->"b7a57304-bef8-4061-8d4a-fd0a3bc758cc"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9214123648785273`*^-295\\\", \ -\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 252, - 226, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333813442087*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.767332873829912`*^-275\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 93, + 10, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333813432829*^9, 3.9942569606784697`*^9}, CellLabel-> "During evaluation of \ -In[252]:=",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], +In[93]:=",ExpressionUUID->"689dbe34-353a-436e-99c9-1daa9299ac92"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \ -\\\"9.614868462060315`*^-8\\\"}], \\\")\\\"}], \\\"44\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 252, - 227, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333813450123*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.808052721322864`*^-286\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 93, 11, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333813432829*^9, 3.994256960687025*^9}, CellLabel-> "During evaluation of \ -In[252]:=",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], +In[93]:=",ExpressionUUID->"11ab2a78-f31b-4493-86d0-4fa6c6315748"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 252, 228, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333813469118*^9}, +during this calculation.\"", 2, 93, 12, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333813432829*^9, 3.994256960694895*^9}, CellLabel-> "During evaluation of \ -In[252]:=",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], +In[93]:=",ExpressionUUID->"64f772a0-844b-4e01-a077-e86257e85800"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR -X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 -PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s -UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ -x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz -61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv -t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ -EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx -Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 -owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 -9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO -hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR -7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo -RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj -aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz -mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am -pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW -o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK -CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf -6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC -/emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m -5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd -V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ -+65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 -41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR -7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c -FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K -qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq -EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J -iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB -ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 -cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj -uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee -SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU -W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo -vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb -UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz -/lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO -auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS -fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB -J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX -CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb -VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe -pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ -L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ -I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu -GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ -/Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs -j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl -/5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 -ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW -YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH -wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX -BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 -r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss -K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw -dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 -4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 -hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR -4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr -KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk -QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu -CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj -WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn -90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN -2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 -W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga -OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA -8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ -hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h -WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 -bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv -yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV -t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 -K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa -34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK -YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY -X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 -ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX -jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo -a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH -czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa -mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 -NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E -G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ -ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 -SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 -iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR -C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL -0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 -oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md -f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX -62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b -osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH -D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ -/RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp -B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ -Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc -yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc -ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr -JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo -85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq -j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo -AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw -GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi -6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y -B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck -+xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh -uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF -MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK -RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG -FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX -cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj -zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ -mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC -bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN -/WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 -9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l -NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 -8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 -CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA -sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw -FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi -CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj -s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh -OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ -cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O -fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 -8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E -1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU -WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J -XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw -vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV -GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd -KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 -nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu -cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 -yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 -VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P -OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV -HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq -Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 -t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv -pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG -iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V -YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 -fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq -6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 -hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl -t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 -6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp -wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK -rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU -0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O -0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ -H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv -DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE -LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 -NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN -cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB -/jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO -G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M -r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK -4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz -ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa -TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA -1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E -A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ -/UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO -yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY -ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ -CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G -pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 -ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz -KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q -/DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG -invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS -hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV -L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm -1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c -J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx -uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C -Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 -T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP -59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK -DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB -XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB -Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf -VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw -iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n -LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 -BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z -f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC -e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs -6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL -hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd -4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 -cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui -BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU -zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk -ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP -Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd -k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R -PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 -CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj -jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf -vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo -WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN -UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t -0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ -6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe -wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph -whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS -4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r -UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 -+j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P -ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP -O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP -KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw -bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC -ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf -jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS -cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F -3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL -Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 -gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 -/iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l -u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd -PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv -50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 -zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p -HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb -u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr -DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu -xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M -H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W -7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 -GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A -87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp -WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv -tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT -5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 -pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz -yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f -eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa -8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H -vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F -+lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m -Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 -+a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg -y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR -Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 -0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU -F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT -rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c -OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 -R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER -lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g -JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ -fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu -YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ -mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS -F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 -8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz -ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC -9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M -zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD -sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf -Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW -OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV -7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H -vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O -mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 -5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf -X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX -ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh -Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL -IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT -PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc -9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz -uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 -tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU -BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey -Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s -fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs -2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l -thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw -GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s -6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv -/7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq -N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE -43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC -gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr -t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ -MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU -0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q -UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO -2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 -Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 -rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A -b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn -7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi -qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw -18hpWOkpIP0PtXjCHw== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VevbB3CHjikp8zbvvQ1lypBps7f7RmRKZqIMIXIolSQlQyllODKU +IZGkAbHXPilDFCUUpzIkOlJJgyEypvy86/1rXZ9rXc+z1jPc32ct2p4DLsHc +XFxcun9wcf3/dWG447FyaplZsGmdhcOYpVnvFcox84EkECkw6xMwpwNK/LuH +MpAFB2vXNr5DPYh2uv2aZ6AU7k2GX2tBCxCZksr6+ZqAU8qun7PRBd41Oh6Y +e90CLfOqXb9gD1grf/tv5vUrUIsf/13JOgQ/XxvlTr/+AJsn4zzi9JOg1fJG +2cvSWZCJjtcQ7c4CuXd1Y3s0V4BJ/WqfkVEI4uF+t/ksedB9vL/08NBVyNK1 +bnB050fG3582Cy5fhzd5Og9nNqzD4yETlsdib0FqWfy/3NIiGK7s9vbqQCXY +6e8TlVASwauSXNJfRyuB/7GL+0YtEVTpu96xaaYSTn9UGbI3F8G/T96LuyBQ +BSfoz8dy9omgW3jeDJ9JFewvofxPtV4E78ezKGfzq8D5MlvT3kcUNQSj0ptd +7oBUzsdz2UViqHpx0buqqhooGndPL5WL4XMlPk2ne9Ug03ImfneNGFKmdXgm +HlaDwrTakY2tYrj3qmSzcG81qDhE+jd8EcNtopkOXMvVsGXNiuHHLeLYHzXs +b0uvgR1RkqN6neLouF19yDCsBpzWfhm+1COOt8+XXLq0vwZcSuve/H4rjjvu +XW6bO1QDHi92/dv2XRy1FsNiy47XwG7Na/XeEhKoUZOk9SatBv4a1b6Q5C+B +U0kf9166UwNn3WzNXi1IIMNjKivoew3I/NMtw/2HJB7YulBwY7YG7oi5Lequ +lcSxJanQscUa6H/lW3NBURKry82dPLnYoOwcRXe2kUTa0ANHXhE2tGwv5n2R +L4n7vp5pytNlw4r1fHcXUwrPWobnph9gQ2Z5bMWKtRR+fR3OsTlMtuflStFy +lkK73fkZq9FscHgiaJ4eLIUyMePH/U+yocCSynHIkMJ/xvm0v6exwRjtLz17 +J4VSsm7v4RYbDjOu+nUkUbBbIJF6Z5gNdiXCc/ZpFNway4m7/Z4NdL4TKd25 +FIzwZSldG2XDi14Pds9NCvrL5m47940NmyOFeIa7Kbibx25x0wIbvpQfLf8h +I43jFtm8tUIE7BJ3nJTlSONStvtjPiMCthxvSLzSKI15zLGAdAYBgh82SdLa +pFFQWNZhPZOAumoeUH0jjW1W2/n4zQmQtK/L1FmVRt4ncopddgS8SFTWt7KX +wTiZcsHy3QRs/b4cu/+jDK7N8WjJSSDgmE2O+qMJGXQx2yZfkETAnatag2IL +MqjfcOFH4WkCKG7+jDp+WRSkZK/LTSFg4v6TRZ7NstjzU3b97kwCspMyo/Jj +ZHGwOiJrazEB7UNqyhOJsph50aVJ5CoBv/Vbe8xSZbFwOiVsqJSAvZ/n9UaL +ZDGKK90qqJwAEwefmc2tsvjAs1TEoYqADxKq+x+vk8Pk6ok9UfUESB1olpeS +kkP1Os2nAo0EOLR7de2jyuGOTa1E4QMCamNTNddvkcOpogHa3YcEnH83/W2n +lxxaflOOaGojQO9WQ8j3UjmsDcncqPGKgBBudymLSjkMntjCPNdDwGWfqbac +u2R7ZcbIx14CeIVpqibtcihLZAxkkDkzeOjM6OlJOdzZfyO/4S0BiUznABlj +eTR/NjQYOUaAje+VH0YW8ujRIynD/kyAcML4KXcHeTxl7+o5+YXsvzW5PNNf +Hv0+v+veOU7Afbv6cd5z8lg3tfKUe5qA+HC+OOVseRQwmBFSmiHAOsNN2KJI +Hk/qbfSAHwT0vpzSiWPLo7xo7tJfcwRMeylFz76Rx+zv7jm5SwTci43kExmV +x824RfTiTwJOXn6Qt3lKHh3qvhRkLRMgNOLZsI9bAT2S4UX8bwI2hqRxjagr +oLXc5Q/qXBzwPTJ//vlxBVyrxgp7zMsBlUsWct+SFfCR3+eVZD4Oud5/V/Fl +KuDOmfO3Lfk5EPtb7YVFmQJujDjkwhHgQO4pX4m65wr48uv8QqAQB3Zdryjv +71fAgcDccN51HKA/XTKaG1FAv65a7uukawSzvbXnFfDQvHdOvzAHnl94Wnxd +XhHFeCJC14pwIJsjrtu6URFvvvFcySDt3RfQMqKriKd5C+uFRTnwhfJ7VNZa +EWfdNAluMQ5Um9hGM5wUUXHvyalo0tG7LvJ5eisitULH8zNpnhId9az9ith1 +o5PdKM6BzkdxDdUxiuhU13ydJsGBzI+dDl1JilhWo92ZRFphY/AB/kuKqPD6 +xk2GJAc+2RBcqlcV0aC6Lehv0pVhqxcsKxTR8kG6+3vSJnfy/znZTPYX6/jm +mBQHtr7uXplqV8Tg3qSeBtKOXGu2+b1SRFb3jVPLpL3UGJn/Dini4fOXvxlQ +OBDosv8NfFLEcj5zgf2k9x+/Rq+ZUsQpxeiRUtIxZQN/UZfI8aTIH+wlbX2c +Fp/wJxU1fB1btKQ58Gx94zVjQSpaRhefdiftVObRPi1MxQzdHzyxpPuNZyZu +ilGxIVHTvJC0T1eqSACFihe1DVh1pEcCVA2l5akYNDi71EN678JD75c0Ktot +Oh0ZJz1+3if+nCoVb74w4KySjlRcuGauQcXE5DTOBhkOzHMy239qU/EVPx5V +IB1rozHJ1qfiMpW5uok0139PRMIYVJQMiXDQIZ180N+QbkZFX+tHfvqkBXl/ +eQ9aUPHcLxUTA9KZBbnxWduoqJVz/q0eaQltnTI7ByqKTQ1v0yJd0NrZzu1M +xeu1YnHKpBW9gifr3akIYTJxFNJlE6sih72pmOv6yUaAtHpigaGGHxXXpYa8 +XyDfv1rCwOdjIBVpCznb3pPWv/1vfGEoFWut95xoJ11vFlbmGkHFhOXHCZWk +oWdNx9pDVNzpzXFPJ/04pHiyNZqKV44p/w4jbfubIXriOBVzDDYcsSLdndlr +qJ9AxTr9A4/kSLupHPCZOE1FzTGTD9Pk+r2pE0goO0fFpYSIgUekfR3LynZl +UPE0D/f1v0mPfjDrEM+m4rDenI036am1UaLJl6n45NyozBi5fw6XCBuxrlJR +SGrY7gbpJf1bPvPXqbhNVtMjmDSP73BZcDUVs5oecw+Q+5NSY2Nk3ULFxT3r +Xlwi93fR1o8+/2ujYjmrcwFI09/EJdQ+I9eveJLrE1kfWtycDtU+KoYz41tV +SFu4ye/i+0JF66V8hSSy/p5+uZfQPEFFxSXnOBHSDnEu14/OkPNLJZ4WkfXq +WX526vMyFQsy8pWqNnAgfGkmoX0dDcNLD0vcIOvd5OBeyTFRGm4qs98mSpr/ +22AFD4WGT+TejR4j8+H6UGu/GZ2GBqm3Qs3IPBluytW8a0jD32+l6y6TeVNp +JNjyypSGVtbiB8b/P49qTnpOIw0jjZ4UGpKWLA1J0rCnYaj+oG8LmWc7khkD +V/1oOG0+Q1TzkPX9v6qI5iAa9v2qs/rATeZbNJ3nv300POka6S1COiV07WZK +FA0dO1zWB5P5+ND+v1MZKTSMKhrq/kDmp55oovZxNg0v5Np/Np4ngCt1/nFe +LQ0d6AJW+mQ+d/OEedc20LA6rttUc5aAv+Zdkmee0NDSx31ZhMz3sgHloZBB +Gm7NaR39Z4I8r4vbz7jx0Mn95vpg50cCfmpsGNZyp+OQVS1FvZuAhSKZxC3e +dFR7scxseU7A3HoVZYYfHeUX79l4PiNgapYRtnUfHR0S0uVi2snzsyFwwTuO +jj+Fg97ltBDQaX9POOU6HQNTX9KYtQQU/OULH+bpKOY7ZeJQSMCl/0I/fF6m +o7KSuunpfAJydhxOnlylo1dfvmvdJQIytqQ8WxJQQpE01x6ZHAKSfrE91yso +IVisMWlII8eX+mck01oJu7/cXXM4jgBmRWXJxYtKSJ7llR27CBiiVhRbFSrh +5yuh1557ExB78daVuWIlDBUIhC4v8vxKLL/scksJBVVCw5+6kfPrVZIn3KiE +M4H5zcUOBKj9mZN55r0SRup0HXpvSs6X3/GEaE1lbEi7vZugEDAjaufv0aKM +vKO3K/uesWEgnP4i7KkyNtnvPCbRwYaHbcsQ/1wZE55dHXNpI78HYysUb/Yr +43w+7+22h2zQ+SD07uc3ZbTydfkz6y4b9rP/3V0kpoLaMUZ5dVfY8G2Hu89o +kAoe+8KX6kV+T46m+Xsc4lPFrqNyS8aCbLD9ftT2k+FGXE0f5w5j1MBEIP/h +f+I3oWlVVUXjyTvk/4gU99kWNdzHd1le6GAliHapZtR8V8eiD1qCK4dug1xK +tZOhoSb2ZH4a+wk3IU+DsUEsRAutz2hYh+iVQ6eMucHshc0opZvsJ2hUBiZy +LZna/dqoa6S28J5aCsI8pVEBSTq4paZiNsSyBBQSFZk7VXWxyk9ouYVzGQRU +dtW6PNXF4ymTfzTr5cNmlnT10d16yLOS1vlV4yIcGhZttePagjkg1NWrlg3f +Z9PcbfO24KOZRdnyokzYpt1WYKulj6kKxmbO99Ogadb012K3PqoUW3y6sDMF +9mvqDb4MNkDb0m9OAU2ngTUV1LtTwBC38Ggc3uScCFbKlO3rSg3R7atO2T6x +ONiUcD6mxcgIF0cv/hGxMwbUgxnNKoNGeCqoVr5o7jAEN4We/uegMQ7CkMLj +mEiYivh21CrKGPsME+xGwiIhRj78r/5oY+S/trSLd3cknD9xwGXpuDH63POj +RZpHQo1JNJV5xhgLJFVy6wQj4XftqcbWAmOUXN6gDmYHIKv6ytyrVmPcfdBC +beOVCGgu6Q2akWCgW6xS/1JOGIw40PyiKQz80RSlACfDgOtnxM5fMgz8vTDB +ezEkDCyc+Rz/pDLw1P13WUdMwqDtDxMjaXUGOi+yLiyP7IPne4oFzM0Y+KHr +O4+47j4YVA67k7mXgbrbc7W2/hcCczdXF7XvMbBz05pfRYHBMOZhXXKujoFr +RQxm+FyCYWBNus3HBgZ2X60LPYnB0OAvk3/xIQPPiRU1Z8oHQxLFwGSlg4FN +0SE2dgNBsCEl7ETnW/J5pm63BZ2CQDOkjyuY2wQzZYPsMm0CIVClQqBguwmu +iZWO2bIrAGKf+IapOpmgxbmN9fYOAZAZLPqMcCHvVxdzIpkB0Hj9WNozTxN8 +XDtbMSIXAOKqNutXAkzwd+XEc89hf2hT/STuH22CeySM2IWB/qC+SZGqWmyC +hQt3j52a8oUZ9WxDYtoEvV+1lRQn+cDAc7QSmzXBznNWQiFhPvBw/5Rr1LwJ +PvhhzTJ38YEMwvag4bIJcr0eadai+4C6CVdlPY8pFj9fWfrU4g17bCNorZKm +eMHLb6Cdzxt6Q7YJ9TJNsWMgw5a32Avul/16P59iirGtQcsjXB5gaBm1aJdq +iu/pkTl7Jt3h7vsJoZJ0U6x2XD05+8YdCIVhI7ssUxzQ2SNvyXGHyryH6VcK +TZH/lNvevL3uUJKWzNh2xxT72t0Oir5wg3NR6y/k9Zgi9dejG6tVruC9VQlN +FZh4pMj2y41sZ1jp5RdupTLRqte11SPJGUqCp4bslJiYrCD7RvygM4ydqTvq +vYmJDoX7zzY5OsOhjh3Vx/SYGO0UTrQJOsN5xxMK962Z+IZRHFmS7AT1Xn2/ +9Q8wke/W/iteQjtANuJs3eaHTDwb8ESsxN8eMlb3GqS2MJExkmjbYW0P3FnW +7M+PmTjr6hXKr2UP32r/vFXSwcSyxhha+087qOc6nSfaw8T0DSmP7XPswDsn +4ejCJybuOBHA49FlC3kNxwya1rIwd1f8qMAOG5AQDGdv92Sh0q4u0ZvpVlBm +GRc7vZOF29lJ+0KjrUAvLsMyexcL1z9LDwU/K3CcrukbCGChs+ucqK6uFZzp +n/8ZGM7CY8QqN61/KyyVxlvEJrJQrEa9k668FQZNs3vKK1jos3f7Hs0XFhB6 +pOyy7R0WhjfW/V3UYAELd+4GT9SwcMSeRVG6YQGi9IFF3VoW3nRSmws7aQH2 +/PJyDx6y8FL7lclxLQto7C0P6ulj4d2NPs3XMs3BTvi+VvQAC/vCdGNc4sxh +YFvHAmWIhbfV6DHiYeYwVz+e4jvCwvnmZYFXluagdVWn6us3Fh53rS/RXUJo +HDSPTpskfdTiQcwnBDtxV9CeZiFFMazw1SuEvWePvIyaZ6HjowbvpiqEuYdn +CqSWWNggJiHrVIiQtHwpsH6ZhUkZ4T5zKQgb9G9p7l5h4Vvjo2srohGuRNTP +r66yULd7XiYqCOH/ACmycIo= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7103,331 +6870,131 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR -X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 -PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s -UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ -x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz -61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv -t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ -EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx -Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 -owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 -9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO -hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR -7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo -RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj -aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz -mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am -pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW -o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK -CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf -6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC -/emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m -5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd -V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ -+65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 -41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR -7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c -FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K -qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq -EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J -iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB -ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 -cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj -uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee -SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU -W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo -vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb -UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz -/lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO -auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS -fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB -J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX -CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb -VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe -pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ -L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ -I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu -GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ -/Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs -j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl -/5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 -ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW -YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH -wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX -BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 -r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss -K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw -dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 -4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 -hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR -4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr -KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk -QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu -CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj -WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn -90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN -2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 -W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga -OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA -8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ -hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h -WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 -bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv -yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV -t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 -K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa -34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK -YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY -X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 -ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX -jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo -a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH -czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa -mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 -NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E -G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ -ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 -SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 -iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR -C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL -0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 -oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md -f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX -62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b -osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH -D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ -/RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp -B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ -Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc -yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc -ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr -JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo -85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq -j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo -AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw -GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi -6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y -B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck -+xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh -uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF -MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK -RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG -FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX -cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj -zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ -mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC -bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN -/WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 -9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l -NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 -8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 -CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA -sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw -FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi -CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj -s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh -OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ -cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O -fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 -8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E -1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU -WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J -XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw -vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV -GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd -KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 -nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu -cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 -yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 -VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P -OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV -HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq -Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 -t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv -pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG -iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V -YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 -fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq -6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 -hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl -t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 -6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp -wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK -rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU -0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O -0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ -H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv -DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE -LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 -NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN -cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB -/jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO -G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M -r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK -4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz -ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa -TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA -1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E -A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ -/UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO -yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY -ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ -CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G -pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 -ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz -KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q -/DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG -invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS -hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV -L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm -1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c -J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx -uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C -Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 -T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP -59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK -DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB -XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB -Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf -VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw -iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n -LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 -BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z -f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC -e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs -6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL -hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd -4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 -cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui -BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU -zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk -ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP -Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd -k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R -PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 -CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj -jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf -vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo -WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN -UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t -0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ -6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe -wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph -whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS -4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r -UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 -+j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P -ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP -O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP -KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw -bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC -ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf -jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS -cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F -3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL -Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 -gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 -/iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l -u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd -PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv -50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 -zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p -HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb -u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr -DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu -xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M -H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W -7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 -GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A -87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp -WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv -tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT -5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 -pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz -yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f -eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa -8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H -vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F -+lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m -Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 -+a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg -y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR -Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 -0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU -F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT -rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c -OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 -R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER -lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g -JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ -fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu -YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ -mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS -F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 -8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz -ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC -9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M -zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD -sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf -Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW -OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV -7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H -vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O -mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 -5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf -X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX -ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh -Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL -IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT -PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc -9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz -uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 -tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU -BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey -Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s -fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs -2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l -thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw -GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s -6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv -/7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq -N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE -43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC -gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr -t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ -MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU -0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q -UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO -2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 -Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 -rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A -b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn -7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi -qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw -18hpWOkpIP0PtXjCHw== +1:eJwV13k4VevbB3CHjikp8zbvvQ1lypBps7f7RmRKZqIMIXIolSQlQyllODKU +IZGkAbHXPilDFCUUpzIkOlJJgyEypvy86/1rXZ9rXc+z1jPc32ct2p4DLsHc +XFxcun9wcf3/dWG447FyaplZsGmdhcOYpVnvFcox84EkECkw6xMwpwNK/LuH +MpAFB2vXNr5DPYh2uv2aZ6AU7k2GX2tBCxCZksr6+ZqAU8qun7PRBd41Oh6Y +e90CLfOqXb9gD1grf/tv5vUrUIsf/13JOgQ/XxvlTr/+AJsn4zzi9JOg1fJG +2cvSWZCJjtcQ7c4CuXd1Y3s0V4BJ/WqfkVEI4uF+t/ksedB9vL/08NBVyNK1 +bnB050fG3582Cy5fhzd5Og9nNqzD4yETlsdib0FqWfy/3NIiGK7s9vbqQCXY +6e8TlVASwauSXNJfRyuB/7GL+0YtEVTpu96xaaYSTn9UGbI3F8G/T96LuyBQ +BSfoz8dy9omgW3jeDJ9JFewvofxPtV4E78ezKGfzq8D5MlvT3kcUNQSj0ptd +7oBUzsdz2UViqHpx0buqqhooGndPL5WL4XMlPk2ne9Ug03ImfneNGFKmdXgm +HlaDwrTakY2tYrj3qmSzcG81qDhE+jd8EcNtopkOXMvVsGXNiuHHLeLYHzXs +b0uvgR1RkqN6neLouF19yDCsBpzWfhm+1COOt8+XXLq0vwZcSuve/H4rjjvu +XW6bO1QDHi92/dv2XRy1FsNiy47XwG7Na/XeEhKoUZOk9SatBv4a1b6Q5C+B +U0kf9166UwNn3WzNXi1IIMNjKivoew3I/NMtw/2HJB7YulBwY7YG7oi5Lequ +lcSxJanQscUa6H/lW3NBURKry82dPLnYoOwcRXe2kUTa0ANHXhE2tGwv5n2R +L4n7vp5pytNlw4r1fHcXUwrPWobnph9gQ2Z5bMWKtRR+fR3OsTlMtuflStFy +lkK73fkZq9FscHgiaJ4eLIUyMePH/U+yocCSynHIkMJ/xvm0v6exwRjtLz17 +J4VSsm7v4RYbDjOu+nUkUbBbIJF6Z5gNdiXCc/ZpFNway4m7/Z4NdL4TKd25 +FIzwZSldG2XDi14Pds9NCvrL5m47940NmyOFeIa7Kbibx25x0wIbvpQfLf8h +I43jFtm8tUIE7BJ3nJTlSONStvtjPiMCthxvSLzSKI15zLGAdAYBgh82SdLa +pFFQWNZhPZOAumoeUH0jjW1W2/n4zQmQtK/L1FmVRt4ncopddgS8SFTWt7KX +wTiZcsHy3QRs/b4cu/+jDK7N8WjJSSDgmE2O+qMJGXQx2yZfkETAnatag2IL +MqjfcOFH4WkCKG7+jDp+WRSkZK/LTSFg4v6TRZ7NstjzU3b97kwCspMyo/Jj +ZHGwOiJrazEB7UNqyhOJsph50aVJ5CoBv/Vbe8xSZbFwOiVsqJSAvZ/n9UaL +ZDGKK90qqJwAEwefmc2tsvjAs1TEoYqADxKq+x+vk8Pk6ok9UfUESB1olpeS +kkP1Os2nAo0EOLR7de2jyuGOTa1E4QMCamNTNddvkcOpogHa3YcEnH83/W2n +lxxaflOOaGojQO9WQ8j3UjmsDcncqPGKgBBudymLSjkMntjCPNdDwGWfqbac +u2R7ZcbIx14CeIVpqibtcihLZAxkkDkzeOjM6OlJOdzZfyO/4S0BiUznABlj +eTR/NjQYOUaAje+VH0YW8ujRIynD/kyAcML4KXcHeTxl7+o5+YXsvzW5PNNf +Hv0+v+veOU7Afbv6cd5z8lg3tfKUe5qA+HC+OOVseRQwmBFSmiHAOsNN2KJI +Hk/qbfSAHwT0vpzSiWPLo7xo7tJfcwRMeylFz76Rx+zv7jm5SwTci43kExmV +x824RfTiTwJOXn6Qt3lKHh3qvhRkLRMgNOLZsI9bAT2S4UX8bwI2hqRxjagr +oLXc5Q/qXBzwPTJ//vlxBVyrxgp7zMsBlUsWct+SFfCR3+eVZD4Oud5/V/Fl +KuDOmfO3Lfk5EPtb7YVFmQJujDjkwhHgQO4pX4m65wr48uv8QqAQB3Zdryjv +71fAgcDccN51HKA/XTKaG1FAv65a7uukawSzvbXnFfDQvHdOvzAHnl94Wnxd +XhHFeCJC14pwIJsjrtu6URFvvvFcySDt3RfQMqKriKd5C+uFRTnwhfJ7VNZa +EWfdNAluMQ5Um9hGM5wUUXHvyalo0tG7LvJ5eisitULH8zNpnhId9az9ith1 +o5PdKM6BzkdxDdUxiuhU13ydJsGBzI+dDl1JilhWo92ZRFphY/AB/kuKqPD6 +xk2GJAc+2RBcqlcV0aC6Lehv0pVhqxcsKxTR8kG6+3vSJnfy/znZTPYX6/jm +mBQHtr7uXplqV8Tg3qSeBtKOXGu2+b1SRFb3jVPLpL3UGJn/Dini4fOXvxlQ +OBDosv8NfFLEcj5zgf2k9x+/Rq+ZUsQpxeiRUtIxZQN/UZfI8aTIH+wlbX2c +Fp/wJxU1fB1btKQ58Gx94zVjQSpaRhefdiftVObRPi1MxQzdHzyxpPuNZyZu +ilGxIVHTvJC0T1eqSACFihe1DVh1pEcCVA2l5akYNDi71EN678JD75c0Ktot +Oh0ZJz1+3if+nCoVb74w4KySjlRcuGauQcXE5DTOBhkOzHMy239qU/EVPx5V +IB1rozHJ1qfiMpW5uok0139PRMIYVJQMiXDQIZ180N+QbkZFX+tHfvqkBXl/ +eQ9aUPHcLxUTA9KZBbnxWduoqJVz/q0eaQltnTI7ByqKTQ1v0yJd0NrZzu1M +xeu1YnHKpBW9gifr3akIYTJxFNJlE6sih72pmOv6yUaAtHpigaGGHxXXpYa8 +XyDfv1rCwOdjIBVpCznb3pPWv/1vfGEoFWut95xoJ11vFlbmGkHFhOXHCZWk +oWdNx9pDVNzpzXFPJ/04pHiyNZqKV44p/w4jbfubIXriOBVzDDYcsSLdndlr +qJ9AxTr9A4/kSLupHPCZOE1FzTGTD9Pk+r2pE0goO0fFpYSIgUekfR3LynZl +UPE0D/f1v0mPfjDrEM+m4rDenI036am1UaLJl6n45NyozBi5fw6XCBuxrlJR +SGrY7gbpJf1bPvPXqbhNVtMjmDSP73BZcDUVs5oecw+Q+5NSY2Nk3ULFxT3r +Xlwi93fR1o8+/2ujYjmrcwFI09/EJdQ+I9eveJLrE1kfWtycDtU+KoYz41tV +SFu4ye/i+0JF66V8hSSy/p5+uZfQPEFFxSXnOBHSDnEu14/OkPNLJZ4WkfXq +WX526vMyFQsy8pWqNnAgfGkmoX0dDcNLD0vcIOvd5OBeyTFRGm4qs98mSpr/ +22AFD4WGT+TejR4j8+H6UGu/GZ2GBqm3Qs3IPBluytW8a0jD32+l6y6TeVNp +JNjyypSGVtbiB8b/P49qTnpOIw0jjZ4UGpKWLA1J0rCnYaj+oG8LmWc7khkD +V/1oOG0+Q1TzkPX9v6qI5iAa9v2qs/rATeZbNJ3nv300POka6S1COiV07WZK +FA0dO1zWB5P5+ND+v1MZKTSMKhrq/kDmp55oovZxNg0v5Np/Np4ngCt1/nFe +LQ0d6AJW+mQ+d/OEedc20LA6rttUc5aAv+Zdkmee0NDSx31ZhMz3sgHloZBB +Gm7NaR39Z4I8r4vbz7jx0Mn95vpg50cCfmpsGNZyp+OQVS1FvZuAhSKZxC3e +dFR7scxseU7A3HoVZYYfHeUX79l4PiNgapYRtnUfHR0S0uVi2snzsyFwwTuO +jj+Fg97ltBDQaX9POOU6HQNTX9KYtQQU/OULH+bpKOY7ZeJQSMCl/0I/fF6m +o7KSuunpfAJydhxOnlylo1dfvmvdJQIytqQ8WxJQQpE01x6ZHAKSfrE91yso +IVisMWlII8eX+mck01oJu7/cXXM4jgBmRWXJxYtKSJ7llR27CBiiVhRbFSrh +5yuh1557ExB78daVuWIlDBUIhC4v8vxKLL/scksJBVVCw5+6kfPrVZIn3KiE +M4H5zcUOBKj9mZN55r0SRup0HXpvSs6X3/GEaE1lbEi7vZugEDAjaufv0aKM +vKO3K/uesWEgnP4i7KkyNtnvPCbRwYaHbcsQ/1wZE55dHXNpI78HYysUb/Yr +43w+7+22h2zQ+SD07uc3ZbTydfkz6y4b9rP/3V0kpoLaMUZ5dVfY8G2Hu89o +kAoe+8KX6kV+T46m+Xsc4lPFrqNyS8aCbLD9ftT2k+FGXE0f5w5j1MBEIP/h +f+I3oWlVVUXjyTvk/4gU99kWNdzHd1le6GAliHapZtR8V8eiD1qCK4dug1xK +tZOhoSb2ZH4a+wk3IU+DsUEsRAutz2hYh+iVQ6eMucHshc0opZvsJ2hUBiZy +LZna/dqoa6S28J5aCsI8pVEBSTq4paZiNsSyBBQSFZk7VXWxyk9ouYVzGQRU +dtW6PNXF4ymTfzTr5cNmlnT10d16yLOS1vlV4yIcGhZttePagjkg1NWrlg3f +Z9PcbfO24KOZRdnyokzYpt1WYKulj6kKxmbO99Ogadb012K3PqoUW3y6sDMF +9mvqDb4MNkDb0m9OAU2ngTUV1LtTwBC38Ggc3uScCFbKlO3rSg3R7atO2T6x +ONiUcD6mxcgIF0cv/hGxMwbUgxnNKoNGeCqoVr5o7jAEN4We/uegMQ7CkMLj +mEiYivh21CrKGPsME+xGwiIhRj78r/5oY+S/trSLd3cknD9xwGXpuDH63POj +RZpHQo1JNJV5xhgLJFVy6wQj4XftqcbWAmOUXN6gDmYHIKv6ytyrVmPcfdBC +beOVCGgu6Q2akWCgW6xS/1JOGIw40PyiKQz80RSlACfDgOtnxM5fMgz8vTDB +ezEkDCyc+Rz/pDLw1P13WUdMwqDtDxMjaXUGOi+yLiyP7IPne4oFzM0Y+KHr +O4+47j4YVA67k7mXgbrbc7W2/hcCczdXF7XvMbBz05pfRYHBMOZhXXKujoFr +RQxm+FyCYWBNus3HBgZ2X60LPYnB0OAvk3/xIQPPiRU1Z8oHQxLFwGSlg4FN +0SE2dgNBsCEl7ETnW/J5pm63BZ2CQDOkjyuY2wQzZYPsMm0CIVClQqBguwmu +iZWO2bIrAGKf+IapOpmgxbmN9fYOAZAZLPqMcCHvVxdzIpkB0Hj9WNozTxN8 +XDtbMSIXAOKqNutXAkzwd+XEc89hf2hT/STuH22CeySM2IWB/qC+SZGqWmyC +hQt3j52a8oUZ9WxDYtoEvV+1lRQn+cDAc7QSmzXBznNWQiFhPvBw/5Rr1LwJ +PvhhzTJ38YEMwvag4bIJcr0eadai+4C6CVdlPY8pFj9fWfrU4g17bCNorZKm +eMHLb6Cdzxt6Q7YJ9TJNsWMgw5a32Avul/16P59iirGtQcsjXB5gaBm1aJdq +iu/pkTl7Jt3h7vsJoZJ0U6x2XD05+8YdCIVhI7ssUxzQ2SNvyXGHyryH6VcK +TZH/lNvevL3uUJKWzNh2xxT72t0Oir5wg3NR6y/k9Zgi9dejG6tVruC9VQlN +FZh4pMj2y41sZ1jp5RdupTLRqte11SPJGUqCp4bslJiYrCD7RvygM4ydqTvq +vYmJDoX7zzY5OsOhjh3Vx/SYGO0UTrQJOsN5xxMK962Z+IZRHFmS7AT1Xn2/ +9Q8wke/W/iteQjtANuJs3eaHTDwb8ESsxN8eMlb3GqS2MJExkmjbYW0P3FnW +7M+PmTjr6hXKr2UP32r/vFXSwcSyxhha+087qOc6nSfaw8T0DSmP7XPswDsn +4ejCJybuOBHA49FlC3kNxwya1rIwd1f8qMAOG5AQDGdv92Sh0q4u0ZvpVlBm +GRc7vZOF29lJ+0KjrUAvLsMyexcL1z9LDwU/K3CcrukbCGChs+ucqK6uFZzp +n/8ZGM7CY8QqN61/KyyVxlvEJrJQrEa9k668FQZNs3vKK1jos3f7Hs0XFhB6 +pOyy7R0WhjfW/V3UYAELd+4GT9SwcMSeRVG6YQGi9IFF3VoW3nRSmws7aQH2 +/PJyDx6y8FL7lclxLQto7C0P6ulj4d2NPs3XMs3BTvi+VvQAC/vCdGNc4sxh +YFvHAmWIhbfV6DHiYeYwVz+e4jvCwvnmZYFXluagdVWn6us3Fh53rS/RXUJo +HDSPTpskfdTiQcwnBDtxV9CeZiFFMazw1SuEvWePvIyaZ6HjowbvpiqEuYdn +CqSWWNggJiHrVIiQtHwpsH6ZhUkZ4T5zKQgb9G9p7l5h4Vvjo2srohGuRNTP +r66yULd7XiYqCOH/ACmycIo= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "PlotRange" -> {{0, 30}, {0., 0.07461865110052036}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7439,19 +7006,19 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "PlotRange" -> {{0, 30}, {0., 0.07461865110052036}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7465,330 +7032,130 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR -X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 -PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s -UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ -x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz -61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv -t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ -EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx -Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 -owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 -9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO -hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR -7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo -RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj -aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz -mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am -pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW -o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK -CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf -6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC -/emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m -5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd -V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ -+65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 -41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR -7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c -FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K -qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq -EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J -iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB -ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 -cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj -uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee -SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU -W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo -vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb -UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz -/lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO -auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS -fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB -J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX -CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb -VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe -pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ -L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ -I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu -GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ -/Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs -j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl -/5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 -ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW -YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH -wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX -BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 -r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss -K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw -dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 -4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 -hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR -4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr -KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk -QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu -CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj -WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn -90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN -2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 -W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga -OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA -8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ -hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h -WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 -bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv -yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV -t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 -K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa -34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK -YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY -X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 -ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX -jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo -a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH -czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa -mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 -NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E -G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ -ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 -SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 -iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR -C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL -0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 -oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md -f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX -62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b -osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH -D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ -/RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp -B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ -Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc -yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc -ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr -JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo -85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq -j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo -AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw -GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi -6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y -B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck -+xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh -uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF -MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK -RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG -FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX -cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj -zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ -mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC -bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN -/WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 -9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l -NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 -8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 -CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA -sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw -FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi -CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj -s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh -OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ -cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O -fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 -8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E -1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU -WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J -XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw -vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV -GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd -KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 -nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu -cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 -yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 -VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P -OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV -HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq -Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 -t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv -pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG -iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V -YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 -fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq -6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 -hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl -t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 -6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp -wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK -rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU -0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O -0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ -H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv -DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE -LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 -NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN -cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB -/jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO -G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M -r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK -4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz -ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa -TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA -1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E -A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ -/UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO -yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY -ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ -CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G -pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 -ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz -KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q -/DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG -invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS -hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV -L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm -1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c -J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx -uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C -Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 -T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP -59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK -DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB -XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB -Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf -VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw -iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n -LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 -BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z -f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC -e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs -6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL -hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd -4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 -cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui -BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU -zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk -ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP -Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd -k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R -PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 -CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj -jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf -vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo -WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN -UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t -0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ -6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe -wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph -whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS -4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r -UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 -+j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P -ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP -O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP -KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw -bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC -ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf -jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS -cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F -3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL -Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 -gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 -/iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l -u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd -PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv -50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 -zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p -HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb -u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr -DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu -xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M -H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W -7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 -GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A -87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp -WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv -tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT -5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 -pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz -yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f -eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa -8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H -vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F -+lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m -Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 -+a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg -y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR -Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 -0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU -F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT -rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c -OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 -R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER -lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g -JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ -fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu -YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ -mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS -F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 -8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz -ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC -9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M -zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD -sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf -Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW -OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV -7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H -vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O -mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 -5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf -X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX -ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh -Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL -IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT -PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc -9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz -uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 -tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU -BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey -Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s -fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs -2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l -thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw -GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s -6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv -/7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq -N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE -43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC -gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr -t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ -MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU -0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q -UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO -2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 -Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 -rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A -b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn -7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi -qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw -18hpWOkpIP0PtXjCHw== +1:eJwV13k4VevbB3CHjikp8zbvvQ1lypBps7f7RmRKZqIMIXIolSQlQyllODKU +IZGkAbHXPilDFCUUpzIkOlJJgyEypvy86/1rXZ9rXc+z1jPc32ct2p4DLsHc +XFxcun9wcf3/dWG447FyaplZsGmdhcOYpVnvFcox84EkECkw6xMwpwNK/LuH +MpAFB2vXNr5DPYh2uv2aZ6AU7k2GX2tBCxCZksr6+ZqAU8qun7PRBd41Oh6Y +e90CLfOqXb9gD1grf/tv5vUrUIsf/13JOgQ/XxvlTr/+AJsn4zzi9JOg1fJG +2cvSWZCJjtcQ7c4CuXd1Y3s0V4BJ/WqfkVEI4uF+t/ksedB9vL/08NBVyNK1 +bnB050fG3582Cy5fhzd5Og9nNqzD4yETlsdib0FqWfy/3NIiGK7s9vbqQCXY +6e8TlVASwauSXNJfRyuB/7GL+0YtEVTpu96xaaYSTn9UGbI3F8G/T96LuyBQ +BSfoz8dy9omgW3jeDJ9JFewvofxPtV4E78ezKGfzq8D5MlvT3kcUNQSj0ptd +7oBUzsdz2UViqHpx0buqqhooGndPL5WL4XMlPk2ne9Ug03ImfneNGFKmdXgm +HlaDwrTakY2tYrj3qmSzcG81qDhE+jd8EcNtopkOXMvVsGXNiuHHLeLYHzXs +b0uvgR1RkqN6neLouF19yDCsBpzWfhm+1COOt8+XXLq0vwZcSuve/H4rjjvu +XW6bO1QDHi92/dv2XRy1FsNiy47XwG7Na/XeEhKoUZOk9SatBv4a1b6Q5C+B +U0kf9166UwNn3WzNXi1IIMNjKivoew3I/NMtw/2HJB7YulBwY7YG7oi5Lequ +lcSxJanQscUa6H/lW3NBURKry82dPLnYoOwcRXe2kUTa0ANHXhE2tGwv5n2R +L4n7vp5pytNlw4r1fHcXUwrPWobnph9gQ2Z5bMWKtRR+fR3OsTlMtuflStFy +lkK73fkZq9FscHgiaJ4eLIUyMePH/U+yocCSynHIkMJ/xvm0v6exwRjtLz17 +J4VSsm7v4RYbDjOu+nUkUbBbIJF6Z5gNdiXCc/ZpFNway4m7/Z4NdL4TKd25 +FIzwZSldG2XDi14Pds9NCvrL5m47940NmyOFeIa7Kbibx25x0wIbvpQfLf8h +I43jFtm8tUIE7BJ3nJTlSONStvtjPiMCthxvSLzSKI15zLGAdAYBgh82SdLa +pFFQWNZhPZOAumoeUH0jjW1W2/n4zQmQtK/L1FmVRt4ncopddgS8SFTWt7KX +wTiZcsHy3QRs/b4cu/+jDK7N8WjJSSDgmE2O+qMJGXQx2yZfkETAnatag2IL +MqjfcOFH4WkCKG7+jDp+WRSkZK/LTSFg4v6TRZ7NstjzU3b97kwCspMyo/Jj +ZHGwOiJrazEB7UNqyhOJsph50aVJ5CoBv/Vbe8xSZbFwOiVsqJSAvZ/n9UaL +ZDGKK90qqJwAEwefmc2tsvjAs1TEoYqADxKq+x+vk8Pk6ok9UfUESB1olpeS +kkP1Os2nAo0EOLR7de2jyuGOTa1E4QMCamNTNddvkcOpogHa3YcEnH83/W2n +lxxaflOOaGojQO9WQ8j3UjmsDcncqPGKgBBudymLSjkMntjCPNdDwGWfqbac +u2R7ZcbIx14CeIVpqibtcihLZAxkkDkzeOjM6OlJOdzZfyO/4S0BiUznABlj +eTR/NjQYOUaAje+VH0YW8ujRIynD/kyAcML4KXcHeTxl7+o5+YXsvzW5PNNf +Hv0+v+veOU7Afbv6cd5z8lg3tfKUe5qA+HC+OOVseRQwmBFSmiHAOsNN2KJI +Hk/qbfSAHwT0vpzSiWPLo7xo7tJfcwRMeylFz76Rx+zv7jm5SwTci43kExmV +x824RfTiTwJOXn6Qt3lKHh3qvhRkLRMgNOLZsI9bAT2S4UX8bwI2hqRxjagr +oLXc5Q/qXBzwPTJ//vlxBVyrxgp7zMsBlUsWct+SFfCR3+eVZD4Oud5/V/Fl +KuDOmfO3Lfk5EPtb7YVFmQJujDjkwhHgQO4pX4m65wr48uv8QqAQB3Zdryjv +71fAgcDccN51HKA/XTKaG1FAv65a7uukawSzvbXnFfDQvHdOvzAHnl94Wnxd +XhHFeCJC14pwIJsjrtu6URFvvvFcySDt3RfQMqKriKd5C+uFRTnwhfJ7VNZa +EWfdNAluMQ5Um9hGM5wUUXHvyalo0tG7LvJ5eisitULH8zNpnhId9az9ith1 +o5PdKM6BzkdxDdUxiuhU13ydJsGBzI+dDl1JilhWo92ZRFphY/AB/kuKqPD6 +xk2GJAc+2RBcqlcV0aC6Lehv0pVhqxcsKxTR8kG6+3vSJnfy/znZTPYX6/jm +mBQHtr7uXplqV8Tg3qSeBtKOXGu2+b1SRFb3jVPLpL3UGJn/Dini4fOXvxlQ +OBDosv8NfFLEcj5zgf2k9x+/Rq+ZUsQpxeiRUtIxZQN/UZfI8aTIH+wlbX2c +Fp/wJxU1fB1btKQ58Gx94zVjQSpaRhefdiftVObRPi1MxQzdHzyxpPuNZyZu +ilGxIVHTvJC0T1eqSACFihe1DVh1pEcCVA2l5akYNDi71EN678JD75c0Ktot +Oh0ZJz1+3if+nCoVb74w4KySjlRcuGauQcXE5DTOBhkOzHMy239qU/EVPx5V +IB1rozHJ1qfiMpW5uok0139PRMIYVJQMiXDQIZ180N+QbkZFX+tHfvqkBXl/ +eQ9aUPHcLxUTA9KZBbnxWduoqJVz/q0eaQltnTI7ByqKTQ1v0yJd0NrZzu1M +xeu1YnHKpBW9gifr3akIYTJxFNJlE6sih72pmOv6yUaAtHpigaGGHxXXpYa8 +XyDfv1rCwOdjIBVpCznb3pPWv/1vfGEoFWut95xoJ11vFlbmGkHFhOXHCZWk +oWdNx9pDVNzpzXFPJ/04pHiyNZqKV44p/w4jbfubIXriOBVzDDYcsSLdndlr +qJ9AxTr9A4/kSLupHPCZOE1FzTGTD9Pk+r2pE0goO0fFpYSIgUekfR3LynZl +UPE0D/f1v0mPfjDrEM+m4rDenI036am1UaLJl6n45NyozBi5fw6XCBuxrlJR +SGrY7gbpJf1bPvPXqbhNVtMjmDSP73BZcDUVs5oecw+Q+5NSY2Nk3ULFxT3r +Xlwi93fR1o8+/2ujYjmrcwFI09/EJdQ+I9eveJLrE1kfWtycDtU+KoYz41tV +SFu4ye/i+0JF66V8hSSy/p5+uZfQPEFFxSXnOBHSDnEu14/OkPNLJZ4WkfXq +WX526vMyFQsy8pWqNnAgfGkmoX0dDcNLD0vcIOvd5OBeyTFRGm4qs98mSpr/ +22AFD4WGT+TejR4j8+H6UGu/GZ2GBqm3Qs3IPBluytW8a0jD32+l6y6TeVNp +JNjyypSGVtbiB8b/P49qTnpOIw0jjZ4UGpKWLA1J0rCnYaj+oG8LmWc7khkD +V/1oOG0+Q1TzkPX9v6qI5iAa9v2qs/rATeZbNJ3nv300POka6S1COiV07WZK +FA0dO1zWB5P5+ND+v1MZKTSMKhrq/kDmp55oovZxNg0v5Np/Np4ngCt1/nFe +LQ0d6AJW+mQ+d/OEedc20LA6rttUc5aAv+Zdkmee0NDSx31ZhMz3sgHloZBB +Gm7NaR39Z4I8r4vbz7jx0Mn95vpg50cCfmpsGNZyp+OQVS1FvZuAhSKZxC3e +dFR7scxseU7A3HoVZYYfHeUX79l4PiNgapYRtnUfHR0S0uVi2snzsyFwwTuO +jj+Fg97ltBDQaX9POOU6HQNTX9KYtQQU/OULH+bpKOY7ZeJQSMCl/0I/fF6m +o7KSuunpfAJydhxOnlylo1dfvmvdJQIytqQ8WxJQQpE01x6ZHAKSfrE91yso +IVisMWlII8eX+mck01oJu7/cXXM4jgBmRWXJxYtKSJ7llR27CBiiVhRbFSrh +5yuh1557ExB78daVuWIlDBUIhC4v8vxKLL/scksJBVVCw5+6kfPrVZIn3KiE +M4H5zcUOBKj9mZN55r0SRup0HXpvSs6X3/GEaE1lbEi7vZugEDAjaufv0aKM +vKO3K/uesWEgnP4i7KkyNtnvPCbRwYaHbcsQ/1wZE55dHXNpI78HYysUb/Yr +43w+7+22h2zQ+SD07uc3ZbTydfkz6y4b9rP/3V0kpoLaMUZ5dVfY8G2Hu89o +kAoe+8KX6kV+T46m+Xsc4lPFrqNyS8aCbLD9ftT2k+FGXE0f5w5j1MBEIP/h +f+I3oWlVVUXjyTvk/4gU99kWNdzHd1le6GAliHapZtR8V8eiD1qCK4dug1xK +tZOhoSb2ZH4a+wk3IU+DsUEsRAutz2hYh+iVQ6eMucHshc0opZvsJ2hUBiZy +LZna/dqoa6S28J5aCsI8pVEBSTq4paZiNsSyBBQSFZk7VXWxyk9ouYVzGQRU +dtW6PNXF4ymTfzTr5cNmlnT10d16yLOS1vlV4yIcGhZttePagjkg1NWrlg3f +Z9PcbfO24KOZRdnyokzYpt1WYKulj6kKxmbO99Ogadb012K3PqoUW3y6sDMF +9mvqDb4MNkDb0m9OAU2ngTUV1LtTwBC38Ggc3uScCFbKlO3rSg3R7atO2T6x +ONiUcD6mxcgIF0cv/hGxMwbUgxnNKoNGeCqoVr5o7jAEN4We/uegMQ7CkMLj +mEiYivh21CrKGPsME+xGwiIhRj78r/5oY+S/trSLd3cknD9xwGXpuDH63POj +RZpHQo1JNJV5xhgLJFVy6wQj4XftqcbWAmOUXN6gDmYHIKv6ytyrVmPcfdBC +beOVCGgu6Q2akWCgW6xS/1JOGIw40PyiKQz80RSlACfDgOtnxM5fMgz8vTDB +ezEkDCyc+Rz/pDLw1P13WUdMwqDtDxMjaXUGOi+yLiyP7IPne4oFzM0Y+KHr +O4+47j4YVA67k7mXgbrbc7W2/hcCczdXF7XvMbBz05pfRYHBMOZhXXKujoFr +RQxm+FyCYWBNus3HBgZ2X60LPYnB0OAvk3/xIQPPiRU1Z8oHQxLFwGSlg4FN +0SE2dgNBsCEl7ETnW/J5pm63BZ2CQDOkjyuY2wQzZYPsMm0CIVClQqBguwmu +iZWO2bIrAGKf+IapOpmgxbmN9fYOAZAZLPqMcCHvVxdzIpkB0Hj9WNozTxN8 +XDtbMSIXAOKqNutXAkzwd+XEc89hf2hT/STuH22CeySM2IWB/qC+SZGqWmyC +hQt3j52a8oUZ9WxDYtoEvV+1lRQn+cDAc7QSmzXBznNWQiFhPvBw/5Rr1LwJ +PvhhzTJ38YEMwvag4bIJcr0eadai+4C6CVdlPY8pFj9fWfrU4g17bCNorZKm +eMHLb6Cdzxt6Q7YJ9TJNsWMgw5a32Avul/16P59iirGtQcsjXB5gaBm1aJdq +iu/pkTl7Jt3h7vsJoZJ0U6x2XD05+8YdCIVhI7ssUxzQ2SNvyXGHyryH6VcK +TZH/lNvevL3uUJKWzNh2xxT72t0Oir5wg3NR6y/k9Zgi9dejG6tVruC9VQlN +FZh4pMj2y41sZ1jp5RdupTLRqte11SPJGUqCp4bslJiYrCD7RvygM4ydqTvq +vYmJDoX7zzY5OsOhjh3Vx/SYGO0UTrQJOsN5xxMK962Z+IZRHFmS7AT1Xn2/ +9Q8wke/W/iteQjtANuJs3eaHTDwb8ESsxN8eMlb3GqS2MJExkmjbYW0P3FnW +7M+PmTjr6hXKr2UP32r/vFXSwcSyxhha+087qOc6nSfaw8T0DSmP7XPswDsn +4ejCJybuOBHA49FlC3kNxwya1rIwd1f8qMAOG5AQDGdv92Sh0q4u0ZvpVlBm +GRc7vZOF29lJ+0KjrUAvLsMyexcL1z9LDwU/K3CcrukbCGChs+ucqK6uFZzp +n/8ZGM7CY8QqN61/KyyVxlvEJrJQrEa9k668FQZNs3vKK1jos3f7Hs0XFhB6 +pOyy7R0WhjfW/V3UYAELd+4GT9SwcMSeRVG6YQGi9IFF3VoW3nRSmws7aQH2 +/PJyDx6y8FL7lclxLQto7C0P6ulj4d2NPs3XMs3BTvi+VvQAC/vCdGNc4sxh +YFvHAmWIhbfV6DHiYeYwVz+e4jvCwvnmZYFXluagdVWn6us3Fh53rS/RXUJo +HDSPTpskfdTiQcwnBDtxV9CeZiFFMazw1SuEvWePvIyaZ6HjowbvpiqEuYdn +CqSWWNggJiHrVIiQtHwpsH6ZhUkZ4T5zKQgb9G9p7l5h4Vvjo2srohGuRNTP +r66yULd7XiYqCOH/ACmycIo= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "PlotRange" -> {{0, 30}, {0., 0.07461865110052036}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7799,6 +7166,7 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -7826,7 +7194,8 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.17588335145564066`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07461865110052036}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -7834,11 +7203,12 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991334471589432*^9}, - CellLabel-> - "Out[252]=",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] + CellChangeTimes->{3.991334471589432*^9, 3.994257673401473*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"c77119de-b079-47ec-a02a-c1919726a8d9"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", @@ -7909,15 +7279,834 @@ Cell[BoxData[ CellFrame->{{0, 0}, {0, 0}}, CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, 3.994083339125429*^9}, - Background->RGBColor[ - 0.87, 0.94, 1],ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], + Background->RGBColor[0.87, 0.94, 1], + CellLabel->"In[94]:=",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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->{ + "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.059883}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9942576736348248`*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"f81e3ed8-4a21-4792-9025-e2e6e8f1e3c1"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"6d3700e1-f504-214a-a332-\ -f16397f0b922"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel->"In[95]:=",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VevbB3CHjikp8zbvvQ1lypBps7f7RmRKZqIMIXIolSQlQyllODKU +IZGkAbHXPilDFCUUpzIkOlJJgyEypvy86/1rXZ9rXc+z1jPc32ct2p4DLsHc +XFxcun9wcf3/dWG447FyaplZsGmdhcOYpVnvFcox84EkECkw6xMwpwNK/LuH +MpAFB2vXNr5DPYh2uv2aZ6AU7k2GX2tBCxCZksr6+ZqAU8qun7PRBd41Oh6Y +e90CLfOqXb9gD1grf/tv5vUrUIsf/13JOgQ/XxvlTr/+AJsn4zzi9JOg1fJG +2cvSWZCJjtcQ7c4CuXd1Y3s0V4BJ/WqfkVEI4uF+t/ksedB9vL/08NBVyNK1 +bnB050fG3582Cy5fhzd5Og9nNqzD4yETlsdib0FqWfy/3NIiGK7s9vbqQCXY +6e8TlVASwauSXNJfRyuB/7GL+0YtEVTpu96xaaYSTn9UGbI3F8G/T96LuyBQ +BSfoz8dy9omgW3jeDJ9JFewvofxPtV4E78ezKGfzq8D5MlvT3kcUNQSj0ptd +7oBUzsdz2UViqHpx0buqqhooGndPL5WL4XMlPk2ne9Ug03ImfneNGFKmdXgm +HlaDwrTakY2tYrj3qmSzcG81qDhE+jd8EcNtopkOXMvVsGXNiuHHLeLYHzXs +b0uvgR1RkqN6neLouF19yDCsBpzWfhm+1COOt8+XXLq0vwZcSuve/H4rjjvu +XW6bO1QDHi92/dv2XRy1FsNiy47XwG7Na/XeEhKoUZOk9SatBv4a1b6Q5C+B +U0kf9166UwNn3WzNXi1IIMNjKivoew3I/NMtw/2HJB7YulBwY7YG7oi5Lequ +lcSxJanQscUa6H/lW3NBURKry82dPLnYoOwcRXe2kUTa0ANHXhE2tGwv5n2R +L4n7vp5pytNlw4r1fHcXUwrPWobnph9gQ2Z5bMWKtRR+fR3OsTlMtuflStFy +lkK73fkZq9FscHgiaJ4eLIUyMePH/U+yocCSynHIkMJ/xvm0v6exwRjtLz17 +J4VSsm7v4RYbDjOu+nUkUbBbIJF6Z5gNdiXCc/ZpFNway4m7/Z4NdL4TKd25 +FIzwZSldG2XDi14Pds9NCvrL5m47940NmyOFeIa7Kbibx25x0wIbvpQfLf8h +I43jFtm8tUIE7BJ3nJTlSONStvtjPiMCthxvSLzSKI15zLGAdAYBgh82SdLa +pFFQWNZhPZOAumoeUH0jjW1W2/n4zQmQtK/L1FmVRt4ncopddgS8SFTWt7KX +wTiZcsHy3QRs/b4cu/+jDK7N8WjJSSDgmE2O+qMJGXQx2yZfkETAnatag2IL +MqjfcOFH4WkCKG7+jDp+WRSkZK/LTSFg4v6TRZ7NstjzU3b97kwCspMyo/Jj +ZHGwOiJrazEB7UNqyhOJsph50aVJ5CoBv/Vbe8xSZbFwOiVsqJSAvZ/n9UaL +ZDGKK90qqJwAEwefmc2tsvjAs1TEoYqADxKq+x+vk8Pk6ok9UfUESB1olpeS +kkP1Os2nAo0EOLR7de2jyuGOTa1E4QMCamNTNddvkcOpogHa3YcEnH83/W2n +lxxaflOOaGojQO9WQ8j3UjmsDcncqPGKgBBudymLSjkMntjCPNdDwGWfqbac +u2R7ZcbIx14CeIVpqibtcihLZAxkkDkzeOjM6OlJOdzZfyO/4S0BiUznABlj +eTR/NjQYOUaAje+VH0YW8ujRIynD/kyAcML4KXcHeTxl7+o5+YXsvzW5PNNf +Hv0+v+veOU7Afbv6cd5z8lg3tfKUe5qA+HC+OOVseRQwmBFSmiHAOsNN2KJI +Hk/qbfSAHwT0vpzSiWPLo7xo7tJfcwRMeylFz76Rx+zv7jm5SwTci43kExmV +x824RfTiTwJOXn6Qt3lKHh3qvhRkLRMgNOLZsI9bAT2S4UX8bwI2hqRxjagr +oLXc5Q/qXBzwPTJ//vlxBVyrxgp7zMsBlUsWct+SFfCR3+eVZD4Oud5/V/Fl +KuDOmfO3Lfk5EPtb7YVFmQJujDjkwhHgQO4pX4m65wr48uv8QqAQB3Zdryjv +71fAgcDccN51HKA/XTKaG1FAv65a7uukawSzvbXnFfDQvHdOvzAHnl94Wnxd +XhHFeCJC14pwIJsjrtu6URFvvvFcySDt3RfQMqKriKd5C+uFRTnwhfJ7VNZa +EWfdNAluMQ5Um9hGM5wUUXHvyalo0tG7LvJ5eisitULH8zNpnhId9az9ith1 +o5PdKM6BzkdxDdUxiuhU13ydJsGBzI+dDl1JilhWo92ZRFphY/AB/kuKqPD6 +xk2GJAc+2RBcqlcV0aC6Lehv0pVhqxcsKxTR8kG6+3vSJnfy/znZTPYX6/jm +mBQHtr7uXplqV8Tg3qSeBtKOXGu2+b1SRFb3jVPLpL3UGJn/Dini4fOXvxlQ +OBDosv8NfFLEcj5zgf2k9x+/Rq+ZUsQpxeiRUtIxZQN/UZfI8aTIH+wlbX2c +Fp/wJxU1fB1btKQ58Gx94zVjQSpaRhefdiftVObRPi1MxQzdHzyxpPuNZyZu +ilGxIVHTvJC0T1eqSACFihe1DVh1pEcCVA2l5akYNDi71EN678JD75c0Ktot +Oh0ZJz1+3if+nCoVb74w4KySjlRcuGauQcXE5DTOBhkOzHMy239qU/EVPx5V +IB1rozHJ1qfiMpW5uok0139PRMIYVJQMiXDQIZ180N+QbkZFX+tHfvqkBXl/ +eQ9aUPHcLxUTA9KZBbnxWduoqJVz/q0eaQltnTI7ByqKTQ1v0yJd0NrZzu1M +xeu1YnHKpBW9gifr3akIYTJxFNJlE6sih72pmOv6yUaAtHpigaGGHxXXpYa8 +XyDfv1rCwOdjIBVpCznb3pPWv/1vfGEoFWut95xoJ11vFlbmGkHFhOXHCZWk +oWdNx9pDVNzpzXFPJ/04pHiyNZqKV44p/w4jbfubIXriOBVzDDYcsSLdndlr +qJ9AxTr9A4/kSLupHPCZOE1FzTGTD9Pk+r2pE0goO0fFpYSIgUekfR3LynZl +UPE0D/f1v0mPfjDrEM+m4rDenI036am1UaLJl6n45NyozBi5fw6XCBuxrlJR +SGrY7gbpJf1bPvPXqbhNVtMjmDSP73BZcDUVs5oecw+Q+5NSY2Nk3ULFxT3r +Xlwi93fR1o8+/2ujYjmrcwFI09/EJdQ+I9eveJLrE1kfWtycDtU+KoYz41tV +SFu4ye/i+0JF66V8hSSy/p5+uZfQPEFFxSXnOBHSDnEu14/OkPNLJZ4WkfXq +WX526vMyFQsy8pWqNnAgfGkmoX0dDcNLD0vcIOvd5OBeyTFRGm4qs98mSpr/ +22AFD4WGT+TejR4j8+H6UGu/GZ2GBqm3Qs3IPBluytW8a0jD32+l6y6TeVNp +JNjyypSGVtbiB8b/P49qTnpOIw0jjZ4UGpKWLA1J0rCnYaj+oG8LmWc7khkD +V/1oOG0+Q1TzkPX9v6qI5iAa9v2qs/rATeZbNJ3nv300POka6S1COiV07WZK +FA0dO1zWB5P5+ND+v1MZKTSMKhrq/kDmp55oovZxNg0v5Np/Np4ngCt1/nFe +LQ0d6AJW+mQ+d/OEedc20LA6rttUc5aAv+Zdkmee0NDSx31ZhMz3sgHloZBB +Gm7NaR39Z4I8r4vbz7jx0Mn95vpg50cCfmpsGNZyp+OQVS1FvZuAhSKZxC3e +dFR7scxseU7A3HoVZYYfHeUX79l4PiNgapYRtnUfHR0S0uVi2snzsyFwwTuO +jj+Fg97ltBDQaX9POOU6HQNTX9KYtQQU/OULH+bpKOY7ZeJQSMCl/0I/fF6m +o7KSuunpfAJydhxOnlylo1dfvmvdJQIytqQ8WxJQQpE01x6ZHAKSfrE91yso +IVisMWlII8eX+mck01oJu7/cXXM4jgBmRWXJxYtKSJ7llR27CBiiVhRbFSrh +5yuh1557ExB78daVuWIlDBUIhC4v8vxKLL/scksJBVVCw5+6kfPrVZIn3KiE +M4H5zcUOBKj9mZN55r0SRup0HXpvSs6X3/GEaE1lbEi7vZugEDAjaufv0aKM +vKO3K/uesWEgnP4i7KkyNtnvPCbRwYaHbcsQ/1wZE55dHXNpI78HYysUb/Yr +43w+7+22h2zQ+SD07uc3ZbTydfkz6y4b9rP/3V0kpoLaMUZ5dVfY8G2Hu89o +kAoe+8KX6kV+T46m+Xsc4lPFrqNyS8aCbLD9ftT2k+FGXE0f5w5j1MBEIP/h +f+I3oWlVVUXjyTvk/4gU99kWNdzHd1le6GAliHapZtR8V8eiD1qCK4dug1xK +tZOhoSb2ZH4a+wk3IU+DsUEsRAutz2hYh+iVQ6eMucHshc0opZvsJ2hUBiZy +LZna/dqoa6S28J5aCsI8pVEBSTq4paZiNsSyBBQSFZk7VXWxyk9ouYVzGQRU +dtW6PNXF4ymTfzTr5cNmlnT10d16yLOS1vlV4yIcGhZttePagjkg1NWrlg3f +Z9PcbfO24KOZRdnyokzYpt1WYKulj6kKxmbO99Ogadb012K3PqoUW3y6sDMF +9mvqDb4MNkDb0m9OAU2ngTUV1LtTwBC38Ggc3uScCFbKlO3rSg3R7atO2T6x +ONiUcD6mxcgIF0cv/hGxMwbUgxnNKoNGeCqoVr5o7jAEN4We/uegMQ7CkMLj +mEiYivh21CrKGPsME+xGwiIhRj78r/5oY+S/trSLd3cknD9xwGXpuDH63POj +RZpHQo1JNJV5xhgLJFVy6wQj4XftqcbWAmOUXN6gDmYHIKv6ytyrVmPcfdBC +beOVCGgu6Q2akWCgW6xS/1JOGIw40PyiKQz80RSlACfDgOtnxM5fMgz8vTDB +ezEkDCyc+Rz/pDLw1P13WUdMwqDtDxMjaXUGOi+yLiyP7IPne4oFzM0Y+KHr +O4+47j4YVA67k7mXgbrbc7W2/hcCczdXF7XvMbBz05pfRYHBMOZhXXKujoFr +RQxm+FyCYWBNus3HBgZ2X60LPYnB0OAvk3/xIQPPiRU1Z8oHQxLFwGSlg4FN +0SE2dgNBsCEl7ETnW/J5pm63BZ2CQDOkjyuY2wQzZYPsMm0CIVClQqBguwmu +iZWO2bIrAGKf+IapOpmgxbmN9fYOAZAZLPqMcCHvVxdzIpkB0Hj9WNozTxN8 +XDtbMSIXAOKqNutXAkzwd+XEc89hf2hT/STuH22CeySM2IWB/qC+SZGqWmyC +hQt3j52a8oUZ9WxDYtoEvV+1lRQn+cDAc7QSmzXBznNWQiFhPvBw/5Rr1LwJ +PvhhzTJ38YEMwvag4bIJcr0eadai+4C6CVdlPY8pFj9fWfrU4g17bCNorZKm +eMHLb6Cdzxt6Q7YJ9TJNsWMgw5a32Avul/16P59iirGtQcsjXB5gaBm1aJdq +iu/pkTl7Jt3h7vsJoZJ0U6x2XD05+8YdCIVhI7ssUxzQ2SNvyXGHyryH6VcK +TZH/lNvevL3uUJKWzNh2xxT72t0Oir5wg3NR6y/k9Zgi9dejG6tVruC9VQlN +FZh4pMj2y41sZ1jp5RdupTLRqte11SPJGUqCp4bslJiYrCD7RvygM4ydqTvq +vYmJDoX7zzY5OsOhjh3Vx/SYGO0UTrQJOsN5xxMK962Z+IZRHFmS7AT1Xn2/ +9Q8wke/W/iteQjtANuJs3eaHTDwb8ESsxN8eMlb3GqS2MJExkmjbYW0P3FnW +7M+PmTjr6hXKr2UP32r/vFXSwcSyxhha+087qOc6nSfaw8T0DSmP7XPswDsn +4ejCJybuOBHA49FlC3kNxwya1rIwd1f8qMAOG5AQDGdv92Sh0q4u0ZvpVlBm +GRc7vZOF29lJ+0KjrUAvLsMyexcL1z9LDwU/K3CcrukbCGChs+ucqK6uFZzp +n/8ZGM7CY8QqN61/KyyVxlvEJrJQrEa9k668FQZNs3vKK1jos3f7Hs0XFhB6 +pOyy7R0WhjfW/V3UYAELd+4GT9SwcMSeRVG6YQGi9IFF3VoW3nRSmws7aQH2 +/PJyDx6y8FL7lclxLQto7C0P6ulj4d2NPs3XMs3BTvi+VvQAC/vCdGNc4sxh +YFvHAmWIhbfV6DHiYeYwVz+e4jvCwvnmZYFXluagdVWn6us3Fh53rS/RXUJo +HDSPTpskfdTiQcwnBDtxV9CeZiFFMazw1SuEvWePvIyaZ6HjowbvpiqEuYdn +CqSWWNggJiHrVIiQtHwpsH6ZhUkZ4T5zKQgb9G9p7l5h4Vvjo2srohGuRNTP +r66yULd7XiYqCOH/ACmycIo= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VevbB3CHjikp8zbvvQ1lypBps7f7RmRKZqIMIXIolSQlQyllODKU +IZGkAbHXPilDFCUUpzIkOlJJgyEypvy86/1rXZ9rXc+z1jPc32ct2p4DLsHc +XFxcun9wcf3/dWG447FyaplZsGmdhcOYpVnvFcox84EkECkw6xMwpwNK/LuH +MpAFB2vXNr5DPYh2uv2aZ6AU7k2GX2tBCxCZksr6+ZqAU8qun7PRBd41Oh6Y +e90CLfOqXb9gD1grf/tv5vUrUIsf/13JOgQ/XxvlTr/+AJsn4zzi9JOg1fJG +2cvSWZCJjtcQ7c4CuXd1Y3s0V4BJ/WqfkVEI4uF+t/ksedB9vL/08NBVyNK1 +bnB050fG3582Cy5fhzd5Og9nNqzD4yETlsdib0FqWfy/3NIiGK7s9vbqQCXY +6e8TlVASwauSXNJfRyuB/7GL+0YtEVTpu96xaaYSTn9UGbI3F8G/T96LuyBQ +BSfoz8dy9omgW3jeDJ9JFewvofxPtV4E78ezKGfzq8D5MlvT3kcUNQSj0ptd +7oBUzsdz2UViqHpx0buqqhooGndPL5WL4XMlPk2ne9Ug03ImfneNGFKmdXgm +HlaDwrTakY2tYrj3qmSzcG81qDhE+jd8EcNtopkOXMvVsGXNiuHHLeLYHzXs +b0uvgR1RkqN6neLouF19yDCsBpzWfhm+1COOt8+XXLq0vwZcSuve/H4rjjvu +XW6bO1QDHi92/dv2XRy1FsNiy47XwG7Na/XeEhKoUZOk9SatBv4a1b6Q5C+B +U0kf9166UwNn3WzNXi1IIMNjKivoew3I/NMtw/2HJB7YulBwY7YG7oi5Lequ +lcSxJanQscUa6H/lW3NBURKry82dPLnYoOwcRXe2kUTa0ANHXhE2tGwv5n2R +L4n7vp5pytNlw4r1fHcXUwrPWobnph9gQ2Z5bMWKtRR+fR3OsTlMtuflStFy +lkK73fkZq9FscHgiaJ4eLIUyMePH/U+yocCSynHIkMJ/xvm0v6exwRjtLz17 +J4VSsm7v4RYbDjOu+nUkUbBbIJF6Z5gNdiXCc/ZpFNway4m7/Z4NdL4TKd25 +FIzwZSldG2XDi14Pds9NCvrL5m47940NmyOFeIa7Kbibx25x0wIbvpQfLf8h +I43jFtm8tUIE7BJ3nJTlSONStvtjPiMCthxvSLzSKI15zLGAdAYBgh82SdLa +pFFQWNZhPZOAumoeUH0jjW1W2/n4zQmQtK/L1FmVRt4ncopddgS8SFTWt7KX +wTiZcsHy3QRs/b4cu/+jDK7N8WjJSSDgmE2O+qMJGXQx2yZfkETAnatag2IL +MqjfcOFH4WkCKG7+jDp+WRSkZK/LTSFg4v6TRZ7NstjzU3b97kwCspMyo/Jj +ZHGwOiJrazEB7UNqyhOJsph50aVJ5CoBv/Vbe8xSZbFwOiVsqJSAvZ/n9UaL +ZDGKK90qqJwAEwefmc2tsvjAs1TEoYqADxKq+x+vk8Pk6ok9UfUESB1olpeS +kkP1Os2nAo0EOLR7de2jyuGOTa1E4QMCamNTNddvkcOpogHa3YcEnH83/W2n +lxxaflOOaGojQO9WQ8j3UjmsDcncqPGKgBBudymLSjkMntjCPNdDwGWfqbac +u2R7ZcbIx14CeIVpqibtcihLZAxkkDkzeOjM6OlJOdzZfyO/4S0BiUznABlj +eTR/NjQYOUaAje+VH0YW8ujRIynD/kyAcML4KXcHeTxl7+o5+YXsvzW5PNNf +Hv0+v+veOU7Afbv6cd5z8lg3tfKUe5qA+HC+OOVseRQwmBFSmiHAOsNN2KJI +Hk/qbfSAHwT0vpzSiWPLo7xo7tJfcwRMeylFz76Rx+zv7jm5SwTci43kExmV +x824RfTiTwJOXn6Qt3lKHh3qvhRkLRMgNOLZsI9bAT2S4UX8bwI2hqRxjagr +oLXc5Q/qXBzwPTJ//vlxBVyrxgp7zMsBlUsWct+SFfCR3+eVZD4Oud5/V/Fl +KuDOmfO3Lfk5EPtb7YVFmQJujDjkwhHgQO4pX4m65wr48uv8QqAQB3Zdryjv +71fAgcDccN51HKA/XTKaG1FAv65a7uukawSzvbXnFfDQvHdOvzAHnl94Wnxd +XhHFeCJC14pwIJsjrtu6URFvvvFcySDt3RfQMqKriKd5C+uFRTnwhfJ7VNZa +EWfdNAluMQ5Um9hGM5wUUXHvyalo0tG7LvJ5eisitULH8zNpnhId9az9ith1 +o5PdKM6BzkdxDdUxiuhU13ydJsGBzI+dDl1JilhWo92ZRFphY/AB/kuKqPD6 +xk2GJAc+2RBcqlcV0aC6Lehv0pVhqxcsKxTR8kG6+3vSJnfy/znZTPYX6/jm +mBQHtr7uXplqV8Tg3qSeBtKOXGu2+b1SRFb3jVPLpL3UGJn/Dini4fOXvxlQ +OBDosv8NfFLEcj5zgf2k9x+/Rq+ZUsQpxeiRUtIxZQN/UZfI8aTIH+wlbX2c +Fp/wJxU1fB1btKQ58Gx94zVjQSpaRhefdiftVObRPi1MxQzdHzyxpPuNZyZu +ilGxIVHTvJC0T1eqSACFihe1DVh1pEcCVA2l5akYNDi71EN678JD75c0Ktot +Oh0ZJz1+3if+nCoVb74w4KySjlRcuGauQcXE5DTOBhkOzHMy239qU/EVPx5V +IB1rozHJ1qfiMpW5uok0139PRMIYVJQMiXDQIZ180N+QbkZFX+tHfvqkBXl/ +eQ9aUPHcLxUTA9KZBbnxWduoqJVz/q0eaQltnTI7ByqKTQ1v0yJd0NrZzu1M +xeu1YnHKpBW9gifr3akIYTJxFNJlE6sih72pmOv6yUaAtHpigaGGHxXXpYa8 +XyDfv1rCwOdjIBVpCznb3pPWv/1vfGEoFWut95xoJ11vFlbmGkHFhOXHCZWk +oWdNx9pDVNzpzXFPJ/04pHiyNZqKV44p/w4jbfubIXriOBVzDDYcsSLdndlr +qJ9AxTr9A4/kSLupHPCZOE1FzTGTD9Pk+r2pE0goO0fFpYSIgUekfR3LynZl +UPE0D/f1v0mPfjDrEM+m4rDenI036am1UaLJl6n45NyozBi5fw6XCBuxrlJR +SGrY7gbpJf1bPvPXqbhNVtMjmDSP73BZcDUVs5oecw+Q+5NSY2Nk3ULFxT3r +Xlwi93fR1o8+/2ujYjmrcwFI09/EJdQ+I9eveJLrE1kfWtycDtU+KoYz41tV +SFu4ye/i+0JF66V8hSSy/p5+uZfQPEFFxSXnOBHSDnEu14/OkPNLJZ4WkfXq +WX526vMyFQsy8pWqNnAgfGkmoX0dDcNLD0vcIOvd5OBeyTFRGm4qs98mSpr/ +22AFD4WGT+TejR4j8+H6UGu/GZ2GBqm3Qs3IPBluytW8a0jD32+l6y6TeVNp +JNjyypSGVtbiB8b/P49qTnpOIw0jjZ4UGpKWLA1J0rCnYaj+oG8LmWc7khkD +V/1oOG0+Q1TzkPX9v6qI5iAa9v2qs/rATeZbNJ3nv300POka6S1COiV07WZK +FA0dO1zWB5P5+ND+v1MZKTSMKhrq/kDmp55oovZxNg0v5Np/Np4ngCt1/nFe +LQ0d6AJW+mQ+d/OEedc20LA6rttUc5aAv+Zdkmee0NDSx31ZhMz3sgHloZBB +Gm7NaR39Z4I8r4vbz7jx0Mn95vpg50cCfmpsGNZyp+OQVS1FvZuAhSKZxC3e +dFR7scxseU7A3HoVZYYfHeUX79l4PiNgapYRtnUfHR0S0uVi2snzsyFwwTuO +jj+Fg97ltBDQaX9POOU6HQNTX9KYtQQU/OULH+bpKOY7ZeJQSMCl/0I/fF6m +o7KSuunpfAJydhxOnlylo1dfvmvdJQIytqQ8WxJQQpE01x6ZHAKSfrE91yso +IVisMWlII8eX+mck01oJu7/cXXM4jgBmRWXJxYtKSJ7llR27CBiiVhRbFSrh +5yuh1557ExB78daVuWIlDBUIhC4v8vxKLL/scksJBVVCw5+6kfPrVZIn3KiE +M4H5zcUOBKj9mZN55r0SRup0HXpvSs6X3/GEaE1lbEi7vZugEDAjaufv0aKM +vKO3K/uesWEgnP4i7KkyNtnvPCbRwYaHbcsQ/1wZE55dHXNpI78HYysUb/Yr +43w+7+22h2zQ+SD07uc3ZbTydfkz6y4b9rP/3V0kpoLaMUZ5dVfY8G2Hu89o +kAoe+8KX6kV+T46m+Xsc4lPFrqNyS8aCbLD9ftT2k+FGXE0f5w5j1MBEIP/h +f+I3oWlVVUXjyTvk/4gU99kWNdzHd1le6GAliHapZtR8V8eiD1qCK4dug1xK +tZOhoSb2ZH4a+wk3IU+DsUEsRAutz2hYh+iVQ6eMucHshc0opZvsJ2hUBiZy +LZna/dqoa6S28J5aCsI8pVEBSTq4paZiNsSyBBQSFZk7VXWxyk9ouYVzGQRU +dtW6PNXF4ymTfzTr5cNmlnT10d16yLOS1vlV4yIcGhZttePagjkg1NWrlg3f +Z9PcbfO24KOZRdnyokzYpt1WYKulj6kKxmbO99Ogadb012K3PqoUW3y6sDMF +9mvqDb4MNkDb0m9OAU2ngTUV1LtTwBC38Ggc3uScCFbKlO3rSg3R7atO2T6x +ONiUcD6mxcgIF0cv/hGxMwbUgxnNKoNGeCqoVr5o7jAEN4We/uegMQ7CkMLj +mEiYivh21CrKGPsME+xGwiIhRj78r/5oY+S/trSLd3cknD9xwGXpuDH63POj +RZpHQo1JNJV5xhgLJFVy6wQj4XftqcbWAmOUXN6gDmYHIKv6ytyrVmPcfdBC +beOVCGgu6Q2akWCgW6xS/1JOGIw40PyiKQz80RSlACfDgOtnxM5fMgz8vTDB +ezEkDCyc+Rz/pDLw1P13WUdMwqDtDxMjaXUGOi+yLiyP7IPne4oFzM0Y+KHr +O4+47j4YVA67k7mXgbrbc7W2/hcCczdXF7XvMbBz05pfRYHBMOZhXXKujoFr +RQxm+FyCYWBNus3HBgZ2X60LPYnB0OAvk3/xIQPPiRU1Z8oHQxLFwGSlg4FN +0SE2dgNBsCEl7ETnW/J5pm63BZ2CQDOkjyuY2wQzZYPsMm0CIVClQqBguwmu +iZWO2bIrAGKf+IapOpmgxbmN9fYOAZAZLPqMcCHvVxdzIpkB0Hj9WNozTxN8 +XDtbMSIXAOKqNutXAkzwd+XEc89hf2hT/STuH22CeySM2IWB/qC+SZGqWmyC +hQt3j52a8oUZ9WxDYtoEvV+1lRQn+cDAc7QSmzXBznNWQiFhPvBw/5Rr1LwJ +PvhhzTJ38YEMwvag4bIJcr0eadai+4C6CVdlPY8pFj9fWfrU4g17bCNorZKm +eMHLb6Cdzxt6Q7YJ9TJNsWMgw5a32Avul/16P59iirGtQcsjXB5gaBm1aJdq +iu/pkTl7Jt3h7vsJoZJ0U6x2XD05+8YdCIVhI7ssUxzQ2SNvyXGHyryH6VcK +TZH/lNvevL3uUJKWzNh2xxT72t0Oir5wg3NR6y/k9Zgi9dejG6tVruC9VQlN +FZh4pMj2y41sZ1jp5RdupTLRqte11SPJGUqCp4bslJiYrCD7RvygM4ydqTvq +vYmJDoX7zzY5OsOhjh3Vx/SYGO0UTrQJOsN5xxMK962Z+IZRHFmS7AT1Xn2/ +9Q8wke/W/iteQjtANuJs3eaHTDwb8ESsxN8eMlb3GqS2MJExkmjbYW0P3FnW +7M+PmTjr6hXKr2UP32r/vFXSwcSyxhha+087qOc6nSfaw8T0DSmP7XPswDsn +4ejCJybuOBHA49FlC3kNxwya1rIwd1f8qMAOG5AQDGdv92Sh0q4u0ZvpVlBm +GRc7vZOF29lJ+0KjrUAvLsMyexcL1z9LDwU/K3CcrukbCGChs+ucqK6uFZzp +n/8ZGM7CY8QqN61/KyyVxlvEJrJQrEa9k668FQZNs3vKK1jos3f7Hs0XFhB6 +pOyy7R0WhjfW/V3UYAELd+4GT9SwcMSeRVG6YQGi9IFF3VoW3nRSmws7aQH2 +/PJyDx6y8FL7lclxLQto7C0P6ulj4d2NPs3XMs3BTvi+VvQAC/vCdGNc4sxh +YFvHAmWIhbfV6DHiYeYwVz+e4jvCwvnmZYFXluagdVWn6us3Fh53rS/RXUJo +HDSPTpskfdTiQcwnBDtxV9CeZiFFMazw1SuEvWePvIyaZ6HjowbvpiqEuYdn +CqSWWNggJiHrVIiQtHwpsH6ZhUkZ4T5zKQgb9G9p7l5h4Vvjo2srohGuRNTP +r66yULd7XiYqCOH/ACmycIo= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07461865110052036}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07461865110052036}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VevbB3CHjikp8zbvvQ1lypBps7f7RmRKZqIMIXIolSQlQyllODKU +IZGkAbHXPilDFCUUpzIkOlJJgyEypvy86/1rXZ9rXc+z1jPc32ct2p4DLsHc +XFxcun9wcf3/dWG447FyaplZsGmdhcOYpVnvFcox84EkECkw6xMwpwNK/LuH +MpAFB2vXNr5DPYh2uv2aZ6AU7k2GX2tBCxCZksr6+ZqAU8qun7PRBd41Oh6Y +e90CLfOqXb9gD1grf/tv5vUrUIsf/13JOgQ/XxvlTr/+AJsn4zzi9JOg1fJG +2cvSWZCJjtcQ7c4CuXd1Y3s0V4BJ/WqfkVEI4uF+t/ksedB9vL/08NBVyNK1 +bnB050fG3582Cy5fhzd5Og9nNqzD4yETlsdib0FqWfy/3NIiGK7s9vbqQCXY +6e8TlVASwauSXNJfRyuB/7GL+0YtEVTpu96xaaYSTn9UGbI3F8G/T96LuyBQ +BSfoz8dy9omgW3jeDJ9JFewvofxPtV4E78ezKGfzq8D5MlvT3kcUNQSj0ptd +7oBUzsdz2UViqHpx0buqqhooGndPL5WL4XMlPk2ne9Ug03ImfneNGFKmdXgm +HlaDwrTakY2tYrj3qmSzcG81qDhE+jd8EcNtopkOXMvVsGXNiuHHLeLYHzXs +b0uvgR1RkqN6neLouF19yDCsBpzWfhm+1COOt8+XXLq0vwZcSuve/H4rjjvu +XW6bO1QDHi92/dv2XRy1FsNiy47XwG7Na/XeEhKoUZOk9SatBv4a1b6Q5C+B +U0kf9166UwNn3WzNXi1IIMNjKivoew3I/NMtw/2HJB7YulBwY7YG7oi5Lequ +lcSxJanQscUa6H/lW3NBURKry82dPLnYoOwcRXe2kUTa0ANHXhE2tGwv5n2R +L4n7vp5pytNlw4r1fHcXUwrPWobnph9gQ2Z5bMWKtRR+fR3OsTlMtuflStFy +lkK73fkZq9FscHgiaJ4eLIUyMePH/U+yocCSynHIkMJ/xvm0v6exwRjtLz17 +J4VSsm7v4RYbDjOu+nUkUbBbIJF6Z5gNdiXCc/ZpFNway4m7/Z4NdL4TKd25 +FIzwZSldG2XDi14Pds9NCvrL5m47940NmyOFeIa7Kbibx25x0wIbvpQfLf8h +I43jFtm8tUIE7BJ3nJTlSONStvtjPiMCthxvSLzSKI15zLGAdAYBgh82SdLa +pFFQWNZhPZOAumoeUH0jjW1W2/n4zQmQtK/L1FmVRt4ncopddgS8SFTWt7KX +wTiZcsHy3QRs/b4cu/+jDK7N8WjJSSDgmE2O+qMJGXQx2yZfkETAnatag2IL +MqjfcOFH4WkCKG7+jDp+WRSkZK/LTSFg4v6TRZ7NstjzU3b97kwCspMyo/Jj +ZHGwOiJrazEB7UNqyhOJsph50aVJ5CoBv/Vbe8xSZbFwOiVsqJSAvZ/n9UaL +ZDGKK90qqJwAEwefmc2tsvjAs1TEoYqADxKq+x+vk8Pk6ok9UfUESB1olpeS +kkP1Os2nAo0EOLR7de2jyuGOTa1E4QMCamNTNddvkcOpogHa3YcEnH83/W2n +lxxaflOOaGojQO9WQ8j3UjmsDcncqPGKgBBudymLSjkMntjCPNdDwGWfqbac +u2R7ZcbIx14CeIVpqibtcihLZAxkkDkzeOjM6OlJOdzZfyO/4S0BiUznABlj +eTR/NjQYOUaAje+VH0YW8ujRIynD/kyAcML4KXcHeTxl7+o5+YXsvzW5PNNf +Hv0+v+veOU7Afbv6cd5z8lg3tfKUe5qA+HC+OOVseRQwmBFSmiHAOsNN2KJI +Hk/qbfSAHwT0vpzSiWPLo7xo7tJfcwRMeylFz76Rx+zv7jm5SwTci43kExmV +x824RfTiTwJOXn6Qt3lKHh3qvhRkLRMgNOLZsI9bAT2S4UX8bwI2hqRxjagr +oLXc5Q/qXBzwPTJ//vlxBVyrxgp7zMsBlUsWct+SFfCR3+eVZD4Oud5/V/Fl +KuDOmfO3Lfk5EPtb7YVFmQJujDjkwhHgQO4pX4m65wr48uv8QqAQB3Zdryjv +71fAgcDccN51HKA/XTKaG1FAv65a7uukawSzvbXnFfDQvHdOvzAHnl94Wnxd +XhHFeCJC14pwIJsjrtu6URFvvvFcySDt3RfQMqKriKd5C+uFRTnwhfJ7VNZa +EWfdNAluMQ5Um9hGM5wUUXHvyalo0tG7LvJ5eisitULH8zNpnhId9az9ith1 +o5PdKM6BzkdxDdUxiuhU13ydJsGBzI+dDl1JilhWo92ZRFphY/AB/kuKqPD6 +xk2GJAc+2RBcqlcV0aC6Lehv0pVhqxcsKxTR8kG6+3vSJnfy/znZTPYX6/jm +mBQHtr7uXplqV8Tg3qSeBtKOXGu2+b1SRFb3jVPLpL3UGJn/Dini4fOXvxlQ +OBDosv8NfFLEcj5zgf2k9x+/Rq+ZUsQpxeiRUtIxZQN/UZfI8aTIH+wlbX2c +Fp/wJxU1fB1btKQ58Gx94zVjQSpaRhefdiftVObRPi1MxQzdHzyxpPuNZyZu +ilGxIVHTvJC0T1eqSACFihe1DVh1pEcCVA2l5akYNDi71EN678JD75c0Ktot +Oh0ZJz1+3if+nCoVb74w4KySjlRcuGauQcXE5DTOBhkOzHMy239qU/EVPx5V +IB1rozHJ1qfiMpW5uok0139PRMIYVJQMiXDQIZ180N+QbkZFX+tHfvqkBXl/ +eQ9aUPHcLxUTA9KZBbnxWduoqJVz/q0eaQltnTI7ByqKTQ1v0yJd0NrZzu1M +xeu1YnHKpBW9gifr3akIYTJxFNJlE6sih72pmOv6yUaAtHpigaGGHxXXpYa8 +XyDfv1rCwOdjIBVpCznb3pPWv/1vfGEoFWut95xoJ11vFlbmGkHFhOXHCZWk +oWdNx9pDVNzpzXFPJ/04pHiyNZqKV44p/w4jbfubIXriOBVzDDYcsSLdndlr +qJ9AxTr9A4/kSLupHPCZOE1FzTGTD9Pk+r2pE0goO0fFpYSIgUekfR3LynZl +UPE0D/f1v0mPfjDrEM+m4rDenI036am1UaLJl6n45NyozBi5fw6XCBuxrlJR +SGrY7gbpJf1bPvPXqbhNVtMjmDSP73BZcDUVs5oecw+Q+5NSY2Nk3ULFxT3r +Xlwi93fR1o8+/2ujYjmrcwFI09/EJdQ+I9eveJLrE1kfWtycDtU+KoYz41tV +SFu4ye/i+0JF66V8hSSy/p5+uZfQPEFFxSXnOBHSDnEu14/OkPNLJZ4WkfXq +WX526vMyFQsy8pWqNnAgfGkmoX0dDcNLD0vcIOvd5OBeyTFRGm4qs98mSpr/ +22AFD4WGT+TejR4j8+H6UGu/GZ2GBqm3Qs3IPBluytW8a0jD32+l6y6TeVNp +JNjyypSGVtbiB8b/P49qTnpOIw0jjZ4UGpKWLA1J0rCnYaj+oG8LmWc7khkD +V/1oOG0+Q1TzkPX9v6qI5iAa9v2qs/rATeZbNJ3nv300POka6S1COiV07WZK +FA0dO1zWB5P5+ND+v1MZKTSMKhrq/kDmp55oovZxNg0v5Np/Np4ngCt1/nFe +LQ0d6AJW+mQ+d/OEedc20LA6rttUc5aAv+Zdkmee0NDSx31ZhMz3sgHloZBB +Gm7NaR39Z4I8r4vbz7jx0Mn95vpg50cCfmpsGNZyp+OQVS1FvZuAhSKZxC3e +dFR7scxseU7A3HoVZYYfHeUX79l4PiNgapYRtnUfHR0S0uVi2snzsyFwwTuO +jj+Fg97ltBDQaX9POOU6HQNTX9KYtQQU/OULH+bpKOY7ZeJQSMCl/0I/fF6m +o7KSuunpfAJydhxOnlylo1dfvmvdJQIytqQ8WxJQQpE01x6ZHAKSfrE91yso +IVisMWlII8eX+mck01oJu7/cXXM4jgBmRWXJxYtKSJ7llR27CBiiVhRbFSrh +5yuh1557ExB78daVuWIlDBUIhC4v8vxKLL/scksJBVVCw5+6kfPrVZIn3KiE +M4H5zcUOBKj9mZN55r0SRup0HXpvSs6X3/GEaE1lbEi7vZugEDAjaufv0aKM +vKO3K/uesWEgnP4i7KkyNtnvPCbRwYaHbcsQ/1wZE55dHXNpI78HYysUb/Yr +43w+7+22h2zQ+SD07uc3ZbTydfkz6y4b9rP/3V0kpoLaMUZ5dVfY8G2Hu89o +kAoe+8KX6kV+T46m+Xsc4lPFrqNyS8aCbLD9ftT2k+FGXE0f5w5j1MBEIP/h +f+I3oWlVVUXjyTvk/4gU99kWNdzHd1le6GAliHapZtR8V8eiD1qCK4dug1xK +tZOhoSb2ZH4a+wk3IU+DsUEsRAutz2hYh+iVQ6eMucHshc0opZvsJ2hUBiZy +LZna/dqoa6S28J5aCsI8pVEBSTq4paZiNsSyBBQSFZk7VXWxyk9ouYVzGQRU +dtW6PNXF4ymTfzTr5cNmlnT10d16yLOS1vlV4yIcGhZttePagjkg1NWrlg3f +Z9PcbfO24KOZRdnyokzYpt1WYKulj6kKxmbO99Ogadb012K3PqoUW3y6sDMF +9mvqDb4MNkDb0m9OAU2ngTUV1LtTwBC38Ggc3uScCFbKlO3rSg3R7atO2T6x +ONiUcD6mxcgIF0cv/hGxMwbUgxnNKoNGeCqoVr5o7jAEN4We/uegMQ7CkMLj +mEiYivh21CrKGPsME+xGwiIhRj78r/5oY+S/trSLd3cknD9xwGXpuDH63POj +RZpHQo1JNJV5xhgLJFVy6wQj4XftqcbWAmOUXN6gDmYHIKv6ytyrVmPcfdBC +beOVCGgu6Q2akWCgW6xS/1JOGIw40PyiKQz80RSlACfDgOtnxM5fMgz8vTDB +ezEkDCyc+Rz/pDLw1P13WUdMwqDtDxMjaXUGOi+yLiyP7IPne4oFzM0Y+KHr +O4+47j4YVA67k7mXgbrbc7W2/hcCczdXF7XvMbBz05pfRYHBMOZhXXKujoFr +RQxm+FyCYWBNus3HBgZ2X60LPYnB0OAvk3/xIQPPiRU1Z8oHQxLFwGSlg4FN +0SE2dgNBsCEl7ETnW/J5pm63BZ2CQDOkjyuY2wQzZYPsMm0CIVClQqBguwmu +iZWO2bIrAGKf+IapOpmgxbmN9fYOAZAZLPqMcCHvVxdzIpkB0Hj9WNozTxN8 +XDtbMSIXAOKqNutXAkzwd+XEc89hf2hT/STuH22CeySM2IWB/qC+SZGqWmyC +hQt3j52a8oUZ9WxDYtoEvV+1lRQn+cDAc7QSmzXBznNWQiFhPvBw/5Rr1LwJ +PvhhzTJ38YEMwvag4bIJcr0eadai+4C6CVdlPY8pFj9fWfrU4g17bCNorZKm +eMHLb6Cdzxt6Q7YJ9TJNsWMgw5a32Avul/16P59iirGtQcsjXB5gaBm1aJdq +iu/pkTl7Jt3h7vsJoZJ0U6x2XD05+8YdCIVhI7ssUxzQ2SNvyXGHyryH6VcK +TZH/lNvevL3uUJKWzNh2xxT72t0Oir5wg3NR6y/k9Zgi9dejG6tVruC9VQlN +FZh4pMj2y41sZ1jp5RdupTLRqte11SPJGUqCp4bslJiYrCD7RvygM4ydqTvq +vYmJDoX7zzY5OsOhjh3Vx/SYGO0UTrQJOsN5xxMK962Z+IZRHFmS7AT1Xn2/ +9Q8wke/W/iteQjtANuJs3eaHTDwb8ESsxN8eMlb3GqS2MJExkmjbYW0P3FnW +7M+PmTjr6hXKr2UP32r/vFXSwcSyxhha+087qOc6nSfaw8T0DSmP7XPswDsn +4ejCJybuOBHA49FlC3kNxwya1rIwd1f8qMAOG5AQDGdv92Sh0q4u0ZvpVlBm +GRc7vZOF29lJ+0KjrUAvLsMyexcL1z9LDwU/K3CcrukbCGChs+ucqK6uFZzp +n/8ZGM7CY8QqN61/KyyVxlvEJrJQrEa9k668FQZNs3vKK1jos3f7Hs0XFhB6 +pOyy7R0WhjfW/V3UYAELd+4GT9SwcMSeRVG6YQGi9IFF3VoW3nRSmws7aQH2 +/PJyDx6y8FL7lclxLQto7C0P6ulj4d2NPs3XMs3BTvi+VvQAC/vCdGNc4sxh +YFvHAmWIhbfV6DHiYeYwVz+e4jvCwvnmZYFXluagdVWn6us3Fh53rS/RXUJo +HDSPTpskfdTiQcwnBDtxV9CeZiFFMazw1SuEvWePvIyaZ6HjowbvpiqEuYdn +CqSWWNggJiHrVIiQtHwpsH6ZhUkZ4T5zKQgb9G9p7l5h4Vvjo2srohGuRNTP +r66yULd7XiYqCOH/ACmycIo= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07461865110052036}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07461865110052036}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994257673676773*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"d99b3ee0-3338-4ee0-b364-c8b634384e59"] +}, Open ]], Cell[CellGroupData[{ @@ -7926,14 +8115,12 @@ Cell[BoxData[ FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.9918492800964603`*^9},ExpressionUUID->"9051a5e3-bb9f-d941-bcca-\ -598d0b6835be"], + CellChangeTimes->{3.9918492800964603`*^9}, + CellLabel->"In[96]:=",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], -Cell[BoxData["9.33220071900516`"], "Output", - CellChangeTimes->{3.991334803166374*^9}, - CellLabel-> - "Out[254]=",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +Cell[BoxData["9.980494369268655`"], "Output", + CellChangeTimes->{3.991334803166374*^9, 3.994257673726799*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"14611223-d6ca-44db-9f36-b1eeb4e13cef"] }, Open ]], Cell[CellGroupData[{ @@ -7989,191 +8176,178 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918492818821335`*^9},ExpressionUUID->"65a995ff-ff3d-634e-9bad-\ -4a8a16073236"], + CellChangeTimes->{3.9918492818821335`*^9}, + CellLabel->"In[97]:=",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.015132160320536`*^-259\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 255, 233, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133480336051*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.179370506517242`*^-251\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 97, 13, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133480336051*^9, 3.994257673865733*^9}, CellLabel-> "During evaluation of \ -In[255]:=",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], +In[97]:=",ExpressionUUID->"670b6ac8-5f1b-495c-9d7e-9201e87bafe4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.802481548114291`*^-269\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 255, 234, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991334803369583*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.597461724607092`*^-260\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 97, 14, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133480336051*^9, 3.994257673874515*^9}, CellLabel-> "During evaluation of \ -In[255]:=",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], +In[97]:=",ExpressionUUID->"fad1be5c-81c4-4e64-8f8d-bffb37ad6161"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.803946040382125`*^-279\\\", \ -\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 255, 235, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991334803378134*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.0705324634182724`*^-269\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 97, 15, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133480336051*^9, 3.9942576738828077`*^9}, CellLabel-> "During evaluation of \ -In[255]:=",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], +In[97]:=",ExpressionUUID->"7c3366a7-6080-4b30-a686-2d2efe76759e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 255, 236, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991334803386196*^9}, +during this calculation.\"", 2, 97, 16, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133480336051*^9, 3.994257673890698*^9}, CellLabel-> "During evaluation of \ -In[255]:=",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], +In[97]:=",ExpressionUUID->"233bd03a-dafa-4355-b0a3-87ec6b2d02f8"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK -ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS -Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 -ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN -7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I -q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F -Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E -8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 -BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q -oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox -nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa -eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY -UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq -kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD -Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 -ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU -NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja -6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS -TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr -/i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm -7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc -F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ -tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD -2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM -fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 -dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz -0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj -g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 -+SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI -lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk -t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi -88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH -sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 -q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E -we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ -a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK -c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 -ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV -xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib -PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki -mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs -7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 -6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao -d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT -VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 -FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c -JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm -Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E -0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti -Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX -8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp -I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj -HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 -ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff -tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy -+LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj -Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e -mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc -JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 -qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw -BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc -HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 -p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix -mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD -2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 -o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV -YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld -Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB -T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 -OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR -6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy -dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb -7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 -ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ -qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk -efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB -cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc -I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 -cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T -jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC -luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv -5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP -9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 -ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV -Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm -hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j -9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm -4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq -s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h -Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB -BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj -7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK -idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T -Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop -J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc -HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD -+0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v -+NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy -j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR -8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn -JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N -vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V -SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 -640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP -GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC -DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz -ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 -XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 -9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt -voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX -rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 -bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l -Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 -WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV -YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 -YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT -78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM -V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf -1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are -1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy -7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx -POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB -eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VV0XAHCZK5F5vpOhEpUS7nVvaxkzJRRlzBAKkZKiZCiSJKISkiIN +CvceZayESpOSEgqlNMg8FfH6zvfXeX7POfucZ++91trr0H1CHf34+fj4mAv4 ++P5/nep+1qh+qnDD6O+O2boasw3v8hQijdvjYR1rS+sHQTVA2dc+Cu1nwayn +81Ox4DqIsL/1QaD9KqTvctE4LWgKkkPyZ6c/8OD6eFu7q+AW6Km1C534UA92 +7rNjdwV8wUK9v2v0w1s4+22gXG/Bfpj+YHBu5EMvNPXflmX/iYcG0+uFLVfH +4XWz4S/fcxmg0lP13Ud7Dhq4ugcDSnJBJnjHLRFTAdzkr1yAZ6/CWV2LGjsn +UaSN5Y5mvyuCjqw1daNLl+DRV+/zfEJvwanCmNf8ipIo8NGlP+fLHbDW2y0l +qyaJam7/MqlDd0C00dFpmY4k3tznpZYzcweOf9X4aGMsia9LhHsjpUvgCOPl +98zdklhakXTtvVkJhOQr/KdZLYn1L09vFCwqAYdcrraNmxT2TJ96tsqnFOQz +v57MuCSNvyRkKq55lYHCyrvH/xZJ4z+fStd4vzJQqk+M8SiTRv37/xm7BZYB +ZWTFgWUN0uh6WaVjQXgZaNju9ar5KY03ki4qMk6UwTrBOf2v62RQ/6XCrpLb +ZbA5XO7b2ucyOJ694ObYRBnYL/7ZfaFVBj3Fnaudp8vA8WpVx+wnGSRYW+bv +zZWB8xv310+GZXAwr4gRLMwFD+2CaldZWdRSy2q4Ic+FoG+r0+O9ZNH3TJhS +EJMLJ7ZabXg7JYv7ugoaJKO4oFTerMS/QA7/KcuObj7KhRLprX90F8thZeNc +9sl4LrS99SxLp8ph+Sch3+FkLqg7hDMcLOVwfZ9E7fEcLtRvuiz85qIcTlSZ +urTVcGHOYrL5FVsePYpLu6SnuZBWFFU8ZyGPvpNCKx/NkuOF+ZJ0HORxy5o/ +Q7v5eGD7eJHxaT95tLfY03lHhAfZpjTCNlUeC7V3bpiX5YEh2lx40SOPtIjD ++k26PNjPvLLjWbwC1jbGLh/344F1vviETYoCmkkKpHTu4gFD5EhS8zkFlGTf +n70fxIM375y5rTcUsCTBXzgyjAer9ooJdDcrYIpNxYOHR3jws+hg0ZiSIjY2 +M36dOcsDdxm7QWVCEeO3Lsph1/Bg3eGauLxaRYykNwoU3efBot7lcvQniiiq +Uhm7uI4HVaUCoNmhiD9bkiqfN/JAzqYqbc28Ij5sKlmu1Ex+P05dz9xGCTP1 +A53nenhgNjwTFfJVCQ91zyd+4CMg0jJT69GAEoZmnYmt5ieg5IpOp/SUEham +mz+6KEiAwlYvZpWoMm6n/VTcJErAQOXjPwKrlFHsd4HeCQkCMuLTwi8eUsY8 +/cJDVqoENH1coT4Qp4zdymPKoxQCZvUaWjecUsaU9/+WnKMR4P9jcu23S8r4 +yNz+c4saASxbt9FVDcqovyDHlqpFQK+sZkjjEhWsndleu1CfAPnQh6ry8iq4 +iLA7FWFAgG3T9le7aSr44W4lt8eQgHtRp7Ql1qlgbvkGketGBCT3jPS7bFfB +0z0FfQuNCVh7syZg+KoKntw0/odmQ0AAv5O8yW0VfPg6MHGLLQG5bkNPMu+q +YGPBioj4TQQIi9M1WU0qeLhF/sj7zQR07kv8dnxQBR16VurZbyUgju3grWSo +ir9ztg9kuRNg6Zk3ZmCiip/M27uLPAgQj/19zMlWFWc/mOWUeZLvb0goSvNS +RemG1AMVXgRUWlf/Fj6pikFjH5+d3UlATLBItHqGKrYuKdWI8SPAInWruMkl +VTTR/OkY4E/Au5ahNdFcVQwv9dVYuYuAke1qEeMdqtgly3scG0RARdReEclv +qqi6puupTTABR3PvZ60aUkUZS+MCqT0EiH3eVrObn4IeUPkrI4SAZQEpfJ+1 +KCh9tallZxgBQ0kd6XN6FOx0VqwW30dA+S1NNWWgoJ1m87Fy0iZDdebOWygo +5Z/xcHw/AZ4HJpNfHqbgEh5jCiMI0LhgotKfQMHVEnSR5xH/j48zd0TSKFj2 +Q5B/80EComZXvDEppGDocFuV7SECjCkHvb1KKBjpMnnoMWlRbByLrqTgDZ6L +JiuSgHPHPGWrXlJwQMjXXj6KAPdrxUVtbRR8dMPkdQxpxtO/BhOfyfkkd+E3 +0mWLMlxXT1Jw0ZkmviuHCTio/fm37TwFVW95OEyT3mCnEx24kIoiYwYXNx0h +4GX608vXVKmYumCrdD/pDEJGt2EZFaNHv21cG02A63vv+s+6VPzl7nIogjT9 +T8mW/4yoaDL/8do90j8VZr8pW1BR731WyxjpUpZVBNOeikeU789qHSUgwv28 +yDZXKmraHVy+gzT76Nes8J1UdF/2x+kMaYH8NVpnQ6iYm7cnsYb080fRNaWH +qHj6h1jNV9JpX5/bvoqnIj1MdFIkhoBtQgrd/SlUPP4tc/1y0pRlfqGiF6i4 +Tv1ntBnpPksen+YVKn63Zr52J307cD7dtJiK+bfqtMJI70+xVfO+S8U7LyrS +40izSi6WH31IxbwgF6FU0mYfmueGmqhYIF4ic560HZ/gxh1vqaiRmHE3m/T2 +Fcy01x+pSN0m9iuHtK9jSAf0UXFyULnsIumQwwWMsiEqfrz0ZHEm6UOF7UG0 +v+Tz+ZJzyaQffU90beKjob+0QMJR0haH6TGxQjTk+3elMIT0C4naAsNFNFTZ +MOXuRtq+0LlpRJyGetdFS/8/vzbD0YEb0jTU/dqbo0Xa7dUpSW8FGrbEnlFf +Qvqzt6a+oioNXwwrWg+Q6+c/VefaQqehWWzqkibSv5PdYk5q0rDPeyY0n/Re +6lSB8UoaWhcE7TtAepJIa5peTUO27qjsRtJRlisHuXo0/PE+202WdEKYlz5j +Aw0XfbzUcp3c70XC/1w7TWiYrKIsGEw6LftczNmNNAxaL9ilTTq74XkTvwMN +LZYGJRaS8UXd7jdY7UTD63HSLm6kCwfmJfe70rBtWXSbOOlS2fVuX31pKM4b +ex9ExmtjwOXBhgjy/rOVwv+R+WA1y5Q6cpiGL0Uubcom3Zz2Tl8vloZL7a9a +riPdUbUwtvAkDVct7vVwI/NpaHG4VEIuDTM+89SPk/m4P1/cgHOFhr93Gy0X +Jv1X76bb5DUaukvu+Hn8ABmPnt2FfqU0jAlfVHAonKz3ZZYGFvU0vFFBYzDJ +/L9k9tXtvyc0pL8o1rpC1gtGR3TsvRc01Hi7eFqItA4/8UzzPQ0nfKd+Pw4l +68VWVXeRn+R+zDrYUMn6E/x3NLZpCR2Tu2OmDQPI+Avzl/suRce3rs9q3Mn6 +JtrfWSygQMdc3ptnR8j6d+1jQ9sGBh1vTlm+5voS0P3gnPZdfTpO6QYUD+8g +YHMCs/3KDjoOhz4Vqd1G5sN/d/Y83EnHrLpM42vOZP2JYAh07aZjQab952Qn +ApJ2LV6lEE7HGtkFW2y2EFBn03UsNYmO3IkDrCt25PkgFbf6MJeOQkeWH71q +RgDfqcnGrHt03Cxz+pmjKbneAoGu92roqH93LmOePE+CJh0TRh/T8dPSm7ft +gNzPdvWPAZ10jN3/RbmBSYDc5abErQIMnKt0CxReRcD0yqXdOk4MvM64dJdf +hoCpS0px61wZ6JHa7WgnRcCEhIY6cwcDxdq8Gs8vJfdvnBlotpscb/NGi7KE +PA9rfKdcoxnI2KWoJyJM1gubCvGkawyUavEsM/1D9itBntA7ycBYh8Vr9pF9 +8YWuXb0/ZhhoIlSW7faeB5mb9ycMzjOwVZ1/qUkrD1LXJb34u1AN/1txlS78 +mgfx/7jbJChq+Kb+vGTQEx4EnRLay7ZQw/gl6rdvlvOAXXw7//x5Neye3KUm +fIYHH2nFl81z1PCKhHbqgxQeRJ2/mTdxWQ2PTdpeCE/mQUVcUa7jTTWklkYl +dyTwYO32/CzxWjX0HdymeoLsd1YIZaYlflFDS6ML7H27yX5lx+HYCG117In8 +e+usMQ9Gpay9nOvVcbLAyXnzby60BzPeBD5Vx4u/s89zfnKh7skMxLxUR/Z0 +XuSKPrK/iyqm3mhTR78FmatnurmwplesZ7pfHU8ViKfHvOVCCPe1xyVpDdxb +UtChXMWF/s1Obt92auCtCgf+G8e58C3Fy3mfiCaG/ZAai5LlgtXwQas+/WWo +fcfw+sG1ZTDgK7q/PGY5zrbON/20KSH/L+T5T9SvwF8JLImdqrdB6pVmatmw +Fn44sjPEW/AWqCSV2uvra+OQ4oxMbuV1yFrJXCodoIOheQ/ub8+6Bs+VjNeP +p6/CN826S3tSC4ClUp+2um01SlixM4RDroC4wNVw7/g1+GegIsxf9jJQ4qhs +F01ddP64dPcYJwcWarjfc3yqi9PbtSyl6y7AKo5i6UGPtZjwSk1l8FEm7OuW +arDmW4fu3Uv2RTanw/B4ipNV1jpM+YlGd6+nwsbVT7KtdPTQpr/n4W3bZHgw +bvTvT7MefrMav3BaNRFCtNd2tvitx0rlRAddbjxwhna+c1moj5dSqlIODR8F +c3WFTUuu6uOxO5Qf5+oiYXls8qF6AwPUKexK1/I5AFp+zIcanQYYJa+kJ+ce +BmcYdjPHPhlg74bRNA+7MJjo8Vnf222Ap9tVZUowDB64phTnfTXAv88DDgdq +hIGjfc8F+UEDbIKjm+2H90KkUcLehXyGqBPjSXl5fC80SbbQBzUMsUZOVfJ5 +cCj4Pdh1vDzMEA8s0mdY+QfD0J7+g+bhhig8pymnvykYDqkGB7VFGKJg14aR +9XrBkHwk1PHvYUN87Wy/MoQ/GMpYETR2oiHeO5Gd8vByEMzeO1bbkG2IAm/z +4z91BcLZ0ryJtw2GOBOXLF0esBse5r/bOSrLRLtC0/7kUn/4bEvfEaHAxIeB +e/o4Of7AN73H5Z8SE3V9Pp/hO+EPJg4idkI0JipNRbws9/SHJwtYBopaTHwU +M9LxQdwfXvpcXmi8gYm+R+lz82F+0KkeWJLmz8TM1SnPz5vuhIkb839WVzAx +OFX50SdJH/jubJF/soqJsjPtV+z5faBd8LTl1xomSsmd1H4z5g01XkoXz9cx +cRUzSW2s1RviFdaz5p4x0WBcpLXuvDcsTQo88vwTEwP9RBSPUbxBO+A9nx8/ +C2+90GkL1PcCX43ihdmbWGjf22dxUcwDoh57Bmras7DIZff3uhF3SPOTesFz +ZKGFad3c/Dt3qL0WmfJiGwvTy/scGy+5g4ympcScNwsnw6+1+K5xhyeafTJe +ESyUOJkrPuLiBlrLqTTNyyx83Pkgvvm+C4xqZejzRlj4NnlC0+yxM7S/RHPp +cRYOyZuV25Q5Q13I0JbwSRbuYkzs2JnjDKk8qzD9GRa6Lq/82hTmDFosvtvV +AkZYa/LF2YPqDD5We+gNckbYET7bfDPaCd4FbBR7xzbCW+J2NnEWW6Gy8N+X +ySQjPP2rXeuhsCPom4b/sT5lhL1eew4snnKAu18GxPJPG6HR46ozfn0OwKN0 +G1ifNcLda2vFTBsd4HZW3em8HCN8oumgdDXeAfJTEpgbS4yw//QNtZ8LHOBk +uER6VqsRfrfV/uOwyB5czdTQiMLG+7us4lhxtjD3TlS8gcZGASu6UpevLeT7 +DX20VmOjZfLtrmwLW/ieWHXQdTkbrYXSUwPEbGHfs82lkWvZaDXrs8H0og0k +2x2hVFqwsS9OxHC0whqqt7+f1Qtlo1+DruM5UStQ3nOialUdG086JASdHzOH +1Hn/9afq2eipuzJp6JM58J+14P5oZOOp8fXjLk/Nof+e0M38Z2zMKuUeCsw1 +h2q+41lSrWwUxBf5ezeag2tm7MGpPjZW8w/GCF4xg6yayPUPFnOwgLik1edt +CmJ2LlwlcQ6eFNr2ItnOFGI/G+ocXMrB7UUnB42NTGGX0F/1NbIcdDooG/NN +xhQMNkfIXKVwUM2k2Wm6yQTaeveNJ+hy8OYv7ncnPROQXRTM3bSNgxVn8gSj +5Y2h0DQ6asSFg/Zdp64ZCBrD2uhU0wx3Dk7rE/zCowh2I2Xv2705WPjrza2u +5wiJbZPTvsEcfOwq+DgiBuHv1RiTqDgOzkQP1Me1A3QaZbQWFXNwgb8NN+o6 +B3YdKMy1KuGgr0wUJzeBA1Mld/0Gyji4ZqRO8IsvB6QY7X9073GQ8jS8oZXG +ARtRVZX7dRwsdug46prLhtp3RTtb33Nw6WO95S0XjcBavFInop2DNywUIuSj +jKB947MphY8cbLobKxTjagQT1b+TPD9zUGrloz1cZSPQubLmzq9+Dm6t27w4 +/zILajuNI1IGOThVJSA2GMsCa5ktsHqEg/VePq6uPizwP3GgJXySgyMBwwHn +NFgwUZeYLf+XgwFV8NtHhAXxMxd8q2c4KBx31Mz+FxOW6t3U9pjjYOOFKSeP +F0zI21M9OT9Pzu/7Qv7kO0z4H2ABxbg= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -8187,150 +8361,134 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK -ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS -Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 -ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN -7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I -q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F -Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E -8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 -BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q -oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox -nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa -eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY -UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq -kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD -Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 -ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU -NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja -6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS -TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr -/i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm -7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc -F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ -tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD -2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM -fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 -dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz -0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj -g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 -+SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI -lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk -t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi -88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH -sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 -q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E -we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ -a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK -c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 -ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV -xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib -PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki -mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs -7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 -6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao -d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT -VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 -FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c -JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm -Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E -0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti -Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX -8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp -I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj -HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 -ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff -tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy -+LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj -Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e -mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc -JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 -qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw -BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc -HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 -p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix -mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD -2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 -o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV -YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld -Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB -T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 -OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR -6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy -dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb -7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 -ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ -qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk -efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB -cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc -I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 -cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T -jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC -luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv -5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP -9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 -ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV -Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm -hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j -9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm -4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq -s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h -Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB -BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj -7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK -idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T -Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop -J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc -HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD -+0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v -+NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy -j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR -8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn -JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N -vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V -SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 -640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP -GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC -DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz -ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 -XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 -9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt -voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX -rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 -bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l -Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 -WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV -YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 -YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT -78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM -V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf -1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are -1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy -7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx -POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB -eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe +1:eJwV13k4VV0XAHCZK5F5vpOhEpUS7nVvaxkzJRRlzBAKkZKiZCiSJKISkiIN +CvceZayESpOSEgqlNMg8FfH6zvfXeX7POfucZ++91trr0H1CHf34+fj4mAv4 ++P5/nep+1qh+qnDD6O+O2boasw3v8hQijdvjYR1rS+sHQTVA2dc+Cu1nwayn +81Ox4DqIsL/1QaD9KqTvctE4LWgKkkPyZ6c/8OD6eFu7q+AW6Km1C534UA92 +7rNjdwV8wUK9v2v0w1s4+22gXG/Bfpj+YHBu5EMvNPXflmX/iYcG0+uFLVfH +4XWz4S/fcxmg0lP13Ud7Dhq4ugcDSnJBJnjHLRFTAdzkr1yAZ6/CWV2LGjsn +UaSN5Y5mvyuCjqw1daNLl+DRV+/zfEJvwanCmNf8ipIo8NGlP+fLHbDW2y0l +qyaJam7/MqlDd0C00dFpmY4k3tznpZYzcweOf9X4aGMsia9LhHsjpUvgCOPl +98zdklhakXTtvVkJhOQr/KdZLYn1L09vFCwqAYdcrraNmxT2TJ96tsqnFOQz +v57MuCSNvyRkKq55lYHCyrvH/xZJ4z+fStd4vzJQqk+M8SiTRv37/xm7BZYB +ZWTFgWUN0uh6WaVjQXgZaNju9ar5KY03ki4qMk6UwTrBOf2v62RQ/6XCrpLb +ZbA5XO7b2ucyOJ694ObYRBnYL/7ZfaFVBj3Fnaudp8vA8WpVx+wnGSRYW+bv +zZWB8xv310+GZXAwr4gRLMwFD+2CaldZWdRSy2q4Ic+FoG+r0+O9ZNH3TJhS +EJMLJ7ZabXg7JYv7ugoaJKO4oFTerMS/QA7/KcuObj7KhRLprX90F8thZeNc +9sl4LrS99SxLp8ph+Sch3+FkLqg7hDMcLOVwfZ9E7fEcLtRvuiz85qIcTlSZ +urTVcGHOYrL5FVsePYpLu6SnuZBWFFU8ZyGPvpNCKx/NkuOF+ZJ0HORxy5o/ +Q7v5eGD7eJHxaT95tLfY03lHhAfZpjTCNlUeC7V3bpiX5YEh2lx40SOPtIjD ++k26PNjPvLLjWbwC1jbGLh/344F1vviETYoCmkkKpHTu4gFD5EhS8zkFlGTf +n70fxIM375y5rTcUsCTBXzgyjAer9ooJdDcrYIpNxYOHR3jws+hg0ZiSIjY2 +M36dOcsDdxm7QWVCEeO3Lsph1/Bg3eGauLxaRYykNwoU3efBot7lcvQniiiq +Uhm7uI4HVaUCoNmhiD9bkiqfN/JAzqYqbc28Ij5sKlmu1Ex+P05dz9xGCTP1 +A53nenhgNjwTFfJVCQ91zyd+4CMg0jJT69GAEoZmnYmt5ieg5IpOp/SUEham +mz+6KEiAwlYvZpWoMm6n/VTcJErAQOXjPwKrlFHsd4HeCQkCMuLTwi8eUsY8 +/cJDVqoENH1coT4Qp4zdymPKoxQCZvUaWjecUsaU9/+WnKMR4P9jcu23S8r4 +yNz+c4saASxbt9FVDcqovyDHlqpFQK+sZkjjEhWsndleu1CfAPnQh6ry8iq4 +iLA7FWFAgG3T9le7aSr44W4lt8eQgHtRp7Ql1qlgbvkGketGBCT3jPS7bFfB +0z0FfQuNCVh7syZg+KoKntw0/odmQ0AAv5O8yW0VfPg6MHGLLQG5bkNPMu+q +YGPBioj4TQQIi9M1WU0qeLhF/sj7zQR07kv8dnxQBR16VurZbyUgju3grWSo +ir9ztg9kuRNg6Zk3ZmCiip/M27uLPAgQj/19zMlWFWc/mOWUeZLvb0goSvNS +RemG1AMVXgRUWlf/Fj6pikFjH5+d3UlATLBItHqGKrYuKdWI8SPAInWruMkl +VTTR/OkY4E/Au5ahNdFcVQwv9dVYuYuAke1qEeMdqtgly3scG0RARdReEclv +qqi6puupTTABR3PvZ60aUkUZS+MCqT0EiH3eVrObn4IeUPkrI4SAZQEpfJ+1 +KCh9tallZxgBQ0kd6XN6FOx0VqwW30dA+S1NNWWgoJ1m87Fy0iZDdebOWygo +5Z/xcHw/AZ4HJpNfHqbgEh5jCiMI0LhgotKfQMHVEnSR5xH/j48zd0TSKFj2 +Q5B/80EComZXvDEppGDocFuV7SECjCkHvb1KKBjpMnnoMWlRbByLrqTgDZ6L +JiuSgHPHPGWrXlJwQMjXXj6KAPdrxUVtbRR8dMPkdQxpxtO/BhOfyfkkd+E3 +0mWLMlxXT1Jw0ZkmviuHCTio/fm37TwFVW95OEyT3mCnEx24kIoiYwYXNx0h +4GX608vXVKmYumCrdD/pDEJGt2EZFaNHv21cG02A63vv+s+6VPzl7nIogjT9 +T8mW/4yoaDL/8do90j8VZr8pW1BR731WyxjpUpZVBNOeikeU789qHSUgwv28 +yDZXKmraHVy+gzT76Nes8J1UdF/2x+kMaYH8NVpnQ6iYm7cnsYb080fRNaWH +qHj6h1jNV9JpX5/bvoqnIj1MdFIkhoBtQgrd/SlUPP4tc/1y0pRlfqGiF6i4 +Tv1ntBnpPksen+YVKn63Zr52J307cD7dtJiK+bfqtMJI70+xVfO+S8U7LyrS +40izSi6WH31IxbwgF6FU0mYfmueGmqhYIF4ic560HZ/gxh1vqaiRmHE3m/T2 +Fcy01x+pSN0m9iuHtK9jSAf0UXFyULnsIumQwwWMsiEqfrz0ZHEm6UOF7UG0 +v+Tz+ZJzyaQffU90beKjob+0QMJR0haH6TGxQjTk+3elMIT0C4naAsNFNFTZ +MOXuRtq+0LlpRJyGetdFS/8/vzbD0YEb0jTU/dqbo0Xa7dUpSW8FGrbEnlFf +Qvqzt6a+oioNXwwrWg+Q6+c/VefaQqehWWzqkibSv5PdYk5q0rDPeyY0n/Re +6lSB8UoaWhcE7TtAepJIa5peTUO27qjsRtJRlisHuXo0/PE+202WdEKYlz5j +Aw0XfbzUcp3c70XC/1w7TWiYrKIsGEw6LftczNmNNAxaL9ilTTq74XkTvwMN +LZYGJRaS8UXd7jdY7UTD63HSLm6kCwfmJfe70rBtWXSbOOlS2fVuX31pKM4b +ex9ExmtjwOXBhgjy/rOVwv+R+WA1y5Q6cpiGL0Uubcom3Zz2Tl8vloZL7a9a +riPdUbUwtvAkDVct7vVwI/NpaHG4VEIuDTM+89SPk/m4P1/cgHOFhr93Gy0X +Jv1X76bb5DUaukvu+Hn8ABmPnt2FfqU0jAlfVHAonKz3ZZYGFvU0vFFBYzDJ +/L9k9tXtvyc0pL8o1rpC1gtGR3TsvRc01Hi7eFqItA4/8UzzPQ0nfKd+Pw4l +68VWVXeRn+R+zDrYUMn6E/x3NLZpCR2Tu2OmDQPI+Avzl/suRce3rs9q3Mn6 +JtrfWSygQMdc3ptnR8j6d+1jQ9sGBh1vTlm+5voS0P3gnPZdfTpO6QYUD+8g +YHMCs/3KDjoOhz4Vqd1G5sN/d/Y83EnHrLpM42vOZP2JYAh07aZjQab952Qn +ApJ2LV6lEE7HGtkFW2y2EFBn03UsNYmO3IkDrCt25PkgFbf6MJeOQkeWH71q +RgDfqcnGrHt03Cxz+pmjKbneAoGu92roqH93LmOePE+CJh0TRh/T8dPSm7ft +gNzPdvWPAZ10jN3/RbmBSYDc5abErQIMnKt0CxReRcD0yqXdOk4MvM64dJdf +hoCpS0px61wZ6JHa7WgnRcCEhIY6cwcDxdq8Gs8vJfdvnBlotpscb/NGi7KE +PA9rfKdcoxnI2KWoJyJM1gubCvGkawyUavEsM/1D9itBntA7ycBYh8Vr9pF9 +8YWuXb0/ZhhoIlSW7faeB5mb9ycMzjOwVZ1/qUkrD1LXJb34u1AN/1txlS78 +mgfx/7jbJChq+Kb+vGTQEx4EnRLay7ZQw/gl6rdvlvOAXXw7//x5Neye3KUm +fIYHH2nFl81z1PCKhHbqgxQeRJ2/mTdxWQ2PTdpeCE/mQUVcUa7jTTWklkYl +dyTwYO32/CzxWjX0HdymeoLsd1YIZaYlflFDS6ML7H27yX5lx+HYCG117In8 +e+usMQ9Gpay9nOvVcbLAyXnzby60BzPeBD5Vx4u/s89zfnKh7skMxLxUR/Z0 +XuSKPrK/iyqm3mhTR78FmatnurmwplesZ7pfHU8ViKfHvOVCCPe1xyVpDdxb +UtChXMWF/s1Obt92auCtCgf+G8e58C3Fy3mfiCaG/ZAai5LlgtXwQas+/WWo +fcfw+sG1ZTDgK7q/PGY5zrbON/20KSH/L+T5T9SvwF8JLImdqrdB6pVmatmw +Fn44sjPEW/AWqCSV2uvra+OQ4oxMbuV1yFrJXCodoIOheQ/ub8+6Bs+VjNeP +p6/CN826S3tSC4ClUp+2um01SlixM4RDroC4wNVw7/g1+GegIsxf9jJQ4qhs +F01ddP64dPcYJwcWarjfc3yqi9PbtSyl6y7AKo5i6UGPtZjwSk1l8FEm7OuW +arDmW4fu3Uv2RTanw/B4ipNV1jpM+YlGd6+nwsbVT7KtdPTQpr/n4W3bZHgw +bvTvT7MefrMav3BaNRFCtNd2tvitx0rlRAddbjxwhna+c1moj5dSqlIODR8F +c3WFTUuu6uOxO5Qf5+oiYXls8qF6AwPUKexK1/I5AFp+zIcanQYYJa+kJ+ce +BmcYdjPHPhlg74bRNA+7MJjo8Vnf222Ap9tVZUowDB64phTnfTXAv88DDgdq +hIGjfc8F+UEDbIKjm+2H90KkUcLehXyGqBPjSXl5fC80SbbQBzUMsUZOVfJ5 +cCj4Pdh1vDzMEA8s0mdY+QfD0J7+g+bhhig8pymnvykYDqkGB7VFGKJg14aR +9XrBkHwk1PHvYUN87Wy/MoQ/GMpYETR2oiHeO5Gd8vByEMzeO1bbkG2IAm/z +4z91BcLZ0ryJtw2GOBOXLF0esBse5r/bOSrLRLtC0/7kUn/4bEvfEaHAxIeB +e/o4Of7AN73H5Z8SE3V9Pp/hO+EPJg4idkI0JipNRbws9/SHJwtYBopaTHwU +M9LxQdwfXvpcXmi8gYm+R+lz82F+0KkeWJLmz8TM1SnPz5vuhIkb839WVzAx +OFX50SdJH/jubJF/soqJsjPtV+z5faBd8LTl1xomSsmd1H4z5g01XkoXz9cx +cRUzSW2s1RviFdaz5p4x0WBcpLXuvDcsTQo88vwTEwP9RBSPUbxBO+A9nx8/ +C2+90GkL1PcCX43ihdmbWGjf22dxUcwDoh57Bmras7DIZff3uhF3SPOTesFz +ZKGFad3c/Dt3qL0WmfJiGwvTy/scGy+5g4ympcScNwsnw6+1+K5xhyeafTJe +ESyUOJkrPuLiBlrLqTTNyyx83Pkgvvm+C4xqZejzRlj4NnlC0+yxM7S/RHPp +cRYOyZuV25Q5Q13I0JbwSRbuYkzs2JnjDKk8qzD9GRa6Lq/82hTmDFosvtvV +AkZYa/LF2YPqDD5We+gNckbYET7bfDPaCd4FbBR7xzbCW+J2NnEWW6Gy8N+X +ySQjPP2rXeuhsCPom4b/sT5lhL1eew4snnKAu18GxPJPG6HR46ozfn0OwKN0 +G1ifNcLda2vFTBsd4HZW3em8HCN8oumgdDXeAfJTEpgbS4yw//QNtZ8LHOBk +uER6VqsRfrfV/uOwyB5czdTQiMLG+7us4lhxtjD3TlS8gcZGASu6UpevLeT7 +DX20VmOjZfLtrmwLW/ieWHXQdTkbrYXSUwPEbGHfs82lkWvZaDXrs8H0og0k +2x2hVFqwsS9OxHC0whqqt7+f1Qtlo1+DruM5UStQ3nOialUdG086JASdHzOH +1Hn/9afq2eipuzJp6JM58J+14P5oZOOp8fXjLk/Nof+e0M38Z2zMKuUeCsw1 +h2q+41lSrWwUxBf5ezeag2tm7MGpPjZW8w/GCF4xg6yayPUPFnOwgLik1edt +CmJ2LlwlcQ6eFNr2ItnOFGI/G+ocXMrB7UUnB42NTGGX0F/1NbIcdDooG/NN +xhQMNkfIXKVwUM2k2Wm6yQTaeveNJ+hy8OYv7ncnPROQXRTM3bSNgxVn8gSj +5Y2h0DQ6asSFg/Zdp64ZCBrD2uhU0wx3Dk7rE/zCowh2I2Xv2705WPjrza2u +5wiJbZPTvsEcfOwq+DgiBuHv1RiTqDgOzkQP1Me1A3QaZbQWFXNwgb8NN+o6 +B3YdKMy1KuGgr0wUJzeBA1Mld/0Gyji4ZqRO8IsvB6QY7X9073GQ8jS8oZXG +ARtRVZX7dRwsdug46prLhtp3RTtb33Nw6WO95S0XjcBavFInop2DNywUIuSj +jKB947MphY8cbLobKxTjagQT1b+TPD9zUGrloz1cZSPQubLmzq9+Dm6t27w4 +/zILajuNI1IGOThVJSA2GMsCa5ktsHqEg/VePq6uPizwP3GgJXySgyMBwwHn +NFgwUZeYLf+XgwFV8NtHhAXxMxd8q2c4KBx31Mz+FxOW6t3U9pjjYOOFKSeP +F0zI21M9OT9Pzu/7Qv7kO0z4H2ABxbg= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "PlotRange" -> {{0, 30}, {0., 0.07616590919164111}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -8342,19 +8500,19 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "PlotRange" -> {{0, 30}, {0., 0.07616590919164111}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8368,149 +8526,133 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK -ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS -Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 -ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN -7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I -q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F -Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E -8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 -BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q -oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox -nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa -eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY -UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq -kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD -Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 -ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU -NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja -6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS -TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr -/i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm -7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc -F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ -tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD -2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM -fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 -dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz -0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj -g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 -+SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI -lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk -t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi -88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH -sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 -q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E -we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ -a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK -c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 -ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV -xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib -PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki -mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs -7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 -6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao -d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT -VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 -FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c -JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm -Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E -0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti -Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX -8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp -I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj -HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 -ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff -tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy -+LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj -Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e -mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc -JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 -qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw -BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc -HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 -p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix -mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD -2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 -o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV -YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld -Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB -T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 -OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR -6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy -dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb -7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 -ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ -qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk -efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB -cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc -I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 -cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T -jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC -luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv -5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP -9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 -ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV -Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm -hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j -9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm -4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq -s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h -Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB -BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj -7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK -idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T -Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop -J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc -HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD -+0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v -+NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy -j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR -8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn -JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N -vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V -SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 -640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP -GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC -DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz -ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 -XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 -9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt -voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX -rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 -bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l -Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 -WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV -YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 -YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT -78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM -V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf -1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are -1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy -7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx -POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB -eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe +1:eJwV13k4VV0XAHCZK5F5vpOhEpUS7nVvaxkzJRRlzBAKkZKiZCiSJKISkiIN +CvceZayESpOSEgqlNMg8FfH6zvfXeX7POfucZ++91trr0H1CHf34+fj4mAv4 ++P5/nep+1qh+qnDD6O+O2boasw3v8hQijdvjYR1rS+sHQTVA2dc+Cu1nwayn +81Ox4DqIsL/1QaD9KqTvctE4LWgKkkPyZ6c/8OD6eFu7q+AW6Km1C534UA92 +7rNjdwV8wUK9v2v0w1s4+22gXG/Bfpj+YHBu5EMvNPXflmX/iYcG0+uFLVfH +4XWz4S/fcxmg0lP13Ud7Dhq4ugcDSnJBJnjHLRFTAdzkr1yAZ6/CWV2LGjsn +UaSN5Y5mvyuCjqw1daNLl+DRV+/zfEJvwanCmNf8ipIo8NGlP+fLHbDW2y0l +qyaJam7/MqlDd0C00dFpmY4k3tznpZYzcweOf9X4aGMsia9LhHsjpUvgCOPl +98zdklhakXTtvVkJhOQr/KdZLYn1L09vFCwqAYdcrraNmxT2TJ96tsqnFOQz +v57MuCSNvyRkKq55lYHCyrvH/xZJ4z+fStd4vzJQqk+M8SiTRv37/xm7BZYB +ZWTFgWUN0uh6WaVjQXgZaNju9ar5KY03ki4qMk6UwTrBOf2v62RQ/6XCrpLb +ZbA5XO7b2ucyOJ694ObYRBnYL/7ZfaFVBj3Fnaudp8vA8WpVx+wnGSRYW+bv +zZWB8xv310+GZXAwr4gRLMwFD+2CaldZWdRSy2q4Ic+FoG+r0+O9ZNH3TJhS +EJMLJ7ZabXg7JYv7ugoaJKO4oFTerMS/QA7/KcuObj7KhRLprX90F8thZeNc +9sl4LrS99SxLp8ph+Sch3+FkLqg7hDMcLOVwfZ9E7fEcLtRvuiz85qIcTlSZ +urTVcGHOYrL5FVsePYpLu6SnuZBWFFU8ZyGPvpNCKx/NkuOF+ZJ0HORxy5o/ +Q7v5eGD7eJHxaT95tLfY03lHhAfZpjTCNlUeC7V3bpiX5YEh2lx40SOPtIjD ++k26PNjPvLLjWbwC1jbGLh/344F1vviETYoCmkkKpHTu4gFD5EhS8zkFlGTf +n70fxIM375y5rTcUsCTBXzgyjAer9ooJdDcrYIpNxYOHR3jws+hg0ZiSIjY2 +M36dOcsDdxm7QWVCEeO3Lsph1/Bg3eGauLxaRYykNwoU3efBot7lcvQniiiq +Uhm7uI4HVaUCoNmhiD9bkiqfN/JAzqYqbc28Ij5sKlmu1Ex+P05dz9xGCTP1 +A53nenhgNjwTFfJVCQ91zyd+4CMg0jJT69GAEoZmnYmt5ieg5IpOp/SUEham +mz+6KEiAwlYvZpWoMm6n/VTcJErAQOXjPwKrlFHsd4HeCQkCMuLTwi8eUsY8 +/cJDVqoENH1coT4Qp4zdymPKoxQCZvUaWjecUsaU9/+WnKMR4P9jcu23S8r4 +yNz+c4saASxbt9FVDcqovyDHlqpFQK+sZkjjEhWsndleu1CfAPnQh6ry8iq4 +iLA7FWFAgG3T9le7aSr44W4lt8eQgHtRp7Ql1qlgbvkGketGBCT3jPS7bFfB +0z0FfQuNCVh7syZg+KoKntw0/odmQ0AAv5O8yW0VfPg6MHGLLQG5bkNPMu+q +YGPBioj4TQQIi9M1WU0qeLhF/sj7zQR07kv8dnxQBR16VurZbyUgju3grWSo +ir9ztg9kuRNg6Zk3ZmCiip/M27uLPAgQj/19zMlWFWc/mOWUeZLvb0goSvNS +RemG1AMVXgRUWlf/Fj6pikFjH5+d3UlATLBItHqGKrYuKdWI8SPAInWruMkl +VTTR/OkY4E/Au5ahNdFcVQwv9dVYuYuAke1qEeMdqtgly3scG0RARdReEclv +qqi6puupTTABR3PvZ60aUkUZS+MCqT0EiH3eVrObn4IeUPkrI4SAZQEpfJ+1 +KCh9tallZxgBQ0kd6XN6FOx0VqwW30dA+S1NNWWgoJ1m87Fy0iZDdebOWygo +5Z/xcHw/AZ4HJpNfHqbgEh5jCiMI0LhgotKfQMHVEnSR5xH/j48zd0TSKFj2 +Q5B/80EComZXvDEppGDocFuV7SECjCkHvb1KKBjpMnnoMWlRbByLrqTgDZ6L +JiuSgHPHPGWrXlJwQMjXXj6KAPdrxUVtbRR8dMPkdQxpxtO/BhOfyfkkd+E3 +0mWLMlxXT1Jw0ZkmviuHCTio/fm37TwFVW95OEyT3mCnEx24kIoiYwYXNx0h +4GX608vXVKmYumCrdD/pDEJGt2EZFaNHv21cG02A63vv+s+6VPzl7nIogjT9 +T8mW/4yoaDL/8do90j8VZr8pW1BR731WyxjpUpZVBNOeikeU789qHSUgwv28 +yDZXKmraHVy+gzT76Nes8J1UdF/2x+kMaYH8NVpnQ6iYm7cnsYb080fRNaWH +qHj6h1jNV9JpX5/bvoqnIj1MdFIkhoBtQgrd/SlUPP4tc/1y0pRlfqGiF6i4 +Tv1ntBnpPksen+YVKn63Zr52J307cD7dtJiK+bfqtMJI70+xVfO+S8U7LyrS +40izSi6WH31IxbwgF6FU0mYfmueGmqhYIF4ic560HZ/gxh1vqaiRmHE3m/T2 +Fcy01x+pSN0m9iuHtK9jSAf0UXFyULnsIumQwwWMsiEqfrz0ZHEm6UOF7UG0 +v+Tz+ZJzyaQffU90beKjob+0QMJR0haH6TGxQjTk+3elMIT0C4naAsNFNFTZ +MOXuRtq+0LlpRJyGetdFS/8/vzbD0YEb0jTU/dqbo0Xa7dUpSW8FGrbEnlFf +Qvqzt6a+oioNXwwrWg+Q6+c/VefaQqehWWzqkibSv5PdYk5q0rDPeyY0n/Re +6lSB8UoaWhcE7TtAepJIa5peTUO27qjsRtJRlisHuXo0/PE+202WdEKYlz5j +Aw0XfbzUcp3c70XC/1w7TWiYrKIsGEw6LftczNmNNAxaL9ilTTq74XkTvwMN +LZYGJRaS8UXd7jdY7UTD63HSLm6kCwfmJfe70rBtWXSbOOlS2fVuX31pKM4b +ex9ExmtjwOXBhgjy/rOVwv+R+WA1y5Q6cpiGL0Uubcom3Zz2Tl8vloZL7a9a +riPdUbUwtvAkDVct7vVwI/NpaHG4VEIuDTM+89SPk/m4P1/cgHOFhr93Gy0X +Jv1X76bb5DUaukvu+Hn8ABmPnt2FfqU0jAlfVHAonKz3ZZYGFvU0vFFBYzDJ +/L9k9tXtvyc0pL8o1rpC1gtGR3TsvRc01Hi7eFqItA4/8UzzPQ0nfKd+Pw4l +68VWVXeRn+R+zDrYUMn6E/x3NLZpCR2Tu2OmDQPI+Avzl/suRce3rs9q3Mn6 +JtrfWSygQMdc3ptnR8j6d+1jQ9sGBh1vTlm+5voS0P3gnPZdfTpO6QYUD+8g +YHMCs/3KDjoOhz4Vqd1G5sN/d/Y83EnHrLpM42vOZP2JYAh07aZjQab952Qn +ApJ2LV6lEE7HGtkFW2y2EFBn03UsNYmO3IkDrCt25PkgFbf6MJeOQkeWH71q +RgDfqcnGrHt03Cxz+pmjKbneAoGu92roqH93LmOePE+CJh0TRh/T8dPSm7ft +gNzPdvWPAZ10jN3/RbmBSYDc5abErQIMnKt0CxReRcD0yqXdOk4MvM64dJdf +hoCpS0px61wZ6JHa7WgnRcCEhIY6cwcDxdq8Gs8vJfdvnBlotpscb/NGi7KE +PA9rfKdcoxnI2KWoJyJM1gubCvGkawyUavEsM/1D9itBntA7ycBYh8Vr9pF9 +8YWuXb0/ZhhoIlSW7faeB5mb9ycMzjOwVZ1/qUkrD1LXJb34u1AN/1txlS78 +mgfx/7jbJChq+Kb+vGTQEx4EnRLay7ZQw/gl6rdvlvOAXXw7//x5Neye3KUm +fIYHH2nFl81z1PCKhHbqgxQeRJ2/mTdxWQ2PTdpeCE/mQUVcUa7jTTWklkYl +dyTwYO32/CzxWjX0HdymeoLsd1YIZaYlflFDS6ML7H27yX5lx+HYCG117In8 +e+usMQ9Gpay9nOvVcbLAyXnzby60BzPeBD5Vx4u/s89zfnKh7skMxLxUR/Z0 +XuSKPrK/iyqm3mhTR78FmatnurmwplesZ7pfHU8ViKfHvOVCCPe1xyVpDdxb +UtChXMWF/s1Obt92auCtCgf+G8e58C3Fy3mfiCaG/ZAai5LlgtXwQas+/WWo +fcfw+sG1ZTDgK7q/PGY5zrbON/20KSH/L+T5T9SvwF8JLImdqrdB6pVmatmw +Fn44sjPEW/AWqCSV2uvra+OQ4oxMbuV1yFrJXCodoIOheQ/ub8+6Bs+VjNeP +p6/CN826S3tSC4ClUp+2um01SlixM4RDroC4wNVw7/g1+GegIsxf9jJQ4qhs +F01ddP64dPcYJwcWarjfc3yqi9PbtSyl6y7AKo5i6UGPtZjwSk1l8FEm7OuW +arDmW4fu3Uv2RTanw/B4ipNV1jpM+YlGd6+nwsbVT7KtdPTQpr/n4W3bZHgw +bvTvT7MefrMav3BaNRFCtNd2tvitx0rlRAddbjxwhna+c1moj5dSqlIODR8F +c3WFTUuu6uOxO5Qf5+oiYXls8qF6AwPUKexK1/I5AFp+zIcanQYYJa+kJ+ce +BmcYdjPHPhlg74bRNA+7MJjo8Vnf222Ap9tVZUowDB64phTnfTXAv88DDgdq +hIGjfc8F+UEDbIKjm+2H90KkUcLehXyGqBPjSXl5fC80SbbQBzUMsUZOVfJ5 +cCj4Pdh1vDzMEA8s0mdY+QfD0J7+g+bhhig8pymnvykYDqkGB7VFGKJg14aR +9XrBkHwk1PHvYUN87Wy/MoQ/GMpYETR2oiHeO5Gd8vByEMzeO1bbkG2IAm/z +4z91BcLZ0ryJtw2GOBOXLF0esBse5r/bOSrLRLtC0/7kUn/4bEvfEaHAxIeB +e/o4Of7AN73H5Z8SE3V9Pp/hO+EPJg4idkI0JipNRbws9/SHJwtYBopaTHwU +M9LxQdwfXvpcXmi8gYm+R+lz82F+0KkeWJLmz8TM1SnPz5vuhIkb839WVzAx +OFX50SdJH/jubJF/soqJsjPtV+z5faBd8LTl1xomSsmd1H4z5g01XkoXz9cx +cRUzSW2s1RviFdaz5p4x0WBcpLXuvDcsTQo88vwTEwP9RBSPUbxBO+A9nx8/ +C2+90GkL1PcCX43ihdmbWGjf22dxUcwDoh57Bmras7DIZff3uhF3SPOTesFz +ZKGFad3c/Dt3qL0WmfJiGwvTy/scGy+5g4ympcScNwsnw6+1+K5xhyeafTJe +ESyUOJkrPuLiBlrLqTTNyyx83Pkgvvm+C4xqZejzRlj4NnlC0+yxM7S/RHPp +cRYOyZuV25Q5Q13I0JbwSRbuYkzs2JnjDKk8qzD9GRa6Lq/82hTmDFosvtvV +AkZYa/LF2YPqDD5We+gNckbYET7bfDPaCd4FbBR7xzbCW+J2NnEWW6Gy8N+X +ySQjPP2rXeuhsCPom4b/sT5lhL1eew4snnKAu18GxPJPG6HR46ozfn0OwKN0 +G1ifNcLda2vFTBsd4HZW3em8HCN8oumgdDXeAfJTEpgbS4yw//QNtZ8LHOBk +uER6VqsRfrfV/uOwyB5czdTQiMLG+7us4lhxtjD3TlS8gcZGASu6UpevLeT7 +DX20VmOjZfLtrmwLW/ieWHXQdTkbrYXSUwPEbGHfs82lkWvZaDXrs8H0og0k +2x2hVFqwsS9OxHC0whqqt7+f1Qtlo1+DruM5UStQ3nOialUdG086JASdHzOH +1Hn/9afq2eipuzJp6JM58J+14P5oZOOp8fXjLk/Nof+e0M38Z2zMKuUeCsw1 +h2q+41lSrWwUxBf5ezeag2tm7MGpPjZW8w/GCF4xg6yayPUPFnOwgLik1edt +CmJ2LlwlcQ6eFNr2ItnOFGI/G+ocXMrB7UUnB42NTGGX0F/1NbIcdDooG/NN +xhQMNkfIXKVwUM2k2Wm6yQTaeveNJ+hy8OYv7ncnPROQXRTM3bSNgxVn8gSj +5Y2h0DQ6asSFg/Zdp64ZCBrD2uhU0wx3Dk7rE/zCowh2I2Xv2705WPjrza2u +5wiJbZPTvsEcfOwq+DgiBuHv1RiTqDgOzkQP1Me1A3QaZbQWFXNwgb8NN+o6 +B3YdKMy1KuGgr0wUJzeBA1Mld/0Gyji4ZqRO8IsvB6QY7X9073GQ8jS8oZXG +ARtRVZX7dRwsdug46prLhtp3RTtb33Nw6WO95S0XjcBavFInop2DNywUIuSj +jKB947MphY8cbLobKxTjagQT1b+TPD9zUGrloz1cZSPQubLmzq9+Dm6t27w4 +/zILajuNI1IGOThVJSA2GMsCa5ktsHqEg/VePq6uPizwP3GgJXySgyMBwwHn +NFgwUZeYLf+XgwFV8NtHhAXxMxd8q2c4KBx31Mz+FxOW6t3U9pjjYOOFKSeP +F0zI21M9OT9Pzu/7Qv7kO0z4H2ABxbg= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "PlotRange" -> {{0, 30}, {0., 0.07616590919164111}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8521,6 +8663,7 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8548,7 +8691,8 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.08145702771151381}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07616590919164111}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8556,9 +8700,8 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991335257344549*^9}, - CellLabel-> - "Out[255]=",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] + CellChangeTimes->{3.991335257344549*^9, 3.994258715033433*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"3421f5a3-ace0-4e15-9f5a-74ddb45521c8"] }, Open ]], Cell[CellGroupData[{ @@ -8610,67 +8753,72 @@ Cell[BoxData[ FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", - CellLabel-> - "In[256]:=",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], + CellLabel->"In[98]:=",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.39639867535232`*^-188\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 256, - 237, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335257395241*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.8082382366381676`*^-149\\\", \ +RowBox[{\\\"192330073695578600598678251250730514595\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"82\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1532417980825600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 98, + 17, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335257395241*^9, 3.994258715201874*^9}, CellLabel-> "During evaluation of \ -In[256]:=",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], +In[98]:=",ExpressionUUID->"389c414e-6ffe-417e-a9cb-641631ab86e7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.342395211692676`*^-192\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 256, - 238, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352574052296`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.447436606422428`*^-152\\\", \ +RowBox[{\\\"692388265304082962155241704502629852543\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"85\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6704730972160000000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 98, + 18, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335257395241*^9, 3.9942587152140703`*^9}, CellLabel-> "During evaluation of \ -In[256]:=",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], +In[98]:=",ExpressionUUID->"b99be89c-5a75-4acd-85d8-ba68b316483a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1800384500947783`*^-195\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 256, 239, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335257413231*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.6410761026799953`*^-154\\\", \ +RowBox[{\\\"257637673519649270217965438245428568131\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"89\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8303947407360000000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 98, + 19, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335257395241*^9, 3.994258715224361*^9}, CellLabel-> "During evaluation of \ -In[256]:=",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], +In[98]:=",ExpressionUUID->"37aa45be-1d12-4650-bd4e-86019e9c56d6"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 256, 240, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352574212303`*^9}, +during this calculation.\"", 2, 98, 20, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335257395241*^9, 3.994258715234558*^9}, CellLabel-> "During evaluation of \ -In[256]:=",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], +In[98]:=",ExpressionUUID->"403356c8-946a-4cdc-b4b1-e259190b2d92"], -Cell[BoxData["9.332200719005158`"], "Output", - CellChangeTimes->{3.991335263670042*^9}, - CellLabel-> - "Out[256]=",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +Cell[BoxData["9.974153456315841`"], "Output", + CellChangeTimes->{3.991335263670042*^9, 3.994258808510166*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"425a5a4a-7b4d-4690-9cc8-e65211d6cf5a"] }, Open ]], Cell[CellGroupData[{ @@ -8737,65 +8885,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849285445259*^9, - 3.991849289419262*^9}},ExpressionUUID->"6f0ad284-4db3-da47-b8dc-\ -45830eedfe9c"], + CellChangeTimes->{{3.991849285445259*^9, 3.991849289419262*^9}}, + CellLabel->"In[99]:=",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ -\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 257, 241, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335263710146*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4049669725958201`*^-201\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 99, + 21, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335263710146*^9, 3.99425880858505*^9}, CellLabel-> "During evaluation of \ -In[257]:=",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], +In[99]:=",ExpressionUUID->"3e0bf16f-ef36-4756-850b-ef6f3e8c4c81"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ -\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ -\\\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 257, 242, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352637201557`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.8268403547260976`*^-206\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 99, + 22, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335263710146*^9, 3.9942588085960693`*^9}, CellLabel-> "During evaluation of \ -In[257]:=",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], +In[99]:=",ExpressionUUID->"514b65c9-fbb5-47bb-a33a-aa14a69931f8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ -\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ -000\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 257, 243, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335263728153*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0423524101426077`*^-210\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 99, + 23, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335263710146*^9, 3.9942588086040707`*^9}, CellLabel-> "During evaluation of \ -In[257]:=",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], +In[99]:=",ExpressionUUID->"eb812c1b-a93c-44d7-a0e2-449691214e48"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 257, 244, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352637361546`*^9}, +during this calculation.\"", 2, 99, 24, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335263710146*^9, 3.994258808613216*^9}, CellLabel-> "During evaluation of \ -In[257]:=",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], +In[99]:=",ExpressionUUID->"02bab951-8952-4e12-aab8-cec08fea005b"], -Cell[BoxData["0.00046079539931050297`"], "Output", - CellChangeTimes->{3.991335268779545*^9}, - CellLabel-> - "Out[257]=",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +Cell[BoxData["0.537420481788461`"], "Output", + CellChangeTimes->{3.991335268779545*^9, 3.9942588202830353`*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"176047bd-304b-48a3-8ca8-ed7082ac884a"] }, Open ]], Cell[CellGroupData[{ @@ -8816,8 +8972,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8862,65 +9017,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849293744112*^9, - 3.9918492959939384`*^9}},ExpressionUUID->"b2dda819-6f34-5c49-bc62-\ -303d815946e5"], + CellChangeTimes->{{3.991849293744112*^9, 3.9918492959939384`*^9}}, + CellLabel-> + "In[100]:=",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ -\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 258, 245, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335268812542*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4049669725958201`*^-201\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 25, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335268812542*^9, 3.994258820335786*^9}, CellLabel-> "During evaluation of \ -In[258]:=",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], +In[100]:=",ExpressionUUID->"bb18a22f-dd83-4685-b0b4-052173df6c07"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ -\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ -\\\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 258, 246, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335268822542*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.8268403547260976`*^-206\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 26, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335268812542*^9, 3.994258820344614*^9}, CellLabel-> "During evaluation of \ -In[258]:=",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], +In[100]:=",ExpressionUUID->"8cd71a53-5ab4-48cb-92e8-23ade4880591"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ -\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ -000\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 258, 247, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335268831545*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0423524101426077`*^-210\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 27, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335268812542*^9, 3.9942588203541813`*^9}, CellLabel-> "During evaluation of \ -In[258]:=",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], +In[100]:=",ExpressionUUID->"9f1bf4a9-edd3-4ae8-b31b-cda930b0469e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 258, 248, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352688395576`*^9}, +during this calculation.\"", 2, 100, 28, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335268812542*^9, 3.99425882036347*^9}, CellLabel-> "During evaluation of \ -In[258]:=",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], +In[100]:=",ExpressionUUID->"031af37d-4adb-4f3d-8bf3-fdc371577b87"], -Cell[BoxData["5.104103620353258`"], "Output", - CellChangeTimes->{3.991335272704685*^9}, +Cell[BoxData["28.35790208177769`"], "Output", + CellChangeTimes->{3.991335272704685*^9, 3.9942588313020773`*^9}, CellLabel-> - "Out[258]=",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] + "Out[100]=",ExpressionUUID->"5b238c89-4317-4d0f-b88d-9fbea972d0d7"] }, Open ]], Cell[CellGroupData[{ @@ -8941,8 +9106,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8987,65 +9151,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918492993108063`*^9, - 3.991849303274454*^9}},ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-\ -1a175f609f7d"], + CellChangeTimes->{{3.9918492993108063`*^9, 3.991849303274454*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ -\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 259, 249, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352727386665`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4049669725958201`*^-201\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 29, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913352727386665`*^9, 3.994258831385515*^9}, CellLabel-> "During evaluation of \ -In[259]:=",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], +In[101]:=",ExpressionUUID->"a32e5eee-32a4-4794-8cfb-acee773a115f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ -\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ -\\\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 259, 250, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352727476673`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.8268403547260976`*^-206\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 30, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913352727386665`*^9, 3.994258831396318*^9}, CellLabel-> "During evaluation of \ -In[259]:=",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], +In[101]:=",ExpressionUUID->"819b597c-b6f0-4e2a-bd53-0482aa849c00"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ -\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ -000\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 259, 251, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352727556705`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0423524101426077`*^-210\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 31, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913352727386665`*^9, 3.9942588314071827`*^9}, CellLabel-> "During evaluation of \ -In[259]:=",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], +In[101]:=",ExpressionUUID->"7cdeddb1-e2e6-4563-9e85-18087e03e7ef"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 259, 252, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352727636833`*^9}, +during this calculation.\"", 2, 101, 32, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913352727386665`*^9, 3.9942588314171124`*^9}, CellLabel-> "During evaluation of \ -In[259]:=",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], +In[101]:=",ExpressionUUID->"ccd58130-922b-4f0e-83f3-afe7f312aaae"], -Cell[BoxData["18.832858301324727`"], "Output", - CellChangeTimes->{3.991335275154251*^9}, +Cell[BoxData["3.7842024857143226`"], "Output", + CellChangeTimes->{3.991335275154251*^9, 3.994258840627014*^9}, CellLabel-> - "Out[259]=",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] + "Out[101]=",ExpressionUUID->"39ddb72d-de29-47e4-9bb1-4a281090532b"] }, Open ]], Cell[CellGroupData[{ @@ -9054,22 +9228,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918493065908413`*^9, - 3.9918493103344364`*^9}},ExpressionUUID->"69dd09d9-152e-3e4d-9517-\ -4de4791db2f4"], - -Cell[BoxData["0.00004699917922538678`"], "Output", - CellChangeTimes->{3.991335275186266*^9}, + CellChangeTimes->{{3.9918493065908413`*^9, 3.9918493103344364`*^9}}, CellLabel-> - "Out[260]=",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] + "In[102]:=",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], + +Cell[BoxData["0.051878807093842225`"], "Output", + CellChangeTimes->{3.991335275186266*^9, 3.994258840675416*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"b7171765-f7bf-4e8e-8418-05f88dab1ff3"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.991849314761318*^9, 3.9918493173333225`*^9}, - 3.991924798063732*^9},ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-\ -749729cd7104"], + 3.991924798063732*^9}, + CellLabel-> + "In[103]:=",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], Cell[CellGroupData[{ @@ -9093,12 +9268,12 @@ Cell[BoxData[ RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellChangeTimes->{{3.99312673568116*^9, 3.993126746164192*^9}}, CellLabel-> - "In[262]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], + "In[104]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], -Cell[BoxData["5.744985073726737`"], "Output", - CellChangeTimes->{3.9913352752142563`*^9}, +Cell[BoxData["5.053008978740305`"], "Output", + CellChangeTimes->{3.9913352752142563`*^9, 3.9942588407002487`*^9}, CellLabel-> - "Out[262]=",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] + "Out[104]=",ExpressionUUID->"a9b585a5-ed74-4831-9b1a-0ba507db4c06"] }, Open ]], Cell[CellGroupData[{ @@ -9108,12 +9283,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[264]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], + "In[105]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], -Cell[BoxData["1.564995573098557`"], "Output", - CellChangeTimes->{3.9913352752482567`*^9}, +Cell[BoxData["2.7102758538011495`"], "Output", + CellChangeTimes->{3.9913352752482567`*^9, 3.994258840715292*^9}, CellLabel-> - "Out[264]=",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] + "Out[105]=",ExpressionUUID->"479567f4-95bd-405f-b239-244ced4ec0d9"] }, Open ]], Cell[CellGroupData[{ @@ -9123,12 +9298,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[267]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], + "In[106]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], -Cell[BoxData["8.990876207899632`"], "Output", - CellChangeTimes->{3.9913352753089123`*^9}, +Cell[BoxData["13.695048224120255`"], "Output", + CellChangeTimes->{3.9913352753089123`*^9, 3.9942588407312*^9}, CellLabel-> - "Out[267]=",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] + "Out[106]=",ExpressionUUID->"aaf9defe-b480-401c-bb37-e79f2328647d"] }, Open ]], Cell[CellGroupData[{ @@ -9318,12 +9493,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[268]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], + "In[107]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], -Cell[BoxData["0.07167004636648908`"], "Output", - CellChangeTimes->{3.9913352753341656`*^9}, +Cell[BoxData["0.007781946940520332`"], "Output", + CellChangeTimes->{3.9913352753341656`*^9, 3.994258840749159*^9}, CellLabel-> - "Out[268]=",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] + "Out[107]=",ExpressionUUID->"141914f0-1b31-40c8-aec7-8fa069c7894a"] }, Open ]], Cell[CellGroupData[{ @@ -9337,12 +9512,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[269]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], + "In[108]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], -Cell[BoxData["3.3103666491187544`"], "Output", - CellChangeTimes->{3.9913352754296722`*^9}, +Cell[BoxData["10.046176593900316`"], "Output", + CellChangeTimes->{3.9913352754296722`*^9, 3.994258840934329*^9}, CellLabel-> - "Out[269]=",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] + "Out[108]=",ExpressionUUID->"bdc7da91-a4ad-431b-be3c-faa39e29d99f"] }, Open ]], Cell[CellGroupData[{ @@ -9534,12 +9709,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[270]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], + "In[109]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], -Cell[BoxData["0.012832691268660865`"], "Output", - CellChangeTimes->{3.9913352754426765`*^9}, +Cell[BoxData["0.07145813012619591`"], "Output", + CellChangeTimes->{3.9913352754426765`*^9, 3.994258840954812*^9}, CellLabel-> - "Out[270]=",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] + "Out[109]=",ExpressionUUID->"4be4ae0a-5e77-4cba-abf9-3d23dbb943ca"] }, Open ]], Cell[CellGroupData[{ @@ -9553,12 +9728,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[271]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], + "In[110]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], -Cell[BoxData["7.823229443917166`"], "Output", - CellChangeTimes->{3.991335275540678*^9}, +Cell[BoxData["3.315271627149496`"], "Output", + CellChangeTimes->{3.991335275540678*^9, 3.9942588411482487`*^9}, CellLabel-> - "Out[271]=",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] + "Out[110]=",ExpressionUUID->"8ba1fc2b-f805-4798-83e3-3087bd52d1d3"] }, Open ]], Cell[CellGroupData[{ @@ -9651,12 +9826,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[272]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], + "In[111]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], -Cell[BoxData["0.7884625602161153`"], "Output", - CellChangeTimes->{3.9913352755566807`*^9}, +Cell[BoxData["0.0485674311961468`"], "Output", + CellChangeTimes->{3.9913352755566807`*^9, 3.994258841165696*^9}, CellLabel-> - "Out[272]=",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] + "Out[111]=",ExpressionUUID->"6682299a-2c01-45b1-94d1-196135a91d49"] }, Open ]], Cell[CellGroupData[{ @@ -9746,12 +9921,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[273]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], + "In[112]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], -Cell[BoxData["0.21153743978388478`"], "Output", - CellChangeTimes->{3.991335275581682*^9}, +Cell[BoxData["0.9514325688038533`"], "Output", + CellChangeTimes->{3.991335275581682*^9, 3.994258841179873*^9}, CellLabel-> - "Out[273]=",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] + "Out[112]=",ExpressionUUID->"ff10ecb3-7b19-4445-a330-0f4f30af28d5"] }, Open ]], Cell[CellGroupData[{ @@ -9874,12 +10049,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[274]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], + "In[113]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], -Cell[BoxData["0.16678935135356415`"], "Output", - CellChangeTimes->{3.9913352756087036`*^9}, +Cell[BoxData["0.046208635823154355`"], "Output", + CellChangeTimes->{3.9913352756087036`*^9, 3.994258841198889*^9}, CellLabel-> - "Out[274]=",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] + "Out[113]=",ExpressionUUID->"52b7d852-482b-409c-81b6-9206a23a2b1d"] }, Open ]], Cell[CellGroupData[{ @@ -9941,68 +10116,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849332835844*^9},ExpressionUUID->"d6aa822f-4140-174a-8e29-\ -c889dba5c0d8"], + CellChangeTimes->{3.991849332835844*^9}, + CellLabel-> + "In[114]:=",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 275, - 253, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335275636673*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.7377014036240005`*^-207\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 114, + 33, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335275636673*^9, 3.9942588412212877`*^9}, CellLabel-> "During evaluation of \ -In[275]:=",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], +In[114]:=",ExpressionUUID->"3c14f35f-f236-44ae-a380-5700e3689bd9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 275, - 254, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352756456738`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.60453897487146`*^-212\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 114, + 34, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335275636673*^9, 3.994258841230319*^9}, CellLabel-> "During evaluation of \ -In[275]:=",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], +In[114]:=",ExpressionUUID->"ef271dab-7685-46da-b08a-704a79686727"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 275, - 255, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352756546745`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.547181189066339`*^-216\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 114, + 35, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335275636673*^9, 3.9942588412395277`*^9}, CellLabel-> "During evaluation of \ -In[275]:=",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], +In[114]:=",ExpressionUUID->"9e05f686-58dc-4f5d-a9f4-575f4449937d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 275, 256, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335275662676*^9}, +during this calculation.\"", 2, 114, 36, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335275636673*^9, 3.9942588412478247`*^9}, CellLabel-> "During evaluation of \ -In[275]:=",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], +In[114]:=",ExpressionUUID->"0c76eced-8973-4cdc-8a06-738af00de795"], -Cell[BoxData["3.3103666491187513`"], "Output", - CellChangeTimes->{3.991335279487499*^9}, +Cell[BoxData["10.046176593900304`"], "Output", + CellChangeTimes->{3.991335279487499*^9, 3.9942588492285147`*^9}, CellLabel-> - "Out[275]=",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] + "Out[114]=",ExpressionUUID->"0a78b5ad-2f6e-4b2d-b4d3-cdff0ff385b1"] }, Open ]], Cell[CellGroupData[{ @@ -10064,68 +10246,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918493361354027`*^9},ExpressionUUID->"46f3f057-22eb-c143-af7a-\ -23ddab00799c"], + CellChangeTimes->{3.9918493361354027`*^9}, + CellLabel-> + "In[115]:=",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 276, - 257, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335279522499*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.7377014036240005`*^-207\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 115, + 37, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335279522499*^9, 3.994258849282959*^9}, CellLabel-> "During evaluation of \ -In[276]:=",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], +In[115]:=",ExpressionUUID->"5b5befa6-075c-42a1-9580-7635d4590d0f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 276, - 258, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335279532501*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.60453897487146`*^-212\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 115, + 38, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335279522499*^9, 3.994258849293045*^9}, CellLabel-> "During evaluation of \ -In[276]:=",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], +In[115]:=",ExpressionUUID->"ef5dfd63-308c-408a-854c-b8814a072d87"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 276, - 259, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352795405006`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.547181189066339`*^-216\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 115, + 39, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335279522499*^9, 3.9942588493021317`*^9}, CellLabel-> "During evaluation of \ -In[276]:=",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], +In[115]:=",ExpressionUUID->"91f4c6e7-042f-4d3e-b1af-52b09ad77e87"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 276, 260, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352795487957`*^9}, +during this calculation.\"", 2, 115, 40, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335279522499*^9, 3.994258849314135*^9}, CellLabel-> "During evaluation of \ -In[276]:=",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], +In[115]:=",ExpressionUUID->"ee35ade5-ea4b-46f4-930e-60dd8145a4ca"], -Cell[BoxData["7.82322944391716`"], "Output", - CellChangeTimes->{3.991335283631424*^9}, +Cell[BoxData["3.3152716271494924`"], "Output", + CellChangeTimes->{3.991335283631424*^9, 3.994258857155199*^9}, CellLabel-> - "Out[276]=",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] + "Out[115]=",ExpressionUUID->"f7152761-7641-4b7c-a8a6-08b967b2290d"] }, Open ]], Cell[CellGroupData[{ @@ -10183,94 +10372,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918494105860615`*^9},ExpressionUUID->"0137ed47-cd78-284a-910a-\ -31d165f1571c"], + CellChangeTimes->{3.9918494105860615`*^9}, + CellLabel-> + "In[116]:=",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf -pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg -4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E -17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf -FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 -HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW -tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ -1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 -wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF -0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f -c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz -VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO -acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy -idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm -N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 -/P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 -Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP -/aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d -Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE -/SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS -PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 -alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO -z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs -wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 -td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 -/J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA -c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO -o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp -0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH -zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH -xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid -s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF -8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf -oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg -QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE -GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 -f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ -f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB -ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR -bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB -bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG -kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE -yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer -z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO -zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn -ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo -at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W -YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb -YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 -Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD -TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL -YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk -iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz -xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI -MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ -E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 -s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 -N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG -vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF -dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc -D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy -YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA -KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK -P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK -bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M -NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR -EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp -PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC -C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 -n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V -5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k -I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb -jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF -DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 -d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 -OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs -5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk8Fd8bB3BZs5Ule3xlq6tsl0TJeYqIkKVkibjuTJLs6UbRpp2Q0qKI +FtllKyRFJflFSSvZ3Zt9uWNp0e/4Y17zer/OzGee85w5ZwUj2Jng5eHh4eBr +4R76TndlRcs788R5/g2rc9nIfPTuWoZlHgrp8fJfcFe6cYqGZTWqO0SML9iR ++T9BMcOX6PczpdY12MWs2DoByybU8/SYhC72uVfytbE579GmgynZethPWkJv +/6G3oVeDrjcNsAe/NR45XPUFhWo0cAyxFfvVPact2tEKGifRGHvb2BHT8KZO +RPFUXDbFrvkzKMrK6UbtpUYTZtifjstFlwf1opXbfR8C9qig5SCX3o/+fTOr +tsQWvBjibjgzgLKYr2k22CqStxpCqzjo3BzPpD22g9L0/VGLYfQu9niyGzaZ +oSars3gUGSc1BHhjx2puj9vfNIbmR2puMbG/yH00iMiZQAltT6TDsJkeAfsu +X5xE42drXA9jj6fx3HkUNIWmv4Rxj2EvVtORmKBTqC13ECVhpzDrrCVkptH7 +PQUj17FVH7jH6s1Mo+dSatOZ2CZrTo8eqJpFkb0KcuXY/sadTYMWf9CpIIfr +Xdhc1kF+Ea2/qNDxyvJh7GNVoma0xfMokRb/awb7Gpjk7m36h7q2J76SyMP1 +3WuwDMtZBCY3ObetsHNeXe46rsQLHW5VMzuwx9neR5Iu8oKJDeT6YR/RpkqK +gvjgUISv2gnslMIV6mN0AUhbKuhUh/2tZbhmPksACiKDYz9iq05WeCyREYTD +iRcXD2DnGTkk68wIgk9Rj7ZIPhvVP4laFFi1GG4/5C9yxabqWjs5FmIwtN6l +mqeAjaTsxCSia8SAz2nzaQVs/Y+WIG4qDhsUWyrp2AF9ZRkGukugX/uNH4kd +wtukv1FMAqI8NpR9wO5XK5iIm5aElx4HXZ8V4v6QjcLNhlLQH3Wk8Qc2b+7A +CvlQKdh1ftXDeWxVw/+cc4akYNIk9D4qYiMPi8RH77qkoSH4fcYr7Ga/sHC5 +tzJg3mx8hVPMRj8eJFzwWSwLzPP1JUsesdHwUE7Wwy2yINQ9b7YWWySit3VD +LR4/Gn3pJLblqR1GPmVycPNilpFmCRtV3jWmstMV4GLImmNHStnobv+vyPUR +yvDHyVU1uoKNtu488yM8XxmE/JxpudjD9dJW+QPK4J7uc+k7ttHdNTKq7iog +3FsWtvEx7ifDu0TA/D/gNLtcFXjCRpNjXYc4J1XBPLTH6UElG0kfsCwtsVeD +QZRzW7+GjQbuivg7BqgBb4ritkDsx+0tSiOn1aDasXhHNvZuO6+TWrVqUNW8 +I3bFM1zf6kjn63R1yMg9Q5evxd8ffDAeI6cBEm7mknIv2GjHXlEd225NMG3Q +LfN4xUYocid9119NUNFpzMjA1o5LX8dU0IL+Lv6BAWyeLMPNMU5a0L3N82jE +azbK/+G569FzLeBZlNl5uQHvT9e844qZKyHEcmt4byOuz9L+0yCDBrdfFLa/ +bGajLJfU7zMxNEixrf8r28JGCYzuLv6bNDBhJbP8sZnHDg6ptNJAzXpPtNh7 +NpKsvsXjYqENeWGtZW4f8P9jOKpdpb4auGmj84va2EhJ7VLshb41sCPBm5P6 +jY2qz3Npc7w6QNEZin+wd0+5fyRX6ICzknK5z3c2ul2vQdvsrQNaj55qr25n +I7W9lR9mP+tAjOj/Fr/swPPN69ck3+pCgzdcF+tmI2UlFVLVXR/WasYvG2Kz +0Zp7EWK/ER1KeiNr+6fZiME8Sek40GGRTPCU5wzer+rJP3x20+FY6asTH7D5 +MguLXrHosFzoenntLN5vtwd3JBfTwSVtKOzOL3yeXvO5RVM3BPtDu1DEPF7f +C3a6boJGMNr6Q2+PIAfdCdNwLGtaC2I/Bctt5TioJRKtO3XPFDYzi86MAwet +8G5z8ArcCBaW+7+zQjiI+FdeoHwYwKREL7g+k4Pkhh4LyTE2g094RTPeqSjC +0Kw9WdsSyloqPOZUfiLGyJ8G6cEtINyWnnmf8RPlbw4XSm+2Bnm5/0rjH/1E +d7kBz/NSbIB1tU9Fj28QzW6S/1997DZIfxFSauA7iDp4+Ca6fe0hvkTooEb9 +IApaHpx4XH079PlLyztrDaGCfQ21V+IcYeuH6Urt1CEUNaUws3qfE3RO1jTu +ERxGlK2V6+s9zsDLvS6sGTeMTD2TNvU7ucDrsUvWL4VG0AeFWwH1hjtAwuaQ +6vjpEaR4/2R19qqdIKSJ/HfKjqLHXdp2DuKukKlzY0rxzihS+Ti+N3LEFZQq +vQ/464whwytJeVlduyAh+twB7psxdIt/Sje5zg1+x17V/Kg3jso36X2Le+IO +h3hlGzNOjKNr685L/snxgNqnK55vaRtHzd/vnTa86Am9yxmbNqhPoDL7NI2Q +Y7th8NyyEGfWBJo44MITxPSCVOlE2++vJxBlRfMftfAG8WZO4nGZSZQ98nU2 +3HgPmMYEOnP8J5HbnXt+XmI+MP98FT2wbBKVPNq2h++MD3SopqZ5CU4hU6UP +c+fmfGC4VUL7+PYppN6199v7fb4QlnVip2/KFOoT3b89rdcX3m3kmDt+n0It +CQ5+1jsZEHjsxjypwEUprHTRgy0MMBw/T7u8i4uqa/7N+dn4we6VBXvbErho +6W44Y1jpB9c7Pn0qreYi1WWvm5dX+0Gjmolo8FMu0m+ylxes8YPD1TItq2q4 +yNnM8+GX537AkHsucvMZzl8e+fboGz+wU10PUS+4SLEjd2nDFz+Y+DuboN7A +RRrectd2z/jBNWfDr6qtXGTqM5odZ8SEy2bFW56xuej+9fFwB2Mm3BU20HPm +cNGy1klzORMmrBJ4UtSHPbpl5mP2Bib8/XgyevEgF59fPIuaNjPhII2ls22Y +i5bMSLpLOTEh4+T90epxLuqLXyucfoAJkrRj1k5zXJRQdWTf4/tMSK88m2gi +TKED9FRTVjYTxn/whRZg2z0sFjbJYcKIC8FRF6GQSOrAw4p8JtTFJ90UF6VQ +XJjjYHkpE+a1Lkm2i1HoCE1jf9kLnOfvuIaQoFBA6tvARz+YkG+cdWelHIVs +lgyYhXUx4eYbH7NE7FVxPOL0Hib4y7btn8UeCFubX9zPhAKhjLOv5Snk65A+ +UjTMBIMxqsJHkUJuAuFBhb+YYPTkQmeMMoWswxVD8mQJ4L7n6d+nTqEX6adt +k+UJmLDxLWzCNmua1GApEqAhrDenq0Ehfc23Xy1UCLjzrEFkElvhc7TFd00C +7N5Oq4dpUWhofYesyFoCBMhUFQ8ahS7xZjzd60LA56S46gZdPH89sWv2Own4 +7XPbWUmPQqc8WWGGuwiwlOAnD2CzSh1X/vMg4CudxS+hj+snFyVdZRCw5Nku +le0GFDJsZDBfhhLwKLnvcakhhT4naYqqJxLg41ikqWxCoQIk7s9JIkDKSrbb +A/vUCLc+/zIB2qGraNew6Tb1MSapBJT+XrVH0pRCCTx+k/a3CeAVOuU7j20V +nPGVlUdAe/6qihcbKKSsfNbYvIAAr5XVJnPY3Mbgy3xFBIhmM6z0zCiUqYXs +E0oI4Ai+FLiB/bejozarkgCm60/pgI0UKrVTyn7XQECaJyK55hS68ItXIKWR +ANbsr7vqiEKM7EFf9yb8/k6LYGdsCf5Kpb5mAghPz/sF2IFVbpfmPhFQ97f1 +li9QSF37aqRGP+5/z/Hc4k0U+vX5aOvPAQLs1yWmf8VuiSP0CzkE9Kg8Vlm0 +mUIx3UaDpsMEzEevr3HA/nat1Wv7FAEmUa7H+7CThSS3RC0i4Z71ZalfFhSq +nuzwjOAjocXT67CKJYXYHTlhQQIkRInwOWzGNiu1zGAIkzCdUQdnsQd8WL9t +JUkw0XPaJr4F12+3RWqLNAmqz3VVdbA3rJOiIRkSiPeFDDvsRPE8V0MFEj6k +ndA/tzBe2VmstIKEG03Vo7+xyXt5DTLqJEjsF9KXs8LPJx7uXKpJwsVf9T8M +sAdIaXF+GgmF/SdOEQvj0tb+w/okHPSOHH+JXTkvHTtAJ0FBvT6tHbv/Z9eV +LiMS+js9yyex19dG1X00ISFPcJeBsjWF+gILVJ4CCbkSfFb7sZe4Ra+t2ExC +zhut3UexTS222hVb4jyl8M4E7ASFnsP3tpLwTOGQThH2Y/7CxHRbEjzaV84+ +w+4di35w3Y4EOmNKrxnb5JVMW7wjCfcN3g0MYTOKe4bOOJNw+NRnYg47Pq2Q +98QOEnjzx5wEt1KoJ8xGP9KNBI3uTaEq2OLestYhHiTM/4y8S8M2sen1CthN +gmBdkaURdvx/Ry94+5DwXk+7yRr7sYhtphuDBKqUKHFcyKNknzgzcT9Hbgm5 +L+R19zbbkSRoK79v8FnIayoasPLH65H9d3ovNqPi6F8IIEFZSi05aCE/03bZ +hkASiubMbkQs5MfLrV4bREKliv3SqIV8Vt8mvRASprydJmKwxZjFbrQwErLL +t8JJ7HXbY4LVI3B/gf7n9EL++m2nlSNxv4zFNc9jX9SUvyXHIuHh2JfKi9jl +Ev0lklEkyPWmPE3A7v5d3Ch6BK/XPdBJXMhnx3QLxJCweOi7cBK28Ydts/9i +SbCLI10W/H+JiPA3 "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -10284,106 +10473,105 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf -pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg -4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E -17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf -FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 -HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW -tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ -1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 -wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF -0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f -c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz -VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO -acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy -idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm -N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 -/P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 -Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP -/aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d -Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE -/SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS -PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 -alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO -z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs -wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 -td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 -/J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA -c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO -o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp -0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH -zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH -xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid -s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF -8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf -oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg -QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE -GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 -f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ -f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB -ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR -bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB -bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG -kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE -yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer -z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO -zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn -ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo -at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W -YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb -YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 -Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD -TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL -YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk -iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz -xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI -MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ -E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 -s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 -N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG -vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF -dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc -D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy -YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA -KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK -P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK -bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M -NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR -EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp -PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC -C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 -n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V -5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k -I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb -jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF -DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 -d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 -OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs -5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= +1:eJwV1Hk8Fd8bB3BZs5Ule3xlq6tsl0TJeYqIkKVkibjuTJLs6UbRpp2Q0qKI +FtllKyRFJflFSSvZ3Zt9uWNp0e/4Y17zer/OzGee85w5ZwUj2Jng5eHh4eBr +4R76TndlRcs788R5/g2rc9nIfPTuWoZlHgrp8fJfcFe6cYqGZTWqO0SML9iR ++T9BMcOX6PczpdY12MWs2DoByybU8/SYhC72uVfytbE579GmgynZethPWkJv +/6G3oVeDrjcNsAe/NR45XPUFhWo0cAyxFfvVPact2tEKGifRGHvb2BHT8KZO +RPFUXDbFrvkzKMrK6UbtpUYTZtifjstFlwf1opXbfR8C9qig5SCX3o/+fTOr +tsQWvBjibjgzgLKYr2k22CqStxpCqzjo3BzPpD22g9L0/VGLYfQu9niyGzaZ +oSars3gUGSc1BHhjx2puj9vfNIbmR2puMbG/yH00iMiZQAltT6TDsJkeAfsu +X5xE42drXA9jj6fx3HkUNIWmv4Rxj2EvVtORmKBTqC13ECVhpzDrrCVkptH7 +PQUj17FVH7jH6s1Mo+dSatOZ2CZrTo8eqJpFkb0KcuXY/sadTYMWf9CpIIfr +Xdhc1kF+Ea2/qNDxyvJh7GNVoma0xfMokRb/awb7Gpjk7m36h7q2J76SyMP1 +3WuwDMtZBCY3ObetsHNeXe46rsQLHW5VMzuwx9neR5Iu8oKJDeT6YR/RpkqK +gvjgUISv2gnslMIV6mN0AUhbKuhUh/2tZbhmPksACiKDYz9iq05WeCyREYTD +iRcXD2DnGTkk68wIgk9Rj7ZIPhvVP4laFFi1GG4/5C9yxabqWjs5FmIwtN6l +mqeAjaTsxCSia8SAz2nzaQVs/Y+WIG4qDhsUWyrp2AF9ZRkGukugX/uNH4kd +wtukv1FMAqI8NpR9wO5XK5iIm5aElx4HXZ8V4v6QjcLNhlLQH3Wk8Qc2b+7A +CvlQKdh1ftXDeWxVw/+cc4akYNIk9D4qYiMPi8RH77qkoSH4fcYr7Ga/sHC5 +tzJg3mx8hVPMRj8eJFzwWSwLzPP1JUsesdHwUE7Wwy2yINQ9b7YWWySit3VD +LR4/Gn3pJLblqR1GPmVycPNilpFmCRtV3jWmstMV4GLImmNHStnobv+vyPUR +yvDHyVU1uoKNtu488yM8XxmE/JxpudjD9dJW+QPK4J7uc+k7ttHdNTKq7iog +3FsWtvEx7ifDu0TA/D/gNLtcFXjCRpNjXYc4J1XBPLTH6UElG0kfsCwtsVeD +QZRzW7+GjQbuivg7BqgBb4ritkDsx+0tSiOn1aDasXhHNvZuO6+TWrVqUNW8 +I3bFM1zf6kjn63R1yMg9Q5evxd8ffDAeI6cBEm7mknIv2GjHXlEd225NMG3Q +LfN4xUYocid9119NUNFpzMjA1o5LX8dU0IL+Lv6BAWyeLMPNMU5a0L3N82jE +azbK/+G569FzLeBZlNl5uQHvT9e844qZKyHEcmt4byOuz9L+0yCDBrdfFLa/ +bGajLJfU7zMxNEixrf8r28JGCYzuLv6bNDBhJbP8sZnHDg6ptNJAzXpPtNh7 +NpKsvsXjYqENeWGtZW4f8P9jOKpdpb4auGmj84va2EhJ7VLshb41sCPBm5P6 +jY2qz3Npc7w6QNEZin+wd0+5fyRX6ICzknK5z3c2ul2vQdvsrQNaj55qr25n +I7W9lR9mP+tAjOj/Fr/swPPN69ck3+pCgzdcF+tmI2UlFVLVXR/WasYvG2Kz +0Zp7EWK/ER1KeiNr+6fZiME8Sek40GGRTPCU5wzer+rJP3x20+FY6asTH7D5 +MguLXrHosFzoenntLN5vtwd3JBfTwSVtKOzOL3yeXvO5RVM3BPtDu1DEPF7f +C3a6boJGMNr6Q2+PIAfdCdNwLGtaC2I/Bctt5TioJRKtO3XPFDYzi86MAwet +8G5z8ArcCBaW+7+zQjiI+FdeoHwYwKREL7g+k4Pkhh4LyTE2g094RTPeqSjC +0Kw9WdsSyloqPOZUfiLGyJ8G6cEtINyWnnmf8RPlbw4XSm+2Bnm5/0rjH/1E +d7kBz/NSbIB1tU9Fj28QzW6S/1997DZIfxFSauA7iDp4+Ca6fe0hvkTooEb9 +IApaHpx4XH079PlLyztrDaGCfQ21V+IcYeuH6Urt1CEUNaUws3qfE3RO1jTu +ERxGlK2V6+s9zsDLvS6sGTeMTD2TNvU7ucDrsUvWL4VG0AeFWwH1hjtAwuaQ +6vjpEaR4/2R19qqdIKSJ/HfKjqLHXdp2DuKukKlzY0rxzihS+Ti+N3LEFZQq +vQ/464whwytJeVlduyAh+twB7psxdIt/Sje5zg1+x17V/Kg3jso36X2Le+IO +h3hlGzNOjKNr685L/snxgNqnK55vaRtHzd/vnTa86Am9yxmbNqhPoDL7NI2Q +Y7th8NyyEGfWBJo44MITxPSCVOlE2++vJxBlRfMftfAG8WZO4nGZSZQ98nU2 +3HgPmMYEOnP8J5HbnXt+XmI+MP98FT2wbBKVPNq2h++MD3SopqZ5CU4hU6UP +c+fmfGC4VUL7+PYppN6199v7fb4QlnVip2/KFOoT3b89rdcX3m3kmDt+n0It +CQ5+1jsZEHjsxjypwEUprHTRgy0MMBw/T7u8i4uqa/7N+dn4we6VBXvbErho +6W44Y1jpB9c7Pn0qreYi1WWvm5dX+0Gjmolo8FMu0m+ylxes8YPD1TItq2q4 +yNnM8+GX537AkHsucvMZzl8e+fboGz+wU10PUS+4SLEjd2nDFz+Y+DuboN7A +RRrectd2z/jBNWfDr6qtXGTqM5odZ8SEy2bFW56xuej+9fFwB2Mm3BU20HPm +cNGy1klzORMmrBJ4UtSHPbpl5mP2Bib8/XgyevEgF59fPIuaNjPhII2ls22Y +i5bMSLpLOTEh4+T90epxLuqLXyucfoAJkrRj1k5zXJRQdWTf4/tMSK88m2gi +TKED9FRTVjYTxn/whRZg2z0sFjbJYcKIC8FRF6GQSOrAw4p8JtTFJ90UF6VQ +XJjjYHkpE+a1Lkm2i1HoCE1jf9kLnOfvuIaQoFBA6tvARz+YkG+cdWelHIVs +lgyYhXUx4eYbH7NE7FVxPOL0Hib4y7btn8UeCFubX9zPhAKhjLOv5Snk65A+ +UjTMBIMxqsJHkUJuAuFBhb+YYPTkQmeMMoWswxVD8mQJ4L7n6d+nTqEX6adt +k+UJmLDxLWzCNmua1GApEqAhrDenq0Ehfc23Xy1UCLjzrEFkElvhc7TFd00C +7N5Oq4dpUWhofYesyFoCBMhUFQ8ahS7xZjzd60LA56S46gZdPH89sWv2Own4 +7XPbWUmPQqc8WWGGuwiwlOAnD2CzSh1X/vMg4CudxS+hj+snFyVdZRCw5Nku +le0GFDJsZDBfhhLwKLnvcakhhT4naYqqJxLg41ikqWxCoQIk7s9JIkDKSrbb +A/vUCLc+/zIB2qGraNew6Tb1MSapBJT+XrVH0pRCCTx+k/a3CeAVOuU7j20V +nPGVlUdAe/6qihcbKKSsfNbYvIAAr5XVJnPY3Mbgy3xFBIhmM6z0zCiUqYXs +E0oI4Ai+FLiB/bejozarkgCm60/pgI0UKrVTyn7XQECaJyK55hS68ItXIKWR +ANbsr7vqiEKM7EFf9yb8/k6LYGdsCf5Kpb5mAghPz/sF2IFVbpfmPhFQ97f1 +li9QSF37aqRGP+5/z/Hc4k0U+vX5aOvPAQLs1yWmf8VuiSP0CzkE9Kg8Vlm0 +mUIx3UaDpsMEzEevr3HA/nat1Wv7FAEmUa7H+7CThSS3RC0i4Z71ZalfFhSq +nuzwjOAjocXT67CKJYXYHTlhQQIkRInwOWzGNiu1zGAIkzCdUQdnsQd8WL9t +JUkw0XPaJr4F12+3RWqLNAmqz3VVdbA3rJOiIRkSiPeFDDvsRPE8V0MFEj6k +ndA/tzBe2VmstIKEG03Vo7+xyXt5DTLqJEjsF9KXs8LPJx7uXKpJwsVf9T8M +sAdIaXF+GgmF/SdOEQvj0tb+w/okHPSOHH+JXTkvHTtAJ0FBvT6tHbv/Z9eV +LiMS+js9yyex19dG1X00ISFPcJeBsjWF+gILVJ4CCbkSfFb7sZe4Ra+t2ExC +zhut3UexTS222hVb4jyl8M4E7ASFnsP3tpLwTOGQThH2Y/7CxHRbEjzaV84+ +w+4di35w3Y4EOmNKrxnb5JVMW7wjCfcN3g0MYTOKe4bOOJNw+NRnYg47Pq2Q +98QOEnjzx5wEt1KoJ8xGP9KNBI3uTaEq2OLestYhHiTM/4y8S8M2sen1CthN +gmBdkaURdvx/Ry94+5DwXk+7yRr7sYhtphuDBKqUKHFcyKNknzgzcT9Hbgm5 +L+R19zbbkSRoK79v8FnIayoasPLH65H9d3ovNqPi6F8IIEFZSi05aCE/03bZ +hkASiubMbkQs5MfLrV4bREKliv3SqIV8Vt8mvRASprydJmKwxZjFbrQwErLL +t8JJ7HXbY4LVI3B/gf7n9EL++m2nlSNxv4zFNc9jX9SUvyXHIuHh2JfKi9jl +Ev0lklEkyPWmPE3A7v5d3Ch6BK/XPdBJXMhnx3QLxJCweOi7cBK28Ydts/9i +SbCLI10W/H+JiPA3 "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6152015704378874, - 1.5607999649251942`}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6152015704378887}, + "PlotRange" -> {{0, 180}, {0.7396446373677055, 1.330216718466846}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7396446373677071}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -10395,21 +10583,20 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6152015704378874, - 1.5607999649251942`}}, + "PlotRange" -> {{0, 180}, {0.7396446373677055, 1.330216718466846}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6152015704378887}, + "AxesOrigin" -> {0, 0.7396446373677071}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10423,104 +10610,104 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf -pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg -4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E -17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf -FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 -HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW -tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ -1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 -wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF -0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f -c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz -VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO -acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy -idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm -N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 -/P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 -Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP -/aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d -Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE -/SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS -PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 -alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO -z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs -wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 -td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 -/J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA -c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO -o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp -0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH -zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH -xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid -s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF -8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf -oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg -QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE -GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 -f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ -f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB -ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR -bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB -bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG -kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE -yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer -z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO -zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn -ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo -at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W -YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb -YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 -Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD -TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL -YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk -iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz -xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI -MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ -E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 -s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 -N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG -vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF -dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc -D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy -YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA -KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK -P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK -bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M -NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR -EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp -PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC -C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 -n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V -5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k -I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb -jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF -DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 -d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 -OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs -5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= +1:eJwV1Hk8Fd8bB3BZs5Ule3xlq6tsl0TJeYqIkKVkibjuTJLs6UbRpp2Q0qKI +FtllKyRFJflFSSvZ3Zt9uWNp0e/4Y17zer/OzGee85w5ZwUj2Jng5eHh4eBr +4R76TndlRcs788R5/g2rc9nIfPTuWoZlHgrp8fJfcFe6cYqGZTWqO0SML9iR ++T9BMcOX6PczpdY12MWs2DoByybU8/SYhC72uVfytbE579GmgynZethPWkJv +/6G3oVeDrjcNsAe/NR45XPUFhWo0cAyxFfvVPact2tEKGifRGHvb2BHT8KZO +RPFUXDbFrvkzKMrK6UbtpUYTZtifjstFlwf1opXbfR8C9qig5SCX3o/+fTOr +tsQWvBjibjgzgLKYr2k22CqStxpCqzjo3BzPpD22g9L0/VGLYfQu9niyGzaZ +oSars3gUGSc1BHhjx2puj9vfNIbmR2puMbG/yH00iMiZQAltT6TDsJkeAfsu +X5xE42drXA9jj6fx3HkUNIWmv4Rxj2EvVtORmKBTqC13ECVhpzDrrCVkptH7 +PQUj17FVH7jH6s1Mo+dSatOZ2CZrTo8eqJpFkb0KcuXY/sadTYMWf9CpIIfr +Xdhc1kF+Ea2/qNDxyvJh7GNVoma0xfMokRb/awb7Gpjk7m36h7q2J76SyMP1 +3WuwDMtZBCY3ObetsHNeXe46rsQLHW5VMzuwx9neR5Iu8oKJDeT6YR/RpkqK +gvjgUISv2gnslMIV6mN0AUhbKuhUh/2tZbhmPksACiKDYz9iq05WeCyREYTD +iRcXD2DnGTkk68wIgk9Rj7ZIPhvVP4laFFi1GG4/5C9yxabqWjs5FmIwtN6l +mqeAjaTsxCSia8SAz2nzaQVs/Y+WIG4qDhsUWyrp2AF9ZRkGukugX/uNH4kd +wtukv1FMAqI8NpR9wO5XK5iIm5aElx4HXZ8V4v6QjcLNhlLQH3Wk8Qc2b+7A +CvlQKdh1ftXDeWxVw/+cc4akYNIk9D4qYiMPi8RH77qkoSH4fcYr7Ga/sHC5 +tzJg3mx8hVPMRj8eJFzwWSwLzPP1JUsesdHwUE7Wwy2yINQ9b7YWWySit3VD +LR4/Gn3pJLblqR1GPmVycPNilpFmCRtV3jWmstMV4GLImmNHStnobv+vyPUR +yvDHyVU1uoKNtu488yM8XxmE/JxpudjD9dJW+QPK4J7uc+k7ttHdNTKq7iog +3FsWtvEx7ifDu0TA/D/gNLtcFXjCRpNjXYc4J1XBPLTH6UElG0kfsCwtsVeD +QZRzW7+GjQbuivg7BqgBb4ritkDsx+0tSiOn1aDasXhHNvZuO6+TWrVqUNW8 +I3bFM1zf6kjn63R1yMg9Q5evxd8ffDAeI6cBEm7mknIv2GjHXlEd225NMG3Q +LfN4xUYocid9119NUNFpzMjA1o5LX8dU0IL+Lv6BAWyeLMPNMU5a0L3N82jE +azbK/+G569FzLeBZlNl5uQHvT9e844qZKyHEcmt4byOuz9L+0yCDBrdfFLa/ +bGajLJfU7zMxNEixrf8r28JGCYzuLv6bNDBhJbP8sZnHDg6ptNJAzXpPtNh7 +NpKsvsXjYqENeWGtZW4f8P9jOKpdpb4auGmj84va2EhJ7VLshb41sCPBm5P6 +jY2qz3Npc7w6QNEZin+wd0+5fyRX6ICzknK5z3c2ul2vQdvsrQNaj55qr25n +I7W9lR9mP+tAjOj/Fr/swPPN69ck3+pCgzdcF+tmI2UlFVLVXR/WasYvG2Kz +0Zp7EWK/ER1KeiNr+6fZiME8Sek40GGRTPCU5wzer+rJP3x20+FY6asTH7D5 +MguLXrHosFzoenntLN5vtwd3JBfTwSVtKOzOL3yeXvO5RVM3BPtDu1DEPF7f +C3a6boJGMNr6Q2+PIAfdCdNwLGtaC2I/Bctt5TioJRKtO3XPFDYzi86MAwet +8G5z8ArcCBaW+7+zQjiI+FdeoHwYwKREL7g+k4Pkhh4LyTE2g094RTPeqSjC +0Kw9WdsSyloqPOZUfiLGyJ8G6cEtINyWnnmf8RPlbw4XSm+2Bnm5/0rjH/1E +d7kBz/NSbIB1tU9Fj28QzW6S/1997DZIfxFSauA7iDp4+Ca6fe0hvkTooEb9 +IApaHpx4XH079PlLyztrDaGCfQ21V+IcYeuH6Urt1CEUNaUws3qfE3RO1jTu +ERxGlK2V6+s9zsDLvS6sGTeMTD2TNvU7ucDrsUvWL4VG0AeFWwH1hjtAwuaQ +6vjpEaR4/2R19qqdIKSJ/HfKjqLHXdp2DuKukKlzY0rxzihS+Ti+N3LEFZQq +vQ/464whwytJeVlduyAh+twB7psxdIt/Sje5zg1+x17V/Kg3jso36X2Le+IO +h3hlGzNOjKNr685L/snxgNqnK55vaRtHzd/vnTa86Am9yxmbNqhPoDL7NI2Q +Y7th8NyyEGfWBJo44MITxPSCVOlE2++vJxBlRfMftfAG8WZO4nGZSZQ98nU2 +3HgPmMYEOnP8J5HbnXt+XmI+MP98FT2wbBKVPNq2h++MD3SopqZ5CU4hU6UP +c+fmfGC4VUL7+PYppN6199v7fb4QlnVip2/KFOoT3b89rdcX3m3kmDt+n0It +CQ5+1jsZEHjsxjypwEUprHTRgy0MMBw/T7u8i4uqa/7N+dn4we6VBXvbErho +6W44Y1jpB9c7Pn0qreYi1WWvm5dX+0Gjmolo8FMu0m+ylxes8YPD1TItq2q4 +yNnM8+GX537AkHsucvMZzl8e+fboGz+wU10PUS+4SLEjd2nDFz+Y+DuboN7A +RRrectd2z/jBNWfDr6qtXGTqM5odZ8SEy2bFW56xuej+9fFwB2Mm3BU20HPm +cNGy1klzORMmrBJ4UtSHPbpl5mP2Bib8/XgyevEgF59fPIuaNjPhII2ls22Y +i5bMSLpLOTEh4+T90epxLuqLXyucfoAJkrRj1k5zXJRQdWTf4/tMSK88m2gi +TKED9FRTVjYTxn/whRZg2z0sFjbJYcKIC8FRF6GQSOrAw4p8JtTFJ90UF6VQ +XJjjYHkpE+a1Lkm2i1HoCE1jf9kLnOfvuIaQoFBA6tvARz+YkG+cdWelHIVs +lgyYhXUx4eYbH7NE7FVxPOL0Hib4y7btn8UeCFubX9zPhAKhjLOv5Snk65A+ +UjTMBIMxqsJHkUJuAuFBhb+YYPTkQmeMMoWswxVD8mQJ4L7n6d+nTqEX6adt +k+UJmLDxLWzCNmua1GApEqAhrDenq0Ehfc23Xy1UCLjzrEFkElvhc7TFd00C +7N5Oq4dpUWhofYesyFoCBMhUFQ8ahS7xZjzd60LA56S46gZdPH89sWv2Own4 +7XPbWUmPQqc8WWGGuwiwlOAnD2CzSh1X/vMg4CudxS+hj+snFyVdZRCw5Nku +le0GFDJsZDBfhhLwKLnvcakhhT4naYqqJxLg41ikqWxCoQIk7s9JIkDKSrbb +A/vUCLc+/zIB2qGraNew6Tb1MSapBJT+XrVH0pRCCTx+k/a3CeAVOuU7j20V +nPGVlUdAe/6qihcbKKSsfNbYvIAAr5XVJnPY3Mbgy3xFBIhmM6z0zCiUqYXs +E0oI4Ai+FLiB/bejozarkgCm60/pgI0UKrVTyn7XQECaJyK55hS68ItXIKWR +ANbsr7vqiEKM7EFf9yb8/k6LYGdsCf5Kpb5mAghPz/sF2IFVbpfmPhFQ97f1 +li9QSF37aqRGP+5/z/Hc4k0U+vX5aOvPAQLs1yWmf8VuiSP0CzkE9Kg8Vlm0 +mUIx3UaDpsMEzEevr3HA/nat1Wv7FAEmUa7H+7CThSS3RC0i4Z71ZalfFhSq +nuzwjOAjocXT67CKJYXYHTlhQQIkRInwOWzGNiu1zGAIkzCdUQdnsQd8WL9t +JUkw0XPaJr4F12+3RWqLNAmqz3VVdbA3rJOiIRkSiPeFDDvsRPE8V0MFEj6k +ndA/tzBe2VmstIKEG03Vo7+xyXt5DTLqJEjsF9KXs8LPJx7uXKpJwsVf9T8M +sAdIaXF+GgmF/SdOEQvj0tb+w/okHPSOHH+JXTkvHTtAJ0FBvT6tHbv/Z9eV +LiMS+js9yyex19dG1X00ISFPcJeBsjWF+gILVJ4CCbkSfFb7sZe4Ra+t2ExC +zhut3UexTS222hVb4jyl8M4E7ASFnsP3tpLwTOGQThH2Y/7CxHRbEjzaV84+ +w+4di35w3Y4EOmNKrxnb5JVMW7wjCfcN3g0MYTOKe4bOOJNw+NRnYg47Pq2Q +98QOEnjzx5wEt1KoJ8xGP9KNBI3uTaEq2OLestYhHiTM/4y8S8M2sen1CthN +gmBdkaURdvx/Ry94+5DwXk+7yRr7sYhtphuDBKqUKHFcyKNknzgzcT9Hbgm5 +L+R19zbbkSRoK79v8FnIayoasPLH65H9d3ovNqPi6F8IIEFZSi05aCE/03bZ +hkASiubMbkQs5MfLrV4bREKliv3SqIV8Vt8mvRASprydJmKwxZjFbrQwErLL +t8JJ7HXbY4LVI3B/gf7n9EL++m2nlSNxv4zFNc9jX9SUvyXHIuHh2JfKi9jl +Ev0lklEkyPWmPE3A7v5d3Ch6BK/XPdBJXMhnx3QLxJCweOi7cBK28Ydts/9i +SbCLI10W/H+JiPA3 "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + "PlotRange" -> {{0, 180}, {0.7396446373677055, 1.330216718466846}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6152015704378887}, + "AxesOrigin" -> {0, 0.7396446373677071}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10530,7 +10717,8 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.6152015704378887}, + AxesOrigin->{0, 0.7396446373677071}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -10558,7 +10746,8 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.7396446373677055, 1.330216718466846}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -10566,11 +10755,13 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913355426284504`*^9}, + CellChangeTimes->{3.9913355426284504`*^9, 3.994259434851968*^9}, CellLabel-> - "Out[277]=",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] + "Out[116]=",ExpressionUUID->"f926ee03-cbe8-4083-946f-3f0bb8ec7c23"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"x", "=", RowBox[{"Plot", "[", @@ -10630,14 +10821,1146 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ - 3.9918494141657047`*^9, {3.991849451432905*^9, - 3.991849451715925*^9}},ExpressionUUID->"00a32bc3-df79-9e43-8f20-\ -d4884962c12d"], + 3.9918494141657047`*^9, {3.991849451432905*^9, 3.991849451715925*^9}}, + CellLabel-> + "In[117]:=",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5721101762618052`*^-267\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 41, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994259435050037*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"082da14c-b437-4dc1-b091-0bef5dc22f2f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2013506001681711`*^-278\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 117, 42, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994259435060629*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"b2fd08e6-d372-419e-8456-e89cdb49f31c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.18029338093974`*^-290\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 117, 43, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994259435069996*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"99e27857-c61e-4e37-aebb-7709eca084f0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 117, 44, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99425943507754*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"357e10d4-1585-4d36-b1a2-ea16e3f5fcff"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VO0bB3DxlkiyG+ucGUuRFrLNmHHfJHsKiWyFpIhUoqgslRQhImlD +khKZOZGtUiKVishaRFpeWUNJevud31/n+lzXOc85z/Xc9/d5DsN3j5O/oICA +AHuegMD/rz96nz1RT8w33erMi0sPtzBtu0I7ZNYZB30BnCbfeiag7GtfWmca +3BArCjWq14Pwjbc6hDrzYC4pHhXqzUFyVD7tVwcfbPJc6F+fOEFfjcOeqY7H +EDcvJdjqiS9Yqg+9n+h4A4qnuY/aH+2DXx1GGeMdA3Cgaos2UREHdWtv5Lfk +TcJgwMnC5k3poNxX+dlX5w+wCyfZqxwvgczurbeE1wrhsPnlOlnXPEjTtax2 +cFmIGduDB4bOFEBX1uraCYnFmLN3qwYStyAxP/q1oIIk+tsqKCokFYOt/i4p +WTVJDHsjXHMqqxgWPnFyWbpCEveI9IR+zy+G4x81euzMJNG4uV3k9v1iOMxs ++nxulyS+cTpc8XC0GEJyaP9pVknivzk94gEbSsDxEk/HzkMKy9O+JRWI3gH5 +cx9PpV+WRpFNKlNc/VKgLS87PlMgjeOvNFGeVQqKj+OjvUqlcTQqdnCYWwqq +41oHltZJo+rjljVnrEpBwz50W/VXadyTfv9drnsprPnnj+HHNTLo4WLYoxhT +ChvC5Ab1nsvgjub7I1aNpbBx0dfe860yuCarlF3UVApOeZVdc+9ksNj06WvR +llLY3Oz5umFMBouSypofdJWCl861KndZWWwdMGLODpVC0OCqs3HbZNH7oHPx +fTEenNxkY/rmhyzSm/79cWA9DxTvvlIUnCeHMMiULHfkQYn0pp+6i+TQQSj8 +4YQLD9rfeJeepcvh9YqlHR7ePFB3DGM6Wsvh2CGHodkQHjxef3VB8wU5XKIR +4Ls9hQd/LKdfveTIo+bTCImPTTxILYgs+mMpj6dtk/UzmqnnFwgkrHCUx3lb +V3w2b+OBfb2o2Rl/edxXVDyR2sOD7LUEaZ8sj0Nh9278/JcHxmh3/kWfPFqu +HTwxNp8P+1m5W5/F0ZCwuEc7xeaDbY74lF0SDWOCJXMiuHxgCh9OeJVBw3V/ +mq18kQ/NbZt5rYU0TH38fWa5JR9WhooJ9b6i4bE2nU+pjnz4WhBR8F1RAeM+ +Gc/PDeCDp4zDiBKpgBu1RG/0pPJhTVR17JUaBXyfl5LokM4H0YFlcowGBezZ +k555P4MPlXeEQLNLAU3yVzNSs/kgZ1eZuvqvAkYP1EkI51Pvj1XXX2eniIW6 +GZc55XywGJuNDPmoiAUTr940Un10yPqc9qNhRUx+c3XdvS4+lOSu6Jb+oYgd +zkyJvB4+0DZtY1UuVMJip97i3X18GK6o/ym0UgkLT36Qb//Mh/S41LALB5XQ +3kBfeHaKD409WurDsUroYnVgWckPPszp17WaJirhcoP9hd4zfNjxZVpv8LIS +CpxLabj7mw9se4+JlXVKmPNmJMFAkIQBWc2QJ4uVcZv7z8xT4iTI73moIi+v +jLLX7vUJSZBg3+j2chehjNs/e6RESpJQHpmos2SNMgoaxWh4yZBwum98aIub +Mjow6zg/FUjQu1kdMJanjJFuYuej1UkIEHSRN7+tjP6VvWdrNUi45DHacK5M +GdtMmuf+aJKwQJyhyW5URqntxzVCtEjo3hc/eHxEGWPfZLSqrSQhluPoo2is +gnEmX1Z/MiTB2vvKdyNzFZT8OdMgZEyCeMy3Yy72KrhkvMxIlUWNX3eiIHWb +CjL1C29bmpBQYVv1bcEpFezyn53zBxKidwsfUU9XwfHMrzF+SIJl8iZx88sq +GBuU/tnTjIS2ltHVR3gqmDP7yH3tWhLG3dTCJ7tUsHethUCfJQn3IkOFJQdV +MCTqdVG1FQlHL93PWjmqgudfx+A5axLEPrhW7xJUxdaN6losWxKWBiQJfNBW +xS9RW6Wc1pMwmtB19o++KjYPCjLFHUi4e0tTTQlU0dE0idlA2Xy0dt1mZ1XU +HLOZ1dpIgveB6dNNUaooTSQSj5xI0Dhvrjx0QhVTroS0ejqTVH2kFAunqmJq +lH30FOXIOa1m83xVnDJXbJB3IcFMNcJnW4kqrutT9btGeSE++X6kghqfY/VH +ezMJGce8ZSubVHG8jL1ipSsJnteLCtrbVXHskXr9TcrMpzNGUx9U8V1gqDfD +jYRS0XT3VdOqKLL94IV/tpDQdPbp1esqdFxD5G+46E5COimjW7eUjqVe3yR+ +UnZ/6/P4gy4dMw7Yv3PwIOErbW5QyZKONTOvM75TvsO2CWdtpOMW91Xxpp4k +hHtmCru603F5LPNEPGWhnNXaaSF0NDpmR4p6kfD80ZHqOwfpWKTUOGhJOfXj +c/uXcXScnPDXiqbsOp/WO5RER4cguziSsupS/z0Lz9NRhZEz/pHyJ2u+gGYu +HYU+JB2Q8CbhduDfs2uL6Pi2wESKRXl/kr2aTxkd6653PPWizC65cPfoQzra +c8+cP0rZouPVn9FGOr43N+dfoOwg8I/V1jd0TGEyA3mU3bRYqa976Mi7pVZb +T9nPKaQLPtHx+BnTsnbKIVHXmKWjdIzaFmQ7SPlgfmcQMUPHzIvXYkYpP/oc +794oQCAvq99tmrJlFCM6Zj6B79OIthnKL5bUXDMWJfDydc/J/3tj/ubGcXEC +HZvS7v3//nbjieFCaQL399cyxih7vEyU9KER+P3yJ71PlD/4aBoqqBAYmSUw +3EF5x49a9xYGgU0WUg5PKX877RF9SpNAkUkld5JyKP3HNbPlBP55RZe8RHma +TG38tYrAo31EWCzlSOvlIzx9Aq/NVzvuR1ngfb1kIIvAFXPa5uaUT+zdZsg0 +JfDhZtM7KpRFF/x27zYn0CDWr2n6/+uXnRGdZkXg7IPc7OeUs+ueNwo6EniI +PO0QSJnu5j9S5UKgN2FtaEA5f/iv5H53AuMWWbTOUfVxR9bA46MfgdpDGrpx +lPVvvY6+uJNADX2NKaBcZRqY7xxM4OCNjNBZqt6eBFwdqQsnULRmfrY/ZZs5 +ltThKOr7OBo2cpRfpbYZ6scQ6FMwXVZH1W9XpUhM/ikCozonmmQoezvk53sm +E3hkau2hCqr+BwdMn8mkE6h6Nf2LG+XRRWFSJy4RmLYoVjyV6pf9OeJG3FwC +44/YPdOkPKN/02P6OoHD73bbVlH9JeTdm+9/h8B1u+TyO6h+pJVaG1k+JnDf +gd7Wb5tIuGzx0eO/BgJpyfofdlJmdh2JKX9B4FBDZfUA1e8rBMlnmm8JfGrd +NNhE5YP5JhVP4a8EPuNnqkZR+bF7ZiKmcTEDjVu9VqEdVc97d8h9lmLg1jtx +LlFUPi0c6i4SojGwjohs4duQcL2nrt2UycBfbS3NclSe9T7I0CkzZGDc4Hc5 +0oKEDSdYnblbGVh/PlvKlEv113/FwQ+3M/BSv7YtcKg8CmcKvd/FQJmOR2Mc +Kn8Tdi5aSQtjYGSlbuIKKp9r7d4fS05g4HJa8spBfWq/kIpdFcVjYLdBy4nC +5VT9JE4/ySpnYMYesS17tan1EAp0L69m4MZfwaQhtT8ETTudmKhn4IVdov/c +o/aP/E71noBuBjr055slM0iQu9oYv0mIiSILfmVlyZHwa7lE7woXJoYNTBku ++48PPy4rxq5xZyL8Dn+WNMeHqSUa6qytTHxDpxuOzvJhdJIVaLGLiRZv1+ff ++MmHgWq/H+5HmMiIhHnT43x4bndPPOE6E8WsfJb9HuBDdpA3DEwzcf1T52u1 +T/hw/v3OgS+z1PgX+vPqHvPh3Ib9J0b+MvG3hTqvrpYPyWsSXsyIqGFQYIxA +dQ0f4n7zXJeoquFBqeoL8Xf5EJQ4P5RjqYb3Jwnd9Gt84BTdzsnMVEONwqjB +M9F86CGKrq67qIaaiX4J3kf4EJl588rUVTV8oZnepBPFh3uxBZecbqrhbmaw +yeNwPui55WSJ16jhKcvM7uZgPmjNP5ca36+GVyeFPI96UOeXrVEx4Trq+CD7 +l5+6AR8mpGy3bX6sjuNWmbSRfh507mY2Bz5Vx9oO00fTvTyobZiF6CZ1DN+Z +vGiOOr+lRhbRC9vV8UrSxaR57TxYPSDW92tIHeseNoSNP+NBCO+112VpDVzk +zIvZyuPB0AYXj8HtGuizp7gw5SgPBpO2bd4nrIkKRkPncqV4YDMWYfPJcClK +7I6piDQohWG/hfvvRi/DEs5gZ71XCfW/IS948rEWctSqTCpZt0HqpWZy6Zg2 +Wja96DbTugXKCXc2Ghrq4P6A982Wn25A1nKWhHTACmw7GdT19vl1eK5oZjB5 +diX2+XU/4dVfA7by49RV7auQZ9bsvbgwF8SF8sJ84lbjNfeVTfVJV0E1ls7Z +oqmL3tLXRCzKL4KIhme501NddIm6V/zdMAtWchXuRHjp4bGpv6fyDDJgX69U +na3AGlQbtT5E56bB2GSSi03WGrywxqxP41AKWK1qyLZZoY95SV6dLRKJ8GDS +5PfPV/oYrS1FE3oTDyE6et0t/gaYsvG/XPfNx4A7ur1ti4gh/qcgb6EoFgPr +1GnrF+cZ4sW+7Ws8nkfCspjTBx8bGeHf7CdEqkM4aPuzHmp0G2GF0SJD0N4H +KUyH2WPvjDAuWTBMQXkfTPX5Ggz0GqHOi8bpucX74IF7UtGVj0bI7Z3h903s +BaeNfeflR4zwsF3yeemqvXDI5ESoiIAxjkvLauna74VGyRbGiIYxWrvuSlWP +CAX/BzuP391rjCl+5Lrxl8EwGjwUsS7MGD99VK6ZdzcYDqrsDmoPp071T+x3 +aGYHw+nDe5xmooyxuKlH++aOYChlhxOceGO88NTJKl0gGObKj9XUZRvj5twD +QeNGuyHtzpWpN3XGeCOosf/Y3UB4mNO2fUKWhZ59oer1AwHwwZ6xNZzGwhvN +Y553XwaAwK/gLb8VWfi5xvEcWREA5o7CDvMJFvIFH3X1JwdAwzy2kYI2CyU2 +ipTPmQRAk+9VETNTFhax9cLULuyAbvXAktQdLOx3i7056e0PU4V/f666x8KY +698OXpHzg8+bLXNOVbJwLM0+JmSBH3T+c8b6YzULqx4tPGj7wxeqtyleyKxl +YUGcq7Jmuy/E0QzYf56x0Pwid39Qpi9IJAQefv6OhfIawuxlCr6gE/BWwF+Q +jTfD1vNYS33AT6NIJHs9G5kDiaOxjd4QWe8dqLmRjTp3aOzdRd6Q6i/1gu/E +xsmAkzkhyd5Qc/1Q0gtXNmZIVRyu3uQNMprWS/74sLH47oNb+we8oEHzk8y2 +cDaKTutVbBD0Au1ldELzKht7mmrGLZ09YEI73ZA/zsYtYr2VTYZu0NmE66Qn +2egx5Lq5hXCD2pBR57BpNhZ8s7rwRdQNkvk2ew1n2Rjxwv2jdZ8raLMFblcJ +mWBlsyG8T3AFX5tgRp2cCbY4ePWZ922GtgArsTaOCRbmBeryslygIv93/3SC +Cd4BqLlh4gyGa8N+2iZS/mZ9Tk7bGcr6h8Vyzpig1c1f5ek0Z+Cr9hrZpplg +ScTCsoppJ7idVXvmykUTtDv4O/Z2qRPkJJ1gWZWYYPbTxA96Wk5wKmzJ2axW +E4x8qPAwQt0R3C3U0ESVgzoD6pplxxzgT9tC8TqCg34znon3tjtAjv9oj60a +B/XIL5rt6xzgc3xlhPsyDp7RoN0MWOgA+55tuHNIj4MTshUHupLXw2mHw6oV +lhx80u/H+pRjD1Vub+f093BQd9kV74VdtqAUfLJyZS0HyxwjS/87ZwXJf3cY +JD7m4Ffelf7FR61AMM2S9+UJB3fmpqzRDbCCofL5N3OecfDbb/4cybKCKoHj +WVKtHGz5LhRZ2GcJ7udiIn584uCvi0OjsMoSsqoPGTxYxMW8YFPxR+8sQMxh +C09RnIttTJMAo0YLiPlgvCJCgot7HywTqSUtYOf8GfXVsly0OqA7JpxoAUYb +wmXyVLkoNb21MpRtAe0D+yZP6HIx6l9p8exLa0FWdDdvvSsXy+p9HnwLNof8 +tUcix7dw8eFqhemQLeagdyR5bbonF4dN2t4sWGcODuOlbzt9uMgsT2SHKZtD +fPv0L7/dXBy8vKl2bZMZzORFm0fGctHvo83s9VVm0G2S3lpQxMWj70uD5/5B +2Hkg/5JNCRfn/14fNPgJ4EdJmf9wKRdF0l1Hph4BSDE7f+qWc/HtqVbz45EA +dgtVlO/XcnEzzzTTbcQUatoKtre+5eKUBmtddRcXbMUrVoR3cvHlfb+Mz/e4 +0Gn17Aeth4sZJROv9DO5MFX1LcH7AxfFxp2iWc5cWJG7uvjfIS6mOiv5fnjF +gZpus/CkES5OTN88RS/hgK2MM6wa52KmOftqzBkO7Dh5oCVsmotVx0NohfYc +mKqNz5af4aKr5SbTEB0OxM2e96ua5eJxvYftLmIckNC/qeP1h5pvqGid97AJ +XAmumv77l4s/vAsHE5pM4H9aZN2p + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VO0bB3DxlkiyG+ucGUuRFrLNmHHfJHsKiWyFpIhUoqgslRQhImlD +khKZOZGtUiKVishaRFpeWUNJevud31/n+lzXOc85z/Xc9/d5DsN3j5O/oICA +AHuegMD/rz96nz1RT8w33erMi0sPtzBtu0I7ZNYZB30BnCbfeiag7GtfWmca +3BArCjWq14Pwjbc6hDrzYC4pHhXqzUFyVD7tVwcfbPJc6F+fOEFfjcOeqY7H +EDcvJdjqiS9Yqg+9n+h4A4qnuY/aH+2DXx1GGeMdA3Cgaos2UREHdWtv5Lfk +TcJgwMnC5k3poNxX+dlX5w+wCyfZqxwvgczurbeE1wrhsPnlOlnXPEjTtax2 +cFmIGduDB4bOFEBX1uraCYnFmLN3qwYStyAxP/q1oIIk+tsqKCokFYOt/i4p +WTVJDHsjXHMqqxgWPnFyWbpCEveI9IR+zy+G4x81euzMJNG4uV3k9v1iOMxs ++nxulyS+cTpc8XC0GEJyaP9pVknivzk94gEbSsDxEk/HzkMKy9O+JRWI3gH5 +cx9PpV+WRpFNKlNc/VKgLS87PlMgjeOvNFGeVQqKj+OjvUqlcTQqdnCYWwqq +41oHltZJo+rjljVnrEpBwz50W/VXadyTfv9drnsprPnnj+HHNTLo4WLYoxhT +ChvC5Ab1nsvgjub7I1aNpbBx0dfe860yuCarlF3UVApOeZVdc+9ksNj06WvR +llLY3Oz5umFMBouSypofdJWCl861KndZWWwdMGLODpVC0OCqs3HbZNH7oHPx +fTEenNxkY/rmhyzSm/79cWA9DxTvvlIUnCeHMMiULHfkQYn0pp+6i+TQQSj8 +4YQLD9rfeJeepcvh9YqlHR7ePFB3DGM6Wsvh2CGHodkQHjxef3VB8wU5XKIR +4Ls9hQd/LKdfveTIo+bTCImPTTxILYgs+mMpj6dtk/UzmqnnFwgkrHCUx3lb +V3w2b+OBfb2o2Rl/edxXVDyR2sOD7LUEaZ8sj0Nh9278/JcHxmh3/kWfPFqu +HTwxNp8P+1m5W5/F0ZCwuEc7xeaDbY74lF0SDWOCJXMiuHxgCh9OeJVBw3V/ +mq18kQ/NbZt5rYU0TH38fWa5JR9WhooJ9b6i4bE2nU+pjnz4WhBR8F1RAeM+ +Gc/PDeCDp4zDiBKpgBu1RG/0pPJhTVR17JUaBXyfl5LokM4H0YFlcowGBezZ +k555P4MPlXeEQLNLAU3yVzNSs/kgZ1eZuvqvAkYP1EkI51Pvj1XXX2eniIW6 +GZc55XywGJuNDPmoiAUTr940Un10yPqc9qNhRUx+c3XdvS4+lOSu6Jb+oYgd +zkyJvB4+0DZtY1UuVMJip97i3X18GK6o/ym0UgkLT36Qb//Mh/S41LALB5XQ +3kBfeHaKD409WurDsUroYnVgWckPPszp17WaJirhcoP9hd4zfNjxZVpv8LIS +CpxLabj7mw9se4+JlXVKmPNmJMFAkIQBWc2QJ4uVcZv7z8xT4iTI73moIi+v +jLLX7vUJSZBg3+j2chehjNs/e6RESpJQHpmos2SNMgoaxWh4yZBwum98aIub +Mjow6zg/FUjQu1kdMJanjJFuYuej1UkIEHSRN7+tjP6VvWdrNUi45DHacK5M +GdtMmuf+aJKwQJyhyW5URqntxzVCtEjo3hc/eHxEGWPfZLSqrSQhluPoo2is +gnEmX1Z/MiTB2vvKdyNzFZT8OdMgZEyCeMy3Yy72KrhkvMxIlUWNX3eiIHWb +CjL1C29bmpBQYVv1bcEpFezyn53zBxKidwsfUU9XwfHMrzF+SIJl8iZx88sq +GBuU/tnTjIS2ltHVR3gqmDP7yH3tWhLG3dTCJ7tUsHethUCfJQn3IkOFJQdV +MCTqdVG1FQlHL93PWjmqgudfx+A5axLEPrhW7xJUxdaN6losWxKWBiQJfNBW +xS9RW6Wc1pMwmtB19o++KjYPCjLFHUi4e0tTTQlU0dE0idlA2Xy0dt1mZ1XU +HLOZ1dpIgveB6dNNUaooTSQSj5xI0Dhvrjx0QhVTroS0ejqTVH2kFAunqmJq +lH30FOXIOa1m83xVnDJXbJB3IcFMNcJnW4kqrutT9btGeSE++X6kghqfY/VH +ezMJGce8ZSubVHG8jL1ipSsJnteLCtrbVXHskXr9TcrMpzNGUx9U8V1gqDfD +jYRS0XT3VdOqKLL94IV/tpDQdPbp1esqdFxD5G+46E5COimjW7eUjqVe3yR+ +UnZ/6/P4gy4dMw7Yv3PwIOErbW5QyZKONTOvM75TvsO2CWdtpOMW91Xxpp4k +hHtmCru603F5LPNEPGWhnNXaaSF0NDpmR4p6kfD80ZHqOwfpWKTUOGhJOfXj +c/uXcXScnPDXiqbsOp/WO5RER4cguziSsupS/z0Lz9NRhZEz/pHyJ2u+gGYu +HYU+JB2Q8CbhduDfs2uL6Pi2wESKRXl/kr2aTxkd6653PPWizC65cPfoQzra +c8+cP0rZouPVn9FGOr43N+dfoOwg8I/V1jd0TGEyA3mU3bRYqa976Mi7pVZb +T9nPKaQLPtHx+BnTsnbKIVHXmKWjdIzaFmQ7SPlgfmcQMUPHzIvXYkYpP/oc +794oQCAvq99tmrJlFCM6Zj6B79OIthnKL5bUXDMWJfDydc/J/3tj/ubGcXEC +HZvS7v3//nbjieFCaQL399cyxih7vEyU9KER+P3yJ71PlD/4aBoqqBAYmSUw +3EF5x49a9xYGgU0WUg5PKX877RF9SpNAkUkld5JyKP3HNbPlBP55RZe8RHma +TG38tYrAo31EWCzlSOvlIzx9Aq/NVzvuR1ngfb1kIIvAFXPa5uaUT+zdZsg0 +JfDhZtM7KpRFF/x27zYn0CDWr2n6/+uXnRGdZkXg7IPc7OeUs+ueNwo6EniI +PO0QSJnu5j9S5UKgN2FtaEA5f/iv5H53AuMWWbTOUfVxR9bA46MfgdpDGrpx +lPVvvY6+uJNADX2NKaBcZRqY7xxM4OCNjNBZqt6eBFwdqQsnULRmfrY/ZZs5 +ltThKOr7OBo2cpRfpbYZ6scQ6FMwXVZH1W9XpUhM/ikCozonmmQoezvk53sm +E3hkau2hCqr+BwdMn8mkE6h6Nf2LG+XRRWFSJy4RmLYoVjyV6pf9OeJG3FwC +44/YPdOkPKN/02P6OoHD73bbVlH9JeTdm+9/h8B1u+TyO6h+pJVaG1k+JnDf +gd7Wb5tIuGzx0eO/BgJpyfofdlJmdh2JKX9B4FBDZfUA1e8rBMlnmm8JfGrd +NNhE5YP5JhVP4a8EPuNnqkZR+bF7ZiKmcTEDjVu9VqEdVc97d8h9lmLg1jtx +LlFUPi0c6i4SojGwjohs4duQcL2nrt2UycBfbS3NclSe9T7I0CkzZGDc4Hc5 +0oKEDSdYnblbGVh/PlvKlEv113/FwQ+3M/BSv7YtcKg8CmcKvd/FQJmOR2Mc +Kn8Tdi5aSQtjYGSlbuIKKp9r7d4fS05g4HJa8spBfWq/kIpdFcVjYLdBy4nC +5VT9JE4/ySpnYMYesS17tan1EAp0L69m4MZfwaQhtT8ETTudmKhn4IVdov/c +o/aP/E71noBuBjr055slM0iQu9oYv0mIiSILfmVlyZHwa7lE7woXJoYNTBku ++48PPy4rxq5xZyL8Dn+WNMeHqSUa6qytTHxDpxuOzvJhdJIVaLGLiRZv1+ff ++MmHgWq/H+5HmMiIhHnT43x4bndPPOE6E8WsfJb9HuBDdpA3DEwzcf1T52u1 +T/hw/v3OgS+z1PgX+vPqHvPh3Ib9J0b+MvG3hTqvrpYPyWsSXsyIqGFQYIxA +dQ0f4n7zXJeoquFBqeoL8Xf5EJQ4P5RjqYb3Jwnd9Gt84BTdzsnMVEONwqjB +M9F86CGKrq67qIaaiX4J3kf4EJl588rUVTV8oZnepBPFh3uxBZecbqrhbmaw +yeNwPui55WSJ16jhKcvM7uZgPmjNP5ca36+GVyeFPI96UOeXrVEx4Trq+CD7 +l5+6AR8mpGy3bX6sjuNWmbSRfh507mY2Bz5Vx9oO00fTvTyobZiF6CZ1DN+Z +vGiOOr+lRhbRC9vV8UrSxaR57TxYPSDW92tIHeseNoSNP+NBCO+112VpDVzk +zIvZyuPB0AYXj8HtGuizp7gw5SgPBpO2bd4nrIkKRkPncqV4YDMWYfPJcClK +7I6piDQohWG/hfvvRi/DEs5gZ71XCfW/IS948rEWctSqTCpZt0HqpWZy6Zg2 +Wja96DbTugXKCXc2Ghrq4P6A982Wn25A1nKWhHTACmw7GdT19vl1eK5oZjB5 +diX2+XU/4dVfA7by49RV7auQZ9bsvbgwF8SF8sJ84lbjNfeVTfVJV0E1ls7Z +oqmL3tLXRCzKL4KIhme501NddIm6V/zdMAtWchXuRHjp4bGpv6fyDDJgX69U +na3AGlQbtT5E56bB2GSSi03WGrywxqxP41AKWK1qyLZZoY95SV6dLRKJ8GDS +5PfPV/oYrS1FE3oTDyE6et0t/gaYsvG/XPfNx4A7ur1ti4gh/qcgb6EoFgPr +1GnrF+cZ4sW+7Ws8nkfCspjTBx8bGeHf7CdEqkM4aPuzHmp0G2GF0SJD0N4H +KUyH2WPvjDAuWTBMQXkfTPX5Ggz0GqHOi8bpucX74IF7UtGVj0bI7Z3h903s +BaeNfeflR4zwsF3yeemqvXDI5ESoiIAxjkvLauna74VGyRbGiIYxWrvuSlWP +CAX/BzuP391rjCl+5Lrxl8EwGjwUsS7MGD99VK6ZdzcYDqrsDmoPp071T+x3 +aGYHw+nDe5xmooyxuKlH++aOYChlhxOceGO88NTJKl0gGObKj9XUZRvj5twD +QeNGuyHtzpWpN3XGeCOosf/Y3UB4mNO2fUKWhZ59oer1AwHwwZ6xNZzGwhvN +Y553XwaAwK/gLb8VWfi5xvEcWREA5o7CDvMJFvIFH3X1JwdAwzy2kYI2CyU2 +ipTPmQRAk+9VETNTFhax9cLULuyAbvXAktQdLOx3i7056e0PU4V/f666x8KY +698OXpHzg8+bLXNOVbJwLM0+JmSBH3T+c8b6YzULqx4tPGj7wxeqtyleyKxl +YUGcq7Jmuy/E0QzYf56x0Pwid39Qpi9IJAQefv6OhfIawuxlCr6gE/BWwF+Q +jTfD1vNYS33AT6NIJHs9G5kDiaOxjd4QWe8dqLmRjTp3aOzdRd6Q6i/1gu/E +xsmAkzkhyd5Qc/1Q0gtXNmZIVRyu3uQNMprWS/74sLH47oNb+we8oEHzk8y2 +cDaKTutVbBD0Au1ldELzKht7mmrGLZ09YEI73ZA/zsYtYr2VTYZu0NmE66Qn +2egx5Lq5hXCD2pBR57BpNhZ8s7rwRdQNkvk2ew1n2Rjxwv2jdZ8raLMFblcJ +mWBlsyG8T3AFX5tgRp2cCbY4ePWZ922GtgArsTaOCRbmBeryslygIv93/3SC +Cd4BqLlh4gyGa8N+2iZS/mZ9Tk7bGcr6h8Vyzpig1c1f5ek0Z+Cr9hrZpplg +ScTCsoppJ7idVXvmykUTtDv4O/Z2qRPkJJ1gWZWYYPbTxA96Wk5wKmzJ2axW +E4x8qPAwQt0R3C3U0ESVgzoD6pplxxzgT9tC8TqCg34znon3tjtAjv9oj60a +B/XIL5rt6xzgc3xlhPsyDp7RoN0MWOgA+55tuHNIj4MTshUHupLXw2mHw6oV +lhx80u/H+pRjD1Vub+f093BQd9kV74VdtqAUfLJyZS0HyxwjS/87ZwXJf3cY +JD7m4Ffelf7FR61AMM2S9+UJB3fmpqzRDbCCofL5N3OecfDbb/4cybKCKoHj +WVKtHGz5LhRZ2GcJ7udiIn584uCvi0OjsMoSsqoPGTxYxMW8YFPxR+8sQMxh +C09RnIttTJMAo0YLiPlgvCJCgot7HywTqSUtYOf8GfXVsly0OqA7JpxoAUYb +wmXyVLkoNb21MpRtAe0D+yZP6HIx6l9p8exLa0FWdDdvvSsXy+p9HnwLNof8 +tUcix7dw8eFqhemQLeagdyR5bbonF4dN2t4sWGcODuOlbzt9uMgsT2SHKZtD +fPv0L7/dXBy8vKl2bZMZzORFm0fGctHvo83s9VVm0G2S3lpQxMWj70uD5/5B +2Hkg/5JNCRfn/14fNPgJ4EdJmf9wKRdF0l1Hph4BSDE7f+qWc/HtqVbz45EA +dgtVlO/XcnEzzzTTbcQUatoKtre+5eKUBmtddRcXbMUrVoR3cvHlfb+Mz/e4 +0Gn17Aeth4sZJROv9DO5MFX1LcH7AxfFxp2iWc5cWJG7uvjfIS6mOiv5fnjF +gZpus/CkES5OTN88RS/hgK2MM6wa52KmOftqzBkO7Dh5oCVsmotVx0NohfYc +mKqNz5af4aKr5SbTEB0OxM2e96ua5eJxvYftLmIckNC/qeP1h5pvqGid97AJ +XAmumv77l4s/vAsHE5pM4H9aZN2p + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0756679147858876}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0756679147858876}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VO0bB3DxlkiyG+ucGUuRFrLNmHHfJHsKiWyFpIhUoqgslRQhImlD +khKZOZGtUiKVishaRFpeWUNJevud31/n+lzXOc85z/Xc9/d5DsN3j5O/oICA +AHuegMD/rz96nz1RT8w33erMi0sPtzBtu0I7ZNYZB30BnCbfeiag7GtfWmca +3BArCjWq14Pwjbc6hDrzYC4pHhXqzUFyVD7tVwcfbPJc6F+fOEFfjcOeqY7H +EDcvJdjqiS9Yqg+9n+h4A4qnuY/aH+2DXx1GGeMdA3Cgaos2UREHdWtv5Lfk +TcJgwMnC5k3poNxX+dlX5w+wCyfZqxwvgczurbeE1wrhsPnlOlnXPEjTtax2 +cFmIGduDB4bOFEBX1uraCYnFmLN3qwYStyAxP/q1oIIk+tsqKCokFYOt/i4p +WTVJDHsjXHMqqxgWPnFyWbpCEveI9IR+zy+G4x81euzMJNG4uV3k9v1iOMxs ++nxulyS+cTpc8XC0GEJyaP9pVknivzk94gEbSsDxEk/HzkMKy9O+JRWI3gH5 +cx9PpV+WRpFNKlNc/VKgLS87PlMgjeOvNFGeVQqKj+OjvUqlcTQqdnCYWwqq +41oHltZJo+rjljVnrEpBwz50W/VXadyTfv9drnsprPnnj+HHNTLo4WLYoxhT +ChvC5Ab1nsvgjub7I1aNpbBx0dfe860yuCarlF3UVApOeZVdc+9ksNj06WvR +llLY3Oz5umFMBouSypofdJWCl861KndZWWwdMGLODpVC0OCqs3HbZNH7oHPx +fTEenNxkY/rmhyzSm/79cWA9DxTvvlIUnCeHMMiULHfkQYn0pp+6i+TQQSj8 +4YQLD9rfeJeepcvh9YqlHR7ePFB3DGM6Wsvh2CGHodkQHjxef3VB8wU5XKIR +4Ls9hQd/LKdfveTIo+bTCImPTTxILYgs+mMpj6dtk/UzmqnnFwgkrHCUx3lb +V3w2b+OBfb2o2Rl/edxXVDyR2sOD7LUEaZ8sj0Nh9278/JcHxmh3/kWfPFqu +HTwxNp8P+1m5W5/F0ZCwuEc7xeaDbY74lF0SDWOCJXMiuHxgCh9OeJVBw3V/ +mq18kQ/NbZt5rYU0TH38fWa5JR9WhooJ9b6i4bE2nU+pjnz4WhBR8F1RAeM+ +Gc/PDeCDp4zDiBKpgBu1RG/0pPJhTVR17JUaBXyfl5LokM4H0YFlcowGBezZ +k555P4MPlXeEQLNLAU3yVzNSs/kgZ1eZuvqvAkYP1EkI51Pvj1XXX2eniIW6 +GZc55XywGJuNDPmoiAUTr940Un10yPqc9qNhRUx+c3XdvS4+lOSu6Jb+oYgd +zkyJvB4+0DZtY1UuVMJip97i3X18GK6o/ym0UgkLT36Qb//Mh/S41LALB5XQ +3kBfeHaKD409WurDsUroYnVgWckPPszp17WaJirhcoP9hd4zfNjxZVpv8LIS +CpxLabj7mw9se4+JlXVKmPNmJMFAkIQBWc2QJ4uVcZv7z8xT4iTI73moIi+v +jLLX7vUJSZBg3+j2chehjNs/e6RESpJQHpmos2SNMgoaxWh4yZBwum98aIub +Mjow6zg/FUjQu1kdMJanjJFuYuej1UkIEHSRN7+tjP6VvWdrNUi45DHacK5M +GdtMmuf+aJKwQJyhyW5URqntxzVCtEjo3hc/eHxEGWPfZLSqrSQhluPoo2is +gnEmX1Z/MiTB2vvKdyNzFZT8OdMgZEyCeMy3Yy72KrhkvMxIlUWNX3eiIHWb +CjL1C29bmpBQYVv1bcEpFezyn53zBxKidwsfUU9XwfHMrzF+SIJl8iZx88sq +GBuU/tnTjIS2ltHVR3gqmDP7yH3tWhLG3dTCJ7tUsHethUCfJQn3IkOFJQdV +MCTqdVG1FQlHL93PWjmqgudfx+A5axLEPrhW7xJUxdaN6losWxKWBiQJfNBW +xS9RW6Wc1pMwmtB19o++KjYPCjLFHUi4e0tTTQlU0dE0idlA2Xy0dt1mZ1XU +HLOZ1dpIgveB6dNNUaooTSQSj5xI0Dhvrjx0QhVTroS0ejqTVH2kFAunqmJq +lH30FOXIOa1m83xVnDJXbJB3IcFMNcJnW4kqrutT9btGeSE++X6kghqfY/VH +ezMJGce8ZSubVHG8jL1ipSsJnteLCtrbVXHskXr9TcrMpzNGUx9U8V1gqDfD +jYRS0XT3VdOqKLL94IV/tpDQdPbp1esqdFxD5G+46E5COimjW7eUjqVe3yR+ +UnZ/6/P4gy4dMw7Yv3PwIOErbW5QyZKONTOvM75TvsO2CWdtpOMW91Xxpp4k +hHtmCru603F5LPNEPGWhnNXaaSF0NDpmR4p6kfD80ZHqOwfpWKTUOGhJOfXj +c/uXcXScnPDXiqbsOp/WO5RER4cguziSsupS/z0Lz9NRhZEz/pHyJ2u+gGYu +HYU+JB2Q8CbhduDfs2uL6Pi2wESKRXl/kr2aTxkd6653PPWizC65cPfoQzra +c8+cP0rZouPVn9FGOr43N+dfoOwg8I/V1jd0TGEyA3mU3bRYqa976Mi7pVZb +T9nPKaQLPtHx+BnTsnbKIVHXmKWjdIzaFmQ7SPlgfmcQMUPHzIvXYkYpP/oc +794oQCAvq99tmrJlFCM6Zj6B79OIthnKL5bUXDMWJfDydc/J/3tj/ubGcXEC +HZvS7v3//nbjieFCaQL399cyxih7vEyU9KER+P3yJ71PlD/4aBoqqBAYmSUw +3EF5x49a9xYGgU0WUg5PKX877RF9SpNAkUkld5JyKP3HNbPlBP55RZe8RHma +TG38tYrAo31EWCzlSOvlIzx9Aq/NVzvuR1ngfb1kIIvAFXPa5uaUT+zdZsg0 +JfDhZtM7KpRFF/x27zYn0CDWr2n6/+uXnRGdZkXg7IPc7OeUs+ueNwo6EniI +PO0QSJnu5j9S5UKgN2FtaEA5f/iv5H53AuMWWbTOUfVxR9bA46MfgdpDGrpx +lPVvvY6+uJNADX2NKaBcZRqY7xxM4OCNjNBZqt6eBFwdqQsnULRmfrY/ZZs5 +ltThKOr7OBo2cpRfpbYZ6scQ6FMwXVZH1W9XpUhM/ikCozonmmQoezvk53sm +E3hkau2hCqr+BwdMn8mkE6h6Nf2LG+XRRWFSJy4RmLYoVjyV6pf9OeJG3FwC +44/YPdOkPKN/02P6OoHD73bbVlH9JeTdm+9/h8B1u+TyO6h+pJVaG1k+JnDf +gd7Wb5tIuGzx0eO/BgJpyfofdlJmdh2JKX9B4FBDZfUA1e8rBMlnmm8JfGrd +NNhE5YP5JhVP4a8EPuNnqkZR+bF7ZiKmcTEDjVu9VqEdVc97d8h9lmLg1jtx +LlFUPi0c6i4SojGwjohs4duQcL2nrt2UycBfbS3NclSe9T7I0CkzZGDc4Hc5 +0oKEDSdYnblbGVh/PlvKlEv113/FwQ+3M/BSv7YtcKg8CmcKvd/FQJmOR2Mc +Kn8Tdi5aSQtjYGSlbuIKKp9r7d4fS05g4HJa8spBfWq/kIpdFcVjYLdBy4nC +5VT9JE4/ySpnYMYesS17tan1EAp0L69m4MZfwaQhtT8ETTudmKhn4IVdov/c +o/aP/E71noBuBjr055slM0iQu9oYv0mIiSILfmVlyZHwa7lE7woXJoYNTBku ++48PPy4rxq5xZyL8Dn+WNMeHqSUa6qytTHxDpxuOzvJhdJIVaLGLiRZv1+ff ++MmHgWq/H+5HmMiIhHnT43x4bndPPOE6E8WsfJb9HuBDdpA3DEwzcf1T52u1 +T/hw/v3OgS+z1PgX+vPqHvPh3Ib9J0b+MvG3hTqvrpYPyWsSXsyIqGFQYIxA +dQ0f4n7zXJeoquFBqeoL8Xf5EJQ4P5RjqYb3Jwnd9Gt84BTdzsnMVEONwqjB +M9F86CGKrq67qIaaiX4J3kf4EJl588rUVTV8oZnepBPFh3uxBZecbqrhbmaw +yeNwPui55WSJ16jhKcvM7uZgPmjNP5ca36+GVyeFPI96UOeXrVEx4Trq+CD7 +l5+6AR8mpGy3bX6sjuNWmbSRfh507mY2Bz5Vx9oO00fTvTyobZiF6CZ1DN+Z +vGiOOr+lRhbRC9vV8UrSxaR57TxYPSDW92tIHeseNoSNP+NBCO+112VpDVzk +zIvZyuPB0AYXj8HtGuizp7gw5SgPBpO2bd4nrIkKRkPncqV4YDMWYfPJcClK +7I6piDQohWG/hfvvRi/DEs5gZ71XCfW/IS948rEWctSqTCpZt0HqpWZy6Zg2 +Wja96DbTugXKCXc2Ghrq4P6A982Wn25A1nKWhHTACmw7GdT19vl1eK5oZjB5 +diX2+XU/4dVfA7by49RV7auQZ9bsvbgwF8SF8sJ84lbjNfeVTfVJV0E1ls7Z +oqmL3tLXRCzKL4KIhme501NddIm6V/zdMAtWchXuRHjp4bGpv6fyDDJgX69U +na3AGlQbtT5E56bB2GSSi03WGrywxqxP41AKWK1qyLZZoY95SV6dLRKJ8GDS +5PfPV/oYrS1FE3oTDyE6et0t/gaYsvG/XPfNx4A7ur1ti4gh/qcgb6EoFgPr +1GnrF+cZ4sW+7Ws8nkfCspjTBx8bGeHf7CdEqkM4aPuzHmp0G2GF0SJD0N4H +KUyH2WPvjDAuWTBMQXkfTPX5Ggz0GqHOi8bpucX74IF7UtGVj0bI7Z3h903s +BaeNfeflR4zwsF3yeemqvXDI5ESoiIAxjkvLauna74VGyRbGiIYxWrvuSlWP +CAX/BzuP391rjCl+5Lrxl8EwGjwUsS7MGD99VK6ZdzcYDqrsDmoPp071T+x3 +aGYHw+nDe5xmooyxuKlH++aOYChlhxOceGO88NTJKl0gGObKj9XUZRvj5twD +QeNGuyHtzpWpN3XGeCOosf/Y3UB4mNO2fUKWhZ59oer1AwHwwZ6xNZzGwhvN +Y553XwaAwK/gLb8VWfi5xvEcWREA5o7CDvMJFvIFH3X1JwdAwzy2kYI2CyU2 +ipTPmQRAk+9VETNTFhax9cLULuyAbvXAktQdLOx3i7056e0PU4V/f666x8KY +698OXpHzg8+bLXNOVbJwLM0+JmSBH3T+c8b6YzULqx4tPGj7wxeqtyleyKxl +YUGcq7Jmuy/E0QzYf56x0Pwid39Qpi9IJAQefv6OhfIawuxlCr6gE/BWwF+Q +jTfD1vNYS33AT6NIJHs9G5kDiaOxjd4QWe8dqLmRjTp3aOzdRd6Q6i/1gu/E +xsmAkzkhyd5Qc/1Q0gtXNmZIVRyu3uQNMprWS/74sLH47oNb+we8oEHzk8y2 +cDaKTutVbBD0Au1ldELzKht7mmrGLZ09YEI73ZA/zsYtYr2VTYZu0NmE66Qn +2egx5Lq5hXCD2pBR57BpNhZ8s7rwRdQNkvk2ew1n2Rjxwv2jdZ8raLMFblcJ +mWBlsyG8T3AFX5tgRp2cCbY4ePWZ922GtgArsTaOCRbmBeryslygIv93/3SC +Cd4BqLlh4gyGa8N+2iZS/mZ9Tk7bGcr6h8Vyzpig1c1f5ek0Z+Cr9hrZpplg +ScTCsoppJ7idVXvmykUTtDv4O/Z2qRPkJJ1gWZWYYPbTxA96Wk5wKmzJ2axW +E4x8qPAwQt0R3C3U0ESVgzoD6pplxxzgT9tC8TqCg34znon3tjtAjv9oj60a +B/XIL5rt6xzgc3xlhPsyDp7RoN0MWOgA+55tuHNIj4MTshUHupLXw2mHw6oV +lhx80u/H+pRjD1Vub+f093BQd9kV74VdtqAUfLJyZS0HyxwjS/87ZwXJf3cY +JD7m4Ffelf7FR61AMM2S9+UJB3fmpqzRDbCCofL5N3OecfDbb/4cybKCKoHj +WVKtHGz5LhRZ2GcJ7udiIn584uCvi0OjsMoSsqoPGTxYxMW8YFPxR+8sQMxh +C09RnIttTJMAo0YLiPlgvCJCgot7HywTqSUtYOf8GfXVsly0OqA7JpxoAUYb +wmXyVLkoNb21MpRtAe0D+yZP6HIx6l9p8exLa0FWdDdvvSsXy+p9HnwLNof8 +tUcix7dw8eFqhemQLeagdyR5bbonF4dN2t4sWGcODuOlbzt9uMgsT2SHKZtD +fPv0L7/dXBy8vKl2bZMZzORFm0fGctHvo83s9VVm0G2S3lpQxMWj70uD5/5B +2Hkg/5JNCRfn/14fNPgJ4EdJmf9wKRdF0l1Hph4BSDE7f+qWc/HtqVbz45EA +dgtVlO/XcnEzzzTTbcQUatoKtre+5eKUBmtddRcXbMUrVoR3cvHlfb+Mz/e4 +0Gn17Aeth4sZJROv9DO5MFX1LcH7AxfFxp2iWc5cWJG7uvjfIS6mOiv5fnjF +gZpus/CkES5OTN88RS/hgK2MM6wa52KmOftqzBkO7Dh5oCVsmotVx0NohfYc +mKqNz5af4aKr5SbTEB0OxM2e96ua5eJxvYftLmIckNC/qeP1h5pvqGid97AJ +XAmumv77l4s/vAsHE5pM4H9aZN2p + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0756679147858876}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.0756679147858876}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994260116183648*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"16621394-0eaa-49d2-a5e6-2839a32d5d9b"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", - RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"344da507-9044-\ -ef47-aa8c-99f282e3d6d3"], + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellLabel-> + "In[118]:=",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VO0bB3DxlkiyG+ucGUuRFrLNmHHfJHsKiWyFpIhUoqgslRQhImlD +khKZOZGtUiKVishaRFpeWUNJevud31/n+lzXOc85z/Xc9/d5DsN3j5O/oICA +AHuegMD/rz96nz1RT8w33erMi0sPtzBtu0I7ZNYZB30BnCbfeiag7GtfWmca +3BArCjWq14Pwjbc6hDrzYC4pHhXqzUFyVD7tVwcfbPJc6F+fOEFfjcOeqY7H +EDcvJdjqiS9Yqg+9n+h4A4qnuY/aH+2DXx1GGeMdA3Cgaos2UREHdWtv5Lfk +TcJgwMnC5k3poNxX+dlX5w+wCyfZqxwvgczurbeE1wrhsPnlOlnXPEjTtax2 +cFmIGduDB4bOFEBX1uraCYnFmLN3qwYStyAxP/q1oIIk+tsqKCokFYOt/i4p +WTVJDHsjXHMqqxgWPnFyWbpCEveI9IR+zy+G4x81euzMJNG4uV3k9v1iOMxs ++nxulyS+cTpc8XC0GEJyaP9pVknivzk94gEbSsDxEk/HzkMKy9O+JRWI3gH5 +cx9PpV+WRpFNKlNc/VKgLS87PlMgjeOvNFGeVQqKj+OjvUqlcTQqdnCYWwqq +41oHltZJo+rjljVnrEpBwz50W/VXadyTfv9drnsprPnnj+HHNTLo4WLYoxhT +ChvC5Ab1nsvgjub7I1aNpbBx0dfe860yuCarlF3UVApOeZVdc+9ksNj06WvR +llLY3Oz5umFMBouSypofdJWCl861KndZWWwdMGLODpVC0OCqs3HbZNH7oHPx +fTEenNxkY/rmhyzSm/79cWA9DxTvvlIUnCeHMMiULHfkQYn0pp+6i+TQQSj8 +4YQLD9rfeJeepcvh9YqlHR7ePFB3DGM6Wsvh2CGHodkQHjxef3VB8wU5XKIR +4Ls9hQd/LKdfveTIo+bTCImPTTxILYgs+mMpj6dtk/UzmqnnFwgkrHCUx3lb +V3w2b+OBfb2o2Rl/edxXVDyR2sOD7LUEaZ8sj0Nh9278/JcHxmh3/kWfPFqu +HTwxNp8P+1m5W5/F0ZCwuEc7xeaDbY74lF0SDWOCJXMiuHxgCh9OeJVBw3V/ +mq18kQ/NbZt5rYU0TH38fWa5JR9WhooJ9b6i4bE2nU+pjnz4WhBR8F1RAeM+ +Gc/PDeCDp4zDiBKpgBu1RG/0pPJhTVR17JUaBXyfl5LokM4H0YFlcowGBezZ +k555P4MPlXeEQLNLAU3yVzNSs/kgZ1eZuvqvAkYP1EkI51Pvj1XXX2eniIW6 +GZc55XywGJuNDPmoiAUTr940Un10yPqc9qNhRUx+c3XdvS4+lOSu6Jb+oYgd +zkyJvB4+0DZtY1UuVMJip97i3X18GK6o/ym0UgkLT36Qb//Mh/S41LALB5XQ +3kBfeHaKD409WurDsUroYnVgWckPPszp17WaJirhcoP9hd4zfNjxZVpv8LIS +CpxLabj7mw9se4+JlXVKmPNmJMFAkIQBWc2QJ4uVcZv7z8xT4iTI73moIi+v +jLLX7vUJSZBg3+j2chehjNs/e6RESpJQHpmos2SNMgoaxWh4yZBwum98aIub +Mjow6zg/FUjQu1kdMJanjJFuYuej1UkIEHSRN7+tjP6VvWdrNUi45DHacK5M +GdtMmuf+aJKwQJyhyW5URqntxzVCtEjo3hc/eHxEGWPfZLSqrSQhluPoo2is +gnEmX1Z/MiTB2vvKdyNzFZT8OdMgZEyCeMy3Yy72KrhkvMxIlUWNX3eiIHWb +CjL1C29bmpBQYVv1bcEpFezyn53zBxKidwsfUU9XwfHMrzF+SIJl8iZx88sq +GBuU/tnTjIS2ltHVR3gqmDP7yH3tWhLG3dTCJ7tUsHethUCfJQn3IkOFJQdV +MCTqdVG1FQlHL93PWjmqgudfx+A5axLEPrhW7xJUxdaN6losWxKWBiQJfNBW +xS9RW6Wc1pMwmtB19o++KjYPCjLFHUi4e0tTTQlU0dE0idlA2Xy0dt1mZ1XU +HLOZ1dpIgveB6dNNUaooTSQSj5xI0Dhvrjx0QhVTroS0ejqTVH2kFAunqmJq +lH30FOXIOa1m83xVnDJXbJB3IcFMNcJnW4kqrutT9btGeSE++X6kghqfY/VH +ezMJGce8ZSubVHG8jL1ipSsJnteLCtrbVXHskXr9TcrMpzNGUx9U8V1gqDfD +jYRS0XT3VdOqKLL94IV/tpDQdPbp1esqdFxD5G+46E5COimjW7eUjqVe3yR+ +UnZ/6/P4gy4dMw7Yv3PwIOErbW5QyZKONTOvM75TvsO2CWdtpOMW91Xxpp4k +hHtmCru603F5LPNEPGWhnNXaaSF0NDpmR4p6kfD80ZHqOwfpWKTUOGhJOfXj +c/uXcXScnPDXiqbsOp/WO5RER4cguziSsupS/z0Lz9NRhZEz/pHyJ2u+gGYu +HYU+JB2Q8CbhduDfs2uL6Pi2wESKRXl/kr2aTxkd6653PPWizC65cPfoQzra +c8+cP0rZouPVn9FGOr43N+dfoOwg8I/V1jd0TGEyA3mU3bRYqa976Mi7pVZb +T9nPKaQLPtHx+BnTsnbKIVHXmKWjdIzaFmQ7SPlgfmcQMUPHzIvXYkYpP/oc +794oQCAvq99tmrJlFCM6Zj6B79OIthnKL5bUXDMWJfDydc/J/3tj/ubGcXEC +HZvS7v3//nbjieFCaQL399cyxih7vEyU9KER+P3yJ71PlD/4aBoqqBAYmSUw +3EF5x49a9xYGgU0WUg5PKX877RF9SpNAkUkld5JyKP3HNbPlBP55RZe8RHma +TG38tYrAo31EWCzlSOvlIzx9Aq/NVzvuR1ngfb1kIIvAFXPa5uaUT+zdZsg0 +JfDhZtM7KpRFF/x27zYn0CDWr2n6/+uXnRGdZkXg7IPc7OeUs+ueNwo6EniI +PO0QSJnu5j9S5UKgN2FtaEA5f/iv5H53AuMWWbTOUfVxR9bA46MfgdpDGrpx +lPVvvY6+uJNADX2NKaBcZRqY7xxM4OCNjNBZqt6eBFwdqQsnULRmfrY/ZZs5 +ltThKOr7OBo2cpRfpbYZ6scQ6FMwXVZH1W9XpUhM/ikCozonmmQoezvk53sm +E3hkau2hCqr+BwdMn8mkE6h6Nf2LG+XRRWFSJy4RmLYoVjyV6pf9OeJG3FwC +44/YPdOkPKN/02P6OoHD73bbVlH9JeTdm+9/h8B1u+TyO6h+pJVaG1k+JnDf +gd7Wb5tIuGzx0eO/BgJpyfofdlJmdh2JKX9B4FBDZfUA1e8rBMlnmm8JfGrd +NNhE5YP5JhVP4a8EPuNnqkZR+bF7ZiKmcTEDjVu9VqEdVc97d8h9lmLg1jtx +LlFUPi0c6i4SojGwjohs4duQcL2nrt2UycBfbS3NclSe9T7I0CkzZGDc4Hc5 +0oKEDSdYnblbGVh/PlvKlEv113/FwQ+3M/BSv7YtcKg8CmcKvd/FQJmOR2Mc +Kn8Tdi5aSQtjYGSlbuIKKp9r7d4fS05g4HJa8spBfWq/kIpdFcVjYLdBy4nC +5VT9JE4/ySpnYMYesS17tan1EAp0L69m4MZfwaQhtT8ETTudmKhn4IVdov/c +o/aP/E71noBuBjr055slM0iQu9oYv0mIiSILfmVlyZHwa7lE7woXJoYNTBku ++48PPy4rxq5xZyL8Dn+WNMeHqSUa6qytTHxDpxuOzvJhdJIVaLGLiRZv1+ff ++MmHgWq/H+5HmMiIhHnT43x4bndPPOE6E8WsfJb9HuBDdpA3DEwzcf1T52u1 +T/hw/v3OgS+z1PgX+vPqHvPh3Ib9J0b+MvG3hTqvrpYPyWsSXsyIqGFQYIxA +dQ0f4n7zXJeoquFBqeoL8Xf5EJQ4P5RjqYb3Jwnd9Gt84BTdzsnMVEONwqjB +M9F86CGKrq67qIaaiX4J3kf4EJl588rUVTV8oZnepBPFh3uxBZecbqrhbmaw +yeNwPui55WSJ16jhKcvM7uZgPmjNP5ca36+GVyeFPI96UOeXrVEx4Trq+CD7 +l5+6AR8mpGy3bX6sjuNWmbSRfh507mY2Bz5Vx9oO00fTvTyobZiF6CZ1DN+Z +vGiOOr+lRhbRC9vV8UrSxaR57TxYPSDW92tIHeseNoSNP+NBCO+112VpDVzk +zIvZyuPB0AYXj8HtGuizp7gw5SgPBpO2bd4nrIkKRkPncqV4YDMWYfPJcClK +7I6piDQohWG/hfvvRi/DEs5gZ71XCfW/IS948rEWctSqTCpZt0HqpWZy6Zg2 +Wja96DbTugXKCXc2Ghrq4P6A982Wn25A1nKWhHTACmw7GdT19vl1eK5oZjB5 +diX2+XU/4dVfA7by49RV7auQZ9bsvbgwF8SF8sJ84lbjNfeVTfVJV0E1ls7Z +oqmL3tLXRCzKL4KIhme501NddIm6V/zdMAtWchXuRHjp4bGpv6fyDDJgX69U +na3AGlQbtT5E56bB2GSSi03WGrywxqxP41AKWK1qyLZZoY95SV6dLRKJ8GDS +5PfPV/oYrS1FE3oTDyE6et0t/gaYsvG/XPfNx4A7ur1ti4gh/qcgb6EoFgPr +1GnrF+cZ4sW+7Ws8nkfCspjTBx8bGeHf7CdEqkM4aPuzHmp0G2GF0SJD0N4H +KUyH2WPvjDAuWTBMQXkfTPX5Ggz0GqHOi8bpucX74IF7UtGVj0bI7Z3h903s +BaeNfeflR4zwsF3yeemqvXDI5ESoiIAxjkvLauna74VGyRbGiIYxWrvuSlWP +CAX/BzuP391rjCl+5Lrxl8EwGjwUsS7MGD99VK6ZdzcYDqrsDmoPp071T+x3 +aGYHw+nDe5xmooyxuKlH++aOYChlhxOceGO88NTJKl0gGObKj9XUZRvj5twD +QeNGuyHtzpWpN3XGeCOosf/Y3UB4mNO2fUKWhZ59oer1AwHwwZ6xNZzGwhvN +Y553XwaAwK/gLb8VWfi5xvEcWREA5o7CDvMJFvIFH3X1JwdAwzy2kYI2CyU2 +ipTPmQRAk+9VETNTFhax9cLULuyAbvXAktQdLOx3i7056e0PU4V/f666x8KY +698OXpHzg8+bLXNOVbJwLM0+JmSBH3T+c8b6YzULqx4tPGj7wxeqtyleyKxl +YUGcq7Jmuy/E0QzYf56x0Pwid39Qpi9IJAQefv6OhfIawuxlCr6gE/BWwF+Q +jTfD1vNYS33AT6NIJHs9G5kDiaOxjd4QWe8dqLmRjTp3aOzdRd6Q6i/1gu/E +xsmAkzkhyd5Qc/1Q0gtXNmZIVRyu3uQNMprWS/74sLH47oNb+we8oEHzk8y2 +cDaKTutVbBD0Au1ldELzKht7mmrGLZ09YEI73ZA/zsYtYr2VTYZu0NmE66Qn +2egx5Lq5hXCD2pBR57BpNhZ8s7rwRdQNkvk2ew1n2Rjxwv2jdZ8raLMFblcJ +mWBlsyG8T3AFX5tgRp2cCbY4ePWZ922GtgArsTaOCRbmBeryslygIv93/3SC +Cd4BqLlh4gyGa8N+2iZS/mZ9Tk7bGcr6h8Vyzpig1c1f5ek0Z+Cr9hrZpplg +ScTCsoppJ7idVXvmykUTtDv4O/Z2qRPkJJ1gWZWYYPbTxA96Wk5wKmzJ2axW +E4x8qPAwQt0R3C3U0ESVgzoD6pplxxzgT9tC8TqCg34znon3tjtAjv9oj60a +B/XIL5rt6xzgc3xlhPsyDp7RoN0MWOgA+55tuHNIj4MTshUHupLXw2mHw6oV +lhx80u/H+pRjD1Vub+f093BQd9kV74VdtqAUfLJyZS0HyxwjS/87ZwXJf3cY +JD7m4Ffelf7FR61AMM2S9+UJB3fmpqzRDbCCofL5N3OecfDbb/4cybKCKoHj +WVKtHGz5LhRZ2GcJ7udiIn584uCvi0OjsMoSsqoPGTxYxMW8YFPxR+8sQMxh +C09RnIttTJMAo0YLiPlgvCJCgot7HywTqSUtYOf8GfXVsly0OqA7JpxoAUYb +wmXyVLkoNb21MpRtAe0D+yZP6HIx6l9p8exLa0FWdDdvvSsXy+p9HnwLNof8 +tUcix7dw8eFqhemQLeagdyR5bbonF4dN2t4sWGcODuOlbzt9uMgsT2SHKZtD +fPv0L7/dXBy8vKl2bZMZzORFm0fGctHvo83s9VVm0G2S3lpQxMWj70uD5/5B +2Hkg/5JNCRfn/14fNPgJ4EdJmf9wKRdF0l1Hph4BSDE7f+qWc/HtqVbz45EA +dgtVlO/XcnEzzzTTbcQUatoKtre+5eKUBmtddRcXbMUrVoR3cvHlfb+Mz/e4 +0Gn17Aeth4sZJROv9DO5MFX1LcH7AxfFxp2iWc5cWJG7uvjfIS6mOiv5fnjF +gZpus/CkES5OTN88RS/hgK2MM6wa52KmOftqzBkO7Dh5oCVsmotVx0NohfYc +mKqNz5af4aKr5SbTEB0OxM2e96ua5eJxvYftLmIckNC/qeP1h5pvqGid97AJ +XAmumv77l4s/vAsHE5pM4H9aZN2p + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VO0bB3DxlkiyG+ucGUuRFrLNmHHfJHsKiWyFpIhUoqgslRQhImlD +khKZOZGtUiKVishaRFpeWUNJevud31/n+lzXOc85z/Xc9/d5DsN3j5O/oICA +AHuegMD/rz96nz1RT8w33erMi0sPtzBtu0I7ZNYZB30BnCbfeiag7GtfWmca +3BArCjWq14Pwjbc6hDrzYC4pHhXqzUFyVD7tVwcfbPJc6F+fOEFfjcOeqY7H +EDcvJdjqiS9Yqg+9n+h4A4qnuY/aH+2DXx1GGeMdA3Cgaos2UREHdWtv5Lfk +TcJgwMnC5k3poNxX+dlX5w+wCyfZqxwvgczurbeE1wrhsPnlOlnXPEjTtax2 +cFmIGduDB4bOFEBX1uraCYnFmLN3qwYStyAxP/q1oIIk+tsqKCokFYOt/i4p +WTVJDHsjXHMqqxgWPnFyWbpCEveI9IR+zy+G4x81euzMJNG4uV3k9v1iOMxs ++nxulyS+cTpc8XC0GEJyaP9pVknivzk94gEbSsDxEk/HzkMKy9O+JRWI3gH5 +cx9PpV+WRpFNKlNc/VKgLS87PlMgjeOvNFGeVQqKj+OjvUqlcTQqdnCYWwqq +41oHltZJo+rjljVnrEpBwz50W/VXadyTfv9drnsprPnnj+HHNTLo4WLYoxhT +ChvC5Ab1nsvgjub7I1aNpbBx0dfe860yuCarlF3UVApOeZVdc+9ksNj06WvR +llLY3Oz5umFMBouSypofdJWCl861KndZWWwdMGLODpVC0OCqs3HbZNH7oHPx +fTEenNxkY/rmhyzSm/79cWA9DxTvvlIUnCeHMMiULHfkQYn0pp+6i+TQQSj8 +4YQLD9rfeJeepcvh9YqlHR7ePFB3DGM6Wsvh2CGHodkQHjxef3VB8wU5XKIR +4Ls9hQd/LKdfveTIo+bTCImPTTxILYgs+mMpj6dtk/UzmqnnFwgkrHCUx3lb +V3w2b+OBfb2o2Rl/edxXVDyR2sOD7LUEaZ8sj0Nh9278/JcHxmh3/kWfPFqu +HTwxNp8P+1m5W5/F0ZCwuEc7xeaDbY74lF0SDWOCJXMiuHxgCh9OeJVBw3V/ +mq18kQ/NbZt5rYU0TH38fWa5JR9WhooJ9b6i4bE2nU+pjnz4WhBR8F1RAeM+ +Gc/PDeCDp4zDiBKpgBu1RG/0pPJhTVR17JUaBXyfl5LokM4H0YFlcowGBezZ +k555P4MPlXeEQLNLAU3yVzNSs/kgZ1eZuvqvAkYP1EkI51Pvj1XXX2eniIW6 +GZc55XywGJuNDPmoiAUTr940Un10yPqc9qNhRUx+c3XdvS4+lOSu6Jb+oYgd +zkyJvB4+0DZtY1UuVMJip97i3X18GK6o/ym0UgkLT36Qb//Mh/S41LALB5XQ +3kBfeHaKD409WurDsUroYnVgWckPPszp17WaJirhcoP9hd4zfNjxZVpv8LIS +CpxLabj7mw9se4+JlXVKmPNmJMFAkIQBWc2QJ4uVcZv7z8xT4iTI73moIi+v +jLLX7vUJSZBg3+j2chehjNs/e6RESpJQHpmos2SNMgoaxWh4yZBwum98aIub +Mjow6zg/FUjQu1kdMJanjJFuYuej1UkIEHSRN7+tjP6VvWdrNUi45DHacK5M +GdtMmuf+aJKwQJyhyW5URqntxzVCtEjo3hc/eHxEGWPfZLSqrSQhluPoo2is +gnEmX1Z/MiTB2vvKdyNzFZT8OdMgZEyCeMy3Yy72KrhkvMxIlUWNX3eiIHWb +CjL1C29bmpBQYVv1bcEpFezyn53zBxKidwsfUU9XwfHMrzF+SIJl8iZx88sq +GBuU/tnTjIS2ltHVR3gqmDP7yH3tWhLG3dTCJ7tUsHethUCfJQn3IkOFJQdV +MCTqdVG1FQlHL93PWjmqgudfx+A5axLEPrhW7xJUxdaN6losWxKWBiQJfNBW +xS9RW6Wc1pMwmtB19o++KjYPCjLFHUi4e0tTTQlU0dE0idlA2Xy0dt1mZ1XU +HLOZ1dpIgveB6dNNUaooTSQSj5xI0Dhvrjx0QhVTroS0ejqTVH2kFAunqmJq +lH30FOXIOa1m83xVnDJXbJB3IcFMNcJnW4kqrutT9btGeSE++X6kghqfY/VH +ezMJGce8ZSubVHG8jL1ipSsJnteLCtrbVXHskXr9TcrMpzNGUx9U8V1gqDfD +jYRS0XT3VdOqKLL94IV/tpDQdPbp1esqdFxD5G+46E5COimjW7eUjqVe3yR+ +UnZ/6/P4gy4dMw7Yv3PwIOErbW5QyZKONTOvM75TvsO2CWdtpOMW91Xxpp4k +hHtmCru603F5LPNEPGWhnNXaaSF0NDpmR4p6kfD80ZHqOwfpWKTUOGhJOfXj +c/uXcXScnPDXiqbsOp/WO5RER4cguziSsupS/z0Lz9NRhZEz/pHyJ2u+gGYu +HYU+JB2Q8CbhduDfs2uL6Pi2wESKRXl/kr2aTxkd6653PPWizC65cPfoQzra +c8+cP0rZouPVn9FGOr43N+dfoOwg8I/V1jd0TGEyA3mU3bRYqa976Mi7pVZb +T9nPKaQLPtHx+BnTsnbKIVHXmKWjdIzaFmQ7SPlgfmcQMUPHzIvXYkYpP/oc +794oQCAvq99tmrJlFCM6Zj6B79OIthnKL5bUXDMWJfDydc/J/3tj/ubGcXEC +HZvS7v3//nbjieFCaQL399cyxih7vEyU9KER+P3yJ71PlD/4aBoqqBAYmSUw +3EF5x49a9xYGgU0WUg5PKX877RF9SpNAkUkld5JyKP3HNbPlBP55RZe8RHma +TG38tYrAo31EWCzlSOvlIzx9Aq/NVzvuR1ngfb1kIIvAFXPa5uaUT+zdZsg0 +JfDhZtM7KpRFF/x27zYn0CDWr2n6/+uXnRGdZkXg7IPc7OeUs+ueNwo6EniI +PO0QSJnu5j9S5UKgN2FtaEA5f/iv5H53AuMWWbTOUfVxR9bA46MfgdpDGrpx +lPVvvY6+uJNADX2NKaBcZRqY7xxM4OCNjNBZqt6eBFwdqQsnULRmfrY/ZZs5 +ltThKOr7OBo2cpRfpbYZ6scQ6FMwXVZH1W9XpUhM/ikCozonmmQoezvk53sm +E3hkau2hCqr+BwdMn8mkE6h6Nf2LG+XRRWFSJy4RmLYoVjyV6pf9OeJG3FwC +44/YPdOkPKN/02P6OoHD73bbVlH9JeTdm+9/h8B1u+TyO6h+pJVaG1k+JnDf +gd7Wb5tIuGzx0eO/BgJpyfofdlJmdh2JKX9B4FBDZfUA1e8rBMlnmm8JfGrd +NNhE5YP5JhVP4a8EPuNnqkZR+bF7ZiKmcTEDjVu9VqEdVc97d8h9lmLg1jtx +LlFUPi0c6i4SojGwjohs4duQcL2nrt2UycBfbS3NclSe9T7I0CkzZGDc4Hc5 +0oKEDSdYnblbGVh/PlvKlEv113/FwQ+3M/BSv7YtcKg8CmcKvd/FQJmOR2Mc +Kn8Tdi5aSQtjYGSlbuIKKp9r7d4fS05g4HJa8spBfWq/kIpdFcVjYLdBy4nC +5VT9JE4/ySpnYMYesS17tan1EAp0L69m4MZfwaQhtT8ETTudmKhn4IVdov/c +o/aP/E71noBuBjr055slM0iQu9oYv0mIiSILfmVlyZHwa7lE7woXJoYNTBku ++48PPy4rxq5xZyL8Dn+WNMeHqSUa6qytTHxDpxuOzvJhdJIVaLGLiRZv1+ff ++MmHgWq/H+5HmMiIhHnT43x4bndPPOE6E8WsfJb9HuBDdpA3DEwzcf1T52u1 +T/hw/v3OgS+z1PgX+vPqHvPh3Ib9J0b+MvG3hTqvrpYPyWsSXsyIqGFQYIxA +dQ0f4n7zXJeoquFBqeoL8Xf5EJQ4P5RjqYb3Jwnd9Gt84BTdzsnMVEONwqjB +M9F86CGKrq67qIaaiX4J3kf4EJl588rUVTV8oZnepBPFh3uxBZecbqrhbmaw +yeNwPui55WSJ16jhKcvM7uZgPmjNP5ca36+GVyeFPI96UOeXrVEx4Trq+CD7 +l5+6AR8mpGy3bX6sjuNWmbSRfh507mY2Bz5Vx9oO00fTvTyobZiF6CZ1DN+Z +vGiOOr+lRhbRC9vV8UrSxaR57TxYPSDW92tIHeseNoSNP+NBCO+112VpDVzk +zIvZyuPB0AYXj8HtGuizp7gw5SgPBpO2bd4nrIkKRkPncqV4YDMWYfPJcClK +7I6piDQohWG/hfvvRi/DEs5gZ71XCfW/IS948rEWctSqTCpZt0HqpWZy6Zg2 +Wja96DbTugXKCXc2Ghrq4P6A982Wn25A1nKWhHTACmw7GdT19vl1eK5oZjB5 +diX2+XU/4dVfA7by49RV7auQZ9bsvbgwF8SF8sJ84lbjNfeVTfVJV0E1ls7Z +oqmL3tLXRCzKL4KIhme501NddIm6V/zdMAtWchXuRHjp4bGpv6fyDDJgX69U +na3AGlQbtT5E56bB2GSSi03WGrywxqxP41AKWK1qyLZZoY95SV6dLRKJ8GDS +5PfPV/oYrS1FE3oTDyE6et0t/gaYsvG/XPfNx4A7ur1ti4gh/qcgb6EoFgPr +1GnrF+cZ4sW+7Ws8nkfCspjTBx8bGeHf7CdEqkM4aPuzHmp0G2GF0SJD0N4H +KUyH2WPvjDAuWTBMQXkfTPX5Ggz0GqHOi8bpucX74IF7UtGVj0bI7Z3h903s +BaeNfeflR4zwsF3yeemqvXDI5ESoiIAxjkvLauna74VGyRbGiIYxWrvuSlWP +CAX/BzuP391rjCl+5Lrxl8EwGjwUsS7MGD99VK6ZdzcYDqrsDmoPp071T+x3 +aGYHw+nDe5xmooyxuKlH++aOYChlhxOceGO88NTJKl0gGObKj9XUZRvj5twD +QeNGuyHtzpWpN3XGeCOosf/Y3UB4mNO2fUKWhZ59oer1AwHwwZ6xNZzGwhvN +Y553XwaAwK/gLb8VWfi5xvEcWREA5o7CDvMJFvIFH3X1JwdAwzy2kYI2CyU2 +ipTPmQRAk+9VETNTFhax9cLULuyAbvXAktQdLOx3i7056e0PU4V/f666x8KY +698OXpHzg8+bLXNOVbJwLM0+JmSBH3T+c8b6YzULqx4tPGj7wxeqtyleyKxl +YUGcq7Jmuy/E0QzYf56x0Pwid39Qpi9IJAQefv6OhfIawuxlCr6gE/BWwF+Q +jTfD1vNYS33AT6NIJHs9G5kDiaOxjd4QWe8dqLmRjTp3aOzdRd6Q6i/1gu/E +xsmAkzkhyd5Qc/1Q0gtXNmZIVRyu3uQNMprWS/74sLH47oNb+we8oEHzk8y2 +cDaKTutVbBD0Au1ldELzKht7mmrGLZ09YEI73ZA/zsYtYr2VTYZu0NmE66Qn +2egx5Lq5hXCD2pBR57BpNhZ8s7rwRdQNkvk2ew1n2Rjxwv2jdZ8raLMFblcJ +mWBlsyG8T3AFX5tgRp2cCbY4ePWZ922GtgArsTaOCRbmBeryslygIv93/3SC +Cd4BqLlh4gyGa8N+2iZS/mZ9Tk7bGcr6h8Vyzpig1c1f5ek0Z+Cr9hrZpplg +ScTCsoppJ7idVXvmykUTtDv4O/Z2qRPkJJ1gWZWYYPbTxA96Wk5wKmzJ2axW +E4x8qPAwQt0R3C3U0ESVgzoD6pplxxzgT9tC8TqCg34znon3tjtAjv9oj60a +B/XIL5rt6xzgc3xlhPsyDp7RoN0MWOgA+55tuHNIj4MTshUHupLXw2mHw6oV +lhx80u/H+pRjD1Vub+f093BQd9kV74VdtqAUfLJyZS0HyxwjS/87ZwXJf3cY +JD7m4Ffelf7FR61AMM2S9+UJB3fmpqzRDbCCofL5N3OecfDbb/4cybKCKoHj +WVKtHGz5LhRZ2GcJ7udiIn584uCvi0OjsMoSsqoPGTxYxMW8YFPxR+8sQMxh +C09RnIttTJMAo0YLiPlgvCJCgot7HywTqSUtYOf8GfXVsly0OqA7JpxoAUYb +wmXyVLkoNb21MpRtAe0D+yZP6HIx6l9p8exLa0FWdDdvvSsXy+p9HnwLNof8 +tUcix7dw8eFqhemQLeagdyR5bbonF4dN2t4sWGcODuOlbzt9uMgsT2SHKZtD +fPv0L7/dXBy8vKl2bZMZzORFm0fGctHvo83s9VVm0G2S3lpQxMWj70uD5/5B +2Hkg/5JNCRfn/14fNPgJ4EdJmf9wKRdF0l1Hph4BSDE7f+qWc/HtqVbz45EA +dgtVlO/XcnEzzzTTbcQUatoKtre+5eKUBmtddRcXbMUrVoR3cvHlfb+Mz/e4 +0Gn17Aeth4sZJROv9DO5MFX1LcH7AxfFxp2iWc5cWJG7uvjfIS6mOiv5fnjF +gZpus/CkES5OTN88RS/hgK2MM6wa52KmOftqzBkO7Dh5oCVsmotVx0NohfYc +mKqNz5af4aKr5SbTEB0OxM2e96ua5eJxvYftLmIckNC/qeP1h5pvqGid97AJ +XAmumv77l4s/vAsHE5pM4H9aZN2p + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0756679147858876}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0756679147858876}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VO0bB3DxlkiyG+ucGUuRFrLNmHHfJHsKiWyFpIhUoqgslRQhImlD +khKZOZGtUiKVishaRFpeWUNJevud31/n+lzXOc85z/Xc9/d5DsN3j5O/oICA +AHuegMD/rz96nz1RT8w33erMi0sPtzBtu0I7ZNYZB30BnCbfeiag7GtfWmca +3BArCjWq14Pwjbc6hDrzYC4pHhXqzUFyVD7tVwcfbPJc6F+fOEFfjcOeqY7H +EDcvJdjqiS9Yqg+9n+h4A4qnuY/aH+2DXx1GGeMdA3Cgaos2UREHdWtv5Lfk +TcJgwMnC5k3poNxX+dlX5w+wCyfZqxwvgczurbeE1wrhsPnlOlnXPEjTtax2 +cFmIGduDB4bOFEBX1uraCYnFmLN3qwYStyAxP/q1oIIk+tsqKCokFYOt/i4p +WTVJDHsjXHMqqxgWPnFyWbpCEveI9IR+zy+G4x81euzMJNG4uV3k9v1iOMxs ++nxulyS+cTpc8XC0GEJyaP9pVknivzk94gEbSsDxEk/HzkMKy9O+JRWI3gH5 +cx9PpV+WRpFNKlNc/VKgLS87PlMgjeOvNFGeVQqKj+OjvUqlcTQqdnCYWwqq +41oHltZJo+rjljVnrEpBwz50W/VXadyTfv9drnsprPnnj+HHNTLo4WLYoxhT +ChvC5Ab1nsvgjub7I1aNpbBx0dfe860yuCarlF3UVApOeZVdc+9ksNj06WvR +llLY3Oz5umFMBouSypofdJWCl861KndZWWwdMGLODpVC0OCqs3HbZNH7oHPx +fTEenNxkY/rmhyzSm/79cWA9DxTvvlIUnCeHMMiULHfkQYn0pp+6i+TQQSj8 +4YQLD9rfeJeepcvh9YqlHR7ePFB3DGM6Wsvh2CGHodkQHjxef3VB8wU5XKIR +4Ls9hQd/LKdfveTIo+bTCImPTTxILYgs+mMpj6dtk/UzmqnnFwgkrHCUx3lb +V3w2b+OBfb2o2Rl/edxXVDyR2sOD7LUEaZ8sj0Nh9278/JcHxmh3/kWfPFqu +HTwxNp8P+1m5W5/F0ZCwuEc7xeaDbY74lF0SDWOCJXMiuHxgCh9OeJVBw3V/ +mq18kQ/NbZt5rYU0TH38fWa5JR9WhooJ9b6i4bE2nU+pjnz4WhBR8F1RAeM+ +Gc/PDeCDp4zDiBKpgBu1RG/0pPJhTVR17JUaBXyfl5LokM4H0YFlcowGBezZ +k555P4MPlXeEQLNLAU3yVzNSs/kgZ1eZuvqvAkYP1EkI51Pvj1XXX2eniIW6 +GZc55XywGJuNDPmoiAUTr940Un10yPqc9qNhRUx+c3XdvS4+lOSu6Jb+oYgd +zkyJvB4+0DZtY1UuVMJip97i3X18GK6o/ym0UgkLT36Qb//Mh/S41LALB5XQ +3kBfeHaKD409WurDsUroYnVgWckPPszp17WaJirhcoP9hd4zfNjxZVpv8LIS +CpxLabj7mw9se4+JlXVKmPNmJMFAkIQBWc2QJ4uVcZv7z8xT4iTI73moIi+v +jLLX7vUJSZBg3+j2chehjNs/e6RESpJQHpmos2SNMgoaxWh4yZBwum98aIub +Mjow6zg/FUjQu1kdMJanjJFuYuej1UkIEHSRN7+tjP6VvWdrNUi45DHacK5M +GdtMmuf+aJKwQJyhyW5URqntxzVCtEjo3hc/eHxEGWPfZLSqrSQhluPoo2is +gnEmX1Z/MiTB2vvKdyNzFZT8OdMgZEyCeMy3Yy72KrhkvMxIlUWNX3eiIHWb +CjL1C29bmpBQYVv1bcEpFezyn53zBxKidwsfUU9XwfHMrzF+SIJl8iZx88sq +GBuU/tnTjIS2ltHVR3gqmDP7yH3tWhLG3dTCJ7tUsHethUCfJQn3IkOFJQdV +MCTqdVG1FQlHL93PWjmqgudfx+A5axLEPrhW7xJUxdaN6losWxKWBiQJfNBW +xS9RW6Wc1pMwmtB19o++KjYPCjLFHUi4e0tTTQlU0dE0idlA2Xy0dt1mZ1XU +HLOZ1dpIgveB6dNNUaooTSQSj5xI0Dhvrjx0QhVTroS0ejqTVH2kFAunqmJq +lH30FOXIOa1m83xVnDJXbJB3IcFMNcJnW4kqrutT9btGeSE++X6kghqfY/VH +ezMJGce8ZSubVHG8jL1ipSsJnteLCtrbVXHskXr9TcrMpzNGUx9U8V1gqDfD +jYRS0XT3VdOqKLL94IV/tpDQdPbp1esqdFxD5G+46E5COimjW7eUjqVe3yR+ +UnZ/6/P4gy4dMw7Yv3PwIOErbW5QyZKONTOvM75TvsO2CWdtpOMW91Xxpp4k +hHtmCru603F5LPNEPGWhnNXaaSF0NDpmR4p6kfD80ZHqOwfpWKTUOGhJOfXj +c/uXcXScnPDXiqbsOp/WO5RER4cguziSsupS/z0Lz9NRhZEz/pHyJ2u+gGYu +HYU+JB2Q8CbhduDfs2uL6Pi2wESKRXl/kr2aTxkd6653PPWizC65cPfoQzra +c8+cP0rZouPVn9FGOr43N+dfoOwg8I/V1jd0TGEyA3mU3bRYqa976Mi7pVZb +T9nPKaQLPtHx+BnTsnbKIVHXmKWjdIzaFmQ7SPlgfmcQMUPHzIvXYkYpP/oc +794oQCAvq99tmrJlFCM6Zj6B79OIthnKL5bUXDMWJfDydc/J/3tj/ubGcXEC +HZvS7v3//nbjieFCaQL399cyxih7vEyU9KER+P3yJ71PlD/4aBoqqBAYmSUw +3EF5x49a9xYGgU0WUg5PKX877RF9SpNAkUkld5JyKP3HNbPlBP55RZe8RHma +TG38tYrAo31EWCzlSOvlIzx9Aq/NVzvuR1ngfb1kIIvAFXPa5uaUT+zdZsg0 +JfDhZtM7KpRFF/x27zYn0CDWr2n6/+uXnRGdZkXg7IPc7OeUs+ueNwo6EniI +PO0QSJnu5j9S5UKgN2FtaEA5f/iv5H53AuMWWbTOUfVxR9bA46MfgdpDGrpx +lPVvvY6+uJNADX2NKaBcZRqY7xxM4OCNjNBZqt6eBFwdqQsnULRmfrY/ZZs5 +ltThKOr7OBo2cpRfpbYZ6scQ6FMwXVZH1W9XpUhM/ikCozonmmQoezvk53sm +E3hkau2hCqr+BwdMn8mkE6h6Nf2LG+XRRWFSJy4RmLYoVjyV6pf9OeJG3FwC +44/YPdOkPKN/02P6OoHD73bbVlH9JeTdm+9/h8B1u+TyO6h+pJVaG1k+JnDf +gd7Wb5tIuGzx0eO/BgJpyfofdlJmdh2JKX9B4FBDZfUA1e8rBMlnmm8JfGrd +NNhE5YP5JhVP4a8EPuNnqkZR+bF7ZiKmcTEDjVu9VqEdVc97d8h9lmLg1jtx +LlFUPi0c6i4SojGwjohs4duQcL2nrt2UycBfbS3NclSe9T7I0CkzZGDc4Hc5 +0oKEDSdYnblbGVh/PlvKlEv113/FwQ+3M/BSv7YtcKg8CmcKvd/FQJmOR2Mc +Kn8Tdi5aSQtjYGSlbuIKKp9r7d4fS05g4HJa8spBfWq/kIpdFcVjYLdBy4nC +5VT9JE4/ySpnYMYesS17tan1EAp0L69m4MZfwaQhtT8ETTudmKhn4IVdov/c +o/aP/E71noBuBjr055slM0iQu9oYv0mIiSILfmVlyZHwa7lE7woXJoYNTBku ++48PPy4rxq5xZyL8Dn+WNMeHqSUa6qytTHxDpxuOzvJhdJIVaLGLiRZv1+ff ++MmHgWq/H+5HmMiIhHnT43x4bndPPOE6E8WsfJb9HuBDdpA3DEwzcf1T52u1 +T/hw/v3OgS+z1PgX+vPqHvPh3Ib9J0b+MvG3hTqvrpYPyWsSXsyIqGFQYIxA +dQ0f4n7zXJeoquFBqeoL8Xf5EJQ4P5RjqYb3Jwnd9Gt84BTdzsnMVEONwqjB +M9F86CGKrq67qIaaiX4J3kf4EJl588rUVTV8oZnepBPFh3uxBZecbqrhbmaw +yeNwPui55WSJ16jhKcvM7uZgPmjNP5ca36+GVyeFPI96UOeXrVEx4Trq+CD7 +l5+6AR8mpGy3bX6sjuNWmbSRfh507mY2Bz5Vx9oO00fTvTyobZiF6CZ1DN+Z +vGiOOr+lRhbRC9vV8UrSxaR57TxYPSDW92tIHeseNoSNP+NBCO+112VpDVzk +zIvZyuPB0AYXj8HtGuizp7gw5SgPBpO2bd4nrIkKRkPncqV4YDMWYfPJcClK +7I6piDQohWG/hfvvRi/DEs5gZ71XCfW/IS948rEWctSqTCpZt0HqpWZy6Zg2 +Wja96DbTugXKCXc2Ghrq4P6A982Wn25A1nKWhHTACmw7GdT19vl1eK5oZjB5 +diX2+XU/4dVfA7by49RV7auQZ9bsvbgwF8SF8sJ84lbjNfeVTfVJV0E1ls7Z +oqmL3tLXRCzKL4KIhme501NddIm6V/zdMAtWchXuRHjp4bGpv6fyDDJgX69U +na3AGlQbtT5E56bB2GSSi03WGrywxqxP41AKWK1qyLZZoY95SV6dLRKJ8GDS +5PfPV/oYrS1FE3oTDyE6et0t/gaYsvG/XPfNx4A7ur1ti4gh/qcgb6EoFgPr +1GnrF+cZ4sW+7Ws8nkfCspjTBx8bGeHf7CdEqkM4aPuzHmp0G2GF0SJD0N4H +KUyH2WPvjDAuWTBMQXkfTPX5Ggz0GqHOi8bpucX74IF7UtGVj0bI7Z3h903s +BaeNfeflR4zwsF3yeemqvXDI5ESoiIAxjkvLauna74VGyRbGiIYxWrvuSlWP +CAX/BzuP391rjCl+5Lrxl8EwGjwUsS7MGD99VK6ZdzcYDqrsDmoPp071T+x3 +aGYHw+nDe5xmooyxuKlH++aOYChlhxOceGO88NTJKl0gGObKj9XUZRvj5twD +QeNGuyHtzpWpN3XGeCOosf/Y3UB4mNO2fUKWhZ59oer1AwHwwZ6xNZzGwhvN +Y553XwaAwK/gLb8VWfi5xvEcWREA5o7CDvMJFvIFH3X1JwdAwzy2kYI2CyU2 +ipTPmQRAk+9VETNTFhax9cLULuyAbvXAktQdLOx3i7056e0PU4V/f666x8KY +698OXpHzg8+bLXNOVbJwLM0+JmSBH3T+c8b6YzULqx4tPGj7wxeqtyleyKxl +YUGcq7Jmuy/E0QzYf56x0Pwid39Qpi9IJAQefv6OhfIawuxlCr6gE/BWwF+Q +jTfD1vNYS33AT6NIJHs9G5kDiaOxjd4QWe8dqLmRjTp3aOzdRd6Q6i/1gu/E +xsmAkzkhyd5Qc/1Q0gtXNmZIVRyu3uQNMprWS/74sLH47oNb+we8oEHzk8y2 +cDaKTutVbBD0Au1ldELzKht7mmrGLZ09YEI73ZA/zsYtYr2VTYZu0NmE66Qn +2egx5Lq5hXCD2pBR57BpNhZ8s7rwRdQNkvk2ew1n2Rjxwv2jdZ8raLMFblcJ +mWBlsyG8T3AFX5tgRp2cCbY4ePWZ922GtgArsTaOCRbmBeryslygIv93/3SC +Cd4BqLlh4gyGa8N+2iZS/mZ9Tk7bGcr6h8Vyzpig1c1f5ek0Z+Cr9hrZpplg +ScTCsoppJ7idVXvmykUTtDv4O/Z2qRPkJJ1gWZWYYPbTxA96Wk5wKmzJ2axW +E4x8qPAwQt0R3C3U0ESVgzoD6pplxxzgT9tC8TqCg34znon3tjtAjv9oj60a +B/XIL5rt6xzgc3xlhPsyDp7RoN0MWOgA+55tuHNIj4MTshUHupLXw2mHw6oV +lhx80u/H+pRjD1Vub+f093BQd9kV74VdtqAUfLJyZS0HyxwjS/87ZwXJf3cY +JD7m4Ffelf7FR61AMM2S9+UJB3fmpqzRDbCCofL5N3OecfDbb/4cybKCKoHj +WVKtHGz5LhRZ2GcJ7udiIn584uCvi0OjsMoSsqoPGTxYxMW8YFPxR+8sQMxh +C09RnIttTJMAo0YLiPlgvCJCgot7HywTqSUtYOf8GfXVsly0OqA7JpxoAUYb +wmXyVLkoNb21MpRtAe0D+yZP6HIx6l9p8exLa0FWdDdvvSsXy+p9HnwLNof8 +tUcix7dw8eFqhemQLeagdyR5bbonF4dN2t4sWGcODuOlbzt9uMgsT2SHKZtD +fPv0L7/dXBy8vKl2bZMZzORFm0fGctHvo83s9VVm0G2S3lpQxMWj70uD5/5B +2Hkg/5JNCRfn/14fNPgJ4EdJmf9wKRdF0l1Hph4BSDE7f+qWc/HtqVbz45EA +dgtVlO/XcnEzzzTTbcQUatoKtre+5eKUBmtddRcXbMUrVoR3cvHlfb+Mz/e4 +0Gn17Aeth4sZJROv9DO5MFX1LcH7AxfFxp2iWc5cWJG7uvjfIS6mOiv5fnjF +gZpus/CkES5OTN88RS/hgK2MM6wa52KmOftqzBkO7Dh5oCVsmotVx0NohfYc +mKqNz5af4aKr5SbTEB0OxM2e96ua5eJxvYftLmIckNC/qeP1h5pvqGid97AJ +XAmumv77l4s/vAsHE5pM4H9aZN2p + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0756679147858876}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.0756679147858876}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994260116264697*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"7e59982f-95b2-48f6-b6ca-1cb32692cfa4"] +}, Open ]], Cell[CellGroupData[{ @@ -10689,66 +12012,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[282]:=",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], + "In[119]:=",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.443621462424051`*^-173\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 282, 273, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337269930374*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.027622371130789`*^-142\\\", \ +RowBox[{\\\"257637673519649270217965438245428568131\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"89\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8303947407360000000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 45, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337269930374*^9, 3.9942601163198223`*^9}, CellLabel-> "During evaluation of \ -In[282]:=",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], +In[119]:=",ExpressionUUID->"b84ba43e-65ae-445a-839d-70202f0a1262"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.352709009016139`*^-176\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 282, 274, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372699413757`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.4265628585914967`*^-144\\\", \ +RowBox[{\\\"990359217009531794717859144615427415897\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"92\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0373833891840000000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 46, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337269930374*^9, 3.994260116329631*^9}, CellLabel-> "During evaluation of \ -In[282]:=",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], +In[119]:=",ExpressionUUID->"59b358d1-486f-40fd-a206-207da341071c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.488155146821548`*^-180\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 282, 275, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337269949375*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1711713553719798`*^-146\\\", \ +RowBox[{\\\"393073573231083169323518294497863141369\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"96\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3746716712960000000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 47, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337269930374*^9, 3.994260116339608*^9}, CellLabel-> "During evaluation of \ -In[282]:=",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], +In[119]:=",ExpressionUUID->"ba8a82bb-d209-40d1-810a-7afdf6d97899"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 282, 276, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372699573765`*^9}, +during this calculation.\"", 2, 119, 48, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337269930374*^9, 3.9942601163493357`*^9}, CellLabel-> "During evaluation of \ -In[282]:=",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], +In[119]:=",ExpressionUUID->"65dd1a6f-c7d9-4c9e-8f6e-b63b56a612ff"], -Cell[BoxData["9.332200719005147`"], "Output", - CellChangeTimes->{3.9913372766841774`*^9}, +Cell[BoxData["9.956623564244802`"], "Output", + CellChangeTimes->{3.9913372766841774`*^9, 3.9942602136766644`*^9}, CellLabel-> - "Out[282]=",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] + "Out[119]=",ExpressionUUID->"b52bbf6d-d576-4975-a326-90129d8845d1"] }, Open ]], Cell[CellGroupData[{ @@ -10815,68 +12145,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918494640512295`*^9, - 3.991849468375696*^9}},ExpressionUUID->"53e25fab-b431-cc42-a467-\ -e4dea0353ed0"], + CellChangeTimes->{{3.9918494640512295`*^9, 3.991849468375696*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 283, - 277, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372767181473`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.7377014036240005`*^-207\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 120, + 49, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372767181473`*^9, 3.994260213733053*^9}, CellLabel-> "During evaluation of \ -In[283]:=",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], +In[120]:=",ExpressionUUID->"b969fb60-0fae-43e9-89b2-89cc50a6458c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 283, - 278, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372767281475`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.60453897487146`*^-212\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 120, + 50, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372767181473`*^9, 3.994260213743147*^9}, CellLabel-> "During evaluation of \ -In[283]:=",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], +In[120]:=",ExpressionUUID->"9ad9a178-4168-4a26-803a-641dfa4ff30e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 283, - 279, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372767351475`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.547181189066339`*^-216\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 120, + 51, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372767181473`*^9, 3.994260213751965*^9}, CellLabel-> "During evaluation of \ -In[283]:=",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], +In[120]:=",ExpressionUUID->"23536de7-b1bf-49e5-a6f0-102d5b1bf5d0"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 283, 280, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337276743145*^9}, +during this calculation.\"", 2, 120, 52, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372767181473`*^9, 3.994260213760728*^9}, CellLabel-> "During evaluation of \ -In[283]:=",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], +In[120]:=",ExpressionUUID->"d5ed2322-a97b-4d00-b196-d48154b8fde5"], -Cell[BoxData["0.5406905105605413`"], "Output", - CellChangeTimes->{3.991337284091696*^9}, +Cell[BoxData["0.28481128270643846`"], "Output", + CellChangeTimes->{3.991337284091696*^9, 3.9942602248024797`*^9}, CellLabel-> - "Out[283]=",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] + "Out[120]=",ExpressionUUID->"aa54b2c4-f1e8-4237-bf19-f8a11810f159"] }, Open ]], Cell[CellGroupData[{ @@ -10897,8 +12234,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -10943,68 +12279,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918494737320137`*^9, - 3.9918494774550457`*^9}},ExpressionUUID->"b18c819e-620a-d449-97d6-\ -547e3a6fa152"], + CellChangeTimes->{{3.9918494737320137`*^9, 3.9918494774550457`*^9}}, + CellLabel-> + "In[121]:=",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 284, - 281, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337284131695*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.7377014036240005`*^-207\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 53, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337284131695*^9, 3.994260224851646*^9}, CellLabel-> "During evaluation of \ -In[284]:=",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], +In[121]:=",ExpressionUUID->"702298b1-1334-4939-a537-b4af0c7e68a0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 284, - 282, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337284142767*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.60453897487146`*^-212\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 54, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337284131695*^9, 3.994260224863327*^9}, CellLabel-> "During evaluation of \ -In[284]:=",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], +In[121]:=",ExpressionUUID->"cadf71ae-0c93-4724-a104-8a7004e63a62"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 284, - 283, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337284150778*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.547181189066339`*^-216\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 55, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337284131695*^9, 3.994260224873559*^9}, CellLabel-> "During evaluation of \ -In[284]:=",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], +In[121]:=",ExpressionUUID->"6f90bbc4-5b3a-4dae-85b1-f1afa81cab61"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 284, 284, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372841597614`*^9}, +during this calculation.\"", 2, 121, 56, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337284131695*^9, 3.994260224881826*^9}, CellLabel-> "During evaluation of \ -In[284]:=",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], +In[121]:=",ExpressionUUID->"91c65949-28e5-4b31-94cb-962b8498fcaa"], -Cell[BoxData["2.9943030245183917`"], "Output", - CellChangeTimes->{3.9913372907074146`*^9}, +Cell[BoxData["27.576882526033163`"], "Output", + CellChangeTimes->{3.9913372907074146`*^9, 3.994260235422778*^9}, CellLabel-> - "Out[284]=",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] + "Out[121]=",ExpressionUUID->"534b7822-4b33-40ce-9ea8-ad57f100ad66"] }, Open ]], Cell[CellGroupData[{ @@ -11025,8 +12368,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -11071,68 +12413,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849482271084*^9, - 3.9918494852683945`*^9}},ExpressionUUID->"22ab74c7-5916-9440-9d7d-\ -c3e0f6ab8836"], + CellChangeTimes->{{3.991849482271084*^9, 3.9918494852683945`*^9}}, + CellLabel-> + "In[122]:=",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 285, - 285, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337290744484*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.7377014036240005`*^-207\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 57, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337290744484*^9, 3.994260235474113*^9}, CellLabel-> "During evaluation of \ -In[285]:=",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], +In[122]:=",ExpressionUUID->"77a8d7fb-c435-45cd-ac49-ade8202ecfcb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 285, - 286, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337290753483*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.60453897487146`*^-212\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 58, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337290744484*^9, 3.994260235484003*^9}, CellLabel-> "During evaluation of \ -In[285]:=",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], +In[122]:=",ExpressionUUID->"482d53b2-58b2-443c-8f73-9ed29309f1e5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 285, - 287, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372907615204`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.547181189066339`*^-216\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 59, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337290744484*^9, 3.99426023549358*^9}, CellLabel-> "During evaluation of \ -In[285]:=",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], +In[122]:=",ExpressionUUID->"4d92d00c-d576-4a53-b0c4-4c88c9ff9476"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 285, 288, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133729076952*^9}, +during this calculation.\"", 2, 122, 60, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337290744484*^9, 3.994260235502967*^9}, CellLabel-> "During evaluation of \ -In[285]:=",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], +In[122]:=",ExpressionUUID->"e40fc357-e9f3-46f9-98b7-cec03b2cba57"], -Cell[BoxData["16.72305770548981`"], "Output", - CellChangeTimes->{3.991337294569908*^9}, +Cell[BoxData["3.003182929969789`"], "Output", + CellChangeTimes->{3.991337294569908*^9, 3.9942602443822393`*^9}, CellLabel-> - "Out[285]=",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] + "Out[122]=",ExpressionUUID->"69a93c7e-0ff3-44e4-82bb-016aa7547783"] }, Open ]], Cell[CellGroupData[{ @@ -11141,22 +12490,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918494889040737`*^9, - 3.9918494971484394`*^9}},ExpressionUUID->"f9c66987-c237-7a40-a006-\ -e20e260dbdcb"], - -Cell[BoxData["0.07640873836855284`"], "Output", - CellChangeTimes->{3.9913372946009064`*^9}, + CellChangeTimes->{{3.9918494889040737`*^9, 3.9918494971484394`*^9}}, CellLabel-> - "Out[286]=",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] + "In[123]:=",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], + +Cell[BoxData["0.03129635157014844`"], "Output", + CellChangeTimes->{3.9913372946009064`*^9, 3.994260244427643*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"7cfeb152-dc32-44d7-bcc1-c7633027bc9a"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918495000311985`*^9, 3.9918495029810333`*^9}, - 3.9919248636163254`*^9},ExpressionUUID->"770a9ed7-7938-9e48-be64-\ -c31719ef3a6b"], + 3.9919248636163254`*^9}, + CellLabel-> + "In[124]:=",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], Cell[CellGroupData[{ @@ -11179,12 +12529,12 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[288]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], + "In[125]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], -Cell[BoxData["7.13574266196526`"], "Output", - CellChangeTimes->{3.991337294629921*^9}, +Cell[BoxData["11.990801347553656`"], "Output", + CellChangeTimes->{3.991337294629921*^9, 3.99426024445078*^9}, CellLabel-> - "Out[288]=",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] + "Out[125]=",ExpressionUUID->"15c3e684-0dca-47d4-b12e-b52b0f3651e0"] }, Open ]], Cell[CellGroupData[{ @@ -11194,12 +12544,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[290]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], + "In[126]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], -Cell[BoxData["1.4042291233212119`"], "Output", - CellChangeTimes->{3.9913372946629753`*^9}, +Cell[BoxData["1.7593993487117925`"], "Output", + CellChangeTimes->{3.9913372946629753`*^9, 3.99426024446244*^9}, CellLabel-> - "Out[290]=",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] + "Out[126]=",ExpressionUUID->"a2ec13bf-398b-4cfa-8a06-75f0f637cc2d"] }, Open ]], Cell[CellGroupData[{ @@ -11209,12 +12559,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[293]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], + "In[127]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], -Cell[BoxData["10.020217662457247`"], "Output", - CellChangeTimes->{3.9913372947367725`*^9}, +Cell[BoxData["21.09660808141839`"], "Output", + CellChangeTimes->{3.9913372947367725`*^9, 3.994260244474571*^9}, CellLabel-> - "Out[293]=",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] + "Out[127]=",ExpressionUUID->"50662948-3bf7-49a7-9781-150a2d699d1a"] }, Open ]], Cell[CellGroupData[{ @@ -11404,12 +12754,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[294]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], + "In[128]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], -Cell[BoxData["0.06674599726273667`"], "Output", - CellChangeTimes->{3.9913372947513313`*^9}, +Cell[BoxData["0.007358129385971443`"], "Output", + CellChangeTimes->{3.9913372947513313`*^9, 3.994260244490821*^9}, CellLabel-> - "Out[294]=",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] + "Out[128]=",ExpressionUUID->"0f37b32b-386d-4ffa-afc8-9d9a69569ecc"] }, Open ]], Cell[CellGroupData[{ @@ -11423,12 +12773,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[295]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], + "In[129]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], -Cell[BoxData["3.430301770911147`"], "Output", - CellChangeTimes->{3.9913372948636913`*^9}, +Cell[BoxData["10.33144886615758`"], "Output", + CellChangeTimes->{3.9913372948636913`*^9, 3.9942602446922092`*^9}, CellLabel-> - "Out[295]=",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] + "Out[129]=",ExpressionUUID->"7d88ff80-77dd-4421-a05c-c92bd58e76b4"] }, Open ]], Cell[CellGroupData[{ @@ -11620,12 +12970,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[296]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], + "In[130]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], -Cell[BoxData["0.01266539131451536`"], "Output", - CellChangeTimes->{3.991337294877693*^9}, +Cell[BoxData["0.04673821313592126`"], "Output", + CellChangeTimes->{3.991337294877693*^9, 3.994260244710775*^9}, CellLabel-> - "Out[296]=",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] + "Out[130]=",ExpressionUUID->"0fa3df16-af29-4720-9eb1-2b74657e4f35"] }, Open ]], Cell[CellGroupData[{ @@ -11639,12 +12989,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[297]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], + "In[131]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], -Cell[BoxData["7.874729317258519`"], "Output", - CellChangeTimes->{3.991337294976324*^9}, +Cell[BoxData["4.0992923145319455`"], "Output", + CellChangeTimes->{3.991337294976324*^9, 3.9942602448969316`*^9}, CellLabel-> - "Out[297]=",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] + "Out[131]=",ExpressionUUID->"ce92b51c-3201-45d7-8b94-9a4125af5036"] }, Open ]], Cell[CellGroupData[{ @@ -11737,12 +13087,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[298]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], + "In[132]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], -Cell[BoxData["0.7884625602161153`"], "Output", - CellChangeTimes->{3.9913372950022793`*^9}, +Cell[BoxData["0.0485674311961468`"], "Output", + CellChangeTimes->{3.9913372950022793`*^9, 3.994260244910503*^9}, CellLabel-> - "Out[298]=",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] + "Out[132]=",ExpressionUUID->"4f2423fe-8e35-42c0-967a-5e917789c99f"] }, Open ]], Cell[CellGroupData[{ @@ -11832,12 +13182,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[299]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], + "In[133]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], -Cell[BoxData["0.21153743978388478`"], "Output", - CellChangeTimes->{3.991337295013279*^9}, +Cell[BoxData["0.9514325688038533`"], "Output", + CellChangeTimes->{3.991337295013279*^9, 3.994260244925768*^9}, CellLabel-> - "Out[299]=",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] + "Out[133]=",ExpressionUUID->"ac7a8f6d-1d22-4a35-a311-179ea3db6d03"] }, Open ]], Cell[CellGroupData[{ @@ -11960,12 +13310,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[300]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], + "In[134]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], -Cell[BoxData["0.16678935135356415`"], "Output", - CellChangeTimes->{3.991337295041279*^9}, +Cell[BoxData["0.046208635823154355`"], "Output", + CellChangeTimes->{3.991337295041279*^9, 3.994260244941307*^9}, CellLabel-> - "Out[300]=",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] + "Out[134]=",ExpressionUUID->"70f143f7-019e-48ac-b48d-5e797c3e486f"] }, Open ]], Cell[CellGroupData[{ @@ -12027,68 +13377,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849517192892*^9},ExpressionUUID->"55d51961-97f2-ed4d-8bf8-\ -8a461d652ab4"], + CellChangeTimes->{3.991849517192892*^9}, + CellLabel-> + "In[135]:=",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 301, 289, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372950662746`*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.775813316939747`*^-203\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 135, + 61, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372950662746`*^9, 3.9942602449648323`*^9}, CellLabel-> "During evaluation of \ -In[301]:=",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], +In[135]:=",ExpressionUUID->"3617807f-61f3-46ef-8503-11f6573559f8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 301, - 290, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337295076277*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.1698972577965456`*^-207\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 135, + 62, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372950662746`*^9, 3.994260244974609*^9}, CellLabel-> "During evaluation of \ -In[301]:=",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], +In[135]:=",ExpressionUUID->"93d77dce-c828-445d-a857-900d36d1ff10"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 301, - 291, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372950842743`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0278683010010253`*^-211\\\", \ +RowBox[{\\\"668859810497440244092067196564426051030\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3165635789279094374400000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 135, + 63, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372950662746`*^9, 3.994260244983885*^9}, CellLabel-> "During evaluation of \ -In[301]:=",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], +In[135]:=",ExpressionUUID->"50ddd182-882c-4660-92d6-0b33ba5d39ae"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 301, 292, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372950922775`*^9}, +during this calculation.\"", 2, 135, 64, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372950662746`*^9, 3.994260244993729*^9}, CellLabel-> "During evaluation of \ -In[301]:=",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], +In[135]:=",ExpressionUUID->"fa8d5dda-f719-44bc-9cd3-066c3a29dde0"], -Cell[BoxData["3.430301770911144`"], "Output", - CellChangeTimes->{3.991337298790371*^9}, +Cell[BoxData["10.331448866157581`"], "Output", + CellChangeTimes->{3.991337298790371*^9, 3.994260252704636*^9}, CellLabel-> - "Out[301]=",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] + "Out[135]=",ExpressionUUID->"81a73603-4e7a-4823-9bb3-86a3030a4b0c"] }, Open ]], Cell[CellGroupData[{ @@ -12150,68 +13507,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849520751028*^9},ExpressionUUID->"9704b9d3-b449-2144-9970-\ -6a7de047241d"], + CellChangeTimes->{3.991849520751028*^9}, + CellLabel-> + "In[136]:=",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 302, 293, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372988243732`*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.775813316939747`*^-203\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 136, + 65, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372988243732`*^9, 3.994260252762608*^9}, CellLabel-> "During evaluation of \ -In[302]:=",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], +In[136]:=",ExpressionUUID->"2f2f84ef-79e2-4fec-9e46-d1aed5a302b8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 302, - 294, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372988343716`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.1698972577965456`*^-207\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 136, + 66, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372988243732`*^9, 3.994260252772811*^9}, CellLabel-> "During evaluation of \ -In[302]:=",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], +In[136]:=",ExpressionUUID->"cdbe64fc-225a-4299-a642-c3e1b661b76f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 302, - 295, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372988425922`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0278683010010253`*^-211\\\", \ +RowBox[{\\\"668859810497440244092067196564426051030\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3165635789279094374400000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 136, + 67, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372988243732`*^9, 3.994260252783525*^9}, CellLabel-> "During evaluation of \ -In[302]:=",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], +In[136]:=",ExpressionUUID->"91cd1a73-8179-4a50-9eea-7135108207fd"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 302, 296, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372988505898`*^9}, +during this calculation.\"", 2, 136, 68, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372988243732`*^9, 3.994260252791916*^9}, CellLabel-> "During evaluation of \ -In[302]:=",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], +In[136]:=",ExpressionUUID->"1375aa35-3dfb-434e-bad5-6db6b33eec54"], -Cell[BoxData["7.87472931725852`"], "Output", - CellChangeTimes->{3.991337302457178*^9}, +Cell[BoxData["4.099292314531946`"], "Output", + CellChangeTimes->{3.991337302457178*^9, 3.99426026044309*^9}, CellLabel-> - "Out[302]=",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] + "Out[136]=",ExpressionUUID->"b8a18591-eca8-4281-a2e0-b7ad6cb1c489"] }, Open ]], Cell[CellGroupData[{ @@ -12269,94 +13633,93 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849523511486*^9},ExpressionUUID->"0fd90636-7592-fc40-bf9d-\ -ae1cb915c656"], + CellChangeTimes->{3.991849523511486*^9}, + CellLabel-> + "In[137]:=",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL -ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc -Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 -39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN -PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 -8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk -kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru -nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 -t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 -2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 -N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M -GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV -T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex -5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ -m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm -79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb -ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi -ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T -CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 -EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA -ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey -/ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K -ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk -x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN -DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf -Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 -Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN -+5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai -0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR -fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb -FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW -EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe -0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp -c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI -l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 -6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi -tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh -vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X -ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB -dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 -FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf -//8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq -T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d -f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 -KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif -OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU -01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq -COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o -8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC -6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D -cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz -HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 -eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb -w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq -rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV -bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD -uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS -VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z -NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V -9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD -AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj -HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ -Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B -v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm -+TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA -OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 -0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ -4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC -ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu -vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV -l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj -IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft -YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ -gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu -Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp -yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv -hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk0VesbB3CZKkOFTMk8FEXuMavrfUwpc1Kh6DjO2SHJlCtcQzdKhhCl +ezOUMVOUUsh1I0mmHxpUCuc4dIwZsg3V7+2Pvfb6rL32932eZ+/9rq1IO+vE +4Obi4hrBx69zYJfWjtqeLpOzReMnplhMZDJdoEezKEeqY4PpvzyUq5+hYtGA +Qn480Z3GdqR38gvpPEeb5iPNZrCrw6Kb+Sw6kE2PWsMsdkKrVFN06f+QYFHt +7TnsJz2BOWuU1yjp8p75BWzO+/bI8/Xv0LPUlKol7G2jyse/mX9Ecx/6B1aw +bWYijYI7PiOFJO6zP7Ab1ziCYaXDKP2FZAD3KBO9iZWMeOTPRG5Ptg7yY0/z +W3AWKKPoTeryQ0Fs/qQAV50lNiJjW1e2YMuJZLcF1o8jh+cRZRLY9jLfiqbN +J5HU3jxHZWwiT0lCc8M0El3cbKmBHa3qEHe6YwZ5bfEp/A37nWT/byGlX1Fb +2bu7pth0N1+fa0lzKOvtjJ019uwtrtv3/efR7oav7oexNyhpbvlKWUR1hrX/ +EdgZ9GarLeLfUGpehHggtkKxa/SepW+ITd39OgLbcHf89Jl6Erk1OGelY3vr +f+7gmK+hnMwuzefYC2HneAXUvqMUF57hXuyYesF96ht+IL2knVzD2FlgWHaq +4yfqKN5/4cev+grbLIJK10GMGzPThM1Epa3XhmJluCFSq6LEAXt2zCMyLYkb +Ysr9dnhiR2osPqjy5wG7m93ecdgZ9xSVZyh8kNVnvNqL/b5nsvFHPh9cC31x +ZgxbYa7WbZM4P4zLOtquYZfr2qdrLvFD9JqL3Y4xJmp5Er7Or34DuFyhnbyA +vdjc93ncXAgGf9dusR1nIlFboS0RjUJA3XXZ0hdbu98ChI2Eocd00PIyti/r +Yd5vWpug4fXF5ufYAdwd2r8LbYEr/gv3939holGlyq9x30SgPajJi8rB8yHa +N3briIJCwt3XcdjcZWxFqUBR8LItbS3DVtCRdyqdEIUE5xXVZWw389T7XUNi +kKIk8P7mBBN1ewUFS74ShyP9pdLzk0z0qTglkbpBAlRWVv9UmGKiyYnS/LuW +ElB7Oc7THlsghNm3t0kCbMati8qwLS4661IfSoKZ1Wc1v2kmqivQXyzJlQZO +ghU/3ywTFYyuhBqHyMLDfGXH6/NMdODIpU/BFbLg9mBvUjf2ZIvY/gq2LPR2 +XzLYuMBEugW7xRVc5SBZqPXDn9gtNI8HfCbyoFWicNxvkYnmZob+GP9LAZyJ +FAOPJSYSO2NR88BOCTq/mIZnrjIRu0DA29FXCTQOrN7+iP34Y4/MVLwShCSC +kcoaE52wdf9LrUkJjiyGP6rBLtgV6nSTogzPXvJNvv+O1+cUz0ZJqoDJCf39 ++7hYyPmUoKb1sCrQWjZ1OfGxEAo9Qjn2XRUE9NegCFsjLteALq0GVZfj5Vew +ufJ1zKIOqYFwbLR8Pj8LVXw6fuz+f2owGeW1a2U9C/EfLY/ddmcHVNWtD20Q +YKHHFnZvODR1KLtsOpu2hYXyD9/4sBSlDrySTwfnsFNow0O8/6jDY3UbA2cR +FqLHnJuQ61OHoopKLSlRFhJpyOY6bK4B795w7ykUYyFfnWmNeuVdcKvT93yf +BAvJKF2NTmTthqjtAU6xsizUcGVBfZlbE5QOy+9exj4x79pPKGpCb1xWXKAc +C+W0qKibeWhCTsvPWi95FlI6VddLvtWEd9rmMvaKuN/yUVXilRaEiT0dMlZl +IVkZOULBVRuYksVpIZostLswRGgVUcDT6eKMD2IhGv2vRU17Cqz+0dq8hJ2l +nP6JeoIC65/Vb4gHFuK5c6+qNYwCVL63rHxTFnqfw3FOr6YAL18Im2XOQglZ +1Gx1ZR1Yaw3eGnmAhdiJtlou/LpQl9Bm+fMQC90OUnF82KEHl+OvubsRLNQT +igwuFhpBRpd8fU4WCyl6vLZ39/sdiGcGXZa9LMT4+ahS9jzAkWhVpX82jyLJ +icfrJWlm4LGd4xDvNopCdPZ9TNewgMjX7JHLJaOINrXWJsaxhKqcY7mNa6Oo +wix4fW63FYQIrPYsU9moYMH3v/KMg1Doe7eR5wXed02lOluibWA1xk9MEY2h +QS6er8OedrBr7dHO0cYx5L/9bGqssgOE3wixEkDjqNKnrSkzzhGi1X3jNvaP +o/B56aVdPofAbWrrWLn3F7Rovf/oi5NOsJW5++/DWznI6Hia6eihw6A8vye6 ++gUH9Upn+7boOEP7w6rrrWETaFvRXw0lO4+A2chCmw/e5x8PadjaCx+FuzsE ++BIFppBc/+yp0KmjMPpO6u3smymkk5lWnj90DBj5XxxqGqdRNu+8VnqzC5hw +5gwE82bQI9M97+OeuILV0/KrnfazKMvgishaqRtcldS6fqd7FnV/KIzXSToO +8nvv1tvYfEUP7W6pBMScgGfNsaXl/V/R1zOHufzp7pD1o3qAfmwOLe5X9542 +9wDzbrat3sAcKpkaIIP1T4Ke7FsfqVPzyOV2oZe7EBXO1DXdTZyYRw/u25zk +uUQFo5pz/4mFLyAjmd7lhGUqFJ8NihH4voCUh069/5+PJyx0FoVYhy8iluBp +h1tMT7hPdX1p9n0R9aTYe1kdoUHp1Nzma4HfUEZYruC5Hhok1vR53Bn7hhoa +fy57HfSCxp/b3CcOLaHNJ+CSTp0XFCj/3aJYtoSMqNMlcbp0SAgMzS7+uYSK +bs4G2+vT4YDDjeiXXCTa2jdnImlIh/yOD9mcdSSatlzqL9lLh0Dhl8kavCTe +X7jWdZjRoezgJt3bG0i0aUnEVfQQHe7vueTpI0IiVrLextwzdIinfo71UiJR +Sn2kz+MiOgwQlV5fTUl0hnLDKKyEDq9Ek6s+mJHI9m71RsNSOpxWS6A8NyeR +wA323doKOgg5rn+daUmiuCBHzqMaOvTxMlI0D5IoUl3l9MNndLBPO1eo70gi +3xuv/O5/ooP49BueSncSHdzE3hc0RIcf0hlpUR4k2hnHJUwZoUPDiV329idJ +xA7Sq6gepcNqi8bhCSqJPO1zp6om6eA0c+CSDJ1ELnzB/vdW6LBwKOCssy+J +rIK3BZRLMKD90ReeHaEkepYbb50uxQCO0ovYSex9HXMqYdsYkOP/gbv6DxJp +q74aMJdjQPS5PmGD8ySSfhth/kGVAQLLxqYGkSSaMB6UENBjwHnVhNn1F0h0 +lTvv6anDDNBOTxb7koT73yOUZXeEAci7MzMlmUQXj4cF6RxjwMVJCXGdFBKF +1Tju+OnGANd/RQXOX8X1E+vSrtMYMJHf1UamkUinnUZ/HsgAh3EU/OI6id6m +qQoqpzKgN+G0a14uiSqRsPd4GgO2Ocoe2p6H86cWWiquMeBV3mfaDWzKwZYo +wxsMML0g33/lNn5+XF5zdjkM6A46ziHySbT/bN5AWDkDsrunO+aLSCQre1nf +pJIBCiNGLp7FJFpoP3uNp4oBgRf7Vzux76ghu5QHDNheejWxoIRE3wcHm/Lr +GBDRa9O+v5RENbYyJV1teL0X3PdOVpAocYWbL6OdAX8TAQ8asWklHE/XDgbs +tM7v2l5Joi28dTKsbgbQ338/8Abbr97l6vIbPG8dcRuTKhIpa1wPVRllgHrM +WuDIfRKtvP2z7wsb+8yld5QHJOqJY2jfG2dA7MeLzhewo4Z1OUaTDLDYdyVJ +roZE77P63B3mGfBdo2rF5iGJ0teLWIavI0Avquzf8FoSNcwNHg/hIaDsZufG +FuyxwdIgfz4CgtQttYQe4/ehxiKPtpGA1OBBvpvYbGrYqrUIASblXlMFT3D9 +tpailmIEOK58Xj+KvddAVB2JE6B2VGhNuY5EqcLlR3WkCVCSVg/Mwd5b97la +RpGAmjOBSXH4v5IoLG8TVyZg0t03qAE7NfX8582qBJirX/xtDptNiAnzqhMw +7zxg7NaAr4tZeU9qExBx52jY9qckqvshFs2mEJCenadqjT36ZShzSJcA/pT0 +slBs46bw5n5DAoqjDU07sFl+lXJPgYDZjB3pPo34e3eJ0Ks1I8C59iBPCraR ++QHbagsCjtpU21Zjp0iPnC88QIDbHjXvBezHvPdSc60JSBOTN976L4mYMxHF +N20JGEjTZVGwDVvFXyc7EjDmmdrkh02rHpm45ESAjuTzuUvYybfucV9wxvPW +nF+7jT0SdFA71IWAfcrbb/ZiC3tIWAW4EfBNb8OuL7/yDjLdfU8QsFOkJ+PH +r/vl/0z0oBJgdWpgRrUJ1yNgfceFRsAt9qZhA+yRRYknTnQ8P4MNpQewhYeZ +3bYEAV37mqxdsA07qtj7vQng1aM0E9i02j+/gy8BfbWuYiHYyXest+71w/3W +UvbG/MpPltyl50/AYvQT48Rf+WEs0z0BBFAec0QysYXo1S7qQQSMUpubsrEN +HKLOKocQIPgarAp/5RvbxMuGEvD9JbWwDDtJVSpbMowAQwfFD1XYj7aMPhAJ +JyClK2a8Bnt4tbpdMJIAIaGoztpf+WNRw3xRBPCoSV15gq3fa0P+jCZgU6a9 +XB32/wHJbfJZ "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -12370,106 +13733,105 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL -ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc -Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 -39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN -PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 -8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk -kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru -nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 -t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 -2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 -N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M -GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV -T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex -5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ -m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm -79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb -ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi -ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T -CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 -EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA -ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey -/ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K -ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk -x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN -DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf -Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 -Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN -+5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai -0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR -fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb -FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW -EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe -0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp -c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI -l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 -6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi -tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh -vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X -ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB -dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 -FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf -//8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq -T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d -f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 -KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif -OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU -01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq -COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o -8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC -6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D -cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz -HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 -eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb -w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq -rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV -bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD -uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS -VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z -NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V -9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD -AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj -HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ -Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B -v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm -+TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA -OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 -0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ -4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC -ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu -vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV -l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj -IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft -YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ -gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu -Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp -yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv -hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc +1:eJwV1nk0VesbB3CZKkOFTMk8FEXuMavrfUwpc1Kh6DjO2SHJlCtcQzdKhhCl +ezOUMVOUUsh1I0mmHxpUCuc4dIwZsg3V7+2Pvfb6rL32932eZ+/9rq1IO+vE +4Obi4hrBx69zYJfWjtqeLpOzReMnplhMZDJdoEezKEeqY4PpvzyUq5+hYtGA +Qn480Z3GdqR38gvpPEeb5iPNZrCrw6Kb+Sw6kE2PWsMsdkKrVFN06f+QYFHt +7TnsJz2BOWuU1yjp8p75BWzO+/bI8/Xv0LPUlKol7G2jyse/mX9Ecx/6B1aw +bWYijYI7PiOFJO6zP7Ab1ziCYaXDKP2FZAD3KBO9iZWMeOTPRG5Ptg7yY0/z +W3AWKKPoTeryQ0Fs/qQAV50lNiJjW1e2YMuJZLcF1o8jh+cRZRLY9jLfiqbN +J5HU3jxHZWwiT0lCc8M0El3cbKmBHa3qEHe6YwZ5bfEp/A37nWT/byGlX1Fb +2bu7pth0N1+fa0lzKOvtjJ019uwtrtv3/efR7oav7oexNyhpbvlKWUR1hrX/ +EdgZ9GarLeLfUGpehHggtkKxa/SepW+ITd39OgLbcHf89Jl6Erk1OGelY3vr +f+7gmK+hnMwuzefYC2HneAXUvqMUF57hXuyYesF96ht+IL2knVzD2FlgWHaq +4yfqKN5/4cev+grbLIJK10GMGzPThM1Epa3XhmJluCFSq6LEAXt2zCMyLYkb +Ysr9dnhiR2osPqjy5wG7m93ecdgZ9xSVZyh8kNVnvNqL/b5nsvFHPh9cC31x +ZgxbYa7WbZM4P4zLOtquYZfr2qdrLvFD9JqL3Y4xJmp5Er7Or34DuFyhnbyA +vdjc93ncXAgGf9dusR1nIlFboS0RjUJA3XXZ0hdbu98ChI2Eocd00PIyti/r +Yd5vWpug4fXF5ufYAdwd2r8LbYEr/gv3939holGlyq9x30SgPajJi8rB8yHa +N3briIJCwt3XcdjcZWxFqUBR8LItbS3DVtCRdyqdEIUE5xXVZWw389T7XUNi +kKIk8P7mBBN1ewUFS74ShyP9pdLzk0z0qTglkbpBAlRWVv9UmGKiyYnS/LuW +ElB7Oc7THlsghNm3t0kCbMati8qwLS4661IfSoKZ1Wc1v2kmqivQXyzJlQZO +ghU/3ywTFYyuhBqHyMLDfGXH6/NMdODIpU/BFbLg9mBvUjf2ZIvY/gq2LPR2 +XzLYuMBEugW7xRVc5SBZqPXDn9gtNI8HfCbyoFWicNxvkYnmZob+GP9LAZyJ +FAOPJSYSO2NR88BOCTq/mIZnrjIRu0DA29FXCTQOrN7+iP34Y4/MVLwShCSC +kcoaE52wdf9LrUkJjiyGP6rBLtgV6nSTogzPXvJNvv+O1+cUz0ZJqoDJCf39 ++7hYyPmUoKb1sCrQWjZ1OfGxEAo9Qjn2XRUE9NegCFsjLteALq0GVZfj5Vew +ufJ1zKIOqYFwbLR8Pj8LVXw6fuz+f2owGeW1a2U9C/EfLY/ddmcHVNWtD20Q +YKHHFnZvODR1KLtsOpu2hYXyD9/4sBSlDrySTwfnsFNow0O8/6jDY3UbA2cR +FqLHnJuQ61OHoopKLSlRFhJpyOY6bK4B795w7ykUYyFfnWmNeuVdcKvT93yf +BAvJKF2NTmTthqjtAU6xsizUcGVBfZlbE5QOy+9exj4x79pPKGpCb1xWXKAc +C+W0qKibeWhCTsvPWi95FlI6VddLvtWEd9rmMvaKuN/yUVXilRaEiT0dMlZl +IVkZOULBVRuYksVpIZostLswRGgVUcDT6eKMD2IhGv2vRU17Cqz+0dq8hJ2l +nP6JeoIC65/Vb4gHFuK5c6+qNYwCVL63rHxTFnqfw3FOr6YAL18Im2XOQglZ +1Gx1ZR1Yaw3eGnmAhdiJtlou/LpQl9Bm+fMQC90OUnF82KEHl+OvubsRLNQT +igwuFhpBRpd8fU4WCyl6vLZ39/sdiGcGXZa9LMT4+ahS9jzAkWhVpX82jyLJ +icfrJWlm4LGd4xDvNopCdPZ9TNewgMjX7JHLJaOINrXWJsaxhKqcY7mNa6Oo +wix4fW63FYQIrPYsU9moYMH3v/KMg1Doe7eR5wXed02lOluibWA1xk9MEY2h +QS6er8OedrBr7dHO0cYx5L/9bGqssgOE3wixEkDjqNKnrSkzzhGi1X3jNvaP +o/B56aVdPofAbWrrWLn3F7Rovf/oi5NOsJW5++/DWznI6Hia6eihw6A8vye6 ++gUH9Upn+7boOEP7w6rrrWETaFvRXw0lO4+A2chCmw/e5x8PadjaCx+FuzsE ++BIFppBc/+yp0KmjMPpO6u3smymkk5lWnj90DBj5XxxqGqdRNu+8VnqzC5hw +5gwE82bQI9M97+OeuILV0/KrnfazKMvgishaqRtcldS6fqd7FnV/KIzXSToO +8nvv1tvYfEUP7W6pBMScgGfNsaXl/V/R1zOHufzp7pD1o3qAfmwOLe5X9542 +9wDzbrat3sAcKpkaIIP1T4Ke7FsfqVPzyOV2oZe7EBXO1DXdTZyYRw/u25zk +uUQFo5pz/4mFLyAjmd7lhGUqFJ8NihH4voCUh069/5+PJyx0FoVYhy8iluBp +h1tMT7hPdX1p9n0R9aTYe1kdoUHp1Nzma4HfUEZYruC5Hhok1vR53Bn7hhoa +fy57HfSCxp/b3CcOLaHNJ+CSTp0XFCj/3aJYtoSMqNMlcbp0SAgMzS7+uYSK +bs4G2+vT4YDDjeiXXCTa2jdnImlIh/yOD9mcdSSatlzqL9lLh0Dhl8kavCTe +X7jWdZjRoezgJt3bG0i0aUnEVfQQHe7vueTpI0IiVrLextwzdIinfo71UiJR +Sn2kz+MiOgwQlV5fTUl0hnLDKKyEDq9Ek6s+mJHI9m71RsNSOpxWS6A8NyeR +wA323doKOgg5rn+daUmiuCBHzqMaOvTxMlI0D5IoUl3l9MNndLBPO1eo70gi +3xuv/O5/ooP49BueSncSHdzE3hc0RIcf0hlpUR4k2hnHJUwZoUPDiV329idJ +xA7Sq6gepcNqi8bhCSqJPO1zp6om6eA0c+CSDJ1ELnzB/vdW6LBwKOCssy+J +rIK3BZRLMKD90ReeHaEkepYbb50uxQCO0ovYSex9HXMqYdsYkOP/gbv6DxJp +q74aMJdjQPS5PmGD8ySSfhth/kGVAQLLxqYGkSSaMB6UENBjwHnVhNn1F0h0 +lTvv6anDDNBOTxb7koT73yOUZXeEAci7MzMlmUQXj4cF6RxjwMVJCXGdFBKF +1Tju+OnGANd/RQXOX8X1E+vSrtMYMJHf1UamkUinnUZ/HsgAh3EU/OI6id6m +qQoqpzKgN+G0a14uiSqRsPd4GgO2Ocoe2p6H86cWWiquMeBV3mfaDWzKwZYo +wxsMML0g33/lNn5+XF5zdjkM6A46ziHySbT/bN5AWDkDsrunO+aLSCQre1nf +pJIBCiNGLp7FJFpoP3uNp4oBgRf7Vzux76ghu5QHDNheejWxoIRE3wcHm/Lr +GBDRa9O+v5RENbYyJV1teL0X3PdOVpAocYWbL6OdAX8TAQ8asWklHE/XDgbs +tM7v2l5Joi28dTKsbgbQ338/8Abbr97l6vIbPG8dcRuTKhIpa1wPVRllgHrM +WuDIfRKtvP2z7wsb+8yld5QHJOqJY2jfG2dA7MeLzhewo4Z1OUaTDLDYdyVJ +roZE77P63B3mGfBdo2rF5iGJ0teLWIavI0Avquzf8FoSNcwNHg/hIaDsZufG +FuyxwdIgfz4CgtQttYQe4/ehxiKPtpGA1OBBvpvYbGrYqrUIASblXlMFT3D9 +tpailmIEOK58Xj+KvddAVB2JE6B2VGhNuY5EqcLlR3WkCVCSVg/Mwd5b97la +RpGAmjOBSXH4v5IoLG8TVyZg0t03qAE7NfX8582qBJirX/xtDptNiAnzqhMw +7zxg7NaAr4tZeU9qExBx52jY9qckqvshFs2mEJCenadqjT36ZShzSJcA/pT0 +slBs46bw5n5DAoqjDU07sFl+lXJPgYDZjB3pPo34e3eJ0Ks1I8C59iBPCraR ++QHbagsCjtpU21Zjp0iPnC88QIDbHjXvBezHvPdSc60JSBOTN976L4mYMxHF +N20JGEjTZVGwDVvFXyc7EjDmmdrkh02rHpm45ESAjuTzuUvYybfucV9wxvPW +nF+7jT0SdFA71IWAfcrbb/ZiC3tIWAW4EfBNb8OuL7/yDjLdfU8QsFOkJ+PH +r/vl/0z0oBJgdWpgRrUJ1yNgfceFRsAt9qZhA+yRRYknTnQ8P4MNpQewhYeZ +3bYEAV37mqxdsA07qtj7vQng1aM0E9i02j+/gy8BfbWuYiHYyXest+71w/3W +UvbG/MpPltyl50/AYvQT48Rf+WEs0z0BBFAec0QysYXo1S7qQQSMUpubsrEN +HKLOKocQIPgarAp/5RvbxMuGEvD9JbWwDDtJVSpbMowAQwfFD1XYj7aMPhAJ +JyClK2a8Bnt4tbpdMJIAIaGoztpf+WNRw3xRBPCoSV15gq3fa0P+jCZgU6a9 +XB32/wHJbfJZ "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6639439823901716, - 1.4626441816684523`}}, + "PlotRange" -> {{0, 180}, {0.6216952147126004, + 1.5470524963250827`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.663943982390173}, + "AxesOrigin" -> {0, 0.6216952147126017}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -12481,21 +13843,21 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6639439823901716, - 1.4626441816684523`}}, + "PlotRange" -> {{0, 180}, {0.6216952147126004, + 1.5470524963250827`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.663943982390173}, + "AxesOrigin" -> {0, 0.6216952147126017}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -12509,104 +13871,103 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL -ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc -Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 -39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN -PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 -8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk -kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru -nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 -t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 -2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 -N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M -GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV -T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex -5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ -m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm -79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb -ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi -ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T -CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 -EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA -ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey -/ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K -ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk -x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN -DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf -Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 -Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN -+5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai -0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR -fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb -FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW -EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe -0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp -c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI -l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 -6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi -tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh -vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X -ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB -dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 -FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf -//8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq -T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d -f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 -KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif -OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU -01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq -COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o -8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC -6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D -cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz -HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 -eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb -w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq -rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV -bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD -uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS -VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z -NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V -9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD -AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj -HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ -Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B -v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm -+TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA -OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 -0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ -4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC -ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu -vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV -l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj -IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft -YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ -gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu -Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp -yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv -hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc +1:eJwV1nk0VesbB3CZKkOFTMk8FEXuMavrfUwpc1Kh6DjO2SHJlCtcQzdKhhCl +ezOUMVOUUsh1I0mmHxpUCuc4dIwZsg3V7+2Pvfb6rL32932eZ+/9rq1IO+vE +4Obi4hrBx69zYJfWjtqeLpOzReMnplhMZDJdoEezKEeqY4PpvzyUq5+hYtGA +Qn480Z3GdqR38gvpPEeb5iPNZrCrw6Kb+Sw6kE2PWsMsdkKrVFN06f+QYFHt +7TnsJz2BOWuU1yjp8p75BWzO+/bI8/Xv0LPUlKol7G2jyse/mX9Ecx/6B1aw +bWYijYI7PiOFJO6zP7Ab1ziCYaXDKP2FZAD3KBO9iZWMeOTPRG5Ptg7yY0/z +W3AWKKPoTeryQ0Fs/qQAV50lNiJjW1e2YMuJZLcF1o8jh+cRZRLY9jLfiqbN +J5HU3jxHZWwiT0lCc8M0El3cbKmBHa3qEHe6YwZ5bfEp/A37nWT/byGlX1Fb +2bu7pth0N1+fa0lzKOvtjJ019uwtrtv3/efR7oav7oexNyhpbvlKWUR1hrX/ +EdgZ9GarLeLfUGpehHggtkKxa/SepW+ITd39OgLbcHf89Jl6Erk1OGelY3vr +f+7gmK+hnMwuzefYC2HneAXUvqMUF57hXuyYesF96ht+IL2knVzD2FlgWHaq +4yfqKN5/4cev+grbLIJK10GMGzPThM1Epa3XhmJluCFSq6LEAXt2zCMyLYkb +Ysr9dnhiR2osPqjy5wG7m93ecdgZ9xSVZyh8kNVnvNqL/b5nsvFHPh9cC31x +ZgxbYa7WbZM4P4zLOtquYZfr2qdrLvFD9JqL3Y4xJmp5Er7Or34DuFyhnbyA +vdjc93ncXAgGf9dusR1nIlFboS0RjUJA3XXZ0hdbu98ChI2Eocd00PIyti/r +Yd5vWpug4fXF5ufYAdwd2r8LbYEr/gv3939holGlyq9x30SgPajJi8rB8yHa +N3briIJCwt3XcdjcZWxFqUBR8LItbS3DVtCRdyqdEIUE5xXVZWw389T7XUNi +kKIk8P7mBBN1ewUFS74ShyP9pdLzk0z0qTglkbpBAlRWVv9UmGKiyYnS/LuW +ElB7Oc7THlsghNm3t0kCbMati8qwLS4661IfSoKZ1Wc1v2kmqivQXyzJlQZO +ghU/3ywTFYyuhBqHyMLDfGXH6/NMdODIpU/BFbLg9mBvUjf2ZIvY/gq2LPR2 +XzLYuMBEugW7xRVc5SBZqPXDn9gtNI8HfCbyoFWicNxvkYnmZob+GP9LAZyJ +FAOPJSYSO2NR88BOCTq/mIZnrjIRu0DA29FXCTQOrN7+iP34Y4/MVLwShCSC +kcoaE52wdf9LrUkJjiyGP6rBLtgV6nSTogzPXvJNvv+O1+cUz0ZJqoDJCf39 ++7hYyPmUoKb1sCrQWjZ1OfGxEAo9Qjn2XRUE9NegCFsjLteALq0GVZfj5Vew +ufJ1zKIOqYFwbLR8Pj8LVXw6fuz+f2owGeW1a2U9C/EfLY/ddmcHVNWtD20Q +YKHHFnZvODR1KLtsOpu2hYXyD9/4sBSlDrySTwfnsFNow0O8/6jDY3UbA2cR +FqLHnJuQ61OHoopKLSlRFhJpyOY6bK4B795w7ykUYyFfnWmNeuVdcKvT93yf +BAvJKF2NTmTthqjtAU6xsizUcGVBfZlbE5QOy+9exj4x79pPKGpCb1xWXKAc +C+W0qKibeWhCTsvPWi95FlI6VddLvtWEd9rmMvaKuN/yUVXilRaEiT0dMlZl +IVkZOULBVRuYksVpIZostLswRGgVUcDT6eKMD2IhGv2vRU17Cqz+0dq8hJ2l +nP6JeoIC65/Vb4gHFuK5c6+qNYwCVL63rHxTFnqfw3FOr6YAL18Im2XOQglZ +1Gx1ZR1Yaw3eGnmAhdiJtlou/LpQl9Bm+fMQC90OUnF82KEHl+OvubsRLNQT +igwuFhpBRpd8fU4WCyl6vLZ39/sdiGcGXZa9LMT4+ahS9jzAkWhVpX82jyLJ +icfrJWlm4LGd4xDvNopCdPZ9TNewgMjX7JHLJaOINrXWJsaxhKqcY7mNa6Oo +wix4fW63FYQIrPYsU9moYMH3v/KMg1Doe7eR5wXed02lOluibWA1xk9MEY2h +QS6er8OedrBr7dHO0cYx5L/9bGqssgOE3wixEkDjqNKnrSkzzhGi1X3jNvaP +o/B56aVdPofAbWrrWLn3F7Rovf/oi5NOsJW5++/DWznI6Hia6eihw6A8vye6 ++gUH9Upn+7boOEP7w6rrrWETaFvRXw0lO4+A2chCmw/e5x8PadjaCx+FuzsE ++BIFppBc/+yp0KmjMPpO6u3smymkk5lWnj90DBj5XxxqGqdRNu+8VnqzC5hw +5gwE82bQI9M97+OeuILV0/KrnfazKMvgishaqRtcldS6fqd7FnV/KIzXSToO +8nvv1tvYfEUP7W6pBMScgGfNsaXl/V/R1zOHufzp7pD1o3qAfmwOLe5X9542 +9wDzbrat3sAcKpkaIIP1T4Ke7FsfqVPzyOV2oZe7EBXO1DXdTZyYRw/u25zk +uUQFo5pz/4mFLyAjmd7lhGUqFJ8NihH4voCUh069/5+PJyx0FoVYhy8iluBp +h1tMT7hPdX1p9n0R9aTYe1kdoUHp1Nzma4HfUEZYruC5Hhok1vR53Bn7hhoa +fy57HfSCxp/b3CcOLaHNJ+CSTp0XFCj/3aJYtoSMqNMlcbp0SAgMzS7+uYSK +bs4G2+vT4YDDjeiXXCTa2jdnImlIh/yOD9mcdSSatlzqL9lLh0Dhl8kavCTe +X7jWdZjRoezgJt3bG0i0aUnEVfQQHe7vueTpI0IiVrLextwzdIinfo71UiJR +Sn2kz+MiOgwQlV5fTUl0hnLDKKyEDq9Ek6s+mJHI9m71RsNSOpxWS6A8NyeR +wA323doKOgg5rn+daUmiuCBHzqMaOvTxMlI0D5IoUl3l9MNndLBPO1eo70gi +3xuv/O5/ooP49BueSncSHdzE3hc0RIcf0hlpUR4k2hnHJUwZoUPDiV329idJ +xA7Sq6gepcNqi8bhCSqJPO1zp6om6eA0c+CSDJ1ELnzB/vdW6LBwKOCssy+J +rIK3BZRLMKD90ReeHaEkepYbb50uxQCO0ovYSex9HXMqYdsYkOP/gbv6DxJp +q74aMJdjQPS5PmGD8ySSfhth/kGVAQLLxqYGkSSaMB6UENBjwHnVhNn1F0h0 +lTvv6anDDNBOTxb7koT73yOUZXeEAci7MzMlmUQXj4cF6RxjwMVJCXGdFBKF +1Tju+OnGANd/RQXOX8X1E+vSrtMYMJHf1UamkUinnUZ/HsgAh3EU/OI6id6m +qQoqpzKgN+G0a14uiSqRsPd4GgO2Ocoe2p6H86cWWiquMeBV3mfaDWzKwZYo +wxsMML0g33/lNn5+XF5zdjkM6A46ziHySbT/bN5AWDkDsrunO+aLSCQre1nf +pJIBCiNGLp7FJFpoP3uNp4oBgRf7Vzux76ghu5QHDNheejWxoIRE3wcHm/Lr +GBDRa9O+v5RENbYyJV1teL0X3PdOVpAocYWbL6OdAX8TAQ8asWklHE/XDgbs +tM7v2l5Joi28dTKsbgbQ338/8Abbr97l6vIbPG8dcRuTKhIpa1wPVRllgHrM +WuDIfRKtvP2z7wsb+8yld5QHJOqJY2jfG2dA7MeLzhewo4Z1OUaTDLDYdyVJ +roZE77P63B3mGfBdo2rF5iGJ0teLWIavI0Avquzf8FoSNcwNHg/hIaDsZufG +FuyxwdIgfz4CgtQttYQe4/ehxiKPtpGA1OBBvpvYbGrYqrUIASblXlMFT3D9 +tpailmIEOK58Xj+KvddAVB2JE6B2VGhNuY5EqcLlR3WkCVCSVg/Mwd5b97la +RpGAmjOBSXH4v5IoLG8TVyZg0t03qAE7NfX8582qBJirX/xtDptNiAnzqhMw +7zxg7NaAr4tZeU9qExBx52jY9qckqvshFs2mEJCenadqjT36ZShzSJcA/pT0 +slBs46bw5n5DAoqjDU07sFl+lXJPgYDZjB3pPo34e3eJ0Ks1I8C59iBPCraR ++QHbagsCjtpU21Zjp0iPnC88QIDbHjXvBezHvPdSc60JSBOTN976L4mYMxHF +N20JGEjTZVGwDVvFXyc7EjDmmdrkh02rHpm45ESAjuTzuUvYybfucV9wxvPW +nF+7jT0SdFA71IWAfcrbb/ZiC3tIWAW4EfBNb8OuL7/yDjLdfU8QsFOkJ+PH +r/vl/0z0oBJgdWpgRrUJ1yNgfceFRsAt9qZhA+yRRYknTnQ8P4MNpQewhYeZ +3bYEAV37mqxdsA07qtj7vQng1aM0E9i02j+/gy8BfbWuYiHYyXest+71w/3W +UvbG/MpPltyl50/AYvQT48Rf+WEs0z0BBFAec0QysYXo1S7qQQSMUpubsrEN +HKLOKocQIPgarAp/5RvbxMuGEvD9JbWwDDtJVSpbMowAQwfFD1XYj7aMPhAJ +JyClK2a8Bnt4tbpdMJIAIaGoztpf+WNRw3xRBPCoSV15gq3fa0P+jCZgU6a9 +XB32/wHJbfJZ "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, + "PlotRange" -> {{0, 180}, {0.6216952147126004, 1.5470524963250827`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.663943982390173}, + "AxesOrigin" -> {0, 0.6216952147126017}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -12616,7 +13977,8 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.663943982390173}, + AxesOrigin->{0, 0.6216952147126017}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -12644,7 +14006,8 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.6216952147126004, 1.5470524963250827`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -12652,9 +14015,9 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991337564416748*^9}, + CellChangeTimes->{3.991337564416748*^9, 3.9942607230576468`*^9}, CellLabel-> - "Out[303]=",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] + "Out[137]=",ExpressionUUID->"f43f279c-65cb-4dd5-86db-1b9ddcea96f0"] }, Open ]], Cell[CellGroupData[{ @@ -12718,252 +14081,175 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ - 3.9918495265156612`*^9, {3.991849580574194*^9, - 3.9918495807911797`*^9}},ExpressionUUID->"90696e8b-5a2d-314c-8d58-\ -ac84cb8f4d66"], + 3.9918495265156612`*^9, {3.991849580574194*^9, 3.9918495807911797`*^9}}, + CellLabel-> + "In[138]:=",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.976253354341118`*^-271\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.134119933946784`*^-262\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 304, - 297, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337564646551*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 69, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337564646551*^9, 3.994260723223201*^9}, CellLabel-> "During evaluation of \ -In[304]:=",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], +In[138]:=",ExpressionUUID->"5d5899f4-5c89-4eff-b36e-c168e26587e3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.718150004511881`*^-282\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.3812419976620405`*^-273\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 304, 298, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913375646565304`*^9}, + 138, 70, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337564646551*^9, 3.9942607232320642`*^9}, CellLabel-> "During evaluation of \ -In[304]:=",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], +In[138]:=",ExpressionUUID->"4be24323-1106-45ac-b58e-5f9ecb617805"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4847193100774497`*^-293\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.6822113772977246`*^-284\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 304, 299, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913375646656475`*^9}, + 2, 138, 71, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337564646551*^9, 3.9942607232395983`*^9}, CellLabel-> "During evaluation of \ -In[304]:=",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], +In[138]:=",ExpressionUUID->"781712e1-504b-4091-8cb8-edde7d54d6d5"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 304, 300, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913375646736584`*^9}, +during this calculation.\"", 2, 138, 72, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337564646551*^9, 3.9942607232483273`*^9}, CellLabel-> "During evaluation of \ -In[304]:=",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], +In[138]:=",ExpressionUUID->"ff619e96-bc5c-483d-a559-eb9b9e741d26"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo -yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ -e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt -CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 -SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr -J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX -du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch -VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU -v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt -EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 -uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi -NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L -I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ -bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A -1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f -CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b -RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf -p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 -c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY -doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm -Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 -784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw -+0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s -GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs -uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL -iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G -ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ -nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU -gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 -XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU -m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l -bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy -I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 -zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ -mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK -vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G -UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ -xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 -fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu -FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu -g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ -l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX -V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ -eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 -3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA -G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN -mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H -L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep -5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj -JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT -+jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs -FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v -HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax -9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L -lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 -Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV -lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E -uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh -RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY -ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ -8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI -MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q -4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD -b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ -sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU -0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK -VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv -vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA -0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES -2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO -EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 -OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb -5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl -Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN -+dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi -yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O -GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ -8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho -q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for -sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl -KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob -v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N -1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB -w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg -d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw -7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF -XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi -teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD -A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD -wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 -HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 -yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 -tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn -y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ -71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB -hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy -C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC -ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ -rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 -1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H -7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 -32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l -Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq -gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij -tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp -MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq -2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 -nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM -D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU -RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb -MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr -fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 -GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h -+tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 -PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN -MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 -75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc -5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU -UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw -El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW -q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH -1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK -3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ -lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf -VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy -Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD -25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O -JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI -w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q -hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR -hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv -ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu -jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S -JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue -2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig -DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 -bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 -3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe -etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk -om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe -tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F -X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau -q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 -D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc -PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE -QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc -IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx -bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN -H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 -sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU -K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 -mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi -z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o -YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h -Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 -aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l -cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo -2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 -Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl -z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO -d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da -A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM -VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl -kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC -H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk -4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x -CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl -rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 -pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs -Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US -R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o -IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe -SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U -EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o -0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm -cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru -YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep -KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F -VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs -76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj -6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 -BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi -JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT -/wN9xxCi + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8le0bAHCR0FD2sZ9zjMrIDIdzXFcZ2SKVkR1CFHklDSOV0pA9MrLe +ijjnqRQqoqVQCkmlQeWVRBkp4/f8/jqf7+dzzn0/577W/dD99jgH8PLw8Ggu +4uH5/+dUf+t95ZQyU0FOuKulm5lpVyHtwIbeRJiT3GNztZEOKPHMj9abBua0 +0NCkRh2I3nzlFV9vCfxQ9fTZ1bgBREal0mZekUDSRkZMGp3g/W2HPROvmkHP +xHW+8q4vWCoPvxt/9QI0gp09D9+OgJlXhpljrz7BiwLNP+3XEqDF7N+yzpJf +EJAWYGtlkwZy7+u++GnMASO0e3LZ8zwQ3+19RcCMD/++4G+y97sIaTqWDQ5b +BXHKSqVpaFc5vM7RbhpftQJDz700iH11CVLK4p7xSotgvlHN7J3VVWCjHywq +oSSCO1vNj/fpVYHgfeetqzVF8IqY9McfUAVJAypvbDeIoGJoyiJ+1yo4xGj7 +khEsggXni2t6T1RBeDFtXrVeBK+59fYpfakCpwtcDVsPUfzLk/DBuOAqSGUM +nEwvEEMJ3qQdiyargaZ+I+l3hRief7zCJW2+GmSaj8d5csQwTIheJidYAwpj +a/9Z3SKGA910a3nZGlCx2+vTMCSGqnzNxzqwBvQWzxkM6Injr7vDT36cqgHH +KMlB3SfiaDpptkRsBQc2Lxvqz34pjnjz18weEQ44l9S9nn0rjoxh4mSrBAe2 +Pd/x7OEPcUyZWxsTqcABT43SencJCVx17sbpfC0OhA5qnU/0kUDW/WQdGycO +nHCxNn0xJYFfEztqJdM4IHO9Q4Z3kSQubX6o5pHFgWoxl2mdZZK4P945PT+P +Az0vvDjnFSXRwroQV5VyQNkpiuFkJYk7TtUuar3GgWb7oiXPcyUx93ft8/1d +HJiznOxoZ0mhnLHRmceiXEitiK2cs5TCXCWdyVOSXFBewpOs6SSF79KLraxl +uGD3YOmGMwFSuE1anVtH50KeGXHN7qwUpqdgUrA2F4zQNvvpeymU9Fgvym/P +hX3Mi96tiTQ8IPZAQf0oF2yKhSdsT9Nw6+i6XL3jXGAIHEruyKShTM/HRKOT +XHjetY378hIN7Se0ywzPcWHd3uV8/R00ZF2XVlyWz4Whiv0VP2Wk0fqS/MIS +kgs7xB2+y16TxphPdd+d33FB72BDQuFtafxYviX8v/dcWPppjST9oTSWcgZ8 +Dn3iQl0NH6i+lsbBmZMXsr9yQdK2LlV7QRr9lv0bWTpO7Z+grG9hK4MiMkUt +q/hJMP/xJzZ8QAZnaf1xZmtJOGCVoXZvRAbPey5576lOQvVFzT6xKRl0a07r +i9Ikgebiw6wTlEXwnfk3R4eEkVsPpvnWyWKtCL3sJpOE9MTUqNwYWbQ1swjc +Yk3C4zdrlUcSZNFp7fUaQ1sSZvVbXpqmyKKjfWIezZ6EwK+TuoMFsjhgULj1 ++WYSjO08xte1yGLImbpQKVcSPkmoht9fIYcxs4PBiwNJkNrTKC8lJYcXrrdP +kEEk2D12bQ8m5FBgaOVqr2ASamNTNFbqyaFLwYajV3aTcOr92LCbqxwKZU2p +yO4jQfdyQ9CPEjlUL7wWtSOOhASWk6+MkTwei1sI9sskwcqr8KfhRnl0Oj2n +2pxFgnD8t6Nb7eSxJl6QXyGHhAstxypSfeTx6vCE6pM8Em7Z1H9bclIeB8PZ +EhNFJIy5KkX/ei2PgfFeRucuk3Azdq+AyKA8dmf4uXGvkHDkwp2cdaPyKDR0 +v+JZJQnLP2xvCOZVQGSVtfJUk7A66DTPBzUFNJgUsVhPkuD1z+SptoMK+I3V +1vS1jgSV7I1yw8cUMLeAubi9/v/nf+6qQKoCWmmnxVc3kBA7u/b5xjIF1GM5 +rw68Q0LmUS+JujYFVPANM7/URMKO8sqKnh4FPBOWErjnHgmMR78NJz4ooOyM +/WPdZhI4S9PdtSYVsDFGz6G6hYS284+KyuUVMffI54MxD6n4XhPXaVmtiEvq +k67RH5Hg3u3b/EFHERs923QeUR6izQ7KWipicsUIv0ArCXzF2mpp4YqY4v1K +xf0pCU/uHW6oiVHEtD9SVZ8ppw48sWtPVMQD/A7xYW0kKKwO2COYrYgvHLdJ +RrZT+VCde/1II7WfDVPM8RmVr6865kYfK+L7R74DNyg78Cze5P1CEfMjQxKl +n5Pg7xz+Gj4r4t61G7RfUQ4/WMrgjCqi8vVS1OkkIaasN5T4rYg9QSuVkilb +HqTHxfMTqOKi76vxgoSnK2+XGi0lcG9B8t0DlDeXbXs8JkzgrJbceAtlj/YU +EV8agQmW+NrhJQkffFUNpOUJjPKITD1HOXCqyb2TTmBcnyrRTnmv4lTpBnUC +j4j7t5l2kTB5LfXxjBaB7R1pw5GUY63Uv3P1CWwbyxgspczz7oFICJN6nhho +6KR8LMLHgGFK4EHN4D2zlJcu+evet5HA/tL/Fil3U+eXlxmXtolAI6PcfVaU +JbS0y2zsCLy5yulBMOW8liePeZ0IZMl9mz5BWdE14Hv9VgKfiWxcXkq5bGRB +ZJ87gUJ7dfgaKKsl5BmoexMYcyjz3TPKNRLrPQb8CWSY2V74SFn/yrO4/F0E +fs7UxjHK9aYhZVvCCOxdpvzkL2V4ubh1WSSBXTz8Jot7SLgfVPS9JZrABxnX +0oUoW88yRQ8dJFCtclX3MsodqV0G+vEE/jM8t7CUsovKHo+RJALjGzwlBCi/ +rhOKLztJ4HcrMUkeyl4OZWU7zhJYfISXb4rab/CTaat4OoHyQqveDVEO3v/6 +e1s2gX9d6OW9lEeXRYkeu0Cg/Vm5HQ8o7ysWNmRfpP5v8RBvDeXf+pc9JssJ +PKAXlpdJ+UirWfzVK9T6NWlKByjzefWXBdQQeMVoY5Eb5eSfMa3y1wm0rQkQ +NqQsfEJstPsWgbqcrxEilGkcK0PLZgLHQm9I36HiVWA+4DH/kMDqJX3eZykz +Xh+Or31K4K5h4cIdlDV5r7WqdlP5Zea/ZIzKFzLLfrT/NYFTvr66NygbqQ+J +ZvcTOC6l6b6f8kYX+R0CQ1Q+HfhZ/JPKx0dDN+MbRwj0T3x+r5Ky3WHn8v3j +BN5/a/7Jl/L2ihOjX/8Q+JDvnsoDKt93/x6Pf7yCjg9ufuwMourDOCJQ8oso +HfU+e//koSw43FfJR6OjlLNyZhZVX+VvWnpMGXT85hkTeLODhP67mRo3DOj4 +YdbO4xlVr1WGS5tfmNAxCqY4dpRjOUe2jyEdK6dH0x5S9S1ZEpSobktHh5lB +Hs4TEhyPMXsvetOxL417ye0xVe/zV8Mad9Lxi09hUgPVP0aiGXzvgunIzFaY +lqacvGvZOloUHcdxeXnbAxKabN8dPZtMx3fL9KyFqP6kK5qgdZBLR+sRdt+H +21T9pEzez6ml48YitTvLKXfwhbjXNtDxx7E3tuup/hg66Xxs/AEdlV//ijhE +9dOyXuU3QX10FNcUFRi4QT1v0ePjLnwM3DtllyxK9eNBKbZcpCADrSqyngpd +peKTyuWeW8HAWaMrz+eo/u2YmPf2iRQDNRhtKm+pfp8csFt3gwYDjS5FKEWW +kzCjvqpfcysDLS0jryy+QMJUgUyCnjsD38RfSuyg5sfEShVlpjcDHadrNmfm +Uvn6ixliHsxAd1rNS+lsav41+E+5H2bgidg/+fPnqf5pe1M4uZyBm4hNu41O +UPUd6gWfJhnotivnQ/QeErLf7fr09Q8D1RQtVn8KIyHDcd+x7wsM9LvSm2pD +zcOzeslPfwspYf7BIy9EqXmZ+Je7faWCEm7cH2qU4EedTwr/XpalElb5Nnf3 +uJDAqqwqzspSwvdpVpf3GJLwhqgssshXwpfcc4dK11PxzrpcOFGkhPd0Nv3t +0qPmXULFBefLShhl/31BW5uKj2txjvBtJXSIibRqX0PCWv6M1OMflbBuyfbh +bGnqvL0PxkdrKOPmtHz6kRkujIva+GxrVkaNaMG2Lur+07ub8TzkkTL6NufH +23C40PTwD8S1KaNltnfPnavUfS62UvFSjzJOhwrvLrjEBe1Py9/PDCtj7oRm +OBZyIZz7zLNATAV5j4WAFHX/Gnbc6jG4UwXdzPW4Yp5cGDztsy1SQBUbtHXN +y+c5YP1jv/Vng9X49c7Yu6XGHBjxF9x3PW4N0ph3by3OrabeJ6R4TzSvxXvr +ojReX6wC0XbVs5wfavhrOKr4ZO0VkEuu2WxgoIE58fknlmdeghx15iqxIE28 +GbE+gTezAp7IbFj/6/w6nC8VXatVVgbGcs2pWj1aWLh2C09oVgkI85VE+SZq +48eceF/+u8WgkKDIclPVwUJBg8aA6gIQUtlR6/xIB6v/XW5xWjMP1rGla/Z7 +6qLSoHByNyMbIvtFW2x49HBU2MO/nZYBP36d3mqdo4dZCwpMp8TzsEnrYZ61 +pj4Os4/KGAefhbu/TP5Od+ijqcAP07iRkxCuodvXGbAeu/b9aVbTOw7s0Z1d +bkIG2Ln0ggt/WSJYKNPsV5QY4HS7iAzzQBysiT8V02xoiIVqdd+iE2JBLYDZ +qNJniAJ3z9qOvvkHAu7uSroeYYRd2XSHZtVIGA0b3m8RZYTliSMl36UiIUZ+ +d2hPtBEarElQUhKKhFOH9jj/PmiEgt2c9KpvEcAxjiZYx43QUG7yohE3AmZr +j95uyTNC89zFAjqmEZBWUzjxosUI/xTHVcR574XG4q6d4xJMPP3p+MWZQ2Hw +wY7uHU1jYnVAHT1lZxjwzIS5/ZVholfJjVeadmGw0UnAgZ9goqadZ1OFbBg8 +XGRsKK3GxLdJCkkBDbuhza9IaIMpE4PeMfqE50OhTzmkOjWQiRdNvrh1nguB +iUsL01o3mbhaT12QMRAEX7ZZFp+sYyJp6JxGex4EvYvPWA00MNE+sGq13J0g +aPCRyc1qYqJWuqKrTXYQJNLWG8+1MvFDftSKjXZBsCo55NCTt0x0N5tsyLkV +CBpB3TwBvMbIyohnXMsLAH+VSqE8e2PUlyotYRz1h9gHXiGqm41RW+Tmz/YI +f0gNEH1KOhujgGx/4XEff7hdfuD00+3G+FYpZVjR1B/EVa1Wzvkao8960ZDx +GT94qPpZ3CfaGBc+2vwnGOUHamsUCdUiYyxcLpDUGeEL42rpBuSYMZZKttkQ +yt7Q24YWYr+M8ezP5XdPCXlDU/jolqhJav3OYhGhH15wlrSOMPhjjKnbXdZu +qPcCNWOeqno+E9T95+/jAicv8LMOo7dImqBNYrn1/FFP6AratLyLZYItvxY7 +CU17wK2yvx8nk02QIZC+s1HMDQzMoqZtUkwwf36NsP68K9z4OLK8+IwJqvF8 +WFE35AqkQr+hTZoJxty9+OXXHVeoymk6U5hvgoNZfO/Vg12h+PQx5qZqEyy5 +E7HkQvN2OBm18nzOSxNUPZQ9YZCwDdzNldBEgYWVCUrS+uouMNclKNxCsPDM +wMOMUSkXKA4YfWOjxEJiaFV43WIX+HK8br/7GhaGFfctje/fApGtjjUHdFko +/z3g32dpW+CUwyGFW5YsfJng5BQ+7wz1rt2z+ntYOH+5vt3toxPIhp2oW9fE +wr8haxJ5/nWEswuB61OaWbj3WX3SklOOwJtmyf16n4Vdjq/MlMMcYbiW/3Jx +Kwv3afrdqNBzhHqepBzRlyzs4c3IfnDPAdwz4vdPfWbhH84TPs9P9pDTcGD9 +3WVsTJHrKErQtwOJpbu59tvZGE0nzA2lraHM7HDsmBsbPVZECU7MW4Hu4bNm +6TvYOHrnbXLroBU4jHG6e33Z+Aiyw+5yrOB4z+SM/242fuNbnd1ubQW/S+I2 +xiaw0XmTGG1v/CboM0l/WVHJxhNBWZ3sBQvY9U/ZBetqNiZwdRVGvlrAVPWN +gBEOGzun4TbnuQWIMnqndWrZ6NKfU3KoxAJsBeXl7jSx8ZKgt7j8Jgu43VWx +82U3GzW/f8vYm2EONsK3NKN7qfVjXP0PHjGH3k2tU7Q3bKyo9/PJ32UOE/Xf +kr0+sNGuHotk2OageVH76n/D1Pf7HDeIfzWD230bok9/Z6P/+aOZDzvNwEZ8 +C2iNsfFdbUjKmdtmEHjin86oSTYKLm+UdEszg4mm43lSv6nfn4g76XnYDBL/ +ZPvX/2Fj2UKua/QuM1ilf1nDc46NmyO6I0u3mEFhWP3kwgIbZc8sfjRoagb/ +A2TUgzs= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -12977,211 +14263,130 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo -yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ -e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt -CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 -SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr -J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX -du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch -VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU -v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt -EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 -uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi -NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L -I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ -bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A -1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f -CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b -RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf -p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 -c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY -doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm -Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 -784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw -+0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s -GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs -uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL -iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G -ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ -nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU -gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 -XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU -m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l -bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy -I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 -zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ -mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK -vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G -UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ -xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 -fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu -FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu -g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ -l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX -V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ -eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 -3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA -G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN -mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H -L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep -5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj -JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT -+jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs -FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v -HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax -9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L -lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 -Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV -lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E -uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh -RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY -ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ -8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI -MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q -4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD -b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ -sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU -0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK -VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv -vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA -0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES -2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO -EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 -OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb -5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl -Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN -+dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi -yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O -GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ -8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho -q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for -sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl -KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob -v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N -1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB -w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg -d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw -7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF -XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi -teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD -A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD -wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 -HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 -yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 -tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn -y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ -71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB -hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy -C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC -ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ -rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 -1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H -7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 -32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l -Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq -gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij -tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp -MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq -2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 -nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM -D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU -RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb -MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr -fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 -GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h -+tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 -PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN -MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 -75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc -5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU -UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw -El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW -q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH -1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK -3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ -lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf -VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy -Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD -25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O -JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI -w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q -hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR -hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv -ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu -jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S -JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue -2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig -DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 -bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 -3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe -etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk -om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe -tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F -X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau -q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 -D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc -PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE -QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc -IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx -bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN -H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 -sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU -K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 -mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi -z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o -YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h -Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 -aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l -cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo -2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 -Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl -z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO -d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da -A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM -VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl -kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC -H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk -4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x -CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl -rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 -pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs -Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US -R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o -IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe -SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U -EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o -0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm -cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru -YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep -KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F -VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs -76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj -6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 -BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi -JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT -/wN9xxCi +1:eJwV13c8le0bAHCR0FD2sZ9zjMrIDIdzXFcZ2SKVkR1CFHklDSOV0pA9MrLe +ijjnqRQqoqVQCkmlQeWVRBkp4/f8/jqf7+dzzn0/577W/dD99jgH8PLw8Ggu +4uH5/+dUf+t95ZQyU0FOuKulm5lpVyHtwIbeRJiT3GNztZEOKPHMj9abBua0 +0NCkRh2I3nzlFV9vCfxQ9fTZ1bgBREal0mZekUDSRkZMGp3g/W2HPROvmkHP +xHW+8q4vWCoPvxt/9QI0gp09D9+OgJlXhpljrz7BiwLNP+3XEqDF7N+yzpJf +EJAWYGtlkwZy7+u++GnMASO0e3LZ8zwQ3+19RcCMD/++4G+y97sIaTqWDQ5b +BXHKSqVpaFc5vM7RbhpftQJDz700iH11CVLK4p7xSotgvlHN7J3VVWCjHywq +oSSCO1vNj/fpVYHgfeetqzVF8IqY9McfUAVJAypvbDeIoGJoyiJ+1yo4xGj7 +khEsggXni2t6T1RBeDFtXrVeBK+59fYpfakCpwtcDVsPUfzLk/DBuOAqSGUM +nEwvEEMJ3qQdiyargaZ+I+l3hRief7zCJW2+GmSaj8d5csQwTIheJidYAwpj +a/9Z3SKGA910a3nZGlCx2+vTMCSGqnzNxzqwBvQWzxkM6Injr7vDT36cqgHH +KMlB3SfiaDpptkRsBQc2Lxvqz34pjnjz18weEQ44l9S9nn0rjoxh4mSrBAe2 +Pd/x7OEPcUyZWxsTqcABT43SencJCVx17sbpfC0OhA5qnU/0kUDW/WQdGycO +nHCxNn0xJYFfEztqJdM4IHO9Q4Z3kSQubX6o5pHFgWoxl2mdZZK4P945PT+P +Az0vvDjnFSXRwroQV5VyQNkpiuFkJYk7TtUuar3GgWb7oiXPcyUx93ft8/1d +HJiznOxoZ0mhnLHRmceiXEitiK2cs5TCXCWdyVOSXFBewpOs6SSF79KLraxl +uGD3YOmGMwFSuE1anVtH50KeGXHN7qwUpqdgUrA2F4zQNvvpeymU9Fgvym/P +hX3Mi96tiTQ8IPZAQf0oF2yKhSdsT9Nw6+i6XL3jXGAIHEruyKShTM/HRKOT +XHjetY378hIN7Se0ywzPcWHd3uV8/R00ZF2XVlyWz4Whiv0VP2Wk0fqS/MIS +kgs7xB2+y16TxphPdd+d33FB72BDQuFtafxYviX8v/dcWPppjST9oTSWcgZ8 +Dn3iQl0NH6i+lsbBmZMXsr9yQdK2LlV7QRr9lv0bWTpO7Z+grG9hK4MiMkUt +q/hJMP/xJzZ8QAZnaf1xZmtJOGCVoXZvRAbPey5576lOQvVFzT6xKRl0a07r +i9Ikgebiw6wTlEXwnfk3R4eEkVsPpvnWyWKtCL3sJpOE9MTUqNwYWbQ1swjc +Yk3C4zdrlUcSZNFp7fUaQ1sSZvVbXpqmyKKjfWIezZ6EwK+TuoMFsjhgULj1 ++WYSjO08xte1yGLImbpQKVcSPkmoht9fIYcxs4PBiwNJkNrTKC8lJYcXrrdP +kEEk2D12bQ8m5FBgaOVqr2ASamNTNFbqyaFLwYajV3aTcOr92LCbqxwKZU2p +yO4jQfdyQ9CPEjlUL7wWtSOOhASWk6+MkTwei1sI9sskwcqr8KfhRnl0Oj2n +2pxFgnD8t6Nb7eSxJl6QXyGHhAstxypSfeTx6vCE6pM8Em7Z1H9bclIeB8PZ +EhNFJIy5KkX/ei2PgfFeRucuk3Azdq+AyKA8dmf4uXGvkHDkwp2cdaPyKDR0 +v+JZJQnLP2xvCOZVQGSVtfJUk7A66DTPBzUFNJgUsVhPkuD1z+SptoMK+I3V +1vS1jgSV7I1yw8cUMLeAubi9/v/nf+6qQKoCWmmnxVc3kBA7u/b5xjIF1GM5 +rw68Q0LmUS+JujYFVPANM7/URMKO8sqKnh4FPBOWErjnHgmMR78NJz4ooOyM +/WPdZhI4S9PdtSYVsDFGz6G6hYS284+KyuUVMffI54MxD6n4XhPXaVmtiEvq +k67RH5Hg3u3b/EFHERs923QeUR6izQ7KWipicsUIv0ArCXzF2mpp4YqY4v1K +xf0pCU/uHW6oiVHEtD9SVZ8ppw48sWtPVMQD/A7xYW0kKKwO2COYrYgvHLdJ +RrZT+VCde/1II7WfDVPM8RmVr6865kYfK+L7R74DNyg78Cze5P1CEfMjQxKl +n5Pg7xz+Gj4r4t61G7RfUQ4/WMrgjCqi8vVS1OkkIaasN5T4rYg9QSuVkilb +HqTHxfMTqOKi76vxgoSnK2+XGi0lcG9B8t0DlDeXbXs8JkzgrJbceAtlj/YU +EV8agQmW+NrhJQkffFUNpOUJjPKITD1HOXCqyb2TTmBcnyrRTnmv4lTpBnUC +j4j7t5l2kTB5LfXxjBaB7R1pw5GUY63Uv3P1CWwbyxgspczz7oFICJN6nhho +6KR8LMLHgGFK4EHN4D2zlJcu+evet5HA/tL/Fil3U+eXlxmXtolAI6PcfVaU +JbS0y2zsCLy5yulBMOW8liePeZ0IZMl9mz5BWdE14Hv9VgKfiWxcXkq5bGRB +ZJ87gUJ7dfgaKKsl5BmoexMYcyjz3TPKNRLrPQb8CWSY2V74SFn/yrO4/F0E +fs7UxjHK9aYhZVvCCOxdpvzkL2V4ubh1WSSBXTz8Jot7SLgfVPS9JZrABxnX +0oUoW88yRQ8dJFCtclX3MsodqV0G+vEE/jM8t7CUsovKHo+RJALjGzwlBCi/ +rhOKLztJ4HcrMUkeyl4OZWU7zhJYfISXb4rab/CTaat4OoHyQqveDVEO3v/6 +e1s2gX9d6OW9lEeXRYkeu0Cg/Vm5HQ8o7ysWNmRfpP5v8RBvDeXf+pc9JssJ +PKAXlpdJ+UirWfzVK9T6NWlKByjzefWXBdQQeMVoY5Eb5eSfMa3y1wm0rQkQ +NqQsfEJstPsWgbqcrxEilGkcK0PLZgLHQm9I36HiVWA+4DH/kMDqJX3eZykz +Xh+Or31K4K5h4cIdlDV5r7WqdlP5Zea/ZIzKFzLLfrT/NYFTvr66NygbqQ+J +ZvcTOC6l6b6f8kYX+R0CQ1Q+HfhZ/JPKx0dDN+MbRwj0T3x+r5Ky3WHn8v3j +BN5/a/7Jl/L2ihOjX/8Q+JDvnsoDKt93/x6Pf7yCjg9ufuwMourDOCJQ8oso +HfU+e//koSw43FfJR6OjlLNyZhZVX+VvWnpMGXT85hkTeLODhP67mRo3DOj4 +YdbO4xlVr1WGS5tfmNAxCqY4dpRjOUe2jyEdK6dH0x5S9S1ZEpSobktHh5lB +Hs4TEhyPMXsvetOxL417ye0xVe/zV8Mad9Lxi09hUgPVP0aiGXzvgunIzFaY +lqacvGvZOloUHcdxeXnbAxKabN8dPZtMx3fL9KyFqP6kK5qgdZBLR+sRdt+H +21T9pEzez6ml48YitTvLKXfwhbjXNtDxx7E3tuup/hg66Xxs/AEdlV//ijhE +9dOyXuU3QX10FNcUFRi4QT1v0ePjLnwM3DtllyxK9eNBKbZcpCADrSqyngpd +peKTyuWeW8HAWaMrz+eo/u2YmPf2iRQDNRhtKm+pfp8csFt3gwYDjS5FKEWW +kzCjvqpfcysDLS0jryy+QMJUgUyCnjsD38RfSuyg5sfEShVlpjcDHadrNmfm +Uvn6ixliHsxAd1rNS+lsav41+E+5H2bgidg/+fPnqf5pe1M4uZyBm4hNu41O +UPUd6gWfJhnotivnQ/QeErLf7fr09Q8D1RQtVn8KIyHDcd+x7wsM9LvSm2pD +zcOzeslPfwspYf7BIy9EqXmZ+Je7faWCEm7cH2qU4EedTwr/XpalElb5Nnf3 +uJDAqqwqzspSwvdpVpf3GJLwhqgssshXwpfcc4dK11PxzrpcOFGkhPd0Nv3t +0qPmXULFBefLShhl/31BW5uKj2txjvBtJXSIibRqX0PCWv6M1OMflbBuyfbh +bGnqvL0PxkdrKOPmtHz6kRkujIva+GxrVkaNaMG2Lur+07ub8TzkkTL6NufH +23C40PTwD8S1KaNltnfPnavUfS62UvFSjzJOhwrvLrjEBe1Py9/PDCtj7oRm +OBZyIZz7zLNATAV5j4WAFHX/Gnbc6jG4UwXdzPW4Yp5cGDztsy1SQBUbtHXN +y+c5YP1jv/Vng9X49c7Yu6XGHBjxF9x3PW4N0ph3by3OrabeJ6R4TzSvxXvr +ojReX6wC0XbVs5wfavhrOKr4ZO0VkEuu2WxgoIE58fknlmdeghx15iqxIE28 +GbE+gTezAp7IbFj/6/w6nC8VXatVVgbGcs2pWj1aWLh2C09oVgkI85VE+SZq +48eceF/+u8WgkKDIclPVwUJBg8aA6gIQUtlR6/xIB6v/XW5xWjMP1rGla/Z7 +6qLSoHByNyMbIvtFW2x49HBU2MO/nZYBP36d3mqdo4dZCwpMp8TzsEnrYZ61 +pj4Os4/KGAefhbu/TP5Od+ijqcAP07iRkxCuodvXGbAeu/b9aVbTOw7s0Z1d +bkIG2Ln0ggt/WSJYKNPsV5QY4HS7iAzzQBysiT8V02xoiIVqdd+iE2JBLYDZ +qNJniAJ3z9qOvvkHAu7uSroeYYRd2XSHZtVIGA0b3m8RZYTliSMl36UiIUZ+ +d2hPtBEarElQUhKKhFOH9jj/PmiEgt2c9KpvEcAxjiZYx43QUG7yohE3AmZr +j95uyTNC89zFAjqmEZBWUzjxosUI/xTHVcR574XG4q6d4xJMPP3p+MWZQ2Hw +wY7uHU1jYnVAHT1lZxjwzIS5/ZVholfJjVeadmGw0UnAgZ9goqadZ1OFbBg8 +XGRsKK3GxLdJCkkBDbuhza9IaIMpE4PeMfqE50OhTzmkOjWQiRdNvrh1nguB +iUsL01o3mbhaT12QMRAEX7ZZFp+sYyJp6JxGex4EvYvPWA00MNE+sGq13J0g +aPCRyc1qYqJWuqKrTXYQJNLWG8+1MvFDftSKjXZBsCo55NCTt0x0N5tsyLkV +CBpB3TwBvMbIyohnXMsLAH+VSqE8e2PUlyotYRz1h9gHXiGqm41RW+Tmz/YI +f0gNEH1KOhujgGx/4XEff7hdfuD00+3G+FYpZVjR1B/EVa1Wzvkao8960ZDx +GT94qPpZ3CfaGBc+2vwnGOUHamsUCdUiYyxcLpDUGeEL42rpBuSYMZZKttkQ +yt7Q24YWYr+M8ezP5XdPCXlDU/jolqhJav3OYhGhH15wlrSOMPhjjKnbXdZu +qPcCNWOeqno+E9T95+/jAicv8LMOo7dImqBNYrn1/FFP6AratLyLZYItvxY7 +CU17wK2yvx8nk02QIZC+s1HMDQzMoqZtUkwwf36NsP68K9z4OLK8+IwJqvF8 +WFE35AqkQr+hTZoJxty9+OXXHVeoymk6U5hvgoNZfO/Vg12h+PQx5qZqEyy5 +E7HkQvN2OBm18nzOSxNUPZQ9YZCwDdzNldBEgYWVCUrS+uouMNclKNxCsPDM +wMOMUSkXKA4YfWOjxEJiaFV43WIX+HK8br/7GhaGFfctje/fApGtjjUHdFko +/z3g32dpW+CUwyGFW5YsfJng5BQ+7wz1rt2z+ntYOH+5vt3toxPIhp2oW9fE +wr8haxJ5/nWEswuB61OaWbj3WX3SklOOwJtmyf16n4Vdjq/MlMMcYbiW/3Jx +Kwv3afrdqNBzhHqepBzRlyzs4c3IfnDPAdwz4vdPfWbhH84TPs9P9pDTcGD9 +3WVsTJHrKErQtwOJpbu59tvZGE0nzA2lraHM7HDsmBsbPVZECU7MW4Hu4bNm +6TvYOHrnbXLroBU4jHG6e33Z+Aiyw+5yrOB4z+SM/242fuNbnd1ubQW/S+I2 +xiaw0XmTGG1v/CboM0l/WVHJxhNBWZ3sBQvY9U/ZBetqNiZwdRVGvlrAVPWN +gBEOGzun4TbnuQWIMnqndWrZ6NKfU3KoxAJsBeXl7jSx8ZKgt7j8Jgu43VWx +82U3GzW/f8vYm2EONsK3NKN7qfVjXP0PHjGH3k2tU7Q3bKyo9/PJ32UOE/Xf +kr0+sNGuHotk2OageVH76n/D1Pf7HDeIfzWD230bok9/Z6P/+aOZDzvNwEZ8 +C2iNsfFdbUjKmdtmEHjin86oSTYKLm+UdEszg4mm43lSv6nfn4g76XnYDBL/ +ZPvX/2Fj2UKua/QuM1ilf1nDc46NmyO6I0u3mEFhWP3kwgIbZc8sfjRoagb/ +A2TUgzs= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "PlotRange" -> {{0, 30}, {0., 0.07357858611855464}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -13193,19 +14398,19 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "PlotRange" -> {{0, 30}, {0., 0.07357858611855464}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13219,210 +14424,129 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo -yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ -e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt -CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 -SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr -J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX -du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch -VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU -v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt -EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 -uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi -NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L -I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ -bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A -1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f -CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b -RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf -p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 -c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY -doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm -Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 -784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw -+0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s -GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs -uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL -iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G -ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ -nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU -gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 -XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU -m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l -bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy -I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 -zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ -mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK -vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G -UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ -xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 -fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu -FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu -g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ -l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX -V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ -eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 -3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA -G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN -mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H -L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep -5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj -JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT -+jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs -FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v -HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax -9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L -lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 -Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV -lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E -uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh -RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY -ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ -8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI -MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q -4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD -b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ -sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU -0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK -VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv -vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA -0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES -2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO -EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 -OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb -5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl -Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN -+dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi -yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O -GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ -8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho -q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for -sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl -KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob -v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N -1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB -w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg -d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw -7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF -XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi -teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD -A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD -wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 -HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 -yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 -tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn -y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ -71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB -hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy -C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC -ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ -rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 -1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H -7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 -32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l -Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq -gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij -tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp -MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq -2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 -nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM -D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU -RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb -MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr -fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 -GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h -+tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 -PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN -MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 -75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc -5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU -UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw -El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW -q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH -1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK -3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ -lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf -VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy -Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD -25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O -JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI -w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q -hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR -hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv -ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu -jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S -JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue -2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig -DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 -bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 -3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe -etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk -om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe -tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F -X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau -q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 -D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc -PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE -QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc -IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx -bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN -H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 -sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU -K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 -mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi -z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o -YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h -Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 -aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l -cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo -2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 -Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl -z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO -d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da -A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM -VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl -kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC -H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk -4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x -CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl -rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 -pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs -Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US -R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o -IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe -SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U -EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o -0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm -cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru -YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep -KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F -VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs -76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj -6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 -BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi -JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT -/wN9xxCi +1:eJwV13c8le0bAHCR0FD2sZ9zjMrIDIdzXFcZ2SKVkR1CFHklDSOV0pA9MrLe +ijjnqRQqoqVQCkmlQeWVRBkp4/f8/jqf7+dzzn0/577W/dD99jgH8PLw8Ggu +4uH5/+dUf+t95ZQyU0FOuKulm5lpVyHtwIbeRJiT3GNztZEOKPHMj9abBua0 +0NCkRh2I3nzlFV9vCfxQ9fTZ1bgBREal0mZekUDSRkZMGp3g/W2HPROvmkHP +xHW+8q4vWCoPvxt/9QI0gp09D9+OgJlXhpljrz7BiwLNP+3XEqDF7N+yzpJf +EJAWYGtlkwZy7+u++GnMASO0e3LZ8zwQ3+19RcCMD/++4G+y97sIaTqWDQ5b +BXHKSqVpaFc5vM7RbhpftQJDz700iH11CVLK4p7xSotgvlHN7J3VVWCjHywq +oSSCO1vNj/fpVYHgfeetqzVF8IqY9McfUAVJAypvbDeIoGJoyiJ+1yo4xGj7 +khEsggXni2t6T1RBeDFtXrVeBK+59fYpfakCpwtcDVsPUfzLk/DBuOAqSGUM +nEwvEEMJ3qQdiyargaZ+I+l3hRief7zCJW2+GmSaj8d5csQwTIheJidYAwpj +a/9Z3SKGA910a3nZGlCx2+vTMCSGqnzNxzqwBvQWzxkM6Injr7vDT36cqgHH +KMlB3SfiaDpptkRsBQc2Lxvqz34pjnjz18weEQ44l9S9nn0rjoxh4mSrBAe2 +Pd/x7OEPcUyZWxsTqcABT43SencJCVx17sbpfC0OhA5qnU/0kUDW/WQdGycO +nHCxNn0xJYFfEztqJdM4IHO9Q4Z3kSQubX6o5pHFgWoxl2mdZZK4P945PT+P +Az0vvDjnFSXRwroQV5VyQNkpiuFkJYk7TtUuar3GgWb7oiXPcyUx93ft8/1d +HJiznOxoZ0mhnLHRmceiXEitiK2cs5TCXCWdyVOSXFBewpOs6SSF79KLraxl +uGD3YOmGMwFSuE1anVtH50KeGXHN7qwUpqdgUrA2F4zQNvvpeymU9Fgvym/P +hX3Mi96tiTQ8IPZAQf0oF2yKhSdsT9Nw6+i6XL3jXGAIHEruyKShTM/HRKOT +XHjetY378hIN7Se0ywzPcWHd3uV8/R00ZF2XVlyWz4Whiv0VP2Wk0fqS/MIS +kgs7xB2+y16TxphPdd+d33FB72BDQuFtafxYviX8v/dcWPppjST9oTSWcgZ8 +Dn3iQl0NH6i+lsbBmZMXsr9yQdK2LlV7QRr9lv0bWTpO7Z+grG9hK4MiMkUt +q/hJMP/xJzZ8QAZnaf1xZmtJOGCVoXZvRAbPey5576lOQvVFzT6xKRl0a07r +i9Ikgebiw6wTlEXwnfk3R4eEkVsPpvnWyWKtCL3sJpOE9MTUqNwYWbQ1swjc +Yk3C4zdrlUcSZNFp7fUaQ1sSZvVbXpqmyKKjfWIezZ6EwK+TuoMFsjhgULj1 ++WYSjO08xte1yGLImbpQKVcSPkmoht9fIYcxs4PBiwNJkNrTKC8lJYcXrrdP +kEEk2D12bQ8m5FBgaOVqr2ASamNTNFbqyaFLwYajV3aTcOr92LCbqxwKZU2p +yO4jQfdyQ9CPEjlUL7wWtSOOhASWk6+MkTwei1sI9sskwcqr8KfhRnl0Oj2n +2pxFgnD8t6Nb7eSxJl6QXyGHhAstxypSfeTx6vCE6pM8Em7Z1H9bclIeB8PZ +EhNFJIy5KkX/ei2PgfFeRucuk3Azdq+AyKA8dmf4uXGvkHDkwp2cdaPyKDR0 +v+JZJQnLP2xvCOZVQGSVtfJUk7A66DTPBzUFNJgUsVhPkuD1z+SptoMK+I3V +1vS1jgSV7I1yw8cUMLeAubi9/v/nf+6qQKoCWmmnxVc3kBA7u/b5xjIF1GM5 +rw68Q0LmUS+JujYFVPANM7/URMKO8sqKnh4FPBOWErjnHgmMR78NJz4ooOyM +/WPdZhI4S9PdtSYVsDFGz6G6hYS284+KyuUVMffI54MxD6n4XhPXaVmtiEvq +k67RH5Hg3u3b/EFHERs923QeUR6izQ7KWipicsUIv0ArCXzF2mpp4YqY4v1K +xf0pCU/uHW6oiVHEtD9SVZ8ppw48sWtPVMQD/A7xYW0kKKwO2COYrYgvHLdJ +RrZT+VCde/1II7WfDVPM8RmVr6865kYfK+L7R74DNyg78Cze5P1CEfMjQxKl +n5Pg7xz+Gj4r4t61G7RfUQ4/WMrgjCqi8vVS1OkkIaasN5T4rYg9QSuVkilb +HqTHxfMTqOKi76vxgoSnK2+XGi0lcG9B8t0DlDeXbXs8JkzgrJbceAtlj/YU +EV8agQmW+NrhJQkffFUNpOUJjPKITD1HOXCqyb2TTmBcnyrRTnmv4lTpBnUC +j4j7t5l2kTB5LfXxjBaB7R1pw5GUY63Uv3P1CWwbyxgspczz7oFICJN6nhho +6KR8LMLHgGFK4EHN4D2zlJcu+evet5HA/tL/Fil3U+eXlxmXtolAI6PcfVaU +JbS0y2zsCLy5yulBMOW8liePeZ0IZMl9mz5BWdE14Hv9VgKfiWxcXkq5bGRB +ZJ87gUJ7dfgaKKsl5BmoexMYcyjz3TPKNRLrPQb8CWSY2V74SFn/yrO4/F0E +fs7UxjHK9aYhZVvCCOxdpvzkL2V4ubh1WSSBXTz8Jot7SLgfVPS9JZrABxnX +0oUoW88yRQ8dJFCtclX3MsodqV0G+vEE/jM8t7CUsovKHo+RJALjGzwlBCi/ +rhOKLztJ4HcrMUkeyl4OZWU7zhJYfISXb4rab/CTaat4OoHyQqveDVEO3v/6 +e1s2gX9d6OW9lEeXRYkeu0Cg/Vm5HQ8o7ysWNmRfpP5v8RBvDeXf+pc9JssJ +PKAXlpdJ+UirWfzVK9T6NWlKByjzefWXBdQQeMVoY5Eb5eSfMa3y1wm0rQkQ +NqQsfEJstPsWgbqcrxEilGkcK0PLZgLHQm9I36HiVWA+4DH/kMDqJX3eZykz +Xh+Or31K4K5h4cIdlDV5r7WqdlP5Zea/ZIzKFzLLfrT/NYFTvr66NygbqQ+J +ZvcTOC6l6b6f8kYX+R0CQ1Q+HfhZ/JPKx0dDN+MbRwj0T3x+r5Ky3WHn8v3j +BN5/a/7Jl/L2ihOjX/8Q+JDvnsoDKt93/x6Pf7yCjg9ufuwMourDOCJQ8oso +HfU+e//koSw43FfJR6OjlLNyZhZVX+VvWnpMGXT85hkTeLODhP67mRo3DOj4 +YdbO4xlVr1WGS5tfmNAxCqY4dpRjOUe2jyEdK6dH0x5S9S1ZEpSobktHh5lB +Hs4TEhyPMXsvetOxL417ye0xVe/zV8Mad9Lxi09hUgPVP0aiGXzvgunIzFaY +lqacvGvZOloUHcdxeXnbAxKabN8dPZtMx3fL9KyFqP6kK5qgdZBLR+sRdt+H +21T9pEzez6ml48YitTvLKXfwhbjXNtDxx7E3tuup/hg66Xxs/AEdlV//ijhE +9dOyXuU3QX10FNcUFRi4QT1v0ePjLnwM3DtllyxK9eNBKbZcpCADrSqyngpd +peKTyuWeW8HAWaMrz+eo/u2YmPf2iRQDNRhtKm+pfp8csFt3gwYDjS5FKEWW +kzCjvqpfcysDLS0jryy+QMJUgUyCnjsD38RfSuyg5sfEShVlpjcDHadrNmfm +Uvn6ixliHsxAd1rNS+lsav41+E+5H2bgidg/+fPnqf5pe1M4uZyBm4hNu41O +UPUd6gWfJhnotivnQ/QeErLf7fr09Q8D1RQtVn8KIyHDcd+x7wsM9LvSm2pD +zcOzeslPfwspYf7BIy9EqXmZ+Je7faWCEm7cH2qU4EedTwr/XpalElb5Nnf3 +uJDAqqwqzspSwvdpVpf3GJLwhqgssshXwpfcc4dK11PxzrpcOFGkhPd0Nv3t +0qPmXULFBefLShhl/31BW5uKj2txjvBtJXSIibRqX0PCWv6M1OMflbBuyfbh +bGnqvL0PxkdrKOPmtHz6kRkujIva+GxrVkaNaMG2Lur+07ub8TzkkTL6NufH +23C40PTwD8S1KaNltnfPnavUfS62UvFSjzJOhwrvLrjEBe1Py9/PDCtj7oRm +OBZyIZz7zLNATAV5j4WAFHX/Gnbc6jG4UwXdzPW4Yp5cGDztsy1SQBUbtHXN +y+c5YP1jv/Vng9X49c7Yu6XGHBjxF9x3PW4N0ph3by3OrabeJ6R4TzSvxXvr +ojReX6wC0XbVs5wfavhrOKr4ZO0VkEuu2WxgoIE58fknlmdeghx15iqxIE28 +GbE+gTezAp7IbFj/6/w6nC8VXatVVgbGcs2pWj1aWLh2C09oVgkI85VE+SZq +48eceF/+u8WgkKDIclPVwUJBg8aA6gIQUtlR6/xIB6v/XW5xWjMP1rGla/Z7 +6qLSoHByNyMbIvtFW2x49HBU2MO/nZYBP36d3mqdo4dZCwpMp8TzsEnrYZ61 +pj4Os4/KGAefhbu/TP5Od+ijqcAP07iRkxCuodvXGbAeu/b9aVbTOw7s0Z1d +bkIG2Ln0ggt/WSJYKNPsV5QY4HS7iAzzQBysiT8V02xoiIVqdd+iE2JBLYDZ +qNJniAJ3z9qOvvkHAu7uSroeYYRd2XSHZtVIGA0b3m8RZYTliSMl36UiIUZ+ +d2hPtBEarElQUhKKhFOH9jj/PmiEgt2c9KpvEcAxjiZYx43QUG7yohE3AmZr +j95uyTNC89zFAjqmEZBWUzjxosUI/xTHVcR574XG4q6d4xJMPP3p+MWZQ2Hw +wY7uHU1jYnVAHT1lZxjwzIS5/ZVholfJjVeadmGw0UnAgZ9goqadZ1OFbBg8 +XGRsKK3GxLdJCkkBDbuhza9IaIMpE4PeMfqE50OhTzmkOjWQiRdNvrh1nguB +iUsL01o3mbhaT12QMRAEX7ZZFp+sYyJp6JxGex4EvYvPWA00MNE+sGq13J0g +aPCRyc1qYqJWuqKrTXYQJNLWG8+1MvFDftSKjXZBsCo55NCTt0x0N5tsyLkV +CBpB3TwBvMbIyohnXMsLAH+VSqE8e2PUlyotYRz1h9gHXiGqm41RW+Tmz/YI +f0gNEH1KOhujgGx/4XEff7hdfuD00+3G+FYpZVjR1B/EVa1Wzvkao8960ZDx +GT94qPpZ3CfaGBc+2vwnGOUHamsUCdUiYyxcLpDUGeEL42rpBuSYMZZKttkQ +yt7Q24YWYr+M8ezP5XdPCXlDU/jolqhJav3OYhGhH15wlrSOMPhjjKnbXdZu +qPcCNWOeqno+E9T95+/jAicv8LMOo7dImqBNYrn1/FFP6AratLyLZYItvxY7 +CU17wK2yvx8nk02QIZC+s1HMDQzMoqZtUkwwf36NsP68K9z4OLK8+IwJqvF8 +WFE35AqkQr+hTZoJxty9+OXXHVeoymk6U5hvgoNZfO/Vg12h+PQx5qZqEyy5 +E7HkQvN2OBm18nzOSxNUPZQ9YZCwDdzNldBEgYWVCUrS+uouMNclKNxCsPDM +wMOMUSkXKA4YfWOjxEJiaFV43WIX+HK8br/7GhaGFfctje/fApGtjjUHdFko +/z3g32dpW+CUwyGFW5YsfJng5BQ+7wz1rt2z+ntYOH+5vt3toxPIhp2oW9fE +wr8haxJ5/nWEswuB61OaWbj3WX3SklOOwJtmyf16n4Vdjq/MlMMcYbiW/3Jx +Kwv3afrdqNBzhHqepBzRlyzs4c3IfnDPAdwz4vdPfWbhH84TPs9P9pDTcGD9 +3WVsTJHrKErQtwOJpbu59tvZGE0nzA2lraHM7HDsmBsbPVZECU7MW4Hu4bNm +6TvYOHrnbXLroBU4jHG6e33Z+Aiyw+5yrOB4z+SM/242fuNbnd1ubQW/S+I2 +xiaw0XmTGG1v/CboM0l/WVHJxhNBWZ3sBQvY9U/ZBetqNiZwdRVGvlrAVPWN +gBEOGzun4TbnuQWIMnqndWrZ6NKfU3KoxAJsBeXl7jSx8ZKgt7j8Jgu43VWx +82U3GzW/f8vYm2EONsK3NKN7qfVjXP0PHjGH3k2tU7Q3bKyo9/PJ32UOE/Xf +kr0+sNGuHotk2OageVH76n/D1Pf7HDeIfzWD230bok9/Z6P/+aOZDzvNwEZ8 +C2iNsfFdbUjKmdtmEHjin86oSTYKLm+UdEszg4mm43lSv6nfn4g76XnYDBL/ +ZPvX/2Fj2UKua/QuM1ilf1nDc46NmyO6I0u3mEFhWP3kwgIbZc8sfjRoagb/ +A2TUgzs= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "PlotRange" -> {{0, 30}, {0., 0.07357858611855464}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13433,6 +14557,7 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -13460,7 +14585,8 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.22160540372702894`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07357858611855464}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -13468,17 +14594,610 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913381496467495`*^9}, + CellChangeTimes->{3.9913381496467495`*^9, 3.9942611104719048`*^9}, CellLabel-> - "Out[304]=",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] + "Out[138]=",ExpressionUUID->"5cf057b3-04ef-457d-b1db-b5c255fa0359"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"ea848967-083d-ea47-bce0-\ -5c3b93725916"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[139]:=",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8le0bAHCR0FD2sZ9zjMrIDIdzXFcZ2SKVkR1CFHklDSOV0pA9MrLe +ijjnqRQqoqVQCkmlQeWVRBkp4/f8/jqf7+dzzn0/577W/dD99jgH8PLw8Ggu +4uH5/+dUf+t95ZQyU0FOuKulm5lpVyHtwIbeRJiT3GNztZEOKPHMj9abBua0 +0NCkRh2I3nzlFV9vCfxQ9fTZ1bgBREal0mZekUDSRkZMGp3g/W2HPROvmkHP +xHW+8q4vWCoPvxt/9QI0gp09D9+OgJlXhpljrz7BiwLNP+3XEqDF7N+yzpJf +EJAWYGtlkwZy7+u++GnMASO0e3LZ8zwQ3+19RcCMD/++4G+y97sIaTqWDQ5b +BXHKSqVpaFc5vM7RbhpftQJDz700iH11CVLK4p7xSotgvlHN7J3VVWCjHywq +oSSCO1vNj/fpVYHgfeetqzVF8IqY9McfUAVJAypvbDeIoGJoyiJ+1yo4xGj7 +khEsggXni2t6T1RBeDFtXrVeBK+59fYpfakCpwtcDVsPUfzLk/DBuOAqSGUM +nEwvEEMJ3qQdiyargaZ+I+l3hRief7zCJW2+GmSaj8d5csQwTIheJidYAwpj +a/9Z3SKGA910a3nZGlCx2+vTMCSGqnzNxzqwBvQWzxkM6Injr7vDT36cqgHH +KMlB3SfiaDpptkRsBQc2Lxvqz34pjnjz18weEQ44l9S9nn0rjoxh4mSrBAe2 +Pd/x7OEPcUyZWxsTqcABT43SencJCVx17sbpfC0OhA5qnU/0kUDW/WQdGycO +nHCxNn0xJYFfEztqJdM4IHO9Q4Z3kSQubX6o5pHFgWoxl2mdZZK4P945PT+P +Az0vvDjnFSXRwroQV5VyQNkpiuFkJYk7TtUuar3GgWb7oiXPcyUx93ft8/1d +HJiznOxoZ0mhnLHRmceiXEitiK2cs5TCXCWdyVOSXFBewpOs6SSF79KLraxl +uGD3YOmGMwFSuE1anVtH50KeGXHN7qwUpqdgUrA2F4zQNvvpeymU9Fgvym/P +hX3Mi96tiTQ8IPZAQf0oF2yKhSdsT9Nw6+i6XL3jXGAIHEruyKShTM/HRKOT +XHjetY378hIN7Se0ywzPcWHd3uV8/R00ZF2XVlyWz4Whiv0VP2Wk0fqS/MIS +kgs7xB2+y16TxphPdd+d33FB72BDQuFtafxYviX8v/dcWPppjST9oTSWcgZ8 +Dn3iQl0NH6i+lsbBmZMXsr9yQdK2LlV7QRr9lv0bWTpO7Z+grG9hK4MiMkUt +q/hJMP/xJzZ8QAZnaf1xZmtJOGCVoXZvRAbPey5576lOQvVFzT6xKRl0a07r +i9Ikgebiw6wTlEXwnfk3R4eEkVsPpvnWyWKtCL3sJpOE9MTUqNwYWbQ1swjc +Yk3C4zdrlUcSZNFp7fUaQ1sSZvVbXpqmyKKjfWIezZ6EwK+TuoMFsjhgULj1 ++WYSjO08xte1yGLImbpQKVcSPkmoht9fIYcxs4PBiwNJkNrTKC8lJYcXrrdP +kEEk2D12bQ8m5FBgaOVqr2ASamNTNFbqyaFLwYajV3aTcOr92LCbqxwKZU2p +yO4jQfdyQ9CPEjlUL7wWtSOOhASWk6+MkTwei1sI9sskwcqr8KfhRnl0Oj2n +2pxFgnD8t6Nb7eSxJl6QXyGHhAstxypSfeTx6vCE6pM8Em7Z1H9bclIeB8PZ +EhNFJIy5KkX/ei2PgfFeRucuk3Azdq+AyKA8dmf4uXGvkHDkwp2cdaPyKDR0 +v+JZJQnLP2xvCOZVQGSVtfJUk7A66DTPBzUFNJgUsVhPkuD1z+SptoMK+I3V +1vS1jgSV7I1yw8cUMLeAubi9/v/nf+6qQKoCWmmnxVc3kBA7u/b5xjIF1GM5 +rw68Q0LmUS+JujYFVPANM7/URMKO8sqKnh4FPBOWErjnHgmMR78NJz4ooOyM +/WPdZhI4S9PdtSYVsDFGz6G6hYS284+KyuUVMffI54MxD6n4XhPXaVmtiEvq +k67RH5Hg3u3b/EFHERs923QeUR6izQ7KWipicsUIv0ArCXzF2mpp4YqY4v1K +xf0pCU/uHW6oiVHEtD9SVZ8ppw48sWtPVMQD/A7xYW0kKKwO2COYrYgvHLdJ +RrZT+VCde/1II7WfDVPM8RmVr6865kYfK+L7R74DNyg78Cze5P1CEfMjQxKl +n5Pg7xz+Gj4r4t61G7RfUQ4/WMrgjCqi8vVS1OkkIaasN5T4rYg9QSuVkilb +HqTHxfMTqOKi76vxgoSnK2+XGi0lcG9B8t0DlDeXbXs8JkzgrJbceAtlj/YU +EV8agQmW+NrhJQkffFUNpOUJjPKITD1HOXCqyb2TTmBcnyrRTnmv4lTpBnUC +j4j7t5l2kTB5LfXxjBaB7R1pw5GUY63Uv3P1CWwbyxgspczz7oFICJN6nhho +6KR8LMLHgGFK4EHN4D2zlJcu+evet5HA/tL/Fil3U+eXlxmXtolAI6PcfVaU +JbS0y2zsCLy5yulBMOW8liePeZ0IZMl9mz5BWdE14Hv9VgKfiWxcXkq5bGRB +ZJ87gUJ7dfgaKKsl5BmoexMYcyjz3TPKNRLrPQb8CWSY2V74SFn/yrO4/F0E +fs7UxjHK9aYhZVvCCOxdpvzkL2V4ubh1WSSBXTz8Jot7SLgfVPS9JZrABxnX +0oUoW88yRQ8dJFCtclX3MsodqV0G+vEE/jM8t7CUsovKHo+RJALjGzwlBCi/ +rhOKLztJ4HcrMUkeyl4OZWU7zhJYfISXb4rab/CTaat4OoHyQqveDVEO3v/6 +e1s2gX9d6OW9lEeXRYkeu0Cg/Vm5HQ8o7ysWNmRfpP5v8RBvDeXf+pc9JssJ +PKAXlpdJ+UirWfzVK9T6NWlKByjzefWXBdQQeMVoY5Eb5eSfMa3y1wm0rQkQ +NqQsfEJstPsWgbqcrxEilGkcK0PLZgLHQm9I36HiVWA+4DH/kMDqJX3eZykz +Xh+Or31K4K5h4cIdlDV5r7WqdlP5Zea/ZIzKFzLLfrT/NYFTvr66NygbqQ+J +ZvcTOC6l6b6f8kYX+R0CQ1Q+HfhZ/JPKx0dDN+MbRwj0T3x+r5Ky3WHn8v3j +BN5/a/7Jl/L2ihOjX/8Q+JDvnsoDKt93/x6Pf7yCjg9ufuwMourDOCJQ8oso +HfU+e//koSw43FfJR6OjlLNyZhZVX+VvWnpMGXT85hkTeLODhP67mRo3DOj4 +YdbO4xlVr1WGS5tfmNAxCqY4dpRjOUe2jyEdK6dH0x5S9S1ZEpSobktHh5lB +Hs4TEhyPMXsvetOxL417ye0xVe/zV8Mad9Lxi09hUgPVP0aiGXzvgunIzFaY +lqacvGvZOloUHcdxeXnbAxKabN8dPZtMx3fL9KyFqP6kK5qgdZBLR+sRdt+H +21T9pEzez6ml48YitTvLKXfwhbjXNtDxx7E3tuup/hg66Xxs/AEdlV//ijhE +9dOyXuU3QX10FNcUFRi4QT1v0ePjLnwM3DtllyxK9eNBKbZcpCADrSqyngpd +peKTyuWeW8HAWaMrz+eo/u2YmPf2iRQDNRhtKm+pfp8csFt3gwYDjS5FKEWW +kzCjvqpfcysDLS0jryy+QMJUgUyCnjsD38RfSuyg5sfEShVlpjcDHadrNmfm +Uvn6ixliHsxAd1rNS+lsav41+E+5H2bgidg/+fPnqf5pe1M4uZyBm4hNu41O +UPUd6gWfJhnotivnQ/QeErLf7fr09Q8D1RQtVn8KIyHDcd+x7wsM9LvSm2pD +zcOzeslPfwspYf7BIy9EqXmZ+Je7faWCEm7cH2qU4EedTwr/XpalElb5Nnf3 +uJDAqqwqzspSwvdpVpf3GJLwhqgssshXwpfcc4dK11PxzrpcOFGkhPd0Nv3t +0qPmXULFBefLShhl/31BW5uKj2txjvBtJXSIibRqX0PCWv6M1OMflbBuyfbh +bGnqvL0PxkdrKOPmtHz6kRkujIva+GxrVkaNaMG2Lur+07ub8TzkkTL6NufH +23C40PTwD8S1KaNltnfPnavUfS62UvFSjzJOhwrvLrjEBe1Py9/PDCtj7oRm +OBZyIZz7zLNATAV5j4WAFHX/Gnbc6jG4UwXdzPW4Yp5cGDztsy1SQBUbtHXN +y+c5YP1jv/Vng9X49c7Yu6XGHBjxF9x3PW4N0ph3by3OrabeJ6R4TzSvxXvr +ojReX6wC0XbVs5wfavhrOKr4ZO0VkEuu2WxgoIE58fknlmdeghx15iqxIE28 +GbE+gTezAp7IbFj/6/w6nC8VXatVVgbGcs2pWj1aWLh2C09oVgkI85VE+SZq +48eceF/+u8WgkKDIclPVwUJBg8aA6gIQUtlR6/xIB6v/XW5xWjMP1rGla/Z7 +6qLSoHByNyMbIvtFW2x49HBU2MO/nZYBP36d3mqdo4dZCwpMp8TzsEnrYZ61 +pj4Os4/KGAefhbu/TP5Od+ijqcAP07iRkxCuodvXGbAeu/b9aVbTOw7s0Z1d +bkIG2Ln0ggt/WSJYKNPsV5QY4HS7iAzzQBysiT8V02xoiIVqdd+iE2JBLYDZ +qNJniAJ3z9qOvvkHAu7uSroeYYRd2XSHZtVIGA0b3m8RZYTliSMl36UiIUZ+ +d2hPtBEarElQUhKKhFOH9jj/PmiEgt2c9KpvEcAxjiZYx43QUG7yohE3AmZr +j95uyTNC89zFAjqmEZBWUzjxosUI/xTHVcR574XG4q6d4xJMPP3p+MWZQ2Hw +wY7uHU1jYnVAHT1lZxjwzIS5/ZVholfJjVeadmGw0UnAgZ9goqadZ1OFbBg8 +XGRsKK3GxLdJCkkBDbuhza9IaIMpE4PeMfqE50OhTzmkOjWQiRdNvrh1nguB +iUsL01o3mbhaT12QMRAEX7ZZFp+sYyJp6JxGex4EvYvPWA00MNE+sGq13J0g +aPCRyc1qYqJWuqKrTXYQJNLWG8+1MvFDftSKjXZBsCo55NCTt0x0N5tsyLkV +CBpB3TwBvMbIyohnXMsLAH+VSqE8e2PUlyotYRz1h9gHXiGqm41RW+Tmz/YI +f0gNEH1KOhujgGx/4XEff7hdfuD00+3G+FYpZVjR1B/EVa1Wzvkao8960ZDx +GT94qPpZ3CfaGBc+2vwnGOUHamsUCdUiYyxcLpDUGeEL42rpBuSYMZZKttkQ +yt7Q24YWYr+M8ezP5XdPCXlDU/jolqhJav3OYhGhH15wlrSOMPhjjKnbXdZu +qPcCNWOeqno+E9T95+/jAicv8LMOo7dImqBNYrn1/FFP6AratLyLZYItvxY7 +CU17wK2yvx8nk02QIZC+s1HMDQzMoqZtUkwwf36NsP68K9z4OLK8+IwJqvF8 +WFE35AqkQr+hTZoJxty9+OXXHVeoymk6U5hvgoNZfO/Vg12h+PQx5qZqEyy5 +E7HkQvN2OBm18nzOSxNUPZQ9YZCwDdzNldBEgYWVCUrS+uouMNclKNxCsPDM +wMOMUSkXKA4YfWOjxEJiaFV43WIX+HK8br/7GhaGFfctje/fApGtjjUHdFko +/z3g32dpW+CUwyGFW5YsfJng5BQ+7wz1rt2z+ntYOH+5vt3toxPIhp2oW9fE +wr8haxJ5/nWEswuB61OaWbj3WX3SklOOwJtmyf16n4Vdjq/MlMMcYbiW/3Jx +Kwv3afrdqNBzhHqepBzRlyzs4c3IfnDPAdwz4vdPfWbhH84TPs9P9pDTcGD9 +3WVsTJHrKErQtwOJpbu59tvZGE0nzA2lraHM7HDsmBsbPVZECU7MW4Hu4bNm +6TvYOHrnbXLroBU4jHG6e33Z+Aiyw+5yrOB4z+SM/242fuNbnd1ubQW/S+I2 +xiaw0XmTGG1v/CboM0l/WVHJxhNBWZ3sBQvY9U/ZBetqNiZwdRVGvlrAVPWN +gBEOGzun4TbnuQWIMnqndWrZ6NKfU3KoxAJsBeXl7jSx8ZKgt7j8Jgu43VWx +82U3GzW/f8vYm2EONsK3NKN7qfVjXP0PHjGH3k2tU7Q3bKyo9/PJ32UOE/Xf +kr0+sNGuHotk2OageVH76n/D1Pf7HDeIfzWD230bok9/Z6P/+aOZDzvNwEZ8 +C2iNsfFdbUjKmdtmEHjin86oSTYKLm+UdEszg4mm43lSv6nfn4g76XnYDBL/ +ZPvX/2Fj2UKua/QuM1ilf1nDc46NmyO6I0u3mEFhWP3kwgIbZc8sfjRoagb/ +A2TUgzs= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8le0bAHCR0FD2sZ9zjMrIDIdzXFcZ2SKVkR1CFHklDSOV0pA9MrLe +ijjnqRQqoqVQCkmlQeWVRBkp4/f8/jqf7+dzzn0/577W/dD99jgH8PLw8Ggu +4uH5/+dUf+t95ZQyU0FOuKulm5lpVyHtwIbeRJiT3GNztZEOKPHMj9abBua0 +0NCkRh2I3nzlFV9vCfxQ9fTZ1bgBREal0mZekUDSRkZMGp3g/W2HPROvmkHP +xHW+8q4vWCoPvxt/9QI0gp09D9+OgJlXhpljrz7BiwLNP+3XEqDF7N+yzpJf +EJAWYGtlkwZy7+u++GnMASO0e3LZ8zwQ3+19RcCMD/++4G+y97sIaTqWDQ5b +BXHKSqVpaFc5vM7RbhpftQJDz700iH11CVLK4p7xSotgvlHN7J3VVWCjHywq +oSSCO1vNj/fpVYHgfeetqzVF8IqY9McfUAVJAypvbDeIoGJoyiJ+1yo4xGj7 +khEsggXni2t6T1RBeDFtXrVeBK+59fYpfakCpwtcDVsPUfzLk/DBuOAqSGUM +nEwvEEMJ3qQdiyargaZ+I+l3hRief7zCJW2+GmSaj8d5csQwTIheJidYAwpj +a/9Z3SKGA910a3nZGlCx2+vTMCSGqnzNxzqwBvQWzxkM6Injr7vDT36cqgHH +KMlB3SfiaDpptkRsBQc2Lxvqz34pjnjz18weEQ44l9S9nn0rjoxh4mSrBAe2 +Pd/x7OEPcUyZWxsTqcABT43SencJCVx17sbpfC0OhA5qnU/0kUDW/WQdGycO +nHCxNn0xJYFfEztqJdM4IHO9Q4Z3kSQubX6o5pHFgWoxl2mdZZK4P945PT+P +Az0vvDjnFSXRwroQV5VyQNkpiuFkJYk7TtUuar3GgWb7oiXPcyUx93ft8/1d +HJiznOxoZ0mhnLHRmceiXEitiK2cs5TCXCWdyVOSXFBewpOs6SSF79KLraxl +uGD3YOmGMwFSuE1anVtH50KeGXHN7qwUpqdgUrA2F4zQNvvpeymU9Fgvym/P +hX3Mi96tiTQ8IPZAQf0oF2yKhSdsT9Nw6+i6XL3jXGAIHEruyKShTM/HRKOT +XHjetY378hIN7Se0ywzPcWHd3uV8/R00ZF2XVlyWz4Whiv0VP2Wk0fqS/MIS +kgs7xB2+y16TxphPdd+d33FB72BDQuFtafxYviX8v/dcWPppjST9oTSWcgZ8 +Dn3iQl0NH6i+lsbBmZMXsr9yQdK2LlV7QRr9lv0bWTpO7Z+grG9hK4MiMkUt +q/hJMP/xJzZ8QAZnaf1xZmtJOGCVoXZvRAbPey5576lOQvVFzT6xKRl0a07r +i9Ikgebiw6wTlEXwnfk3R4eEkVsPpvnWyWKtCL3sJpOE9MTUqNwYWbQ1swjc +Yk3C4zdrlUcSZNFp7fUaQ1sSZvVbXpqmyKKjfWIezZ6EwK+TuoMFsjhgULj1 ++WYSjO08xte1yGLImbpQKVcSPkmoht9fIYcxs4PBiwNJkNrTKC8lJYcXrrdP +kEEk2D12bQ8m5FBgaOVqr2ASamNTNFbqyaFLwYajV3aTcOr92LCbqxwKZU2p +yO4jQfdyQ9CPEjlUL7wWtSOOhASWk6+MkTwei1sI9sskwcqr8KfhRnl0Oj2n +2pxFgnD8t6Nb7eSxJl6QXyGHhAstxypSfeTx6vCE6pM8Em7Z1H9bclIeB8PZ +EhNFJIy5KkX/ei2PgfFeRucuk3Azdq+AyKA8dmf4uXGvkHDkwp2cdaPyKDR0 +v+JZJQnLP2xvCOZVQGSVtfJUk7A66DTPBzUFNJgUsVhPkuD1z+SptoMK+I3V +1vS1jgSV7I1yw8cUMLeAubi9/v/nf+6qQKoCWmmnxVc3kBA7u/b5xjIF1GM5 +rw68Q0LmUS+JujYFVPANM7/URMKO8sqKnh4FPBOWErjnHgmMR78NJz4ooOyM +/WPdZhI4S9PdtSYVsDFGz6G6hYS284+KyuUVMffI54MxD6n4XhPXaVmtiEvq +k67RH5Hg3u3b/EFHERs923QeUR6izQ7KWipicsUIv0ArCXzF2mpp4YqY4v1K +xf0pCU/uHW6oiVHEtD9SVZ8ppw48sWtPVMQD/A7xYW0kKKwO2COYrYgvHLdJ +RrZT+VCde/1II7WfDVPM8RmVr6865kYfK+L7R74DNyg78Cze5P1CEfMjQxKl +n5Pg7xz+Gj4r4t61G7RfUQ4/WMrgjCqi8vVS1OkkIaasN5T4rYg9QSuVkilb +HqTHxfMTqOKi76vxgoSnK2+XGi0lcG9B8t0DlDeXbXs8JkzgrJbceAtlj/YU +EV8agQmW+NrhJQkffFUNpOUJjPKITD1HOXCqyb2TTmBcnyrRTnmv4lTpBnUC +j4j7t5l2kTB5LfXxjBaB7R1pw5GUY63Uv3P1CWwbyxgspczz7oFICJN6nhho +6KR8LMLHgGFK4EHN4D2zlJcu+evet5HA/tL/Fil3U+eXlxmXtolAI6PcfVaU +JbS0y2zsCLy5yulBMOW8liePeZ0IZMl9mz5BWdE14Hv9VgKfiWxcXkq5bGRB +ZJ87gUJ7dfgaKKsl5BmoexMYcyjz3TPKNRLrPQb8CWSY2V74SFn/yrO4/F0E +fs7UxjHK9aYhZVvCCOxdpvzkL2V4ubh1WSSBXTz8Jot7SLgfVPS9JZrABxnX +0oUoW88yRQ8dJFCtclX3MsodqV0G+vEE/jM8t7CUsovKHo+RJALjGzwlBCi/ +rhOKLztJ4HcrMUkeyl4OZWU7zhJYfISXb4rab/CTaat4OoHyQqveDVEO3v/6 +e1s2gX9d6OW9lEeXRYkeu0Cg/Vm5HQ8o7ysWNmRfpP5v8RBvDeXf+pc9JssJ +PKAXlpdJ+UirWfzVK9T6NWlKByjzefWXBdQQeMVoY5Eb5eSfMa3y1wm0rQkQ +NqQsfEJstPsWgbqcrxEilGkcK0PLZgLHQm9I36HiVWA+4DH/kMDqJX3eZykz +Xh+Or31K4K5h4cIdlDV5r7WqdlP5Zea/ZIzKFzLLfrT/NYFTvr66NygbqQ+J +ZvcTOC6l6b6f8kYX+R0CQ1Q+HfhZ/JPKx0dDN+MbRwj0T3x+r5Ky3WHn8v3j +BN5/a/7Jl/L2ihOjX/8Q+JDvnsoDKt93/x6Pf7yCjg9ufuwMourDOCJQ8oso +HfU+e//koSw43FfJR6OjlLNyZhZVX+VvWnpMGXT85hkTeLODhP67mRo3DOj4 +YdbO4xlVr1WGS5tfmNAxCqY4dpRjOUe2jyEdK6dH0x5S9S1ZEpSobktHh5lB +Hs4TEhyPMXsvetOxL417ye0xVe/zV8Mad9Lxi09hUgPVP0aiGXzvgunIzFaY +lqacvGvZOloUHcdxeXnbAxKabN8dPZtMx3fL9KyFqP6kK5qgdZBLR+sRdt+H +21T9pEzez6ml48YitTvLKXfwhbjXNtDxx7E3tuup/hg66Xxs/AEdlV//ijhE +9dOyXuU3QX10FNcUFRi4QT1v0ePjLnwM3DtllyxK9eNBKbZcpCADrSqyngpd +peKTyuWeW8HAWaMrz+eo/u2YmPf2iRQDNRhtKm+pfp8csFt3gwYDjS5FKEWW +kzCjvqpfcysDLS0jryy+QMJUgUyCnjsD38RfSuyg5sfEShVlpjcDHadrNmfm +Uvn6ixliHsxAd1rNS+lsav41+E+5H2bgidg/+fPnqf5pe1M4uZyBm4hNu41O +UPUd6gWfJhnotivnQ/QeErLf7fr09Q8D1RQtVn8KIyHDcd+x7wsM9LvSm2pD +zcOzeslPfwspYf7BIy9EqXmZ+Je7faWCEm7cH2qU4EedTwr/XpalElb5Nnf3 +uJDAqqwqzspSwvdpVpf3GJLwhqgssshXwpfcc4dK11PxzrpcOFGkhPd0Nv3t +0qPmXULFBefLShhl/31BW5uKj2txjvBtJXSIibRqX0PCWv6M1OMflbBuyfbh +bGnqvL0PxkdrKOPmtHz6kRkujIva+GxrVkaNaMG2Lur+07ub8TzkkTL6NufH +23C40PTwD8S1KaNltnfPnavUfS62UvFSjzJOhwrvLrjEBe1Py9/PDCtj7oRm +OBZyIZz7zLNATAV5j4WAFHX/Gnbc6jG4UwXdzPW4Yp5cGDztsy1SQBUbtHXN +y+c5YP1jv/Vng9X49c7Yu6XGHBjxF9x3PW4N0ph3by3OrabeJ6R4TzSvxXvr +ojReX6wC0XbVs5wfavhrOKr4ZO0VkEuu2WxgoIE58fknlmdeghx15iqxIE28 +GbE+gTezAp7IbFj/6/w6nC8VXatVVgbGcs2pWj1aWLh2C09oVgkI85VE+SZq +48eceF/+u8WgkKDIclPVwUJBg8aA6gIQUtlR6/xIB6v/XW5xWjMP1rGla/Z7 +6qLSoHByNyMbIvtFW2x49HBU2MO/nZYBP36d3mqdo4dZCwpMp8TzsEnrYZ61 +pj4Os4/KGAefhbu/TP5Od+ijqcAP07iRkxCuodvXGbAeu/b9aVbTOw7s0Z1d +bkIG2Ln0ggt/WSJYKNPsV5QY4HS7iAzzQBysiT8V02xoiIVqdd+iE2JBLYDZ +qNJniAJ3z9qOvvkHAu7uSroeYYRd2XSHZtVIGA0b3m8RZYTliSMl36UiIUZ+ +d2hPtBEarElQUhKKhFOH9jj/PmiEgt2c9KpvEcAxjiZYx43QUG7yohE3AmZr +j95uyTNC89zFAjqmEZBWUzjxosUI/xTHVcR574XG4q6d4xJMPP3p+MWZQ2Hw +wY7uHU1jYnVAHT1lZxjwzIS5/ZVholfJjVeadmGw0UnAgZ9goqadZ1OFbBg8 +XGRsKK3GxLdJCkkBDbuhza9IaIMpE4PeMfqE50OhTzmkOjWQiRdNvrh1nguB +iUsL01o3mbhaT12QMRAEX7ZZFp+sYyJp6JxGex4EvYvPWA00MNE+sGq13J0g +aPCRyc1qYqJWuqKrTXYQJNLWG8+1MvFDftSKjXZBsCo55NCTt0x0N5tsyLkV +CBpB3TwBvMbIyohnXMsLAH+VSqE8e2PUlyotYRz1h9gHXiGqm41RW+Tmz/YI +f0gNEH1KOhujgGx/4XEff7hdfuD00+3G+FYpZVjR1B/EVa1Wzvkao8960ZDx +GT94qPpZ3CfaGBc+2vwnGOUHamsUCdUiYyxcLpDUGeEL42rpBuSYMZZKttkQ +yt7Q24YWYr+M8ezP5XdPCXlDU/jolqhJav3OYhGhH15wlrSOMPhjjKnbXdZu +qPcCNWOeqno+E9T95+/jAicv8LMOo7dImqBNYrn1/FFP6AratLyLZYItvxY7 +CU17wK2yvx8nk02QIZC+s1HMDQzMoqZtUkwwf36NsP68K9z4OLK8+IwJqvF8 +WFE35AqkQr+hTZoJxty9+OXXHVeoymk6U5hvgoNZfO/Vg12h+PQx5qZqEyy5 +E7HkQvN2OBm18nzOSxNUPZQ9YZCwDdzNldBEgYWVCUrS+uouMNclKNxCsPDM +wMOMUSkXKA4YfWOjxEJiaFV43WIX+HK8br/7GhaGFfctje/fApGtjjUHdFko +/z3g32dpW+CUwyGFW5YsfJng5BQ+7wz1rt2z+ntYOH+5vt3toxPIhp2oW9fE +wr8haxJ5/nWEswuB61OaWbj3WX3SklOOwJtmyf16n4Vdjq/MlMMcYbiW/3Jx +Kwv3afrdqNBzhHqepBzRlyzs4c3IfnDPAdwz4vdPfWbhH84TPs9P9pDTcGD9 +3WVsTJHrKErQtwOJpbu59tvZGE0nzA2lraHM7HDsmBsbPVZECU7MW4Hu4bNm +6TvYOHrnbXLroBU4jHG6e33Z+Aiyw+5yrOB4z+SM/242fuNbnd1ubQW/S+I2 +xiaw0XmTGG1v/CboM0l/WVHJxhNBWZ3sBQvY9U/ZBetqNiZwdRVGvlrAVPWN +gBEOGzun4TbnuQWIMnqndWrZ6NKfU3KoxAJsBeXl7jSx8ZKgt7j8Jgu43VWx +82U3GzW/f8vYm2EONsK3NKN7qfVjXP0PHjGH3k2tU7Q3bKyo9/PJ32UOE/Xf +kr0+sNGuHotk2OageVH76n/D1Pf7HDeIfzWD230bok9/Z6P/+aOZDzvNwEZ8 +C2iNsfFdbUjKmdtmEHjin86oSTYKLm+UdEszg4mm43lSv6nfn4g76XnYDBL/ +ZPvX/2Fj2UKua/QuM1ilf1nDc46NmyO6I0u3mEFhWP3kwgIbZc8sfjRoagb/ +A2TUgzs= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07357858611855464}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07357858611855464}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8le0bAHCR0FD2sZ9zjMrIDIdzXFcZ2SKVkR1CFHklDSOV0pA9MrLe +ijjnqRQqoqVQCkmlQeWVRBkp4/f8/jqf7+dzzn0/577W/dD99jgH8PLw8Ggu +4uH5/+dUf+t95ZQyU0FOuKulm5lpVyHtwIbeRJiT3GNztZEOKPHMj9abBua0 +0NCkRh2I3nzlFV9vCfxQ9fTZ1bgBREal0mZekUDSRkZMGp3g/W2HPROvmkHP +xHW+8q4vWCoPvxt/9QI0gp09D9+OgJlXhpljrz7BiwLNP+3XEqDF7N+yzpJf +EJAWYGtlkwZy7+u++GnMASO0e3LZ8zwQ3+19RcCMD/++4G+y97sIaTqWDQ5b +BXHKSqVpaFc5vM7RbhpftQJDz700iH11CVLK4p7xSotgvlHN7J3VVWCjHywq +oSSCO1vNj/fpVYHgfeetqzVF8IqY9McfUAVJAypvbDeIoGJoyiJ+1yo4xGj7 +khEsggXni2t6T1RBeDFtXrVeBK+59fYpfakCpwtcDVsPUfzLk/DBuOAqSGUM +nEwvEEMJ3qQdiyargaZ+I+l3hRief7zCJW2+GmSaj8d5csQwTIheJidYAwpj +a/9Z3SKGA910a3nZGlCx2+vTMCSGqnzNxzqwBvQWzxkM6Injr7vDT36cqgHH +KMlB3SfiaDpptkRsBQc2Lxvqz34pjnjz18weEQ44l9S9nn0rjoxh4mSrBAe2 +Pd/x7OEPcUyZWxsTqcABT43SencJCVx17sbpfC0OhA5qnU/0kUDW/WQdGycO +nHCxNn0xJYFfEztqJdM4IHO9Q4Z3kSQubX6o5pHFgWoxl2mdZZK4P945PT+P +Az0vvDjnFSXRwroQV5VyQNkpiuFkJYk7TtUuar3GgWb7oiXPcyUx93ft8/1d +HJiznOxoZ0mhnLHRmceiXEitiK2cs5TCXCWdyVOSXFBewpOs6SSF79KLraxl +uGD3YOmGMwFSuE1anVtH50KeGXHN7qwUpqdgUrA2F4zQNvvpeymU9Fgvym/P +hX3Mi96tiTQ8IPZAQf0oF2yKhSdsT9Nw6+i6XL3jXGAIHEruyKShTM/HRKOT +XHjetY378hIN7Se0ywzPcWHd3uV8/R00ZF2XVlyWz4Whiv0VP2Wk0fqS/MIS +kgs7xB2+y16TxphPdd+d33FB72BDQuFtafxYviX8v/dcWPppjST9oTSWcgZ8 +Dn3iQl0NH6i+lsbBmZMXsr9yQdK2LlV7QRr9lv0bWTpO7Z+grG9hK4MiMkUt +q/hJMP/xJzZ8QAZnaf1xZmtJOGCVoXZvRAbPey5576lOQvVFzT6xKRl0a07r +i9Ikgebiw6wTlEXwnfk3R4eEkVsPpvnWyWKtCL3sJpOE9MTUqNwYWbQ1swjc +Yk3C4zdrlUcSZNFp7fUaQ1sSZvVbXpqmyKKjfWIezZ6EwK+TuoMFsjhgULj1 ++WYSjO08xte1yGLImbpQKVcSPkmoht9fIYcxs4PBiwNJkNrTKC8lJYcXrrdP +kEEk2D12bQ8m5FBgaOVqr2ASamNTNFbqyaFLwYajV3aTcOr92LCbqxwKZU2p +yO4jQfdyQ9CPEjlUL7wWtSOOhASWk6+MkTwei1sI9sskwcqr8KfhRnl0Oj2n +2pxFgnD8t6Nb7eSxJl6QXyGHhAstxypSfeTx6vCE6pM8Em7Z1H9bclIeB8PZ +EhNFJIy5KkX/ei2PgfFeRucuk3Azdq+AyKA8dmf4uXGvkHDkwp2cdaPyKDR0 +v+JZJQnLP2xvCOZVQGSVtfJUk7A66DTPBzUFNJgUsVhPkuD1z+SptoMK+I3V +1vS1jgSV7I1yw8cUMLeAubi9/v/nf+6qQKoCWmmnxVc3kBA7u/b5xjIF1GM5 +rw68Q0LmUS+JujYFVPANM7/URMKO8sqKnh4FPBOWErjnHgmMR78NJz4ooOyM +/WPdZhI4S9PdtSYVsDFGz6G6hYS284+KyuUVMffI54MxD6n4XhPXaVmtiEvq +k67RH5Hg3u3b/EFHERs923QeUR6izQ7KWipicsUIv0ArCXzF2mpp4YqY4v1K +xf0pCU/uHW6oiVHEtD9SVZ8ppw48sWtPVMQD/A7xYW0kKKwO2COYrYgvHLdJ +RrZT+VCde/1II7WfDVPM8RmVr6865kYfK+L7R74DNyg78Cze5P1CEfMjQxKl +n5Pg7xz+Gj4r4t61G7RfUQ4/WMrgjCqi8vVS1OkkIaasN5T4rYg9QSuVkilb +HqTHxfMTqOKi76vxgoSnK2+XGi0lcG9B8t0DlDeXbXs8JkzgrJbceAtlj/YU +EV8agQmW+NrhJQkffFUNpOUJjPKITD1HOXCqyb2TTmBcnyrRTnmv4lTpBnUC +j4j7t5l2kTB5LfXxjBaB7R1pw5GUY63Uv3P1CWwbyxgspczz7oFICJN6nhho +6KR8LMLHgGFK4EHN4D2zlJcu+evet5HA/tL/Fil3U+eXlxmXtolAI6PcfVaU +JbS0y2zsCLy5yulBMOW8liePeZ0IZMl9mz5BWdE14Hv9VgKfiWxcXkq5bGRB +ZJ87gUJ7dfgaKKsl5BmoexMYcyjz3TPKNRLrPQb8CWSY2V74SFn/yrO4/F0E +fs7UxjHK9aYhZVvCCOxdpvzkL2V4ubh1WSSBXTz8Jot7SLgfVPS9JZrABxnX +0oUoW88yRQ8dJFCtclX3MsodqV0G+vEE/jM8t7CUsovKHo+RJALjGzwlBCi/ +rhOKLztJ4HcrMUkeyl4OZWU7zhJYfISXb4rab/CTaat4OoHyQqveDVEO3v/6 +e1s2gX9d6OW9lEeXRYkeu0Cg/Vm5HQ8o7ysWNmRfpP5v8RBvDeXf+pc9JssJ +PKAXlpdJ+UirWfzVK9T6NWlKByjzefWXBdQQeMVoY5Eb5eSfMa3y1wm0rQkQ +NqQsfEJstPsWgbqcrxEilGkcK0PLZgLHQm9I36HiVWA+4DH/kMDqJX3eZykz +Xh+Or31K4K5h4cIdlDV5r7WqdlP5Zea/ZIzKFzLLfrT/NYFTvr66NygbqQ+J +ZvcTOC6l6b6f8kYX+R0CQ1Q+HfhZ/JPKx0dDN+MbRwj0T3x+r5Ky3WHn8v3j +BN5/a/7Jl/L2ihOjX/8Q+JDvnsoDKt93/x6Pf7yCjg9ufuwMourDOCJQ8oso +HfU+e//koSw43FfJR6OjlLNyZhZVX+VvWnpMGXT85hkTeLODhP67mRo3DOj4 +YdbO4xlVr1WGS5tfmNAxCqY4dpRjOUe2jyEdK6dH0x5S9S1ZEpSobktHh5lB +Hs4TEhyPMXsvetOxL417ye0xVe/zV8Mad9Lxi09hUgPVP0aiGXzvgunIzFaY +lqacvGvZOloUHcdxeXnbAxKabN8dPZtMx3fL9KyFqP6kK5qgdZBLR+sRdt+H +21T9pEzez6ml48YitTvLKXfwhbjXNtDxx7E3tuup/hg66Xxs/AEdlV//ijhE +9dOyXuU3QX10FNcUFRi4QT1v0ePjLnwM3DtllyxK9eNBKbZcpCADrSqyngpd +peKTyuWeW8HAWaMrz+eo/u2YmPf2iRQDNRhtKm+pfp8csFt3gwYDjS5FKEWW +kzCjvqpfcysDLS0jryy+QMJUgUyCnjsD38RfSuyg5sfEShVlpjcDHadrNmfm +Uvn6ixliHsxAd1rNS+lsav41+E+5H2bgidg/+fPnqf5pe1M4uZyBm4hNu41O +UPUd6gWfJhnotivnQ/QeErLf7fr09Q8D1RQtVn8KIyHDcd+x7wsM9LvSm2pD +zcOzeslPfwspYf7BIy9EqXmZ+Je7faWCEm7cH2qU4EedTwr/XpalElb5Nnf3 +uJDAqqwqzspSwvdpVpf3GJLwhqgssshXwpfcc4dK11PxzrpcOFGkhPd0Nv3t +0qPmXULFBefLShhl/31BW5uKj2txjvBtJXSIibRqX0PCWv6M1OMflbBuyfbh +bGnqvL0PxkdrKOPmtHz6kRkujIva+GxrVkaNaMG2Lur+07ub8TzkkTL6NufH +23C40PTwD8S1KaNltnfPnavUfS62UvFSjzJOhwrvLrjEBe1Py9/PDCtj7oRm +OBZyIZz7zLNATAV5j4WAFHX/Gnbc6jG4UwXdzPW4Yp5cGDztsy1SQBUbtHXN +y+c5YP1jv/Vng9X49c7Yu6XGHBjxF9x3PW4N0ph3by3OrabeJ6R4TzSvxXvr +ojReX6wC0XbVs5wfavhrOKr4ZO0VkEuu2WxgoIE58fknlmdeghx15iqxIE28 +GbE+gTezAp7IbFj/6/w6nC8VXatVVgbGcs2pWj1aWLh2C09oVgkI85VE+SZq +48eceF/+u8WgkKDIclPVwUJBg8aA6gIQUtlR6/xIB6v/XW5xWjMP1rGla/Z7 +6qLSoHByNyMbIvtFW2x49HBU2MO/nZYBP36d3mqdo4dZCwpMp8TzsEnrYZ61 +pj4Os4/KGAefhbu/TP5Od+ijqcAP07iRkxCuodvXGbAeu/b9aVbTOw7s0Z1d +bkIG2Ln0ggt/WSJYKNPsV5QY4HS7iAzzQBysiT8V02xoiIVqdd+iE2JBLYDZ +qNJniAJ3z9qOvvkHAu7uSroeYYRd2XSHZtVIGA0b3m8RZYTliSMl36UiIUZ+ +d2hPtBEarElQUhKKhFOH9jj/PmiEgt2c9KpvEcAxjiZYx43QUG7yohE3AmZr +j95uyTNC89zFAjqmEZBWUzjxosUI/xTHVcR574XG4q6d4xJMPP3p+MWZQ2Hw +wY7uHU1jYnVAHT1lZxjwzIS5/ZVholfJjVeadmGw0UnAgZ9goqadZ1OFbBg8 +XGRsKK3GxLdJCkkBDbuhza9IaIMpE4PeMfqE50OhTzmkOjWQiRdNvrh1nguB +iUsL01o3mbhaT12QMRAEX7ZZFp+sYyJp6JxGex4EvYvPWA00MNE+sGq13J0g +aPCRyc1qYqJWuqKrTXYQJNLWG8+1MvFDftSKjXZBsCo55NCTt0x0N5tsyLkV +CBpB3TwBvMbIyohnXMsLAH+VSqE8e2PUlyotYRz1h9gHXiGqm41RW+Tmz/YI +f0gNEH1KOhujgGx/4XEff7hdfuD00+3G+FYpZVjR1B/EVa1Wzvkao8960ZDx +GT94qPpZ3CfaGBc+2vwnGOUHamsUCdUiYyxcLpDUGeEL42rpBuSYMZZKttkQ +yt7Q24YWYr+M8ezP5XdPCXlDU/jolqhJav3OYhGhH15wlrSOMPhjjKnbXdZu +qPcCNWOeqno+E9T95+/jAicv8LMOo7dImqBNYrn1/FFP6AratLyLZYItvxY7 +CU17wK2yvx8nk02QIZC+s1HMDQzMoqZtUkwwf36NsP68K9z4OLK8+IwJqvF8 +WFE35AqkQr+hTZoJxty9+OXXHVeoymk6U5hvgoNZfO/Vg12h+PQx5qZqEyy5 +E7HkQvN2OBm18nzOSxNUPZQ9YZCwDdzNldBEgYWVCUrS+uouMNclKNxCsPDM +wMOMUSkXKA4YfWOjxEJiaFV43WIX+HK8br/7GhaGFfctje/fApGtjjUHdFko +/z3g32dpW+CUwyGFW5YsfJng5BQ+7wz1rt2z+ntYOH+5vt3toxPIhp2oW9fE +wr8haxJ5/nWEswuB61OaWbj3WX3SklOOwJtmyf16n4Vdjq/MlMMcYbiW/3Jx +Kwv3afrdqNBzhHqepBzRlyzs4c3IfnDPAdwz4vdPfWbhH84TPs9P9pDTcGD9 +3WVsTJHrKErQtwOJpbu59tvZGE0nzA2lraHM7HDsmBsbPVZECU7MW4Hu4bNm +6TvYOHrnbXLroBU4jHG6e33Z+Aiyw+5yrOB4z+SM/242fuNbnd1ubQW/S+I2 +xiaw0XmTGG1v/CboM0l/WVHJxhNBWZ3sBQvY9U/ZBetqNiZwdRVGvlrAVPWN +gBEOGzun4TbnuQWIMnqndWrZ6NKfU3KoxAJsBeXl7jSx8ZKgt7j8Jgu43VWx +82U3GzW/f8vYm2EONsK3NKN7qfVjXP0PHjGH3k2tU7Q3bKyo9/PJ32UOE/Xf +kr0+sNGuHotk2OageVH76n/D1Pf7HDeIfzWD230bok9/Z6P/+aOZDzvNwEZ8 +C2iNsfFdbUjKmdtmEHjin86oSTYKLm+UdEszg4mm43lSv6nfn4g76XnYDBL/ +ZPvX/2Fj2UKua/QuM1ilf1nDc46NmyO6I0u3mEFhWP3kwgIbZc8sfjRoagb/ +A2TUgzs= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07357858611855464}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07357858611855464}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994261110541142*^9}, + CellLabel-> + "Out[139]=",ExpressionUUID->"931f56e5-4c92-4ebb-aa31-13d5ad750e8a"] +}, Open ]], Cell[CellGroupData[{ @@ -13530,66 +15249,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[308]:=",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], + "In[140]:=",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.611115182999938`*^-175\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 308, 309, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133920579224*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.641593860673703`*^-157\\\", \ +RowBox[{\\\"552513857212233842570175958778312308519\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"78\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3361543354777600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 73, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133920579224*^9, 3.9942611105775023`*^9}, CellLabel-> "During evaluation of \ -In[308]:=",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], +In[140]:=",ExpressionUUID->"fad7c9bf-3ce6-4157-afa3-13d6d0c6398f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.5007447195984937`*^-178\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 308, 310, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392058022385`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.55422793193027`*^-159\\\", \ +RowBox[{\\\"192330073695578600598678251250730514595\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"82\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1532417980825600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 74, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133920579224*^9, 3.994261110585952*^9}, CellLabel-> "During evaluation of \ -In[308]:=",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], +In[140]:=",ExpressionUUID->"2b1e9e0c-56ab-4914-968c-118daac3c4f1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1145242877114216`*^-181\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 308, 311, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339205811241*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.161152644900282`*^-162\\\", \ +RowBox[{\\\"692388265304082962155241704502629852543\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"85\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6704730972160000000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 75, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133920579224*^9, 3.994261110593378*^9}, CellLabel-> "During evaluation of \ -In[308]:=",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], +In[140]:=",ExpressionUUID->"6cacf530-d3c2-4f9f-9001-a0c91466f784"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 308, 312, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392058197193`*^9}, +during this calculation.\"", 2, 140, 76, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133920579224*^9, 3.9942611106006823`*^9}, CellLabel-> "During evaluation of \ -In[308]:=",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], +In[140]:=",ExpressionUUID->"ebdad93d-a7c0-4e63-ad45-cb08ed94d1a0"], -Cell[BoxData["9.33220071900515`"], "Output", - CellChangeTimes->{3.9913392124888554`*^9}, +Cell[BoxData["9.97903971565869`"], "Output", + CellChangeTimes->{3.9913392124888554`*^9, 3.994261147840466*^9}, CellLabel-> - "Out[308]=",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] + "Out[140]=",ExpressionUUID->"58f8f0a9-a4a5-4e43-a991-94b352154346"] }, Open ]], Cell[CellGroupData[{ @@ -13656,68 +15382,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849547748472*^9, - 3.9918495528702526`*^9}},ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-\ -0895c02ffd8f"], + CellChangeTimes->{{3.991849547748472*^9, 3.9918495528702526`*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 309, 313, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392125258827`*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.775813316939747`*^-203\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 77, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392125258827`*^9, 3.994261147869054*^9}, CellLabel-> "During evaluation of \ -In[309]:=",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], +In[141]:=",ExpressionUUID->"a2699a1f-412f-47b7-ba8a-542a29109d71"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 309, - 314, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339212535879*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.1698972577965456`*^-207\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 78, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392125258827`*^9, 3.99426114787407*^9}, CellLabel-> "During evaluation of \ -In[309]:=",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], +In[141]:=",ExpressionUUID->"5af18269-5c6d-4fae-ba42-15bf08c3be8b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 309, - 315, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392125438805`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0278683010010253`*^-211\\\", \ +RowBox[{\\\"668859810497440244092067196564426051030\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3165635789279094374400000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 79, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392125258827`*^9, 3.9942611478791437`*^9}, CellLabel-> "During evaluation of \ -In[309]:=",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], +In[141]:=",ExpressionUUID->"726c2bd3-c504-4d20-9592-9b27fc7da532"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 309, 316, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392125518837`*^9}, +during this calculation.\"", 2, 141, 80, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392125258827`*^9, 3.994261147884006*^9}, CellLabel-> "During evaluation of \ -In[309]:=",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], +In[141]:=",ExpressionUUID->"a12d6f4a-fb8e-47a1-bd30-c7d585c7b37f"], -Cell[BoxData["0.41157157699018565`"], "Output", - CellChangeTimes->{3.9913392196090164`*^9}, +Cell[BoxData["0.8495748700346136`"], "Output", + CellChangeTimes->{3.9913392196090164`*^9, 3.9942611529173193`*^9}, CellLabel-> - "Out[309]=",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] + "Out[141]=",ExpressionUUID->"aafed66b-6c31-436d-8ebc-46674058be53"] }, Open ]], Cell[CellGroupData[{ @@ -13738,8 +15471,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -13784,68 +15516,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918495568340263`*^9, - 3.991849559359928*^9}},ExpressionUUID->"57976ffc-56f1-604b-8519-\ -bead95265db8"], + CellChangeTimes->{{3.9918495568340263`*^9, 3.991849559359928*^9}}, + CellLabel-> + "In[142]:=",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 310, 317, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392196440163`*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.775813316939747`*^-203\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 81, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392196440163`*^9, 3.9942611529514313`*^9}, CellLabel-> "During evaluation of \ -In[310]:=",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], +In[142]:=",ExpressionUUID->"551d6df1-6777-4ba0-a7ee-c02c517b69fd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 310, - 318, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392196535416`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.1698972577965456`*^-207\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 82, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392196440163`*^9, 3.9942611529565887`*^9}, CellLabel-> "During evaluation of \ -In[310]:=",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], +In[142]:=",ExpressionUUID->"6f3b0e7d-873e-4c03-b616-e2ff2f37856f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 310, - 319, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339219661541*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0278683010010253`*^-211\\\", \ +RowBox[{\\\"668859810497440244092067196564426051030\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3165635789279094374400000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 83, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392196440163`*^9, 3.9942611529616423`*^9}, CellLabel-> "During evaluation of \ -In[310]:=",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], +In[142]:=",ExpressionUUID->"185a8bc9-d861-4d8d-95c0-a0835331cb7a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 310, 320, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339219670542*^9}, +during this calculation.\"", 2, 142, 84, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392196440163`*^9, 3.994261152967166*^9}, CellLabel-> "During evaluation of \ -In[310]:=",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], +In[142]:=",ExpressionUUID->"f5e722b8-4c3d-4d26-beeb-738b43b1e811"], -Cell[BoxData["3.215201591157595`"], "Output", - CellChangeTimes->{3.9913392268711624`*^9}, +Cell[BoxData["29.165270865132907`"], "Output", + CellChangeTimes->{3.9913392268711624`*^9, 3.994261157891638*^9}, CellLabel-> - "Out[310]=",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] + "Out[142]=",ExpressionUUID->"bd855887-d318-4c72-9796-3dc0c8e49129"] }, Open ]], Cell[CellGroupData[{ @@ -13866,8 +15605,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -13912,68 +15650,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849563755764*^9, - 3.991849566543682*^9}},ExpressionUUID->"cfa37210-3ae7-3f49-b290-\ -f19508c6d2f1"], + CellChangeTimes->{{3.991849563755764*^9, 3.991849566543682*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 311, 321, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339226907137*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.775813316939747`*^-203\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 85, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339226907137*^9, 3.994261157922007*^9}, CellLabel-> "During evaluation of \ -In[311]:=",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], +In[143]:=",ExpressionUUID->"956c172d-f69c-4c4d-aff8-0929f59520c4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 311, - 322, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339226917137*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.1698972577965456`*^-207\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 86, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339226907137*^9, 3.99426115792835*^9}, CellLabel-> "During evaluation of \ -In[311]:=",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], +In[143]:=",ExpressionUUID->"44521301-6fcb-471d-ac33-4d7e46906f8f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 311, - 323, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392269251385`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0278683010010253`*^-211\\\", \ +RowBox[{\\\"668859810497440244092067196564426051030\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3165635789279094374400000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 87, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339226907137*^9, 3.994261157934696*^9}, CellLabel-> "During evaluation of \ -In[311]:=",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], +In[143]:=",ExpressionUUID->"36481de8-7f67-4bbd-9a72-be3e98522069"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 311, 324, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392269341373`*^9}, +during this calculation.\"", 2, 143, 88, 31387657865329729966, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339226907137*^9, 3.99426115793958*^9}, CellLabel-> "During evaluation of \ -In[311]:=",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], +In[143]:=",ExpressionUUID->"4f9a5346-4ed3-43ca-941d-390512813b05"], -Cell[BoxData["16.94395627212904`"], "Output", - CellChangeTimes->{3.9913392304284153`*^9}, +Cell[BoxData["4.591571269069689`"], "Output", + CellChangeTimes->{3.9913392304284153`*^9, 3.994261160920916*^9}, CellLabel-> - "Out[311]=",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] + "Out[143]=",ExpressionUUID->"b3ffaf0c-1804-4437-ae27-30eb1d743e91"] }, Open ]], Cell[CellGroupData[{ @@ -13982,24 +15727,25 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991849569404436*^9, - 3.991849573855135*^9}},ExpressionUUID->"7457b456-6d32-5b44-9679-\ -346c5f5ac532"], - -Cell[BoxData["0.05576142449710889`"], "Output", - CellChangeTimes->{3.9913392304624157`*^9}, + CellChangeTimes->{{3.991849569404436*^9, 3.991849573855135*^9}}, CellLabel-> - "Out[312]=",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] + "In[144]:=",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], + +Cell[BoxData["0.07341553801260453`"], "Output", + CellChangeTimes->{3.9913392304624157`*^9, 3.994261160948422*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"917a6096-6151-41ee-8815-cd804cef237d"] }, Open ]], Cell[BoxData[ RowBox[{"NotebookSave", "[", "]"}]], "Input", - CellChangeTimes->{{3.994083697003388*^9, - 3.994083699059052*^9}},ExpressionUUID->"15fe0063-8d53-48a3-a28b-\ -6c80f458e893"] + CellChangeTimes->{{3.994083697003388*^9, 3.994083699059052*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"15fe0063-8d53-48a3-a28b-6c80f458e893"] }, -WindowSize->{714, 435}, -WindowMargins->{{Automatic, 3}, {444, 15}}, +Evaluator->"Local", +WindowSize->{714, 876}, +WindowMargins->{{-3, Automatic}, {3, Automatic}}, CellContext->Notebook, FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", @@ -14017,613 +15763,640 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 330, 7, 36, "Input",ExpressionUUID->"0078b1a8-3f2c-4497-9c52-25d178044aa5"], -Cell[909, 31, 208, 4, 41, "Output",ExpressionUUID->"fdea815f-0b7d-48d6-b4c5-454fd9e9abe9"] +Cell[576, 22, 347, 6, 36, "Input",ExpressionUUID->"0078b1a8-3f2c-4497-9c52-25d178044aa5"], +Cell[926, 30, 255, 4, 41, "Output",ExpressionUUID->"97114188-0761-457e-8130-14b8f5c2ddb6"] }, Open ]], Cell[CellGroupData[{ -Cell[1154, 40, 253, 5, 36, "Input",ExpressionUUID->"a9334120-83c8-487e-937e-b71399944f71"], -Cell[1410, 47, 208, 4, 41, "Output",ExpressionUUID->"75bf04e3-1efd-4e1a-a8bc-1733941a8d9a"] +Cell[1218, 39, 248, 4, 36, "Input",ExpressionUUID->"a9334120-83c8-487e-937e-b71399944f71"], +Cell[1469, 45, 255, 4, 41, "Output",ExpressionUUID->"9897628f-fb22-43ec-8ec2-1fe962e0f23a"] }, Open ]], Cell[CellGroupData[{ -Cell[1655, 56, 226, 5, 36, "Input",ExpressionUUID->"521debca-02aa-4e6f-b778-143a7373f897"], -Cell[1884, 63, 207, 4, 41, "Output",ExpressionUUID->"3a3747e5-8a45-4f53-921c-0f4875f1a833"] +Cell[1761, 54, 221, 4, 36, "Input",ExpressionUUID->"521debca-02aa-4e6f-b778-143a7373f897"], +Cell[1985, 60, 249, 4, 41, "Output",ExpressionUUID->"7a127f07-df5f-484a-bb09-955ff5466ef9"] }, Open ]], Cell[CellGroupData[{ -Cell[2128, 72, 180, 4, 36, "Input",ExpressionUUID->"be7b1703-772f-4229-a7b1-4d0c54ce94ef"], -Cell[2311, 78, 207, 4, 41, "Output",ExpressionUUID->"10ebbc28-5dc8-4772-8b90-e72bbae78510"] +Cell[2271, 69, 175, 3, 36, "Input",ExpressionUUID->"be7b1703-772f-4229-a7b1-4d0c54ce94ef"], +Cell[2449, 74, 252, 4, 41, "Output",ExpressionUUID->"68a5fd6c-e72f-46ea-941c-ef8a90d30b83"] }, Open ]], Cell[CellGroupData[{ -Cell[2555, 87, 262, 8, 54, "Input",ExpressionUUID->"f1a895c8-4160-47f2-8a43-59625ca41a0f"], -Cell[2820, 97, 223, 4, 58, "Output",ExpressionUUID->"a2e55c08-86bc-436d-9c50-777bcaf60a17"] +Cell[2738, 83, 257, 7, 54, "Input",ExpressionUUID->"f1a895c8-4160-47f2-8a43-59625ca41a0f"], +Cell[2998, 92, 266, 4, 41, "Output",ExpressionUUID->"70b27afa-0d7b-4ded-8e0b-3be2ab689c5d"] }, Open ]], Cell[CellGroupData[{ -Cell[3080, 106, 136, 3, 51, "Input",ExpressionUUID->"a980436e-908f-40c9-845d-eb8cd657bd0d"], -Cell[3219, 111, 206, 4, 58, "Output",ExpressionUUID->"657b79af-1493-428c-ae40-a956c36e42c9"] +Cell[3301, 101, 131, 2, 36, "Input",ExpressionUUID->"a980436e-908f-40c9-845d-eb8cd657bd0d"], +Cell[3435, 105, 251, 4, 41, "Output",ExpressionUUID->"3808a02a-51b3-4724-9fac-2223ee8c17cd"] }, Open ]], Cell[CellGroupData[{ -Cell[3462, 120, 281, 7, 51, "Input",ExpressionUUID->"56c7dee1-9453-4883-abea-f120911216ab"], -Cell[3746, 129, 221, 4, 58, "Output",ExpressionUUID->"0951e39c-ba60-4988-88be-600cd4ce11ca"] +Cell[3723, 114, 276, 6, 36, "Input",ExpressionUUID->"56c7dee1-9453-4883-abea-f120911216ab"], +Cell[4002, 122, 264, 4, 41, "Output",ExpressionUUID->"d4c4b0f2-786c-44d4-8bd4-686bb08e3b1a"] }, Open ]], Cell[CellGroupData[{ -Cell[4004, 138, 262, 8, 51, "Input",ExpressionUUID->"4aa04189-5cd6-487e-a2bb-4e3f13b35124"], -Cell[4269, 148, 221, 4, 58, "Output",ExpressionUUID->"efe0ef06-9189-415d-a039-5c4146568ddd"] +Cell[4303, 131, 257, 7, 36, "Input",ExpressionUUID->"4aa04189-5cd6-487e-a2bb-4e3f13b35124"], +Cell[4563, 140, 264, 4, 41, "Output",ExpressionUUID->"cb3f2a12-89f3-4cc3-8361-587f5ccc75fd"] }, Open ]], Cell[CellGroupData[{ -Cell[4527, 157, 229, 5, 51, "Input",ExpressionUUID->"69bafadd-8e2f-4831-8eb6-540d5e56e48b"], -Cell[4759, 164, 186, 3, 58, "Output",ExpressionUUID->"ff51d55c-2907-4526-a6bd-e8589961370d"] +Cell[4864, 149, 224, 4, 36, "Input",ExpressionUUID->"69bafadd-8e2f-4831-8eb6-540d5e56e48b"], +Cell[5091, 155, 229, 3, 41, "Output",ExpressionUUID->"caba4d17-8a63-4e89-ac7a-438494942838"] }, Open ]], Cell[CellGroupData[{ -Cell[4982, 172, 232, 5, 51, "Input",ExpressionUUID->"39ae1ee7-3cea-484e-9675-bee0306ab848"], -Cell[5217, 179, 184, 3, 58, "Output",ExpressionUUID->"f2efe951-d2fe-409a-9f4b-980a37d3fd8b"] +Cell[5357, 163, 228, 4, 36, "Input",ExpressionUUID->"39ae1ee7-3cea-484e-9675-bee0306ab848"], +Cell[5588, 169, 230, 3, 41, "Output",ExpressionUUID->"c5397843-fdf3-410c-925e-e739aba87e10"] }, Open ]], Cell[CellGroupData[{ -Cell[5438, 187, 133, 3, 51, "Input",ExpressionUUID->"7cd62bc4-4b86-4bad-a731-6e6fb8c154b3"], -Cell[5574, 192, 204, 4, 58, "Output",ExpressionUUID->"e78b1686-7a40-4129-a221-66af4aa81e08"] +Cell[5855, 177, 129, 2, 36, "Input",ExpressionUUID->"7cd62bc4-4b86-4bad-a731-6e6fb8c154b3"], +Cell[5987, 181, 247, 4, 41, "Output",ExpressionUUID->"7c7cb694-6e9e-4e56-9bac-73a6a9f69c35"] }, Open ]], Cell[CellGroupData[{ -Cell[5815, 201, 133, 3, 51, "Input",ExpressionUUID->"6977bb7d-b00f-49e9-8144-c17500ab0c11"], -Cell[5951, 206, 204, 4, 58, "Output",ExpressionUUID->"ff38b6b2-4061-4c2c-abaa-e0623e1ba0cb"] +Cell[6271, 190, 129, 2, 36, "Input",ExpressionUUID->"6977bb7d-b00f-49e9-8144-c17500ab0c11"], +Cell[6403, 194, 248, 4, 41, "Output",ExpressionUUID->"35413ea1-2ec5-4b7a-83fa-e574553d14d0"] }, Open ]], Cell[CellGroupData[{ -Cell[6192, 215, 561, 20, 140, "Input",ExpressionUUID->"a7c7146a-ac9a-43ce-b710-2be58578dddb"], -Cell[6756, 237, 222, 4, 58, "Output",ExpressionUUID->"cab36dab-fbee-4b85-bca7-5d67476a0f0c"] +Cell[6688, 203, 557, 19, 100, "Input",ExpressionUUID->"a7c7146a-ac9a-43ce-b710-2be58578dddb"], +Cell[7248, 224, 268, 4, 41, "Output",ExpressionUUID->"5b5d282b-3541-4e7a-bad6-31dd61d6b52f"] }, Open ]], Cell[CellGroupData[{ -Cell[7015, 246, 561, 20, 140, "Input",ExpressionUUID->"eb37ae58-be41-4bd0-9482-8465cb26ae94"], -Cell[7579, 268, 222, 4, 58, "Output",ExpressionUUID->"c8730907-aacc-44f8-97dc-4117b2a8cd53"] +Cell[7553, 233, 557, 19, 100, "Input",ExpressionUUID->"eb37ae58-be41-4bd0-9482-8465cb26ae94"], +Cell[8113, 254, 268, 4, 41, "Output",ExpressionUUID->"5adb995a-24bb-4b70-9347-19acb0c159ba"] }, Open ]], Cell[CellGroupData[{ -Cell[7838, 277, 1592, 51, 190, "Input",ExpressionUUID->"a80d0da3-5266-43d6-9b80-2fce8c3e6a70"], -Cell[9433, 330, 220, 4, 58, "Output",ExpressionUUID->"b93eeb02-ae63-4cd7-9727-e0887430638d"] +Cell[8418, 263, 1588, 50, 215, "Input",ExpressionUUID->"a80d0da3-5266-43d6-9b80-2fce8c3e6a70"], +Cell[10009, 315, 265, 4, 41, "Output",ExpressionUUID->"73f30d72-df83-457c-80c0-9d35ba2a4a36"] }, Open ]], Cell[CellGroupData[{ -Cell[9690, 339, 1426, 47, 190, "Input",ExpressionUUID->"9d5edeb2-e277-4edf-92a4-cff25394f50b"], -Cell[11119, 388, 240, 5, 58, "Output",ExpressionUUID->"de907f15-caba-4c00-a339-d5011ab9181b"] +Cell[10311, 324, 1422, 46, 215, "Input",ExpressionUUID->"9d5edeb2-e277-4edf-92a4-cff25394f50b"], +Cell[11736, 372, 283, 5, 41, "Output",ExpressionUUID->"f6f53cbf-f671-40e8-b175-94315a01a1fa"] }, Open ]], Cell[CellGroupData[{ -Cell[11396, 398, 1335, 45, 141, "Input",ExpressionUUID->"7eb6b972-158f-4c81-bc3b-1fd26d12632a"], -Cell[12734, 445, 239, 5, 58, "Output",ExpressionUUID->"bee247b5-8291-4f95-bbe9-a2b01cb9e472"] +Cell[12056, 382, 1422, 46, 215, "Input",ExpressionUUID->"7eb6b972-158f-4c81-bc3b-1fd26d12632a"], +Cell[13481, 430, 285, 5, 41, "Output",ExpressionUUID->"0cdee343-cba9-4c83-8166-e6178cdc6af0"] }, Open ]], Cell[CellGroupData[{ -Cell[13010, 455, 1592, 51, 190, "Input",ExpressionUUID->"aa9c36c2-ea8d-416f-8a2d-d140f7f6d788"], -Cell[14605, 508, 218, 4, 58, "Output",ExpressionUUID->"26bcfe06-89f8-4705-ab28-9b12ea97d539"] +Cell[13803, 440, 1588, 50, 215, "Input",ExpressionUUID->"aa9c36c2-ea8d-416f-8a2d-d140f7f6d788"], +Cell[15394, 492, 264, 4, 41, "Output",ExpressionUUID->"7ea1d380-0e26-44fb-905b-ae554b3300ac"] }, Open ]], Cell[CellGroupData[{ -Cell[14860, 517, 135, 3, 51, "Input",ExpressionUUID->"31c51e6c-6463-4db1-a431-f10e216a4c57"], -Cell[14998, 522, 206, 4, 58, "Output",ExpressionUUID->"046d23fd-7172-4465-9b44-01ffd49b8a67"] +Cell[15695, 501, 131, 2, 36, "Input",ExpressionUUID->"31c51e6c-6463-4db1-a431-f10e216a4c57"], +Cell[15829, 505, 254, 4, 41, "Output",ExpressionUUID->"79b2e9e6-3b8e-422a-bac6-866eb6b3030e"] }, Open ]], Cell[CellGroupData[{ -Cell[15241, 531, 137, 3, 51, "Input",ExpressionUUID->"debb51a0-f26c-4f97-81e8-ce91f3a48167"], -Cell[15381, 536, 205, 4, 58, "Output",ExpressionUUID->"76ec4112-c53d-4970-a8d3-071968802c7b"] +Cell[16120, 514, 133, 2, 36, "Input",ExpressionUUID->"debb51a0-f26c-4f97-81e8-ce91f3a48167"], +Cell[16256, 518, 251, 4, 41, "Output",ExpressionUUID->"76d00002-af4d-4972-8945-bf08c59d881d"] }, Open ]], Cell[CellGroupData[{ -Cell[15623, 545, 138, 3, 51, "Input",ExpressionUUID->"a6191bab-ea35-4d0c-8e92-4e5653fd9ab6"], -Cell[15764, 550, 206, 4, 58, "Output",ExpressionUUID->"ea3addf6-1200-482e-a572-5a4bf7f404d0"] +Cell[16544, 527, 134, 2, 36, "Input",ExpressionUUID->"a6191bab-ea35-4d0c-8e92-4e5653fd9ab6"], +Cell[16681, 531, 250, 4, 41, "Output",ExpressionUUID->"85461253-112c-4f39-ba51-ac8789c6e4ff"] }, Open ]], Cell[CellGroupData[{ -Cell[16007, 559, 223, 5, 51, "Input",ExpressionUUID->"eae176ea-c7f6-4d85-981d-ddaf0eee9fd1"], -Cell[16233, 566, 221, 5, 58, "Output",ExpressionUUID->"a9b27f7f-080b-445c-9550-79190e1b6247"] +Cell[16968, 540, 219, 4, 36, "Input",ExpressionUUID->"eae176ea-c7f6-4d85-981d-ddaf0eee9fd1"], +Cell[17190, 546, 265, 5, 41, "Output",ExpressionUUID->"a725b4b7-20fd-48ca-87b8-e18a1f49ffc5"] }, Open ]], Cell[CellGroupData[{ -Cell[16491, 576, 138, 3, 51, "Input",ExpressionUUID->"f876229a-3085-4608-a5b6-32a71bb5ec58"], -Cell[16632, 581, 210, 4, 58, "Output",ExpressionUUID->"662677eb-3521-4764-b7bf-7522c3d8cf44"] +Cell[17492, 556, 134, 2, 36, "Input",ExpressionUUID->"f876229a-3085-4608-a5b6-32a71bb5ec58"], +Cell[17629, 560, 256, 4, 41, "Output",ExpressionUUID->"7bb29d88-bc52-43c4-8e15-ef3515aa6762"] }, Open ]], Cell[CellGroupData[{ -Cell[16879, 590, 330, 6, 51, "Input",ExpressionUUID->"c2ca37ef-ff09-46ca-ab95-b03305b45e8f"], -Cell[17212, 598, 205, 4, 58, "Output",ExpressionUUID->"57c03cbe-83a3-479c-bf77-5ca39e407a99"] +Cell[17922, 569, 326, 5, 36, "Input",ExpressionUUID->"c2ca37ef-ff09-46ca-ab95-b03305b45e8f"], +Cell[18251, 576, 248, 4, 41, "Output",ExpressionUUID->"8a0bbcca-7ffe-45df-94d4-881f0e7ef79c"] }, Open ]], Cell[CellGroupData[{ -Cell[17454, 607, 301, 6, 51, "Input",ExpressionUUID->"99a34b8f-4521-4eef-8692-d2e1401b2a65"], -Cell[17758, 615, 205, 4, 58, "Output",ExpressionUUID->"70aefc7c-f628-4b5a-82dc-ca026ebac07d"] +Cell[18536, 585, 297, 5, 36, "Input",ExpressionUUID->"99a34b8f-4521-4eef-8692-d2e1401b2a65"], +Cell[18836, 592, 249, 4, 41, "Output",ExpressionUUID->"3bd414c7-e2b4-4ff8-8fa7-57e9c05cf355"] }, Open ]], Cell[CellGroupData[{ -Cell[18000, 624, 223, 5, 51, "Input",ExpressionUUID->"76d1051a-db56-42d5-abfe-58600b8b61e5"], -Cell[18226, 631, 203, 4, 58, "Output",ExpressionUUID->"40f14725-a48d-47ec-9d2b-ef32ec855bfe"] +Cell[19122, 601, 219, 4, 36, "Input",ExpressionUUID->"76d1051a-db56-42d5-abfe-58600b8b61e5"], +Cell[19344, 607, 247, 4, 41, "Output",ExpressionUUID->"ac753ce4-eddb-4fc7-88cb-ac1118e599ca"] }, Open ]], Cell[CellGroupData[{ -Cell[18466, 640, 354, 11, 74, "Input",ExpressionUUID->"65c3cf13-5bb1-408f-8545-4d76d8502ae1"], -Cell[18823, 653, 223, 4, 58, "Output",ExpressionUUID->"4dc1d140-1d2c-4860-8749-860b48c3e000"] +Cell[19628, 616, 350, 10, 54, "Input",ExpressionUUID->"65c3cf13-5bb1-408f-8545-4d76d8502ae1"], +Cell[19981, 628, 267, 4, 41, "Output",ExpressionUUID->"121a0c3c-142d-4267-8c0d-2bac418eee3e"] }, Open ]], Cell[CellGroupData[{ -Cell[19083, 662, 354, 11, 74, "Input",ExpressionUUID->"5fa975c8-1a63-41b1-b0ba-e05224487524"], -Cell[19440, 675, 238, 5, 58, "Output",ExpressionUUID->"e245803a-cac4-4995-a743-394da3c00771"] +Cell[20285, 637, 350, 10, 54, "Input",ExpressionUUID->"5fa975c8-1a63-41b1-b0ba-e05224487524"], +Cell[20638, 649, 284, 5, 41, "Output",ExpressionUUID->"0cc510ca-0576-45cd-a864-23a1a79a3adb"] }, Open ]], Cell[CellGroupData[{ -Cell[19715, 685, 998, 27, 142, "Input",ExpressionUUID->"36a0ca89-2ef9-483d-8ec5-f0531079a3a1"], -Cell[20716, 714, 223, 4, 58, "Output",ExpressionUUID->"f816973e-24d1-4d01-989b-ddd389a581b7"] +Cell[20959, 659, 994, 26, 105, "Input",ExpressionUUID->"36a0ca89-2ef9-483d-8ec5-f0531079a3a1"], +Cell[21956, 687, 267, 4, 41, "Output",ExpressionUUID->"d7eda404-3e9d-4465-a588-674b46d339af"] }, Open ]], Cell[CellGroupData[{ -Cell[20976, 723, 203, 4, 51, "Input",ExpressionUUID->"b3a5a3db-d575-4f65-b1c3-b667ff775b6b"], -Cell[21182, 729, 204, 4, 58, "Output",ExpressionUUID->"47b7b8d8-ffc6-4b39-a104-0e83858cba8c"] +Cell[22260, 696, 199, 3, 36, "Input",ExpressionUUID->"b3a5a3db-d575-4f65-b1c3-b667ff775b6b"], +Cell[22462, 701, 248, 4, 41, "Output",ExpressionUUID->"9bc35037-bf7c-493e-8cb2-69e3627a1e04"] }, Open ]], Cell[CellGroupData[{ -Cell[21423, 738, 303, 6, 51, "Input",ExpressionUUID->"406a39b3-f5b6-46a6-a7e7-773bb971f059"], -Cell[21729, 746, 176, 3, 58, "Output",ExpressionUUID->"9521f395-e3d2-4b78-92b2-48f9ae66f093"] +Cell[22747, 710, 299, 5, 36, "Input",ExpressionUUID->"406a39b3-f5b6-46a6-a7e7-773bb971f059"], +Cell[23049, 717, 222, 3, 41, "Output",ExpressionUUID->"c243285d-6193-4168-815a-83bfc3b325a4"] }, Open ]], -Cell[21920, 752, 177, 3, 51, "Input",ExpressionUUID->"1bd623c9-ec92-4b12-bb38-5b5a9ff31feb"], +Cell[23286, 723, 173, 2, 36, "Input",ExpressionUUID->"1bd623c9-ec92-4b12-bb38-5b5a9ff31feb"], Cell[CellGroupData[{ -Cell[22122, 759, 331, 6, 51, "Input",ExpressionUUID->"88066b2f-7a0c-4257-a80b-45d340112abb"], -Cell[22456, 767, 184, 3, 58, "Output",ExpressionUUID->"c71b4dfb-331d-4a8a-b4c8-83d9dcba9bbd"] +Cell[23484, 729, 327, 5, 36, "Input",ExpressionUUID->"88066b2f-7a0c-4257-a80b-45d340112abb"], +Cell[23814, 736, 230, 3, 41, "Output",ExpressionUUID->"6e8fd932-c7e6-451d-b93a-920290b27d24"] }, Open ]], -Cell[22655, 773, 177, 3, 51, "Input",ExpressionUUID->"bb882a7a-347c-4dec-84c7-81f1219925cc"], +Cell[24059, 742, 173, 2, 109, "Input",ExpressionUUID->"bb882a7a-347c-4dec-84c7-81f1219925cc"], Cell[CellGroupData[{ -Cell[22857, 780, 333, 6, 51, "Input",ExpressionUUID->"dd14a20c-d9b0-4443-b03e-54fd1436bd16"], -Cell[23193, 788, 183, 3, 58, "Output",ExpressionUUID->"fda3ce3e-137e-4ca5-988a-52ed6e2f71a8"] +Cell[24257, 748, 329, 5, 36, "Input",ExpressionUUID->"dd14a20c-d9b0-4443-b03e-54fd1436bd16"], +Cell[24589, 755, 229, 3, 41, "Output",ExpressionUUID->"6c74c316-bf83-452e-b4f4-98dc1a5cba32"] }, Open ]], -Cell[23391, 794, 177, 3, 51, "Input",ExpressionUUID->"2af23f7f-edc1-4758-91b8-33377a388b9a"], +Cell[24833, 761, 173, 2, 109, "Input",ExpressionUUID->"2af23f7f-edc1-4758-91b8-33377a388b9a"], Cell[CellGroupData[{ -Cell[23593, 801, 358, 6, 51, "Input",ExpressionUUID->"10ad3e7a-5e9f-43c6-a126-408531b302d7"], -Cell[23954, 809, 182, 3, 58, "Output",ExpressionUUID->"98adda66-91cc-4940-9b58-e9c4e4a0dbf1"] +Cell[25031, 767, 354, 5, 36, "Input",ExpressionUUID->"10ad3e7a-5e9f-43c6-a126-408531b302d7"], +Cell[25388, 774, 228, 3, 41, "Output",ExpressionUUID->"63b8f2e0-9df4-46ab-be4a-2842430113d6"] }, Open ]], -Cell[24151, 815, 175, 3, 51, "Input",ExpressionUUID->"214a830d-2c2e-43a4-bc1c-053c15250314"], +Cell[25631, 780, 171, 2, 109, "Input",ExpressionUUID->"214a830d-2c2e-43a4-bc1c-053c15250314"], Cell[CellGroupData[{ -Cell[24351, 822, 305, 6, 51, "Input",ExpressionUUID->"ecd20ef3-1ab0-4cde-852a-c5d9b1b73661"], -Cell[24659, 830, 182, 3, 58, "Output",ExpressionUUID->"3e7a2388-5bdd-4c18-8b7f-49a73b0ce70b"] +Cell[25827, 786, 301, 5, 36, "Input",ExpressionUUID->"ecd20ef3-1ab0-4cde-852a-c5d9b1b73661"], +Cell[26131, 793, 226, 3, 41, "Output",ExpressionUUID->"e872b377-18a3-49f3-a94a-094d73783c1c"] }, Open ]], -Cell[24856, 836, 175, 3, 51, "Input",ExpressionUUID->"b93dbd63-8a40-4d50-8d17-8352fee8c2e0"], +Cell[26372, 799, 171, 2, 109, "Input",ExpressionUUID->"b93dbd63-8a40-4d50-8d17-8352fee8c2e0"], Cell[CellGroupData[{ -Cell[25056, 843, 307, 6, 51, "Input",ExpressionUUID->"acae4259-cb0c-4c9e-b44a-b3aa1344e73d"], -Cell[25366, 851, 184, 3, 58, "Output",ExpressionUUID->"6d2bc2cf-4eb1-4352-9730-1f090a6b2350"] +Cell[26568, 805, 303, 5, 36, "Input",ExpressionUUID->"acae4259-cb0c-4c9e-b44a-b3aa1344e73d"], +Cell[26874, 812, 232, 3, 41, "Output",ExpressionUUID->"9a4a5350-eba2-4c1a-964e-306fd00e6850"] }, Open ]], -Cell[25565, 857, 177, 3, 51, "Input",ExpressionUUID->"9123453a-6645-4642-ad71-c1e3a644e456"], +Cell[27121, 818, 173, 2, 109, "Input",ExpressionUUID->"9123453a-6645-4642-ad71-c1e3a644e456"], Cell[CellGroupData[{ -Cell[25767, 864, 311, 6, 51, "Input",ExpressionUUID->"e7e40969-7c6d-4193-bae0-cb0c20730271"], -Cell[26081, 872, 183, 3, 58, "Output",ExpressionUUID->"254a84bc-ad13-4e9e-b418-958514a160df"] +Cell[27319, 824, 307, 5, 36, "Input",ExpressionUUID->"e7e40969-7c6d-4193-bae0-cb0c20730271"], +Cell[27629, 831, 229, 3, 41, "Output",ExpressionUUID->"f4dae460-58fb-4e85-9ef7-0a64934270a5"] }, Open ]], -Cell[26279, 878, 176, 3, 51, "Input",ExpressionUUID->"e3737c05-a507-415f-9d74-5abf111e8387"], +Cell[27873, 837, 172, 2, 109, "Input",ExpressionUUID->"e3737c05-a507-415f-9d74-5abf111e8387"], Cell[CellGroupData[{ -Cell[26480, 885, 279, 5, 51, "Input",ExpressionUUID->"a4f55aad-c642-418e-bf88-1b425c7e6ec8"], -Cell[26762, 892, 182, 3, 58, "Output",ExpressionUUID->"21448631-ab75-403c-9575-a42edf7aea55"] +Cell[28070, 843, 275, 4, 36, "Input",ExpressionUUID->"a4f55aad-c642-418e-bf88-1b425c7e6ec8"], +Cell[28348, 849, 228, 3, 41, "Output",ExpressionUUID->"d4326a3f-62de-46e4-a260-3e19be33b4f6"] }, Open ]], -Cell[26959, 898, 179, 3, 51, "Input",ExpressionUUID->"c0ccd081-db67-4cae-ba39-39483fa21e19"], +Cell[28591, 855, 175, 2, 109, "Input",ExpressionUUID->"c0ccd081-db67-4cae-ba39-39483fa21e19"], Cell[CellGroupData[{ -Cell[27163, 905, 19813, 486, 2581, "Input",ExpressionUUID->"63dbfc9c-e42e-4c7a-871a-ad28a63575d2"], -Cell[46979, 1393, 221, 4, 58, "Output",ExpressionUUID->"c2097b71-1445-4079-9c90-0343489e6f47"] +Cell[28791, 861, 19809, 485, 3208, "Input",ExpressionUUID->"63dbfc9c-e42e-4c7a-871a-ad28a63575d2"], +Cell[48603, 1348, 265, 4, 41, "Output",ExpressionUUID->"a2af1de9-cc15-435e-98ce-e8aebd98d118"] }, Open ]], Cell[CellGroupData[{ -Cell[47237, 1402, 19752, 490, 2539, "Input",ExpressionUUID->"2ea11fb9-c1cf-4b5c-be38-a3590d3d8bcc"], -Cell[66992, 1894, 221, 4, 58, "Output",ExpressionUUID->"77c85e63-32bd-4e83-868d-8a4899d53a0e"] +Cell[48905, 1357, 19748, 489, 3138, "Input",ExpressionUUID->"2ea11fb9-c1cf-4b5c-be38-a3590d3d8bcc"], +Cell[68656, 1848, 267, 4, 41, "Output",ExpressionUUID->"29081585-7ce4-42b4-9b8a-a6918bcd4537"] }, Open ]], Cell[CellGroupData[{ -Cell[67250, 1903, 19752, 484, 2561, "Input",ExpressionUUID->"13919706-748a-4c67-9595-2986977db5e6"], -Cell[87005, 2389, 235, 5, 109, "Output",ExpressionUUID->"08bfe9bc-ba63-4fc6-a19b-0113d1134dbf"] +Cell[68960, 1857, 19748, 483, 3198, "Input",ExpressionUUID->"13919706-748a-4c67-9595-2986977db5e6"], +Cell[88711, 2342, 279, 5, 41, "Output",ExpressionUUID->"e975877b-7c62-4fa0-aa3e-98f15a6cbf1d"] }, Open ]], Cell[CellGroupData[{ -Cell[87277, 2399, 28300, 713, 109, "Input",ExpressionUUID->"2eb20ff3-6636-4349-a600-9842f9fd331a"], -Cell[115580, 3114, 235, 5, 58, "Output",ExpressionUUID->"6f83c814-6704-4fc2-b65d-476f8747e0e0"] +Cell[89027, 2352, 28296, 712, 2450, "Input",ExpressionUUID->"2eb20ff3-6636-4349-a600-9842f9fd331a"], +Cell[117326, 3066, 281, 5, 41, "Output",ExpressionUUID->"a0cc1edb-e511-41d8-b693-ad420be802ed"] }, Open ]], Cell[CellGroupData[{ -Cell[115852, 3124, 22539, 554, 2883, "Input",ExpressionUUID->"6124a934-47b0-4afd-b8b1-65c796c1e92c"], -Cell[138394, 3680, 238, 5, 58, "Output",ExpressionUUID->"2fb99c3d-7c41-44fd-9473-f62eb3fb0eef"] +Cell[117644, 3076, 22535, 553, 3642, "Input",ExpressionUUID->"6124a934-47b0-4afd-b8b1-65c796c1e92c"], +Cell[140182, 3631, 282, 5, 41, "Output",ExpressionUUID->"2233fc74-e481-4b09-9fa6-a25dc8bd61c5"] }, Open ]], Cell[CellGroupData[{ -Cell[138669, 3690, 25495, 627, 3226, "Input",ExpressionUUID->"067ad88a-a827-446e-ba85-df9489d80fe3"], -Cell[164167, 4319, 239, 5, 58, "Output",ExpressionUUID->"a08bbafb-59b0-44f4-b7d4-786497b9371b"] +Cell[140501, 3641, 25491, 626, 4121, "Input",ExpressionUUID->"067ad88a-a827-446e-ba85-df9489d80fe3"], +Cell[165995, 4269, 284, 5, 41, "Output",ExpressionUUID->"d0628005-4741-40cb-b114-9fb77787affd"] }, Open ]], Cell[CellGroupData[{ -Cell[164443, 4329, 134, 3, 51, "Input",ExpressionUUID->"0fb9e55a-53df-459a-ac36-cdfd11764a24"], -Cell[164580, 4334, 204, 4, 58, "Output",ExpressionUUID->"db1b7152-9c09-4fd0-bc25-97c8ed0c9214"] +Cell[166316, 4279, 130, 2, 36, "Input",ExpressionUUID->"0fb9e55a-53df-459a-ac36-cdfd11764a24"], +Cell[166449, 4283, 247, 4, 41, "Output",ExpressionUUID->"03ce5fe5-4424-4254-ac04-5ba77db1c487"] }, Open ]], Cell[CellGroupData[{ -Cell[164821, 4343, 134, 3, 51, "Input",ExpressionUUID->"e8ada919-e98f-4497-aa91-78add5700c1a"], -Cell[164958, 4348, 204, 4, 58, "Output",ExpressionUUID->"f3e4187d-0eeb-4cb3-972f-a384b24c11c1"] +Cell[166733, 4292, 130, 2, 36, "Input",ExpressionUUID->"e8ada919-e98f-4497-aa91-78add5700c1a"], +Cell[166866, 4296, 248, 4, 41, "Output",ExpressionUUID->"41d9edab-fae6-4142-8664-b74a21ffa586"] }, Open ]], Cell[CellGroupData[{ -Cell[165199, 4357, 1148, 40, 190, "Input",ExpressionUUID->"11fb9513-8adc-426d-add8-7a0171eb08c4"], -Cell[166350, 4399, 218, 4, 58, "Output",ExpressionUUID->"f8754e43-d894-45ff-b17e-e7ba13d5b11b"] +Cell[167151, 4305, 1144, 39, 144, "Input",ExpressionUUID->"11fb9513-8adc-426d-add8-7a0171eb08c4"], +Cell[168298, 4346, 264, 4, 41, "Output",ExpressionUUID->"b7a4d180-0548-43e4-af04-ffa0694ff84b"] }, Open ]], Cell[CellGroupData[{ -Cell[166605, 4408, 1045, 36, 257, "Input",ExpressionUUID->"684ac7c8-ffcb-4f44-8014-70bc251db57e"], -Cell[167653, 4446, 238, 5, 58, "Output",ExpressionUUID->"2f3454a8-bc7d-4cfc-b2b9-7fe692153711"] +Cell[168599, 4355, 1041, 35, 144, "Input",ExpressionUUID->"684ac7c8-ffcb-4f44-8014-70bc251db57e"], +Cell[169643, 4392, 286, 5, 41, "Output",ExpressionUUID->"4f21f58b-52a0-4262-9107-616427eaa77d"] }, Open ]], Cell[CellGroupData[{ -Cell[167928, 4456, 1148, 40, 190, "Input",ExpressionUUID->"91ac834b-4ce6-454e-958e-c28c093f969e"], -Cell[169079, 4498, 222, 4, 58, "Output",ExpressionUUID->"20c1b17e-3fdd-49bb-9c4b-0011a63d9439"] +Cell[169966, 4402, 1144, 39, 144, "Input",ExpressionUUID->"91ac834b-4ce6-454e-958e-c28c093f969e"], +Cell[171113, 4443, 268, 4, 41, "Output",ExpressionUUID->"4bfa1d07-a0d5-4ccb-bc6b-817752722050"] }, Open ]], Cell[CellGroupData[{ -Cell[169338, 4507, 112, 2, 51, "Input",ExpressionUUID->"95defb1f-0166-421b-9570-425e25f79e4b"], -Cell[169453, 4511, 224, 4, 58, "Output",ExpressionUUID->"4eea6a8d-a4e4-4492-a05d-ab326a6505ca"] +Cell[171418, 4452, 108, 1, 36, "Input",ExpressionUUID->"95defb1f-0166-421b-9570-425e25f79e4b"], +Cell[171529, 4455, 270, 4, 41, "Output",ExpressionUUID->"7ae545e0-04ec-4a0d-840f-0e0daaacf220"] }, Open ]], Cell[CellGroupData[{ -Cell[169714, 4520, 112, 2, 51, "Input",ExpressionUUID->"047f0807-e297-4e57-ab72-115d0bd4346c"], -Cell[169829, 4524, 241, 5, 58, "Output",ExpressionUUID->"0142c57a-b4c0-4f2b-848d-46c0d06d3c8d"] +Cell[171836, 4464, 108, 1, 36, "Input",ExpressionUUID->"047f0807-e297-4e57-ab72-115d0bd4346c"], +Cell[171947, 4467, 287, 5, 41, "Output",ExpressionUUID->"e69bb125-dc6e-4452-b95c-bb78eee660cc"] }, Open ]], Cell[CellGroupData[{ -Cell[170107, 4534, 112, 2, 51, "Input",ExpressionUUID->"2db39cad-94a9-4ba7-9de3-f980ab1abdd3"], -Cell[170222, 4538, 239, 5, 58, "Output",ExpressionUUID->"5c828f33-8cea-4211-915e-bf2261536929"] +Cell[172271, 4477, 108, 1, 36, "Input",ExpressionUUID->"2db39cad-94a9-4ba7-9de3-f980ab1abdd3"], +Cell[172382, 4480, 283, 5, 41, "Output",ExpressionUUID->"c9985bf2-db50-4335-8418-6a9ced30b9ac"] }, Open ]], Cell[CellGroupData[{ -Cell[170498, 4548, 112, 2, 51, "Input",ExpressionUUID->"999c9294-a525-4435-b9b1-665af2777271"], -Cell[170613, 4552, 219, 4, 58, "Output",ExpressionUUID->"cbcbc64f-a97e-4f18-b0b1-372452a7f799"] +Cell[172702, 4490, 108, 1, 36, "Input",ExpressionUUID->"999c9294-a525-4435-b9b1-665af2777271"], +Cell[172813, 4493, 262, 4, 41, "Output",ExpressionUUID->"335f41c8-266f-46a7-b8e5-7cec01fa159a"] }, Open ]], Cell[CellGroupData[{ -Cell[170869, 4561, 111, 2, 51, "Input",ExpressionUUID->"7ae5dd29-22a7-4156-b928-348d5a26efc3"], -Cell[170983, 4565, 221, 4, 58, "Output",ExpressionUUID->"3176776e-6eaa-41b2-84cf-48dbebee6e63"] +Cell[173112, 4502, 107, 1, 36, "Input",ExpressionUUID->"7ae5dd29-22a7-4156-b928-348d5a26efc3"], +Cell[173222, 4505, 265, 4, 41, "Output",ExpressionUUID->"2e553df4-7f7a-4954-8f36-7d4c2afbfb09"] }, Open ]], Cell[CellGroupData[{ -Cell[171241, 4574, 111, 2, 51, "Input",ExpressionUUID->"e309fcfb-5e9d-440e-8288-933ddf5d3183"], -Cell[171355, 4578, 222, 4, 58, "Output",ExpressionUUID->"ebf04ddb-62dc-4687-bcae-0f897f7c991e"] +Cell[173524, 4514, 107, 1, 36, "Input",ExpressionUUID->"e309fcfb-5e9d-440e-8288-933ddf5d3183"], +Cell[173634, 4517, 266, 4, 41, "Output",ExpressionUUID->"4043533f-5d37-4dd8-bb68-eea3cdeafe2a"] }, Open ]], Cell[CellGroupData[{ -Cell[171614, 4587, 501, 17, 97, "Input",ExpressionUUID->"18bb3739-c47b-437f-a843-22b7434fe3c0"], -Cell[172118, 4606, 242, 5, 58, "Output",ExpressionUUID->"0d7ea3a7-10ed-4b89-a04b-9e4175859abb"] +Cell[173937, 4526, 497, 16, 71, "Input",ExpressionUUID->"18bb3739-c47b-437f-a843-22b7434fe3c0"], +Cell[174437, 4544, 290, 5, 41, "Output",ExpressionUUID->"50b1deb8-4af3-4524-827d-1f3b9fba9e9c"] }, Open ]], Cell[CellGroupData[{ -Cell[172397, 4616, 501, 17, 97, "Input",ExpressionUUID->"9336aeda-c150-460f-b72b-4a931a6c7246"], -Cell[172901, 4635, 234, 5, 58, "Output",ExpressionUUID->"89edda8e-9ba7-45ab-bc4d-8798b2c67f33"] +Cell[174764, 4554, 497, 16, 71, "Input",ExpressionUUID->"9336aeda-c150-460f-b72b-4a931a6c7246"], +Cell[175264, 4572, 278, 5, 41, "Output",ExpressionUUID->"00652810-919f-4807-a2ff-38afaeb8abd6"] }, Open ]], Cell[CellGroupData[{ -Cell[173172, 4645, 1792, 61, 324, "Input",ExpressionUUID->"af548364-1bf8-4b09-9f56-235516d563a6"], -Cell[174967, 4708, 224, 4, 58, "Output",ExpressionUUID->"592ec874-7297-4e35-ac4c-4a709753226e"] +Cell[175579, 4582, 1788, 60, 340, "Input",ExpressionUUID->"af548364-1bf8-4b09-9f56-235516d563a6"], +Cell[177370, 4644, 270, 4, 41, "Output",ExpressionUUID->"df572e67-99d7-4f87-aa8b-979e4c679b93"] }, Open ]], Cell[CellGroupData[{ -Cell[175228, 4717, 1105, 37, 231, "Input",ExpressionUUID->"95a8fa6d-a243-49e0-9b82-930336521cbe"], -Cell[176336, 4756, 239, 5, 58, "Output",ExpressionUUID->"7a6d68bd-e620-44e0-ab90-a245f8890b51"] +Cell[177677, 4653, 1101, 36, 174, "Input",ExpressionUUID->"95a8fa6d-a243-49e0-9b82-930336521cbe"], +Cell[178781, 4691, 283, 5, 41, "Output",ExpressionUUID->"478914e7-4e6e-44dd-964f-e91650d5bb32"] }, Open ]], Cell[CellGroupData[{ -Cell[176612, 4766, 1822, 62, 283, "Input",ExpressionUUID->"3d40da52-7e84-43df-b724-f982bb0ccbe1"], -Cell[178437, 4830, 221, 4, 58, "Output",ExpressionUUID->"77bface0-ef1c-41b7-b57c-58f47957aebb"] +Cell[179101, 4701, 1818, 61, 340, "Input",ExpressionUUID->"3d40da52-7e84-43df-b724-f982bb0ccbe1"], +Cell[180922, 4764, 265, 4, 41, "Output",ExpressionUUID->"e3633192-a52a-4a16-9404-6a102f829092"] }, Open ]], Cell[CellGroupData[{ -Cell[178695, 4839, 1635, 54, 208, "Input",ExpressionUUID->"f3391ef3-a316-4d0f-9274-0f9548039352"], -Cell[180333, 4895, 223, 4, 41, "Output",ExpressionUUID->"b6ed643f-f49e-4be2-9a01-f9bf4817aabc"] +Cell[181224, 4773, 1631, 53, 208, "Input",ExpressionUUID->"f3391ef3-a316-4d0f-9274-0f9548039352"], +Cell[182858, 4828, 269, 4, 41, "Output",ExpressionUUID->"f9caec24-03a9-40ff-90d8-51ec4c6e5758"] }, Open ]], Cell[CellGroupData[{ -Cell[180593, 4904, 1635, 54, 208, "Input",ExpressionUUID->"ff4d53e3-2af3-48db-bfea-28618ad44623"], -Cell[182231, 4960, 221, 4, 41, "Output",ExpressionUUID->"427228c1-f6e7-48fa-aca1-5fe5c3d5961f"] +Cell[183164, 4837, 1631, 53, 208, "Input",ExpressionUUID->"ff4d53e3-2af3-48db-bfea-28618ad44623"], +Cell[184798, 4892, 265, 4, 41, "Output",ExpressionUUID->"36e99c8a-c713-4966-9ba1-055b8f15b689"] }, Open ]], -Cell[182467, 4967, 250, 5, 56, "Input",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], -Cell[182720, 4974, 253, 5, 56, "Input",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], Cell[CellGroupData[{ -Cell[182998, 4983, 1301, 43, 174, "Input",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], -Cell[184302, 5028, 178, 3, 41, "Output",ExpressionUUID->"1db85c02-7ca3-154e-854d-2c36f89709c4"] +Cell[185100, 4901, 271, 5, 56, "Input",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], +Cell[185374, 4908, 183, 2, 41, "Output",ExpressionUUID->"180c2a6b-fa48-4f6c-bcc7-15dcf22662ac"] }, Open ]], Cell[CellGroupData[{ -Cell[184517, 5036, 910, 31, 128, "Input",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], -Cell[185430, 5069, 175, 3, 41, "Output",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] +Cell[185594, 4915, 274, 5, 56, "Input",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], +Cell[185871, 4922, 187, 2, 41, "Output",ExpressionUUID->"c13620fa-2229-4df1-94c2-9420c83414c6"] }, Open ]], Cell[CellGroupData[{ -Cell[185642, 5077, 885, 30, 128, "Input",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], -Cell[186530, 5109, 177, 3, 41, "Output",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] +Cell[186095, 4929, 1297, 42, 174, "Input",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], +Cell[187395, 4973, 221, 3, 41, "Output",ExpressionUUID->"d19fbb0f-35f1-497a-9787-659217fb9fea"] }, Open ]], Cell[CellGroupData[{ -Cell[186744, 5117, 558, 19, 66, "Input",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], -Cell[187305, 5138, 173, 3, 41, "Output",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] +Cell[187653, 4981, 929, 30, 128, "Input",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], +Cell[188585, 5013, 220, 3, 41, "Output",ExpressionUUID->"cd849fa1-efc3-4c75-baeb-c683dc62c32b"] }, Open ]], Cell[CellGroupData[{ -Cell[187515, 5146, 623, 21, 66, "Input",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], -Cell[188141, 5169, 170, 3, 41, "Output",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +Cell[188842, 5021, 904, 29, 128, "Input",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], +Cell[189749, 5052, 222, 3, 41, "Output",ExpressionUUID->"0041d54c-0003-42f1-ac92-80c369edca0c"] }, Open ]], Cell[CellGroupData[{ -Cell[188348, 5177, 170, 5, 71, "Input",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], -Cell[188521, 5184, 173, 3, 41, "Output",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +Cell[190008, 5060, 554, 18, 66, "Input",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], +Cell[190565, 5080, 215, 3, 41, "Output",ExpressionUUID->"448321d1-348d-44d3-a9fd-b735bb911179"] }, Open ]], Cell[CellGroupData[{ -Cell[188731, 5192, 170, 5, 69, "Input",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], -Cell[188904, 5199, 170, 3, 41, "Output",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +Cell[190817, 5088, 619, 20, 66, "Input",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], +Cell[191439, 5110, 214, 3, 41, "Output",ExpressionUUID->"99d11988-7303-463f-8f6d-42ab63c770ed"] }, Open ]], Cell[CellGroupData[{ -Cell[189111, 5207, 181, 5, 55, "Input",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], -Cell[189295, 5214, 171, 3, 41, "Output",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +Cell[191690, 5118, 166, 4, 71, "Input",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], +Cell[191859, 5124, 217, 3, 41, "Output",ExpressionUUID->"378f4a71-0d4f-4d32-b501-700e09265a3f"] }, Open ]], Cell[CellGroupData[{ -Cell[189503, 5222, 181, 5, 55, "Input",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], -Cell[189687, 5229, 173, 3, 41, "Output",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +Cell[192113, 5132, 166, 4, 69, "Input",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], +Cell[192282, 5138, 213, 3, 41, "Output",ExpressionUUID->"24d3798e-4929-419a-8c06-146699d4d871"] }, Open ]], Cell[CellGroupData[{ -Cell[189897, 5237, 6055, 185, 831, "Input",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], -Cell[195955, 5424, 175, 3, 41, "Output",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +Cell[192532, 5146, 177, 4, 55, "Input",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], +Cell[192712, 5152, 216, 3, 41, "Output",ExpressionUUID->"714460db-ee53-4034-8516-245e72ac679e"] }, Open ]], Cell[CellGroupData[{ -Cell[196167, 5432, 368, 9, 53, "Input",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], -Cell[196538, 5443, 170, 3, 41, "Output",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +Cell[192965, 5160, 177, 4, 55, "Input",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], +Cell[193145, 5166, 215, 3, 41, "Output",ExpressionUUID->"4352d2fc-7de9-4b50-bb58-d923eced890d"] }, Open ]], Cell[CellGroupData[{ -Cell[196745, 5451, 6122, 187, 900, "Input",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], -Cell[202870, 5640, 175, 3, 41, "Output",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +Cell[193397, 5174, 6051, 184, 831, "Input",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], +Cell[199451, 5360, 220, 3, 41, "Output",ExpressionUUID->"e8e59e81-851c-4ccd-a728-2972f77ba470"] }, Open ]], Cell[CellGroupData[{ -Cell[203082, 5648, 368, 9, 53, "Input",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], -Cell[203453, 5659, 172, 3, 41, "Output",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +Cell[199708, 5368, 364, 8, 53, "Input",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], +Cell[200075, 5378, 217, 3, 41, "Output",ExpressionUUID->"359be4c6-da4a-4e71-bc69-25538a3ac055"] }, Open ]], Cell[CellGroupData[{ -Cell[203662, 5667, 2663, 88, 435, "Input",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], -Cell[206328, 5757, 173, 3, 41, "Output",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +Cell[200329, 5386, 6118, 186, 900, "Input",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], +Cell[206450, 5574, 217, 3, 41, "Output",ExpressionUUID->"23f9845c-fd22-4a68-837b-4ae4262bbc9d"] }, Open ]], Cell[CellGroupData[{ -Cell[206538, 5765, 2603, 85, 435, "Input",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], -Cell[209144, 5852, 172, 3, 41, "Output",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +Cell[206704, 5582, 364, 8, 53, "Input",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], +Cell[207071, 5592, 218, 3, 41, "Output",ExpressionUUID->"9b5a69c6-1bdf-41f8-9175-0da97e4dd51d"] }, Open ]], Cell[CellGroupData[{ -Cell[209353, 5860, 3712, 118, 575, "Input",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], -Cell[213068, 5980, 174, 3, 41, "Output",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] +Cell[207326, 5600, 2659, 87, 435, "Input",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], +Cell[209988, 5689, 218, 3, 41, "Output",ExpressionUUID->"a23a39aa-71c9-4003-8409-f6a575e4fc9d"] }, Open ]], -Cell[213257, 5986, 138, 3, 36, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], Cell[CellGroupData[{ -Cell[213420, 5993, 2052, 59, 276, "Input",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], -Cell[215475, 6054, 524, 11, 98, "Message",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], -Cell[216002, 6067, 526, 11, 91, "Message",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], -Cell[216531, 6080, 530, 11, 98, "Message",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], -Cell[217064, 6093, 455, 10, 32, "Message",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], -Cell[217522, 6105, 172, 3, 41, "Output",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +Cell[210243, 5697, 2599, 84, 435, "Input",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], +Cell[212845, 5783, 214, 3, 41, "Output",ExpressionUUID->"581f0f60-072b-409a-af28-8770389836bc"] }, Open ]], Cell[CellGroupData[{ -Cell[217731, 6113, 2054, 59, 276, "Input",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], -Cell[219788, 6174, 524, 11, 98, "Message",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], -Cell[220315, 6187, 526, 11, 98, "Message",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], -Cell[220844, 6200, 528, 11, 98, "Message",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], -Cell[221375, 6213, 456, 10, 32, "Message",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], -Cell[221834, 6225, 170, 3, 41, "Output",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +Cell[213096, 5791, 3708, 117, 575, "Input",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], +Cell[216807, 5910, 220, 3, 41, "Output",ExpressionUUID->"d2117f8b-77f3-4406-ada0-d4bbf11fd48d"] }, Open ]], +Cell[217042, 5916, 160, 3, 109, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], Cell[CellGroupData[{ -Cell[222041, 6233, 1938, 53, 232, "Input",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], -Cell[223982, 6288, 19994, 375, 285, "Output",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +Cell[217227, 5923, 2071, 58, 276, "Input",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], +Cell[219301, 5983, 687, 15, 73, "Message",ExpressionUUID->"d21629d4-3e03-4c1e-a05c-e2ef0008f830"], +Cell[219991, 6000, 687, 15, 73, "Message",ExpressionUUID->"a0b4a377-8e36-4847-a7ea-8d59706725fa"], +Cell[220681, 6017, 689, 15, 73, "Message",ExpressionUUID->"2224c09d-6586-4230-870f-bad7cee675f8"], +Cell[221373, 6034, 514, 12, 32, "Message",ExpressionUUID->"44e7429a-ee27-417e-8a84-caec119ebfb5"], +Cell[221890, 6048, 217, 3, 41, "Output",ExpressionUUID->"b30b21f8-3e68-41a7-a060-d6b8aaa60f83"] }, Open ]], Cell[CellGroupData[{ -Cell[244013, 6668, 2092, 60, 311, "Input",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], -Cell[246108, 6730, 490, 11, 71, "Message",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], -Cell[246601, 6743, 493, 11, 71, "Message",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], -Cell[247097, 6756, 508, 11, 56, "Message",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], -Cell[247608, 6769, 456, 10, 32, "Message",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], -Cell[248067, 6781, 61603, 1057, 290, "Output",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] +Cell[222144, 6056, 2073, 58, 276, "Input",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], +Cell[224220, 6116, 689, 15, 73, "Message",ExpressionUUID->"ff4a22ee-b74c-4e27-9a32-8794f1788d97"], +Cell[224912, 6133, 689, 15, 73, "Message",ExpressionUUID->"b48961ce-a26a-4419-855c-b35d02109d15"], +Cell[225604, 6150, 689, 15, 73, "Message",ExpressionUUID->"9c9083c1-904f-40d2-9bc6-08b6c156f0e5"], +Cell[226296, 6167, 514, 12, 32, "Message",ExpressionUUID->"6178501c-60d7-43bc-bbc9-1811511a1be4"], +Cell[226813, 6181, 214, 3, 41, "Output",ExpressionUUID->"67d7313a-13c9-4a10-8d69-ebdf88c370a5"] }, Open ]], -Cell[309685, 7841, 2521, 71, 316, "Input",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], -Cell[312209, 7914, 209, 5, 36, "Input",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], Cell[CellGroupData[{ -Cell[312443, 7923, 217, 7, 61, "Input",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], -Cell[312663, 7932, 169, 3, 41, "Output",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +Cell[227064, 6189, 2049, 54, 232, "Input",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], +Cell[229116, 6245, 20409, 382, 295, "Output",ExpressionUUID->"81b08f53-9323-41c1-a603-cc703c28c927"] }, Open ]], Cell[CellGroupData[{ -Cell[312869, 7940, 1816, 53, 116, "Input",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], -Cell[314688, 7995, 502, 11, 48, "Message",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], -Cell[315193, 8008, 506, 11, 71, "Message",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], -Cell[315702, 8021, 509, 11, 71, "Message",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], -Cell[316214, 8034, 456, 10, 26, "Message",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], -Cell[316673, 8046, 28560, 514, 290, "Output",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +Cell[249562, 6632, 2111, 59, 311, "Input",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], +Cell[251676, 6693, 532, 12, 71, "Message",ExpressionUUID->"b7a57304-bef8-4061-8d4a-fd0a3bc758cc"], +Cell[252211, 6707, 537, 12, 71, "Message",ExpressionUUID->"689dbe34-353a-436e-99c9-1daa9299ac92"], +Cell[252751, 6721, 538, 12, 71, "Message",ExpressionUUID->"11ab2a78-f31b-4493-86d0-4fa6c6315748"], +Cell[253292, 6735, 488, 11, 32, "Message",ExpressionUUID->"64f772a0-844b-4e01-a077-e86257e85800"], +Cell[253783, 6748, 25064, 458, 290, "Output",ExpressionUUID->"c77119de-b079-47ec-a02a-c1919726a8d9"] }, Open ]], Cell[CellGroupData[{ -Cell[345270, 8565, 1616, 48, 132, "Input",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], -Cell[346889, 8615, 576, 12, 98, "Message",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], -Cell[347468, 8629, 582, 12, 98, "Message",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], -Cell[348053, 8643, 584, 12, 118, "Message",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], -Cell[348640, 8657, 458, 10, 109, "Message",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], -Cell[349101, 8669, 170, 3, 109, "Output",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +Cell[278884, 7211, 2542, 71, 316, "Input",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], +Cell[281429, 7284, 9494, 222, 298, "Output",ExpressionUUID->"f81e3ed8-4a21-4792-9025-e2e6e8f1e3c1"] }, Open ]], Cell[CellGroupData[{ -Cell[349308, 8677, 2247, 64, 109, "Input",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], -Cell[351558, 8743, 522, 11, 109, "Message",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], -Cell[352083, 8756, 526, 11, 109, "Message",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], -Cell[352612, 8769, 528, 11, 109, "Message",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], -Cell[353143, 8782, 458, 10, 32, "Message",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], -Cell[353604, 8794, 175, 3, 41, "Output",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +Cell[290960, 7511, 228, 4, 36, "Input",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], +Cell[291191, 7517, 31426, 590, 290, "Output",ExpressionUUID->"d99b3ee0-3338-4ee0-b364-c8b634384e59"] }, Open ]], Cell[CellGroupData[{ -Cell[353816, 8802, 2221, 64, 348, "Input",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], -Cell[356040, 8868, 522, 11, 98, "Message",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], -Cell[356565, 8881, 524, 11, 98, "Message",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], -Cell[357092, 8894, 528, 11, 98, "Message",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], -Cell[357623, 8907, 458, 10, 32, "Message",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], -Cell[358084, 8919, 170, 3, 41, "Output",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +Cell[322654, 8112, 236, 6, 61, "Input",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], +Cell[322893, 8120, 188, 2, 41, "Output",ExpressionUUID->"14611223-d6ca-44db-9f36-b1eeb4e13cef"] }, Open ]], Cell[CellGroupData[{ -Cell[358291, 8927, 2221, 64, 109, "Input",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], -Cell[360515, 8993, 524, 11, 109, "Message",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], -Cell[361042, 9006, 526, 11, 109, "Message",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], -Cell[361571, 9019, 530, 11, 109, "Message",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], -Cell[362104, 9032, 458, 10, 109, "Message",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], -Cell[362565, 9044, 171, 3, 41, "Output",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +Cell[323118, 8127, 1835, 52, 311, "Input",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], +Cell[324956, 8181, 540, 12, 71, "Message",ExpressionUUID->"670b6ac8-5f1b-495c-9d7e-9201e87bafe4"], +Cell[325499, 8195, 543, 12, 71, "Message",ExpressionUUID->"fad1be5c-81c4-4e64-8f8d-bffb37ad6161"], +Cell[326045, 8209, 549, 12, 71, "Message",ExpressionUUID->"7c3366a7-6080-4b30-a686-2d2efe76759e"], +Cell[326597, 8223, 487, 11, 32, "Message",ExpressionUUID->"233bd03a-dafa-4355-b0a3-87ec6b2d02f8"], +Cell[327087, 8236, 25637, 467, 296, "Output",ExpressionUUID->"3421f5a3-ace0-4e15-9f5a-74ddb45521c8"] }, Open ]], Cell[CellGroupData[{ -Cell[362773, 9052, 215, 6, 60, "Input",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], -Cell[362991, 9060, 175, 3, 41, "Output",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] +Cell[352761, 8708, 1612, 47, 132, "Input",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], +Cell[354376, 8757, 661, 14, 73, "Message",ExpressionUUID->"389c414e-6ffe-417e-a9cb-641631ab86e7"], +Cell[355040, 8773, 662, 14, 73, "Message",ExpressionUUID->"b99be89c-5a75-4acd-85d8-ba68b316483a"], +Cell[355705, 8789, 661, 14, 73, "Message",ExpressionUUID->"37aa45be-1d12-4650-bd4e-86019e9c56d6"], +Cell[356369, 8805, 488, 11, 32, "Message",ExpressionUUID->"403356c8-946a-4cdc-b4b1-e259190b2d92"], +Cell[356860, 8818, 188, 2, 41, "Output",ExpressionUUID->"425a5a4a-7b4d-4690-9cc8-e65211d6cf5a"] }, Open ]], -Cell[363181, 9066, 245, 5, 36, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], Cell[CellGroupData[{ -Cell[363451, 9075, 623, 20, 66, "Input",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], -Cell[364077, 9097, 172, 3, 41, "Output",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +Cell[357085, 8825, 2266, 63, 348, "Input",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], +Cell[359354, 8890, 660, 14, 73, "Message",ExpressionUUID->"3e0bf16f-ef36-4756-850b-ef6f3e8c4c81"], +Cell[360017, 8906, 663, 14, 73, "Message",ExpressionUUID->"514b65c9-fbb5-47bb-a33a-aa14a69931f8"], +Cell[360683, 8922, 663, 14, 73, "Message",ExpressionUUID->"eb812c1b-a93c-44d7-a0e2-449691214e48"], +Cell[361349, 8938, 488, 11, 32, "Message",ExpressionUUID->"02bab951-8952-4e12-aab8-cec08fea005b"], +Cell[361840, 8951, 190, 2, 41, "Output",ExpressionUUID->"176047bd-304b-48a3-8ca8-ed7082ac884a"] }, Open ]], Cell[CellGroupData[{ -Cell[364286, 9105, 170, 5, 71, "Input",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], -Cell[364459, 9112, 172, 3, 41, "Output",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +Cell[362067, 8958, 2233, 63, 348, "Input",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], +Cell[364303, 9023, 663, 14, 73, "Message",ExpressionUUID->"bb18a22f-dd83-4685-b0b4-052173df6c07"], +Cell[364969, 9039, 663, 14, 73, "Message",ExpressionUUID->"8cd71a53-5ab4-48cb-92e8-23ade4880591"], +Cell[365635, 9055, 665, 14, 73, "Message",ExpressionUUID->"9f1bf4a9-edd3-4ae8-b31b-cda930b0469e"], +Cell[366303, 9071, 489, 11, 32, "Message",ExpressionUUID->"031af37d-4adb-4f3d-8bf3-fdc371577b87"], +Cell[366795, 9084, 194, 3, 41, "Output",ExpressionUUID->"5b238c89-4317-4d0f-b88d-9fbea972d0d7"] }, Open ]], Cell[CellGroupData[{ -Cell[364668, 9120, 181, 5, 55, "Input",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], -Cell[364852, 9127, 172, 3, 41, "Output",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +Cell[367026, 9092, 2233, 63, 348, "Input",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], +Cell[369262, 9157, 665, 14, 73, "Message",ExpressionUUID->"a32e5eee-32a4-4794-8cfb-acee773a115f"], +Cell[369930, 9173, 665, 14, 73, "Message",ExpressionUUID->"819b597c-b6f0-4e2a-bd53-0482aa849c00"], +Cell[370598, 9189, 667, 14, 73, "Message",ExpressionUUID->"7cdeddb1-e2e6-4563-9e85-18087e03e7ef"], +Cell[371268, 9205, 494, 11, 32, "Message",ExpressionUUID->"ccd58130-922b-4f0e-83f3-afe7f312aaae"], +Cell[371765, 9218, 193, 3, 41, "Output",ExpressionUUID->"39ddb72d-de29-47e4-9bb1-4a281090532b"] }, Open ]], Cell[CellGroupData[{ -Cell[365061, 9135, 6055, 185, 831, "Input",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], -Cell[371119, 9322, 174, 3, 41, "Output",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +Cell[371995, 9226, 238, 6, 60, "Input",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], +Cell[372236, 9234, 195, 3, 41, "Output",ExpressionUUID->"b7171765-f7bf-4e8e-8418-05f88dab1ff3"] }, Open ]], +Cell[372446, 9240, 271, 6, 109, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], Cell[CellGroupData[{ -Cell[371330, 9330, 368, 9, 53, "Input",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], -Cell[371701, 9341, 173, 3, 41, "Output",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +Cell[372742, 9250, 623, 20, 66, "Input",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], +Cell[373368, 9272, 196, 3, 41, "Output",ExpressionUUID->"a9b585a5-ed74-4831-9b1a-0ba507db4c06"] }, Open ]], Cell[CellGroupData[{ -Cell[371911, 9349, 6122, 187, 900, "Input",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], -Cell[378036, 9538, 175, 3, 41, "Output",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +Cell[373601, 9280, 170, 5, 71, "Input",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], +Cell[373774, 9287, 195, 3, 41, "Output",ExpressionUUID->"479567f4-95bd-405f-b239-244ced4ec0d9"] }, Open ]], Cell[CellGroupData[{ -Cell[378248, 9546, 368, 9, 53, "Input",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], -Cell[378619, 9557, 170, 3, 41, "Output",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +Cell[374006, 9295, 181, 5, 55, "Input",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], +Cell[374190, 9302, 193, 3, 41, "Output",ExpressionUUID->"aaf9defe-b480-401c-bb37-e79f2328647d"] }, Open ]], Cell[CellGroupData[{ -Cell[378826, 9565, 2663, 88, 435, "Input",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], -Cell[381492, 9655, 173, 3, 41, "Output",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +Cell[374420, 9310, 6055, 185, 831, "Input",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], +Cell[380478, 9497, 197, 3, 41, "Output",ExpressionUUID->"141914f0-1b31-40c8-aec7-8fa069c7894a"] }, Open ]], Cell[CellGroupData[{ -Cell[381702, 9663, 2603, 85, 435, "Input",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], -Cell[384308, 9750, 172, 3, 41, "Output",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +Cell[380712, 9505, 368, 9, 53, "Input",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], +Cell[381083, 9516, 195, 3, 41, "Output",ExpressionUUID->"bdc7da91-a4ad-431b-be3c-faa39e29d99f"] }, Open ]], Cell[CellGroupData[{ -Cell[384517, 9758, 3712, 118, 575, "Input",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], -Cell[388232, 9878, 174, 3, 41, "Output",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +Cell[381315, 9524, 6122, 187, 900, "Input",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], +Cell[387440, 9713, 196, 3, 41, "Output",ExpressionUUID->"4be4ae0a-5e77-4cba-abf9-3d23dbb943ca"] }, Open ]], Cell[CellGroupData[{ -Cell[388443, 9886, 2052, 59, 276, "Input",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], -Cell[390498, 9947, 574, 12, 98, "Message",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], -Cell[391075, 9961, 580, 12, 98, "Message",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], -Cell[391658, 9975, 582, 12, 98, "Message",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], -Cell[392243, 9989, 456, 10, 32, "Message",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], -Cell[392702, 10001, 171, 3, 41, "Output",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +Cell[387673, 9721, 368, 9, 53, "Input",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], +Cell[388044, 9732, 194, 3, 41, "Output",ExpressionUUID->"8ba1fc2b-f805-4798-83e3-3087bd52d1d3"] }, Open ]], Cell[CellGroupData[{ -Cell[392910, 10009, 2054, 59, 109, "Input",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], -Cell[394967, 10070, 574, 12, 109, "Message",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], -Cell[395544, 10084, 578, 12, 109, "Message",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], -Cell[396125, 10098, 582, 12, 109, "Message",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], -Cell[396710, 10112, 458, 10, 109, "Message",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], -Cell[397171, 10124, 169, 3, 109, "Output",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +Cell[388275, 9740, 2663, 88, 435, "Input",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], +Cell[390941, 9830, 195, 3, 41, "Output",ExpressionUUID->"6682299a-2c01-45b1-94d1-196135a91d49"] }, Open ]], Cell[CellGroupData[{ -Cell[397377, 10132, 2030, 55, 109, "Input",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], -Cell[399410, 10189, 20326, 381, 299, "Output",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] +Cell[391173, 9838, 2603, 85, 435, "Input",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], +Cell[393779, 9925, 193, 3, 41, "Output",ExpressionUUID->"ff10ecb3-7b19-4445-a330-0f4f30af28d5"] }, Open ]], -Cell[419751, 10573, 2144, 61, 311, "Input",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], -Cell[421898, 10636, 138, 3, 36, "Input",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], Cell[CellGroupData[{ -Cell[422061, 10643, 1616, 48, 132, "Input",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], -Cell[423680, 10693, 592, 12, 118, "Message",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], -Cell[424275, 10707, 597, 12, 118, "Message",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], -Cell[424875, 10721, 599, 12, 109, "Message",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], -Cell[425477, 10735, 458, 10, 109, "Message",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], -Cell[425938, 10747, 172, 3, 109, "Output",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +Cell[394009, 9933, 3712, 118, 575, "Input",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], +Cell[397724, 10053, 197, 3, 41, "Output",ExpressionUUID->"52b7d852-482b-409c-81b6-9206a23a2b1d"] }, Open ]], Cell[CellGroupData[{ -Cell[426147, 10755, 2249, 64, 348, "Input",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], -Cell[428399, 10821, 576, 12, 98, "Message",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], -Cell[428978, 10835, 580, 12, 98, "Message",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], -Cell[429561, 10849, 582, 12, 98, "Message",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], -Cell[430146, 10863, 456, 10, 32, "Message",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], -Cell[430605, 10875, 171, 3, 41, "Output",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +Cell[397958, 10061, 2075, 59, 276, "Input",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], +Cell[400036, 10122, 665, 14, 73, "Message",ExpressionUUID->"3c14f35f-f236-44ae-a380-5700e3689bd9"], +Cell[400704, 10138, 661, 14, 73, "Message",ExpressionUUID->"ef271dab-7685-46da-b08a-704a79686727"], +Cell[401368, 10154, 664, 14, 73, "Message",ExpressionUUID->"9e05f686-58dc-4f5d-a9f4-575f4449937d"], +Cell[402035, 10170, 492, 11, 32, "Message",ExpressionUUID->"0c76eced-8973-4cdc-8a06-738af00de795"], +Cell[402530, 10183, 195, 3, 41, "Output",ExpressionUUID->"0a78b5ad-2f6e-4b2d-b4d3-cdff0ff385b1"] }, Open ]], Cell[CellGroupData[{ -Cell[430813, 10883, 2223, 64, 109, "Input",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], -Cell[433039, 10949, 574, 12, 109, "Message",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], -Cell[433616, 10963, 578, 12, 109, "Message",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], -Cell[434197, 10977, 580, 12, 109, "Message",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], -Cell[434780, 10991, 458, 10, 109, "Message",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], -Cell[435241, 11003, 173, 3, 109, "Output",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +Cell[402762, 10191, 2077, 59, 276, "Input",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], +Cell[404842, 10252, 663, 14, 73, "Message",ExpressionUUID->"5b5befa6-075c-42a1-9580-7635d4590d0f"], +Cell[405508, 10268, 661, 14, 73, "Message",ExpressionUUID->"ef5dfd63-308c-408a-854c-b8814a072d87"], +Cell[406172, 10284, 664, 14, 73, "Message",ExpressionUUID->"91f4c6e7-042f-4d3e-b1af-52b09ad77e87"], +Cell[406839, 10300, 490, 11, 32, "Message",ExpressionUUID->"ee35ade5-ea4b-46f4-930e-60dd8145a4ca"], +Cell[407332, 10313, 193, 3, 41, "Output",ExpressionUUID->"f7152761-7641-4b7c-a8a6-08b967b2290d"] }, Open ]], Cell[CellGroupData[{ -Cell[435451, 11011, 2221, 64, 109, "Input",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], -Cell[437675, 11077, 574, 12, 98, "Message",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], -Cell[438252, 11091, 578, 12, 98, "Message",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], -Cell[438833, 11105, 582, 12, 98, "Message",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], -Cell[439418, 11119, 455, 10, 32, "Message",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], -Cell[439876, 11131, 170, 3, 41, "Output",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +Cell[407562, 10321, 2053, 55, 232, "Input",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], +Cell[409618, 10378, 20264, 381, 295, "Output",ExpressionUUID->"f926ee03-cbe8-4083-946f-3f0bb8ec7c23"] }, Open ]], Cell[CellGroupData[{ -Cell[440083, 11139, 215, 6, 60, "Input",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], -Cell[440301, 11147, 174, 3, 41, "Output",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] +Cell[429919, 10764, 2166, 61, 311, "Input",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], +Cell[432088, 10827, 513, 12, 71, "Message",ExpressionUUID->"082da14c-b437-4dc1-b091-0bef5dc22f2f"], +Cell[432604, 10841, 516, 12, 71, "Message",ExpressionUUID->"b2fd08e6-d372-419e-8456-e89cdb49f31c"], +Cell[433123, 10855, 517, 12, 71, "Message",ExpressionUUID->"99e27857-c61e-4e37-aebb-7709eca084f0"], +Cell[433643, 10869, 467, 11, 32, "Message",ExpressionUUID->"357e10d4-1585-4d36-b1a2-ea16e3f5fcff"], +Cell[434113, 10882, 25603, 468, 290, "Output",ExpressionUUID->"16621394-0eaa-49d2-a5e6-2839a32d5d9b"] }, Open ]], -Cell[440490, 11153, 249, 5, 109, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], Cell[CellGroupData[{ -Cell[440764, 11162, 558, 19, 109, "Input",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], -Cell[441325, 11183, 169, 3, 109, "Output",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +Cell[459753, 11355, 164, 4, 36, "Input",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], +Cell[459920, 11361, 31987, 600, 290, "Output",ExpressionUUID->"7e59982f-95b2-48f6-b6ca-1cb32692cfa4"] }, Open ]], Cell[CellGroupData[{ -Cell[441531, 11191, 170, 5, 109, "Input",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], -Cell[441704, 11198, 173, 3, 109, "Output",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +Cell[491944, 11966, 1616, 48, 132, "Input",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], +Cell[493563, 12016, 664, 14, 73, "Message",ExpressionUUID->"b84ba43e-65ae-445a-839d-70202f0a1262"], +Cell[494230, 12032, 663, 14, 73, "Message",ExpressionUUID->"59b358d1-486f-40fd-a206-207da341071c"], +Cell[494896, 12048, 663, 14, 73, "Message",ExpressionUUID->"ba8a82bb-d209-40d1-810a-7afdf6d97899"], +Cell[495562, 12064, 492, 11, 32, "Message",ExpressionUUID->"65dd1a6f-c7d9-4c9e-8f6e-b63b56a612ff"], +Cell[496057, 12077, 196, 3, 41, "Output",ExpressionUUID->"b52bbf6d-d576-4975-a326-90129d8845d1"] }, Open ]], Cell[CellGroupData[{ -Cell[441914, 11206, 181, 5, 109, "Input",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], -Cell[442098, 11213, 173, 3, 109, "Output",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +Cell[496290, 12085, 2272, 64, 348, "Input",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], +Cell[498565, 12151, 665, 14, 73, "Message",ExpressionUUID->"b969fb60-0fae-43e9-89b2-89cc50a6458c"], +Cell[499233, 12167, 663, 14, 73, "Message",ExpressionUUID->"9ad9a178-4168-4a26-803a-641dfa4ff30e"], +Cell[499899, 12183, 664, 14, 73, "Message",ExpressionUUID->"23536de7-b1bf-49e5-a6f0-102d5b1bf5d0"], +Cell[500566, 12199, 492, 11, 32, "Message",ExpressionUUID->"d5ed2322-a97b-4d00-b196-d48154b8fde5"], +Cell[501061, 12212, 196, 3, 41, "Output",ExpressionUUID->"aa54b2c4-f1e8-4237-bf19-f8a11810f159"] }, Open ]], Cell[CellGroupData[{ -Cell[442308, 11221, 6055, 185, 109, "Input",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], -Cell[448366, 11408, 174, 3, 109, "Output",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +Cell[501294, 12220, 2235, 63, 348, "Input",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], +Cell[503532, 12285, 663, 14, 73, "Message",ExpressionUUID->"702298b1-1334-4939-a537-b4af0c7e68a0"], +Cell[504198, 12301, 661, 14, 73, "Message",ExpressionUUID->"cadf71ae-0c93-4724-a104-8a7004e63a62"], +Cell[504862, 12317, 662, 14, 73, "Message",ExpressionUUID->"6f90bbc4-5b3a-4dae-85b1-f1afa81cab61"], +Cell[505527, 12333, 490, 11, 32, "Message",ExpressionUUID->"91c65949-28e5-4b31-94cb-962b8498fcaa"], +Cell[506020, 12346, 195, 3, 41, "Output",ExpressionUUID->"534b7822-4b33-40ce-9ea8-ad57f100ad66"] }, Open ]], Cell[CellGroupData[{ -Cell[448577, 11416, 368, 9, 53, "Input",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], -Cell[448948, 11427, 172, 3, 41, "Output",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +Cell[506252, 12354, 2233, 63, 348, "Input",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], +Cell[508488, 12419, 663, 14, 73, "Message",ExpressionUUID->"77a8d7fb-c435-45cd-ac49-ade8202ecfcb"], +Cell[509154, 12435, 661, 14, 73, "Message",ExpressionUUID->"482d53b2-58b2-443c-8f73-9ed29309f1e5"], +Cell[509818, 12451, 661, 14, 73, "Message",ExpressionUUID->"4d92d00c-d576-4a53-b0c4-4c88c9ff9476"], +Cell[510482, 12467, 490, 11, 32, "Message",ExpressionUUID->"e40fc357-e9f3-46f9-98b7-cec03b2cba57"], +Cell[510975, 12480, 194, 3, 41, "Output",ExpressionUUID->"69a93c7e-0ff3-44e4-82bb-016aa7547783"] }, Open ]], Cell[CellGroupData[{ -Cell[449157, 11435, 6122, 187, 900, "Input",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], -Cell[455282, 11624, 172, 3, 41, "Output",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +Cell[511206, 12488, 238, 6, 60, "Input",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], +Cell[511447, 12496, 196, 3, 41, "Output",ExpressionUUID->"7cfeb152-dc32-44d7-bcc1-c7633027bc9a"] }, Open ]], +Cell[511658, 12502, 275, 6, 109, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], Cell[CellGroupData[{ -Cell[455491, 11632, 368, 9, 53, "Input",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], -Cell[455862, 11643, 170, 3, 41, "Output",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +Cell[511958, 12512, 558, 19, 66, "Input",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], +Cell[512519, 12533, 192, 3, 41, "Output",ExpressionUUID->"15c3e684-0dca-47d4-b12e-b52b0f3651e0"] }, Open ]], Cell[CellGroupData[{ -Cell[456069, 11651, 2663, 88, 435, "Input",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], -Cell[458735, 11741, 173, 3, 41, "Output",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +Cell[512748, 12541, 170, 5, 71, "Input",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], +Cell[512921, 12548, 194, 3, 41, "Output",ExpressionUUID->"a2ec13bf-398b-4cfa-8a06-75f0f637cc2d"] }, Open ]], Cell[CellGroupData[{ -Cell[458945, 11749, 2603, 85, 435, "Input",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], -Cell[461551, 11836, 172, 3, 41, "Output",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +Cell[513152, 12556, 181, 5, 55, "Input",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], +Cell[513336, 12563, 194, 3, 41, "Output",ExpressionUUID->"50662948-3bf7-49a7-9781-150a2d699d1a"] }, Open ]], Cell[CellGroupData[{ -Cell[461760, 11844, 3712, 118, 575, "Input",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], -Cell[465475, 11964, 172, 3, 41, "Output",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +Cell[513567, 12571, 6055, 185, 831, "Input",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], +Cell[519625, 12758, 197, 3, 41, "Output",ExpressionUUID->"0f37b32b-386d-4ffa-afc8-9d9a69569ecc"] }, Open ]], Cell[CellGroupData[{ -Cell[465684, 11972, 2052, 59, 276, "Input",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], -Cell[467739, 12033, 573, 12, 98, "Message",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], -Cell[468315, 12047, 573, 12, 98, "Message",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], -Cell[468891, 12061, 579, 12, 98, "Message",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], -Cell[469473, 12075, 458, 10, 32, "Message",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], -Cell[469934, 12087, 170, 3, 41, "Output",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +Cell[519859, 12766, 368, 9, 53, "Input",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], +Cell[520230, 12777, 196, 3, 41, "Output",ExpressionUUID->"7d88ff80-77dd-4421-a05c-c92bd58e76b4"] }, Open ]], Cell[CellGroupData[{ -Cell[470141, 12095, 2052, 59, 276, "Input",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], -Cell[472196, 12156, 573, 12, 98, "Message",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], -Cell[472772, 12170, 575, 12, 98, "Message",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], -Cell[473350, 12184, 579, 12, 98, "Message",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], -Cell[473932, 12198, 458, 10, 32, "Message",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], -Cell[474393, 12210, 169, 3, 41, "Output",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +Cell[520463, 12785, 6122, 187, 900, "Input",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], +Cell[526588, 12974, 194, 3, 41, "Output",ExpressionUUID->"0fa3df16-af29-4720-9eb1-2b74657e4f35"] }, Open ]], Cell[CellGroupData[{ -Cell[474599, 12218, 2028, 55, 109, "Input",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], -Cell[476630, 12275, 20296, 381, 109, "Output",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +Cell[526819, 12982, 368, 9, 53, "Input",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], +Cell[527190, 12993, 195, 3, 41, "Output",ExpressionUUID->"ce92b51c-3201-45d7-8b94-9a4125af5036"] }, Open ]], Cell[CellGroupData[{ -Cell[496963, 12661, 2146, 61, 109, "Input",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], -Cell[499112, 12724, 500, 11, 109, "Message",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], -Cell[499615, 12737, 505, 11, 109, "Message",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], -Cell[500123, 12750, 509, 11, 109, "Message",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], -Cell[500635, 12763, 458, 10, 109, "Message",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], -Cell[501096, 12775, 39609, 697, 109, "Output",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] +Cell[527422, 13001, 2663, 88, 435, "Input",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], +Cell[530088, 13091, 195, 3, 41, "Output",ExpressionUUID->"4f2423fe-8e35-42c0-967a-5e917789c99f"] }, Open ]], -Cell[540720, 13475, 209, 5, 109, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], Cell[CellGroupData[{ -Cell[540954, 13484, 1616, 48, 132, "Input",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], -Cell[542573, 13534, 589, 12, 118, "Message",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], -Cell[543165, 13548, 595, 12, 118, "Message",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], -Cell[543763, 13562, 596, 12, 118, "Message",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], -Cell[544362, 13576, 458, 10, 109, "Message",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], -Cell[544823, 13588, 171, 3, 109, "Output",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +Cell[530320, 13099, 2603, 85, 435, "Input",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], +Cell[532926, 13186, 193, 3, 41, "Output",ExpressionUUID->"ac7a8f6d-1d22-4a35-a311-179ea3db6d03"] }, Open ]], Cell[CellGroupData[{ -Cell[545031, 13596, 2249, 64, 109, "Input",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], -Cell[547283, 13662, 573, 12, 109, "Message",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], -Cell[547859, 13676, 573, 12, 98, "Message",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], -Cell[548435, 13690, 579, 12, 98, "Message",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], -Cell[549017, 13704, 458, 10, 32, "Message",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], -Cell[549478, 13716, 174, 3, 41, "Output",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +Cell[533156, 13194, 3712, 118, 575, "Input",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], +Cell[536871, 13314, 195, 3, 41, "Output",ExpressionUUID->"70f143f7-019e-48ac-b48d-5e797c3e486f"] }, Open ]], Cell[CellGroupData[{ -Cell[549689, 13724, 2221, 64, 348, "Input",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], -Cell[551913, 13790, 573, 12, 109, "Message",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], -Cell[552489, 13804, 575, 12, 109, "Message",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], -Cell[553067, 13818, 577, 12, 109, "Message",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], -Cell[553647, 13832, 456, 10, 109, "Message",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], -Cell[554106, 13844, 172, 3, 109, "Output",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +Cell[537103, 13322, 2075, 59, 276, "Input",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], +Cell[539181, 13383, 666, 14, 73, "Message",ExpressionUUID->"3617807f-61f3-46ef-8503-11f6573559f8"], +Cell[539850, 13399, 665, 14, 73, "Message",ExpressionUUID->"93d77dce-c828-445d-a857-900d36d1ff10"], +Cell[540518, 13415, 665, 14, 73, "Message",ExpressionUUID->"50ddd182-882c-4660-92d6-0b33ba5d39ae"], +Cell[541186, 13431, 492, 11, 32, "Message",ExpressionUUID->"fa8d5dda-f719-44bc-9cd3-066c3a29dde0"], +Cell[541681, 13444, 193, 3, 41, "Output",ExpressionUUID->"81a73603-4e7a-4823-9bb3-86a3030a4b0c"] }, Open ]], Cell[CellGroupData[{ -Cell[554315, 13852, 2219, 64, 109, "Input",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], -Cell[556537, 13918, 571, 12, 98, "Message",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], -Cell[557111, 13932, 573, 12, 98, "Message",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], -Cell[557687, 13946, 579, 12, 98, "Message",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], -Cell[558269, 13960, 458, 10, 32, "Message",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], -Cell[558730, 13972, 172, 3, 41, "Output",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +Cell[541911, 13452, 2075, 59, 276, "Input",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], +Cell[543989, 13513, 664, 14, 73, "Message",ExpressionUUID->"2f2f84ef-79e2-4fec-9e46-d1aed5a302b8"], +Cell[544656, 13529, 665, 14, 73, "Message",ExpressionUUID->"cdbe64fc-225a-4299-a642-c3e1b661b76f"], +Cell[545324, 13545, 665, 14, 73, "Message",ExpressionUUID->"91cd1a73-8179-4a50-9eea-7135108207fd"], +Cell[545992, 13561, 492, 11, 32, "Message",ExpressionUUID->"1375aa35-3dfb-434e-bad5-6db6b33eec54"], +Cell[546487, 13574, 191, 3, 41, "Output",ExpressionUUID->"b8a18591-eca8-4281-a2e0-b7ad6cb1c489"] }, Open ]], Cell[CellGroupData[{ -Cell[558939, 13980, 211, 6, 60, "Input",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], -Cell[559153, 13988, 174, 3, 41, "Output",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] +Cell[546715, 13582, 2051, 55, 232, "Input",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], +Cell[548769, 13639, 20104, 380, 295, "Output",ExpressionUUID->"f43f279c-65cb-4dd5-86db-1b9ddcea96f0"] }, Open ]], -Cell[559342, 13994, 186, 4, 36, "Input",ExpressionUUID->"15fe0063-8d53-48a3-a28b-6c80f458e893"] +Cell[CellGroupData[{ +Cell[568910, 14024, 2168, 61, 311, "Input",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], +Cell[571081, 14087, 534, 12, 71, "Message",ExpressionUUID->"5d5899f4-5c89-4eff-b36e-c168e26587e3"], +Cell[571618, 14101, 540, 12, 71, "Message",ExpressionUUID->"4be24323-1106-45ac-b58e-5f9ecb617805"], +Cell[572161, 14115, 543, 12, 71, "Message",ExpressionUUID->"781712e1-504b-4091-8cb8-edde7d54d6d5"], +Cell[572707, 14129, 492, 11, 32, "Message",ExpressionUUID->"ff619e96-bc5c-483d-a559-eb9b9e741d26"], +Cell[573202, 14142, 24841, 456, 290, "Output",ExpressionUUID->"5cf057b3-04ef-457d-b1db-b5c255fa0359"] +}, Open ]], +Cell[CellGroupData[{ +Cell[598080, 14603, 232, 5, 36, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], +Cell[598315, 14610, 31199, 588, 290, "Output",ExpressionUUID->"931f56e5-4c92-4ebb-aa31-13d5ad750e8a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[629551, 15203, 1616, 48, 132, "Input",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], +Cell[631170, 15253, 663, 14, 73, "Message",ExpressionUUID->"fad7c9bf-3ce6-4157-afa3-13d6d0c6398f"], +Cell[631836, 15269, 660, 14, 73, "Message",ExpressionUUID->"2b1e9e0c-56ab-4914-968c-118daac3c4f1"], +Cell[632499, 15285, 661, 14, 73, "Message",ExpressionUUID->"6cacf530-d3c2-4f9f-9001-a0c91466f784"], +Cell[633163, 15301, 491, 11, 32, "Message",ExpressionUUID->"ebdad93d-a7c0-4e63-ad45-cb08ed94d1a0"], +Cell[633657, 15314, 193, 3, 41, "Output",ExpressionUUID->"58f8f0a9-a4a5-4e43-a991-94b352154346"] +}, Open ]], +Cell[CellGroupData[{ +Cell[633887, 15322, 2272, 64, 348, "Input",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], +Cell[636162, 15388, 664, 14, 73, "Message",ExpressionUUID->"a2699a1f-412f-47b7-ba8a-542a29109d71"], +Cell[636829, 15404, 664, 14, 73, "Message",ExpressionUUID->"5af18269-5c6d-4fae-ba42-15bf08c3be8b"], +Cell[637496, 15420, 667, 14, 73, "Message",ExpressionUUID->"726c2bd3-c504-4d20-9592-9b27fc7da532"], +Cell[638166, 15436, 492, 11, 32, "Message",ExpressionUUID->"a12d6f4a-fb8e-47a1-bd30-c7d585c7b37f"], +Cell[638661, 15449, 197, 3, 41, "Output",ExpressionUUID->"aafed66b-6c31-436d-8ebc-46674058be53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[638895, 15457, 2233, 63, 348, "Input",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], +Cell[641131, 15522, 666, 14, 73, "Message",ExpressionUUID->"551d6df1-6777-4ba0-a7ee-c02c517b69fd"], +Cell[641800, 15538, 667, 14, 73, "Message",ExpressionUUID->"6f3b0e7d-873e-4c03-b616-e2ff2f37856f"], +Cell[642470, 15554, 667, 14, 73, "Message",ExpressionUUID->"185a8bc9-d861-4d8d-95c0-a0835331cb7a"], +Cell[643140, 15570, 492, 11, 32, "Message",ExpressionUUID->"f5e722b8-4c3d-4d26-beeb-738b43b1e811"], +Cell[643635, 15583, 195, 3, 41, "Output",ExpressionUUID->"bd855887-d318-4c72-9796-3dc0c8e49129"] +}, Open ]], +Cell[CellGroupData[{ +Cell[643867, 15591, 2231, 63, 348, "Input",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], +Cell[646101, 15656, 662, 14, 73, "Message",ExpressionUUID->"956c172d-f69c-4c4d-aff8-0929f59520c4"], +Cell[646766, 15672, 662, 14, 73, "Message",ExpressionUUID->"44521301-6fcb-471d-ac33-4d7e46906f8f"], +Cell[647431, 15688, 663, 14, 73, "Message",ExpressionUUID->"36481de8-7f67-4bbd-9a72-be3e98522069"], +Cell[648097, 15704, 489, 11, 32, "Message",ExpressionUUID->"4f9a5346-4ed3-43ca-941d-390512813b05"], +Cell[648589, 15717, 194, 3, 41, "Output",ExpressionUUID->"b3ffaf0c-1804-4437-ae27-30eb1d743e91"] +}, Open ]], +Cell[CellGroupData[{ +Cell[648820, 15725, 234, 6, 60, "Input",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], +Cell[649057, 15733, 196, 3, 41, "Output",ExpressionUUID->"917a6096-6151-41ee-8815-cd804cef237d"] +}, Open ]], +Cell[649268, 15739, 209, 4, 109, "Input",ExpressionUUID->"15fe0063-8d53-48a3-a28b-6c80f458e893"] } ] *) +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_gid_Qw2.nb b/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_gid_Qw2.nb index ea82b1c..cff67ab 100644 --- a/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_gid_Qw2.nb +++ b/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_gid_Qw2.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 457946, 13435] -NotebookOptionsPosition[ 419383, 12819] -NotebookOutlinePosition[ 419795, 12836] -CellTagsIndexPosition[ 419752, 12833] +NotebookDataLength[ 673074, 16189] +NotebookOptionsPosition[ 632497, 15540] +NotebookOutlinePosition[ 632926, 15558] +CellTagsIndexPosition[ 632883, 15555] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -25,15 +25,14 @@ Cell[BoxData[ CellChangeTimes->{ 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, 3.9920650045886707`*^9, {3.993816332414463*^9, 3.993816395113246*^9}, { - 3.99408327105175*^9, - 3.99408327225659*^9}},ExpressionUUID->"d303ed45-c1a3-4b14-8f66-\ -b10f36d962f0"], + 3.99408327105175*^9, 3.99408327225659*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"d303ed45-c1a3-4b14-8f66-b10f36d962f0"], Cell[BoxData["1.78`"], "Output", CellChangeTimes->{ - 3.991320420900818*^9, {3.9938163104908867`*^9, 3.993816400323968*^9}}, - CellLabel-> - "Out[407]=",ExpressionUUID->"070e4a52-525e-44c8-99c6-719af0639bb7"] + 3.991320420900818*^9, {3.9938163104908867`*^9, 3.993816400323968*^9}, + 3.994256189900653*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"986af61e-f066-4cdc-8c20-e992682c37ec"] }, Open ]], Cell[CellGroupData[{ @@ -42,14 +41,13 @@ Cell[BoxData[ RowBox[{"A", "=", "240"}]], "Input", CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { 3.993816070416484*^9, 3.9938160711424847`*^9}}, - CellLabel-> - "In[408]:=",ExpressionUUID->"701ec475-b89f-4bab-98d2-9d586513a0c7"], + CellLabel->"In[2]:=",ExpressionUUID->"701ec475-b89f-4bab-98d2-9d586513a0c7"], Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.9913196497381973`*^9, {3.993816310783677*^9, 3.9938164003801527`*^9}}, - CellLabel-> - "Out[408]=",ExpressionUUID->"48310c09-ecea-48f9-9571-88d8f38dccf2"] + 3.9913196497381973`*^9, {3.993816310783677*^9, 3.9938164003801527`*^9}, + 3.994256189969751*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"e04505c3-3b7d-4a21-b0d0-8808642b0eb3"] }, Open ]], Cell[CellGroupData[{ @@ -58,14 +56,13 @@ Cell[BoxData[ RowBox[{"A1", "=", "164"}]], "Input", CellChangeTimes->{ 3.991798961431202*^9, {3.993816075114204*^9, 3.993816075786501*^9}}, - CellLabel-> - "In[409]:=",ExpressionUUID->"5793edf2-6fe4-46c4-a112-de1d147d0d8a"], + CellLabel->"In[3]:=",ExpressionUUID->"5793edf2-6fe4-46c4-a112-de1d147d0d8a"], Cell[BoxData["164"], "Output", CellChangeTimes->{ - 3.9913196497578354`*^9, {3.99381631080079*^9, 3.9938164003966837`*^9}}, - CellLabel-> - "Out[409]=",ExpressionUUID->"5d30e475-70f4-4b78-9b69-4b4bf8a78b72"] + 3.9913196497578354`*^9, {3.99381631080079*^9, 3.9938164003966837`*^9}, + 3.994256190017947*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"ab00fb53-fa8a-4eec-9888-2699227eaea7"] }, Open ]], Cell[CellGroupData[{ @@ -73,14 +70,13 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, - CellLabel-> - "In[410]:=",ExpressionUUID->"6005175a-0fcb-4adf-bf6c-276191010b9c"], + CellLabel->"In[4]:=",ExpressionUUID->"6005175a-0fcb-4adf-bf6c-276191010b9c"], Cell[BoxData["0.55`"], "Output", CellChangeTimes->{ - 3.991319649777508*^9, {3.9938163108190804`*^9, 3.99381640041328*^9}}, - CellLabel-> - "Out[410]=",ExpressionUUID->"56131d3d-e7bf-423f-9a99-038b16e2d991"] + 3.991319649777508*^9, {3.9938163108190804`*^9, 3.99381640041328*^9}, + 3.994256190024259*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"f763efba-9781-471d-96c7-ad0c47af70c4"] }, Open ]], Cell[CellGroupData[{ @@ -92,28 +88,26 @@ Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", - CellLabel-> - "In[411]:=",ExpressionUUID->"e803105c-cfee-4637-a232-3efa83d154ad"], + CellLabel->"In[5]:=",ExpressionUUID->"e803105c-cfee-4637-a232-3efa83d154ad"], Cell[BoxData["0.5445000000000001`"], "Output", CellChangeTimes->{ - 3.9913196497965145`*^9, {3.99381631083608*^9, 3.9938164004361677`*^9}}, - CellLabel-> - "Out[411]=",ExpressionUUID->"e3a7dca1-0daa-4a70-af2b-8070dd0c7763"] + 3.9913196497965145`*^9, {3.99381631083608*^9, 3.9938164004361677`*^9}, + 3.994256190030807*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"66b3cbbe-ab8d-433c-9d9e-f7b56dd89e8f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", - CellLabel-> - "In[412]:=",ExpressionUUID->"0b87c224-acf8-43f2-ae1e-d055537656b1"], + CellLabel->"In[6]:=",ExpressionUUID->"0b87c224-acf8-43f2-ae1e-d055537656b1"], Cell[BoxData["0.17`"], "Output", CellChangeTimes->{ - 3.9913196498144608`*^9, {3.99381631085299*^9, 3.99381640045368*^9}}, - CellLabel-> - "Out[412]=",ExpressionUUID->"da26512d-e6bb-4e03-a414-ef499287f62a"] + 3.9913196498144608`*^9, {3.99381631085299*^9, 3.99381640045368*^9}, + 3.9942561900358267`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"8121476d-8e2a-462a-a487-80e665e86f2c"] }, Open ]], Cell[CellGroupData[{ @@ -124,14 +118,13 @@ Cell[BoxData[ SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}]}]], "Input", CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, - CellLabel-> - "In[413]:=",ExpressionUUID->"7f5f817c-1099-4b82-a283-2ddfd7bf8cbe"], + CellLabel->"In[7]:=",ExpressionUUID->"7f5f817c-1099-4b82-a283-2ddfd7bf8cbe"], Cell[BoxData["6.349496262766175`"], "Output", CellChangeTimes->{ - 3.9913196498225155`*^9, {3.993816310870123*^9, 3.993816400471637*^9}}, - CellLabel-> - "Out[413]=",ExpressionUUID->"1e07203b-cc26-464e-b100-3f87c717e972"] + 3.9913196498225155`*^9, {3.993816310870123*^9, 3.993816400471637*^9}, + 3.99425619004221*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"d66cc419-456e-4735-81fe-7ae6b7995fd3"] }, Open ]], Cell[CellGroupData[{ @@ -143,14 +136,13 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", - CellLabel-> - "In[414]:=",ExpressionUUID->"de1da203-69eb-421a-8d24-da53d1bf565a"], + CellLabel->"In[8]:=",ExpressionUUID->"de1da203-69eb-421a-8d24-da53d1bf565a"], Cell[BoxData["4.913555357735675`"], "Output", CellChangeTimes->{ - 3.9913196498425236`*^9, {3.993816310887587*^9, 3.993816400489262*^9}}, - CellLabel-> - "Out[414]=",ExpressionUUID->"a31ccf1c-97d3-4f0e-b17c-809b97470d85"] + 3.9913196498425236`*^9, {3.993816310887587*^9, 3.993816400489262*^9}, + 3.994256190048517*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"be310a28-c4df-4991-90af-dab8508603a8"] }, Open ]], Cell[CellGroupData[{ @@ -159,13 +151,12 @@ Cell[BoxData[ RowBox[{"b1", "=", "0.96357"}]], "Input", CellChangeTimes->{ 3.991799283179735*^9, {3.993816155315236*^9, 3.99381616557413*^9}}, - CellLabel-> - "In[415]:=",ExpressionUUID->"a133035a-e138-4dae-a551-37d8cbc7c7ed"], + CellLabel->"In[9]:=",ExpressionUUID->"a133035a-e138-4dae-a551-37d8cbc7c7ed"], Cell[BoxData["0.96357`"], "Output", - CellChangeTimes->{{3.9938163109056883`*^9, 3.993816400504654*^9}}, - CellLabel-> - "Out[415]=",ExpressionUUID->"319f64cb-bcee-4f50-92e8-689577ce13d0"] + CellChangeTimes->{{3.9938163109056883`*^9, 3.993816400504654*^9}, + 3.994256190053454*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"d7c5b602-21dc-4625-a50e-cc2530c046d1"] }, Open ]], Cell[CellGroupData[{ @@ -174,41 +165,38 @@ Cell[BoxData[ RowBox[{"b2", "=", "0.39003"}]], "Input", CellChangeTimes->{ 3.991799280663351*^9, {3.993816167313641*^9, 3.9938161733246517`*^9}}, - CellLabel-> - "In[416]:=",ExpressionUUID->"f971fe46-85ac-4caa-bd79-8068f5f3b584"], + CellLabel->"In[10]:=",ExpressionUUID->"f971fe46-85ac-4caa-bd79-8068f5f3b584"], Cell[BoxData["0.39003`"], "Output", - CellChangeTimes->{{3.993816310923224*^9, 3.993816400519388*^9}}, - CellLabel-> - "Out[416]=",ExpressionUUID->"c1edc9fc-975a-4b91-b24a-cb4b147614ac"] + CellChangeTimes->{{3.993816310923224*^9, 3.993816400519388*^9}, + 3.994256190059689*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"9ff2229e-a493-4782-89d2-aa8674c1df20"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", - CellLabel-> - "In[417]:=",ExpressionUUID->"db003323-685f-4eb4-b3f8-41d3f48a6862"], + CellLabel->"In[11]:=",ExpressionUUID->"db003323-685f-4eb4-b3f8-41d3f48a6862"], Cell[BoxData["0"], "Output", CellChangeTimes->{ - 3.9913196498927155`*^9, {3.993816310942574*^9, 3.993816400534342*^9}}, - CellLabel-> - "Out[417]=",ExpressionUUID->"2112f792-3cc4-468b-b530-7a7d853d7452"] + 3.9913196498927155`*^9, {3.993816310942574*^9, 3.993816400534342*^9}, + 3.994256190064646*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"bdf01d06-9473-481c-aacb-0943b56adfd1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", - CellLabel-> - "In[418]:=",ExpressionUUID->"68f8b6c6-9a63-49c0-a0fa-9b6641687ec7"], + CellLabel->"In[12]:=",ExpressionUUID->"68f8b6c6-9a63-49c0-a0fa-9b6641687ec7"], Cell[BoxData["0"], "Output", CellChangeTimes->{ - 3.9913196498996067`*^9, {3.993816310960237*^9, 3.993816400549685*^9}}, - CellLabel-> - "Out[418]=",ExpressionUUID->"67813ae2-7479-4056-96e1-84cc06d2bc0e"] + 3.9913196498996067`*^9, {3.993816310960237*^9, 3.993816400549685*^9}, + 3.9942561900711393`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"e093fdf9-27f0-47e0-9105-8fdfe6263423"] }, Open ]], Cell[CellGroupData[{ @@ -232,14 +220,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[419]:=",ExpressionUUID->"0cb9f5f7-aaa3-4f85-90b3-70b154d6fca2"], + CellLabel->"In[13]:=",ExpressionUUID->"0cb9f5f7-aaa3-4f85-90b3-70b154d6fca2"], Cell[BoxData["2.4652625900301657`"], "Output", CellChangeTimes->{ - 3.9913197863028755`*^9, {3.993816310977528*^9, 3.993816400564805*^9}}, - CellLabel-> - "Out[419]=",ExpressionUUID->"8e6cf7ab-6285-46a8-adef-c930d44f0ba5"] + 3.9913197863028755`*^9, {3.993816310977528*^9, 3.993816400564805*^9}, + 3.994256190077951*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"d88d8ac1-0bbe-475c-a02b-1d30cc62c88a"] }, Open ]], Cell[CellGroupData[{ @@ -263,14 +250,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[420]:=",ExpressionUUID->"5ab7da97-b7aa-45ec-91dc-f1953d564c11"], + CellLabel->"In[14]:=",ExpressionUUID->"5ab7da97-b7aa-45ec-91dc-f1953d564c11"], Cell[BoxData["1.4266899039519758`"], "Output", CellChangeTimes->{ - 3.9913197864610195`*^9, {3.993816310993836*^9, 3.993816400579666*^9}}, - CellLabel-> - "Out[420]=",ExpressionUUID->"288463c0-af4c-46e4-9e9a-a050711a7ceb"] + 3.9913197864610195`*^9, {3.993816310993836*^9, 3.993816400579666*^9}, + 3.994256190083547*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"c7f5f4a7-a039-4294-bbb7-838c78e30cc3"] }, Open ]], Cell[CellGroupData[{ @@ -325,14 +311,13 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[421]:=",ExpressionUUID->"67081942-2246-4cf3-a954-423246e0fde3"], + CellLabel->"In[15]:=",ExpressionUUID->"67081942-2246-4cf3-a954-423246e0fde3"], Cell[BoxData["0.3750149455401738`"], "Output", CellChangeTimes->{ - 3.991319786533783*^9, {3.993816311010377*^9, 3.993816400594367*^9}}, - CellLabel-> - "Out[421]=",ExpressionUUID->"7c9fb910-ac3c-493b-a787-da95d7f1de02"] + 3.991319786533783*^9, {3.993816311010377*^9, 3.993816400594367*^9}, + 3.99425619008934*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"e9ac3a93-e71a-424a-b025-5bd03d4bbbd4"] }, Open ]], Cell[CellGroupData[{ @@ -383,24 +368,39 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[422]:=",ExpressionUUID->"ac5da6a8-ff11-440c-bd29-59e5a7c3a7d4"], + CellLabel->"In[16]:=",ExpressionUUID->"ac5da6a8-ff11-440c-bd29-59e5a7c3a7d4"], Cell[BoxData[ RowBox[{"-", "0.07977775132414705`"}]], "Output", CellChangeTimes->{ - 3.991319786540777*^9, {3.993816311027995*^9, 3.9938164006102667`*^9}}, - CellLabel-> - "Out[422]=",ExpressionUUID->"4278249a-28fd-4dea-bfe1-40afc061efb0"] + 3.991319786540777*^9, {3.993816311027995*^9, 3.9938164006102667`*^9}, + 3.994256190094975*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"9e3d289b-46fc-43ac-90ce-4ebfd8dadebf"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c21", "=", - FractionBox[ - RowBox[{ - RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ RowBox[{"R01", "*", RowBox[{"(", RowBox[{"1", "-", @@ -410,45 +410,30 @@ Cell[BoxData[ RowBox[{"b1", "*", SqrtBox[ FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", - RowBox[{"(", - RowBox[{"1", "-", - SuperscriptBox["w1", "2"]}], ")"}]}], - RowBox[{ - RowBox[{"R01", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b1", "*", "b1"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b1", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w2", "2"]}], "+", - RowBox[{"R02", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b2", "*", "b2"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b2", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w1", "2"]}], "+", - RowBox[{"d", "*", - SuperscriptBox["w2", "2"], "*", - SuperscriptBox["w1", "2"]}]}]]}]], "Input", - CellLabel-> - "In[423]:=",ExpressionUUID->"2822002c-dcda-42c6-8589-3afc9e02d990"], + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"2822002c-dcda-42c6-8589-3afc9e02d990"], Cell[BoxData[ RowBox[{"-", "0.6284430544064189`"}]], "Output", CellChangeTimes->{ - 3.9913197865777817`*^9, {3.993816311033072*^9, 3.993816400624234*^9}}, - CellLabel-> - "Out[423]=",ExpressionUUID->"19acbecd-f218-4d5e-a673-5e364855eb81"] + 3.9913197865777817`*^9, {3.993816311033072*^9, 3.993816400624234*^9}, + 3.994256190100658*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"315cc47e-3ab0-4695-b91f-cba64bf47a01"] }, Open ]], Cell[CellGroupData[{ @@ -503,56 +488,52 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[424]:=",ExpressionUUID->"967fa8d1-b61b-461f-8a2a-4a1f700753ee"], + CellLabel->"In[18]:=",ExpressionUUID->"967fa8d1-b61b-461f-8a2a-4a1f700753ee"], Cell[BoxData["0.7294972450656219`"], "Output", CellChangeTimes->{ - 3.9913197866129*^9, {3.993816311062511*^9, 3.993816400639195*^9}}, - CellLabel-> - "Out[424]=",ExpressionUUID->"cc093211-846f-4a1b-b175-c1fa85be212a"] + 3.9913197866129*^9, {3.993816311062511*^9, 3.993816400639195*^9}, + 3.994256190106091*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"b3d8cbc0-bff8-4a66-b3fc-4013ba88bd0f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", - CellLabel-> - "In[425]:=",ExpressionUUID->"65107622-afe8-45c6-b172-0e7c4d49ad65"], + CellLabel->"In[19]:=",ExpressionUUID->"65107622-afe8-45c6-b172-0e7c4d49ad65"], Cell[BoxData["300"], "Output", CellChangeTimes->{ - 3.991319786620775*^9, {3.9938163110790157`*^9, 3.993816400654043*^9}}, - CellLabel-> - "Out[425]=",ExpressionUUID->"adfaf786-0c23-46ca-8878-3fc99bbf12f4"] + 3.991319786620775*^9, {3.9938163110790157`*^9, 3.993816400654043*^9}, + 3.994256190111268*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"64f467dd-c3ad-4f89-872f-8ec630bd298f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fin", "=", "0.09"}]], "Input", - CellLabel-> - "In[426]:=",ExpressionUUID->"5c49f85b-d5cf-4e2e-8b22-0685586394ae"], + CellLabel->"In[20]:=",ExpressionUUID->"5c49f85b-d5cf-4e2e-8b22-0685586394ae"], Cell[BoxData["0.09`"], "Output", CellChangeTimes->{ - 3.991319786657793*^9, {3.99381631109599*^9, 3.993816400670066*^9}}, - CellLabel-> - "Out[426]=",ExpressionUUID->"8deacd12-0357-415a-adad-699e85aedc35"] + 3.991319786657793*^9, {3.99381631109599*^9, 3.993816400670066*^9}, + 3.994256190117853*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"f064f669-73e7-4da7-a5ae-3efb72f928f3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffin", "=", "0.42"}]], "Input", - CellLabel-> - "In[427]:=",ExpressionUUID->"2b47516a-2f11-4580-bb32-5f52aaf28daf"], + CellLabel->"In[21]:=",ExpressionUUID->"2b47516a-2f11-4580-bb32-5f52aaf28daf"], Cell[BoxData["0.42`"], "Output", CellChangeTimes->{ - 3.9913197866657925`*^9, {3.99381631111339*^9, 3.99381640068589*^9}}, - CellLabel-> - "Out[427]=",ExpressionUUID->"e4d146ce-c48a-44de-816d-1c7dec07bac2"] + 3.9913197866657925`*^9, {3.99381631111339*^9, 3.99381640068589*^9}, + 3.994256190123328*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"6af40e46-790a-4721-976f-97a2e8312a94"] }, Open ]], Cell[CellGroupData[{ @@ -561,29 +542,27 @@ Cell[BoxData[ RowBox[{"fex", "=", RowBox[{"-", "2.59"}]}]], "Input", CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, - CellLabel-> - "In[428]:=",ExpressionUUID->"5877abe8-d663-4922-925b-e0c6bdd91625"], + CellLabel->"In[22]:=",ExpressionUUID->"5877abe8-d663-4922-925b-e0c6bdd91625"], Cell[BoxData[ RowBox[{"-", "2.59`"}]], "Output", CellChangeTimes->{ - 3.9913197866996*^9, {3.993816311129064*^9, 3.993816400702038*^9}}, - CellLabel-> - "Out[428]=",ExpressionUUID->"de438067-0530-4c64-a916-b83b6ef6100e"] + 3.9913197866996*^9, {3.993816311129064*^9, 3.993816400702038*^9}, + 3.994256190128562*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"34f2a0d8-9c97-4aaf-ab75-9691e1a9fa8a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffex", "=", "0.54"}]], "Input", - CellLabel-> - "In[429]:=",ExpressionUUID->"3aa4d10c-2dfd-430e-b550-11b46b0477c3"], + CellLabel->"In[23]:=",ExpressionUUID->"3aa4d10c-2dfd-430e-b550-11b46b0477c3"], Cell[BoxData["0.54`"], "Output", CellChangeTimes->{ - 3.9913197867406044`*^9, {3.993816311145554*^9, 3.9938164007190237`*^9}}, - CellLabel-> - "Out[429]=",ExpressionUUID->"22fa14b3-41b3-400a-9bfd-f5623044eca5"] + 3.9913197867406044`*^9, {3.993816311145554*^9, 3.9938164007190237`*^9}, + 3.9942561901338177`*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"551876dc-afe8-4766-aa41-bdef764bc428"] }, Open ]], Cell[CellGroupData[{ @@ -593,14 +572,13 @@ Cell[BoxData[ CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { 3.9938161841110783`*^9, 3.9938161842569923`*^9}}, - CellLabel-> - "In[430]:=",ExpressionUUID->"e7216b43-b306-4d81-963b-38a3393544f9"], + CellLabel->"In[24]:=",ExpressionUUID->"e7216b43-b306-4d81-963b-38a3393544f9"], Cell[BoxData["66"], "Output", CellChangeTimes->{ - 3.9913197867861958`*^9, {3.993816311161642*^9, 3.993816400736003*^9}}, - CellLabel-> - "Out[430]=",ExpressionUUID->"a9ec36ee-806e-4330-9ccd-bae62826f734"] + 3.9913197867861958`*^9, {3.993816311161642*^9, 3.993816400736003*^9}, + 3.994256190141057*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"33446b59-6406-4a55-9bd6-1b2a973077d3"] }, Open ]], Cell[CellGroupData[{ @@ -610,14 +588,13 @@ Cell[BoxData[ RowBox[{"94", "-", "Z1"}]}]], "Input", CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, 3.9916443064841423`*^9, {3.9938161866045017`*^9, 3.99381618669993*^9}}, - CellLabel-> - "In[431]:=",ExpressionUUID->"ddadd5a9-a1b0-4a74-bd9d-5b52410c5566"], + CellLabel->"In[25]:=",ExpressionUUID->"ddadd5a9-a1b0-4a74-bd9d-5b52410c5566"], Cell[BoxData["28"], "Output", CellChangeTimes->{ - 3.9913197867928696`*^9, {3.993816311177599*^9, 3.993816400757028*^9}}, - CellLabel-> - "Out[431]=",ExpressionUUID->"19102fbd-8883-4973-ae9d-bd88bf65ec4c"] + 3.9913197867928696`*^9, {3.993816311177599*^9, 3.993816400757028*^9}, + 3.9942561901480417`*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"43b9fa67-a86c-4983-bfbd-fde6b65999d9"] }, Open ]], Cell[CellGroupData[{ @@ -626,14 +603,13 @@ Cell[BoxData[ RowBox[{"A2", "=", RowBox[{"A", "-", "A1"}]}]], "Input", CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, - CellLabel-> - "In[432]:=",ExpressionUUID->"ef729b71-0db6-4e5a-9ba6-569c9378ee5b"], + CellLabel->"In[26]:=",ExpressionUUID->"ef729b71-0db6-4e5a-9ba6-569c9378ee5b"], Cell[BoxData["76"], "Output", CellChangeTimes->{ - 3.991319786827894*^9, {3.993816311193193*^9, 3.993816400775269*^9}}, - CellLabel-> - "Out[432]=",ExpressionUUID->"1d23d63e-55bc-4f99-9a9f-339b401304cc"] + 3.991319786827894*^9, {3.993816311193193*^9, 3.993816400775269*^9}, + 3.9942561901554203`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"77fc7e34-1571-4652-a299-0dd3d88c995a"] }, Open ]], Cell[CellGroupData[{ @@ -648,14 +624,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[433]:=",ExpressionUUID->"bf5fef2f-39eb-4128-8c53-56f91d769aff"], + CellLabel->"In[27]:=",ExpressionUUID->"bf5fef2f-39eb-4128-8c53-56f91d769aff"], Cell[BoxData["0.11156611039794609`"], "Output", CellChangeTimes->{ - 3.9913197868648605`*^9, {3.993816311209059*^9, 3.993816400793248*^9}}, - CellLabel-> - "Out[433]=",ExpressionUUID->"cf379a31-935f-452f-87af-498f6d02d89b"] + 3.9913197868648605`*^9, {3.993816311209059*^9, 3.993816400793248*^9}, + 3.994256190162768*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"124c2490-d737-402a-9a5d-37a953fefc2f"] }, Open ]], Cell[CellGroupData[{ @@ -670,15 +645,14 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[434]:=",ExpressionUUID->"337c6000-eab8-41a7-959a-18959e16d72c"], + CellLabel->"In[28]:=",ExpressionUUID->"337c6000-eab8-41a7-959a-18959e16d72c"], Cell[BoxData[ RowBox[{"-", "2.562272143774069`"}]], "Output", CellChangeTimes->{ - 3.9913197868718567`*^9, {3.993816311224965*^9, 3.993816400810424*^9}}, - CellLabel-> - "Out[434]=",ExpressionUUID->"a1304c3a-6c43-4bde-9f95-89331d639ea8"] + 3.9913197868718567`*^9, {3.993816311224965*^9, 3.993816400810424*^9}, + 3.9942561901693897`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"56ccd0d6-1dd9-4558-9f2d-e65091e60a39"] }, Open ]], Cell[CellGroupData[{ @@ -709,14 +683,13 @@ Cell[BoxData[ CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, - CellLabel-> - "In[435]:=",ExpressionUUID->"96af02e7-d9eb-44ea-87d7-e937821ddb9a"], + CellLabel->"In[29]:=",ExpressionUUID->"96af02e7-d9eb-44ea-87d7-e937821ddb9a"], Cell[BoxData["17.58253870834664`"], "Output", CellChangeTimes->{ - 3.9913197869068584`*^9, {3.993816311240906*^9, 3.9938164008326178`*^9}}, - CellLabel-> - "Out[435]=",ExpressionUUID->"5b13add6-f111-4ab3-ba77-605ba02abf41"] + 3.9913197869068584`*^9, {3.993816311240906*^9, 3.9938164008326178`*^9}, + 3.994256190174872*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"28cfa655-652c-403c-9884-075d0115ee21"] }, Open ]], Cell[CellGroupData[{ @@ -724,14 +697,13 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, - CellLabel-> - "In[436]:=",ExpressionUUID->"1d1c7c2d-e048-4cb5-ac44-94fe39bbc733"], + CellLabel->"In[30]:=",ExpressionUUID->"1d1c7c2d-e048-4cb5-ac44-94fe39bbc733"], Cell[BoxData["300"], "Output", CellChangeTimes->{ - 3.991319786940857*^9, {3.993816311257287*^9, 3.993816400852189*^9}}, - CellLabel-> - "Out[436]=",ExpressionUUID->"3a81e8db-0d7f-4448-94b9-b872c0a6541a"] + 3.991319786940857*^9, {3.993816311257287*^9, 3.993816400852189*^9}, + 3.994256190180336*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"32d3f37b-230b-497d-b91a-94dc19878786"] }, Open ]], Cell[CellGroupData[{ @@ -741,19 +713,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, 3.993816201054872*^9}, - CellLabel-> - "In[437]:=",ExpressionUUID->"c834cebe-bb4f-4f37-bd8f-348f1622bf9e"], + CellLabel->"In[31]:=",ExpressionUUID->"c834cebe-bb4f-4f37-bd8f-348f1622bf9e"], Cell[BoxData["2"], "Output", - CellChangeTimes->{{3.99381631127295*^9, 3.993816400871359*^9}}, - CellLabel-> - "Out[437]=",ExpressionUUID->"5bfafe20-e096-4ba6-9d0a-8940c1a68df5"] + CellChangeTimes->{{3.99381631127295*^9, 3.993816400871359*^9}, + 3.9942561901873617`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"df9181c9-fff5-42b0-b995-81bb0bc9108e"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, - CellLabel-> - "In[438]:=",ExpressionUUID->"2766c3a7-b794-4d5d-9fbd-ae6b52f5e5a7"], + CellLabel->"In[32]:=",ExpressionUUID->"2766c3a7-b794-4d5d-9fbd-ae6b52f5e5a7"], Cell[CellGroupData[{ @@ -762,19 +732,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { 3.993816204826747*^9, 3.993816206119349*^9}}, - CellLabel-> - "In[439]:=",ExpressionUUID->"ebb63679-94ec-4fc4-93ac-6da663d01406"], + CellLabel->"In[33]:=",ExpressionUUID->"ebb63679-94ec-4fc4-93ac-6da663d01406"], Cell[BoxData["0.805`"], "Output", - CellChangeTimes->{{3.9938163113036537`*^9, 3.993816400895072*^9}}, - CellLabel-> - "Out[439]=",ExpressionUUID->"68aa2554-7239-499b-98b6-1ec530df400c"] + CellChangeTimes->{{3.9938163113036537`*^9, 3.993816400895072*^9}, + 3.9942561902003098`*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"eadcbf20-b5ef-430d-acd2-288910a5298d"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, - CellLabel-> - "In[440]:=",ExpressionUUID->"9b8e2465-1314-4817-89d3-051295558029"], + CellLabel->"In[34]:=",ExpressionUUID->"9b8e2465-1314-4817-89d3-051295558029"], Cell[CellGroupData[{ @@ -783,19 +751,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { 3.993816211321389*^9, 3.9938162195378838`*^9}}, - CellLabel-> - "In[441]:=",ExpressionUUID->"a9bbdb13-1ee9-4d27-9b37-8258a7701c48"], + CellLabel->"In[35]:=",ExpressionUUID->"a9bbdb13-1ee9-4d27-9b37-8258a7701c48"], Cell[BoxData["2.65`"], "Output", - CellChangeTimes->{{3.9938163113365593`*^9, 3.993816400917997*^9}}, - CellLabel-> - "Out[441]=",ExpressionUUID->"fd63263d-7cbb-4fcd-acc8-639f61085dfc"] + CellChangeTimes->{{3.9938163113365593`*^9, 3.993816400917997*^9}, + 3.994256190212372*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"b15f8180-ea5b-476a-90cb-eee39fae39fc"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, - CellLabel-> - "In[442]:=",ExpressionUUID->"ac1b4731-9eda-4b15-a0ad-7809214b2201"], + CellLabel->"In[36]:=",ExpressionUUID->"ac1b4731-9eda-4b15-a0ad-7809214b2201"], Cell[CellGroupData[{ @@ -804,19 +770,17 @@ Cell[BoxData[ CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, 3.991799359954439*^9, {3.9938162225291348`*^9, 3.993816223644052*^9}}, - CellLabel-> - "In[443]:=",ExpressionUUID->"afcc2917-cae8-49bf-ba53-04ac2065eca0"], + CellLabel->"In[37]:=",ExpressionUUID->"afcc2917-cae8-49bf-ba53-04ac2065eca0"], Cell[BoxData["1.175`"], "Output", - CellChangeTimes->{{3.993816311366596*^9, 3.993816400940548*^9}}, - CellLabel-> - "Out[443]=",ExpressionUUID->"b05e9594-9354-49d2-a4a9-cc7b7412f6e0"] + CellChangeTimes->{{3.993816311366596*^9, 3.993816400940548*^9}, + 3.9942561902254953`*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"e6bc5620-5c6a-4cc8-acbc-989ed49da800"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, - CellLabel-> - "In[444]:=",ExpressionUUID->"79b7e148-d680-469c-ae7a-38ca25f382e1"], + CellLabel->"In[38]:=",ExpressionUUID->"79b7e148-d680-469c-ae7a-38ca25f382e1"], Cell[CellGroupData[{ @@ -825,19 +789,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, 3.991718016467348*^9, 3.991799361414671*^9, {3.9938162281192904`*^9, 3.993816230831416*^9}}, - CellLabel-> - "In[445]:=",ExpressionUUID->"8454375f-9321-4e02-afe6-27edd3c1643c"], + CellLabel->"In[39]:=",ExpressionUUID->"8454375f-9321-4e02-afe6-27edd3c1643c"], Cell[BoxData["0.795`"], "Output", - CellChangeTimes->{{3.993816311396524*^9, 3.993816400963438*^9}}, - CellLabel-> - "Out[445]=",ExpressionUUID->"166bffd2-d625-4756-a342-c1a78eebfc8e"] + CellChangeTimes->{{3.993816311396524*^9, 3.993816400963438*^9}, + 3.994256190237005*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"4449d343-34e3-40c5-a6e0-4c340a8e69f3"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, - CellLabel-> - "In[446]:=",ExpressionUUID->"5a33270e-34f4-4323-82d0-70dc555e6edf"], + CellLabel->"In[40]:=",ExpressionUUID->"5a33270e-34f4-4323-82d0-70dc555e6edf"], Cell[CellGroupData[{ @@ -846,19 +808,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993816234625985*^9, 3.993816236062304*^9}}, - CellLabel-> - "In[447]:=",ExpressionUUID->"3e6df14a-e8f4-45a3-8e48-55ebe5486ed6"], + CellLabel->"In[41]:=",ExpressionUUID->"3e6df14a-e8f4-45a3-8e48-55ebe5486ed6"], Cell[BoxData["0.595`"], "Output", - CellChangeTimes->{{3.993816311427802*^9, 3.9938164009852858`*^9}}, - CellLabel-> - "Out[447]=",ExpressionUUID->"d5219011-69ee-416e-b5c7-d87abc8266a5"] + CellChangeTimes->{{3.993816311427802*^9, 3.9938164009852858`*^9}, + 3.994256190245726*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"b48e5403-8de6-46dd-a126-7765ed02662b"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, - CellLabel-> - "In[448]:=",ExpressionUUID->"d7b01fc2-ded5-46f0-9860-7588154b7c15"], + CellLabel->"In[42]:=",ExpressionUUID->"d7b01fc2-ded5-46f0-9860-7588154b7c15"], Cell[CellGroupData[{ @@ -867,19 +827,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.993816238161579*^9, 3.9938162401131277`*^9}}, - CellLabel-> - "In[449]:=",ExpressionUUID->"9b5e3193-878f-4049-ac26-33832ff9a585"], + CellLabel->"In[43]:=",ExpressionUUID->"9b5e3193-878f-4049-ac26-33832ff9a585"], Cell[BoxData["1.47`"], "Output", - CellChangeTimes->{{3.993816311458173*^9, 3.9938164010070257`*^9}}, - CellLabel-> - "Out[449]=",ExpressionUUID->"8a5f7408-1d7c-4617-bbd6-7c9bfde7795e"] + CellChangeTimes->{{3.993816311458173*^9, 3.9938164010070257`*^9}, + 3.994256190254212*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"85d9717c-8a7a-413a-b633-6f559baafa36"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, - CellLabel-> - "In[450]:=",ExpressionUUID->"082437f0-3b56-4f04-9c0e-2fc4cea15500"], + CellLabel->"In[44]:=",ExpressionUUID->"082437f0-3b56-4f04-9c0e-2fc4cea15500"], Cell[CellGroupData[{ @@ -887,19 +845,17 @@ Cell[BoxData[ RowBox[{"nn2", "=", "0.655"}]], "Input", CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, 3.9917993660901737`*^9, {3.993816241842022*^9, 3.993816245056822*^9}}, - CellLabel-> - "In[451]:=",ExpressionUUID->"a95b9065-e407-4052-9cd0-914d577eba07"], + CellLabel->"In[45]:=",ExpressionUUID->"a95b9065-e407-4052-9cd0-914d577eba07"], Cell[BoxData["0.655`"], "Output", - CellChangeTimes->{{3.993816311488914*^9, 3.993816401028906*^9}}, - CellLabel-> - "Out[451]=",ExpressionUUID->"faa7c284-9b5d-4626-9a13-cfe3667474d6"] + CellChangeTimes->{{3.993816311488914*^9, 3.993816401028906*^9}, + 3.994256190263029*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"dac8c380-ae10-4861-8705-35ad49d2ce9c"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, - CellLabel-> - "In[452]:=",ExpressionUUID->"e0787538-609d-41e9-abf7-bd1b23d1e76d"], + CellLabel->"In[46]:=",ExpressionUUID->"e0787538-609d-41e9-abf7-bd1b23d1e76d"], Cell[CellGroupData[{ @@ -1388,14 +1344,13 @@ uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== "], - CellLabel-> - "In[453]:=",ExpressionUUID->"7b31be1a-6d11-4236-8210-77a82c551374"], + CellLabel->"In[47]:=",ExpressionUUID->"7b31be1a-6d11-4236-8210-77a82c551374"], Cell[BoxData["0.10932371372103143`"], "Output", CellChangeTimes->{ - 3.991319787430073*^9, {3.993816311598846*^9, 3.993816401077582*^9}}, - CellLabel-> - "Out[453]=",ExpressionUUID->"e542e4ff-b489-4b0e-8d15-009bafabe86d"] + 3.991319787430073*^9, {3.993816311598846*^9, 3.993816401077582*^9}, + 3.99425619037881*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"34dbdf41-b4e8-4a03-a51e-fffc5ff37e36"] }, Open ]], Cell[CellGroupData[{ @@ -1889,14 +1844,13 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[454]:=",ExpressionUUID->"c2f45571-4655-4449-ab0f-26dc469de44c"], + CellLabel->"In[48]:=",ExpressionUUID->"c2f45571-4655-4449-ab0f-26dc469de44c"], Cell[BoxData["9.790243175904545`"], "Output", CellChangeTimes->{ - 3.991319787574972*^9, {3.9938163116474113`*^9, 3.993816401110285*^9}}, - CellLabel-> - "Out[454]=",ExpressionUUID->"e24438fd-dd0c-48c3-aec6-96e409dc29a6"] + 3.991319787574972*^9, {3.9938163116474113`*^9, 3.993816401110285*^9}, + 3.994256190434888*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"5caca46d-5adb-4001-bd66-c8a2194fb5a4"] }, Open ]], Cell[CellGroupData[{ @@ -2384,15 +2338,14 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[455]:=",ExpressionUUID->"51551723-3d3b-47d7-bba0-130e06e2d503"], + CellLabel->"In[49]:=",ExpressionUUID->"51551723-3d3b-47d7-bba0-130e06e2d503"], Cell[BoxData[ RowBox[{"-", "16.70631937398676`"}]], "Output", CellChangeTimes->{ - 3.991319787641424*^9, {3.993816311688833*^9, 3.99381640114319*^9}}, - CellLabel-> - "Out[455]=",ExpressionUUID->"a9b47d28-e121-49bf-a4f2-3b64ec242508"] + 3.991319787641424*^9, {3.993816311688833*^9, 3.99381640114319*^9}, + 3.994256190493198*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"ca67b050-2bc3-45c5-ba26-dd03b1d876a9"] }, Open ]], Cell[CellGroupData[{ @@ -3109,15 +3062,14 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[456]:=",ExpressionUUID->"baed3f29-6f22-4591-a1fe-c43e962c69fa"], + CellLabel->"In[50]:=",ExpressionUUID->"baed3f29-6f22-4591-a1fe-c43e962c69fa"], Cell[BoxData[ RowBox[{"-", "21.21244105904564`"}]], "Output", CellChangeTimes->{ - 3.991319787711939*^9, {3.99381631175032*^9, 3.993816401178795*^9}}, - CellLabel-> - "Out[456]=",ExpressionUUID->"f82d7828-77aa-4bf4-9545-b52d924f9643"] + 3.991319787711939*^9, {3.99381631175032*^9, 3.993816401178795*^9}, + 3.994256190564992*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"89eef4fe-a6c8-4f4e-82f3-aa942a40bd84"] }, Open ]], Cell[CellGroupData[{ @@ -3675,15 +3627,14 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[457]:=",ExpressionUUID->"63424b29-1f79-4f5b-8071-a4fa52e7cebf"], + CellLabel->"In[51]:=",ExpressionUUID->"63424b29-1f79-4f5b-8071-a4fa52e7cebf"], Cell[BoxData[ RowBox[{"-", "64.11746269097033`"}]], "Output", CellChangeTimes->{ - 3.9913197877723045`*^9, {3.993816311810264*^9, 3.993816401216831*^9}}, - CellLabel-> - "Out[457]=",ExpressionUUID->"249c682d-bd46-4e01-abb1-9e4b1ca32433"] + 3.9913197877723045`*^9, {3.993816311810264*^9, 3.993816401216831*^9}, + 3.99425619063299*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"3cf63961-8a03-48eb-8fda-fd988e5675f5"] }, Open ]], Cell[CellGroupData[{ @@ -4314,43 +4265,40 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[458]:=",ExpressionUUID->"0abc3443-85a9-4675-9343-433b236f2c0e"], + CellLabel->"In[52]:=",ExpressionUUID->"0abc3443-85a9-4675-9343-433b236f2c0e"], Cell[BoxData[ RowBox[{"-", "162.12919789671096`"}]], "Output", CellChangeTimes->{ - 3.991319787833355*^9, {3.993816311880077*^9, 3.9938164012606087`*^9}}, - CellLabel-> - "Out[458]=",ExpressionUUID->"accab13d-983b-47bc-9b39-ca20cb75496c"] + 3.991319787833355*^9, {3.993816311880077*^9, 3.9938164012606087`*^9}, + 3.994256190693915*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"fb412542-6a82-46d6-8bbb-d22daf738e10"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U21", "=", "0"}]], "Input", - CellLabel-> - "In[459]:=",ExpressionUUID->"f0e57101-b62d-4b65-b012-d842e7097718"], + CellLabel->"In[53]:=",ExpressionUUID->"f0e57101-b62d-4b65-b012-d842e7097718"], Cell[BoxData["0"], "Output", CellChangeTimes->{ - 3.9913204210013676`*^9, {3.993816311896537*^9, 3.993816401279429*^9}}, - CellLabel-> - "Out[459]=",ExpressionUUID->"997a0042-33bc-435b-9020-40f3659a8a7a"] + 3.9913204210013676`*^9, {3.993816311896537*^9, 3.993816401279429*^9}, + 3.99425619070333*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"bbebaefe-504a-418f-882f-c185ca448b27"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U22", "=", "0"}]], "Input", - CellLabel-> - "In[460]:=",ExpressionUUID->"98df0087-091d-45d7-b644-411824bb7934"], + CellLabel->"In[54]:=",ExpressionUUID->"98df0087-091d-45d7-b644-411824bb7934"], Cell[BoxData["0"], "Output", CellChangeTimes->{ - 3.9913204210355663`*^9, {3.993816311909266*^9, 3.993816401294653*^9}}, - CellLabel-> - "Out[460]=",ExpressionUUID->"a7dbb396-ddfb-48f0-beb2-c6c26d93723b"] + 3.9913204210355663`*^9, {3.993816311909266*^9, 3.993816401294653*^9}, + 3.9942561907088223`*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"bcf43639-845d-41f9-af28-b7ccb0e7be08"] }, Open ]], Cell[CellGroupData[{ @@ -4394,14 +4342,13 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[461]:=",ExpressionUUID->"491e8f78-a665-418a-b0c1-46cabcc8453b"], + CellLabel->"In[55]:=",ExpressionUUID->"491e8f78-a665-418a-b0c1-46cabcc8453b"], Cell[BoxData["137.278680377525`"], "Output", CellChangeTimes->{ - 3.991320421068556*^9, {3.993816311921467*^9, 3.993816401310416*^9}}, - CellLabel-> - "Out[461]=",ExpressionUUID->"c17d75af-0687-4d26-9d03-3de11056e458"] + 3.991320421068556*^9, {3.993816311921467*^9, 3.993816401310416*^9}, + 3.9942562033435783`*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"722e2694-3dde-4ef8-9f85-308a99328767"] }, Open ]], Cell[CellGroupData[{ @@ -4441,15 +4388,14 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[462]:=",ExpressionUUID->"0b8cd8a1-aeef-45df-a380-02d1616e4779"], + CellLabel->"In[56]:=",ExpressionUUID->"0b8cd8a1-aeef-45df-a380-02d1616e4779"], Cell[BoxData[ RowBox[{"-", "124.2735331996648`"}]], "Output", CellChangeTimes->{ - 3.991320421098543*^9, {3.9938163119334393`*^9, 3.993816401325693*^9}}, - CellLabel-> - "Out[462]=",ExpressionUUID->"72ceb4a8-eeeb-44c7-9edb-2c85f5f68f3d"] + 3.991320421098543*^9, {3.9938163119334393`*^9, 3.993816401325693*^9}, + 3.994256203607184*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"46fd1fa5-746f-4e7b-bd4c-d347b92ad548"] }, Open ]], Cell[CellGroupData[{ @@ -4493,94 +4439,87 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[463]:=",ExpressionUUID->"f3d07f3e-212c-47f3-96a4-93c2020e5f81"], + CellLabel->"In[57]:=",ExpressionUUID->"f3d07f3e-212c-47f3-96a4-93c2020e5f81"], Cell[BoxData["136.79424869488386`"], "Output", CellChangeTimes->{ - 3.9913204211275444`*^9, {3.993816311945665*^9, 3.993816401340849*^9}}, - CellLabel-> - "Out[463]=",ExpressionUUID->"ab284176-d55e-4cb5-abe2-545b366b7a16"] + 3.9913204211275444`*^9, {3.993816311945665*^9, 3.993816401340849*^9}, + 3.994256203617592*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"956c3281-dc64-4ffb-a0ed-6eb4c76fbb78"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c11"], "Input", - CellLabel-> - "In[464]:=",ExpressionUUID->"534b7683-ea0b-4b69-852f-1588370b749b"], + CellLabel->"In[58]:=",ExpressionUUID->"534b7683-ea0b-4b69-852f-1588370b749b"], Cell[BoxData["0.3750149455401738`"], "Output", CellChangeTimes->{ - 3.9913204211385536`*^9, {3.9938163119574957`*^9, 3.993816401363001*^9}}, - CellLabel-> - "Out[464]=",ExpressionUUID->"f6d9cefb-2e7a-40d4-98cd-1429ab789aa1"] + 3.9913204211385536`*^9, {3.9938163119574957`*^9, 3.993816401363001*^9}, + 3.994256203625339*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"eb558908-f165-4475-90b0-9ab82f29332e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c12"], "Input", - CellLabel-> - "In[465]:=",ExpressionUUID->"2d46740e-c68a-425a-943c-b9d93b0e8239"], + CellLabel->"In[59]:=",ExpressionUUID->"2d46740e-c68a-425a-943c-b9d93b0e8239"], Cell[BoxData[ RowBox[{"-", "0.07977775132414705`"}]], "Output", CellChangeTimes->{ - 3.9913204211683464`*^9, {3.9938163119693823`*^9, 3.99381640137784*^9}}, - CellLabel-> - "Out[465]=",ExpressionUUID->"18255060-36da-4599-8b0a-3e437a0dace8"] + 3.9913204211683464`*^9, {3.9938163119693823`*^9, 3.99381640137784*^9}, + 3.994256203634156*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"9db38f6a-793f-4530-85d0-8b40a61595c3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c21"], "Input", - CellLabel-> - "In[466]:=",ExpressionUUID->"501d88a7-dfc9-437f-9b8a-547de52dc8a0"], + CellLabel->"In[60]:=",ExpressionUUID->"501d88a7-dfc9-437f-9b8a-547de52dc8a0"], Cell[BoxData[ RowBox[{"-", "0.6284430544064189`"}]], "Output", CellChangeTimes->{ - 3.991320421199068*^9, {3.9938163119814787`*^9, 3.993816401392654*^9}}, - CellLabel-> - "Out[466]=",ExpressionUUID->"39327496-f811-4b0f-bb0c-fe382d0cb2a9"] + 3.991320421199068*^9, {3.9938163119814787`*^9, 3.993816401392654*^9}, + 3.994256203642727*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"a14e600f-b3d7-4aae-9393-2a005935999d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c22"], "Input", - CellLabel-> - "In[467]:=",ExpressionUUID->"de1cfc69-7ad2-4a7f-bbbb-4748f1a97881"], + CellLabel->"In[61]:=",ExpressionUUID->"de1cfc69-7ad2-4a7f-bbbb-4748f1a97881"], Cell[BoxData["0.7294972450656219`"], "Output", CellChangeTimes->{ - 3.991320421228037*^9, {3.993816311994028*^9, 3.99381640140742*^9}}, - CellLabel-> - "Out[467]=",ExpressionUUID->"1081d35f-af9b-4d5b-aa92-7ef7dbfa8979"] + 3.991320421228037*^9, {3.993816311994028*^9, 3.99381640140742*^9}, + 3.994256203651434*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"823edf12-a298-465b-8bcb-c6c5fa264a63"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w1"], "Input", - CellLabel-> - "In[468]:=",ExpressionUUID->"0e060f43-946a-41fb-85a0-7afd021b4e5f"], + CellLabel->"In[62]:=",ExpressionUUID->"0e060f43-946a-41fb-85a0-7afd021b4e5f"], Cell[BoxData["2.4652625900301657`"], "Output", CellChangeTimes->{ - 3.9913204212585373`*^9, {3.993816312006279*^9, 3.99381640142347*^9}}, - CellLabel-> - "Out[468]=",ExpressionUUID->"0d3eac85-0fed-4780-b9a3-f2b875da5370"] + 3.9913204212585373`*^9, {3.993816312006279*^9, 3.99381640142347*^9}, + 3.994256203660035*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"7274fd5c-3b62-4919-af5f-74c55910a505"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w2"], "Input", - CellLabel-> - "In[469]:=",ExpressionUUID->"acb49a6d-0ba0-4610-885a-fcfcdea1a736"], + CellLabel->"In[63]:=",ExpressionUUID->"acb49a6d-0ba0-4610-885a-fcfcdea1a736"], Cell[BoxData["1.4266899039519758`"], "Output", CellChangeTimes->{ - 3.9913204212884274`*^9, {3.993816312018448*^9, 3.993816401439527*^9}}, - CellLabel-> - "Out[469]=",ExpressionUUID->"c9aa39ef-8135-425d-9d5a-926aaee6ab8c"] + 3.9913204212884274`*^9, {3.993816312018448*^9, 3.993816401439527*^9}, + 3.994256203668562*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"c64d0bc4-630b-426f-b5b1-0ecab346d91b"] }, Open ]], Cell[CellGroupData[{ @@ -4601,15 +4540,14 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", - CellLabel-> - "In[470]:=",ExpressionUUID->"3f4bc025-fd64-4536-9b0f-7f85202adc92"], + CellLabel->"In[64]:=",ExpressionUUID->"3f4bc025-fd64-4536-9b0f-7f85202adc92"], Cell[BoxData[ RowBox[{"-", "36.59398535367672`"}]], "Output", CellChangeTimes->{ - 3.9913204213185234`*^9, {3.9938163120312033`*^9, 3.9938164014556637`*^9}}, - CellLabel-> - "Out[470]=",ExpressionUUID->"edb4a415-2e98-48eb-a1c2-7688fefa9102"] + 3.9913204213185234`*^9, {3.9938163120312033`*^9, 3.9938164014556637`*^9}, + 3.994256203677906*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"aba0ea26-8ae1-4327-94b0-07508208b5a3"] }, Open ]], Cell[CellGroupData[{ @@ -4630,15 +4568,14 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", - CellLabel-> - "In[471]:=",ExpressionUUID->"2bedbda1-90c6-4297-a7a7-862198349712"], + CellLabel->"In[65]:=",ExpressionUUID->"2bedbda1-90c6-4297-a7a7-862198349712"], Cell[BoxData[ RowBox[{"-", "6.706084141019179`"}]], "Output", CellChangeTimes->{ - 3.991320421349531*^9, {3.99381631203615*^9, 3.99381640147013*^9}}, - CellLabel-> - "Out[471]=",ExpressionUUID->"360176d4-36e9-49a0-aa8b-e339b4979ec3"] + 3.991320421349531*^9, {3.99381631203615*^9, 3.99381640147013*^9}, + 3.994256203687125*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"f1e4967c-ca34-496f-9727-52c4e5745f48"] }, Open ]], Cell[CellGroupData[{ @@ -4703,14 +4640,13 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[472]:=",ExpressionUUID->"b8c489e7-4e72-4a7e-97ad-648529130b83"], + CellLabel->"In[66]:=",ExpressionUUID->"b8c489e7-4e72-4a7e-97ad-648529130b83"], Cell[BoxData["100.68469502384829`"], "Output", CellChangeTimes->{ - 3.9913204213784294`*^9, {3.9938163120484467`*^9, 3.993816401484993*^9}}, - CellLabel-> - "Out[472]=",ExpressionUUID->"3dc24e9d-b851-4c1d-be7b-1e37971b12b5"] + 3.9913204213784294`*^9, {3.9938163120484467`*^9, 3.993816401484993*^9}, + 3.994256203696569*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"45ba6452-d84c-450e-b4d2-149ac6de7f7c"] }, Open ]], Cell[CellGroupData[{ @@ -4751,15 +4687,14 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[473]:=",ExpressionUUID->"006f7343-b9bc-43a2-9839-f2e6286ceea0"], + CellLabel->"In[67]:=",ExpressionUUID->"006f7343-b9bc-43a2-9839-f2e6286ceea0"], Cell[BoxData[ RowBox[{"-", "124.2735331996648`"}]], "Output", CellChangeTimes->{ - 3.9913204213904285`*^9, {3.99381631206076*^9, 3.9938164015001698`*^9}}, - CellLabel-> - "Out[473]=",ExpressionUUID->"a6760e9f-c59d-4795-9acd-c8f2dcd1ecba"] + 3.9913204213904285`*^9, {3.99381631206076*^9, 3.9938164015001698`*^9}, + 3.9942562037059717`*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"4017b007-fe1a-4401-b36c-71283cffa2c6"] }, Open ]], Cell[CellGroupData[{ @@ -4825,14 +4760,13 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[474]:=",ExpressionUUID->"eb5d7cbf-54a8-4b33-bc7a-f338cc61d020"], + CellLabel->"In[68]:=",ExpressionUUID->"eb5d7cbf-54a8-4b33-bc7a-f338cc61d020"], Cell[BoxData["130.0881645538647`"], "Output", CellChangeTimes->{ - 3.991320421419428*^9, {3.9938163120760603`*^9, 3.993816401514661*^9}}, - CellLabel-> - "Out[474]=",ExpressionUUID->"f45c3fba-c80d-450a-8cb5-82f9ab9cbf1f"] + 3.991320421419428*^9, {3.9938163120760603`*^9, 3.993816401514661*^9}, + 3.994256203714978*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"65509182-6c9b-4b31-84e9-fd16b5244dd2"] }, Open ]], Cell[CellGroupData[{ @@ -4890,14 +4824,13 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[475]:=",ExpressionUUID->"09925dcf-c3a5-46c1-9871-fd3f2475a6e6"], + CellLabel->"In[69]:=",ExpressionUUID->"09925dcf-c3a5-46c1-9871-fd3f2475a6e6"], Cell[BoxData["37.11735851847544`"], "Output", CellChangeTimes->{ - 3.9913204214494324`*^9, {3.993816312091509*^9, 3.9938164015309277`*^9}}, - CellLabel-> - "Out[475]=",ExpressionUUID->"5a7bd319-3af6-47cd-b5ef-7e48a8972595"] + 3.9913204214494324`*^9, {3.993816312091509*^9, 3.9938164015309277`*^9}, + 3.994256203722608*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"f461cb82-f63d-45ad-bf1c-4300a3b74b65"] }, Open ]], Cell[CellGroupData[{ @@ -4955,37 +4888,46 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[476]:=",ExpressionUUID->"e7697b38-341e-4909-ad80-aece3d833884"], + CellLabel->"In[70]:=",ExpressionUUID->"e7697b38-341e-4909-ad80-aece3d833884"], Cell[BoxData["835.6594550727934`"], "Output", CellChangeTimes->{ - 3.991320421481529*^9, {3.9938163121038647`*^9, 3.993816401547245*^9}}, - CellLabel-> - "Out[476]=",ExpressionUUID->"1028d637-65d2-45d5-bd63-9d36d49e1763"] + 3.991320421481529*^9, {3.9938163121038647`*^9, 3.993816401547245*^9}, + 3.99425620373304*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"4354b80b-8366-4cad-91df-6eed99ca9b9c"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"f1", "=", "0.4682518995"}]], "Input", - CellChangeTimes->{3.9918505481678543`*^9, - 3.994083444239151*^9},ExpressionUUID->"83cccf0d-dccb-fb42-a058-\ -5e950c758893"], + CellChangeTimes->{3.9918505481678543`*^9, 3.994083444239151*^9}, + CellLabel->"In[71]:=",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], + +Cell[BoxData["0.4682518995`"], "Output", + CellChangeTimes->{3.994256203741194*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"d77966da-3a65-4033-9968-3468e369bd0b"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991850549355442*^9, - 3.991850549360302*^9}},ExpressionUUID->"7730e455-e5f4-194b-b761-\ -e7a6896afd10"], + CellChangeTimes->{{3.991850549355442*^9, 3.991850549360302*^9}}, + CellLabel->"In[72]:=",ExpressionUUID->"7730e455-e5f4-194b-b761-e7a6896afd10"], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f2", "=", "0.1138781255"}]], "Input", - CellChangeTimes->{3.991850550777445*^9, - 3.9940834487249947`*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-\ -5e27a96171a9"], + CellChangeTimes->{3.991850550777445*^9, 3.9940834487249947`*^9}, + CellLabel->"In[73]:=",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], + +Cell[BoxData["0.1138781255`"], "Output", + CellChangeTimes->{3.9942562037536163`*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"4107058d-bef3-4168-bbc9-b7c59d1915a5"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918505524437046`*^9, - 3.991850552447544*^9}},ExpressionUUID->"86df0a71-aa65-aa41-b8f1-\ -8c5c5be10fe8"], + CellChangeTimes->{{3.9918505524437046`*^9, 3.991850552447544*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], Cell[CellGroupData[{ @@ -5030,9 +4972,12 @@ Cell[BoxData[ RowBox[{"1.16", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], - ")"}]}]], "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], + ")"}]}]], "Input", + CellLabel->"In[75]:=",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], -Cell[BoxData["2.3793916761039806`*^-53"], "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] +Cell[BoxData["1.5276604288963894`*^-53"], "Output", + CellChangeTimes->{3.994256203764018*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"b8906cb4-9e16-4d85-9334-a6b0e13a2d38"] }, Open ]], Cell[CellGroupData[{ @@ -5066,11 +5011,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.9915577064670105`*^9},ExpressionUUID->"c16f367e-d189-2745-b3b8-\ -a9b137c5e3b6"], + CellChangeTimes->{3.9915577064670105`*^9}, + CellLabel->"In[76]:=",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], -Cell[BoxData["5.0207251137958644`*^-55"], "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] +Cell[BoxData["8.734838744817244`*^-55"], "Output", + CellChangeTimes->{3.9942562037713337`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"b5512f64-3dcb-4dec-ac38-94fed322e9a9"] }, Open ]], Cell[CellGroupData[{ @@ -5103,11 +5049,12 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.991557709328657*^9, - 3.991557711123291*^9}},ExpressionUUID->"b7d001ae-480c-4b41-8df9-\ -8010347227f7"], + CellChangeTimes->{{3.991557709328657*^9, 3.991557711123291*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], -Cell[BoxData["1.8713726427856714`*^-54"], "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] +Cell[BoxData["5.789701821687687`*^-55"], "Output", + CellChangeTimes->{3.994256203781528*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"8d366dd9-bc0a-43ae-978b-85c9c92198b8"] }, Open ]], Cell[CellGroupData[{ @@ -5129,10 +5076,12 @@ Cell[BoxData[ RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Ih", "*", "Ir"}], - RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"d15e5e59-9ad8-\ -e247-a132-b43b2736212a"], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel->"In[78]:=",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], -Cell[BoxData["25.178011816139865`"], "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] +Cell[BoxData["8.095476742309302`"], "Output", + CellChangeTimes->{3.9942562037895947`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"b3d1d7c6-bea2-44b3-b733-7793a211875c"] }, Open ]], Cell[CellGroupData[{ @@ -5157,10 +5106,12 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", RowBox[{"(", - RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input",Expre\ -ssionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], -Cell[BoxData["37.88040277230648`"], "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] +Cell[BoxData["23.08279821257412`"], "Output", + CellChangeTimes->{3.994256203795929*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"09708093-535d-4daf-9002-a79b10f09e46"] }, Open ]], Cell[CellGroupData[{ @@ -5168,10 +5119,12 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ - FractionBox["Kb", "Qb3"]]}]], "Input",ExpressionUUID->"906db7f6-73f3-8a4e-\ -88a4-7c75445a4f32"], + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], -Cell[BoxData["0.7475613664924765`"], "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +Cell[BoxData["2.141249705200775`"], "Output", + CellChangeTimes->{3.994256203803306*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"cb25e36b-4762-4cbf-bcbd-e7ef69ae4863"] }, Open ]], Cell[CellGroupData[{ @@ -5179,10 +5132,12 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ - FractionBox["Kw", "Qw3"]]}]], "Input",ExpressionUUID->"731b68b1-c44a-6c4a-\ -a9f8-bc957ede9a68"], + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], -Cell[BoxData["3.219272026986442`"], "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +Cell[BoxData["6.016867366394128`"], "Output", + CellChangeTimes->{3.9942562038122883`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"ab675f4b-a8d2-42d2-a76a-7ff280c455c0"] }, Open ]], Cell[CellGroupData[{ @@ -5190,10 +5145,12 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ - RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input",ExpressionUUID->"71af6813-\ -eb8f-4944-8d03-7bcd77a7b4b4"], + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], -Cell[BoxData["121.94732101586592`"], "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +Cell[BoxData["138.88613529029791`"], "Output", + CellChangeTimes->{3.994256203821512*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"dd7c3c50-e3b6-4e16-83cb-c1eaa4bc4cb8"] }, Open ]], Cell[CellGroupData[{ @@ -5201,10 +5158,12 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ - RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"28815b73-\ -08dc-e64f-8823-2a55ad6b8ca8"], + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[83]:=",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], -Cell[BoxData["18.822108918837237`"], "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +Cell[BoxData["17.33443718792952`"], "Output", + CellChangeTimes->{3.9942562038299513`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"8198c771-f3f0-4ac9-bbbb-5731b4574a88"] }, Open ]], Cell[CellGroupData[{ @@ -5392,10 +5351,12 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"137e8d46-8eff-3c47-\ -bf8f-1350d0b8a0bb"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[84]:=",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], -Cell[BoxData["0.04118782656518991`"], "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +Cell[BoxData["0.006990196698716314`"], "Output", + CellChangeTimes->{3.994256203839068*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"f70fd178-87da-490c-8b19-1e5ff8209b19"] }, Open ]], Cell[CellGroupData[{ @@ -5407,18 +5368,12 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"65edd566-\ -4493-2440-9c51-9fca28ce324b"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[85]:=",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"b04cf5cc-6c74-f842-9fba-c737c46f5a7b"], - -Cell[BoxData["4.366771860185336`"], "Output",ExpressionUUID->"32922499-707a-964c-90f0-b2630d16ee29"] +Cell[BoxData["10.599862760617027`"], "Output", + CellChangeTimes->{3.994256203994775*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"b89a7cff-bfeb-47b3-b10b-fda13a3bfcdf"] }, Open ]], Cell[CellGroupData[{ @@ -5608,10 +5563,12 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"d808e80b-1928-8046-\ -afec-31463f4946cd"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[86]:=",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], -Cell[BoxData["0.010567083454288358`"], "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +Cell[BoxData["0.05661859752628036`"], "Output", + CellChangeTimes->{3.9942562040045767`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"9be71d96-961b-49cb-af6c-799b1f021792"] }, Open ]], Cell[CellGroupData[{ @@ -5623,18 +5580,12 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"56b1717f-\ -bc75-4047-98f0-7a0dede3f8a9"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[87]:=",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"6f900e99-9e38-fb4c-84fd-e99588ed1cc5"], - -Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"e5a93687-7c76-eb48-a79a-098cbe08792a"] +Cell[BoxData["3.7244777741149577`"], "Output", + CellChangeTimes->{3.994256204052166*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"fab68721-4bdd-4d97-9ea5-d89d5d3f53f6"] }, Open ]], Cell[CellGroupData[{ @@ -5725,10 +5676,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-\ -f74418e31aeb"], + ")"}]}]}]], "Input", + CellLabel->"In[88]:=",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], -Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +Cell[BoxData["0.0485674311961468`"], "Output", + CellChangeTimes->{3.9942562040632153`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"d3600ea2-e32a-409f-8270-6614be4dcc37"] }, Open ]], Cell[CellGroupData[{ @@ -5816,10 +5769,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-\ -91d5391478d5"], + ")"}]}]}]], "Input", + CellLabel->"In[89]:=",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], -Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +Cell[BoxData["0.9514325688038533`"], "Output", + CellChangeTimes->{3.994256204071855*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"997cf4bb-c0e5-4fcd-8221-0e9106a8ab83"] }, Open ]], Cell[CellGroupData[{ @@ -5940,16 +5895,18 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", - "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"bea639c9-f172-\ -ef4e-9454-9d4e027f5fa2"], + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel->"In[90]:=",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], -Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] +Cell[BoxData["0.046208635823154355`"], "Output", + CellChangeTimes->{3.9942562040837793`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"50fd8df1-d618-4501-8c5c-882421b8f9a9"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"752e2dd5-bee6-\ -2048-8697-fe84d79611fa"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], Cell[CellGroupData[{ @@ -6010,27 +5967,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918505674491863`*^9},ExpressionUUID->"f8b12d93-5bd9-8641-aa98-\ -3d78ebb0f21b"], + CellChangeTimes->{3.9918505674491863`*^9}, + CellLabel->"In[92]:=",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"4105bae1-ec8c-fc46-bc8a-9d70c37ec32c"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.942853707471875`*^-207\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 1, + 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994256204106515*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"d5e4b314-56f1-489d-be97-f2b092678a96"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"42c1a263-2456-664a-bb33-c5fe841cb412"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.221913270256083`*^-211\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 2, + 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994256204164674*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"43af8188-ce8f-4df4-aa2c-a59e830bf5d3"], -Cell[BoxData["4.366771860185332`"], "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.5123822889173505`*^-216\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 3, + 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994256204170833*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"c0a317a9-3210-475e-863b-cc66216bf78f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 92, 4, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994256204176812*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"b903c5d1-e455-4744-abee-9b091a10f9e4"], + +Cell[BoxData["10.599862760617018`"], "Output", + CellChangeTimes->{3.994256205980029*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"196f5764-e329-4bb1-bc5c-24c9126f43cb"] }, Open ]], Cell[CellGroupData[{ @@ -6092,26 +6095,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.99185057022003*^9},ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], + CellChangeTimes->{3.99185057022003*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"be4d7bfb-c18e-564a-93ce-3f42607886e7"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.942853707471875`*^-207\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 5, + 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994256206068542*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"94620193-301a-4f6c-92d6-7d75d87d2b53"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"b768ca5f-6b93-1f43-97bf-08f74ea2facd"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.221913270256083`*^-211\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 6, + 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994256206074293*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"31ec0a61-4436-434a-b740-ed66b80715b5"], -Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.5123822889173505`*^-216\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 7, + 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994256206079588*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"dc4bbddf-06f2-4528-9881-3c191b94955b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 93, 8, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942562060841084`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"a493dcff-d756-458e-ae30-eb67cb853b6f"], + +Cell[BoxData["3.724477774114956`"], "Output", + CellChangeTimes->{3.9942562077895803`*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"d2d2192f-bbc2-421f-8af2-7ac239d3d6df"] }, Open ]], Cell[CellGroupData[{ @@ -6121,491 +6171,440 @@ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ - FractionBox[ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", RowBox[{ - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", - RowBox[{"Cos", "[", - FractionBox[ - RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], - RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918505747312756`*^9},ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-\ -12d8b19f0936"], + CellChangeTimes->{3.9918505747312756`*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"d3cb6fbc-3803-0541-80d1-8cab47341c44"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"635ef23c-be29-f947-b49d-c0d2f59f2ba8"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"d8687e0f-2f42-0543-a749-78a1ff3c9572"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"b055d243-2255-1f40-80bd-55bc54524667"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.00529101 -2.67879 2.97603 [ -[.15608 .28474 -6 -9 ] -[.15608 .28474 6 0 ] -[.28836 .28474 -6 -9 ] -[.28836 .28474 6 0 ] -[.42063 .28474 -6 -9 ] -[.42063 .28474 6 0 ] -[.55291 .28474 -9 -9 ] -[.55291 .28474 9 0 ] -[.68519 .28474 -9 -9 ] -[.68519 .28474 9 0 ] -[.81746 .28474 -9 -9 ] -[.81746 .28474 9 0 ] -[.94974 .28474 -9 -9 ] -[.94974 .28474 9 0 ] -[.01131 .14844 -24 -4.5 ] -[.01131 .14844 0 4.5 ] -[.01131 .44604 -24 -4.5 ] -[.01131 .44604 0 4.5 ] -[.01131 .59484 -18 -4.5 ] -[.01131 .59484 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.15608 .29724 m -.15608 .30349 L -s -[(25)] .15608 .28474 0 1 Mshowa -.28836 .29724 m -.28836 .30349 L -s -[(50)] .28836 .28474 0 1 Mshowa -.42063 .29724 m -.42063 .30349 L -s -[(75)] .42063 .28474 0 1 Mshowa -.55291 .29724 m -.55291 .30349 L -s -[(100)] .55291 .28474 0 1 Mshowa -.68519 .29724 m -.68519 .30349 L -s -[(125)] .68519 .28474 0 1 Mshowa -.81746 .29724 m -.81746 .30349 L -s -[(150)] .81746 .28474 0 1 Mshowa -.94974 .29724 m -.94974 .30349 L -s -[(175)] .94974 .28474 0 1 Mshowa -.125 Mabswid -.05026 .29724 m -.05026 .30099 L -s -.07672 .29724 m -.07672 .30099 L -s -.10317 .29724 m -.10317 .30099 L -s -.12963 .29724 m -.12963 .30099 L -s -.18254 .29724 m -.18254 .30099 L -s -.20899 .29724 m -.20899 .30099 L -s -.23545 .29724 m -.23545 .30099 L -s -.2619 .29724 m -.2619 .30099 L -s -.31481 .29724 m -.31481 .30099 L -s -.34127 .29724 m -.34127 .30099 L -s -.36772 .29724 m -.36772 .30099 L -s -.39418 .29724 m -.39418 .30099 L -s -.44709 .29724 m -.44709 .30099 L -s -.47354 .29724 m -.47354 .30099 L -s -.5 .29724 m -.5 .30099 L -s -.52646 .29724 m -.52646 .30099 L -s -.57937 .29724 m -.57937 .30099 L -s -.60582 .29724 m -.60582 .30099 L -s -.63228 .29724 m -.63228 .30099 L -s -.65873 .29724 m -.65873 .30099 L -s -.71164 .29724 m -.71164 .30099 L -s -.7381 .29724 m -.7381 .30099 L -s -.76455 .29724 m -.76455 .30099 L -s -.79101 .29724 m -.79101 .30099 L -s -.84392 .29724 m -.84392 .30099 L -s -.87037 .29724 m -.87037 .30099 L -s -.89683 .29724 m -.89683 .30099 L -s -.92328 .29724 m -.92328 .30099 L -s -.97619 .29724 m -.97619 .30099 L -s -.25 Mabswid -0 .29724 m -1 .29724 L -s -.02381 .14844 m -.03006 .14844 L -s -[(0.95)] .01131 .14844 1 0 Mshowa -.02381 .44604 m -.03006 .44604 L -s -[(1.05)] .01131 .44604 1 0 Mshowa -.02381 .59484 m -.03006 .59484 L -s -[(1.1)] .01131 .59484 1 0 Mshowa -.125 Mabswid -.02381 .02939 m -.02756 .02939 L -s -.02381 .05915 m -.02756 .05915 L -s -.02381 .08892 m -.02756 .08892 L -s -.02381 .11868 m -.02756 .11868 L -s -.02381 .1782 m -.02756 .1782 L -s -.02381 .20796 m -.02756 .20796 L -s -.02381 .23772 m -.02756 .23772 L -s -.02381 .26748 m -.02756 .26748 L -s -.02381 .327 m -.02756 .327 L -s -.02381 .35676 m -.02756 .35676 L -s -.02381 .38652 m -.02756 .38652 L -s -.02381 .41628 m -.02756 .41628 L -s -.02381 .4758 m -.02756 .4758 L -s -.02381 .50556 m -.02756 .50556 L -s -.02381 .53532 m -.02756 .53532 L -s -.02381 .56508 m -.02756 .56508 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .01472 m -.02499 .01472 L -.02605 .01472 L -.02729 .01473 L -.02846 .01474 L -.03053 .01478 L -.03279 .01482 L -.03527 .01489 L -.0379 .01499 L -.04262 .0152 L -.04749 .01548 L -.05205 .0158 L -.06244 .01675 L -.07305 .01801 L -.08274 .01944 L -.10458 .02358 L -.12357 .02821 L -.14429 .03435 L -.18493 .04963 L -.22406 .06826 L -.26565 .09204 L -.30571 .11858 L -.34426 .14717 L -.38527 .1805 L -.42475 .215 L -.46273 .24996 L -.50315 .28853 L -.54206 .3264 L -.58342 .36674 L -.62326 .40497 L -.66159 .44044 L -.70238 .47601 L -.74164 .50741 L -.77939 .53432 L -.8196 .55879 L -.85828 .57771 L -.87793 .58543 L -.89942 .59234 L -.91995 .59741 L -.92911 .59917 L -.93905 .60073 L -.94426 .60141 L -.94906 .60194 L -.95356 .60236 L -.95851 .60273 L -.96295 .60299 L -.9671 .60316 L -.96939 .60323 L -.97148 .60328 L -.97264 .6033 L -Mistroke -.9739 .60331 L -.97509 .60332 L -.97619 .60332 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJzVnGdgVUUWgENekkeIRCAEpWhiqAkEkIBUQekGYaUsZRdBmgYQRMSyCkhR -6VKWjgIKSFmpsiIIuLqr0lEUld5xBZQm0pl957yZc++83DPzsuLK/sjk3Zlv -zjn3zNyp907TTv2yuvXq1K97l07Jjfp26pPVvcszyQ2f6huI8uWKiMh1MPCX -mhwRFfgtIiK0YKy4Lg5BEPgtxA1xCILf73c6/vOBbfALrzBc/n+UHhNMDvxa -4opNoNi3eFl5IYwjchpPJkKYm8iJPFkUQj+RY3kyWbd+FE+WhDCayGEuEsFU -PX0oL6mcTg7iyYoQRhE5gCczdPJFnryPLMbrF3iymi7zWZ6sqZN9ebK2rr0P -Tz6gy+zFk/V0mT15soEuM4snG+syH+fJTJ3sGlovHtbTO/OSmunkYzz5iE52 -4MkWOtmeJ1vp5J94srVOtuXJtjrZmidRXSSRf+TJP+syW/LkozrZnCc76uQf -eLKTbmcznuysy3w4tF501dMzQ9Mf19Mb85qydJsa8WR3XWYDnuypy6zPk0/q -MuvyZG9d5oM8+ZQusw5PPq3LrM2TfXWZtXiyny6zJk8+q8uszpPP6zKr8eQL -usz7QuvFi7qkKrykl3RJGTw5QJdZiScH6uS9PPmyrr0CTw7WZZbnySE6mc6T -Q3XtZYNkoiSvXrlKZKJH7ld1PWnB3JH4L1qMGztOlC5dWpQpU0b06NFD3Lh+ -IxALaVHiyuUrombNmqJEiRLiyOEjUTLL0iVLMUvx4sVFlSpVxJLFSyJiMC1G -zJg+Q9StW1eULFlSpKaminr16onPPv0st4ddr+l2pQbtivAjsPqD1eKhhx4S -F36+gDfYs2dPMWL4CDLtx1M/iri44Ehrw+cb/FL+nt17xBNPPCG6dOkiUb9Y -tHCR2L9vv9Irdn69U5QtW1bs+HJHhN/DrmG6t0tLu3wINGrUSHyx/QvpPp84 -d/acSElJkZ4Jxh0/dlzs+m4XXsXKuObNm4sVy1fglXJGwG9gqPRcdkNG6A4q -RYZcu3pNFC1aFMvKJzPWqlVLfPftd3iVT8Zt3LBR1KlTR1MKhtWuXZtVOlJX -WpKUnjxxUlSsWFFmCYYdOnQQaz9ci1e3SXef/um0aNu2LdaQChUqoPsLFiwo -Ll+6TEYsfnex6Nixo2MEDmNG6o4vTqoP7D8gqlevrqnOysoSy5Yu01Q3adJE -TJo4Ce/lzOkzomnTpiI2NlYcPXJU5vND4Ynp06aL69euI7d71240dfOmzZ61 -YYzujxQy6tTJU57+WLd2HV7FybjDhw5jdYMrVWvAl/Hx8VBTZN4YMXfOXLxJ -8Fm5cuVE1apV4SnwenJe1226x1oxVG1UNn3y8SeiRYsWmu2FChXCB95tJ9g0 -dcpULa/bkLG6Icnao9K4cWOxfdt27VGBlsQpMZ84dPCQKF++vKZ0y+YtokGD -BppxNkPG6YYkaW3JmtVrRMOGDcX5c+fxDqGZGzN6TES89DxUk8mTJiMbqCoi -IyMDHp2oMHVP0HXfpbev48eNx8YQ6livXr2waOJlGtTR9u3bYzoU+8r3VlIj -AlqLFCkCVSFwFQxl1dIaG7clf9UtKRa0xKtHmaiTRXlykk4W4ckpOnknT07V -yTt4cppOFuLJ6TqZ6CIRnKE3Lgm8pDd1SQV4cqZO5ufJWTqZjydn6+TtPPmW -Tsbz5Ns6mZcn5+pkHE/O08k8PPmOTsby5HydzM2TC3TSz5MLdTImtF4s0tOj -eUnv6qSPJxfrZCRPLtHJXDy5VCe9oWUE3eCh5QRd56EVBF3jofcIuspDKwm6 -wkPvE3SJh1YRdJGHPiDol9CiXk1JF0KT1lDSz7zoDwk6z0NrCTrHQ+sIOstD -6wk6w0MfEXSahyrIuG7duuFQrHLlyoErCONwEA3DBsniCBo6yLS0NBrC9evX -D4dvwSG638gEHyDveYWyDYZDMO6Cq6gwZMbRTd4ppQdmI2A//kGO/PnzB3rc -4H2NHDGS7tw+y4nGXjU9PR3HITBMOPHDiYgkq55otx7l2cDdeHsVxj6DXh6E -Q4tSpUqhrNatW+MAMNmqK4+my+Ap0y3Z1eiu8xkKy3Q7hj5D1UMYEsPQOTAh -kmriRLVq1TSP7d2zF8ZD4uIv+LDjJHDgwIGiXbt2VA9NTNDUGG4iqcwbPGiw -GD5suHZ3JrG3UVUsIiXAhKJVq1bSu0alyiaYIMIQ/9jRY6hg/jvzRWZmZoqH -xCjWZf5sLgNNs2bOgrkxDaZhzgnz8EsXL0Xw8sNzJWN2cQ+xfta9PquZhqGE -mm0F6jOuPATEkIixr49VkzpSDx4Dz8FVukdcpLwzOavXHtfArF5l+fabb1Ed -XOXxEOO0T4UNlYJRotwy7LVh2Ew5dumT+mRWdPj+6N27t5jz9hy8usdDntfN -RYZpn5c8v8GBblsMY8J7ZRwsK0CFHz1qNM3CApVTrF+33lW8fncc/tnWSsrJ -OGgqYTbqmKPLz+thWyHDA2vTq1wItSIwS9bi+vfvTzNOr2KPMfhk2tRp+ODa -ith9b+Ha4iUvt8F/blsMRVxJxsEDASsgE8ZPIDOhF4PlH6eIY9xx+CdXppTn -3YtSqnRfGfoKPhBu69yi4+kJNpWpbQlM+Qy6TJjbu+NmvjkTfcmVqd/gBFg3 -gBbTVqbuOwrXFlOZennNbYuhTDNk3NkzZ9GswIiE+pFRI0eJfXv3IQstFHQS -zZo1SzMnK4fbFgNVkcOYBR44pwBZ0fmp9BM9vBEVpmLl3aSkJBiLaXEL5i8Q -ffr0YUs/N+suv1i4YKHWoq16fxUuOZ8/d96zS48232xUmGaaKkZ235rNNHTp -lWXcpo2bcMnT8W4Mjmxh+Ar/YXQA3g48H2nmZFU2tgVaZQ0MYr8//n04mgtQ -RSloqCg2xcrbMJbyejQHDBjAVpRYg7u6du2KTTg0xTAih+XwwGTBa3wWbb7P -qDAt9KojsQa3Mha6pwxYO6rIXAUKFIAOVNMv651WhO441Tna1sJVXhjXTJk8 -RSstt7xCVOYJhjK3aVPWy0VxLQ6aYugquTLPY/AGeFQNKUqxBa3fkT9MW0yl -6+U1ty2G1Ug1C9y6ZasYOmSoph629WBbkSsMrwL3y2J33Q7+yf2GNJkFkmBD -zK0Omsf69euz6u6gss8nS1ven/JJjFm3qh0wBVIdqbseq3n13d7So3PoKXcB -lDAZ7F0fbFYmma0M18E5qiZ+8c3Ob3AjBHZxoBuDQS/spga6N3r6wq0izE6Q -qiJvzHiDpjjKWhhfQ4PONUF3UhVRuzpA16hRQ7Rs2VLMnjUbXETb44wBanwC -7SUM2ORAWsybOw92p5IMkqNz4Ca354tbrfV2IWNistXE8N0bZgWpKC3atnUb -diqFCxfGTgWqcKCZVDcNS37Qj8EWWqTcSAPrlJgyYXI+eYdeG3ruCgS9QKD3 -j/DJMCEhAdeD3Hdo01WQKtXtMgfs2GZmZqI//QZL1AogjMRAAxQVNE6BqQu1 -525ZMeE5EYoEVLl3I6GNUwYnsaLDd6yXySkecqNz6Gyb7YZtpi1UDod5aCtB -hpegtxF0kIe2E3SAh74gaD8PfUnQPh7aQdBeHvqKoD089DVBwZ4iWG4CItZD -YNjXivWIy03i8oSZ41aSEpLj1+QNSfVRatRvZv2tJOXmeNKwIXEr3eyt5DKv -HFGU6vvNrL+VpPzmla+aR1xVyljdI7UMpcbnOK+XtkTeuF0kbCcP7Sboax7a -Q9BXPLSXoB08tN8jbjuPH/CI28bjBz3itvL4IbLYAB0maIsLQuYIJW3m8x8l -aBMPHSNoIw8dJ2gDD31P0Oc89G+CPuOhHwj6lIdOEPQvHjpJ0D956BRBn/DQ -jwR9zEM/EfQPHjpN0EehxXqGktaHJp2lpHW86HMEreWh8wR9yEM/E7SGhy4Q -tJqHfiHoAx66SNAqHrpE0Ps8dJmgv/PQFYJW8tBVgt7joWsErQgtseuUtDw0 -6QYlLeNFY5jLI2GxJU+kR8K7ljzO4NBGOj353yxkNJGLLGQMkQstpJ/IBRbS -6UXnW8hYIt+xkE5fPs9COpv6cy2k807InNBqgul5Kf1tiyRnG9LwjSmGtxM5 -20LmI3KWhXR2N960kAlEvmEhnZWMGRYykcjpFtJZkZff1+b4hbBsn7YE1yq8 -X5xSi3M5+LQFQ2fxOLh7TuPm7Fv52b5nUfszzCs3as8tp5+2YOisWE7h7VK5 -3d+yqIUX25sgKq/t+xYMC5M1k3lr1CqY7QUFpdn2kQuGRUjzJLtm2za60uz9 -ZUuIvol2fbbd2UipNaefs2B4F1kywW6JbQ9QvUOVg+9XMLybjBhvN8K2VRXu -BysYJpHmcdR+ABCyr0GfUdn2RXKkPJmUjyXlXovm+aRbmfX2cD9OwfAe0vl6 -UKey2L2sml8+417LsG5tOf0oBcMUsmBM0AK2cS9O5GgLWZLIkRayFJEjLGRp -IodbSGcuPsxCphL5mot0hgdplP6qRVJZymg4kAHDdJI5xEKWJ3KwhaxA5CAL -WZHsHGghK5FMw3EQGGYQ2d9CVibyJQtZhez8i4V01lYMR0xgWI3I5y1kdSKf -86wXNeiyn2d6Lcr/jEXT/UQaDrPAsDapMBxmgeEDJPMpC/kgyexlIeuRzCct -ZH0iDQdkYNiAtHe3kI1IpuEoDQyd8zQMR2lgmEkyu1nIJkRmO3QD052TNzp7 -pjej/J0smh4hsqOFbE4qHrWQLUmm4VAODJ2TOQyHcmDonMxhOJQDw7akvY2F -bEcyDYdyYOiczGE4lAPDR0l7CwvZgWQ+YiEfI9JwKAeGzskc2Q7lwHTnZI5M -iyTnjA7D8RwYZhHZ0EL2INJw6AaGzskbhkM3MMSTN3BYXcdCPk0y77eQz5DM -GhbyOZIpj70I7gn86hmoOtgAhmNKjN/vVxLatGlDEthR1gt0F/IgjbySDGPG -qcbp8gttvGLH7i+Rokq8Iq8pZI604OABj5Yqz2spkBOJg0li2f9CojOVe4Xk -lL5JluHAFI/uSrlJEnGgjQeMFbtJEvHz8niIl98vx8mqFDJxUu/KwVcfUgAo -8No8wxBXhrAixumPFD8vihKdO3fGl4eWL1sO78GxwuXKrTpwIPuMx4ffPsGL -r8WKFfPc4XPLYduF/1E6/v4dDvaLyPUfxyNRZA==\ -\>", "ImageResolution" -> 96., "LightDark" -> \ -"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-19.402618477936908, \ -0.8923747627909967, 0.7099700316630947, \ -0.001262238128389079}},ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], - -Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"e49c1b8d-fabe-b944-a6dd-\ -c578eb57eb6a"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk4VdsbB3BzJWTInHkoRDonU6n1xlEZE8o8HedscpEk96BoQgPKUNwr +kSFD5qGE+qlUKqFUSgnFNmY+R7mq3/LHfvbzedazv/t916RCP+LA5OHi4hrF +z8r7aIfexrtdHbuqXolzr/Uh0a6pAgM6rQwtZW6irHggxzBdndaMevOJJyu2 +Z7wSEKI+QfGz7Y1C2NWs2Mf8tHYUleAuLoJ94alMS2zpaxQVLN6+Dvte19Eb +y5R3aF/57IgY9njvixORTR/QqMNP5npsuWE1d475Z1QSpLVHGtt6+oTJsfZ+ +NCh45rwc9oPl8bWs0kGEgFdXEfv9aenoOyHfUKxKOVUVe0qANr5AGUaJT2Kv +a2ILJIa6UhdJ1GgR7a+DrSiW3Xa0aRTZ3c9J18e2k+fcmjKfRMuCDElTbCJX +VUp39RR6o8p32Aw7VmN/3F/t08ip/pWiJfYH6bdbw0tnUfdwX5UzNsMt8HBa +4hz69V49yRt75jrXzZqQeaQ9dvWlP/ZqVV3RWQobjeothkRipzMe7xWV5CCV +ZyPdZ7CVi1xjtyxyUL0lb1YitvHm+Kngph9IdLpp/03sAMP+9nHzZVTntd2x +E3uBdZxPUPMXWuo7//wT9qmmtaZaq38jPnO+vFHsTDC+7d/+B40Pn4nk9cX1 +FbbRwkq5oVy++NFO7NKnaQOn5XnAbS9hZYs9M+J1IiWRB1QHHLd5Yp/QZtdW +hfCC/tMHejHY6ZUqatMUfpDr7bvfit3bNfngdz4/OL5Tce7BVp676yYiKQAF +9pkO49hl2+xSdRcFwChKMVSMTqLWe1HcQU2rwW8xy4KBzX7c3T9qLgRz5U/c +NviRSNxGSDT6gRCExiTrG2Hrv6WBsIkw6JPPIx2wA4fqc7fqiYCfSxZxETuU +p11/p5AouEbfL/mDPaxaMRvHEQPYVPH+DwPPD/FiTSdVHGoTlr+pMEnEc5tU +kTkqDlO2Lxg0bGWqkkPphDisuj3SchHbzfxKTceABOy+Zv5tA0GiTr+wY9Iv +JYEe4Pr6kD+JvhQlX/JZLQVVdaLSp7AnJ0rzSyykgKQ4d5VgC4Z/697RIgV6 +yteyf2PTzjlt86mXhvj+pbzyALzvCgzZxTmy0FVDd1MJJFHB8FLE9nAFkLzm +cc47mET7DiZ8OVauANV6LhfSsCdbJfaUkwpwyMRo/hn2toLNksquipDoW8De +GoLnk+5Vy79LCRYLPOoFj5Bobnrg79GzyuAY4qrSGUoiiWBaXa2tKngcyarL +DycRWSAYYB+oCjWxUS5D2A2fu+S/x6vCzAZ/X43jJPKw8Tyr2aIK/d0hecXY +BToRDv9Q1CA0wXewNgL/f7xoJkZaHXY2azj1sUjk5L9W12pQA5rNN8mcOEki +FHGQ4vxLAxa4Cz49w9aOyzFiyGrCaZWjXOtjSMSVTzWLOaAJtwQEQsqxy7+4 +O9c81ATFgH0fh2Lx+TxUdloubyPwDxTOMs/g+mi278fpWjBF/WxQnUCifMeM +T4sxWnDqd6fmmvMkSqYPDvBlacHotE2kLzbj1PEJxW4tSGsZM5O4QCKx5mwu +R3NtaHj7LSD6It4/1CntJjUdGO+J4/ZKIpG86uXYS0ObQdONdiwojUTNFxe0 +fvLoAvt9ttxHbI9517eEii4Y7lllsCedRDda1bXMvHRBpWH9Y5WrJFL1b3zz +o0cXSnKYtC/XcL9lwxrESz3wCbb4EvQviRTkFQllV32Ir6k8M3CTRJsLw4X+ +QxTYk9dFVa0hEZ1xlq1rR4EDwQJxediZaqlffDwosMArt0OtlkS8eZVVT1kU +2EsbfqdRh8/bjXGn1GoKZJg5P91yB9+nmT7ZWmpUiDq8+uqhRry+l2z0XAS2 +wRmYW55+RKKbYer29e0G0Phw8prDOxJ1RSCjc4UmcG+fWUUuzwhS8Xpn5xm0 +E4ayU7YHGY4g5p87FQqRAB1jxvedgkeQ9ETDKmm6GXQo/VBSrRpB4VTTz6na +NOi5b/XClz2C6N+X2yTGLSD/9kBcGxpF5WbHVuV07oVjVyPnvmSMooKFwIdl +6ZZA8D35vGp2FP3YLfOqNdYafA5ceOvoOob6uHhnB31tYXjqj8ypZ2MoZMOR +K6fV9oPOpKuoscE4qjjc1nI1zh7S2iucu2vHUdS87KLO4QOg33GycsPWCcS2 +2nPombcD8GR0BV5umUAm7im7hw84gmVdhoH4wUn0RjY7sJXqBLsGvTUPkpNI +7tbZ5uJNB6HvVlDCzMXvqGFA28ZO+BBITpbMC+tMIcW3M/4R3w8B3/VTSS2v +phD1akpZ/oAzHMxozt59bhpl883rpT52Ab+s46e/yM6gO7u39MbdcwUPU4NJ +VvQMyjS6KLZc6gZOY/XsiL4Z1PmpMJ6a6A7vLxX9DNo+i+ptr6uHnvKAk81f ++1m5s2g22JErhOEJ4ly3a/y55hB7j1bAlLkXvI8Oe5TmNYeKv3/8cczQG5IV +rJytWueQy81CP08hHzh5bhWPkuo8qq2x9uZN8IHhwrroibh5ZCL/5ueFnz7Q +1GRWkTowj9QG/HtfH/aFu4FpFHfDBTS09q/917/5Qk1AWrjS5QXUlWznt/cg +HbS1HDQ29y2gdFbO2uNddDjT4zBRpMNGzQ/+/PSz9APnABvjqqNstM4DEqiN +fnAgKv8XfxkbKa9/1rmh2Q+W381rzmPrt9vKCDzwgxvc+k/6y9nIwdS95MND +P+hglHvfrWSj9A0RL08+94N438RVPrVsJNd3e13bBz+wK8r/ea2RjdS9pDM9 +Fv0gt0NG9d82NjLxmSqO28aA+09Niie+stGtf2aO2RkyQNZIzr7oGxut757b +JW3MAEV5vuP0ITaaslh8W7yDATJzQQY9w2x8f3Fxt5sxYMxwKLFxlI1EFsVc +xQ8wgIffKDJgio2GkgzW5AQzYLBZke7zk42Sm04cbrjFAIO2oiv3hDkomJJh +wipmQIcek2UvwkE2JdVrjEsZoCb1pJfEFswgS+6WM+D639zrxEU5KC7MfvxO +HQO21Z2j0MU56ISW+l/1jxjQ3nffbkyKgwIzXgbVfGHAhdrHm1KVOMhShDQN +G2BAqHceRUaZgzbFcQlTvjJgJ4ddm41NhhmUVw8z4KzI9Q1FKhzka5fzvWqS +AVbrrM7WqnGQC/+xkMolBjSTJSk1Gzlo7zG50DIpJmSTShKWWzjoUU68VaoM +E8o1PFufYZu2z6mz5JjQ+PXSawt9DtLXePnRXJEJR8Md/qCtHCTbE23+SYMJ +c5eyCjdTOWhie5+UoAETFt7tFRgx5KDLPLn3/R2ZkFtGC+jfifvfIpRpe5AJ +d/g3EZa7OOicOyuM6syEczxfm2uwWXX2G/+4McErJjb8LML1E9wp1+hMyDOe +XqOwm4OoL+iMJ0eZ8PbrhUZ9Ggf1pGisVbvCBJFI5ZsfLTmoAgkHjKYwYf3A +4MgmK5z/faG1PI0Jn05++vdvbIpla4xxBhOaKKYWEtYclMzlN2d7gwne1vKl +5jYctOdI7kdWGRPaNo8WnbfjIAWF84a7KphQdiridgf2wosjabxVTJh95CG3 +fj8H5Wki2+RaJrx4uGySjf2rr68lv5EJFSdUY4vtOajORr64o40J9R6KUvkO +HHRpiYc//QUTztLNn/dj04vHfV3bmXAr5z9S3pGDRPka5Yc6mWDg/cM3FTuo +yeXyz/dM0PlrwonlxEFq2tci1IfxfO131th0iIOWek52j5G4Xr/ME+7YXXFM +/cpRJpj3Pd6ZjB0zuG3cZJIJD/Jqf81i92Z2e+6fZ4KAzExYjTMHpa4Ss4ji +JiAvQEBH2pWDmuf63MN5CRDRLJu3wB7pKw0L4SdgyjGLKxzbtI6WS19DgNp1 +7ZFX2KQP6z8rMQJqn5DDLDdcv42FuIUEAdb3qjpvYu8wEtdCkgQUdB399Rz7 +inDZIaosAfxJteoy7ni8sb9aXoWAlAGDm7exicKyNkk1AnR9Gko6sK9ciexf +p0FAy/Nx9gw2SUgI82kRkL0GuVI98LjE3oBJfQLW/K/dqhK78bdELEkhQLJ3 +4Ug79vDYwNWBbQTceXjlwyj29paox2+NCfAxXBOu5MlBQ0EViveBgHKqdfdZ +bBGXaIO7ZgSoLnlJZGGbmO+zqaYRYJdef60aO1n2a2ThPgIKpaX8P2M38FVe +ybEi4O9eyboZ7G/T0UX/2BDgok6j8XlxkPFTyXdJ9gR4TsrqaWHTq79OJDgQ +MFLSkLAdO+l6Jc8ZJwJsg8PVrbG/hlnqR7gQkBtK3RiILewltTfUjYClg1uS +WCt5lt88Az0IEEg0MYxf+V7p5CUvHwKyVIIO5GA3CFrludAJ6ExMfly6kseW +uufAIEDep5ZVv5I3+K3ThiDggNiH0P+t5LVXkXsCCNAwX7rdtlLf3ZO/IJAA +wSfS2q9X8vOs1u8Iwv2k6U18WMlPktYxCMHr02M63b+SzxravSWUgHgSDEls +IUa1i1YYAVtoJi0T2Eb7Y46oheN6ctSTZlbyt1vHK0QQMPiOO3sBO1FDJlua +RcDd6c7pRew7osO1YlE4Ty05bgl78L/qF2tPEGD/dofX8kr+SMwgfwwB8ykf +In9hG76x/vEnlgB1WcaHFf8fuWfs7A== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VdsbB3BzJWTInHkoRDonU6n1xlEZE8o8HedscpEk96BoQgPKUNwr +kSFD5qGE+qlUKqFUSgnFNmY+R7mq3/LHfvbzedazv/t916RCP+LA5OHi4hrF +z8r7aIfexrtdHbuqXolzr/Uh0a6pAgM6rQwtZW6irHggxzBdndaMevOJJyu2 +Z7wSEKI+QfGz7Y1C2NWs2Mf8tHYUleAuLoJ94alMS2zpaxQVLN6+Dvte19Eb +y5R3aF/57IgY9njvixORTR/QqMNP5npsuWE1d475Z1QSpLVHGtt6+oTJsfZ+ +NCh45rwc9oPl8bWs0kGEgFdXEfv9aenoOyHfUKxKOVUVe0qANr5AGUaJT2Kv +a2ILJIa6UhdJ1GgR7a+DrSiW3Xa0aRTZ3c9J18e2k+fcmjKfRMuCDElTbCJX +VUp39RR6o8p32Aw7VmN/3F/t08ip/pWiJfYH6bdbw0tnUfdwX5UzNsMt8HBa +4hz69V49yRt75jrXzZqQeaQ9dvWlP/ZqVV3RWQobjeothkRipzMe7xWV5CCV +ZyPdZ7CVi1xjtyxyUL0lb1YitvHm+Kngph9IdLpp/03sAMP+9nHzZVTntd2x +E3uBdZxPUPMXWuo7//wT9qmmtaZaq38jPnO+vFHsTDC+7d/+B40Pn4nk9cX1 +FbbRwkq5oVy++NFO7NKnaQOn5XnAbS9hZYs9M+J1IiWRB1QHHLd5Yp/QZtdW +hfCC/tMHejHY6ZUqatMUfpDr7bvfit3bNfngdz4/OL5Tce7BVp676yYiKQAF +9pkO49hl2+xSdRcFwChKMVSMTqLWe1HcQU2rwW8xy4KBzX7c3T9qLgRz5U/c +NviRSNxGSDT6gRCExiTrG2Hrv6WBsIkw6JPPIx2wA4fqc7fqiYCfSxZxETuU +p11/p5AouEbfL/mDPaxaMRvHEQPYVPH+DwPPD/FiTSdVHGoTlr+pMEnEc5tU +kTkqDlO2Lxg0bGWqkkPphDisuj3SchHbzfxKTceABOy+Zv5tA0GiTr+wY9Iv +JYEe4Pr6kD+JvhQlX/JZLQVVdaLSp7AnJ0rzSyykgKQ4d5VgC4Z/697RIgV6 +yteyf2PTzjlt86mXhvj+pbzyALzvCgzZxTmy0FVDd1MJJFHB8FLE9nAFkLzm +cc47mET7DiZ8OVauANV6LhfSsCdbJfaUkwpwyMRo/hn2toLNksquipDoW8De +GoLnk+5Vy79LCRYLPOoFj5Bobnrg79GzyuAY4qrSGUoiiWBaXa2tKngcyarL +DycRWSAYYB+oCjWxUS5D2A2fu+S/x6vCzAZ/X43jJPKw8Tyr2aIK/d0hecXY +BToRDv9Q1CA0wXewNgL/f7xoJkZaHXY2azj1sUjk5L9W12pQA5rNN8mcOEki +FHGQ4vxLAxa4Cz49w9aOyzFiyGrCaZWjXOtjSMSVTzWLOaAJtwQEQsqxy7+4 +O9c81ATFgH0fh2Lx+TxUdloubyPwDxTOMs/g+mi278fpWjBF/WxQnUCifMeM +T4sxWnDqd6fmmvMkSqYPDvBlacHotE2kLzbj1PEJxW4tSGsZM5O4QCKx5mwu +R3NtaHj7LSD6It4/1CntJjUdGO+J4/ZKIpG86uXYS0ObQdONdiwojUTNFxe0 +fvLoAvt9ttxHbI9517eEii4Y7lllsCedRDda1bXMvHRBpWH9Y5WrJFL1b3zz +o0cXSnKYtC/XcL9lwxrESz3wCbb4EvQviRTkFQllV32Ir6k8M3CTRJsLw4X+ +QxTYk9dFVa0hEZ1xlq1rR4EDwQJxediZaqlffDwosMArt0OtlkS8eZVVT1kU +2EsbfqdRh8/bjXGn1GoKZJg5P91yB9+nmT7ZWmpUiDq8+uqhRry+l2z0XAS2 +wRmYW55+RKKbYer29e0G0Phw8prDOxJ1RSCjc4UmcG+fWUUuzwhS8Xpn5xm0 +E4ayU7YHGY4g5p87FQqRAB1jxvedgkeQ9ETDKmm6GXQo/VBSrRpB4VTTz6na +NOi5b/XClz2C6N+X2yTGLSD/9kBcGxpF5WbHVuV07oVjVyPnvmSMooKFwIdl +6ZZA8D35vGp2FP3YLfOqNdYafA5ceOvoOob6uHhnB31tYXjqj8ypZ2MoZMOR +K6fV9oPOpKuoscE4qjjc1nI1zh7S2iucu2vHUdS87KLO4QOg33GycsPWCcS2 +2nPombcD8GR0BV5umUAm7im7hw84gmVdhoH4wUn0RjY7sJXqBLsGvTUPkpNI +7tbZ5uJNB6HvVlDCzMXvqGFA28ZO+BBITpbMC+tMIcW3M/4R3w8B3/VTSS2v +phD1akpZ/oAzHMxozt59bhpl883rpT52Ab+s46e/yM6gO7u39MbdcwUPU4NJ +VvQMyjS6KLZc6gZOY/XsiL4Z1PmpMJ6a6A7vLxX9DNo+i+ptr6uHnvKAk81f ++1m5s2g22JErhOEJ4ly3a/y55hB7j1bAlLkXvI8Oe5TmNYeKv3/8cczQG5IV +rJytWueQy81CP08hHzh5bhWPkuo8qq2x9uZN8IHhwrroibh5ZCL/5ueFnz7Q +1GRWkTowj9QG/HtfH/aFu4FpFHfDBTS09q/917/5Qk1AWrjS5QXUlWznt/cg +HbS1HDQ29y2gdFbO2uNddDjT4zBRpMNGzQ/+/PSz9APnABvjqqNstM4DEqiN +fnAgKv8XfxkbKa9/1rmh2Q+W381rzmPrt9vKCDzwgxvc+k/6y9nIwdS95MND +P+hglHvfrWSj9A0RL08+94N438RVPrVsJNd3e13bBz+wK8r/ea2RjdS9pDM9 +Fv0gt0NG9d82NjLxmSqO28aA+09Niie+stGtf2aO2RkyQNZIzr7oGxut757b +JW3MAEV5vuP0ITaaslh8W7yDATJzQQY9w2x8f3Fxt5sxYMxwKLFxlI1EFsVc +xQ8wgIffKDJgio2GkgzW5AQzYLBZke7zk42Sm04cbrjFAIO2oiv3hDkomJJh +wipmQIcek2UvwkE2JdVrjEsZoCb1pJfEFswgS+6WM+D639zrxEU5KC7MfvxO +HQO21Z2j0MU56ISW+l/1jxjQ3nffbkyKgwIzXgbVfGHAhdrHm1KVOMhShDQN +G2BAqHceRUaZgzbFcQlTvjJgJ4ddm41NhhmUVw8z4KzI9Q1FKhzka5fzvWqS +AVbrrM7WqnGQC/+xkMolBjSTJSk1Gzlo7zG50DIpJmSTShKWWzjoUU68VaoM +E8o1PFufYZu2z6mz5JjQ+PXSawt9DtLXePnRXJEJR8Md/qCtHCTbE23+SYMJ +c5eyCjdTOWhie5+UoAETFt7tFRgx5KDLPLn3/R2ZkFtGC+jfifvfIpRpe5AJ +d/g3EZa7OOicOyuM6syEczxfm2uwWXX2G/+4McErJjb8LML1E9wp1+hMyDOe +XqOwm4OoL+iMJ0eZ8PbrhUZ9Ggf1pGisVbvCBJFI5ZsfLTmoAgkHjKYwYf3A +4MgmK5z/faG1PI0Jn05++vdvbIpla4xxBhOaKKYWEtYclMzlN2d7gwne1vKl +5jYctOdI7kdWGRPaNo8WnbfjIAWF84a7KphQdiridgf2wosjabxVTJh95CG3 +fj8H5Wki2+RaJrx4uGySjf2rr68lv5EJFSdUY4vtOajORr64o40J9R6KUvkO +HHRpiYc//QUTztLNn/dj04vHfV3bmXAr5z9S3pGDRPka5Yc6mWDg/cM3FTuo +yeXyz/dM0PlrwonlxEFq2tci1IfxfO131th0iIOWek52j5G4Xr/ME+7YXXFM +/cpRJpj3Pd6ZjB0zuG3cZJIJD/Jqf81i92Z2e+6fZ4KAzExYjTMHpa4Ss4ji +JiAvQEBH2pWDmuf63MN5CRDRLJu3wB7pKw0L4SdgyjGLKxzbtI6WS19DgNp1 +7ZFX2KQP6z8rMQJqn5DDLDdcv42FuIUEAdb3qjpvYu8wEtdCkgQUdB399Rz7 +inDZIaosAfxJteoy7ni8sb9aXoWAlAGDm7exicKyNkk1AnR9Gko6sK9ciexf +p0FAy/Nx9gw2SUgI82kRkL0GuVI98LjE3oBJfQLW/K/dqhK78bdELEkhQLJ3 +4Ug79vDYwNWBbQTceXjlwyj29paox2+NCfAxXBOu5MlBQ0EViveBgHKqdfdZ +bBGXaIO7ZgSoLnlJZGGbmO+zqaYRYJdef60aO1n2a2ThPgIKpaX8P2M38FVe +ybEi4O9eyboZ7G/T0UX/2BDgok6j8XlxkPFTyXdJ9gR4TsrqaWHTq79OJDgQ +MFLSkLAdO+l6Jc8ZJwJsg8PVrbG/hlnqR7gQkBtK3RiILewltTfUjYClg1uS +WCt5lt88Az0IEEg0MYxf+V7p5CUvHwKyVIIO5GA3CFrludAJ6ExMfly6kseW +uufAIEDep5ZVv5I3+K3ThiDggNiH0P+t5LVXkXsCCNAwX7rdtlLf3ZO/IJAA +wSfS2q9X8vOs1u8Iwv2k6U18WMlPktYxCMHr02M63b+SzxravSWUgHgSDEls +IUa1i1YYAVtoJi0T2Eb7Y46oheN6ctSTZlbyt1vHK0QQMPiOO3sBO1FDJlua +RcDd6c7pRew7osO1YlE4Ty05bgl78L/qF2tPEGD/dofX8kr+SMwgfwwB8ykf +In9hG76x/vEnlgB1WcaHFf8fuWfs7A== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6992239972081986, + 1.3981913044713759`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6992239972082002}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6992239972081986, + 1.3981913044713759`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6992239972082002}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VdsbB3BzJWTInHkoRDonU6n1xlEZE8o8HedscpEk96BoQgPKUNwr +kSFD5qGE+qlUKqFUSgnFNmY+R7mq3/LHfvbzedazv/t916RCP+LA5OHi4hrF +z8r7aIfexrtdHbuqXolzr/Uh0a6pAgM6rQwtZW6irHggxzBdndaMevOJJyu2 +Z7wSEKI+QfGz7Y1C2NWs2Mf8tHYUleAuLoJ94alMS2zpaxQVLN6+Dvte19Eb +y5R3aF/57IgY9njvixORTR/QqMNP5npsuWE1d475Z1QSpLVHGtt6+oTJsfZ+ +NCh45rwc9oPl8bWs0kGEgFdXEfv9aenoOyHfUKxKOVUVe0qANr5AGUaJT2Kv +a2ILJIa6UhdJ1GgR7a+DrSiW3Xa0aRTZ3c9J18e2k+fcmjKfRMuCDElTbCJX +VUp39RR6o8p32Aw7VmN/3F/t08ip/pWiJfYH6bdbw0tnUfdwX5UzNsMt8HBa +4hz69V49yRt75jrXzZqQeaQ9dvWlP/ZqVV3RWQobjeothkRipzMe7xWV5CCV +ZyPdZ7CVi1xjtyxyUL0lb1YitvHm+Kngph9IdLpp/03sAMP+9nHzZVTntd2x +E3uBdZxPUPMXWuo7//wT9qmmtaZaq38jPnO+vFHsTDC+7d/+B40Pn4nk9cX1 +FbbRwkq5oVy++NFO7NKnaQOn5XnAbS9hZYs9M+J1IiWRB1QHHLd5Yp/QZtdW +hfCC/tMHejHY6ZUqatMUfpDr7bvfit3bNfngdz4/OL5Tce7BVp676yYiKQAF +9pkO49hl2+xSdRcFwChKMVSMTqLWe1HcQU2rwW8xy4KBzX7c3T9qLgRz5U/c +NviRSNxGSDT6gRCExiTrG2Hrv6WBsIkw6JPPIx2wA4fqc7fqiYCfSxZxETuU +p11/p5AouEbfL/mDPaxaMRvHEQPYVPH+DwPPD/FiTSdVHGoTlr+pMEnEc5tU +kTkqDlO2Lxg0bGWqkkPphDisuj3SchHbzfxKTceABOy+Zv5tA0GiTr+wY9Iv +JYEe4Pr6kD+JvhQlX/JZLQVVdaLSp7AnJ0rzSyykgKQ4d5VgC4Z/697RIgV6 +yteyf2PTzjlt86mXhvj+pbzyALzvCgzZxTmy0FVDd1MJJFHB8FLE9nAFkLzm +cc47mET7DiZ8OVauANV6LhfSsCdbJfaUkwpwyMRo/hn2toLNksquipDoW8De +GoLnk+5Vy79LCRYLPOoFj5Bobnrg79GzyuAY4qrSGUoiiWBaXa2tKngcyarL +DycRWSAYYB+oCjWxUS5D2A2fu+S/x6vCzAZ/X43jJPKw8Tyr2aIK/d0hecXY +BToRDv9Q1CA0wXewNgL/f7xoJkZaHXY2azj1sUjk5L9W12pQA5rNN8mcOEki +FHGQ4vxLAxa4Cz49w9aOyzFiyGrCaZWjXOtjSMSVTzWLOaAJtwQEQsqxy7+4 +O9c81ATFgH0fh2Lx+TxUdloubyPwDxTOMs/g+mi278fpWjBF/WxQnUCifMeM +T4sxWnDqd6fmmvMkSqYPDvBlacHotE2kLzbj1PEJxW4tSGsZM5O4QCKx5mwu +R3NtaHj7LSD6It4/1CntJjUdGO+J4/ZKIpG86uXYS0ObQdONdiwojUTNFxe0 +fvLoAvt9ttxHbI9517eEii4Y7lllsCedRDda1bXMvHRBpWH9Y5WrJFL1b3zz +o0cXSnKYtC/XcL9lwxrESz3wCbb4EvQviRTkFQllV32Ir6k8M3CTRJsLw4X+ +QxTYk9dFVa0hEZ1xlq1rR4EDwQJxediZaqlffDwosMArt0OtlkS8eZVVT1kU +2EsbfqdRh8/bjXGn1GoKZJg5P91yB9+nmT7ZWmpUiDq8+uqhRry+l2z0XAS2 +wRmYW55+RKKbYer29e0G0Phw8prDOxJ1RSCjc4UmcG+fWUUuzwhS8Xpn5xm0 +E4ayU7YHGY4g5p87FQqRAB1jxvedgkeQ9ETDKmm6GXQo/VBSrRpB4VTTz6na +NOi5b/XClz2C6N+X2yTGLSD/9kBcGxpF5WbHVuV07oVjVyPnvmSMooKFwIdl +6ZZA8D35vGp2FP3YLfOqNdYafA5ceOvoOob6uHhnB31tYXjqj8ypZ2MoZMOR +K6fV9oPOpKuoscE4qjjc1nI1zh7S2iucu2vHUdS87KLO4QOg33GycsPWCcS2 +2nPombcD8GR0BV5umUAm7im7hw84gmVdhoH4wUn0RjY7sJXqBLsGvTUPkpNI +7tbZ5uJNB6HvVlDCzMXvqGFA28ZO+BBITpbMC+tMIcW3M/4R3w8B3/VTSS2v +phD1akpZ/oAzHMxozt59bhpl883rpT52Ab+s46e/yM6gO7u39MbdcwUPU4NJ +VvQMyjS6KLZc6gZOY/XsiL4Z1PmpMJ6a6A7vLxX9DNo+i+ptr6uHnvKAk81f ++1m5s2g22JErhOEJ4ly3a/y55hB7j1bAlLkXvI8Oe5TmNYeKv3/8cczQG5IV +rJytWueQy81CP08hHzh5bhWPkuo8qq2x9uZN8IHhwrroibh5ZCL/5ueFnz7Q +1GRWkTowj9QG/HtfH/aFu4FpFHfDBTS09q/917/5Qk1AWrjS5QXUlWznt/cg +HbS1HDQ29y2gdFbO2uNddDjT4zBRpMNGzQ/+/PSz9APnABvjqqNstM4DEqiN +fnAgKv8XfxkbKa9/1rmh2Q+W381rzmPrt9vKCDzwgxvc+k/6y9nIwdS95MND +P+hglHvfrWSj9A0RL08+94N438RVPrVsJNd3e13bBz+wK8r/ea2RjdS9pDM9 +Fv0gt0NG9d82NjLxmSqO28aA+09Niie+stGtf2aO2RkyQNZIzr7oGxut757b +JW3MAEV5vuP0ITaaslh8W7yDATJzQQY9w2x8f3Fxt5sxYMxwKLFxlI1EFsVc +xQ8wgIffKDJgio2GkgzW5AQzYLBZke7zk42Sm04cbrjFAIO2oiv3hDkomJJh +wipmQIcek2UvwkE2JdVrjEsZoCb1pJfEFswgS+6WM+D639zrxEU5KC7MfvxO +HQO21Z2j0MU56ISW+l/1jxjQ3nffbkyKgwIzXgbVfGHAhdrHm1KVOMhShDQN +G2BAqHceRUaZgzbFcQlTvjJgJ4ddm41NhhmUVw8z4KzI9Q1FKhzka5fzvWqS +AVbrrM7WqnGQC/+xkMolBjSTJSk1Gzlo7zG50DIpJmSTShKWWzjoUU68VaoM +E8o1PFufYZu2z6mz5JjQ+PXSawt9DtLXePnRXJEJR8Md/qCtHCTbE23+SYMJ +c5eyCjdTOWhie5+UoAETFt7tFRgx5KDLPLn3/R2ZkFtGC+jfifvfIpRpe5AJ +d/g3EZa7OOicOyuM6syEczxfm2uwWXX2G/+4McErJjb8LML1E9wp1+hMyDOe +XqOwm4OoL+iMJ0eZ8PbrhUZ9Ggf1pGisVbvCBJFI5ZsfLTmoAgkHjKYwYf3A +4MgmK5z/faG1PI0Jn05++vdvbIpla4xxBhOaKKYWEtYclMzlN2d7gwne1vKl +5jYctOdI7kdWGRPaNo8WnbfjIAWF84a7KphQdiridgf2wosjabxVTJh95CG3 +fj8H5Wki2+RaJrx4uGySjf2rr68lv5EJFSdUY4vtOajORr64o40J9R6KUvkO +HHRpiYc//QUTztLNn/dj04vHfV3bmXAr5z9S3pGDRPka5Yc6mWDg/cM3FTuo +yeXyz/dM0PlrwonlxEFq2tci1IfxfO131th0iIOWek52j5G4Xr/ME+7YXXFM +/cpRJpj3Pd6ZjB0zuG3cZJIJD/Jqf81i92Z2e+6fZ4KAzExYjTMHpa4Ss4ji +JiAvQEBH2pWDmuf63MN5CRDRLJu3wB7pKw0L4SdgyjGLKxzbtI6WS19DgNp1 +7ZFX2KQP6z8rMQJqn5DDLDdcv42FuIUEAdb3qjpvYu8wEtdCkgQUdB399Rz7 +inDZIaosAfxJteoy7ni8sb9aXoWAlAGDm7exicKyNkk1AnR9Gko6sK9ciexf +p0FAy/Nx9gw2SUgI82kRkL0GuVI98LjE3oBJfQLW/K/dqhK78bdELEkhQLJ3 +4Ug79vDYwNWBbQTceXjlwyj29paox2+NCfAxXBOu5MlBQ0EViveBgHKqdfdZ +bBGXaIO7ZgSoLnlJZGGbmO+zqaYRYJdef60aO1n2a2ThPgIKpaX8P2M38FVe +ybEi4O9eyboZ7G/T0UX/2BDgok6j8XlxkPFTyXdJ9gR4TsrqaWHTq79OJDgQ +MFLSkLAdO+l6Jc8ZJwJsg8PVrbG/hlnqR7gQkBtK3RiILewltTfUjYClg1uS +WCt5lt88Az0IEEg0MYxf+V7p5CUvHwKyVIIO5GA3CFrludAJ6ExMfly6kseW +uufAIEDep5ZVv5I3+K3ThiDggNiH0P+t5LVXkXsCCNAwX7rdtlLf3ZO/IJAA +wSfS2q9X8vOs1u8Iwv2k6U18WMlPktYxCMHr02M63b+SzxravSWUgHgSDEls +IUa1i1YYAVtoJi0T2Eb7Y46oheN6ctSTZlbyt1vHK0QQMPiOO3sBO1FDJlua +RcDd6c7pRew7osO1YlE4Ty05bgl78L/qF2tPEGD/dofX8kr+SMwgfwwB8ykf +In9hG76x/vEnlgB1WcaHFf8fuWfs7A== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6992239972081986, 1.3981913044713759`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6992239972082002}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.6992239972082002}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.6992239972081986, 1.3981913044713759`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9942565451411943`*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"e32b63f0-d2ed-4093-834f-9137e724df36"] }, Open ]], Cell[CellGroupData[{ @@ -6668,444 +6667,509 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918505781608486`*^9},ExpressionUUID->"4b73592e-b155-8f42-b33d-\ -562f8b3faecd"], + CellChangeTimes->{3.9918505781608486`*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"9f5fa53c-8bea-a349-9c29-e4614f56cc98"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.024567717505943`*^-267\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, 9, + 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942565456968822`*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"f1aaeb15-9934-4221-835a-d0eda97a1ca8"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"a2ecd22c-b766-5347-9e03-9d459620be75"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.563493765189651`*^-278\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 95, + 10, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994256545706444*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"48304157-a249-47d3-84aa-2134db45a8f1"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"45a49c2b-98f0-ca4e-ab79-bb0334e26ffd"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.207424544335962`*^-289\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 95, 11, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994256545715137*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"6bc2d566-d448-4155-95a5-624e1e3aa5bb"], Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"258782e2-0da4-1143-8b36-76da0d2ac6df"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.031746 0.0147151 6.72103 [ -[.18254 .00222 -3 -9 ] -[.18254 .00222 3 0 ] -[.34127 .00222 -6 -9 ] -[.34127 .00222 6 0 ] -[.5 .00222 -6 -9 ] -[.5 .00222 6 0 ] -[.65873 .00222 -6 -9 ] -[.65873 .00222 6 0 ] -[.81746 .00222 -6 -9 ] -[.81746 .00222 6 0 ] -[.97619 .00222 -6 -9 ] -[.97619 .00222 6 0 ] -[.01131 .14914 -24 -4.5 ] -[.01131 .14914 0 4.5 ] -[.01131 .28356 -24 -4.5 ] -[.01131 .28356 0 4.5 ] -[.01131 .41798 -24 -4.5 ] -[.01131 .41798 0 4.5 ] -[.01131 .5524 -24 -4.5 ] -[.01131 .5524 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.18254 .01472 m -.18254 .02097 L -s -[(5)] .18254 .00222 0 1 Mshowa -.34127 .01472 m -.34127 .02097 L -s -[(10)] .34127 .00222 0 1 Mshowa -.5 .01472 m -.5 .02097 L -s -[(15)] .5 .00222 0 1 Mshowa -.65873 .01472 m -.65873 .02097 L -s -[(20)] .65873 .00222 0 1 Mshowa -.81746 .01472 m -.81746 .02097 L -s -[(25)] .81746 .00222 0 1 Mshowa -.97619 .01472 m -.97619 .02097 L -s -[(30)] .97619 .00222 0 1 Mshowa -.125 Mabswid -.05556 .01472 m -.05556 .01847 L -s -.0873 .01472 m -.0873 .01847 L -s -.11905 .01472 m -.11905 .01847 L -s -.15079 .01472 m -.15079 .01847 L -s -.21429 .01472 m -.21429 .01847 L -s -.24603 .01472 m -.24603 .01847 L -s -.27778 .01472 m -.27778 .01847 L -s -.30952 .01472 m -.30952 .01847 L -s -.37302 .01472 m -.37302 .01847 L -s -.40476 .01472 m -.40476 .01847 L -s -.43651 .01472 m -.43651 .01847 L -s -.46825 .01472 m -.46825 .01847 L -s -.53175 .01472 m -.53175 .01847 L -s -.56349 .01472 m -.56349 .01847 L -s -.59524 .01472 m -.59524 .01847 L -s -.62698 .01472 m -.62698 .01847 L -s -.69048 .01472 m -.69048 .01847 L -s -.72222 .01472 m -.72222 .01847 L -s -.75397 .01472 m -.75397 .01847 L -s -.78571 .01472 m -.78571 .01847 L -s -.84921 .01472 m -.84921 .01847 L -s -.88095 .01472 m -.88095 .01847 L -s -.9127 .01472 m -.9127 .01847 L -s -.94444 .01472 m -.94444 .01847 L -s -.25 Mabswid -0 .01472 m -1 .01472 L -s -.02381 .14914 m -.03006 .14914 L -s -[(0.02)] .01131 .14914 1 0 Mshowa -.02381 .28356 m -.03006 .28356 L -s -[(0.04)] .01131 .28356 1 0 Mshowa -.02381 .41798 m -.03006 .41798 L -s -[(0.06)] .01131 .41798 1 0 Mshowa -.02381 .5524 m -.03006 .5524 L -s -[(0.08)] .01131 .5524 1 0 Mshowa -.125 Mabswid -.02381 .04832 m -.02756 .04832 L -s -.02381 .08193 m -.02756 .08193 L -s -.02381 .11553 m -.02756 .11553 L -s -.02381 .18274 m -.02756 .18274 L -s -.02381 .21635 m -.02756 .21635 L -s -.02381 .24995 m -.02756 .24995 L -s -.02381 .31716 m -.02756 .31716 L -s -.02381 .35077 m -.02756 .35077 L -s -.02381 .38437 m -.02756 .38437 L -s -.02381 .45158 m -.02756 .45158 L -s -.02381 .48519 m -.02756 .48519 L -s -.02381 .51879 m -.02756 .51879 L -s -.02381 .586 m -.02756 .586 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .01472 m -.06244 .18263 L -.10458 .34796 L -.12507 .41668 L -.14415 .47199 L -.16371 .51906 L -.18221 .55405 L -.192 .56876 L -.20263 .58172 L -.21228 .59082 L -.2212 .59698 L -.22586 .59936 L -.22843 .60043 L -.23087 .60129 L -.23313 .60195 L -.2356 .60252 L -.23669 .60272 L -.23784 .6029 L -.23886 .60304 L -.23993 .60315 L -.24059 .6032 L -.24132 .60325 L -.2426 .60331 L -.24332 .60332 L -.2441 .60332 L -.24483 .6033 L -.2455 .60328 L -.24679 .6032 L -.24752 .60314 L -.24819 .60307 L -.25074 .60272 L -.253 .60228 L -.2555 .60165 L -.26055 .59995 L -.26547 .59774 L -.27064 .59486 L -.2799 .58832 L -.30075 .56765 L -.3205 .54159 L -.33886 .51282 L -.37791 .44198 L -.41941 .36071 L -.45939 .28487 L -.49785 .21945 L -.53877 .16105 L -.57818 .1166 L -.61606 .08416 L -.63714 .07001 L -.6564 .05921 L -.69523 .04269 L -Mistroke -.71425 .03672 L -.73499 .0315 L -.7547 .02757 L -.77569 .0243 L -.79714 .02174 L -.81732 .01991 L -.83744 .01853 L -.85592 .01756 L -.87479 .01681 L -.89546 .0162 L -.91501 .01578 L -.93594 .01545 L -.95662 .01522 L -.97619 .01507 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJzVXGmUFEUSbug5kEFuQRiRWxgYDmFmGJiBEVRuWFhwXcHHcx6HKCCzAquy -gLq8VZBBDmVRkFMRlCcCgoAil7sIrByK3Mdws3LfN+R2RFdFVZaRmd1t43N/ -TE9VVHzxfRmZlVUZVd3tsgf27tkve+Bz3bMrtHgxO6f3c90HVGje/8WAyZ/P -58t3IPCXVMEXE9gWPp/0MUbcFgfhI7AtxB1xED7C3+6P/+LFnt17xPPPPy9q -1KghqlWrJurUqSMGDhworl+77stAn1hx+NBhkZKSgn/gV6xYMV9+2PP5xVsj -3wIv9Mxv+Y8dMxZjVa9eHWPfuX3Hl2qMVdAdS6crDUP5Rc+ePUXJkiUtIcHP -hIQEcevmLcvDJIeLkeCOYZJixYkX27dtR58GDRqIevXqoe/wvw8XN2/cDChQ -64iVe2Pvnr1i0ReLxNUrV5E6ABfDhg0TTz31lK+JJXnL5i2ic+fOVlD4jBPL -li4TrVq1EpcvXUZMnz59xMgRI9MZSEwIVHaGDx08JOrWrSsWLlhoZdMv0tPT -KcP59fSpyjAJ7jD4p5NjJzlvf57YtXMXYS6cv4BJzsnJsZqllGLleZClCNSA -KtjL1OS1RYsWaHczVqpUictrQSa0nYATP58QqampYtrUaVbO/GLM24GT+NZt -KY8KurQQw8QzEmypN67fEJUrV3adGEo6T64CPSBWfLNCmasYywa9mZiYiMPa -HiyZmZli546duJemSZqbw/Y7e+YsjpLcUblWf5g5UhlsAsNhZ2XCuxNE69at -XZ1g5vDL6alVqxYOTFN6Tp44iR3jhPCLbt26ieVfLzemx83RwLJBZzVs2FCM -Hzc+bA43luNIs5TDbFWiRAnRrFkzGFD+EGmsDOVYw2zUW6PEvr37cIjBUH39 -tddF+/btufnMbggIAYFuht69e4v5n89XJitWT9fIgpw/dx7b+s3ybyi0ia4B -g43R09kj7NLFS2LEmyNgwg+5dZ78wfWmefPm+D8pKQldAz2oy9+pk6fYHgoI -N+ZPQZdhQTas34BXOfcpY6JLZ7B+PZ3dXVlZWXTmhUon5S948lpTnK9pBBOY -dcnRJE3myLIm4+LFi0Msml5N8e0B4cJRk93xG1u2AQMGiI9nfRzS5GVzaFKT -ZSXDyrbdzDirn1q2bCk2b9pMrYE5pEqVKmk6lExgt2/j9xvxsu3WffrU6V9c -nhSMqWGF4VP37LPPisWLFodCF6vOWBNrCMB4bNSokejUqZOYPm06tN9np+2r -ZV/h8L544SJeg+HGb3Tu6FQjlMtd8D6zbNmyGBZmG7jQdezYEWYhmpG0lKGE -kKnTLdwPW37AO6uDB3AJIbb9tE1UrVoV8CZqTw7hBjg5ORn+Aj0Hn35MgM1o -TzVrVq/BqzMkJd5K2Lix45AVLk39+vXDgd6A8Y8LkSvVUr5p4ya8HypTpgze -vMN9VSB2rIY2TQ+NCVFBikUx99O5onHjxniBgfwHJkurFTy9lVTVAq+WRQ9r -RpsKPxf8fxyvFLQGDq+Aj3w6K8bKD4ZCTNSEcGxOFOXWvb+W47ew/U7Vx7ht -8FcODPdoFSd4O/kx2nqcIXqUsT3G2HCWKQamxnebqj58FgJTjCoKT48OLeGj -IOw+wx5vBh8FYLe367ifjuNUHg+7L/Cnns/2xKk+DvYHGDxx0oqF/ZcNnnXJ -c4jbM8btSVKT4QMPvWZ2rk6Rh/PONgA2HqLIb5idK5PzSJdzLB2vQAnOZY8/ -SMffdpPFege/k6VEYhwbIqIMcbwTIqI0ISaoUyCNrBKkaiLfy7CXn7HhZ1EK -NikCdGFSOzkCdCFCTzGgndYmEGZayJiCtDtDjfGrVMYR48wI0LHE/ZEB7eiN -IcZZIWOc3dkujF81nd2ho3NCcb9N0T9VK+KAtwg41wBEp5u09ZnaPZaxXSPg -vPCAVwn4eXjAKwScbwCik+OuubVy3C/T1kK1exxjO0/AReEBzxFwsQGITo77 -l6G4n6WtJWr3eMZ2ioBLwwOeJOAy7wjn3H8m968NPOjkuC9XuxdgbMcZm4aR -C3GMsYWp4ijJX2EAopPjvjIU9yO0tUrtfg9jO0jA1eEBDxBwjQGITo77t6G4 -59HWv4LuumdowbkiBlfWGRkZUJ2A52n2IhHKX7B4rF27Ni7CT/x8gi4eR48c -RQWBYz77WRksKIcMGaI8bQsytn2MzWpocAirHsCQeCjRwBM2iLDuu3V21fHY -0WO4SgahEGb2x7NhLW9P/IEIuMa+dPESXfSXLlkatv69jM3KfDBX9kMRYrEe -ilg5DtpArF1Rs21vvvEmdhrsuat28mODOPH+e+9j8RcqP8C3Y/sOKEVxEwfX -gD00YNaSbNMTC3tRDE2zKlwkERL43sT3rM4J2j6c+SH2xZHDR9hTwrnpcdR8 -R2pMTwdsNTVr1hTnzp6T1EydMpW61E7snNlz0BeGM04EeEPK5WYnqVlHavL2 -62vttpry5cvDA11JDTDn5Nhl+KDtg8kfiKZNm2KuuT7jlr47SNd60mWqYdu6 -oB+4LA0dOhT3bA1Q91ry5RLlycDp2k66NhjHkj3cbV2uaqk0lmB4u3WNzh1N -VVqlLtTgqPmPdEJaTNIJCTMf7NnFDHjCAmU378m3e9duyQYlc+thDdn69+8v -ZkyfEYLCbbT1vTTlKaqevsJWzOPHjuMItiunsz6aJdq1a2c/ic/OzhZdu3bF -EwcOQzfC3Hzm9Bl2iHE1rq2MzUqjfUXhaohFrGPwXBRGGqiEfAekUE0XRgT0 -IJwhFStWFG3atIHRwF37OWU/UtI2BvVwF0Sn2OO4bwrF/Qfa2qx250pemxmb -hpELsYm4t4QH3CjL1wBdiZCPahgLq4aCk9/QgRsIuNUFRB+lOzcANIzOBIRb -P4Xivl4+J3n3IoxtLQG3RwD02EzczmUat3ao3Ysytm8JuDMCIHcJCj3EGuLe -ZQA6d8a4tVvtXoyxrWJsGkYuxErGFqaKFSR/rwHorGtwa5/avThjW87Y3Ix4 -hAN+TYz7w2P8ioB5BqBrfSof1TCWYGxLKdiBCIAem0Y0F2IJcWuegZUgJ8f9 -kNq9JGNbzNg0jFyIRcR9OAKgx2aS79RsnDU0734fY1tAwKMRAD22MLnnE/cx -A9BV/2LqEe4TrBTjNI9CHFfzKIEem0ZqKeLhgCZup3rpFIp499KMbS5j+294 -IT4l7hMGoKsuKx81iXYqwbh1Uu1+P2ObTcBTEQA9NhO3UxLHrdNB9ygXcOxj -8NoUvDNdtGhR9Bk8eDC7OPAo8xy1snJXSjX2gqBDhw7iQF5w9ucUlmFsH5Hq -M5bCaBdj4twVEfxbtXIVvGqFr8sGIEWKFMG3N1566aWQZX9Iss+S7MiLMfHu -Ygz+wcIfOvvqlauUgpDS63oqJB910hutMo2dXqjQWUtw/LN0OhUbZ2Q6aTtH -cvKiVKex5Vy5fAWbB+9feuV4clKWsc1gbE4fR6t4Y39DYeI/J2IJwyWUra1z -SqdTMs8bx2C4RRxbH0wOaWlp+P6rUZ/raah81OlssESjrBNjfUJBBd67NXUy -SnMSdkGaDSOs4sRZGuCNzSZNmuCfQkMiY5vK2KyOjLRwY88KXyz8AsOqeouT -M4WSczEogrv6JZITp/5CKECH55La/QHGNpmxaaRyISYR92UDEJ04RpNo11sP -8lENYznGNpGCXY0A6LFdcYXAI+UousNzTc3zIGObwNg0UrkQ7xL39QiAHptJ -PvI4jDfU7uUZ23jGphHNhRhH3DcjAHpsJvnI4zDeUrtXYGxjGJtGNBfibeK+ -HQHQYzPJRx6H8Y7avSJjy2VsGtFciFHELbynWkU65HHKZ6BwMJ6jQg2sxNhG -yLT5I0BzAjTyKxGjh9uvxlRmbG+ouDVt4OL8Q1YRY0Cjp5Jb04YqjG24zB0b -AZpToWlDFWL0cMeFjOEYNcqrMrbXZO74CNCcCncb8HBV4vEwFvB6PsTEHKbi -0ejl4gyVue8xoNFTyV1Aja7G2P4mcxeMAM2p0LSBizNYVpFgQKOnklvThuqM -7WWZu1AEaE6Fpg3VidHDfa8ak8TY/qrittoQ5ZKS/Z0W+Ipw27ZtMRys7lat -XMWuEzjJg+QGB9dId/MVoHiMBM2AdRocztufh9kI/GcLIUkkUZlfq598d/fN -H9s25YMpYtCgQZJt/Ljx4tVXX7Uy8EuZNRjbADn3RagR0XoPyLbBGIOXrNy2 -BfMXiO7duzuCsbbDDZEBqqwXJsHRrUH5cYTDCyduG9RackflcoIxh55sFiVx -ML6iV5GKx7eGYLzC1/ygKgXfP4TvKsL357jxW0OWyGXS6fpoVaTs8hl08eRJ -k/HlGCg7d+nSBV6c4aaHmowtR05qMeMQDbcyZdtmzphJw5F7xakmCfmLKolO -j4M5mm8bXbt6DSffQOJYccmM7QU5c8Utcb+qRGXPuzAYoDPhdzYC2rhX+5SS -uMxZ3Rppncq+RsF8D+8/wVwLf4Gxxp4QyZQaT5KCz4Lp1tn1nWt2TuUuy31V -bbQ6gMNwtj6yspIGNHoquUuo0bUZ23OqOBoVXJzechtKGdDoqeS+T42uw9h6 -ydylXWh0VGI47lIsGqN7eO5Xq6zL2HqoGEuHF6e7rKKMAY2eSm5NGx5mbNky -d9nw0M/I6EQDGj2zVco13PUYWzeZ+4EI0JwKTRvqEaOHu5waU5+xPa3i1rSh -PjE+LXM/qMakMLYuKm5NG1KIsYvMXd57ZqUy6D+rGDXKuThPquKUN8RBvU/K -yiuqMWmM7QkVdwVDHGR8QuaupMY0YGydVNyaNnBx/iirqGxAo6eSW9OGdMbW -QeauYkCjZ0cVt0Z5Q8bWXuauakCjpwfzUMgYTq+GsRFjayNzVzOg0bOtitut -HA9nMJ6tZMbqasYM8vRgktSYTMbWQqVXw51JjC1k7hpqTGPG9piMrmlAoyf3 -rX8TdxPG1kzmTjag0ZP7dQGT8izG9ogqjkZFFql4RFZeW43heLhc4GcwwN0q -bUHVAlZksNqBN6cmvT+JLW05jWsiNzN4n3l3C1rr163Hw9ZP9eHbFfA1nsB6 -nF3/NCWJmbLYupbY36aM1atXL/HJnE8kG/jA7+0F260Y/soJFPcfpkZEu4z1 -yiuvYOrdNvgRJMBrBaM4bqb2ZD26Zax4sfXHrViQtZfxgIERHljOBwcGlrC4 -nDoXcNyvRxLz9kenmGW/EQSVCL/fjwMrPj4eapjsCeb8tolHWn2SFt3SVTwW -R8AXuhy2V69ajfPA/n372dOK+8GWFFlsinFsRlq/ggb07dtXskGd2G4UNzad -6xh3t+zJLpijWdN6Z/w7+KqV2zbvs3miR48eSsGPk2BuUSRlOCpfqIPXI+Gn -BOE3ZeEwjDC4gATOR3YENGdszoIb94Nrg4hLXfZ1ae2/1+ILYvBjh3CGB+ZR -9rRpTuweHcH7e/by69wc1ZYx6WpMS/JMljEN1ZhWjC1JRjcyoNHTg8lQY1qT -ZzUZk6nGODfTVWVMYzWmLXlWljFN1Jh25FlRxmS5MAhxlhblZc9H1NH/QJ7l -ZExTNcZZciXKmGZqTEfyvJ/04pFH1ZhOhLlP5nlcjelM0YvJPM3VmD+RJ06u -MYRpqcZg6QF/CimGtvBIGzWmK3wWIM/2ak/8/J38TJ7pOG4bfgvel+9/Sn8S -OQ==\ -\>", "ImageResolution" -> 96., "LightDark" -> \ -"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-3.233775858153751, \ --0.007969775184554129, 0.11832856225129938, \ -0.0005589111396958131}},ExpressionUUID->"06204099-db57-8e4e-bcc4-\ -fa1ae37c0063"], + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 95, 12, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994256545723329*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"c6ae0a09-0dc4-4d60-9c03-008d9b46d1b6"], Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-\ -04dec8739bf5"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8Vl8YAHChSMjKHvd9rTIiM+P1PFFkZWZvoSFJKFTGL1Eko4EGRUrC ++14aokUloWWPiFSSVVlNv9tf9/P9fO7nnvM85zzPOZcWsMcxiJ2NjY1Ywsb2 +7zk30PRYIa3YZMOdmdGz/qYm7RfFYzZ0J0Fc8G2Z2H4CcNXLAPHubNhd4LjN +qV8Tou2vd3F0X4Zl5j/XGPQjCE6KZf/oIqHeet8ZgX57GKzbsmemqx7GR8qj +Mvr8wFxh7O3Xrjdg28+lfqYnHH506Z+e7hqGFWI93g9eJ0CD2dXi15e/Q0uh +2tKLAVkgPVjzMUDtD+xwLBFvTcgDkVDf61xmHDi/4klzS3ohZK8zr92ylRv9 +x4q08rYXQ0+u5sOvAnxoMipl8uHWVUgrjn/JLiGIaWfoLf9NXAexU++P5VwQ +xt/nfokXlZWDuOrNIwslwniCX7WF/2Y5SNYfjfdmCqNFZV9Q5P1ykJ1eE6Xc +IIw1nks2q78uB0WbcL/aUWF8Xp1bsnWuHLQ5/+i91xZBVf781nioALtI0RGt +5yLIfCWhq9VaASnOliZv5lahi0PUy56OSpCsfiHJvkQUj3onXvEbqIQKYef5 +dStEMSHZcPm7j5XQ+caHmSUnimNKdtHP5itBwSGS7rBZFF3zpz4V8DKh3rZg +2as8UWRmRI8GqjPhj/nsi1ZjMTzFViMoHcqEzJLYsj/mYuhG0As/7WGCwjK2 +VHUHMRQITtlZuY8JNk94NpwIEsOug1akdhwT8s2IKpsMMazpluVaeZwJ69H6 +bPOgGHqNcZwRuMqEfQaXfJuSxHFLyhshkwEmWBXyz1ini6PEOSN3tyEm0LkO +pr44LY4d5vOOe0aY8KrdhdV2TRw55VT9csaYsDacl2PghTg2fiDeVc0xYbRk +f8k3SQnMO5cb5sLPAi+RLRNSVRI4lG3+gGbEAu242sSLdRJ445dUyBsGC3iG +V4vSnkpgZPj2+nhkQU0lByj1SOCeNGbOq00sELWuydRclEABT0aRlT0LXiUq +6GyylsRgnaK0wm0s2Dj1MzbsvSSOLjb7tx9nQczmUyqPxiWR956yicAJFlRc +Uu8VnpNE24C5b5tPskDc2c+ghlsK40bLPjJzWDB+58k8x1opvF//6ZfHeRbk +JGVG5h2QwpNzcrzi5SwYXqUU9phPGu2GOUP0W1ggtueBjJiYNFbtKHvA/4IF +Ns/cWncQ0hjTH7sw/JIFt2LT1FZqS6OVbOOKpDYWHB+cHnN3k0b++GuP8ntZ +oFVaGzJ1WRpxmJvUG2VBorGDv+R6GXQQOcUvtYSEzT4Xv+mbyuB9ix3pFewk +8Cd8+W+rjQxqHxvdYcJJwvmG5JJMPxlU4/m5yYmLhDtWd78sOyaDT28bZTnw +kTDtJh/9vUcGZzadnSwUJ+F2bDiX4IgMLn8wdPWnBAmHz9/LXTspg0fFKpvs +pUjgfedau4NdFu8d1LT8JkOCckg62zsVWfzvRsFmHnkSfKJmj7fEyeLZH8Ft +GWokKJ41lR5LlkV+FX2fSnWSyt/Jcq5MWZzmPuLZspaE2N9rXpkWy+Lc5/XM +X5oknP7PZ1VNiyxGt79s19AlwetKWUlnpyyObjdZpqNHAr1xQX/mnSzGiWZW +6uiTwOTJ8dCYlUWeqOJQVQMSWrIaC67IyKG1hlnxpDEJOVUi6xqU5bD0W+S1 +TgYJHh3+9e/WyeHf3zoqtSYkjIr/HpEyl0ONYsvSGCSBo1BTJTtMDu02bLve +YkaCYUVe9eEHcjjUXe/XbEnCxq4XfyafyeH9iEOje6xI2MLGaeH7Rg5ztRJC +Ba1JCHQM64EPcujh8XWXtQ0J5nG0+ISlBFbervI4t4WE5pV1Ret5CBRN6etU +tiPBvtjl2TQ/gY+ak51ZlD1b0wT9xQkstOVzrbUnIVxurmiDKoGRRxvSyhxJ +mK3KfPZDg8DjnB1KhBOVv82qEywdAoXK255lUU7e66dHNyGQ4PBSCHUmgWfZ +L49eUwJP2VgOtlPOzD8dn21B4Pb5sSLDrSTkNzx/xu5AYPZDSds/lOXcgibu +biVwuaeQtocLCcXji4L7PAhU35KlWE25cpWu5/tAanwDNm1fVxIehxRMNEQT ++PFII0e2GwmWvw2EDsYRWKEiGdBF+UVmu55OAoFs7+reSLiT0FOzPKH4GIFp +4SMTpyn7bCku9sogMJNvJO8l5ZFhkyaRHALrjNd4LvMgYXJFpFDyeQIXchOJ +XZT3FfLrMy5R8aquUsqjvKBT6jl7hcAw8Smzx5QPN5kllF8n8Kbj69hxyhw+ +A8VBldT3Dx1uFvQkIfXbgSaZagJpkzV6OpT5U4QnO+4QeOK6xT0nyjlSFUIZ +9whM3jHuG05ZnLlZ37yemk/WbrnjlC9sfO/59ymB+w2yfhdSpvccSrjVTOBf +RdmFasrXdotfCXtF4LrmPqGnlNXZq5qUOghcYp1t206ZPGM7OdBD4GQkT+kg +5fWqo0JnBwjMecKnNEr53oMkfbv3BNKDg59MUDZ1lvHiGiVwRHUwZZpy4+jt +hAfjBNaeNQv7Z5tDjlf2fyXwUodvzL/33whONGnMEahVx3b9E2XXkpTJTz8J +VGr5zvZvvH5DunDhIoHNGlzxbZQDXtbpu3HSMPPucsUnlD8FunoJLKdhyujz +71WUQxe+Jjzjo2HnW8nxAsqGe4NFPwrRUPSgE3sKZe6x3jIOcRqah/x9vJNy +Z4DdBpoMDRUclHWtKV/pa+g0odOw+FWv02rKkc7rQ72Uaajrr0Rn/xdf640l +sWo0/OYvfqmbWq+B+6fVburRcNtF9ZtxlG/o89S/MaLhcs4Im82UY5mHXaeR +hnpqBbmClEUvhySpWtMwvG7RKf/f/pHsF7O0p+EjW88n7pTJHPvy4K00zP02 +NbWKsl2yQfclXxpa2shGHaH2p+zf8t0PttHQQ/DTaz3K49F0jrc7qHi5LcY/ +UPs7dfuKteKRNHwqoONjSNllKL5BN4aGHxbnbg9S9aDgMePmdJiGpm/r2hIp +P7R++19GKg2P+j7dWkfVU8ZjB4kbJ2g4n2t+35myF+NpRVM2Ff+o6cRnqh5/ +rK3s4bxAwyJ+rSIeylpCiRpxLBr2+1zLUKTqnS1t9nHuLRqqej6yKnag6olj +p8etWup9g/BOOcq7Zh2Tvz6hodewqj8f1S+KuxX6QnppuM7vxLZ6WxIiHPLC +kwdpWG1Rf0+ZMj7nW1Y0QsPp9b1Tx6j+9LZ2TnNgkoas6u3vN1L9S7Tg2VFn +Djq+qqCtOb2ZyqcYQzqCm468PGk7hyyofGayWCf56Njt55KhQtkuKb//uRgd +ybF3iVWbqHwFhWptUKPjntJMw0JTKj5VgQH1rXTkGJPj+GhEwtwFyURtDzqO +wW7tpZRnVioqGPjSsa2nI4pmSNX7d4OdG3fQUW47U9dhPQnDtYFzHofomCZV +XX9Ch4Tn1rf5U6/QcetrV5mD1PnSeO8R68R1OqY0afwNVaX6kUaLc04lHRXp +1pyeKiTcFx7Kv1hDx3v3VJPXrqbm38ejfLOVjj3t7XFV1HmVv8sHhmfpOKRz +115PkoSzb7cPf/pJRysFhsRP6jw8ZbcveWKRjq3KjZK1YtR6aqc2LyyXx6uH +Zlt1VpGQ9IvlulJWHgu4/4pxCVDrkbY03NhcHlkTF11WLyXBuOxG4Zkz8ngp +feRA8AQL+oiygk3n5NHX/bfg1BcWxJ4pvThTII9Sb8K2RY2x4HZiyXnHUnmU +3VhmEPeJOv/dCnP56+Rx7/rjDbuGWLBm6anMo0PyqMlnaj7UTt13fOMSotUU +0HuFQLHiXRbcbI+JV1xHueNwYsgdFjhbHTjcrquAtzcqGV29xYJs3aiDWqCA +tRdOWhBVLODj3XNg0kEBTf5OvV8oYwFnTUB48H4FzF8xrbDpAgu+Cln5udQr +YHuIRonDYRZ0h9Jf7WxUwLbjIo8VD7Lg4dOfEN+igO/sRFLnY1iQGVsmd61T +Afc26nOfimKB5jDv4I8xBbSu+iLICmVBGOul9wVhRVz28nP2QQ8WjNlt9RzZ +pogBN3pyA3VYMJLu5xLBpYRk/Oexx9R9MmxMja7Jq4SsmmdpxoNMmLf4MTEh +oIRNvTL7yH4m8HBkJ++QVMKSVGHJvC4maMY0VPupK+GdrNNfHFqZcChISdjO +SQml/yYyI+4wQdRk/KVqgRI2ysgGxJxgguXUfssPesoYFq2f/k6LCeOB3Puq +41djYtHTyZu3K6j/EzH2lPo1mGHBunj28w0QalXKYE6p4LGpo5vmiDKQTq20 +19NTwx1Guxb2E6WQq2ogIByijq7ndv09bHgVnktu0P2etRaPGPf7ZflcAUPp ++kyNTg1EIldYJ6AI+DkuR/onaeJljaI87dOXQDZRzthdaR2GXTgwG7qrAJYr +et1ybFyH1gp8ReemzsFahkTlfm8t9ONVOyM6nAsRA0INVmza6LiweuBj62mY ++p6+1TJXG/tuhi+zW50DFhpP8y3VdZBf2W/LkcZMuP/d6Nf8Cx3c0MTrfXAo +HcLUtHpfB+mi+9o/nBdnU4Exua3dfbkebrh/f8ZULRk2KYjb8l3WQzTzNvnG +mwSrE44fqNfXx5GmRLCrPgwqQQYPFHv1kSO8zGYmLwaC7m8/Ur13PRaLbV/S +FRcFDwrbt31dZYB9rm//zl/dCzPXFuc1bhug2/h788KvoRCoWLY839YQBRW7 +nv4eDYHYJz47lewNUZcWv3KiPQQyg4SaSUdDtJQQavnyMATqrsSkN7saYo3P +pQSRvBAQUdq88o+/IUZH/zcraBUCT5U+iPhFG2LFlxVctyqCQWW1HKFUYIjP +cz7y7koKgq8qOXrktCEePS7Z+cYhELpbcJPwd0PsW/rLmmEaCA/DJp0iZw2R +/UHzNVIrEDJIy716Pylbzfy9JxwIKoZsN+5yGKFz9It9Lp0BEGC5m9YgaoTD +ScUGx7wDoD3Egrfd2Ah/ac3sadnnD3eKfw3NphphpOoqOc5DvqBnFjlvlWaE +3E/OJUYE+sLNoXHewhNGeIO9kPe7pS+QsgP6VtlGGJBsEqEi5gs3ch+euHjO +CNWSY1z3kj5QmJ5sYFFhhOSP4X0u495wLHJlVm6bEZpNVwrq7fYCj43yaCRr +jJqyDTfEL7nDn3Zu/gbCGNdtk2z+eswdCoMm+6zkjfFI7X7XtxHu8PFozX6P +1cZI1Lw49mWjO0Q02VXGaBkjn/Qn9vef3eD4loOyd8yNUer84Wfa+m5w163j +t84eYxR4tOnF8kEXkNqdUrP2oTFKWn8Q5vB3hozFYN20emMcWGvY72PnDOzZ +5qxPj41xV7q59jOGM4zdWlpa2GSMQSkndzZIOsNdtiO5Qm3GaFyygsezwwk8 +TiXsn/tgjN9eOMZx2TpBbm2M7v0VDFQyj94rYe4Iq3hCWbauDLT7/tPAwdse +is0OxU67M1B4vlRaztYetA5lmOV4MfChepDDL2N72DLN7Oj2Z6Bn72zygLQ9 +HO2c/REYysCex+KDF+7awcLleNPYRAbCifKv5x9tgV6jnLaSMgbuaElN/vve +BrZHFZ+3rGCgw/UgtmWNNjBXcTNonMnArg3VycrXbUCI3j2/7hYDa2qzfO+E +24A1t4z0vYfUfPns6SsXraGuvWRbWwcDF0Pi8uMJa7Div6Me3c3ARzyeEbJL +raHbomlOvI+BbUplEp2frWDm7pdUn3cMjJeMOnayygrUL2mWfx5j4NwHevvq +zVZQ17shOn2Cin/0Kl+6uhVYiTiBxjQDZTpiD3EJW0FwStTryFkGals7V5sP +WMLMw6P5YgsMHIk5v5XnsSUk/TwbePcnNf/Om0MfSi1BQKdUzfsPA1v73m7q +OWkJF3ffnV1cZKByhPeekShL+B8QrRDZ + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vl8YAHChSMjKHvd9rTIiM+P1PFFkZWZvoSFJKFTGL1Eko4EGRUrC ++14aokUloWWPiFSSVVlNv9tf9/P9fO7nnvM85zzPOZcWsMcxiJ2NjY1Ywsb2 +7zk30PRYIa3YZMOdmdGz/qYm7RfFYzZ0J0Fc8G2Z2H4CcNXLAPHubNhd4LjN +qV8Tou2vd3F0X4Zl5j/XGPQjCE6KZf/oIqHeet8ZgX57GKzbsmemqx7GR8qj +Mvr8wFxh7O3Xrjdg28+lfqYnHH506Z+e7hqGFWI93g9eJ0CD2dXi15e/Q0uh +2tKLAVkgPVjzMUDtD+xwLBFvTcgDkVDf61xmHDi/4klzS3ohZK8zr92ylRv9 +x4q08rYXQ0+u5sOvAnxoMipl8uHWVUgrjn/JLiGIaWfoLf9NXAexU++P5VwQ +xt/nfokXlZWDuOrNIwslwniCX7WF/2Y5SNYfjfdmCqNFZV9Q5P1ykJ1eE6Xc +IIw1nks2q78uB0WbcL/aUWF8Xp1bsnWuHLQ5/+i91xZBVf781nioALtI0RGt +5yLIfCWhq9VaASnOliZv5lahi0PUy56OSpCsfiHJvkQUj3onXvEbqIQKYef5 +dStEMSHZcPm7j5XQ+caHmSUnimNKdtHP5itBwSGS7rBZFF3zpz4V8DKh3rZg +2as8UWRmRI8GqjPhj/nsi1ZjMTzFViMoHcqEzJLYsj/mYuhG0As/7WGCwjK2 +VHUHMRQITtlZuY8JNk94NpwIEsOug1akdhwT8s2IKpsMMazpluVaeZwJ69H6 +bPOgGHqNcZwRuMqEfQaXfJuSxHFLyhshkwEmWBXyz1ini6PEOSN3tyEm0LkO +pr44LY4d5vOOe0aY8KrdhdV2TRw55VT9csaYsDacl2PghTg2fiDeVc0xYbRk +f8k3SQnMO5cb5sLPAi+RLRNSVRI4lG3+gGbEAu242sSLdRJ445dUyBsGC3iG +V4vSnkpgZPj2+nhkQU0lByj1SOCeNGbOq00sELWuydRclEABT0aRlT0LXiUq +6GyylsRgnaK0wm0s2Dj1MzbsvSSOLjb7tx9nQczmUyqPxiWR956yicAJFlRc +Uu8VnpNE24C5b5tPskDc2c+ghlsK40bLPjJzWDB+58k8x1opvF//6ZfHeRbk +JGVG5h2QwpNzcrzi5SwYXqUU9phPGu2GOUP0W1ggtueBjJiYNFbtKHvA/4IF +Ns/cWncQ0hjTH7sw/JIFt2LT1FZqS6OVbOOKpDYWHB+cHnN3k0b++GuP8ntZ +oFVaGzJ1WRpxmJvUG2VBorGDv+R6GXQQOcUvtYSEzT4Xv+mbyuB9ix3pFewk +8Cd8+W+rjQxqHxvdYcJJwvmG5JJMPxlU4/m5yYmLhDtWd78sOyaDT28bZTnw +kTDtJh/9vUcGZzadnSwUJ+F2bDiX4IgMLn8wdPWnBAmHz9/LXTspg0fFKpvs +pUjgfedau4NdFu8d1LT8JkOCckg62zsVWfzvRsFmHnkSfKJmj7fEyeLZH8Ft +GWokKJ41lR5LlkV+FX2fSnWSyt/Jcq5MWZzmPuLZspaE2N9rXpkWy+Lc5/XM +X5oknP7PZ1VNiyxGt79s19AlwetKWUlnpyyObjdZpqNHAr1xQX/mnSzGiWZW +6uiTwOTJ8dCYlUWeqOJQVQMSWrIaC67IyKG1hlnxpDEJOVUi6xqU5bD0W+S1 +TgYJHh3+9e/WyeHf3zoqtSYkjIr/HpEyl0ONYsvSGCSBo1BTJTtMDu02bLve +YkaCYUVe9eEHcjjUXe/XbEnCxq4XfyafyeH9iEOje6xI2MLGaeH7Rg5ztRJC +Ba1JCHQM64EPcujh8XWXtQ0J5nG0+ISlBFbervI4t4WE5pV1Ret5CBRN6etU +tiPBvtjl2TQ/gY+ak51ZlD1b0wT9xQkstOVzrbUnIVxurmiDKoGRRxvSyhxJ +mK3KfPZDg8DjnB1KhBOVv82qEywdAoXK255lUU7e66dHNyGQ4PBSCHUmgWfZ +L49eUwJP2VgOtlPOzD8dn21B4Pb5sSLDrSTkNzx/xu5AYPZDSds/lOXcgibu +biVwuaeQtocLCcXji4L7PAhU35KlWE25cpWu5/tAanwDNm1fVxIehxRMNEQT ++PFII0e2GwmWvw2EDsYRWKEiGdBF+UVmu55OAoFs7+reSLiT0FOzPKH4GIFp +4SMTpyn7bCku9sogMJNvJO8l5ZFhkyaRHALrjNd4LvMgYXJFpFDyeQIXchOJ +XZT3FfLrMy5R8aquUsqjvKBT6jl7hcAw8Smzx5QPN5kllF8n8Kbj69hxyhw+ +A8VBldT3Dx1uFvQkIfXbgSaZagJpkzV6OpT5U4QnO+4QeOK6xT0nyjlSFUIZ +9whM3jHuG05ZnLlZ37yemk/WbrnjlC9sfO/59ymB+w2yfhdSpvccSrjVTOBf +RdmFasrXdotfCXtF4LrmPqGnlNXZq5qUOghcYp1t206ZPGM7OdBD4GQkT+kg +5fWqo0JnBwjMecKnNEr53oMkfbv3BNKDg59MUDZ1lvHiGiVwRHUwZZpy4+jt +hAfjBNaeNQv7Z5tDjlf2fyXwUodvzL/33whONGnMEahVx3b9E2XXkpTJTz8J +VGr5zvZvvH5DunDhIoHNGlzxbZQDXtbpu3HSMPPucsUnlD8FunoJLKdhyujz +71WUQxe+Jjzjo2HnW8nxAsqGe4NFPwrRUPSgE3sKZe6x3jIOcRqah/x9vJNy +Z4DdBpoMDRUclHWtKV/pa+g0odOw+FWv02rKkc7rQ72Uaajrr0Rn/xdf640l +sWo0/OYvfqmbWq+B+6fVburRcNtF9ZtxlG/o89S/MaLhcs4Im82UY5mHXaeR +hnpqBbmClEUvhySpWtMwvG7RKf/f/pHsF7O0p+EjW88n7pTJHPvy4K00zP02 +NbWKsl2yQfclXxpa2shGHaH2p+zf8t0PttHQQ/DTaz3K49F0jrc7qHi5LcY/ +UPs7dfuKteKRNHwqoONjSNllKL5BN4aGHxbnbg9S9aDgMePmdJiGpm/r2hIp +P7R++19GKg2P+j7dWkfVU8ZjB4kbJ2g4n2t+35myF+NpRVM2Ff+o6cRnqh5/ +rK3s4bxAwyJ+rSIeylpCiRpxLBr2+1zLUKTqnS1t9nHuLRqqej6yKnag6olj +p8etWup9g/BOOcq7Zh2Tvz6hodewqj8f1S+KuxX6QnppuM7vxLZ6WxIiHPLC +kwdpWG1Rf0+ZMj7nW1Y0QsPp9b1Tx6j+9LZ2TnNgkoas6u3vN1L9S7Tg2VFn +Djq+qqCtOb2ZyqcYQzqCm468PGk7hyyofGayWCf56Njt55KhQtkuKb//uRgd +ybF3iVWbqHwFhWptUKPjntJMw0JTKj5VgQH1rXTkGJPj+GhEwtwFyURtDzqO +wW7tpZRnVioqGPjSsa2nI4pmSNX7d4OdG3fQUW47U9dhPQnDtYFzHofomCZV +XX9Ch4Tn1rf5U6/QcetrV5mD1PnSeO8R68R1OqY0afwNVaX6kUaLc04lHRXp +1pyeKiTcFx7Kv1hDx3v3VJPXrqbm38ejfLOVjj3t7XFV1HmVv8sHhmfpOKRz +115PkoSzb7cPf/pJRysFhsRP6jw8ZbcveWKRjq3KjZK1YtR6aqc2LyyXx6uH +Zlt1VpGQ9IvlulJWHgu4/4pxCVDrkbY03NhcHlkTF11WLyXBuOxG4Zkz8ngp +feRA8AQL+oiygk3n5NHX/bfg1BcWxJ4pvThTII9Sb8K2RY2x4HZiyXnHUnmU +3VhmEPeJOv/dCnP56+Rx7/rjDbuGWLBm6anMo0PyqMlnaj7UTt13fOMSotUU +0HuFQLHiXRbcbI+JV1xHueNwYsgdFjhbHTjcrquAtzcqGV29xYJs3aiDWqCA +tRdOWhBVLODj3XNg0kEBTf5OvV8oYwFnTUB48H4FzF8xrbDpAgu+Cln5udQr +YHuIRonDYRZ0h9Jf7WxUwLbjIo8VD7Lg4dOfEN+igO/sRFLnY1iQGVsmd61T +Afc26nOfimKB5jDv4I8xBbSu+iLICmVBGOul9wVhRVz28nP2QQ8WjNlt9RzZ +pogBN3pyA3VYMJLu5xLBpYRk/Oexx9R9MmxMja7Jq4SsmmdpxoNMmLf4MTEh +oIRNvTL7yH4m8HBkJ++QVMKSVGHJvC4maMY0VPupK+GdrNNfHFqZcChISdjO +SQml/yYyI+4wQdRk/KVqgRI2ysgGxJxgguXUfssPesoYFq2f/k6LCeOB3Puq +41djYtHTyZu3K6j/EzH2lPo1mGHBunj28w0QalXKYE6p4LGpo5vmiDKQTq20 +19NTwx1Guxb2E6WQq2ogIByijq7ndv09bHgVnktu0P2etRaPGPf7ZflcAUPp ++kyNTg1EIldYJ6AI+DkuR/onaeJljaI87dOXQDZRzthdaR2GXTgwG7qrAJYr +et1ybFyH1gp8ReemzsFahkTlfm8t9ONVOyM6nAsRA0INVmza6LiweuBj62mY ++p6+1TJXG/tuhi+zW50DFhpP8y3VdZBf2W/LkcZMuP/d6Nf8Cx3c0MTrfXAo +HcLUtHpfB+mi+9o/nBdnU4Exua3dfbkebrh/f8ZULRk2KYjb8l3WQzTzNvnG +mwSrE44fqNfXx5GmRLCrPgwqQQYPFHv1kSO8zGYmLwaC7m8/Ur13PRaLbV/S +FRcFDwrbt31dZYB9rm//zl/dCzPXFuc1bhug2/h788KvoRCoWLY839YQBRW7 +nv4eDYHYJz47lewNUZcWv3KiPQQyg4SaSUdDtJQQavnyMATqrsSkN7saYo3P +pQSRvBAQUdq88o+/IUZH/zcraBUCT5U+iPhFG2LFlxVctyqCQWW1HKFUYIjP +cz7y7koKgq8qOXrktCEePS7Z+cYhELpbcJPwd0PsW/rLmmEaCA/DJp0iZw2R +/UHzNVIrEDJIy716Pylbzfy9JxwIKoZsN+5yGKFz9It9Lp0BEGC5m9YgaoTD +ScUGx7wDoD3Egrfd2Ah/ac3sadnnD3eKfw3NphphpOoqOc5DvqBnFjlvlWaE +3E/OJUYE+sLNoXHewhNGeIO9kPe7pS+QsgP6VtlGGJBsEqEi5gs3ch+euHjO +CNWSY1z3kj5QmJ5sYFFhhOSP4X0u495wLHJlVm6bEZpNVwrq7fYCj43yaCRr +jJqyDTfEL7nDn3Zu/gbCGNdtk2z+eswdCoMm+6zkjfFI7X7XtxHu8PFozX6P +1cZI1Lw49mWjO0Q02VXGaBkjn/Qn9vef3eD4loOyd8yNUer84Wfa+m5w163j +t84eYxR4tOnF8kEXkNqdUrP2oTFKWn8Q5vB3hozFYN20emMcWGvY72PnDOzZ +5qxPj41xV7q59jOGM4zdWlpa2GSMQSkndzZIOsNdtiO5Qm3GaFyygsezwwk8 +TiXsn/tgjN9eOMZx2TpBbm2M7v0VDFQyj94rYe4Iq3hCWbauDLT7/tPAwdse +is0OxU67M1B4vlRaztYetA5lmOV4MfChepDDL2N72DLN7Oj2Z6Bn72zygLQ9 +HO2c/REYysCex+KDF+7awcLleNPYRAbCifKv5x9tgV6jnLaSMgbuaElN/vve +BrZHFZ+3rGCgw/UgtmWNNjBXcTNonMnArg3VycrXbUCI3j2/7hYDa2qzfO+E +24A1t4z0vYfUfPns6SsXraGuvWRbWwcDF0Pi8uMJa7Div6Me3c3ARzyeEbJL +raHbomlOvI+BbUplEp2frWDm7pdUn3cMjJeMOnayygrUL2mWfx5j4NwHevvq +zVZQ17shOn2Cin/0Kl+6uhVYiTiBxjQDZTpiD3EJW0FwStTryFkGals7V5sP +WMLMw6P5YgsMHIk5v5XnsSUk/TwbePcnNf/Om0MfSi1BQKdUzfsPA1v73m7q +OWkJF3ffnV1cZKByhPeekShL+B8QrRDZ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07171538655454374}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07171538655454374}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vl8YAHChSMjKHvd9rTIiM+P1PFFkZWZvoSFJKFTGL1Eko4EGRUrC ++14aokUloWWPiFSSVVlNv9tf9/P9fO7nnvM85zzPOZcWsMcxiJ2NjY1Ywsb2 +7zk30PRYIa3YZMOdmdGz/qYm7RfFYzZ0J0Fc8G2Z2H4CcNXLAPHubNhd4LjN +qV8Tou2vd3F0X4Zl5j/XGPQjCE6KZf/oIqHeet8ZgX57GKzbsmemqx7GR8qj +Mvr8wFxh7O3Xrjdg28+lfqYnHH506Z+e7hqGFWI93g9eJ0CD2dXi15e/Q0uh +2tKLAVkgPVjzMUDtD+xwLBFvTcgDkVDf61xmHDi/4klzS3ohZK8zr92ylRv9 +x4q08rYXQ0+u5sOvAnxoMipl8uHWVUgrjn/JLiGIaWfoLf9NXAexU++P5VwQ +xt/nfokXlZWDuOrNIwslwniCX7WF/2Y5SNYfjfdmCqNFZV9Q5P1ykJ1eE6Xc +IIw1nks2q78uB0WbcL/aUWF8Xp1bsnWuHLQ5/+i91xZBVf781nioALtI0RGt +5yLIfCWhq9VaASnOliZv5lahi0PUy56OSpCsfiHJvkQUj3onXvEbqIQKYef5 +dStEMSHZcPm7j5XQ+caHmSUnimNKdtHP5itBwSGS7rBZFF3zpz4V8DKh3rZg +2as8UWRmRI8GqjPhj/nsi1ZjMTzFViMoHcqEzJLYsj/mYuhG0As/7WGCwjK2 +VHUHMRQITtlZuY8JNk94NpwIEsOug1akdhwT8s2IKpsMMazpluVaeZwJ69H6 +bPOgGHqNcZwRuMqEfQaXfJuSxHFLyhshkwEmWBXyz1ini6PEOSN3tyEm0LkO +pr44LY4d5vOOe0aY8KrdhdV2TRw55VT9csaYsDacl2PghTg2fiDeVc0xYbRk +f8k3SQnMO5cb5sLPAi+RLRNSVRI4lG3+gGbEAu242sSLdRJ445dUyBsGC3iG +V4vSnkpgZPj2+nhkQU0lByj1SOCeNGbOq00sELWuydRclEABT0aRlT0LXiUq +6GyylsRgnaK0wm0s2Dj1MzbsvSSOLjb7tx9nQczmUyqPxiWR956yicAJFlRc +Uu8VnpNE24C5b5tPskDc2c+ghlsK40bLPjJzWDB+58k8x1opvF//6ZfHeRbk +JGVG5h2QwpNzcrzi5SwYXqUU9phPGu2GOUP0W1ggtueBjJiYNFbtKHvA/4IF +Ns/cWncQ0hjTH7sw/JIFt2LT1FZqS6OVbOOKpDYWHB+cHnN3k0b++GuP8ntZ +oFVaGzJ1WRpxmJvUG2VBorGDv+R6GXQQOcUvtYSEzT4Xv+mbyuB9ix3pFewk +8Cd8+W+rjQxqHxvdYcJJwvmG5JJMPxlU4/m5yYmLhDtWd78sOyaDT28bZTnw +kTDtJh/9vUcGZzadnSwUJ+F2bDiX4IgMLn8wdPWnBAmHz9/LXTspg0fFKpvs +pUjgfedau4NdFu8d1LT8JkOCckg62zsVWfzvRsFmHnkSfKJmj7fEyeLZH8Ft +GWokKJ41lR5LlkV+FX2fSnWSyt/Jcq5MWZzmPuLZspaE2N9rXpkWy+Lc5/XM +X5oknP7PZ1VNiyxGt79s19AlwetKWUlnpyyObjdZpqNHAr1xQX/mnSzGiWZW +6uiTwOTJ8dCYlUWeqOJQVQMSWrIaC67IyKG1hlnxpDEJOVUi6xqU5bD0W+S1 +TgYJHh3+9e/WyeHf3zoqtSYkjIr/HpEyl0ONYsvSGCSBo1BTJTtMDu02bLve +YkaCYUVe9eEHcjjUXe/XbEnCxq4XfyafyeH9iEOje6xI2MLGaeH7Rg5ztRJC +Ba1JCHQM64EPcujh8XWXtQ0J5nG0+ISlBFbervI4t4WE5pV1Ret5CBRN6etU +tiPBvtjl2TQ/gY+ak51ZlD1b0wT9xQkstOVzrbUnIVxurmiDKoGRRxvSyhxJ +mK3KfPZDg8DjnB1KhBOVv82qEywdAoXK255lUU7e66dHNyGQ4PBSCHUmgWfZ +L49eUwJP2VgOtlPOzD8dn21B4Pb5sSLDrSTkNzx/xu5AYPZDSds/lOXcgibu +biVwuaeQtocLCcXji4L7PAhU35KlWE25cpWu5/tAanwDNm1fVxIehxRMNEQT ++PFII0e2GwmWvw2EDsYRWKEiGdBF+UVmu55OAoFs7+reSLiT0FOzPKH4GIFp +4SMTpyn7bCku9sogMJNvJO8l5ZFhkyaRHALrjNd4LvMgYXJFpFDyeQIXchOJ +XZT3FfLrMy5R8aquUsqjvKBT6jl7hcAw8Smzx5QPN5kllF8n8Kbj69hxyhw+ +A8VBldT3Dx1uFvQkIfXbgSaZagJpkzV6OpT5U4QnO+4QeOK6xT0nyjlSFUIZ +9whM3jHuG05ZnLlZ37yemk/WbrnjlC9sfO/59ymB+w2yfhdSpvccSrjVTOBf +RdmFasrXdotfCXtF4LrmPqGnlNXZq5qUOghcYp1t206ZPGM7OdBD4GQkT+kg +5fWqo0JnBwjMecKnNEr53oMkfbv3BNKDg59MUDZ1lvHiGiVwRHUwZZpy4+jt +hAfjBNaeNQv7Z5tDjlf2fyXwUodvzL/33whONGnMEahVx3b9E2XXkpTJTz8J +VGr5zvZvvH5DunDhIoHNGlzxbZQDXtbpu3HSMPPucsUnlD8FunoJLKdhyujz +71WUQxe+Jjzjo2HnW8nxAsqGe4NFPwrRUPSgE3sKZe6x3jIOcRqah/x9vJNy +Z4DdBpoMDRUclHWtKV/pa+g0odOw+FWv02rKkc7rQ72Uaajrr0Rn/xdf640l +sWo0/OYvfqmbWq+B+6fVburRcNtF9ZtxlG/o89S/MaLhcs4Im82UY5mHXaeR +hnpqBbmClEUvhySpWtMwvG7RKf/f/pHsF7O0p+EjW88n7pTJHPvy4K00zP02 +NbWKsl2yQfclXxpa2shGHaH2p+zf8t0PttHQQ/DTaz3K49F0jrc7qHi5LcY/ +UPs7dfuKteKRNHwqoONjSNllKL5BN4aGHxbnbg9S9aDgMePmdJiGpm/r2hIp +P7R++19GKg2P+j7dWkfVU8ZjB4kbJ2g4n2t+35myF+NpRVM2Ff+o6cRnqh5/ +rK3s4bxAwyJ+rSIeylpCiRpxLBr2+1zLUKTqnS1t9nHuLRqqej6yKnag6olj +p8etWup9g/BOOcq7Zh2Tvz6hodewqj8f1S+KuxX6QnppuM7vxLZ6WxIiHPLC +kwdpWG1Rf0+ZMj7nW1Y0QsPp9b1Tx6j+9LZ2TnNgkoas6u3vN1L9S7Tg2VFn +Djq+qqCtOb2ZyqcYQzqCm468PGk7hyyofGayWCf56Njt55KhQtkuKb//uRgd +ybF3iVWbqHwFhWptUKPjntJMw0JTKj5VgQH1rXTkGJPj+GhEwtwFyURtDzqO +wW7tpZRnVioqGPjSsa2nI4pmSNX7d4OdG3fQUW47U9dhPQnDtYFzHofomCZV +XX9Ch4Tn1rf5U6/QcetrV5mD1PnSeO8R68R1OqY0afwNVaX6kUaLc04lHRXp +1pyeKiTcFx7Kv1hDx3v3VJPXrqbm38ejfLOVjj3t7XFV1HmVv8sHhmfpOKRz +115PkoSzb7cPf/pJRysFhsRP6jw8ZbcveWKRjq3KjZK1YtR6aqc2LyyXx6uH +Zlt1VpGQ9IvlulJWHgu4/4pxCVDrkbY03NhcHlkTF11WLyXBuOxG4Zkz8ngp +feRA8AQL+oiygk3n5NHX/bfg1BcWxJ4pvThTII9Sb8K2RY2x4HZiyXnHUnmU +3VhmEPeJOv/dCnP56+Rx7/rjDbuGWLBm6anMo0PyqMlnaj7UTt13fOMSotUU +0HuFQLHiXRbcbI+JV1xHueNwYsgdFjhbHTjcrquAtzcqGV29xYJs3aiDWqCA +tRdOWhBVLODj3XNg0kEBTf5OvV8oYwFnTUB48H4FzF8xrbDpAgu+Cln5udQr +YHuIRonDYRZ0h9Jf7WxUwLbjIo8VD7Lg4dOfEN+igO/sRFLnY1iQGVsmd61T +Afc26nOfimKB5jDv4I8xBbSu+iLICmVBGOul9wVhRVz28nP2QQ8WjNlt9RzZ +pogBN3pyA3VYMJLu5xLBpYRk/Oexx9R9MmxMja7Jq4SsmmdpxoNMmLf4MTEh +oIRNvTL7yH4m8HBkJ++QVMKSVGHJvC4maMY0VPupK+GdrNNfHFqZcChISdjO +SQml/yYyI+4wQdRk/KVqgRI2ysgGxJxgguXUfssPesoYFq2f/k6LCeOB3Puq +41djYtHTyZu3K6j/EzH2lPo1mGHBunj28w0QalXKYE6p4LGpo5vmiDKQTq20 +19NTwx1Guxb2E6WQq2ogIByijq7ndv09bHgVnktu0P2etRaPGPf7ZflcAUPp ++kyNTg1EIldYJ6AI+DkuR/onaeJljaI87dOXQDZRzthdaR2GXTgwG7qrAJYr +et1ybFyH1gp8ReemzsFahkTlfm8t9ONVOyM6nAsRA0INVmza6LiweuBj62mY ++p6+1TJXG/tuhi+zW50DFhpP8y3VdZBf2W/LkcZMuP/d6Nf8Cx3c0MTrfXAo +HcLUtHpfB+mi+9o/nBdnU4Exua3dfbkebrh/f8ZULRk2KYjb8l3WQzTzNvnG +mwSrE44fqNfXx5GmRLCrPgwqQQYPFHv1kSO8zGYmLwaC7m8/Ur13PRaLbV/S +FRcFDwrbt31dZYB9rm//zl/dCzPXFuc1bhug2/h788KvoRCoWLY839YQBRW7 +nv4eDYHYJz47lewNUZcWv3KiPQQyg4SaSUdDtJQQavnyMATqrsSkN7saYo3P +pQSRvBAQUdq88o+/IUZH/zcraBUCT5U+iPhFG2LFlxVctyqCQWW1HKFUYIjP +cz7y7koKgq8qOXrktCEePS7Z+cYhELpbcJPwd0PsW/rLmmEaCA/DJp0iZw2R +/UHzNVIrEDJIy716Pylbzfy9JxwIKoZsN+5yGKFz9It9Lp0BEGC5m9YgaoTD +ScUGx7wDoD3Egrfd2Ah/ac3sadnnD3eKfw3NphphpOoqOc5DvqBnFjlvlWaE +3E/OJUYE+sLNoXHewhNGeIO9kPe7pS+QsgP6VtlGGJBsEqEi5gs3ch+euHjO +CNWSY1z3kj5QmJ5sYFFhhOSP4X0u495wLHJlVm6bEZpNVwrq7fYCj43yaCRr +jJqyDTfEL7nDn3Zu/gbCGNdtk2z+eswdCoMm+6zkjfFI7X7XtxHu8PFozX6P +1cZI1Lw49mWjO0Q02VXGaBkjn/Qn9vef3eD4loOyd8yNUer84Wfa+m5w163j +t84eYxR4tOnF8kEXkNqdUrP2oTFKWn8Q5vB3hozFYN20emMcWGvY72PnDOzZ +5qxPj41xV7q59jOGM4zdWlpa2GSMQSkndzZIOsNdtiO5Qm3GaFyygsezwwk8 +TiXsn/tgjN9eOMZx2TpBbm2M7v0VDFQyj94rYe4Iq3hCWbauDLT7/tPAwdse +is0OxU67M1B4vlRaztYetA5lmOV4MfChepDDL2N72DLN7Oj2Z6Bn72zygLQ9 +HO2c/REYysCex+KDF+7awcLleNPYRAbCifKv5x9tgV6jnLaSMgbuaElN/vve +BrZHFZ+3rGCgw/UgtmWNNjBXcTNonMnArg3VycrXbUCI3j2/7hYDa2qzfO+E +24A1t4z0vYfUfPns6SsXraGuvWRbWwcDF0Pi8uMJa7Div6Me3c3ARzyeEbJL +raHbomlOvI+BbUplEp2frWDm7pdUn3cMjJeMOnayygrUL2mWfx5j4NwHevvq +zVZQ17shOn2Cin/0Kl+6uhVYiTiBxjQDZTpiD3EJW0FwStTryFkGals7V5sP +WMLMw6P5YgsMHIk5v5XnsSUk/TwbePcnNf/Om0MfSi1BQKdUzfsPA1v73m7q +OWkJF3ffnV1cZKByhPeekShL+B8QrRDZ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07171538655454374}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07171538655454374}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994257208852983*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"4bee74f2-8951-44ba-a390-785c015fca3d"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", @@ -7174,15 +7238,816 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"30", ",", "0.00371"}], "}"}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, - 3.994083474760421*^9},ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-\ -5e6c7b4b5678"], + 3.994083474760421*^9}, + CellLabel->"In[96]:=",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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->{ + "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.059883}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9942572090978327`*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"f583b75e-4f41-47b0-8569-c27b6af7123c"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"cd9a8165-891b-9245-aca1-\ -3f60fcfd9a79"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8Vl8YAHChSMjKHvd9rTIiM+P1PFFkZWZvoSFJKFTGL1Eko4EGRUrC ++14aokUloWWPiFSSVVlNv9tf9/P9fO7nnvM85zzPOZcWsMcxiJ2NjY1Ywsb2 +7zk30PRYIa3YZMOdmdGz/qYm7RfFYzZ0J0Fc8G2Z2H4CcNXLAPHubNhd4LjN +qV8Tou2vd3F0X4Zl5j/XGPQjCE6KZf/oIqHeet8ZgX57GKzbsmemqx7GR8qj +Mvr8wFxh7O3Xrjdg28+lfqYnHH506Z+e7hqGFWI93g9eJ0CD2dXi15e/Q0uh +2tKLAVkgPVjzMUDtD+xwLBFvTcgDkVDf61xmHDi/4klzS3ohZK8zr92ylRv9 +x4q08rYXQ0+u5sOvAnxoMipl8uHWVUgrjn/JLiGIaWfoLf9NXAexU++P5VwQ +xt/nfokXlZWDuOrNIwslwniCX7WF/2Y5SNYfjfdmCqNFZV9Q5P1ykJ1eE6Xc +IIw1nks2q78uB0WbcL/aUWF8Xp1bsnWuHLQ5/+i91xZBVf781nioALtI0RGt +5yLIfCWhq9VaASnOliZv5lahi0PUy56OSpCsfiHJvkQUj3onXvEbqIQKYef5 +dStEMSHZcPm7j5XQ+caHmSUnimNKdtHP5itBwSGS7rBZFF3zpz4V8DKh3rZg +2as8UWRmRI8GqjPhj/nsi1ZjMTzFViMoHcqEzJLYsj/mYuhG0As/7WGCwjK2 +VHUHMRQITtlZuY8JNk94NpwIEsOug1akdhwT8s2IKpsMMazpluVaeZwJ69H6 +bPOgGHqNcZwRuMqEfQaXfJuSxHFLyhshkwEmWBXyz1ini6PEOSN3tyEm0LkO +pr44LY4d5vOOe0aY8KrdhdV2TRw55VT9csaYsDacl2PghTg2fiDeVc0xYbRk +f8k3SQnMO5cb5sLPAi+RLRNSVRI4lG3+gGbEAu242sSLdRJ445dUyBsGC3iG +V4vSnkpgZPj2+nhkQU0lByj1SOCeNGbOq00sELWuydRclEABT0aRlT0LXiUq +6GyylsRgnaK0wm0s2Dj1MzbsvSSOLjb7tx9nQczmUyqPxiWR956yicAJFlRc +Uu8VnpNE24C5b5tPskDc2c+ghlsK40bLPjJzWDB+58k8x1opvF//6ZfHeRbk +JGVG5h2QwpNzcrzi5SwYXqUU9phPGu2GOUP0W1ggtueBjJiYNFbtKHvA/4IF +Ns/cWncQ0hjTH7sw/JIFt2LT1FZqS6OVbOOKpDYWHB+cHnN3k0b++GuP8ntZ +oFVaGzJ1WRpxmJvUG2VBorGDv+R6GXQQOcUvtYSEzT4Xv+mbyuB9ix3pFewk +8Cd8+W+rjQxqHxvdYcJJwvmG5JJMPxlU4/m5yYmLhDtWd78sOyaDT28bZTnw +kTDtJh/9vUcGZzadnSwUJ+F2bDiX4IgMLn8wdPWnBAmHz9/LXTspg0fFKpvs +pUjgfedau4NdFu8d1LT8JkOCckg62zsVWfzvRsFmHnkSfKJmj7fEyeLZH8Ft +GWokKJ41lR5LlkV+FX2fSnWSyt/Jcq5MWZzmPuLZspaE2N9rXpkWy+Lc5/XM +X5oknP7PZ1VNiyxGt79s19AlwetKWUlnpyyObjdZpqNHAr1xQX/mnSzGiWZW +6uiTwOTJ8dCYlUWeqOJQVQMSWrIaC67IyKG1hlnxpDEJOVUi6xqU5bD0W+S1 +TgYJHh3+9e/WyeHf3zoqtSYkjIr/HpEyl0ONYsvSGCSBo1BTJTtMDu02bLve +YkaCYUVe9eEHcjjUXe/XbEnCxq4XfyafyeH9iEOje6xI2MLGaeH7Rg5ztRJC +Ba1JCHQM64EPcujh8XWXtQ0J5nG0+ISlBFbervI4t4WE5pV1Ret5CBRN6etU +tiPBvtjl2TQ/gY+ak51ZlD1b0wT9xQkstOVzrbUnIVxurmiDKoGRRxvSyhxJ +mK3KfPZDg8DjnB1KhBOVv82qEywdAoXK255lUU7e66dHNyGQ4PBSCHUmgWfZ +L49eUwJP2VgOtlPOzD8dn21B4Pb5sSLDrSTkNzx/xu5AYPZDSds/lOXcgibu +biVwuaeQtocLCcXji4L7PAhU35KlWE25cpWu5/tAanwDNm1fVxIehxRMNEQT ++PFII0e2GwmWvw2EDsYRWKEiGdBF+UVmu55OAoFs7+reSLiT0FOzPKH4GIFp +4SMTpyn7bCku9sogMJNvJO8l5ZFhkyaRHALrjNd4LvMgYXJFpFDyeQIXchOJ +XZT3FfLrMy5R8aquUsqjvKBT6jl7hcAw8Smzx5QPN5kllF8n8Kbj69hxyhw+ +A8VBldT3Dx1uFvQkIfXbgSaZagJpkzV6OpT5U4QnO+4QeOK6xT0nyjlSFUIZ +9whM3jHuG05ZnLlZ37yemk/WbrnjlC9sfO/59ymB+w2yfhdSpvccSrjVTOBf +RdmFasrXdotfCXtF4LrmPqGnlNXZq5qUOghcYp1t206ZPGM7OdBD4GQkT+kg +5fWqo0JnBwjMecKnNEr53oMkfbv3BNKDg59MUDZ1lvHiGiVwRHUwZZpy4+jt +hAfjBNaeNQv7Z5tDjlf2fyXwUodvzL/33whONGnMEahVx3b9E2XXkpTJTz8J +VGr5zvZvvH5DunDhIoHNGlzxbZQDXtbpu3HSMPPucsUnlD8FunoJLKdhyujz +71WUQxe+Jjzjo2HnW8nxAsqGe4NFPwrRUPSgE3sKZe6x3jIOcRqah/x9vJNy +Z4DdBpoMDRUclHWtKV/pa+g0odOw+FWv02rKkc7rQ72Uaajrr0Rn/xdf640l +sWo0/OYvfqmbWq+B+6fVburRcNtF9ZtxlG/o89S/MaLhcs4Im82UY5mHXaeR +hnpqBbmClEUvhySpWtMwvG7RKf/f/pHsF7O0p+EjW88n7pTJHPvy4K00zP02 +NbWKsl2yQfclXxpa2shGHaH2p+zf8t0PttHQQ/DTaz3K49F0jrc7qHi5LcY/ +UPs7dfuKteKRNHwqoONjSNllKL5BN4aGHxbnbg9S9aDgMePmdJiGpm/r2hIp +P7R++19GKg2P+j7dWkfVU8ZjB4kbJ2g4n2t+35myF+NpRVM2Ff+o6cRnqh5/ +rK3s4bxAwyJ+rSIeylpCiRpxLBr2+1zLUKTqnS1t9nHuLRqqej6yKnag6olj +p8etWup9g/BOOcq7Zh2Tvz6hodewqj8f1S+KuxX6QnppuM7vxLZ6WxIiHPLC +kwdpWG1Rf0+ZMj7nW1Y0QsPp9b1Tx6j+9LZ2TnNgkoas6u3vN1L9S7Tg2VFn +Djq+qqCtOb2ZyqcYQzqCm468PGk7hyyofGayWCf56Njt55KhQtkuKb//uRgd +ybF3iVWbqHwFhWptUKPjntJMw0JTKj5VgQH1rXTkGJPj+GhEwtwFyURtDzqO +wW7tpZRnVioqGPjSsa2nI4pmSNX7d4OdG3fQUW47U9dhPQnDtYFzHofomCZV +XX9Ch4Tn1rf5U6/QcetrV5mD1PnSeO8R68R1OqY0afwNVaX6kUaLc04lHRXp +1pyeKiTcFx7Kv1hDx3v3VJPXrqbm38ejfLOVjj3t7XFV1HmVv8sHhmfpOKRz +115PkoSzb7cPf/pJRysFhsRP6jw8ZbcveWKRjq3KjZK1YtR6aqc2LyyXx6uH +Zlt1VpGQ9IvlulJWHgu4/4pxCVDrkbY03NhcHlkTF11WLyXBuOxG4Zkz8ngp +feRA8AQL+oiygk3n5NHX/bfg1BcWxJ4pvThTII9Sb8K2RY2x4HZiyXnHUnmU +3VhmEPeJOv/dCnP56+Rx7/rjDbuGWLBm6anMo0PyqMlnaj7UTt13fOMSotUU +0HuFQLHiXRbcbI+JV1xHueNwYsgdFjhbHTjcrquAtzcqGV29xYJs3aiDWqCA +tRdOWhBVLODj3XNg0kEBTf5OvV8oYwFnTUB48H4FzF8xrbDpAgu+Cln5udQr +YHuIRonDYRZ0h9Jf7WxUwLbjIo8VD7Lg4dOfEN+igO/sRFLnY1iQGVsmd61T +Afc26nOfimKB5jDv4I8xBbSu+iLICmVBGOul9wVhRVz28nP2QQ8WjNlt9RzZ +pogBN3pyA3VYMJLu5xLBpYRk/Oexx9R9MmxMja7Jq4SsmmdpxoNMmLf4MTEh +oIRNvTL7yH4m8HBkJ++QVMKSVGHJvC4maMY0VPupK+GdrNNfHFqZcChISdjO +SQml/yYyI+4wQdRk/KVqgRI2ysgGxJxgguXUfssPesoYFq2f/k6LCeOB3Puq +41djYtHTyZu3K6j/EzH2lPo1mGHBunj28w0QalXKYE6p4LGpo5vmiDKQTq20 +19NTwx1Guxb2E6WQq2ogIByijq7ndv09bHgVnktu0P2etRaPGPf7ZflcAUPp ++kyNTg1EIldYJ6AI+DkuR/onaeJljaI87dOXQDZRzthdaR2GXTgwG7qrAJYr +et1ybFyH1gp8ReemzsFahkTlfm8t9ONVOyM6nAsRA0INVmza6LiweuBj62mY ++p6+1TJXG/tuhi+zW50DFhpP8y3VdZBf2W/LkcZMuP/d6Nf8Cx3c0MTrfXAo +HcLUtHpfB+mi+9o/nBdnU4Exua3dfbkebrh/f8ZULRk2KYjb8l3WQzTzNvnG +mwSrE44fqNfXx5GmRLCrPgwqQQYPFHv1kSO8zGYmLwaC7m8/Ur13PRaLbV/S +FRcFDwrbt31dZYB9rm//zl/dCzPXFuc1bhug2/h788KvoRCoWLY839YQBRW7 +nv4eDYHYJz47lewNUZcWv3KiPQQyg4SaSUdDtJQQavnyMATqrsSkN7saYo3P +pQSRvBAQUdq88o+/IUZH/zcraBUCT5U+iPhFG2LFlxVctyqCQWW1HKFUYIjP +cz7y7koKgq8qOXrktCEePS7Z+cYhELpbcJPwd0PsW/rLmmEaCA/DJp0iZw2R +/UHzNVIrEDJIy716Pylbzfy9JxwIKoZsN+5yGKFz9It9Lp0BEGC5m9YgaoTD +ScUGx7wDoD3Egrfd2Ah/ac3sadnnD3eKfw3NphphpOoqOc5DvqBnFjlvlWaE +3E/OJUYE+sLNoXHewhNGeIO9kPe7pS+QsgP6VtlGGJBsEqEi5gs3ch+euHjO +CNWSY1z3kj5QmJ5sYFFhhOSP4X0u495wLHJlVm6bEZpNVwrq7fYCj43yaCRr +jJqyDTfEL7nDn3Zu/gbCGNdtk2z+eswdCoMm+6zkjfFI7X7XtxHu8PFozX6P +1cZI1Lw49mWjO0Q02VXGaBkjn/Qn9vef3eD4loOyd8yNUer84Wfa+m5w163j +t84eYxR4tOnF8kEXkNqdUrP2oTFKWn8Q5vB3hozFYN20emMcWGvY72PnDOzZ +5qxPj41xV7q59jOGM4zdWlpa2GSMQSkndzZIOsNdtiO5Qm3GaFyygsezwwk8 +TiXsn/tgjN9eOMZx2TpBbm2M7v0VDFQyj94rYe4Iq3hCWbauDLT7/tPAwdse +is0OxU67M1B4vlRaztYetA5lmOV4MfChepDDL2N72DLN7Oj2Z6Bn72zygLQ9 +HO2c/REYysCex+KDF+7awcLleNPYRAbCifKv5x9tgV6jnLaSMgbuaElN/vve +BrZHFZ+3rGCgw/UgtmWNNjBXcTNonMnArg3VycrXbUCI3j2/7hYDa2qzfO+E +24A1t4z0vYfUfPns6SsXraGuvWRbWwcDF0Pi8uMJa7Div6Me3c3ARzyeEbJL +raHbomlOvI+BbUplEp2frWDm7pdUn3cMjJeMOnayygrUL2mWfx5j4NwHevvq +zVZQ17shOn2Cin/0Kl+6uhVYiTiBxjQDZTpiD3EJW0FwStTryFkGals7V5sP +WMLMw6P5YgsMHIk5v5XnsSUk/TwbePcnNf/Om0MfSi1BQKdUzfsPA1v73m7q +OWkJF3ffnV1cZKByhPeekShL+B8QrRDZ + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vl8YAHChSMjKHvd9rTIiM+P1PFFkZWZvoSFJKFTGL1Eko4EGRUrC ++14aokUloWWPiFSSVVlNv9tf9/P9fO7nnvM85zzPOZcWsMcxiJ2NjY1Ywsb2 +7zk30PRYIa3YZMOdmdGz/qYm7RfFYzZ0J0Fc8G2Z2H4CcNXLAPHubNhd4LjN +qV8Tou2vd3F0X4Zl5j/XGPQjCE6KZf/oIqHeet8ZgX57GKzbsmemqx7GR8qj +Mvr8wFxh7O3Xrjdg28+lfqYnHH506Z+e7hqGFWI93g9eJ0CD2dXi15e/Q0uh +2tKLAVkgPVjzMUDtD+xwLBFvTcgDkVDf61xmHDi/4klzS3ohZK8zr92ylRv9 +x4q08rYXQ0+u5sOvAnxoMipl8uHWVUgrjn/JLiGIaWfoLf9NXAexU++P5VwQ +xt/nfokXlZWDuOrNIwslwniCX7WF/2Y5SNYfjfdmCqNFZV9Q5P1ykJ1eE6Xc +IIw1nks2q78uB0WbcL/aUWF8Xp1bsnWuHLQ5/+i91xZBVf781nioALtI0RGt +5yLIfCWhq9VaASnOliZv5lahi0PUy56OSpCsfiHJvkQUj3onXvEbqIQKYef5 +dStEMSHZcPm7j5XQ+caHmSUnimNKdtHP5itBwSGS7rBZFF3zpz4V8DKh3rZg +2as8UWRmRI8GqjPhj/nsi1ZjMTzFViMoHcqEzJLYsj/mYuhG0As/7WGCwjK2 +VHUHMRQITtlZuY8JNk94NpwIEsOug1akdhwT8s2IKpsMMazpluVaeZwJ69H6 +bPOgGHqNcZwRuMqEfQaXfJuSxHFLyhshkwEmWBXyz1ini6PEOSN3tyEm0LkO +pr44LY4d5vOOe0aY8KrdhdV2TRw55VT9csaYsDacl2PghTg2fiDeVc0xYbRk +f8k3SQnMO5cb5sLPAi+RLRNSVRI4lG3+gGbEAu242sSLdRJ445dUyBsGC3iG +V4vSnkpgZPj2+nhkQU0lByj1SOCeNGbOq00sELWuydRclEABT0aRlT0LXiUq +6GyylsRgnaK0wm0s2Dj1MzbsvSSOLjb7tx9nQczmUyqPxiWR956yicAJFlRc +Uu8VnpNE24C5b5tPskDc2c+ghlsK40bLPjJzWDB+58k8x1opvF//6ZfHeRbk +JGVG5h2QwpNzcrzi5SwYXqUU9phPGu2GOUP0W1ggtueBjJiYNFbtKHvA/4IF +Ns/cWncQ0hjTH7sw/JIFt2LT1FZqS6OVbOOKpDYWHB+cHnN3k0b++GuP8ntZ +oFVaGzJ1WRpxmJvUG2VBorGDv+R6GXQQOcUvtYSEzT4Xv+mbyuB9ix3pFewk +8Cd8+W+rjQxqHxvdYcJJwvmG5JJMPxlU4/m5yYmLhDtWd78sOyaDT28bZTnw +kTDtJh/9vUcGZzadnSwUJ+F2bDiX4IgMLn8wdPWnBAmHz9/LXTspg0fFKpvs +pUjgfedau4NdFu8d1LT8JkOCckg62zsVWfzvRsFmHnkSfKJmj7fEyeLZH8Ft +GWokKJ41lR5LlkV+FX2fSnWSyt/Jcq5MWZzmPuLZspaE2N9rXpkWy+Lc5/XM +X5oknP7PZ1VNiyxGt79s19AlwetKWUlnpyyObjdZpqNHAr1xQX/mnSzGiWZW +6uiTwOTJ8dCYlUWeqOJQVQMSWrIaC67IyKG1hlnxpDEJOVUi6xqU5bD0W+S1 +TgYJHh3+9e/WyeHf3zoqtSYkjIr/HpEyl0ONYsvSGCSBo1BTJTtMDu02bLve +YkaCYUVe9eEHcjjUXe/XbEnCxq4XfyafyeH9iEOje6xI2MLGaeH7Rg5ztRJC +Ba1JCHQM64EPcujh8XWXtQ0J5nG0+ISlBFbervI4t4WE5pV1Ret5CBRN6etU +tiPBvtjl2TQ/gY+ak51ZlD1b0wT9xQkstOVzrbUnIVxurmiDKoGRRxvSyhxJ +mK3KfPZDg8DjnB1KhBOVv82qEywdAoXK255lUU7e66dHNyGQ4PBSCHUmgWfZ +L49eUwJP2VgOtlPOzD8dn21B4Pb5sSLDrSTkNzx/xu5AYPZDSds/lOXcgibu +biVwuaeQtocLCcXji4L7PAhU35KlWE25cpWu5/tAanwDNm1fVxIehxRMNEQT ++PFII0e2GwmWvw2EDsYRWKEiGdBF+UVmu55OAoFs7+reSLiT0FOzPKH4GIFp +4SMTpyn7bCku9sogMJNvJO8l5ZFhkyaRHALrjNd4LvMgYXJFpFDyeQIXchOJ +XZT3FfLrMy5R8aquUsqjvKBT6jl7hcAw8Smzx5QPN5kllF8n8Kbj69hxyhw+ +A8VBldT3Dx1uFvQkIfXbgSaZagJpkzV6OpT5U4QnO+4QeOK6xT0nyjlSFUIZ +9whM3jHuG05ZnLlZ37yemk/WbrnjlC9sfO/59ymB+w2yfhdSpvccSrjVTOBf +RdmFasrXdotfCXtF4LrmPqGnlNXZq5qUOghcYp1t206ZPGM7OdBD4GQkT+kg +5fWqo0JnBwjMecKnNEr53oMkfbv3BNKDg59MUDZ1lvHiGiVwRHUwZZpy4+jt +hAfjBNaeNQv7Z5tDjlf2fyXwUodvzL/33whONGnMEahVx3b9E2XXkpTJTz8J +VGr5zvZvvH5DunDhIoHNGlzxbZQDXtbpu3HSMPPucsUnlD8FunoJLKdhyujz +71WUQxe+Jjzjo2HnW8nxAsqGe4NFPwrRUPSgE3sKZe6x3jIOcRqah/x9vJNy +Z4DdBpoMDRUclHWtKV/pa+g0odOw+FWv02rKkc7rQ72Uaajrr0Rn/xdf640l +sWo0/OYvfqmbWq+B+6fVburRcNtF9ZtxlG/o89S/MaLhcs4Im82UY5mHXaeR +hnpqBbmClEUvhySpWtMwvG7RKf/f/pHsF7O0p+EjW88n7pTJHPvy4K00zP02 +NbWKsl2yQfclXxpa2shGHaH2p+zf8t0PttHQQ/DTaz3K49F0jrc7qHi5LcY/ +UPs7dfuKteKRNHwqoONjSNllKL5BN4aGHxbnbg9S9aDgMePmdJiGpm/r2hIp +P7R++19GKg2P+j7dWkfVU8ZjB4kbJ2g4n2t+35myF+NpRVM2Ff+o6cRnqh5/ +rK3s4bxAwyJ+rSIeylpCiRpxLBr2+1zLUKTqnS1t9nHuLRqqej6yKnag6olj +p8etWup9g/BOOcq7Zh2Tvz6hodewqj8f1S+KuxX6QnppuM7vxLZ6WxIiHPLC +kwdpWG1Rf0+ZMj7nW1Y0QsPp9b1Tx6j+9LZ2TnNgkoas6u3vN1L9S7Tg2VFn +Djq+qqCtOb2ZyqcYQzqCm468PGk7hyyofGayWCf56Njt55KhQtkuKb//uRgd +ybF3iVWbqHwFhWptUKPjntJMw0JTKj5VgQH1rXTkGJPj+GhEwtwFyURtDzqO +wW7tpZRnVioqGPjSsa2nI4pmSNX7d4OdG3fQUW47U9dhPQnDtYFzHofomCZV +XX9Ch4Tn1rf5U6/QcetrV5mD1PnSeO8R68R1OqY0afwNVaX6kUaLc04lHRXp +1pyeKiTcFx7Kv1hDx3v3VJPXrqbm38ejfLOVjj3t7XFV1HmVv8sHhmfpOKRz +115PkoSzb7cPf/pJRysFhsRP6jw8ZbcveWKRjq3KjZK1YtR6aqc2LyyXx6uH +Zlt1VpGQ9IvlulJWHgu4/4pxCVDrkbY03NhcHlkTF11WLyXBuOxG4Zkz8ngp +feRA8AQL+oiygk3n5NHX/bfg1BcWxJ4pvThTII9Sb8K2RY2x4HZiyXnHUnmU +3VhmEPeJOv/dCnP56+Rx7/rjDbuGWLBm6anMo0PyqMlnaj7UTt13fOMSotUU +0HuFQLHiXRbcbI+JV1xHueNwYsgdFjhbHTjcrquAtzcqGV29xYJs3aiDWqCA +tRdOWhBVLODj3XNg0kEBTf5OvV8oYwFnTUB48H4FzF8xrbDpAgu+Cln5udQr +YHuIRonDYRZ0h9Jf7WxUwLbjIo8VD7Lg4dOfEN+igO/sRFLnY1iQGVsmd61T +Afc26nOfimKB5jDv4I8xBbSu+iLICmVBGOul9wVhRVz28nP2QQ8WjNlt9RzZ +pogBN3pyA3VYMJLu5xLBpYRk/Oexx9R9MmxMja7Jq4SsmmdpxoNMmLf4MTEh +oIRNvTL7yH4m8HBkJ++QVMKSVGHJvC4maMY0VPupK+GdrNNfHFqZcChISdjO +SQml/yYyI+4wQdRk/KVqgRI2ysgGxJxgguXUfssPesoYFq2f/k6LCeOB3Puq +41djYtHTyZu3K6j/EzH2lPo1mGHBunj28w0QalXKYE6p4LGpo5vmiDKQTq20 +19NTwx1Guxb2E6WQq2ogIByijq7ndv09bHgVnktu0P2etRaPGPf7ZflcAUPp ++kyNTg1EIldYJ6AI+DkuR/onaeJljaI87dOXQDZRzthdaR2GXTgwG7qrAJYr +et1ybFyH1gp8ReemzsFahkTlfm8t9ONVOyM6nAsRA0INVmza6LiweuBj62mY ++p6+1TJXG/tuhi+zW50DFhpP8y3VdZBf2W/LkcZMuP/d6Nf8Cx3c0MTrfXAo +HcLUtHpfB+mi+9o/nBdnU4Exua3dfbkebrh/f8ZULRk2KYjb8l3WQzTzNvnG +mwSrE44fqNfXx5GmRLCrPgwqQQYPFHv1kSO8zGYmLwaC7m8/Ur13PRaLbV/S +FRcFDwrbt31dZYB9rm//zl/dCzPXFuc1bhug2/h788KvoRCoWLY839YQBRW7 +nv4eDYHYJz47lewNUZcWv3KiPQQyg4SaSUdDtJQQavnyMATqrsSkN7saYo3P +pQSRvBAQUdq88o+/IUZH/zcraBUCT5U+iPhFG2LFlxVctyqCQWW1HKFUYIjP +cz7y7koKgq8qOXrktCEePS7Z+cYhELpbcJPwd0PsW/rLmmEaCA/DJp0iZw2R +/UHzNVIrEDJIy716Pylbzfy9JxwIKoZsN+5yGKFz9It9Lp0BEGC5m9YgaoTD +ScUGx7wDoD3Egrfd2Ah/ac3sadnnD3eKfw3NphphpOoqOc5DvqBnFjlvlWaE +3E/OJUYE+sLNoXHewhNGeIO9kPe7pS+QsgP6VtlGGJBsEqEi5gs3ch+euHjO +CNWSY1z3kj5QmJ5sYFFhhOSP4X0u495wLHJlVm6bEZpNVwrq7fYCj43yaCRr +jJqyDTfEL7nDn3Zu/gbCGNdtk2z+eswdCoMm+6zkjfFI7X7XtxHu8PFozX6P +1cZI1Lw49mWjO0Q02VXGaBkjn/Qn9vef3eD4loOyd8yNUer84Wfa+m5w163j +t84eYxR4tOnF8kEXkNqdUrP2oTFKWn8Q5vB3hozFYN20emMcWGvY72PnDOzZ +5qxPj41xV7q59jOGM4zdWlpa2GSMQSkndzZIOsNdtiO5Qm3GaFyygsezwwk8 +TiXsn/tgjN9eOMZx2TpBbm2M7v0VDFQyj94rYe4Iq3hCWbauDLT7/tPAwdse +is0OxU67M1B4vlRaztYetA5lmOV4MfChepDDL2N72DLN7Oj2Z6Bn72zygLQ9 +HO2c/REYysCex+KDF+7awcLleNPYRAbCifKv5x9tgV6jnLaSMgbuaElN/vve +BrZHFZ+3rGCgw/UgtmWNNjBXcTNonMnArg3VycrXbUCI3j2/7hYDa2qzfO+E +24A1t4z0vYfUfPns6SsXraGuvWRbWwcDF0Pi8uMJa7Div6Me3c3ARzyeEbJL +raHbomlOvI+BbUplEp2frWDm7pdUn3cMjJeMOnayygrUL2mWfx5j4NwHevvq +zVZQ17shOn2Cin/0Kl+6uhVYiTiBxjQDZTpiD3EJW0FwStTryFkGals7V5sP +WMLMw6P5YgsMHIk5v5XnsSUk/TwbePcnNf/Om0MfSi1BQKdUzfsPA1v73m7q +OWkJF3ffnV1cZKByhPeekShL+B8QrRDZ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07171538655454374}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07171538655454374}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vl8YAHChSMjKHvd9rTIiM+P1PFFkZWZvoSFJKFTGL1Eko4EGRUrC ++14aokUloWWPiFSSVVlNv9tf9/P9fO7nnvM85zzPOZcWsMcxiJ2NjY1Ywsb2 +7zk30PRYIa3YZMOdmdGz/qYm7RfFYzZ0J0Fc8G2Z2H4CcNXLAPHubNhd4LjN +qV8Tou2vd3F0X4Zl5j/XGPQjCE6KZf/oIqHeet8ZgX57GKzbsmemqx7GR8qj +Mvr8wFxh7O3Xrjdg28+lfqYnHH506Z+e7hqGFWI93g9eJ0CD2dXi15e/Q0uh +2tKLAVkgPVjzMUDtD+xwLBFvTcgDkVDf61xmHDi/4klzS3ohZK8zr92ylRv9 +x4q08rYXQ0+u5sOvAnxoMipl8uHWVUgrjn/JLiGIaWfoLf9NXAexU++P5VwQ +xt/nfokXlZWDuOrNIwslwniCX7WF/2Y5SNYfjfdmCqNFZV9Q5P1ykJ1eE6Xc +IIw1nks2q78uB0WbcL/aUWF8Xp1bsnWuHLQ5/+i91xZBVf781nioALtI0RGt +5yLIfCWhq9VaASnOliZv5lahi0PUy56OSpCsfiHJvkQUj3onXvEbqIQKYef5 +dStEMSHZcPm7j5XQ+caHmSUnimNKdtHP5itBwSGS7rBZFF3zpz4V8DKh3rZg +2as8UWRmRI8GqjPhj/nsi1ZjMTzFViMoHcqEzJLYsj/mYuhG0As/7WGCwjK2 +VHUHMRQITtlZuY8JNk94NpwIEsOug1akdhwT8s2IKpsMMazpluVaeZwJ69H6 +bPOgGHqNcZwRuMqEfQaXfJuSxHFLyhshkwEmWBXyz1ini6PEOSN3tyEm0LkO +pr44LY4d5vOOe0aY8KrdhdV2TRw55VT9csaYsDacl2PghTg2fiDeVc0xYbRk +f8k3SQnMO5cb5sLPAi+RLRNSVRI4lG3+gGbEAu242sSLdRJ445dUyBsGC3iG +V4vSnkpgZPj2+nhkQU0lByj1SOCeNGbOq00sELWuydRclEABT0aRlT0LXiUq +6GyylsRgnaK0wm0s2Dj1MzbsvSSOLjb7tx9nQczmUyqPxiWR956yicAJFlRc +Uu8VnpNE24C5b5tPskDc2c+ghlsK40bLPjJzWDB+58k8x1opvF//6ZfHeRbk +JGVG5h2QwpNzcrzi5SwYXqUU9phPGu2GOUP0W1ggtueBjJiYNFbtKHvA/4IF +Ns/cWncQ0hjTH7sw/JIFt2LT1FZqS6OVbOOKpDYWHB+cHnN3k0b++GuP8ntZ +oFVaGzJ1WRpxmJvUG2VBorGDv+R6GXQQOcUvtYSEzT4Xv+mbyuB9ix3pFewk +8Cd8+W+rjQxqHxvdYcJJwvmG5JJMPxlU4/m5yYmLhDtWd78sOyaDT28bZTnw +kTDtJh/9vUcGZzadnSwUJ+F2bDiX4IgMLn8wdPWnBAmHz9/LXTspg0fFKpvs +pUjgfedau4NdFu8d1LT8JkOCckg62zsVWfzvRsFmHnkSfKJmj7fEyeLZH8Ft +GWokKJ41lR5LlkV+FX2fSnWSyt/Jcq5MWZzmPuLZspaE2N9rXpkWy+Lc5/XM +X5oknP7PZ1VNiyxGt79s19AlwetKWUlnpyyObjdZpqNHAr1xQX/mnSzGiWZW +6uiTwOTJ8dCYlUWeqOJQVQMSWrIaC67IyKG1hlnxpDEJOVUi6xqU5bD0W+S1 +TgYJHh3+9e/WyeHf3zoqtSYkjIr/HpEyl0ONYsvSGCSBo1BTJTtMDu02bLve +YkaCYUVe9eEHcjjUXe/XbEnCxq4XfyafyeH9iEOje6xI2MLGaeH7Rg5ztRJC +Ba1JCHQM64EPcujh8XWXtQ0J5nG0+ISlBFbervI4t4WE5pV1Ret5CBRN6etU +tiPBvtjl2TQ/gY+ak51ZlD1b0wT9xQkstOVzrbUnIVxurmiDKoGRRxvSyhxJ +mK3KfPZDg8DjnB1KhBOVv82qEywdAoXK255lUU7e66dHNyGQ4PBSCHUmgWfZ +L49eUwJP2VgOtlPOzD8dn21B4Pb5sSLDrSTkNzx/xu5AYPZDSds/lOXcgibu +biVwuaeQtocLCcXji4L7PAhU35KlWE25cpWu5/tAanwDNm1fVxIehxRMNEQT ++PFII0e2GwmWvw2EDsYRWKEiGdBF+UVmu55OAoFs7+reSLiT0FOzPKH4GIFp +4SMTpyn7bCku9sogMJNvJO8l5ZFhkyaRHALrjNd4LvMgYXJFpFDyeQIXchOJ +XZT3FfLrMy5R8aquUsqjvKBT6jl7hcAw8Smzx5QPN5kllF8n8Kbj69hxyhw+ +A8VBldT3Dx1uFvQkIfXbgSaZagJpkzV6OpT5U4QnO+4QeOK6xT0nyjlSFUIZ +9whM3jHuG05ZnLlZ37yemk/WbrnjlC9sfO/59ymB+w2yfhdSpvccSrjVTOBf +RdmFasrXdotfCXtF4LrmPqGnlNXZq5qUOghcYp1t206ZPGM7OdBD4GQkT+kg +5fWqo0JnBwjMecKnNEr53oMkfbv3BNKDg59MUDZ1lvHiGiVwRHUwZZpy4+jt +hAfjBNaeNQv7Z5tDjlf2fyXwUodvzL/33whONGnMEahVx3b9E2XXkpTJTz8J +VGr5zvZvvH5DunDhIoHNGlzxbZQDXtbpu3HSMPPucsUnlD8FunoJLKdhyujz +71WUQxe+Jjzjo2HnW8nxAsqGe4NFPwrRUPSgE3sKZe6x3jIOcRqah/x9vJNy +Z4DdBpoMDRUclHWtKV/pa+g0odOw+FWv02rKkc7rQ72Uaajrr0Rn/xdf640l +sWo0/OYvfqmbWq+B+6fVburRcNtF9ZtxlG/o89S/MaLhcs4Im82UY5mHXaeR +hnpqBbmClEUvhySpWtMwvG7RKf/f/pHsF7O0p+EjW88n7pTJHPvy4K00zP02 +NbWKsl2yQfclXxpa2shGHaH2p+zf8t0PttHQQ/DTaz3K49F0jrc7qHi5LcY/ +UPs7dfuKteKRNHwqoONjSNllKL5BN4aGHxbnbg9S9aDgMePmdJiGpm/r2hIp +P7R++19GKg2P+j7dWkfVU8ZjB4kbJ2g4n2t+35myF+NpRVM2Ff+o6cRnqh5/ +rK3s4bxAwyJ+rSIeylpCiRpxLBr2+1zLUKTqnS1t9nHuLRqqej6yKnag6olj +p8etWup9g/BOOcq7Zh2Tvz6hodewqj8f1S+KuxX6QnppuM7vxLZ6WxIiHPLC +kwdpWG1Rf0+ZMj7nW1Y0QsPp9b1Tx6j+9LZ2TnNgkoas6u3vN1L9S7Tg2VFn +Djq+qqCtOb2ZyqcYQzqCm468PGk7hyyofGayWCf56Njt55KhQtkuKb//uRgd +ybF3iVWbqHwFhWptUKPjntJMw0JTKj5VgQH1rXTkGJPj+GhEwtwFyURtDzqO +wW7tpZRnVioqGPjSsa2nI4pmSNX7d4OdG3fQUW47U9dhPQnDtYFzHofomCZV +XX9Ch4Tn1rf5U6/QcetrV5mD1PnSeO8R68R1OqY0afwNVaX6kUaLc04lHRXp +1pyeKiTcFx7Kv1hDx3v3VJPXrqbm38ejfLOVjj3t7XFV1HmVv8sHhmfpOKRz +115PkoSzb7cPf/pJRysFhsRP6jw8ZbcveWKRjq3KjZK1YtR6aqc2LyyXx6uH +Zlt1VpGQ9IvlulJWHgu4/4pxCVDrkbY03NhcHlkTF11WLyXBuOxG4Zkz8ngp +feRA8AQL+oiygk3n5NHX/bfg1BcWxJ4pvThTII9Sb8K2RY2x4HZiyXnHUnmU +3VhmEPeJOv/dCnP56+Rx7/rjDbuGWLBm6anMo0PyqMlnaj7UTt13fOMSotUU +0HuFQLHiXRbcbI+JV1xHueNwYsgdFjhbHTjcrquAtzcqGV29xYJs3aiDWqCA +tRdOWhBVLODj3XNg0kEBTf5OvV8oYwFnTUB48H4FzF8xrbDpAgu+Cln5udQr +YHuIRonDYRZ0h9Jf7WxUwLbjIo8VD7Lg4dOfEN+igO/sRFLnY1iQGVsmd61T +Afc26nOfimKB5jDv4I8xBbSu+iLICmVBGOul9wVhRVz28nP2QQ8WjNlt9RzZ +pogBN3pyA3VYMJLu5xLBpYRk/Oexx9R9MmxMja7Jq4SsmmdpxoNMmLf4MTEh +oIRNvTL7yH4m8HBkJ++QVMKSVGHJvC4maMY0VPupK+GdrNNfHFqZcChISdjO +SQml/yYyI+4wQdRk/KVqgRI2ysgGxJxgguXUfssPesoYFq2f/k6LCeOB3Puq +41djYtHTyZu3K6j/EzH2lPo1mGHBunj28w0QalXKYE6p4LGpo5vmiDKQTq20 +19NTwx1Guxb2E6WQq2ogIByijq7ndv09bHgVnktu0P2etRaPGPf7ZflcAUPp ++kyNTg1EIldYJ6AI+DkuR/onaeJljaI87dOXQDZRzthdaR2GXTgwG7qrAJYr +et1ybFyH1gp8ReemzsFahkTlfm8t9ONVOyM6nAsRA0INVmza6LiweuBj62mY ++p6+1TJXG/tuhi+zW50DFhpP8y3VdZBf2W/LkcZMuP/d6Nf8Cx3c0MTrfXAo +HcLUtHpfB+mi+9o/nBdnU4Exua3dfbkebrh/f8ZULRk2KYjb8l3WQzTzNvnG +mwSrE44fqNfXx5GmRLCrPgwqQQYPFHv1kSO8zGYmLwaC7m8/Ur13PRaLbV/S +FRcFDwrbt31dZYB9rm//zl/dCzPXFuc1bhug2/h788KvoRCoWLY839YQBRW7 +nv4eDYHYJz47lewNUZcWv3KiPQQyg4SaSUdDtJQQavnyMATqrsSkN7saYo3P +pQSRvBAQUdq88o+/IUZH/zcraBUCT5U+iPhFG2LFlxVctyqCQWW1HKFUYIjP +cz7y7koKgq8qOXrktCEePS7Z+cYhELpbcJPwd0PsW/rLmmEaCA/DJp0iZw2R +/UHzNVIrEDJIy716Pylbzfy9JxwIKoZsN+5yGKFz9It9Lp0BEGC5m9YgaoTD +ScUGx7wDoD3Egrfd2Ah/ac3sadnnD3eKfw3NphphpOoqOc5DvqBnFjlvlWaE +3E/OJUYE+sLNoXHewhNGeIO9kPe7pS+QsgP6VtlGGJBsEqEi5gs3ch+euHjO +CNWSY1z3kj5QmJ5sYFFhhOSP4X0u495wLHJlVm6bEZpNVwrq7fYCj43yaCRr +jJqyDTfEL7nDn3Zu/gbCGNdtk2z+eswdCoMm+6zkjfFI7X7XtxHu8PFozX6P +1cZI1Lw49mWjO0Q02VXGaBkjn/Qn9vef3eD4loOyd8yNUer84Wfa+m5w163j +t84eYxR4tOnF8kEXkNqdUrP2oTFKWn8Q5vB3hozFYN20emMcWGvY72PnDOzZ +5qxPj41xV7q59jOGM4zdWlpa2GSMQSkndzZIOsNdtiO5Qm3GaFyygsezwwk8 +TiXsn/tgjN9eOMZx2TpBbm2M7v0VDFQyj94rYe4Iq3hCWbauDLT7/tPAwdse +is0OxU67M1B4vlRaztYetA5lmOV4MfChepDDL2N72DLN7Oj2Z6Bn72zygLQ9 +HO2c/REYysCex+KDF+7awcLleNPYRAbCifKv5x9tgV6jnLaSMgbuaElN/vve +BrZHFZ+3rGCgw/UgtmWNNjBXcTNonMnArg3VycrXbUCI3j2/7hYDa2qzfO+E +24A1t4z0vYfUfPns6SsXraGuvWRbWwcDF0Pi8uMJa7Div6Me3c3ARzyeEbJL +raHbomlOvI+BbUplEp2frWDm7pdUn3cMjJeMOnayygrUL2mWfx5j4NwHevvq +zVZQ17shOn2Cin/0Kl+6uhVYiTiBxjQDZTpiD3EJW0FwStTryFkGals7V5sP +WMLMw6P5YgsMHIk5v5XnsSUk/TwbePcnNf/Om0MfSi1BQKdUzfsPA1v73m7q +OWkJF3ffnV1cZKByhPeekShL+B8QrRDZ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07171538655454374}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07171538655454374}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994257209143097*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"be800a78-2dbd-4c2c-91d1-61ace0d24994"] +}, Open ]], Cell[CellGroupData[{ @@ -7191,11 +8056,12 @@ Cell[BoxData[ FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.991850610344879*^9},ExpressionUUID->"c213919d-017d-a948-8e46-\ -fe19384187c3"], + CellChangeTimes->{3.991850610344879*^9}, + CellLabel->"In[98]:=",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], -Cell[BoxData["9.786582751762749`"], "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +Cell[BoxData["10.444180943394723`"], "Output", + CellChangeTimes->{3.9942572091872*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"6ffbf3e0-5a46-4be9-bb3f-0a79a077a5af"] }, Open ]], Cell[CellGroupData[{ @@ -7251,447 +8117,505 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991850612616415*^9},ExpressionUUID->"3764dfb4-9656-4349-b0a1-\ -77ebd1a3e048"], + CellChangeTimes->{3.991850612616415*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"12d513db-13cc-bc48-b9a3-22b17d8aeb9a"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.179370506517242`*^-251\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 99, 13, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942572093195343`*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"f42a4b10-d588-49e9-87aa-7ad421fa2375"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"05911c33-7605-8b49-a7ba-7fc8c8f30741"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.597461724607092`*^-260\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 99, 14, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994257209332151*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"98991ab8-ec2e-4665-a652-4550cc82a145"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"2192e048-2875-9f4a-aa0c-9cbbd447dfe1"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.0705324634182724`*^-269\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 99, 15, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994257209340715*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"fa0cc2ef-c068-4cea-9ae6-9be46685da83"], Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"b6990f5f-359f-464b-ac16-44cdfeae3c8e"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.031746 0.0147151 12.2218 [ -[.18254 .00222 -3 -9 ] -[.18254 .00222 3 0 ] -[.34127 .00222 -6 -9 ] -[.34127 .00222 6 0 ] -[.5 .00222 -6 -9 ] -[.5 .00222 6 0 ] -[.65873 .00222 -6 -9 ] -[.65873 .00222 6 0 ] -[.81746 .00222 -6 -9 ] -[.81746 .00222 6 0 ] -[.97619 .00222 -6 -9 ] -[.97619 .00222 6 0 ] -[.01131 .13693 -24 -4.5 ] -[.01131 .13693 0 4.5 ] -[.01131 .25915 -24 -4.5 ] -[.01131 .25915 0 4.5 ] -[.01131 .38137 -24 -4.5 ] -[.01131 .38137 0 4.5 ] -[.01131 .50359 -24 -4.5 ] -[.01131 .50359 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.18254 .01472 m -.18254 .02097 L -s -[(5)] .18254 .00222 0 1 Mshowa -.34127 .01472 m -.34127 .02097 L -s -[(10)] .34127 .00222 0 1 Mshowa -.5 .01472 m -.5 .02097 L -s -[(15)] .5 .00222 0 1 Mshowa -.65873 .01472 m -.65873 .02097 L -s -[(20)] .65873 .00222 0 1 Mshowa -.81746 .01472 m -.81746 .02097 L -s -[(25)] .81746 .00222 0 1 Mshowa -.97619 .01472 m -.97619 .02097 L -s -[(30)] .97619 .00222 0 1 Mshowa -.125 Mabswid -.05556 .01472 m -.05556 .01847 L -s -.0873 .01472 m -.0873 .01847 L -s -.11905 .01472 m -.11905 .01847 L -s -.15079 .01472 m -.15079 .01847 L -s -.21429 .01472 m -.21429 .01847 L -s -.24603 .01472 m -.24603 .01847 L -s -.27778 .01472 m -.27778 .01847 L -s -.30952 .01472 m -.30952 .01847 L -s -.37302 .01472 m -.37302 .01847 L -s -.40476 .01472 m -.40476 .01847 L -s -.43651 .01472 m -.43651 .01847 L -s -.46825 .01472 m -.46825 .01847 L -s -.53175 .01472 m -.53175 .01847 L -s -.56349 .01472 m -.56349 .01847 L -s -.59524 .01472 m -.59524 .01847 L -s -.62698 .01472 m -.62698 .01847 L -s -.69048 .01472 m -.69048 .01847 L -s -.72222 .01472 m -.72222 .01847 L -s -.75397 .01472 m -.75397 .01847 L -s -.78571 .01472 m -.78571 .01847 L -s -.84921 .01472 m -.84921 .01847 L -s -.88095 .01472 m -.88095 .01847 L -s -.9127 .01472 m -.9127 .01847 L -s -.94444 .01472 m -.94444 .01847 L -s -.25 Mabswid -0 .01472 m -1 .01472 L -s -.02381 .13693 m -.03006 .13693 L -s -[(0.01)] .01131 .13693 1 0 Mshowa -.02381 .25915 m -.03006 .25915 L -s -[(0.02)] .01131 .25915 1 0 Mshowa -.02381 .38137 m -.03006 .38137 L -s -[(0.03)] .01131 .38137 1 0 Mshowa -.02381 .50359 m -.03006 .50359 L -s -[(0.04)] .01131 .50359 1 0 Mshowa -.125 Mabswid -.02381 .03916 m -.02756 .03916 L -s -.02381 .0636 m -.02756 .0636 L -s -.02381 .08805 m -.02756 .08805 L -s -.02381 .11249 m -.02756 .11249 L -s -.02381 .16138 m -.02756 .16138 L -s -.02381 .18582 m -.02756 .18582 L -s -.02381 .21026 m -.02756 .21026 L -s -.02381 .23471 m -.02756 .23471 L -s -.02381 .2836 m -.02756 .2836 L -s -.02381 .30804 m -.02756 .30804 L -s -.02381 .33248 m -.02756 .33248 L -s -.02381 .35693 m -.02756 .35693 L -s -.02381 .40581 m -.02756 .40581 L -s -.02381 .43026 m -.02756 .43026 L -s -.02381 .4547 m -.02756 .4547 L -s -.02381 .47914 m -.02756 .47914 L -s -.02381 .52803 m -.02756 .52803 L -s -.02381 .55248 m -.02756 .55248 L -s -.02381 .57692 m -.02756 .57692 L -s -.02381 .60136 m -.02756 .60136 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .01472 m -.06244 .10806 L -.10458 .20681 L -.14415 .29388 L -.18221 .37017 L -.22272 .44131 L -.26171 .49847 L -.30316 .54591 L -.32392 .56431 L -.34309 .5781 L -.36173 .58858 L -.37125 .59283 L -.3815 .59658 L -.3917 .59947 L -.40103 .60141 L -.40552 .6021 L -.40789 .6024 L -.41042 .60267 L -.41284 .60289 L -.41504 .60305 L -.41725 .60317 L -.41834 .60322 L -.41933 .60325 L -.4205 .60328 L -.42174 .60331 L -.4229 .60332 L -.42399 .60332 L -.42526 .60331 L -.42644 .60329 L -.42773 .60326 L -.4291 .60321 L -.43163 .60308 L -.434 .60293 L -.43941 .60241 L -.44405 .60181 L -.4483 .60112 L -.45788 .59913 L -.46769 .59645 L -.47681 .59341 L -.49751 .58461 L -.53655 .56157 L -.57805 .52937 L -.61803 .49268 L -.6565 .45377 L -.69742 .4102 L -.73682 .36757 L -.77471 .32713 L -.81505 .2857 L -.85387 .24819 L -.89515 .21147 L -Mistroke -.93491 .17954 L -.97316 .15219 L -.97619 .15016 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJzdXHd8VUUWDqm7ZJWqCCgl9I5ACklIBJRqkKYroMGIgQhiIiAoP0AQpUtb -aYoEREBlVQQUUMD2c2VVQIoUEWnSi0hVUGbfmTdzzr2POXeS+OJvd//Iy7y5 -33fOd8/MnTtn7tyXljEoK7N/xqBHe2VUaj0gIyfr0V4DK7XKHuCrCisSElJk -v++vVqWQcF9ZhIS4PqaI38UB+PCVhbgmDsBH/svZ8l+U2PPdHtG3b19Ru3Zt -UaNGDdGgQQMxaNAg8esvv4YkSUyEOHTwkGjSpIn8A1yJEiVCQuFbSJiYMH4C -oCQyVOGnTpkqbdWsWVPavvb7tZBYq62iTlteuuKkqTCRmZkpSpcurYT4P6Oj -o8VvV39TCJsck41opw2bFGUnSuz4dofExMfHi0aNGkns6GdHi6tXrvoU8Doi -3K3x/Z7vxcoVK8XlS5elax9djBgxQnTr1i0kRUn+ZvM3omvXrsoofEaKNavX -iLZt24qLFy5KTr9+/cT4ceMTDJTwPLjSET544KBo2LChWP7uchXNMJGQkIAR -DvV2H8uaiXaakX9ecnSQ9/2wT+zetRs5534+J4Ock5OjTouVouL8pFIEakAV -fEv2iGvr1q1lvdNjTEyMKa5FDaZ1AE4cPyFiY2NF7rxcFbMwMWWy7yL+7XdX -HBl3cXk0E2WQoKVe+fWKqFKliuPCYN0FxMrXAmL9uvVsrMJVHbRm+fLlZbfW -nSU5OVns2rlLfovzCJrTh8b9dOYn2UsmTZyk2sPuI9bAjTb40FGZ8eIM0a5d -O0cj2H2EucNTr1492TFt4Tl54qRsGDIRJtLT08XaD9daw+P0Ea/qoLGaNm0q -pk+bnm8fTq7JR5xSDqNVqVKlRIsWLaBDheXRjYpQjupmEydMFHu/3yu7GHTV -USNHiQ4dOpjGM30iIAQEOj1kZWWJZe8sY4MV4e0uUVF+PvuzPNd1a9ehaZu7 -eAM33Nud7mEXzl8Q48aOgwE/z2cXED+437Rq1Ur+r1WrloT6WtArfqdOnjK2 -kE+4NX6MuyRF+fLfX8q7nPOSsblLMHDDvN3p5kpNTcUrL6/uXPHzX7xqiAtp -XoABTN1yPILm9pGqBuOSJUuCLRxebfZ1h3Dw8JSd9pupuoEDB4rFixbnafDS -PjxCk6qCoaKtTzNStVObNm3E5k2b8WxgDKlatWqcF8vtQJ/fxq83ytu2U/fp -U6evuz0xHmPzZcYcuj59+oj3Vr6XF3cRfMRSVBeA/piYmCi6dOki5ufOh/MP -0WH7YM0HsnufP3de3oNh4vfCpBdirVRT7PzzzHLlykmzMNrAja5Tp04wCuGI -5OkyLybcrhMUb8s3W+TM6sB+mUKIb7d/K6pVqwZ8m+uAGMIEuG7duvDnazn4 -DJMB0B71UPPpJ5/KuzMEJUoFbNrUadIr3Jr69+8vO3q8AR+ZR1+xSvmmjZvk -fKhs2bJy8g7zKp/tCA+3cd7U8DwqaKJcLH1zqWjWrJm8wUD8fYOlOguzexVU -LsGrp9xDzqhdyc93/zeOx/hrfYfXw0cRr1ppKxQq/mawGp2fOrLClm74oz7+ -jLr/U/VUig5s+juxdJfBbEtD3Z15xLU0OpWYln+yUwdIrgZdd0GFO48LDVlW -YIiGXQdxqw1F0DtOUITLjku1Eydt+W/EWpMf9HYgKNTgW37+00tbATl0Um/x -yDDO+lILh6x76AjnrL9ZCBxS5KE9grP+hoVD1p06JDCSs/k6bzPSbdPDexRn -fUkhcEiRh/a/cNYXWzhk3UPHXznriwqBQ4o8tBflrL8W2BOKum16eDfdO+Tn -wkLgkKLXeKRp7iE/X7VwyLqHDtN9W34usHDIuoeOGznr8wuBQ4qc2iWwGGcz -l7dZzG3Tw3txzvo8C4ese+gowVl/pRA4pEhp93r44h+zw2VKlpSUBGktPIjR -2QWsm0DWUb9+fZm9nTh+Qt1EIsTw4cPxeU3x4sVFnTp18NnP2Z/OoijTTack -d3Jz/ZL9Iya3ZI+qIamHZzJgZsMXG/Q61ZHDR2RedfjHw9LMksVLIPvTI3fH -jh3F9m3b5TfTeFvSHUUVbzUJUSvjOHVQK+MqJv468K+XVXTd2DFjZQPAN+fS -jV7BisijuFJc5F5GmbZlaj0awamoZQ2UNGzYMDF71uz8S6J4zUUhttVgLcTX -c3SPQSHzXpknxXgKkZNRNiIvoZB9P3gvq2ohFStWhGd3LiGvL3kdHiPlKyKl -7ZJsK5VaEvRjU2zg6su3JGoke2/RHVgLcSyCuXrLnNlz8iXkJi42c1zXmXLn -us5gcIJv+oYHq+ewpBJ4TX23+ztHXYRchFfNquUZpzU3uWOkG8s/FjELWOpe -FymOHjkqO7JeBFv02iKRlpamR8tZM2fJRWxYr4ELj9NwMxce/zWJ52Ra9ymm -jsGzLOg3IAfi6LsOcciENb0xz48RZcqUAQ2sBArDRPiQCCbdNHAm4NcbeE4Z -7lTHIvtGC5s8jkGVxRwcWXEL52c0mihh5JD1Z/FASV5RWc7PM2istIVNHolz -U545w1HlzTynHKdyKBq7xcImj0+jx7I8pzzncTAaK29hk0fi3MpzbuU8DkC9 -txWA/QT6rhjYX251qyRkpUDkbZz1x5FTmdd2m9tPfzQbw3MqcB77orGqFjZ5 -JE41nlOR89gH2dULwM7Es61hYZPeTPxai+dU4jw+jOzaFjZ5JE4dnlOZ85iO -51g3sOdUdvtJx6/1A5ExnPUeyGnAa4tx+yFOQ55ThfN4P7JvLwD778huZGGT -XuI05jlVOY9dkB1rYZNH4sTxnGqcx47IjrewySNxEnhOdc5jGrKbBvac6m4/ -hEzk/dTg/LRDdpKFTR6Jk8xzanIeWyE7pQDsu5CdamGTXuLcwXNqcR5bINu/ -/SDYubqe0EMmDM59x0L0hkiYPeoMy7TMWst9oiS1hV9qoeToerHAZ0FOky+c -v4BT+9WrVnsKrs1FORWlt1TSCzeX1/sGIDWCtBNyPfC3c8dO2FtgWkGu7Q42 -Kb4TFQcrrdchXvjqQtkCPx760ZiJ1OHCmYzi7kJxwU71IesGLHRiSvUDokRC -WqGQYKX6uoPNfXmuaN68uYy6qeHqclFqiuJao7hgJf1aCGxpWPX+KvaKqOuO -F0lqY+1V+U3/tSRfSox7b0yS2If7cSiuresiDd5CgH9flNqRh3XZ2dliwfwF -+Rcci4LbKcFBWCiIEhkZGaJHjx7yioLD0L4wVJ85fcbYAekxd4Cq9n5VBV0w -0Bt3oINAg8IFU7lyZdG+fXvoHKalnfpcqBqhqLv9okxBre8+EeKk8ZwGnMcG -yO5gYZNHkzEPdkPOt2lIuMdhJwzn0uS7Dn7tzHu8nfNoml90stgh3ya2h4pG -nArTfLNLAeyYZspdLXbobEzse3l2Y06FKYe6z2KHVFAOdT/PacL5phy2m4VN -HonTnefEch5p/aJHYE+Ndfsh5AO8nzjOD61YPWhhk0fipPOceM4jrUz2tLDJ -I3Ee4jkJnEd6HpJhYZNH4jzMc5pyHulJZC8LmzwS5xGek8h5pOfHmYH9JdHt -h5C9A5FJnHV61t+H15bk9kOcLJ6TzHmkHRqPWtjkkTh9eU4zziPtq+lnYZNH -4jzGc1I4j6bdTh6+U9y+TWwPFamGumto8XELUYIInh3Yc+4wEK8iPMcIl4cI -9AQvobmh7hckDrAQJYjgA3l4C0PdRSQOshAliOBP8nDTJsJzSBzsJxbKykOU -fF0BcgSohzfU4BkYpC0bv95ofDxImxtJ4RC/wkJccIiSO8TBotIhtm7ZKho3 -bgyzdOO0m/aUnsXSU0pn4a4uaDWQDObOy1Wnd71C07bT06j1adQarHUFreHY -0WOyN8AudVPkaMXsjOEoxTBYSwrh6hPe6KtQoYJ8bW3WzFm0qmAK1ElDHYUs -WIsMWhq8bLFt6za5yd8XdtN1QSubJmlDUVqwlhh0awKve/furp7n9NzaUHcM -tQ6z9rL8rjNoXZBdV69e3VuX1EBqhruuz2AsLGg1kNPD6MapaYMajmBphGtU -+0OrBpGiZ8+e8i0hGBChN/Xu3Rse85t6UltD3SFU9Yxf1R9dNTh+7Lh8lQpu -CYAZPHgwaGP1SN+kYqRfhelm1s5Qtx+JoyxECSL4szy8vaFuLxJHW4gSRPDn -HHCJvhsP7cHS87zNNEPdLiSOsRAlaLfhqIfHDoa6HYY6D98d0PcOLI3j4fcY -6rYhcbyFKEEEn8DD6dnZFixN5OGdDHWbkDjJQpQggr/Awzsb6r5C4uTADtQZ -DxFoCm+9i6FuAxKnWogSRPBpPLyroe5zJE7nifca6j5D4j8sRAki+Is8/D5D -3cdInGEhStAnhqMeHul59EeGox4e7zfUrTXUzbSYkL7XYml2YFfqhoc+wNIc -3mZ3Q90qJL7EE3sY6t5D4ssWogQRfC4PfwBBK7DksWn6QUPdMiTOsxAliOC5 -PDwdQW9jaT4P72moW4pEj639PRFEcOf+fol+CA+9gaWFgaAMg/XFCPd43yED -QQT3eGHjYbdNIprhvQx1C5Do8fpLL3f4ZMnjXZxH3K1K0TLDMw11c5Go3mwK -cpatj8FPJ+h9+IAZOnSocR5Ku6FImXqjq1Cyaz3fg123+/fJeZdRV2/3+CFL -6t23oGfTkc7sVv59/NHH8NMK8udxfJRixYrJt7WHDBliFEub2GZj6S0UW/B0 -OsqZTss/SNCgOS9fuownfl0oZQ5LmmZg6R3UFKxUWgcQdmeotEj+KU2UUmcZ -wjYdhS1DYcFKpLWwSxcvyROF31YJFBYgp6+hbipKfBclBiuh1r85BhvBIa10 -yDMuhNFGS1K13NrL8ptOa1VwqcfFxcnfsfFS1Q+1TMbSCteFGoy0Wq+LQJIL -v5rj0YyPoYxJWFrpGtEKmFlHKg2wgJmSkiL/GA390TPte/f/gkiB82g97qxY -vkK64tqDNg2Pw9L7fteme1Q2gsZgaRUPzzHU0ab51RYiJcqytMYBl2jaJD0S -Sx8GggbgoRFYWss7HoigYVhax8MHIYh2v6/n4U8iaAgK/IiH0151In7Cw4cY -6uj0P7UQQ93R+oyHP4Ug6g6f8/CnEUT9/F88nAJJY8UXga1KjdMH6zbwNocj -nCYwX/Jw6ik04/uKhz+DIJq3fs3DqbPSjH4TDx+FoB54qpt5OL1pQrnbFh7+ -HILuReJWHv48wjsjfDsPp5dqaI1lBw+nIehuJO4MbPrxWGqDpd28zYlok1bA -9/DwSWiTnpHt5eGTEZ6CpR94+FQEJWJpPw+fjiC5MixnRgd5+IsIvx1Lh3n4 -TATVRetHefhsBNXA0nEeLtNx+SMdFbF0iofLNDkSqm7G0tnAppdZaFEoRWLp -Am9TpmY3QtUVHiQ//0t+mMh2XJYtv74bUuQ/PkeLDQ==\ -\>", "ImageResolution" -> 96., "LightDark" -> \ -"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-3.233775858153751, \ --0.0043827503402644324, 0.11832856225129938, \ -0.0003073572253865838}},ExpressionUUID->"899e43aa-c372-6647-a3e4-\ -4952f308ab17"], + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 99, 16, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99425720935166*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"56e411a4-db1f-4e25-bb20-cd7cf434a2ad"], Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-\ -baecb9a57d9b"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k8VFscAHCRSKWyrzN3hlBIlsgy/X4pu+qRpezSZElaCFFZypaSZ4kU +IaSImVsJUUKLEqUsESo9yZMoS8jzbn/dz/dz555zfuf8zu+cYew9ZMvm5eHh +IRbx8Px5TvU1NSomFmw+taQcR0aNN7/NkTq+pSsa+JYZZtHcGIDirXululIg +52PS9SlXTQj+62YnX1c+GBX5sHtct8DqUcmUmU4SFr92yOO42kB/zY5DE531 +cIVn4q6SqyeYKg73jne2wQfe0UcrnY/ATKde+ljnJxB8sqPqgW0UNGy9XvA6 +/yd45r/s7Rj8G+T6qwb3qs1D+qbqaC3MAjF/95sCW/nQwzj8ae2SPEjRNL2/ +w14QRbbHPhSZK4B3mRvqxletwAtEY+mIczEkFkS08kqvxu2dKq7ueSUgmTaQ +kJotivdeH6909SkDKdW7Z34ViWJg56/s/iNlIFMfG+HKEcV16X7SzuFlQBtb +e0y5QRT9D3u93JxUBmusD3vcHxJFZvhbwarbZaC9eF53QFsM4wScW0Lmy2Bn +kMRnrediyGxuFZY8Vw5xdhab26bEUb95+4s3lhyQudMiw7tIAnkDNrlI7eRA +majdtOYyCSxgbOLfs4sDHW1unL/pErjtW092izMHFG2CmDbmEsiX3dp31p8D +9duvLnl1SQJXdJttNzvPgXnTyZaXRpIoaipy5eULDiQXhZXMm0qiS+/1mLRW +6vslPPHqNpL4+B+fk45vOGD9WGjLebYkpvtdvPi6mwNZW4nb1kmSOK8o5nfx +Kwc2oVXGi35J3FilH7B3CRcC9fPcm6KlsHDOaYGXxQXLXOEJq3NSqHdXqUQU +ucAUOBHfki6FvatPDxBbufDqrQP3TbEUmjR3z2yw4ML6w8v5+lqkMHPRoxpl +ey4MFYUU/ZCRRsbstyuH/LngIrbjm+xtaeTjy1vhm8kF7fD7UTk10vjFOtpx +2WUuCH1SkWA8kUYdx1MaN7O5UFXOB0rvpPGchPHZ3nwuSFhVJW9YkEZPj/RR +mVtU/1GKOiZWMiid9iVlrI4L277PhgUMyOCdqPFYwUEuHDdPW/doRAZ/7yLb +NIe4UJan3i06JYML0ZlvHYe5IGXnoV8lKIsmrc/nLo1yYaTy8TTfelnkja3o +m5riQmp0ctClUFmUjN6lKSpAwrOetYojUbJ4MdLwP4GlJPzWaXizOVEWvc8m +x8wIkbD/y6TW52xZlLO529gmTIKBtfP4+gZZ/DgTt8JNgoRP4koBjSvksKHA +Y3WXIgmShx7KS0rKYctB2ZJMJRKsn+1+6UvI4aBvxGIHFRIqwhLVVmrLYd2/ +5PQTVRLO9o8N79kth9C4bDhKiwStG/e9v+fL4dCS0l0uQEKUkY2nzCZ5BFgs +VuRAgrlbzg89Y3kMXHf0stxuEoQj/z1tby2Pm3mK3S7sIeFKQ0xRsoc86hV3 +ZPm6kFBpWf3vkgR5ZAsGzo15kjC2WyH45zt5PJPE+tfKn4R7YYcFVn+WRx8a +hsUeJOHUldrM9aPy6G29bWdtAAnLPzje9+WlYdTPpS30IyQoe5/j+bCOhjPN +nZqVx0hwOzZ5tjmchp3Mxg16p0hYk2EsNxxDQ/OBb4G6ESQ1/xduCSTTkE/n +tKBWJAlhv9e+Mi6g4fLcnyq0aBLST7uJVzXTcIf9FpfnMSS4FJYUdXTQUJgl +jqWxJDCf/tKb+EDDtrOh4WfjSOAIpTppTNLw0TOx34YJJDT//fRqoTwdH3Cn +DALPkZB6W0yzQZmO1xuTx/XOk+DU7ln/QZOOE9pKS2YoD0n9/ixrSsdBTLI+ +fIEEvtwN61IC6GjgmcPWTiHh+aOT98tD6Sj9yUGhh3LywHPrl9F07AmpNYlI +JYGmzD4kmEHH/h+8NTVpVD6UXbpz6iEdv/53K3Z5BgnbOlvmR5/Rsf1Wn00S +5R08i83c2+i4MX/DwvJMErxsA97BP3Tkp8nzLbpEQkD4NSZnlI4MQTXnYMqh +BV0HiF90FPu9LXOIsmk4IyKSn8AbSbGNDVkkvFhZc22TEIEyY2vvql0m4a8C +h2djwgSKfWg+n0LZ+WXiak8pAiPzV87aXSHhMH3q2hZVAh8rFb+5k03C5O3k +ZzMaBNoPeUrz51DrYa76jatDoNmC6nZbyjFHPHSZmwn8aCcYPUBZaMmcU7cx +gfxixWeUr1LzkZUekWJGYIxKYKgP5ayG5894bQjc/bBM9yNl+m72t2p7AgU/ +kLzSuSQUjCysDnQi8N3fSxu2U14XlaWr6k6gQMKp0AjK5eIbnQe8CFxs2KdQ +RlnnZmvEZR8CB3onH7+jXL3Zr2DXQQJzvVPdefNIgDeLm5YdJbDufMy4MuVG +76vfGoIJbG+8fMKSssVvfZET4QT2Q9EiP8otyW91dSIJrPp+LCqWst2aQ84j +ZwgsiH7/+yrld1VLIwsSqPa8SoMqKLvtKChwSSLwWHXl1ybKnz9tbhJLJXDM +t92lm7JvyLtvzRkEXlvV2fKF8uiyIJGYKwRmC6TiD8qBucJ6rDwCFfb2kzOU +f+nccJ4sJFD8W4rSf5RPNW2NvHWTwAPrY64sUOZz6ytglxOYti9J/M/7+B+h +TfJ3CFwRG5fy53vhONHR9koCa9BS7E/7qbJlIkm1BPrNcC7/6V+KY65nWk/g +zhcX1/4ZX/a2Aef/nhC4J67zwZ/xM9+djKx4QWDr7Z0uf+IrPihVGPCKwJzE +97y5lNV5bzcptRM4Mu98+8/8kBe3j/a9I/DkrdKAP/O3SXVIJKOPQNrYrY1W +lGsfRuvtHCDQoAWWrqVsbCfvIjBEoCTv1mE+yk+H7kU+HCEwcDrzXQ+1ftYn +bQtDxgmceq7QxaHsWBQ3+mWWwNnvXktsKb83YIrmLhAoO/xBj0Z5b2uN3u7F +DEwQYZ74QuWT/6/xyGcrGHjhQRweoWxwZL/EoAgDRdQfW6lRFhzuLuGTYmAV +d2H4T74W9jR0bGYycP7Y8mFzykF2m/xdlBm4DDWtp6j8N35ZuihMjYFO2r9M +cyn3PUhXu6vLQKiVXTZM7ZdSPaH6NkMGrlVv60igHMY55TiGDEwM6QMlyhL5 +3tGqVlT7hhWjdtR+2xmj35XnzkDViYYPCdR+pf136+DDfQyssztTKUx5JJjJ +1+tLxTOhppdM7f94n2XrpYIYOPZx1foEqj7UWfWeTopn4GCGheKudBKSGm2k +S88zsHL8gH0tVV9cWE/KmlIYeKUP9RQpz6wvf7c4m4FDndOrh6j6pCUSpRHO +pfpXiTA1TyaBJ3GyMbOCgSn84kQmVd9a+PycKu4zUHyx253PSSQcmLSNGX/M +wP1saZEgqh4WdCn2eHczMNXmzeMDZ6n4rj6LteNjYvf8J/W601T+S7Lkjgoy +kRjfaP2eqtdkMpd7YQUT40e69CejqPijs94/l2Ti20s28fJUfY9n+2ttUWNi +f5GQpPkJaryqq/rU7ZnowjO9ZkkQCVPZMlHaTkw8lpE2NXGUhImVaxT13Zk4 +zV/+7AN1voz+1Pfb5svE+f8ig8sPUefrfa8pp5NMFGE0y609QNVnq3vC8YVM +TDlD3kuizrOntY+4528yMXB2xnCHB1UPNJrtUsuZKKR8rUPInYQHoh+zcqqY +uKLe1y6cOg/JHiHluy+ZGHpdNEPfkapfB9zg0yQTOw+tY6tZk5DR6/PpyywT +2dPCY7WWJKTtDIz5tsBEfpeOImsLan2041/8WqqAacrR2Z6mJETPcR1X0hRQ +o+Jyuy9S85vIf9jIVAGvXBUunNAmwaikNPfiRQVsbdY6NS9FQg9RctXksgI+ +2f100F6Syq+LN3ImripgeJoVT6k4dR5HFV2xvUH9HhstbUSo9d2dmylco4Cx +18ZdI5eRsJY/LTn2owLyL98QfWSeuj+5h0cGqyniZ+Hq2ev9XBgXsfRwqFfE +8G383sXUfavLn/nK76kiznU13DWl7mN1T2YholkR6a+1r3+i7mvJYSX04g5F +PNruGyqaxoUNn5b3zwwrojx9Gc+es1wI4La6ZouuQU+ef/mOBXNheKe98+d9 +a9Dvp8fXOWsufD7n4XBUQAmdO+9p5/zkgMX3EIt/dJVx+nxshvUmDox4CQbe +iVDBraE6D+8Ul1H/HyR54+rXYtulN3nf60tB5KVSEuf7OqwVpwfC4E2Qiy// +S1dXDV+O79+V3lYMmar6q0S91THuVepjj94ieC6zZePPv9fjpac3LZUmC8BA +rj5Zo0MDU6UWCR4azQdhvvwgz+gN6GejsjxBJg9oUXSjPUqa+IqjUfvZPweW +rnGpsH2qiVOaGYsOf8uC9Szp8hBXLfzqsN2890MGHO0TabDk0UbOcU/drtdp +8P3nOXuLTG1MXXrxlrtOCphpPMmyUNfBv841ua6puQAPfhrOTbfo4Kns5PCm +tYkQoKbV/Zq9EVcsGCfaOsUBa3Tf2z1LdXE+9dCZIe5pMFGU2r4iXxcPhPpP ++ZCRoBJ5NrReTw99FvqrBDafgHVs/YdruvXwjngo/6P9IcB+4HPmzpFNOHZW +N5cZEwgPc9/uGxfXx64Zbp9Q/yGYKF6Y1rinj4niolptP3xh0ME0N6FKHzW9 +Asry+3yha/F584H7+iga45YV+dwX7nvIXLpYp4+sRcGF+/J9IVpqo8F8kz4G +TGk8a7b1hVXxfieev9fHYds5Y8kKH1Dzbudh8xpQ98egM+xYb/BaU7I0a7sB +NtUwhw9bsyHssZuf0l8G6OjkpTyjz4ZktsgL0tYAswWbDS4os6Gm8Pi5F44G +yFJya/jMywYxJfOV854GKHtdJkSneh88UfpHzCPYAF3J6zvcVffBOhU6oXTV +AJdPZJ28KekF4+tSdckxA/zdfYbmJuEJXc1oIvrTAKcDitUIQU+oCxjdFTRp +gJZqp9NHZjwgibQ4ojtrgKT7KveCXg9YZ8BTWs1niLU/BpUvFHrAXouDjAYJ +Q1Q/2GpprecBb73Nlr81MkSdnEqj4EY3qCyY+zgZb4ie+qYHLW44g+7WoGnL +REMcyD0wL5biDHc/jizPPW+IdhUHSsbDnIGk9elZphhizNRxvT5rZyjNrDuf +c9kQp1dqjEaPO0HuuRh9szJDjJ//3jHOcoKEoJV/Z74xRPMN10/QBnaD0zYF +NKQZ4ek+P+N4FweYfyso3EAYYe3EXN5NMwfIZY/2WCoY4QOVfujTcoDB2KoQ +JxUjTNoiKHB8qQMcbdpZflzLCP2mmSHh9+zh7I4TtEpTIxRYm5x6Q8Ieqne3 +/9Y5ZIT393Ay9nzcBbIH46rW1xmh0Grm1ZRCG0ha2L8xsd4IBxWfxr9ItwHe +FFPul0YjTLQwE1gdawPDFfw3cpuMcMea97mP9ttANc+ZTJE3Ruik5r6nUsUG +nNIiQ6b+McLDAotiJ8r+gsz7xzc+WMbC1QoJNT3xO0FcyJ+73ZGFrvRrt00U +rKFg68mwsT0sVO0bLDm9xBq0TiZtTXVhIXT18b3/agU7xjjtXZ4s3MrPE9nD +sYLYjskZL38WJo3Ze4uiFfzKjzAOi2KhNbN1hb2XJXQbpr4pKmFhWcZjRmqN +OfgcK7hiUcbC1x59ryfzzWGq7C57hMPC3k9znocTzEGE2TWtWcHC9MAz7aUO +5mAlKC9XW8fCSFfVn/jDDGreFu17087C77ybwx+rm4GlcKV6cBcLlat+mWSL +m0GXWdOUVA8L49qUGhLnTWGi+t94tw8svKQhk1j60hTU8zbc+jrMwnbM2TkX +YAo13VuCz31jIfvmx5JYR1OwFNsFGmMsvKxkoqKCprA/7tjroEkWLh1j6N9a +TbVXF5sl+YuKf1vqjeRZE4iezfCqnmXhRLnYj4QBE1ilc0PNdZ6FAW4PeS41 +m0DOwerJhQUW7pOtbKi9awL/A95tNIE= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VFscAHCRSKWyrzN3hlBIlsgy/X4pu+qRpezSZElaCFFZypaSZ4kU +IaSImVsJUUKLEqUsESo9yZMoS8jzbn/dz/dz555zfuf8zu+cYew9ZMvm5eHh +IRbx8Px5TvU1NSomFmw+taQcR0aNN7/NkTq+pSsa+JYZZtHcGIDirXululIg +52PS9SlXTQj+62YnX1c+GBX5sHtct8DqUcmUmU4SFr92yOO42kB/zY5DE531 +cIVn4q6SqyeYKg73jne2wQfe0UcrnY/ATKde+ljnJxB8sqPqgW0UNGy9XvA6 +/yd45r/s7Rj8G+T6qwb3qs1D+qbqaC3MAjF/95sCW/nQwzj8ae2SPEjRNL2/ +w14QRbbHPhSZK4B3mRvqxletwAtEY+mIczEkFkS08kqvxu2dKq7ueSUgmTaQ +kJotivdeH6909SkDKdW7Z34ViWJg56/s/iNlIFMfG+HKEcV16X7SzuFlQBtb +e0y5QRT9D3u93JxUBmusD3vcHxJFZvhbwarbZaC9eF53QFsM4wScW0Lmy2Bn +kMRnrediyGxuFZY8Vw5xdhab26bEUb95+4s3lhyQudMiw7tIAnkDNrlI7eRA +majdtOYyCSxgbOLfs4sDHW1unL/pErjtW092izMHFG2CmDbmEsiX3dp31p8D +9duvLnl1SQJXdJttNzvPgXnTyZaXRpIoaipy5eULDiQXhZXMm0qiS+/1mLRW +6vslPPHqNpL4+B+fk45vOGD9WGjLebYkpvtdvPi6mwNZW4nb1kmSOK8o5nfx +Kwc2oVXGi35J3FilH7B3CRcC9fPcm6KlsHDOaYGXxQXLXOEJq3NSqHdXqUQU +ucAUOBHfki6FvatPDxBbufDqrQP3TbEUmjR3z2yw4ML6w8v5+lqkMHPRoxpl +ey4MFYUU/ZCRRsbstyuH/LngIrbjm+xtaeTjy1vhm8kF7fD7UTk10vjFOtpx +2WUuCH1SkWA8kUYdx1MaN7O5UFXOB0rvpPGchPHZ3nwuSFhVJW9YkEZPj/RR +mVtU/1GKOiZWMiid9iVlrI4L277PhgUMyOCdqPFYwUEuHDdPW/doRAZ/7yLb +NIe4UJan3i06JYML0ZlvHYe5IGXnoV8lKIsmrc/nLo1yYaTy8TTfelnkja3o +m5riQmp0ctClUFmUjN6lKSpAwrOetYojUbJ4MdLwP4GlJPzWaXizOVEWvc8m +x8wIkbD/y6TW52xZlLO529gmTIKBtfP4+gZZ/DgTt8JNgoRP4koBjSvksKHA +Y3WXIgmShx7KS0rKYctB2ZJMJRKsn+1+6UvI4aBvxGIHFRIqwhLVVmrLYd2/ +5PQTVRLO9o8N79kth9C4bDhKiwStG/e9v+fL4dCS0l0uQEKUkY2nzCZ5BFgs +VuRAgrlbzg89Y3kMXHf0stxuEoQj/z1tby2Pm3mK3S7sIeFKQ0xRsoc86hV3 +ZPm6kFBpWf3vkgR5ZAsGzo15kjC2WyH45zt5PJPE+tfKn4R7YYcFVn+WRx8a +hsUeJOHUldrM9aPy6G29bWdtAAnLPzje9+WlYdTPpS30IyQoe5/j+bCOhjPN +nZqVx0hwOzZ5tjmchp3Mxg16p0hYk2EsNxxDQ/OBb4G6ESQ1/xduCSTTkE/n +tKBWJAlhv9e+Mi6g4fLcnyq0aBLST7uJVzXTcIf9FpfnMSS4FJYUdXTQUJgl +jqWxJDCf/tKb+EDDtrOh4WfjSOAIpTppTNLw0TOx34YJJDT//fRqoTwdH3Cn +DALPkZB6W0yzQZmO1xuTx/XOk+DU7ln/QZOOE9pKS2YoD0n9/ixrSsdBTLI+ +fIEEvtwN61IC6GjgmcPWTiHh+aOT98tD6Sj9yUGhh3LywHPrl9F07AmpNYlI +JYGmzD4kmEHH/h+8NTVpVD6UXbpz6iEdv/53K3Z5BgnbOlvmR5/Rsf1Wn00S +5R08i83c2+i4MX/DwvJMErxsA97BP3Tkp8nzLbpEQkD4NSZnlI4MQTXnYMqh +BV0HiF90FPu9LXOIsmk4IyKSn8AbSbGNDVkkvFhZc22TEIEyY2vvql0m4a8C +h2djwgSKfWg+n0LZ+WXiak8pAiPzV87aXSHhMH3q2hZVAh8rFb+5k03C5O3k +ZzMaBNoPeUrz51DrYa76jatDoNmC6nZbyjFHPHSZmwn8aCcYPUBZaMmcU7cx +gfxixWeUr1LzkZUekWJGYIxKYKgP5ayG5894bQjc/bBM9yNl+m72t2p7AgU/ +kLzSuSQUjCysDnQi8N3fSxu2U14XlaWr6k6gQMKp0AjK5eIbnQe8CFxs2KdQ +RlnnZmvEZR8CB3onH7+jXL3Zr2DXQQJzvVPdefNIgDeLm5YdJbDufMy4MuVG +76vfGoIJbG+8fMKSssVvfZET4QT2Q9EiP8otyW91dSIJrPp+LCqWst2aQ84j +ZwgsiH7/+yrld1VLIwsSqPa8SoMqKLvtKChwSSLwWHXl1ybKnz9tbhJLJXDM +t92lm7JvyLtvzRkEXlvV2fKF8uiyIJGYKwRmC6TiD8qBucJ6rDwCFfb2kzOU +f+nccJ4sJFD8W4rSf5RPNW2NvHWTwAPrY64sUOZz6ytglxOYti9J/M/7+B+h +TfJ3CFwRG5fy53vhONHR9koCa9BS7E/7qbJlIkm1BPrNcC7/6V+KY65nWk/g +zhcX1/4ZX/a2Aef/nhC4J67zwZ/xM9+djKx4QWDr7Z0uf+IrPihVGPCKwJzE +97y5lNV5bzcptRM4Mu98+8/8kBe3j/a9I/DkrdKAP/O3SXVIJKOPQNrYrY1W +lGsfRuvtHCDQoAWWrqVsbCfvIjBEoCTv1mE+yk+H7kU+HCEwcDrzXQ+1ftYn +bQtDxgmceq7QxaHsWBQ3+mWWwNnvXktsKb83YIrmLhAoO/xBj0Z5b2uN3u7F +DEwQYZ74QuWT/6/xyGcrGHjhQRweoWxwZL/EoAgDRdQfW6lRFhzuLuGTYmAV +d2H4T74W9jR0bGYycP7Y8mFzykF2m/xdlBm4DDWtp6j8N35ZuihMjYFO2r9M +cyn3PUhXu6vLQKiVXTZM7ZdSPaH6NkMGrlVv60igHMY55TiGDEwM6QMlyhL5 +3tGqVlT7hhWjdtR+2xmj35XnzkDViYYPCdR+pf136+DDfQyssztTKUx5JJjJ +1+tLxTOhppdM7f94n2XrpYIYOPZx1foEqj7UWfWeTopn4GCGheKudBKSGm2k +S88zsHL8gH0tVV9cWE/KmlIYeKUP9RQpz6wvf7c4m4FDndOrh6j6pCUSpRHO +pfpXiTA1TyaBJ3GyMbOCgSn84kQmVd9a+PycKu4zUHyx253PSSQcmLSNGX/M +wP1saZEgqh4WdCn2eHczMNXmzeMDZ6n4rj6LteNjYvf8J/W601T+S7Lkjgoy +kRjfaP2eqtdkMpd7YQUT40e69CejqPijs94/l2Ti20s28fJUfY9n+2ttUWNi +f5GQpPkJaryqq/rU7ZnowjO9ZkkQCVPZMlHaTkw8lpE2NXGUhImVaxT13Zk4 +zV/+7AN1voz+1Pfb5svE+f8ig8sPUefrfa8pp5NMFGE0y609QNVnq3vC8YVM +TDlD3kuizrOntY+4528yMXB2xnCHB1UPNJrtUsuZKKR8rUPInYQHoh+zcqqY +uKLe1y6cOg/JHiHluy+ZGHpdNEPfkapfB9zg0yQTOw+tY6tZk5DR6/PpyywT +2dPCY7WWJKTtDIz5tsBEfpeOImsLan2041/8WqqAacrR2Z6mJETPcR1X0hRQ +o+Jyuy9S85vIf9jIVAGvXBUunNAmwaikNPfiRQVsbdY6NS9FQg9RctXksgI+ +2f100F6Syq+LN3ImripgeJoVT6k4dR5HFV2xvUH9HhstbUSo9d2dmylco4Cx +18ZdI5eRsJY/LTn2owLyL98QfWSeuj+5h0cGqyniZ+Hq2ev9XBgXsfRwqFfE +8G383sXUfavLn/nK76kiznU13DWl7mN1T2YholkR6a+1r3+i7mvJYSX04g5F +PNruGyqaxoUNn5b3zwwrojx9Gc+es1wI4La6ZouuQU+ef/mOBXNheKe98+d9 +a9Dvp8fXOWsufD7n4XBUQAmdO+9p5/zkgMX3EIt/dJVx+nxshvUmDox4CQbe +iVDBraE6D+8Ul1H/HyR54+rXYtulN3nf60tB5KVSEuf7OqwVpwfC4E2Qiy// +S1dXDV+O79+V3lYMmar6q0S91THuVepjj94ieC6zZePPv9fjpac3LZUmC8BA +rj5Zo0MDU6UWCR4azQdhvvwgz+gN6GejsjxBJg9oUXSjPUqa+IqjUfvZPweW +rnGpsH2qiVOaGYsOf8uC9Szp8hBXLfzqsN2890MGHO0TabDk0UbOcU/drtdp +8P3nOXuLTG1MXXrxlrtOCphpPMmyUNfBv841ua6puQAPfhrOTbfo4Kns5PCm +tYkQoKbV/Zq9EVcsGCfaOsUBa3Tf2z1LdXE+9dCZIe5pMFGU2r4iXxcPhPpP ++ZCRoBJ5NrReTw99FvqrBDafgHVs/YdruvXwjngo/6P9IcB+4HPmzpFNOHZW +N5cZEwgPc9/uGxfXx64Zbp9Q/yGYKF6Y1rinj4niolptP3xh0ME0N6FKHzW9 +Asry+3yha/F584H7+iga45YV+dwX7nvIXLpYp4+sRcGF+/J9IVpqo8F8kz4G +TGk8a7b1hVXxfieev9fHYds5Y8kKH1Dzbudh8xpQ98egM+xYb/BaU7I0a7sB +NtUwhw9bsyHssZuf0l8G6OjkpTyjz4ZktsgL0tYAswWbDS4os6Gm8Pi5F44G +yFJya/jMywYxJfOV854GKHtdJkSneh88UfpHzCPYAF3J6zvcVffBOhU6oXTV +AJdPZJ28KekF4+tSdckxA/zdfYbmJuEJXc1oIvrTAKcDitUIQU+oCxjdFTRp +gJZqp9NHZjwgibQ4ojtrgKT7KveCXg9YZ8BTWs1niLU/BpUvFHrAXouDjAYJ +Q1Q/2GpprecBb73Nlr81MkSdnEqj4EY3qCyY+zgZb4ie+qYHLW44g+7WoGnL +REMcyD0wL5biDHc/jizPPW+IdhUHSsbDnIGk9elZphhizNRxvT5rZyjNrDuf +c9kQp1dqjEaPO0HuuRh9szJDjJ//3jHOcoKEoJV/Z74xRPMN10/QBnaD0zYF +NKQZ4ek+P+N4FweYfyso3EAYYe3EXN5NMwfIZY/2WCoY4QOVfujTcoDB2KoQ +JxUjTNoiKHB8qQMcbdpZflzLCP2mmSHh9+zh7I4TtEpTIxRYm5x6Q8Ieqne3 +/9Y5ZIT393Ay9nzcBbIH46rW1xmh0Grm1ZRCG0ha2L8xsd4IBxWfxr9ItwHe +FFPul0YjTLQwE1gdawPDFfw3cpuMcMea97mP9ttANc+ZTJE3Ruik5r6nUsUG +nNIiQ6b+McLDAotiJ8r+gsz7xzc+WMbC1QoJNT3xO0FcyJ+73ZGFrvRrt00U +rKFg68mwsT0sVO0bLDm9xBq0TiZtTXVhIXT18b3/agU7xjjtXZ4s3MrPE9nD +sYLYjskZL38WJo3Ze4uiFfzKjzAOi2KhNbN1hb2XJXQbpr4pKmFhWcZjRmqN +OfgcK7hiUcbC1x59ryfzzWGq7C57hMPC3k9znocTzEGE2TWtWcHC9MAz7aUO +5mAlKC9XW8fCSFfVn/jDDGreFu17087C77ybwx+rm4GlcKV6cBcLlat+mWSL +m0GXWdOUVA8L49qUGhLnTWGi+t94tw8svKQhk1j60hTU8zbc+jrMwnbM2TkX +YAo13VuCz31jIfvmx5JYR1OwFNsFGmMsvKxkoqKCprA/7tjroEkWLh1j6N9a +TbVXF5sl+YuKf1vqjeRZE4iezfCqnmXhRLnYj4QBE1ilc0PNdZ6FAW4PeS41 +m0DOwerJhQUW7pOtbKi9awL/A95tNIE= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07278440066618834}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07278440066618834}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VFscAHCRSKWyrzN3hlBIlsgy/X4pu+qRpezSZElaCFFZypaSZ4kU +IaSImVsJUUKLEqUsESo9yZMoS8jzbn/dz/dz555zfuf8zu+cYew9ZMvm5eHh +IRbx8Px5TvU1NSomFmw+taQcR0aNN7/NkTq+pSsa+JYZZtHcGIDirXululIg +52PS9SlXTQj+62YnX1c+GBX5sHtct8DqUcmUmU4SFr92yOO42kB/zY5DE531 +cIVn4q6SqyeYKg73jne2wQfe0UcrnY/ATKde+ljnJxB8sqPqgW0UNGy9XvA6 +/yd45r/s7Rj8G+T6qwb3qs1D+qbqaC3MAjF/95sCW/nQwzj8ae2SPEjRNL2/ +w14QRbbHPhSZK4B3mRvqxletwAtEY+mIczEkFkS08kqvxu2dKq7ueSUgmTaQ +kJotivdeH6909SkDKdW7Z34ViWJg56/s/iNlIFMfG+HKEcV16X7SzuFlQBtb +e0y5QRT9D3u93JxUBmusD3vcHxJFZvhbwarbZaC9eF53QFsM4wScW0Lmy2Bn +kMRnrediyGxuFZY8Vw5xdhab26bEUb95+4s3lhyQudMiw7tIAnkDNrlI7eRA +majdtOYyCSxgbOLfs4sDHW1unL/pErjtW092izMHFG2CmDbmEsiX3dp31p8D +9duvLnl1SQJXdJttNzvPgXnTyZaXRpIoaipy5eULDiQXhZXMm0qiS+/1mLRW +6vslPPHqNpL4+B+fk45vOGD9WGjLebYkpvtdvPi6mwNZW4nb1kmSOK8o5nfx +Kwc2oVXGi35J3FilH7B3CRcC9fPcm6KlsHDOaYGXxQXLXOEJq3NSqHdXqUQU +ucAUOBHfki6FvatPDxBbufDqrQP3TbEUmjR3z2yw4ML6w8v5+lqkMHPRoxpl +ey4MFYUU/ZCRRsbstyuH/LngIrbjm+xtaeTjy1vhm8kF7fD7UTk10vjFOtpx +2WUuCH1SkWA8kUYdx1MaN7O5UFXOB0rvpPGchPHZ3nwuSFhVJW9YkEZPj/RR +mVtU/1GKOiZWMiid9iVlrI4L277PhgUMyOCdqPFYwUEuHDdPW/doRAZ/7yLb +NIe4UJan3i06JYML0ZlvHYe5IGXnoV8lKIsmrc/nLo1yYaTy8TTfelnkja3o +m5riQmp0ctClUFmUjN6lKSpAwrOetYojUbJ4MdLwP4GlJPzWaXizOVEWvc8m +x8wIkbD/y6TW52xZlLO529gmTIKBtfP4+gZZ/DgTt8JNgoRP4koBjSvksKHA +Y3WXIgmShx7KS0rKYctB2ZJMJRKsn+1+6UvI4aBvxGIHFRIqwhLVVmrLYd2/ +5PQTVRLO9o8N79kth9C4bDhKiwStG/e9v+fL4dCS0l0uQEKUkY2nzCZ5BFgs +VuRAgrlbzg89Y3kMXHf0stxuEoQj/z1tby2Pm3mK3S7sIeFKQ0xRsoc86hV3 +ZPm6kFBpWf3vkgR5ZAsGzo15kjC2WyH45zt5PJPE+tfKn4R7YYcFVn+WRx8a +hsUeJOHUldrM9aPy6G29bWdtAAnLPzje9+WlYdTPpS30IyQoe5/j+bCOhjPN +nZqVx0hwOzZ5tjmchp3Mxg16p0hYk2EsNxxDQ/OBb4G6ESQ1/xduCSTTkE/n +tKBWJAlhv9e+Mi6g4fLcnyq0aBLST7uJVzXTcIf9FpfnMSS4FJYUdXTQUJgl +jqWxJDCf/tKb+EDDtrOh4WfjSOAIpTppTNLw0TOx34YJJDT//fRqoTwdH3Cn +DALPkZB6W0yzQZmO1xuTx/XOk+DU7ln/QZOOE9pKS2YoD0n9/ixrSsdBTLI+ +fIEEvtwN61IC6GjgmcPWTiHh+aOT98tD6Sj9yUGhh3LywHPrl9F07AmpNYlI +JYGmzD4kmEHH/h+8NTVpVD6UXbpz6iEdv/53K3Z5BgnbOlvmR5/Rsf1Wn00S +5R08i83c2+i4MX/DwvJMErxsA97BP3Tkp8nzLbpEQkD4NSZnlI4MQTXnYMqh +BV0HiF90FPu9LXOIsmk4IyKSn8AbSbGNDVkkvFhZc22TEIEyY2vvql0m4a8C +h2djwgSKfWg+n0LZ+WXiak8pAiPzV87aXSHhMH3q2hZVAh8rFb+5k03C5O3k +ZzMaBNoPeUrz51DrYa76jatDoNmC6nZbyjFHPHSZmwn8aCcYPUBZaMmcU7cx +gfxixWeUr1LzkZUekWJGYIxKYKgP5ayG5894bQjc/bBM9yNl+m72t2p7AgU/ +kLzSuSQUjCysDnQi8N3fSxu2U14XlaWr6k6gQMKp0AjK5eIbnQe8CFxs2KdQ +RlnnZmvEZR8CB3onH7+jXL3Zr2DXQQJzvVPdefNIgDeLm5YdJbDufMy4MuVG +76vfGoIJbG+8fMKSssVvfZET4QT2Q9EiP8otyW91dSIJrPp+LCqWst2aQ84j +ZwgsiH7/+yrld1VLIwsSqPa8SoMqKLvtKChwSSLwWHXl1ybKnz9tbhJLJXDM +t92lm7JvyLtvzRkEXlvV2fKF8uiyIJGYKwRmC6TiD8qBucJ6rDwCFfb2kzOU +f+nccJ4sJFD8W4rSf5RPNW2NvHWTwAPrY64sUOZz6ytglxOYti9J/M/7+B+h +TfJ3CFwRG5fy53vhONHR9koCa9BS7E/7qbJlIkm1BPrNcC7/6V+KY65nWk/g +zhcX1/4ZX/a2Aef/nhC4J67zwZ/xM9+djKx4QWDr7Z0uf+IrPihVGPCKwJzE +97y5lNV5bzcptRM4Mu98+8/8kBe3j/a9I/DkrdKAP/O3SXVIJKOPQNrYrY1W +lGsfRuvtHCDQoAWWrqVsbCfvIjBEoCTv1mE+yk+H7kU+HCEwcDrzXQ+1ftYn +bQtDxgmceq7QxaHsWBQ3+mWWwNnvXktsKb83YIrmLhAoO/xBj0Z5b2uN3u7F +DEwQYZ74QuWT/6/xyGcrGHjhQRweoWxwZL/EoAgDRdQfW6lRFhzuLuGTYmAV +d2H4T74W9jR0bGYycP7Y8mFzykF2m/xdlBm4DDWtp6j8N35ZuihMjYFO2r9M +cyn3PUhXu6vLQKiVXTZM7ZdSPaH6NkMGrlVv60igHMY55TiGDEwM6QMlyhL5 +3tGqVlT7hhWjdtR+2xmj35XnzkDViYYPCdR+pf136+DDfQyssztTKUx5JJjJ +1+tLxTOhppdM7f94n2XrpYIYOPZx1foEqj7UWfWeTopn4GCGheKudBKSGm2k +S88zsHL8gH0tVV9cWE/KmlIYeKUP9RQpz6wvf7c4m4FDndOrh6j6pCUSpRHO +pfpXiTA1TyaBJ3GyMbOCgSn84kQmVd9a+PycKu4zUHyx253PSSQcmLSNGX/M +wP1saZEgqh4WdCn2eHczMNXmzeMDZ6n4rj6LteNjYvf8J/W601T+S7Lkjgoy +kRjfaP2eqtdkMpd7YQUT40e69CejqPijs94/l2Ti20s28fJUfY9n+2ttUWNi +f5GQpPkJaryqq/rU7ZnowjO9ZkkQCVPZMlHaTkw8lpE2NXGUhImVaxT13Zk4 +zV/+7AN1voz+1Pfb5svE+f8ig8sPUefrfa8pp5NMFGE0y609QNVnq3vC8YVM +TDlD3kuizrOntY+4528yMXB2xnCHB1UPNJrtUsuZKKR8rUPInYQHoh+zcqqY +uKLe1y6cOg/JHiHluy+ZGHpdNEPfkapfB9zg0yQTOw+tY6tZk5DR6/PpyywT +2dPCY7WWJKTtDIz5tsBEfpeOImsLan2041/8WqqAacrR2Z6mJETPcR1X0hRQ +o+Jyuy9S85vIf9jIVAGvXBUunNAmwaikNPfiRQVsbdY6NS9FQg9RctXksgI+ +2f100F6Syq+LN3ImripgeJoVT6k4dR5HFV2xvUH9HhstbUSo9d2dmylco4Cx +18ZdI5eRsJY/LTn2owLyL98QfWSeuj+5h0cGqyniZ+Hq2ev9XBgXsfRwqFfE +8G383sXUfavLn/nK76kiznU13DWl7mN1T2YholkR6a+1r3+i7mvJYSX04g5F +PNruGyqaxoUNn5b3zwwrojx9Gc+es1wI4La6ZouuQU+ef/mOBXNheKe98+d9 +a9Dvp8fXOWsufD7n4XBUQAmdO+9p5/zkgMX3EIt/dJVx+nxshvUmDox4CQbe +iVDBraE6D+8Ul1H/HyR54+rXYtulN3nf60tB5KVSEuf7OqwVpwfC4E2Qiy// +S1dXDV+O79+V3lYMmar6q0S91THuVepjj94ieC6zZePPv9fjpac3LZUmC8BA +rj5Zo0MDU6UWCR4azQdhvvwgz+gN6GejsjxBJg9oUXSjPUqa+IqjUfvZPweW +rnGpsH2qiVOaGYsOf8uC9Szp8hBXLfzqsN2890MGHO0TabDk0UbOcU/drtdp +8P3nOXuLTG1MXXrxlrtOCphpPMmyUNfBv841ua6puQAPfhrOTbfo4Kns5PCm +tYkQoKbV/Zq9EVcsGCfaOsUBa3Tf2z1LdXE+9dCZIe5pMFGU2r4iXxcPhPpP ++ZCRoBJ5NrReTw99FvqrBDafgHVs/YdruvXwjngo/6P9IcB+4HPmzpFNOHZW +N5cZEwgPc9/uGxfXx64Zbp9Q/yGYKF6Y1rinj4niolptP3xh0ME0N6FKHzW9 +Asry+3yha/F584H7+iga45YV+dwX7nvIXLpYp4+sRcGF+/J9IVpqo8F8kz4G +TGk8a7b1hVXxfieev9fHYds5Y8kKH1Dzbudh8xpQ98egM+xYb/BaU7I0a7sB +NtUwhw9bsyHssZuf0l8G6OjkpTyjz4ZktsgL0tYAswWbDS4os6Gm8Pi5F44G +yFJya/jMywYxJfOV854GKHtdJkSneh88UfpHzCPYAF3J6zvcVffBOhU6oXTV +AJdPZJ28KekF4+tSdckxA/zdfYbmJuEJXc1oIvrTAKcDitUIQU+oCxjdFTRp +gJZqp9NHZjwgibQ4ojtrgKT7KveCXg9YZ8BTWs1niLU/BpUvFHrAXouDjAYJ +Q1Q/2GpprecBb73Nlr81MkSdnEqj4EY3qCyY+zgZb4ie+qYHLW44g+7WoGnL +REMcyD0wL5biDHc/jizPPW+IdhUHSsbDnIGk9elZphhizNRxvT5rZyjNrDuf +c9kQp1dqjEaPO0HuuRh9szJDjJ//3jHOcoKEoJV/Z74xRPMN10/QBnaD0zYF +NKQZ4ek+P+N4FweYfyso3EAYYe3EXN5NMwfIZY/2WCoY4QOVfujTcoDB2KoQ +JxUjTNoiKHB8qQMcbdpZflzLCP2mmSHh9+zh7I4TtEpTIxRYm5x6Q8Ieqne3 +/9Y5ZIT393Ay9nzcBbIH46rW1xmh0Grm1ZRCG0ha2L8xsd4IBxWfxr9ItwHe +FFPul0YjTLQwE1gdawPDFfw3cpuMcMea97mP9ttANc+ZTJE3Ruik5r6nUsUG +nNIiQ6b+McLDAotiJ8r+gsz7xzc+WMbC1QoJNT3xO0FcyJ+73ZGFrvRrt00U +rKFg68mwsT0sVO0bLDm9xBq0TiZtTXVhIXT18b3/agU7xjjtXZ4s3MrPE9nD +sYLYjskZL38WJo3Ze4uiFfzKjzAOi2KhNbN1hb2XJXQbpr4pKmFhWcZjRmqN +OfgcK7hiUcbC1x59ryfzzWGq7C57hMPC3k9znocTzEGE2TWtWcHC9MAz7aUO +5mAlKC9XW8fCSFfVn/jDDGreFu17087C77ybwx+rm4GlcKV6cBcLlat+mWSL +m0GXWdOUVA8L49qUGhLnTWGi+t94tw8svKQhk1j60hTU8zbc+jrMwnbM2TkX +YAo13VuCz31jIfvmx5JYR1OwFNsFGmMsvKxkoqKCprA/7tjroEkWLh1j6N9a +TbVXF5sl+YuKf1vqjeRZE4iezfCqnmXhRLnYj4QBE1ilc0PNdZ6FAW4PeS41 +m0DOwerJhQUW7pOtbKi9awL/A95tNIE= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07278440066618834}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07278440066618834}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994258219823707*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"a1002bad-ab83-45a1-b5e8-a391439877e4"] }, Open ]], Cell[CellGroupData[{ @@ -7742,18 +8666,75 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], - RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ -UUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[100]:=",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"d7dfab56-fefd-0149-8a26-6ee16f94ab37"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8082382366381676`*^-149\\\", \ +RowBox[{\\\"192330073695578600598678251250730514595\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"82\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1532417980825600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 17, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942582199983253`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"00a7fe6a-0213-4406-b2a1-64458427d58a"], -Cell[BoxData["15.784298544249623`"], "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.447436606422428`*^-152\\\", \ +RowBox[{\\\"692388265304082962155241704502629852543\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"85\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6704730972160000000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 18, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258220010624*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"0a7c7b8e-5fbb-49f3-b86b-1a5c9cc584fb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6410761026799953`*^-154\\\", \ +RowBox[{\\\"257637673519649270217965438245428568131\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"89\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8303947407360000000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 19, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258220022503*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"adb2e8b4-bf73-4d0b-8a25-3537b76af6b0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 100, 20, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99425822003137*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"49c0d2d0-5ad0-4889-8969-aede939646e0"], + +Cell[BoxData["10.431298355100633`"], "Output", + CellChangeTimes->{3.994258317145295*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"9595fac4-c42a-4290-bf9d-a61bd9c35603"] }, Open ]], Cell[CellGroupData[{ @@ -7820,27 +8801,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850595832054*^9, - 3.991850600247154*^9}},ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-\ -8e83e9537fdc"], + CellChangeTimes->{{3.991850595832054*^9, 3.991850600247154*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"56921c73-2b67-0e4a-9808-5f61de992c7e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.942853707471875`*^-207\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 21, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942583172210217`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"a46fdc36-a8ba-405e-8edb-81c55ccaba4c"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"8ae663ad-3729-254b-9ec7-7f5d00ef81af"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.221913270256083`*^-211\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 22, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942583172317677`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"3258ed88-8202-480a-bca7-3d3b4bb5c30b"], -Cell[BoxData["0.009432406283458074`"], "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.5123822889173505`*^-216\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 23, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258317241074*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"739a0149-1d3a-49ac-84dd-6a952c829e12"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 101, 24, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258317249254*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"c1da6c1e-45d2-4d3a-8d42-8d0d4fda6eef"], + +Cell[BoxData["0.46690708658018043`"], "Output", + CellChangeTimes->{3.994258329244199*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"b7080ca1-54c5-46c7-bf95-36995f41c000"] }, Open ]], Cell[CellGroupData[{ @@ -7861,8 +8890,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -7907,27 +8935,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850617546938*^9, - 3.991850621692934*^9}},ExpressionUUID->"ccaee6a3-c390-0444-bf16-\ -3471356a3614"], + CellChangeTimes->{{3.991850617546938*^9, 3.991850621692934*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"1795c3b9-0182-224c-b986-6414d6712c04"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.942853707471875`*^-207\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 25, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258329347163*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"df60207a-6b3f-41f3-bdc6-70a390c5d595"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"c3b31753-a67f-9b45-b822-068e1df11f68"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.221913270256083`*^-211\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 26, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258329358057*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"f9ac03b1-62f9-46eb-b71b-7bada15b83fa"], -Cell[BoxData["5.210321944589433`"], "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.5123822889173505`*^-216\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 27, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258329367057*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"08375b2a-6cfd-47f5-98b0-1c955439f41e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 102, 28, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258329375608*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"4aa27f90-5880-47c2-9e49-74f863c89942"], + +Cell[BoxData["30.70040026798689`"], "Output", + CellChangeTimes->{3.994258340475257*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"c19887e5-a366-4840-98c8-dd0dfcf0a78d"] }, Open ]], Cell[CellGroupData[{ @@ -7948,8 +9024,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -7994,27 +9069,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918506254460773`*^9, - 3.991850628958872*^9}},ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-\ -286954db37c5"], + CellChangeTimes->{{3.9918506254460773`*^9, 3.991850628958872*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"32db1bf6-ba11-cb4a-955a-52e174a44e5f"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.942853707471875`*^-207\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 29, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258340555629*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"91d13a5d-ba1b-4d5a-aaf1-86da60cd09c6"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"4e2b22f2-1724-7649-93fc-33cd27bb415e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.221913270256083`*^-211\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 30, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258340565341*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"5f91dac3-47b7-48e4-a00d-7a56cec4c464"], -Cell[BoxData["20.308521034293705`"], "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.5123822889173505`*^-216\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 31, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258340575472*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"5423bacb-554a-45e6-946c-7b4f39ed4818"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 103, 32, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942583405891123`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"0b44ae64-bc48-4aaa-b200-947fb85001f6"], + +Cell[BoxData["3.790306471348777`"], "Output", + CellChangeTimes->{3.994258349844447*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"1e06f1f6-5c27-4780-a6c5-b372bdd299a6"] }, Open ]], Cell[CellGroupData[{ @@ -8023,19 +9146,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918506775260105`*^9, - 3.9918506840946693`*^9}},ExpressionUUID->"7ec678fd-8398-414a-aeba-\ -20e078d734cd"], + CellChangeTimes->{{3.9918506775260105`*^9, 3.9918506840946693`*^9}}, + CellLabel-> + "In[104]:=",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], -Cell[BoxData["0.0009169614351270098`"], "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] +Cell[BoxData["0.043283391531946935`"], "Output", + CellChangeTimes->{3.994258349891984*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"b18e4a05-d521-4459-a8b9-910915fbdf56"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918506873951664`*^9, 3.991850690050791*^9}, - 3.9919245116307106`*^9},ExpressionUUID->"ca329276-48d7-8943-8408-\ -dd2997d3499c"], + 3.9919245116307106`*^9}, + CellLabel-> + "In[105]:=",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], Cell[CellGroupData[{ @@ -8056,10 +9183,14 @@ Cell[BoxData[ RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Il", "*", "Ih"}], - RowBox[{"Il", "+", "Ih"}]]}]}]], "Input",ExpressionUUID->"681c316f-cd82-\ -ae4b-824f-5eb2b3081f6d"], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[106]:=",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], -Cell[BoxData["5.744985073726742`"], "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +Cell[BoxData["5.053008978740305`"], "Output", + CellChangeTimes->{3.994258349914077*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"fd11e327-9796-4dae-a5f6-8e5aba3976d3"] }, Open ]], Cell[CellGroupData[{ @@ -8067,10 +9198,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ - FractionBox["Kb", "Qb2"]]}]], "Input",ExpressionUUID->"11e77a67-96b2-a645-\ -89cd-559587f30b91"], + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[107]:=",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], -Cell[BoxData["1.564995573098341`"], "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +Cell[BoxData["2.7102758538011495`"], "Output", + CellChangeTimes->{3.994258349927486*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"570f46f2-a44a-4fb8-8506-121a98afe985"] }, Open ]], Cell[CellGroupData[{ @@ -8078,10 +9213,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ - RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"3c5f43e9-\ -afc4-be40-8f37-0116656ecd38"], + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], -Cell[BoxData["8.990876207898397`"], "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +Cell[BoxData["13.695048224120255`"], "Output", + CellChangeTimes->{3.994258349942905*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"00609b80-6b90-4ab5-b087-756e1d6c7305"] }, Open ]], Cell[CellGroupData[{ @@ -8269,10 +9408,14 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"f07a8476-d7bc-1049-\ -82a6-7cf06f61e28f"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[109]:=",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], -Cell[BoxData["0.06921475857237179`"], "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +Cell[BoxData["0.007172669737603926`"], "Output", + CellChangeTimes->{3.994258349963081*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"a38a2e4b-dddf-4445-8a4a-3985a22d052e"] }, Open ]], Cell[CellGroupData[{ @@ -8284,18 +9427,14 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"b88b1a94-\ -22d7-2843-88e3-f607b95c8af9"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[110]:=",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"def6b331-c871-b04d-a16e-4fc00b03d009"], - -Cell[BoxData["3.36857007702114`"], "Output",ExpressionUUID->"332f8da7-4eec-ed47-b124-edf7e2bf43d7"] +Cell[BoxData["10.464163661557043`"], "Output", + CellChangeTimes->{3.994258350156865*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"6a79af6f-80b0-41ef-b179-b88c0f63b238"] }, Open ]], Cell[CellGroupData[{ @@ -8485,10 +9624,14 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"9d771aab-c0b4-f24c-\ -9b53-9472e00c4d82"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[111]:=",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], -Cell[BoxData["0.01179213875658184`"], "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +Cell[BoxData["0.07131318568853093`"], "Output", + CellChangeTimes->{3.994258350176424*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"65ceb40b-0517-4a72-b1bb-5e9137a4a025"] }, Open ]], Cell[CellGroupData[{ @@ -8500,18 +9643,14 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"47e2a8e8-\ -6af3-374f-9eea-9c2b6faaaf4a"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[112]:=",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"c6c8676e-4601-144e-b83c-769e22949175"], - -Cell[BoxData["8.161099076568318`"], "Output",ExpressionUUID->"bd9f2dfb-0880-624c-8a61-fa3104084faf"] +Cell[BoxData["3.3186390707354065`"], "Output", + CellChangeTimes->{3.9942583503727903`*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"28fc65e2-d458-40ef-bc53-0b81ff82048b"] }, Open ]], Cell[CellGroupData[{ @@ -8602,10 +9741,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-\ -6b0985b9b3bc"], + ")"}]}]}]], "Input", + CellLabel-> + "In[113]:=",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], -Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +Cell[BoxData["0.0485674311961468`"], "Output", + CellChangeTimes->{3.994258350388196*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"580f375a-ff4b-47b6-b4b8-466dde80580b"] }, Open ]], Cell[CellGroupData[{ @@ -8693,10 +9836,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-\ -4868d83e9702"], + ")"}]}]}]], "Input", + CellLabel-> + "In[114]:=",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], -Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +Cell[BoxData["0.9514325688038533`"], "Output", + CellChangeTimes->{3.994258350402979*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"2dbebb9e-ce3f-4d54-8f53-fcea8a91dd97"] }, Open ]], Cell[CellGroupData[{ @@ -8817,10 +9964,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", - "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"5caf1614-7e5c-\ -9940-98cd-9460e2c074b2"], + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[115]:=",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], -Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +Cell[BoxData["0.046208635823154355`"], "Output", + CellChangeTimes->{3.994258350418384*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"bf4644cf-cc1e-44da-8622-0056c92fd416"] }, Open ]], Cell[CellGroupData[{ @@ -8882,27 +10033,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991850710120125*^9},ExpressionUUID->"db0784f6-51d0-fd44-b0e8-\ -05d6af1a6e52"], + CellChangeTimes->{3.991850710120125*^9}, + CellLabel-> + "In[116]:=",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"7fd60dea-f794-4744-8801-bfb1a50a0e07"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.307255915092018`*^-208\\\", \ +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 116, + 33, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258350441695*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"78437cea-e2f8-4426-be18-f01a1e0741c2"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"0b8c0718-41d2-4542-8afe-212a15805650"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9136273708079945`*^-213\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 116, + 34, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258350452015*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"e1924c6d-95ad-43c5-ab56-1eef941f558d"], -Cell[BoxData["3.3685700770211437`"], "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.801264597106642`*^-218\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 116, + 35, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942583504619493`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"80921b42-5fc8-4801-b7b1-c8d5b2eae2c9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 116, 36, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258350470128*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"4e089440-e97c-4ee8-a63a-d5c547d63270"], + +Cell[BoxData["10.464163661557038`"], "Output", + CellChangeTimes->{3.9942583585020227`*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"00f24876-a4a3-442a-bcad-10cf83830edf"] }, Open ]], Cell[CellGroupData[{ @@ -8964,27 +10163,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918507152152424`*^9},ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-\ -f69c33a31448"], + CellChangeTimes->{3.9918507152152424`*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"b6f0ccc2-ff83-124b-a341-e143319c7670"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.307255915092018`*^-208\\\", \ +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 37, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258358554821*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"10caf02e-3747-4b8c-afdd-de20bebe440c"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"d4b50e17-5ee4-384c-b81f-c2a36a80320e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9136273708079945`*^-213\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 38, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942583585654507`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"7c505ecf-f95e-4920-b38e-260c501c28f4"], -Cell[BoxData["8.161099076568323`"], "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.801264597106642`*^-218\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 39, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258358575461*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"a91c91eb-b0ce-48e6-8332-c8e5df1f7b17"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 117, 40, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942583585835533`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"20034a6f-e6c2-48b8-8cb0-5b6a9f0c6a93"], + +Cell[BoxData["3.31863907073541`"], "Output", + CellChangeTimes->{3.994258366569769*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"dde30433-b16a-4bc4-8273-6e2b8b58708d"] }, Open ]], Cell[CellGroupData[{ @@ -9042,527 +10289,394 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918507183992805`*^9},ExpressionUUID->"611f92ea-b199-2643-9788-\ -194fae57c34e"], + CellChangeTimes->{3.9918507183992805`*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"7797a546-4085-124a-83da-5f3c472cdc4c"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"bf75ebeb-fc95-1d45-8487-ceed40ec633c"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"ca7472ca-7b27-a54a-84a1-e603fa592207"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"86b3b7d9-f0e9-0a4b-9079-b341ca597ab4"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.00529101 -0.551091 0.817918 [ -[.15608 .25433 -6 -9 ] -[.15608 .25433 6 0 ] -[.28836 .25433 -6 -9 ] -[.28836 .25433 6 0 ] -[.42063 .25433 -6 -9 ] -[.42063 .25433 6 0 ] -[.55291 .25433 -9 -9 ] -[.55291 .25433 9 0 ] -[.68519 .25433 -9 -9 ] -[.68519 .25433 9 0 ] -[.81746 .25433 -9 -9 ] -[.81746 .25433 9 0 ] -[.94974 .25433 -9 -9 ] -[.94974 .25433 9 0 ] -[.01131 .02145 -18 -4.5 ] -[.01131 .02145 0 4.5 ] -[.01131 .10324 -18 -4.5 ] -[.01131 .10324 0 4.5 ] -[.01131 .18504 -18 -4.5 ] -[.01131 .18504 0 4.5 ] -[.01131 .34862 -18 -4.5 ] -[.01131 .34862 0 4.5 ] -[.01131 .43041 -18 -4.5 ] -[.01131 .43041 0 4.5 ] -[.01131 .5122 -18 -4.5 ] -[.01131 .5122 0 4.5 ] -[.01131 .59399 -18 -4.5 ] -[.01131 .59399 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.15608 .26683 m -.15608 .27308 L -s -[(25)] .15608 .25433 0 1 Mshowa -.28836 .26683 m -.28836 .27308 L -s -[(50)] .28836 .25433 0 1 Mshowa -.42063 .26683 m -.42063 .27308 L -s -[(75)] .42063 .25433 0 1 Mshowa -.55291 .26683 m -.55291 .27308 L -s -[(100)] .55291 .25433 0 1 Mshowa -.68519 .26683 m -.68519 .27308 L -s -[(125)] .68519 .25433 0 1 Mshowa -.81746 .26683 m -.81746 .27308 L -s -[(150)] .81746 .25433 0 1 Mshowa -.94974 .26683 m -.94974 .27308 L -s -[(175)] .94974 .25433 0 1 Mshowa -.125 Mabswid -.05026 .26683 m -.05026 .27058 L -s -.07672 .26683 m -.07672 .27058 L -s -.10317 .26683 m -.10317 .27058 L -s -.12963 .26683 m -.12963 .27058 L -s -.18254 .26683 m -.18254 .27058 L -s -.20899 .26683 m -.20899 .27058 L -s -.23545 .26683 m -.23545 .27058 L -s -.2619 .26683 m -.2619 .27058 L -s -.31481 .26683 m -.31481 .27058 L -s -.34127 .26683 m -.34127 .27058 L -s -.36772 .26683 m -.36772 .27058 L -s -.39418 .26683 m -.39418 .27058 L -s -.44709 .26683 m -.44709 .27058 L -s -.47354 .26683 m -.47354 .27058 L -s -.5 .26683 m -.5 .27058 L -s -.52646 .26683 m -.52646 .27058 L -s -.57937 .26683 m -.57937 .27058 L -s -.60582 .26683 m -.60582 .27058 L -s -.63228 .26683 m -.63228 .27058 L -s -.65873 .26683 m -.65873 .27058 L -s -.71164 .26683 m -.71164 .27058 L -s -.7381 .26683 m -.7381 .27058 L -s -.76455 .26683 m -.76455 .27058 L -s -.79101 .26683 m -.79101 .27058 L -s -.84392 .26683 m -.84392 .27058 L -s -.87037 .26683 m -.87037 .27058 L -s -.89683 .26683 m -.89683 .27058 L -s -.92328 .26683 m -.92328 .27058 L -s -.97619 .26683 m -.97619 .27058 L -s -.25 Mabswid -0 .26683 m -1 .26683 L -s -.02381 .02145 m -.03006 .02145 L -s -[(0.7)] .01131 .02145 1 0 Mshowa -.02381 .10324 m -.03006 .10324 L -s -[(0.8)] .01131 .10324 1 0 Mshowa -.02381 .18504 m -.03006 .18504 L -s -[(0.9)] .01131 .18504 1 0 Mshowa -.02381 .34862 m -.03006 .34862 L -s -[(1.1)] .01131 .34862 1 0 Mshowa -.02381 .43041 m -.03006 .43041 L -s -[(1.2)] .01131 .43041 1 0 Mshowa -.02381 .5122 m -.03006 .5122 L -s -[(1.3)] .01131 .5122 1 0 Mshowa -.02381 .59399 m -.03006 .59399 L -s -[(1.4)] .01131 .59399 1 0 Mshowa -.125 Mabswid -.02381 .03781 m -.02756 .03781 L -s -.02381 .05417 m -.02756 .05417 L -s -.02381 .07053 m -.02756 .07053 L -s -.02381 .08689 m -.02756 .08689 L -s -.02381 .1196 m -.02756 .1196 L -s -.02381 .13596 m -.02756 .13596 L -s -.02381 .15232 m -.02756 .15232 L -s -.02381 .16868 m -.02756 .16868 L -s -.02381 .20139 m -.02756 .20139 L -s -.02381 .21775 m -.02756 .21775 L -s -.02381 .23411 m -.02756 .23411 L -s -.02381 .25047 m -.02756 .25047 L -s -.02381 .28319 m -.02756 .28319 L -s -.02381 .29954 m -.02756 .29954 L -s -.02381 .3159 m -.02756 .3159 L -s -.02381 .33226 m -.02756 .33226 L -s -.02381 .36498 m -.02756 .36498 L -s -.02381 .38134 m -.02756 .38134 L -s -.02381 .39769 m -.02756 .39769 L -s -.02381 .41405 m -.02756 .41405 L -s -.02381 .44677 m -.02756 .44677 L -s -.02381 .46313 m -.02756 .46313 L -s -.02381 .47949 m -.02756 .47949 L -s -.02381 .49584 m -.02756 .49584 L -s -.02381 .52856 m -.02756 .52856 L -s -.02381 .54492 m -.02756 .54492 L -s -.02381 .56128 m -.02756 .56128 L -s -.02381 .57764 m -.02756 .57764 L -s -.02381 .00509 m -.02756 .00509 L -s -.02381 .61035 m -.02756 .61035 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .60332 m -.02499 .60331 L -.02605 .6033 L -.02729 .60328 L -.02846 .60326 L -.03053 .60319 L -.03279 .60309 L -.03527 .60295 L -.0379 .60276 L -.04262 .60232 L -.04749 .60174 L -.05205 .60108 L -.06244 .59913 L -.07305 .59653 L -.08274 .59362 L -.10458 .58527 L -.14429 .56405 L -.18248 .53718 L -.22313 .50297 L -.26226 .46595 L -.30384 .4238 L -.34391 .38185 L -.38246 .3414 L -.42346 .29931 L -.46295 .26047 L -.50092 .22522 L -.54134 .19038 L -.58025 .1597 L -.62161 .13033 L -.66146 .10526 L -.69979 .08415 L -.74057 .06487 L -.77984 .04937 L -.81759 .03723 L -.85779 .02721 L -.87627 .0236 L -.89648 .02036 L -.91652 .01788 L -.92745 .01682 L -.93762 .01604 L -.9426 .01572 L -.94801 .01542 L -.95278 .0152 L -.95783 .01501 L -.96238 .01488 L -.96496 .01483 L -.96738 .01478 L -.9696 .01475 L -.97163 .01473 L -.97275 .01473 L -Mistroke -.97397 .01472 L -.97512 .01472 L -.97619 .01472 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJztXHd4VUUWj0leHiEQqkgnQKgh9GJAmiIlWUJvK0UIvUlVuiCudAGVIqgo -RXq3geIKKGB3daUIFoqCBRBcirTZe+beOe+elzl3XhJ2P/b79o93k5n5ze+c -OdPOlHtb9hzVv8+QnqMGpPWMazai57D+A9JGxjV9ZIQVFXFXWNhdP1i/CnFh -kdb/IiyMPOaKm+I4PKz/hbgljsPjP/N/afknAuTCfzIkn29nIN1JzmCuLKSH -yz8+MW/uPFGuXDlRvnx5MXDgQHHr5i0rFtIixbU/r4l69eqJ+Ph4cfLESb9D -OWjQILF0yVIZiubErINHFMTH2ALDZHax460dokWLFuLSvy6J69euS7IZ02eg -zLO/nRUxMTGS8MD+A0rm7vd2i+bNm3vLXAyPgm6ZERLQrFkz8cXnXzhljhAX -L1wUpUqVcixgx/3040/iyOEjMqSE3rxxU5QoUUKcP3eeFzoXHjkhvgQKvXH9 -hihSpIg0ZoST8b777hOHDx2WoVxO3NChQ8XyV5bLUDZ4RmIzmAaP7BCsgLS/ -/vKrqFq1qpPZfnbv3l288/Y7hPb9ve+LVq1a6WgnwyMagtWQ9vvvvhdJSUmE -tn///mLL5i2E1iqNKFOmjPjj4h82rc4cE+CRDeLroIDffv1Nq/eud3bJUG4n -bvjw4WLd2nWkDtIJGIMNq77R3qpClYD9+/aLTp06eQsYBQ8fxN9PWhE0v88/ -+5y0IugZEMrhxJ07ew5LoBRJSEgQVy5fkaEoTugjWKqmpLvs3LFTNG3aFGwu -uyN00Tmz54TldIiOHT0mWrduTQSOGjVKbN2y1VvgIBSYTAeE+fPmy1qGQWHI -kCHSpm5puXLlgsq0QvYTOsjYsWO9pfVDaamu4Skw6PVGm7c1DF89sT13NCC7 -I7KLAfkQIrsakJ0R2cOA7IDIXgZkW0T20dqmNQb7a9NbYv6BBkkpmHGIAdkc -OR8xIJsi5wgD8gHkHGVANkbOxwzIhogcq7VNfQyONzDVQ+REAzIJkY8bkLWx -xFMMyJrI+aQBWR2RTxmQVRE5XWubyhicqU1PhEc4BGcbJCVgxjkGZAVEzrWR -mXBD7OgoOR1ZQ6GoXbu2qFmzpmjUqJHYu2cvOzOVQ9nzbdmZ80jsaL+YNXOW -6Nixo8wGNEe/OSpLcOjgIX5uKYM6POvokDkPRcWBwDOnz8iQyrt40WIxZswY -x0qMIvFYuQtQEZPXoiY58BVO/3SaCF24YKGY9tQ0b6GlsPQLUajJp8nhmHvZ -S8tEhw4d0NygVIUKFcDstrkDPk4JFLMYxZh8nJyOWceNGyeio6NFyZIlRURE -BLgovK9THAUtQUEmX0eV55OPPxGJiYnSJYHJ/aUXXxKNGzcWf179k28+xbDW -XjDWmmoqOVxKbFi/gdRat27dUDG21opgKV8kbdbLH1IOQ7t27aTr7hYKTu/K -FSu9hRbGki4jnZXzh2Ids27csFE0adJEpgP+qy+/kmPKLz//wpu1IAp7hY5K -Ol8ol5MGFVa9enVZ2SARTMG2lAJow+WuETIw1t6NGqw0jKD5MOMqAzIvcq42 -IHMj5xoDMhaR6wzInCh9gwEZg5wbtbbJjkybtenRmL7FIMmPGbcakFHIud2A -jETO1wzICOR8w4AMR+SbRk4r6q1gs9zC/Dv5/DcQ7rFjcB2ZdvGgawh6lwdd -RXF/50FXkGk3D7qMoD3BBb+ESXuDk/7ApA946osI2meD7nZA4BcoUIwm4wXM -uN/OmAm/JtLJsnnTZpmldOnSolatWmLTxk1h2TUyz2PZDtgys7bDAv5Lv379 -RFpamnaz4xwW8SNHXOZcF8Xdpk0bsW3rNhnSjcxnUd7HKM/koah1/ocHPhQN -GzZkuX9D7k+QO1RH5Py586Jz586yiqpUqSKX+/nz5w9M3NIR+Rkr51OUYPJB -lISUlBSx4Dnpl4nfz/8uWrZsKX2SUydPaUvzM5bmc5RlckNUIz5x/ITcoBCu -CRosERsbC7WmlXcG5X1hrBlV60rent17RNu2bYleBQoUkH0BQjqH4DTK+wdp -eaFsyBz/4bioXLkyKR+4Xg8++CDbOn5CeV+SjuXte0TJegI/GLBWXYkaNWpA -S9Q5BadQxD/peKHzOGKdNGgLXbt2lenQ8l7b/pq2p55E8q+DR8ETmHSQHwWP -I+gQD/oBQYd50PcIOsKDvkXQUR50DEHHeNBRBH3Lg75B0HfB1jmCSd/z+Q8j -6AcepDpenz595OBgrU+tEDxj5NgL3cXByoEXmlLFihVxUIEtPBhQEpxG6oXx -Oc1DN9VUdvSALv7NEVn0sMgQOIuhTaIcdmuCkqts+EGOPHnyWI3WLtfMGTOx -5OaJzycHIVj7QMeEDgXOeUmjHJ9bjrKsVRq9VWEwmPz4ZNkJy5YtK7lguQ6D -mllWdiLLw1JZKxI1XYRHZXkVJ4e5HcIwD9OBNeE6YmLEvffeSywGm7vWkKL2 -qqXvMGnSJNGlSxdsh16YSGcYZPwP1RSnTJ4ipk+bTkrnRVsU+5uaQyxvQ7Rv -396xrqdQpRM4IJUqVRI/nvpRClj96mqRnJwcr2GMZE3mT2cykAQbE5ZLhbML -+DSwMXH1ylWskvT8oZkyA2r7WfNGGNWM4RtQNSfOas/SGbVokGLu03PlEZlb -PFgMLAehKpq4cKdkjtdIuqvlNapGcujgISkOQtk1NIWwUeTQ2MLnLUSZBfar -YJgK6EW9yVIsdej2gM2OFctXsHy6woVnQT+/hwHdumTnq7y6EweOLjT42bNm -Y9ezGqd4d9e7rur1u+Pkz+SkJzpxMFSCewahaA1/YFcmp6agqhJN0pThoC1Y -ziKJmzBhgtwt5YwZ5WGJ5xc/L7urqWLdJcqKLtk8rObWxaNiazhx0A1gHfLM -/GdQTZi7YH0SqNgod5z8OSskZXn34kjV6ZNTn5TdwK2dm/oerNNYjzo1LcWU -zWCiBKfYHQfbcmBLUwfRGQEcbhgnTXXqLlFWdMnmYTW3Lu46lVVa0wFd+P2C -VAZ2qdWcAecS3x6TDrAcjWBCSE1NreSdrMxsWqOqigb/BLpZoNpY6kA/zqWx -QWSIgpVN4bjZ8rtI3JrVa8SwYcOMdk5vLr9Yu2YtGb3efONNuX0Blxx007fP -u7CRt0HN9Lb1VtNj+q7lxH304UeiTp06LutGSS8WXFX4C54AWNvqFZW8k1Xd -mDYY1EwODqs6LDJIDgwOuTXWiQxRsLI2+E26Djlx4kS2BqI9zNW7d285cMMA -DN437NJYCwOdL+bzLmfkbdBQZ1ZGQ4/lQW0nLm/evPI41a2J0wJlqIomTk2O -pp0f1RDAm1m0cBGpNzdfwKXL41H7JmlKe2dviMTBUAxTJWfb7B7WANsql6Ic -W+W0RP4s6BLtYTW3Lrn4ylVd5NNPPhVTn5hKxMMeMOwvc5Whq3C/U+2u4sif -s+2W4GSBJNh/dYuDgRLOyDhxgSkit1PbTvmUTaK8ZavWAQsfNZG627FaTcfp -2X0ZtJS7Asp4KaxvD1nUMlQDZ6iZ+MXBrw+KwoULy11OmNDA6YU9emuiw94X -ahNhdkpVE3lh6Qu4sFHagn8NQzs3BAVPDj6Jrlu3rjxjfnnZy2CisChvBZSn -AiMnOGyOIy1WrVwFu7clPZh9GTCT2/LxRm31Jsy0iqGbN8QGUs3R6LNPP5PT -S6FCheT0Ak3YGiZVoWGjD2Y062dJgKd9/K9oKoaIi3BKqNsJdzcgmAXc9xDz -5csnd4HcJTTJyoONKp+TA84nkpOTpT39HpqofT/wyUACVBUMTtbSBY3o5ooK -zYhQJSDKVtV+whinFI5jqUM3bKgq+zJobJPu0XwT+xjr4awLFBE4bNQcDbpB -BzD/77yQ/Qi6wIP2IegiD/oAQX/woPcR9C8etBdBl3jQHgRdtkEF7SRZcOtx -F59Vdzz0/7jQ48Lx9O8OUei/FidLnv22/OexPr3jin3Hx0ViHPy1frrj5TtP -7f/J1pmUhbiAgMSMsMgcdfG/e3jldiHoOg96B0E3eNDbCLrpAknMTky6FZy0 -A5MET/0WBXnMVG9SZDiPfIMiI3jk6xQZySNfo0gfj9xOkVHBZtlG0/0801aK -zMYjt1CkhyO1mSI9DgM2UaRHL9hIkR7bSRsoMmewbdbT9FieaR1FeqxO1lJk -bh65hiLz8MjVFJmXR75Kkfl45CqKzM8jV1Lk3cFWXEHTC/BMyynSYzB5hSIL -2sgMX/tg3tWIlGsKReP3+xWD8y6eBPk0ar1M1Spkq6XWtOmP6tJdblSTo3Mt -TIZ0E+YyKqgwL0g5g+4rjaFKeYlKKcJLyRsi44uUsWgmGKVD8YKG+3bpyHJn -RtsgnqUcd7Gscy/huItj74DooF063MGEE3gnG4jS3eB9ntZeHPLqdncUb69e -veRuDrzhWbp0aR3vYspr7xnhOt29xldb7XAZBU4nihYtqr1rvIgy2jvWrjFp -IU0vHZy+gKbHu9KDJD1HkWV45LMUWZZHPkOR5XjkfIoszyPnUWQFHjmXIisG -2+Zpmp7AM82hyEo8cjZFJvLIWRRZmUfOpMgqPHIGRVblkdMpslqwbaZzfbBq -MHIah6zGS3+Ky1Odz/M3qnFNHvkkRdbikVMpsjaPfIIi6/DIKRR5b7C9JtP0 -JJ7pcYqsyyMnUWQ9G5l1L0LtjsIeuOU9uG7TRoiCBQvivRDd5fGJVCf7VD0j -LoQSfvXKVbnRP378eMwOr1l6CZ9AhdfnhevcCnXkAGeePXr0EH379lX3y8T2 -bdsBp92bGk+lNuClqjkFTjth+If5xrK9btk9jpI25EnV/Dp48GD5xqalssvT -GEN5GvE8akseXlKEq69uM7k1C2JsbGaEXWl4wfPc2XNaxsco4/08Y34nDq7+ -792zl20Ij1LGB7BnCI0Hoa7JQC+AO752yH7CVQJ1/UsnaDQV1AQF6VyKXK4G -Bjv3cGh0+dJlGYY7SSkpKVrPaBQVYr9JofUvcjuKwnXJtLQ0eewBkgYMGABX -H3TkIyl5U364GUGRzVxICRxO05vzTMMosgWPfIQik3nkUIpM4ZFDKPIvPHIw -RbbkkYMoMt1XNwbS9FY80wCKbM0j+1NkGx7ZjyI9vvnRlyLb8cg+FNmeR/am -yA7Btkmj6R2D03vR9E68pJ4U2ZlHPkyRHl8s6UGRf+WR3SnyIR7ZjSI9voLS -lSK7BdvmIU2edMig9C6U82Ee2Zkie9rI2+Vg+OXU/8SUJ2QS3LCCE1841jxz -+ox2IOxE9XG+9JJh58IvX1vY98E+nN7hxj7c0E9KStIK7kgFp/GCdY6FWuHV -r18f77HqJpMOVEpvXoqaWeFeSrFixeRbBbqZtT1l7MMz5nEMBo4P3LeAOzi7 -39sdcCTaUqq+ZiqodLg32aBBA5jmAlStKVV/cznhit6S55cQC7vLGcQ4wMwI -Dh04eBxjK8o4EJu+0HgQyi2B90VGjx7NkqZS0kFI6uUtgBnhxgp8ZQyI4AYM -fIPFCmvbaksqZLAthPcWfPKGU2pqqrylAJcZl7+yXHsUlEKZh/IDRzJFuj9q -JIEtaPownqk5RQ7nkc0o0uPzSA+iHjI8kkc2oZyjeeQDFPkoj2xMpbs/uSRj -G1GmsTxTA8o0jkfWp5wTeOR9FOnxcaa6FPk4j0yiyMk8sg4tkfszTjK2NmWa -Gpxek+b3+LhTDcrk8XGnapRzGo+sQpEzeGQiRc7ikQkU6fHBpwoUOTfYNuVp -iefzTGUp8lkeGU9lPmcjs+4gqOtbMMAqGnglH/5u3LBRN7aWoqo4XzzKgG+g -RjznsrsM6QSVgGfg60eLeUE6X0Btb8AKu3jx4vJ+V7hzywtKCNLXr1uvlVyM -FnEpL1m97QNrZPX6f3iI5StMy/ciL0V9mgfmE7jL6zDI0kQjSwHK97KZD+Yj -WOHr+fJRvhU8n9pugWMv+O6Tw6Wb2iTUh6Svmknh9jC8AetBKg95o5B0HfYO -ofEh1DYOvGgNn3DCQruuoDi/HEi5CSl1HoSihI8jOO9F2JTRSPC6TaDzDpSn -NHLkSBEXFydD7AeX7uhv75rS5f+34cvEYXf9GwRZrOc=\ -\>", "ImageResolution" -> 96., "LightDark" -> \ -"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-14.857966328747292, \ -0.654633287374793, 0.6941460339291473, \ -0.0044903445173959475}},ExpressionUUID->"f3c0c3aa-fd64-8e41-bc0a-\ -ae36b33a37ec"], - -Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"23cfff6f-2c67-ce46-9cc6-\ -49e8ffb5e8c8"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk4Vd33AHCZmhDJnBKuMqZriAx7CYmQhFDEdc9RMoX8hChTkzmiNyFK +EpUQ4vVNvCUUSSllHrrm6SAq/bY/znOez7Ofs85ae+21dzB8rAl2NjY2Fn5W +32ffq+wsb32vP3xPaNPHMBbSn7ynwTAqRHyBt7RX3ZulmSJrVI2MOaUrV23F +fMfNo/Yf4rV6EteOXRwUXsdl1IyuOBqUf8K++lr0ZXjBBwS0Lxod2JWtZzN/ +0z+hTc/813/FHu1sDD1f9QVpcGyhf8MWH5I5vmD4HcVLVD7pwj40Fart39yD +NFYYEb3YNb9HNwYV9KH3jwUKBrA/XxIJee49gOz2/Cf3A3uS22iUog8huWsX +fo5ic8f6OqgtDqODNfu2T2FvE7jTcLaKhUbafv8zh20psZA3aTiOfpUmJP3B +JrOlhZXXTSKeBBcejnAWCqcdjj7TPIV+MTS/r8P+ItK+J6BgBnkJzwQLYTMd +PU7fiJ1Fa7g/m27Fns5gu/vMew5FbnrpJYO9TlqZf4Y+j0RTc0vp2CnMOhN+ +oQWUInunYx+21AOH8N2LC2iWun3YEFtLKWbSq+onsox8qG+LfUqzp3nU8Dda +yuQSu4BNBZ3j3CD3B/mdVxi8jH2xaqOu/LoVFLFgw3kDOx20Hrk3/0VuAlWG +Bav53W8w8itYA/w+72q+Yxe8vtF7SYIdvrDtoI+u5vvDOTQpFrs4eHkRO1Rh +vuSpNwecKYdrWy7ifJ/skJmic4GNjVjeEezO1vGalVwu2N+TVeuKLTVb7sgn +xA0pUsp0P+xCdctk5UVu6BE7sTkFu74yeI1n1ToYM+Zr+YY9X/exh2XIA587 +OrRDLrHQZnMe/pAaHqgK+BOYjK3abgS82rygay8oWoDtMViWvUeFDz6E8cd0 +YvuyN6vq8fDDtJ6NAESw0JD045noBQG4MS09JBmJ94dsXN+ithlkop1ddbDZ +Hw3vED27GR63xho4YEupbbcuGNsM3TqvlG9iOxomPnvfKwg/zFPLtkSxUIub +n79IkxDs9uaKlI1moe4H8ddd1gmDmGSE/kHs8bGC3IfGwtAbRjl5Ym8IGPio +81IYGpSqGsqwjaJs1F3KRMBl42cLixgWenFPcz4/SwyqrfyEEy6z0L2h5cB9 +AZKw1D6Q43SNhQ7aXu72L5KEmmC9/GvY4/WCB4qGJYFdpZ6zAlv9npKQlMM2 +2JThUCd4He8nw7mES387+NUX2LVgz071/h8rUgquDoh+totjIUEvo9ISC2nY +Wdek/SCRhYbvbThl5SEN2d3atB7siu+tEhMx0rC+8Lu7SBILnTB3ipR7KQ3L +7rWzV7DvKQZa36LLQEk933bfZPz/0QfTYSKykC45/8EyhYVs3Dcqm/XRYE1D +b45FOguhQFv6sT80qCnioiVgK0Rn7WWKyUHGLc5frdhsuWr7w47IwVhOUo7t +LRYq6j5+7FmtHAy5T/cw/sHzaVd4STxnJ6B+ti1xGTg/I4vPowx5OMQb4iZ1 +l4Vyj6Z9WwyTh9EoX1dP7HhGXy/nbXnwOWtaUoHNvHhubNtHeXAeyrO2zmEh +geo7bEcNFQCNiF68movPj9qkQpWMIqRe2n5zbR4LSUgnhF8fVAJemZmn+x+x +UPU1Sn6JXRk6Q1FUNvaJOYd2cocy9K+zerGCnVkvK7/fWRmGiErL6kIWknZ/ +0fazQxk+clSK6j7G9RYO0cgmFWB1NO6xLGYhSYltpJSDKvz5ohVSXc5CSvcD +eH4hOjAHUiJr/2MhBjNyXtmSDqnBb7epvsbzKpPc7XKCDulp4vxZ2Bw5T56+ +DqLDgxbB+Qtv8LxljtokF9MhQsmzAb3F92m6yx15GTVwEeJM/diM+3vdXMWe +Wx2CPxxs0Glnobt+slZlzRoQdTa2gG+QhVoD0d6o+9qQSZs8u7xhBO1w/mTp +5KkHB2cLYxz2jiDi7/PHkucBiIVrZvrkCBIZq1grwtgPhqy2C6JZIyhATfd7 +soIROCr/2vbu6whiTPxuEBw1Bp6TE3syRUdR0X7/tVktJnBJ75leHmMU3aM8 +agtTTCGMs/2DRtEo+mkg+q4+/BCINOqtzHOMoS42jpk+VwvQN/J6x3dyDHlv +9Um8JHMYdg3qzOpUjqHHpxtepkZbwSvbxrksqXEUPCe2qHj6CDAanTlRzDia +Nztg9+akNXxqqyusXxpH2seTDIaOHAWl6Zit/r4TqE3sjke9mg3IOfc8uD8w +gcTzIqvzd9nCqKCJKo2YRBW9CuaWvHYQ2al4XqB/Em1rn3YPnLADEdr/ApdO +TiG11KTC3N5jsP/vyq2VsSl0h3NOJbnOHl7lOJ+q0JpGzw12d0ZXOgDba77t +ByKmUfreawK/CxyhK+G3rFfTNGr5dj9GLfY48GSxvPbwz6AyiwxZ34snoH+Q +YfLHcQbNeB1l82Y6gYjeZHh+9gyaPyB/atLQGW7oSkT4D86g/ImvP/01T8Ja +IctLXMqzyP7ufTcnHhe4pr6409VnFpU8O3SS47ILaIe1/8+hbBZpS7QtXV1y +gV15qh4u1CyS6XXv/HDaFc6KveiK3z2HBjeeOZwx4AqFXJt+2XrOodZ4SzcT +WwYcrmO9Z96dQylBWRvPtTLguN0aE+bnOVRd83fJzdQN6G9SphlcFNp0Ai6r +vXCDuH871a2VKCS15U3L1mo3CMx2FZ/GVm22EOWucYO293uy45QpZK17/OGX +WjcoaTWOfaNCoZStgU0X3rpBSC4xoLmHQuJdjzY1fHEDQn05kEOTQrLOIukn +Ft3gctHEpaOIQtouk/nR6kx4ub6o4a0VhfJuTftbajIBll7LHThCoS0fZ/VF +tJig/V1O6RX2pPFie74OE/hNfZQqrSl8f7Gtad7PhOuDsmtybSjEtyjgsPkI +E2bnHMcIewoNxmmsz/JigjlN2iT/JIXiq0JPV+QxYf2rOELCi0Je9DTtoHwm +2Lzt4w3HNn9YvF6rgAltTUMn+rE3pA0/LC9iQqpX/eQDbwpF+1mNPi9lQmaA +Ra+KL4VC5WXPlL1iQkkdTCr6U8gjrcnzWTcT9P1qbPuDKGTKN6zr18sEf1N6 +5b7zFNoVzcZL72fC7tKc2mTsYT+NouIhJqhvOVBrEEwhV8usiafjTCjyUgu+ +HUIhey5/7yfLTGC4l73RC6OQib+4b6EwAeHd9qF6kRR6lRVjlixKQNW3ubFE +bN3mWdkgcQI0dfImB7BVaU1fDbcReN5Fiq5EUUisI8TwG42AHbtyed5FU2hs +X5fwBg0C/lrRzQyuUCiBPftf96MEOJjUunbE4vp386Rb2BJg92FKTDKOQlHH +g/zUjhGQo5ngxsAOKrXa+deRAOO06YIxbFdyTdJNBgG7B2fWLcVTSK2Rwfzv +LAHjb94triRSqCOJtlEmkYB9XLVHy1Mo9BjxnmIlEfCGqeQ5hh01QdUX3SAg +mI8msz2VQnTT+jCtNAJkJjI9o7Hj2dxmLTJxfi+/e1rcpNABn+yvQYUEaHVP +STSlUUhS8oqm/mMCDlrmiC1hU40+NzieEiBvf6ZMLp1COXLIIr6EgJI42puL +2H+6ul7mvsD1cYVaq96iUKm5RP77BgKEHk6wX/iHQteX2blSGnG+gqPd97AZ ++aOuDs0EtAql2jdj83O+kBhsIUBxpFtW/DaFPKvsE5Y+E2CvcEeqGFtG4Wag +7BABekMtWc0ZFFruuPBxZJiAR4pcNpPYrdGE6hMWAZmdCfc33aFQWJ/6qPY4 +AaW7k6SOYHemf3Q6PIfrV6w814KdvFbAOHgNCdryIemVmRSqnu06HsBBgkn+ +nPkX7B9dBX7eXCRszZWIWcDWLTXKZqwnQZ7mFrMnC583l6BfZgIkNMlp1NzF +5jc33mwsSEJWYVxaNbbO3s3ySIgEcfCY/4ydyFtopyZGQmrqbf0N2Xj9RU+x +xA4SRAzsuc9gk/cLG4RkSODuMOWIwE5MPN+ziUbC+h+3otKxh0lBXk55ElxP +G22pX10XNDk1rkpC0msrd6G7FHqxIhg+TCfBwb4uZhf20Ehvaq86CbQnAQo6 +2PteBte1a5HAkRi94ow96Pl4279AQkUE+9dsbD77EI3y/SS0/+IRf4qtbXjQ +vNgI10Pq9tRgx4v1n79/kIS9P1bmO7ErOJ8kZpmR8DMn1oSFPTAV8uCWOQkH +MtQl57G1Xgt9irMioe3mWxveHNzv4v6xy9YklC4XPxfFjst4wh5hQ8Jp10cZ +Mtj9fqaqgfYkqLC9pfZi8zoLm/g6klB8bIQ0wNYyHXDyOEHC1PRmJ7PV77df +uO7sQsJJxZBPjtgVG8xy7BkksPKfH2OsxpsXrrRmkjAvNe90ejVe30CLOUnC +W10Nls9qvOanwwdOkWDw77mFc6v5lV/4Ax4k9AeXXQlZjZ9jtkXHk4R3xFzm +xdX4cSKKGt7Y0Sra0avxgwYNdvuScHCZOHYVm4dZbC/vR4LFcvpSLPbew2E+ +MgEkXGt/vT1xNf6+QzGSgSQcmZp8m4wdSxO9IxKE97eB/2cK9nP+oRKBYNzv +BcWCm9h9v4obN4bifshCb9pq/B9hfVxhJPSJWfyTjq3Zdujn33ASyoutv6z6 +/wEqNgPb + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4Vd33AHCZmhDJnBKuMqZriAx7CYmQhFDEdc9RMoX8hChTkzmiNyFK +EpUQ4vVNvCUUSSllHrrm6SAq/bY/znOez7Ofs85ae+21dzB8rAl2NjY2Fn5W +32ffq+wsb32vP3xPaNPHMBbSn7ynwTAqRHyBt7RX3ZulmSJrVI2MOaUrV23F +fMfNo/Yf4rV6EteOXRwUXsdl1IyuOBqUf8K++lr0ZXjBBwS0Lxod2JWtZzN/ +0z+hTc/813/FHu1sDD1f9QVpcGyhf8MWH5I5vmD4HcVLVD7pwj40Fart39yD +NFYYEb3YNb9HNwYV9KH3jwUKBrA/XxIJee49gOz2/Cf3A3uS22iUog8huWsX +fo5ic8f6OqgtDqODNfu2T2FvE7jTcLaKhUbafv8zh20psZA3aTiOfpUmJP3B +JrOlhZXXTSKeBBcejnAWCqcdjj7TPIV+MTS/r8P+ItK+J6BgBnkJzwQLYTMd +PU7fiJ1Fa7g/m27Fns5gu/vMew5FbnrpJYO9TlqZf4Y+j0RTc0vp2CnMOhN+ +oQWUInunYx+21AOH8N2LC2iWun3YEFtLKWbSq+onsox8qG+LfUqzp3nU8Dda +yuQSu4BNBZ3j3CD3B/mdVxi8jH2xaqOu/LoVFLFgw3kDOx20Hrk3/0VuAlWG +Bav53W8w8itYA/w+72q+Yxe8vtF7SYIdvrDtoI+u5vvDOTQpFrs4eHkRO1Rh +vuSpNwecKYdrWy7ifJ/skJmic4GNjVjeEezO1vGalVwu2N+TVeuKLTVb7sgn +xA0pUsp0P+xCdctk5UVu6BE7sTkFu74yeI1n1ToYM+Zr+YY9X/exh2XIA587 +OrRDLrHQZnMe/pAaHqgK+BOYjK3abgS82rygay8oWoDtMViWvUeFDz6E8cd0 +YvuyN6vq8fDDtJ6NAESw0JD045noBQG4MS09JBmJ94dsXN+ithlkop1ddbDZ +Hw3vED27GR63xho4YEupbbcuGNsM3TqvlG9iOxomPnvfKwg/zFPLtkSxUIub +n79IkxDs9uaKlI1moe4H8ddd1gmDmGSE/kHs8bGC3IfGwtAbRjl5Ym8IGPio +81IYGpSqGsqwjaJs1F3KRMBl42cLixgWenFPcz4/SwyqrfyEEy6z0L2h5cB9 +AZKw1D6Q43SNhQ7aXu72L5KEmmC9/GvY4/WCB4qGJYFdpZ6zAlv9npKQlMM2 +2JThUCd4He8nw7mES387+NUX2LVgz071/h8rUgquDoh+totjIUEvo9ISC2nY +Wdek/SCRhYbvbThl5SEN2d3atB7siu+tEhMx0rC+8Lu7SBILnTB3ipR7KQ3L +7rWzV7DvKQZa36LLQEk933bfZPz/0QfTYSKykC45/8EyhYVs3Dcqm/XRYE1D +b45FOguhQFv6sT80qCnioiVgK0Rn7WWKyUHGLc5frdhsuWr7w47IwVhOUo7t +LRYq6j5+7FmtHAy5T/cw/sHzaVd4STxnJ6B+ti1xGTg/I4vPowx5OMQb4iZ1 +l4Vyj6Z9WwyTh9EoX1dP7HhGXy/nbXnwOWtaUoHNvHhubNtHeXAeyrO2zmEh +geo7bEcNFQCNiF68movPj9qkQpWMIqRe2n5zbR4LSUgnhF8fVAJemZmn+x+x +UPU1Sn6JXRk6Q1FUNvaJOYd2cocy9K+zerGCnVkvK7/fWRmGiErL6kIWknZ/ +0fazQxk+clSK6j7G9RYO0cgmFWB1NO6xLGYhSYltpJSDKvz5ohVSXc5CSvcD +eH4hOjAHUiJr/2MhBjNyXtmSDqnBb7epvsbzKpPc7XKCDulp4vxZ2Bw5T56+ +DqLDgxbB+Qtv8LxljtokF9MhQsmzAb3F92m6yx15GTVwEeJM/diM+3vdXMWe +Wx2CPxxs0Glnobt+slZlzRoQdTa2gG+QhVoD0d6o+9qQSZs8u7xhBO1w/mTp +5KkHB2cLYxz2jiDi7/PHkucBiIVrZvrkCBIZq1grwtgPhqy2C6JZIyhATfd7 +soIROCr/2vbu6whiTPxuEBw1Bp6TE3syRUdR0X7/tVktJnBJ75leHmMU3aM8 +agtTTCGMs/2DRtEo+mkg+q4+/BCINOqtzHOMoS42jpk+VwvQN/J6x3dyDHlv +9Um8JHMYdg3qzOpUjqHHpxtepkZbwSvbxrksqXEUPCe2qHj6CDAanTlRzDia +Nztg9+akNXxqqyusXxpH2seTDIaOHAWl6Zit/r4TqE3sjke9mg3IOfc8uD8w +gcTzIqvzd9nCqKCJKo2YRBW9CuaWvHYQ2al4XqB/Em1rn3YPnLADEdr/ApdO +TiG11KTC3N5jsP/vyq2VsSl0h3NOJbnOHl7lOJ+q0JpGzw12d0ZXOgDba77t +ByKmUfreawK/CxyhK+G3rFfTNGr5dj9GLfY48GSxvPbwz6AyiwxZ34snoH+Q +YfLHcQbNeB1l82Y6gYjeZHh+9gyaPyB/atLQGW7oSkT4D86g/ImvP/01T8Ja +IctLXMqzyP7ufTcnHhe4pr6409VnFpU8O3SS47ILaIe1/8+hbBZpS7QtXV1y +gV15qh4u1CyS6XXv/HDaFc6KveiK3z2HBjeeOZwx4AqFXJt+2XrOodZ4SzcT +WwYcrmO9Z96dQylBWRvPtTLguN0aE+bnOVRd83fJzdQN6G9SphlcFNp0Ai6r +vXCDuH871a2VKCS15U3L1mo3CMx2FZ/GVm22EOWucYO293uy45QpZK17/OGX +WjcoaTWOfaNCoZStgU0X3rpBSC4xoLmHQuJdjzY1fHEDQn05kEOTQrLOIukn +Ft3gctHEpaOIQtouk/nR6kx4ub6o4a0VhfJuTftbajIBll7LHThCoS0fZ/VF +tJig/V1O6RX2pPFie74OE/hNfZQqrSl8f7Gtad7PhOuDsmtybSjEtyjgsPkI +E2bnHMcIewoNxmmsz/JigjlN2iT/JIXiq0JPV+QxYf2rOELCi0Je9DTtoHwm +2Lzt4w3HNn9YvF6rgAltTUMn+rE3pA0/LC9iQqpX/eQDbwpF+1mNPi9lQmaA +Ra+KL4VC5WXPlL1iQkkdTCr6U8gjrcnzWTcT9P1qbPuDKGTKN6zr18sEf1N6 +5b7zFNoVzcZL72fC7tKc2mTsYT+NouIhJqhvOVBrEEwhV8usiafjTCjyUgu+ +HUIhey5/7yfLTGC4l73RC6OQib+4b6EwAeHd9qF6kRR6lRVjlixKQNW3ubFE +bN3mWdkgcQI0dfImB7BVaU1fDbcReN5Fiq5EUUisI8TwG42AHbtyed5FU2hs +X5fwBg0C/lrRzQyuUCiBPftf96MEOJjUunbE4vp386Rb2BJg92FKTDKOQlHH +g/zUjhGQo5ngxsAOKrXa+deRAOO06YIxbFdyTdJNBgG7B2fWLcVTSK2Rwfzv +LAHjb94triRSqCOJtlEmkYB9XLVHy1Mo9BjxnmIlEfCGqeQ5hh01QdUX3SAg +mI8msz2VQnTT+jCtNAJkJjI9o7Hj2dxmLTJxfi+/e1rcpNABn+yvQYUEaHVP +STSlUUhS8oqm/mMCDlrmiC1hU40+NzieEiBvf6ZMLp1COXLIIr6EgJI42puL +2H+6ul7mvsD1cYVaq96iUKm5RP77BgKEHk6wX/iHQteX2blSGnG+gqPd97AZ ++aOuDs0EtAql2jdj83O+kBhsIUBxpFtW/DaFPKvsE5Y+E2CvcEeqGFtG4Wag +7BABekMtWc0ZFFruuPBxZJiAR4pcNpPYrdGE6hMWAZmdCfc33aFQWJ/6qPY4 +AaW7k6SOYHemf3Q6PIfrV6w814KdvFbAOHgNCdryIemVmRSqnu06HsBBgkn+ +nPkX7B9dBX7eXCRszZWIWcDWLTXKZqwnQZ7mFrMnC583l6BfZgIkNMlp1NzF +5jc33mwsSEJWYVxaNbbO3s3ySIgEcfCY/4ydyFtopyZGQmrqbf0N2Xj9RU+x +xA4SRAzsuc9gk/cLG4RkSODuMOWIwE5MPN+ziUbC+h+3otKxh0lBXk55ElxP +G22pX10XNDk1rkpC0msrd6G7FHqxIhg+TCfBwb4uZhf20Ehvaq86CbQnAQo6 +2PteBte1a5HAkRi94ow96Pl4279AQkUE+9dsbD77EI3y/SS0/+IRf4qtbXjQ +vNgI10Pq9tRgx4v1n79/kIS9P1bmO7ErOJ8kZpmR8DMn1oSFPTAV8uCWOQkH +MtQl57G1Xgt9irMioe3mWxveHNzv4v6xy9YklC4XPxfFjst4wh5hQ8Jp10cZ +Mtj9fqaqgfYkqLC9pfZi8zoLm/g6klB8bIQ0wNYyHXDyOEHC1PRmJ7PV77df +uO7sQsJJxZBPjtgVG8xy7BkksPKfH2OsxpsXrrRmkjAvNe90ejVe30CLOUnC +W10Nls9qvOanwwdOkWDw77mFc6v5lV/4Ax4k9AeXXQlZjZ9jtkXHk4R3xFzm +xdX4cSKKGt7Y0Sra0avxgwYNdvuScHCZOHYVm4dZbC/vR4LFcvpSLPbew2E+ +MgEkXGt/vT1xNf6+QzGSgSQcmZp8m4wdSxO9IxKE97eB/2cK9nP+oRKBYNzv +BcWCm9h9v4obN4bifshCb9pq/B9hfVxhJPSJWfyTjq3Zdujn33ASyoutv6z6 +/wEqNgPb + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7654815001125399, + 1.2896965456121572`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7654815001125416}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7654815001125399, + 1.2896965456121572`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7654815001125416}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4Vd33AHCZmhDJnBKuMqZriAx7CYmQhFDEdc9RMoX8hChTkzmiNyFK +EpUQ4vVNvCUUSSllHrrm6SAq/bY/znOez7Ofs85ae+21dzB8rAl2NjY2Fn5W +32ffq+wsb32vP3xPaNPHMBbSn7ynwTAqRHyBt7RX3ZulmSJrVI2MOaUrV23F +fMfNo/Yf4rV6EteOXRwUXsdl1IyuOBqUf8K++lr0ZXjBBwS0Lxod2JWtZzN/ +0z+hTc/813/FHu1sDD1f9QVpcGyhf8MWH5I5vmD4HcVLVD7pwj40Fart39yD +NFYYEb3YNb9HNwYV9KH3jwUKBrA/XxIJee49gOz2/Cf3A3uS22iUog8huWsX +fo5ic8f6OqgtDqODNfu2T2FvE7jTcLaKhUbafv8zh20psZA3aTiOfpUmJP3B +JrOlhZXXTSKeBBcejnAWCqcdjj7TPIV+MTS/r8P+ItK+J6BgBnkJzwQLYTMd +PU7fiJ1Fa7g/m27Fns5gu/vMew5FbnrpJYO9TlqZf4Y+j0RTc0vp2CnMOhN+ +oQWUInunYx+21AOH8N2LC2iWun3YEFtLKWbSq+onsox8qG+LfUqzp3nU8Dda +yuQSu4BNBZ3j3CD3B/mdVxi8jH2xaqOu/LoVFLFgw3kDOx20Hrk3/0VuAlWG +Bav53W8w8itYA/w+72q+Yxe8vtF7SYIdvrDtoI+u5vvDOTQpFrs4eHkRO1Rh +vuSpNwecKYdrWy7ifJ/skJmic4GNjVjeEezO1vGalVwu2N+TVeuKLTVb7sgn +xA0pUsp0P+xCdctk5UVu6BE7sTkFu74yeI1n1ToYM+Zr+YY9X/exh2XIA587 +OrRDLrHQZnMe/pAaHqgK+BOYjK3abgS82rygay8oWoDtMViWvUeFDz6E8cd0 +YvuyN6vq8fDDtJ6NAESw0JD045noBQG4MS09JBmJ94dsXN+ithlkop1ddbDZ +Hw3vED27GR63xho4YEupbbcuGNsM3TqvlG9iOxomPnvfKwg/zFPLtkSxUIub +n79IkxDs9uaKlI1moe4H8ddd1gmDmGSE/kHs8bGC3IfGwtAbRjl5Ym8IGPio +81IYGpSqGsqwjaJs1F3KRMBl42cLixgWenFPcz4/SwyqrfyEEy6z0L2h5cB9 +AZKw1D6Q43SNhQ7aXu72L5KEmmC9/GvY4/WCB4qGJYFdpZ6zAlv9npKQlMM2 +2JThUCd4He8nw7mES387+NUX2LVgz071/h8rUgquDoh+totjIUEvo9ISC2nY +Wdek/SCRhYbvbThl5SEN2d3atB7siu+tEhMx0rC+8Lu7SBILnTB3ipR7KQ3L +7rWzV7DvKQZa36LLQEk933bfZPz/0QfTYSKykC45/8EyhYVs3Dcqm/XRYE1D +b45FOguhQFv6sT80qCnioiVgK0Rn7WWKyUHGLc5frdhsuWr7w47IwVhOUo7t +LRYq6j5+7FmtHAy5T/cw/sHzaVd4STxnJ6B+ti1xGTg/I4vPowx5OMQb4iZ1 +l4Vyj6Z9WwyTh9EoX1dP7HhGXy/nbXnwOWtaUoHNvHhubNtHeXAeyrO2zmEh +geo7bEcNFQCNiF68movPj9qkQpWMIqRe2n5zbR4LSUgnhF8fVAJemZmn+x+x +UPU1Sn6JXRk6Q1FUNvaJOYd2cocy9K+zerGCnVkvK7/fWRmGiErL6kIWknZ/ +0fazQxk+clSK6j7G9RYO0cgmFWB1NO6xLGYhSYltpJSDKvz5ohVSXc5CSvcD +eH4hOjAHUiJr/2MhBjNyXtmSDqnBb7epvsbzKpPc7XKCDulp4vxZ2Bw5T56+ +DqLDgxbB+Qtv8LxljtokF9MhQsmzAb3F92m6yx15GTVwEeJM/diM+3vdXMWe +Wx2CPxxs0Glnobt+slZlzRoQdTa2gG+QhVoD0d6o+9qQSZs8u7xhBO1w/mTp +5KkHB2cLYxz2jiDi7/PHkucBiIVrZvrkCBIZq1grwtgPhqy2C6JZIyhATfd7 +soIROCr/2vbu6whiTPxuEBw1Bp6TE3syRUdR0X7/tVktJnBJ75leHmMU3aM8 +agtTTCGMs/2DRtEo+mkg+q4+/BCINOqtzHOMoS42jpk+VwvQN/J6x3dyDHlv +9Um8JHMYdg3qzOpUjqHHpxtepkZbwSvbxrksqXEUPCe2qHj6CDAanTlRzDia +Nztg9+akNXxqqyusXxpH2seTDIaOHAWl6Zit/r4TqE3sjke9mg3IOfc8uD8w +gcTzIqvzd9nCqKCJKo2YRBW9CuaWvHYQ2al4XqB/Em1rn3YPnLADEdr/ApdO +TiG11KTC3N5jsP/vyq2VsSl0h3NOJbnOHl7lOJ+q0JpGzw12d0ZXOgDba77t +ByKmUfreawK/CxyhK+G3rFfTNGr5dj9GLfY48GSxvPbwz6AyiwxZ34snoH+Q +YfLHcQbNeB1l82Y6gYjeZHh+9gyaPyB/atLQGW7oSkT4D86g/ImvP/01T8Ja +IctLXMqzyP7ufTcnHhe4pr6409VnFpU8O3SS47ILaIe1/8+hbBZpS7QtXV1y +gV15qh4u1CyS6XXv/HDaFc6KveiK3z2HBjeeOZwx4AqFXJt+2XrOodZ4SzcT +WwYcrmO9Z96dQylBWRvPtTLguN0aE+bnOVRd83fJzdQN6G9SphlcFNp0Ai6r +vXCDuH871a2VKCS15U3L1mo3CMx2FZ/GVm22EOWucYO293uy45QpZK17/OGX +WjcoaTWOfaNCoZStgU0X3rpBSC4xoLmHQuJdjzY1fHEDQn05kEOTQrLOIukn +Ft3gctHEpaOIQtouk/nR6kx4ub6o4a0VhfJuTftbajIBll7LHThCoS0fZ/VF +tJig/V1O6RX2pPFie74OE/hNfZQqrSl8f7Gtad7PhOuDsmtybSjEtyjgsPkI +E2bnHMcIewoNxmmsz/JigjlN2iT/JIXiq0JPV+QxYf2rOELCi0Je9DTtoHwm +2Lzt4w3HNn9YvF6rgAltTUMn+rE3pA0/LC9iQqpX/eQDbwpF+1mNPi9lQmaA +Ra+KL4VC5WXPlL1iQkkdTCr6U8gjrcnzWTcT9P1qbPuDKGTKN6zr18sEf1N6 +5b7zFNoVzcZL72fC7tKc2mTsYT+NouIhJqhvOVBrEEwhV8usiafjTCjyUgu+ +HUIhey5/7yfLTGC4l73RC6OQib+4b6EwAeHd9qF6kRR6lRVjlixKQNW3ubFE +bN3mWdkgcQI0dfImB7BVaU1fDbcReN5Fiq5EUUisI8TwG42AHbtyed5FU2hs +X5fwBg0C/lrRzQyuUCiBPftf96MEOJjUunbE4vp386Rb2BJg92FKTDKOQlHH +g/zUjhGQo5ngxsAOKrXa+deRAOO06YIxbFdyTdJNBgG7B2fWLcVTSK2Rwfzv +LAHjb94triRSqCOJtlEmkYB9XLVHy1Mo9BjxnmIlEfCGqeQ5hh01QdUX3SAg +mI8msz2VQnTT+jCtNAJkJjI9o7Hj2dxmLTJxfi+/e1rcpNABn+yvQYUEaHVP +STSlUUhS8oqm/mMCDlrmiC1hU40+NzieEiBvf6ZMLp1COXLIIr6EgJI42puL +2H+6ul7mvsD1cYVaq96iUKm5RP77BgKEHk6wX/iHQteX2blSGnG+gqPd97AZ ++aOuDs0EtAql2jdj83O+kBhsIUBxpFtW/DaFPKvsE5Y+E2CvcEeqGFtG4Wag +7BABekMtWc0ZFFruuPBxZJiAR4pcNpPYrdGE6hMWAZmdCfc33aFQWJ/6qPY4 +AaW7k6SOYHemf3Q6PIfrV6w814KdvFbAOHgNCdryIemVmRSqnu06HsBBgkn+ +nPkX7B9dBX7eXCRszZWIWcDWLTXKZqwnQZ7mFrMnC583l6BfZgIkNMlp1NzF +5jc33mwsSEJWYVxaNbbO3s3ySIgEcfCY/4ydyFtopyZGQmrqbf0N2Xj9RU+x +xA4SRAzsuc9gk/cLG4RkSODuMOWIwE5MPN+ziUbC+h+3otKxh0lBXk55ElxP +G22pX10XNDk1rkpC0msrd6G7FHqxIhg+TCfBwb4uZhf20Ehvaq86CbQnAQo6 +2PteBte1a5HAkRi94ow96Pl4279AQkUE+9dsbD77EI3y/SS0/+IRf4qtbXjQ +vNgI10Pq9tRgx4v1n79/kIS9P1bmO7ErOJ8kZpmR8DMn1oSFPTAV8uCWOQkH +MtQl57G1Xgt9irMioe3mWxveHNzv4v6xy9YklC4XPxfFjst4wh5hQ8Jp10cZ +Mtj9fqaqgfYkqLC9pfZi8zoLm/g6klB8bIQ0wNYyHXDyOEHC1PRmJ7PV77df +uO7sQsJJxZBPjtgVG8xy7BkksPKfH2OsxpsXrrRmkjAvNe90ejVe30CLOUnC +W10Nls9qvOanwwdOkWDw77mFc6v5lV/4Ax4k9AeXXQlZjZ9jtkXHk4R3xFzm +xdX4cSKKGt7Y0Sra0avxgwYNdvuScHCZOHYVm4dZbC/vR4LFcvpSLPbew2E+ +MgEkXGt/vT1xNf6+QzGSgSQcmZp8m4wdSxO9IxKE97eB/2cK9nP+oRKBYNzv +BcWCm9h9v4obN4bifshCb9pq/B9hfVxhJPSJWfyTjq3Zdujn33ASyoutv6z6 +/wEqNgPb + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7654815001125399, 1.2896965456121572`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7654815001125416}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.7654815001125416}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.7654815001125399, 1.2896965456121572`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994258958851244*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"00dfdaf4-1909-4f53-aad1-c159cee0b6e8"] }, Open ]], Cell[CellGroupData[{ @@ -9625,465 +10739,1081 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.9918507211663303`*^9, - 3.991850725479061*^9}},ExpressionUUID->"f4c3d53a-1214-a145-beb0-\ -494cdae35e56"], + CellChangeTimes->{{3.9918507211663303`*^9, 3.991850725479061*^9}}, + CellLabel-> + "In[119]:=",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"b9265795-17b8-4e47-bd29-fee31586537e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.823261704117757`*^-271\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 41, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258959092196*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"3c9fceff-7279-498b-a2cb-bf5e3d160df7"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"072fb53f-7116-0f41-a298-6891351a3192"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2017068936368634`*^-282\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 119, 42, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258959100459*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"e43ced58-3db4-4eb4-957b-121a81ff0c05"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"7f686ca7-db7f-0b40-bbd8-c08a80d2c198"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7603411204262314`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 119, 43, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258959109231*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"66bca165-39e7-4f14-858a-c49d81220686"], Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"3aaeaf29-5b60-ab47-b674-24d071c511f8"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.0634921 0.0147151 5.37313 [ -[.15079 .00222 -3 -9 ] -[.15079 .00222 3 0 ] -[.27778 .00222 -3 -9 ] -[.27778 .00222 3 0 ] -[.40476 .00222 -3 -9 ] -[.40476 .00222 3 0 ] -[.53175 .00222 -3 -9 ] -[.53175 .00222 3 0 ] -[.65873 .00222 -6 -9 ] -[.65873 .00222 6 0 ] -[.78571 .00222 -6 -9 ] -[.78571 .00222 6 0 ] -[.9127 .00222 -6 -9 ] -[.9127 .00222 6 0 ] -[.01131 .12218 -24 -4.5 ] -[.01131 .12218 0 4.5 ] -[.01131 .22964 -24 -4.5 ] -[.01131 .22964 0 4.5 ] -[.01131 .3371 -24 -4.5 ] -[.01131 .3371 0 4.5 ] -[.01131 .44457 -24 -4.5 ] -[.01131 .44457 0 4.5 ] -[.01131 .55203 -18 -4.5 ] -[.01131 .55203 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.15079 .01472 m -.15079 .02097 L -s -[(2)] .15079 .00222 0 1 Mshowa -.27778 .01472 m -.27778 .02097 L -s -[(4)] .27778 .00222 0 1 Mshowa -.40476 .01472 m -.40476 .02097 L -s -[(6)] .40476 .00222 0 1 Mshowa -.53175 .01472 m -.53175 .02097 L -s -[(8)] .53175 .00222 0 1 Mshowa -.65873 .01472 m -.65873 .02097 L -s -[(10)] .65873 .00222 0 1 Mshowa -.78571 .01472 m -.78571 .02097 L -s -[(12)] .78571 .00222 0 1 Mshowa -.9127 .01472 m -.9127 .02097 L -s -[(14)] .9127 .00222 0 1 Mshowa -.125 Mabswid -.05556 .01472 m -.05556 .01847 L -s -.0873 .01472 m -.0873 .01847 L -s -.11905 .01472 m -.11905 .01847 L -s -.18254 .01472 m -.18254 .01847 L -s -.21429 .01472 m -.21429 .01847 L -s -.24603 .01472 m -.24603 .01847 L -s -.30952 .01472 m -.30952 .01847 L -s -.34127 .01472 m -.34127 .01847 L -s -.37302 .01472 m -.37302 .01847 L -s -.43651 .01472 m -.43651 .01847 L -s -.46825 .01472 m -.46825 .01847 L -s -.5 .01472 m -.5 .01847 L -s -.56349 .01472 m -.56349 .01847 L -s -.59524 .01472 m -.59524 .01847 L -s -.62698 .01472 m -.62698 .01847 L -s -.69048 .01472 m -.69048 .01847 L -s -.72222 .01472 m -.72222 .01847 L -s -.75397 .01472 m -.75397 .01847 L -s -.81746 .01472 m -.81746 .01847 L -s -.84921 .01472 m -.84921 .01847 L -s -.88095 .01472 m -.88095 .01847 L -s -.94444 .01472 m -.94444 .01847 L -s -.97619 .01472 m -.97619 .01847 L -s -.25 Mabswid -0 .01472 m -1 .01472 L -s -.02381 .12218 m -.03006 .12218 L -s -[(0.02)] .01131 .12218 1 0 Mshowa -.02381 .22964 m -.03006 .22964 L -s -[(0.04)] .01131 .22964 1 0 Mshowa -.02381 .3371 m -.03006 .3371 L -s -[(0.06)] .01131 .3371 1 0 Mshowa -.02381 .44457 m -.03006 .44457 L -s -[(0.08)] .01131 .44457 1 0 Mshowa -.02381 .55203 m -.03006 .55203 L -s -[(0.1)] .01131 .55203 1 0 Mshowa -.125 Mabswid -.02381 .04158 m -.02756 .04158 L -s -.02381 .06845 m -.02756 .06845 L -s -.02381 .09531 m -.02756 .09531 L -s -.02381 .14904 m -.02756 .14904 L -s -.02381 .17591 m -.02756 .17591 L -s -.02381 .20277 m -.02756 .20277 L -s -.02381 .25651 m -.02756 .25651 L -s -.02381 .28337 m -.02756 .28337 L -s -.02381 .31024 m -.02756 .31024 L -s -.02381 .36397 m -.02756 .36397 L -s -.02381 .39083 m -.02756 .39083 L -s -.02381 .4177 m -.02756 .4177 L -s -.02381 .47143 m -.02756 .47143 L -s -.02381 .4983 m -.02756 .4983 L -s -.02381 .52516 m -.02756 .52516 L -s -.02381 .57889 m -.02756 .57889 L -s -.02381 .60576 m -.02756 .60576 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .01472 m -.06244 .12073 L -.10458 .23188 L -.14415 .32802 L -.18221 .40977 L -.22272 .48259 L -.26171 .53704 L -.28302 .55995 L -.30316 .57709 L -.31285 .58377 L -.32313 .58977 L -.33276 .59437 L -.34157 .59772 L -.35098 .60043 L -.35617 .60154 L -.3611 .60234 L -.3633 .60262 L -.36564 .60287 L -.36785 .60305 L -.36985 .60318 L -.37108 .60323 L -.37222 .60327 L -.37346 .6033 L -.37477 .60332 L -.37591 .60332 L -.37698 .60331 L -.37815 .60328 L -.3794 .60324 L -.38062 .60319 L -.38197 .60311 L -.38469 .60291 L -.38721 .60266 L -.38958 .60237 L -.3949 .60153 L -.40064 .60035 L -.41114 .59744 L -.42077 .59396 L -.43969 .58496 L -.46039 .57209 L -.50095 .53905 L -.54 .49958 L -.58149 .45213 L -.62148 .40358 L -.65994 .3563 L -.70086 .30723 L -.74026 .26259 L -.77815 .22302 L -.81849 .18514 L -.85731 .15313 L -.89859 .12393 L -Mistroke -.93835 .10033 L -.97619 .08171 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJzdXHmcFcURfriXisohiYgk3OxyH8t9ihpuUAQBIRiWS+QQAgJKAEVQETAg -5ieHoKhRMREP5BBFIsagGBWjUcSTUw3KJcihYmeqprtq5lk1szwf/kz+2Lcz -1fV1fV19TFd3z3QpuG7o4JEF110zsKB8uzEFo4deM3Bs+bajxniijCKJRJFt -3l+18olM79okEqGfOeaE2Q4/3rUx35vt8HPy1wX4L8MMHjzYlCpVyjRo0MC7 -83+LFi1qvvv2O9Soj7/ZZsniJZBqqlevbs4991y83vbJNj85yyyYv8DUqFHD -VKtWzQwbNswc+foIQb86+JUZOnQoQho2bGh69OhhdmzfUctCd+7YiUku9xIl -SiROs0xm3j4TtFDzNKs/d85ck5uba/Ly8tDU9ye+T+TG5pUVzMuVOpEplLhK -SrxUD5UP+9sruKlbt65Z8dQK786XNWnShKw3sLI3N79p+vfvH6qDB+5/wHTt -2tUc+uoQWr/xxhvBsX5yjunUqZO5Y/YdVMjVq1ZjnRw7eixRJ5At+N8vop/t -2mfWmg4dOpivD39tvv3mWzN8+HBz+4zbqwuQzEKWIk/Ani6UrILvnAE2ac9/ -9mALue/e+6xbM8ycP3qN/bsTeFfXZnThhReim4EC/EFzKFmyJF5/8vEn9axD -qlatavZ+uZccAtmUKVPGHD923GaVYT7d/Sk2Wv/O/+3du7d5Zs0zeFc7wnHt -2rVDucsfGnrFihUlx2UVsoSS4zILV2rb0AbaHPbv249VMnvWbNuoss20m6eZ -eXfOI8K2KuoHyAEk6It69ephT4A714ignLVr1w7p9ezZ07y88WXVZ67lQAu5 -4IILsNc6bIsWLcx7W95THZAtFKmmakMtZkXfQYMCpWjatCloJvItEnoWlAy6 -guCgjf/YiA3IU6PaO3jgIMq8Gky4hgfNe9bMWUTg6RVPm1q1akHhxZ7onPPF -ni+wNoOOveqqq8y659apzskRilMjwjlKEa1zBgdKBYyfX/e8dY4/8LpSWVTC -jT0bXthgSpcujWPQRx9+ZD7/7HPTq1cvM33adBq+oI23atUK2yx47Pzzz4fu -VzfCIV6zxkIFHQKPkiefeDJ2nAkWQe+ScrGsN4ZY2KubXjWNGzcODMZZMIiY -/Px89GfYG9nYYWBQgUGkbdu2pmXLllAvrpXNv3u+ad++PZYOqnzEiBFmwoQJ -UY748osvxZbhFU51xBkC+2oRjpBKZB1xtYVB1Xk9N+CITHPvknvNLdNvcZB8 -q1q5cmWzfZs/22hoW0m5cuWwwK5fQFYwSHttMbJfaIPG1ve2qqU/U6CsDy4/ -KIYtuHtsv/7a6ziswJ3r+fBoqVSpEt7l21yAabNmzcwLf3sh6IxFCxdhu2Vn -ZGAX+Ob4N6EsoWPu2rkL72raLO3I6EhnW9bQgDa/sZl8Cf3f83mejMoqZDly -ZXiOXLyQk3LMu++8i6V6du2z2NlhvO7WrRv0Lir1Y399DOcw0Lic00AX9MaO -HQuDh3taQbe44YYbXO2Zh/78kGndurWbN0KXAC7du3c3S+9bCjQTzjnAADoe -NGXwMcwTvalRbgQ0qxCFiMKfLhTQ+meAZfXG62/gnAEGPniQw4PfK1wji4QJ -o5sYNbCWIPf69evDtAL/Xnn5FfuUyTZHjxw148ePx0YDj+l+/frBI9x1pBc3 -vGg6duyI5HJsdnfOvdNUqVIFpw4jR47EDlVN0M+OZixBzhBKYad3WgxSy0Ig -rLHN2E9/6n8jvaIv9ZLXw0+RKCnmdRoIzhJyLXoyMs5FvTr7x9r4KWT/p+z5 -qmhy1Teiq8ZCtg01WYqI3J+Peaujd62EmJ4ZTKcsnpRVnFoqKuEynEZKTwSV -skL5hFg/kVxWf5riAL7S4xFKlNPjUbR+KMPfx2IwXJ7l6dDM0Hj8NQbDuUcw -ztRy/8spwDCjCO5ZWu6P/kgMJmeFefwlOT1by2mZbj07nGcEz8Jr5mg8HonB -cO4RjE/Xcl9IWRRNAT2f3HhWDJpZ3k2Yc3TMGZrFeYQungJ6LqFLxqCZ7xzC -lEpuO2dqdmaRyi9FDOc+kxJK64ySMDMIU0bHSA9W/J1O6LIxaLY4nW5/rWOk -iRf+3kQWy6WAnkLoCjFo5juFbv2wK3Jx2x9LMjGQad68OUbWO3fszLYQWAKA -dQ4IAyDm8UIAGqJ379qNNr20hFvdh/n/pEmTUEMaXKTZF/5OJNL+EnnC79/a -+jHxhvgSFtghQy9+caunsPJas2ZN5AjZPPLwIxBMuLHcywFDj8OHDtOTD9ZT -UqJ+PdVRVUvdf/TaFVwyYFdwrWd9GfB0Cw1Odtutt2FVwZ3DBlcxMyzFhQsW -4voVBIxgb8u7W8yqlauksfTscAu5nm7ziHHc2qlrolAquzRA7MBtsEljAo/L -Bx94EGtg185d4pB0jubO64hcdSIXt3bpyMGOxIH9B0LkYO3F1atz8bJHlqEu -NGccoXEal+SlsVSvNYhI3JqhIwKLUbDkFSQCRkePHh1qYIvvWWzatGmDXpcq -7pwwpTF0W4soxa3eOUpQGZJvJk+ejHfOPMTca1avUftBMa3iriVydWJblWvz -jlxgwSnUqqCNB8nBFpRbYlLJsb+YUt1Q17TmQl0TRr5gP59x2wxckkjuhu9v -fT8kswtLIdmoUaPM/UvvV2kW13w4jNpcPUvYHwaVNSfbi7LNZ59+hg3aLori -claXLl0yrfMKCgpM3759aX0U6heG6n1794nNTuV3DTnUX1+jZ4u0+FPMpq1/ -fj22PiAInvdY0I4BNBCoUOgwFSpUwDV+r3FIk67i4bplKv56lvhoLKEVZDCh -G8Wg2SJjGuuYkprFAqraJimg+5PtZjFo5vs7stg8gEHBuZqd31IWLXU7Krov -oVvFoJllHyLVWseU0iz2oszaxKDZImMu0jG/0Cz2IPTFKaAvp9JeEoNmvpfT -bVsd80vN4qWEbpcCuiuh28egmS9jOuiY8zSLHclDHZNb7XlhOx3ptrNup7Rm -px2hu6SAbkvorjFo5suYS3XM+ZrFiwjdLQbNFhlzeaExbei2u44po7FsRege -MWi2yJgrdMwFmsXmhO6ZAroZoXvFoJkvY3ont9Cymp3GhLlSt1M2bIcxfXTM -rzSLDQjdNwV0PqF/G4Nmvozpp2N+rVmsKySkkk9tYtE/Bs3MGeNvN6Y7ZHZp -sFMOe1jFixdHnYkTJ4rzr3Ja4WoQUX/f79SEyW72ddlll8EpM7xTabIXmdxA -Sy7dgXB2MCTFP9gsLlmyZAaEQB6kWLFiuJc4YcIEkXF5zbF5xH0QcU89JM4J -hsT4B5EX1PjRI0fJD3HuVcnmEtnBRDZdIbJzNCyR2PAH/yxZjpaTKp85DSFO -6YqWHacjXx/BMh4+dPgHnJL8VEHzXWXieTXxTFcInWGbL5zBgfAxwFFcRq4Q -dmEVQYWdma5Q2pGEYaJRo0Z4lCmKZEXNk1IC+9SkKczOtL8Q0U69aWpUnatM -pcYw1DL9UfG1O98Dp0jg9Bn8RZHjuuaqH+YTSTWQdgMHHAOEzLVqrKQ5hx+F -w30m0vOyUpg9Y0bomMqaRZ5OjUwBzZPHa2PQzJcxo3SM1P3wl8OO0QE0KlYJ -22HN3+t2qmp2OEwdkwKaw+qxMWjmy5jrdEyuZpEXZMbFoNkiY8brmDzNorRo -HGE7L2xbQkewqKax4P2h61NA837WDTFoZs6YiTqmumaRd0r/kNx+q4ftsOYk -3U4NzQ7vek9OAc27+FNi0MxX2puPsF1Ts11ESIhgUTPMogjd3qRjJNkJAk49 -OeB3BLw5BohKrD5NV68tyI4TcHoMEJVY/RZdvY4gOyrIghYxpQ7lLqlHWJQi -y8OU2W0nBzxEwBkxQFRi9dt19XqC7AABZ8YAUemgkBphsb4g2yfIImxLWewl -PrN9YJrjaHeaHF4R6ty5M2YHc1gvChQnPfWJDzO7w2d2CveXczAn4A3TSkiG -QAiK7/0XI718QbaHGP/RMj6128pOBq+ajRs3LiSDF17ghTC/8Ap/5Mqs5xDr -dG0tOxk0IPcKlZM99eRTZuDAgcwQY1TJr58LMvZwesPoDGy59r05kkG4OHvW -bIkrek5iyN5Mb1Cdg9vP0DbhNDgE1qtWrsIT+/v37RfbqnQwczdxv5N4piuo -dsE/1O49i+7BvVVYQ+vTpw/su0rdns+JMrF5sc3xZANpJ4M3J13Tkw4eNRJk -O4jXXaHOnc6N6WNHj+EA6jlJ54UcmM2fQoNjilGxGzuhpqGmVj69EshIp0Ck -k7/bBJn1UqpBsnumwHAN++DujQevDYltnFfeJTLWSS5Cda+QUHdOUm8iyD4i -A3f7mUlPWAn4IQHnxwBRidUX6OpNBdlWAi4MAFGnKSW9LwAXJKs3E5S2UBaL -dFq8zcLq9+jqzQXZvwm4OAaISqy+RFdvIcjeEmQRFluQHQkYYbulINtMmd0X -A0QlVl+qq7cSZK8R8P4YICqx+gOFVk9KDdrBlNaC0ibK4kFRHZNY6c86mQsF -2UYCPhQDRCVWf1hXbyPIXhJkERZ5j1YCRti+SJBtoMwizlDzTjKrRxzovliQ -rSdgxMn5i0mJ1SOOz18iyNYJsgiLl5CddXQVfIUAtX8jANeS+nJRHZNYKeLl -i7aCbDUBn4gBotIaITXCIh9+WCWkRlhsL8hWUGYR77a1J6UV4StZvYNGC4FP -+8BTFF1CbAETKpi7wI7tooWLxOiyQ7iK8Gqlz+yURpebXtmEyRAFQzLs4MCp -TW/WLM5mOgqy5YLMevUnijOHDBliHl32aEgGOu4jEdJUik/8LE9qwKcizoT3 -g8H1QRm8wQt4jWEnbfBBrquJa3rjzBzz9ltv40qIm4oDBtq1NyX32wTGmOw/ -5rSGOKUrsnQ7jBA+ZGRkYKvJycmBFQSxH3UmLsvo6hlild44MgeDGdCFmoVr -+LoE9PSPP/pY7D1dBNlDxHNtbOtLNawE7vCWelAGazOuPFLr60K8HhZS2acm -zaHmXfPuws3ZoOzx5Y+bQYMGqVy7CrIHif+zlmtajj/DIQv4ZMaHH2A8hE0K -ngleZxOrnA8wMqHnfEKpRqDu2QJfeYFd4jp16mB/9UZAsU9cKsiWEhl/jBAf -nHzck9Wf19UvE2RLCLg+BsixEl79TVfvRkqLhdQIO5cLsoWCLGgbU/jULL/m -t0G3012Q3U3AF2OAHMrj1d919R6C7C4CvhQD5CUjvPqHrn6FIJtLwI06sKcg -myPIImz3JDsSMMI2n8y+g65e0dV7C7KZBNwUA+TNFbx6VVe/kpRm0NU/k9tb -H0q6la5e0/PsK8imEfD1GCBv5uHVG7o6H+ifSlebdfV+gmwKAd+MAfL2LV79 -S1e/ipQm0dVbuvrvSIlfFHxbV+8vyCYQ8N8xQFRi9Xd09QJSGkdX7+rqAwQZ -v9K1JblFDaAkVnpPz30gKY2mq626+iBS4rek3tfVBwuyEYIswiK/PyMBI2wP -IeAwIfUDHXg1AfnqY119KCkx1U98dX/2dlKhphNDaOa+9ehNg91nHuELZs6w -9Eb/NVoDCqxL23V99TOLSpzpJhx2uod30iRE8jb3kO1hCsoHC93ULxgqFtb+ -cEHGA8cO3757Dz0u+it2MkbRAA9pu8Km4oI31RQGYWyAh/LdYQNxkVhhyzKS -DPAj7NOwqbjwqrCmeBDhh/hnhash1ywKa2oUGcA5ESZ+Hm6MygfMzrH9AV6V -dkmeWPqUAY+hPJHcEzaiRCXOyIABA3AxA7amK1WqJBn5PWXN0+kvwgOOHmhk -YDwDzaJs2bLi5xjGkHs4MPzSz14a/vjN6050tVdX50cer+3t19XHkxKvWh7Q -1fn5ezGV4qCuzi/h82r8oYB6Rnju0JJkh/U8/0DqzUj9iK4+mdR5+/CYrj6F -8synq+O6+k2UZ11S/1ZXn0pKeGQOB54Tuvo0UqpKQEwpomNuJc2KYUyGjplB -dvAQcBZhsnTMLNIsFcacrmPwQMcZIMqiK0yJ+FQLhlVnk2aJ5NaD0p/J1+Hi -0vE65ivdiSL/BdTcD9k=\ -\>", "ImageResolution" -> 96., "LightDark" -> \ -"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-1.6168853824798513, \ --0.009969067956413457, 0.059164187941960496, \ -0.0006991192353860321}},ExpressionUUID->"fb5ee406-78d5-a849-9c81-\ -3ea500ee883f"], + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 119, 44, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258959117179*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"7cfe862f-d8f7-48f4-83d2-45d5c964eba9"], Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-\ -87bc9c72594a"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk8lOv7B3DRKUnKkrF7ZogTIkuEGdeVGGsLZZdskzjSQgllK0uSLCmp +UA3fRGPmKSoUoUKhU5IoFdqQyF5H/Z7fX8/r/cfzurfr+tw33X+vM0dYSEhI +YYGQ0P9/p/tamtRPci3IZdXNe95YWnQWyEVt6E4EK+3FXM1NdMCVHf5y3dkg +PrCr54+jPhzaev2VSPcVEK/+WT3ouAEkR2nZc69IWNuxckO1oxO8q928d/JV +A8zEL/DRd/QDtvrQ2/FXzyFsW1a0iv1+mHtlkjv2qh9WZw5x325IgMaN/+P+ +e2UCdgVr3E57mQVK7+5+8teZh3leZZOWZj7IhO68vnijCLrmepm0TRdBtj67 +ZrOLKGr4ih8Z+8yF13lr68dXLMPuuDM2/uxrcJIb1yEsL4m9ijYtwyfKgHZm +4ETOJWmUjrGZatnCAzntyuOzJdLYdmIXzc6DBwoNyXE7+NJ4/YpMzwN/HqiM +rT6o2SiNhJcXs+ggD1Y57vOt+SKNX7trt624wAPDhfPGA4YyeG2Y0147yIMt +EbKDBq0y+IkbHQrhFZCy3c7i+fRKdDbo1PWy4IPCrXYF4QWy2PV+jldoyQee +9PYZ/aWyuGCd56b3bD50PffhZ6nKYkiJzoDLFj6oO0UwnGxl8byY4m4pXz40 +bCpc9Oy8LBKG+sefxfNhnj3V3sak4XWpyns+dXzILIkum2fTsPWAq4dGI/X/ +IqHUNU40PLlNc8nQIz44PhTbcIpDw0sXYricdj7kbyRuOmbQ0PqqRdOat3xY +jw7nnryjYXFuQdyCn3wIN728syVRDmddHn+vXCsA+yKJSYd0Odw28vjHY0MB +MBYfSW3PlUNto7CULmMBPOt0Fby4JoczoTmcr0wB6O4TF+lrl0Mllc7Jj7YC ++FISWfJDQR61/wrfaeYrAG+Zzd8Ub8qjd0Dk5a3pAjCMqUkoqJXHmyKu/ZMZ +AhDr/1uW/kgedzUYVuVmCeBuhQhovJZHDSc/WttZAcg63M1c+0ce9fb8aJC6 +TI2foG5k7aCAWXs/vZ27JQCr7z+jwwYUcKLOctv6HgFE2Z7RejCigNw8PUbg +GwHwLq/pkZ5WwKQX98rS+wQgt93X9K6oIrZ9L//+ol8AI3cezojoKmKBc9YG +82EB5CRmRpw/rIhNw4fYe34JoH+lRljTMiW8WPGl3VeeBNreOmUaTQnPPb4U +qa5IgmOze1swoYRhTaaDg0okVEWf1FluqITW8hli3gQJae/GhjzcldDwiiBX +TZMEg9KaoO9XlPD9N8M5mhEJCUwnP4X1yphXElaX50CCrU/BDxNLZdxs6aEp +vYkEifjhYy6OypgseafjxGYSLjYmlWT6KqPPkP7gP04k3LGvHl50Qhl5gzM6 +Im4kjLmrHZp4rYw3rrY1x/qRcDt632LJQWWMrOUn3PMnIfbivTzdUWX0cpNK +mg0gQfy9W02wsAp2BczvCdhFgmZQutB7LcqDIb3i/5Dgc3Aq7WmMChbSTOt5 +4SSsOmepNJSkgqy2y+FkBEnt3+kbizNVMDH3wRHyIAnR/61+ZslVwfNvlXL+ +F0lC7jGflXefqmBoAHzkxJDgXVxW0tWlgjFNLl6OR0hgPJ41mXyvgipla9bo +HSWBL5bjqTelgqklzM9fY0l4mvW4sFhZFdVlnrUaJpKQc1NGv1FTFbuPDRjN +U/Z86dfwXl8VRS+JLWg8RsIXuf8GFdmq2Nz7b8PGJBJEitZqZYepopS5kYhC +KgmtD47WVBxWRf+xp2ceUc4caHVsS1TF9lbJ03tPkKCiydkrek4V6xuEHlSl +kWDGO38rtk4Vg3NdDBROkWD1qn1+tFkV65YtvVhEebPQQpudz1Wx9JrVsFoG +CQHOYa/hoyqeJlRY9NMksGPocfF/EQjlJxumM0l4srz26noxAj/rxoYGZpGw +levaPCZBYLbevQUdlL3aTkr6yRHo3iU9np9Nwj7V6asbtAn898rUzLIzJEzd +zGye0yOw64icZADlaFvtbwIjAi2DExUrKSft9zVmWBA4FW6yeGsuCWKLfnn2 +WBLYGCU2lEc5Mz83LtuGwCW+Rg/6KOc3tjYLOxH45Td3i99ZElTdOd+qXQgU +r4wSLaDMHfkjGe5JIN/6wZ1XlLUS8o21dxK4OdvKT+IcCRUr13kNBBCYzmwT +tqRsdL0j7sJuAsniVQUHKFdbhHC37SFQeVTOqIhyU1Dht8ZDBPJchbb9oGz3 +n6nUkRgCg8Iy3srmkdCe2WlsFE9g7LZhznrK21ft9Ro5TuDv1x9HXCm/vrsk +nnuCwA9Zm8IPUPbZzOV6ZxB4+tGPuTTKg/0WLTI5BHrHliQUUQ6OfP3t6TkC +x6LMlt6kPLo0QirpIoFPDBPONVAOL5IwYV0msObdJs0OyrNGpV5TxQRuCYmo +6aYc27Ix/sZ1Al0Pt2x/R1nEp4/LqSDQaRdjsp9y6o/DLcq3CPxq45I/QFki +RXr05R0CQz+vt/1AOUeRJ5Vxj0CLh9zfvZTl+LYm7AYCt9L2339B+ZLVgNfv +RwTmNR9KbabMeH00vuoJgacOn95RTfnaHrnisGeUo3MtSimvEb7ZovGSwMCX +ATq5lMmzm0b7XhN4y7JLM5byeu0vUuf6CIzUbdEPpHyvLtFkywCB/1TJO9hQ +ttyu7L34C4EppcURmpQff7kdXzdC4OEUh4qFlB2POhdHjlP1ET/0q486n+eS +31r0pgksPeDvVUXZrSRl9PNPAlu+5bSnUX5jxpAu+kNgsK6vqzdl/45aE/eF +dIxQLZ3Qohw6Ox7fvIyOCnTmgTqqfsz275L9JEVHr1gP53jKokM9ZSJydDxq +lNfColzc29hlwaCjvtLSRB5VnxHb14d6a9KR5pz20I+yZVv5gmgdOnZ+rudK +Uu67n6tTaUxHjtWkWRBV/+UmYg3PzelY4LZxUvz/+4Mf6zaGdHzuN7qpIocE +2StBidoOdNzXvejzV6q/tiSZdl/eScd7F9f/a0z1n8rvG3vqAukYuNud94Dq +15FDDJG3wdR81tmus6OcunuprlwEHXuS/a03U/1d7/D2WEYqHRU5rMy1VB5k +NDnJl5+i462D2W+L0qm8Yz3itWTTUdg5oG8Z5TnditcLL9HxQaLPn7dUvhhI +JejFCOiYZWv0wZXKI6GTU015VXTk2veOlKdQ/SAS4llVQ0fVyXeVf5JJ+GfK +OWn8IR3Ve4STLlD5xu1W7w3qoeNq/nuzcioPZQubk7eLMHCMpU03pPJ1kMZS +OiDKQLnJ3fkuVP6SmQLB6WUMzNkb8DEimlp/Yv6bVhoDN7x4MFV6mFofJ9Rg +gw4DF5+4pT5K5fuc9oq+NS4MLNcN6n8XSsL0JYUEQ08GMmIjZV5S98Pk8lXq +pjsZGCiuav84hOqvCdMQq2AGZt53eHhlNwn9NQHTnkcZKCr6WcU4kMpfh9sS +qcUMfJRZENfhSdXfvQeCU9cZ2NZhlZTrQeWD3tPtORUM9NHWueruTsJ96Q/5 +BXcZ+Cv7t06XCzX/XjHNyjYGfok4e4m3lcqvf3ygf4qBlgrXFLusSTj3dnf/ +558MTP+uYRVmRcKZLeFJ3/5Q483r5ItspM7HMPXJ7BI1tN9n1LkKSUj8JXBb +rqKG+oG0Elszan9P/rWPyVbDEGudH6K6JDDLyovOnlXD5CjpjqPSJPQSZYXW +F9TQVW//qTeSVH2dLS2YLFTDxRqP5tevoO7bhJKLzqVqyKYPzw6JU+frXpQn +UauGzEK7KMNFJKz+60xm8gc13Mio4rrNUu+bnTHxh3TUkX5ar3WSer+MS9n7 +ujaoo44BO6jpvAC6QxnPQh6r4+mPkY3B5wRQ/+gnxD1Vx/UPKxvEcwWQGV2m +eq1LHdujT/AdMgWwtl/83dyQOt4vEj14I1kAYYKOHZekV+Hfk6K/F4QLYGiL +i9dg4Co8fslX+KedAAbTfV0PLNbAb2lG8rHjfLD7Hmn30VgT3TJtOU9M+DAS +IBp+K+5vjO9UdZUo41Hve5pwSsNq7JCp+OTeXA5SbRoZ/O9auPtTlLvF6HVQ +Sq3YamysgzXSS9cteXsN8rRNV0gHrcHEDeTyh19LoFVhw7qJLF201u9dIidS +DGZKDZl6XXp4fd9H5bL5KyAhciXCL3Et7ij+UHdR6zKoJKgyPTT00cakpl41 +owCWrPKucn6sj4vmPwkWLb8Auiz5isgdBmglt9DPTDgPDvRJNdoLGaLeoS7b +vT/OwPeJdBe7PEN0Dze6+3xbNtjoPcq3W2OECr8nrHVmT8P9CfNfM+1G2D+n +s0vD/ySE6Rj0/MtZh3cK1cY/ZqQAazSw02OJMRoI8vOI/mNgrS63adkVY5yV +WT9+oC8e/o5PO9xgYoK3ls1s/nzqCGhxTOtW9Zjg3Mw+3S83IoFzf/fxW/vX +4/ah5L6DTeFQV9QZOL7SFF/l6yS80NgHk9f+zOjdNsVh2h3Fp84h8MmVXXTi +rilOinrDbosQ6F54ynagxhRDK0sGJLVCoMZX4fzZelPMcqjOPrUgBBLl1pnN +t5jiI/s/rasEwbAiNeRI6xtTrJ29f/2FVDDoBL0U4gibofHAwjtT74IgYFXZ +kvxNZjghmRX2tpAD0Q99QjS2muER/4Jr+qc4kMmRekI6m+Gzo0/bcqI5UFsc +lf7EzQy/f3hzJ8GFAzIatsvn/czQ7/zlNSLiHHik8VHG95AZLrQ0isqNCQSt +v1UJjUIz7HOrCqgLDIBxrRxjcswM1ybFC+3b4QfdT9FaesIMLy0d2bNoix/U +h41ui5gyQ3WNZNv/oR9kkHb7jX+a4ea0aR1RdT/QMhMqrxYxRycV2hL2sC/4 +2+2hN8qaY+BqWnN5jC90BtmIdzLNMe7pAts5m51wh/vrw1SqOTLH9mfcZ3iD +8caIGfuT5phwbV0Wa6k3VH4YES86ZY4aJys62ya8gFTpM7HPNkebA4aT9Ide +UJ5Xf6rggjk+vL0r/NxuLyhKTzK14Znj0qKivTzSE05ELM/Ke2GOAVOZq6y3 +eYCnlRqaqzDR8aZ02tdGV5jvFJVoJJjoU2+i2cBzhSLOaK+9GhMToula5edd +4VPy3UjPv5lo0Japf2uvKxxo2VIRZcDErrN6P7OVXCFt8xGVO2wmamdPqSZE +uUC1+8v/jPYyMZbv6dEO20FxT8pd3Xom0sauWtz65QQZf3atO9nAxAnmtY2C +YScQzmYLPjcxkRRpma/udYKhqr9Ki1qYKLDFvZM1TlAtdDxP6gUTe56s9Ph9 +xAk8z8RHTn9k4u2/Wj7tWuAEeTVR6+4vZeHHrNCardJbYaVYqGCTGwsvVLyR +S7npCNyNR6PHPFio9zqldutZRzA4mrExx5uFHcmhYuuiHGHzGP9ltx8LQxRS +nTaBIyR3Tc0FhLLwS4CjbfVTB5i9EmcZncDCOFOp3vARe+gxz3lRUsbCVqGr +Jt0WdrD7IPeiHY+FPCO3Gx3qdjDNq+SM8Fk4HLPU/p2YHUgxumf0q1i4joZl +7Fe24CCqrHSvnoUz5yQmDPfbQm1nSeCLlyz0fmc5HllqA/YSd9Yc6mZh+rLK +gS+ZNtBt0zIt18vCxWlNbfsO28Bk9XCqz3sWzukds3hoYwNrLq+98XWIha+b +TpyK/cyG2p4Nh9K/sVBMscCkuIMN9jLbQG+MhcGukuz+22zYlXLw34gpFh4i +ttsUprJhsj45nzbLwiO89ytV97Mh8ee5gOqfLKTLsYUqPdiwwqhUZ8c8C5/M +xE36WrKhYE/11J8/LMw7nvueoc2G/wOSqAGv + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8lOv7B3DRKUnKkrF7ZogTIkuEGdeVGGsLZZdskzjSQgllK0uSLCmp +UA3fRGPmKSoUoUKhU5IoFdqQyF5H/Z7fX8/r/cfzurfr+tw33X+vM0dYSEhI +YYGQ0P9/p/tamtRPci3IZdXNe95YWnQWyEVt6E4EK+3FXM1NdMCVHf5y3dkg +PrCr54+jPhzaev2VSPcVEK/+WT3ouAEkR2nZc69IWNuxckO1oxO8q928d/JV +A8zEL/DRd/QDtvrQ2/FXzyFsW1a0iv1+mHtlkjv2qh9WZw5x325IgMaN/+P+ +e2UCdgVr3E57mQVK7+5+8teZh3leZZOWZj7IhO68vnijCLrmepm0TRdBtj67 +ZrOLKGr4ih8Z+8yF13lr68dXLMPuuDM2/uxrcJIb1yEsL4m9ijYtwyfKgHZm +4ETOJWmUjrGZatnCAzntyuOzJdLYdmIXzc6DBwoNyXE7+NJ4/YpMzwN/HqiM +rT6o2SiNhJcXs+ggD1Y57vOt+SKNX7trt624wAPDhfPGA4YyeG2Y0147yIMt +EbKDBq0y+IkbHQrhFZCy3c7i+fRKdDbo1PWy4IPCrXYF4QWy2PV+jldoyQee +9PYZ/aWyuGCd56b3bD50PffhZ6nKYkiJzoDLFj6oO0UwnGxl8byY4m4pXz40 +bCpc9Oy8LBKG+sefxfNhnj3V3sak4XWpyns+dXzILIkum2fTsPWAq4dGI/X/ +IqHUNU40PLlNc8nQIz44PhTbcIpDw0sXYricdj7kbyRuOmbQ0PqqRdOat3xY +jw7nnryjYXFuQdyCn3wIN728syVRDmddHn+vXCsA+yKJSYd0Odw28vjHY0MB +MBYfSW3PlUNto7CULmMBPOt0Fby4JoczoTmcr0wB6O4TF+lrl0Mllc7Jj7YC ++FISWfJDQR61/wrfaeYrAG+Zzd8Ub8qjd0Dk5a3pAjCMqUkoqJXHmyKu/ZMZ +AhDr/1uW/kgedzUYVuVmCeBuhQhovJZHDSc/WttZAcg63M1c+0ce9fb8aJC6 +TI2foG5k7aCAWXs/vZ27JQCr7z+jwwYUcKLOctv6HgFE2Z7RejCigNw8PUbg +GwHwLq/pkZ5WwKQX98rS+wQgt93X9K6oIrZ9L//+ol8AI3cezojoKmKBc9YG +82EB5CRmRpw/rIhNw4fYe34JoH+lRljTMiW8WPGl3VeeBNreOmUaTQnPPb4U +qa5IgmOze1swoYRhTaaDg0okVEWf1FluqITW8hli3gQJae/GhjzcldDwiiBX +TZMEg9KaoO9XlPD9N8M5mhEJCUwnP4X1yphXElaX50CCrU/BDxNLZdxs6aEp +vYkEifjhYy6OypgseafjxGYSLjYmlWT6KqPPkP7gP04k3LGvHl50Qhl5gzM6 +Im4kjLmrHZp4rYw3rrY1x/qRcDt632LJQWWMrOUn3PMnIfbivTzdUWX0cpNK +mg0gQfy9W02wsAp2BczvCdhFgmZQutB7LcqDIb3i/5Dgc3Aq7WmMChbSTOt5 +4SSsOmepNJSkgqy2y+FkBEnt3+kbizNVMDH3wRHyIAnR/61+ZslVwfNvlXL+ +F0lC7jGflXefqmBoAHzkxJDgXVxW0tWlgjFNLl6OR0hgPJ41mXyvgipla9bo +HSWBL5bjqTelgqklzM9fY0l4mvW4sFhZFdVlnrUaJpKQc1NGv1FTFbuPDRjN +U/Z86dfwXl8VRS+JLWg8RsIXuf8GFdmq2Nz7b8PGJBJEitZqZYepopS5kYhC +KgmtD47WVBxWRf+xp2ceUc4caHVsS1TF9lbJ03tPkKCiydkrek4V6xuEHlSl +kWDGO38rtk4Vg3NdDBROkWD1qn1+tFkV65YtvVhEebPQQpudz1Wx9JrVsFoG +CQHOYa/hoyqeJlRY9NMksGPocfF/EQjlJxumM0l4srz26noxAj/rxoYGZpGw +levaPCZBYLbevQUdlL3aTkr6yRHo3iU9np9Nwj7V6asbtAn898rUzLIzJEzd +zGye0yOw64icZADlaFvtbwIjAi2DExUrKSft9zVmWBA4FW6yeGsuCWKLfnn2 +WBLYGCU2lEc5Mz83LtuGwCW+Rg/6KOc3tjYLOxH45Td3i99ZElTdOd+qXQgU +r4wSLaDMHfkjGe5JIN/6wZ1XlLUS8o21dxK4OdvKT+IcCRUr13kNBBCYzmwT +tqRsdL0j7sJuAsniVQUHKFdbhHC37SFQeVTOqIhyU1Dht8ZDBPJchbb9oGz3 +n6nUkRgCg8Iy3srmkdCe2WlsFE9g7LZhznrK21ft9Ro5TuDv1x9HXCm/vrsk +nnuCwA9Zm8IPUPbZzOV6ZxB4+tGPuTTKg/0WLTI5BHrHliQUUQ6OfP3t6TkC +x6LMlt6kPLo0QirpIoFPDBPONVAOL5IwYV0msObdJs0OyrNGpV5TxQRuCYmo +6aYc27Ix/sZ1Al0Pt2x/R1nEp4/LqSDQaRdjsp9y6o/DLcq3CPxq45I/QFki +RXr05R0CQz+vt/1AOUeRJ5Vxj0CLh9zfvZTl+LYm7AYCt9L2339B+ZLVgNfv +RwTmNR9KbabMeH00vuoJgacOn95RTfnaHrnisGeUo3MtSimvEb7ZovGSwMCX +ATq5lMmzm0b7XhN4y7JLM5byeu0vUuf6CIzUbdEPpHyvLtFkywCB/1TJO9hQ +ttyu7L34C4EppcURmpQff7kdXzdC4OEUh4qFlB2POhdHjlP1ET/0q486n+eS +31r0pgksPeDvVUXZrSRl9PNPAlu+5bSnUX5jxpAu+kNgsK6vqzdl/45aE/eF +dIxQLZ3Qohw6Ox7fvIyOCnTmgTqqfsz275L9JEVHr1gP53jKokM9ZSJydDxq +lNfColzc29hlwaCjvtLSRB5VnxHb14d6a9KR5pz20I+yZVv5gmgdOnZ+rudK +Uu67n6tTaUxHjtWkWRBV/+UmYg3PzelY4LZxUvz/+4Mf6zaGdHzuN7qpIocE +2StBidoOdNzXvejzV6q/tiSZdl/eScd7F9f/a0z1n8rvG3vqAukYuNud94Dq +15FDDJG3wdR81tmus6OcunuprlwEHXuS/a03U/1d7/D2WEYqHRU5rMy1VB5k +NDnJl5+i462D2W+L0qm8Yz3itWTTUdg5oG8Z5TnditcLL9HxQaLPn7dUvhhI +JejFCOiYZWv0wZXKI6GTU015VXTk2veOlKdQ/SAS4llVQ0fVyXeVf5JJ+GfK +OWn8IR3Ve4STLlD5xu1W7w3qoeNq/nuzcioPZQubk7eLMHCMpU03pPJ1kMZS +OiDKQLnJ3fkuVP6SmQLB6WUMzNkb8DEimlp/Yv6bVhoDN7x4MFV6mFofJ9Rg +gw4DF5+4pT5K5fuc9oq+NS4MLNcN6n8XSsL0JYUEQ08GMmIjZV5S98Pk8lXq +pjsZGCiuav84hOqvCdMQq2AGZt53eHhlNwn9NQHTnkcZKCr6WcU4kMpfh9sS +qcUMfJRZENfhSdXfvQeCU9cZ2NZhlZTrQeWD3tPtORUM9NHWueruTsJ96Q/5 +BXcZ+Cv7t06XCzX/XjHNyjYGfok4e4m3lcqvf3ygf4qBlgrXFLusSTj3dnf/ +558MTP+uYRVmRcKZLeFJ3/5Q483r5ItspM7HMPXJ7BI1tN9n1LkKSUj8JXBb +rqKG+oG0Elszan9P/rWPyVbDEGudH6K6JDDLyovOnlXD5CjpjqPSJPQSZYXW +F9TQVW//qTeSVH2dLS2YLFTDxRqP5tevoO7bhJKLzqVqyKYPzw6JU+frXpQn +UauGzEK7KMNFJKz+60xm8gc13Mio4rrNUu+bnTHxh3TUkX5ar3WSer+MS9n7 +ujaoo44BO6jpvAC6QxnPQh6r4+mPkY3B5wRQ/+gnxD1Vx/UPKxvEcwWQGV2m +eq1LHdujT/AdMgWwtl/83dyQOt4vEj14I1kAYYKOHZekV+Hfk6K/F4QLYGiL +i9dg4Co8fslX+KedAAbTfV0PLNbAb2lG8rHjfLD7Hmn30VgT3TJtOU9M+DAS +IBp+K+5vjO9UdZUo41Hve5pwSsNq7JCp+OTeXA5SbRoZ/O9auPtTlLvF6HVQ +Sq3YamysgzXSS9cteXsN8rRNV0gHrcHEDeTyh19LoFVhw7qJLF201u9dIidS +DGZKDZl6XXp4fd9H5bL5KyAhciXCL3Et7ij+UHdR6zKoJKgyPTT00cakpl41 +owCWrPKucn6sj4vmPwkWLb8Auiz5isgdBmglt9DPTDgPDvRJNdoLGaLeoS7b +vT/OwPeJdBe7PEN0Dze6+3xbNtjoPcq3W2OECr8nrHVmT8P9CfNfM+1G2D+n +s0vD/ySE6Rj0/MtZh3cK1cY/ZqQAazSw02OJMRoI8vOI/mNgrS63adkVY5yV +WT9+oC8e/o5PO9xgYoK3ls1s/nzqCGhxTOtW9Zjg3Mw+3S83IoFzf/fxW/vX +4/ah5L6DTeFQV9QZOL7SFF/l6yS80NgHk9f+zOjdNsVh2h3Fp84h8MmVXXTi +rilOinrDbosQ6F54ynagxhRDK0sGJLVCoMZX4fzZelPMcqjOPrUgBBLl1pnN +t5jiI/s/rasEwbAiNeRI6xtTrJ29f/2FVDDoBL0U4gibofHAwjtT74IgYFXZ +kvxNZjghmRX2tpAD0Q99QjS2muER/4Jr+qc4kMmRekI6m+Gzo0/bcqI5UFsc +lf7EzQy/f3hzJ8GFAzIatsvn/czQ7/zlNSLiHHik8VHG95AZLrQ0isqNCQSt +v1UJjUIz7HOrCqgLDIBxrRxjcswM1ybFC+3b4QfdT9FaesIMLy0d2bNoix/U +h41ui5gyQ3WNZNv/oR9kkHb7jX+a4ea0aR1RdT/QMhMqrxYxRycV2hL2sC/4 +2+2hN8qaY+BqWnN5jC90BtmIdzLNMe7pAts5m51wh/vrw1SqOTLH9mfcZ3iD +8caIGfuT5phwbV0Wa6k3VH4YES86ZY4aJys62ya8gFTpM7HPNkebA4aT9Ide +UJ5Xf6rggjk+vL0r/NxuLyhKTzK14Znj0qKivTzSE05ELM/Ke2GOAVOZq6y3 +eYCnlRqaqzDR8aZ02tdGV5jvFJVoJJjoU2+i2cBzhSLOaK+9GhMToula5edd +4VPy3UjPv5lo0Japf2uvKxxo2VIRZcDErrN6P7OVXCFt8xGVO2wmamdPqSZE +uUC1+8v/jPYyMZbv6dEO20FxT8pd3Xom0sauWtz65QQZf3atO9nAxAnmtY2C +YScQzmYLPjcxkRRpma/udYKhqr9Ki1qYKLDFvZM1TlAtdDxP6gUTe56s9Ph9 +xAk8z8RHTn9k4u2/Wj7tWuAEeTVR6+4vZeHHrNCardJbYaVYqGCTGwsvVLyR +S7npCNyNR6PHPFio9zqldutZRzA4mrExx5uFHcmhYuuiHGHzGP9ltx8LQxRS +nTaBIyR3Tc0FhLLwS4CjbfVTB5i9EmcZncDCOFOp3vARe+gxz3lRUsbCVqGr +Jt0WdrD7IPeiHY+FPCO3Gx3qdjDNq+SM8Fk4HLPU/p2YHUgxumf0q1i4joZl +7Fe24CCqrHSvnoUz5yQmDPfbQm1nSeCLlyz0fmc5HllqA/YSd9Yc6mZh+rLK +gS+ZNtBt0zIt18vCxWlNbfsO28Bk9XCqz3sWzukds3hoYwNrLq+98XWIha+b +TpyK/cyG2p4Nh9K/sVBMscCkuIMN9jLbQG+MhcGukuz+22zYlXLw34gpFh4i +ttsUprJhsj45nzbLwiO89ytV97Mh8ee5gOqfLKTLsYUqPdiwwqhUZ8c8C5/M +xE36WrKhYE/11J8/LMw7nvueoc2G/wOSqAGv + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07264540212534566}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07264540212534566}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8lOv7B3DRKUnKkrF7ZogTIkuEGdeVGGsLZZdskzjSQgllK0uSLCmp +UA3fRGPmKSoUoUKhU5IoFdqQyF5H/Z7fX8/r/cfzurfr+tw33X+vM0dYSEhI +YYGQ0P9/p/tamtRPci3IZdXNe95YWnQWyEVt6E4EK+3FXM1NdMCVHf5y3dkg +PrCr54+jPhzaev2VSPcVEK/+WT3ouAEkR2nZc69IWNuxckO1oxO8q928d/JV +A8zEL/DRd/QDtvrQ2/FXzyFsW1a0iv1+mHtlkjv2qh9WZw5x325IgMaN/+P+ +e2UCdgVr3E57mQVK7+5+8teZh3leZZOWZj7IhO68vnijCLrmepm0TRdBtj67 +ZrOLKGr4ih8Z+8yF13lr68dXLMPuuDM2/uxrcJIb1yEsL4m9ijYtwyfKgHZm +4ETOJWmUjrGZatnCAzntyuOzJdLYdmIXzc6DBwoNyXE7+NJ4/YpMzwN/HqiM +rT6o2SiNhJcXs+ggD1Y57vOt+SKNX7trt624wAPDhfPGA4YyeG2Y0147yIMt +EbKDBq0y+IkbHQrhFZCy3c7i+fRKdDbo1PWy4IPCrXYF4QWy2PV+jldoyQee +9PYZ/aWyuGCd56b3bD50PffhZ6nKYkiJzoDLFj6oO0UwnGxl8byY4m4pXz40 +bCpc9Oy8LBKG+sefxfNhnj3V3sak4XWpyns+dXzILIkum2fTsPWAq4dGI/X/ +IqHUNU40PLlNc8nQIz44PhTbcIpDw0sXYricdj7kbyRuOmbQ0PqqRdOat3xY +jw7nnryjYXFuQdyCn3wIN728syVRDmddHn+vXCsA+yKJSYd0Odw28vjHY0MB +MBYfSW3PlUNto7CULmMBPOt0Fby4JoczoTmcr0wB6O4TF+lrl0Mllc7Jj7YC ++FISWfJDQR61/wrfaeYrAG+Zzd8Ub8qjd0Dk5a3pAjCMqUkoqJXHmyKu/ZMZ +AhDr/1uW/kgedzUYVuVmCeBuhQhovJZHDSc/WttZAcg63M1c+0ce9fb8aJC6 +TI2foG5k7aCAWXs/vZ27JQCr7z+jwwYUcKLOctv6HgFE2Z7RejCigNw8PUbg +GwHwLq/pkZ5WwKQX98rS+wQgt93X9K6oIrZ9L//+ol8AI3cezojoKmKBc9YG +82EB5CRmRpw/rIhNw4fYe34JoH+lRljTMiW8WPGl3VeeBNreOmUaTQnPPb4U +qa5IgmOze1swoYRhTaaDg0okVEWf1FluqITW8hli3gQJae/GhjzcldDwiiBX +TZMEg9KaoO9XlPD9N8M5mhEJCUwnP4X1yphXElaX50CCrU/BDxNLZdxs6aEp +vYkEifjhYy6OypgseafjxGYSLjYmlWT6KqPPkP7gP04k3LGvHl50Qhl5gzM6 +Im4kjLmrHZp4rYw3rrY1x/qRcDt632LJQWWMrOUn3PMnIfbivTzdUWX0cpNK +mg0gQfy9W02wsAp2BczvCdhFgmZQutB7LcqDIb3i/5Dgc3Aq7WmMChbSTOt5 +4SSsOmepNJSkgqy2y+FkBEnt3+kbizNVMDH3wRHyIAnR/61+ZslVwfNvlXL+ +F0lC7jGflXefqmBoAHzkxJDgXVxW0tWlgjFNLl6OR0hgPJ41mXyvgipla9bo +HSWBL5bjqTelgqklzM9fY0l4mvW4sFhZFdVlnrUaJpKQc1NGv1FTFbuPDRjN +U/Z86dfwXl8VRS+JLWg8RsIXuf8GFdmq2Nz7b8PGJBJEitZqZYepopS5kYhC +KgmtD47WVBxWRf+xp2ceUc4caHVsS1TF9lbJ03tPkKCiydkrek4V6xuEHlSl +kWDGO38rtk4Vg3NdDBROkWD1qn1+tFkV65YtvVhEebPQQpudz1Wx9JrVsFoG +CQHOYa/hoyqeJlRY9NMksGPocfF/EQjlJxumM0l4srz26noxAj/rxoYGZpGw +levaPCZBYLbevQUdlL3aTkr6yRHo3iU9np9Nwj7V6asbtAn898rUzLIzJEzd +zGye0yOw64icZADlaFvtbwIjAi2DExUrKSft9zVmWBA4FW6yeGsuCWKLfnn2 +WBLYGCU2lEc5Mz83LtuGwCW+Rg/6KOc3tjYLOxH45Td3i99ZElTdOd+qXQgU +r4wSLaDMHfkjGe5JIN/6wZ1XlLUS8o21dxK4OdvKT+IcCRUr13kNBBCYzmwT +tqRsdL0j7sJuAsniVQUHKFdbhHC37SFQeVTOqIhyU1Dht8ZDBPJchbb9oGz3 +n6nUkRgCg8Iy3srmkdCe2WlsFE9g7LZhznrK21ft9Ro5TuDv1x9HXCm/vrsk +nnuCwA9Zm8IPUPbZzOV6ZxB4+tGPuTTKg/0WLTI5BHrHliQUUQ6OfP3t6TkC +x6LMlt6kPLo0QirpIoFPDBPONVAOL5IwYV0msObdJs0OyrNGpV5TxQRuCYmo +6aYc27Ix/sZ1Al0Pt2x/R1nEp4/LqSDQaRdjsp9y6o/DLcq3CPxq45I/QFki +RXr05R0CQz+vt/1AOUeRJ5Vxj0CLh9zfvZTl+LYm7AYCt9L2339B+ZLVgNfv +RwTmNR9KbabMeH00vuoJgacOn95RTfnaHrnisGeUo3MtSimvEb7ZovGSwMCX +ATq5lMmzm0b7XhN4y7JLM5byeu0vUuf6CIzUbdEPpHyvLtFkywCB/1TJO9hQ +ttyu7L34C4EppcURmpQff7kdXzdC4OEUh4qFlB2POhdHjlP1ET/0q486n+eS +31r0pgksPeDvVUXZrSRl9PNPAlu+5bSnUX5jxpAu+kNgsK6vqzdl/45aE/eF +dIxQLZ3Qohw6Ox7fvIyOCnTmgTqqfsz275L9JEVHr1gP53jKokM9ZSJydDxq +lNfColzc29hlwaCjvtLSRB5VnxHb14d6a9KR5pz20I+yZVv5gmgdOnZ+rudK +Uu67n6tTaUxHjtWkWRBV/+UmYg3PzelY4LZxUvz/+4Mf6zaGdHzuN7qpIocE +2StBidoOdNzXvejzV6q/tiSZdl/eScd7F9f/a0z1n8rvG3vqAukYuNud94Dq +15FDDJG3wdR81tmus6OcunuprlwEHXuS/a03U/1d7/D2WEYqHRU5rMy1VB5k +NDnJl5+i462D2W+L0qm8Yz3itWTTUdg5oG8Z5TnditcLL9HxQaLPn7dUvhhI +JejFCOiYZWv0wZXKI6GTU015VXTk2veOlKdQ/SAS4llVQ0fVyXeVf5JJ+GfK +OWn8IR3Ve4STLlD5xu1W7w3qoeNq/nuzcioPZQubk7eLMHCMpU03pPJ1kMZS +OiDKQLnJ3fkuVP6SmQLB6WUMzNkb8DEimlp/Yv6bVhoDN7x4MFV6mFofJ9Rg +gw4DF5+4pT5K5fuc9oq+NS4MLNcN6n8XSsL0JYUEQ08GMmIjZV5S98Pk8lXq +pjsZGCiuav84hOqvCdMQq2AGZt53eHhlNwn9NQHTnkcZKCr6WcU4kMpfh9sS +qcUMfJRZENfhSdXfvQeCU9cZ2NZhlZTrQeWD3tPtORUM9NHWueruTsJ96Q/5 +BXcZ+Cv7t06XCzX/XjHNyjYGfok4e4m3lcqvf3ygf4qBlgrXFLusSTj3dnf/ +558MTP+uYRVmRcKZLeFJ3/5Q483r5ItspM7HMPXJ7BI1tN9n1LkKSUj8JXBb +rqKG+oG0Elszan9P/rWPyVbDEGudH6K6JDDLyovOnlXD5CjpjqPSJPQSZYXW +F9TQVW//qTeSVH2dLS2YLFTDxRqP5tevoO7bhJKLzqVqyKYPzw6JU+frXpQn +UauGzEK7KMNFJKz+60xm8gc13Mio4rrNUu+bnTHxh3TUkX5ar3WSer+MS9n7 +ujaoo44BO6jpvAC6QxnPQh6r4+mPkY3B5wRQ/+gnxD1Vx/UPKxvEcwWQGV2m +eq1LHdujT/AdMgWwtl/83dyQOt4vEj14I1kAYYKOHZekV+Hfk6K/F4QLYGiL +i9dg4Co8fslX+KedAAbTfV0PLNbAb2lG8rHjfLD7Hmn30VgT3TJtOU9M+DAS +IBp+K+5vjO9UdZUo41Hve5pwSsNq7JCp+OTeXA5SbRoZ/O9auPtTlLvF6HVQ +Sq3YamysgzXSS9cteXsN8rRNV0gHrcHEDeTyh19LoFVhw7qJLF201u9dIidS +DGZKDZl6XXp4fd9H5bL5KyAhciXCL3Et7ij+UHdR6zKoJKgyPTT00cakpl41 +owCWrPKucn6sj4vmPwkWLb8Auiz5isgdBmglt9DPTDgPDvRJNdoLGaLeoS7b +vT/OwPeJdBe7PEN0Dze6+3xbNtjoPcq3W2OECr8nrHVmT8P9CfNfM+1G2D+n +s0vD/ySE6Rj0/MtZh3cK1cY/ZqQAazSw02OJMRoI8vOI/mNgrS63adkVY5yV +WT9+oC8e/o5PO9xgYoK3ls1s/nzqCGhxTOtW9Zjg3Mw+3S83IoFzf/fxW/vX +4/ah5L6DTeFQV9QZOL7SFF/l6yS80NgHk9f+zOjdNsVh2h3Fp84h8MmVXXTi +rilOinrDbosQ6F54ynagxhRDK0sGJLVCoMZX4fzZelPMcqjOPrUgBBLl1pnN +t5jiI/s/rasEwbAiNeRI6xtTrJ29f/2FVDDoBL0U4gibofHAwjtT74IgYFXZ +kvxNZjghmRX2tpAD0Q99QjS2muER/4Jr+qc4kMmRekI6m+Gzo0/bcqI5UFsc +lf7EzQy/f3hzJ8GFAzIatsvn/czQ7/zlNSLiHHik8VHG95AZLrQ0isqNCQSt +v1UJjUIz7HOrCqgLDIBxrRxjcswM1ybFC+3b4QfdT9FaesIMLy0d2bNoix/U +h41ui5gyQ3WNZNv/oR9kkHb7jX+a4ea0aR1RdT/QMhMqrxYxRycV2hL2sC/4 +2+2hN8qaY+BqWnN5jC90BtmIdzLNMe7pAts5m51wh/vrw1SqOTLH9mfcZ3iD +8caIGfuT5phwbV0Wa6k3VH4YES86ZY4aJys62ya8gFTpM7HPNkebA4aT9Ide +UJ5Xf6rggjk+vL0r/NxuLyhKTzK14Znj0qKivTzSE05ELM/Ke2GOAVOZq6y3 +eYCnlRqaqzDR8aZ02tdGV5jvFJVoJJjoU2+i2cBzhSLOaK+9GhMToula5edd +4VPy3UjPv5lo0Japf2uvKxxo2VIRZcDErrN6P7OVXCFt8xGVO2wmamdPqSZE +uUC1+8v/jPYyMZbv6dEO20FxT8pd3Xom0sauWtz65QQZf3atO9nAxAnmtY2C +YScQzmYLPjcxkRRpma/udYKhqr9Ki1qYKLDFvZM1TlAtdDxP6gUTe56s9Ph9 +xAk8z8RHTn9k4u2/Wj7tWuAEeTVR6+4vZeHHrNCardJbYaVYqGCTGwsvVLyR +S7npCNyNR6PHPFio9zqldutZRzA4mrExx5uFHcmhYuuiHGHzGP9ltx8LQxRS +nTaBIyR3Tc0FhLLwS4CjbfVTB5i9EmcZncDCOFOp3vARe+gxz3lRUsbCVqGr +Jt0WdrD7IPeiHY+FPCO3Gx3qdjDNq+SM8Fk4HLPU/p2YHUgxumf0q1i4joZl +7Fe24CCqrHSvnoUz5yQmDPfbQm1nSeCLlyz0fmc5HllqA/YSd9Yc6mZh+rLK +gS+ZNtBt0zIt18vCxWlNbfsO28Bk9XCqz3sWzukds3hoYwNrLq+98XWIha+b +TpyK/cyG2p4Nh9K/sVBMscCkuIMN9jLbQG+MhcGukuz+22zYlXLw34gpFh4i +ttsUprJhsj45nzbLwiO89ytV97Mh8ee5gOqfLKTLsYUqPdiwwqhUZ8c8C5/M +xE36WrKhYE/11J8/LMw7nvueoc2G/wOSqAGv + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07264540212534566}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07264540212534566}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99425955255926*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"4cf8db7c-468d-4aaf-aad6-2654f287889a"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"2335a158-7588-4c40-bdb5-\ -53b7ef04b97c"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk8lOv7B3DRKUnKkrF7ZogTIkuEGdeVGGsLZZdskzjSQgllK0uSLCmp +UA3fRGPmKSoUoUKhU5IoFdqQyF5H/Z7fX8/r/cfzurfr+tw33X+vM0dYSEhI +YYGQ0P9/p/tamtRPci3IZdXNe95YWnQWyEVt6E4EK+3FXM1NdMCVHf5y3dkg +PrCr54+jPhzaev2VSPcVEK/+WT3ouAEkR2nZc69IWNuxckO1oxO8q928d/JV +A8zEL/DRd/QDtvrQ2/FXzyFsW1a0iv1+mHtlkjv2qh9WZw5x325IgMaN/+P+ +e2UCdgVr3E57mQVK7+5+8teZh3leZZOWZj7IhO68vnijCLrmepm0TRdBtj67 +ZrOLKGr4ih8Z+8yF13lr68dXLMPuuDM2/uxrcJIb1yEsL4m9ijYtwyfKgHZm +4ETOJWmUjrGZatnCAzntyuOzJdLYdmIXzc6DBwoNyXE7+NJ4/YpMzwN/HqiM +rT6o2SiNhJcXs+ggD1Y57vOt+SKNX7trt624wAPDhfPGA4YyeG2Y0147yIMt +EbKDBq0y+IkbHQrhFZCy3c7i+fRKdDbo1PWy4IPCrXYF4QWy2PV+jldoyQee +9PYZ/aWyuGCd56b3bD50PffhZ6nKYkiJzoDLFj6oO0UwnGxl8byY4m4pXz40 +bCpc9Oy8LBKG+sefxfNhnj3V3sak4XWpyns+dXzILIkum2fTsPWAq4dGI/X/ +IqHUNU40PLlNc8nQIz44PhTbcIpDw0sXYricdj7kbyRuOmbQ0PqqRdOat3xY +jw7nnryjYXFuQdyCn3wIN728syVRDmddHn+vXCsA+yKJSYd0Odw28vjHY0MB +MBYfSW3PlUNto7CULmMBPOt0Fby4JoczoTmcr0wB6O4TF+lrl0Mllc7Jj7YC ++FISWfJDQR61/wrfaeYrAG+Zzd8Ub8qjd0Dk5a3pAjCMqUkoqJXHmyKu/ZMZ +AhDr/1uW/kgedzUYVuVmCeBuhQhovJZHDSc/WttZAcg63M1c+0ce9fb8aJC6 +TI2foG5k7aCAWXs/vZ27JQCr7z+jwwYUcKLOctv6HgFE2Z7RejCigNw8PUbg +GwHwLq/pkZ5WwKQX98rS+wQgt93X9K6oIrZ9L//+ol8AI3cezojoKmKBc9YG +82EB5CRmRpw/rIhNw4fYe34JoH+lRljTMiW8WPGl3VeeBNreOmUaTQnPPb4U +qa5IgmOze1swoYRhTaaDg0okVEWf1FluqITW8hli3gQJae/GhjzcldDwiiBX +TZMEg9KaoO9XlPD9N8M5mhEJCUwnP4X1yphXElaX50CCrU/BDxNLZdxs6aEp +vYkEifjhYy6OypgseafjxGYSLjYmlWT6KqPPkP7gP04k3LGvHl50Qhl5gzM6 +Im4kjLmrHZp4rYw3rrY1x/qRcDt632LJQWWMrOUn3PMnIfbivTzdUWX0cpNK +mg0gQfy9W02wsAp2BczvCdhFgmZQutB7LcqDIb3i/5Dgc3Aq7WmMChbSTOt5 +4SSsOmepNJSkgqy2y+FkBEnt3+kbizNVMDH3wRHyIAnR/61+ZslVwfNvlXL+ +F0lC7jGflXefqmBoAHzkxJDgXVxW0tWlgjFNLl6OR0hgPJ41mXyvgipla9bo +HSWBL5bjqTelgqklzM9fY0l4mvW4sFhZFdVlnrUaJpKQc1NGv1FTFbuPDRjN +U/Z86dfwXl8VRS+JLWg8RsIXuf8GFdmq2Nz7b8PGJBJEitZqZYepopS5kYhC +KgmtD47WVBxWRf+xp2ceUc4caHVsS1TF9lbJ03tPkKCiydkrek4V6xuEHlSl +kWDGO38rtk4Vg3NdDBROkWD1qn1+tFkV65YtvVhEebPQQpudz1Wx9JrVsFoG +CQHOYa/hoyqeJlRY9NMksGPocfF/EQjlJxumM0l4srz26noxAj/rxoYGZpGw +levaPCZBYLbevQUdlL3aTkr6yRHo3iU9np9Nwj7V6asbtAn898rUzLIzJEzd +zGye0yOw64icZADlaFvtbwIjAi2DExUrKSft9zVmWBA4FW6yeGsuCWKLfnn2 +WBLYGCU2lEc5Mz83LtuGwCW+Rg/6KOc3tjYLOxH45Td3i99ZElTdOd+qXQgU +r4wSLaDMHfkjGe5JIN/6wZ1XlLUS8o21dxK4OdvKT+IcCRUr13kNBBCYzmwT +tqRsdL0j7sJuAsniVQUHKFdbhHC37SFQeVTOqIhyU1Dht8ZDBPJchbb9oGz3 +n6nUkRgCg8Iy3srmkdCe2WlsFE9g7LZhznrK21ft9Ro5TuDv1x9HXCm/vrsk +nnuCwA9Zm8IPUPbZzOV6ZxB4+tGPuTTKg/0WLTI5BHrHliQUUQ6OfP3t6TkC +x6LMlt6kPLo0QirpIoFPDBPONVAOL5IwYV0msObdJs0OyrNGpV5TxQRuCYmo +6aYc27Ix/sZ1Al0Pt2x/R1nEp4/LqSDQaRdjsp9y6o/DLcq3CPxq45I/QFki +RXr05R0CQz+vt/1AOUeRJ5Vxj0CLh9zfvZTl+LYm7AYCt9L2339B+ZLVgNfv +RwTmNR9KbabMeH00vuoJgacOn95RTfnaHrnisGeUo3MtSimvEb7ZovGSwMCX +ATq5lMmzm0b7XhN4y7JLM5byeu0vUuf6CIzUbdEPpHyvLtFkywCB/1TJO9hQ +ttyu7L34C4EppcURmpQff7kdXzdC4OEUh4qFlB2POhdHjlP1ET/0q486n+eS +31r0pgksPeDvVUXZrSRl9PNPAlu+5bSnUX5jxpAu+kNgsK6vqzdl/45aE/eF +dIxQLZ3Qohw6Ox7fvIyOCnTmgTqqfsz275L9JEVHr1gP53jKokM9ZSJydDxq +lNfColzc29hlwaCjvtLSRB5VnxHb14d6a9KR5pz20I+yZVv5gmgdOnZ+rudK +Uu67n6tTaUxHjtWkWRBV/+UmYg3PzelY4LZxUvz/+4Mf6zaGdHzuN7qpIocE +2StBidoOdNzXvejzV6q/tiSZdl/eScd7F9f/a0z1n8rvG3vqAukYuNud94Dq +15FDDJG3wdR81tmus6OcunuprlwEHXuS/a03U/1d7/D2WEYqHRU5rMy1VB5k +NDnJl5+i462D2W+L0qm8Yz3itWTTUdg5oG8Z5TnditcLL9HxQaLPn7dUvhhI +JejFCOiYZWv0wZXKI6GTU015VXTk2veOlKdQ/SAS4llVQ0fVyXeVf5JJ+GfK +OWn8IR3Ve4STLlD5xu1W7w3qoeNq/nuzcioPZQubk7eLMHCMpU03pPJ1kMZS +OiDKQLnJ3fkuVP6SmQLB6WUMzNkb8DEimlp/Yv6bVhoDN7x4MFV6mFofJ9Rg +gw4DF5+4pT5K5fuc9oq+NS4MLNcN6n8XSsL0JYUEQ08GMmIjZV5S98Pk8lXq +pjsZGCiuav84hOqvCdMQq2AGZt53eHhlNwn9NQHTnkcZKCr6WcU4kMpfh9sS +qcUMfJRZENfhSdXfvQeCU9cZ2NZhlZTrQeWD3tPtORUM9NHWueruTsJ96Q/5 +BXcZ+Cv7t06XCzX/XjHNyjYGfok4e4m3lcqvf3ygf4qBlgrXFLusSTj3dnf/ +558MTP+uYRVmRcKZLeFJ3/5Q483r5ItspM7HMPXJ7BI1tN9n1LkKSUj8JXBb +rqKG+oG0Elszan9P/rWPyVbDEGudH6K6JDDLyovOnlXD5CjpjqPSJPQSZYXW +F9TQVW//qTeSVH2dLS2YLFTDxRqP5tevoO7bhJKLzqVqyKYPzw6JU+frXpQn +UauGzEK7KMNFJKz+60xm8gc13Mio4rrNUu+bnTHxh3TUkX5ar3WSer+MS9n7 +ujaoo44BO6jpvAC6QxnPQh6r4+mPkY3B5wRQ/+gnxD1Vx/UPKxvEcwWQGV2m +eq1LHdujT/AdMgWwtl/83dyQOt4vEj14I1kAYYKOHZekV+Hfk6K/F4QLYGiL +i9dg4Co8fslX+KedAAbTfV0PLNbAb2lG8rHjfLD7Hmn30VgT3TJtOU9M+DAS +IBp+K+5vjO9UdZUo41Hve5pwSsNq7JCp+OTeXA5SbRoZ/O9auPtTlLvF6HVQ +Sq3YamysgzXSS9cteXsN8rRNV0gHrcHEDeTyh19LoFVhw7qJLF201u9dIidS +DGZKDZl6XXp4fd9H5bL5KyAhciXCL3Et7ij+UHdR6zKoJKgyPTT00cakpl41 +owCWrPKucn6sj4vmPwkWLb8Auiz5isgdBmglt9DPTDgPDvRJNdoLGaLeoS7b +vT/OwPeJdBe7PEN0Dze6+3xbNtjoPcq3W2OECr8nrHVmT8P9CfNfM+1G2D+n +s0vD/ySE6Rj0/MtZh3cK1cY/ZqQAazSw02OJMRoI8vOI/mNgrS63adkVY5yV +WT9+oC8e/o5PO9xgYoK3ls1s/nzqCGhxTOtW9Zjg3Mw+3S83IoFzf/fxW/vX +4/ah5L6DTeFQV9QZOL7SFF/l6yS80NgHk9f+zOjdNsVh2h3Fp84h8MmVXXTi +rilOinrDbosQ6F54ynagxhRDK0sGJLVCoMZX4fzZelPMcqjOPrUgBBLl1pnN +t5jiI/s/rasEwbAiNeRI6xtTrJ29f/2FVDDoBL0U4gibofHAwjtT74IgYFXZ +kvxNZjghmRX2tpAD0Q99QjS2muER/4Jr+qc4kMmRekI6m+Gzo0/bcqI5UFsc +lf7EzQy/f3hzJ8GFAzIatsvn/czQ7/zlNSLiHHik8VHG95AZLrQ0isqNCQSt +v1UJjUIz7HOrCqgLDIBxrRxjcswM1ybFC+3b4QfdT9FaesIMLy0d2bNoix/U +h41ui5gyQ3WNZNv/oR9kkHb7jX+a4ea0aR1RdT/QMhMqrxYxRycV2hL2sC/4 +2+2hN8qaY+BqWnN5jC90BtmIdzLNMe7pAts5m51wh/vrw1SqOTLH9mfcZ3iD +8caIGfuT5phwbV0Wa6k3VH4YES86ZY4aJys62ya8gFTpM7HPNkebA4aT9Ide +UJ5Xf6rggjk+vL0r/NxuLyhKTzK14Znj0qKivTzSE05ELM/Ke2GOAVOZq6y3 +eYCnlRqaqzDR8aZ02tdGV5jvFJVoJJjoU2+i2cBzhSLOaK+9GhMToula5edd +4VPy3UjPv5lo0Japf2uvKxxo2VIRZcDErrN6P7OVXCFt8xGVO2wmamdPqSZE +uUC1+8v/jPYyMZbv6dEO20FxT8pd3Xom0sauWtz65QQZf3atO9nAxAnmtY2C +YScQzmYLPjcxkRRpma/udYKhqr9Ki1qYKLDFvZM1TlAtdDxP6gUTe56s9Ph9 +xAk8z8RHTn9k4u2/Wj7tWuAEeTVR6+4vZeHHrNCardJbYaVYqGCTGwsvVLyR +S7npCNyNR6PHPFio9zqldutZRzA4mrExx5uFHcmhYuuiHGHzGP9ltx8LQxRS +nTaBIyR3Tc0FhLLwS4CjbfVTB5i9EmcZncDCOFOp3vARe+gxz3lRUsbCVqGr +Jt0WdrD7IPeiHY+FPCO3Gx3qdjDNq+SM8Fk4HLPU/p2YHUgxumf0q1i4joZl +7Fe24CCqrHSvnoUz5yQmDPfbQm1nSeCLlyz0fmc5HllqA/YSd9Yc6mZh+rLK +gS+ZNtBt0zIt18vCxWlNbfsO28Bk9XCqz3sWzukds3hoYwNrLq+98XWIha+b +TpyK/cyG2p4Nh9K/sVBMscCkuIMN9jLbQG+MhcGukuz+22zYlXLw34gpFh4i +ttsUprJhsj45nzbLwiO89ytV97Mh8ee5gOqfLKTLsYUqPdiwwqhUZ8c8C5/M +xE36WrKhYE/11J8/LMw7nvueoc2G/wOSqAGv + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8lOv7B3DRKUnKkrF7ZogTIkuEGdeVGGsLZZdskzjSQgllK0uSLCmp +UA3fRGPmKSoUoUKhU5IoFdqQyF5H/Z7fX8/r/cfzurfr+tw33X+vM0dYSEhI +YYGQ0P9/p/tamtRPci3IZdXNe95YWnQWyEVt6E4EK+3FXM1NdMCVHf5y3dkg +PrCr54+jPhzaev2VSPcVEK/+WT3ouAEkR2nZc69IWNuxckO1oxO8q928d/JV +A8zEL/DRd/QDtvrQ2/FXzyFsW1a0iv1+mHtlkjv2qh9WZw5x325IgMaN/+P+ +e2UCdgVr3E57mQVK7+5+8teZh3leZZOWZj7IhO68vnijCLrmepm0TRdBtj67 +ZrOLKGr4ih8Z+8yF13lr68dXLMPuuDM2/uxrcJIb1yEsL4m9ijYtwyfKgHZm +4ETOJWmUjrGZatnCAzntyuOzJdLYdmIXzc6DBwoNyXE7+NJ4/YpMzwN/HqiM +rT6o2SiNhJcXs+ggD1Y57vOt+SKNX7trt624wAPDhfPGA4YyeG2Y0147yIMt +EbKDBq0y+IkbHQrhFZCy3c7i+fRKdDbo1PWy4IPCrXYF4QWy2PV+jldoyQee +9PYZ/aWyuGCd56b3bD50PffhZ6nKYkiJzoDLFj6oO0UwnGxl8byY4m4pXz40 +bCpc9Oy8LBKG+sefxfNhnj3V3sak4XWpyns+dXzILIkum2fTsPWAq4dGI/X/ +IqHUNU40PLlNc8nQIz44PhTbcIpDw0sXYricdj7kbyRuOmbQ0PqqRdOat3xY +jw7nnryjYXFuQdyCn3wIN728syVRDmddHn+vXCsA+yKJSYd0Odw28vjHY0MB +MBYfSW3PlUNto7CULmMBPOt0Fby4JoczoTmcr0wB6O4TF+lrl0Mllc7Jj7YC ++FISWfJDQR61/wrfaeYrAG+Zzd8Ub8qjd0Dk5a3pAjCMqUkoqJXHmyKu/ZMZ +AhDr/1uW/kgedzUYVuVmCeBuhQhovJZHDSc/WttZAcg63M1c+0ce9fb8aJC6 +TI2foG5k7aCAWXs/vZ27JQCr7z+jwwYUcKLOctv6HgFE2Z7RejCigNw8PUbg +GwHwLq/pkZ5WwKQX98rS+wQgt93X9K6oIrZ9L//+ol8AI3cezojoKmKBc9YG +82EB5CRmRpw/rIhNw4fYe34JoH+lRljTMiW8WPGl3VeeBNreOmUaTQnPPb4U +qa5IgmOze1swoYRhTaaDg0okVEWf1FluqITW8hli3gQJae/GhjzcldDwiiBX +TZMEg9KaoO9XlPD9N8M5mhEJCUwnP4X1yphXElaX50CCrU/BDxNLZdxs6aEp +vYkEifjhYy6OypgseafjxGYSLjYmlWT6KqPPkP7gP04k3LGvHl50Qhl5gzM6 +Im4kjLmrHZp4rYw3rrY1x/qRcDt632LJQWWMrOUn3PMnIfbivTzdUWX0cpNK +mg0gQfy9W02wsAp2BczvCdhFgmZQutB7LcqDIb3i/5Dgc3Aq7WmMChbSTOt5 +4SSsOmepNJSkgqy2y+FkBEnt3+kbizNVMDH3wRHyIAnR/61+ZslVwfNvlXL+ +F0lC7jGflXefqmBoAHzkxJDgXVxW0tWlgjFNLl6OR0hgPJ41mXyvgipla9bo +HSWBL5bjqTelgqklzM9fY0l4mvW4sFhZFdVlnrUaJpKQc1NGv1FTFbuPDRjN +U/Z86dfwXl8VRS+JLWg8RsIXuf8GFdmq2Nz7b8PGJBJEitZqZYepopS5kYhC +KgmtD47WVBxWRf+xp2ceUc4caHVsS1TF9lbJ03tPkKCiydkrek4V6xuEHlSl +kWDGO38rtk4Vg3NdDBROkWD1qn1+tFkV65YtvVhEebPQQpudz1Wx9JrVsFoG +CQHOYa/hoyqeJlRY9NMksGPocfF/EQjlJxumM0l4srz26noxAj/rxoYGZpGw +levaPCZBYLbevQUdlL3aTkr6yRHo3iU9np9Nwj7V6asbtAn898rUzLIzJEzd +zGye0yOw64icZADlaFvtbwIjAi2DExUrKSft9zVmWBA4FW6yeGsuCWKLfnn2 +WBLYGCU2lEc5Mz83LtuGwCW+Rg/6KOc3tjYLOxH45Td3i99ZElTdOd+qXQgU +r4wSLaDMHfkjGe5JIN/6wZ1XlLUS8o21dxK4OdvKT+IcCRUr13kNBBCYzmwT +tqRsdL0j7sJuAsniVQUHKFdbhHC37SFQeVTOqIhyU1Dht8ZDBPJchbb9oGz3 +n6nUkRgCg8Iy3srmkdCe2WlsFE9g7LZhznrK21ft9Ro5TuDv1x9HXCm/vrsk +nnuCwA9Zm8IPUPbZzOV6ZxB4+tGPuTTKg/0WLTI5BHrHliQUUQ6OfP3t6TkC +x6LMlt6kPLo0QirpIoFPDBPONVAOL5IwYV0msObdJs0OyrNGpV5TxQRuCYmo +6aYc27Ix/sZ1Al0Pt2x/R1nEp4/LqSDQaRdjsp9y6o/DLcq3CPxq45I/QFki +RXr05R0CQz+vt/1AOUeRJ5Vxj0CLh9zfvZTl+LYm7AYCt9L2339B+ZLVgNfv +RwTmNR9KbabMeH00vuoJgacOn95RTfnaHrnisGeUo3MtSimvEb7ZovGSwMCX +ATq5lMmzm0b7XhN4y7JLM5byeu0vUuf6CIzUbdEPpHyvLtFkywCB/1TJO9hQ +ttyu7L34C4EppcURmpQff7kdXzdC4OEUh4qFlB2POhdHjlP1ET/0q486n+eS +31r0pgksPeDvVUXZrSRl9PNPAlu+5bSnUX5jxpAu+kNgsK6vqzdl/45aE/eF +dIxQLZ3Qohw6Ox7fvIyOCnTmgTqqfsz275L9JEVHr1gP53jKokM9ZSJydDxq +lNfColzc29hlwaCjvtLSRB5VnxHb14d6a9KR5pz20I+yZVv5gmgdOnZ+rudK +Uu67n6tTaUxHjtWkWRBV/+UmYg3PzelY4LZxUvz/+4Mf6zaGdHzuN7qpIocE +2StBidoOdNzXvejzV6q/tiSZdl/eScd7F9f/a0z1n8rvG3vqAukYuNud94Dq +15FDDJG3wdR81tmus6OcunuprlwEHXuS/a03U/1d7/D2WEYqHRU5rMy1VB5k +NDnJl5+i462D2W+L0qm8Yz3itWTTUdg5oG8Z5TnditcLL9HxQaLPn7dUvhhI +JejFCOiYZWv0wZXKI6GTU015VXTk2veOlKdQ/SAS4llVQ0fVyXeVf5JJ+GfK +OWn8IR3Ve4STLlD5xu1W7w3qoeNq/nuzcioPZQubk7eLMHCMpU03pPJ1kMZS +OiDKQLnJ3fkuVP6SmQLB6WUMzNkb8DEimlp/Yv6bVhoDN7x4MFV6mFofJ9Rg +gw4DF5+4pT5K5fuc9oq+NS4MLNcN6n8XSsL0JYUEQ08GMmIjZV5S98Pk8lXq +pjsZGCiuav84hOqvCdMQq2AGZt53eHhlNwn9NQHTnkcZKCr6WcU4kMpfh9sS +qcUMfJRZENfhSdXfvQeCU9cZ2NZhlZTrQeWD3tPtORUM9NHWueruTsJ96Q/5 +BXcZ+Cv7t06XCzX/XjHNyjYGfok4e4m3lcqvf3ygf4qBlgrXFLusSTj3dnf/ +558MTP+uYRVmRcKZLeFJ3/5Q483r5ItspM7HMPXJ7BI1tN9n1LkKSUj8JXBb +rqKG+oG0Elszan9P/rWPyVbDEGudH6K6JDDLyovOnlXD5CjpjqPSJPQSZYXW +F9TQVW//qTeSVH2dLS2YLFTDxRqP5tevoO7bhJKLzqVqyKYPzw6JU+frXpQn +UauGzEK7KMNFJKz+60xm8gc13Mio4rrNUu+bnTHxh3TUkX5ar3WSer+MS9n7 +ujaoo44BO6jpvAC6QxnPQh6r4+mPkY3B5wRQ/+gnxD1Vx/UPKxvEcwWQGV2m +eq1LHdujT/AdMgWwtl/83dyQOt4vEj14I1kAYYKOHZekV+Hfk6K/F4QLYGiL +i9dg4Co8fslX+KedAAbTfV0PLNbAb2lG8rHjfLD7Hmn30VgT3TJtOU9M+DAS +IBp+K+5vjO9UdZUo41Hve5pwSsNq7JCp+OTeXA5SbRoZ/O9auPtTlLvF6HVQ +Sq3YamysgzXSS9cteXsN8rRNV0gHrcHEDeTyh19LoFVhw7qJLF201u9dIidS +DGZKDZl6XXp4fd9H5bL5KyAhciXCL3Et7ij+UHdR6zKoJKgyPTT00cakpl41 +owCWrPKucn6sj4vmPwkWLb8Auiz5isgdBmglt9DPTDgPDvRJNdoLGaLeoS7b +vT/OwPeJdBe7PEN0Dze6+3xbNtjoPcq3W2OECr8nrHVmT8P9CfNfM+1G2D+n +s0vD/ySE6Rj0/MtZh3cK1cY/ZqQAazSw02OJMRoI8vOI/mNgrS63adkVY5yV +WT9+oC8e/o5PO9xgYoK3ls1s/nzqCGhxTOtW9Zjg3Mw+3S83IoFzf/fxW/vX +4/ah5L6DTeFQV9QZOL7SFF/l6yS80NgHk9f+zOjdNsVh2h3Fp84h8MmVXXTi +rilOinrDbosQ6F54ynagxhRDK0sGJLVCoMZX4fzZelPMcqjOPrUgBBLl1pnN +t5jiI/s/rasEwbAiNeRI6xtTrJ29f/2FVDDoBL0U4gibofHAwjtT74IgYFXZ +kvxNZjghmRX2tpAD0Q99QjS2muER/4Jr+qc4kMmRekI6m+Gzo0/bcqI5UFsc +lf7EzQy/f3hzJ8GFAzIatsvn/czQ7/zlNSLiHHik8VHG95AZLrQ0isqNCQSt +v1UJjUIz7HOrCqgLDIBxrRxjcswM1ybFC+3b4QfdT9FaesIMLy0d2bNoix/U +h41ui5gyQ3WNZNv/oR9kkHb7jX+a4ea0aR1RdT/QMhMqrxYxRycV2hL2sC/4 +2+2hN8qaY+BqWnN5jC90BtmIdzLNMe7pAts5m51wh/vrw1SqOTLH9mfcZ3iD +8caIGfuT5phwbV0Wa6k3VH4YES86ZY4aJys62ya8gFTpM7HPNkebA4aT9Ide +UJ5Xf6rggjk+vL0r/NxuLyhKTzK14Znj0qKivTzSE05ELM/Ke2GOAVOZq6y3 +eYCnlRqaqzDR8aZ02tdGV5jvFJVoJJjoU2+i2cBzhSLOaK+9GhMToula5edd +4VPy3UjPv5lo0Japf2uvKxxo2VIRZcDErrN6P7OVXCFt8xGVO2wmamdPqSZE +uUC1+8v/jPYyMZbv6dEO20FxT8pd3Xom0sauWtz65QQZf3atO9nAxAnmtY2C +YScQzmYLPjcxkRRpma/udYKhqr9Ki1qYKLDFvZM1TlAtdDxP6gUTe56s9Ph9 +xAk8z8RHTn9k4u2/Wj7tWuAEeTVR6+4vZeHHrNCardJbYaVYqGCTGwsvVLyR +S7npCNyNR6PHPFio9zqldutZRzA4mrExx5uFHcmhYuuiHGHzGP9ltx8LQxRS +nTaBIyR3Tc0FhLLwS4CjbfVTB5i9EmcZncDCOFOp3vARe+gxz3lRUsbCVqGr +Jt0WdrD7IPeiHY+FPCO3Gx3qdjDNq+SM8Fk4HLPU/p2YHUgxumf0q1i4joZl +7Fe24CCqrHSvnoUz5yQmDPfbQm1nSeCLlyz0fmc5HllqA/YSd9Yc6mZh+rLK +gS+ZNtBt0zIt18vCxWlNbfsO28Bk9XCqz3sWzukds3hoYwNrLq+98XWIha+b +TpyK/cyG2p4Nh9K/sVBMscCkuIMN9jLbQG+MhcGukuz+22zYlXLw34gpFh4i +ttsUprJhsj45nzbLwiO89ytV97Mh8ee5gOqfLKTLsYUqPdiwwqhUZ8c8C5/M +xE36WrKhYE/11J8/LMw7nvueoc2G/wOSqAGv + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07264540212534566}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07264540212534566}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8lOv7B3DRKUnKkrF7ZogTIkuEGdeVGGsLZZdskzjSQgllK0uSLCmp +UA3fRGPmKSoUoUKhU5IoFdqQyF5H/Z7fX8/r/cfzurfr+tw33X+vM0dYSEhI +YYGQ0P9/p/tamtRPci3IZdXNe95YWnQWyEVt6E4EK+3FXM1NdMCVHf5y3dkg +PrCr54+jPhzaev2VSPcVEK/+WT3ouAEkR2nZc69IWNuxckO1oxO8q928d/JV +A8zEL/DRd/QDtvrQ2/FXzyFsW1a0iv1+mHtlkjv2qh9WZw5x325IgMaN/+P+ +e2UCdgVr3E57mQVK7+5+8teZh3leZZOWZj7IhO68vnijCLrmepm0TRdBtj67 +ZrOLKGr4ih8Z+8yF13lr68dXLMPuuDM2/uxrcJIb1yEsL4m9ijYtwyfKgHZm +4ETOJWmUjrGZatnCAzntyuOzJdLYdmIXzc6DBwoNyXE7+NJ4/YpMzwN/HqiM +rT6o2SiNhJcXs+ggD1Y57vOt+SKNX7trt624wAPDhfPGA4YyeG2Y0147yIMt +EbKDBq0y+IkbHQrhFZCy3c7i+fRKdDbo1PWy4IPCrXYF4QWy2PV+jldoyQee +9PYZ/aWyuGCd56b3bD50PffhZ6nKYkiJzoDLFj6oO0UwnGxl8byY4m4pXz40 +bCpc9Oy8LBKG+sefxfNhnj3V3sak4XWpyns+dXzILIkum2fTsPWAq4dGI/X/ +IqHUNU40PLlNc8nQIz44PhTbcIpDw0sXYricdj7kbyRuOmbQ0PqqRdOat3xY +jw7nnryjYXFuQdyCn3wIN728syVRDmddHn+vXCsA+yKJSYd0Odw28vjHY0MB +MBYfSW3PlUNto7CULmMBPOt0Fby4JoczoTmcr0wB6O4TF+lrl0Mllc7Jj7YC ++FISWfJDQR61/wrfaeYrAG+Zzd8Ub8qjd0Dk5a3pAjCMqUkoqJXHmyKu/ZMZ +AhDr/1uW/kgedzUYVuVmCeBuhQhovJZHDSc/WttZAcg63M1c+0ce9fb8aJC6 +TI2foG5k7aCAWXs/vZ27JQCr7z+jwwYUcKLOctv6HgFE2Z7RejCigNw8PUbg +GwHwLq/pkZ5WwKQX98rS+wQgt93X9K6oIrZ9L//+ol8AI3cezojoKmKBc9YG +82EB5CRmRpw/rIhNw4fYe34JoH+lRljTMiW8WPGl3VeeBNreOmUaTQnPPb4U +qa5IgmOze1swoYRhTaaDg0okVEWf1FluqITW8hli3gQJae/GhjzcldDwiiBX +TZMEg9KaoO9XlPD9N8M5mhEJCUwnP4X1yphXElaX50CCrU/BDxNLZdxs6aEp +vYkEifjhYy6OypgseafjxGYSLjYmlWT6KqPPkP7gP04k3LGvHl50Qhl5gzM6 +Im4kjLmrHZp4rYw3rrY1x/qRcDt632LJQWWMrOUn3PMnIfbivTzdUWX0cpNK +mg0gQfy9W02wsAp2BczvCdhFgmZQutB7LcqDIb3i/5Dgc3Aq7WmMChbSTOt5 +4SSsOmepNJSkgqy2y+FkBEnt3+kbizNVMDH3wRHyIAnR/61+ZslVwfNvlXL+ +F0lC7jGflXefqmBoAHzkxJDgXVxW0tWlgjFNLl6OR0hgPJ41mXyvgipla9bo +HSWBL5bjqTelgqklzM9fY0l4mvW4sFhZFdVlnrUaJpKQc1NGv1FTFbuPDRjN +U/Z86dfwXl8VRS+JLWg8RsIXuf8GFdmq2Nz7b8PGJBJEitZqZYepopS5kYhC +KgmtD47WVBxWRf+xp2ceUc4caHVsS1TF9lbJ03tPkKCiydkrek4V6xuEHlSl +kWDGO38rtk4Vg3NdDBROkWD1qn1+tFkV65YtvVhEebPQQpudz1Wx9JrVsFoG +CQHOYa/hoyqeJlRY9NMksGPocfF/EQjlJxumM0l4srz26noxAj/rxoYGZpGw +levaPCZBYLbevQUdlL3aTkr6yRHo3iU9np9Nwj7V6asbtAn898rUzLIzJEzd +zGye0yOw64icZADlaFvtbwIjAi2DExUrKSft9zVmWBA4FW6yeGsuCWKLfnn2 +WBLYGCU2lEc5Mz83LtuGwCW+Rg/6KOc3tjYLOxH45Td3i99ZElTdOd+qXQgU +r4wSLaDMHfkjGe5JIN/6wZ1XlLUS8o21dxK4OdvKT+IcCRUr13kNBBCYzmwT +tqRsdL0j7sJuAsniVQUHKFdbhHC37SFQeVTOqIhyU1Dht8ZDBPJchbb9oGz3 +n6nUkRgCg8Iy3srmkdCe2WlsFE9g7LZhznrK21ft9Ro5TuDv1x9HXCm/vrsk +nnuCwA9Zm8IPUPbZzOV6ZxB4+tGPuTTKg/0WLTI5BHrHliQUUQ6OfP3t6TkC +x6LMlt6kPLo0QirpIoFPDBPONVAOL5IwYV0msObdJs0OyrNGpV5TxQRuCYmo +6aYc27Ix/sZ1Al0Pt2x/R1nEp4/LqSDQaRdjsp9y6o/DLcq3CPxq45I/QFki +RXr05R0CQz+vt/1AOUeRJ5Vxj0CLh9zfvZTl+LYm7AYCt9L2339B+ZLVgNfv +RwTmNR9KbabMeH00vuoJgacOn95RTfnaHrnisGeUo3MtSimvEb7ZovGSwMCX +ATq5lMmzm0b7XhN4y7JLM5byeu0vUuf6CIzUbdEPpHyvLtFkywCB/1TJO9hQ +ttyu7L34C4EppcURmpQff7kdXzdC4OEUh4qFlB2POhdHjlP1ET/0q486n+eS +31r0pgksPeDvVUXZrSRl9PNPAlu+5bSnUX5jxpAu+kNgsK6vqzdl/45aE/eF +dIxQLZ3Qohw6Ox7fvIyOCnTmgTqqfsz275L9JEVHr1gP53jKokM9ZSJydDxq +lNfColzc29hlwaCjvtLSRB5VnxHb14d6a9KR5pz20I+yZVv5gmgdOnZ+rudK +Uu67n6tTaUxHjtWkWRBV/+UmYg3PzelY4LZxUvz/+4Mf6zaGdHzuN7qpIocE +2StBidoOdNzXvejzV6q/tiSZdl/eScd7F9f/a0z1n8rvG3vqAukYuNud94Dq +15FDDJG3wdR81tmus6OcunuprlwEHXuS/a03U/1d7/D2WEYqHRU5rMy1VB5k +NDnJl5+i462D2W+L0qm8Yz3itWTTUdg5oG8Z5TnditcLL9HxQaLPn7dUvhhI +JejFCOiYZWv0wZXKI6GTU015VXTk2veOlKdQ/SAS4llVQ0fVyXeVf5JJ+GfK +OWn8IR3Ve4STLlD5xu1W7w3qoeNq/nuzcioPZQubk7eLMHCMpU03pPJ1kMZS +OiDKQLnJ3fkuVP6SmQLB6WUMzNkb8DEimlp/Yv6bVhoDN7x4MFV6mFofJ9Rg +gw4DF5+4pT5K5fuc9oq+NS4MLNcN6n8XSsL0JYUEQ08GMmIjZV5S98Pk8lXq +pjsZGCiuav84hOqvCdMQq2AGZt53eHhlNwn9NQHTnkcZKCr6WcU4kMpfh9sS +qcUMfJRZENfhSdXfvQeCU9cZ2NZhlZTrQeWD3tPtORUM9NHWueruTsJ96Q/5 +BXcZ+Cv7t06XCzX/XjHNyjYGfok4e4m3lcqvf3ygf4qBlgrXFLusSTj3dnf/ +558MTP+uYRVmRcKZLeFJ3/5Q483r5ItspM7HMPXJ7BI1tN9n1LkKSUj8JXBb +rqKG+oG0Elszan9P/rWPyVbDEGudH6K6JDDLyovOnlXD5CjpjqPSJPQSZYXW +F9TQVW//qTeSVH2dLS2YLFTDxRqP5tevoO7bhJKLzqVqyKYPzw6JU+frXpQn +UauGzEK7KMNFJKz+60xm8gc13Mio4rrNUu+bnTHxh3TUkX5ar3WSer+MS9n7 +ujaoo44BO6jpvAC6QxnPQh6r4+mPkY3B5wRQ/+gnxD1Vx/UPKxvEcwWQGV2m +eq1LHdujT/AdMgWwtl/83dyQOt4vEj14I1kAYYKOHZekV+Hfk6K/F4QLYGiL +i9dg4Co8fslX+KedAAbTfV0PLNbAb2lG8rHjfLD7Hmn30VgT3TJtOU9M+DAS +IBp+K+5vjO9UdZUo41Hve5pwSsNq7JCp+OTeXA5SbRoZ/O9auPtTlLvF6HVQ +Sq3YamysgzXSS9cteXsN8rRNV0gHrcHEDeTyh19LoFVhw7qJLF201u9dIidS +DGZKDZl6XXp4fd9H5bL5KyAhciXCL3Et7ij+UHdR6zKoJKgyPTT00cakpl41 +owCWrPKucn6sj4vmPwkWLb8Auiz5isgdBmglt9DPTDgPDvRJNdoLGaLeoS7b +vT/OwPeJdBe7PEN0Dze6+3xbNtjoPcq3W2OECr8nrHVmT8P9CfNfM+1G2D+n +s0vD/ySE6Rj0/MtZh3cK1cY/ZqQAazSw02OJMRoI8vOI/mNgrS63adkVY5yV +WT9+oC8e/o5PO9xgYoK3ls1s/nzqCGhxTOtW9Zjg3Mw+3S83IoFzf/fxW/vX +4/ah5L6DTeFQV9QZOL7SFF/l6yS80NgHk9f+zOjdNsVh2h3Fp84h8MmVXXTi +rilOinrDbosQ6F54ynagxhRDK0sGJLVCoMZX4fzZelPMcqjOPrUgBBLl1pnN +t5jiI/s/rasEwbAiNeRI6xtTrJ29f/2FVDDoBL0U4gibofHAwjtT74IgYFXZ +kvxNZjghmRX2tpAD0Q99QjS2muER/4Jr+qc4kMmRekI6m+Gzo0/bcqI5UFsc +lf7EzQy/f3hzJ8GFAzIatsvn/czQ7/zlNSLiHHik8VHG95AZLrQ0isqNCQSt +v1UJjUIz7HOrCqgLDIBxrRxjcswM1ybFC+3b4QfdT9FaesIMLy0d2bNoix/U +h41ui5gyQ3WNZNv/oR9kkHb7jX+a4ea0aR1RdT/QMhMqrxYxRycV2hL2sC/4 +2+2hN8qaY+BqWnN5jC90BtmIdzLNMe7pAts5m51wh/vrw1SqOTLH9mfcZ3iD +8caIGfuT5phwbV0Wa6k3VH4YES86ZY4aJys62ya8gFTpM7HPNkebA4aT9Ide +UJ5Xf6rggjk+vL0r/NxuLyhKTzK14Znj0qKivTzSE05ELM/Ke2GOAVOZq6y3 +eYCnlRqaqzDR8aZ02tdGV5jvFJVoJJjoU2+i2cBzhSLOaK+9GhMToula5edd +4VPy3UjPv5lo0Japf2uvKxxo2VIRZcDErrN6P7OVXCFt8xGVO2wmamdPqSZE +uUC1+8v/jPYyMZbv6dEO20FxT8pd3Xom0sauWtz65QQZf3atO9nAxAnmtY2C +YScQzmYLPjcxkRRpma/udYKhqr9Ki1qYKLDFvZM1TlAtdDxP6gUTe56s9Ph9 +xAk8z8RHTn9k4u2/Wj7tWuAEeTVR6+4vZeHHrNCardJbYaVYqGCTGwsvVLyR +S7npCNyNR6PHPFio9zqldutZRzA4mrExx5uFHcmhYuuiHGHzGP9ltx8LQxRS +nTaBIyR3Tc0FhLLwS4CjbfVTB5i9EmcZncDCOFOp3vARe+gxz3lRUsbCVqGr +Jt0WdrD7IPeiHY+FPCO3Gx3qdjDNq+SM8Fk4HLPU/p2YHUgxumf0q1i4joZl +7Fe24CCqrHSvnoUz5yQmDPfbQm1nSeCLlyz0fmc5HllqA/YSd9Yc6mZh+rLK +gS+ZNtBt0zIt18vCxWlNbfsO28Bk9XCqz3sWzukds3hoYwNrLq+98XWIha+b +TpyK/cyG2p4Nh9K/sVBMscCkuIMN9jLbQG+MhcGukuz+22zYlXLw34gpFh4i +ttsUprJhsj45nzbLwiO89ytV97Mh8ee5gOqfLKTLsYUqPdiwwqhUZ8c8C5/M +xE36WrKhYE/11J8/LMw7nvueoc2G/wOSqAGv + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07264540212534566}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07264540212534566}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9942595526357393`*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"c69581ff-a94b-4927-958e-1ae8304f4515"] +}, Open ]], Cell[CellGroupData[{ @@ -10133,18 +11863,75 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], - RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ -UUID->"01995149-3665-fe4e-b326-b20429031afd"], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[121]:=",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"52cff8eb-0c77-c944-a54f-e282b00ce766"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.027622371130789`*^-142\\\", \ +RowBox[{\\\"257637673519649270217965438245428568131\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"89\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8303947407360000000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 45, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942595526894207`*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"caaa0401-87a6-4a6c-b3d0-1d7f648423c3"], -Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4265628585914967`*^-144\\\", \ +RowBox[{\\\"990359217009531794717859144615427415897\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"92\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0373833891840000000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 46, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942595527007217`*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"4f6255bc-dc8a-488a-b10a-53df1a7ee811"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1711713553719798`*^-146\\\", \ +RowBox[{\\\"393073573231083169323518294497863141369\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"96\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3746716712960000000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 47, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942595527092247`*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"73aedde7-8045-4af2-be81-b4de8e341d3a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 121, 48, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994259552718985*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"5f5fc6c8-fe3f-47d5-83dd-abcc2b5ad2e4"], + +Cell[BoxData["10.400893316247206`"], "Output", + CellChangeTimes->{3.99425965091407*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"39d71bee-9f0d-4374-a04a-c43bf5460973"] }, Open ]], Cell[CellGroupData[{ @@ -10211,27 +11998,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918507468132763`*^9, - 3.9918507511809216`*^9}},ExpressionUUID->"11b1e372-f457-5a4d-bcee-\ -062a3c04ed96"], + CellChangeTimes->{{3.9918507468132763`*^9, 3.9918507511809216`*^9}}, + CellLabel-> + "In[122]:=",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"cb5a1193-7562-6446-a279-d9f6295d156e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.307255915092018`*^-208\\\", \ +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 49, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994259650967763*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"5c886988-24f5-49d6-b233-f8906d3c6339"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"566b0ad4-7f4e-b04f-8294-646ce1913fac"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9136273708079945`*^-213\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 50, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994259650977611*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"ce1c2043-213c-4265-832a-6bed2497016a"], -Cell[BoxData["0.7273353591556563`"], "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.801264597106642`*^-218\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 51, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942596509861794`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"8cace81e-f2af-4af2-9efe-b86e88561493"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 122, 52, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994259650994751*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"116f39fa-777d-41f0-87e2-861df4f89954"], + +Cell[BoxData["0.23557900978981258`"], "Output", + CellChangeTimes->{3.9942596625461206`*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"f616c8f2-53b7-42a9-89ce-7dc9f6c8e568"] }, Open ]], Cell[CellGroupData[{ @@ -10252,8 +12087,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -10298,27 +12132,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.99185075434021*^9, - 3.9918507570104733`*^9}},ExpressionUUID->"8cb4e371-90a5-d347-adec-\ -3382e7679ba8"], + CellChangeTimes->{{3.99185075434021*^9, 3.9918507570104733`*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"4cd45900-7eb0-6b4b-830a-a339e8117392"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.307255915092018`*^-208\\\", \ +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 123, + 53, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942596625925407`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"02b75638-4faf-46df-8d14-86cd73ae4a79"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"0ddcf174-f6c5-2546-b6d3-f17f46d6e8a3"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9136273708079945`*^-213\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 123, + 54, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994259662602584*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"4d834967-ca97-493d-a240-90127c058de0"], -Cell[BoxData["3.1005213487548544`"], "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.801264597106642`*^-218\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 123, + 55, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942596626115437`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"9a348491-1379-439f-9827-80126354ac69"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 123, 56, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994259662622143*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"092e0982-9478-447e-960c-9f0967538946"], + +Cell[BoxData["29.91938071224244`"], "Output", + CellChangeTimes->{3.994259673292313*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"9dafb83a-19e1-41d6-8462-8f307ace91ed"] }, Open ]], Cell[CellGroupData[{ @@ -10339,8 +12221,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -10385,27 +12266,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918507598219967`*^9, - 3.9918507622107697`*^9}},ExpressionUUID->"732b358a-c98a-0347-8b16-\ -2462b23d6249"], + CellChangeTimes->{{3.9918507598219967`*^9, 3.9918507622107697`*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"f702ec8b-e3a1-2f4f-bfef-4278a2688935"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.307255915092018`*^-208\\\", \ +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 124, + 57, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942596733451843`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"b67cbf6a-c4c6-485d-b229-4c803d740337"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"61220452-df6a-154e-8b5c-fecd0ab287a1"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9136273708079945`*^-213\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 124, + 58, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994259673355029*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"2d2b52b0-1df6-4b0f-9cbf-856241b26291"], -Cell[BoxData["18.198720438459198`"], "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.801264597106642`*^-218\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 124, + 59, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994259673365054*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"22c25b93-2476-47ad-84d1-34351898c43e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 124, 60, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994259673373767*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"04bc5995-8217-4efe-b730-8093dbac2e0f"], + +Cell[BoxData["3.0092869156042408`"], "Output", + CellChangeTimes->{3.9942596822868223`*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"191552bf-15d2-49b7-a0ab-6537098fd9d0"] }, Open ]], Cell[CellGroupData[{ @@ -10414,19 +12343,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918507652122154`*^9, - 3.9918507685850487`*^9}},ExpressionUUID->"3d20548b-905d-0343-8df1-\ -168ec8f367e1"], + CellChangeTimes->{{3.9918507652122154`*^9, 3.9918507685850487`*^9}}, + CellLabel-> + "In[125]:=",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], -Cell[BoxData["0.09682709699983048`"], "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] +Cell[BoxData["0.024827242919134834`"], "Output", + CellChangeTimes->{3.994259682329797*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"8ac835e3-40ff-42b3-bcbe-b377022ad791"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918507716362114`*^9, 3.991850773604473*^9}, - 3.9919245563167305`*^9},ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-\ -e661a25a7ba1"], + 3.9919245563167305`*^9}, + CellLabel-> + "In[126]:=",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], Cell[CellGroupData[{ @@ -10447,10 +12380,14 @@ Cell[BoxData[ RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Ir", "*", "Il"}], - RowBox[{"Il", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"601c24ee-3f7b-\ -c74d-891b-10a6d009e34b"], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[127]:=",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], -Cell[BoxData["7.1357426619652635`"], "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +Cell[BoxData["11.990801347553656`"], "Output", + CellChangeTimes->{3.994259682349505*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"c702bf0e-19e6-4b05-8db6-8bf6ae2ccc69"] }, Open ]], Cell[CellGroupData[{ @@ -10458,10 +12395,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ - FractionBox["Kb", "Qb1"]]}]], "Input",ExpressionUUID->"05949206-8ee0-5646-\ -bb01-e9142212274d"], + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], -Cell[BoxData["1.4042291233210182`"], "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +Cell[BoxData["1.7593993487117925`"], "Output", + CellChangeTimes->{3.994259682361186*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"77b261dc-5978-4291-85bf-909a7204d447"] }, Open ]], Cell[CellGroupData[{ @@ -10469,10 +12410,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ - RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"25a02cc2-\ -cb9a-bc4b-93f0-a7873f982a23"], + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], -Cell[BoxData["10.02021766245587`"], "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +Cell[BoxData["21.09660808141839`"], "Output", + CellChangeTimes->{3.994259682372401*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"61e55c45-7524-4343-bf9f-593dcfe3bc11"] }, Open ]], Cell[CellGroupData[{ @@ -10660,10 +12605,14 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"df51ca6a-83a1-6340-\ -b13c-0185de64c37f"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], -Cell[BoxData["0.06461147402889976`"], "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +Cell[BoxData["0.006811076857039775`"], "Output", + CellChangeTimes->{3.994259682389811*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"e1113eef-d1a6-40c5-8fd0-c1b725d4328d"] }, Open ]], Cell[CellGroupData[{ @@ -10675,18 +12624,14 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"731f0e35-\ -7798-8b45-a769-075ac4b3983f"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[131]:=",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"4870a5d4-b6fc-9044-ae55-fcbd2b9d41eb"], - -Cell[BoxData["3.486503585502317`"], "Output",ExpressionUUID->"4263cd25-e2b6-5c4b-8834-28c6ca12b863"] +Cell[BoxData["10.738337518165883`"], "Output", + CellChangeTimes->{3.994259682612349*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"9dd6cb4e-785c-4332-a666-1c081fde333b"] }, Open ]], Cell[CellGroupData[{ @@ -10876,10 +12821,14 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"413c8e7d-149c-5d4a-\ -9ccb-23aebae2e6d5"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[132]:=",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], -Cell[BoxData["0.01165072070943232`"], "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +Cell[BoxData["0.04667616234595526`"], "Output", + CellChangeTimes->{3.994259682629119*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"e0a20f97-5fa0-4eb8-889a-c3daf57bf451"] }, Open ]], Cell[CellGroupData[{ @@ -10891,18 +12840,14 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"e11d7eb8-\ -00a8-f540-98a0-89164ac4bae9"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[133]:=",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"d6f4e6b1-3d45-7649-b7dd-944c4a1de3e4"], - -Cell[BoxData["8.21047995098231`"], "Output",ExpressionUUID->"27fdf87b-577e-d74b-99f1-6a0486be19bc"] +Cell[BoxData["4.102016187195001`"], "Output", + CellChangeTimes->{3.994259682820114*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"f8e56e73-8a9b-44c9-bc4e-ddb729cf2496"] }, Open ]], Cell[CellGroupData[{ @@ -10993,10 +12938,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-\ -1ee89e798d8f"], + ")"}]}]}]], "Input", + CellLabel-> + "In[134]:=",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], -Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +Cell[BoxData["0.0485674311961468`"], "Output", + CellChangeTimes->{3.994259682833377*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"8f307d8c-89b4-4de1-acb2-802b747f711e"] }, Open ]], Cell[CellGroupData[{ @@ -11084,10 +13033,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-\ -f30d036fcdd2"], + ")"}]}]}]], "Input", + CellLabel-> + "In[135]:=",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], -Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +Cell[BoxData["0.9514325688038533`"], "Output", + CellChangeTimes->{3.99425968285299*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"cd8411a3-46d9-4a6a-9b9c-04cb17394a52"] }, Open ]], Cell[CellGroupData[{ @@ -11208,10 +13161,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", - "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"46af1283-32d6-\ -7240-acd2-307af56b44db"], + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[136]:=",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], -Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +Cell[BoxData["0.046208635823154355`"], "Output", + CellChangeTimes->{3.994259682873708*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"4604fa02-37fd-4885-adaf-3bb7e852db49"] }, Open ]], Cell[CellGroupData[{ @@ -11273,27 +13230,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918507910247746`*^9},ExpressionUUID->"cd516020-ac7f-224d-b1ff-\ -af0307420662"], + CellChangeTimes->{3.9918507910247746`*^9}, + CellLabel-> + "In[137]:=",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"b82c1933-5313-1d4c-a858-68be8f118333"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.8393213939631744`*^-203\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 137, + 61, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99425968289284*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"592bd770-3f67-4a05-97ae-3c6ce5c7750e"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"3b3475f7-7db7-054a-b7f5-20d8f7d491bf"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.635996108702221`*^-208\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 137, + 62, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942596829018373`*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"c2361857-ddc7-4f48-8fd4-7888ac775caa"], -Cell[BoxData["3.486503585502321`"], "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4184591879419774`*^-212\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 137, + 63, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99425968291026*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"c2e19422-638a-416a-bfe6-65f2a89ec06b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 137, 64, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942596829198236`*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"a54f380a-13d7-4a86-b86a-66d3c2252b1d"], + +Cell[BoxData["10.738337518165885`"], "Output", + CellChangeTimes->{3.994259691053586*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"6ac18641-0bbe-42db-9b2a-7a10a4b7d375"] }, Open ]], Cell[CellGroupData[{ @@ -11355,27 +13360,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918507936164455`*^9},ExpressionUUID->"a9d0e817-a1c8-6546-a901-\ -34313c6ec04d"], + CellChangeTimes->{3.9918507936164455`*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"9e0b92f8-7fe2-e84e-89cd-c02c9da3e5b7"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.8393213939631744`*^-203\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 65, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994259691102441*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"367fdc4a-c6ab-4a36-be23-e14b20e6bd54"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"56712e4d-1aa7-524a-8254-bcfd8978eea0"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.635996108702221`*^-208\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 66, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942596911123953`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"c8db32a7-4212-4147-ad96-9b551d431687"], -Cell[BoxData["8.210479950982325`"], "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4184591879419774`*^-212\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 67, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994259691122491*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"ebe3042c-ac88-4add-a640-1907786bd4fd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 138, 68, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942596911312733`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"b1e9c532-1536-411c-86a6-e6ea8c427b85"], + +Cell[BoxData["4.102016187194999`"], "Output", + CellChangeTimes->{3.994259699220009*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"8235edbf-0ddf-4a20-8b83-fca6723fb0d4"] }, Open ]], Cell[CellGroupData[{ @@ -11433,527 +13486,394 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918507961174965`*^9},ExpressionUUID->"f68960b0-cff6-3245-b906-\ -ad38cf07d634"], + CellChangeTimes->{3.9918507961174965`*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"9c6ce535-b42f-3c43-a89e-eda48c04121e"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"e2ce6bda-7d9b-6149-bf5b-dd4c91908e28"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"2bed6df2-09cb-4d4d-b247-4fe79fd38fd6"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"64a64e18-e609-d54b-8225-64fa7909a948"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.00529101 -0.551091 0.817918 [ -[.15608 .25433 -6 -9 ] -[.15608 .25433 6 0 ] -[.28836 .25433 -6 -9 ] -[.28836 .25433 6 0 ] -[.42063 .25433 -6 -9 ] -[.42063 .25433 6 0 ] -[.55291 .25433 -9 -9 ] -[.55291 .25433 9 0 ] -[.68519 .25433 -9 -9 ] -[.68519 .25433 9 0 ] -[.81746 .25433 -9 -9 ] -[.81746 .25433 9 0 ] -[.94974 .25433 -9 -9 ] -[.94974 .25433 9 0 ] -[.01131 .02145 -18 -4.5 ] -[.01131 .02145 0 4.5 ] -[.01131 .10324 -18 -4.5 ] -[.01131 .10324 0 4.5 ] -[.01131 .18504 -18 -4.5 ] -[.01131 .18504 0 4.5 ] -[.01131 .34862 -18 -4.5 ] -[.01131 .34862 0 4.5 ] -[.01131 .43041 -18 -4.5 ] -[.01131 .43041 0 4.5 ] -[.01131 .5122 -18 -4.5 ] -[.01131 .5122 0 4.5 ] -[.01131 .59399 -18 -4.5 ] -[.01131 .59399 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.15608 .26683 m -.15608 .27308 L -s -[(25)] .15608 .25433 0 1 Mshowa -.28836 .26683 m -.28836 .27308 L -s -[(50)] .28836 .25433 0 1 Mshowa -.42063 .26683 m -.42063 .27308 L -s -[(75)] .42063 .25433 0 1 Mshowa -.55291 .26683 m -.55291 .27308 L -s -[(100)] .55291 .25433 0 1 Mshowa -.68519 .26683 m -.68519 .27308 L -s -[(125)] .68519 .25433 0 1 Mshowa -.81746 .26683 m -.81746 .27308 L -s -[(150)] .81746 .25433 0 1 Mshowa -.94974 .26683 m -.94974 .27308 L -s -[(175)] .94974 .25433 0 1 Mshowa -.125 Mabswid -.05026 .26683 m -.05026 .27058 L -s -.07672 .26683 m -.07672 .27058 L -s -.10317 .26683 m -.10317 .27058 L -s -.12963 .26683 m -.12963 .27058 L -s -.18254 .26683 m -.18254 .27058 L -s -.20899 .26683 m -.20899 .27058 L -s -.23545 .26683 m -.23545 .27058 L -s -.2619 .26683 m -.2619 .27058 L -s -.31481 .26683 m -.31481 .27058 L -s -.34127 .26683 m -.34127 .27058 L -s -.36772 .26683 m -.36772 .27058 L -s -.39418 .26683 m -.39418 .27058 L -s -.44709 .26683 m -.44709 .27058 L -s -.47354 .26683 m -.47354 .27058 L -s -.5 .26683 m -.5 .27058 L -s -.52646 .26683 m -.52646 .27058 L -s -.57937 .26683 m -.57937 .27058 L -s -.60582 .26683 m -.60582 .27058 L -s -.63228 .26683 m -.63228 .27058 L -s -.65873 .26683 m -.65873 .27058 L -s -.71164 .26683 m -.71164 .27058 L -s -.7381 .26683 m -.7381 .27058 L -s -.76455 .26683 m -.76455 .27058 L -s -.79101 .26683 m -.79101 .27058 L -s -.84392 .26683 m -.84392 .27058 L -s -.87037 .26683 m -.87037 .27058 L -s -.89683 .26683 m -.89683 .27058 L -s -.92328 .26683 m -.92328 .27058 L -s -.97619 .26683 m -.97619 .27058 L -s -.25 Mabswid -0 .26683 m -1 .26683 L -s -.02381 .02145 m -.03006 .02145 L -s -[(0.7)] .01131 .02145 1 0 Mshowa -.02381 .10324 m -.03006 .10324 L -s -[(0.8)] .01131 .10324 1 0 Mshowa -.02381 .18504 m -.03006 .18504 L -s -[(0.9)] .01131 .18504 1 0 Mshowa -.02381 .34862 m -.03006 .34862 L -s -[(1.1)] .01131 .34862 1 0 Mshowa -.02381 .43041 m -.03006 .43041 L -s -[(1.2)] .01131 .43041 1 0 Mshowa -.02381 .5122 m -.03006 .5122 L -s -[(1.3)] .01131 .5122 1 0 Mshowa -.02381 .59399 m -.03006 .59399 L -s -[(1.4)] .01131 .59399 1 0 Mshowa -.125 Mabswid -.02381 .03781 m -.02756 .03781 L -s -.02381 .05417 m -.02756 .05417 L -s -.02381 .07053 m -.02756 .07053 L -s -.02381 .08689 m -.02756 .08689 L -s -.02381 .1196 m -.02756 .1196 L -s -.02381 .13596 m -.02756 .13596 L -s -.02381 .15232 m -.02756 .15232 L -s -.02381 .16868 m -.02756 .16868 L -s -.02381 .20139 m -.02756 .20139 L -s -.02381 .21775 m -.02756 .21775 L -s -.02381 .23411 m -.02756 .23411 L -s -.02381 .25047 m -.02756 .25047 L -s -.02381 .28319 m -.02756 .28319 L -s -.02381 .29954 m -.02756 .29954 L -s -.02381 .3159 m -.02756 .3159 L -s -.02381 .33226 m -.02756 .33226 L -s -.02381 .36498 m -.02756 .36498 L -s -.02381 .38134 m -.02756 .38134 L -s -.02381 .39769 m -.02756 .39769 L -s -.02381 .41405 m -.02756 .41405 L -s -.02381 .44677 m -.02756 .44677 L -s -.02381 .46313 m -.02756 .46313 L -s -.02381 .47949 m -.02756 .47949 L -s -.02381 .49584 m -.02756 .49584 L -s -.02381 .52856 m -.02756 .52856 L -s -.02381 .54492 m -.02756 .54492 L -s -.02381 .56128 m -.02756 .56128 L -s -.02381 .57764 m -.02756 .57764 L -s -.02381 .00509 m -.02756 .00509 L -s -.02381 .61035 m -.02756 .61035 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .60332 m -.02499 .60331 L -.02605 .6033 L -.02729 .60328 L -.02846 .60326 L -.03053 .60319 L -.03279 .60309 L -.03527 .60295 L -.0379 .60276 L -.04262 .60232 L -.04749 .60174 L -.05205 .60108 L -.06244 .59913 L -.07305 .59653 L -.08274 .59362 L -.10458 .58527 L -.14429 .56405 L -.18248 .53718 L -.22313 .50297 L -.26226 .46595 L -.30384 .4238 L -.34391 .38185 L -.38246 .3414 L -.42346 .29931 L -.46295 .26047 L -.50092 .22522 L -.54134 .19038 L -.58025 .1597 L -.62161 .13033 L -.66146 .10526 L -.69979 .08415 L -.74057 .06487 L -.77984 .04937 L -.81759 .03723 L -.85779 .02721 L -.87627 .0236 L -.89648 .02036 L -.91652 .01788 L -.92745 .01682 L -.93762 .01604 L -.9426 .01572 L -.94801 .01542 L -.95278 .0152 L -.95783 .01501 L -.96238 .01488 L -.96496 .01483 L -.96738 .01478 L -.9696 .01475 L -.97163 .01473 L -.97275 .01473 L -Mistroke -.97397 .01472 L -.97512 .01472 L -.97619 .01472 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJztXHd4VUUWj0leHiEQqkgnQKgh9GJAmiIlWUJvK0UIvUlVuiCudAGVIqgo -RXq3geIKKGB3daUIFoqCBRBcirTZe+beOe+elzl3XhJ2P/b79o93k5n5ze+c -OdPOlHtb9hzVv8+QnqMGpPWMazai57D+A9JGxjV9ZIQVFXFXWNhdP1i/CnFh -kdb/IiyMPOaKm+I4PKz/hbgljsPjP/N/afknAuTCfzIkn29nIN1JzmCuLKSH -yz8+MW/uPFGuXDlRvnx5MXDgQHHr5i0rFtIixbU/r4l69eqJ+Ph4cfLESb9D -OWjQILF0yVIZiubErINHFMTH2ALDZHax460dokWLFuLSvy6J69euS7IZ02eg -zLO/nRUxMTGS8MD+A0rm7vd2i+bNm3vLXAyPgm6ZERLQrFkz8cXnXzhljhAX -L1wUpUqVcixgx/3040/iyOEjMqSE3rxxU5QoUUKcP3eeFzoXHjkhvgQKvXH9 -hihSpIg0ZoST8b777hOHDx2WoVxO3NChQ8XyV5bLUDZ4RmIzmAaP7BCsgLS/ -/vKrqFq1qpPZfnbv3l288/Y7hPb9ve+LVq1a6WgnwyMagtWQ9vvvvhdJSUmE -tn///mLL5i2E1iqNKFOmjPjj4h82rc4cE+CRDeLroIDffv1Nq/eud3bJUG4n -bvjw4WLd2nWkDtIJGIMNq77R3qpClYD9+/aLTp06eQsYBQ8fxN9PWhE0v88/ -+5y0IugZEMrhxJ07ew5LoBRJSEgQVy5fkaEoTugjWKqmpLvs3LFTNG3aFGwu -uyN00Tmz54TldIiOHT0mWrduTQSOGjVKbN2y1VvgIBSYTAeE+fPmy1qGQWHI -kCHSpm5puXLlgsq0QvYTOsjYsWO9pfVDaamu4Skw6PVGm7c1DF89sT13NCC7 -I7KLAfkQIrsakJ0R2cOA7IDIXgZkW0T20dqmNQb7a9NbYv6BBkkpmHGIAdkc -OR8xIJsi5wgD8gHkHGVANkbOxwzIhogcq7VNfQyONzDVQ+REAzIJkY8bkLWx -xFMMyJrI+aQBWR2RTxmQVRE5XWubyhicqU1PhEc4BGcbJCVgxjkGZAVEzrWR -mXBD7OgoOR1ZQ6GoXbu2qFmzpmjUqJHYu2cvOzOVQ9nzbdmZ80jsaL+YNXOW -6Nixo8wGNEe/OSpLcOjgIX5uKYM6POvokDkPRcWBwDOnz8iQyrt40WIxZswY -x0qMIvFYuQtQEZPXoiY58BVO/3SaCF24YKGY9tQ0b6GlsPQLUajJp8nhmHvZ -S8tEhw4d0NygVIUKFcDstrkDPk4JFLMYxZh8nJyOWceNGyeio6NFyZIlRURE -BLgovK9THAUtQUEmX0eV55OPPxGJiYnSJYHJ/aUXXxKNGzcWf179k28+xbDW -XjDWmmoqOVxKbFi/gdRat27dUDG21opgKV8kbdbLH1IOQ7t27aTr7hYKTu/K -FSu9hRbGki4jnZXzh2Ids27csFE0adJEpgP+qy+/kmPKLz//wpu1IAp7hY5K -Ol8ol5MGFVa9enVZ2SARTMG2lAJow+WuETIw1t6NGqw0jKD5MOMqAzIvcq42 -IHMj5xoDMhaR6wzInCh9gwEZg5wbtbbJjkybtenRmL7FIMmPGbcakFHIud2A -jETO1wzICOR8w4AMR+SbRk4r6q1gs9zC/Dv5/DcQ7rFjcB2ZdvGgawh6lwdd -RXF/50FXkGk3D7qMoD3BBb+ESXuDk/7ApA946osI2meD7nZA4BcoUIwm4wXM -uN/OmAm/JtLJsnnTZpmldOnSolatWmLTxk1h2TUyz2PZDtgys7bDAv5Lv379 -RFpamnaz4xwW8SNHXOZcF8Xdpk0bsW3rNhnSjcxnUd7HKM/koah1/ocHPhQN -GzZkuX9D7k+QO1RH5Py586Jz586yiqpUqSKX+/nz5w9M3NIR+Rkr51OUYPJB -lISUlBSx4Dnpl4nfz/8uWrZsKX2SUydPaUvzM5bmc5RlckNUIz5x/ITcoBCu -CRosERsbC7WmlXcG5X1hrBlV60rent17RNu2bYleBQoUkH0BQjqH4DTK+wdp -eaFsyBz/4bioXLkyKR+4Xg8++CDbOn5CeV+SjuXte0TJegI/GLBWXYkaNWpA -S9Q5BadQxD/peKHzOGKdNGgLXbt2lenQ8l7b/pq2p55E8q+DR8ETmHSQHwWP -I+gQD/oBQYd50PcIOsKDvkXQUR50DEHHeNBRBH3Lg75B0HfB1jmCSd/z+Q8j -6AcepDpenz595OBgrU+tEDxj5NgL3cXByoEXmlLFihVxUIEtPBhQEpxG6oXx -Oc1DN9VUdvSALv7NEVn0sMgQOIuhTaIcdmuCkqts+EGOPHnyWI3WLtfMGTOx -5OaJzycHIVj7QMeEDgXOeUmjHJ9bjrKsVRq9VWEwmPz4ZNkJy5YtK7lguQ6D -mllWdiLLw1JZKxI1XYRHZXkVJ4e5HcIwD9OBNeE6YmLEvffeSywGm7vWkKL2 -qqXvMGnSJNGlSxdsh16YSGcYZPwP1RSnTJ4ipk+bTkrnRVsU+5uaQyxvQ7Rv -396xrqdQpRM4IJUqVRI/nvpRClj96mqRnJwcr2GMZE3mT2cykAQbE5ZLhbML -+DSwMXH1ylWskvT8oZkyA2r7WfNGGNWM4RtQNSfOas/SGbVokGLu03PlEZlb -PFgMLAehKpq4cKdkjtdIuqvlNapGcujgISkOQtk1NIWwUeTQ2MLnLUSZBfar -YJgK6EW9yVIsdej2gM2OFctXsHy6woVnQT+/hwHdumTnq7y6EweOLjT42bNm -Y9ezGqd4d9e7rur1u+Pkz+SkJzpxMFSCewahaA1/YFcmp6agqhJN0pThoC1Y -ziKJmzBhgtwt5YwZ5WGJ5xc/L7urqWLdJcqKLtk8rObWxaNiazhx0A1gHfLM -/GdQTZi7YH0SqNgod5z8OSskZXn34kjV6ZNTn5TdwK2dm/oerNNYjzo1LcWU -zWCiBKfYHQfbcmBLUwfRGQEcbhgnTXXqLlFWdMnmYTW3Lu46lVVa0wFd+P2C -VAZ2qdWcAecS3x6TDrAcjWBCSE1NreSdrMxsWqOqigb/BLpZoNpY6kA/zqWx -QWSIgpVN4bjZ8rtI3JrVa8SwYcOMdk5vLr9Yu2YtGb3efONNuX0Blxx007fP -u7CRt0HN9Lb1VtNj+q7lxH304UeiTp06LutGSS8WXFX4C54AWNvqFZW8k1Xd -mDYY1EwODqs6LDJIDgwOuTXWiQxRsLI2+E26Djlx4kS2BqI9zNW7d285cMMA -DN437NJYCwOdL+bzLmfkbdBQZ1ZGQ4/lQW0nLm/evPI41a2J0wJlqIomTk2O -pp0f1RDAm1m0cBGpNzdfwKXL41H7JmlKe2dviMTBUAxTJWfb7B7WANsql6Ic -W+W0RP4s6BLtYTW3Lrn4ylVd5NNPPhVTn5hKxMMeMOwvc5Whq3C/U+2u4sif -s+2W4GSBJNh/dYuDgRLOyDhxgSkit1PbTvmUTaK8ZavWAQsfNZG627FaTcfp -2X0ZtJS7Asp4KaxvD1nUMlQDZ6iZ+MXBrw+KwoULy11OmNDA6YU9emuiw94X -ahNhdkpVE3lh6Qu4sFHagn8NQzs3BAVPDj6Jrlu3rjxjfnnZy2CisChvBZSn -AiMnOGyOIy1WrVwFu7clPZh9GTCT2/LxRm31Jsy0iqGbN8QGUs3R6LNPP5PT -S6FCheT0Ak3YGiZVoWGjD2Y062dJgKd9/K9oKoaIi3BKqNsJdzcgmAXc9xDz -5csnd4HcJTTJyoONKp+TA84nkpOTpT39HpqofT/wyUACVBUMTtbSBY3o5ooK -zYhQJSDKVtV+whinFI5jqUM3bKgq+zJobJPu0XwT+xjr4awLFBE4bNQcDbpB -BzD/77yQ/Qi6wIP2IegiD/oAQX/woPcR9C8etBdBl3jQHgRdtkEF7SRZcOtx -F59Vdzz0/7jQ48Lx9O8OUei/FidLnv22/OexPr3jin3Hx0ViHPy1frrj5TtP -7f/J1pmUhbiAgMSMsMgcdfG/e3jldiHoOg96B0E3eNDbCLrpAknMTky6FZy0 -A5MET/0WBXnMVG9SZDiPfIMiI3jk6xQZySNfo0gfj9xOkVHBZtlG0/0801aK -zMYjt1CkhyO1mSI9DgM2UaRHL9hIkR7bSRsoMmewbdbT9FieaR1FeqxO1lJk -bh65hiLz8MjVFJmXR75Kkfl45CqKzM8jV1Lk3cFWXEHTC/BMyynSYzB5hSIL -2sgMX/tg3tWIlGsKReP3+xWD8y6eBPk0ar1M1Spkq6XWtOmP6tJdblSTo3Mt -TIZ0E+YyKqgwL0g5g+4rjaFKeYlKKcJLyRsi44uUsWgmGKVD8YKG+3bpyHJn -RtsgnqUcd7Gscy/huItj74DooF063MGEE3gnG4jS3eB9ntZeHPLqdncUb69e -veRuDrzhWbp0aR3vYspr7xnhOt29xldb7XAZBU4nihYtqr1rvIgy2jvWrjFp -IU0vHZy+gKbHu9KDJD1HkWV45LMUWZZHPkOR5XjkfIoszyPnUWQFHjmXIisG -2+Zpmp7AM82hyEo8cjZFJvLIWRRZmUfOpMgqPHIGRVblkdMpslqwbaZzfbBq -MHIah6zGS3+Ky1Odz/M3qnFNHvkkRdbikVMpsjaPfIIi6/DIKRR5b7C9JtP0 -JJ7pcYqsyyMnUWQ9G5l1L0LtjsIeuOU9uG7TRoiCBQvivRDd5fGJVCf7VD0j -LoQSfvXKVbnRP378eMwOr1l6CZ9AhdfnhevcCnXkAGeePXr0EH379lX3y8T2 -bdsBp92bGk+lNuClqjkFTjth+If5xrK9btk9jpI25EnV/Dp48GD5xqalssvT -GEN5GvE8akseXlKEq69uM7k1C2JsbGaEXWl4wfPc2XNaxsco4/08Y34nDq7+ -792zl20Ij1LGB7BnCI0Hoa7JQC+AO752yH7CVQJ1/UsnaDQV1AQF6VyKXK4G -Bjv3cGh0+dJlGYY7SSkpKVrPaBQVYr9JofUvcjuKwnXJtLQ0eewBkgYMGABX -H3TkIyl5U364GUGRzVxICRxO05vzTMMosgWPfIQik3nkUIpM4ZFDKPIvPHIw -RbbkkYMoMt1XNwbS9FY80wCKbM0j+1NkGx7ZjyI9vvnRlyLb8cg+FNmeR/am -yA7Btkmj6R2D03vR9E68pJ4U2ZlHPkyRHl8s6UGRf+WR3SnyIR7ZjSI9voLS -lSK7BdvmIU2edMig9C6U82Ee2Zkie9rI2+Vg+OXU/8SUJ2QS3LCCE1841jxz -+ox2IOxE9XG+9JJh58IvX1vY98E+nN7hxj7c0E9KStIK7kgFp/GCdY6FWuHV -r18f77HqJpMOVEpvXoqaWeFeSrFixeRbBbqZtT1l7MMz5nEMBo4P3LeAOzi7 -39sdcCTaUqq+ZiqodLg32aBBA5jmAlStKVV/cznhit6S55cQC7vLGcQ4wMwI -Dh04eBxjK8o4EJu+0HgQyi2B90VGjx7NkqZS0kFI6uUtgBnhxgp8ZQyI4AYM -fIPFCmvbaksqZLAthPcWfPKGU2pqqrylAJcZl7+yXHsUlEKZh/IDRzJFuj9q -JIEtaPownqk5RQ7nkc0o0uPzSA+iHjI8kkc2oZyjeeQDFPkoj2xMpbs/uSRj -G1GmsTxTA8o0jkfWp5wTeOR9FOnxcaa6FPk4j0yiyMk8sg4tkfszTjK2NmWa -Gpxek+b3+LhTDcrk8XGnapRzGo+sQpEzeGQiRc7ikQkU6fHBpwoUOTfYNuVp -iefzTGUp8lkeGU9lPmcjs+4gqOtbMMAqGnglH/5u3LBRN7aWoqo4XzzKgG+g -RjznsrsM6QSVgGfg60eLeUE6X0Btb8AKu3jx4vJ+V7hzywtKCNLXr1uvlVyM -FnEpL1m97QNrZPX6f3iI5StMy/ciL0V9mgfmE7jL6zDI0kQjSwHK97KZD+Yj -WOHr+fJRvhU8n9pugWMv+O6Tw6Wb2iTUh6Svmknh9jC8AetBKg95o5B0HfYO -ofEh1DYOvGgNn3DCQruuoDi/HEi5CSl1HoSihI8jOO9F2JTRSPC6TaDzDpSn -NHLkSBEXFydD7AeX7uhv75rS5f+34cvEYXf9GwRZrOc=\ -\>", "ImageResolution" -> 96., "LightDark" -> \ -"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-14.857966328747292, \ -0.654633287374793, 0.6941460339291473, \ -0.0044903445173959475}},ExpressionUUID->"7758daab-adf8-2a49-9166-\ -50457409d355"], - -Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"4f7705b8-e954-b341-ab6d-\ -8b4ad9ffca61"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk0Vd0bB3BzMlWEIjJWhESJqP1k6jVLyRTpuucIkTmlaECDUoaiXkWo +ZJ4Jr59KEkJCpcz3XjLPR4P6bX+cddZn7bW+59nPs89ZR5Z22obgYGNjG8HX +yt2vRW1reVvL/krZMP7aLAbaP5mxm2aYgxaFAVbcn6KVoGBYjZysL/eu2Jr+ +nkdA8w3K6DNkvcQuDAl/zW3YjHQbr9q9xr5ev6E2POsD8pIy03iD/aLN79Fv +jU4kMxoT/BZ7tLvx/Nmqz8jA6LBCI7YEU95p0eAbcjyYpPse22zqvE5Acx9q +F3CpbsOu+T3KH5I1gDpKM552YHddEg8t8xlCpuSpn5+xJ3kMR+c1mGjaqLS8 +B5vnpq+DJsVCJhfDewexpdc9bPCrGkFphk0+I9iWkotPJw3GkbnuSNM8Npkq +J6bKO4lU+l4k/cIOV7SK9GqeQoLTgq0c2Qz0WbxjZ2DWDNpH7A8RxqY7enrE +35xFdg6SYxLY08lsj4t85tDil9C38ti8cqprZzQWUP27hmot7AT664NrRRfR +Iqu0E7BlnjmE76AWUeb4VnszbG2VqEnvqiWksyf5/gnsk1p9zaMGv9GswQeh +eOz5kCAuvi3L6BX3TEAq9sUqfj0l3j+oQOq+fh52Emhnuzf/RSqWEZuaVup7 +0mDon8UOnaGdr1bnMFBWfXz/JUkOcHloHCiBPT3scj72JgfYBxre3o59Xnmh +uMCHE6wrR9itsBPyZeWnNLhBpob55QF2d9t4zZ90blC+3vIpD1tmttxRSJQH +mI4m6DV2zi7LOFWKB9o4lkwnsOtenGM/VcULZKOlrXEuAy28/tg3YiAAYe/u +awnkMZCwucDa0BoBMBD3WaOErd5hCII6gtC6maQbY3sySlN3qglBwtH6y5ex +fTma1fcJrAXXnV6xbPkMxJTLm4lcXAf87sGUSAHuD9m4ulVTGMz7FeO1sTmy +WbIb/IRBwXBNtjO2jOZmm6wxYSgTvGf1HNvR4E5RS78IbE1K9TIuZKBWN/8A +8SZR+CUiN5NYxEC9z2KiXXnFoC1f61Ad9vhYVvpzIzGYSkxVncHmCxz6qFuL +3R3qZF7MQIYRR3a5lorDH7WoaN4SBqrM0FrITNkIIgrZ+5NKGSiD+TN4b6AU +KGpbsom+YKB/bK/2BuRKwfTxsFlz7PE6EeNcFl7faXMoEntXhoqojIM0SAhN +HKGw62guxdz7N0MtKAf2VzLQ7FT/mZErMtDRmL7+bTUDiXgblhRbyEGvjOcE +s5aBWBl8J6095cDexC5k+0sGqvjWJjkRJQcCoTt9/bCPmTtf2VIrB87K5U// +YGdsD7a5ryEPvUNWO6Rf4+ePPpsOE1eAzkauQr83DHTEnV/VdEARvEzLr3s2 +MhAKttWwW1aECOq/9dXYypEpe+gbt8CFt028Qk0MxJauqR92aAss6fCqFGPn +9jrZFb3cAr7rbY9zvMfv59GcSxJpW0E9tjW0pBXXZ2jRNUpTAj6Va4/dOxko +/XDiVypMCarl9h2ux46hDfRz/asE3/WdfBS78Pm+GDQm/VEJHLf39zOw11U/ +ZDtsoAw5cR7lJz/j86M5qVwlvx2Kv3irRnxlIEm52+HRDBXIiY+25RtkoOob +80o/OFSBKOUhwrGPzTl0kLKqIE6smZnHflSnoKTvogpLwd/CBoYYSM69sn3p +kyo8eD7mV8vE+81hKpJNaqDHKVN59zsDSUlKkzIO6lB3krXwcIaBVJ4ECvxC +GtD++pz+Fk4motGvLKhaakCLu0VxAXaSfFyv6zENCH1WF6vLxUScafkF9SEa +ILS3JNGGm4m6H40eiSvUgCOqmxsiVzHR9STXh0rymsCX4vU/NgEmYkWbq9nz +7ILcqWZlE1EmeuyvYF3avBteHQNxRSUmagtGeyKe6EB3ELvRVkcmknXptHQ+ +tQ+SuybuWcYxEfG3LE/qLAB74Ns1v94zkfhYxSpxmj54//dRo0GMhQI19b7F +KRvCDfvs2FAaC9EmfjeIjBrB0bWdz9aXsFCufsCqlNaDULHBUZxfdBhlzHu+ +zEkwgSsJO4fjzwyjpQMb3teFmwGXm7iO3dgw6mHjnBk4YQE1fPv2aJEjyGfT +6TuX5K2A+wurRmVgBOV5NNTejbSG9gSdpy2nv6Nzcxup7R6HYCdfcHL18ne0 +YGp89O1xG3ixLCWq+XgU6TjFHmAeOgw2YfeGL5uNofaNDz3rNI9AZG6IjtLc +GJJ4eqU6c5stXP2W7udRNI4q+pXNLQWPgvRkVGqN9wSS7ph2D544CjeOHjrj +qTqJNO/G5qT324EW6+wkG88Uesg1pxb32h4EP7F+dX2aQmUHdnRHvnCAR/DH +IfrENErac2Pd7yxHsCuYrvz38zRq/fokSvOmEwS/NBwPMp1BpRbJCr4Xj0G4 +o6BhYMMMmvE+zOZDd4YIjxutvWgWLRgrnZw0cAGpwUY7zrJZlDnxZSlA6zjo +WtGcMrTmkP3jJ27OAq6wcchLEfLmUHGR2XHOq64Q7/15dYjaPNKRbP9x/Ycr +zGXf5elKn0fy/e7dHzxOgEROhXeByAJi8HtZJQ+dgM6/38v3X1tAbTGWbgdt +aWA89nnZY2oBJYSk8Ae10eBPQ7lei90iqq75+8PNxA1qg9zmL5UuojXH4Kpm +pRtcm3NemuekkMz6t62bqt3gYkLKs13cFFJvttjAU+MGNy1ojwN4KGSj5/T8 +80s3yA+DgCleCiVsCm668M4NRJv1rvUKUkiiJ3tNw2c3uOR0WeuBOIUUXMST +jlFuMGKi/SRSmUI6rpOZkbvoICJRfUDKkkJP708HWGrRIfn0K0tJKwqt/zi7 +X1ybDsbDunkbrCk0aUR1ZOrSYVVNods6Gwp/v9jYm/XpwK3UnvbTlkJC1DoH +4UN0IFhxBjnOFGLc2r06xZsOATu7026colBM1XmPiqd0CIo/07/tGoW8NRJ1 +QjLpYBZr0rOAbf68cLV2Fh1owce3vrpOIb5E1vPyXDoILWen2UdTKNLferSs +hA76gXI7L8RQ6LySglfpKzpUdddfy0igkGdi06miXjoU8y1yeqVSyESIpeff +TwfnG7P2so8ptC2STVBjkA4ci5KLXdgs/925hUw6HH7vxAvpFDphmTJRME6H +iknatdVPKWTPHeCT/5MOJR6pnWezKXQwQMI3R4zA8/uU0VJKoVcpUaZxGwgQ +E9irEVpGIb3mWYUQCQLYqvsHtpTjeSk2fTGQJkD+tuWz0AoKbfwUavBVkQBG +2fIbiSoKje3tEePbTYD0R4bqjloK3eZI/c/9MAGZ48k389/h/e8QSLKwJaBl +vlYYGikU4RTir2lHwGW/bWWt2CEl1lv/OhJwpmfHkfEmXD/JHnuPRkCh8o7v +Ei0U0myk0d/4EVBnLGlv0U6hT7GK/PJ3CJC5G+nC002hPCR4ciSWgOr32rH+ +2BET83W58QRUODN/9mBrmNSFaScSMNfc6F/0Fc+PzW3W4hEBESEas4d6KGR8 +OvVLSA4BsWdPSHr1U0hK6prW/jwCeM+9L2rEnm88Hc9ZQEBU99twpQEKpW1B +FjHFBFTyiFQysJd7emrTKwnw+VCVe2iIQiXmkpktDQScTcoP52ZRKPonB3dC +I+53oi9pj03LHD3h0EyAiv2lS1nYa7kqJRmtBLyL++eI+TCFTlXZ3/7RRQCX +WJBn1AiF5JXvBSswCVAuFzHtGKXQz08XPn5nEbDD+o63xBiF2iIJ9fwRAs5x +m9Udxw4b2DWqM07A1G09/hHs7qSPzlZzBNzNJpcnxykUt2qd0Tl2Eh5slSW7 +JilUPdvjFMhJwuJS2mGxKQoN92T5+3CTEOXWB7bYeiWGqbTVJGx8eECiDZvl +GvLLdB0JpoEt9S+mcf3mRsJGIiSwTxoVzGDr7hFWQqIkqJ+ZTdo2Q6E7gjlH +NTeS8MUw1z0eW7eyr1BSlgSt4/w/js1SiHyS0yAqT4L29I3um9h37pztW6NI +4v+DpsoqbBYpIsilRILwvPMZsTm8LnLw5Lg6CS+0aX3/w678IxLO0iChSfxm +6TA283v/3f5dJBz4JHpDaJ5Ce2vPve7QJqH9mpSaAzbjVJ70f0ACb2SP6yC2 +kH3o7nJ9ErJ1Gds4FvD3xOAf80JDEvKtfk3KYMdsHDz75B8SGGraQU7YFVz5 +d1JMSZgKs9h9BntoKvTZfXMSJLRs5mKxtetFO29Zk5DDLuBRh00rHBy7akNC +Sl+RzDfsW8n5HJePkFBWrtI1iz3ob6IebE+CP+/FvVKLFBJ0ETvo60hC522L +7+rY2iZDzp7HcP/Uuu4aYN/afCHaxZWETTOcIwR2BZ9pmj0N7/9kyq0g7MEF +sRc2dBJEHg+qR6zkDQy1mpMk8J979yF2Ja+5gGV8Es9/k7XvI2xa+YVl8CTB +66e/QNZKfprpet1T+Dy8V3taspJ/S3z7bh8Szj+4uK9mJT+EcWCHL87PIdrr +sQXohfZK/iQkJ36lt2DvsQo7LR+I+723f75jJX+vWZRUMAl61X6Xu7FvKm54 +KB6C5x8dI9iHXbaWWbzuHAlLx3ffG8Qe+FXYyH+ehGhdYhNzJX84bIA7jISP +7lKpLGytdrOlv+EkxJxxlh3G/j/rhii8 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0Vd0bB3BzMlWEIjJWhESJqP1k6jVLyRTpuucIkTmlaECDUoaiXkWo +ZJ4Jr59KEkJCpcz3XjLPR4P6bX+cddZn7bW+59nPs89ZR5Z22obgYGNjG8HX +yt2vRW1reVvL/krZMP7aLAbaP5mxm2aYgxaFAVbcn6KVoGBYjZysL/eu2Jr+ +nkdA8w3K6DNkvcQuDAl/zW3YjHQbr9q9xr5ev6E2POsD8pIy03iD/aLN79Fv +jU4kMxoT/BZ7tLvx/Nmqz8jA6LBCI7YEU95p0eAbcjyYpPse22zqvE5Acx9q +F3CpbsOu+T3KH5I1gDpKM552YHddEg8t8xlCpuSpn5+xJ3kMR+c1mGjaqLS8 +B5vnpq+DJsVCJhfDewexpdc9bPCrGkFphk0+I9iWkotPJw3GkbnuSNM8Npkq +J6bKO4lU+l4k/cIOV7SK9GqeQoLTgq0c2Qz0WbxjZ2DWDNpH7A8RxqY7enrE +35xFdg6SYxLY08lsj4t85tDil9C38ti8cqprZzQWUP27hmot7AT664NrRRfR +Iqu0E7BlnjmE76AWUeb4VnszbG2VqEnvqiWksyf5/gnsk1p9zaMGv9GswQeh +eOz5kCAuvi3L6BX3TEAq9sUqfj0l3j+oQOq+fh52Emhnuzf/RSqWEZuaVup7 +0mDon8UOnaGdr1bnMFBWfXz/JUkOcHloHCiBPT3scj72JgfYBxre3o59Xnmh +uMCHE6wrR9itsBPyZeWnNLhBpob55QF2d9t4zZ90blC+3vIpD1tmttxRSJQH +mI4m6DV2zi7LOFWKB9o4lkwnsOtenGM/VcULZKOlrXEuAy28/tg3YiAAYe/u +awnkMZCwucDa0BoBMBD3WaOErd5hCII6gtC6maQbY3sySlN3qglBwtH6y5ex +fTma1fcJrAXXnV6xbPkMxJTLm4lcXAf87sGUSAHuD9m4ulVTGMz7FeO1sTmy +WbIb/IRBwXBNtjO2jOZmm6wxYSgTvGf1HNvR4E5RS78IbE1K9TIuZKBWN/8A +8SZR+CUiN5NYxEC9z2KiXXnFoC1f61Ad9vhYVvpzIzGYSkxVncHmCxz6qFuL +3R3qZF7MQIYRR3a5lorDH7WoaN4SBqrM0FrITNkIIgrZ+5NKGSiD+TN4b6AU +KGpbsom+YKB/bK/2BuRKwfTxsFlz7PE6EeNcFl7faXMoEntXhoqojIM0SAhN +HKGw62guxdz7N0MtKAf2VzLQ7FT/mZErMtDRmL7+bTUDiXgblhRbyEGvjOcE +s5aBWBl8J6095cDexC5k+0sGqvjWJjkRJQcCoTt9/bCPmTtf2VIrB87K5U// +YGdsD7a5ryEPvUNWO6Rf4+ePPpsOE1eAzkauQr83DHTEnV/VdEARvEzLr3s2 +MhAKttWwW1aECOq/9dXYypEpe+gbt8CFt028Qk0MxJauqR92aAss6fCqFGPn +9jrZFb3cAr7rbY9zvMfv59GcSxJpW0E9tjW0pBXXZ2jRNUpTAj6Va4/dOxko +/XDiVypMCarl9h2ux46hDfRz/asE3/WdfBS78Pm+GDQm/VEJHLf39zOw11U/ +ZDtsoAw5cR7lJz/j86M5qVwlvx2Kv3irRnxlIEm52+HRDBXIiY+25RtkoOob +80o/OFSBKOUhwrGPzTl0kLKqIE6smZnHflSnoKTvogpLwd/CBoYYSM69sn3p +kyo8eD7mV8vE+81hKpJNaqDHKVN59zsDSUlKkzIO6lB3krXwcIaBVJ4ECvxC +GtD++pz+Fk4motGvLKhaakCLu0VxAXaSfFyv6zENCH1WF6vLxUScafkF9SEa +ILS3JNGGm4m6H40eiSvUgCOqmxsiVzHR9STXh0rymsCX4vU/NgEmYkWbq9nz +7ILcqWZlE1EmeuyvYF3avBteHQNxRSUmagtGeyKe6EB3ELvRVkcmknXptHQ+ +tQ+SuybuWcYxEfG3LE/qLAB74Ns1v94zkfhYxSpxmj54//dRo0GMhQI19b7F +KRvCDfvs2FAaC9EmfjeIjBrB0bWdz9aXsFCufsCqlNaDULHBUZxfdBhlzHu+ +zEkwgSsJO4fjzwyjpQMb3teFmwGXm7iO3dgw6mHjnBk4YQE1fPv2aJEjyGfT +6TuX5K2A+wurRmVgBOV5NNTejbSG9gSdpy2nv6Nzcxup7R6HYCdfcHL18ne0 +YGp89O1xG3ixLCWq+XgU6TjFHmAeOgw2YfeGL5uNofaNDz3rNI9AZG6IjtLc +GJJ4eqU6c5stXP2W7udRNI4q+pXNLQWPgvRkVGqN9wSS7ph2D544CjeOHjrj +qTqJNO/G5qT324EW6+wkG88Uesg1pxb32h4EP7F+dX2aQmUHdnRHvnCAR/DH +IfrENErac2Pd7yxHsCuYrvz38zRq/fokSvOmEwS/NBwPMp1BpRbJCr4Xj0G4 +o6BhYMMMmvE+zOZDd4YIjxutvWgWLRgrnZw0cAGpwUY7zrJZlDnxZSlA6zjo +WtGcMrTmkP3jJ27OAq6wcchLEfLmUHGR2XHOq64Q7/15dYjaPNKRbP9x/Ycr +zGXf5elKn0fy/e7dHzxOgEROhXeByAJi8HtZJQ+dgM6/38v3X1tAbTGWbgdt +aWA89nnZY2oBJYSk8Ae10eBPQ7lei90iqq75+8PNxA1qg9zmL5UuojXH4Kpm +pRtcm3NemuekkMz6t62bqt3gYkLKs13cFFJvttjAU+MGNy1ojwN4KGSj5/T8 +80s3yA+DgCleCiVsCm668M4NRJv1rvUKUkiiJ3tNw2c3uOR0WeuBOIUUXMST +jlFuMGKi/SRSmUI6rpOZkbvoICJRfUDKkkJP708HWGrRIfn0K0tJKwqt/zi7 +X1ybDsbDunkbrCk0aUR1ZOrSYVVNods6Gwp/v9jYm/XpwK3UnvbTlkJC1DoH +4UN0IFhxBjnOFGLc2r06xZsOATu7026colBM1XmPiqd0CIo/07/tGoW8NRJ1 +QjLpYBZr0rOAbf68cLV2Fh1owce3vrpOIb5E1vPyXDoILWen2UdTKNLferSs +hA76gXI7L8RQ6LySglfpKzpUdddfy0igkGdi06miXjoU8y1yeqVSyESIpeff +TwfnG7P2so8ptC2STVBjkA4ci5KLXdgs/925hUw6HH7vxAvpFDphmTJRME6H +iknatdVPKWTPHeCT/5MOJR6pnWezKXQwQMI3R4zA8/uU0VJKoVcpUaZxGwgQ +E9irEVpGIb3mWYUQCQLYqvsHtpTjeSk2fTGQJkD+tuWz0AoKbfwUavBVkQBG +2fIbiSoKje3tEePbTYD0R4bqjloK3eZI/c/9MAGZ48k389/h/e8QSLKwJaBl +vlYYGikU4RTir2lHwGW/bWWt2CEl1lv/OhJwpmfHkfEmXD/JHnuPRkCh8o7v +Ei0U0myk0d/4EVBnLGlv0U6hT7GK/PJ3CJC5G+nC002hPCR4ciSWgOr32rH+ +2BET83W58QRUODN/9mBrmNSFaScSMNfc6F/0Fc+PzW3W4hEBESEas4d6KGR8 +OvVLSA4BsWdPSHr1U0hK6prW/jwCeM+9L2rEnm88Hc9ZQEBU99twpQEKpW1B +FjHFBFTyiFQysJd7emrTKwnw+VCVe2iIQiXmkpktDQScTcoP52ZRKPonB3dC +I+53oi9pj03LHD3h0EyAiv2lS1nYa7kqJRmtBLyL++eI+TCFTlXZ3/7RRQCX +WJBn1AiF5JXvBSswCVAuFzHtGKXQz08XPn5nEbDD+o63xBiF2iIJ9fwRAs5x +m9Udxw4b2DWqM07A1G09/hHs7qSPzlZzBNzNJpcnxykUt2qd0Tl2Eh5slSW7 +JilUPdvjFMhJwuJS2mGxKQoN92T5+3CTEOXWB7bYeiWGqbTVJGx8eECiDZvl +GvLLdB0JpoEt9S+mcf3mRsJGIiSwTxoVzGDr7hFWQqIkqJ+ZTdo2Q6E7gjlH +NTeS8MUw1z0eW7eyr1BSlgSt4/w/js1SiHyS0yAqT4L29I3um9h37pztW6NI +4v+DpsoqbBYpIsilRILwvPMZsTm8LnLw5Lg6CS+0aX3/w678IxLO0iChSfxm +6TA283v/3f5dJBz4JHpDaJ5Ce2vPve7QJqH9mpSaAzbjVJ70f0ACb2SP6yC2 +kH3o7nJ9ErJ1Gds4FvD3xOAf80JDEvKtfk3KYMdsHDz75B8SGGraQU7YFVz5 +d1JMSZgKs9h9BntoKvTZfXMSJLRs5mKxtetFO29Zk5DDLuBRh00rHBy7akNC +Sl+RzDfsW8n5HJePkFBWrtI1iz3ob6IebE+CP+/FvVKLFBJ0ETvo60hC522L +7+rY2iZDzp7HcP/Uuu4aYN/afCHaxZWETTOcIwR2BZ9pmj0N7/9kyq0g7MEF +sRc2dBJEHg+qR6zkDQy1mpMk8J979yF2Ja+5gGV8Es9/k7XvI2xa+YVl8CTB +66e/QNZKfprpet1T+Dy8V3taspJ/S3z7bh8Szj+4uK9mJT+EcWCHL87PIdrr +sQXohfZK/iQkJ36lt2DvsQo7LR+I+723f75jJX+vWZRUMAl61X6Xu7FvKm54 +KB6C5x8dI9iHXbaWWbzuHAlLx3ffG8Qe+FXYyH+ehGhdYhNzJX84bIA7jISP +7lKpLGytdrOlv+EkxJxxlh3G/j/rhii8 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6458435272662009, + 1.4977790168117937`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6458435272662023}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6458435272662009, + 1.4977790168117937`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6458435272662023}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0Vd0bB3BzMlWEIjJWhESJqP1k6jVLyRTpuucIkTmlaECDUoaiXkWo +ZJ4Jr59KEkJCpcz3XjLPR4P6bX+cddZn7bW+59nPs89ZR5Z22obgYGNjG8HX +yt2vRW1reVvL/krZMP7aLAbaP5mxm2aYgxaFAVbcn6KVoGBYjZysL/eu2Jr+ +nkdA8w3K6DNkvcQuDAl/zW3YjHQbr9q9xr5ev6E2POsD8pIy03iD/aLN79Fv +jU4kMxoT/BZ7tLvx/Nmqz8jA6LBCI7YEU95p0eAbcjyYpPse22zqvE5Acx9q +F3CpbsOu+T3KH5I1gDpKM552YHddEg8t8xlCpuSpn5+xJ3kMR+c1mGjaqLS8 +B5vnpq+DJsVCJhfDewexpdc9bPCrGkFphk0+I9iWkotPJw3GkbnuSNM8Npkq +J6bKO4lU+l4k/cIOV7SK9GqeQoLTgq0c2Qz0WbxjZ2DWDNpH7A8RxqY7enrE +35xFdg6SYxLY08lsj4t85tDil9C38ti8cqprZzQWUP27hmot7AT664NrRRfR +Iqu0E7BlnjmE76AWUeb4VnszbG2VqEnvqiWksyf5/gnsk1p9zaMGv9GswQeh +eOz5kCAuvi3L6BX3TEAq9sUqfj0l3j+oQOq+fh52Emhnuzf/RSqWEZuaVup7 +0mDon8UOnaGdr1bnMFBWfXz/JUkOcHloHCiBPT3scj72JgfYBxre3o59Xnmh +uMCHE6wrR9itsBPyZeWnNLhBpob55QF2d9t4zZ90blC+3vIpD1tmttxRSJQH +mI4m6DV2zi7LOFWKB9o4lkwnsOtenGM/VcULZKOlrXEuAy28/tg3YiAAYe/u +awnkMZCwucDa0BoBMBD3WaOErd5hCII6gtC6maQbY3sySlN3qglBwtH6y5ex +fTma1fcJrAXXnV6xbPkMxJTLm4lcXAf87sGUSAHuD9m4ulVTGMz7FeO1sTmy +WbIb/IRBwXBNtjO2jOZmm6wxYSgTvGf1HNvR4E5RS78IbE1K9TIuZKBWN/8A +8SZR+CUiN5NYxEC9z2KiXXnFoC1f61Ad9vhYVvpzIzGYSkxVncHmCxz6qFuL +3R3qZF7MQIYRR3a5lorDH7WoaN4SBqrM0FrITNkIIgrZ+5NKGSiD+TN4b6AU +KGpbsom+YKB/bK/2BuRKwfTxsFlz7PE6EeNcFl7faXMoEntXhoqojIM0SAhN +HKGw62guxdz7N0MtKAf2VzLQ7FT/mZErMtDRmL7+bTUDiXgblhRbyEGvjOcE +s5aBWBl8J6095cDexC5k+0sGqvjWJjkRJQcCoTt9/bCPmTtf2VIrB87K5U// +YGdsD7a5ryEPvUNWO6Rf4+ePPpsOE1eAzkauQr83DHTEnV/VdEARvEzLr3s2 +MhAKttWwW1aECOq/9dXYypEpe+gbt8CFt028Qk0MxJauqR92aAss6fCqFGPn +9jrZFb3cAr7rbY9zvMfv59GcSxJpW0E9tjW0pBXXZ2jRNUpTAj6Va4/dOxko +/XDiVypMCarl9h2ux46hDfRz/asE3/WdfBS78Pm+GDQm/VEJHLf39zOw11U/ +ZDtsoAw5cR7lJz/j86M5qVwlvx2Kv3irRnxlIEm52+HRDBXIiY+25RtkoOob +80o/OFSBKOUhwrGPzTl0kLKqIE6smZnHflSnoKTvogpLwd/CBoYYSM69sn3p +kyo8eD7mV8vE+81hKpJNaqDHKVN59zsDSUlKkzIO6lB3krXwcIaBVJ4ECvxC +GtD++pz+Fk4motGvLKhaakCLu0VxAXaSfFyv6zENCH1WF6vLxUScafkF9SEa +ILS3JNGGm4m6H40eiSvUgCOqmxsiVzHR9STXh0rymsCX4vU/NgEmYkWbq9nz +7ILcqWZlE1EmeuyvYF3avBteHQNxRSUmagtGeyKe6EB3ELvRVkcmknXptHQ+ +tQ+SuybuWcYxEfG3LE/qLAB74Ns1v94zkfhYxSpxmj54//dRo0GMhQI19b7F +KRvCDfvs2FAaC9EmfjeIjBrB0bWdz9aXsFCufsCqlNaDULHBUZxfdBhlzHu+ +zEkwgSsJO4fjzwyjpQMb3teFmwGXm7iO3dgw6mHjnBk4YQE1fPv2aJEjyGfT +6TuX5K2A+wurRmVgBOV5NNTejbSG9gSdpy2nv6Nzcxup7R6HYCdfcHL18ne0 +YGp89O1xG3ixLCWq+XgU6TjFHmAeOgw2YfeGL5uNofaNDz3rNI9AZG6IjtLc +GJJ4eqU6c5stXP2W7udRNI4q+pXNLQWPgvRkVGqN9wSS7ph2D544CjeOHjrj +qTqJNO/G5qT324EW6+wkG88Uesg1pxb32h4EP7F+dX2aQmUHdnRHvnCAR/DH +IfrENErac2Pd7yxHsCuYrvz38zRq/fokSvOmEwS/NBwPMp1BpRbJCr4Xj0G4 +o6BhYMMMmvE+zOZDd4YIjxutvWgWLRgrnZw0cAGpwUY7zrJZlDnxZSlA6zjo +WtGcMrTmkP3jJ27OAq6wcchLEfLmUHGR2XHOq64Q7/15dYjaPNKRbP9x/Ycr +zGXf5elKn0fy/e7dHzxOgEROhXeByAJi8HtZJQ+dgM6/38v3X1tAbTGWbgdt +aWA89nnZY2oBJYSk8Ae10eBPQ7lei90iqq75+8PNxA1qg9zmL5UuojXH4Kpm +pRtcm3NemuekkMz6t62bqt3gYkLKs13cFFJvttjAU+MGNy1ojwN4KGSj5/T8 +80s3yA+DgCleCiVsCm668M4NRJv1rvUKUkiiJ3tNw2c3uOR0WeuBOIUUXMST +jlFuMGKi/SRSmUI6rpOZkbvoICJRfUDKkkJP708HWGrRIfn0K0tJKwqt/zi7 +X1ybDsbDunkbrCk0aUR1ZOrSYVVNods6Gwp/v9jYm/XpwK3UnvbTlkJC1DoH +4UN0IFhxBjnOFGLc2r06xZsOATu7026colBM1XmPiqd0CIo/07/tGoW8NRJ1 +QjLpYBZr0rOAbf68cLV2Fh1owce3vrpOIb5E1vPyXDoILWen2UdTKNLferSs +hA76gXI7L8RQ6LySglfpKzpUdddfy0igkGdi06miXjoU8y1yeqVSyESIpeff +TwfnG7P2so8ptC2STVBjkA4ci5KLXdgs/925hUw6HH7vxAvpFDphmTJRME6H +iknatdVPKWTPHeCT/5MOJR6pnWezKXQwQMI3R4zA8/uU0VJKoVcpUaZxGwgQ +E9irEVpGIb3mWYUQCQLYqvsHtpTjeSk2fTGQJkD+tuWz0AoKbfwUavBVkQBG +2fIbiSoKje3tEePbTYD0R4bqjloK3eZI/c/9MAGZ48k389/h/e8QSLKwJaBl +vlYYGikU4RTir2lHwGW/bWWt2CEl1lv/OhJwpmfHkfEmXD/JHnuPRkCh8o7v +Ei0U0myk0d/4EVBnLGlv0U6hT7GK/PJ3CJC5G+nC002hPCR4ciSWgOr32rH+ +2BET83W58QRUODN/9mBrmNSFaScSMNfc6F/0Fc+PzW3W4hEBESEas4d6KGR8 +OvVLSA4BsWdPSHr1U0hK6prW/jwCeM+9L2rEnm88Hc9ZQEBU99twpQEKpW1B +FjHFBFTyiFQysJd7emrTKwnw+VCVe2iIQiXmkpktDQScTcoP52ZRKPonB3dC +I+53oi9pj03LHD3h0EyAiv2lS1nYa7kqJRmtBLyL++eI+TCFTlXZ3/7RRQCX +WJBn1AiF5JXvBSswCVAuFzHtGKXQz08XPn5nEbDD+o63xBiF2iIJ9fwRAs5x +m9Udxw4b2DWqM07A1G09/hHs7qSPzlZzBNzNJpcnxykUt2qd0Tl2Eh5slSW7 +JilUPdvjFMhJwuJS2mGxKQoN92T5+3CTEOXWB7bYeiWGqbTVJGx8eECiDZvl +GvLLdB0JpoEt9S+mcf3mRsJGIiSwTxoVzGDr7hFWQqIkqJ+ZTdo2Q6E7gjlH +NTeS8MUw1z0eW7eyr1BSlgSt4/w/js1SiHyS0yAqT4L29I3um9h37pztW6NI +4v+DpsoqbBYpIsilRILwvPMZsTm8LnLw5Lg6CS+0aX3/w678IxLO0iChSfxm +6TA283v/3f5dJBz4JHpDaJ5Ce2vPve7QJqH9mpSaAzbjVJ70f0ACb2SP6yC2 +kH3o7nJ9ErJ1Gds4FvD3xOAf80JDEvKtfk3KYMdsHDz75B8SGGraQU7YFVz5 +d1JMSZgKs9h9BntoKvTZfXMSJLRs5mKxtetFO29Zk5DDLuBRh00rHBy7akNC +Sl+RzDfsW8n5HJePkFBWrtI1iz3ob6IebE+CP+/FvVKLFBJ0ETvo60hC522L +7+rY2iZDzp7HcP/Uuu4aYN/afCHaxZWETTOcIwR2BZ9pmj0N7/9kyq0g7MEF +sRc2dBJEHg+qR6zkDQy1mpMk8J979yF2Ja+5gGV8Es9/k7XvI2xa+YVl8CTB +66e/QNZKfprpet1T+Dy8V3taspJ/S3z7bh8Szj+4uK9mJT+EcWCHL87PIdrr +sQXohfZK/iQkJ36lt2DvsQo7LR+I+723f75jJX+vWZRUMAl61X6Xu7FvKm54 +KB6C5x8dI9iHXbaWWbzuHAlLx3ffG8Qe+FXYyH+ehGhdYhNzJX84bIA7jISP +7lKpLGytdrOlv+EkxJxxlh3G/j/rhii8 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6458435272662009, 1.4977790168117937`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6458435272662023}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.6458435272662023}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.6458435272662009, 1.4977790168117937`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994260277094955*^9}, + CellLabel-> + "Out[139]=",ExpressionUUID->"04cebae8-c5d6-480d-a7e0-84711c0688d2"] }, Open ]], Cell[CellGroupData[{ @@ -12017,463 +13937,1062 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ - 3.99185079904813*^9, {3.9918508647235966`*^9, - 3.991850864992861*^9}},ExpressionUUID->"d43bf17b-b492-0e4a-af4a-\ -6a3bc399953c"], + 3.99185079904813*^9, {3.9918508647235966`*^9, 3.991850864992861*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"2059be4f-bbb2-da49-9e23-3fc4d150d7a8"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4246867135635458`*^-265\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 69, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260277280595*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"6a628236-249f-4b4a-bdb3-ee160fc91564"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"71d4e039-c2b8-d74d-819a-80d2051e4273"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.2856845044410126`*^-276\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 140, 70, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260277289856*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"e8332156-9dd5-4566-989f-867caf348627"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"63625e13-15ef-1f45-89dc-998a1b63a626"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1546510007321964`*^-287\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 140, 71, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260277298469*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"19f24011-850e-4e3f-8dfe-5757c3d7eaea"], Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"ff96fc2b-5ddb-2142-a985-58ccc6f07e00"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.0634921 0.0147151 5.37313 [ -[.15079 .00222 -3 -9 ] -[.15079 .00222 3 0 ] -[.27778 .00222 -3 -9 ] -[.27778 .00222 3 0 ] -[.40476 .00222 -3 -9 ] -[.40476 .00222 3 0 ] -[.53175 .00222 -3 -9 ] -[.53175 .00222 3 0 ] -[.65873 .00222 -6 -9 ] -[.65873 .00222 6 0 ] -[.78571 .00222 -6 -9 ] -[.78571 .00222 6 0 ] -[.9127 .00222 -6 -9 ] -[.9127 .00222 6 0 ] -[.01131 .12218 -24 -4.5 ] -[.01131 .12218 0 4.5 ] -[.01131 .22964 -24 -4.5 ] -[.01131 .22964 0 4.5 ] -[.01131 .3371 -24 -4.5 ] -[.01131 .3371 0 4.5 ] -[.01131 .44457 -24 -4.5 ] -[.01131 .44457 0 4.5 ] -[.01131 .55203 -18 -4.5 ] -[.01131 .55203 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.15079 .01472 m -.15079 .02097 L -s -[(2)] .15079 .00222 0 1 Mshowa -.27778 .01472 m -.27778 .02097 L -s -[(4)] .27778 .00222 0 1 Mshowa -.40476 .01472 m -.40476 .02097 L -s -[(6)] .40476 .00222 0 1 Mshowa -.53175 .01472 m -.53175 .02097 L -s -[(8)] .53175 .00222 0 1 Mshowa -.65873 .01472 m -.65873 .02097 L -s -[(10)] .65873 .00222 0 1 Mshowa -.78571 .01472 m -.78571 .02097 L -s -[(12)] .78571 .00222 0 1 Mshowa -.9127 .01472 m -.9127 .02097 L -s -[(14)] .9127 .00222 0 1 Mshowa -.125 Mabswid -.05556 .01472 m -.05556 .01847 L -s -.0873 .01472 m -.0873 .01847 L -s -.11905 .01472 m -.11905 .01847 L -s -.18254 .01472 m -.18254 .01847 L -s -.21429 .01472 m -.21429 .01847 L -s -.24603 .01472 m -.24603 .01847 L -s -.30952 .01472 m -.30952 .01847 L -s -.34127 .01472 m -.34127 .01847 L -s -.37302 .01472 m -.37302 .01847 L -s -.43651 .01472 m -.43651 .01847 L -s -.46825 .01472 m -.46825 .01847 L -s -.5 .01472 m -.5 .01847 L -s -.56349 .01472 m -.56349 .01847 L -s -.59524 .01472 m -.59524 .01847 L -s -.62698 .01472 m -.62698 .01847 L -s -.69048 .01472 m -.69048 .01847 L -s -.72222 .01472 m -.72222 .01847 L -s -.75397 .01472 m -.75397 .01847 L -s -.81746 .01472 m -.81746 .01847 L -s -.84921 .01472 m -.84921 .01847 L -s -.88095 .01472 m -.88095 .01847 L -s -.94444 .01472 m -.94444 .01847 L -s -.97619 .01472 m -.97619 .01847 L -s -.25 Mabswid -0 .01472 m -1 .01472 L -s -.02381 .12218 m -.03006 .12218 L -s -[(0.02)] .01131 .12218 1 0 Mshowa -.02381 .22964 m -.03006 .22964 L -s -[(0.04)] .01131 .22964 1 0 Mshowa -.02381 .3371 m -.03006 .3371 L -s -[(0.06)] .01131 .3371 1 0 Mshowa -.02381 .44457 m -.03006 .44457 L -s -[(0.08)] .01131 .44457 1 0 Mshowa -.02381 .55203 m -.03006 .55203 L -s -[(0.1)] .01131 .55203 1 0 Mshowa -.125 Mabswid -.02381 .04158 m -.02756 .04158 L -s -.02381 .06845 m -.02756 .06845 L -s -.02381 .09531 m -.02756 .09531 L -s -.02381 .14904 m -.02756 .14904 L -s -.02381 .17591 m -.02756 .17591 L -s -.02381 .20277 m -.02756 .20277 L -s -.02381 .25651 m -.02756 .25651 L -s -.02381 .28337 m -.02756 .28337 L -s -.02381 .31024 m -.02756 .31024 L -s -.02381 .36397 m -.02756 .36397 L -s -.02381 .39083 m -.02756 .39083 L -s -.02381 .4177 m -.02756 .4177 L -s -.02381 .47143 m -.02756 .47143 L -s -.02381 .4983 m -.02756 .4983 L -s -.02381 .52516 m -.02756 .52516 L -s -.02381 .57889 m -.02756 .57889 L -s -.02381 .60576 m -.02756 .60576 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .01472 m -.06244 .12073 L -.10458 .23188 L -.14415 .32802 L -.18221 .40977 L -.22272 .48259 L -.26171 .53704 L -.28302 .55995 L -.30316 .57709 L -.31285 .58377 L -.32313 .58977 L -.33276 .59437 L -.34157 .59772 L -.35098 .60043 L -.35617 .60154 L -.3611 .60234 L -.3633 .60262 L -.36564 .60287 L -.36785 .60305 L -.36985 .60318 L -.37108 .60323 L -.37222 .60327 L -.37346 .6033 L -.37477 .60332 L -.37591 .60332 L -.37698 .60331 L -.37815 .60328 L -.3794 .60324 L -.38062 .60319 L -.38197 .60311 L -.38469 .60291 L -.38721 .60266 L -.38958 .60237 L -.3949 .60153 L -.40064 .60035 L -.41114 .59744 L -.42077 .59396 L -.43969 .58496 L -.46039 .57209 L -.50095 .53905 L -.54 .49958 L -.58149 .45213 L -.62148 .40358 L -.65994 .3563 L -.70086 .30723 L -.74026 .26259 L -.77815 .22302 L -.81849 .18514 L -.85731 .15313 L -.89859 .12393 L -Mistroke -.93835 .10033 L -.97619 .08171 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJzdXHmcFcURfriXisohiYgk3OxyH8t9ihpuUAQBIRiWS+QQAgJKAEVQETAg -5ieHoKhRMREP5BBFIsagGBWjUcSTUw3KJcihYmeqprtq5lk1szwf/kz+2Lcz -1fV1fV19TFd3z3QpuG7o4JEF110zsKB8uzEFo4deM3Bs+bajxniijCKJRJFt -3l+18olM79okEqGfOeaE2Q4/3rUx35vt8HPy1wX4L8MMHjzYlCpVyjRo0MC7 -83+LFi1qvvv2O9Soj7/ZZsniJZBqqlevbs4991y83vbJNj85yyyYv8DUqFHD -VKtWzQwbNswc+foIQb86+JUZOnQoQho2bGh69OhhdmzfUctCd+7YiUku9xIl -SiROs0xm3j4TtFDzNKs/d85ck5uba/Ly8tDU9ye+T+TG5pUVzMuVOpEplLhK -SrxUD5UP+9sruKlbt65Z8dQK786XNWnShKw3sLI3N79p+vfvH6qDB+5/wHTt -2tUc+uoQWr/xxhvBsX5yjunUqZO5Y/YdVMjVq1ZjnRw7eixRJ5At+N8vop/t -2mfWmg4dOpivD39tvv3mWzN8+HBz+4zbqwuQzEKWIk/Ani6UrILvnAE2ac9/ -9mALue/e+6xbM8ycP3qN/bsTeFfXZnThhReim4EC/EFzKFmyJF5/8vEn9axD -qlatavZ+uZccAtmUKVPGHD923GaVYT7d/Sk2Wv/O/+3du7d5Zs0zeFc7wnHt -2rVDucsfGnrFihUlx2UVsoSS4zILV2rb0AbaHPbv249VMnvWbNuoss20m6eZ -eXfOI8K2KuoHyAEk6It69ephT4A714ignLVr1w7p9ezZ07y88WXVZ67lQAu5 -4IILsNc6bIsWLcx7W95THZAtFKmmakMtZkXfQYMCpWjatCloJvItEnoWlAy6 -guCgjf/YiA3IU6PaO3jgIMq8Gky4hgfNe9bMWUTg6RVPm1q1akHhxZ7onPPF -ni+wNoOOveqqq8y659apzskRilMjwjlKEa1zBgdKBYyfX/e8dY4/8LpSWVTC -jT0bXthgSpcujWPQRx9+ZD7/7HPTq1cvM33adBq+oI23atUK2yx47Pzzz4fu -VzfCIV6zxkIFHQKPkiefeDJ2nAkWQe+ScrGsN4ZY2KubXjWNGzcODMZZMIiY -/Px89GfYG9nYYWBQgUGkbdu2pmXLllAvrpXNv3u+ad++PZYOqnzEiBFmwoQJ -UY748osvxZbhFU51xBkC+2oRjpBKZB1xtYVB1Xk9N+CITHPvknvNLdNvcZB8 -q1q5cmWzfZs/22hoW0m5cuWwwK5fQFYwSHttMbJfaIPG1ve2qqU/U6CsDy4/ -KIYtuHtsv/7a6ziswJ3r+fBoqVSpEt7l21yAabNmzcwLf3sh6IxFCxdhu2Vn -ZGAX+Ob4N6EsoWPu2rkL72raLO3I6EhnW9bQgDa/sZl8Cf3f83mejMoqZDly -ZXiOXLyQk3LMu++8i6V6du2z2NlhvO7WrRv0Lir1Y399DOcw0Lic00AX9MaO -HQuDh3taQbe44YYbXO2Zh/78kGndurWbN0KXAC7du3c3S+9bCjQTzjnAADoe -NGXwMcwTvalRbgQ0qxCFiMKfLhTQ+meAZfXG62/gnAEGPniQw4PfK1wji4QJ -o5sYNbCWIPf69evDtAL/Xnn5FfuUyTZHjxw148ePx0YDj+l+/frBI9x1pBc3 -vGg6duyI5HJsdnfOvdNUqVIFpw4jR47EDlVN0M+OZixBzhBKYad3WgxSy0Ig -rLHN2E9/6n8jvaIv9ZLXw0+RKCnmdRoIzhJyLXoyMs5FvTr7x9r4KWT/p+z5 -qmhy1Teiq8ZCtg01WYqI3J+Peaujd62EmJ4ZTKcsnpRVnFoqKuEynEZKTwSV -skL5hFg/kVxWf5riAL7S4xFKlNPjUbR+KMPfx2IwXJ7l6dDM0Hj8NQbDuUcw -ztRy/8spwDCjCO5ZWu6P/kgMJmeFefwlOT1by2mZbj07nGcEz8Jr5mg8HonB -cO4RjE/Xcl9IWRRNAT2f3HhWDJpZ3k2Yc3TMGZrFeYQungJ6LqFLxqCZ7xzC -lEpuO2dqdmaRyi9FDOc+kxJK64ySMDMIU0bHSA9W/J1O6LIxaLY4nW5/rWOk -iRf+3kQWy6WAnkLoCjFo5juFbv2wK3Jx2x9LMjGQad68OUbWO3fszLYQWAKA -dQ4IAyDm8UIAGqJ379qNNr20hFvdh/n/pEmTUEMaXKTZF/5OJNL+EnnC79/a -+jHxhvgSFtghQy9+caunsPJas2ZN5AjZPPLwIxBMuLHcywFDj8OHDtOTD9ZT -UqJ+PdVRVUvdf/TaFVwyYFdwrWd9GfB0Cw1Odtutt2FVwZ3DBlcxMyzFhQsW -4voVBIxgb8u7W8yqlauksfTscAu5nm7ziHHc2qlrolAquzRA7MBtsEljAo/L -Bx94EGtg185d4pB0jubO64hcdSIXt3bpyMGOxIH9B0LkYO3F1atz8bJHlqEu -NGccoXEal+SlsVSvNYhI3JqhIwKLUbDkFSQCRkePHh1qYIvvWWzatGmDXpcq -7pwwpTF0W4soxa3eOUpQGZJvJk+ejHfOPMTca1avUftBMa3iriVydWJblWvz -jlxgwSnUqqCNB8nBFpRbYlLJsb+YUt1Q17TmQl0TRr5gP59x2wxckkjuhu9v -fT8kswtLIdmoUaPM/UvvV2kW13w4jNpcPUvYHwaVNSfbi7LNZ59+hg3aLori -claXLl0yrfMKCgpM3759aX0U6heG6n1794nNTuV3DTnUX1+jZ4u0+FPMpq1/ -fj22PiAInvdY0I4BNBCoUOgwFSpUwDV+r3FIk67i4bplKv56lvhoLKEVZDCh -G8Wg2SJjGuuYkprFAqraJimg+5PtZjFo5vs7stg8gEHBuZqd31IWLXU7Krov -oVvFoJllHyLVWseU0iz2oszaxKDZImMu0jG/0Cz2IPTFKaAvp9JeEoNmvpfT -bVsd80vN4qWEbpcCuiuh28egmS9jOuiY8zSLHclDHZNb7XlhOx3ptrNup7Rm -px2hu6SAbkvorjFo5suYS3XM+ZrFiwjdLQbNFhlzeaExbei2u44po7FsRege -MWi2yJgrdMwFmsXmhO6ZAroZoXvFoJkvY3ont9Cymp3GhLlSt1M2bIcxfXTM -rzSLDQjdNwV0PqF/G4Nmvozpp2N+rVmsKySkkk9tYtE/Bs3MGeNvN6Y7ZHZp -sFMOe1jFixdHnYkTJ4rzr3Ja4WoQUX/f79SEyW72ddlll8EpM7xTabIXmdxA -Sy7dgXB2MCTFP9gsLlmyZAaEQB6kWLFiuJc4YcIEkXF5zbF5xH0QcU89JM4J -hsT4B5EX1PjRI0fJD3HuVcnmEtnBRDZdIbJzNCyR2PAH/yxZjpaTKp85DSFO -6YqWHacjXx/BMh4+dPgHnJL8VEHzXWXieTXxTFcInWGbL5zBgfAxwFFcRq4Q -dmEVQYWdma5Q2pGEYaJRo0Z4lCmKZEXNk1IC+9SkKczOtL8Q0U69aWpUnatM -pcYw1DL9UfG1O98Dp0jg9Bn8RZHjuuaqH+YTSTWQdgMHHAOEzLVqrKQ5hx+F -w30m0vOyUpg9Y0bomMqaRZ5OjUwBzZPHa2PQzJcxo3SM1P3wl8OO0QE0KlYJ -22HN3+t2qmp2OEwdkwKaw+qxMWjmy5jrdEyuZpEXZMbFoNkiY8brmDzNorRo -HGE7L2xbQkewqKax4P2h61NA837WDTFoZs6YiTqmumaRd0r/kNx+q4ftsOYk -3U4NzQ7vek9OAc27+FNi0MxX2puPsF1Ts11ESIhgUTPMogjd3qRjJNkJAk49 -OeB3BLw5BohKrD5NV68tyI4TcHoMEJVY/RZdvY4gOyrIghYxpQ7lLqlHWJQi -y8OU2W0nBzxEwBkxQFRi9dt19XqC7AABZ8YAUemgkBphsb4g2yfIImxLWewl -PrN9YJrjaHeaHF4R6ty5M2YHc1gvChQnPfWJDzO7w2d2CveXczAn4A3TSkiG -QAiK7/0XI718QbaHGP/RMj6128pOBq+ajRs3LiSDF17ghTC/8Ap/5Mqs5xDr -dG0tOxk0IPcKlZM99eRTZuDAgcwQY1TJr58LMvZwesPoDGy59r05kkG4OHvW -bIkrek5iyN5Mb1Cdg9vP0DbhNDgE1qtWrsIT+/v37RfbqnQwczdxv5N4piuo -dsE/1O49i+7BvVVYQ+vTpw/su0rdns+JMrF5sc3xZANpJ4M3J13Tkw4eNRJk -O4jXXaHOnc6N6WNHj+EA6jlJ54UcmM2fQoNjilGxGzuhpqGmVj69EshIp0Ck -k7/bBJn1UqpBsnumwHAN++DujQevDYltnFfeJTLWSS5Cda+QUHdOUm8iyD4i -A3f7mUlPWAn4IQHnxwBRidUX6OpNBdlWAi4MAFGnKSW9LwAXJKs3E5S2UBaL -dFq8zcLq9+jqzQXZvwm4OAaISqy+RFdvIcjeEmQRFluQHQkYYbulINtMmd0X -A0QlVl+qq7cSZK8R8P4YICqx+gOFVk9KDdrBlNaC0ibK4kFRHZNY6c86mQsF -2UYCPhQDRCVWf1hXbyPIXhJkERZ5j1YCRti+SJBtoMwizlDzTjKrRxzovliQ -rSdgxMn5i0mJ1SOOz18iyNYJsgiLl5CddXQVfIUAtX8jANeS+nJRHZNYKeLl -i7aCbDUBn4gBotIaITXCIh9+WCWkRlhsL8hWUGYR77a1J6UV4StZvYNGC4FP -+8BTFF1CbAETKpi7wI7tooWLxOiyQ7iK8Gqlz+yURpebXtmEyRAFQzLs4MCp -TW/WLM5mOgqy5YLMevUnijOHDBliHl32aEgGOu4jEdJUik/8LE9qwKcizoT3 -g8H1QRm8wQt4jWEnbfBBrquJa3rjzBzz9ltv40qIm4oDBtq1NyX32wTGmOw/ -5rSGOKUrsnQ7jBA+ZGRkYKvJycmBFQSxH3UmLsvo6hlild44MgeDGdCFmoVr -+LoE9PSPP/pY7D1dBNlDxHNtbOtLNawE7vCWelAGazOuPFLr60K8HhZS2acm -zaHmXfPuws3ZoOzx5Y+bQYMGqVy7CrIHif+zlmtajj/DIQv4ZMaHH2A8hE0K -ngleZxOrnA8wMqHnfEKpRqDu2QJfeYFd4jp16mB/9UZAsU9cKsiWEhl/jBAf -nHzck9Wf19UvE2RLCLg+BsixEl79TVfvRkqLhdQIO5cLsoWCLGgbU/jULL/m -t0G3012Q3U3AF2OAHMrj1d919R6C7C4CvhQD5CUjvPqHrn6FIJtLwI06sKcg -myPIImz3JDsSMMI2n8y+g65e0dV7C7KZBNwUA+TNFbx6VVe/kpRm0NU/k9tb -H0q6la5e0/PsK8imEfD1GCBv5uHVG7o6H+ifSlebdfV+gmwKAd+MAfL2LV79 -S1e/ipQm0dVbuvrvSIlfFHxbV+8vyCYQ8N8xQFRi9Xd09QJSGkdX7+rqAwQZ -v9K1JblFDaAkVnpPz30gKY2mq626+iBS4rek3tfVBwuyEYIswiK/PyMBI2wP -IeAwIfUDHXg1AfnqY119KCkx1U98dX/2dlKhphNDaOa+9ehNg91nHuELZs6w -9Eb/NVoDCqxL23V99TOLSpzpJhx2uod30iRE8jb3kO1hCsoHC93ULxgqFtb+ -cEHGA8cO3757Dz0u+it2MkbRAA9pu8Km4oI31RQGYWyAh/LdYQNxkVhhyzKS -DPAj7NOwqbjwqrCmeBDhh/hnhash1ywKa2oUGcA5ESZ+Hm6MygfMzrH9AV6V -dkmeWPqUAY+hPJHcEzaiRCXOyIABA3AxA7amK1WqJBn5PWXN0+kvwgOOHmhk -YDwDzaJs2bLi5xjGkHs4MPzSz14a/vjN6050tVdX50cer+3t19XHkxKvWh7Q -1fn5ezGV4qCuzi/h82r8oYB6Rnju0JJkh/U8/0DqzUj9iK4+mdR5+/CYrj6F -8synq+O6+k2UZ11S/1ZXn0pKeGQOB54Tuvo0UqpKQEwpomNuJc2KYUyGjplB -dvAQcBZhsnTMLNIsFcacrmPwQMcZIMqiK0yJ+FQLhlVnk2aJ5NaD0p/J1+Hi -0vE65ivdiSL/BdTcD9k=\ -\>", "ImageResolution" -> 96., "LightDark" -> \ -"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-1.6168853824798513, \ --0.009969067956413457, 0.059164187941960496, \ -0.0006991192353860321}},ExpressionUUID->"a63f48d3-505f-0a45-b944-\ -e872edd94d6c"], + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 140, 72, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260277307048*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"59206bdf-08a5-4274-9a6e-fb96ed710e93"], Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-\ -1872f77ea023"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8Ve8fAHBRQqjMa59zXVRkz9zr89FQyF4lJYlS0aCMhlFEIiGrQpIm +7rmVsho0aFBSpG9kVLJlVCK/8/vrvN5/nHOe5zmfdchte539+Pn4+BbN4eP7 +/3Wyvf4JK7HQ4tOc918FflhaNOcywi1bYyBpou1GeyABKN24jdGaCg2ZgtP3 +A3XhkOONFoHWAtjxpCsvLxBh8ZBs6p8WHhR4q3aEBTpCR5X93vGWGugVszGe +2bMVrFh9n0dbmoCvfqGP8u598KfF5NxISxfIqS2YveUbBbWrrha+LRgDrkWJ +xoPRFFDsKP+2TWsGgh152rafs0Bqj/eN+asEMD3h6K9YVj6k6llV2rsJYVWR +keCy/svwMUv30egiMfwdWt3rtvQqJBZGNvLLLca1TwSGu51vgGx6d0LaRUls +aryRPyZUDAzNuyd+F0liq1DkThuJYpCviYvczJXEsImznucVikF5ZOlBjVpJ +lPxQeV9TuxjU1u/bWtkriT+/HGcLuhSDwdwZ424DKdy3zd/30vlicAiR6dF/ +IYXv1ubn71xSAiddrS2aJqXx1qxe41zdUpC/0yDPP0cG0+eZ2Z80LYUSSddf +egtksNyg8zq/ZSl8aNrCPasigwkayWPdTqXAcgphOq2TwRMzeN8xuBRq7PIE +32TLYLahhEPTnVKYsZpoeM2WxVyxRjCV40JKUcTNGStZbIhSjBdU4gJLkC9+ +uZMsrjbVNnhLcGH9UxHLJD9ZNE2L425awoWcVcTt9cmyaL+nBNeYcMEUbTNf +dsiicZJL1C5XLgSbXfKuj2HgtLOH+HQiF2zyxcdtTzPQTirBQ+kMF5jzj8Q3 +nGNg56rxEPNULrxpdqfeXWNgq7eiVlAWF7T3iQq0NzAwbv3+hOJCLvQWhRb9 +lJdD/rdeo2lVXPCSsh9UuC2HSXwnDGZ/cMHgcGV0bpUcHtEt66sY4IJI1xIZ +8pkcqiroHAwe5kJ5qQCof5RDCX/G3E/jXJCxLU/RnZVDcu6kyIlZ+v3RLMM1 +tvIYPy+4niNFwerhqYigbnnsEs7KdzSnIHxd+rLHA/K4ZH2j+nkOBSWXlrdJ +Tspj7Zy6gi6ggOG61axcSAGbtFOP7FxNwcD9p78EtBUwbLqu0sGOgrSYlJDs +MAVUmjibdHoLBV3S6kFPxBRRgaHT9OgYBbJ7HyrJyiriT7uqnTeiKFhft+F1 +AKGIXXpOf1NiKCiLSNRaaKCILZlp0m5xFJzqGOnbuEERta/eUStPokD/euWO +4QJFDD0yMjJynoJotpOPvKkS+rS2rSTLKFi3JfenyUol9It9bvbqHgXiUf3H +3dYr4bSgVWlwOQUXamOLUrYqYe+X57L3qyi4b1PRL5ighBbmdf0ytRSMbFA9 +NPZRCV9U5Yssb6TgXsS++Yt7lHDdUgvV/DcUHLtQnaU9pIRD8stqFjZRIPrF +ozKAXxmbnvGf62mmQGPHab4vy5RxdOzkxe1tFGw5OHHq1WFlrO7/fvtBDwVq +mSsV+2KVsX+YODD19f/nd6Z4fooyDi4If6j/nYKI6aVvVhYq46n8DuHsHxSc +O75FuvyVMgaQukHsIQpenX2ed0VJBfveps60T9LnfVtKr1ZDBf2EXSa7f1Hg ++d6n5oueClYnisd//U1BL2O6R8FKBWVXSYS3T1EgkK+7LDVIBYsLH12++o+C +FSXZd449VMFVjwt4mfN4sLqlYWaoTgU3/33XsEGQB/Z8c9d6N6lgKzD+yczn +ga9z0Ef4qoK8tmVZp4R4YHWYjIyaR6CzZesL+wU8eLmw6rKpCIF+cdNnftN2 +LHSvGxEnsKS1d0+eKA82vU5c7MMgkBCO2dcjxoN9KpOXLTUJFOgpL7VdxIOJ +2yl1f3QIHKxRXN1OO2Kd5iBlSOBNC82JwMU8iN2/1ZhpQeCcsBelJyR4kFP7 +oo7ficCP1N2sM1I8UNngN1jhRqCboRRrgTQPCgdmFwd7Evhfts7b47RLpY02 +dfsSaCFlkLZHhgdPduQN1h4iMEegpE6BwQPraTOJI4cJdBzRCYmi3ZDSbGwY +RaBG9y2rLtofy4WjChMIPCW+2veiHA+22BcWeiUTuFK2rGSSdk+XRb1UGoEp +T5tU7eR5MLQgRCL2AoHSBrVJo7SD88VNOJfo+w3Hj4MCD34bXt80cYVA0vtU +0SnaAlvaC/1KCawgrgUzFHkQ/zOsXukOgeObU1U20RY/KTn0/j6B7QuvTuXQ +ZnDXmVjVEOgSqmgpocSDi6u7N/17RuDwkq/F1rSZH49Glb0kMNzq2vpjtK8F +Mq4EvSGQfVBBmUt7Of/tevX3BM4TmGB20OZl2A21fySw7Gv/pgXKPDDV7JXI +bCfwccW9ekPaK12VvOb3ErhkotQqkvbz3ntRDwcIPNBi75FPe/1R5yuhowRK +Xrma94B20+LBep1JAl+uOEi00fYoOjn0fYpAK/ngtp+0/1vBlMyfJTA/YHOD +kAoPtjVWmWyYS+KvnyPTCrS/+3p4LRImcUK131+L9p7fo1F1YiS6iYmIraC9 +Yr+/zDcJEgdEvpevoS3U13ZTgEHisYgvS+xpf9jmYEkqkRg53ufpQvvKp9oP +FkwSB4f/OrrRDnE13eOlQWLuY2FRV9orX9+aE6FF4pnzC5IcaC+yIjMz9UjU +O/2neS3t9gfntO4ak1hz9FUPm/YtE5GaJnMSU4yOVWvTjuAe8xhBen0uwluV +aK9bOjYgZkXiYceA1//fn0zBjhhNWxKDI3MER+n998j/J2vtSOIfkRzRD7R5 +aY7F/m4kHpjw+3KPdpTo05UnPElcwpiJyaDtEGvWesmbxCKm98R+2sr/igMf +bidxJvu0qQ3tgUNMgc8BJMq2xtmp0K4YzsiaCiJxSsTRaJT+vvE7F2gzQkhU +M+wfeUjbvTOy1iicxNcaXtGJtFme4xtcjpGof/rqdxfaj2w/H0+OJ5F07zH7 +RMdb8hMnuVtJJM4qdGv8P/68OM9K6lNJbFvcMuxG+4926ce5F0ms1q9Z/ISO +Z32JaJ3DFIlzbr6siKDjny9x4klWGYkC19LPEbQbBHZ5llWSeKG9xLmWzp/d +E86xo09JdOGXCpul862wlfVpRxuJCYJhSc6yPDjglL0vtoNEDd0LWR10/uIL +McHLPSQ2vc1LDqD9uXJSt32IxE7D8xBC57tMXl2cqwATqz/1vNsuSZ+3LEfx +gBATu15Fu36k6wcvhaLOiDGRt6K6zoa2Q0zOfy9kmRhjdjSFRdebeL89+pZa +TDyZZVN1W5zen+ai9uVuTGx1rYmyFObB5EX5aANPJjpObzJJoOvh+EI1lpk3 +E/VTzRY20PVyaMxs1+oAJt7zUNRwoOtpV6XvpOdRJkK1uoyOAA9e2N4Tj7/C +xOFz6b3+0xQ8r35MJd1gosG7YybRfyl4ovPKNa2UiaFmfuVZdP1+INmZk1tO +r49xw/MhXd95n0Q07r5mInWvQb9/nIKc3Vuga4KJQXVWZg8GKMj8vLPr+xQT +08Kz8FY/BekOwbGDs0wUe22alNlHQbJB/Mvfwqr4U1D8r18vBTF/KY+FyqpY +mPjMuqubgt2J8/axrVSR2c6o3Ej3M/bNW/kZGaooq+Fptf4pBZ+Im3lrzqti +g+N/CTN0/4zIuJ47nqeKLnLfkm/V0P0zuuiC83VVXGed1CnwiO7fG/KzxKtU +sdlL42lmBQVL56WnxHWqYufhbH+3UgpkvA9HHdJiYXrDVS2dTAruNodHqunR +LpyfkXOOAlebsGPNRiwkyYhOgXQKUo0OHtEHFtpWVDPfpFAgJro3bMiJhaZF +7bsdTlEwt3zbPv9QFto9D+bvO0LBqITNVvcaFh7ktuVmbKWgdQ/zza7nLPQY +M9ifRc8rj55NQeQrFg5otQxmelGQEnFT5doH+nmawf1nNlCg2yXa8aePhSKi +G5W3O1IQRDVuviiphi4fCjJy6fmoz8FtU892NTypNi/ST5GCntNb3Q/MV0dy +dDoioZELQX1aTF1Rdbyuu5mh9ZoLv9b+GRxcpI4/DkxNvXpBz3MCqbEB8uqY +1ngmXfgZF3TDa+9sXa6O0kNFZkH0PHjUT13SwUUdCx/3Ony7Rs93FgONmnnq ++Jv1qjk7igvWw6HWX401sFvFs9pBkwsDvkLBdyKXYKcRn87wgxL6/0KW/2TN +UnQKnHQ5MK8YJF6rJ3OHl+HKMy4iEfY3QTG+1NHYWAvf87pnRb2vQ5am2SLJ +HcsxV/t6/Lu4q/BC3tJo7Kw2+pQm2umWXYEVijUpOh90sGz+7oHk2ssgLlAQ +4hOji7m2f6ZtZi6BcrQKe6O6HiqJe70oYOaDsJpXmfNzPSyu7xGybLgA2hy5 +0tDN+lj58/C67Y+z4UC7RK0NnwH2+gpKm93IgOGx027WWQYYwLCwa/uXBmt1 +nuVYLzfEsMBPl8UzzsKDMfO/vxoM0eS9pt7szmQI0tJve+tnhNJWxvr8/qeA +M7S9eaOwMb5ZZnDWJToO1rAYdmIFxvS8rhpuvPY4LIk6FVZjYoLyfv46ReFR +sMzP7KFamwm2O5cryuUdBr8HO0/c2W+KhJjCFav1ofAwv3n7qLQZVrg7wGXL +YBi/NvtL554Zarw39St6uBd81W4K59itQPHq5cX/tuyC0WVpxryRFbj3n3+D +8j4/uF/4t3Mi3hy93yScCk/1AeNVIb9sEs1Rf8O7wfMnfOBu54BofpI5eoQU +fXh+yAd4yu0mNqnmuM2rT5W9yQduZT1Kyj1vjnHLXOQzWD6QfzrWbG2JOY51 +N38XKd8KCSELz2a9M0cDrlLb1bfe4LlaFc2V2Wh4iZd29qkXzDQLidcSbPyo +cUDR4ZYX5PsNfbJRZeMTXUE5Is0LvsWVh3ouYeO8v6Xs6a1ecKDeoTRcn43W +uWtaz89sglP2R5TvW7HRP1S6NnDFJqjY8H7acC8bfe7fixeq2QgKgSfLtR+x +MUhpe2mioAckz/obJdawkSM796PmmDvwp1pR35+wUWH1491tHe7QVzbven49 +G6M7Bq9tK3eHCr4TWRLv2KjB801QDnQHz/So0MmvbMxrkVjGbnGDrMpwowcL +OHhW9O/w27uuIC2yh7Lz4GB2vJ7X6RxnKFx1NGJkIwdFDF76FcU7g/7R5FVp +XhwsbCBqGg85g/0I932rDwfH/9VaObo4Q9yHiT++ezjoX3rGdr6YM/wuiFwZ +Ec1B+yXnb6867gRt5mnvim5yUPyCD+9GhCPsPFh4wbqEg8trn0nl7HKEyZK7 +fgNcDgrcZQVnejqCBLP1l14ZB0PHDk5VrnAEWyElxepHtJ+Wqbv/coCq5qLt +795zsPR2GZ8enwPYiN9ffqiVg9H73W897bSH1rX1k4xPHIyo3S1ysNYexiv6 +47d84eCrV2rJqiftYfkl3eIffRwMCMg4Wb3QHqraLA+dHuSgfLhzjtpPO7CR +cgGdEQ5+4wk+vtpsB/4nD74NmeCgz+2hv3+y7WD8UVyO7G8OrhEW+VF/xA5i +pjJ9K6Y4qFYwcP62tx0sMryutXmGgz9Rfc69lXaQG1gxMTvLwaZmp3nNanbw +P7c4nRA= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Ve8fAHBRQqjMa59zXVRkz9zr89FQyF4lJYlS0aCMhlFEIiGrQpIm +7rmVsho0aFBSpG9kVLJlVCK/8/vrvN5/nHOe5zmfdchte539+Pn4+BbN4eP7 +/3Wyvf4JK7HQ4tOc918FflhaNOcywi1bYyBpou1GeyABKN24jdGaCg2ZgtP3 +A3XhkOONFoHWAtjxpCsvLxBh8ZBs6p8WHhR4q3aEBTpCR5X93vGWGugVszGe +2bMVrFh9n0dbmoCvfqGP8u598KfF5NxISxfIqS2YveUbBbWrrha+LRgDrkWJ +xoPRFFDsKP+2TWsGgh152rafs0Bqj/eN+asEMD3h6K9YVj6k6llV2rsJYVWR +keCy/svwMUv30egiMfwdWt3rtvQqJBZGNvLLLca1TwSGu51vgGx6d0LaRUls +aryRPyZUDAzNuyd+F0liq1DkThuJYpCviYvczJXEsImznucVikF5ZOlBjVpJ +lPxQeV9TuxjU1u/bWtkriT+/HGcLuhSDwdwZ424DKdy3zd/30vlicAiR6dF/ +IYXv1ubn71xSAiddrS2aJqXx1qxe41zdUpC/0yDPP0cG0+eZ2Z80LYUSSddf +egtksNyg8zq/ZSl8aNrCPasigwkayWPdTqXAcgphOq2TwRMzeN8xuBRq7PIE +32TLYLahhEPTnVKYsZpoeM2WxVyxRjCV40JKUcTNGStZbIhSjBdU4gJLkC9+ +uZMsrjbVNnhLcGH9UxHLJD9ZNE2L425awoWcVcTt9cmyaL+nBNeYcMEUbTNf +dsiicZJL1C5XLgSbXfKuj2HgtLOH+HQiF2zyxcdtTzPQTirBQ+kMF5jzj8Q3 +nGNg56rxEPNULrxpdqfeXWNgq7eiVlAWF7T3iQq0NzAwbv3+hOJCLvQWhRb9 +lJdD/rdeo2lVXPCSsh9UuC2HSXwnDGZ/cMHgcGV0bpUcHtEt66sY4IJI1xIZ +8pkcqiroHAwe5kJ5qQCof5RDCX/G3E/jXJCxLU/RnZVDcu6kyIlZ+v3RLMM1 +tvIYPy+4niNFwerhqYigbnnsEs7KdzSnIHxd+rLHA/K4ZH2j+nkOBSWXlrdJ +Tspj7Zy6gi6ggOG61axcSAGbtFOP7FxNwcD9p78EtBUwbLqu0sGOgrSYlJDs +MAVUmjibdHoLBV3S6kFPxBRRgaHT9OgYBbJ7HyrJyiriT7uqnTeiKFhft+F1 +AKGIXXpOf1NiKCiLSNRaaKCILZlp0m5xFJzqGOnbuEERta/eUStPokD/euWO +4QJFDD0yMjJynoJotpOPvKkS+rS2rSTLKFi3JfenyUol9It9bvbqHgXiUf3H +3dYr4bSgVWlwOQUXamOLUrYqYe+X57L3qyi4b1PRL5ighBbmdf0ytRSMbFA9 +NPZRCV9U5Yssb6TgXsS++Yt7lHDdUgvV/DcUHLtQnaU9pIRD8stqFjZRIPrF +ozKAXxmbnvGf62mmQGPHab4vy5RxdOzkxe1tFGw5OHHq1WFlrO7/fvtBDwVq +mSsV+2KVsX+YODD19f/nd6Z4fooyDi4If6j/nYKI6aVvVhYq46n8DuHsHxSc +O75FuvyVMgaQukHsIQpenX2ed0VJBfveps60T9LnfVtKr1ZDBf2EXSa7f1Hg ++d6n5oueClYnisd//U1BL2O6R8FKBWVXSYS3T1EgkK+7LDVIBYsLH12++o+C +FSXZd449VMFVjwt4mfN4sLqlYWaoTgU3/33XsEGQB/Z8c9d6N6lgKzD+yczn +ga9z0Ef4qoK8tmVZp4R4YHWYjIyaR6CzZesL+wU8eLmw6rKpCIF+cdNnftN2 +LHSvGxEnsKS1d0+eKA82vU5c7MMgkBCO2dcjxoN9KpOXLTUJFOgpL7VdxIOJ +2yl1f3QIHKxRXN1OO2Kd5iBlSOBNC82JwMU8iN2/1ZhpQeCcsBelJyR4kFP7 +oo7ficCP1N2sM1I8UNngN1jhRqCboRRrgTQPCgdmFwd7Evhfts7b47RLpY02 +dfsSaCFlkLZHhgdPduQN1h4iMEegpE6BwQPraTOJI4cJdBzRCYmi3ZDSbGwY +RaBG9y2rLtofy4WjChMIPCW+2veiHA+22BcWeiUTuFK2rGSSdk+XRb1UGoEp +T5tU7eR5MLQgRCL2AoHSBrVJo7SD88VNOJfo+w3Hj4MCD34bXt80cYVA0vtU +0SnaAlvaC/1KCawgrgUzFHkQ/zOsXukOgeObU1U20RY/KTn0/j6B7QuvTuXQ +ZnDXmVjVEOgSqmgpocSDi6u7N/17RuDwkq/F1rSZH49Glb0kMNzq2vpjtK8F +Mq4EvSGQfVBBmUt7Of/tevX3BM4TmGB20OZl2A21fySw7Gv/pgXKPDDV7JXI +bCfwccW9ekPaK12VvOb3ErhkotQqkvbz3ntRDwcIPNBi75FPe/1R5yuhowRK +Xrma94B20+LBep1JAl+uOEi00fYoOjn0fYpAK/ngtp+0/1vBlMyfJTA/YHOD +kAoPtjVWmWyYS+KvnyPTCrS/+3p4LRImcUK131+L9p7fo1F1YiS6iYmIraC9 +Yr+/zDcJEgdEvpevoS3U13ZTgEHisYgvS+xpf9jmYEkqkRg53ufpQvvKp9oP +FkwSB4f/OrrRDnE13eOlQWLuY2FRV9orX9+aE6FF4pnzC5IcaC+yIjMz9UjU +O/2neS3t9gfntO4ak1hz9FUPm/YtE5GaJnMSU4yOVWvTjuAe8xhBen0uwluV +aK9bOjYgZkXiYceA1//fn0zBjhhNWxKDI3MER+n998j/J2vtSOIfkRzRD7R5 +aY7F/m4kHpjw+3KPdpTo05UnPElcwpiJyaDtEGvWesmbxCKm98R+2sr/igMf +bidxJvu0qQ3tgUNMgc8BJMq2xtmp0K4YzsiaCiJxSsTRaJT+vvE7F2gzQkhU +M+wfeUjbvTOy1iicxNcaXtGJtFme4xtcjpGof/rqdxfaj2w/H0+OJ5F07zH7 +RMdb8hMnuVtJJM4qdGv8P/68OM9K6lNJbFvcMuxG+4926ce5F0ms1q9Z/ISO +Z32JaJ3DFIlzbr6siKDjny9x4klWGYkC19LPEbQbBHZ5llWSeKG9xLmWzp/d +E86xo09JdOGXCpul862wlfVpRxuJCYJhSc6yPDjglL0vtoNEDd0LWR10/uIL +McHLPSQ2vc1LDqD9uXJSt32IxE7D8xBC57tMXl2cqwATqz/1vNsuSZ+3LEfx +gBATu15Fu36k6wcvhaLOiDGRt6K6zoa2Q0zOfy9kmRhjdjSFRdebeL89+pZa +TDyZZVN1W5zen+ai9uVuTGx1rYmyFObB5EX5aANPJjpObzJJoOvh+EI1lpk3 +E/VTzRY20PVyaMxs1+oAJt7zUNRwoOtpV6XvpOdRJkK1uoyOAA9e2N4Tj7/C +xOFz6b3+0xQ8r35MJd1gosG7YybRfyl4ovPKNa2UiaFmfuVZdP1+INmZk1tO +r49xw/MhXd95n0Q07r5mInWvQb9/nIKc3Vuga4KJQXVWZg8GKMj8vLPr+xQT +08Kz8FY/BekOwbGDs0wUe22alNlHQbJB/Mvfwqr4U1D8r18vBTF/KY+FyqpY +mPjMuqubgt2J8/axrVSR2c6o3Ej3M/bNW/kZGaooq+Fptf4pBZ+Im3lrzqti +g+N/CTN0/4zIuJ47nqeKLnLfkm/V0P0zuuiC83VVXGed1CnwiO7fG/KzxKtU +sdlL42lmBQVL56WnxHWqYufhbH+3UgpkvA9HHdJiYXrDVS2dTAruNodHqunR +LpyfkXOOAlebsGPNRiwkyYhOgXQKUo0OHtEHFtpWVDPfpFAgJro3bMiJhaZF +7bsdTlEwt3zbPv9QFto9D+bvO0LBqITNVvcaFh7ktuVmbKWgdQ/zza7nLPQY +M9ifRc8rj55NQeQrFg5otQxmelGQEnFT5doH+nmawf1nNlCg2yXa8aePhSKi +G5W3O1IQRDVuviiphi4fCjJy6fmoz8FtU892NTypNi/ST5GCntNb3Q/MV0dy +dDoioZELQX1aTF1Rdbyuu5mh9ZoLv9b+GRxcpI4/DkxNvXpBz3MCqbEB8uqY +1ngmXfgZF3TDa+9sXa6O0kNFZkH0PHjUT13SwUUdCx/3Ony7Rs93FgONmnnq ++Jv1qjk7igvWw6HWX401sFvFs9pBkwsDvkLBdyKXYKcRn87wgxL6/0KW/2TN +UnQKnHQ5MK8YJF6rJ3OHl+HKMy4iEfY3QTG+1NHYWAvf87pnRb2vQ5am2SLJ +HcsxV/t6/Lu4q/BC3tJo7Kw2+pQm2umWXYEVijUpOh90sGz+7oHk2ssgLlAQ +4hOji7m2f6ZtZi6BcrQKe6O6HiqJe70oYOaDsJpXmfNzPSyu7xGybLgA2hy5 +0tDN+lj58/C67Y+z4UC7RK0NnwH2+gpKm93IgOGx027WWQYYwLCwa/uXBmt1 +nuVYLzfEsMBPl8UzzsKDMfO/vxoM0eS9pt7szmQI0tJve+tnhNJWxvr8/qeA +M7S9eaOwMb5ZZnDWJToO1rAYdmIFxvS8rhpuvPY4LIk6FVZjYoLyfv46ReFR +sMzP7KFamwm2O5cryuUdBr8HO0/c2W+KhJjCFav1ofAwv3n7qLQZVrg7wGXL +YBi/NvtL554Zarw39St6uBd81W4K59itQPHq5cX/tuyC0WVpxryRFbj3n3+D +8j4/uF/4t3Mi3hy93yScCk/1AeNVIb9sEs1Rf8O7wfMnfOBu54BofpI5eoQU +fXh+yAd4yu0mNqnmuM2rT5W9yQduZT1Kyj1vjnHLXOQzWD6QfzrWbG2JOY51 +N38XKd8KCSELz2a9M0cDrlLb1bfe4LlaFc2V2Wh4iZd29qkXzDQLidcSbPyo +cUDR4ZYX5PsNfbJRZeMTXUE5Is0LvsWVh3ouYeO8v6Xs6a1ecKDeoTRcn43W +uWtaz89sglP2R5TvW7HRP1S6NnDFJqjY8H7acC8bfe7fixeq2QgKgSfLtR+x +MUhpe2mioAckz/obJdawkSM796PmmDvwp1pR35+wUWH1491tHe7QVzbven49 +G6M7Bq9tK3eHCr4TWRLv2KjB801QDnQHz/So0MmvbMxrkVjGbnGDrMpwowcL +OHhW9O/w27uuIC2yh7Lz4GB2vJ7X6RxnKFx1NGJkIwdFDF76FcU7g/7R5FVp +XhwsbCBqGg85g/0I932rDwfH/9VaObo4Q9yHiT++ezjoX3rGdr6YM/wuiFwZ +Ec1B+yXnb6867gRt5mnvim5yUPyCD+9GhCPsPFh4wbqEg8trn0nl7HKEyZK7 +fgNcDgrcZQVnejqCBLP1l14ZB0PHDk5VrnAEWyElxepHtJ+Wqbv/coCq5qLt +795zsPR2GZ8enwPYiN9ffqiVg9H73W897bSH1rX1k4xPHIyo3S1ysNYexiv6 +47d84eCrV2rJqiftYfkl3eIffRwMCMg4Wb3QHqraLA+dHuSgfLhzjtpPO7CR +cgGdEQ5+4wk+vtpsB/4nD74NmeCgz+2hv3+y7WD8UVyO7G8OrhEW+VF/xA5i +pjJ9K6Y4qFYwcP62tx0sMryutXmGgz9Rfc69lXaQG1gxMTvLwaZmp3nNanbw +P7c4nRA= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07079060771133046}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07079060771133046}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Ve8fAHBRQqjMa59zXVRkz9zr89FQyF4lJYlS0aCMhlFEIiGrQpIm +7rmVsho0aFBSpG9kVLJlVCK/8/vrvN5/nHOe5zmfdchte539+Pn4+BbN4eP7 +/3Wyvf4JK7HQ4tOc918FflhaNOcywi1bYyBpou1GeyABKN24jdGaCg2ZgtP3 +A3XhkOONFoHWAtjxpCsvLxBh8ZBs6p8WHhR4q3aEBTpCR5X93vGWGugVszGe +2bMVrFh9n0dbmoCvfqGP8u598KfF5NxISxfIqS2YveUbBbWrrha+LRgDrkWJ +xoPRFFDsKP+2TWsGgh152rafs0Bqj/eN+asEMD3h6K9YVj6k6llV2rsJYVWR +keCy/svwMUv30egiMfwdWt3rtvQqJBZGNvLLLca1TwSGu51vgGx6d0LaRUls +aryRPyZUDAzNuyd+F0liq1DkThuJYpCviYvczJXEsImznucVikF5ZOlBjVpJ +lPxQeV9TuxjU1u/bWtkriT+/HGcLuhSDwdwZ424DKdy3zd/30vlicAiR6dF/ +IYXv1ubn71xSAiddrS2aJqXx1qxe41zdUpC/0yDPP0cG0+eZ2Z80LYUSSddf +egtksNyg8zq/ZSl8aNrCPasigwkayWPdTqXAcgphOq2TwRMzeN8xuBRq7PIE +32TLYLahhEPTnVKYsZpoeM2WxVyxRjCV40JKUcTNGStZbIhSjBdU4gJLkC9+ +uZMsrjbVNnhLcGH9UxHLJD9ZNE2L425awoWcVcTt9cmyaL+nBNeYcMEUbTNf +dsiicZJL1C5XLgSbXfKuj2HgtLOH+HQiF2zyxcdtTzPQTirBQ+kMF5jzj8Q3 +nGNg56rxEPNULrxpdqfeXWNgq7eiVlAWF7T3iQq0NzAwbv3+hOJCLvQWhRb9 +lJdD/rdeo2lVXPCSsh9UuC2HSXwnDGZ/cMHgcGV0bpUcHtEt66sY4IJI1xIZ +8pkcqiroHAwe5kJ5qQCof5RDCX/G3E/jXJCxLU/RnZVDcu6kyIlZ+v3RLMM1 +tvIYPy+4niNFwerhqYigbnnsEs7KdzSnIHxd+rLHA/K4ZH2j+nkOBSWXlrdJ +Tspj7Zy6gi6ggOG61axcSAGbtFOP7FxNwcD9p78EtBUwbLqu0sGOgrSYlJDs +MAVUmjibdHoLBV3S6kFPxBRRgaHT9OgYBbJ7HyrJyiriT7uqnTeiKFhft+F1 +AKGIXXpOf1NiKCiLSNRaaKCILZlp0m5xFJzqGOnbuEERta/eUStPokD/euWO +4QJFDD0yMjJynoJotpOPvKkS+rS2rSTLKFi3JfenyUol9It9bvbqHgXiUf3H +3dYr4bSgVWlwOQUXamOLUrYqYe+X57L3qyi4b1PRL5ighBbmdf0ytRSMbFA9 +NPZRCV9U5Yssb6TgXsS++Yt7lHDdUgvV/DcUHLtQnaU9pIRD8stqFjZRIPrF +ozKAXxmbnvGf62mmQGPHab4vy5RxdOzkxe1tFGw5OHHq1WFlrO7/fvtBDwVq +mSsV+2KVsX+YODD19f/nd6Z4fooyDi4If6j/nYKI6aVvVhYq46n8DuHsHxSc +O75FuvyVMgaQukHsIQpenX2ed0VJBfveps60T9LnfVtKr1ZDBf2EXSa7f1Hg ++d6n5oueClYnisd//U1BL2O6R8FKBWVXSYS3T1EgkK+7LDVIBYsLH12++o+C +FSXZd449VMFVjwt4mfN4sLqlYWaoTgU3/33XsEGQB/Z8c9d6N6lgKzD+yczn +ga9z0Ef4qoK8tmVZp4R4YHWYjIyaR6CzZesL+wU8eLmw6rKpCIF+cdNnftN2 +LHSvGxEnsKS1d0+eKA82vU5c7MMgkBCO2dcjxoN9KpOXLTUJFOgpL7VdxIOJ +2yl1f3QIHKxRXN1OO2Kd5iBlSOBNC82JwMU8iN2/1ZhpQeCcsBelJyR4kFP7 +oo7ficCP1N2sM1I8UNngN1jhRqCboRRrgTQPCgdmFwd7Evhfts7b47RLpY02 +dfsSaCFlkLZHhgdPduQN1h4iMEegpE6BwQPraTOJI4cJdBzRCYmi3ZDSbGwY +RaBG9y2rLtofy4WjChMIPCW+2veiHA+22BcWeiUTuFK2rGSSdk+XRb1UGoEp +T5tU7eR5MLQgRCL2AoHSBrVJo7SD88VNOJfo+w3Hj4MCD34bXt80cYVA0vtU +0SnaAlvaC/1KCawgrgUzFHkQ/zOsXukOgeObU1U20RY/KTn0/j6B7QuvTuXQ +ZnDXmVjVEOgSqmgpocSDi6u7N/17RuDwkq/F1rSZH49Glb0kMNzq2vpjtK8F +Mq4EvSGQfVBBmUt7Of/tevX3BM4TmGB20OZl2A21fySw7Gv/pgXKPDDV7JXI +bCfwccW9ekPaK12VvOb3ErhkotQqkvbz3ntRDwcIPNBi75FPe/1R5yuhowRK +Xrma94B20+LBep1JAl+uOEi00fYoOjn0fYpAK/ngtp+0/1vBlMyfJTA/YHOD +kAoPtjVWmWyYS+KvnyPTCrS/+3p4LRImcUK131+L9p7fo1F1YiS6iYmIraC9 +Yr+/zDcJEgdEvpevoS3U13ZTgEHisYgvS+xpf9jmYEkqkRg53ufpQvvKp9oP +FkwSB4f/OrrRDnE13eOlQWLuY2FRV9orX9+aE6FF4pnzC5IcaC+yIjMz9UjU +O/2neS3t9gfntO4ak1hz9FUPm/YtE5GaJnMSU4yOVWvTjuAe8xhBen0uwluV +aK9bOjYgZkXiYceA1//fn0zBjhhNWxKDI3MER+n998j/J2vtSOIfkRzRD7R5 +aY7F/m4kHpjw+3KPdpTo05UnPElcwpiJyaDtEGvWesmbxCKm98R+2sr/igMf +bidxJvu0qQ3tgUNMgc8BJMq2xtmp0K4YzsiaCiJxSsTRaJT+vvE7F2gzQkhU +M+wfeUjbvTOy1iicxNcaXtGJtFme4xtcjpGof/rqdxfaj2w/H0+OJ5F07zH7 +RMdb8hMnuVtJJM4qdGv8P/68OM9K6lNJbFvcMuxG+4926ce5F0ms1q9Z/ISO +Z32JaJ3DFIlzbr6siKDjny9x4klWGYkC19LPEbQbBHZ5llWSeKG9xLmWzp/d +E86xo09JdOGXCpul862wlfVpRxuJCYJhSc6yPDjglL0vtoNEDd0LWR10/uIL +McHLPSQ2vc1LDqD9uXJSt32IxE7D8xBC57tMXl2cqwATqz/1vNsuSZ+3LEfx +gBATu15Fu36k6wcvhaLOiDGRt6K6zoa2Q0zOfy9kmRhjdjSFRdebeL89+pZa +TDyZZVN1W5zen+ai9uVuTGx1rYmyFObB5EX5aANPJjpObzJJoOvh+EI1lpk3 +E/VTzRY20PVyaMxs1+oAJt7zUNRwoOtpV6XvpOdRJkK1uoyOAA9e2N4Tj7/C +xOFz6b3+0xQ8r35MJd1gosG7YybRfyl4ovPKNa2UiaFmfuVZdP1+INmZk1tO +r49xw/MhXd95n0Q07r5mInWvQb9/nIKc3Vuga4KJQXVWZg8GKMj8vLPr+xQT +08Kz8FY/BekOwbGDs0wUe22alNlHQbJB/Mvfwqr4U1D8r18vBTF/KY+FyqpY +mPjMuqubgt2J8/axrVSR2c6o3Ej3M/bNW/kZGaooq+Fptf4pBZ+Im3lrzqti +g+N/CTN0/4zIuJ47nqeKLnLfkm/V0P0zuuiC83VVXGed1CnwiO7fG/KzxKtU +sdlL42lmBQVL56WnxHWqYufhbH+3UgpkvA9HHdJiYXrDVS2dTAruNodHqunR +LpyfkXOOAlebsGPNRiwkyYhOgXQKUo0OHtEHFtpWVDPfpFAgJro3bMiJhaZF +7bsdTlEwt3zbPv9QFto9D+bvO0LBqITNVvcaFh7ktuVmbKWgdQ/zza7nLPQY +M9ifRc8rj55NQeQrFg5otQxmelGQEnFT5doH+nmawf1nNlCg2yXa8aePhSKi +G5W3O1IQRDVuviiphi4fCjJy6fmoz8FtU892NTypNi/ST5GCntNb3Q/MV0dy +dDoioZELQX1aTF1Rdbyuu5mh9ZoLv9b+GRxcpI4/DkxNvXpBz3MCqbEB8uqY +1ngmXfgZF3TDa+9sXa6O0kNFZkH0PHjUT13SwUUdCx/3Ony7Rs93FgONmnnq ++Jv1qjk7igvWw6HWX401sFvFs9pBkwsDvkLBdyKXYKcRn87wgxL6/0KW/2TN +UnQKnHQ5MK8YJF6rJ3OHl+HKMy4iEfY3QTG+1NHYWAvf87pnRb2vQ5am2SLJ +HcsxV/t6/Lu4q/BC3tJo7Kw2+pQm2umWXYEVijUpOh90sGz+7oHk2ssgLlAQ +4hOji7m2f6ZtZi6BcrQKe6O6HiqJe70oYOaDsJpXmfNzPSyu7xGybLgA2hy5 +0tDN+lj58/C67Y+z4UC7RK0NnwH2+gpKm93IgOGx027WWQYYwLCwa/uXBmt1 +nuVYLzfEsMBPl8UzzsKDMfO/vxoM0eS9pt7szmQI0tJve+tnhNJWxvr8/qeA +M7S9eaOwMb5ZZnDWJToO1rAYdmIFxvS8rhpuvPY4LIk6FVZjYoLyfv46ReFR +sMzP7KFamwm2O5cryuUdBr8HO0/c2W+KhJjCFav1ofAwv3n7qLQZVrg7wGXL +YBi/NvtL554Zarw39St6uBd81W4K59itQPHq5cX/tuyC0WVpxryRFbj3n3+D +8j4/uF/4t3Mi3hy93yScCk/1AeNVIb9sEs1Rf8O7wfMnfOBu54BofpI5eoQU +fXh+yAd4yu0mNqnmuM2rT5W9yQduZT1Kyj1vjnHLXOQzWD6QfzrWbG2JOY51 +N38XKd8KCSELz2a9M0cDrlLb1bfe4LlaFc2V2Wh4iZd29qkXzDQLidcSbPyo +cUDR4ZYX5PsNfbJRZeMTXUE5Is0LvsWVh3ouYeO8v6Xs6a1ecKDeoTRcn43W +uWtaz89sglP2R5TvW7HRP1S6NnDFJqjY8H7acC8bfe7fixeq2QgKgSfLtR+x +MUhpe2mioAckz/obJdawkSM796PmmDvwp1pR35+wUWH1491tHe7QVzbven49 +G6M7Bq9tK3eHCr4TWRLv2KjB801QDnQHz/So0MmvbMxrkVjGbnGDrMpwowcL +OHhW9O/w27uuIC2yh7Lz4GB2vJ7X6RxnKFx1NGJkIwdFDF76FcU7g/7R5FVp +XhwsbCBqGg85g/0I932rDwfH/9VaObo4Q9yHiT++ezjoX3rGdr6YM/wuiFwZ +Ec1B+yXnb6867gRt5mnvim5yUPyCD+9GhCPsPFh4wbqEg8trn0nl7HKEyZK7 +fgNcDgrcZQVnejqCBLP1l14ZB0PHDk5VrnAEWyElxepHtJ+Wqbv/coCq5qLt +795zsPR2GZ8enwPYiN9ffqiVg9H73W897bSH1rX1k4xPHIyo3S1ysNYexiv6 +47d84eCrV2rJqiftYfkl3eIffRwMCMg4Wb3QHqraLA+dHuSgfLhzjtpPO7CR +cgGdEQ5+4wk+vtpsB/4nD74NmeCgz+2hv3+y7WD8UVyO7G8OrhEW+VF/xA5i +pjJ9K6Y4qFYwcP62tx0sMryutXmGgz9Rfc69lXaQG1gxMTvLwaZmp3nNanbw +P7c4nRA= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07079060771133046}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07079060771133046}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994260793225065*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"0d91be30-eb39-4af9-b922-f7b89852694b"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", - RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"4ad58a38-0776-\ -5240-aa41-ba7c8ff64fb9"], + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellLabel-> + "In[141]:=",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8Ve8fAHBRQqjMa59zXVRkz9zr89FQyF4lJYlS0aCMhlFEIiGrQpIm +7rmVsho0aFBSpG9kVLJlVCK/8/vrvN5/nHOe5zmfdchte539+Pn4+BbN4eP7 +/3Wyvf4JK7HQ4tOc918FflhaNOcywi1bYyBpou1GeyABKN24jdGaCg2ZgtP3 +A3XhkOONFoHWAtjxpCsvLxBh8ZBs6p8WHhR4q3aEBTpCR5X93vGWGugVszGe +2bMVrFh9n0dbmoCvfqGP8u598KfF5NxISxfIqS2YveUbBbWrrha+LRgDrkWJ +xoPRFFDsKP+2TWsGgh152rafs0Bqj/eN+asEMD3h6K9YVj6k6llV2rsJYVWR +keCy/svwMUv30egiMfwdWt3rtvQqJBZGNvLLLca1TwSGu51vgGx6d0LaRUls +aryRPyZUDAzNuyd+F0liq1DkThuJYpCviYvczJXEsImznucVikF5ZOlBjVpJ +lPxQeV9TuxjU1u/bWtkriT+/HGcLuhSDwdwZ424DKdy3zd/30vlicAiR6dF/ +IYXv1ubn71xSAiddrS2aJqXx1qxe41zdUpC/0yDPP0cG0+eZ2Z80LYUSSddf +egtksNyg8zq/ZSl8aNrCPasigwkayWPdTqXAcgphOq2TwRMzeN8xuBRq7PIE +32TLYLahhEPTnVKYsZpoeM2WxVyxRjCV40JKUcTNGStZbIhSjBdU4gJLkC9+ +uZMsrjbVNnhLcGH9UxHLJD9ZNE2L425awoWcVcTt9cmyaL+nBNeYcMEUbTNf +dsiicZJL1C5XLgSbXfKuj2HgtLOH+HQiF2zyxcdtTzPQTirBQ+kMF5jzj8Q3 +nGNg56rxEPNULrxpdqfeXWNgq7eiVlAWF7T3iQq0NzAwbv3+hOJCLvQWhRb9 +lJdD/rdeo2lVXPCSsh9UuC2HSXwnDGZ/cMHgcGV0bpUcHtEt66sY4IJI1xIZ +8pkcqiroHAwe5kJ5qQCof5RDCX/G3E/jXJCxLU/RnZVDcu6kyIlZ+v3RLMM1 +tvIYPy+4niNFwerhqYigbnnsEs7KdzSnIHxd+rLHA/K4ZH2j+nkOBSWXlrdJ +Tspj7Zy6gi6ggOG61axcSAGbtFOP7FxNwcD9p78EtBUwbLqu0sGOgrSYlJDs +MAVUmjibdHoLBV3S6kFPxBRRgaHT9OgYBbJ7HyrJyiriT7uqnTeiKFhft+F1 +AKGIXXpOf1NiKCiLSNRaaKCILZlp0m5xFJzqGOnbuEERta/eUStPokD/euWO +4QJFDD0yMjJynoJotpOPvKkS+rS2rSTLKFi3JfenyUol9It9bvbqHgXiUf3H +3dYr4bSgVWlwOQUXamOLUrYqYe+X57L3qyi4b1PRL5ighBbmdf0ytRSMbFA9 +NPZRCV9U5Yssb6TgXsS++Yt7lHDdUgvV/DcUHLtQnaU9pIRD8stqFjZRIPrF +ozKAXxmbnvGf62mmQGPHab4vy5RxdOzkxe1tFGw5OHHq1WFlrO7/fvtBDwVq +mSsV+2KVsX+YODD19f/nd6Z4fooyDi4If6j/nYKI6aVvVhYq46n8DuHsHxSc +O75FuvyVMgaQukHsIQpenX2ed0VJBfveps60T9LnfVtKr1ZDBf2EXSa7f1Hg ++d6n5oueClYnisd//U1BL2O6R8FKBWVXSYS3T1EgkK+7LDVIBYsLH12++o+C +FSXZd449VMFVjwt4mfN4sLqlYWaoTgU3/33XsEGQB/Z8c9d6N6lgKzD+yczn +ga9z0Ef4qoK8tmVZp4R4YHWYjIyaR6CzZesL+wU8eLmw6rKpCIF+cdNnftN2 +LHSvGxEnsKS1d0+eKA82vU5c7MMgkBCO2dcjxoN9KpOXLTUJFOgpL7VdxIOJ +2yl1f3QIHKxRXN1OO2Kd5iBlSOBNC82JwMU8iN2/1ZhpQeCcsBelJyR4kFP7 +oo7ficCP1N2sM1I8UNngN1jhRqCboRRrgTQPCgdmFwd7Evhfts7b47RLpY02 +dfsSaCFlkLZHhgdPduQN1h4iMEegpE6BwQPraTOJI4cJdBzRCYmi3ZDSbGwY +RaBG9y2rLtofy4WjChMIPCW+2veiHA+22BcWeiUTuFK2rGSSdk+XRb1UGoEp +T5tU7eR5MLQgRCL2AoHSBrVJo7SD88VNOJfo+w3Hj4MCD34bXt80cYVA0vtU +0SnaAlvaC/1KCawgrgUzFHkQ/zOsXukOgeObU1U20RY/KTn0/j6B7QuvTuXQ +ZnDXmVjVEOgSqmgpocSDi6u7N/17RuDwkq/F1rSZH49Glb0kMNzq2vpjtK8F +Mq4EvSGQfVBBmUt7Of/tevX3BM4TmGB20OZl2A21fySw7Gv/pgXKPDDV7JXI +bCfwccW9ekPaK12VvOb3ErhkotQqkvbz3ntRDwcIPNBi75FPe/1R5yuhowRK +Xrma94B20+LBep1JAl+uOEi00fYoOjn0fYpAK/ngtp+0/1vBlMyfJTA/YHOD +kAoPtjVWmWyYS+KvnyPTCrS/+3p4LRImcUK131+L9p7fo1F1YiS6iYmIraC9 +Yr+/zDcJEgdEvpevoS3U13ZTgEHisYgvS+xpf9jmYEkqkRg53ufpQvvKp9oP +FkwSB4f/OrrRDnE13eOlQWLuY2FRV9orX9+aE6FF4pnzC5IcaC+yIjMz9UjU +O/2neS3t9gfntO4ak1hz9FUPm/YtE5GaJnMSU4yOVWvTjuAe8xhBen0uwluV +aK9bOjYgZkXiYceA1//fn0zBjhhNWxKDI3MER+n998j/J2vtSOIfkRzRD7R5 +aY7F/m4kHpjw+3KPdpTo05UnPElcwpiJyaDtEGvWesmbxCKm98R+2sr/igMf +bidxJvu0qQ3tgUNMgc8BJMq2xtmp0K4YzsiaCiJxSsTRaJT+vvE7F2gzQkhU +M+wfeUjbvTOy1iicxNcaXtGJtFme4xtcjpGof/rqdxfaj2w/H0+OJ5F07zH7 +RMdb8hMnuVtJJM4qdGv8P/68OM9K6lNJbFvcMuxG+4926ce5F0ms1q9Z/ISO +Z32JaJ3DFIlzbr6siKDjny9x4klWGYkC19LPEbQbBHZ5llWSeKG9xLmWzp/d +E86xo09JdOGXCpul862wlfVpRxuJCYJhSc6yPDjglL0vtoNEDd0LWR10/uIL +McHLPSQ2vc1LDqD9uXJSt32IxE7D8xBC57tMXl2cqwATqz/1vNsuSZ+3LEfx +gBATu15Fu36k6wcvhaLOiDGRt6K6zoa2Q0zOfy9kmRhjdjSFRdebeL89+pZa +TDyZZVN1W5zen+ai9uVuTGx1rYmyFObB5EX5aANPJjpObzJJoOvh+EI1lpk3 +E/VTzRY20PVyaMxs1+oAJt7zUNRwoOtpV6XvpOdRJkK1uoyOAA9e2N4Tj7/C +xOFz6b3+0xQ8r35MJd1gosG7YybRfyl4ovPKNa2UiaFmfuVZdP1+INmZk1tO +r49xw/MhXd95n0Q07r5mInWvQb9/nIKc3Vuga4KJQXVWZg8GKMj8vLPr+xQT +08Kz8FY/BekOwbGDs0wUe22alNlHQbJB/Mvfwqr4U1D8r18vBTF/KY+FyqpY +mPjMuqubgt2J8/axrVSR2c6o3Ej3M/bNW/kZGaooq+Fptf4pBZ+Im3lrzqti +g+N/CTN0/4zIuJ47nqeKLnLfkm/V0P0zuuiC83VVXGed1CnwiO7fG/KzxKtU +sdlL42lmBQVL56WnxHWqYufhbH+3UgpkvA9HHdJiYXrDVS2dTAruNodHqunR +LpyfkXOOAlebsGPNRiwkyYhOgXQKUo0OHtEHFtpWVDPfpFAgJro3bMiJhaZF +7bsdTlEwt3zbPv9QFto9D+bvO0LBqITNVvcaFh7ktuVmbKWgdQ/zza7nLPQY +M9ifRc8rj55NQeQrFg5otQxmelGQEnFT5doH+nmawf1nNlCg2yXa8aePhSKi +G5W3O1IQRDVuviiphi4fCjJy6fmoz8FtU892NTypNi/ST5GCntNb3Q/MV0dy +dDoioZELQX1aTF1Rdbyuu5mh9ZoLv9b+GRxcpI4/DkxNvXpBz3MCqbEB8uqY +1ngmXfgZF3TDa+9sXa6O0kNFZkH0PHjUT13SwUUdCx/3Ony7Rs93FgONmnnq ++Jv1qjk7igvWw6HWX401sFvFs9pBkwsDvkLBdyKXYKcRn87wgxL6/0KW/2TN +UnQKnHQ5MK8YJF6rJ3OHl+HKMy4iEfY3QTG+1NHYWAvf87pnRb2vQ5am2SLJ +HcsxV/t6/Lu4q/BC3tJo7Kw2+pQm2umWXYEVijUpOh90sGz+7oHk2ssgLlAQ +4hOji7m2f6ZtZi6BcrQKe6O6HiqJe70oYOaDsJpXmfNzPSyu7xGybLgA2hy5 +0tDN+lj58/C67Y+z4UC7RK0NnwH2+gpKm93IgOGx027WWQYYwLCwa/uXBmt1 +nuVYLzfEsMBPl8UzzsKDMfO/vxoM0eS9pt7szmQI0tJve+tnhNJWxvr8/qeA +M7S9eaOwMb5ZZnDWJToO1rAYdmIFxvS8rhpuvPY4LIk6FVZjYoLyfv46ReFR +sMzP7KFamwm2O5cryuUdBr8HO0/c2W+KhJjCFav1ofAwv3n7qLQZVrg7wGXL +YBi/NvtL554Zarw39St6uBd81W4K59itQPHq5cX/tuyC0WVpxryRFbj3n3+D +8j4/uF/4t3Mi3hy93yScCk/1AeNVIb9sEs1Rf8O7wfMnfOBu54BofpI5eoQU +fXh+yAd4yu0mNqnmuM2rT5W9yQduZT1Kyj1vjnHLXOQzWD6QfzrWbG2JOY51 +N38XKd8KCSELz2a9M0cDrlLb1bfe4LlaFc2V2Wh4iZd29qkXzDQLidcSbPyo +cUDR4ZYX5PsNfbJRZeMTXUE5Is0LvsWVh3ouYeO8v6Xs6a1ecKDeoTRcn43W +uWtaz89sglP2R5TvW7HRP1S6NnDFJqjY8H7acC8bfe7fixeq2QgKgSfLtR+x +MUhpe2mioAckz/obJdawkSM796PmmDvwp1pR35+wUWH1491tHe7QVzbven49 +G6M7Bq9tK3eHCr4TWRLv2KjB801QDnQHz/So0MmvbMxrkVjGbnGDrMpwowcL +OHhW9O/w27uuIC2yh7Lz4GB2vJ7X6RxnKFx1NGJkIwdFDF76FcU7g/7R5FVp +XhwsbCBqGg85g/0I932rDwfH/9VaObo4Q9yHiT++ezjoX3rGdr6YM/wuiFwZ +Ec1B+yXnb6867gRt5mnvim5yUPyCD+9GhCPsPFh4wbqEg8trn0nl7HKEyZK7 +fgNcDgrcZQVnejqCBLP1l14ZB0PHDk5VrnAEWyElxepHtJ+Wqbv/coCq5qLt +795zsPR2GZ8enwPYiN9ffqiVg9H73W897bSH1rX1k4xPHIyo3S1ysNYexiv6 +47d84eCrV2rJqiftYfkl3eIffRwMCMg4Wb3QHqraLA+dHuSgfLhzjtpPO7CR +cgGdEQ5+4wk+vtpsB/4nD74NmeCgz+2hv3+y7WD8UVyO7G8OrhEW+VF/xA5i +pjJ9K6Y4qFYwcP62tx0sMryutXmGgz9Rfc69lXaQG1gxMTvLwaZmp3nNanbw +P7c4nRA= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Ve8fAHBRQqjMa59zXVRkz9zr89FQyF4lJYlS0aCMhlFEIiGrQpIm +7rmVsho0aFBSpG9kVLJlVCK/8/vrvN5/nHOe5zmfdchte539+Pn4+BbN4eP7 +/3Wyvf4JK7HQ4tOc918FflhaNOcywi1bYyBpou1GeyABKN24jdGaCg2ZgtP3 +A3XhkOONFoHWAtjxpCsvLxBh8ZBs6p8WHhR4q3aEBTpCR5X93vGWGugVszGe +2bMVrFh9n0dbmoCvfqGP8u598KfF5NxISxfIqS2YveUbBbWrrha+LRgDrkWJ +xoPRFFDsKP+2TWsGgh152rafs0Bqj/eN+asEMD3h6K9YVj6k6llV2rsJYVWR +keCy/svwMUv30egiMfwdWt3rtvQqJBZGNvLLLca1TwSGu51vgGx6d0LaRUls +aryRPyZUDAzNuyd+F0liq1DkThuJYpCviYvczJXEsImznucVikF5ZOlBjVpJ +lPxQeV9TuxjU1u/bWtkriT+/HGcLuhSDwdwZ424DKdy3zd/30vlicAiR6dF/ +IYXv1ubn71xSAiddrS2aJqXx1qxe41zdUpC/0yDPP0cG0+eZ2Z80LYUSSddf +egtksNyg8zq/ZSl8aNrCPasigwkayWPdTqXAcgphOq2TwRMzeN8xuBRq7PIE +32TLYLahhEPTnVKYsZpoeM2WxVyxRjCV40JKUcTNGStZbIhSjBdU4gJLkC9+ +uZMsrjbVNnhLcGH9UxHLJD9ZNE2L425awoWcVcTt9cmyaL+nBNeYcMEUbTNf +dsiicZJL1C5XLgSbXfKuj2HgtLOH+HQiF2zyxcdtTzPQTirBQ+kMF5jzj8Q3 +nGNg56rxEPNULrxpdqfeXWNgq7eiVlAWF7T3iQq0NzAwbv3+hOJCLvQWhRb9 +lJdD/rdeo2lVXPCSsh9UuC2HSXwnDGZ/cMHgcGV0bpUcHtEt66sY4IJI1xIZ +8pkcqiroHAwe5kJ5qQCof5RDCX/G3E/jXJCxLU/RnZVDcu6kyIlZ+v3RLMM1 +tvIYPy+4niNFwerhqYigbnnsEs7KdzSnIHxd+rLHA/K4ZH2j+nkOBSWXlrdJ +Tspj7Zy6gi6ggOG61axcSAGbtFOP7FxNwcD9p78EtBUwbLqu0sGOgrSYlJDs +MAVUmjibdHoLBV3S6kFPxBRRgaHT9OgYBbJ7HyrJyiriT7uqnTeiKFhft+F1 +AKGIXXpOf1NiKCiLSNRaaKCILZlp0m5xFJzqGOnbuEERta/eUStPokD/euWO +4QJFDD0yMjJynoJotpOPvKkS+rS2rSTLKFi3JfenyUol9It9bvbqHgXiUf3H +3dYr4bSgVWlwOQUXamOLUrYqYe+X57L3qyi4b1PRL5ighBbmdf0ytRSMbFA9 +NPZRCV9U5Yssb6TgXsS++Yt7lHDdUgvV/DcUHLtQnaU9pIRD8stqFjZRIPrF +ozKAXxmbnvGf62mmQGPHab4vy5RxdOzkxe1tFGw5OHHq1WFlrO7/fvtBDwVq +mSsV+2KVsX+YODD19f/nd6Z4fooyDi4If6j/nYKI6aVvVhYq46n8DuHsHxSc +O75FuvyVMgaQukHsIQpenX2ed0VJBfveps60T9LnfVtKr1ZDBf2EXSa7f1Hg ++d6n5oueClYnisd//U1BL2O6R8FKBWVXSYS3T1EgkK+7LDVIBYsLH12++o+C +FSXZd449VMFVjwt4mfN4sLqlYWaoTgU3/33XsEGQB/Z8c9d6N6lgKzD+yczn +ga9z0Ef4qoK8tmVZp4R4YHWYjIyaR6CzZesL+wU8eLmw6rKpCIF+cdNnftN2 +LHSvGxEnsKS1d0+eKA82vU5c7MMgkBCO2dcjxoN9KpOXLTUJFOgpL7VdxIOJ +2yl1f3QIHKxRXN1OO2Kd5iBlSOBNC82JwMU8iN2/1ZhpQeCcsBelJyR4kFP7 +oo7ficCP1N2sM1I8UNngN1jhRqCboRRrgTQPCgdmFwd7Evhfts7b47RLpY02 +dfsSaCFlkLZHhgdPduQN1h4iMEegpE6BwQPraTOJI4cJdBzRCYmi3ZDSbGwY +RaBG9y2rLtofy4WjChMIPCW+2veiHA+22BcWeiUTuFK2rGSSdk+XRb1UGoEp +T5tU7eR5MLQgRCL2AoHSBrVJo7SD88VNOJfo+w3Hj4MCD34bXt80cYVA0vtU +0SnaAlvaC/1KCawgrgUzFHkQ/zOsXukOgeObU1U20RY/KTn0/j6B7QuvTuXQ +ZnDXmVjVEOgSqmgpocSDi6u7N/17RuDwkq/F1rSZH49Glb0kMNzq2vpjtK8F +Mq4EvSGQfVBBmUt7Of/tevX3BM4TmGB20OZl2A21fySw7Gv/pgXKPDDV7JXI +bCfwccW9ekPaK12VvOb3ErhkotQqkvbz3ntRDwcIPNBi75FPe/1R5yuhowRK +Xrma94B20+LBep1JAl+uOEi00fYoOjn0fYpAK/ngtp+0/1vBlMyfJTA/YHOD +kAoPtjVWmWyYS+KvnyPTCrS/+3p4LRImcUK131+L9p7fo1F1YiS6iYmIraC9 +Yr+/zDcJEgdEvpevoS3U13ZTgEHisYgvS+xpf9jmYEkqkRg53ufpQvvKp9oP +FkwSB4f/OrrRDnE13eOlQWLuY2FRV9orX9+aE6FF4pnzC5IcaC+yIjMz9UjU +O/2neS3t9gfntO4ak1hz9FUPm/YtE5GaJnMSU4yOVWvTjuAe8xhBen0uwluV +aK9bOjYgZkXiYceA1//fn0zBjhhNWxKDI3MER+n998j/J2vtSOIfkRzRD7R5 +aY7F/m4kHpjw+3KPdpTo05UnPElcwpiJyaDtEGvWesmbxCKm98R+2sr/igMf +bidxJvu0qQ3tgUNMgc8BJMq2xtmp0K4YzsiaCiJxSsTRaJT+vvE7F2gzQkhU +M+wfeUjbvTOy1iicxNcaXtGJtFme4xtcjpGof/rqdxfaj2w/H0+OJ5F07zH7 +RMdb8hMnuVtJJM4qdGv8P/68OM9K6lNJbFvcMuxG+4926ce5F0ms1q9Z/ISO +Z32JaJ3DFIlzbr6siKDjny9x4klWGYkC19LPEbQbBHZ5llWSeKG9xLmWzp/d +E86xo09JdOGXCpul862wlfVpRxuJCYJhSc6yPDjglL0vtoNEDd0LWR10/uIL +McHLPSQ2vc1LDqD9uXJSt32IxE7D8xBC57tMXl2cqwATqz/1vNsuSZ+3LEfx +gBATu15Fu36k6wcvhaLOiDGRt6K6zoa2Q0zOfy9kmRhjdjSFRdebeL89+pZa +TDyZZVN1W5zen+ai9uVuTGx1rYmyFObB5EX5aANPJjpObzJJoOvh+EI1lpk3 +E/VTzRY20PVyaMxs1+oAJt7zUNRwoOtpV6XvpOdRJkK1uoyOAA9e2N4Tj7/C +xOFz6b3+0xQ8r35MJd1gosG7YybRfyl4ovPKNa2UiaFmfuVZdP1+INmZk1tO +r49xw/MhXd95n0Q07r5mInWvQb9/nIKc3Vuga4KJQXVWZg8GKMj8vLPr+xQT +08Kz8FY/BekOwbGDs0wUe22alNlHQbJB/Mvfwqr4U1D8r18vBTF/KY+FyqpY +mPjMuqubgt2J8/axrVSR2c6o3Ej3M/bNW/kZGaooq+Fptf4pBZ+Im3lrzqti +g+N/CTN0/4zIuJ47nqeKLnLfkm/V0P0zuuiC83VVXGed1CnwiO7fG/KzxKtU +sdlL42lmBQVL56WnxHWqYufhbH+3UgpkvA9HHdJiYXrDVS2dTAruNodHqunR +LpyfkXOOAlebsGPNRiwkyYhOgXQKUo0OHtEHFtpWVDPfpFAgJro3bMiJhaZF +7bsdTlEwt3zbPv9QFto9D+bvO0LBqITNVvcaFh7ktuVmbKWgdQ/zza7nLPQY +M9ifRc8rj55NQeQrFg5otQxmelGQEnFT5doH+nmawf1nNlCg2yXa8aePhSKi +G5W3O1IQRDVuviiphi4fCjJy6fmoz8FtU892NTypNi/ST5GCntNb3Q/MV0dy +dDoioZELQX1aTF1Rdbyuu5mh9ZoLv9b+GRxcpI4/DkxNvXpBz3MCqbEB8uqY +1ngmXfgZF3TDa+9sXa6O0kNFZkH0PHjUT13SwUUdCx/3Ony7Rs93FgONmnnq ++Jv1qjk7igvWw6HWX401sFvFs9pBkwsDvkLBdyKXYKcRn87wgxL6/0KW/2TN +UnQKnHQ5MK8YJF6rJ3OHl+HKMy4iEfY3QTG+1NHYWAvf87pnRb2vQ5am2SLJ +HcsxV/t6/Lu4q/BC3tJo7Kw2+pQm2umWXYEVijUpOh90sGz+7oHk2ssgLlAQ +4hOji7m2f6ZtZi6BcrQKe6O6HiqJe70oYOaDsJpXmfNzPSyu7xGybLgA2hy5 +0tDN+lj58/C67Y+z4UC7RK0NnwH2+gpKm93IgOGx027WWQYYwLCwa/uXBmt1 +nuVYLzfEsMBPl8UzzsKDMfO/vxoM0eS9pt7szmQI0tJve+tnhNJWxvr8/qeA +M7S9eaOwMb5ZZnDWJToO1rAYdmIFxvS8rhpuvPY4LIk6FVZjYoLyfv46ReFR +sMzP7KFamwm2O5cryuUdBr8HO0/c2W+KhJjCFav1ofAwv3n7qLQZVrg7wGXL +YBi/NvtL554Zarw39St6uBd81W4K59itQPHq5cX/tuyC0WVpxryRFbj3n3+D +8j4/uF/4t3Mi3hy93yScCk/1AeNVIb9sEs1Rf8O7wfMnfOBu54BofpI5eoQU +fXh+yAd4yu0mNqnmuM2rT5W9yQduZT1Kyj1vjnHLXOQzWD6QfzrWbG2JOY51 +N38XKd8KCSELz2a9M0cDrlLb1bfe4LlaFc2V2Wh4iZd29qkXzDQLidcSbPyo +cUDR4ZYX5PsNfbJRZeMTXUE5Is0LvsWVh3ouYeO8v6Xs6a1ecKDeoTRcn43W +uWtaz89sglP2R5TvW7HRP1S6NnDFJqjY8H7acC8bfe7fixeq2QgKgSfLtR+x +MUhpe2mioAckz/obJdawkSM796PmmDvwp1pR35+wUWH1491tHe7QVzbven49 +G6M7Bq9tK3eHCr4TWRLv2KjB801QDnQHz/So0MmvbMxrkVjGbnGDrMpwowcL +OHhW9O/w27uuIC2yh7Lz4GB2vJ7X6RxnKFx1NGJkIwdFDF76FcU7g/7R5FVp +XhwsbCBqGg85g/0I932rDwfH/9VaObo4Q9yHiT++ezjoX3rGdr6YM/wuiFwZ +Ec1B+yXnb6867gRt5mnvim5yUPyCD+9GhCPsPFh4wbqEg8trn0nl7HKEyZK7 +fgNcDgrcZQVnejqCBLP1l14ZB0PHDk5VrnAEWyElxepHtJ+Wqbv/coCq5qLt +795zsPR2GZ8enwPYiN9ffqiVg9H73W897bSH1rX1k4xPHIyo3S1ysNYexiv6 +47d84eCrV2rJqiftYfkl3eIffRwMCMg4Wb3QHqraLA+dHuSgfLhzjtpPO7CR +cgGdEQ5+4wk+vtpsB/4nD74NmeCgz+2hv3+y7WD8UVyO7G8OrhEW+VF/xA5i +pjJ9K6Y4qFYwcP62tx0sMryutXmGgz9Rfc69lXaQG1gxMTvLwaZmp3nNanbw +P7c4nRA= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07079060771133046}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07079060771133046}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Ve8fAHBRQqjMa59zXVRkz9zr89FQyF4lJYlS0aCMhlFEIiGrQpIm +7rmVsho0aFBSpG9kVLJlVCK/8/vrvN5/nHOe5zmfdchte539+Pn4+BbN4eP7 +/3Wyvf4JK7HQ4tOc918FflhaNOcywi1bYyBpou1GeyABKN24jdGaCg2ZgtP3 +A3XhkOONFoHWAtjxpCsvLxBh8ZBs6p8WHhR4q3aEBTpCR5X93vGWGugVszGe +2bMVrFh9n0dbmoCvfqGP8u598KfF5NxISxfIqS2YveUbBbWrrha+LRgDrkWJ +xoPRFFDsKP+2TWsGgh152rafs0Bqj/eN+asEMD3h6K9YVj6k6llV2rsJYVWR +keCy/svwMUv30egiMfwdWt3rtvQqJBZGNvLLLca1TwSGu51vgGx6d0LaRUls +aryRPyZUDAzNuyd+F0liq1DkThuJYpCviYvczJXEsImznucVikF5ZOlBjVpJ +lPxQeV9TuxjU1u/bWtkriT+/HGcLuhSDwdwZ424DKdy3zd/30vlicAiR6dF/ +IYXv1ubn71xSAiddrS2aJqXx1qxe41zdUpC/0yDPP0cG0+eZ2Z80LYUSSddf +egtksNyg8zq/ZSl8aNrCPasigwkayWPdTqXAcgphOq2TwRMzeN8xuBRq7PIE +32TLYLahhEPTnVKYsZpoeM2WxVyxRjCV40JKUcTNGStZbIhSjBdU4gJLkC9+ +uZMsrjbVNnhLcGH9UxHLJD9ZNE2L425awoWcVcTt9cmyaL+nBNeYcMEUbTNf +dsiicZJL1C5XLgSbXfKuj2HgtLOH+HQiF2zyxcdtTzPQTirBQ+kMF5jzj8Q3 +nGNg56rxEPNULrxpdqfeXWNgq7eiVlAWF7T3iQq0NzAwbv3+hOJCLvQWhRb9 +lJdD/rdeo2lVXPCSsh9UuC2HSXwnDGZ/cMHgcGV0bpUcHtEt66sY4IJI1xIZ +8pkcqiroHAwe5kJ5qQCof5RDCX/G3E/jXJCxLU/RnZVDcu6kyIlZ+v3RLMM1 +tvIYPy+4niNFwerhqYigbnnsEs7KdzSnIHxd+rLHA/K4ZH2j+nkOBSWXlrdJ +Tspj7Zy6gi6ggOG61axcSAGbtFOP7FxNwcD9p78EtBUwbLqu0sGOgrSYlJDs +MAVUmjibdHoLBV3S6kFPxBRRgaHT9OgYBbJ7HyrJyiriT7uqnTeiKFhft+F1 +AKGIXXpOf1NiKCiLSNRaaKCILZlp0m5xFJzqGOnbuEERta/eUStPokD/euWO +4QJFDD0yMjJynoJotpOPvKkS+rS2rSTLKFi3JfenyUol9It9bvbqHgXiUf3H +3dYr4bSgVWlwOQUXamOLUrYqYe+X57L3qyi4b1PRL5ighBbmdf0ytRSMbFA9 +NPZRCV9U5Yssb6TgXsS++Yt7lHDdUgvV/DcUHLtQnaU9pIRD8stqFjZRIPrF +ozKAXxmbnvGf62mmQGPHab4vy5RxdOzkxe1tFGw5OHHq1WFlrO7/fvtBDwVq +mSsV+2KVsX+YODD19f/nd6Z4fooyDi4If6j/nYKI6aVvVhYq46n8DuHsHxSc +O75FuvyVMgaQukHsIQpenX2ed0VJBfveps60T9LnfVtKr1ZDBf2EXSa7f1Hg ++d6n5oueClYnisd//U1BL2O6R8FKBWVXSYS3T1EgkK+7LDVIBYsLH12++o+C +FSXZd449VMFVjwt4mfN4sLqlYWaoTgU3/33XsEGQB/Z8c9d6N6lgKzD+yczn +ga9z0Ef4qoK8tmVZp4R4YHWYjIyaR6CzZesL+wU8eLmw6rKpCIF+cdNnftN2 +LHSvGxEnsKS1d0+eKA82vU5c7MMgkBCO2dcjxoN9KpOXLTUJFOgpL7VdxIOJ +2yl1f3QIHKxRXN1OO2Kd5iBlSOBNC82JwMU8iN2/1ZhpQeCcsBelJyR4kFP7 +oo7ficCP1N2sM1I8UNngN1jhRqCboRRrgTQPCgdmFwd7Evhfts7b47RLpY02 +dfsSaCFlkLZHhgdPduQN1h4iMEegpE6BwQPraTOJI4cJdBzRCYmi3ZDSbGwY +RaBG9y2rLtofy4WjChMIPCW+2veiHA+22BcWeiUTuFK2rGSSdk+XRb1UGoEp +T5tU7eR5MLQgRCL2AoHSBrVJo7SD88VNOJfo+w3Hj4MCD34bXt80cYVA0vtU +0SnaAlvaC/1KCawgrgUzFHkQ/zOsXukOgeObU1U20RY/KTn0/j6B7QuvTuXQ +ZnDXmVjVEOgSqmgpocSDi6u7N/17RuDwkq/F1rSZH49Glb0kMNzq2vpjtK8F +Mq4EvSGQfVBBmUt7Of/tevX3BM4TmGB20OZl2A21fySw7Gv/pgXKPDDV7JXI +bCfwccW9ekPaK12VvOb3ErhkotQqkvbz3ntRDwcIPNBi75FPe/1R5yuhowRK +Xrma94B20+LBep1JAl+uOEi00fYoOjn0fYpAK/ngtp+0/1vBlMyfJTA/YHOD +kAoPtjVWmWyYS+KvnyPTCrS/+3p4LRImcUK131+L9p7fo1F1YiS6iYmIraC9 +Yr+/zDcJEgdEvpevoS3U13ZTgEHisYgvS+xpf9jmYEkqkRg53ufpQvvKp9oP +FkwSB4f/OrrRDnE13eOlQWLuY2FRV9orX9+aE6FF4pnzC5IcaC+yIjMz9UjU +O/2neS3t9gfntO4ak1hz9FUPm/YtE5GaJnMSU4yOVWvTjuAe8xhBen0uwluV +aK9bOjYgZkXiYceA1//fn0zBjhhNWxKDI3MER+n998j/J2vtSOIfkRzRD7R5 +aY7F/m4kHpjw+3KPdpTo05UnPElcwpiJyaDtEGvWesmbxCKm98R+2sr/igMf +bidxJvu0qQ3tgUNMgc8BJMq2xtmp0K4YzsiaCiJxSsTRaJT+vvE7F2gzQkhU +M+wfeUjbvTOy1iicxNcaXtGJtFme4xtcjpGof/rqdxfaj2w/H0+OJ5F07zH7 +RMdb8hMnuVtJJM4qdGv8P/68OM9K6lNJbFvcMuxG+4926ce5F0ms1q9Z/ISO +Z32JaJ3DFIlzbr6siKDjny9x4klWGYkC19LPEbQbBHZ5llWSeKG9xLmWzp/d +E86xo09JdOGXCpul862wlfVpRxuJCYJhSc6yPDjglL0vtoNEDd0LWR10/uIL +McHLPSQ2vc1LDqD9uXJSt32IxE7D8xBC57tMXl2cqwATqz/1vNsuSZ+3LEfx +gBATu15Fu36k6wcvhaLOiDGRt6K6zoa2Q0zOfy9kmRhjdjSFRdebeL89+pZa +TDyZZVN1W5zen+ai9uVuTGx1rYmyFObB5EX5aANPJjpObzJJoOvh+EI1lpk3 +E/VTzRY20PVyaMxs1+oAJt7zUNRwoOtpV6XvpOdRJkK1uoyOAA9e2N4Tj7/C +xOFz6b3+0xQ8r35MJd1gosG7YybRfyl4ovPKNa2UiaFmfuVZdP1+INmZk1tO +r49xw/MhXd95n0Q07r5mInWvQb9/nIKc3Vuga4KJQXVWZg8GKMj8vLPr+xQT +08Kz8FY/BekOwbGDs0wUe22alNlHQbJB/Mvfwqr4U1D8r18vBTF/KY+FyqpY +mPjMuqubgt2J8/axrVSR2c6o3Ej3M/bNW/kZGaooq+Fptf4pBZ+Im3lrzqti +g+N/CTN0/4zIuJ47nqeKLnLfkm/V0P0zuuiC83VVXGed1CnwiO7fG/KzxKtU +sdlL42lmBQVL56WnxHWqYufhbH+3UgpkvA9HHdJiYXrDVS2dTAruNodHqunR +LpyfkXOOAlebsGPNRiwkyYhOgXQKUo0OHtEHFtpWVDPfpFAgJro3bMiJhaZF +7bsdTlEwt3zbPv9QFto9D+bvO0LBqITNVvcaFh7ktuVmbKWgdQ/zza7nLPQY +M9ifRc8rj55NQeQrFg5otQxmelGQEnFT5doH+nmawf1nNlCg2yXa8aePhSKi +G5W3O1IQRDVuviiphi4fCjJy6fmoz8FtU892NTypNi/ST5GCntNb3Q/MV0dy +dDoioZELQX1aTF1Rdbyuu5mh9ZoLv9b+GRxcpI4/DkxNvXpBz3MCqbEB8uqY +1ngmXfgZF3TDa+9sXa6O0kNFZkH0PHjUT13SwUUdCx/3Ony7Rs93FgONmnnq ++Jv1qjk7igvWw6HWX401sFvFs9pBkwsDvkLBdyKXYKcRn87wgxL6/0KW/2TN +UnQKnHQ5MK8YJF6rJ3OHl+HKMy4iEfY3QTG+1NHYWAvf87pnRb2vQ5am2SLJ +HcsxV/t6/Lu4q/BC3tJo7Kw2+pQm2umWXYEVijUpOh90sGz+7oHk2ssgLlAQ +4hOji7m2f6ZtZi6BcrQKe6O6HiqJe70oYOaDsJpXmfNzPSyu7xGybLgA2hy5 +0tDN+lj58/C67Y+z4UC7RK0NnwH2+gpKm93IgOGx027WWQYYwLCwa/uXBmt1 +nuVYLzfEsMBPl8UzzsKDMfO/vxoM0eS9pt7szmQI0tJve+tnhNJWxvr8/qeA +M7S9eaOwMb5ZZnDWJToO1rAYdmIFxvS8rhpuvPY4LIk6FVZjYoLyfv46ReFR +sMzP7KFamwm2O5cryuUdBr8HO0/c2W+KhJjCFav1ofAwv3n7qLQZVrg7wGXL +YBi/NvtL554Zarw39St6uBd81W4K59itQPHq5cX/tuyC0WVpxryRFbj3n3+D +8j4/uF/4t3Mi3hy93yScCk/1AeNVIb9sEs1Rf8O7wfMnfOBu54BofpI5eoQU +fXh+yAd4yu0mNqnmuM2rT5W9yQduZT1Kyj1vjnHLXOQzWD6QfzrWbG2JOY51 +N38XKd8KCSELz2a9M0cDrlLb1bfe4LlaFc2V2Wh4iZd29qkXzDQLidcSbPyo +cUDR4ZYX5PsNfbJRZeMTXUE5Is0LvsWVh3ouYeO8v6Xs6a1ecKDeoTRcn43W +uWtaz89sglP2R5TvW7HRP1S6NnDFJqjY8H7acC8bfe7fixeq2QgKgSfLtR+x +MUhpe2mioAckz/obJdawkSM796PmmDvwp1pR35+wUWH1491tHe7QVzbven49 +G6M7Bq9tK3eHCr4TWRLv2KjB801QDnQHz/So0MmvbMxrkVjGbnGDrMpwowcL +OHhW9O/w27uuIC2yh7Lz4GB2vJ7X6RxnKFx1NGJkIwdFDF76FcU7g/7R5FVp +XhwsbCBqGg85g/0I932rDwfH/9VaObo4Q9yHiT++ezjoX3rGdr6YM/wuiFwZ +Ec1B+yXnb6867gRt5mnvim5yUPyCD+9GhCPsPFh4wbqEg8trn0nl7HKEyZK7 +fgNcDgrcZQVnejqCBLP1l14ZB0PHDk5VrnAEWyElxepHtJ+Wqbv/coCq5qLt +795zsPR2GZ8enwPYiN9ffqiVg9H73W897bSH1rX1k4xPHIyo3S1ysNYexiv6 +47d84eCrV2rJqiftYfkl3eIffRwMCMg4Wb3QHqraLA+dHuSgfLhzjtpPO7CR +cgGdEQ5+4wk+vtpsB/4nD74NmeCgz+2hv3+y7WD8UVyO7G8OrhEW+VF/xA5i +pjJ9K6Y4qFYwcP62tx0sMryutXmGgz9Rfc69lXaQG1gxMTvLwaZmp3nNanbw +P7c4nRA= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07079060771133046}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07079060771133046}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994260793290537*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"45378764-5cf8-4a52-975e-8dcadde0fa60"] +}, Open ]], Cell[CellGroupData[{ @@ -12523,18 +15042,75 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], - RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ -UUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[142]:=",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"2b38d1a8-4a7e-7b4f-8cdd-5298fced63d9"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.641593860673703`*^-157\\\", \ +RowBox[{\\\"552513857212233842570175958778312308519\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"78\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3361543354777600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 73, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260793330646*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"7de2c084-357c-47e1-befc-0cb17f35c2d2"], -Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.55422793193027`*^-159\\\", \ +RowBox[{\\\"192330073695578600598678251250730514595\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"82\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1532417980825600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 74, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260793339765*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"d063378b-0626-4d3f-8314-b2b6cc3cbf59"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.161152644900282`*^-162\\\", \ +RowBox[{\\\"692388265304082962155241704502629852543\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"85\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6704730972160000000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 75, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260793347464*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"27386f49-64a3-4d5d-a81c-40b4d4e750c5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 142, 76, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260793354623*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"1fdf5191-1182-421c-8b03-ad9002fb1ec5"], + +Cell[BoxData["10.440865589612491`"], "Output", + CellChangeTimes->{3.9942608473469*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"0b6707e5-73de-4ff5-a7b6-e7882d71abdc"] }, Open ]], Cell[CellGroupData[{ @@ -12601,27 +15177,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850818889292*^9, - 3.9918508230677433`*^9}},ExpressionUUID->"d2148290-3e90-8347-bddd-\ -5dd8190b0268"], + CellChangeTimes->{{3.991850818889292*^9, 3.9918508230677433`*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"905b237c-0e51-ab4b-895d-05994c6f1d5f"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.8393213939631744`*^-203\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 77, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260847382103*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"cca7a08e-0a8d-41ed-9fbf-35512636e6cc"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"7ad8c79e-9570-a44d-b593-07aa87056e21"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.635996108702221`*^-208\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 78, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260847388853*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"7ca4db74-21a1-4b9c-a22c-7f96f31d06af"], -Cell[BoxData["0.576602516746911`"], "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4184591879419774`*^-212\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 79, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260847395514*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"7330b711-f5d7-4583-807d-5701b97c1b66"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 80, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260847401451*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"2ff84f2a-69e4-4121-aa15-320cdbaec4c6"], + +Cell[BoxData["0.7576323592352562`"], "Output", + CellChangeTimes->{3.994260855227947*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"7bd08141-7e38-4ff8-9c6d-b9f1697bffe7"] }, Open ]], Cell[CellGroupData[{ @@ -12642,8 +15266,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -12688,27 +15311,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850826380268*^9, - 3.991850829169306*^9}},ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-\ -98d71f8a8458"], + CellChangeTimes->{{3.991850826380268*^9, 3.991850829169306*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"c516c31a-74b4-f24d-a16a-678221cde87e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.8393213939631744`*^-203\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 81, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260855264401*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"3bd6ba42-a153-40cb-af39-ce82bd747ecd"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"5c50b555-9ebe-f94d-801f-34634555f622"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.635996108702221`*^-208\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 82, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260855273282*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"575eabe9-b063-43c8-b950-53877133aee7"], -Cell[BoxData["3.32141991539404`"], "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4184591879419774`*^-212\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 83, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260855281075*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"c1a3b2ae-7c2f-4435-aaf5-be22ddf4bf55"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 84, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260855288095*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"26b3417b-80bf-4c0b-9057-fd8d114a73aa"], + +Cell[BoxData["31.50776905134223`"], "Output", + CellChangeTimes->{3.994260862843904*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"fe8b1512-4f22-4a14-a749-e645a1071991"] }, Open ]], Cell[CellGroupData[{ @@ -12729,8 +15400,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -12775,27 +15445,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918508329145336`*^9, - 3.991850837197098*^9}},ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-\ -57c1fe1d0585"], + CellChangeTimes->{{3.9918508329145336`*^9, 3.991850837197098*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"7ca591cf-a5ce-ce41-8101-8edfca50e890"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.8393213939631744`*^-203\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 85, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942608628814774`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"95ad51f8-d3c8-4be7-99d9-8e8c326fafb8"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"cbafd11a-4be0-b541-81e4-e62191ae7695"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.635996108702221`*^-208\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 86, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942608628903217`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"c53e0c76-e683-4015-8ed5-1ee62174922d"], -Cell[BoxData["18.419619005098298`"], "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4184591879419774`*^-212\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 87, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260862898135*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"9dfa7a28-e19a-4840-b60d-96d6f78a5857"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 88, 31387658258572903023, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942608629058867`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"adf0af4e-7d2a-4a55-b649-cf7076007365"], + +Cell[BoxData["4.597675254704149`"], "Output", + CellChangeTimes->{3.994260867446727*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"a955eeee-8fbf-4529-a801-93bb2a5fe531"] }, Open ]], Cell[CellGroupData[{ @@ -12804,21 +15522,25 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918508397421246`*^9, - 3.9918508449867363`*^9}},ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-\ -1ca469b254bd"], + CellChangeTimes->{{3.9918508397421246`*^9, 3.9918508449867363`*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], -Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] +Cell[BoxData["0.06294779799331797`"], "Output", + CellChangeTimes->{3.9942608674777946`*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"7040186e-5c26-41b5-94dd-98bdb95dfe37"] }, Open ]], Cell[BoxData[ RowBox[{"NotebookSave", "[", "]"}]], "Input", - CellChangeTimes->{{3.994083555092538*^9, - 3.99408355798809*^9}},ExpressionUUID->"c48b0e02-cac6-46a2-8dae-\ -6c5526596fd2"] + CellChangeTimes->{{3.994083555092538*^9, 3.99408355798809*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"c48b0e02-cac6-46a2-8dae-6c5526596fd2"] }, -WindowSize->{714, 288}, -WindowMargins->{{Automatic, 3}, {297, Automatic}}, +Evaluator->"6", +WindowSize->{714, 170.25}, +WindowMargins->{{Automatic, 3}, {3, Automatic}}, CellContext->Notebook, FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", @@ -12836,608 +15558,642 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 330, 7, 36, "Input",ExpressionUUID->"d303ed45-c1a3-4b14-8f66-b10f36d962f0"], -Cell[909, 31, 208, 4, 41, "Output",ExpressionUUID->"070e4a52-525e-44c8-99c6-719af0639bb7"] +Cell[576, 22, 347, 6, 36, "Input",ExpressionUUID->"d303ed45-c1a3-4b14-8f66-b10f36d962f0"], +Cell[926, 30, 229, 4, 41, "Output",ExpressionUUID->"986af61e-f066-4cdc-8c20-e992682c37ec"] }, Open ]], Cell[CellGroupData[{ -Cell[1154, 40, 253, 5, 36, "Input",ExpressionUUID->"701ec475-b89f-4bab-98d2-9d586513a0c7"], -Cell[1410, 47, 208, 4, 41, "Output",ExpressionUUID->"48310c09-ecea-48f9-9571-88d8f38dccf2"] +Cell[1192, 39, 248, 4, 36, "Input",ExpressionUUID->"701ec475-b89f-4bab-98d2-9d586513a0c7"], +Cell[1443, 45, 229, 4, 41, "Output",ExpressionUUID->"e04505c3-3b7d-4a21-b0d0-8808642b0eb3"] }, Open ]], Cell[CellGroupData[{ -Cell[1655, 56, 226, 5, 36, "Input",ExpressionUUID->"5793edf2-6fe4-46c4-a112-de1d147d0d8a"], -Cell[1884, 63, 207, 4, 41, "Output",ExpressionUUID->"5d30e475-70f4-4b78-9b69-4b4bf8a78b72"] +Cell[1709, 54, 221, 4, 36, "Input",ExpressionUUID->"5793edf2-6fe4-46c4-a112-de1d147d0d8a"], +Cell[1933, 60, 228, 4, 41, "Output",ExpressionUUID->"ab00fb53-fa8a-4eec-9888-2699227eaea7"] }, Open ]], Cell[CellGroupData[{ -Cell[2128, 72, 180, 4, 51, "Input",ExpressionUUID->"6005175a-0fcb-4adf-bf6c-276191010b9c"], -Cell[2311, 78, 207, 4, 58, "Output",ExpressionUUID->"56131d3d-e7bf-423f-9a99-038b16e2d991"] +Cell[2198, 69, 175, 3, 36, "Input",ExpressionUUID->"6005175a-0fcb-4adf-bf6c-276191010b9c"], +Cell[2376, 74, 228, 4, 41, "Output",ExpressionUUID->"f763efba-9781-471d-96c7-ad0c47af70c4"] }, Open ]], Cell[CellGroupData[{ -Cell[2555, 87, 262, 8, 74, "Input",ExpressionUUID->"e803105c-cfee-4637-a232-3efa83d154ad"], -Cell[2820, 97, 223, 4, 58, "Output",ExpressionUUID->"e3a7dca1-0daa-4a70-af2b-8070dd0c7763"] +Cell[2641, 83, 257, 7, 54, "Input",ExpressionUUID->"e803105c-cfee-4637-a232-3efa83d154ad"], +Cell[2901, 92, 244, 4, 41, "Output",ExpressionUUID->"66b3cbbe-ab8d-433c-9d9e-f7b56dd89e8f"] }, Open ]], Cell[CellGroupData[{ -Cell[3080, 106, 136, 3, 51, "Input",ExpressionUUID->"0b87c224-acf8-43f2-ae1e-d055537656b1"], -Cell[3219, 111, 206, 4, 58, "Output",ExpressionUUID->"da26512d-e6bb-4e03-a414-ef499287f62a"] +Cell[3182, 101, 131, 2, 36, "Input",ExpressionUUID->"0b87c224-acf8-43f2-ae1e-d055537656b1"], +Cell[3316, 105, 229, 4, 41, "Output",ExpressionUUID->"8121476d-8e2a-462a-a487-80e665e86f2c"] }, Open ]], Cell[CellGroupData[{ -Cell[3462, 120, 281, 7, 51, "Input",ExpressionUUID->"7f5f817c-1099-4b82-a283-2ddfd7bf8cbe"], -Cell[3746, 129, 221, 4, 58, "Output",ExpressionUUID->"1e07203b-cc26-464e-b100-3f87c717e972"] +Cell[3582, 114, 276, 6, 36, "Input",ExpressionUUID->"7f5f817c-1099-4b82-a283-2ddfd7bf8cbe"], +Cell[3861, 122, 241, 4, 41, "Output",ExpressionUUID->"d66cc419-456e-4735-81fe-7ae6b7995fd3"] }, Open ]], Cell[CellGroupData[{ -Cell[4004, 138, 262, 8, 51, "Input",ExpressionUUID->"de1da203-69eb-421a-8d24-da53d1bf565a"], -Cell[4269, 148, 221, 4, 58, "Output",ExpressionUUID->"a31ccf1c-97d3-4f0e-b17c-809b97470d85"] +Cell[4139, 131, 257, 7, 36, "Input",ExpressionUUID->"de1da203-69eb-421a-8d24-da53d1bf565a"], +Cell[4399, 140, 242, 4, 41, "Output",ExpressionUUID->"be310a28-c4df-4991-90af-dab8508603a8"] }, Open ]], Cell[CellGroupData[{ -Cell[4527, 157, 229, 5, 51, "Input",ExpressionUUID->"a133035a-e138-4dae-a551-37d8cbc7c7ed"], -Cell[4759, 164, 186, 3, 58, "Output",ExpressionUUID->"319f64cb-bcee-4f50-92e8-689577ce13d0"] +Cell[4678, 149, 224, 4, 36, "Input",ExpressionUUID->"a133035a-e138-4dae-a551-37d8cbc7c7ed"], +Cell[4905, 155, 207, 3, 41, "Output",ExpressionUUID->"d7c5b602-21dc-4625-a50e-cc2530c046d1"] }, Open ]], Cell[CellGroupData[{ -Cell[4982, 172, 232, 5, 51, "Input",ExpressionUUID->"f971fe46-85ac-4caa-bd79-8068f5f3b584"], -Cell[5217, 179, 184, 3, 58, "Output",ExpressionUUID->"c1edc9fc-975a-4b91-b24a-cb4b147614ac"] +Cell[5149, 163, 228, 4, 36, "Input",ExpressionUUID->"f971fe46-85ac-4caa-bd79-8068f5f3b584"], +Cell[5380, 169, 206, 3, 41, "Output",ExpressionUUID->"9ff2229e-a493-4782-89d2-aa8674c1df20"] }, Open ]], Cell[CellGroupData[{ -Cell[5438, 187, 133, 3, 51, "Input",ExpressionUUID->"db003323-685f-4eb4-b3f8-41d3f48a6862"], -Cell[5574, 192, 204, 4, 58, "Output",ExpressionUUID->"2112f792-3cc4-468b-b530-7a7d853d7452"] +Cell[5623, 177, 129, 2, 36, "Input",ExpressionUUID->"db003323-685f-4eb4-b3f8-41d3f48a6862"], +Cell[5755, 181, 226, 4, 41, "Output",ExpressionUUID->"bdf01d06-9473-481c-aacb-0943b56adfd1"] }, Open ]], Cell[CellGroupData[{ -Cell[5815, 201, 133, 3, 51, "Input",ExpressionUUID->"68f8b6c6-9a63-49c0-a0fa-9b6641687ec7"], -Cell[5951, 206, 204, 4, 58, "Output",ExpressionUUID->"67813ae2-7479-4056-96e1-84cc06d2bc0e"] +Cell[6018, 190, 129, 2, 36, "Input",ExpressionUUID->"68f8b6c6-9a63-49c0-a0fa-9b6641687ec7"], +Cell[6150, 194, 228, 4, 41, "Output",ExpressionUUID->"e093fdf9-27f0-47e0-9105-8fdfe6263423"] }, Open ]], Cell[CellGroupData[{ -Cell[6192, 215, 561, 20, 140, "Input",ExpressionUUID->"0cb9f5f7-aaa3-4f85-90b3-70b154d6fca2"], -Cell[6756, 237, 222, 4, 58, "Output",ExpressionUUID->"8e6cf7ab-6285-46a8-adef-c930d44f0ba5"] +Cell[6415, 203, 557, 19, 100, "Input",ExpressionUUID->"0cb9f5f7-aaa3-4f85-90b3-70b154d6fca2"], +Cell[6975, 224, 244, 4, 41, "Output",ExpressionUUID->"d88d8ac1-0bbe-475c-a02b-1d30cc62c88a"] }, Open ]], Cell[CellGroupData[{ -Cell[7015, 246, 561, 20, 140, "Input",ExpressionUUID->"5ab7da97-b7aa-45ec-91dc-f1953d564c11"], -Cell[7579, 268, 222, 4, 58, "Output",ExpressionUUID->"288463c0-af4c-46e4-9e9a-a050711a7ceb"] +Cell[7256, 233, 557, 19, 100, "Input",ExpressionUUID->"5ab7da97-b7aa-45ec-91dc-f1953d564c11"], +Cell[7816, 254, 244, 4, 41, "Output",ExpressionUUID->"c7f5f4a7-a039-4294-bbb7-838c78e30cc3"] }, Open ]], Cell[CellGroupData[{ -Cell[7838, 277, 1592, 51, 190, "Input",ExpressionUUID->"67081942-2246-4cf3-a954-423246e0fde3"], -Cell[9433, 330, 220, 4, 58, "Output",ExpressionUUID->"7c9fb910-ac3c-493b-a787-da95d7f1de02"] +Cell[8097, 263, 1588, 50, 103, "Input",ExpressionUUID->"67081942-2246-4cf3-a954-423246e0fde3"], +Cell[9688, 315, 241, 4, 41, "Output",ExpressionUUID->"e9ac3a93-e71a-424a-b025-5bd03d4bbbd4"] }, Open ]], Cell[CellGroupData[{ -Cell[9690, 339, 1426, 47, 190, "Input",ExpressionUUID->"ac5da6a8-ff11-440c-bd29-59e5a7c3a7d4"], -Cell[11119, 388, 240, 5, 58, "Output",ExpressionUUID->"4278249a-28fd-4dea-bfe1-40afc061efb0"] +Cell[9966, 324, 1422, 46, 73, "Input",ExpressionUUID->"ac5da6a8-ff11-440c-bd29-59e5a7c3a7d4"], +Cell[11391, 372, 262, 5, 41, "Output",ExpressionUUID->"9e3d289b-46fc-43ac-90ce-4ebfd8dadebf"] }, Open ]], Cell[CellGroupData[{ -Cell[11396, 398, 1335, 45, 141, "Input",ExpressionUUID->"2822002c-dcda-42c6-8589-3afc9e02d990"], -Cell[12734, 445, 239, 5, 58, "Output",ExpressionUUID->"19acbecd-f218-4d5e-a673-5e364855eb81"] +Cell[11690, 382, 1422, 46, 73, "Input",ExpressionUUID->"2822002c-dcda-42c6-8589-3afc9e02d990"], +Cell[13115, 430, 261, 5, 41, "Output",ExpressionUUID->"315cc47e-3ab0-4695-b91f-cba64bf47a01"] }, Open ]], Cell[CellGroupData[{ -Cell[13010, 455, 1592, 51, 190, "Input",ExpressionUUID->"967fa8d1-b61b-461f-8a2a-4a1f700753ee"], -Cell[14605, 508, 218, 4, 58, "Output",ExpressionUUID->"cc093211-846f-4a1b-b175-c1fa85be212a"] +Cell[13413, 440, 1588, 50, 103, "Input",ExpressionUUID->"967fa8d1-b61b-461f-8a2a-4a1f700753ee"], +Cell[15004, 492, 240, 4, 41, "Output",ExpressionUUID->"b3d8cbc0-bff8-4a66-b3fc-4013ba88bd0f"] }, Open ]], Cell[CellGroupData[{ -Cell[14860, 517, 135, 3, 51, "Input",ExpressionUUID->"65107622-afe8-45c6-b172-0e7c4d49ad65"], -Cell[14998, 522, 206, 4, 58, "Output",ExpressionUUID->"adfaf786-0c23-46ca-8878-3fc99bbf12f4"] +Cell[15281, 501, 131, 2, 36, "Input",ExpressionUUID->"65107622-afe8-45c6-b172-0e7c4d49ad65"], +Cell[15415, 505, 228, 4, 41, "Output",ExpressionUUID->"64f467dd-c3ad-4f89-872f-8ec630bd298f"] }, Open ]], Cell[CellGroupData[{ -Cell[15241, 531, 137, 3, 51, "Input",ExpressionUUID->"5c49f85b-d5cf-4e2e-8b22-0685586394ae"], -Cell[15381, 536, 205, 4, 58, "Output",ExpressionUUID->"8deacd12-0357-415a-adad-699e85aedc35"] +Cell[15680, 514, 133, 2, 36, "Input",ExpressionUUID->"5c49f85b-d5cf-4e2e-8b22-0685586394ae"], +Cell[15816, 518, 227, 4, 41, "Output",ExpressionUUID->"f064f669-73e7-4da7-a5ae-3efb72f928f3"] }, Open ]], Cell[CellGroupData[{ -Cell[15623, 545, 138, 3, 51, "Input",ExpressionUUID->"2b47516a-2f11-4580-bb32-5f52aaf28daf"], -Cell[15764, 550, 206, 4, 58, "Output",ExpressionUUID->"e4d146ce-c48a-44de-816d-1c7dec07bac2"] +Cell[16080, 527, 134, 2, 36, "Input",ExpressionUUID->"2b47516a-2f11-4580-bb32-5f52aaf28daf"], +Cell[16217, 531, 228, 4, 41, "Output",ExpressionUUID->"6af40e46-790a-4721-976f-97a2e8312a94"] }, Open ]], Cell[CellGroupData[{ -Cell[16007, 559, 223, 5, 51, "Input",ExpressionUUID->"5877abe8-d663-4922-925b-e0c6bdd91625"], -Cell[16233, 566, 221, 5, 58, "Output",ExpressionUUID->"de438067-0530-4c64-a916-b83b6ef6100e"] +Cell[16482, 540, 219, 4, 36, "Input",ExpressionUUID->"5877abe8-d663-4922-925b-e0c6bdd91625"], +Cell[16704, 546, 243, 5, 41, "Output",ExpressionUUID->"34f2a0d8-9c97-4aaf-ab75-9691e1a9fa8a"] }, Open ]], Cell[CellGroupData[{ -Cell[16491, 576, 138, 3, 51, "Input",ExpressionUUID->"3aa4d10c-2dfd-430e-b550-11b46b0477c3"], -Cell[16632, 581, 210, 4, 58, "Output",ExpressionUUID->"22fa14b3-41b3-400a-9bfd-f5623044eca5"] +Cell[16984, 556, 134, 2, 36, "Input",ExpressionUUID->"3aa4d10c-2dfd-430e-b550-11b46b0477c3"], +Cell[17121, 560, 234, 4, 41, "Output",ExpressionUUID->"551876dc-afe8-4766-aa41-bdef764bc428"] }, Open ]], Cell[CellGroupData[{ -Cell[16879, 590, 330, 6, 51, "Input",ExpressionUUID->"e7216b43-b306-4d81-963b-38a3393544f9"], -Cell[17212, 598, 205, 4, 58, "Output",ExpressionUUID->"a9ec36ee-806e-4330-9ccd-bae62826f734"] +Cell[17392, 569, 326, 5, 36, "Input",ExpressionUUID->"e7216b43-b306-4d81-963b-38a3393544f9"], +Cell[17721, 576, 227, 4, 41, "Output",ExpressionUUID->"33446b59-6406-4a55-9bd6-1b2a973077d3"] }, Open ]], Cell[CellGroupData[{ -Cell[17454, 607, 301, 6, 51, "Input",ExpressionUUID->"ddadd5a9-a1b0-4a74-bd9d-5b52410c5566"], -Cell[17758, 615, 205, 4, 58, "Output",ExpressionUUID->"19102fbd-8883-4973-ae9d-bd88bf65ec4c"] +Cell[17985, 585, 297, 5, 36, "Input",ExpressionUUID->"ddadd5a9-a1b0-4a74-bd9d-5b52410c5566"], +Cell[18285, 592, 229, 4, 41, "Output",ExpressionUUID->"43b9fa67-a86c-4983-bfbd-fde6b65999d9"] }, Open ]], Cell[CellGroupData[{ -Cell[18000, 624, 223, 5, 51, "Input",ExpressionUUID->"ef729b71-0db6-4e5a-9ba6-569c9378ee5b"], -Cell[18226, 631, 203, 4, 58, "Output",ExpressionUUID->"1d23d63e-55bc-4f99-9a9f-339b401304cc"] +Cell[18551, 601, 219, 4, 36, "Input",ExpressionUUID->"ef729b71-0db6-4e5a-9ba6-569c9378ee5b"], +Cell[18773, 607, 227, 4, 41, "Output",ExpressionUUID->"77fc7e34-1571-4652-a299-0dd3d88c995a"] }, Open ]], Cell[CellGroupData[{ -Cell[18466, 640, 354, 11, 74, "Input",ExpressionUUID->"bf5fef2f-39eb-4128-8c53-56f91d769aff"], -Cell[18823, 653, 223, 4, 58, "Output",ExpressionUUID->"cf379a31-935f-452f-87af-498f6d02d89b"] +Cell[19037, 616, 350, 10, 54, "Input",ExpressionUUID->"bf5fef2f-39eb-4128-8c53-56f91d769aff"], +Cell[19390, 628, 245, 4, 41, "Output",ExpressionUUID->"124c2490-d737-402a-9a5d-37a953fefc2f"] }, Open ]], Cell[CellGroupData[{ -Cell[19083, 662, 354, 11, 74, "Input",ExpressionUUID->"337c6000-eab8-41a7-959a-18959e16d72c"], -Cell[19440, 675, 238, 5, 58, "Output",ExpressionUUID->"a1304c3a-6c43-4bde-9f95-89331d639ea8"] +Cell[19672, 637, 350, 10, 54, "Input",ExpressionUUID->"337c6000-eab8-41a7-959a-18959e16d72c"], +Cell[20025, 649, 262, 5, 41, "Output",ExpressionUUID->"56ccd0d6-1dd9-4558-9f2d-e65091e60a39"] }, Open ]], Cell[CellGroupData[{ -Cell[19715, 685, 998, 27, 142, "Input",ExpressionUUID->"96af02e7-d9eb-44ea-87d7-e937821ddb9a"], -Cell[20716, 714, 223, 4, 58, "Output",ExpressionUUID->"5b13add6-f111-4ab3-ba77-605ba02abf41"] +Cell[20324, 659, 994, 26, 105, "Input",ExpressionUUID->"96af02e7-d9eb-44ea-87d7-e937821ddb9a"], +Cell[21321, 687, 245, 4, 41, "Output",ExpressionUUID->"28cfa655-652c-403c-9884-075d0115ee21"] }, Open ]], Cell[CellGroupData[{ -Cell[20976, 723, 203, 4, 51, "Input",ExpressionUUID->"1d1c7c2d-e048-4cb5-ac44-94fe39bbc733"], -Cell[21182, 729, 204, 4, 58, "Output",ExpressionUUID->"3a81e8db-0d7f-4448-94b9-b872c0a6541a"] +Cell[21603, 696, 199, 3, 36, "Input",ExpressionUUID->"1d1c7c2d-e048-4cb5-ac44-94fe39bbc733"], +Cell[21805, 701, 226, 4, 41, "Output",ExpressionUUID->"32d3f37b-230b-497d-b91a-94dc19878786"] }, Open ]], Cell[CellGroupData[{ -Cell[21423, 738, 303, 6, 51, "Input",ExpressionUUID->"c834cebe-bb4f-4f37-bd8f-348f1622bf9e"], -Cell[21729, 746, 176, 3, 58, "Output",ExpressionUUID->"5bfafe20-e096-4ba6-9d0a-8940c1a68df5"] +Cell[22068, 710, 299, 5, 36, "Input",ExpressionUUID->"c834cebe-bb4f-4f37-bd8f-348f1622bf9e"], +Cell[22370, 717, 200, 3, 41, "Output",ExpressionUUID->"df9181c9-fff5-42b0-b995-81bb0bc9108e"] }, Open ]], -Cell[21920, 752, 177, 3, 51, "Input",ExpressionUUID->"2766c3a7-b794-4d5d-9fbd-ae6b52f5e5a7"], +Cell[22585, 723, 173, 2, 36, "Input",ExpressionUUID->"2766c3a7-b794-4d5d-9fbd-ae6b52f5e5a7"], Cell[CellGroupData[{ -Cell[22122, 759, 331, 6, 51, "Input",ExpressionUUID->"ebb63679-94ec-4fc4-93ac-6da663d01406"], -Cell[22456, 767, 184, 3, 58, "Output",ExpressionUUID->"68aa2554-7239-499b-98b6-1ec530df400c"] +Cell[22783, 729, 327, 5, 36, "Input",ExpressionUUID->"ebb63679-94ec-4fc4-93ac-6da663d01406"], +Cell[23113, 736, 208, 3, 41, "Output",ExpressionUUID->"eadcbf20-b5ef-430d-acd2-288910a5298d"] }, Open ]], -Cell[22655, 773, 177, 3, 51, "Input",ExpressionUUID->"9b8e2465-1314-4817-89d3-051295558029"], +Cell[23336, 742, 173, 2, 36, "Input",ExpressionUUID->"9b8e2465-1314-4817-89d3-051295558029"], Cell[CellGroupData[{ -Cell[22857, 780, 333, 6, 51, "Input",ExpressionUUID->"a9bbdb13-1ee9-4d27-9b37-8258a7701c48"], -Cell[23193, 788, 183, 3, 58, "Output",ExpressionUUID->"fd63263d-7cbb-4fcd-acc8-639f61085dfc"] +Cell[23534, 748, 329, 5, 36, "Input",ExpressionUUID->"a9bbdb13-1ee9-4d27-9b37-8258a7701c48"], +Cell[23866, 755, 205, 3, 41, "Output",ExpressionUUID->"b15f8180-ea5b-476a-90cb-eee39fae39fc"] }, Open ]], -Cell[23391, 794, 177, 3, 51, "Input",ExpressionUUID->"ac1b4731-9eda-4b15-a0ad-7809214b2201"], +Cell[24086, 761, 173, 2, 36, "Input",ExpressionUUID->"ac1b4731-9eda-4b15-a0ad-7809214b2201"], Cell[CellGroupData[{ -Cell[23593, 801, 358, 6, 51, "Input",ExpressionUUID->"afcc2917-cae8-49bf-ba53-04ac2065eca0"], -Cell[23954, 809, 182, 3, 58, "Output",ExpressionUUID->"b05e9594-9354-49d2-a4a9-cc7b7412f6e0"] +Cell[24284, 767, 354, 5, 36, "Input",ExpressionUUID->"afcc2917-cae8-49bf-ba53-04ac2065eca0"], +Cell[24641, 774, 206, 3, 41, "Output",ExpressionUUID->"e6bc5620-5c6a-4cc8-acbc-989ed49da800"] }, Open ]], -Cell[24151, 815, 175, 3, 51, "Input",ExpressionUUID->"79b7e148-d680-469c-ae7a-38ca25f382e1"], +Cell[24862, 780, 171, 2, 36, "Input",ExpressionUUID->"79b7e148-d680-469c-ae7a-38ca25f382e1"], Cell[CellGroupData[{ -Cell[24351, 822, 305, 6, 51, "Input",ExpressionUUID->"8454375f-9321-4e02-afe6-27edd3c1643c"], -Cell[24659, 830, 182, 3, 58, "Output",ExpressionUUID->"166bffd2-d625-4756-a342-c1a78eebfc8e"] +Cell[25058, 786, 301, 5, 36, "Input",ExpressionUUID->"8454375f-9321-4e02-afe6-27edd3c1643c"], +Cell[25362, 793, 204, 3, 41, "Output",ExpressionUUID->"4449d343-34e3-40c5-a6e0-4c340a8e69f3"] }, Open ]], -Cell[24856, 836, 175, 3, 51, "Input",ExpressionUUID->"5a33270e-34f4-4323-82d0-70dc555e6edf"], +Cell[25581, 799, 171, 2, 36, "Input",ExpressionUUID->"5a33270e-34f4-4323-82d0-70dc555e6edf"], Cell[CellGroupData[{ -Cell[25056, 843, 307, 6, 51, "Input",ExpressionUUID->"3e6df14a-e8f4-45a3-8e48-55ebe5486ed6"], -Cell[25366, 851, 184, 3, 58, "Output",ExpressionUUID->"d5219011-69ee-416e-b5c7-d87abc8266a5"] +Cell[25777, 805, 303, 5, 36, "Input",ExpressionUUID->"3e6df14a-e8f4-45a3-8e48-55ebe5486ed6"], +Cell[26083, 812, 206, 3, 41, "Output",ExpressionUUID->"b48e5403-8de6-46dd-a126-7765ed02662b"] }, Open ]], -Cell[25565, 857, 177, 3, 51, "Input",ExpressionUUID->"d7b01fc2-ded5-46f0-9860-7588154b7c15"], +Cell[26304, 818, 173, 2, 36, "Input",ExpressionUUID->"d7b01fc2-ded5-46f0-9860-7588154b7c15"], Cell[CellGroupData[{ -Cell[25767, 864, 311, 6, 51, "Input",ExpressionUUID->"9b5e3193-878f-4049-ac26-33832ff9a585"], -Cell[26081, 872, 183, 3, 58, "Output",ExpressionUUID->"8a5f7408-1d7c-4617-bbd6-7c9bfde7795e"] +Cell[26502, 824, 307, 5, 36, "Input",ExpressionUUID->"9b5e3193-878f-4049-ac26-33832ff9a585"], +Cell[26812, 831, 205, 3, 41, "Output",ExpressionUUID->"85d9717c-8a7a-413a-b633-6f559baafa36"] }, Open ]], -Cell[26279, 878, 176, 3, 51, "Input",ExpressionUUID->"082437f0-3b56-4f04-9c0e-2fc4cea15500"], +Cell[27032, 837, 172, 2, 36, "Input",ExpressionUUID->"082437f0-3b56-4f04-9c0e-2fc4cea15500"], Cell[CellGroupData[{ -Cell[26480, 885, 279, 5, 51, "Input",ExpressionUUID->"a95b9065-e407-4052-9cd0-914d577eba07"], -Cell[26762, 892, 182, 3, 58, "Output",ExpressionUUID->"faa7c284-9b5d-4626-9a13-cfe3667474d6"] +Cell[27229, 843, 275, 4, 36, "Input",ExpressionUUID->"a95b9065-e407-4052-9cd0-914d577eba07"], +Cell[27507, 849, 204, 3, 41, "Output",ExpressionUUID->"dac8c380-ae10-4861-8705-35ad49d2ce9c"] }, Open ]], -Cell[26959, 898, 179, 3, 51, "Input",ExpressionUUID->"e0787538-609d-41e9-abf7-bd1b23d1e76d"], +Cell[27726, 855, 175, 2, 36, "Input",ExpressionUUID->"e0787538-609d-41e9-abf7-bd1b23d1e76d"], Cell[CellGroupData[{ -Cell[27163, 905, 19813, 486, 2581, "Input",ExpressionUUID->"7b31be1a-6d11-4236-8210-77a82c551374"], -Cell[46979, 1393, 221, 4, 58, "Output",ExpressionUUID->"e542e4ff-b489-4b0e-8d15-009bafabe86d"] +Cell[27926, 861, 19809, 485, 1708, "Input",ExpressionUUID->"7b31be1a-6d11-4236-8210-77a82c551374"], +Cell[47738, 1348, 242, 4, 41, "Output",ExpressionUUID->"34dbdf41-b4e8-4a03-a51e-fffc5ff37e36"] }, Open ]], Cell[CellGroupData[{ -Cell[47237, 1402, 19752, 490, 2539, "Input",ExpressionUUID->"c2f45571-4655-4449-ab0f-26dc469de44c"], -Cell[66992, 1894, 221, 4, 58, "Output",ExpressionUUID->"e24438fd-dd0c-48c3-aec6-96e409dc29a6"] +Cell[48017, 1357, 19748, 489, 1720, "Input",ExpressionUUID->"c2f45571-4655-4449-ab0f-26dc469de44c"], +Cell[67768, 1848, 243, 4, 41, "Output",ExpressionUUID->"5caca46d-5adb-4001-bd66-c8a2194fb5a4"] }, Open ]], Cell[CellGroupData[{ -Cell[67250, 1903, 19752, 484, 2561, "Input",ExpressionUUID->"51551723-3d3b-47d7-bba0-130e06e2d503"], -Cell[87005, 2389, 235, 5, 109, "Output",ExpressionUUID->"a9b47d28-e121-49bf-a4f2-3b64ec242508"] +Cell[68048, 1857, 19748, 483, 1720, "Input",ExpressionUUID->"51551723-3d3b-47d7-bba0-130e06e2d503"], +Cell[87799, 2342, 257, 5, 41, "Output",ExpressionUUID->"ca67b050-2bc3-45c5-ba26-dd03b1d876a9"] }, Open ]], Cell[CellGroupData[{ -Cell[87277, 2399, 28300, 713, 109, "Input",ExpressionUUID->"baed3f29-6f22-4591-a1fe-c43e962c69fa"], -Cell[115580, 3114, 235, 5, 58, "Output",ExpressionUUID->"f82d7828-77aa-4bf4-9545-b52d924f9643"] +Cell[88093, 2352, 28296, 712, 1307, "Input",ExpressionUUID->"baed3f29-6f22-4591-a1fe-c43e962c69fa"], +Cell[116392, 3066, 257, 5, 41, "Output",ExpressionUUID->"89eef4fe-a6c8-4f4e-82f3-aa942a40bd84"] }, Open ]], Cell[CellGroupData[{ -Cell[115852, 3124, 22539, 554, 2883, "Input",ExpressionUUID->"63424b29-1f79-4f5b-8071-a4fa52e7cebf"], -Cell[138394, 3680, 238, 5, 58, "Output",ExpressionUUID->"249c682d-bd46-4e01-abb1-9e4b1ca32433"] +Cell[116686, 3076, 22535, 553, 1885, "Input",ExpressionUUID->"63424b29-1f79-4f5b-8071-a4fa52e7cebf"], +Cell[139224, 3631, 259, 5, 41, "Output",ExpressionUUID->"3cf63961-8a03-48eb-8fda-fd988e5675f5"] }, Open ]], Cell[CellGroupData[{ -Cell[138669, 3690, 25495, 627, 3226, "Input",ExpressionUUID->"0abc3443-85a9-4675-9343-433b236f2c0e"], -Cell[164167, 4319, 239, 5, 58, "Output",ExpressionUUID->"accab13d-983b-47bc-9b39-ca20cb75496c"] +Cell[139520, 3641, 25491, 626, 2078, "Input",ExpressionUUID->"0abc3443-85a9-4675-9343-433b236f2c0e"], +Cell[165014, 4269, 261, 5, 41, "Output",ExpressionUUID->"fb412542-6a82-46d6-8bbb-d22daf738e10"] }, Open ]], Cell[CellGroupData[{ -Cell[164443, 4329, 134, 3, 51, "Input",ExpressionUUID->"f0e57101-b62d-4b65-b012-d842e7097718"], -Cell[164580, 4334, 204, 4, 58, "Output",ExpressionUUID->"997a0042-33bc-435b-9020-40f3659a8a7a"] +Cell[165312, 4279, 130, 2, 36, "Input",ExpressionUUID->"f0e57101-b62d-4b65-b012-d842e7097718"], +Cell[165445, 4283, 225, 4, 41, "Output",ExpressionUUID->"bbebaefe-504a-418f-882f-c185ca448b27"] }, Open ]], Cell[CellGroupData[{ -Cell[164821, 4343, 134, 3, 51, "Input",ExpressionUUID->"98df0087-091d-45d7-b644-411824bb7934"], -Cell[164958, 4348, 204, 4, 58, "Output",ExpressionUUID->"a7dbb396-ddfb-48f0-beb2-c6c26d93723b"] +Cell[165707, 4292, 130, 2, 36, "Input",ExpressionUUID->"98df0087-091d-45d7-b644-411824bb7934"], +Cell[165840, 4296, 228, 4, 41, "Output",ExpressionUUID->"bcf43639-845d-41f9-af28-b7ccb0e7be08"] }, Open ]], Cell[CellGroupData[{ -Cell[165199, 4357, 1148, 40, 190, "Input",ExpressionUUID->"491e8f78-a665-418a-b0c1-46cabcc8453b"], -Cell[166350, 4399, 218, 4, 58, "Output",ExpressionUUID->"c17d75af-0687-4d26-9d03-3de11056e458"] +Cell[166105, 4305, 1144, 39, 73, "Input",ExpressionUUID->"491e8f78-a665-418a-b0c1-46cabcc8453b"], +Cell[167252, 4346, 242, 4, 41, "Output",ExpressionUUID->"722e2694-3dde-4ef8-9f85-308a99328767"] }, Open ]], Cell[CellGroupData[{ -Cell[166605, 4408, 1045, 36, 257, "Input",ExpressionUUID->"0b8cd8a1-aeef-45df-a380-02d1616e4779"], -Cell[167653, 4446, 238, 5, 58, "Output",ExpressionUUID->"72ceb4a8-eeeb-44c7-9edb-2c85f5f68f3d"] +Cell[167531, 4355, 1041, 35, 73, "Input",ExpressionUUID->"0b8cd8a1-aeef-45df-a380-02d1616e4779"], +Cell[168575, 4392, 260, 5, 41, "Output",ExpressionUUID->"46fd1fa5-746f-4e7b-bd4c-d347b92ad548"] }, Open ]], Cell[CellGroupData[{ -Cell[167928, 4456, 1148, 40, 190, "Input",ExpressionUUID->"f3d07f3e-212c-47f3-96a4-93c2020e5f81"], -Cell[169079, 4498, 222, 4, 58, "Output",ExpressionUUID->"ab284176-d55e-4cb5-abe2-545b366b7a16"] +Cell[168872, 4402, 1144, 39, 73, "Input",ExpressionUUID->"f3d07f3e-212c-47f3-96a4-93c2020e5f81"], +Cell[170019, 4443, 244, 4, 41, "Output",ExpressionUUID->"956c3281-dc64-4ffb-a0ed-6eb4c76fbb78"] }, Open ]], Cell[CellGroupData[{ -Cell[169338, 4507, 112, 2, 51, "Input",ExpressionUUID->"534b7683-ea0b-4b69-852f-1588370b749b"], -Cell[169453, 4511, 224, 4, 58, "Output",ExpressionUUID->"f6d9cefb-2e7a-40d4-98cd-1429ab789aa1"] +Cell[170300, 4452, 108, 1, 36, "Input",ExpressionUUID->"534b7683-ea0b-4b69-852f-1588370b749b"], +Cell[170411, 4455, 246, 4, 41, "Output",ExpressionUUID->"eb558908-f165-4475-90b0-9ab82f29332e"] }, Open ]], Cell[CellGroupData[{ -Cell[169714, 4520, 112, 2, 51, "Input",ExpressionUUID->"2d46740e-c68a-425a-943c-b9d93b0e8239"], -Cell[169829, 4524, 241, 5, 58, "Output",ExpressionUUID->"18255060-36da-4599-8b0a-3e437a0dace8"] +Cell[170694, 4464, 108, 1, 36, "Input",ExpressionUUID->"2d46740e-c68a-425a-943c-b9d93b0e8239"], +Cell[170805, 4467, 263, 5, 41, "Output",ExpressionUUID->"9db38f6a-793f-4530-85d0-8b40a61595c3"] }, Open ]], Cell[CellGroupData[{ -Cell[170107, 4534, 112, 2, 51, "Input",ExpressionUUID->"501d88a7-dfc9-437f-9b8a-547de52dc8a0"], -Cell[170222, 4538, 239, 5, 58, "Output",ExpressionUUID->"39327496-f811-4b0f-bb0c-fe382d0cb2a9"] +Cell[171105, 4477, 108, 1, 36, "Input",ExpressionUUID->"501d88a7-dfc9-437f-9b8a-547de52dc8a0"], +Cell[171216, 4480, 261, 5, 41, "Output",ExpressionUUID->"a14e600f-b3d7-4aae-9393-2a005935999d"] }, Open ]], Cell[CellGroupData[{ -Cell[170498, 4548, 112, 2, 51, "Input",ExpressionUUID->"de1cfc69-7ad2-4a7f-bbbb-4748f1a97881"], -Cell[170613, 4552, 219, 4, 58, "Output",ExpressionUUID->"1081d35f-af9b-4d5b-aa92-7ef7dbfa8979"] +Cell[171514, 4490, 108, 1, 36, "Input",ExpressionUUID->"de1cfc69-7ad2-4a7f-bbbb-4748f1a97881"], +Cell[171625, 4493, 241, 4, 41, "Output",ExpressionUUID->"823edf12-a298-465b-8bcb-c6c5fa264a63"] }, Open ]], Cell[CellGroupData[{ -Cell[170869, 4561, 111, 2, 51, "Input",ExpressionUUID->"0e060f43-946a-41fb-85a0-7afd021b4e5f"], -Cell[170983, 4565, 221, 4, 58, "Output",ExpressionUUID->"0d3eac85-0fed-4780-b9a3-f2b875da5370"] +Cell[171903, 4502, 107, 1, 36, "Input",ExpressionUUID->"0e060f43-946a-41fb-85a0-7afd021b4e5f"], +Cell[172013, 4505, 243, 4, 41, "Output",ExpressionUUID->"7274fd5c-3b62-4919-af5f-74c55910a505"] }, Open ]], Cell[CellGroupData[{ -Cell[171241, 4574, 111, 2, 51, "Input",ExpressionUUID->"acb49a6d-0ba0-4610-885a-fcfcdea1a736"], -Cell[171355, 4578, 222, 4, 58, "Output",ExpressionUUID->"c9aa39ef-8135-425d-9d5a-926aaee6ab8c"] +Cell[172293, 4514, 107, 1, 36, "Input",ExpressionUUID->"acb49a6d-0ba0-4610-885a-fcfcdea1a736"], +Cell[172403, 4517, 244, 4, 41, "Output",ExpressionUUID->"c64d0bc4-630b-426f-b5b1-0ecab346d91b"] }, Open ]], Cell[CellGroupData[{ -Cell[171614, 4587, 501, 17, 97, "Input",ExpressionUUID->"3f4bc025-fd64-4536-9b0f-7f85202adc92"], -Cell[172118, 4606, 242, 5, 58, "Output",ExpressionUUID->"edb4a415-2e98-48eb-a1c2-7688fefa9102"] +Cell[172684, 4526, 497, 16, 71, "Input",ExpressionUUID->"3f4bc025-fd64-4536-9b0f-7f85202adc92"], +Cell[173184, 4544, 264, 5, 41, "Output",ExpressionUUID->"aba0ea26-8ae1-4327-94b0-07508208b5a3"] }, Open ]], Cell[CellGroupData[{ -Cell[172397, 4616, 501, 17, 97, "Input",ExpressionUUID->"2bedbda1-90c6-4297-a7a7-862198349712"], -Cell[172901, 4635, 234, 5, 58, "Output",ExpressionUUID->"360176d4-36e9-49a0-aa8b-e339b4979ec3"] +Cell[173485, 4554, 497, 16, 71, "Input",ExpressionUUID->"2bedbda1-90c6-4297-a7a7-862198349712"], +Cell[173985, 4572, 256, 5, 41, "Output",ExpressionUUID->"f1e4967c-ca34-496f-9727-52c4e5745f48"] }, Open ]], Cell[CellGroupData[{ -Cell[173172, 4645, 1792, 61, 324, "Input",ExpressionUUID->"b8c489e7-4e72-4a7e-97ad-648529130b83"], -Cell[174967, 4708, 224, 4, 58, "Output",ExpressionUUID->"3dc24e9d-b851-4c1d-be7b-1e37971b12b5"] +Cell[174278, 4582, 1788, 60, 340, "Input",ExpressionUUID->"b8c489e7-4e72-4a7e-97ad-648529130b83"], +Cell[176069, 4644, 246, 4, 41, "Output",ExpressionUUID->"45ba6452-d84c-450e-b4d2-149ac6de7f7c"] }, Open ]], Cell[CellGroupData[{ -Cell[175228, 4717, 1105, 37, 231, "Input",ExpressionUUID->"006f7343-b9bc-43a2-9839-f2e6286ceea0"], -Cell[176336, 4756, 239, 5, 58, "Output",ExpressionUUID->"a6760e9f-c59d-4795-9acd-c8f2dcd1ecba"] +Cell[176352, 4653, 1101, 36, 73, "Input",ExpressionUUID->"006f7343-b9bc-43a2-9839-f2e6286ceea0"], +Cell[177456, 4691, 263, 5, 41, "Output",ExpressionUUID->"4017b007-fe1a-4401-b36c-71283cffa2c6"] }, Open ]], Cell[CellGroupData[{ -Cell[176612, 4766, 1822, 62, 283, "Input",ExpressionUUID->"eb5d7cbf-54a8-4b33-bc7a-f338cc61d020"], -Cell[178437, 4830, 221, 4, 58, "Output",ExpressionUUID->"f45c3fba-c80d-450a-8cb5-82f9ab9cbf1f"] +Cell[177756, 4701, 1818, 61, 144, "Input",ExpressionUUID->"eb5d7cbf-54a8-4b33-bc7a-f338cc61d020"], +Cell[179577, 4764, 243, 4, 41, "Output",ExpressionUUID->"65509182-6c9b-4b31-84e9-fd16b5244dd2"] }, Open ]], Cell[CellGroupData[{ -Cell[178695, 4839, 1635, 54, 141, "Input",ExpressionUUID->"09925dcf-c3a5-46c1-9871-fd3f2475a6e6"], -Cell[180333, 4895, 223, 4, 58, "Output",ExpressionUUID->"5a7bd319-3af6-47cd-b5ef-7e48a8972595"] +Cell[179857, 4773, 1631, 53, 101, "Input",ExpressionUUID->"09925dcf-c3a5-46c1-9871-fd3f2475a6e6"], +Cell[181491, 4828, 245, 4, 41, "Output",ExpressionUUID->"f461cb82-f63d-45ad-bf1c-4300a3b74b65"] }, Open ]], Cell[CellGroupData[{ -Cell[180593, 4904, 1635, 54, 208, "Input",ExpressionUUID->"e7697b38-341e-4909-ad80-aece3d833884"], -Cell[182231, 4960, 221, 4, 41, "Output",ExpressionUUID->"1028d637-65d2-45d5-bd63-9d36d49e1763"] +Cell[181773, 4837, 1631, 53, 101, "Input",ExpressionUUID->"e7697b38-341e-4909-ad80-aece3d833884"], +Cell[183407, 4892, 242, 4, 41, "Output",ExpressionUUID->"4354b80b-8366-4cad-91df-6eed99ca9b9c"] }, Open ]], -Cell[182467, 4967, 187, 4, 36, "Input",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], -Cell[182657, 4973, 152, 3, 36, "Input",ExpressionUUID->"7730e455-e5f4-194b-b761-e7a6896afd10"], -Cell[182812, 4978, 187, 4, 36, "Input",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], -Cell[183002, 4984, 154, 3, 36, "Input",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], Cell[CellGroupData[{ -Cell[183181, 4991, 1273, 41, 174, "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], -Cell[184457, 5034, 106, 0, 41, "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] +Cell[183686, 4901, 206, 3, 36, "Input",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], +Cell[183895, 4906, 161, 2, 41, "Output",ExpressionUUID->"d77966da-3a65-4033-9968-3468e369bd0b"] }, Open ]], +Cell[184071, 4911, 171, 2, 36, "Input",ExpressionUUID->"7730e455-e5f4-194b-b761-e7a6896afd10"], Cell[CellGroupData[{ -Cell[184600, 5039, 910, 31, 128, "Input",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], -Cell[185513, 5072, 106, 0, 41, "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] +Cell[184267, 4917, 206, 3, 36, "Input",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], +Cell[184476, 4922, 163, 2, 41, "Output",ExpressionUUID->"4107058d-bef3-4168-bbc9-b7c59d1915a5"] }, Open ]], +Cell[184654, 4927, 173, 2, 36, "Input",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], Cell[CellGroupData[{ -Cell[185656, 5077, 885, 30, 128, "Input",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], -Cell[186544, 5109, 106, 0, 41, "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] +Cell[184852, 4933, 1297, 42, 174, "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], +Cell[186152, 4977, 172, 2, 41, "Output",ExpressionUUID->"b8906cb4-9e16-4d85-9334-a6b0e13a2d38"] }, Open ]], Cell[CellGroupData[{ -Cell[186687, 5114, 532, 18, 66, "Input",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], -Cell[187222, 5134, 101, 0, 41, "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] +Cell[186361, 4984, 929, 30, 128, "Input",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], +Cell[187293, 5016, 173, 2, 41, "Output",ExpressionUUID->"b5512f64-3dcb-4dec-ac38-94fed322e9a9"] }, Open ]], Cell[CellGroupData[{ -Cell[187360, 5139, 625, 21, 66, "Input",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], -Cell[187988, 5162, 100, 0, 41, "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] +Cell[187503, 5023, 904, 29, 128, "Input",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], +Cell[188410, 5054, 171, 2, 41, "Output",ExpressionUUID->"8d366dd9-bc0a-43ae-978b-85c9c92198b8"] }, Open ]], Cell[CellGroupData[{ -Cell[188125, 5167, 144, 4, 71, "Input",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], -Cell[188272, 5173, 101, 0, 41, "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +Cell[188618, 5061, 554, 18, 66, "Input",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], +Cell[189175, 5081, 168, 2, 41, "Output",ExpressionUUID->"b3d1d7c6-bea2-44b3-b733-7793a211875c"] }, Open ]], Cell[CellGroupData[{ -Cell[188410, 5178, 144, 4, 69, "Input",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], -Cell[188557, 5184, 100, 0, 41, "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +Cell[189380, 5088, 647, 21, 66, "Input",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], +Cell[190030, 5111, 166, 2, 41, "Output",ExpressionUUID->"09708093-535d-4daf-9002-a79b10f09e46"] }, Open ]], Cell[CellGroupData[{ -Cell[188694, 5189, 155, 4, 55, "Input",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], -Cell[188852, 5195, 101, 0, 41, "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +Cell[190233, 5118, 166, 4, 71, "Input",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], +Cell[190402, 5124, 166, 2, 41, "Output",ExpressionUUID->"cb25e36b-4762-4cbf-bcbd-e7ef69ae4863"] }, Open ]], Cell[CellGroupData[{ -Cell[188990, 5200, 155, 4, 55, "Input",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], -Cell[189148, 5206, 101, 0, 41, "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +Cell[190605, 5131, 166, 4, 69, "Input",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], +Cell[190774, 5137, 168, 2, 41, "Output",ExpressionUUID->"ab675f4b-a8d2-42d2-a76a-7ff280c455c0"] }, Open ]], Cell[CellGroupData[{ -Cell[189286, 5211, 6029, 184, 831, "Input",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], -Cell[195318, 5397, 102, 0, 41, "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +Cell[190979, 5144, 177, 4, 55, "Input",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], +Cell[191159, 5150, 167, 2, 41, "Output",ExpressionUUID->"dd7c3c50-e3b6-4e16-83cb-c1eaa4bc4cb8"] }, Open ]], Cell[CellGroupData[{ -Cell[195457, 5402, 342, 8, 53, "Input",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], -Cell[195802, 5412, 342, 6, 26, "Message",ExpressionUUID->"b04cf5cc-6c74-f842-9fba-c737c46f5a7b"], -Cell[196147, 5420, 100, 0, 41, "Output",ExpressionUUID->"32922499-707a-964c-90f0-b2630d16ee29"] +Cell[191363, 5157, 177, 4, 55, "Input",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], +Cell[191543, 5163, 168, 2, 41, "Output",ExpressionUUID->"8198c771-f3f0-4ac9-bbbb-5731b4574a88"] }, Open ]], Cell[CellGroupData[{ -Cell[196284, 5425, 6096, 186, 900, "Input",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], -Cell[202383, 5613, 103, 0, 41, "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +Cell[191748, 5170, 6051, 184, 431, "Input",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], +Cell[197802, 5356, 169, 2, 41, "Output",ExpressionUUID->"f70fd178-87da-490c-8b19-1e5ff8209b19"] }, Open ]], Cell[CellGroupData[{ -Cell[202523, 5618, 342, 8, 53, "Input",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], -Cell[202868, 5628, 342, 6, 26, "Message",ExpressionUUID->"6f900e99-9e38-fb4c-84fd-e99588ed1cc5"], -Cell[203213, 5636, 100, 0, 41, "Output",ExpressionUUID->"e5a93687-7c76-eb48-a79a-098cbe08792a"] +Cell[198008, 5363, 364, 8, 53, "Input",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], +Cell[198375, 5373, 167, 2, 41, "Output",ExpressionUUID->"b89a7cff-bfeb-47b3-b10b-fda13a3bfcdf"] }, Open ]], Cell[CellGroupData[{ -Cell[203350, 5641, 2637, 87, 435, "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], -Cell[205990, 5730, 101, 0, 41, "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +Cell[198579, 5380, 6118, 186, 431, "Input",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], +Cell[204700, 5568, 170, 2, 41, "Output",ExpressionUUID->"9be71d96-961b-49cb-af6c-799b1f021792"] }, Open ]], Cell[CellGroupData[{ -Cell[206128, 5735, 2577, 84, 435, "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], -Cell[208708, 5821, 102, 0, 41, "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +Cell[204907, 5575, 364, 8, 53, "Input",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], +Cell[205274, 5585, 167, 2, 41, "Output",ExpressionUUID->"fab68721-4bdd-4d97-9ea5-d89d5d3f53f6"] }, Open ]], Cell[CellGroupData[{ -Cell[208847, 5826, 3686, 117, 575, "Input",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], -Cell[212536, 5945, 102, 0, 41, "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] +Cell[205478, 5592, 2659, 87, 215, "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], +Cell[208140, 5681, 169, 2, 41, "Output",ExpressionUUID->"d3600ea2-e32a-409f-8270-6614be4dcc37"] }, Open ]], -Cell[212653, 5948, 138, 3, 36, "Input",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], Cell[CellGroupData[{ -Cell[212816, 5955, 2054, 59, 276, "Input",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], -Cell[214873, 6016, 342, 6, 26, "Message",ExpressionUUID->"4105bae1-ec8c-fc46-bc8a-9d70c37ec32c"], -Cell[215218, 6024, 342, 6, 26, "Message",ExpressionUUID->"42c1a263-2456-664a-bb33-c5fe841cb412"], -Cell[215563, 6032, 100, 0, 41, "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +Cell[208346, 5688, 2599, 84, 215, "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], +Cell[210948, 5774, 167, 2, 41, "Output",ExpressionUUID->"997cf4bb-c0e5-4fcd-8221-0e9106a8ab83"] }, Open ]], Cell[CellGroupData[{ -Cell[215700, 6037, 2049, 58, 276, "Input",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], -Cell[217752, 6097, 342, 6, 26, "Message",ExpressionUUID->"be4d7bfb-c18e-564a-93ce-3f42607886e7"], -Cell[218097, 6105, 342, 6, 26, "Message",ExpressionUUID->"b768ca5f-6b93-1f43-97bf-08f74ea2facd"], -Cell[218442, 6113, 100, 0, 41, "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +Cell[211152, 5781, 3708, 117, 316, "Input",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], +Cell[214863, 5900, 171, 2, 41, "Output",ExpressionUUID->"50fd8df1-d618-4501-8c5c-882421b8f9a9"] }, Open ]], +Cell[215049, 5905, 160, 3, 36, "Input",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], Cell[CellGroupData[{ -Cell[218579, 6118, 1938, 53, 232, "Input",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], -Cell[220520, 6173, 342, 6, 26, "Message",ExpressionUUID->"d3cb6fbc-3803-0541-80d1-8cab47341c44"], -Cell[220865, 6181, 342, 6, 26, "Message",ExpressionUUID->"635ef23c-be29-f947-b49d-c0d2f59f2ba8"], -Cell[221210, 6189, 342, 6, 26, "Message",ExpressionUUID->"d8687e0f-2f42-0543-a749-78a1ff3c9572"], -Cell[221555, 6197, 407, 7, 48, "Message",ExpressionUUID->"b055d243-2255-1f40-80bd-55bc54524667"], -Cell[221965, 6206, 9852, 394, 232, 4231, 300, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], -Cell[231820, 6602, 191, 5, 41, "Output",ExpressionUUID->"e49c1b8d-fabe-b944-a6dd-c578eb57eb6a"] +Cell[215234, 5912, 2073, 58, 116, "Input",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], +Cell[217310, 5972, 633, 14, 53, "Message",ExpressionUUID->"d5e4b314-56f1-489d-be97-f2b092678a96"], +Cell[217946, 5988, 633, 14, 53, "Message",ExpressionUUID->"43af8188-ce8f-4df4-aa2c-a59e830bf5d3"], +Cell[218582, 6004, 634, 14, 53, "Message",ExpressionUUID->"c0a317a9-3210-475e-863b-cc66216bf78f"], +Cell[219219, 6020, 461, 11, 32, "Message",ExpressionUUID->"b903c5d1-e455-4744-abee-9b091a10f9e4"], +Cell[219683, 6033, 167, 2, 41, "Output",ExpressionUUID->"196f5764-e329-4bb1-bc5c-24c9126f43cb"] }, Open ]], Cell[CellGroupData[{ -Cell[232048, 6612, 2094, 60, 311, "Input",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], -Cell[234145, 6674, 342, 6, 26, "Message",ExpressionUUID->"9f5fa53c-8bea-a349-9c29-e4614f56cc98"], -Cell[234490, 6682, 342, 6, 26, "Message",ExpressionUUID->"a2ecd22c-b766-5347-9e03-9d459620be75"], -Cell[234835, 6690, 342, 6, 26, "Message",ExpressionUUID->"45a49c2b-98f0-ca4e-ab79-bb0334e26ffd"], -Cell[235180, 6698, 407, 7, 48, "Message",ExpressionUUID->"258782e2-0da4-1143-8b36-76da0d2ac6df"], -Cell[235590, 6707, 10253, 391, 232, 4113, 287, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"06204099-db57-8e4e-bcc4-fa1ae37c0063"], -Cell[245846, 7100, 191, 5, 41, "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-04dec8739bf5"] +Cell[219887, 6040, 2070, 58, 116, "Input",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], +Cell[221960, 6100, 633, 14, 53, "Message",ExpressionUUID->"94620193-301a-4f6c-92d6-7d75d87d2b53"], +Cell[222596, 6116, 633, 14, 53, "Message",ExpressionUUID->"31ec0a61-4436-434a-b740-ed66b80715b5"], +Cell[223232, 6132, 634, 14, 53, "Message",ExpressionUUID->"dc4bbddf-06f2-4528-9881-3c191b94955b"], +Cell[223869, 6148, 463, 11, 32, "Message",ExpressionUUID->"a493dcff-d756-458e-ae30-eb67cb853b6f"], +Cell[224335, 6161, 168, 2, 41, "Output",ExpressionUUID->"d2d2192f-bbc2-421f-8af2-7ac239d3d6df"] }, Open ]], -Cell[246052, 7108, 2452, 69, 296, "Input",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], -Cell[248507, 7179, 209, 5, 36, "Input",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], Cell[CellGroupData[{ -Cell[248741, 7188, 215, 7, 61, "Input",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], -Cell[248959, 7197, 100, 0, 41, "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +Cell[224540, 6168, 2049, 54, 232, "Input",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], +Cell[226592, 6224, 20321, 382, 295, "Output",ExpressionUUID->"e32b63f0-d2ed-4093-834f-9137e724df36"] }, Open ]], Cell[CellGroupData[{ -Cell[249096, 7202, 1814, 53, 311, "Input",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], -Cell[250913, 7257, 342, 6, 26, "Message",ExpressionUUID->"12d513db-13cc-bc48-b9a3-22b17d8aeb9a"], -Cell[251258, 7265, 342, 6, 26, "Message",ExpressionUUID->"05911c33-7605-8b49-a7ba-7fc8c8f30741"], -Cell[251603, 7273, 342, 6, 26, "Message",ExpressionUUID->"2192e048-2875-9f4a-aa0c-9cbbd447dfe1"], -Cell[251948, 7281, 407, 7, 48, "Message",ExpressionUUID->"b6990f5f-359f-464b-ac16-44cdfeae3c8e"], -Cell[252358, 7290, 10062, 396, 232, 4186, 297, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"899e43aa-c372-6647-a3e4-4952f308ab17"], -Cell[262423, 7688, 191, 5, 41, "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-baecb9a57d9b"] +Cell[246950, 6611, 2113, 59, 311, "Input",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], +Cell[249066, 6672, 507, 12, 71, "Message",ExpressionUUID->"f1aaeb15-9934-4221-835a-d0eda97a1ca8"], +Cell[249576, 6686, 509, 12, 71, "Message",ExpressionUUID->"48304157-a249-47d3-84aa-2134db45a8f1"], +Cell[250088, 6700, 512, 12, 71, "Message",ExpressionUUID->"6bc2d566-d448-4155-95a5-624e1e3aa5bb"], +Cell[250603, 6714, 462, 11, 32, "Message",ExpressionUUID->"c6ae0a09-0dc4-4d60-9c03-008d9b46d1b6"], +Cell[251068, 6727, 23968, 440, 290, "Output",ExpressionUUID->"4bee74f2-8951-44ba-a390-785c015fca3d"] }, Open ]], Cell[CellGroupData[{ -Cell[262651, 7698, 1590, 47, 132, "Input",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], -Cell[264244, 7747, 342, 6, 26, "Message",ExpressionUUID->"d7dfab56-fefd-0149-8a26-6ee16f94ab37"], -Cell[264589, 7755, 101, 0, 41, "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +Cell[275073, 7172, 2474, 69, 296, "Input",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], +Cell[277550, 7243, 9494, 222, 298, "Output",ExpressionUUID->"f583b75e-4f41-47b0-8569-c27b6af7123c"] }, Open ]], Cell[CellGroupData[{ -Cell[264727, 7760, 2247, 64, 348, "Input",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], -Cell[266977, 7826, 342, 6, 26, "Message",ExpressionUUID->"56921c73-2b67-0e4a-9808-5f61de992c7e"], -Cell[267322, 7834, 342, 6, 26, "Message",ExpressionUUID->"8ae663ad-3729-254b-9ec7-7f5d00ef81af"], -Cell[267667, 7842, 103, 0, 41, "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +Cell[287081, 7470, 228, 4, 36, "Input",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], +Cell[287312, 7476, 30352, 572, 290, "Output",ExpressionUUID->"be800a78-2dbd-4c2c-91d1-61ace0d24994"] }, Open ]], Cell[CellGroupData[{ -Cell[267807, 7847, 2219, 64, 348, "Input",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], -Cell[270029, 7913, 342, 6, 26, "Message",ExpressionUUID->"1795c3b9-0182-224c-b986-6414d6712c04"], -Cell[270374, 7921, 342, 6, 26, "Message",ExpressionUUID->"c3b31753-a67f-9b45-b822-068e1df11f68"], -Cell[270719, 7929, 100, 0, 41, "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +Cell[317701, 8053, 234, 6, 61, "Input",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], +Cell[317938, 8061, 165, 2, 41, "Output",ExpressionUUID->"6ffbf3e0-5a46-4be9-bb3f-0a79a077a5af"] }, Open ]], Cell[CellGroupData[{ -Cell[270856, 7934, 2221, 64, 348, "Input",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], -Cell[273080, 8000, 342, 6, 26, "Message",ExpressionUUID->"32db1bf6-ba11-cb4a-955a-52e174a44e5f"], -Cell[273425, 8008, 342, 6, 26, "Message",ExpressionUUID->"4e2b22f2-1724-7649-93fc-33cd27bb415e"], -Cell[273770, 8016, 101, 0, 41, "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +Cell[318140, 8068, 1833, 52, 311, "Input",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], +Cell[319976, 8122, 517, 12, 71, "Message",ExpressionUUID->"f42a4b10-d588-49e9-87aa-7ad421fa2375"], +Cell[320496, 8136, 518, 12, 71, "Message",ExpressionUUID->"98991ab8-ec2e-4665-a652-4550cc82a145"], +Cell[321017, 8150, 522, 12, 71, "Message",ExpressionUUID->"fa0cc2ef-c068-4cea-9ae6-9be46685da83"], +Cell[321542, 8164, 461, 11, 32, "Message",ExpressionUUID->"56e411a4-db1f-4e25-bb20-cd7cf434a2ad"], +Cell[322006, 8177, 23968, 440, 290, "Output",ExpressionUUID->"a1002bad-ab83-45a1-b5e8-a391439877e4"] }, Open ]], Cell[CellGroupData[{ -Cell[273908, 8021, 215, 6, 60, "Input",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], -Cell[274126, 8029, 104, 0, 41, "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] +Cell[346011, 8622, 1616, 48, 132, "Input",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], +Cell[347630, 8672, 639, 14, 73, "Message",ExpressionUUID->"00a7fe6a-0213-4406-b2a1-64458427d58a"], +Cell[348272, 8688, 636, 14, 73, "Message",ExpressionUUID->"0a7c7b8e-5fbb-49f3-b86b-1a5c9cc584fb"], +Cell[348911, 8704, 637, 14, 73, "Message",ExpressionUUID->"adb2e8b4-bf73-4d0b-8a25-3537b76af6b0"], +Cell[349551, 8720, 463, 11, 32, "Message",ExpressionUUID->"49c0d2d0-5ad0-4889-8969-aede939646e0"], +Cell[350017, 8733, 171, 3, 41, "Output",ExpressionUUID->"9595fac4-c42a-4290-bf9d-a61bd9c35603"] }, Open ]], -Cell[274245, 8032, 247, 5, 36, "Input",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], Cell[CellGroupData[{ -Cell[274517, 8041, 532, 18, 66, "Input",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], -Cell[275052, 8061, 100, 0, 41, "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +Cell[350225, 8741, 2270, 64, 348, "Input",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], +Cell[352498, 8807, 638, 14, 73, "Message",ExpressionUUID->"a46fdc36-a8ba-405e-8edb-81c55ccaba4c"], +Cell[353139, 8823, 638, 14, 73, "Message",ExpressionUUID->"3258ed88-8202-480a-bca7-3d3b4bb5c30b"], +Cell[353780, 8839, 637, 14, 73, "Message",ExpressionUUID->"739a0149-1d3a-49ac-84dd-6a952c829e12"], +Cell[354420, 8855, 464, 11, 32, "Message",ExpressionUUID->"c1da6c1e-45d2-4d3a-8d42-8d0d4fda6eef"], +Cell[354887, 8868, 172, 3, 41, "Output",ExpressionUUID->"b7080ca1-54c5-46c7-bf95-36995f41c000"] }, Open ]], Cell[CellGroupData[{ -Cell[275189, 8066, 144, 4, 71, "Input",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], -Cell[275336, 8072, 100, 0, 41, "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +Cell[355096, 8876, 2231, 63, 348, "Input",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], +Cell[357330, 8941, 636, 14, 73, "Message",ExpressionUUID->"df60207a-6b3f-41f3-bdc6-70a390c5d595"], +Cell[357969, 8957, 636, 14, 73, "Message",ExpressionUUID->"f9ac03b1-62f9-46eb-b71b-7bada15b83fa"], +Cell[358608, 8973, 637, 14, 73, "Message",ExpressionUUID->"08375b2a-6cfd-47f5-98b0-1c955439f41e"], +Cell[359248, 8989, 464, 11, 32, "Message",ExpressionUUID->"4aa27f90-5880-47c2-9e49-74f863c89942"], +Cell[359715, 9002, 170, 3, 41, "Output",ExpressionUUID->"c19887e5-a366-4840-98c8-dd0dfcf0a78d"] }, Open ]], Cell[CellGroupData[{ -Cell[275473, 8077, 155, 4, 55, "Input",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], -Cell[275631, 8083, 100, 0, 41, "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +Cell[359922, 9010, 2233, 63, 348, "Input",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], +Cell[362158, 9075, 636, 14, 73, "Message",ExpressionUUID->"91d13a5d-ba1b-4d5a-aaf1-86da60cd09c6"], +Cell[362797, 9091, 636, 14, 73, "Message",ExpressionUUID->"5f91dac3-47b7-48e4-a00d-7a56cec4c464"], +Cell[363436, 9107, 637, 14, 73, "Message",ExpressionUUID->"5423bacb-554a-45e6-946c-7b4f39ed4818"], +Cell[364076, 9123, 466, 11, 32, "Message",ExpressionUUID->"0b44ae64-bc48-4aaa-b200-947fb85001f6"], +Cell[364545, 9136, 170, 3, 41, "Output",ExpressionUUID->"1e06f1f6-5c27-4780-a6c5-b372bdd299a6"] }, Open ]], Cell[CellGroupData[{ -Cell[275768, 8088, 6029, 184, 831, "Input",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], -Cell[281800, 8274, 102, 0, 41, "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +Cell[364752, 9144, 238, 6, 60, "Input",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], +Cell[364993, 9152, 173, 3, 41, "Output",ExpressionUUID->"b18e4a05-d521-4459-a8b9-910915fbdf56"] }, Open ]], +Cell[365181, 9158, 273, 6, 36, "Input",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], Cell[CellGroupData[{ -Cell[281939, 8279, 342, 8, 53, "Input",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], -Cell[282284, 8289, 342, 6, 26, "Message",ExpressionUUID->"def6b331-c871-b04d-a16e-4fc00b03d009"], -Cell[282629, 8297, 99, 0, 41, "Output",ExpressionUUID->"332f8da7-4eec-ed47-b124-edf7e2bf43d7"] +Cell[365479, 9168, 558, 19, 66, "Input",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], +Cell[366040, 9189, 170, 3, 41, "Output",ExpressionUUID->"fd11e327-9796-4dae-a5f6-8e5aba3976d3"] }, Open ]], Cell[CellGroupData[{ -Cell[282765, 8302, 6096, 186, 900, "Input",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], -Cell[288864, 8490, 102, 0, 41, "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +Cell[366247, 9197, 170, 5, 71, "Input",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], +Cell[366420, 9204, 171, 3, 41, "Output",ExpressionUUID->"570f46f2-a44a-4fb8-8506-121a98afe985"] }, Open ]], Cell[CellGroupData[{ -Cell[289003, 8495, 342, 8, 53, "Input",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], -Cell[289348, 8505, 342, 6, 26, "Message",ExpressionUUID->"c6c8676e-4601-144e-b83c-769e22949175"], -Cell[289693, 8513, 100, 0, 41, "Output",ExpressionUUID->"bd9f2dfb-0880-624c-8a61-fa3104084faf"] +Cell[366628, 9212, 181, 5, 55, "Input",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], +Cell[366812, 9219, 171, 3, 41, "Output",ExpressionUUID->"00609b80-6b90-4ab5-b087-756e1d6c7305"] }, Open ]], Cell[CellGroupData[{ -Cell[289830, 8518, 2637, 87, 435, "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], -Cell[292470, 8607, 101, 0, 41, "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +Cell[367020, 9227, 6055, 185, 831, "Input",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], +Cell[373078, 9414, 173, 3, 41, "Output",ExpressionUUID->"a38a2e4b-dddf-4445-8a4a-3985a22d052e"] }, Open ]], Cell[CellGroupData[{ -Cell[292608, 8612, 2577, 84, 435, "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], -Cell[295188, 8698, 102, 0, 41, "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +Cell[373288, 9422, 368, 9, 53, "Input",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], +Cell[373659, 9433, 171, 3, 41, "Output",ExpressionUUID->"6a79af6f-80b0-41ef-b179-b88c0f63b238"] }, Open ]], Cell[CellGroupData[{ -Cell[295327, 8703, 3686, 117, 575, "Input",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], -Cell[299016, 8822, 102, 0, 41, "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +Cell[373867, 9441, 6122, 187, 900, "Input",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], +Cell[379992, 9630, 172, 3, 41, "Output",ExpressionUUID->"65ceb40b-0517-4a72-b1bb-5e9137a4a025"] }, Open ]], Cell[CellGroupData[{ -Cell[299155, 8827, 2052, 59, 276, "Input",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], -Cell[301210, 8888, 342, 6, 26, "Message",ExpressionUUID->"7fd60dea-f794-4744-8801-bfb1a50a0e07"], -Cell[301555, 8896, 342, 6, 26, "Message",ExpressionUUID->"0b8c0718-41d2-4542-8afe-212a15805650"], -Cell[301900, 8904, 101, 0, 41, "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +Cell[380201, 9638, 368, 9, 53, "Input",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], +Cell[380572, 9649, 173, 3, 41, "Output",ExpressionUUID->"28fc65e2-d458-40ef-bc53-0b81ff82048b"] }, Open ]], Cell[CellGroupData[{ -Cell[302038, 8909, 2054, 59, 276, "Input",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], -Cell[304095, 8970, 342, 6, 26, "Message",ExpressionUUID->"b6f0ccc2-ff83-124b-a341-e143319c7670"], -Cell[304440, 8978, 342, 6, 26, "Message",ExpressionUUID->"d4b50e17-5ee4-384c-b81f-c2a36a80320e"], -Cell[304785, 8986, 100, 0, 41, "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +Cell[380782, 9657, 2663, 88, 435, "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], +Cell[383448, 9747, 171, 3, 41, "Output",ExpressionUUID->"580f375a-ff4b-47b6-b4b8-466dde80580b"] }, Open ]], Cell[CellGroupData[{ -Cell[304922, 8991, 2030, 55, 232, "Input",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], -Cell[306955, 9048, 342, 6, 26, "Message",ExpressionUUID->"7797a546-4085-124a-83da-5f3c472cdc4c"], -Cell[307300, 9056, 342, 6, 26, "Message",ExpressionUUID->"bf75ebeb-fc95-1d45-8487-ceed40ec633c"], -Cell[307645, 9064, 342, 6, 26, "Message",ExpressionUUID->"ca7472ca-7b27-a54a-84a1-e603fa592207"], -Cell[307990, 9072, 407, 7, 48, "Message",ExpressionUUID->"86b3b7d9-f0e9-0a4b-9079-b341ca597ab4"], -Cell[308400, 9081, 11714, 476, 232, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"f3c0c3aa-fd64-8e41-bc0a-ae36b33a37ec"], -Cell[320117, 9559, 191, 5, 41, "Output",ExpressionUUID->"23cfff6f-2c67-ce46-9cc6-49e8ffb5e8c8"] +Cell[383656, 9755, 2603, 85, 435, "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], +Cell[386262, 9842, 171, 3, 41, "Output",ExpressionUUID->"2dbebb9e-ce3f-4d54-8f53-fcea8a91dd97"] }, Open ]], Cell[CellGroupData[{ -Cell[320345, 9569, 2118, 60, 311, "Input",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], -Cell[322466, 9631, 342, 6, 26, "Message",ExpressionUUID->"b9265795-17b8-4e47-bd29-fee31586537e"], -Cell[322811, 9639, 342, 6, 26, "Message",ExpressionUUID->"072fb53f-7116-0f41-a298-6891351a3192"], -Cell[323156, 9647, 342, 6, 26, "Message",ExpressionUUID->"7f686ca7-db7f-0b40-bbd8-c08a80d2c198"], -Cell[323501, 9655, 407, 7, 48, "Message",ExpressionUUID->"3aaeaf29-5b60-ab47-b674-24d071c511f8"], -Cell[323911, 9664, 10793, 406, 232, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"fb5ee406-78d5-a849-9c81-3ea500ee883f"], -Cell[334707, 10072, 191, 5, 41, "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-87bc9c72594a"] +Cell[386470, 9850, 3712, 118, 575, "Input",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], +Cell[390185, 9970, 173, 3, 41, "Output",ExpressionUUID->"bf4644cf-cc1e-44da-8622-0056c92fd416"] }, Open ]], -Cell[334913, 10080, 209, 5, 36, "Input",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], Cell[CellGroupData[{ -Cell[335147, 10089, 1590, 47, 132, "Input",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], -Cell[336740, 10138, 342, 6, 26, "Message",ExpressionUUID->"52cff8eb-0c77-c944-a54f-e282b00ce766"], -Cell[337085, 10146, 101, 0, 41, "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +Cell[390395, 9978, 2075, 59, 276, "Input",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], +Cell[392473, 10039, 636, 14, 73, "Message",ExpressionUUID->"78437cea-e2f8-4426-be18-f01a1e0741c2"], +Cell[393112, 10055, 637, 14, 73, "Message",ExpressionUUID->"e1924c6d-95ad-43c5-ab56-1eef941f558d"], +Cell[393752, 10071, 638, 14, 73, "Message",ExpressionUUID->"80921b42-5fc8-4801-b7b1-c8d5b2eae2c9"], +Cell[394393, 10087, 464, 11, 32, "Message",ExpressionUUID->"4e089440-e97c-4ee8-a63a-d5c547d63270"], +Cell[394860, 10100, 173, 3, 41, "Output",ExpressionUUID->"00f24876-a4a3-442a-bcad-10cf83830edf"] }, Open ]], Cell[CellGroupData[{ -Cell[337223, 10151, 2251, 64, 348, "Input",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], -Cell[339477, 10217, 342, 6, 26, "Message",ExpressionUUID->"cb5a1193-7562-6446-a279-d9f6295d156e"], -Cell[339822, 10225, 342, 6, 26, "Message",ExpressionUUID->"566b0ad4-7f4e-b04f-8294-646ce1913fac"], -Cell[340167, 10233, 101, 0, 41, "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +Cell[395070, 10108, 2077, 59, 276, "Input",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], +Cell[397150, 10169, 636, 14, 73, "Message",ExpressionUUID->"10caf02e-3747-4b8c-afdd-de20bebe440c"], +Cell[397789, 10185, 639, 14, 73, "Message",ExpressionUUID->"7c505ecf-f95e-4920-b38e-260c501c28f4"], +Cell[398431, 10201, 636, 14, 73, "Message",ExpressionUUID->"a91c91eb-b0ce-48e6-8332-c8e5df1f7b17"], +Cell[399070, 10217, 466, 11, 32, "Message",ExpressionUUID->"20034a6f-e6c2-48b8-8cb0-5b6a9f0c6a93"], +Cell[399539, 10230, 169, 3, 41, "Output",ExpressionUUID->"dde30433-b16a-4bc4-8273-6e2b8b58708d"] }, Open ]], Cell[CellGroupData[{ -Cell[340305, 10238, 2220, 64, 348, "Input",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], -Cell[342528, 10304, 342, 6, 26, "Message",ExpressionUUID->"4cd45900-7eb0-6b4b-830a-a339e8117392"], -Cell[342873, 10312, 342, 6, 26, "Message",ExpressionUUID->"0ddcf174-f6c5-2546-b6d3-f17f46d6e8a3"], -Cell[343218, 10320, 101, 0, 41, "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +Cell[399745, 10238, 2053, 55, 232, "Input",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], +Cell[401801, 10295, 20251, 383, 295, "Output",ExpressionUUID->"00dfdaf4-1909-4f53-aad1-c159cee0b6e8"] }, Open ]], Cell[CellGroupData[{ -Cell[343356, 10325, 2223, 64, 348, "Input",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], -Cell[345582, 10391, 342, 6, 26, "Message",ExpressionUUID->"f702ec8b-e3a1-2f4f-bfef-4278a2688935"], -Cell[345927, 10399, 342, 6, 26, "Message",ExpressionUUID->"61220452-df6a-154e-8b5c-fecd0ab287a1"], -Cell[346272, 10407, 101, 0, 41, "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +Cell[422089, 10683, 2141, 60, 311, "Input",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], +Cell[424233, 10745, 508, 12, 71, "Message",ExpressionUUID->"3c9fceff-7279-498b-a2cb-bf5e3d160df7"], +Cell[424744, 10759, 512, 12, 71, "Message",ExpressionUUID->"e43ced58-3db4-4eb4-957b-121a81ff0c05"], +Cell[425259, 10773, 515, 12, 71, "Message",ExpressionUUID->"66bca165-39e7-4f14-858a-c49d81220686"], +Cell[425777, 10787, 464, 11, 32, "Message",ExpressionUUID->"7cfe862f-d8f7-48f4-83d2-45d5c964eba9"], +Cell[426244, 10800, 23617, 435, 290, "Output",ExpressionUUID->"4cf8db7c-468d-4aaf-aad6-2654f287889a"] }, Open ]], Cell[CellGroupData[{ -Cell[346410, 10412, 215, 6, 60, "Input",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], -Cell[346628, 10420, 102, 0, 41, "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] +Cell[449898, 11240, 232, 5, 36, "Input",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], +Cell[450133, 11247, 30004, 567, 290, "Output",ExpressionUUID->"c69581ff-a94b-4927-958e-1ae8304f4515"] }, Open ]], -Cell[346745, 10423, 247, 5, 36, "Input",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], Cell[CellGroupData[{ -Cell[347017, 10432, 532, 18, 66, "Input",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], -Cell[347552, 10452, 101, 0, 41, "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +Cell[480174, 11819, 1616, 48, 132, "Input",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], +Cell[481793, 11869, 638, 14, 73, "Message",ExpressionUUID->"caaa0401-87a6-4a6c-b3d0-1d7f648423c3"], +Cell[482434, 11885, 639, 14, 73, "Message",ExpressionUUID->"4f6255bc-dc8a-488a-b10a-53df1a7ee811"], +Cell[483076, 11901, 639, 14, 73, "Message",ExpressionUUID->"73aedde7-8045-4af2-be81-b4de8e341d3a"], +Cell[483718, 11917, 464, 11, 32, "Message",ExpressionUUID->"5f5fc6c8-fe3f-47d5-83dd-abcc2b5ad2e4"], +Cell[484185, 11930, 170, 3, 41, "Output",ExpressionUUID->"39d71bee-9f0d-4374-a04a-c43bf5460973"] }, Open ]], Cell[CellGroupData[{ -Cell[347690, 10457, 144, 4, 71, "Input",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], -Cell[347837, 10463, 101, 0, 41, "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +Cell[484392, 11938, 2274, 64, 348, "Input",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], +Cell[486669, 12004, 636, 14, 73, "Message",ExpressionUUID->"5c886988-24f5-49d6-b233-f8906d3c6339"], +Cell[487308, 12020, 637, 14, 73, "Message",ExpressionUUID->"ce1c2043-213c-4265-832a-6bed2497016a"], +Cell[487948, 12036, 638, 14, 73, "Message",ExpressionUUID->"8cace81e-f2af-4af2-9efe-b86e88561493"], +Cell[488589, 12052, 464, 11, 32, "Message",ExpressionUUID->"116f39fa-777d-41f0-87e2-861df4f89954"], +Cell[489056, 12065, 174, 3, 41, "Output",ExpressionUUID->"f616c8f2-53b7-42a9-89ce-7dc9f6c8e568"] }, Open ]], Cell[CellGroupData[{ -Cell[347975, 10468, 155, 4, 55, "Input",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], -Cell[348133, 10474, 100, 0, 41, "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +Cell[489267, 12073, 2232, 63, 348, "Input",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], +Cell[491502, 12138, 638, 14, 73, "Message",ExpressionUUID->"02b75638-4faf-46df-8d14-86cd73ae4a79"], +Cell[492143, 12154, 637, 14, 73, "Message",ExpressionUUID->"4d834967-ca97-493d-a240-90127c058de0"], +Cell[492783, 12170, 638, 14, 73, "Message",ExpressionUUID->"9a348491-1379-439f-9827-80126354ac69"], +Cell[493424, 12186, 464, 11, 32, "Message",ExpressionUUID->"092e0982-9478-447e-960c-9f0967538946"], +Cell[493891, 12199, 170, 3, 41, "Output",ExpressionUUID->"9dafb83a-19e1-41d6-8462-8f307ace91ed"] }, Open ]], Cell[CellGroupData[{ -Cell[348270, 10479, 6029, 184, 831, "Input",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], -Cell[354302, 10665, 102, 0, 41, "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +Cell[494098, 12207, 2235, 63, 348, "Input",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], +Cell[496336, 12272, 638, 14, 73, "Message",ExpressionUUID->"b67cbf6a-c4c6-485d-b229-4c803d740337"], +Cell[496977, 12288, 637, 14, 73, "Message",ExpressionUUID->"2d2b52b0-1df6-4b0f-9cbf-856241b26291"], +Cell[497617, 12304, 636, 14, 73, "Message",ExpressionUUID->"22c25b93-2476-47ad-84d1-34351898c43e"], +Cell[498256, 12320, 464, 11, 32, "Message",ExpressionUUID->"04bc5995-8217-4efe-b730-8093dbac2e0f"], +Cell[498723, 12333, 173, 3, 41, "Output",ExpressionUUID->"191552bf-15d2-49b7-a0ab-6537098fd9d0"] }, Open ]], Cell[CellGroupData[{ -Cell[354441, 10670, 342, 8, 53, "Input",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], -Cell[354786, 10680, 342, 6, 26, "Message",ExpressionUUID->"4870a5d4-b6fc-9044-ae55-fcbd2b9d41eb"], -Cell[355131, 10688, 100, 0, 41, "Output",ExpressionUUID->"4263cd25-e2b6-5c4b-8834-28c6ca12b863"] +Cell[498933, 12341, 238, 6, 60, "Input",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], +Cell[499174, 12349, 173, 3, 41, "Output",ExpressionUUID->"8ac835e3-40ff-42b3-bcbe-b377022ad791"] }, Open ]], +Cell[499362, 12355, 273, 6, 36, "Input",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], Cell[CellGroupData[{ -Cell[355268, 10693, 6096, 186, 900, "Input",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], -Cell[361367, 10881, 102, 0, 41, "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +Cell[499660, 12365, 558, 19, 66, "Input",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], +Cell[500221, 12386, 171, 3, 41, "Output",ExpressionUUID->"c702bf0e-19e6-4b05-8db6-8bf6ae2ccc69"] }, Open ]], Cell[CellGroupData[{ -Cell[361506, 10886, 342, 8, 53, "Input",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], -Cell[361851, 10896, 342, 6, 26, "Message",ExpressionUUID->"d6f4e6b1-3d45-7649-b7dd-944c4a1de3e4"], -Cell[362196, 10904, 99, 0, 41, "Output",ExpressionUUID->"27fdf87b-577e-d74b-99f1-6a0486be19bc"] +Cell[500429, 12394, 170, 5, 71, "Input",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], +Cell[500602, 12401, 171, 3, 41, "Output",ExpressionUUID->"77b261dc-5978-4291-85bf-909a7204d447"] }, Open ]], Cell[CellGroupData[{ -Cell[362332, 10909, 2637, 87, 435, "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], -Cell[364972, 10998, 101, 0, 41, "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +Cell[500810, 12409, 181, 5, 55, "Input",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], +Cell[500994, 12416, 170, 3, 41, "Output",ExpressionUUID->"61e55c45-7524-4343-bf9f-593dcfe3bc11"] }, Open ]], Cell[CellGroupData[{ -Cell[365110, 11003, 2577, 84, 435, "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], -Cell[367690, 11089, 102, 0, 41, "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +Cell[501201, 12424, 6055, 185, 831, "Input",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], +Cell[507259, 12611, 173, 3, 41, "Output",ExpressionUUID->"e1113eef-d1a6-40c5-8fd0-c1b725d4328d"] }, Open ]], Cell[CellGroupData[{ -Cell[367829, 11094, 3686, 117, 575, "Input",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], -Cell[371518, 11213, 102, 0, 41, "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +Cell[507469, 12619, 368, 9, 53, "Input",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], +Cell[507840, 12630, 171, 3, 41, "Output",ExpressionUUID->"9dd6cb4e-785c-4332-a666-1c081fde333b"] }, Open ]], Cell[CellGroupData[{ -Cell[371657, 11218, 2054, 59, 276, "Input",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], -Cell[373714, 11279, 342, 6, 26, "Message",ExpressionUUID->"b82c1933-5313-1d4c-a858-68be8f118333"], -Cell[374059, 11287, 342, 6, 26, "Message",ExpressionUUID->"3b3475f7-7db7-054a-b7f5-20d8f7d491bf"], -Cell[374404, 11295, 100, 0, 41, "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +Cell[508048, 12638, 6122, 187, 900, "Input",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], +Cell[514173, 12827, 172, 3, 41, "Output",ExpressionUUID->"e0a20f97-5fa0-4eb8-889a-c3daf57bf451"] }, Open ]], Cell[CellGroupData[{ -Cell[374541, 11300, 2054, 59, 276, "Input",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], -Cell[376598, 11361, 342, 6, 26, "Message",ExpressionUUID->"9e0b92f8-7fe2-e84e-89cd-c02c9da3e5b7"], -Cell[376943, 11369, 342, 6, 26, "Message",ExpressionUUID->"56712e4d-1aa7-524a-8254-bcfd8978eea0"], -Cell[377288, 11377, 100, 0, 41, "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +Cell[514382, 12835, 368, 9, 53, "Input",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], +Cell[514753, 12846, 170, 3, 41, "Output",ExpressionUUID->"f8e56e73-8a9b-44c9-bc4e-ddb729cf2496"] }, Open ]], Cell[CellGroupData[{ -Cell[377425, 11382, 2030, 55, 232, "Input",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], -Cell[379458, 11439, 342, 6, 26, "Message",ExpressionUUID->"9c6ce535-b42f-3c43-a89e-eda48c04121e"], -Cell[379803, 11447, 342, 6, 26, "Message",ExpressionUUID->"e2ce6bda-7d9b-6149-bf5b-dd4c91908e28"], -Cell[380148, 11455, 342, 6, 26, "Message",ExpressionUUID->"2bed6df2-09cb-4d4d-b247-4fe79fd38fd6"], -Cell[380493, 11463, 407, 7, 48, "Message",ExpressionUUID->"64a64e18-e609-d54b-8225-64fa7909a948"], -Cell[380903, 11472, 11714, 476, 232, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"7758daab-adf8-2a49-9166-50457409d355"], -Cell[392620, 11950, 191, 5, 41, "Output",ExpressionUUID->"4f7705b8-e954-b341-ab6d-8b4ad9ffca61"] +Cell[514960, 12854, 2663, 88, 435, "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], +Cell[517626, 12944, 171, 3, 41, "Output",ExpressionUUID->"8f307d8c-89b4-4de1-acb2-802b747f711e"] }, Open ]], Cell[CellGroupData[{ -Cell[392848, 11960, 2143, 61, 311, "Input",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], -Cell[394994, 12023, 342, 6, 26, "Message",ExpressionUUID->"2059be4f-bbb2-da49-9e23-3fc4d150d7a8"], -Cell[395339, 12031, 342, 6, 26, "Message",ExpressionUUID->"71d4e039-c2b8-d74d-819a-80d2051e4273"], -Cell[395684, 12039, 342, 6, 26, "Message",ExpressionUUID->"63625e13-15ef-1f45-89dc-998a1b63a626"], -Cell[396029, 12047, 407, 7, 48, "Message",ExpressionUUID->"ff96fc2b-5ddb-2142-a985-58ccc6f07e00"], -Cell[396439, 12056, 10793, 406, 232, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"a63f48d3-505f-0a45-b944-e872edd94d6c"], -Cell[407235, 12464, 191, 5, 41, "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-1872f77ea023"] +Cell[517834, 12952, 2603, 85, 435, "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], +Cell[520440, 13039, 170, 3, 41, "Output",ExpressionUUID->"cd8411a3-46d9-4a6a-9b9c-04cb17394a52"] }, Open ]], -Cell[407441, 12472, 138, 3, 36, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], Cell[CellGroupData[{ -Cell[407604, 12479, 1590, 47, 132, "Input",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], -Cell[409197, 12528, 342, 6, 26, "Message",ExpressionUUID->"2b38d1a8-4a7e-7b4f-8cdd-5298fced63d9"], -Cell[409542, 12536, 101, 0, 41, "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +Cell[520647, 13047, 3712, 118, 575, "Input",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], +Cell[524362, 13167, 173, 3, 41, "Output",ExpressionUUID->"4604fa02-37fd-4885-adaf-3bb7e852db49"] }, Open ]], Cell[CellGroupData[{ -Cell[409680, 12541, 2249, 64, 348, "Input",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], -Cell[411932, 12607, 342, 6, 26, "Message",ExpressionUUID->"905b237c-0e51-ab4b-895d-05994c6f1d5f"], -Cell[412277, 12615, 342, 6, 26, "Message",ExpressionUUID->"7ad8c79e-9570-a44d-b593-07aa87056e21"], -Cell[412622, 12623, 100, 0, 41, "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +Cell[524572, 13175, 2077, 59, 276, "Input",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], +Cell[526652, 13236, 636, 14, 73, "Message",ExpressionUUID->"592bd770-3f67-4a05-97ae-3c6ce5c7750e"], +Cell[527291, 13252, 638, 14, 73, "Message",ExpressionUUID->"c2361857-ddc7-4f48-8fd4-7888ac775caa"], +Cell[527932, 13268, 636, 14, 73, "Message",ExpressionUUID->"c2e19422-638a-416a-bfe6-65f2a89ec06b"], +Cell[528571, 13284, 466, 11, 32, "Message",ExpressionUUID->"a54f380a-13d7-4a86-b86a-66d3c2252b1d"], +Cell[529040, 13297, 171, 3, 41, "Output",ExpressionUUID->"6ac18641-0bbe-42db-9b2a-7a10a4b7d375"] }, Open ]], Cell[CellGroupData[{ -Cell[412759, 12628, 2219, 64, 348, "Input",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], -Cell[414981, 12694, 342, 6, 26, "Message",ExpressionUUID->"c516c31a-74b4-f24d-a16a-678221cde87e"], -Cell[415326, 12702, 342, 6, 26, "Message",ExpressionUUID->"5c50b555-9ebe-f94d-801f-34634555f622"], -Cell[415671, 12710, 99, 0, 41, "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +Cell[529248, 13305, 2077, 59, 276, "Input",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], +Cell[531328, 13366, 637, 14, 73, "Message",ExpressionUUID->"367fdc4a-c6ab-4a36-be23-e14b20e6bd54"], +Cell[531968, 13382, 638, 14, 73, "Message",ExpressionUUID->"c8db32a7-4212-4147-ad96-9b551d431687"], +Cell[532609, 13398, 637, 14, 73, "Message",ExpressionUUID->"ebe3042c-ac88-4add-a640-1907786bd4fd"], +Cell[533249, 13414, 466, 11, 32, "Message",ExpressionUUID->"b1e9c532-1536-411c-86a6-e6ea8c427b85"], +Cell[533718, 13427, 170, 3, 41, "Output",ExpressionUUID->"8235edbf-0ddf-4a20-8b83-fca6723fb0d4"] }, Open ]], Cell[CellGroupData[{ -Cell[415807, 12715, 2221, 64, 348, "Input",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], -Cell[418031, 12781, 342, 6, 26, "Message",ExpressionUUID->"7ca591cf-a5ce-ce41-8101-8edfca50e890"], -Cell[418376, 12789, 342, 6, 26, "Message",ExpressionUUID->"cbafd11a-4be0-b541-81e4-e62191ae7695"], -Cell[418721, 12797, 101, 0, 41, "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +Cell[533925, 13435, 2053, 55, 232, "Input",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], +Cell[535981, 13492, 20323, 383, 297, "Output",ExpressionUUID->"04cebae8-c5d6-480d-a7e0-84711c0688d2"] }, Open ]], Cell[CellGroupData[{ -Cell[418859, 12802, 215, 6, 60, "Input",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], -Cell[419077, 12810, 102, 0, 41, "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] +Cell[556341, 13880, 2165, 61, 311, "Input",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], +Cell[558509, 13943, 509, 12, 71, "Message",ExpressionUUID->"6a628236-249f-4b4a-bdb3-ee160fc91564"], +Cell[559021, 13957, 512, 12, 71, "Message",ExpressionUUID->"e8332156-9dd5-4566-989f-867caf348627"], +Cell[559536, 13971, 515, 12, 71, "Message",ExpressionUUID->"19f24011-850e-4e3f-8dfe-5757c3d7eaea"], +Cell[560054, 13985, 464, 11, 32, "Message",ExpressionUUID->"59206bdf-08a5-4274-9a6e-fb96ed710e93"], +Cell[560521, 13998, 22985, 426, 290, "Output",ExpressionUUID->"0d91be30-eb39-4af9-b922-f7b89852694b"] }, Open ]], -Cell[419194, 12813, 185, 4, 36, "Input",ExpressionUUID->"c48b0e02-cac6-46a2-8dae-6c5526596fd2"] +Cell[CellGroupData[{ +Cell[583543, 14429, 164, 4, 36, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], +Cell[583710, 14435, 29369, 558, 290, "Output",ExpressionUUID->"45378764-5cf8-4a52-975e-8dcadde0fa60"] +}, Open ]], +Cell[CellGroupData[{ +Cell[613116, 14998, 1616, 48, 132, "Input",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], +Cell[614735, 15048, 636, 14, 73, "Message",ExpressionUUID->"7de2c084-357c-47e1-befc-0cb17f35c2d2"], +Cell[615374, 15064, 635, 14, 73, "Message",ExpressionUUID->"d063378b-0626-4d3f-8314-b2b6cc3cbf59"], +Cell[616012, 15080, 636, 14, 73, "Message",ExpressionUUID->"27386f49-64a3-4d5d-a81c-40b4d4e750c5"], +Cell[616651, 15096, 464, 11, 32, "Message",ExpressionUUID->"1fdf5191-1182-421c-8b03-ad9002fb1ec5"], +Cell[617118, 15109, 169, 3, 41, "Output",ExpressionUUID->"0b6707e5-73de-4ff5-a7b6-e7882d71abdc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[617324, 15117, 2272, 64, 348, "Input",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], +Cell[619599, 15183, 637, 14, 73, "Message",ExpressionUUID->"cca7a08e-0a8d-41ed-9fbf-35512636e6cc"], +Cell[620239, 15199, 636, 14, 73, "Message",ExpressionUUID->"7ca4db74-21a1-4b9c-a22c-7f96f31d06af"], +Cell[620878, 15215, 637, 14, 73, "Message",ExpressionUUID->"7330b711-f5d7-4583-807d-5701b97c1b66"], +Cell[621518, 15231, 464, 11, 32, "Message",ExpressionUUID->"2ff84f2a-69e4-4121-aa15-320cdbaec4c6"], +Cell[621985, 15244, 171, 3, 41, "Output",ExpressionUUID->"7bd08141-7e38-4ff8-9c6d-b9f1697bffe7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[622193, 15252, 2231, 63, 348, "Input",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], +Cell[624427, 15317, 637, 14, 73, "Message",ExpressionUUID->"3bd6ba42-a153-40cb-af39-ce82bd747ecd"], +Cell[625067, 15333, 636, 14, 73, "Message",ExpressionUUID->"575eabe9-b063-43c8-b950-53877133aee7"], +Cell[625706, 15349, 637, 14, 73, "Message",ExpressionUUID->"c1a3b2ae-7c2f-4435-aaf5-be22ddf4bf55"], +Cell[626346, 15365, 464, 11, 32, "Message",ExpressionUUID->"26b3417b-80bf-4c0b-9057-fd8d114a73aa"], +Cell[626813, 15378, 170, 3, 41, "Output",ExpressionUUID->"fe8b1512-4f22-4a14-a749-e645a1071991"] +}, Open ]], +Cell[CellGroupData[{ +Cell[627020, 15386, 2233, 63, 348, "Input",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], +Cell[629256, 15451, 639, 14, 73, "Message",ExpressionUUID->"95ad51f8-d3c8-4be7-99d9-8e8c326fafb8"], +Cell[629898, 15467, 638, 14, 73, "Message",ExpressionUUID->"c53e0c76-e683-4015-8ed5-1ee62174922d"], +Cell[630539, 15483, 637, 14, 73, "Message",ExpressionUUID->"9dfa7a28-e19a-4840-b60d-96d6f78a5857"], +Cell[631179, 15499, 466, 11, 32, "Message",ExpressionUUID->"adf0af4e-7d2a-4a55-b649-cf7076007365"], +Cell[631648, 15512, 170, 3, 41, "Output",ExpressionUUID->"a955eeee-8fbf-4529-a801-93bb2a5fe531"] +}, Open ]], +Cell[CellGroupData[{ +Cell[631855, 15520, 238, 6, 60, "Input",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], +Cell[632096, 15528, 174, 3, 41, "Output",ExpressionUUID->"7040186e-5c26-41b5-94dd-98bdb95dfe37"] +}, Open ]], +Cell[632285, 15534, 208, 4, 36, "Input",ExpressionUUID->"c48b0e02-cac6-46a2-8dae-6c5526596fd2"] } ] *) +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_osc_Qw1.nb b/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_osc_Qw1.nb index 7a97de5..0c3d94a 100644 --- a/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_osc_Qw1.nb +++ b/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_osc_Qw1.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 575115, 14388] -NotebookOptionsPosition[ 532883, 13716] -NotebookOutlinePosition[ 533323, 13734] -CellTagsIndexPosition[ 533280, 13731] +NotebookDataLength[ 687849, 16588] +NotebookOptionsPosition[ 644745, 15898] +NotebookOutlinePosition[ 645211, 15917] +CellTagsIndexPosition[ 645168, 15914] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -25,15 +25,14 @@ Cell[BoxData[ CellChangeTimes->{ 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, 3.9920650045886707`*^9, {3.993816332414463*^9, 3.993816395113246*^9}, { - 3.99408327105175*^9, - 3.99408327225659*^9}},ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-\ -8326f7c1a9b1"], + 3.99408327105175*^9, 3.99408327225659*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], Cell[BoxData["1.78`"], "Output", CellChangeTimes->{ - 3.991320420900818*^9, {3.9938163104908867`*^9, 3.993816400323968*^9}}, - CellLabel-> - "Out[407]=",ExpressionUUID->"cefb8d4d-51df-472d-bfa3-4e416027e8e1"] + 3.991320420900818*^9, {3.9938163104908867`*^9, 3.993816400323968*^9}, + 3.9942561875570908`*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"a9c3f1b8-21ad-46d7-8747-a30f255a2d74"] }, Open ]], Cell[CellGroupData[{ @@ -42,14 +41,13 @@ Cell[BoxData[ RowBox[{"A", "=", "240"}]], "Input", CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { 3.993816070416484*^9, 3.9938160711424847`*^9}}, - CellLabel-> - "In[408]:=",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], + CellLabel->"In[2]:=",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.9913196497381973`*^9, {3.993816310783677*^9, 3.9938164003801527`*^9}}, - CellLabel-> - "Out[408]=",ExpressionUUID->"3badf72f-4e89-4633-86c0-962e5c0b9464"] + 3.9913196497381973`*^9, {3.993816310783677*^9, 3.9938164003801527`*^9}, + 3.994256187619462*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"418ea9fa-3128-4f3d-ab3b-f8f58290c000"] }, Open ]], Cell[CellGroupData[{ @@ -58,14 +56,13 @@ Cell[BoxData[ RowBox[{"A1", "=", "164"}]], "Input", CellChangeTimes->{ 3.991798961431202*^9, {3.993816075114204*^9, 3.993816075786501*^9}}, - CellLabel-> - "In[409]:=",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], + CellLabel->"In[3]:=",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], Cell[BoxData["164"], "Output", CellChangeTimes->{ - 3.9913196497578354`*^9, {3.99381631080079*^9, 3.9938164003966837`*^9}}, - CellLabel-> - "Out[409]=",ExpressionUUID->"c93dbef5-3539-413b-9e5d-85ca4413bd19"] + 3.9913196497578354`*^9, {3.99381631080079*^9, 3.9938164003966837`*^9}, + 3.994256187625902*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"aaf6811e-ca74-44ed-96d1-a98911ea031f"] }, Open ]], Cell[CellGroupData[{ @@ -73,14 +70,13 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, - CellLabel-> - "In[410]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], + CellLabel->"In[4]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], Cell[BoxData["0.55`"], "Output", CellChangeTimes->{ - 3.991319649777508*^9, {3.9938163108190804`*^9, 3.99381640041328*^9}}, - CellLabel-> - "Out[410]=",ExpressionUUID->"0b787f43-671d-4d63-a3b7-b65a6c851284"] + 3.991319649777508*^9, {3.9938163108190804`*^9, 3.99381640041328*^9}, + 3.994256187631586*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"de6340ed-7ba8-4dd6-89be-5df806d755b6"] }, Open ]], Cell[CellGroupData[{ @@ -92,28 +88,26 @@ Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", - CellLabel-> - "In[411]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], + CellLabel->"In[5]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], Cell[BoxData["0.5445000000000001`"], "Output", CellChangeTimes->{ - 3.9913196497965145`*^9, {3.99381631083608*^9, 3.9938164004361677`*^9}}, - CellLabel-> - "Out[411]=",ExpressionUUID->"91e5c082-a16c-4a6f-875a-763c1a8f6fcf"] + 3.9913196497965145`*^9, {3.99381631083608*^9, 3.9938164004361677`*^9}, + 3.994256187637332*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"0b300821-8d85-4ada-a9ed-0add8bf20e0c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", - CellLabel-> - "In[412]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], + CellLabel->"In[6]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], Cell[BoxData["0.17`"], "Output", CellChangeTimes->{ - 3.9913196498144608`*^9, {3.99381631085299*^9, 3.99381640045368*^9}}, - CellLabel-> - "Out[412]=",ExpressionUUID->"416f51db-c4e4-44d7-97c2-55e00317353b"] + 3.9913196498144608`*^9, {3.99381631085299*^9, 3.99381640045368*^9}, + 3.994256187643478*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"11158bba-b9f3-49a7-9e23-5453873ffad5"] }, Open ]], Cell[CellGroupData[{ @@ -124,14 +118,13 @@ Cell[BoxData[ SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}]}]], "Input", CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, - CellLabel-> - "In[413]:=",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], + CellLabel->"In[7]:=",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], Cell[BoxData["6.349496262766175`"], "Output", CellChangeTimes->{ - 3.9913196498225155`*^9, {3.993816310870123*^9, 3.993816400471637*^9}}, - CellLabel-> - "Out[413]=",ExpressionUUID->"f4000262-78fd-4aed-aace-aa767523bdb7"] + 3.9913196498225155`*^9, {3.993816310870123*^9, 3.993816400471637*^9}, + 3.9942561876507587`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"914ffd0b-4afa-480e-92a2-060c19634cc3"] }, Open ]], Cell[CellGroupData[{ @@ -143,14 +136,13 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", - CellLabel-> - "In[414]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], + CellLabel->"In[8]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], Cell[BoxData["4.913555357735675`"], "Output", CellChangeTimes->{ - 3.9913196498425236`*^9, {3.993816310887587*^9, 3.993816400489262*^9}}, - CellLabel-> - "Out[414]=",ExpressionUUID->"0627a552-2c19-4c7c-aac4-8506c565edbf"] + 3.9913196498425236`*^9, {3.993816310887587*^9, 3.993816400489262*^9}, + 3.994256187658704*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"aadb802a-a258-4dbf-8d9b-4e91ab96271e"] }, Open ]], Cell[CellGroupData[{ @@ -159,13 +151,12 @@ Cell[BoxData[ RowBox[{"b1", "=", "0.96357"}]], "Input", CellChangeTimes->{ 3.991799283179735*^9, {3.993816155315236*^9, 3.99381616557413*^9}}, - CellLabel-> - "In[415]:=",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], + CellLabel->"In[9]:=",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], Cell[BoxData["0.96357`"], "Output", - CellChangeTimes->{{3.9938163109056883`*^9, 3.993816400504654*^9}}, - CellLabel-> - "Out[415]=",ExpressionUUID->"19fdee38-e0c2-40de-9adb-8d08da64ad29"] + CellChangeTimes->{{3.9938163109056883`*^9, 3.993816400504654*^9}, + 3.994256187666151*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"b50af3b3-3fd5-4017-9e2b-9bcbb66ff899"] }, Open ]], Cell[CellGroupData[{ @@ -174,41 +165,38 @@ Cell[BoxData[ RowBox[{"b2", "=", "0.39003"}]], "Input", CellChangeTimes->{ 3.991799280663351*^9, {3.993816167313641*^9, 3.9938161733246517`*^9}}, - CellLabel-> - "In[416]:=",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], + CellLabel->"In[10]:=",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], Cell[BoxData["0.39003`"], "Output", - CellChangeTimes->{{3.993816310923224*^9, 3.993816400519388*^9}}, - CellLabel-> - "Out[416]=",ExpressionUUID->"04e2c26b-d153-47a7-9d5f-aeb486d0e35a"] + CellChangeTimes->{{3.993816310923224*^9, 3.993816400519388*^9}, + 3.9942561876731033`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"97c5a069-b88b-4016-952a-f1409377eb07"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", - CellLabel-> - "In[417]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], + CellLabel->"In[11]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], Cell[BoxData["0"], "Output", CellChangeTimes->{ - 3.9913196498927155`*^9, {3.993816310942574*^9, 3.993816400534342*^9}}, - CellLabel-> - "Out[417]=",ExpressionUUID->"c769b883-26da-438c-9457-aa221c5f2646"] + 3.9913196498927155`*^9, {3.993816310942574*^9, 3.993816400534342*^9}, + 3.9942561876795053`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"6e1c6893-c4db-4c85-ac51-b54b416d26cc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", - CellLabel-> - "In[418]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], + CellLabel->"In[12]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], Cell[BoxData["0"], "Output", CellChangeTimes->{ - 3.9913196498996067`*^9, {3.993816310960237*^9, 3.993816400549685*^9}}, - CellLabel-> - "Out[418]=",ExpressionUUID->"97cb585b-cdbc-4b2f-8a71-60471e14f9bd"] + 3.9913196498996067`*^9, {3.993816310960237*^9, 3.993816400549685*^9}, + 3.994256187686377*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"84750d61-338a-4b0c-ab7b-441f93b27c1b"] }, Open ]], Cell[CellGroupData[{ @@ -232,14 +220,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[419]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], + CellLabel->"In[13]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], Cell[BoxData["2.4652625900301657`"], "Output", CellChangeTimes->{ - 3.9913197863028755`*^9, {3.993816310977528*^9, 3.993816400564805*^9}}, - CellLabel-> - "Out[419]=",ExpressionUUID->"a7f2f565-2e7b-4737-a95f-55f3d894276f"] + 3.9913197863028755`*^9, {3.993816310977528*^9, 3.993816400564805*^9}, + 3.994256187694771*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"a8d922b0-089c-4b6b-80c1-afe7556f03ad"] }, Open ]], Cell[CellGroupData[{ @@ -263,14 +250,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[420]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], + CellLabel->"In[14]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], Cell[BoxData["1.4266899039519758`"], "Output", CellChangeTimes->{ - 3.9913197864610195`*^9, {3.993816310993836*^9, 3.993816400579666*^9}}, - CellLabel-> - "Out[420]=",ExpressionUUID->"9311522e-397e-44ac-8335-5c66ce955ab2"] + 3.9913197864610195`*^9, {3.993816310993836*^9, 3.993816400579666*^9}, + 3.994256187701447*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"4dd79168-f964-4219-91f7-770f9b1d19b7"] }, Open ]], Cell[CellGroupData[{ @@ -325,14 +311,13 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[421]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], + CellLabel->"In[15]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], Cell[BoxData["0.3750149455401738`"], "Output", CellChangeTimes->{ - 3.991319786533783*^9, {3.993816311010377*^9, 3.993816400594367*^9}}, - CellLabel-> - "Out[421]=",ExpressionUUID->"13cea7af-38df-4bbf-85ca-b2d769a72d33"] + 3.991319786533783*^9, {3.993816311010377*^9, 3.993816400594367*^9}, + 3.994256187708502*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"5dd64d94-07e8-49e1-ac7f-2fc9a83fb0c8"] }, Open ]], Cell[CellGroupData[{ @@ -383,24 +368,39 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[422]:=",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], + CellLabel->"In[16]:=",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], Cell[BoxData[ RowBox[{"-", "0.07977775132414705`"}]], "Output", CellChangeTimes->{ - 3.991319786540777*^9, {3.993816311027995*^9, 3.9938164006102667`*^9}}, - CellLabel-> - "Out[422]=",ExpressionUUID->"a778e92f-ed66-4703-a529-f2237125771e"] + 3.991319786540777*^9, {3.993816311027995*^9, 3.9938164006102667`*^9}, + 3.994256187715262*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"0e2d1cc9-141f-4580-8e38-0206c396eb15"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c21", "=", - FractionBox[ - RowBox[{ - RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ RowBox[{"R01", "*", RowBox[{"(", RowBox[{"1", "-", @@ -410,45 +410,30 @@ Cell[BoxData[ RowBox[{"b1", "*", SqrtBox[ FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", - RowBox[{"(", - RowBox[{"1", "-", - SuperscriptBox["w1", "2"]}], ")"}]}], - RowBox[{ - RowBox[{"R01", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b1", "*", "b1"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b1", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w2", "2"]}], "+", - RowBox[{"R02", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b2", "*", "b2"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b2", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w1", "2"]}], "+", - RowBox[{"d", "*", - SuperscriptBox["w2", "2"], "*", - SuperscriptBox["w1", "2"]}]}]]}]], "Input", - CellLabel-> - "In[423]:=",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], Cell[BoxData[ RowBox[{"-", "0.6284430544064189`"}]], "Output", CellChangeTimes->{ - 3.9913197865777817`*^9, {3.993816311033072*^9, 3.993816400624234*^9}}, - CellLabel-> - "Out[423]=",ExpressionUUID->"efc8270f-7449-4419-9037-1fcdbe4eb917"] + 3.9913197865777817`*^9, {3.993816311033072*^9, 3.993816400624234*^9}, + 3.994256187722701*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"23f16b4a-1ebf-4790-aab5-e68b5d011e63"] }, Open ]], Cell[CellGroupData[{ @@ -503,56 +488,52 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[424]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], + CellLabel->"In[18]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], Cell[BoxData["0.7294972450656219`"], "Output", CellChangeTimes->{ - 3.9913197866129*^9, {3.993816311062511*^9, 3.993816400639195*^9}}, - CellLabel-> - "Out[424]=",ExpressionUUID->"49380a83-b0ff-45df-935c-e6d630f6f20d"] + 3.9913197866129*^9, {3.993816311062511*^9, 3.993816400639195*^9}, + 3.994256187729541*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"9d1507e3-9a5a-4c55-90e0-b4cad6e7a325"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", - CellLabel-> - "In[425]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], + CellLabel->"In[19]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], Cell[BoxData["300"], "Output", CellChangeTimes->{ - 3.991319786620775*^9, {3.9938163110790157`*^9, 3.993816400654043*^9}}, - CellLabel-> - "Out[425]=",ExpressionUUID->"8d763443-eba5-4611-900f-70ca35bd0041"] + 3.991319786620775*^9, {3.9938163110790157`*^9, 3.993816400654043*^9}, + 3.994256187735754*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"3962aa32-b982-42b2-a1e2-4a47437b9a6c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fin", "=", "0.09"}]], "Input", - CellLabel-> - "In[426]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], + CellLabel->"In[20]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], Cell[BoxData["0.09`"], "Output", CellChangeTimes->{ - 3.991319786657793*^9, {3.99381631109599*^9, 3.993816400670066*^9}}, - CellLabel-> - "Out[426]=",ExpressionUUID->"86c43d62-1536-415a-9036-6c2389016250"] + 3.991319786657793*^9, {3.99381631109599*^9, 3.993816400670066*^9}, + 3.994256187741988*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"1ca0ad91-ab7c-42a3-a38f-d95e948f2bab"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffin", "=", "0.42"}]], "Input", - CellLabel-> - "In[427]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], + CellLabel->"In[21]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], Cell[BoxData["0.42`"], "Output", CellChangeTimes->{ - 3.9913197866657925`*^9, {3.99381631111339*^9, 3.99381640068589*^9}}, - CellLabel-> - "Out[427]=",ExpressionUUID->"dcf069ed-6df6-4704-a2d0-9527449b0829"] + 3.9913197866657925`*^9, {3.99381631111339*^9, 3.99381640068589*^9}, + 3.994256187748147*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"b08eb8c6-ce17-45ff-81f8-1b49a5b2fac9"] }, Open ]], Cell[CellGroupData[{ @@ -561,29 +542,27 @@ Cell[BoxData[ RowBox[{"fex", "=", RowBox[{"-", "2.59"}]}]], "Input", CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, - CellLabel-> - "In[428]:=",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], + CellLabel->"In[22]:=",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], Cell[BoxData[ RowBox[{"-", "2.59`"}]], "Output", CellChangeTimes->{ - 3.9913197866996*^9, {3.993816311129064*^9, 3.993816400702038*^9}}, - CellLabel-> - "Out[428]=",ExpressionUUID->"d4ac3a03-80e5-4cfe-803b-f19f46824a72"] + 3.9913197866996*^9, {3.993816311129064*^9, 3.993816400702038*^9}, + 3.994256187754277*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"7fd07960-0146-4cee-a67d-a894a6aca372"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffex", "=", "0.54"}]], "Input", - CellLabel-> - "In[429]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], + CellLabel->"In[23]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], Cell[BoxData["0.54`"], "Output", CellChangeTimes->{ - 3.9913197867406044`*^9, {3.993816311145554*^9, 3.9938164007190237`*^9}}, - CellLabel-> - "Out[429]=",ExpressionUUID->"ecdaa650-fb57-4ff0-b7cc-b0c4b4e2802a"] + 3.9913197867406044`*^9, {3.993816311145554*^9, 3.9938164007190237`*^9}, + 3.99425618776048*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"ef1b013f-f2bc-4b16-b403-b7c52526251e"] }, Open ]], Cell[CellGroupData[{ @@ -593,14 +572,13 @@ Cell[BoxData[ CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { 3.9938161841110783`*^9, 3.9938161842569923`*^9}}, - CellLabel-> - "In[430]:=",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], + CellLabel->"In[24]:=",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], Cell[BoxData["66"], "Output", CellChangeTimes->{ - 3.9913197867861958`*^9, {3.993816311161642*^9, 3.993816400736003*^9}}, - CellLabel-> - "Out[430]=",ExpressionUUID->"cd72463a-b32a-41e7-97c1-f56d3659cfd3"] + 3.9913197867861958`*^9, {3.993816311161642*^9, 3.993816400736003*^9}, + 3.994256187766657*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"86f7d858-ad3a-45df-b9e1-7ff6b43a4016"] }, Open ]], Cell[CellGroupData[{ @@ -610,14 +588,13 @@ Cell[BoxData[ RowBox[{"94", "-", "Z1"}]}]], "Input", CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, 3.9916443064841423`*^9, {3.9938161866045017`*^9, 3.99381618669993*^9}}, - CellLabel-> - "In[431]:=",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], + CellLabel->"In[25]:=",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], Cell[BoxData["28"], "Output", CellChangeTimes->{ - 3.9913197867928696`*^9, {3.993816311177599*^9, 3.993816400757028*^9}}, - CellLabel-> - "Out[431]=",ExpressionUUID->"222b04f1-8df7-4632-b17b-47bbc279986d"] + 3.9913197867928696`*^9, {3.993816311177599*^9, 3.993816400757028*^9}, + 3.9942561877730217`*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"4664aa6e-6d2b-4aac-9afb-53575646ca5a"] }, Open ]], Cell[CellGroupData[{ @@ -626,14 +603,13 @@ Cell[BoxData[ RowBox[{"A2", "=", RowBox[{"A", "-", "A1"}]}]], "Input", CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, - CellLabel-> - "In[432]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], + CellLabel->"In[26]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], Cell[BoxData["76"], "Output", CellChangeTimes->{ - 3.991319786827894*^9, {3.993816311193193*^9, 3.993816400775269*^9}}, - CellLabel-> - "Out[432]=",ExpressionUUID->"2102f16d-7267-4293-ad6f-3f088c3a264e"] + 3.991319786827894*^9, {3.993816311193193*^9, 3.993816400775269*^9}, + 3.994256187780113*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"6974af9c-c4c8-44ad-971f-58711dc7436c"] }, Open ]], Cell[CellGroupData[{ @@ -648,14 +624,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[433]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], + CellLabel->"In[27]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], Cell[BoxData["0.11156611039794609`"], "Output", CellChangeTimes->{ - 3.9913197868648605`*^9, {3.993816311209059*^9, 3.993816400793248*^9}}, - CellLabel-> - "Out[433]=",ExpressionUUID->"df2d83b9-a060-4206-ab25-a58037acf1b8"] + 3.9913197868648605`*^9, {3.993816311209059*^9, 3.993816400793248*^9}, + 3.99425618778715*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"d23af0f6-d91c-4955-9d41-4a37f07879c2"] }, Open ]], Cell[CellGroupData[{ @@ -670,15 +645,14 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[434]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], + CellLabel->"In[28]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], Cell[BoxData[ RowBox[{"-", "2.562272143774069`"}]], "Output", CellChangeTimes->{ - 3.9913197868718567`*^9, {3.993816311224965*^9, 3.993816400810424*^9}}, - CellLabel-> - "Out[434]=",ExpressionUUID->"1b093110-5751-44fc-ba53-aba3f26c11e0"] + 3.9913197868718567`*^9, {3.993816311224965*^9, 3.993816400810424*^9}, + 3.994256187794015*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"dc59361a-84fd-40fc-b44d-08b1ed3eb2f5"] }, Open ]], Cell[CellGroupData[{ @@ -709,14 +683,13 @@ Cell[BoxData[ CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, - CellLabel-> - "In[435]:=",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], + CellLabel->"In[29]:=",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], Cell[BoxData["17.58253870834664`"], "Output", CellChangeTimes->{ - 3.9913197869068584`*^9, {3.993816311240906*^9, 3.9938164008326178`*^9}}, - CellLabel-> - "Out[435]=",ExpressionUUID->"d085f071-d254-4286-a772-dad709740de2"] + 3.9913197869068584`*^9, {3.993816311240906*^9, 3.9938164008326178`*^9}, + 3.9942561878013*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"41373fed-5e41-4f6b-ae93-7913a2b7c0d0"] }, Open ]], Cell[CellGroupData[{ @@ -724,14 +697,13 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, - CellLabel-> - "In[436]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], + CellLabel->"In[30]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], Cell[BoxData["300"], "Output", CellChangeTimes->{ - 3.991319786940857*^9, {3.993816311257287*^9, 3.993816400852189*^9}}, - CellLabel-> - "Out[436]=",ExpressionUUID->"33c53625-1457-4253-82dc-3b95b673cfae"] + 3.991319786940857*^9, {3.993816311257287*^9, 3.993816400852189*^9}, + 3.9942561878079576`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"c18184c4-6837-4508-b15b-20060ce37e40"] }, Open ]], Cell[CellGroupData[{ @@ -741,19 +713,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, 3.993816201054872*^9}, - CellLabel-> - "In[437]:=",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], + CellLabel->"In[31]:=",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], Cell[BoxData["2"], "Output", - CellChangeTimes->{{3.99381631127295*^9, 3.993816400871359*^9}}, - CellLabel-> - "Out[437]=",ExpressionUUID->"9cb10a37-891b-4941-8af2-26e0ec9f6861"] + CellChangeTimes->{{3.99381631127295*^9, 3.993816400871359*^9}, + 3.994256187814434*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"50aa02c0-2bc9-4e14-9385-abfd7090ce69"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, - CellLabel-> - "In[438]:=",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], + CellLabel->"In[32]:=",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], Cell[CellGroupData[{ @@ -762,19 +732,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { 3.993816204826747*^9, 3.993816206119349*^9}}, - CellLabel-> - "In[439]:=",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], + CellLabel->"In[33]:=",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], Cell[BoxData["0.805`"], "Output", - CellChangeTimes->{{3.9938163113036537`*^9, 3.993816400895072*^9}}, - CellLabel-> - "Out[439]=",ExpressionUUID->"41dff3ec-614d-41ea-a48f-d20d2baebe24"] + CellChangeTimes->{{3.9938163113036537`*^9, 3.993816400895072*^9}, + 3.994256187824295*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"1d4cd1d0-a84b-4c05-a3ca-922e694477b8"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, - CellLabel-> - "In[440]:=",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], + CellLabel->"In[34]:=",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], Cell[CellGroupData[{ @@ -783,19 +751,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { 3.993816211321389*^9, 3.9938162195378838`*^9}}, - CellLabel-> - "In[441]:=",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], + CellLabel->"In[35]:=",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], Cell[BoxData["2.65`"], "Output", - CellChangeTimes->{{3.9938163113365593`*^9, 3.993816400917997*^9}}, - CellLabel-> - "Out[441]=",ExpressionUUID->"136e1d0d-ba40-448c-9140-5a537b390082"] + CellChangeTimes->{{3.9938163113365593`*^9, 3.993816400917997*^9}, + 3.9942561878336353`*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"5daa2a72-d1c0-4449-850c-d0be20cdddd7"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, - CellLabel-> - "In[442]:=",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], + CellLabel->"In[36]:=",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], Cell[CellGroupData[{ @@ -804,19 +770,17 @@ Cell[BoxData[ CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, 3.991799359954439*^9, {3.9938162225291348`*^9, 3.993816223644052*^9}}, - CellLabel-> - "In[443]:=",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], + CellLabel->"In[37]:=",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], Cell[BoxData["1.175`"], "Output", - CellChangeTimes->{{3.993816311366596*^9, 3.993816400940548*^9}}, - CellLabel-> - "Out[443]=",ExpressionUUID->"8fc2ed65-9e24-4ca8-9554-e820f983c5f2"] + CellChangeTimes->{{3.993816311366596*^9, 3.993816400940548*^9}, + 3.994256187843054*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"7054d7f4-1ec8-41a5-a69e-371c1f6bd85e"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, - CellLabel-> - "In[444]:=",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], + CellLabel->"In[38]:=",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], Cell[CellGroupData[{ @@ -825,19 +789,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, 3.991718016467348*^9, 3.991799361414671*^9, {3.9938162281192904`*^9, 3.993816230831416*^9}}, - CellLabel-> - "In[445]:=",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], + CellLabel->"In[39]:=",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], Cell[BoxData["0.795`"], "Output", - CellChangeTimes->{{3.993816311396524*^9, 3.993816400963438*^9}}, - CellLabel-> - "Out[445]=",ExpressionUUID->"aaaec929-970c-4399-9a4d-0b575ae8e327"] + CellChangeTimes->{{3.993816311396524*^9, 3.993816400963438*^9}, + 3.994256187852627*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"3521d1ff-8edc-4690-86a3-c5e0673e6b54"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, - CellLabel-> - "In[446]:=",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], + CellLabel->"In[40]:=",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], Cell[CellGroupData[{ @@ -846,19 +808,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993816234625985*^9, 3.993816236062304*^9}}, - CellLabel-> - "In[447]:=",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], + CellLabel->"In[41]:=",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], Cell[BoxData["0.595`"], "Output", - CellChangeTimes->{{3.993816311427802*^9, 3.9938164009852858`*^9}}, - CellLabel-> - "Out[447]=",ExpressionUUID->"753c6143-afda-49b9-bc6c-4abbdbc97575"] + CellChangeTimes->{{3.993816311427802*^9, 3.9938164009852858`*^9}, + 3.994256187865122*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"ee94e4ee-7df8-469c-9c59-d2315841a1fb"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, - CellLabel-> - "In[448]:=",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], + CellLabel->"In[42]:=",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], Cell[CellGroupData[{ @@ -867,19 +827,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.993816238161579*^9, 3.9938162401131277`*^9}}, - CellLabel-> - "In[449]:=",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], + CellLabel->"In[43]:=",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], Cell[BoxData["1.47`"], "Output", - CellChangeTimes->{{3.993816311458173*^9, 3.9938164010070257`*^9}}, - CellLabel-> - "Out[449]=",ExpressionUUID->"6182eeb7-e5dd-441a-aff6-eaae01e51da1"] + CellChangeTimes->{{3.993816311458173*^9, 3.9938164010070257`*^9}, + 3.9942561878741903`*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"26f05900-2b53-47b5-aa91-3ebf40510b6e"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, - CellLabel-> - "In[450]:=",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], + CellLabel->"In[44]:=",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], Cell[CellGroupData[{ @@ -887,19 +845,17 @@ Cell[BoxData[ RowBox[{"nn2", "=", "0.655"}]], "Input", CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, 3.9917993660901737`*^9, {3.993816241842022*^9, 3.993816245056822*^9}}, - CellLabel-> - "In[451]:=",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], + CellLabel->"In[45]:=",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], Cell[BoxData["0.655`"], "Output", - CellChangeTimes->{{3.993816311488914*^9, 3.993816401028906*^9}}, - CellLabel-> - "Out[451]=",ExpressionUUID->"76313be7-6c8a-4386-b96b-883e315a76f4"] + CellChangeTimes->{{3.993816311488914*^9, 3.993816401028906*^9}, + 3.99425618788163*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"ed92a624-0a5f-4616-9e18-1ffe4f3adca5"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, - CellLabel-> - "In[452]:=",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], + CellLabel->"In[46]:=",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ @@ -1388,14 +1344,13 @@ uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== "], - CellLabel-> - "In[453]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], + CellLabel->"In[47]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], Cell[BoxData["0.10932371372103143`"], "Output", CellChangeTimes->{ - 3.991319787430073*^9, {3.993816311598846*^9, 3.993816401077582*^9}}, - CellLabel-> - "Out[453]=",ExpressionUUID->"f84055a2-85c9-46b2-9644-09be5dc33714"] + 3.991319787430073*^9, {3.993816311598846*^9, 3.993816401077582*^9}, + 3.994256187953479*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"c10c0b4a-f366-4994-811b-1f4d34d7293c"] }, Open ]], Cell[CellGroupData[{ @@ -1889,14 +1844,13 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[454]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], + CellLabel->"In[48]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], Cell[BoxData["9.790243175904545`"], "Output", CellChangeTimes->{ - 3.991319787574972*^9, {3.9938163116474113`*^9, 3.993816401110285*^9}}, - CellLabel-> - "Out[454]=",ExpressionUUID->"a2bf0d30-843e-40f2-97e5-9802c78656c9"] + 3.991319787574972*^9, {3.9938163116474113`*^9, 3.993816401110285*^9}, + 3.994256187984455*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"01cbbe5d-e095-44fa-af49-cf797ec6e6ad"] }, Open ]], Cell[CellGroupData[{ @@ -2384,15 +2338,14 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[455]:=",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], + CellLabel->"In[49]:=",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], Cell[BoxData[ RowBox[{"-", "16.70631937398676`"}]], "Output", CellChangeTimes->{ - 3.991319787641424*^9, {3.993816311688833*^9, 3.99381640114319*^9}}, - CellLabel-> - "Out[455]=",ExpressionUUID->"5f3b556f-3600-4322-b0ba-9de12da40a82"] + 3.991319787641424*^9, {3.993816311688833*^9, 3.99381640114319*^9}, + 3.994256188015895*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"93ce7f35-c9f5-4049-956a-c80461ced733"] }, Open ]], Cell[CellGroupData[{ @@ -2950,15 +2903,14 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[456]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], + CellLabel->"In[50]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], Cell[BoxData[ RowBox[{"-", "21.21244105904564`"}]], "Output", CellChangeTimes->{ - 3.991319787711939*^9, {3.99381631175032*^9, 3.993816401178795*^9}}, - CellLabel-> - "Out[456]=",ExpressionUUID->"d12c66e5-63dc-4cd8-a0ec-e1e8dcc9504c"] + 3.991319787711939*^9, {3.99381631175032*^9, 3.993816401178795*^9}, + 3.994256188051641*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"47b24e3d-6dc1-48e4-aff6-ba786b9710d4"] }, Open ]], Cell[CellGroupData[{ @@ -3516,15 +3468,14 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[457]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], + CellLabel->"In[51]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], Cell[BoxData[ RowBox[{"-", "64.11746269097033`"}]], "Output", CellChangeTimes->{ - 3.9913197877723045`*^9, {3.993816311810264*^9, 3.993816401216831*^9}}, - CellLabel-> - "Out[457]=",ExpressionUUID->"4b31a03d-cc55-4510-8634-28f5e0e6b271"] + 3.9913197877723045`*^9, {3.993816311810264*^9, 3.993816401216831*^9}, + 3.994256188087906*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"5ed6c38c-bbf6-4e96-af7d-23fcacee5811"] }, Open ]], Cell[CellGroupData[{ @@ -4155,43 +4106,40 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[458]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], + CellLabel->"In[52]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], Cell[BoxData[ RowBox[{"-", "162.12919789671096`"}]], "Output", CellChangeTimes->{ - 3.991319787833355*^9, {3.993816311880077*^9, 3.9938164012606087`*^9}}, - CellLabel-> - "Out[458]=",ExpressionUUID->"2b7de1ac-570f-474c-8239-184ad456eee3"] + 3.991319787833355*^9, {3.993816311880077*^9, 3.9938164012606087`*^9}, + 3.994256188130877*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"93008f52-64f3-42e8-9f0e-10280f968435"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U21", "=", "0"}]], "Input", - CellLabel-> - "In[459]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], + CellLabel->"In[53]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], Cell[BoxData["0"], "Output", CellChangeTimes->{ - 3.9913204210013676`*^9, {3.993816311896537*^9, 3.993816401279429*^9}}, - CellLabel-> - "Out[459]=",ExpressionUUID->"861321e7-61d3-4dcd-9748-d422ae43ea73"] + 3.9913204210013676`*^9, {3.993816311896537*^9, 3.993816401279429*^9}, + 3.994256188138947*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"0f2609fe-4bdc-4c56-854b-2dcbef16b565"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U22", "=", "0"}]], "Input", - CellLabel-> - "In[460]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], + CellLabel->"In[54]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], Cell[BoxData["0"], "Output", CellChangeTimes->{ - 3.9913204210355663`*^9, {3.993816311909266*^9, 3.993816401294653*^9}}, - CellLabel-> - "Out[460]=",ExpressionUUID->"2a15aa7a-f1ab-4f05-afb7-e841a1dfee2c"] + 3.9913204210355663`*^9, {3.993816311909266*^9, 3.993816401294653*^9}, + 3.994256188143313*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"a58414bb-3dba-4f27-b62c-82620ba92402"] }, Open ]], Cell[CellGroupData[{ @@ -4235,14 +4183,13 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[461]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], + CellLabel->"In[55]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], Cell[BoxData["137.278680377525`"], "Output", CellChangeTimes->{ - 3.991320421068556*^9, {3.993816311921467*^9, 3.993816401310416*^9}}, - CellLabel-> - "Out[461]=",ExpressionUUID->"845a428e-c03b-4545-98f6-89f2b7e4a843"] + 3.991320421068556*^9, {3.993816311921467*^9, 3.993816401310416*^9}, + 3.994256188148059*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"57b6dbf7-161b-4887-8281-bf5a2bdf4ec8"] }, Open ]], Cell[CellGroupData[{ @@ -4282,15 +4229,14 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[462]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], + CellLabel->"In[56]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], Cell[BoxData[ RowBox[{"-", "124.2735331996648`"}]], "Output", CellChangeTimes->{ - 3.991320421098543*^9, {3.9938163119334393`*^9, 3.993816401325693*^9}}, - CellLabel-> - "Out[462]=",ExpressionUUID->"d6562593-792b-4263-a237-60596f6ae38d"] + 3.991320421098543*^9, {3.9938163119334393`*^9, 3.993816401325693*^9}, + 3.994256188152857*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"b717a2e0-a7d6-4863-afc6-3388e25dc21f"] }, Open ]], Cell[CellGroupData[{ @@ -4334,94 +4280,87 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[463]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], + CellLabel->"In[57]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], Cell[BoxData["136.79424869488386`"], "Output", CellChangeTimes->{ - 3.9913204211275444`*^9, {3.993816311945665*^9, 3.993816401340849*^9}}, - CellLabel-> - "Out[463]=",ExpressionUUID->"144edb5a-f746-49cb-98e4-490ce0b3cb9d"] + 3.9913204211275444`*^9, {3.993816311945665*^9, 3.993816401340849*^9}, + 3.994256188157673*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"d0aceb44-9816-4d26-9eab-385d948295ee"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c11"], "Input", - CellLabel-> - "In[464]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], + CellLabel->"In[58]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], Cell[BoxData["0.3750149455401738`"], "Output", CellChangeTimes->{ - 3.9913204211385536`*^9, {3.9938163119574957`*^9, 3.993816401363001*^9}}, - CellLabel-> - "Out[464]=",ExpressionUUID->"7e96279f-ad61-45f9-ab85-2045b780b2b1"] + 3.9913204211385536`*^9, {3.9938163119574957`*^9, 3.993816401363001*^9}, + 3.994256188162108*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"233e2244-6924-4ea1-bce9-0239079c0582"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c12"], "Input", - CellLabel-> - "In[465]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], + CellLabel->"In[59]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], Cell[BoxData[ RowBox[{"-", "0.07977775132414705`"}]], "Output", CellChangeTimes->{ - 3.9913204211683464`*^9, {3.9938163119693823`*^9, 3.99381640137784*^9}}, - CellLabel-> - "Out[465]=",ExpressionUUID->"13439555-e5d0-472e-94fd-d84043b9424a"] + 3.9913204211683464`*^9, {3.9938163119693823`*^9, 3.99381640137784*^9}, + 3.994256188166603*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"0df26f47-5663-4436-850d-2e6bd852510e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c21"], "Input", - CellLabel-> - "In[466]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], + CellLabel->"In[60]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], Cell[BoxData[ RowBox[{"-", "0.6284430544064189`"}]], "Output", CellChangeTimes->{ - 3.991320421199068*^9, {3.9938163119814787`*^9, 3.993816401392654*^9}}, - CellLabel-> - "Out[466]=",ExpressionUUID->"15b8f6b0-59e6-4533-9b1f-bedba699451d"] + 3.991320421199068*^9, {3.9938163119814787`*^9, 3.993816401392654*^9}, + 3.994256188171067*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"2ae275ab-4cc5-49a2-8d15-fc21988fba6f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c22"], "Input", - CellLabel-> - "In[467]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], + CellLabel->"In[61]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], Cell[BoxData["0.7294972450656219`"], "Output", CellChangeTimes->{ - 3.991320421228037*^9, {3.993816311994028*^9, 3.99381640140742*^9}}, - CellLabel-> - "Out[467]=",ExpressionUUID->"414630e2-bb8a-4fce-a8ee-27e34bd1cd3d"] + 3.991320421228037*^9, {3.993816311994028*^9, 3.99381640140742*^9}, + 3.994256188175552*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"84ef62ad-01ba-433c-896e-049d625e8156"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w1"], "Input", - CellLabel-> - "In[468]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], + CellLabel->"In[62]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], Cell[BoxData["2.4652625900301657`"], "Output", CellChangeTimes->{ - 3.9913204212585373`*^9, {3.993816312006279*^9, 3.99381640142347*^9}}, - CellLabel-> - "Out[468]=",ExpressionUUID->"5468dcf4-4ec6-4956-b44c-29ed43e16498"] + 3.9913204212585373`*^9, {3.993816312006279*^9, 3.99381640142347*^9}, + 3.99425618817994*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"78b47fde-fd8c-480c-979d-6cb943dd3d25"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w2"], "Input", - CellLabel-> - "In[469]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], + CellLabel->"In[63]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], Cell[BoxData["1.4266899039519758`"], "Output", CellChangeTimes->{ - 3.9913204212884274`*^9, {3.993816312018448*^9, 3.993816401439527*^9}}, - CellLabel-> - "Out[469]=",ExpressionUUID->"43cccc66-1758-49c8-be68-b568edceaf0b"] + 3.9913204212884274`*^9, {3.993816312018448*^9, 3.993816401439527*^9}, + 3.994256188184331*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"baaeb761-6cdf-480e-8db0-545f37a44961"] }, Open ]], Cell[CellGroupData[{ @@ -4442,15 +4381,14 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", - CellLabel-> - "In[470]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], + CellLabel->"In[64]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], Cell[BoxData[ RowBox[{"-", "36.59398535367672`"}]], "Output", CellChangeTimes->{ - 3.9913204213185234`*^9, {3.9938163120312033`*^9, 3.9938164014556637`*^9}}, - CellLabel-> - "Out[470]=",ExpressionUUID->"cc0d63a3-695d-42d6-a950-87eae12a1fb3"] + 3.9913204213185234`*^9, {3.9938163120312033`*^9, 3.9938164014556637`*^9}, + 3.994256188189127*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"199e7606-be7b-4f9b-8ade-39322cd59dda"] }, Open ]], Cell[CellGroupData[{ @@ -4471,15 +4409,14 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", - CellLabel-> - "In[471]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], + CellLabel->"In[65]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], Cell[BoxData[ RowBox[{"-", "6.706084141019179`"}]], "Output", CellChangeTimes->{ - 3.991320421349531*^9, {3.99381631203615*^9, 3.99381640147013*^9}}, - CellLabel-> - "Out[471]=",ExpressionUUID->"e6f10425-a835-4974-aaa0-f6a7d301a46d"] + 3.991320421349531*^9, {3.99381631203615*^9, 3.99381640147013*^9}, + 3.9942561881939707`*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"3088e94f-8b1a-48fb-b2ea-a639d012af5d"] }, Open ]], Cell[CellGroupData[{ @@ -4544,14 +4481,13 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[472]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], + CellLabel->"In[66]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], Cell[BoxData["100.68469502384829`"], "Output", CellChangeTimes->{ - 3.9913204213784294`*^9, {3.9938163120484467`*^9, 3.993816401484993*^9}}, - CellLabel-> - "Out[472]=",ExpressionUUID->"7b5d8d69-84db-412d-831e-328c6dd8aff2"] + 3.9913204213784294`*^9, {3.9938163120484467`*^9, 3.993816401484993*^9}, + 3.994256188199408*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"a49cd8ce-72ab-46a5-8792-f60496de66e9"] }, Open ]], Cell[CellGroupData[{ @@ -4592,15 +4528,14 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[473]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], + CellLabel->"In[67]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], Cell[BoxData[ RowBox[{"-", "124.2735331996648`"}]], "Output", CellChangeTimes->{ - 3.9913204213904285`*^9, {3.99381631206076*^9, 3.9938164015001698`*^9}}, - CellLabel-> - "Out[473]=",ExpressionUUID->"fc4954b3-c1a5-4a1e-8d7b-252f78d8f95e"] + 3.9913204213904285`*^9, {3.99381631206076*^9, 3.9938164015001698`*^9}, + 3.99425618820431*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"97a0c29f-c1f2-4153-b818-d404bf43b9be"] }, Open ]], Cell[CellGroupData[{ @@ -4666,14 +4601,13 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[474]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], + CellLabel->"In[68]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], Cell[BoxData["130.0881645538647`"], "Output", CellChangeTimes->{ - 3.991320421419428*^9, {3.9938163120760603`*^9, 3.993816401514661*^9}}, - CellLabel-> - "Out[474]=",ExpressionUUID->"27b4a8ae-8a51-47d2-af27-7d56874c1be1"] + 3.991320421419428*^9, {3.9938163120760603`*^9, 3.993816401514661*^9}, + 3.994256188209531*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"87281fde-474b-4ead-8e76-c8d2e397a3d0"] }, Open ]], Cell[CellGroupData[{ @@ -4731,14 +4665,13 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[475]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], + CellLabel->"In[69]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], Cell[BoxData["37.11735851847544`"], "Output", CellChangeTimes->{ - 3.9913204214494324`*^9, {3.993816312091509*^9, 3.9938164015309277`*^9}}, - CellLabel-> - "Out[475]=",ExpressionUUID->"f21d1b72-74d3-4ec6-adae-629db40f0cb1"] + 3.9913204214494324`*^9, {3.993816312091509*^9, 3.9938164015309277`*^9}, + 3.994256188214423*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"cdf0c207-a6c0-47be-a64a-125c33141b87"] }, Open ]], Cell[CellGroupData[{ @@ -4796,14 +4729,13 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[476]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], + CellLabel->"In[70]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], Cell[BoxData["835.6594550727934`"], "Output", CellChangeTimes->{ - 3.991320421481529*^9, {3.9938163121038647`*^9, 3.993816401547245*^9}}, - CellLabel-> - "Out[476]=",ExpressionUUID->"02830e76-24eb-46ae-bc83-50241d3c6260"] + 3.991320421481529*^9, {3.9938163121038647`*^9, 3.993816401547245*^9}, + 3.9942561882194777`*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"ac0b846b-6ab8-4c70-87ad-c13cd01aa2b2"] }, Open ]], Cell[CellGroupData[{ @@ -4812,19 +4744,17 @@ Cell[BoxData[ RowBox[{"f1", "=", "0.882490"}]], "Input", CellChangeTimes->{ 3.991799412462593*^9, {3.993816259114677*^9, 3.9938162651431932`*^9}}, - CellLabel-> - "In[477]:=",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], + CellLabel->"In[71]:=",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], Cell[BoxData["0.88249`"], "Output", - CellChangeTimes->{{3.993816312116229*^9, 3.993816401562501*^9}}, - CellLabel-> - "Out[477]=",ExpressionUUID->"7a8afcac-5a7b-41fd-b417-98472b0f0a53"] + CellChangeTimes->{{3.993816312116229*^9, 3.993816401562501*^9}, + 3.9942561882240887`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"baa71dd5-dde2-4a32-9b1d-3fd7afcc31f0"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184866880085*^9, 3.9918486688048573`*^9}}, - CellLabel-> - "In[478]:=",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], + CellLabel->"In[72]:=",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], Cell[CellGroupData[{ @@ -4832,19 +4762,17 @@ Cell[BoxData[ RowBox[{"f2", "=", "0.57757"}]], "Input", CellChangeTimes->{ 3.991799414288656*^9, {3.9938162670285997`*^9, 3.993816273548993*^9}}, - CellLabel-> - "In[479]:=",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], + CellLabel->"In[73]:=",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], Cell[BoxData["0.57757`"], "Output", - CellChangeTimes->{{3.993816312132277*^9, 3.9938164015814123`*^9}}, - CellLabel-> - "Out[479]=",ExpressionUUID->"dbb7b6a5-26fa-450c-bf3b-b84937e2be2e"] + CellChangeTimes->{{3.993816312132277*^9, 3.9938164015814123`*^9}, + 3.994256188233569*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"ac918aa4-95c5-4028-9adf-003e8b09e1f6"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848669922333*^9, 3.9918486699293537`*^9}}, - CellLabel-> - "In[480]:=",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], + CellLabel->"In[74]:=",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ @@ -4890,14 +4818,13 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel-> - "In[481]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], + CellLabel->"In[75]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], Cell[BoxData["1.5276604288963894`*^-53"], "Output", CellChangeTimes->{ - 3.99132042156752*^9, {3.9938163121552143`*^9, 3.993816401599843*^9}}, - CellLabel-> - "Out[481]=",ExpressionUUID->"bad4af36-1f4e-40ba-8366-e40b1978f34c"] + 3.99132042156752*^9, {3.9938163121552143`*^9, 3.993816401599843*^9}, + 3.994256188245081*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"6d27cfdc-a68d-4c24-98f6-c7bd9542441e"] }, Open ]], Cell[CellGroupData[{ @@ -4932,14 +4859,13 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", CellChangeTimes->{3.991557471461853*^9}, - CellLabel-> - "In[482]:=",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], + CellLabel->"In[76]:=",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], Cell[BoxData["1.6462096260890383`*^-54"], "Output", CellChangeTimes->{ - 3.99132042159643*^9, {3.993816312168703*^9, 3.993816401616685*^9}}, - CellLabel-> - "Out[482]=",ExpressionUUID->"78fcebbc-de9c-4274-b8e7-debfed9eaadd"] + 3.99132042159643*^9, {3.993816312168703*^9, 3.993816401616685*^9}, + 3.994256188252643*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"a96ca2df-39b1-45ba-91ee-7e91d3ca4a40"] }, Open ]], Cell[CellGroupData[{ @@ -4973,14 +4899,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", CellChangeTimes->{{3.991557474366678*^9, 3.99155747655138*^9}}, - CellLabel-> - "In[483]:=",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], + CellLabel->"In[77]:=",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], Cell[BoxData["2.936435831262569`*^-54"], "Output", CellChangeTimes->{ - 3.9913204216085243`*^9, {3.993816312181642*^9, 3.99381640163239*^9}}, - CellLabel-> - "Out[483]=",ExpressionUUID->"ac1d6e70-d0ac-4c8e-9a46-ddb335b81d79"] + 3.9913204216085243`*^9, {3.993816312181642*^9, 3.99381640163239*^9}, + 3.994256188257628*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"779df7f2-13b4-4332-973a-78cbcd61c444"] }, Open ]], Cell[CellGroupData[{ @@ -5003,8 +4928,7 @@ Cell[BoxData[ FractionBox[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", - CellLabel-> - "In[484]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], + CellLabel->"In[78]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], Cell[BoxData["15.308434398438735`"], "Output", CellChangeTimes->{ @@ -5014,9 +4938,8 @@ Cell[BoxData["15.308434398438735`"], "Output", 3.99208680410137*^9}, 3.992091247458048*^9, {3.992091392660454*^9, 3.992091446805294*^9}, {3.9920915031404457`*^9, 3.992091522601553*^9}, { 3.9920915619364376`*^9, 3.9920915885645847`*^9}, {3.9938163121978483`*^9, - 3.993816401647807*^9}}, - CellLabel-> - "Out[484]=",ExpressionUUID->"bc12d600-6f53-4b9a-bc6e-ba60d665de90"] + 3.993816401647807*^9}, 3.9942561882623787`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"5932af2f-ab32-49b3-bafb-e98c9357159c"] }, Open ]], Cell[CellGroupData[{ @@ -5042,8 +4965,7 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", CellChangeTimes->{3.992086162437586*^9}, - CellLabel-> - "In[485]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], + CellLabel->"In[79]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], Cell[BoxData["51.158951496930946`"], "Output", CellChangeTimes->{ @@ -5052,9 +4974,9 @@ Cell[BoxData["51.158951496930946`"], "Output", 3.992086668289461*^9, {3.992086776775297*^9, 3.9920868041333256`*^9}, 3.992091247484524*^9, {3.9920913926676064`*^9, 3.9920914468313007`*^9}, { 3.9920915031479607`*^9, 3.9920915226223583`*^9}, {3.9920915619450817`*^9, - 3.992091588571615*^9}, {3.993816312210924*^9, 3.993816401663506*^9}}, - CellLabel-> - "Out[485]=",ExpressionUUID->"e82b0cbe-fd45-4152-9d35-25890b55d736"] + 3.992091588571615*^9}, {3.993816312210924*^9, 3.993816401663506*^9}, + 3.994256188267528*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"76bcdd24-a894-4d91-829b-68951d9f951f"] }, Open ]], Cell[CellGroupData[{ @@ -5063,8 +4985,7 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", - CellLabel-> - "In[486]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], + CellLabel->"In[80]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], Cell[BoxData["1.5571237978675914`"], "Output", CellChangeTimes->{ @@ -5074,9 +4995,8 @@ Cell[BoxData["1.5571237978675914`"], "Output", 3.9920868041580334`*^9}, 3.9920912474925404`*^9, {3.9920913926935654`*^9, 3.992091446837303*^9}, {3.9920915031795254`*^9, 3.992091522629343*^9}, { 3.9920915619686337`*^9, 3.992091588596325*^9}, {3.993816312223361*^9, - 3.993816401678638*^9}}, - CellLabel-> - "Out[486]=",ExpressionUUID->"a702f36a-c9a3-4684-93ef-8dcb7b45e452"] + 3.993816401678638*^9}, 3.994256188272005*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"315049f1-d71e-40c1-93f3-06e39474f156"] }, Open ]], Cell[CellGroupData[{ @@ -5086,8 +5006,7 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kw", "Qw2"]]}]], "Input", CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, - CellLabel-> - "In[487]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], + CellLabel->"In[81]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], Cell[BoxData["4.041604832628612`"], "Output", CellChangeTimes->{ @@ -5096,9 +5015,8 @@ Cell[BoxData["4.041604832628612`"], "Output", 3.9920867768061504`*^9, 3.9920868041630306`*^9}, 3.992091247522402*^9, { 3.992091392715067*^9, 3.9920914468593006`*^9}, {3.992091503202347*^9, 3.992091522636343*^9}, {3.992091561975609*^9, 3.99209158860334*^9}, { - 3.993816312237322*^9, 3.99381640169518*^9}}, - CellLabel-> - "Out[487]=",ExpressionUUID->"8155ab12-df8c-4291-8f77-a45e0b1ec5ba"] + 3.993816312237322*^9, 3.99381640169518*^9}, 3.9942561882763243`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"36aa0438-f4c6-4d53-8e04-1246938b6c68"] }, Open ]], Cell[CellGroupData[{ @@ -5108,8 +5026,7 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", CellChangeTimes->{3.992086167409481*^9}, - CellLabel-> - "In[488]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], + CellLabel->"In[82]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], Cell[BoxData["206.76426560220887`"], "Output", CellChangeTimes->{ @@ -5118,9 +5035,9 @@ Cell[BoxData["206.76426560220887`"], "Output", 3.9920866683466625`*^9, {3.9920867768341465`*^9, 3.9920868041850357`*^9}, 3.992091247547844*^9, {3.9920913927375374`*^9, 3.992091446867302*^9}, { 3.992091503209553*^9, 3.992091522657341*^9}, {3.992091561999613*^9, - 3.9920915886284447`*^9}, {3.993816312249797*^9, 3.9938164017109737`*^9}}, - CellLabel-> - "Out[488]=",ExpressionUUID->"e5427862-c331-47cd-addf-db8ab630b65d"] + 3.9920915886284447`*^9}, {3.993816312249797*^9, 3.9938164017109737`*^9}, + 3.994256188280499*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"3791c118-d727-4123-8b2c-957b21310982"] }, Open ]], Cell[CellGroupData[{ @@ -5129,8 +5046,7 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[489]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], + CellLabel->"In[83]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], Cell[BoxData["23.837127509903798`"], "Output", CellChangeTimes->{ @@ -5140,9 +5056,8 @@ Cell[BoxData["23.837127509903798`"], "Output", 3.992086804192051*^9}, 3.9920912475547256`*^9, {3.9920913927436028`*^9, 3.992091446891386*^9}, {3.9920915032325726`*^9, 3.992091522664852*^9}, { 3.992091562006651*^9, 3.992091588636162*^9}, {3.993816312262484*^9, - 3.9938164017265053`*^9}}, - CellLabel-> - "Out[489]=",ExpressionUUID->"2a6c3a58-c72a-414a-bb87-3b9103fd2be9"] + 3.9938164017265053`*^9}, 3.99425618828479*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"ef43bcb4-2324-4eef-b458-ace27290234a"] }, Open ]], Cell[CellGroupData[{ @@ -5331,8 +5246,7 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[490]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], + CellLabel->"In[84]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], Cell[BoxData["0.005444508056302404`"], "Output", CellChangeTimes->{ @@ -5341,9 +5255,9 @@ Cell[BoxData["0.005444508056302404`"], "Output", 3.992086602254381*^9, {3.992086776882221*^9, 3.9920868042180786`*^9}, 3.992091247578861*^9, {3.9920913927664986`*^9, 3.992091446900387*^9}, { 3.992091503241564*^9, 3.9920915226853714`*^9}, {3.9920915620301514`*^9, - 3.992091588657053*^9}, {3.993816312275735*^9, 3.9938164017442417`*^9}}, - CellLabel-> - "Out[490]=",ExpressionUUID->"af603e11-c12e-4051-aa82-8f8128a52f4f"] + 3.992091588657053*^9}, {3.993816312275735*^9, 3.9938164017442417`*^9}, + 3.994256188290327*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"68bf3388-112d-4d3b-92d3-cfb9478d7dbd"] }, Open ]], Cell[CellGroupData[{ @@ -5357,8 +5271,7 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", Background->RGBColor[0.4, 0.6, 1, 0.33], - CellLabel-> - "In[491]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], + CellLabel->"In[85]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], Cell[BoxData["12.010625298978937`"], "Output", CellChangeTimes->{ @@ -5367,10 +5280,10 @@ Cell[BoxData["12.010625298978937`"], "Output", 3.9920867769392548`*^9, 3.9920868042750893`*^9}, 3.992091250499668*^9, { 3.9920913928462048`*^9, 3.9920914469749584`*^9}, {3.992091503316616*^9, 3.9920915227624416`*^9}, {3.9920915621031647`*^9, - 3.9920915887305927`*^9}, {3.993816313847166*^9, 3.9938164018128347`*^9}}, + 3.9920915887305927`*^9}, {3.993816313847166*^9, 3.9938164018128347`*^9}, + 3.994256188427126*^9}, Background->RGBColor[0.14, 0.8, 0.14, 0.33], - CellLabel-> - "Out[491]=",ExpressionUUID->"f903f354-cf61-4bbd-8e0c-a5dcfbe758fe"] + CellLabel->"Out[85]=",ExpressionUUID->"5f54b038-6a4f-4540-9fee-7ebd3261bf1c"] }, Open ]], Cell[BoxData[ @@ -5382,8 +5295,7 @@ Cell[BoxData[ 3.992086184000986*^9, 3.9920862197077847`*^9}, {3.99208635879986*^9, 3.9920863634349823`*^9}, {3.9920864985362244`*^9, 3.992086501430176*^9}, { 3.9920869541635437`*^9, 3.992086954848522*^9}}, - CellLabel-> - "In[492]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], + CellLabel->"In[86]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ @@ -5405,14 +5317,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel-> - "In[493]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], + CellLabel->"In[87]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], Cell[BoxData["35.7442578451024`"], "Output", CellChangeTimes->{ - 3.991320421637537*^9, {3.993816313956398*^9, 3.993816401832636*^9}}, - CellLabel-> - "Out[493]=",ExpressionUUID->"c0f79413-9a60-4813-ae4d-1a65481b901f"] + 3.991320421637537*^9, {3.993816313956398*^9, 3.993816401832636*^9}, + 3.994256188435773*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"6ea7aff2-86f3-4c41-a668-3f32189780b1"] }, Open ]], Cell[CellGroupData[{ @@ -5437,14 +5348,13 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", - CellLabel-> - "In[494]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], + CellLabel->"In[88]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], Cell[BoxData["51.158951496930946`"], "Output", CellChangeTimes->{ - 3.9913204216685333`*^9, {3.9938163139722967`*^9, 3.9938164018482323`*^9}}, - CellLabel-> - "Out[494]=",ExpressionUUID->"14f40ac7-4228-402e-b758-ce53a98648c9"] + 3.9913204216685333`*^9, {3.9938163139722967`*^9, 3.9938164018482323`*^9}, + 3.994256188440259*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"ae90111f-4099-4915-a56c-ebf2b473bfab"] }, Open ]], Cell[CellGroupData[{ @@ -5453,14 +5363,13 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel-> - "In[495]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], + CellLabel->"In[89]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], Cell[BoxData["1.0190262904278176`"], "Output", CellChangeTimes->{ - 3.991320421698473*^9, {3.9938163139876823`*^9, 3.993816401868044*^9}}, - CellLabel-> - "Out[495]=",ExpressionUUID->"7e8e51d8-a785-4317-bc6d-1812864e727a"] + 3.991320421698473*^9, {3.9938163139876823`*^9, 3.993816401868044*^9}, + 3.994256188445252*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"0163073a-a842-49c4-b80f-08863832021b"] }, Open ]], Cell[CellGroupData[{ @@ -5469,14 +5378,13 @@ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", - CellLabel-> - "In[496]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], + CellLabel->"In[90]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], Cell[BoxData["4.041604832628612`"], "Output", CellChangeTimes->{ - 3.991320421726494*^9, {3.9938163140028152`*^9, 3.993816401884099*^9}}, - CellLabel-> - "Out[496]=",ExpressionUUID->"f88548f5-be3d-4490-9173-b2cb28fd4180"] + 3.991320421726494*^9, {3.9938163140028152`*^9, 3.993816401884099*^9}, + 3.9942561884496117`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"02581174-c617-4a6d-b3e8-e081c2ac4d80"] }, Open ]], Cell[CellGroupData[{ @@ -5485,14 +5393,13 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel-> - "In[497]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], + CellLabel->"In[91]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], Cell[BoxData["206.76426560220887`"], "Output", CellChangeTimes->{ - 3.9913204217554817`*^9, {3.993816314019416*^9, 3.993816401899539*^9}}, - CellLabel-> - "Out[497]=",ExpressionUUID->"095b4709-7b5a-4b64-b95e-04929a86c206"] + 3.9913204217554817`*^9, {3.993816314019416*^9, 3.993816401899539*^9}, + 3.994256188456051*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"842b8b0c-bca8-4dc5-8abf-18cab76085a6"] }, Open ]], Cell[CellGroupData[{ @@ -5501,14 +5408,13 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[498]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], + CellLabel->"In[92]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], Cell[BoxData["36.42433847599012`"], "Output", CellChangeTimes->{ - 3.9913204217855225`*^9, {3.993816314036257*^9, 3.993816401915103*^9}}, - CellLabel-> - "Out[498]=",ExpressionUUID->"8ed04c21-8a50-4275-8835-5af082119b9c"] + 3.9913204217855225`*^9, {3.993816314036257*^9, 3.993816401915103*^9}, + 3.994256188460891*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"14661d5c-de96-46d3-bb82-a80e390faaaf"] }, Open ]], Cell[CellGroupData[{ @@ -5697,14 +5603,13 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[499]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], + CellLabel->"In[93]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], Cell[BoxData["0.005095319819825358`"], "Output", CellChangeTimes->{ - 3.9913204218154297`*^9, {3.993816314053021*^9, 3.993816401933941*^9}}, - CellLabel-> - "Out[499]=",ExpressionUUID->"f1cee2d5-810b-4cae-85ac-11faf205276e"] + 3.9913204218154297`*^9, {3.993816314053021*^9, 3.993816401933941*^9}, + 3.994256188466536*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"f9c8a2ad-b1a2-439a-8608-a9d7082ebb55"] }, Open ]], Cell[CellGroupData[{ @@ -5717,14 +5622,13 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[500]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], + CellLabel->"In[94]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], Cell[BoxData["12.41535712122424`"], "Output", CellChangeTimes->{ - 3.991320422776104*^9, {3.993816315629736*^9, 3.9938164020012007`*^9}}, - CellLabel-> - "Out[500]=",ExpressionUUID->"e2020e28-bc6a-4395-a19e-8ddb536157c9"] + 3.991320422776104*^9, {3.993816315629736*^9, 3.9938164020012007`*^9}, + 3.9942561885082273`*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"976193fc-e33a-49f2-aca0-9c7b8e4c041e"] }, Open ]], Cell[CellGroupData[{ @@ -5915,14 +5819,13 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[501]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], + CellLabel->"In[95]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], Cell[BoxData["0.025354570057064697`"], "Output", CellChangeTimes->{ - 3.9913204229248886`*^9, {3.9938163156744204`*^9, 3.993816402018641*^9}}, - CellLabel-> - "Out[501]=",ExpressionUUID->"b1c28c25-b36d-48d3-9552-672d4865961a"] + 3.9913204229248886`*^9, {3.9938163156744204`*^9, 3.993816402018641*^9}, + 3.994256188515711*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"60b052fb-e6e7-4bed-8fea-8f0efb7ee776"] }, Open ]], Cell[CellGroupData[{ @@ -5935,14 +5838,13 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[502]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], + CellLabel->"In[96]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], Cell[BoxData["5.565661834946655`"], "Output", CellChangeTimes->{ - 3.9913204230053368`*^9, {3.9938163172316637`*^9, 3.9938164020858994`*^9}}, - CellLabel-> - "Out[502]=",ExpressionUUID->"4f0fe4a0-99be-42b7-aa0c-b0bd5b43d08d"] + 3.9913204230053368`*^9, {3.9938163172316637`*^9, 3.9938164020858994`*^9}, + 3.994256188553933*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"7d78ad97-b87e-4c18-99b3-af297aef72ed"] }, Open ]], Cell[CellGroupData[{ @@ -6034,14 +5936,13 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[503]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], + CellLabel->"In[97]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], Cell[BoxData["0.12078091092707918`"], "Output", CellChangeTimes->{ - 3.9913204230393543`*^9, {3.993816317257627*^9, 3.993816402106213*^9}}, - CellLabel-> - "Out[503]=",ExpressionUUID->"704c42d5-744b-4840-a2ae-97d722fd0d03"] + 3.9913204230393543`*^9, {3.993816317257627*^9, 3.993816402106213*^9}, + 3.994256188560556*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"4e471321-f67f-4d1a-aa9d-a64152a1232f"] }, Open ]], Cell[CellGroupData[{ @@ -6130,14 +6031,13 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[504]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], + CellLabel->"In[98]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], Cell[BoxData["0.8792190890729209`"], "Output", CellChangeTimes->{ - 3.9913204230728855`*^9, {3.993816317273553*^9, 3.993816402125333*^9}}, - CellLabel-> - "Out[504]=",ExpressionUUID->"048dcdc4-d992-43e8-982a-0818fae2e502"] + 3.9913204230728855`*^9, {3.993816317273553*^9, 3.993816402125333*^9}, + 3.994256188616827*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"9d5c6d49-21b2-4a47-a786-52c250de1c37"] }, Open ]], Cell[CellGroupData[{ @@ -6259,21 +6159,20 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel-> - "In[505]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], + CellLabel->"In[99]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], Cell[BoxData["0.10619288248270414`"], "Output", CellChangeTimes->{ - 3.9913204231038837`*^9, {3.993816317291821*^9, 3.993816402143034*^9}}, - CellLabel-> - "Out[505]=",ExpressionUUID->"45362ca2-8505-4c0c-be80-6810f9e2e262"] + 3.9913204231038837`*^9, {3.993816317291821*^9, 3.993816402143034*^9}, + 3.9942561886226883`*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"7bbbc7a8-5454-4f41-b316-de737640a32d"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellLabel-> - "In[506]:=",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], + "In[100]:=",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ @@ -6287,30 +6186,33 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -6336,75 +6238,81 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.991799443370365*^9}, CellLabel-> - "In[507]:=",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], + "In[101]:=",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.808116517235726`*^-218\\\", \ -\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ -9984000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 507, 21, 31384773586072888339, - "Local"}, +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 101, 1, + 31387658245461100368, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ - 3.9913204231548862`*^9, {3.993816317356967*^9, 3.993816402168186*^9}}, + 3.9913204231548862`*^9, {3.993816317356967*^9, 3.993816402168186*^9}, + 3.994256188646226*^9}, CellLabel-> "During evaluation of \ -In[507]:=",ExpressionUUID->"4f7a78d1-66f0-4b72-ab98-8fb879f3c3fa"], +In[101]:=",ExpressionUUID->"94ce46d3-7747-4114-aa8f-9d2dafa884c3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.77428899219344`*^-223\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 507, 22, 31384773586072888339, - "Local"}, +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 101, 2, 31387658245461100368, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ - 3.9913204231548862`*^9, {3.993816317356967*^9, 3.993816402172474*^9}}, + 3.9913204231548862`*^9, {3.993816317356967*^9, 3.993816402168186*^9}, + 3.9942561886969137`*^9}, CellLabel-> "During evaluation of \ -In[507]:=",ExpressionUUID->"284c8af2-e4c3-4e65-aaf3-f027d91c853c"], +In[101]:=",ExpressionUUID->"1711bffe-f2ca-4800-89c6-218d63d94252"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"6.547473249730464`*^-229\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 507, 23, - 31384773586072888339, "Local"}, +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 101, 3, 31387658245461100368, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ - 3.9913204231548862`*^9, {3.993816317356967*^9, 3.993816402176859*^9}}, + 3.9913204231548862`*^9, {3.993816317356967*^9, 3.993816402168186*^9}, + 3.994256188701646*^9}, CellLabel-> "During evaluation of \ -In[507]:=",ExpressionUUID->"b93f277d-0a8c-47fc-832f-87564d92c77d"], +In[101]:=",ExpressionUUID->"72979c7a-f910-4ce5-b3ba-2e9f252fe8bd"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 507, 24, 31384773586072888339, "Local"}, +during this calculation.\"", 2, 101, 4, 31387658245461100368, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ - 3.9913204231548862`*^9, {3.993816317356967*^9, 3.9938164021802273`*^9}}, + 3.9913204231548862`*^9, {3.993816317356967*^9, 3.993816402168186*^9}, + 3.99425618870497*^9}, CellLabel-> "During evaluation of \ -In[507]:=",ExpressionUUID->"5b760d07-5b58-431e-adf7-8d3eab9b5cb8"], +In[101]:=",ExpressionUUID->"506452ff-bce2-47c7-b621-b1caeff9c89a"], -Cell[BoxData["$Aborted"], "Output", +Cell[BoxData["12.41535712122423`"], "Output", CellChangeTimes->{ - 3.9913204260017204`*^9, {3.9938163357935343`*^9, 3.993816403548984*^9}}, + 3.9913204260017204`*^9, {3.9938163357935343`*^9, 3.993816403548984*^9}, + 3.9942561899107943`*^9}, CellLabel-> - "Out[507]=",ExpressionUUID->"e19f4ec4-fcd9-417a-986f-aa0ead64d1c1"] + "Out[101]=",ExpressionUUID->"42f2f762-5400-4474-8d48-5cdb39fff396"] }, Open ]], Cell[CellGroupData[{ @@ -6419,30 +6327,33 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -6468,70 +6379,76 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.9917994459475594`*^9}, CellLabel-> - "In[203]:=",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], + "In[102]:=",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9654103398610533`*^-219\\\", \ -\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ -9984000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 203, 9, 31384773586072888339, - "Local"}, + "\"\\!\\(\\*FractionBox[\\\"4.808116517235726`*^-218\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 5, + 31387658245461100368, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913204262354183`*^9, 3.993816341906934*^9}, + CellChangeTimes->{3.9913204262354183`*^9, 3.993816341906934*^9, + 3.9942561899746037`*^9}, CellLabel-> "During evaluation of \ -In[203]:=",ExpressionUUID->"274958f5-2a7e-419c-8dc2-a90c7de1639d"], +In[102]:=",ExpressionUUID->"ca43fb11-9a3a-4785-8dfd-ee463b4f63da"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.695601028777013`*^-225\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 203, 10, 31384773586072888339, - "Local"}, + "\"\\!\\(\\*FractionBox[\\\"1.77428899219344`*^-223\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 102, 6, 31387658245461100368, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913204262354183`*^9, 3.9938163419106607`*^9}, + CellChangeTimes->{3.9913204262354183`*^9, 3.993816341906934*^9, + 3.9942561900050507`*^9}, CellLabel-> "During evaluation of \ -In[203]:=",ExpressionUUID->"6c25b6e2-a3c0-43e6-b374-cf0e48518d2c"], +In[102]:=",ExpressionUUID->"a181f313-695a-4df9-8119-5c771f085a43"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.2810032199041547`*^-230\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 203, 11, - 31384773586072888339, "Local"}, + "\"\\!\\(\\*FractionBox[\\\"6.547473249730464`*^-229\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 102, 7, 31387658245461100368, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913204262354183`*^9, 3.99381634191374*^9}, + CellChangeTimes->{3.9913204262354183`*^9, 3.993816341906934*^9, + 3.99425619000875*^9}, CellLabel-> "During evaluation of \ -In[203]:=",ExpressionUUID->"1c82783a-5ec4-448a-bc49-ba7244d1dac3"], +In[102]:=",ExpressionUUID->"b6d853a7-a843-4279-96fb-c78fef96ec1e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 203, 12, 31384773586072888339, "Local"}, +during this calculation.\"", 2, 102, 8, 31387658245461100368, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913204262354183`*^9, 3.993816341916628*^9}, + CellChangeTimes->{3.9913204262354183`*^9, 3.993816341906934*^9, + 3.994256190013068*^9}, CellLabel-> "During evaluation of \ -In[203]:=",ExpressionUUID->"0980108d-7ceb-4527-b99c-f36cfb00c059"], +In[102]:=",ExpressionUUID->"8db2c3dc-8ff0-41e3-9720-78478a996c09"], -Cell[BoxData["5.150555771309113`"], "Output", - CellChangeTimes->{3.991320428882721*^9, 3.993816344430328*^9}, +Cell[BoxData["5.5656618349466545`"], "Output", + CellChangeTimes->{3.991320428882721*^9, 3.993816344430328*^9, + 3.994256191311153*^9}, CellLabel-> - "Out[203]=",ExpressionUUID->"7bfe0dc9-265c-4029-af6a-530f137ab01c"] + "Out[102]=",ExpressionUUID->"6197b0f4-3522-4014-824d-4586cbf0b9b2"] }, Open ]], Cell[CellGroupData[{ @@ -6541,390 +6458,142 @@ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ - FractionBox[ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", RowBox[{ - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", - RowBox[{"Cos", "[", - FractionBox[ - RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], - RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{3.9917994505623856`*^9}, CellLabel-> - "In[204]:=",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], - -Cell[BoxData["$Aborted"], "Output", - CellChangeTimes->{3.9913206956809444`*^9, 3.993816355277898*^9}, - CellLabel-> - "Out[204]=",ExpressionUUID->"d8c49173-7f8d-4c6b-b90e-476e0ec3b8b3"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"x", "=", - RowBox[{"Plot", "[", - RowBox[{ - RowBox[{ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], - RowBox[{ - RowBox[{"(", - RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", - RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", - FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", - FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", - RowBox[{"{", - RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9917994543716736`*^9},ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-\ -9aed2c391662"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.3559275616020787`*^-274\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 86, 9, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320696298666*^9}, - CellLabel-> - "During evaluation of \ -In[86]:=",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.7743624682465165`*^-285\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, 86, - 10, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320696309664*^9}, - CellLabel-> - "During evaluation of \ -In[86]:=",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.227765210043865`*^-297\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 86, 11, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320696318653*^9}, - CellLabel-> - "During evaluation of \ -In[86]:=",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], - -Cell[BoxData[ - TemplateBox[{ - "General", "stop", - "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ -\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 86, 12, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913206963286114`*^9}, - CellLabel-> - "During evaluation of \ -In[86]:=",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], + "In[103]:=",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVmHk4VV8Xx0XGMs9jppCZy3WvYe+lAVEoGdOPZCoylMxFkiEyVkKZMqUS -ShnvFVFUkjmEioyRIhR67/vPOc/nWfvsdfZa37X3OkfKxfeoGz0dHZ017fL/ -++/R9peyCYWo9o3zk23jDqg3RyjEcDAKV7/iO81bQsLA/95FaDANO976fqCv -2AQHWpYNMAwWYB6P5o+3i+0w94Jg2vpAFS7yCdRjLPbEYw3mvssDzXjDfGVq -8l4wNpKd/bQ00I2rp05PX86Ow+sDOjd/DHzBSqcapUVCb+OWfSWFHwp+4W0i -l2uqp0ux2FjtNxflTfyxRT1csrcS0/3yv91+ZBMnBScMDU1V4gkmRVP1oE3M -P5neGv+3Ej9SzXq0+WITR3Ew8rdKV2F0KTTgtu0WfsYeeqrCrwo7ievRd0b9 -w+STMzqWbE/wB5XRpDvzdLBctb7LS+sp5vN2KmPexwCn5ed6504+w4rM99os -bRmg1ziTcfz8MwwF375kejGA8eaT2Zarz7D34FlR5RsM4M1DKnO4/wy/3B+e -aDnJALJOrHPNi89wgHimT2bsdviBjIQDQ57jns5uTaW3jBC5OO+tEFmDp08L -WASMM0LELmfjbSk1eGu7g1fjMiOY/5fR8Dq3Bivqfb5nIc4EgQMe9jLUGhxV -ssgX4MMEk4z3kpk2a7Bm5M7VBi5msJ1y6Lh0oRanaRjVm1uzwMNT+cms9nVY -bdje2MCTBZr3B+Y3udXht9Fne5TCWCCj+uaox7k6zDR4Y44lnwW0ROs7YhLq -cNilr6It8yzw3gFtMTbWYdc3keE60ayAn6YUMInXY6JbvYHkEzb4eUMi609X -Pe7heN/O0cYGJZUFkRXD9div5ov15iAb+JKi1G2+1eOyHWw+Q1tsELqsOOH3 -tx7vqrLLuWG6AwYOe7l9lW3ALP9Wtli+7ICzQ8XH6gMa8Mfb6k1LXOzA6HBL -W5WlEWf1POAM3M0OvP1V2encjdiBQ97pD5kdtHf0v50UacQjV8S36E+xw5rW -zWRLlUY87sOmz1fNDrsT9TPwkUY8vX/iOdGeA3hKvi5fudmI70c4Mdef5YD5 -PcMyz+424jN1QzY0sUA9XYNsX1Ejnlf7sGL8gAPKXOrzPlY34h8iFIL9JgfI -KBUWbfQ24rUfGY/D8jkhWtth/0NOCq5V4v33r5oTSofT9z4UoOBQ9yTz6A5O -SGB6o5IpTsEbw9HfE39xAuFKWS9ZiYIjv9bwv5fmgneODWW3DlBwdGeR1XgA -F3gW0883BVLwhNepMOkILsj0MNlKCafgA6xS91zjueBSiZKyeRQFM+2/83P6 -LhesTu2cSb5OwXG1aalLbVxQelnKQuMeBScURrynF+YGkS93TBY7KNhU6zQP -vww3+NRseV58T8EsL49ay6tww8ST5rT1Hpr/r7uHzQy5oY1vP1/DCAWHS7/9 -duM0N2imp1qc+U7BulXVe0rOc8PjuGXd00sUvGaY6117kRvU/u20tlmh4Asn -z/38lMoNoIv3/N2gYJ88oS25Otp4ettx3x1UrKxOb0h+yQ0Ck/nvxzmoeJY6 -d8WskxtUtJkEgYeKPcYorH5fuOHL5t+WdiEqdpZw469l44FkOU0C224qlig3 -t3vDxwOl4BuxIE/FIwak7E8SPJB9TOLIC0UqtjuxQ4qewANCHEV3NNWp+Mid -SmWz4zww5XP20n5dKuZSzvY94cYD+Vvfcu/qU3FnfXSVry8P7M2nD55EVGw6 -bEu6cYUHrjzsczPcR8UsXoZhxdd54PtEYpz1ASpu+6NIqcnggYWKyTA7Yyre -K7K179MDHhA0FV9UNKNiurKpmMVqHjBQ8A//c4iKKeQP7duaeCDzjuVKjTkV -69kXWsj18oCSs14r/VEq/jN9PY00ygM3dqgpJllRcU1wUJ/pNA90TV66xWJN -xVq3TY/7bvDAeZG8/A5bKv4pr5VzmYkXJiXemPPYU3HFc/HP6Vy8sHiVUfKg -AxX7GDPLFovwAvPOXDHf41SsMvDDvUaWF64arZhFO1LxvPvQ/Q5VXnBNP18d -d4KKy363zI+QeKGPJd05/D8qlhPIOLftMC+kb3zK1HCm4omiyGpeW15QfIh1 -ftG4QPvM2u6TvPC2tVyr8CQtP61WeiQvXtDcNp2534WWH2uDS6YXeIHOq9qn -l8YjE3IvHCN4YcFqoc7qFBVnBXBt943nBR4Iimmmsd32P0aX03lhe7/hR0lX -Kha88TU+/S4vMHYeqvehsZBSdfRaMS8cFgq6VUpjkeaYiBMVvKASraTRS2Mx -e7vQ5lpeGHvEmLZEY4kfey7It/BCz0QZlc6NiiVj//omvuWFuF0dTdtoLC3x -7sxSHy/cXBS9s0wbL1ud42YzxgveF1zsPtJ49yE/5/ppXtA/dnrjMY3lvhoe -l/zJC+1FjMnBNFYI5bW5+pcX5Bf4BQk0VuSetJzdzgfJnFHZY7T1KJc+M7Pg -4ANmpCdzicaqOM7oqSAfqP7Sq+agsXq/vaGwFB8Mfo61S6XFR/Oskv4lRT5o -mlHiY6IxYfsm8SuBD4g70KI3Lb5a2Z0aJgZ8kOnw6UcrLf5EzTzlR0Z8wLas -IclNY1K7vzyPJR8sL3hHmztRsa7zPukgez5IP/Ja9hItn/qrfOIjLnwQuD2W -JY+Wb5T0TdDQmw/o25aJT2l6MGyIZ98RwQcelqTUJzT97LU6zuIXR/N/9MOb -HJq+9s8qM/Sl8sF/9bk+4XZUbCLUtZZTyAeybM1snDZUbBEgMKHZwQe1dAZ+ -aZZUbLljejSjhw8qFd2o3BZUfLSg9uPGCB9Qr3s+uXKYim26HN+3LfIBX9ZS -KTal4hPK9+oc+PkhS9O9UIhWb/+1BFRTJfhh98fYZRVDmr4cjCpkFfiBoYeo -QMRU7Bo3U7Sgyw8SX5UcdulRsdeEWmqUMz+w0T1ot9akYu+wbYlTp/nh/jRJ -kIFW/z48PTGHzvODZdda3D0VKj4HgeECMfxw1HZxvVGBikPuNHiUPeAHimbA -ur0EFcceO4i6f/PDUL7kS21mmt6edorQbxMAwc32sD4GKi7nPbaqsUMApNlF -nrrTUXF/938VqbsEoKmzt/vEOgXLHgmQPmIiAPn3q//lzlJw8+Fcpq5MAQi8 -kj13kbb/2jyS/frvngBM+u+f122j4NmdZVS1cgFo7+OXnn1BwdxvnwYnNwvA -rwT/47tqKdjZtGPWfE4AWvWDTL8VU/Cm0UrnO31B8Oj3OvEjgoJTikMfbBoJ -wmBPolJ/KM0/E12cyhFBiFhVmiu/QMGHWtkMr7sJwvXH333IXhSctU/yyaEk -QdjZu3voiTUFk8As482YIGj9mho3UaDg8+R8p/YoIbjmuPrt4MtGbJrHsWyW -KAQ53VqLApRGLM0cHtd5UwggjX3h4/NG3NVrU9lTKgR37d+sGT5oxKp+OxlG -O4XAP6LuVHYq7bwtDir+KSIMmRMfC8IdG7Ejn/l30SfC8KjF+pvhXAPev/gn -1OerCKjYCTySW6zHISY3FF/Mi0BG1jgs0PqF8nyVId7fIlAgwFpTPlqPhY45 -k2tZRGFjuDBYpLMez9e0rjKoioLYjUOOOQ/rcXpUSkBmsCgYU/8LdPasx1/4 -5XxesovBKaM4cb7hOnxZ/8hJEZI4KLPdeOv+uBbrlmc+vUTdBRdLjG8oz9H6 -t7WlyNfsUqB7IPW+sfpTvK7ENapiLQ0F52Q9KKRKrP/gYd6tWzKwShkuqhl6 -iJd4TJ1tmmUB3hxS1mEsxROJzjbnmOVA7XfOXX2Le/jgYtDBSaI89O7+HsG+ -lIPFNCRiWPTl4YhJXi65OwcvnHvZrGQoD1bjtx+FPsnBN35z6Z8zk4fsjJxU -vcAcPLp5X/WfkzyQmiRcajbu4nM7R3iF4+WhhaIreZf9Ls7aA6OHhuVhI8qh -kgln4/lTLOefRijAFwG+2edjGXghZ38jNVoBzPNsuK+2ZeDFj5HMb+IVILbx -Yanbowz802I9+3O6AvQpFfOeDMvAq3qzLzlKFUBJy+wQCGVger63Aqe7aCzJ -WpptfQsLv0yuE5faA8UBn51zRm/Q+ndB+tjmPSAW8mjOVyENz7gYl+q92gOM -1MtbB/nTcGJ+kPmPN3sgtu3OTQJ9Gu6RGMyy79sDmaOJOtojqdhZOJOgPL0H -1sb2ZS6lpOIQDlG3D+yKUN4wrHNwMwU/XJN4LWqvCE3FxyoSmpOxhY6FT9cJ -RUj/OFbHnJeMf16I4LvqoghaKW1y+ReTMfnXmPOClyIwbwnPKZGTcdv3vPWm -S4pg1sqbm1uZhMe+SCu5FyqCbfdxl18l1zHPO7mkikVFYGRlU5q+n4C3FtWL -OpYVwavz/neHuAQ8y6PXMLGuCHutiGIL7gm42c5iVmi7EtwTuOt/QTYBn58I -MrospAQCa4VzjPnXcO/f11tHDJUg4HN3gHhePM5Q9PL9laYEL0yRWV51LI4+ -fCGG/bYSHDvXEPY3Ixb7+UXclb+rBPsPsFQEhMZik2fpb46XKEGjamVfE46l -9VcN8i/rlcBvj9iPxjcx2MGeffzGhBJMLxWp6M5cxWJxjy2JRGWQdOd+XEGO -xmXlj1rWdZUBFCHNSSoak/oeEBuxMtiM2YTKsUbjY9KlYvsPKoNwRp3QxuAV -nNiQN33EURm+kbo7XoZcwX9/pEaejVKGV8Te6UZqFB6yD6go7FQGEr2w9ajj -ZewZeU7Gs0cZHnwsy/Uxvox/F/vdUhpUhoZrTvN8mpcxz7J3eNVnZfB4oX3o -HvNlbJrkZtK0rAxtacrurU8icW2zzfiwiAoEnqnm5OaKxLeVyFy8HiqgsY9k -U15xEVubvUuheKlA7LXC+M6Ei5jH6yT3GT8VyEgrMeD3uIgTyuJ5XoSoQK5C -ZSW/xEV8ac8Qn2+iCgj6S6WPXQ/HrvJhwm8qVUCMPTbnYkAY1pBplL6yoQL1 -LOU3BE+E4IW9R+6pblMFOQrZ9b1+CC5zmZQZYlQFpeIk/jKxECxbwL5bg1MV -Pv5iffhqJBgLSf0nPyalCpUFecl5/wXjLYl/SnrGqnDB8EVihWcQ7hAx1P6V -qgrnr1+zj7l5AXdJPJbbnqEKBqmagfRBF3C/tLgQ/x1V2Dv9Lvae3QX8WXH9 -D7GYZs+i/LMSu4DXdCubQutUoclLPeJMUQCWOy51iP6rKhiVOAxYUM7jqOxt -p7i11KDaeFKHi+0cjsv1PSZNVoOzHxQOzCz646R7nw4QkBqU/+cs8LXPH2c+ -qFWwNlGDFVOJK6QCf1xR779w21EN4o7+3HLX98ejw59DJK+qQdJXhqvPAv2w -rlhzilq/Gvw8UBYbu90Hf5GRHZ0ZUgPBoYSS6aGzOF4pRqlwTA3cX4ztDK88 -iwd1TduEZtQg7EXMBMnpLA6y7/67bUMN0neMBDI2emMHM3/CLJc6/DHdpGu6 -7IVvxV3OaSCqg3ghMdVX9TQ+k6jZKkxWh/3cp5Ya2E5jlPJ1LlBPHXxtNp4S -pzzxZMYBsgaoQ/4RnqryPE+sVcLaW3RQHRTbn2c/4PfE3a2prMmO6qD2dNSi -itkDczAUBJyMUocq69HkZjY3zLROtVqKVofGwwrrdTOueGvhk+blWHVwYnaV -//zaFS8OCS/lJdKeV71E9yzWFXdVpZ4dv6UO8RVsi2HMrjjN5bK70wN1uP3f -rZtmnKewQLOz3Yledag99+dEJjqJOWou6XzvV4eZv1YPp6RPYqbyOwIXP6rD -YnDHxRPMJ/Fq5mDvnVF1cNj9bJ7S5YwH/S2PjEyrw2N7mX4rN2ecJQWmxzfV -IVmEJVBXyQlLXN6lby+nATc1i9K/Sjvi8vMs0p8UNODO3qipmJXjGLkvMZ9U -0gC2cPObXq+P4xNmLT2e6hrA9LKGsupzHN/h9/AK1tUA4yWeTB6qAxYuK8/K -MNcAgvK1UXYve8zXY7DeF6gBL78kKzD+sMGFrXJj9iG0+d7s24U6bDChhrP1 -U5gG1J9M/VNeaIOP3v2cMhmpAZm7tvbqONjgVI+rCivXNMCqOtp96JU15th4 -a8uXqwFXZA10VB8dw6y7HZ8dfUV733efGLVyjuIzwtj0QbsGbA816duKPIo7 -2KVHGd5qQL/L422/Th3Fib+nGKu7NMA237PYRvEo5nh93lpwiGY3FLjLWHuE -Vu8Jy8PzGpCzRHnb/8kSi1XWabrxaMIxjWnBmVhzHF50t62RTxPOi90PELI1 -x58yIx0EBDXhmrdlepKcOc6JMop6JaoJ75oZKw63HcaSx7o/7NmtCbuH6B6z -sx7Gu1dn/BZ0NEG9V1fFJNsMqxoIPw46oQn5mnm9x36Y4Ccyp//SO2tCReHU -DtOXJpjEVmuc5KIJwxfqOGNum+C9A3bjhR6a4COcPN9laIJt/G9zd/trwoPL -hlIlGcY4okgwQDlGEwK6CTJ0lka4i12A/LlcEw54tAp9+LEPWy+7XfWu1ISf -oHDs29t9eGio+sPqE00owzsqiPf34YkS6zMctZrgMXXaL9ZlH23/v5mt16IJ -hGaFhrGBvVgqkG/r5oAmpGUcFJZ+Z4jPjfK0mNIRgEe6QMyXivHrNsfGMnoC -fI+esqeLx1jicfFzNkYCLBNKtKaOYtwRofuwg5UAhX+tvjyZQlhayuWmKS8B -7m81ierzI/zhVKWHqRwBPAY4mvIj9LH6jMVO00ME0C/7PvIgiYxjPmQylZkT -4Kmemj+PCxmP1H6lYztCgFC/iZImbTKOuxa00m5NgAgtduefn0h4XCl39KAT -AdTNhztzNUg4xWeh4uA5Arg3R4x2TBLx4q9E64O3CfDOPuJxwyUtPDKYb3M3 -iwCHBm1ecB7Xwh2Nz2yX7hAg0XZO4Y6OFi6MHbfPzCfAgpnSI6clAnYQ1fpv -powACcVjCXEeBNy6d9g9vpEABwSubhP9TxNnp+4Jbv9CABmKqJX0OXUcF4hC -xCcJQLik9pzJWh0HHrcK9Z8iwLE6ifciJHVsuftiuPA8AapLf2/lb6phptqu -yNMrBOCz3O8/LKaG/ceD4llZtIB0ivTBzlsFG6u1ZR1U0YIr2cr2Y2aK2I7J -5FiXmhbsFD2zkSikiM98ame31dQC6fKu3IzJPTgp4V2kq44WQOa+qBeRe3D/ -VK97hKEWnKS4y9rWK2DXvK+a1dZa8Pj38V0shvI4invbG8lLWtBnL3Mp55os -vjEdFV0SqQXZjRxqPSdlcTF1O1K9ogUzgc7mVmRZ3HGWpVIvTguo2X1DhBkZ -zN3BmWGTpgWNln/dPQ/J4LwoiVOJxVpwwdY1jSApjSm/9P6udmpBoaHEEcLy -Lpz/9rmL1QctOO/LorTyfBeOLiJ0lPdoQZzcKTap8F34oK1SptugFhz+z0Dl -KeMu3FsnotPzWQuKf/JFV4tL4NnL6+fKl7Xg6XHXm+nOYliA6/msq4g2mEeN -nHdXEcbr05pHm8S0YfuImpraphAeeVFeK7pLG2rSTCzM3wnh/PPFcd0y2hBH -JkRf9xHCygM35UBFGybbPxynqxbEe3MCXERBG0psngI+IoB9lDWHPrhpg1Do -338xLbz4wqrIHydPbZBiunZrLJMXhzcziCyc0YYDFgyR1/x4cYJdnz2bnzag -+t2/eiV4cWl08Me9odqQF6wmqxzBg7+MUAafJGkDnfhjMTdzbjxTUrJmmKoN -yxaTwTl7uPGPcylCXenawPmXQJBi5Mb/WFzs5m9rg7X1j0K6Ri4sps04KHtP -G7AQ2xchdS5sc91s4OZzGudqRocYceATdlqrMnXa8DJTvfkOIwd2lREXrGrQ -hj++s1l7W9nx+doFm84X2rBIV2HOY8SOUyZT+5neasOLa/uDSw7vxB0Gg31B -49rw1Kmmdfg8GzZYcO21ZyXC1/D4R1YCzFig3rigYQcRdqY7tzpPMeGFWEW/ -XRxEYCm3ev2qhgnnSP3YMclDhNHRTs58Rya8dSxsn58YERKMo518SxkxtT61 -KkaNCMkfXgkuW2zHt+MCImc0iKDu1b1uI7cd+1nbmh/SIgJHXZ8u2yYDllwU -m+UmE2Gu0fG20wMGHCldKnV3LxFecO5XeraDARvGU1KeWBNhml55/fbQNixi -k/+fgB0RuHz3MzRVb8M/paOVQxyIUK557b1q6jZc0HDwNXIiwts04eLPJtsw -/Y/ef+2eRPhC9xEl1dPhFps5n/EwIojyownF4//QAVmhw+wFRGD//qpWPeov -evq9Vcq1kGY3U2quPvgXyT4//7uumAj8FVGnS7n/ou2m73M9HxDBZjQ1tKfg -D2r2jfnZ8pQI6WE7tJU61hGqX84IfUWEhld375OV11B5dIH3h3YiPD3bqoD+ -rCJxc0tDhbdEsFw74Fv4ehVtjD+Y7esigkwqITbdfRXVMZ0y0Bgigu3VklvT -xb8R8eiHL1PzRAhYvpw1QFpBxaIRz9EiEZgWh+VKdq4g/knlxJtLRHCbV+95 -N76MloPitPf9JoIL4zCLxLVlVHUXx+X8IwLlsFVyzfgvpDbzSMWaRwckv7RU -mN/9iRQirwU36+iAs5Kz77rFD9SgV8R4SFcH7qp5OeUr/kCWq9S0Pn0duBg+ -5prF+AMF+6w8nDbUgbIwZ50/wYvotaPzZ45DOvD9u8Snb8cXkCeZaHrcWQe2 -TMmBmmgebSxbDky46EDIeog65+YcSqnwcvVx0wHPyT1XQxvmUI18/qXLZ3Tg -ukLy6TX9OcQisPNJSYAOFDDbXfPfP4vu//wsuhynA3hKJu6U9zRC5RulFxN0 -YJErf7WQMI26TwsSmZN0AIwuFJ/6O4X+jB+yFEnXgfXExapjiVPI9P3zaLir -A03O/+JnnnxDsw+uf0+s1IEjTjPx24UnkaIbmbp7SAfuvVe/nab1BSVLm/+5 -MqIDQiNFNy/v/IKWx1y0v4zqgFv2pZCXE58RxSHxQc5XHZC3Cflv363P6Kjl -WIbgdx1w3N/cxrs5jkL0rvqx0pGgNsTqyHTVGBpdy3zgQU+ClrLvbx56j6G9 -z8q/tW4nwY0EOz9G+TG0U2PQMYqVBEZFK9k+d0dRnpzSwb88JCjWWK6jS/2E -XnN/kPq+mwQMfVp9ymnDSOX9pKOZAgmKAphly48No7TEPxn3FUmwmfhbukpw -GDkyy3K4q5Gg4P1nIZQ7hBY3Av+MkkiQZyJQfPDpRyQwLdbTZUaifd8xBVit -DCA3imf0U38SpM3qp1e+7UULZ2eDDgSQILnb4nprZi8KFvf26g8kgateRail -Ry+6Fu57dC2MBMQPI3yvGHpRhW6gpH4MCe5nrDCI7u1BG8+uNLRkkUAyqD48 -qucDinFnrDh2lwSZJoTRpJIPiFMg9t5kLgn69BKf04d/QNIXrl1jLiLB81V5 -krjcB2RMSLUze0wCxrmlou0RXSjtcc5ydwsJlM8V19Re7URiTpLTp9pIMES9 -wrlE7kRFHAXDy69JENO5rDqy8A7VnC1qFugkwUAFIfiVwzv0SelhisMgCVIv -ODe36b5FCqW1yl/mSdB1idNYUKQDUfN6XZf4yeCgE1kjcqgNjR+ScgoUIsPw -cVbBTb42RLd+1v6vCBkyJtzenRxtRXuPMJszSpIhQESw4tG5VtS2TVdHWJEM -yOLCR7X8l+itSy6rIaLZhSjvZ/ha0HeOeYY2IENDKOny2clmxFFP2jLdR4bd -+05ZuTxrRpa83T+PmZBhJf6sQ7Z9M+pp2T7ieZQMaWb1PmpFL9CQ7JnyFHcy -RDYG27JZNqG/Xc9K+U+TQSy2NkhZvgmJXWS4l+VFhjnO18dOblLRib47GYV+ -ZMhb10x9foKKxq++j6wJJcPhe821B+UpaOqbltV4EhkG+3/tSBmpR8ul/1bV -ntPWvyrlW/3yOfpmY5QXX0uGsDderJ6Jz9Hg9usmX+vJILV6KSHr2HNU7yyS -eauJDK1EppXQb89QlJC27mY7GbSkNrN2cD1DXHFnwjtGyFB2tE3xashTRE+s -lJUdI0Ove++uWpOnaPnr6tuLn8lgUD750FHoKRrAV8U1vpGh2GJHy0LNE5Sz -mkvJWCTDtnqfGtl/VUjZo4/OjV4Xeqi73u/MrUQS/GL3Kdt1YfpV5tG3AZWI -q8XliBCzLpgc7Rb+blqJfkn8yH+zQxd2ZopLWKxVoLp+tn2a/LowEijJesm2 -ApkYwdV/8rpQwyuaUna4HJ3a/YA167AuxEVyXrJnKUOhrf+dkbPUBbfN+b3j -LfdRihvPm6qjujA0nCTJF3kfNRSFJL6x1QXxivN54X9KEZ+cCefmSV3AFWbD -MqslqE1uks85UBcqZX6d9OMoRiNtty/MB+uCTT/jjZ29Rein+6H+4DBdOJDz -/bRBVhHaVfIkIzVSF1y0Ax1tFYpQsHyUSMs12nwsDSkHzAqRosIuSblcXfB+ -cVh7rKwAwevuyKp8Xfg47T4rHVKAbDxjPqNCXeiUrhL7ZlyArpR+L7C9rwtn -HhoKffuWj0YUGnbHP9GFRSfHyTLFfJS0x15p/pUu3EhmdopPyUVLiunEqh+6 -kNU1EHikNAsNvoUDvL90QX4Ansi6ZaEmnwWrgBVdGHgxspIlnYWSqg76E//o -woXZlXtncjORoi7dwzoGPXBbZ/t9Nu82cjl4VqpFQA+Impln2ym30ME5EXVZ -YT1w+Pj7gPTVW0j9+mt0VVQPLIPG55gP3UJbXTKOxpJ6sL9hLixg+CbKthu6 -9WaPHnDufHH4Md1N1OthvLNXXw+MQ8RGM0+lo3rWFRFtrAccXPv5lTTTUcGD -gj23DPVgY0O0XXtbOvJb3DSyM9KDzXms9iQvDbEHPb08YqEHisQlPbXJVGQU -I7U64aIH6k4TMehKCqop/Pt5JU4PzAV+W8cLJyLivoBV0wQ9OO1omB7WnYCq -P8/vzLuuByfymxVEExNQlcSojmmaHpQfb2dy3JaAHt5uup6TrQf24VsbNb/i -UV7iVbJxuR78ZpWLSfodiySUtszvVOjBquclt9zaWHS3PdB1qUoPcvCb7gMX -Y1EWk2dy9nM9yOxnGjjMFItuRJpOLjbpwc9KjkrZXTEoPoAz9XaPHlwWlPj0 -+kw0YuGNK/7epwep7/b0pxOjUUwlXcPeQT14x1P1bIw+GkUvLH2bH9GDZxPX -PFfuXEGXPHv1Db/pwUnBMMpqfxQ655g5PbNGi6/SWyOHk5eRw34Z0JPQB7cA -HdFjKRfRZi8LR4ukPkxw2ST5GlxEeW4Lw6Yy+hBycSPHay4cfYupDXJQ0Icd -RS2BGwfD0bl2i8chmvrAMtljvpc7DF0zD5eoMdKH2BA2mbC2YKQydnIeH9SH -xGs+05mRwajL17julZk+aE5eNwjSC0YCqTw2A5b6wMv2tN3tSRAq6Cm9/ttB -Hw4yUj+NPAhEdXZ9G1q++pB+Q1biVmMAOjFT19Hgrw9yNYuPG6MCEF1o3u39 -AfrQHeVAiTEJQEbZXlrHQvRBsnOp9HffedT9aZv3+Sv6sMdDnlly7RyadVEd -rszQByn+J10kO38keja2VrVJH6YqfuXf+uONkv65ayc068PLhbVdPx56I/o0 -o8qpl/rA/uY9E6+zN5p9xng/r10f7o6PEh699kJ1dNG3eXr04RVnAt9mwRnk -cCMy6PekPmTMeSidCfVEnXLOv45O64MqcYM1mOSJ9tZi38ez+jAX/uKnxqoH -Uhzdcvdc1AfMe0L6XqAHWpe/aDO0pg+z6RczD110R7frQ7QpOwxAw8Shx7rU -Fe00t68U4TCAqZ3Zmyf9XFHkOEkliMvg//8HftORXZEn45qsOr8B1LrUxS+9 -OYV0LAL5CiQM4DtQT15Yc0H9X879uqphAHspwtG9Z04ifjbvysO2BmCiUdaz -aXsCFe67GPrD3gAejhv5O205Is2LSfvSHQ0g/B2rW0eRIzL/UdE3eNIArOzO -h1asHkcx/Svrp7wNICwj/4h3iQNaK4jYG3rZAGJ0mOm1tOxQzEjKDvFoA1A5 -c8t7cMYW8QkU9FJjDGD31CdnhzxbpB7/0p0x0QDkfk4vz3PaotO+rAkptwyA -73NkOcu6NRrSS+8pfmAAMlY3DDiXrJDnhcI7B8sNQDpZo8X3iRX6XV7tNl9h -AOJHJZjjA60Qj/TgqsYzA6DLGfD7tHUUmbGIizU2GcD8x6C8XsGjqKG32LWn -jxavQ1PnDpy2RKYcNSqBgwbwwitYbB/REg0at/8WGjaArHOHi4YYLNFy3Vzc -f+MG0G/BXJZnaIFU8tUfzcwagN+GUOShlsOoYcgwMPG7ASRKUUuuuh9GpnxW -WO2HAbwR/xM/wHYYucde+BCwQuOYqPIam0NouSkmS3DNANzDk3MNt8xQ1J+M -U3V/DCDfNaK0v9gMcWndVz6xaQBXhz8+C7A0Qzln61b+/aPli3GwSeivKfof -HbLGog== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk01VsUB3AZUpGSzBEuikyZveTsImUWMka67v3JPOYRkYSnkKRHRZQx +GUPJ9CqKpFApKTJ3jRl+iJR3/PFbv/VZZ63v2mfvc4441ceCzszExMTA3/rf +763Cnscdb3U2HROcol1gIJ3pHDWqXhGqp6by07H7M9VTJPXq0NQbrtR1m9Pe +bORUeYHUL0d4ENjlwRGNbHptqDZtLMUVO+6lwNOIwk7UuWLM44b9pMPvzqpy +Fzr38P6oO/Z4T2tYSG03Gny2xuWFLTRCcVjU/Yq+7jOL98E2+hGmFdD2DYXM +pzr5YzesjnMEFw4gq1090WexP0byhz7yHkIWhbzMIdjTG/XGSeURtHLX8H0Y +9sZ4XzuVpVG0yB6yfAFblDujxa+WgW4OZAVGY5sKL+ZN606i0o29blexiSwJ +PvlN0yjXaXYoBTtCyizao+0HstZde3gLu5v/w/7Awlnk1sFuno9Ns3d3ux4/ +h2r+YRYtwZ5JZ7r70HseBU0tQhX2Jgn57bPKCyisvy26CTuF1nh0O+8iErpY +kt+GLZZvF6G4tIgCF+NEu7A15WKmvWp/op6LChzfsc+of2sb111FT7wU+7ki +GYgMPsu6Rfo3svzef18Q+0Ith7bMpj8oJCW+RRI7DTQfuLatoc/P3rFqY9Ny +W/T8CzfAu827QryxC19e748UZga1hqzxUOyZ705h1+KZwUNcrDwOO0x2oaLM +mwW+am07mIedUipO+aHMBg9Ky8yHsHs6Jhv+ZLMBRxen+zy22Nxjey7ejdCq +Q+tmuchARaqmyfJLG4FDma1SCrvpybkNnrWbAM1wu3phLzS+/8bQ5YTwUfc6 +zigG2mHMuT20gROkzXwXKdhKH/Rgq9ZW6Im2TTmA7T5clbVfgQsGv3f+8sD2 +ZW5TOsi5HS4TniGd2CMSJbPRi9yQ5nhasfQS7g/RurldZQfks+bmt2EzPxgV +F/DbAVZDb6LGscVUdlsUTuyAVrLddU80A9nrJj18288D1Xq3+nKx2138A/hf +84K8lm9sVQwD9eUnXnHexAcjzbt0PmNPThRm3z/CB48iy21/Y28JHHp/4Ckf +7NVPeaIfy0B6l6xUnav4waRHT7YPuyZHfaEgUxDcKBebd8cxUM7IStBfgSLA +7s4+P3WFgY6diO0LKBaBkiSTOaF4nN/Eo188KgI8o5XHjmGr5sjxitmJQu3y +95Vs7CaqUwWbzm4Y+DYSeCqBgeZ+9P/NiBKDH2X+/40mMhCPl15lhYkE9Iz5 +l6knM9BozpYz5u4S8M3BPMUbu/prh/BUjAQEXrZuz8M+aewYJf1UAlyl+gwF +ruP69gVZ3FSmgFX6gM0atup4/kw4vyTED5Ovem8wkJUrh7zhgBRIuGps/3qT +gVDQCWWb31Lg8yc4TuQWA8lGZ2rQBKXhM3Oc9SlspmyVw+HHpeGMD+/kEHZx +n4PNw2fSYH7/O+vsbXw/rYsihe7tgczVsimhO7g+PZOP41QZcN3Ql1F8j4Gy +LVO/LIXLgL5e6LVl7ETqQD/rbRno1JvpPpKNz/eFsxOi72WA/zHV5Rs2d10G +k6WuLCzP+xF8ufj8qEzL1lL2wVG2CKmUfAYSlrgacWVYDsRlY+LeFjFQ3WVS +ZplZHnQJZnO5YtyPebsPhLg8WAwqh1zGvtMkKXPYSR7EdR/OHy1hIAnXmnc/ +P8mDpIl6XHMp3m/RiBTxWgG+a5arf37IQCLCooSYnRLkRLne0X/CQHK5gZy/ +kDJkRHZUGzQzEJUWtSBvqgwO9c/0qrHTKMl9zieVYXH1ufSeFgZiuVda9jJY +GXZOL06yvcL37c64VXK5MthSFS42t+L3NM05Q4aiAmPVMh32b/F8rxgr2G5U +BTun/1afdTHQXX9J86o2NRhb9XuQPMJAHUFI41KuFrSyt68Ec44hcacuU0fP +g7DtRXRtp+YYoq89KhEJAfg7Pa2i1HUM8U9Us/NTD8Pq7eSoyKwxFKii/TVZ +Vg/+8+w0k/8yhqhTqy0840fAPi29gRQcR8WHA9gz24+CUixDbtZlHOWQ7s+K +Ugwg2L+7ObBkHP08JPCmKcIINOYsiqXZJlAvE8vswGkTaK62FFBynkDeu3yS +Iilm8NZQ9ZZJzQQqcWt5eiPaHLhljfdnik+ic/OCS/vcjoN1YVHevthJtGCo +b918ygKmGywSbq9MIi2Ha4dGjluCj/7Bn8p+U+idYIZ7k4oVtG2SiDUdnkJC +eVF1BXtPQG2pWHAFfRpV98sam261hntdqvbRg9NI9MOMa9CUNeTtVv1z3PkH +UrlxrSi73wbi57u6NSZ/oAzWeYXkRltw+edwxQvNGfTokGJP9BM74AzcuOXw +xRmUpnGZe7XQHtROJRjavJ5B7V9yY1TiHcBHTcFry/ZZVGWSLul74SQIbaNQ +Gu1n0ayXJZM3zRFsJ7V2nsyaRQv6MmemdZ3AydxqcOfwLCqY+vwzQP0UPA1V +mE2Wm0O2d3NdHDmdIUBZgvziPYcqHhqdYol1hrssYiFPK+eQlvC75bhlZ3gy +2FFWOT+HKP2uPZ1up6FeSC6yU2EeDXN4mKUPnYbLp/OVYjzmUUeiqcvRE1Qo +G1J8cClrHqUEZ3Kc7aDCyrcvSQFd86iuYW3ZxcAFfEM5TriwkmjbSYhVqXGB +TtJNRH8ficR2NrfvqnOBW785OoawldpMBDY2uIAz105KpByJLLQd7nc/c4Ef +B6bv18iTKGVX0Ovzr1zgo82ChowSiYR6H2xr6XaBsuG3OqQqiSSd+NNOLrkA +mg7RP6RDIi3n6YJoVRrEGk8MlJuRKO/mTICpOg2ORsfzK5iTaOf7OR1+TRo4 +HL5K3seePrL0oeAADVi1fHOyjpP4/WLa0HaYBuwq2Z/jLEnEtcRtt+M4DdLq +OS8b2ZBoOEFtc6YXDYad7GKvOJEosTbMrTqPBnasO9GKB4m8lFO1ggtooFtW +99LRk0TG98s3axbSwKBl/8JT7C2po/cfF9OgmOWYfowXiaL9zccfVdJg+sm/ +jzl9SBQmI+lR9ZwGI8fPtm7yJ5F76mvPh300CBr7+3j93yQy4BrV9u+nwa/r +X1J5g0m0N5ppq/IgDXr47KK8sEf91YrLR2hwN9HbYFcIiU6bZk6VTdJgj0tW +0tlzJLJlC/AuXaGBf89+Jv7zJDoaIORbxEeHwRWNbbwXSfQ8M8YwWYAOjcvm +LmewtdvmJIOF6LC3OMewFltJ6vVnXVE6bKc0vjsVRSLBT6G6X6To8OeTeXP2 +JRJN/NXLt0WNDuWqV9X4Y0l0lTmr3tWSDseULF89uIL3r8iZZnKCDu5kkPss +9iWHYH8VGzrUVylmqMeTKLjSfM+aPR0qjZQe/4d9mthw7V8qHd7flqhrSyCR +SiuV9sKPDsMjpWudV0n06ZoUByWJDsXn3cTirpOoBG09w7hGh17nlD312Jem +yKbi63QIven5ZgZb2aApXDOVDqbNbAvWKXh+TC5zJnfosHCGpUL0Bon0fbI+ +BxfRQYtyZ+j2vyQSEflHXaeEDsIJO969wiZbfa6zlNGh6WO90xL2PWlkklhB +B3+PDIvjqST63dv7NLuGDjzhz7OZ0khUaSxc8LYF158zNGJ8k0RXVpjZUlrp +wE/mVwZiUwvGT9u10QFOHBBPx97OWiM83E4HFqfH78ewPWttry5/pEOatnPG +hVskosj+GyQ5Qgdpv6iG27dJtPLp/PuxUToYxcW51mN3RNOVShl0yCplK+nD +Dh9QHdeapEPEtBGPWDqJetLeO5rN08FmOlrnDnYyO/eRcxsIWH6RyPNPBonq +5nodAlkIiE/pqs/D/t5b6O/NRsDLWnKyCVu7Ui+LupmAB5q5n9ewR52Dfxly +E2DEpjrpcwfXb3xkxxEeAvZsu1d3GfuAxg4ZxEuAuGA9dy520tYiaxVBAnq1 +Rw2619drvpULixMwbxw+q5lJIiK3qIWXQkDjwTejZthJSSHftkkR8Ko425nA +HiV4trLKEECyfxy4tr7Oc/TMpBIBdUV9gkPYNX94IkaVCXD8tai8iD0y1n+j +X5WAPsrfHZuySPTX03ONHzQJaJjKSpPDHvYsEa0HAqhL2o7e2Fy2oWqPDxOw +k0X95nlsLd1jxuV6BEhJnLeLx04UHAzJPUbAzNlxogC7mrU0KdOQALDkqKzC +HvoRmn/TmADKDZ/o59iaL3m7EswJqLr1s7IHm1o+OBFrQYB5owDPKHZCeinz +RStcr1DAwgz2oL+BUpAtAWVib/XZ7pJoqxPfUV97AmxmW6u4sDUNhhzdTxKg +rrJSwI+dsPv8FSdnPC/zMeG92NVbDO/ZUglY3Jx3WxF7cIHviQWNgJCZxEz1 +9byBoXZjAs+7+N6eg+t5bWWj+mcIYGLtV9HFpj4+/xvcCUh/faTp2Hr+PcOd +BzwJCFt4122ynp/Av0/NG/czLsbPYj0/ePiQoi8BWQWnEq2xOWnltjL+BCjG +OSraY2uYhftQAglIORdh5bie/5dRjEgQAT5DTb9PYcdLCWTwBxPw85D8Pir2 +o+0jFdznCFjbV/3VBXvgV3krRxgBY6b0HfT1/O/hA2zhBDzzUW1bt/o7o59r +EQQIeEhtIbD/B54dF9Q= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -6938,233 +6607,106 @@ HbLGog== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVmHk4VV8Xx0XGMs9jppCZy3WvYe+lAVEoGdOPZCoylMxFkiEyVkKZMqUS -ShnvFVFUkjmEioyRIhR67/vPOc/nWfvsdfZa37X3OkfKxfeoGz0dHZ017fL/ -++/R9peyCYWo9o3zk23jDqg3RyjEcDAKV7/iO81bQsLA/95FaDANO976fqCv -2AQHWpYNMAwWYB6P5o+3i+0w94Jg2vpAFS7yCdRjLPbEYw3mvssDzXjDfGVq -8l4wNpKd/bQ00I2rp05PX86Ow+sDOjd/DHzBSqcapUVCb+OWfSWFHwp+4W0i -l2uqp0ux2FjtNxflTfyxRT1csrcS0/3yv91+ZBMnBScMDU1V4gkmRVP1oE3M -P5neGv+3Ej9SzXq0+WITR3Ew8rdKV2F0KTTgtu0WfsYeeqrCrwo7ievRd0b9 -w+STMzqWbE/wB5XRpDvzdLBctb7LS+sp5vN2KmPexwCn5ed6504+w4rM99os -bRmg1ziTcfz8MwwF375kejGA8eaT2Zarz7D34FlR5RsM4M1DKnO4/wy/3B+e -aDnJALJOrHPNi89wgHimT2bsdviBjIQDQ57jns5uTaW3jBC5OO+tEFmDp08L -WASMM0LELmfjbSk1eGu7g1fjMiOY/5fR8Dq3Bivqfb5nIc4EgQMe9jLUGhxV -ssgX4MMEk4z3kpk2a7Bm5M7VBi5msJ1y6Lh0oRanaRjVm1uzwMNT+cms9nVY -bdje2MCTBZr3B+Y3udXht9Fne5TCWCCj+uaox7k6zDR4Y44lnwW0ROs7YhLq -cNilr6It8yzw3gFtMTbWYdc3keE60ayAn6YUMInXY6JbvYHkEzb4eUMi609X -Pe7heN/O0cYGJZUFkRXD9div5ov15iAb+JKi1G2+1eOyHWw+Q1tsELqsOOH3 -tx7vqrLLuWG6AwYOe7l9lW3ALP9Wtli+7ICzQ8XH6gMa8Mfb6k1LXOzA6HBL -W5WlEWf1POAM3M0OvP1V2encjdiBQ97pD5kdtHf0v50UacQjV8S36E+xw5rW -zWRLlUY87sOmz1fNDrsT9TPwkUY8vX/iOdGeA3hKvi5fudmI70c4Mdef5YD5 -PcMyz+424jN1QzY0sUA9XYNsX1Ejnlf7sGL8gAPKXOrzPlY34h8iFIL9JgfI -KBUWbfQ24rUfGY/D8jkhWtth/0NOCq5V4v33r5oTSofT9z4UoOBQ9yTz6A5O -SGB6o5IpTsEbw9HfE39xAuFKWS9ZiYIjv9bwv5fmgneODWW3DlBwdGeR1XgA -F3gW0883BVLwhNepMOkILsj0MNlKCafgA6xS91zjueBSiZKyeRQFM+2/83P6 -LhesTu2cSb5OwXG1aalLbVxQelnKQuMeBScURrynF+YGkS93TBY7KNhU6zQP -vww3+NRseV58T8EsL49ay6tww8ST5rT1Hpr/r7uHzQy5oY1vP1/DCAWHS7/9 -duM0N2imp1qc+U7BulXVe0rOc8PjuGXd00sUvGaY6117kRvU/u20tlmh4Asn -z/38lMoNoIv3/N2gYJ88oS25Otp4ettx3x1UrKxOb0h+yQ0Ck/nvxzmoeJY6 -d8WskxtUtJkEgYeKPcYorH5fuOHL5t+WdiEqdpZw469l44FkOU0C224qlig3 -t3vDxwOl4BuxIE/FIwak7E8SPJB9TOLIC0UqtjuxQ4qewANCHEV3NNWp+Mid -SmWz4zww5XP20n5dKuZSzvY94cYD+Vvfcu/qU3FnfXSVry8P7M2nD55EVGw6 -bEu6cYUHrjzsczPcR8UsXoZhxdd54PtEYpz1ASpu+6NIqcnggYWKyTA7Yyre -K7K179MDHhA0FV9UNKNiurKpmMVqHjBQ8A//c4iKKeQP7duaeCDzjuVKjTkV -69kXWsj18oCSs14r/VEq/jN9PY00ygM3dqgpJllRcU1wUJ/pNA90TV66xWJN -xVq3TY/7bvDAeZG8/A5bKv4pr5VzmYkXJiXemPPYU3HFc/HP6Vy8sHiVUfKg -AxX7GDPLFovwAvPOXDHf41SsMvDDvUaWF64arZhFO1LxvPvQ/Q5VXnBNP18d -d4KKy363zI+QeKGPJd05/D8qlhPIOLftMC+kb3zK1HCm4omiyGpeW15QfIh1 -ftG4QPvM2u6TvPC2tVyr8CQtP61WeiQvXtDcNp2534WWH2uDS6YXeIHOq9qn -l8YjE3IvHCN4YcFqoc7qFBVnBXBt943nBR4Iimmmsd32P0aX03lhe7/hR0lX -Kha88TU+/S4vMHYeqvehsZBSdfRaMS8cFgq6VUpjkeaYiBMVvKASraTRS2Mx -e7vQ5lpeGHvEmLZEY4kfey7It/BCz0QZlc6NiiVj//omvuWFuF0dTdtoLC3x -7sxSHy/cXBS9s0wbL1ud42YzxgveF1zsPtJ49yE/5/ppXtA/dnrjMY3lvhoe -l/zJC+1FjMnBNFYI5bW5+pcX5Bf4BQk0VuSetJzdzgfJnFHZY7T1KJc+M7Pg -4ANmpCdzicaqOM7oqSAfqP7Sq+agsXq/vaGwFB8Mfo61S6XFR/Oskv4lRT5o -mlHiY6IxYfsm8SuBD4g70KI3Lb5a2Z0aJgZ8kOnw6UcrLf5EzTzlR0Z8wLas -IclNY1K7vzyPJR8sL3hHmztRsa7zPukgez5IP/Ja9hItn/qrfOIjLnwQuD2W -JY+Wb5T0TdDQmw/o25aJT2l6MGyIZ98RwQcelqTUJzT97LU6zuIXR/N/9MOb -HJq+9s8qM/Sl8sF/9bk+4XZUbCLUtZZTyAeybM1snDZUbBEgMKHZwQe1dAZ+ -aZZUbLljejSjhw8qFd2o3BZUfLSg9uPGCB9Qr3s+uXKYim26HN+3LfIBX9ZS -KTal4hPK9+oc+PkhS9O9UIhWb/+1BFRTJfhh98fYZRVDmr4cjCpkFfiBoYeo -QMRU7Bo3U7Sgyw8SX5UcdulRsdeEWmqUMz+w0T1ot9akYu+wbYlTp/nh/jRJ -kIFW/z48PTGHzvODZdda3D0VKj4HgeECMfxw1HZxvVGBikPuNHiUPeAHimbA -ur0EFcceO4i6f/PDUL7kS21mmt6edorQbxMAwc32sD4GKi7nPbaqsUMApNlF -nrrTUXF/938VqbsEoKmzt/vEOgXLHgmQPmIiAPn3q//lzlJw8+Fcpq5MAQi8 -kj13kbb/2jyS/frvngBM+u+f122j4NmdZVS1cgFo7+OXnn1BwdxvnwYnNwvA -rwT/47tqKdjZtGPWfE4AWvWDTL8VU/Cm0UrnO31B8Oj3OvEjgoJTikMfbBoJ -wmBPolJ/KM0/E12cyhFBiFhVmiu/QMGHWtkMr7sJwvXH333IXhSctU/yyaEk -QdjZu3voiTUFk8As482YIGj9mho3UaDg8+R8p/YoIbjmuPrt4MtGbJrHsWyW -KAQ53VqLApRGLM0cHtd5UwggjX3h4/NG3NVrU9lTKgR37d+sGT5oxKp+OxlG -O4XAP6LuVHYq7bwtDir+KSIMmRMfC8IdG7Ejn/l30SfC8KjF+pvhXAPev/gn -1OerCKjYCTySW6zHISY3FF/Mi0BG1jgs0PqF8nyVId7fIlAgwFpTPlqPhY45 -k2tZRGFjuDBYpLMez9e0rjKoioLYjUOOOQ/rcXpUSkBmsCgYU/8LdPasx1/4 -5XxesovBKaM4cb7hOnxZ/8hJEZI4KLPdeOv+uBbrlmc+vUTdBRdLjG8oz9H6 -t7WlyNfsUqB7IPW+sfpTvK7ENapiLQ0F52Q9KKRKrP/gYd6tWzKwShkuqhl6 -iJd4TJ1tmmUB3hxS1mEsxROJzjbnmOVA7XfOXX2Le/jgYtDBSaI89O7+HsG+ -lIPFNCRiWPTl4YhJXi65OwcvnHvZrGQoD1bjtx+FPsnBN35z6Z8zk4fsjJxU -vcAcPLp5X/WfkzyQmiRcajbu4nM7R3iF4+WhhaIreZf9Ls7aA6OHhuVhI8qh -kgln4/lTLOefRijAFwG+2edjGXghZ38jNVoBzPNsuK+2ZeDFj5HMb+IVILbx -Yanbowz802I9+3O6AvQpFfOeDMvAq3qzLzlKFUBJy+wQCGVger63Aqe7aCzJ -WpptfQsLv0yuE5faA8UBn51zRm/Q+ndB+tjmPSAW8mjOVyENz7gYl+q92gOM -1MtbB/nTcGJ+kPmPN3sgtu3OTQJ9Gu6RGMyy79sDmaOJOtojqdhZOJOgPL0H -1sb2ZS6lpOIQDlG3D+yKUN4wrHNwMwU/XJN4LWqvCE3FxyoSmpOxhY6FT9cJ -RUj/OFbHnJeMf16I4LvqoghaKW1y+ReTMfnXmPOClyIwbwnPKZGTcdv3vPWm -S4pg1sqbm1uZhMe+SCu5FyqCbfdxl18l1zHPO7mkikVFYGRlU5q+n4C3FtWL -OpYVwavz/neHuAQ8y6PXMLGuCHutiGIL7gm42c5iVmi7EtwTuOt/QTYBn58I -MrospAQCa4VzjPnXcO/f11tHDJUg4HN3gHhePM5Q9PL9laYEL0yRWV51LI4+ -fCGG/bYSHDvXEPY3Ixb7+UXclb+rBPsPsFQEhMZik2fpb46XKEGjamVfE46l -9VcN8i/rlcBvj9iPxjcx2MGeffzGhBJMLxWp6M5cxWJxjy2JRGWQdOd+XEGO -xmXlj1rWdZUBFCHNSSoak/oeEBuxMtiM2YTKsUbjY9KlYvsPKoNwRp3QxuAV -nNiQN33EURm+kbo7XoZcwX9/pEaejVKGV8Te6UZqFB6yD6go7FQGEr2w9ajj -ZewZeU7Gs0cZHnwsy/Uxvox/F/vdUhpUhoZrTvN8mpcxz7J3eNVnZfB4oX3o -HvNlbJrkZtK0rAxtacrurU8icW2zzfiwiAoEnqnm5OaKxLeVyFy8HiqgsY9k -U15xEVubvUuheKlA7LXC+M6Ei5jH6yT3GT8VyEgrMeD3uIgTyuJ5XoSoQK5C -ZSW/xEV8ac8Qn2+iCgj6S6WPXQ/HrvJhwm8qVUCMPTbnYkAY1pBplL6yoQL1 -LOU3BE+E4IW9R+6pblMFOQrZ9b1+CC5zmZQZYlQFpeIk/jKxECxbwL5bg1MV -Pv5iffhqJBgLSf0nPyalCpUFecl5/wXjLYl/SnrGqnDB8EVihWcQ7hAx1P6V -qgrnr1+zj7l5AXdJPJbbnqEKBqmagfRBF3C/tLgQ/x1V2Dv9Lvae3QX8WXH9 -D7GYZs+i/LMSu4DXdCubQutUoclLPeJMUQCWOy51iP6rKhiVOAxYUM7jqOxt -p7i11KDaeFKHi+0cjsv1PSZNVoOzHxQOzCz646R7nw4QkBqU/+cs8LXPH2c+ -qFWwNlGDFVOJK6QCf1xR779w21EN4o7+3HLX98ejw59DJK+qQdJXhqvPAv2w -rlhzilq/Gvw8UBYbu90Hf5GRHZ0ZUgPBoYSS6aGzOF4pRqlwTA3cX4ztDK88 -iwd1TduEZtQg7EXMBMnpLA6y7/67bUMN0neMBDI2emMHM3/CLJc6/DHdpGu6 -7IVvxV3OaSCqg3ghMdVX9TQ+k6jZKkxWh/3cp5Ya2E5jlPJ1LlBPHXxtNp4S -pzzxZMYBsgaoQ/4RnqryPE+sVcLaW3RQHRTbn2c/4PfE3a2prMmO6qD2dNSi -itkDczAUBJyMUocq69HkZjY3zLROtVqKVofGwwrrdTOueGvhk+blWHVwYnaV -//zaFS8OCS/lJdKeV71E9yzWFXdVpZ4dv6UO8RVsi2HMrjjN5bK70wN1uP3f -rZtmnKewQLOz3Yledag99+dEJjqJOWou6XzvV4eZv1YPp6RPYqbyOwIXP6rD -YnDHxRPMJ/Fq5mDvnVF1cNj9bJ7S5YwH/S2PjEyrw2N7mX4rN2ecJQWmxzfV -IVmEJVBXyQlLXN6lby+nATc1i9K/Sjvi8vMs0p8UNODO3qipmJXjGLkvMZ9U -0gC2cPObXq+P4xNmLT2e6hrA9LKGsupzHN/h9/AK1tUA4yWeTB6qAxYuK8/K -MNcAgvK1UXYve8zXY7DeF6gBL78kKzD+sMGFrXJj9iG0+d7s24U6bDChhrP1 -U5gG1J9M/VNeaIOP3v2cMhmpAZm7tvbqONjgVI+rCivXNMCqOtp96JU15th4 -a8uXqwFXZA10VB8dw6y7HZ8dfUV733efGLVyjuIzwtj0QbsGbA816duKPIo7 -2KVHGd5qQL/L422/Th3Fib+nGKu7NMA237PYRvEo5nh93lpwiGY3FLjLWHuE -Vu8Jy8PzGpCzRHnb/8kSi1XWabrxaMIxjWnBmVhzHF50t62RTxPOi90PELI1 -x58yIx0EBDXhmrdlepKcOc6JMop6JaoJ75oZKw63HcaSx7o/7NmtCbuH6B6z -sx7Gu1dn/BZ0NEG9V1fFJNsMqxoIPw46oQn5mnm9x36Y4Ccyp//SO2tCReHU -DtOXJpjEVmuc5KIJwxfqOGNum+C9A3bjhR6a4COcPN9laIJt/G9zd/trwoPL -hlIlGcY4okgwQDlGEwK6CTJ0lka4i12A/LlcEw54tAp9+LEPWy+7XfWu1ISf -oHDs29t9eGio+sPqE00owzsqiPf34YkS6zMctZrgMXXaL9ZlH23/v5mt16IJ -hGaFhrGBvVgqkG/r5oAmpGUcFJZ+Z4jPjfK0mNIRgEe6QMyXivHrNsfGMnoC -fI+esqeLx1jicfFzNkYCLBNKtKaOYtwRofuwg5UAhX+tvjyZQlhayuWmKS8B -7m81ierzI/zhVKWHqRwBPAY4mvIj9LH6jMVO00ME0C/7PvIgiYxjPmQylZkT -4Kmemj+PCxmP1H6lYztCgFC/iZImbTKOuxa00m5NgAgtduefn0h4XCl39KAT -AdTNhztzNUg4xWeh4uA5Arg3R4x2TBLx4q9E64O3CfDOPuJxwyUtPDKYb3M3 -iwCHBm1ecB7Xwh2Nz2yX7hAg0XZO4Y6OFi6MHbfPzCfAgpnSI6clAnYQ1fpv -powACcVjCXEeBNy6d9g9vpEABwSubhP9TxNnp+4Jbv9CABmKqJX0OXUcF4hC -xCcJQLik9pzJWh0HHrcK9Z8iwLE6ifciJHVsuftiuPA8AapLf2/lb6phptqu -yNMrBOCz3O8/LKaG/ceD4llZtIB0ivTBzlsFG6u1ZR1U0YIr2cr2Y2aK2I7J -5FiXmhbsFD2zkSikiM98ame31dQC6fKu3IzJPTgp4V2kq44WQOa+qBeRe3D/ -VK97hKEWnKS4y9rWK2DXvK+a1dZa8Pj38V0shvI4invbG8lLWtBnL3Mp55os -vjEdFV0SqQXZjRxqPSdlcTF1O1K9ogUzgc7mVmRZ3HGWpVIvTguo2X1DhBkZ -zN3BmWGTpgWNln/dPQ/J4LwoiVOJxVpwwdY1jSApjSm/9P6udmpBoaHEEcLy -Lpz/9rmL1QctOO/LorTyfBeOLiJ0lPdoQZzcKTap8F34oK1SptugFhz+z0Dl -KeMu3FsnotPzWQuKf/JFV4tL4NnL6+fKl7Xg6XHXm+nOYliA6/msq4g2mEeN -nHdXEcbr05pHm8S0YfuImpraphAeeVFeK7pLG2rSTCzM3wnh/PPFcd0y2hBH -JkRf9xHCygM35UBFGybbPxynqxbEe3MCXERBG0psngI+IoB9lDWHPrhpg1Do -338xLbz4wqrIHydPbZBiunZrLJMXhzcziCyc0YYDFgyR1/x4cYJdnz2bnzag -+t2/eiV4cWl08Me9odqQF6wmqxzBg7+MUAafJGkDnfhjMTdzbjxTUrJmmKoN -yxaTwTl7uPGPcylCXenawPmXQJBi5Mb/WFzs5m9rg7X1j0K6Ri4sps04KHtP -G7AQ2xchdS5sc91s4OZzGudqRocYceATdlqrMnXa8DJTvfkOIwd2lREXrGrQ -hj++s1l7W9nx+doFm84X2rBIV2HOY8SOUyZT+5neasOLa/uDSw7vxB0Gg31B -49rw1Kmmdfg8GzZYcO21ZyXC1/D4R1YCzFig3rigYQcRdqY7tzpPMeGFWEW/ -XRxEYCm3ev2qhgnnSP3YMclDhNHRTs58Rya8dSxsn58YERKMo518SxkxtT61 -KkaNCMkfXgkuW2zHt+MCImc0iKDu1b1uI7cd+1nbmh/SIgJHXZ8u2yYDllwU -m+UmE2Gu0fG20wMGHCldKnV3LxFecO5XeraDARvGU1KeWBNhml55/fbQNixi -k/+fgB0RuHz3MzRVb8M/paOVQxyIUK557b1q6jZc0HDwNXIiwts04eLPJtsw -/Y/ef+2eRPhC9xEl1dPhFps5n/EwIojyownF4//QAVmhw+wFRGD//qpWPeov -evq9Vcq1kGY3U2quPvgXyT4//7uumAj8FVGnS7n/ou2m73M9HxDBZjQ1tKfg -D2r2jfnZ8pQI6WE7tJU61hGqX84IfUWEhld375OV11B5dIH3h3YiPD3bqoD+ -rCJxc0tDhbdEsFw74Fv4ehVtjD+Y7esigkwqITbdfRXVMZ0y0Bgigu3VklvT -xb8R8eiHL1PzRAhYvpw1QFpBxaIRz9EiEZgWh+VKdq4g/knlxJtLRHCbV+95 -N76MloPitPf9JoIL4zCLxLVlVHUXx+X8IwLlsFVyzfgvpDbzSMWaRwckv7RU -mN/9iRQirwU36+iAs5Kz77rFD9SgV8R4SFcH7qp5OeUr/kCWq9S0Pn0duBg+ -5prF+AMF+6w8nDbUgbIwZ50/wYvotaPzZ45DOvD9u8Snb8cXkCeZaHrcWQe2 -TMmBmmgebSxbDky46EDIeog65+YcSqnwcvVx0wHPyT1XQxvmUI18/qXLZ3Tg -ukLy6TX9OcQisPNJSYAOFDDbXfPfP4vu//wsuhynA3hKJu6U9zRC5RulFxN0 -YJErf7WQMI26TwsSmZN0AIwuFJ/6O4X+jB+yFEnXgfXExapjiVPI9P3zaLir -A03O/+JnnnxDsw+uf0+s1IEjTjPx24UnkaIbmbp7SAfuvVe/nab1BSVLm/+5 -MqIDQiNFNy/v/IKWx1y0v4zqgFv2pZCXE58RxSHxQc5XHZC3Cflv363P6Kjl -WIbgdx1w3N/cxrs5jkL0rvqx0pGgNsTqyHTVGBpdy3zgQU+ClrLvbx56j6G9 -z8q/tW4nwY0EOz9G+TG0U2PQMYqVBEZFK9k+d0dRnpzSwb88JCjWWK6jS/2E -XnN/kPq+mwQMfVp9ymnDSOX9pKOZAgmKAphly48No7TEPxn3FUmwmfhbukpw -GDkyy3K4q5Gg4P1nIZQ7hBY3Av+MkkiQZyJQfPDpRyQwLdbTZUaifd8xBVit -DCA3imf0U38SpM3qp1e+7UULZ2eDDgSQILnb4nprZi8KFvf26g8kgateRail -Ry+6Fu57dC2MBMQPI3yvGHpRhW6gpH4MCe5nrDCI7u1BG8+uNLRkkUAyqD48 -qucDinFnrDh2lwSZJoTRpJIPiFMg9t5kLgn69BKf04d/QNIXrl1jLiLB81V5 -krjcB2RMSLUze0wCxrmlou0RXSjtcc5ydwsJlM8V19Re7URiTpLTp9pIMES9 -wrlE7kRFHAXDy69JENO5rDqy8A7VnC1qFugkwUAFIfiVwzv0SelhisMgCVIv -ODe36b5FCqW1yl/mSdB1idNYUKQDUfN6XZf4yeCgE1kjcqgNjR+ScgoUIsPw -cVbBTb42RLd+1v6vCBkyJtzenRxtRXuPMJszSpIhQESw4tG5VtS2TVdHWJEM -yOLCR7X8l+itSy6rIaLZhSjvZ/ha0HeOeYY2IENDKOny2clmxFFP2jLdR4bd -+05ZuTxrRpa83T+PmZBhJf6sQ7Z9M+pp2T7ieZQMaWb1PmpFL9CQ7JnyFHcy -RDYG27JZNqG/Xc9K+U+TQSy2NkhZvgmJXWS4l+VFhjnO18dOblLRib47GYV+ -ZMhb10x9foKKxq++j6wJJcPhe821B+UpaOqbltV4EhkG+3/tSBmpR8ul/1bV -ntPWvyrlW/3yOfpmY5QXX0uGsDderJ6Jz9Hg9usmX+vJILV6KSHr2HNU7yyS -eauJDK1EppXQb89QlJC27mY7GbSkNrN2cD1DXHFnwjtGyFB2tE3xashTRE+s -lJUdI0Ove++uWpOnaPnr6tuLn8lgUD750FHoKRrAV8U1vpGh2GJHy0LNE5Sz -mkvJWCTDtnqfGtl/VUjZo4/OjV4Xeqi73u/MrUQS/GL3Kdt1YfpV5tG3AZWI -q8XliBCzLpgc7Rb+blqJfkn8yH+zQxd2ZopLWKxVoLp+tn2a/LowEijJesm2 -ApkYwdV/8rpQwyuaUna4HJ3a/YA167AuxEVyXrJnKUOhrf+dkbPUBbfN+b3j -LfdRihvPm6qjujA0nCTJF3kfNRSFJL6x1QXxivN54X9KEZ+cCefmSV3AFWbD -MqslqE1uks85UBcqZX6d9OMoRiNtty/MB+uCTT/jjZ29Rein+6H+4DBdOJDz -/bRBVhHaVfIkIzVSF1y0Ax1tFYpQsHyUSMs12nwsDSkHzAqRosIuSblcXfB+ -cVh7rKwAwevuyKp8Xfg47T4rHVKAbDxjPqNCXeiUrhL7ZlyArpR+L7C9rwtn -HhoKffuWj0YUGnbHP9GFRSfHyTLFfJS0x15p/pUu3EhmdopPyUVLiunEqh+6 -kNU1EHikNAsNvoUDvL90QX4Ansi6ZaEmnwWrgBVdGHgxspIlnYWSqg76E//o -woXZlXtncjORoi7dwzoGPXBbZ/t9Nu82cjl4VqpFQA+Impln2ym30ME5EXVZ -YT1w+Pj7gPTVW0j9+mt0VVQPLIPG55gP3UJbXTKOxpJ6sL9hLixg+CbKthu6 -9WaPHnDufHH4Md1N1OthvLNXXw+MQ8RGM0+lo3rWFRFtrAccXPv5lTTTUcGD -gj23DPVgY0O0XXtbOvJb3DSyM9KDzXms9iQvDbEHPb08YqEHisQlPbXJVGQU -I7U64aIH6k4TMehKCqop/Pt5JU4PzAV+W8cLJyLivoBV0wQ9OO1omB7WnYCq -P8/vzLuuByfymxVEExNQlcSojmmaHpQfb2dy3JaAHt5uup6TrQf24VsbNb/i -UV7iVbJxuR78ZpWLSfodiySUtszvVOjBquclt9zaWHS3PdB1qUoPcvCb7gMX -Y1EWk2dy9nM9yOxnGjjMFItuRJpOLjbpwc9KjkrZXTEoPoAz9XaPHlwWlPj0 -+kw0YuGNK/7epwep7/b0pxOjUUwlXcPeQT14x1P1bIw+GkUvLH2bH9GDZxPX -PFfuXEGXPHv1Db/pwUnBMMpqfxQ655g5PbNGi6/SWyOHk5eRw34Z0JPQB7cA -HdFjKRfRZi8LR4ukPkxw2ST5GlxEeW4Lw6Yy+hBycSPHay4cfYupDXJQ0Icd -RS2BGwfD0bl2i8chmvrAMtljvpc7DF0zD5eoMdKH2BA2mbC2YKQydnIeH9SH -xGs+05mRwajL17julZk+aE5eNwjSC0YCqTw2A5b6wMv2tN3tSRAq6Cm9/ttB -Hw4yUj+NPAhEdXZ9G1q++pB+Q1biVmMAOjFT19Hgrw9yNYuPG6MCEF1o3u39 -AfrQHeVAiTEJQEbZXlrHQvRBsnOp9HffedT9aZv3+Sv6sMdDnlly7RyadVEd -rszQByn+J10kO38keja2VrVJH6YqfuXf+uONkv65ayc068PLhbVdPx56I/o0 -o8qpl/rA/uY9E6+zN5p9xng/r10f7o6PEh699kJ1dNG3eXr04RVnAt9mwRnk -cCMy6PekPmTMeSidCfVEnXLOv45O64MqcYM1mOSJ9tZi38ez+jAX/uKnxqoH -Uhzdcvdc1AfMe0L6XqAHWpe/aDO0pg+z6RczD110R7frQ7QpOwxAw8Shx7rU -Fe00t68U4TCAqZ3Zmyf9XFHkOEkliMvg//8HftORXZEn45qsOr8B1LrUxS+9 -OYV0LAL5CiQM4DtQT15Yc0H9X879uqphAHspwtG9Z04ifjbvysO2BmCiUdaz -aXsCFe67GPrD3gAejhv5O205Is2LSfvSHQ0g/B2rW0eRIzL/UdE3eNIArOzO -h1asHkcx/Svrp7wNICwj/4h3iQNaK4jYG3rZAGJ0mOm1tOxQzEjKDvFoA1A5 -c8t7cMYW8QkU9FJjDGD31CdnhzxbpB7/0p0x0QDkfk4vz3PaotO+rAkptwyA -73NkOcu6NRrSS+8pfmAAMlY3DDiXrJDnhcI7B8sNQDpZo8X3iRX6XV7tNl9h -AOJHJZjjA60Qj/TgqsYzA6DLGfD7tHUUmbGIizU2GcD8x6C8XsGjqKG32LWn -jxavQ1PnDpy2RKYcNSqBgwbwwitYbB/REg0at/8WGjaArHOHi4YYLNFy3Vzc -f+MG0G/BXJZnaIFU8tUfzcwagN+GUOShlsOoYcgwMPG7ASRKUUuuuh9GpnxW -WO2HAbwR/xM/wHYYucde+BCwQuOYqPIam0NouSkmS3DNANzDk3MNt8xQ1J+M -U3V/DCDfNaK0v9gMcWndVz6xaQBXhz8+C7A0Qzln61b+/aPli3GwSeivKfof -HbLGog== +1:eJwV1Hk01VsUB3AZUpGSzBEuikyZveTsImUWMka67v3JPOYRkYSnkKRHRZQx +GUPJ9CqKpFApKTJ3jRl+iJR3/PFbv/VZZ63v2mfvc4441ceCzszExMTA3/rf +763Cnscdb3U2HROcol1gIJ3pHDWqXhGqp6by07H7M9VTJPXq0NQbrtR1m9Pe +bORUeYHUL0d4ENjlwRGNbHptqDZtLMUVO+6lwNOIwk7UuWLM44b9pMPvzqpy +Fzr38P6oO/Z4T2tYSG03Gny2xuWFLTRCcVjU/Yq+7jOL98E2+hGmFdD2DYXM +pzr5YzesjnMEFw4gq1090WexP0byhz7yHkIWhbzMIdjTG/XGSeURtHLX8H0Y +9sZ4XzuVpVG0yB6yfAFblDujxa+WgW4OZAVGY5sKL+ZN606i0o29blexiSwJ +PvlN0yjXaXYoBTtCyizao+0HstZde3gLu5v/w/7Awlnk1sFuno9Ns3d3ux4/ +h2r+YRYtwZ5JZ7r70HseBU0tQhX2Jgn57bPKCyisvy26CTuF1nh0O+8iErpY +kt+GLZZvF6G4tIgCF+NEu7A15WKmvWp/op6LChzfsc+of2sb111FT7wU+7ki +GYgMPsu6Rfo3svzef18Q+0Ith7bMpj8oJCW+RRI7DTQfuLatoc/P3rFqY9Ny +W/T8CzfAu827QryxC19e748UZga1hqzxUOyZ705h1+KZwUNcrDwOO0x2oaLM +mwW+am07mIedUipO+aHMBg9Ky8yHsHs6Jhv+ZLMBRxen+zy22Nxjey7ejdCq +Q+tmuchARaqmyfJLG4FDma1SCrvpybkNnrWbAM1wu3phLzS+/8bQ5YTwUfc6 +zigG2mHMuT20gROkzXwXKdhKH/Rgq9ZW6Im2TTmA7T5clbVfgQsGv3f+8sD2 +ZW5TOsi5HS4TniGd2CMSJbPRi9yQ5nhasfQS7g/RurldZQfks+bmt2EzPxgV +F/DbAVZDb6LGscVUdlsUTuyAVrLddU80A9nrJj18288D1Xq3+nKx2138A/hf +84K8lm9sVQwD9eUnXnHexAcjzbt0PmNPThRm3z/CB48iy21/Y28JHHp/4Ckf +7NVPeaIfy0B6l6xUnav4waRHT7YPuyZHfaEgUxDcKBebd8cxUM7IStBfgSLA +7s4+P3WFgY6diO0LKBaBkiSTOaF4nN/Eo188KgI8o5XHjmGr5sjxitmJQu3y +95Vs7CaqUwWbzm4Y+DYSeCqBgeZ+9P/NiBKDH2X+/40mMhCPl15lhYkE9Iz5 +l6knM9BozpYz5u4S8M3BPMUbu/prh/BUjAQEXrZuz8M+aewYJf1UAlyl+gwF +ruP69gVZ3FSmgFX6gM0atup4/kw4vyTED5Ovem8wkJUrh7zhgBRIuGps/3qT +gVDQCWWb31Lg8yc4TuQWA8lGZ2rQBKXhM3Oc9SlspmyVw+HHpeGMD+/kEHZx +n4PNw2fSYH7/O+vsbXw/rYsihe7tgczVsimhO7g+PZOP41QZcN3Ql1F8j4Gy +LVO/LIXLgL5e6LVl7ETqQD/rbRno1JvpPpKNz/eFsxOi72WA/zHV5Rs2d10G +k6WuLCzP+xF8ufj8qEzL1lL2wVG2CKmUfAYSlrgacWVYDsRlY+LeFjFQ3WVS +ZplZHnQJZnO5YtyPebsPhLg8WAwqh1zGvtMkKXPYSR7EdR/OHy1hIAnXmnc/ +P8mDpIl6XHMp3m/RiBTxWgG+a5arf37IQCLCooSYnRLkRLne0X/CQHK5gZy/ +kDJkRHZUGzQzEJUWtSBvqgwO9c/0qrHTKMl9zieVYXH1ufSeFgZiuVda9jJY +GXZOL06yvcL37c64VXK5MthSFS42t+L3NM05Q4aiAmPVMh32b/F8rxgr2G5U +BTun/1afdTHQXX9J86o2NRhb9XuQPMJAHUFI41KuFrSyt68Ec44hcacuU0fP +g7DtRXRtp+YYoq89KhEJAfg7Pa2i1HUM8U9Us/NTD8Pq7eSoyKwxFKii/TVZ +Vg/+8+w0k/8yhqhTqy0840fAPi29gRQcR8WHA9gz24+CUixDbtZlHOWQ7s+K +Ugwg2L+7ObBkHP08JPCmKcIINOYsiqXZJlAvE8vswGkTaK62FFBynkDeu3yS +Iilm8NZQ9ZZJzQQqcWt5eiPaHLhljfdnik+ic/OCS/vcjoN1YVHevthJtGCo +b918ygKmGywSbq9MIi2Ha4dGjluCj/7Bn8p+U+idYIZ7k4oVtG2SiDUdnkJC +eVF1BXtPQG2pWHAFfRpV98sam261hntdqvbRg9NI9MOMa9CUNeTtVv1z3PkH +UrlxrSi73wbi57u6NSZ/oAzWeYXkRltw+edwxQvNGfTokGJP9BM74AzcuOXw +xRmUpnGZe7XQHtROJRjavJ5B7V9yY1TiHcBHTcFry/ZZVGWSLul74SQIbaNQ +Gu1n0ayXJZM3zRFsJ7V2nsyaRQv6MmemdZ3AydxqcOfwLCqY+vwzQP0UPA1V +mE2Wm0O2d3NdHDmdIUBZgvziPYcqHhqdYol1hrssYiFPK+eQlvC75bhlZ3gy +2FFWOT+HKP2uPZ1up6FeSC6yU2EeDXN4mKUPnYbLp/OVYjzmUUeiqcvRE1Qo +G1J8cClrHqUEZ3Kc7aDCyrcvSQFd86iuYW3ZxcAFfEM5TriwkmjbSYhVqXGB +TtJNRH8ficR2NrfvqnOBW785OoawldpMBDY2uIAz105KpByJLLQd7nc/c4Ef +B6bv18iTKGVX0Ovzr1zgo82ChowSiYR6H2xr6XaBsuG3OqQqiSSd+NNOLrkA +mg7RP6RDIi3n6YJoVRrEGk8MlJuRKO/mTICpOg2ORsfzK5iTaOf7OR1+TRo4 +HL5K3seePrL0oeAADVi1fHOyjpP4/WLa0HaYBuwq2Z/jLEnEtcRtt+M4DdLq +OS8b2ZBoOEFtc6YXDYad7GKvOJEosTbMrTqPBnasO9GKB4m8lFO1ggtooFtW +99LRk0TG98s3axbSwKBl/8JT7C2po/cfF9OgmOWYfowXiaL9zccfVdJg+sm/ +jzl9SBQmI+lR9ZwGI8fPtm7yJ5F76mvPh300CBr7+3j93yQy4BrV9u+nwa/r +X1J5g0m0N5ppq/IgDXr47KK8sEf91YrLR2hwN9HbYFcIiU6bZk6VTdJgj0tW +0tlzJLJlC/AuXaGBf89+Jv7zJDoaIORbxEeHwRWNbbwXSfQ8M8YwWYAOjcvm +LmewtdvmJIOF6LC3OMewFltJ6vVnXVE6bKc0vjsVRSLBT6G6X6To8OeTeXP2 +JRJN/NXLt0WNDuWqV9X4Y0l0lTmr3tWSDseULF89uIL3r8iZZnKCDu5kkPss +9iWHYH8VGzrUVylmqMeTKLjSfM+aPR0qjZQe/4d9mthw7V8qHd7flqhrSyCR +SiuV9sKPDsMjpWudV0n06ZoUByWJDsXn3cTirpOoBG09w7hGh17nlD312Jem +yKbi63QIven5ZgZb2aApXDOVDqbNbAvWKXh+TC5zJnfosHCGpUL0Bon0fbI+ +BxfRQYtyZ+j2vyQSEflHXaeEDsIJO969wiZbfa6zlNGh6WO90xL2PWlkklhB +B3+PDIvjqST63dv7NLuGDjzhz7OZ0khUaSxc8LYF158zNGJ8k0RXVpjZUlrp +wE/mVwZiUwvGT9u10QFOHBBPx97OWiM83E4HFqfH78ewPWttry5/pEOatnPG +hVskosj+GyQ5Qgdpv6iG27dJtPLp/PuxUToYxcW51mN3RNOVShl0yCplK+nD +Dh9QHdeapEPEtBGPWDqJetLeO5rN08FmOlrnDnYyO/eRcxsIWH6RyPNPBonq +5nodAlkIiE/pqs/D/t5b6O/NRsDLWnKyCVu7Ui+LupmAB5q5n9ewR52Dfxly +E2DEpjrpcwfXb3xkxxEeAvZsu1d3GfuAxg4ZxEuAuGA9dy520tYiaxVBAnq1 +Rw2619drvpULixMwbxw+q5lJIiK3qIWXQkDjwTejZthJSSHftkkR8Ko425nA +HiV4trLKEECyfxy4tr7Oc/TMpBIBdUV9gkPYNX94IkaVCXD8tai8iD0y1n+j +X5WAPsrfHZuySPTX03ONHzQJaJjKSpPDHvYsEa0HAqhL2o7e2Fy2oWqPDxOw +k0X95nlsLd1jxuV6BEhJnLeLx04UHAzJPUbAzNlxogC7mrU0KdOQALDkqKzC +HvoRmn/TmADKDZ/o59iaL3m7EswJqLr1s7IHm1o+OBFrQYB5owDPKHZCeinz +RStcr1DAwgz2oL+BUpAtAWVib/XZ7pJoqxPfUV97AmxmW6u4sDUNhhzdTxKg +rrJSwI+dsPv8FSdnPC/zMeG92NVbDO/ZUglY3Jx3WxF7cIHviQWNgJCZxEz1 +9byBoXZjAs+7+N6eg+t5bWWj+mcIYGLtV9HFpj4+/xvcCUh/faTp2Hr+PcOd +BzwJCFt4122ynp/Av0/NG/czLsbPYj0/ePiQoi8BWQWnEq2xOWnltjL+BCjG +OSraY2uYhftQAglIORdh5bie/5dRjEgQAT5DTb9PYcdLCWTwBxPw85D8Pir2 +o+0jFdznCFjbV/3VBXvgV3krRxgBY6b0HfT1/O/hA2zhBDzzUW1bt/o7o59r +EQQIeEhtIbD/B54dF9Q= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "PlotRange" -> {{0, 180}, {0.7656731253466669, + 1.2894039532026849`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, - "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> - GoldenRatio^(-1), "DefaultStyle" -> { + "AxesOrigin" -> {0, 0.7656731253466685}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7176,19 +6718,21 @@ HbLGog== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, - "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "PlotRange" -> {{0, 180}, {0.7656731253466669, + 1.2894039532026849`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7656731253466685}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7202,232 +6746,104 @@ HbLGog== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVmHk4VV8Xx0XGMs9jppCZy3WvYe+lAVEoGdOPZCoylMxFkiEyVkKZMqUS -ShnvFVFUkjmEioyRIhR67/vPOc/nWfvsdfZa37X3OkfKxfeoGz0dHZ017fL/ -++/R9peyCYWo9o3zk23jDqg3RyjEcDAKV7/iO81bQsLA/95FaDANO976fqCv -2AQHWpYNMAwWYB6P5o+3i+0w94Jg2vpAFS7yCdRjLPbEYw3mvssDzXjDfGVq -8l4wNpKd/bQ00I2rp05PX86Ow+sDOjd/DHzBSqcapUVCb+OWfSWFHwp+4W0i -l2uqp0ux2FjtNxflTfyxRT1csrcS0/3yv91+ZBMnBScMDU1V4gkmRVP1oE3M -P5neGv+3Ej9SzXq0+WITR3Ew8rdKV2F0KTTgtu0WfsYeeqrCrwo7ievRd0b9 -w+STMzqWbE/wB5XRpDvzdLBctb7LS+sp5vN2KmPexwCn5ed6504+w4rM99os -bRmg1ziTcfz8MwwF375kejGA8eaT2Zarz7D34FlR5RsM4M1DKnO4/wy/3B+e -aDnJALJOrHPNi89wgHimT2bsdviBjIQDQ57jns5uTaW3jBC5OO+tEFmDp08L -WASMM0LELmfjbSk1eGu7g1fjMiOY/5fR8Dq3Bivqfb5nIc4EgQMe9jLUGhxV -ssgX4MMEk4z3kpk2a7Bm5M7VBi5msJ1y6Lh0oRanaRjVm1uzwMNT+cms9nVY -bdje2MCTBZr3B+Y3udXht9Fne5TCWCCj+uaox7k6zDR4Y44lnwW0ROs7YhLq -cNilr6It8yzw3gFtMTbWYdc3keE60ayAn6YUMInXY6JbvYHkEzb4eUMi609X -Pe7heN/O0cYGJZUFkRXD9div5ov15iAb+JKi1G2+1eOyHWw+Q1tsELqsOOH3 -tx7vqrLLuWG6AwYOe7l9lW3ALP9Wtli+7ICzQ8XH6gMa8Mfb6k1LXOzA6HBL -W5WlEWf1POAM3M0OvP1V2encjdiBQ97pD5kdtHf0v50UacQjV8S36E+xw5rW -zWRLlUY87sOmz1fNDrsT9TPwkUY8vX/iOdGeA3hKvi5fudmI70c4Mdef5YD5 -PcMyz+424jN1QzY0sUA9XYNsX1Ejnlf7sGL8gAPKXOrzPlY34h8iFIL9JgfI -KBUWbfQ24rUfGY/D8jkhWtth/0NOCq5V4v33r5oTSofT9z4UoOBQ9yTz6A5O -SGB6o5IpTsEbw9HfE39xAuFKWS9ZiYIjv9bwv5fmgneODWW3DlBwdGeR1XgA -F3gW0883BVLwhNepMOkILsj0MNlKCafgA6xS91zjueBSiZKyeRQFM+2/83P6 -LhesTu2cSb5OwXG1aalLbVxQelnKQuMeBScURrynF+YGkS93TBY7KNhU6zQP -vww3+NRseV58T8EsL49ay6tww8ST5rT1Hpr/r7uHzQy5oY1vP1/DCAWHS7/9 -duM0N2imp1qc+U7BulXVe0rOc8PjuGXd00sUvGaY6117kRvU/u20tlmh4Asn -z/38lMoNoIv3/N2gYJ88oS25Otp4ettx3x1UrKxOb0h+yQ0Ck/nvxzmoeJY6 -d8WskxtUtJkEgYeKPcYorH5fuOHL5t+WdiEqdpZw469l44FkOU0C224qlig3 -t3vDxwOl4BuxIE/FIwak7E8SPJB9TOLIC0UqtjuxQ4qewANCHEV3NNWp+Mid -SmWz4zww5XP20n5dKuZSzvY94cYD+Vvfcu/qU3FnfXSVry8P7M2nD55EVGw6 -bEu6cYUHrjzsczPcR8UsXoZhxdd54PtEYpz1ASpu+6NIqcnggYWKyTA7Yyre -K7K179MDHhA0FV9UNKNiurKpmMVqHjBQ8A//c4iKKeQP7duaeCDzjuVKjTkV -69kXWsj18oCSs14r/VEq/jN9PY00ygM3dqgpJllRcU1wUJ/pNA90TV66xWJN -xVq3TY/7bvDAeZG8/A5bKv4pr5VzmYkXJiXemPPYU3HFc/HP6Vy8sHiVUfKg -AxX7GDPLFovwAvPOXDHf41SsMvDDvUaWF64arZhFO1LxvPvQ/Q5VXnBNP18d -d4KKy363zI+QeKGPJd05/D8qlhPIOLftMC+kb3zK1HCm4omiyGpeW15QfIh1 -ftG4QPvM2u6TvPC2tVyr8CQtP61WeiQvXtDcNp2534WWH2uDS6YXeIHOq9qn -l8YjE3IvHCN4YcFqoc7qFBVnBXBt943nBR4Iimmmsd32P0aX03lhe7/hR0lX -Kha88TU+/S4vMHYeqvehsZBSdfRaMS8cFgq6VUpjkeaYiBMVvKASraTRS2Mx -e7vQ5lpeGHvEmLZEY4kfey7It/BCz0QZlc6NiiVj//omvuWFuF0dTdtoLC3x -7sxSHy/cXBS9s0wbL1ud42YzxgveF1zsPtJ49yE/5/ppXtA/dnrjMY3lvhoe -l/zJC+1FjMnBNFYI5bW5+pcX5Bf4BQk0VuSetJzdzgfJnFHZY7T1KJc+M7Pg -4ANmpCdzicaqOM7oqSAfqP7Sq+agsXq/vaGwFB8Mfo61S6XFR/Oskv4lRT5o -mlHiY6IxYfsm8SuBD4g70KI3Lb5a2Z0aJgZ8kOnw6UcrLf5EzTzlR0Z8wLas -IclNY1K7vzyPJR8sL3hHmztRsa7zPukgez5IP/Ja9hItn/qrfOIjLnwQuD2W -JY+Wb5T0TdDQmw/o25aJT2l6MGyIZ98RwQcelqTUJzT97LU6zuIXR/N/9MOb -HJq+9s8qM/Sl8sF/9bk+4XZUbCLUtZZTyAeybM1snDZUbBEgMKHZwQe1dAZ+ -aZZUbLljejSjhw8qFd2o3BZUfLSg9uPGCB9Qr3s+uXKYim26HN+3LfIBX9ZS -KTal4hPK9+oc+PkhS9O9UIhWb/+1BFRTJfhh98fYZRVDmr4cjCpkFfiBoYeo -QMRU7Bo3U7Sgyw8SX5UcdulRsdeEWmqUMz+w0T1ot9akYu+wbYlTp/nh/jRJ -kIFW/z48PTGHzvODZdda3D0VKj4HgeECMfxw1HZxvVGBikPuNHiUPeAHimbA -ur0EFcceO4i6f/PDUL7kS21mmt6edorQbxMAwc32sD4GKi7nPbaqsUMApNlF -nrrTUXF/938VqbsEoKmzt/vEOgXLHgmQPmIiAPn3q//lzlJw8+Fcpq5MAQi8 -kj13kbb/2jyS/frvngBM+u+f122j4NmdZVS1cgFo7+OXnn1BwdxvnwYnNwvA -rwT/47tqKdjZtGPWfE4AWvWDTL8VU/Cm0UrnO31B8Oj3OvEjgoJTikMfbBoJ -wmBPolJ/KM0/E12cyhFBiFhVmiu/QMGHWtkMr7sJwvXH333IXhSctU/yyaEk -QdjZu3voiTUFk8As482YIGj9mho3UaDg8+R8p/YoIbjmuPrt4MtGbJrHsWyW -KAQ53VqLApRGLM0cHtd5UwggjX3h4/NG3NVrU9lTKgR37d+sGT5oxKp+OxlG -O4XAP6LuVHYq7bwtDir+KSIMmRMfC8IdG7Ejn/l30SfC8KjF+pvhXAPev/gn -1OerCKjYCTySW6zHISY3FF/Mi0BG1jgs0PqF8nyVId7fIlAgwFpTPlqPhY45 -k2tZRGFjuDBYpLMez9e0rjKoioLYjUOOOQ/rcXpUSkBmsCgYU/8LdPasx1/4 -5XxesovBKaM4cb7hOnxZ/8hJEZI4KLPdeOv+uBbrlmc+vUTdBRdLjG8oz9H6 -t7WlyNfsUqB7IPW+sfpTvK7ENapiLQ0F52Q9KKRKrP/gYd6tWzKwShkuqhl6 -iJd4TJ1tmmUB3hxS1mEsxROJzjbnmOVA7XfOXX2Le/jgYtDBSaI89O7+HsG+ -lIPFNCRiWPTl4YhJXi65OwcvnHvZrGQoD1bjtx+FPsnBN35z6Z8zk4fsjJxU -vcAcPLp5X/WfkzyQmiRcajbu4nM7R3iF4+WhhaIreZf9Ls7aA6OHhuVhI8qh -kgln4/lTLOefRijAFwG+2edjGXghZ38jNVoBzPNsuK+2ZeDFj5HMb+IVILbx -Yanbowz802I9+3O6AvQpFfOeDMvAq3qzLzlKFUBJy+wQCGVger63Aqe7aCzJ -WpptfQsLv0yuE5faA8UBn51zRm/Q+ndB+tjmPSAW8mjOVyENz7gYl+q92gOM -1MtbB/nTcGJ+kPmPN3sgtu3OTQJ9Gu6RGMyy79sDmaOJOtojqdhZOJOgPL0H -1sb2ZS6lpOIQDlG3D+yKUN4wrHNwMwU/XJN4LWqvCE3FxyoSmpOxhY6FT9cJ -RUj/OFbHnJeMf16I4LvqoghaKW1y+ReTMfnXmPOClyIwbwnPKZGTcdv3vPWm -S4pg1sqbm1uZhMe+SCu5FyqCbfdxl18l1zHPO7mkikVFYGRlU5q+n4C3FtWL -OpYVwavz/neHuAQ8y6PXMLGuCHutiGIL7gm42c5iVmi7EtwTuOt/QTYBn58I -MrospAQCa4VzjPnXcO/f11tHDJUg4HN3gHhePM5Q9PL9laYEL0yRWV51LI4+ -fCGG/bYSHDvXEPY3Ixb7+UXclb+rBPsPsFQEhMZik2fpb46XKEGjamVfE46l -9VcN8i/rlcBvj9iPxjcx2MGeffzGhBJMLxWp6M5cxWJxjy2JRGWQdOd+XEGO -xmXlj1rWdZUBFCHNSSoak/oeEBuxMtiM2YTKsUbjY9KlYvsPKoNwRp3QxuAV -nNiQN33EURm+kbo7XoZcwX9/pEaejVKGV8Te6UZqFB6yD6go7FQGEr2w9ajj -ZewZeU7Gs0cZHnwsy/Uxvox/F/vdUhpUhoZrTvN8mpcxz7J3eNVnZfB4oX3o -HvNlbJrkZtK0rAxtacrurU8icW2zzfiwiAoEnqnm5OaKxLeVyFy8HiqgsY9k -U15xEVubvUuheKlA7LXC+M6Ei5jH6yT3GT8VyEgrMeD3uIgTyuJ5XoSoQK5C -ZSW/xEV8ac8Qn2+iCgj6S6WPXQ/HrvJhwm8qVUCMPTbnYkAY1pBplL6yoQL1 -LOU3BE+E4IW9R+6pblMFOQrZ9b1+CC5zmZQZYlQFpeIk/jKxECxbwL5bg1MV -Pv5iffhqJBgLSf0nPyalCpUFecl5/wXjLYl/SnrGqnDB8EVihWcQ7hAx1P6V -qgrnr1+zj7l5AXdJPJbbnqEKBqmagfRBF3C/tLgQ/x1V2Dv9Lvae3QX8WXH9 -D7GYZs+i/LMSu4DXdCubQutUoclLPeJMUQCWOy51iP6rKhiVOAxYUM7jqOxt -p7i11KDaeFKHi+0cjsv1PSZNVoOzHxQOzCz646R7nw4QkBqU/+cs8LXPH2c+ -qFWwNlGDFVOJK6QCf1xR779w21EN4o7+3HLX98ejw59DJK+qQdJXhqvPAv2w -rlhzilq/Gvw8UBYbu90Hf5GRHZ0ZUgPBoYSS6aGzOF4pRqlwTA3cX4ztDK88 -iwd1TduEZtQg7EXMBMnpLA6y7/67bUMN0neMBDI2emMHM3/CLJc6/DHdpGu6 -7IVvxV3OaSCqg3ghMdVX9TQ+k6jZKkxWh/3cp5Ya2E5jlPJ1LlBPHXxtNp4S -pzzxZMYBsgaoQ/4RnqryPE+sVcLaW3RQHRTbn2c/4PfE3a2prMmO6qD2dNSi -itkDczAUBJyMUocq69HkZjY3zLROtVqKVofGwwrrdTOueGvhk+blWHVwYnaV -//zaFS8OCS/lJdKeV71E9yzWFXdVpZ4dv6UO8RVsi2HMrjjN5bK70wN1uP3f -rZtmnKewQLOz3Yledag99+dEJjqJOWou6XzvV4eZv1YPp6RPYqbyOwIXP6rD -YnDHxRPMJ/Fq5mDvnVF1cNj9bJ7S5YwH/S2PjEyrw2N7mX4rN2ecJQWmxzfV -IVmEJVBXyQlLXN6lby+nATc1i9K/Sjvi8vMs0p8UNODO3qipmJXjGLkvMZ9U -0gC2cPObXq+P4xNmLT2e6hrA9LKGsupzHN/h9/AK1tUA4yWeTB6qAxYuK8/K -MNcAgvK1UXYve8zXY7DeF6gBL78kKzD+sMGFrXJj9iG0+d7s24U6bDChhrP1 -U5gG1J9M/VNeaIOP3v2cMhmpAZm7tvbqONjgVI+rCivXNMCqOtp96JU15th4 -a8uXqwFXZA10VB8dw6y7HZ8dfUV733efGLVyjuIzwtj0QbsGbA816duKPIo7 -2KVHGd5qQL/L422/Th3Fib+nGKu7NMA237PYRvEo5nh93lpwiGY3FLjLWHuE -Vu8Jy8PzGpCzRHnb/8kSi1XWabrxaMIxjWnBmVhzHF50t62RTxPOi90PELI1 -x58yIx0EBDXhmrdlepKcOc6JMop6JaoJ75oZKw63HcaSx7o/7NmtCbuH6B6z -sx7Gu1dn/BZ0NEG9V1fFJNsMqxoIPw46oQn5mnm9x36Y4Ccyp//SO2tCReHU -DtOXJpjEVmuc5KIJwxfqOGNum+C9A3bjhR6a4COcPN9laIJt/G9zd/trwoPL -hlIlGcY4okgwQDlGEwK6CTJ0lka4i12A/LlcEw54tAp9+LEPWy+7XfWu1ISf -oHDs29t9eGio+sPqE00owzsqiPf34YkS6zMctZrgMXXaL9ZlH23/v5mt16IJ -hGaFhrGBvVgqkG/r5oAmpGUcFJZ+Z4jPjfK0mNIRgEe6QMyXivHrNsfGMnoC -fI+esqeLx1jicfFzNkYCLBNKtKaOYtwRofuwg5UAhX+tvjyZQlhayuWmKS8B -7m81ierzI/zhVKWHqRwBPAY4mvIj9LH6jMVO00ME0C/7PvIgiYxjPmQylZkT -4Kmemj+PCxmP1H6lYztCgFC/iZImbTKOuxa00m5NgAgtduefn0h4XCl39KAT -AdTNhztzNUg4xWeh4uA5Arg3R4x2TBLx4q9E64O3CfDOPuJxwyUtPDKYb3M3 -iwCHBm1ecB7Xwh2Nz2yX7hAg0XZO4Y6OFi6MHbfPzCfAgpnSI6clAnYQ1fpv -powACcVjCXEeBNy6d9g9vpEABwSubhP9TxNnp+4Jbv9CABmKqJX0OXUcF4hC -xCcJQLik9pzJWh0HHrcK9Z8iwLE6ifciJHVsuftiuPA8AapLf2/lb6phptqu -yNMrBOCz3O8/LKaG/ceD4llZtIB0ivTBzlsFG6u1ZR1U0YIr2cr2Y2aK2I7J -5FiXmhbsFD2zkSikiM98ame31dQC6fKu3IzJPTgp4V2kq44WQOa+qBeRe3D/ -VK97hKEWnKS4y9rWK2DXvK+a1dZa8Pj38V0shvI4invbG8lLWtBnL3Mp55os -vjEdFV0SqQXZjRxqPSdlcTF1O1K9ogUzgc7mVmRZ3HGWpVIvTguo2X1DhBkZ -zN3BmWGTpgWNln/dPQ/J4LwoiVOJxVpwwdY1jSApjSm/9P6udmpBoaHEEcLy -Lpz/9rmL1QctOO/LorTyfBeOLiJ0lPdoQZzcKTap8F34oK1SptugFhz+z0Dl -KeMu3FsnotPzWQuKf/JFV4tL4NnL6+fKl7Xg6XHXm+nOYliA6/msq4g2mEeN -nHdXEcbr05pHm8S0YfuImpraphAeeVFeK7pLG2rSTCzM3wnh/PPFcd0y2hBH -JkRf9xHCygM35UBFGybbPxynqxbEe3MCXERBG0psngI+IoB9lDWHPrhpg1Do -338xLbz4wqrIHydPbZBiunZrLJMXhzcziCyc0YYDFgyR1/x4cYJdnz2bnzag -+t2/eiV4cWl08Me9odqQF6wmqxzBg7+MUAafJGkDnfhjMTdzbjxTUrJmmKoN -yxaTwTl7uPGPcylCXenawPmXQJBi5Mb/WFzs5m9rg7X1j0K6Ri4sps04KHtP -G7AQ2xchdS5sc91s4OZzGudqRocYceATdlqrMnXa8DJTvfkOIwd2lREXrGrQ -hj++s1l7W9nx+doFm84X2rBIV2HOY8SOUyZT+5neasOLa/uDSw7vxB0Gg31B -49rw1Kmmdfg8GzZYcO21ZyXC1/D4R1YCzFig3rigYQcRdqY7tzpPMeGFWEW/ -XRxEYCm3ev2qhgnnSP3YMclDhNHRTs58Rya8dSxsn58YERKMo518SxkxtT61 -KkaNCMkfXgkuW2zHt+MCImc0iKDu1b1uI7cd+1nbmh/SIgJHXZ8u2yYDllwU -m+UmE2Gu0fG20wMGHCldKnV3LxFecO5XeraDARvGU1KeWBNhml55/fbQNixi -k/+fgB0RuHz3MzRVb8M/paOVQxyIUK557b1q6jZc0HDwNXIiwts04eLPJtsw -/Y/ef+2eRPhC9xEl1dPhFps5n/EwIojyownF4//QAVmhw+wFRGD//qpWPeov -evq9Vcq1kGY3U2quPvgXyT4//7uumAj8FVGnS7n/ou2m73M9HxDBZjQ1tKfg -D2r2jfnZ8pQI6WE7tJU61hGqX84IfUWEhld375OV11B5dIH3h3YiPD3bqoD+ -rCJxc0tDhbdEsFw74Fv4ehVtjD+Y7esigkwqITbdfRXVMZ0y0Bgigu3VklvT -xb8R8eiHL1PzRAhYvpw1QFpBxaIRz9EiEZgWh+VKdq4g/knlxJtLRHCbV+95 -N76MloPitPf9JoIL4zCLxLVlVHUXx+X8IwLlsFVyzfgvpDbzSMWaRwckv7RU -mN/9iRQirwU36+iAs5Kz77rFD9SgV8R4SFcH7qp5OeUr/kCWq9S0Pn0duBg+ -5prF+AMF+6w8nDbUgbIwZ50/wYvotaPzZ45DOvD9u8Snb8cXkCeZaHrcWQe2 -TMmBmmgebSxbDky46EDIeog65+YcSqnwcvVx0wHPyT1XQxvmUI18/qXLZ3Tg -ukLy6TX9OcQisPNJSYAOFDDbXfPfP4vu//wsuhynA3hKJu6U9zRC5RulFxN0 -YJErf7WQMI26TwsSmZN0AIwuFJ/6O4X+jB+yFEnXgfXExapjiVPI9P3zaLir -A03O/+JnnnxDsw+uf0+s1IEjTjPx24UnkaIbmbp7SAfuvVe/nab1BSVLm/+5 -MqIDQiNFNy/v/IKWx1y0v4zqgFv2pZCXE58RxSHxQc5XHZC3Cflv363P6Kjl -WIbgdx1w3N/cxrs5jkL0rvqx0pGgNsTqyHTVGBpdy3zgQU+ClrLvbx56j6G9 -z8q/tW4nwY0EOz9G+TG0U2PQMYqVBEZFK9k+d0dRnpzSwb88JCjWWK6jS/2E -XnN/kPq+mwQMfVp9ymnDSOX9pKOZAgmKAphly48No7TEPxn3FUmwmfhbukpw -GDkyy3K4q5Gg4P1nIZQ7hBY3Av+MkkiQZyJQfPDpRyQwLdbTZUaifd8xBVit -DCA3imf0U38SpM3qp1e+7UULZ2eDDgSQILnb4nprZi8KFvf26g8kgateRail -Ry+6Fu57dC2MBMQPI3yvGHpRhW6gpH4MCe5nrDCI7u1BG8+uNLRkkUAyqD48 -qucDinFnrDh2lwSZJoTRpJIPiFMg9t5kLgn69BKf04d/QNIXrl1jLiLB81V5 -krjcB2RMSLUze0wCxrmlou0RXSjtcc5ydwsJlM8V19Re7URiTpLTp9pIMES9 -wrlE7kRFHAXDy69JENO5rDqy8A7VnC1qFugkwUAFIfiVwzv0SelhisMgCVIv -ODe36b5FCqW1yl/mSdB1idNYUKQDUfN6XZf4yeCgE1kjcqgNjR+ScgoUIsPw -cVbBTb42RLd+1v6vCBkyJtzenRxtRXuPMJszSpIhQESw4tG5VtS2TVdHWJEM -yOLCR7X8l+itSy6rIaLZhSjvZ/ha0HeOeYY2IENDKOny2clmxFFP2jLdR4bd -+05ZuTxrRpa83T+PmZBhJf6sQ7Z9M+pp2T7ieZQMaWb1PmpFL9CQ7JnyFHcy -RDYG27JZNqG/Xc9K+U+TQSy2NkhZvgmJXWS4l+VFhjnO18dOblLRib47GYV+ -ZMhb10x9foKKxq++j6wJJcPhe821B+UpaOqbltV4EhkG+3/tSBmpR8ul/1bV -ntPWvyrlW/3yOfpmY5QXX0uGsDderJ6Jz9Hg9usmX+vJILV6KSHr2HNU7yyS -eauJDK1EppXQb89QlJC27mY7GbSkNrN2cD1DXHFnwjtGyFB2tE3xashTRE+s -lJUdI0Ove++uWpOnaPnr6tuLn8lgUD750FHoKRrAV8U1vpGh2GJHy0LNE5Sz -mkvJWCTDtnqfGtl/VUjZo4/OjV4Xeqi73u/MrUQS/GL3Kdt1YfpV5tG3AZWI -q8XliBCzLpgc7Rb+blqJfkn8yH+zQxd2ZopLWKxVoLp+tn2a/LowEijJesm2 -ApkYwdV/8rpQwyuaUna4HJ3a/YA167AuxEVyXrJnKUOhrf+dkbPUBbfN+b3j -LfdRihvPm6qjujA0nCTJF3kfNRSFJL6x1QXxivN54X9KEZ+cCefmSV3AFWbD -MqslqE1uks85UBcqZX6d9OMoRiNtty/MB+uCTT/jjZ29Rein+6H+4DBdOJDz -/bRBVhHaVfIkIzVSF1y0Ax1tFYpQsHyUSMs12nwsDSkHzAqRosIuSblcXfB+ -cVh7rKwAwevuyKp8Xfg47T4rHVKAbDxjPqNCXeiUrhL7ZlyArpR+L7C9rwtn -HhoKffuWj0YUGnbHP9GFRSfHyTLFfJS0x15p/pUu3EhmdopPyUVLiunEqh+6 -kNU1EHikNAsNvoUDvL90QX4Ansi6ZaEmnwWrgBVdGHgxspIlnYWSqg76E//o -woXZlXtncjORoi7dwzoGPXBbZ/t9Nu82cjl4VqpFQA+Impln2ym30ME5EXVZ -YT1w+Pj7gPTVW0j9+mt0VVQPLIPG55gP3UJbXTKOxpJ6sL9hLixg+CbKthu6 -9WaPHnDufHH4Md1N1OthvLNXXw+MQ8RGM0+lo3rWFRFtrAccXPv5lTTTUcGD -gj23DPVgY0O0XXtbOvJb3DSyM9KDzXms9iQvDbEHPb08YqEHisQlPbXJVGQU -I7U64aIH6k4TMehKCqop/Pt5JU4PzAV+W8cLJyLivoBV0wQ9OO1omB7WnYCq -P8/vzLuuByfymxVEExNQlcSojmmaHpQfb2dy3JaAHt5uup6TrQf24VsbNb/i -UV7iVbJxuR78ZpWLSfodiySUtszvVOjBquclt9zaWHS3PdB1qUoPcvCb7gMX -Y1EWk2dy9nM9yOxnGjjMFItuRJpOLjbpwc9KjkrZXTEoPoAz9XaPHlwWlPj0 -+kw0YuGNK/7epwep7/b0pxOjUUwlXcPeQT14x1P1bIw+GkUvLH2bH9GDZxPX -PFfuXEGXPHv1Db/pwUnBMMpqfxQ655g5PbNGi6/SWyOHk5eRw34Z0JPQB7cA -HdFjKRfRZi8LR4ukPkxw2ST5GlxEeW4Lw6Yy+hBycSPHay4cfYupDXJQ0Icd -RS2BGwfD0bl2i8chmvrAMtljvpc7DF0zD5eoMdKH2BA2mbC2YKQydnIeH9SH -xGs+05mRwajL17julZk+aE5eNwjSC0YCqTw2A5b6wMv2tN3tSRAq6Cm9/ttB -Hw4yUj+NPAhEdXZ9G1q++pB+Q1biVmMAOjFT19Hgrw9yNYuPG6MCEF1o3u39 -AfrQHeVAiTEJQEbZXlrHQvRBsnOp9HffedT9aZv3+Sv6sMdDnlly7RyadVEd -rszQByn+J10kO38keja2VrVJH6YqfuXf+uONkv65ayc068PLhbVdPx56I/o0 -o8qpl/rA/uY9E6+zN5p9xng/r10f7o6PEh699kJ1dNG3eXr04RVnAt9mwRnk -cCMy6PekPmTMeSidCfVEnXLOv45O64MqcYM1mOSJ9tZi38ez+jAX/uKnxqoH -Uhzdcvdc1AfMe0L6XqAHWpe/aDO0pg+z6RczD110R7frQ7QpOwxAw8Shx7rU -Fe00t68U4TCAqZ3Zmyf9XFHkOEkliMvg//8HftORXZEn45qsOr8B1LrUxS+9 -OYV0LAL5CiQM4DtQT15Yc0H9X879uqphAHspwtG9Z04ifjbvysO2BmCiUdaz -aXsCFe67GPrD3gAejhv5O205Is2LSfvSHQ0g/B2rW0eRIzL/UdE3eNIArOzO -h1asHkcx/Svrp7wNICwj/4h3iQNaK4jYG3rZAGJ0mOm1tOxQzEjKDvFoA1A5 -c8t7cMYW8QkU9FJjDGD31CdnhzxbpB7/0p0x0QDkfk4vz3PaotO+rAkptwyA -73NkOcu6NRrSS+8pfmAAMlY3DDiXrJDnhcI7B8sNQDpZo8X3iRX6XV7tNl9h -AOJHJZjjA60Qj/TgqsYzA6DLGfD7tHUUmbGIizU2GcD8x6C8XsGjqKG32LWn -jxavQ1PnDpy2RKYcNSqBgwbwwitYbB/REg0at/8WGjaArHOHi4YYLNFy3Vzc -f+MG0G/BXJZnaIFU8tUfzcwagN+GUOShlsOoYcgwMPG7ASRKUUuuuh9GpnxW -WO2HAbwR/xM/wHYYucde+BCwQuOYqPIam0NouSkmS3DNANzDk3MNt8xQ1J+M -U3V/DCDfNaK0v9gMcWndVz6xaQBXhz8+C7A0Qzln61b+/aPli3GwSeivKfof -HbLGog== +1:eJwV1Hk01VsUB3AZUpGSzBEuikyZveTsImUWMka67v3JPOYRkYSnkKRHRZQx +GUPJ9CqKpFApKTJ3jRl+iJR3/PFbv/VZZ63v2mfvc4441ceCzszExMTA3/rf +763Cnscdb3U2HROcol1gIJ3pHDWqXhGqp6by07H7M9VTJPXq0NQbrtR1m9Pe +bORUeYHUL0d4ENjlwRGNbHptqDZtLMUVO+6lwNOIwk7UuWLM44b9pMPvzqpy +Fzr38P6oO/Z4T2tYSG03Gny2xuWFLTRCcVjU/Yq+7jOL98E2+hGmFdD2DYXM +pzr5YzesjnMEFw4gq1090WexP0byhz7yHkIWhbzMIdjTG/XGSeURtHLX8H0Y +9sZ4XzuVpVG0yB6yfAFblDujxa+WgW4OZAVGY5sKL+ZN606i0o29blexiSwJ +PvlN0yjXaXYoBTtCyizao+0HstZde3gLu5v/w/7Awlnk1sFuno9Ns3d3ux4/ +h2r+YRYtwZ5JZ7r70HseBU0tQhX2Jgn57bPKCyisvy26CTuF1nh0O+8iErpY +kt+GLZZvF6G4tIgCF+NEu7A15WKmvWp/op6LChzfsc+of2sb111FT7wU+7ki +GYgMPsu6Rfo3svzef18Q+0Ith7bMpj8oJCW+RRI7DTQfuLatoc/P3rFqY9Ny +W/T8CzfAu827QryxC19e748UZga1hqzxUOyZ705h1+KZwUNcrDwOO0x2oaLM +mwW+am07mIedUipO+aHMBg9Ky8yHsHs6Jhv+ZLMBRxen+zy22Nxjey7ejdCq +Q+tmuchARaqmyfJLG4FDma1SCrvpybkNnrWbAM1wu3phLzS+/8bQ5YTwUfc6 +zigG2mHMuT20gROkzXwXKdhKH/Rgq9ZW6Im2TTmA7T5clbVfgQsGv3f+8sD2 +ZW5TOsi5HS4TniGd2CMSJbPRi9yQ5nhasfQS7g/RurldZQfks+bmt2EzPxgV +F/DbAVZDb6LGscVUdlsUTuyAVrLddU80A9nrJj18288D1Xq3+nKx2138A/hf +84K8lm9sVQwD9eUnXnHexAcjzbt0PmNPThRm3z/CB48iy21/Y28JHHp/4Ckf +7NVPeaIfy0B6l6xUnav4waRHT7YPuyZHfaEgUxDcKBebd8cxUM7IStBfgSLA +7s4+P3WFgY6diO0LKBaBkiSTOaF4nN/Eo188KgI8o5XHjmGr5sjxitmJQu3y +95Vs7CaqUwWbzm4Y+DYSeCqBgeZ+9P/NiBKDH2X+/40mMhCPl15lhYkE9Iz5 +l6knM9BozpYz5u4S8M3BPMUbu/prh/BUjAQEXrZuz8M+aewYJf1UAlyl+gwF +ruP69gVZ3FSmgFX6gM0atup4/kw4vyTED5Ovem8wkJUrh7zhgBRIuGps/3qT +gVDQCWWb31Lg8yc4TuQWA8lGZ2rQBKXhM3Oc9SlspmyVw+HHpeGMD+/kEHZx +n4PNw2fSYH7/O+vsbXw/rYsihe7tgczVsimhO7g+PZOP41QZcN3Ql1F8j4Gy +LVO/LIXLgL5e6LVl7ETqQD/rbRno1JvpPpKNz/eFsxOi72WA/zHV5Rs2d10G +k6WuLCzP+xF8ufj8qEzL1lL2wVG2CKmUfAYSlrgacWVYDsRlY+LeFjFQ3WVS +ZplZHnQJZnO5YtyPebsPhLg8WAwqh1zGvtMkKXPYSR7EdR/OHy1hIAnXmnc/ +P8mDpIl6XHMp3m/RiBTxWgG+a5arf37IQCLCooSYnRLkRLne0X/CQHK5gZy/ +kDJkRHZUGzQzEJUWtSBvqgwO9c/0qrHTKMl9zieVYXH1ufSeFgZiuVda9jJY +GXZOL06yvcL37c64VXK5MthSFS42t+L3NM05Q4aiAmPVMh32b/F8rxgr2G5U +BTun/1afdTHQXX9J86o2NRhb9XuQPMJAHUFI41KuFrSyt68Ec44hcacuU0fP +g7DtRXRtp+YYoq89KhEJAfg7Pa2i1HUM8U9Us/NTD8Pq7eSoyKwxFKii/TVZ +Vg/+8+w0k/8yhqhTqy0840fAPi29gRQcR8WHA9gz24+CUixDbtZlHOWQ7s+K +Ugwg2L+7ObBkHP08JPCmKcIINOYsiqXZJlAvE8vswGkTaK62FFBynkDeu3yS +Iilm8NZQ9ZZJzQQqcWt5eiPaHLhljfdnik+ic/OCS/vcjoN1YVHevthJtGCo +b918ygKmGywSbq9MIi2Ha4dGjluCj/7Bn8p+U+idYIZ7k4oVtG2SiDUdnkJC +eVF1BXtPQG2pWHAFfRpV98sam261hntdqvbRg9NI9MOMa9CUNeTtVv1z3PkH +UrlxrSi73wbi57u6NSZ/oAzWeYXkRltw+edwxQvNGfTokGJP9BM74AzcuOXw +xRmUpnGZe7XQHtROJRjavJ5B7V9yY1TiHcBHTcFry/ZZVGWSLul74SQIbaNQ +Gu1n0ayXJZM3zRFsJ7V2nsyaRQv6MmemdZ3AydxqcOfwLCqY+vwzQP0UPA1V +mE2Wm0O2d3NdHDmdIUBZgvziPYcqHhqdYol1hrssYiFPK+eQlvC75bhlZ3gy +2FFWOT+HKP2uPZ1up6FeSC6yU2EeDXN4mKUPnYbLp/OVYjzmUUeiqcvRE1Qo +G1J8cClrHqUEZ3Kc7aDCyrcvSQFd86iuYW3ZxcAFfEM5TriwkmjbSYhVqXGB +TtJNRH8ficR2NrfvqnOBW785OoawldpMBDY2uIAz105KpByJLLQd7nc/c4Ef +B6bv18iTKGVX0Ovzr1zgo82ChowSiYR6H2xr6XaBsuG3OqQqiSSd+NNOLrkA +mg7RP6RDIi3n6YJoVRrEGk8MlJuRKO/mTICpOg2ORsfzK5iTaOf7OR1+TRo4 +HL5K3seePrL0oeAADVi1fHOyjpP4/WLa0HaYBuwq2Z/jLEnEtcRtt+M4DdLq +OS8b2ZBoOEFtc6YXDYad7GKvOJEosTbMrTqPBnasO9GKB4m8lFO1ggtooFtW +99LRk0TG98s3axbSwKBl/8JT7C2po/cfF9OgmOWYfowXiaL9zccfVdJg+sm/ +jzl9SBQmI+lR9ZwGI8fPtm7yJ5F76mvPh300CBr7+3j93yQy4BrV9u+nwa/r +X1J5g0m0N5ppq/IgDXr47KK8sEf91YrLR2hwN9HbYFcIiU6bZk6VTdJgj0tW +0tlzJLJlC/AuXaGBf89+Jv7zJDoaIORbxEeHwRWNbbwXSfQ8M8YwWYAOjcvm +LmewtdvmJIOF6LC3OMewFltJ6vVnXVE6bKc0vjsVRSLBT6G6X6To8OeTeXP2 +JRJN/NXLt0WNDuWqV9X4Y0l0lTmr3tWSDseULF89uIL3r8iZZnKCDu5kkPss +9iWHYH8VGzrUVylmqMeTKLjSfM+aPR0qjZQe/4d9mthw7V8qHd7flqhrSyCR +SiuV9sKPDsMjpWudV0n06ZoUByWJDsXn3cTirpOoBG09w7hGh17nlD312Jem +yKbi63QIven5ZgZb2aApXDOVDqbNbAvWKXh+TC5zJnfosHCGpUL0Bon0fbI+ +BxfRQYtyZ+j2vyQSEflHXaeEDsIJO969wiZbfa6zlNGh6WO90xL2PWlkklhB +B3+PDIvjqST63dv7NLuGDjzhz7OZ0khUaSxc8LYF158zNGJ8k0RXVpjZUlrp +wE/mVwZiUwvGT9u10QFOHBBPx97OWiM83E4HFqfH78ewPWttry5/pEOatnPG +hVskosj+GyQ5Qgdpv6iG27dJtPLp/PuxUToYxcW51mN3RNOVShl0yCplK+nD +Dh9QHdeapEPEtBGPWDqJetLeO5rN08FmOlrnDnYyO/eRcxsIWH6RyPNPBonq +5nodAlkIiE/pqs/D/t5b6O/NRsDLWnKyCVu7Ui+LupmAB5q5n9ewR52Dfxly +E2DEpjrpcwfXb3xkxxEeAvZsu1d3GfuAxg4ZxEuAuGA9dy520tYiaxVBAnq1 +Rw2619drvpULixMwbxw+q5lJIiK3qIWXQkDjwTejZthJSSHftkkR8Ko425nA +HiV4trLKEECyfxy4tr7Oc/TMpBIBdUV9gkPYNX94IkaVCXD8tai8iD0y1n+j +X5WAPsrfHZuySPTX03ONHzQJaJjKSpPDHvYsEa0HAqhL2o7e2Fy2oWqPDxOw +k0X95nlsLd1jxuV6BEhJnLeLx04UHAzJPUbAzNlxogC7mrU0KdOQALDkqKzC +HvoRmn/TmADKDZ/o59iaL3m7EswJqLr1s7IHm1o+OBFrQYB5owDPKHZCeinz +RStcr1DAwgz2oL+BUpAtAWVib/XZ7pJoqxPfUV97AmxmW6u4sDUNhhzdTxKg +rrJSwI+dsPv8FSdnPC/zMeG92NVbDO/ZUglY3Jx3WxF7cIHviQWNgJCZxEz1 +9byBoXZjAs+7+N6eg+t5bWWj+mcIYGLtV9HFpj4+/xvcCUh/faTp2Hr+PcOd +BzwJCFt4122ynp/Av0/NG/czLsbPYj0/ePiQoi8BWQWnEq2xOWnltjL+BCjG +OSraY2uYhftQAglIORdh5bie/5dRjEgQAT5DTb9PYcdLCWTwBxPw85D8Pir2 +o+0jFdznCFjbV/3VBXvgV3krRxgBY6b0HfT1/O/hA2zhBDzzUW1bt/o7o59r +EQQIeEhtIbD/B54dF9Q= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, - "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "PlotRange" -> {{0, 180}, {0.7656731253466669, 1.2894039532026849`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7656731253466685}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7437,7 +6853,8 @@ HbLGog== AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0}, + AxesOrigin->{0, 0.7656731253466685}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -7465,7 +6882,8 @@ HbLGog== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.12263499218727081`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.7656731253466669, 1.2894039532026849`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -7473,10 +6891,550 @@ HbLGog== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913218813523655`*^9}, - CellLabel->"Out[86]=",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] + CellChangeTimes->{3.9913206956809444`*^9, 3.993816355277898*^9, + 3.9942564909753513`*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"dbefdd4f-d3e6-4a4e-bdf6-9ff64721b76a"] }, Open ]], +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9917994543716736`*^9}, + CellLabel-> + "In[104]:=",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8224734718715703`*^-273\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 104, + 9, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991320696298666*^9, 3.994256491515808*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"05c77159-1cec-4638-a26a-f412b9558ab1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.5259752697129924`*^-285\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 104, + 10, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991320696298666*^9, 3.994256491526834*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"39f38b09-d678-466f-8e7f-21dc5f357709"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.501039198474144`*^-297\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 104, 11, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991320696298666*^9, 3.994256491536895*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"974a09a5-0ede-4f68-a911-91779b866969"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 104, 12, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991320696298666*^9, 3.994256491544745*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"d1b78930-cb2e-484c-8838-f5800d54fe39"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13dcTf8fB3DJCGVEuu3uPbdbaKM0bu93Q2kPIaFC0Q4NKrSk0lQRJWlI +655TJIo0JaRBKkWR+S0SGiL8zu+v83g+zuOM9+d8Pq/P+zD3+dm5zZ0zZw4/ +35w5/z9ODT5sZscX6O00+uy1qE1br/syI1i/LxI61LpnmtIZgCId+xh9qWAY +u8oiIV0BgmxKevn78sCj1WuNR/omWDEmmjrTex0C3dd6aKdvgaG7Vn4TvY0g +WGZgTaY5gDF75NW33qeQrTD/6Lmz7jDTq3luvHcYPI+S6RB3DJoMrxV05f0A +49mjJq8840ByqPrDPsU/cF/24XHhm6mwytu5ZKEhPyrvN67vdr0AqWrGd6y2 +CWADw7DOyeQyvLigWv9tuRD2m3zysqrOhfiCsI65YiuQ28HFAdsCEE1/G5eW +vRIrY402388rhBh7U72nUyL4seP14KezReCvlev8MJKBH6MjLNMOloDZlaUT +5gkMbGwZ937nUwKshcdj288x8PRobYpaQAl0dm+veFbEwHu9QW/rwktA+ZAg +/2A7A0Wia6+VXSyBT4VHC7+Li+HRkAr9lkclsHuV1ReJG2I4NtmbM7WmFIy+ +/grxfSuOo/NzPTRelkLwlvS1DZ/FMYT34prnm1Igc5X6V06J45VF7N+ZH0qB +Ye+iVS0ggQT+Hfo6Xgqfb9+f5leWwOEfPpc855dBWmRKwMVjEnhsdld5vlIZ +DItwfJuFJNFT4NkEK7QMRP3qpERFJTH7HPfIi7AysGh1eOIhK4mctom/8afK +oCokXnHZeknMqmzb/D6xDM4MjY/sdJDEhI+fo92vlIF68Z2DX/Mk8U6LcnVF +cxlE6NruFd8khd1q9q5Wi3mwxenyd00DKcwdzjQaXsqDpeGjUdsspDB9ouPk +4ZU8uNQUXZjiIoXBydNzIiV5cNusZnRBnBTeH5DV9VLmwbgDEfTjhRSq7p5K +cbLlgVPg5Jm2UGncLVsn+DCNB3IZBpIj0dL4ehGfTmsGj64/mbcwRRoVe5bd +b8ziQcjsmk6DAmm8OCLzpTifB+einESq26RxzrT0WbzBg7azD3KuSslgUpeU +ZXIXD7TJi5Un62Tw3MXGqRuLSTDqbf8z1iqDbY/NUt4JkWA1Z56J81MZ/MAT +kluxgoT9dr4v4L0MpjUp6TuJkmAcygwLny+Lg8l+Zq0ECYdkpvL118mi7d7U +vgEdEpoP5nxpCpLFgOC1T+Z6kGA6qyV8PFQW+643W9/wIqE9pVtjQ7gsns5K +6nH2JeFF9aLwgjhZNP4q8L3Mn4SxJQHC0ZdkMSVvrafoSRIY5Vs0jRtlcedA +IKmUSoL3z2/hrUJMlGGvVdp3iwTtwwdWfxBmYmxP1KfGahIERvpL+RlMbIqS +nCdzl4SrA009eiwmHsg0dnpYT8LgvXOKNzWYyOQ6kR8ekmAdrdWX68zEuTK6 +aDRAgvRfnk+dKxOlAjqMdr0i4XMQi/+VBxPnRS6/4TNEQqz7EmVGABPP50p1 +nHpLQr35q6ikWCZ2GSmJHh8lQV04QiW0gomuj78dS/5Fwpz4yeYLVUy0dOly +2zNL18/v6Vh1h4m1TsMtnL8keE3aRX+7z0R90ulTKR8FBX3sgYP9THSYcLsb +JkDB6pzW0/b8LNzsbGxqJULBO1Gu5BEBFgo/v9T+bDUF11MqKpKFWFg+dvOZ +PYMC68jMl49EWZgXssnFVIKCWDdvdX1FFprO/ZExK0vBzLrlg0rbWOgyqqqW +sI6CqWzxiPWOLFTl8Jk1K1IwsUyOreXMwmXX/Bk/lSgY+6HlaeTBwrFBxxd2 +qhQM39k/5XiChdP6cnzPN1AwpOR70SWShVp2Ey9HNlLwMueY7oEYFm7UrQyY +1aCgJyox8vBZFtaqw4CwFgWPzG8tjb1Kv48FZglyKXhQ21CRWMLCd4esfObo +UdCs0mafRrGQx9/DN0773so3mZerWZjRUBjYiHS9A4vlbz5hISfwec4GIwoo +S5FHNU9ZePOKSvaCzRSU1cn41PeycGageX837cL8DTcev6HPCwrb7DehINPL +CYYnWRjHF1VrZUZBxiv34Y+/WGii8lvyH+10a//oL/9Y+Iwosig1pyBpfezj +n4sInMtTkp22oCD+aqrv36UE9gl23D9vSY+vaPaKeasIbG/VAHUrCiJ/V+xY +Jk3gkO1E+W5rCsJ87v5aRRB4tVasdJT28aGWbHEFAscbCo4H2VAQ1DTwVk6d +wDfM9OIwWwq84ucf0jUm0BzzjVy2UuD+Z9lKA3P6/pE1K9tpH/ATrzKxIfCZ ++eUGTXsKXLaqzNo5EijYkFT7l/ae+1o5Ds4EOnHChHZvo8BR08jAyZVA1yh+ +vEnbXmJnrIcvgXkFF2x2bafANnH/Oj9/AoVvpqkW0bb659MecIw+bz89NU7b +/PCxwyEnCLS+UVOwcQcFW95GrgqPpN+/87l2EO3N2xJvRccQyDuuX3OdtsGD +DMf4BAKD7KeJUdq6pWVXzp8ncHqBYo21AwUDsqU5m7MIPFUovyyYdsj54ssT +OQTatf1+cZk2Q7AoO7+AwEFmkEQD7VsRhZfsiglsGXHtHqK9fbogi48kMGRe +xvzftCe88zPLrxPY+X6AEt5JQdpw7kXnWwRWXubv5tBWd7hyYeld2r2DRzRp +dz25nFFbT+CdLr1EI9qHDLPPe98nsMBtkrCivaw665zEIwJf8T/XtKdNKmem +P2onUKiy/OF22pYFF9KCnxFIrdrdv432Z7GMVIU+AmscSz1taZ9JPne29yWB ++rb+oaa018xPTzn9hr5+Z5yQHu3WkNTkjR8INHVvYqrQPjCekvRuhMDVi3/e +lqQ9/0ByYtpXAnWd/j5bQLtgIDHBYILAKgbp/4Wu19A2If7bTwK9IoYudNIe +bjlz5sofuj5/L6Ny2hG6cXHWc9ko7LTuaAJt2esxsX8XsLFVf0bNjXad/OkY +3hI2HrlOBWrTdso+dXr3cjaWPl9jKEh7VjgqeokIG2/vM8zqp79fVmzEqRox +Norm9Z28Slv7b1iUhzQbZX1axrxp9/mfjGQQbLylNDKqSnu1c2h4kCIbFRda +nCXp+XOzOzhMTo2Ng40mOu607c2OnezeyMap2xOB0rRTNwYeVwc2OtS+vRJO +z0+1Uv/QN4ZstHr7MVWRdqfskZCULWzUO8IUe07PbyFBv2NjtmxcLVT3XoJ2 +WYTP0eztbHS++J9SDb0+zKa9gix20fUk9Qhtox077B5Q4srGb1VnLoTbUTCv +et+hA0fZOO4T9p2k11++8l4/keNstB58uUKdtkGBs29zOBt9Hql2Vvx//Sbv +9madYWOSjYvSNXp9/3Lb7j54iY06LsFRHnQeXBywP5iYy0ZxXVZlF50Xm2y3 +HtAtZGNyi2i8Bu0gXRvXTIqNYdPZKlOmFHwTNnPZ3sjG13ryPpZ0HvV5szo9 +H9DP++9tUbwxBfUtvyCsjY1rqNjZ+3R+pYSUyhT1sPFNl+O4Mp13qsOCQzMj +dD1nfq17Suehb0XHnuyVcui/SmOeM52v25cUPalgyGHWCQsb500U6LmFc1uk +5HC+3ssHuzTp8RNTk/oqL4fru/frmdJ5XRae+hJ15VBoWNJ7is73Eettu965 +yuG2k8XvMuUpeFqs9PinhxyqndYJc+JQUMO/QEfITw4N+aJ2SstREHerSlwj +WA7b23Y8TWVRoCDD6I9JlMMNHIMZKykKDo71O6yrkkOJDG8QEab3rwSX7UcW +ctC9w/nj8E8SfEcUWaqCHLxbZrPQapqEaZOZL1+WczC6z39h1SQJi/lToz3E +OThdU1t2/DsJqsFNlS5KHGw47Ffyjt5vT7hxVlpv5SAvg/CWHSRhtd7njnU5 +HPyqU/XZit7vr2Tdzvovn4MnViA43CNhzcypg9eKONhbK3feie4PdCul/rGu +czAlPX/bvtt0v7PWWln8PgdvBfboGJeTUL76eoLAKAfveJcXh+fQ/czXo6bv +NeRxNEfXoDWUBEk16dMCuvJoEnAxyCCY7l+ONDeu05dH44LC7dVBJKRPLdc9 +Yi6PUDwik32Y7j/+FCv/c5ZHD41XfNyDJBwRfLlSLE4e38l+dhyyJSFzDQ5a +DMgjp3tYvZpN9x/7BfwrwxSwQOODrlgDD8YuG9XWnVJAht8Zof5aHnx9Eb7w +cZwCfjEIXHShhgffrWey3qQp4GDEprgllTyY1hlpXlqkgAurNJ91FvJg7qq2 +1R6dChizcvrj83geiDUn10gx16D2pFtv91Ye/b8iOjemcQ1qZSxNmh0oA+En +nKTyr2sxsun86KPhUpCMpWw0NBRR2QODF1aWwIV1WstXHlTCX5YKozvCi+GR +uP7GH2eVkS+g2McVi0BbsjFFpUcFJeT9He16CmEpf17A3khVnNCxo8xDr4J0 +hIzuTo4azu1YeHP333xYJLe7yu6BGlo1lKzQj80DZa4YdXSPOi41dDzNp5IL +RwaFm8zmrMfaztGu2PAc+PojYZvphfV43msXc/6nS2Ci0pJpqrQBPST8twoF +ZMK9Hzq/p9s3YK7CR2PB/zLAV1G9v8ttIx5vf+miUXwOuGOu3TsXaWDjK2Pu +8J402MxmWArlaeCLHRbC+XvOgkL4mWONmpr4wc38IaxKhrVuWnVy/Zo4MTnd +zfCOB7d77qcqD29CPUdLsVmzWKi70u36TUQLP6ZqTitviIaJon/TKre08LNU +/W2Ho5GwX650UaalNmLeW4fFa8Ph29o0jevj2vjqWsN7xkAo3C74/WYyVgdj +spL32hPHwNGIQB1pXXTmy86JfBcAEj4x1cr1utiSKFb+svUwiCz2rrDcwcWC +RTF8n0J8ocDwRMj4Ti5u9A87fNXNF9RPJBmm7ebi1vW5tn42vmA1Xv68by8X +9/Wtt1Tg+MLpnsmZ/d5clG8Iz1Z+6gM/88IMQiJox1jMi1X0gX6dtGeFpVxM +3FggaTriBe6BBZdMSS7e+Km+50yPF0yRN90+l3NRIG/QrbfRC4RZfdNqVVx8 +r32vJj3LC8wFpCRr67n4JVn+TZalF9ztLnR99pyLZmHFGb03PMFs6W2loD4u +robk0adXPKHP5OEUY4CL3OjqyheJnjBRMxrr9JqL7+oNUxe5e4JSrirvvxEu +6t/TGvkm6Ql3+/WDEr5wEWy2OGxZTN9v1VZQGeei6q9I4ZJpDzgQE9gVMMlF +kUK+HclPPWCi/nSm6E8udoYt7hWu94DIXxn7a35xcQ3xMCmX5wHLNxQr7vnD +xSAbVrBOlgdc9qmZ/PePi6G3f6e8jvWA/wH3PVkR + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13dcTf8fB3DJCGVEuu3uPbdbaKM0bu93Q2kPIaFC0Q4NKrSk0lQRJWlI +655TJIo0JaRBKkWR+S0SGiL8zu+v83g+zuOM9+d8Pq/P+zD3+dm5zZ0zZw4/ +35w5/z9ODT5sZscX6O00+uy1qE1br/syI1i/LxI61LpnmtIZgCId+xh9qWAY +u8oiIV0BgmxKevn78sCj1WuNR/omWDEmmjrTex0C3dd6aKdvgaG7Vn4TvY0g +WGZgTaY5gDF75NW33qeQrTD/6Lmz7jDTq3luvHcYPI+S6RB3DJoMrxV05f0A +49mjJq8840ByqPrDPsU/cF/24XHhm6mwytu5ZKEhPyrvN67vdr0AqWrGd6y2 +CWADw7DOyeQyvLigWv9tuRD2m3zysqrOhfiCsI65YiuQ28HFAdsCEE1/G5eW +vRIrY402388rhBh7U72nUyL4seP14KezReCvlev8MJKBH6MjLNMOloDZlaUT +5gkMbGwZ937nUwKshcdj288x8PRobYpaQAl0dm+veFbEwHu9QW/rwktA+ZAg +/2A7A0Wia6+VXSyBT4VHC7+Li+HRkAr9lkclsHuV1ReJG2I4NtmbM7WmFIy+ +/grxfSuOo/NzPTRelkLwlvS1DZ/FMYT34prnm1Igc5X6V06J45VF7N+ZH0qB +Ye+iVS0ggQT+Hfo6Xgqfb9+f5leWwOEfPpc855dBWmRKwMVjEnhsdld5vlIZ +DItwfJuFJNFT4NkEK7QMRP3qpERFJTH7HPfIi7AysGh1eOIhK4mctom/8afK +oCokXnHZeknMqmzb/D6xDM4MjY/sdJDEhI+fo92vlIF68Z2DX/Mk8U6LcnVF +cxlE6NruFd8khd1q9q5Wi3mwxenyd00DKcwdzjQaXsqDpeGjUdsspDB9ouPk +4ZU8uNQUXZjiIoXBydNzIiV5cNusZnRBnBTeH5DV9VLmwbgDEfTjhRSq7p5K +cbLlgVPg5Jm2UGncLVsn+DCNB3IZBpIj0dL4ehGfTmsGj64/mbcwRRoVe5bd +b8ziQcjsmk6DAmm8OCLzpTifB+einESq26RxzrT0WbzBg7azD3KuSslgUpeU +ZXIXD7TJi5Un62Tw3MXGqRuLSTDqbf8z1iqDbY/NUt4JkWA1Z56J81MZ/MAT +kluxgoT9dr4v4L0MpjUp6TuJkmAcygwLny+Lg8l+Zq0ECYdkpvL118mi7d7U +vgEdEpoP5nxpCpLFgOC1T+Z6kGA6qyV8PFQW+643W9/wIqE9pVtjQ7gsns5K +6nH2JeFF9aLwgjhZNP4q8L3Mn4SxJQHC0ZdkMSVvrafoSRIY5Vs0jRtlcedA +IKmUSoL3z2/hrUJMlGGvVdp3iwTtwwdWfxBmYmxP1KfGahIERvpL+RlMbIqS +nCdzl4SrA009eiwmHsg0dnpYT8LgvXOKNzWYyOQ6kR8ekmAdrdWX68zEuTK6 +aDRAgvRfnk+dKxOlAjqMdr0i4XMQi/+VBxPnRS6/4TNEQqz7EmVGABPP50p1 +nHpLQr35q6ikWCZ2GSmJHh8lQV04QiW0gomuj78dS/5Fwpz4yeYLVUy0dOly +2zNL18/v6Vh1h4m1TsMtnL8keE3aRX+7z0R90ulTKR8FBX3sgYP9THSYcLsb +JkDB6pzW0/b8LNzsbGxqJULBO1Gu5BEBFgo/v9T+bDUF11MqKpKFWFg+dvOZ +PYMC68jMl49EWZgXssnFVIKCWDdvdX1FFprO/ZExK0vBzLrlg0rbWOgyqqqW +sI6CqWzxiPWOLFTl8Jk1K1IwsUyOreXMwmXX/Bk/lSgY+6HlaeTBwrFBxxd2 +qhQM39k/5XiChdP6cnzPN1AwpOR70SWShVp2Ey9HNlLwMueY7oEYFm7UrQyY +1aCgJyox8vBZFtaqw4CwFgWPzG8tjb1Kv48FZglyKXhQ21CRWMLCd4esfObo +UdCs0mafRrGQx9/DN0773so3mZerWZjRUBjYiHS9A4vlbz5hISfwec4GIwoo +S5FHNU9ZePOKSvaCzRSU1cn41PeycGageX837cL8DTcev6HPCwrb7DehINPL +CYYnWRjHF1VrZUZBxiv34Y+/WGii8lvyH+10a//oL/9Y+Iwosig1pyBpfezj +n4sInMtTkp22oCD+aqrv36UE9gl23D9vSY+vaPaKeasIbG/VAHUrCiJ/V+xY +Jk3gkO1E+W5rCsJ87v5aRRB4tVasdJT28aGWbHEFAscbCo4H2VAQ1DTwVk6d +wDfM9OIwWwq84ucf0jUm0BzzjVy2UuD+Z9lKA3P6/pE1K9tpH/ATrzKxIfCZ ++eUGTXsKXLaqzNo5EijYkFT7l/ae+1o5Ds4EOnHChHZvo8BR08jAyZVA1yh+ +vEnbXmJnrIcvgXkFF2x2bafANnH/Oj9/AoVvpqkW0bb659MecIw+bz89NU7b +/PCxwyEnCLS+UVOwcQcFW95GrgqPpN+/87l2EO3N2xJvRccQyDuuX3OdtsGD +DMf4BAKD7KeJUdq6pWVXzp8ncHqBYo21AwUDsqU5m7MIPFUovyyYdsj54ssT +OQTatf1+cZk2Q7AoO7+AwEFmkEQD7VsRhZfsiglsGXHtHqK9fbogi48kMGRe +xvzftCe88zPLrxPY+X6AEt5JQdpw7kXnWwRWXubv5tBWd7hyYeld2r2DRzRp +dz25nFFbT+CdLr1EI9qHDLPPe98nsMBtkrCivaw665zEIwJf8T/XtKdNKmem +P2onUKiy/OF22pYFF9KCnxFIrdrdv432Z7GMVIU+AmscSz1taZ9JPne29yWB ++rb+oaa018xPTzn9hr5+Z5yQHu3WkNTkjR8INHVvYqrQPjCekvRuhMDVi3/e +lqQ9/0ByYtpXAnWd/j5bQLtgIDHBYILAKgbp/4Wu19A2If7bTwK9IoYudNIe +bjlz5sofuj5/L6Ny2hG6cXHWc9ko7LTuaAJt2esxsX8XsLFVf0bNjXad/OkY +3hI2HrlOBWrTdso+dXr3cjaWPl9jKEh7VjgqeokIG2/vM8zqp79fVmzEqRox +Norm9Z28Slv7b1iUhzQbZX1axrxp9/mfjGQQbLylNDKqSnu1c2h4kCIbFRda +nCXp+XOzOzhMTo2Ng40mOu607c2OnezeyMap2xOB0rRTNwYeVwc2OtS+vRJO +z0+1Uv/QN4ZstHr7MVWRdqfskZCULWzUO8IUe07PbyFBv2NjtmxcLVT3XoJ2 +WYTP0eztbHS++J9SDb0+zKa9gix20fUk9Qhtox077B5Q4srGb1VnLoTbUTCv +et+hA0fZOO4T9p2k11++8l4/keNstB58uUKdtkGBs29zOBt9Hql2Vvx//Sbv +9madYWOSjYvSNXp9/3Lb7j54iY06LsFRHnQeXBywP5iYy0ZxXVZlF50Xm2y3 +HtAtZGNyi2i8Bu0gXRvXTIqNYdPZKlOmFHwTNnPZ3sjG13ryPpZ0HvV5szo9 +H9DP++9tUbwxBfUtvyCsjY1rqNjZ+3R+pYSUyhT1sPFNl+O4Mp13qsOCQzMj +dD1nfq17Suehb0XHnuyVcui/SmOeM52v25cUPalgyGHWCQsb500U6LmFc1uk +5HC+3ssHuzTp8RNTk/oqL4fru/frmdJ5XRae+hJ15VBoWNJ7is73Eettu965 +yuG2k8XvMuUpeFqs9PinhxyqndYJc+JQUMO/QEfITw4N+aJ2SstREHerSlwj +WA7b23Y8TWVRoCDD6I9JlMMNHIMZKykKDo71O6yrkkOJDG8QEab3rwSX7UcW +ctC9w/nj8E8SfEcUWaqCHLxbZrPQapqEaZOZL1+WczC6z39h1SQJi/lToz3E +OThdU1t2/DsJqsFNlS5KHGw47Ffyjt5vT7hxVlpv5SAvg/CWHSRhtd7njnU5 +HPyqU/XZit7vr2Tdzvovn4MnViA43CNhzcypg9eKONhbK3feie4PdCul/rGu +czAlPX/bvtt0v7PWWln8PgdvBfboGJeTUL76eoLAKAfveJcXh+fQ/czXo6bv +NeRxNEfXoDWUBEk16dMCuvJoEnAxyCCY7l+ONDeu05dH44LC7dVBJKRPLdc9 +Yi6PUDwik32Y7j/+FCv/c5ZHD41XfNyDJBwRfLlSLE4e38l+dhyyJSFzDQ5a +DMgjp3tYvZpN9x/7BfwrwxSwQOODrlgDD8YuG9XWnVJAht8Zof5aHnx9Eb7w +cZwCfjEIXHShhgffrWey3qQp4GDEprgllTyY1hlpXlqkgAurNJ91FvJg7qq2 +1R6dChizcvrj83geiDUn10gx16D2pFtv91Ye/b8iOjemcQ1qZSxNmh0oA+En +nKTyr2sxsun86KPhUpCMpWw0NBRR2QODF1aWwIV1WstXHlTCX5YKozvCi+GR +uP7GH2eVkS+g2McVi0BbsjFFpUcFJeT9He16CmEpf17A3khVnNCxo8xDr4J0 +hIzuTo4azu1YeHP333xYJLe7yu6BGlo1lKzQj80DZa4YdXSPOi41dDzNp5IL +RwaFm8zmrMfaztGu2PAc+PojYZvphfV43msXc/6nS2Ci0pJpqrQBPST8twoF +ZMK9Hzq/p9s3YK7CR2PB/zLAV1G9v8ttIx5vf+miUXwOuGOu3TsXaWDjK2Pu +8J402MxmWArlaeCLHRbC+XvOgkL4mWONmpr4wc38IaxKhrVuWnVy/Zo4MTnd +zfCOB7d77qcqD29CPUdLsVmzWKi70u36TUQLP6ZqTitviIaJon/TKre08LNU +/W2Ho5GwX650UaalNmLeW4fFa8Ph29o0jevj2vjqWsN7xkAo3C74/WYyVgdj +spL32hPHwNGIQB1pXXTmy86JfBcAEj4x1cr1utiSKFb+svUwiCz2rrDcwcWC +RTF8n0J8ocDwRMj4Ti5u9A87fNXNF9RPJBmm7ebi1vW5tn42vmA1Xv68by8X +9/Wtt1Tg+MLpnsmZ/d5clG8Iz1Z+6gM/88IMQiJox1jMi1X0gX6dtGeFpVxM +3FggaTriBe6BBZdMSS7e+Km+50yPF0yRN90+l3NRIG/QrbfRC4RZfdNqVVx8 +r32vJj3LC8wFpCRr67n4JVn+TZalF9ztLnR99pyLZmHFGb03PMFs6W2loD4u +robk0adXPKHP5OEUY4CL3OjqyheJnjBRMxrr9JqL7+oNUxe5e4JSrirvvxEu +6t/TGvkm6Ql3+/WDEr5wEWy2OGxZTN9v1VZQGeei6q9I4ZJpDzgQE9gVMMlF +kUK+HclPPWCi/nSm6E8udoYt7hWu94DIXxn7a35xcQ3xMCmX5wHLNxQr7vnD +xSAbVrBOlgdc9qmZ/PePi6G3f6e8jvWA/wH3PVkR + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06122847759284165}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06122847759284165}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13dcTf8fB3DJCGVEuu3uPbdbaKM0bu93Q2kPIaFC0Q4NKrSk0lQRJWlI +655TJIo0JaRBKkWR+S0SGiL8zu+v83g+zuOM9+d8Pq/P+zD3+dm5zZ0zZw4/ +35w5/z9ODT5sZscX6O00+uy1qE1br/syI1i/LxI61LpnmtIZgCId+xh9qWAY +u8oiIV0BgmxKevn78sCj1WuNR/omWDEmmjrTex0C3dd6aKdvgaG7Vn4TvY0g +WGZgTaY5gDF75NW33qeQrTD/6Lmz7jDTq3luvHcYPI+S6RB3DJoMrxV05f0A +49mjJq8840ByqPrDPsU/cF/24XHhm6mwytu5ZKEhPyrvN67vdr0AqWrGd6y2 +CWADw7DOyeQyvLigWv9tuRD2m3zysqrOhfiCsI65YiuQ28HFAdsCEE1/G5eW +vRIrY402388rhBh7U72nUyL4seP14KezReCvlev8MJKBH6MjLNMOloDZlaUT +5gkMbGwZ937nUwKshcdj288x8PRobYpaQAl0dm+veFbEwHu9QW/rwktA+ZAg +/2A7A0Wia6+VXSyBT4VHC7+Li+HRkAr9lkclsHuV1ReJG2I4NtmbM7WmFIy+ +/grxfSuOo/NzPTRelkLwlvS1DZ/FMYT34prnm1Igc5X6V06J45VF7N+ZH0qB +Ye+iVS0ggQT+Hfo6Xgqfb9+f5leWwOEfPpc855dBWmRKwMVjEnhsdld5vlIZ +DItwfJuFJNFT4NkEK7QMRP3qpERFJTH7HPfIi7AysGh1eOIhK4mctom/8afK +oCokXnHZeknMqmzb/D6xDM4MjY/sdJDEhI+fo92vlIF68Z2DX/Mk8U6LcnVF +cxlE6NruFd8khd1q9q5Wi3mwxenyd00DKcwdzjQaXsqDpeGjUdsspDB9ouPk +4ZU8uNQUXZjiIoXBydNzIiV5cNusZnRBnBTeH5DV9VLmwbgDEfTjhRSq7p5K +cbLlgVPg5Jm2UGncLVsn+DCNB3IZBpIj0dL4ehGfTmsGj64/mbcwRRoVe5bd +b8ziQcjsmk6DAmm8OCLzpTifB+einESq26RxzrT0WbzBg7azD3KuSslgUpeU +ZXIXD7TJi5Un62Tw3MXGqRuLSTDqbf8z1iqDbY/NUt4JkWA1Z56J81MZ/MAT +kluxgoT9dr4v4L0MpjUp6TuJkmAcygwLny+Lg8l+Zq0ECYdkpvL118mi7d7U +vgEdEpoP5nxpCpLFgOC1T+Z6kGA6qyV8PFQW+643W9/wIqE9pVtjQ7gsns5K +6nH2JeFF9aLwgjhZNP4q8L3Mn4SxJQHC0ZdkMSVvrafoSRIY5Vs0jRtlcedA +IKmUSoL3z2/hrUJMlGGvVdp3iwTtwwdWfxBmYmxP1KfGahIERvpL+RlMbIqS +nCdzl4SrA009eiwmHsg0dnpYT8LgvXOKNzWYyOQ6kR8ekmAdrdWX68zEuTK6 +aDRAgvRfnk+dKxOlAjqMdr0i4XMQi/+VBxPnRS6/4TNEQqz7EmVGABPP50p1 +nHpLQr35q6ikWCZ2GSmJHh8lQV04QiW0gomuj78dS/5Fwpz4yeYLVUy0dOly +2zNL18/v6Vh1h4m1TsMtnL8keE3aRX+7z0R90ulTKR8FBX3sgYP9THSYcLsb +JkDB6pzW0/b8LNzsbGxqJULBO1Gu5BEBFgo/v9T+bDUF11MqKpKFWFg+dvOZ +PYMC68jMl49EWZgXssnFVIKCWDdvdX1FFprO/ZExK0vBzLrlg0rbWOgyqqqW +sI6CqWzxiPWOLFTl8Jk1K1IwsUyOreXMwmXX/Bk/lSgY+6HlaeTBwrFBxxd2 +qhQM39k/5XiChdP6cnzPN1AwpOR70SWShVp2Ey9HNlLwMueY7oEYFm7UrQyY +1aCgJyox8vBZFtaqw4CwFgWPzG8tjb1Kv48FZglyKXhQ21CRWMLCd4esfObo +UdCs0mafRrGQx9/DN0773so3mZerWZjRUBjYiHS9A4vlbz5hISfwec4GIwoo +S5FHNU9ZePOKSvaCzRSU1cn41PeycGageX837cL8DTcev6HPCwrb7DehINPL +CYYnWRjHF1VrZUZBxiv34Y+/WGii8lvyH+10a//oL/9Y+Iwosig1pyBpfezj +n4sInMtTkp22oCD+aqrv36UE9gl23D9vSY+vaPaKeasIbG/VAHUrCiJ/V+xY +Jk3gkO1E+W5rCsJ87v5aRRB4tVasdJT28aGWbHEFAscbCo4H2VAQ1DTwVk6d +wDfM9OIwWwq84ucf0jUm0BzzjVy2UuD+Z9lKA3P6/pE1K9tpH/ATrzKxIfCZ ++eUGTXsKXLaqzNo5EijYkFT7l/ae+1o5Ds4EOnHChHZvo8BR08jAyZVA1yh+ +vEnbXmJnrIcvgXkFF2x2bafANnH/Oj9/AoVvpqkW0bb659MecIw+bz89NU7b +/PCxwyEnCLS+UVOwcQcFW95GrgqPpN+/87l2EO3N2xJvRccQyDuuX3OdtsGD +DMf4BAKD7KeJUdq6pWVXzp8ncHqBYo21AwUDsqU5m7MIPFUovyyYdsj54ssT +OQTatf1+cZk2Q7AoO7+AwEFmkEQD7VsRhZfsiglsGXHtHqK9fbogi48kMGRe +xvzftCe88zPLrxPY+X6AEt5JQdpw7kXnWwRWXubv5tBWd7hyYeld2r2DRzRp +dz25nFFbT+CdLr1EI9qHDLPPe98nsMBtkrCivaw665zEIwJf8T/XtKdNKmem +P2onUKiy/OF22pYFF9KCnxFIrdrdv432Z7GMVIU+AmscSz1taZ9JPne29yWB ++rb+oaa018xPTzn9hr5+Z5yQHu3WkNTkjR8INHVvYqrQPjCekvRuhMDVi3/e +lqQ9/0ByYtpXAnWd/j5bQLtgIDHBYILAKgbp/4Wu19A2If7bTwK9IoYudNIe +bjlz5sofuj5/L6Ny2hG6cXHWc9ko7LTuaAJt2esxsX8XsLFVf0bNjXad/OkY +3hI2HrlOBWrTdso+dXr3cjaWPl9jKEh7VjgqeokIG2/vM8zqp79fVmzEqRox +Norm9Z28Slv7b1iUhzQbZX1axrxp9/mfjGQQbLylNDKqSnu1c2h4kCIbFRda +nCXp+XOzOzhMTo2Ng40mOu607c2OnezeyMap2xOB0rRTNwYeVwc2OtS+vRJO +z0+1Uv/QN4ZstHr7MVWRdqfskZCULWzUO8IUe07PbyFBv2NjtmxcLVT3XoJ2 +WYTP0eztbHS++J9SDb0+zKa9gix20fUk9Qhtox077B5Q4srGb1VnLoTbUTCv +et+hA0fZOO4T9p2k11++8l4/keNstB58uUKdtkGBs29zOBt9Hql2Vvx//Sbv +9madYWOSjYvSNXp9/3Lb7j54iY06LsFRHnQeXBywP5iYy0ZxXVZlF50Xm2y3 +HtAtZGNyi2i8Bu0gXRvXTIqNYdPZKlOmFHwTNnPZ3sjG13ryPpZ0HvV5szo9 +H9DP++9tUbwxBfUtvyCsjY1rqNjZ+3R+pYSUyhT1sPFNl+O4Mp13qsOCQzMj +dD1nfq17Suehb0XHnuyVcui/SmOeM52v25cUPalgyGHWCQsb500U6LmFc1uk +5HC+3ssHuzTp8RNTk/oqL4fru/frmdJ5XRae+hJ15VBoWNJ7is73Eettu965 +yuG2k8XvMuUpeFqs9PinhxyqndYJc+JQUMO/QEfITw4N+aJ2SstREHerSlwj +WA7b23Y8TWVRoCDD6I9JlMMNHIMZKykKDo71O6yrkkOJDG8QEab3rwSX7UcW +ctC9w/nj8E8SfEcUWaqCHLxbZrPQapqEaZOZL1+WczC6z39h1SQJi/lToz3E +OThdU1t2/DsJqsFNlS5KHGw47Ffyjt5vT7hxVlpv5SAvg/CWHSRhtd7njnU5 +HPyqU/XZit7vr2Tdzvovn4MnViA43CNhzcypg9eKONhbK3feie4PdCul/rGu +czAlPX/bvtt0v7PWWln8PgdvBfboGJeTUL76eoLAKAfveJcXh+fQ/czXo6bv +NeRxNEfXoDWUBEk16dMCuvJoEnAxyCCY7l+ONDeu05dH44LC7dVBJKRPLdc9 +Yi6PUDwik32Y7j/+FCv/c5ZHD41XfNyDJBwRfLlSLE4e38l+dhyyJSFzDQ5a +DMgjp3tYvZpN9x/7BfwrwxSwQOODrlgDD8YuG9XWnVJAht8Zof5aHnx9Eb7w +cZwCfjEIXHShhgffrWey3qQp4GDEprgllTyY1hlpXlqkgAurNJ91FvJg7qq2 +1R6dChizcvrj83geiDUn10gx16D2pFtv91Ye/b8iOjemcQ1qZSxNmh0oA+En +nKTyr2sxsun86KPhUpCMpWw0NBRR2QODF1aWwIV1WstXHlTCX5YKozvCi+GR +uP7GH2eVkS+g2McVi0BbsjFFpUcFJeT9He16CmEpf17A3khVnNCxo8xDr4J0 +hIzuTo4azu1YeHP333xYJLe7yu6BGlo1lKzQj80DZa4YdXSPOi41dDzNp5IL +RwaFm8zmrMfaztGu2PAc+PojYZvphfV43msXc/6nS2Ci0pJpqrQBPST8twoF +ZMK9Hzq/p9s3YK7CR2PB/zLAV1G9v8ttIx5vf+miUXwOuGOu3TsXaWDjK2Pu +8J402MxmWArlaeCLHRbC+XvOgkL4mWONmpr4wc38IaxKhrVuWnVy/Zo4MTnd +zfCOB7d77qcqD29CPUdLsVmzWKi70u36TUQLP6ZqTitviIaJon/TKre08LNU +/W2Ho5GwX650UaalNmLeW4fFa8Ph29o0jevj2vjqWsN7xkAo3C74/WYyVgdj +spL32hPHwNGIQB1pXXTmy86JfBcAEj4x1cr1utiSKFb+svUwiCz2rrDcwcWC +RTF8n0J8ocDwRMj4Ti5u9A87fNXNF9RPJBmm7ebi1vW5tn42vmA1Xv68by8X +9/Wtt1Tg+MLpnsmZ/d5clG8Iz1Z+6gM/88IMQiJox1jMi1X0gX6dtGeFpVxM +3FggaTriBe6BBZdMSS7e+Km+50yPF0yRN90+l3NRIG/QrbfRC4RZfdNqVVx8 +r32vJj3LC8wFpCRr67n4JVn+TZalF9ztLnR99pyLZmHFGb03PMFs6W2loD4u +robk0adXPKHP5OEUY4CL3OjqyheJnjBRMxrr9JqL7+oNUxe5e4JSrirvvxEu +6t/TGvkm6Ql3+/WDEr5wEWy2OGxZTN9v1VZQGeei6q9I4ZJpDzgQE9gVMMlF +kUK+HclPPWCi/nSm6E8udoYt7hWu94DIXxn7a35xcQ3xMCmX5wHLNxQr7vnD +xSAbVrBOlgdc9qmZ/PePi6G3f6e8jvWA/wH3PVkR + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06122847759284165}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06122847759284165}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913218813523655`*^9, 3.9942570003457117`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"b5700e65-463d-4184-b632-02eef5c2f578"] +}, Open ]], + +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", @@ -7545,517 +7503,750 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"30", ",", "0.00371"}], "}"}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, - 3.9940833323653173`*^9},ExpressionUUID->"d9d63445-4981-8f49-b88b-\ -9e93d345c648"], - -Cell[BoxData[ - RowBox[{"Show", "[", - RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"39000a9e-1f94-0640-8925-\ -ec28b28907cc"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"L", "=", - FractionBox[ - SqrtBox[ - RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.99179966106703*^9},ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], - -Cell[BoxData["11.27534350842078`"], "Output", - CellChangeTimes->{3.9913229040054893`*^9}, - CellLabel->"Out[88]=",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"L", "=", - RowBox[{"Plot", "[", - RowBox[{ - RowBox[{ - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], - RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", - RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], - ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", - FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - FractionBox["1", "Cb"], ")"}]}]], - RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", - RowBox[{"{", - RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991799666995865*^9},ExpressionUUID->"7116d4f3-8ab8-b741-8264-\ -0a5eeac170a0"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 89, 17, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913229042538757`*^9}, + 3.9940833323653173`*^9}, CellLabel-> - "During evaluation of \ -In[89]:=",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], + "In[105]:=",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ -\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 89, 18, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913229042728806`*^9}, - CellLabel-> - "During evaluation of \ -In[89]:=",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ -\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 89, 19, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913229042938766`*^9}, - CellLabel-> - "During evaluation of \ -In[89]:=",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], - -Cell[BoxData[ - TemplateBox[{ - "General", "stop", - "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ -\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 89, 20, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913229043127804`*^9}, - CellLabel-> - "During evaluation of \ -In[89]:=",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], - -Cell[BoxData[ - GraphicsBox[ - InterpretationBox[{ - TagBox[{{{}, {}, - TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwd13k4VV0XAHAvoQlFpmu699xrKHOmDNdaSQNKJUUy9SpTUhkzlKGEiqQU -RSKUTOeUlChCIqE3MyXRIMlQKE2+0/fXeX7PGfZea++19z6sfw/Y7OXl4eER -/IeH5+91pr+xjnMqx9RRIPNqkSmatl+RClndHQ0VmTo7zzXLAYq3/ivVnQwp -zr82bW5Wh6AtN7v4urNBga8ykWjmwtIxyeTZrlsg0vVmw5tnm+B1pfWBqa4a -OLHVe4n4MydYxxl5Ndn1AngyD7fyNO6H2S6DlImuQaj0EVnxqPII1K65nvNf -9lfIvXvcw7ouEWRfl7//V+03iK7O0ryQdgGW+bjcFFzDhwnHlG9L7cmAZO11 -Fdbb56PnhY3lK9WyoSdVq3pyiRCuWrH4saJmLpzKiWjllV6Kgal9/V7KN0Dy -/FD8uQwxdDhUObTmwU2ItbUwfTEjjr4p71S5HYXAKG1h8P4jgWf8h3SuvCqE -YjHbb9qLJPDW4hqV2XeF0PnCmTyrIIG+t7Z0pM8UAmdrALF1gwQWfwtQuCxZ -BDWbMgWep0mgv9KLQj/7Ivi9brql2UQS7cjzNbEdReBvmOXSGC2FusYHw1kP -isHyqvCU1WkptD8+EHisthgIwfC4lhQp7BJX//26sRiet++g2m5IYfG8mdtx -ncWgcXAxX3+LFL5wf3kvdbwYhvOC874wpNHZr7PnFrMEHJdZf5a5LY1TDxUv -NR8tAZ2wiqgrldKoXv5PdeTxElg4qCLBqpfGRL1z+zROlkB5CR8o9UjjwWmj -bSEpJSBhVZ6kNSeN5im3XJsLSuB5FEd3rRUD+WLmOfh2lYD5+I9Q3yEG3tdu -yLYQJyFkw/kVj0YZmKziOvBQkoTiLPVesRkGHu80CNNmkCBl62pYPl8G5w2W -NwgrkDB67/E3Pg0Z1H9zrzZfhYRz0UkBaYdl0Hf24OrdxiQMiiv51gnJYkxZ -/8NOZxIkD1TJSUrK4msZmYpvriRsbLBv9mLKInNpnISEGwlloafURHRk8YK4 -6ydLDxJOvp4Y2Wkvi9Wk4pKUAySszK/wGM+Wxdlktd0FESREmWzdzVglh2ue -9ci9ySBhg/OVLwZmcpgqeX97RyYJwpGfjm3fKIelTqJh9VkkpNfG5CW5yqF8 -M/tMZi4J9yzvfxKIl8NXgs+G1IpImLBnB33tkcPrhSahpRUk3A09KLj0rRwe -bS24EfyAhKPpD1I1xuSQX22gwaCKhMUDdhVevPLYHdz0uriGBGWP0zwDK+Rx -G2l28HAjCc6B0yefhcljbt5Wt5BOEhQvmsmOxMhjqONQ26Luv/k7UySYJI+p -v32ML/eQEPpr+XOzHHl8fLJtgnxJQsoxZ/HyZ/J4cb/I3N1BEp6dfZKZK6eA -rWEqv3XHSDAqTis9WqWAMv9pbvzMS4F5V8vvsQYF9K8UmV04jwJrnnnrXV4o -YPB06WIlfgrcbHx74J0Cpg+1eNkKUrAujBURyc/E988G+JMXUXBQYebaalUm -flGIlz0rRsH07aSGWU0mMtp+usUsoyB0g+pnSpeJOdtCpYLFKYg55KpPmDKR -Nbn6qY0kBZdqnzbwbmWirhLp+IlBQZ1H5ufaICaehfz0LBYFFr8MRcPDmLjD -4NYHH4KClqR2fd1IJu6ZzM/TY1PQU74gMieeiaWOOtFVHArGFgWIxqQzEWd8 -K0uVKfC/KmzAzWJi9YObt/epUPBdN3/XdC4Tn/yIIJjLKeBz7s/ZW8JEJZsu -z6gVFEiRGwzW1TBx0udIrqI6BRnmQ7v+1DPRrKrOvYE20XMksqyJidHnA695 -alCgznu7UamDiRm1AmezNCkws5VzFBxmYhGj0HJamwKf75ORDUIstO4VuMHR -p8DokLvEe1EW8o3zn86nPX+kt4BPioVOairHVQ0oyO2r7TQlWLh+LuK20ioK -+h+mqN3RZ+Gq2o2sH4YUFBosrHlhzELxMM1yDyM6v+RRuwlk4c7udO8XtCWy -PaJVrVg4crFHNtOYgs0xht1ZLizMTNz2QpxLgfyfov1Ve1jYnvTHwof2aBDB -98qLhWIPmwaqaMd5LtKQCmChp1eer7MpBTveRNTqhbDQLIfwyKfNcZiy33aU -hRXRV6ImaVdbvTqWGMfCBzdCFUKAgsS6rdKFCSzcE7E55x5tR259cWMyCz9K -CFlP057VKOmZl8HCkhQdMXekoOE6+wCRzcKUFgmtS7QvMFPn4XUWZnl3BTTR -XikapRlGsdB/w+fDiqsp4Dk1XZdaxsLDiTWG1rRb+LwdyirofECgYgDt9PD+ -8bZqFuozn5hcpL1v2iZm8jEL0wpCI+/SNvJ9whBpYqGl8LbJdtrzPxiTas9Z -uFxlWdI47U4Xcq1lBwtdTkU7CZpRkNPN6fPoZeGHMDcHWdp+W9MOxrxm4Z+x -8FgN2vhUSODaWxbeOZnyjktbeE305eqP9HjkBgRa0n5VMaPVP8ZC/rWDBra0 -C3X31f/8ykIhhevqu2iHFr3eJT3LwoSLp+1caG9Qsp3U/8PCjmrHMlfaEpkN -J2z5CJxyGLT8e/+tJFfWbz6BGm3D4n/fv5VEUWeECAxZYyL19/uRC5TWF4kS -+P1Qvs3f9jdHX3r5VJLAI89/P/7bP/mfwn7DsgTOhQn6/+3/qP8xQQGCQBmT -lP/Hd3/0WzpbmcD46KAjf+OP2+uzcrUageneYS//5mdH/8ATZ20Cq+4FHO6g -zbHb7hSuT+Bkj47NPdpfWhu/pBkTqDV00juVdvUG07i7SODSsxtrAmknProl -17GWQOb6jQ5baDsaKd/+Ykmgt4izjgrtWdUl/erbCWSYLCpspcd/JoMRpeNA -oKTgfP2rtKdEFDmGLnS8RbVyvrTHvhp6m3sRaPMgbwEv7U97zYUsfennjTxE -Guj5NtxlTW72J3D0rlTQKdqDFW4zDkfo+LfHei2k/VrdN801msCPxoPfHtPz -+WXmYRP3WALXF3mNHKXdeSwh+tBZAqVZODdM18dTq7vCcbkEiovN/skwoeDJ -g0dUwk0Cg+ZnPzanXaf5zPZcCYH3tiz8NkzX30OxN5eulBPYtHB/xnLat/oW -Kt9pJnDPwAeR03Q9l2wSf3r/BYEc7ak18n/ru0phf3UXgdYVQR+L6PrPu6Z7 -u+kNgUp+5qcf0+vDpX3OMDhNYELJyIZOPQouvvIc/PCDwAy9BKYt7fOb/WM+ -zxHowxN5sFWXzrdOXNP3BWy0z24Of6hDQfRPyk5Eno2/A71cjtLr075T/AdN -1rHxob7z0hNqFHj+FhEzs2JjbM6yrj5VCtwPMMrWb2Gj2YguW5O26zbNXzYO -bMywtrJpoddPW5mdcV6+bIy5Kq44rkSBSUHh1QsX2HjPYtyzgklBH7Mgc+1l -NnLWGK/8rkDP9wv5V6Yy2ajuIfNmJe27UXnpNvlsXHHv8pcsObre7a+mCley -UVW4cdad3g+W859POvGGjU+Ou65JoPeXhtDkM3rv2egzJfrohijdv4mkxLcj -bBxXSNKqWUrXa1/CabMpNoaYzhseE6GAeSs27o8AB0300lo0F9P15BIWGaTG -wYTkO8u30PvdnfaQCEVtDrZOV7Os+Oh4LA8fbdfjYPMqtpQ5vT8m6wWGrwQO -Xk1g8GnxUCC0+MDhsa0c1BJePjz+k4R55f8edA/mYKewd/aSryRMilq67qjh -oPVKleN9r0no9iGeez/hINVp7hzeT0J1/Q+IeMbByk/NPxivSEgKLVC40clB -9yNuEVt7SdAaXPx6doSD0mZu7dfaSfClWp0yxBRRi5+R0d9Awsjm7bve7lFE -Sftr+qUlJLzIV2/67qWIciK8/iLFJNznEzAWOqCI/M7u5z0LSYi/W8bQD1HE -jBM3Ti7LJ0FFQao3NkERG2d59mzLJsFjrNdetUwRz7/fW7P/PAlvT7vu8BNU -wveTN+Zkg+n2R9QIrcVKeCx3faBdIAnf1s9+/rxECS8Jhegm+ZOwkC85xouh -hJ991p77RZ+3tEJqS13VlfDOJs/Rak8SjuxVEtu8TQndso6//L6TBAnT0VbV -TCXs2vjTUI0+71mMB1u801fG5xGCRMFkCchqy5+Yb6JMny+GT86MlsCYX12N -6mpl/P6sP8x0uATOzywx8bNSRiWf2rna/hLo/52vMeeijEnhKW25TSXgt/il -mHS8Mn7aZtZcn1MCl5Zj/8Y+ZXywtIJ1xrYERt3m+5dGqGC9p158zc1i+n9E -kje2ZjmKvQ3MYHOLQLRZKZEcX4FFU1F/7BsKQDauZIu+vhqab5KctWTchFRV -wyViHuoI5o9aiMM34Cljtd7Xsxpo2OS5bltHHhjJ1iRpdmqilOTm/MlFuSDM -lx2wO1oLWaSR1bI910A+SsFkp5I25rW9Gc3LyoIFio5lNk+0MatRmTE8kgka -XOmSYKeV2N0mo+Q7mg5+/aK1ljw6qLvU+nhNZxqMfz293SJVB88oNF/kYV2E -9Zr1lyzUdXG2q7E5MOc8PPxq/PNbiy5qcKEgnJMMvmore//bq4eafO5OaXNn -gDu2p33nAn0UPEMFW9SegrUcqU1C2fqoG/9Bp1EzDlQiTx6uMTBAw7XhCYoC -MbBir2GVYq8BrswKsuuejoK9Dz2Plx5ahad/nXJZ1HsUqq6275kUN8S8n9ae -1+eFwtSNuW+adw1Rbt6aiVVDgeCmWLDg0iYjLKJ4huTj/WByxTn9WxNGmH85 -JSjsqS/cy/n5ZjrOGL98GmoRqPUCB3M2GsuboLBXe6dF7F6Q2R9brlFtglYL -h2xMr+6GxDl3vVM1JrhrOX/gaPJu4E1eR32oM0H2cJnttZjdMFLGn3+10QSD -eYONVPfthvs8x1NF20xQ8VSowjX93eBwPjJ45p0JinDbbTVbXSG1IkTv4SIu -igZuHkoTcAXxhT7UJjsuSrwrWh4p4wQ5a46ETuzkojcr9NYOXidYeSRxzTlH -LuqtP2uOHx3BeoLs6N7NxWPR9ds33nWEE53Ts24+XJQWdH63ztYRvmdHmIVG -cfFoz/KzFWd3Qa/xuba8Ai4mwsRzG4YDeAbmpFsUc/HPeo0VAXwOMFN8Z+8o -ycV4/T7566M7QZTo/qZdxsVlTf8Ur67aCVbz5WQfVHOxff9C9Q17d0Jle96e -tg4uWkS2Ljhbag+WwvfUg7q5KH6obrT+ij10r2+ckerjYkj4xgqheHuYuv8p -znmAi1u968abnexBPUur6OMIF8sNiTjJ+fZQ2bs66PRnLjqFOqW1fbEDy2Xb -QHOCi60DfHj1lR24xwb+FzDNxX383cS+23YwVX3ikuR3LjbGl1p4XbGD6B8X -3e7/4GJ29c6+4Hg7WKKbr+b0m4vaAyuaLwTYwZX996fn5rgY1XNmWb2LHfwP -U0FU/w== - "]]}, - Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, - {"WolframDynamicHighlight", <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], - StyleBox[ - DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, - Slot["HighlightElements"], - Slot["LayoutOptions"], - Slot["Meta"], - Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ Annotation[{ Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwd13k4VV0XAHAvoQlFpmu699xrKHOmDNdaSQNKJUUy9SpTUhkzlKGEiqQU -RSKUTOeUlChCIqE3MyXRIMlQKE2+0/fXeX7PGfZea++19z6sfw/Y7OXl4eER -/IeH5+91pr+xjnMqx9RRIPNqkSmatl+RClndHQ0VmTo7zzXLAYq3/ivVnQwp -zr82bW5Wh6AtN7v4urNBga8ykWjmwtIxyeTZrlsg0vVmw5tnm+B1pfWBqa4a -OLHVe4n4MydYxxl5Ndn1AngyD7fyNO6H2S6DlImuQaj0EVnxqPII1K65nvNf -9lfIvXvcw7ouEWRfl7//V+03iK7O0ryQdgGW+bjcFFzDhwnHlG9L7cmAZO11 -Fdbb56PnhY3lK9WyoSdVq3pyiRCuWrH4saJmLpzKiWjllV6Kgal9/V7KN0Dy -/FD8uQwxdDhUObTmwU2ItbUwfTEjjr4p71S5HYXAKG1h8P4jgWf8h3SuvCqE -YjHbb9qLJPDW4hqV2XeF0PnCmTyrIIG+t7Z0pM8UAmdrALF1gwQWfwtQuCxZ -BDWbMgWep0mgv9KLQj/7Ivi9brql2UQS7cjzNbEdReBvmOXSGC2FusYHw1kP -isHyqvCU1WkptD8+EHisthgIwfC4lhQp7BJX//26sRiet++g2m5IYfG8mdtx -ncWgcXAxX3+LFL5wf3kvdbwYhvOC874wpNHZr7PnFrMEHJdZf5a5LY1TDxUv -NR8tAZ2wiqgrldKoXv5PdeTxElg4qCLBqpfGRL1z+zROlkB5CR8o9UjjwWmj -bSEpJSBhVZ6kNSeN5im3XJsLSuB5FEd3rRUD+WLmOfh2lYD5+I9Q3yEG3tdu -yLYQJyFkw/kVj0YZmKziOvBQkoTiLPVesRkGHu80CNNmkCBl62pYPl8G5w2W -NwgrkDB67/E3Pg0Z1H9zrzZfhYRz0UkBaYdl0Hf24OrdxiQMiiv51gnJYkxZ -/8NOZxIkD1TJSUrK4msZmYpvriRsbLBv9mLKInNpnISEGwlloafURHRk8YK4 -6ydLDxJOvp4Y2Wkvi9Wk4pKUAySszK/wGM+Wxdlktd0FESREmWzdzVglh2ue -9ci9ySBhg/OVLwZmcpgqeX97RyYJwpGfjm3fKIelTqJh9VkkpNfG5CW5yqF8 -M/tMZi4J9yzvfxKIl8NXgs+G1IpImLBnB33tkcPrhSahpRUk3A09KLj0rRwe -bS24EfyAhKPpD1I1xuSQX22gwaCKhMUDdhVevPLYHdz0uriGBGWP0zwDK+Rx -G2l28HAjCc6B0yefhcljbt5Wt5BOEhQvmsmOxMhjqONQ26Luv/k7UySYJI+p -v32ML/eQEPpr+XOzHHl8fLJtgnxJQsoxZ/HyZ/J4cb/I3N1BEp6dfZKZK6eA -rWEqv3XHSDAqTis9WqWAMv9pbvzMS4F5V8vvsQYF9K8UmV04jwJrnnnrXV4o -YPB06WIlfgrcbHx74J0Cpg+1eNkKUrAujBURyc/E988G+JMXUXBQYebaalUm -flGIlz0rRsH07aSGWU0mMtp+usUsoyB0g+pnSpeJOdtCpYLFKYg55KpPmDKR -Nbn6qY0kBZdqnzbwbmWirhLp+IlBQZ1H5ufaICaehfz0LBYFFr8MRcPDmLjD -4NYHH4KClqR2fd1IJu6ZzM/TY1PQU74gMieeiaWOOtFVHArGFgWIxqQzEWd8 -K0uVKfC/KmzAzWJi9YObt/epUPBdN3/XdC4Tn/yIIJjLKeBz7s/ZW8JEJZsu -z6gVFEiRGwzW1TBx0udIrqI6BRnmQ7v+1DPRrKrOvYE20XMksqyJidHnA695 -alCgznu7UamDiRm1AmezNCkws5VzFBxmYhGj0HJamwKf75ORDUIstO4VuMHR -p8DokLvEe1EW8o3zn86nPX+kt4BPioVOairHVQ0oyO2r7TQlWLh+LuK20ioK -+h+mqN3RZ+Gq2o2sH4YUFBosrHlhzELxMM1yDyM6v+RRuwlk4c7udO8XtCWy -PaJVrVg4crFHNtOYgs0xht1ZLizMTNz2QpxLgfyfov1Ve1jYnvTHwof2aBDB -98qLhWIPmwaqaMd5LtKQCmChp1eer7MpBTveRNTqhbDQLIfwyKfNcZiy33aU -hRXRV6ImaVdbvTqWGMfCBzdCFUKAgsS6rdKFCSzcE7E55x5tR259cWMyCz9K -CFlP057VKOmZl8HCkhQdMXekoOE6+wCRzcKUFgmtS7QvMFPn4XUWZnl3BTTR -XikapRlGsdB/w+fDiqsp4Dk1XZdaxsLDiTWG1rRb+LwdyirofECgYgDt9PD+ -8bZqFuozn5hcpL1v2iZm8jEL0wpCI+/SNvJ9whBpYqGl8LbJdtrzPxiTas9Z -uFxlWdI47U4Xcq1lBwtdTkU7CZpRkNPN6fPoZeGHMDcHWdp+W9MOxrxm4Z+x -8FgN2vhUSODaWxbeOZnyjktbeE305eqP9HjkBgRa0n5VMaPVP8ZC/rWDBra0 -C3X31f/8ykIhhevqu2iHFr3eJT3LwoSLp+1caG9Qsp3U/8PCjmrHMlfaEpkN -J2z5CJxyGLT8e/+tJFfWbz6BGm3D4n/fv5VEUWeECAxZYyL19/uRC5TWF4kS -+P1Qvs3f9jdHX3r5VJLAI89/P/7bP/mfwn7DsgTOhQn6/+3/qP8xQQGCQBmT -lP/Hd3/0WzpbmcD46KAjf+OP2+uzcrUageneYS//5mdH/8ATZ20Cq+4FHO6g -zbHb7hSuT+Bkj47NPdpfWhu/pBkTqDV00juVdvUG07i7SODSsxtrAmknProl -17GWQOb6jQ5baDsaKd/+Ykmgt4izjgrtWdUl/erbCWSYLCpspcd/JoMRpeNA -oKTgfP2rtKdEFDmGLnS8RbVyvrTHvhp6m3sRaPMgbwEv7U97zYUsfennjTxE -Guj5NtxlTW72J3D0rlTQKdqDFW4zDkfo+LfHei2k/VrdN801msCPxoPfHtPz -+WXmYRP3WALXF3mNHKXdeSwh+tBZAqVZODdM18dTq7vCcbkEiovN/skwoeDJ -g0dUwk0Cg+ZnPzanXaf5zPZcCYH3tiz8NkzX30OxN5eulBPYtHB/xnLat/oW -Kt9pJnDPwAeR03Q9l2wSf3r/BYEc7ak18n/ru0phf3UXgdYVQR+L6PrPu6Z7 -u+kNgUp+5qcf0+vDpX3OMDhNYELJyIZOPQouvvIc/PCDwAy9BKYt7fOb/WM+ -zxHowxN5sFWXzrdOXNP3BWy0z24Of6hDQfRPyk5Eno2/A71cjtLr075T/AdN -1rHxob7z0hNqFHj+FhEzs2JjbM6yrj5VCtwPMMrWb2Gj2YguW5O26zbNXzYO -bMywtrJpoddPW5mdcV6+bIy5Kq44rkSBSUHh1QsX2HjPYtyzgklBH7Mgc+1l -NnLWGK/8rkDP9wv5V6Yy2ajuIfNmJe27UXnpNvlsXHHv8pcsObre7a+mCley -UVW4cdad3g+W859POvGGjU+Ou65JoPeXhtDkM3rv2egzJfrohijdv4mkxLcj -bBxXSNKqWUrXa1/CabMpNoaYzhseE6GAeSs27o8AB0300lo0F9P15BIWGaTG -wYTkO8u30PvdnfaQCEVtDrZOV7Os+Oh4LA8fbdfjYPMqtpQ5vT8m6wWGrwQO -Xk1g8GnxUCC0+MDhsa0c1BJePjz+k4R55f8edA/mYKewd/aSryRMilq67qjh -oPVKleN9r0no9iGeez/hINVp7hzeT0J1/Q+IeMbByk/NPxivSEgKLVC40clB -9yNuEVt7SdAaXPx6doSD0mZu7dfaSfClWp0yxBRRi5+R0d9Awsjm7bve7lFE -Sftr+qUlJLzIV2/67qWIciK8/iLFJNznEzAWOqCI/M7u5z0LSYi/W8bQD1HE -jBM3Ti7LJ0FFQao3NkERG2d59mzLJsFjrNdetUwRz7/fW7P/PAlvT7vu8BNU -wveTN+Zkg+n2R9QIrcVKeCx3faBdIAnf1s9+/rxECS8Jhegm+ZOwkC85xouh -hJ991p77RZ+3tEJqS13VlfDOJs/Rak8SjuxVEtu8TQndso6//L6TBAnT0VbV -TCXs2vjTUI0+71mMB1u801fG5xGCRMFkCchqy5+Yb6JMny+GT86MlsCYX12N -6mpl/P6sP8x0uATOzywx8bNSRiWf2rna/hLo/52vMeeijEnhKW25TSXgt/il -mHS8Mn7aZtZcn1MCl5Zj/8Y+ZXywtIJ1xrYERt3m+5dGqGC9p158zc1i+n9E -kje2ZjmKvQ3MYHOLQLRZKZEcX4FFU1F/7BsKQDauZIu+vhqab5KctWTchFRV -wyViHuoI5o9aiMM34Cljtd7Xsxpo2OS5bltHHhjJ1iRpdmqilOTm/MlFuSDM -lx2wO1oLWaSR1bI910A+SsFkp5I25rW9Gc3LyoIFio5lNk+0MatRmTE8kgka -XOmSYKeV2N0mo+Q7mg5+/aK1ljw6qLvU+nhNZxqMfz293SJVB88oNF/kYV2E -9Zr1lyzUdXG2q7E5MOc8PPxq/PNbiy5qcKEgnJMMvmore//bq4eafO5OaXNn -gDu2p33nAn0UPEMFW9SegrUcqU1C2fqoG/9Bp1EzDlQiTx6uMTBAw7XhCYoC -MbBir2GVYq8BrswKsuuejoK9Dz2Plx5ahad/nXJZ1HsUqq6275kUN8S8n9ae -1+eFwtSNuW+adw1Rbt6aiVVDgeCmWLDg0iYjLKJ4huTj/WByxTn9WxNGmH85 -JSjsqS/cy/n5ZjrOGL98GmoRqPUCB3M2GsuboLBXe6dF7F6Q2R9brlFtglYL -h2xMr+6GxDl3vVM1JrhrOX/gaPJu4E1eR32oM0H2cJnttZjdMFLGn3+10QSD -eYONVPfthvs8x1NF20xQ8VSowjX93eBwPjJ45p0JinDbbTVbXSG1IkTv4SIu -igZuHkoTcAXxhT7UJjsuSrwrWh4p4wQ5a46ETuzkojcr9NYOXidYeSRxzTlH -LuqtP2uOHx3BeoLs6N7NxWPR9ds33nWEE53Ts24+XJQWdH63ztYRvmdHmIVG -cfFoz/KzFWd3Qa/xuba8Ai4mwsRzG4YDeAbmpFsUc/HPeo0VAXwOMFN8Z+8o -ycV4/T7566M7QZTo/qZdxsVlTf8Ur67aCVbz5WQfVHOxff9C9Q17d0Jle96e -tg4uWkS2Ljhbag+WwvfUg7q5KH6obrT+ij10r2+ckerjYkj4xgqheHuYuv8p -znmAi1u968abnexBPUur6OMIF8sNiTjJ+fZQ2bs66PRnLjqFOqW1fbEDy2Xb -QHOCi60DfHj1lR24xwb+FzDNxX383cS+23YwVX3ikuR3LjbGl1p4XbGD6B8X -3e7/4GJ29c6+4Hg7WKKbr+b0m4vaAyuaLwTYwZX996fn5rgY1XNmWb2LHfwP -U0FU/w== - "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, - "Frame" -> {{False, False}, {False, False}}, + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>]]& )[<| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, - "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { - 4.503599627370496*^15, -4.503599627370496*^15}}], - Selectable->False]}, - Annotation[{{{{}, {}, + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ Annotation[{ Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwd13k4VV0XAHAvoQlFpmu699xrKHOmDNdaSQNKJUUy9SpTUhkzlKGEiqQU -RSKUTOeUlChCIqE3MyXRIMlQKE2+0/fXeX7PGfZea++19z6sfw/Y7OXl4eER -/IeH5+91pr+xjnMqx9RRIPNqkSmatl+RClndHQ0VmTo7zzXLAYq3/ivVnQwp -zr82bW5Wh6AtN7v4urNBga8ykWjmwtIxyeTZrlsg0vVmw5tnm+B1pfWBqa4a -OLHVe4n4MydYxxl5Ndn1AngyD7fyNO6H2S6DlImuQaj0EVnxqPII1K65nvNf -9lfIvXvcw7ouEWRfl7//V+03iK7O0ryQdgGW+bjcFFzDhwnHlG9L7cmAZO11 -Fdbb56PnhY3lK9WyoSdVq3pyiRCuWrH4saJmLpzKiWjllV6Kgal9/V7KN0Dy -/FD8uQwxdDhUObTmwU2ItbUwfTEjjr4p71S5HYXAKG1h8P4jgWf8h3SuvCqE -YjHbb9qLJPDW4hqV2XeF0PnCmTyrIIG+t7Z0pM8UAmdrALF1gwQWfwtQuCxZ -BDWbMgWep0mgv9KLQj/7Ivi9brql2UQS7cjzNbEdReBvmOXSGC2FusYHw1kP -isHyqvCU1WkptD8+EHisthgIwfC4lhQp7BJX//26sRiet++g2m5IYfG8mdtx -ncWgcXAxX3+LFL5wf3kvdbwYhvOC874wpNHZr7PnFrMEHJdZf5a5LY1TDxUv -NR8tAZ2wiqgrldKoXv5PdeTxElg4qCLBqpfGRL1z+zROlkB5CR8o9UjjwWmj -bSEpJSBhVZ6kNSeN5im3XJsLSuB5FEd3rRUD+WLmOfh2lYD5+I9Q3yEG3tdu -yLYQJyFkw/kVj0YZmKziOvBQkoTiLPVesRkGHu80CNNmkCBl62pYPl8G5w2W -NwgrkDB67/E3Pg0Z1H9zrzZfhYRz0UkBaYdl0Hf24OrdxiQMiiv51gnJYkxZ -/8NOZxIkD1TJSUrK4msZmYpvriRsbLBv9mLKInNpnISEGwlloafURHRk8YK4 -6ydLDxJOvp4Y2Wkvi9Wk4pKUAySszK/wGM+Wxdlktd0FESREmWzdzVglh2ue -9ci9ySBhg/OVLwZmcpgqeX97RyYJwpGfjm3fKIelTqJh9VkkpNfG5CW5yqF8 -M/tMZi4J9yzvfxKIl8NXgs+G1IpImLBnB33tkcPrhSahpRUk3A09KLj0rRwe -bS24EfyAhKPpD1I1xuSQX22gwaCKhMUDdhVevPLYHdz0uriGBGWP0zwDK+Rx -G2l28HAjCc6B0yefhcljbt5Wt5BOEhQvmsmOxMhjqONQ26Luv/k7UySYJI+p -v32ML/eQEPpr+XOzHHl8fLJtgnxJQsoxZ/HyZ/J4cb/I3N1BEp6dfZKZK6eA -rWEqv3XHSDAqTis9WqWAMv9pbvzMS4F5V8vvsQYF9K8UmV04jwJrnnnrXV4o -YPB06WIlfgrcbHx74J0Cpg+1eNkKUrAujBURyc/E988G+JMXUXBQYebaalUm -flGIlz0rRsH07aSGWU0mMtp+usUsoyB0g+pnSpeJOdtCpYLFKYg55KpPmDKR -Nbn6qY0kBZdqnzbwbmWirhLp+IlBQZ1H5ufaICaehfz0LBYFFr8MRcPDmLjD -4NYHH4KClqR2fd1IJu6ZzM/TY1PQU74gMieeiaWOOtFVHArGFgWIxqQzEWd8 -K0uVKfC/KmzAzWJi9YObt/epUPBdN3/XdC4Tn/yIIJjLKeBz7s/ZW8JEJZsu -z6gVFEiRGwzW1TBx0udIrqI6BRnmQ7v+1DPRrKrOvYE20XMksqyJidHnA695 -alCgznu7UamDiRm1AmezNCkws5VzFBxmYhGj0HJamwKf75ORDUIstO4VuMHR -p8DokLvEe1EW8o3zn86nPX+kt4BPioVOairHVQ0oyO2r7TQlWLh+LuK20ioK -+h+mqN3RZ+Gq2o2sH4YUFBosrHlhzELxMM1yDyM6v+RRuwlk4c7udO8XtCWy -PaJVrVg4crFHNtOYgs0xht1ZLizMTNz2QpxLgfyfov1Ve1jYnvTHwof2aBDB -98qLhWIPmwaqaMd5LtKQCmChp1eer7MpBTveRNTqhbDQLIfwyKfNcZiy33aU -hRXRV6ImaVdbvTqWGMfCBzdCFUKAgsS6rdKFCSzcE7E55x5tR259cWMyCz9K -CFlP057VKOmZl8HCkhQdMXekoOE6+wCRzcKUFgmtS7QvMFPn4XUWZnl3BTTR -XikapRlGsdB/w+fDiqsp4Dk1XZdaxsLDiTWG1rRb+LwdyirofECgYgDt9PD+ -8bZqFuozn5hcpL1v2iZm8jEL0wpCI+/SNvJ9whBpYqGl8LbJdtrzPxiTas9Z -uFxlWdI47U4Xcq1lBwtdTkU7CZpRkNPN6fPoZeGHMDcHWdp+W9MOxrxm4Z+x -8FgN2vhUSODaWxbeOZnyjktbeE305eqP9HjkBgRa0n5VMaPVP8ZC/rWDBra0 -C3X31f/8ykIhhevqu2iHFr3eJT3LwoSLp+1caG9Qsp3U/8PCjmrHMlfaEpkN -J2z5CJxyGLT8e/+tJFfWbz6BGm3D4n/fv5VEUWeECAxZYyL19/uRC5TWF4kS -+P1Qvs3f9jdHX3r5VJLAI89/P/7bP/mfwn7DsgTOhQn6/+3/qP8xQQGCQBmT -lP/Hd3/0WzpbmcD46KAjf+OP2+uzcrUageneYS//5mdH/8ATZ20Cq+4FHO6g -zbHb7hSuT+Bkj47NPdpfWhu/pBkTqDV00juVdvUG07i7SODSsxtrAmknProl -17GWQOb6jQ5baDsaKd/+Ykmgt4izjgrtWdUl/erbCWSYLCpspcd/JoMRpeNA -oKTgfP2rtKdEFDmGLnS8RbVyvrTHvhp6m3sRaPMgbwEv7U97zYUsfennjTxE -Guj5NtxlTW72J3D0rlTQKdqDFW4zDkfo+LfHei2k/VrdN801msCPxoPfHtPz -+WXmYRP3WALXF3mNHKXdeSwh+tBZAqVZODdM18dTq7vCcbkEiovN/skwoeDJ -g0dUwk0Cg+ZnPzanXaf5zPZcCYH3tiz8NkzX30OxN5eulBPYtHB/xnLat/oW -Kt9pJnDPwAeR03Q9l2wSf3r/BYEc7ak18n/ru0phf3UXgdYVQR+L6PrPu6Z7 -u+kNgUp+5qcf0+vDpX3OMDhNYELJyIZOPQouvvIc/PCDwAy9BKYt7fOb/WM+ -zxHowxN5sFWXzrdOXNP3BWy0z24Of6hDQfRPyk5Eno2/A71cjtLr075T/AdN -1rHxob7z0hNqFHj+FhEzs2JjbM6yrj5VCtwPMMrWb2Gj2YguW5O26zbNXzYO -bMywtrJpoddPW5mdcV6+bIy5Kq44rkSBSUHh1QsX2HjPYtyzgklBH7Mgc+1l -NnLWGK/8rkDP9wv5V6Yy2ajuIfNmJe27UXnpNvlsXHHv8pcsObre7a+mCley -UVW4cdad3g+W859POvGGjU+Ou65JoPeXhtDkM3rv2egzJfrohijdv4mkxLcj -bBxXSNKqWUrXa1/CabMpNoaYzhseE6GAeSs27o8AB0300lo0F9P15BIWGaTG -wYTkO8u30PvdnfaQCEVtDrZOV7Os+Oh4LA8fbdfjYPMqtpQ5vT8m6wWGrwQO -Xk1g8GnxUCC0+MDhsa0c1BJePjz+k4R55f8edA/mYKewd/aSryRMilq67qjh -oPVKleN9r0no9iGeez/hINVp7hzeT0J1/Q+IeMbByk/NPxivSEgKLVC40clB -9yNuEVt7SdAaXPx6doSD0mZu7dfaSfClWp0yxBRRi5+R0d9Awsjm7bve7lFE -Sftr+qUlJLzIV2/67qWIciK8/iLFJNznEzAWOqCI/M7u5z0LSYi/W8bQD1HE -jBM3Ti7LJ0FFQao3NkERG2d59mzLJsFjrNdetUwRz7/fW7P/PAlvT7vu8BNU -wveTN+Zkg+n2R9QIrcVKeCx3faBdIAnf1s9+/rxECS8Jhegm+ZOwkC85xouh -hJ991p77RZ+3tEJqS13VlfDOJs/Rak8SjuxVEtu8TQndso6//L6TBAnT0VbV -TCXs2vjTUI0+71mMB1u801fG5xGCRMFkCchqy5+Yb6JMny+GT86MlsCYX12N -6mpl/P6sP8x0uATOzywx8bNSRiWf2rna/hLo/52vMeeijEnhKW25TSXgt/il -mHS8Mn7aZtZcn1MCl5Zj/8Y+ZXywtIJ1xrYERt3m+5dGqGC9p158zc1i+n9E -kje2ZjmKvQ3MYHOLQLRZKZEcX4FFU1F/7BsKQDauZIu+vhqab5KctWTchFRV -wyViHuoI5o9aiMM34Cljtd7Xsxpo2OS5bltHHhjJ1iRpdmqilOTm/MlFuSDM -lx2wO1oLWaSR1bI910A+SsFkp5I25rW9Gc3LyoIFio5lNk+0MatRmTE8kgka -XOmSYKeV2N0mo+Q7mg5+/aK1ljw6qLvU+nhNZxqMfz293SJVB88oNF/kYV2E -9Zr1lyzUdXG2q7E5MOc8PPxq/PNbiy5qcKEgnJMMvmore//bq4eafO5OaXNn -gDu2p33nAn0UPEMFW9SegrUcqU1C2fqoG/9Bp1EzDlQiTx6uMTBAw7XhCYoC -MbBir2GVYq8BrswKsuuejoK9Dz2Plx5ahad/nXJZ1HsUqq6275kUN8S8n9ae -1+eFwtSNuW+adw1Rbt6aiVVDgeCmWLDg0iYjLKJ4huTj/WByxTn9WxNGmH85 -JSjsqS/cy/n5ZjrOGL98GmoRqPUCB3M2GsuboLBXe6dF7F6Q2R9brlFtglYL -h2xMr+6GxDl3vVM1JrhrOX/gaPJu4E1eR32oM0H2cJnttZjdMFLGn3+10QSD -eYONVPfthvs8x1NF20xQ8VSowjX93eBwPjJ45p0JinDbbTVbXSG1IkTv4SIu -igZuHkoTcAXxhT7UJjsuSrwrWh4p4wQ5a46ETuzkojcr9NYOXidYeSRxzTlH -LuqtP2uOHx3BeoLs6N7NxWPR9ds33nWEE53Ts24+XJQWdH63ztYRvmdHmIVG -cfFoz/KzFWd3Qa/xuba8Ai4mwsRzG4YDeAbmpFsUc/HPeo0VAXwOMFN8Z+8o -ycV4/T7566M7QZTo/qZdxsVlTf8Ur67aCVbz5WQfVHOxff9C9Q17d0Jle96e -tg4uWkS2Ljhbag+WwvfUg7q5KH6obrT+ij10r2+ckerjYkj4xgqheHuYuv8p -znmAi1u968abnexBPUur6OMIF8sNiTjJ+fZQ2bs66PRnLjqFOqW1fbEDy2Xb -QHOCi60DfHj1lR24xwb+FzDNxX383cS+23YwVX3ikuR3LjbGl1p4XbGD6B8X -3e7/4GJ29c6+4Hg7WKKbr+b0m4vaAyuaLwTYwZX996fn5rgY1XNmWb2LHfwP -U0FU/w== - "]]}, "Charting`Private`Tag#1"]}}, {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, - "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, - "Primitives" -> {}, "GCFlag" -> False|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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->{ + "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.059883}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994257005386503*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"dbe80307-d139-413f-8bd0-a329974f862b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[106]:=",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13dcTf8fB3DJCGVEuu3uPbdbaKM0bu93Q2kPIaFC0Q4NKrSk0lQRJWlI +655TJIo0JaRBKkWR+S0SGiL8zu+v83g+zuOM9+d8Pq/P+zD3+dm5zZ0zZw4/ +35w5/z9ODT5sZscX6O00+uy1qE1br/syI1i/LxI61LpnmtIZgCId+xh9qWAY +u8oiIV0BgmxKevn78sCj1WuNR/omWDEmmjrTex0C3dd6aKdvgaG7Vn4TvY0g +WGZgTaY5gDF75NW33qeQrTD/6Lmz7jDTq3luvHcYPI+S6RB3DJoMrxV05f0A +49mjJq8840ByqPrDPsU/cF/24XHhm6mwytu5ZKEhPyrvN67vdr0AqWrGd6y2 +CWADw7DOyeQyvLigWv9tuRD2m3zysqrOhfiCsI65YiuQ28HFAdsCEE1/G5eW +vRIrY402388rhBh7U72nUyL4seP14KezReCvlev8MJKBH6MjLNMOloDZlaUT +5gkMbGwZ937nUwKshcdj288x8PRobYpaQAl0dm+veFbEwHu9QW/rwktA+ZAg +/2A7A0Wia6+VXSyBT4VHC7+Li+HRkAr9lkclsHuV1ReJG2I4NtmbM7WmFIy+ +/grxfSuOo/NzPTRelkLwlvS1DZ/FMYT34prnm1Igc5X6V06J45VF7N+ZH0qB +Ye+iVS0ggQT+Hfo6Xgqfb9+f5leWwOEfPpc855dBWmRKwMVjEnhsdld5vlIZ +DItwfJuFJNFT4NkEK7QMRP3qpERFJTH7HPfIi7AysGh1eOIhK4mctom/8afK +oCokXnHZeknMqmzb/D6xDM4MjY/sdJDEhI+fo92vlIF68Z2DX/Mk8U6LcnVF +cxlE6NruFd8khd1q9q5Wi3mwxenyd00DKcwdzjQaXsqDpeGjUdsspDB9ouPk +4ZU8uNQUXZjiIoXBydNzIiV5cNusZnRBnBTeH5DV9VLmwbgDEfTjhRSq7p5K +cbLlgVPg5Jm2UGncLVsn+DCNB3IZBpIj0dL4ehGfTmsGj64/mbcwRRoVe5bd +b8ziQcjsmk6DAmm8OCLzpTifB+einESq26RxzrT0WbzBg7azD3KuSslgUpeU +ZXIXD7TJi5Un62Tw3MXGqRuLSTDqbf8z1iqDbY/NUt4JkWA1Z56J81MZ/MAT +kluxgoT9dr4v4L0MpjUp6TuJkmAcygwLny+Lg8l+Zq0ECYdkpvL118mi7d7U +vgEdEpoP5nxpCpLFgOC1T+Z6kGA6qyV8PFQW+643W9/wIqE9pVtjQ7gsns5K +6nH2JeFF9aLwgjhZNP4q8L3Mn4SxJQHC0ZdkMSVvrafoSRIY5Vs0jRtlcedA +IKmUSoL3z2/hrUJMlGGvVdp3iwTtwwdWfxBmYmxP1KfGahIERvpL+RlMbIqS +nCdzl4SrA009eiwmHsg0dnpYT8LgvXOKNzWYyOQ6kR8ekmAdrdWX68zEuTK6 +aDRAgvRfnk+dKxOlAjqMdr0i4XMQi/+VBxPnRS6/4TNEQqz7EmVGABPP50p1 +nHpLQr35q6ikWCZ2GSmJHh8lQV04QiW0gomuj78dS/5Fwpz4yeYLVUy0dOly +2zNL18/v6Vh1h4m1TsMtnL8keE3aRX+7z0R90ulTKR8FBX3sgYP9THSYcLsb +JkDB6pzW0/b8LNzsbGxqJULBO1Gu5BEBFgo/v9T+bDUF11MqKpKFWFg+dvOZ +PYMC68jMl49EWZgXssnFVIKCWDdvdX1FFprO/ZExK0vBzLrlg0rbWOgyqqqW +sI6CqWzxiPWOLFTl8Jk1K1IwsUyOreXMwmXX/Bk/lSgY+6HlaeTBwrFBxxd2 +qhQM39k/5XiChdP6cnzPN1AwpOR70SWShVp2Ey9HNlLwMueY7oEYFm7UrQyY +1aCgJyox8vBZFtaqw4CwFgWPzG8tjb1Kv48FZglyKXhQ21CRWMLCd4esfObo +UdCs0mafRrGQx9/DN0773so3mZerWZjRUBjYiHS9A4vlbz5hISfwec4GIwoo +S5FHNU9ZePOKSvaCzRSU1cn41PeycGageX837cL8DTcev6HPCwrb7DehINPL +CYYnWRjHF1VrZUZBxiv34Y+/WGii8lvyH+10a//oL/9Y+Iwosig1pyBpfezj +n4sInMtTkp22oCD+aqrv36UE9gl23D9vSY+vaPaKeasIbG/VAHUrCiJ/V+xY +Jk3gkO1E+W5rCsJ87v5aRRB4tVasdJT28aGWbHEFAscbCo4H2VAQ1DTwVk6d +wDfM9OIwWwq84ucf0jUm0BzzjVy2UuD+Z9lKA3P6/pE1K9tpH/ATrzKxIfCZ ++eUGTXsKXLaqzNo5EijYkFT7l/ae+1o5Ds4EOnHChHZvo8BR08jAyZVA1yh+ +vEnbXmJnrIcvgXkFF2x2bafANnH/Oj9/AoVvpqkW0bb659MecIw+bz89NU7b +/PCxwyEnCLS+UVOwcQcFW95GrgqPpN+/87l2EO3N2xJvRccQyDuuX3OdtsGD +DMf4BAKD7KeJUdq6pWVXzp8ncHqBYo21AwUDsqU5m7MIPFUovyyYdsj54ssT +OQTatf1+cZk2Q7AoO7+AwEFmkEQD7VsRhZfsiglsGXHtHqK9fbogi48kMGRe +xvzftCe88zPLrxPY+X6AEt5JQdpw7kXnWwRWXubv5tBWd7hyYeld2r2DRzRp +dz25nFFbT+CdLr1EI9qHDLPPe98nsMBtkrCivaw665zEIwJf8T/XtKdNKmem +P2onUKiy/OF22pYFF9KCnxFIrdrdv432Z7GMVIU+AmscSz1taZ9JPne29yWB ++rb+oaa018xPTzn9hr5+Z5yQHu3WkNTkjR8INHVvYqrQPjCekvRuhMDVi3/e +lqQ9/0ByYtpXAnWd/j5bQLtgIDHBYILAKgbp/4Wu19A2If7bTwK9IoYudNIe +bjlz5sofuj5/L6Ny2hG6cXHWc9ko7LTuaAJt2esxsX8XsLFVf0bNjXad/OkY +3hI2HrlOBWrTdso+dXr3cjaWPl9jKEh7VjgqeokIG2/vM8zqp79fVmzEqRox +Norm9Z28Slv7b1iUhzQbZX1axrxp9/mfjGQQbLylNDKqSnu1c2h4kCIbFRda +nCXp+XOzOzhMTo2Ng40mOu607c2OnezeyMap2xOB0rRTNwYeVwc2OtS+vRJO +z0+1Uv/QN4ZstHr7MVWRdqfskZCULWzUO8IUe07PbyFBv2NjtmxcLVT3XoJ2 +WYTP0eztbHS++J9SDb0+zKa9gix20fUk9Qhtox077B5Q4srGb1VnLoTbUTCv +et+hA0fZOO4T9p2k11++8l4/keNstB58uUKdtkGBs29zOBt9Hql2Vvx//Sbv +9madYWOSjYvSNXp9/3Lb7j54iY06LsFRHnQeXBywP5iYy0ZxXVZlF50Xm2y3 +HtAtZGNyi2i8Bu0gXRvXTIqNYdPZKlOmFHwTNnPZ3sjG13ryPpZ0HvV5szo9 +H9DP++9tUbwxBfUtvyCsjY1rqNjZ+3R+pYSUyhT1sPFNl+O4Mp13qsOCQzMj +dD1nfq17Suehb0XHnuyVcui/SmOeM52v25cUPalgyGHWCQsb500U6LmFc1uk +5HC+3ssHuzTp8RNTk/oqL4fru/frmdJ5XRae+hJ15VBoWNJ7is73Eettu965 +yuG2k8XvMuUpeFqs9PinhxyqndYJc+JQUMO/QEfITw4N+aJ2SstREHerSlwj +WA7b23Y8TWVRoCDD6I9JlMMNHIMZKykKDo71O6yrkkOJDG8QEab3rwSX7UcW +ctC9w/nj8E8SfEcUWaqCHLxbZrPQapqEaZOZL1+WczC6z39h1SQJi/lToz3E +OThdU1t2/DsJqsFNlS5KHGw47Ffyjt5vT7hxVlpv5SAvg/CWHSRhtd7njnU5 +HPyqU/XZit7vr2Tdzvovn4MnViA43CNhzcypg9eKONhbK3feie4PdCul/rGu +czAlPX/bvtt0v7PWWln8PgdvBfboGJeTUL76eoLAKAfveJcXh+fQ/czXo6bv +NeRxNEfXoDWUBEk16dMCuvJoEnAxyCCY7l+ONDeu05dH44LC7dVBJKRPLdc9 +Yi6PUDwik32Y7j/+FCv/c5ZHD41XfNyDJBwRfLlSLE4e38l+dhyyJSFzDQ5a +DMgjp3tYvZpN9x/7BfwrwxSwQOODrlgDD8YuG9XWnVJAht8Zof5aHnx9Eb7w +cZwCfjEIXHShhgffrWey3qQp4GDEprgllTyY1hlpXlqkgAurNJ91FvJg7qq2 +1R6dChizcvrj83geiDUn10gx16D2pFtv91Ye/b8iOjemcQ1qZSxNmh0oA+En +nKTyr2sxsun86KPhUpCMpWw0NBRR2QODF1aWwIV1WstXHlTCX5YKozvCi+GR +uP7GH2eVkS+g2McVi0BbsjFFpUcFJeT9He16CmEpf17A3khVnNCxo8xDr4J0 +hIzuTo4azu1YeHP333xYJLe7yu6BGlo1lKzQj80DZa4YdXSPOi41dDzNp5IL +RwaFm8zmrMfaztGu2PAc+PojYZvphfV43msXc/6nS2Ci0pJpqrQBPST8twoF +ZMK9Hzq/p9s3YK7CR2PB/zLAV1G9v8ttIx5vf+miUXwOuGOu3TsXaWDjK2Pu +8J402MxmWArlaeCLHRbC+XvOgkL4mWONmpr4wc38IaxKhrVuWnVy/Zo4MTnd +zfCOB7d77qcqD29CPUdLsVmzWKi70u36TUQLP6ZqTitviIaJon/TKre08LNU +/W2Ho5GwX650UaalNmLeW4fFa8Ph29o0jevj2vjqWsN7xkAo3C74/WYyVgdj +spL32hPHwNGIQB1pXXTmy86JfBcAEj4x1cr1utiSKFb+svUwiCz2rrDcwcWC +RTF8n0J8ocDwRMj4Ti5u9A87fNXNF9RPJBmm7ebi1vW5tn42vmA1Xv68by8X +9/Wtt1Tg+MLpnsmZ/d5clG8Iz1Z+6gM/88IMQiJox1jMi1X0gX6dtGeFpVxM +3FggaTriBe6BBZdMSS7e+Km+50yPF0yRN90+l3NRIG/QrbfRC4RZfdNqVVx8 +r32vJj3LC8wFpCRr67n4JVn+TZalF9ztLnR99pyLZmHFGb03PMFs6W2loD4u +robk0adXPKHP5OEUY4CL3OjqyheJnjBRMxrr9JqL7+oNUxe5e4JSrirvvxEu +6t/TGvkm6Ql3+/WDEr5wEWy2OGxZTN9v1VZQGeei6q9I4ZJpDzgQE9gVMMlF +kUK+HclPPWCi/nSm6E8udoYt7hWu94DIXxn7a35xcQ3xMCmX5wHLNxQr7vnD +xSAbVrBOlgdc9qmZ/PePi6G3f6e8jvWA/wH3PVkR + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13dcTf8fB3DJCGVEuu3uPbdbaKM0bu93Q2kPIaFC0Q4NKrSk0lQRJWlI +655TJIo0JaRBKkWR+S0SGiL8zu+v83g+zuOM9+d8Pq/P+zD3+dm5zZ0zZw4/ +35w5/z9ODT5sZscX6O00+uy1qE1br/syI1i/LxI61LpnmtIZgCId+xh9qWAY +u8oiIV0BgmxKevn78sCj1WuNR/omWDEmmjrTex0C3dd6aKdvgaG7Vn4TvY0g +WGZgTaY5gDF75NW33qeQrTD/6Lmz7jDTq3luvHcYPI+S6RB3DJoMrxV05f0A +49mjJq8840ByqPrDPsU/cF/24XHhm6mwytu5ZKEhPyrvN67vdr0AqWrGd6y2 +CWADw7DOyeQyvLigWv9tuRD2m3zysqrOhfiCsI65YiuQ28HFAdsCEE1/G5eW +vRIrY402388rhBh7U72nUyL4seP14KezReCvlev8MJKBH6MjLNMOloDZlaUT +5gkMbGwZ937nUwKshcdj288x8PRobYpaQAl0dm+veFbEwHu9QW/rwktA+ZAg +/2A7A0Wia6+VXSyBT4VHC7+Li+HRkAr9lkclsHuV1ReJG2I4NtmbM7WmFIy+ +/grxfSuOo/NzPTRelkLwlvS1DZ/FMYT34prnm1Igc5X6V06J45VF7N+ZH0qB +Ye+iVS0ggQT+Hfo6Xgqfb9+f5leWwOEfPpc855dBWmRKwMVjEnhsdld5vlIZ +DItwfJuFJNFT4NkEK7QMRP3qpERFJTH7HPfIi7AysGh1eOIhK4mctom/8afK +oCokXnHZeknMqmzb/D6xDM4MjY/sdJDEhI+fo92vlIF68Z2DX/Mk8U6LcnVF +cxlE6NruFd8khd1q9q5Wi3mwxenyd00DKcwdzjQaXsqDpeGjUdsspDB9ouPk +4ZU8uNQUXZjiIoXBydNzIiV5cNusZnRBnBTeH5DV9VLmwbgDEfTjhRSq7p5K +cbLlgVPg5Jm2UGncLVsn+DCNB3IZBpIj0dL4ehGfTmsGj64/mbcwRRoVe5bd +b8ziQcjsmk6DAmm8OCLzpTifB+einESq26RxzrT0WbzBg7azD3KuSslgUpeU +ZXIXD7TJi5Un62Tw3MXGqRuLSTDqbf8z1iqDbY/NUt4JkWA1Z56J81MZ/MAT +kluxgoT9dr4v4L0MpjUp6TuJkmAcygwLny+Lg8l+Zq0ECYdkpvL118mi7d7U +vgEdEpoP5nxpCpLFgOC1T+Z6kGA6qyV8PFQW+643W9/wIqE9pVtjQ7gsns5K +6nH2JeFF9aLwgjhZNP4q8L3Mn4SxJQHC0ZdkMSVvrafoSRIY5Vs0jRtlcedA +IKmUSoL3z2/hrUJMlGGvVdp3iwTtwwdWfxBmYmxP1KfGahIERvpL+RlMbIqS +nCdzl4SrA009eiwmHsg0dnpYT8LgvXOKNzWYyOQ6kR8ekmAdrdWX68zEuTK6 +aDRAgvRfnk+dKxOlAjqMdr0i4XMQi/+VBxPnRS6/4TNEQqz7EmVGABPP50p1 +nHpLQr35q6ikWCZ2GSmJHh8lQV04QiW0gomuj78dS/5Fwpz4yeYLVUy0dOly +2zNL18/v6Vh1h4m1TsMtnL8keE3aRX+7z0R90ulTKR8FBX3sgYP9THSYcLsb +JkDB6pzW0/b8LNzsbGxqJULBO1Gu5BEBFgo/v9T+bDUF11MqKpKFWFg+dvOZ +PYMC68jMl49EWZgXssnFVIKCWDdvdX1FFprO/ZExK0vBzLrlg0rbWOgyqqqW +sI6CqWzxiPWOLFTl8Jk1K1IwsUyOreXMwmXX/Bk/lSgY+6HlaeTBwrFBxxd2 +qhQM39k/5XiChdP6cnzPN1AwpOR70SWShVp2Ey9HNlLwMueY7oEYFm7UrQyY +1aCgJyox8vBZFtaqw4CwFgWPzG8tjb1Kv48FZglyKXhQ21CRWMLCd4esfObo +UdCs0mafRrGQx9/DN0773so3mZerWZjRUBjYiHS9A4vlbz5hISfwec4GIwoo +S5FHNU9ZePOKSvaCzRSU1cn41PeycGageX837cL8DTcev6HPCwrb7DehINPL +CYYnWRjHF1VrZUZBxiv34Y+/WGii8lvyH+10a//oL/9Y+Iwosig1pyBpfezj +n4sInMtTkp22oCD+aqrv36UE9gl23D9vSY+vaPaKeasIbG/VAHUrCiJ/V+xY +Jk3gkO1E+W5rCsJ87v5aRRB4tVasdJT28aGWbHEFAscbCo4H2VAQ1DTwVk6d +wDfM9OIwWwq84ucf0jUm0BzzjVy2UuD+Z9lKA3P6/pE1K9tpH/ATrzKxIfCZ ++eUGTXsKXLaqzNo5EijYkFT7l/ae+1o5Ds4EOnHChHZvo8BR08jAyZVA1yh+ +vEnbXmJnrIcvgXkFF2x2bafANnH/Oj9/AoVvpqkW0bb659MecIw+bz89NU7b +/PCxwyEnCLS+UVOwcQcFW95GrgqPpN+/87l2EO3N2xJvRccQyDuuX3OdtsGD +DMf4BAKD7KeJUdq6pWVXzp8ncHqBYo21AwUDsqU5m7MIPFUovyyYdsj54ssT +OQTatf1+cZk2Q7AoO7+AwEFmkEQD7VsRhZfsiglsGXHtHqK9fbogi48kMGRe +xvzftCe88zPLrxPY+X6AEt5JQdpw7kXnWwRWXubv5tBWd7hyYeld2r2DRzRp +dz25nFFbT+CdLr1EI9qHDLPPe98nsMBtkrCivaw665zEIwJf8T/XtKdNKmem +P2onUKiy/OF22pYFF9KCnxFIrdrdv432Z7GMVIU+AmscSz1taZ9JPne29yWB ++rb+oaa018xPTzn9hr5+Z5yQHu3WkNTkjR8INHVvYqrQPjCekvRuhMDVi3/e +lqQ9/0ByYtpXAnWd/j5bQLtgIDHBYILAKgbp/4Wu19A2If7bTwK9IoYudNIe +bjlz5sofuj5/L6Ny2hG6cXHWc9ko7LTuaAJt2esxsX8XsLFVf0bNjXad/OkY +3hI2HrlOBWrTdso+dXr3cjaWPl9jKEh7VjgqeokIG2/vM8zqp79fVmzEqRox +Norm9Z28Slv7b1iUhzQbZX1axrxp9/mfjGQQbLylNDKqSnu1c2h4kCIbFRda +nCXp+XOzOzhMTo2Ng40mOu607c2OnezeyMap2xOB0rRTNwYeVwc2OtS+vRJO +z0+1Uv/QN4ZstHr7MVWRdqfskZCULWzUO8IUe07PbyFBv2NjtmxcLVT3XoJ2 +WYTP0eztbHS++J9SDb0+zKa9gix20fUk9Qhtox077B5Q4srGb1VnLoTbUTCv +et+hA0fZOO4T9p2k11++8l4/keNstB58uUKdtkGBs29zOBt9Hql2Vvx//Sbv +9madYWOSjYvSNXp9/3Lb7j54iY06LsFRHnQeXBywP5iYy0ZxXVZlF50Xm2y3 +HtAtZGNyi2i8Bu0gXRvXTIqNYdPZKlOmFHwTNnPZ3sjG13ryPpZ0HvV5szo9 +H9DP++9tUbwxBfUtvyCsjY1rqNjZ+3R+pYSUyhT1sPFNl+O4Mp13qsOCQzMj +dD1nfq17Suehb0XHnuyVcui/SmOeM52v25cUPalgyGHWCQsb500U6LmFc1uk +5HC+3ssHuzTp8RNTk/oqL4fru/frmdJ5XRae+hJ15VBoWNJ7is73Eettu965 +yuG2k8XvMuUpeFqs9PinhxyqndYJc+JQUMO/QEfITw4N+aJ2SstREHerSlwj +WA7b23Y8TWVRoCDD6I9JlMMNHIMZKykKDo71O6yrkkOJDG8QEab3rwSX7UcW +ctC9w/nj8E8SfEcUWaqCHLxbZrPQapqEaZOZL1+WczC6z39h1SQJi/lToz3E +OThdU1t2/DsJqsFNlS5KHGw47Ffyjt5vT7hxVlpv5SAvg/CWHSRhtd7njnU5 +HPyqU/XZit7vr2Tdzvovn4MnViA43CNhzcypg9eKONhbK3feie4PdCul/rGu +czAlPX/bvtt0v7PWWln8PgdvBfboGJeTUL76eoLAKAfveJcXh+fQ/czXo6bv +NeRxNEfXoDWUBEk16dMCuvJoEnAxyCCY7l+ONDeu05dH44LC7dVBJKRPLdc9 +Yi6PUDwik32Y7j/+FCv/c5ZHD41XfNyDJBwRfLlSLE4e38l+dhyyJSFzDQ5a +DMgjp3tYvZpN9x/7BfwrwxSwQOODrlgDD8YuG9XWnVJAht8Zof5aHnx9Eb7w +cZwCfjEIXHShhgffrWey3qQp4GDEprgllTyY1hlpXlqkgAurNJ91FvJg7qq2 +1R6dChizcvrj83geiDUn10gx16D2pFtv91Ye/b8iOjemcQ1qZSxNmh0oA+En +nKTyr2sxsun86KPhUpCMpWw0NBRR2QODF1aWwIV1WstXHlTCX5YKozvCi+GR +uP7GH2eVkS+g2McVi0BbsjFFpUcFJeT9He16CmEpf17A3khVnNCxo8xDr4J0 +hIzuTo4azu1YeHP333xYJLe7yu6BGlo1lKzQj80DZa4YdXSPOi41dDzNp5IL +RwaFm8zmrMfaztGu2PAc+PojYZvphfV43msXc/6nS2Ci0pJpqrQBPST8twoF +ZMK9Hzq/p9s3YK7CR2PB/zLAV1G9v8ttIx5vf+miUXwOuGOu3TsXaWDjK2Pu +8J402MxmWArlaeCLHRbC+XvOgkL4mWONmpr4wc38IaxKhrVuWnVy/Zo4MTnd +zfCOB7d77qcqD29CPUdLsVmzWKi70u36TUQLP6ZqTitviIaJon/TKre08LNU +/W2Ho5GwX650UaalNmLeW4fFa8Ph29o0jevj2vjqWsN7xkAo3C74/WYyVgdj +spL32hPHwNGIQB1pXXTmy86JfBcAEj4x1cr1utiSKFb+svUwiCz2rrDcwcWC +RTF8n0J8ocDwRMj4Ti5u9A87fNXNF9RPJBmm7ebi1vW5tn42vmA1Xv68by8X +9/Wtt1Tg+MLpnsmZ/d5clG8Iz1Z+6gM/88IMQiJox1jMi1X0gX6dtGeFpVxM +3FggaTriBe6BBZdMSS7e+Km+50yPF0yRN90+l3NRIG/QrbfRC4RZfdNqVVx8 +r32vJj3LC8wFpCRr67n4JVn+TZalF9ztLnR99pyLZmHFGb03PMFs6W2loD4u +robk0adXPKHP5OEUY4CL3OjqyheJnjBRMxrr9JqL7+oNUxe5e4JSrirvvxEu +6t/TGvkm6Ql3+/WDEr5wEWy2OGxZTN9v1VZQGeei6q9I4ZJpDzgQE9gVMMlF +kUK+HclPPWCi/nSm6E8udoYt7hWu94DIXxn7a35xcQ3xMCmX5wHLNxQr7vnD +xSAbVrBOlgdc9qmZ/PePi6G3f6e8jvWA/wH3PVkR + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06122847759284165}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06122847759284165}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13dcTf8fB3DJCGVEuu3uPbdbaKM0bu93Q2kPIaFC0Q4NKrSk0lQRJWlI +655TJIo0JaRBKkWR+S0SGiL8zu+v83g+zuOM9+d8Pq/P+zD3+dm5zZ0zZw4/ +35w5/z9ODT5sZscX6O00+uy1qE1br/syI1i/LxI61LpnmtIZgCId+xh9qWAY +u8oiIV0BgmxKevn78sCj1WuNR/omWDEmmjrTex0C3dd6aKdvgaG7Vn4TvY0g +WGZgTaY5gDF75NW33qeQrTD/6Lmz7jDTq3luvHcYPI+S6RB3DJoMrxV05f0A +49mjJq8840ByqPrDPsU/cF/24XHhm6mwytu5ZKEhPyrvN67vdr0AqWrGd6y2 +CWADw7DOyeQyvLigWv9tuRD2m3zysqrOhfiCsI65YiuQ28HFAdsCEE1/G5eW +vRIrY402388rhBh7U72nUyL4seP14KezReCvlev8MJKBH6MjLNMOloDZlaUT +5gkMbGwZ937nUwKshcdj288x8PRobYpaQAl0dm+veFbEwHu9QW/rwktA+ZAg +/2A7A0Wia6+VXSyBT4VHC7+Li+HRkAr9lkclsHuV1ReJG2I4NtmbM7WmFIy+ +/grxfSuOo/NzPTRelkLwlvS1DZ/FMYT34prnm1Igc5X6V06J45VF7N+ZH0qB +Ye+iVS0ggQT+Hfo6Xgqfb9+f5leWwOEfPpc855dBWmRKwMVjEnhsdld5vlIZ +DItwfJuFJNFT4NkEK7QMRP3qpERFJTH7HPfIi7AysGh1eOIhK4mctom/8afK +oCokXnHZeknMqmzb/D6xDM4MjY/sdJDEhI+fo92vlIF68Z2DX/Mk8U6LcnVF +cxlE6NruFd8khd1q9q5Wi3mwxenyd00DKcwdzjQaXsqDpeGjUdsspDB9ouPk +4ZU8uNQUXZjiIoXBydNzIiV5cNusZnRBnBTeH5DV9VLmwbgDEfTjhRSq7p5K +cbLlgVPg5Jm2UGncLVsn+DCNB3IZBpIj0dL4ehGfTmsGj64/mbcwRRoVe5bd +b8ziQcjsmk6DAmm8OCLzpTifB+einESq26RxzrT0WbzBg7azD3KuSslgUpeU +ZXIXD7TJi5Un62Tw3MXGqRuLSTDqbf8z1iqDbY/NUt4JkWA1Z56J81MZ/MAT +kluxgoT9dr4v4L0MpjUp6TuJkmAcygwLny+Lg8l+Zq0ECYdkpvL118mi7d7U +vgEdEpoP5nxpCpLFgOC1T+Z6kGA6qyV8PFQW+643W9/wIqE9pVtjQ7gsns5K +6nH2JeFF9aLwgjhZNP4q8L3Mn4SxJQHC0ZdkMSVvrafoSRIY5Vs0jRtlcedA +IKmUSoL3z2/hrUJMlGGvVdp3iwTtwwdWfxBmYmxP1KfGahIERvpL+RlMbIqS +nCdzl4SrA009eiwmHsg0dnpYT8LgvXOKNzWYyOQ6kR8ekmAdrdWX68zEuTK6 +aDRAgvRfnk+dKxOlAjqMdr0i4XMQi/+VBxPnRS6/4TNEQqz7EmVGABPP50p1 +nHpLQr35q6ikWCZ2GSmJHh8lQV04QiW0gomuj78dS/5Fwpz4yeYLVUy0dOly +2zNL18/v6Vh1h4m1TsMtnL8keE3aRX+7z0R90ulTKR8FBX3sgYP9THSYcLsb +JkDB6pzW0/b8LNzsbGxqJULBO1Gu5BEBFgo/v9T+bDUF11MqKpKFWFg+dvOZ +PYMC68jMl49EWZgXssnFVIKCWDdvdX1FFprO/ZExK0vBzLrlg0rbWOgyqqqW +sI6CqWzxiPWOLFTl8Jk1K1IwsUyOreXMwmXX/Bk/lSgY+6HlaeTBwrFBxxd2 +qhQM39k/5XiChdP6cnzPN1AwpOR70SWShVp2Ey9HNlLwMueY7oEYFm7UrQyY +1aCgJyox8vBZFtaqw4CwFgWPzG8tjb1Kv48FZglyKXhQ21CRWMLCd4esfObo +UdCs0mafRrGQx9/DN0773so3mZerWZjRUBjYiHS9A4vlbz5hISfwec4GIwoo +S5FHNU9ZePOKSvaCzRSU1cn41PeycGageX837cL8DTcev6HPCwrb7DehINPL +CYYnWRjHF1VrZUZBxiv34Y+/WGii8lvyH+10a//oL/9Y+Iwosig1pyBpfezj +n4sInMtTkp22oCD+aqrv36UE9gl23D9vSY+vaPaKeasIbG/VAHUrCiJ/V+xY +Jk3gkO1E+W5rCsJ87v5aRRB4tVasdJT28aGWbHEFAscbCo4H2VAQ1DTwVk6d +wDfM9OIwWwq84ucf0jUm0BzzjVy2UuD+Z9lKA3P6/pE1K9tpH/ATrzKxIfCZ ++eUGTXsKXLaqzNo5EijYkFT7l/ae+1o5Ds4EOnHChHZvo8BR08jAyZVA1yh+ +vEnbXmJnrIcvgXkFF2x2bafANnH/Oj9/AoVvpqkW0bb659MecIw+bz89NU7b +/PCxwyEnCLS+UVOwcQcFW95GrgqPpN+/87l2EO3N2xJvRccQyDuuX3OdtsGD +DMf4BAKD7KeJUdq6pWVXzp8ncHqBYo21AwUDsqU5m7MIPFUovyyYdsj54ssT +OQTatf1+cZk2Q7AoO7+AwEFmkEQD7VsRhZfsiglsGXHtHqK9fbogi48kMGRe +xvzftCe88zPLrxPY+X6AEt5JQdpw7kXnWwRWXubv5tBWd7hyYeld2r2DRzRp +dz25nFFbT+CdLr1EI9qHDLPPe98nsMBtkrCivaw665zEIwJf8T/XtKdNKmem +P2onUKiy/OF22pYFF9KCnxFIrdrdv432Z7GMVIU+AmscSz1taZ9JPne29yWB ++rb+oaa018xPTzn9hr5+Z5yQHu3WkNTkjR8INHVvYqrQPjCekvRuhMDVi3/e +lqQ9/0ByYtpXAnWd/j5bQLtgIDHBYILAKgbp/4Wu19A2If7bTwK9IoYudNIe +bjlz5sofuj5/L6Ny2hG6cXHWc9ko7LTuaAJt2esxsX8XsLFVf0bNjXad/OkY +3hI2HrlOBWrTdso+dXr3cjaWPl9jKEh7VjgqeokIG2/vM8zqp79fVmzEqRox +Norm9Z28Slv7b1iUhzQbZX1axrxp9/mfjGQQbLylNDKqSnu1c2h4kCIbFRda +nCXp+XOzOzhMTo2Ng40mOu607c2OnezeyMap2xOB0rRTNwYeVwc2OtS+vRJO +z0+1Uv/QN4ZstHr7MVWRdqfskZCULWzUO8IUe07PbyFBv2NjtmxcLVT3XoJ2 +WYTP0eztbHS++J9SDb0+zKa9gix20fUk9Qhtox077B5Q4srGb1VnLoTbUTCv +et+hA0fZOO4T9p2k11++8l4/keNstB58uUKdtkGBs29zOBt9Hql2Vvx//Sbv +9madYWOSjYvSNXp9/3Lb7j54iY06LsFRHnQeXBywP5iYy0ZxXVZlF50Xm2y3 +HtAtZGNyi2i8Bu0gXRvXTIqNYdPZKlOmFHwTNnPZ3sjG13ryPpZ0HvV5szo9 +H9DP++9tUbwxBfUtvyCsjY1rqNjZ+3R+pYSUyhT1sPFNl+O4Mp13qsOCQzMj +dD1nfq17Suehb0XHnuyVcui/SmOeM52v25cUPalgyGHWCQsb500U6LmFc1uk +5HC+3ssHuzTp8RNTk/oqL4fru/frmdJ5XRae+hJ15VBoWNJ7is73Eettu965 +yuG2k8XvMuUpeFqs9PinhxyqndYJc+JQUMO/QEfITw4N+aJ2SstREHerSlwj +WA7b23Y8TWVRoCDD6I9JlMMNHIMZKykKDo71O6yrkkOJDG8QEab3rwSX7UcW +ctC9w/nj8E8SfEcUWaqCHLxbZrPQapqEaZOZL1+WczC6z39h1SQJi/lToz3E +OThdU1t2/DsJqsFNlS5KHGw47Ffyjt5vT7hxVlpv5SAvg/CWHSRhtd7njnU5 +HPyqU/XZit7vr2Tdzvovn4MnViA43CNhzcypg9eKONhbK3feie4PdCul/rGu +czAlPX/bvtt0v7PWWln8PgdvBfboGJeTUL76eoLAKAfveJcXh+fQ/czXo6bv +NeRxNEfXoDWUBEk16dMCuvJoEnAxyCCY7l+ONDeu05dH44LC7dVBJKRPLdc9 +Yi6PUDwik32Y7j/+FCv/c5ZHD41XfNyDJBwRfLlSLE4e38l+dhyyJSFzDQ5a +DMgjp3tYvZpN9x/7BfwrwxSwQOODrlgDD8YuG9XWnVJAht8Zof5aHnx9Eb7w +cZwCfjEIXHShhgffrWey3qQp4GDEprgllTyY1hlpXlqkgAurNJ91FvJg7qq2 +1R6dChizcvrj83geiDUn10gx16D2pFtv91Ye/b8iOjemcQ1qZSxNmh0oA+En +nKTyr2sxsun86KPhUpCMpWw0NBRR2QODF1aWwIV1WstXHlTCX5YKozvCi+GR +uP7GH2eVkS+g2McVi0BbsjFFpUcFJeT9He16CmEpf17A3khVnNCxo8xDr4J0 +hIzuTo4azu1YeHP333xYJLe7yu6BGlo1lKzQj80DZa4YdXSPOi41dDzNp5IL +RwaFm8zmrMfaztGu2PAc+PojYZvphfV43msXc/6nS2Ci0pJpqrQBPST8twoF +ZMK9Hzq/p9s3YK7CR2PB/zLAV1G9v8ttIx5vf+miUXwOuGOu3TsXaWDjK2Pu +8J402MxmWArlaeCLHRbC+XvOgkL4mWONmpr4wc38IaxKhrVuWnVy/Zo4MTnd +zfCOB7d77qcqD29CPUdLsVmzWKi70u36TUQLP6ZqTitviIaJon/TKre08LNU +/W2Ho5GwX650UaalNmLeW4fFa8Ph29o0jevj2vjqWsN7xkAo3C74/WYyVgdj +spL32hPHwNGIQB1pXXTmy86JfBcAEj4x1cr1utiSKFb+svUwiCz2rrDcwcWC +RTF8n0J8ocDwRMj4Ti5u9A87fNXNF9RPJBmm7ebi1vW5tn42vmA1Xv68by8X +9/Wtt1Tg+MLpnsmZ/d5clG8Iz1Z+6gM/88IMQiJox1jMi1X0gX6dtGeFpVxM +3FggaTriBe6BBZdMSS7e+Km+50yPF0yRN90+l3NRIG/QrbfRC4RZfdNqVVx8 +r32vJj3LC8wFpCRr67n4JVn+TZalF9ztLnR99pyLZmHFGb03PMFs6W2loD4u +robk0adXPKHP5OEUY4CL3OjqyheJnjBRMxrr9JqL7+oNUxe5e4JSrirvvxEu +6t/TGvkm6Ql3+/WDEr5wEWy2OGxZTN9v1VZQGeei6q9I4ZJpDzgQE9gVMMlF +kUK+HclPPWCi/nSm6E8udoYt7hWu94DIXxn7a35xcQ3xMCmX5wHLNxQr7vnD +xSAbVrBOlgdc9qmZ/PePi6G3f6e8jvWA/wH3PVkR + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06122847759284165}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8083,7 +8274,8 @@ U0FU/w== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.06741909458355917}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06122847759284165}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8091,8 +8283,556 @@ U0FU/w== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913236646248627`*^9}, - CellLabel->"Out[89]=",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] + CellChangeTimes->{3.9942570055466623`*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"03e962c3-d3fc-4a84-8f4e-9336833fe2ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{3.99179966106703*^9}, + CellLabel-> + "In[107]:=",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], + +Cell[BoxData["12.743322740172479`"], "Output", + CellChangeTimes->{3.9913229040054893`*^9, 3.994257005593978*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"9054cd89-dc50-49f0-993d-dc9422f5d880"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}]}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.991799666995865*^9}, + CellLabel-> + "In[108]:=",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5257842966720138`*^-261\\\", \ +RowBox[{\\\"1185674779082540666256313\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9254518349824000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 108, 13, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913229042538757`*^9, 3.994257005721388*^9}, + CellLabel-> + "During evaluation of \ +In[108]:=",ExpressionUUID->"15a476b6-7d97-40cc-9d8e-eb1a76ba6e1d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.339046878917993`*^-271\\\", \ +RowBox[{\\\"9295690268007118823449497\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"9\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5542386262016000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 108, 14, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913229042538757`*^9, 3.9942570057330313`*^9}, + CellLabel-> + "During evaluation of \ +In[108]:=",ExpressionUUID->"0879fc46-2ca1-403a-a15f-8e47abdff181"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.307215104998981`*^-281\\\", \ +RowBox[{\\\"7817675515393986930521027\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"12\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1146846355456000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 108, 15, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913229042538757`*^9, 3.994257005741836*^9}, + CellLabel-> + "During evaluation of \ +In[108]:=",ExpressionUUID->"11fccafd-de9f-4a6d-9bdf-2982be97b19c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 108, 16, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913229042538757`*^9, 3.994257005751581*^9}, + CellLabel-> + "During evaluation of \ +In[108]:=",ExpressionUUID->"d2203400-09eb-4179-812b-5b657d53c03a"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk0Vev7APAuDVTcIkKmc84+pkJJGjieJ1wZogjRgAxFdIyRKfM8JClK +RIbEOTv5Kk2GG9FISRGXolkShZDye39/7LXXZ6299nr3s5+J4eJj7S4wb968 +OXL9/32y/0EzlVqir2sUrBDqs1m/s0AqZGt3DMTfPem7yHYloES7i1R3Fvzr +86iqw0YZgnZWdAl2X4QD72Xqr9pshOUjK7Omu6phrVzddILNNnh9x9JnvOsu +vNVTPCJksxuMqaG+sa4OCJ37nE1ZH4Lpro2nR7sG4XNOXneRWTA0GV4qeXbx +ByRYvQsvZyaB7OubH1zW/IZPzifkLt07CSu8nSoWGQrin9DMXu7aHMhaZ3zb +0lYIg/da7FZrPw+vctc2ji0TQUn9VoOYgUJILYlsF5Bejgy+dOOEczGszH6b +fCpfHEW8rU2qCkoh0cZUv2NSAusWTnyQib4EAZuLnB7ESOHvzIPjjywvg9G3 +mVDuWxmcKJe1D/+3AkJMstX+HZbBTKdXXv9rqQC6SL1HfFIGS0xev/vwqAKk +bJw33xRaheoRVQsMX1bA8I17PwU1VuFI7fRM+1AFnIrJDDx7bBWelt8Zpide +CYMSStxmEVl8eomt43igEqL1rA7IbJLDouAr2259rwQTx4LvGw3k8F2d+/mD +PytBNOpLrO12OWy5wi8Vna2E803xZZnOciinl/XCagEPbpjd+rIwWQ73ftxW +XrKSB6P2rKAfr+Rw2q9OOFyXB45HJ1Ieh8nj/IC+4LFIHrBzDGSH4uXRgvI0 +WhHHI+c9wV+UKY/fhE40ayXxIHRW9alBiTyqdjx77ZLJg9OxjhI3H8vjYqPk +2BOFPHh8svVCqZwCVt8eTJdp5MEW+mzN8QYF9F5pbTf1iwdGXW2/R+4roEhG +/0abOR5Yzpu/zalDASX/aDryBPjgas19Be8VMDGHDrES5oNxGCMyaoEitvyn +MMqV5IOvwmTx1tWKOFSW+HtSkw/Nhy58bQpSxBmfzG49Zz6Yzm4WCw9TxAJm +ainDlQ9tmZ062lGKaJinWidwkA+vbgpHlSQr4qL/8MlNLz6MLAkUiz+viN8a +U4N/BfFBqspko/FdRTQyL17zJI0P3lNjUfdFGNh2OmEe7xoftvgdlPwgxkCt +nWcaLW/wQWiop1JQioHhWKb59RYfSnubXuozGTiR5Ssr18iH/vrTa67pMNC9 +O1XP9CEfdsRv7i5yYmCo2eLpjj4+yP/hH2lwY6BYiETf2jd8GA5iCvZ5MrD3 +uW5wyiAfkjyWaEgFMnDIv6l97Uc+NJr3xWYkMVBUYLeC2SgftMSiNcOuMnAw +Man8yl80zEudaM69zsBIxTLVB4I0tAke3nP9NgNVTk149C+gwWvCOn7sHgNz +0qyoWWEaSrqp3kM9DLSRMMmfL0aD5IX7CTaCTJy7XCRhxqBhevWyfnVbJp7z +kOZU6tEwmS8TvX4PE59IHNmho0/D+N9sarMTEw+G3nOoAxpGfmw+bOTJxFUW +c/YNBjQM3nad3BPBxLpYpvgpExoemteKJpUycTLFYEHoLhpa6/69ml7BRAv5 +Be+abWho1nxsc+oKsZj0vSV2NNSLD5wruMnEVPP3men2NFT3Lla+9oSJgsqi +Lgf203DOyxEGJ5ioCsbxZgdpyOnzGPw4w8QO+8Be20M0ZO8IiP86x0SDHjHY +70FDxvqkR1PCLJz6E7fO+TANMb+u7v5bnoW9/NIuHS4NkUfuzKxgsbBp+00+ +04eG8Nct+TIqLJRtlM5Z7EtDUFPvW7YWC4Ws68va/Eg8Uxf46hmzsI1Btykf +pcHj99/iBuYs/D64xWac+KCPzPVtO1k4JMn6cSeIBuddmrPWe1h46fWqKINj +NNisckjy5LJwRitwWD6MBqt019U+ASxc7Hze+jGx5dyRtsBjLPw469R9NJwG +k7cxK6JiWGj65+M/dRE06FXyCs+cYaFc9eEGuSgaehUrL/yTx0LrXd11F4lD +z1wuGL9Anhe+4kJF01AbXXbe+jIL6TS4KBdDg93Pkry/aBaG0Jb6p4nHvYvP +VVWzUC3dL1Y4lgYt+8Jc0Tss1LYuXvKJ+NmTgpy6Rha2Lli60zqOBl/D/DPe +91i4epke3iSmNc5lP2wj39dfqRQRT4PqguzMhAEWSm39Ld+XQMP90KwTGz6w +8H5pe+eaRBKf0cyMd0MsTJD9ohtCXNKbnmYwzsKW2PuKQkk0GFqlpY5NsbDe +b+yCGfFgS0pK4W8WfvZa9zyZWLE6MenPQgqd/B/a/yFuUE5I5C+h8P6TDN76 +ZBoc8+MS9i2jcNlzrHUnnhWLjV8iQeGbqJyQbOK8pOi4W9IURjmajTcQb/kT +GespT2Fe2HKVT8TdAcdjpFgUdvmUSoik0BD8OTy6VZnC4j0NdRrEkk5hUUFr +KOwelGJYEF/rDIlkr6PQTccbPYhtzI4d79xA4W/hQNko4h8NQRGxWyjsy/1y +LZs4a8PRcC2gcG9JhkgZ8brKgLABQwqvBUhTNcRPFf1DM00opJ+bzNQTc8/4 +hoAFhdqSPZktxCJLfY6NWFGoIpb66SExL/pIcL4dhUIsGYHHxGY/vYK276Uw +QcW4/wHxZ+/DR385UWie0BbRTJw06BFY4UbhbVbAwG1iZftDAQ6eFPp4jQtX +Ebc8cfcX4lIoYi4+VUjsbujmV+tP4Wetk7wM4vk3XXwPBlN4XWKtSghxscYB +H4lwCjU9qr2ciQ1KnLjNURS2KfYGGxG/kXY8EhBP4bHaIxZs4sgT+7yZKRQq +sDW+ChDLL9jr9SyDwpi3b3b3kfjfCXU4HHWKwqfDZhk1xDPudh7958n5Tfce +cCA+22tzKL2IwjXLMuaUiDdZ7TqoV0b+v9BJ7zGSD0F6O93OXaEQhtnXw4kl +qi1dTWsoTN1qks0hrlG2cJm6QeHr83uNfpH8GxMzc7a7S+G7ojC5I8Td3syn +h1spbHXk3pAhbmyZgcjHJD9eppxtJvmcGVqpUP6SQrOxHVoixMc6Y0/c6aXQ +su6v4UqS/84a++aevqEw5/S3b8bEaweXvp4eotBV9GyPH6kXKb33lqKjJP7K +rk1/Ec87U1fPnCD5wkmYSSf11m7KLTCfozA049fuPFKf3Kvt+/PF2fhPbPNw +MqlvuyXlT65KsfENL8B9NpIGffcoToscG6UlXmh7EYtIr5P7pszGvbEfeznH +SX5EZf2HemycqJr1qCX9ZWiH7d53bmzU/5HEnSX9quOy+qMpTzban7Xt0Ca+ +JbhQV8SHjWVL/yrwDKQhufa6jE4IG7NVbf3u+9OgoiDVk5jOxqUdN5X2kn55 +aKTHfvV1Nj6QvNz8gvRfS5P/3YfbbBSym1Z7QfqzzsXUTTaNbKwVHFv8zJ2G +hXZ6UhEP2Tjgtl+v3pWGsrr8rrZ+Noofn47jOtHwLs3Zzn+REkaJnOErk3nA +HVrDXLtUCV3OMKj5tjT83Db99esyJWw9EZHbR+bJYsGseE8ZJWQt9D+eaEXi +HdJU46yuhDd8vjvUbqchwl1JfMcuJbQc7GAnkfkkqT/cvvqCElpfWtozvpqG +wrwbeZ+LlfC9Lf3JX430r+m4Q5fKlTDiit6KERXSb2vk5pjVSihUKNvSy6bB +VW2Hhsw9JVxcPFSVrUBDlWR1mtAXJfzoORUbQeap6bdg0/c6yji/V01Pa5IP +suvkE4T0lFHxf/NG1MfJ/uHffHf1VmW8upzrovSdD9mTy/T8zZUxWGZvrsgI +2R9+X9aYc1LG5dKX9197zwf/pf+JSycrY0lo1zGvTj6cU8X+7b3KqNReuT/s +CtlXvD7I+L5Rxp0/1v1azucD8NN2n3qvjNKCYQmlFXx4t/bV01fflLFR8KVX +UykfNDb5Nx2cr4ICOv/k9uTxocm4pDxKXQW3VX3iByeSfcRVKKAmUgUHwu+m +B+0j5y0wqmuIU0GDYZsztxz48O1V1KJHySq447tY5y87PnzfMZ03cEoFM7J9 +xo9a8eGn7lCzaLkK3mo0HzEx5oPAiseSnk9V0EsufPww2d+km0/ckmOo4pDX +79Zysg8aUysFEu+q4rMsA7DP5cFnl23luq2qqPrU77zGaR6kFQVbjj5SxRed +7V0CWTx4Lt99zuGFKuaNFn0tSeWBs/TZ9Ws+qeL1A57X2o/zIER0lfszETWs +XwA1jW484E3J31/loIbiP1MPS2nyQOyJUkbVNzXMW1T3tr+uEmSTruzU0VmD +S+c++dVcqYDc1ZuXiR9Sx0KGtgqevQwPZbZu+HFSA/N428+6BJbDFtm7mZov +NVF804WncexLICp4MfBAzFrMrl+fHztQCvLRCnoOSuuwyTd7BR1aAsLsfdet +W9fhkleOqlori0GDI30leL8WntWe9yzscRH494s1mc1bjwd0Tne6HS6Ebz/S +bE1z1+Ny/rUoRcsC2KbZcs5UXRvtPiW5+H/Ig/ofur9+tmlj8IXJVn3Xs8Bd +o9XzzH0DtgYvVe9j5wBnxK3TQVgHdV5b3vbszoZ/KCkLkYs6qLzi+3/qHVmg +EpVy7O7Gjajd5/01fiIT1Nw3N7B7NmKgedX2TpUMcK/3iKvx24TdF91mTg6l +QENhp9uYxGb0lOmLFalKhPHyuZ+atZsxmtOSsvRJHLiyK4XPWWzBuFWzkYZ7 +YmBM7ZRO9egW3COyJOX7x0i4UfJrYCJJFxOMbe0PD4TBHiMW6srrYWbvT98P +tsdg1ZHEmxqNehj0dKD87qdAkFjsfdViNwc3vNRZ1S7uDyWGEaGjDhxMW58v +MrzIH7QiMgxP7ePgxhL/oL9n/cBytOpF9wEOeiiUFXm+84OElxPTrt4czIvr +lPa65gdTFyMNQqPJ+z60cwvt/aBH99TzskoOBu5qzG8q9gWPoyXnTWkO3jk5 +WVKR6wuT9DX34SoOXi+u7sxJ9wUxZvfPddc5eGy7cElcsC+YC8nJ1jVyMMXe +rv6SuS/c6Sxze/6Cg1U6xxNYQz5gJnpDPaibg/7px51rOn2ge9uDSaleDjKZ +ivpWDT4wfutLkuMbDrYI/Rqls31AvWgt//MQOT9K0NPgA3d6tgalfeVg7SeG +/JAaed+KXaA5ysHTjYZeHyR84GDi0WeBExys/5KcLDDMhfHGhHMrpzi4aWSZ +FbOLCzEzOa63ZjjYHO0/aHGXC8u0L6/Z/5uD/+oObIrnc6HgyK2JuTkO7tbO +3HE/lwv/B+CLTdo= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0Vev7APAuDVTcIkKmc84+pkJJGjieJ1wZogjRgAxFdIyRKfM8JClK +RIbEOTv5Kk2GG9FISRGXolkShZDye39/7LXXZ6299nr3s5+J4eJj7S4wb968 +OXL9/32y/0EzlVqir2sUrBDqs1m/s0AqZGt3DMTfPem7yHYloES7i1R3Fvzr +86iqw0YZgnZWdAl2X4QD72Xqr9pshOUjK7Omu6phrVzddILNNnh9x9JnvOsu +vNVTPCJksxuMqaG+sa4OCJ37nE1ZH4Lpro2nR7sG4XNOXneRWTA0GV4qeXbx +ByRYvQsvZyaB7OubH1zW/IZPzifkLt07CSu8nSoWGQrin9DMXu7aHMhaZ3zb +0lYIg/da7FZrPw+vctc2ji0TQUn9VoOYgUJILYlsF5Bejgy+dOOEczGszH6b +fCpfHEW8rU2qCkoh0cZUv2NSAusWTnyQib4EAZuLnB7ESOHvzIPjjywvg9G3 +mVDuWxmcKJe1D/+3AkJMstX+HZbBTKdXXv9rqQC6SL1HfFIGS0xev/vwqAKk +bJw33xRaheoRVQsMX1bA8I17PwU1VuFI7fRM+1AFnIrJDDx7bBWelt8Zpide +CYMSStxmEVl8eomt43igEqL1rA7IbJLDouAr2259rwQTx4LvGw3k8F2d+/mD +PytBNOpLrO12OWy5wi8Vna2E803xZZnOciinl/XCagEPbpjd+rIwWQ73ftxW +XrKSB6P2rKAfr+Rw2q9OOFyXB45HJ1Ieh8nj/IC+4LFIHrBzDGSH4uXRgvI0 +WhHHI+c9wV+UKY/fhE40ayXxIHRW9alBiTyqdjx77ZLJg9OxjhI3H8vjYqPk +2BOFPHh8svVCqZwCVt8eTJdp5MEW+mzN8QYF9F5pbTf1iwdGXW2/R+4roEhG +/0abOR5Yzpu/zalDASX/aDryBPjgas19Be8VMDGHDrES5oNxGCMyaoEitvyn +MMqV5IOvwmTx1tWKOFSW+HtSkw/Nhy58bQpSxBmfzG49Zz6Yzm4WCw9TxAJm +ainDlQ9tmZ062lGKaJinWidwkA+vbgpHlSQr4qL/8MlNLz6MLAkUiz+viN8a +U4N/BfFBqspko/FdRTQyL17zJI0P3lNjUfdFGNh2OmEe7xoftvgdlPwgxkCt +nWcaLW/wQWiop1JQioHhWKb59RYfSnubXuozGTiR5Ssr18iH/vrTa67pMNC9 +O1XP9CEfdsRv7i5yYmCo2eLpjj4+yP/hH2lwY6BYiETf2jd8GA5iCvZ5MrD3 +uW5wyiAfkjyWaEgFMnDIv6l97Uc+NJr3xWYkMVBUYLeC2SgftMSiNcOuMnAw +Man8yl80zEudaM69zsBIxTLVB4I0tAke3nP9NgNVTk149C+gwWvCOn7sHgNz +0qyoWWEaSrqp3kM9DLSRMMmfL0aD5IX7CTaCTJy7XCRhxqBhevWyfnVbJp7z +kOZU6tEwmS8TvX4PE59IHNmho0/D+N9sarMTEw+G3nOoAxpGfmw+bOTJxFUW +c/YNBjQM3nad3BPBxLpYpvgpExoemteKJpUycTLFYEHoLhpa6/69ml7BRAv5 +Be+abWho1nxsc+oKsZj0vSV2NNSLD5wruMnEVPP3men2NFT3Lla+9oSJgsqi +Lgf203DOyxEGJ5ioCsbxZgdpyOnzGPw4w8QO+8Be20M0ZO8IiP86x0SDHjHY +70FDxvqkR1PCLJz6E7fO+TANMb+u7v5bnoW9/NIuHS4NkUfuzKxgsbBp+00+ +04eG8Nct+TIqLJRtlM5Z7EtDUFPvW7YWC4Ws68va/Eg8Uxf46hmzsI1Btykf +pcHj99/iBuYs/D64xWac+KCPzPVtO1k4JMn6cSeIBuddmrPWe1h46fWqKINj +NNisckjy5LJwRitwWD6MBqt019U+ASxc7Hze+jGx5dyRtsBjLPw469R9NJwG +k7cxK6JiWGj65+M/dRE06FXyCs+cYaFc9eEGuSgaehUrL/yTx0LrXd11F4lD +z1wuGL9Anhe+4kJF01AbXXbe+jIL6TS4KBdDg93Pkry/aBaG0Jb6p4nHvYvP +VVWzUC3dL1Y4lgYt+8Jc0Tss1LYuXvKJ+NmTgpy6Rha2Lli60zqOBl/D/DPe +91i4epke3iSmNc5lP2wj39dfqRQRT4PqguzMhAEWSm39Ld+XQMP90KwTGz6w +8H5pe+eaRBKf0cyMd0MsTJD9ohtCXNKbnmYwzsKW2PuKQkk0GFqlpY5NsbDe +b+yCGfFgS0pK4W8WfvZa9zyZWLE6MenPQgqd/B/a/yFuUE5I5C+h8P6TDN76 +ZBoc8+MS9i2jcNlzrHUnnhWLjV8iQeGbqJyQbOK8pOi4W9IURjmajTcQb/kT +GespT2Fe2HKVT8TdAcdjpFgUdvmUSoik0BD8OTy6VZnC4j0NdRrEkk5hUUFr +KOwelGJYEF/rDIlkr6PQTccbPYhtzI4d79xA4W/hQNko4h8NQRGxWyjsy/1y +LZs4a8PRcC2gcG9JhkgZ8brKgLABQwqvBUhTNcRPFf1DM00opJ+bzNQTc8/4 +hoAFhdqSPZktxCJLfY6NWFGoIpb66SExL/pIcL4dhUIsGYHHxGY/vYK276Uw +QcW4/wHxZ+/DR385UWie0BbRTJw06BFY4UbhbVbAwG1iZftDAQ6eFPp4jQtX +Ebc8cfcX4lIoYi4+VUjsbujmV+tP4Wetk7wM4vk3XXwPBlN4XWKtSghxscYB +H4lwCjU9qr2ciQ1KnLjNURS2KfYGGxG/kXY8EhBP4bHaIxZs4sgT+7yZKRQq +sDW+ChDLL9jr9SyDwpi3b3b3kfjfCXU4HHWKwqfDZhk1xDPudh7958n5Tfce +cCA+22tzKL2IwjXLMuaUiDdZ7TqoV0b+v9BJ7zGSD0F6O93OXaEQhtnXw4kl +qi1dTWsoTN1qks0hrlG2cJm6QeHr83uNfpH8GxMzc7a7S+G7ojC5I8Td3syn +h1spbHXk3pAhbmyZgcjHJD9eppxtJvmcGVqpUP6SQrOxHVoixMc6Y0/c6aXQ +su6v4UqS/84a++aevqEw5/S3b8bEaweXvp4eotBV9GyPH6kXKb33lqKjJP7K +rk1/Ec87U1fPnCD5wkmYSSf11m7KLTCfozA049fuPFKf3Kvt+/PF2fhPbPNw +MqlvuyXlT65KsfENL8B9NpIGffcoToscG6UlXmh7EYtIr5P7pszGvbEfeznH +SX5EZf2HemycqJr1qCX9ZWiH7d53bmzU/5HEnSX9quOy+qMpTzban7Xt0Ca+ +JbhQV8SHjWVL/yrwDKQhufa6jE4IG7NVbf3u+9OgoiDVk5jOxqUdN5X2kn55 +aKTHfvV1Nj6QvNz8gvRfS5P/3YfbbBSym1Z7QfqzzsXUTTaNbKwVHFv8zJ2G +hXZ6UhEP2Tjgtl+v3pWGsrr8rrZ+Noofn47jOtHwLs3Zzn+REkaJnOErk3nA +HVrDXLtUCV3OMKj5tjT83Db99esyJWw9EZHbR+bJYsGseE8ZJWQt9D+eaEXi +HdJU46yuhDd8vjvUbqchwl1JfMcuJbQc7GAnkfkkqT/cvvqCElpfWtozvpqG +wrwbeZ+LlfC9Lf3JX430r+m4Q5fKlTDiit6KERXSb2vk5pjVSihUKNvSy6bB +VW2Hhsw9JVxcPFSVrUBDlWR1mtAXJfzoORUbQeap6bdg0/c6yji/V01Pa5IP +suvkE4T0lFHxf/NG1MfJ/uHffHf1VmW8upzrovSdD9mTy/T8zZUxWGZvrsgI +2R9+X9aYc1LG5dKX9197zwf/pf+JSycrY0lo1zGvTj6cU8X+7b3KqNReuT/s +CtlXvD7I+L5Rxp0/1v1azucD8NN2n3qvjNKCYQmlFXx4t/bV01fflLFR8KVX +UykfNDb5Nx2cr4ICOv/k9uTxocm4pDxKXQW3VX3iByeSfcRVKKAmUgUHwu+m +B+0j5y0wqmuIU0GDYZsztxz48O1V1KJHySq447tY5y87PnzfMZ03cEoFM7J9 +xo9a8eGn7lCzaLkK3mo0HzEx5oPAiseSnk9V0EsufPww2d+km0/ckmOo4pDX +79Zysg8aUysFEu+q4rMsA7DP5cFnl23luq2qqPrU77zGaR6kFQVbjj5SxRed +7V0CWTx4Lt99zuGFKuaNFn0tSeWBs/TZ9Ws+qeL1A57X2o/zIER0lfszETWs +XwA1jW484E3J31/loIbiP1MPS2nyQOyJUkbVNzXMW1T3tr+uEmSTruzU0VmD +S+c++dVcqYDc1ZuXiR9Sx0KGtgqevQwPZbZu+HFSA/N428+6BJbDFtm7mZov +NVF804WncexLICp4MfBAzFrMrl+fHztQCvLRCnoOSuuwyTd7BR1aAsLsfdet +W9fhkleOqlori0GDI30leL8WntWe9yzscRH494s1mc1bjwd0Tne6HS6Ebz/S +bE1z1+Ny/rUoRcsC2KbZcs5UXRvtPiW5+H/Ig/ofur9+tmlj8IXJVn3Xs8Bd +o9XzzH0DtgYvVe9j5wBnxK3TQVgHdV5b3vbszoZ/KCkLkYs6qLzi+3/qHVmg +EpVy7O7Gjajd5/01fiIT1Nw3N7B7NmKgedX2TpUMcK/3iKvx24TdF91mTg6l +QENhp9uYxGb0lOmLFalKhPHyuZ+atZsxmtOSsvRJHLiyK4XPWWzBuFWzkYZ7 +YmBM7ZRO9egW3COyJOX7x0i4UfJrYCJJFxOMbe0PD4TBHiMW6srrYWbvT98P +tsdg1ZHEmxqNehj0dKD87qdAkFjsfdViNwc3vNRZ1S7uDyWGEaGjDhxMW58v +MrzIH7QiMgxP7ePgxhL/oL9n/cBytOpF9wEOeiiUFXm+84OElxPTrt4czIvr +lPa65gdTFyMNQqPJ+z60cwvt/aBH99TzskoOBu5qzG8q9gWPoyXnTWkO3jk5 +WVKR6wuT9DX34SoOXi+u7sxJ9wUxZvfPddc5eGy7cElcsC+YC8nJ1jVyMMXe +rv6SuS/c6Sxze/6Cg1U6xxNYQz5gJnpDPaibg/7px51rOn2ge9uDSaleDjKZ +ivpWDT4wfutLkuMbDrYI/Rqls31AvWgt//MQOT9K0NPgA3d6tgalfeVg7SeG +/JAaed+KXaA5ysHTjYZeHyR84GDi0WeBExys/5KcLDDMhfHGhHMrpzi4aWSZ +FbOLCzEzOa63ZjjYHO0/aHGXC8u0L6/Z/5uD/+oObIrnc6HgyK2JuTkO7tbO +3HE/lwv/B+CLTdo= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05965268636379589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05965268636379589}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0Vev7APAuDVTcIkKmc84+pkJJGjieJ1wZogjRgAxFdIyRKfM8JClK +RIbEOTv5Kk2GG9FISRGXolkShZDye39/7LXXZ6299nr3s5+J4eJj7S4wb968 +OXL9/32y/0EzlVqir2sUrBDqs1m/s0AqZGt3DMTfPem7yHYloES7i1R3Fvzr +86iqw0YZgnZWdAl2X4QD72Xqr9pshOUjK7Omu6phrVzddILNNnh9x9JnvOsu +vNVTPCJksxuMqaG+sa4OCJ37nE1ZH4Lpro2nR7sG4XNOXneRWTA0GV4qeXbx +ByRYvQsvZyaB7OubH1zW/IZPzifkLt07CSu8nSoWGQrin9DMXu7aHMhaZ3zb +0lYIg/da7FZrPw+vctc2ji0TQUn9VoOYgUJILYlsF5Bejgy+dOOEczGszH6b +fCpfHEW8rU2qCkoh0cZUv2NSAusWTnyQib4EAZuLnB7ESOHvzIPjjywvg9G3 +mVDuWxmcKJe1D/+3AkJMstX+HZbBTKdXXv9rqQC6SL1HfFIGS0xev/vwqAKk +bJw33xRaheoRVQsMX1bA8I17PwU1VuFI7fRM+1AFnIrJDDx7bBWelt8Zpide +CYMSStxmEVl8eomt43igEqL1rA7IbJLDouAr2259rwQTx4LvGw3k8F2d+/mD +PytBNOpLrO12OWy5wi8Vna2E803xZZnOciinl/XCagEPbpjd+rIwWQ73ftxW +XrKSB6P2rKAfr+Rw2q9OOFyXB45HJ1Ieh8nj/IC+4LFIHrBzDGSH4uXRgvI0 +WhHHI+c9wV+UKY/fhE40ayXxIHRW9alBiTyqdjx77ZLJg9OxjhI3H8vjYqPk +2BOFPHh8svVCqZwCVt8eTJdp5MEW+mzN8QYF9F5pbTf1iwdGXW2/R+4roEhG +/0abOR5Yzpu/zalDASX/aDryBPjgas19Be8VMDGHDrES5oNxGCMyaoEitvyn +MMqV5IOvwmTx1tWKOFSW+HtSkw/Nhy58bQpSxBmfzG49Zz6Yzm4WCw9TxAJm +ainDlQ9tmZ062lGKaJinWidwkA+vbgpHlSQr4qL/8MlNLz6MLAkUiz+viN8a +U4N/BfFBqspko/FdRTQyL17zJI0P3lNjUfdFGNh2OmEe7xoftvgdlPwgxkCt +nWcaLW/wQWiop1JQioHhWKb59RYfSnubXuozGTiR5Ssr18iH/vrTa67pMNC9 +O1XP9CEfdsRv7i5yYmCo2eLpjj4+yP/hH2lwY6BYiETf2jd8GA5iCvZ5MrD3 +uW5wyiAfkjyWaEgFMnDIv6l97Uc+NJr3xWYkMVBUYLeC2SgftMSiNcOuMnAw +Man8yl80zEudaM69zsBIxTLVB4I0tAke3nP9NgNVTk149C+gwWvCOn7sHgNz +0qyoWWEaSrqp3kM9DLSRMMmfL0aD5IX7CTaCTJy7XCRhxqBhevWyfnVbJp7z +kOZU6tEwmS8TvX4PE59IHNmho0/D+N9sarMTEw+G3nOoAxpGfmw+bOTJxFUW +c/YNBjQM3nad3BPBxLpYpvgpExoemteKJpUycTLFYEHoLhpa6/69ml7BRAv5 +Be+abWho1nxsc+oKsZj0vSV2NNSLD5wruMnEVPP3men2NFT3Lla+9oSJgsqi +Lgf203DOyxEGJ5ioCsbxZgdpyOnzGPw4w8QO+8Be20M0ZO8IiP86x0SDHjHY +70FDxvqkR1PCLJz6E7fO+TANMb+u7v5bnoW9/NIuHS4NkUfuzKxgsbBp+00+ +04eG8Nct+TIqLJRtlM5Z7EtDUFPvW7YWC4Ws68va/Eg8Uxf46hmzsI1Btykf +pcHj99/iBuYs/D64xWac+KCPzPVtO1k4JMn6cSeIBuddmrPWe1h46fWqKINj +NNisckjy5LJwRitwWD6MBqt019U+ASxc7Hze+jGx5dyRtsBjLPw469R9NJwG +k7cxK6JiWGj65+M/dRE06FXyCs+cYaFc9eEGuSgaehUrL/yTx0LrXd11F4lD +z1wuGL9Anhe+4kJF01AbXXbe+jIL6TS4KBdDg93Pkry/aBaG0Jb6p4nHvYvP +VVWzUC3dL1Y4lgYt+8Jc0Tss1LYuXvKJ+NmTgpy6Rha2Lli60zqOBl/D/DPe +91i4epke3iSmNc5lP2wj39dfqRQRT4PqguzMhAEWSm39Ld+XQMP90KwTGz6w +8H5pe+eaRBKf0cyMd0MsTJD9ohtCXNKbnmYwzsKW2PuKQkk0GFqlpY5NsbDe +b+yCGfFgS0pK4W8WfvZa9zyZWLE6MenPQgqd/B/a/yFuUE5I5C+h8P6TDN76 +ZBoc8+MS9i2jcNlzrHUnnhWLjV8iQeGbqJyQbOK8pOi4W9IURjmajTcQb/kT +GespT2Fe2HKVT8TdAcdjpFgUdvmUSoik0BD8OTy6VZnC4j0NdRrEkk5hUUFr +KOwelGJYEF/rDIlkr6PQTccbPYhtzI4d79xA4W/hQNko4h8NQRGxWyjsy/1y +LZs4a8PRcC2gcG9JhkgZ8brKgLABQwqvBUhTNcRPFf1DM00opJ+bzNQTc8/4 +hoAFhdqSPZktxCJLfY6NWFGoIpb66SExL/pIcL4dhUIsGYHHxGY/vYK276Uw +QcW4/wHxZ+/DR385UWie0BbRTJw06BFY4UbhbVbAwG1iZftDAQ6eFPp4jQtX +Ebc8cfcX4lIoYi4+VUjsbujmV+tP4Wetk7wM4vk3XXwPBlN4XWKtSghxscYB +H4lwCjU9qr2ciQ1KnLjNURS2KfYGGxG/kXY8EhBP4bHaIxZs4sgT+7yZKRQq +sDW+ChDLL9jr9SyDwpi3b3b3kfjfCXU4HHWKwqfDZhk1xDPudh7958n5Tfce +cCA+22tzKL2IwjXLMuaUiDdZ7TqoV0b+v9BJ7zGSD0F6O93OXaEQhtnXw4kl +qi1dTWsoTN1qks0hrlG2cJm6QeHr83uNfpH8GxMzc7a7S+G7ojC5I8Td3syn +h1spbHXk3pAhbmyZgcjHJD9eppxtJvmcGVqpUP6SQrOxHVoixMc6Y0/c6aXQ +su6v4UqS/84a++aevqEw5/S3b8bEaweXvp4eotBV9GyPH6kXKb33lqKjJP7K +rk1/Ec87U1fPnCD5wkmYSSf11m7KLTCfozA049fuPFKf3Kvt+/PF2fhPbPNw +MqlvuyXlT65KsfENL8B9NpIGffcoToscG6UlXmh7EYtIr5P7pszGvbEfeznH +SX5EZf2HemycqJr1qCX9ZWiH7d53bmzU/5HEnSX9quOy+qMpTzban7Xt0Ca+ +JbhQV8SHjWVL/yrwDKQhufa6jE4IG7NVbf3u+9OgoiDVk5jOxqUdN5X2kn55 +aKTHfvV1Nj6QvNz8gvRfS5P/3YfbbBSym1Z7QfqzzsXUTTaNbKwVHFv8zJ2G +hXZ6UhEP2Tjgtl+v3pWGsrr8rrZ+Noofn47jOtHwLs3Zzn+REkaJnOErk3nA +HVrDXLtUCV3OMKj5tjT83Db99esyJWw9EZHbR+bJYsGseE8ZJWQt9D+eaEXi +HdJU46yuhDd8vjvUbqchwl1JfMcuJbQc7GAnkfkkqT/cvvqCElpfWtozvpqG +wrwbeZ+LlfC9Lf3JX430r+m4Q5fKlTDiit6KERXSb2vk5pjVSihUKNvSy6bB +VW2Hhsw9JVxcPFSVrUBDlWR1mtAXJfzoORUbQeap6bdg0/c6yji/V01Pa5IP +suvkE4T0lFHxf/NG1MfJ/uHffHf1VmW8upzrovSdD9mTy/T8zZUxWGZvrsgI +2R9+X9aYc1LG5dKX9197zwf/pf+JSycrY0lo1zGvTj6cU8X+7b3KqNReuT/s +CtlXvD7I+L5Rxp0/1v1azucD8NN2n3qvjNKCYQmlFXx4t/bV01fflLFR8KVX +UykfNDb5Nx2cr4ICOv/k9uTxocm4pDxKXQW3VX3iByeSfcRVKKAmUgUHwu+m +B+0j5y0wqmuIU0GDYZsztxz48O1V1KJHySq447tY5y87PnzfMZ03cEoFM7J9 +xo9a8eGn7lCzaLkK3mo0HzEx5oPAiseSnk9V0EsufPww2d+km0/ckmOo4pDX +79Zysg8aUysFEu+q4rMsA7DP5cFnl23luq2qqPrU77zGaR6kFQVbjj5SxRed +7V0CWTx4Lt99zuGFKuaNFn0tSeWBs/TZ9Ws+qeL1A57X2o/zIER0lfszETWs +XwA1jW484E3J31/loIbiP1MPS2nyQOyJUkbVNzXMW1T3tr+uEmSTruzU0VmD +S+c++dVcqYDc1ZuXiR9Sx0KGtgqevQwPZbZu+HFSA/N428+6BJbDFtm7mZov +NVF804WncexLICp4MfBAzFrMrl+fHztQCvLRCnoOSuuwyTd7BR1aAsLsfdet +W9fhkleOqlori0GDI30leL8WntWe9yzscRH494s1mc1bjwd0Tne6HS6Ebz/S +bE1z1+Ny/rUoRcsC2KbZcs5UXRvtPiW5+H/Ig/ofur9+tmlj8IXJVn3Xs8Bd +o9XzzH0DtgYvVe9j5wBnxK3TQVgHdV5b3vbszoZ/KCkLkYs6qLzi+3/qHVmg +EpVy7O7Gjajd5/01fiIT1Nw3N7B7NmKgedX2TpUMcK/3iKvx24TdF91mTg6l +QENhp9uYxGb0lOmLFalKhPHyuZ+atZsxmtOSsvRJHLiyK4XPWWzBuFWzkYZ7 +YmBM7ZRO9egW3COyJOX7x0i4UfJrYCJJFxOMbe0PD4TBHiMW6srrYWbvT98P +tsdg1ZHEmxqNehj0dKD87qdAkFjsfdViNwc3vNRZ1S7uDyWGEaGjDhxMW58v +MrzIH7QiMgxP7ePgxhL/oL9n/cBytOpF9wEOeiiUFXm+84OElxPTrt4czIvr +lPa65gdTFyMNQqPJ+z60cwvt/aBH99TzskoOBu5qzG8q9gWPoyXnTWkO3jk5 +WVKR6wuT9DX34SoOXi+u7sxJ9wUxZvfPddc5eGy7cElcsC+YC8nJ1jVyMMXe +rv6SuS/c6Sxze/6Cg1U6xxNYQz5gJnpDPaibg/7px51rOn2ge9uDSaleDjKZ +ivpWDT4wfutLkuMbDrYI/Rqls31AvWgt//MQOT9K0NPgA3d6tgalfeVg7SeG +/JAaed+KXaA5ysHTjYZeHyR84GDi0WeBExys/5KcLDDMhfHGhHMrpzi4aWSZ +FbOLCzEzOa63ZjjYHO0/aHGXC8u0L6/Z/5uD/+oObIrnc6HgyK2JuTkO7tbO +3HE/lwv/B+CLTdo= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05965268636379589}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.05965268636379589}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913236646248627`*^9, 3.994257769768309*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"e2452d43-872b-4f78-bc1e-cb6f2dcd005f"] }, Open ]], Cell[CellGroupData[{ @@ -8104,7 +8844,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -8122,8 +8864,8 @@ Cell[BoxData[ SuperscriptBox[ RowBox[{"(", FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -8144,65 +8886,71 @@ Cell[BoxData[ FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", - CellLabel->"In[90]:=",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], + CellLabel-> + "In[109]:=",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.2264340105931995`*^-182\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, 90, - 21, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323664732767*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.687874861882272`*^-172\\\", \ +RowBox[{\\\"182746270923358292188640\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"91\\\", \\\"\[RightSkeleton]\\\"}], \\\"4000000000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 109, 17, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323664732767*^9, 3.994257769844606*^9}, CellLabel-> "During evaluation of \ -In[90]:=",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], +In[109]:=",ExpressionUUID->"770d94e8-163f-446f-96a5-099f57dfd936"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 90, 22, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99132366476486*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.148755727276152`*^-175\\\", \ +RowBox[{\\\"532888126012512780022077\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"94\\\", \\\"\[RightSkeleton]\\\"}], \\\"4000000000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 109, 18, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323664732767*^9, 3.99425776985308*^9}, CellLabel-> "During evaluation of \ -In[90]:=",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], +In[109]:=",ExpressionUUID->"3fb2aad4-6805-4619-a0ef-b98767528554"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 90, 23, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236647877655`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2519815200956947`*^-178\\\", \ +RowBox[{\\\"161198658118785115956678\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"98\\\", \\\"\[RightSkeleton]\\\"}], \\\"0000000000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 109, 19, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323664732767*^9, 3.994257769865117*^9}, CellLabel-> "During evaluation of \ -In[90]:=",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], +In[109]:=",ExpressionUUID->"41f3930c-3a84-46a3-92be-1ed0d14b9e86"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 90, 24, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236648078594`*^9}, +during this calculation.\"", 2, 109, 20, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323664732767*^9, 3.994257769874805*^9}, CellLabel-> "During evaluation of \ -In[90]:=",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], +In[109]:=",ExpressionUUID->"8d206e4f-2031-4269-b619-aba18e542254"], -Cell[BoxData["11.275343508420768`"], "Output", - CellChangeTimes->{3.9913236764669056`*^9}, - CellLabel->"Out[90]=",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +Cell[BoxData["12.742723459303619`"], "Output", + CellChangeTimes->{3.9913236764669056`*^9, 3.994257859693244*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"497880c6-45ac-4661-991d-7778e7af772f"] }, Open ]], Cell[CellGroupData[{ @@ -8269,67 +9017,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9917996753598194`*^9, - 3.991799698091812*^9}},ExpressionUUID->"18d0289f-01fd-a740-8fac-\ -540622282b2c"], + CellChangeTimes->{{3.9917996753598194`*^9, 3.991799698091812*^9}}, + CellLabel-> + "In[110]:=",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 91, 25, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236765399036`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.808116517235726`*^-218\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 110, 21, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913236765399036`*^9, 3.9942578597604113`*^9}, CellLabel-> "During evaluation of \ -In[91]:=",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], +In[110]:=",ExpressionUUID->"90290608-7d0d-497c-ac37-e307377ee07d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 91, 26, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236765679016`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.77428899219344`*^-223\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 110, 22, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913236765399036`*^9, 3.994257859770648*^9}, CellLabel-> "During evaluation of \ -In[91]:=",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], +In[110]:=",ExpressionUUID->"23b0b7b0-6d7a-46c4-8854-7fed93829a58"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 91, 27, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323676587904*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.547473249730464`*^-229\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 110, 23, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913236765399036`*^9, 3.994257859781067*^9}, CellLabel-> "During evaluation of \ -In[91]:=",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], +In[110]:=",ExpressionUUID->"6892eabd-f9f7-446e-a44d-7090c3f3f630"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 91, 28, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236766039066`*^9}, +during this calculation.\"", 2, 110, 24, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913236765399036`*^9, 3.994257859791716*^9}, CellLabel-> "During evaluation of \ -In[91]:=",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], +In[110]:=",ExpressionUUID->"28292a8f-e9d6-4320-84e5-3ce08aeb1068"], -Cell[BoxData["0.5376063675902706`"], "Output", - CellChangeTimes->{3.9913236883162384`*^9}, - CellLabel->"Out[91]=",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +Cell[BoxData["0.4679137194601439`"], "Output", + CellChangeTimes->{3.9913236883162384`*^9, 3.9942578712529917`*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"bfbed49d-3508-4f08-bfd1-79249744a52d"] }, Open ]], Cell[CellGroupData[{ @@ -8350,8 +9104,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8396,67 +9149,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9917997261183853`*^9, - 3.991799730012718*^9}},ExpressionUUID->"33f25e29-8e2f-5249-9603-\ -4bb381db84df"], + CellChangeTimes->{{3.9917997261183853`*^9, 3.991799730012718*^9}}, + CellLabel-> + "In[111]:=",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 92, 29, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99132368839011*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.808116517235726`*^-218\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 111, 25, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99132368839011*^9, 3.99425787130125*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], +In[111]:=",ExpressionUUID->"02214fde-2398-40bc-a12d-f94f7555922b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 92, 30, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236884141064`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.77428899219344`*^-223\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 111, 26, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99132368839011*^9, 3.994257871311433*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], +In[111]:=",ExpressionUUID->"c4661cc8-62bf-449e-b3f9-19b22b6930e7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 92, 31, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323688443001*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.547473249730464`*^-229\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 111, 27, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99132368839011*^9, 3.994257871322753*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], +In[111]:=",ExpressionUUID->"30821b70-cdae-488e-88be-6f5855a52693"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 92, 32, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236884570007`*^9}, +during this calculation.\"", 2, 111, 28, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99132368839011*^9, 3.994257871337345*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], +In[111]:=",ExpressionUUID->"cd37c608-5543-4350-b97f-9f62d26ba16b"], -Cell[BoxData["10.498798062085507`"], "Output", - CellChangeTimes->{3.9913236988049507`*^9}, - CellLabel->"Out[92]=",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +Cell[BoxData["42.11744192534452`"], "Output", + CellChangeTimes->{3.9913236988049507`*^9, 3.994257882119845*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"4a7f07ae-c5c1-4820-a024-6966449e23ae"] }, Open ]], Cell[CellGroupData[{ @@ -8477,8 +9236,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8523,67 +9281,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9917997336698074`*^9, - 3.9917997367747993`*^9}},ExpressionUUID->"88e14da9-8532-e842-b722-\ -1b0781de8eeb"], + CellChangeTimes->{{3.9917997336698074`*^9, 3.9917997367747993`*^9}}, + CellLabel-> + "In[112]:=",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 93, 33, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323698915848*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.808116517235726`*^-218\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 112, 29, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323698915848*^9, 3.994257882185649*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], +In[112]:=",ExpressionUUID->"46afd079-f40c-49bb-86f0-74cfb39deea4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 93, 34, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323698943981*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.77428899219344`*^-223\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 112, 30, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323698915848*^9, 3.994257882197106*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], +In[112]:=",ExpressionUUID->"a2cfcc34-a374-4edd-9f5a-cbd1e1dface7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 93, 35, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323698971981*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.547473249730464`*^-229\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 112, 31, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323698915848*^9, 3.994257882210058*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], +In[112]:=",ExpressionUUID->"f75807e5-1aa2-4e83-8cf8-ae71e03308ed"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 93, 36, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323698986994*^9}, +during this calculation.\"", 2, 112, 32, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323698915848*^9, 3.994257882219254*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], +In[112]:=",ExpressionUUID->"cde0329a-b44f-419f-a28e-c539ba2d54c6"], -Cell[BoxData["18.521732102530788`"], "Output", - CellChangeTimes->{3.991323706795576*^9}, - CellLabel->"Out[93]=",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +Cell[BoxData["8.464029802893696`"], "Output", + CellChangeTimes->{3.991323706795576*^9, 3.994257891233199*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"5a2e82f5-1630-4210-9472-3c8ba15c3298"] }, Open ]], Cell[CellGroupData[{ @@ -8592,21 +9356,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991799742384985*^9, - 3.9917997459840527`*^9}},ExpressionUUID->"fcd1131c-ba92-0b46-817b-\ -e5f89f4ec38f"], + CellChangeTimes->{{3.991799742384985*^9, 3.9917997459840527`*^9}}, + CellLabel-> + "In[113]:=",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], -Cell[BoxData["0.038552612544494616`"], "Output", - CellChangeTimes->{3.991323706858589*^9}, - CellLabel->"Out[94]=",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +Cell[BoxData["0.02478256159804986`"], "Output", + CellChangeTimes->{3.991323706858589*^9, 3.994257891276802*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"23bf356f-4279-45e6-84a1-bc380d5ba5a5"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9917997487290344`*^9, 3.991799750684988*^9}, - 3.9919243164025135`*^9},ExpressionUUID->"c771f2bd-f081-e54a-b4e5-\ -bf0dbc996ac3"], + 3.9919243164025135`*^9}, + CellLabel-> + "In[114]:=",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ @@ -8628,11 +9394,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", - CellLabel->"In[96]:=",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], + CellLabel-> + "In[115]:=",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], -Cell[BoxData["19.580504093356314`"], "Output", - CellChangeTimes->{3.991323706886154*^9}, - CellLabel->"Out[96]=",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +Cell[BoxData["15.308434398438735`"], "Output", + CellChangeTimes->{3.991323706886154*^9, 3.994257891300907*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"c794763c-4a3d-4d9c-add5-ea1f0bf84eba"] }, Open ]], Cell[CellGroupData[{ @@ -8641,11 +9409,13 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", - CellLabel->"In[98]:=",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], + CellLabel-> + "In[116]:=",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], -Cell[BoxData["0.8477067309358528`"], "Output", - CellChangeTimes->{3.9913237069236546`*^9}, - CellLabel->"Out[98]=",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +Cell[BoxData["1.5571237978675914`"], "Output", + CellChangeTimes->{3.9913237069236546`*^9, 3.9942578913178253`*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"7ff8d51f-16d0-4a41-b48b-9a1ecfb064dd"] }, Open ]], Cell[CellGroupData[{ @@ -8655,12 +9425,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[101]:=",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], + "In[117]:=",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], -Cell[BoxData["16.598525115055164`"], "Output", - CellChangeTimes->{3.9913237069753113`*^9}, +Cell[BoxData["23.837127509903798`"], "Output", + CellChangeTimes->{3.9913237069753113`*^9, 3.9942578913328857`*^9}, CellLabel-> - "Out[101]=",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] + "Out[117]=",ExpressionUUID->"30a1ebc3-8d0e-4112-bc68-278fd781cdb6"] }, Open ]], Cell[CellGroupData[{ @@ -8850,12 +9620,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[102]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], + "In[118]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], -Cell[BoxData["0.02467166981689615`"], "Output", - CellChangeTimes->{3.991323707000412*^9}, +Cell[BoxData["0.005444508056302404`"], "Output", + CellChangeTimes->{3.991323707000412*^9, 3.9942578913545933`*^9}, CellLabel-> - "Out[102]=",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] + "Out[118]=",ExpressionUUID->"9ab605cd-1c7d-4b8d-8d68-ac254e35ec70"] }, Open ]], Cell[CellGroupData[{ @@ -8869,12 +9639,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[103]:=",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], + "In[119]:=",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], -Cell[BoxData["5.642163519289108`"], "Output", - CellChangeTimes->{3.991323707203314*^9}, +Cell[BoxData["12.010625298978937`"], "Output", + CellChangeTimes->{3.991323707203314*^9, 3.99425789156441*^9}, CellLabel-> - "Out[103]=",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] + "Out[119]=",ExpressionUUID->"36c1bf7a-e02a-415a-8faa-7fce0f5466ed"] }, Open ]], Cell[CellGroupData[{ @@ -9066,12 +9836,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[104]:=",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], + "In[120]:=",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], -Cell[BoxData["0.012834083028601704`"], "Output", - CellChangeTimes->{3.9913237072224197`*^9}, +Cell[BoxData["0.03723921771807462`"], "Output", + CellChangeTimes->{3.9913237072224197`*^9, 3.9942578915816803`*^9}, CellLabel-> - "Out[104]=",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] + "Out[120]=",ExpressionUUID->"3977afa4-6540-4c3d-908f-2462ec8765c7"] }, Open ]], Cell[CellGroupData[{ @@ -9085,12 +9855,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[105]:=",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], + "In[121]:=",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], -Cell[BoxData["7.82280524717004`"], "Output", - CellChangeTimes->{3.991323707432623*^9}, +Cell[BoxData["4.592452426092332`"], "Output", + CellChangeTimes->{3.991323707432623*^9, 3.9942578917914257`*^9}, CellLabel-> - "Out[105]=",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] + "Out[121]=",ExpressionUUID->"6e5de464-f8df-4f33-b372-20452ce9ec9e"] }, Open ]], Cell[CellGroupData[{ @@ -9183,12 +9953,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[106]:=",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], + "In[122]:=",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.9913237074497375`*^9}, +Cell[BoxData["0.12078091092707918`"], "Output", + CellChangeTimes->{3.9913237074497375`*^9, 3.9942578918071833`*^9}, CellLabel-> - "Out[106]=",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] + "Out[122]=",ExpressionUUID->"606d9727-3ff8-4862-a2e2-8deac493254f"] }, Open ]], Cell[CellGroupData[{ @@ -9278,12 +10048,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[107]:=",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], + "In[123]:=",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.991323707467621*^9}, +Cell[BoxData["0.8792190890729209`"], "Output", + CellChangeTimes->{3.991323707467621*^9, 3.9942578918243103`*^9}, CellLabel-> - "Out[107]=",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] + "Out[123]=",ExpressionUUID->"38666bac-e16e-418a-a7b5-689c67a69eb1"] }, Open ]], Cell[CellGroupData[{ @@ -9406,12 +10176,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[108]:=",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], + "In[124]:=",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.991323707488617*^9}, +Cell[BoxData["0.10619288248270414`"], "Output", + CellChangeTimes->{3.991323707488617*^9, 3.994257891844359*^9}, CellLabel-> - "Out[108]=",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] + "Out[124]=",ExpressionUUID->"af3d2823-5cda-435c-9977-dc64978b07bd"] }, Open ]], Cell[CellGroupData[{ @@ -9426,30 +10196,33 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -9473,68 +10246,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991799766323864*^9},ExpressionUUID->"ee2d2671-1677-5943-bf7a-\ -6ffa36275fe8"], + CellChangeTimes->{3.991799766323864*^9}, + CellLabel-> + "In[125]:=",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 109, 37, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237075117207`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.473859894199191`*^-233\\\", \ +RowBox[{\\\"8716240562875928371043383\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5941477990400000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 125, 33, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237075117207`*^9, 3.994257891868258*^9}, CellLabel-> "During evaluation of \ -In[109]:=",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], +In[125]:=",ExpressionUUID->"9ff2fa95-e0b9-4b3b-a08d-1cb2e18ece27"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 109, - 38, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323707545618*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.055654260784709`*^-240\\\", \ +RowBox[{\\\"1067739468952301225452814\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"31\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8310538240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 125, 34, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237075117207`*^9, 3.994257891878167*^9}, CellLabel-> "During evaluation of \ -In[109]:=",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], +In[125]:=",ExpressionUUID->"ec6af7b4-a319-4039-b212-dfdf0bfec96b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 109, - 39, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237075757256`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.357706062720382`*^-247\\\", \ +RowBox[{\\\"1383790351762182388186847\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0457559040000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 125, 35, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237075117207`*^9, 3.9942578918881397`*^9}, CellLabel-> "During evaluation of \ -In[109]:=",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], +In[125]:=",ExpressionUUID->"2dc18fa4-3312-45a1-8715-a56abc44ab55"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 109, 40, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237075926247`*^9}, +during this calculation.\"", 2, 125, 36, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237075117207`*^9, 3.994257891897934*^9}, CellLabel-> "During evaluation of \ -In[109]:=",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], +In[125]:=",ExpressionUUID->"e6a6bba1-0d26-4e5d-ad59-41f6e9376ac9"], -Cell[BoxData["5.642163519289105`"], "Output", - CellChangeTimes->{3.9913237161181736`*^9}, +Cell[BoxData["12.010625298978926`"], "Output", + CellChangeTimes->{3.9913237161181736`*^9, 3.99425789915907*^9}, CellLabel-> - "Out[109]=",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] + "Out[125]=",ExpressionUUID->"01a82ef4-cadd-43f2-8329-4d7d926eebba"] }, Open ]], Cell[CellGroupData[{ @@ -9549,30 +10329,33 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -9596,68 +10379,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9917997699328365`*^9},ExpressionUUID->"b0b1035a-0fdf-b146-a71f-\ -1ab9142a9a90"], + CellChangeTimes->{3.9917997699328365`*^9}, + CellLabel-> + "In[126]:=",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 110, 41, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237161871567`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.473859894199191`*^-233\\\", \ +RowBox[{\\\"8716240562875928371043383\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5941477990400000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 126, 37, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237161871567`*^9, 3.994257899210421*^9}, CellLabel-> "During evaluation of \ -In[110]:=",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], +In[126]:=",ExpressionUUID->"3e95e488-f02b-4239-91fe-fad9bafd871d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 110, - 42, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237162070637`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.055654260784709`*^-240\\\", \ +RowBox[{\\\"1067739468952301225452814\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"31\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8310538240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 126, 38, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237161871567`*^9, 3.994257899221305*^9}, CellLabel-> "During evaluation of \ -In[110]:=",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], +In[126]:=",ExpressionUUID->"0e6e4197-d476-4612-8198-13fe9d3e0a2a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 110, - 43, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323716227171*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.357706062720382`*^-247\\\", \ +RowBox[{\\\"1383790351762182388186847\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0457559040000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 126, 39, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237161871567`*^9, 3.9942578992300587`*^9}, CellLabel-> "During evaluation of \ -In[110]:=",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], +In[126]:=",ExpressionUUID->"9521597a-e1e4-4ef5-a1a2-9d489b407cda"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 110, 44, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237162481613`*^9}, +during this calculation.\"", 2, 126, 40, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237161871567`*^9, 3.994257899240159*^9}, CellLabel-> "During evaluation of \ -In[110]:=",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], +In[126]:=",ExpressionUUID->"9cad4bc1-5bfb-4ed7-b048-82d04ca69f6a"], -Cell[BoxData["7.822805247170038`"], "Output", - CellChangeTimes->{3.991323724852854*^9}, +Cell[BoxData["4.59245242609233`"], "Output", + CellChangeTimes->{3.991323724852854*^9, 3.994257906490869*^9}, CellLabel-> - "Out[110]=",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] + "Out[126]=",ExpressionUUID->"1841d4fc-8add-46e9-a910-2611e90d237a"] }, Open ]], Cell[CellGroupData[{ @@ -9715,95 +10505,93 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9917997843341885`*^9},ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-\ -ff25938e6592"], + CellChangeTimes->{3.9917997843341885`*^9}, + CellLabel-> + "In[127]:=",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Hk0VesbB3ARGYvckKkIhURm5XqeMmVMInOGc842JOqQUNFEk0TDTfcq -kgoZkiTykyKJUxTNqW2sZJ6rc/J7/bHXXp/1rP3d3/d913pVgiJdWfx8fHzf -yDP33v1izcqK1hcWf2Lzgtx0eWAxlGsUZFUI8cfcjm4lprOMz6tZVUOjRsh3 -F2IX5nMhcYMncG5DT7ojcWlsYp2gFQdk/JsO2BCfaJCrTSx4CS9yFIssiCtb -d1/h6r+GJk7HMiPi/g9N++MevIN4M6k3msTyvSt8piw/QX1nVYsiscPwfrMo -zhfo9v4ivpC4htsvFlvQCclvjpzmreHBm0Oy++5FdMNt1eItP4iHhKz6J/R7 -oSmf6fWWWChll5fBdB+cZxfnPiJWlrrcuPvBN5Bcfs6ggNhZYerGkOUA5D52 -VowhprJVZXSEh0BTzDTGizhRfXPSDs4wqHyhpdcTv5NtXxtdMAquyZnyP3V4 -wPQOCz2XMgYOqQ1HXhOPZPJdvRMxDlqnPuvdJhZW1ZEc1Z+E84ckPAKIzzPr -bCWXTIFoGrYaES+/6ZWoOz0F8v+7dFqE2HR18tDOBzNwdjOv/dZqHoQYf+H0 -W3JBOYKR8VGbBxOxe+aLavDgis1lw2vEBx+ImWsK/wGthpNLQokz0PRWMGcW -gkXarg9rkX7XG63YBfPQszae/5smDwoaztGHFPgx83ZJw1Xika/b96en8OOF -PMdWL+L9WpNltyMEMDpA7W79KtK3RGXFsL4grv3X8FHSSh58aB2o+XNNEH8b -nSlbS7x8rMJ74RIhZA+uHvhIehUaOp/VmRZCl6ICPW3i+sr4eeEPhDFIYrlo -uRoPJuvavnyzFMdUzUjFGBUeLHYUl9xXI46cYQMx3nIe6LVboYSZBCrP8548 -RBzWU569ds1C/Bp+oTppGQ928XP0/haXxKsGxxT3KPGgV7V4NGlKCkeHx13H -5cj+UE0iLQaL8USku5Q3Mf+tPhW53YuRW5j7okaW9DVY5lrwYzFGjInZHpbh -gbdl2p0XtDQOPV9pPCrNgxYGO0q2eQn6aZ2wi1zIg883U08FCMvg3/0MmXsS -PBj4UXAt31oGc14f6/slzgPR6O629bUyGDLZkZ4gxgOro26GAeWy+Etkq1KE -MA+qco0n87KWYkkH23loHg9ye3/FrItWwrxz8/ftGefCJvdjn6OKlLCj89Lr -02NcGKiXtinqU8KxDfYJuaNcMMxdvWS5lzIWq9o84AxzoT5oe5mgxTJcU9Ey -IDzAhbFheu+3I8txrZ1enF4PF6R3Wt0tc1LFxXoVhRZtXOjLFQ1xCVPFXH+l -PSqvuHD/U6vCYLIqshbN/sP/kgu+jn5HNGpV0bfoybeHL7iQqx3jekl/BSqM -sFs0msj/+2+OJMiq4eujOQI3arngFiymY9+pjnZyvpPhhVyAGHd9D546tord -9Fa9xQWtpCwT5lIN/GzUZvwmnwt81ww2JmzRQKxNdje7yYWizz4edx5p4H9y -caaDV7kgtK3wkHzOShR7Oj0ldpH0s3J60x+kiR49owdXHeSCguqZxFM9qzG9 -0v3wjBMXqk9OaP7k18ErHoPa2o6k/7hXO6Wig8VOFtq+9ly4Uq+muXG7Dk5s -rNeptOGCanDVq5m3OiiYcdTdH0i/wl51qnkNLin6t8lXjwtKCsrUci89FFrx -zzoVKS6svh4t/hv0MVTOUvvn899wla3mUs4xQquEvWELN/yG1hgwOXrdDN0U -oVnh/C9Q2f7a2S/8b6ytLdL9+/1PYM3eK1aKQzTs7i6sU/4Jsj/uL5AN2ojG -0lsuZdjPQLSB+aezWlb4y661VDphGoIGuY3S/dboXDHJlLwzBUUboxZktdii -9liN+ta2ScidCHtUeN4OXUoDLjvPn4SZDXLP6xMd0N/aquedxgR08AmMdgY6 -oUZep4ua6zhEKEamHVqxGa0/lSWuSx+D4tDG2gtJLlhT1jkl+HQU4seXTmuH -bsEDi/4TzJUahUl7m21P/V2xPVCJVeE+AmY+6Rt6t2xF3/yXD/Mdh+HV0sth -9QZuCD2RFUoyQyB/40h13ip3XHM6xa3u7QDcp7UcnSW2YUBd5qLihz9AuX0k -OGZwG+ZUJR8cr+4HgwvphddoD7RI8q/JKf8Ol+ePrzlb54k3P/zSqWv5Bvc2 -6H5IqvTC2FTPC65fv0KGyUkpboE3bhw6HseQ/gotH68nG6T4IPues8h1nz4o -d8pU23XQF+vTQncM5vTC6M6tfBFMP+xxVxROFeiFSRvNkCHL7Sj3ZGSBQFQP -5A2+n4ky9kf87Fd5q6sbPK9eZ/iJB+Cd6ANqhsHdUHbHwV/gWAAmqsVXCwx2 -gZnCq58nfgagVrhgSGBSF6yggz+8DA3EGQlRFy3NLugR27E5szsQIz6vFjBp -6YTWVGeGrXsQzr+abuJ9tBPOx2aJ7WkNwjvPnug+Nu+E6prZnww7BhpcmFr9 -dJaGtY8MTVc6MNAdgssm/tBwoy40pt+RgZL//ilXJU5vbBvb5cLAkZAQ3YNc -GqhXN38c8GBg4I7/RvEnDVJ9mzsussj8v7U334+RuUR2bfMhBlqw/GKC+2hY -5IvHDKoYyF9qWjn6goblfz1tUaxmoFW7S9UaYj2Ok5xQDQPfF8TZhT+nwdXc -J//dIwaeV38o9b2ZhvOKMc0HnjGQkx+86XsjDfIdtxY1vmPgXvkGnF9Hg9p2 -2QzfaQYeF7s/ca2CBrOAobwkQyZ2mZRbH8sh67k0EuVszMTx25Wjo1dp+Ktt -zELWlImx+2Jl/IiHrKfb89Yz8bv972eG2TS5b/jmcTYycXv6+Nvvl2lYOC3l -tXgLE5O4Fclhl2joOW0kkrWTiZlLznx/kkbDlqcm7cGRTOwfs7oExDV867L0 -djPx8Zq9tZVnaLgUZWH0OJqJWnrae0pSaXD2sg3s3cfEMW1OTHYKDZVqXpXa -J5nIaeh+lXGchtQH+0Pv32CiRk9+SddBGnbqXzSLzWOi2G+3CzuJHfNLRUwL -mLharH5gJpEG0Yt9+RVFTBS68GJEkjiJ7dJ/7y4TFcOrHG0O0LBfU21H+WMm -mgvpOjXE0RB2sTn8zmcmrlugZa4QRYPdwj5zNs1EWuCqw102DauS+CT0u5iY -EjLU7ETcxzYqKu1lYsjdEeXDu2kIdM4avD3ARAHhNomRSBo8BaMiSn4xUVlQ -XaQznAbbKPldhTIszHhnsUk2mIbHWcn2Z+VYGDNDd9yjaDDnjKnFyrNwm0Dg -9DZiPfXm95bKLHzj8qk8g0XD0rf7LD+qszB464C/KpOGH+s6ZESNWOh4ZCbQ -OZCGM/zZ/wveykJ+SfkBYV+yfl3xDCd3Fgr7Rw/f96HhqE8s28CDhZ+MOHtC -iWPvuqyc9WahiqaPGMeb9Kfmpf8TxCLnYet10YsGg6Yg5pPdLBQ15t9n40HD -23R1sRVpLOTWxRUJbaWhGCRCvqWzMKejZmOzK8kfnKgvOsfCqpIouzRifbv6 -BNOLLOxapnhLgTiVjzHmdIWFD7yma0y20GATmf0+tpCFus5h6kmbaVBSOm5s -UczCsA2tLS7EE02R5wRus1BmQcgPReIcDXBKLWOh2zXlmHvONPA6OmqvVZG+ -otbvh5xouOuokPeikYXVhXvboh1pOPWLX/B8Ewu9hX3O2BIH5fUHenFYeEF7 -XbU8seT8KoWeFhaOeX4JeexAQ/gDzzM/37CweCpSQpZ4hdY/MWq9LIw1WXro -tR0Nv94eaPvex0JjbTeHEuLWJJZeyTcWnrnrm3yCOKHTsN9sgKxXguMMxB8y -2vw2j7Mwbv2nVbc30XB2gZR1/DwKM9dnzd6wpaF6rMMnWoBCt6BZ86PEXzsK -2BGCFJ48XisURGx+1yo7SITCAX5vWEbcFxD7216KwsO5l6yybUh/R+vF1tIU -agWX9hwiXm+yWBOWUOhXLy3FJE6TKNxmsJTCHv7ihVpz86ovpQoqFGasGs+s -tib30fXCxiUrKCzll8/KIU5Li/uySJ3CbYqxOieI+yhpifmaFNbavhzymJtL -24YM6FHIrKwW4FrRUPVHOrFPn0KbPUHBfcS93+kLtCGFe5fperwkXlcbX9du -SiE/z+hjHnFPeLHy/5BCjfvPorcTL/TcZ1SxkUKpnTFmTsRmlpscS60oTGs0 -P2lOnLq0K+76JrL+cslWReL780vSsuwpvHJM4YkEcffwvpuXHCmMTlxnM2tJ -g2nDktenXSjM6ysZ6CYOKu36ccyVwokpgcVviU9nlvAfdqPQOjK4rom4i22n -F+NJYby/Z1MZscR2Gdtd3sTvu5flz+XZdfuF+VJ442H8vKy575cdOLU9gEIH -76chKcT3Re1zPIMoXMTeN3RkLm9SptKVSSG72oRv/1xeZ3eLI0X6nfh9OXou -j3O7zyaEQmOjhqc75/pVHOBhGIXDKy8eCJ7Lz7H/a304hSJvdj4MnMs/Latt -FEH2r9butO9cfmzPBt1dFKawtb56EIszSz012eR/yYuebyU22ZwQuSKanGf2 -jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc -+bu0SWw/hdXtDxNs5/K/JnQKJlB4L7Cy0IbY+JXDzGwihXdellNz/j8009f0 - + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk4Fe0bwHFbVJao7CnZSpZkJ3luW8oesmc5zpmkLCEJUW+pXkUphV9E +IUt2pVCSVN5SKbQoIVGRcyaytP/u88dcc32u55p7vs/MNbOSEeHK4uPh4ZnA +g3ve/UR71fWuJ+bC/zCebahkE3N2kQHDuoKsZGq94Xow3zBTxfomkQ1Im+Pa +hflYUETvHsna/Y+6Obo2LvnuPOtOsixHJJzrf+/LtCaXPyNBzzXuc93YtfvC +L91eskp2cB1Bj/U9TNzX/IosDVGv5VpuRNl3xuotEWsUsga0PSfRJLpzgLwQ +SBjjuuXXmHBc+RChrA4VWaBfHJROaAgfJsU7FaMs0WxB67FvuiMkIdrVzQot +eCLSW292lMi4yG6yRi+XyOvY3fyJBEzHuNigneRnLrOtvpC3rLHztmiqQElK +az6bhCwVGNiETlZ1TtnZySHRrnUGduhX0j3rYsq/kjCTTgVHNNMndMeZE5OE +p8Wo2glN5/JcrAufIiX/Grm7oOcraYl/1Z0mCwunXrmhM5l3bcUlZ0hXe/WN +rWjFEu/ktbMzZLT37xVPtLHmEXZY8xzZE+z72BcdYjjQOWb1i2yx/f2Dif4W +t0dgodpvEi/gsXc7+kCzsJn6/D8kvdtCKBSdDcZXtnf+JY/UngdFcPuKO6yj +ynlh6egz3gR0+f0zgwfl+WBb0m25JG7vR//EjBN8sEKM2B5EJ66Zrq8J54dv +MVN9R7m91SuVObrzwOCp5sRZdF/Xl5Y/hfOgIaf4Ug63f/K6j5ikIEQLVO/M +Q1foO53WmhUE/V9RxsXo9sZ43l3N88FqUdPNa+jpu90Dn6xE4FSEVGQferGD +iHhCiwj0W579bwCt02MNoiaiEN8kZjqCDv1wrWCdthhUbKUDaHQkX6fOBhFx +oHRYt4Wq2GREqepryowEJLZ2dJqiv1EPFzzVWww8Gf+dtUDzXRldKbN7MTB2 +3t6zCa2ot8K1fHwxfCw9Fu+B9rE6VfdkcAmofEnJikY/DY6Kln4kCb93di6v +Q78rST8eOF8KdtaNezShv4yXF5bZSMEC6e/FbeiFMcPd61ulYHjL22PdaOvD +7vqB16Rh40hD0Ay6qchwujRfFmzH7AKgmk2KRn7EmsYowK+UZUdG0Ju2Hn0X +XakA/LDxHQf9pX3JxspRBShg+tv9QOsXaUoqei+Hshee/otq8Hky/Ovnma8A +6SOBe0zRk5zBvZ8OKcJBUeeATPSSMOur9Y5K8HxB7nLPWjYZLVoY4hKqBJNK ++6eC0TfedslPHFGCdiHTt5FoP4dth9RalcD9gvXnVHSRRqxrjq4yVF5O/Xob +rT9WQidJq8CAvHWTVh2buG8X1rIbUgWvt0dXydSzCYndquv5WxW6Cvarr0Kv +Sck3YsqqgdX3aHNDNE+hnmXSFjVoSwy46I6ufOfrWXdHDR6uV7A/jRb0qDgo +d2kVXJk7riVxFfusHV+MMdShb6ZjtcI1Nil0y3ozm6QOUyMe/2qj0xlDgwLn +1UHBv/MXQTMP7Blf3q0O7qmhy4LREjfzeNys1kCDgJ95OTpUj72mWVkD+he6 +ipg1sIm80snk4x804ZuF08Ow62xyM/Wb+nc+LUjwUNE7hPab8u6hVmqBj450 +XTb6QruKuqW/Fhx3cpq8i1ba3vR87qUWPC4bSJC/gfutGFGlHmmDomts3RO0 +gvxyStFbB1aq7iqyaWITzeIYkZ9EF9r+iDvvucUmDOahaS0nXVjbvzckHZ2t +fPpdoJ8uhPn3ZJag+S9V19yP04U5mx1qfei+C2Pup2t1geE3oAkt+D/NDsxT +V9aDTMmBe4tu4/s97qDtJagPnmmiK261ssnFKBWXa50GsCyNX8mlnU26YonR +4WITKHSM5xd7zCYr/Xudtu3aAFWHlKM4L9iE9behSmEfgD0ZbbEdYhPp8RtC +0gxLaF7wuq5mgk1i9Mzenl5jDbrhGpK+P7B/4lfHkjEbUFDSjWsR4pBKy2ih +/Ke28EovS9FZmkOKvoXeqcjcDH9kJj/fUeOQOQuZx+3J9iDa7EhFG3NIPw// +16EgR9COjHzZYMch4csiTh1UdoYdNe8vJvhxSNWOjtazKS7geWm4KDGSQ+Kn +ZGc1dmyBGrH+tvuHOGTabqPHgwBXeMY+u80mh0NMfDMsRra4gffKvaeGqzjk +uWxeaLueOxyOj+WNvMshcpcP3SxdvRUaXp3TEO7jkBuDaxycRD2AvzbiYgCH +Q5b30NtjJzxg6UWtWX0+muidzagoHPQEOf3mqGJRmuQJTGmfvusFZ3xOZzjK +0KTBYm1fSqM3JNflpXYo0yTbKFXiV7kPjPyc+cXWpsnTN8VH9E74gnvHP57a +JjS55pirEnnAD0x6FdYutabJ1zA3nnDmNqDtrfx5nWgyvVE9hG3lD3lnZ17H +etKkdOL1XLRhALx4mvE6MIgmXheLg7eJBMLr51NmlqE0qa+zD+A/GggmUqtF +IqNpYiL//Pu/3wNBqbTQ5UQCTZQHt/c92xEE6UqfdeYfoskH4Z3OucNB0PZG +tvZcKk260p2CbbcyoDVupmtpBk0y4/KF93Qx4I+F52BcFk1utvz9Hrw5GN48 +i3m7KI8mi/zgqF5TMNxyHCksvEgTxaUPni67ib59Rq4BrdPpKCPYEgwKpptS +OtCuZr5lr+4EwzbBW4YT6MxlsY/2/xcM/iHlCwwv0USu/8qijlfBoEabht9D +q/hLZ/vNBsPDTbmr3hTifgLZpSn6TPBcPrPgfTFNLufQ0U6GTHjQXxxJo5d2 +T5pLGzOBfy6z8w+abTPbU7qeCbdmNZnyl2n8f/HwdloyYdcutcXuaLFZCe/F +W5iwk8c95C76Q5rBgvwwJrRM7JjJKaHJlgdGPdsjmDAcxsdfgm7hMc3X2c2E +8YJGgavonGhzg7YYJtwhBz4+Rjt52waNJDDhcLjbGt5SmjSqeDdqpGJfvlkR +C53enLjjxmUmSH/JZaiV0SRMN8skrpQJvU2pL9ahHcpqFxiXM+Gl/0eyAb0w +a7TseiUTJIY+T7qhU6JcxhquMoEl8fv1AXSiusrOa21M8K0uvfIKHZr1aFfd +OyZce1TgeaCcJpvFRs2iBpnwu3Vobyp6dQqPqO57Jnx/HJeWiR6NMqisHWHC +9ObL2aXoIKf8iZovTPhaM6bdhfaaFx1e/YMJ5XS8j8IVmthGy0VWSLGgdJhd +Wo1uyz9id1qGBc1FBusa0WadkypxciyYCeqtaEPrqD56bbWcBa/OL0vqRcu+ +TLB6o8oCs976Yz/Q46b9UgsNWCCp4LnBsoImJ/kKbm13Y0Eun9GKDvTCtSLZ +jltZcP66skQX+rBvXJSeJwt4/tsy8xIdd9Vl1V8fFtxxj/jfR3QQxZtxjsEC +kay8zYKV+L0+ZDDv7WbBgxRDKwv0ywxVYeVTLLhZIJ5fia4ioiGfMljAIdXH +69GHJ761V55hQaiBSlgjWndze5JxFvZuPyl2D53OEzzpeIEFprT/ozfojREF +r+MqWODyvxRNoSqaKCgcMzSvYsH1zZ6UCPrbw4gz/DUseNwylymBvqRGHNPr +WXArqqxLHv27v7+1sIkFVxKv31mLvuogX/qkgwXksn7qVvTxH3zzMh9if+oL +cR80o3QsyLuTBUf2Wp7wR4sLNMl/eMoCI+m9QdvRu5q9Tn5/wYL/+dmlxKGV +15yLVRlhQZmiW102+sfL/d2fR1nAfy4iJRfdlcLSqf7Egl71LY4F6KQh/TGT +LyzYd5LRXILuy+7e5jyFPfUN4g3o00ISNvG8FOjIjuV3oW9O9vvG8FOQkxgt +34P+2F8eFT6PAnG778deos2uWhcwFlAwOThn8g49Ghj3006CguS9t6fGuP0O +NottllBgfF757wR6vdFidSJJwar7B3/R6FOiFR56shR0y2g8nuGuNw3Uyq+k +IM1+zX3eappQxRUdksp4valnkAD61Kl9A4tU8X4rEtmC6FFqiaiAOgXCQxXv +hLnrS2xDvuhQcH66UEoS3fRnSfKoLgURzqkW0uiRz4NnB/UpGH5P+cuiTVvj +7/YYU3Cc5g1XQH/YVbX8FlDgdrjpgwpazCvB4Lol7j/ZMV8NbWK1yaHWmoLB +zb32q9Hpsu/3FW+ioKyqLV4DfUOg+lS+HQVif1b91kQPcxJKchwo0DxycLc2 +2vi+ZG+aC/bdENdZh2bUvh8/6kqBqtLGeF10Wm413z/u2GcZ0aCHfh+1WSfW +i4Iiw1wBQ7Sov5RtpA8FFt35UkbceZuHt4X6UbCh6ZycMff6FfuP+wdScHu+ +/5wJt2eh3SUvBgWm1trPTbnzpqUaXZkU/Nz9NW89d97Q8FMHigKT5BJfM+68 +zprRjSEU7PFxEd7A7bu+/zeE4vucGq/gOu2S3dL1uyiIXh8P5tz5adIaBuEU +1Kr8vMf1+7gPFmsjKRi/FL6BoEWYtV7qURSsuNJzmWsj56QI5RgKsvS0+IA7 +39T+iEIsBR/04py5PqEqkycdR8HnomvpXDeIj9RLxFPw+MDIba6HftY+FE6k +QOSu0DDXIh+ThuYlURAcsmyOa8Pn9nN/kykYCVf+y/X/Adk5Nf0= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -9817,107 +10605,105 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk0VesbB3ARGYvckKkIhURm5XqeMmVMInOGc842JOqQUNFEk0TDTfcq -kgoZkiTykyKJUxTNqW2sZJ6rc/J7/bHXXp/1rP3d3/d913pVgiJdWfx8fHzf -yDP33v1izcqK1hcWf2Lzgtx0eWAxlGsUZFUI8cfcjm4lprOMz6tZVUOjRsh3 -F2IX5nMhcYMncG5DT7ojcWlsYp2gFQdk/JsO2BCfaJCrTSx4CS9yFIssiCtb -d1/h6r+GJk7HMiPi/g9N++MevIN4M6k3msTyvSt8piw/QX1nVYsiscPwfrMo -zhfo9v4ivpC4htsvFlvQCclvjpzmreHBm0Oy++5FdMNt1eItP4iHhKz6J/R7 -oSmf6fWWWChll5fBdB+cZxfnPiJWlrrcuPvBN5Bcfs6ggNhZYerGkOUA5D52 -VowhprJVZXSEh0BTzDTGizhRfXPSDs4wqHyhpdcTv5NtXxtdMAquyZnyP3V4 -wPQOCz2XMgYOqQ1HXhOPZPJdvRMxDlqnPuvdJhZW1ZEc1Z+E84ckPAKIzzPr -bCWXTIFoGrYaES+/6ZWoOz0F8v+7dFqE2HR18tDOBzNwdjOv/dZqHoQYf+H0 -W3JBOYKR8VGbBxOxe+aLavDgis1lw2vEBx+ImWsK/wGthpNLQokz0PRWMGcW -gkXarg9rkX7XG63YBfPQszae/5smDwoaztGHFPgx83ZJw1Xika/b96en8OOF -PMdWL+L9WpNltyMEMDpA7W79KtK3RGXFsL4grv3X8FHSSh58aB2o+XNNEH8b -nSlbS7x8rMJ74RIhZA+uHvhIehUaOp/VmRZCl6ICPW3i+sr4eeEPhDFIYrlo -uRoPJuvavnyzFMdUzUjFGBUeLHYUl9xXI46cYQMx3nIe6LVboYSZBCrP8548 -RBzWU569ds1C/Bp+oTppGQ928XP0/haXxKsGxxT3KPGgV7V4NGlKCkeHx13H -5cj+UE0iLQaL8USku5Q3Mf+tPhW53YuRW5j7okaW9DVY5lrwYzFGjInZHpbh -gbdl2p0XtDQOPV9pPCrNgxYGO0q2eQn6aZ2wi1zIg883U08FCMvg3/0MmXsS -PBj4UXAt31oGc14f6/slzgPR6O629bUyGDLZkZ4gxgOro26GAeWy+Etkq1KE -MA+qco0n87KWYkkH23loHg9ye3/FrItWwrxz8/ftGefCJvdjn6OKlLCj89Lr -02NcGKiXtinqU8KxDfYJuaNcMMxdvWS5lzIWq9o84AxzoT5oe5mgxTJcU9Ey -IDzAhbFheu+3I8txrZ1enF4PF6R3Wt0tc1LFxXoVhRZtXOjLFQ1xCVPFXH+l -PSqvuHD/U6vCYLIqshbN/sP/kgu+jn5HNGpV0bfoybeHL7iQqx3jekl/BSqM -sFs0msj/+2+OJMiq4eujOQI3arngFiymY9+pjnZyvpPhhVyAGHd9D546tord -9Fa9xQWtpCwT5lIN/GzUZvwmnwt81ww2JmzRQKxNdje7yYWizz4edx5p4H9y -caaDV7kgtK3wkHzOShR7Oj0ldpH0s3J60x+kiR49owdXHeSCguqZxFM9qzG9 -0v3wjBMXqk9OaP7k18ErHoPa2o6k/7hXO6Wig8VOFtq+9ly4Uq+muXG7Dk5s -rNeptOGCanDVq5m3OiiYcdTdH0i/wl51qnkNLin6t8lXjwtKCsrUci89FFrx -zzoVKS6svh4t/hv0MVTOUvvn899wla3mUs4xQquEvWELN/yG1hgwOXrdDN0U -oVnh/C9Q2f7a2S/8b6ytLdL9+/1PYM3eK1aKQzTs7i6sU/4Jsj/uL5AN2ojG -0lsuZdjPQLSB+aezWlb4y661VDphGoIGuY3S/dboXDHJlLwzBUUboxZktdii -9liN+ta2ScidCHtUeN4OXUoDLjvPn4SZDXLP6xMd0N/aquedxgR08AmMdgY6 -oUZep4ua6zhEKEamHVqxGa0/lSWuSx+D4tDG2gtJLlhT1jkl+HQU4seXTmuH -bsEDi/4TzJUahUl7m21P/V2xPVCJVeE+AmY+6Rt6t2xF3/yXD/Mdh+HV0sth -9QZuCD2RFUoyQyB/40h13ip3XHM6xa3u7QDcp7UcnSW2YUBd5qLihz9AuX0k -OGZwG+ZUJR8cr+4HgwvphddoD7RI8q/JKf8Ol+ePrzlb54k3P/zSqWv5Bvc2 -6H5IqvTC2FTPC65fv0KGyUkpboE3bhw6HseQ/gotH68nG6T4IPues8h1nz4o -d8pU23XQF+vTQncM5vTC6M6tfBFMP+xxVxROFeiFSRvNkCHL7Sj3ZGSBQFQP -5A2+n4ky9kf87Fd5q6sbPK9eZ/iJB+Cd6ANqhsHdUHbHwV/gWAAmqsVXCwx2 -gZnCq58nfgagVrhgSGBSF6yggz+8DA3EGQlRFy3NLugR27E5szsQIz6vFjBp -6YTWVGeGrXsQzr+abuJ9tBPOx2aJ7WkNwjvPnug+Nu+E6prZnww7BhpcmFr9 -dJaGtY8MTVc6MNAdgssm/tBwoy40pt+RgZL//ilXJU5vbBvb5cLAkZAQ3YNc -GqhXN38c8GBg4I7/RvEnDVJ9mzsussj8v7U334+RuUR2bfMhBlqw/GKC+2hY -5IvHDKoYyF9qWjn6goblfz1tUaxmoFW7S9UaYj2Ok5xQDQPfF8TZhT+nwdXc -J//dIwaeV38o9b2ZhvOKMc0HnjGQkx+86XsjDfIdtxY1vmPgXvkGnF9Hg9p2 -2QzfaQYeF7s/ca2CBrOAobwkQyZ2mZRbH8sh67k0EuVszMTx25Wjo1dp+Ktt -zELWlImx+2Jl/IiHrKfb89Yz8bv972eG2TS5b/jmcTYycXv6+Nvvl2lYOC3l -tXgLE5O4Fclhl2joOW0kkrWTiZlLznx/kkbDlqcm7cGRTOwfs7oExDV867L0 -djPx8Zq9tZVnaLgUZWH0OJqJWnrae0pSaXD2sg3s3cfEMW1OTHYKDZVqXpXa -J5nIaeh+lXGchtQH+0Pv32CiRk9+SddBGnbqXzSLzWOi2G+3CzuJHfNLRUwL -mLharH5gJpEG0Yt9+RVFTBS68GJEkjiJ7dJ/7y4TFcOrHG0O0LBfU21H+WMm -mgvpOjXE0RB2sTn8zmcmrlugZa4QRYPdwj5zNs1EWuCqw102DauS+CT0u5iY -EjLU7ETcxzYqKu1lYsjdEeXDu2kIdM4avD3ARAHhNomRSBo8BaMiSn4xUVlQ -XaQznAbbKPldhTIszHhnsUk2mIbHWcn2Z+VYGDNDd9yjaDDnjKnFyrNwm0Dg -9DZiPfXm95bKLHzj8qk8g0XD0rf7LD+qszB464C/KpOGH+s6ZESNWOh4ZCbQ -OZCGM/zZ/wveykJ+SfkBYV+yfl3xDCd3Fgr7Rw/f96HhqE8s28CDhZ+MOHtC -iWPvuqyc9WahiqaPGMeb9Kfmpf8TxCLnYet10YsGg6Yg5pPdLBQ15t9n40HD -23R1sRVpLOTWxRUJbaWhGCRCvqWzMKejZmOzK8kfnKgvOsfCqpIouzRifbv6 -BNOLLOxapnhLgTiVjzHmdIWFD7yma0y20GATmf0+tpCFus5h6kmbaVBSOm5s -UczCsA2tLS7EE02R5wRus1BmQcgPReIcDXBKLWOh2zXlmHvONPA6OmqvVZG+ -otbvh5xouOuokPeikYXVhXvboh1pOPWLX/B8Ewu9hX3O2BIH5fUHenFYeEF7 -XbU8seT8KoWeFhaOeX4JeexAQ/gDzzM/37CweCpSQpZ4hdY/MWq9LIw1WXro -tR0Nv94eaPvex0JjbTeHEuLWJJZeyTcWnrnrm3yCOKHTsN9sgKxXguMMxB8y -2vw2j7Mwbv2nVbc30XB2gZR1/DwKM9dnzd6wpaF6rMMnWoBCt6BZ86PEXzsK -2BGCFJ48XisURGx+1yo7SITCAX5vWEbcFxD7216KwsO5l6yybUh/R+vF1tIU -agWX9hwiXm+yWBOWUOhXLy3FJE6TKNxmsJTCHv7ihVpz86ovpQoqFGasGs+s -tib30fXCxiUrKCzll8/KIU5Li/uySJ3CbYqxOieI+yhpifmaFNbavhzymJtL -24YM6FHIrKwW4FrRUPVHOrFPn0KbPUHBfcS93+kLtCGFe5fperwkXlcbX9du -SiE/z+hjHnFPeLHy/5BCjfvPorcTL/TcZ1SxkUKpnTFmTsRmlpscS60oTGs0 -P2lOnLq0K+76JrL+cslWReL780vSsuwpvHJM4YkEcffwvpuXHCmMTlxnM2tJ -g2nDktenXSjM6ysZ6CYOKu36ccyVwokpgcVviU9nlvAfdqPQOjK4rom4i22n -F+NJYby/Z1MZscR2Gdtd3sTvu5flz+XZdfuF+VJ442H8vKy575cdOLU9gEIH -76chKcT3Re1zPIMoXMTeN3RkLm9SptKVSSG72oRv/1xeZ3eLI0X6nfh9OXou -j3O7zyaEQmOjhqc75/pVHOBhGIXDKy8eCJ7Lz7H/a304hSJvdj4MnMs/Latt -FEH2r9butO9cfmzPBt1dFKawtb56EIszSz012eR/yYuebyU22ZwQuSKanGf2 -jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc -+bu0SWw/hdXtDxNs5/K/JnQKJlB4L7Cy0IbY+JXDzGwihXdellNz/j8009f0 - +1:eJwV1Hk4Fe0bwHFbVJao7CnZSpZkJ3luW8oesmc5zpmkLCEJUW+pXkUphV9E +IUt2pVCSVN5SKbQoIVGRcyaytP/u88dcc32u55p7vs/MNbOSEeHK4uPh4ZnA +g3ve/UR71fWuJ+bC/zCebahkE3N2kQHDuoKsZGq94Xow3zBTxfomkQ1Im+Pa +hflYUETvHsna/Y+6Obo2LvnuPOtOsixHJJzrf+/LtCaXPyNBzzXuc93YtfvC +L91eskp2cB1Bj/U9TNzX/IosDVGv5VpuRNl3xuotEWsUsga0PSfRJLpzgLwQ +SBjjuuXXmHBc+RChrA4VWaBfHJROaAgfJsU7FaMs0WxB67FvuiMkIdrVzQot +eCLSW292lMi4yG6yRi+XyOvY3fyJBEzHuNigneRnLrOtvpC3rLHztmiqQElK +az6bhCwVGNiETlZ1TtnZySHRrnUGduhX0j3rYsq/kjCTTgVHNNMndMeZE5OE +p8Wo2glN5/JcrAufIiX/Grm7oOcraYl/1Z0mCwunXrmhM5l3bcUlZ0hXe/WN +rWjFEu/ktbMzZLT37xVPtLHmEXZY8xzZE+z72BcdYjjQOWb1i2yx/f2Dif4W +t0dgodpvEi/gsXc7+kCzsJn6/D8kvdtCKBSdDcZXtnf+JY/UngdFcPuKO6yj +ynlh6egz3gR0+f0zgwfl+WBb0m25JG7vR//EjBN8sEKM2B5EJ66Zrq8J54dv +MVN9R7m91SuVObrzwOCp5sRZdF/Xl5Y/hfOgIaf4Ug63f/K6j5ikIEQLVO/M +Q1foO53WmhUE/V9RxsXo9sZ43l3N88FqUdPNa+jpu90Dn6xE4FSEVGQferGD +iHhCiwj0W579bwCt02MNoiaiEN8kZjqCDv1wrWCdthhUbKUDaHQkX6fOBhFx +oHRYt4Wq2GREqepryowEJLZ2dJqiv1EPFzzVWww8Gf+dtUDzXRldKbN7MTB2 +3t6zCa2ot8K1fHwxfCw9Fu+B9rE6VfdkcAmofEnJikY/DY6Kln4kCb93di6v +Q78rST8eOF8KdtaNezShv4yXF5bZSMEC6e/FbeiFMcPd61ulYHjL22PdaOvD +7vqB16Rh40hD0Ay6qchwujRfFmzH7AKgmk2KRn7EmsYowK+UZUdG0Ju2Hn0X +XakA/LDxHQf9pX3JxspRBShg+tv9QOsXaUoqei+Hshee/otq8Hky/Ovnma8A +6SOBe0zRk5zBvZ8OKcJBUeeATPSSMOur9Y5K8HxB7nLPWjYZLVoY4hKqBJNK ++6eC0TfedslPHFGCdiHTt5FoP4dth9RalcD9gvXnVHSRRqxrjq4yVF5O/Xob +rT9WQidJq8CAvHWTVh2buG8X1rIbUgWvt0dXydSzCYndquv5WxW6Cvarr0Kv +Sck3YsqqgdX3aHNDNE+hnmXSFjVoSwy46I6ufOfrWXdHDR6uV7A/jRb0qDgo +d2kVXJk7riVxFfusHV+MMdShb6ZjtcI1Nil0y3ozm6QOUyMe/2qj0xlDgwLn +1UHBv/MXQTMP7Blf3q0O7qmhy4LREjfzeNys1kCDgJ95OTpUj72mWVkD+he6 +ipg1sIm80snk4x804ZuF08Ow62xyM/Wb+nc+LUjwUNE7hPab8u6hVmqBj450 +XTb6QruKuqW/Fhx3cpq8i1ba3vR87qUWPC4bSJC/gfutGFGlHmmDomts3RO0 +gvxyStFbB1aq7iqyaWITzeIYkZ9EF9r+iDvvucUmDOahaS0nXVjbvzckHZ2t +fPpdoJ8uhPn3ZJag+S9V19yP04U5mx1qfei+C2Pup2t1geE3oAkt+D/NDsxT +V9aDTMmBe4tu4/s97qDtJagPnmmiK261ssnFKBWXa50GsCyNX8mlnU26YonR +4WITKHSM5xd7zCYr/Xudtu3aAFWHlKM4L9iE9behSmEfgD0ZbbEdYhPp8RtC +0gxLaF7wuq5mgk1i9Mzenl5jDbrhGpK+P7B/4lfHkjEbUFDSjWsR4pBKy2ih +/Ke28EovS9FZmkOKvoXeqcjcDH9kJj/fUeOQOQuZx+3J9iDa7EhFG3NIPw// +16EgR9COjHzZYMch4csiTh1UdoYdNe8vJvhxSNWOjtazKS7geWm4KDGSQ+Kn +ZGc1dmyBGrH+tvuHOGTabqPHgwBXeMY+u80mh0NMfDMsRra4gffKvaeGqzjk +uWxeaLueOxyOj+WNvMshcpcP3SxdvRUaXp3TEO7jkBuDaxycRD2AvzbiYgCH +Q5b30NtjJzxg6UWtWX0+muidzagoHPQEOf3mqGJRmuQJTGmfvusFZ3xOZzjK +0KTBYm1fSqM3JNflpXYo0yTbKFXiV7kPjPyc+cXWpsnTN8VH9E74gnvHP57a +JjS55pirEnnAD0x6FdYutabJ1zA3nnDmNqDtrfx5nWgyvVE9hG3lD3lnZ17H +etKkdOL1XLRhALx4mvE6MIgmXheLg7eJBMLr51NmlqE0qa+zD+A/GggmUqtF +IqNpYiL//Pu/3wNBqbTQ5UQCTZQHt/c92xEE6UqfdeYfoskH4Z3OucNB0PZG +tvZcKk260p2CbbcyoDVupmtpBk0y4/KF93Qx4I+F52BcFk1utvz9Hrw5GN48 +i3m7KI8mi/zgqF5TMNxyHCksvEgTxaUPni67ib59Rq4BrdPpKCPYEgwKpptS +OtCuZr5lr+4EwzbBW4YT6MxlsY/2/xcM/iHlCwwv0USu/8qijlfBoEabht9D +q/hLZ/vNBsPDTbmr3hTifgLZpSn6TPBcPrPgfTFNLufQ0U6GTHjQXxxJo5d2 +T5pLGzOBfy6z8w+abTPbU7qeCbdmNZnyl2n8f/HwdloyYdcutcXuaLFZCe/F +W5iwk8c95C76Q5rBgvwwJrRM7JjJKaHJlgdGPdsjmDAcxsdfgm7hMc3X2c2E +8YJGgavonGhzg7YYJtwhBz4+Rjt52waNJDDhcLjbGt5SmjSqeDdqpGJfvlkR +C53enLjjxmUmSH/JZaiV0SRMN8skrpQJvU2pL9ahHcpqFxiXM+Gl/0eyAb0w +a7TseiUTJIY+T7qhU6JcxhquMoEl8fv1AXSiusrOa21M8K0uvfIKHZr1aFfd +OyZce1TgeaCcJpvFRs2iBpnwu3Vobyp6dQqPqO57Jnx/HJeWiR6NMqisHWHC +9ObL2aXoIKf8iZovTPhaM6bdhfaaFx1e/YMJ5XS8j8IVmthGy0VWSLGgdJhd +Wo1uyz9id1qGBc1FBusa0WadkypxciyYCeqtaEPrqD56bbWcBa/OL0vqRcu+ +TLB6o8oCs976Yz/Q46b9UgsNWCCp4LnBsoImJ/kKbm13Y0Eun9GKDvTCtSLZ +jltZcP66skQX+rBvXJSeJwt4/tsy8xIdd9Vl1V8fFtxxj/jfR3QQxZtxjsEC +kay8zYKV+L0+ZDDv7WbBgxRDKwv0ywxVYeVTLLhZIJ5fia4ioiGfMljAIdXH +69GHJ761V55hQaiBSlgjWndze5JxFvZuPyl2D53OEzzpeIEFprT/ozfojREF +r+MqWODyvxRNoSqaKCgcMzSvYsH1zZ6UCPrbw4gz/DUseNwylymBvqRGHNPr +WXArqqxLHv27v7+1sIkFVxKv31mLvuogX/qkgwXksn7qVvTxH3zzMh9if+oL +cR80o3QsyLuTBUf2Wp7wR4sLNMl/eMoCI+m9QdvRu5q9Tn5/wYL/+dmlxKGV +15yLVRlhQZmiW102+sfL/d2fR1nAfy4iJRfdlcLSqf7Egl71LY4F6KQh/TGT +LyzYd5LRXILuy+7e5jyFPfUN4g3o00ISNvG8FOjIjuV3oW9O9vvG8FOQkxgt +34P+2F8eFT6PAnG778deos2uWhcwFlAwOThn8g49Ghj3006CguS9t6fGuP0O +NottllBgfF757wR6vdFidSJJwar7B3/R6FOiFR56shR0y2g8nuGuNw3Uyq+k +IM1+zX3eappQxRUdksp4valnkAD61Kl9A4tU8X4rEtmC6FFqiaiAOgXCQxXv +hLnrS2xDvuhQcH66UEoS3fRnSfKoLgURzqkW0uiRz4NnB/UpGH5P+cuiTVvj +7/YYU3Cc5g1XQH/YVbX8FlDgdrjpgwpazCvB4Lol7j/ZMV8NbWK1yaHWmoLB +zb32q9Hpsu/3FW+ioKyqLV4DfUOg+lS+HQVif1b91kQPcxJKchwo0DxycLc2 +2vi+ZG+aC/bdENdZh2bUvh8/6kqBqtLGeF10Wm413z/u2GcZ0aCHfh+1WSfW +i4Iiw1wBQ7Sov5RtpA8FFt35UkbceZuHt4X6UbCh6ZycMff6FfuP+wdScHu+ +/5wJt2eh3SUvBgWm1trPTbnzpqUaXZkU/Nz9NW89d97Q8FMHigKT5BJfM+68 +zprRjSEU7PFxEd7A7bu+/zeE4vucGq/gOu2S3dL1uyiIXh8P5tz5adIaBuEU +1Kr8vMf1+7gPFmsjKRi/FL6BoEWYtV7qURSsuNJzmWsj56QI5RgKsvS0+IA7 +39T+iEIsBR/04py5PqEqkycdR8HnomvpXDeIj9RLxFPw+MDIba6HftY+FE6k +QOSu0DDXIh+ThuYlURAcsmyOa8Pn9nN/kykYCVf+y/X/Adk5Nf0= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5082122808512877, - 1.8240550855476267`}}, + "PlotRange" -> {{0, 180}, {0.9586476411387265, + 1.0427865949958968`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5082122808512888}, + "AxesOrigin" -> {0, 0.9586476411387286}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -9929,21 +10715,21 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5082122808512877, - 1.8240550855476267`}}, + "PlotRange" -> {{0, 180}, {0.9586476411387265, + 1.0427865949958968`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5082122808512888}, + "AxesOrigin" -> {0, 0.9586476411387286}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -9957,105 +10743,103 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk0VesbB3ARGYvckKkIhURm5XqeMmVMInOGc842JOqQUNFEk0TDTfcq -kgoZkiTykyKJUxTNqW2sZJ6rc/J7/bHXXp/1rP3d3/d913pVgiJdWfx8fHzf -yDP33v1izcqK1hcWf2Lzgtx0eWAxlGsUZFUI8cfcjm4lprOMz6tZVUOjRsh3 -F2IX5nMhcYMncG5DT7ojcWlsYp2gFQdk/JsO2BCfaJCrTSx4CS9yFIssiCtb -d1/h6r+GJk7HMiPi/g9N++MevIN4M6k3msTyvSt8piw/QX1nVYsiscPwfrMo -zhfo9v4ivpC4htsvFlvQCclvjpzmreHBm0Oy++5FdMNt1eItP4iHhKz6J/R7 -oSmf6fWWWChll5fBdB+cZxfnPiJWlrrcuPvBN5Bcfs6ggNhZYerGkOUA5D52 -VowhprJVZXSEh0BTzDTGizhRfXPSDs4wqHyhpdcTv5NtXxtdMAquyZnyP3V4 -wPQOCz2XMgYOqQ1HXhOPZPJdvRMxDlqnPuvdJhZW1ZEc1Z+E84ckPAKIzzPr -bCWXTIFoGrYaES+/6ZWoOz0F8v+7dFqE2HR18tDOBzNwdjOv/dZqHoQYf+H0 -W3JBOYKR8VGbBxOxe+aLavDgis1lw2vEBx+ImWsK/wGthpNLQokz0PRWMGcW -gkXarg9rkX7XG63YBfPQszae/5smDwoaztGHFPgx83ZJw1Xika/b96en8OOF -PMdWL+L9WpNltyMEMDpA7W79KtK3RGXFsL4grv3X8FHSSh58aB2o+XNNEH8b -nSlbS7x8rMJ74RIhZA+uHvhIehUaOp/VmRZCl6ICPW3i+sr4eeEPhDFIYrlo -uRoPJuvavnyzFMdUzUjFGBUeLHYUl9xXI46cYQMx3nIe6LVboYSZBCrP8548 -RBzWU569ds1C/Bp+oTppGQ928XP0/haXxKsGxxT3KPGgV7V4NGlKCkeHx13H -5cj+UE0iLQaL8USku5Q3Mf+tPhW53YuRW5j7okaW9DVY5lrwYzFGjInZHpbh -gbdl2p0XtDQOPV9pPCrNgxYGO0q2eQn6aZ2wi1zIg883U08FCMvg3/0MmXsS -PBj4UXAt31oGc14f6/slzgPR6O629bUyGDLZkZ4gxgOro26GAeWy+Etkq1KE -MA+qco0n87KWYkkH23loHg9ye3/FrItWwrxz8/ftGefCJvdjn6OKlLCj89Lr -02NcGKiXtinqU8KxDfYJuaNcMMxdvWS5lzIWq9o84AxzoT5oe5mgxTJcU9Ey -IDzAhbFheu+3I8txrZ1enF4PF6R3Wt0tc1LFxXoVhRZtXOjLFQ1xCVPFXH+l -PSqvuHD/U6vCYLIqshbN/sP/kgu+jn5HNGpV0bfoybeHL7iQqx3jekl/BSqM -sFs0msj/+2+OJMiq4eujOQI3arngFiymY9+pjnZyvpPhhVyAGHd9D546tord -9Fa9xQWtpCwT5lIN/GzUZvwmnwt81ww2JmzRQKxNdje7yYWizz4edx5p4H9y -caaDV7kgtK3wkHzOShR7Oj0ldpH0s3J60x+kiR49owdXHeSCguqZxFM9qzG9 -0v3wjBMXqk9OaP7k18ErHoPa2o6k/7hXO6Wig8VOFtq+9ly4Uq+muXG7Dk5s -rNeptOGCanDVq5m3OiiYcdTdH0i/wl51qnkNLin6t8lXjwtKCsrUci89FFrx -zzoVKS6svh4t/hv0MVTOUvvn899wla3mUs4xQquEvWELN/yG1hgwOXrdDN0U -oVnh/C9Q2f7a2S/8b6ytLdL9+/1PYM3eK1aKQzTs7i6sU/4Jsj/uL5AN2ojG -0lsuZdjPQLSB+aezWlb4y661VDphGoIGuY3S/dboXDHJlLwzBUUboxZktdii -9liN+ta2ScidCHtUeN4OXUoDLjvPn4SZDXLP6xMd0N/aquedxgR08AmMdgY6 -oUZep4ua6zhEKEamHVqxGa0/lSWuSx+D4tDG2gtJLlhT1jkl+HQU4seXTmuH -bsEDi/4TzJUahUl7m21P/V2xPVCJVeE+AmY+6Rt6t2xF3/yXD/Mdh+HV0sth -9QZuCD2RFUoyQyB/40h13ip3XHM6xa3u7QDcp7UcnSW2YUBd5qLihz9AuX0k -OGZwG+ZUJR8cr+4HgwvphddoD7RI8q/JKf8Ol+ePrzlb54k3P/zSqWv5Bvc2 -6H5IqvTC2FTPC65fv0KGyUkpboE3bhw6HseQ/gotH68nG6T4IPues8h1nz4o -d8pU23XQF+vTQncM5vTC6M6tfBFMP+xxVxROFeiFSRvNkCHL7Sj3ZGSBQFQP -5A2+n4ky9kf87Fd5q6sbPK9eZ/iJB+Cd6ANqhsHdUHbHwV/gWAAmqsVXCwx2 -gZnCq58nfgagVrhgSGBSF6yggz+8DA3EGQlRFy3NLugR27E5szsQIz6vFjBp -6YTWVGeGrXsQzr+abuJ9tBPOx2aJ7WkNwjvPnug+Nu+E6prZnww7BhpcmFr9 -dJaGtY8MTVc6MNAdgssm/tBwoy40pt+RgZL//ilXJU5vbBvb5cLAkZAQ3YNc -GqhXN38c8GBg4I7/RvEnDVJ9mzsussj8v7U334+RuUR2bfMhBlqw/GKC+2hY -5IvHDKoYyF9qWjn6goblfz1tUaxmoFW7S9UaYj2Ok5xQDQPfF8TZhT+nwdXc -J//dIwaeV38o9b2ZhvOKMc0HnjGQkx+86XsjDfIdtxY1vmPgXvkGnF9Hg9p2 -2QzfaQYeF7s/ca2CBrOAobwkQyZ2mZRbH8sh67k0EuVszMTx25Wjo1dp+Ktt -zELWlImx+2Jl/IiHrKfb89Yz8bv972eG2TS5b/jmcTYycXv6+Nvvl2lYOC3l -tXgLE5O4Fclhl2joOW0kkrWTiZlLznx/kkbDlqcm7cGRTOwfs7oExDV867L0 -djPx8Zq9tZVnaLgUZWH0OJqJWnrae0pSaXD2sg3s3cfEMW1OTHYKDZVqXpXa -J5nIaeh+lXGchtQH+0Pv32CiRk9+SddBGnbqXzSLzWOi2G+3CzuJHfNLRUwL -mLharH5gJpEG0Yt9+RVFTBS68GJEkjiJ7dJ/7y4TFcOrHG0O0LBfU21H+WMm -mgvpOjXE0RB2sTn8zmcmrlugZa4QRYPdwj5zNs1EWuCqw102DauS+CT0u5iY -EjLU7ETcxzYqKu1lYsjdEeXDu2kIdM4avD3ARAHhNomRSBo8BaMiSn4xUVlQ -XaQznAbbKPldhTIszHhnsUk2mIbHWcn2Z+VYGDNDd9yjaDDnjKnFyrNwm0Dg -9DZiPfXm95bKLHzj8qk8g0XD0rf7LD+qszB464C/KpOGH+s6ZESNWOh4ZCbQ -OZCGM/zZ/wveykJ+SfkBYV+yfl3xDCd3Fgr7Rw/f96HhqE8s28CDhZ+MOHtC -iWPvuqyc9WahiqaPGMeb9Kfmpf8TxCLnYet10YsGg6Yg5pPdLBQ15t9n40HD -23R1sRVpLOTWxRUJbaWhGCRCvqWzMKejZmOzK8kfnKgvOsfCqpIouzRifbv6 -BNOLLOxapnhLgTiVjzHmdIWFD7yma0y20GATmf0+tpCFus5h6kmbaVBSOm5s -UczCsA2tLS7EE02R5wRus1BmQcgPReIcDXBKLWOh2zXlmHvONPA6OmqvVZG+ -otbvh5xouOuokPeikYXVhXvboh1pOPWLX/B8Ewu9hX3O2BIH5fUHenFYeEF7 -XbU8seT8KoWeFhaOeX4JeexAQ/gDzzM/37CweCpSQpZ4hdY/MWq9LIw1WXro -tR0Nv94eaPvex0JjbTeHEuLWJJZeyTcWnrnrm3yCOKHTsN9sgKxXguMMxB8y -2vw2j7Mwbv2nVbc30XB2gZR1/DwKM9dnzd6wpaF6rMMnWoBCt6BZ86PEXzsK -2BGCFJ48XisURGx+1yo7SITCAX5vWEbcFxD7216KwsO5l6yybUh/R+vF1tIU -agWX9hwiXm+yWBOWUOhXLy3FJE6TKNxmsJTCHv7ihVpz86ovpQoqFGasGs+s -tib30fXCxiUrKCzll8/KIU5Li/uySJ3CbYqxOieI+yhpifmaFNbavhzymJtL -24YM6FHIrKwW4FrRUPVHOrFPn0KbPUHBfcS93+kLtCGFe5fperwkXlcbX9du -SiE/z+hjHnFPeLHy/5BCjfvPorcTL/TcZ1SxkUKpnTFmTsRmlpscS60oTGs0 -P2lOnLq0K+76JrL+cslWReL780vSsuwpvHJM4YkEcffwvpuXHCmMTlxnM2tJ -g2nDktenXSjM6ysZ6CYOKu36ccyVwokpgcVviU9nlvAfdqPQOjK4rom4i22n -F+NJYby/Z1MZscR2Gdtd3sTvu5flz+XZdfuF+VJ442H8vKy575cdOLU9gEIH -76chKcT3Re1zPIMoXMTeN3RkLm9SptKVSSG72oRv/1xeZ3eLI0X6nfh9OXou -j3O7zyaEQmOjhqc75/pVHOBhGIXDKy8eCJ7Lz7H/a304hSJvdj4MnMs/Latt -FEH2r9butO9cfmzPBt1dFKawtb56EIszSz012eR/yYuebyU22ZwQuSKanGf2 -jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc -+bu0SWw/hdXtDxNs5/K/JnQKJlB4L7Cy0IbY+JXDzGwihXdellNz/j8009f0 - +1:eJwV1Hk4Fe0bwHFbVJao7CnZSpZkJ3luW8oesmc5zpmkLCEJUW+pXkUphV9E +IUt2pVCSVN5SKbQoIVGRcyaytP/u88dcc32u55p7vs/MNbOSEeHK4uPh4ZnA +g3ve/UR71fWuJ+bC/zCebahkE3N2kQHDuoKsZGq94Xow3zBTxfomkQ1Im+Pa +hflYUETvHsna/Y+6Obo2LvnuPOtOsixHJJzrf+/LtCaXPyNBzzXuc93YtfvC +L91eskp2cB1Bj/U9TNzX/IosDVGv5VpuRNl3xuotEWsUsga0PSfRJLpzgLwQ +SBjjuuXXmHBc+RChrA4VWaBfHJROaAgfJsU7FaMs0WxB67FvuiMkIdrVzQot +eCLSW292lMi4yG6yRi+XyOvY3fyJBEzHuNigneRnLrOtvpC3rLHztmiqQElK +az6bhCwVGNiETlZ1TtnZySHRrnUGduhX0j3rYsq/kjCTTgVHNNMndMeZE5OE +p8Wo2glN5/JcrAufIiX/Grm7oOcraYl/1Z0mCwunXrmhM5l3bcUlZ0hXe/WN +rWjFEu/ktbMzZLT37xVPtLHmEXZY8xzZE+z72BcdYjjQOWb1i2yx/f2Dif4W +t0dgodpvEi/gsXc7+kCzsJn6/D8kvdtCKBSdDcZXtnf+JY/UngdFcPuKO6yj +ynlh6egz3gR0+f0zgwfl+WBb0m25JG7vR//EjBN8sEKM2B5EJ66Zrq8J54dv +MVN9R7m91SuVObrzwOCp5sRZdF/Xl5Y/hfOgIaf4Ug63f/K6j5ikIEQLVO/M +Q1foO53WmhUE/V9RxsXo9sZ43l3N88FqUdPNa+jpu90Dn6xE4FSEVGQferGD +iHhCiwj0W579bwCt02MNoiaiEN8kZjqCDv1wrWCdthhUbKUDaHQkX6fOBhFx +oHRYt4Wq2GREqepryowEJLZ2dJqiv1EPFzzVWww8Gf+dtUDzXRldKbN7MTB2 +3t6zCa2ot8K1fHwxfCw9Fu+B9rE6VfdkcAmofEnJikY/DY6Kln4kCb93di6v +Q78rST8eOF8KdtaNezShv4yXF5bZSMEC6e/FbeiFMcPd61ulYHjL22PdaOvD +7vqB16Rh40hD0Ay6qchwujRfFmzH7AKgmk2KRn7EmsYowK+UZUdG0Ju2Hn0X +XakA/LDxHQf9pX3JxspRBShg+tv9QOsXaUoqei+Hshee/otq8Hky/Ovnma8A +6SOBe0zRk5zBvZ8OKcJBUeeATPSSMOur9Y5K8HxB7nLPWjYZLVoY4hKqBJNK ++6eC0TfedslPHFGCdiHTt5FoP4dth9RalcD9gvXnVHSRRqxrjq4yVF5O/Xob +rT9WQidJq8CAvHWTVh2buG8X1rIbUgWvt0dXydSzCYndquv5WxW6Cvarr0Kv +Sck3YsqqgdX3aHNDNE+hnmXSFjVoSwy46I6ufOfrWXdHDR6uV7A/jRb0qDgo +d2kVXJk7riVxFfusHV+MMdShb6ZjtcI1Nil0y3ozm6QOUyMe/2qj0xlDgwLn +1UHBv/MXQTMP7Blf3q0O7qmhy4LREjfzeNys1kCDgJ95OTpUj72mWVkD+he6 +ipg1sIm80snk4x804ZuF08Ow62xyM/Wb+nc+LUjwUNE7hPab8u6hVmqBj450 +XTb6QruKuqW/Fhx3cpq8i1ba3vR87qUWPC4bSJC/gfutGFGlHmmDomts3RO0 +gvxyStFbB1aq7iqyaWITzeIYkZ9EF9r+iDvvucUmDOahaS0nXVjbvzckHZ2t +fPpdoJ8uhPn3ZJag+S9V19yP04U5mx1qfei+C2Pup2t1geE3oAkt+D/NDsxT +V9aDTMmBe4tu4/s97qDtJagPnmmiK261ssnFKBWXa50GsCyNX8mlnU26YonR +4WITKHSM5xd7zCYr/Xudtu3aAFWHlKM4L9iE9behSmEfgD0ZbbEdYhPp8RtC +0gxLaF7wuq5mgk1i9Mzenl5jDbrhGpK+P7B/4lfHkjEbUFDSjWsR4pBKy2ih +/Ke28EovS9FZmkOKvoXeqcjcDH9kJj/fUeOQOQuZx+3J9iDa7EhFG3NIPw// +16EgR9COjHzZYMch4csiTh1UdoYdNe8vJvhxSNWOjtazKS7geWm4KDGSQ+Kn +ZGc1dmyBGrH+tvuHOGTabqPHgwBXeMY+u80mh0NMfDMsRra4gffKvaeGqzjk +uWxeaLueOxyOj+WNvMshcpcP3SxdvRUaXp3TEO7jkBuDaxycRD2AvzbiYgCH +Q5b30NtjJzxg6UWtWX0+muidzagoHPQEOf3mqGJRmuQJTGmfvusFZ3xOZzjK +0KTBYm1fSqM3JNflpXYo0yTbKFXiV7kPjPyc+cXWpsnTN8VH9E74gnvHP57a +JjS55pirEnnAD0x6FdYutabJ1zA3nnDmNqDtrfx5nWgyvVE9hG3lD3lnZ17H +etKkdOL1XLRhALx4mvE6MIgmXheLg7eJBMLr51NmlqE0qa+zD+A/GggmUqtF +IqNpYiL//Pu/3wNBqbTQ5UQCTZQHt/c92xEE6UqfdeYfoskH4Z3OucNB0PZG +tvZcKk260p2CbbcyoDVupmtpBk0y4/KF93Qx4I+F52BcFk1utvz9Hrw5GN48 +i3m7KI8mi/zgqF5TMNxyHCksvEgTxaUPni67ib59Rq4BrdPpKCPYEgwKpptS +OtCuZr5lr+4EwzbBW4YT6MxlsY/2/xcM/iHlCwwv0USu/8qijlfBoEabht9D +q/hLZ/vNBsPDTbmr3hTifgLZpSn6TPBcPrPgfTFNLufQ0U6GTHjQXxxJo5d2 +T5pLGzOBfy6z8w+abTPbU7qeCbdmNZnyl2n8f/HwdloyYdcutcXuaLFZCe/F +W5iwk8c95C76Q5rBgvwwJrRM7JjJKaHJlgdGPdsjmDAcxsdfgm7hMc3X2c2E +8YJGgavonGhzg7YYJtwhBz4+Rjt52waNJDDhcLjbGt5SmjSqeDdqpGJfvlkR +C53enLjjxmUmSH/JZaiV0SRMN8skrpQJvU2pL9ahHcpqFxiXM+Gl/0eyAb0w +a7TseiUTJIY+T7qhU6JcxhquMoEl8fv1AXSiusrOa21M8K0uvfIKHZr1aFfd +OyZce1TgeaCcJpvFRs2iBpnwu3Vobyp6dQqPqO57Jnx/HJeWiR6NMqisHWHC +9ObL2aXoIKf8iZovTPhaM6bdhfaaFx1e/YMJ5XS8j8IVmthGy0VWSLGgdJhd +Wo1uyz9id1qGBc1FBusa0WadkypxciyYCeqtaEPrqD56bbWcBa/OL0vqRcu+ +TLB6o8oCs976Yz/Q46b9UgsNWCCp4LnBsoImJ/kKbm13Y0Eun9GKDvTCtSLZ +jltZcP66skQX+rBvXJSeJwt4/tsy8xIdd9Vl1V8fFtxxj/jfR3QQxZtxjsEC +kay8zYKV+L0+ZDDv7WbBgxRDKwv0ywxVYeVTLLhZIJ5fia4ioiGfMljAIdXH +69GHJ761V55hQaiBSlgjWndze5JxFvZuPyl2D53OEzzpeIEFprT/ozfojREF +r+MqWODyvxRNoSqaKCgcMzSvYsH1zZ6UCPrbw4gz/DUseNwylymBvqRGHNPr +WXArqqxLHv27v7+1sIkFVxKv31mLvuogX/qkgwXksn7qVvTxH3zzMh9if+oL +cR80o3QsyLuTBUf2Wp7wR4sLNMl/eMoCI+m9QdvRu5q9Tn5/wYL/+dmlxKGV +15yLVRlhQZmiW102+sfL/d2fR1nAfy4iJRfdlcLSqf7Egl71LY4F6KQh/TGT +LyzYd5LRXILuy+7e5jyFPfUN4g3o00ISNvG8FOjIjuV3oW9O9vvG8FOQkxgt +34P+2F8eFT6PAnG778deos2uWhcwFlAwOThn8g49Ghj3006CguS9t6fGuP0O +NottllBgfF757wR6vdFidSJJwar7B3/R6FOiFR56shR0y2g8nuGuNw3Uyq+k +IM1+zX3eappQxRUdksp4valnkAD61Kl9A4tU8X4rEtmC6FFqiaiAOgXCQxXv +hLnrS2xDvuhQcH66UEoS3fRnSfKoLgURzqkW0uiRz4NnB/UpGH5P+cuiTVvj +7/YYU3Cc5g1XQH/YVbX8FlDgdrjpgwpazCvB4Lol7j/ZMV8NbWK1yaHWmoLB +zb32q9Hpsu/3FW+ioKyqLV4DfUOg+lS+HQVif1b91kQPcxJKchwo0DxycLc2 +2vi+ZG+aC/bdENdZh2bUvh8/6kqBqtLGeF10Wm413z/u2GcZ0aCHfh+1WSfW +i4Iiw1wBQ7Sov5RtpA8FFt35UkbceZuHt4X6UbCh6ZycMff6FfuP+wdScHu+ +/5wJt2eh3SUvBgWm1trPTbnzpqUaXZkU/Nz9NW89d97Q8FMHigKT5BJfM+68 +zprRjSEU7PFxEd7A7bu+/zeE4vucGq/gOu2S3dL1uyiIXh8P5tz5adIaBuEU +1Kr8vMf1+7gPFmsjKRi/FL6BoEWYtV7qURSsuNJzmWsj56QI5RgKsvS0+IA7 +39T+iEIsBR/04py5PqEqkycdR8HnomvpXDeIj9RLxFPw+MDIba6HftY+FE6k +QOSu0DDXIh+ThuYlURAcsmyOa8Pn9nN/kykYCVf+y/X/Adk5Nf0= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + "PlotRange" -> {{0, 180}, {0.9586476411387265, 1.0427865949958968`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5082122808512888}, + "AxesOrigin" -> {0, 0.9586476411387286}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10065,7 +10849,8 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5082122808512888}, + AxesOrigin->{0, 0.9586476411387286}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -10093,7 +10878,8 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.9586476411387265, 1.0427865949958968`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -10101,9 +10887,9 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913242457281837`*^9}, + CellChangeTimes->{3.9913242457281837`*^9, 3.9942585249707747`*^9}, CellLabel-> - "Out[111]=",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] + "Out[127]=",ExpressionUUID->"8f0c9168-fa51-4cbe-bee4-131e336dcda0"] }, Open ]], Cell[CellGroupData[{ @@ -10118,30 +10904,33 @@ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -10166,158 +10955,161 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.9917997871187477`*^9, - 3.991799792469698*^9}},ExpressionUUID->"8faa67fd-f295-ea48-b116-\ -d12d9d52c36b"], + CellChangeTimes->{{3.9917997871187477`*^9, 3.991799792469698*^9}}, + CellLabel-> + "In[128]:=",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.955409411483839`*^-270\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 112, - 45, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991324246104725*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.099952297981916`*^-279\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 128, + 41, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991324246104725*^9, 3.994258525157102*^9}, CellLabel-> "During evaluation of \ -In[112]:=",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], +In[128]:=",ExpressionUUID->"761f7d29-2baf-43d1-9fb2-c0cb9f645c0f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.877419838456823`*^-281\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 112, 46, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913242461217346`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.6944883328767256`*^-292\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 128, + 42, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991324246104725*^9, 3.994258525165545*^9}, CellLabel-> "During evaluation of \ -In[112]:=",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], +In[128]:=",ExpressionUUID->"6a47ac4b-972f-46fb-81f4-08fdd1bf3487"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.990320554242227`*^-292\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 112, 47, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913242461427383`*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.2623706246208`*^-306\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 128, + 43, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991324246104725*^9, 3.994258525175928*^9}, CellLabel-> "During evaluation of \ -In[112]:=",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], +In[128]:=",ExpressionUUID->"aabe556b-3493-4315-8f17-667f3d5e945d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 112, 48, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991324246159645*^9}, +during this calculation.\"", 2, 128, 44, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991324246104725*^9, 3.994258525184482*^9}, CellLabel-> "During evaluation of \ -In[112]:=",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], +In[128]:=",ExpressionUUID->"745a3a0a-64c9-456e-848d-25456115f2ea"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh -pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC -C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe -hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T -4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O -+QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb -dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X -rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd -P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt -SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw -OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB -tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq -YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq -QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h -khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV -JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw -hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq -o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg -PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN -QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS -mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH -hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i -2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv -x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 -GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq -6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY -FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 -jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf -uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en -6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s -jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN -Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld -nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 -kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n -lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 -NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN -cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa -aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu -oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC -gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv -xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb -Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q -pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp -bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE -YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 -Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv -857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG -rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA -vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B -ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 -UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l -49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU -/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj -ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF -vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz -056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm -0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx -4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 -8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ -LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa -D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP -jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU -KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG -Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 -DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x -F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 -yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN -JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa -azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t -c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh -P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa -M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg -5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o -r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D -2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi -ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq -y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt -r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb -32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ -lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M -D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL -QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg -YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY -F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu -Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r -4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH -99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn -4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ -uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs - + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VHsYB3BdFSUSWbPMnDMz9rUiMt7XkoqLUlp0QxlbIbdFoi6RoiLR +IimSrJk5pISSpE1M6coeJW0qlF1c9/hrns/zzPM7v/c9v9/3eQ9z5x4X7z9E +RETmzBIRmfkd6XxewzqVZclpHK3RyrSwbLyqeMiqJQoeHb4rO9tWGVDu5U7F +liSo+iEd9MxGG0LW5TeLtmTC/f8K7TJtzGFRn0LSeHMxhISJvA+0sYeue057 +hpqr4VROgp/Q2g3sWL1vfza/htser0v9cReMN5ueH2juBgmmMOujSRg8ssnJ +asgchGyD2FIm+xSodJV92qk7BTJTnGHX0WRYHOCRL2Yjihcn2/c7iqZCkpFd +hZOrOI7tK+zuU8+A1hTDqp/Skjhw5vG7odZMOJUV8fIPpUX4o/WO8XTSDVA4 +9yEu+Yos9sSlnVWdzIETG9davh6Rw9rR7u6kiTxQLhEq/zFLHsssv2PuH/nA +l904aiQhj4Je1dK78/Oh6bU7dVZdHokc9pda5Xxgrd9PrF8jj9FiDtYl5vlQ +7Zg+99UleazSVBJPPZQPU3bDwnoLBaz5WHerYDAf9pld83gepYj9Om/8KloK +wD5DasjhtCLKrW02UukqAELscKzwvCLmJ+2JC/1YAK8aNxX9m6uInPxj3eSv +AtAPXiDaKVREcl2wwSqJm/Al+2D2L2UlfHL4SkORxU34a7HTjyW3lJB1dL6H +YdpNsO2fCAv6oIw+10tvChwL4dCac9oPvyujG+fCvSaXQuBf02uTHVFGytVz +3/jmQlDc6GlWJr4EM8oXvDHaWQjf7z4eFdVfgsJ/N/CCQgohOSpx/6XQJfgP +RifJXy2EbjlOUI2kCkp96vAiegtBYc8DVQUFFQxfZCNT2VcIfz7bUu/PUEF7 +bUue62Ah3Ak7pbtwqQpObxT+CpkshJNdA71bt6ig238JZTFSfDDOq/Dtz1RB +YVF5b4MRH45arN+hvEIVM1sYv1kH+LDG/eovU2tVZIyZuMYf4oNU5Ldo1z9V +8Z/+ifiBI3xIexSTneipitqTc9JyjvPhrn35t7lxqpiPtXotF/kwsIUMGWxV +RfPd1FqbMj64Hxg+WReuhgd1mGXWY3xgX7RW6Y1Rw0uXDS3FJvl0/WcKxRLV +8Ov+HblPpvkQNqn1yjpLDVvnu+iZiAngfLS7XFmdGr4O/DirRU4AdWefpt9Q +VceDHr9VNYwFYM6/VPLPA3UU6c/MG/YRgG2zcKrvmTpe6e+deu8vACeR2as9 +XqvjvN6S3ucBAvByCWqFj+r4+Z7DmdN7BWAXzoyInMNAuw+chW+PCCBYfeS6 +lQ4DlYa6rAqSBVDjm/7jUQgDty1k+k9XCGDtpJnM4XAGLjxSnuJRKQBhYqPJ +skgGOk+mBlVUCaC1bF5kVhwDkw9oL/R5LIA+if0yMWkMTHCLMzohFIAitcbU +rpqBDuqJQeNdAggY+xn5TJKJTlbs89em6Xr+9pH/JMNEucFtAS9FKBDvbSsQ +VWRioNrSky9mUXCj/VGTJcHEitspK++JUtBZeV73tgkTP963iYwQo8A5xqzl +mgcT6z6YfouXokDtv8LABzwmVqdVH+EtpOB7CCH61p+JFypbk1ZIUxDrJ6Gv +uJ+JLY477VoXUVDl8DY6IZaJ5l9+dk4upsBY5qhBeBET774vXFGvTIHIqeGa +lDtM9Og+oHl4CQVC0V1udyqYmMbsuaapQsHuYZeYn4+ZOHw+YWmYKgVZLax2 +3zZ6v0XmXdPqFOxdfyk4pouJiR+ctS4zKMBaybnXe5hYPPxKZBmTgrcVI4ad +fUxUTp7t5k5QIJ/+7PhGUQL7G19Xn2dR0KPAVdkrTuBj1Z4YVTYFxYlFRWck +CUz64NCWSds5KrWjVoHAcgl1s2wOXZ93gLGVLoG3I4Y6zmhSsKnz3VN3IwJz +vJtWzNaigLXZdfthEwLP3lfVDqFdtcYythQJ3NTTJ3TRpmBcR7pTz5VAG0kz +w34dCkauKB9d6kbgC4nvx5x0KRhayGaZeRCoszc0roB236DZLlt/AqMLySx3 +PQq+edtK2gcRGNJtV1FC+0uzE+W8j8Drln8eE9enoLvCa8TtCIGNZRL6ebS7 +9IIueUYR2I7ChSO0O9JDLXxOEBhfGX0DDShoio6P+vss/fwfb/uEtGsdSqVi +bxB4WUVM/JUhBU/vPyyKzydwRatcynwjCmoM6jYmCwi8Irn+nTXtStn3qVfL +CNw4tvfyTdoVMd+4WZUEagwFLuykfXd0+F3eIwINft3nShrT/W2fr3G7nkCl +5pMveLQFjnK15a8JtOxR142nffOBemBVM4FRYL72Fu08I23pJx0EPjDwJZtp +Z19fduvFewJ5Icsqxmhfl4NNDZ8IlHY2XKS4lIKME2vHm74R6LznK3s57Svj +G9I6Bgi0mts/7kw7dbc7dA8T6HLvVbwf7Ytv/bo/TxD4tlit+x/a55z3xfyY +ps9HtP9oEu2zD49oDs4mscvKWphFO2Fp7IuxeSRKHjT3LaF96kZS0H9SJJ5m +91Q/pB2rcGXR7MUk1j9peF9HOyYup2SeEombHS7UvKEd9bto80I1EoOUH+/u +oB0ReG9iMUli5aJfze9oH+56ckVZk0TlmKJ5H2gfWt+ADD0SF1mmzJpxyKP2 +D2xjEu+Er6ya+f++5Z+O65iSyP1laDezXnDOgJaRBYk3a6XOzTwvSOl3nYkV +iWczd+fP7Gf3qTnBFnYkZp3qjJvZr9/UQllrBxIPS0wbz9Tjs0f5zup19HpL +vLNn6vV6z9rq6EoiaOT1zPTDc4PBpIsbiQ+leH0z/dr+2Cx9iweJKaRBzUw/ +3Uxtrd15JDZpZfmso71xydZY/yASZTcOyyrRXh/vpbNnH4nxK8QYE/T7c5oO +FO4PJfF2gv7vFtprPkQtjowikdmrx0ykvco1vjTmBIkdyyDQj7b104tup06T +mBDectKStkXBzYwLF0gMdVHm9tDnrZ1RkL7qMon3cyo0SmmHXci7OpRO4vaB +Sv1Y2qVHs9Nc8kh0+DiQzKK9aTTr8iw+3S82OdhPn/ehgOupVDGJjKOVwWW0 +jbdkpEjdI9HdYuVzO9oN9Vcv3q8ikaombsynHWxz5ULAYxJzqYhrdfT94eun +nqsVkuh4Nm/KnrbWnHOJx9+TGHuX62JE379nYUlnln+i+5PshJ/o++szkJjQ +00viq8xJl0u0s9rjT1sP0fUa2X8Zp+8/o/hE7H9zWchZ8ff7LDov5D3CI0N0 +WSjbxIjJpPPnduOhCLYRC3cF8CfNaG+0D/2ncTkLLwx5XXupQUHS8gOHjYGF +LyX27x+m80tywZ7QvvUsDGYdWKdD59vssp3BPgdZ+PSZ6zak8/K6/o49codZ +yGhY87mczlPrLI+gmkgWmnLN85bSjjjzVwBxkoVk6+YGdTp/J7w3+XWmsbDn +q311N53XP2XsPTdVs3DtPvdsWUUKWgKIV7uesvBJwrA0T4HOwycTEFHHws4n +p3cXy1OQGFagntvEwgAfanCNHAWG3Qu6xntZKPowibddhj6/RS+3X5Fl44QN +O5i1gH5fErn1RYps/CplsGyjBAWW3pHcJ6ps/HeOydDR+XR9Skaq/RpsbBZf +vbtZnM6TyKQOtGCjaESr/a45FPQ6u27r4bHRdOfYqOekAF7n6b0Y82djuYiw +NHJCAOWic1dK7mFjVOSa2LQxAcSV3lE2OcTG7prAHc+GBKCprth2Ip6Nm0P9 +GD+/C8C3r22Lzh02ejRmG8d2CKDntOemvWIcnBV3trH5rgCCenUJwwUcnBsZ +LX7jjgBGV4//+CHNQTnDnb+DSgQwXzQpxl+Zg1WPzchxgQAMDz0q8dSjvfJ2 +xqdsARzx5sg6b+Cg2SznCI1zApC3/P5SJ52DJ1vX2djT80fG5buXv17nYPss +xs8iej7RGj/mm5PLQdufFnHyvgKwKFGdJoo5yFn18UjTDnpe0XbWV37MwQDV +nHSjzQKg5ItPi3/jIN/p+W9XK3oe6T+49qOJBn1+Ujo9ZQWgYqR2XNxCA204 +Yh2a0vT8sbemWsdKA7ucJ4J+LBDAuRFpi70OGhiyI++vgLkC6JzK05/20MAB +zps4q3E+7F3QIasUp4FthqMP7Tv5kKqFnX+2a6C32lDwxxv0vOYlvq8kQhMN +xfrkruvwoe+q7f0HxzTR7R3eKNLgQ39rpNiLOE3ccOHktvskH345j19+n6yJ +9upM27olfBhd2VsjlauJGfnmps8k+PDH4jp5/1eamFd/a5n5t0JQqjlTrsrU +QsXqR4tkcwvp7xmFP05Ua+Gm8szPk0qFIFPPSaD6tXGu3Kr81tECUIkVrDMx +0cWMh+d7V1zNhxQdM2lZXz0kPGudcm3zoFbZavngWX2cqtBZze7OAXOV6kSD +JgMsvLZC4rdrNkiJZu7fEWWI/r/6/G91ZoHaUXWLrRwjDLokusJl9XWYx/7r +jstTIwyojfXNqrgG+lwlwcHtxsiw7S/iumTA3k6ZR/YiS7HH1Tcw6uYV6B88 +7bo2ZSl+DjX2miV6GVYbPEldq7cMF+dvmYKYFKgcXPl7VLgMo8Mml1ePnIcg +XeO2Bu/leOB4x+yHZcnA7eM1bp1ngvPn1ct7HDwLq1iKjpKZJhgY7bwqRvwM +aEaeDK02NcXR9nu3hVGnQNvb7AG7zRT7Zkv78+fEgnel37GSv1egQ1XW7SeL +YuBBRiPvp5wZJkuEbx42iIKh3OlRg1IzTA1Pv3hyQwR4sQvmpTqaY+miJb+d +meHwUzvZpHjAHGtk8mXGlQ7C3azf74djV2IfV2vfdO0+cLMlcaWaBfp5HCPX +DwTDksATZfpVFujzZ+Mvl7AAkJsfUOS4mYuOy9Y3dKv4QZbNkbCBrVwMKTMo +rJnvB8ZHEmyS/+JicZENq3jMF5wGqDctO7ioPuVZL2j0heNNw+NeAVxkb5MI +XB7vC2OZEdZhR7nYVqY9yBPxhbaVyf9mF3DxYtSzz3r93uB3ICttLZ+L/ULJ +NaGd3jDCv+39neJiyidBYn29N8gQLaNGd7g4+Xne45Sb3uAgrqpyv4qLPX4e +jKJd3nCvMZv37xsuPg2PaOn5wgN7qbt6IS1cZF7z02tv4UHL6ucjiu1c9Cxx +lu14xoOh8m+x7u+4GNfy9+GpXB7oXTMs/NrLxU9XhbqV/jy412YVcvoHF+fk +eu8Vd6PXW7wBDAa4KP60UXW7PQ98Thxo2D9MW6kmka1Dr1d1PFVhjIuXd552 +vLSEB1ETF73KJ7j4fOCem8ICHkgvy9PdPsXFsoip4vRJL7gaWD48Pc3Ft3aj +64x/eMH/rrdk7w== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -10331,117 +11123,116 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh -pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC -C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe -hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T -4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O -+QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb -dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X -rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd -P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt -SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw -OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB -tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq -YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq -QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h -khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV -JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw -hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq -o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg -PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN -QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS -mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH -hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i -2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv -x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 -GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq -6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY -FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 -jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf -uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en -6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s -jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN -Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld -nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 -kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n -lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 -NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN -cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa -aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu -oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC -gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv -xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb -Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q -pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp -bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE -YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 -Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv -857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG -rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA -vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B -ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 -UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l -49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU -/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj -ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF -vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz -056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm -0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx -4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 -8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ -LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa -D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP -jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU -KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG -Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 -DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x -F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 -yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN -JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa -azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t -c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh -P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa -M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg -5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o -r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D -2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi -ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq -y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt -r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb -32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ -lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M -D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL -QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg -YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY -F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu -Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r -4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH -99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn -4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ -uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs - +1:eJwV13k4VHsYB3BdFSUSWbPMnDMz9rUiMt7XkoqLUlp0QxlbIbdFoi6RoiLR +IimSrJk5pISSpE1M6coeJW0qlF1c9/hrns/zzPM7v/c9v9/3eQ9z5x4X7z9E +RETmzBIRmfkd6XxewzqVZclpHK3RyrSwbLyqeMiqJQoeHb4rO9tWGVDu5U7F +liSo+iEd9MxGG0LW5TeLtmTC/f8K7TJtzGFRn0LSeHMxhISJvA+0sYeue057 +hpqr4VROgp/Q2g3sWL1vfza/htser0v9cReMN5ueH2juBgmmMOujSRg8ssnJ +asgchGyD2FIm+xSodJV92qk7BTJTnGHX0WRYHOCRL2Yjihcn2/c7iqZCkpFd +hZOrOI7tK+zuU8+A1hTDqp/Skjhw5vG7odZMOJUV8fIPpUX4o/WO8XTSDVA4 +9yEu+Yos9sSlnVWdzIETG9davh6Rw9rR7u6kiTxQLhEq/zFLHsssv2PuH/nA +l904aiQhj4Je1dK78/Oh6bU7dVZdHokc9pda5Xxgrd9PrF8jj9FiDtYl5vlQ +7Zg+99UleazSVBJPPZQPU3bDwnoLBaz5WHerYDAf9pld83gepYj9Om/8KloK +wD5DasjhtCLKrW02UukqAELscKzwvCLmJ+2JC/1YAK8aNxX9m6uInPxj3eSv +AtAPXiDaKVREcl2wwSqJm/Al+2D2L2UlfHL4SkORxU34a7HTjyW3lJB1dL6H +YdpNsO2fCAv6oIw+10tvChwL4dCac9oPvyujG+fCvSaXQuBf02uTHVFGytVz +3/jmQlDc6GlWJr4EM8oXvDHaWQjf7z4eFdVfgsJ/N/CCQgohOSpx/6XQJfgP +RifJXy2EbjlOUI2kCkp96vAiegtBYc8DVQUFFQxfZCNT2VcIfz7bUu/PUEF7 +bUue62Ah3Ak7pbtwqQpObxT+CpkshJNdA71bt6ig238JZTFSfDDOq/Dtz1RB +YVF5b4MRH45arN+hvEIVM1sYv1kH+LDG/eovU2tVZIyZuMYf4oNU5Ldo1z9V +8Z/+ifiBI3xIexSTneipitqTc9JyjvPhrn35t7lxqpiPtXotF/kwsIUMGWxV +RfPd1FqbMj64Hxg+WReuhgd1mGXWY3xgX7RW6Y1Rw0uXDS3FJvl0/WcKxRLV +8Ov+HblPpvkQNqn1yjpLDVvnu+iZiAngfLS7XFmdGr4O/DirRU4AdWefpt9Q +VceDHr9VNYwFYM6/VPLPA3UU6c/MG/YRgG2zcKrvmTpe6e+deu8vACeR2as9 +XqvjvN6S3ucBAvByCWqFj+r4+Z7DmdN7BWAXzoyInMNAuw+chW+PCCBYfeS6 +lQ4DlYa6rAqSBVDjm/7jUQgDty1k+k9XCGDtpJnM4XAGLjxSnuJRKQBhYqPJ +skgGOk+mBlVUCaC1bF5kVhwDkw9oL/R5LIA+if0yMWkMTHCLMzohFIAitcbU +rpqBDuqJQeNdAggY+xn5TJKJTlbs89em6Xr+9pH/JMNEucFtAS9FKBDvbSsQ +VWRioNrSky9mUXCj/VGTJcHEitspK++JUtBZeV73tgkTP963iYwQo8A5xqzl +mgcT6z6YfouXokDtv8LABzwmVqdVH+EtpOB7CCH61p+JFypbk1ZIUxDrJ6Gv +uJ+JLY477VoXUVDl8DY6IZaJ5l9+dk4upsBY5qhBeBET774vXFGvTIHIqeGa +lDtM9Og+oHl4CQVC0V1udyqYmMbsuaapQsHuYZeYn4+ZOHw+YWmYKgVZLax2 +3zZ6v0XmXdPqFOxdfyk4pouJiR+ctS4zKMBaybnXe5hYPPxKZBmTgrcVI4ad +fUxUTp7t5k5QIJ/+7PhGUQL7G19Xn2dR0KPAVdkrTuBj1Z4YVTYFxYlFRWck +CUz64NCWSds5KrWjVoHAcgl1s2wOXZ93gLGVLoG3I4Y6zmhSsKnz3VN3IwJz +vJtWzNaigLXZdfthEwLP3lfVDqFdtcYythQJ3NTTJ3TRpmBcR7pTz5VAG0kz +w34dCkauKB9d6kbgC4nvx5x0KRhayGaZeRCoszc0roB236DZLlt/AqMLySx3 +PQq+edtK2gcRGNJtV1FC+0uzE+W8j8Drln8eE9enoLvCa8TtCIGNZRL6ebS7 +9IIueUYR2I7ChSO0O9JDLXxOEBhfGX0DDShoio6P+vss/fwfb/uEtGsdSqVi +bxB4WUVM/JUhBU/vPyyKzydwRatcynwjCmoM6jYmCwi8Irn+nTXtStn3qVfL +CNw4tvfyTdoVMd+4WZUEagwFLuykfXd0+F3eIwINft3nShrT/W2fr3G7nkCl +5pMveLQFjnK15a8JtOxR142nffOBemBVM4FRYL72Fu08I23pJx0EPjDwJZtp +Z19fduvFewJ5Icsqxmhfl4NNDZ8IlHY2XKS4lIKME2vHm74R6LznK3s57Svj +G9I6Bgi0mts/7kw7dbc7dA8T6HLvVbwf7Ytv/bo/TxD4tlit+x/a55z3xfyY +ps9HtP9oEu2zD49oDs4mscvKWphFO2Fp7IuxeSRKHjT3LaF96kZS0H9SJJ5m +91Q/pB2rcGXR7MUk1j9peF9HOyYup2SeEombHS7UvKEd9bto80I1EoOUH+/u +oB0ReG9iMUli5aJfze9oH+56ckVZk0TlmKJ5H2gfWt+ADD0SF1mmzJpxyKP2 +D2xjEu+Er6ya+f++5Z+O65iSyP1laDezXnDOgJaRBYk3a6XOzTwvSOl3nYkV +iWczd+fP7Gf3qTnBFnYkZp3qjJvZr9/UQllrBxIPS0wbz9Tjs0f5zup19HpL +vLNn6vV6z9rq6EoiaOT1zPTDc4PBpIsbiQ+leH0z/dr+2Cx9iweJKaRBzUw/ +3Uxtrd15JDZpZfmso71xydZY/yASZTcOyyrRXh/vpbNnH4nxK8QYE/T7c5oO +FO4PJfF2gv7vFtprPkQtjowikdmrx0ykvco1vjTmBIkdyyDQj7b104tup06T +mBDectKStkXBzYwLF0gMdVHm9tDnrZ1RkL7qMon3cyo0SmmHXci7OpRO4vaB +Sv1Y2qVHs9Nc8kh0+DiQzKK9aTTr8iw+3S82OdhPn/ehgOupVDGJjKOVwWW0 +jbdkpEjdI9HdYuVzO9oN9Vcv3q8ikaombsynHWxz5ULAYxJzqYhrdfT94eun +nqsVkuh4Nm/KnrbWnHOJx9+TGHuX62JE379nYUlnln+i+5PshJ/o++szkJjQ +00viq8xJl0u0s9rjT1sP0fUa2X8Zp+8/o/hE7H9zWchZ8ff7LDov5D3CI0N0 +WSjbxIjJpPPnduOhCLYRC3cF8CfNaG+0D/2ncTkLLwx5XXupQUHS8gOHjYGF +LyX27x+m80tywZ7QvvUsDGYdWKdD59vssp3BPgdZ+PSZ6zak8/K6/o49codZ +yGhY87mczlPrLI+gmkgWmnLN85bSjjjzVwBxkoVk6+YGdTp/J7w3+XWmsbDn +q311N53XP2XsPTdVs3DtPvdsWUUKWgKIV7uesvBJwrA0T4HOwycTEFHHws4n +p3cXy1OQGFagntvEwgAfanCNHAWG3Qu6xntZKPowibddhj6/RS+3X5Fl44QN +O5i1gH5fErn1RYps/CplsGyjBAWW3pHcJ6ps/HeOydDR+XR9Skaq/RpsbBZf +vbtZnM6TyKQOtGCjaESr/a45FPQ6u27r4bHRdOfYqOekAF7n6b0Y82djuYiw +NHJCAOWic1dK7mFjVOSa2LQxAcSV3lE2OcTG7prAHc+GBKCprth2Ip6Nm0P9 +GD+/C8C3r22Lzh02ejRmG8d2CKDntOemvWIcnBV3trH5rgCCenUJwwUcnBsZ +LX7jjgBGV4//+CHNQTnDnb+DSgQwXzQpxl+Zg1WPzchxgQAMDz0q8dSjvfJ2 +xqdsARzx5sg6b+Cg2SznCI1zApC3/P5SJ52DJ1vX2djT80fG5buXv17nYPss +xs8iej7RGj/mm5PLQdufFnHyvgKwKFGdJoo5yFn18UjTDnpe0XbWV37MwQDV +nHSjzQKg5ItPi3/jIN/p+W9XK3oe6T+49qOJBn1+Ujo9ZQWgYqR2XNxCA204 +Yh2a0vT8sbemWsdKA7ucJ4J+LBDAuRFpi70OGhiyI++vgLkC6JzK05/20MAB +zps4q3E+7F3QIasUp4FthqMP7Tv5kKqFnX+2a6C32lDwxxv0vOYlvq8kQhMN +xfrkruvwoe+q7f0HxzTR7R3eKNLgQ39rpNiLOE3ccOHktvskH345j19+n6yJ +9upM27olfBhd2VsjlauJGfnmps8k+PDH4jp5/1eamFd/a5n5t0JQqjlTrsrU +QsXqR4tkcwvp7xmFP05Ua+Gm8szPk0qFIFPPSaD6tXGu3Kr81tECUIkVrDMx +0cWMh+d7V1zNhxQdM2lZXz0kPGudcm3zoFbZavngWX2cqtBZze7OAXOV6kSD +JgMsvLZC4rdrNkiJZu7fEWWI/r/6/G91ZoHaUXWLrRwjDLokusJl9XWYx/7r +jstTIwyojfXNqrgG+lwlwcHtxsiw7S/iumTA3k6ZR/YiS7HH1Tcw6uYV6B88 +7bo2ZSl+DjX2miV6GVYbPEldq7cMF+dvmYKYFKgcXPl7VLgMo8Mml1ePnIcg +XeO2Bu/leOB4x+yHZcnA7eM1bp1ngvPn1ct7HDwLq1iKjpKZJhgY7bwqRvwM +aEaeDK02NcXR9nu3hVGnQNvb7AG7zRT7Zkv78+fEgnel37GSv1egQ1XW7SeL +YuBBRiPvp5wZJkuEbx42iIKh3OlRg1IzTA1Pv3hyQwR4sQvmpTqaY+miJb+d +meHwUzvZpHjAHGtk8mXGlQ7C3azf74djV2IfV2vfdO0+cLMlcaWaBfp5HCPX +DwTDksATZfpVFujzZ+Mvl7AAkJsfUOS4mYuOy9Y3dKv4QZbNkbCBrVwMKTMo +rJnvB8ZHEmyS/+JicZENq3jMF5wGqDctO7ioPuVZL2j0heNNw+NeAVxkb5MI +XB7vC2OZEdZhR7nYVqY9yBPxhbaVyf9mF3DxYtSzz3r93uB3ICttLZ+L/ULJ +NaGd3jDCv+39neJiyidBYn29N8gQLaNGd7g4+Xne45Sb3uAgrqpyv4qLPX4e +jKJd3nCvMZv37xsuPg2PaOn5wgN7qbt6IS1cZF7z02tv4UHL6ucjiu1c9Cxx +lu14xoOh8m+x7u+4GNfy9+GpXB7oXTMs/NrLxU9XhbqV/jy412YVcvoHF+fk +eu8Vd6PXW7wBDAa4KP60UXW7PQ98Thxo2D9MW6kmka1Dr1d1PFVhjIuXd552 +vLSEB1ETF73KJ7j4fOCem8ICHkgvy9PdPsXFsoip4vRJL7gaWD48Pc3Ft3aj +64x/eMH/rrdk7w== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "PlotRange" -> {{0, 30}, {0., 0.06329173075348074}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -10453,19 +11244,19 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "PlotRange" -> {{0, 30}, {0., 0.06329173075348074}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10479,116 +11270,115 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh -pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC -C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe -hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T -4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O -+QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb -dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X -rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd -P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt -SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw -OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB -tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq -YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq -QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h -khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV -JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw -hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq -o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg -PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN -QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS -mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH -hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i -2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv -x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 -GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq -6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY -FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 -jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf -uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en -6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s -jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN -Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld -nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 -kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n -lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 -NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN -cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa -aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu -oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC -gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv -xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb -Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q -pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp -bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE -YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 -Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv -857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG -rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA -vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B -ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 -UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l -49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU -/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj -ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF -vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz -056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm -0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx -4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 -8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ -LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa -D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP -jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU -KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG -Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 -DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x -F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 -yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN -JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa -azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t -c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh -P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa -M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg -5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o -r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D -2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi -ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq -y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt -r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb -32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ -lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M -D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL -QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg -YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY -F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu -Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r -4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH -99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn -4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ -uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs - +1:eJwV13k4VHsYB3BdFSUSWbPMnDMz9rUiMt7XkoqLUlp0QxlbIbdFoi6RoiLR +IimSrJk5pISSpE1M6coeJW0qlF1c9/hrns/zzPM7v/c9v9/3eQ9z5x4X7z9E +RETmzBIRmfkd6XxewzqVZclpHK3RyrSwbLyqeMiqJQoeHb4rO9tWGVDu5U7F +liSo+iEd9MxGG0LW5TeLtmTC/f8K7TJtzGFRn0LSeHMxhISJvA+0sYeue057 +hpqr4VROgp/Q2g3sWL1vfza/htser0v9cReMN5ueH2juBgmmMOujSRg8ssnJ +asgchGyD2FIm+xSodJV92qk7BTJTnGHX0WRYHOCRL2Yjihcn2/c7iqZCkpFd +hZOrOI7tK+zuU8+A1hTDqp/Skjhw5vG7odZMOJUV8fIPpUX4o/WO8XTSDVA4 +9yEu+Yos9sSlnVWdzIETG9davh6Rw9rR7u6kiTxQLhEq/zFLHsssv2PuH/nA +l904aiQhj4Je1dK78/Oh6bU7dVZdHokc9pda5Xxgrd9PrF8jj9FiDtYl5vlQ +7Zg+99UleazSVBJPPZQPU3bDwnoLBaz5WHerYDAf9pld83gepYj9Om/8KloK +wD5DasjhtCLKrW02UukqAELscKzwvCLmJ+2JC/1YAK8aNxX9m6uInPxj3eSv +AtAPXiDaKVREcl2wwSqJm/Al+2D2L2UlfHL4SkORxU34a7HTjyW3lJB1dL6H +YdpNsO2fCAv6oIw+10tvChwL4dCac9oPvyujG+fCvSaXQuBf02uTHVFGytVz +3/jmQlDc6GlWJr4EM8oXvDHaWQjf7z4eFdVfgsJ/N/CCQgohOSpx/6XQJfgP +RifJXy2EbjlOUI2kCkp96vAiegtBYc8DVQUFFQxfZCNT2VcIfz7bUu/PUEF7 +bUue62Ah3Ak7pbtwqQpObxT+CpkshJNdA71bt6ig238JZTFSfDDOq/Dtz1RB +YVF5b4MRH45arN+hvEIVM1sYv1kH+LDG/eovU2tVZIyZuMYf4oNU5Ldo1z9V +8Z/+ifiBI3xIexSTneipitqTc9JyjvPhrn35t7lxqpiPtXotF/kwsIUMGWxV +RfPd1FqbMj64Hxg+WReuhgd1mGXWY3xgX7RW6Y1Rw0uXDS3FJvl0/WcKxRLV +8Ov+HblPpvkQNqn1yjpLDVvnu+iZiAngfLS7XFmdGr4O/DirRU4AdWefpt9Q +VceDHr9VNYwFYM6/VPLPA3UU6c/MG/YRgG2zcKrvmTpe6e+deu8vACeR2as9 +XqvjvN6S3ucBAvByCWqFj+r4+Z7DmdN7BWAXzoyInMNAuw+chW+PCCBYfeS6 +lQ4DlYa6rAqSBVDjm/7jUQgDty1k+k9XCGDtpJnM4XAGLjxSnuJRKQBhYqPJ +skgGOk+mBlVUCaC1bF5kVhwDkw9oL/R5LIA+if0yMWkMTHCLMzohFIAitcbU +rpqBDuqJQeNdAggY+xn5TJKJTlbs89em6Xr+9pH/JMNEucFtAS9FKBDvbSsQ +VWRioNrSky9mUXCj/VGTJcHEitspK++JUtBZeV73tgkTP963iYwQo8A5xqzl +mgcT6z6YfouXokDtv8LABzwmVqdVH+EtpOB7CCH61p+JFypbk1ZIUxDrJ6Gv +uJ+JLY477VoXUVDl8DY6IZaJ5l9+dk4upsBY5qhBeBET774vXFGvTIHIqeGa +lDtM9Og+oHl4CQVC0V1udyqYmMbsuaapQsHuYZeYn4+ZOHw+YWmYKgVZLax2 +3zZ6v0XmXdPqFOxdfyk4pouJiR+ctS4zKMBaybnXe5hYPPxKZBmTgrcVI4ad +fUxUTp7t5k5QIJ/+7PhGUQL7G19Xn2dR0KPAVdkrTuBj1Z4YVTYFxYlFRWck +CUz64NCWSds5KrWjVoHAcgl1s2wOXZ93gLGVLoG3I4Y6zmhSsKnz3VN3IwJz +vJtWzNaigLXZdfthEwLP3lfVDqFdtcYythQJ3NTTJ3TRpmBcR7pTz5VAG0kz +w34dCkauKB9d6kbgC4nvx5x0KRhayGaZeRCoszc0roB236DZLlt/AqMLySx3 +PQq+edtK2gcRGNJtV1FC+0uzE+W8j8Drln8eE9enoLvCa8TtCIGNZRL6ebS7 +9IIueUYR2I7ChSO0O9JDLXxOEBhfGX0DDShoio6P+vss/fwfb/uEtGsdSqVi +bxB4WUVM/JUhBU/vPyyKzydwRatcynwjCmoM6jYmCwi8Irn+nTXtStn3qVfL +CNw4tvfyTdoVMd+4WZUEagwFLuykfXd0+F3eIwINft3nShrT/W2fr3G7nkCl +5pMveLQFjnK15a8JtOxR142nffOBemBVM4FRYL72Fu08I23pJx0EPjDwJZtp +Z19fduvFewJ5Icsqxmhfl4NNDZ8IlHY2XKS4lIKME2vHm74R6LznK3s57Svj +G9I6Bgi0mts/7kw7dbc7dA8T6HLvVbwf7Ytv/bo/TxD4tlit+x/a55z3xfyY +ps9HtP9oEu2zD49oDs4mscvKWphFO2Fp7IuxeSRKHjT3LaF96kZS0H9SJJ5m +91Q/pB2rcGXR7MUk1j9peF9HOyYup2SeEombHS7UvKEd9bto80I1EoOUH+/u +oB0ReG9iMUli5aJfze9oH+56ckVZk0TlmKJ5H2gfWt+ADD0SF1mmzJpxyKP2 +D2xjEu+Er6ya+f++5Z+O65iSyP1laDezXnDOgJaRBYk3a6XOzTwvSOl3nYkV +iWczd+fP7Gf3qTnBFnYkZp3qjJvZr9/UQllrBxIPS0wbz9Tjs0f5zup19HpL +vLNn6vV6z9rq6EoiaOT1zPTDc4PBpIsbiQ+leH0z/dr+2Cx9iweJKaRBzUw/ +3Uxtrd15JDZpZfmso71xydZY/yASZTcOyyrRXh/vpbNnH4nxK8QYE/T7c5oO +FO4PJfF2gv7vFtprPkQtjowikdmrx0ykvco1vjTmBIkdyyDQj7b104tup06T +mBDectKStkXBzYwLF0gMdVHm9tDnrZ1RkL7qMon3cyo0SmmHXci7OpRO4vaB +Sv1Y2qVHs9Nc8kh0+DiQzKK9aTTr8iw+3S82OdhPn/ehgOupVDGJjKOVwWW0 +jbdkpEjdI9HdYuVzO9oN9Vcv3q8ikaombsynHWxz5ULAYxJzqYhrdfT94eun +nqsVkuh4Nm/KnrbWnHOJx9+TGHuX62JE379nYUlnln+i+5PshJ/o++szkJjQ +00viq8xJl0u0s9rjT1sP0fUa2X8Zp+8/o/hE7H9zWchZ8ff7LDov5D3CI0N0 +WSjbxIjJpPPnduOhCLYRC3cF8CfNaG+0D/2ncTkLLwx5XXupQUHS8gOHjYGF +LyX27x+m80tywZ7QvvUsDGYdWKdD59vssp3BPgdZ+PSZ6zak8/K6/o49codZ +yGhY87mczlPrLI+gmkgWmnLN85bSjjjzVwBxkoVk6+YGdTp/J7w3+XWmsbDn +q311N53XP2XsPTdVs3DtPvdsWUUKWgKIV7uesvBJwrA0T4HOwycTEFHHws4n +p3cXy1OQGFagntvEwgAfanCNHAWG3Qu6xntZKPowibddhj6/RS+3X5Fl44QN +O5i1gH5fErn1RYps/CplsGyjBAWW3pHcJ6ps/HeOydDR+XR9Skaq/RpsbBZf +vbtZnM6TyKQOtGCjaESr/a45FPQ6u27r4bHRdOfYqOekAF7n6b0Y82djuYiw +NHJCAOWic1dK7mFjVOSa2LQxAcSV3lE2OcTG7prAHc+GBKCprth2Ip6Nm0P9 +GD+/C8C3r22Lzh02ejRmG8d2CKDntOemvWIcnBV3trH5rgCCenUJwwUcnBsZ +LX7jjgBGV4//+CHNQTnDnb+DSgQwXzQpxl+Zg1WPzchxgQAMDz0q8dSjvfJ2 +xqdsARzx5sg6b+Cg2SznCI1zApC3/P5SJ52DJ1vX2djT80fG5buXv17nYPss +xs8iej7RGj/mm5PLQdufFnHyvgKwKFGdJoo5yFn18UjTDnpe0XbWV37MwQDV +nHSjzQKg5ItPi3/jIN/p+W9XK3oe6T+49qOJBn1+Ujo9ZQWgYqR2XNxCA204 +Yh2a0vT8sbemWsdKA7ucJ4J+LBDAuRFpi70OGhiyI++vgLkC6JzK05/20MAB +zps4q3E+7F3QIasUp4FthqMP7Tv5kKqFnX+2a6C32lDwxxv0vOYlvq8kQhMN +xfrkruvwoe+q7f0HxzTR7R3eKNLgQ39rpNiLOE3ccOHktvskH345j19+n6yJ +9upM27olfBhd2VsjlauJGfnmps8k+PDH4jp5/1eamFd/a5n5t0JQqjlTrsrU +QsXqR4tkcwvp7xmFP05Ua+Gm8szPk0qFIFPPSaD6tXGu3Kr81tECUIkVrDMx +0cWMh+d7V1zNhxQdM2lZXz0kPGudcm3zoFbZavngWX2cqtBZze7OAXOV6kSD +JgMsvLZC4rdrNkiJZu7fEWWI/r/6/G91ZoHaUXWLrRwjDLokusJl9XWYx/7r +jstTIwyojfXNqrgG+lwlwcHtxsiw7S/iumTA3k6ZR/YiS7HH1Tcw6uYV6B88 +7bo2ZSl+DjX2miV6GVYbPEldq7cMF+dvmYKYFKgcXPl7VLgMo8Mml1ePnIcg +XeO2Bu/leOB4x+yHZcnA7eM1bp1ngvPn1ct7HDwLq1iKjpKZJhgY7bwqRvwM +aEaeDK02NcXR9nu3hVGnQNvb7AG7zRT7Zkv78+fEgnel37GSv1egQ1XW7SeL +YuBBRiPvp5wZJkuEbx42iIKh3OlRg1IzTA1Pv3hyQwR4sQvmpTqaY+miJb+d +meHwUzvZpHjAHGtk8mXGlQ7C3azf74djV2IfV2vfdO0+cLMlcaWaBfp5HCPX +DwTDksATZfpVFujzZ+Mvl7AAkJsfUOS4mYuOy9Y3dKv4QZbNkbCBrVwMKTMo +rJnvB8ZHEmyS/+JicZENq3jMF5wGqDctO7ioPuVZL2j0heNNw+NeAVxkb5MI +XB7vC2OZEdZhR7nYVqY9yBPxhbaVyf9mF3DxYtSzz3r93uB3ICttLZ+L/ULJ +NaGd3jDCv+39neJiyidBYn29N8gQLaNGd7g4+Xne45Sb3uAgrqpyv4qLPX4e +jKJd3nCvMZv37xsuPg2PaOn5wgN7qbt6IS1cZF7z02tv4UHL6ucjiu1c9Cxx +lu14xoOh8m+x7u+4GNfy9+GpXB7oXTMs/NrLxU9XhbqV/jy412YVcvoHF+fk +eu8Vd6PXW7wBDAa4KP60UXW7PQ98Thxo2D9MW6kmka1Dr1d1PFVhjIuXd552 +vLSEB1ETF73KJ7j4fOCem8ICHkgvy9PdPsXFsoip4vRJL7gaWD48Pc3Ft3aj +64x/eMH/rrdk7w== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "PlotRange" -> {{0, 30}, {0., 0.06329173075348074}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10599,6 +11389,7 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -10626,7 +11417,8 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.13473082946272152`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06329173075348074}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -10634,22 +11426,574 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991324915847246*^9}, + CellChangeTimes->{3.991324915847246*^9, 3.994258982387042*^9}, CellLabel-> - "Out[112]=",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] + "Out[128]=",ExpressionUUID->"fe107dfe-f0da-4ff3-841a-d06a33cd3e2a"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{3.991799816909994*^9, 3.9918001103050213`*^9, - 3.991924419552084*^9},ExpressionUUID->"c5eb8b00-da53-e74c-9781-\ -4f98a6653ef7"], + 3.991924419552084*^9}, + CellLabel-> + "In[129]:=",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.991799819852022*^9, - 3.9917998213158054`*^9}},ExpressionUUID->"05df483d-64d7-9449-845e-\ -6e6b94590d4b"], + CellChangeTimes->{{3.991799819852022*^9, 3.9917998213158054`*^9}}, + CellLabel-> + "In[130]:=",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VHsYB3BdFSUSWbPMnDMz9rUiMt7XkoqLUlp0QxlbIbdFoi6RoiLR +IimSrJk5pISSpE1M6coeJW0qlF1c9/hrns/zzPM7v/c9v9/3eQ9z5x4X7z9E +RETmzBIRmfkd6XxewzqVZclpHK3RyrSwbLyqeMiqJQoeHb4rO9tWGVDu5U7F +liSo+iEd9MxGG0LW5TeLtmTC/f8K7TJtzGFRn0LSeHMxhISJvA+0sYeue057 +hpqr4VROgp/Q2g3sWL1vfza/htser0v9cReMN5ueH2juBgmmMOujSRg8ssnJ +asgchGyD2FIm+xSodJV92qk7BTJTnGHX0WRYHOCRL2Yjihcn2/c7iqZCkpFd +hZOrOI7tK+zuU8+A1hTDqp/Skjhw5vG7odZMOJUV8fIPpUX4o/WO8XTSDVA4 +9yEu+Yos9sSlnVWdzIETG9davh6Rw9rR7u6kiTxQLhEq/zFLHsssv2PuH/nA +l904aiQhj4Je1dK78/Oh6bU7dVZdHokc9pda5Xxgrd9PrF8jj9FiDtYl5vlQ +7Zg+99UleazSVBJPPZQPU3bDwnoLBaz5WHerYDAf9pld83gepYj9Om/8KloK +wD5DasjhtCLKrW02UukqAELscKzwvCLmJ+2JC/1YAK8aNxX9m6uInPxj3eSv +AtAPXiDaKVREcl2wwSqJm/Al+2D2L2UlfHL4SkORxU34a7HTjyW3lJB1dL6H +YdpNsO2fCAv6oIw+10tvChwL4dCac9oPvyujG+fCvSaXQuBf02uTHVFGytVz +3/jmQlDc6GlWJr4EM8oXvDHaWQjf7z4eFdVfgsJ/N/CCQgohOSpx/6XQJfgP +RifJXy2EbjlOUI2kCkp96vAiegtBYc8DVQUFFQxfZCNT2VcIfz7bUu/PUEF7 +bUue62Ah3Ak7pbtwqQpObxT+CpkshJNdA71bt6ig238JZTFSfDDOq/Dtz1RB +YVF5b4MRH45arN+hvEIVM1sYv1kH+LDG/eovU2tVZIyZuMYf4oNU5Ldo1z9V +8Z/+ifiBI3xIexSTneipitqTc9JyjvPhrn35t7lxqpiPtXotF/kwsIUMGWxV +RfPd1FqbMj64Hxg+WReuhgd1mGXWY3xgX7RW6Y1Rw0uXDS3FJvl0/WcKxRLV +8Ov+HblPpvkQNqn1yjpLDVvnu+iZiAngfLS7XFmdGr4O/DirRU4AdWefpt9Q +VceDHr9VNYwFYM6/VPLPA3UU6c/MG/YRgG2zcKrvmTpe6e+deu8vACeR2as9 +XqvjvN6S3ucBAvByCWqFj+r4+Z7DmdN7BWAXzoyInMNAuw+chW+PCCBYfeS6 +lQ4DlYa6rAqSBVDjm/7jUQgDty1k+k9XCGDtpJnM4XAGLjxSnuJRKQBhYqPJ +skgGOk+mBlVUCaC1bF5kVhwDkw9oL/R5LIA+if0yMWkMTHCLMzohFIAitcbU +rpqBDuqJQeNdAggY+xn5TJKJTlbs89em6Xr+9pH/JMNEucFtAS9FKBDvbSsQ +VWRioNrSky9mUXCj/VGTJcHEitspK++JUtBZeV73tgkTP963iYwQo8A5xqzl +mgcT6z6YfouXokDtv8LABzwmVqdVH+EtpOB7CCH61p+JFypbk1ZIUxDrJ6Gv +uJ+JLY477VoXUVDl8DY6IZaJ5l9+dk4upsBY5qhBeBET774vXFGvTIHIqeGa +lDtM9Og+oHl4CQVC0V1udyqYmMbsuaapQsHuYZeYn4+ZOHw+YWmYKgVZLax2 +3zZ6v0XmXdPqFOxdfyk4pouJiR+ctS4zKMBaybnXe5hYPPxKZBmTgrcVI4ad +fUxUTp7t5k5QIJ/+7PhGUQL7G19Xn2dR0KPAVdkrTuBj1Z4YVTYFxYlFRWck +CUz64NCWSds5KrWjVoHAcgl1s2wOXZ93gLGVLoG3I4Y6zmhSsKnz3VN3IwJz +vJtWzNaigLXZdfthEwLP3lfVDqFdtcYythQJ3NTTJ3TRpmBcR7pTz5VAG0kz +w34dCkauKB9d6kbgC4nvx5x0KRhayGaZeRCoszc0roB236DZLlt/AqMLySx3 +PQq+edtK2gcRGNJtV1FC+0uzE+W8j8Drln8eE9enoLvCa8TtCIGNZRL6ebS7 +9IIueUYR2I7ChSO0O9JDLXxOEBhfGX0DDShoio6P+vss/fwfb/uEtGsdSqVi +bxB4WUVM/JUhBU/vPyyKzydwRatcynwjCmoM6jYmCwi8Irn+nTXtStn3qVfL +CNw4tvfyTdoVMd+4WZUEagwFLuykfXd0+F3eIwINft3nShrT/W2fr3G7nkCl +5pMveLQFjnK15a8JtOxR142nffOBemBVM4FRYL72Fu08I23pJx0EPjDwJZtp +Z19fduvFewJ5Icsqxmhfl4NNDZ8IlHY2XKS4lIKME2vHm74R6LznK3s57Svj +G9I6Bgi0mts/7kw7dbc7dA8T6HLvVbwf7Ytv/bo/TxD4tlit+x/a55z3xfyY +ps9HtP9oEu2zD49oDs4mscvKWphFO2Fp7IuxeSRKHjT3LaF96kZS0H9SJJ5m +91Q/pB2rcGXR7MUk1j9peF9HOyYup2SeEombHS7UvKEd9bto80I1EoOUH+/u +oB0ReG9iMUli5aJfze9oH+56ckVZk0TlmKJ5H2gfWt+ADD0SF1mmzJpxyKP2 +D2xjEu+Er6ya+f++5Z+O65iSyP1laDezXnDOgJaRBYk3a6XOzTwvSOl3nYkV +iWczd+fP7Gf3qTnBFnYkZp3qjJvZr9/UQllrBxIPS0wbz9Tjs0f5zup19HpL +vLNn6vV6z9rq6EoiaOT1zPTDc4PBpIsbiQ+leH0z/dr+2Cx9iweJKaRBzUw/ +3Uxtrd15JDZpZfmso71xydZY/yASZTcOyyrRXh/vpbNnH4nxK8QYE/T7c5oO +FO4PJfF2gv7vFtprPkQtjowikdmrx0ykvco1vjTmBIkdyyDQj7b104tup06T +mBDectKStkXBzYwLF0gMdVHm9tDnrZ1RkL7qMon3cyo0SmmHXci7OpRO4vaB +Sv1Y2qVHs9Nc8kh0+DiQzKK9aTTr8iw+3S82OdhPn/ehgOupVDGJjKOVwWW0 +jbdkpEjdI9HdYuVzO9oN9Vcv3q8ikaombsynHWxz5ULAYxJzqYhrdfT94eun +nqsVkuh4Nm/KnrbWnHOJx9+TGHuX62JE379nYUlnln+i+5PshJ/o++szkJjQ +00viq8xJl0u0s9rjT1sP0fUa2X8Zp+8/o/hE7H9zWchZ8ff7LDov5D3CI0N0 +WSjbxIjJpPPnduOhCLYRC3cF8CfNaG+0D/2ncTkLLwx5XXupQUHS8gOHjYGF +LyX27x+m80tywZ7QvvUsDGYdWKdD59vssp3BPgdZ+PSZ6zak8/K6/o49codZ +yGhY87mczlPrLI+gmkgWmnLN85bSjjjzVwBxkoVk6+YGdTp/J7w3+XWmsbDn +q311N53XP2XsPTdVs3DtPvdsWUUKWgKIV7uesvBJwrA0T4HOwycTEFHHws4n +p3cXy1OQGFagntvEwgAfanCNHAWG3Qu6xntZKPowibddhj6/RS+3X5Fl44QN +O5i1gH5fErn1RYps/CplsGyjBAWW3pHcJ6ps/HeOydDR+XR9Skaq/RpsbBZf +vbtZnM6TyKQOtGCjaESr/a45FPQ6u27r4bHRdOfYqOekAF7n6b0Y82djuYiw +NHJCAOWic1dK7mFjVOSa2LQxAcSV3lE2OcTG7prAHc+GBKCprth2Ip6Nm0P9 +GD+/C8C3r22Lzh02ejRmG8d2CKDntOemvWIcnBV3trH5rgCCenUJwwUcnBsZ +LX7jjgBGV4//+CHNQTnDnb+DSgQwXzQpxl+Zg1WPzchxgQAMDz0q8dSjvfJ2 +xqdsARzx5sg6b+Cg2SznCI1zApC3/P5SJ52DJ1vX2djT80fG5buXv17nYPss +xs8iej7RGj/mm5PLQdufFnHyvgKwKFGdJoo5yFn18UjTDnpe0XbWV37MwQDV +nHSjzQKg5ItPi3/jIN/p+W9XK3oe6T+49qOJBn1+Ujo9ZQWgYqR2XNxCA204 +Yh2a0vT8sbemWsdKA7ucJ4J+LBDAuRFpi70OGhiyI++vgLkC6JzK05/20MAB +zps4q3E+7F3QIasUp4FthqMP7Tv5kKqFnX+2a6C32lDwxxv0vOYlvq8kQhMN +xfrkruvwoe+q7f0HxzTR7R3eKNLgQ39rpNiLOE3ccOHktvskH345j19+n6yJ +9upM27olfBhd2VsjlauJGfnmps8k+PDH4jp5/1eamFd/a5n5t0JQqjlTrsrU +QsXqR4tkcwvp7xmFP05Ua+Gm8szPk0qFIFPPSaD6tXGu3Kr81tECUIkVrDMx +0cWMh+d7V1zNhxQdM2lZXz0kPGudcm3zoFbZavngWX2cqtBZze7OAXOV6kSD +JgMsvLZC4rdrNkiJZu7fEWWI/r/6/G91ZoHaUXWLrRwjDLokusJl9XWYx/7r +jstTIwyojfXNqrgG+lwlwcHtxsiw7S/iumTA3k6ZR/YiS7HH1Tcw6uYV6B88 +7bo2ZSl+DjX2miV6GVYbPEldq7cMF+dvmYKYFKgcXPl7VLgMo8Mml1ePnIcg +XeO2Bu/leOB4x+yHZcnA7eM1bp1ngvPn1ct7HDwLq1iKjpKZJhgY7bwqRvwM +aEaeDK02NcXR9nu3hVGnQNvb7AG7zRT7Zkv78+fEgnel37GSv1egQ1XW7SeL +YuBBRiPvp5wZJkuEbx42iIKh3OlRg1IzTA1Pv3hyQwR4sQvmpTqaY+miJb+d +meHwUzvZpHjAHGtk8mXGlQ7C3azf74djV2IfV2vfdO0+cLMlcaWaBfp5HCPX +DwTDksATZfpVFujzZ+Mvl7AAkJsfUOS4mYuOy9Y3dKv4QZbNkbCBrVwMKTMo +rJnvB8ZHEmyS/+JicZENq3jMF5wGqDctO7ioPuVZL2j0heNNw+NeAVxkb5MI +XB7vC2OZEdZhR7nYVqY9yBPxhbaVyf9mF3DxYtSzz3r93uB3ICttLZ+L/ULJ +NaGd3jDCv+39neJiyidBYn29N8gQLaNGd7g4+Xne45Sb3uAgrqpyv4qLPX4e +jKJd3nCvMZv37xsuPg2PaOn5wgN7qbt6IS1cZF7z02tv4UHL6ucjiu1c9Cxx +lu14xoOh8m+x7u+4GNfy9+GpXB7oXTMs/NrLxU9XhbqV/jy412YVcvoHF+fk +eu8Vd6PXW7wBDAa4KP60UXW7PQ98Thxo2D9MW6kmka1Dr1d1PFVhjIuXd552 +vLSEB1ETF73KJ7j4fOCem8ICHkgvy9PdPsXFsoip4vRJL7gaWD48Pc3Ft3aj +64x/eMH/rrdk7w== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VHsYB3BdFSUSWbPMnDMz9rUiMt7XkoqLUlp0QxlbIbdFoi6RoiLR +IimSrJk5pISSpE1M6coeJW0qlF1c9/hrns/zzPM7v/c9v9/3eQ9z5x4X7z9E +RETmzBIRmfkd6XxewzqVZclpHK3RyrSwbLyqeMiqJQoeHb4rO9tWGVDu5U7F +liSo+iEd9MxGG0LW5TeLtmTC/f8K7TJtzGFRn0LSeHMxhISJvA+0sYeue057 +hpqr4VROgp/Q2g3sWL1vfza/htser0v9cReMN5ueH2juBgmmMOujSRg8ssnJ +asgchGyD2FIm+xSodJV92qk7BTJTnGHX0WRYHOCRL2Yjihcn2/c7iqZCkpFd +hZOrOI7tK+zuU8+A1hTDqp/Skjhw5vG7odZMOJUV8fIPpUX4o/WO8XTSDVA4 +9yEu+Yos9sSlnVWdzIETG9davh6Rw9rR7u6kiTxQLhEq/zFLHsssv2PuH/nA +l904aiQhj4Je1dK78/Oh6bU7dVZdHokc9pda5Xxgrd9PrF8jj9FiDtYl5vlQ +7Zg+99UleazSVBJPPZQPU3bDwnoLBaz5WHerYDAf9pld83gepYj9Om/8KloK +wD5DasjhtCLKrW02UukqAELscKzwvCLmJ+2JC/1YAK8aNxX9m6uInPxj3eSv +AtAPXiDaKVREcl2wwSqJm/Al+2D2L2UlfHL4SkORxU34a7HTjyW3lJB1dL6H +YdpNsO2fCAv6oIw+10tvChwL4dCac9oPvyujG+fCvSaXQuBf02uTHVFGytVz +3/jmQlDc6GlWJr4EM8oXvDHaWQjf7z4eFdVfgsJ/N/CCQgohOSpx/6XQJfgP +RifJXy2EbjlOUI2kCkp96vAiegtBYc8DVQUFFQxfZCNT2VcIfz7bUu/PUEF7 +bUue62Ah3Ak7pbtwqQpObxT+CpkshJNdA71bt6ig238JZTFSfDDOq/Dtz1RB +YVF5b4MRH45arN+hvEIVM1sYv1kH+LDG/eovU2tVZIyZuMYf4oNU5Ldo1z9V +8Z/+ifiBI3xIexSTneipitqTc9JyjvPhrn35t7lxqpiPtXotF/kwsIUMGWxV +RfPd1FqbMj64Hxg+WReuhgd1mGXWY3xgX7RW6Y1Rw0uXDS3FJvl0/WcKxRLV +8Ov+HblPpvkQNqn1yjpLDVvnu+iZiAngfLS7XFmdGr4O/DirRU4AdWefpt9Q +VceDHr9VNYwFYM6/VPLPA3UU6c/MG/YRgG2zcKrvmTpe6e+deu8vACeR2as9 +XqvjvN6S3ucBAvByCWqFj+r4+Z7DmdN7BWAXzoyInMNAuw+chW+PCCBYfeS6 +lQ4DlYa6rAqSBVDjm/7jUQgDty1k+k9XCGDtpJnM4XAGLjxSnuJRKQBhYqPJ +skgGOk+mBlVUCaC1bF5kVhwDkw9oL/R5LIA+if0yMWkMTHCLMzohFIAitcbU +rpqBDuqJQeNdAggY+xn5TJKJTlbs89em6Xr+9pH/JMNEucFtAS9FKBDvbSsQ +VWRioNrSky9mUXCj/VGTJcHEitspK++JUtBZeV73tgkTP963iYwQo8A5xqzl +mgcT6z6YfouXokDtv8LABzwmVqdVH+EtpOB7CCH61p+JFypbk1ZIUxDrJ6Gv +uJ+JLY477VoXUVDl8DY6IZaJ5l9+dk4upsBY5qhBeBET774vXFGvTIHIqeGa +lDtM9Og+oHl4CQVC0V1udyqYmMbsuaapQsHuYZeYn4+ZOHw+YWmYKgVZLax2 +3zZ6v0XmXdPqFOxdfyk4pouJiR+ctS4zKMBaybnXe5hYPPxKZBmTgrcVI4ad +fUxUTp7t5k5QIJ/+7PhGUQL7G19Xn2dR0KPAVdkrTuBj1Z4YVTYFxYlFRWck +CUz64NCWSds5KrWjVoHAcgl1s2wOXZ93gLGVLoG3I4Y6zmhSsKnz3VN3IwJz +vJtWzNaigLXZdfthEwLP3lfVDqFdtcYythQJ3NTTJ3TRpmBcR7pTz5VAG0kz +w34dCkauKB9d6kbgC4nvx5x0KRhayGaZeRCoszc0roB236DZLlt/AqMLySx3 +PQq+edtK2gcRGNJtV1FC+0uzE+W8j8Drln8eE9enoLvCa8TtCIGNZRL6ebS7 +9IIueUYR2I7ChSO0O9JDLXxOEBhfGX0DDShoio6P+vss/fwfb/uEtGsdSqVi +bxB4WUVM/JUhBU/vPyyKzydwRatcynwjCmoM6jYmCwi8Irn+nTXtStn3qVfL +CNw4tvfyTdoVMd+4WZUEagwFLuykfXd0+F3eIwINft3nShrT/W2fr3G7nkCl +5pMveLQFjnK15a8JtOxR142nffOBemBVM4FRYL72Fu08I23pJx0EPjDwJZtp +Z19fduvFewJ5Icsqxmhfl4NNDZ8IlHY2XKS4lIKME2vHm74R6LznK3s57Svj +G9I6Bgi0mts/7kw7dbc7dA8T6HLvVbwf7Ytv/bo/TxD4tlit+x/a55z3xfyY +ps9HtP9oEu2zD49oDs4mscvKWphFO2Fp7IuxeSRKHjT3LaF96kZS0H9SJJ5m +91Q/pB2rcGXR7MUk1j9peF9HOyYup2SeEombHS7UvKEd9bto80I1EoOUH+/u +oB0ReG9iMUli5aJfze9oH+56ckVZk0TlmKJ5H2gfWt+ADD0SF1mmzJpxyKP2 +D2xjEu+Er6ya+f++5Z+O65iSyP1laDezXnDOgJaRBYk3a6XOzTwvSOl3nYkV +iWczd+fP7Gf3qTnBFnYkZp3qjJvZr9/UQllrBxIPS0wbz9Tjs0f5zup19HpL +vLNn6vV6z9rq6EoiaOT1zPTDc4PBpIsbiQ+leH0z/dr+2Cx9iweJKaRBzUw/ +3Uxtrd15JDZpZfmso71xydZY/yASZTcOyyrRXh/vpbNnH4nxK8QYE/T7c5oO +FO4PJfF2gv7vFtprPkQtjowikdmrx0ykvco1vjTmBIkdyyDQj7b104tup06T +mBDectKStkXBzYwLF0gMdVHm9tDnrZ1RkL7qMon3cyo0SmmHXci7OpRO4vaB +Sv1Y2qVHs9Nc8kh0+DiQzKK9aTTr8iw+3S82OdhPn/ehgOupVDGJjKOVwWW0 +jbdkpEjdI9HdYuVzO9oN9Vcv3q8ikaombsynHWxz5ULAYxJzqYhrdfT94eun +nqsVkuh4Nm/KnrbWnHOJx9+TGHuX62JE379nYUlnln+i+5PshJ/o++szkJjQ +00viq8xJl0u0s9rjT1sP0fUa2X8Zp+8/o/hE7H9zWchZ8ff7LDov5D3CI0N0 +WSjbxIjJpPPnduOhCLYRC3cF8CfNaG+0D/2ncTkLLwx5XXupQUHS8gOHjYGF +LyX27x+m80tywZ7QvvUsDGYdWKdD59vssp3BPgdZ+PSZ6zak8/K6/o49codZ +yGhY87mczlPrLI+gmkgWmnLN85bSjjjzVwBxkoVk6+YGdTp/J7w3+XWmsbDn +q311N53XP2XsPTdVs3DtPvdsWUUKWgKIV7uesvBJwrA0T4HOwycTEFHHws4n +p3cXy1OQGFagntvEwgAfanCNHAWG3Qu6xntZKPowibddhj6/RS+3X5Fl44QN +O5i1gH5fErn1RYps/CplsGyjBAWW3pHcJ6ps/HeOydDR+XR9Skaq/RpsbBZf +vbtZnM6TyKQOtGCjaESr/a45FPQ6u27r4bHRdOfYqOekAF7n6b0Y82djuYiw +NHJCAOWic1dK7mFjVOSa2LQxAcSV3lE2OcTG7prAHc+GBKCprth2Ip6Nm0P9 +GD+/C8C3r22Lzh02ejRmG8d2CKDntOemvWIcnBV3trH5rgCCenUJwwUcnBsZ +LX7jjgBGV4//+CHNQTnDnb+DSgQwXzQpxl+Zg1WPzchxgQAMDz0q8dSjvfJ2 +xqdsARzx5sg6b+Cg2SznCI1zApC3/P5SJ52DJ1vX2djT80fG5buXv17nYPss +xs8iej7RGj/mm5PLQdufFnHyvgKwKFGdJoo5yFn18UjTDnpe0XbWV37MwQDV +nHSjzQKg5ItPi3/jIN/p+W9XK3oe6T+49qOJBn1+Ujo9ZQWgYqR2XNxCA204 +Yh2a0vT8sbemWsdKA7ucJ4J+LBDAuRFpi70OGhiyI++vgLkC6JzK05/20MAB +zps4q3E+7F3QIasUp4FthqMP7Tv5kKqFnX+2a6C32lDwxxv0vOYlvq8kQhMN +xfrkruvwoe+q7f0HxzTR7R3eKNLgQ39rpNiLOE3ccOHktvskH345j19+n6yJ +9upM27olfBhd2VsjlauJGfnmps8k+PDH4jp5/1eamFd/a5n5t0JQqjlTrsrU +QsXqR4tkcwvp7xmFP05Ua+Gm8szPk0qFIFPPSaD6tXGu3Kr81tECUIkVrDMx +0cWMh+d7V1zNhxQdM2lZXz0kPGudcm3zoFbZavngWX2cqtBZze7OAXOV6kSD +JgMsvLZC4rdrNkiJZu7fEWWI/r/6/G91ZoHaUXWLrRwjDLokusJl9XWYx/7r +jstTIwyojfXNqrgG+lwlwcHtxsiw7S/iumTA3k6ZR/YiS7HH1Tcw6uYV6B88 +7bo2ZSl+DjX2miV6GVYbPEldq7cMF+dvmYKYFKgcXPl7VLgMo8Mml1ePnIcg +XeO2Bu/leOB4x+yHZcnA7eM1bp1ngvPn1ct7HDwLq1iKjpKZJhgY7bwqRvwM +aEaeDK02NcXR9nu3hVGnQNvb7AG7zRT7Zkv78+fEgnel37GSv1egQ1XW7SeL +YuBBRiPvp5wZJkuEbx42iIKh3OlRg1IzTA1Pv3hyQwR4sQvmpTqaY+miJb+d +meHwUzvZpHjAHGtk8mXGlQ7C3azf74djV2IfV2vfdO0+cLMlcaWaBfp5HCPX +DwTDksATZfpVFujzZ+Mvl7AAkJsfUOS4mYuOy9Y3dKv4QZbNkbCBrVwMKTMo +rJnvB8ZHEmyS/+JicZENq3jMF5wGqDctO7ioPuVZL2j0heNNw+NeAVxkb5MI +XB7vC2OZEdZhR7nYVqY9yBPxhbaVyf9mF3DxYtSzz3r93uB3ICttLZ+L/ULJ +NaGd3jDCv+39neJiyidBYn29N8gQLaNGd7g4+Xne45Sb3uAgrqpyv4qLPX4e +jKJd3nCvMZv37xsuPg2PaOn5wgN7qbt6IS1cZF7z02tv4UHL6ucjiu1c9Cxx +lu14xoOh8m+x7u+4GNfy9+GpXB7oXTMs/NrLxU9XhbqV/jy412YVcvoHF+fk +eu8Vd6PXW7wBDAa4KP60UXW7PQ98Thxo2D9MW6kmka1Dr1d1PFVhjIuXd552 +vLSEB1ETF73KJ7j4fOCem8ICHkgvy9PdPsXFsoip4vRJL7gaWD48Pc3Ft3aj +64x/eMH/rrdk7w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06329173075348074}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06329173075348074}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VHsYB3BdFSUSWbPMnDMz9rUiMt7XkoqLUlp0QxlbIbdFoi6RoiLR +IimSrJk5pISSpE1M6coeJW0qlF1c9/hrns/zzPM7v/c9v9/3eQ9z5x4X7z9E +RETmzBIRmfkd6XxewzqVZclpHK3RyrSwbLyqeMiqJQoeHb4rO9tWGVDu5U7F +liSo+iEd9MxGG0LW5TeLtmTC/f8K7TJtzGFRn0LSeHMxhISJvA+0sYeue057 +hpqr4VROgp/Q2g3sWL1vfza/htser0v9cReMN5ueH2juBgmmMOujSRg8ssnJ +asgchGyD2FIm+xSodJV92qk7BTJTnGHX0WRYHOCRL2Yjihcn2/c7iqZCkpFd +hZOrOI7tK+zuU8+A1hTDqp/Skjhw5vG7odZMOJUV8fIPpUX4o/WO8XTSDVA4 +9yEu+Yos9sSlnVWdzIETG9davh6Rw9rR7u6kiTxQLhEq/zFLHsssv2PuH/nA +l904aiQhj4Je1dK78/Oh6bU7dVZdHokc9pda5Xxgrd9PrF8jj9FiDtYl5vlQ +7Zg+99UleazSVBJPPZQPU3bDwnoLBaz5WHerYDAf9pld83gepYj9Om/8KloK +wD5DasjhtCLKrW02UukqAELscKzwvCLmJ+2JC/1YAK8aNxX9m6uInPxj3eSv +AtAPXiDaKVREcl2wwSqJm/Al+2D2L2UlfHL4SkORxU34a7HTjyW3lJB1dL6H +YdpNsO2fCAv6oIw+10tvChwL4dCac9oPvyujG+fCvSaXQuBf02uTHVFGytVz +3/jmQlDc6GlWJr4EM8oXvDHaWQjf7z4eFdVfgsJ/N/CCQgohOSpx/6XQJfgP +RifJXy2EbjlOUI2kCkp96vAiegtBYc8DVQUFFQxfZCNT2VcIfz7bUu/PUEF7 +bUue62Ah3Ak7pbtwqQpObxT+CpkshJNdA71bt6ig238JZTFSfDDOq/Dtz1RB +YVF5b4MRH45arN+hvEIVM1sYv1kH+LDG/eovU2tVZIyZuMYf4oNU5Ldo1z9V +8Z/+ifiBI3xIexSTneipitqTc9JyjvPhrn35t7lxqpiPtXotF/kwsIUMGWxV +RfPd1FqbMj64Hxg+WReuhgd1mGXWY3xgX7RW6Y1Rw0uXDS3FJvl0/WcKxRLV +8Ov+HblPpvkQNqn1yjpLDVvnu+iZiAngfLS7XFmdGr4O/DirRU4AdWefpt9Q +VceDHr9VNYwFYM6/VPLPA3UU6c/MG/YRgG2zcKrvmTpe6e+deu8vACeR2as9 +XqvjvN6S3ucBAvByCWqFj+r4+Z7DmdN7BWAXzoyInMNAuw+chW+PCCBYfeS6 +lQ4DlYa6rAqSBVDjm/7jUQgDty1k+k9XCGDtpJnM4XAGLjxSnuJRKQBhYqPJ +skgGOk+mBlVUCaC1bF5kVhwDkw9oL/R5LIA+if0yMWkMTHCLMzohFIAitcbU +rpqBDuqJQeNdAggY+xn5TJKJTlbs89em6Xr+9pH/JMNEucFtAS9FKBDvbSsQ +VWRioNrSky9mUXCj/VGTJcHEitspK++JUtBZeV73tgkTP963iYwQo8A5xqzl +mgcT6z6YfouXokDtv8LABzwmVqdVH+EtpOB7CCH61p+JFypbk1ZIUxDrJ6Gv +uJ+JLY477VoXUVDl8DY6IZaJ5l9+dk4upsBY5qhBeBET774vXFGvTIHIqeGa +lDtM9Og+oHl4CQVC0V1udyqYmMbsuaapQsHuYZeYn4+ZOHw+YWmYKgVZLax2 +3zZ6v0XmXdPqFOxdfyk4pouJiR+ctS4zKMBaybnXe5hYPPxKZBmTgrcVI4ad +fUxUTp7t5k5QIJ/+7PhGUQL7G19Xn2dR0KPAVdkrTuBj1Z4YVTYFxYlFRWck +CUz64NCWSds5KrWjVoHAcgl1s2wOXZ93gLGVLoG3I4Y6zmhSsKnz3VN3IwJz +vJtWzNaigLXZdfthEwLP3lfVDqFdtcYythQJ3NTTJ3TRpmBcR7pTz5VAG0kz +w34dCkauKB9d6kbgC4nvx5x0KRhayGaZeRCoszc0roB236DZLlt/AqMLySx3 +PQq+edtK2gcRGNJtV1FC+0uzE+W8j8Drln8eE9enoLvCa8TtCIGNZRL6ebS7 +9IIueUYR2I7ChSO0O9JDLXxOEBhfGX0DDShoio6P+vss/fwfb/uEtGsdSqVi +bxB4WUVM/JUhBU/vPyyKzydwRatcynwjCmoM6jYmCwi8Irn+nTXtStn3qVfL +CNw4tvfyTdoVMd+4WZUEagwFLuykfXd0+F3eIwINft3nShrT/W2fr3G7nkCl +5pMveLQFjnK15a8JtOxR142nffOBemBVM4FRYL72Fu08I23pJx0EPjDwJZtp +Z19fduvFewJ5Icsqxmhfl4NNDZ8IlHY2XKS4lIKME2vHm74R6LznK3s57Svj +G9I6Bgi0mts/7kw7dbc7dA8T6HLvVbwf7Ytv/bo/TxD4tlit+x/a55z3xfyY +ps9HtP9oEu2zD49oDs4mscvKWphFO2Fp7IuxeSRKHjT3LaF96kZS0H9SJJ5m +91Q/pB2rcGXR7MUk1j9peF9HOyYup2SeEombHS7UvKEd9bto80I1EoOUH+/u +oB0ReG9iMUli5aJfze9oH+56ckVZk0TlmKJ5H2gfWt+ADD0SF1mmzJpxyKP2 +D2xjEu+Er6ya+f++5Z+O65iSyP1laDezXnDOgJaRBYk3a6XOzTwvSOl3nYkV +iWczd+fP7Gf3qTnBFnYkZp3qjJvZr9/UQllrBxIPS0wbz9Tjs0f5zup19HpL +vLNn6vV6z9rq6EoiaOT1zPTDc4PBpIsbiQ+leH0z/dr+2Cx9iweJKaRBzUw/ +3Uxtrd15JDZpZfmso71xydZY/yASZTcOyyrRXh/vpbNnH4nxK8QYE/T7c5oO +FO4PJfF2gv7vFtprPkQtjowikdmrx0ykvco1vjTmBIkdyyDQj7b104tup06T +mBDectKStkXBzYwLF0gMdVHm9tDnrZ1RkL7qMon3cyo0SmmHXci7OpRO4vaB +Sv1Y2qVHs9Nc8kh0+DiQzKK9aTTr8iw+3S82OdhPn/ehgOupVDGJjKOVwWW0 +jbdkpEjdI9HdYuVzO9oN9Vcv3q8ikaombsynHWxz5ULAYxJzqYhrdfT94eun +nqsVkuh4Nm/KnrbWnHOJx9+TGHuX62JE379nYUlnln+i+5PshJ/o++szkJjQ +00viq8xJl0u0s9rjT1sP0fUa2X8Zp+8/o/hE7H9zWchZ8ff7LDov5D3CI0N0 +WSjbxIjJpPPnduOhCLYRC3cF8CfNaG+0D/2ncTkLLwx5XXupQUHS8gOHjYGF +LyX27x+m80tywZ7QvvUsDGYdWKdD59vssp3BPgdZ+PSZ6zak8/K6/o49codZ +yGhY87mczlPrLI+gmkgWmnLN85bSjjjzVwBxkoVk6+YGdTp/J7w3+XWmsbDn +q311N53XP2XsPTdVs3DtPvdsWUUKWgKIV7uesvBJwrA0T4HOwycTEFHHws4n +p3cXy1OQGFagntvEwgAfanCNHAWG3Qu6xntZKPowibddhj6/RS+3X5Fl44QN +O5i1gH5fErn1RYps/CplsGyjBAWW3pHcJ6ps/HeOydDR+XR9Skaq/RpsbBZf +vbtZnM6TyKQOtGCjaESr/a45FPQ6u27r4bHRdOfYqOekAF7n6b0Y82djuYiw +NHJCAOWic1dK7mFjVOSa2LQxAcSV3lE2OcTG7prAHc+GBKCprth2Ip6Nm0P9 +GD+/C8C3r22Lzh02ejRmG8d2CKDntOemvWIcnBV3trH5rgCCenUJwwUcnBsZ +LX7jjgBGV4//+CHNQTnDnb+DSgQwXzQpxl+Zg1WPzchxgQAMDz0q8dSjvfJ2 +xqdsARzx5sg6b+Cg2SznCI1zApC3/P5SJ52DJ1vX2djT80fG5buXv17nYPss +xs8iej7RGj/mm5PLQdufFnHyvgKwKFGdJoo5yFn18UjTDnpe0XbWV37MwQDV +nHSjzQKg5ItPi3/jIN/p+W9XK3oe6T+49qOJBn1+Ujo9ZQWgYqR2XNxCA204 +Yh2a0vT8sbemWsdKA7ucJ4J+LBDAuRFpi70OGhiyI++vgLkC6JzK05/20MAB +zps4q3E+7F3QIasUp4FthqMP7Tv5kKqFnX+2a6C32lDwxxv0vOYlvq8kQhMN +xfrkruvwoe+q7f0HxzTR7R3eKNLgQ39rpNiLOE3ccOHktvskH345j19+n6yJ +9upM27olfBhd2VsjlauJGfnmps8k+PDH4jp5/1eamFd/a5n5t0JQqjlTrsrU +QsXqR4tkcwvp7xmFP05Ua+Gm8szPk0qFIFPPSaD6tXGu3Kr81tECUIkVrDMx +0cWMh+d7V1zNhxQdM2lZXz0kPGudcm3zoFbZavngWX2cqtBZze7OAXOV6kSD +JgMsvLZC4rdrNkiJZu7fEWWI/r/6/G91ZoHaUXWLrRwjDLokusJl9XWYx/7r +jstTIwyojfXNqrgG+lwlwcHtxsiw7S/iumTA3k6ZR/YiS7HH1Tcw6uYV6B88 +7bo2ZSl+DjX2miV6GVYbPEldq7cMF+dvmYKYFKgcXPl7VLgMo8Mml1ePnIcg +XeO2Bu/leOB4x+yHZcnA7eM1bp1ngvPn1ct7HDwLq1iKjpKZJhgY7bwqRvwM +aEaeDK02NcXR9nu3hVGnQNvb7AG7zRT7Zkv78+fEgnel37GSv1egQ1XW7SeL +YuBBRiPvp5wZJkuEbx42iIKh3OlRg1IzTA1Pv3hyQwR4sQvmpTqaY+miJb+d +meHwUzvZpHjAHGtk8mXGlQ7C3azf74djV2IfV2vfdO0+cLMlcaWaBfp5HCPX +DwTDksATZfpVFujzZ+Mvl7AAkJsfUOS4mYuOy9Y3dKv4QZbNkbCBrVwMKTMo +rJnvB8ZHEmyS/+JicZENq3jMF5wGqDctO7ioPuVZL2j0heNNw+NeAVxkb5MI +XB7vC2OZEdZhR7nYVqY9yBPxhbaVyf9mF3DxYtSzz3r93uB3ICttLZ+L/ULJ +NaGd3jDCv+39neJiyidBYn29N8gQLaNGd7g4+Xne45Sb3uAgrqpyv4qLPX4e +jKJd3nCvMZv37xsuPg2PaOn5wgN7qbt6IS1cZF7z02tv4UHL6ucjiu1c9Cxx +lu14xoOh8m+x7u+4GNfy9+GpXB7oXTMs/NrLxU9XhbqV/jy412YVcvoHF+fk +eu8Vd6PXW7wBDAa4KP60UXW7PQ98Thxo2D9MW6kmka1Dr1d1PFVhjIuXd552 +vLSEB1ETF73KJ7j4fOCem8ICHkgvy9PdPsXFsoip4vRJL7gaWD48Pc3Ft3aj +64x/eMH/rrdk7w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06329173075348074}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06329173075348074}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994258982477309*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"97cbf855-4f25-4b78-aff9-63bb68cc3c59"] +}, Open ]], Cell[CellGroupData[{ @@ -10660,7 +12004,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -10678,8 +12024,8 @@ Cell[BoxData[ SuperscriptBox[ RowBox[{"(", FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -10701,66 +12047,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[116]:=",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], + "In[131]:=",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 116, 57, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265068365192`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.0650472387804793`*^-161\\\", \ +RowBox[{\\\"505518991860510123640143\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"101\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 131, 45, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265068365192`*^9, 3.994258982532905*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], +In[131]:=",ExpressionUUID->"f24d9f30-cf5a-4dbf-8c42-ee141ccffcd0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 116, 58, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326506846985*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.169879935255145`*^-164\\\", \ +RowBox[{\\\"164243120455479739170682\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"105\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 131, 46, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265068365192`*^9, 3.994258982543243*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], +In[131]:=",ExpressionUUID->"48109f92-cc44-4ac1-acfc-03d746dbdf62"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 116, 59, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326506856045*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.6729627049277535`*^-167\\\", \ +RowBox[{\\\"552513857212233842570175\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"108\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 131, 47, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265068365192`*^9, 3.994258982551503*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], +In[131]:=",ExpressionUUID->"b890d633-b95a-4d25-a0b8-ccf76740c7a3"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 116, 60, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265068640423`*^9}, +during this calculation.\"", 2, 131, 48, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265068365192`*^9, 3.994258982559349*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], +In[131]:=",ExpressionUUID->"2cbfee97-d3c6-410c-842e-9f8f4ed9d53e"], -Cell[BoxData["11.275343508404701`"], "Output", - CellChangeTimes->{3.991326513010317*^9}, +Cell[BoxData["12.730135044876192`"], "Output", + CellChangeTimes->{3.991326513010317*^9, 3.994259067525813*^9}, CellLabel-> - "Out[116]=",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] + "Out[131]=",ExpressionUUID->"910b8531-9bc4-4b10-b199-1b4850788edd"] }, Open ]], Cell[CellGroupData[{ @@ -10827,68 +12180,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9917998502248*^9, - 3.9917998584727135`*^9}},ExpressionUUID->"df92a918-12ed-ff47-a8a8-\ -122296a3d634"], + CellChangeTimes->{{3.9917998502248*^9, 3.9917998584727135`*^9}}, + CellLabel-> + "In[132]:=",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 117, 61, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265130447063`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.473859894199191`*^-233\\\", \ +RowBox[{\\\"8716240562875928371043383\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5941477990400000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 132, 49, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265130447063`*^9, 3.994259067565483*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], +In[132]:=",ExpressionUUID->"709d02de-d1db-4aa2-a41a-cb38bf9c9c00"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 117, - 62, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326513053705*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.055654260784709`*^-240\\\", \ +RowBox[{\\\"1067739468952301225452814\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"31\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8310538240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 132, 50, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265130447063`*^9, 3.994259067575762*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], +In[132]:=",ExpressionUUID->"de0b2a35-3673-40ee-9ca7-3f621839f494"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 117, - 63, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265130617065`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.357706062720382`*^-247\\\", \ +RowBox[{\\\"1383790351762182388186847\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0457559040000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 132, 51, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265130447063`*^9, 3.994259067591886*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], +In[132]:=",ExpressionUUID->"acb1f32f-903c-4528-b132-37807986c019"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 117, 64, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326513069849*^9}, +during this calculation.\"", 2, 132, 52, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265130447063`*^9, 3.994259067602874*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], +In[132]:=",ExpressionUUID->"6fc427df-7df8-4136-b6db-630b2a5eaead"], -Cell[BoxData["1.662840304462236`"], "Output", - CellChangeTimes->{3.9913265201819115`*^9}, +Cell[BoxData["0.009884457059106828`"], "Output", + CellChangeTimes->{3.9913265201819115`*^9, 3.994259077460758*^9}, CellLabel-> - "Out[117]=",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] + "Out[132]=",ExpressionUUID->"c5153da4-6fcf-4590-bcc4-0b8b16f3cb9d"] }, Open ]], Cell[CellGroupData[{ @@ -10909,8 +12269,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -10955,68 +12314,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9917998626681576`*^9, - 3.991799866004116*^9}},ExpressionUUID->"1990573a-00f1-b54c-9d39-\ -9c68738afe07"], + CellChangeTimes->{{3.9917998626681576`*^9, 3.991799866004116*^9}}, + CellLabel-> + "In[133]:=",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 118, 65, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326520216116*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.473859894199191`*^-233\\\", \ +RowBox[{\\\"8716240562875928371043383\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5941477990400000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 133, 53, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326520216116*^9, 3.99425907750671*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], +In[133]:=",ExpressionUUID->"95f5b9b3-ed1b-4afc-b16e-64d9362a262b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 118, - 66, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326520226103*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.055654260784709`*^-240\\\", \ +RowBox[{\\\"1067739468952301225452814\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"31\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8310538240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 133, 54, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326520216116*^9, 3.9942590775161448`*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], +In[133]:=",ExpressionUUID->"c7177ced-c875-456d-a71b-8bb58006a319"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 118, - 67, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265202341022`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.357706062720382`*^-247\\\", \ +RowBox[{\\\"1383790351762182388186847\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0457559040000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 133, 55, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326520216116*^9, 3.994259077525537*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], +In[133]:=",ExpressionUUID->"ef6fd9d1-fd73-4b78-a098-1571353e31db"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 118, 68, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326520242243*^9}, +during this calculation.\"", 2, 133, 56, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326520216116*^9, 3.994259077535439*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], +In[133]:=",ExpressionUUID->"56fbf79a-d231-4d49-96ce-241037a5a0a9"], -Cell[BoxData["8.698310175000124`"], "Output", - CellChangeTimes->{3.9913265264075394`*^9}, +Cell[BoxData["39.416203334318695`"], "Output", + CellChangeTimes->{3.9913265264075394`*^9, 3.994259087008206*^9}, CellLabel-> - "Out[118]=",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] + "Out[133]=",ExpressionUUID->"96f11048-f6f6-457e-b59b-da7bd20dfe96"] }, Open ]], Cell[CellGroupData[{ @@ -11037,8 +12403,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -11083,68 +12448,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991799871682028*^9, - 3.9917998792226925`*^9}},ExpressionUUID->"586f2005-dac7-8547-be11-\ -766f96e6af5d"], + CellChangeTimes->{{3.991799871682028*^9, 3.9917998792226925`*^9}}, + CellLabel-> + "In[134]:=",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 119, 69, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265264435444`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.473859894199191`*^-233\\\", \ +RowBox[{\\\"8716240562875928371043383\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5941477990400000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 134, 57, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265264435444`*^9, 3.994259087053968*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], +In[134]:=",ExpressionUUID->"0ba06c7d-bf38-4815-8a1a-3b64131811e5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 119, - 70, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265264535427`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.055654260784709`*^-240\\\", \ +RowBox[{\\\"1067739468952301225452814\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"31\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8310538240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 134, 58, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265264435444`*^9, 3.9942590870642843`*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], +In[134]:=",ExpressionUUID->"ee748757-a5b6-44d8-a58c-273cce98de75"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 119, - 71, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265264615555`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.357706062720382`*^-247\\\", \ +RowBox[{\\\"1383790351762182388186847\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0457559040000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 134, 59, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265264435444`*^9, 3.994259087072801*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], +In[134]:=",ExpressionUUID->"69b3f7e0-7850-428b-b361-67fc818b44d6"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 119, 72, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326526468542*^9}, +during this calculation.\"", 2, 134, 60, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265264435444`*^9, 3.9942590870839567`*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], +In[134]:=",ExpressionUUID->"be52947b-2e25-4d91-b363-12acad4b26be"], -Cell[BoxData["16.721244215445346`"], "Output", - CellChangeTimes->{3.9913265299431496`*^9}, +Cell[BoxData["5.762791211867809`"], "Output", + CellChangeTimes->{3.9913265299431496`*^9, 3.994259095737403*^9}, CellLabel-> - "Out[119]=",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] + "Out[134]=",ExpressionUUID->"0726ec36-9605-49f3-89d4-0db588bf63ce"] }, Open ]], Cell[CellGroupData[{ @@ -11153,22 +12525,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9917998836260815`*^9, - 3.991799887334032*^9}},ExpressionUUID->"363f609f-6fd9-cc4c-924f-\ -14ef82ef0962"], - -Cell[BoxData["0.13787921511838797`"], "Output", - CellChangeTimes->{3.991326529975149*^9}, + CellChangeTimes->{{3.9917998836260815`*^9, 3.991799887334032*^9}}, CellLabel-> - "Out[120]=",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] + "In[135]:=",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], + +Cell[BoxData["0.0006558416319218103`"], "Output", + CellChangeTimes->{3.991326529975149*^9, 3.994259095783969*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"fb9bbcfd-9c88-4c0a-8671-6d744dbbdafb"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.991799895862177*^9, 3.9917998977747803`*^9}, - 3.991924340381132*^9},ExpressionUUID->"32c57f0b-017d-d340-92c6-\ -0f56a212e9c3"], + 3.991924340381132*^9}, + CellLabel-> + "In[136]:=",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ @@ -11191,12 +12564,12 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[122]:=",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], + "In[137]:=",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], -Cell[BoxData["29.129739599983825`"], "Output", - CellChangeTimes->{3.9913265300040226`*^9}, +Cell[BoxData["21.5665547212561`"], "Output", + CellChangeTimes->{3.9913265300040226`*^9, 3.994259095808361*^9}, CellLabel-> - "Out[122]=",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] + "Out[137]=",ExpressionUUID->"b693087c-187e-43ac-9c90-0c501b1381b8"] }, Open ]], Cell[CellGroupData[{ @@ -11206,12 +12579,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[124]:=",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], + "In[138]:=",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], -Cell[BoxData["0.6950071373045505`"], "Output", - CellChangeTimes->{3.991326530052025*^9}, +Cell[BoxData["1.3118921853090093`"], "Output", + CellChangeTimes->{3.991326530052025*^9, 3.99425909582646*^9}, CellLabel-> - "Out[124]=",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] + "Out[138]=",ExpressionUUID->"0419df66-7ce9-4f7a-9692-5e3a2402cb10"] }, Open ]], Cell[CellGroupData[{ @@ -11221,12 +12594,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[127]:=",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], + "In[139]:=",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], -Cell[BoxData["20.245376929811762`"], "Output", - CellChangeTimes->{3.9913265300922585`*^9}, +Cell[BoxData["28.292994602854996`"], "Output", + CellChangeTimes->{3.9913265300922585`*^9, 3.9942590958399057`*^9}, CellLabel-> - "Out[127]=",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] + "Out[139]=",ExpressionUUID->"7e99c5d2-43e0-4fda-b2e0-c9cc5ec7c100"] }, Open ]], Cell[CellGroupData[{ @@ -11416,12 +12789,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[128]:=",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], + "In[140]:=",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], -Cell[BoxData["0.022635100966331548`"], "Output", - CellChangeTimes->{3.9913265301172295`*^9}, +Cell[BoxData["0.005315552724428574`"], "Output", + CellChangeTimes->{3.9913265301172295`*^9, 3.994259095859376*^9}, CellLabel-> - "Out[128]=",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] + "Out[140]=",ExpressionUUID->"e44cda3b-ebb3-47d0-98dc-cf14b95f68d5"] }, Open ]], Cell[CellGroupData[{ @@ -11435,12 +12808,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[129]:=",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], + "In[141]:=",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], -Cell[BoxData["5.890521190513567`"], "Output", - CellChangeTimes->{3.991326530210228*^9}, +Cell[BoxData["12.155441164499946`"], "Output", + CellChangeTimes->{3.991326530210228*^9, 3.994259096066633*^9}, CellLabel-> - "Out[129]=",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] + "Out[141]=",ExpressionUUID->"e52e4338-25e7-4fd5-bbe3-58b6244e6ecc"] }, Open ]], Cell[CellGroupData[{ @@ -11632,12 +13005,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[130]:=",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], + "In[142]:=",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], -Cell[BoxData["0.012260254107801566`"], "Output", - CellChangeTimes->{3.9913265302252293`*^9}, +Cell[BoxData["0.031939414670357914`"], "Output", + CellChangeTimes->{3.9913265302252293`*^9, 3.994259096085128*^9}, CellLabel-> - "Out[130]=",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] + "Out[142]=",ExpressionUUID->"9b19bf8c-93af-4b3b-a1d1-64db97138041"] }, Open ]], Cell[CellGroupData[{ @@ -11651,12 +13024,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[131]:=",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], + "In[143]:=",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], -Cell[BoxData["8.003781147223087`"], "Output", - CellChangeTimes->{3.9913265303172264`*^9}, +Cell[BoxData["4.958855625753622`"], "Output", + CellChangeTimes->{3.9913265303172264`*^9, 3.994259096267622*^9}, CellLabel-> - "Out[131]=",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] + "Out[143]=",ExpressionUUID->"8cd5df85-6e27-438e-a56f-c39c33354cbc"] }, Open ]], Cell[CellGroupData[{ @@ -11749,12 +13122,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[132]:=",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], + "In[144]:=",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.9913265303292294`*^9}, +Cell[BoxData["0.12078091092707918`"], "Output", + CellChangeTimes->{3.9913265303292294`*^9, 3.9942590962828617`*^9}, CellLabel-> - "Out[132]=",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] + "Out[144]=",ExpressionUUID->"5cc8a67a-176b-4fdb-b804-dbdc9210a6eb"] }, Open ]], Cell[CellGroupData[{ @@ -11844,12 +13217,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[133]:=",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], + "In[145]:=",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.991326530340416*^9}, +Cell[BoxData["0.8792190890729209`"], "Output", + CellChangeTimes->{3.991326530340416*^9, 3.99425909629737*^9}, CellLabel-> - "Out[133]=",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] + "Out[145]=",ExpressionUUID->"869df856-d3b5-4245-93a1-7e767d9f8afd"] }, Open ]], Cell[CellGroupData[{ @@ -11972,12 +13345,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[134]:=",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], + "In[146]:=",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.991326530367384*^9}, +Cell[BoxData["0.10619288248270414`"], "Output", + CellChangeTimes->{3.991326530367384*^9, 3.994259096316347*^9}, CellLabel-> - "Out[134]=",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] + "Out[146]=",ExpressionUUID->"47d7e678-48ce-4faa-bf11-3e80df2ecd6a"] }, Open ]], Cell[CellGroupData[{ @@ -11992,30 +13365,33 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -12039,68 +13415,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991799912745739*^9},ExpressionUUID->"c3883d3a-8a99-644a-9175-\ -a97b5c6c44f4"], + CellChangeTimes->{3.991799912745739*^9}, + CellLabel-> + "In[147]:=",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 135, 73, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265303923836`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.31266603698098`*^-226\\\", \ +RowBox[{\\\"2735526583816145583533735\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 147, 61, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265303923836`*^9, 3.994259096338306*^9}, CellLabel-> "During evaluation of \ -In[135]:=",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], +In[147]:=",ExpressionUUID->"8280147b-ade3-4ac2-b277-96af2c7534a6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 135, 74, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265304013824`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.05919297511902`*^-232\\\", \ +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 147, 62, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265303923836`*^9, 3.994259096346895*^9}, CellLabel-> "During evaluation of \ -In[135]:=",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], +In[147]:=",ExpressionUUID->"d44d22d1-8e4d-4226-8ce8-e95683feb799"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 135, - 75, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265304095325`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.934944496052688`*^-238\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 147, 63, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265303923836`*^9, 3.994259096355143*^9}, CellLabel-> "During evaluation of \ -In[135]:=",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], +In[147]:=",ExpressionUUID->"b07372db-4f9d-42a9-9def-d57bd4863207"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 135, 76, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265304175396`*^9}, +during this calculation.\"", 2, 147, 64, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265303923836`*^9, 3.9942590963646803`*^9}, CellLabel-> "During evaluation of \ -In[135]:=",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], +In[147]:=",ExpressionUUID->"b9a6f8f7-6295-4173-a3de-a7b814740251"], -Cell[BoxData["5.890521190513565`"], "Output", - CellChangeTimes->{3.9913265339749985`*^9}, +Cell[BoxData["12.15544116449994`"], "Output", + CellChangeTimes->{3.9913265339749985`*^9, 3.9942591036527348`*^9}, CellLabel-> - "Out[135]=",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] + "Out[147]=",ExpressionUUID->"74a4f424-0675-4428-99a3-9c4f05a4b6d5"] }, Open ]], Cell[CellGroupData[{ @@ -12115,30 +13498,33 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -12162,68 +13548,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9917999175346184`*^9},ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-\ -bed1f30b804b"], + CellChangeTimes->{3.9917999175346184`*^9}, + CellLabel-> + "In[148]:=",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 136, 77, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265340092525`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.31266603698098`*^-226\\\", \ +RowBox[{\\\"2735526583816145583533735\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 148, 65, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265340092525`*^9, 3.994259103701075*^9}, CellLabel-> "During evaluation of \ -In[136]:=",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], +In[148]:=",ExpressionUUID->"7c37c06a-d0f7-4e33-8119-d3a351625747"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 136, 78, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265340202503`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.05919297511902`*^-232\\\", \ +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 148, 66, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265340092525`*^9, 3.994259103710608*^9}, CellLabel-> "During evaluation of \ -In[136]:=",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], +In[148]:=",ExpressionUUID->"7c480407-06fb-411c-9d2e-e6520624cf9d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 136, - 79, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265340282536`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.934944496052688`*^-238\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 148, 67, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265340092525`*^9, 3.994259103719221*^9}, CellLabel-> "During evaluation of \ -In[136]:=",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], +In[148]:=",ExpressionUUID->"9c30061d-7cdd-4caa-ae3d-6a8e041fbc5a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 136, 80, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265340354958`*^9}, +during this calculation.\"", 2, 148, 68, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265340092525`*^9, 3.994259103727931*^9}, CellLabel-> "During evaluation of \ -In[136]:=",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], +In[148]:=",ExpressionUUID->"d6db5b29-01f6-4eef-a39f-8a9874b9c382"], -Cell[BoxData["8.00378114722308`"], "Output", - CellChangeTimes->{3.9913265375649567`*^9}, +Cell[BoxData["4.958855625753624`"], "Output", + CellChangeTimes->{3.9913265375649567`*^9, 3.9942591109651423`*^9}, CellLabel-> - "Out[136]=",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] + "Out[148]=",ExpressionUUID->"c92efc93-d37c-492e-bb77-2691090ec07d"] }, Open ]], Cell[CellGroupData[{ @@ -12281,92 +13674,95 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9917999220519733`*^9},ExpressionUUID->"d5c5d0e8-862b-f245-8b21-\ -eac61b5b75d3"], + CellChangeTimes->{3.9917999220519733`*^9}, + CellLabel-> + "In[149]:=",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nk4VdsbB3AJUYiEEJmLKJFZ1qvjUEKKMibOOXuThEy5iNzS7SZdStOT -UklJKHPhijQoR4RSfly0OeZ5OkfUb/ljP/v5PO/a3/XutZ69nq3CCD5I8PPx -8f3A1/L95Kdtm8uaPllWXpsxpP/BQ5ZjDw0Z1rnoWRbnuTV2d4ZRmrp1Jfog -/E6Fhu3EahASNXiLvmhevQDYBVHxtYLWbNSR69hngf33uw3V8Tmf0YZknrEJ -9sumk3cX9b+gX7/SzuhjD7V/jP2j4hvSild9tRVbvk/Nc47WgSIaM6fVsPeN -x5qGsbvQjzl5JQXsqsWhNVE5Pei51UVLSeyvCbIxpUEU2mU14yKEPSZkPTSj -34fU2Z6+C1E8JHQpxN1gnoNUf9UyR7GVJO/UnawYQPImel5d2I4Kc4/GaCMo -8r7a9mps8p6qjK7wGPIbKRR5hh2vsT/xOHschUcebk/H/ibbuiM8ZxI5nBo9 -EoHN8gg4dvXSFMrUH5bwwZ5I57tfGDSNhEsly/diC6vqSkzqz6KeaxNjcthp -rFpbCek5xDhaEs2HrfzYPX77/BwSqq9Y7DvFQyY658dOVHDRKo8nVB62v1EX -e4i2iL5pft+1A3smKkJgteYS2jIWHbsW+0zFGgst4V9o08/0gpFIHroJJk/9 -2L/Rgsv535nYrKw669CcFSCxaVFbCDvn3dXuBAV+kN2Tq9QRgfvt945NvcQP -7qk6IgXYsdqzRc+DVsKLpI+vXbHTnqmojesLAtfl3Yeb4TzU3jRS9StTEOZa -UASJrTxV5iEuLQS9UUOyBti5Ox2v6M4LgUyDMO1DGA+9eRm9IrBCGD5Xj+8Y -DOWh2dqWrgGaKNwYOxU/H8JD6+xFJWKqRGGFlRkvH1uv1RrETMVAspKyILAD -ekvu7dgmDmXeNqqfgnkohJ+tt0tUAij9r36pQTzUp5o/mTgnCVXnC6Y7j+P1 -IT+KNBqsA4FmU9k/sfmfclQ2nFwHZ49aCGlgKxtsOpgzvA6Kq1Rs/QJ4yIOW -UvipWwrqjdNdO/15qJEZGiZbLw2Lq2ca/iF46L/Hl5N8hGXAjaZTpow9MpyT -+YQuA9lRn048Z/HQ6nCqxbxaBpjO32lsJg9Zn3PZ6VMiCy5C367P+vJQ+UOj -2ewMObhsqcgV9+ahh30LkWbhiuAtyio7coiH9hz667+wPEWIed+T0OyC899I -2eRxFGEOedNtsHc+1JFWdleChTZOmbYzXk+Gd5Gg5SZwRQ77+514aGq8+9TA -WWWwDVvy327PQ1InrIuLHFSB9abDd9GKhzgPV/s7BahCbFDMTSfsFx1NCqPn -VUG2eEdDJvCQl/2Rs5rVqpCsfGuHLcL9bY08eEtfDSQaHIYTLPD8Q48n4mTV -oZs+YffeiIdc/Nbo2vVoAOPpguhVbR5CkYf0XZc0oOLeVWa9Fg9pJ2YYs+Q0 -YX6LWh0/Nl+mwe64A5pwtXqkImgzD+X95+laWKMJsQ1Zzubq+Ps8nJsg/2Az -+HRahTxWxP1ZO3wdYmgBEfGtgb2WhxRU/4lP6tWBhMbbdLdJLqq8OKPF49cF -doxnI5rgIq9p91ZSRRfyVNvtNce56O4bda3d3rqw3cFFfWKEi1T9ypu5bbog -My3ieGqAi7Rz+zTI+m1QrPOqxbmLixQVlEhldz1Aiinjtmwu0skKF/2J9KH7 -bc/x7ZlcdD9U3amEbQiB+0fOONlzUVMkMj6XZQobuzdFxXXPIxXvL45HAnfB -ibfpwqcC5hHxuzRf8Q+Ai1Inz4pPzyHZ4RerZBm7IWS9fOnmY3Mo3MCi44q2 -NfgkMZfkfswixuhindQQHWLehRaZu8+ivN1hqzIabaFvpkuKVjODHs4E1OSm -7YWOba/1k3fMIK7VhoY38ftA0lRyYP21adTJt3Kyx9cBjtbKla9anEJBG4NT -EtT2AxH2ef590BTKP1ZXfS3RCXwn/xeo9m0SRU/LzW89dgAKhk8I5ThOolk7 -m8Pvjx6EE6rsXPa/E8jUM9Wq74Az+Cf1PbHdOYGa5e4EvDFwAZnHO6/onBxH -8o/OVmZvOQSWox1VmcFj6EW3tr2j2GFQZETVPf57FCm1TvhFjh6GGib5kF44 -ggyupeZmdrvC9KOzN9a3DqM7AtPbrtS6Af9ZR76UtcOo1Gp7e+JLd1grbmzh -ZTOEbhpflFzM8YCafOmy7EuDqPF/WecNLnmC1xvzzV2DA6jEIV095IwXvJ6d -rDljPYAmTzjzBbGOwGf7WLpfcT+atdHyH6N5Q9uh4yNJev0oe/Q7N8zoKBwf -O/P736cc5HY/i3lE1AceXfgqZGbKQUWF+46u/MsHTt1ukBF934dMFZp5f/N8 -YFLwu+YFog+pdfu1fz7mCytmztDMxftQ75rj+9MpXzDWO2N3/UUvarrsyLQ9 -xIBEbm74eEgvSovKWBPRxADfjAK6rE4vqqz6zWPuZcIVCZt0g0kKrfWCvwzK -mZDYrN3ZVUMh5fXvGzdWMqHHwzVNFVuP7bBBqIoJ2zyFWohqCh208HzyrYYJ -Z/prOaNVFErbGFl/+gMT2m49JgUqKSTf+XRt3TcmTNCiX9mVUkjdW/am1zwT -jKRGUy2eUsjUZyw7cScLmlbXFhdep9CjWxNhjkYs6Ahvd1HBXt8yZSlrwoLP -79ceS7lGoTH6fGu2OQu8lF6OBqdR+DzgW8HezYJg0s5v5xUKic9Luq87wALH -mevSLckU6k02FMk4wQKXWd8dfokUOvDeuNUvGNej4/b0nqNQFZ9Zht5JFiwd -HWr2xb4VZmn4OpwFJl9uWHmfpZCju61vXwwLfqKMRK8ECr1Ud3+59SILBFo2 -ZQadptDlithjLx6xYNWn2dWDERQ6oX/DNCqbBb0O4x8ise2fFIiY5LDAzF94 -XgB79Q3Ok7I8FlQ2nrutGk6hxFCnodJiFtzTkRVjhlIoVkv9eMlrFnAETC5z -8X9DwI36wML/WMB/X4YT4U+hveIci9BuFpTEMY5KYm9J5BPT/8GCw1b6Nnl+ -FOKEGuYV9LEgYfc+Lw5JIV/HjNHnIywI6O59coSgkJtgWNCzBZzX2vLOh0Eh -2zD5kFwZAoZa/h584UWh1xnn7a5sICBm/n2+B7YFe0o9Sp6AosuOM4ueeP81 -6r/TlAjI5yrz0bDl2mJo/9MgIN5tv/wXdwoNm3XKrDYkYIaZ7CLpSqF/+O/9 -6+dMgHD9x1eDB/D7bxe96XCIAKPetnO3sc95RoUauBLQ7nHrgwN2VLHT5t8e -BGg/3NJc5IT7J1ekXmcQ4LYg0JW4n0IGHxmstycJaEvX7bVyoFBbqsYatRQC -7o0FJMjtpVA+EvMfSCVgXceIZ9cenD868ybvKgFr6o2zsrD1976JM7lBgOsX -xXMG2Jf5mFMOdwm40NwV6mJLIZvge9+jcgkYVJmTfEqnkKLiBSPLfALMzza0 -ncKe+Rh8deVzAuo6rEXp2A80kcPlIgI0hkVquq0ptNTZWZ1ZTkD/y6fuitjF -9grZn+oI+EI/QH+6m0JJC/yCaR8JcHZZPxOHzcge8nVnE/AgzlnSGVtCoFyh -t5GAid5dNxatKBRY4fYP7ysBBo4Xm1yw1bSvR6r3EXDaxmFeDii00Ha6ZZBD -wOKGvksziEJNiYTeswG8X+7tKY3YcT07h0xHCBDV+0qdx26/2XJk/zQBNbeo -kgVLCl1ZJUmPXkHCndJB4fldFKqc6vQMX0mCzmmRX63Y/Z05oUGCJFy6lxJb -hG1RbH2PIYLrag3Sodgcn6ifdpIk5PV8eDFrgfu3p6+jS5GwtGmc24ZtbrxO -C0mT8Kwt8HU5dopY7mEDORJq2wMmE5br5V0FCiokRAvTXslgk1m5ddJqJGws -XNq7ZI7Hp/zRtVaDhDVzK717sTmklJiAFgm3I0dVipfrUrb+I3okKNLE5Dyw -y39JxXP0SbAMXhq1xu4b7L7WvZMENc9t9nrYZtXRta0mJDDuOjwUxu4NzFf6 -F3A/9b61r8zw+eEWY1i2G+eXGv/Ixzal7bEvsCbBL4l+8S72Zbkff2TtISFc -RTAyHvuFwLOUDDsSdMVLXoZgU+Mxj2/Zk1Blfus8A9vknfSXZCcSdov8rLDF -ZhT8GP7rIAkHpE+pm2Mnpz/j/9OFhMNm6jLbsX+E7tWLdCMhgm/ttQ3YYt4y -tiEeJBg67lMVX87bSx0J8CLBQ7zURGD5+U2nk7x9SJC4uX7FlCnuZ7XdAzcG -CQOOq4oGsX/Myrw8yCKBfVBzrAdbrIdqtCdJuLDtZGE7tgn7OcfGn4T1Ef2/ -W7AZZaeXIIAEn5oLXxuwkx/YrTcPJCGr1MWobjk/WXarYRAJk7/tNtUu50f1 -Wm0PISHZ6XhqFbYoq8BNKxTPxyy5VI5tvD8uWC0c7+fSFsmy5XyzfecVI0no -73+rVIx9SWPDHdkoPH4+qaQAu1Sir0gymoQA4Zgvz7B7fhZ8XBNLwp9LV+Ly -l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk0VtsbB3AzZSbzkLnMekUZaj+mZCxRZhne9xgyhSsiGqjuTVLpopvI +EEnGlJCfIgkhFCllrnhfw0GSym/746yzPmuv/T3fZ+1zjrxv2CEaCxMTEwNf +G/fjXVrbHvd07f2PvFMrzkdHe2cL9HzNSxG76sfeDY/k6KcrmTcgeZa/5SWw +D1Jfc/DovkDC8cUFG66MSWxmN+9E1OuGHpLYf7eKNyWWvEGJZmi/FPaTnuO3 +f1HeopDzjwKksaeH2uNj6wdRq1PuUxlsyUlF9+9mH9Gfwl/7tmLbzMUbRHZ+ +RvzhHWzy2I2/prljSkZRXhHPigL2uzNicY9Cx5EKNMkoY89ymE8vUSZRrvpU +zDZsjpRwV92VKVTklsClhi0rmN12vP4rqmm42KmBbS/1/e6sGR2971lcoGAT +uQqimlyzqN/NyVEfO1H5QPKxzjkk0abyzQB7UKx/R1TJAupgyFWZYFPdggKv +p5AoP3L/pAX2/C2mO1Whiyj9xKitNTaXgqbAAmUZ8Z/3f+KInU5tthQQ+Y7c +HJ0aXbDlilwTtVe+Iy+lqhVP7N0a52dD6n+g0P1NnIHYAfqfO6fNfiG2KwrZ +Z7CXYv5i26zyG1Fjr1tcxD5dz22syvUHvaVEKVzBzoTd9/0719GaV1Js9ka/ +wjbziBJmKAsYutWAXdJ6feSMFAs45LZ8bdno+8Ur/moKC6xLywS+xo5XW66u +CGUF4BTn/LzRt1xecY7CDr2gXcvGT0dDPfTGP/nscN8muYgPW4587MYnwgHW +DZYd4tilO+2vaa5wAH+rQIUmdsuTk8zB9VwgS96fdcVebu77/NWMB6TWX6AG +bCFbHoG4Rh4wTctOb8fW6TcHXgNe+HaNZ9t77KCJmtwdWnyQrFHOtoIdztKp +s4dHAJx5f+bpCdDRpELZQvJ3QTh7yOhYI/YS0b6pW1cIdKodsnqwWe5PyYsf +F4L/KlbYxrHldLceKpkRgnSb+XQuQTpyM0ur6hoRhni5pIwj2N1+EZFiHSJQ +p1Sp8gf7U1HqJW8uUfimEqe5RYiO6DMl+fcsRKFbtOO4GvbmqPE+oyZReCf0 +s8oZ2zzJaad3jRgMuJ4Rq8GuK9BfLs6RAPLHjYA4YToqmPwZbRglA+rb45X1 +Reho/+ELnyIfyMBZv/xRB2x6i/C+B1MyUJ/m0heCvbNAQ0TOVRbmewKd72K3 ++HpVs+/dCrHcwmMSonREzo2c+HpODu529TNxi9GRcIj5w2o7BTgfHuIlIkFH +UwWbAw4GKQBq72jfhV37sUeKcV4BnIazg92wPWw9z6k0KUD4xayDudgF6tGH +siiK4M7zNktLEj9/umg+QUwJbD9d1DksRUdO/tya1qPKIMD1w79dho5Q9GGK +829lcMvlqiKx1ZJzdlElVKDsjpu2lCwdMeXrmiY4qMCJxsbmYOwHn9ydq56p +QJ5WkKPQVvx9Hik9I5m3DQZHj/L6y+F+5nbvpn1VQWGUb0JfkY7yHTM+rCSo +QsYqJZ2Gneo7OsL2nyoc/hB1Ih2bevqvGdk+VZhXsxsgsQUbspkczdRgal3z +V6USfn90Z9XqFdXBWeHWewMVOpJSuJJ4aUID1vP3DoWp0lHDP0uqqyyaQFjH +h9zD9lh07SfkNWF3WLnxOPbtFiVVUy9NMNKYS3VWoyMF/7reHwOaUPM6j8VM +Hc9bOqlMdGiBjYylsrImHclIyRJyrjpg8uq0tegOOtIojOJZQxQoc992974B +HflSzy1r2lPg7Jr8gTnsTMVrn7w9KFCSOKWua0hHrHnlFa0xFIgZfXG6Hnvo +9rTTtUoKHAgpyegywv/TTO9sVUVdGMsPiPmzB5/vJVstF46dsJfJ5UeSKR3d +iVA6WNOpB/+I9Z7RsKWjnmi0K6nQAFxiViUH/ehI3uutvWfwHqjmtiqoSqAj +2vqjMplYgDi+s16Mm3QkNlPLKeZrCkP9sYZkAx1F6Rp/vKZmDoIOLVoDn3F/ +xq824WkL8GhstZxhY6AHppGcOd2W8LFLVdhSh4EKloKelaZbAW0l9Ea6OwP9 +MBF/3ZJoA37PSoTOXmagYSbWhVEfO1Djt7x47BkDhUqHpZ1RPACr8fVpNksM +VBbY1nQj+SD8nPtdzKI1i04uSqyoBzpAb3uegTQxi5at9x15efQQtKwVzigV +ziID96smkw6O8D5pvkRichb1SmQHteg6wfx/lIPHFOaQ5N1zDcXbD8O7vgJ0 +kphDtSNqtva8R6D1UlL9vqI5JNs/7x/NOAKFW14FPvsyh3RvXC3NH3GGRlPO +zSZi8yibbVHrWrMLpIsGOpzbPY8emWgPJT9xhVXmH16lHvMoc9c/gr9K3IAv +b8hO7vQ86v5QeF43xR2WohpsmO7Moxq7W0rhpz2A0cL+3aJlHi2EODKFUj3h +T1j3WtnEPFrepxowa+YF8e5GU29YF1Ax4/2PSP2jMBxmNVyrtIBc7hT6efJ4 +Q99A1OsQ0wVUXWVzlPWCN1wYFan38llABlK9q3+vekPtopjst/gFpDjiP/Qm +0AfOVXxUSvh3AU1wHztwa9wHlJM/O5+qWEA9qfZ+lod9ISyuaHS5dQGlx+Rw +/9XjC4/I8Tjd4QXU0Li+6mflB1PsA2zP5hcQvwdc0K3zg8D8pea3TCSS2/Ky +W7rBD2aSxZtFmUmk02knztHoB8oaklnO2IeM3e8NPvOD4d7MV4PY6dLRHade ++YHWlyqj9ywkkhy+z9826AdmseOevWwkUvISy/RY8YPWsgD/Qi4SGXjPFifv +pMKebUc4X/OT6G7WfKS9PhW+u9R/Xcfe0kfuFdtNhZs1zQUUARLNWqz0FxtR +oc3sXmkGdoE6E3OnKRUY7bvWjgqSiG9F0FXIgQqJonOp34RINHFZb1NOCM4T +mg4ZESGRw8td/f5hVNg5tpzFJ0qiRibDHJ3jVCg9xpFrjJ0VuVfveRQVAt4q +GGZi27ta+kzGUUGK8aLQToxET5Rcn6j/Q4V71cVHKsVJlFofH1h7lwprXSbr +7lIkCqFkGMQUU6EvQ/p6ErbtvcpNu0uoMF1LZ36AvTlj6t7jB1QQ3OQZ/hs7 +OeLg9KOHVHDr5Eu7JU2ieFWlYzXPqfC/QauBPhkSBWV0BFd9osL2mfAgFTkS +WfFNGUeMUKEpPP6wNfb2ZCZeyhgV9pmxSYViT0XoPaicpELg7ZN6Ndg+9jmM +CjoVFvNyikzkSeTCHhla/pMKb04/P+WoQCLLSMnwUlEaHOX8+t5NiUTPc85b +XxOnQfbjiqp4bONOUilGkgZT3H1et7F1lDvem8nSoGloy45RbImBOLMPyjSw +b9v6lKpMohnDYdHNejS4F7sa5qdCoissuU/9HXG+KNM2tB3Pr82TaXeYBkcG +6vzcsZPcYyJ0nWnwdNIt8gR2zMOD29bdaODdsIe7HNuHYL76ry8NdHR0ZaRV +SaTb7kt9cZwG6r4iLxnYA1eVuRXTaJBZmiITpk6iMsQb8PUqDd7ojWonYScx +lloeXKeBTMctySxsilVLwu4MGtSeh9jn2KlMfqTdbRpEyKy7CWuQaF9Y7vuY +UhpMjqeUPcCWkbmov7eMBletXPc1YS+1h11nraABk1nwo17sPBVkl1pNgyJv +r60r2L+Hh5vy62hgugtt2atJooe2UsVdbXgeFe+LLdiXfrKwp7fTYMS0Pr8f +27d42se1kwa3LkLGBLYAW53URDcNbrI2c7BpkSi43uXK6jsafGg9yWmCraj2 +b7TSJA1UfdxTq7F/Dpzq+zZFA6pYtvoz7J5kmk75Vxr05szndmEnjO6cNqDT +oCz3pfA37KHMPs8DizQ4m8UvKa1NomucghYnmQkIvjFVdBK7gRx2j2Il4OYZ +dr4L2F+GSyJC2QnQnN5veh3b+KF5ru8mAh6T+iL3sae8Y9asBQlo/TeZOogt +YGshZCFMQONsttE4ttEuIVUkQkApo2uEgZ3GW3pEV4IA47C/brDo4PW6z5VS +8gTc6SovUsUmCkvbRBQJ0E0MmKNgp6XFfuZXJiD/pja7MfYUIczLpkpAXcjE +TbuNdWHLALoOAS+DX4WGYtf9EU6cohBwRvudSjT25LeRGyM7CVis+1p6Ctuw +6WRz/24CKp2kFFOwJ4LLZJ8CAZvEsx/fxeZzidN7bErA2onGz6XYBmb7bSvN +CSAzP72twk6VGIst3E8A3xZxjUbsWrbytBxrAg6saqc0Y4/PxRVl2RLQW2NW +14a9u1Xk7eWDBMQIepzuxfatHJu5cIgA6bCj4gPYl2+Vs5x1IoBF3iPhA/ZY +hJVOtAsBYIEejmPzeolahrsRcPqeUtKXjTyrcc8gDwIGLZgVZjb2bz11ycub +AFOH2y8XNvpsts5z8SWgYtKze2kjb1n0ySEqAR9+CRWubOSNjnfbEgScM3i6 +/+dGXmfF1L4A3Nfco+7XRr/Hp35DEAFE19zqn438POstRsEEmKec4GTegfMv +i6nrhRIwbrg4xoI9FjNhoh1OwLZs3xQ2bB5qpYtqBN4f/4KVA3vXgYQwxSgC +fIqlrDixfQ1tzstEE2C5QvXgwk5RFs8WiyGg1uLOnk3YjwQmqwVPEvA8uoe+ +4dG1ynbueALGIsnAzRv5XxJG2RMIYNXkrNmwfq/Nj/VEAk5l8nVt+P+JEtot + "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -12380,104 +13776,107 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk4VdsbB3AJUYiEEJmLKJFZ1qvjUEKKMibOOXuThEy5iNzS7SZdStOT -UklJKHPhijQoR4RSfly0OeZ5OkfUb/ljP/v5PO/a3/XutZ69nq3CCD5I8PPx -8f3A1/L95Kdtm8uaPllWXpsxpP/BQ5ZjDw0Z1rnoWRbnuTV2d4ZRmrp1Jfog -/E6Fhu3EahASNXiLvmhevQDYBVHxtYLWbNSR69hngf33uw3V8Tmf0YZknrEJ -9sumk3cX9b+gX7/SzuhjD7V/jP2j4hvSild9tRVbvk/Nc47WgSIaM6fVsPeN -x5qGsbvQjzl5JQXsqsWhNVE5Pei51UVLSeyvCbIxpUEU2mU14yKEPSZkPTSj -34fU2Z6+C1E8JHQpxN1gnoNUf9UyR7GVJO/UnawYQPImel5d2I4Kc4/GaCMo -8r7a9mps8p6qjK7wGPIbKRR5hh2vsT/xOHschUcebk/H/ibbuiM8ZxI5nBo9 -EoHN8gg4dvXSFMrUH5bwwZ5I57tfGDSNhEsly/diC6vqSkzqz6KeaxNjcthp -rFpbCek5xDhaEs2HrfzYPX77/BwSqq9Y7DvFQyY658dOVHDRKo8nVB62v1EX -e4i2iL5pft+1A3smKkJgteYS2jIWHbsW+0zFGgst4V9o08/0gpFIHroJJk/9 -2L/Rgsv535nYrKw669CcFSCxaVFbCDvn3dXuBAV+kN2Tq9QRgfvt945NvcQP -7qk6IgXYsdqzRc+DVsKLpI+vXbHTnqmojesLAtfl3Yeb4TzU3jRS9StTEOZa -UASJrTxV5iEuLQS9UUOyBti5Ox2v6M4LgUyDMO1DGA+9eRm9IrBCGD5Xj+8Y -DOWh2dqWrgGaKNwYOxU/H8JD6+xFJWKqRGGFlRkvH1uv1RrETMVAspKyILAD -ekvu7dgmDmXeNqqfgnkohJ+tt0tUAij9r36pQTzUp5o/mTgnCVXnC6Y7j+P1 -IT+KNBqsA4FmU9k/sfmfclQ2nFwHZ49aCGlgKxtsOpgzvA6Kq1Rs/QJ4yIOW -UvipWwrqjdNdO/15qJEZGiZbLw2Lq2ca/iF46L/Hl5N8hGXAjaZTpow9MpyT -+YQuA9lRn048Z/HQ6nCqxbxaBpjO32lsJg9Zn3PZ6VMiCy5C367P+vJQ+UOj -2ewMObhsqcgV9+ahh30LkWbhiuAtyio7coiH9hz667+wPEWIed+T0OyC899I -2eRxFGEOedNtsHc+1JFWdleChTZOmbYzXk+Gd5Gg5SZwRQ77+514aGq8+9TA -WWWwDVvy327PQ1InrIuLHFSB9abDd9GKhzgPV/s7BahCbFDMTSfsFx1NCqPn -VUG2eEdDJvCQl/2Rs5rVqpCsfGuHLcL9bY08eEtfDSQaHIYTLPD8Q48n4mTV -oZs+YffeiIdc/Nbo2vVoAOPpguhVbR5CkYf0XZc0oOLeVWa9Fg9pJ2YYs+Q0 -YX6LWh0/Nl+mwe64A5pwtXqkImgzD+X95+laWKMJsQ1Zzubq+Ps8nJsg/2Az -+HRahTxWxP1ZO3wdYmgBEfGtgb2WhxRU/4lP6tWBhMbbdLdJLqq8OKPF49cF -doxnI5rgIq9p91ZSRRfyVNvtNce56O4bda3d3rqw3cFFfWKEi1T9ypu5bbog -My3ieGqAi7Rz+zTI+m1QrPOqxbmLixQVlEhldz1Aiinjtmwu0skKF/2J9KH7 -bc/x7ZlcdD9U3amEbQiB+0fOONlzUVMkMj6XZQobuzdFxXXPIxXvL45HAnfB -ibfpwqcC5hHxuzRf8Q+Ai1Inz4pPzyHZ4RerZBm7IWS9fOnmY3Mo3MCi44q2 -NfgkMZfkfswixuhindQQHWLehRaZu8+ivN1hqzIabaFvpkuKVjODHs4E1OSm -7YWOba/1k3fMIK7VhoY38ftA0lRyYP21adTJt3Kyx9cBjtbKla9anEJBG4NT -EtT2AxH2ef590BTKP1ZXfS3RCXwn/xeo9m0SRU/LzW89dgAKhk8I5ThOolk7 -m8Pvjx6EE6rsXPa/E8jUM9Wq74Az+Cf1PbHdOYGa5e4EvDFwAZnHO6/onBxH -8o/OVmZvOQSWox1VmcFj6EW3tr2j2GFQZETVPf57FCm1TvhFjh6GGib5kF44 -ggyupeZmdrvC9KOzN9a3DqM7AtPbrtS6Af9ZR76UtcOo1Gp7e+JLd1grbmzh -ZTOEbhpflFzM8YCafOmy7EuDqPF/WecNLnmC1xvzzV2DA6jEIV095IwXvJ6d -rDljPYAmTzjzBbGOwGf7WLpfcT+atdHyH6N5Q9uh4yNJev0oe/Q7N8zoKBwf -O/P736cc5HY/i3lE1AceXfgqZGbKQUWF+46u/MsHTt1ukBF934dMFZp5f/N8 -YFLwu+YFog+pdfu1fz7mCytmztDMxftQ75rj+9MpXzDWO2N3/UUvarrsyLQ9 -xIBEbm74eEgvSovKWBPRxADfjAK6rE4vqqz6zWPuZcIVCZt0g0kKrfWCvwzK -mZDYrN3ZVUMh5fXvGzdWMqHHwzVNFVuP7bBBqIoJ2zyFWohqCh208HzyrYYJ -Z/prOaNVFErbGFl/+gMT2m49JgUqKSTf+XRt3TcmTNCiX9mVUkjdW/am1zwT -jKRGUy2eUsjUZyw7cScLmlbXFhdep9CjWxNhjkYs6Ahvd1HBXt8yZSlrwoLP -79ceS7lGoTH6fGu2OQu8lF6OBqdR+DzgW8HezYJg0s5v5xUKic9Luq87wALH -mevSLckU6k02FMk4wQKXWd8dfokUOvDeuNUvGNej4/b0nqNQFZ9Zht5JFiwd -HWr2xb4VZmn4OpwFJl9uWHmfpZCju61vXwwLfqKMRK8ECr1Ud3+59SILBFo2 -ZQadptDlithjLx6xYNWn2dWDERQ6oX/DNCqbBb0O4x8ise2fFIiY5LDAzF94 -XgB79Q3Ok7I8FlQ2nrutGk6hxFCnodJiFtzTkRVjhlIoVkv9eMlrFnAETC5z -8X9DwI36wML/WMB/X4YT4U+hveIci9BuFpTEMY5KYm9J5BPT/8GCw1b6Nnl+ -FOKEGuYV9LEgYfc+Lw5JIV/HjNHnIywI6O59coSgkJtgWNCzBZzX2vLOh0Eh -2zD5kFwZAoZa/h584UWh1xnn7a5sICBm/n2+B7YFe0o9Sp6AosuOM4ueeP81 -6r/TlAjI5yrz0bDl2mJo/9MgIN5tv/wXdwoNm3XKrDYkYIaZ7CLpSqF/+O/9 -6+dMgHD9x1eDB/D7bxe96XCIAKPetnO3sc95RoUauBLQ7nHrgwN2VLHT5t8e -BGg/3NJc5IT7J1ekXmcQ4LYg0JW4n0IGHxmstycJaEvX7bVyoFBbqsYatRQC -7o0FJMjtpVA+EvMfSCVgXceIZ9cenD868ybvKgFr6o2zsrD1976JM7lBgOsX -xXMG2Jf5mFMOdwm40NwV6mJLIZvge9+jcgkYVJmTfEqnkKLiBSPLfALMzza0 -ncKe+Rh8deVzAuo6rEXp2A80kcPlIgI0hkVquq0ptNTZWZ1ZTkD/y6fuitjF -9grZn+oI+EI/QH+6m0JJC/yCaR8JcHZZPxOHzcge8nVnE/AgzlnSGVtCoFyh -t5GAid5dNxatKBRY4fYP7ysBBo4Xm1yw1bSvR6r3EXDaxmFeDii00Ha6ZZBD -wOKGvksziEJNiYTeswG8X+7tKY3YcT07h0xHCBDV+0qdx26/2XJk/zQBNbeo -kgVLCl1ZJUmPXkHCndJB4fldFKqc6vQMX0mCzmmRX63Y/Z05oUGCJFy6lxJb -hG1RbH2PIYLrag3Sodgcn6ifdpIk5PV8eDFrgfu3p6+jS5GwtGmc24ZtbrxO -C0mT8Kwt8HU5dopY7mEDORJq2wMmE5br5V0FCiokRAvTXslgk1m5ddJqJGws -XNq7ZI7Hp/zRtVaDhDVzK717sTmklJiAFgm3I0dVipfrUrb+I3okKNLE5Dyw -y39JxXP0SbAMXhq1xu4b7L7WvZMENc9t9nrYZtXRta0mJDDuOjwUxu4NzFf6 -F3A/9b61r8zw+eEWY1i2G+eXGv/Ixzal7bEvsCbBL4l+8S72Zbkff2TtISFc -RTAyHvuFwLOUDDsSdMVLXoZgU+Mxj2/Zk1Blfus8A9vknfSXZCcSdov8rLDF -ZhT8GP7rIAkHpE+pm2Mnpz/j/9OFhMNm6jLbsX+E7tWLdCMhgm/ttQ3YYt4y -tiEeJBg67lMVX87bSx0J8CLBQ7zURGD5+U2nk7x9SJC4uX7FlCnuZ7XdAzcG -CQOOq4oGsX/Myrw8yCKBfVBzrAdbrIdqtCdJuLDtZGE7tgn7OcfGn4T1Ef2/ -W7AZZaeXIIAEn5oLXxuwkx/YrTcPJCGr1MWobjk/WXarYRAJk7/tNtUu50f1 -Wm0PISHZ6XhqFbYoq8BNKxTPxyy5VI5tvD8uWC0c7+fSFsmy5XyzfecVI0no -73+rVIx9SWPDHdkoPH4+qaQAu1Sir0gymoQA4Zgvz7B7fhZ8XBNLwp9LV+Ly -l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx +1:eJwV1Hk0VtsbB3AzZSbzkLnMekUZaj+mZCxRZhne9xgyhSsiGqjuTVLpopvI +EEnGlJCfIgkhFCllrnhfw0GSym/746yzPmuv/T3fZ+1zjrxv2CEaCxMTEwNf +G/fjXVrbHvd07f2PvFMrzkdHe2cL9HzNSxG76sfeDY/k6KcrmTcgeZa/5SWw +D1Jfc/DovkDC8cUFG66MSWxmN+9E1OuGHpLYf7eKNyWWvEGJZmi/FPaTnuO3 +f1HeopDzjwKksaeH2uNj6wdRq1PuUxlsyUlF9+9mH9Gfwl/7tmLbzMUbRHZ+ +RvzhHWzy2I2/prljSkZRXhHPigL2uzNicY9Cx5EKNMkoY89ymE8vUSZRrvpU +zDZsjpRwV92VKVTklsClhi0rmN12vP4rqmm42KmBbS/1/e6sGR2971lcoGAT +uQqimlyzqN/NyVEfO1H5QPKxzjkk0abyzQB7UKx/R1TJAupgyFWZYFPdggKv +p5AoP3L/pAX2/C2mO1Whiyj9xKitNTaXgqbAAmUZ8Z/3f+KInU5tthQQ+Y7c +HJ0aXbDlilwTtVe+Iy+lqhVP7N0a52dD6n+g0P1NnIHYAfqfO6fNfiG2KwrZ +Z7CXYv5i26zyG1Fjr1tcxD5dz22syvUHvaVEKVzBzoTd9/0719GaV1Js9ka/ +wjbziBJmKAsYutWAXdJ6feSMFAs45LZ8bdno+8Ur/moKC6xLywS+xo5XW66u +CGUF4BTn/LzRt1xecY7CDr2gXcvGT0dDPfTGP/nscN8muYgPW4587MYnwgHW +DZYd4tilO+2vaa5wAH+rQIUmdsuTk8zB9VwgS96fdcVebu77/NWMB6TWX6AG +bCFbHoG4Rh4wTctOb8fW6TcHXgNe+HaNZ9t77KCJmtwdWnyQrFHOtoIdztKp +s4dHAJx5f+bpCdDRpELZQvJ3QTh7yOhYI/YS0b6pW1cIdKodsnqwWe5PyYsf +F4L/KlbYxrHldLceKpkRgnSb+XQuQTpyM0ur6hoRhni5pIwj2N1+EZFiHSJQ +p1Sp8gf7U1HqJW8uUfimEqe5RYiO6DMl+fcsRKFbtOO4GvbmqPE+oyZReCf0 +s8oZ2zzJaad3jRgMuJ4Rq8GuK9BfLs6RAPLHjYA4YToqmPwZbRglA+rb45X1 +Reho/+ELnyIfyMBZv/xRB2x6i/C+B1MyUJ/m0heCvbNAQ0TOVRbmewKd72K3 ++HpVs+/dCrHcwmMSonREzo2c+HpODu529TNxi9GRcIj5w2o7BTgfHuIlIkFH +UwWbAw4GKQBq72jfhV37sUeKcV4BnIazg92wPWw9z6k0KUD4xayDudgF6tGH +siiK4M7zNktLEj9/umg+QUwJbD9d1DksRUdO/tya1qPKIMD1w79dho5Q9GGK +829lcMvlqiKx1ZJzdlElVKDsjpu2lCwdMeXrmiY4qMCJxsbmYOwHn9ydq56p +QJ5WkKPQVvx9Hik9I5m3DQZHj/L6y+F+5nbvpn1VQWGUb0JfkY7yHTM+rCSo +QsYqJZ2Gneo7OsL2nyoc/hB1Ih2bevqvGdk+VZhXsxsgsQUbspkczdRgal3z +V6USfn90Z9XqFdXBWeHWewMVOpJSuJJ4aUID1vP3DoWp0lHDP0uqqyyaQFjH +h9zD9lh07SfkNWF3WLnxOPbtFiVVUy9NMNKYS3VWoyMF/7reHwOaUPM6j8VM +Hc9bOqlMdGiBjYylsrImHclIyRJyrjpg8uq0tegOOtIojOJZQxQoc992974B +HflSzy1r2lPg7Jr8gTnsTMVrn7w9KFCSOKWua0hHrHnlFa0xFIgZfXG6Hnvo +9rTTtUoKHAgpyegywv/TTO9sVUVdGMsPiPmzB5/vJVstF46dsJfJ5UeSKR3d +iVA6WNOpB/+I9Z7RsKWjnmi0K6nQAFxiViUH/ehI3uutvWfwHqjmtiqoSqAj +2vqjMplYgDi+s16Mm3QkNlPLKeZrCkP9sYZkAx1F6Rp/vKZmDoIOLVoDn3F/ +xq824WkL8GhstZxhY6AHppGcOd2W8LFLVdhSh4EKloKelaZbAW0l9Ea6OwP9 +MBF/3ZJoA37PSoTOXmagYSbWhVEfO1Djt7x47BkDhUqHpZ1RPACr8fVpNksM +VBbY1nQj+SD8nPtdzKI1i04uSqyoBzpAb3uegTQxi5at9x15efQQtKwVzigV +ziID96smkw6O8D5pvkRichb1SmQHteg6wfx/lIPHFOaQ5N1zDcXbD8O7vgJ0 +kphDtSNqtva8R6D1UlL9vqI5JNs/7x/NOAKFW14FPvsyh3RvXC3NH3GGRlPO +zSZi8yibbVHrWrMLpIsGOpzbPY8emWgPJT9xhVXmH16lHvMoc9c/gr9K3IAv +b8hO7vQ86v5QeF43xR2WohpsmO7Moxq7W0rhpz2A0cL+3aJlHi2EODKFUj3h +T1j3WtnEPFrepxowa+YF8e5GU29YF1Ax4/2PSP2jMBxmNVyrtIBc7hT6efJ4 +Q99A1OsQ0wVUXWVzlPWCN1wYFan38llABlK9q3+vekPtopjst/gFpDjiP/Qm +0AfOVXxUSvh3AU1wHztwa9wHlJM/O5+qWEA9qfZ+lod9ISyuaHS5dQGlx+Rw +/9XjC4/I8Tjd4QXU0Li+6mflB1PsA2zP5hcQvwdc0K3zg8D8pea3TCSS2/Ky +W7rBD2aSxZtFmUmk02knztHoB8oaklnO2IeM3e8NPvOD4d7MV4PY6dLRHade ++YHWlyqj9ywkkhy+z9826AdmseOevWwkUvISy/RY8YPWsgD/Qi4SGXjPFifv +pMKebUc4X/OT6G7WfKS9PhW+u9R/Xcfe0kfuFdtNhZs1zQUUARLNWqz0FxtR +oc3sXmkGdoE6E3OnKRUY7bvWjgqSiG9F0FXIgQqJonOp34RINHFZb1NOCM4T +mg4ZESGRw8td/f5hVNg5tpzFJ0qiRibDHJ3jVCg9xpFrjJ0VuVfveRQVAt4q +GGZi27ta+kzGUUGK8aLQToxET5Rcn6j/Q4V71cVHKsVJlFofH1h7lwprXSbr +7lIkCqFkGMQUU6EvQ/p6ErbtvcpNu0uoMF1LZ36AvTlj6t7jB1QQ3OQZ/hs7 +OeLg9KOHVHDr5Eu7JU2ieFWlYzXPqfC/QauBPhkSBWV0BFd9osL2mfAgFTkS +WfFNGUeMUKEpPP6wNfb2ZCZeyhgV9pmxSYViT0XoPaicpELg7ZN6Ndg+9jmM +CjoVFvNyikzkSeTCHhla/pMKb04/P+WoQCLLSMnwUlEaHOX8+t5NiUTPc85b +XxOnQfbjiqp4bONOUilGkgZT3H1et7F1lDvem8nSoGloy45RbImBOLMPyjSw +b9v6lKpMohnDYdHNejS4F7sa5qdCoissuU/9HXG+KNM2tB3Pr82TaXeYBkcG +6vzcsZPcYyJ0nWnwdNIt8gR2zMOD29bdaODdsIe7HNuHYL76ry8NdHR0ZaRV +SaTb7kt9cZwG6r4iLxnYA1eVuRXTaJBZmiITpk6iMsQb8PUqDd7ojWonYScx +lloeXKeBTMctySxsilVLwu4MGtSeh9jn2KlMfqTdbRpEyKy7CWuQaF9Y7vuY +UhpMjqeUPcCWkbmov7eMBletXPc1YS+1h11nraABk1nwo17sPBVkl1pNgyJv +r60r2L+Hh5vy62hgugtt2atJooe2UsVdbXgeFe+LLdiXfrKwp7fTYMS0Pr8f +27d42se1kwa3LkLGBLYAW53URDcNbrI2c7BpkSi43uXK6jsafGg9yWmCraj2 +b7TSJA1UfdxTq7F/Dpzq+zZFA6pYtvoz7J5kmk75Vxr05szndmEnjO6cNqDT +oCz3pfA37KHMPs8DizQ4m8UvKa1NomucghYnmQkIvjFVdBK7gRx2j2Il4OYZ +dr4L2F+GSyJC2QnQnN5veh3b+KF5ru8mAh6T+iL3sae8Y9asBQlo/TeZOogt +YGshZCFMQONsttE4ttEuIVUkQkApo2uEgZ3GW3pEV4IA47C/brDo4PW6z5VS +8gTc6SovUsUmCkvbRBQJ0E0MmKNgp6XFfuZXJiD/pja7MfYUIczLpkpAXcjE +TbuNdWHLALoOAS+DX4WGYtf9EU6cohBwRvudSjT25LeRGyM7CVis+1p6Ctuw +6WRz/24CKp2kFFOwJ4LLZJ8CAZvEsx/fxeZzidN7bErA2onGz6XYBmb7bSvN +CSAzP72twk6VGIst3E8A3xZxjUbsWrbytBxrAg6saqc0Y4/PxRVl2RLQW2NW +14a9u1Xk7eWDBMQIepzuxfatHJu5cIgA6bCj4gPYl2+Vs5x1IoBF3iPhA/ZY +hJVOtAsBYIEejmPzeolahrsRcPqeUtKXjTyrcc8gDwIGLZgVZjb2bz11ycub +AFOH2y8XNvpsts5z8SWgYtKze2kjb1n0ySEqAR9+CRWubOSNjnfbEgScM3i6 +/+dGXmfF1L4A3Nfco+7XRr/Hp35DEAFE19zqn438POstRsEEmKec4GTegfMv +i6nrhRIwbrg4xoI9FjNhoh1OwLZs3xQ2bB5qpYtqBN4f/4KVA3vXgYQwxSgC +fIqlrDixfQ1tzstEE2C5QvXgwk5RFs8WiyGg1uLOnk3YjwQmqwVPEvA8uoe+ +4dG1ynbueALGIsnAzRv5XxJG2RMIYNXkrNmwfq/Nj/VEAk5l8nVt+P+JEtot + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6007907022525464, - 1.5921070201523966`}}, + "PlotRange" -> {{0, 180}, {0.8767207723718288, + 1.1369731949903603`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6007907022525477}, + "AxesOrigin" -> {0, 0.8767207723718308}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -12489,21 +13888,21 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6007907022525464, - 1.5921070201523966`}}, + "PlotRange" -> {{0, 180}, {0.8767207723718288, + 1.1369731949903603`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6007907022525477}, + "AxesOrigin" -> {0, 0.8767207723718308}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -12517,102 +13916,105 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk4VdsbB3AJUYiEEJmLKJFZ1qvjUEKKMibOOXuThEy5iNzS7SZdStOT -UklJKHPhijQoR4RSfly0OeZ5OkfUb/ljP/v5PO/a3/XutZ69nq3CCD5I8PPx -8f3A1/L95Kdtm8uaPllWXpsxpP/BQ5ZjDw0Z1rnoWRbnuTV2d4ZRmrp1Jfog -/E6Fhu3EahASNXiLvmhevQDYBVHxtYLWbNSR69hngf33uw3V8Tmf0YZknrEJ -9sumk3cX9b+gX7/SzuhjD7V/jP2j4hvSild9tRVbvk/Nc47WgSIaM6fVsPeN -x5qGsbvQjzl5JQXsqsWhNVE5Pei51UVLSeyvCbIxpUEU2mU14yKEPSZkPTSj -34fU2Z6+C1E8JHQpxN1gnoNUf9UyR7GVJO/UnawYQPImel5d2I4Kc4/GaCMo -8r7a9mps8p6qjK7wGPIbKRR5hh2vsT/xOHschUcebk/H/ibbuiM8ZxI5nBo9 -EoHN8gg4dvXSFMrUH5bwwZ5I57tfGDSNhEsly/diC6vqSkzqz6KeaxNjcthp -rFpbCek5xDhaEs2HrfzYPX77/BwSqq9Y7DvFQyY658dOVHDRKo8nVB62v1EX -e4i2iL5pft+1A3smKkJgteYS2jIWHbsW+0zFGgst4V9o08/0gpFIHroJJk/9 -2L/Rgsv535nYrKw669CcFSCxaVFbCDvn3dXuBAV+kN2Tq9QRgfvt945NvcQP -7qk6IgXYsdqzRc+DVsKLpI+vXbHTnqmojesLAtfl3Yeb4TzU3jRS9StTEOZa -UASJrTxV5iEuLQS9UUOyBti5Ox2v6M4LgUyDMO1DGA+9eRm9IrBCGD5Xj+8Y -DOWh2dqWrgGaKNwYOxU/H8JD6+xFJWKqRGGFlRkvH1uv1RrETMVAspKyILAD -ekvu7dgmDmXeNqqfgnkohJ+tt0tUAij9r36pQTzUp5o/mTgnCVXnC6Y7j+P1 -IT+KNBqsA4FmU9k/sfmfclQ2nFwHZ49aCGlgKxtsOpgzvA6Kq1Rs/QJ4yIOW -UvipWwrqjdNdO/15qJEZGiZbLw2Lq2ca/iF46L/Hl5N8hGXAjaZTpow9MpyT -+YQuA9lRn048Z/HQ6nCqxbxaBpjO32lsJg9Zn3PZ6VMiCy5C367P+vJQ+UOj -2ewMObhsqcgV9+ahh30LkWbhiuAtyio7coiH9hz667+wPEWIed+T0OyC899I -2eRxFGEOedNtsHc+1JFWdleChTZOmbYzXk+Gd5Gg5SZwRQ77+514aGq8+9TA -WWWwDVvy327PQ1InrIuLHFSB9abDd9GKhzgPV/s7BahCbFDMTSfsFx1NCqPn -VUG2eEdDJvCQl/2Rs5rVqpCsfGuHLcL9bY08eEtfDSQaHIYTLPD8Q48n4mTV -oZs+YffeiIdc/Nbo2vVoAOPpguhVbR5CkYf0XZc0oOLeVWa9Fg9pJ2YYs+Q0 -YX6LWh0/Nl+mwe64A5pwtXqkImgzD+X95+laWKMJsQ1Zzubq+Ps8nJsg/2Az -+HRahTxWxP1ZO3wdYmgBEfGtgb2WhxRU/4lP6tWBhMbbdLdJLqq8OKPF49cF -doxnI5rgIq9p91ZSRRfyVNvtNce56O4bda3d3rqw3cFFfWKEi1T9ypu5bbog -My3ieGqAi7Rz+zTI+m1QrPOqxbmLixQVlEhldz1Aiinjtmwu0skKF/2J9KH7 -bc/x7ZlcdD9U3amEbQiB+0fOONlzUVMkMj6XZQobuzdFxXXPIxXvL45HAnfB -ibfpwqcC5hHxuzRf8Q+Ai1Inz4pPzyHZ4RerZBm7IWS9fOnmY3Mo3MCi44q2 -NfgkMZfkfswixuhindQQHWLehRaZu8+ivN1hqzIabaFvpkuKVjODHs4E1OSm -7YWOba/1k3fMIK7VhoY38ftA0lRyYP21adTJt3Kyx9cBjtbKla9anEJBG4NT -EtT2AxH2ef590BTKP1ZXfS3RCXwn/xeo9m0SRU/LzW89dgAKhk8I5ThOolk7 -m8Pvjx6EE6rsXPa/E8jUM9Wq74Az+Cf1PbHdOYGa5e4EvDFwAZnHO6/onBxH -8o/OVmZvOQSWox1VmcFj6EW3tr2j2GFQZETVPf57FCm1TvhFjh6GGib5kF44 -ggyupeZmdrvC9KOzN9a3DqM7AtPbrtS6Af9ZR76UtcOo1Gp7e+JLd1grbmzh -ZTOEbhpflFzM8YCafOmy7EuDqPF/WecNLnmC1xvzzV2DA6jEIV095IwXvJ6d -rDljPYAmTzjzBbGOwGf7WLpfcT+atdHyH6N5Q9uh4yNJev0oe/Q7N8zoKBwf -O/P736cc5HY/i3lE1AceXfgqZGbKQUWF+46u/MsHTt1ukBF934dMFZp5f/N8 -YFLwu+YFog+pdfu1fz7mCytmztDMxftQ75rj+9MpXzDWO2N3/UUvarrsyLQ9 -xIBEbm74eEgvSovKWBPRxADfjAK6rE4vqqz6zWPuZcIVCZt0g0kKrfWCvwzK -mZDYrN3ZVUMh5fXvGzdWMqHHwzVNFVuP7bBBqIoJ2zyFWohqCh208HzyrYYJ -Z/prOaNVFErbGFl/+gMT2m49JgUqKSTf+XRt3TcmTNCiX9mVUkjdW/am1zwT -jKRGUy2eUsjUZyw7cScLmlbXFhdep9CjWxNhjkYs6Ahvd1HBXt8yZSlrwoLP -79ceS7lGoTH6fGu2OQu8lF6OBqdR+DzgW8HezYJg0s5v5xUKic9Luq87wALH -mevSLckU6k02FMk4wQKXWd8dfokUOvDeuNUvGNej4/b0nqNQFZ9Zht5JFiwd -HWr2xb4VZmn4OpwFJl9uWHmfpZCju61vXwwLfqKMRK8ECr1Ud3+59SILBFo2 -ZQadptDlithjLx6xYNWn2dWDERQ6oX/DNCqbBb0O4x8ise2fFIiY5LDAzF94 -XgB79Q3Ok7I8FlQ2nrutGk6hxFCnodJiFtzTkRVjhlIoVkv9eMlrFnAETC5z -8X9DwI36wML/WMB/X4YT4U+hveIci9BuFpTEMY5KYm9J5BPT/8GCw1b6Nnl+ -FOKEGuYV9LEgYfc+Lw5JIV/HjNHnIywI6O59coSgkJtgWNCzBZzX2vLOh0Eh -2zD5kFwZAoZa/h584UWh1xnn7a5sICBm/n2+B7YFe0o9Sp6AosuOM4ueeP81 -6r/TlAjI5yrz0bDl2mJo/9MgIN5tv/wXdwoNm3XKrDYkYIaZ7CLpSqF/+O/9 -6+dMgHD9x1eDB/D7bxe96XCIAKPetnO3sc95RoUauBLQ7nHrgwN2VLHT5t8e -BGg/3NJc5IT7J1ekXmcQ4LYg0JW4n0IGHxmstycJaEvX7bVyoFBbqsYatRQC -7o0FJMjtpVA+EvMfSCVgXceIZ9cenD868ybvKgFr6o2zsrD1976JM7lBgOsX -xXMG2Jf5mFMOdwm40NwV6mJLIZvge9+jcgkYVJmTfEqnkKLiBSPLfALMzza0 -ncKe+Rh8deVzAuo6rEXp2A80kcPlIgI0hkVquq0ptNTZWZ1ZTkD/y6fuitjF -9grZn+oI+EI/QH+6m0JJC/yCaR8JcHZZPxOHzcge8nVnE/AgzlnSGVtCoFyh -t5GAid5dNxatKBRY4fYP7ysBBo4Xm1yw1bSvR6r3EXDaxmFeDii00Ha6ZZBD -wOKGvksziEJNiYTeswG8X+7tKY3YcT07h0xHCBDV+0qdx26/2XJk/zQBNbeo -kgVLCl1ZJUmPXkHCndJB4fldFKqc6vQMX0mCzmmRX63Y/Z05oUGCJFy6lxJb -hG1RbH2PIYLrag3Sodgcn6ifdpIk5PV8eDFrgfu3p6+jS5GwtGmc24ZtbrxO -C0mT8Kwt8HU5dopY7mEDORJq2wMmE5br5V0FCiokRAvTXslgk1m5ddJqJGws -XNq7ZI7Hp/zRtVaDhDVzK717sTmklJiAFgm3I0dVipfrUrb+I3okKNLE5Dyw -y39JxXP0SbAMXhq1xu4b7L7WvZMENc9t9nrYZtXRta0mJDDuOjwUxu4NzFf6 -F3A/9b61r8zw+eEWY1i2G+eXGv/Ixzal7bEvsCbBL4l+8S72Zbkff2TtISFc -RTAyHvuFwLOUDDsSdMVLXoZgU+Mxj2/Zk1Blfus8A9vknfSXZCcSdov8rLDF -ZhT8GP7rIAkHpE+pm2Mnpz/j/9OFhMNm6jLbsX+E7tWLdCMhgm/ttQ3YYt4y -tiEeJBg67lMVX87bSx0J8CLBQ7zURGD5+U2nk7x9SJC4uX7FlCnuZ7XdAzcG -CQOOq4oGsX/Myrw8yCKBfVBzrAdbrIdqtCdJuLDtZGE7tgn7OcfGn4T1Ef2/ -W7AZZaeXIIAEn5oLXxuwkx/YrTcPJCGr1MWobjk/WXarYRAJk7/tNtUu50f1 -Wm0PISHZ6XhqFbYoq8BNKxTPxyy5VI5tvD8uWC0c7+fSFsmy5XyzfecVI0no -73+rVIx9SWPDHdkoPH4+qaQAu1Sir0gymoQA4Zgvz7B7fhZ8XBNLwp9LV+Ly -l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx +1:eJwV1Hk0VtsbB3AzZSbzkLnMekUZaj+mZCxRZhne9xgyhSsiGqjuTVLpopvI +EEnGlJCfIgkhFCllrnhfw0GSym/746yzPmuv/T3fZ+1zjrxv2CEaCxMTEwNf +G/fjXVrbHvd07f2PvFMrzkdHe2cL9HzNSxG76sfeDY/k6KcrmTcgeZa/5SWw +D1Jfc/DovkDC8cUFG66MSWxmN+9E1OuGHpLYf7eKNyWWvEGJZmi/FPaTnuO3 +f1HeopDzjwKksaeH2uNj6wdRq1PuUxlsyUlF9+9mH9Gfwl/7tmLbzMUbRHZ+ +RvzhHWzy2I2/prljSkZRXhHPigL2uzNicY9Cx5EKNMkoY89ymE8vUSZRrvpU +zDZsjpRwV92VKVTklsClhi0rmN12vP4rqmm42KmBbS/1/e6sGR2971lcoGAT +uQqimlyzqN/NyVEfO1H5QPKxzjkk0abyzQB7UKx/R1TJAupgyFWZYFPdggKv +p5AoP3L/pAX2/C2mO1Whiyj9xKitNTaXgqbAAmUZ8Z/3f+KInU5tthQQ+Y7c +HJ0aXbDlilwTtVe+Iy+lqhVP7N0a52dD6n+g0P1NnIHYAfqfO6fNfiG2KwrZ +Z7CXYv5i26zyG1Fjr1tcxD5dz22syvUHvaVEKVzBzoTd9/0719GaV1Js9ka/ +wjbziBJmKAsYutWAXdJ6feSMFAs45LZ8bdno+8Ur/moKC6xLywS+xo5XW66u +CGUF4BTn/LzRt1xecY7CDr2gXcvGT0dDPfTGP/nscN8muYgPW4587MYnwgHW +DZYd4tilO+2vaa5wAH+rQIUmdsuTk8zB9VwgS96fdcVebu77/NWMB6TWX6AG +bCFbHoG4Rh4wTctOb8fW6TcHXgNe+HaNZ9t77KCJmtwdWnyQrFHOtoIdztKp +s4dHAJx5f+bpCdDRpELZQvJ3QTh7yOhYI/YS0b6pW1cIdKodsnqwWe5PyYsf +F4L/KlbYxrHldLceKpkRgnSb+XQuQTpyM0ur6hoRhni5pIwj2N1+EZFiHSJQ +p1Sp8gf7U1HqJW8uUfimEqe5RYiO6DMl+fcsRKFbtOO4GvbmqPE+oyZReCf0 +s8oZ2zzJaad3jRgMuJ4Rq8GuK9BfLs6RAPLHjYA4YToqmPwZbRglA+rb45X1 +Reho/+ELnyIfyMBZv/xRB2x6i/C+B1MyUJ/m0heCvbNAQ0TOVRbmewKd72K3 ++HpVs+/dCrHcwmMSonREzo2c+HpODu529TNxi9GRcIj5w2o7BTgfHuIlIkFH +UwWbAw4GKQBq72jfhV37sUeKcV4BnIazg92wPWw9z6k0KUD4xayDudgF6tGH +siiK4M7zNktLEj9/umg+QUwJbD9d1DksRUdO/tya1qPKIMD1w79dho5Q9GGK +829lcMvlqiKx1ZJzdlElVKDsjpu2lCwdMeXrmiY4qMCJxsbmYOwHn9ydq56p +QJ5WkKPQVvx9Hik9I5m3DQZHj/L6y+F+5nbvpn1VQWGUb0JfkY7yHTM+rCSo +QsYqJZ2Gneo7OsL2nyoc/hB1Ih2bevqvGdk+VZhXsxsgsQUbspkczdRgal3z +V6USfn90Z9XqFdXBWeHWewMVOpJSuJJ4aUID1vP3DoWp0lHDP0uqqyyaQFjH +h9zD9lh07SfkNWF3WLnxOPbtFiVVUy9NMNKYS3VWoyMF/7reHwOaUPM6j8VM +Hc9bOqlMdGiBjYylsrImHclIyRJyrjpg8uq0tegOOtIojOJZQxQoc992974B +HflSzy1r2lPg7Jr8gTnsTMVrn7w9KFCSOKWua0hHrHnlFa0xFIgZfXG6Hnvo +9rTTtUoKHAgpyegywv/TTO9sVUVdGMsPiPmzB5/vJVstF46dsJfJ5UeSKR3d +iVA6WNOpB/+I9Z7RsKWjnmi0K6nQAFxiViUH/ehI3uutvWfwHqjmtiqoSqAj +2vqjMplYgDi+s16Mm3QkNlPLKeZrCkP9sYZkAx1F6Rp/vKZmDoIOLVoDn3F/ +xq824WkL8GhstZxhY6AHppGcOd2W8LFLVdhSh4EKloKelaZbAW0l9Ea6OwP9 +MBF/3ZJoA37PSoTOXmagYSbWhVEfO1Djt7x47BkDhUqHpZ1RPACr8fVpNksM +VBbY1nQj+SD8nPtdzKI1i04uSqyoBzpAb3uegTQxi5at9x15efQQtKwVzigV +ziID96smkw6O8D5pvkRichb1SmQHteg6wfx/lIPHFOaQ5N1zDcXbD8O7vgJ0 +kphDtSNqtva8R6D1UlL9vqI5JNs/7x/NOAKFW14FPvsyh3RvXC3NH3GGRlPO +zSZi8yibbVHrWrMLpIsGOpzbPY8emWgPJT9xhVXmH16lHvMoc9c/gr9K3IAv +b8hO7vQ86v5QeF43xR2WohpsmO7Moxq7W0rhpz2A0cL+3aJlHi2EODKFUj3h +T1j3WtnEPFrepxowa+YF8e5GU29YF1Ax4/2PSP2jMBxmNVyrtIBc7hT6efJ4 +Q99A1OsQ0wVUXWVzlPWCN1wYFan38llABlK9q3+vekPtopjst/gFpDjiP/Qm +0AfOVXxUSvh3AU1wHztwa9wHlJM/O5+qWEA9qfZ+lod9ISyuaHS5dQGlx+Rw +/9XjC4/I8Tjd4QXU0Li+6mflB1PsA2zP5hcQvwdc0K3zg8D8pea3TCSS2/Ky +W7rBD2aSxZtFmUmk02knztHoB8oaklnO2IeM3e8NPvOD4d7MV4PY6dLRHade ++YHWlyqj9ywkkhy+z9826AdmseOevWwkUvISy/RY8YPWsgD/Qi4SGXjPFifv +pMKebUc4X/OT6G7WfKS9PhW+u9R/Xcfe0kfuFdtNhZs1zQUUARLNWqz0FxtR +oc3sXmkGdoE6E3OnKRUY7bvWjgqSiG9F0FXIgQqJonOp34RINHFZb1NOCM4T +mg4ZESGRw8td/f5hVNg5tpzFJ0qiRibDHJ3jVCg9xpFrjJ0VuVfveRQVAt4q +GGZi27ta+kzGUUGK8aLQToxET5Rcn6j/Q4V71cVHKsVJlFofH1h7lwprXSbr +7lIkCqFkGMQUU6EvQ/p6ErbtvcpNu0uoMF1LZ36AvTlj6t7jB1QQ3OQZ/hs7 +OeLg9KOHVHDr5Eu7JU2ieFWlYzXPqfC/QauBPhkSBWV0BFd9osL2mfAgFTkS +WfFNGUeMUKEpPP6wNfb2ZCZeyhgV9pmxSYViT0XoPaicpELg7ZN6Ndg+9jmM +CjoVFvNyikzkSeTCHhla/pMKb04/P+WoQCLLSMnwUlEaHOX8+t5NiUTPc85b +XxOnQfbjiqp4bONOUilGkgZT3H1et7F1lDvem8nSoGloy45RbImBOLMPyjSw +b9v6lKpMohnDYdHNejS4F7sa5qdCoissuU/9HXG+KNM2tB3Pr82TaXeYBkcG +6vzcsZPcYyJ0nWnwdNIt8gR2zMOD29bdaODdsIe7HNuHYL76ry8NdHR0ZaRV +SaTb7kt9cZwG6r4iLxnYA1eVuRXTaJBZmiITpk6iMsQb8PUqDd7ojWonYScx +lloeXKeBTMctySxsilVLwu4MGtSeh9jn2KlMfqTdbRpEyKy7CWuQaF9Y7vuY +UhpMjqeUPcCWkbmov7eMBletXPc1YS+1h11nraABk1nwo17sPBVkl1pNgyJv +r60r2L+Hh5vy62hgugtt2atJooe2UsVdbXgeFe+LLdiXfrKwp7fTYMS0Pr8f +27d42se1kwa3LkLGBLYAW53URDcNbrI2c7BpkSi43uXK6jsafGg9yWmCraj2 +b7TSJA1UfdxTq7F/Dpzq+zZFA6pYtvoz7J5kmk75Vxr05szndmEnjO6cNqDT +oCz3pfA37KHMPs8DizQ4m8UvKa1NomucghYnmQkIvjFVdBK7gRx2j2Il4OYZ +dr4L2F+GSyJC2QnQnN5veh3b+KF5ru8mAh6T+iL3sae8Y9asBQlo/TeZOogt +YGshZCFMQONsttE4ttEuIVUkQkApo2uEgZ3GW3pEV4IA47C/brDo4PW6z5VS +8gTc6SovUsUmCkvbRBQJ0E0MmKNgp6XFfuZXJiD/pja7MfYUIczLpkpAXcjE +TbuNdWHLALoOAS+DX4WGYtf9EU6cohBwRvudSjT25LeRGyM7CVis+1p6Ctuw +6WRz/24CKp2kFFOwJ4LLZJ8CAZvEsx/fxeZzidN7bErA2onGz6XYBmb7bSvN +CSAzP72twk6VGIst3E8A3xZxjUbsWrbytBxrAg6saqc0Y4/PxRVl2RLQW2NW +14a9u1Xk7eWDBMQIepzuxfatHJu5cIgA6bCj4gPYl2+Vs5x1IoBF3iPhA/ZY +hJVOtAsBYIEejmPzeolahrsRcPqeUtKXjTyrcc8gDwIGLZgVZjb2bz11ycub +AFOH2y8XNvpsts5z8SWgYtKze2kjb1n0ySEqAR9+CRWubOSNjnfbEgScM3i6 +/+dGXmfF1L4A3Nfco+7XRr/Hp35DEAFE19zqn438POstRsEEmKec4GTegfMv +i6nrhRIwbrg4xoI9FjNhoh1OwLZs3xQ2bB5qpYtqBN4f/4KVA3vXgYQwxSgC +fIqlrDixfQ1tzstEE2C5QvXgwk5RFs8WiyGg1uLOnk3YjwQmqwVPEvA8uoe+ +4dG1ynbueALGIsnAzRv5XxJG2RMIYNXkrNmwfq/Nj/VEAk5l8nVt+P+JEtot + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + "PlotRange" -> {{0, 180}, {0.8767207723718288, 1.1369731949903603`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6007907022525477}, + "AxesOrigin" -> {0, 0.8767207723718308}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -12622,7 +14024,8 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.6007907022525477}, + AxesOrigin->{0, 0.8767207723718308}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -12650,7 +14053,8 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.8767207723718288, 1.1369731949903603`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -12658,9 +14062,9 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913267728125134`*^9}, + CellChangeTimes->{3.9913267728125134`*^9, 3.994259713703466*^9}, CellLabel-> - "Out[137]=",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] + "Out[149]=",ExpressionUUID->"7d244509-5713-41be-98d6-0d47926a0183"] }, Open ]], Cell[CellGroupData[{ @@ -12675,30 +14079,33 @@ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -12723,154 +14130,160 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799933259697*^9, - 3.9917999365172615`*^9}},ExpressionUUID->"201ddeed-58e9-7047-8ad4-\ -c179c9adcae7"], + CellChangeTimes->{{3.991799933259697*^9, 3.9917999365172615`*^9}}, + CellLabel-> + "In[150]:=",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.962223088138177`*^-266\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.4763395674912355`*^-272\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 150, + 69, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326773051552*^9, 3.994259713889983*^9}, + CellLabel-> + "During evaluation of \ +In[150]:=",ExpressionUUID->"fd224cb4-29cc-4fb9-a8fe-3b95c1880c3b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.504893347133915`*^-285\\\", \ \\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 138, - 81, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326773051552*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 150, + 70, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326773051552*^9, 3.994259713899901*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], +In[150]:=",ExpressionUUID->"34847c0a-736f-43bd-8e19-2965267df9f9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.450949205829742`*^-278\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.8661182284432828`*^-297\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 138, - 82, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913267730605392`*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 150, + 71, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326773051552*^9, 3.9942597139091988`*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4109778485455803`*^-289\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 138, 83, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913267730685368`*^9}, - CellLabel-> - "During evaluation of \ -In[138]:=",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], +In[150]:=",ExpressionUUID->"de693403-d057-4292-8bad-2f28ba016a4f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 138, 84, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326773076536*^9}, +during this calculation.\"", 2, 150, 72, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326773051552*^9, 3.99425971391826*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], +In[150]:=",ExpressionUUID->"df4ffbcf-70c8-4270-aee8-40b5c71f7a03"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 -SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh -IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT -QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu -O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt -BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 -di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x -cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc -op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq -1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv -BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 -tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH -U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa -3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu -wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk -M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf -9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K -jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS -ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs -aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL -SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a -z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t -1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF -lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW -9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh -cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF -SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY -6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx -h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld -kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 -arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g -bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa -P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 -tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt -Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ -kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD -j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us -m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q -R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ -L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 -RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN -GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki -fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ -Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c -r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 -RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp -Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ -NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx -kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj -6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W -bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm -GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 -S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN -ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 -HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT -7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ -NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ -k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 -QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd -vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I -e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ -S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS -IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS -qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ -Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O -crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi -Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa -k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws -Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft -jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 -LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV -tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi -+Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt -hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u -+pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 -Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL -gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo -ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw -yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx -0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v -8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 -DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ -+V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 -VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 -g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx -6WkevnFqfy3DCYX/A6WEJbo= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k0VW0XAHDlrTQoGTIP957rIjJVesW1t6GENKhEg8pMCCFEGTKEJIlM +ZbhkuvcgFJW8hpQ0KEUUzYVMZR7yne+Ps876rbPWXmfv8zx7P4dme8rCYTEP +D8/iRdRF3Sd6njQyYtl67Z4B6bFjOnrtN8QC9DvDYEQ4Z8d/bHFAkRe2Yp2J +sDPjvkQUWwn89hR18HbmgHoTv5AtWxvWDokmTneUQ/vdsFY1tgn03t91aqyj +HiZa0rNScq1hO6P/w2jHK/gsXRG1O9sFpju2XBvp+AyPs++eYF0PgAbDW+y2 +nD8gMPXArDs0BqR6q7/bqszDRocjJ1xCroKw27GiZYa8qBVk0nDKNRUSNbbf +23WAD79aX/0xGnET3l1XrxsV4Mf/MvEn51QOxLLPv1gsvhYzS9YMfJfKA9Gk +LxevZgrhwnaPKvPgWxC130Tv1YQIrl1lvNjarxBOa2cfexImhsozxoNFe4vB +NGv1mFmcGFrUbBZfZlUM9GVB0c+vieEe87QFG5tieNluWfa6QAz9lD5MLzpZ +DKqeq3h7noshV1QqRfhCMfzMP5P/W0IcZeO5q90qi+GI8K5BydviuMXcfv6j +cAkYDc8EenyRwP9+1bU+f1QCATuS1v/3SwIFEozHZp+WADd7Q5fQhAQen8kZ +YLSVgNj+49rVfJJYH7nWxLW7BH7dbZrkVZXE6vUp1fXDJXA1LMEn1V8SZa06 +TYtEOfBZhOnRyC+F3i/41fbZc0D01ENpUVEpZC5t5Z1x5sDOx1bPXOSkULNq +DTvDnQNVgbEqazZKYcf33u1v/DgQ0zvSb20lhbX7vgkJX+SAZuE9p+EcKYxn +t9Q1l3AgVHfvCYl/pVEvOMhw2SgHdtjc+L3FQBpr+2+tCR3nwOqQgfADO6VR +31jm5/g0BzIaIvITjktjxGb12peLuXDXtGZg6UVpXLASXGQmzIURK8Lvzztp +lNA8M7lXiws2vuMxrWdlMEDgcGqRHxfkUwyk+iNkUDZ6lVJkIJfK/zJnWYIM +Ws+WPjlyjguBc0ovDdgyWHP2od5sBBeuhduIVLfKYM7b23/nkrjQeqX5Zp60 +LLYG6wgIl3NhKze14txDWTQTno9P/MkFo47n80OPZXHpKtETqQNc2MXzj/Gx +V7L4YOeakfQhLthZeLyDb7LokN+zLWmMC9vP0s6HLJFDx9jlXXt5SPCUncjV +V5bD0BmVER5REhqdbg42+Mmhx/eUExr6JJjMaQsGnZXD06+lz5UakvA8oV1r +U4gc3q5zsVPeTsK76uUh7ItyOLdndYywGQlDK30EIzLk8NSSzn0V+0kQK92x +ZXu9HHqteaW33okEt6nRkMf8NAyzDGn9HU3CVi/Hdd8FafjEV4S+LpYEvv6u +Yl4xGi6N77u26RIJed0Nb/XoNEweFOq2vUJCT+01lUotGr6TFx++kErC7gjt +zuxjNNQZ4evtLSBB5i/H/aE9Df920zwqi0j45Ufn/eBCwz43MYXIEhKinVeq +ivnQ8LcpKS5eSkKd2Yfw+GgavkncKrrkDgmagqFqZ8toGBSzTX6igQSe2PHG +61XUc6NrpeeaqPx5XQ9V3aOhS1ys9+JmEk6OW0SMNtEwf7Apc/YJCexORrdT +Fw2NNBULK16Q4L031TOil4aYc2iRaBsJ2MK/NPcrDTWVl6T4vCLhw70J9Z4h +GorH4DnaGxLW3XwcuZ+XjjMZPAcMukj4KsqS8uajo5pCRtm5bhLKE8rKLvPT +8U78Y4uq91T+YWnvW0Tp+FXX11G0l8rPwU1TX4WOn4Ubf2V9IWFaWaBnwwE6 +ju0c3/ZqgISJTInQjYfoePHc+FztLxLG1sgztI9R8ct6NW8NUt/vj7arkQsd +g7bRZV2HSfh8z27iUDAdN8k7C9X8JqF3g0fq8TA6FvpWd4f9IeH9TX9dxyg6 ++gd7rDceI+Ft+KUwryt0pM+9sqkfJ6HF7M7q6Dw6ZoU76oVPkdD84L+yS0V0 +tE0h9ytOU+tNrXX/VZKOVr1C048p1wp9SrtRTUf8IjkyN0PCvYgBFruWjh4/ +7holzJJwd3L8Y2EDHVVJO2XZOaoe3SsUKp/R8aFXb7naPAmkuUhLzSs6Fm0p +O1BGueShrHtdBx03WibGq/4lIT930+2nn+jI9I5/JLlAQq4IWLZ9p6NJcVlz +LOWsKJPptwN03H17zHaSctpJG/g8TsdLjjOVx3lKIeWD8+cfM3R0v/9x8DLl +pN2nIwYX6Mi4+n3sPuX4jdFPp5YTuNXOwVtgUSnE5iV6/F1N4NkXfX1alKNF +M9f+I0zgo2y25mHKYbNlB9fIEJhz8J12JuXz7vdnhAkCy0xtp2soB/U+ypRQ +JHBjPcS9pRywtw3lNhB4wX7m9zBlv4buL/KaBEqZSqouW1wKpzd/j1TeQqDx +vLKeFGXPWyNKGroEvg2oItQoe4jPtmrpE/hOZVsvUD4Zu8RTdzuBe8ZsvXZR +dp5fI2RgRmCPTHrXIcqOpySqjPcQGH4yQNKBst0nhrX5AQJNlsdscqd8fJ/a +nMUhAheSrZmnKR9t0r5pdYzAPrrvqB/lQ1uMDGzsCfRZ75rsT/lg4a5vdi4E +DqU+Evm/90taR7t4EKjRKubpS3nvJTvlU6cJtI8ZzvOkvGvB/bmPP4FZK7vu +uFA28/L3CgwmsHTMKf845R1fwoRDwgisOajkfYDytgOX7kREETh7myu5g7JB +c8qh2DgC/cajc/+lDNo58wlXCLzlY7JCgbJucUlWcjKBmyZC9whR7pYrvrkt +ncB1U208C1R9A5MLb4zdpOLnn+38SVlsVUFmLpuql+5Ex0vKd0LzMywKCeQ1 +ql6oomw5yU5fxCWQk6q7J53ymFtuWmk5gfddpp4EU9a0yrq++j6Bc/dmt7Io +tz27kfKgjkCuwuaNEpQ9DTOT3ZoIPPgxxnKcWk9c1bSklucECp/xlsunbM6+ +fjXgNYFGNVPNZyn/Ek9JVOwkEIQvZOymrLQkKSHyE4H5XiqZX6j1+zgw8fLm +7wQm1CgcCqHsOJIQ/7WfwMwUPl9xyuzuS3EGYwTGMI8+Rmp/yJVHRf9dysCv +Qjk89tT+eqgQGcVZycA7Wusef6H2n03mhcgjAgzsaDQcP0Y5PTr0Qo04A1c4 +110wp/brumNnQ/xUGGhxTyRpfpKEyvaA8/IaDHz2l5l3nPJ+U/9z7ZsZaBg+ +QNRNkJC42TdIExgouTfZw4fqF/yrTvkP7WXgnoNP95dT/aYk1P1MpiUD8UfL +8NQoCaaTJ/12Hmbg0ZIMHl3K0Z+dfYrsGRjAaIu6Q/Wrf6ptPR3PMHCnzwGT +C1R/y1U9cUokiIGrj9SQXKr/GbCPeTSGMFChaFPSm34Szl8+4kaPYWB/zrVu +sT4SZhwsnXsyGFjx/Uio7zcSRgVNj1vWM7Bcylkk+gMJnW70l67NDBw6+HHA +juq/dY9m4HwrA5USxKp0qP6cEFgsW/CWgdkiO5R7O0lQ/7yqd7qfgdcytj0c +f02CR9mLo5lC8ri2ldZkS80Ly5UFz8rE5DHs9nTwX2qe6DmEsB5Jy6Oe10dM +fkTVQ1xDelhBHo+GRfZXU/OoJCTxPerKY6/PmvG2ByT07z5w+Ku9PHaWSyhu +LyPhVeGGp1Mu8tizymNDLklCDe9SHf5T8pg192zfHIeEi3eqJLQC5FHi18Xl +udR8VJQV64q6JI/6TaP69bkkOA11WSlXyaNnwiV1k2vU/Ik7bum9jIlFe476 +hvtS79+vQldfxcT1Ay8SY0+TMGk8PTgowETLc5cDE7xIWMGbGOEiwcRIj9+c +BHcq/4CGiuMbmNg5uqPZ1YGEYAem0O59TLQnMz9EUueDdXq/XijfZKL6wD8B +TupU/02/m96Xy8SNAtoWK1VJUJq+4HSrgIm1WvYyJcok6FZIL9DLmXhR83nS +VyYJdut3q0o0MdEpyExGQ5qE0nXlcXwDTNwx+61Zezl1fhk+Y/JNSwGDxNRu +CfZyQUpDJpJPVwH33a18K/WeC0PejfXK+gp4sKwhh3jHhaQJAV1vMwWUVjAU +VXjNhZ75QtWFYwrorhiRvaSZC96r3guJX1TAEMWVNXQuF9KUsGdntwIGZt1Z +2hdAne/s+E5XnFfEoVcVccv4qPg3jB48vKCId6fyeK3+4cLwu5BlTy8qYn72 +SHYeDxd+755O/3RVEXv+7D78L3XenNTpb1xdoIhXuJ4jOv0cWCzcus7lpSIG +f6iUefCUA+KNl2ukaUqY93ypy+04DvV/Iro4ql4JnTQKmC+WckDwGTO+dHg9 +OoT0XK74UwxS0eQeLS0VNPD/KPigsAiuK2sLCDltQNYZLn3kaCG0SOhv/nNF +FR2c/x7pW1YAW6XqE9TequHlwE0JM1H5sJo3x+dEmDoa/FAoqZPIA5lQWV1r +pgZyb2Sql8blwnL5I1UWzRqYbaWtFsqXA6oscfLMUU08YS2YkMnOAu8ewQZT +no34I/mZF/+hGzD8J+6AyfWNyO5xONJXmQ7Gao/STDZswrTJ5x4/t6ZC7R+d +2cnnm7DdP3zFq5Jk8FDR7Gpz2IzaPw7vXOyRBKwh+3br5Vp43rDWNkkhEbYx +xMz5c7Rw8Epe0WK1BFAMifGv37IFr2nXOs63xMF6B+2H8l1bUGMHqSrEuggO +tc4XKrz+RZOonpbXWyLhYVa7/aiINhq/5m7+rR8OYwULk2p3tDHiDRSY3AoB +O/ni5WnmW/Hk62WYMh4Eo+uvapWPbMXz87Fn7Br94S579tN4tA6aykt3rtvt +C4eMCNSR0UUu2XZsyR5vkHSPqlat00XDb7L5RkMeILLCrcz8IAttktl5Zrtc +gW0YHDhizcLv/Wm5/DquoBkcb3j1CAtddxkldCu4wq6R0jedJ1j4+kygbPoi +V4h8Oz5t58ZC6UdagQWVLjCVc94gMJSFW9+Hm07KukCXztXX+cUsvMFIea83 +7wTOvuwMEy4LnawseH0GnGCCW+nwq5SFC+sVXSreOYEgvXNSo4qFtL9B7y2r +nMCMT1rqQR0Lg/4930LzdIL77fn2r9+wMKfDj//pN0cwXX13g18nC3WUXtwo +a3eETuMnE2LdLLSW3iie2+AIYzUD0TYfWRjG33Q7P9sRNmSrc/r6WQi/f/ar +2TjC/S59v7hBFjZedldzN6fiCe8DtREWinHcNCt1HcExyrfNZ5yF052FNg6S +VLy6yDTRKRYat1kEP1vhCGEzKXY1MywslNm5DWccQGBTocrReRY2ue4qe9Dn +ADfca8YXFljIKBS6v+2dA/wPXXdmHw== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -12884,113 +14297,115 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 -SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh -IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT -QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu -O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt -BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 -di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x -cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc -op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq -1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv -BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 -tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH -U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa -3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu -wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk -M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf -9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K -jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS -ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs -aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL -SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a -z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t -1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF -lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW -9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh -cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF -SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY -6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx -h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld -kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 -arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g -bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa -P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 -tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt -Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ -kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD -j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us -m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q -R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ -L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 -RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN -GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki -fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ -Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c -r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 -RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp -Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ -NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx -kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj -6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W -bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm -GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 -S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN -ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 -HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT -7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ -NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ -k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 -QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd -vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I -e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ -S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS -IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS -qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ -Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O -crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi -Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa -k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws -Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft -jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 -LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV -tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi -+Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt -hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u -+pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 -Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL -gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo -ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw -yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx -0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v -8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 -DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ -+V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 -VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 -g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx -6WkevnFqfy3DCYX/A6WEJbo= +1:eJwV13k0VW0XAHDlrTQoGTIP957rIjJVesW1t6GENKhEg8pMCCFEGTKEJIlM +ZbhkuvcgFJW8hpQ0KEUUzYVMZR7yne+Ps876rbPWXmfv8zx7P4dme8rCYTEP +D8/iRdRF3Sd6njQyYtl67Z4B6bFjOnrtN8QC9DvDYEQ4Z8d/bHFAkRe2Yp2J +sDPjvkQUWwn89hR18HbmgHoTv5AtWxvWDokmTneUQ/vdsFY1tgn03t91aqyj +HiZa0rNScq1hO6P/w2jHK/gsXRG1O9sFpju2XBvp+AyPs++eYF0PgAbDW+y2 +nD8gMPXArDs0BqR6q7/bqszDRocjJ1xCroKw27GiZYa8qBVk0nDKNRUSNbbf +23WAD79aX/0xGnET3l1XrxsV4Mf/MvEn51QOxLLPv1gsvhYzS9YMfJfKA9Gk +LxevZgrhwnaPKvPgWxC130Tv1YQIrl1lvNjarxBOa2cfexImhsozxoNFe4vB +NGv1mFmcGFrUbBZfZlUM9GVB0c+vieEe87QFG5tieNluWfa6QAz9lD5MLzpZ +DKqeq3h7noshV1QqRfhCMfzMP5P/W0IcZeO5q90qi+GI8K5BydviuMXcfv6j +cAkYDc8EenyRwP9+1bU+f1QCATuS1v/3SwIFEozHZp+WADd7Q5fQhAQen8kZ +YLSVgNj+49rVfJJYH7nWxLW7BH7dbZrkVZXE6vUp1fXDJXA1LMEn1V8SZa06 +TYtEOfBZhOnRyC+F3i/41fbZc0D01ENpUVEpZC5t5Z1x5sDOx1bPXOSkULNq +DTvDnQNVgbEqazZKYcf33u1v/DgQ0zvSb20lhbX7vgkJX+SAZuE9p+EcKYxn +t9Q1l3AgVHfvCYl/pVEvOMhw2SgHdtjc+L3FQBpr+2+tCR3nwOqQgfADO6VR +31jm5/g0BzIaIvITjktjxGb12peLuXDXtGZg6UVpXLASXGQmzIURK8Lvzztp +lNA8M7lXiws2vuMxrWdlMEDgcGqRHxfkUwyk+iNkUDZ6lVJkIJfK/zJnWYIM +Ws+WPjlyjguBc0ovDdgyWHP2od5sBBeuhduIVLfKYM7b23/nkrjQeqX5Zp60 +LLYG6wgIl3NhKze14txDWTQTno9P/MkFo47n80OPZXHpKtETqQNc2MXzj/Gx +V7L4YOeakfQhLthZeLyDb7LokN+zLWmMC9vP0s6HLJFDx9jlXXt5SPCUncjV +V5bD0BmVER5REhqdbg42+Mmhx/eUExr6JJjMaQsGnZXD06+lz5UakvA8oV1r +U4gc3q5zsVPeTsK76uUh7ItyOLdndYywGQlDK30EIzLk8NSSzn0V+0kQK92x +ZXu9HHqteaW33okEt6nRkMf8NAyzDGn9HU3CVi/Hdd8FafjEV4S+LpYEvv6u +Yl4xGi6N77u26RIJed0Nb/XoNEweFOq2vUJCT+01lUotGr6TFx++kErC7gjt +zuxjNNQZ4evtLSBB5i/H/aE9Df920zwqi0j45Ufn/eBCwz43MYXIEhKinVeq +ivnQ8LcpKS5eSkKd2Yfw+GgavkncKrrkDgmagqFqZ8toGBSzTX6igQSe2PHG +61XUc6NrpeeaqPx5XQ9V3aOhS1ys9+JmEk6OW0SMNtEwf7Apc/YJCexORrdT +Fw2NNBULK16Q4L031TOil4aYc2iRaBsJ2MK/NPcrDTWVl6T4vCLhw70J9Z4h +GorH4DnaGxLW3XwcuZ+XjjMZPAcMukj4KsqS8uajo5pCRtm5bhLKE8rKLvPT +8U78Y4uq91T+YWnvW0Tp+FXX11G0l8rPwU1TX4WOn4Ubf2V9IWFaWaBnwwE6 +ju0c3/ZqgISJTInQjYfoePHc+FztLxLG1sgztI9R8ct6NW8NUt/vj7arkQsd +g7bRZV2HSfh8z27iUDAdN8k7C9X8JqF3g0fq8TA6FvpWd4f9IeH9TX9dxyg6 ++gd7rDceI+Ft+KUwryt0pM+9sqkfJ6HF7M7q6Dw6ZoU76oVPkdD84L+yS0V0 +tE0h9ytOU+tNrXX/VZKOVr1C048p1wp9SrtRTUf8IjkyN0PCvYgBFruWjh4/ +7holzJJwd3L8Y2EDHVVJO2XZOaoe3SsUKp/R8aFXb7naPAmkuUhLzSs6Fm0p +O1BGueShrHtdBx03WibGq/4lIT930+2nn+jI9I5/JLlAQq4IWLZ9p6NJcVlz +LOWsKJPptwN03H17zHaSctpJG/g8TsdLjjOVx3lKIeWD8+cfM3R0v/9x8DLl +pN2nIwYX6Mi4+n3sPuX4jdFPp5YTuNXOwVtgUSnE5iV6/F1N4NkXfX1alKNF +M9f+I0zgo2y25mHKYbNlB9fIEJhz8J12JuXz7vdnhAkCy0xtp2soB/U+ypRQ +JHBjPcS9pRywtw3lNhB4wX7m9zBlv4buL/KaBEqZSqouW1wKpzd/j1TeQqDx +vLKeFGXPWyNKGroEvg2oItQoe4jPtmrpE/hOZVsvUD4Zu8RTdzuBe8ZsvXZR +dp5fI2RgRmCPTHrXIcqOpySqjPcQGH4yQNKBst0nhrX5AQJNlsdscqd8fJ/a +nMUhAheSrZmnKR9t0r5pdYzAPrrvqB/lQ1uMDGzsCfRZ75rsT/lg4a5vdi4E +DqU+Evm/90taR7t4EKjRKubpS3nvJTvlU6cJtI8ZzvOkvGvB/bmPP4FZK7vu +uFA28/L3CgwmsHTMKf845R1fwoRDwgisOajkfYDytgOX7kREETh7myu5g7JB +c8qh2DgC/cajc/+lDNo58wlXCLzlY7JCgbJucUlWcjKBmyZC9whR7pYrvrkt +ncB1U208C1R9A5MLb4zdpOLnn+38SVlsVUFmLpuql+5Ex0vKd0LzMywKCeQ1 +ql6oomw5yU5fxCWQk6q7J53ymFtuWmk5gfddpp4EU9a0yrq++j6Bc/dmt7Io +tz27kfKgjkCuwuaNEpQ9DTOT3ZoIPPgxxnKcWk9c1bSklucECp/xlsunbM6+ +fjXgNYFGNVPNZyn/Ek9JVOwkEIQvZOymrLQkKSHyE4H5XiqZX6j1+zgw8fLm +7wQm1CgcCqHsOJIQ/7WfwMwUPl9xyuzuS3EGYwTGMI8+Rmp/yJVHRf9dysCv +Qjk89tT+eqgQGcVZycA7Wusef6H2n03mhcgjAgzsaDQcP0Y5PTr0Qo04A1c4 +110wp/brumNnQ/xUGGhxTyRpfpKEyvaA8/IaDHz2l5l3nPJ+U/9z7ZsZaBg+ +QNRNkJC42TdIExgouTfZw4fqF/yrTvkP7WXgnoNP95dT/aYk1P1MpiUD8UfL +8NQoCaaTJ/12Hmbg0ZIMHl3K0Z+dfYrsGRjAaIu6Q/Wrf6ptPR3PMHCnzwGT +C1R/y1U9cUokiIGrj9SQXKr/GbCPeTSGMFChaFPSm34Szl8+4kaPYWB/zrVu +sT4SZhwsnXsyGFjx/Uio7zcSRgVNj1vWM7Bcylkk+gMJnW70l67NDBw6+HHA +juq/dY9m4HwrA5USxKp0qP6cEFgsW/CWgdkiO5R7O0lQ/7yqd7qfgdcytj0c +f02CR9mLo5lC8ri2ldZkS80Ly5UFz8rE5DHs9nTwX2qe6DmEsB5Jy6Oe10dM +fkTVQ1xDelhBHo+GRfZXU/OoJCTxPerKY6/PmvG2ByT07z5w+Ku9PHaWSyhu +LyPhVeGGp1Mu8tizymNDLklCDe9SHf5T8pg192zfHIeEi3eqJLQC5FHi18Xl +udR8VJQV64q6JI/6TaP69bkkOA11WSlXyaNnwiV1k2vU/Ik7bum9jIlFe476 +hvtS79+vQldfxcT1Ay8SY0+TMGk8PTgowETLc5cDE7xIWMGbGOEiwcRIj9+c +BHcq/4CGiuMbmNg5uqPZ1YGEYAem0O59TLQnMz9EUueDdXq/XijfZKL6wD8B +TupU/02/m96Xy8SNAtoWK1VJUJq+4HSrgIm1WvYyJcok6FZIL9DLmXhR83nS +VyYJdut3q0o0MdEpyExGQ5qE0nXlcXwDTNwx+61Zezl1fhk+Y/JNSwGDxNRu +CfZyQUpDJpJPVwH33a18K/WeC0PejfXK+gp4sKwhh3jHhaQJAV1vMwWUVjAU +VXjNhZ75QtWFYwrorhiRvaSZC96r3guJX1TAEMWVNXQuF9KUsGdntwIGZt1Z +2hdAne/s+E5XnFfEoVcVccv4qPg3jB48vKCId6fyeK3+4cLwu5BlTy8qYn72 +SHYeDxd+755O/3RVEXv+7D78L3XenNTpb1xdoIhXuJ4jOv0cWCzcus7lpSIG +f6iUefCUA+KNl2ukaUqY93ypy+04DvV/Iro4ql4JnTQKmC+WckDwGTO+dHg9 +OoT0XK74UwxS0eQeLS0VNPD/KPigsAiuK2sLCDltQNYZLn3kaCG0SOhv/nNF +FR2c/x7pW1YAW6XqE9TequHlwE0JM1H5sJo3x+dEmDoa/FAoqZPIA5lQWV1r +pgZyb2Sql8blwnL5I1UWzRqYbaWtFsqXA6oscfLMUU08YS2YkMnOAu8ewQZT +no34I/mZF/+hGzD8J+6AyfWNyO5xONJXmQ7Gao/STDZswrTJ5x4/t6ZC7R+d +2cnnm7DdP3zFq5Jk8FDR7Gpz2IzaPw7vXOyRBKwh+3br5Vp43rDWNkkhEbYx +xMz5c7Rw8Epe0WK1BFAMifGv37IFr2nXOs63xMF6B+2H8l1bUGMHqSrEuggO +tc4XKrz+RZOonpbXWyLhYVa7/aiINhq/5m7+rR8OYwULk2p3tDHiDRSY3AoB +O/ni5WnmW/Hk62WYMh4Eo+uvapWPbMXz87Fn7Br94S579tN4tA6aykt3rtvt +C4eMCNSR0UUu2XZsyR5vkHSPqlat00XDb7L5RkMeILLCrcz8IAttktl5Zrtc +gW0YHDhizcLv/Wm5/DquoBkcb3j1CAtddxkldCu4wq6R0jedJ1j4+kygbPoi +V4h8Oz5t58ZC6UdagQWVLjCVc94gMJSFW9+Hm07KukCXztXX+cUsvMFIea83 +7wTOvuwMEy4LnawseH0GnGCCW+nwq5SFC+sVXSreOYEgvXNSo4qFtL9B7y2r +nMCMT1rqQR0Lg/4930LzdIL77fn2r9+wMKfDj//pN0cwXX13g18nC3WUXtwo +a3eETuMnE2LdLLSW3iie2+AIYzUD0TYfWRjG33Q7P9sRNmSrc/r6WQi/f/ar +2TjC/S59v7hBFjZedldzN6fiCe8DtREWinHcNCt1HcExyrfNZ5yF052FNg6S +VLy6yDTRKRYat1kEP1vhCGEzKXY1MywslNm5DWccQGBTocrReRY2ue4qe9Dn +ADfca8YXFljIKBS6v+2dA/wPXXdmHw== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "PlotRange" -> {{0, 30}, {0., 0.06253770515665186}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -13002,19 +14417,19 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "PlotRange" -> {{0, 30}, {0., 0.06253770515665186}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13028,112 +14443,114 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 -SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh -IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT -QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu -O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt -BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 -di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x -cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc -op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq -1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv -BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 -tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH -U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa -3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu -wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk -M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf -9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K -jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS -ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs -aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL -SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a -z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t -1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF -lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW -9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh -cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF -SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY -6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx -h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld -kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 -arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g -bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa -P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 -tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt -Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ -kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD -j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us -m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q -R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ -L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 -RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN -GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki -fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ -Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c -r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 -RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp -Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ -NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx -kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj -6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W -bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm -GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 -S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN -ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 -HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT -7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ -NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ -k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 -QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd -vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I -e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ -S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS -IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS -qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ -Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O -crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi -Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa -k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws -Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft -jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 -LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV -tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi -+Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt -hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u -+pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 -Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL -gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo -ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw -yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx -0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v -8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 -DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ -+V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 -VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 -g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx -6WkevnFqfy3DCYX/A6WEJbo= +1:eJwV13k0VW0XAHDlrTQoGTIP957rIjJVesW1t6GENKhEg8pMCCFEGTKEJIlM +ZbhkuvcgFJW8hpQ0KEUUzYVMZR7yne+Ps876rbPWXmfv8zx7P4dme8rCYTEP +D8/iRdRF3Sd6njQyYtl67Z4B6bFjOnrtN8QC9DvDYEQ4Z8d/bHFAkRe2Yp2J +sDPjvkQUWwn89hR18HbmgHoTv5AtWxvWDokmTneUQ/vdsFY1tgn03t91aqyj +HiZa0rNScq1hO6P/w2jHK/gsXRG1O9sFpju2XBvp+AyPs++eYF0PgAbDW+y2 +nD8gMPXArDs0BqR6q7/bqszDRocjJ1xCroKw27GiZYa8qBVk0nDKNRUSNbbf +23WAD79aX/0xGnET3l1XrxsV4Mf/MvEn51QOxLLPv1gsvhYzS9YMfJfKA9Gk +LxevZgrhwnaPKvPgWxC130Tv1YQIrl1lvNjarxBOa2cfexImhsozxoNFe4vB +NGv1mFmcGFrUbBZfZlUM9GVB0c+vieEe87QFG5tieNluWfa6QAz9lD5MLzpZ +DKqeq3h7noshV1QqRfhCMfzMP5P/W0IcZeO5q90qi+GI8K5BydviuMXcfv6j +cAkYDc8EenyRwP9+1bU+f1QCATuS1v/3SwIFEozHZp+WADd7Q5fQhAQen8kZ +YLSVgNj+49rVfJJYH7nWxLW7BH7dbZrkVZXE6vUp1fXDJXA1LMEn1V8SZa06 +TYtEOfBZhOnRyC+F3i/41fbZc0D01ENpUVEpZC5t5Z1x5sDOx1bPXOSkULNq +DTvDnQNVgbEqazZKYcf33u1v/DgQ0zvSb20lhbX7vgkJX+SAZuE9p+EcKYxn +t9Q1l3AgVHfvCYl/pVEvOMhw2SgHdtjc+L3FQBpr+2+tCR3nwOqQgfADO6VR +31jm5/g0BzIaIvITjktjxGb12peLuXDXtGZg6UVpXLASXGQmzIURK8Lvzztp +lNA8M7lXiws2vuMxrWdlMEDgcGqRHxfkUwyk+iNkUDZ6lVJkIJfK/zJnWYIM +Ws+WPjlyjguBc0ovDdgyWHP2od5sBBeuhduIVLfKYM7b23/nkrjQeqX5Zp60 +LLYG6wgIl3NhKze14txDWTQTno9P/MkFo47n80OPZXHpKtETqQNc2MXzj/Gx +V7L4YOeakfQhLthZeLyDb7LokN+zLWmMC9vP0s6HLJFDx9jlXXt5SPCUncjV +V5bD0BmVER5REhqdbg42+Mmhx/eUExr6JJjMaQsGnZXD06+lz5UakvA8oV1r +U4gc3q5zsVPeTsK76uUh7ItyOLdndYywGQlDK30EIzLk8NSSzn0V+0kQK92x +ZXu9HHqteaW33okEt6nRkMf8NAyzDGn9HU3CVi/Hdd8FafjEV4S+LpYEvv6u +Yl4xGi6N77u26RIJed0Nb/XoNEweFOq2vUJCT+01lUotGr6TFx++kErC7gjt +zuxjNNQZ4evtLSBB5i/H/aE9Df920zwqi0j45Ufn/eBCwz43MYXIEhKinVeq +ivnQ8LcpKS5eSkKd2Yfw+GgavkncKrrkDgmagqFqZ8toGBSzTX6igQSe2PHG +61XUc6NrpeeaqPx5XQ9V3aOhS1ys9+JmEk6OW0SMNtEwf7Apc/YJCexORrdT +Fw2NNBULK16Q4L031TOil4aYc2iRaBsJ2MK/NPcrDTWVl6T4vCLhw70J9Z4h +GorH4DnaGxLW3XwcuZ+XjjMZPAcMukj4KsqS8uajo5pCRtm5bhLKE8rKLvPT +8U78Y4uq91T+YWnvW0Tp+FXX11G0l8rPwU1TX4WOn4Ubf2V9IWFaWaBnwwE6 +ju0c3/ZqgISJTInQjYfoePHc+FztLxLG1sgztI9R8ct6NW8NUt/vj7arkQsd +g7bRZV2HSfh8z27iUDAdN8k7C9X8JqF3g0fq8TA6FvpWd4f9IeH9TX9dxyg6 ++gd7rDceI+Ft+KUwryt0pM+9sqkfJ6HF7M7q6Dw6ZoU76oVPkdD84L+yS0V0 +tE0h9ytOU+tNrXX/VZKOVr1C048p1wp9SrtRTUf8IjkyN0PCvYgBFruWjh4/ +7holzJJwd3L8Y2EDHVVJO2XZOaoe3SsUKp/R8aFXb7naPAmkuUhLzSs6Fm0p +O1BGueShrHtdBx03WibGq/4lIT930+2nn+jI9I5/JLlAQq4IWLZ9p6NJcVlz +LOWsKJPptwN03H17zHaSctpJG/g8TsdLjjOVx3lKIeWD8+cfM3R0v/9x8DLl +pN2nIwYX6Mi4+n3sPuX4jdFPp5YTuNXOwVtgUSnE5iV6/F1N4NkXfX1alKNF +M9f+I0zgo2y25mHKYbNlB9fIEJhz8J12JuXz7vdnhAkCy0xtp2soB/U+ypRQ +JHBjPcS9pRywtw3lNhB4wX7m9zBlv4buL/KaBEqZSqouW1wKpzd/j1TeQqDx +vLKeFGXPWyNKGroEvg2oItQoe4jPtmrpE/hOZVsvUD4Zu8RTdzuBe8ZsvXZR +dp5fI2RgRmCPTHrXIcqOpySqjPcQGH4yQNKBst0nhrX5AQJNlsdscqd8fJ/a +nMUhAheSrZmnKR9t0r5pdYzAPrrvqB/lQ1uMDGzsCfRZ75rsT/lg4a5vdi4E +DqU+Evm/90taR7t4EKjRKubpS3nvJTvlU6cJtI8ZzvOkvGvB/bmPP4FZK7vu +uFA28/L3CgwmsHTMKf845R1fwoRDwgisOajkfYDytgOX7kREETh7myu5g7JB +c8qh2DgC/cajc/+lDNo58wlXCLzlY7JCgbJucUlWcjKBmyZC9whR7pYrvrkt +ncB1U208C1R9A5MLb4zdpOLnn+38SVlsVUFmLpuql+5Ex0vKd0LzMywKCeQ1 +ql6oomw5yU5fxCWQk6q7J53ymFtuWmk5gfddpp4EU9a0yrq++j6Bc/dmt7Io +tz27kfKgjkCuwuaNEpQ9DTOT3ZoIPPgxxnKcWk9c1bSklucECp/xlsunbM6+ +fjXgNYFGNVPNZyn/Ek9JVOwkEIQvZOymrLQkKSHyE4H5XiqZX6j1+zgw8fLm +7wQm1CgcCqHsOJIQ/7WfwMwUPl9xyuzuS3EGYwTGMI8+Rmp/yJVHRf9dysCv +Qjk89tT+eqgQGcVZycA7Wusef6H2n03mhcgjAgzsaDQcP0Y5PTr0Qo04A1c4 +110wp/brumNnQ/xUGGhxTyRpfpKEyvaA8/IaDHz2l5l3nPJ+U/9z7ZsZaBg+ +QNRNkJC42TdIExgouTfZw4fqF/yrTvkP7WXgnoNP95dT/aYk1P1MpiUD8UfL +8NQoCaaTJ/12Hmbg0ZIMHl3K0Z+dfYrsGRjAaIu6Q/Wrf6ptPR3PMHCnzwGT +C1R/y1U9cUokiIGrj9SQXKr/GbCPeTSGMFChaFPSm34Szl8+4kaPYWB/zrVu +sT4SZhwsnXsyGFjx/Uio7zcSRgVNj1vWM7Bcylkk+gMJnW70l67NDBw6+HHA +juq/dY9m4HwrA5USxKp0qP6cEFgsW/CWgdkiO5R7O0lQ/7yqd7qfgdcytj0c +f02CR9mLo5lC8ri2ldZkS80Ly5UFz8rE5DHs9nTwX2qe6DmEsB5Jy6Oe10dM +fkTVQ1xDelhBHo+GRfZXU/OoJCTxPerKY6/PmvG2ByT07z5w+Ku9PHaWSyhu +LyPhVeGGp1Mu8tizymNDLklCDe9SHf5T8pg192zfHIeEi3eqJLQC5FHi18Xl +udR8VJQV64q6JI/6TaP69bkkOA11WSlXyaNnwiV1k2vU/Ik7bum9jIlFe476 +hvtS79+vQldfxcT1Ay8SY0+TMGk8PTgowETLc5cDE7xIWMGbGOEiwcRIj9+c +BHcq/4CGiuMbmNg5uqPZ1YGEYAem0O59TLQnMz9EUueDdXq/XijfZKL6wD8B +TupU/02/m96Xy8SNAtoWK1VJUJq+4HSrgIm1WvYyJcok6FZIL9DLmXhR83nS +VyYJdut3q0o0MdEpyExGQ5qE0nXlcXwDTNwx+61Zezl1fhk+Y/JNSwGDxNRu +CfZyQUpDJpJPVwH33a18K/WeC0PejfXK+gp4sKwhh3jHhaQJAV1vMwWUVjAU +VXjNhZ75QtWFYwrorhiRvaSZC96r3guJX1TAEMWVNXQuF9KUsGdntwIGZt1Z +2hdAne/s+E5XnFfEoVcVccv4qPg3jB48vKCId6fyeK3+4cLwu5BlTy8qYn72 +SHYeDxd+755O/3RVEXv+7D78L3XenNTpb1xdoIhXuJ4jOv0cWCzcus7lpSIG +f6iUefCUA+KNl2ukaUqY93ypy+04DvV/Iro4ql4JnTQKmC+WckDwGTO+dHg9 +OoT0XK74UwxS0eQeLS0VNPD/KPigsAiuK2sLCDltQNYZLn3kaCG0SOhv/nNF +FR2c/x7pW1YAW6XqE9TequHlwE0JM1H5sJo3x+dEmDoa/FAoqZPIA5lQWV1r +pgZyb2Sql8blwnL5I1UWzRqYbaWtFsqXA6oscfLMUU08YS2YkMnOAu8ewQZT +no34I/mZF/+hGzD8J+6AyfWNyO5xONJXmQ7Gao/STDZswrTJ5x4/t6ZC7R+d +2cnnm7DdP3zFq5Jk8FDR7Gpz2IzaPw7vXOyRBKwh+3br5Vp43rDWNkkhEbYx +xMz5c7Rw8Epe0WK1BFAMifGv37IFr2nXOs63xMF6B+2H8l1bUGMHqSrEuggO +tc4XKrz+RZOonpbXWyLhYVa7/aiINhq/5m7+rR8OYwULk2p3tDHiDRSY3AoB +O/ni5WnmW/Hk62WYMh4Eo+uvapWPbMXz87Fn7Br94S579tN4tA6aykt3rtvt +C4eMCNSR0UUu2XZsyR5vkHSPqlat00XDb7L5RkMeILLCrcz8IAttktl5Zrtc +gW0YHDhizcLv/Wm5/DquoBkcb3j1CAtddxkldCu4wq6R0jedJ1j4+kygbPoi +V4h8Oz5t58ZC6UdagQWVLjCVc94gMJSFW9+Hm07KukCXztXX+cUsvMFIea83 +7wTOvuwMEy4LnawseH0GnGCCW+nwq5SFC+sVXSreOYEgvXNSo4qFtL9B7y2r +nMCMT1rqQR0Lg/4930LzdIL77fn2r9+wMKfDj//pN0cwXX13g18nC3WUXtwo +a3eETuMnE2LdLLSW3iie2+AIYzUD0TYfWRjG33Q7P9sRNmSrc/r6WQi/f/ar +2TjC/S59v7hBFjZedldzN6fiCe8DtREWinHcNCt1HcExyrfNZ5yF052FNg6S +VLy6yDTRKRYat1kEP1vhCGEzKXY1MywslNm5DWccQGBTocrReRY2ue4qe9Dn +ADfca8YXFljIKBS6v+2dA/wPXXdmHw== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "PlotRange" -> {{0, 30}, {0., 0.06253770515665186}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13144,6 +14561,7 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -13171,7 +14589,8 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.12905028199662316`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06253770515665186}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -13179,22 +14598,571 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991327033758711*^9}, + CellChangeTimes->{3.991327033758711*^9, 3.9942601897983522`*^9}, CellLabel-> - "Out[138]=",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] + "Out[150]=",ExpressionUUID->"d343dee2-1fc9-48be-9787-3b1da4e9ab8c"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9917999433700733`*^9, 3.9917999479698143`*^9}, - 3.9919244033659534`*^9},ExpressionUUID->"d48877eb-e0f2-d842-b248-\ -ea3fc2b4c4a8"], + 3.9919244033659534`*^9}, + CellLabel-> + "In[151]:=",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.991799951845436*^9, - 3.991799954096182*^9}},ExpressionUUID->"eae5aeae-3f12-2d4a-842b-\ -85a3484011b6"], + CellChangeTimes->{{3.991799951845436*^9, 3.991799954096182*^9}}, + CellLabel-> + "In[152]:=",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k0VW0XAHDlrTQoGTIP957rIjJVesW1t6GENKhEg8pMCCFEGTKEJIlM +ZbhkuvcgFJW8hpQ0KEUUzYVMZR7yne+Ps876rbPWXmfv8zx7P4dme8rCYTEP +D8/iRdRF3Sd6njQyYtl67Z4B6bFjOnrtN8QC9DvDYEQ4Z8d/bHFAkRe2Yp2J +sDPjvkQUWwn89hR18HbmgHoTv5AtWxvWDokmTneUQ/vdsFY1tgn03t91aqyj +HiZa0rNScq1hO6P/w2jHK/gsXRG1O9sFpju2XBvp+AyPs++eYF0PgAbDW+y2 +nD8gMPXArDs0BqR6q7/bqszDRocjJ1xCroKw27GiZYa8qBVk0nDKNRUSNbbf +23WAD79aX/0xGnET3l1XrxsV4Mf/MvEn51QOxLLPv1gsvhYzS9YMfJfKA9Gk +LxevZgrhwnaPKvPgWxC130Tv1YQIrl1lvNjarxBOa2cfexImhsozxoNFe4vB +NGv1mFmcGFrUbBZfZlUM9GVB0c+vieEe87QFG5tieNluWfa6QAz9lD5MLzpZ +DKqeq3h7noshV1QqRfhCMfzMP5P/W0IcZeO5q90qi+GI8K5BydviuMXcfv6j +cAkYDc8EenyRwP9+1bU+f1QCATuS1v/3SwIFEozHZp+WADd7Q5fQhAQen8kZ +YLSVgNj+49rVfJJYH7nWxLW7BH7dbZrkVZXE6vUp1fXDJXA1LMEn1V8SZa06 +TYtEOfBZhOnRyC+F3i/41fbZc0D01ENpUVEpZC5t5Z1x5sDOx1bPXOSkULNq +DTvDnQNVgbEqazZKYcf33u1v/DgQ0zvSb20lhbX7vgkJX+SAZuE9p+EcKYxn +t9Q1l3AgVHfvCYl/pVEvOMhw2SgHdtjc+L3FQBpr+2+tCR3nwOqQgfADO6VR +31jm5/g0BzIaIvITjktjxGb12peLuXDXtGZg6UVpXLASXGQmzIURK8Lvzztp +lNA8M7lXiws2vuMxrWdlMEDgcGqRHxfkUwyk+iNkUDZ6lVJkIJfK/zJnWYIM +Ws+WPjlyjguBc0ovDdgyWHP2od5sBBeuhduIVLfKYM7b23/nkrjQeqX5Zp60 +LLYG6wgIl3NhKze14txDWTQTno9P/MkFo47n80OPZXHpKtETqQNc2MXzj/Gx +V7L4YOeakfQhLthZeLyDb7LokN+zLWmMC9vP0s6HLJFDx9jlXXt5SPCUncjV +V5bD0BmVER5REhqdbg42+Mmhx/eUExr6JJjMaQsGnZXD06+lz5UakvA8oV1r +U4gc3q5zsVPeTsK76uUh7ItyOLdndYywGQlDK30EIzLk8NSSzn0V+0kQK92x +ZXu9HHqteaW33okEt6nRkMf8NAyzDGn9HU3CVi/Hdd8FafjEV4S+LpYEvv6u +Yl4xGi6N77u26RIJed0Nb/XoNEweFOq2vUJCT+01lUotGr6TFx++kErC7gjt +zuxjNNQZ4evtLSBB5i/H/aE9Df920zwqi0j45Ufn/eBCwz43MYXIEhKinVeq +ivnQ8LcpKS5eSkKd2Yfw+GgavkncKrrkDgmagqFqZ8toGBSzTX6igQSe2PHG +61XUc6NrpeeaqPx5XQ9V3aOhS1ys9+JmEk6OW0SMNtEwf7Apc/YJCexORrdT +Fw2NNBULK16Q4L031TOil4aYc2iRaBsJ2MK/NPcrDTWVl6T4vCLhw70J9Z4h +GorH4DnaGxLW3XwcuZ+XjjMZPAcMukj4KsqS8uajo5pCRtm5bhLKE8rKLvPT +8U78Y4uq91T+YWnvW0Tp+FXX11G0l8rPwU1TX4WOn4Ubf2V9IWFaWaBnwwE6 +ju0c3/ZqgISJTInQjYfoePHc+FztLxLG1sgztI9R8ct6NW8NUt/vj7arkQsd +g7bRZV2HSfh8z27iUDAdN8k7C9X8JqF3g0fq8TA6FvpWd4f9IeH9TX9dxyg6 ++gd7rDceI+Ft+KUwryt0pM+9sqkfJ6HF7M7q6Dw6ZoU76oVPkdD84L+yS0V0 +tE0h9ytOU+tNrXX/VZKOVr1C048p1wp9SrtRTUf8IjkyN0PCvYgBFruWjh4/ +7holzJJwd3L8Y2EDHVVJO2XZOaoe3SsUKp/R8aFXb7naPAmkuUhLzSs6Fm0p +O1BGueShrHtdBx03WibGq/4lIT930+2nn+jI9I5/JLlAQq4IWLZ9p6NJcVlz +LOWsKJPptwN03H17zHaSctpJG/g8TsdLjjOVx3lKIeWD8+cfM3R0v/9x8DLl +pN2nIwYX6Mi4+n3sPuX4jdFPp5YTuNXOwVtgUSnE5iV6/F1N4NkXfX1alKNF +M9f+I0zgo2y25mHKYbNlB9fIEJhz8J12JuXz7vdnhAkCy0xtp2soB/U+ypRQ +JHBjPcS9pRywtw3lNhB4wX7m9zBlv4buL/KaBEqZSqouW1wKpzd/j1TeQqDx +vLKeFGXPWyNKGroEvg2oItQoe4jPtmrpE/hOZVsvUD4Zu8RTdzuBe8ZsvXZR +dp5fI2RgRmCPTHrXIcqOpySqjPcQGH4yQNKBst0nhrX5AQJNlsdscqd8fJ/a +nMUhAheSrZmnKR9t0r5pdYzAPrrvqB/lQ1uMDGzsCfRZ75rsT/lg4a5vdi4E +DqU+Evm/90taR7t4EKjRKubpS3nvJTvlU6cJtI8ZzvOkvGvB/bmPP4FZK7vu +uFA28/L3CgwmsHTMKf845R1fwoRDwgisOajkfYDytgOX7kREETh7myu5g7JB +c8qh2DgC/cajc/+lDNo58wlXCLzlY7JCgbJucUlWcjKBmyZC9whR7pYrvrkt +ncB1U208C1R9A5MLb4zdpOLnn+38SVlsVUFmLpuql+5Ex0vKd0LzMywKCeQ1 +ql6oomw5yU5fxCWQk6q7J53ymFtuWmk5gfddpp4EU9a0yrq++j6Bc/dmt7Io +tz27kfKgjkCuwuaNEpQ9DTOT3ZoIPPgxxnKcWk9c1bSklucECp/xlsunbM6+ +fjXgNYFGNVPNZyn/Ek9JVOwkEIQvZOymrLQkKSHyE4H5XiqZX6j1+zgw8fLm +7wQm1CgcCqHsOJIQ/7WfwMwUPl9xyuzuS3EGYwTGMI8+Rmp/yJVHRf9dysCv +Qjk89tT+eqgQGcVZycA7Wusef6H2n03mhcgjAgzsaDQcP0Y5PTr0Qo04A1c4 +110wp/brumNnQ/xUGGhxTyRpfpKEyvaA8/IaDHz2l5l3nPJ+U/9z7ZsZaBg+ +QNRNkJC42TdIExgouTfZw4fqF/yrTvkP7WXgnoNP95dT/aYk1P1MpiUD8UfL +8NQoCaaTJ/12Hmbg0ZIMHl3K0Z+dfYrsGRjAaIu6Q/Wrf6ptPR3PMHCnzwGT +C1R/y1U9cUokiIGrj9SQXKr/GbCPeTSGMFChaFPSm34Szl8+4kaPYWB/zrVu +sT4SZhwsnXsyGFjx/Uio7zcSRgVNj1vWM7Bcylkk+gMJnW70l67NDBw6+HHA +juq/dY9m4HwrA5USxKp0qP6cEFgsW/CWgdkiO5R7O0lQ/7yqd7qfgdcytj0c +f02CR9mLo5lC8ri2ldZkS80Ly5UFz8rE5DHs9nTwX2qe6DmEsB5Jy6Oe10dM +fkTVQ1xDelhBHo+GRfZXU/OoJCTxPerKY6/PmvG2ByT07z5w+Ku9PHaWSyhu +LyPhVeGGp1Mu8tizymNDLklCDe9SHf5T8pg192zfHIeEi3eqJLQC5FHi18Xl +udR8VJQV64q6JI/6TaP69bkkOA11WSlXyaNnwiV1k2vU/Ik7bum9jIlFe476 +hvtS79+vQldfxcT1Ay8SY0+TMGk8PTgowETLc5cDE7xIWMGbGOEiwcRIj9+c +BHcq/4CGiuMbmNg5uqPZ1YGEYAem0O59TLQnMz9EUueDdXq/XijfZKL6wD8B +TupU/02/m96Xy8SNAtoWK1VJUJq+4HSrgIm1WvYyJcok6FZIL9DLmXhR83nS +VyYJdut3q0o0MdEpyExGQ5qE0nXlcXwDTNwx+61Zezl1fhk+Y/JNSwGDxNRu +CfZyQUpDJpJPVwH33a18K/WeC0PejfXK+gp4sKwhh3jHhaQJAV1vMwWUVjAU +VXjNhZ75QtWFYwrorhiRvaSZC96r3guJX1TAEMWVNXQuF9KUsGdntwIGZt1Z +2hdAne/s+E5XnFfEoVcVccv4qPg3jB48vKCId6fyeK3+4cLwu5BlTy8qYn72 +SHYeDxd+755O/3RVEXv+7D78L3XenNTpb1xdoIhXuJ4jOv0cWCzcus7lpSIG +f6iUefCUA+KNl2ukaUqY93ypy+04DvV/Iro4ql4JnTQKmC+WckDwGTO+dHg9 +OoT0XK74UwxS0eQeLS0VNPD/KPigsAiuK2sLCDltQNYZLn3kaCG0SOhv/nNF +FR2c/x7pW1YAW6XqE9TequHlwE0JM1H5sJo3x+dEmDoa/FAoqZPIA5lQWV1r +pgZyb2Sql8blwnL5I1UWzRqYbaWtFsqXA6oscfLMUU08YS2YkMnOAu8ewQZT +no34I/mZF/+hGzD8J+6AyfWNyO5xONJXmQ7Gao/STDZswrTJ5x4/t6ZC7R+d +2cnnm7DdP3zFq5Jk8FDR7Gpz2IzaPw7vXOyRBKwh+3br5Vp43rDWNkkhEbYx +xMz5c7Rw8Epe0WK1BFAMifGv37IFr2nXOs63xMF6B+2H8l1bUGMHqSrEuggO +tc4XKrz+RZOonpbXWyLhYVa7/aiINhq/5m7+rR8OYwULk2p3tDHiDRSY3AoB +O/ni5WnmW/Hk62WYMh4Eo+uvapWPbMXz87Fn7Br94S579tN4tA6aykt3rtvt +C4eMCNSR0UUu2XZsyR5vkHSPqlat00XDb7L5RkMeILLCrcz8IAttktl5Zrtc +gW0YHDhizcLv/Wm5/DquoBkcb3j1CAtddxkldCu4wq6R0jedJ1j4+kygbPoi +V4h8Oz5t58ZC6UdagQWVLjCVc94gMJSFW9+Hm07KukCXztXX+cUsvMFIea83 +7wTOvuwMEy4LnawseH0GnGCCW+nwq5SFC+sVXSreOYEgvXNSo4qFtL9B7y2r +nMCMT1rqQR0Lg/4930LzdIL77fn2r9+wMKfDj//pN0cwXX13g18nC3WUXtwo +a3eETuMnE2LdLLSW3iie2+AIYzUD0TYfWRjG33Q7P9sRNmSrc/r6WQi/f/ar +2TjC/S59v7hBFjZedldzN6fiCe8DtREWinHcNCt1HcExyrfNZ5yF052FNg6S +VLy6yDTRKRYat1kEP1vhCGEzKXY1MywslNm5DWccQGBTocrReRY2ue4qe9Dn +ADfca8YXFljIKBS6v+2dA/wPXXdmHw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0VW0XAHDlrTQoGTIP957rIjJVesW1t6GENKhEg8pMCCFEGTKEJIlM +ZbhkuvcgFJW8hpQ0KEUUzYVMZR7yne+Ps876rbPWXmfv8zx7P4dme8rCYTEP +D8/iRdRF3Sd6njQyYtl67Z4B6bFjOnrtN8QC9DvDYEQ4Z8d/bHFAkRe2Yp2J +sDPjvkQUWwn89hR18HbmgHoTv5AtWxvWDokmTneUQ/vdsFY1tgn03t91aqyj +HiZa0rNScq1hO6P/w2jHK/gsXRG1O9sFpju2XBvp+AyPs++eYF0PgAbDW+y2 +nD8gMPXArDs0BqR6q7/bqszDRocjJ1xCroKw27GiZYa8qBVk0nDKNRUSNbbf +23WAD79aX/0xGnET3l1XrxsV4Mf/MvEn51QOxLLPv1gsvhYzS9YMfJfKA9Gk +LxevZgrhwnaPKvPgWxC130Tv1YQIrl1lvNjarxBOa2cfexImhsozxoNFe4vB +NGv1mFmcGFrUbBZfZlUM9GVB0c+vieEe87QFG5tieNluWfa6QAz9lD5MLzpZ +DKqeq3h7noshV1QqRfhCMfzMP5P/W0IcZeO5q90qi+GI8K5BydviuMXcfv6j +cAkYDc8EenyRwP9+1bU+f1QCATuS1v/3SwIFEozHZp+WADd7Q5fQhAQen8kZ +YLSVgNj+49rVfJJYH7nWxLW7BH7dbZrkVZXE6vUp1fXDJXA1LMEn1V8SZa06 +TYtEOfBZhOnRyC+F3i/41fbZc0D01ENpUVEpZC5t5Z1x5sDOx1bPXOSkULNq +DTvDnQNVgbEqazZKYcf33u1v/DgQ0zvSb20lhbX7vgkJX+SAZuE9p+EcKYxn +t9Q1l3AgVHfvCYl/pVEvOMhw2SgHdtjc+L3FQBpr+2+tCR3nwOqQgfADO6VR +31jm5/g0BzIaIvITjktjxGb12peLuXDXtGZg6UVpXLASXGQmzIURK8Lvzztp +lNA8M7lXiws2vuMxrWdlMEDgcGqRHxfkUwyk+iNkUDZ6lVJkIJfK/zJnWYIM +Ws+WPjlyjguBc0ovDdgyWHP2od5sBBeuhduIVLfKYM7b23/nkrjQeqX5Zp60 +LLYG6wgIl3NhKze14txDWTQTno9P/MkFo47n80OPZXHpKtETqQNc2MXzj/Gx +V7L4YOeakfQhLthZeLyDb7LokN+zLWmMC9vP0s6HLJFDx9jlXXt5SPCUncjV +V5bD0BmVER5REhqdbg42+Mmhx/eUExr6JJjMaQsGnZXD06+lz5UakvA8oV1r +U4gc3q5zsVPeTsK76uUh7ItyOLdndYywGQlDK30EIzLk8NSSzn0V+0kQK92x +ZXu9HHqteaW33okEt6nRkMf8NAyzDGn9HU3CVi/Hdd8FafjEV4S+LpYEvv6u +Yl4xGi6N77u26RIJed0Nb/XoNEweFOq2vUJCT+01lUotGr6TFx++kErC7gjt +zuxjNNQZ4evtLSBB5i/H/aE9Df920zwqi0j45Ufn/eBCwz43MYXIEhKinVeq +ivnQ8LcpKS5eSkKd2Yfw+GgavkncKrrkDgmagqFqZ8toGBSzTX6igQSe2PHG +61XUc6NrpeeaqPx5XQ9V3aOhS1ys9+JmEk6OW0SMNtEwf7Apc/YJCexORrdT +Fw2NNBULK16Q4L031TOil4aYc2iRaBsJ2MK/NPcrDTWVl6T4vCLhw70J9Z4h +GorH4DnaGxLW3XwcuZ+XjjMZPAcMukj4KsqS8uajo5pCRtm5bhLKE8rKLvPT +8U78Y4uq91T+YWnvW0Tp+FXX11G0l8rPwU1TX4WOn4Ubf2V9IWFaWaBnwwE6 +ju0c3/ZqgISJTInQjYfoePHc+FztLxLG1sgztI9R8ct6NW8NUt/vj7arkQsd +g7bRZV2HSfh8z27iUDAdN8k7C9X8JqF3g0fq8TA6FvpWd4f9IeH9TX9dxyg6 ++gd7rDceI+Ft+KUwryt0pM+9sqkfJ6HF7M7q6Dw6ZoU76oVPkdD84L+yS0V0 +tE0h9ytOU+tNrXX/VZKOVr1C048p1wp9SrtRTUf8IjkyN0PCvYgBFruWjh4/ +7holzJJwd3L8Y2EDHVVJO2XZOaoe3SsUKp/R8aFXb7naPAmkuUhLzSs6Fm0p +O1BGueShrHtdBx03WibGq/4lIT930+2nn+jI9I5/JLlAQq4IWLZ9p6NJcVlz +LOWsKJPptwN03H17zHaSctpJG/g8TsdLjjOVx3lKIeWD8+cfM3R0v/9x8DLl +pN2nIwYX6Mi4+n3sPuX4jdFPp5YTuNXOwVtgUSnE5iV6/F1N4NkXfX1alKNF +M9f+I0zgo2y25mHKYbNlB9fIEJhz8J12JuXz7vdnhAkCy0xtp2soB/U+ypRQ +JHBjPcS9pRywtw3lNhB4wX7m9zBlv4buL/KaBEqZSqouW1wKpzd/j1TeQqDx +vLKeFGXPWyNKGroEvg2oItQoe4jPtmrpE/hOZVsvUD4Zu8RTdzuBe8ZsvXZR +dp5fI2RgRmCPTHrXIcqOpySqjPcQGH4yQNKBst0nhrX5AQJNlsdscqd8fJ/a +nMUhAheSrZmnKR9t0r5pdYzAPrrvqB/lQ1uMDGzsCfRZ75rsT/lg4a5vdi4E +DqU+Evm/90taR7t4EKjRKubpS3nvJTvlU6cJtI8ZzvOkvGvB/bmPP4FZK7vu +uFA28/L3CgwmsHTMKf845R1fwoRDwgisOajkfYDytgOX7kREETh7myu5g7JB +c8qh2DgC/cajc/+lDNo58wlXCLzlY7JCgbJucUlWcjKBmyZC9whR7pYrvrkt +ncB1U208C1R9A5MLb4zdpOLnn+38SVlsVUFmLpuql+5Ex0vKd0LzMywKCeQ1 +ql6oomw5yU5fxCWQk6q7J53ymFtuWmk5gfddpp4EU9a0yrq++j6Bc/dmt7Io +tz27kfKgjkCuwuaNEpQ9DTOT3ZoIPPgxxnKcWk9c1bSklucECp/xlsunbM6+ +fjXgNYFGNVPNZyn/Ek9JVOwkEIQvZOymrLQkKSHyE4H5XiqZX6j1+zgw8fLm +7wQm1CgcCqHsOJIQ/7WfwMwUPl9xyuzuS3EGYwTGMI8+Rmp/yJVHRf9dysCv +Qjk89tT+eqgQGcVZycA7Wusef6H2n03mhcgjAgzsaDQcP0Y5PTr0Qo04A1c4 +110wp/brumNnQ/xUGGhxTyRpfpKEyvaA8/IaDHz2l5l3nPJ+U/9z7ZsZaBg+ +QNRNkJC42TdIExgouTfZw4fqF/yrTvkP7WXgnoNP95dT/aYk1P1MpiUD8UfL +8NQoCaaTJ/12Hmbg0ZIMHl3K0Z+dfYrsGRjAaIu6Q/Wrf6ptPR3PMHCnzwGT +C1R/y1U9cUokiIGrj9SQXKr/GbCPeTSGMFChaFPSm34Szl8+4kaPYWB/zrVu +sT4SZhwsnXsyGFjx/Uio7zcSRgVNj1vWM7Bcylkk+gMJnW70l67NDBw6+HHA +juq/dY9m4HwrA5USxKp0qP6cEFgsW/CWgdkiO5R7O0lQ/7yqd7qfgdcytj0c +f02CR9mLo5lC8ri2ldZkS80Ly5UFz8rE5DHs9nTwX2qe6DmEsB5Jy6Oe10dM +fkTVQ1xDelhBHo+GRfZXU/OoJCTxPerKY6/PmvG2ByT07z5w+Ku9PHaWSyhu +LyPhVeGGp1Mu8tizymNDLklCDe9SHf5T8pg192zfHIeEi3eqJLQC5FHi18Xl +udR8VJQV64q6JI/6TaP69bkkOA11WSlXyaNnwiV1k2vU/Ik7bum9jIlFe476 +hvtS79+vQldfxcT1Ay8SY0+TMGk8PTgowETLc5cDE7xIWMGbGOEiwcRIj9+c +BHcq/4CGiuMbmNg5uqPZ1YGEYAem0O59TLQnMz9EUueDdXq/XijfZKL6wD8B +TupU/02/m96Xy8SNAtoWK1VJUJq+4HSrgIm1WvYyJcok6FZIL9DLmXhR83nS +VyYJdut3q0o0MdEpyExGQ5qE0nXlcXwDTNwx+61Zezl1fhk+Y/JNSwGDxNRu +CfZyQUpDJpJPVwH33a18K/WeC0PejfXK+gp4sKwhh3jHhaQJAV1vMwWUVjAU +VXjNhZ75QtWFYwrorhiRvaSZC96r3guJX1TAEMWVNXQuF9KUsGdntwIGZt1Z +2hdAne/s+E5XnFfEoVcVccv4qPg3jB48vKCId6fyeK3+4cLwu5BlTy8qYn72 +SHYeDxd+755O/3RVEXv+7D78L3XenNTpb1xdoIhXuJ4jOv0cWCzcus7lpSIG +f6iUefCUA+KNl2ukaUqY93ypy+04DvV/Iro4ql4JnTQKmC+WckDwGTO+dHg9 +OoT0XK74UwxS0eQeLS0VNPD/KPigsAiuK2sLCDltQNYZLn3kaCG0SOhv/nNF +FR2c/x7pW1YAW6XqE9TequHlwE0JM1H5sJo3x+dEmDoa/FAoqZPIA5lQWV1r +pgZyb2Sql8blwnL5I1UWzRqYbaWtFsqXA6oscfLMUU08YS2YkMnOAu8ewQZT +no34I/mZF/+hGzD8J+6AyfWNyO5xONJXmQ7Gao/STDZswrTJ5x4/t6ZC7R+d +2cnnm7DdP3zFq5Jk8FDR7Gpz2IzaPw7vXOyRBKwh+3br5Vp43rDWNkkhEbYx +xMz5c7Rw8Epe0WK1BFAMifGv37IFr2nXOs63xMF6B+2H8l1bUGMHqSrEuggO +tc4XKrz+RZOonpbXWyLhYVa7/aiINhq/5m7+rR8OYwULk2p3tDHiDRSY3AoB +O/ni5WnmW/Hk62WYMh4Eo+uvapWPbMXz87Fn7Br94S579tN4tA6aykt3rtvt +C4eMCNSR0UUu2XZsyR5vkHSPqlat00XDb7L5RkMeILLCrcz8IAttktl5Zrtc +gW0YHDhizcLv/Wm5/DquoBkcb3j1CAtddxkldCu4wq6R0jedJ1j4+kygbPoi +V4h8Oz5t58ZC6UdagQWVLjCVc94gMJSFW9+Hm07KukCXztXX+cUsvMFIea83 +7wTOvuwMEy4LnawseH0GnGCCW+nwq5SFC+sVXSreOYEgvXNSo4qFtL9B7y2r +nMCMT1rqQR0Lg/4930LzdIL77fn2r9+wMKfDj//pN0cwXX13g18nC3WUXtwo +a3eETuMnE2LdLLSW3iie2+AIYzUD0TYfWRjG33Q7P9sRNmSrc/r6WQi/f/ar +2TjC/S59v7hBFjZedldzN6fiCe8DtREWinHcNCt1HcExyrfNZ5yF052FNg6S +VLy6yDTRKRYat1kEP1vhCGEzKXY1MywslNm5DWccQGBTocrReRY2ue4qe9Dn +ADfca8YXFljIKBS6v+2dA/wPXXdmHw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06253770515665186}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06253770515665186}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0VW0XAHDlrTQoGTIP957rIjJVesW1t6GENKhEg8pMCCFEGTKEJIlM +ZbhkuvcgFJW8hpQ0KEUUzYVMZR7yne+Ps876rbPWXmfv8zx7P4dme8rCYTEP +D8/iRdRF3Sd6njQyYtl67Z4B6bFjOnrtN8QC9DvDYEQ4Z8d/bHFAkRe2Yp2J +sDPjvkQUWwn89hR18HbmgHoTv5AtWxvWDokmTneUQ/vdsFY1tgn03t91aqyj +HiZa0rNScq1hO6P/w2jHK/gsXRG1O9sFpju2XBvp+AyPs++eYF0PgAbDW+y2 +nD8gMPXArDs0BqR6q7/bqszDRocjJ1xCroKw27GiZYa8qBVk0nDKNRUSNbbf +23WAD79aX/0xGnET3l1XrxsV4Mf/MvEn51QOxLLPv1gsvhYzS9YMfJfKA9Gk +LxevZgrhwnaPKvPgWxC130Tv1YQIrl1lvNjarxBOa2cfexImhsozxoNFe4vB +NGv1mFmcGFrUbBZfZlUM9GVB0c+vieEe87QFG5tieNluWfa6QAz9lD5MLzpZ +DKqeq3h7noshV1QqRfhCMfzMP5P/W0IcZeO5q90qi+GI8K5BydviuMXcfv6j +cAkYDc8EenyRwP9+1bU+f1QCATuS1v/3SwIFEozHZp+WADd7Q5fQhAQen8kZ +YLSVgNj+49rVfJJYH7nWxLW7BH7dbZrkVZXE6vUp1fXDJXA1LMEn1V8SZa06 +TYtEOfBZhOnRyC+F3i/41fbZc0D01ENpUVEpZC5t5Z1x5sDOx1bPXOSkULNq +DTvDnQNVgbEqazZKYcf33u1v/DgQ0zvSb20lhbX7vgkJX+SAZuE9p+EcKYxn +t9Q1l3AgVHfvCYl/pVEvOMhw2SgHdtjc+L3FQBpr+2+tCR3nwOqQgfADO6VR +31jm5/g0BzIaIvITjktjxGb12peLuXDXtGZg6UVpXLASXGQmzIURK8Lvzztp +lNA8M7lXiws2vuMxrWdlMEDgcGqRHxfkUwyk+iNkUDZ6lVJkIJfK/zJnWYIM +Ws+WPjlyjguBc0ovDdgyWHP2od5sBBeuhduIVLfKYM7b23/nkrjQeqX5Zp60 +LLYG6wgIl3NhKze14txDWTQTno9P/MkFo47n80OPZXHpKtETqQNc2MXzj/Gx +V7L4YOeakfQhLthZeLyDb7LokN+zLWmMC9vP0s6HLJFDx9jlXXt5SPCUncjV +V5bD0BmVER5REhqdbg42+Mmhx/eUExr6JJjMaQsGnZXD06+lz5UakvA8oV1r +U4gc3q5zsVPeTsK76uUh7ItyOLdndYywGQlDK30EIzLk8NSSzn0V+0kQK92x +ZXu9HHqteaW33okEt6nRkMf8NAyzDGn9HU3CVi/Hdd8FafjEV4S+LpYEvv6u +Yl4xGi6N77u26RIJed0Nb/XoNEweFOq2vUJCT+01lUotGr6TFx++kErC7gjt +zuxjNNQZ4evtLSBB5i/H/aE9Df920zwqi0j45Ufn/eBCwz43MYXIEhKinVeq +ivnQ8LcpKS5eSkKd2Yfw+GgavkncKrrkDgmagqFqZ8toGBSzTX6igQSe2PHG +61XUc6NrpeeaqPx5XQ9V3aOhS1ys9+JmEk6OW0SMNtEwf7Apc/YJCexORrdT +Fw2NNBULK16Q4L031TOil4aYc2iRaBsJ2MK/NPcrDTWVl6T4vCLhw70J9Z4h +GorH4DnaGxLW3XwcuZ+XjjMZPAcMukj4KsqS8uajo5pCRtm5bhLKE8rKLvPT +8U78Y4uq91T+YWnvW0Tp+FXX11G0l8rPwU1TX4WOn4Ubf2V9IWFaWaBnwwE6 +ju0c3/ZqgISJTInQjYfoePHc+FztLxLG1sgztI9R8ct6NW8NUt/vj7arkQsd +g7bRZV2HSfh8z27iUDAdN8k7C9X8JqF3g0fq8TA6FvpWd4f9IeH9TX9dxyg6 ++gd7rDceI+Ft+KUwryt0pM+9sqkfJ6HF7M7q6Dw6ZoU76oVPkdD84L+yS0V0 +tE0h9ytOU+tNrXX/VZKOVr1C048p1wp9SrtRTUf8IjkyN0PCvYgBFruWjh4/ +7holzJJwd3L8Y2EDHVVJO2XZOaoe3SsUKp/R8aFXb7naPAmkuUhLzSs6Fm0p +O1BGueShrHtdBx03WibGq/4lIT930+2nn+jI9I5/JLlAQq4IWLZ9p6NJcVlz +LOWsKJPptwN03H17zHaSctpJG/g8TsdLjjOVx3lKIeWD8+cfM3R0v/9x8DLl +pN2nIwYX6Mi4+n3sPuX4jdFPp5YTuNXOwVtgUSnE5iV6/F1N4NkXfX1alKNF +M9f+I0zgo2y25mHKYbNlB9fIEJhz8J12JuXz7vdnhAkCy0xtp2soB/U+ypRQ +JHBjPcS9pRywtw3lNhB4wX7m9zBlv4buL/KaBEqZSqouW1wKpzd/j1TeQqDx +vLKeFGXPWyNKGroEvg2oItQoe4jPtmrpE/hOZVsvUD4Zu8RTdzuBe8ZsvXZR +dp5fI2RgRmCPTHrXIcqOpySqjPcQGH4yQNKBst0nhrX5AQJNlsdscqd8fJ/a +nMUhAheSrZmnKR9t0r5pdYzAPrrvqB/lQ1uMDGzsCfRZ75rsT/lg4a5vdi4E +DqU+Evm/90taR7t4EKjRKubpS3nvJTvlU6cJtI8ZzvOkvGvB/bmPP4FZK7vu +uFA28/L3CgwmsHTMKf845R1fwoRDwgisOajkfYDytgOX7kREETh7myu5g7JB +c8qh2DgC/cajc/+lDNo58wlXCLzlY7JCgbJucUlWcjKBmyZC9whR7pYrvrkt +ncB1U208C1R9A5MLb4zdpOLnn+38SVlsVUFmLpuql+5Ex0vKd0LzMywKCeQ1 +ql6oomw5yU5fxCWQk6q7J53ymFtuWmk5gfddpp4EU9a0yrq++j6Bc/dmt7Io +tz27kfKgjkCuwuaNEpQ9DTOT3ZoIPPgxxnKcWk9c1bSklucECp/xlsunbM6+ +fjXgNYFGNVPNZyn/Ek9JVOwkEIQvZOymrLQkKSHyE4H5XiqZX6j1+zgw8fLm +7wQm1CgcCqHsOJIQ/7WfwMwUPl9xyuzuS3EGYwTGMI8+Rmp/yJVHRf9dysCv +Qjk89tT+eqgQGcVZycA7Wusef6H2n03mhcgjAgzsaDQcP0Y5PTr0Qo04A1c4 +110wp/brumNnQ/xUGGhxTyRpfpKEyvaA8/IaDHz2l5l3nPJ+U/9z7ZsZaBg+ +QNRNkJC42TdIExgouTfZw4fqF/yrTvkP7WXgnoNP95dT/aYk1P1MpiUD8UfL +8NQoCaaTJ/12Hmbg0ZIMHl3K0Z+dfYrsGRjAaIu6Q/Wrf6ptPR3PMHCnzwGT +C1R/y1U9cUokiIGrj9SQXKr/GbCPeTSGMFChaFPSm34Szl8+4kaPYWB/zrVu +sT4SZhwsnXsyGFjx/Uio7zcSRgVNj1vWM7Bcylkk+gMJnW70l67NDBw6+HHA +juq/dY9m4HwrA5USxKp0qP6cEFgsW/CWgdkiO5R7O0lQ/7yqd7qfgdcytj0c +f02CR9mLo5lC8ri2ldZkS80Ly5UFz8rE5DHs9nTwX2qe6DmEsB5Jy6Oe10dM +fkTVQ1xDelhBHo+GRfZXU/OoJCTxPerKY6/PmvG2ByT07z5w+Ku9PHaWSyhu +LyPhVeGGp1Mu8tizymNDLklCDe9SHf5T8pg192zfHIeEi3eqJLQC5FHi18Xl +udR8VJQV64q6JI/6TaP69bkkOA11WSlXyaNnwiV1k2vU/Ik7bum9jIlFe476 +hvtS79+vQldfxcT1Ay8SY0+TMGk8PTgowETLc5cDE7xIWMGbGOEiwcRIj9+c +BHcq/4CGiuMbmNg5uqPZ1YGEYAem0O59TLQnMz9EUueDdXq/XijfZKL6wD8B +TupU/02/m96Xy8SNAtoWK1VJUJq+4HSrgIm1WvYyJcok6FZIL9DLmXhR83nS +VyYJdut3q0o0MdEpyExGQ5qE0nXlcXwDTNwx+61Zezl1fhk+Y/JNSwGDxNRu +CfZyQUpDJpJPVwH33a18K/WeC0PejfXK+gp4sKwhh3jHhaQJAV1vMwWUVjAU +VXjNhZ75QtWFYwrorhiRvaSZC96r3guJX1TAEMWVNXQuF9KUsGdntwIGZt1Z +2hdAne/s+E5XnFfEoVcVccv4qPg3jB48vKCId6fyeK3+4cLwu5BlTy8qYn72 +SHYeDxd+755O/3RVEXv+7D78L3XenNTpb1xdoIhXuJ4jOv0cWCzcus7lpSIG +f6iUefCUA+KNl2ukaUqY93ypy+04DvV/Iro4ql4JnTQKmC+WckDwGTO+dHg9 +OoT0XK74UwxS0eQeLS0VNPD/KPigsAiuK2sLCDltQNYZLn3kaCG0SOhv/nNF +FR2c/x7pW1YAW6XqE9TequHlwE0JM1H5sJo3x+dEmDoa/FAoqZPIA5lQWV1r +pgZyb2Sql8blwnL5I1UWzRqYbaWtFsqXA6oscfLMUU08YS2YkMnOAu8ewQZT +no34I/mZF/+hGzD8J+6AyfWNyO5xONJXmQ7Gao/STDZswrTJ5x4/t6ZC7R+d +2cnnm7DdP3zFq5Jk8FDR7Gpz2IzaPw7vXOyRBKwh+3br5Vp43rDWNkkhEbYx +xMz5c7Rw8Epe0WK1BFAMifGv37IFr2nXOs63xMF6B+2H8l1bUGMHqSrEuggO +tc4XKrz+RZOonpbXWyLhYVa7/aiINhq/5m7+rR8OYwULk2p3tDHiDRSY3AoB +O/ni5WnmW/Hk62WYMh4Eo+uvapWPbMXz87Fn7Br94S579tN4tA6aykt3rtvt +C4eMCNSR0UUu2XZsyR5vkHSPqlat00XDb7L5RkMeILLCrcz8IAttktl5Zrtc +gW0YHDhizcLv/Wm5/DquoBkcb3j1CAtddxkldCu4wq6R0jedJ1j4+kygbPoi +V4h8Oz5t58ZC6UdagQWVLjCVc94gMJSFW9+Hm07KukCXztXX+cUsvMFIea83 +7wTOvuwMEy4LnawseH0GnGCCW+nwq5SFC+sVXSreOYEgvXNSo4qFtL9B7y2r +nMCMT1rqQR0Lg/4930LzdIL77fn2r9+wMKfDj//pN0cwXX13g18nC3WUXtwo +a3eETuMnE2LdLLSW3iie2+AIYzUD0TYfWRjG33Q7P9sRNmSrc/r6WQi/f/ar +2TjC/S59v7hBFjZedldzN6fiCe8DtREWinHcNCt1HcExyrfNZ5yF052FNg6S +VLy6yDTRKRYat1kEP1vhCGEzKXY1MywslNm5DWccQGBTocrReRY2ue4qe9Dn +ADfca8YXFljIKBS6v+2dA/wPXXdmHw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06253770515665186}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06253770515665186}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994260189886104*^9}, + CellLabel-> + "Out[152]=",ExpressionUUID->"f6759f5b-4b14-4273-a5dd-694f638391bc"] +}, Open ]], Cell[CellGroupData[{ @@ -13205,7 +15173,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -13223,8 +15193,8 @@ Cell[BoxData[ SuperscriptBox[ RowBox[{"(", FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -13246,66 +15216,72 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[142]:=",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], + "In[153]:=",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 142, 93, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279097599506`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4655515941696545`*^-166\\\", \ +RowBox[{\\\"161198658118785115956678\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"98\\\", \\\"\[RightSkeleton]\\\"}], \\\"0000000000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 153, 73, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279097599506`*^9, 3.994260189939836*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], +In[153]:=",ExpressionUUID->"cecca337-4169-4407-9244-6b628465d4aa"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 142, 94, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327909769953*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4152641185739624`*^-169\\\", \ +RowBox[{\\\"505518991860510123640143\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"101\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 153, 74, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279097599506`*^9, 3.9942601899481487`*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], +In[153]:=",ExpressionUUID->"2a2cf432-cc19-43fc-8876-730434d65c9c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 142, 95, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279097784023`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.3667021572568848`*^-172\\\", \ +RowBox[{\\\"164243120455479739170682\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"105\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 153, 75, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279097599506`*^9, 3.994260189957556*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], +In[153]:=",ExpressionUUID->"cc647c96-bfec-487a-9ec4-557868a99484"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 142, 96, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327909786396*^9}, +during this calculation.\"", 2, 153, 76, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279097599506`*^9, 3.994260189966646*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], +In[153]:=",ExpressionUUID->"8d0c9e98-af80-48de-9532-4eef9afd8a6b"], -Cell[BoxData["11.275343508420296`"], "Output", - CellChangeTimes->{3.9913279159698696`*^9}, +Cell[BoxData["12.739231250576944`"], "Output", + CellChangeTimes->{3.9913279159698696`*^9, 3.9942602696528463`*^9}, CellLabel-> - "Out[142]=",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] + "Out[153]=",ExpressionUUID->"09ec4930-545a-4c16-a3b4-2c70c4380d74"] }, Open ]], Cell[CellGroupData[{ @@ -13372,68 +15348,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.99179998339209*^9, - 3.991799988637089*^9}},ExpressionUUID->"a5e0631c-6c6c-a045-8418-\ -22c641e38d86"], + CellChangeTimes->{{3.99179998339209*^9, 3.991799988637089*^9}}, + CellLabel-> + "In[154]:=",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 143, 97, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327916008396*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.31266603698098`*^-226\\\", \ +RowBox[{\\\"2735526583816145583533735\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 154, 77, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327916008396*^9, 3.994260269695369*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], +In[154]:=",ExpressionUUID->"b341d488-d675-44ce-be27-eddf33c7bfb8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 143, 98, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327916018362*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.05919297511902`*^-232\\\", \ +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 154, 78, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327916008396*^9, 3.994260269705597*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], +In[154]:=",ExpressionUUID->"645ee13f-59d5-42e6-8456-a11fc7e47dba"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 143, - 99, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279160263577`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.934944496052688`*^-238\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 154, 79, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327916008396*^9, 3.994260269714436*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], +In[154]:=",ExpressionUUID->"d4b2dc06-0e63-40f0-8792-075da5ac8805"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 143, 100, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327916034359*^9}, +during this calculation.\"", 2, 154, 80, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327916008396*^9, 3.994260269725092*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], +In[154]:=",ExpressionUUID->"dc8212a9-696a-4826-b7ea-2a92ebe98f57"], -Cell[BoxData["1.0734937398087425`"], "Output", - CellChangeTimes->{3.991327922931429*^9}, +Cell[BoxData["0.10275360788085189`"], "Output", + CellChangeTimes->{3.991327922931429*^9, 3.994260279782124*^9}, CellLabel-> - "Out[143]=",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] + "Out[154]=",ExpressionUUID->"82d4b18d-e288-4564-9f81-a57c0233c0de"] }, Open ]], Cell[CellGroupData[{ @@ -13454,8 +15437,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -13500,68 +15482,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991799991275097*^9, - 3.9917999948700333`*^9}},ExpressionUUID->"4b6c44e4-d946-0c4d-9992-\ -4f0fc7048689"], + CellChangeTimes->{{3.991799991275097*^9, 3.9917999948700333`*^9}}, + CellLabel-> + "In[155]:=",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 144, 101, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279229664307`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.31266603698098`*^-226\\\", \ +RowBox[{\\\"2735526583816145583533735\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 155, 81, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279229664307`*^9, 3.994260279831676*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], +In[155]:=",ExpressionUUID->"57aa5bd9-dfaa-4ee6-a38a-79e43068f09c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 144, 102, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327922975607*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.05919297511902`*^-232\\\", \ +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 155, 82, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279229664307`*^9, 3.9942602798402023`*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], +In[155]:=",ExpressionUUID->"cb8077e4-bf1f-423b-b627-de9d6a89fb47"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 144, - 103, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279229836063`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.934944496052688`*^-238\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 155, 83, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279229664307`*^9, 3.994260279849362*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], +In[155]:=",ExpressionUUID->"5d6bfc00-4ac1-40ae-974f-3795f3ccdb0b"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 144, 104, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279229916077`*^9}, +during this calculation.\"", 2, 155, 84, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279229664307`*^9, 3.99426027985756*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], +In[155]:=",ExpressionUUID->"f8076ee9-eee5-4701-94ff-dfbd1dbc1367"], -Cell[BoxData["9.48093127226425`"], "Output", - CellChangeTimes->{3.9913279288200035`*^9}, +Cell[BoxData["40.37244059612294`"], "Output", + CellChangeTimes->{3.9913279288200035`*^9, 3.9942602894729977`*^9}, CellLabel-> - "Out[144]=",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] + "Out[155]=",ExpressionUUID->"74805545-902b-429f-aabe-2d570e8a95b2"] }, Open ]], Cell[CellGroupData[{ @@ -13582,8 +15571,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -13628,68 +15616,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918000011431293`*^9, - 3.9918000068677616`*^9}},ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-\ -32244819d42b"], + CellChangeTimes->{{3.9918000011431293`*^9, 3.9918000068677616`*^9}}, + CellLabel-> + "In[156]:=",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 145, 105, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327928854006*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.31266603698098`*^-226\\\", \ +RowBox[{\\\"2735526583816145583533735\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 156, 85, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327928854006*^9, 3.994260289523623*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], +In[156]:=",ExpressionUUID->"86fb9189-fd51-49b9-9806-7ad04a299fd3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 145, 106, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327928864023*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.05919297511902`*^-232\\\", \ +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 156, 86, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327928854006*^9, 3.994260289534293*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], +In[156]:=",ExpressionUUID->"787adfd9-60b7-4a69-8ba4-1c3fd12884ac"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 145, - 107, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327928871004*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.934944496052688`*^-238\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 156, 87, + 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327928854006*^9, 3.9942602895442333`*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], +In[156]:=",ExpressionUUID->"f3a416f8-bfe9-497b-b77f-b73cef41e31e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 145, 108, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327928878006*^9}, +during this calculation.\"", 2, 156, 88, 31387658245461100368, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327928854006*^9, 3.9942602895540333`*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], +In[156]:=",ExpressionUUID->"60011914-900d-48d7-806c-0283c33c6d4b"], -Cell[BoxData["17.503865312709518`"], "Output", - CellChangeTimes->{3.9913279320131683`*^9}, +Cell[BoxData["6.719028473671972`"], "Output", + CellChangeTimes->{3.9913279320131683`*^9, 3.994260297738267*^9}, CellLabel-> - "Out[145]=",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] + "Out[156]=",ExpressionUUID->"51ebf5a0-fc9d-4ece-8973-076a6e14cf42"] }, Open ]], Cell[CellGroupData[{ @@ -13698,26 +15693,214 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991800029528055*^9, - 3.991800041720209*^9}},ExpressionUUID->"99da2760-e71e-1246-8cc9-\ -f0a7464dc747"], - -Cell[BoxData["0.08333108480569339`"], "Output", - CellChangeTimes->{3.9913279320452003`*^9}, + CellChangeTimes->{{3.991800029528055*^9, 3.991800041720209*^9}}, CellLabel-> - "Out[146]=",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] + "In[157]:=",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], + +Cell[BoxData["0.006238803927579537`"], "Output", + CellChangeTimes->{3.9913279320452003`*^9, 3.994260297779043*^9}, + CellLabel-> + "Out[157]=",ExpressionUUID->"ef39e33f-88ee-4c88-84a6-8a1c7002fd05"] }, Open ]], Cell[BoxData[ RowBox[{"NotebookSave", "[", "]"}]], "Input", - CellChangeTimes->{{3.9940837104074306`*^9, - 3.994083712741494*^9}},ExpressionUUID->"08768702-f34b-4e10-8a13-\ -30bb622088c4"] + CellChangeTimes->{{3.9940837104074306`*^9, 3.994083712741494*^9}, + 3.9943052310099363`*^9}, + CellLabel-> + "In[158]:=",ExpressionUUID->"08768702-f34b-4e10-8a13-30bb622088c4"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"CellPrint", "[", + RowBox[{"ExpressionCell", "[", + RowBox[{ + RowBox[{"Panel", "[", + RowBox[{ + RowBox[{"Row", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"Style", "[", + + RowBox[{"\"\<\:0423\:043f\:0440\:0430\:0432\:043b\:0435\:043d\:0438\ +\:0435 \:043a\:044d\:0448\:0435\:043c \:0433\:0440\:0430\:0444\:0438\:043a\ +\:0430: \>\"", ",", "Bold"}], "]"}], ",", + RowBox[{"Button", "[", + + RowBox[{"\"\<\:0421\:0434\:0435\:043b\:0430\:0442\:044c \:0442\ +\:0430\:0431\:043b\:0438\:0446\:0443 (\:041b\:0438\:043d\:0438\:044f 1)\>\"", + ",", + RowBox[{"Module", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"cell", ",", "pts"}], "}"}], ",", + RowBox[{ + RowBox[{"cell", "=", + RowBox[{"NotebookRead", "[", + RowBox[{"EvaluationNotebook", "[", "]"}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"pts", "=", + RowBox[{"Cases", "[", + RowBox[{"cell", ",", + RowBox[{ + RowBox[{"Line", "[", "p_", "]"}], ":>", "p"}], ",", + "Infinity"}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"If", "[", + RowBox[{ + RowBox[{ + RowBox[{"Length", "[", "pts", "]"}], ">", "0"}], ",", + RowBox[{ + RowBox[{"plotX", "=", + RowBox[{"pts", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"fInterp", "=", + RowBox[{"Interpolation", "[", "plotX", "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"dataX", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"x", ",", + RowBox[{"fInterp", "[", "x", "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30", ",", "1"}], "}"}]}], + "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"SelectionMove", "[", + RowBox[{ + RowBox[{"EvaluationNotebook", "[", "]"}], ",", "After", ",", + "Cell"}], "]"}], ";", "\[IndentingNewLine]", + RowBox[{"CellPrint", "[", + RowBox[{"Cell", "[", + RowBox[{ + RowBox[{"BoxData", "[", + RowBox[{"ToBoxes", "[", + RowBox[{"TableForm", "[", "dataX", "]"}], "]"}], "]"}], + ",", "\"\\""}], "]"}], "]"}]}], ",", + RowBox[{"MessageDialog", "[", + + RowBox[{"\"\<\:041e\:0448\:0438\:0431\:043a\:0430: \:0421\ +\:043d\:0430\:0447\:0430\:043b\:0430 \:0432\:044b\:0434\:0435\:043b\:0438\ +\:0442\:0435 \:043d\:0443\:0436\:043d\:044b\:0439 \:0433\:0440\:0430\:0444\ +\:0438\:043a (\:043a\:043b\:0438\:043a\:043d\:0438\:0442\:0435 \:043f\:043e \ +\:0435\:0433\:043e \:044f\:0447\:0435\:0439\:043a\:0435 \:0441\:043f\:0440\ +\:0430\:0432\:0430)!\>\"", ",", + RowBox[{"WindowFloating", "->", "True"}]}], "]"}]}], + "]"}]}]}], "]"}], ",", + RowBox[{"Background", "->", + RowBox[{"RGBColor", "[", + RowBox[{"0.9", ",", "0.95", ",", "1"}], "]"}]}], ",", + RowBox[{"ImageSize", "->", + RowBox[{"{", + RowBox[{"180", ",", "25"}], "}"}]}]}], "]"}]}], "}"}], "]"}], ",", + RowBox[{"Background", "->", + RowBox[{"GrayLevel", "[", "0.95", "]"}]}], ",", + RowBox[{"FrameMargins", "->", "10"}]}], "]"}], ",", "\"\\""}], + "]"}], "]"}], "\n"}]], "Input", + CellChangeTimes->{{3.9943043996512623`*^9, 3.994304399651291*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"759fd286-9dbc-41af-8ea2-f5bca2276459"], + +Cell[BoxData[ + PanelBox[ + TemplateBox[{ + StyleBox[ + "\"\:0423\:043f\:0440\:0430\:0432\:043b\:0435\:043d\:0438\:0435 \:043a\ +\:044d\:0448\:0435\:043c \:0433\:0440\:0430\:0444\:0438\:043a\:0430: \"", + Bold, StripOnInput -> False], + ButtonBox[ + "\"\:0421\:0434\:0435\:043b\:0430\:0442\:044c \:0442\:0430\:0431\:043b\ +\:0438\:0446\:0443 (\:041b\:0438\:043d\:0438\:044f 1)\"", ButtonFunction :> + Module[{$CellContext`cell, $CellContext`pts}, $CellContext`cell = + NotebookRead[ + EvaluationNotebook[]]; $CellContext`pts = + Cases[$CellContext`cell, Line[ + Pattern[$CellContext`p, + Blank[]]] :> $CellContext`p, Infinity]; + If[Length[$CellContext`pts] > + 0, $CellContext`plotX = + Part[$CellContext`pts, 1]; $CellContext`fInterp = + Interpolation[$CellContext`plotX]; $CellContext`dataX = + Table[{$CellContext`x, + $CellContext`fInterp[$CellContext`x]}, {$CellContext`x, 0, 30, + 1}]; SelectionMove[ + EvaluationNotebook[], After, Cell]; CellPrint[ + Cell[ + BoxData[ + ToBoxes[ + TableForm[$CellContext`dataX]]], "Output"]], + MessageDialog[ + "\:041e\:0448\:0438\:0431\:043a\:0430: \ +\:0421\:043d\:0430\:0447\:0430\:043b\:0430 \:0432\:044b\:0434\:0435\:043b\ +\:0438\:0442\:0435 \:043d\:0443\:0436\:043d\:044b\:0439 \:0433\:0440\:0430\ +\:0444\:0438\:043a (\:043a\:043b\:0438\:043a\:043d\:0438\:0442\:0435 \:043f\ +\:043e \:0435\:0433\:043e \:044f\:0447\:0435\:0439\:043a\:0435 \:0441\:043f\ +\:0440\:0430\:0432\:0430)!", WindowFloating -> True]]], Background -> + RGBColor[0.9, 0.95, 1], ImageSize -> {180, 25}, Appearance -> Automatic, + Evaluator -> Automatic, Method -> "Preemptive"]}, + "RowDefault"], + Background->GrayLevel[0.95], + FrameMargins->10]], "Output", + CellChangeTimes->{ + 3.9943053172118387`*^9},ExpressionUUID->"346dba6d-3f07-45bc-86a7-\ +1c6c5d3ced38"], + +Cell[BoxData[ + TagBox[GridBox[{ + {"0", + RowBox[{"-", "2.710505431213761`*^-20"}]}, + {"1", "0.010138871214424314`"}, + {"2", "0.019970011045002244`"}, + {"3", "0.02920158457031059`"}, + {"4", "0.03757105126598538`"}, + {"5", "0.0448589186567187`"}, + {"6", "0.05089667701783424`"}, + {"7", "0.055573645912989106`"}, + {"8", "0.05883934064727525`"}, + {"9", "0.06070179616667105`"}, + {"10", "0.06122298724577857`"}, + {"11", "0.06051136455038591`"}, + {"12", "0.05871235750201125`"}, + {"13", "0.055997664617386665`"}, + {"14", "0.05255416721907276`"}, + {"15", "0.04857328380484729`"}, + {"16", "0.04424122842701649`"}, + {"17", "0.039731210941338746`"}, + {"18", "0.03519696553113058`"}, + {"19", "0.030768706771913477`"}, + {"20", "0.026551235006789617`"}, + {"21", "0.022622810754484513`"}, + {"22", "0.01903687754830553`"}, + {"23", "0.015824232641356066`"}, + {"24", "0.012995737039421104`"}, + {"25", "0.010546267736352583`"}, + {"26", "0.008458163034071823`"}, + {"27", "0.006704766620484147`"}, + {"28", "0.005253758301605497`"}, + {"29", "0.004069831637240642`"}, + {"30", "0.003117025433604729`"} + }, + GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[2.0999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + Function[BoxForm`e$, + TableForm[BoxForm`e$]]]], "Output", + CellChangeTimes->{ + 3.9943054493050947`*^9},ExpressionUUID->"cb2d916f-fcb2-4fea-b42a-\ +9a24ac02af1e"] +}, Open ]] }, -WindowSize->{714, 435}, -WindowMargins->{{Automatic, 3}, {3, Automatic}}, +Evaluator->"Local", +WindowSize->{714, 214.5}, +WindowMargins->{{-3, Automatic}, {Automatic, 235.5}}, CellContext->Notebook, -Magnification:>1.4 Inherited, +Magnification:>1. Inherited, FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"8af74bcb-cc50-f64a-8d83-c4bf7188d038" @@ -13734,663 +15917,682 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 330, 7, 51, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], -Cell[909, 31, 208, 4, 58, "Output",ExpressionUUID->"cefb8d4d-51df-472d-bfa3-4e416027e8e1"] +Cell[576, 22, 347, 6, 66, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], +Cell[926, 30, 231, 4, 41, "Output",ExpressionUUID->"a9c3f1b8-21ad-46d7-8747-a30f255a2d74"] }, Open ]], Cell[CellGroupData[{ -Cell[1154, 40, 253, 5, 51, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], -Cell[1410, 47, 208, 4, 58, "Output",ExpressionUUID->"3badf72f-4e89-4633-86c0-962e5c0b9464"] +Cell[1194, 39, 248, 4, 36, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], +Cell[1445, 45, 229, 4, 41, "Output",ExpressionUUID->"418ea9fa-3128-4f3d-ab3b-f8f58290c000"] }, Open ]], Cell[CellGroupData[{ -Cell[1655, 56, 226, 5, 51, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], -Cell[1884, 63, 207, 4, 58, "Output",ExpressionUUID->"c93dbef5-3539-413b-9e5d-85ca4413bd19"] +Cell[1711, 54, 221, 4, 36, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], +Cell[1935, 60, 228, 4, 41, "Output",ExpressionUUID->"aaf6811e-ca74-44ed-96d1-a98911ea031f"] }, Open ]], Cell[CellGroupData[{ -Cell[2128, 72, 180, 4, 51, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], -Cell[2311, 78, 207, 4, 58, "Output",ExpressionUUID->"0b787f43-671d-4d63-a3b7-b65a6c851284"] +Cell[2200, 69, 175, 3, 36, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], +Cell[2378, 74, 228, 4, 41, "Output",ExpressionUUID->"de6340ed-7ba8-4dd6-89be-5df806d755b6"] }, Open ]], Cell[CellGroupData[{ -Cell[2555, 87, 262, 8, 74, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], -Cell[2820, 97, 223, 4, 58, "Output",ExpressionUUID->"91e5c082-a16c-4a6f-875a-763c1a8f6fcf"] +Cell[2643, 83, 257, 7, 54, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], +Cell[2903, 92, 244, 4, 41, "Output",ExpressionUUID->"0b300821-8d85-4ada-a9ed-0add8bf20e0c"] }, Open ]], Cell[CellGroupData[{ -Cell[3080, 106, 136, 3, 51, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], -Cell[3219, 111, 206, 4, 58, "Output",ExpressionUUID->"416f51db-c4e4-44d7-97c2-55e00317353b"] +Cell[3184, 101, 131, 2, 36, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], +Cell[3318, 105, 227, 4, 41, "Output",ExpressionUUID->"11158bba-b9f3-49a7-9e23-5453873ffad5"] }, Open ]], Cell[CellGroupData[{ -Cell[3462, 120, 281, 7, 51, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], -Cell[3746, 129, 221, 4, 58, "Output",ExpressionUUID->"f4000262-78fd-4aed-aace-aa767523bdb7"] +Cell[3582, 114, 276, 6, 36, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], +Cell[3861, 122, 244, 4, 41, "Output",ExpressionUUID->"914ffd0b-4afa-480e-92a2-060c19634cc3"] }, Open ]], Cell[CellGroupData[{ -Cell[4004, 138, 262, 8, 51, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], -Cell[4269, 148, 221, 4, 58, "Output",ExpressionUUID->"0627a552-2c19-4c7c-aac4-8506c565edbf"] +Cell[4142, 131, 257, 7, 36, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], +Cell[4402, 140, 242, 4, 41, "Output",ExpressionUUID->"aadb802a-a258-4dbf-8d9b-4e91ab96271e"] }, Open ]], Cell[CellGroupData[{ -Cell[4527, 157, 229, 5, 51, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], -Cell[4759, 164, 186, 3, 58, "Output",ExpressionUUID->"19fdee38-e0c2-40de-9adb-8d08da64ad29"] +Cell[4681, 149, 224, 4, 36, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], +Cell[4908, 155, 207, 3, 41, "Output",ExpressionUUID->"b50af3b3-3fd5-4017-9e2b-9bcbb66ff899"] }, Open ]], Cell[CellGroupData[{ -Cell[4982, 172, 232, 5, 51, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], -Cell[5217, 179, 184, 3, 58, "Output",ExpressionUUID->"04e2c26b-d153-47a7-9d5f-aeb486d0e35a"] +Cell[5152, 163, 228, 4, 36, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], +Cell[5383, 169, 208, 3, 41, "Output",ExpressionUUID->"97c5a069-b88b-4016-952a-f1409377eb07"] }, Open ]], Cell[CellGroupData[{ -Cell[5438, 187, 133, 3, 51, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], -Cell[5574, 192, 204, 4, 58, "Output",ExpressionUUID->"c769b883-26da-438c-9457-aa221c5f2646"] +Cell[5628, 177, 129, 2, 36, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], +Cell[5760, 181, 228, 4, 41, "Output",ExpressionUUID->"6e1c6893-c4db-4c85-ac51-b54b416d26cc"] }, Open ]], Cell[CellGroupData[{ -Cell[5815, 201, 133, 3, 51, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], -Cell[5951, 206, 204, 4, 58, "Output",ExpressionUUID->"97cb585b-cdbc-4b2f-8a71-60471e14f9bd"] +Cell[6025, 190, 129, 2, 36, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], +Cell[6157, 194, 226, 4, 41, "Output",ExpressionUUID->"84750d61-338a-4b0c-ab7b-441f93b27c1b"] }, Open ]], Cell[CellGroupData[{ -Cell[6192, 215, 561, 20, 140, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], -Cell[6756, 237, 222, 4, 58, "Output",ExpressionUUID->"a7f2f565-2e7b-4737-a95f-55f3d894276f"] +Cell[6420, 203, 557, 19, 100, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], +Cell[6980, 224, 244, 4, 41, "Output",ExpressionUUID->"a8d922b0-089c-4b6b-80c1-afe7556f03ad"] }, Open ]], Cell[CellGroupData[{ -Cell[7015, 246, 561, 20, 140, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], -Cell[7579, 268, 222, 4, 58, "Output",ExpressionUUID->"9311522e-397e-44ac-8335-5c66ce955ab2"] +Cell[7261, 233, 557, 19, 100, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], +Cell[7821, 254, 244, 4, 41, "Output",ExpressionUUID->"4dd79168-f964-4219-91f7-770f9b1d19b7"] }, Open ]], Cell[CellGroupData[{ -Cell[7838, 277, 1592, 51, 539, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], -Cell[9433, 330, 220, 4, 58, "Output",ExpressionUUID->"13cea7af-38df-4bbf-85ca-b2d769a72d33"] +Cell[8102, 263, 1588, 50, 103, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], +Cell[9693, 315, 242, 4, 41, "Output",ExpressionUUID->"5dd64d94-07e8-49e1-ac7f-2fc9a83fb0c8"] }, Open ]], Cell[CellGroupData[{ -Cell[9690, 339, 1426, 47, 503, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], -Cell[11119, 388, 240, 5, 58, "Output",ExpressionUUID->"a778e92f-ed66-4703-a529-f2237125771e"] +Cell[9972, 324, 1422, 46, 73, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], +Cell[11397, 372, 262, 5, 41, "Output",ExpressionUUID->"0e2d1cc9-141f-4580-8e38-0206c396eb15"] }, Open ]], Cell[CellGroupData[{ -Cell[11396, 398, 1335, 45, 503, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], -Cell[12734, 445, 239, 5, 58, "Output",ExpressionUUID->"efc8270f-7449-4419-9037-1fcdbe4eb917"] +Cell[11696, 382, 1422, 46, 73, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], +Cell[13121, 430, 261, 5, 41, "Output",ExpressionUUID->"23f16b4a-1ebf-4790-aab5-e68b5d011e63"] }, Open ]], Cell[CellGroupData[{ -Cell[13010, 455, 1592, 51, 539, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], -Cell[14605, 508, 218, 4, 58, "Output",ExpressionUUID->"49380a83-b0ff-45df-935c-e6d630f6f20d"] +Cell[13419, 440, 1588, 50, 103, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], +Cell[15010, 492, 240, 4, 41, "Output",ExpressionUUID->"9d1507e3-9a5a-4c55-90e0-b4cad6e7a325"] }, Open ]], Cell[CellGroupData[{ -Cell[14860, 517, 135, 3, 51, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], -Cell[14998, 522, 206, 4, 58, "Output",ExpressionUUID->"8d763443-eba5-4611-900f-70ca35bd0041"] +Cell[15287, 501, 131, 2, 36, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], +Cell[15421, 505, 228, 4, 41, "Output",ExpressionUUID->"3962aa32-b982-42b2-a1e2-4a47437b9a6c"] }, Open ]], Cell[CellGroupData[{ -Cell[15241, 531, 137, 3, 51, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], -Cell[15381, 536, 205, 4, 58, "Output",ExpressionUUID->"86c43d62-1536-415a-9036-6c2389016250"] +Cell[15686, 514, 133, 2, 36, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], +Cell[15822, 518, 227, 4, 41, "Output",ExpressionUUID->"1ca0ad91-ab7c-42a3-a38f-d95e948f2bab"] }, Open ]], Cell[CellGroupData[{ -Cell[15623, 545, 138, 3, 51, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], -Cell[15764, 550, 206, 4, 58, "Output",ExpressionUUID->"dcf069ed-6df6-4704-a2d0-9527449b0829"] +Cell[16086, 527, 134, 2, 36, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], +Cell[16223, 531, 228, 4, 41, "Output",ExpressionUUID->"b08eb8c6-ce17-45ff-81f8-1b49a5b2fac9"] }, Open ]], Cell[CellGroupData[{ -Cell[16007, 559, 223, 5, 51, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], -Cell[16233, 566, 221, 5, 58, "Output",ExpressionUUID->"d4ac3a03-80e5-4cfe-803b-f19f46824a72"] +Cell[16488, 540, 219, 4, 36, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], +Cell[16710, 546, 243, 5, 41, "Output",ExpressionUUID->"7fd07960-0146-4cee-a67d-a894a6aca372"] }, Open ]], Cell[CellGroupData[{ -Cell[16491, 576, 138, 3, 51, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], -Cell[16632, 581, 210, 4, 58, "Output",ExpressionUUID->"ecdaa650-fb57-4ff0-b7cc-b0c4b4e2802a"] +Cell[16990, 556, 134, 2, 36, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], +Cell[17127, 560, 231, 4, 41, "Output",ExpressionUUID->"ef1b013f-f2bc-4b16-b403-b7c52526251e"] }, Open ]], Cell[CellGroupData[{ -Cell[16879, 590, 330, 6, 51, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], -Cell[17212, 598, 205, 4, 58, "Output",ExpressionUUID->"cd72463a-b32a-41e7-97c1-f56d3659cfd3"] +Cell[17395, 569, 326, 5, 36, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], +Cell[17724, 576, 227, 4, 41, "Output",ExpressionUUID->"86f7d858-ad3a-45df-b9e1-7ff6b43a4016"] }, Open ]], Cell[CellGroupData[{ -Cell[17454, 607, 301, 6, 51, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], -Cell[17758, 615, 205, 4, 58, "Output",ExpressionUUID->"222b04f1-8df7-4632-b17b-47bbc279986d"] +Cell[17988, 585, 297, 5, 36, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], +Cell[18288, 592, 229, 4, 41, "Output",ExpressionUUID->"4664aa6e-6d2b-4aac-9afb-53575646ca5a"] }, Open ]], Cell[CellGroupData[{ -Cell[18000, 624, 223, 5, 51, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], -Cell[18226, 631, 203, 4, 58, "Output",ExpressionUUID->"2102f16d-7267-4293-ad6f-3f088c3a264e"] +Cell[18554, 601, 219, 4, 36, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], +Cell[18776, 607, 225, 4, 41, "Output",ExpressionUUID->"6974af9c-c4c8-44ad-971f-58711dc7436c"] }, Open ]], Cell[CellGroupData[{ -Cell[18466, 640, 354, 11, 74, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], -Cell[18823, 653, 223, 4, 58, "Output",ExpressionUUID->"df2d83b9-a060-4206-ab25-a58037acf1b8"] +Cell[19038, 616, 350, 10, 54, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], +Cell[19391, 628, 244, 4, 41, "Output",ExpressionUUID->"d23af0f6-d91c-4955-9d41-4a37f07879c2"] }, Open ]], Cell[CellGroupData[{ -Cell[19083, 662, 354, 11, 74, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], -Cell[19440, 675, 238, 5, 58, "Output",ExpressionUUID->"1b093110-5751-44fc-ba53-aba3f26c11e0"] +Cell[19672, 637, 350, 10, 54, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], +Cell[20025, 649, 260, 5, 41, "Output",ExpressionUUID->"dc59361a-84fd-40fc-b44d-08b1ed3eb2f5"] }, Open ]], Cell[CellGroupData[{ -Cell[19715, 685, 998, 27, 445, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], -Cell[20716, 714, 223, 4, 58, "Output",ExpressionUUID->"d085f071-d254-4286-a772-dad709740de2"] +Cell[20322, 659, 994, 26, 55, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], +Cell[21319, 687, 243, 4, 41, "Output",ExpressionUUID->"41373fed-5e41-4f6b-ae93-7913a2b7c0d0"] }, Open ]], Cell[CellGroupData[{ -Cell[20976, 723, 203, 4, 51, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], -Cell[21182, 729, 204, 4, 58, "Output",ExpressionUUID->"33c53625-1457-4253-82dc-3b95b673cfae"] +Cell[21599, 696, 199, 3, 36, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], +Cell[21801, 701, 228, 4, 41, "Output",ExpressionUUID->"c18184c4-6837-4508-b15b-20060ce37e40"] }, Open ]], Cell[CellGroupData[{ -Cell[21423, 738, 303, 6, 51, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], -Cell[21729, 746, 176, 3, 58, "Output",ExpressionUUID->"9cb10a37-891b-4941-8af2-26e0ec9f6861"] +Cell[22066, 710, 299, 5, 36, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], +Cell[22368, 717, 198, 3, 41, "Output",ExpressionUUID->"50aa02c0-2bc9-4e14-9385-abfd7090ce69"] }, Open ]], -Cell[21920, 752, 177, 3, 51, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], +Cell[22581, 723, 173, 2, 36, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], Cell[CellGroupData[{ -Cell[22122, 759, 331, 6, 51, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], -Cell[22456, 767, 184, 3, 58, "Output",ExpressionUUID->"41dff3ec-614d-41ea-a48f-d20d2baebe24"] +Cell[22779, 729, 327, 5, 36, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], +Cell[23109, 736, 206, 3, 41, "Output",ExpressionUUID->"1d4cd1d0-a84b-4c05-a3ca-922e694477b8"] }, Open ]], -Cell[22655, 773, 177, 3, 51, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], +Cell[23330, 742, 173, 2, 36, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], Cell[CellGroupData[{ -Cell[22857, 780, 333, 6, 51, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], -Cell[23193, 788, 183, 3, 58, "Output",ExpressionUUID->"136e1d0d-ba40-448c-9140-5a537b390082"] +Cell[23528, 748, 329, 5, 36, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], +Cell[23860, 755, 207, 3, 41, "Output",ExpressionUUID->"5daa2a72-d1c0-4449-850c-d0be20cdddd7"] }, Open ]], -Cell[23391, 794, 177, 3, 51, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], +Cell[24082, 761, 173, 2, 36, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], Cell[CellGroupData[{ -Cell[23593, 801, 358, 6, 51, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], -Cell[23954, 809, 182, 3, 58, "Output",ExpressionUUID->"8fc2ed65-9e24-4ca8-9554-e820f983c5f2"] +Cell[24280, 767, 354, 5, 36, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], +Cell[24637, 774, 204, 3, 41, "Output",ExpressionUUID->"7054d7f4-1ec8-41a5-a69e-371c1f6bd85e"] }, Open ]], -Cell[24151, 815, 175, 3, 51, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], +Cell[24856, 780, 171, 2, 36, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], Cell[CellGroupData[{ -Cell[24351, 822, 305, 6, 51, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], -Cell[24659, 830, 182, 3, 58, "Output",ExpressionUUID->"aaaec929-970c-4399-9a4d-0b575ae8e327"] +Cell[25052, 786, 301, 5, 36, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], +Cell[25356, 793, 204, 3, 41, "Output",ExpressionUUID->"3521d1ff-8edc-4690-86a3-c5e0673e6b54"] }, Open ]], -Cell[24856, 836, 175, 3, 51, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], +Cell[25575, 799, 171, 2, 36, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], Cell[CellGroupData[{ -Cell[25056, 843, 307, 6, 51, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], -Cell[25366, 851, 184, 3, 58, "Output",ExpressionUUID->"753c6143-afda-49b9-bc6c-4abbdbc97575"] +Cell[25771, 805, 303, 5, 36, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], +Cell[26077, 812, 206, 3, 41, "Output",ExpressionUUID->"ee94e4ee-7df8-469c-9c59-d2315841a1fb"] }, Open ]], -Cell[25565, 857, 177, 3, 51, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], +Cell[26298, 818, 173, 2, 36, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], Cell[CellGroupData[{ -Cell[25767, 864, 311, 6, 51, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], -Cell[26081, 872, 183, 3, 58, "Output",ExpressionUUID->"6182eeb7-e5dd-441a-aff6-eaae01e51da1"] +Cell[26496, 824, 307, 5, 36, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], +Cell[26806, 831, 207, 3, 41, "Output",ExpressionUUID->"26f05900-2b53-47b5-aa91-3ebf40510b6e"] }, Open ]], -Cell[26279, 878, 176, 3, 51, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], +Cell[27028, 837, 172, 2, 36, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], Cell[CellGroupData[{ -Cell[26480, 885, 279, 5, 51, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], -Cell[26762, 892, 182, 3, 58, "Output",ExpressionUUID->"76313be7-6c8a-4386-b96b-883e315a76f4"] +Cell[27225, 843, 275, 4, 36, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], +Cell[27503, 849, 203, 3, 41, "Output",ExpressionUUID->"ed92a624-0a5f-4616-9e18-1ffe4f3adca5"] }, Open ]], -Cell[26959, 898, 179, 3, 51, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], +Cell[27721, 855, 175, 2, 36, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ -Cell[27163, 905, 19813, 486, 5658, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], -Cell[46979, 1393, 221, 4, 58, "Output",ExpressionUUID->"f84055a2-85c9-46b2-9644-09be5dc33714"] +Cell[27921, 861, 19809, 485, 1708, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], +Cell[47733, 1348, 243, 4, 41, "Output",ExpressionUUID->"c10c0b4a-f366-4994-811b-1f4d34d7293c"] }, Open ]], Cell[CellGroupData[{ -Cell[47237, 1402, 19752, 490, 5670, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], -Cell[66992, 1894, 221, 4, 58, "Output",ExpressionUUID->"a2bf0d30-843e-40f2-97e5-9802c78656c9"] +Cell[48013, 1357, 19748, 489, 1720, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], +Cell[67764, 1848, 243, 4, 41, "Output",ExpressionUUID->"01cbbe5d-e095-44fa-af49-cf797ec6e6ad"] }, Open ]], Cell[CellGroupData[{ -Cell[67250, 1903, 19752, 484, 5669, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], -Cell[87005, 2389, 235, 5, 58, "Output",ExpressionUUID->"5f3b556f-3600-4322-b0ba-9de12da40a82"] +Cell[68044, 1857, 19748, 483, 1720, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], +Cell[87795, 2342, 257, 5, 41, "Output",ExpressionUUID->"93ce7f35-c9f5-4049-956a-c80461ced733"] }, Open ]], Cell[CellGroupData[{ -Cell[87277, 2399, 22538, 554, 6496, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], -Cell[109818, 2955, 235, 5, 58, "Output",ExpressionUUID->"d12c66e5-63dc-4cd8-a0ec-e1e8dcc9504c"] +Cell[88089, 2352, 22534, 553, 1885, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], +Cell[110626, 2907, 257, 5, 41, "Output",ExpressionUUID->"47b24e3d-6dc1-48e4-aff6-ba786b9710d4"] }, Open ]], Cell[CellGroupData[{ -Cell[110090, 2965, 22539, 554, 6496, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], -Cell[132632, 3521, 238, 5, 58, "Output",ExpressionUUID->"4b31a03d-cc55-4510-8634-28f5e0e6b271"] +Cell[110920, 2917, 22535, 553, 1885, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], +Cell[133458, 3472, 260, 5, 41, "Output",ExpressionUUID->"5ed6c38c-bbf6-4e96-af7d-23fcacee5811"] }, Open ]], Cell[CellGroupData[{ -Cell[132907, 3531, 25495, 627, 7361, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], -Cell[158405, 4160, 239, 5, 58, "Output",ExpressionUUID->"2b7de1ac-570f-474c-8239-184ad456eee3"] +Cell[133755, 3482, 25491, 626, 2078, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], +Cell[159249, 4110, 261, 5, 109, "Output",ExpressionUUID->"93008f52-64f3-42e8-9f0e-10280f968435"] }, Open ]], Cell[CellGroupData[{ -Cell[158681, 4170, 134, 3, 51, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], -Cell[158818, 4175, 204, 4, 58, "Output",ExpressionUUID->"861321e7-61d3-4dcd-9748-d422ae43ea73"] +Cell[159547, 4120, 130, 2, 109, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], +Cell[159680, 4124, 226, 4, 109, "Output",ExpressionUUID->"0f2609fe-4bdc-4c56-854b-2dcbef16b565"] }, Open ]], Cell[CellGroupData[{ -Cell[159059, 4184, 134, 3, 51, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], -Cell[159196, 4189, 204, 4, 58, "Output",ExpressionUUID->"2a15aa7a-f1ab-4f05-afb7-e841a1dfee2c"] +Cell[159943, 4133, 130, 2, 109, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], +Cell[160076, 4137, 226, 4, 109, "Output",ExpressionUUID->"a58414bb-3dba-4f27-b62c-82620ba92402"] }, Open ]], Cell[CellGroupData[{ -Cell[159437, 4198, 1148, 40, 565, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], -Cell[160588, 4240, 218, 4, 58, "Output",ExpressionUUID->"845a428e-c03b-4545-98f6-89f2b7e4a843"] +Cell[160339, 4146, 1144, 39, 109, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], +Cell[161486, 4187, 240, 4, 109, "Output",ExpressionUUID->"57b6dbf7-161b-4887-8281-bf5a2bdf4ec8"] }, Open ]], Cell[CellGroupData[{ -Cell[160843, 4249, 1045, 36, 562, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], -Cell[161891, 4287, 238, 5, 58, "Output",ExpressionUUID->"d6562593-792b-4263-a237-60596f6ae38d"] +Cell[161763, 4196, 1041, 35, 109, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], +Cell[162807, 4233, 260, 5, 109, "Output",ExpressionUUID->"b717a2e0-a7d6-4863-afc6-3388e25dc21f"] }, Open ]], Cell[CellGroupData[{ -Cell[162166, 4297, 1148, 40, 565, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], -Cell[163317, 4339, 222, 4, 58, "Output",ExpressionUUID->"144edb5a-f746-49cb-98e4-490ce0b3cb9d"] +Cell[163104, 4243, 1144, 39, 109, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], +Cell[164251, 4284, 244, 4, 109, "Output",ExpressionUUID->"d0aceb44-9816-4d26-9eab-385d948295ee"] }, Open ]], Cell[CellGroupData[{ -Cell[163576, 4348, 112, 2, 51, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], -Cell[163691, 4352, 224, 4, 58, "Output",ExpressionUUID->"7e96279f-ad61-45f9-ab85-2045b780b2b1"] +Cell[164532, 4293, 108, 1, 109, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], +Cell[164643, 4296, 246, 4, 109, "Output",ExpressionUUID->"233e2244-6924-4ea1-bce9-0239079c0582"] }, Open ]], Cell[CellGroupData[{ -Cell[163952, 4361, 112, 2, 51, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], -Cell[164067, 4365, 241, 5, 58, "Output",ExpressionUUID->"13439555-e5d0-472e-94fd-d84043b9424a"] +Cell[164926, 4305, 108, 1, 109, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], +Cell[165037, 4308, 263, 5, 109, "Output",ExpressionUUID->"0df26f47-5663-4436-850d-2e6bd852510e"] }, Open ]], Cell[CellGroupData[{ -Cell[164345, 4375, 112, 2, 51, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], -Cell[164460, 4379, 239, 5, 58, "Output",ExpressionUUID->"15b8f6b0-59e6-4533-9b1f-bedba699451d"] +Cell[165337, 4318, 108, 1, 109, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], +Cell[165448, 4321, 261, 5, 109, "Output",ExpressionUUID->"2ae275ab-4cc5-49a2-8d15-fc21988fba6f"] }, Open ]], Cell[CellGroupData[{ -Cell[164736, 4389, 112, 2, 51, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], -Cell[164851, 4393, 219, 4, 58, "Output",ExpressionUUID->"414630e2-bb8a-4fce-a8ee-27e34bd1cd3d"] +Cell[165746, 4331, 108, 1, 109, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], +Cell[165857, 4334, 241, 4, 109, "Output",ExpressionUUID->"84ef62ad-01ba-433c-896e-049d625e8156"] }, Open ]], Cell[CellGroupData[{ -Cell[165107, 4402, 111, 2, 51, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], -Cell[165221, 4406, 221, 4, 58, "Output",ExpressionUUID->"5468dcf4-4ec6-4956-b44c-29ed43e16498"] +Cell[166135, 4343, 107, 1, 109, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], +Cell[166245, 4346, 242, 4, 109, "Output",ExpressionUUID->"78b47fde-fd8c-480c-979d-6cb943dd3d25"] }, Open ]], Cell[CellGroupData[{ -Cell[165479, 4415, 111, 2, 51, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], -Cell[165593, 4419, 222, 4, 58, "Output",ExpressionUUID->"43cccc66-1758-49c8-be68-b568edceaf0b"] +Cell[166524, 4355, 107, 1, 109, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], +Cell[166634, 4358, 244, 4, 109, "Output",ExpressionUUID->"baaeb761-6cdf-480e-8db0-545f37a44961"] }, Open ]], Cell[CellGroupData[{ -Cell[165852, 4428, 501, 17, 166, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], -Cell[166356, 4447, 242, 5, 58, "Output",ExpressionUUID->"cc0d63a3-695d-42d6-a950-87eae12a1fb3"] +Cell[166915, 4367, 497, 16, 109, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], +Cell[167415, 4385, 264, 5, 109, "Output",ExpressionUUID->"199e7606-be7b-4f9b-8ade-39322cd59dda"] }, Open ]], Cell[CellGroupData[{ -Cell[166635, 4457, 501, 17, 166, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], -Cell[167139, 4476, 234, 5, 58, "Output",ExpressionUUID->"e6f10425-a835-4974-aaa0-f6a7d301a46d"] +Cell[167716, 4395, 497, 16, 109, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], +Cell[168216, 4413, 258, 5, 109, "Output",ExpressionUUID->"3088e94f-8b1a-48fb-b2ea-a639d012af5d"] }, Open ]], Cell[CellGroupData[{ -Cell[167410, 4486, 1792, 61, 828, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], -Cell[169205, 4549, 224, 4, 58, "Output",ExpressionUUID->"7b5d8d69-84db-412d-831e-328c6dd8aff2"] +Cell[168511, 4423, 1788, 60, 109, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], +Cell[170302, 4485, 246, 4, 109, "Output",ExpressionUUID->"a49cd8ce-72ab-46a5-8792-f60496de66e9"] }, Open ]], Cell[CellGroupData[{ -Cell[169466, 4558, 1105, 37, 600, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], -Cell[170574, 4597, 239, 5, 58, "Output",ExpressionUUID->"fc4954b3-c1a5-4a1e-8d7b-252f78d8f95e"] +Cell[170585, 4494, 1101, 36, 109, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], +Cell[171689, 4532, 260, 5, 109, "Output",ExpressionUUID->"97a0c29f-c1f2-4153-b818-d404bf43b9be"] }, Open ]], Cell[CellGroupData[{ -Cell[170850, 4607, 1822, 62, 828, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], -Cell[172675, 4671, 221, 4, 58, "Output",ExpressionUUID->"27b4a8ae-8a51-47d2-af27-7d56874c1be1"] +Cell[171986, 4542, 1818, 61, 109, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], +Cell[173807, 4605, 243, 4, 109, "Output",ExpressionUUID->"87281fde-474b-4ead-8e76-c8d2e397a3d0"] }, Open ]], Cell[CellGroupData[{ -Cell[172933, 4680, 1635, 54, 453, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], -Cell[174571, 4736, 223, 4, 58, "Output",ExpressionUUID->"f21d1b72-74d3-4ec6-adae-629db40f0cb1"] +Cell[174087, 4614, 1631, 53, 109, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], +Cell[175721, 4669, 245, 4, 109, "Output",ExpressionUUID->"cdf0c207-a6c0-47be-a64a-125c33141b87"] }, Open ]], Cell[CellGroupData[{ -Cell[174831, 4745, 1635, 54, 453, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], -Cell[176469, 4801, 221, 4, 58, "Output",ExpressionUUID->"02830e76-24eb-46ae-bc83-50241d3c6260"] +Cell[176003, 4678, 1631, 53, 109, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], +Cell[177637, 4733, 245, 4, 109, "Output",ExpressionUUID->"ac0b846b-6ab8-4c70-87ad-c13cd01aa2b2"] }, Open ]], Cell[CellGroupData[{ -Cell[176727, 4810, 233, 5, 51, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], -Cell[176963, 4817, 184, 3, 58, "Output",ExpressionUUID->"7a8afcac-5a7b-41fd-b417-98472b0f0a53"] +Cell[177919, 4742, 229, 4, 109, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], +Cell[178151, 4748, 208, 3, 109, "Output",ExpressionUUID->"baa71dd5-dde2-4a32-9b1d-3fd7afcc31f0"] }, Open ]], -Cell[177162, 4823, 176, 3, 51, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], +Cell[178374, 4754, 172, 2, 109, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], Cell[CellGroupData[{ -Cell[177363, 4830, 232, 5, 51, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], -Cell[177598, 4837, 186, 3, 58, "Output",ExpressionUUID->"dbb7b6a5-26fa-450c-bf3b-b84937e2be2e"] +Cell[178571, 4760, 228, 4, 109, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], +Cell[178802, 4766, 208, 3, 109, "Output",ExpressionUUID->"ac918aa4-95c5-4028-9adf-003e8b09e1f6"] }, Open ]], -Cell[177799, 4843, 177, 3, 51, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], +Cell[179025, 4772, 173, 2, 109, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ -Cell[178001, 4850, 1301, 43, 237, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], -Cell[179305, 4895, 226, 4, 58, "Output",ExpressionUUID->"bad4af36-1f4e-40ba-8366-e40b1978f34c"] +Cell[179223, 4778, 1297, 42, 109, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], +Cell[180523, 4822, 248, 4, 109, "Output",ExpressionUUID->"6d27cfdc-a68d-4c24-98f6-c7bd9542441e"] }, Open ]], Cell[CellGroupData[{ -Cell[179568, 4904, 931, 31, 236, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], -Cell[180502, 4937, 224, 4, 58, "Output",ExpressionUUID->"78fcebbc-de9c-4274-b8e7-debfed9eaadd"] +Cell[180808, 4831, 927, 30, 109, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], +Cell[181738, 4863, 246, 4, 109, "Output",ExpressionUUID->"a96ca2df-39b1-45ba-91ee-7e91d3ca4a40"] }, Open ]], Cell[CellGroupData[{ -Cell[180763, 4946, 907, 30, 236, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], -Cell[181673, 4978, 225, 4, 58, "Output",ExpressionUUID->"ac1d6e70-d0ac-4c8e-9a46-ddb335b81d79"] +Cell[182021, 4872, 903, 29, 109, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], +Cell[182927, 4903, 247, 4, 109, "Output",ExpressionUUID->"779df7f2-13b4-4332-973a-78cbcd61c444"] }, Open ]], Cell[CellGroupData[{ -Cell[181935, 4987, 558, 19, 91, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], -Cell[182496, 5008, 619, 10, 58, "Output",ExpressionUUID->"bc12d600-6f53-4b9a-bc6e-ba60d665de90"] +Cell[183211, 4912, 554, 18, 109, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], +Cell[183768, 4932, 639, 9, 109, "Output",ExpressionUUID->"5932af2f-ab32-49b3-bafb-e98c9357159c"] }, Open ]], Cell[CellGroupData[{ -Cell[183152, 5023, 665, 22, 91, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], -Cell[183820, 5047, 600, 9, 58, "Output",ExpressionUUID->"e82b0cbe-fd45-4152-9d35-25890b55d736"] +Cell[184444, 4946, 661, 21, 109, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], +Cell[185108, 4969, 622, 9, 109, "Output",ExpressionUUID->"76bcdd24-a894-4d91-829b-68951d9f951f"] }, Open ]], Cell[CellGroupData[{ -Cell[184457, 5061, 170, 5, 97, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], -Cell[184630, 5068, 628, 10, 58, "Output",ExpressionUUID->"a702f36a-c9a3-4684-93ef-8dcb7b45e452"] +Cell[185767, 4983, 166, 4, 109, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], +Cell[185936, 4989, 646, 9, 109, "Output",ExpressionUUID->"315049f1-d71e-40c1-93f3-06e39474f156"] }, Open ]], Cell[CellGroupData[{ -Cell[185295, 5083, 236, 6, 96, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], -Cell[185534, 5091, 564, 9, 58, "Output",ExpressionUUID->"8155ab12-df8c-4291-8f77-a45e0b1ec5ba"] +Cell[186619, 5003, 232, 5, 109, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], +Cell[186854, 5010, 584, 8, 109, "Output",ExpressionUUID->"36aa0438-f4c6-4d53-8e04-1246938b6c68"] }, Open ]], Cell[CellGroupData[{ -Cell[186135, 5105, 223, 6, 75, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], -Cell[186361, 5113, 598, 9, 58, "Output",ExpressionUUID->"e5427862-c331-47cd-addf-db8ab630b65d"] +Cell[187475, 5023, 219, 5, 109, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], +Cell[187697, 5030, 620, 9, 109, "Output",ExpressionUUID->"3791c118-d727-4123-8b2c-957b21310982"] }, Open ]], Cell[CellGroupData[{ -Cell[186996, 5127, 181, 5, 75, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], -Cell[187180, 5134, 620, 10, 58, "Output",ExpressionUUID->"2a6c3a58-c72a-414a-bb87-3b9103fd2be9"] +Cell[188354, 5044, 177, 4, 109, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], +Cell[188534, 5050, 637, 9, 109, "Output",ExpressionUUID->"ef43bcb4-2324-4eef-b458-ace27290234a"] }, Open ]], Cell[CellGroupData[{ -Cell[187837, 5149, 6055, 185, 1734, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], -Cell[193895, 5336, 596, 9, 58, "Output",ExpressionUUID->"af603e11-c12e-4051-aa82-8f8128a52f4f"] +Cell[189208, 5064, 6051, 184, 109, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], +Cell[195262, 5250, 618, 9, 109, "Output",ExpressionUUID->"68bf3388-112d-4d3b-92d3-cfb9478d7dbd"] }, Open ]], Cell[CellGroupData[{ -Cell[194528, 5350, 410, 10, 101, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], -Cell[194941, 5362, 619, 10, 86, "Output",ExpressionUUID->"f903f354-cf61-4bbd-8e0c-a5dcfbe758fe"] +Cell[195917, 5264, 406, 9, 109, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], +Cell[196326, 5275, 641, 10, 109, "Output",ExpressionUUID->"5f54b038-6a4f-4540-9fee-7ebd3261bf1c"] }, Open ]], -Cell[195575, 5375, 492, 10, 51, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], +Cell[196982, 5288, 488, 9, 109, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ -Cell[196092, 5389, 558, 19, 91, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], -Cell[196653, 5410, 218, 4, 58, "Output",ExpressionUUID->"c0f79413-9a60-4813-ae4d-1a65481b901f"] +Cell[197495, 5301, 554, 18, 109, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], +Cell[198052, 5321, 240, 4, 109, "Output",ExpressionUUID->"6ea7aff2-86f3-4c41-a668-3f32189780b1"] }, Open ]], Cell[CellGroupData[{ -Cell[196908, 5419, 623, 21, 91, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], -Cell[197534, 5442, 226, 4, 58, "Output",ExpressionUUID->"14f40ac7-4228-402e-b758-ce53a98648c9"] +Cell[198329, 5330, 619, 20, 109, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], +Cell[198951, 5352, 248, 4, 109, "Output",ExpressionUUID->"ae90111f-4099-4915-a56c-ebf2b473bfab"] }, Open ]], Cell[CellGroupData[{ -Cell[197797, 5451, 170, 5, 97, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], -Cell[197970, 5458, 222, 4, 58, "Output",ExpressionUUID->"7e8e51d8-a785-4317-bc6d-1812864e727a"] +Cell[199236, 5361, 166, 4, 109, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], +Cell[199405, 5367, 244, 4, 109, "Output",ExpressionUUID->"0163073a-a842-49c4-b80f-08863832021b"] }, Open ]], Cell[CellGroupData[{ -Cell[198229, 5467, 170, 5, 96, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], -Cell[198402, 5474, 221, 4, 58, "Output",ExpressionUUID->"f88548f5-be3d-4490-9173-b2cb28fd4180"] +Cell[199686, 5376, 166, 4, 109, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], +Cell[199855, 5382, 245, 4, 109, "Output",ExpressionUUID->"02581174-c617-4a6d-b3e8-e081c2ac4d80"] }, Open ]], Cell[CellGroupData[{ -Cell[198660, 5483, 181, 5, 75, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], -Cell[198844, 5490, 222, 4, 58, "Output",ExpressionUUID->"095b4709-7b5a-4b64-b95e-04929a86c206"] +Cell[200137, 5391, 177, 4, 109, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], +Cell[200317, 5397, 244, 4, 109, "Output",ExpressionUUID->"842b8b0c-bca8-4dc5-8abf-18cab76085a6"] }, Open ]], Cell[CellGroupData[{ -Cell[199103, 5499, 181, 5, 75, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], -Cell[199287, 5506, 221, 4, 58, "Output",ExpressionUUID->"8ed04c21-8a50-4275-8835-5af082119b9c"] +Cell[200598, 5406, 177, 4, 109, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], +Cell[200778, 5412, 243, 4, 109, "Output",ExpressionUUID->"14661d5c-de96-46d3-bb82-a80e390faaaf"] }, Open ]], Cell[CellGroupData[{ -Cell[199545, 5515, 6055, 185, 1734, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], -Cell[205603, 5702, 224, 4, 58, "Output",ExpressionUUID->"f1cee2d5-810b-4cae-85ac-11faf205276e"] +Cell[201058, 5421, 6051, 184, 109, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], +Cell[207112, 5607, 246, 4, 109, "Output",ExpressionUUID->"f9c8a2ad-b1a2-439a-8608-a9d7082ebb55"] }, Open ]], Cell[CellGroupData[{ -Cell[205864, 5711, 368, 9, 73, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], -Cell[206235, 5722, 221, 4, 58, "Output",ExpressionUUID->"e2020e28-bc6a-4395-a19e-8ddb536157c9"] +Cell[207395, 5616, 364, 8, 109, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], +Cell[207762, 5626, 245, 4, 109, "Output",ExpressionUUID->"976193fc-e33a-49f2-aca0-9c7b8e4c041e"] }, Open ]], Cell[CellGroupData[{ -Cell[206493, 5731, 6122, 187, 1645, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], -Cell[212618, 5920, 226, 4, 58, "Output",ExpressionUUID->"b1c28c25-b36d-48d3-9552-672d4865961a"] +Cell[208044, 5635, 6118, 186, 431, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], +Cell[214165, 5823, 248, 4, 41, "Output",ExpressionUUID->"60b052fb-e6e7-4bed-8fea-8f0efb7ee776"] }, Open ]], Cell[CellGroupData[{ -Cell[212881, 5929, 368, 9, 73, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], -Cell[213252, 5940, 225, 4, 58, "Output",ExpressionUUID->"4f0fe4a0-99be-42b7-aa0c-b0bd5b43d08d"] +Cell[214450, 5832, 364, 8, 53, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], +Cell[214817, 5842, 247, 4, 41, "Output",ExpressionUUID->"7d78ad97-b87e-4c18-99b3-af297aef72ed"] }, Open ]], Cell[CellGroupData[{ -Cell[213514, 5949, 2663, 88, 786, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], -Cell[216180, 6039, 223, 4, 58, "Output",ExpressionUUID->"704c42d5-744b-4840-a2ae-97d722fd0d03"] +Cell[215101, 5851, 2659, 87, 215, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], +Cell[217763, 5940, 245, 4, 41, "Output",ExpressionUUID->"4e471321-f67f-4d1a-aa9d-a64152a1232f"] }, Open ]], Cell[CellGroupData[{ -Cell[216440, 6048, 2603, 85, 786, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], -Cell[219046, 6135, 222, 4, 58, "Output",ExpressionUUID->"048dcdc4-d992-43e8-982a-0818fae2e502"] +Cell[218045, 5949, 2599, 84, 215, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], +Cell[220647, 6035, 244, 4, 41, "Output",ExpressionUUID->"9d5c6d49-21b2-4a47-a786-52c250de1c37"] }, Open ]], Cell[CellGroupData[{ -Cell[219305, 6144, 3712, 118, 1131, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], -Cell[223020, 6264, 223, 4, 58, "Output",ExpressionUUID->"45362ca2-8505-4c0c-be80-6810f9e2e262"] +Cell[220928, 6044, 3708, 117, 316, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], +Cell[224639, 6163, 247, 4, 41, "Output",ExpressionUUID->"7bbbc7a8-5454-4f41-b316-de737640a32d"] }, Open ]], -Cell[223258, 6271, 164, 4, 51, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], +Cell[224901, 6170, 164, 4, 36, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ -Cell[223447, 6279, 2075, 59, 581, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], -Cell[225525, 6340, 613, 14, 198, "Message",ExpressionUUID->"4f7a78d1-66f0-4b72-ab98-8fb879f3c3fa"], -Cell[226141, 6356, 616, 14, 198, "Message",ExpressionUUID->"284c8af2-e4c3-4e65-aaf3-f027d91c853c"], -Cell[226760, 6372, 620, 14, 109, "Message",ExpressionUUID->"b93f277d-0a8c-47fc-832f-87564d92c77d"], -Cell[227383, 6388, 521, 12, 109, "Message",ExpressionUUID->"5b760d07-5b58-431e-adf7-8d3eab9b5cb8"], -Cell[227907, 6402, 213, 4, 58, "Output",ExpressionUUID->"e19f4ec4-fcd9-417a-986f-aa0ead64d1c1"] +Cell[225090, 6178, 2211, 62, 81, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], +Cell[227304, 6242, 690, 16, 48, "Message",ExpressionUUID->"94ce46d3-7747-4114-aa8f-9d2dafa884c3"], +Cell[227997, 6260, 686, 15, 48, "Message",ExpressionUUID->"1711bffe-f2ca-4800-89c6-218d63d94252"], +Cell[228686, 6277, 685, 15, 48, "Message",ExpressionUUID->"72979c7a-f910-4ce5-b3ba-2e9f252fe8bd"], +Cell[229374, 6294, 546, 13, 32, "Message",ExpressionUUID->"506452ff-bce2-47c7-b621-b1caeff9c89a"], +Cell[229923, 6309, 251, 5, 41, "Output",ExpressionUUID->"42f2f762-5400-4474-8d48-5cdb39fff396"] }, Open ]], Cell[CellGroupData[{ -Cell[228157, 6411, 2077, 59, 581, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], -Cell[230237, 6472, 586, 13, 198, "Message",ExpressionUUID->"274958f5-2a7e-419c-8dc2-a90c7de1639d"], -Cell[230826, 6487, 592, 13, 198, "Message",ExpressionUUID->"6c25b6e2-a3c0-43e6-b374-cf0e48518d2c"], -Cell[231421, 6502, 593, 13, 101, "Message",ExpressionUUID->"1c82783a-5ec4-448a-bc49-ba7244d1dac3"], -Cell[232017, 6517, 492, 11, 38, "Message",ExpressionUUID->"0980108d-7ceb-4527-b99c-f36cfb00c059"], -Cell[232512, 6530, 192, 3, 58, "Output",ExpressionUUID->"7bfe0dc9-265c-4029-af6a-530f137ab01c"] +Cell[230211, 6319, 2213, 62, 81, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], +Cell[232427, 6383, 664, 15, 48, "Message",ExpressionUUID->"ca43fb11-9a3a-4785-8dfd-ee463b4f63da"], +Cell[233094, 6400, 658, 14, 48, "Message",ExpressionUUID->"a181f313-695a-4df9-8119-5c771f085a43"], +Cell[233755, 6416, 656, 14, 48, "Message",ExpressionUUID->"b6d853a7-a843-4279-96fb-c78fef96ec1e"], +Cell[234414, 6432, 519, 12, 32, "Message",ExpressionUUID->"8db2c3dc-8ff0-41e3-9720-78478a996c09"], +Cell[234936, 6446, 218, 4, 41, "Output",ExpressionUUID->"6197b0f4-3522-4014-824d-4586cbf0b9b2"] }, Open ]], Cell[CellGroupData[{ -Cell[232741, 6538, 1961, 53, 117, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], -Cell[234705, 6593, 184, 3, 58, "Output",ExpressionUUID->"d8c49173-7f8d-4c6b-b90e-476e0ec3b8b3"] +Cell[235191, 6455, 2053, 55, 63, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], +Cell[237247, 6512, 20338, 384, 295, "Output",ExpressionUUID->"dbefdd4f-d3e6-4a4e-bdf6-9ff64721b76a"] }, Open ]], Cell[CellGroupData[{ -Cell[234926, 6601, 2094, 60, 629, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], -Cell[237023, 6663, 497, 11, 169, "Message",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], -Cell[237523, 6676, 501, 11, 169, "Message",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], -Cell[238027, 6689, 503, 11, 169, "Message",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], -Cell[238533, 6702, 455, 10, 75, "Message",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], -Cell[238991, 6714, 43631, 762, 322, "Output",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] +Cell[257622, 6901, 2253, 63, 81, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], +Cell[259878, 6966, 534, 12, 48, "Message",ExpressionUUID->"05c77159-1cec-4638-a26a-f412b9558ab1"], +Cell[260415, 6980, 538, 12, 48, "Message",ExpressionUUID->"39f38b09-d678-466f-8e7f-21dc5f357709"], +Cell[260956, 6994, 540, 12, 48, "Message",ExpressionUUID->"974a09a5-0ede-4f68-a911-91779b866969"], +Cell[261499, 7008, 493, 11, 32, "Message",ExpressionUUID->"d1b78930-cb2e-484c-8838-f5800d54fe39"], +Cell[261995, 7021, 22192, 411, 290, "Output",ExpressionUUID->"b5700e65-463d-4184-b632-02eef5c2f578"] }, Open ]], -Cell[282637, 7479, 2454, 69, 616, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], -Cell[285094, 7550, 209, 5, 51, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], Cell[CellGroupData[{ -Cell[285328, 7559, 212, 6, 83, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], -Cell[285543, 7567, 168, 2, 58, "Output",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +Cell[284224, 7437, 2480, 70, 140, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], +Cell[286707, 7509, 9496, 223, 298, "Output",ExpressionUUID->"dbe80307-d139-413f-8bd0-a329974f862b"] }, Open ]], Cell[CellGroupData[{ -Cell[285748, 7574, 1814, 53, 611, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], -Cell[287565, 7629, 505, 11, 169, "Message",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], -Cell[288073, 7642, 509, 11, 169, "Message",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], -Cell[288585, 7655, 508, 11, 169, "Message",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], -Cell[289096, 7668, 455, 10, 75, "Message",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], -Cell[289554, 7680, 22399, 414, 327, "Output",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +Cell[296240, 7737, 232, 5, 36, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], +Cell[296475, 7744, 28552, 543, 290, "Output",ExpressionUUID->"03e962c3-d3fc-4a84-8f4e-9336833fe2ba"] }, Open ]], Cell[CellGroupData[{ -Cell[311990, 8099, 1612, 47, 420, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], -Cell[313605, 8148, 581, 12, 227, "Message",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], -Cell[314189, 8162, 584, 12, 227, "Message",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], -Cell[314776, 8176, 590, 12, 227, "Message",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], -Cell[315369, 8190, 455, 10, 75, "Message",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], -Cell[315827, 8202, 169, 2, 58, "Output",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +Cell[325064, 8292, 237, 7, 61, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], +Cell[325304, 8301, 195, 3, 41, "Output",ExpressionUUID->"9054cd89-dc50-49f0-993d-dc9422f5d880"] }, Open ]], Cell[CellGroupData[{ -Cell[316033, 8209, 2249, 64, 624, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], -Cell[318285, 8275, 557, 12, 198, "Message",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], -Cell[318845, 8289, 560, 12, 198, "Message",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], -Cell[319408, 8303, 560, 12, 109, "Message",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], -Cell[319971, 8317, 455, 10, 75, "Message",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], -Cell[320429, 8329, 169, 2, 58, "Output",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +Cell[325536, 8309, 1863, 54, 81, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], +Cell[327402, 8365, 638, 14, 48, "Message",ExpressionUUID->"15a476b6-7d97-40cc-9d8e-eb1a76ba6e1d"], +Cell[328043, 8381, 639, 14, 48, "Message",ExpressionUUID->"0879fc46-2ca1-403a-a15f-8e47abdff181"], +Cell[328685, 8397, 638, 14, 48, "Message",ExpressionUUID->"11fccafd-de9f-4a6d-9bdf-2982be97b19c"], +Cell[329326, 8413, 495, 11, 32, "Message",ExpressionUUID->"d2203400-09eb-4179-812b-5b657d53c03a"], +Cell[329824, 8426, 21935, 408, 290, "Output",ExpressionUUID->"e2452d43-872b-4f78-bc1e-cb6f2dcd005f"] }, Open ]], Cell[CellGroupData[{ -Cell[320635, 8336, 2221, 64, 624, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], -Cell[322859, 8402, 554, 12, 198, "Message",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], -Cell[323416, 8416, 560, 12, 198, "Message",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], -Cell[323979, 8430, 560, 12, 198, "Message",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], -Cell[324542, 8444, 455, 10, 75, "Message",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], -Cell[325000, 8456, 169, 2, 58, "Output",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +Cell[351796, 8839, 1648, 50, 81, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], +Cell[353447, 8891, 631, 13, 48, "Message",ExpressionUUID->"770d94e8-163f-446f-96a5-099f57dfd936"], +Cell[354081, 8906, 630, 13, 48, "Message",ExpressionUUID->"3fb2aad4-6805-4619-a0ef-b98767528554"], +Cell[354714, 8921, 632, 13, 48, "Message",ExpressionUUID->"41f3930c-3a84-46a3-92be-1ed0d14b9e86"], +Cell[355349, 8936, 493, 11, 32, "Message",ExpressionUUID->"8d206e4f-2031-4269-b619-aba18e542254"], +Cell[355845, 8949, 195, 3, 41, "Output",ExpressionUUID->"497880c6-45ac-4661-991d-7778e7af772f"] }, Open ]], Cell[CellGroupData[{ -Cell[325206, 8463, 2223, 64, 624, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], -Cell[327432, 8529, 555, 12, 198, "Message",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], -Cell[327990, 8543, 558, 12, 198, "Message",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], -Cell[328551, 8557, 560, 12, 198, "Message",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], -Cell[329114, 8571, 453, 10, 75, "Message",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], -Cell[329570, 8583, 167, 2, 58, "Output",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +Cell[356077, 8957, 2272, 64, 81, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], +Cell[358352, 9023, 640, 14, 48, "Message",ExpressionUUID->"90290608-7d0d-497c-ac37-e307377ee07d"], +Cell[358995, 9039, 632, 13, 48, "Message",ExpressionUUID->"23b0b7b0-6d7a-46c4-8854-7fed93829a58"], +Cell[359630, 9054, 633, 13, 48, "Message",ExpressionUUID->"6892eabd-f9f7-446e-a44d-7090c3f3f630"], +Cell[360266, 9069, 495, 11, 32, "Message",ExpressionUUID->"28292a8f-e9d6-4320-84e5-3ce08aeb1068"], +Cell[360764, 9082, 197, 3, 41, "Output",ExpressionUUID->"bfbed49d-3508-4f08-bfd1-79249744a52d"] }, Open ]], Cell[CellGroupData[{ -Cell[329774, 8590, 213, 6, 81, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], -Cell[329990, 8598, 169, 2, 109, "Output",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +Cell[360998, 9090, 2233, 63, 81, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], +Cell[363234, 9155, 634, 14, 48, "Message",ExpressionUUID->"02214fde-2398-40bc-a12d-f94f7555922b"], +Cell[363871, 9171, 629, 13, 48, "Message",ExpressionUUID->"c4661cc8-62bf-449e-b3f9-19b22b6930e7"], +Cell[364503, 9186, 630, 13, 48, "Message",ExpressionUUID->"30821b70-cdae-488e-88be-6f5855a52693"], +Cell[365136, 9201, 492, 11, 32, "Message",ExpressionUUID->"cd37c608-5543-4350-b97f-9f62d26ba16b"], +Cell[365631, 9214, 194, 3, 41, "Output",ExpressionUUID->"4a7f07ae-c5c1-4820-a024-6966449e23ae"] }, Open ]], -Cell[330174, 8603, 247, 5, 51, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ -Cell[330446, 8612, 554, 18, 91, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], -Cell[331003, 8632, 167, 2, 58, "Output",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +Cell[365862, 9222, 2235, 63, 81, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], +Cell[368100, 9287, 636, 14, 48, "Message",ExpressionUUID->"46afd079-f40c-49bb-86f0-74cfb39deea4"], +Cell[368739, 9303, 630, 13, 48, "Message",ExpressionUUID->"a2cfcc34-a374-4edd-9f5a-cbd1e1dface7"], +Cell[369372, 9318, 631, 13, 48, "Message",ExpressionUUID->"f75807e5-1aa2-4e83-8cf8-ae71e03308ed"], +Cell[370006, 9333, 493, 11, 32, "Message",ExpressionUUID->"cde0329a-b44f-419f-a28e-c539ba2d54c6"], +Cell[370502, 9346, 192, 3, 41, "Output",ExpressionUUID->"5a2e82f5-1630-4210-9472-3c8ba15c3298"] }, Open ]], Cell[CellGroupData[{ -Cell[331207, 8639, 166, 4, 97, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], -Cell[331376, 8645, 169, 2, 58, "Output",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +Cell[370731, 9354, 236, 6, 60, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], +Cell[370970, 9362, 194, 3, 41, "Output",ExpressionUUID->"23bf356f-4279-45e6-84a1-bc380d5ba5a5"] }, Open ]], +Cell[371179, 9368, 273, 6, 36, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ -Cell[331582, 8652, 181, 5, 75, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], -Cell[331766, 8659, 173, 3, 58, "Output",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] +Cell[371477, 9378, 558, 19, 66, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], +Cell[372038, 9399, 193, 3, 41, "Output",ExpressionUUID->"c794763c-4a3d-4d9c-add5-ea1f0bf84eba"] }, Open ]], Cell[CellGroupData[{ -Cell[331976, 8667, 6055, 185, 1734, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], -Cell[338034, 8854, 172, 3, 58, "Output",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] +Cell[372268, 9407, 170, 5, 71, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], +Cell[372441, 9414, 197, 3, 41, "Output",ExpressionUUID->"7ff8d51f-16d0-4a41-b48b-9a1ecfb064dd"] }, Open ]], Cell[CellGroupData[{ -Cell[338243, 8862, 368, 9, 73, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], -Cell[338614, 8873, 170, 3, 58, "Output",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] +Cell[372675, 9422, 181, 5, 55, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], +Cell[372859, 9429, 197, 3, 41, "Output",ExpressionUUID->"30a1ebc3-8d0e-4112-bc68-278fd781cdb6"] }, Open ]], Cell[CellGroupData[{ -Cell[338821, 8881, 6122, 187, 1645, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], -Cell[344946, 9070, 175, 3, 58, "Output",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] +Cell[373093, 9437, 6055, 185, 431, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], +Cell[379151, 9624, 197, 3, 41, "Output",ExpressionUUID->"9ab605cd-1c7d-4b8d-8d68-ac254e35ec70"] }, Open ]], Cell[CellGroupData[{ -Cell[345158, 9078, 368, 9, 73, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], -Cell[345529, 9089, 169, 3, 58, "Output",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] +Cell[379385, 9632, 368, 9, 53, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], +Cell[379756, 9643, 192, 3, 41, "Output",ExpressionUUID->"36c1bf7a-e02a-415a-8faa-7fce0f5466ed"] }, Open ]], Cell[CellGroupData[{ -Cell[345735, 9097, 2663, 88, 786, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], -Cell[348401, 9187, 173, 3, 58, "Output",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] +Cell[379985, 9651, 6122, 187, 431, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], +Cell[386110, 9840, 198, 3, 41, "Output",ExpressionUUID->"3977afa4-6540-4c3d-908f-2462ec8765c7"] }, Open ]], Cell[CellGroupData[{ -Cell[348611, 9195, 2603, 85, 786, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], -Cell[351217, 9282, 171, 3, 58, "Output",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] +Cell[386345, 9848, 368, 9, 53, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], +Cell[386716, 9859, 194, 3, 41, "Output",ExpressionUUID->"6e5de464-f8df-4f33-b372-20452ce9ec9e"] }, Open ]], Cell[CellGroupData[{ -Cell[351425, 9290, 3712, 118, 1131, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], -Cell[355140, 9410, 171, 3, 58, "Output",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] +Cell[386947, 9867, 2663, 88, 215, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], +Cell[389613, 9957, 198, 3, 41, "Output",ExpressionUUID->"606d9727-3ff8-4862-a2e2-8deac493254f"] }, Open ]], Cell[CellGroupData[{ -Cell[355348, 9418, 2052, 59, 581, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], -Cell[357403, 9479, 572, 12, 198, "Message",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], -Cell[357978, 9493, 573, 12, 198, "Message",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], -Cell[358554, 9507, 578, 12, 198, "Message",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], -Cell[359135, 9521, 457, 10, 75, "Message",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], -Cell[359595, 9533, 172, 3, 58, "Output",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] +Cell[389848, 9965, 2603, 85, 215, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], +Cell[392454, 10052, 195, 3, 41, "Output",ExpressionUUID->"38666bac-e16e-418a-a7b5-689c67a69eb1"] }, Open ]], Cell[CellGroupData[{ -Cell[359804, 9541, 2054, 59, 581, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], -Cell[361861, 9602, 572, 12, 109, "Message",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], -Cell[362436, 9616, 575, 12, 198, "Message",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], -Cell[363014, 9630, 576, 12, 198, "Message",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], -Cell[363593, 9644, 457, 10, 75, "Message",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], -Cell[364053, 9656, 170, 3, 58, "Output",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] +Cell[392686, 10060, 3712, 118, 316, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], +Cell[396401, 10180, 194, 3, 41, "Output",ExpressionUUID->"af3d2823-5cda-435c-9977-dc64978b07bd"] }, Open ]], Cell[CellGroupData[{ -Cell[364260, 9664, 2030, 55, 412, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], -Cell[366293, 9721, 20377, 384, 329, "Output",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +Cell[396632, 10188, 2211, 62, 81, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], +Cell[398846, 10252, 638, 14, 48, "Message",ExpressionUUID->"9ff2fa95-e0b9-4b3b-a08d-1cb2e18ece27"], +Cell[399487, 10268, 638, 14, 48, "Message",ExpressionUUID->"ec6af7b4-a319-4039-b212-dfdf0bfec96b"], +Cell[400128, 10284, 640, 14, 48, "Message",ExpressionUUID->"2dc18fa4-3312-45a1-8715-a56abc44ab55"], +Cell[400771, 10300, 495, 11, 32, "Message",ExpressionUUID->"e6a6bba1-0d26-4e5d-ad59-41f6e9376ac9"], +Cell[401269, 10313, 194, 3, 41, "Output",ExpressionUUID->"01a82ef4-cadd-43f2-8329-4d7d926eebba"] }, Open ]], Cell[CellGroupData[{ -Cell[386707, 10110, 2118, 60, 629, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], -Cell[388828, 10172, 499, 11, 169, "Message",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], -Cell[389330, 10185, 504, 11, 169, "Message",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], -Cell[389837, 10198, 507, 11, 169, "Message",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], -Cell[390347, 10211, 455, 10, 75, "Message",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], -Cell[390805, 10223, 22381, 415, 328, "Output",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] +Cell[401500, 10321, 2213, 62, 81, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], +Cell[403716, 10385, 638, 14, 48, "Message",ExpressionUUID->"3e95e488-f02b-4239-91fe-fad9bafd871d"], +Cell[404357, 10401, 638, 14, 48, "Message",ExpressionUUID->"0e6e4197-d476-4612-8198-13fe9d3e0a2a"], +Cell[404998, 10417, 640, 14, 48, "Message",ExpressionUUID->"9521597a-e1e4-4ef5-a1a2-9d489b407cda"], +Cell[405641, 10433, 495, 11, 32, "Message",ExpressionUUID->"9cad4bc1-5bfb-4ed7-b048-82d04ca69f6a"], +Cell[406139, 10446, 191, 3, 41, "Output",ExpressionUUID->"1841d4fc-8add-46e9-a910-2611e90d237a"] }, Open ]], -Cell[413201, 10641, 174, 3, 51, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], -Cell[413378, 10646, 209, 5, 109, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], Cell[CellGroupData[{ -Cell[413612, 10655, 1616, 48, 109, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], -Cell[415231, 10705, 594, 12, 109, "Message",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], -Cell[415828, 10719, 594, 12, 109, "Message",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], -Cell[416425, 10733, 598, 12, 227, "Message",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], -Cell[417026, 10747, 457, 10, 75, "Message",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], -Cell[417486, 10759, 171, 3, 58, "Output",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +Cell[406367, 10454, 2053, 55, 63, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], +Cell[408423, 10511, 20226, 380, 290, "Output",ExpressionUUID->"8f0c9168-fa51-4cbe-bee4-131e336dcda0"] }, Open ]], Cell[CellGroupData[{ -Cell[417694, 10767, 2247, 64, 624, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], -Cell[419944, 10833, 572, 12, 198, "Message",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], -Cell[420519, 10847, 573, 12, 198, "Message",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], -Cell[421095, 10861, 578, 12, 109, "Message",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], -Cell[421676, 10875, 455, 10, 109, "Message",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], -Cell[422134, 10887, 172, 3, 58, "Output",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] +Cell[428686, 10896, 2277, 63, 81, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], +Cell[430966, 10961, 529, 12, 48, "Message",ExpressionUUID->"761f7d29-2baf-43d1-9fb2-c0cb9f645c0f"], +Cell[431498, 10975, 533, 12, 48, "Message",ExpressionUUID->"6a47ac4b-972f-46fb-81f4-08fdd1bf3487"], +Cell[432034, 10989, 532, 12, 48, "Message",ExpressionUUID->"aabe556b-3493-4315-8f17-667f3d5e945d"], +Cell[432569, 11003, 493, 11, 32, "Message",ExpressionUUID->"745a3a0a-64c9-456e-848d-25456115f2ea"], +Cell[433065, 11016, 22299, 414, 290, "Output",ExpressionUUID->"fe107dfe-f0da-4ff3-841a-d06a33cd3e2a"] }, Open ]], +Cell[455379, 11433, 200, 4, 36, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], Cell[CellGroupData[{ -Cell[422343, 10895, 2221, 64, 624, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], -Cell[424567, 10961, 570, 12, 198, "Message",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], -Cell[425140, 10975, 573, 12, 198, "Message",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], -Cell[425716, 10989, 578, 12, 198, "Message",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], -Cell[426297, 11003, 455, 10, 75, "Message",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], -Cell[426755, 11015, 172, 3, 58, "Output",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] +Cell[455604, 11441, 232, 5, 36, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], +Cell[455839, 11448, 28661, 546, 290, "Output",ExpressionUUID->"97cbf855-4f25-4b78-aff9-63bb68cc3c59"] }, Open ]], Cell[CellGroupData[{ -Cell[426964, 11023, 2221, 64, 624, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], -Cell[429188, 11089, 572, 12, 198, "Message",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], -Cell[429763, 11103, 575, 12, 198, "Message",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], -Cell[430341, 11117, 578, 12, 198, "Message",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], -Cell[430922, 11131, 455, 10, 75, "Message",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], -Cell[431380, 11143, 173, 3, 58, "Output",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] +Cell[484537, 11999, 1648, 50, 81, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], +Cell[486188, 12051, 639, 14, 48, "Message",ExpressionUUID->"f24d9f30-cf5a-4dbf-8c42-ee141ccffcd0"], +Cell[486830, 12067, 638, 14, 48, "Message",ExpressionUUID->"48109f92-cc44-4ac1-acfc-03d746dbdf62"], +Cell[487471, 12083, 639, 14, 48, "Message",ExpressionUUID->"b890d633-b95a-4d25-a0b8-ccf76740c7a3"], +Cell[488113, 12099, 495, 11, 32, "Message",ExpressionUUID->"2cbfee97-d3c6-410c-842e-9f8f4ed9d53e"], +Cell[488611, 12112, 193, 3, 41, "Output",ExpressionUUID->"910b8531-9bc4-4b10-b199-1b4850788edd"] }, Open ]], Cell[CellGroupData[{ -Cell[431590, 11151, 213, 6, 81, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], -Cell[431806, 11159, 172, 3, 58, "Output",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] +Cell[488841, 12120, 2270, 64, 81, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], +Cell[491114, 12186, 638, 14, 48, "Message",ExpressionUUID->"709d02de-d1db-4aa2-a41a-cb38bf9c9c00"], +Cell[491755, 12202, 638, 14, 48, "Message",ExpressionUUID->"de0b2a35-3673-40ee-9ca7-3f621839f494"], +Cell[492396, 12218, 638, 14, 48, "Message",ExpressionUUID->"acb1f32f-903c-4528-b132-37807986c019"], +Cell[493037, 12234, 495, 11, 32, "Message",ExpressionUUID->"6fc427df-7df8-4136-b6db-630b2a5eaead"], +Cell[493535, 12247, 197, 3, 41, "Output",ExpressionUUID->"c5153da4-6fcf-4590-bcc4-0b8b16f3cb9d"] }, Open ]], -Cell[431993, 11165, 245, 5, 51, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ -Cell[432263, 11174, 558, 19, 91, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], -Cell[432824, 11195, 173, 3, 58, "Output",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] +Cell[493769, 12255, 2233, 63, 81, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], +Cell[496005, 12320, 635, 14, 48, "Message",ExpressionUUID->"95f5b9b3-ed1b-4afc-b16e-64d9362a262b"], +Cell[496643, 12336, 638, 14, 48, "Message",ExpressionUUID->"c7177ced-c875-456d-a71b-8bb58006a319"], +Cell[497284, 12352, 636, 14, 48, "Message",ExpressionUUID->"ef6fd9d1-fd73-4b78-a098-1571353e31db"], +Cell[497923, 12368, 493, 11, 32, "Message",ExpressionUUID->"56fbf79a-d231-4d49-96ce-241037a5a0a9"], +Cell[498419, 12381, 195, 3, 41, "Output",ExpressionUUID->"96f11048-f6f6-457e-b59b-da7bd20dfe96"] }, Open ]], Cell[CellGroupData[{ -Cell[433034, 11203, 170, 5, 97, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], -Cell[433207, 11210, 171, 3, 58, "Output",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] +Cell[498651, 12389, 2233, 63, 81, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], +Cell[500887, 12454, 638, 14, 48, "Message",ExpressionUUID->"0ba06c7d-bf38-4815-8a1a-3b64131811e5"], +Cell[501528, 12470, 640, 14, 48, "Message",ExpressionUUID->"ee748757-a5b6-44d8-a58c-273cce98de75"], +Cell[502171, 12486, 638, 14, 48, "Message",ExpressionUUID->"69b3f7e0-7850-428b-b361-67fc818b44d6"], +Cell[502812, 12502, 497, 11, 32, "Message",ExpressionUUID->"be52947b-2e25-4d91-b363-12acad4b26be"], +Cell[503312, 12515, 194, 3, 41, "Output",ExpressionUUID->"0726ec36-9605-49f3-89d4-0db588bf63ce"] }, Open ]], Cell[CellGroupData[{ -Cell[433415, 11218, 181, 5, 75, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], -Cell[433599, 11225, 173, 3, 58, "Output",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] +Cell[503543, 12523, 236, 6, 60, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], +Cell[503782, 12531, 196, 3, 41, "Output",ExpressionUUID->"fb9bbcfd-9c88-4c0a-8671-6d744dbbdafb"] }, Open ]], +Cell[503993, 12537, 271, 6, 36, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ -Cell[433809, 11233, 6055, 185, 1734, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], -Cell[439867, 11420, 175, 3, 58, "Output",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +Cell[504289, 12547, 558, 19, 66, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], +Cell[504850, 12568, 193, 3, 41, "Output",ExpressionUUID->"b693087c-187e-43ac-9c90-0c501b1381b8"] }, Open ]], Cell[CellGroupData[{ -Cell[440079, 11428, 368, 9, 73, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], -Cell[440450, 11439, 170, 3, 58, "Output",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +Cell[505080, 12576, 170, 5, 71, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], +Cell[505253, 12583, 192, 3, 41, "Output",ExpressionUUID->"0419df66-7ce9-4f7a-9692-5e3a2402cb10"] }, Open ]], Cell[CellGroupData[{ -Cell[440657, 11447, 6122, 187, 1645, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], -Cell[446782, 11636, 175, 3, 58, "Output",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] +Cell[505482, 12591, 181, 5, 55, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], +Cell[505666, 12598, 197, 3, 41, "Output",ExpressionUUID->"7e99c5d2-43e0-4fda-b2e0-c9cc5ec7c100"] }, Open ]], Cell[CellGroupData[{ -Cell[446994, 11644, 368, 9, 73, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], -Cell[447365, 11655, 172, 3, 58, "Output",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +Cell[505900, 12606, 6055, 185, 431, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], +Cell[511958, 12793, 197, 3, 41, "Output",ExpressionUUID->"e44cda3b-ebb3-47d0-98dc-cf14b95f68d5"] }, Open ]], Cell[CellGroupData[{ -Cell[447574, 11663, 2663, 88, 786, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], -Cell[450240, 11753, 173, 3, 58, "Output",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +Cell[512192, 12801, 368, 9, 53, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], +Cell[512563, 12812, 193, 3, 41, "Output",ExpressionUUID->"e52e4338-25e7-4fd5-bbe3-58b6244e6ecc"] }, Open ]], Cell[CellGroupData[{ -Cell[450450, 11761, 2603, 85, 786, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], -Cell[453056, 11848, 171, 3, 58, "Output",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +Cell[512793, 12820, 6122, 187, 431, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], +Cell[518918, 13009, 197, 3, 41, "Output",ExpressionUUID->"9b19bf8c-93af-4b3b-a1d1-64db97138041"] }, Open ]], Cell[CellGroupData[{ -Cell[453264, 11856, 3712, 118, 1131, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], -Cell[456979, 11976, 171, 3, 58, "Output",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +Cell[519152, 13017, 368, 9, 53, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], +Cell[519523, 13028, 194, 3, 41, "Output",ExpressionUUID->"8cd5df85-6e27-438e-a56f-c39c33354cbc"] }, Open ]], Cell[CellGroupData[{ -Cell[457187, 11984, 2052, 59, 581, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], -Cell[459242, 12045, 568, 12, 198, "Message",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], -Cell[459813, 12059, 572, 12, 198, "Message",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], -Cell[460388, 12073, 574, 12, 198, "Message",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], -Cell[460965, 12087, 457, 10, 75, "Message",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], -Cell[461425, 12099, 172, 3, 58, "Output",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +Cell[519754, 13036, 2663, 88, 215, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], +Cell[522420, 13126, 198, 3, 41, "Output",ExpressionUUID->"5cc8a67a-176b-4fdb-b804-dbdc9210a6eb"] }, Open ]], Cell[CellGroupData[{ -Cell[461634, 12107, 2054, 59, 581, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], -Cell[463691, 12168, 568, 12, 198, "Message",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], -Cell[464262, 12182, 572, 12, 198, "Message",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], -Cell[464837, 12196, 574, 12, 109, "Message",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], -Cell[465414, 12210, 457, 10, 75, "Message",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], -Cell[465874, 12222, 171, 3, 58, "Output",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +Cell[522655, 13134, 2603, 85, 215, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], +Cell[525261, 13221, 192, 3, 41, "Output",ExpressionUUID->"869df856-d3b5-4245-93a1-7e767d9f8afd"] }, Open ]], Cell[CellGroupData[{ -Cell[466082, 12230, 2030, 55, 412, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], -Cell[468115, 12287, 19960, 375, 109, "Output",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +Cell[525490, 13229, 3712, 118, 316, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], +Cell[529205, 13349, 194, 3, 41, "Output",ExpressionUUID->"47d7e678-48ce-4faa-bf11-3e80df2ecd6a"] }, Open ]], Cell[CellGroupData[{ -Cell[488112, 12667, 2118, 60, 629, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], -Cell[490233, 12729, 496, 11, 139, "Message",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], -Cell[490732, 12742, 501, 11, 169, "Message",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], -Cell[491236, 12755, 505, 11, 169, "Message",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], -Cell[491744, 12768, 455, 10, 109, "Message",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], -Cell[492202, 12780, 21721, 403, 109, "Output",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +Cell[529436, 13357, 2211, 62, 81, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], +Cell[531650, 13421, 637, 14, 48, "Message",ExpressionUUID->"8280147b-ade3-4ac2-b277-96af2c7534a6"], +Cell[532290, 13437, 637, 14, 48, "Message",ExpressionUUID->"d44d22d1-8e4d-4226-8ce8-e95683feb799"], +Cell[532930, 13453, 638, 14, 48, "Message",ExpressionUUID->"b07372db-4f9d-42a9-9def-d57bd4863207"], +Cell[533571, 13469, 497, 11, 32, "Message",ExpressionUUID->"b9a6f8f7-6295-4173-a3de-a7b814740251"], +Cell[534071, 13482, 196, 3, 41, "Output",ExpressionUUID->"74a4f424-0675-4428-99a3-9c4f05a4b6d5"] }, Open ]], -Cell[513938, 13186, 181, 3, 109, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], -Cell[514122, 13191, 207, 5, 51, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], Cell[CellGroupData[{ -Cell[514354, 13200, 1616, 48, 420, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], -Cell[515973, 13250, 589, 12, 227, "Message",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], -Cell[516565, 13264, 588, 12, 227, "Message",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], -Cell[517156, 13278, 594, 12, 227, "Message",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], -Cell[517753, 13292, 455, 10, 75, "Message",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], -Cell[518211, 13304, 173, 3, 58, "Output",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +Cell[534304, 13490, 2213, 62, 81, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], +Cell[536520, 13554, 637, 14, 48, "Message",ExpressionUUID->"7c37c06a-d0f7-4e33-8119-d3a351625747"], +Cell[537160, 13570, 637, 14, 48, "Message",ExpressionUUID->"7c480407-06fb-411c-9d2e-e6520624cf9d"], +Cell[537800, 13586, 638, 14, 48, "Message",ExpressionUUID->"9c30061d-7cdd-4caa-ae3d-6a8e041fbc5a"], +Cell[538441, 13602, 495, 11, 32, "Message",ExpressionUUID->"d6db5b29-01f6-4eef-a39f-8a9874b9c382"], +Cell[538939, 13615, 196, 3, 41, "Output",ExpressionUUID->"c92efc93-d37c-492e-bb77-2691090ec07d"] }, Open ]], Cell[CellGroupData[{ -Cell[518421, 13312, 2246, 64, 109, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], -Cell[520670, 13378, 566, 12, 198, "Message",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], -Cell[521239, 13392, 570, 12, 198, "Message",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], -Cell[521812, 13406, 574, 12, 198, "Message",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], -Cell[522389, 13420, 456, 10, 109, "Message",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], -Cell[522848, 13432, 171, 3, 109, "Output",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +Cell[539172, 13623, 2053, 55, 63, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], +Cell[541228, 13680, 20434, 386, 296, "Output",ExpressionUUID->"7d244509-5713-41be-98d6-0d47926a0183"] }, Open ]], Cell[CellGroupData[{ -Cell[523056, 13440, 2221, 64, 109, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], -Cell[525280, 13506, 569, 12, 109, "Message",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], -Cell[525852, 13520, 571, 12, 198, "Message",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], -Cell[526426, 13534, 575, 12, 198, "Message",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], -Cell[527004, 13548, 458, 10, 75, "Message",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], -Cell[527465, 13560, 171, 3, 58, "Output",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +Cell[561699, 14071, 2277, 63, 81, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], +Cell[563979, 14136, 533, 12, 48, "Message",ExpressionUUID->"fd224cb4-29cc-4fb9-a8fe-3b95c1880c3b"], +Cell[564515, 14150, 534, 12, 48, "Message",ExpressionUUID->"34847c0a-736f-43bd-8e19-2965267df9f9"], +Cell[565052, 14164, 540, 12, 48, "Message",ExpressionUUID->"de693403-d057-4292-8bad-2f28ba016a4f"], +Cell[565595, 14178, 492, 11, 32, "Message",ExpressionUUID->"df4ffbcf-70c8-4270-aee8-40b5c71f7a03"], +Cell[566090, 14191, 22166, 411, 290, "Output",ExpressionUUID->"d343dee2-1fc9-48be-9787-3b1da4e9ab8c"] }, Open ]], +Cell[588271, 14605, 207, 4, 36, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], Cell[CellGroupData[{ -Cell[527673, 13568, 2223, 64, 624, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], -Cell[529899, 13634, 567, 12, 109, "Message",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], -Cell[530469, 13648, 571, 12, 198, "Message",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], -Cell[531043, 13662, 573, 12, 198, "Message",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], -Cell[531619, 13676, 456, 10, 75, "Message",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], -Cell[532078, 13688, 173, 3, 58, "Output",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +Cell[588503, 14613, 230, 5, 36, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], +Cell[588736, 14620, 28526, 543, 290, "Output",ExpressionUUID->"f6759f5b-4b14-4273-a5dd-694f638391bc"] }, Open ]], Cell[CellGroupData[{ -Cell[532288, 13696, 211, 6, 81, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], -Cell[532502, 13704, 174, 3, 58, "Output",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] +Cell[617299, 15168, 1648, 50, 81, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], +Cell[618950, 15220, 634, 13, 48, "Message",ExpressionUUID->"cecca337-4169-4407-9244-6b628465d4aa"], +Cell[619587, 15235, 641, 14, 48, "Message",ExpressionUUID->"2a2cf432-cc19-43fc-8876-730434d65c9c"], +Cell[620231, 15251, 639, 14, 48, "Message",ExpressionUUID->"cc647c96-bfec-487a-9ec4-557868a99484"], +Cell[620873, 15267, 495, 11, 32, "Message",ExpressionUUID->"8d0c9e98-af80-48de-9532-4eef9afd8a6b"], +Cell[621371, 15280, 197, 3, 41, "Output",ExpressionUUID->"09ec4930-545a-4c16-a3b4-2c70c4380d74"] }, Open ]], -Cell[532691, 13710, 188, 4, 51, "Input",ExpressionUUID->"08768702-f34b-4e10-8a13-30bb622088c4"] +Cell[CellGroupData[{ +Cell[621605, 15288, 2269, 64, 81, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], +Cell[623877, 15354, 635, 14, 48, "Message",ExpressionUUID->"b341d488-d675-44ce-be27-eddf33c7bfb8"], +Cell[624515, 15370, 635, 14, 48, "Message",ExpressionUUID->"645ee13f-59d5-42e6-8456-a11fc7e47dba"], +Cell[625153, 15386, 636, 14, 48, "Message",ExpressionUUID->"d4b2dc06-0e63-40f0-8792-075da5ac8805"], +Cell[625792, 15402, 493, 11, 32, "Message",ExpressionUUID->"dc8212a9-696a-4826-b7ea-2a92ebe98f57"], +Cell[626288, 15415, 194, 3, 41, "Output",ExpressionUUID->"82d4b18d-e288-4564-9f81-a57c0233c0de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[626519, 15423, 2233, 63, 81, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], +Cell[628755, 15488, 637, 14, 48, "Message",ExpressionUUID->"57aa5bd9-dfaa-4ee6-a38a-79e43068f09c"], +Cell[629395, 15504, 639, 14, 48, "Message",ExpressionUUID->"cb8077e4-bf1f-423b-b627-de9d6a89fb47"], +Cell[630037, 15520, 638, 14, 48, "Message",ExpressionUUID->"5d6bfc00-4ac1-40ae-974f-3795f3ccdb0b"], +Cell[630678, 15536, 494, 11, 32, "Message",ExpressionUUID->"f8076ee9-eee5-4701-94ff-dfbd1dbc1367"], +Cell[631175, 15549, 196, 3, 41, "Output",ExpressionUUID->"74805545-902b-429f-aabe-2d570e8a95b2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[631408, 15557, 2235, 63, 81, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], +Cell[633646, 15622, 635, 14, 48, "Message",ExpressionUUID->"86fb9189-fd51-49b9-9806-7ad04a299fd3"], +Cell[634284, 15638, 635, 14, 48, "Message",ExpressionUUID->"787adfd9-60b7-4a69-8ba4-1c3fd12884ac"], +Cell[634922, 15654, 638, 14, 48, "Message",ExpressionUUID->"f3a416f8-bfe9-497b-b77f-b73cef41e31e"], +Cell[635563, 15670, 495, 11, 32, "Message",ExpressionUUID->"60011914-900d-48d7-806c-0283c33c6d4b"], +Cell[636061, 15683, 194, 3, 41, "Output",ExpressionUUID->"51ebf5a0-fc9d-4ece-8973-076a6e14cf42"] +}, Open ]], +Cell[CellGroupData[{ +Cell[636292, 15691, 234, 6, 60, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], +Cell[636529, 15699, 197, 3, 41, "Output",ExpressionUUID->"ef39e33f-88ee-4c88-84a6-8a1c7002fd05"] +}, Open ]], +Cell[636741, 15705, 239, 5, 36, "Input",ExpressionUUID->"08768702-f34b-4e10-8a13-30bb622088c4"], +Cell[CellGroupData[{ +Cell[637005, 15714, 4091, 88, 555, "Input",ExpressionUUID->"759fd286-9dbc-41af-8ea2-f5bca2276459"], +Cell[641099, 15804, 1977, 42, 81, "Output",ExpressionUUID->"346dba6d-3f07-45bc-86a7-1c6c5d3ced38"], +Cell[643079, 15848, 1650, 47, 706, "Output",ExpressionUUID->"cb2d916f-fcb2-4fea-b42a-9a24ac02af1e"] +}, Open ]] } ] *) +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_osc_Qw2.nb b/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_osc_Qw2.nb index bba82ed..cd85cff 100644 --- a/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_osc_Qw2.nb +++ b/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_osc_Qw2.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 580775, 14402] -NotebookOptionsPosition[ 541036, 13772] -NotebookOutlinePosition[ 541447, 13789] -CellTagsIndexPosition[ 541404, 13786] +NotebookDataLength[ 664269, 15972] +NotebookOptionsPosition[ 623666, 15323] +NotebookOutlinePosition[ 624107, 15341] +CellTagsIndexPosition[ 624064, 15338] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -25,15 +25,14 @@ Cell[BoxData[ CellChangeTimes->{ 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, 3.9920650045886707`*^9, {3.993816332414463*^9, 3.993816395113246*^9}, { - 3.99408327105175*^9, - 3.99408327225659*^9}},ExpressionUUID->"f1382c5a-37c0-4755-89be-\ -96905c543547"], + 3.99408327105175*^9, 3.99408327225659*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"f1382c5a-37c0-4755-89be-96905c543547"], Cell[BoxData["1.78`"], "Output", CellChangeTimes->{ - 3.991320420900818*^9, {3.9938163104908867`*^9, 3.993816400323968*^9}}, - CellLabel-> - "Out[407]=",ExpressionUUID->"3a7f5917-ef1b-459b-9a6e-a5fb9a629903"] + 3.991320420900818*^9, {3.9938163104908867`*^9, 3.993816400323968*^9}, + 3.994256186239192*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"0cd7fded-c211-4708-9740-ee7a30ce4b44"] }, Open ]], Cell[CellGroupData[{ @@ -42,14 +41,13 @@ Cell[BoxData[ RowBox[{"A", "=", "240"}]], "Input", CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { 3.993816070416484*^9, 3.9938160711424847`*^9}}, - CellLabel-> - "In[408]:=",ExpressionUUID->"f43660fa-9031-4e07-b66f-b07ee9ac236c"], + CellLabel->"In[2]:=",ExpressionUUID->"f43660fa-9031-4e07-b66f-b07ee9ac236c"], Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.9913196497381973`*^9, {3.993816310783677*^9, 3.9938164003801527`*^9}}, - CellLabel-> - "Out[408]=",ExpressionUUID->"42be1334-300c-4664-8afe-52014a81d464"] + 3.9913196497381973`*^9, {3.993816310783677*^9, 3.9938164003801527`*^9}, + 3.994256186289996*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"8f34b76b-240b-4d2e-8615-9c40cbce516e"] }, Open ]], Cell[CellGroupData[{ @@ -58,14 +56,13 @@ Cell[BoxData[ RowBox[{"A1", "=", "164"}]], "Input", CellChangeTimes->{ 3.991798961431202*^9, {3.993816075114204*^9, 3.993816075786501*^9}}, - CellLabel-> - "In[409]:=",ExpressionUUID->"07321a6a-1c35-41db-a569-1f68ddfb7adb"], + CellLabel->"In[3]:=",ExpressionUUID->"07321a6a-1c35-41db-a569-1f68ddfb7adb"], Cell[BoxData["164"], "Output", CellChangeTimes->{ - 3.9913196497578354`*^9, {3.99381631080079*^9, 3.9938164003966837`*^9}}, - CellLabel-> - "Out[409]=",ExpressionUUID->"34b123b5-c617-4da9-b9f6-81dc21f098b6"] + 3.9913196497578354`*^9, {3.99381631080079*^9, 3.9938164003966837`*^9}, + 3.994256186298595*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"65090611-edfd-4abd-8670-83ab42d05880"] }, Open ]], Cell[CellGroupData[{ @@ -73,14 +70,13 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, - CellLabel-> - "In[410]:=",ExpressionUUID->"9b12ab22-c117-4c08-ade7-57e3cf871e80"], + CellLabel->"In[4]:=",ExpressionUUID->"9b12ab22-c117-4c08-ade7-57e3cf871e80"], Cell[BoxData["0.55`"], "Output", CellChangeTimes->{ - 3.991319649777508*^9, {3.9938163108190804`*^9, 3.99381640041328*^9}}, - CellLabel-> - "Out[410]=",ExpressionUUID->"f1c0aa9c-af28-4554-8796-7a53df7cafb8"] + 3.991319649777508*^9, {3.9938163108190804`*^9, 3.99381640041328*^9}, + 3.994256186306945*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"b4e2dbb7-3bd9-4925-8ac6-103adf531207"] }, Open ]], Cell[CellGroupData[{ @@ -92,28 +88,26 @@ Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", - CellLabel-> - "In[411]:=",ExpressionUUID->"1ff90b57-0300-49e1-9e16-5b64a157724e"], + CellLabel->"In[5]:=",ExpressionUUID->"1ff90b57-0300-49e1-9e16-5b64a157724e"], Cell[BoxData["0.5445000000000001`"], "Output", CellChangeTimes->{ - 3.9913196497965145`*^9, {3.99381631083608*^9, 3.9938164004361677`*^9}}, - CellLabel-> - "Out[411]=",ExpressionUUID->"3445c148-08fb-4cf0-9ef0-b2c45a0077e5"] + 3.9913196497965145`*^9, {3.99381631083608*^9, 3.9938164004361677`*^9}, + 3.994256186315695*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"dc5f6820-66ef-45fa-a7b7-465b69feaf9b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", - CellLabel-> - "In[412]:=",ExpressionUUID->"8ac2d873-0ea2-404c-b6ec-81a1bef4490d"], + CellLabel->"In[6]:=",ExpressionUUID->"8ac2d873-0ea2-404c-b6ec-81a1bef4490d"], Cell[BoxData["0.17`"], "Output", CellChangeTimes->{ - 3.9913196498144608`*^9, {3.99381631085299*^9, 3.99381640045368*^9}}, - CellLabel-> - "Out[412]=",ExpressionUUID->"68226aed-e691-4807-aef9-eb4320ac12dd"] + 3.9913196498144608`*^9, {3.99381631085299*^9, 3.99381640045368*^9}, + 3.994256186324252*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"c13bcc95-fef7-4ab0-8860-ea68dde79a44"] }, Open ]], Cell[CellGroupData[{ @@ -124,14 +118,13 @@ Cell[BoxData[ SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}]}]], "Input", CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, - CellLabel-> - "In[413]:=",ExpressionUUID->"1a90f392-f48f-41b3-8019-dcce6409c2da"], + CellLabel->"In[7]:=",ExpressionUUID->"1a90f392-f48f-41b3-8019-dcce6409c2da"], Cell[BoxData["6.349496262766175`"], "Output", CellChangeTimes->{ - 3.9913196498225155`*^9, {3.993816310870123*^9, 3.993816400471637*^9}}, - CellLabel-> - "Out[413]=",ExpressionUUID->"04300081-d8c3-4e54-9c65-9635e2fff4c4"] + 3.9913196498225155`*^9, {3.993816310870123*^9, 3.993816400471637*^9}, + 3.994256186332964*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"74b66046-e3e7-4d7c-a9b2-d0d53f13b94b"] }, Open ]], Cell[CellGroupData[{ @@ -143,14 +136,13 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", - CellLabel-> - "In[414]:=",ExpressionUUID->"5beb184a-e2b6-4f9c-81b6-cce0f71f14ab"], + CellLabel->"In[8]:=",ExpressionUUID->"5beb184a-e2b6-4f9c-81b6-cce0f71f14ab"], Cell[BoxData["4.913555357735675`"], "Output", CellChangeTimes->{ - 3.9913196498425236`*^9, {3.993816310887587*^9, 3.993816400489262*^9}}, - CellLabel-> - "Out[414]=",ExpressionUUID->"62c11568-7a79-4363-935f-3299a00ee443"] + 3.9913196498425236`*^9, {3.993816310887587*^9, 3.993816400489262*^9}, + 3.9942561863416452`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"3597cb14-348b-4af0-9688-dd99546f7dc9"] }, Open ]], Cell[CellGroupData[{ @@ -159,13 +151,12 @@ Cell[BoxData[ RowBox[{"b1", "=", "0.96357"}]], "Input", CellChangeTimes->{ 3.991799283179735*^9, {3.993816155315236*^9, 3.99381616557413*^9}}, - CellLabel-> - "In[415]:=",ExpressionUUID->"63865c01-79b3-48ad-a714-fda334053253"], + CellLabel->"In[9]:=",ExpressionUUID->"63865c01-79b3-48ad-a714-fda334053253"], Cell[BoxData["0.96357`"], "Output", - CellChangeTimes->{{3.9938163109056883`*^9, 3.993816400504654*^9}}, - CellLabel-> - "Out[415]=",ExpressionUUID->"63407a06-422c-423e-9fe2-b2ca3822f35e"] + CellChangeTimes->{{3.9938163109056883`*^9, 3.993816400504654*^9}, + 3.994256186350328*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"cbbfd284-0a6f-4068-a923-df461206a19a"] }, Open ]], Cell[CellGroupData[{ @@ -174,41 +165,38 @@ Cell[BoxData[ RowBox[{"b2", "=", "0.39003"}]], "Input", CellChangeTimes->{ 3.991799280663351*^9, {3.993816167313641*^9, 3.9938161733246517`*^9}}, - CellLabel-> - "In[416]:=",ExpressionUUID->"014751fc-4a6d-4089-9eb1-c54a4d1e523b"], + CellLabel->"In[10]:=",ExpressionUUID->"014751fc-4a6d-4089-9eb1-c54a4d1e523b"], Cell[BoxData["0.39003`"], "Output", - CellChangeTimes->{{3.993816310923224*^9, 3.993816400519388*^9}}, - CellLabel-> - "Out[416]=",ExpressionUUID->"343025f1-e4d4-4001-a648-c181c6df0d84"] + CellChangeTimes->{{3.993816310923224*^9, 3.993816400519388*^9}, + 3.9942561863589373`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"2f652bf2-a443-472c-9549-c4073ab305f0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", - CellLabel-> - "In[417]:=",ExpressionUUID->"e89e116c-1fde-46ea-8703-084a13839210"], + CellLabel->"In[11]:=",ExpressionUUID->"e89e116c-1fde-46ea-8703-084a13839210"], Cell[BoxData["0"], "Output", CellChangeTimes->{ - 3.9913196498927155`*^9, {3.993816310942574*^9, 3.993816400534342*^9}}, - CellLabel-> - "Out[417]=",ExpressionUUID->"79542a49-f7c6-4d73-8532-e9fff7302790"] + 3.9913196498927155`*^9, {3.993816310942574*^9, 3.993816400534342*^9}, + 3.994256186395796*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"ac9c84bd-9bd1-4793-8c7f-5944a13229e1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", - CellLabel-> - "In[418]:=",ExpressionUUID->"eacd8d62-ec50-4abb-ab80-1b1869859db1"], + CellLabel->"In[12]:=",ExpressionUUID->"eacd8d62-ec50-4abb-ab80-1b1869859db1"], Cell[BoxData["0"], "Output", CellChangeTimes->{ - 3.9913196498996067`*^9, {3.993816310960237*^9, 3.993816400549685*^9}}, - CellLabel-> - "Out[418]=",ExpressionUUID->"d641c1e4-6924-452e-b6e4-25bb3dd85ee2"] + 3.9913196498996067`*^9, {3.993816310960237*^9, 3.993816400549685*^9}, + 3.994256186420239*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"9e863412-df39-4d1e-9f10-2550e1047782"] }, Open ]], Cell[CellGroupData[{ @@ -232,14 +220,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[419]:=",ExpressionUUID->"331c171b-4a6c-4cd7-99e3-97bf56659c80"], + CellLabel->"In[13]:=",ExpressionUUID->"331c171b-4a6c-4cd7-99e3-97bf56659c80"], Cell[BoxData["2.4652625900301657`"], "Output", CellChangeTimes->{ - 3.9913197863028755`*^9, {3.993816310977528*^9, 3.993816400564805*^9}}, - CellLabel-> - "Out[419]=",ExpressionUUID->"1aecefd9-5ea7-4755-b02b-a97b62e4c59b"] + 3.9913197863028755`*^9, {3.993816310977528*^9, 3.993816400564805*^9}, + 3.994256186427309*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"89d6a504-be3f-41e0-b538-7b965b5bec23"] }, Open ]], Cell[CellGroupData[{ @@ -263,14 +250,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[420]:=",ExpressionUUID->"20e80858-fe88-4b15-9d44-8618d5793d8e"], + CellLabel->"In[14]:=",ExpressionUUID->"20e80858-fe88-4b15-9d44-8618d5793d8e"], Cell[BoxData["1.4266899039519758`"], "Output", CellChangeTimes->{ - 3.9913197864610195`*^9, {3.993816310993836*^9, 3.993816400579666*^9}}, - CellLabel-> - "Out[420]=",ExpressionUUID->"466a9b12-a6a1-450d-b367-0dee80b69719"] + 3.9913197864610195`*^9, {3.993816310993836*^9, 3.993816400579666*^9}, + 3.9942561864343*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"b9de896f-77aa-4807-b307-070f51819875"] }, Open ]], Cell[CellGroupData[{ @@ -325,14 +311,13 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[421]:=",ExpressionUUID->"5ac84d36-8f0a-4dd6-9e16-23f8a409a053"], + CellLabel->"In[15]:=",ExpressionUUID->"5ac84d36-8f0a-4dd6-9e16-23f8a409a053"], Cell[BoxData["0.3750149455401738`"], "Output", CellChangeTimes->{ - 3.991319786533783*^9, {3.993816311010377*^9, 3.993816400594367*^9}}, - CellLabel-> - "Out[421]=",ExpressionUUID->"c8a391d8-072d-47e9-9f5d-d93bea02532d"] + 3.991319786533783*^9, {3.993816311010377*^9, 3.993816400594367*^9}, + 3.9942561864413223`*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"30dac578-d0f0-4cd7-8fae-c75685b05d30"] }, Open ]], Cell[CellGroupData[{ @@ -383,24 +368,39 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[422]:=",ExpressionUUID->"5bd40196-ee21-4cd9-8320-21acc069c5ed"], + CellLabel->"In[16]:=",ExpressionUUID->"5bd40196-ee21-4cd9-8320-21acc069c5ed"], Cell[BoxData[ RowBox[{"-", "0.07977775132414705`"}]], "Output", CellChangeTimes->{ - 3.991319786540777*^9, {3.993816311027995*^9, 3.9938164006102667`*^9}}, - CellLabel-> - "Out[422]=",ExpressionUUID->"b5b2b412-9726-4305-bc33-b095b2c94bdb"] + 3.991319786540777*^9, {3.993816311027995*^9, 3.9938164006102667`*^9}, + 3.9942561864483957`*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"71fa5bf0-64f1-4959-8a20-163b72703c3f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c21", "=", - FractionBox[ - RowBox[{ - RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ RowBox[{"R01", "*", RowBox[{"(", RowBox[{"1", "-", @@ -410,45 +410,30 @@ Cell[BoxData[ RowBox[{"b1", "*", SqrtBox[ FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", - RowBox[{"(", - RowBox[{"1", "-", - SuperscriptBox["w1", "2"]}], ")"}]}], - RowBox[{ - RowBox[{"R01", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b1", "*", "b1"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b1", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w2", "2"]}], "+", - RowBox[{"R02", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b2", "*", "b2"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b2", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w1", "2"]}], "+", - RowBox[{"d", "*", - SuperscriptBox["w2", "2"], "*", - SuperscriptBox["w1", "2"]}]}]]}]], "Input", - CellLabel-> - "In[423]:=",ExpressionUUID->"d0c04429-994b-4a44-a4d0-f037102550ca"], + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"d0c04429-994b-4a44-a4d0-f037102550ca"], Cell[BoxData[ RowBox[{"-", "0.6284430544064189`"}]], "Output", CellChangeTimes->{ - 3.9913197865777817`*^9, {3.993816311033072*^9, 3.993816400624234*^9}}, - CellLabel-> - "Out[423]=",ExpressionUUID->"ae8f5e46-175c-4bec-ab32-79ae6a0cab8d"] + 3.9913197865777817`*^9, {3.993816311033072*^9, 3.993816400624234*^9}, + 3.994256186455634*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"fad066c4-0054-49de-900a-ec2c1e509b03"] }, Open ]], Cell[CellGroupData[{ @@ -503,56 +488,52 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[424]:=",ExpressionUUID->"1f9601f2-6a88-4806-ad41-f0df46d4ed91"], + CellLabel->"In[18]:=",ExpressionUUID->"1f9601f2-6a88-4806-ad41-f0df46d4ed91"], Cell[BoxData["0.7294972450656219`"], "Output", CellChangeTimes->{ - 3.9913197866129*^9, {3.993816311062511*^9, 3.993816400639195*^9}}, - CellLabel-> - "Out[424]=",ExpressionUUID->"0f1293a9-d7f7-431c-b82b-59346602f5c9"] + 3.9913197866129*^9, {3.993816311062511*^9, 3.993816400639195*^9}, + 3.994256186462202*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"f6a0b099-de79-484c-8697-c0f2b84da41a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", - CellLabel-> - "In[425]:=",ExpressionUUID->"347423ea-8341-41b7-b902-01dd41265ee1"], + CellLabel->"In[19]:=",ExpressionUUID->"347423ea-8341-41b7-b902-01dd41265ee1"], Cell[BoxData["300"], "Output", CellChangeTimes->{ - 3.991319786620775*^9, {3.9938163110790157`*^9, 3.993816400654043*^9}}, - CellLabel-> - "Out[425]=",ExpressionUUID->"37853dcd-403b-4325-9352-2c97870a9304"] + 3.991319786620775*^9, {3.9938163110790157`*^9, 3.993816400654043*^9}, + 3.9942561864684353`*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"cc77099a-3ecb-4a09-97fa-cc31689fd255"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fin", "=", "0.09"}]], "Input", - CellLabel-> - "In[426]:=",ExpressionUUID->"7907d38c-bf49-4699-9062-8fff129bef18"], + CellLabel->"In[20]:=",ExpressionUUID->"7907d38c-bf49-4699-9062-8fff129bef18"], Cell[BoxData["0.09`"], "Output", CellChangeTimes->{ - 3.991319786657793*^9, {3.99381631109599*^9, 3.993816400670066*^9}}, - CellLabel-> - "Out[426]=",ExpressionUUID->"28f21e11-6eb2-443c-862f-591adf26406e"] + 3.991319786657793*^9, {3.99381631109599*^9, 3.993816400670066*^9}, + 3.9942561864747763`*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"b924923d-1fc4-434b-95d7-939ea13f81af"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffin", "=", "0.42"}]], "Input", - CellLabel-> - "In[427]:=",ExpressionUUID->"b8ef7471-58ac-46a8-9b9a-1943c1a290e3"], + CellLabel->"In[21]:=",ExpressionUUID->"b8ef7471-58ac-46a8-9b9a-1943c1a290e3"], Cell[BoxData["0.42`"], "Output", CellChangeTimes->{ - 3.9913197866657925`*^9, {3.99381631111339*^9, 3.99381640068589*^9}}, - CellLabel-> - "Out[427]=",ExpressionUUID->"8c6fbb31-49b6-418c-9d22-c173416bec65"] + 3.9913197866657925`*^9, {3.99381631111339*^9, 3.99381640068589*^9}, + 3.994256186481316*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"403c0bac-5dd9-4994-a2ff-153a57f61d53"] }, Open ]], Cell[CellGroupData[{ @@ -561,29 +542,27 @@ Cell[BoxData[ RowBox[{"fex", "=", RowBox[{"-", "2.59"}]}]], "Input", CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, - CellLabel-> - "In[428]:=",ExpressionUUID->"0189886d-6631-4e30-b784-8afd8e7f95c9"], + CellLabel->"In[22]:=",ExpressionUUID->"0189886d-6631-4e30-b784-8afd8e7f95c9"], Cell[BoxData[ RowBox[{"-", "2.59`"}]], "Output", CellChangeTimes->{ - 3.9913197866996*^9, {3.993816311129064*^9, 3.993816400702038*^9}}, - CellLabel-> - "Out[428]=",ExpressionUUID->"81e68d03-8007-4e14-b4a0-ba61aa59cd0a"] + 3.9913197866996*^9, {3.993816311129064*^9, 3.993816400702038*^9}, + 3.994256186487754*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"74d861fc-555b-4853-a2fe-9890edb63f46"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffex", "=", "0.54"}]], "Input", - CellLabel-> - "In[429]:=",ExpressionUUID->"02568996-b75a-4e5f-8b69-2407169c6916"], + CellLabel->"In[23]:=",ExpressionUUID->"02568996-b75a-4e5f-8b69-2407169c6916"], Cell[BoxData["0.54`"], "Output", CellChangeTimes->{ - 3.9913197867406044`*^9, {3.993816311145554*^9, 3.9938164007190237`*^9}}, - CellLabel-> - "Out[429]=",ExpressionUUID->"febd74e2-815d-4f0c-8b41-dba7ab888d65"] + 3.9913197867406044`*^9, {3.993816311145554*^9, 3.9938164007190237`*^9}, + 3.9942561864939203`*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"4046a361-d706-4fc3-b30a-3a4714c4216a"] }, Open ]], Cell[CellGroupData[{ @@ -593,14 +572,13 @@ Cell[BoxData[ CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { 3.9938161841110783`*^9, 3.9938161842569923`*^9}}, - CellLabel-> - "In[430]:=",ExpressionUUID->"e1a912a8-73c3-4c3b-b088-497714fdd235"], + CellLabel->"In[24]:=",ExpressionUUID->"e1a912a8-73c3-4c3b-b088-497714fdd235"], Cell[BoxData["66"], "Output", CellChangeTimes->{ - 3.9913197867861958`*^9, {3.993816311161642*^9, 3.993816400736003*^9}}, - CellLabel-> - "Out[430]=",ExpressionUUID->"a2e7fe52-436a-44a5-8b97-ff42839731ef"] + 3.9913197867861958`*^9, {3.993816311161642*^9, 3.993816400736003*^9}, + 3.99425618649981*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"fd1df032-876a-4568-b611-37c4851305fb"] }, Open ]], Cell[CellGroupData[{ @@ -610,14 +588,13 @@ Cell[BoxData[ RowBox[{"94", "-", "Z1"}]}]], "Input", CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, 3.9916443064841423`*^9, {3.9938161866045017`*^9, 3.99381618669993*^9}}, - CellLabel-> - "In[431]:=",ExpressionUUID->"06e4989c-d2f4-4d93-b747-84fd32eaa822"], + CellLabel->"In[25]:=",ExpressionUUID->"06e4989c-d2f4-4d93-b747-84fd32eaa822"], Cell[BoxData["28"], "Output", CellChangeTimes->{ - 3.9913197867928696`*^9, {3.993816311177599*^9, 3.993816400757028*^9}}, - CellLabel-> - "Out[431]=",ExpressionUUID->"a10f3051-0aef-40b6-9855-1c98c87e2fc7"] + 3.9913197867928696`*^9, {3.993816311177599*^9, 3.993816400757028*^9}, + 3.994256186505921*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"e2ea8d2a-f5a0-47f3-a4a6-40d5143ca2a6"] }, Open ]], Cell[CellGroupData[{ @@ -626,14 +603,13 @@ Cell[BoxData[ RowBox[{"A2", "=", RowBox[{"A", "-", "A1"}]}]], "Input", CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, - CellLabel-> - "In[432]:=",ExpressionUUID->"fc47679b-f40f-41ae-8998-6343e1434760"], + CellLabel->"In[26]:=",ExpressionUUID->"fc47679b-f40f-41ae-8998-6343e1434760"], Cell[BoxData["76"], "Output", CellChangeTimes->{ - 3.991319786827894*^9, {3.993816311193193*^9, 3.993816400775269*^9}}, - CellLabel-> - "Out[432]=",ExpressionUUID->"260dbb5a-ce2d-4326-bf75-ee93f8ebb4ec"] + 3.991319786827894*^9, {3.993816311193193*^9, 3.993816400775269*^9}, + 3.994256186511951*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"22433433-c1b5-466e-8017-5a76eea4dab2"] }, Open ]], Cell[CellGroupData[{ @@ -648,14 +624,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[433]:=",ExpressionUUID->"d6cd350e-bfcf-47a5-9d81-f0a69ccfe139"], + CellLabel->"In[27]:=",ExpressionUUID->"d6cd350e-bfcf-47a5-9d81-f0a69ccfe139"], Cell[BoxData["0.11156611039794609`"], "Output", CellChangeTimes->{ - 3.9913197868648605`*^9, {3.993816311209059*^9, 3.993816400793248*^9}}, - CellLabel-> - "Out[433]=",ExpressionUUID->"8755b8d7-e014-4fda-b865-e36850b8017a"] + 3.9913197868648605`*^9, {3.993816311209059*^9, 3.993816400793248*^9}, + 3.994256186518195*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"4d4ee853-a860-41d5-b3dd-36222578b213"] }, Open ]], Cell[CellGroupData[{ @@ -670,15 +645,14 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[434]:=",ExpressionUUID->"d0a6fae9-9e4e-458b-a7df-835a54518cdd"], + CellLabel->"In[28]:=",ExpressionUUID->"d0a6fae9-9e4e-458b-a7df-835a54518cdd"], Cell[BoxData[ RowBox[{"-", "2.562272143774069`"}]], "Output", CellChangeTimes->{ - 3.9913197868718567`*^9, {3.993816311224965*^9, 3.993816400810424*^9}}, - CellLabel-> - "Out[434]=",ExpressionUUID->"4008e5a3-03dd-40fe-b2b5-d74941ebe7c4"] + 3.9913197868718567`*^9, {3.993816311224965*^9, 3.993816400810424*^9}, + 3.9942561865248947`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"21766de1-38aa-47cd-a635-d79239146b00"] }, Open ]], Cell[CellGroupData[{ @@ -709,14 +683,13 @@ Cell[BoxData[ CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, - CellLabel-> - "In[435]:=",ExpressionUUID->"036f30de-54e0-4522-af85-5e43b3f4c659"], + CellLabel->"In[29]:=",ExpressionUUID->"036f30de-54e0-4522-af85-5e43b3f4c659"], Cell[BoxData["17.58253870834664`"], "Output", CellChangeTimes->{ - 3.9913197869068584`*^9, {3.993816311240906*^9, 3.9938164008326178`*^9}}, - CellLabel-> - "Out[435]=",ExpressionUUID->"b15cc941-9c19-4e1c-a99e-692553c53aca"] + 3.9913197869068584`*^9, {3.993816311240906*^9, 3.9938164008326178`*^9}, + 3.994256186531291*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"b5537590-0550-4a35-b149-c591e79f0cd5"] }, Open ]], Cell[CellGroupData[{ @@ -724,14 +697,13 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, - CellLabel-> - "In[436]:=",ExpressionUUID->"81d99f00-b761-475d-949e-530db7207fe0"], + CellLabel->"In[30]:=",ExpressionUUID->"81d99f00-b761-475d-949e-530db7207fe0"], Cell[BoxData["300"], "Output", CellChangeTimes->{ - 3.991319786940857*^9, {3.993816311257287*^9, 3.993816400852189*^9}}, - CellLabel-> - "Out[436]=",ExpressionUUID->"37dbbba4-7857-4375-b02b-20caebe5d9ca"] + 3.991319786940857*^9, {3.993816311257287*^9, 3.993816400852189*^9}, + 3.9942561865363503`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"24763fb9-c067-4abf-b9c8-4ef5d5eaacdd"] }, Open ]], Cell[CellGroupData[{ @@ -741,19 +713,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, 3.993816201054872*^9}, - CellLabel-> - "In[437]:=",ExpressionUUID->"fb7c1a44-ae36-4c9d-a48d-2ac384a8901e"], + CellLabel->"In[31]:=",ExpressionUUID->"fb7c1a44-ae36-4c9d-a48d-2ac384a8901e"], Cell[BoxData["2"], "Output", - CellChangeTimes->{{3.99381631127295*^9, 3.993816400871359*^9}}, - CellLabel-> - "Out[437]=",ExpressionUUID->"8a567713-327f-4f89-b5cf-f5d22a3499cf"] + CellChangeTimes->{{3.99381631127295*^9, 3.993816400871359*^9}, + 3.9942561865423307`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"c06cf6ad-c277-4548-afa2-0a48da6fa19c"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, - CellLabel-> - "In[438]:=",ExpressionUUID->"91d58ee7-5627-4dff-9509-e3354c6058c5"], + CellLabel->"In[32]:=",ExpressionUUID->"91d58ee7-5627-4dff-9509-e3354c6058c5"], Cell[CellGroupData[{ @@ -762,19 +732,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { 3.993816204826747*^9, 3.993816206119349*^9}}, - CellLabel-> - "In[439]:=",ExpressionUUID->"298ada5c-a5a3-4fa0-9c4a-9120a3296baf"], + CellLabel->"In[33]:=",ExpressionUUID->"298ada5c-a5a3-4fa0-9c4a-9120a3296baf"], Cell[BoxData["0.805`"], "Output", - CellChangeTimes->{{3.9938163113036537`*^9, 3.993816400895072*^9}}, - CellLabel-> - "Out[439]=",ExpressionUUID->"fa0cff63-7921-4bb3-a225-32b0b174f881"] + CellChangeTimes->{{3.9938163113036537`*^9, 3.993816400895072*^9}, + 3.994256186551162*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"76ca4d1b-1b9a-4d33-88d7-985d6d8bdaf0"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, - CellLabel-> - "In[440]:=",ExpressionUUID->"1a29ed12-c2bf-4b4b-8b51-986c65959945"], + CellLabel->"In[34]:=",ExpressionUUID->"1a29ed12-c2bf-4b4b-8b51-986c65959945"], Cell[CellGroupData[{ @@ -783,19 +751,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { 3.993816211321389*^9, 3.9938162195378838`*^9}}, - CellLabel-> - "In[441]:=",ExpressionUUID->"38aae145-970c-486e-bbe4-4b07e8b87af2"], + CellLabel->"In[35]:=",ExpressionUUID->"38aae145-970c-486e-bbe4-4b07e8b87af2"], Cell[BoxData["2.65`"], "Output", - CellChangeTimes->{{3.9938163113365593`*^9, 3.993816400917997*^9}}, - CellLabel-> - "Out[441]=",ExpressionUUID->"2ecd15b6-11d0-4524-a566-c587c8abaf14"] + CellChangeTimes->{{3.9938163113365593`*^9, 3.993816400917997*^9}, + 3.994256186560831*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"44f815b3-6a68-4ea3-9477-475cc7706222"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, - CellLabel-> - "In[442]:=",ExpressionUUID->"004d7445-3245-4bc6-b2f6-52011777f892"], + CellLabel->"In[36]:=",ExpressionUUID->"004d7445-3245-4bc6-b2f6-52011777f892"], Cell[CellGroupData[{ @@ -804,19 +770,17 @@ Cell[BoxData[ CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, 3.991799359954439*^9, {3.9938162225291348`*^9, 3.993816223644052*^9}}, - CellLabel-> - "In[443]:=",ExpressionUUID->"799e6cea-589e-41f8-a046-d24e1709f554"], + CellLabel->"In[37]:=",ExpressionUUID->"799e6cea-589e-41f8-a046-d24e1709f554"], Cell[BoxData["1.175`"], "Output", - CellChangeTimes->{{3.993816311366596*^9, 3.993816400940548*^9}}, - CellLabel-> - "Out[443]=",ExpressionUUID->"6a161d46-ce7a-4444-801b-381103ea3853"] + CellChangeTimes->{{3.993816311366596*^9, 3.993816400940548*^9}, + 3.994256186570016*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"56e2075e-5581-4e2b-9155-611a119e01ec"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, - CellLabel-> - "In[444]:=",ExpressionUUID->"09190fa6-0581-4215-98d6-37e55b97a639"], + CellLabel->"In[38]:=",ExpressionUUID->"09190fa6-0581-4215-98d6-37e55b97a639"], Cell[CellGroupData[{ @@ -825,19 +789,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, 3.991718016467348*^9, 3.991799361414671*^9, {3.9938162281192904`*^9, 3.993816230831416*^9}}, - CellLabel-> - "In[445]:=",ExpressionUUID->"b5b42979-d0c4-4670-bedd-343f93950d65"], + CellLabel->"In[39]:=",ExpressionUUID->"b5b42979-d0c4-4670-bedd-343f93950d65"], Cell[BoxData["0.795`"], "Output", - CellChangeTimes->{{3.993816311396524*^9, 3.993816400963438*^9}}, - CellLabel-> - "Out[445]=",ExpressionUUID->"4edf62f5-ee7c-43bb-97d7-a709d70f8cc4"] + CellChangeTimes->{{3.993816311396524*^9, 3.993816400963438*^9}, + 3.994256186578871*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"d9af999f-d5c5-4dad-892c-cb3db1e2c019"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, - CellLabel-> - "In[446]:=",ExpressionUUID->"192276d5-e993-4478-82ea-71c65a24df99"], + CellLabel->"In[40]:=",ExpressionUUID->"192276d5-e993-4478-82ea-71c65a24df99"], Cell[CellGroupData[{ @@ -846,19 +808,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993816234625985*^9, 3.993816236062304*^9}}, - CellLabel-> - "In[447]:=",ExpressionUUID->"ced81e69-1d9a-4863-8d3b-18880c4947fe"], + CellLabel->"In[41]:=",ExpressionUUID->"ced81e69-1d9a-4863-8d3b-18880c4947fe"], Cell[BoxData["0.595`"], "Output", - CellChangeTimes->{{3.993816311427802*^9, 3.9938164009852858`*^9}}, - CellLabel-> - "Out[447]=",ExpressionUUID->"c38e1d6f-f1c4-476f-a387-45b4f3dcbc71"] + CellChangeTimes->{{3.993816311427802*^9, 3.9938164009852858`*^9}, + 3.9942561865882387`*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"c5de455d-4641-45b3-9e02-b49c85618197"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, - CellLabel-> - "In[448]:=",ExpressionUUID->"6671fa3c-c438-4774-9a97-7904a087d195"], + CellLabel->"In[42]:=",ExpressionUUID->"6671fa3c-c438-4774-9a97-7904a087d195"], Cell[CellGroupData[{ @@ -867,19 +827,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.993816238161579*^9, 3.9938162401131277`*^9}}, - CellLabel-> - "In[449]:=",ExpressionUUID->"759fa7d9-cbc8-4e43-8720-a995984cede8"], + CellLabel->"In[43]:=",ExpressionUUID->"759fa7d9-cbc8-4e43-8720-a995984cede8"], Cell[BoxData["1.47`"], "Output", - CellChangeTimes->{{3.993816311458173*^9, 3.9938164010070257`*^9}}, - CellLabel-> - "Out[449]=",ExpressionUUID->"0345f281-faba-4c6c-b204-16d7de695e04"] + CellChangeTimes->{{3.993816311458173*^9, 3.9938164010070257`*^9}, + 3.9942561865970707`*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"0ef871a0-8f96-4c7b-b6a1-84627d2287f0"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, - CellLabel-> - "In[450]:=",ExpressionUUID->"cd965388-1682-4cbb-8568-b66f38f454a9"], + CellLabel->"In[44]:=",ExpressionUUID->"cd965388-1682-4cbb-8568-b66f38f454a9"], Cell[CellGroupData[{ @@ -887,19 +845,17 @@ Cell[BoxData[ RowBox[{"nn2", "=", "0.655"}]], "Input", CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, 3.9917993660901737`*^9, {3.993816241842022*^9, 3.993816245056822*^9}}, - CellLabel-> - "In[451]:=",ExpressionUUID->"ecb40850-44b8-4062-80be-f46a3f26b2ed"], + CellLabel->"In[45]:=",ExpressionUUID->"ecb40850-44b8-4062-80be-f46a3f26b2ed"], Cell[BoxData["0.655`"], "Output", - CellChangeTimes->{{3.993816311488914*^9, 3.993816401028906*^9}}, - CellLabel-> - "Out[451]=",ExpressionUUID->"eafb8add-43d3-4445-92d0-900b2812085d"] + CellChangeTimes->{{3.993816311488914*^9, 3.993816401028906*^9}, + 3.994256186605996*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"a5754be4-b764-43bc-924d-beaa1753e829"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, - CellLabel-> - "In[452]:=",ExpressionUUID->"c6d528a6-5533-43b6-98c8-00177c44108d"], + CellLabel->"In[46]:=",ExpressionUUID->"c6d528a6-5533-43b6-98c8-00177c44108d"], Cell[CellGroupData[{ @@ -1388,14 +1344,13 @@ uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== "], - CellLabel-> - "In[453]:=",ExpressionUUID->"426c63e8-fb89-45d6-a957-f95dbbd825bb"], + CellLabel->"In[47]:=",ExpressionUUID->"426c63e8-fb89-45d6-a957-f95dbbd825bb"], Cell[BoxData["0.10932371372103143`"], "Output", CellChangeTimes->{ - 3.991319787430073*^9, {3.993816311598846*^9, 3.993816401077582*^9}}, - CellLabel-> - "Out[453]=",ExpressionUUID->"f10e9fc6-b75a-411c-95d2-028b25433a73"] + 3.991319787430073*^9, {3.993816311598846*^9, 3.993816401077582*^9}, + 3.994256186677753*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"5b3f0877-ada8-479e-acd9-a4709a7ff3c0"] }, Open ]], Cell[CellGroupData[{ @@ -1889,14 +1844,13 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[454]:=",ExpressionUUID->"6f685327-4b81-4284-afb6-c3aefad198c3"], + CellLabel->"In[48]:=",ExpressionUUID->"6f685327-4b81-4284-afb6-c3aefad198c3"], Cell[BoxData["9.790243175904545`"], "Output", CellChangeTimes->{ - 3.991319787574972*^9, {3.9938163116474113`*^9, 3.993816401110285*^9}}, - CellLabel-> - "Out[454]=",ExpressionUUID->"6c936857-18a5-4fef-8750-8859a97c900d"] + 3.991319787574972*^9, {3.9938163116474113`*^9, 3.993816401110285*^9}, + 3.994256186711413*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"6bb97ef1-6f25-4a41-a596-4bd2ff82745e"] }, Open ]], Cell[CellGroupData[{ @@ -2384,15 +2338,14 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[455]:=",ExpressionUUID->"9177db48-266c-4fc3-a0db-b6c96de6811a"], + CellLabel->"In[49]:=",ExpressionUUID->"9177db48-266c-4fc3-a0db-b6c96de6811a"], Cell[BoxData[ RowBox[{"-", "16.70631937398676`"}]], "Output", CellChangeTimes->{ - 3.991319787641424*^9, {3.993816311688833*^9, 3.99381640114319*^9}}, - CellLabel-> - "Out[455]=",ExpressionUUID->"0ea4e416-9636-41c1-892b-81301846ec64"] + 3.991319787641424*^9, {3.993816311688833*^9, 3.99381640114319*^9}, + 3.994256186743216*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"28b4440e-d8b3-4505-a164-fb784eebc646"] }, Open ]], Cell[CellGroupData[{ @@ -3109,15 +3062,14 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[456]:=",ExpressionUUID->"c14b449c-48ab-4a66-bdd8-265f7b768fed"], + CellLabel->"In[50]:=",ExpressionUUID->"c14b449c-48ab-4a66-bdd8-265f7b768fed"], Cell[BoxData[ RowBox[{"-", "21.21244105904564`"}]], "Output", CellChangeTimes->{ - 3.991319787711939*^9, {3.99381631175032*^9, 3.993816401178795*^9}}, - CellLabel-> - "Out[456]=",ExpressionUUID->"247ac764-03dd-4049-a1ff-8e30e1754ac9"] + 3.991319787711939*^9, {3.99381631175032*^9, 3.993816401178795*^9}, + 3.994256186782198*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"c2bcb891-0108-4890-9035-6782217c51ab"] }, Open ]], Cell[CellGroupData[{ @@ -3675,15 +3627,14 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[457]:=",ExpressionUUID->"fd220b96-f4ca-4cca-8867-0e38a96ffb73"], + CellLabel->"In[51]:=",ExpressionUUID->"fd220b96-f4ca-4cca-8867-0e38a96ffb73"], Cell[BoxData[ RowBox[{"-", "64.11746269097033`"}]], "Output", CellChangeTimes->{ - 3.9913197877723045`*^9, {3.993816311810264*^9, 3.993816401216831*^9}}, - CellLabel-> - "Out[457]=",ExpressionUUID->"9e6e9ee8-3a02-48ee-a3d0-db08b7ee9152"] + 3.9913197877723045`*^9, {3.993816311810264*^9, 3.993816401216831*^9}, + 3.99425618682027*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"b560e955-c34d-4e00-a669-6555fb9b0398"] }, Open ]], Cell[CellGroupData[{ @@ -4314,43 +4265,40 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[458]:=",ExpressionUUID->"71dc8cd9-29d3-4396-b5e2-6d0f0fb2d5fc"], + CellLabel->"In[52]:=",ExpressionUUID->"71dc8cd9-29d3-4396-b5e2-6d0f0fb2d5fc"], Cell[BoxData[ RowBox[{"-", "162.12919789671096`"}]], "Output", CellChangeTimes->{ - 3.991319787833355*^9, {3.993816311880077*^9, 3.9938164012606087`*^9}}, - CellLabel-> - "Out[458]=",ExpressionUUID->"beb982c8-9336-4aa7-9494-0511374f6c60"] + 3.991319787833355*^9, {3.993816311880077*^9, 3.9938164012606087`*^9}, + 3.994256186862598*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"39a7ad2b-446d-4ea5-b581-d62759adf5c8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U21", "=", "0"}]], "Input", - CellLabel-> - "In[459]:=",ExpressionUUID->"5d61a410-d91d-4e00-a79d-12258b09b734"], + CellLabel->"In[53]:=",ExpressionUUID->"5d61a410-d91d-4e00-a79d-12258b09b734"], Cell[BoxData["0"], "Output", CellChangeTimes->{ - 3.9913204210013676`*^9, {3.993816311896537*^9, 3.993816401279429*^9}}, - CellLabel-> - "Out[459]=",ExpressionUUID->"1f46af81-5932-455b-902e-951378d8299a"] + 3.9913204210013676`*^9, {3.993816311896537*^9, 3.993816401279429*^9}, + 3.994256186872888*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"c538697a-3f96-46b9-8b2b-55ceba89d7d2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U22", "=", "0"}]], "Input", - CellLabel-> - "In[460]:=",ExpressionUUID->"793ccd2e-d893-43bd-9c87-b89229ad7703"], + CellLabel->"In[54]:=",ExpressionUUID->"793ccd2e-d893-43bd-9c87-b89229ad7703"], Cell[BoxData["0"], "Output", CellChangeTimes->{ - 3.9913204210355663`*^9, {3.993816311909266*^9, 3.993816401294653*^9}}, - CellLabel-> - "Out[460]=",ExpressionUUID->"feb40caf-580b-4b9a-80c5-6d47ca03d1b6"] + 3.9913204210355663`*^9, {3.993816311909266*^9, 3.993816401294653*^9}, + 3.99425618688022*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"6b3194b8-9119-4afa-a165-5c465ef5c67c"] }, Open ]], Cell[CellGroupData[{ @@ -4394,14 +4342,13 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[461]:=",ExpressionUUID->"56cec5e8-2e02-42fb-8e98-3dcf1ded3a17"], + CellLabel->"In[55]:=",ExpressionUUID->"56cec5e8-2e02-42fb-8e98-3dcf1ded3a17"], Cell[BoxData["137.278680377525`"], "Output", CellChangeTimes->{ - 3.991320421068556*^9, {3.993816311921467*^9, 3.993816401310416*^9}}, - CellLabel-> - "Out[461]=",ExpressionUUID->"2f96b3a1-0af1-4dfe-b823-77856a7698de"] + 3.991320421068556*^9, {3.993816311921467*^9, 3.993816401310416*^9}, + 3.994256186888071*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"9f6872be-a51d-4478-a7d9-6af047c775a2"] }, Open ]], Cell[CellGroupData[{ @@ -4441,15 +4388,14 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[462]:=",ExpressionUUID->"fcc4ca19-d3b8-4e35-b05a-314fefd293af"], + CellLabel->"In[56]:=",ExpressionUUID->"fcc4ca19-d3b8-4e35-b05a-314fefd293af"], Cell[BoxData[ RowBox[{"-", "124.2735331996648`"}]], "Output", CellChangeTimes->{ - 3.991320421098543*^9, {3.9938163119334393`*^9, 3.993816401325693*^9}}, - CellLabel-> - "Out[462]=",ExpressionUUID->"5aadace0-fd8b-45b9-9817-ec800340e9b9"] + 3.991320421098543*^9, {3.9938163119334393`*^9, 3.993816401325693*^9}, + 3.994256186894457*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"c27cf509-4f04-439d-a2b3-e168d7baa955"] }, Open ]], Cell[CellGroupData[{ @@ -4493,94 +4439,87 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[463]:=",ExpressionUUID->"cb00b729-9872-4b38-b588-3abe4d931ec8"], + CellLabel->"In[57]:=",ExpressionUUID->"cb00b729-9872-4b38-b588-3abe4d931ec8"], Cell[BoxData["136.79424869488386`"], "Output", CellChangeTimes->{ - 3.9913204211275444`*^9, {3.993816311945665*^9, 3.993816401340849*^9}}, - CellLabel-> - "Out[463]=",ExpressionUUID->"1735fa03-19d9-46fa-9a0f-02134819655b"] + 3.9913204211275444`*^9, {3.993816311945665*^9, 3.993816401340849*^9}, + 3.9942561869030457`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"19e9a307-ec35-4309-9c12-51ab1d8fd8ca"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c11"], "Input", - CellLabel-> - "In[464]:=",ExpressionUUID->"77af222e-239b-4e06-a300-3cd6890b0f45"], + CellLabel->"In[58]:=",ExpressionUUID->"77af222e-239b-4e06-a300-3cd6890b0f45"], Cell[BoxData["0.3750149455401738`"], "Output", CellChangeTimes->{ - 3.9913204211385536`*^9, {3.9938163119574957`*^9, 3.993816401363001*^9}}, - CellLabel-> - "Out[464]=",ExpressionUUID->"b69dfc84-60dd-443c-9cc4-8b905a1e0b23"] + 3.9913204211385536`*^9, {3.9938163119574957`*^9, 3.993816401363001*^9}, + 3.9942561869105177`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"b4c9c591-75b3-4163-9f30-c091736ab8c9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c12"], "Input", - CellLabel-> - "In[465]:=",ExpressionUUID->"bd805f25-b985-4cc0-96ca-d35749e7f5bb"], + CellLabel->"In[59]:=",ExpressionUUID->"bd805f25-b985-4cc0-96ca-d35749e7f5bb"], Cell[BoxData[ RowBox[{"-", "0.07977775132414705`"}]], "Output", CellChangeTimes->{ - 3.9913204211683464`*^9, {3.9938163119693823`*^9, 3.99381640137784*^9}}, - CellLabel-> - "Out[465]=",ExpressionUUID->"5ea635f7-b3f1-4751-bde1-21dedb82a76b"] + 3.9913204211683464`*^9, {3.9938163119693823`*^9, 3.99381640137784*^9}, + 3.994256186916957*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"71fcf2a6-6fe4-41c3-a289-d735f2d8c80c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c21"], "Input", - CellLabel-> - "In[466]:=",ExpressionUUID->"be4e622c-9bb7-4110-a469-a61d282192c3"], + CellLabel->"In[60]:=",ExpressionUUID->"be4e622c-9bb7-4110-a469-a61d282192c3"], Cell[BoxData[ RowBox[{"-", "0.6284430544064189`"}]], "Output", CellChangeTimes->{ - 3.991320421199068*^9, {3.9938163119814787`*^9, 3.993816401392654*^9}}, - CellLabel-> - "Out[466]=",ExpressionUUID->"70e543e8-3510-4219-82bc-9f7099a88b6b"] + 3.991320421199068*^9, {3.9938163119814787`*^9, 3.993816401392654*^9}, + 3.994256186923079*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"cc653070-017a-4492-95c9-e19a0f915937"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c22"], "Input", - CellLabel-> - "In[467]:=",ExpressionUUID->"fba58724-aae6-4177-8f5d-352d9088fe66"], + CellLabel->"In[61]:=",ExpressionUUID->"fba58724-aae6-4177-8f5d-352d9088fe66"], Cell[BoxData["0.7294972450656219`"], "Output", CellChangeTimes->{ - 3.991320421228037*^9, {3.993816311994028*^9, 3.99381640140742*^9}}, - CellLabel-> - "Out[467]=",ExpressionUUID->"9cb081e3-1c16-4828-9ec1-b84b1faad2c0"] + 3.991320421228037*^9, {3.993816311994028*^9, 3.99381640140742*^9}, + 3.9942561869292307`*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"76c5cbc7-f654-47bb-b7ad-68f913340f34"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w1"], "Input", - CellLabel-> - "In[468]:=",ExpressionUUID->"be25ab07-b327-4400-93a2-96e5c6b3ccff"], + CellLabel->"In[62]:=",ExpressionUUID->"be25ab07-b327-4400-93a2-96e5c6b3ccff"], Cell[BoxData["2.4652625900301657`"], "Output", CellChangeTimes->{ - 3.9913204212585373`*^9, {3.993816312006279*^9, 3.99381640142347*^9}}, - CellLabel-> - "Out[468]=",ExpressionUUID->"94eaa887-c3a7-4bf0-b3d9-2b1dbc19b63e"] + 3.9913204212585373`*^9, {3.993816312006279*^9, 3.99381640142347*^9}, + 3.9942561869353848`*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"1b4b5753-8066-4464-9127-f60ad64d2584"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w2"], "Input", - CellLabel-> - "In[469]:=",ExpressionUUID->"0a948ed0-8af1-49b9-aa61-48aab6f17baf"], + CellLabel->"In[63]:=",ExpressionUUID->"0a948ed0-8af1-49b9-aa61-48aab6f17baf"], Cell[BoxData["1.4266899039519758`"], "Output", CellChangeTimes->{ - 3.9913204212884274`*^9, {3.993816312018448*^9, 3.993816401439527*^9}}, - CellLabel-> - "Out[469]=",ExpressionUUID->"ddec6491-f389-4cd0-94d5-37daf9bd99a2"] + 3.9913204212884274`*^9, {3.993816312018448*^9, 3.993816401439527*^9}, + 3.994256186941462*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"3620900b-0409-4c44-9dd4-aaa8174785ef"] }, Open ]], Cell[CellGroupData[{ @@ -4601,15 +4540,14 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", - CellLabel-> - "In[470]:=",ExpressionUUID->"775d3f9f-6bfb-47fa-86fe-930eb61f9408"], + CellLabel->"In[64]:=",ExpressionUUID->"775d3f9f-6bfb-47fa-86fe-930eb61f9408"], Cell[BoxData[ RowBox[{"-", "36.59398535367672`"}]], "Output", CellChangeTimes->{ - 3.9913204213185234`*^9, {3.9938163120312033`*^9, 3.9938164014556637`*^9}}, - CellLabel-> - "Out[470]=",ExpressionUUID->"3128cdab-ddb9-4e92-b3c7-1bd17df91fd2"] + 3.9913204213185234`*^9, {3.9938163120312033`*^9, 3.9938164014556637`*^9}, + 3.994256186947959*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"80ff955f-77a5-4405-98a9-4a60a4e731dc"] }, Open ]], Cell[CellGroupData[{ @@ -4630,15 +4568,14 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", - CellLabel-> - "In[471]:=",ExpressionUUID->"7f8a5858-9014-486a-bcb3-74b8f2d71e17"], + CellLabel->"In[65]:=",ExpressionUUID->"7f8a5858-9014-486a-bcb3-74b8f2d71e17"], Cell[BoxData[ RowBox[{"-", "6.706084141019179`"}]], "Output", CellChangeTimes->{ - 3.991320421349531*^9, {3.99381631203615*^9, 3.99381640147013*^9}}, - CellLabel-> - "Out[471]=",ExpressionUUID->"dc739dac-f20f-41b8-98e0-8784389e180a"] + 3.991320421349531*^9, {3.99381631203615*^9, 3.99381640147013*^9}, + 3.9942561869543333`*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"b807bd8c-217c-4178-8d86-69d3b29fc931"] }, Open ]], Cell[CellGroupData[{ @@ -4703,14 +4640,13 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[472]:=",ExpressionUUID->"e07f6b2f-3131-4527-a18d-26e3f7bd7ec3"], + CellLabel->"In[66]:=",ExpressionUUID->"e07f6b2f-3131-4527-a18d-26e3f7bd7ec3"], Cell[BoxData["100.68469502384829`"], "Output", CellChangeTimes->{ - 3.9913204213784294`*^9, {3.9938163120484467`*^9, 3.993816401484993*^9}}, - CellLabel-> - "Out[472]=",ExpressionUUID->"2df9cc3c-76e3-4ad6-878f-e5f50f4183b8"] + 3.9913204213784294`*^9, {3.9938163120484467`*^9, 3.993816401484993*^9}, + 3.994256186961152*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"50e7f044-4113-4a73-8970-21bc95fda901"] }, Open ]], Cell[CellGroupData[{ @@ -4751,15 +4687,14 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[473]:=",ExpressionUUID->"06dd3ca2-9fda-4a46-bad5-5159bc6ff19c"], + CellLabel->"In[67]:=",ExpressionUUID->"06dd3ca2-9fda-4a46-bad5-5159bc6ff19c"], Cell[BoxData[ RowBox[{"-", "124.2735331996648`"}]], "Output", CellChangeTimes->{ - 3.9913204213904285`*^9, {3.99381631206076*^9, 3.9938164015001698`*^9}}, - CellLabel-> - "Out[473]=",ExpressionUUID->"4929fdb6-453c-420f-b70b-483e8e5b542c"] + 3.9913204213904285`*^9, {3.99381631206076*^9, 3.9938164015001698`*^9}, + 3.994256186967802*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"4234e296-b208-4ce0-8077-c0478c6c07dd"] }, Open ]], Cell[CellGroupData[{ @@ -4825,14 +4760,13 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[474]:=",ExpressionUUID->"daa564ad-c60b-4423-9c6f-031d136161bf"], + CellLabel->"In[68]:=",ExpressionUUID->"daa564ad-c60b-4423-9c6f-031d136161bf"], Cell[BoxData["130.0881645538647`"], "Output", CellChangeTimes->{ - 3.991320421419428*^9, {3.9938163120760603`*^9, 3.993816401514661*^9}}, - CellLabel-> - "Out[474]=",ExpressionUUID->"85ee5f42-2eff-4387-a0bc-3c352b854517"] + 3.991320421419428*^9, {3.9938163120760603`*^9, 3.993816401514661*^9}, + 3.9942561869770193`*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"8ed2d4b5-9785-4327-85b1-459711b49ee2"] }, Open ]], Cell[CellGroupData[{ @@ -4890,14 +4824,13 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[475]:=",ExpressionUUID->"6a187063-737f-41da-b5db-d39f18dfcc54"], + CellLabel->"In[69]:=",ExpressionUUID->"6a187063-737f-41da-b5db-d39f18dfcc54"], Cell[BoxData["37.11735851847544`"], "Output", CellChangeTimes->{ - 3.9913204214494324`*^9, {3.993816312091509*^9, 3.9938164015309277`*^9}}, - CellLabel-> - "Out[475]=",ExpressionUUID->"602b227b-47dd-40cb-9fa3-78ca36ea8aca"] + 3.9913204214494324`*^9, {3.993816312091509*^9, 3.9938164015309277`*^9}, + 3.99425618698383*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"c2f2f455-843d-47f9-9699-ca45076456fb"] }, Open ]], Cell[CellGroupData[{ @@ -4955,37 +4888,46 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[476]:=",ExpressionUUID->"43142659-682d-4196-aac6-db3d706f19fa"], + CellLabel->"In[70]:=",ExpressionUUID->"43142659-682d-4196-aac6-db3d706f19fa"], Cell[BoxData["835.6594550727934`"], "Output", CellChangeTimes->{ - 3.991320421481529*^9, {3.9938163121038647`*^9, 3.993816401547245*^9}}, - CellLabel-> - "Out[476]=",ExpressionUUID->"efcd55d7-a7e3-4de2-8879-5f8c904baddb"] + 3.991320421481529*^9, {3.9938163121038647`*^9, 3.993816401547245*^9}, + 3.994256186990999*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"112cfb8e-7891-4186-8cd8-4c021b65cfbf"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"f1", "=", "0.8824908045"}]], "Input", - CellChangeTimes->{3.9918496921150837`*^9, - 3.994083428622492*^9},ExpressionUUID->"ede64bc2-06f7-8743-a0a6-\ -6f058773310c"], + CellChangeTimes->{3.9918496921150837`*^9, 3.994083428622492*^9}, + CellLabel->"In[71]:=",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], + +Cell[BoxData["0.8824908045`"], "Output", + CellChangeTimes->{3.99425619146131*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"aff04183-c64b-434f-90f8-1d394a256637"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918496892276516`*^9, - 3.9918496892324924`*^9}},ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-\ -c82e80965ca9"], + CellChangeTimes->{{3.9918496892276516`*^9, 3.9918496892324924`*^9}}, + CellLabel->"In[72]:=",ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-c82e80965ca9"], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f2", "=", "0.577572279"}]], "Input", - CellChangeTimes->{3.991849690724144*^9, - 3.994083435145775*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ -7dc8ec78e5b4"], + CellChangeTimes->{3.991849690724144*^9, 3.994083435145775*^9}, + CellLabel->"In[73]:=",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], + +Cell[BoxData["0.577572279`"], "Output", + CellChangeTimes->{3.994256191649802*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"5225805b-8855-4b92-8cb0-e69aa7216d27"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991849693382303*^9, - 3.991849693386299*^9}},ExpressionUUID->"b3364ab6-86a4-7a46-ae33-\ -623392314869"], + CellChangeTimes->{{3.991849693382303*^9, 3.991849693386299*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], Cell[CellGroupData[{ @@ -5031,13 +4973,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel-> - "In[316]:=",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], + CellLabel->"In[75]:=",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], -Cell[BoxData["2.3793916761039797`*^-53"], "Output", - CellChangeTimes->{3.991339230528511*^9}, - CellLabel-> - "Out[316]=",ExpressionUUID->"b2b0fbe6-496d-0b4b-a132-3f215e541d44"] +Cell[BoxData["1.5276604288963894`*^-53"], "Output", + CellChangeTimes->{3.991339230528511*^9, 3.99425619165968*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"e8e7d1ca-bfed-4581-97ac-829fb79012c5"] }, Open ]], Cell[CellGroupData[{ @@ -5071,14 +5011,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.991557615205345*^9},ExpressionUUID->"35e76fc7-2f05-694a-b379-\ -67189aa511ad"], + CellChangeTimes->{3.991557615205345*^9}, + CellLabel->"In[76]:=",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], -Cell[BoxData["2.192147584896785`*^-54"], "Output", - CellChangeTimes->{3.991339230554512*^9}, - CellLabel-> - "Out[317]=",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] +Cell[BoxData["1.6462111268149887`*^-54"], "Output", + CellChangeTimes->{3.991339230554512*^9, 3.9942561916684837`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"a3541f8c-2e43-4225-a235-8ebc924f661b"] }, Open ]], Cell[CellGroupData[{ @@ -5111,14 +5049,12 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.991557618917984*^9, - 3.9915576208320503`*^9}},ExpressionUUID->"a10e19cd-f567-6b4d-a841-\ -5f01117db38b"], + CellChangeTimes->{{3.991557618917984*^9, 3.9915576208320503`*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], -Cell[BoxData["3.508823705223133`*^-54"], "Output", - CellChangeTimes->{3.9913392305796223`*^9}, - CellLabel-> - "Out[318]=",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] +Cell[BoxData["2.936447417974585`*^-54"], "Output", + CellChangeTimes->{3.9913392305796223`*^9, 3.99425619167447*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"af41b28d-69e6-458e-a4f9-75b6ab890b93"] }, Open ]], Cell[CellGroupData[{ @@ -5141,13 +5077,11 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel-> - "In[319]:=",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], + CellLabel->"In[78]:=",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], -Cell[BoxData["44.37747929594205`"], "Output", - CellChangeTimes->{3.9913392305906105`*^9}, - CellLabel-> - "Out[319]=",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] +Cell[BoxData["35.74437614655874`"], "Output", + CellChangeTimes->{3.9913392305906105`*^9, 3.994256191680676*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"23cf24bb-d723-476b-b015-0003237da145"] }, Open ]], Cell[CellGroupData[{ @@ -5173,13 +5107,11 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Il"}], ")"}], "*", RowBox[{"(", RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", - CellLabel-> - "In[320]:=",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], + CellLabel->"In[79]:=",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], -Cell[BoxData["102.55835649176893`"], "Output", - CellChangeTimes->{3.99133923061561*^9}, - CellLabel-> - "Out[320]=",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] +Cell[BoxData["86.45600787265288`"], "Output", + CellChangeTimes->{3.99133923061561*^9, 3.9942561916861267`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"001430d6-739d-4b97-ba29-8dfa8f2f5656"] }, Open ]], Cell[CellGroupData[{ @@ -5188,13 +5120,11 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel-> - "In[321]:=",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], + CellLabel->"In[80]:=",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], -Cell[BoxData["0.5630879721742558`"], "Output", - CellChangeTimes->{3.9913392306426105`*^9}, - CellLabel-> - "Out[321]=",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +Cell[BoxData["1.0190246041150748`"], "Output", + CellChangeTimes->{3.9913392306426105`*^9, 3.994256191691244*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"54a9668d-9b86-44b2-8702-caa36b57beb7"] }, Open ]], Cell[CellGroupData[{ @@ -5203,13 +5133,11 @@ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", - CellLabel-> - "In[322]:=",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], + CellLabel->"In[81]:=",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], -Cell[BoxData["1.956498159343112`"], "Output", - CellChangeTimes->{3.99133923065361*^9}, - CellLabel-> - "Out[322]=",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +Cell[BoxData["3.1089739039250035`"], "Output", + CellChangeTimes->{3.99133923065361*^9, 3.9942561916962957`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"82b960dd-0bc2-4e35-8bae-3615556e3616"] }, Open ]], Cell[CellGroupData[{ @@ -5218,13 +5146,11 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel-> - "In[323]:=",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], + CellLabel->"In[82]:=",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], -Cell[BoxData["200.65523570140064`"], "Output", - CellChangeTimes->{3.9913392306776104`*^9}, - CellLabel-> - "Out[323]=",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +Cell[BoxData["268.78947231361246`"], "Output", + CellChangeTimes->{3.9913392306776104`*^9, 3.994256191701345*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"cd83e372-60bc-4253-a8f8-7b0073789768"] }, Open ]], Cell[CellGroupData[{ @@ -5233,13 +5159,11 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[324]:=",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], + CellLabel->"In[83]:=",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], -Cell[BoxData["24.98842482695703`"], "Output", - CellChangeTimes->{3.991339230703802*^9}, - CellLabel-> - "Out[324]=",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +Cell[BoxData["36.42439875208734`"], "Output", + CellChangeTimes->{3.991339230703802*^9, 3.994256191706469*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"73212cdf-2a22-4a93-8d31-2b90875b73bd"] }, Open ]], Cell[CellGroupData[{ @@ -5428,13 +5352,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[325]:=",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], + CellLabel->"In[84]:=",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], -Cell[BoxData["0.01829601703069907`"], "Output", - CellChangeTimes->{3.9913392307297993`*^9}, - CellLabel-> - "Out[325]=",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +Cell[BoxData["0.004094910985032573`"], "Output", + CellChangeTimes->{3.9913392307297993`*^9, 3.994256191713295*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"433ea8d6-ba99-4498-9849-f1c27d98f41a"] }, Open ]], Cell[CellGroupData[{ @@ -5447,13 +5369,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[326]:=",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], + CellLabel->"In[85]:=",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], -Cell[BoxData["6.551890985609901`"], "Output", - CellChangeTimes->{3.991339230837267*^9}, - CellLabel-> - "Out[326]=",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +Cell[BoxData["13.849136886951914`"], "Output", + CellChangeTimes->{3.991339230837267*^9, 3.9942561918386106`*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"ada6d554-aa28-4eb3-87b4-3278c04af0b7"] }, Open ]], Cell[CellGroupData[{ @@ -5644,13 +5564,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[327]:=",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], + CellLabel->"In[86]:=",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], -Cell[BoxData["0.00990105610750653`"], "Output", - CellChangeTimes->{3.9913392308522797`*^9}, - CellLabel-> - "Out[327]=",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +Cell[BoxData["0.02478589439977696`"], "Output", + CellChangeTimes->{3.9913392308522797`*^9, 3.994256191848617*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"b13375b1-14ba-4236-912a-ca0531b13a28"] }, Open ]], Cell[CellGroupData[{ @@ -5663,13 +5581,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[328]:=",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], + CellLabel->"In[87]:=",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], -Cell[BoxData["8.906440683949702`"], "Output", - CellChangeTimes->{3.991339230966341*^9}, - CellLabel-> - "Out[328]=",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +Cell[BoxData["5.629147688864591`"], "Output", + CellChangeTimes->{3.991339230966341*^9, 3.994256191895409*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"c9336089-4d6d-4ba6-b954-1540e1c9d5e4"] }, Open ]], Cell[CellGroupData[{ @@ -5761,13 +5677,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[329]:=",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], + CellLabel->"In[88]:=",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.991339230988348*^9}, - CellLabel-> - "Out[329]=",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +Cell[BoxData["0.12078123313891681`"], "Output", + CellChangeTimes->{3.991339230988348*^9, 3.994256191903571*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"568e9c9c-6b12-4cc2-b9ef-00c0b655d8f4"] }, Open ]], Cell[CellGroupData[{ @@ -5856,13 +5770,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[330]:=",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], + CellLabel->"In[89]:=",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.991339231030445*^9}, - CellLabel-> - "Out[330]=",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +Cell[BoxData["0.8792187668610831`"], "Output", + CellChangeTimes->{3.991339231030445*^9, 3.994256191909854*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"6b01f670-67cf-436c-96c0-e1c3bd460c15"] }, Open ]], Cell[CellGroupData[{ @@ -5984,19 +5896,17 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel-> - "In[331]:=",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], + CellLabel->"In[90]:=",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.991339231060343*^9}, - CellLabel-> - "Out[331]=",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] +Cell[BoxData["0.10619312686035944`"], "Output", + CellChangeTimes->{3.991339231060343*^9, 3.99425619191636*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"155fa742-4161-41b7-968c-f4260ebb986d"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"0055f95b-c532-\ -e24d-bdc4-544ea2d2fbd9"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], Cell[CellGroupData[{ @@ -6057,68 +5967,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918497046469917`*^9},ExpressionUUID->"574b810b-aa4a-d545-b080-\ -c44fbe83a713"], + CellChangeTimes->{3.9918497046469917`*^9}, + CellLabel->"In[92]:=",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 332, 325, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392310873375`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0633494812073349`*^-229\\\", \ +RowBox[{\\\"1894408991562427689427794363373458470910\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8875062955245236398325760000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 1, + 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392310873375`*^9, 3.994256191941189*^9}, CellLabel-> "During evaluation of \ -In[332]:=",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], +In[92]:=",ExpressionUUID->"ceda59be-7b96-43e3-9bd6-a174c8dfa0a7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 332, 326, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392310973415`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.889818921958403`*^-236\\\", \ +RowBox[{\\\"2735526583816145583533735060711274031995\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"10\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5590907374121359182397440000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 2, + 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392310873375`*^9, 3.99425619200667*^9}, CellLabel-> "During evaluation of \ -In[332]:=",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], +In[92]:=",ExpressionUUID->"323ece43-557a-4955-972c-b53881b1460e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 332, 327, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339231105339*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.464158361508648`*^-242\\\", \ +RowBox[{\\\"4160735933984357432554811027341847802665\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"13\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3770116038587316426506240000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 3, + 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392310873375`*^9, 3.9942561920143957`*^9}, CellLabel-> "During evaluation of \ -In[332]:=",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], +In[92]:=",ExpressionUUID->"282445dd-6ec9-41f9-8df0-401d4d1807da"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 332, 328, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392311143417`*^9}, +during this calculation.\"", 2, 92, 4, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392310873375`*^9, 3.99425619202079*^9}, CellLabel-> "During evaluation of \ -In[332]:=",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], +In[92]:=",ExpressionUUID->"6d0b23b1-9135-4e2e-9353-58b2a1f1487a"], -Cell[BoxData["6.551890985609901`"], "Output", - CellChangeTimes->{3.9913392346332226`*^9}, - CellLabel-> - "Out[332]=",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +Cell[BoxData["13.849136886951918`"], "Output", + CellChangeTimes->{3.9913392346332226`*^9, 3.9942561932097483`*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"dde1f20f-6121-4334-ae9f-fa06f9572364"] }, Open ]], Cell[CellGroupData[{ @@ -6180,68 +6095,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849710877041*^9},ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-\ -656c90598e75"], + CellChangeTimes->{3.991849710877041*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 333, 329, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339234667631*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0633494812073349`*^-229\\\", \ +RowBox[{\\\"1894408991562427689427794363373458470910\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8875062955245236398325760000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 5, + 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339234667631*^9, 3.994256193286685*^9}, CellLabel-> "During evaluation of \ -In[333]:=",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], +In[93]:=",ExpressionUUID->"0e0aa8e8-c9d3-4430-9239-ea981f40d8a3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 333, 330, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339234676628*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.889818921958403`*^-236\\\", \ +RowBox[{\\\"2735526583816145583533735060711274031995\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"10\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5590907374121359182397440000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 6, + 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339234667631*^9, 3.994256193291732*^9}, CellLabel-> "During evaluation of \ -In[333]:=",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], +In[93]:=",ExpressionUUID->"44ff1504-e30b-436c-ba29-073a253f89d4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 333, 331, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339234685627*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.464158361508648`*^-242\\\", \ +RowBox[{\\\"4160735933984357432554811027341847802665\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"13\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3770116038587316426506240000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 7, + 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339234667631*^9, 3.994256193296803*^9}, CellLabel-> "During evaluation of \ -In[333]:=",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], +In[93]:=",ExpressionUUID->"8a6efd5a-5964-4fac-aeb8-20516dc65a02"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 333, 332, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133923469363*^9}, +during this calculation.\"", 2, 93, 8, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339234667631*^9, 3.994256193300653*^9}, CellLabel-> "During evaluation of \ -In[333]:=",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], +In[93]:=",ExpressionUUID->"0366b586-004d-49ad-87de-b9aea0bf7e28"], -Cell[BoxData["8.906440683949707`"], "Output", - CellChangeTimes->{3.99133923819088*^9}, - CellLabel-> - "Out[333]=",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +Cell[BoxData["5.6291476888645935`"], "Output", + CellChangeTimes->{3.99133923819088*^9, 3.99425619459076*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"fc164da9-0ba9-4fb3-9c54-c7316e5e039b"] }, Open ]], Cell[CellGroupData[{ @@ -6251,138 +6171,142 @@ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ - FractionBox[ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", RowBox[{ - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", - RowBox[{"Cos", "[", - FractionBox[ - RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], - RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849713921898*^9},ExpressionUUID->"9c540ba7-8bb4-ef46-919c-\ -62296271f174"], + CellChangeTimes->{3.991849713921898*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK -Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee -8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 -s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP -tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey -E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP -HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay -ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje -fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh -OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n -13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP -WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl -4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ -U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 -tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P -s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 -mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 -t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 -O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy -xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ -Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH -N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv -mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR -gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 -99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA -+m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC -ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ -7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN -v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q -bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 -ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 -KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs -LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW -pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi -ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj -oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O -7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu -/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf -OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 -8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a -z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 -P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg -g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB -KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM -y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx -8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR -3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky -bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD -jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 -wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 -GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB -LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV -Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL -kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN -fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG -xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu -t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 -uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 -PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV -XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H -Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym -mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy -vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ -EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF -DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu -bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG -TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I -9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw -2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 -/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb -7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om -QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD -whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz -9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i -i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk4VVsfB3ARypApjiEyd5HSMQ9Zv0Iic+Y555xtSOZcoeSKRkR100QZ +uiVjUipJl8qLolRSxnTUZTucg0ThXeeP/ezn8+y9vuu79t5rq4REuzF4eXh4 +JvHBPce+3rLpQfdrS2+/CN15KoksWaWGIdYVKEiodxfXw0VG59WtGxHhp3CO +axf6KwER/efIwMFY8id2bVJaC791J8rr027l+uQL2ea08jeodXnu1gL2w+7Y +wt/U9+hifUHzIvb4p/bUQ48/ooYfksK/seWZan4/rPqRxUP6iSXsPVOppvGd +Q0hjJttkBbvp97hwUvkIaizIUVilT6IP6ZSU+1GjyPsasY0PmyVgPT5LZaLL +HOlkfmyBMzE++vNjiHLy6pwgtpLEtbbYx99Rh/NiiRC2k8KPmywrEsWomV8S +xyauq8rormGhbkGlYSnsNA3nzP2dU0ivo9eHgv2R8m5bQjkbjeZ0MZWw6b4R +4efOcNATP9GfqtjTV3lu3I2aQe3XVbZvwl6jqivOps6hk4qvgvSwz9NbbMWl +f6BZGfp2Q2zlf3zSts7/QEvCbxzNsE02Z7EOPP6JfAI2C9pghxkNdY5b/UYF +6V8/+2PPJh1cLaS5hLxsNrnQsI8+FrbQWrOMjrVbzodjF4DJndDOFVQYMjHw +J7dfWZt1XPkqmD1sKPo3dvmLc8PpCrxwRVhOtpDb91tgat4ZXpj6X5fHTexU +7bm6mig+sP1RH/6A27daRW2Kyg//5gfOfMb+1E02LZfwQ7/++/NMbn/OA991 +0gLAUlQMn8KuMHDK150XgOqnG8v5DEjU+jB5VeTjNVCX/T17C/ZcS8/QdysR +EMva1Z+NLekgIp7SJAKRXi3NV7D13lmDqKkoOLnNDt/Gjvhaf33blnVwainm +3QvsGN5Ove0i4mDj2Hacz5BETNUqduYPCeh+lr7xBPYs0b62S18S9pCCTy9h +894ZU5GNlYS+3WaX72Ar6290K5+QhCrvG3zd2L5WZ+++HpYCnzthxQpGJOqi +xcVTOqTBtdJdrAl78J+c08FrZED8smd4DzY5UV5y20YGdIYWl79jCyWM9pg3 +y8Dlh5sG1huTyPqYu0FwPQV8zFbo0diPSo3mbhXJgXImX/FWExKVMhcTzRIU +4e1frI5+UxLt9jg+GF+pCGXPvavmsclWqV2VY4qgs1zeKmlGIoPSzdLKPkpg +7r462w67NSSwjt9yIxgEHDzzEJszNfzn9wxlUKYX25SYk0jqgPW9OkdV+Phf +6JVr20k0VioU5hKhCgmmVgtN2A393QqTWapg/2Hi1DC2v0NAhmazKsTADTt1 +S9xPJ9HtElUNrI/9ZVCFbTD+z/QRijq8DrZ92oFI5B4qrGs/ogHbet7c0N1J +IpToQfVa0oCaNmaVO7Z2ZpExXU4TzpSUTqZg85To7zziqgl+vUo8HdiVg35e +d59pAn/2t6T9eN8JeFakyxdvgnbfjw311rifteOH8RAtmAoLjoi2JVHJ3ouf +549owdsPVeVXsXNCRoZXX9GCJwsZG9qx6UcPTij1aEF7ypPzGrtJJNF4jWev +lTbEsux7B7Ej9Fnaj9V0oPHb/RJfexIpqOamnf66Ga5Et7r86UiixlOzWgu8 +ujBAr1asxvaf8XlHqOhCG6VG/Rt2Yau61s5AXSg7NzHs5UQi1dBHb3/26oJw +mqykhTNebwVTg+jYAs9zazzEXEmkqKBEKPvogbF7mfuIO4k2lyWI/EJUsM9O +ekYNIFEIPWNO14kKzKIAtwTsArX8wWB/KrSohUvfx+Yrrq55kUSFBElym1kg +3m+F4+75tVQQND/Qah2E/6cFwde01PShk1LvSNuH3+9phy3eAgbgvNIx+pxB +ohtx6i71nYaQ2xBfoRxNou5EZHyszBTgbbGzWBaJVALfOwVEbocDFkMqktdJ +xFi5X6V4CEBx/ltO2GMSUSYaBCkhO2GD1oyBdz+JEvQt+vO1reFs/Jt4pWXc +f/J3m9S4DexreblrRWUSVe6MFyzqsoUvkq88p/dMotLZiGcV5+1A/RJnvOvg +JPq5Q/ZVa9oeCL+XPid5cxIN8PCxR/Y5QtCmHaPmHydR1Ibos+lqzuClw9wd +tJaFqsLbmi9kukBdwtP/KDtYKHlGbl4n3BVcN1ZuMv+Thebsd3m+DHIDT9dO +izX3WMjUL28H03UvCLQ0o1o2C72VuxbRqu8OVpc017dtnkLyNzMab/3hAZOv +MhU8oqZQw7C2g5OoJ0jZudjfr5hCSu+mQxMnPcE+NG2oeXwK6V/IqygZ9oJk +r/FBBmUaXVs9syW/xRsMWMtNAcbT6P6OrZ8yH/pAaYgDU953GhUYn5L4Xe4L +/X0ZHhqp06jrc1mW/hk/mM6o+FF7ZRrVO15VjznqD09nSMrxJ9OIfWAvTxQ9 +ALIi3yVc6p9Gc7u0wlhWgdB7tDg3enEa3Zrs+xlvFATScZ9WOHJs5H2jjBYg +Egzr/6Tm0ozYqO7uniC+48GAGmPNV/aykanC24WTC8Gwg9Y95xnFRmrDoZ/e +hO8Dx+nf1Z1ZbPRVeL/z1dF90L05M7OsiI26c5xoth4h0Jxofkexno3OJxUJ +H+wOAapg3yO/djZqbFpZoNnR4LjqJw3BATYS84fj+o9okJuu+z2YZCPl9S+7 +NjTS4PfW2+xCbL1OR1mBJhpoa/f09GO7Wfjd/viMBoLD0qrekzh/Q2LH4f/R +QNEhn+nAYiP5gTtibR9pEH7SnXfrNBupB1IK/OdpcKHYmvZ+Bq8nmHUr04AO +Q52k2+1FNrp5aTreyYgO6RUZw33Y63s4lhQTOuSvj7AX+sVGLJv5d7fM6aAp +LVkXgV2qw7OqcycdNBpse7V+s9G6eQkfSVc6TFQphN5Yws8j23Bt0QE6GDLu +ZBzk4SDXl8bvQqPp8I1PNP8GdhOPWZFeLB2SI7RSX2Ffirc0/DeBDqzBo6Pq +qzjIycd2HzOFDh88ty6/wX6o7vNQ5xQdpi88CdLg46Ccx6nhDTfx/DvZ9TX8 +HHSAetE06RYdaIsLkb3YDrdr15qU06E3vYxnGVvo4tjtB5V0oK68f2IvwEGZ +cS7j9+/R4Xa8Qe4X7FQt9f31/9Lhvn7NKeE1HBRxsSPy7iAdFqIvd+wU4iC7 +dWMWccN0CL/4U4yB/Ucmjyj1Cx1E5o/rHcceizOsrGXSAa3TFejA3udUNFlD +0uGipgGfqzAHefPHR1Uv0uHjsYAdniIcZBsvH1MhwwCmlmiDzToO+rcoyz5f +lgGXTwnyEtgWnRz1JHkG9FxnqGRh62l09FkpMeCRiuXwc2y53hSrzxoMuMda +CLAS46AJswEZIUMGVPsmeRqJc1Au7/UnoXsZwLaOVPstgde/VaTA0YMBq1mi +UhRJDjrmlxSn78UApH2zdxt20j2XTSu+DPi6XDlEYO8jVuX9HcKAocLn46+x +9dtD6M9jGdAifmj8bykO6s3TEFY7y4CIBplUAWkOqkKiYd/zGNA5dvWCPPax +ydnWynMMmFb2P7kFm2rXesTkIgNqKg+veGDn8NA4joUMMK2V1izB3hV9vS+p +ggHK4uO+RjIcpKh4wsiyigGx2RTKbuzZ9uhzfDUMeFUcVOmDXayJHHPqGFB6 +2CQsFXtpYKC55BEDipT7ZZqx7zko3HrdxoB8vlhPoHDQ6UVe/vPtDEiWSqlz +xg65Nb7Pp5MBwdKZ44HY4qsfKXztws+jI38sFTvysXfuwgcGuH+KkHmArab9 +d6I6kwGUqba96rIctNh7uOe/MQaE96q4bMPuzmToVX9nQMogTdMS+8iIwbgp +icfLFwZ7YX8q6AlwnmGAxaeXwiew8wUlbJJXEVBXOmL+BbuRM+CXwEeA4f5I +MRb2t4HyuCh+AtRzw+oWsC3uWV8PWUuAlHR1pLgc/t6Ck37ZSxDwI8ax1Bxb +3MFG0kaKgHYX81822ObGklpImgC/g7mqLthnRSs89eUIMItjfKFxrz8aqlVQ +IaDvTZnmSWyirKJNWo2AaOsSnnzu/WcPDYlpEDAaslR+mTsfISW6WosASbuW +mDvc61K2YaQeAYX5Sc3t2I+WpdLGqDhf0lLxLTbzv+ELwwYE2Gh42/dhmzUn +t7wzIeDu/izpb9hfI6uUngDuf74umkeeg9Z5pxg+2EnA2hv8zgLYpla7HWqt +CRC6XbYsjJ0j9+VQ2W4CIno6X8tgN6yuPltkT4BGgduUAvboVMo/lxwIyLim +NqyMbfJC+n22CwGa7FKqNnZI7ZeJ424EzEi4n9+CnX21mvcvdwKSZB1eULG/ +xNnpJXoTIN60/ooZtmigjG2MLwEjQV+3W3Lz7EYDIvwJGCcXa3Zwx288fDow +mIAY8V+Cu7l9hOyLvUMIYPaNTthz8+ZkHrrRCTg2K3HdkZs3MtrlQBDQuyZT +3YWb11kztiuMgITnFofcuP0eHF6CCAKWBk0K3bn5xfbrzSMJEBM/dM6Tm59N +0TGMIiBQbsnbm5uf9HXH1hgCCp61snywRei13lpxBBx53+Xuh23sfCRaLYGA +7k1Kp/25+WZ7shQTCfDPq84LwD6jIXuNkkTAz+mMsEDs++LMOolkApJ1rogF +YY/8qm0XTiWgU2cui2uRb0dG+I8Q8PZL3muujd7u+bmSRsAJ29gxrv8P1Dfq +lg== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -6396,104 +6320,107 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK -Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee -8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 -s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP -tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey -E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP -HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay -ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje -fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh -OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n -13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP -WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl -4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ -U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 -tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P -s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 -mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 -t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 -O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy -xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ -Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH -N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv -mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR -gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 -99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA -+m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC -ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ -7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN -v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q -bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 -ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 -KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs -LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW -pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi -ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj -oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O -7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu -/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf -OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 -8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a -z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 -P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg -g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB -KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM -y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx -8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR -3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky -bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD -jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 -wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 -GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB -LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV -Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL -kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN -fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG -xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu -t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 -uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 -PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV -XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H -Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym -mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy -vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ -EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF -DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu -bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG -TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I -9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw -2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 -/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb -7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om -QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD -whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz -9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i -i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== +1:eJwV1Hk4VVsfB3ARypApjiEyd5HSMQ9Zv0Iic+Y555xtSOZcoeSKRkR100QZ +uiVjUipJl8qLolRSxnTUZTucg0ThXeeP/ezn8+y9vuu79t5rq4REuzF4eXh4 +JvHBPce+3rLpQfdrS2+/CN15KoksWaWGIdYVKEiodxfXw0VG59WtGxHhp3CO +axf6KwER/efIwMFY8id2bVJaC791J8rr027l+uQL2ea08jeodXnu1gL2w+7Y +wt/U9+hifUHzIvb4p/bUQ48/ooYfksK/seWZan4/rPqRxUP6iSXsPVOppvGd +Q0hjJttkBbvp97hwUvkIaizIUVilT6IP6ZSU+1GjyPsasY0PmyVgPT5LZaLL +HOlkfmyBMzE++vNjiHLy6pwgtpLEtbbYx99Rh/NiiRC2k8KPmywrEsWomV8S +xyauq8rormGhbkGlYSnsNA3nzP2dU0ivo9eHgv2R8m5bQjkbjeZ0MZWw6b4R +4efOcNATP9GfqtjTV3lu3I2aQe3XVbZvwl6jqivOps6hk4qvgvSwz9NbbMWl +f6BZGfp2Q2zlf3zSts7/QEvCbxzNsE02Z7EOPP6JfAI2C9pghxkNdY5b/UYF +6V8/+2PPJh1cLaS5hLxsNrnQsI8+FrbQWrOMjrVbzodjF4DJndDOFVQYMjHw +J7dfWZt1XPkqmD1sKPo3dvmLc8PpCrxwRVhOtpDb91tgat4ZXpj6X5fHTexU +7bm6mig+sP1RH/6A27daRW2Kyg//5gfOfMb+1E02LZfwQ7/++/NMbn/OA991 +0gLAUlQMn8KuMHDK150XgOqnG8v5DEjU+jB5VeTjNVCX/T17C/ZcS8/QdysR +EMva1Z+NLekgIp7SJAKRXi3NV7D13lmDqKkoOLnNDt/Gjvhaf33blnVwainm +3QvsGN5Ove0i4mDj2Hacz5BETNUqduYPCeh+lr7xBPYs0b62S18S9pCCTy9h +894ZU5GNlYS+3WaX72Ar6290K5+QhCrvG3zd2L5WZ+++HpYCnzthxQpGJOqi +xcVTOqTBtdJdrAl78J+c08FrZED8smd4DzY5UV5y20YGdIYWl79jCyWM9pg3 +y8Dlh5sG1huTyPqYu0FwPQV8zFbo0diPSo3mbhXJgXImX/FWExKVMhcTzRIU +4e1frI5+UxLt9jg+GF+pCGXPvavmsclWqV2VY4qgs1zeKmlGIoPSzdLKPkpg +7r462w67NSSwjt9yIxgEHDzzEJszNfzn9wxlUKYX25SYk0jqgPW9OkdV+Phf +6JVr20k0VioU5hKhCgmmVgtN2A393QqTWapg/2Hi1DC2v0NAhmazKsTADTt1 +S9xPJ9HtElUNrI/9ZVCFbTD+z/QRijq8DrZ92oFI5B4qrGs/ogHbet7c0N1J +IpToQfVa0oCaNmaVO7Z2ZpExXU4TzpSUTqZg85To7zziqgl+vUo8HdiVg35e +d59pAn/2t6T9eN8JeFakyxdvgnbfjw311rifteOH8RAtmAoLjoi2JVHJ3ouf +549owdsPVeVXsXNCRoZXX9GCJwsZG9qx6UcPTij1aEF7ypPzGrtJJNF4jWev +lTbEsux7B7Ej9Fnaj9V0oPHb/RJfexIpqOamnf66Ga5Et7r86UiixlOzWgu8 +ujBAr1asxvaf8XlHqOhCG6VG/Rt2Yau61s5AXSg7NzHs5UQi1dBHb3/26oJw +mqykhTNebwVTg+jYAs9zazzEXEmkqKBEKPvogbF7mfuIO4k2lyWI/EJUsM9O +ekYNIFEIPWNO14kKzKIAtwTsArX8wWB/KrSohUvfx+Yrrq55kUSFBElym1kg +3m+F4+75tVQQND/Qah2E/6cFwde01PShk1LvSNuH3+9phy3eAgbgvNIx+pxB +ohtx6i71nYaQ2xBfoRxNou5EZHyszBTgbbGzWBaJVALfOwVEbocDFkMqktdJ +xFi5X6V4CEBx/ltO2GMSUSYaBCkhO2GD1oyBdz+JEvQt+vO1reFs/Jt4pWXc +f/J3m9S4DexreblrRWUSVe6MFyzqsoUvkq88p/dMotLZiGcV5+1A/RJnvOvg +JPq5Q/ZVa9oeCL+XPid5cxIN8PCxR/Y5QtCmHaPmHydR1Ibos+lqzuClw9wd +tJaFqsLbmi9kukBdwtP/KDtYKHlGbl4n3BVcN1ZuMv+Thebsd3m+DHIDT9dO +izX3WMjUL28H03UvCLQ0o1o2C72VuxbRqu8OVpc017dtnkLyNzMab/3hAZOv +MhU8oqZQw7C2g5OoJ0jZudjfr5hCSu+mQxMnPcE+NG2oeXwK6V/IqygZ9oJk +r/FBBmUaXVs9syW/xRsMWMtNAcbT6P6OrZ8yH/pAaYgDU953GhUYn5L4Xe4L +/X0ZHhqp06jrc1mW/hk/mM6o+FF7ZRrVO15VjznqD09nSMrxJ9OIfWAvTxQ9 +ALIi3yVc6p9Gc7u0wlhWgdB7tDg3enEa3Zrs+xlvFATScZ9WOHJs5H2jjBYg +Egzr/6Tm0ozYqO7uniC+48GAGmPNV/aykanC24WTC8Gwg9Y95xnFRmrDoZ/e +hO8Dx+nf1Z1ZbPRVeL/z1dF90L05M7OsiI26c5xoth4h0Jxofkexno3OJxUJ +H+wOAapg3yO/djZqbFpZoNnR4LjqJw3BATYS84fj+o9okJuu+z2YZCPl9S+7 +NjTS4PfW2+xCbL1OR1mBJhpoa/f09GO7Wfjd/viMBoLD0qrekzh/Q2LH4f/R +QNEhn+nAYiP5gTtibR9pEH7SnXfrNBupB1IK/OdpcKHYmvZ+Bq8nmHUr04AO +Q52k2+1FNrp5aTreyYgO6RUZw33Y63s4lhQTOuSvj7AX+sVGLJv5d7fM6aAp +LVkXgV2qw7OqcycdNBpse7V+s9G6eQkfSVc6TFQphN5Yws8j23Bt0QE6GDLu +ZBzk4SDXl8bvQqPp8I1PNP8GdhOPWZFeLB2SI7RSX2Ffirc0/DeBDqzBo6Pq +qzjIycd2HzOFDh88ty6/wX6o7vNQ5xQdpi88CdLg46Ccx6nhDTfx/DvZ9TX8 +HHSAetE06RYdaIsLkb3YDrdr15qU06E3vYxnGVvo4tjtB5V0oK68f2IvwEGZ +cS7j9+/R4Xa8Qe4X7FQt9f31/9Lhvn7NKeE1HBRxsSPy7iAdFqIvd+wU4iC7 +dWMWccN0CL/4U4yB/Ucmjyj1Cx1E5o/rHcceizOsrGXSAa3TFejA3udUNFlD +0uGipgGfqzAHefPHR1Uv0uHjsYAdniIcZBsvH1MhwwCmlmiDzToO+rcoyz5f +lgGXTwnyEtgWnRz1JHkG9FxnqGRh62l09FkpMeCRiuXwc2y53hSrzxoMuMda +CLAS46AJswEZIUMGVPsmeRqJc1Au7/UnoXsZwLaOVPstgde/VaTA0YMBq1mi +UhRJDjrmlxSn78UApH2zdxt20j2XTSu+DPi6XDlEYO8jVuX9HcKAocLn46+x +9dtD6M9jGdAifmj8bykO6s3TEFY7y4CIBplUAWkOqkKiYd/zGNA5dvWCPPax +ydnWynMMmFb2P7kFm2rXesTkIgNqKg+veGDn8NA4joUMMK2V1izB3hV9vS+p +ggHK4uO+RjIcpKh4wsiyigGx2RTKbuzZ9uhzfDUMeFUcVOmDXayJHHPqGFB6 +2CQsFXtpYKC55BEDipT7ZZqx7zko3HrdxoB8vlhPoHDQ6UVe/vPtDEiWSqlz +xg65Nb7Pp5MBwdKZ44HY4qsfKXztws+jI38sFTvysXfuwgcGuH+KkHmArab9 +d6I6kwGUqba96rIctNh7uOe/MQaE96q4bMPuzmToVX9nQMogTdMS+8iIwbgp +icfLFwZ7YX8q6AlwnmGAxaeXwiew8wUlbJJXEVBXOmL+BbuRM+CXwEeA4f5I +MRb2t4HyuCh+AtRzw+oWsC3uWV8PWUuAlHR1pLgc/t6Ck37ZSxDwI8ax1Bxb +3MFG0kaKgHYX81822ObGklpImgC/g7mqLthnRSs89eUIMItjfKFxrz8aqlVQ +IaDvTZnmSWyirKJNWo2AaOsSnnzu/WcPDYlpEDAaslR+mTsfISW6WosASbuW +mDvc61K2YaQeAYX5Sc3t2I+WpdLGqDhf0lLxLTbzv+ELwwYE2Gh42/dhmzUn +t7wzIeDu/izpb9hfI6uUngDuf74umkeeg9Z5pxg+2EnA2hv8zgLYpla7HWqt +CRC6XbYsjJ0j9+VQ2W4CIno6X8tgN6yuPltkT4BGgduUAvboVMo/lxwIyLim +NqyMbfJC+n22CwGa7FKqNnZI7ZeJ424EzEi4n9+CnX21mvcvdwKSZB1eULG/ +xNnpJXoTIN60/ooZtmigjG2MLwEjQV+3W3Lz7EYDIvwJGCcXa3Zwx288fDow +mIAY8V+Cu7l9hOyLvUMIYPaNTthz8+ZkHrrRCTg2K3HdkZs3MtrlQBDQuyZT +3YWb11kztiuMgITnFofcuP0eHF6CCAKWBk0K3bn5xfbrzSMJEBM/dM6Tm59N +0TGMIiBQbsnbm5uf9HXH1hgCCp61snywRei13lpxBBx53+Xuh23sfCRaLYGA +7k1Kp/25+WZ7shQTCfDPq84LwD6jIXuNkkTAz+mMsEDs++LMOolkApJ1rogF +YY/8qm0XTiWgU2cui2uRb0dG+I8Q8PZL3muujd7u+bmSRsAJ29gxrv8P1Dfq +lg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5986424829233534, - 1.5968711170700145`}}, + "PlotRange" -> {{0, 180}, {0.8812213789959555, + 1.1314391137752597`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5986424829233548}, + "AxesOrigin" -> {0, 0.8812213789959575}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -6505,21 +6432,21 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5986424829233534, - 1.5968711170700145`}}, + "PlotRange" -> {{0, 180}, {0.8812213789959555, + 1.1314391137752597`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5986424829233548}, + "AxesOrigin" -> {0, 0.8812213789959575}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -6533,102 +6460,105 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK -Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee -8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 -s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP -tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey -E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP -HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay -ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje -fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh -OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n -13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP -WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl -4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ -U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 -tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P -s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 -mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 -t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 -O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy -xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ -Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH -N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv -mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR -gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 -99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA -+m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC -ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ -7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN -v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q -bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 -ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 -KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs -LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW -pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi -ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj -oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O -7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu -/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf -OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 -8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a -z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 -P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg -g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB -KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM -y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx -8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR -3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky -bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD -jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 -wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 -GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB -LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV -Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL -kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN -fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG -xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu -t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 -uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 -PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV -XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H -Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym -mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy -vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ -EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF -DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu -bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG -TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I -9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw -2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 -/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb -7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om -QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD -whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz -9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i -i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== +1:eJwV1Hk4VVsfB3ARypApjiEyd5HSMQ9Zv0Iic+Y555xtSOZcoeSKRkR100QZ +uiVjUipJl8qLolRSxnTUZTucg0ThXeeP/ezn8+y9vuu79t5rq4REuzF4eXh4 +JvHBPce+3rLpQfdrS2+/CN15KoksWaWGIdYVKEiodxfXw0VG59WtGxHhp3CO +axf6KwER/efIwMFY8id2bVJaC791J8rr027l+uQL2ea08jeodXnu1gL2w+7Y +wt/U9+hifUHzIvb4p/bUQ48/ooYfksK/seWZan4/rPqRxUP6iSXsPVOppvGd +Q0hjJttkBbvp97hwUvkIaizIUVilT6IP6ZSU+1GjyPsasY0PmyVgPT5LZaLL +HOlkfmyBMzE++vNjiHLy6pwgtpLEtbbYx99Rh/NiiRC2k8KPmywrEsWomV8S +xyauq8rormGhbkGlYSnsNA3nzP2dU0ivo9eHgv2R8m5bQjkbjeZ0MZWw6b4R +4efOcNATP9GfqtjTV3lu3I2aQe3XVbZvwl6jqivOps6hk4qvgvSwz9NbbMWl +f6BZGfp2Q2zlf3zSts7/QEvCbxzNsE02Z7EOPP6JfAI2C9pghxkNdY5b/UYF +6V8/+2PPJh1cLaS5hLxsNrnQsI8+FrbQWrOMjrVbzodjF4DJndDOFVQYMjHw +J7dfWZt1XPkqmD1sKPo3dvmLc8PpCrxwRVhOtpDb91tgat4ZXpj6X5fHTexU +7bm6mig+sP1RH/6A27daRW2Kyg//5gfOfMb+1E02LZfwQ7/++/NMbn/OA991 +0gLAUlQMn8KuMHDK150XgOqnG8v5DEjU+jB5VeTjNVCX/T17C/ZcS8/QdysR +EMva1Z+NLekgIp7SJAKRXi3NV7D13lmDqKkoOLnNDt/Gjvhaf33blnVwainm +3QvsGN5Ove0i4mDj2Hacz5BETNUqduYPCeh+lr7xBPYs0b62S18S9pCCTy9h +894ZU5GNlYS+3WaX72Ar6290K5+QhCrvG3zd2L5WZ+++HpYCnzthxQpGJOqi +xcVTOqTBtdJdrAl78J+c08FrZED8smd4DzY5UV5y20YGdIYWl79jCyWM9pg3 +y8Dlh5sG1huTyPqYu0FwPQV8zFbo0diPSo3mbhXJgXImX/FWExKVMhcTzRIU +4e1frI5+UxLt9jg+GF+pCGXPvavmsclWqV2VY4qgs1zeKmlGIoPSzdLKPkpg +7r462w67NSSwjt9yIxgEHDzzEJszNfzn9wxlUKYX25SYk0jqgPW9OkdV+Phf +6JVr20k0VioU5hKhCgmmVgtN2A393QqTWapg/2Hi1DC2v0NAhmazKsTADTt1 +S9xPJ9HtElUNrI/9ZVCFbTD+z/QRijq8DrZ92oFI5B4qrGs/ogHbet7c0N1J +IpToQfVa0oCaNmaVO7Z2ZpExXU4TzpSUTqZg85To7zziqgl+vUo8HdiVg35e +d59pAn/2t6T9eN8JeFakyxdvgnbfjw311rifteOH8RAtmAoLjoi2JVHJ3ouf +549owdsPVeVXsXNCRoZXX9GCJwsZG9qx6UcPTij1aEF7ypPzGrtJJNF4jWev +lTbEsux7B7Ej9Fnaj9V0oPHb/RJfexIpqOamnf66Ga5Et7r86UiixlOzWgu8 +ujBAr1asxvaf8XlHqOhCG6VG/Rt2Yau61s5AXSg7NzHs5UQi1dBHb3/26oJw +mqykhTNebwVTg+jYAs9zazzEXEmkqKBEKPvogbF7mfuIO4k2lyWI/EJUsM9O +ekYNIFEIPWNO14kKzKIAtwTsArX8wWB/KrSohUvfx+Yrrq55kUSFBElym1kg +3m+F4+75tVQQND/Qah2E/6cFwde01PShk1LvSNuH3+9phy3eAgbgvNIx+pxB +ohtx6i71nYaQ2xBfoRxNou5EZHyszBTgbbGzWBaJVALfOwVEbocDFkMqktdJ +xFi5X6V4CEBx/ltO2GMSUSYaBCkhO2GD1oyBdz+JEvQt+vO1reFs/Jt4pWXc +f/J3m9S4DexreblrRWUSVe6MFyzqsoUvkq88p/dMotLZiGcV5+1A/RJnvOvg +JPq5Q/ZVa9oeCL+XPid5cxIN8PCxR/Y5QtCmHaPmHydR1Ibos+lqzuClw9wd +tJaFqsLbmi9kukBdwtP/KDtYKHlGbl4n3BVcN1ZuMv+Thebsd3m+DHIDT9dO +izX3WMjUL28H03UvCLQ0o1o2C72VuxbRqu8OVpc017dtnkLyNzMab/3hAZOv +MhU8oqZQw7C2g5OoJ0jZudjfr5hCSu+mQxMnPcE+NG2oeXwK6V/IqygZ9oJk +r/FBBmUaXVs9syW/xRsMWMtNAcbT6P6OrZ8yH/pAaYgDU953GhUYn5L4Xe4L +/X0ZHhqp06jrc1mW/hk/mM6o+FF7ZRrVO15VjznqD09nSMrxJ9OIfWAvTxQ9 +ALIi3yVc6p9Gc7u0wlhWgdB7tDg3enEa3Zrs+xlvFATScZ9WOHJs5H2jjBYg +Egzr/6Tm0ozYqO7uniC+48GAGmPNV/aykanC24WTC8Gwg9Y95xnFRmrDoZ/e +hO8Dx+nf1Z1ZbPRVeL/z1dF90L05M7OsiI26c5xoth4h0Jxofkexno3OJxUJ +H+wOAapg3yO/djZqbFpZoNnR4LjqJw3BATYS84fj+o9okJuu+z2YZCPl9S+7 +NjTS4PfW2+xCbL1OR1mBJhpoa/f09GO7Wfjd/viMBoLD0qrekzh/Q2LH4f/R +QNEhn+nAYiP5gTtibR9pEH7SnXfrNBupB1IK/OdpcKHYmvZ+Bq8nmHUr04AO +Q52k2+1FNrp5aTreyYgO6RUZw33Y63s4lhQTOuSvj7AX+sVGLJv5d7fM6aAp +LVkXgV2qw7OqcycdNBpse7V+s9G6eQkfSVc6TFQphN5Yws8j23Bt0QE6GDLu +ZBzk4SDXl8bvQqPp8I1PNP8GdhOPWZFeLB2SI7RSX2Ffirc0/DeBDqzBo6Pq +qzjIycd2HzOFDh88ty6/wX6o7vNQ5xQdpi88CdLg46Ccx6nhDTfx/DvZ9TX8 +HHSAetE06RYdaIsLkb3YDrdr15qU06E3vYxnGVvo4tjtB5V0oK68f2IvwEGZ +cS7j9+/R4Xa8Qe4X7FQt9f31/9Lhvn7NKeE1HBRxsSPy7iAdFqIvd+wU4iC7 +dWMWccN0CL/4U4yB/Ucmjyj1Cx1E5o/rHcceizOsrGXSAa3TFejA3udUNFlD +0uGipgGfqzAHefPHR1Uv0uHjsYAdniIcZBsvH1MhwwCmlmiDzToO+rcoyz5f +lgGXTwnyEtgWnRz1JHkG9FxnqGRh62l09FkpMeCRiuXwc2y53hSrzxoMuMda +CLAS46AJswEZIUMGVPsmeRqJc1Au7/UnoXsZwLaOVPstgde/VaTA0YMBq1mi +UhRJDjrmlxSn78UApH2zdxt20j2XTSu+DPi6XDlEYO8jVuX9HcKAocLn46+x +9dtD6M9jGdAifmj8bykO6s3TEFY7y4CIBplUAWkOqkKiYd/zGNA5dvWCPPax +ydnWynMMmFb2P7kFm2rXesTkIgNqKg+veGDn8NA4joUMMK2V1izB3hV9vS+p +ggHK4uO+RjIcpKh4wsiyigGx2RTKbuzZ9uhzfDUMeFUcVOmDXayJHHPqGFB6 +2CQsFXtpYKC55BEDipT7ZZqx7zko3HrdxoB8vlhPoHDQ6UVe/vPtDEiWSqlz +xg65Nb7Pp5MBwdKZ44HY4qsfKXztws+jI38sFTvysXfuwgcGuH+KkHmArab9 +d6I6kwGUqba96rIctNh7uOe/MQaE96q4bMPuzmToVX9nQMogTdMS+8iIwbgp +icfLFwZ7YX8q6AlwnmGAxaeXwiew8wUlbJJXEVBXOmL+BbuRM+CXwEeA4f5I +MRb2t4HyuCh+AtRzw+oWsC3uWV8PWUuAlHR1pLgc/t6Ck37ZSxDwI8ax1Bxb +3MFG0kaKgHYX81822ObGklpImgC/g7mqLthnRSs89eUIMItjfKFxrz8aqlVQ +IaDvTZnmSWyirKJNWo2AaOsSnnzu/WcPDYlpEDAaslR+mTsfISW6WosASbuW +mDvc61K2YaQeAYX5Sc3t2I+WpdLGqDhf0lLxLTbzv+ELwwYE2Gh42/dhmzUn +t7wzIeDu/izpb9hfI6uUngDuf74umkeeg9Z5pxg+2EnA2hv8zgLYpla7HWqt +CRC6XbYsjJ0j9+VQ2W4CIno6X8tgN6yuPltkT4BGgduUAvboVMo/lxwIyLim +NqyMbfJC+n22CwGa7FKqNnZI7ZeJ424EzEi4n9+CnX21mvcvdwKSZB1eULG/ +xNnpJXoTIN60/ooZtmigjG2MLwEjQV+3W3Lz7EYDIvwJGCcXa3Zwx288fDow +mIAY8V+Cu7l9hOyLvUMIYPaNTthz8+ZkHrrRCTg2K3HdkZs3MtrlQBDQuyZT +3YWb11kztiuMgITnFofcuP0eHF6CCAKWBk0K3bn5xfbrzSMJEBM/dM6Tm59N +0TGMIiBQbsnbm5uf9HXH1hgCCp61snywRei13lpxBBx53+Xuh23sfCRaLYGA +7k1Kp/25+WZ7shQTCfDPq84LwD6jIXuNkkTAz+mMsEDs++LMOolkApJ1rogF +YY/8qm0XTiWgU2cui2uRb0dG+I8Q8PZL3muujd7u+bmSRsAJ29gxrv8P1Dfq +lg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5986424829233534, 1.5968711170700145`}}, + "PlotRange" -> {{0, 180}, {0.8812213789959555, 1.1314391137752597`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5986424829233548}, + "AxesOrigin" -> {0, 0.8812213789959575}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -6638,7 +6568,8 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5986424829233548}, + AxesOrigin->{0, 0.8812213789959575}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -6666,7 +6597,8 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5986424829233534, 1.5968711170700145`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.8812213789959555, 1.1314391137752597`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -6674,9 +6606,8 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991339493274267*^9}, - CellLabel-> - "Out[334]=",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] + CellChangeTimes->{3.991339493274267*^9, 3.994256514236837*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"bde19bad-b163-46e0-9219-aaa3dac29561"] }, Open ]], Cell[CellGroupData[{ @@ -6739,262 +6670,157 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849724783457*^9},ExpressionUUID->"6e33cb28-ef1e-1547-b52d-\ -2171e7786920"], + CellChangeTimes->{3.991849724783457*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2261575897868585`*^-267\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.1441724119359034`*^-278\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, 9, + 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339493498577*^9, 3.994256514787458*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"a6ae2433-e74f-4fe2-9b4b-71133b5442f4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.651677222123342`*^-291\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, + 10, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339493498577*^9, 3.9942565147955837`*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"7569f0d3-10eb-42f5-9cee-42a4e82b489c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8621168511402465`*^-303\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 335, - 333, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339493498577*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 95, + 11, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339493498577*^9, 3.994256514803483*^9}, CellLabel-> "During evaluation of \ -In[335]:=",ExpressionUUID->"53d31480-3c5e-ef4a-987b-a232cf0b03f3"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.273330099721687`*^-279\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 335, 334, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339493508564*^9}, - CellLabel-> - "During evaluation of \ -In[335]:=",ExpressionUUID->"b7d94271-16f1-6346-b579-21279019eafb"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.013344112917215`*^-290\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 335, 335, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339493517563*^9}, - CellLabel-> - "During evaluation of \ -In[335]:=",ExpressionUUID->"bfaea4b0-a812-1847-9911-9291b70d2c8f"], +In[95]:=",ExpressionUUID->"6e2b77a5-13cf-4bad-a271-7105003c4218"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 335, 336, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339493525564*^9}, +during this calculation.\"", 2, 95, 12, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339493498577*^9, 3.994256514812069*^9}, CellLabel-> "During evaluation of \ -In[335]:=",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], +In[95]:=",ExpressionUUID->"f89d3d2d-4ee4-4245-9ba7-4c4fbc29fd18"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S -UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ -f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP -IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w -4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF -SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC -tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S -r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY -IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm -WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE -b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n -cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA -7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc -HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 -uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG -e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW -g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh -tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E -bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb -36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf -HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf -sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 -fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 -4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q -bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH -czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F -fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb -wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 -PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O -f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 -+p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f -7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 -sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK -TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 -tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp -9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv -AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 -vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz -83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw -sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j -76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy -GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih -ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ -miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO -4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH -vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT -/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY -kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 -O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA -OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB -POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR -4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd -ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd -BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na -AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB -SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC -EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C -QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ -FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB -U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ -FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX -dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm -b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT -mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI -RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U -6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e -j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b -6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 -zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC -rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn -uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F -cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk -RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU -XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD -f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 -vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT -pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy -ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR -6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 -wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r -l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY -tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR -k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z -FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO -wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz -hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ -y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq -XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh -KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK -F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO -bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF -9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK -itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN -qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 -iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS -Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 -OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu -x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 -urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM -EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh -7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh -Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q -mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe -XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS -+Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU -25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw -QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T -BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk -uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k -dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP -y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 -LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 -IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 -rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE -AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 -QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 -aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr -rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf -pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f -5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte -W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 -punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh -3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI -IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB -UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 -CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh -ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St -63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K -Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar -5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z -YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 -t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 -wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a -+b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w -7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS -rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN -D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ -HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp -MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j -Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 -hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT -PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke -Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE -TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz -8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 -wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO -zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs -N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO -2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ -+Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR -WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax -kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl -F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY -1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU -4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ -PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d -HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY -RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma -X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ -IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu -h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D -S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 -e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv -DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ -6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 -8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw -nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L -MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 -l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I -nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW -59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op -cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy -la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK -eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 -ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD -1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q -eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY -9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM -8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu -9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR -D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK -06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde -JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK -7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV -dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 -pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr -Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk -9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 -lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o -xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su -YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l -IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i -AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 -A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk01dsXAHAh1CvJUIZM173fa0oIZbj2Fo/MjcILlagQjTJPZRZCkRCS +4X5voYEoQ4aSBpGXoVKhXsk8ZKr8vr8/vuusz1rnfNc5Z+29z5Y/5LPLjZuL +i+sP9f1//Nn3rIkeX2AooWxsyojVNuzMEfc36o6AD0vfYvGxCKBY2yHx7hR4 +OT0qI/pYAXx3sLt4uvPB2Ul883z9Zlg7uj5lvusOWOV+HeiuN4aPj2x8prsa +4MsTPfvg+t1gSh/6MNHVAYypdCFanSvMd225PN7VD1wfE8zrqk5Do3FRQXv+ +FEwvcatsPnsBNnys+npI9TfsKtTT01NJBFEvFza/MQ9eaTM68KMyFVI0TB/a +7BXAPFl1R/ekDOjJUK+fEFqNRLcL88OHLIgvCG3jlliLfqcW9W7m5cL6tIHY +1GwR9FMoHz+enw/Re8wNO36KYXRq6uXHDgVwWjfP5VmEOI66jbY4ChSCydhC +gPeAJL4/kuo87lUE4QY7D0pulcYRp8A0k5xi2O6cM7llmzTK8x0zWXOjGATD +fpzfayWNJtWihW+LiiGrMbIw+YA0CtkVBf9TXgwPLKp/8MVKo8zt776spmIY +t1fwneqRRrRrdTr0vRicz87EvQiUwWOiZyLUNEpA7/bVeyF1sjhtcubek4oS +MOl69Xu0RRb/fbMs06+6BGy4eM1cOmRx8+t/LzNrS8B1l3cPfJFFq4n1r4Oa +S8A0UD40bLkczqukWvN2lsAJ2Z83jFTksPRh1qHo8RJoOnJ9pNFXDgvvfGlw +YrLB/JeucFCgHFZ9rHG5o8yGV8mdOlphcigVLCHMq8aGnqoVYQWxcsjn4V6Z +o8WG0b/OCEdmyeF25ybeciM2iJdt32LaIIfBhpWl5v+wwWtuIqxltTy6nbCN +t0xgg95J93VfheVRgxEdE5HEBoGhXpJHXB61IwwlK1LYcPNd41tDmjzOJCcv +Cl9lQ1/tZdX7OvJ4Nq74wY2bbLCN1O3Oc5FHrw5NHflaNmgKh28KLJdHfm2W ++sVhNnDFzzRlVMhj38CpRbsxav88Ho4VD+VxLe9NF+lJNnjO7IqcaJZH+601 +U9dn2VDQTX93pFcebxRK7gjiJmHd9ZaoPTw0jF/9gC9lPQnzKkJ9G/fS8KkT +17wmkPAzWzJ8syMNVe5rG0cakTC9hkHXdaGh1u5Zq05jEkandD1MjtHQfj+R +e3Q7Cf0PXX86BtPQyDzaymMnCa2WlYIxN2k47LQw336IhExPZ+ifoaGZstwt +rfMkpH842v/fAg0Vsr6dlo0kIc32dOTIEg2D3PJ4+KNJSNwc83xuhQI6quuG +vogjIWKxfN8aGQWMDT43rp5Cgmf88hMGpgqYcatd4EAuCQYkJ/fKFQX0zhfM +dqgm4Z0cef3vawp4fW5UqukhCQFXSnKmryvgYKBqj0oNCZXhhVm7Sqj1h4WE +pupI0LTPzRB8pIC6J176HWgmQWl5WnLUZwV8cVokorKNhJaAlCTtrwqYnLp5 +zc/XJLiPJycODikgTUXxk0YHCQXvLiZsm1bAvohFm7xOEuTuRMf84aOjdtM/ +Hi491H27BIb5qtLRV+bHd/t+Eu53+ocyNOg4e2T8o+cACXss/EI6tel4fPCW +bNAgCSnaZ4M0gY5C893BaV9JWL3Kx290Jx2NdB/WFQyRwFt16IT7OTpONrmV +G0+ScEPtoI9YEB1TFEtOqkyRsK3AxbspjI7lNpPhQtMkhCbt96LF0VEieEta +xwwJC252R/uy6CgpuSZeZ56ECWGLA3YNdLyVsUM2ZImEbi/aa4+ndKRVvRq1 +4OJA/ZMFCH1Bx/bOoSzRZRxIDiBli9/SsS9KMz2HmwPq/as+zg/RUbEnTeTi +cg6IG3yxERyn5guk/Yd8HOC6UlNLm6GjtSU7Z4Jym7l3juUSHZWeHHpgLsAB +7/I2p2wRBrKShNidKzlg91fxy3JxBn681F7o8xcHDN3CWE+kGRg1bhLPv4oD +qyU0pMeYDAzxyVyttpoDnLCU92hAzY85L2C3hgNpvR5We40Y+KvNbnc35SAt +40fHTBlYevhq3D4hDlh+m7qWsoOByW2d9VZrOTBku/efwcMMrJmSchIW4UBH +ycbnc8cY+MzGaUMQ5WoePv3VPgw8xzf8op9ybGWFpI4/A1PNPXiLRDlwYm1S +nEUIA3P90hN4xThg73lkwfk8A3ksLwq4UFaUFe+NvsjA8tLdfSvXcUDIf9w8 +K4WBn0bddPdTnutoqSpLZ2COclMcm3JLlP/VnjwGTp8eETZcz4GyTztXjBYy +8LnaH4vzlDP0lP25OQyUwK+BzZSPjPbaq1Qw8K7Oy1YU54DN9rst8JCBN+rF +hvwp6+THb91Tz8Da7y28ZZRlfrkWH21moFNdgtQAZT47A/HgVgYef8G/SUSC +A6OlojGX2hi4WuIzIOW3K0Zmb3Yy0EK53saDcmFNdterPgZyyagfu085cb2v +2cAAA9/4Cfu+pex70qZy9hsD3WOyz09Tdn5OMFeNUusNA1PWSHLgb8bSFbkp +Btry291gUlYN7eLTnmMgPu+uMKAs2lPqa/6bgbHDt1/aUP6lGfPViZvAZdsv +fHOiPJhwwO4UP4FpWssFPCh7D6nS1FcR+MInq/gU5Vmz+ZERIQKhfm+5H+Ww +m81VpBiBD4/U0oIor+RJiTwmSeAPnsO//++0A847mbIEiiR2GgVSlq5Vlv6i +QOBnx5xxX8qFUrPf8hUJNJLcsfIEZXX/xnsHNhIo1eWX5E65+m1SmIwmgcRs +UZgjZWOt/VbvdQis1jveZ0n5xSVF8Ux9AmMe2ZfoUbYbmx7YhwQGTix8Jih/ +snpcKvY3gWeKB2OEKHuwLwa+MSdQZmVRzix1f9P8jmaXbAiszHij8J5ysBsh +YrubwK5Nv8RrKfM1TvatsifQkPduSDblZLk6dut+AotvxO0NoCwZEu8bc5DA +89NiOXsoF7zbt83UncDX2t/sVSmr6dIFeT2p8/5Ji1pGufLKeM9jH+o8UMbs +pOKjdWfsSZY/gScyzz85SXlP6V7WYjCBopZuzQaUP6yiraiKILApW0BvOeXx +p9W5WgkE9oj8iEqk4nOd4XCbynUC9fNT6iKo+M699uDa9xsEhrtMBulSVpq/ +cKSomMA/jq33Rqh8MbgnvUS7Q+BSlckVG8quyrZqks3Ufo7La0xS+TccLbXQ +9YzApxJLHWmUfb/813z5FYFVC3LTWpTjcsOc1nYTOJqaXXFcmMqfdXcSBH5Q ++5sOt35M5b/emRD7J2NU/DyLWrCl3NhuQb8wTf2vokzlPVUv3iYMPFz6TWCC +59CGEUEq/rjFfvwUYqKw0N9WE1T9MR87Z/5Fh4kaO2Q9zlP1a4OGTJSAAROz +V0o1fuCn8udUU4OKERMTvGxZ2pTTfgoZnLJkYp90TsY7qj72/S5RW3JhIndk +4jI+Hg6cWvVeRCKWiY9fTu3u+EWCiU3EDoNEJr4DZ9rSIgnrkxUvuqQyUfyk +vKwS5UciZ/kKs5m44qhA0RmqfvNJCc5r3mHitbPP+Yeo+p6phH1W75i4/9iK +VptRErw8v0qe+MREMm2832aEBLiVsC/1CxPlaiq3WA2TMKje87pnjIkffPZm +GFLvi9rWU43uvIpYlTBmzU29P42mBcVhGxVx5acBK74PJAy7Cpy+F6qIhItZ +Hd8zqh/IMampu6CIXN5V2yuekjDWE8b/PFYRJ/Tqtrk+IWHSdv7a51RFHPkz +EX+/kYRZ/aEmwWJF5HGej9OvJYFb9MW6Y68V8bNC7a+Xd0iQaEqqlpZXwtqb +kS3CmSRILj3nVSKUMLL3gvCpDBI26AnYaqkooXH6X99fXSFBpixswEJbCcsL +jCA8lQR61slVfuZKKHbaqaQlgQT1M7udO04qYYFhAWsghKT68/Xc0Q1KOBfa +X2t9kITvh8yK9Z8q4ZShYXS4CwkJeedsxp8rIVFTb3rXiYQ3Mt2ZDv8qYX2/ +3m0hRxIOSFzdrPpNCePdRLXu7iLBX1DKrX21Mppd9m1Kp/ojzpxMi5SDMj6y +/mg+qECC8EsisWxMGZ9rr1u638eGP2PqN1unlfGemY2FwXs2DAnrPxqcV8ZQ +zj7P+h42NNjbDonzqqC63BfNhk42nB48ZxouroINBxWmyVY2dC62/NlppILx +suflJSrYkK7s6TOVooLJGlLGB+PZsCGmdIeOjiqu9BWY/7yJDRkqukIiRzZi +QYbQi6kTJdAqaaQ9dUkN7QhzGdXrxaC3oSF509tNGJv2ZUmksAgEefLPHIxQ +x0o+e8YUpxBkwmUNHAgNLDIqTcpPvgkrGPsrdj3VQJkTktdeeheAGkui9JyT +Jl4evuYn6XgDTvUJN1pwbca2UT5XB+V8GJtK2GuesRkTTX61SwvmgdmmJ5nm +G7UwemPFsPfkdaid0l+cfaWFvHOaeYr52eCtqtnb7qaNielzPnmR14A1erjT +YYUOtt8hf9+2ugp/08WtV+frYMgTvRB3q3RQDIvza9iyBbX+W+5j6nEZlN10 +6xi9W7Bzu4h1/7lUcKs9euHeya3I80z+NdZdgrrczsMTYrrItTWm1HAxCaaL +l2Y3Vepi6xcJP5mGBHBlkCsyrfVwkJbNPDMdCxPKqTp3xvWQ5Xb9dTstGh4U +LH6eidFHzh8n8SP3L4CjiQLqyxhgSHAzt8CFCJA6Hl2lVm+ARbdDtzTZhYHY +Sq9y630s1GSIb2hfCIIC4+CAcQcWXoqv+yjyIwg0gxONU/ez8O3SM1und0Fg +M172b/dBFiYm9ajxPgqCqLcz865eLFzZGlqTFxwEc/mh2wLCWfjprki9JHcQ +9OqnvikkWdhcJu0wvyYQjp4tyDK/zcIL8oO5gssC4eft+27DZSyc35B/SHky +AIRp3bMaFSx08Ey3PtsZAJYC0htq6llo+2xnmv3VAHjUWXj4zb8s7BUZC9hN +DwALwQcbfbtZOOMQkNsmFgDdZs9+ir9joYzNOmIXfwBMV/+Icf7EQpu1cxYe +Q/6wMU/91vchFm4uSn35tcwfHvUa+SaMsLC/o6v5cr4/WIjuhk3jLHxNF15r +meYP7tFn28/MsHD8dufVlnP+MF0flbl+joUL5Ws7k4/5Q8RCumv1Agv3nLrt +6PKPPwhplag6/WZh0TFeVS1rf8g5Xj2ztMRC/3tepmvAH/4HKC0mMw== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7008,221 +6834,113 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S -UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ -f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP -IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w -4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF -SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC -tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S -r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY -IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm -WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE -b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n -cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA -7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc -HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 -uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG -e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW -g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh -tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E -bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb -36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf -HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf -sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 -fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 -4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q -bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH -czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F -fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb -wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 -PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O -f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 -+p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f -7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 -sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK -TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 -tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp -9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv -AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 -vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz -83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw -sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j -76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy -GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih -ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ -miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO -4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH -vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT -/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY -kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 -O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA -OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB -POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR -4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd -ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd -BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na -AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB -SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC -EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C -QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ -FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB -U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ -FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX -dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm -b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT -mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI -RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U -6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e -j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b -6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 -zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC -rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn -uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F -cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk -RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU -XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD -f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 -vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT -pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy -ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR -6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 -wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r -l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY -tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR -k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z -FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO -wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz -hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ -y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq -XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh -KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK -F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO -bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF -9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK -itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN -qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 -iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS -Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 -OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu -x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 -urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM -EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh -7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh -Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q -mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe -XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS -+Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU -25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw -QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T -BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk -uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k -dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP -y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 -LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 -IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 -rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE -AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 -QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 -aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr -rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf -pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f -5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte -W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 -punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh -3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI -IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB -UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 -CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh -ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St -63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K -Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar -5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z -YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 -t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 -wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a -+b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w -7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS -rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN -D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ -HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp -MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j -Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 -hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT -PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke -Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE -TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz -8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 -wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO -zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs -N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO -2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ -+Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR -WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax -kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl -F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY -1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU -4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ -PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d -HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY -RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma -X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ -IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu -h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D -S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 -e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv -DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ -6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 -8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw -nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L -MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 -l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I -nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW -59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op -cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy -la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK -eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 -ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD -1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q -eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY -9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM -8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu -9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR -D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK -06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde -JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK -7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV -dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 -pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr -Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk -9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 -lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o -xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su -YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l -IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i -AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 -A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== +1:eJwV1nk01dsXAHAh1CvJUIZM173fa0oIZbj2Fo/MjcILlagQjTJPZRZCkRCS +4X5voYEoQ4aSBpGXoVKhXsk8ZKr8vr8/vuusz1rnfNc5Z+29z5Y/5LPLjZuL +i+sP9f1//Nn3rIkeX2AooWxsyojVNuzMEfc36o6AD0vfYvGxCKBY2yHx7hR4 +OT0qI/pYAXx3sLt4uvPB2Ul883z9Zlg7uj5lvusOWOV+HeiuN4aPj2x8prsa +4MsTPfvg+t1gSh/6MNHVAYypdCFanSvMd225PN7VD1wfE8zrqk5Do3FRQXv+ +FEwvcatsPnsBNnys+npI9TfsKtTT01NJBFEvFza/MQ9eaTM68KMyFVI0TB/a +7BXAPFl1R/ekDOjJUK+fEFqNRLcL88OHLIgvCG3jlliLfqcW9W7m5cL6tIHY +1GwR9FMoHz+enw/Re8wNO36KYXRq6uXHDgVwWjfP5VmEOI66jbY4ChSCydhC +gPeAJL4/kuo87lUE4QY7D0pulcYRp8A0k5xi2O6cM7llmzTK8x0zWXOjGATD +fpzfayWNJtWihW+LiiGrMbIw+YA0CtkVBf9TXgwPLKp/8MVKo8zt776spmIY +t1fwneqRRrRrdTr0vRicz87EvQiUwWOiZyLUNEpA7/bVeyF1sjhtcubek4oS +MOl69Xu0RRb/fbMs06+6BGy4eM1cOmRx8+t/LzNrS8B1l3cPfJFFq4n1r4Oa +S8A0UD40bLkczqukWvN2lsAJ2Z83jFTksPRh1qHo8RJoOnJ9pNFXDgvvfGlw +YrLB/JeucFCgHFZ9rHG5o8yGV8mdOlphcigVLCHMq8aGnqoVYQWxcsjn4V6Z +o8WG0b/OCEdmyeF25ybeciM2iJdt32LaIIfBhpWl5v+wwWtuIqxltTy6nbCN +t0xgg95J93VfheVRgxEdE5HEBoGhXpJHXB61IwwlK1LYcPNd41tDmjzOJCcv +Cl9lQ1/tZdX7OvJ4Nq74wY2bbLCN1O3Oc5FHrw5NHflaNmgKh28KLJdHfm2W ++sVhNnDFzzRlVMhj38CpRbsxav88Ho4VD+VxLe9NF+lJNnjO7IqcaJZH+601 +U9dn2VDQTX93pFcebxRK7gjiJmHd9ZaoPTw0jF/9gC9lPQnzKkJ9G/fS8KkT +17wmkPAzWzJ8syMNVe5rG0cakTC9hkHXdaGh1u5Zq05jEkandD1MjtHQfj+R +e3Q7Cf0PXX86BtPQyDzaymMnCa2WlYIxN2k47LQw336IhExPZ+ifoaGZstwt +rfMkpH842v/fAg0Vsr6dlo0kIc32dOTIEg2D3PJ4+KNJSNwc83xuhQI6quuG +vogjIWKxfN8aGQWMDT43rp5Cgmf88hMGpgqYcatd4EAuCQYkJ/fKFQX0zhfM +dqgm4Z0cef3vawp4fW5UqukhCQFXSnKmryvgYKBqj0oNCZXhhVm7Sqj1h4WE +pupI0LTPzRB8pIC6J176HWgmQWl5WnLUZwV8cVokorKNhJaAlCTtrwqYnLp5 +zc/XJLiPJycODikgTUXxk0YHCQXvLiZsm1bAvohFm7xOEuTuRMf84aOjdtM/ +Hi491H27BIb5qtLRV+bHd/t+Eu53+ocyNOg4e2T8o+cACXss/EI6tel4fPCW +bNAgCSnaZ4M0gY5C893BaV9JWL3Kx290Jx2NdB/WFQyRwFt16IT7OTpONrmV +G0+ScEPtoI9YEB1TFEtOqkyRsK3AxbspjI7lNpPhQtMkhCbt96LF0VEieEta +xwwJC252R/uy6CgpuSZeZ56ECWGLA3YNdLyVsUM2ZImEbi/aa4+ndKRVvRq1 +4OJA/ZMFCH1Bx/bOoSzRZRxIDiBli9/SsS9KMz2HmwPq/as+zg/RUbEnTeTi +cg6IG3yxERyn5guk/Yd8HOC6UlNLm6GjtSU7Z4Jym7l3juUSHZWeHHpgLsAB +7/I2p2wRBrKShNidKzlg91fxy3JxBn681F7o8xcHDN3CWE+kGRg1bhLPv4oD +qyU0pMeYDAzxyVyttpoDnLCU92hAzY85L2C3hgNpvR5We40Y+KvNbnc35SAt +40fHTBlYevhq3D4hDlh+m7qWsoOByW2d9VZrOTBku/efwcMMrJmSchIW4UBH +ycbnc8cY+MzGaUMQ5WoePv3VPgw8xzf8op9ybGWFpI4/A1PNPXiLRDlwYm1S +nEUIA3P90hN4xThg73lkwfk8A3ksLwq4UFaUFe+NvsjA8tLdfSvXcUDIf9w8 +K4WBn0bddPdTnutoqSpLZ2COclMcm3JLlP/VnjwGTp8eETZcz4GyTztXjBYy +8LnaH4vzlDP0lP25OQyUwK+BzZSPjPbaq1Qw8K7Oy1YU54DN9rst8JCBN+rF +hvwp6+THb91Tz8Da7y28ZZRlfrkWH21moFNdgtQAZT47A/HgVgYef8G/SUSC +A6OlojGX2hi4WuIzIOW3K0Zmb3Yy0EK53saDcmFNdterPgZyyagfu085cb2v +2cAAA9/4Cfu+pex70qZy9hsD3WOyz09Tdn5OMFeNUusNA1PWSHLgb8bSFbkp +Btry291gUlYN7eLTnmMgPu+uMKAs2lPqa/6bgbHDt1/aUP6lGfPViZvAZdsv +fHOiPJhwwO4UP4FpWssFPCh7D6nS1FcR+MInq/gU5Vmz+ZERIQKhfm+5H+Ww +m81VpBiBD4/U0oIor+RJiTwmSeAPnsO//++0A847mbIEiiR2GgVSlq5Vlv6i +QOBnx5xxX8qFUrPf8hUJNJLcsfIEZXX/xnsHNhIo1eWX5E65+m1SmIwmgcRs +UZgjZWOt/VbvdQis1jveZ0n5xSVF8Ux9AmMe2ZfoUbYbmx7YhwQGTix8Jih/ +snpcKvY3gWeKB2OEKHuwLwa+MSdQZmVRzix1f9P8jmaXbAiszHij8J5ysBsh +YrubwK5Nv8RrKfM1TvatsifQkPduSDblZLk6dut+AotvxO0NoCwZEu8bc5DA +89NiOXsoF7zbt83UncDX2t/sVSmr6dIFeT2p8/5Ji1pGufLKeM9jH+o8UMbs +pOKjdWfsSZY/gScyzz85SXlP6V7WYjCBopZuzQaUP6yiraiKILApW0BvOeXx +p9W5WgkE9oj8iEqk4nOd4XCbynUC9fNT6iKo+M699uDa9xsEhrtMBulSVpq/ +cKSomMA/jq33Rqh8MbgnvUS7Q+BSlckVG8quyrZqks3Ufo7La0xS+TccLbXQ +9YzApxJLHWmUfb/813z5FYFVC3LTWpTjcsOc1nYTOJqaXXFcmMqfdXcSBH5Q ++5sOt35M5b/emRD7J2NU/DyLWrCl3NhuQb8wTf2vokzlPVUv3iYMPFz6TWCC +59CGEUEq/rjFfvwUYqKw0N9WE1T9MR87Z/5Fh4kaO2Q9zlP1a4OGTJSAAROz +V0o1fuCn8udUU4OKERMTvGxZ2pTTfgoZnLJkYp90TsY7qj72/S5RW3JhIndk +4jI+Hg6cWvVeRCKWiY9fTu3u+EWCiU3EDoNEJr4DZ9rSIgnrkxUvuqQyUfyk +vKwS5UciZ/kKs5m44qhA0RmqfvNJCc5r3mHitbPP+Yeo+p6phH1W75i4/9iK +VptRErw8v0qe+MREMm2832aEBLiVsC/1CxPlaiq3WA2TMKje87pnjIkffPZm +GFLvi9rWU43uvIpYlTBmzU29P42mBcVhGxVx5acBK74PJAy7Cpy+F6qIhItZ +Hd8zqh/IMampu6CIXN5V2yuekjDWE8b/PFYRJ/Tqtrk+IWHSdv7a51RFHPkz +EX+/kYRZ/aEmwWJF5HGej9OvJYFb9MW6Y68V8bNC7a+Xd0iQaEqqlpZXwtqb +kS3CmSRILj3nVSKUMLL3gvCpDBI26AnYaqkooXH6X99fXSFBpixswEJbCcsL +jCA8lQR61slVfuZKKHbaqaQlgQT1M7udO04qYYFhAWsghKT68/Xc0Q1KOBfa +X2t9kITvh8yK9Z8q4ZShYXS4CwkJeedsxp8rIVFTb3rXiYQ3Mt2ZDv8qYX2/ +3m0hRxIOSFzdrPpNCePdRLXu7iLBX1DKrX21Mppd9m1Kp/ojzpxMi5SDMj6y +/mg+qECC8EsisWxMGZ9rr1u638eGP2PqN1unlfGemY2FwXs2DAnrPxqcV8ZQ +zj7P+h42NNjbDonzqqC63BfNhk42nB48ZxouroINBxWmyVY2dC62/NlppILx +suflJSrYkK7s6TOVooLJGlLGB+PZsCGmdIeOjiqu9BWY/7yJDRkqukIiRzZi +QYbQi6kTJdAqaaQ9dUkN7QhzGdXrxaC3oSF509tNGJv2ZUmksAgEefLPHIxQ +x0o+e8YUpxBkwmUNHAgNLDIqTcpPvgkrGPsrdj3VQJkTktdeeheAGkui9JyT +Jl4evuYn6XgDTvUJN1pwbca2UT5XB+V8GJtK2GuesRkTTX61SwvmgdmmJ5nm +G7UwemPFsPfkdaid0l+cfaWFvHOaeYr52eCtqtnb7qaNielzPnmR14A1erjT +YYUOtt8hf9+2ugp/08WtV+frYMgTvRB3q3RQDIvza9iyBbX+W+5j6nEZlN10 +6xi9W7Bzu4h1/7lUcKs9euHeya3I80z+NdZdgrrczsMTYrrItTWm1HAxCaaL +l2Y3Vepi6xcJP5mGBHBlkCsyrfVwkJbNPDMdCxPKqTp3xvWQ5Xb9dTstGh4U +LH6eidFHzh8n8SP3L4CjiQLqyxhgSHAzt8CFCJA6Hl2lVm+ARbdDtzTZhYHY +Sq9y630s1GSIb2hfCIIC4+CAcQcWXoqv+yjyIwg0gxONU/ez8O3SM1und0Fg +M172b/dBFiYm9ajxPgqCqLcz865eLFzZGlqTFxwEc/mh2wLCWfjprki9JHcQ +9OqnvikkWdhcJu0wvyYQjp4tyDK/zcIL8oO5gssC4eft+27DZSyc35B/SHky +AIRp3bMaFSx08Ey3PtsZAJYC0htq6llo+2xnmv3VAHjUWXj4zb8s7BUZC9hN +DwALwQcbfbtZOOMQkNsmFgDdZs9+ir9joYzNOmIXfwBMV/+Icf7EQpu1cxYe +Q/6wMU/91vchFm4uSn35tcwfHvUa+SaMsLC/o6v5cr4/WIjuhk3jLHxNF15r +meYP7tFn28/MsHD8dufVlnP+MF0flbl+joUL5Ws7k4/5Q8RCumv1Agv3nLrt +6PKPPwhplag6/WZh0TFeVS1rf8g5Xj2ztMRC/3tepmvAH/4HKC0mMw== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "PlotRange" -> {{0, 30}, {0., 0.05488958924434669}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7234,19 +6952,19 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "PlotRange" -> {{0, 30}, {0., 0.05488958924434669}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7260,220 +6978,112 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S -UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ -f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP -IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w -4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF -SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC -tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S -r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY -IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm -WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE -b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n -cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA -7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc -HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 -uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG -e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW -g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh -tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E -bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb -36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf -HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf -sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 -fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 -4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q -bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH -czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F -fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb -wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 -PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O -f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 -+p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f -7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 -sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK -TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 -tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp -9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv -AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 -vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz -83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw -sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j -76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy -GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih -ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ -miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO -4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH -vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT -/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY -kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 -O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA -OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB -POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR -4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd -ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd -BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na -AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB -SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC -EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C -QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ -FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB -U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ -FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX -dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm -b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT -mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI -RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U -6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e -j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b -6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 -zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC -rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn -uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F -cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk -RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU -XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD -f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 -vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT -pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy -ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR -6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 -wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r -l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY -tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR -k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z -FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO -wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz -hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ -y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq -XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh -KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK -F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO -bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF -9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK -itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN -qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 -iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS -Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 -OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu -x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 -urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM -EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh -7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh -Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q -mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe -XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS -+Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU -25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw -QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T -BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk -uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k -dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP -y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 -LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 -IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 -rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE -AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 -QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 -aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr -rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf -pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f -5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte -W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 -punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh -3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI -IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB -UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 -CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh -ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St -63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K -Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar -5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z -YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 -t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 -wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a -+b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w -7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS -rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN -D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ -HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp -MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j -Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 -hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT -PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke -Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE -TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz -8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 -wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO -zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs -N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO -2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ -+Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR -WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax -kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl -F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY -1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU -4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ -PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d -HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY -RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma -X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ -IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu -h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D -S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 -e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv -DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ -6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 -8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw -nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L -MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 -l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I -nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW -59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op -cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy -la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK -eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 -ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD -1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q -eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY -9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM -8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu -9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR -D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK -06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde -JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK -7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV -dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 -pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr -Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk -9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 -lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o -xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su -YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l -IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i -AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 -A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== +1:eJwV1nk01dsXAHAh1CvJUIZM173fa0oIZbj2Fo/MjcILlagQjTJPZRZCkRCS +4X5voYEoQ4aSBpGXoVKhXsk8ZKr8vr8/vuusz1rnfNc5Z+29z5Y/5LPLjZuL +i+sP9f1//Nn3rIkeX2AooWxsyojVNuzMEfc36o6AD0vfYvGxCKBY2yHx7hR4 +OT0qI/pYAXx3sLt4uvPB2Ul883z9Zlg7uj5lvusOWOV+HeiuN4aPj2x8prsa +4MsTPfvg+t1gSh/6MNHVAYypdCFanSvMd225PN7VD1wfE8zrqk5Do3FRQXv+ +FEwvcatsPnsBNnys+npI9TfsKtTT01NJBFEvFza/MQ9eaTM68KMyFVI0TB/a +7BXAPFl1R/ekDOjJUK+fEFqNRLcL88OHLIgvCG3jlliLfqcW9W7m5cL6tIHY +1GwR9FMoHz+enw/Re8wNO36KYXRq6uXHDgVwWjfP5VmEOI66jbY4ChSCydhC +gPeAJL4/kuo87lUE4QY7D0pulcYRp8A0k5xi2O6cM7llmzTK8x0zWXOjGATD +fpzfayWNJtWihW+LiiGrMbIw+YA0CtkVBf9TXgwPLKp/8MVKo8zt776spmIY +t1fwneqRRrRrdTr0vRicz87EvQiUwWOiZyLUNEpA7/bVeyF1sjhtcubek4oS +MOl69Xu0RRb/fbMs06+6BGy4eM1cOmRx8+t/LzNrS8B1l3cPfJFFq4n1r4Oa +S8A0UD40bLkczqukWvN2lsAJ2Z83jFTksPRh1qHo8RJoOnJ9pNFXDgvvfGlw +YrLB/JeucFCgHFZ9rHG5o8yGV8mdOlphcigVLCHMq8aGnqoVYQWxcsjn4V6Z +o8WG0b/OCEdmyeF25ybeciM2iJdt32LaIIfBhpWl5v+wwWtuIqxltTy6nbCN +t0xgg95J93VfheVRgxEdE5HEBoGhXpJHXB61IwwlK1LYcPNd41tDmjzOJCcv +Cl9lQ1/tZdX7OvJ4Nq74wY2bbLCN1O3Oc5FHrw5NHflaNmgKh28KLJdHfm2W ++sVhNnDFzzRlVMhj38CpRbsxav88Ho4VD+VxLe9NF+lJNnjO7IqcaJZH+601 +U9dn2VDQTX93pFcebxRK7gjiJmHd9ZaoPTw0jF/9gC9lPQnzKkJ9G/fS8KkT +17wmkPAzWzJ8syMNVe5rG0cakTC9hkHXdaGh1u5Zq05jEkandD1MjtHQfj+R +e3Q7Cf0PXX86BtPQyDzaymMnCa2WlYIxN2k47LQw336IhExPZ+ifoaGZstwt +rfMkpH842v/fAg0Vsr6dlo0kIc32dOTIEg2D3PJ4+KNJSNwc83xuhQI6quuG +vogjIWKxfN8aGQWMDT43rp5Cgmf88hMGpgqYcatd4EAuCQYkJ/fKFQX0zhfM +dqgm4Z0cef3vawp4fW5UqukhCQFXSnKmryvgYKBqj0oNCZXhhVm7Sqj1h4WE +pupI0LTPzRB8pIC6J176HWgmQWl5WnLUZwV8cVokorKNhJaAlCTtrwqYnLp5 +zc/XJLiPJycODikgTUXxk0YHCQXvLiZsm1bAvohFm7xOEuTuRMf84aOjdtM/ +Hi491H27BIb5qtLRV+bHd/t+Eu53+ocyNOg4e2T8o+cACXss/EI6tel4fPCW +bNAgCSnaZ4M0gY5C893BaV9JWL3Kx290Jx2NdB/WFQyRwFt16IT7OTpONrmV +G0+ScEPtoI9YEB1TFEtOqkyRsK3AxbspjI7lNpPhQtMkhCbt96LF0VEieEta +xwwJC252R/uy6CgpuSZeZ56ECWGLA3YNdLyVsUM2ZImEbi/aa4+ndKRVvRq1 +4OJA/ZMFCH1Bx/bOoSzRZRxIDiBli9/SsS9KMz2HmwPq/as+zg/RUbEnTeTi +cg6IG3yxERyn5guk/Yd8HOC6UlNLm6GjtSU7Z4Jym7l3juUSHZWeHHpgLsAB +7/I2p2wRBrKShNidKzlg91fxy3JxBn681F7o8xcHDN3CWE+kGRg1bhLPv4oD +qyU0pMeYDAzxyVyttpoDnLCU92hAzY85L2C3hgNpvR5We40Y+KvNbnc35SAt +40fHTBlYevhq3D4hDlh+m7qWsoOByW2d9VZrOTBku/efwcMMrJmSchIW4UBH +ycbnc8cY+MzGaUMQ5WoePv3VPgw8xzf8op9ybGWFpI4/A1PNPXiLRDlwYm1S +nEUIA3P90hN4xThg73lkwfk8A3ksLwq4UFaUFe+NvsjA8tLdfSvXcUDIf9w8 +K4WBn0bddPdTnutoqSpLZ2COclMcm3JLlP/VnjwGTp8eETZcz4GyTztXjBYy +8LnaH4vzlDP0lP25OQyUwK+BzZSPjPbaq1Qw8K7Oy1YU54DN9rst8JCBN+rF +hvwp6+THb91Tz8Da7y28ZZRlfrkWH21moFNdgtQAZT47A/HgVgYef8G/SUSC +A6OlojGX2hi4WuIzIOW3K0Zmb3Yy0EK53saDcmFNdterPgZyyagfu085cb2v +2cAAA9/4Cfu+pex70qZy9hsD3WOyz09Tdn5OMFeNUusNA1PWSHLgb8bSFbkp +Btry291gUlYN7eLTnmMgPu+uMKAs2lPqa/6bgbHDt1/aUP6lGfPViZvAZdsv +fHOiPJhwwO4UP4FpWssFPCh7D6nS1FcR+MInq/gU5Vmz+ZERIQKhfm+5H+Ww +m81VpBiBD4/U0oIor+RJiTwmSeAPnsO//++0A847mbIEiiR2GgVSlq5Vlv6i +QOBnx5xxX8qFUrPf8hUJNJLcsfIEZXX/xnsHNhIo1eWX5E65+m1SmIwmgcRs +UZgjZWOt/VbvdQis1jveZ0n5xSVF8Ux9AmMe2ZfoUbYbmx7YhwQGTix8Jih/ +snpcKvY3gWeKB2OEKHuwLwa+MSdQZmVRzix1f9P8jmaXbAiszHij8J5ysBsh +YrubwK5Nv8RrKfM1TvatsifQkPduSDblZLk6dut+AotvxO0NoCwZEu8bc5DA +89NiOXsoF7zbt83UncDX2t/sVSmr6dIFeT2p8/5Ji1pGufLKeM9jH+o8UMbs +pOKjdWfsSZY/gScyzz85SXlP6V7WYjCBopZuzQaUP6yiraiKILApW0BvOeXx +p9W5WgkE9oj8iEqk4nOd4XCbynUC9fNT6iKo+M699uDa9xsEhrtMBulSVpq/ +cKSomMA/jq33Rqh8MbgnvUS7Q+BSlckVG8quyrZqks3Ufo7La0xS+TccLbXQ +9YzApxJLHWmUfb/813z5FYFVC3LTWpTjcsOc1nYTOJqaXXFcmMqfdXcSBH5Q ++5sOt35M5b/emRD7J2NU/DyLWrCl3NhuQb8wTf2vokzlPVUv3iYMPFz6TWCC +59CGEUEq/rjFfvwUYqKw0N9WE1T9MR87Z/5Fh4kaO2Q9zlP1a4OGTJSAAROz +V0o1fuCn8udUU4OKERMTvGxZ2pTTfgoZnLJkYp90TsY7qj72/S5RW3JhIndk +4jI+Hg6cWvVeRCKWiY9fTu3u+EWCiU3EDoNEJr4DZ9rSIgnrkxUvuqQyUfyk +vKwS5UciZ/kKs5m44qhA0RmqfvNJCc5r3mHitbPP+Yeo+p6phH1W75i4/9iK +VptRErw8v0qe+MREMm2832aEBLiVsC/1CxPlaiq3WA2TMKje87pnjIkffPZm +GFLvi9rWU43uvIpYlTBmzU29P42mBcVhGxVx5acBK74PJAy7Cpy+F6qIhItZ +Hd8zqh/IMampu6CIXN5V2yuekjDWE8b/PFYRJ/Tqtrk+IWHSdv7a51RFHPkz +EX+/kYRZ/aEmwWJF5HGej9OvJYFb9MW6Y68V8bNC7a+Xd0iQaEqqlpZXwtqb +kS3CmSRILj3nVSKUMLL3gvCpDBI26AnYaqkooXH6X99fXSFBpixswEJbCcsL +jCA8lQR61slVfuZKKHbaqaQlgQT1M7udO04qYYFhAWsghKT68/Xc0Q1KOBfa +X2t9kITvh8yK9Z8q4ZShYXS4CwkJeedsxp8rIVFTb3rXiYQ3Mt2ZDv8qYX2/ +3m0hRxIOSFzdrPpNCePdRLXu7iLBX1DKrX21Mppd9m1Kp/ojzpxMi5SDMj6y +/mg+qECC8EsisWxMGZ9rr1u638eGP2PqN1unlfGemY2FwXs2DAnrPxqcV8ZQ +zj7P+h42NNjbDonzqqC63BfNhk42nB48ZxouroINBxWmyVY2dC62/NlppILx +suflJSrYkK7s6TOVooLJGlLGB+PZsCGmdIeOjiqu9BWY/7yJDRkqukIiRzZi +QYbQi6kTJdAqaaQ9dUkN7QhzGdXrxaC3oSF509tNGJv2ZUmksAgEefLPHIxQ +x0o+e8YUpxBkwmUNHAgNLDIqTcpPvgkrGPsrdj3VQJkTktdeeheAGkui9JyT +Jl4evuYn6XgDTvUJN1pwbca2UT5XB+V8GJtK2GuesRkTTX61SwvmgdmmJ5nm +G7UwemPFsPfkdaid0l+cfaWFvHOaeYr52eCtqtnb7qaNielzPnmR14A1erjT +YYUOtt8hf9+2ugp/08WtV+frYMgTvRB3q3RQDIvza9iyBbX+W+5j6nEZlN10 +6xi9W7Bzu4h1/7lUcKs9euHeya3I80z+NdZdgrrczsMTYrrItTWm1HAxCaaL +l2Y3Vepi6xcJP5mGBHBlkCsyrfVwkJbNPDMdCxPKqTp3xvWQ5Xb9dTstGh4U +LH6eidFHzh8n8SP3L4CjiQLqyxhgSHAzt8CFCJA6Hl2lVm+ARbdDtzTZhYHY +Sq9y630s1GSIb2hfCIIC4+CAcQcWXoqv+yjyIwg0gxONU/ez8O3SM1und0Fg +M172b/dBFiYm9ajxPgqCqLcz865eLFzZGlqTFxwEc/mh2wLCWfjprki9JHcQ +9OqnvikkWdhcJu0wvyYQjp4tyDK/zcIL8oO5gssC4eft+27DZSyc35B/SHky +AIRp3bMaFSx08Ey3PtsZAJYC0htq6llo+2xnmv3VAHjUWXj4zb8s7BUZC9hN +DwALwQcbfbtZOOMQkNsmFgDdZs9+ir9joYzNOmIXfwBMV/+Icf7EQpu1cxYe +Q/6wMU/91vchFm4uSn35tcwfHvUa+SaMsLC/o6v5cr4/WIjuhk3jLHxNF15r +meYP7tFn28/MsHD8dufVlnP+MF0flbl+joUL5Ws7k4/5Q8RCumv1Agv3nLrt +6PKPPwhplag6/WZh0TFeVS1rf8g5Xj2ztMRC/3tepmvAH/4HKC0mMw== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "PlotRange" -> {{0, 30}, {0., 0.05488958924434669}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7484,6 +7094,7 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -7511,7 +7122,8 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.11602348907445073`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.05488958924434669}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -7519,11 +7131,12 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991340117671425*^9}, - CellLabel-> - "Out[335]=",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] + CellChangeTimes->{3.991340117671425*^9, 3.994256969135413*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"dce62527-3097-41c0-954b-117e42b6cd3d"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", @@ -7592,15 +7205,780 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"30", ",", "0.00371"}], "}"}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, - 3.994083469012673*^9},ExpressionUUID->"2d5a8299-5376-9747-8056-\ -2bd9764114a1"], + 3.994083469012673*^9}, + CellLabel->"In[96]:=",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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->{ + "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.059883}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994256969389621*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"5d9bb473-2680-42ee-a69f-dd0365bc0656"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-\ -0ac982b58a3a"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-0ac982b58a3a"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk01dsXAHAh1CvJUIZM173fa0oIZbj2Fo/MjcILlagQjTJPZRZCkRCS +4X5voYEoQ4aSBpGXoVKhXsk8ZKr8vr8/vuusz1rnfNc5Z+29z5Y/5LPLjZuL +i+sP9f1//Nn3rIkeX2AooWxsyojVNuzMEfc36o6AD0vfYvGxCKBY2yHx7hR4 +OT0qI/pYAXx3sLt4uvPB2Ul883z9Zlg7uj5lvusOWOV+HeiuN4aPj2x8prsa +4MsTPfvg+t1gSh/6MNHVAYypdCFanSvMd225PN7VD1wfE8zrqk5Do3FRQXv+ +FEwvcatsPnsBNnys+npI9TfsKtTT01NJBFEvFza/MQ9eaTM68KMyFVI0TB/a +7BXAPFl1R/ekDOjJUK+fEFqNRLcL88OHLIgvCG3jlliLfqcW9W7m5cL6tIHY +1GwR9FMoHz+enw/Re8wNO36KYXRq6uXHDgVwWjfP5VmEOI66jbY4ChSCydhC +gPeAJL4/kuo87lUE4QY7D0pulcYRp8A0k5xi2O6cM7llmzTK8x0zWXOjGATD +fpzfayWNJtWihW+LiiGrMbIw+YA0CtkVBf9TXgwPLKp/8MVKo8zt776spmIY +t1fwneqRRrRrdTr0vRicz87EvQiUwWOiZyLUNEpA7/bVeyF1sjhtcubek4oS +MOl69Xu0RRb/fbMs06+6BGy4eM1cOmRx8+t/LzNrS8B1l3cPfJFFq4n1r4Oa +S8A0UD40bLkczqukWvN2lsAJ2Z83jFTksPRh1qHo8RJoOnJ9pNFXDgvvfGlw +YrLB/JeucFCgHFZ9rHG5o8yGV8mdOlphcigVLCHMq8aGnqoVYQWxcsjn4V6Z +o8WG0b/OCEdmyeF25ybeciM2iJdt32LaIIfBhpWl5v+wwWtuIqxltTy6nbCN +t0xgg95J93VfheVRgxEdE5HEBoGhXpJHXB61IwwlK1LYcPNd41tDmjzOJCcv +Cl9lQ1/tZdX7OvJ4Nq74wY2bbLCN1O3Oc5FHrw5NHflaNmgKh28KLJdHfm2W ++sVhNnDFzzRlVMhj38CpRbsxav88Ho4VD+VxLe9NF+lJNnjO7IqcaJZH+601 +U9dn2VDQTX93pFcebxRK7gjiJmHd9ZaoPTw0jF/9gC9lPQnzKkJ9G/fS8KkT +17wmkPAzWzJ8syMNVe5rG0cakTC9hkHXdaGh1u5Zq05jEkandD1MjtHQfj+R +e3Q7Cf0PXX86BtPQyDzaymMnCa2WlYIxN2k47LQw336IhExPZ+ifoaGZstwt +rfMkpH842v/fAg0Vsr6dlo0kIc32dOTIEg2D3PJ4+KNJSNwc83xuhQI6quuG +vogjIWKxfN8aGQWMDT43rp5Cgmf88hMGpgqYcatd4EAuCQYkJ/fKFQX0zhfM +dqgm4Z0cef3vawp4fW5UqukhCQFXSnKmryvgYKBqj0oNCZXhhVm7Sqj1h4WE +pupI0LTPzRB8pIC6J176HWgmQWl5WnLUZwV8cVokorKNhJaAlCTtrwqYnLp5 +zc/XJLiPJycODikgTUXxk0YHCQXvLiZsm1bAvohFm7xOEuTuRMf84aOjdtM/ +Hi491H27BIb5qtLRV+bHd/t+Eu53+ocyNOg4e2T8o+cACXss/EI6tel4fPCW +bNAgCSnaZ4M0gY5C893BaV9JWL3Kx290Jx2NdB/WFQyRwFt16IT7OTpONrmV +G0+ScEPtoI9YEB1TFEtOqkyRsK3AxbspjI7lNpPhQtMkhCbt96LF0VEieEta +xwwJC252R/uy6CgpuSZeZ56ECWGLA3YNdLyVsUM2ZImEbi/aa4+ndKRVvRq1 +4OJA/ZMFCH1Bx/bOoSzRZRxIDiBli9/SsS9KMz2HmwPq/as+zg/RUbEnTeTi +cg6IG3yxERyn5guk/Yd8HOC6UlNLm6GjtSU7Z4Jym7l3juUSHZWeHHpgLsAB +7/I2p2wRBrKShNidKzlg91fxy3JxBn681F7o8xcHDN3CWE+kGRg1bhLPv4oD +qyU0pMeYDAzxyVyttpoDnLCU92hAzY85L2C3hgNpvR5We40Y+KvNbnc35SAt +40fHTBlYevhq3D4hDlh+m7qWsoOByW2d9VZrOTBku/efwcMMrJmSchIW4UBH +ycbnc8cY+MzGaUMQ5WoePv3VPgw8xzf8op9ybGWFpI4/A1PNPXiLRDlwYm1S +nEUIA3P90hN4xThg73lkwfk8A3ksLwq4UFaUFe+NvsjA8tLdfSvXcUDIf9w8 +K4WBn0bddPdTnutoqSpLZ2COclMcm3JLlP/VnjwGTp8eETZcz4GyTztXjBYy +8LnaH4vzlDP0lP25OQyUwK+BzZSPjPbaq1Qw8K7Oy1YU54DN9rst8JCBN+rF +hvwp6+THb91Tz8Da7y28ZZRlfrkWH21moFNdgtQAZT47A/HgVgYef8G/SUSC +A6OlojGX2hi4WuIzIOW3K0Zmb3Yy0EK53saDcmFNdterPgZyyagfu085cb2v +2cAAA9/4Cfu+pex70qZy9hsD3WOyz09Tdn5OMFeNUusNA1PWSHLgb8bSFbkp +Btry291gUlYN7eLTnmMgPu+uMKAs2lPqa/6bgbHDt1/aUP6lGfPViZvAZdsv +fHOiPJhwwO4UP4FpWssFPCh7D6nS1FcR+MInq/gU5Vmz+ZERIQKhfm+5H+Ww +m81VpBiBD4/U0oIor+RJiTwmSeAPnsO//++0A847mbIEiiR2GgVSlq5Vlv6i +QOBnx5xxX8qFUrPf8hUJNJLcsfIEZXX/xnsHNhIo1eWX5E65+m1SmIwmgcRs +UZgjZWOt/VbvdQis1jveZ0n5xSVF8Ux9AmMe2ZfoUbYbmx7YhwQGTix8Jih/ +snpcKvY3gWeKB2OEKHuwLwa+MSdQZmVRzix1f9P8jmaXbAiszHij8J5ysBsh +YrubwK5Nv8RrKfM1TvatsifQkPduSDblZLk6dut+AotvxO0NoCwZEu8bc5DA +89NiOXsoF7zbt83UncDX2t/sVSmr6dIFeT2p8/5Ji1pGufLKeM9jH+o8UMbs +pOKjdWfsSZY/gScyzz85SXlP6V7WYjCBopZuzQaUP6yiraiKILApW0BvOeXx +p9W5WgkE9oj8iEqk4nOd4XCbynUC9fNT6iKo+M699uDa9xsEhrtMBulSVpq/ +cKSomMA/jq33Rqh8MbgnvUS7Q+BSlckVG8quyrZqks3Ufo7La0xS+TccLbXQ +9YzApxJLHWmUfb/813z5FYFVC3LTWpTjcsOc1nYTOJqaXXFcmMqfdXcSBH5Q ++5sOt35M5b/emRD7J2NU/DyLWrCl3NhuQb8wTf2vokzlPVUv3iYMPFz6TWCC +59CGEUEq/rjFfvwUYqKw0N9WE1T9MR87Z/5Fh4kaO2Q9zlP1a4OGTJSAAROz +V0o1fuCn8udUU4OKERMTvGxZ2pTTfgoZnLJkYp90TsY7qj72/S5RW3JhIndk +4jI+Hg6cWvVeRCKWiY9fTu3u+EWCiU3EDoNEJr4DZ9rSIgnrkxUvuqQyUfyk +vKwS5UciZ/kKs5m44qhA0RmqfvNJCc5r3mHitbPP+Yeo+p6phH1W75i4/9iK +VptRErw8v0qe+MREMm2832aEBLiVsC/1CxPlaiq3WA2TMKje87pnjIkffPZm +GFLvi9rWU43uvIpYlTBmzU29P42mBcVhGxVx5acBK74PJAy7Cpy+F6qIhItZ +Hd8zqh/IMampu6CIXN5V2yuekjDWE8b/PFYRJ/Tqtrk+IWHSdv7a51RFHPkz +EX+/kYRZ/aEmwWJF5HGej9OvJYFb9MW6Y68V8bNC7a+Xd0iQaEqqlpZXwtqb +kS3CmSRILj3nVSKUMLL3gvCpDBI26AnYaqkooXH6X99fXSFBpixswEJbCcsL +jCA8lQR61slVfuZKKHbaqaQlgQT1M7udO04qYYFhAWsghKT68/Xc0Q1KOBfa +X2t9kITvh8yK9Z8q4ZShYXS4CwkJeedsxp8rIVFTb3rXiYQ3Mt2ZDv8qYX2/ +3m0hRxIOSFzdrPpNCePdRLXu7iLBX1DKrX21Mppd9m1Kp/ojzpxMi5SDMj6y +/mg+qECC8EsisWxMGZ9rr1u638eGP2PqN1unlfGemY2FwXs2DAnrPxqcV8ZQ +zj7P+h42NNjbDonzqqC63BfNhk42nB48ZxouroINBxWmyVY2dC62/NlppILx +suflJSrYkK7s6TOVooLJGlLGB+PZsCGmdIeOjiqu9BWY/7yJDRkqukIiRzZi +QYbQi6kTJdAqaaQ9dUkN7QhzGdXrxaC3oSF509tNGJv2ZUmksAgEefLPHIxQ +x0o+e8YUpxBkwmUNHAgNLDIqTcpPvgkrGPsrdj3VQJkTktdeeheAGkui9JyT +Jl4evuYn6XgDTvUJN1pwbca2UT5XB+V8GJtK2GuesRkTTX61SwvmgdmmJ5nm +G7UwemPFsPfkdaid0l+cfaWFvHOaeYr52eCtqtnb7qaNielzPnmR14A1erjT +YYUOtt8hf9+2ugp/08WtV+frYMgTvRB3q3RQDIvza9iyBbX+W+5j6nEZlN10 +6xi9W7Bzu4h1/7lUcKs9euHeya3I80z+NdZdgrrczsMTYrrItTWm1HAxCaaL +l2Y3Vepi6xcJP5mGBHBlkCsyrfVwkJbNPDMdCxPKqTp3xvWQ5Xb9dTstGh4U +LH6eidFHzh8n8SP3L4CjiQLqyxhgSHAzt8CFCJA6Hl2lVm+ARbdDtzTZhYHY +Sq9y630s1GSIb2hfCIIC4+CAcQcWXoqv+yjyIwg0gxONU/ez8O3SM1und0Fg +M172b/dBFiYm9ajxPgqCqLcz865eLFzZGlqTFxwEc/mh2wLCWfjprki9JHcQ +9OqnvikkWdhcJu0wvyYQjp4tyDK/zcIL8oO5gssC4eft+27DZSyc35B/SHky +AIRp3bMaFSx08Ey3PtsZAJYC0htq6llo+2xnmv3VAHjUWXj4zb8s7BUZC9hN +DwALwQcbfbtZOOMQkNsmFgDdZs9+ir9joYzNOmIXfwBMV/+Icf7EQpu1cxYe +Q/6wMU/91vchFm4uSn35tcwfHvUa+SaMsLC/o6v5cr4/WIjuhk3jLHxNF15r +meYP7tFn28/MsHD8dufVlnP+MF0flbl+joUL5Ws7k4/5Q8RCumv1Agv3nLrt +6PKPPwhplag6/WZh0TFeVS1rf8g5Xj2ztMRC/3tepmvAH/4HKC0mMw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk01dsXAHAh1CvJUIZM173fa0oIZbj2Fo/MjcILlagQjTJPZRZCkRCS +4X5voYEoQ4aSBpGXoVKhXsk8ZKr8vr8/vuusz1rnfNc5Z+29z5Y/5LPLjZuL +i+sP9f1//Nn3rIkeX2AooWxsyojVNuzMEfc36o6AD0vfYvGxCKBY2yHx7hR4 +OT0qI/pYAXx3sLt4uvPB2Ul883z9Zlg7uj5lvusOWOV+HeiuN4aPj2x8prsa +4MsTPfvg+t1gSh/6MNHVAYypdCFanSvMd225PN7VD1wfE8zrqk5Do3FRQXv+ +FEwvcatsPnsBNnys+npI9TfsKtTT01NJBFEvFza/MQ9eaTM68KMyFVI0TB/a +7BXAPFl1R/ekDOjJUK+fEFqNRLcL88OHLIgvCG3jlliLfqcW9W7m5cL6tIHY +1GwR9FMoHz+enw/Re8wNO36KYXRq6uXHDgVwWjfP5VmEOI66jbY4ChSCydhC +gPeAJL4/kuo87lUE4QY7D0pulcYRp8A0k5xi2O6cM7llmzTK8x0zWXOjGATD +fpzfayWNJtWihW+LiiGrMbIw+YA0CtkVBf9TXgwPLKp/8MVKo8zt776spmIY +t1fwneqRRrRrdTr0vRicz87EvQiUwWOiZyLUNEpA7/bVeyF1sjhtcubek4oS +MOl69Xu0RRb/fbMs06+6BGy4eM1cOmRx8+t/LzNrS8B1l3cPfJFFq4n1r4Oa +S8A0UD40bLkczqukWvN2lsAJ2Z83jFTksPRh1qHo8RJoOnJ9pNFXDgvvfGlw +YrLB/JeucFCgHFZ9rHG5o8yGV8mdOlphcigVLCHMq8aGnqoVYQWxcsjn4V6Z +o8WG0b/OCEdmyeF25ybeciM2iJdt32LaIIfBhpWl5v+wwWtuIqxltTy6nbCN +t0xgg95J93VfheVRgxEdE5HEBoGhXpJHXB61IwwlK1LYcPNd41tDmjzOJCcv +Cl9lQ1/tZdX7OvJ4Nq74wY2bbLCN1O3Oc5FHrw5NHflaNmgKh28KLJdHfm2W ++sVhNnDFzzRlVMhj38CpRbsxav88Ho4VD+VxLe9NF+lJNnjO7IqcaJZH+601 +U9dn2VDQTX93pFcebxRK7gjiJmHd9ZaoPTw0jF/9gC9lPQnzKkJ9G/fS8KkT +17wmkPAzWzJ8syMNVe5rG0cakTC9hkHXdaGh1u5Zq05jEkandD1MjtHQfj+R +e3Q7Cf0PXX86BtPQyDzaymMnCa2WlYIxN2k47LQw336IhExPZ+ifoaGZstwt +rfMkpH842v/fAg0Vsr6dlo0kIc32dOTIEg2D3PJ4+KNJSNwc83xuhQI6quuG +vogjIWKxfN8aGQWMDT43rp5Cgmf88hMGpgqYcatd4EAuCQYkJ/fKFQX0zhfM +dqgm4Z0cef3vawp4fW5UqukhCQFXSnKmryvgYKBqj0oNCZXhhVm7Sqj1h4WE +pupI0LTPzRB8pIC6J176HWgmQWl5WnLUZwV8cVokorKNhJaAlCTtrwqYnLp5 +zc/XJLiPJycODikgTUXxk0YHCQXvLiZsm1bAvohFm7xOEuTuRMf84aOjdtM/ +Hi491H27BIb5qtLRV+bHd/t+Eu53+ocyNOg4e2T8o+cACXss/EI6tel4fPCW +bNAgCSnaZ4M0gY5C893BaV9JWL3Kx290Jx2NdB/WFQyRwFt16IT7OTpONrmV +G0+ScEPtoI9YEB1TFEtOqkyRsK3AxbspjI7lNpPhQtMkhCbt96LF0VEieEta +xwwJC252R/uy6CgpuSZeZ56ECWGLA3YNdLyVsUM2ZImEbi/aa4+ndKRVvRq1 +4OJA/ZMFCH1Bx/bOoSzRZRxIDiBli9/SsS9KMz2HmwPq/as+zg/RUbEnTeTi +cg6IG3yxERyn5guk/Yd8HOC6UlNLm6GjtSU7Z4Jym7l3juUSHZWeHHpgLsAB +7/I2p2wRBrKShNidKzlg91fxy3JxBn681F7o8xcHDN3CWE+kGRg1bhLPv4oD +qyU0pMeYDAzxyVyttpoDnLCU92hAzY85L2C3hgNpvR5We40Y+KvNbnc35SAt +40fHTBlYevhq3D4hDlh+m7qWsoOByW2d9VZrOTBku/efwcMMrJmSchIW4UBH +ycbnc8cY+MzGaUMQ5WoePv3VPgw8xzf8op9ybGWFpI4/A1PNPXiLRDlwYm1S +nEUIA3P90hN4xThg73lkwfk8A3ksLwq4UFaUFe+NvsjA8tLdfSvXcUDIf9w8 +K4WBn0bddPdTnutoqSpLZ2COclMcm3JLlP/VnjwGTp8eETZcz4GyTztXjBYy +8LnaH4vzlDP0lP25OQyUwK+BzZSPjPbaq1Qw8K7Oy1YU54DN9rst8JCBN+rF +hvwp6+THb91Tz8Da7y28ZZRlfrkWH21moFNdgtQAZT47A/HgVgYef8G/SUSC +A6OlojGX2hi4WuIzIOW3K0Zmb3Yy0EK53saDcmFNdterPgZyyagfu085cb2v +2cAAA9/4Cfu+pex70qZy9hsD3WOyz09Tdn5OMFeNUusNA1PWSHLgb8bSFbkp +Btry291gUlYN7eLTnmMgPu+uMKAs2lPqa/6bgbHDt1/aUP6lGfPViZvAZdsv +fHOiPJhwwO4UP4FpWssFPCh7D6nS1FcR+MInq/gU5Vmz+ZERIQKhfm+5H+Ww +m81VpBiBD4/U0oIor+RJiTwmSeAPnsO//++0A847mbIEiiR2GgVSlq5Vlv6i +QOBnx5xxX8qFUrPf8hUJNJLcsfIEZXX/xnsHNhIo1eWX5E65+m1SmIwmgcRs +UZgjZWOt/VbvdQis1jveZ0n5xSVF8Ux9AmMe2ZfoUbYbmx7YhwQGTix8Jih/ +snpcKvY3gWeKB2OEKHuwLwa+MSdQZmVRzix1f9P8jmaXbAiszHij8J5ysBsh +YrubwK5Nv8RrKfM1TvatsifQkPduSDblZLk6dut+AotvxO0NoCwZEu8bc5DA +89NiOXsoF7zbt83UncDX2t/sVSmr6dIFeT2p8/5Ji1pGufLKeM9jH+o8UMbs +pOKjdWfsSZY/gScyzz85SXlP6V7WYjCBopZuzQaUP6yiraiKILApW0BvOeXx +p9W5WgkE9oj8iEqk4nOd4XCbynUC9fNT6iKo+M699uDa9xsEhrtMBulSVpq/ +cKSomMA/jq33Rqh8MbgnvUS7Q+BSlckVG8quyrZqks3Ufo7La0xS+TccLbXQ +9YzApxJLHWmUfb/813z5FYFVC3LTWpTjcsOc1nYTOJqaXXFcmMqfdXcSBH5Q ++5sOt35M5b/emRD7J2NU/DyLWrCl3NhuQb8wTf2vokzlPVUv3iYMPFz6TWCC +59CGEUEq/rjFfvwUYqKw0N9WE1T9MR87Z/5Fh4kaO2Q9zlP1a4OGTJSAAROz +V0o1fuCn8udUU4OKERMTvGxZ2pTTfgoZnLJkYp90TsY7qj72/S5RW3JhIndk +4jI+Hg6cWvVeRCKWiY9fTu3u+EWCiU3EDoNEJr4DZ9rSIgnrkxUvuqQyUfyk +vKwS5UciZ/kKs5m44qhA0RmqfvNJCc5r3mHitbPP+Yeo+p6phH1W75i4/9iK +VptRErw8v0qe+MREMm2832aEBLiVsC/1CxPlaiq3WA2TMKje87pnjIkffPZm +GFLvi9rWU43uvIpYlTBmzU29P42mBcVhGxVx5acBK74PJAy7Cpy+F6qIhItZ +Hd8zqh/IMampu6CIXN5V2yuekjDWE8b/PFYRJ/Tqtrk+IWHSdv7a51RFHPkz +EX+/kYRZ/aEmwWJF5HGej9OvJYFb9MW6Y68V8bNC7a+Xd0iQaEqqlpZXwtqb +kS3CmSRILj3nVSKUMLL3gvCpDBI26AnYaqkooXH6X99fXSFBpixswEJbCcsL +jCA8lQR61slVfuZKKHbaqaQlgQT1M7udO04qYYFhAWsghKT68/Xc0Q1KOBfa +X2t9kITvh8yK9Z8q4ZShYXS4CwkJeedsxp8rIVFTb3rXiYQ3Mt2ZDv8qYX2/ +3m0hRxIOSFzdrPpNCePdRLXu7iLBX1DKrX21Mppd9m1Kp/ojzpxMi5SDMj6y +/mg+qECC8EsisWxMGZ9rr1u638eGP2PqN1unlfGemY2FwXs2DAnrPxqcV8ZQ +zj7P+h42NNjbDonzqqC63BfNhk42nB48ZxouroINBxWmyVY2dC62/NlppILx +suflJSrYkK7s6TOVooLJGlLGB+PZsCGmdIeOjiqu9BWY/7yJDRkqukIiRzZi +QYbQi6kTJdAqaaQ9dUkN7QhzGdXrxaC3oSF509tNGJv2ZUmksAgEefLPHIxQ +x0o+e8YUpxBkwmUNHAgNLDIqTcpPvgkrGPsrdj3VQJkTktdeeheAGkui9JyT +Jl4evuYn6XgDTvUJN1pwbca2UT5XB+V8GJtK2GuesRkTTX61SwvmgdmmJ5nm +G7UwemPFsPfkdaid0l+cfaWFvHOaeYr52eCtqtnb7qaNielzPnmR14A1erjT +YYUOtt8hf9+2ugp/08WtV+frYMgTvRB3q3RQDIvza9iyBbX+W+5j6nEZlN10 +6xi9W7Bzu4h1/7lUcKs9euHeya3I80z+NdZdgrrczsMTYrrItTWm1HAxCaaL +l2Y3Vepi6xcJP5mGBHBlkCsyrfVwkJbNPDMdCxPKqTp3xvWQ5Xb9dTstGh4U +LH6eidFHzh8n8SP3L4CjiQLqyxhgSHAzt8CFCJA6Hl2lVm+ARbdDtzTZhYHY +Sq9y630s1GSIb2hfCIIC4+CAcQcWXoqv+yjyIwg0gxONU/ez8O3SM1und0Fg +M172b/dBFiYm9ajxPgqCqLcz865eLFzZGlqTFxwEc/mh2wLCWfjprki9JHcQ +9OqnvikkWdhcJu0wvyYQjp4tyDK/zcIL8oO5gssC4eft+27DZSyc35B/SHky +AIRp3bMaFSx08Ey3PtsZAJYC0htq6llo+2xnmv3VAHjUWXj4zb8s7BUZC9hN +DwALwQcbfbtZOOMQkNsmFgDdZs9+ir9joYzNOmIXfwBMV/+Icf7EQpu1cxYe +Q/6wMU/91vchFm4uSn35tcwfHvUa+SaMsLC/o6v5cr4/WIjuhk3jLHxNF15r +meYP7tFn28/MsHD8dufVlnP+MF0flbl+joUL5Ws7k4/5Q8RCumv1Agv3nLrt +6PKPPwhplag6/WZh0TFeVS1rf8g5Xj2ztMRC/3tepmvAH/4HKC0mMw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05488958924434669}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05488958924434669}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk01dsXAHAh1CvJUIZM173fa0oIZbj2Fo/MjcILlagQjTJPZRZCkRCS +4X5voYEoQ4aSBpGXoVKhXsk8ZKr8vr8/vuusz1rnfNc5Z+29z5Y/5LPLjZuL +i+sP9f1//Nn3rIkeX2AooWxsyojVNuzMEfc36o6AD0vfYvGxCKBY2yHx7hR4 +OT0qI/pYAXx3sLt4uvPB2Ul883z9Zlg7uj5lvusOWOV+HeiuN4aPj2x8prsa +4MsTPfvg+t1gSh/6MNHVAYypdCFanSvMd225PN7VD1wfE8zrqk5Do3FRQXv+ +FEwvcatsPnsBNnys+npI9TfsKtTT01NJBFEvFza/MQ9eaTM68KMyFVI0TB/a +7BXAPFl1R/ekDOjJUK+fEFqNRLcL88OHLIgvCG3jlliLfqcW9W7m5cL6tIHY +1GwR9FMoHz+enw/Re8wNO36KYXRq6uXHDgVwWjfP5VmEOI66jbY4ChSCydhC +gPeAJL4/kuo87lUE4QY7D0pulcYRp8A0k5xi2O6cM7llmzTK8x0zWXOjGATD +fpzfayWNJtWihW+LiiGrMbIw+YA0CtkVBf9TXgwPLKp/8MVKo8zt776spmIY +t1fwneqRRrRrdTr0vRicz87EvQiUwWOiZyLUNEpA7/bVeyF1sjhtcubek4oS +MOl69Xu0RRb/fbMs06+6BGy4eM1cOmRx8+t/LzNrS8B1l3cPfJFFq4n1r4Oa +S8A0UD40bLkczqukWvN2lsAJ2Z83jFTksPRh1qHo8RJoOnJ9pNFXDgvvfGlw +YrLB/JeucFCgHFZ9rHG5o8yGV8mdOlphcigVLCHMq8aGnqoVYQWxcsjn4V6Z +o8WG0b/OCEdmyeF25ybeciM2iJdt32LaIIfBhpWl5v+wwWtuIqxltTy6nbCN +t0xgg95J93VfheVRgxEdE5HEBoGhXpJHXB61IwwlK1LYcPNd41tDmjzOJCcv +Cl9lQ1/tZdX7OvJ4Nq74wY2bbLCN1O3Oc5FHrw5NHflaNmgKh28KLJdHfm2W ++sVhNnDFzzRlVMhj38CpRbsxav88Ho4VD+VxLe9NF+lJNnjO7IqcaJZH+601 +U9dn2VDQTX93pFcebxRK7gjiJmHd9ZaoPTw0jF/9gC9lPQnzKkJ9G/fS8KkT +17wmkPAzWzJ8syMNVe5rG0cakTC9hkHXdaGh1u5Zq05jEkandD1MjtHQfj+R +e3Q7Cf0PXX86BtPQyDzaymMnCa2WlYIxN2k47LQw336IhExPZ+ifoaGZstwt +rfMkpH842v/fAg0Vsr6dlo0kIc32dOTIEg2D3PJ4+KNJSNwc83xuhQI6quuG +vogjIWKxfN8aGQWMDT43rp5Cgmf88hMGpgqYcatd4EAuCQYkJ/fKFQX0zhfM +dqgm4Z0cef3vawp4fW5UqukhCQFXSnKmryvgYKBqj0oNCZXhhVm7Sqj1h4WE +pupI0LTPzRB8pIC6J176HWgmQWl5WnLUZwV8cVokorKNhJaAlCTtrwqYnLp5 +zc/XJLiPJycODikgTUXxk0YHCQXvLiZsm1bAvohFm7xOEuTuRMf84aOjdtM/ +Hi491H27BIb5qtLRV+bHd/t+Eu53+ocyNOg4e2T8o+cACXss/EI6tel4fPCW +bNAgCSnaZ4M0gY5C893BaV9JWL3Kx290Jx2NdB/WFQyRwFt16IT7OTpONrmV +G0+ScEPtoI9YEB1TFEtOqkyRsK3AxbspjI7lNpPhQtMkhCbt96LF0VEieEta +xwwJC252R/uy6CgpuSZeZ56ECWGLA3YNdLyVsUM2ZImEbi/aa4+ndKRVvRq1 +4OJA/ZMFCH1Bx/bOoSzRZRxIDiBli9/SsS9KMz2HmwPq/as+zg/RUbEnTeTi +cg6IG3yxERyn5guk/Yd8HOC6UlNLm6GjtSU7Z4Jym7l3juUSHZWeHHpgLsAB +7/I2p2wRBrKShNidKzlg91fxy3JxBn681F7o8xcHDN3CWE+kGRg1bhLPv4oD +qyU0pMeYDAzxyVyttpoDnLCU92hAzY85L2C3hgNpvR5We40Y+KvNbnc35SAt +40fHTBlYevhq3D4hDlh+m7qWsoOByW2d9VZrOTBku/efwcMMrJmSchIW4UBH +ycbnc8cY+MzGaUMQ5WoePv3VPgw8xzf8op9ybGWFpI4/A1PNPXiLRDlwYm1S +nEUIA3P90hN4xThg73lkwfk8A3ksLwq4UFaUFe+NvsjA8tLdfSvXcUDIf9w8 +K4WBn0bddPdTnutoqSpLZ2COclMcm3JLlP/VnjwGTp8eETZcz4GyTztXjBYy +8LnaH4vzlDP0lP25OQyUwK+BzZSPjPbaq1Qw8K7Oy1YU54DN9rst8JCBN+rF +hvwp6+THb91Tz8Da7y28ZZRlfrkWH21moFNdgtQAZT47A/HgVgYef8G/SUSC +A6OlojGX2hi4WuIzIOW3K0Zmb3Yy0EK53saDcmFNdterPgZyyagfu085cb2v +2cAAA9/4Cfu+pex70qZy9hsD3WOyz09Tdn5OMFeNUusNA1PWSHLgb8bSFbkp +Btry291gUlYN7eLTnmMgPu+uMKAs2lPqa/6bgbHDt1/aUP6lGfPViZvAZdsv +fHOiPJhwwO4UP4FpWssFPCh7D6nS1FcR+MInq/gU5Vmz+ZERIQKhfm+5H+Ww +m81VpBiBD4/U0oIor+RJiTwmSeAPnsO//++0A847mbIEiiR2GgVSlq5Vlv6i +QOBnx5xxX8qFUrPf8hUJNJLcsfIEZXX/xnsHNhIo1eWX5E65+m1SmIwmgcRs +UZgjZWOt/VbvdQis1jveZ0n5xSVF8Ux9AmMe2ZfoUbYbmx7YhwQGTix8Jih/ +snpcKvY3gWeKB2OEKHuwLwa+MSdQZmVRzix1f9P8jmaXbAiszHij8J5ysBsh +YrubwK5Nv8RrKfM1TvatsifQkPduSDblZLk6dut+AotvxO0NoCwZEu8bc5DA +89NiOXsoF7zbt83UncDX2t/sVSmr6dIFeT2p8/5Ji1pGufLKeM9jH+o8UMbs +pOKjdWfsSZY/gScyzz85SXlP6V7WYjCBopZuzQaUP6yiraiKILApW0BvOeXx +p9W5WgkE9oj8iEqk4nOd4XCbynUC9fNT6iKo+M699uDa9xsEhrtMBulSVpq/ +cKSomMA/jq33Rqh8MbgnvUS7Q+BSlckVG8quyrZqks3Ufo7La0xS+TccLbXQ +9YzApxJLHWmUfb/813z5FYFVC3LTWpTjcsOc1nYTOJqaXXFcmMqfdXcSBH5Q ++5sOt35M5b/emRD7J2NU/DyLWrCl3NhuQb8wTf2vokzlPVUv3iYMPFz6TWCC +59CGEUEq/rjFfvwUYqKw0N9WE1T9MR87Z/5Fh4kaO2Q9zlP1a4OGTJSAAROz +V0o1fuCn8udUU4OKERMTvGxZ2pTTfgoZnLJkYp90TsY7qj72/S5RW3JhIndk +4jI+Hg6cWvVeRCKWiY9fTu3u+EWCiU3EDoNEJr4DZ9rSIgnrkxUvuqQyUfyk +vKwS5UciZ/kKs5m44qhA0RmqfvNJCc5r3mHitbPP+Yeo+p6phH1W75i4/9iK +VptRErw8v0qe+MREMm2832aEBLiVsC/1CxPlaiq3WA2TMKje87pnjIkffPZm +GFLvi9rWU43uvIpYlTBmzU29P42mBcVhGxVx5acBK74PJAy7Cpy+F6qIhItZ +Hd8zqh/IMampu6CIXN5V2yuekjDWE8b/PFYRJ/Tqtrk+IWHSdv7a51RFHPkz +EX+/kYRZ/aEmwWJF5HGej9OvJYFb9MW6Y68V8bNC7a+Xd0iQaEqqlpZXwtqb +kS3CmSRILj3nVSKUMLL3gvCpDBI26AnYaqkooXH6X99fXSFBpixswEJbCcsL +jCA8lQR61slVfuZKKHbaqaQlgQT1M7udO04qYYFhAWsghKT68/Xc0Q1KOBfa +X2t9kITvh8yK9Z8q4ZShYXS4CwkJeedsxp8rIVFTb3rXiYQ3Mt2ZDv8qYX2/ +3m0hRxIOSFzdrPpNCePdRLXu7iLBX1DKrX21Mppd9m1Kp/ojzpxMi5SDMj6y +/mg+qECC8EsisWxMGZ9rr1u638eGP2PqN1unlfGemY2FwXs2DAnrPxqcV8ZQ +zj7P+h42NNjbDonzqqC63BfNhk42nB48ZxouroINBxWmyVY2dC62/NlppILx +suflJSrYkK7s6TOVooLJGlLGB+PZsCGmdIeOjiqu9BWY/7yJDRkqukIiRzZi +QYbQi6kTJdAqaaQ9dUkN7QhzGdXrxaC3oSF509tNGJv2ZUmksAgEefLPHIxQ +x0o+e8YUpxBkwmUNHAgNLDIqTcpPvgkrGPsrdj3VQJkTktdeeheAGkui9JyT +Jl4evuYn6XgDTvUJN1pwbca2UT5XB+V8GJtK2GuesRkTTX61SwvmgdmmJ5nm +G7UwemPFsPfkdaid0l+cfaWFvHOaeYr52eCtqtnb7qaNielzPnmR14A1erjT +YYUOtt8hf9+2ugp/08WtV+frYMgTvRB3q3RQDIvza9iyBbX+W+5j6nEZlN10 +6xi9W7Bzu4h1/7lUcKs9euHeya3I80z+NdZdgrrczsMTYrrItTWm1HAxCaaL +l2Y3Vepi6xcJP5mGBHBlkCsyrfVwkJbNPDMdCxPKqTp3xvWQ5Xb9dTstGh4U +LH6eidFHzh8n8SP3L4CjiQLqyxhgSHAzt8CFCJA6Hl2lVm+ARbdDtzTZhYHY +Sq9y630s1GSIb2hfCIIC4+CAcQcWXoqv+yjyIwg0gxONU/ez8O3SM1und0Fg +M172b/dBFiYm9ajxPgqCqLcz865eLFzZGlqTFxwEc/mh2wLCWfjprki9JHcQ +9OqnvikkWdhcJu0wvyYQjp4tyDK/zcIL8oO5gssC4eft+27DZSyc35B/SHky +AIRp3bMaFSx08Ey3PtsZAJYC0htq6llo+2xnmv3VAHjUWXj4zb8s7BUZC9hN +DwALwQcbfbtZOOMQkNsmFgDdZs9+ir9joYzNOmIXfwBMV/+Icf7EQpu1cxYe +Q/6wMU/91vchFm4uSn35tcwfHvUa+SaMsLC/o6v5cr4/WIjuhk3jLHxNF15r +meYP7tFn28/MsHD8dufVlnP+MF0flbl+joUL5Ws7k4/5Q8RCumv1Agv3nLrt +6PKPPwhplag6/WZh0TFeVS1rf8g5Xj2ztMRC/3tepmvAH/4HKC0mMw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05488958924434669}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.05488958924434669}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994256969425777*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"8addff04-eee1-4301-aa88-da2e9bcaa7aa"] +}, Open ]], Cell[CellGroupData[{ @@ -7609,14 +7987,12 @@ Cell[BoxData[ FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.9918497405884743`*^9},ExpressionUUID->"650e43f8-1352-de46-8137-\ -52adca93b0cf"], + CellChangeTimes->{3.9918497405884743`*^9}, + CellLabel->"In[98]:=",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], -Cell[BoxData["12.55365498952246`"], "Output", - CellChangeTimes->{3.991340544411957*^9}, - CellLabel-> - "Out[337]=",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +Cell[BoxData["14.529513339946405`"], "Output", + CellChangeTimes->{3.991340544411957*^9, 3.994256969470326*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"192cd279-8692-4355-93bd-0a75cb9a9846"] }, Open ]], Cell[CellGroupData[{ @@ -7672,157 +8048,157 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849742961588*^9},ExpressionUUID->"9ad75b45-8f6d-114b-80bd-\ -d2b12a49fd20"], + CellChangeTimes->{3.991849742961588*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 338, 341, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340544611845*^9}, - CellLabel-> - "During evaluation of \ -In[338]:=",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.5256177657719726`*^-261\\\", \ \\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 338, 342, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913405446218624`*^9}, + 2, 99, 13, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340544611845*^9, 3.994256969598257*^9}, CellLabel-> "During evaluation of \ -In[338]:=",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], +In[99]:=",ExpressionUUID->"73ecf152-e6c4-4e22-99c2-bbdd639446af"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.3386689434993544`*^-271\\\", \ \\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 338, 343, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340544630844*^9}, +\"", 2, 99, 14, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340544611845*^9, 3.994256969606338*^9}, CellLabel-> "During evaluation of \ -In[338]:=",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], +In[99]:=",ExpressionUUID->"08a0dac2-5058-4622-82ec-ff269b0d08ca"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.306358489242415`*^-281\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 99, 15, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340544611845*^9, 3.9942569696141233`*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"b7a3baed-fde3-41e8-9ba6-ff87dbaf3efa"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 338, 344, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340544639845*^9}, +during this calculation.\"", 2, 99, 16, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340544611845*^9, 3.994256969622759*^9}, CellLabel-> "During evaluation of \ -In[338]:=",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], +In[99]:=",ExpressionUUID->"33077a37-326d-4aa4-bd6c-ee94a1f8334c"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk -DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE -i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 -tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM -NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S -RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB -j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd -kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT -u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 -T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j -8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm -bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg -k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl -UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd -5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 -sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 -1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK -Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS -vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH -Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ -Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL -C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf -8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 -oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT -7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW -mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 -6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe -8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 -us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 -0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm -3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v -K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU -+23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY -e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im -r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K -iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac -p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M -knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS -9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq -K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK -Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh -+wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD -LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq -cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl -x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji -J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX -9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d -T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR -GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE -YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q -eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 -nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB -i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 -UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC -4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ -+qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d -UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M -6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l -wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW -ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt -UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry -tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP -3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz -PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP -crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z -fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT -KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 -dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq -RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf -auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY -+xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD -3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause -loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G -+BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu -LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ -KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv -7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw -ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN -RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg -k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp -oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx -8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x -UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ -GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa -jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 -svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 -GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf -aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj -C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk8lN0XAHAvZemHpEgIM8w8M5bsSkz3eElJ2dJChIq02pKlMLy24kX2 +JUuyzDxaZEtIomQplYRUWmixZCdL5XffP57P8/l+PvO5z71nzjn3UI542Ljy +8vDw/MbPf++5/tZHSjEF27p3W0Z+S9De1pUjFWDUG4b6MxS1KqfWIJB4fkSq +NxEZzj2fjp2ioPNWZA9fbz5y8/04cW5KE60ZW5+40FOGEtROOdtNGaEPdRYe +Mz2NSIfJ6ygyZY1MlYbfT/Z0oq8J/gFjEy5ooWdzykTPZ8QdPKZycdQLNRkX +F7zMn0ZDAm8ff0oPQ7If7n09ovobpegKm6V5xaB1p51IAWM+GEsXPKM1cwUl +aprWWuwThFejgZMqx1LRm3SNhkkxEVif62IOhzJRTEHIc94Na2D5qt9y6pkc +tD554FJS9loQN7fJspW4hqJszbZ1zkmAgkeb/YryfOSjf82pNUwKwoVsnors +KUAm44uBZwekIVpIdtmzsBCFGlq7SG/ZCE9FPd+dfVmEtt7KqAh+IA+zIgfd +gkaKkUlPx++xFnm4q2NkYTxejCx4Vuxw6pSHbVs/lvNPF6OjNmffoC/yECHY +8jNisRiZXqCEsFcqwJ3p1U5uQhzkKT933UhFAabjfZNu0Tno0fHcH03nFcBF +rWfokBMHnZ6fZLeIUKBIo9uN3spBW73cJL+KU+BQp2d03FMOEhzuK+GTogDb +il02/ZyDCt82dW+jUiC5eEK+spuD+utTVCv1KMCb0ee0bpCDLCP0e685UeDy +7x4fkz8cpCUeqn7hDgXqd/SuOqXBRTwxs4/SqyhgcTQWndPmog6+k/ZVtRRo +Sj4WFKjHRadmbSImH1Og5ez9dcGGXFTQq/T2eB8FkrS6y112cpFkbkukLR8V +xM9ymjKduGhBRaxfbR8VdIsvPOmK4aK5bOlQbXsqMB0du7zjuGhmNU1J34kK +cyq1gqJXuGhsWv+kyQkqvGk//t0glYs+1x6dsw+ignnHqijfPC5qM78rGl1I +ha5RGyfnCi7KPHUYfZ6lQtwHzwiJPi5Ke+/++dsiFSIS+p8cfMdFyZY+ET+W +qbBWskgvo5+L4rSj2+eFFGFIiCdzzQAXhS3dObBaThFO2jKDPo7g88Ws9DQ0 +VYT3PujT3C8uMiy5kZeaqgg+3PsZAhtJ9FahJHd7liI0p/w98lyORIGp3JyZ +XEUY17J9lqJAoruhRVdtuIpwr3bIWFqJRFoH89JF6xQh+FcUD78KiZgrkxMi +PylCR7zYV/ctJJJ0usA+r6oEi5K0IUdrElV2BYTQNJVAfnGxsteGRLa7/IO7 +dJXApeCstLUtiRJ1fS9qISWo1mKWbD1AIhFhD/8xayUw4O+amnAg0Yp7Rzzd +/JQg1OrU3uHjJJoU3+W8v1EJ1Nwk1cUvkqj3NPXFySdKkDpd88UuiEQNzYso +5KkSSNw3eZkTTKKEwBJ5TrcS3JAM2akQSiKNz8IfFoaVoHTf8MO/Ikl09s5z +x+y1NPDrXtBB8STa/z/OsztSNDAc7XOzTyDRNlc2q3kjDdpnyl55X8H726C5 +cZygAb/ZO6esJBLdYCe+A0MaLOsY7mlPI9Gw5b5Dg8do8NpvtLsol0SdXLX2 ++RM0sH4U/z0lj0Q1fPwGIh40qHl82yDsGoku3a2S1guggc+oJMfmOokY8lJ9 +Uf/SwCnJq7CziETHx/oOqlTRYAKZJlneJJHFzvIWVEsDrYZDE+K3SKSXH7PF +toEGfzUOprzC5t9vKBXURoNpulzd7lISFd3P7unop4GI78dQuXISDcY67/cW +oMOvmHQ7qMbnH1alagjTYXZp4HgH9s8dCz9+iNHh1uMCOft7JFrFlxhxQpoO +tb/Fo07W4PgFNFU4q9Fhz/MYC486fJ7ueLacFh3qr58oGcY21nHY/U6PDoEa +/eVH7+N4js8MHAA60CSprRb1JApypa+13EsH3lkTMaEGvN+mqX7hg3QYYfG/ +9sJOUHhAtjnQ4WZa0s5e7IK3B/42daODp2A5K+chidqsL3mxAuiAOgNOiTbh +fLq9j7UURIczZ0TLjmG/F6YK3QvD36NWk9XYE09q8nRi6eCnNFtu9wjn57bR +5yq5dDCL6dBkPyZRXlZ11tB1Oqx+2bjuETZzIfx4MYcOSjmMmyubSWRYsXGZ +WkaH6Kpfy6HYzWuG2z5W0eFaxfbaOmwrj6rUnFo6qOVWqs1iH1W23CT9mA48 +nxv1nZ6QaDRKZrGnlQ5B5qyuBOzzX749Tumgw/mmdKIB+3Ie23FNLx2yWKWL +61tItO7Pbubzd3TIJs0vAHb2oQ2zsZ/ocHYpssoNu1SyLFZwhA7StrmHb2Bv +PRd8sHmcDpkyh5+2Yze93KUUPoPja8qe+469W339hNECHfxP+73nayVRd+xA +7fJvOsx5VYbKYjsP3466z0uA9j83BrSwh3Zc3HtBgIBzks/5dmB7F+6U1xcm +wHok/vNB7F+8EiNzYgTcW3WE7Y4d6fypqkKCgPzm6ve+2Kvrb4Z5SxMwfk9g +iY2dLhNooSFPgFtLY+8lbGqAqfSYIgG2cof9ErBvdIt/LWEQEK9h0ZOMrafz +4c4JNQKgTmAhFbvhSkkQoUVAbfPyu/9sNu5n9kUP7ye75J//fi+rKRcpaEhA +QayPVzz2mPejRhUjAi5RDB5EYT+sOLlsYUqAWlX6mSDs5DkxQ29zbAHFIE9s +ty13/VOsCLDS9hpzxtYPdKys3kfAzlrpRgts4Tq+qbf2BESH3p3Xx+7/zd20 +7ETAZOuHRCp2KbI6RXUloENf9Yog9j+hc8XbTxKwuUd3ZgTHf3/T1UF3DwK2 +CKXWPcVmrDSmxJ4jwDnt6zCJvWg65Hg7gIBC7sOQSOxn0fGZncF4/ScPLzhh +ewu/W7vhEgFPiOwSIWwTizArwzgCyg/c/tiH82d9AuNfpyQCRDxtQ7jYdWt9 ++YuyCcjb3bq0DTtun4xxaz4BNXOdfSuxXdIehowWExBuO0Brw/nKLyO6oFVG +QBZvAq85dq9Dhe7+uwS0ME6kCGCX5Nh7B9QR8PNmY+pDXB9W1OKRB80EeIad ++6aGncmE/t1vcT5YHej8huvt9Kmv0p4fCajurxiOx0Y3Yw8kfSHAODLtvC72 +oMabF2/GcXz3+I74N5Jo0xbvJrcVDNj30O3QJ1zvPIFSPJeFGCCXX0/xxX5V +W294U5QB+tS7zvzY/uh/VdNSDJg6LWdOeYDz3bSAw1ZjQHfS94EtuN+kRu/6 +cl2LAZ+PuIZW437k3jZBebKZAdGciqu62KIWrCyRvxmwQeikJaOWRAf3df+b +uZ8BAVtz747j/jd6VNCnIoQB5u3NhEAFzqcck/sPwhnQFhQkcAT3z/E3bIH2 +SwyYX/aKrCkj0ZTlQtanJAYU8RUcO3YH90+D4UeiHAb09TErsnA/5l33VPLE +CwawtYo0Mjj4PrMUdDn3mgEc1xLrjmISrbxsUhLSx4BRQ0vZv7AFee6j1EEG +iNhI3HEqxPsdveneNM8AepTsCE8+iTY8iq/ZSGHCxOM1el2ZJJJebl/BpDOB +ry0fBjNwPWwVtNRRYUKNVdDyZDqJ5ErZA7t0mdDi2nSVH99PSle9hP3NmCB8 +MdF9Hb6/NM7tPdzpxYQ2imR/42USz7freaMamVD36IyEpz/uB0d2cAyeMGFj +5HqePX4kir3mZzHRzoRNC8F/iPP4/5HrzbR7zYQXal1ben1wP9mQoa36nQmV +bfXlFA8SBYjKuL4UUQZ/keMmdq643uflWmTslMH8h8DQYSsSWW62PPvCURka ++7edXrbA8fQNWRdxRBkCN81K5OzB9Tj9wXnslDL8qTX+8HoX7r8/8hYagpVB +NlvVXn07iT58pqq4FSjD4NEev8v6JBJ/Ro8rHVeGr3eME77g+eXPuEZh24wy +RM6ZBjPl8f0sblA3uKAM4buS95/C80/jQcthqRUqwBuu1fp9A4l8Bv1MQ6VU +4Klu3NM2cRJ1LbX8sTZSAUrYxC+VFSRKUz7lMZ2oAreGBtLcv3CRbPRtKz09 +VZh/yz/88xoXkbduNi1sVYVx/Q03P+dy0ZbXJXr3kSrIDP1ub8/mIlsqR9bE +TBXaLk7KZ2RwUWxd3ndrB1V4ZnJWWwHPi0sTV9hnwlRBqv1i3scQLuqzO1da +0KEKsSKq+9UduChdRV9s7XE14L+SmaYshudHaSPd6SubgHnAKfngSTxPyzYm +qHerw491TQtjucVIlC//nEuYBkxFzO/velGE5ELlDe3omvBYJJFo+1CIhGgO +VTZPNKH0sotv3pcCtIm14bafoxYIe8wICkxfR9794k27eLSh8LugbONgPhqf +jt1nlq4NL5e+M0wHr6Ed6s2ZZmo6sNpOx4j2LQ/VTxss/ezQAR67x8KN3Fx0 +VlWr76WrLqSfVPTg3MpGrLFjXXZCevBJKJy5IjELbVeS2iOSrwcK2+/ZTxRk +IAb7sn/j5s3Q/T/CQfV5GlJ21X9A69sM9up1E04DKci13j28wmsLCEZ0lP1U +TkYP8rqOTUroQxpPsl750UQ0w1n+qX5XHy7fiFAxq0tAR2klQpl7toLtO1Jw +X1wcmlRO0iub2AqJy0P1IykxqLpg6dNstAEUSt9pZv6JRvYmimAgZwhl2/Kk +snIikcyZqHubGgzha8l2N5pBOJJYdfrOngMskCJ43NxUw1CBcVDghB0LjJPD +OcmKYUgrKM44yYEFNwrLNjZLhyGLidLXvS4s+GsdLUdLKAxFds8uHD3NAj25 +5SHNr6FoPj/k78BQFjhEE0ateaGozyDpVVEJC571lJ4/IBWK3H0LrprdYsF2 +92SZkdWhaO5WpetoKQteO+gNhAqEInFq70/NKhYwF3J7q+fYyFxwo+z9Bvz9 +QOc9u1+zUV1X0bFXr1mg8VDtu2ASG+0SrVY738sCcdaDgI7LbNS7o3VO6i0L +LHgSaWlhbDRTMxJ9+CMLTgS/aNX0ZiO1axo3h4ZZ4KLtoxtrjdfrMzof+4MF +7qKvLp00w+ut24vUJ1hwSEZyxtyIjdyifF+em2XBn2oxQSlNvF5DZOb6eRZQ +5m+U8jLZKGwx7WjNIgsymmdPTyiwkZgOV9XxNwt0Kx0MP0mxUc6ZmtnlZRZs +XblX7rUYG/0fmJhZAg== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7836,116 +8212,113 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk -DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE -i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 -tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM -NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S -RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB -j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd -kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT -u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 -T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j -8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm -bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg -k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl -UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd -5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 -sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 -1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK -Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS -vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH -Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ -Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL -C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf -8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 -oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT -7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW -mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 -6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe -8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 -us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 -0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm -3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v -K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU -+23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY -e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im -r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K -iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac -p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M -knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS -9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq -K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK -Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh -+wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD -LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq -cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl -x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji -J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX -9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d -T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR -GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE -YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q -eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 -nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB -i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 -UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC -4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ -+qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d -UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M -6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l -wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW -ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt -UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry -tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP -3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz -PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP -crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z -fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT -KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 -dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq -RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf -auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY -+xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD -3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause -loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G -+BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu -LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ -KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv -7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw -ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN -RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg -k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp -oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx -8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x -UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ -GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa -jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 -svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 -GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf -aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj -C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== +1:eJwV1nk8lN0XAHAvZemHpEgIM8w8M5bsSkz3eElJ2dJChIq02pKlMLy24kX2 +JUuyzDxaZEtIomQplYRUWmixZCdL5XffP57P8/l+PvO5z71nzjn3UI542Ljy +8vDw/MbPf++5/tZHSjEF27p3W0Z+S9De1pUjFWDUG4b6MxS1KqfWIJB4fkSq +NxEZzj2fjp2ioPNWZA9fbz5y8/04cW5KE60ZW5+40FOGEtROOdtNGaEPdRYe +Mz2NSIfJ6ygyZY1MlYbfT/Z0oq8J/gFjEy5ooWdzykTPZ8QdPKZycdQLNRkX +F7zMn0ZDAm8ff0oPQ7If7n09ovobpegKm6V5xaB1p51IAWM+GEsXPKM1cwUl +aprWWuwThFejgZMqx1LRm3SNhkkxEVif62IOhzJRTEHIc94Na2D5qt9y6pkc +tD554FJS9loQN7fJspW4hqJszbZ1zkmAgkeb/YryfOSjf82pNUwKwoVsnors +KUAm44uBZwekIVpIdtmzsBCFGlq7SG/ZCE9FPd+dfVmEtt7KqAh+IA+zIgfd +gkaKkUlPx++xFnm4q2NkYTxejCx4Vuxw6pSHbVs/lvNPF6OjNmffoC/yECHY +8jNisRiZXqCEsFcqwJ3p1U5uQhzkKT933UhFAabjfZNu0Tno0fHcH03nFcBF +rWfokBMHnZ6fZLeIUKBIo9uN3spBW73cJL+KU+BQp2d03FMOEhzuK+GTogDb +il02/ZyDCt82dW+jUiC5eEK+spuD+utTVCv1KMCb0ee0bpCDLCP0e685UeDy +7x4fkz8cpCUeqn7hDgXqd/SuOqXBRTwxs4/SqyhgcTQWndPmog6+k/ZVtRRo +Sj4WFKjHRadmbSImH1Og5ez9dcGGXFTQq/T2eB8FkrS6y112cpFkbkukLR8V +xM9ymjKduGhBRaxfbR8VdIsvPOmK4aK5bOlQbXsqMB0du7zjuGhmNU1J34kK +cyq1gqJXuGhsWv+kyQkqvGk//t0glYs+1x6dsw+ignnHqijfPC5qM78rGl1I +ha5RGyfnCi7KPHUYfZ6lQtwHzwiJPi5Ke+/++dsiFSIS+p8cfMdFyZY+ET+W +qbBWskgvo5+L4rSj2+eFFGFIiCdzzQAXhS3dObBaThFO2jKDPo7g88Ws9DQ0 +VYT3PujT3C8uMiy5kZeaqgg+3PsZAhtJ9FahJHd7liI0p/w98lyORIGp3JyZ +XEUY17J9lqJAoruhRVdtuIpwr3bIWFqJRFoH89JF6xQh+FcUD78KiZgrkxMi +PylCR7zYV/ctJJJ0usA+r6oEi5K0IUdrElV2BYTQNJVAfnGxsteGRLa7/IO7 +dJXApeCstLUtiRJ1fS9qISWo1mKWbD1AIhFhD/8xayUw4O+amnAg0Yp7Rzzd +/JQg1OrU3uHjJJoU3+W8v1EJ1Nwk1cUvkqj3NPXFySdKkDpd88UuiEQNzYso +5KkSSNw3eZkTTKKEwBJ5TrcS3JAM2akQSiKNz8IfFoaVoHTf8MO/Ikl09s5z +x+y1NPDrXtBB8STa/z/OsztSNDAc7XOzTyDRNlc2q3kjDdpnyl55X8H726C5 +cZygAb/ZO6esJBLdYCe+A0MaLOsY7mlPI9Gw5b5Dg8do8NpvtLsol0SdXLX2 ++RM0sH4U/z0lj0Q1fPwGIh40qHl82yDsGoku3a2S1guggc+oJMfmOokY8lJ9 +Uf/SwCnJq7CziETHx/oOqlTRYAKZJlneJJHFzvIWVEsDrYZDE+K3SKSXH7PF +toEGfzUOprzC5t9vKBXURoNpulzd7lISFd3P7unop4GI78dQuXISDcY67/cW +oMOvmHQ7qMbnH1alagjTYXZp4HgH9s8dCz9+iNHh1uMCOft7JFrFlxhxQpoO +tb/Fo07W4PgFNFU4q9Fhz/MYC486fJ7ueLacFh3qr58oGcY21nHY/U6PDoEa +/eVH7+N4js8MHAA60CSprRb1JApypa+13EsH3lkTMaEGvN+mqX7hg3QYYfG/ +9sJOUHhAtjnQ4WZa0s5e7IK3B/42daODp2A5K+chidqsL3mxAuiAOgNOiTbh +fLq9j7UURIczZ0TLjmG/F6YK3QvD36NWk9XYE09q8nRi6eCnNFtu9wjn57bR +5yq5dDCL6dBkPyZRXlZ11tB1Oqx+2bjuETZzIfx4MYcOSjmMmyubSWRYsXGZ +WkaH6Kpfy6HYzWuG2z5W0eFaxfbaOmwrj6rUnFo6qOVWqs1iH1W23CT9mA48 +nxv1nZ6QaDRKZrGnlQ5B5qyuBOzzX749Tumgw/mmdKIB+3Ie23FNLx2yWKWL +61tItO7Pbubzd3TIJs0vAHb2oQ2zsZ/ocHYpssoNu1SyLFZwhA7StrmHb2Bv +PRd8sHmcDpkyh5+2Yze93KUUPoPja8qe+469W339hNECHfxP+73nayVRd+xA +7fJvOsx5VYbKYjsP3466z0uA9j83BrSwh3Zc3HtBgIBzks/5dmB7F+6U1xcm +wHok/vNB7F+8EiNzYgTcW3WE7Y4d6fypqkKCgPzm6ve+2Kvrb4Z5SxMwfk9g +iY2dLhNooSFPgFtLY+8lbGqAqfSYIgG2cof9ErBvdIt/LWEQEK9h0ZOMrafz +4c4JNQKgTmAhFbvhSkkQoUVAbfPyu/9sNu5n9kUP7ye75J//fi+rKRcpaEhA +QayPVzz2mPejRhUjAi5RDB5EYT+sOLlsYUqAWlX6mSDs5DkxQ29zbAHFIE9s +ty13/VOsCLDS9hpzxtYPdKys3kfAzlrpRgts4Tq+qbf2BESH3p3Xx+7/zd20 +7ETAZOuHRCp2KbI6RXUloENf9Yog9j+hc8XbTxKwuUd3ZgTHf3/T1UF3DwK2 +CKXWPcVmrDSmxJ4jwDnt6zCJvWg65Hg7gIBC7sOQSOxn0fGZncF4/ScPLzhh +ewu/W7vhEgFPiOwSIWwTizArwzgCyg/c/tiH82d9AuNfpyQCRDxtQ7jYdWt9 ++YuyCcjb3bq0DTtun4xxaz4BNXOdfSuxXdIehowWExBuO0Brw/nKLyO6oFVG +QBZvAq85dq9Dhe7+uwS0ME6kCGCX5Nh7B9QR8PNmY+pDXB9W1OKRB80EeIad ++6aGncmE/t1vcT5YHej8huvt9Kmv0p4fCajurxiOx0Y3Yw8kfSHAODLtvC72 +oMabF2/GcXz3+I74N5Jo0xbvJrcVDNj30O3QJ1zvPIFSPJeFGCCXX0/xxX5V +W294U5QB+tS7zvzY/uh/VdNSDJg6LWdOeYDz3bSAw1ZjQHfS94EtuN+kRu/6 +cl2LAZ+PuIZW437k3jZBebKZAdGciqu62KIWrCyRvxmwQeikJaOWRAf3df+b +uZ8BAVtz747j/jd6VNCnIoQB5u3NhEAFzqcck/sPwhnQFhQkcAT3z/E3bIH2 +SwyYX/aKrCkj0ZTlQtanJAYU8RUcO3YH90+D4UeiHAb09TErsnA/5l33VPLE +CwawtYo0Mjj4PrMUdDn3mgEc1xLrjmISrbxsUhLSx4BRQ0vZv7AFee6j1EEG +iNhI3HEqxPsdveneNM8AepTsCE8+iTY8iq/ZSGHCxOM1el2ZJJJebl/BpDOB +ry0fBjNwPWwVtNRRYUKNVdDyZDqJ5ErZA7t0mdDi2nSVH99PSle9hP3NmCB8 +MdF9Hb6/NM7tPdzpxYQ2imR/42USz7freaMamVD36IyEpz/uB0d2cAyeMGFj +5HqePX4kir3mZzHRzoRNC8F/iPP4/5HrzbR7zYQXal1ben1wP9mQoa36nQmV +bfXlFA8SBYjKuL4UUQZ/keMmdq643uflWmTslMH8h8DQYSsSWW62PPvCURka ++7edXrbA8fQNWRdxRBkCN81K5OzB9Tj9wXnslDL8qTX+8HoX7r8/8hYagpVB +NlvVXn07iT58pqq4FSjD4NEev8v6JBJ/Ro8rHVeGr3eME77g+eXPuEZh24wy +RM6ZBjPl8f0sblA3uKAM4buS95/C80/jQcthqRUqwBuu1fp9A4l8Bv1MQ6VU +4Klu3NM2cRJ1LbX8sTZSAUrYxC+VFSRKUz7lMZ2oAreGBtLcv3CRbPRtKz09 +VZh/yz/88xoXkbduNi1sVYVx/Q03P+dy0ZbXJXr3kSrIDP1ub8/mIlsqR9bE +TBXaLk7KZ2RwUWxd3ndrB1V4ZnJWWwHPi0sTV9hnwlRBqv1i3scQLuqzO1da +0KEKsSKq+9UduChdRV9s7XE14L+SmaYshudHaSPd6SubgHnAKfngSTxPyzYm +qHerw491TQtjucVIlC//nEuYBkxFzO/velGE5ELlDe3omvBYJJFo+1CIhGgO +VTZPNKH0sotv3pcCtIm14bafoxYIe8wICkxfR9794k27eLSh8LugbONgPhqf +jt1nlq4NL5e+M0wHr6Ed6s2ZZmo6sNpOx4j2LQ/VTxss/ezQAR67x8KN3Fx0 +VlWr76WrLqSfVPTg3MpGrLFjXXZCevBJKJy5IjELbVeS2iOSrwcK2+/ZTxRk +IAb7sn/j5s3Q/T/CQfV5GlJ21X9A69sM9up1E04DKci13j28wmsLCEZ0lP1U +TkYP8rqOTUroQxpPsl750UQ0w1n+qX5XHy7fiFAxq0tAR2klQpl7toLtO1Jw +X1wcmlRO0iub2AqJy0P1IykxqLpg6dNstAEUSt9pZv6JRvYmimAgZwhl2/Kk +snIikcyZqHubGgzha8l2N5pBOJJYdfrOngMskCJ43NxUw1CBcVDghB0LjJPD +OcmKYUgrKM44yYEFNwrLNjZLhyGLidLXvS4s+GsdLUdLKAxFds8uHD3NAj25 +5SHNr6FoPj/k78BQFjhEE0ateaGozyDpVVEJC571lJ4/IBWK3H0LrprdYsF2 +92SZkdWhaO5WpetoKQteO+gNhAqEInFq70/NKhYwF3J7q+fYyFxwo+z9Bvz9 +QOc9u1+zUV1X0bFXr1mg8VDtu2ASG+0SrVY738sCcdaDgI7LbNS7o3VO6i0L +LHgSaWlhbDRTMxJ9+CMLTgS/aNX0ZiO1axo3h4ZZ4KLtoxtrjdfrMzof+4MF +7qKvLp00w+ut24vUJ1hwSEZyxtyIjdyifF+em2XBn2oxQSlNvF5DZOb6eRZQ +5m+U8jLZKGwx7WjNIgsymmdPTyiwkZgOV9XxNwt0Kx0MP0mxUc6ZmtnlZRZs +XblX7rUYG/0fmJhZAg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "PlotRange" -> {{0, 30}, {0., 0.05231925764007217}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7957,19 +8330,19 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "PlotRange" -> {{0, 30}, {0., 0.05231925764007217}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7983,115 +8356,112 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk -DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE -i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 -tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM -NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S -RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB -j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd -kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT -u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 -T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j -8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm -bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg -k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl -UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd -5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 -sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 -1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK -Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS -vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH -Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ -Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL -C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf -8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 -oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT -7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW -mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 -6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe -8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 -us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 -0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm -3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v -K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU -+23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY -e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im -r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K -iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac -p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M -knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS -9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq -K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK -Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh -+wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD -LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq -cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl -x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji -J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX -9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d -T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR -GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE -YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q -eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 -nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB -i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 -UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC -4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ -+qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d -UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M -6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l -wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW -ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt -UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry -tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP -3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz -PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP -crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z -fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT -KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 -dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq -RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf -auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY -+xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD -3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause -loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G -+BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu -LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ -KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv -7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw -ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN -RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg -k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp -oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx -8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x -UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ -GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa -jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 -svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 -GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf -aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj -C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== +1:eJwV1nk8lN0XAHAvZemHpEgIM8w8M5bsSkz3eElJ2dJChIq02pKlMLy24kX2 +JUuyzDxaZEtIomQplYRUWmixZCdL5XffP57P8/l+PvO5z71nzjn3UI542Ljy +8vDw/MbPf++5/tZHSjEF27p3W0Z+S9De1pUjFWDUG4b6MxS1KqfWIJB4fkSq +NxEZzj2fjp2ioPNWZA9fbz5y8/04cW5KE60ZW5+40FOGEtROOdtNGaEPdRYe +Mz2NSIfJ6ygyZY1MlYbfT/Z0oq8J/gFjEy5ooWdzykTPZ8QdPKZycdQLNRkX +F7zMn0ZDAm8ff0oPQ7If7n09ovobpegKm6V5xaB1p51IAWM+GEsXPKM1cwUl +aprWWuwThFejgZMqx1LRm3SNhkkxEVif62IOhzJRTEHIc94Na2D5qt9y6pkc +tD554FJS9loQN7fJspW4hqJszbZ1zkmAgkeb/YryfOSjf82pNUwKwoVsnors +KUAm44uBZwekIVpIdtmzsBCFGlq7SG/ZCE9FPd+dfVmEtt7KqAh+IA+zIgfd +gkaKkUlPx++xFnm4q2NkYTxejCx4Vuxw6pSHbVs/lvNPF6OjNmffoC/yECHY +8jNisRiZXqCEsFcqwJ3p1U5uQhzkKT933UhFAabjfZNu0Tno0fHcH03nFcBF +rWfokBMHnZ6fZLeIUKBIo9uN3spBW73cJL+KU+BQp2d03FMOEhzuK+GTogDb +il02/ZyDCt82dW+jUiC5eEK+spuD+utTVCv1KMCb0ee0bpCDLCP0e685UeDy +7x4fkz8cpCUeqn7hDgXqd/SuOqXBRTwxs4/SqyhgcTQWndPmog6+k/ZVtRRo +Sj4WFKjHRadmbSImH1Og5ez9dcGGXFTQq/T2eB8FkrS6y112cpFkbkukLR8V +xM9ymjKduGhBRaxfbR8VdIsvPOmK4aK5bOlQbXsqMB0du7zjuGhmNU1J34kK +cyq1gqJXuGhsWv+kyQkqvGk//t0glYs+1x6dsw+ignnHqijfPC5qM78rGl1I +ha5RGyfnCi7KPHUYfZ6lQtwHzwiJPi5Ke+/++dsiFSIS+p8cfMdFyZY+ET+W +qbBWskgvo5+L4rSj2+eFFGFIiCdzzQAXhS3dObBaThFO2jKDPo7g88Ws9DQ0 +VYT3PujT3C8uMiy5kZeaqgg+3PsZAhtJ9FahJHd7liI0p/w98lyORIGp3JyZ +XEUY17J9lqJAoruhRVdtuIpwr3bIWFqJRFoH89JF6xQh+FcUD78KiZgrkxMi +PylCR7zYV/ctJJJ0usA+r6oEi5K0IUdrElV2BYTQNJVAfnGxsteGRLa7/IO7 +dJXApeCstLUtiRJ1fS9qISWo1mKWbD1AIhFhD/8xayUw4O+amnAg0Yp7Rzzd +/JQg1OrU3uHjJJoU3+W8v1EJ1Nwk1cUvkqj3NPXFySdKkDpd88UuiEQNzYso +5KkSSNw3eZkTTKKEwBJ5TrcS3JAM2akQSiKNz8IfFoaVoHTf8MO/Ikl09s5z +x+y1NPDrXtBB8STa/z/OsztSNDAc7XOzTyDRNlc2q3kjDdpnyl55X8H726C5 +cZygAb/ZO6esJBLdYCe+A0MaLOsY7mlPI9Gw5b5Dg8do8NpvtLsol0SdXLX2 ++RM0sH4U/z0lj0Q1fPwGIh40qHl82yDsGoku3a2S1guggc+oJMfmOokY8lJ9 +Uf/SwCnJq7CziETHx/oOqlTRYAKZJlneJJHFzvIWVEsDrYZDE+K3SKSXH7PF +toEGfzUOprzC5t9vKBXURoNpulzd7lISFd3P7unop4GI78dQuXISDcY67/cW +oMOvmHQ7qMbnH1alagjTYXZp4HgH9s8dCz9+iNHh1uMCOft7JFrFlxhxQpoO +tb/Fo07W4PgFNFU4q9Fhz/MYC486fJ7ueLacFh3qr58oGcY21nHY/U6PDoEa +/eVH7+N4js8MHAA60CSprRb1JApypa+13EsH3lkTMaEGvN+mqX7hg3QYYfG/ +9sJOUHhAtjnQ4WZa0s5e7IK3B/42daODp2A5K+chidqsL3mxAuiAOgNOiTbh +fLq9j7UURIczZ0TLjmG/F6YK3QvD36NWk9XYE09q8nRi6eCnNFtu9wjn57bR +5yq5dDCL6dBkPyZRXlZ11tB1Oqx+2bjuETZzIfx4MYcOSjmMmyubSWRYsXGZ +WkaH6Kpfy6HYzWuG2z5W0eFaxfbaOmwrj6rUnFo6qOVWqs1iH1W23CT9mA48 +nxv1nZ6QaDRKZrGnlQ5B5qyuBOzzX749Tumgw/mmdKIB+3Ie23FNLx2yWKWL +61tItO7Pbubzd3TIJs0vAHb2oQ2zsZ/ocHYpssoNu1SyLFZwhA7StrmHb2Bv +PRd8sHmcDpkyh5+2Yze93KUUPoPja8qe+469W339hNECHfxP+73nayVRd+xA +7fJvOsx5VYbKYjsP3466z0uA9j83BrSwh3Zc3HtBgIBzks/5dmB7F+6U1xcm +wHok/vNB7F+8EiNzYgTcW3WE7Y4d6fypqkKCgPzm6ve+2Kvrb4Z5SxMwfk9g +iY2dLhNooSFPgFtLY+8lbGqAqfSYIgG2cof9ErBvdIt/LWEQEK9h0ZOMrafz +4c4JNQKgTmAhFbvhSkkQoUVAbfPyu/9sNu5n9kUP7ye75J//fi+rKRcpaEhA +QayPVzz2mPejRhUjAi5RDB5EYT+sOLlsYUqAWlX6mSDs5DkxQ29zbAHFIE9s +ty13/VOsCLDS9hpzxtYPdKys3kfAzlrpRgts4Tq+qbf2BESH3p3Xx+7/zd20 +7ETAZOuHRCp2KbI6RXUloENf9Yog9j+hc8XbTxKwuUd3ZgTHf3/T1UF3DwK2 +CKXWPcVmrDSmxJ4jwDnt6zCJvWg65Hg7gIBC7sOQSOxn0fGZncF4/ScPLzhh +ewu/W7vhEgFPiOwSIWwTizArwzgCyg/c/tiH82d9AuNfpyQCRDxtQ7jYdWt9 ++YuyCcjb3bq0DTtun4xxaz4BNXOdfSuxXdIehowWExBuO0Brw/nKLyO6oFVG +QBZvAq85dq9Dhe7+uwS0ME6kCGCX5Nh7B9QR8PNmY+pDXB9W1OKRB80EeIad ++6aGncmE/t1vcT5YHej8huvt9Kmv0p4fCajurxiOx0Y3Yw8kfSHAODLtvC72 +oMabF2/GcXz3+I74N5Jo0xbvJrcVDNj30O3QJ1zvPIFSPJeFGCCXX0/xxX5V +W294U5QB+tS7zvzY/uh/VdNSDJg6LWdOeYDz3bSAw1ZjQHfS94EtuN+kRu/6 +cl2LAZ+PuIZW437k3jZBebKZAdGciqu62KIWrCyRvxmwQeikJaOWRAf3df+b +uZ8BAVtz747j/jd6VNCnIoQB5u3NhEAFzqcck/sPwhnQFhQkcAT3z/E3bIH2 +SwyYX/aKrCkj0ZTlQtanJAYU8RUcO3YH90+D4UeiHAb09TErsnA/5l33VPLE +CwawtYo0Mjj4PrMUdDn3mgEc1xLrjmISrbxsUhLSx4BRQ0vZv7AFee6j1EEG +iNhI3HEqxPsdveneNM8AepTsCE8+iTY8iq/ZSGHCxOM1el2ZJJJebl/BpDOB +ry0fBjNwPWwVtNRRYUKNVdDyZDqJ5ErZA7t0mdDi2nSVH99PSle9hP3NmCB8 +MdF9Hb6/NM7tPdzpxYQ2imR/42USz7freaMamVD36IyEpz/uB0d2cAyeMGFj +5HqePX4kir3mZzHRzoRNC8F/iPP4/5HrzbR7zYQXal1ben1wP9mQoa36nQmV +bfXlFA8SBYjKuL4UUQZ/keMmdq643uflWmTslMH8h8DQYSsSWW62PPvCURka ++7edXrbA8fQNWRdxRBkCN81K5OzB9Tj9wXnslDL8qTX+8HoX7r8/8hYagpVB +NlvVXn07iT58pqq4FSjD4NEev8v6JBJ/Ro8rHVeGr3eME77g+eXPuEZh24wy +RM6ZBjPl8f0sblA3uKAM4buS95/C80/jQcthqRUqwBuu1fp9A4l8Bv1MQ6VU +4Klu3NM2cRJ1LbX8sTZSAUrYxC+VFSRKUz7lMZ2oAreGBtLcv3CRbPRtKz09 +VZh/yz/88xoXkbduNi1sVYVx/Q03P+dy0ZbXJXr3kSrIDP1ub8/mIlsqR9bE +TBXaLk7KZ2RwUWxd3ndrB1V4ZnJWWwHPi0sTV9hnwlRBqv1i3scQLuqzO1da +0KEKsSKq+9UduChdRV9s7XE14L+SmaYshudHaSPd6SubgHnAKfngSTxPyzYm +qHerw491TQtjucVIlC//nEuYBkxFzO/velGE5ELlDe3omvBYJJFo+1CIhGgO +VTZPNKH0sotv3pcCtIm14bafoxYIe8wICkxfR9794k27eLSh8LugbONgPhqf +jt1nlq4NL5e+M0wHr6Ed6s2ZZmo6sNpOx4j2LQ/VTxss/ezQAR67x8KN3Fx0 +VlWr76WrLqSfVPTg3MpGrLFjXXZCevBJKJy5IjELbVeS2iOSrwcK2+/ZTxRk +IAb7sn/j5s3Q/T/CQfV5GlJ21X9A69sM9up1E04DKci13j28wmsLCEZ0lP1U +TkYP8rqOTUroQxpPsl750UQ0w1n+qX5XHy7fiFAxq0tAR2klQpl7toLtO1Jw +X1wcmlRO0iub2AqJy0P1IykxqLpg6dNstAEUSt9pZv6JRvYmimAgZwhl2/Kk +snIikcyZqHubGgzha8l2N5pBOJJYdfrOngMskCJ43NxUw1CBcVDghB0LjJPD +OcmKYUgrKM44yYEFNwrLNjZLhyGLidLXvS4s+GsdLUdLKAxFds8uHD3NAj25 +5SHNr6FoPj/k78BQFjhEE0ateaGozyDpVVEJC571lJ4/IBWK3H0LrprdYsF2 +92SZkdWhaO5WpetoKQteO+gNhAqEInFq70/NKhYwF3J7q+fYyFxwo+z9Bvz9 +QOc9u1+zUV1X0bFXr1mg8VDtu2ASG+0SrVY738sCcdaDgI7LbNS7o3VO6i0L +LHgSaWlhbDRTMxJ9+CMLTgS/aNX0ZiO1axo3h4ZZ4KLtoxtrjdfrMzof+4MF +7qKvLp00w+ut24vUJ1hwSEZyxtyIjdyifF+em2XBn2oxQSlNvF5DZOb6eRZQ +5m+U8jLZKGwx7WjNIgsymmdPTyiwkZgOV9XxNwt0Kx0MP0mxUc6ZmtnlZRZs +XblX7rUYG/0fmJhZAg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "PlotRange" -> {{0, 30}, {0., 0.05231925764007217}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8102,6 +8472,7 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8129,7 +8500,8 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.060553949877372025`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.05231925764007217}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8137,9 +8509,8 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913408819317417`*^9}, - CellLabel-> - "Out[338]=",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] + CellChangeTimes->{3.9913408819317417`*^9, 3.9942577598755703`*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"083ba684-d987-466e-8222-1e313e8c77c7"] }, Open ]], Cell[CellGroupData[{ @@ -8192,66 +8563,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[339]:=",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], + "In[100]:=",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.2264340105931995`*^-182\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 339, 345, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340881982744*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.6870847890165575`*^-172\\\", \ +RowBox[{\\\"182746270923358292188640954459021807938\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"61\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3679745821507584000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 17, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340881982744*^9, 3.9942577600232487`*^9}, CellLabel-> "During evaluation of \ -In[339]:=",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], +In[100]:=",ExpressionUUID->"e569a904-c17d-4369-924c-6c35b6cf9b94"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 339, 346, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340881991743*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.148286703314905`*^-175\\\", \ +RowBox[{\\\"532888126012512780022077023202507591948\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"64\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0138815516114944000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 18, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340881982744*^9, 3.994257760034042*^9}, CellLabel-> "During evaluation of \ -In[339]:=",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], +In[100]:=",ExpressionUUID->"f0c76bc5-f1fd-4048-9b80-870ce9e22874"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 339, 347, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340882000746*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.251703181165682`*^-178\\\", \ +RowBox[{\\\"161198658118785115956678299518758546564\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"68\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9916936247705600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 19, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340881982744*^9, 3.994257760042293*^9}, CellLabel-> "During evaluation of \ -In[339]:=",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], +In[100]:=",ExpressionUUID->"0f8a8a82-7058-4506-8b81-26ca9bd8f5a3"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 339, 348, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340882008745*^9}, +during this calculation.\"", 2, 100, 20, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340881982744*^9, 3.994257760052477*^9}, CellLabel-> "During evaluation of \ -In[339]:=",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], +In[100]:=",ExpressionUUID->"6f7e51eb-f4c3-4da0-a4aa-0377dc3a2657"], -Cell[BoxData["12.553654989521348`"], "Output", - CellChangeTimes->{3.9913408882266617`*^9}, +Cell[BoxData["14.522640114946656`"], "Output", + CellChangeTimes->{3.9913408882266617`*^9, 3.994257846976232*^9}, CellLabel-> - "Out[339]=",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] + "Out[100]=",ExpressionUUID->"7604f6ff-81c0-4083-bd08-138af176db89"] }, Open ]], Cell[CellGroupData[{ @@ -8319,68 +8697,75 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ - 3.9918497473740044`*^9, {3.99184977815234*^9, - 3.991849780845421*^9}},ExpressionUUID->"1d118f77-7d68-dd41-b0af-\ -09454f88e7f1"], + 3.9918497473740044`*^9, {3.99184977815234*^9, 3.991849780845421*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 340, 349, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913408882626343`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0633494812073349`*^-229\\\", \ +RowBox[{\\\"1894408991562427689427794363373458470910\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8875062955245236398325760000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 21, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913408882626343`*^9, 3.994257847051702*^9}, CellLabel-> "During evaluation of \ -In[340]:=",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], +In[101]:=",ExpressionUUID->"023e1222-7d4a-460a-b721-7a226fb6af59"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 340, 350, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913408882726326`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.889818921958403`*^-236\\\", \ +RowBox[{\\\"2735526583816145583533735060711274031995\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"10\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5590907374121359182397440000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 22, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913408882626343`*^9, 3.9942578470619392`*^9}, CellLabel-> "During evaluation of \ -In[340]:=",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], +In[101]:=",ExpressionUUID->"67ef4a1a-f49c-4c69-a06b-a40a97064641"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 340, 351, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913408882816315`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.464158361508648`*^-242\\\", \ +RowBox[{\\\"4160735933984357432554811027341847802665\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"13\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3770116038587316426506240000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 23, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913408882626343`*^9, 3.994257847072343*^9}, CellLabel-> "During evaluation of \ -In[340]:=",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], +In[101]:=",ExpressionUUID->"c2431224-fb41-42e1-99b1-00625e3e32af"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 340, 352, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913408882906322`*^9}, +during this calculation.\"", 2, 101, 24, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913408882626343`*^9, 3.994257847083147*^9}, CellLabel-> "During evaluation of \ -In[340]:=",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], +In[101]:=",ExpressionUUID->"add3e4a8-b684-48e5-b980-37ce0f084c95"], -Cell[BoxData["1.3456729512531673`"], "Output", - CellChangeTimes->{3.991340895263792*^9}, +Cell[BoxData["0.12290423156878998`"], "Output", + CellChangeTimes->{3.991340895263792*^9, 3.994257857875865*^9}, CellLabel-> - "Out[340]=",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] + "Out[101]=",ExpressionUUID->"ff388c79-ba49-4fc3-a6a1-ac0b4e628197"] }, Open ]], Cell[CellGroupData[{ @@ -8401,8 +8786,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8447,68 +8831,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918497892022038`*^9, - 3.991849792285101*^9}},ExpressionUUID->"c8039063-5f4d-134a-b6ba-\ -e19335f7a9f6"], + CellChangeTimes->{{3.9918497892022038`*^9, 3.991849792285101*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 341, 353, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340895297941*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0633494812073349`*^-229\\\", \ +RowBox[{\\\"1894408991562427689427794363373458470910\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8875062955245236398325760000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 25, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340895297941*^9, 3.994257857932602*^9}, CellLabel-> "During evaluation of \ -In[341]:=",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], +In[102]:=",ExpressionUUID->"06d9bd8c-b479-465a-b270-6b35ea513849"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 341, 354, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340895308939*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.889818921958403`*^-236\\\", \ +RowBox[{\\\"2735526583816145583533735060711274031995\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"10\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5590907374121359182397440000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 26, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340895297941*^9, 3.994257857942581*^9}, CellLabel-> "During evaluation of \ -In[341]:=",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], +In[102]:=",ExpressionUUID->"3b51b809-b02d-430c-bb7d-1bda3fc99a46"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 341, 355, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340895316965*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.464158361508648`*^-242\\\", \ +RowBox[{\\\"4160735933984357432554811027341847802665\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"13\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3770116038587316426506240000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 27, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340895297941*^9, 3.99425785795163*^9}, CellLabel-> "During evaluation of \ -In[341]:=",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], +In[102]:=",ExpressionUUID->"8f17dd61-83f8-4833-97ac-462db39d0e24"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 341, 356, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340895324953*^9}, +during this calculation.\"", 2, 102, 28, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340895297941*^9, 3.994257857959875*^9}, CellLabel-> "During evaluation of \ -In[341]:=",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], +In[102]:=",ExpressionUUID->"28452cfc-d08c-4e9e-88bc-5640e7143d42"], -Cell[BoxData["11.729429210875175`"], "Output", - CellChangeTimes->{3.9913409010488796`*^9}, +Cell[BoxData["52.40696009924216`"], "Output", + CellChangeTimes->{3.9913409010488796`*^9, 3.994257868196126*^9}, CellLabel-> - "Out[341]=",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] + "Out[102]=",ExpressionUUID->"78b8e96a-843c-4648-96bb-b6e53df6ff2f"] }, Open ]], Cell[CellGroupData[{ @@ -8529,8 +8920,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8575,68 +8965,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918497964884186`*^9, - 3.9918497998504505`*^9}},ExpressionUUID->"a474307a-af78-3040-90ec-\ -fb8d284b16bb"], + CellChangeTimes->{{3.9918497964884186`*^9, 3.9918497998504505`*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 342, 357, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913409010848827`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0633494812073349`*^-229\\\", \ +RowBox[{\\\"1894408991562427689427794363373458470910\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8875062955245236398325760000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 29, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913409010848827`*^9, 3.994257868272579*^9}, CellLabel-> "During evaluation of \ -In[342]:=",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], +In[103]:=",ExpressionUUID->"3c3408f3-6282-4c8d-8755-b494533a4f05"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 342, 358, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913409010938797`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.889818921958403`*^-236\\\", \ +RowBox[{\\\"2735526583816145583533735060711274031995\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"10\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5590907374121359182397440000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 30, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913409010848827`*^9, 3.9942578682843533`*^9}, CellLabel-> "During evaluation of \ -In[342]:=",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], +In[103]:=",ExpressionUUID->"264da4f4-4920-4c4f-986b-4e3740b2f0f0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 342, 359, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340901101883*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.464158361508648`*^-242\\\", \ +RowBox[{\\\"4160735933984357432554811027341847802665\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"13\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3770116038587316426506240000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 31, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913409010848827`*^9, 3.994257868293859*^9}, CellLabel-> "During evaluation of \ -In[342]:=",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], +In[103]:=",ExpressionUUID->"1a1f0e47-7a5d-476c-b9a2-0ac8bb34da3d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 342, 360, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913409011098804`*^9}, +during this calculation.\"", 2, 103, 32, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913409010848827`*^9, 3.99425786830375*^9}, CellLabel-> "During evaluation of \ -In[342]:=",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], +In[103]:=",ExpressionUUID->"de343a2e-82b1-41fc-82df-7b0e05660c4c"], -Cell[BoxData["21.67464099510054`"], "Output", - CellChangeTimes->{3.991340904517517*^9}, +Cell[BoxData["8.658224437706075`"], "Output", + CellChangeTimes->{3.991340904517517*^9, 3.994257876773325*^9}, CellLabel-> - "Out[342]=",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] + "Out[103]=",ExpressionUUID->"9fdc14c2-b78d-4fb0-8adc-d7b8b058695a"] }, Open ]], Cell[CellGroupData[{ @@ -8645,22 +9042,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991849803549658*^9, - 3.9918498086143265`*^9}},ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-\ -f67bfdbd9bc7"], - -Cell[BoxData["0.0843966342510027`"], "Output", - CellChangeTimes->{3.991340904549515*^9}, + CellChangeTimes->{{3.991849803549658*^9, 3.9918498086143265`*^9}}, CellLabel-> - "Out[343]=",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] + "In[104]:=",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], + +Cell[BoxData["0.005769762433241496`"], "Output", + CellChangeTimes->{3.991340904549515*^9, 3.994257876827414*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"9e409016-4a5f-45bf-b2a5-80286a26d191"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918501018852215`*^9, 3.991850105557743*^9}, - 3.99192470649716*^9},ExpressionUUID->"d104d373-080a-854b-92ff-\ -e87abbd4c41c"], + 3.99192470649716*^9}, + CellLabel-> + "In[105]:=",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], Cell[CellGroupData[{ @@ -8683,12 +9081,12 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[345]:=",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], + "In[106]:=",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], -Cell[BoxData["19.580504093356314`"], "Output", - CellChangeTimes->{3.9913409045775146`*^9}, +Cell[BoxData["15.308465039730272`"], "Output", + CellChangeTimes->{3.9913409045775146`*^9, 3.9942578768544483`*^9}, CellLabel-> - "Out[345]=",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] + "Out[106]=",ExpressionUUID->"97099d3a-e0a8-49f6-86d6-c916fef7b188"] }, Open ]], Cell[CellGroupData[{ @@ -8698,12 +9096,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[347]:=",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], + "In[107]:=",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], -Cell[BoxData["0.8477067309358528`"], "Output", - CellChangeTimes->{3.991340904625164*^9}, +Cell[BoxData["1.5571222395040323`"], "Output", + CellChangeTimes->{3.991340904625164*^9, 3.994257876872785*^9}, CellLabel-> - "Out[347]=",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] + "Out[107]=",ExpressionUUID->"6bbd1763-c23d-4428-9320-dfe3e9df58a6"] }, Open ]], Cell[CellGroupData[{ @@ -8713,12 +9111,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[350]:=",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], + "In[108]:=",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], -Cell[BoxData["16.598525115055164`"], "Output", - CellChangeTimes->{3.9913409046880226`*^9}, +Cell[BoxData["23.837151366033986`"], "Output", + CellChangeTimes->{3.9913409046880226`*^9, 3.9942578768870564`*^9}, CellLabel-> - "Out[350]=",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] + "Out[108]=",ExpressionUUID->"3125f0f0-1d63-4752-b36f-4c74b4bd0453"] }, Open ]], Cell[CellGroupData[{ @@ -8908,12 +9306,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[351]:=",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], + "In[109]:=",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], -Cell[BoxData["0.021613768236132463`"], "Output", - CellChangeTimes->{3.9913409047132187`*^9}, +Cell[BoxData["0.004317448048940448`"], "Output", + CellChangeTimes->{3.9913409047132187`*^9, 3.994257876905702*^9}, CellLabel-> - "Out[351]=",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] + "Out[109]=",ExpressionUUID->"ff942a48-42cf-4927-a59f-45eeaa66b7e4"] }, Open ]], Cell[CellGroupData[{ @@ -8927,12 +9325,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[352]:=",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], + "In[110]:=",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], -Cell[BoxData["6.028089553291302`"], "Output", - CellChangeTimes->{3.9913409048112164`*^9}, +Cell[BoxData["13.487497600900474`"], "Output", + CellChangeTimes->{3.9913409048112164`*^9, 3.994257877117916*^9}, CellLabel-> - "Out[352]=",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] + "Out[110]=",ExpressionUUID->"aac1d043-de1e-4c00-86f1-4bf68251ef26"] }, Open ]], Cell[CellGroupData[{ @@ -9124,12 +9522,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[353]:=",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], + "In[111]:=",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], -Cell[BoxData["0.010798036798660033`"], "Output", - CellChangeTimes->{3.991340904825058*^9}, +Cell[BoxData["0.036025285889890624`"], "Output", + CellChangeTimes->{3.991340904825058*^9, 3.9942578771341953`*^9}, CellLabel-> - "Out[353]=",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] + "Out[111]=",ExpressionUUID->"88e1900f-fe38-4cd0-96d1-0aaee88c307e"] }, Open ]], Cell[CellGroupData[{ @@ -9143,12 +9541,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[354]:=",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], + "In[112]:=",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], -Cell[BoxData["8.5284977476633`"], "Output", - CellChangeTimes->{3.9913409049303207`*^9}, +Cell[BoxData["4.669186516280318`"], "Output", + CellChangeTimes->{3.9913409049303207`*^9, 3.9942578773363047`*^9}, CellLabel-> - "Out[354]=",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] + "Out[112]=",ExpressionUUID->"5a9cdbe4-ff2c-4366-b24d-1c703b4ffa26"] }, Open ]], Cell[CellGroupData[{ @@ -9241,12 +9639,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[355]:=",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], + "In[113]:=",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.991340904948307*^9}, +Cell[BoxData["0.12078123313891681`"], "Output", + CellChangeTimes->{3.991340904948307*^9, 3.9942578773510437`*^9}, CellLabel-> - "Out[355]=",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] + "Out[113]=",ExpressionUUID->"c46cbd2e-511f-4e68-8c5f-df5f6511d517"] }, Open ]], Cell[CellGroupData[{ @@ -9336,12 +9734,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[356]:=",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], + "In[114]:=",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.991340904981308*^9}, +Cell[BoxData["0.8792187668610831`"], "Output", + CellChangeTimes->{3.991340904981308*^9, 3.9942578773647203`*^9}, CellLabel-> - "Out[356]=",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] + "Out[114]=",ExpressionUUID->"66417ce2-197d-448d-807d-3ba8692de0b5"] }, Open ]], Cell[CellGroupData[{ @@ -9464,12 +9862,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[357]:=",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], + "In[115]:=",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.99134090500931*^9}, +Cell[BoxData["0.10619312686035944`"], "Output", + CellChangeTimes->{3.99134090500931*^9, 3.994257877383712*^9}, CellLabel-> - "Out[357]=",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] + "Out[115]=",ExpressionUUID->"0087abd8-a645-44a6-9b13-dfdfcfa80c10"] }, Open ]], Cell[CellGroupData[{ @@ -9531,68 +9929,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849824909197*^9},ExpressionUUID->"486d514f-ec65-1e4e-b780-\ -7e9487f745c3"], + CellChangeTimes->{3.991849824909197*^9}, + CellLabel-> + "In[116]:=",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 358, - 361, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340905038307*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.2588484599161415`*^-226\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 116, 33, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340905038307*^9, 3.994257877408495*^9}, CellLabel-> "During evaluation of \ -In[358]:=",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], +In[116]:=",ExpressionUUID->"d8681335-7051-4f37-905c-d4119a03fa5f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 358, - 362, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340905047306*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2188198414430582`*^-232\\\", \ +RowBox[{\\\"1894408991562427689427794363373458470910\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8875062955245236398325760000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 116, + 34, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340905038307*^9, 3.99425787742141*^9}, CellLabel-> "During evaluation of \ -In[358]:=",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], +In[116]:=",ExpressionUUID->"3e5388de-54b6-4bc4-9b2e-6b59f87bd52a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 358, - 363, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340905056307*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.576456244215829`*^-239\\\", \ +RowBox[{\\\"2735526583816145583533735060711274031995\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"10\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5590907374121359182397440000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 116, + 35, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340905038307*^9, 3.994257877432431*^9}, CellLabel-> "During evaluation of \ -In[358]:=",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], +In[116]:=",ExpressionUUID->"0cc8962f-2df3-46ad-b61e-b88b53a693b8"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 358, 364, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340905064308*^9}, +during this calculation.\"", 2, 116, 36, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340905038307*^9, 3.9942578774460497`*^9}, CellLabel-> "During evaluation of \ -In[358]:=",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], +In[116]:=",ExpressionUUID->"8723dc91-15fa-467a-a2ef-50d8890a27b7"], -Cell[BoxData["6.028089553291301`"], "Output", - CellChangeTimes->{3.991340908920454*^9}, +Cell[BoxData["13.487497600900474`"], "Output", + CellChangeTimes->{3.991340908920454*^9, 3.994257884904435*^9}, CellLabel-> - "Out[358]=",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] + "Out[116]=",ExpressionUUID->"6069d01b-768f-4805-917b-4579f208057d"] }, Open ]], Cell[CellGroupData[{ @@ -9654,68 +10057,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918498299076843`*^9},ExpressionUUID->"c7144ce5-8356-d548-8854-\ -18c538c3321c"], + CellChangeTimes->{3.9918498299076843`*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 359, - 365, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340908954941*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.2588484599161415`*^-226\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 117, 37, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340908954941*^9, 3.9942578849546843`*^9}, CellLabel-> "During evaluation of \ -In[359]:=",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], +In[117]:=",ExpressionUUID->"d40063b0-3d69-4a27-90a5-d3c1d3eb36c2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 359, - 366, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340908964924*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2188198414430582`*^-232\\\", \ +RowBox[{\\\"1894408991562427689427794363373458470910\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8875062955245236398325760000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 38, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340908954941*^9, 3.994257884964489*^9}, CellLabel-> "During evaluation of \ -In[359]:=",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], +In[117]:=",ExpressionUUID->"a5e77481-bafa-4c5a-8efb-829326a6e897"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 359, - 367, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913409089739246`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.576456244215829`*^-239\\\", \ +RowBox[{\\\"2735526583816145583533735060711274031995\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"10\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5590907374121359182397440000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 39, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340908954941*^9, 3.9942578849743834`*^9}, CellLabel-> "During evaluation of \ -In[359]:=",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], +In[117]:=",ExpressionUUID->"8e5f5294-bb04-4897-84f6-1b44a5dadb60"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 359, 368, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340908981924*^9}, +during this calculation.\"", 2, 117, 40, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340908954941*^9, 3.99425788498429*^9}, CellLabel-> "During evaluation of \ -In[359]:=",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], +In[117]:=",ExpressionUUID->"f8248e13-6a05-4204-98e7-17f0c17f62fb"], -Cell[BoxData["8.528497747663296`"], "Output", - CellChangeTimes->{3.991340912767397*^9}, +Cell[BoxData["4.669186516280318`"], "Output", + CellChangeTimes->{3.991340912767397*^9, 3.994257892508031*^9}, CellLabel-> - "Out[359]=",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] + "Out[117]=",ExpressionUUID->"95defe61-d162-41df-b6c3-010ff8467293"] }, Open ]], Cell[CellGroupData[{ @@ -9773,95 +10181,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849833066021*^9},ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-\ -a45df2eabf0c"], + CellChangeTimes->{3.991849833066021*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo -kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv -3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 -ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf -W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d -SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 -AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 -E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH -L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx -C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I -QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 -9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U -PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 -h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ -1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK -UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx -taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb -eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN -ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr -RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q -FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d -2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd -kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo -HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu -AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv -Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN -GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U -BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog -f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 -YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca -gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG -G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 -zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 -27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo -/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW -35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 -cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 -SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou -N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH -oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q -u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA -22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG -DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 -sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV -dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A -+fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE -x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT -ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E -2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M -OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh -sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ -CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ -2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f -pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf -/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI -Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc -9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY -/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR -lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j -KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr -q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a -drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L -lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 -KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS -gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ -77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t -On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI -EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS -etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg -2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs -/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX -sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK -Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf -xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 -wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ -IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O -GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia -70x+Lkfh53XZ2uCv/w8uxqIW + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV03k4VVsfB3AUKZQhUzJkKrPMSq2fObNEiHQcZ29j6JBXERXSREjFvYpC +SSghY11dknCjSKWIDAmbc0QaVO86f+xnP59n7f19vmvaRI9wI3i4uLgo/HDe +h55rb67teb5z8r0wg3majXbOFhnSrcpQfF7NXo6H842yla2aUMiTIm2OXRn/ +8QnqP0HWPkPTh7ArYxNbeK26kACDns7xmTap5sTSF0hpUleC4/qeQ9eW9V6h +ffN2SZHYUwMd8Uca36APF8pfRWBvGFfy+Wr5Htn3+Ahx7DAXbxrV9QHlPHFX +D8d+tDwlEFs6gjSSczQPYvefkIx7ED6KehQ3rw/DnuWzmlrQG0dVDVwjIdh8 +5yO99ZcmUHCgysVgbDmRq+2HGicRZXNJPQjbWebrzVnLGeSs6LmawCYLFCW0 ++GeRLHnbNQA7UcUlJbRrDuWH2R7zx34j2bc1upSNxMICT+3HZuwLCb54fh4p +Nn+m+2Cz8riu3w//gjTS6pS9sfkVtYTZeouom27m5Y6dzWixFRb/ihresp/t +xla45Z2os/QVoZsLCi7YJpqnZg82fkNCxqMJdthBRh+6piyX0XxC6A8z7IXY +wyvXqP5Cy2+yLptiH28UMFPj/42mqldLGWHngMmdwK4/SNjoU4c2p19xuxWz +lBssH4aw5LBL2y4On5DhAfvDkrUbOH0/+cVnnueBjmiJAAnsePXFqnvhKyBy +QDBUiNP37ialOT1e2Fs3se1HKhsN9Mw8+l3IC1ZiWzUXsRXma/etFeeDsPUv +eFjYZQbOWVpLfGA1IUYbx26tP8od1sgP/Z73B55jL7b0fpi0FIQV7W09edii +joLCcY8EoWdtWcolbN0+KxAyFQILupVMOnbIWE3BVu21YLgnczIBO5KnS3eH +oDAsilYJHMAeV6xgp3wVAVpyf7Q09gLZsbpbXxQCC3cbCmPz3JnYJHVIFHIH +0/r5OH315d1Kp0XB4i+nxi+n2GifZcb958Ni8OgO39ou7O4AZpRkpzi4lju9 +jcEeupV+jsYvAfKGXjdDsWemSwtvW0tAvY6hOw17TfRo7/ZmCRizDnWzw7ZK +djeg1UhCiNrUG2nshiKjxZJ8aYjd5LKuJoWNisZ/xGyLloXCJkuNvmQ22uWR +OhRVLgu3LIUl2rBnWsVsyidkwbyxb7wW26BIU1zBWw4sq+wN/sZupftV8e6U +h9wX69Jo2PNzw/+bTFKAvK06OhNJ+FwetKquclKEzX+1ocGTbDRRtCbINUQR +isGmqxO77n2PDHVKEUx2zOxowPZ13J+k2qwIv0sqey5jF2nEuOXqKcHncZdq +Z2yDqVusBEll+KfF+XD9CTZyDxTQsh9RgeLrcVNHj7MRivHQ8/ylAncjmlNJ +bPWUfGOGtCpIJ4UJuGFzFepbJOxWBa8K7rYt2OVDPp73H6uCC9ce/leJ+H7u +LTux4cZmSFTQbdmCXWfl1D9FV4PH/mbyD4+xUeGeK++WEtQg67VwWjF2On1k +eOXfalATeHYkDZtx/PC0XK8aGCgf3umHLdJ0lWuPpTqYFge0/4rH50d/Vr1R +SQP+yj8uZ4Ito3gh8dyYJjQ/XjOae5SNms4uqH3n0QKNuoqxeGzfL9595CYt +eCjR034A+1qrspqFnxbM8V0xUcFWDGx4+e21Fqjqn31QcQTPt2xchezUhkFa +lXZTLBvJysiRCt66kCMnpfo4ho00i6MFfyI9CLn3eSqKyUZ0RtKilrMe3OEd +E3HDzlHKGqL56sEoNSavi73ixt17bbF6QDvLx54+hO/btSn3rEo9kGfJBtGx +z+TQrqop6cOYjWOZfSTe33OO2l58BlAZc/4GfzgbXWcqu9Z0GQK77K/lbcFs +1BODjJOLTWH/s4HA0/vZaJPfK+f9YTtgfWVGBOHKRsSfBxWyRwDMRc9ONVmw +keR03SpJugX0JYTKxumxUbS+2fssdSsIThqfW6WI+1PL7WJT1nBOXP1jpzDe +T4uoVfndttBkrFK2sMxCRQshj8uy7UD205BK7GcW+mYu9V9rogMoVDiKkb0s +NMi1gj3i7wRJuScaRptYKHxjRMYJJRe43CvgBbdYqCK4vflSiit8fS97fesF +Fjr6RXpJI3g3uOq9NnCIZaFFe5u9Tw+4wW9ji+2yB1jI1CfTfHz3Hugc4D6p +bMNCL6WvhrTqu0OwiolFgzYLbbiZ1FSyxQNSA++ku4mzUN2wuqOz0F7YeHzH +pN/POSTXxwqMofZCvcYruu9/c0j/UmZZ4bAniFhF31yZN4eurvyindXiBcyC +NeMV4XPogbnOQEq9NzxhX9VJ2jmHcozPiiyX7gPFzOrLNOE51P2u+JT+eR+Q +P7PjR+rELKpxylOOPO4Lsi+SKnMbZhH74B6ucMZ+WBe//YzExVm0aKMWNGvp +B3/8XfiHD86iEurttyijA/DS07fYzXYWeV0vDtgvSAMBgd3fNFVmUdV9hwMr +UmlQl5Q2bc4zi0xlXn4/850GGj/739WOUkhpOHDgRbA/SLzSre58SqExgVCX +vFF/WFB9HvX2DoV60p0DbD3osJpp9IQ/m0LZsfkCh3vowN1rcro1nkJNj/58 +D7ALgM4d6Gd6EIXW+UKqfkMAiO31D5TxopDC+qfdG5sCQFw3wuStJ4V0u5yk ++B4FALPypeEVbDczn9tvHgdA5bfiGjHs7I0xnceeBcB2h65na/dSaMPgnXXt +bwIgs+eUjZA7hZT9JHN8lwLAs/9hkYYrhUxpsyUpBgzo3diTMruLQjdzWVHO +RgxIjlLY3Ii9vnd+p6QJA0ZbiuZSsWetl/pKtjPg9nvXr5uwizS4uLssGIDI +0AFPWwqtXRLxFt3NgM9Xdv3psMbrkWa4Ov8gA46Y27U/t6DQ7qfGfYERDGjz +KNxTgP2Ia1u+7iEGrO8L4WNi50btNPw3mgH+/bs+imM7e9v6j8cxgJCIjDpg +TqF6Ze96jbMMWCz7sPwdUSi9MT647iYDWhUv1TruoNBBvSumsSUMGC/xWKmM +7Xi7crVJKQMSf2n876cZhdZcmbhdW86A+n/ku0uxU5iuUw+qGSAh67BLADte +TTm05l8GCO+epPVuo1DIlc6w+0MM+FNVZnDchEJ2ayfMmMMMuKD6n40v9pYU +LiG9jwxIMNBONMGeYBqWV44zwE6+ls42ppC/cz51b4YBij18iwxsL96o8Ls/ +GDAkWWG7x4hCtlEbIsskCJhe9ix3NKDQv/mn7LOkCDA4fHRCHdusa145dgMB +Yp+7HVdj66p0vrWUI+CmufT1Nn0KSb+Os3ynQkDSI4cgS+zpbYMSawwJIL55 +M631KHSBp+Bh4B4CpD7yJ4Tq4vnrCOY4eRBwX1eY5oKd7BPL1Pck4MxLZoQ+ +dmy16+Y/+wgwz3OWWNbB/UnuzMt0Am7UJSZfwNbvoDOeHCLgS/jD0UfaFHqd +qSKglEGAjf5cNdKiUAUSCprMJODBVc0WdexkaqG1/CIB996u/C6OrWfXmmBy +hYBrD06/m9HE+8cVMO90jYACm/m4PGybiIK3sWUEPN46pb4CW1b2tNHOCgJi +5tSqWBoUWuiIuLjiHgEP/14XMIR9QxU5pVcR0OjRbdqA/WtwsLmwgYAyKb2W +KOxqR5mS5+0EmJxcazOrTqFzP3h4szvw/J4t7RrCppdM+Xt3EaB0PyPqObbw +ygaZsW4Crhb1orvYYY1eF773EyDuV17NxFZSvxyjPE5A0BpVYW7sH6+P9X6e +IODDEbv0L2r4vqcQuncnCfB8pWwwgZ0wYjBlOkNA8lbepU7sgZze/S5fCMj2 +OuKdi521SsT6KDcJ/2ZlZm7Hbpof9IleQUKrdJu1DvanwVJmOC8Jjk9OaChh +m1VbFdBXkyBUknFOAHuCFvvTXoSE4O8brg1twf0drUWtxUjQXndlqBd7u7Go +GhInod/pmusz7Ayhsr360iQky7k+q+aMN3yolNlEQu1xJ6F0bLK4rF1ciQT2 +AZ2BZM73GUc+rFMhYXI4/00c9gQpJrRSjYS3+7RDQjjjYrZBM7okHKkXGLbD +bvgtljihR4IuHDS1wB7/PHxp2ICEfzxorduwtzUfbekzIWF93HK4JvZYWIXc +QyBB3VVcUhR7rVecYa0FCVu4BH8JYJta7nKstCKhquDyej7sdOmPR4p3kXCi +MejNj80Uqlt5NyPfngSp6nvJi9ijc3G3ch3xfHPT6CxskzbxV2muJCyLrKqa +wKZXfpxOdSNBQaRI5SN2Wt5dnpPuJES+7n82iP2Raacb40XCy6O/b77CFvKT +sI3cRwJR9eXDC06e3ej+EF8SZoMT7Z9z/pc/ds6PRkLn3L7qp5w+a+xveNFJ +EFh9p6qVk7coUe/GIMHbIGvsMSdvZLTbkSTBOFPY9h9OXte9CZsgEubNVN81 +cfrVHvsFISRQbr0FDZz8G/brt4fh9ZiRzKnj5KdJahiGkxAqv9D8gJMfO2au +E0mCH3eQTA22IKPSS41JQmFR1K0qbGOXhAilaBJ8pSWJ+5z8bQ6nZGNIWBHu +5l6JfV5F6qpkLF7/CpXD97AfCI9XiRwlgW8s4+ld7JGflR0C8SR0SGQ7cCz4 +KWGEN4EED0cdbo6NXjp8+5NIQnYqfbIC+/8BFvOw "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -9875,106 +10282,106 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo -kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv -3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 -ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf -W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d -SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 -AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 -E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH -L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx -C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I -QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 -9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U -PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 -h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ -1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK -UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx -taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb -eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN -ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr -RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q -FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d -2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd -kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo -HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu -AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv -Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN -GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U -BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog -f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 -YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca -gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG -G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 -zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 -27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo -/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW -35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 -cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 -SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou -N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH -oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q -u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA -22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG -DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 -sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV -dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A -+fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE -x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT -ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E -2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M -OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh -sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ -CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ -2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f -pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf -/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI -Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc -9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY -/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR -lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j -KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr -q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a -drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L -lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 -KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS -gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ -77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t -On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI -EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS -etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg -2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs -/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX -sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK -Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf -xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 -wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ -IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O -GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia -70x+Lkfh53XZ2uCv/w8uxqIW +1:eJwV03k4VVsfB3AUKZQhUzJkKrPMSq2fObNEiHQcZ29j6JBXERXSREjFvYpC +SSghY11dknCjSKWIDAmbc0QaVO86f+xnP59n7f19vmvaRI9wI3i4uLgo/HDe +h55rb67teb5z8r0wg3majXbOFhnSrcpQfF7NXo6H842yla2aUMiTIm2OXRn/ +8QnqP0HWPkPTh7ArYxNbeK26kACDns7xmTap5sTSF0hpUleC4/qeQ9eW9V6h +ffN2SZHYUwMd8Uca36APF8pfRWBvGFfy+Wr5Htn3+Ahx7DAXbxrV9QHlPHFX +D8d+tDwlEFs6gjSSczQPYvefkIx7ED6KehQ3rw/DnuWzmlrQG0dVDVwjIdh8 +5yO99ZcmUHCgysVgbDmRq+2HGicRZXNJPQjbWebrzVnLGeSs6LmawCYLFCW0 ++GeRLHnbNQA7UcUlJbRrDuWH2R7zx34j2bc1upSNxMICT+3HZuwLCb54fh4p +Nn+m+2Cz8riu3w//gjTS6pS9sfkVtYTZeouom27m5Y6dzWixFRb/ihresp/t +xla45Z2os/QVoZsLCi7YJpqnZg82fkNCxqMJdthBRh+6piyX0XxC6A8z7IXY +wyvXqP5Cy2+yLptiH28UMFPj/42mqldLGWHngMmdwK4/SNjoU4c2p19xuxWz +lBssH4aw5LBL2y4On5DhAfvDkrUbOH0/+cVnnueBjmiJAAnsePXFqnvhKyBy +QDBUiNP37ialOT1e2Fs3se1HKhsN9Mw8+l3IC1ZiWzUXsRXma/etFeeDsPUv +eFjYZQbOWVpLfGA1IUYbx26tP8od1sgP/Z73B55jL7b0fpi0FIQV7W09edii +joLCcY8EoWdtWcolbN0+KxAyFQILupVMOnbIWE3BVu21YLgnczIBO5KnS3eH +oDAsilYJHMAeV6xgp3wVAVpyf7Q09gLZsbpbXxQCC3cbCmPz3JnYJHVIFHIH +0/r5OH315d1Kp0XB4i+nxi+n2GifZcb958Ni8OgO39ou7O4AZpRkpzi4lju9 +jcEeupV+jsYvAfKGXjdDsWemSwtvW0tAvY6hOw17TfRo7/ZmCRizDnWzw7ZK +djeg1UhCiNrUG2nshiKjxZJ8aYjd5LKuJoWNisZ/xGyLloXCJkuNvmQ22uWR +OhRVLgu3LIUl2rBnWsVsyidkwbyxb7wW26BIU1zBWw4sq+wN/sZupftV8e6U +h9wX69Jo2PNzw/+bTFKAvK06OhNJ+FwetKquclKEzX+1ocGTbDRRtCbINUQR +isGmqxO77n2PDHVKEUx2zOxowPZ13J+k2qwIv0sqey5jF2nEuOXqKcHncZdq +Z2yDqVusBEll+KfF+XD9CTZyDxTQsh9RgeLrcVNHj7MRivHQ8/ylAncjmlNJ +bPWUfGOGtCpIJ4UJuGFzFepbJOxWBa8K7rYt2OVDPp73H6uCC9ce/leJ+H7u +LTux4cZmSFTQbdmCXWfl1D9FV4PH/mbyD4+xUeGeK++WEtQg67VwWjF2On1k +eOXfalATeHYkDZtx/PC0XK8aGCgf3umHLdJ0lWuPpTqYFge0/4rH50d/Vr1R +SQP+yj8uZ4Ito3gh8dyYJjQ/XjOae5SNms4uqH3n0QKNuoqxeGzfL9595CYt +eCjR034A+1qrspqFnxbM8V0xUcFWDGx4+e21Fqjqn31QcQTPt2xchezUhkFa +lXZTLBvJysiRCt66kCMnpfo4ho00i6MFfyI9CLn3eSqKyUZ0RtKilrMe3OEd +E3HDzlHKGqL56sEoNSavi73ixt17bbF6QDvLx54+hO/btSn3rEo9kGfJBtGx +z+TQrqop6cOYjWOZfSTe33OO2l58BlAZc/4GfzgbXWcqu9Z0GQK77K/lbcFs +1BODjJOLTWH/s4HA0/vZaJPfK+f9YTtgfWVGBOHKRsSfBxWyRwDMRc9ONVmw +keR03SpJugX0JYTKxumxUbS+2fssdSsIThqfW6WI+1PL7WJT1nBOXP1jpzDe +T4uoVfndttBkrFK2sMxCRQshj8uy7UD205BK7GcW+mYu9V9rogMoVDiKkb0s +NMi1gj3i7wRJuScaRptYKHxjRMYJJRe43CvgBbdYqCK4vflSiit8fS97fesF +Fjr6RXpJI3g3uOq9NnCIZaFFe5u9Tw+4wW9ji+2yB1jI1CfTfHz3Hugc4D6p +bMNCL6WvhrTqu0OwiolFgzYLbbiZ1FSyxQNSA++ku4mzUN2wuqOz0F7YeHzH +pN/POSTXxwqMofZCvcYruu9/c0j/UmZZ4bAniFhF31yZN4eurvyindXiBcyC +NeMV4XPogbnOQEq9NzxhX9VJ2jmHcozPiiyX7gPFzOrLNOE51P2u+JT+eR+Q +P7PjR+rELKpxylOOPO4Lsi+SKnMbZhH74B6ucMZ+WBe//YzExVm0aKMWNGvp +B3/8XfiHD86iEurttyijA/DS07fYzXYWeV0vDtgvSAMBgd3fNFVmUdV9hwMr +UmlQl5Q2bc4zi0xlXn4/850GGj/739WOUkhpOHDgRbA/SLzSre58SqExgVCX +vFF/WFB9HvX2DoV60p0DbD3osJpp9IQ/m0LZsfkCh3vowN1rcro1nkJNj/58 +D7ALgM4d6Gd6EIXW+UKqfkMAiO31D5TxopDC+qfdG5sCQFw3wuStJ4V0u5yk ++B4FALPypeEVbDczn9tvHgdA5bfiGjHs7I0xnceeBcB2h65na/dSaMPgnXXt +bwIgs+eUjZA7hZT9JHN8lwLAs/9hkYYrhUxpsyUpBgzo3diTMruLQjdzWVHO +RgxIjlLY3Ii9vnd+p6QJA0ZbiuZSsWetl/pKtjPg9nvXr5uwizS4uLssGIDI +0AFPWwqtXRLxFt3NgM9Xdv3psMbrkWa4Ov8gA46Y27U/t6DQ7qfGfYERDGjz +KNxTgP2Ia1u+7iEGrO8L4WNi50btNPw3mgH+/bs+imM7e9v6j8cxgJCIjDpg +TqF6Ze96jbMMWCz7sPwdUSi9MT647iYDWhUv1TruoNBBvSumsSUMGC/xWKmM +7Xi7crVJKQMSf2n876cZhdZcmbhdW86A+n/ku0uxU5iuUw+qGSAh67BLADte +TTm05l8GCO+epPVuo1DIlc6w+0MM+FNVZnDchEJ2ayfMmMMMuKD6n40v9pYU +LiG9jwxIMNBONMGeYBqWV44zwE6+ls42ppC/cz51b4YBij18iwxsL96o8Ls/ +GDAkWWG7x4hCtlEbIsskCJhe9ix3NKDQv/mn7LOkCDA4fHRCHdusa145dgMB +Yp+7HVdj66p0vrWUI+CmufT1Nn0KSb+Os3ynQkDSI4cgS+zpbYMSawwJIL55 +M631KHSBp+Bh4B4CpD7yJ4Tq4vnrCOY4eRBwX1eY5oKd7BPL1Pck4MxLZoQ+ +dmy16+Y/+wgwz3OWWNbB/UnuzMt0Am7UJSZfwNbvoDOeHCLgS/jD0UfaFHqd +qSKglEGAjf5cNdKiUAUSCprMJODBVc0WdexkaqG1/CIB996u/C6OrWfXmmBy +hYBrD06/m9HE+8cVMO90jYACm/m4PGybiIK3sWUEPN46pb4CW1b2tNHOCgJi +5tSqWBoUWuiIuLjiHgEP/14XMIR9QxU5pVcR0OjRbdqA/WtwsLmwgYAyKb2W +KOxqR5mS5+0EmJxcazOrTqFzP3h4szvw/J4t7RrCppdM+Xt3EaB0PyPqObbw +ygaZsW4Crhb1orvYYY1eF773EyDuV17NxFZSvxyjPE5A0BpVYW7sH6+P9X6e +IODDEbv0L2r4vqcQuncnCfB8pWwwgZ0wYjBlOkNA8lbepU7sgZze/S5fCMj2 +OuKdi521SsT6KDcJ/2ZlZm7Hbpof9IleQUKrdJu1DvanwVJmOC8Jjk9OaChh +m1VbFdBXkyBUknFOAHuCFvvTXoSE4O8brg1twf0drUWtxUjQXndlqBd7u7Go +GhInod/pmusz7Ayhsr360iQky7k+q+aMN3yolNlEQu1xJ6F0bLK4rF1ciQT2 +AZ2BZM73GUc+rFMhYXI4/00c9gQpJrRSjYS3+7RDQjjjYrZBM7okHKkXGLbD +bvgtljihR4IuHDS1wB7/PHxp2ICEfzxorduwtzUfbekzIWF93HK4JvZYWIXc +QyBB3VVcUhR7rVecYa0FCVu4BH8JYJta7nKstCKhquDyej7sdOmPR4p3kXCi +MejNj80Uqlt5NyPfngSp6nvJi9ijc3G3ch3xfHPT6CxskzbxV2muJCyLrKqa +wKZXfpxOdSNBQaRI5SN2Wt5dnpPuJES+7n82iP2Raacb40XCy6O/b77CFvKT +sI3cRwJR9eXDC06e3ej+EF8SZoMT7Z9z/pc/ds6PRkLn3L7qp5w+a+xveNFJ +EFh9p6qVk7coUe/GIMHbIGvsMSdvZLTbkSTBOFPY9h9OXte9CZsgEubNVN81 +cfrVHvsFISRQbr0FDZz8G/brt4fh9ZiRzKnj5KdJahiGkxAqv9D8gJMfO2au +E0mCH3eQTA22IKPSS41JQmFR1K0qbGOXhAilaBJ8pSWJ+5z8bQ6nZGNIWBHu +5l6JfV5F6qpkLF7/CpXD97AfCI9XiRwlgW8s4+ld7JGflR0C8SR0SGQ7cCz4 +KWGEN4EED0cdbo6NXjp8+5NIQnYqfbIC+/8BFvOw "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.42228371308737755`}, + "PlotRange" -> {{0, 180}, {0.9110941447035992, + 1.0958122166464879`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9110941447036012}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -9986,20 +10393,21 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "PlotRange" -> {{0, 180}, {0.9110941447035992, + 1.0958122166464879`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.42228371308737755`}, + "AxesOrigin" -> {0, 0.9110941447036012}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10013,105 +10421,104 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo -kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv -3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 -ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf -W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d -SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 -AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 -E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH -L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx -C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I -QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 -9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U -PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 -h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ -1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK -UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx -taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb -eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN -ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr -RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q -FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d -2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd -kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo -HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu -AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv -Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN -GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U -BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog -f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 -YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca -gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG -G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 -zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 -27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo -/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW -35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 -cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 -SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou -N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH -oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q -u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA -22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG -DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 -sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV -dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A -+fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE -x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT -ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E -2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M -OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh -sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ -CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ -2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f -pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf -/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI -Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc -9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY -/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR -lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j -KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr -q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a -drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L -lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 -KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS -gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ -77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t -On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI -EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS -etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg -2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs -/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX -sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK -Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf -xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 -wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ -IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O -GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia -70x+Lkfh53XZ2uCv/w8uxqIW +1:eJwV03k4VVsfB3AUKZQhUzJkKrPMSq2fObNEiHQcZ29j6JBXERXSREjFvYpC +SSghY11dknCjSKWIDAmbc0QaVO86f+xnP59n7f19vmvaRI9wI3i4uLgo/HDe +h55rb67teb5z8r0wg3majXbOFhnSrcpQfF7NXo6H842yla2aUMiTIm2OXRn/ +8QnqP0HWPkPTh7ArYxNbeK26kACDns7xmTap5sTSF0hpUleC4/qeQ9eW9V6h +ffN2SZHYUwMd8Uca36APF8pfRWBvGFfy+Wr5Htn3+Ahx7DAXbxrV9QHlPHFX +D8d+tDwlEFs6gjSSczQPYvefkIx7ED6KehQ3rw/DnuWzmlrQG0dVDVwjIdh8 +5yO99ZcmUHCgysVgbDmRq+2HGicRZXNJPQjbWebrzVnLGeSs6LmawCYLFCW0 ++GeRLHnbNQA7UcUlJbRrDuWH2R7zx34j2bc1upSNxMICT+3HZuwLCb54fh4p +Nn+m+2Cz8riu3w//gjTS6pS9sfkVtYTZeouom27m5Y6dzWixFRb/ihresp/t +xla45Z2os/QVoZsLCi7YJpqnZg82fkNCxqMJdthBRh+6piyX0XxC6A8z7IXY +wyvXqP5Cy2+yLptiH28UMFPj/42mqldLGWHngMmdwK4/SNjoU4c2p19xuxWz +lBssH4aw5LBL2y4On5DhAfvDkrUbOH0/+cVnnueBjmiJAAnsePXFqnvhKyBy +QDBUiNP37ialOT1e2Fs3se1HKhsN9Mw8+l3IC1ZiWzUXsRXma/etFeeDsPUv +eFjYZQbOWVpLfGA1IUYbx26tP8od1sgP/Z73B55jL7b0fpi0FIQV7W09edii +joLCcY8EoWdtWcolbN0+KxAyFQILupVMOnbIWE3BVu21YLgnczIBO5KnS3eH +oDAsilYJHMAeV6xgp3wVAVpyf7Q09gLZsbpbXxQCC3cbCmPz3JnYJHVIFHIH +0/r5OH315d1Kp0XB4i+nxi+n2GifZcb958Ni8OgO39ou7O4AZpRkpzi4lju9 +jcEeupV+jsYvAfKGXjdDsWemSwtvW0tAvY6hOw17TfRo7/ZmCRizDnWzw7ZK +djeg1UhCiNrUG2nshiKjxZJ8aYjd5LKuJoWNisZ/xGyLloXCJkuNvmQ22uWR +OhRVLgu3LIUl2rBnWsVsyidkwbyxb7wW26BIU1zBWw4sq+wN/sZupftV8e6U +h9wX69Jo2PNzw/+bTFKAvK06OhNJ+FwetKquclKEzX+1ocGTbDRRtCbINUQR +isGmqxO77n2PDHVKEUx2zOxowPZ13J+k2qwIv0sqey5jF2nEuOXqKcHncZdq +Z2yDqVusBEll+KfF+XD9CTZyDxTQsh9RgeLrcVNHj7MRivHQ8/ylAncjmlNJ +bPWUfGOGtCpIJ4UJuGFzFepbJOxWBa8K7rYt2OVDPp73H6uCC9ce/leJ+H7u +LTux4cZmSFTQbdmCXWfl1D9FV4PH/mbyD4+xUeGeK++WEtQg67VwWjF2On1k +eOXfalATeHYkDZtx/PC0XK8aGCgf3umHLdJ0lWuPpTqYFge0/4rH50d/Vr1R +SQP+yj8uZ4Ito3gh8dyYJjQ/XjOae5SNms4uqH3n0QKNuoqxeGzfL9595CYt +eCjR034A+1qrspqFnxbM8V0xUcFWDGx4+e21Fqjqn31QcQTPt2xchezUhkFa +lXZTLBvJysiRCt66kCMnpfo4ho00i6MFfyI9CLn3eSqKyUZ0RtKilrMe3OEd +E3HDzlHKGqL56sEoNSavi73ixt17bbF6QDvLx54+hO/btSn3rEo9kGfJBtGx +z+TQrqop6cOYjWOZfSTe33OO2l58BlAZc/4GfzgbXWcqu9Z0GQK77K/lbcFs +1BODjJOLTWH/s4HA0/vZaJPfK+f9YTtgfWVGBOHKRsSfBxWyRwDMRc9ONVmw +keR03SpJugX0JYTKxumxUbS+2fssdSsIThqfW6WI+1PL7WJT1nBOXP1jpzDe +T4uoVfndttBkrFK2sMxCRQshj8uy7UD205BK7GcW+mYu9V9rogMoVDiKkb0s +NMi1gj3i7wRJuScaRptYKHxjRMYJJRe43CvgBbdYqCK4vflSiit8fS97fesF +Fjr6RXpJI3g3uOq9NnCIZaFFe5u9Tw+4wW9ji+2yB1jI1CfTfHz3Hugc4D6p +bMNCL6WvhrTqu0OwiolFgzYLbbiZ1FSyxQNSA++ku4mzUN2wuqOz0F7YeHzH +pN/POSTXxwqMofZCvcYruu9/c0j/UmZZ4bAniFhF31yZN4eurvyindXiBcyC +NeMV4XPogbnOQEq9NzxhX9VJ2jmHcozPiiyX7gPFzOrLNOE51P2u+JT+eR+Q +P7PjR+rELKpxylOOPO4Lsi+SKnMbZhH74B6ucMZ+WBe//YzExVm0aKMWNGvp +B3/8XfiHD86iEurttyijA/DS07fYzXYWeV0vDtgvSAMBgd3fNFVmUdV9hwMr +UmlQl5Q2bc4zi0xlXn4/850GGj/739WOUkhpOHDgRbA/SLzSre58SqExgVCX +vFF/WFB9HvX2DoV60p0DbD3osJpp9IQ/m0LZsfkCh3vowN1rcro1nkJNj/58 +D7ALgM4d6Gd6EIXW+UKqfkMAiO31D5TxopDC+qfdG5sCQFw3wuStJ4V0u5yk ++B4FALPypeEVbDczn9tvHgdA5bfiGjHs7I0xnceeBcB2h65na/dSaMPgnXXt +bwIgs+eUjZA7hZT9JHN8lwLAs/9hkYYrhUxpsyUpBgzo3diTMruLQjdzWVHO +RgxIjlLY3Ii9vnd+p6QJA0ZbiuZSsWetl/pKtjPg9nvXr5uwizS4uLssGIDI +0AFPWwqtXRLxFt3NgM9Xdv3psMbrkWa4Ov8gA46Y27U/t6DQ7qfGfYERDGjz +KNxTgP2Ia1u+7iEGrO8L4WNi50btNPw3mgH+/bs+imM7e9v6j8cxgJCIjDpg +TqF6Ze96jbMMWCz7sPwdUSi9MT647iYDWhUv1TruoNBBvSumsSUMGC/xWKmM +7Xi7crVJKQMSf2n876cZhdZcmbhdW86A+n/ku0uxU5iuUw+qGSAh67BLADte +TTm05l8GCO+epPVuo1DIlc6w+0MM+FNVZnDchEJ2ayfMmMMMuKD6n40v9pYU +LiG9jwxIMNBONMGeYBqWV44zwE6+ls42ppC/cz51b4YBij18iwxsL96o8Ls/ +GDAkWWG7x4hCtlEbIsskCJhe9ix3NKDQv/mn7LOkCDA4fHRCHdusa145dgMB +Yp+7HVdj66p0vrWUI+CmufT1Nn0KSb+Os3ynQkDSI4cgS+zpbYMSawwJIL55 +M631KHSBp+Bh4B4CpD7yJ4Tq4vnrCOY4eRBwX1eY5oKd7BPL1Pck4MxLZoQ+ +dmy16+Y/+wgwz3OWWNbB/UnuzMt0Am7UJSZfwNbvoDOeHCLgS/jD0UfaFHqd +qSKglEGAjf5cNdKiUAUSCprMJODBVc0WdexkaqG1/CIB996u/C6OrWfXmmBy +hYBrD06/m9HE+8cVMO90jYACm/m4PGybiIK3sWUEPN46pb4CW1b2tNHOCgJi +5tSqWBoUWuiIuLjiHgEP/14XMIR9QxU5pVcR0OjRbdqA/WtwsLmwgYAyKb2W +KOxqR5mS5+0EmJxcazOrTqFzP3h4szvw/J4t7RrCppdM+Xt3EaB0PyPqObbw +ygaZsW4Crhb1orvYYY1eF773EyDuV17NxFZSvxyjPE5A0BpVYW7sH6+P9X6e +IODDEbv0L2r4vqcQuncnCfB8pWwwgZ0wYjBlOkNA8lbepU7sgZze/S5fCMj2 +OuKdi521SsT6KDcJ/2ZlZm7Hbpof9IleQUKrdJu1DvanwVJmOC8Jjk9OaChh +m1VbFdBXkyBUknFOAHuCFvvTXoSE4O8brg1twf0drUWtxUjQXndlqBd7u7Go +GhInod/pmusz7Ayhsr360iQky7k+q+aMN3yolNlEQu1xJ6F0bLK4rF1ciQT2 +AZ2BZM73GUc+rFMhYXI4/00c9gQpJrRSjYS3+7RDQjjjYrZBM7okHKkXGLbD +bvgtljihR4IuHDS1wB7/PHxp2ICEfzxorduwtzUfbekzIWF93HK4JvZYWIXc +QyBB3VVcUhR7rVecYa0FCVu4BH8JYJta7nKstCKhquDyej7sdOmPR4p3kXCi +MejNj80Uqlt5NyPfngSp6nvJi9ijc3G3ch3xfHPT6CxskzbxV2muJCyLrKqa +wKZXfpxOdSNBQaRI5SN2Wt5dnpPuJES+7n82iP2Raacb40XCy6O/b77CFvKT +sI3cRwJR9eXDC06e3ej+EF8SZoMT7Z9z/pc/ds6PRkLn3L7qp5w+a+xveNFJ +EFh9p6qVk7coUe/GIMHbIGvsMSdvZLTbkSTBOFPY9h9OXte9CZsgEubNVN81 +cfrVHvsFISRQbr0FDZz8G/brt4fh9ZiRzKnj5KdJahiGkxAqv9D8gJMfO2au +E0mCH3eQTA22IKPSS41JQmFR1K0qbGOXhAilaBJ8pSWJ+5z8bQ6nZGNIWBHu +5l6JfV5F6qpkLF7/CpXD97AfCI9XiRwlgW8s4+ld7JGflR0C8SR0SGQ7cCz4 +KWGEN4EED0cdbo6NXjp8+5NIQnYqfbIC+/8BFvOw "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "PlotRange" -> {{0, 180}, {0.9110941447035992, 1.0958122166464879`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.42228371308737755`}, + "AxesOrigin" -> {0, 0.9110941447036012}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10121,7 +10528,8 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.42228371308737755`}, + AxesOrigin->{0, 0.9110941447036012}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -10149,7 +10557,8 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.4222837130873766, 2.103798844286089}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.9110941447035992, 1.0958122166464879`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -10157,9 +10566,9 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913411752988663`*^9}, + CellChangeTimes->{3.9913411752988663`*^9, 3.9942584941877337`*^9}, CellLabel-> - "Out[360]=",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] + "Out[118]=",ExpressionUUID->"9b132df7-0180-4341-b108-479fe2cab7bf"] }, Open ]], Cell[CellGroupData[{ @@ -10222,157 +10631,161 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.9918498397477245`*^9, - 3.9918498435341415`*^9}},ExpressionUUID->"92d458c4-bfde-c447-a06c-\ -70a15768b745"], + CellChangeTimes->{{3.9918498397477245`*^9, 3.9918498435341415`*^9}}, + CellLabel-> + "In[119]:=",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.939746899581406`*^-267\\\", \ + "\"\\!\\(\\*FractionBox[\\\"5.609967186125982`*^-280\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 41, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913411755393047`*^9, 3.9942584943804417`*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"0232d38e-68cd-4e44-aa97-86aa9aaaff48"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.136923503407603`*^-292\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 42, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913411755393047`*^9, 3.99425849438901*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"df72f04b-800d-4d85-bb09-8754c6cb74d5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.304104479964402`*^-305\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 361, - 369, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913411755393047`*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 43, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913411755393047`*^9, 3.994258494397566*^9}, CellLabel-> "During evaluation of \ -In[361]:=",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.7974258435449576`*^-278\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 361, 370, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913411755492897`*^9}, - CellLabel-> - "During evaluation of \ -In[361]:=",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.87479384448772`*^-289\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 361, 371, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991341175557289*^9}, - CellLabel-> - "During evaluation of \ -In[361]:=",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], +In[119]:=",ExpressionUUID->"6d5b3434-c370-43b1-bcfd-7d4df033b221"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 361, 372, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913411755664787`*^9}, +during this calculation.\"", 2, 119, 44, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913411755393047`*^9, 3.9942584944068832`*^9}, CellLabel-> "During evaluation of \ -In[361]:=",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], +In[119]:=",ExpressionUUID->"cde8db0f-9c44-4c54-b1f3-acf5ed62dfff"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK -FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE -hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux -IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B -8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K -ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS -jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 -CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs -KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC -owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 -9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV -MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 -h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC -Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp -9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ -oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt -GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN -62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw -rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 -M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS -dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ -Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ -bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys -CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp -YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF -Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc -mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn -Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM -PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u -4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K -R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l -F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y -6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q -FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF -0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 -dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG -jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU -s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq -KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g -aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx -0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ -bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 -emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY -+Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix -Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK -ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv -HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt -pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR -URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp -/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K -MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh -VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi -Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i -bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys -Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf -kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 -mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ -emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X -PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC -5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr -ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk -8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr -qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO -6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY -ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 -w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m -Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb -eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo -/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm -N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx -4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq -QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya -LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF -jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm -m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 -d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX -WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D -0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD -uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk -u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT -V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 -ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT -PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 -ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q -bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA -OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC -oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 -YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL -/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk4VG0UAHBFReETJZFtzJ2xbzFFpnNIisqSJSlRSNEXWUa2LCVLSLQn +RQhzRSWlUrJkiRSyfilKi7Jll/Jdf93n9zz3vsu555z3lT/gtdNtIQ8PD98C +Hp7550R3bSX9TOZGx+ZTaS+KWBtb0iQCDdsjAcLy7cVbVgCubDwg0Z4MQn5z +Xl+b6cCxzGvjbc+AgdKbz+qadWD54Krk6bZ78P3jxLHbzcbw4am511hbOYi+ ++j5r2GwDJvT+9yNtTdDTFSxR9tYVptvWXRhu64XqrsbYild+ULHpdubbjFHQ +2mZSOXE2CtZ8KPlyQPUP/GfaKvez5iysOOKUt2QTL34sTa46UHEekrVMnpjb +8uNgUvGMb9sV6LisWTYiIoR9p/4IpNqnwZnMsMaFq5djnIJxUSMnHVad/xSb +cl0Mja5P0t7F3YJoG9ONTRMrcdJrSTBhmQW+eulOtZESWFWQnuMqcBuMh2aC +jn6SxKhI8R3nfXMgcOt55Rc/JfFnKf+uZ8dz4E66WqfYhCRKLXA40BeaAxI2 +znol/FJYGN0crByTAz8fVU3yqkuhYvvuu0mpOZASmeR35bgUen083FtfmQO9 +KxlHK4XWoGvUUoeFYrkQYWC1X3K9NF49s+q0dXYubN2X9mudkTTubdh+Roqb +C8LhP07abpfGKJX4yQ8FuZBaEZWd5CyNr1jmfPtKcuGR2eMfi2OlcWulyHf1 ++lwYtlfgjHZI45HGN/cVRnJhn/94XH2wDPYSaVL26/NA/86VohPPZXG6eqNV +35M8MG57/WewRhbDPTxvnHyeB+Y8fFucmmRx1/ejVTIVeeCy82gH9MniOvVf +l7fV5YFJsHxY+CI5PF321jGsPQ+8ZSduGarI4aOl2s4WY3lQ6X5joIIjh4lB +EsfOKXHBdFZPNCRYDl80xr2oU+XC66QWlk64HFoGPern0eRCR4lAeGasHJ47 +G1ftwuLC4DI/0ahUOQwxEczn3cQFicKt60zK5dDHL16P3MOFI1Mj4TVC8qhU +WrAkPY4L+scOin8RlcdqWyXzewlc4O/v5PJKyGPK5ulPz5O4kNVV0bqRJo95 +Q9Z/Gy9yofvZBdUHLHmciGeOVmRwwSJKrz3dSR6bakMFfpdwQVs0QiP4rjzK +7ZL1u93HBZ4z45WXi+WxSt9NaNM3av28Hg7FT6jx6w3/dPZzwXN8Z9RIlTye +8e7qmRviQmY7vcu9Ux7NVU6+lJ7hgviNmtM2vDQ0rymFPCESplVEutVsaTjo +/ViZX5uEieuSEWsdaPgg8K8CoUPC2D8EXc+Jhkkfqm9sZJEwOKrnYXyYhv9c +tZZz1yeh94nLhEMoDUfY1haJRiTUbXsoHJNFQ+eXdg91d5JQXfribkIeDb/c +yOKTsiGhUqPeJqWAhtl5RzpnbUl4JtZzNa2Ehl/fTcoV7ybhXtdS5oMGGs7U +riPmnEm46rkPesdpOJ684eCPoyRcen+o9+sMDReEtnte8SbhvIVv1MAcDYds +EniMfUhIXBvzakpAAYUW/G1P9Cch8vfdXf/IKKDCKYedv4NJ8DyzyNvARAHl +f8vWa8SQYMAlb168qIBHUvoYS9NI6JLj3th8TQGVxsWO6d4gIehibtrYDQW0 +O7S1zvEmCQ8jslN35iogvdybm5VBgrb9zcvCTxXwYcBFHdHbJCgtOp90ukcB +C7ODyvcVkFATlHxW94sCfpC10txTSMLB4aTEz/0KmKu4usjmLgmZXQnxRmMK +KCZuOrfxPgly96Jj/i6mY43rm8LhYhLEnYLDOap0HLrD/lpTSsKDlsAwQouO +Ff5D/RefkWBjdvxEiy4dVyWPLTvwnIRkXf8QbaCjgWTP7aEyEoQEvY4PWtHx +UlaxzbcKEsiIfwOu21Hjq/ta3qgkwWzSk7N9Dx0ZZk7/WleRENN7yC/PlY7r +a58K3n9JAl/JAe+DAXS8neoyZFFLwi31/V4rQ+hIs/ReOEzZKNPpaGU4HfnU +svQT6kgIO7v3CC2OjlEL49c8f0XCjJvdoe5UOn5qOl3E85qEK1027gnpdEw8 +vnQulvJ6K+uDBtl0rHtd5yPSSALHwNL1agEd9/GtaF/xhoQRUTNnu3I69jXv +z/n9loT2I7Q3HtV0HGuRfh/QRELZyxkIq6ejY+mn58OUk4K4sjmtdJSt35Tc +3kzC8ZaTZ5920VGE1D+5pYUEZ/W9c28+UvHsG6Pfp6zZK/hhup+OX8E3NPwd +CRIGfebCw9R+n13W7aXMc7H0GW2cjgI2xunYSkKj6dG0bXPU960TF0YpF98y +EXbmI7Cx1EVuaxsJaX9kTvgJEGiXT9t/hfLRu42O18UIzO45xK/dToLdspyG +uxIELip08A6kvNEtnP1SmsBTV3zPlVIWWq0lPcQkEJdNLDDooOrPRyCBV43A +yozXOzmU/6vvmV2lTaC9L+mUT5kMT/4PDQj8KbC3cHknVQ+dHtttDQl0dEgf +30g5RGfT08MmBIpPNU0fouyaKKV6YhuBioJk6VnK276NXku2JHD3jm+G9ylr +G9Uvu21LYNfcpuhmypKpmcFPHAicGAtOHKa8cCLkR6MTgbfidtgv7SKh38J2 +z2dXAk24nD45yk25aq+mDhNo2/CApUP5Me/iDUJeBC4Yrd1uTDnDsTtP3o/A +9lwfRSvKsQ+LJVmBBIYv9a5zoOy9/Gyc2QkCrR9Frt1P2d7TfWbfSQIFezxd +XSljFXj4xhDoZzDgOG9FWYnO6AQClwjWys2/LxI4bJqaTGCGZHn+/HhTTTUl +hZcIVHl6bdH8fB9V05WqUgnUaVitNL+emtOBVzrSCcy/x7N6fr2FH60EBrMJ +jNq9snV+P5f1lQMXkgS6saT3z+83/PzC7+J3CdTb3P14Ph7ug532KsUETvPL +fp6Pl/nW+zXwhEDWmez38/FkZZxZb1NG4Mc9BjlJlGVmXXIOVRHYlJRj7EF5 +sZ2BRGgdgQlV9+8j5cGCFTHnGgnslGROiFFuFRiYzGoh8CirXvAz9b+zS6+3 +ve4mcHSgpSSIcuIqzpZPnyh7vLYypMw5Zv5w8huBaV7ECz7Km4m5i3KjBPYH +SCtFUvmlGta2WHeKQBuOvYIB5RUdBRzTPwTuHKFP/aLy9XO8s53PEgYafOfq +7JrP335VmqYgA7e/vrBuKeXJLdMDAyIMvPntQthjKv+X8iZHHZZkIL/riR5R +ypqBFUXOagwMg4S5DKq+HreeDZfRZuDvH+VspLxJZ+/2/1gMTBt0edlJ1afd +0NinXcjARTlXSpZQDnVjiFlYM/B9UqW+IVXviyt+dQvaU/ONG32oofpBktzz +vLq9DDS6f6V5x5v5/rnLyOQgA2cfJNyxoPpHnVXsMXYgA7WvN+HaBqp/bvzZ +qHKDgaZPVvgE1ZBw89qja99vMbAxT9C9rZrq19On3G/nMPDTjdliLcoGRdJz +tHsMzB+47NFN9UMXZQt1ySoGCrVm6khQ/bNQ/F48/w8GiuvrjQlR/Vjf74T9 +yyEG/jI0G8SnJFS8NaOfGmOgSES9+bEn1P+L//Rk7g8Dc14Jm9SVkDC7cOWP +CREmerD4aI5UfzcdCjDtYzHRPSVFZwl1XqzRkjnNb8BEB2XWhtl8Kh98KstV +DJm4q8vGaJCk6ntCxMBnGxMF41tta/NI6P6Tqz7nxMRFcffJPdkk+Aj+J7Y6 +lokxnuEjI6kkGJtHWhokMlHIQcn34TUSViUpJjilMDFBq4wv6CoJT8X8F2df +Z2J8Q8aeiUtUvKWEp7XvMZEp9WL0VTJ1/iph9/YuJgayevN+RJNwxPOLpPdH +JnYdfpseeZoEyI/fldLHRKcdcY/Eo6j80ex40zHExInfjqasSBLU1/tUHORT +xNnwyhXWIVR8TDJzwtUU8bXyGV0+6vz+6cLvWxSmiGLbfeu2UfeBwTTj0uen +FDE27MtwkjUJQx3hS17FKqKa1d5jzVYk/LKYvtaTooglcaanLM2pfNzQXymc +o4gDQiLCKluo/rSiXvzwG0XsXxR27sB6ElZXnn0sLa+EPBz24V4Jkrr/r1oY +Xa6Egh1K7/Y1ceH7gS05G6qVsMmuUUblDRfi0wPMh18poc75W9bjDVxolmm/ +uvudEta8N4s8WcsF59VX1qp+U8IZZtmy6DIuBApLub0VUsa9f9XOqdzhAjkl +UyO1WxlvDr8JHY7mgmgDI7FwSBm3WFquvqbLhb9Dmll1Y8qoWX704x1tLvSL +bnj6eVoZZYZiA8o0uFBub9EvwaeC3nqmku+p+6rv5wCTCAkV3KMyaTUrzYWW +3zV/rQxVkJf2Na55ERcuKXt6jSarYNaPEc2B5jxYE1NgyWKpYq6VmpywRx5c +VtETEXNXw3cd0f7eSblQJ2moO3pOHRW8D/gvysoB/TXlSRqtGqh8Iihe6txt +EObN8NsfqYkpMxrBeuHZIBMha7CboYUXdTzJnm1ZIEDsLd5ZrYVh7d9WBq7I +BHX26oIAR20Uw+ehtwYywKdbtMKMZy22Ar0gjkyHodF4W9PLa/El89xi18ib +sEXj5VVTNR308fh3ZnFlGjwb3fB78rUOmmwNeVTolApHVbU737rp4kxhV/JX +navAHnRt2S3AwmV3Pfk0Ry7BZrrEDqEMFtIfhNgv+nEBFMPjjpevW4e/1swq +VC8+D8pues+JznXYEdv+q3VlMrg9O3Sq6Nh6fLThAlm6Pwme32xxHVmph02p +8t2EZQKM5cxNajzUw/R8iXuzKnHgQnAFru7Qx3EL1YaP/tEwopzCujesj+2D +Zr52L07Bo8zfPeMxG1Bb8tiHe8ciwcFYATfIGOCOzeJfbJ3CQerf6BL1MgNs +k/dqVMkLgZVLj9zdsYuNe+xrVoN+IGRuCg0a3s1GowqNonyVQNAOTdyUspeN +zippCxWkA8F8uPBd+342LiuXLZLnCYTTrePTLkfYGBGSpOv18jhMZYQZBUWw +cbPgu39MbY5D54aU5mwuG9M/fPnT7xcAh/wzU03vsJF50O24qnsATNx54Paz +kI0Ny6s9/HYHgCitfVKrmGrFcK1g1cYA2MYvvaa0jJqPZ/sp7pIAeNqS7dr8 +jo0r3eULFqdywEz4kRqnnY0cpUMVdxI50L6ldkKii42qu0S1HCM4MPb4R8y+ +j2z8/uCbSMNBDqila+Z/72fj8vOT5JQWB552GnLiB6j9Ozywa6ZT462wBo1h +Ng4dDzcrWsWBg9H+b/3G2WhddZY/9o8/jJWdvrpqio28U79fhwz7Q+TMJZfH +M2zUSKxq43zyBxGdXFXHP2xc+w+PfECrP6T9+3h8bo6NR5qe5YTW+sP/OSyb +Ug== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -10386,116 +10799,116 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK -FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE -hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux -IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B -8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K -ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS -jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 -CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs -KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC -owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 -9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV -MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 -h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC -Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp -9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ -oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt -GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN -62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw -rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 -M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS -dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ -Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ -bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys -CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp -YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF -Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc -mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn -Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM -PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u -4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K -R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l -F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y -6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q -FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF -0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 -dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG -jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU -s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq -KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g -aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx -0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ -bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 -emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY -+Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix -Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK -ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv -HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt -pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR -URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp -/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K -MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh -VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi -Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i -bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys -Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf -kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 -mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ -emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X -PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC -5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr -ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk -8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr -qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO -6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY -ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 -w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m -Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb -eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo -/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm -N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx -4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq -QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya -LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF -jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm -m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 -d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX -WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D -0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD -uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk -u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT -V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 -ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT -PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 -ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q -bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA -OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC -oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 -YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL -/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= +1:eJwV1nk4VG0UAHBFReETJZFtzJ2xbzFFpnNIisqSJSlRSNEXWUa2LCVLSLQn +RQhzRSWlUrJkiRSyfilKi7Jll/Jdf93n9zz3vsu555z3lT/gtdNtIQ8PD98C +Hp7550R3bSX9TOZGx+ZTaS+KWBtb0iQCDdsjAcLy7cVbVgCubDwg0Z4MQn5z +Xl+b6cCxzGvjbc+AgdKbz+qadWD54Krk6bZ78P3jxLHbzcbw4am511hbOYi+ ++j5r2GwDJvT+9yNtTdDTFSxR9tYVptvWXRhu64XqrsbYild+ULHpdubbjFHQ +2mZSOXE2CtZ8KPlyQPUP/GfaKvez5iysOOKUt2QTL34sTa46UHEekrVMnpjb +8uNgUvGMb9sV6LisWTYiIoR9p/4IpNqnwZnMsMaFq5djnIJxUSMnHVad/xSb +cl0Mja5P0t7F3YJoG9ONTRMrcdJrSTBhmQW+eulOtZESWFWQnuMqcBuMh2aC +jn6SxKhI8R3nfXMgcOt55Rc/JfFnKf+uZ8dz4E66WqfYhCRKLXA40BeaAxI2 +znol/FJYGN0crByTAz8fVU3yqkuhYvvuu0mpOZASmeR35bgUen083FtfmQO9 +KxlHK4XWoGvUUoeFYrkQYWC1X3K9NF49s+q0dXYubN2X9mudkTTubdh+Roqb +C8LhP07abpfGKJX4yQ8FuZBaEZWd5CyNr1jmfPtKcuGR2eMfi2OlcWulyHf1 ++lwYtlfgjHZI45HGN/cVRnJhn/94XH2wDPYSaVL26/NA/86VohPPZXG6eqNV +35M8MG57/WewRhbDPTxvnHyeB+Y8fFucmmRx1/ejVTIVeeCy82gH9MniOvVf +l7fV5YFJsHxY+CI5PF321jGsPQ+8ZSduGarI4aOl2s4WY3lQ6X5joIIjh4lB +EsfOKXHBdFZPNCRYDl80xr2oU+XC66QWlk64HFoGPern0eRCR4lAeGasHJ47 +G1ftwuLC4DI/0ahUOQwxEczn3cQFicKt60zK5dDHL16P3MOFI1Mj4TVC8qhU +WrAkPY4L+scOin8RlcdqWyXzewlc4O/v5PJKyGPK5ulPz5O4kNVV0bqRJo95 +Q9Z/Gy9yofvZBdUHLHmciGeOVmRwwSJKrz3dSR6bakMFfpdwQVs0QiP4rjzK +7ZL1u93HBZ4z45WXi+WxSt9NaNM3av28Hg7FT6jx6w3/dPZzwXN8Z9RIlTye +8e7qmRviQmY7vcu9Ux7NVU6+lJ7hgviNmtM2vDQ0rymFPCESplVEutVsaTjo +/ViZX5uEieuSEWsdaPgg8K8CoUPC2D8EXc+Jhkkfqm9sZJEwOKrnYXyYhv9c +tZZz1yeh94nLhEMoDUfY1haJRiTUbXsoHJNFQ+eXdg91d5JQXfribkIeDb/c +yOKTsiGhUqPeJqWAhtl5RzpnbUl4JtZzNa2Ehl/fTcoV7ybhXtdS5oMGGs7U +riPmnEm46rkPesdpOJ684eCPoyRcen+o9+sMDReEtnte8SbhvIVv1MAcDYds +EniMfUhIXBvzakpAAYUW/G1P9Cch8vfdXf/IKKDCKYedv4NJ8DyzyNvARAHl +f8vWa8SQYMAlb168qIBHUvoYS9NI6JLj3th8TQGVxsWO6d4gIehibtrYDQW0 +O7S1zvEmCQ8jslN35iogvdybm5VBgrb9zcvCTxXwYcBFHdHbJCgtOp90ukcB +C7ODyvcVkFATlHxW94sCfpC10txTSMLB4aTEz/0KmKu4usjmLgmZXQnxRmMK +KCZuOrfxPgly96Jj/i6mY43rm8LhYhLEnYLDOap0HLrD/lpTSsKDlsAwQouO +Ff5D/RefkWBjdvxEiy4dVyWPLTvwnIRkXf8QbaCjgWTP7aEyEoQEvY4PWtHx +UlaxzbcKEsiIfwOu21Hjq/ta3qgkwWzSk7N9Dx0ZZk7/WleRENN7yC/PlY7r +a58K3n9JAl/JAe+DAXS8neoyZFFLwi31/V4rQ+hIs/ReOEzZKNPpaGU4HfnU +svQT6kgIO7v3CC2OjlEL49c8f0XCjJvdoe5UOn5qOl3E85qEK1027gnpdEw8 +vnQulvJ6K+uDBtl0rHtd5yPSSALHwNL1agEd9/GtaF/xhoQRUTNnu3I69jXv +z/n9loT2I7Q3HtV0HGuRfh/QRELZyxkIq6ejY+mn58OUk4K4sjmtdJSt35Tc +3kzC8ZaTZ5920VGE1D+5pYUEZ/W9c28+UvHsG6Pfp6zZK/hhup+OX8E3NPwd +CRIGfebCw9R+n13W7aXMc7H0GW2cjgI2xunYSkKj6dG0bXPU960TF0YpF98y +EXbmI7Cx1EVuaxsJaX9kTvgJEGiXT9t/hfLRu42O18UIzO45xK/dToLdspyG +uxIELip08A6kvNEtnP1SmsBTV3zPlVIWWq0lPcQkEJdNLDDooOrPRyCBV43A +yozXOzmU/6vvmV2lTaC9L+mUT5kMT/4PDQj8KbC3cHknVQ+dHtttDQl0dEgf +30g5RGfT08MmBIpPNU0fouyaKKV6YhuBioJk6VnK276NXku2JHD3jm+G9ylr +G9Uvu21LYNfcpuhmypKpmcFPHAicGAtOHKa8cCLkR6MTgbfidtgv7SKh38J2 +z2dXAk24nD45yk25aq+mDhNo2/CApUP5Me/iDUJeBC4Yrd1uTDnDsTtP3o/A +9lwfRSvKsQ+LJVmBBIYv9a5zoOy9/Gyc2QkCrR9Frt1P2d7TfWbfSQIFezxd +XSljFXj4xhDoZzDgOG9FWYnO6AQClwjWys2/LxI4bJqaTGCGZHn+/HhTTTUl +hZcIVHl6bdH8fB9V05WqUgnUaVitNL+emtOBVzrSCcy/x7N6fr2FH60EBrMJ +jNq9snV+P5f1lQMXkgS6saT3z+83/PzC7+J3CdTb3P14Ph7ug532KsUETvPL +fp6Pl/nW+zXwhEDWmez38/FkZZxZb1NG4Mc9BjlJlGVmXXIOVRHYlJRj7EF5 +sZ2BRGgdgQlV9+8j5cGCFTHnGgnslGROiFFuFRiYzGoh8CirXvAz9b+zS6+3 +ve4mcHSgpSSIcuIqzpZPnyh7vLYypMw5Zv5w8huBaV7ECz7Km4m5i3KjBPYH +SCtFUvmlGta2WHeKQBuOvYIB5RUdBRzTPwTuHKFP/aLy9XO8s53PEgYafOfq +7JrP335VmqYgA7e/vrBuKeXJLdMDAyIMvPntQthjKv+X8iZHHZZkIL/riR5R +ypqBFUXOagwMg4S5DKq+HreeDZfRZuDvH+VspLxJZ+/2/1gMTBt0edlJ1afd +0NinXcjARTlXSpZQDnVjiFlYM/B9UqW+IVXviyt+dQvaU/ONG32oofpBktzz +vLq9DDS6f6V5x5v5/rnLyOQgA2cfJNyxoPpHnVXsMXYgA7WvN+HaBqp/bvzZ +qHKDgaZPVvgE1ZBw89qja99vMbAxT9C9rZrq19On3G/nMPDTjdliLcoGRdJz +tHsMzB+47NFN9UMXZQt1ySoGCrVm6khQ/bNQ/F48/w8GiuvrjQlR/Vjf74T9 +yyEG/jI0G8SnJFS8NaOfGmOgSES9+bEn1P+L//Rk7g8Dc14Jm9SVkDC7cOWP +CREmerD4aI5UfzcdCjDtYzHRPSVFZwl1XqzRkjnNb8BEB2XWhtl8Kh98KstV +DJm4q8vGaJCk6ntCxMBnGxMF41tta/NI6P6Tqz7nxMRFcffJPdkk+Aj+J7Y6 +lokxnuEjI6kkGJtHWhokMlHIQcn34TUSViUpJjilMDFBq4wv6CoJT8X8F2df +Z2J8Q8aeiUtUvKWEp7XvMZEp9WL0VTJ1/iph9/YuJgayevN+RJNwxPOLpPdH +JnYdfpseeZoEyI/fldLHRKcdcY/Eo6j80ex40zHExInfjqasSBLU1/tUHORT +xNnwyhXWIVR8TDJzwtUU8bXyGV0+6vz+6cLvWxSmiGLbfeu2UfeBwTTj0uen +FDE27MtwkjUJQx3hS17FKqKa1d5jzVYk/LKYvtaTooglcaanLM2pfNzQXymc +o4gDQiLCKluo/rSiXvzwG0XsXxR27sB6ElZXnn0sLa+EPBz24V4Jkrr/r1oY +Xa6Egh1K7/Y1ceH7gS05G6qVsMmuUUblDRfi0wPMh18poc75W9bjDVxolmm/ +uvudEta8N4s8WcsF59VX1qp+U8IZZtmy6DIuBApLub0VUsa9f9XOqdzhAjkl +UyO1WxlvDr8JHY7mgmgDI7FwSBm3WFquvqbLhb9Dmll1Y8qoWX704x1tLvSL +bnj6eVoZZYZiA8o0uFBub9EvwaeC3nqmku+p+6rv5wCTCAkV3KMyaTUrzYWW +3zV/rQxVkJf2Na55ERcuKXt6jSarYNaPEc2B5jxYE1NgyWKpYq6VmpywRx5c +VtETEXNXw3cd0f7eSblQJ2moO3pOHRW8D/gvysoB/TXlSRqtGqh8Iihe6txt +EObN8NsfqYkpMxrBeuHZIBMha7CboYUXdTzJnm1ZIEDsLd5ZrYVh7d9WBq7I +BHX26oIAR20Uw+ehtwYywKdbtMKMZy22Ar0gjkyHodF4W9PLa/El89xi18ib +sEXj5VVTNR308fh3ZnFlGjwb3fB78rUOmmwNeVTolApHVbU737rp4kxhV/JX +navAHnRt2S3AwmV3Pfk0Ry7BZrrEDqEMFtIfhNgv+nEBFMPjjpevW4e/1swq +VC8+D8pues+JznXYEdv+q3VlMrg9O3Sq6Nh6fLThAlm6Pwme32xxHVmph02p +8t2EZQKM5cxNajzUw/R8iXuzKnHgQnAFru7Qx3EL1YaP/tEwopzCujesj+2D +Zr52L07Bo8zfPeMxG1Bb8tiHe8ciwcFYATfIGOCOzeJfbJ3CQerf6BL1MgNs +k/dqVMkLgZVLj9zdsYuNe+xrVoN+IGRuCg0a3s1GowqNonyVQNAOTdyUspeN +zippCxWkA8F8uPBd+342LiuXLZLnCYTTrePTLkfYGBGSpOv18jhMZYQZBUWw +cbPgu39MbY5D54aU5mwuG9M/fPnT7xcAh/wzU03vsJF50O24qnsATNx54Paz +kI0Ny6s9/HYHgCitfVKrmGrFcK1g1cYA2MYvvaa0jJqPZ/sp7pIAeNqS7dr8 +jo0r3eULFqdywEz4kRqnnY0cpUMVdxI50L6ldkKii42qu0S1HCM4MPb4R8y+ +j2z8/uCbSMNBDqila+Z/72fj8vOT5JQWB552GnLiB6j9Ozywa6ZT462wBo1h +Ng4dDzcrWsWBg9H+b/3G2WhddZY/9o8/jJWdvrpqio28U79fhwz7Q+TMJZfH +M2zUSKxq43zyBxGdXFXHP2xc+w+PfECrP6T9+3h8bo6NR5qe5YTW+sP/OSyb +Ug== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "PlotRange" -> {{0, 30}, {0., 0.05636132932517243}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -10507,19 +10920,19 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "PlotRange" -> {{0, 30}, {0., 0.05636132932517243}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10533,115 +10946,115 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK -FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE -hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux -IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B -8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K -ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS -jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 -CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs -KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC -owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 -9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV -MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 -h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC -Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp -9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ -oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt -GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN -62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw -rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 -M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS -dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ -Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ -bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys -CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp -YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF -Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc -mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn -Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM -PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u -4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K -R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l -F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y -6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q -FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF -0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 -dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG -jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU -s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq -KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g -aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx -0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ -bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 -emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY -+Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix -Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK -ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv -HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt -pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR -URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp -/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K -MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh -VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi -Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i -bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys -Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf -kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 -mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ -emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X -PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC -5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr -ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk -8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr -qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO -6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY -ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 -w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m -Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb -eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo -/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm -N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx -4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq -QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya -LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF -jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm -m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 -d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX -WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D -0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD -uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk -u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT -V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 -ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT -PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 -ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q -bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA -OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC -oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 -YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL -/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= +1:eJwV1nk4VG0UAHBFReETJZFtzJ2xbzFFpnNIisqSJSlRSNEXWUa2LCVLSLQn +RQhzRSWlUrJkiRSyfilKi7Jll/Jdf93n9zz3vsu555z3lT/gtdNtIQ8PD98C +Hp7550R3bSX9TOZGx+ZTaS+KWBtb0iQCDdsjAcLy7cVbVgCubDwg0Z4MQn5z +Xl+b6cCxzGvjbc+AgdKbz+qadWD54Krk6bZ78P3jxLHbzcbw4am511hbOYi+ ++j5r2GwDJvT+9yNtTdDTFSxR9tYVptvWXRhu64XqrsbYild+ULHpdubbjFHQ +2mZSOXE2CtZ8KPlyQPUP/GfaKvez5iysOOKUt2QTL34sTa46UHEekrVMnpjb +8uNgUvGMb9sV6LisWTYiIoR9p/4IpNqnwZnMsMaFq5djnIJxUSMnHVad/xSb +cl0Mja5P0t7F3YJoG9ONTRMrcdJrSTBhmQW+eulOtZESWFWQnuMqcBuMh2aC +jn6SxKhI8R3nfXMgcOt55Rc/JfFnKf+uZ8dz4E66WqfYhCRKLXA40BeaAxI2 +znol/FJYGN0crByTAz8fVU3yqkuhYvvuu0mpOZASmeR35bgUen083FtfmQO9 +KxlHK4XWoGvUUoeFYrkQYWC1X3K9NF49s+q0dXYubN2X9mudkTTubdh+Roqb +C8LhP07abpfGKJX4yQ8FuZBaEZWd5CyNr1jmfPtKcuGR2eMfi2OlcWulyHf1 ++lwYtlfgjHZI45HGN/cVRnJhn/94XH2wDPYSaVL26/NA/86VohPPZXG6eqNV +35M8MG57/WewRhbDPTxvnHyeB+Y8fFucmmRx1/ejVTIVeeCy82gH9MniOvVf +l7fV5YFJsHxY+CI5PF321jGsPQ+8ZSduGarI4aOl2s4WY3lQ6X5joIIjh4lB +EsfOKXHBdFZPNCRYDl80xr2oU+XC66QWlk64HFoGPern0eRCR4lAeGasHJ47 +G1ftwuLC4DI/0ahUOQwxEczn3cQFicKt60zK5dDHL16P3MOFI1Mj4TVC8qhU +WrAkPY4L+scOin8RlcdqWyXzewlc4O/v5PJKyGPK5ulPz5O4kNVV0bqRJo95 +Q9Z/Gy9yofvZBdUHLHmciGeOVmRwwSJKrz3dSR6bakMFfpdwQVs0QiP4rjzK +7ZL1u93HBZ4z45WXi+WxSt9NaNM3av28Hg7FT6jx6w3/dPZzwXN8Z9RIlTye +8e7qmRviQmY7vcu9Ux7NVU6+lJ7hgviNmtM2vDQ0rymFPCESplVEutVsaTjo +/ViZX5uEieuSEWsdaPgg8K8CoUPC2D8EXc+Jhkkfqm9sZJEwOKrnYXyYhv9c +tZZz1yeh94nLhEMoDUfY1haJRiTUbXsoHJNFQ+eXdg91d5JQXfribkIeDb/c +yOKTsiGhUqPeJqWAhtl5RzpnbUl4JtZzNa2Ehl/fTcoV7ybhXtdS5oMGGs7U +riPmnEm46rkPesdpOJ684eCPoyRcen+o9+sMDReEtnte8SbhvIVv1MAcDYds +EniMfUhIXBvzakpAAYUW/G1P9Cch8vfdXf/IKKDCKYedv4NJ8DyzyNvARAHl +f8vWa8SQYMAlb168qIBHUvoYS9NI6JLj3th8TQGVxsWO6d4gIehibtrYDQW0 +O7S1zvEmCQ8jslN35iogvdybm5VBgrb9zcvCTxXwYcBFHdHbJCgtOp90ukcB +C7ODyvcVkFATlHxW94sCfpC10txTSMLB4aTEz/0KmKu4usjmLgmZXQnxRmMK +KCZuOrfxPgly96Jj/i6mY43rm8LhYhLEnYLDOap0HLrD/lpTSsKDlsAwQouO +Ff5D/RefkWBjdvxEiy4dVyWPLTvwnIRkXf8QbaCjgWTP7aEyEoQEvY4PWtHx +UlaxzbcKEsiIfwOu21Hjq/ta3qgkwWzSk7N9Dx0ZZk7/WleRENN7yC/PlY7r +a58K3n9JAl/JAe+DAXS8neoyZFFLwi31/V4rQ+hIs/ReOEzZKNPpaGU4HfnU +svQT6kgIO7v3CC2OjlEL49c8f0XCjJvdoe5UOn5qOl3E85qEK1027gnpdEw8 +vnQulvJ6K+uDBtl0rHtd5yPSSALHwNL1agEd9/GtaF/xhoQRUTNnu3I69jXv +z/n9loT2I7Q3HtV0HGuRfh/QRELZyxkIq6ejY+mn58OUk4K4sjmtdJSt35Tc +3kzC8ZaTZ5920VGE1D+5pYUEZ/W9c28+UvHsG6Pfp6zZK/hhup+OX8E3NPwd +CRIGfebCw9R+n13W7aXMc7H0GW2cjgI2xunYSkKj6dG0bXPU960TF0YpF98y +EXbmI7Cx1EVuaxsJaX9kTvgJEGiXT9t/hfLRu42O18UIzO45xK/dToLdspyG +uxIELip08A6kvNEtnP1SmsBTV3zPlVIWWq0lPcQkEJdNLDDooOrPRyCBV43A +yozXOzmU/6vvmV2lTaC9L+mUT5kMT/4PDQj8KbC3cHknVQ+dHtttDQl0dEgf +30g5RGfT08MmBIpPNU0fouyaKKV6YhuBioJk6VnK276NXku2JHD3jm+G9ylr +G9Uvu21LYNfcpuhmypKpmcFPHAicGAtOHKa8cCLkR6MTgbfidtgv7SKh38J2 +z2dXAk24nD45yk25aq+mDhNo2/CApUP5Me/iDUJeBC4Yrd1uTDnDsTtP3o/A +9lwfRSvKsQ+LJVmBBIYv9a5zoOy9/Gyc2QkCrR9Frt1P2d7TfWbfSQIFezxd +XSljFXj4xhDoZzDgOG9FWYnO6AQClwjWys2/LxI4bJqaTGCGZHn+/HhTTTUl +hZcIVHl6bdH8fB9V05WqUgnUaVitNL+emtOBVzrSCcy/x7N6fr2FH60EBrMJ +jNq9snV+P5f1lQMXkgS6saT3z+83/PzC7+J3CdTb3P14Ph7ug532KsUETvPL +fp6Pl/nW+zXwhEDWmez38/FkZZxZb1NG4Mc9BjlJlGVmXXIOVRHYlJRj7EF5 +sZ2BRGgdgQlV9+8j5cGCFTHnGgnslGROiFFuFRiYzGoh8CirXvAz9b+zS6+3 +ve4mcHSgpSSIcuIqzpZPnyh7vLYypMw5Zv5w8huBaV7ECz7Km4m5i3KjBPYH +SCtFUvmlGta2WHeKQBuOvYIB5RUdBRzTPwTuHKFP/aLy9XO8s53PEgYafOfq +7JrP335VmqYgA7e/vrBuKeXJLdMDAyIMvPntQthjKv+X8iZHHZZkIL/riR5R +ypqBFUXOagwMg4S5DKq+HreeDZfRZuDvH+VspLxJZ+/2/1gMTBt0edlJ1afd +0NinXcjARTlXSpZQDnVjiFlYM/B9UqW+IVXviyt+dQvaU/ONG32oofpBktzz +vLq9DDS6f6V5x5v5/rnLyOQgA2cfJNyxoPpHnVXsMXYgA7WvN+HaBqp/bvzZ +qHKDgaZPVvgE1ZBw89qja99vMbAxT9C9rZrq19On3G/nMPDTjdliLcoGRdJz +tHsMzB+47NFN9UMXZQt1ySoGCrVm6khQ/bNQ/F48/w8GiuvrjQlR/Vjf74T9 +yyEG/jI0G8SnJFS8NaOfGmOgSES9+bEn1P+L//Rk7g8Dc14Jm9SVkDC7cOWP +CREmerD4aI5UfzcdCjDtYzHRPSVFZwl1XqzRkjnNb8BEB2XWhtl8Kh98KstV +DJm4q8vGaJCk6ntCxMBnGxMF41tta/NI6P6Tqz7nxMRFcffJPdkk+Aj+J7Y6 +lokxnuEjI6kkGJtHWhokMlHIQcn34TUSViUpJjilMDFBq4wv6CoJT8X8F2df +Z2J8Q8aeiUtUvKWEp7XvMZEp9WL0VTJ1/iph9/YuJgayevN+RJNwxPOLpPdH +JnYdfpseeZoEyI/fldLHRKcdcY/Eo6j80ex40zHExInfjqasSBLU1/tUHORT +xNnwyhXWIVR8TDJzwtUU8bXyGV0+6vz+6cLvWxSmiGLbfeu2UfeBwTTj0uen +FDE27MtwkjUJQx3hS17FKqKa1d5jzVYk/LKYvtaTooglcaanLM2pfNzQXymc +o4gDQiLCKluo/rSiXvzwG0XsXxR27sB6ElZXnn0sLa+EPBz24V4Jkrr/r1oY +Xa6Egh1K7/Y1ceH7gS05G6qVsMmuUUblDRfi0wPMh18poc75W9bjDVxolmm/ +uvudEta8N4s8WcsF59VX1qp+U8IZZtmy6DIuBApLub0VUsa9f9XOqdzhAjkl +UyO1WxlvDr8JHY7mgmgDI7FwSBm3WFquvqbLhb9Dmll1Y8qoWX704x1tLvSL +bnj6eVoZZYZiA8o0uFBub9EvwaeC3nqmku+p+6rv5wCTCAkV3KMyaTUrzYWW +3zV/rQxVkJf2Na55ERcuKXt6jSarYNaPEc2B5jxYE1NgyWKpYq6VmpywRx5c +VtETEXNXw3cd0f7eSblQJ2moO3pOHRW8D/gvysoB/TXlSRqtGqh8Iihe6txt +EObN8NsfqYkpMxrBeuHZIBMha7CboYUXdTzJnm1ZIEDsLd5ZrYVh7d9WBq7I +BHX26oIAR20Uw+ehtwYywKdbtMKMZy22Ar0gjkyHodF4W9PLa/El89xi18ib +sEXj5VVTNR308fh3ZnFlGjwb3fB78rUOmmwNeVTolApHVbU737rp4kxhV/JX +navAHnRt2S3AwmV3Pfk0Ry7BZrrEDqEMFtIfhNgv+nEBFMPjjpevW4e/1swq +VC8+D8pues+JznXYEdv+q3VlMrg9O3Sq6Nh6fLThAlm6Pwme32xxHVmph02p +8t2EZQKM5cxNajzUw/R8iXuzKnHgQnAFru7Qx3EL1YaP/tEwopzCujesj+2D +Zr52L07Bo8zfPeMxG1Bb8tiHe8ciwcFYATfIGOCOzeJfbJ3CQerf6BL1MgNs +k/dqVMkLgZVLj9zdsYuNe+xrVoN+IGRuCg0a3s1GowqNonyVQNAOTdyUspeN +zippCxWkA8F8uPBd+342LiuXLZLnCYTTrePTLkfYGBGSpOv18jhMZYQZBUWw +cbPgu39MbY5D54aU5mwuG9M/fPnT7xcAh/wzU03vsJF50O24qnsATNx54Paz +kI0Ny6s9/HYHgCitfVKrmGrFcK1g1cYA2MYvvaa0jJqPZ/sp7pIAeNqS7dr8 +jo0r3eULFqdywEz4kRqnnY0cpUMVdxI50L6ldkKii42qu0S1HCM4MPb4R8y+ +j2z8/uCbSMNBDqila+Z/72fj8vOT5JQWB552GnLiB6j9Ozywa6ZT462wBo1h +Ng4dDzcrWsWBg9H+b/3G2WhddZY/9o8/jJWdvrpqio28U79fhwz7Q+TMJZfH +M2zUSKxq43zyBxGdXFXHP2xc+w+PfECrP6T9+3h8bo6NR5qe5YTW+sP/OSyb +Ug== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "PlotRange" -> {{0, 30}, {0., 0.05636132932517243}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10652,6 +11065,7 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -10679,7 +11093,8 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.1261051971575712}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.05636132932517243}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -10687,17 +11102,568 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913414579436264`*^9}, + CellChangeTimes->{3.9913414579436264`*^9, 3.9942589588849087`*^9}, CellLabel-> - "Out[361]=",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] + "Out[119]=",ExpressionUUID->"72cf4812-bef4-471f-9918-11263cf5e564"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"e1c8585a-8b57-f841-82e1-\ -8e8787fb2589"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk4VG0UAHBFReETJZFtzJ2xbzFFpnNIisqSJSlRSNEXWUa2LCVLSLQn +RQhzRSWlUrJkiRSyfilKi7Jll/Jdf93n9zz3vsu555z3lT/gtdNtIQ8PD98C +Hp7550R3bSX9TOZGx+ZTaS+KWBtb0iQCDdsjAcLy7cVbVgCubDwg0Z4MQn5z +Xl+b6cCxzGvjbc+AgdKbz+qadWD54Krk6bZ78P3jxLHbzcbw4am511hbOYi+ ++j5r2GwDJvT+9yNtTdDTFSxR9tYVptvWXRhu64XqrsbYild+ULHpdubbjFHQ +2mZSOXE2CtZ8KPlyQPUP/GfaKvez5iysOOKUt2QTL34sTa46UHEekrVMnpjb +8uNgUvGMb9sV6LisWTYiIoR9p/4IpNqnwZnMsMaFq5djnIJxUSMnHVad/xSb +cl0Mja5P0t7F3YJoG9ONTRMrcdJrSTBhmQW+eulOtZESWFWQnuMqcBuMh2aC +jn6SxKhI8R3nfXMgcOt55Rc/JfFnKf+uZ8dz4E66WqfYhCRKLXA40BeaAxI2 +znol/FJYGN0crByTAz8fVU3yqkuhYvvuu0mpOZASmeR35bgUen083FtfmQO9 +KxlHK4XWoGvUUoeFYrkQYWC1X3K9NF49s+q0dXYubN2X9mudkTTubdh+Roqb +C8LhP07abpfGKJX4yQ8FuZBaEZWd5CyNr1jmfPtKcuGR2eMfi2OlcWulyHf1 ++lwYtlfgjHZI45HGN/cVRnJhn/94XH2wDPYSaVL26/NA/86VohPPZXG6eqNV +35M8MG57/WewRhbDPTxvnHyeB+Y8fFucmmRx1/ejVTIVeeCy82gH9MniOvVf +l7fV5YFJsHxY+CI5PF321jGsPQ+8ZSduGarI4aOl2s4WY3lQ6X5joIIjh4lB +EsfOKXHBdFZPNCRYDl80xr2oU+XC66QWlk64HFoGPern0eRCR4lAeGasHJ47 +G1ftwuLC4DI/0ahUOQwxEczn3cQFicKt60zK5dDHL16P3MOFI1Mj4TVC8qhU +WrAkPY4L+scOin8RlcdqWyXzewlc4O/v5PJKyGPK5ulPz5O4kNVV0bqRJo95 +Q9Z/Gy9yofvZBdUHLHmciGeOVmRwwSJKrz3dSR6bakMFfpdwQVs0QiP4rjzK +7ZL1u93HBZ4z45WXi+WxSt9NaNM3av28Hg7FT6jx6w3/dPZzwXN8Z9RIlTye +8e7qmRviQmY7vcu9Ux7NVU6+lJ7hgviNmtM2vDQ0rymFPCESplVEutVsaTjo +/ViZX5uEieuSEWsdaPgg8K8CoUPC2D8EXc+Jhkkfqm9sZJEwOKrnYXyYhv9c +tZZz1yeh94nLhEMoDUfY1haJRiTUbXsoHJNFQ+eXdg91d5JQXfribkIeDb/c +yOKTsiGhUqPeJqWAhtl5RzpnbUl4JtZzNa2Ehl/fTcoV7ybhXtdS5oMGGs7U +riPmnEm46rkPesdpOJ684eCPoyRcen+o9+sMDReEtnte8SbhvIVv1MAcDYds +EniMfUhIXBvzakpAAYUW/G1P9Cch8vfdXf/IKKDCKYedv4NJ8DyzyNvARAHl +f8vWa8SQYMAlb168qIBHUvoYS9NI6JLj3th8TQGVxsWO6d4gIehibtrYDQW0 +O7S1zvEmCQ8jslN35iogvdybm5VBgrb9zcvCTxXwYcBFHdHbJCgtOp90ukcB +C7ODyvcVkFATlHxW94sCfpC10txTSMLB4aTEz/0KmKu4usjmLgmZXQnxRmMK +KCZuOrfxPgly96Jj/i6mY43rm8LhYhLEnYLDOap0HLrD/lpTSsKDlsAwQouO +Ff5D/RefkWBjdvxEiy4dVyWPLTvwnIRkXf8QbaCjgWTP7aEyEoQEvY4PWtHx +UlaxzbcKEsiIfwOu21Hjq/ta3qgkwWzSk7N9Dx0ZZk7/WleRENN7yC/PlY7r +a58K3n9JAl/JAe+DAXS8neoyZFFLwi31/V4rQ+hIs/ReOEzZKNPpaGU4HfnU +svQT6kgIO7v3CC2OjlEL49c8f0XCjJvdoe5UOn5qOl3E85qEK1027gnpdEw8 +vnQulvJ6K+uDBtl0rHtd5yPSSALHwNL1agEd9/GtaF/xhoQRUTNnu3I69jXv +z/n9loT2I7Q3HtV0HGuRfh/QRELZyxkIq6ejY+mn58OUk4K4sjmtdJSt35Tc +3kzC8ZaTZ5920VGE1D+5pYUEZ/W9c28+UvHsG6Pfp6zZK/hhup+OX8E3NPwd +CRIGfebCw9R+n13W7aXMc7H0GW2cjgI2xunYSkKj6dG0bXPU960TF0YpF98y +EXbmI7Cx1EVuaxsJaX9kTvgJEGiXT9t/hfLRu42O18UIzO45xK/dToLdspyG +uxIELip08A6kvNEtnP1SmsBTV3zPlVIWWq0lPcQkEJdNLDDooOrPRyCBV43A +yozXOzmU/6vvmV2lTaC9L+mUT5kMT/4PDQj8KbC3cHknVQ+dHtttDQl0dEgf +30g5RGfT08MmBIpPNU0fouyaKKV6YhuBioJk6VnK276NXku2JHD3jm+G9ylr +G9Uvu21LYNfcpuhmypKpmcFPHAicGAtOHKa8cCLkR6MTgbfidtgv7SKh38J2 +z2dXAk24nD45yk25aq+mDhNo2/CApUP5Me/iDUJeBC4Yrd1uTDnDsTtP3o/A +9lwfRSvKsQ+LJVmBBIYv9a5zoOy9/Gyc2QkCrR9Frt1P2d7TfWbfSQIFezxd +XSljFXj4xhDoZzDgOG9FWYnO6AQClwjWys2/LxI4bJqaTGCGZHn+/HhTTTUl +hZcIVHl6bdH8fB9V05WqUgnUaVitNL+emtOBVzrSCcy/x7N6fr2FH60EBrMJ +jNq9snV+P5f1lQMXkgS6saT3z+83/PzC7+J3CdTb3P14Ph7ug532KsUETvPL +fp6Pl/nW+zXwhEDWmez38/FkZZxZb1NG4Mc9BjlJlGVmXXIOVRHYlJRj7EF5 +sZ2BRGgdgQlV9+8j5cGCFTHnGgnslGROiFFuFRiYzGoh8CirXvAz9b+zS6+3 +ve4mcHSgpSSIcuIqzpZPnyh7vLYypMw5Zv5w8huBaV7ECz7Km4m5i3KjBPYH +SCtFUvmlGta2WHeKQBuOvYIB5RUdBRzTPwTuHKFP/aLy9XO8s53PEgYafOfq +7JrP335VmqYgA7e/vrBuKeXJLdMDAyIMvPntQthjKv+X8iZHHZZkIL/riR5R +ypqBFUXOagwMg4S5DKq+HreeDZfRZuDvH+VspLxJZ+/2/1gMTBt0edlJ1afd +0NinXcjARTlXSpZQDnVjiFlYM/B9UqW+IVXviyt+dQvaU/ONG32oofpBktzz +vLq9DDS6f6V5x5v5/rnLyOQgA2cfJNyxoPpHnVXsMXYgA7WvN+HaBqp/bvzZ +qHKDgaZPVvgE1ZBw89qja99vMbAxT9C9rZrq19On3G/nMPDTjdliLcoGRdJz +tHsMzB+47NFN9UMXZQt1ySoGCrVm6khQ/bNQ/F48/w8GiuvrjQlR/Vjf74T9 +yyEG/jI0G8SnJFS8NaOfGmOgSES9+bEn1P+L//Rk7g8Dc14Jm9SVkDC7cOWP +CREmerD4aI5UfzcdCjDtYzHRPSVFZwl1XqzRkjnNb8BEB2XWhtl8Kh98KstV +DJm4q8vGaJCk6ntCxMBnGxMF41tta/NI6P6Tqz7nxMRFcffJPdkk+Aj+J7Y6 +lokxnuEjI6kkGJtHWhokMlHIQcn34TUSViUpJjilMDFBq4wv6CoJT8X8F2df +Z2J8Q8aeiUtUvKWEp7XvMZEp9WL0VTJ1/iph9/YuJgayevN+RJNwxPOLpPdH +JnYdfpseeZoEyI/fldLHRKcdcY/Eo6j80ex40zHExInfjqasSBLU1/tUHORT +xNnwyhXWIVR8TDJzwtUU8bXyGV0+6vz+6cLvWxSmiGLbfeu2UfeBwTTj0uen +FDE27MtwkjUJQx3hS17FKqKa1d5jzVYk/LKYvtaTooglcaanLM2pfNzQXymc +o4gDQiLCKluo/rSiXvzwG0XsXxR27sB6ElZXnn0sLa+EPBz24V4Jkrr/r1oY +Xa6Egh1K7/Y1ceH7gS05G6qVsMmuUUblDRfi0wPMh18poc75W9bjDVxolmm/ +uvudEta8N4s8WcsF59VX1qp+U8IZZtmy6DIuBApLub0VUsa9f9XOqdzhAjkl +UyO1WxlvDr8JHY7mgmgDI7FwSBm3WFquvqbLhb9Dmll1Y8qoWX704x1tLvSL +bnj6eVoZZYZiA8o0uFBub9EvwaeC3nqmku+p+6rv5wCTCAkV3KMyaTUrzYWW +3zV/rQxVkJf2Na55ERcuKXt6jSarYNaPEc2B5jxYE1NgyWKpYq6VmpywRx5c +VtETEXNXw3cd0f7eSblQJ2moO3pOHRW8D/gvysoB/TXlSRqtGqh8Iihe6txt +EObN8NsfqYkpMxrBeuHZIBMha7CboYUXdTzJnm1ZIEDsLd5ZrYVh7d9WBq7I +BHX26oIAR20Uw+ehtwYywKdbtMKMZy22Ar0gjkyHodF4W9PLa/El89xi18ib +sEXj5VVTNR308fh3ZnFlGjwb3fB78rUOmmwNeVTolApHVbU737rp4kxhV/JX +navAHnRt2S3AwmV3Pfk0Ry7BZrrEDqEMFtIfhNgv+nEBFMPjjpevW4e/1swq +VC8+D8pues+JznXYEdv+q3VlMrg9O3Sq6Nh6fLThAlm6Pwme32xxHVmph02p +8t2EZQKM5cxNajzUw/R8iXuzKnHgQnAFru7Qx3EL1YaP/tEwopzCujesj+2D +Zr52L07Bo8zfPeMxG1Bb8tiHe8ciwcFYATfIGOCOzeJfbJ3CQerf6BL1MgNs +k/dqVMkLgZVLj9zdsYuNe+xrVoN+IGRuCg0a3s1GowqNonyVQNAOTdyUspeN +zippCxWkA8F8uPBd+342LiuXLZLnCYTTrePTLkfYGBGSpOv18jhMZYQZBUWw +cbPgu39MbY5D54aU5mwuG9M/fPnT7xcAh/wzU03vsJF50O24qnsATNx54Paz +kI0Ny6s9/HYHgCitfVKrmGrFcK1g1cYA2MYvvaa0jJqPZ/sp7pIAeNqS7dr8 +jo0r3eULFqdywEz4kRqnnY0cpUMVdxI50L6ldkKii42qu0S1HCM4MPb4R8y+ +j2z8/uCbSMNBDqila+Z/72fj8vOT5JQWB552GnLiB6j9Ozywa6ZT462wBo1h +Ng4dDzcrWsWBg9H+b/3G2WhddZY/9o8/jJWdvrpqio28U79fhwz7Q+TMJZfH +M2zUSKxq43zyBxGdXFXHP2xc+w+PfECrP6T9+3h8bo6NR5qe5YTW+sP/OSyb +Ug== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VG0UAHBFReETJZFtzJ2xbzFFpnNIisqSJSlRSNEXWUa2LCVLSLQn +RQhzRSWlUrJkiRSyfilKi7Jll/Jdf93n9zz3vsu555z3lT/gtdNtIQ8PD98C +Hp7550R3bSX9TOZGx+ZTaS+KWBtb0iQCDdsjAcLy7cVbVgCubDwg0Z4MQn5z +Xl+b6cCxzGvjbc+AgdKbz+qadWD54Krk6bZ78P3jxLHbzcbw4am511hbOYi+ ++j5r2GwDJvT+9yNtTdDTFSxR9tYVptvWXRhu64XqrsbYild+ULHpdubbjFHQ +2mZSOXE2CtZ8KPlyQPUP/GfaKvez5iysOOKUt2QTL34sTa46UHEekrVMnpjb +8uNgUvGMb9sV6LisWTYiIoR9p/4IpNqnwZnMsMaFq5djnIJxUSMnHVad/xSb +cl0Mja5P0t7F3YJoG9ONTRMrcdJrSTBhmQW+eulOtZESWFWQnuMqcBuMh2aC +jn6SxKhI8R3nfXMgcOt55Rc/JfFnKf+uZ8dz4E66WqfYhCRKLXA40BeaAxI2 +znol/FJYGN0crByTAz8fVU3yqkuhYvvuu0mpOZASmeR35bgUen083FtfmQO9 +KxlHK4XWoGvUUoeFYrkQYWC1X3K9NF49s+q0dXYubN2X9mudkTTubdh+Roqb +C8LhP07abpfGKJX4yQ8FuZBaEZWd5CyNr1jmfPtKcuGR2eMfi2OlcWulyHf1 ++lwYtlfgjHZI45HGN/cVRnJhn/94XH2wDPYSaVL26/NA/86VohPPZXG6eqNV +35M8MG57/WewRhbDPTxvnHyeB+Y8fFucmmRx1/ejVTIVeeCy82gH9MniOvVf +l7fV5YFJsHxY+CI5PF321jGsPQ+8ZSduGarI4aOl2s4WY3lQ6X5joIIjh4lB +EsfOKXHBdFZPNCRYDl80xr2oU+XC66QWlk64HFoGPern0eRCR4lAeGasHJ47 +G1ftwuLC4DI/0ahUOQwxEczn3cQFicKt60zK5dDHL16P3MOFI1Mj4TVC8qhU +WrAkPY4L+scOin8RlcdqWyXzewlc4O/v5PJKyGPK5ulPz5O4kNVV0bqRJo95 +Q9Z/Gy9yofvZBdUHLHmciGeOVmRwwSJKrz3dSR6bakMFfpdwQVs0QiP4rjzK +7ZL1u93HBZ4z45WXi+WxSt9NaNM3av28Hg7FT6jx6w3/dPZzwXN8Z9RIlTye +8e7qmRviQmY7vcu9Ux7NVU6+lJ7hgviNmtM2vDQ0rymFPCESplVEutVsaTjo +/ViZX5uEieuSEWsdaPgg8K8CoUPC2D8EXc+Jhkkfqm9sZJEwOKrnYXyYhv9c +tZZz1yeh94nLhEMoDUfY1haJRiTUbXsoHJNFQ+eXdg91d5JQXfribkIeDb/c +yOKTsiGhUqPeJqWAhtl5RzpnbUl4JtZzNa2Ehl/fTcoV7ybhXtdS5oMGGs7U +riPmnEm46rkPesdpOJ684eCPoyRcen+o9+sMDReEtnte8SbhvIVv1MAcDYds +EniMfUhIXBvzakpAAYUW/G1P9Cch8vfdXf/IKKDCKYedv4NJ8DyzyNvARAHl +f8vWa8SQYMAlb168qIBHUvoYS9NI6JLj3th8TQGVxsWO6d4gIehibtrYDQW0 +O7S1zvEmCQ8jslN35iogvdybm5VBgrb9zcvCTxXwYcBFHdHbJCgtOp90ukcB +C7ODyvcVkFATlHxW94sCfpC10txTSMLB4aTEz/0KmKu4usjmLgmZXQnxRmMK +KCZuOrfxPgly96Jj/i6mY43rm8LhYhLEnYLDOap0HLrD/lpTSsKDlsAwQouO +Ff5D/RefkWBjdvxEiy4dVyWPLTvwnIRkXf8QbaCjgWTP7aEyEoQEvY4PWtHx +UlaxzbcKEsiIfwOu21Hjq/ta3qgkwWzSk7N9Dx0ZZk7/WleRENN7yC/PlY7r +a58K3n9JAl/JAe+DAXS8neoyZFFLwi31/V4rQ+hIs/ReOEzZKNPpaGU4HfnU +svQT6kgIO7v3CC2OjlEL49c8f0XCjJvdoe5UOn5qOl3E85qEK1027gnpdEw8 +vnQulvJ6K+uDBtl0rHtd5yPSSALHwNL1agEd9/GtaF/xhoQRUTNnu3I69jXv +z/n9loT2I7Q3HtV0HGuRfh/QRELZyxkIq6ejY+mn58OUk4K4sjmtdJSt35Tc +3kzC8ZaTZ5920VGE1D+5pYUEZ/W9c28+UvHsG6Pfp6zZK/hhup+OX8E3NPwd +CRIGfebCw9R+n13W7aXMc7H0GW2cjgI2xunYSkKj6dG0bXPU960TF0YpF98y +EXbmI7Cx1EVuaxsJaX9kTvgJEGiXT9t/hfLRu42O18UIzO45xK/dToLdspyG +uxIELip08A6kvNEtnP1SmsBTV3zPlVIWWq0lPcQkEJdNLDDooOrPRyCBV43A +yozXOzmU/6vvmV2lTaC9L+mUT5kMT/4PDQj8KbC3cHknVQ+dHtttDQl0dEgf +30g5RGfT08MmBIpPNU0fouyaKKV6YhuBioJk6VnK276NXku2JHD3jm+G9ylr +G9Uvu21LYNfcpuhmypKpmcFPHAicGAtOHKa8cCLkR6MTgbfidtgv7SKh38J2 +z2dXAk24nD45yk25aq+mDhNo2/CApUP5Me/iDUJeBC4Yrd1uTDnDsTtP3o/A +9lwfRSvKsQ+LJVmBBIYv9a5zoOy9/Gyc2QkCrR9Frt1P2d7TfWbfSQIFezxd +XSljFXj4xhDoZzDgOG9FWYnO6AQClwjWys2/LxI4bJqaTGCGZHn+/HhTTTUl +hZcIVHl6bdH8fB9V05WqUgnUaVitNL+emtOBVzrSCcy/x7N6fr2FH60EBrMJ +jNq9snV+P5f1lQMXkgS6saT3z+83/PzC7+J3CdTb3P14Ph7ug532KsUETvPL +fp6Pl/nW+zXwhEDWmez38/FkZZxZb1NG4Mc9BjlJlGVmXXIOVRHYlJRj7EF5 +sZ2BRGgdgQlV9+8j5cGCFTHnGgnslGROiFFuFRiYzGoh8CirXvAz9b+zS6+3 +ve4mcHSgpSSIcuIqzpZPnyh7vLYypMw5Zv5w8huBaV7ECz7Km4m5i3KjBPYH +SCtFUvmlGta2WHeKQBuOvYIB5RUdBRzTPwTuHKFP/aLy9XO8s53PEgYafOfq +7JrP335VmqYgA7e/vrBuKeXJLdMDAyIMvPntQthjKv+X8iZHHZZkIL/riR5R +ypqBFUXOagwMg4S5DKq+HreeDZfRZuDvH+VspLxJZ+/2/1gMTBt0edlJ1afd +0NinXcjARTlXSpZQDnVjiFlYM/B9UqW+IVXviyt+dQvaU/ONG32oofpBktzz +vLq9DDS6f6V5x5v5/rnLyOQgA2cfJNyxoPpHnVXsMXYgA7WvN+HaBqp/bvzZ +qHKDgaZPVvgE1ZBw89qja99vMbAxT9C9rZrq19On3G/nMPDTjdliLcoGRdJz +tHsMzB+47NFN9UMXZQt1ySoGCrVm6khQ/bNQ/F48/w8GiuvrjQlR/Vjf74T9 +yyEG/jI0G8SnJFS8NaOfGmOgSES9+bEn1P+L//Rk7g8Dc14Jm9SVkDC7cOWP +CREmerD4aI5UfzcdCjDtYzHRPSVFZwl1XqzRkjnNb8BEB2XWhtl8Kh98KstV +DJm4q8vGaJCk6ntCxMBnGxMF41tta/NI6P6Tqz7nxMRFcffJPdkk+Aj+J7Y6 +lokxnuEjI6kkGJtHWhokMlHIQcn34TUSViUpJjilMDFBq4wv6CoJT8X8F2df +Z2J8Q8aeiUtUvKWEp7XvMZEp9WL0VTJ1/iph9/YuJgayevN+RJNwxPOLpPdH +JnYdfpseeZoEyI/fldLHRKcdcY/Eo6j80ex40zHExInfjqasSBLU1/tUHORT +xNnwyhXWIVR8TDJzwtUU8bXyGV0+6vz+6cLvWxSmiGLbfeu2UfeBwTTj0uen +FDE27MtwkjUJQx3hS17FKqKa1d5jzVYk/LKYvtaTooglcaanLM2pfNzQXymc +o4gDQiLCKluo/rSiXvzwG0XsXxR27sB6ElZXnn0sLa+EPBz24V4Jkrr/r1oY +Xa6Egh1K7/Y1ceH7gS05G6qVsMmuUUblDRfi0wPMh18poc75W9bjDVxolmm/ +uvudEta8N4s8WcsF59VX1qp+U8IZZtmy6DIuBApLub0VUsa9f9XOqdzhAjkl +UyO1WxlvDr8JHY7mgmgDI7FwSBm3WFquvqbLhb9Dmll1Y8qoWX704x1tLvSL +bnj6eVoZZYZiA8o0uFBub9EvwaeC3nqmku+p+6rv5wCTCAkV3KMyaTUrzYWW +3zV/rQxVkJf2Na55ERcuKXt6jSarYNaPEc2B5jxYE1NgyWKpYq6VmpywRx5c +VtETEXNXw3cd0f7eSblQJ2moO3pOHRW8D/gvysoB/TXlSRqtGqh8Iihe6txt +EObN8NsfqYkpMxrBeuHZIBMha7CboYUXdTzJnm1ZIEDsLd5ZrYVh7d9WBq7I +BHX26oIAR20Uw+ehtwYywKdbtMKMZy22Ar0gjkyHodF4W9PLa/El89xi18ib +sEXj5VVTNR308fh3ZnFlGjwb3fB78rUOmmwNeVTolApHVbU737rp4kxhV/JX +navAHnRt2S3AwmV3Pfk0Ry7BZrrEDqEMFtIfhNgv+nEBFMPjjpevW4e/1swq +VC8+D8pues+JznXYEdv+q3VlMrg9O3Sq6Nh6fLThAlm6Pwme32xxHVmph02p +8t2EZQKM5cxNajzUw/R8iXuzKnHgQnAFru7Qx3EL1YaP/tEwopzCujesj+2D +Zr52L07Bo8zfPeMxG1Bb8tiHe8ciwcFYATfIGOCOzeJfbJ3CQerf6BL1MgNs +k/dqVMkLgZVLj9zdsYuNe+xrVoN+IGRuCg0a3s1GowqNonyVQNAOTdyUspeN +zippCxWkA8F8uPBd+342LiuXLZLnCYTTrePTLkfYGBGSpOv18jhMZYQZBUWw +cbPgu39MbY5D54aU5mwuG9M/fPnT7xcAh/wzU03vsJF50O24qnsATNx54Paz +kI0Ny6s9/HYHgCitfVKrmGrFcK1g1cYA2MYvvaa0jJqPZ/sp7pIAeNqS7dr8 +jo0r3eULFqdywEz4kRqnnY0cpUMVdxI50L6ldkKii42qu0S1HCM4MPb4R8y+ +j2z8/uCbSMNBDqila+Z/72fj8vOT5JQWB552GnLiB6j9Ozywa6ZT462wBo1h +Ng4dDzcrWsWBg9H+b/3G2WhddZY/9o8/jJWdvrpqio28U79fhwz7Q+TMJZfH +M2zUSKxq43zyBxGdXFXHP2xc+w+PfECrP6T9+3h8bo6NR5qe5YTW+sP/OSyb +Ug== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05636132932517243}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05636132932517243}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VG0UAHBFReETJZFtzJ2xbzFFpnNIisqSJSlRSNEXWUa2LCVLSLQn +RQhzRSWlUrJkiRSyfilKi7Jll/Jdf93n9zz3vsu555z3lT/gtdNtIQ8PD98C +Hp7550R3bSX9TOZGx+ZTaS+KWBtb0iQCDdsjAcLy7cVbVgCubDwg0Z4MQn5z +Xl+b6cCxzGvjbc+AgdKbz+qadWD54Krk6bZ78P3jxLHbzcbw4am511hbOYi+ ++j5r2GwDJvT+9yNtTdDTFSxR9tYVptvWXRhu64XqrsbYild+ULHpdubbjFHQ +2mZSOXE2CtZ8KPlyQPUP/GfaKvez5iysOOKUt2QTL34sTa46UHEekrVMnpjb +8uNgUvGMb9sV6LisWTYiIoR9p/4IpNqnwZnMsMaFq5djnIJxUSMnHVad/xSb +cl0Mja5P0t7F3YJoG9ONTRMrcdJrSTBhmQW+eulOtZESWFWQnuMqcBuMh2aC +jn6SxKhI8R3nfXMgcOt55Rc/JfFnKf+uZ8dz4E66WqfYhCRKLXA40BeaAxI2 +znol/FJYGN0crByTAz8fVU3yqkuhYvvuu0mpOZASmeR35bgUen083FtfmQO9 +KxlHK4XWoGvUUoeFYrkQYWC1X3K9NF49s+q0dXYubN2X9mudkTTubdh+Roqb +C8LhP07abpfGKJX4yQ8FuZBaEZWd5CyNr1jmfPtKcuGR2eMfi2OlcWulyHf1 ++lwYtlfgjHZI45HGN/cVRnJhn/94XH2wDPYSaVL26/NA/86VohPPZXG6eqNV +35M8MG57/WewRhbDPTxvnHyeB+Y8fFucmmRx1/ejVTIVeeCy82gH9MniOvVf +l7fV5YFJsHxY+CI5PF321jGsPQ+8ZSduGarI4aOl2s4WY3lQ6X5joIIjh4lB +EsfOKXHBdFZPNCRYDl80xr2oU+XC66QWlk64HFoGPern0eRCR4lAeGasHJ47 +G1ftwuLC4DI/0ahUOQwxEczn3cQFicKt60zK5dDHL16P3MOFI1Mj4TVC8qhU +WrAkPY4L+scOin8RlcdqWyXzewlc4O/v5PJKyGPK5ulPz5O4kNVV0bqRJo95 +Q9Z/Gy9yofvZBdUHLHmciGeOVmRwwSJKrz3dSR6bakMFfpdwQVs0QiP4rjzK +7ZL1u93HBZ4z45WXi+WxSt9NaNM3av28Hg7FT6jx6w3/dPZzwXN8Z9RIlTye +8e7qmRviQmY7vcu9Ux7NVU6+lJ7hgviNmtM2vDQ0rymFPCESplVEutVsaTjo +/ViZX5uEieuSEWsdaPgg8K8CoUPC2D8EXc+Jhkkfqm9sZJEwOKrnYXyYhv9c +tZZz1yeh94nLhEMoDUfY1haJRiTUbXsoHJNFQ+eXdg91d5JQXfribkIeDb/c +yOKTsiGhUqPeJqWAhtl5RzpnbUl4JtZzNa2Ehl/fTcoV7ybhXtdS5oMGGs7U +riPmnEm46rkPesdpOJ684eCPoyRcen+o9+sMDReEtnte8SbhvIVv1MAcDYds +EniMfUhIXBvzakpAAYUW/G1P9Cch8vfdXf/IKKDCKYedv4NJ8DyzyNvARAHl +f8vWa8SQYMAlb168qIBHUvoYS9NI6JLj3th8TQGVxsWO6d4gIehibtrYDQW0 +O7S1zvEmCQ8jslN35iogvdybm5VBgrb9zcvCTxXwYcBFHdHbJCgtOp90ukcB +C7ODyvcVkFATlHxW94sCfpC10txTSMLB4aTEz/0KmKu4usjmLgmZXQnxRmMK +KCZuOrfxPgly96Jj/i6mY43rm8LhYhLEnYLDOap0HLrD/lpTSsKDlsAwQouO +Ff5D/RefkWBjdvxEiy4dVyWPLTvwnIRkXf8QbaCjgWTP7aEyEoQEvY4PWtHx +UlaxzbcKEsiIfwOu21Hjq/ta3qgkwWzSk7N9Dx0ZZk7/WleRENN7yC/PlY7r +a58K3n9JAl/JAe+DAXS8neoyZFFLwi31/V4rQ+hIs/ReOEzZKNPpaGU4HfnU +svQT6kgIO7v3CC2OjlEL49c8f0XCjJvdoe5UOn5qOl3E85qEK1027gnpdEw8 +vnQulvJ6K+uDBtl0rHtd5yPSSALHwNL1agEd9/GtaF/xhoQRUTNnu3I69jXv +z/n9loT2I7Q3HtV0HGuRfh/QRELZyxkIq6ejY+mn58OUk4K4sjmtdJSt35Tc +3kzC8ZaTZ5920VGE1D+5pYUEZ/W9c28+UvHsG6Pfp6zZK/hhup+OX8E3NPwd +CRIGfebCw9R+n13W7aXMc7H0GW2cjgI2xunYSkKj6dG0bXPU960TF0YpF98y +EXbmI7Cx1EVuaxsJaX9kTvgJEGiXT9t/hfLRu42O18UIzO45xK/dToLdspyG +uxIELip08A6kvNEtnP1SmsBTV3zPlVIWWq0lPcQkEJdNLDDooOrPRyCBV43A +yozXOzmU/6vvmV2lTaC9L+mUT5kMT/4PDQj8KbC3cHknVQ+dHtttDQl0dEgf +30g5RGfT08MmBIpPNU0fouyaKKV6YhuBioJk6VnK276NXku2JHD3jm+G9ylr +G9Uvu21LYNfcpuhmypKpmcFPHAicGAtOHKa8cCLkR6MTgbfidtgv7SKh38J2 +z2dXAk24nD45yk25aq+mDhNo2/CApUP5Me/iDUJeBC4Yrd1uTDnDsTtP3o/A +9lwfRSvKsQ+LJVmBBIYv9a5zoOy9/Gyc2QkCrR9Frt1P2d7TfWbfSQIFezxd +XSljFXj4xhDoZzDgOG9FWYnO6AQClwjWys2/LxI4bJqaTGCGZHn+/HhTTTUl +hZcIVHl6bdH8fB9V05WqUgnUaVitNL+emtOBVzrSCcy/x7N6fr2FH60EBrMJ +jNq9snV+P5f1lQMXkgS6saT3z+83/PzC7+J3CdTb3P14Ph7ug532KsUETvPL +fp6Pl/nW+zXwhEDWmez38/FkZZxZb1NG4Mc9BjlJlGVmXXIOVRHYlJRj7EF5 +sZ2BRGgdgQlV9+8j5cGCFTHnGgnslGROiFFuFRiYzGoh8CirXvAz9b+zS6+3 +ve4mcHSgpSSIcuIqzpZPnyh7vLYypMw5Zv5w8huBaV7ECz7Km4m5i3KjBPYH +SCtFUvmlGta2WHeKQBuOvYIB5RUdBRzTPwTuHKFP/aLy9XO8s53PEgYafOfq +7JrP335VmqYgA7e/vrBuKeXJLdMDAyIMvPntQthjKv+X8iZHHZZkIL/riR5R +ypqBFUXOagwMg4S5DKq+HreeDZfRZuDvH+VspLxJZ+/2/1gMTBt0edlJ1afd +0NinXcjARTlXSpZQDnVjiFlYM/B9UqW+IVXviyt+dQvaU/ONG32oofpBktzz +vLq9DDS6f6V5x5v5/rnLyOQgA2cfJNyxoPpHnVXsMXYgA7WvN+HaBqp/bvzZ +qHKDgaZPVvgE1ZBw89qja99vMbAxT9C9rZrq19On3G/nMPDTjdliLcoGRdJz +tHsMzB+47NFN9UMXZQt1ySoGCrVm6khQ/bNQ/F48/w8GiuvrjQlR/Vjf74T9 +yyEG/jI0G8SnJFS8NaOfGmOgSES9+bEn1P+L//Rk7g8Dc14Jm9SVkDC7cOWP +CREmerD4aI5UfzcdCjDtYzHRPSVFZwl1XqzRkjnNb8BEB2XWhtl8Kh98KstV +DJm4q8vGaJCk6ntCxMBnGxMF41tta/NI6P6Tqz7nxMRFcffJPdkk+Aj+J7Y6 +lokxnuEjI6kkGJtHWhokMlHIQcn34TUSViUpJjilMDFBq4wv6CoJT8X8F2df +Z2J8Q8aeiUtUvKWEp7XvMZEp9WL0VTJ1/iph9/YuJgayevN+RJNwxPOLpPdH +JnYdfpseeZoEyI/fldLHRKcdcY/Eo6j80ex40zHExInfjqasSBLU1/tUHORT +xNnwyhXWIVR8TDJzwtUU8bXyGV0+6vz+6cLvWxSmiGLbfeu2UfeBwTTj0uen +FDE27MtwkjUJQx3hS17FKqKa1d5jzVYk/LKYvtaTooglcaanLM2pfNzQXymc +o4gDQiLCKluo/rSiXvzwG0XsXxR27sB6ElZXnn0sLa+EPBz24V4Jkrr/r1oY +Xa6Egh1K7/Y1ceH7gS05G6qVsMmuUUblDRfi0wPMh18poc75W9bjDVxolmm/ +uvudEta8N4s8WcsF59VX1qp+U8IZZtmy6DIuBApLub0VUsa9f9XOqdzhAjkl +UyO1WxlvDr8JHY7mgmgDI7FwSBm3WFquvqbLhb9Dmll1Y8qoWX704x1tLvSL +bnj6eVoZZYZiA8o0uFBub9EvwaeC3nqmku+p+6rv5wCTCAkV3KMyaTUrzYWW +3zV/rQxVkJf2Na55ERcuKXt6jSarYNaPEc2B5jxYE1NgyWKpYq6VmpywRx5c +VtETEXNXw3cd0f7eSblQJ2moO3pOHRW8D/gvysoB/TXlSRqtGqh8Iihe6txt +EObN8NsfqYkpMxrBeuHZIBMha7CboYUXdTzJnm1ZIEDsLd5ZrYVh7d9WBq7I +BHX26oIAR20Uw+ehtwYywKdbtMKMZy22Ar0gjkyHodF4W9PLa/El89xi18ib +sEXj5VVTNR308fh3ZnFlGjwb3fB78rUOmmwNeVTolApHVbU737rp4kxhV/JX +navAHnRt2S3AwmV3Pfk0Ry7BZrrEDqEMFtIfhNgv+nEBFMPjjpevW4e/1swq +VC8+D8pues+JznXYEdv+q3VlMrg9O3Sq6Nh6fLThAlm6Pwme32xxHVmph02p +8t2EZQKM5cxNajzUw/R8iXuzKnHgQnAFru7Qx3EL1YaP/tEwopzCujesj+2D +Zr52L07Bo8zfPeMxG1Bb8tiHe8ciwcFYATfIGOCOzeJfbJ3CQerf6BL1MgNs +k/dqVMkLgZVLj9zdsYuNe+xrVoN+IGRuCg0a3s1GowqNonyVQNAOTdyUspeN +zippCxWkA8F8uPBd+342LiuXLZLnCYTTrePTLkfYGBGSpOv18jhMZYQZBUWw +cbPgu39MbY5D54aU5mwuG9M/fPnT7xcAh/wzU03vsJF50O24qnsATNx54Paz +kI0Ny6s9/HYHgCitfVKrmGrFcK1g1cYA2MYvvaa0jJqPZ/sp7pIAeNqS7dr8 +jo0r3eULFqdywEz4kRqnnY0cpUMVdxI50L6ldkKii42qu0S1HCM4MPb4R8y+ +j2z8/uCbSMNBDqila+Z/72fj8vOT5JQWB552GnLiB6j9Ozywa6ZT462wBo1h +Ng4dDzcrWsWBg9H+b/3G2WhddZY/9o8/jJWdvrpqio28U79fhwz7Q+TMJZfH +M2zUSKxq43zyBxGdXFXHP2xc+w+PfECrP6T9+3h8bo6NR5qe5YTW+sP/OSyb +Ug== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05636132932517243}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.05636132932517243}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994258958972355*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"ba82c687-eb2f-4192-90ce-fd7fd8d77e28"] +}, Open ]], Cell[CellGroupData[{ @@ -10749,66 +11715,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[365]:=",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], + "In[121]:=",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 365, 381, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423358439445`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.0645779104261143`*^-161\\\", \ +RowBox[{\\\"505518991860510123640143147290826802026\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"71\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9512072804761600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 45, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423358439445`*^9, 3.994258959026587*^9}, CellLabel-> "During evaluation of \ -In[365]:=",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], +In[121]:=",ExpressionUUID->"4bc77101-f0a7-4a4c-9c97-f22668075043"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 365, 382, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342335853943*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.169230030962115`*^-164\\\", \ +RowBox[{\\\"164243120455479739170682508554789627978\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"75\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4724542670438400000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 46, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423358439445`*^9, 3.994258959034766*^9}, CellLabel-> "During evaluation of \ -In[365]:=",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], +In[121]:=",ExpressionUUID->"61b5c66a-a3e5-4137-8a31-55a347205397"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 365, 383, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342335861944*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.6720630243854406`*^-167\\\", \ +RowBox[{\\\"552513857212233842570175958778312308519\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"78\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3361543354777600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 47, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423358439445`*^9, 3.994258959042783*^9}, CellLabel-> "During evaluation of \ -In[365]:=",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], +In[121]:=",ExpressionUUID->"ab88fd47-90a0-4946-8ccd-a50c961836b8"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 365, 384, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342335870945*^9}, +during this calculation.\"", 2, 121, 48, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423358439445`*^9, 3.994258959051505*^9}, CellLabel-> "During evaluation of \ -In[365]:=",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], +In[121]:=",ExpressionUUID->"ac98fa6a-1d0a-4f2e-b19f-993ba0ae8735"], -Cell[BoxData["12.5536549879565`"], "Output", - CellChangeTimes->{3.9913423425170345`*^9}, +Cell[BoxData["14.450280237768258`"], "Output", + CellChangeTimes->{3.9913423425170345`*^9, 3.994259043469511*^9}, CellLabel-> - "Out[365]=",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] + "Out[121]=",ExpressionUUID->"72dbe2d2-42fb-4f32-b564-7bf4deafb495"] }, Open ]], Cell[CellGroupData[{ @@ -10875,68 +11848,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.99184987967128*^9, - 3.9918498857615337`*^9}},ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-\ -30286a178ca1"], + CellChangeTimes->{{3.99184987967128*^9, 3.9918498857615337`*^9}}, + CellLabel-> + "In[122]:=",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 366, - 385, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423425545177`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.2588484599161415`*^-226\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 122, 49, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423425545177`*^9, 3.994259043517725*^9}, CellLabel-> "During evaluation of \ -In[366]:=",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], +In[122]:=",ExpressionUUID->"e1919a2c-8675-41d2-bafe-579eb090ad6b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 366, - 386, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342342564516*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2188198414430582`*^-232\\\", \ +RowBox[{\\\"1894408991562427689427794363373458470910\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8875062955245236398325760000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 50, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423425545177`*^9, 3.994259043526778*^9}, CellLabel-> "During evaluation of \ -In[366]:=",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], +In[122]:=",ExpressionUUID->"9fc0092c-1659-4d49-84aa-7c32dc059f62"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 366, - 387, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423425725136`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.576456244215829`*^-239\\\", \ +RowBox[{\\\"2735526583816145583533735060711274031995\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"10\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5590907374121359182397440000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 51, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423425545177`*^9, 3.9942590435370493`*^9}, CellLabel-> "During evaluation of \ -In[366]:=",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], +In[122]:=",ExpressionUUID->"040d6ed6-baed-488a-90de-331594afe503"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 366, 388, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423425815163`*^9}, +during this calculation.\"", 2, 122, 52, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423425545177`*^9, 3.994259043546376*^9}, CellLabel-> "During evaluation of \ -In[366]:=",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], +In[122]:=",ExpressionUUID->"874b7e71-383d-4308-9ef1-7cce7f112643"], -Cell[BoxData["2.904399821349581`"], "Output", - CellChangeTimes->{3.9913423499055786`*^9}, +Cell[BoxData["0.05425332900004586`"], "Output", + CellChangeTimes->{3.9913423499055786`*^9, 3.994259053843131*^9}, CellLabel-> - "Out[366]=",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] + "Out[122]=",ExpressionUUID->"e93b4f19-4fb4-4056-a036-c3658cab0fa2"] }, Open ]], Cell[CellGroupData[{ @@ -10957,8 +11935,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -11003,67 +11980,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849890499424*^9, - 3.9918498944226*^9}},ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], + CellChangeTimes->{{3.991849890499424*^9, 3.9918498944226*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 367, - 389, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423499435787`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.2588484599161415`*^-226\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 123, 53, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423499435787`*^9, 3.9942590538937073`*^9}, CellLabel-> "During evaluation of \ -In[367]:=",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], +In[123]:=",ExpressionUUID->"76a1421a-e124-48fa-9020-0b35aed2f301"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 367, - 390, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342349953579*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2188198414430582`*^-232\\\", \ +RowBox[{\\\"1894408991562427689427794363373458470910\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8875062955245236398325760000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 123, + 54, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423499435787`*^9, 3.994259053903159*^9}, CellLabel-> "During evaluation of \ -In[367]:=",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], +In[123]:=",ExpressionUUID->"c785b4a9-3b51-4cd7-a022-da3641fc78b4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 367, - 391, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423499625797`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.576456244215829`*^-239\\\", \ +RowBox[{\\\"2735526583816145583533735060711274031995\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"10\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5590907374121359182397440000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 123, + 55, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423499435787`*^9, 3.994259053911981*^9}, CellLabel-> "During evaluation of \ -In[367]:=",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], +In[123]:=",ExpressionUUID->"ff67c793-0395-4a56-886d-fb8219aeed7b"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 367, 392, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423499715805`*^9}, +during this calculation.\"", 2, 123, 56, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423499435787`*^9, 3.994259053922018*^9}, CellLabel-> "During evaluation of \ -In[367]:=",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], +In[123]:=",ExpressionUUID->"3c3b6ce4-c1d5-48e5-b5a3-49b87c2858f6"], -Cell[BoxData["9.928941323789857`"], "Output", - CellChangeTimes->{3.991342356382967*^9}, +Cell[BoxData["49.70571369242491`"], "Output", + CellChangeTimes->{3.991342356382967*^9, 3.994259063580447*^9}, CellLabel-> - "Out[367]=",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] + "Out[123]=",ExpressionUUID->"e05e2754-84d5-4513-bcd5-324c4b5f6c75"] }, Open ]], Cell[CellGroupData[{ @@ -11084,8 +12067,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -11130,68 +12112,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918499002266407`*^9, - 3.9918499040814323`*^9}},ExpressionUUID->"935796a8-6280-564a-b4d0-\ -fc6fb6cd41f8"], + CellChangeTimes->{{3.9918499002266407`*^9, 3.9918499040814323`*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 368, - 393, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342356420965*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.2588484599161415`*^-226\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 124, 57, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342356420965*^9, 3.9942590636262283`*^9}, CellLabel-> "During evaluation of \ -In[368]:=",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], +In[124]:=",ExpressionUUID->"48c25f79-562b-4f22-9e29-fd93a180758c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 368, - 394, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342356431965*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2188198414430582`*^-232\\\", \ +RowBox[{\\\"1894408991562427689427794363373458470910\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8875062955245236398325760000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 124, + 58, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342356420965*^9, 3.9942590636349916`*^9}, CellLabel-> "During evaluation of \ -In[368]:=",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], +In[124]:=",ExpressionUUID->"52383a15-4e5f-4b90-b455-1509a3c81a97"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 368, - 395, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342356441965*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.576456244215829`*^-239\\\", \ +RowBox[{\\\"2735526583816145583533735060711274031995\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"10\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5590907374121359182397440000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 124, + 59, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342356420965*^9, 3.994259063643161*^9}, CellLabel-> "During evaluation of \ -In[368]:=",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], +In[124]:=",ExpressionUUID->"1f5da303-db97-4cc6-b3be-a3186a8096ac"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 368, 396, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342356450968*^9}, +during this calculation.\"", 2, 124, 60, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342356420965*^9, 3.9942590636511517`*^9}, CellLabel-> "During evaluation of \ -In[368]:=",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], +In[124]:=",ExpressionUUID->"b43310af-03c3-4f9d-bed4-de9c0dd7c0f2"], -Cell[BoxData["19.874153108015193`"], "Output", - CellChangeTimes->{3.9913423600715523`*^9}, +Cell[BoxData["5.95697803088838`"], "Output", + CellChangeTimes->{3.9913423600715523`*^9, 3.994259071826655*^9}, CellLabel-> - "Out[368]=",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] + "Out[124]=",ExpressionUUID->"58ca026c-e180-44fa-857b-76b91e21caa4"] }, Open ]], Cell[CellGroupData[{ @@ -11200,22 +12187,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991849908545643*^9, - 3.9918499133398113`*^9}},ExpressionUUID->"ee52036b-90c5-e14a-aed9-\ -684ff23ed035"], - -Cell[BoxData["0.2067571864462191`"], "Output", - CellChangeTimes->{3.9913423601046352`*^9}, + CellChangeTimes->{{3.991849908545643*^9, 3.9918499133398113`*^9}}, CellLabel-> - "Out[369]=",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] + "In[125]:=",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], + +Cell[BoxData["0.0031529002836106178`"], "Output", + CellChangeTimes->{3.9913423601046352`*^9, 3.99425907187286*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"0759090a-fc2a-4cbb-9524-e8c84e93d8c3"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.991849916273302*^9, 3.9918499185334816`*^9}, - 3.9919247506818066`*^9},ExpressionUUID->"c6d4a146-4cca-7e4e-b483-\ -85227a6e6b51"], + 3.9919247506818066`*^9}, + CellLabel-> + "In[126]:=",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], Cell[CellGroupData[{ @@ -11238,12 +12226,12 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[371]:=",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], + "In[127]:=",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], -Cell[BoxData["29.129739599983825`"], "Output", - CellChangeTimes->{3.9913423601345863`*^9}, +Cell[BoxData["21.56657246933043`"], "Output", + CellChangeTimes->{3.9913423601345863`*^9, 3.994259071896183*^9}, CellLabel-> - "Out[371]=",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] + "Out[127]=",ExpressionUUID->"f04934ad-97e8-4ae5-a238-9293e4266d0b"] }, Open ]], Cell[CellGroupData[{ @@ -11253,12 +12241,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[373]:=",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], + "In[128]:=",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], -Cell[BoxData["0.6950071373045505`"], "Output", - CellChangeTimes->{3.9913423601709976`*^9}, +Cell[BoxData["1.3118916455022123`"], "Output", + CellChangeTimes->{3.9913423601709976`*^9, 3.994259071911683*^9}, CellLabel-> - "Out[373]=",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] + "Out[128]=",ExpressionUUID->"38c4268c-a06e-4c2a-8260-9bcdf2860dd7"] }, Open ]], Cell[CellGroupData[{ @@ -11268,12 +12256,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[376]:=",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], + "In[129]:=",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], -Cell[BoxData["20.245376929811762`"], "Output", - CellChangeTimes->{3.9913423602320137`*^9}, +Cell[BoxData["28.293006244632608`"], "Output", + CellChangeTimes->{3.9913423602320137`*^9, 3.9942590719262257`*^9}, CellLabel-> - "Out[376]=",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] + "Out[129]=",ExpressionUUID->"18f9e3a8-b775-41fe-91d0-011b0e93f26c"] }, Open ]], Cell[CellGroupData[{ @@ -11463,12 +12451,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[377]:=",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], + "In[130]:=",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], -Cell[BoxData["0.02003459702393596`"], "Output", - CellChangeTimes->{3.991342360260002*^9}, +Cell[BoxData["0.004235957038050544`"], "Output", + CellChangeTimes->{3.991342360260002*^9, 3.994259071946681*^9}, CellLabel-> - "Out[377]=",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] + "Out[130]=",ExpressionUUID->"2cbd6a6d-ea7e-4a3b-8c09-4679868c1ced"] }, Open ]], Cell[CellGroupData[{ @@ -11482,12 +12470,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[378]:=",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], + "In[131]:=",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], -Cell[BoxData["6.261157591052328`"], "Output", - CellChangeTimes->{3.9913423603598785`*^9}, +Cell[BoxData["13.616615283260142`"], "Output", + CellChangeTimes->{3.9913423603598785`*^9, 3.994259072122401*^9}, CellLabel-> - "Out[378]=",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] + "Out[131]=",ExpressionUUID->"3607a0fa-a4ca-49d9-af63-e5578da3867c"] }, Open ]], Cell[CellGroupData[{ @@ -11679,12 +12667,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[379]:=",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], + "In[132]:=",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], -Cell[BoxData["0.010388932679900494`"], "Output", - CellChangeTimes->{3.991342360375868*^9}, +Cell[BoxData["0.031042273223878245`"], "Output", + CellChangeTimes->{3.991342360375868*^9, 3.994259072141446*^9}, CellLabel-> - "Out[379]=",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] + "Out[132]=",ExpressionUUID->"f3cb302b-e7ab-4e9c-a01d-3da43af15b07"] }, Open ]], Cell[CellGroupData[{ @@ -11698,12 +12686,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[380]:=",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], + "In[133]:=",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], -Cell[BoxData["8.694797556550151`"], "Output", - CellChangeTimes->{3.991342360471882*^9}, +Cell[BoxData["5.030002282487639`"], "Output", + CellChangeTimes->{3.991342360471882*^9, 3.994259072342616*^9}, CellLabel-> - "Out[380]=",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] + "Out[133]=",ExpressionUUID->"28537775-4988-4b95-a435-4226b181dd15"] }, Open ]], Cell[CellGroupData[{ @@ -11796,12 +12784,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[381]:=",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], + "In[134]:=",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.991342360486868*^9}, +Cell[BoxData["0.12078123313891681`"], "Output", + CellChangeTimes->{3.991342360486868*^9, 3.9942590723581667`*^9}, CellLabel-> - "Out[381]=",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] + "Out[134]=",ExpressionUUID->"ab114425-8ec8-4f43-85d3-1f4fe4566bbf"] }, Open ]], Cell[CellGroupData[{ @@ -11891,12 +12879,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[382]:=",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], + "In[135]:=",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.9913423605138645`*^9}, +Cell[BoxData["0.8792187668610831`"], "Output", + CellChangeTimes->{3.9913423605138645`*^9, 3.994259072373845*^9}, CellLabel-> - "Out[382]=",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] + "Out[135]=",ExpressionUUID->"3218b4b5-7f76-40a8-986d-f12dd0df1bd3"] }, Open ]], Cell[CellGroupData[{ @@ -12019,12 +13007,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[383]:=",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], + "In[136]:=",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.9913423605448647`*^9}, +Cell[BoxData["0.10619312686035944`"], "Output", + CellChangeTimes->{3.9913423605448647`*^9, 3.994259072390828*^9}, CellLabel-> - "Out[383]=",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] + "Out[136]=",ExpressionUUID->"9c15ca83-6365-45cb-ae15-2c6829f719ee"] }, Open ]], Cell[CellGroupData[{ @@ -12086,68 +13074,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849936863495*^9},ExpressionUUID->"6b25ec99-ae49-ec4d-9652-\ -65328572e509"], + CellChangeTimes->{3.991849936863495*^9}, + CellLabel-> + "In[137]:=",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 384, 397, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342360571863*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0015840789972585`*^-251\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 137, 61, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342360571863*^9, 3.9942590724086723`*^9}, CellLabel-> "During evaluation of \ -In[384]:=",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], +In[137]:=",ExpressionUUID->"dab5f613-a00c-4bfd-8b6e-2bbfae462011"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 384, 398, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423605818653`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0874924452372561`*^-260\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 137, 62, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342360571863*^9, 3.994259072417885*^9}, CellLabel-> "During evaluation of \ -In[384]:=",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], +In[137]:=",ExpressionUUID->"45eab708-1854-4c1d-b073-97215db6522e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 384, - 399, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423605898647`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1807693864624056`*^-269\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 137, 63, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342360571863*^9, 3.99425907242723*^9}, CellLabel-> "During evaluation of \ -In[384]:=",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], +In[137]:=",ExpressionUUID->"e98f0cac-8c00-4390-aa02-2345741b1dbb"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 384, 400, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423605988636`*^9}, +during this calculation.\"", 2, 137, 64, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342360571863*^9, 3.9942590724345512`*^9}, CellLabel-> "During evaluation of \ -In[384]:=",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], +In[137]:=",ExpressionUUID->"e0a5153b-5ccf-468e-a50f-fc875a92646a"], -Cell[BoxData["6.261157591052324`"], "Output", - CellChangeTimes->{3.9913423642473736`*^9}, +Cell[BoxData["13.616615283260142`"], "Output", + CellChangeTimes->{3.9913423642473736`*^9, 3.9942590787473173`*^9}, CellLabel-> - "Out[384]=",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] + "Out[137]=",ExpressionUUID->"2afad6a7-10e6-447f-ad87-e1798a2375a9"] }, Open ]], Cell[CellGroupData[{ @@ -12209,68 +13198,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849940282545*^9},ExpressionUUID->"3e2baf62-fab9-eb41-8de7-\ -aa229443ac14"], + CellChangeTimes->{3.991849940282545*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 385, 401, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342364284378*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0015840789972585`*^-251\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 138, 65, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342364284378*^9, 3.9942590787997427`*^9}, CellLabel-> "During evaluation of \ -In[385]:=",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], +In[138]:=",ExpressionUUID->"0bc4e902-296c-4d56-a23b-985881295d9c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 385, 402, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423642935734`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0874924452372561`*^-260\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 138, 66, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342364284378*^9, 3.9942590788108063`*^9}, CellLabel-> "During evaluation of \ -In[385]:=",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], +In[138]:=",ExpressionUUID->"74a7c9d1-0bd5-4330-84a6-f6f209eab663"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 385, - 403, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342364302574*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1807693864624056`*^-269\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 138, 67, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342364284378*^9, 3.994259078820715*^9}, CellLabel-> "During evaluation of \ -In[385]:=",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], +In[138]:=",ExpressionUUID->"ec6e22d0-1755-437f-a750-8745fa8c754d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 385, 404, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423643105717`*^9}, +during this calculation.\"", 2, 138, 68, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342364284378*^9, 3.994259078828738*^9}, CellLabel-> "During evaluation of \ -In[385]:=",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], +In[138]:=",ExpressionUUID->"a68a1378-fc4d-4ef3-8b0a-2c7dff5dffb7"], -Cell[BoxData["8.694797556550144`"], "Output", - CellChangeTimes->{3.9913423679416714`*^9}, +Cell[BoxData["5.03000228248764`"], "Output", + CellChangeTimes->{3.9913423679416714`*^9, 3.994259085211842*^9}, CellLabel-> - "Out[385]=",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] + "Out[138]=",ExpressionUUID->"e6621d81-d471-4eec-b32b-e8da4fe651be"] }, Open ]], Cell[CellGroupData[{ @@ -12328,95 +13318,92 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849946138607*^9},ExpressionUUID->"725c3011-bda9-4c42-96ce-\ -9a77a5dc787c"], + CellChangeTimes->{3.991849946138607*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C -qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P -P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC -usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx -y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM -UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 -4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 -LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 -LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ -tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N -AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T -HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF -K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj -T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt -q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US -zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS -fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ -Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa -eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t -r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB -R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX -ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk -7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i -4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr -1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr -rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd -lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc -8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd -VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX -lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc -2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K -BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB -GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c -hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 -DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ -xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr -PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 -qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U -DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 -gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf -7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 -4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG -u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 -xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm -YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U -Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L -3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi -OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb -+yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj -9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw -kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf -sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz -oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb -sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P -iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV -hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy -53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU -hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz -2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 -ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz -5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ -sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh -ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 -TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C -zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf -YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR -raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk -TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ -G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR -p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u -bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT -wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e -y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 -pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF -U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei -Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef -kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= - + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwd1Xk0VtsbB3CEZChDGRKZCym9hhCdJ14qmec5vd5zzPOQmS7qak4qXUkl +hasyFKH86ibcKCoqisxkel8kkfLb+/5x1lmftdd69nc9+zlnyzNC7UguDg6O +KfTgd/jr7Vuq21/vaaz+WZAhyib2TN/SYdBLCfHigP/cl6+brUR/TEwfq76B +bcN8xSuo9YLwtx24hl0em/Kch95KPOKb+As7s1HyaUrJG0L87puL2DXt4deW +aZ1E555LZ7HHu18mxtV9JFzr9f7E3jis6P7d5DMhsa0mBfsgK1E/svULcelP +iRjs+uVxgdiSfiKswz4Q+/1RiYSqkEHCVjjkEPY0L338G22YmDek7LB5T4W5 +ai2MEGruhnRsWZG85vC6MaIzkK2NbSX9/fa0ySTh6zcrik1dVxDX4JsmAp2A +AztF2TojsJVFyO4OmkxH/ijRsTOqZIY4M+X5DJvpFuB/4dQssfREsQSbfZXj +RkXIHBF6ouk8Np+ChvAMbZ64JFPsiZ3NfL5PeMN3In10ZC+23B3XlB0L34kf +lVzK2Hrbjk0H1/0g7rl3jKYh++l+aR03WSbWy/Qdwv4WG83Nr/KLoHau3Y2d +WidgqMr3m8h22bgBOwf0/vZtXSH4vra++APnK2ymR5RwQodLrhR2SeOFvqPS +XCBsXjtxFOcd9Uo8f4oLVhjVj7ET1eYry0JWwb8SFu7Y2fflFVk0HtAf/HIi +Fbm7fbL+dwEPsHzZ9thys9VuazfwQo3GF2nsUm2rLI0FXkg74VyUgtxQE88Z +VMcHnKzKymTk+efvvoyZCMKONtnsRGRRC0HhhHpBcDIapGNrdtBBSF8IDgbb +f0tADhh6eH3n9rVgqrbLGjuMq1XTSFAY4p4LzschDyvcm8n4LgK8m75zHMH9 +oV6uadMShZn8uKsxyFx/j8hLhotCqnWxLrac1ma7kglRCLcW8o1GdjM5V/G6 +Twx4iseqI5HbfCIiJVo2wNemOakw5N47Z05684mDT43R9VDkyYmSgmJTcaC5 +aitj80cNvtv9VBy6m7aohyDT0x20vR9KgKbP1i1ByLW3dOeL8qWAZzbniy/y +reGlGIMoGTBOT7HzQt7veLw38q4M7Bb1qPHE9RvEzO6OyMDolMhmbO1b2zbI +ucrCs4drRt1xPxlelTx7NsOBfDV/V+RZVt+RsTQ56O400HVAFgumP6i0VICZ +zL65/cgjt/j9bAIUoIX+Uwf70ed26aljCrC9lB2zD9nDwjNN5akCWJQHzpvi +fOoxdldoikCfLhgyxvuP32EnSyjBN4OtpwyRHXwFNMz7lSFC8/PKdmQixpHm +/EsZ3NK65LHVMvJ3MaVU4GpqvbEGMkeBlnGyrQp8LiOOqiPf7XV3rnimAksB +cjNb8PfpVHp0480tMJble1UO56Nbvh9nqILUtQh5EeQC+8ufFpJVQeR3qpww +8hlGfx93ripk9cbKrsPznRo9IftOFWK8lSWEkEUe53HYm6iBskrkTz48P1rT +anWK6rBziHWWA1la4WzKyaFt4LIyMDYtwiYen/imusilAWfeJZZOIXvMuXZQ +8hpQHvwmZBL5WoOSqrGXBnhY/836iqzgW/v2xwcNyLRSGhhCVisdVqZatsOW +OuJEN7KMtCwl56oJtoIvRhuQtxVGCf4kaHCsIrfnIjKDmTavYUWDyx47A7OR +cxSzer09aKDoXr6Qhbzq5v2yxlgaDFaECZ1D7r427pBVToMET5b6CeTMHO88 +VUUt8Hbn1ElGHjlpsd2FVxto/vKxJPKNCCWbh606ENjU2aSJ3B5D7Eov1Icj +tfZSZcJsQt6r08ozyAj+nV7/XRaZXKm6JxMH0Pjd2u34OjYhMfFotQTDGG7d +t517s5ZNRGkZfs5So0PIlXInKWTG1HKz2LgpGOR9bnASQudpHLk6v20fxDfV +WEYLovn5FvCsNPsANDVft74kwCZ+7JV81ZByEHJfP+i5zM8mejhWzfQftoTs +GOX9WWvYRMim0HNHFa2hOjK8LZuPTdzzb356McMGUqsUi2JXs4n4OakFdX9b +EK3+3OXLi/4f5mZOTYfsIC2vyVCfh03ou5/fO2xrD63vl5z4udnEW6m8gAYt +B+gX2tMwwYXuk9tpj4u2OsJJtt9KOSearz41CyshJ3hwfM7rJAe6DzrYvjFT +TpB+xFWz4zeL0Lp4vrSgzxkuzeyTYiyziDzuue1Zz12gUX/5tswSi6jau6M7 +o8YVUn40ut5fYBE5u06ILJe4gW5l45jjPIto+1R4TOuUO3xa4areMcciHlpe +VQpL9YCTT4vpX9ksYibYniOE6QmMLZ+ku6ZZxLyZqt+0iRfQdrhNDE6yiKKp +rh+RuofAoM7g5cdxFuFyo9DHU9Abfjrlr+f9yiIqKw4eWnXcG7KNyEzlURah +L/12MXPRG44v8icnD7MIxT7f7jf+h6E6ZXvg4iCLGBIItL46eBjyhOTbwwdY +RPsZK599jgx4f+S3s0I/i8iOzReIbmfA5gozvq4vLOJx/cqizwEfgKTOmppe +FrHOA45r1fqAZcvy99c9LEJufVPbpsc+YGc0Q29B1my1lOSt9wGqyO5iE7Kd +oXvxx2c+MBTmafQUOXtTTEvSvz5gMXelpBx5Y8/f65o/+sBE9OhiNrKSl0SO +x4IPtGudD/ZE1veeLsrQZkJwbXTV/GcWcfsKO9JKlwkd7P7OWeT172b3SOgx +4e7p2AUW8rTpQkfRbiYwS5X3jiPfUufgbDVmwkPn9Ole5LULIq6itkxwbIgr +b0YeOq2zJj+YCTunwrrykG2bdnX4hjJh+kPSnlzkeg6DfM1wJjQm1BbmIF+J +3KPzTxQTnp99Hn8B2cp13+HhBCZEWUgRmcg1Sq416ieYEFc/rxmNfKYu0f/R +bSb4lqXWWiEH0y7rxxYxIZGVEW6BbFFcvkavhAn+1cVq5sj8l0eKq+8yodXP +ssAUOSPCZrzqARN4uNfcM0ROVFUKfPgPE8SMQlTVkQMutwRV9DKhxODdozXI +B9aOGEb0MUFK/GvlauStGRxCtAEmtCTJl/Mgj0To3C0fZoKW/1I5J/Jhq/yp +skkm/Jq1frX4Cc0XT2TI/SUmnI0pCBhH3he5MaxUnITnryrgFfI/+cfMsyRJ +oFU5uLUgG7bOKsVuJOHJpuSYf5E1lVu6TGRJyPzqW/UCWepDgsknZRL4pHId +6pEnDHrE+XVISF3O5S9DPst1/YmvPQnKkn2eF5H5dwjmWDqSUPPmXvMF5HT3 +2AgtZxLau/l0s5BjH9hsWXEjIdv8kORZ5MMU5/lLDBL25+b8/BNZ6yWD+SKc +BMmDDoZJyB/OKwsoniPBcvn6HV/ke4SQ39h5EmR+/xVH4fpT3xruXiBh/u1r +SxKZdqAhWe8yCc5GQ8sM5DMcPrOW10hYz9Uc7YVsFnq9K7aUhH/M/3jriCwj +86funnskTF+Rb3ZA/vYy9MKqMhK2t/z8nz3yTRXC8kwlCUdED1fZIv/q6Xla +UEtC4Qj7iSXyAwvpotfNJJxsoOmZIZ9c4uLJfon2szlua4rMKBo/7NpKwt4S +iWA6sjB3rfRQGwl0zskSY+SgOpezi+9JkC5j7iWQFdUuxSgNk5Bre6NLD3np +Q9K7ryMkiA0/EsduzyA174+RMCQi5LQLOblfe1x/kgRHMvCTDnJ3zjtP6zkS +LmtwcmohZ60WMY3npICn8K9qDeTHsz3uUasoiCGUebFHe0oiQngo6NGOd96G +5+EB/TpjDQVNPmlc6sgj3rE/zUUosKetj9+K81uYipqKUWDGPde7BXn3LlFV +YgMFhheummGfEyp10pKi4O0GG1kVvF77pVxangLHXn2WIjJVWNq8QZGC5JbQ +AOxz5+K+rFOmoO9l2JgC3o8SE+JWpSBUpWNSHq+L7fOb1KQgw15eQg659rdY +ygiNAqqzrGgz8vDXvot92hQslgkYYRs8jX/eoUfBw4uKIbLIQ0H3ZJ8ABbmj +n2c2Ia91SdCpNqZgWbD5Cra+yX6LcjoFBxqT6dhnpAbiCvdT8HKt9U1p5Efc +98/lm1MgV+LniD3ISrhzxYKCEzOWAth6jRs6T9tQEJ6bkLIRn3f5wMRxOwo0 ++BqMsE9fvc/1hwMF+3U//pZCHog4oBnjQsGuMZ9MbCEv8X1hbhTMRH2yw9Y7 +MOgZ4EGBf4fsZuzTm5NOenlTcHHjmqeSOA+/+U0XBqrHV5aNPTAvXmPHpGDi +vUIQtlD/YJsFhfqbedgMW6+1bMTMj4IyhSBFbEZ10i8IoGDplvEq7NM3zdfv +DqJgt9jwsASuf1pCXSeEAp1Q+xbsgdihvTvCKOCrO12JLcgsd1GNoOCvHxeu +Ye+yTg5VjKLATpU6hc0wOHhMJoaCaCvuJOxTypJ5ErEUhPiHhGFXCQ9XisRT +MBR/i8Lu/1n+UiCRgidptw/9V380uZ8nmYLL6VHu2LpvD/5YSUH9TVrrhv1/ +qv4SBw== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -12430,107 +13417,104 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C -qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P -P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC -usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx -y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM -UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 -4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 -LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 -LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ -tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N -AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T -HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF -K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj -T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt -q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US -zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS -fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ -Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa -eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t -r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB -R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX -ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk -7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i -4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr -1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr -rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd -lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc -8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd -VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX -lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc -2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K -BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB -GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c -hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 -DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ -xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr -PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 -qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U -DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 -gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf -7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 -4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG -u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 -xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm -YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U -Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L -3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi -OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb -+yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj -9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw -kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf -sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz -oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb -sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P -iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV -hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy -53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU -hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz -2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 -ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz -5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ -sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh -ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 -TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C -zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf -YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR -raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk -TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ -G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR -p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u -bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT -wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e -y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 -pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF -U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei -Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef -kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= - +1:eJwd1Xk0VtsbB3CEZChDGRKZCym9hhCdJ14qmec5vd5zzPOQmS7qak4qXUkl +hasyFKH86ibcKCoqisxkel8kkfLb+/5x1lmftdd69nc9+zlnyzNC7UguDg6O +KfTgd/jr7Vuq21/vaaz+WZAhyib2TN/SYdBLCfHigP/cl6+brUR/TEwfq76B +bcN8xSuo9YLwtx24hl0em/Kch95KPOKb+As7s1HyaUrJG0L87puL2DXt4deW +aZ1E555LZ7HHu18mxtV9JFzr9f7E3jis6P7d5DMhsa0mBfsgK1E/svULcelP +iRjs+uVxgdiSfiKswz4Q+/1RiYSqkEHCVjjkEPY0L338G22YmDek7LB5T4W5 +ai2MEGruhnRsWZG85vC6MaIzkK2NbSX9/fa0ySTh6zcrik1dVxDX4JsmAp2A +AztF2TojsJVFyO4OmkxH/ijRsTOqZIY4M+X5DJvpFuB/4dQssfREsQSbfZXj +RkXIHBF6ouk8Np+ChvAMbZ64JFPsiZ3NfL5PeMN3In10ZC+23B3XlB0L34kf +lVzK2Hrbjk0H1/0g7rl3jKYh++l+aR03WSbWy/Qdwv4WG83Nr/KLoHau3Y2d +WidgqMr3m8h22bgBOwf0/vZtXSH4vra++APnK2ymR5RwQodLrhR2SeOFvqPS +XCBsXjtxFOcd9Uo8f4oLVhjVj7ET1eYry0JWwb8SFu7Y2fflFVk0HtAf/HIi +Fbm7fbL+dwEPsHzZ9thys9VuazfwQo3GF2nsUm2rLI0FXkg74VyUgtxQE88Z +VMcHnKzKymTk+efvvoyZCMKONtnsRGRRC0HhhHpBcDIapGNrdtBBSF8IDgbb +f0tADhh6eH3n9rVgqrbLGjuMq1XTSFAY4p4LzschDyvcm8n4LgK8m75zHMH9 +oV6uadMShZn8uKsxyFx/j8hLhotCqnWxLrac1ma7kglRCLcW8o1GdjM5V/G6 +Twx4iseqI5HbfCIiJVo2wNemOakw5N47Z05684mDT43R9VDkyYmSgmJTcaC5 +aitj80cNvtv9VBy6m7aohyDT0x20vR9KgKbP1i1ByLW3dOeL8qWAZzbniy/y +reGlGIMoGTBOT7HzQt7veLw38q4M7Bb1qPHE9RvEzO6OyMDolMhmbO1b2zbI +ucrCs4drRt1xPxlelTx7NsOBfDV/V+RZVt+RsTQ56O400HVAFgumP6i0VICZ +zL65/cgjt/j9bAIUoIX+Uwf70ed26aljCrC9lB2zD9nDwjNN5akCWJQHzpvi +fOoxdldoikCfLhgyxvuP32EnSyjBN4OtpwyRHXwFNMz7lSFC8/PKdmQixpHm +/EsZ3NK65LHVMvJ3MaVU4GpqvbEGMkeBlnGyrQp8LiOOqiPf7XV3rnimAksB +cjNb8PfpVHp0480tMJble1UO56Nbvh9nqILUtQh5EeQC+8ufFpJVQeR3qpww +8hlGfx93ripk9cbKrsPznRo9IftOFWK8lSWEkEUe53HYm6iBskrkTz48P1rT +anWK6rBziHWWA1la4WzKyaFt4LIyMDYtwiYen/imusilAWfeJZZOIXvMuXZQ +8hpQHvwmZBL5WoOSqrGXBnhY/836iqzgW/v2xwcNyLRSGhhCVisdVqZatsOW +OuJEN7KMtCwl56oJtoIvRhuQtxVGCf4kaHCsIrfnIjKDmTavYUWDyx47A7OR +cxSzer09aKDoXr6Qhbzq5v2yxlgaDFaECZ1D7r427pBVToMET5b6CeTMHO88 +VUUt8Hbn1ElGHjlpsd2FVxto/vKxJPKNCCWbh606ENjU2aSJ3B5D7Eov1Icj +tfZSZcJsQt6r08ozyAj+nV7/XRaZXKm6JxMH0Pjd2u34OjYhMfFotQTDGG7d +t517s5ZNRGkZfs5So0PIlXInKWTG1HKz2LgpGOR9bnASQudpHLk6v20fxDfV +WEYLovn5FvCsNPsANDVft74kwCZ+7JV81ZByEHJfP+i5zM8mejhWzfQftoTs +GOX9WWvYRMim0HNHFa2hOjK8LZuPTdzzb356McMGUqsUi2JXs4n4OakFdX9b +EK3+3OXLi/4f5mZOTYfsIC2vyVCfh03ou5/fO2xrD63vl5z4udnEW6m8gAYt +B+gX2tMwwYXuk9tpj4u2OsJJtt9KOSearz41CyshJ3hwfM7rJAe6DzrYvjFT +TpB+xFWz4zeL0Lp4vrSgzxkuzeyTYiyziDzuue1Zz12gUX/5tswSi6jau6M7 +o8YVUn40ut5fYBE5u06ILJe4gW5l45jjPIto+1R4TOuUO3xa4areMcciHlpe +VQpL9YCTT4vpX9ksYibYniOE6QmMLZ+ku6ZZxLyZqt+0iRfQdrhNDE6yiKKp +rh+RuofAoM7g5cdxFuFyo9DHU9Abfjrlr+f9yiIqKw4eWnXcG7KNyEzlURah +L/12MXPRG44v8icnD7MIxT7f7jf+h6E6ZXvg4iCLGBIItL46eBjyhOTbwwdY +RPsZK599jgx4f+S3s0I/i8iOzReIbmfA5gozvq4vLOJx/cqizwEfgKTOmppe +FrHOA45r1fqAZcvy99c9LEJufVPbpsc+YGc0Q29B1my1lOSt9wGqyO5iE7Kd +oXvxx2c+MBTmafQUOXtTTEvSvz5gMXelpBx5Y8/f65o/+sBE9OhiNrKSl0SO +x4IPtGudD/ZE1veeLsrQZkJwbXTV/GcWcfsKO9JKlwkd7P7OWeT172b3SOgx +4e7p2AUW8rTpQkfRbiYwS5X3jiPfUufgbDVmwkPn9Ole5LULIq6itkxwbIgr +b0YeOq2zJj+YCTunwrrykG2bdnX4hjJh+kPSnlzkeg6DfM1wJjQm1BbmIF+J +3KPzTxQTnp99Hn8B2cp13+HhBCZEWUgRmcg1Sq416ieYEFc/rxmNfKYu0f/R +bSb4lqXWWiEH0y7rxxYxIZGVEW6BbFFcvkavhAn+1cVq5sj8l0eKq+8yodXP +ssAUOSPCZrzqARN4uNfcM0ROVFUKfPgPE8SMQlTVkQMutwRV9DKhxODdozXI +B9aOGEb0MUFK/GvlauStGRxCtAEmtCTJl/Mgj0To3C0fZoKW/1I5J/Jhq/yp +skkm/Jq1frX4Cc0XT2TI/SUmnI0pCBhH3he5MaxUnITnryrgFfI/+cfMsyRJ +oFU5uLUgG7bOKsVuJOHJpuSYf5E1lVu6TGRJyPzqW/UCWepDgsknZRL4pHId +6pEnDHrE+XVISF3O5S9DPst1/YmvPQnKkn2eF5H5dwjmWDqSUPPmXvMF5HT3 +2AgtZxLau/l0s5BjH9hsWXEjIdv8kORZ5MMU5/lLDBL25+b8/BNZ6yWD+SKc +BMmDDoZJyB/OKwsoniPBcvn6HV/ke4SQ39h5EmR+/xVH4fpT3xruXiBh/u1r +SxKZdqAhWe8yCc5GQ8sM5DMcPrOW10hYz9Uc7YVsFnq9K7aUhH/M/3jriCwj +86funnskTF+Rb3ZA/vYy9MKqMhK2t/z8nz3yTRXC8kwlCUdED1fZIv/q6Xla +UEtC4Qj7iSXyAwvpotfNJJxsoOmZIZ9c4uLJfon2szlua4rMKBo/7NpKwt4S +iWA6sjB3rfRQGwl0zskSY+SgOpezi+9JkC5j7iWQFdUuxSgNk5Bre6NLD3np +Q9K7ryMkiA0/EsduzyA174+RMCQi5LQLOblfe1x/kgRHMvCTDnJ3zjtP6zkS +LmtwcmohZ60WMY3npICn8K9qDeTHsz3uUasoiCGUebFHe0oiQngo6NGOd96G +5+EB/TpjDQVNPmlc6sgj3rE/zUUosKetj9+K81uYipqKUWDGPde7BXn3LlFV +YgMFhheummGfEyp10pKi4O0GG1kVvF77pVxangLHXn2WIjJVWNq8QZGC5JbQ +AOxz5+K+rFOmoO9l2JgC3o8SE+JWpSBUpWNSHq+L7fOb1KQgw15eQg659rdY +ygiNAqqzrGgz8vDXvot92hQslgkYYRs8jX/eoUfBw4uKIbLIQ0H3ZJ8ABbmj +n2c2Ia91SdCpNqZgWbD5Cra+yX6LcjoFBxqT6dhnpAbiCvdT8HKt9U1p5Efc +98/lm1MgV+LniD3ISrhzxYKCEzOWAth6jRs6T9tQEJ6bkLIRn3f5wMRxOwo0 ++BqMsE9fvc/1hwMF+3U//pZCHog4oBnjQsGuMZ9MbCEv8X1hbhTMRH2yw9Y7 +MOgZ4EGBf4fsZuzTm5NOenlTcHHjmqeSOA+/+U0XBqrHV5aNPTAvXmPHpGDi +vUIQtlD/YJsFhfqbedgMW6+1bMTMj4IyhSBFbEZ10i8IoGDplvEq7NM3zdfv +DqJgt9jwsASuf1pCXSeEAp1Q+xbsgdihvTvCKOCrO12JLcgsd1GNoOCvHxeu +Ye+yTg5VjKLATpU6hc0wOHhMJoaCaCvuJOxTypJ5ErEUhPiHhGFXCQ9XisRT +MBR/i8Lu/1n+UiCRgidptw/9V380uZ8nmYLL6VHu2LpvD/5YSUH9TVrrhv1/ +qv4SBw== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5012481131960838, - 1.8440472181603567`}}, + "PlotRange" -> {{0, 180}, {0.9954945334356308, + 1.0045219808193777`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5012481131960849}, + "AxesOrigin" -> {0, 0.995494533435633}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -12542,21 +13526,21 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5012481131960838, - 1.8440472181603567`}}, + "PlotRange" -> {{0, 180}, {0.9954945334356308, + 1.0045219808193777`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5012481131960849}, + "AxesOrigin" -> {0, 0.995494533435633}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -12570,105 +13554,102 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C -qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P -P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC -usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx -y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM -UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 -4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 -LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 -LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ -tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N -AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T -HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF -K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj -T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt -q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US -zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS -fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ -Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa -eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t -r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB -R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX -ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk -7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i -4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr -1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr -rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd -lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc -8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd -VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX -lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc -2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K -BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB -GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c -hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 -DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ -xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr -PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 -qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U -DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 -gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf -7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 -4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG -u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 -xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm -YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U -Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L -3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi -OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb -+yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj -9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw -kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf -sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz -oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb -sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P -iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV -hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy -53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU -hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz -2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 -ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz -5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ -sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh -ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 -TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C -zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf -YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR -raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk -TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ -G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR -p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u -bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT -wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e -y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 -pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF -U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei -Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef -kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= - +1:eJwd1Xk0VtsbB3CEZChDGRKZCym9hhCdJ14qmec5vd5zzPOQmS7qak4qXUkl +hasyFKH86ibcKCoqisxkel8kkfLb+/5x1lmftdd69nc9+zlnyzNC7UguDg6O +KfTgd/jr7Vuq21/vaaz+WZAhyib2TN/SYdBLCfHigP/cl6+brUR/TEwfq76B +bcN8xSuo9YLwtx24hl0em/Kch95KPOKb+As7s1HyaUrJG0L87puL2DXt4deW +aZ1E555LZ7HHu18mxtV9JFzr9f7E3jis6P7d5DMhsa0mBfsgK1E/svULcelP +iRjs+uVxgdiSfiKswz4Q+/1RiYSqkEHCVjjkEPY0L338G22YmDek7LB5T4W5 +ai2MEGruhnRsWZG85vC6MaIzkK2NbSX9/fa0ySTh6zcrik1dVxDX4JsmAp2A +AztF2TojsJVFyO4OmkxH/ijRsTOqZIY4M+X5DJvpFuB/4dQssfREsQSbfZXj +RkXIHBF6ouk8Np+ChvAMbZ64JFPsiZ3NfL5PeMN3In10ZC+23B3XlB0L34kf +lVzK2Hrbjk0H1/0g7rl3jKYh++l+aR03WSbWy/Qdwv4WG83Nr/KLoHau3Y2d +WidgqMr3m8h22bgBOwf0/vZtXSH4vra++APnK2ymR5RwQodLrhR2SeOFvqPS +XCBsXjtxFOcd9Uo8f4oLVhjVj7ET1eYry0JWwb8SFu7Y2fflFVk0HtAf/HIi +Fbm7fbL+dwEPsHzZ9thys9VuazfwQo3GF2nsUm2rLI0FXkg74VyUgtxQE88Z +VMcHnKzKymTk+efvvoyZCMKONtnsRGRRC0HhhHpBcDIapGNrdtBBSF8IDgbb +f0tADhh6eH3n9rVgqrbLGjuMq1XTSFAY4p4LzschDyvcm8n4LgK8m75zHMH9 +oV6uadMShZn8uKsxyFx/j8hLhotCqnWxLrac1ma7kglRCLcW8o1GdjM5V/G6 +Twx4iseqI5HbfCIiJVo2wNemOakw5N47Z05684mDT43R9VDkyYmSgmJTcaC5 +aitj80cNvtv9VBy6m7aohyDT0x20vR9KgKbP1i1ByLW3dOeL8qWAZzbniy/y +reGlGIMoGTBOT7HzQt7veLw38q4M7Bb1qPHE9RvEzO6OyMDolMhmbO1b2zbI +ucrCs4drRt1xPxlelTx7NsOBfDV/V+RZVt+RsTQ56O400HVAFgumP6i0VICZ +zL65/cgjt/j9bAIUoIX+Uwf70ed26aljCrC9lB2zD9nDwjNN5akCWJQHzpvi +fOoxdldoikCfLhgyxvuP32EnSyjBN4OtpwyRHXwFNMz7lSFC8/PKdmQixpHm +/EsZ3NK65LHVMvJ3MaVU4GpqvbEGMkeBlnGyrQp8LiOOqiPf7XV3rnimAksB +cjNb8PfpVHp0480tMJble1UO56Nbvh9nqILUtQh5EeQC+8ufFpJVQeR3qpww +8hlGfx93ripk9cbKrsPznRo9IftOFWK8lSWEkEUe53HYm6iBskrkTz48P1rT +anWK6rBziHWWA1la4WzKyaFt4LIyMDYtwiYen/imusilAWfeJZZOIXvMuXZQ +8hpQHvwmZBL5WoOSqrGXBnhY/836iqzgW/v2xwcNyLRSGhhCVisdVqZatsOW +OuJEN7KMtCwl56oJtoIvRhuQtxVGCf4kaHCsIrfnIjKDmTavYUWDyx47A7OR +cxSzer09aKDoXr6Qhbzq5v2yxlgaDFaECZ1D7r427pBVToMET5b6CeTMHO88 +VUUt8Hbn1ElGHjlpsd2FVxto/vKxJPKNCCWbh606ENjU2aSJ3B5D7Eov1Icj +tfZSZcJsQt6r08ozyAj+nV7/XRaZXKm6JxMH0Pjd2u34OjYhMfFotQTDGG7d +t517s5ZNRGkZfs5So0PIlXInKWTG1HKz2LgpGOR9bnASQudpHLk6v20fxDfV +WEYLovn5FvCsNPsANDVft74kwCZ+7JV81ZByEHJfP+i5zM8mejhWzfQftoTs +GOX9WWvYRMim0HNHFa2hOjK8LZuPTdzzb356McMGUqsUi2JXs4n4OakFdX9b +EK3+3OXLi/4f5mZOTYfsIC2vyVCfh03ou5/fO2xrD63vl5z4udnEW6m8gAYt +B+gX2tMwwYXuk9tpj4u2OsJJtt9KOSearz41CyshJ3hwfM7rJAe6DzrYvjFT +TpB+xFWz4zeL0Lp4vrSgzxkuzeyTYiyziDzuue1Zz12gUX/5tswSi6jau6M7 +o8YVUn40ut5fYBE5u06ILJe4gW5l45jjPIto+1R4TOuUO3xa4areMcciHlpe +VQpL9YCTT4vpX9ksYibYniOE6QmMLZ+ku6ZZxLyZqt+0iRfQdrhNDE6yiKKp +rh+RuofAoM7g5cdxFuFyo9DHU9Abfjrlr+f9yiIqKw4eWnXcG7KNyEzlURah +L/12MXPRG44v8icnD7MIxT7f7jf+h6E6ZXvg4iCLGBIItL46eBjyhOTbwwdY +RPsZK599jgx4f+S3s0I/i8iOzReIbmfA5gozvq4vLOJx/cqizwEfgKTOmppe +FrHOA45r1fqAZcvy99c9LEJufVPbpsc+YGc0Q29B1my1lOSt9wGqyO5iE7Kd +oXvxx2c+MBTmafQUOXtTTEvSvz5gMXelpBx5Y8/f65o/+sBE9OhiNrKSl0SO +x4IPtGudD/ZE1veeLsrQZkJwbXTV/GcWcfsKO9JKlwkd7P7OWeT172b3SOgx +4e7p2AUW8rTpQkfRbiYwS5X3jiPfUufgbDVmwkPn9Ole5LULIq6itkxwbIgr +b0YeOq2zJj+YCTunwrrykG2bdnX4hjJh+kPSnlzkeg6DfM1wJjQm1BbmIF+J +3KPzTxQTnp99Hn8B2cp13+HhBCZEWUgRmcg1Sq416ieYEFc/rxmNfKYu0f/R +bSb4lqXWWiEH0y7rxxYxIZGVEW6BbFFcvkavhAn+1cVq5sj8l0eKq+8yodXP +ssAUOSPCZrzqARN4uNfcM0ROVFUKfPgPE8SMQlTVkQMutwRV9DKhxODdozXI +B9aOGEb0MUFK/GvlauStGRxCtAEmtCTJl/Mgj0To3C0fZoKW/1I5J/Jhq/yp +skkm/Jq1frX4Cc0XT2TI/SUmnI0pCBhH3he5MaxUnITnryrgFfI/+cfMsyRJ +oFU5uLUgG7bOKsVuJOHJpuSYf5E1lVu6TGRJyPzqW/UCWepDgsknZRL4pHId +6pEnDHrE+XVISF3O5S9DPst1/YmvPQnKkn2eF5H5dwjmWDqSUPPmXvMF5HT3 +2AgtZxLau/l0s5BjH9hsWXEjIdv8kORZ5MMU5/lLDBL25+b8/BNZ6yWD+SKc +BMmDDoZJyB/OKwsoniPBcvn6HV/ke4SQ39h5EmR+/xVH4fpT3xruXiBh/u1r +SxKZdqAhWe8yCc5GQ8sM5DMcPrOW10hYz9Uc7YVsFnq9K7aUhH/M/3jriCwj +86funnskTF+Rb3ZA/vYy9MKqMhK2t/z8nz3yTRXC8kwlCUdED1fZIv/q6Xla +UEtC4Qj7iSXyAwvpotfNJJxsoOmZIZ9c4uLJfon2szlua4rMKBo/7NpKwt4S +iWA6sjB3rfRQGwl0zskSY+SgOpezi+9JkC5j7iWQFdUuxSgNk5Bre6NLD3np +Q9K7ryMkiA0/EsduzyA174+RMCQi5LQLOblfe1x/kgRHMvCTDnJ3zjtP6zkS +LmtwcmohZ60WMY3npICn8K9qDeTHsz3uUasoiCGUebFHe0oiQngo6NGOd96G +5+EB/TpjDQVNPmlc6sgj3rE/zUUosKetj9+K81uYipqKUWDGPde7BXn3LlFV +YgMFhheummGfEyp10pKi4O0GG1kVvF77pVxangLHXn2WIjJVWNq8QZGC5JbQ +AOxz5+K+rFOmoO9l2JgC3o8SE+JWpSBUpWNSHq+L7fOb1KQgw15eQg659rdY +ygiNAqqzrGgz8vDXvot92hQslgkYYRs8jX/eoUfBw4uKIbLIQ0H3ZJ8ABbmj +n2c2Ia91SdCpNqZgWbD5Cra+yX6LcjoFBxqT6dhnpAbiCvdT8HKt9U1p5Efc +98/lm1MgV+LniD3ISrhzxYKCEzOWAth6jRs6T9tQEJ6bkLIRn3f5wMRxOwo0 ++BqMsE9fvc/1hwMF+3U//pZCHog4oBnjQsGuMZ9MbCEv8X1hbhTMRH2yw9Y7 +MOgZ4EGBf4fsZuzTm5NOenlTcHHjmqeSOA+/+U0XBqrHV5aNPTAvXmPHpGDi +vUIQtlD/YJsFhfqbedgMW6+1bMTMj4IyhSBFbEZ10i8IoGDplvEq7NM3zdfv +DqJgt9jwsASuf1pCXSeEAp1Q+xbsgdihvTvCKOCrO12JLcgsd1GNoOCvHxeu +Ye+yTg5VjKLATpU6hc0wOHhMJoaCaCvuJOxTypJ5ErEUhPiHhGFXCQ9XisRT +MBR/i8Lu/1n+UiCRgidptw/9V380uZ8nmYLL6VHu2LpvD/5YSUH9TVrrhv1/ +qv4SBw== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5012481131960838, 1.8440472181603567`}}, + "PlotRange" -> {{0, 180}, {0.9954945334356308, 1.0045219808193777`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5012481131960849}, + "AxesOrigin" -> {0, 0.995494533435633}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -12678,7 +13659,8 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5012481131960849}, + AxesOrigin->{0, 0.995494533435633}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -12706,7 +13688,8 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5012481131960838, 1.8440472181603567`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.9954945334356308, 1.0045219808193777`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -12714,9 +13697,9 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991342629715925*^9}, + CellChangeTimes->{3.991342629715925*^9, 3.994259673055212*^9}, CellLabel-> - "Out[386]=",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] + "Out[139]=",ExpressionUUID->"4c8b32f1-556c-4e87-b43f-2015cc1eac04"] }, Open ]], Cell[CellGroupData[{ @@ -12779,156 +13762,160 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.991849950722357*^9, - 3.9918499540026855`*^9}},ExpressionUUID->"1ea503b1-33a1-2744-a92d-\ -2e1269faf5ed"], + CellChangeTimes->{{3.991849950722357*^9, 3.9918499540026855`*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.03396961278019`*^-273\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 387, - 405, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913426299467087`*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.732672930054315`*^-278\\\", \ +\\\"40990389067797283140009984000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 140, 69, + 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913426299467087`*^9, 3.994259673254897*^9}, CellLabel-> "During evaluation of \ -In[387]:=",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], +In[140]:=",ExpressionUUID->"1fe4ceb7-a368-4a2e-89fa-3f1aca586c03"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.366286872093514`*^-285\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 387, 406, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342629956772*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.969076499248569`*^-293\\\", \ +\\\"14797530453474819213543604224000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 140, 70, + 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913426299467087`*^9, 3.994259673264316*^9}, CellLabel-> "During evaluation of \ -In[387]:=",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], +In[140]:=",ExpressionUUID->"79634be2-3b5c-4691-8e4b-8a70e7a53995"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.843812508005402`*^-296\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 387, 407, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342629966284*^9}, + "\"\\!\\(\\*SuperscriptBox[\\\"2.0194293794221746`*^-8\\\", \\\"40\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 140, 71, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913426299467087`*^9, 3.994259673273354*^9}, CellLabel-> "During evaluation of \ -In[387]:=",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], +In[140]:=",ExpressionUUID->"f307daa8-83bb-4278-8f5e-2516e49ac389"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 387, 408, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913426299753895`*^9}, +during this calculation.\"", 2, 140, 72, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913426299467087`*^9, 3.994259673281927*^9}, CellLabel-> "During evaluation of \ -In[387]:=",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], +In[140]:=",ExpressionUUID->"1c55a1f4-4e51-4ece-bb61-d189f5b42903"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL -FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg -ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX -BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ -e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL -i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx -lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK -ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR -PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU -6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj -7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ -b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 -uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr -tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY -sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ -FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl -UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN -L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk -3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz -SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt -KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y -9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS -GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS -cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR -kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 -tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 -SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj -Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw -KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx -jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB -dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 -PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm -syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet -/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 -XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx -pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT -fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L -Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm -lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl -xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 -SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs -ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B -Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y -xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK -8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS -k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI -fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M -aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF -hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt -GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi -mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm -LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF -5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF -V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu -DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL -mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl -9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ -04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 -Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv -CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ -Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f -hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo -+ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X -hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l -Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw -qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U -eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi -4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN -ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX -B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M -5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 -cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj -66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 -VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US -FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh -kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 -2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca -+FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG -E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O -x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy -+x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 -2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak -vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo -d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC -Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd -sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj -Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr -ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VdsbB3BRpHAzz8M5zj7HPIUix/s2XCKXFCq3UEIllMwqVEKE0CQU +ScfZ+6ZBExWhG6U0KEOlorqhUOZKfuv3134+z37Wetba+7ved2/WprBVAaIi +IiISM0RE/n8d62pq4KSX2uff6ymf42ht31qkEru4fR/8TDGa2BmmAKjYskml +PQdS1+Dk0jAORK0Utom1l8DVlv8GeGGWIDugnDPZdhlEAzzuzApbBm9vuYaN +tNXBRiZr8myoBzhw+t58a3sGznucI81CNsNk24KjQ23dEFAzxAsJioD6pedL +n5YMQ15KSM0OvWTQeHvz0yajKZixuuBConkWKGz3FUosFcMKo+HB5I15kGPu +UO3qORuTLwadjvc9CR0nzGq/zZNGv4qUYpPHhZBemtAiqiqLkR7VOmN6xaCc +15OWWyiP5pK9ObOtz0KKh5P9szFFVLfy+OUxVgq7bIp9m/apoFfvF+0ndBks +G/wRF9qjhnmCIk8lBQHELs8zuPtFDRVGZScWqQrgQrFxp/yYGv7eVn3FR0sA +Kh5+Njdnq6NFTmDkKT0BfLlxb1zMRB1rva1Vv9sJIHdfdsTJGHUcmh1QKB8g +gG5FbmiDtAZ+eZyTTl0RQJKd+0a1hZr4it2VEOVQDst9ir4vWKKJrqE5erii +HGQS+/d7umgiM/fZavGV5VBQn1yW7aeJB4ckzVPXlcMN56p+8TRNLBLyRDZt +L4ehtbpRwx2aOEsgXRdypBx8IkcPNcdrYVpUevKH9nKwvXCycm+NNnrsX8Nz +3CCEZW2PpwYatXFjtajjVz8huIrMdPR9po0Ke8I9szcLwX9VaAd81EaJLQfs +HwULwSGelZA4Swe1xFuRHSeEHdpjZxcb6uADloaYzTEhNASd/lofpYOlnw4e +UG0WgtMvG7nd8TrYWJ8et6FFCI+zW60tE3XwqPkx36JnQui4KZlYmqaDTHDf +mFKHEAbmRsglF+ig+Mzxv3s+CkHl4vIFDnU6+HR+pVTvbyFsn/iW2CjNwiZJ +lSyBCQ22OwOVPsmxsCtlnnejOQ2z+zppMRUWGm66fPiDJQ3nXtW/tGezMO93 +mqncIhq67hw1umrNwrv5nRuXONLglmzTXuzLwr5QubIxHxos5JJM4y+xcBXt +OVWRToNI+mjDiWss9C8MsdqQScNjsW3e16pZONjq91r8CA3Bo6uSv91j4e6a +p9Fux2gobee8Cuok63vwvP/qGRqUTjce9BBj43B7jGh7JQ2ThvO6jD3Z+K2l +6314Jw1jhWpJ873ZyJFSmVf6moaRPyiOjS8bq7VU25520TAwbLNt2VY2Xt16 +zUy3h4buav8x7z1s/Gy7Xr2wn4YHK67LpJ5jY0RapMrATxru37576bCQjXOp +mB+fp2hoMG32yK1g48zmwrh30zTckX+fX3STjbNEa73uiTFw+dUc3tVHbMzq +OZAaOJeB/GAf6B5l4xelNZSEGgPH32zp/u8HG0v1ahSb1RnIc9uV/HWajZNb +XYSHNRnInJ/6cEJSF2P2htwVZzGw7+elNX9o6SJ9RubKEx4Dwemzdtg56GKP +rLhIgyUDdjRz5tgxXZRwSlpq6MLAKx369J+ndDGy29o19C8G4o6VF42c1sW+ +j6zYC64MXE8qK1hVrosKQrY5150Bi7VnTsjcIna6bDnsyYD+rLzsg+91seNp +cbeYLwONcTlZVp90Ue95p7aqHwOBQ9mZH/qIZQT7DTcyUPrqcMaSEV10vlJW +6+jPgM7llNTf4hx0d+lW9wliQMk3PjHKiIOcbMtromEMXG2NTaDMOXjcxj6r +j9jDOWZvqxUH7c/+c7RlBwM5VpG7LYCD8xOSjI6EMyAtFRYz4M7BaOMdmd8j +GWCSQqILvTjYU6D8tj6KAefx4CiXvzk4dO66X040A6ndWyKEmznoy7sywY1l +YObNTTsCozno6ROcarKbgbMmG8MUd3PwuZQgpJd4SalvaEMiBx2q01OK9zCQ +kLV+O/sQB0v8eX9LJjDwI8BrS1cBB0VLujOvJzHwTc7Zz6uOg70z/XIzDzLQ +vp39ZNt9sp5y8c96KQzU/vsDEpo5uDoOftUQZ8fR2oKXHJzI/hrwIZUBs26p +t5N9HLSeM2uleDoDKnYfXWWGOFidIHrlILHIsdt32KMctKljOsUyGGhxCi1a +Mc1BiSun40aIQy+1bCiUp/As7fBHRSYDXnMFjy6pUFg6Y6BcMYsB+4BE/r+a +FOoIE2ViiaVVzTUHeRRCtexC62wGRsIlD4sZUzgcFPg7i/h18/tfyhYUXhhY +deQTMZOY8xrtKAxULtM+dITks3Obi+diCovXB2m0Ee+2XHprqwOFd+9GftbJ +YWDF5+FTOSspPKlv9U1IbLGkee55Twqfc/407SdWKyiNr/amcJ2ZH+jlMtDn +5vn3h80Uyq2Obz9B/Kzc+OHEVgrVLnRtaiauEhNfJB1G4e4z8nW/iEs2dAlZ +ERTqsx6N6ecxkHb9mpp1LIVDF+7M8CDeIZt1yHkvheYrC3riiNcGB/3w2U9h +VI5aYREx3oNtu1IptD80YFJDrKet0plymMKCZ49OviaeFzvkVJBDYV9GaNcY +8cSzxpsXj1MY45cyJX2UgXdGxfr3Csj4uJZxFnHjwdiTHcUUpmb8fmRBfPGd +u+RAGYUlj5sTkfiErUGsKENhxq/v81YQJ+aJ9ipdopDxMkhYRRw00LnW8BqF +IcVGzV7ErsuvNEI1hSJU5cQaYuuS9IUetRT+ZuJn/f++1i9/wZZ7FGqk2g+v +JBb3slPZ84DCjpQbdcuJByoUUo+0UMgTKYvgE7+U/Dp+rpVC1v16SVPiO/73 +gqo6KLxi2bJPk7jsdmHb4y4Kl7EPvptNnKkc5djTQ2FEX5nuN7L/qJ2u18c/ +U1i5ZcjlJbHPQy5PaoBCiUnWhhvEf1LTx3SGSR6if3ocJzZKaBO3mqAwH/lW +u4gVOiqinKZIPk0Fv1cQf8jw8wqX4GLwtmm3EfI+Q/uM2GZSXOTxko3uE487 +Tn79Oo+Lkyto7+PEc8RykreqcVFinccFU+I8Px93njYXpUcVX4yTPGneMdD8 +qMvFZX6jbreJzWLrK/2MuTillbUMiateZiVqWXCxVj29ZorkdanlepfX1ly8 +Z6N35Aax1+BIzxrkoqTVI1su8Z4Arrzbai5ulT108z05L+L137uk1nKRFebx +M404W6dG+GA9F2uU20+YZv2/3q1Z4hDIRQ3bot5wcv4euKft5MdyMcbLfqSD +nE+PCk/+zz1czFDtpUKI30ixJW/uI3befWOKnO+h+1VnLDO4+AJ+iCoTK9l/ +aTE8zcXdsrfAII2BM6dunOo9y8WhgD/SBaRe6E8eCDov4OKt5mw7DrFdpeY0 ++zIXXy643ypP6ou/gZuJ2j0uNu29/uX5AZJHpcsZs/u5yH+0zb2d1C/biL1r +/x3k4uejxiuNieufOnMOjHDxkHd/TcJekpeMnurpKS5O3FUa1SD175eoYv/Y +PB42NEU3LYxjwGkw2umjNQ8v+TZdHdvFgIa51sHZdjyU5ec5yxIPhDfUGS7m +4Zs/Qvv1SL3OG5tnF76Ch5yl/3m4kXreNVVuMu3Lw5Iqy3cx2xkIl3otr5rG +wz15jWdhMwPLXPettMvkoXWUU6Ah6R/K2XqHfXN5aLY6ZKnCJgZuyUeKlxXy +MK7Q3f0N6Ufi6jKTFpd5OLM444XL36S/6mOXyyse7jum415C+tn24E9qO97x +0FG50thvJQPwT8aa3I88rK7+b766G8mjWceTjkEeKqX/qk0l/dJkYXh94Ew9 +NMs9PLHYkTwfh1JBorEeJqwjE9gx8MV/9q7KBD3yfXiK+02X7Ldo2e2aA3o4 +lfXu+AY2A4MdiRIP0/SwMmp0230dBr67TZ56n6uHWtKetrmkn48v6muQEejh +ULnvibnKDIgqNCttfaKHi9nO3ERJBlQbsqo0WfoozcqzT/hCg9r0w5n6XH0c +N5WrP9lHg4btbDdLQ310mVJvvPSZBq2LiT3OVvr4qfD2ms4PNHAKdkrFOOnj ++8YrAuk3NJhFrPZ5tlMfpWZxBqaaafK/oCyaUqePKdL7f8ylaejd5ChYdF8f +FxnYbPgtoCGjONp16KE+WkzLVAyU0fBcqz1/3Qt93IWbdJtKaPBTPTnf6LM+ +Zn+nAwLyaYiVUQ94Km2AFez9knZpNDATWo3q6wxQ6viVgqAAGuQecTMvDhqg +Y3fVp0/KNPweNDv3YMQAbf2rKzmKNPTJLbr1YdIAzzu6evjJ0VC31q1PZaYh +ti07JPVUioZdH6IdklQM0fevqYQTM2ho/dn4232xIQZ6b95S2yeE4wbBYcM5 +hmi94+RwfLUQNFIrVlpbG+HDh/tnvvMSwglDm3nyQcYo7+1qMSOlHB6oLbYa +PmKCQW8sl/SXCsBWoy7b9KUpxtXEJ1bnnwcZsZKIjfvMUFa9fHVoThloJWnb +reOao2xvVn9V4DmQpNZfW3XfHAcD8hrmLCgFE75qRfQGC5zf7/GvQOkshHfJ +1TuLzEelps6si6+KYXA4w9PpxHzcfKRkdOu1M+Bo+m++k7ElvrZ+slbC8jTc +GV70c/yxJQ54bHA79LIAQo0sOp8GWGGD/tbr+y7mA39gc+s6SWtsmhEpZr/j +BPzJUflLusQaM4pkTjUGHwO9xEMxdQsWoKD1ZMCnlDwwCLCpoToXYOu4j73o +sRwIuLPlQOXOhRih3sD+8DYbas60bv6maINvT5uv7/8zE0YE0+Om121wWiX8 +zm7VdPCnaMn8v2zx6pv9xsu9U+GbQa715SFbFPw8+4jOT4YbpT/fj6YuQt5/ +z1Kew37wXqaLi7TskMdNyv7ASgL1kJSbJrV2mCHXf22t4l5QnLP90l9r+Nh5 ++p5dW0YclC7dEze0jo/m/4g9adsTBxZ7MpfmruejXfF85behceA6dPFF+0Y+ +Wlduq5rhHgcHX45O+m/no8c7nu5xxTiYKElYEpfExzmS8iMiZ2Khc1Hu8zKa +j9+fhZk13IyBLZGlBU4X+BjqO/TyOB0DYxeuBny5yMfAGczEzsIYkGO3j5tf +4+M57XNlNkkxsGK2psbtWj5KxGOcklMM3Got2/z8BR+Vm9S3z+yMBmeZG8ZR +7WR8sMKAfXM0tDs2jam84mNIcsDjhDvRMFLVn+rzjo9NbY9KFM5Gg3Gx2T+9 +fXxUlHkSdGh7NNzqXByV8ZWP5Tnny8d9yHwKq8F0iI8BFU6Lgt2jITAl8mnE +KB9PZxU7BFiT+WoP5itP8PHmyYu3+vWiYd+P4/5VP/iY/cAuPkY9GuZZlhtt +mOKjik544lyZaCgKqRqdnuajy5rdD0pFouF/iJl3Nw== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -12942,115 +13929,116 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL -FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg -ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX -BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ -e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL -i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx -lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK -ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR -PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU -6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj -7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ -b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 -uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr -tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY -sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ -FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl -UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN -L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk -3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz -SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt -KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y -9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS -GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS -cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR -kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 -tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 -SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj -Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw -KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx -jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB -dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 -PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm -syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet -/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 -XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx -pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT -fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L -Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm -lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl -xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 -SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs -ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B -Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y -xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK -8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS -k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI -fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M -aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF -hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt -GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi -mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm -LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF -5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF -V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu -DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL -mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl -9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ -04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 -Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv -CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ -Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f -hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo -+ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X -hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l -Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw -qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U -eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi -4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN -ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX -B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M -5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 -cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj -66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 -VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US -FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh -kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 -2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca -+FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG -E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O -x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy -+x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 -2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak -vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo -d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC -Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd -sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj -Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr -ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== +1:eJwV13k4VdsbB3BRpHAzz8M5zj7HPIUix/s2XCKXFCq3UEIllMwqVEKE0CQU +ScfZ+6ZBExWhG6U0KEOlorqhUOZKfuv3134+z37Wetba+7ved2/WprBVAaIi +IiISM0RE/n8d62pq4KSX2uff6ymf42ht31qkEru4fR/8TDGa2BmmAKjYskml +PQdS1+Dk0jAORK0Utom1l8DVlv8GeGGWIDugnDPZdhlEAzzuzApbBm9vuYaN +tNXBRiZr8myoBzhw+t58a3sGznucI81CNsNk24KjQ23dEFAzxAsJioD6pedL +n5YMQ15KSM0OvWTQeHvz0yajKZixuuBConkWKGz3FUosFcMKo+HB5I15kGPu +UO3qORuTLwadjvc9CR0nzGq/zZNGv4qUYpPHhZBemtAiqiqLkR7VOmN6xaCc +15OWWyiP5pK9ObOtz0KKh5P9szFFVLfy+OUxVgq7bIp9m/apoFfvF+0ndBks +G/wRF9qjhnmCIk8lBQHELs8zuPtFDRVGZScWqQrgQrFxp/yYGv7eVn3FR0sA +Kh5+Njdnq6NFTmDkKT0BfLlxb1zMRB1rva1Vv9sJIHdfdsTJGHUcmh1QKB8g +gG5FbmiDtAZ+eZyTTl0RQJKd+0a1hZr4it2VEOVQDst9ir4vWKKJrqE5erii +HGQS+/d7umgiM/fZavGV5VBQn1yW7aeJB4ckzVPXlcMN56p+8TRNLBLyRDZt +L4ehtbpRwx2aOEsgXRdypBx8IkcPNcdrYVpUevKH9nKwvXCycm+NNnrsX8Nz +3CCEZW2PpwYatXFjtajjVz8huIrMdPR9po0Ke8I9szcLwX9VaAd81EaJLQfs +HwULwSGelZA4Swe1xFuRHSeEHdpjZxcb6uADloaYzTEhNASd/lofpYOlnw4e +UG0WgtMvG7nd8TrYWJ8et6FFCI+zW60tE3XwqPkx36JnQui4KZlYmqaDTHDf +mFKHEAbmRsglF+ig+Mzxv3s+CkHl4vIFDnU6+HR+pVTvbyFsn/iW2CjNwiZJ +lSyBCQ22OwOVPsmxsCtlnnejOQ2z+zppMRUWGm66fPiDJQ3nXtW/tGezMO93 +mqncIhq67hw1umrNwrv5nRuXONLglmzTXuzLwr5QubIxHxos5JJM4y+xcBXt +OVWRToNI+mjDiWss9C8MsdqQScNjsW3e16pZONjq91r8CA3Bo6uSv91j4e6a +p9Fux2gobee8Cuok63vwvP/qGRqUTjce9BBj43B7jGh7JQ2ThvO6jD3Z+K2l +6314Jw1jhWpJ873ZyJFSmVf6moaRPyiOjS8bq7VU25520TAwbLNt2VY2Xt16 +zUy3h4buav8x7z1s/Gy7Xr2wn4YHK67LpJ5jY0RapMrATxru37576bCQjXOp +mB+fp2hoMG32yK1g48zmwrh30zTckX+fX3STjbNEa73uiTFw+dUc3tVHbMzq +OZAaOJeB/GAf6B5l4xelNZSEGgPH32zp/u8HG0v1ahSb1RnIc9uV/HWajZNb +XYSHNRnInJ/6cEJSF2P2htwVZzGw7+elNX9o6SJ9RubKEx4Dwemzdtg56GKP +rLhIgyUDdjRz5tgxXZRwSlpq6MLAKx369J+ndDGy29o19C8G4o6VF42c1sW+ +j6zYC64MXE8qK1hVrosKQrY5150Bi7VnTsjcIna6bDnsyYD+rLzsg+91seNp +cbeYLwONcTlZVp90Ue95p7aqHwOBQ9mZH/qIZQT7DTcyUPrqcMaSEV10vlJW +6+jPgM7llNTf4hx0d+lW9wliQMk3PjHKiIOcbMtromEMXG2NTaDMOXjcxj6r +j9jDOWZvqxUH7c/+c7RlBwM5VpG7LYCD8xOSjI6EMyAtFRYz4M7BaOMdmd8j +GWCSQqILvTjYU6D8tj6KAefx4CiXvzk4dO66X040A6ndWyKEmznoy7sywY1l +YObNTTsCozno6ROcarKbgbMmG8MUd3PwuZQgpJd4SalvaEMiBx2q01OK9zCQ +kLV+O/sQB0v8eX9LJjDwI8BrS1cBB0VLujOvJzHwTc7Zz6uOg70z/XIzDzLQ +vp39ZNt9sp5y8c96KQzU/vsDEpo5uDoOftUQZ8fR2oKXHJzI/hrwIZUBs26p +t5N9HLSeM2uleDoDKnYfXWWGOFidIHrlILHIsdt32KMctKljOsUyGGhxCi1a +Mc1BiSun40aIQy+1bCiUp/As7fBHRSYDXnMFjy6pUFg6Y6BcMYsB+4BE/r+a +FOoIE2ViiaVVzTUHeRRCtexC62wGRsIlD4sZUzgcFPg7i/h18/tfyhYUXhhY +deQTMZOY8xrtKAxULtM+dITks3Obi+diCovXB2m0Ee+2XHprqwOFd+9GftbJ +YWDF5+FTOSspPKlv9U1IbLGkee55Twqfc/407SdWKyiNr/amcJ2ZH+jlMtDn +5vn3h80Uyq2Obz9B/Kzc+OHEVgrVLnRtaiauEhNfJB1G4e4z8nW/iEs2dAlZ +ERTqsx6N6ecxkHb9mpp1LIVDF+7M8CDeIZt1yHkvheYrC3riiNcGB/3w2U9h +VI5aYREx3oNtu1IptD80YFJDrKet0plymMKCZ49OviaeFzvkVJBDYV9GaNcY +8cSzxpsXj1MY45cyJX2UgXdGxfr3Csj4uJZxFnHjwdiTHcUUpmb8fmRBfPGd +u+RAGYUlj5sTkfiErUGsKENhxq/v81YQJ+aJ9ipdopDxMkhYRRw00LnW8BqF +IcVGzV7ErsuvNEI1hSJU5cQaYuuS9IUetRT+ZuJn/f++1i9/wZZ7FGqk2g+v +JBb3slPZ84DCjpQbdcuJByoUUo+0UMgTKYvgE7+U/Dp+rpVC1v16SVPiO/73 +gqo6KLxi2bJPk7jsdmHb4y4Kl7EPvptNnKkc5djTQ2FEX5nuN7L/qJ2u18c/ +U1i5ZcjlJbHPQy5PaoBCiUnWhhvEf1LTx3SGSR6if3ocJzZKaBO3mqAwH/lW +u4gVOiqinKZIPk0Fv1cQf8jw8wqX4GLwtmm3EfI+Q/uM2GZSXOTxko3uE487 +Tn79Oo+Lkyto7+PEc8RykreqcVFinccFU+I8Px93njYXpUcVX4yTPGneMdD8 +qMvFZX6jbreJzWLrK/2MuTillbUMiateZiVqWXCxVj29ZorkdanlepfX1ly8 +Z6N35Aax1+BIzxrkoqTVI1su8Z4Arrzbai5ulT108z05L+L137uk1nKRFebx +M404W6dG+GA9F2uU20+YZv2/3q1Z4hDIRQ3bot5wcv4euKft5MdyMcbLfqSD +nE+PCk/+zz1czFDtpUKI30ixJW/uI3befWOKnO+h+1VnLDO4+AJ+iCoTK9l/ +aTE8zcXdsrfAII2BM6dunOo9y8WhgD/SBaRe6E8eCDov4OKt5mw7DrFdpeY0 ++zIXXy643ypP6ou/gZuJ2j0uNu29/uX5AZJHpcsZs/u5yH+0zb2d1C/biL1r +/x3k4uejxiuNieufOnMOjHDxkHd/TcJekpeMnurpKS5O3FUa1SD175eoYv/Y +PB42NEU3LYxjwGkw2umjNQ8v+TZdHdvFgIa51sHZdjyU5ec5yxIPhDfUGS7m +4Zs/Qvv1SL3OG5tnF76Ch5yl/3m4kXreNVVuMu3Lw5Iqy3cx2xkIl3otr5rG +wz15jWdhMwPLXPettMvkoXWUU6Ah6R/K2XqHfXN5aLY6ZKnCJgZuyUeKlxXy +MK7Q3f0N6Ufi6jKTFpd5OLM444XL36S/6mOXyyse7jum415C+tn24E9qO97x +0FG50thvJQPwT8aa3I88rK7+b766G8mjWceTjkEeKqX/qk0l/dJkYXh94Ew9 +NMs9PLHYkTwfh1JBorEeJqwjE9gx8MV/9q7KBD3yfXiK+02X7Ldo2e2aA3o4 +lfXu+AY2A4MdiRIP0/SwMmp0230dBr67TZ56n6uHWtKetrmkn48v6muQEejh +ULnvibnKDIgqNCttfaKHi9nO3ERJBlQbsqo0WfoozcqzT/hCg9r0w5n6XH0c +N5WrP9lHg4btbDdLQ310mVJvvPSZBq2LiT3OVvr4qfD2ms4PNHAKdkrFOOnj ++8YrAuk3NJhFrPZ5tlMfpWZxBqaaafK/oCyaUqePKdL7f8ylaejd5ChYdF8f +FxnYbPgtoCGjONp16KE+WkzLVAyU0fBcqz1/3Qt93IWbdJtKaPBTPTnf6LM+ +Zn+nAwLyaYiVUQ94Km2AFez9knZpNDATWo3q6wxQ6viVgqAAGuQecTMvDhqg +Y3fVp0/KNPweNDv3YMQAbf2rKzmKNPTJLbr1YdIAzzu6evjJ0VC31q1PZaYh +ti07JPVUioZdH6IdklQM0fevqYQTM2ho/dn4232xIQZ6b95S2yeE4wbBYcM5 +hmi94+RwfLUQNFIrVlpbG+HDh/tnvvMSwglDm3nyQcYo7+1qMSOlHB6oLbYa +PmKCQW8sl/SXCsBWoy7b9KUpxtXEJ1bnnwcZsZKIjfvMUFa9fHVoThloJWnb +reOao2xvVn9V4DmQpNZfW3XfHAcD8hrmLCgFE75qRfQGC5zf7/GvQOkshHfJ +1TuLzEelps6si6+KYXA4w9PpxHzcfKRkdOu1M+Bo+m++k7ElvrZ+slbC8jTc +GV70c/yxJQ54bHA79LIAQo0sOp8GWGGD/tbr+y7mA39gc+s6SWtsmhEpZr/j +BPzJUflLusQaM4pkTjUGHwO9xEMxdQsWoKD1ZMCnlDwwCLCpoToXYOu4j73o +sRwIuLPlQOXOhRih3sD+8DYbas60bv6maINvT5uv7/8zE0YE0+Om121wWiX8 +zm7VdPCnaMn8v2zx6pv9xsu9U+GbQa715SFbFPw8+4jOT4YbpT/fj6YuQt5/ +z1Kew37wXqaLi7TskMdNyv7ASgL1kJSbJrV2mCHXf22t4l5QnLP90l9r+Nh5 ++p5dW0YclC7dEze0jo/m/4g9adsTBxZ7MpfmruejXfF85behceA6dPFF+0Y+ +Wlduq5rhHgcHX45O+m/no8c7nu5xxTiYKElYEpfExzmS8iMiZ2Khc1Hu8zKa +j9+fhZk13IyBLZGlBU4X+BjqO/TyOB0DYxeuBny5yMfAGczEzsIYkGO3j5tf +4+M57XNlNkkxsGK2psbtWj5KxGOcklMM3Got2/z8BR+Vm9S3z+yMBmeZG8ZR +7WR8sMKAfXM0tDs2jam84mNIcsDjhDvRMFLVn+rzjo9NbY9KFM5Gg3Gx2T+9 +fXxUlHkSdGh7NNzqXByV8ZWP5Tnny8d9yHwKq8F0iI8BFU6Lgt2jITAl8mnE +KB9PZxU7BFiT+WoP5itP8PHmyYu3+vWiYd+P4/5VP/iY/cAuPkY9GuZZlhtt +mOKjik544lyZaCgKqRqdnuajy5rdD0pFouF/iJl3Nw== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "PlotRange" -> {{0, 30}, {0., 0.05582690154012404}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -13062,19 +14050,19 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "PlotRange" -> {{0, 30}, {0., 0.05582690154012404}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13088,114 +14076,115 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL -FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg -ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX -BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ -e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL -i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx -lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK -ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR -PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU -6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj -7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ -b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 -uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr -tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY -sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ -FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl -UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN -L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk -3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz -SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt -KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y -9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS -GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS -cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR -kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 -tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 -SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj -Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw -KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx -jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB -dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 -PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm -syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet -/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 -XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx -pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT -fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L -Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm -lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl -xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 -SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs -ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B -Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y -xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK -8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS -k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI -fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M -aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF -hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt -GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi -mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm -LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF -5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF -V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu -DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL -mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl -9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ -04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 -Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv -CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ -Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f -hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo -+ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X -hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l -Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw -qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U -eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi -4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN -ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX -B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M -5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 -cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj -66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 -VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US -FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh -kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 -2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca -+FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG -E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O -x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy -+x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 -2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak -vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo -d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC -Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd -sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj -Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr -ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== +1:eJwV13k4VdsbB3BRpHAzz8M5zj7HPIUix/s2XCKXFCq3UEIllMwqVEKE0CQU +ScfZ+6ZBExWhG6U0KEOlorqhUOZKfuv3134+z37Wetba+7ved2/WprBVAaIi +IiISM0RE/n8d62pq4KSX2uff6ymf42ht31qkEru4fR/8TDGa2BmmAKjYskml +PQdS1+Dk0jAORK0Utom1l8DVlv8GeGGWIDugnDPZdhlEAzzuzApbBm9vuYaN +tNXBRiZr8myoBzhw+t58a3sGznucI81CNsNk24KjQ23dEFAzxAsJioD6pedL +n5YMQ15KSM0OvWTQeHvz0yajKZixuuBConkWKGz3FUosFcMKo+HB5I15kGPu +UO3qORuTLwadjvc9CR0nzGq/zZNGv4qUYpPHhZBemtAiqiqLkR7VOmN6xaCc +15OWWyiP5pK9ObOtz0KKh5P9szFFVLfy+OUxVgq7bIp9m/apoFfvF+0ndBks +G/wRF9qjhnmCIk8lBQHELs8zuPtFDRVGZScWqQrgQrFxp/yYGv7eVn3FR0sA +Kh5+Njdnq6NFTmDkKT0BfLlxb1zMRB1rva1Vv9sJIHdfdsTJGHUcmh1QKB8g +gG5FbmiDtAZ+eZyTTl0RQJKd+0a1hZr4it2VEOVQDst9ir4vWKKJrqE5erii +HGQS+/d7umgiM/fZavGV5VBQn1yW7aeJB4ckzVPXlcMN56p+8TRNLBLyRDZt +L4ehtbpRwx2aOEsgXRdypBx8IkcPNcdrYVpUevKH9nKwvXCycm+NNnrsX8Nz +3CCEZW2PpwYatXFjtajjVz8huIrMdPR9po0Ke8I9szcLwX9VaAd81EaJLQfs +HwULwSGelZA4Swe1xFuRHSeEHdpjZxcb6uADloaYzTEhNASd/lofpYOlnw4e +UG0WgtMvG7nd8TrYWJ8et6FFCI+zW60tE3XwqPkx36JnQui4KZlYmqaDTHDf +mFKHEAbmRsglF+ig+Mzxv3s+CkHl4vIFDnU6+HR+pVTvbyFsn/iW2CjNwiZJ +lSyBCQ22OwOVPsmxsCtlnnejOQ2z+zppMRUWGm66fPiDJQ3nXtW/tGezMO93 +mqncIhq67hw1umrNwrv5nRuXONLglmzTXuzLwr5QubIxHxos5JJM4y+xcBXt +OVWRToNI+mjDiWss9C8MsdqQScNjsW3e16pZONjq91r8CA3Bo6uSv91j4e6a +p9Fux2gobee8Cuok63vwvP/qGRqUTjce9BBj43B7jGh7JQ2ThvO6jD3Z+K2l +6314Jw1jhWpJ873ZyJFSmVf6moaRPyiOjS8bq7VU25520TAwbLNt2VY2Xt16 +zUy3h4buav8x7z1s/Gy7Xr2wn4YHK67LpJ5jY0RapMrATxru37576bCQjXOp +mB+fp2hoMG32yK1g48zmwrh30zTckX+fX3STjbNEa73uiTFw+dUc3tVHbMzq +OZAaOJeB/GAf6B5l4xelNZSEGgPH32zp/u8HG0v1ahSb1RnIc9uV/HWajZNb +XYSHNRnInJ/6cEJSF2P2htwVZzGw7+elNX9o6SJ9RubKEx4Dwemzdtg56GKP +rLhIgyUDdjRz5tgxXZRwSlpq6MLAKx369J+ndDGy29o19C8G4o6VF42c1sW+ +j6zYC64MXE8qK1hVrosKQrY5150Bi7VnTsjcIna6bDnsyYD+rLzsg+91seNp +cbeYLwONcTlZVp90Ue95p7aqHwOBQ9mZH/qIZQT7DTcyUPrqcMaSEV10vlJW +6+jPgM7llNTf4hx0d+lW9wliQMk3PjHKiIOcbMtromEMXG2NTaDMOXjcxj6r +j9jDOWZvqxUH7c/+c7RlBwM5VpG7LYCD8xOSjI6EMyAtFRYz4M7BaOMdmd8j +GWCSQqILvTjYU6D8tj6KAefx4CiXvzk4dO66X040A6ndWyKEmznoy7sywY1l +YObNTTsCozno6ROcarKbgbMmG8MUd3PwuZQgpJd4SalvaEMiBx2q01OK9zCQ +kLV+O/sQB0v8eX9LJjDwI8BrS1cBB0VLujOvJzHwTc7Zz6uOg70z/XIzDzLQ +vp39ZNt9sp5y8c96KQzU/vsDEpo5uDoOftUQZ8fR2oKXHJzI/hrwIZUBs26p +t5N9HLSeM2uleDoDKnYfXWWGOFidIHrlILHIsdt32KMctKljOsUyGGhxCi1a +Mc1BiSun40aIQy+1bCiUp/As7fBHRSYDXnMFjy6pUFg6Y6BcMYsB+4BE/r+a +FOoIE2ViiaVVzTUHeRRCtexC62wGRsIlD4sZUzgcFPg7i/h18/tfyhYUXhhY +deQTMZOY8xrtKAxULtM+dITks3Obi+diCovXB2m0Ee+2XHprqwOFd+9GftbJ +YWDF5+FTOSspPKlv9U1IbLGkee55Twqfc/407SdWKyiNr/amcJ2ZH+jlMtDn +5vn3h80Uyq2Obz9B/Kzc+OHEVgrVLnRtaiauEhNfJB1G4e4z8nW/iEs2dAlZ +ERTqsx6N6ecxkHb9mpp1LIVDF+7M8CDeIZt1yHkvheYrC3riiNcGB/3w2U9h +VI5aYREx3oNtu1IptD80YFJDrKet0plymMKCZ49OviaeFzvkVJBDYV9GaNcY +8cSzxpsXj1MY45cyJX2UgXdGxfr3Csj4uJZxFnHjwdiTHcUUpmb8fmRBfPGd +u+RAGYUlj5sTkfiErUGsKENhxq/v81YQJ+aJ9ipdopDxMkhYRRw00LnW8BqF +IcVGzV7ErsuvNEI1hSJU5cQaYuuS9IUetRT+ZuJn/f++1i9/wZZ7FGqk2g+v +JBb3slPZ84DCjpQbdcuJByoUUo+0UMgTKYvgE7+U/Dp+rpVC1v16SVPiO/73 +gqo6KLxi2bJPk7jsdmHb4y4Kl7EPvptNnKkc5djTQ2FEX5nuN7L/qJ2u18c/ +U1i5ZcjlJbHPQy5PaoBCiUnWhhvEf1LTx3SGSR6if3ocJzZKaBO3mqAwH/lW +u4gVOiqinKZIPk0Fv1cQf8jw8wqX4GLwtmm3EfI+Q/uM2GZSXOTxko3uE487 +Tn79Oo+Lkyto7+PEc8RykreqcVFinccFU+I8Px93njYXpUcVX4yTPGneMdD8 +qMvFZX6jbreJzWLrK/2MuTillbUMiateZiVqWXCxVj29ZorkdanlepfX1ly8 +Z6N35Aax1+BIzxrkoqTVI1su8Z4Arrzbai5ulT108z05L+L137uk1nKRFebx +M404W6dG+GA9F2uU20+YZv2/3q1Z4hDIRQ3bot5wcv4euKft5MdyMcbLfqSD +nE+PCk/+zz1czFDtpUKI30ixJW/uI3befWOKnO+h+1VnLDO4+AJ+iCoTK9l/ +aTE8zcXdsrfAII2BM6dunOo9y8WhgD/SBaRe6E8eCDov4OKt5mw7DrFdpeY0 ++zIXXy643ypP6ou/gZuJ2j0uNu29/uX5AZJHpcsZs/u5yH+0zb2d1C/biL1r +/x3k4uejxiuNieufOnMOjHDxkHd/TcJekpeMnurpKS5O3FUa1SD175eoYv/Y +PB42NEU3LYxjwGkw2umjNQ8v+TZdHdvFgIa51sHZdjyU5ec5yxIPhDfUGS7m +4Zs/Qvv1SL3OG5tnF76Ch5yl/3m4kXreNVVuMu3Lw5Iqy3cx2xkIl3otr5rG +wz15jWdhMwPLXPettMvkoXWUU6Ah6R/K2XqHfXN5aLY6ZKnCJgZuyUeKlxXy +MK7Q3f0N6Ufi6jKTFpd5OLM444XL36S/6mOXyyse7jum415C+tn24E9qO97x +0FG50thvJQPwT8aa3I88rK7+b766G8mjWceTjkEeKqX/qk0l/dJkYXh94Ew9 +NMs9PLHYkTwfh1JBorEeJqwjE9gx8MV/9q7KBD3yfXiK+02X7Ldo2e2aA3o4 +lfXu+AY2A4MdiRIP0/SwMmp0230dBr67TZ56n6uHWtKetrmkn48v6muQEejh +ULnvibnKDIgqNCttfaKHi9nO3ERJBlQbsqo0WfoozcqzT/hCg9r0w5n6XH0c +N5WrP9lHg4btbDdLQ310mVJvvPSZBq2LiT3OVvr4qfD2ms4PNHAKdkrFOOnj ++8YrAuk3NJhFrPZ5tlMfpWZxBqaaafK/oCyaUqePKdL7f8ylaejd5ChYdF8f +FxnYbPgtoCGjONp16KE+WkzLVAyU0fBcqz1/3Qt93IWbdJtKaPBTPTnf6LM+ +Zn+nAwLyaYiVUQ94Km2AFez9knZpNDATWo3q6wxQ6viVgqAAGuQecTMvDhqg +Y3fVp0/KNPweNDv3YMQAbf2rKzmKNPTJLbr1YdIAzzu6evjJ0VC31q1PZaYh +ti07JPVUioZdH6IdklQM0fevqYQTM2ho/dn4232xIQZ6b95S2yeE4wbBYcM5 +hmi94+RwfLUQNFIrVlpbG+HDh/tnvvMSwglDm3nyQcYo7+1qMSOlHB6oLbYa +PmKCQW8sl/SXCsBWoy7b9KUpxtXEJ1bnnwcZsZKIjfvMUFa9fHVoThloJWnb +reOao2xvVn9V4DmQpNZfW3XfHAcD8hrmLCgFE75qRfQGC5zf7/GvQOkshHfJ +1TuLzEelps6si6+KYXA4w9PpxHzcfKRkdOu1M+Bo+m++k7ElvrZ+slbC8jTc +GV70c/yxJQ54bHA79LIAQo0sOp8GWGGD/tbr+y7mA39gc+s6SWtsmhEpZr/j +BPzJUflLusQaM4pkTjUGHwO9xEMxdQsWoKD1ZMCnlDwwCLCpoToXYOu4j73o +sRwIuLPlQOXOhRih3sD+8DYbas60bv6maINvT5uv7/8zE0YE0+Om121wWiX8 +zm7VdPCnaMn8v2zx6pv9xsu9U+GbQa715SFbFPw8+4jOT4YbpT/fj6YuQt5/ +z1Kew37wXqaLi7TskMdNyv7ASgL1kJSbJrV2mCHXf22t4l5QnLP90l9r+Nh5 ++p5dW0YclC7dEze0jo/m/4g9adsTBxZ7MpfmruejXfF85behceA6dPFF+0Y+ +Wlduq5rhHgcHX45O+m/no8c7nu5xxTiYKElYEpfExzmS8iMiZ2Khc1Hu8zKa +j9+fhZk13IyBLZGlBU4X+BjqO/TyOB0DYxeuBny5yMfAGczEzsIYkGO3j5tf +4+M57XNlNkkxsGK2psbtWj5KxGOcklMM3Got2/z8BR+Vm9S3z+yMBmeZG8ZR +7WR8sMKAfXM0tDs2jam84mNIcsDjhDvRMFLVn+rzjo9NbY9KFM5Gg3Gx2T+9 +fXxUlHkSdGh7NNzqXByV8ZWP5Tnny8d9yHwKq8F0iI8BFU6Lgt2jITAl8mnE +KB9PZxU7BFiT+WoP5itP8PHmyYu3+vWiYd+P4/5VP/iY/cAuPkY9GuZZlhtt +mOKjik544lyZaCgKqRqdnuajy5rdD0pFouF/iJl3Nw== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "PlotRange" -> {{0, 30}, {0., 0.05582690154012404}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13206,6 +14195,7 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -13233,7 +14223,8 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.12141098789525176`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.05582690154012404}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -13241,17 +14232,568 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913429049348164`*^9}, + CellChangeTimes->{3.9913429049348164`*^9, 3.994260031456767*^9}, CellLabel-> - "Out[387]=",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] + "Out[140]=",ExpressionUUID->"12090015-49f4-4de6-a3fa-af5ec92e7b27"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"b530b35f-2a32-0145-82a7-\ -25a7a01bdd8f"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VdsbB3BRpHAzz8M5zj7HPIUix/s2XCKXFCq3UEIllMwqVEKE0CQU +ScfZ+6ZBExWhG6U0KEOlorqhUOZKfuv3134+z37Wetba+7ved2/WprBVAaIi +IiISM0RE/n8d62pq4KSX2uff6ymf42ht31qkEru4fR/8TDGa2BmmAKjYskml +PQdS1+Dk0jAORK0Utom1l8DVlv8GeGGWIDugnDPZdhlEAzzuzApbBm9vuYaN +tNXBRiZr8myoBzhw+t58a3sGznucI81CNsNk24KjQ23dEFAzxAsJioD6pedL +n5YMQ15KSM0OvWTQeHvz0yajKZixuuBConkWKGz3FUosFcMKo+HB5I15kGPu +UO3qORuTLwadjvc9CR0nzGq/zZNGv4qUYpPHhZBemtAiqiqLkR7VOmN6xaCc +15OWWyiP5pK9ObOtz0KKh5P9szFFVLfy+OUxVgq7bIp9m/apoFfvF+0ndBks +G/wRF9qjhnmCIk8lBQHELs8zuPtFDRVGZScWqQrgQrFxp/yYGv7eVn3FR0sA +Kh5+Njdnq6NFTmDkKT0BfLlxb1zMRB1rva1Vv9sJIHdfdsTJGHUcmh1QKB8g +gG5FbmiDtAZ+eZyTTl0RQJKd+0a1hZr4it2VEOVQDst9ir4vWKKJrqE5erii +HGQS+/d7umgiM/fZavGV5VBQn1yW7aeJB4ckzVPXlcMN56p+8TRNLBLyRDZt +L4ehtbpRwx2aOEsgXRdypBx8IkcPNcdrYVpUevKH9nKwvXCycm+NNnrsX8Nz +3CCEZW2PpwYatXFjtajjVz8huIrMdPR9po0Ke8I9szcLwX9VaAd81EaJLQfs +HwULwSGelZA4Swe1xFuRHSeEHdpjZxcb6uADloaYzTEhNASd/lofpYOlnw4e +UG0WgtMvG7nd8TrYWJ8et6FFCI+zW60tE3XwqPkx36JnQui4KZlYmqaDTHDf +mFKHEAbmRsglF+ig+Mzxv3s+CkHl4vIFDnU6+HR+pVTvbyFsn/iW2CjNwiZJ +lSyBCQ22OwOVPsmxsCtlnnejOQ2z+zppMRUWGm66fPiDJQ3nXtW/tGezMO93 +mqncIhq67hw1umrNwrv5nRuXONLglmzTXuzLwr5QubIxHxos5JJM4y+xcBXt +OVWRToNI+mjDiWss9C8MsdqQScNjsW3e16pZONjq91r8CA3Bo6uSv91j4e6a +p9Fux2gobee8Cuok63vwvP/qGRqUTjce9BBj43B7jGh7JQ2ThvO6jD3Z+K2l +6314Jw1jhWpJ873ZyJFSmVf6moaRPyiOjS8bq7VU25520TAwbLNt2VY2Xt16 +zUy3h4buav8x7z1s/Gy7Xr2wn4YHK67LpJ5jY0RapMrATxru37576bCQjXOp +mB+fp2hoMG32yK1g48zmwrh30zTckX+fX3STjbNEa73uiTFw+dUc3tVHbMzq +OZAaOJeB/GAf6B5l4xelNZSEGgPH32zp/u8HG0v1ahSb1RnIc9uV/HWajZNb +XYSHNRnInJ/6cEJSF2P2htwVZzGw7+elNX9o6SJ9RubKEx4Dwemzdtg56GKP +rLhIgyUDdjRz5tgxXZRwSlpq6MLAKx369J+ndDGy29o19C8G4o6VF42c1sW+ +j6zYC64MXE8qK1hVrosKQrY5150Bi7VnTsjcIna6bDnsyYD+rLzsg+91seNp +cbeYLwONcTlZVp90Ue95p7aqHwOBQ9mZH/qIZQT7DTcyUPrqcMaSEV10vlJW +6+jPgM7llNTf4hx0d+lW9wliQMk3PjHKiIOcbMtromEMXG2NTaDMOXjcxj6r +j9jDOWZvqxUH7c/+c7RlBwM5VpG7LYCD8xOSjI6EMyAtFRYz4M7BaOMdmd8j +GWCSQqILvTjYU6D8tj6KAefx4CiXvzk4dO66X040A6ndWyKEmznoy7sywY1l +YObNTTsCozno6ROcarKbgbMmG8MUd3PwuZQgpJd4SalvaEMiBx2q01OK9zCQ +kLV+O/sQB0v8eX9LJjDwI8BrS1cBB0VLujOvJzHwTc7Zz6uOg70z/XIzDzLQ +vp39ZNt9sp5y8c96KQzU/vsDEpo5uDoOftUQZ8fR2oKXHJzI/hrwIZUBs26p +t5N9HLSeM2uleDoDKnYfXWWGOFidIHrlILHIsdt32KMctKljOsUyGGhxCi1a +Mc1BiSun40aIQy+1bCiUp/As7fBHRSYDXnMFjy6pUFg6Y6BcMYsB+4BE/r+a +FOoIE2ViiaVVzTUHeRRCtexC62wGRsIlD4sZUzgcFPg7i/h18/tfyhYUXhhY +deQTMZOY8xrtKAxULtM+dITks3Obi+diCovXB2m0Ee+2XHprqwOFd+9GftbJ +YWDF5+FTOSspPKlv9U1IbLGkee55Twqfc/407SdWKyiNr/amcJ2ZH+jlMtDn +5vn3h80Uyq2Obz9B/Kzc+OHEVgrVLnRtaiauEhNfJB1G4e4z8nW/iEs2dAlZ +ERTqsx6N6ecxkHb9mpp1LIVDF+7M8CDeIZt1yHkvheYrC3riiNcGB/3w2U9h +VI5aYREx3oNtu1IptD80YFJDrKet0plymMKCZ49OviaeFzvkVJBDYV9GaNcY +8cSzxpsXj1MY45cyJX2UgXdGxfr3Csj4uJZxFnHjwdiTHcUUpmb8fmRBfPGd +u+RAGYUlj5sTkfiErUGsKENhxq/v81YQJ+aJ9ipdopDxMkhYRRw00LnW8BqF +IcVGzV7ErsuvNEI1hSJU5cQaYuuS9IUetRT+ZuJn/f++1i9/wZZ7FGqk2g+v +JBb3slPZ84DCjpQbdcuJByoUUo+0UMgTKYvgE7+U/Dp+rpVC1v16SVPiO/73 +gqo6KLxi2bJPk7jsdmHb4y4Kl7EPvptNnKkc5djTQ2FEX5nuN7L/qJ2u18c/ +U1i5ZcjlJbHPQy5PaoBCiUnWhhvEf1LTx3SGSR6if3ocJzZKaBO3mqAwH/lW +u4gVOiqinKZIPk0Fv1cQf8jw8wqX4GLwtmm3EfI+Q/uM2GZSXOTxko3uE487 +Tn79Oo+Lkyto7+PEc8RykreqcVFinccFU+I8Px93njYXpUcVX4yTPGneMdD8 +qMvFZX6jbreJzWLrK/2MuTillbUMiateZiVqWXCxVj29ZorkdanlepfX1ly8 +Z6N35Aax1+BIzxrkoqTVI1su8Z4Arrzbai5ulT108z05L+L137uk1nKRFebx +M404W6dG+GA9F2uU20+YZv2/3q1Z4hDIRQ3bot5wcv4euKft5MdyMcbLfqSD +nE+PCk/+zz1czFDtpUKI30ixJW/uI3befWOKnO+h+1VnLDO4+AJ+iCoTK9l/ +aTE8zcXdsrfAII2BM6dunOo9y8WhgD/SBaRe6E8eCDov4OKt5mw7DrFdpeY0 ++zIXXy643ypP6ou/gZuJ2j0uNu29/uX5AZJHpcsZs/u5yH+0zb2d1C/biL1r +/x3k4uejxiuNieufOnMOjHDxkHd/TcJekpeMnurpKS5O3FUa1SD175eoYv/Y +PB42NEU3LYxjwGkw2umjNQ8v+TZdHdvFgIa51sHZdjyU5ec5yxIPhDfUGS7m +4Zs/Qvv1SL3OG5tnF76Ch5yl/3m4kXreNVVuMu3Lw5Iqy3cx2xkIl3otr5rG +wz15jWdhMwPLXPettMvkoXWUU6Ah6R/K2XqHfXN5aLY6ZKnCJgZuyUeKlxXy +MK7Q3f0N6Ufi6jKTFpd5OLM444XL36S/6mOXyyse7jum415C+tn24E9qO97x +0FG50thvJQPwT8aa3I88rK7+b766G8mjWceTjkEeKqX/qk0l/dJkYXh94Ew9 +NMs9PLHYkTwfh1JBorEeJqwjE9gx8MV/9q7KBD3yfXiK+02X7Ldo2e2aA3o4 +lfXu+AY2A4MdiRIP0/SwMmp0230dBr67TZ56n6uHWtKetrmkn48v6muQEejh +ULnvibnKDIgqNCttfaKHi9nO3ERJBlQbsqo0WfoozcqzT/hCg9r0w5n6XH0c +N5WrP9lHg4btbDdLQ310mVJvvPSZBq2LiT3OVvr4qfD2ms4PNHAKdkrFOOnj ++8YrAuk3NJhFrPZ5tlMfpWZxBqaaafK/oCyaUqePKdL7f8ylaejd5ChYdF8f +FxnYbPgtoCGjONp16KE+WkzLVAyU0fBcqz1/3Qt93IWbdJtKaPBTPTnf6LM+ +Zn+nAwLyaYiVUQ94Km2AFez9knZpNDATWo3q6wxQ6viVgqAAGuQecTMvDhqg +Y3fVp0/KNPweNDv3YMQAbf2rKzmKNPTJLbr1YdIAzzu6evjJ0VC31q1PZaYh +ti07JPVUioZdH6IdklQM0fevqYQTM2ho/dn4232xIQZ6b95S2yeE4wbBYcM5 +hmi94+RwfLUQNFIrVlpbG+HDh/tnvvMSwglDm3nyQcYo7+1qMSOlHB6oLbYa +PmKCQW8sl/SXCsBWoy7b9KUpxtXEJ1bnnwcZsZKIjfvMUFa9fHVoThloJWnb +reOao2xvVn9V4DmQpNZfW3XfHAcD8hrmLCgFE75qRfQGC5zf7/GvQOkshHfJ +1TuLzEelps6si6+KYXA4w9PpxHzcfKRkdOu1M+Bo+m++k7ElvrZ+slbC8jTc +GV70c/yxJQ54bHA79LIAQo0sOp8GWGGD/tbr+y7mA39gc+s6SWtsmhEpZr/j +BPzJUflLusQaM4pkTjUGHwO9xEMxdQsWoKD1ZMCnlDwwCLCpoToXYOu4j73o +sRwIuLPlQOXOhRih3sD+8DYbas60bv6maINvT5uv7/8zE0YE0+Om121wWiX8 +zm7VdPCnaMn8v2zx6pv9xsu9U+GbQa715SFbFPw8+4jOT4YbpT/fj6YuQt5/ +z1Kew37wXqaLi7TskMdNyv7ASgL1kJSbJrV2mCHXf22t4l5QnLP90l9r+Nh5 ++p5dW0YclC7dEze0jo/m/4g9adsTBxZ7MpfmruejXfF85behceA6dPFF+0Y+ +Wlduq5rhHgcHX45O+m/no8c7nu5xxTiYKElYEpfExzmS8iMiZ2Khc1Hu8zKa +j9+fhZk13IyBLZGlBU4X+BjqO/TyOB0DYxeuBny5yMfAGczEzsIYkGO3j5tf +4+M57XNlNkkxsGK2psbtWj5KxGOcklMM3Got2/z8BR+Vm9S3z+yMBmeZG8ZR +7WR8sMKAfXM0tDs2jam84mNIcsDjhDvRMFLVn+rzjo9NbY9KFM5Gg3Gx2T+9 +fXxUlHkSdGh7NNzqXByV8ZWP5Tnny8d9yHwKq8F0iI8BFU6Lgt2jITAl8mnE +KB9PZxU7BFiT+WoP5itP8PHmyYu3+vWiYd+P4/5VP/iY/cAuPkY9GuZZlhtt +mOKjik544lyZaCgKqRqdnuajy5rdD0pFouF/iJl3Nw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VdsbB3BRpHAzz8M5zj7HPIUix/s2XCKXFCq3UEIllMwqVEKE0CQU +ScfZ+6ZBExWhG6U0KEOlorqhUOZKfuv3134+z37Wetba+7ved2/WprBVAaIi +IiISM0RE/n8d62pq4KSX2uff6ymf42ht31qkEru4fR/8TDGa2BmmAKjYskml +PQdS1+Dk0jAORK0Utom1l8DVlv8GeGGWIDugnDPZdhlEAzzuzApbBm9vuYaN +tNXBRiZr8myoBzhw+t58a3sGznucI81CNsNk24KjQ23dEFAzxAsJioD6pedL +n5YMQ15KSM0OvWTQeHvz0yajKZixuuBConkWKGz3FUosFcMKo+HB5I15kGPu +UO3qORuTLwadjvc9CR0nzGq/zZNGv4qUYpPHhZBemtAiqiqLkR7VOmN6xaCc +15OWWyiP5pK9ObOtz0KKh5P9szFFVLfy+OUxVgq7bIp9m/apoFfvF+0ndBks +G/wRF9qjhnmCIk8lBQHELs8zuPtFDRVGZScWqQrgQrFxp/yYGv7eVn3FR0sA +Kh5+Njdnq6NFTmDkKT0BfLlxb1zMRB1rva1Vv9sJIHdfdsTJGHUcmh1QKB8g +gG5FbmiDtAZ+eZyTTl0RQJKd+0a1hZr4it2VEOVQDst9ir4vWKKJrqE5erii +HGQS+/d7umgiM/fZavGV5VBQn1yW7aeJB4ckzVPXlcMN56p+8TRNLBLyRDZt +L4ehtbpRwx2aOEsgXRdypBx8IkcPNcdrYVpUevKH9nKwvXCycm+NNnrsX8Nz +3CCEZW2PpwYatXFjtajjVz8huIrMdPR9po0Ke8I9szcLwX9VaAd81EaJLQfs +HwULwSGelZA4Swe1xFuRHSeEHdpjZxcb6uADloaYzTEhNASd/lofpYOlnw4e +UG0WgtMvG7nd8TrYWJ8et6FFCI+zW60tE3XwqPkx36JnQui4KZlYmqaDTHDf +mFKHEAbmRsglF+ig+Mzxv3s+CkHl4vIFDnU6+HR+pVTvbyFsn/iW2CjNwiZJ +lSyBCQ22OwOVPsmxsCtlnnejOQ2z+zppMRUWGm66fPiDJQ3nXtW/tGezMO93 +mqncIhq67hw1umrNwrv5nRuXONLglmzTXuzLwr5QubIxHxos5JJM4y+xcBXt +OVWRToNI+mjDiWss9C8MsdqQScNjsW3e16pZONjq91r8CA3Bo6uSv91j4e6a +p9Fux2gobee8Cuok63vwvP/qGRqUTjce9BBj43B7jGh7JQ2ThvO6jD3Z+K2l +6314Jw1jhWpJ873ZyJFSmVf6moaRPyiOjS8bq7VU25520TAwbLNt2VY2Xt16 +zUy3h4buav8x7z1s/Gy7Xr2wn4YHK67LpJ5jY0RapMrATxru37576bCQjXOp +mB+fp2hoMG32yK1g48zmwrh30zTckX+fX3STjbNEa73uiTFw+dUc3tVHbMzq +OZAaOJeB/GAf6B5l4xelNZSEGgPH32zp/u8HG0v1ahSb1RnIc9uV/HWajZNb +XYSHNRnInJ/6cEJSF2P2htwVZzGw7+elNX9o6SJ9RubKEx4Dwemzdtg56GKP +rLhIgyUDdjRz5tgxXZRwSlpq6MLAKx369J+ndDGy29o19C8G4o6VF42c1sW+ +j6zYC64MXE8qK1hVrosKQrY5150Bi7VnTsjcIna6bDnsyYD+rLzsg+91seNp +cbeYLwONcTlZVp90Ue95p7aqHwOBQ9mZH/qIZQT7DTcyUPrqcMaSEV10vlJW +6+jPgM7llNTf4hx0d+lW9wliQMk3PjHKiIOcbMtromEMXG2NTaDMOXjcxj6r +j9jDOWZvqxUH7c/+c7RlBwM5VpG7LYCD8xOSjI6EMyAtFRYz4M7BaOMdmd8j +GWCSQqILvTjYU6D8tj6KAefx4CiXvzk4dO66X040A6ndWyKEmznoy7sywY1l +YObNTTsCozno6ROcarKbgbMmG8MUd3PwuZQgpJd4SalvaEMiBx2q01OK9zCQ +kLV+O/sQB0v8eX9LJjDwI8BrS1cBB0VLujOvJzHwTc7Zz6uOg70z/XIzDzLQ +vp39ZNt9sp5y8c96KQzU/vsDEpo5uDoOftUQZ8fR2oKXHJzI/hrwIZUBs26p +t5N9HLSeM2uleDoDKnYfXWWGOFidIHrlILHIsdt32KMctKljOsUyGGhxCi1a +Mc1BiSun40aIQy+1bCiUp/As7fBHRSYDXnMFjy6pUFg6Y6BcMYsB+4BE/r+a +FOoIE2ViiaVVzTUHeRRCtexC62wGRsIlD4sZUzgcFPg7i/h18/tfyhYUXhhY +deQTMZOY8xrtKAxULtM+dITks3Obi+diCovXB2m0Ee+2XHprqwOFd+9GftbJ +YWDF5+FTOSspPKlv9U1IbLGkee55Twqfc/407SdWKyiNr/amcJ2ZH+jlMtDn +5vn3h80Uyq2Obz9B/Kzc+OHEVgrVLnRtaiauEhNfJB1G4e4z8nW/iEs2dAlZ +ERTqsx6N6ecxkHb9mpp1LIVDF+7M8CDeIZt1yHkvheYrC3riiNcGB/3w2U9h +VI5aYREx3oNtu1IptD80YFJDrKet0plymMKCZ49OviaeFzvkVJBDYV9GaNcY +8cSzxpsXj1MY45cyJX2UgXdGxfr3Csj4uJZxFnHjwdiTHcUUpmb8fmRBfPGd +u+RAGYUlj5sTkfiErUGsKENhxq/v81YQJ+aJ9ipdopDxMkhYRRw00LnW8BqF +IcVGzV7ErsuvNEI1hSJU5cQaYuuS9IUetRT+ZuJn/f++1i9/wZZ7FGqk2g+v +JBb3slPZ84DCjpQbdcuJByoUUo+0UMgTKYvgE7+U/Dp+rpVC1v16SVPiO/73 +gqo6KLxi2bJPk7jsdmHb4y4Kl7EPvptNnKkc5djTQ2FEX5nuN7L/qJ2u18c/ +U1i5ZcjlJbHPQy5PaoBCiUnWhhvEf1LTx3SGSR6if3ocJzZKaBO3mqAwH/lW +u4gVOiqinKZIPk0Fv1cQf8jw8wqX4GLwtmm3EfI+Q/uM2GZSXOTxko3uE487 +Tn79Oo+Lkyto7+PEc8RykreqcVFinccFU+I8Px93njYXpUcVX4yTPGneMdD8 +qMvFZX6jbreJzWLrK/2MuTillbUMiateZiVqWXCxVj29ZorkdanlepfX1ly8 +Z6N35Aax1+BIzxrkoqTVI1su8Z4Arrzbai5ulT108z05L+L137uk1nKRFebx +M404W6dG+GA9F2uU20+YZv2/3q1Z4hDIRQ3bot5wcv4euKft5MdyMcbLfqSD +nE+PCk/+zz1czFDtpUKI30ixJW/uI3befWOKnO+h+1VnLDO4+AJ+iCoTK9l/ +aTE8zcXdsrfAII2BM6dunOo9y8WhgD/SBaRe6E8eCDov4OKt5mw7DrFdpeY0 ++zIXXy643ypP6ou/gZuJ2j0uNu29/uX5AZJHpcsZs/u5yH+0zb2d1C/biL1r +/x3k4uejxiuNieufOnMOjHDxkHd/TcJekpeMnurpKS5O3FUa1SD175eoYv/Y +PB42NEU3LYxjwGkw2umjNQ8v+TZdHdvFgIa51sHZdjyU5ec5yxIPhDfUGS7m +4Zs/Qvv1SL3OG5tnF76Ch5yl/3m4kXreNVVuMu3Lw5Iqy3cx2xkIl3otr5rG +wz15jWdhMwPLXPettMvkoXWUU6Ah6R/K2XqHfXN5aLY6ZKnCJgZuyUeKlxXy +MK7Q3f0N6Ufi6jKTFpd5OLM444XL36S/6mOXyyse7jum415C+tn24E9qO97x +0FG50thvJQPwT8aa3I88rK7+b766G8mjWceTjkEeKqX/qk0l/dJkYXh94Ew9 +NMs9PLHYkTwfh1JBorEeJqwjE9gx8MV/9q7KBD3yfXiK+02X7Ldo2e2aA3o4 +lfXu+AY2A4MdiRIP0/SwMmp0230dBr67TZ56n6uHWtKetrmkn48v6muQEejh +ULnvibnKDIgqNCttfaKHi9nO3ERJBlQbsqo0WfoozcqzT/hCg9r0w5n6XH0c +N5WrP9lHg4btbDdLQ310mVJvvPSZBq2LiT3OVvr4qfD2ms4PNHAKdkrFOOnj ++8YrAuk3NJhFrPZ5tlMfpWZxBqaaafK/oCyaUqePKdL7f8ylaejd5ChYdF8f +FxnYbPgtoCGjONp16KE+WkzLVAyU0fBcqz1/3Qt93IWbdJtKaPBTPTnf6LM+ +Zn+nAwLyaYiVUQ94Km2AFez9knZpNDATWo3q6wxQ6viVgqAAGuQecTMvDhqg +Y3fVp0/KNPweNDv3YMQAbf2rKzmKNPTJLbr1YdIAzzu6evjJ0VC31q1PZaYh +ti07JPVUioZdH6IdklQM0fevqYQTM2ho/dn4232xIQZ6b95S2yeE4wbBYcM5 +hmi94+RwfLUQNFIrVlpbG+HDh/tnvvMSwglDm3nyQcYo7+1qMSOlHB6oLbYa +PmKCQW8sl/SXCsBWoy7b9KUpxtXEJ1bnnwcZsZKIjfvMUFa9fHVoThloJWnb +reOao2xvVn9V4DmQpNZfW3XfHAcD8hrmLCgFE75qRfQGC5zf7/GvQOkshHfJ +1TuLzEelps6si6+KYXA4w9PpxHzcfKRkdOu1M+Bo+m++k7ElvrZ+slbC8jTc +GV70c/yxJQ54bHA79LIAQo0sOp8GWGGD/tbr+y7mA39gc+s6SWtsmhEpZr/j +BPzJUflLusQaM4pkTjUGHwO9xEMxdQsWoKD1ZMCnlDwwCLCpoToXYOu4j73o +sRwIuLPlQOXOhRih3sD+8DYbas60bv6maINvT5uv7/8zE0YE0+Om121wWiX8 +zm7VdPCnaMn8v2zx6pv9xsu9U+GbQa715SFbFPw8+4jOT4YbpT/fj6YuQt5/ +z1Kew37wXqaLi7TskMdNyv7ASgL1kJSbJrV2mCHXf22t4l5QnLP90l9r+Nh5 ++p5dW0YclC7dEze0jo/m/4g9adsTBxZ7MpfmruejXfF85behceA6dPFF+0Y+ +Wlduq5rhHgcHX45O+m/no8c7nu5xxTiYKElYEpfExzmS8iMiZ2Khc1Hu8zKa +j9+fhZk13IyBLZGlBU4X+BjqO/TyOB0DYxeuBny5yMfAGczEzsIYkGO3j5tf +4+M57XNlNkkxsGK2psbtWj5KxGOcklMM3Got2/z8BR+Vm9S3z+yMBmeZG8ZR +7WR8sMKAfXM0tDs2jam84mNIcsDjhDvRMFLVn+rzjo9NbY9KFM5Gg3Gx2T+9 +fXxUlHkSdGh7NNzqXByV8ZWP5Tnny8d9yHwKq8F0iI8BFU6Lgt2jITAl8mnE +KB9PZxU7BFiT+WoP5itP8PHmyYu3+vWiYd+P4/5VP/iY/cAuPkY9GuZZlhtt +mOKjik544lyZaCgKqRqdnuajy5rdD0pFouF/iJl3Nw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05582690154012404}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05582690154012404}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VdsbB3BRpHAzz8M5zj7HPIUix/s2XCKXFCq3UEIllMwqVEKE0CQU +ScfZ+6ZBExWhG6U0KEOlorqhUOZKfuv3134+z37Wetba+7ved2/WprBVAaIi +IiISM0RE/n8d62pq4KSX2uff6ymf42ht31qkEru4fR/8TDGa2BmmAKjYskml +PQdS1+Dk0jAORK0Utom1l8DVlv8GeGGWIDugnDPZdhlEAzzuzApbBm9vuYaN +tNXBRiZr8myoBzhw+t58a3sGznucI81CNsNk24KjQ23dEFAzxAsJioD6pedL +n5YMQ15KSM0OvWTQeHvz0yajKZixuuBConkWKGz3FUosFcMKo+HB5I15kGPu +UO3qORuTLwadjvc9CR0nzGq/zZNGv4qUYpPHhZBemtAiqiqLkR7VOmN6xaCc +15OWWyiP5pK9ObOtz0KKh5P9szFFVLfy+OUxVgq7bIp9m/apoFfvF+0ndBks +G/wRF9qjhnmCIk8lBQHELs8zuPtFDRVGZScWqQrgQrFxp/yYGv7eVn3FR0sA +Kh5+Njdnq6NFTmDkKT0BfLlxb1zMRB1rva1Vv9sJIHdfdsTJGHUcmh1QKB8g +gG5FbmiDtAZ+eZyTTl0RQJKd+0a1hZr4it2VEOVQDst9ir4vWKKJrqE5erii +HGQS+/d7umgiM/fZavGV5VBQn1yW7aeJB4ckzVPXlcMN56p+8TRNLBLyRDZt +L4ehtbpRwx2aOEsgXRdypBx8IkcPNcdrYVpUevKH9nKwvXCycm+NNnrsX8Nz +3CCEZW2PpwYatXFjtajjVz8huIrMdPR9po0Ke8I9szcLwX9VaAd81EaJLQfs +HwULwSGelZA4Swe1xFuRHSeEHdpjZxcb6uADloaYzTEhNASd/lofpYOlnw4e +UG0WgtMvG7nd8TrYWJ8et6FFCI+zW60tE3XwqPkx36JnQui4KZlYmqaDTHDf +mFKHEAbmRsglF+ig+Mzxv3s+CkHl4vIFDnU6+HR+pVTvbyFsn/iW2CjNwiZJ +lSyBCQ22OwOVPsmxsCtlnnejOQ2z+zppMRUWGm66fPiDJQ3nXtW/tGezMO93 +mqncIhq67hw1umrNwrv5nRuXONLglmzTXuzLwr5QubIxHxos5JJM4y+xcBXt +OVWRToNI+mjDiWss9C8MsdqQScNjsW3e16pZONjq91r8CA3Bo6uSv91j4e6a +p9Fux2gobee8Cuok63vwvP/qGRqUTjce9BBj43B7jGh7JQ2ThvO6jD3Z+K2l +6314Jw1jhWpJ873ZyJFSmVf6moaRPyiOjS8bq7VU25520TAwbLNt2VY2Xt16 +zUy3h4buav8x7z1s/Gy7Xr2wn4YHK67LpJ5jY0RapMrATxru37576bCQjXOp +mB+fp2hoMG32yK1g48zmwrh30zTckX+fX3STjbNEa73uiTFw+dUc3tVHbMzq +OZAaOJeB/GAf6B5l4xelNZSEGgPH32zp/u8HG0v1ahSb1RnIc9uV/HWajZNb +XYSHNRnInJ/6cEJSF2P2htwVZzGw7+elNX9o6SJ9RubKEx4Dwemzdtg56GKP +rLhIgyUDdjRz5tgxXZRwSlpq6MLAKx369J+ndDGy29o19C8G4o6VF42c1sW+ +j6zYC64MXE8qK1hVrosKQrY5150Bi7VnTsjcIna6bDnsyYD+rLzsg+91seNp +cbeYLwONcTlZVp90Ue95p7aqHwOBQ9mZH/qIZQT7DTcyUPrqcMaSEV10vlJW +6+jPgM7llNTf4hx0d+lW9wliQMk3PjHKiIOcbMtromEMXG2NTaDMOXjcxj6r +j9jDOWZvqxUH7c/+c7RlBwM5VpG7LYCD8xOSjI6EMyAtFRYz4M7BaOMdmd8j +GWCSQqILvTjYU6D8tj6KAefx4CiXvzk4dO66X040A6ndWyKEmznoy7sywY1l +YObNTTsCozno6ROcarKbgbMmG8MUd3PwuZQgpJd4SalvaEMiBx2q01OK9zCQ +kLV+O/sQB0v8eX9LJjDwI8BrS1cBB0VLujOvJzHwTc7Zz6uOg70z/XIzDzLQ +vp39ZNt9sp5y8c96KQzU/vsDEpo5uDoOftUQZ8fR2oKXHJzI/hrwIZUBs26p +t5N9HLSeM2uleDoDKnYfXWWGOFidIHrlILHIsdt32KMctKljOsUyGGhxCi1a +Mc1BiSun40aIQy+1bCiUp/As7fBHRSYDXnMFjy6pUFg6Y6BcMYsB+4BE/r+a +FOoIE2ViiaVVzTUHeRRCtexC62wGRsIlD4sZUzgcFPg7i/h18/tfyhYUXhhY +deQTMZOY8xrtKAxULtM+dITks3Obi+diCovXB2m0Ee+2XHprqwOFd+9GftbJ +YWDF5+FTOSspPKlv9U1IbLGkee55Twqfc/407SdWKyiNr/amcJ2ZH+jlMtDn +5vn3h80Uyq2Obz9B/Kzc+OHEVgrVLnRtaiauEhNfJB1G4e4z8nW/iEs2dAlZ +ERTqsx6N6ecxkHb9mpp1LIVDF+7M8CDeIZt1yHkvheYrC3riiNcGB/3w2U9h +VI5aYREx3oNtu1IptD80YFJDrKet0plymMKCZ49OviaeFzvkVJBDYV9GaNcY +8cSzxpsXj1MY45cyJX2UgXdGxfr3Csj4uJZxFnHjwdiTHcUUpmb8fmRBfPGd +u+RAGYUlj5sTkfiErUGsKENhxq/v81YQJ+aJ9ipdopDxMkhYRRw00LnW8BqF +IcVGzV7ErsuvNEI1hSJU5cQaYuuS9IUetRT+ZuJn/f++1i9/wZZ7FGqk2g+v +JBb3slPZ84DCjpQbdcuJByoUUo+0UMgTKYvgE7+U/Dp+rpVC1v16SVPiO/73 +gqo6KLxi2bJPk7jsdmHb4y4Kl7EPvptNnKkc5djTQ2FEX5nuN7L/qJ2u18c/ +U1i5ZcjlJbHPQy5PaoBCiUnWhhvEf1LTx3SGSR6if3ocJzZKaBO3mqAwH/lW +u4gVOiqinKZIPk0Fv1cQf8jw8wqX4GLwtmm3EfI+Q/uM2GZSXOTxko3uE487 +Tn79Oo+Lkyto7+PEc8RykreqcVFinccFU+I8Px93njYXpUcVX4yTPGneMdD8 +qMvFZX6jbreJzWLrK/2MuTillbUMiateZiVqWXCxVj29ZorkdanlepfX1ly8 +Z6N35Aax1+BIzxrkoqTVI1su8Z4Arrzbai5ulT108z05L+L137uk1nKRFebx +M404W6dG+GA9F2uU20+YZv2/3q1Z4hDIRQ3bot5wcv4euKft5MdyMcbLfqSD +nE+PCk/+zz1czFDtpUKI30ixJW/uI3befWOKnO+h+1VnLDO4+AJ+iCoTK9l/ +aTE8zcXdsrfAII2BM6dunOo9y8WhgD/SBaRe6E8eCDov4OKt5mw7DrFdpeY0 ++zIXXy643ypP6ou/gZuJ2j0uNu29/uX5AZJHpcsZs/u5yH+0zb2d1C/biL1r +/x3k4uejxiuNieufOnMOjHDxkHd/TcJekpeMnurpKS5O3FUa1SD175eoYv/Y +PB42NEU3LYxjwGkw2umjNQ8v+TZdHdvFgIa51sHZdjyU5ec5yxIPhDfUGS7m +4Zs/Qvv1SL3OG5tnF76Ch5yl/3m4kXreNVVuMu3Lw5Iqy3cx2xkIl3otr5rG +wz15jWdhMwPLXPettMvkoXWUU6Ah6R/K2XqHfXN5aLY6ZKnCJgZuyUeKlxXy +MK7Q3f0N6Ufi6jKTFpd5OLM444XL36S/6mOXyyse7jum415C+tn24E9qO97x +0FG50thvJQPwT8aa3I88rK7+b766G8mjWceTjkEeKqX/qk0l/dJkYXh94Ew9 +NMs9PLHYkTwfh1JBorEeJqwjE9gx8MV/9q7KBD3yfXiK+02X7Ldo2e2aA3o4 +lfXu+AY2A4MdiRIP0/SwMmp0230dBr67TZ56n6uHWtKetrmkn48v6muQEejh +ULnvibnKDIgqNCttfaKHi9nO3ERJBlQbsqo0WfoozcqzT/hCg9r0w5n6XH0c +N5WrP9lHg4btbDdLQ310mVJvvPSZBq2LiT3OVvr4qfD2ms4PNHAKdkrFOOnj ++8YrAuk3NJhFrPZ5tlMfpWZxBqaaafK/oCyaUqePKdL7f8ylaejd5ChYdF8f +FxnYbPgtoCGjONp16KE+WkzLVAyU0fBcqz1/3Qt93IWbdJtKaPBTPTnf6LM+ +Zn+nAwLyaYiVUQ94Km2AFez9knZpNDATWo3q6wxQ6viVgqAAGuQecTMvDhqg +Y3fVp0/KNPweNDv3YMQAbf2rKzmKNPTJLbr1YdIAzzu6evjJ0VC31q1PZaYh +ti07JPVUioZdH6IdklQM0fevqYQTM2ho/dn4232xIQZ6b95S2yeE4wbBYcM5 +hmi94+RwfLUQNFIrVlpbG+HDh/tnvvMSwglDm3nyQcYo7+1qMSOlHB6oLbYa +PmKCQW8sl/SXCsBWoy7b9KUpxtXEJ1bnnwcZsZKIjfvMUFa9fHVoThloJWnb +reOao2xvVn9V4DmQpNZfW3XfHAcD8hrmLCgFE75qRfQGC5zf7/GvQOkshHfJ +1TuLzEelps6si6+KYXA4w9PpxHzcfKRkdOu1M+Bo+m++k7ElvrZ+slbC8jTc +GV70c/yxJQ54bHA79LIAQo0sOp8GWGGD/tbr+y7mA39gc+s6SWtsmhEpZr/j +BPzJUflLusQaM4pkTjUGHwO9xEMxdQsWoKD1ZMCnlDwwCLCpoToXYOu4j73o +sRwIuLPlQOXOhRih3sD+8DYbas60bv6maINvT5uv7/8zE0YE0+Om121wWiX8 +zm7VdPCnaMn8v2zx6pv9xsu9U+GbQa715SFbFPw8+4jOT4YbpT/fj6YuQt5/ +z1Kew37wXqaLi7TskMdNyv7ASgL1kJSbJrV2mCHXf22t4l5QnLP90l9r+Nh5 ++p5dW0YclC7dEze0jo/m/4g9adsTBxZ7MpfmruejXfF85behceA6dPFF+0Y+ +Wlduq5rhHgcHX45O+m/no8c7nu5xxTiYKElYEpfExzmS8iMiZ2Khc1Hu8zKa +j9+fhZk13IyBLZGlBU4X+BjqO/TyOB0DYxeuBny5yMfAGczEzsIYkGO3j5tf +4+M57XNlNkkxsGK2psbtWj5KxGOcklMM3Got2/z8BR+Vm9S3z+yMBmeZG8ZR +7WR8sMKAfXM0tDs2jam84mNIcsDjhDvRMFLVn+rzjo9NbY9KFM5Gg3Gx2T+9 +fXxUlHkSdGh7NNzqXByV8ZWP5Tnny8d9yHwKq8F0iI8BFU6Lgt2jITAl8mnE +KB9PZxU7BFiT+WoP5itP8PHmyYu3+vWiYd+P4/5VP/iY/cAuPkY9GuZZlhtt +mOKjik544lyZaCgKqRqdnuajy5rdD0pFouF/iJl3Nw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05582690154012404}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.05582690154012404}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9942600315481033`*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"b67d5025-d7a8-43e1-b692-40baf99065b5"] +}, Open ]], Cell[CellGroupData[{ @@ -13303,66 +14845,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[391]:=",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], + "In[142]:=",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 391, 417, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437636167164`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4654261861586553`*^-166\\\", \ +RowBox[{\\\"161198658118785115956678299518758546564\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"68\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9916936247705600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 73, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437636167164`*^9, 3.994260031600999*^9}, CellLabel-> "During evaluation of \ -In[391]:=",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], +In[142]:=",ExpressionUUID->"8a83eabf-5fa8-4867-bc84-310c7818ea4b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 391, 418, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343763625717*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4151408118772783`*^-169\\\", \ +RowBox[{\\\"505518991860510123640143147290826802026\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"71\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9512072804761600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 74, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437636167164`*^9, 3.9942600316112833`*^9}, CellLabel-> "During evaluation of \ -In[391]:=",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], +In[142]:=",ExpressionUUID->"4e0037a2-992f-4941-9bc5-edd940747f20"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 391, 419, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343763634718*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.3665809553261706`*^-172\\\", \ +RowBox[{\\\"164243120455479739170682508554789627978\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"75\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4724542670438400000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 75, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437636167164`*^9, 3.994260031621059*^9}, CellLabel-> "During evaluation of \ -In[391]:=",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], +In[142]:=",ExpressionUUID->"2bf86571-0e87-432e-939e-112265dfb529"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 391, 420, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343763643717*^9}, +during this calculation.\"", 2, 142, 76, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437636167164`*^9, 3.994260031629863*^9}, CellLabel-> "During evaluation of \ -In[391]:=",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], +In[142]:=",ExpressionUUID->"1226935a-0873-4e17-9424-7c8566581296"], -Cell[BoxData["12.55365498945131`"], "Output", - CellChangeTimes->{3.991343769962549*^9}, +Cell[BoxData["14.497926922971665`"], "Output", + CellChangeTimes->{3.991343769962549*^9, 3.994260117752808*^9}, CellLabel-> - "Out[391]=",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] + "Out[142]=",ExpressionUUID->"6ba4351a-9307-4811-9776-aee977c2fe53"] }, Open ]], Cell[CellGroupData[{ @@ -13429,68 +14978,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918499777649403`*^9, - 3.9918499820026073`*^9}},ExpressionUUID->"97b28b29-5d04-5c42-a0e8-\ -93b70f20e7f6"], + CellChangeTimes->{{3.9918499777649403`*^9, 3.9918499820026073`*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 392, 421, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343769999645*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0015840789972585`*^-251\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 143, 77, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991343769999645*^9, 3.994260117811482*^9}, CellLabel-> "During evaluation of \ -In[392]:=",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], +In[143]:=",ExpressionUUID->"5e41a436-d1ef-4103-a30b-a88e11a3903a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 392, 422, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437700095463`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0874924452372561`*^-260\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 143, 78, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991343769999645*^9, 3.994260117820849*^9}, CellLabel-> "During evaluation of \ -In[392]:=",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], +In[143]:=",ExpressionUUID->"887bd1f1-0e0e-4c5f-9524-1c1616208e8a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 392, - 423, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343770018547*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1807693864624056`*^-269\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 143, 79, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991343769999645*^9, 3.994260117829557*^9}, CellLabel-> "During evaluation of \ -In[392]:=",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], +In[143]:=",ExpressionUUID->"e4caf60a-6eb6-44a9-8731-c340ddcf6b1c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 392, 424, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437700265465`*^9}, +during this calculation.\"", 2, 143, 80, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991343769999645*^9, 3.994260117836937*^9}, CellLabel-> "During evaluation of \ -In[392]:=",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], +In[143]:=",ExpressionUUID->"1cf8cad3-c3d7-45ac-92c5-05e30a614673"], -Cell[BoxData["2.1234790234082306`"], "Output", - CellChangeTimes->{3.9913437771602173`*^9}, +Cell[BoxData["0.00014138527551827142`"], "Output", + CellChangeTimes->{3.9913437771602173`*^9, 3.994260126644758*^9}, CellLabel-> - "Out[392]=",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] + "Out[143]=",ExpressionUUID->"e9080469-217b-4ab9-8a35-5021c6f758c4"] }, Open ]], Cell[CellGroupData[{ @@ -13511,8 +15061,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -13557,68 +15106,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918499862910366`*^9, - 3.991849989300226*^9}},ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-\ -cdce838d9efe"], + CellChangeTimes->{{3.9918499862910366`*^9, 3.991849989300226*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 393, 425, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437771982174`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0015840789972585`*^-251\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 144, 81, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437771982174`*^9, 3.9942601267015553`*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], +In[144]:=",ExpressionUUID->"a222a242-70d6-4135-985b-674a705506b9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 393, 426, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437772082157`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0874924452372561`*^-260\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 144, 82, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437771982174`*^9, 3.9942601267126007`*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], +In[144]:=",ExpressionUUID->"7f6f33b9-77f7-4afc-b6c7-57c59f38e731"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 393, - 427, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134377721661*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1807693864624056`*^-269\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 144, 83, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437771982174`*^9, 3.994260126723065*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], +In[144]:=",ExpressionUUID->"9a1cd1f2-594b-4df1-a9e9-b83a7098afb7"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 393, 428, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437772256165`*^9}, +during this calculation.\"", 2, 144, 84, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437771982174`*^9, 3.994260126731514*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], +In[144]:=",ExpressionUUID->"eb7fd5e7-bf6d-460f-bd77-c0ac69d9fe85"], -Cell[BoxData["10.711562421053975`"], "Output", - CellChangeTimes->{3.991343783589731*^9}, +Cell[BoxData["50.661948333006144`"], "Output", + CellChangeTimes->{3.991343783589731*^9, 3.994260135283259*^9}, CellLabel-> - "Out[393]=",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] + "Out[144]=",ExpressionUUID->"da9bd9d6-9c9b-40c1-8ded-b2f4281eb1de"] }, Open ]], Cell[CellGroupData[{ @@ -13639,8 +15189,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -13685,68 +15234,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849992549782*^9, - 3.9918499952553864`*^9}},ExpressionUUID->"0794d062-69d5-0a45-936e-\ -533b19d33de6"], + CellChangeTimes->{{3.991849992549782*^9, 3.9918499952553864`*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 394, 429, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437836316223`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0015840789972585`*^-251\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 145, 85, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437836316223`*^9, 3.994260135335751*^9}, CellLabel-> "During evaluation of \ -In[394]:=",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], +In[145]:=",ExpressionUUID->"cd30b118-9b14-47c8-a298-9659b8c06479"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 394, 430, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437836416245`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0874924452372561`*^-260\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 145, 86, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437836316223`*^9, 3.994260135344159*^9}, CellLabel-> "During evaluation of \ -In[394]:=",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], +In[145]:=",ExpressionUUID->"95ec5731-0e66-4b63-a179-9ba9a62da948"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 394, - 431, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343783649622*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1807693864624056`*^-269\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 145, 87, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437836316223`*^9, 3.9942601353525343`*^9}, CellLabel-> "During evaluation of \ -In[394]:=",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], +In[145]:=",ExpressionUUID->"8be576c3-6b41-47d9-a0ee-c6235b9f3fa9"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 394, 432, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437836576347`*^9}, +during this calculation.\"", 2, 145, 88, 31387658238903900368, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437836316223`*^9, 3.994260135360903*^9}, CellLabel-> "During evaluation of \ -In[394]:=",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], +In[145]:=",ExpressionUUID->"4273c117-ff68-4690-9f4c-372f9724970e"], -Cell[BoxData["20.656774205279326`"], "Output", - CellChangeTimes->{3.9913437870822353`*^9}, +Cell[BoxData["6.913212671470088`"], "Output", + CellChangeTimes->{3.9913437870822353`*^9, 3.99426014194802*^9}, CellLabel-> - "Out[394]=",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] + "Out[145]=",ExpressionUUID->"f1ae9e7d-0f4d-47c6-b02a-4ea91de141d0"] }, Open ]], Cell[CellGroupData[{ @@ -13755,23 +15305,25 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918500011025047`*^9, - 3.9918500053803673`*^9}},ExpressionUUID->"95c56266-e4d3-624e-89c1-\ -cedeeeb0247a"], - -Cell[BoxData["0.14275466609450368`"], "Output", - CellChangeTimes->{3.991343787117275*^9}, + CellChangeTimes->{{3.9918500011025047`*^9, 3.9918500053803673`*^9}}, CellLabel-> - "Out[395]=",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] + "In[146]:=",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], + +Cell[BoxData["7.554805363973055`*^-6"], "Output", + CellChangeTimes->{3.991343787117275*^9, 3.994260141989727*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"2742f7fc-c8d1-4d4a-a954-20fdf9378d5a"] }, Open ]], Cell[BoxData[ RowBox[{"NotebookSave", "[", "]"}]], "Input", CellChangeTimes->{{3.994083532538033*^9, 3.994083541956765*^9}}, - CellLabel->"In[2]:=",ExpressionUUID->"6e095bee-c7b8-4216-a319-367a047c5d8f"] + CellLabel-> + "In[147]:=",ExpressionUUID->"6e095bee-c7b8-4216-a319-367a047c5d8f"] }, -WindowSize->{714, 288}, -WindowMargins->{{Automatic, 3}, {Automatic, 15}}, +Evaluator->"kernel 4", +WindowSize->{714, 170.25}, +WindowMargins->{{Automatic, 3}, {356.25, Automatic}}, CellContext->Notebook, FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", @@ -13789,622 +15341,642 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 330, 7, 36, "Input",ExpressionUUID->"f1382c5a-37c0-4755-89be-96905c543547"], -Cell[909, 31, 208, 4, 41, "Output",ExpressionUUID->"3a7f5917-ef1b-459b-9a6e-a5fb9a629903"] +Cell[576, 22, 347, 6, 36, "Input",ExpressionUUID->"f1382c5a-37c0-4755-89be-96905c543547"], +Cell[926, 30, 229, 4, 41, "Output",ExpressionUUID->"0cd7fded-c211-4708-9740-ee7a30ce4b44"] }, Open ]], Cell[CellGroupData[{ -Cell[1154, 40, 253, 5, 36, "Input",ExpressionUUID->"f43660fa-9031-4e07-b66f-b07ee9ac236c"], -Cell[1410, 47, 208, 4, 41, "Output",ExpressionUUID->"42be1334-300c-4664-8afe-52014a81d464"] +Cell[1192, 39, 248, 4, 36, "Input",ExpressionUUID->"f43660fa-9031-4e07-b66f-b07ee9ac236c"], +Cell[1443, 45, 229, 4, 41, "Output",ExpressionUUID->"8f34b76b-240b-4d2e-8615-9c40cbce516e"] }, Open ]], Cell[CellGroupData[{ -Cell[1655, 56, 226, 5, 36, "Input",ExpressionUUID->"07321a6a-1c35-41db-a569-1f68ddfb7adb"], -Cell[1884, 63, 207, 4, 41, "Output",ExpressionUUID->"34b123b5-c617-4da9-b9f6-81dc21f098b6"] +Cell[1709, 54, 221, 4, 36, "Input",ExpressionUUID->"07321a6a-1c35-41db-a569-1f68ddfb7adb"], +Cell[1933, 60, 228, 4, 41, "Output",ExpressionUUID->"65090611-edfd-4abd-8670-83ab42d05880"] }, Open ]], Cell[CellGroupData[{ -Cell[2128, 72, 180, 4, 51, "Input",ExpressionUUID->"9b12ab22-c117-4c08-ade7-57e3cf871e80"], -Cell[2311, 78, 207, 4, 58, "Output",ExpressionUUID->"f1c0aa9c-af28-4554-8796-7a53df7cafb8"] +Cell[2198, 69, 175, 3, 36, "Input",ExpressionUUID->"9b12ab22-c117-4c08-ade7-57e3cf871e80"], +Cell[2376, 74, 228, 4, 41, "Output",ExpressionUUID->"b4e2dbb7-3bd9-4925-8ac6-103adf531207"] }, Open ]], Cell[CellGroupData[{ -Cell[2555, 87, 262, 8, 74, "Input",ExpressionUUID->"1ff90b57-0300-49e1-9e16-5b64a157724e"], -Cell[2820, 97, 223, 4, 58, "Output",ExpressionUUID->"3445c148-08fb-4cf0-9ef0-b2c45a0077e5"] +Cell[2641, 83, 257, 7, 54, "Input",ExpressionUUID->"1ff90b57-0300-49e1-9e16-5b64a157724e"], +Cell[2901, 92, 244, 4, 41, "Output",ExpressionUUID->"dc5f6820-66ef-45fa-a7b7-465b69feaf9b"] }, Open ]], Cell[CellGroupData[{ -Cell[3080, 106, 136, 3, 51, "Input",ExpressionUUID->"8ac2d873-0ea2-404c-b6ec-81a1bef4490d"], -Cell[3219, 111, 206, 4, 58, "Output",ExpressionUUID->"68226aed-e691-4807-aef9-eb4320ac12dd"] +Cell[3182, 101, 131, 2, 36, "Input",ExpressionUUID->"8ac2d873-0ea2-404c-b6ec-81a1bef4490d"], +Cell[3316, 105, 227, 4, 41, "Output",ExpressionUUID->"c13bcc95-fef7-4ab0-8860-ea68dde79a44"] }, Open ]], Cell[CellGroupData[{ -Cell[3462, 120, 281, 7, 51, "Input",ExpressionUUID->"1a90f392-f48f-41b3-8019-dcce6409c2da"], -Cell[3746, 129, 221, 4, 58, "Output",ExpressionUUID->"04300081-d8c3-4e54-9c65-9635e2fff4c4"] +Cell[3580, 114, 276, 6, 36, "Input",ExpressionUUID->"1a90f392-f48f-41b3-8019-dcce6409c2da"], +Cell[3859, 122, 242, 4, 41, "Output",ExpressionUUID->"74b66046-e3e7-4d7c-a9b2-d0d53f13b94b"] }, Open ]], Cell[CellGroupData[{ -Cell[4004, 138, 262, 8, 51, "Input",ExpressionUUID->"5beb184a-e2b6-4f9c-81b6-cce0f71f14ab"], -Cell[4269, 148, 221, 4, 58, "Output",ExpressionUUID->"62c11568-7a79-4363-935f-3299a00ee443"] +Cell[4138, 131, 257, 7, 36, "Input",ExpressionUUID->"5beb184a-e2b6-4f9c-81b6-cce0f71f14ab"], +Cell[4398, 140, 244, 4, 41, "Output",ExpressionUUID->"3597cb14-348b-4af0-9688-dd99546f7dc9"] }, Open ]], Cell[CellGroupData[{ -Cell[4527, 157, 229, 5, 51, "Input",ExpressionUUID->"63865c01-79b3-48ad-a714-fda334053253"], -Cell[4759, 164, 186, 3, 58, "Output",ExpressionUUID->"63407a06-422c-423e-9fe2-b2ca3822f35e"] +Cell[4679, 149, 224, 4, 36, "Input",ExpressionUUID->"63865c01-79b3-48ad-a714-fda334053253"], +Cell[4906, 155, 207, 3, 41, "Output",ExpressionUUID->"cbbfd284-0a6f-4068-a923-df461206a19a"] }, Open ]], Cell[CellGroupData[{ -Cell[4982, 172, 232, 5, 51, "Input",ExpressionUUID->"014751fc-4a6d-4089-9eb1-c54a4d1e523b"], -Cell[5217, 179, 184, 3, 58, "Output",ExpressionUUID->"343025f1-e4d4-4001-a648-c181c6df0d84"] +Cell[5150, 163, 228, 4, 36, "Input",ExpressionUUID->"014751fc-4a6d-4089-9eb1-c54a4d1e523b"], +Cell[5381, 169, 208, 3, 41, "Output",ExpressionUUID->"2f652bf2-a443-472c-9549-c4073ab305f0"] }, Open ]], Cell[CellGroupData[{ -Cell[5438, 187, 133, 3, 51, "Input",ExpressionUUID->"e89e116c-1fde-46ea-8703-084a13839210"], -Cell[5574, 192, 204, 4, 58, "Output",ExpressionUUID->"79542a49-f7c6-4d73-8532-e9fff7302790"] +Cell[5626, 177, 129, 2, 36, "Input",ExpressionUUID->"e89e116c-1fde-46ea-8703-084a13839210"], +Cell[5758, 181, 226, 4, 41, "Output",ExpressionUUID->"ac9c84bd-9bd1-4793-8c7f-5944a13229e1"] }, Open ]], Cell[CellGroupData[{ -Cell[5815, 201, 133, 3, 51, "Input",ExpressionUUID->"eacd8d62-ec50-4abb-ab80-1b1869859db1"], -Cell[5951, 206, 204, 4, 58, "Output",ExpressionUUID->"d641c1e4-6924-452e-b6e4-25bb3dd85ee2"] +Cell[6021, 190, 129, 2, 36, "Input",ExpressionUUID->"eacd8d62-ec50-4abb-ab80-1b1869859db1"], +Cell[6153, 194, 226, 4, 41, "Output",ExpressionUUID->"9e863412-df39-4d1e-9f10-2550e1047782"] }, Open ]], Cell[CellGroupData[{ -Cell[6192, 215, 561, 20, 140, "Input",ExpressionUUID->"331c171b-4a6c-4cd7-99e3-97bf56659c80"], -Cell[6756, 237, 222, 4, 58, "Output",ExpressionUUID->"1aecefd9-5ea7-4755-b02b-a97b62e4c59b"] +Cell[6416, 203, 557, 19, 100, "Input",ExpressionUUID->"331c171b-4a6c-4cd7-99e3-97bf56659c80"], +Cell[6976, 224, 244, 4, 41, "Output",ExpressionUUID->"89d6a504-be3f-41e0-b538-7b965b5bec23"] }, Open ]], Cell[CellGroupData[{ -Cell[7015, 246, 561, 20, 140, "Input",ExpressionUUID->"20e80858-fe88-4b15-9d44-8618d5793d8e"], -Cell[7579, 268, 222, 4, 58, "Output",ExpressionUUID->"466a9b12-a6a1-450d-b367-0dee80b69719"] +Cell[7257, 233, 557, 19, 100, "Input",ExpressionUUID->"20e80858-fe88-4b15-9d44-8618d5793d8e"], +Cell[7817, 254, 242, 4, 41, "Output",ExpressionUUID->"b9de896f-77aa-4807-b307-070f51819875"] }, Open ]], Cell[CellGroupData[{ -Cell[7838, 277, 1592, 51, 190, "Input",ExpressionUUID->"5ac84d36-8f0a-4dd6-9e16-23f8a409a053"], -Cell[9433, 330, 220, 4, 58, "Output",ExpressionUUID->"c8a391d8-072d-47e9-9f5d-d93bea02532d"] +Cell[8096, 263, 1588, 50, 215, "Input",ExpressionUUID->"5ac84d36-8f0a-4dd6-9e16-23f8a409a053"], +Cell[9687, 315, 244, 4, 41, "Output",ExpressionUUID->"30dac578-d0f0-4cd7-8fae-c75685b05d30"] }, Open ]], Cell[CellGroupData[{ -Cell[9690, 339, 1426, 47, 190, "Input",ExpressionUUID->"5bd40196-ee21-4cd9-8320-21acc069c5ed"], -Cell[11119, 388, 240, 5, 58, "Output",ExpressionUUID->"b5b2b412-9726-4305-bc33-b095b2c94bdb"] +Cell[9968, 324, 1422, 46, 215, "Input",ExpressionUUID->"5bd40196-ee21-4cd9-8320-21acc069c5ed"], +Cell[11393, 372, 264, 5, 41, "Output",ExpressionUUID->"71fa5bf0-64f1-4959-8a20-163b72703c3f"] }, Open ]], Cell[CellGroupData[{ -Cell[11396, 398, 1335, 45, 141, "Input",ExpressionUUID->"d0c04429-994b-4a44-a4d0-f037102550ca"], -Cell[12734, 445, 239, 5, 58, "Output",ExpressionUUID->"ae8f5e46-175c-4bec-ab32-79ae6a0cab8d"] +Cell[11694, 382, 1422, 46, 215, "Input",ExpressionUUID->"d0c04429-994b-4a44-a4d0-f037102550ca"], +Cell[13119, 430, 261, 5, 41, "Output",ExpressionUUID->"fad066c4-0054-49de-900a-ec2c1e509b03"] }, Open ]], Cell[CellGroupData[{ -Cell[13010, 455, 1592, 51, 190, "Input",ExpressionUUID->"1f9601f2-6a88-4806-ad41-f0df46d4ed91"], -Cell[14605, 508, 218, 4, 58, "Output",ExpressionUUID->"0f1293a9-d7f7-431c-b82b-59346602f5c9"] +Cell[13417, 440, 1588, 50, 215, "Input",ExpressionUUID->"1f9601f2-6a88-4806-ad41-f0df46d4ed91"], +Cell[15008, 492, 240, 4, 41, "Output",ExpressionUUID->"f6a0b099-de79-484c-8697-c0f2b84da41a"] }, Open ]], Cell[CellGroupData[{ -Cell[14860, 517, 135, 3, 51, "Input",ExpressionUUID->"347423ea-8341-41b7-b902-01dd41265ee1"], -Cell[14998, 522, 206, 4, 58, "Output",ExpressionUUID->"37853dcd-403b-4325-9352-2c97870a9304"] +Cell[15285, 501, 131, 2, 36, "Input",ExpressionUUID->"347423ea-8341-41b7-b902-01dd41265ee1"], +Cell[15419, 505, 230, 4, 41, "Output",ExpressionUUID->"cc77099a-3ecb-4a09-97fa-cc31689fd255"] }, Open ]], Cell[CellGroupData[{ -Cell[15241, 531, 137, 3, 51, "Input",ExpressionUUID->"7907d38c-bf49-4699-9062-8fff129bef18"], -Cell[15381, 536, 205, 4, 58, "Output",ExpressionUUID->"28f21e11-6eb2-443c-862f-591adf26406e"] +Cell[15686, 514, 133, 2, 36, "Input",ExpressionUUID->"7907d38c-bf49-4699-9062-8fff129bef18"], +Cell[15822, 518, 229, 4, 41, "Output",ExpressionUUID->"b924923d-1fc4-434b-95d7-939ea13f81af"] }, Open ]], Cell[CellGroupData[{ -Cell[15623, 545, 138, 3, 51, "Input",ExpressionUUID->"b8ef7471-58ac-46a8-9b9a-1943c1a290e3"], -Cell[15764, 550, 206, 4, 58, "Output",ExpressionUUID->"8c6fbb31-49b6-418c-9d22-c173416bec65"] +Cell[16088, 527, 134, 2, 36, "Input",ExpressionUUID->"b8ef7471-58ac-46a8-9b9a-1943c1a290e3"], +Cell[16225, 531, 228, 4, 41, "Output",ExpressionUUID->"403c0bac-5dd9-4994-a2ff-153a57f61d53"] }, Open ]], Cell[CellGroupData[{ -Cell[16007, 559, 223, 5, 51, "Input",ExpressionUUID->"0189886d-6631-4e30-b784-8afd8e7f95c9"], -Cell[16233, 566, 221, 5, 58, "Output",ExpressionUUID->"81e68d03-8007-4e14-b4a0-ba61aa59cd0a"] +Cell[16490, 540, 219, 4, 36, "Input",ExpressionUUID->"0189886d-6631-4e30-b784-8afd8e7f95c9"], +Cell[16712, 546, 243, 5, 41, "Output",ExpressionUUID->"74d861fc-555b-4853-a2fe-9890edb63f46"] }, Open ]], Cell[CellGroupData[{ -Cell[16491, 576, 138, 3, 51, "Input",ExpressionUUID->"02568996-b75a-4e5f-8b69-2407169c6916"], -Cell[16632, 581, 210, 4, 58, "Output",ExpressionUUID->"febd74e2-815d-4f0c-8b41-dba7ab888d65"] +Cell[16992, 556, 134, 2, 36, "Input",ExpressionUUID->"02568996-b75a-4e5f-8b69-2407169c6916"], +Cell[17129, 560, 234, 4, 41, "Output",ExpressionUUID->"4046a361-d706-4fc3-b30a-3a4714c4216a"] }, Open ]], Cell[CellGroupData[{ -Cell[16879, 590, 330, 6, 51, "Input",ExpressionUUID->"e1a912a8-73c3-4c3b-b088-497714fdd235"], -Cell[17212, 598, 205, 4, 58, "Output",ExpressionUUID->"a2e7fe52-436a-44a5-8b97-ff42839731ef"] +Cell[17400, 569, 326, 5, 36, "Input",ExpressionUUID->"e1a912a8-73c3-4c3b-b088-497714fdd235"], +Cell[17729, 576, 226, 4, 41, "Output",ExpressionUUID->"fd1df032-876a-4568-b611-37c4851305fb"] }, Open ]], Cell[CellGroupData[{ -Cell[17454, 607, 301, 6, 51, "Input",ExpressionUUID->"06e4989c-d2f4-4d93-b747-84fd32eaa822"], -Cell[17758, 615, 205, 4, 58, "Output",ExpressionUUID->"a10f3051-0aef-40b6-9855-1c98c87e2fc7"] +Cell[17992, 585, 297, 5, 36, "Input",ExpressionUUID->"06e4989c-d2f4-4d93-b747-84fd32eaa822"], +Cell[18292, 592, 227, 4, 41, "Output",ExpressionUUID->"e2ea8d2a-f5a0-47f3-a4a6-40d5143ca2a6"] }, Open ]], Cell[CellGroupData[{ -Cell[18000, 624, 223, 5, 51, "Input",ExpressionUUID->"fc47679b-f40f-41ae-8998-6343e1434760"], -Cell[18226, 631, 203, 4, 58, "Output",ExpressionUUID->"260dbb5a-ce2d-4326-bf75-ee93f8ebb4ec"] +Cell[18556, 601, 219, 4, 36, "Input",ExpressionUUID->"fc47679b-f40f-41ae-8998-6343e1434760"], +Cell[18778, 607, 225, 4, 41, "Output",ExpressionUUID->"22433433-c1b5-466e-8017-5a76eea4dab2"] }, Open ]], Cell[CellGroupData[{ -Cell[18466, 640, 354, 11, 74, "Input",ExpressionUUID->"d6cd350e-bfcf-47a5-9d81-f0a69ccfe139"], -Cell[18823, 653, 223, 4, 58, "Output",ExpressionUUID->"8755b8d7-e014-4fda-b865-e36850b8017a"] +Cell[19040, 616, 350, 10, 54, "Input",ExpressionUUID->"d6cd350e-bfcf-47a5-9d81-f0a69ccfe139"], +Cell[19393, 628, 245, 4, 41, "Output",ExpressionUUID->"4d4ee853-a860-41d5-b3dd-36222578b213"] }, Open ]], Cell[CellGroupData[{ -Cell[19083, 662, 354, 11, 74, "Input",ExpressionUUID->"d0a6fae9-9e4e-458b-a7df-835a54518cdd"], -Cell[19440, 675, 238, 5, 58, "Output",ExpressionUUID->"4008e5a3-03dd-40fe-b2b5-d74941ebe7c4"] +Cell[19675, 637, 350, 10, 54, "Input",ExpressionUUID->"d0a6fae9-9e4e-458b-a7df-835a54518cdd"], +Cell[20028, 649, 262, 5, 41, "Output",ExpressionUUID->"21766de1-38aa-47cd-a635-d79239146b00"] }, Open ]], Cell[CellGroupData[{ -Cell[19715, 685, 998, 27, 142, "Input",ExpressionUUID->"036f30de-54e0-4522-af85-5e43b3f4c659"], -Cell[20716, 714, 223, 4, 58, "Output",ExpressionUUID->"b15cc941-9c19-4e1c-a99e-692553c53aca"] +Cell[20327, 659, 994, 26, 105, "Input",ExpressionUUID->"036f30de-54e0-4522-af85-5e43b3f4c659"], +Cell[21324, 687, 245, 4, 41, "Output",ExpressionUUID->"b5537590-0550-4a35-b149-c591e79f0cd5"] }, Open ]], Cell[CellGroupData[{ -Cell[20976, 723, 203, 4, 51, "Input",ExpressionUUID->"81d99f00-b761-475d-949e-530db7207fe0"], -Cell[21182, 729, 204, 4, 58, "Output",ExpressionUUID->"37dbbba4-7857-4375-b02b-20caebe5d9ca"] +Cell[21606, 696, 199, 3, 36, "Input",ExpressionUUID->"81d99f00-b761-475d-949e-530db7207fe0"], +Cell[21808, 701, 228, 4, 41, "Output",ExpressionUUID->"24763fb9-c067-4abf-b9c8-4ef5d5eaacdd"] }, Open ]], Cell[CellGroupData[{ -Cell[21423, 738, 303, 6, 51, "Input",ExpressionUUID->"fb7c1a44-ae36-4c9d-a48d-2ac384a8901e"], -Cell[21729, 746, 176, 3, 58, "Output",ExpressionUUID->"8a567713-327f-4f89-b5cf-f5d22a3499cf"] +Cell[22073, 710, 299, 5, 36, "Input",ExpressionUUID->"fb7c1a44-ae36-4c9d-a48d-2ac384a8901e"], +Cell[22375, 717, 200, 3, 41, "Output",ExpressionUUID->"c06cf6ad-c277-4548-afa2-0a48da6fa19c"] }, Open ]], -Cell[21920, 752, 177, 3, 51, "Input",ExpressionUUID->"91d58ee7-5627-4dff-9509-e3354c6058c5"], +Cell[22590, 723, 173, 2, 109, "Input",ExpressionUUID->"91d58ee7-5627-4dff-9509-e3354c6058c5"], Cell[CellGroupData[{ -Cell[22122, 759, 331, 6, 51, "Input",ExpressionUUID->"298ada5c-a5a3-4fa0-9c4a-9120a3296baf"], -Cell[22456, 767, 184, 3, 58, "Output",ExpressionUUID->"fa0cff63-7921-4bb3-a225-32b0b174f881"] +Cell[22788, 729, 327, 5, 36, "Input",ExpressionUUID->"298ada5c-a5a3-4fa0-9c4a-9120a3296baf"], +Cell[23118, 736, 206, 3, 41, "Output",ExpressionUUID->"76ca4d1b-1b9a-4d33-88d7-985d6d8bdaf0"] }, Open ]], -Cell[22655, 773, 177, 3, 51, "Input",ExpressionUUID->"1a29ed12-c2bf-4b4b-8b51-986c65959945"], +Cell[23339, 742, 173, 2, 109, "Input",ExpressionUUID->"1a29ed12-c2bf-4b4b-8b51-986c65959945"], Cell[CellGroupData[{ -Cell[22857, 780, 333, 6, 51, "Input",ExpressionUUID->"38aae145-970c-486e-bbe4-4b07e8b87af2"], -Cell[23193, 788, 183, 3, 58, "Output",ExpressionUUID->"2ecd15b6-11d0-4524-a566-c587c8abaf14"] +Cell[23537, 748, 329, 5, 36, "Input",ExpressionUUID->"38aae145-970c-486e-bbe4-4b07e8b87af2"], +Cell[23869, 755, 205, 3, 41, "Output",ExpressionUUID->"44f815b3-6a68-4ea3-9477-475cc7706222"] }, Open ]], -Cell[23391, 794, 177, 3, 51, "Input",ExpressionUUID->"004d7445-3245-4bc6-b2f6-52011777f892"], +Cell[24089, 761, 173, 2, 109, "Input",ExpressionUUID->"004d7445-3245-4bc6-b2f6-52011777f892"], Cell[CellGroupData[{ -Cell[23593, 801, 358, 6, 51, "Input",ExpressionUUID->"799e6cea-589e-41f8-a046-d24e1709f554"], -Cell[23954, 809, 182, 3, 58, "Output",ExpressionUUID->"6a161d46-ce7a-4444-801b-381103ea3853"] +Cell[24287, 767, 354, 5, 36, "Input",ExpressionUUID->"799e6cea-589e-41f8-a046-d24e1709f554"], +Cell[24644, 774, 204, 3, 41, "Output",ExpressionUUID->"56e2075e-5581-4e2b-9155-611a119e01ec"] }, Open ]], -Cell[24151, 815, 175, 3, 51, "Input",ExpressionUUID->"09190fa6-0581-4215-98d6-37e55b97a639"], +Cell[24863, 780, 171, 2, 109, "Input",ExpressionUUID->"09190fa6-0581-4215-98d6-37e55b97a639"], Cell[CellGroupData[{ -Cell[24351, 822, 305, 6, 51, "Input",ExpressionUUID->"b5b42979-d0c4-4670-bedd-343f93950d65"], -Cell[24659, 830, 182, 3, 58, "Output",ExpressionUUID->"4edf62f5-ee7c-43bb-97d7-a709d70f8cc4"] +Cell[25059, 786, 301, 5, 36, "Input",ExpressionUUID->"b5b42979-d0c4-4670-bedd-343f93950d65"], +Cell[25363, 793, 204, 3, 41, "Output",ExpressionUUID->"d9af999f-d5c5-4dad-892c-cb3db1e2c019"] }, Open ]], -Cell[24856, 836, 175, 3, 51, "Input",ExpressionUUID->"192276d5-e993-4478-82ea-71c65a24df99"], +Cell[25582, 799, 171, 2, 109, "Input",ExpressionUUID->"192276d5-e993-4478-82ea-71c65a24df99"], Cell[CellGroupData[{ -Cell[25056, 843, 307, 6, 51, "Input",ExpressionUUID->"ced81e69-1d9a-4863-8d3b-18880c4947fe"], -Cell[25366, 851, 184, 3, 58, "Output",ExpressionUUID->"c38e1d6f-f1c4-476f-a387-45b4f3dcbc71"] +Cell[25778, 805, 303, 5, 36, "Input",ExpressionUUID->"ced81e69-1d9a-4863-8d3b-18880c4947fe"], +Cell[26084, 812, 208, 3, 41, "Output",ExpressionUUID->"c5de455d-4641-45b3-9e02-b49c85618197"] }, Open ]], -Cell[25565, 857, 177, 3, 51, "Input",ExpressionUUID->"6671fa3c-c438-4774-9a97-7904a087d195"], +Cell[26307, 818, 173, 2, 109, "Input",ExpressionUUID->"6671fa3c-c438-4774-9a97-7904a087d195"], Cell[CellGroupData[{ -Cell[25767, 864, 311, 6, 51, "Input",ExpressionUUID->"759fa7d9-cbc8-4e43-8720-a995984cede8"], -Cell[26081, 872, 183, 3, 58, "Output",ExpressionUUID->"0345f281-faba-4c6c-b204-16d7de695e04"] +Cell[26505, 824, 307, 5, 36, "Input",ExpressionUUID->"759fa7d9-cbc8-4e43-8720-a995984cede8"], +Cell[26815, 831, 207, 3, 41, "Output",ExpressionUUID->"0ef871a0-8f96-4c7b-b6a1-84627d2287f0"] }, Open ]], -Cell[26279, 878, 176, 3, 51, "Input",ExpressionUUID->"cd965388-1682-4cbb-8568-b66f38f454a9"], +Cell[27037, 837, 172, 2, 109, "Input",ExpressionUUID->"cd965388-1682-4cbb-8568-b66f38f454a9"], Cell[CellGroupData[{ -Cell[26480, 885, 279, 5, 51, "Input",ExpressionUUID->"ecb40850-44b8-4062-80be-f46a3f26b2ed"], -Cell[26762, 892, 182, 3, 58, "Output",ExpressionUUID->"eafb8add-43d3-4445-92d0-900b2812085d"] +Cell[27234, 843, 275, 4, 36, "Input",ExpressionUUID->"ecb40850-44b8-4062-80be-f46a3f26b2ed"], +Cell[27512, 849, 204, 3, 41, "Output",ExpressionUUID->"a5754be4-b764-43bc-924d-beaa1753e829"] }, Open ]], -Cell[26959, 898, 179, 3, 51, "Input",ExpressionUUID->"c6d528a6-5533-43b6-98c8-00177c44108d"], +Cell[27731, 855, 175, 2, 109, "Input",ExpressionUUID->"c6d528a6-5533-43b6-98c8-00177c44108d"], Cell[CellGroupData[{ -Cell[27163, 905, 19813, 486, 2581, "Input",ExpressionUUID->"426c63e8-fb89-45d6-a957-f95dbbd825bb"], -Cell[46979, 1393, 221, 4, 58, "Output",ExpressionUUID->"f10e9fc6-b75a-411c-95d2-028b25433a73"] +Cell[27931, 861, 19809, 485, 3208, "Input",ExpressionUUID->"426c63e8-fb89-45d6-a957-f95dbbd825bb"], +Cell[47743, 1348, 243, 4, 41, "Output",ExpressionUUID->"5b3f0877-ada8-479e-acd9-a4709a7ff3c0"] }, Open ]], Cell[CellGroupData[{ -Cell[47237, 1402, 19752, 490, 2539, "Input",ExpressionUUID->"6f685327-4b81-4284-afb6-c3aefad198c3"], -Cell[66992, 1894, 221, 4, 58, "Output",ExpressionUUID->"6c936857-18a5-4fef-8750-8859a97c900d"] +Cell[48023, 1357, 19748, 489, 3138, "Input",ExpressionUUID->"6f685327-4b81-4284-afb6-c3aefad198c3"], +Cell[67774, 1848, 243, 4, 41, "Output",ExpressionUUID->"6bb97ef1-6f25-4a41-a596-4bd2ff82745e"] }, Open ]], Cell[CellGroupData[{ -Cell[67250, 1903, 19752, 484, 2561, "Input",ExpressionUUID->"9177db48-266c-4fc3-a0db-b6c96de6811a"], -Cell[87005, 2389, 235, 5, 109, "Output",ExpressionUUID->"0ea4e416-9636-41c1-892b-81301846ec64"] +Cell[68054, 1857, 19748, 483, 3198, "Input",ExpressionUUID->"9177db48-266c-4fc3-a0db-b6c96de6811a"], +Cell[87805, 2342, 257, 5, 41, "Output",ExpressionUUID->"28b4440e-d8b3-4505-a164-fb784eebc646"] }, Open ]], Cell[CellGroupData[{ -Cell[87277, 2399, 28300, 713, 109, "Input",ExpressionUUID->"c14b449c-48ab-4a66-bdd8-265f7b768fed"], -Cell[115580, 3114, 235, 5, 58, "Output",ExpressionUUID->"247ac764-03dd-4049-a1ff-8e30e1754ac9"] +Cell[88099, 2352, 28296, 712, 2450, "Input",ExpressionUUID->"c14b449c-48ab-4a66-bdd8-265f7b768fed"], +Cell[116398, 3066, 257, 5, 41, "Output",ExpressionUUID->"c2bcb891-0108-4890-9035-6782217c51ab"] }, Open ]], Cell[CellGroupData[{ -Cell[115852, 3124, 22539, 554, 2883, "Input",ExpressionUUID->"fd220b96-f4ca-4cca-8867-0e38a96ffb73"], -Cell[138394, 3680, 238, 5, 58, "Output",ExpressionUUID->"9e6e9ee8-3a02-48ee-a3d0-db08b7ee9152"] +Cell[116692, 3076, 22535, 553, 3642, "Input",ExpressionUUID->"fd220b96-f4ca-4cca-8867-0e38a96ffb73"], +Cell[139230, 3631, 259, 5, 41, "Output",ExpressionUUID->"b560e955-c34d-4e00-a669-6555fb9b0398"] }, Open ]], Cell[CellGroupData[{ -Cell[138669, 3690, 25495, 627, 3226, "Input",ExpressionUUID->"71dc8cd9-29d3-4396-b5e2-6d0f0fb2d5fc"], -Cell[164167, 4319, 239, 5, 58, "Output",ExpressionUUID->"beb982c8-9336-4aa7-9494-0511374f6c60"] +Cell[139526, 3641, 25491, 626, 4121, "Input",ExpressionUUID->"71dc8cd9-29d3-4396-b5e2-6d0f0fb2d5fc"], +Cell[165020, 4269, 261, 5, 41, "Output",ExpressionUUID->"39a7ad2b-446d-4ea5-b581-d62759adf5c8"] }, Open ]], Cell[CellGroupData[{ -Cell[164443, 4329, 134, 3, 51, "Input",ExpressionUUID->"5d61a410-d91d-4e00-a79d-12258b09b734"], -Cell[164580, 4334, 204, 4, 58, "Output",ExpressionUUID->"1f46af81-5932-455b-902e-951378d8299a"] +Cell[165318, 4279, 130, 2, 36, "Input",ExpressionUUID->"5d61a410-d91d-4e00-a79d-12258b09b734"], +Cell[165451, 4283, 226, 4, 41, "Output",ExpressionUUID->"c538697a-3f96-46b9-8b2b-55ceba89d7d2"] }, Open ]], Cell[CellGroupData[{ -Cell[164821, 4343, 134, 3, 51, "Input",ExpressionUUID->"793ccd2e-d893-43bd-9c87-b89229ad7703"], -Cell[164958, 4348, 204, 4, 58, "Output",ExpressionUUID->"feb40caf-580b-4b9a-80c5-6d47ca03d1b6"] +Cell[165714, 4292, 130, 2, 36, "Input",ExpressionUUID->"793ccd2e-d893-43bd-9c87-b89229ad7703"], +Cell[165847, 4296, 225, 4, 41, "Output",ExpressionUUID->"6b3194b8-9119-4afa-a165-5c465ef5c67c"] }, Open ]], Cell[CellGroupData[{ -Cell[165199, 4357, 1148, 40, 190, "Input",ExpressionUUID->"56cec5e8-2e02-42fb-8e98-3dcf1ded3a17"], -Cell[166350, 4399, 218, 4, 58, "Output",ExpressionUUID->"2f96b3a1-0af1-4dfe-b823-77856a7698de"] +Cell[166109, 4305, 1144, 39, 144, "Input",ExpressionUUID->"56cec5e8-2e02-42fb-8e98-3dcf1ded3a17"], +Cell[167256, 4346, 240, 4, 41, "Output",ExpressionUUID->"9f6872be-a51d-4478-a7d9-6af047c775a2"] }, Open ]], Cell[CellGroupData[{ -Cell[166605, 4408, 1045, 36, 257, "Input",ExpressionUUID->"fcc4ca19-d3b8-4e35-b05a-314fefd293af"], -Cell[167653, 4446, 238, 5, 58, "Output",ExpressionUUID->"5aadace0-fd8b-45b9-9817-ec800340e9b9"] +Cell[167533, 4355, 1041, 35, 144, "Input",ExpressionUUID->"fcc4ca19-d3b8-4e35-b05a-314fefd293af"], +Cell[168577, 4392, 260, 5, 41, "Output",ExpressionUUID->"c27cf509-4f04-439d-a2b3-e168d7baa955"] }, Open ]], Cell[CellGroupData[{ -Cell[167928, 4456, 1148, 40, 190, "Input",ExpressionUUID->"cb00b729-9872-4b38-b588-3abe4d931ec8"], -Cell[169079, 4498, 222, 4, 58, "Output",ExpressionUUID->"1735fa03-19d9-46fa-9a0f-02134819655b"] +Cell[168874, 4402, 1144, 39, 144, "Input",ExpressionUUID->"cb00b729-9872-4b38-b588-3abe4d931ec8"], +Cell[170021, 4443, 246, 4, 41, "Output",ExpressionUUID->"19e9a307-ec35-4309-9c12-51ab1d8fd8ca"] }, Open ]], Cell[CellGroupData[{ -Cell[169338, 4507, 112, 2, 51, "Input",ExpressionUUID->"77af222e-239b-4e06-a300-3cd6890b0f45"], -Cell[169453, 4511, 224, 4, 58, "Output",ExpressionUUID->"b69dfc84-60dd-443c-9cc4-8b905a1e0b23"] +Cell[170304, 4452, 108, 1, 36, "Input",ExpressionUUID->"77af222e-239b-4e06-a300-3cd6890b0f45"], +Cell[170415, 4455, 248, 4, 41, "Output",ExpressionUUID->"b4c9c591-75b3-4163-9f30-c091736ab8c9"] }, Open ]], Cell[CellGroupData[{ -Cell[169714, 4520, 112, 2, 51, "Input",ExpressionUUID->"bd805f25-b985-4cc0-96ca-d35749e7f5bb"], -Cell[169829, 4524, 241, 5, 58, "Output",ExpressionUUID->"5ea635f7-b3f1-4751-bde1-21dedb82a76b"] +Cell[170700, 4464, 108, 1, 36, "Input",ExpressionUUID->"bd805f25-b985-4cc0-96ca-d35749e7f5bb"], +Cell[170811, 4467, 263, 5, 41, "Output",ExpressionUUID->"71fcf2a6-6fe4-41c3-a289-d735f2d8c80c"] }, Open ]], Cell[CellGroupData[{ -Cell[170107, 4534, 112, 2, 51, "Input",ExpressionUUID->"be4e622c-9bb7-4110-a469-a61d282192c3"], -Cell[170222, 4538, 239, 5, 58, "Output",ExpressionUUID->"70e543e8-3510-4219-82bc-9f7099a88b6b"] +Cell[171111, 4477, 108, 1, 36, "Input",ExpressionUUID->"be4e622c-9bb7-4110-a469-a61d282192c3"], +Cell[171222, 4480, 261, 5, 41, "Output",ExpressionUUID->"cc653070-017a-4492-95c9-e19a0f915937"] }, Open ]], Cell[CellGroupData[{ -Cell[170498, 4548, 112, 2, 51, "Input",ExpressionUUID->"fba58724-aae6-4177-8f5d-352d9088fe66"], -Cell[170613, 4552, 219, 4, 58, "Output",ExpressionUUID->"9cb081e3-1c16-4828-9ec1-b84b1faad2c0"] +Cell[171520, 4490, 108, 1, 36, "Input",ExpressionUUID->"fba58724-aae6-4177-8f5d-352d9088fe66"], +Cell[171631, 4493, 243, 4, 41, "Output",ExpressionUUID->"76c5cbc7-f654-47bb-b7ad-68f913340f34"] }, Open ]], Cell[CellGroupData[{ -Cell[170869, 4561, 111, 2, 51, "Input",ExpressionUUID->"be25ab07-b327-4400-93a2-96e5c6b3ccff"], -Cell[170983, 4565, 221, 4, 58, "Output",ExpressionUUID->"94eaa887-c3a7-4bf0-b3d9-2b1dbc19b63e"] +Cell[171911, 4502, 107, 1, 36, "Input",ExpressionUUID->"be25ab07-b327-4400-93a2-96e5c6b3ccff"], +Cell[172021, 4505, 245, 4, 41, "Output",ExpressionUUID->"1b4b5753-8066-4464-9127-f60ad64d2584"] }, Open ]], Cell[CellGroupData[{ -Cell[171241, 4574, 111, 2, 51, "Input",ExpressionUUID->"0a948ed0-8af1-49b9-aa61-48aab6f17baf"], -Cell[171355, 4578, 222, 4, 58, "Output",ExpressionUUID->"ddec6491-f389-4cd0-94d5-37daf9bd99a2"] +Cell[172303, 4514, 107, 1, 36, "Input",ExpressionUUID->"0a948ed0-8af1-49b9-aa61-48aab6f17baf"], +Cell[172413, 4517, 244, 4, 41, "Output",ExpressionUUID->"3620900b-0409-4c44-9dd4-aaa8174785ef"] }, Open ]], Cell[CellGroupData[{ -Cell[171614, 4587, 501, 17, 97, "Input",ExpressionUUID->"775d3f9f-6bfb-47fa-86fe-930eb61f9408"], -Cell[172118, 4606, 242, 5, 58, "Output",ExpressionUUID->"3128cdab-ddb9-4e92-b3c7-1bd17df91fd2"] +Cell[172694, 4526, 497, 16, 71, "Input",ExpressionUUID->"775d3f9f-6bfb-47fa-86fe-930eb61f9408"], +Cell[173194, 4544, 264, 5, 41, "Output",ExpressionUUID->"80ff955f-77a5-4405-98a9-4a60a4e731dc"] }, Open ]], Cell[CellGroupData[{ -Cell[172397, 4616, 501, 17, 97, "Input",ExpressionUUID->"7f8a5858-9014-486a-bcb3-74b8f2d71e17"], -Cell[172901, 4635, 234, 5, 58, "Output",ExpressionUUID->"dc739dac-f20f-41b8-98e0-8784389e180a"] +Cell[173495, 4554, 497, 16, 71, "Input",ExpressionUUID->"7f8a5858-9014-486a-bcb3-74b8f2d71e17"], +Cell[173995, 4572, 258, 5, 41, "Output",ExpressionUUID->"b807bd8c-217c-4178-8d86-69d3b29fc931"] }, Open ]], Cell[CellGroupData[{ -Cell[173172, 4645, 1792, 61, 324, "Input",ExpressionUUID->"e07f6b2f-3131-4527-a18d-26e3f7bd7ec3"], -Cell[174967, 4708, 224, 4, 58, "Output",ExpressionUUID->"2df9cc3c-76e3-4ad6-878f-e5f50f4183b8"] +Cell[174290, 4582, 1788, 60, 340, "Input",ExpressionUUID->"e07f6b2f-3131-4527-a18d-26e3f7bd7ec3"], +Cell[176081, 4644, 246, 4, 41, "Output",ExpressionUUID->"50e7f044-4113-4a73-8970-21bc95fda901"] }, Open ]], Cell[CellGroupData[{ -Cell[175228, 4717, 1105, 37, 231, "Input",ExpressionUUID->"06dd3ca2-9fda-4a46-bad5-5159bc6ff19c"], -Cell[176336, 4756, 239, 5, 58, "Output",ExpressionUUID->"4929fdb6-453c-420f-b70b-483e8e5b542c"] +Cell[176364, 4653, 1101, 36, 174, "Input",ExpressionUUID->"06dd3ca2-9fda-4a46-bad5-5159bc6ff19c"], +Cell[177468, 4691, 261, 5, 41, "Output",ExpressionUUID->"4234e296-b208-4ce0-8077-c0478c6c07dd"] }, Open ]], Cell[CellGroupData[{ -Cell[176612, 4766, 1822, 62, 283, "Input",ExpressionUUID->"daa564ad-c60b-4423-9c6f-031d136161bf"], -Cell[178437, 4830, 221, 4, 58, "Output",ExpressionUUID->"85ee5f42-2eff-4387-a0bc-3c352b854517"] +Cell[177766, 4701, 1818, 61, 340, "Input",ExpressionUUID->"daa564ad-c60b-4423-9c6f-031d136161bf"], +Cell[179587, 4764, 245, 4, 41, "Output",ExpressionUUID->"8ed2d4b5-9785-4327-85b1-459711b49ee2"] }, Open ]], Cell[CellGroupData[{ -Cell[178695, 4839, 1635, 54, 141, "Input",ExpressionUUID->"6a187063-737f-41da-b5db-d39f18dfcc54"], -Cell[180333, 4895, 223, 4, 58, "Output",ExpressionUUID->"602b227b-47dd-40cb-9fa3-78ca36ea8aca"] +Cell[179869, 4773, 1631, 53, 208, "Input",ExpressionUUID->"6a187063-737f-41da-b5db-d39f18dfcc54"], +Cell[181503, 4828, 244, 4, 41, "Output",ExpressionUUID->"c2f2f455-843d-47f9-9699-ca45076456fb"] }, Open ]], Cell[CellGroupData[{ -Cell[180593, 4904, 1635, 54, 208, "Input",ExpressionUUID->"43142659-682d-4196-aac6-db3d706f19fa"], -Cell[182231, 4960, 221, 4, 41, "Output",ExpressionUUID->"efcd55d7-a7e3-4de2-8879-5f8c904baddb"] +Cell[181784, 4837, 1631, 53, 208, "Input",ExpressionUUID->"43142659-682d-4196-aac6-db3d706f19fa"], +Cell[183418, 4892, 243, 4, 41, "Output",ExpressionUUID->"112cfb8e-7891-4186-8cd8-4c021b65cfbf"] }, Open ]], -Cell[182467, 4967, 187, 4, 36, "Input",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], -Cell[182657, 4973, 156, 3, 36, "Input",ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-c82e80965ca9"], -Cell[182816, 4978, 184, 4, 36, "Input",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], -Cell[183003, 4984, 152, 3, 36, "Input",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], Cell[CellGroupData[{ -Cell[183180, 4991, 1301, 43, 174, "Input",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], -Cell[184484, 5036, 176, 3, 41, "Output",ExpressionUUID->"b2b0fbe6-496d-0b4b-a132-3f215e541d44"] +Cell[183698, 4901, 206, 3, 36, "Input",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], +Cell[183907, 4906, 160, 2, 41, "Output",ExpressionUUID->"aff04183-c64b-434f-90f8-1d394a256637"] }, Open ]], +Cell[184082, 4911, 175, 2, 109, "Input",ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-c82e80965ca9"], Cell[CellGroupData[{ -Cell[184697, 5044, 908, 31, 73, "Input",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], -Cell[185608, 5077, 175, 3, 41, "Output",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] +Cell[184282, 4917, 203, 3, 36, "Input",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], +Cell[184488, 4922, 160, 2, 41, "Output",ExpressionUUID->"5225805b-8855-4b92-8cb0-e69aa7216d27"] }, Open ]], +Cell[184663, 4927, 171, 2, 109, "Input",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], Cell[CellGroupData[{ -Cell[185820, 5085, 887, 30, 73, "Input",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], -Cell[186710, 5117, 177, 3, 41, "Output",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] +Cell[184859, 4933, 1297, 42, 174, "Input",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], +Cell[186159, 4977, 193, 2, 41, "Output",ExpressionUUID->"e8e7d1ca-bfed-4581-97ac-829fb79012c5"] }, Open ]], Cell[CellGroupData[{ -Cell[186924, 5125, 558, 19, 66, "Input",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], -Cell[187485, 5146, 172, 3, 41, "Output",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] +Cell[186389, 4984, 927, 30, 128, "Input",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], +Cell[187319, 5016, 196, 2, 41, "Output",ExpressionUUID->"a3541f8c-2e43-4225-a235-8ebc924f661b"] }, Open ]], Cell[CellGroupData[{ -Cell[187694, 5154, 651, 22, 66, "Input",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], -Cell[188348, 5178, 170, 3, 41, "Output",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] +Cell[187552, 5023, 906, 29, 128, "Input",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], +Cell[188461, 5054, 194, 2, 41, "Output",ExpressionUUID->"af41b28d-69e6-458e-a4f9-75b6ab890b93"] }, Open ]], Cell[CellGroupData[{ -Cell[188555, 5186, 170, 5, 71, "Input",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], -Cell[188728, 5193, 173, 3, 41, "Output",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +Cell[188692, 5061, 554, 18, 66, "Input",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], +Cell[189249, 5081, 190, 2, 41, "Output",ExpressionUUID->"23cf24bb-d723-476b-b015-0003237da145"] }, Open ]], Cell[CellGroupData[{ -Cell[188938, 5201, 170, 5, 69, "Input",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], -Cell[189111, 5208, 169, 3, 41, "Output",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +Cell[189476, 5088, 647, 21, 66, "Input",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], +Cell[190126, 5111, 189, 2, 41, "Output",ExpressionUUID->"001430d6-739d-4b97-ba29-8dfa8f2f5656"] }, Open ]], Cell[CellGroupData[{ -Cell[189317, 5216, 181, 5, 55, "Input",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], -Cell[189501, 5223, 173, 3, 41, "Output",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +Cell[190352, 5118, 166, 4, 71, "Input",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], +Cell[190521, 5124, 191, 2, 41, "Output",ExpressionUUID->"54a9668d-9b86-44b2-8702-caa36b57beb7"] }, Open ]], Cell[CellGroupData[{ -Cell[189711, 5231, 181, 5, 55, "Input",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], -Cell[189895, 5238, 170, 3, 41, "Output",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +Cell[190749, 5131, 166, 4, 69, "Input",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], +Cell[190918, 5137, 190, 2, 41, "Output",ExpressionUUID->"82b960dd-0bc2-4e35-8bae-3615556e3616"] }, Open ]], Cell[CellGroupData[{ -Cell[190102, 5246, 6055, 185, 431, "Input",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], -Cell[196160, 5433, 174, 3, 41, "Output",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +Cell[191145, 5144, 177, 4, 55, "Input",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], +Cell[191325, 5150, 191, 2, 41, "Output",ExpressionUUID->"cd83e372-60bc-4253-a8f8-7b0073789768"] }, Open ]], Cell[CellGroupData[{ -Cell[196371, 5441, 368, 9, 53, "Input",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], -Cell[196742, 5452, 170, 3, 41, "Output",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +Cell[191553, 5157, 177, 4, 55, "Input",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], +Cell[191733, 5163, 188, 2, 41, "Output",ExpressionUUID->"73212cdf-2a22-4a93-8d31-2b90875b73bd"] }, Open ]], Cell[CellGroupData[{ -Cell[196949, 5460, 6122, 187, 431, "Input",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], -Cell[203074, 5649, 174, 3, 41, "Output",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +Cell[191958, 5170, 6051, 184, 831, "Input",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], +Cell[198012, 5356, 193, 2, 41, "Output",ExpressionUUID->"433ea8d6-ba99-4498-9849-f1c27d98f41a"] }, Open ]], Cell[CellGroupData[{ -Cell[203285, 5657, 368, 9, 53, "Input",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], -Cell[203656, 5668, 170, 3, 41, "Output",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +Cell[198242, 5363, 364, 8, 53, "Input",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], +Cell[198609, 5373, 191, 2, 41, "Output",ExpressionUUID->"ada6d554-aa28-4eb3-87b4-3278c04af0b7"] }, Open ]], Cell[CellGroupData[{ -Cell[203863, 5676, 2663, 88, 215, "Input",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], -Cell[206529, 5766, 171, 3, 41, "Output",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +Cell[198837, 5380, 6118, 186, 900, "Input",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], +Cell[204958, 5568, 192, 2, 41, "Output",ExpressionUUID->"b13375b1-14ba-4236-912a-ca0531b13a28"] }, Open ]], Cell[CellGroupData[{ -Cell[206737, 5774, 2603, 85, 215, "Input",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], -Cell[209343, 5861, 171, 3, 41, "Output",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +Cell[205187, 5575, 364, 8, 53, "Input",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], +Cell[205554, 5585, 188, 2, 41, "Output",ExpressionUUID->"c9336089-4d6d-4ba6-b954-1540e1c9d5e4"] }, Open ]], Cell[CellGroupData[{ -Cell[209551, 5869, 3712, 118, 316, "Input",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], -Cell[213266, 5989, 171, 3, 41, "Output",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] +Cell[205779, 5592, 2659, 87, 435, "Input",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], +Cell[208441, 5681, 190, 2, 41, "Output",ExpressionUUID->"568e9c9c-6b12-4cc2-b9ef-00c0b655d8f4"] }, Open ]], -Cell[213452, 5995, 138, 3, 36, "Input",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], Cell[CellGroupData[{ -Cell[213615, 6002, 2054, 59, 116, "Input",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], -Cell[215672, 6063, 566, 12, 109, "Message",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], -Cell[216241, 6077, 569, 12, 109, "Message",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], -Cell[216813, 6091, 570, 12, 109, "Message",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], -Cell[217386, 6105, 458, 10, 109, "Message",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], -Cell[217847, 6117, 172, 3, 109, "Output",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +Cell[208668, 5688, 2599, 84, 435, "Input",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], +Cell[211270, 5774, 189, 2, 41, "Output",ExpressionUUID->"6b01f670-67cf-436c-96c0-e1c3bd460c15"] }, Open ]], Cell[CellGroupData[{ -Cell[218056, 6125, 2052, 59, 116, "Input",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], -Cell[220111, 6186, 564, 12, 71, "Message",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], -Cell[220678, 6200, 567, 12, 71, "Message",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], -Cell[221248, 6214, 570, 12, 71, "Message",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], -Cell[221821, 6228, 455, 10, 26, "Message",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], -Cell[222279, 6240, 169, 3, 41, "Output",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +Cell[211496, 5781, 3708, 117, 575, "Input",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], +Cell[215207, 5900, 189, 2, 41, "Output",ExpressionUUID->"155fa742-4161-41b7-968c-f4260ebb986d"] }, Open ]], +Cell[215411, 5905, 160, 3, 109, "Input",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], Cell[CellGroupData[{ -Cell[222485, 6248, 1936, 53, 86, "Input",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], -Cell[224424, 6303, 19994, 375, 295, "Output",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] +Cell[215596, 5912, 2073, 58, 276, "Input",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], +Cell[217672, 5972, 665, 14, 73, "Message",ExpressionUUID->"ceda59be-7b96-43e3-9bd6-a174c8dfa0a7"], +Cell[218340, 5988, 664, 14, 73, "Message",ExpressionUUID->"323ece43-557a-4955-972c-b53881b1460e"], +Cell[219007, 6004, 667, 14, 73, "Message",ExpressionUUID->"282445dd-6ec9-41f9-8df0-401d4d1807da"], +Cell[219677, 6020, 491, 11, 32, "Message",ExpressionUUID->"6d0b23b1-9135-4e2e-9353-58b2a1f1487a"], +Cell[220171, 6033, 193, 2, 41, "Output",ExpressionUUID->"dde1f20f-6121-4334-ae9f-fa06f9572364"] }, Open ]], Cell[CellGroupData[{ -Cell[244455, 6683, 2092, 60, 116, "Input",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], -Cell[246550, 6745, 501, 11, 48, "Message",ExpressionUUID->"53d31480-3c5e-ef4a-987b-a232cf0b03f3"], -Cell[247054, 6758, 503, 11, 48, "Message",ExpressionUUID->"b7d94271-16f1-6346-b579-21279019eafb"], -Cell[247560, 6771, 506, 11, 48, "Message",ExpressionUUID->"bfaea4b0-a812-1847-9911-9291b70d2c8f"], -Cell[248069, 6784, 456, 10, 26, "Message",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], -Cell[248528, 6796, 41581, 727, 292, "Output",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] +Cell[220401, 6040, 2071, 58, 276, "Input",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], +Cell[222475, 6100, 663, 14, 73, "Message",ExpressionUUID->"0e0aa8e8-c9d3-4430-9239-ea981f40d8a3"], +Cell[223141, 6116, 663, 14, 73, "Message",ExpressionUUID->"44ff1504-e30b-436c-ba29-073a253f89d4"], +Cell[223807, 6132, 663, 14, 73, "Message",ExpressionUUID->"8a6efd5a-5964-4fac-aeb8-20516dc65a02"], +Cell[224473, 6148, 490, 11, 32, "Message",ExpressionUUID->"0366b586-004d-49ad-87de-b9aea0bf7e28"], +Cell[224966, 6161, 187, 2, 41, "Output",ExpressionUUID->"fc164da9-0ba9-4fb3-9c54-c7316e5e039b"] }, Open ]], -Cell[290124, 7526, 2452, 69, 140, "Input",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], -Cell[292579, 7597, 209, 5, 36, "Input",ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-0ac982b58a3a"], Cell[CellGroupData[{ -Cell[292813, 7606, 217, 7, 61, "Input",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], -Cell[293033, 7615, 170, 3, 41, "Output",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +Cell[225190, 6168, 2047, 54, 232, "Input",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], +Cell[227240, 6224, 20440, 385, 290, "Output",ExpressionUUID->"bde19bad-b163-46e0-9219-aaa3dac29561"] }, Open ]], Cell[CellGroupData[{ -Cell[293240, 7623, 1814, 53, 116, "Input",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], -Cell[295057, 7678, 506, 11, 48, "Message",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], -Cell[295566, 7691, 512, 11, 48, "Message",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], -Cell[296081, 7704, 509, 11, 48, "Message",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], -Cell[296593, 7717, 456, 10, 26, "Message",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], -Cell[297052, 7729, 22336, 412, 290, "Output",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] +Cell[247717, 6614, 2111, 59, 311, "Input",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], +Cell[249831, 6675, 530, 12, 71, "Message",ExpressionUUID->"a6ae2433-e74f-4fe2-9b4b-71133b5442f4"], +Cell[250364, 6689, 534, 12, 71, "Message",ExpressionUUID->"7569f0d3-10eb-42f5-9cee-42a4e82b489c"], +Cell[250901, 6703, 536, 12, 71, "Message",ExpressionUUID->"6e2b77a5-13cf-4bad-a271-7105003c4218"], +Cell[251440, 6717, 491, 11, 32, "Message",ExpressionUUID->"f89d3d2d-4ee4-4245-9ba7-4c4fbc29fd18"], +Cell[251934, 6730, 21866, 404, 290, "Output",ExpressionUUID->"dce62527-3097-41c0-954b-117e42b6cd3d"] }, Open ]], Cell[CellGroupData[{ -Cell[319425, 8146, 1616, 48, 86, "Input",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], -Cell[321044, 8196, 584, 12, 71, "Message",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], -Cell[321631, 8210, 588, 12, 71, "Message",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], -Cell[322222, 8224, 591, 12, 71, "Message",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], -Cell[322816, 8238, 456, 10, 26, "Message",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], -Cell[323275, 8250, 173, 3, 41, "Output",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] +Cell[273837, 7139, 2474, 69, 296, "Input",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], +Cell[276314, 7210, 9492, 222, 298, "Output",ExpressionUUID->"5d9bb473-2680-42ee-a69f-dd0365bc0656"] }, Open ]], Cell[CellGroupData[{ -Cell[323485, 8258, 2274, 65, 81, "Input",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], -Cell[325762, 8325, 566, 12, 71, "Message",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], -Cell[326331, 8339, 569, 12, 71, "Message",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], -Cell[326903, 8353, 572, 12, 71, "Message",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], -Cell[327478, 8367, 458, 10, 26, "Message",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], -Cell[327939, 8379, 171, 3, 41, "Output",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] +Cell[285843, 7437, 228, 4, 36, "Input",ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-0ac982b58a3a"], +Cell[286074, 7443, 28228, 536, 290, "Output",ExpressionUUID->"8addff04-eee1-4301-aa88-da2e9bcaa7aa"] }, Open ]], Cell[CellGroupData[{ -Cell[328147, 8387, 2221, 64, 81, "Input",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], -Cell[330371, 8453, 564, 12, 71, "Message",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], -Cell[330938, 8467, 567, 12, 71, "Message",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], -Cell[331508, 8481, 570, 12, 71, "Message",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], -Cell[332081, 8495, 456, 10, 32, "Message",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], -Cell[332540, 8507, 173, 3, 41, "Output",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] +Cell[314339, 7984, 236, 6, 61, "Input",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], +Cell[314578, 7992, 189, 2, 41, "Output",ExpressionUUID->"192cd279-8692-4355-93bd-0a75cb9a9846"] }, Open ]], Cell[CellGroupData[{ -Cell[332750, 8515, 2223, 64, 81, "Input",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], -Cell[334976, 8581, 566, 12, 71, "Message",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], -Cell[335545, 8595, 569, 12, 71, "Message",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], -Cell[336117, 8609, 570, 12, 71, "Message",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], -Cell[336690, 8623, 458, 10, 26, "Message",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], -Cell[337151, 8635, 170, 3, 41, "Output",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] +Cell[314804, 7999, 1833, 52, 311, "Input",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], +Cell[316640, 8053, 545, 12, 71, "Message",ExpressionUUID->"73ecf152-e6c4-4e22-99c2-bbdd639446af"], +Cell[317188, 8067, 545, 12, 71, "Message",ExpressionUUID->"08a0dac2-5058-4622-82ec-ff269b0d08ca"], +Cell[317736, 8081, 549, 12, 71, "Message",ExpressionUUID->"b7a3baed-fde3-41e8-9ba6-ff87dbaf3efa"], +Cell[318288, 8095, 491, 11, 32, "Message",ExpressionUUID->"33077a37-326d-4aa4-bd6c-ee94a1f8334c"], +Cell[318782, 8108, 21762, 404, 290, "Output",ExpressionUUID->"083ba684-d987-466e-8222-1e313e8c77c7"] }, Open ]], Cell[CellGroupData[{ -Cell[337358, 8643, 213, 6, 60, "Input",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], -Cell[337574, 8651, 171, 3, 41, "Output",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] +Cell[340581, 8517, 1616, 48, 132, "Input",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], +Cell[342200, 8567, 668, 14, 73, "Message",ExpressionUUID->"e569a904-c17d-4369-924c-6c35b6cf9b94"], +Cell[342871, 8583, 665, 14, 73, "Message",ExpressionUUID->"f0c76bc5-f1fd-4048-9b80-870ce9e22874"], +Cell[343539, 8599, 665, 14, 73, "Message",ExpressionUUID->"0f8a8a82-7058-4506-8b81-26ca9bd8f5a3"], +Cell[344207, 8615, 493, 11, 32, "Message",ExpressionUUID->"6f7e51eb-f4c3-4da0-a4aa-0377dc3a2657"], +Cell[344703, 8628, 195, 3, 41, "Output",ExpressionUUID->"7604f6ff-81c0-4083-bd08-138af176db89"] }, Open ]], -Cell[337760, 8657, 244, 5, 36, "Input",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], Cell[CellGroupData[{ -Cell[338029, 8666, 558, 19, 66, "Input",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], -Cell[338590, 8687, 173, 3, 41, "Output",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] +Cell[344935, 8636, 2296, 65, 348, "Input",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], +Cell[347234, 8703, 668, 14, 73, "Message",ExpressionUUID->"023e1222-7d4a-460a-b721-7a226fb6af59"], +Cell[347905, 8719, 670, 14, 73, "Message",ExpressionUUID->"67ef4a1a-f49c-4c69-a06b-a40a97064641"], +Cell[348578, 8735, 668, 14, 73, "Message",ExpressionUUID->"c2431224-fb41-42e1-99b1-00625e3e32af"], +Cell[349249, 8751, 495, 11, 32, "Message",ExpressionUUID->"add3e4a8-b684-48e5-b980-37ce0f084c95"], +Cell[349747, 8764, 194, 3, 41, "Output",ExpressionUUID->"ff388c79-ba49-4fc3-a6a1-ac0b4e628197"] }, Open ]], Cell[CellGroupData[{ -Cell[338800, 8695, 170, 5, 71, "Input",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], -Cell[338973, 8702, 171, 3, 41, "Output",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] +Cell[349978, 8772, 2233, 63, 348, "Input",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], +Cell[352214, 8837, 666, 14, 73, "Message",ExpressionUUID->"06d9bd8c-b479-465a-b270-6b35ea513849"], +Cell[352883, 8853, 666, 14, 73, "Message",ExpressionUUID->"3b51b809-b02d-430c-bb7d-1bda3fc99a46"], +Cell[353552, 8869, 665, 14, 73, "Message",ExpressionUUID->"8f17dd61-83f8-4833-97ac-462db39d0e24"], +Cell[354220, 8885, 493, 11, 32, "Message",ExpressionUUID->"28452cfc-d08c-4e9e-88bc-5640e7143d42"], +Cell[354716, 8898, 194, 3, 41, "Output",ExpressionUUID->"78b8e96a-843c-4648-96bb-b6e53df6ff2f"] }, Open ]], Cell[CellGroupData[{ -Cell[339181, 8710, 181, 5, 55, "Input",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], -Cell[339365, 8717, 173, 3, 41, "Output",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] +Cell[354947, 8906, 2235, 63, 348, "Input",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], +Cell[357185, 8971, 668, 14, 73, "Message",ExpressionUUID->"3c3408f3-6282-4c8d-8755-b494533a4f05"], +Cell[357856, 8987, 670, 14, 73, "Message",ExpressionUUID->"264da4f4-4920-4c4f-986b-4e3740b2f0f0"], +Cell[358529, 9003, 668, 14, 73, "Message",ExpressionUUID->"1a1f0e47-7a5d-476c-b9a2-0ac8bb34da3d"], +Cell[359200, 9019, 494, 11, 32, "Message",ExpressionUUID->"de343a2e-82b1-41fc-82df-7b0e05660c4c"], +Cell[359697, 9032, 192, 3, 41, "Output",ExpressionUUID->"9fdc14c2-b78d-4fb0-8adc-d7b8b058695a"] }, Open ]], Cell[CellGroupData[{ -Cell[339575, 8725, 6055, 185, 431, "Input",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], -Cell[345633, 8912, 175, 3, 41, "Output",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] +Cell[359926, 9040, 236, 6, 60, "Input",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], +Cell[360165, 9048, 195, 3, 41, "Output",ExpressionUUID->"9e409016-4a5f-45bf-b2a5-80286a26d191"] }, Open ]], +Cell[360375, 9054, 270, 6, 109, "Input",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], Cell[CellGroupData[{ -Cell[345845, 8920, 368, 9, 53, "Input",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], -Cell[346216, 8931, 172, 3, 41, "Output",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] +Cell[360670, 9064, 558, 19, 66, "Input",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], +Cell[361231, 9085, 197, 3, 41, "Output",ExpressionUUID->"97099d3a-e0a8-49f6-86d6-c916fef7b188"] }, Open ]], Cell[CellGroupData[{ -Cell[346425, 8939, 6122, 187, 431, "Input",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], -Cell[352550, 9128, 173, 3, 41, "Output",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] +Cell[361465, 9093, 170, 5, 71, "Input",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], +Cell[361638, 9100, 193, 3, 41, "Output",ExpressionUUID->"6bbd1763-c23d-4428-9320-dfe3e9df58a6"] }, Open ]], Cell[CellGroupData[{ -Cell[352760, 9136, 368, 9, 53, "Input",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], -Cell[353131, 9147, 170, 3, 41, "Output",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] +Cell[361868, 9108, 181, 5, 55, "Input",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], +Cell[362052, 9115, 197, 3, 41, "Output",ExpressionUUID->"3125f0f0-1d63-4752-b36f-4c74b4bd0453"] }, Open ]], Cell[CellGroupData[{ -Cell[353338, 9155, 2663, 88, 215, "Input",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], -Cell[356004, 9245, 171, 3, 41, "Output",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] +Cell[362286, 9123, 6055, 185, 831, "Input",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], +Cell[368344, 9310, 197, 3, 41, "Output",ExpressionUUID->"ff942a48-42cf-4927-a59f-45eeaa66b7e4"] }, Open ]], Cell[CellGroupData[{ -Cell[356212, 9253, 2603, 85, 215, "Input",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], -Cell[358818, 9340, 171, 3, 41, "Output",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] +Cell[368578, 9318, 368, 9, 53, "Input",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], +Cell[368949, 9329, 195, 3, 41, "Output",ExpressionUUID->"aac1d043-de1e-4c00-86f1-4bf68251ef26"] }, Open ]], Cell[CellGroupData[{ -Cell[359026, 9348, 3712, 118, 316, "Input",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], -Cell[362741, 9468, 170, 3, 41, "Output",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] +Cell[369181, 9337, 6122, 187, 900, "Input",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], +Cell[375306, 9526, 197, 3, 41, "Output",ExpressionUUID->"88e1900f-fe38-4cd0-96d1-0aaee88c307e"] }, Open ]], Cell[CellGroupData[{ -Cell[362948, 9476, 2052, 59, 116, "Input",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], -Cell[365003, 9537, 573, 12, 71, "Message",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], -Cell[365579, 9551, 577, 12, 71, "Message",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], -Cell[366159, 9565, 580, 12, 71, "Message",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], -Cell[366742, 9579, 456, 10, 26, "Message",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], -Cell[367201, 9591, 170, 3, 41, "Output",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] +Cell[375540, 9534, 368, 9, 53, "Input",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], +Cell[375911, 9545, 196, 3, 41, "Output",ExpressionUUID->"5a9cdbe4-ff2c-4366-b24d-1c703b4ffa26"] }, Open ]], Cell[CellGroupData[{ -Cell[367408, 9599, 2054, 59, 116, "Input",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], -Cell[369465, 9660, 573, 12, 71, "Message",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], -Cell[370041, 9674, 577, 12, 71, "Message",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], -Cell[370621, 9688, 582, 12, 71, "Message",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], -Cell[371206, 9702, 456, 10, 26, "Message",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], -Cell[371665, 9714, 170, 3, 41, "Output",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] +Cell[376144, 9553, 2663, 88, 435, "Input",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], +Cell[378810, 9643, 196, 3, 41, "Output",ExpressionUUID->"c46cbd2e-511f-4e68-8c5f-df5f6511d517"] }, Open ]], Cell[CellGroupData[{ -Cell[371872, 9722, 2028, 55, 63, "Input",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], -Cell[373903, 9779, 20422, 382, 295, "Output",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] +Cell[379043, 9651, 2603, 85, 435, "Input",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], +Cell[381649, 9738, 195, 3, 41, "Output",ExpressionUUID->"66417ce2-197d-448d-807d-3ba8692de0b5"] }, Open ]], Cell[CellGroupData[{ -Cell[394362, 10166, 2120, 60, 116, "Input",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], -Cell[396485, 10228, 502, 11, 48, "Message",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], -Cell[396990, 10241, 506, 11, 48, "Message",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], -Cell[397499, 10254, 505, 11, 48, "Message",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], -Cell[398007, 10267, 458, 10, 26, "Message",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], -Cell[398468, 10279, 22288, 412, 290, "Output",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] +Cell[381881, 9746, 3712, 118, 575, "Input",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], +Cell[385596, 9866, 193, 3, 41, "Output",ExpressionUUID->"0087abd8-a645-44a6-9b13-dfdfcfa80c10"] }, Open ]], -Cell[420771, 10694, 209, 5, 36, "Input",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], Cell[CellGroupData[{ -Cell[421005, 10703, 1616, 48, 86, "Input",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], -Cell[422624, 10753, 595, 12, 71, "Message",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], -Cell[423222, 10767, 595, 12, 71, "Message",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], -Cell[423820, 10781, 599, 12, 71, "Message",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], -Cell[424422, 10795, 456, 10, 26, "Message",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], -Cell[424881, 10807, 171, 3, 41, "Output",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] +Cell[385826, 9874, 2075, 59, 276, "Input",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], +Cell[387904, 9935, 572, 12, 98, "Message",ExpressionUUID->"d8681335-7051-4f37-905c-d4119a03fa5f"], +Cell[388479, 9949, 665, 14, 73, "Message",ExpressionUUID->"3e5388de-54b6-4bc4-9b2e-6b59f87bd52a"], +Cell[389147, 9965, 666, 14, 73, "Message",ExpressionUUID->"0cc8962f-2df3-46ad-b61e-b88b53a693b8"], +Cell[389816, 9981, 495, 11, 32, "Message",ExpressionUUID->"8723dc91-15fa-467a-a2ef-50d8890a27b7"], +Cell[390314, 9994, 193, 3, 41, "Output",ExpressionUUID->"6069d01b-768f-4805-917b-4579f208057d"] }, Open ]], Cell[CellGroupData[{ -Cell[425089, 10815, 2248, 64, 81, "Input",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], -Cell[427340, 10881, 575, 12, 71, "Message",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], -Cell[427918, 10895, 577, 12, 71, "Message",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], -Cell[428498, 10909, 582, 12, 71, "Message",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], -Cell[429083, 10923, 458, 10, 26, "Message",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], -Cell[429544, 10935, 172, 3, 41, "Output",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] +Cell[390544, 10002, 2077, 59, 276, "Input",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], +Cell[392624, 10063, 574, 12, 98, "Message",ExpressionUUID->"d40063b0-3d69-4a27-90a5-d3c1d3eb36c2"], +Cell[393201, 10077, 666, 14, 73, "Message",ExpressionUUID->"a5e77481-bafa-4c5a-8efb-829326a6e897"], +Cell[393870, 10093, 668, 14, 73, "Message",ExpressionUUID->"8e5f5294-bb04-4897-84f6-1b44a5dadb60"], +Cell[394541, 10109, 492, 11, 32, "Message",ExpressionUUID->"f8248e13-6a05-4204-98e7-17f0c17f62fb"], +Cell[395036, 10122, 192, 3, 41, "Output",ExpressionUUID->"95defe61-d162-41df-b6c3-010ff8467293"] }, Open ]], Cell[CellGroupData[{ -Cell[429753, 10943, 2215, 63, 81, "Input",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], -Cell[431971, 11008, 575, 12, 71, "Message",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], -Cell[432549, 11022, 577, 12, 71, "Message",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], -Cell[433129, 11036, 582, 12, 71, "Message",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], -Cell[433714, 11050, 458, 10, 32, "Message",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], -Cell[434175, 11062, 170, 3, 41, "Output",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] +Cell[395265, 10130, 2051, 55, 232, "Input",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], +Cell[397319, 10187, 20373, 383, 290, "Output",ExpressionUUID->"9b132df7-0180-4341-b108-479fe2cab7bf"] }, Open ]], Cell[CellGroupData[{ -Cell[434382, 11070, 2223, 64, 81, "Input",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], -Cell[436608, 11136, 573, 12, 71, "Message",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], -Cell[437184, 11150, 577, 12, 71, "Message",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], -Cell[437764, 11164, 580, 12, 71, "Message",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], -Cell[438347, 11178, 456, 10, 32, "Message",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], -Cell[438806, 11190, 173, 3, 41, "Output",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] +Cell[417729, 10575, 2143, 60, 311, "Input",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], +Cell[419875, 10637, 536, 12, 71, "Message",ExpressionUUID->"0232d38e-68cd-4e44-aa97-86aa9aaaff48"], +Cell[420414, 10651, 535, 12, 71, "Message",ExpressionUUID->"df72f04b-800d-4d85-bb09-8754c6cb74d5"], +Cell[420952, 10665, 539, 12, 71, "Message",ExpressionUUID->"6d5b3434-c370-43b1-bcfd-7d4df033b221"], +Cell[421494, 10679, 497, 11, 32, "Message",ExpressionUUID->"cde8db0f-9c44-4c54-b1f3-acf5ed62dfff"], +Cell[421994, 10692, 22267, 414, 290, "Output",ExpressionUUID->"72cf4812-bef4-471f-9918-11263cf5e564"] }, Open ]], Cell[CellGroupData[{ -Cell[439016, 11198, 213, 6, 60, "Input",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], -Cell[439232, 11206, 173, 3, 41, "Output",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] +Cell[444298, 11111, 232, 5, 36, "Input",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], +Cell[444533, 11118, 28625, 546, 290, "Output",ExpressionUUID->"ba82c687-eb2f-4192-90ce-fd7fd8d77e28"] }, Open ]], -Cell[439420, 11212, 247, 5, 36, "Input",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], Cell[CellGroupData[{ -Cell[439692, 11221, 558, 19, 66, "Input",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], -Cell[440253, 11242, 173, 3, 41, "Output",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] +Cell[473195, 11669, 1616, 48, 132, "Input",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], +Cell[474814, 11719, 668, 14, 73, "Message",ExpressionUUID->"4bc77101-f0a7-4a4c-9c97-f22668075043"], +Cell[475485, 11735, 667, 14, 73, "Message",ExpressionUUID->"61b5c66a-a3e5-4137-8a31-55a347205397"], +Cell[476155, 11751, 668, 14, 73, "Message",ExpressionUUID->"ab88fd47-90a0-4946-8ccd-a50c961836b8"], +Cell[476826, 11767, 495, 11, 32, "Message",ExpressionUUID->"ac98fa6a-1d0a-4f2e-b19f-993ba0ae8735"], +Cell[477324, 11780, 195, 3, 41, "Output",ExpressionUUID->"72dbe2d2-42fb-4f32-b564-7bf4deafb495"] }, Open ]], Cell[CellGroupData[{ -Cell[440463, 11250, 170, 5, 71, "Input",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], -Cell[440636, 11257, 173, 3, 41, "Output",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] +Cell[477556, 11788, 2271, 64, 348, "Input",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], +Cell[479830, 11854, 574, 12, 98, "Message",ExpressionUUID->"e1919a2c-8675-41d2-bafe-579eb090ad6b"], +Cell[480407, 11868, 668, 14, 73, "Message",ExpressionUUID->"9fc0092c-1659-4d49-84aa-7c32dc059f62"], +Cell[481078, 11884, 670, 14, 73, "Message",ExpressionUUID->"040d6ed6-baed-488a-90de-331594afe503"], +Cell[481751, 11900, 495, 11, 32, "Message",ExpressionUUID->"874b7e71-383d-4308-9ef1-7cce7f112643"], +Cell[482249, 11913, 196, 3, 41, "Output",ExpressionUUID->"e93b4f19-4fb4-4056-a036-c3658cab0fa2"] }, Open ]], Cell[CellGroupData[{ -Cell[440846, 11265, 181, 5, 55, "Input",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], -Cell[441030, 11272, 173, 3, 41, "Output",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] +Cell[482482, 11921, 2229, 63, 348, "Input",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], +Cell[484714, 11986, 576, 12, 98, "Message",ExpressionUUID->"76a1421a-e124-48fa-9020-0b35aed2f301"], +Cell[485293, 12000, 668, 14, 73, "Message",ExpressionUUID->"c785b4a9-3b51-4cd7-a022-da3641fc78b4"], +Cell[485964, 12016, 668, 14, 73, "Message",ExpressionUUID->"ff67c793-0395-4a56-886d-fb8219aeed7b"], +Cell[486635, 12032, 495, 11, 32, "Message",ExpressionUUID->"3c3b6ce4-c1d5-48e5-b5a3-49b87c2858f6"], +Cell[487133, 12045, 192, 3, 41, "Output",ExpressionUUID->"e05e2754-84d5-4513-bcd5-324c4b5f6c75"] }, Open ]], Cell[CellGroupData[{ -Cell[441240, 11280, 6055, 185, 431, "Input",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], -Cell[447298, 11467, 172, 3, 41, "Output",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] +Cell[487362, 12053, 2235, 63, 348, "Input",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], +Cell[489600, 12118, 574, 12, 98, "Message",ExpressionUUID->"48c25f79-562b-4f22-9e29-fd93a180758c"], +Cell[490177, 12132, 668, 14, 73, "Message",ExpressionUUID->"52383a15-4e5f-4b90-b455-1509a3c81a97"], +Cell[490848, 12148, 666, 14, 73, "Message",ExpressionUUID->"1f5da303-db97-4cc6-b3be-a3186a8096ac"], +Cell[491517, 12164, 495, 11, 32, "Message",ExpressionUUID->"b43310af-03c3-4f9d-bed4-de9c0dd7c0f2"], +Cell[492015, 12177, 193, 3, 41, "Output",ExpressionUUID->"58ca026c-e180-44fa-857b-76b91e21caa4"] }, Open ]], Cell[CellGroupData[{ -Cell[447507, 11475, 368, 9, 53, "Input",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], -Cell[447878, 11486, 172, 3, 41, "Output",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] +Cell[492245, 12185, 236, 6, 60, "Input",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], +Cell[492484, 12193, 197, 3, 41, "Output",ExpressionUUID->"0759090a-fc2a-4cbb-9524-e8c84e93d8c3"] }, Open ]], +Cell[492696, 12199, 273, 6, 109, "Input",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], Cell[CellGroupData[{ -Cell[448087, 11494, 6122, 187, 431, "Input",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], -Cell[454212, 11683, 173, 3, 41, "Output",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] +Cell[492994, 12209, 558, 19, 66, "Input",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], +Cell[493555, 12230, 194, 3, 41, "Output",ExpressionUUID->"f04934ad-97e8-4ae5-a238-9293e4266d0b"] }, Open ]], Cell[CellGroupData[{ -Cell[454422, 11691, 368, 9, 53, "Input",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], -Cell[454793, 11702, 170, 3, 41, "Output",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] +Cell[493786, 12238, 170, 5, 71, "Input",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], +Cell[493959, 12245, 195, 3, 41, "Output",ExpressionUUID->"38c4268c-a06e-4c2a-8260-9bcdf2860dd7"] }, Open ]], Cell[CellGroupData[{ -Cell[455000, 11710, 2663, 88, 215, "Input",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], -Cell[457666, 11800, 171, 3, 41, "Output",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] +Cell[494191, 12253, 181, 5, 55, "Input",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], +Cell[494375, 12260, 197, 3, 41, "Output",ExpressionUUID->"18f9e3a8-b775-41fe-91d0-011b0e93f26c"] }, Open ]], Cell[CellGroupData[{ -Cell[457874, 11808, 2603, 85, 215, "Input",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], -Cell[460480, 11895, 173, 3, 41, "Output",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] +Cell[494609, 12268, 6055, 185, 831, "Input",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], +Cell[500667, 12455, 195, 3, 41, "Output",ExpressionUUID->"2cbd6a6d-ea7e-4a3b-8c09-4679868c1ced"] }, Open ]], Cell[CellGroupData[{ -Cell[460690, 11903, 3712, 118, 316, "Input",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], -Cell[464405, 12023, 173, 3, 41, "Output",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] +Cell[500899, 12463, 368, 9, 53, "Input",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], +Cell[501270, 12474, 195, 3, 41, "Output",ExpressionUUID->"3607a0fa-a4ca-49d9-af63-e5578da3867c"] }, Open ]], Cell[CellGroupData[{ -Cell[464615, 12031, 2052, 59, 116, "Input",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], -Cell[466670, 12092, 568, 12, 71, "Message",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], -Cell[467241, 12106, 573, 12, 71, "Message",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], -Cell[467817, 12120, 576, 12, 71, "Message",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], -Cell[468396, 12134, 458, 10, 26, "Message",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], -Cell[468857, 12146, 172, 3, 41, "Output",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] +Cell[501502, 12482, 6122, 187, 900, "Input",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], +Cell[507627, 12671, 195, 3, 41, "Output",ExpressionUUID->"f3cb302b-e7ab-4e9c-a01d-3da43af15b07"] }, Open ]], Cell[CellGroupData[{ -Cell[469066, 12154, 2052, 59, 116, "Input",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], -Cell[471121, 12215, 568, 12, 71, "Message",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], -Cell[471692, 12229, 573, 12, 71, "Message",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], -Cell[472268, 12243, 574, 12, 71, "Message",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], -Cell[472845, 12257, 458, 10, 26, "Message",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], -Cell[473306, 12269, 172, 3, 41, "Output",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] +Cell[507859, 12679, 368, 9, 53, "Input",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], +Cell[508230, 12690, 192, 3, 41, "Output",ExpressionUUID->"28537775-4988-4b95-a435-4226b181dd15"] }, Open ]], Cell[CellGroupData[{ -Cell[473515, 12277, 2028, 55, 63, "Input",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], -Cell[475546, 12334, 20375, 384, 295, "Output",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] +Cell[508459, 12698, 2663, 88, 435, "Input",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], +Cell[511125, 12788, 196, 3, 41, "Output",ExpressionUUID->"ab114425-8ec8-4f43-85d3-1f4fe4566bbf"] }, Open ]], Cell[CellGroupData[{ -Cell[495958, 12723, 2118, 60, 116, "Input",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], -Cell[498079, 12785, 501, 11, 48, "Message",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], -Cell[498583, 12798, 503, 11, 48, "Message",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], -Cell[499089, 12811, 506, 11, 48, "Message",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], -Cell[499598, 12824, 458, 10, 26, "Message",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], -Cell[500059, 12836, 22161, 409, 290, "Output",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] +Cell[511358, 12796, 2603, 85, 435, "Input",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], +Cell[513964, 12883, 195, 3, 41, "Output",ExpressionUUID->"3218b4b5-7f76-40a8-986d-f12dd0df1bd3"] }, Open ]], -Cell[522235, 13248, 209, 5, 36, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], Cell[CellGroupData[{ -Cell[522469, 13257, 1616, 48, 86, "Input",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], -Cell[524088, 13307, 590, 12, 71, "Message",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], -Cell[524681, 13321, 589, 12, 71, "Message",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], -Cell[525273, 13335, 593, 12, 71, "Message",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], -Cell[525869, 13349, 456, 10, 32, "Message",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], -Cell[526328, 13361, 170, 3, 41, "Output",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] +Cell[514196, 12891, 3712, 118, 575, "Input",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], +Cell[517911, 13011, 196, 3, 41, "Output",ExpressionUUID->"9c15ca83-6365-45cb-ae15-2c6829f719ee"] }, Open ]], Cell[CellGroupData[{ -Cell[526535, 13369, 2251, 64, 81, "Input",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], -Cell[528789, 13435, 568, 12, 71, "Message",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], -Cell[529360, 13449, 573, 12, 71, "Message",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], -Cell[529936, 13463, 574, 12, 71, "Message",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], -Cell[530513, 13477, 458, 10, 32, "Message",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], -Cell[530974, 13489, 173, 3, 41, "Output",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] +Cell[518144, 13019, 2075, 59, 276, "Input",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], +Cell[520222, 13080, 549, 12, 71, "Message",ExpressionUUID->"dab5f613-a00c-4bfd-8b6e-2bbfae462011"], +Cell[520774, 13094, 550, 12, 71, "Message",ExpressionUUID->"45eab708-1854-4c1d-b073-97215db6522e"], +Cell[521327, 13108, 552, 12, 71, "Message",ExpressionUUID->"e98f0cac-8c00-4390-aa02-2345741b1dbb"], +Cell[521882, 13122, 495, 11, 32, "Message",ExpressionUUID->"e0a5153b-5ccf-468e-a50f-fc875a92646a"], +Cell[522380, 13135, 197, 3, 41, "Output",ExpressionUUID->"2afad6a7-10e6-447f-ad87-e1798a2375a9"] }, Open ]], Cell[CellGroupData[{ -Cell[531184, 13497, 2221, 64, 81, "Input",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], -Cell[533408, 13563, 570, 12, 71, "Message",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], -Cell[533981, 13577, 573, 12, 71, "Message",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], -Cell[534557, 13591, 573, 12, 71, "Message",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], -Cell[535133, 13605, 458, 10, 32, "Message",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], -Cell[535594, 13617, 171, 3, 41, "Output",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] +Cell[522614, 13143, 2075, 59, 276, "Input",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], +Cell[524692, 13204, 549, 12, 71, "Message",ExpressionUUID->"0bc4e902-296c-4d56-a23b-985881295d9c"], +Cell[525244, 13218, 552, 12, 71, "Message",ExpressionUUID->"74a7c9d1-0bd5-4330-84a6-f6f209eab663"], +Cell[525799, 13232, 553, 12, 71, "Message",ExpressionUUID->"ec6e22d0-1755-437f-a750-8745fa8c754d"], +Cell[526355, 13246, 493, 11, 32, "Message",ExpressionUUID->"a68a1378-fc4d-4ef3-8b0a-2c7dff5dffb7"], +Cell[526851, 13259, 193, 3, 41, "Output",ExpressionUUID->"e6621d81-d471-4eec-b32b-e8da4fe651be"] }, Open ]], Cell[CellGroupData[{ -Cell[535802, 13625, 2221, 64, 81, "Input",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], -Cell[538026, 13691, 570, 12, 71, "Message",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], -Cell[538599, 13705, 573, 12, 71, "Message",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], -Cell[539175, 13719, 574, 12, 71, "Message",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], -Cell[539752, 13733, 458, 10, 32, "Message",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], -Cell[540213, 13745, 173, 3, 41, "Output",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] +Cell[527081, 13267, 2051, 55, 232, "Input",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], +Cell[529135, 13324, 19903, 377, 285, "Output",ExpressionUUID->"4c8b32f1-556c-4e87-b43f-2015cc1eac04"] }, Open ]], Cell[CellGroupData[{ -Cell[540423, 13753, 215, 6, 60, "Input",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], -Cell[540641, 13761, 172, 3, 41, "Output",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] +Cell[549075, 13706, 2141, 60, 311, "Input",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], +Cell[551219, 13768, 523, 12, 71, "Message",ExpressionUUID->"1fe4ceb7-a368-4a2e-89fa-3f1aca586c03"], +Cell[551745, 13782, 526, 12, 71, "Message",ExpressionUUID->"79634be2-3b5c-4691-8e4b-8a70e7a53995"], +Cell[552274, 13796, 491, 11, 53, "Message",ExpressionUUID->"f307daa8-83bb-4278-8f5e-2516e49ac389"], +Cell[552768, 13809, 495, 11, 32, "Message",ExpressionUUID->"1c55a1f4-4e51-4ece-bb61-d189f5b42903"], +Cell[553266, 13822, 22385, 414, 290, "Output",ExpressionUUID->"12090015-49f4-4de6-a3fa-af5ec92e7b27"] }, Open ]], -Cell[540828, 13767, 204, 3, 36, "Input",ExpressionUUID->"6e095bee-c7b8-4216-a319-367a047c5d8f"] +Cell[CellGroupData[{ +Cell[575688, 14241, 232, 5, 36, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], +Cell[575923, 14248, 28747, 546, 290, "Output",ExpressionUUID->"b67d5025-d7a8-43e1-b692-40baf99065b5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[604707, 14799, 1616, 48, 132, "Input",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], +Cell[606326, 14849, 668, 14, 73, "Message",ExpressionUUID->"8a83eabf-5fa8-4867-bc84-310c7818ea4b"], +Cell[606997, 14865, 670, 14, 73, "Message",ExpressionUUID->"4e0037a2-992f-4941-9bc5-edd940747f20"], +Cell[607670, 14881, 668, 14, 73, "Message",ExpressionUUID->"2bf86571-0e87-432e-939e-112265dfb529"], +Cell[608341, 14897, 495, 11, 32, "Message",ExpressionUUID->"1226935a-0873-4e17-9424-7c8566581296"], +Cell[608839, 14910, 193, 3, 41, "Output",ExpressionUUID->"6ba4351a-9307-4811-9776-aee977c2fe53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[609069, 14918, 2274, 64, 348, "Input",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], +Cell[611346, 14984, 547, 12, 71, "Message",ExpressionUUID->"5e41a436-d1ef-4103-a30b-a88e11a3903a"], +Cell[611896, 14998, 550, 12, 71, "Message",ExpressionUUID->"887bd1f1-0e0e-4c5f-9524-1c1616208e8a"], +Cell[612449, 15012, 553, 12, 71, "Message",ExpressionUUID->"e4caf60a-6eb6-44a9-8731-c340ddcf6b1c"], +Cell[613005, 15026, 493, 11, 32, "Message",ExpressionUUID->"1cf8cad3-c3d7-45ac-92c5-05e30a614673"], +Cell[613501, 15039, 199, 3, 41, "Output",ExpressionUUID->"e9080469-217b-4ab9-8a35-5021c6f758c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[613737, 15047, 2233, 63, 348, "Input",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], +Cell[615973, 15112, 551, 12, 71, "Message",ExpressionUUID->"a222a242-70d6-4135-985b-674a705506b9"], +Cell[616527, 15126, 554, 12, 71, "Message",ExpressionUUID->"7f6f33b9-77f7-4afc-b6c7-57c59f38e731"], +Cell[617084, 15140, 555, 12, 71, "Message",ExpressionUUID->"9a1cd1f2-594b-4df1-a9e9-b83a7098afb7"], +Cell[617642, 15154, 495, 11, 32, "Message",ExpressionUUID->"eb7fd5e7-bf6d-460f-bd77-c0ac69d9fe85"], +Cell[618140, 15167, 193, 3, 41, "Output",ExpressionUUID->"da9bd9d6-9c9b-40c1-8ded-b2f4281eb1de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[618370, 15175, 2233, 63, 348, "Input",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], +Cell[620606, 15240, 549, 12, 71, "Message",ExpressionUUID->"cd30b118-9b14-47c8-a298-9659b8c06479"], +Cell[621158, 15254, 552, 12, 71, "Message",ExpressionUUID->"95ec5731-0e66-4b63-a179-9ba9a62da948"], +Cell[621713, 15268, 557, 12, 71, "Message",ExpressionUUID->"8be576c3-6b41-47d9-a0ee-c6235b9f3fa9"], +Cell[622273, 15282, 495, 11, 32, "Message",ExpressionUUID->"4273c117-ff68-4690-9f4c-372f9724970e"], +Cell[622771, 15295, 193, 3, 41, "Output",ExpressionUUID->"f1ae9e7d-0f4d-47c6-b02a-4ea91de141d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[623001, 15303, 238, 6, 60, "Input",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], +Cell[623242, 15311, 196, 3, 41, "Output",ExpressionUUID->"2742f7fc-c8d1-4d4a-a954-20fdf9378d5a"] +}, Open ]], +Cell[623453, 15317, 209, 4, 36, "Input",ExpressionUUID->"6e095bee-c7b8-4216-a319-367a047c5d8f"] } ] *) +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_pr_Qw1.nb b/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_pr_Qw1.nb index 42e43fc..5a2202f 100644 --- a/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_pr_Qw1.nb +++ b/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_pr_Qw1.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 619160, 15034] -NotebookOptionsPosition[ 579271, 14403] -NotebookOutlinePosition[ 579712, 14421] -CellTagsIndexPosition[ 579669, 14418] +NotebookDataLength[ 676625, 16179] +NotebookOptionsPosition[ 635890, 15529] +NotebookOutlinePosition[ 636361, 15548] +CellTagsIndexPosition[ 636318, 15545] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -25,15 +25,14 @@ Cell[BoxData[ CellChangeTimes->{ 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, 3.9920650045886707`*^9, {3.993816332414463*^9, 3.993816395113246*^9}, { - 3.99408327105175*^9, - 3.99408327225659*^9}},ExpressionUUID->"6729bc0b-3d1e-457d-902b-\ -3834224c9714"], + 3.99408327105175*^9, 3.99408327225659*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"6729bc0b-3d1e-457d-902b-3834224c9714"], Cell[BoxData["1.78`"], "Output", CellChangeTimes->{ - 3.991320420900818*^9, {3.9938163104908867`*^9, 3.993816400323968*^9}}, - CellLabel-> - "Out[407]=",ExpressionUUID->"555b3389-4215-48ff-9b83-c5a7b184c778"] + 3.991320420900818*^9, {3.9938163104908867`*^9, 3.993816400323968*^9}, + 3.994256184379115*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"7c32cb43-429c-4ca4-8598-e828c4f9ba89"] }, Open ]], Cell[CellGroupData[{ @@ -42,14 +41,13 @@ Cell[BoxData[ RowBox[{"A", "=", "240"}]], "Input", CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { 3.993816070416484*^9, 3.9938160711424847`*^9}}, - CellLabel-> - "In[408]:=",ExpressionUUID->"7f2bb48f-c61b-4afd-9901-07fdf8310763"], + CellLabel->"In[2]:=",ExpressionUUID->"7f2bb48f-c61b-4afd-9901-07fdf8310763"], Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.9913196497381973`*^9, {3.993816310783677*^9, 3.9938164003801527`*^9}}, - CellLabel-> - "Out[408]=",ExpressionUUID->"3b77bb68-09cb-454d-b43b-73dbe0de1da4"] + 3.9913196497381973`*^9, {3.993816310783677*^9, 3.9938164003801527`*^9}, + 3.9942561844300547`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"93460caa-2aa2-4117-9ff9-ca2582f6e988"] }, Open ]], Cell[CellGroupData[{ @@ -58,14 +56,13 @@ Cell[BoxData[ RowBox[{"A1", "=", "164"}]], "Input", CellChangeTimes->{ 3.991798961431202*^9, {3.993816075114204*^9, 3.993816075786501*^9}}, - CellLabel-> - "In[409]:=",ExpressionUUID->"b875eda1-b81a-425a-b020-f2f39b12026d"], + CellLabel->"In[3]:=",ExpressionUUID->"b875eda1-b81a-425a-b020-f2f39b12026d"], Cell[BoxData["164"], "Output", CellChangeTimes->{ - 3.9913196497578354`*^9, {3.99381631080079*^9, 3.9938164003966837`*^9}}, - CellLabel-> - "Out[409]=",ExpressionUUID->"007eee93-79e1-4acc-810c-16f67003377a"] + 3.9913196497578354`*^9, {3.99381631080079*^9, 3.9938164003966837`*^9}, + 3.994256184438671*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"08c72ed8-6e7c-4334-a2bd-4a25c8f87d8f"] }, Open ]], Cell[CellGroupData[{ @@ -73,14 +70,13 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, - CellLabel-> - "In[410]:=",ExpressionUUID->"93a95366-b227-4778-a98f-1ff9969a1f84"], + CellLabel->"In[4]:=",ExpressionUUID->"93a95366-b227-4778-a98f-1ff9969a1f84"], Cell[BoxData["0.55`"], "Output", CellChangeTimes->{ - 3.991319649777508*^9, {3.9938163108190804`*^9, 3.99381640041328*^9}}, - CellLabel-> - "Out[410]=",ExpressionUUID->"7e17dece-7200-4bc5-8798-dd1f3c022b2e"] + 3.991319649777508*^9, {3.9938163108190804`*^9, 3.99381640041328*^9}, + 3.994256184447289*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"83a1c15e-2ba0-4328-ac4c-b87178483e42"] }, Open ]], Cell[CellGroupData[{ @@ -92,28 +88,26 @@ Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", - CellLabel-> - "In[411]:=",ExpressionUUID->"ad97586d-2f22-4a20-885b-ae878d452e35"], + CellLabel->"In[5]:=",ExpressionUUID->"ad97586d-2f22-4a20-885b-ae878d452e35"], Cell[BoxData["0.5445000000000001`"], "Output", CellChangeTimes->{ - 3.9913196497965145`*^9, {3.99381631083608*^9, 3.9938164004361677`*^9}}, - CellLabel-> - "Out[411]=",ExpressionUUID->"486fc696-7588-47c3-bca3-9e686b7088ae"] + 3.9913196497965145`*^9, {3.99381631083608*^9, 3.9938164004361677`*^9}, + 3.994256184456147*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"d54c363f-d5f9-41c9-a169-f817a10e0172"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", - CellLabel-> - "In[412]:=",ExpressionUUID->"867aaf97-b763-4f0b-a88a-dde88ae88568"], + CellLabel->"In[6]:=",ExpressionUUID->"867aaf97-b763-4f0b-a88a-dde88ae88568"], Cell[BoxData["0.17`"], "Output", CellChangeTimes->{ - 3.9913196498144608`*^9, {3.99381631085299*^9, 3.99381640045368*^9}}, - CellLabel-> - "Out[412]=",ExpressionUUID->"f1469832-9a11-4bec-a7be-05ef02cb52d8"] + 3.9913196498144608`*^9, {3.99381631085299*^9, 3.99381640045368*^9}, + 3.9942561844649687`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"85b03fc8-e7e6-4e02-9548-99c50aa9c134"] }, Open ]], Cell[CellGroupData[{ @@ -124,14 +118,13 @@ Cell[BoxData[ SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}]}]], "Input", CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, - CellLabel-> - "In[413]:=",ExpressionUUID->"023069af-2b2a-4349-b1a0-0343f9f6f0f8"], + CellLabel->"In[7]:=",ExpressionUUID->"023069af-2b2a-4349-b1a0-0343f9f6f0f8"], Cell[BoxData["6.349496262766175`"], "Output", CellChangeTimes->{ - 3.9913196498225155`*^9, {3.993816310870123*^9, 3.993816400471637*^9}}, - CellLabel-> - "Out[413]=",ExpressionUUID->"b7485a92-14bb-4b6e-ac17-31807f47726f"] + 3.9913196498225155`*^9, {3.993816310870123*^9, 3.993816400471637*^9}, + 3.994256184473792*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"5de5b1dd-c07f-4203-908f-ffe99a4751e0"] }, Open ]], Cell[CellGroupData[{ @@ -143,14 +136,13 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", - CellLabel-> - "In[414]:=",ExpressionUUID->"71ec9d78-eb5d-4ed1-b74e-f3b64fdc7fe7"], + CellLabel->"In[8]:=",ExpressionUUID->"71ec9d78-eb5d-4ed1-b74e-f3b64fdc7fe7"], Cell[BoxData["4.913555357735675`"], "Output", CellChangeTimes->{ - 3.9913196498425236`*^9, {3.993816310887587*^9, 3.993816400489262*^9}}, - CellLabel-> - "Out[414]=",ExpressionUUID->"48c705f6-9126-4f0d-92c5-1643bd2a2ff4"] + 3.9913196498425236`*^9, {3.993816310887587*^9, 3.993816400489262*^9}, + 3.994256184483391*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"6774a30a-e400-4989-913b-46db06082ae6"] }, Open ]], Cell[CellGroupData[{ @@ -159,13 +151,12 @@ Cell[BoxData[ RowBox[{"b1", "=", "0.96357"}]], "Input", CellChangeTimes->{ 3.991799283179735*^9, {3.993816155315236*^9, 3.99381616557413*^9}}, - CellLabel-> - "In[415]:=",ExpressionUUID->"df98510c-7da8-414b-93a3-e5cf699eb261"], + CellLabel->"In[9]:=",ExpressionUUID->"df98510c-7da8-414b-93a3-e5cf699eb261"], Cell[BoxData["0.96357`"], "Output", - CellChangeTimes->{{3.9938163109056883`*^9, 3.993816400504654*^9}}, - CellLabel-> - "Out[415]=",ExpressionUUID->"60040f68-2831-4570-ab6f-01736ff077f8"] + CellChangeTimes->{{3.9938163109056883`*^9, 3.993816400504654*^9}, + 3.99425618449165*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"a1363161-6138-431e-bc56-46ec23ffe91c"] }, Open ]], Cell[CellGroupData[{ @@ -174,41 +165,38 @@ Cell[BoxData[ RowBox[{"b2", "=", "0.39003"}]], "Input", CellChangeTimes->{ 3.991799280663351*^9, {3.993816167313641*^9, 3.9938161733246517`*^9}}, - CellLabel-> - "In[416]:=",ExpressionUUID->"37ef831b-0fd7-40fd-bfac-9e3a91e46f3a"], + CellLabel->"In[10]:=",ExpressionUUID->"37ef831b-0fd7-40fd-bfac-9e3a91e46f3a"], Cell[BoxData["0.39003`"], "Output", - CellChangeTimes->{{3.993816310923224*^9, 3.993816400519388*^9}}, - CellLabel-> - "Out[416]=",ExpressionUUID->"f6674c4a-a879-4a8e-be16-b377a146c2b7"] + CellChangeTimes->{{3.993816310923224*^9, 3.993816400519388*^9}, + 3.994256184500745*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"06d3e08e-7a99-4e6a-9f4e-35233e9deec7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", - CellLabel-> - "In[417]:=",ExpressionUUID->"d6f0c889-b9bd-4b6a-bd1e-a2b149e2a1fe"], + CellLabel->"In[11]:=",ExpressionUUID->"d6f0c889-b9bd-4b6a-bd1e-a2b149e2a1fe"], Cell[BoxData["0"], "Output", CellChangeTimes->{ - 3.9913196498927155`*^9, {3.993816310942574*^9, 3.993816400534342*^9}}, - CellLabel-> - "Out[417]=",ExpressionUUID->"32d0f285-85ed-456d-bff3-4a9517c58dc0"] + 3.9913196498927155`*^9, {3.993816310942574*^9, 3.993816400534342*^9}, + 3.994256184509615*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"e3d49dbd-0cbc-4a8e-8ebf-e23a7b6e2fc3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", - CellLabel-> - "In[418]:=",ExpressionUUID->"da4040a6-97b2-4ca9-9204-742e53113402"], + CellLabel->"In[12]:=",ExpressionUUID->"da4040a6-97b2-4ca9-9204-742e53113402"], Cell[BoxData["0"], "Output", CellChangeTimes->{ - 3.9913196498996067`*^9, {3.993816310960237*^9, 3.993816400549685*^9}}, - CellLabel-> - "Out[418]=",ExpressionUUID->"6ca71a68-07aa-4e87-ae82-9a1384ff5ff9"] + 3.9913196498996067`*^9, {3.993816310960237*^9, 3.993816400549685*^9}, + 3.994256184518496*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"59f1a831-d918-48c0-abc5-279605fe3ce8"] }, Open ]], Cell[CellGroupData[{ @@ -232,14 +220,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[419]:=",ExpressionUUID->"bb7b8a04-51ec-4867-95cf-0e9b97158012"], + CellLabel->"In[13]:=",ExpressionUUID->"bb7b8a04-51ec-4867-95cf-0e9b97158012"], Cell[BoxData["2.4652625900301657`"], "Output", CellChangeTimes->{ - 3.9913197863028755`*^9, {3.993816310977528*^9, 3.993816400564805*^9}}, - CellLabel-> - "Out[419]=",ExpressionUUID->"5c0a39ff-1ead-4c28-83e3-bcfaff16de3f"] + 3.9913197863028755`*^9, {3.993816310977528*^9, 3.993816400564805*^9}, + 3.994256184529216*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"44ed9f64-86b4-40ee-8191-71713ef309de"] }, Open ]], Cell[CellGroupData[{ @@ -263,14 +250,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[420]:=",ExpressionUUID->"ba39c175-67af-4d2d-9d23-5dcce620545e"], + CellLabel->"In[14]:=",ExpressionUUID->"ba39c175-67af-4d2d-9d23-5dcce620545e"], Cell[BoxData["1.4266899039519758`"], "Output", CellChangeTimes->{ - 3.9913197864610195`*^9, {3.993816310993836*^9, 3.993816400579666*^9}}, - CellLabel-> - "Out[420]=",ExpressionUUID->"323db7b0-f58b-4357-98fb-57e56e73e975"] + 3.9913197864610195`*^9, {3.993816310993836*^9, 3.993816400579666*^9}, + 3.994256184538271*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"fc6aca75-8422-400f-8581-2e564b8674f0"] }, Open ]], Cell[CellGroupData[{ @@ -325,14 +311,13 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[421]:=",ExpressionUUID->"0193cf24-dc2d-49fa-a6e9-64af673f5a04"], + CellLabel->"In[15]:=",ExpressionUUID->"0193cf24-dc2d-49fa-a6e9-64af673f5a04"], Cell[BoxData["0.3750149455401738`"], "Output", CellChangeTimes->{ - 3.991319786533783*^9, {3.993816311010377*^9, 3.993816400594367*^9}}, - CellLabel-> - "Out[421]=",ExpressionUUID->"dd0eeec7-4a06-4ddc-b8c3-403494974bf4"] + 3.991319786533783*^9, {3.993816311010377*^9, 3.993816400594367*^9}, + 3.994256184547681*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"c3d5a16e-3cf4-4761-a54e-e2494858ba2f"] }, Open ]], Cell[CellGroupData[{ @@ -383,24 +368,39 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[422]:=",ExpressionUUID->"bcaaaf43-0f8f-4ff3-bdf9-3e724b41c4e5"], + CellLabel->"In[16]:=",ExpressionUUID->"bcaaaf43-0f8f-4ff3-bdf9-3e724b41c4e5"], Cell[BoxData[ RowBox[{"-", "0.07977775132414705`"}]], "Output", CellChangeTimes->{ - 3.991319786540777*^9, {3.993816311027995*^9, 3.9938164006102667`*^9}}, - CellLabel-> - "Out[422]=",ExpressionUUID->"bc94fde7-e089-4281-841a-4d5a02de82db"] + 3.991319786540777*^9, {3.993816311027995*^9, 3.9938164006102667`*^9}, + 3.9942561845569077`*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"e00947ac-335a-4567-9f7e-a03678b2a323"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c21", "=", - FractionBox[ - RowBox[{ - RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ RowBox[{"R01", "*", RowBox[{"(", RowBox[{"1", "-", @@ -410,45 +410,30 @@ Cell[BoxData[ RowBox[{"b1", "*", SqrtBox[ FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", - RowBox[{"(", - RowBox[{"1", "-", - SuperscriptBox["w1", "2"]}], ")"}]}], - RowBox[{ - RowBox[{"R01", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b1", "*", "b1"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b1", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w2", "2"]}], "+", - RowBox[{"R02", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b2", "*", "b2"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b2", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w1", "2"]}], "+", - RowBox[{"d", "*", - SuperscriptBox["w2", "2"], "*", - SuperscriptBox["w1", "2"]}]}]]}]], "Input", - CellLabel-> - "In[423]:=",ExpressionUUID->"78942345-423b-441d-ad9e-23dec8f818ec"], + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"78942345-423b-441d-ad9e-23dec8f818ec"], Cell[BoxData[ RowBox[{"-", "0.6284430544064189`"}]], "Output", CellChangeTimes->{ - 3.9913197865777817`*^9, {3.993816311033072*^9, 3.993816400624234*^9}}, - CellLabel-> - "Out[423]=",ExpressionUUID->"093b25e5-0683-4098-98cb-09ab09298c89"] + 3.9913197865777817`*^9, {3.993816311033072*^9, 3.993816400624234*^9}, + 3.99425618456707*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"3b013e9d-1d0d-4dc4-bebd-a374ede3ae08"] }, Open ]], Cell[CellGroupData[{ @@ -503,56 +488,52 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[424]:=",ExpressionUUID->"b9772705-caeb-4dc4-b22a-0238760c2ec1"], + CellLabel->"In[18]:=",ExpressionUUID->"b9772705-caeb-4dc4-b22a-0238760c2ec1"], Cell[BoxData["0.7294972450656219`"], "Output", CellChangeTimes->{ - 3.9913197866129*^9, {3.993816311062511*^9, 3.993816400639195*^9}}, - CellLabel-> - "Out[424]=",ExpressionUUID->"b4043292-5f2e-483e-b9d1-662f4ac48ba4"] + 3.9913197866129*^9, {3.993816311062511*^9, 3.993816400639195*^9}, + 3.994256184576836*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"7a131eae-9ef4-4991-93b3-3dfa7cb34f7a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", - CellLabel-> - "In[425]:=",ExpressionUUID->"76e4f65e-0950-4fef-b78c-b2eebccf0142"], + CellLabel->"In[19]:=",ExpressionUUID->"76e4f65e-0950-4fef-b78c-b2eebccf0142"], Cell[BoxData["300"], "Output", CellChangeTimes->{ - 3.991319786620775*^9, {3.9938163110790157`*^9, 3.993816400654043*^9}}, - CellLabel-> - "Out[425]=",ExpressionUUID->"6e3c3011-d6f0-453a-b346-d59c29f8432c"] + 3.991319786620775*^9, {3.9938163110790157`*^9, 3.993816400654043*^9}, + 3.994256184585764*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"cc63d46f-dc7d-4ad3-86a6-ddae153623b0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fin", "=", "0.09"}]], "Input", - CellLabel-> - "In[426]:=",ExpressionUUID->"8f02871c-6d6b-49b7-a594-386a71b3d95e"], + CellLabel->"In[20]:=",ExpressionUUID->"8f02871c-6d6b-49b7-a594-386a71b3d95e"], Cell[BoxData["0.09`"], "Output", CellChangeTimes->{ - 3.991319786657793*^9, {3.99381631109599*^9, 3.993816400670066*^9}}, - CellLabel-> - "Out[426]=",ExpressionUUID->"3a2ebea3-9272-4525-9c05-3f429c70abf5"] + 3.991319786657793*^9, {3.99381631109599*^9, 3.993816400670066*^9}, + 3.994256184594586*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"da97f552-6871-4240-81ed-49ae692723b0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffin", "=", "0.42"}]], "Input", - CellLabel-> - "In[427]:=",ExpressionUUID->"64b93da5-84aa-4c46-b94a-aa071f526db5"], + CellLabel->"In[21]:=",ExpressionUUID->"64b93da5-84aa-4c46-b94a-aa071f526db5"], Cell[BoxData["0.42`"], "Output", CellChangeTimes->{ - 3.9913197866657925`*^9, {3.99381631111339*^9, 3.99381640068589*^9}}, - CellLabel-> - "Out[427]=",ExpressionUUID->"2dce4056-bfea-4165-a491-f834eef06c51"] + 3.9913197866657925`*^9, {3.99381631111339*^9, 3.99381640068589*^9}, + 3.994256184603387*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"ae112a6f-04c2-496f-8386-ed8d97592f4a"] }, Open ]], Cell[CellGroupData[{ @@ -561,29 +542,27 @@ Cell[BoxData[ RowBox[{"fex", "=", RowBox[{"-", "2.59"}]}]], "Input", CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, - CellLabel-> - "In[428]:=",ExpressionUUID->"2952bef4-44ae-4ac2-9561-32238bbfae2e"], + CellLabel->"In[22]:=",ExpressionUUID->"2952bef4-44ae-4ac2-9561-32238bbfae2e"], Cell[BoxData[ RowBox[{"-", "2.59`"}]], "Output", CellChangeTimes->{ - 3.9913197866996*^9, {3.993816311129064*^9, 3.993816400702038*^9}}, - CellLabel-> - "Out[428]=",ExpressionUUID->"b7a3eb9f-0743-4523-b7b2-6874dce5edec"] + 3.9913197866996*^9, {3.993816311129064*^9, 3.993816400702038*^9}, + 3.994256184612287*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"a65c5a1e-2822-427a-977c-4206d92a1495"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffex", "=", "0.54"}]], "Input", - CellLabel-> - "In[429]:=",ExpressionUUID->"f1bf8565-c9e7-4c70-bd0b-57cbb7be2a18"], + CellLabel->"In[23]:=",ExpressionUUID->"f1bf8565-c9e7-4c70-bd0b-57cbb7be2a18"], Cell[BoxData["0.54`"], "Output", CellChangeTimes->{ - 3.9913197867406044`*^9, {3.993816311145554*^9, 3.9938164007190237`*^9}}, - CellLabel-> - "Out[429]=",ExpressionUUID->"ec0f0356-0977-4061-b7c3-fe86427b0368"] + 3.9913197867406044`*^9, {3.993816311145554*^9, 3.9938164007190237`*^9}, + 3.994256184622061*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"9b968b93-aaa5-4401-a5b7-44de534a2061"] }, Open ]], Cell[CellGroupData[{ @@ -593,14 +572,13 @@ Cell[BoxData[ CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { 3.9938161841110783`*^9, 3.9938161842569923`*^9}}, - CellLabel-> - "In[430]:=",ExpressionUUID->"4639a465-cc6b-49dc-b98b-ffb26812b1e2"], + CellLabel->"In[24]:=",ExpressionUUID->"4639a465-cc6b-49dc-b98b-ffb26812b1e2"], Cell[BoxData["66"], "Output", CellChangeTimes->{ - 3.9913197867861958`*^9, {3.993816311161642*^9, 3.993816400736003*^9}}, - CellLabel-> - "Out[430]=",ExpressionUUID->"59ecac49-b68e-4c86-9b0a-c56b7ffdaa6d"] + 3.9913197867861958`*^9, {3.993816311161642*^9, 3.993816400736003*^9}, + 3.9942561846314487`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"877efc62-d6c9-4a5c-adc7-004555f2b75f"] }, Open ]], Cell[CellGroupData[{ @@ -610,14 +588,13 @@ Cell[BoxData[ RowBox[{"94", "-", "Z1"}]}]], "Input", CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, 3.9916443064841423`*^9, {3.9938161866045017`*^9, 3.99381618669993*^9}}, - CellLabel-> - "In[431]:=",ExpressionUUID->"acd9d697-a16f-4e4f-9ca5-9679d12c1eee"], + CellLabel->"In[25]:=",ExpressionUUID->"acd9d697-a16f-4e4f-9ca5-9679d12c1eee"], Cell[BoxData["28"], "Output", CellChangeTimes->{ - 3.9913197867928696`*^9, {3.993816311177599*^9, 3.993816400757028*^9}}, - CellLabel-> - "Out[431]=",ExpressionUUID->"f8c0539f-844d-482b-925a-a90f5225d623"] + 3.9913197867928696`*^9, {3.993816311177599*^9, 3.993816400757028*^9}, + 3.994256184640725*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"f545db1f-c161-4d98-9b89-713b2f121cf1"] }, Open ]], Cell[CellGroupData[{ @@ -626,14 +603,13 @@ Cell[BoxData[ RowBox[{"A2", "=", RowBox[{"A", "-", "A1"}]}]], "Input", CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, - CellLabel-> - "In[432]:=",ExpressionUUID->"bf3c6aef-c5d9-4234-93db-d64a14b82b50"], + CellLabel->"In[26]:=",ExpressionUUID->"bf3c6aef-c5d9-4234-93db-d64a14b82b50"], Cell[BoxData["76"], "Output", CellChangeTimes->{ - 3.991319786827894*^9, {3.993816311193193*^9, 3.993816400775269*^9}}, - CellLabel-> - "Out[432]=",ExpressionUUID->"29bd1a74-39d0-4387-a76b-779c89e8ca86"] + 3.991319786827894*^9, {3.993816311193193*^9, 3.993816400775269*^9}, + 3.99425618465027*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"501b7471-ad29-4d7a-8636-4c64da90eba4"] }, Open ]], Cell[CellGroupData[{ @@ -648,14 +624,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[433]:=",ExpressionUUID->"925bb11a-70d6-41eb-9dd6-63461f872eae"], + CellLabel->"In[27]:=",ExpressionUUID->"925bb11a-70d6-41eb-9dd6-63461f872eae"], Cell[BoxData["0.11156611039794609`"], "Output", CellChangeTimes->{ - 3.9913197868648605`*^9, {3.993816311209059*^9, 3.993816400793248*^9}}, - CellLabel-> - "Out[433]=",ExpressionUUID->"daa3b6f5-4af7-41fb-88c6-d45cdfbd5564"] + 3.9913197868648605`*^9, {3.993816311209059*^9, 3.993816400793248*^9}, + 3.9942561846582747`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"648f3296-4747-4fc1-8dc2-6b7cdb88e807"] }, Open ]], Cell[CellGroupData[{ @@ -670,15 +645,14 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[434]:=",ExpressionUUID->"8ddf5b97-ef62-45eb-890c-bb640fb1ea66"], + CellLabel->"In[28]:=",ExpressionUUID->"8ddf5b97-ef62-45eb-890c-bb640fb1ea66"], Cell[BoxData[ RowBox[{"-", "2.562272143774069`"}]], "Output", CellChangeTimes->{ - 3.9913197868718567`*^9, {3.993816311224965*^9, 3.993816400810424*^9}}, - CellLabel-> - "Out[434]=",ExpressionUUID->"637f4f9c-be8e-4097-92fa-499f2383d038"] + 3.9913197868718567`*^9, {3.993816311224965*^9, 3.993816400810424*^9}, + 3.9942561846677637`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"29e144a4-c2f7-4738-901a-50abf649e7f0"] }, Open ]], Cell[CellGroupData[{ @@ -709,14 +683,13 @@ Cell[BoxData[ CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, - CellLabel-> - "In[435]:=",ExpressionUUID->"2bf6ec39-1c63-4d14-b925-54d0f7879d85"], + CellLabel->"In[29]:=",ExpressionUUID->"2bf6ec39-1c63-4d14-b925-54d0f7879d85"], Cell[BoxData["17.58253870834664`"], "Output", CellChangeTimes->{ - 3.9913197869068584`*^9, {3.993816311240906*^9, 3.9938164008326178`*^9}}, - CellLabel-> - "Out[435]=",ExpressionUUID->"95ec9c07-f901-4300-8f98-99f2936df868"] + 3.9913197869068584`*^9, {3.993816311240906*^9, 3.9938164008326178`*^9}, + 3.9942561846776333`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"1b119b8f-7e31-4d5e-975c-71038b84b712"] }, Open ]], Cell[CellGroupData[{ @@ -724,14 +697,13 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, - CellLabel-> - "In[436]:=",ExpressionUUID->"24b41f2d-338f-406b-a054-09ca02f95ec7"], + CellLabel->"In[30]:=",ExpressionUUID->"24b41f2d-338f-406b-a054-09ca02f95ec7"], Cell[BoxData["300"], "Output", CellChangeTimes->{ - 3.991319786940857*^9, {3.993816311257287*^9, 3.993816400852189*^9}}, - CellLabel-> - "Out[436]=",ExpressionUUID->"c6e9f450-b6dc-407d-941a-a953b7788f96"] + 3.991319786940857*^9, {3.993816311257287*^9, 3.993816400852189*^9}, + 3.994256184686816*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"49b9b27e-f056-4bb4-b859-4f23a55aaf6f"] }, Open ]], Cell[CellGroupData[{ @@ -741,19 +713,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, 3.993816201054872*^9}, - CellLabel-> - "In[437]:=",ExpressionUUID->"e24e2a14-a1a6-4205-9d0c-0f6f930d45c3"], + CellLabel->"In[31]:=",ExpressionUUID->"e24e2a14-a1a6-4205-9d0c-0f6f930d45c3"], Cell[BoxData["2"], "Output", - CellChangeTimes->{{3.99381631127295*^9, 3.993816400871359*^9}}, - CellLabel-> - "Out[437]=",ExpressionUUID->"f57ed9d2-69d9-40c3-b653-2a85025e51b4"] + CellChangeTimes->{{3.99381631127295*^9, 3.993816400871359*^9}, + 3.994256184695849*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"c6d7d283-79db-46e7-ae07-91f977a58c84"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, - CellLabel-> - "In[438]:=",ExpressionUUID->"095d9aa8-9e83-4f70-b377-e6d60478722f"], + CellLabel->"In[32]:=",ExpressionUUID->"095d9aa8-9e83-4f70-b377-e6d60478722f"], Cell[CellGroupData[{ @@ -762,19 +732,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { 3.993816204826747*^9, 3.993816206119349*^9}}, - CellLabel-> - "In[439]:=",ExpressionUUID->"d01732ef-0da2-45d8-ae0e-ba62c550a992"], + CellLabel->"In[33]:=",ExpressionUUID->"d01732ef-0da2-45d8-ae0e-ba62c550a992"], Cell[BoxData["0.805`"], "Output", - CellChangeTimes->{{3.9938163113036537`*^9, 3.993816400895072*^9}}, - CellLabel-> - "Out[439]=",ExpressionUUID->"632af769-a33a-4d75-8dd5-02e920ea0a6f"] + CellChangeTimes->{{3.9938163113036537`*^9, 3.993816400895072*^9}, + 3.994256184711483*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"a12f42fc-76d0-4891-919c-085a428a02d9"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, - CellLabel-> - "In[440]:=",ExpressionUUID->"8384acc4-36ce-4966-a133-7fe73f171bc1"], + CellLabel->"In[34]:=",ExpressionUUID->"8384acc4-36ce-4966-a133-7fe73f171bc1"], Cell[CellGroupData[{ @@ -783,19 +751,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { 3.993816211321389*^9, 3.9938162195378838`*^9}}, - CellLabel-> - "In[441]:=",ExpressionUUID->"43f1578e-80bf-42ed-93fb-da7d1ee54692"], + CellLabel->"In[35]:=",ExpressionUUID->"43f1578e-80bf-42ed-93fb-da7d1ee54692"], Cell[BoxData["2.65`"], "Output", - CellChangeTimes->{{3.9938163113365593`*^9, 3.993816400917997*^9}}, - CellLabel-> - "Out[441]=",ExpressionUUID->"ce94c04c-d1c7-4a60-905b-b807678ad2ab"] + CellChangeTimes->{{3.9938163113365593`*^9, 3.993816400917997*^9}, + 3.994256184727027*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"3bf8b6ed-ea31-4e4d-978f-4b64dd8b9ed2"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, - CellLabel-> - "In[442]:=",ExpressionUUID->"12516dbf-c4b3-4f9d-bf31-edfeb232e895"], + CellLabel->"In[36]:=",ExpressionUUID->"12516dbf-c4b3-4f9d-bf31-edfeb232e895"], Cell[CellGroupData[{ @@ -804,19 +770,17 @@ Cell[BoxData[ CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, 3.991799359954439*^9, {3.9938162225291348`*^9, 3.993816223644052*^9}}, - CellLabel-> - "In[443]:=",ExpressionUUID->"fe003b3e-bdaa-49f0-baf5-119dc32f6daf"], + CellLabel->"In[37]:=",ExpressionUUID->"fe003b3e-bdaa-49f0-baf5-119dc32f6daf"], Cell[BoxData["1.175`"], "Output", - CellChangeTimes->{{3.993816311366596*^9, 3.993816400940548*^9}}, - CellLabel-> - "Out[443]=",ExpressionUUID->"67160be2-52ba-48d9-bb19-a92448682175"] + CellChangeTimes->{{3.993816311366596*^9, 3.993816400940548*^9}, + 3.99425618474258*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"9636a621-2cf4-4542-8ea3-d202e683adb1"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, - CellLabel-> - "In[444]:=",ExpressionUUID->"c3259f05-eb8e-4661-8ff3-2df24e992ca2"], + CellLabel->"In[38]:=",ExpressionUUID->"c3259f05-eb8e-4661-8ff3-2df24e992ca2"], Cell[CellGroupData[{ @@ -825,19 +789,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, 3.991718016467348*^9, 3.991799361414671*^9, {3.9938162281192904`*^9, 3.993816230831416*^9}}, - CellLabel-> - "In[445]:=",ExpressionUUID->"b1e05a6b-4c68-460c-8303-0e80cfaad631"], + CellLabel->"In[39]:=",ExpressionUUID->"b1e05a6b-4c68-460c-8303-0e80cfaad631"], Cell[BoxData["0.795`"], "Output", - CellChangeTimes->{{3.993816311396524*^9, 3.993816400963438*^9}}, - CellLabel-> - "Out[445]=",ExpressionUUID->"e66a950a-9302-43d4-a9d2-86552b750c31"] + CellChangeTimes->{{3.993816311396524*^9, 3.993816400963438*^9}, + 3.9942561847582006`*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"e2faac99-97c8-41e9-8194-a2ae93d65235"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, - CellLabel-> - "In[446]:=",ExpressionUUID->"5aa778ad-184b-42e5-a5a2-7a6238e2b606"], + CellLabel->"In[40]:=",ExpressionUUID->"5aa778ad-184b-42e5-a5a2-7a6238e2b606"], Cell[CellGroupData[{ @@ -846,19 +808,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993816234625985*^9, 3.993816236062304*^9}}, - CellLabel-> - "In[447]:=",ExpressionUUID->"5c7c6bd3-7563-4e6c-9dae-fecf5d93ace4"], + CellLabel->"In[41]:=",ExpressionUUID->"5c7c6bd3-7563-4e6c-9dae-fecf5d93ace4"], Cell[BoxData["0.595`"], "Output", - CellChangeTimes->{{3.993816311427802*^9, 3.9938164009852858`*^9}}, - CellLabel-> - "Out[447]=",ExpressionUUID->"a291e3d1-1324-4389-a9bf-67f7a7701831"] + CellChangeTimes->{{3.993816311427802*^9, 3.9938164009852858`*^9}, + 3.994256184774509*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"6d584e46-5235-42ef-a91d-0479df6f54a1"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, - CellLabel-> - "In[448]:=",ExpressionUUID->"aa8876b2-ee35-41bb-bb44-ea43418ebc80"], + CellLabel->"In[42]:=",ExpressionUUID->"aa8876b2-ee35-41bb-bb44-ea43418ebc80"], Cell[CellGroupData[{ @@ -867,19 +827,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.993816238161579*^9, 3.9938162401131277`*^9}}, - CellLabel-> - "In[449]:=",ExpressionUUID->"866fa8c5-de20-423a-b6ca-9e812ebfee01"], + CellLabel->"In[43]:=",ExpressionUUID->"866fa8c5-de20-423a-b6ca-9e812ebfee01"], Cell[BoxData["1.47`"], "Output", - CellChangeTimes->{{3.993816311458173*^9, 3.9938164010070257`*^9}}, - CellLabel-> - "Out[449]=",ExpressionUUID->"51b5ea04-75e1-4799-922a-634a733edfbd"] + CellChangeTimes->{{3.993816311458173*^9, 3.9938164010070257`*^9}, + 3.994256184790826*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"05fbb7f7-ef81-48f4-98e4-f05ae91d72da"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, - CellLabel-> - "In[450]:=",ExpressionUUID->"19b636c4-a929-4ff8-8dc5-5b6915d8a010"], + CellLabel->"In[44]:=",ExpressionUUID->"19b636c4-a929-4ff8-8dc5-5b6915d8a010"], Cell[CellGroupData[{ @@ -887,19 +845,17 @@ Cell[BoxData[ RowBox[{"nn2", "=", "0.655"}]], "Input", CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, 3.9917993660901737`*^9, {3.993816241842022*^9, 3.993816245056822*^9}}, - CellLabel-> - "In[451]:=",ExpressionUUID->"82e9f5e2-0fa1-4200-a78b-dadbfeafb5c9"], + CellLabel->"In[45]:=",ExpressionUUID->"82e9f5e2-0fa1-4200-a78b-dadbfeafb5c9"], Cell[BoxData["0.655`"], "Output", - CellChangeTimes->{{3.993816311488914*^9, 3.993816401028906*^9}}, - CellLabel-> - "Out[451]=",ExpressionUUID->"a3be0860-132c-4240-8675-cfd52c588c42"] + CellChangeTimes->{{3.993816311488914*^9, 3.993816401028906*^9}, + 3.994256184806664*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"be62a67e-7751-4c08-acbe-81ef72a16bd7"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, - CellLabel-> - "In[452]:=",ExpressionUUID->"0f76d782-c07a-4570-a174-1f80c2c0601a"], + CellLabel->"In[46]:=",ExpressionUUID->"0f76d782-c07a-4570-a174-1f80c2c0601a"], Cell[CellGroupData[{ @@ -1388,14 +1344,13 @@ uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== "], - CellLabel-> - "In[453]:=",ExpressionUUID->"0f7a024b-3884-4408-a1ac-646c523cb4b0"], + CellLabel->"In[47]:=",ExpressionUUID->"0f7a024b-3884-4408-a1ac-646c523cb4b0"], Cell[BoxData["0.10932371372103143`"], "Output", CellChangeTimes->{ - 3.991319787430073*^9, {3.993816311598846*^9, 3.993816401077582*^9}}, - CellLabel-> - "Out[453]=",ExpressionUUID->"0712281e-719e-4bb7-8b0d-fc63756094d4"] + 3.991319787430073*^9, {3.993816311598846*^9, 3.993816401077582*^9}, + 3.994256184902214*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"5506da7c-2806-4fea-b89b-277e6d15d88c"] }, Open ]], Cell[CellGroupData[{ @@ -1889,14 +1844,13 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[454]:=",ExpressionUUID->"7fba8efa-6d16-4927-9dba-193999f2bf97"], + CellLabel->"In[48]:=",ExpressionUUID->"7fba8efa-6d16-4927-9dba-193999f2bf97"], Cell[BoxData["9.790243175904545`"], "Output", CellChangeTimes->{ - 3.991319787574972*^9, {3.9938163116474113`*^9, 3.993816401110285*^9}}, - CellLabel-> - "Out[454]=",ExpressionUUID->"f5ed12e8-5160-4ef9-987b-02a72d14e152"] + 3.991319787574972*^9, {3.9938163116474113`*^9, 3.993816401110285*^9}, + 3.994256184939933*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"995d7b3a-e632-4399-ab53-14f1adac449c"] }, Open ]], Cell[CellGroupData[{ @@ -2384,15 +2338,14 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[455]:=",ExpressionUUID->"f51c7370-e984-4436-869e-183513f78470"], + CellLabel->"In[49]:=",ExpressionUUID->"f51c7370-e984-4436-869e-183513f78470"], Cell[BoxData[ RowBox[{"-", "16.70631937398676`"}]], "Output", CellChangeTimes->{ - 3.991319787641424*^9, {3.993816311688833*^9, 3.99381640114319*^9}}, - CellLabel-> - "Out[455]=",ExpressionUUID->"7ddd73ec-1d4d-451b-a8e5-36f55f74acf7"] + 3.991319787641424*^9, {3.993816311688833*^9, 3.99381640114319*^9}, + 3.9942561849716377`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"af13accb-d4da-4310-9abd-2c0c8015961b"] }, Open ]], Cell[CellGroupData[{ @@ -3109,15 +3062,14 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[456]:=",ExpressionUUID->"b289736d-1914-4ccd-84a9-b45f7e687841"], + CellLabel->"In[50]:=",ExpressionUUID->"b289736d-1914-4ccd-84a9-b45f7e687841"], Cell[BoxData[ RowBox[{"-", "21.21244105904564`"}]], "Output", CellChangeTimes->{ - 3.991319787711939*^9, {3.99381631175032*^9, 3.993816401178795*^9}}, - CellLabel-> - "Out[456]=",ExpressionUUID->"b9ab16a3-bfa0-4e03-8228-189b3066a79a"] + 3.991319787711939*^9, {3.99381631175032*^9, 3.993816401178795*^9}, + 3.994256185011362*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"3919cb1f-04e1-45c2-beaf-bd4e6875bf99"] }, Open ]], Cell[CellGroupData[{ @@ -3675,15 +3627,14 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[457]:=",ExpressionUUID->"f30a7247-bb54-497f-af7d-7023090c83ff"], + CellLabel->"In[51]:=",ExpressionUUID->"f30a7247-bb54-497f-af7d-7023090c83ff"], Cell[BoxData[ RowBox[{"-", "64.11746269097033`"}]], "Output", CellChangeTimes->{ - 3.9913197877723045`*^9, {3.993816311810264*^9, 3.993816401216831*^9}}, - CellLabel-> - "Out[457]=",ExpressionUUID->"eb13d8d5-2e86-4ac7-adb9-e467bae745f6"] + 3.9913197877723045`*^9, {3.993816311810264*^9, 3.993816401216831*^9}, + 3.994256185049418*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"9155f4fc-8acc-4edc-883e-3c3a8033ac56"] }, Open ]], Cell[CellGroupData[{ @@ -4314,43 +4265,40 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[458]:=",ExpressionUUID->"7a650441-3404-47b3-a182-fc58d69e3f00"], + CellLabel->"In[52]:=",ExpressionUUID->"7a650441-3404-47b3-a182-fc58d69e3f00"], Cell[BoxData[ RowBox[{"-", "162.12919789671096`"}]], "Output", CellChangeTimes->{ - 3.991319787833355*^9, {3.993816311880077*^9, 3.9938164012606087`*^9}}, - CellLabel-> - "Out[458]=",ExpressionUUID->"71226c6c-5244-4a27-ad23-28012197a0f1"] + 3.991319787833355*^9, {3.993816311880077*^9, 3.9938164012606087`*^9}, + 3.994256185092911*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"5b667053-b1fa-4672-98f5-6f1f09ded642"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U21", "=", "0"}]], "Input", - CellLabel-> - "In[459]:=",ExpressionUUID->"20ed4577-a8a7-41a6-aa65-d6d7dd6a7d37"], + CellLabel->"In[53]:=",ExpressionUUID->"20ed4577-a8a7-41a6-aa65-d6d7dd6a7d37"], Cell[BoxData["0"], "Output", CellChangeTimes->{ - 3.9913204210013676`*^9, {3.993816311896537*^9, 3.993816401279429*^9}}, - CellLabel-> - "Out[459]=",ExpressionUUID->"97f4a4c3-bf92-48ac-a7f4-992ce3ae8e1c"] + 3.9913204210013676`*^9, {3.993816311896537*^9, 3.993816401279429*^9}, + 3.994256185103463*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"8e7ed465-78cc-4ad2-a91d-95de9dff0e2e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U22", "=", "0"}]], "Input", - CellLabel-> - "In[460]:=",ExpressionUUID->"33a57048-9084-4f1b-9ad3-97615c81bd05"], + CellLabel->"In[54]:=",ExpressionUUID->"33a57048-9084-4f1b-9ad3-97615c81bd05"], Cell[BoxData["0"], "Output", CellChangeTimes->{ - 3.9913204210355663`*^9, {3.993816311909266*^9, 3.993816401294653*^9}}, - CellLabel-> - "Out[460]=",ExpressionUUID->"1aba9b4f-0894-43be-bcc5-45d8a2b826fd"] + 3.9913204210355663`*^9, {3.993816311909266*^9, 3.993816401294653*^9}, + 3.9942561851092787`*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"a65a5d34-560d-4874-b5ed-7f576101d4de"] }, Open ]], Cell[CellGroupData[{ @@ -4394,14 +4342,13 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[461]:=",ExpressionUUID->"6bbdd55e-812b-4991-a934-55d5fe93ca69"], + CellLabel->"In[55]:=",ExpressionUUID->"6bbdd55e-812b-4991-a934-55d5fe93ca69"], Cell[BoxData["137.278680377525`"], "Output", CellChangeTimes->{ - 3.991320421068556*^9, {3.993816311921467*^9, 3.993816401310416*^9}}, - CellLabel-> - "Out[461]=",ExpressionUUID->"06b04880-7076-4ee7-bd22-b65955695b22"] + 3.991320421068556*^9, {3.993816311921467*^9, 3.993816401310416*^9}, + 3.994256185115472*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"c6dd1dfe-0ca3-4c87-8331-436bdf0eef64"] }, Open ]], Cell[CellGroupData[{ @@ -4441,15 +4388,14 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[462]:=",ExpressionUUID->"e1316acf-ef08-4a35-92f2-f52365d19c7c"], + CellLabel->"In[56]:=",ExpressionUUID->"e1316acf-ef08-4a35-92f2-f52365d19c7c"], Cell[BoxData[ RowBox[{"-", "124.2735331996648`"}]], "Output", CellChangeTimes->{ - 3.991320421098543*^9, {3.9938163119334393`*^9, 3.993816401325693*^9}}, - CellLabel-> - "Out[462]=",ExpressionUUID->"784effa0-1b56-42dd-a4ec-6a8a421b9229"] + 3.991320421098543*^9, {3.9938163119334393`*^9, 3.993816401325693*^9}, + 3.99425618512158*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"25064308-a846-40b6-b16c-a8047c64c1b1"] }, Open ]], Cell[CellGroupData[{ @@ -4493,94 +4439,87 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[463]:=",ExpressionUUID->"f3c8ab6f-cc14-4ef7-8f45-56a4f0fb0280"], + CellLabel->"In[57]:=",ExpressionUUID->"f3c8ab6f-cc14-4ef7-8f45-56a4f0fb0280"], Cell[BoxData["136.79424869488386`"], "Output", CellChangeTimes->{ - 3.9913204211275444`*^9, {3.993816311945665*^9, 3.993816401340849*^9}}, - CellLabel-> - "Out[463]=",ExpressionUUID->"63f8ef2e-16b7-47de-bdab-2e8cb6546a9f"] + 3.9913204211275444`*^9, {3.993816311945665*^9, 3.993816401340849*^9}, + 3.9942561851275682`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"bf376c15-884b-4302-8f2d-8dc9c7288045"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c11"], "Input", - CellLabel-> - "In[464]:=",ExpressionUUID->"c9c39409-cdfc-4a79-9f2b-367593593f49"], + CellLabel->"In[58]:=",ExpressionUUID->"c9c39409-cdfc-4a79-9f2b-367593593f49"], Cell[BoxData["0.3750149455401738`"], "Output", CellChangeTimes->{ - 3.9913204211385536`*^9, {3.9938163119574957`*^9, 3.993816401363001*^9}}, - CellLabel-> - "Out[464]=",ExpressionUUID->"6cc53293-8771-4d9d-a47c-36780b6af61d"] + 3.9913204211385536`*^9, {3.9938163119574957`*^9, 3.993816401363001*^9}, + 3.9942561851334047`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"12c99691-fa9f-405c-b3cd-ba6699c8a28e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c12"], "Input", - CellLabel-> - "In[465]:=",ExpressionUUID->"daea4480-7eec-4ef4-8e45-df932beffd28"], + CellLabel->"In[59]:=",ExpressionUUID->"daea4480-7eec-4ef4-8e45-df932beffd28"], Cell[BoxData[ RowBox[{"-", "0.07977775132414705`"}]], "Output", CellChangeTimes->{ - 3.9913204211683464`*^9, {3.9938163119693823`*^9, 3.99381640137784*^9}}, - CellLabel-> - "Out[465]=",ExpressionUUID->"37effe82-fb3f-45a1-9a3e-14f2dad446c0"] + 3.9913204211683464`*^9, {3.9938163119693823`*^9, 3.99381640137784*^9}, + 3.994256185139061*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"df48fb7d-7941-415f-b88a-72e3678e74d7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c21"], "Input", - CellLabel-> - "In[466]:=",ExpressionUUID->"f1c27a4d-d9b9-4059-906e-f1c9b2f848fe"], + CellLabel->"In[60]:=",ExpressionUUID->"f1c27a4d-d9b9-4059-906e-f1c9b2f848fe"], Cell[BoxData[ RowBox[{"-", "0.6284430544064189`"}]], "Output", CellChangeTimes->{ - 3.991320421199068*^9, {3.9938163119814787`*^9, 3.993816401392654*^9}}, - CellLabel-> - "Out[466]=",ExpressionUUID->"9b42565b-631e-46fb-8bc4-7d971070b27c"] + 3.991320421199068*^9, {3.9938163119814787`*^9, 3.993816401392654*^9}, + 3.994256185144826*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"77657692-a8b2-4ba3-bd6c-26d499a4d0f8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c22"], "Input", - CellLabel-> - "In[467]:=",ExpressionUUID->"83ad0518-8081-4e34-b927-1a5b7fe6f5d7"], + CellLabel->"In[61]:=",ExpressionUUID->"83ad0518-8081-4e34-b927-1a5b7fe6f5d7"], Cell[BoxData["0.7294972450656219`"], "Output", CellChangeTimes->{ - 3.991320421228037*^9, {3.993816311994028*^9, 3.99381640140742*^9}}, - CellLabel-> - "Out[467]=",ExpressionUUID->"69bada15-e35a-42ac-9196-5eb1052942a5"] + 3.991320421228037*^9, {3.993816311994028*^9, 3.99381640140742*^9}, + 3.994256185150693*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"14b901d7-1503-452d-a0ca-84499962e347"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w1"], "Input", - CellLabel-> - "In[468]:=",ExpressionUUID->"6271f5ad-5a8f-47dc-8780-b7c3a7515bd0"], + CellLabel->"In[62]:=",ExpressionUUID->"6271f5ad-5a8f-47dc-8780-b7c3a7515bd0"], Cell[BoxData["2.4652625900301657`"], "Output", CellChangeTimes->{ - 3.9913204212585373`*^9, {3.993816312006279*^9, 3.99381640142347*^9}}, - CellLabel-> - "Out[468]=",ExpressionUUID->"c602aaab-4be3-4902-a060-e87457a120cf"] + 3.9913204212585373`*^9, {3.993816312006279*^9, 3.99381640142347*^9}, + 3.994256185156397*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"b896fd3c-1af2-44de-a0a5-27d0abee9294"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w2"], "Input", - CellLabel-> - "In[469]:=",ExpressionUUID->"40c7ce1b-04f0-43a1-b42f-31988566aadd"], + CellLabel->"In[63]:=",ExpressionUUID->"40c7ce1b-04f0-43a1-b42f-31988566aadd"], Cell[BoxData["1.4266899039519758`"], "Output", CellChangeTimes->{ - 3.9913204212884274`*^9, {3.993816312018448*^9, 3.993816401439527*^9}}, - CellLabel-> - "Out[469]=",ExpressionUUID->"513b5328-fe7c-44ed-9553-0e55e18a7c92"] + 3.9913204212884274`*^9, {3.993816312018448*^9, 3.993816401439527*^9}, + 3.994256185162612*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"573b5f9b-edea-40c8-8311-2b99cd82e7b0"] }, Open ]], Cell[CellGroupData[{ @@ -4601,15 +4540,14 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", - CellLabel-> - "In[470]:=",ExpressionUUID->"494c4e91-f213-467c-bbcc-282999b91200"], + CellLabel->"In[64]:=",ExpressionUUID->"494c4e91-f213-467c-bbcc-282999b91200"], Cell[BoxData[ RowBox[{"-", "36.59398535367672`"}]], "Output", CellChangeTimes->{ - 3.9913204213185234`*^9, {3.9938163120312033`*^9, 3.9938164014556637`*^9}}, - CellLabel-> - "Out[470]=",ExpressionUUID->"757ca7f8-226c-49dd-b895-043d7ac85953"] + 3.9913204213185234`*^9, {3.9938163120312033`*^9, 3.9938164014556637`*^9}, + 3.994256185168725*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"153d196e-f35a-4904-a360-c8e84c37a693"] }, Open ]], Cell[CellGroupData[{ @@ -4630,15 +4568,14 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", - CellLabel-> - "In[471]:=",ExpressionUUID->"02cd3f31-6603-4a07-9fcf-3b604c6e020e"], + CellLabel->"In[65]:=",ExpressionUUID->"02cd3f31-6603-4a07-9fcf-3b604c6e020e"], Cell[BoxData[ RowBox[{"-", "6.706084141019179`"}]], "Output", CellChangeTimes->{ - 3.991320421349531*^9, {3.99381631203615*^9, 3.99381640147013*^9}}, - CellLabel-> - "Out[471]=",ExpressionUUID->"d598f7a1-e1c5-4b9e-b374-494183d2c6c5"] + 3.991320421349531*^9, {3.99381631203615*^9, 3.99381640147013*^9}, + 3.994256185175941*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"d41f04d4-24de-4cdd-9a83-08cf230c7ec3"] }, Open ]], Cell[CellGroupData[{ @@ -4703,14 +4640,13 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[472]:=",ExpressionUUID->"725331e1-d6ae-47c4-9dcc-467aaa2ba002"], + CellLabel->"In[66]:=",ExpressionUUID->"725331e1-d6ae-47c4-9dcc-467aaa2ba002"], Cell[BoxData["100.68469502384829`"], "Output", CellChangeTimes->{ - 3.9913204213784294`*^9, {3.9938163120484467`*^9, 3.993816401484993*^9}}, - CellLabel-> - "Out[472]=",ExpressionUUID->"2be7f0f4-14c3-4e98-a010-ac8b05effc6f"] + 3.9913204213784294`*^9, {3.9938163120484467`*^9, 3.993816401484993*^9}, + 3.994256185182538*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"829a011f-c08a-4351-9f6c-927fc946fc1f"] }, Open ]], Cell[CellGroupData[{ @@ -4751,15 +4687,14 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[473]:=",ExpressionUUID->"37614943-a6e5-4d00-8e38-0e6e7984376c"], + CellLabel->"In[67]:=",ExpressionUUID->"37614943-a6e5-4d00-8e38-0e6e7984376c"], Cell[BoxData[ RowBox[{"-", "124.2735331996648`"}]], "Output", CellChangeTimes->{ - 3.9913204213904285`*^9, {3.99381631206076*^9, 3.9938164015001698`*^9}}, - CellLabel-> - "Out[473]=",ExpressionUUID->"eb1dad88-cc33-4ff9-986d-6f6456fd8b67"] + 3.9913204213904285`*^9, {3.99381631206076*^9, 3.9938164015001698`*^9}, + 3.9942561851894836`*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"143b702c-c399-4079-a024-7f4634fbca15"] }, Open ]], Cell[CellGroupData[{ @@ -4825,14 +4760,13 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[474]:=",ExpressionUUID->"f1c1fe52-aa66-4424-a93e-50ee1c6d86b7"], + CellLabel->"In[68]:=",ExpressionUUID->"f1c1fe52-aa66-4424-a93e-50ee1c6d86b7"], Cell[BoxData["130.0881645538647`"], "Output", CellChangeTimes->{ - 3.991320421419428*^9, {3.9938163120760603`*^9, 3.993816401514661*^9}}, - CellLabel-> - "Out[474]=",ExpressionUUID->"578e3ba4-bf2e-42f3-bcb8-0861d4c3a898"] + 3.991320421419428*^9, {3.9938163120760603`*^9, 3.993816401514661*^9}, + 3.994256185196145*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"8030c03d-6d32-49cc-bbfe-f3de852a7521"] }, Open ]], Cell[CellGroupData[{ @@ -4867,37 +4801,38 @@ Cell[BoxData[ RowBox[{ SuperscriptBox[ RowBox[{"(", - FractionBox[ - RowBox[{"R01", "*", - RowBox[{"(", - RowBox[{"1", "+", - RowBox[{ - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", - RowBox[{ - FractionBox["1", - RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], - RowBox[{"R02", "*", - RowBox[{"(", - RowBox[{"1", "+", - RowBox[{ - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", - RowBox[{ - FractionBox["1", - RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], - "2"], "*", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}], ")"}]}], + ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[475]:=",ExpressionUUID->"6d6fa6d0-861f-4b32-850d-9f8aeb24685d"], + CellLabel->"In[69]:=",ExpressionUUID->"6d6fa6d0-861f-4b32-850d-9f8aeb24685d"], Cell[BoxData["37.11735851847544`"], "Output", CellChangeTimes->{ - 3.9913204214494324`*^9, {3.993816312091509*^9, 3.9938164015309277`*^9}}, - CellLabel-> - "Out[475]=",ExpressionUUID->"14d25676-5f58-4634-b564-675d96cf5335"] + 3.9913204214494324`*^9, {3.993816312091509*^9, 3.9938164015309277`*^9}, + 3.9942561852033663`*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"3357adf0-f038-4c80-81e3-df5806562a20"] }, Open ]], Cell[CellGroupData[{ @@ -4957,37 +4892,46 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}], ")"}]}], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[476]:=",ExpressionUUID->"66ca8919-b006-4278-8597-21733e30d8fb"], + CellLabel->"In[70]:=",ExpressionUUID->"66ca8919-b006-4278-8597-21733e30d8fb"], Cell[BoxData["835.6594550727934`"], "Output", CellChangeTimes->{ - 3.991320421481529*^9, {3.9938163121038647`*^9, 3.993816401547245*^9}}, - CellLabel-> - "Out[476]=",ExpressionUUID->"86205bd0-c026-41f3-902a-493edff30589"] + 3.991320421481529*^9, {3.9938163121038647`*^9, 3.993816401547245*^9}, + 3.9942561852102737`*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"5327421b-4894-4615-a392-eeffa317fc86"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"f1", "=", "0.4930475122"}]], "Input", - CellChangeTimes->{3.9918488488187084`*^9, - 3.9940832672331123`*^9},ExpressionUUID->"bdefbecf-0aaa-4a45-a861-\ -406cf54e52d1"], + CellChangeTimes->{3.9918488488187084`*^9, 3.9940832672331123`*^9}, + CellLabel->"In[71]:=",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], + +Cell[BoxData["0.4930475122`"], "Output", + CellChangeTimes->{3.99425618906038*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"0469af66-54df-4c81-8726-579d7398df13"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991848849725815*^9, - 3.9918488497328167`*^9}},ExpressionUUID->"a5161e25-7247-124f-8601-\ -7bcc4af89c62"], + CellChangeTimes->{{3.991848849725815*^9, 3.9918488497328167`*^9}}, + CellLabel->"In[72]:=",ExpressionUUID->"a5161e25-7247-124f-8601-7bcc4af89c62"], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f2", "=", "0.2291459505"}]], "Input", - CellChangeTimes->{3.9918488509977226`*^9, - 3.994083279172886*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-\ -c079ad464f5d"], + CellChangeTimes->{3.9918488509977226`*^9, 3.994083279172886*^9}, + CellLabel->"In[73]:=",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], + +Cell[BoxData["0.2291459505`"], "Output", + CellChangeTimes->{3.994256189232337*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"f3453d98-36bf-426f-be03-21f77689c735"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991848851636154*^9, - 3.9918488516427097`*^9}},ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-\ -11f4dcb03e07"], + CellChangeTimes->{{3.991848851636154*^9, 3.9918488516427097`*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], Cell[CellGroupData[{ @@ -5033,13 +4977,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel-> - "In[150]:=",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], + CellLabel->"In[75]:=",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], -Cell[BoxData["2.3793916761039797`*^-53"], "Output", - CellChangeTimes->{3.9913279321052856`*^9}, - CellLabel-> - "Out[150]=",ExpressionUUID->"1658422d-0016-324a-9843-942f5453a9c7"] +Cell[BoxData["1.5276604288963894`*^-53"], "Output", + CellChangeTimes->{3.9913279321052856`*^9, 3.9942561892420073`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"53567839-5776-4940-9a2a-6507ae9843d1"] }, Open ]], Cell[CellGroupData[{ @@ -5073,14 +5015,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.9915575644922657`*^9},ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-\ -7221ff813b6d"], + CellChangeTimes->{3.9915575644922657`*^9}, + CellLabel->"In[76]:=",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], -Cell[BoxData["8.839304777809617`*^-55"], "Output", - CellChangeTimes->{3.991327932129387*^9}, - CellLabel-> - "Out[151]=",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] +Cell[BoxData["9.197379694986827`*^-55"], "Output", + CellChangeTimes->{3.991327932129387*^9, 3.994256189249506*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"332d5e9d-e464-4f81-b1ea-3fc8262cb1a2"] }, Open ]], Cell[CellGroupData[{ @@ -5113,14 +5053,12 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.9915575683388195`*^9, - 3.991557570173399*^9}},ExpressionUUID->"f22831a7-63b7-f444-8e3a-\ -fa370a62ac27"], + CellChangeTimes->{{3.9915575683388195`*^9, 3.991557570173399*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], -Cell[BoxData["2.0384594858915346`*^-54"], "Output", - CellChangeTimes->{3.991327932138338*^9}, - CellLabel-> - "Out[152]=",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] +Cell[BoxData["1.1650057649062782`*^-54"], "Output", + CellChangeTimes->{3.991327932138338*^9, 3.99425618925506*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"ca986541-463c-4c26-9b99-963787de9d02"] }, Open ]], Cell[CellGroupData[{ @@ -5143,13 +5081,11 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel-> - "In[153]:=",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], + CellLabel->"In[78]:=",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], -Cell[BoxData["27.24865368249903`"], "Output", - CellChangeTimes->{3.9913279321616154`*^9}, - CellLabel-> - "Out[153]=",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] +Cell[BoxData["15.709123150660899`"], "Output", + CellChangeTimes->{3.9913279321616154`*^9, 3.99425618926132*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"c0d177d9-6fc9-4107-abab-79475a123900"] }, Open ]], Cell[CellGroupData[{ @@ -5174,13 +5110,11 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", - CellLabel-> - "In[154]:=",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], + CellLabel->"In[79]:=",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], -Cell[BoxData["37.77192070584817`"], "Output", - CellChangeTimes->{3.9913279321696014`*^9}, - CellLabel-> - "Out[154]=",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] +Cell[BoxData["26.621801936379956`"], "Output", + CellChangeTimes->{3.9913279321696014`*^9, 3.994256189266798*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"adbe485e-b496-4178-9911-98faf42fc355"] }, Open ]], Cell[CellGroupData[{ @@ -5189,13 +5123,11 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel-> - "In[155]:=",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], + CellLabel->"In[80]:=",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], -Cell[BoxData["0.718596406513947`"], "Output", - CellChangeTimes->{3.9913279321926613`*^9}, - CellLabel-> - "Out[155]=",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +Cell[BoxData["1.5371369371895296`"], "Output", + CellChangeTimes->{3.9913279321926613`*^9, 3.994256189271953*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"41b6997b-9572-4d9c-bbf8-1c6f15dcf674"] }, Open ]], Cell[CellGroupData[{ @@ -5204,13 +5136,11 @@ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", - CellLabel-> - "In[156]:=",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], + CellLabel->"In[81]:=",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], -Cell[BoxData["3.2238916343938024`"], "Output", - CellChangeTimes->{3.991327932200657*^9}, - CellLabel-> - "Out[156]=",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +Cell[BoxData["5.602681592764158`"], "Output", + CellChangeTimes->{3.991327932200657*^9, 3.994256189277096*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"04a55776-baa8-428c-ae0b-cbf43444f1bb"] }, Open ]], Cell[CellGroupData[{ @@ -5219,13 +5149,11 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel-> - "In[157]:=",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], + CellLabel->"In[82]:=",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], -Cell[BoxData["121.77257917856996`"], "Output", - CellChangeTimes->{3.99132793222501*^9}, - CellLabel-> - "Out[157]=",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +Cell[BoxData["149.1534796751692`"], "Output", + CellChangeTimes->{3.99132793222501*^9, 3.9942561892823153`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"99b28e14-70c8-4c71-9b38-7540867c270e"] }, Open ]], Cell[CellGroupData[{ @@ -5234,13 +5162,11 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[158]:=",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], + CellLabel->"In[83]:=",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], -Cell[BoxData["19.58078461858683`"], "Output", - CellChangeTimes->{3.9913279322642612`*^9}, - CellLabel-> - "Out[158]=",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +Cell[BoxData["24.147073445740027`"], "Output", + CellChangeTimes->{3.9913279322642612`*^9, 3.994256189287389*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"aa786797-42a0-4ba2-8b2f-4b7581b732e9"] }, Open ]], Cell[CellGroupData[{ @@ -5429,13 +5355,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[159]:=",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], + CellLabel->"In[84]:=",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], -Cell[BoxData["0.032550594324745`"], "Output", - CellChangeTimes->{3.9913279322906475`*^9}, - CellLabel-> - "Out[159]=",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +Cell[BoxData["0.006758344726164489`"], "Output", + CellChangeTimes->{3.9913279322906475`*^9, 3.994256189294846*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"d41b6397-e465-425d-ab40-ba59b067571a"] }, Open ]], Cell[CellGroupData[{ @@ -5448,13 +5372,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[160]:=",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], + CellLabel->"In[85]:=",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], -Cell[BoxData["4.91208054446651`"], "Output", - CellChangeTimes->{3.9913279323826447`*^9}, - CellLabel-> - "Out[160]=",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +Cell[BoxData["10.780149172905958`"], "Output", + CellChangeTimes->{3.9913279323826447`*^9, 3.994256189434435*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"193855d5-99ae-4f84-8a8a-a8d2737e6d59"] }, Open ]], Cell[CellGroupData[{ @@ -5645,13 +5567,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[161]:=",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], + CellLabel->"In[86]:=",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], -Cell[BoxData["0.012685641417856707`"], "Output", - CellChangeTimes->{3.991327932394655*^9}, - CellLabel-> - "Out[161]=",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +Cell[BoxData["0.039486141805614286`"], "Output", + CellChangeTimes->{3.991327932394655*^9, 3.994256189444166*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"f247c134-d2f5-4151-92ab-0538c0d37b3a"] }, Open ]], Cell[CellGroupData[{ @@ -5664,13 +5584,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[162]:=",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], + CellLabel->"In[87]:=",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], -Cell[BoxData["7.868441587445692`"], "Output", - CellChangeTimes->{3.991327932491659*^9}, - CellLabel-> - "Out[162]=",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +Cell[BoxData["4.459874010489606`"], "Output", + CellChangeTimes->{3.991327932491659*^9, 3.994256189492482*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"4ffe0af9-0805-4a4a-b4e0-e107a4ebd050"] }, Open ]], Cell[CellGroupData[{ @@ -5762,13 +5680,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[163]:=",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], + CellLabel->"In[88]:=",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.991327932509678*^9}, - CellLabel-> - "Out[163]=",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +Cell[BoxData["0.08888024365939537`"], "Output", + CellChangeTimes->{3.991327932509678*^9, 3.994256189501*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"34765691-a191-448e-961a-8b5668ae9a7a"] }, Open ]], Cell[CellGroupData[{ @@ -5857,13 +5773,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[164]:=",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], + CellLabel->"In[89]:=",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.9913279325457134`*^9}, - CellLabel-> - "Out[164]=",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +Cell[BoxData["0.9111197563406046`"], "Output", + CellChangeTimes->{3.9913279325457134`*^9, 3.994256189508259*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"cfd52b0d-3c6c-465b-a8b8-b4068b071c9a"] }, Open ]], Cell[CellGroupData[{ @@ -5985,19 +5899,17 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel-> - "In[165]:=",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], + CellLabel->"In[90]:=",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913279325697117`*^9}, - CellLabel-> - "Out[165]=",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] +Cell[BoxData["0.0809805459464419`"], "Output", + CellChangeTimes->{3.9913279325697117`*^9, 3.99425618951493*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"c5488963-8484-4829-b094-b83e0901caf7"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"714abd93-e0d1-\ -eb45-a9e1-7a2f5d020eb1"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], Cell[CellGroupData[{ @@ -6011,30 +5923,33 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -6058,68 +5973,70 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918488620812244`*^9},ExpressionUUID->"137c38a2-741c-bd43-b6d9-\ -c0135e32eaf8"], + CellChangeTimes->{3.9918488620812244`*^9}, + CellLabel->"In[92]:=",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 166, 109, 24483298974280422597, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279325947113`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2977303179502816`*^-208\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 92, 1, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279325947113`*^9, 3.99425618955963*^9}, CellLabel-> "During evaluation of \ -In[166]:=",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], +In[92]:=",ExpressionUUID->"bd69155c-ea31-475c-a16b-0881bf7bdf93"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 166, 110, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279326047096`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4571302235953658`*^-213\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 92, 2, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279325947113`*^9, 3.994256189583713*^9}, CellLabel-> "During evaluation of \ -In[166]:=",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], +In[92]:=",ExpressionUUID->"00bf0900-7183-4095-93e4-aef3e7bb0337"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 166, 111, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327932612709*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.636109181658516`*^-218\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 92, 3, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279325947113`*^9, 3.994256189590657*^9}, CellLabel-> "During evaluation of \ -In[166]:=",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], +In[92]:=",ExpressionUUID->"ce3a4164-e371-490f-8ce9-2734c38025e7"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 166, 112, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279326207104`*^9}, +during this calculation.\"", 2, 92, 4, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279325947113`*^9, 3.994256189594594*^9}, CellLabel-> "During evaluation of \ -In[166]:=",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], +In[92]:=",ExpressionUUID->"05d5a30e-027f-4e67-a53f-34432b340616"], -Cell[BoxData["4.912080544466506`"], "Output", - CellChangeTimes->{3.9913279359974174`*^9}, - CellLabel-> - "Out[166]=",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +Cell[BoxData["10.780149172905963`"], "Output", + CellChangeTimes->{3.9913279359974174`*^9, 3.994256190907365*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"bcef5c62-4a8d-41ca-820c-1ef203d56f32"] }, Open ]], Cell[CellGroupData[{ @@ -6134,30 +6051,33 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -6181,68 +6101,70 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991848865140564*^9},ExpressionUUID->"9b196534-2ca5-e54b-8014-\ -b0ab3cd09ac2"], + CellChangeTimes->{3.991848865140564*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 167, 113, 24483298974280422597, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327936033827*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2977303179502816`*^-208\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 93, 5, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327936033827*^9, 3.994256190970722*^9}, CellLabel-> "During evaluation of \ -In[167]:=",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], +In[93]:=",ExpressionUUID->"ccbc5996-211d-4b76-855e-ce2d16a90d80"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 167, 114, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279360428295`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4571302235953658`*^-213\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 93, 6, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327936033827*^9, 3.9942561909757223`*^9}, CellLabel-> "During evaluation of \ -In[167]:=",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], +In[93]:=",ExpressionUUID->"e4581839-5c00-47e0-adf5-469217dbed72"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 167, 115, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327936050829*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.636109181658516`*^-218\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 93, 7, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327936033827*^9, 3.9942561909803667`*^9}, CellLabel-> "During evaluation of \ -In[167]:=",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], +In[93]:=",ExpressionUUID->"f624f2a6-581d-4436-8174-9cf6a1dbfc43"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 167, 116, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279360588284`*^9}, +during this calculation.\"", 2, 93, 8, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327936033827*^9, 3.994256190983708*^9}, CellLabel-> "During evaluation of \ -In[167]:=",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], +In[93]:=",ExpressionUUID->"577f8dcb-ed3c-4e34-b7f8-2bff0964a227"], -Cell[BoxData["7.868441587445692`"], "Output", - CellChangeTimes->{3.9913279393385086`*^9}, - CellLabel-> - "Out[167]=",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +Cell[BoxData["4.459874010489609`"], "Output", + CellChangeTimes->{3.9913279393385086`*^9, 3.994256192402871*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"6450b3dc-fc19-40ed-9a5b-0bcae8bd35ab"] }, Open ]], Cell[CellGroupData[{ @@ -6252,141 +6174,141 @@ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ - FractionBox[ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", RowBox[{ - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", - RowBox[{"Cos", "[", - FractionBox[ - RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], - RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991848869193308*^9},ExpressionUUID->"124cd7db-c537-8943-bef2-\ -1a154ab4a709"], + CellChangeTimes->{3.991848869193308*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl -kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M -c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN -/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 -+orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 -Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD -VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE -TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG -+GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g -LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r -GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO -zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY -r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 -oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh -xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 -OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ -bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 -fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv -vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO -hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD -1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB -4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW -y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ -lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE -9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM -GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN -15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA -LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 -vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw -/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs -WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ -Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 -BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n -LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 -XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 -7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN -5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs -n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO -GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI -llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys -jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw -frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl -L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM -HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq -TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P -feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 -wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T -1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L -h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp -cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 -luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB -LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 -XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd -i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz -1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr -y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW -gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov -KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA -WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 -c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI -HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR -slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc -QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg -n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W -hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 -RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES -bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK -4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV -IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ -kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 -6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV -fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE -lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj -VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 -E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI -2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c -wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H -f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Xk4VVsUAHBjSZQhUyJcKnPdS0jsZY6QMbNw7zlkLFMyppKKJJQmkZmo +JJWovJcmeZHmSBSurpDhhAbe9sf5zvf79rfXWXvtvfZRDIhwIni4uLiG8bP4 +3vtCa/3tzhfGadn7HmxWZyPjsVLdAPMaVHfFa2zRfYWb85TNm9Hydr4EPWwH +1n9LhBiPUM9UJKGPXReX8pDfvB29XFdea4B97LF0S0r1S7Q++JKzIXZj595L +f+hvUGarl5sRNudjW+L+pvfIzLj3DsJePUjz+mnWg7r7VOJMsbePJxpEtX9G +Jbfppy2w7//hLI+r7kfSHXwi1thvU6USboV/RWm6F4dtsceWmHOm6YMo9tes +vCP2ksw9HoyZISShLVvvii0vWvB0b9Mw+jLIU+aJbS/7s3zM7Dsy1qAVE9hk +kZKkpsAYIoa9akOwU1R2pIW0jyPZA56SkdjvpV5viq6eQLNXqrgPYLM8g3fn +Zk6ijLhfh9Kxf1zkunwjfAoNnRJlncQWUNIUmaBTSFEj16gIO4/10EpE4ici +J/5ursJWqPBI0Z75ifQytbNuYOtrHBkLa5pF7G6262PsoM2f2zlmf5B2YJ3N +JPZ0XAyf4Lq/qMTJjT6PfaBp+VZVgXnUHPpon6AGG50F/SuB7QvoLfVLVhmb +VfbUPLKaGz6pv3zmhV39OLcvVZYHRpzuFwZj/2D7Jp7K5IG7fjGv9mMnqlH1 +18N5YXyDqcs57LxrirRxOj8IHvVp6sH+2Pn9/nwJP4TMFKWMYStM3vZcIbEE +ElnXL3NpslGNjn2O5swSQLt0FlSwWxvjuUObBEARfVgbg009fPV52EwIYu/1 +zihrsZGYrZBIwn0hyPJTPG+MvfG1OQgbCINjdUW1O3bwQEPRJq0VkEZLlczC +3sPTvtFISAR4m2Nk5rEHla5OpP0UBZvSnvZJbVwfsm1ZB0MMwOiss/hGNuK5 +MqQovVcMwrWLtulgKzDWOlWPiIFObn7SPmxPs+wbL/rE4cwPXXHeTWzUwYyM +knouAX92tY5q0dmotyIrw09AEsqNcj12Yn8fqS6pspAEQr2RkYwtGP31lWGL +JFxSE2Z0YJsfdtHxa5ACyy6OTyyDje6WbqYqC2WAuVaD+KDDRqWDv2K3RMvB +hbgqNKnHRttc03ujauVg+F7FKE0fx28Vt6wdkoMpzYnfrtg6pRoSCh7yYP5v +kEETdmuAbz2/8VpYiOfWP27ARpPjffuGDymA5nyu+RZDNhIPM79Zb6cEPG1+ +l78Ys9FQqWCQQ7ASjDPDPBUQG93p6ZQdPaIExXn9Ub7Y3rY+h9a1KMGGKr6n +3dil6rFO5+g0+BnjSH0E/H1OxY9kKWXgCHxjjZiykUvgck2bfhXo7owpdLFi +IxTrSnf7qwLrNghMX8RWSyvUY8msgyg1VtkgNlcJwzTZcR1UZyXJx21jo9pe +L7cb/6yDB9ddgi9b4/7cWZO6ung9FPue3M1vi/Mzt3vLCVAF3RCHFeKObFTi +nN89k6wKuWV28yR2VkB/H98FVUj6YrC9CZt1IGZE/pUqFPkP/GY5sZFocwGX +s5ka5FaV3ml2xueHMabWRFOHZ7PjRUk72UhW6WRKxoAGDHB/0rXwZqPm49Oq +czya8M5HeKAG23vK4zWpqAmr/NsWVvmw0aVWZVVTX00QSplIGcJWCrzbNftO +E/Ld1pVk7cLrrRlUIZ9rgUnxP7FTAWwkJytPKnhshEubnu1aGcxGGmXRQr8R +Hdbo+JVn72ejANYhStOeDr1nZHmXx+N+peX0+nnTIXTw6oM0bN7ia9cfx9FB +yZTlnpiA++0SxyWnjg5PpA0FwpPwfXrWr0CVxoDRfSpMZire3wxbLfclOqDs +cVDszDE2uhyp7NDQrgv/Fsg+kL3ARp2xSO9wmQEYJDh2mTxmI0XfN/Y+oUZQ +NrdW7NgMGxELt67K7QdwXNNpfFt9GEmN3FkqFWAK9dk2X+VChlE0Y2tPjpo5 +vNJQz7lfM4wCRv88FedYwN6R1EGVqWFUaxq1tLDDCjJ5B5S9Lb+h0ungf2ry +rOGm7a6asPPf0KyJ9H+tKdvh8NlG25w/39AnLt6Jfn87oH0ULOFlcVD4mojs +VNoOKJm/D+1tHHR199OW02kOMNGb+ELOZATFT8nMqO92BFeXnxvZDSOIsrHc ++WSXE0BrmImp4Xdk4HXKZNDRGfSr0jNGWr+jLpmC4FaGC8SemPqsuX0UrS4/ +1Fy5wRWU7G5ldn8ZRXf61GzthXeCPed381jMGJJ//SMwdnQn/Lelt5QjOI4Y +p0/VlPS5wVc9I8mkunFUwDellfPQHYg5TXrWhh/olon2x7RGD2gd3dOwNPUH +Oqt3XPRPtSccU2kxPvbhB+roLjvCyPQCAVbHVh3NCdRgd1F5zwFvuKcs7N94 +dAJNhDlzhbN8QM3PIza6dwJRlqpBY2a+wD/ne8eZPokqRz/MRm3eBSpG7TLn +8X/F/XIZ00fID/pdC+LPfp5E9Te27+JN9wPTXrGtOXpTyEC2a+7YnB+k7Kyf +00+fQrS+wI8vd/vDRHKsim/XFBpYHrLj4ld/mNHLYw2unUadWfZMK9cA0BQ0 +8PnMnEZ5cYXLYzoD4I2sooFQ5TRqvr8wx7RmgsulDIumgWm00hvSGXeZuD7e +SzWkKKSw6knHmmYmtPT1DMxib2y3k15ynwm0haJtj6Qp5LTVq+r9P0yQv+hZ +7L2aQnlrYp8nPWNCt0TQ+TQ5Cq3+dGXl0/dMCM94kdBCo5Cyr9RZ7xkmCOU1 +zr/XppCB31hlmg4L/E9WrjlhSaHycz+i7DezoCrmyYiWFYVWvZo0ltJnwXb7 +39s6sccsZl5XGrJAI1+3VtSawvcXF3e7KQvKI3hWn9xOoRUzoh5ijixwTykJ +i3ag0MAJ3WWFYSzY0FBnMexBoaymxN13ylkwJHdPLyKEQmH0fIO4Shao8LDX +T2DbVtUt069mAf1CfmlkKIUE84eqbteyIPyKnll0GIXSIh04t26y4IGrknhk +BIUSVZVDGv5lAb+Yy4hbFIWC85+H3ujF4yJ+Y8/jKWS9YmhrZB8LDoYxrVAC +hTakcQnTv7CAciPUbmAPRerW1g2yoCxDOutMIoX87QtHr39nwf5QtTaPZAq5 +80eFX/vFgi23KvnaUilkFbV6T40kAbuFt/E5HqXQv4VHbHKkCWhh5v+5h721 +fVI5bjUBcuXugWrH8H6pPP9gJk9A5cnuXO7jFJJ5l2DWrUKArnauZVUGhUa2 +fJIU1CXghnEJV28WhU7yFN0LdCbAQueiYU8eXr+20Fk7VwLYl9s89U5T6LBX +XCTDjYADIVPfTmHH3XRYv+BJQJfVdzeLMzh/kvvUmQACaNXH95TlU4jRFsB6 +tJeAQ+mOaTbnKfTulMpyWjaO7576bH0hha4i4aDhUwRI15twQrAPj0631uYS +8HLgTcY1bLp1a7J+PgHve2wcdYvw/nExJ+0uEWBkRxvYcplClhFFH+JqCFg5 +d2utVgmF5OSObja+SgCjwH9bMPZ0W0Qu73UCDjK0Jsqwi9chu6x6AmYbeR/K +llLo76dPLSV3cT1zD5LcZRS6aStb+eIpAfxv1UpvllMo4xcPf14bAfrHLdqG +sQMqOf4e7QTU6g1FrKmgkAjfXdmBDgKc0k4bHMQObXI/OfeWAImZm4+sKilE +UzsTqzxIQOTBo413qyj0613Sq29DBDgUzL0awu5MIzZeGyZAtD84TKyaQsn9 +OhyD7wR8TNCWC8L+ePaVz44pAipE9kYIX6FQzlJRi3huEsa6C9+jGgo1T37y +iuYloWlgfGkQNvtTdWQ4PwlDltOnT2JvvWleFLCMhMCGmf96sIf84n7biJIQ +osdVG1GL87e1ELMQJyFNbNnLHGxDPTFVJEECIZbm3ICdLVyzkyFDwpMDd6Jm +F8fvfq6TVSRhqs1UYd9VCpFlNU8laCRsOSajdxo7O3v/55UqJKAFtZob2EOk +uDCfKgnP4waujyyOi1sFfd9IwgxtifLOaxS6Oy+eMkQnoVF9iUYE9uC3vtN9 +OiRU2ormpGNvaYl/+FqfhOgqRtwt7IHQq/L3gIRBnTU1Qtdxv7sn6N42JQFi +2CUK2AZm22zrzEnI4MufY2BnyXzZX7aNhK82Offdse/wXcsutCGBM/NGMxj7 +63hCxTlbEoY/j/6Kx9Z/LPHmhAMJhl0ZV89jB9R9GUl3ImFuVPB0FfaJi9d4 +DrqQEBTo8OE29pdI642x7iSIr1FK6MIW9pW02uNJgsnhyve9i/Gsv/oEe5Mg +Vfotl7M4f21Shq8fzp9zisZVh/MRtCl2DyAh33N6Zhn2F0qy0YlFwj5xATVx +bOH+rx22JAkXxJ43ymLrt18fsgwi4XycYQUNO+B20l8IJiH9mNukGvaJYptV +hqEk/KmRu7BpMf4JKXXdcBJEwjMv6y3Gjxsw0d5DgktCMb8RthCrzl01koRv +5b5PTLD1diRH0KJJCBt6MGSxGH/L9iNysSTMOz1iWmNnqkgXSMWRYKYabmyL +fUtksF40Hp+XZ42x9tj9v+valifietyuEHJYjM9O7udPJuHAOT0uR+zNXdtn +F1JIYBnudlz0/xg34Xk= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -6400,106 +6322,106 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl -kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M -c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN -/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 -+orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 -Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD -VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE -TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG -+GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g -LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r -GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO -zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY -r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 -oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh -xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 -OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ -bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 -fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv -vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO -hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD -1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB -4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW -y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ -lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE -9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM -GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN -15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA -LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 -vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw -/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs -WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ -Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 -BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n -LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 -XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 -7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN -5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs -n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO -GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI -llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys -jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw -frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl -L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM -HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq -TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P -feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 -wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T -1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L -h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp -cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 -luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB -LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 -XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd -i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz -1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr -y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW -gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov -KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA -WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 -c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI -HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR -slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc -QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg -n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W -hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 -RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES -bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK -4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV -IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ -kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 -6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV -fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE -lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj -VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 -E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI -2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c -wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H -f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a +1:eJwV1Xk4VVsUAHBjSZQhUyJcKnPdS0jsZY6QMbNw7zlkLFMyppKKJJQmkZmo +JJWovJcmeZHmSBSurpDhhAbe9sf5zvf79rfXWXvtvfZRDIhwIni4uLiG8bP4 +3vtCa/3tzhfGadn7HmxWZyPjsVLdAPMaVHfFa2zRfYWb85TNm9Hydr4EPWwH +1n9LhBiPUM9UJKGPXReX8pDfvB29XFdea4B97LF0S0r1S7Q++JKzIXZj595L +f+hvUGarl5sRNudjW+L+pvfIzLj3DsJePUjz+mnWg7r7VOJMsbePJxpEtX9G +Jbfppy2w7//hLI+r7kfSHXwi1thvU6USboV/RWm6F4dtsceWmHOm6YMo9tes +vCP2ksw9HoyZISShLVvvii0vWvB0b9Mw+jLIU+aJbS/7s3zM7Dsy1qAVE9hk +kZKkpsAYIoa9akOwU1R2pIW0jyPZA56SkdjvpV5viq6eQLNXqrgPYLM8g3fn +Zk6ijLhfh9Kxf1zkunwjfAoNnRJlncQWUNIUmaBTSFEj16gIO4/10EpE4ici +J/5ursJWqPBI0Z75ifQytbNuYOtrHBkLa5pF7G6262PsoM2f2zlmf5B2YJ3N +JPZ0XAyf4Lq/qMTJjT6PfaBp+VZVgXnUHPpon6AGG50F/SuB7QvoLfVLVhmb +VfbUPLKaGz6pv3zmhV39OLcvVZYHRpzuFwZj/2D7Jp7K5IG7fjGv9mMnqlH1 +18N5YXyDqcs57LxrirRxOj8IHvVp6sH+2Pn9/nwJP4TMFKWMYStM3vZcIbEE +ElnXL3NpslGNjn2O5swSQLt0FlSwWxvjuUObBEARfVgbg009fPV52EwIYu/1 +zihrsZGYrZBIwn0hyPJTPG+MvfG1OQgbCINjdUW1O3bwQEPRJq0VkEZLlczC +3sPTvtFISAR4m2Nk5rEHla5OpP0UBZvSnvZJbVwfsm1ZB0MMwOiss/hGNuK5 +MqQovVcMwrWLtulgKzDWOlWPiIFObn7SPmxPs+wbL/rE4cwPXXHeTWzUwYyM +knouAX92tY5q0dmotyIrw09AEsqNcj12Yn8fqS6pspAEQr2RkYwtGP31lWGL +JFxSE2Z0YJsfdtHxa5ACyy6OTyyDje6WbqYqC2WAuVaD+KDDRqWDv2K3RMvB +hbgqNKnHRttc03ujauVg+F7FKE0fx28Vt6wdkoMpzYnfrtg6pRoSCh7yYP5v +kEETdmuAbz2/8VpYiOfWP27ARpPjffuGDymA5nyu+RZDNhIPM79Zb6cEPG1+ +l78Ys9FQqWCQQ7ASjDPDPBUQG93p6ZQdPaIExXn9Ub7Y3rY+h9a1KMGGKr6n +3dil6rFO5+g0+BnjSH0E/H1OxY9kKWXgCHxjjZiykUvgck2bfhXo7owpdLFi +IxTrSnf7qwLrNghMX8RWSyvUY8msgyg1VtkgNlcJwzTZcR1UZyXJx21jo9pe +L7cb/6yDB9ddgi9b4/7cWZO6ung9FPue3M1vi/Mzt3vLCVAF3RCHFeKObFTi +nN89k6wKuWV28yR2VkB/H98FVUj6YrC9CZt1IGZE/pUqFPkP/GY5sZFocwGX +s5ka5FaV3ml2xueHMabWRFOHZ7PjRUk72UhW6WRKxoAGDHB/0rXwZqPm49Oq +czya8M5HeKAG23vK4zWpqAmr/NsWVvmw0aVWZVVTX00QSplIGcJWCrzbNftO +E/Ld1pVk7cLrrRlUIZ9rgUnxP7FTAWwkJytPKnhshEubnu1aGcxGGmXRQr8R +Hdbo+JVn72ejANYhStOeDr1nZHmXx+N+peX0+nnTIXTw6oM0bN7ia9cfx9FB +yZTlnpiA++0SxyWnjg5PpA0FwpPwfXrWr0CVxoDRfSpMZire3wxbLfclOqDs +cVDszDE2uhyp7NDQrgv/Fsg+kL3ARp2xSO9wmQEYJDh2mTxmI0XfN/Y+oUZQ +NrdW7NgMGxELt67K7QdwXNNpfFt9GEmN3FkqFWAK9dk2X+VChlE0Y2tPjpo5 +vNJQz7lfM4wCRv88FedYwN6R1EGVqWFUaxq1tLDDCjJ5B5S9Lb+h0ungf2ry +rOGm7a6asPPf0KyJ9H+tKdvh8NlG25w/39AnLt6Jfn87oH0ULOFlcVD4mojs +VNoOKJm/D+1tHHR199OW02kOMNGb+ELOZATFT8nMqO92BFeXnxvZDSOIsrHc ++WSXE0BrmImp4Xdk4HXKZNDRGfSr0jNGWr+jLpmC4FaGC8SemPqsuX0UrS4/ +1Fy5wRWU7G5ldn8ZRXf61GzthXeCPed381jMGJJ//SMwdnQn/Lelt5QjOI4Y +p0/VlPS5wVc9I8mkunFUwDellfPQHYg5TXrWhh/olon2x7RGD2gd3dOwNPUH +Oqt3XPRPtSccU2kxPvbhB+roLjvCyPQCAVbHVh3NCdRgd1F5zwFvuKcs7N94 +dAJNhDlzhbN8QM3PIza6dwJRlqpBY2a+wD/ne8eZPokqRz/MRm3eBSpG7TLn +8X/F/XIZ00fID/pdC+LPfp5E9Te27+JN9wPTXrGtOXpTyEC2a+7YnB+k7Kyf +00+fQrS+wI8vd/vDRHKsim/XFBpYHrLj4ld/mNHLYw2unUadWfZMK9cA0BQ0 +8PnMnEZ5cYXLYzoD4I2sooFQ5TRqvr8wx7RmgsulDIumgWm00hvSGXeZuD7e +SzWkKKSw6knHmmYmtPT1DMxib2y3k15ynwm0haJtj6Qp5LTVq+r9P0yQv+hZ +7L2aQnlrYp8nPWNCt0TQ+TQ5Cq3+dGXl0/dMCM94kdBCo5Cyr9RZ7xkmCOU1 +zr/XppCB31hlmg4L/E9WrjlhSaHycz+i7DezoCrmyYiWFYVWvZo0ltJnwXb7 +39s6sccsZl5XGrJAI1+3VtSawvcXF3e7KQvKI3hWn9xOoRUzoh5ijixwTykJ +i3ag0MAJ3WWFYSzY0FBnMexBoaymxN13ylkwJHdPLyKEQmH0fIO4Shao8LDX +T2DbVtUt069mAf1CfmlkKIUE84eqbteyIPyKnll0GIXSIh04t26y4IGrknhk +BIUSVZVDGv5lAb+Yy4hbFIWC85+H3ujF4yJ+Y8/jKWS9YmhrZB8LDoYxrVAC +hTakcQnTv7CAciPUbmAPRerW1g2yoCxDOutMIoX87QtHr39nwf5QtTaPZAq5 +80eFX/vFgi23KvnaUilkFbV6T40kAbuFt/E5HqXQv4VHbHKkCWhh5v+5h721 +fVI5bjUBcuXugWrH8H6pPP9gJk9A5cnuXO7jFJJ5l2DWrUKArnauZVUGhUa2 +fJIU1CXghnEJV28WhU7yFN0LdCbAQueiYU8eXr+20Fk7VwLYl9s89U5T6LBX +XCTDjYADIVPfTmHH3XRYv+BJQJfVdzeLMzh/kvvUmQACaNXH95TlU4jRFsB6 +tJeAQ+mOaTbnKfTulMpyWjaO7576bH0hha4i4aDhUwRI15twQrAPj0631uYS +8HLgTcY1bLp1a7J+PgHve2wcdYvw/nExJ+0uEWBkRxvYcplClhFFH+JqCFg5 +d2utVgmF5OSObja+SgCjwH9bMPZ0W0Qu73UCDjK0Jsqwi9chu6x6AmYbeR/K +llLo76dPLSV3cT1zD5LcZRS6aStb+eIpAfxv1UpvllMo4xcPf14bAfrHLdqG +sQMqOf4e7QTU6g1FrKmgkAjfXdmBDgKc0k4bHMQObXI/OfeWAImZm4+sKilE +UzsTqzxIQOTBo413qyj0613Sq29DBDgUzL0awu5MIzZeGyZAtD84TKyaQsn9 +OhyD7wR8TNCWC8L+ePaVz44pAipE9kYIX6FQzlJRi3huEsa6C9+jGgo1T37y +iuYloWlgfGkQNvtTdWQ4PwlDltOnT2JvvWleFLCMhMCGmf96sIf84n7biJIQ +osdVG1GL87e1ELMQJyFNbNnLHGxDPTFVJEECIZbm3ICdLVyzkyFDwpMDd6Jm +F8fvfq6TVSRhqs1UYd9VCpFlNU8laCRsOSajdxo7O3v/55UqJKAFtZob2EOk +uDCfKgnP4waujyyOi1sFfd9IwgxtifLOaxS6Oy+eMkQnoVF9iUYE9uC3vtN9 +OiRU2ormpGNvaYl/+FqfhOgqRtwt7IHQq/L3gIRBnTU1Qtdxv7sn6N42JQFi +2CUK2AZm22zrzEnI4MufY2BnyXzZX7aNhK82Offdse/wXcsutCGBM/NGMxj7 +63hCxTlbEoY/j/6Kx9Z/LPHmhAMJhl0ZV89jB9R9GUl3ImFuVPB0FfaJi9d4 +DrqQEBTo8OE29pdI642x7iSIr1FK6MIW9pW02uNJgsnhyve9i/Gsv/oEe5Mg +Vfotl7M4f21Shq8fzp9zisZVh/MRtCl2DyAh33N6Zhn2F0qy0YlFwj5xATVx +bOH+rx22JAkXxJ43ymLrt18fsgwi4XycYQUNO+B20l8IJiH9mNukGvaJYptV +hqEk/KmRu7BpMf4JKXXdcBJEwjMv6y3Gjxsw0d5DgktCMb8RthCrzl01koRv +5b5PTLD1diRH0KJJCBt6MGSxGH/L9iNysSTMOz1iWmNnqkgXSMWRYKYabmyL +fUtksF40Hp+XZ42x9tj9v+valifietyuEHJYjM9O7udPJuHAOT0uR+zNXdtn +F1JIYBnudlz0/xg34Xk= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.819001000320631}, + "PlotRange" -> {{0, 180}, {0.7240251292792129, + 1.3557904415244701`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7240251292792145}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -6511,20 +6433,21 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "PlotRange" -> {{0, 180}, {0.7240251292792129, + 1.3557904415244701`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.819001000320631}, + "AxesOrigin" -> {0, 0.7240251292792145}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -6538,105 +6461,104 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl -kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M -c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN -/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 -+orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 -Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD -VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE -TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG -+GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g -LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r -GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO -zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY -r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 -oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh -xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 -OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ -bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 -fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv -vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO -hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD -1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB -4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW -y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ -lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE -9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM -GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN -15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA -LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 -vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw -/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs -WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ -Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 -BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n -LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 -XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 -7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN -5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs -n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO -GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI -llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys -jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw -frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl -L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM -HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq -TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P -feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 -wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T -1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L -h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp -cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 -luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB -LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 -XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd -i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz -1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr -y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW -gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov -KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA -WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 -c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI -HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR -slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc -QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg -n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W -hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 -RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES -bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK -4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV -IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ -kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 -6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV -fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE -lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj -VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 -E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI -2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c -wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H -f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a +1:eJwV1Xk4VVsUAHBjSZQhUyJcKnPdS0jsZY6QMbNw7zlkLFMyppKKJJQmkZmo +JJWovJcmeZHmSBSurpDhhAbe9sf5zvf79rfXWXvtvfZRDIhwIni4uLiG8bP4 +3vtCa/3tzhfGadn7HmxWZyPjsVLdAPMaVHfFa2zRfYWb85TNm9Hydr4EPWwH +1n9LhBiPUM9UJKGPXReX8pDfvB29XFdea4B97LF0S0r1S7Q++JKzIXZj595L +f+hvUGarl5sRNudjW+L+pvfIzLj3DsJePUjz+mnWg7r7VOJMsbePJxpEtX9G +Jbfppy2w7//hLI+r7kfSHXwi1thvU6USboV/RWm6F4dtsceWmHOm6YMo9tes +vCP2ksw9HoyZISShLVvvii0vWvB0b9Mw+jLIU+aJbS/7s3zM7Dsy1qAVE9hk +kZKkpsAYIoa9akOwU1R2pIW0jyPZA56SkdjvpV5viq6eQLNXqrgPYLM8g3fn +Zk6ijLhfh9Kxf1zkunwjfAoNnRJlncQWUNIUmaBTSFEj16gIO4/10EpE4ici +J/5ursJWqPBI0Z75ifQytbNuYOtrHBkLa5pF7G6262PsoM2f2zlmf5B2YJ3N +JPZ0XAyf4Lq/qMTJjT6PfaBp+VZVgXnUHPpon6AGG50F/SuB7QvoLfVLVhmb +VfbUPLKaGz6pv3zmhV39OLcvVZYHRpzuFwZj/2D7Jp7K5IG7fjGv9mMnqlH1 +18N5YXyDqcs57LxrirRxOj8IHvVp6sH+2Pn9/nwJP4TMFKWMYStM3vZcIbEE +ElnXL3NpslGNjn2O5swSQLt0FlSwWxvjuUObBEARfVgbg009fPV52EwIYu/1 +zihrsZGYrZBIwn0hyPJTPG+MvfG1OQgbCINjdUW1O3bwQEPRJq0VkEZLlczC +3sPTvtFISAR4m2Nk5rEHla5OpP0UBZvSnvZJbVwfsm1ZB0MMwOiss/hGNuK5 +MqQovVcMwrWLtulgKzDWOlWPiIFObn7SPmxPs+wbL/rE4cwPXXHeTWzUwYyM +knouAX92tY5q0dmotyIrw09AEsqNcj12Yn8fqS6pspAEQr2RkYwtGP31lWGL +JFxSE2Z0YJsfdtHxa5ACyy6OTyyDje6WbqYqC2WAuVaD+KDDRqWDv2K3RMvB +hbgqNKnHRttc03ujauVg+F7FKE0fx28Vt6wdkoMpzYnfrtg6pRoSCh7yYP5v +kEETdmuAbz2/8VpYiOfWP27ARpPjffuGDymA5nyu+RZDNhIPM79Zb6cEPG1+ +l78Ys9FQqWCQQ7ASjDPDPBUQG93p6ZQdPaIExXn9Ub7Y3rY+h9a1KMGGKr6n +3dil6rFO5+g0+BnjSH0E/H1OxY9kKWXgCHxjjZiykUvgck2bfhXo7owpdLFi +IxTrSnf7qwLrNghMX8RWSyvUY8msgyg1VtkgNlcJwzTZcR1UZyXJx21jo9pe +L7cb/6yDB9ddgi9b4/7cWZO6ung9FPue3M1vi/Mzt3vLCVAF3RCHFeKObFTi +nN89k6wKuWV28yR2VkB/H98FVUj6YrC9CZt1IGZE/pUqFPkP/GY5sZFocwGX +s5ka5FaV3ml2xueHMabWRFOHZ7PjRUk72UhW6WRKxoAGDHB/0rXwZqPm49Oq +czya8M5HeKAG23vK4zWpqAmr/NsWVvmw0aVWZVVTX00QSplIGcJWCrzbNftO +E/Ld1pVk7cLrrRlUIZ9rgUnxP7FTAWwkJytPKnhshEubnu1aGcxGGmXRQr8R +Hdbo+JVn72ejANYhStOeDr1nZHmXx+N+peX0+nnTIXTw6oM0bN7ia9cfx9FB +yZTlnpiA++0SxyWnjg5PpA0FwpPwfXrWr0CVxoDRfSpMZire3wxbLfclOqDs +cVDszDE2uhyp7NDQrgv/Fsg+kL3ARp2xSO9wmQEYJDh2mTxmI0XfN/Y+oUZQ +NrdW7NgMGxELt67K7QdwXNNpfFt9GEmN3FkqFWAK9dk2X+VChlE0Y2tPjpo5 +vNJQz7lfM4wCRv88FedYwN6R1EGVqWFUaxq1tLDDCjJ5B5S9Lb+h0ungf2ry +rOGm7a6asPPf0KyJ9H+tKdvh8NlG25w/39AnLt6Jfn87oH0ULOFlcVD4mojs +VNoOKJm/D+1tHHR199OW02kOMNGb+ELOZATFT8nMqO92BFeXnxvZDSOIsrHc ++WSXE0BrmImp4Xdk4HXKZNDRGfSr0jNGWr+jLpmC4FaGC8SemPqsuX0UrS4/ +1Fy5wRWU7G5ldn8ZRXf61GzthXeCPed381jMGJJ//SMwdnQn/Lelt5QjOI4Y +p0/VlPS5wVc9I8mkunFUwDellfPQHYg5TXrWhh/olon2x7RGD2gd3dOwNPUH +Oqt3XPRPtSccU2kxPvbhB+roLjvCyPQCAVbHVh3NCdRgd1F5zwFvuKcs7N94 +dAJNhDlzhbN8QM3PIza6dwJRlqpBY2a+wD/ne8eZPokqRz/MRm3eBSpG7TLn +8X/F/XIZ00fID/pdC+LPfp5E9Te27+JN9wPTXrGtOXpTyEC2a+7YnB+k7Kyf +00+fQrS+wI8vd/vDRHKsim/XFBpYHrLj4ld/mNHLYw2unUadWfZMK9cA0BQ0 +8PnMnEZ5cYXLYzoD4I2sooFQ5TRqvr8wx7RmgsulDIumgWm00hvSGXeZuD7e +SzWkKKSw6knHmmYmtPT1DMxib2y3k15ynwm0haJtj6Qp5LTVq+r9P0yQv+hZ +7L2aQnlrYp8nPWNCt0TQ+TQ5Cq3+dGXl0/dMCM94kdBCo5Cyr9RZ7xkmCOU1 +zr/XppCB31hlmg4L/E9WrjlhSaHycz+i7DezoCrmyYiWFYVWvZo0ltJnwXb7 +39s6sccsZl5XGrJAI1+3VtSawvcXF3e7KQvKI3hWn9xOoRUzoh5ijixwTykJ +i3ag0MAJ3WWFYSzY0FBnMexBoaymxN13ylkwJHdPLyKEQmH0fIO4Shao8LDX +T2DbVtUt069mAf1CfmlkKIUE84eqbteyIPyKnll0GIXSIh04t26y4IGrknhk +BIUSVZVDGv5lAb+Yy4hbFIWC85+H3ujF4yJ+Y8/jKWS9YmhrZB8LDoYxrVAC +hTakcQnTv7CAciPUbmAPRerW1g2yoCxDOutMIoX87QtHr39nwf5QtTaPZAq5 +80eFX/vFgi23KvnaUilkFbV6T40kAbuFt/E5HqXQv4VHbHKkCWhh5v+5h721 +fVI5bjUBcuXugWrH8H6pPP9gJk9A5cnuXO7jFJJ5l2DWrUKArnauZVUGhUa2 +fJIU1CXghnEJV28WhU7yFN0LdCbAQueiYU8eXr+20Fk7VwLYl9s89U5T6LBX +XCTDjYADIVPfTmHH3XRYv+BJQJfVdzeLMzh/kvvUmQACaNXH95TlU4jRFsB6 +tJeAQ+mOaTbnKfTulMpyWjaO7576bH0hha4i4aDhUwRI15twQrAPj0631uYS +8HLgTcY1bLp1a7J+PgHve2wcdYvw/nExJ+0uEWBkRxvYcplClhFFH+JqCFg5 +d2utVgmF5OSObja+SgCjwH9bMPZ0W0Qu73UCDjK0Jsqwi9chu6x6AmYbeR/K +llLo76dPLSV3cT1zD5LcZRS6aStb+eIpAfxv1UpvllMo4xcPf14bAfrHLdqG +sQMqOf4e7QTU6g1FrKmgkAjfXdmBDgKc0k4bHMQObXI/OfeWAImZm4+sKilE +UzsTqzxIQOTBo413qyj0613Sq29DBDgUzL0awu5MIzZeGyZAtD84TKyaQsn9 +OhyD7wR8TNCWC8L+ePaVz44pAipE9kYIX6FQzlJRi3huEsa6C9+jGgo1T37y +iuYloWlgfGkQNvtTdWQ4PwlDltOnT2JvvWleFLCMhMCGmf96sIf84n7biJIQ +osdVG1GL87e1ELMQJyFNbNnLHGxDPTFVJEECIZbm3ICdLVyzkyFDwpMDd6Jm +F8fvfq6TVSRhqs1UYd9VCpFlNU8laCRsOSajdxo7O3v/55UqJKAFtZob2EOk +uDCfKgnP4waujyyOi1sFfd9IwgxtifLOaxS6Oy+eMkQnoVF9iUYE9uC3vtN9 +OiRU2ormpGNvaYl/+FqfhOgqRtwt7IHQq/L3gIRBnTU1Qtdxv7sn6N42JQFi +2CUK2AZm22zrzEnI4MufY2BnyXzZX7aNhK82Offdse/wXcsutCGBM/NGMxj7 +63hCxTlbEoY/j/6Kx9Z/LPHmhAMJhl0ZV89jB9R9GUl3ImFuVPB0FfaJi9d4 +DrqQEBTo8OE29pdI642x7iSIr1FK6MIW9pW02uNJgsnhyve9i/Gsv/oEe5Mg +Vfotl7M4f21Shq8fzp9zisZVh/MRtCl2DyAh33N6Zhn2F0qy0YlFwj5xATVx +bOH+rx22JAkXxJ43ymLrt18fsgwi4XycYQUNO+B20l8IJiH9mNukGvaJYptV +hqEk/KmRu7BpMf4JKXXdcBJEwjMv6y3Gjxsw0d5DgktCMb8RthCrzl01koRv +5b5PTLD1diRH0KJJCBt6MGSxGH/L9iNysSTMOz1iWmNnqkgXSMWRYKYabmyL +fUtksF40Hp+XZ42x9tj9v+valifietyuEHJYjM9O7udPJuHAOT0uR+zNXdtn +F1JIYBnudlz0/xg34Xk= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "PlotRange" -> {{0, 180}, {0.7240251292792129, 1.3557904415244701`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.819001000320631}, + "AxesOrigin" -> {0, 0.7240251292792145}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -6646,7 +6568,8 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.819001000320631}, + AxesOrigin->{0, 0.7240251292792145}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -6674,7 +6597,8 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.8190010003206292, 1.212160280392001}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.7240251292792129, 1.3557904415244701`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -6682,9 +6606,8 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913281932019863`*^9}, - CellLabel-> - "Out[168]=",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] + CellChangeTimes->{3.9913281932019863`*^9, 3.994256492890917*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"761fc6f8-8bb8-48a5-afc3-9d13572c23f1"] }, Open ]], Cell[CellGroupData[{ @@ -6699,30 +6622,33 @@ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -6747,348 +6673,163 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918488717861137`*^9},ExpressionUUID->"5a7f9400-1446-9746-a463-\ -bade8ae5c530"], + CellChangeTimes->{3.9918488717861137`*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0472568361461936`*^-267\\\", \ -\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 169, - 117, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913281934227676`*^9}, - CellLabel-> - "During evaluation of \ -In[169]:=",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.5836247142456827`*^-279\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.0017931922923344`*^-273\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 169, - 118, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913281934317894`*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 95, 9, + 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913281934227676`*^9, 3.9942564934171057`*^9}, CellLabel-> "During evaluation of \ -In[169]:=",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], +In[95]:=",ExpressionUUID->"ff9f17a5-76b8-4809-8953-565247b6a8b6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.3739060311364366`*^-291\\\", \ + "\"\\!\\(\\*FractionBox[\\\"4.224842233797248`*^-285\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 169, 119, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913281934409904`*^9}, +to represent as a normalized machine number; precision may be lost.\"", 2, 95, + 10, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913281934227676`*^9, 3.994256493428697*^9}, CellLabel-> "During evaluation of \ -In[169]:=",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], +In[95]:=",ExpressionUUID->"428de98a-9294-42b9-8e12-6f42c08376d3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.781734198016819`*^-296\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 95, 11, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913281934227676`*^9, 3.994256493438225*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"bb8c982e-eef3-40f1-91b7-895253235b61"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 169, 120, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99132819344899*^9}, +during this calculation.\"", 2, 95, 12, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913281934227676`*^9, 3.9942564934477987`*^9}, CellLabel-> "During evaluation of \ -In[169]:=",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], +In[95]:=",ExpressionUUID->"6b57a181-7df2-4f40-bfe7-ab4c15e23c3e"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr -4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X -RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD -OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV -zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn -l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI -1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p -HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t -nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx -T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq -8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT -gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L -kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR -bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R -rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS -HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y -gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg -bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ -wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 -Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO -1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a -MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC -VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy -Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU -OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr -0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 -WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN -FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 -NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW -uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN -BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs -Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy -O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx -e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k -Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU -/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q -6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 -qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu -/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 -hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC -qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij -bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 -i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ -Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja -ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D -d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr -z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA -MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD -Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g -gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv -eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq -t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 -+PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m -848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 -yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt -633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI -4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De -Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM -E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 -Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r -lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy -uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb -tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT -ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ -8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats -MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ -LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy -rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h -EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys -GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv -8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK -E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 -T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 -uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl -dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt -Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh -dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH -E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD -HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ -aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh -2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I -P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq -UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G -c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd -xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn -l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e -zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L -Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 -6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU -4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 -UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C -zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n -TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 -PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa -/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP -4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP -HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 -56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT -fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU -pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV -YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq -mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 -rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM -b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN -ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li -wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp -fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 -EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM -ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj -ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT -T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e -E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv -C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a -Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ -1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs -eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN -4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y -pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE -1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu -6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc -pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 -Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ -Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP -NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc -mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh -27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 -PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c -ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi -0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U -XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA -VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT -gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn -LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp -PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n -23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw -CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i -L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc -KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN -/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 -v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 -1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb -eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 -tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q -sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 -MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa -mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o -aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv -RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 -UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde -aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK -Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ -jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA -LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O -VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP -6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 -Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl -vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny -ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf -PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo -v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ -QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 -JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv -WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ -q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 -HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC -lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK -THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K -LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r -qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk -TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt -XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx -3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y -NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy -Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R -/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD -9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J -eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl -lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c -to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 -mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib -HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 -Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 -RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH -ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w -tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK -EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF -n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 -Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl -kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 -+f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC -XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf -+xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw -5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn -fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 -GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 -+8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx -f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI -cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU -+tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG -aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL -eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ -00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M -z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf -O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD -mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ -3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA -61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu -+HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY -b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J -EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq -OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw -320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq -T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL -uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP -ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E -mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c -aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 -2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t -HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 -cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl -5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs -bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ -pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl -Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 -RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 -u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW -vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 -JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd -9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f -CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS -GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be -/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT -kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI -8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX -Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne -xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ -EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ -MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 -mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl -kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr -wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z -nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo -Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t -RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO -NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T -6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl -w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL -TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L -7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ -RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr -ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag -gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e -gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW -nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 -ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV -JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu -NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ -wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu -acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik -f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 -Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ -Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 -CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 -ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA -lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu -AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN -SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v -q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi -hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L -ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH -ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn -DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL -8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 -iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA -D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA -V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S -MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD -nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ -MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd -Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k8VVsUB3ChDJkyz+69LiXzTFxrkZSZEJnSgHqEJKJEihRJUWlCppTp +HmWWhISKlAwVytBgilcoKe+8v87n+/mc8zlnr73Xb+9D3RO83ZeVhYWFfxUL +y//XhaH2FnpSngnPy+Vjp5+YmvRkikea9sdBrdbjKjtbCqBI1x7x/kvw2t3C +VclWA8Id7vWx9eeAzUEeYwFbhHUzYpd+9ZXDL98K1gkbBxiutwv+0dcEl6Uc +DUNsfMCCPjE41/cK1hkKNmVYhcCvPv3Ls30jwNfzt858cyw0b76T153zHSw1 +O9xiX6aC9HDNpz0qf2BeNq1VtiQDhAN33ePYzIaq+W4ubauz4ZKmRZ2dCycW +6YXkr2/NhYEMjcY5AV5cLFb6mLBSAEl5MV2sEuvwaojBLSWFeyCWPno27ZYQ +btdnP9HcXwziyhWnfxYIofAB12ahkWKQbEqI8WIKYWBTsYX3ZDHIziodWd8s +hGlXCllH/hSDgk2IT90XIYxd3qmeRysBbfY/eqPawjgud95LMKAE7MNEx7Q6 +hPGHR2ZsymIJnHG2NHm1IILydx4+7vpbCpIPOiVZV4liZJnbeQeOMigVcl7U +XCuKV+aLbDr4y6D3lTfzopwo/oqdzCmklAHdMYzmuE0UVb3DLguYlUGTbdaa +l9dEkX3H6f7kU2Xwx2K+84WxGJZu7n+awcKE1IKooj8WYvilxizfn50J9DUs +iaqOYtju8WJWi5MJNk+4Tc/7imFVnnx3Az8Trm+m3LdJEcNjoqZlRbJMMEDr +q8+GxXDoyUzhgBETDhve3tUeJ446GhNC8YeZYJXN98M6WRwZASH6heFMoHEc +T+y8LI7OZn0GbZFMeNmzg3hdKI5d50d7/sYwQS2Eh22oUxxDmsKDLZKZ8KUg +ouBfSQn0E6qTgTwmeArbTUvdl0BxT7O1vd1M0D5WdzKzXgILrJRepPcwgXtk +gyi1VQL7wpgBDn1MqCljA8UBCfw+UWXS8J4JotY1qRorEnjiSRIj7DP5/pN0 +nS3Wkmj9an+h5TITzL8tRQWNSmJCZ27FdXkCIrelb3w8JYlFa9hcvyoQUHpb +9a3QgiQu0p4s6GwgQNzZx7CGUwpn7Jc0m1UImKp+ssimJoUmJoI36nQJSItL +Dbt2VArdfwu4S28lYEREMaiFVxr3evu3ZfoTIBb8SEZMTBrzHDYknj9AgE2b +24sDFGmcLdtoExlAQGVUkgq/tjRWB33+uDWYgHPDsxM73aSxg13C+nE4AVp3 +6/y/5Uhj87fntgrxBJw0dtwtaSCDtmHXuB9kEbDNO/NffTMZHLkXSvjeJoAv +dvKUi40MSuSwfhDKJeBmc3xBqo8MFh9h7fUtIKDaqnZyzVkZ9Jb9oPmhmIBZ +N/nw7wMy+DQonV+9hoCqqBCOdWMyeDFYZP/dWgJO3HyYoTYjg9x6NfaUegJ4 +PrjWHWCVRcmMA51sjwhY75/M8mGjLEpcK756u4UA7yPz554fk0VeifVdBl0E +KFw1k56Il8WAfEG34y//r9+FEo5UWaSz3Dpa301A1LLSS7M8WbS91B2n1UPA +5VPeIjXPZXG089mz+X4Cnl98mpUvI4ebQifvD3wk631fWLN5vRxWKbQvfxoh +wP3N7qYPmnIYWNn+aXaUgC/iy2NSFnJIe1yVvTROAFu2xsZLQXIosF+mYfwr +AZtKrz048UgO67mWNaTmCDDv6/wz0yaHgxyf48dI27Gwb931Sg6P2pb9uPcv +AXu3Bw3AuBzKVIrQ1H8QYHGMGhO7moLR34WfCy8S8Iy/PteAm4IfWRtXWkk7 +5O1om+WjYJdln2P4TwI8XiSt2y1OwYzSLKfnvwgIkVvINVWm4L/6wkMuywTM +309t+6VOQQGvDJE50lHblKcJHQr2F24JOfuHgPhDPno0Ewr2FZy5SPwl4Hpz +RxurIwXbDVrSh1nKQc7Nd7rWhYIJN+4s7F1VDnlTK+sOu1PQYXNm7DjpMhFd +j9G9FLxWspX/A2s5tPhnTTeHU5A921TpPns5WC4bCh4/RkHJVYcGKavLoTO1 +R08nloK51I6GJNIDNVyxeWcpSHl3ce3ONeXgbZeX55lCwS9mdkfrSI+NmLQL +p1Hw65qXwlIc5TCzNkww/iYFE4tbh7tJH87m02fcJp9vTOFX4iyHnzp3Pebz +KciZ1nQomjSb91CebxkFXbWlXspwlYM4c5u+RRMFJYqPcDC4y+GW+ajH31YK +3nQ/PhhNmjYQHVv5jIJaYR6TdaRVWe+3K76hYFWNL6G+thzKr9jODA1Q8M3M +9398SRsofxG8OkTBmGzKrgzSZs4ynhxfKOhRRFuaJ/30S1XsoykKPjT0yaHw +lINN9Pb8iDkKypXyJG4j/WrddLv6AgW9Hg4WHSTtWnBm5vMS+T2PzvKlkn6/ +iSaUvULBD2VPmWWk93TV67uxU/Gasn3ac9Kf97p6CnBRUSe0v/IT6cCfc7Ft +vFQs2yct/Zf0pkN+op8EqVhv/GWXMG85cE68LWITp6LWolPgetK9e+xNqTJU +9EuyNdMnnf+uudeERkXZF80jm0mHORsEeq6n4lJAgZ0tabMXxauiVKh4/9/x +BCfSAhbUq1c1qRjbejh5B+mhhssqFXpU9FE08/nfxfrcTa+MqBi60Zzt//uj +mCdcZ5GK9s0Hw21Ib1P6PsVrQUWbmvu1ZqRFc/zjlK2p+KVobbcu6THJ92KW +DlTkWBdYq0C6PM2hxM+Fis46zyMEScfyPDE77U7FC3p07mVyvPbxhv23d1Gx +j+dg6Ahp2b8lBx/to6JgbDbxhPRUOI1t8AAVVVVq2vJJ1367krEURMV/Ysqr +40gn7l+rJh5GxdaaxDhP0js+xjTrRlJx05TBem3SdPcfbk4nqCj0s/HOGtKN +1oOnUhKpeEPNGfPI+U5pcZQoPk9Fl/W73INIezJaS9svUVE+3dRZl/QvtbIB +9ltUrDC4PFlDrq+2O/LBtBwq5uXzJEWQvkLJYMc7VMz55s+nRVpL8KT6MYKs +n+Fwyy1y/bIkzbdkVFIx/hHHkh3pTrZ/3CvrqNihqir2h1zvAfPb4+eeUNHE +N5XXgXReP/2d/1sqmq90cnST/RTqeC0kfpiKVbyz1w6Qxg7eNbljVLxq7yu9 +QvbjYN2CxtAMFQcvJiz836+iWW0Jzmw0HJP3lUE2cj7EGNKhnDS8e2HUvpHs +9/JUgrjAS0OnKcYxBmn7uOvvO8RoyBvQ36hG5kOib6CWqQoNPX5zK06T+fJL +WWBI1YWGpwoXbd+SebVwS/KktjsN97S0dKqS/sGvQDfcRUPpwIgjJ8h8m/lu ++I/5ARqereg0ECPzb6Ru74J7NA3FNbQqFMm87LCu4kvMp+Hxo+bhDdMEPH34 +mDh/j4bBwT69Y1MEtKg/d04ro2H077KDnKQbhD5ez6whx9O23WLrBAHl77jX +V7yg4ajlnYbcT2T+BXjDyDwNC9Ijn/QPEXB1cP/I5yUazo07yb4eJCDd/nD8 +9AoNXVIsGzveE5CinfjsJ5c8NvYKjxFvCYj7Tbjyy8rjhinlZ7t6CQhIWh1i +bCGPrwqVJYxeEGBcVJx95Yo8XnCtGVqsJuAdpShryw15jGFEsFdUkfl85W7m +jyx5dJV0nAmuJPfLkwU3t9+VR6GXIDh8n9yv3bIz+OrlceRxUGVOKQFKq9NT +Ez7K42ilr00juR+L7joWG65Cx0JOyVyPZAIqeiJjFDTpGOT6VO/1OQKcrY6e +6NGlo8BUUOm2swRc0j1yXAvoiJINtqoJBPDyBB+dcaTjnfTx/YMxBLDX7Anx +i6DjhrnLCwOhBMwJWvnsaKJjzKJQobUrAf2BtJf/PKXjsznFUXcXAhpblyDm +OR2JwJ/t/k4EpEYVyRX20pGZqZ0dZU+AxgjP8K8JOkpHFaSfJs8zQUSX1y0h +BXRy8n+2UZ+ACXsXj7F9Cjhfl/ytXZiAsWSfHaEciviRkTmT1c6EoAkVmgaP +Ig6WuenZP2XC4tZf09MCimjut6F5uYU8v7Fdij8gqYg4e4W5vZEJGpHND3xU +FfG2W87S10omRPsqCtk7KeLUGx/rp7nkec5kqks5SxG7jlmPmR9nguW3CMtx +vfXIniLolbyBCVN7OQ8/iNmAf+fmL3A1lpL/E2KsZ5qUULehr7ecpwQEXyim +ML9tRBm5Qv/VHkUgnVjmoKengvt2nJRoCLkLGcqGAkL+qphF6fUpv3kHOiRN +db9fVEPH52O/47vyYZN0U6p6rzqurd5hMTmcC3xsOWG74zSQWRip0CGVA7In +5Yx3KmpiCEV/XbVZNnApeFZuf6qJfoP003SBW6DGkCiL8NJC5bjcPQ1s1yF0 +SLDZikUbm0r2712YvALfvie7WGZoI9v8mi9SkA5b1VuvW6rqoHSX3zn5novQ +8N3o92KnDgbv8xagDqdAkIrW225fXawfTz584c05YMzs69nJpYfF72kWLF8T +YAtd3JY3Rw9vaLuPiNw5BRtizx1t0tfHBZ6J8HvdsbDR1/CRwlt99DWfP8Jl +chx8G/affnDIAG/tD2s5+y4CHmX37JsTMUTlnB3hpxoPw4/ClUX1KkO8tn9w +IMw+BPYqFHFdt92Ek1HH7W/LB8DcxjS98tlNuHtgdaCIpB9U5/3+OJ9ohMlv +Q32qFfaA3uawRaskI5T/WfU9XmwPVHyc4sk+b4S573NVvbj2QLnskL7VJSMs +VAuN3TC9G4ozGs9n3jDCCd6d/FoVuyE7Od5wa6kRvnl9YjPP1t1wNoz/YsZr +I/R04pqoPuQD7ubyaCRrjBavtukzm73gTw8nXzPFGHO9m/Oe3vWCbN+Zd1by +xkhvtX397wUv+JRQE+G+wRhPuUWZnfb0gtB2+7JILWO0U8sVvLTgCefsjstW +WxijU55kr52aJ9S6vVnWCTbG/PPRXT+L3EHq4JkatUZjzCinap4YdIWUFT/d +pCZjPDQuJ3G53RVYL1kQn1uMkfuNYVFthStMVK6+m91ujFuiv93VTHGFWpbT +GYKvjXFFJ1qsE1zBPT02YmHcGI/nR85W5++AjLpI3Ya1DLzabWMjcdwFRLgD +CVtXBl7hW1uq6OgEeZujo2Z3MtA04P2mGhMn0IpO2ZzmycBl213+HipOYDfL +fNO/m4Eff02GdnI4QULv/K+9gQxUj4iXCXq0HX7mxJhFnWSg/Mxr2XOa2+Gt +UdrrgiIGpm5amP1CcYT9R/JuWpYysL/IxsZdwBEWSit8p5gMTBr7MD2w4gCC +tP5FzUoGNhsJvWUbdgBrThnph40MXGkT0FmV6QD1PQX7Xr9hoCp/wlSGrANY +8VWrhvcz8OT14Z6vfA7Qv7V9QfwdA0NpFxtS/9rDj9rJRO8PDPSRZd/n2WgP +qrc1Sr5OMLDRoy5Qf4s91L81DU+eZmCxX5EKoWgPVsJOoD7LwNNCTalbOO3B +78yR7rB5BnbwGS08fGYHPxoTrov9ZKASu8LL2yV2ELd0dW/tEgPFx8xXsi7Y +gYDOXRWvPwzcC0vB1YfsIPNg7fzKCgOTa8v4Jp3s4D9QXqFN "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7102,307 +6843,119 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr -4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X -RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD -OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV -zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn -l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI -1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p -HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t -nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx -T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq -8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT -gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L -kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR -bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R -rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS -HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y -gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg -bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ -wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 -Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO -1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a -MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC -VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy -Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU -OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr -0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 -WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN -FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 -NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW -uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN -BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs -Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy -O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx -e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k -Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU -/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q -6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 -qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu -/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 -hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC -qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij -bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 -i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ -Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja -ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D -d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr -z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA -MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD -Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g -gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv -eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq -t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 -+PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m -848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 -yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt -633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI -4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De -Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM -E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 -Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r -lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy -uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb -tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT -ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ -8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats -MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ -LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy -rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h -EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys -GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv -8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK -E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 -T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 -uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl -dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt -Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh -dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH -E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD -HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ -aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh -2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I -P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq -UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G -c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd -xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn -l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e -zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L -Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 -6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU -4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 -UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C -zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n -TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 -PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa -/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP -4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP -HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 -56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT -fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU -pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV -YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq -mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 -rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM -b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN -ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li -wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp -fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 -EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM -ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj -ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT -T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e -E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv -C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a -Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ -1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs -eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN -4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y -pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE -1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu -6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc -pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 -Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ -Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP -NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc -mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh -27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 -PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c -ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi -0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U -XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA -VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT -gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn -LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp -PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n -23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw -CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i -L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc -KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN -/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 -v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 -1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb -eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 -tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q -sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 -MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa -mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o -aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv -RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 -UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde -aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK -Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ -jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA -LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O -VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP -6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 -Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl -vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny -ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf -PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo -v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ -QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 -JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv -WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ -q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 -HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC -lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK -THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K -LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r -qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk -TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt -XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx -3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y -NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy -Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R -/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD -9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J -eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl -lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c -to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 -mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib -HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 -Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 -RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH -ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w -tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK -EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF -n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 -Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl -kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 -+f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC -XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf -+xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw -5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn -fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 -GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 -+8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx -f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI -cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU -+tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG -aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL -eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ -00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M -z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf -O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD -mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ -3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA -61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu -+HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY -b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J -EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq -OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw -320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq -T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL -uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP -ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E -mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c -aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 -2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t -HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 -cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl -5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs -bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ -pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl -Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 -RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 -u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW -vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 -JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd -9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f -CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS -GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be -/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT -kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI -8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX -Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne -xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ -EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ -MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 -mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl -kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr -wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z -nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo -Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t -RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO -NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T -6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl -w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL -TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L -7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ -RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr -ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag -gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e -gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW -nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 -ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV -JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu -NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ -wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu -acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik -f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 -Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ -Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 -CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 -ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA -lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu -AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN -SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v -q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi -hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L -ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH -ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn -DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL -8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 -iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA -D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA -V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S -MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD -nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ -MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd -Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== +1:eJwV13k8VVsUB3ChDJkyz+69LiXzTFxrkZSZEJnSgHqEJKJEihRJUWlCppTp +HmWWhISKlAwVytBgilcoKe+8v87n+/mc8zlnr73Xb+9D3RO83ZeVhYWFfxUL +y//XhaH2FnpSngnPy+Vjp5+YmvRkikea9sdBrdbjKjtbCqBI1x7x/kvw2t3C +VclWA8Id7vWx9eeAzUEeYwFbhHUzYpd+9ZXDL98K1gkbBxiutwv+0dcEl6Uc +DUNsfMCCPjE41/cK1hkKNmVYhcCvPv3Ls30jwNfzt858cyw0b76T153zHSw1 +O9xiX6aC9HDNpz0qf2BeNq1VtiQDhAN33ePYzIaq+W4ubauz4ZKmRZ2dCycW +6YXkr2/NhYEMjcY5AV5cLFb6mLBSAEl5MV2sEuvwaojBLSWFeyCWPno27ZYQ +btdnP9HcXwziyhWnfxYIofAB12ahkWKQbEqI8WIKYWBTsYX3ZDHIziodWd8s +hGlXCllH/hSDgk2IT90XIYxd3qmeRysBbfY/eqPawjgud95LMKAE7MNEx7Q6 +hPGHR2ZsymIJnHG2NHm1IILydx4+7vpbCpIPOiVZV4liZJnbeQeOMigVcl7U +XCuKV+aLbDr4y6D3lTfzopwo/oqdzCmklAHdMYzmuE0UVb3DLguYlUGTbdaa +l9dEkX3H6f7kU2Xwx2K+84WxGJZu7n+awcKE1IKooj8WYvilxizfn50J9DUs +iaqOYtju8WJWi5MJNk+4Tc/7imFVnnx3Az8Trm+m3LdJEcNjoqZlRbJMMEDr +q8+GxXDoyUzhgBETDhve3tUeJ446GhNC8YeZYJXN98M6WRwZASH6heFMoHEc +T+y8LI7OZn0GbZFMeNmzg3hdKI5d50d7/sYwQS2Eh22oUxxDmsKDLZKZ8KUg +ouBfSQn0E6qTgTwmeArbTUvdl0BxT7O1vd1M0D5WdzKzXgILrJRepPcwgXtk +gyi1VQL7wpgBDn1MqCljA8UBCfw+UWXS8J4JotY1qRorEnjiSRIj7DP5/pN0 +nS3Wkmj9an+h5TITzL8tRQWNSmJCZ27FdXkCIrelb3w8JYlFa9hcvyoQUHpb +9a3QgiQu0p4s6GwgQNzZx7CGUwpn7Jc0m1UImKp+ssimJoUmJoI36nQJSItL +Dbt2VArdfwu4S28lYEREMaiFVxr3evu3ZfoTIBb8SEZMTBrzHDYknj9AgE2b +24sDFGmcLdtoExlAQGVUkgq/tjRWB33+uDWYgHPDsxM73aSxg13C+nE4AVp3 +6/y/5Uhj87fntgrxBJw0dtwtaSCDtmHXuB9kEbDNO/NffTMZHLkXSvjeJoAv +dvKUi40MSuSwfhDKJeBmc3xBqo8MFh9h7fUtIKDaqnZyzVkZ9Jb9oPmhmIBZ +N/nw7wMy+DQonV+9hoCqqBCOdWMyeDFYZP/dWgJO3HyYoTYjg9x6NfaUegJ4 +PrjWHWCVRcmMA51sjwhY75/M8mGjLEpcK756u4UA7yPz554fk0VeifVdBl0E +KFw1k56Il8WAfEG34y//r9+FEo5UWaSz3Dpa301A1LLSS7M8WbS91B2n1UPA +5VPeIjXPZXG089mz+X4Cnl98mpUvI4ebQifvD3wk631fWLN5vRxWKbQvfxoh +wP3N7qYPmnIYWNn+aXaUgC/iy2NSFnJIe1yVvTROAFu2xsZLQXIosF+mYfwr +AZtKrz048UgO67mWNaTmCDDv6/wz0yaHgxyf48dI27Gwb931Sg6P2pb9uPcv +AXu3Bw3AuBzKVIrQ1H8QYHGMGhO7moLR34WfCy8S8Iy/PteAm4IfWRtXWkk7 +5O1om+WjYJdln2P4TwI8XiSt2y1OwYzSLKfnvwgIkVvINVWm4L/6wkMuywTM +309t+6VOQQGvDJE50lHblKcJHQr2F24JOfuHgPhDPno0Ewr2FZy5SPwl4Hpz +RxurIwXbDVrSh1nKQc7Nd7rWhYIJN+4s7F1VDnlTK+sOu1PQYXNm7DjpMhFd +j9G9FLxWspX/A2s5tPhnTTeHU5A921TpPns5WC4bCh4/RkHJVYcGKavLoTO1 +R08nloK51I6GJNIDNVyxeWcpSHl3ce3ONeXgbZeX55lCwS9mdkfrSI+NmLQL +p1Hw65qXwlIc5TCzNkww/iYFE4tbh7tJH87m02fcJp9vTOFX4iyHnzp3Pebz +KciZ1nQomjSb91CebxkFXbWlXspwlYM4c5u+RRMFJYqPcDC4y+GW+ajH31YK +3nQ/PhhNmjYQHVv5jIJaYR6TdaRVWe+3K76hYFWNL6G+thzKr9jODA1Q8M3M +9398SRsofxG8OkTBmGzKrgzSZs4ynhxfKOhRRFuaJ/30S1XsoykKPjT0yaHw +lINN9Pb8iDkKypXyJG4j/WrddLv6AgW9Hg4WHSTtWnBm5vMS+T2PzvKlkn6/ +iSaUvULBD2VPmWWk93TV67uxU/Gasn3ac9Kf97p6CnBRUSe0v/IT6cCfc7Ft +vFQs2yct/Zf0pkN+op8EqVhv/GWXMG85cE68LWITp6LWolPgetK9e+xNqTJU +9EuyNdMnnf+uudeERkXZF80jm0mHORsEeq6n4lJAgZ0tabMXxauiVKh4/9/x +BCfSAhbUq1c1qRjbejh5B+mhhssqFXpU9FE08/nfxfrcTa+MqBi60Zzt//uj +mCdcZ5GK9s0Hw21Ib1P6PsVrQUWbmvu1ZqRFc/zjlK2p+KVobbcu6THJ92KW +DlTkWBdYq0C6PM2hxM+Fis46zyMEScfyPDE77U7FC3p07mVyvPbxhv23d1Gx +j+dg6Ahp2b8lBx/to6JgbDbxhPRUOI1t8AAVVVVq2vJJ1367krEURMV/Ysqr +40gn7l+rJh5GxdaaxDhP0js+xjTrRlJx05TBem3SdPcfbk4nqCj0s/HOGtKN +1oOnUhKpeEPNGfPI+U5pcZQoPk9Fl/W73INIezJaS9svUVE+3dRZl/QvtbIB +9ltUrDC4PFlDrq+2O/LBtBwq5uXzJEWQvkLJYMc7VMz55s+nRVpL8KT6MYKs +n+Fwyy1y/bIkzbdkVFIx/hHHkh3pTrZ/3CvrqNihqir2h1zvAfPb4+eeUNHE +N5XXgXReP/2d/1sqmq90cnST/RTqeC0kfpiKVbyz1w6Qxg7eNbljVLxq7yu9 +QvbjYN2CxtAMFQcvJiz836+iWW0Jzmw0HJP3lUE2cj7EGNKhnDS8e2HUvpHs +9/JUgrjAS0OnKcYxBmn7uOvvO8RoyBvQ36hG5kOib6CWqQoNPX5zK06T+fJL +WWBI1YWGpwoXbd+SebVwS/KktjsN97S0dKqS/sGvQDfcRUPpwIgjJ8h8m/lu ++I/5ARqereg0ECPzb6Ru74J7NA3FNbQqFMm87LCu4kvMp+Hxo+bhDdMEPH34 +mDh/j4bBwT69Y1MEtKg/d04ro2H077KDnKQbhD5ez6whx9O23WLrBAHl77jX +V7yg4ajlnYbcT2T+BXjDyDwNC9Ijn/QPEXB1cP/I5yUazo07yb4eJCDd/nD8 +9AoNXVIsGzveE5CinfjsJ5c8NvYKjxFvCYj7Tbjyy8rjhinlZ7t6CQhIWh1i +bCGPrwqVJYxeEGBcVJx95Yo8XnCtGVqsJuAdpShryw15jGFEsFdUkfl85W7m +jyx5dJV0nAmuJPfLkwU3t9+VR6GXIDh8n9yv3bIz+OrlceRxUGVOKQFKq9NT +Ez7K42ilr00juR+L7joWG65Cx0JOyVyPZAIqeiJjFDTpGOT6VO/1OQKcrY6e +6NGlo8BUUOm2swRc0j1yXAvoiJINtqoJBPDyBB+dcaTjnfTx/YMxBLDX7Anx +i6DjhrnLCwOhBMwJWvnsaKJjzKJQobUrAf2BtJf/PKXjsznFUXcXAhpblyDm +OR2JwJ/t/k4EpEYVyRX20pGZqZ0dZU+AxgjP8K8JOkpHFaSfJs8zQUSX1y0h +BXRy8n+2UZ+ACXsXj7F9Cjhfl/ytXZiAsWSfHaEciviRkTmT1c6EoAkVmgaP +Ig6WuenZP2XC4tZf09MCimjut6F5uYU8v7Fdij8gqYg4e4W5vZEJGpHND3xU +FfG2W87S10omRPsqCtk7KeLUGx/rp7nkec5kqks5SxG7jlmPmR9nguW3CMtx +vfXIniLolbyBCVN7OQ8/iNmAf+fmL3A1lpL/E2KsZ5qUULehr7ecpwQEXyim +ML9tRBm5Qv/VHkUgnVjmoKengvt2nJRoCLkLGcqGAkL+qphF6fUpv3kHOiRN +db9fVEPH52O/47vyYZN0U6p6rzqurd5hMTmcC3xsOWG74zSQWRip0CGVA7In +5Yx3KmpiCEV/XbVZNnApeFZuf6qJfoP003SBW6DGkCiL8NJC5bjcPQ1s1yF0 +SLDZikUbm0r2712YvALfvie7WGZoI9v8mi9SkA5b1VuvW6rqoHSX3zn5novQ +8N3o92KnDgbv8xagDqdAkIrW225fXawfTz584c05YMzs69nJpYfF72kWLF8T +YAtd3JY3Rw9vaLuPiNw5BRtizx1t0tfHBZ6J8HvdsbDR1/CRwlt99DWfP8Jl +chx8G/affnDIAG/tD2s5+y4CHmX37JsTMUTlnB3hpxoPw4/ClUX1KkO8tn9w +IMw+BPYqFHFdt92Ek1HH7W/LB8DcxjS98tlNuHtgdaCIpB9U5/3+OJ9ohMlv +Q32qFfaA3uawRaskI5T/WfU9XmwPVHyc4sk+b4S573NVvbj2QLnskL7VJSMs +VAuN3TC9G4ozGs9n3jDCCd6d/FoVuyE7Od5wa6kRvnl9YjPP1t1wNoz/YsZr +I/R04pqoPuQD7ubyaCRrjBavtukzm73gTw8nXzPFGHO9m/Oe3vWCbN+Zd1by +xkhvtX397wUv+JRQE+G+wRhPuUWZnfb0gtB2+7JILWO0U8sVvLTgCefsjstW +WxijU55kr52aJ9S6vVnWCTbG/PPRXT+L3EHq4JkatUZjzCinap4YdIWUFT/d +pCZjPDQuJ3G53RVYL1kQn1uMkfuNYVFthStMVK6+m91ujFuiv93VTHGFWpbT +GYKvjXFFJ1qsE1zBPT02YmHcGI/nR85W5++AjLpI3Ya1DLzabWMjcdwFRLgD +CVtXBl7hW1uq6OgEeZujo2Z3MtA04P2mGhMn0IpO2ZzmycBl213+HipOYDfL +fNO/m4Eff02GdnI4QULv/K+9gQxUj4iXCXq0HX7mxJhFnWSg/Mxr2XOa2+Gt +UdrrgiIGpm5amP1CcYT9R/JuWpYysL/IxsZdwBEWSit8p5gMTBr7MD2w4gCC +tP5FzUoGNhsJvWUbdgBrThnph40MXGkT0FmV6QD1PQX7Xr9hoCp/wlSGrANY +8VWrhvcz8OT14Z6vfA7Qv7V9QfwdA0NpFxtS/9rDj9rJRO8PDPSRZd/n2WgP +qrc1Sr5OMLDRoy5Qf4s91L81DU+eZmCxX5EKoWgPVsJOoD7LwNNCTalbOO3B +78yR7rB5BnbwGS08fGYHPxoTrov9ZKASu8LL2yV2ELd0dW/tEgPFx8xXsi7Y +gYDOXRWvPwzcC0vB1YfsIPNg7fzKCgOTa8v4Jp3s4D9QXqFN "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "PlotRange" -> {{0, 30}, {0., 0.0705160229588504}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7414,19 +6967,19 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "PlotRange" -> {{0, 30}, {0., 0.0705160229588504}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7440,306 +6993,118 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr -4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X -RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD -OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV -zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn -l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI -1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p -HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t -nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx -T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq -8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT -gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L -kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR -bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R -rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS -HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y -gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg -bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ -wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 -Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO -1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a -MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC -VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy -Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU -OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr -0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 -WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN -FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 -NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW -uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN -BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs -Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy -O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx -e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k -Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU -/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q -6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 -qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu -/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 -hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC -qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij -bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 -i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ -Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja -ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D -d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr -z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA -MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD -Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g -gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv -eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq -t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 -+PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m -848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 -yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt -633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI -4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De -Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM -E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 -Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r -lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy -uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb -tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT -ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ -8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats -MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ -LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy -rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h -EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys -GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv -8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK -E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 -T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 -uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl -dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt -Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh -dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH -E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD -HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ -aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh -2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I -P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq -UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G -c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd -xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn -l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e -zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L -Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 -6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU -4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 -UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C -zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n -TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 -PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa -/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP -4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP -HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 -56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT -fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU -pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV -YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq -mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 -rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM -b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN -ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li -wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp -fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 -EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM -ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj -ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT -T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e -E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv -C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a -Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ -1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs -eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN -4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y -pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE -1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu -6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc -pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 -Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ -Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP -NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc -mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh -27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 -PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c -ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi -0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U -XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA -VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT -gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn -LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp -PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n -23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw -CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i -L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc -KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN -/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 -v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 -1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb -eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 -tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q -sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 -MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa -mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o -aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv -RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 -UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde -aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK -Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ -jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA -LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O -VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP -6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 -Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl -vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny -ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf -PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo -v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ -QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 -JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv -WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ -q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 -HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC -lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK -THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K -LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r -qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk -TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt -XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx -3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y -NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy -Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R -/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD -9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J -eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl -lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c -to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 -mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib -HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 -Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 -RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH -ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w -tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK -EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF -n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 -Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl -kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 -+f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC -XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf -+xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw -5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn -fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 -GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 -+8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx -f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI -cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU -+tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG -aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL -eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ -00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M -z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf -O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD -mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ -3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA -61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu -+HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY -b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J -EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq -OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw -320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq -T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL -uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP -ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E -mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c -aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 -2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t -HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 -cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl -5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs -bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ -pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl -Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 -RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 -u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW -vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 -JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd -9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f -CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS -GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be -/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT -kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI -8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX -Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne -xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ -EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ -MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 -mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl -kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr -wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z -nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo -Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t -RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO -NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T -6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl -w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL -TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L -7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ -RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr -ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag -gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e -gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW -nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 -ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV -JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu -NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ -wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu -acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik -f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 -Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ -Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 -CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 -ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA -lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu -AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN -SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v -q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi -hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L -ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH -ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn -DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL -8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 -iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA -D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA -V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S -MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD -nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ -MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd -Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== +1:eJwV13k8VVsUB3ChDJkyz+69LiXzTFxrkZSZEJnSgHqEJKJEihRJUWlCppTp +HmWWhISKlAwVytBgilcoKe+8v87n+/mc8zlnr73Xb+9D3RO83ZeVhYWFfxUL +y//XhaH2FnpSngnPy+Vjp5+YmvRkikea9sdBrdbjKjtbCqBI1x7x/kvw2t3C +VclWA8Id7vWx9eeAzUEeYwFbhHUzYpd+9ZXDL98K1gkbBxiutwv+0dcEl6Uc +DUNsfMCCPjE41/cK1hkKNmVYhcCvPv3Ls30jwNfzt858cyw0b76T153zHSw1 +O9xiX6aC9HDNpz0qf2BeNq1VtiQDhAN33ePYzIaq+W4ubauz4ZKmRZ2dCycW +6YXkr2/NhYEMjcY5AV5cLFb6mLBSAEl5MV2sEuvwaojBLSWFeyCWPno27ZYQ +btdnP9HcXwziyhWnfxYIofAB12ahkWKQbEqI8WIKYWBTsYX3ZDHIziodWd8s +hGlXCllH/hSDgk2IT90XIYxd3qmeRysBbfY/eqPawjgud95LMKAE7MNEx7Q6 +hPGHR2ZsymIJnHG2NHm1IILydx4+7vpbCpIPOiVZV4liZJnbeQeOMigVcl7U +XCuKV+aLbDr4y6D3lTfzopwo/oqdzCmklAHdMYzmuE0UVb3DLguYlUGTbdaa +l9dEkX3H6f7kU2Xwx2K+84WxGJZu7n+awcKE1IKooj8WYvilxizfn50J9DUs +iaqOYtju8WJWi5MJNk+4Tc/7imFVnnx3Az8Trm+m3LdJEcNjoqZlRbJMMEDr +q8+GxXDoyUzhgBETDhve3tUeJ446GhNC8YeZYJXN98M6WRwZASH6heFMoHEc +T+y8LI7OZn0GbZFMeNmzg3hdKI5d50d7/sYwQS2Eh22oUxxDmsKDLZKZ8KUg +ouBfSQn0E6qTgTwmeArbTUvdl0BxT7O1vd1M0D5WdzKzXgILrJRepPcwgXtk +gyi1VQL7wpgBDn1MqCljA8UBCfw+UWXS8J4JotY1qRorEnjiSRIj7DP5/pN0 +nS3Wkmj9an+h5TITzL8tRQWNSmJCZ27FdXkCIrelb3w8JYlFa9hcvyoQUHpb +9a3QgiQu0p4s6GwgQNzZx7CGUwpn7Jc0m1UImKp+ssimJoUmJoI36nQJSItL +Dbt2VArdfwu4S28lYEREMaiFVxr3evu3ZfoTIBb8SEZMTBrzHDYknj9AgE2b +24sDFGmcLdtoExlAQGVUkgq/tjRWB33+uDWYgHPDsxM73aSxg13C+nE4AVp3 +6/y/5Uhj87fntgrxBJw0dtwtaSCDtmHXuB9kEbDNO/NffTMZHLkXSvjeJoAv +dvKUi40MSuSwfhDKJeBmc3xBqo8MFh9h7fUtIKDaqnZyzVkZ9Jb9oPmhmIBZ +N/nw7wMy+DQonV+9hoCqqBCOdWMyeDFYZP/dWgJO3HyYoTYjg9x6NfaUegJ4 +PrjWHWCVRcmMA51sjwhY75/M8mGjLEpcK756u4UA7yPz554fk0VeifVdBl0E +KFw1k56Il8WAfEG34y//r9+FEo5UWaSz3Dpa301A1LLSS7M8WbS91B2n1UPA +5VPeIjXPZXG089mz+X4Cnl98mpUvI4ebQifvD3wk631fWLN5vRxWKbQvfxoh +wP3N7qYPmnIYWNn+aXaUgC/iy2NSFnJIe1yVvTROAFu2xsZLQXIosF+mYfwr +AZtKrz048UgO67mWNaTmCDDv6/wz0yaHgxyf48dI27Gwb931Sg6P2pb9uPcv +AXu3Bw3AuBzKVIrQ1H8QYHGMGhO7moLR34WfCy8S8Iy/PteAm4IfWRtXWkk7 +5O1om+WjYJdln2P4TwI8XiSt2y1OwYzSLKfnvwgIkVvINVWm4L/6wkMuywTM +309t+6VOQQGvDJE50lHblKcJHQr2F24JOfuHgPhDPno0Ewr2FZy5SPwl4Hpz +RxurIwXbDVrSh1nKQc7Nd7rWhYIJN+4s7F1VDnlTK+sOu1PQYXNm7DjpMhFd +j9G9FLxWspX/A2s5tPhnTTeHU5A921TpPns5WC4bCh4/RkHJVYcGKavLoTO1 +R08nloK51I6GJNIDNVyxeWcpSHl3ce3ONeXgbZeX55lCwS9mdkfrSI+NmLQL +p1Hw65qXwlIc5TCzNkww/iYFE4tbh7tJH87m02fcJp9vTOFX4iyHnzp3Pebz +KciZ1nQomjSb91CebxkFXbWlXspwlYM4c5u+RRMFJYqPcDC4y+GW+ajH31YK +3nQ/PhhNmjYQHVv5jIJaYR6TdaRVWe+3K76hYFWNL6G+thzKr9jODA1Q8M3M +9398SRsofxG8OkTBmGzKrgzSZs4ynhxfKOhRRFuaJ/30S1XsoykKPjT0yaHw +lINN9Pb8iDkKypXyJG4j/WrddLv6AgW9Hg4WHSTtWnBm5vMS+T2PzvKlkn6/ +iSaUvULBD2VPmWWk93TV67uxU/Gasn3ac9Kf97p6CnBRUSe0v/IT6cCfc7Ft +vFQs2yct/Zf0pkN+op8EqVhv/GWXMG85cE68LWITp6LWolPgetK9e+xNqTJU +9EuyNdMnnf+uudeERkXZF80jm0mHORsEeq6n4lJAgZ0tabMXxauiVKh4/9/x +BCfSAhbUq1c1qRjbejh5B+mhhssqFXpU9FE08/nfxfrcTa+MqBi60Zzt//uj +mCdcZ5GK9s0Hw21Ib1P6PsVrQUWbmvu1ZqRFc/zjlK2p+KVobbcu6THJ92KW +DlTkWBdYq0C6PM2hxM+Fis46zyMEScfyPDE77U7FC3p07mVyvPbxhv23d1Gx +j+dg6Ahp2b8lBx/to6JgbDbxhPRUOI1t8AAVVVVq2vJJ1367krEURMV/Ysqr +40gn7l+rJh5GxdaaxDhP0js+xjTrRlJx05TBem3SdPcfbk4nqCj0s/HOGtKN +1oOnUhKpeEPNGfPI+U5pcZQoPk9Fl/W73INIezJaS9svUVE+3dRZl/QvtbIB +9ltUrDC4PFlDrq+2O/LBtBwq5uXzJEWQvkLJYMc7VMz55s+nRVpL8KT6MYKs +n+Fwyy1y/bIkzbdkVFIx/hHHkh3pTrZ/3CvrqNihqir2h1zvAfPb4+eeUNHE +N5XXgXReP/2d/1sqmq90cnST/RTqeC0kfpiKVbyz1w6Qxg7eNbljVLxq7yu9 +QvbjYN2CxtAMFQcvJiz836+iWW0Jzmw0HJP3lUE2cj7EGNKhnDS8e2HUvpHs +9/JUgrjAS0OnKcYxBmn7uOvvO8RoyBvQ36hG5kOib6CWqQoNPX5zK06T+fJL +WWBI1YWGpwoXbd+SebVwS/KktjsN97S0dKqS/sGvQDfcRUPpwIgjJ8h8m/lu ++I/5ARqereg0ECPzb6Ru74J7NA3FNbQqFMm87LCu4kvMp+Hxo+bhDdMEPH34 +mDh/j4bBwT69Y1MEtKg/d04ro2H077KDnKQbhD5ez6whx9O23WLrBAHl77jX +V7yg4ajlnYbcT2T+BXjDyDwNC9Ijn/QPEXB1cP/I5yUazo07yb4eJCDd/nD8 +9AoNXVIsGzveE5CinfjsJ5c8NvYKjxFvCYj7Tbjyy8rjhinlZ7t6CQhIWh1i +bCGPrwqVJYxeEGBcVJx95Yo8XnCtGVqsJuAdpShryw15jGFEsFdUkfl85W7m +jyx5dJV0nAmuJPfLkwU3t9+VR6GXIDh8n9yv3bIz+OrlceRxUGVOKQFKq9NT +Ez7K42ilr00juR+L7joWG65Cx0JOyVyPZAIqeiJjFDTpGOT6VO/1OQKcrY6e +6NGlo8BUUOm2swRc0j1yXAvoiJINtqoJBPDyBB+dcaTjnfTx/YMxBLDX7Anx +i6DjhrnLCwOhBMwJWvnsaKJjzKJQobUrAf2BtJf/PKXjsznFUXcXAhpblyDm +OR2JwJ/t/k4EpEYVyRX20pGZqZ0dZU+AxgjP8K8JOkpHFaSfJs8zQUSX1y0h +BXRy8n+2UZ+ACXsXj7F9Cjhfl/ytXZiAsWSfHaEciviRkTmT1c6EoAkVmgaP +Ig6WuenZP2XC4tZf09MCimjut6F5uYU8v7Fdij8gqYg4e4W5vZEJGpHND3xU +FfG2W87S10omRPsqCtk7KeLUGx/rp7nkec5kqks5SxG7jlmPmR9nguW3CMtx +vfXIniLolbyBCVN7OQ8/iNmAf+fmL3A1lpL/E2KsZ5qUULehr7ecpwQEXyim +ML9tRBm5Qv/VHkUgnVjmoKengvt2nJRoCLkLGcqGAkL+qphF6fUpv3kHOiRN +db9fVEPH52O/47vyYZN0U6p6rzqurd5hMTmcC3xsOWG74zSQWRip0CGVA7In +5Yx3KmpiCEV/XbVZNnApeFZuf6qJfoP003SBW6DGkCiL8NJC5bjcPQ1s1yF0 +SLDZikUbm0r2712YvALfvie7WGZoI9v8mi9SkA5b1VuvW6rqoHSX3zn5novQ +8N3o92KnDgbv8xagDqdAkIrW225fXawfTz584c05YMzs69nJpYfF72kWLF8T +YAtd3JY3Rw9vaLuPiNw5BRtizx1t0tfHBZ6J8HvdsbDR1/CRwlt99DWfP8Jl +chx8G/affnDIAG/tD2s5+y4CHmX37JsTMUTlnB3hpxoPw4/ClUX1KkO8tn9w +IMw+BPYqFHFdt92Ek1HH7W/LB8DcxjS98tlNuHtgdaCIpB9U5/3+OJ9ohMlv +Q32qFfaA3uawRaskI5T/WfU9XmwPVHyc4sk+b4S573NVvbj2QLnskL7VJSMs +VAuN3TC9G4ozGs9n3jDCCd6d/FoVuyE7Od5wa6kRvnl9YjPP1t1wNoz/YsZr +I/R04pqoPuQD7ubyaCRrjBavtukzm73gTw8nXzPFGHO9m/Oe3vWCbN+Zd1by +xkhvtX397wUv+JRQE+G+wRhPuUWZnfb0gtB2+7JILWO0U8sVvLTgCefsjstW +WxijU55kr52aJ9S6vVnWCTbG/PPRXT+L3EHq4JkatUZjzCinap4YdIWUFT/d +pCZjPDQuJ3G53RVYL1kQn1uMkfuNYVFthStMVK6+m91ujFuiv93VTHGFWpbT +GYKvjXFFJ1qsE1zBPT02YmHcGI/nR85W5++AjLpI3Ya1DLzabWMjcdwFRLgD +CVtXBl7hW1uq6OgEeZujo2Z3MtA04P2mGhMn0IpO2ZzmycBl213+HipOYDfL +fNO/m4Eff02GdnI4QULv/K+9gQxUj4iXCXq0HX7mxJhFnWSg/Mxr2XOa2+Gt +UdrrgiIGpm5amP1CcYT9R/JuWpYysL/IxsZdwBEWSit8p5gMTBr7MD2w4gCC +tP5FzUoGNhsJvWUbdgBrThnph40MXGkT0FmV6QD1PQX7Xr9hoCp/wlSGrANY +8VWrhvcz8OT14Z6vfA7Qv7V9QfwdA0NpFxtS/9rDj9rJRO8PDPSRZd/n2WgP +qrc1Sr5OMLDRoy5Qf4s91L81DU+eZmCxX5EKoWgPVsJOoD7LwNNCTalbOO3B +78yR7rB5BnbwGS08fGYHPxoTrov9ZKASu8LL2yV2ELd0dW/tEgPFx8xXsi7Y +gYDOXRWvPwzcC0vB1YfsIPNg7fzKCgOTa8v4Jp3s4D9QXqFN "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "PlotRange" -> {{0, 30}, {0., 0.0705160229588504}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7750,6 +7115,7 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -7777,7 +7143,8 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.15475569508294718`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.0705160229588504}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -7785,11 +7152,12 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913290128289948`*^9}, - CellLabel-> - "Out[169]=",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] + CellChangeTimes->{3.9913290128289948`*^9, 3.994257083541607*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"30fbd107-c3cc-4d39-bf09-425d3dc727d1"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", @@ -7858,576 +7226,759 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"30", ",", "0.00371"}], "}"}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, - 3.994083326686453*^9},ExpressionUUID->"0f83f761-b16d-5343-987d-\ -511095eaf120"], + 3.994083326686453*^9}, + CellLabel->"In[96]:=",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], Cell[BoxData[ - RowBox[{"Show", "[", - RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"8cdd4baa-f7c9-104e-b978-\ -89d3982ba28f"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"L", "=", - FractionBox[ - SqrtBox[ - RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.9918488983507824`*^9},ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-\ -3438788b15d6"], - -Cell[BoxData["9.779568499633264`"], "Output", - CellChangeTimes->{3.9913294794877434`*^9}, - CellLabel-> - "Out[171]=",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"L", "=", - RowBox[{"Plot", "[", - RowBox[{ - RowBox[{ - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], - RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", - RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], - ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", - FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - FractionBox["1", "Cb"], ")"}]}]], - RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", - RowBox[{"{", - RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918488997875195`*^9},ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-\ -0e75880d5d98"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 172, 125, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913294796838703`*^9}, - CellLabel-> - "During evaluation of \ -In[172]:=",ExpressionUUID->"3a61d965-a130-7645-90c6-a5061b94ec40"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.19148428074309`*^-272\\\", \ -\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 172, 126, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329479692892*^9}, - CellLabel-> - "During evaluation of \ -In[172]:=",ExpressionUUID->"c3c0d10c-aa86-9b43-bfa9-71bc099863f1"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.652750330712858`*^-282\\\", \ -\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 172, 127, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913294797011433`*^9}, - CellLabel-> - "During evaluation of \ -In[172]:=",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], - -Cell[BoxData[ - TemplateBox[{ - "General", "stop", - "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ -\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 172, 128, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329479709572*^9}, - CellLabel-> - "During evaluation of \ -In[172]:=",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], - -Cell[BoxData[ - GraphicsBox[ - InterpretationBox[{ - TagBox[{{{}, {}, - TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU -cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u -4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf -U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF -PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur -M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw -2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 -W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh -xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV -SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn -q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf -DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz -jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF -g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla -wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo -vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw -aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ -Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN -Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV -weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy -KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL -typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ -HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy -qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC -ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp -ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u -8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT -5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ -O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y -hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N -8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL -FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 -VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD -QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio -X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa -idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 -98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp -E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi -LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev -FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ -N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F -tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 -2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J -o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe -9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG -mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n -sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi -Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN -QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl -WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 -OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 -jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z -I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 -8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY -kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 -cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR -87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs -dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX -Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P -uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 -uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm -szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl -LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef -fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ -8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW -rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ -5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 -nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J -H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq -4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD -o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ -C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt -1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ -d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY -ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 -/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx -8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu -Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc -OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg -nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG -f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz -m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ -+Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea -Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 -B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG -pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft -R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ -//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL -fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa -H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj -1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw -8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y -PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 -OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g -41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 -j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b -LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m -MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W -9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ -v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U -N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb -be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq -XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl -vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF -7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI -1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg -cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD -wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO -D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK - "]]}, - Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, - {"WolframDynamicHighlight", <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], - StyleBox[ - DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, - Slot["HighlightElements"], - Slot["LayoutOptions"], - Slot["Meta"], - Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ Annotation[{ Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU -cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u -4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf -U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF -PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur -M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw -2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 -W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh -xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV -SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn -q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf -DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz -jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF -g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla -wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo -vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw -aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ -Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN -Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV -weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy -KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL -typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ -HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy -qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC -ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp -ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u -8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT -5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ -O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y -hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N -8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL -FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 -VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD -QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio -X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa -idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 -98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp -E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi -LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev -FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ -N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F -tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 -2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J -o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe -9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG -mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n -sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi -Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN -QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl -WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 -OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 -jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z -I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 -8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY -kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 -cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR -87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs -dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX -Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P -uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 -uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm -szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl -LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef -fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ -8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW -rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ -5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 -nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J -H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq -4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD -o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ -C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt -1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ -d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY -ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 -/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx -8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu -Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc -OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg -nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG -f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz -m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ -+Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea -Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 -B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG -pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft -R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ -//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL -fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa -H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj -1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw -8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y -PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 -OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g -41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 -j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b -LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m -MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W -9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ -v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U -N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb -be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq -XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl -vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF -7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI -1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg -cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD -wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO -D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK - "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, - "Frame" -> {{False, False}, {False, False}}, + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>]]& )[<| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, - "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { - 4.503599627370496*^15, -4.503599627370496*^15}}], - Selectable->False]}, - Annotation[{{{{}, {}, + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ Annotation[{ Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU -cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u -4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf -U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF -PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur -M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw -2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 -W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh -xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV -SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn -q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf -DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz -jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF -g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla -wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo -vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw -aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ -Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN -Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV -weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy -KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL -typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ -HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy -qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC -ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp -ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u -8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT -5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ -O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y -hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N -8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL -FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 -VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD -QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio -X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa -idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 -98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp -E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi -LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev -FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ -N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F -tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 -2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J -o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe -9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG -mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n -sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi -Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN -QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl -WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 -OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 -jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z -I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 -8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY -kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 -cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR -87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs -dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX -Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P -uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 -uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm -szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl -LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef -fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ -8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW -rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ -5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 -nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J -H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq -4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD -o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ -C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt -1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ -d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY -ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 -/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx -8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu -Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc -OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg -nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG -f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz -m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ -+Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea -Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 -B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG -pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft -R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ -//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL -fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa -H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj -1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw -8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y -PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 -OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g -41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 -j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b -LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m -MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W -9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ -v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U -N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb -be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq -XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl -vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF -7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI -1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg -cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD -wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO -D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK - "]]}, "Charting`Private`Tag#1"]}}, {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, - "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, - "Primitives" -> {}, "GCFlag" -> False|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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->{ + "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.059883}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9942570837789307`*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"98717052-21ae-4054-8512-daa35d2bc7d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k8VVsUB3ChDJkyz+69LiXzTFxrkZSZEJnSgHqEJKJEihRJUWlCppTp +HmWWhISKlAwVytBgilcoKe+8v87n+/mc8zlnr73Xb+9D3RO83ZeVhYWFfxUL +y//XhaH2FnpSngnPy+Vjp5+YmvRkikea9sdBrdbjKjtbCqBI1x7x/kvw2t3C +VclWA8Id7vWx9eeAzUEeYwFbhHUzYpd+9ZXDL98K1gkbBxiutwv+0dcEl6Uc +DUNsfMCCPjE41/cK1hkKNmVYhcCvPv3Ls30jwNfzt858cyw0b76T153zHSw1 +O9xiX6aC9HDNpz0qf2BeNq1VtiQDhAN33ePYzIaq+W4ubauz4ZKmRZ2dCycW +6YXkr2/NhYEMjcY5AV5cLFb6mLBSAEl5MV2sEuvwaojBLSWFeyCWPno27ZYQ +btdnP9HcXwziyhWnfxYIofAB12ahkWKQbEqI8WIKYWBTsYX3ZDHIziodWd8s +hGlXCllH/hSDgk2IT90XIYxd3qmeRysBbfY/eqPawjgud95LMKAE7MNEx7Q6 +hPGHR2ZsymIJnHG2NHm1IILydx4+7vpbCpIPOiVZV4liZJnbeQeOMigVcl7U +XCuKV+aLbDr4y6D3lTfzopwo/oqdzCmklAHdMYzmuE0UVb3DLguYlUGTbdaa +l9dEkX3H6f7kU2Xwx2K+84WxGJZu7n+awcKE1IKooj8WYvilxizfn50J9DUs +iaqOYtju8WJWi5MJNk+4Tc/7imFVnnx3Az8Trm+m3LdJEcNjoqZlRbJMMEDr +q8+GxXDoyUzhgBETDhve3tUeJ446GhNC8YeZYJXN98M6WRwZASH6heFMoHEc +T+y8LI7OZn0GbZFMeNmzg3hdKI5d50d7/sYwQS2Eh22oUxxDmsKDLZKZ8KUg +ouBfSQn0E6qTgTwmeArbTUvdl0BxT7O1vd1M0D5WdzKzXgILrJRepPcwgXtk +gyi1VQL7wpgBDn1MqCljA8UBCfw+UWXS8J4JotY1qRorEnjiSRIj7DP5/pN0 +nS3Wkmj9an+h5TITzL8tRQWNSmJCZ27FdXkCIrelb3w8JYlFa9hcvyoQUHpb +9a3QgiQu0p4s6GwgQNzZx7CGUwpn7Jc0m1UImKp+ssimJoUmJoI36nQJSItL +Dbt2VArdfwu4S28lYEREMaiFVxr3evu3ZfoTIBb8SEZMTBrzHDYknj9AgE2b +24sDFGmcLdtoExlAQGVUkgq/tjRWB33+uDWYgHPDsxM73aSxg13C+nE4AVp3 +6/y/5Uhj87fntgrxBJw0dtwtaSCDtmHXuB9kEbDNO/NffTMZHLkXSvjeJoAv +dvKUi40MSuSwfhDKJeBmc3xBqo8MFh9h7fUtIKDaqnZyzVkZ9Jb9oPmhmIBZ +N/nw7wMy+DQonV+9hoCqqBCOdWMyeDFYZP/dWgJO3HyYoTYjg9x6NfaUegJ4 +PrjWHWCVRcmMA51sjwhY75/M8mGjLEpcK756u4UA7yPz554fk0VeifVdBl0E +KFw1k56Il8WAfEG34y//r9+FEo5UWaSz3Dpa301A1LLSS7M8WbS91B2n1UPA +5VPeIjXPZXG089mz+X4Cnl98mpUvI4ebQifvD3wk631fWLN5vRxWKbQvfxoh +wP3N7qYPmnIYWNn+aXaUgC/iy2NSFnJIe1yVvTROAFu2xsZLQXIosF+mYfwr +AZtKrz048UgO67mWNaTmCDDv6/wz0yaHgxyf48dI27Gwb931Sg6P2pb9uPcv +AXu3Bw3AuBzKVIrQ1H8QYHGMGhO7moLR34WfCy8S8Iy/PteAm4IfWRtXWkk7 +5O1om+WjYJdln2P4TwI8XiSt2y1OwYzSLKfnvwgIkVvINVWm4L/6wkMuywTM +309t+6VOQQGvDJE50lHblKcJHQr2F24JOfuHgPhDPno0Ewr2FZy5SPwl4Hpz +RxurIwXbDVrSh1nKQc7Nd7rWhYIJN+4s7F1VDnlTK+sOu1PQYXNm7DjpMhFd +j9G9FLxWspX/A2s5tPhnTTeHU5A921TpPns5WC4bCh4/RkHJVYcGKavLoTO1 +R08nloK51I6GJNIDNVyxeWcpSHl3ce3ONeXgbZeX55lCwS9mdkfrSI+NmLQL +p1Hw65qXwlIc5TCzNkww/iYFE4tbh7tJH87m02fcJp9vTOFX4iyHnzp3Pebz +KciZ1nQomjSb91CebxkFXbWlXspwlYM4c5u+RRMFJYqPcDC4y+GW+ajH31YK +3nQ/PhhNmjYQHVv5jIJaYR6TdaRVWe+3K76hYFWNL6G+thzKr9jODA1Q8M3M +9398SRsofxG8OkTBmGzKrgzSZs4ynhxfKOhRRFuaJ/30S1XsoykKPjT0yaHw +lINN9Pb8iDkKypXyJG4j/WrddLv6AgW9Hg4WHSTtWnBm5vMS+T2PzvKlkn6/ +iSaUvULBD2VPmWWk93TV67uxU/Gasn3ac9Kf97p6CnBRUSe0v/IT6cCfc7Ft +vFQs2yct/Zf0pkN+op8EqVhv/GWXMG85cE68LWITp6LWolPgetK9e+xNqTJU +9EuyNdMnnf+uudeERkXZF80jm0mHORsEeq6n4lJAgZ0tabMXxauiVKh4/9/x +BCfSAhbUq1c1qRjbejh5B+mhhssqFXpU9FE08/nfxfrcTa+MqBi60Zzt//uj +mCdcZ5GK9s0Hw21Ib1P6PsVrQUWbmvu1ZqRFc/zjlK2p+KVobbcu6THJ92KW +DlTkWBdYq0C6PM2hxM+Fis46zyMEScfyPDE77U7FC3p07mVyvPbxhv23d1Gx +j+dg6Ahp2b8lBx/to6JgbDbxhPRUOI1t8AAVVVVq2vJJ1367krEURMV/Ysqr +40gn7l+rJh5GxdaaxDhP0js+xjTrRlJx05TBem3SdPcfbk4nqCj0s/HOGtKN +1oOnUhKpeEPNGfPI+U5pcZQoPk9Fl/W73INIezJaS9svUVE+3dRZl/QvtbIB +9ltUrDC4PFlDrq+2O/LBtBwq5uXzJEWQvkLJYMc7VMz55s+nRVpL8KT6MYKs +n+Fwyy1y/bIkzbdkVFIx/hHHkh3pTrZ/3CvrqNihqir2h1zvAfPb4+eeUNHE +N5XXgXReP/2d/1sqmq90cnST/RTqeC0kfpiKVbyz1w6Qxg7eNbljVLxq7yu9 +QvbjYN2CxtAMFQcvJiz836+iWW0Jzmw0HJP3lUE2cj7EGNKhnDS8e2HUvpHs +9/JUgrjAS0OnKcYxBmn7uOvvO8RoyBvQ36hG5kOib6CWqQoNPX5zK06T+fJL +WWBI1YWGpwoXbd+SebVwS/KktjsN97S0dKqS/sGvQDfcRUPpwIgjJ8h8m/lu ++I/5ARqereg0ECPzb6Ru74J7NA3FNbQqFMm87LCu4kvMp+Hxo+bhDdMEPH34 +mDh/j4bBwT69Y1MEtKg/d04ro2H077KDnKQbhD5ez6whx9O23WLrBAHl77jX +V7yg4ajlnYbcT2T+BXjDyDwNC9Ijn/QPEXB1cP/I5yUazo07yb4eJCDd/nD8 +9AoNXVIsGzveE5CinfjsJ5c8NvYKjxFvCYj7Tbjyy8rjhinlZ7t6CQhIWh1i +bCGPrwqVJYxeEGBcVJx95Yo8XnCtGVqsJuAdpShryw15jGFEsFdUkfl85W7m +jyx5dJV0nAmuJPfLkwU3t9+VR6GXIDh8n9yv3bIz+OrlceRxUGVOKQFKq9NT +Ez7K42ilr00juR+L7joWG65Cx0JOyVyPZAIqeiJjFDTpGOT6VO/1OQKcrY6e +6NGlo8BUUOm2swRc0j1yXAvoiJINtqoJBPDyBB+dcaTjnfTx/YMxBLDX7Anx +i6DjhrnLCwOhBMwJWvnsaKJjzKJQobUrAf2BtJf/PKXjsznFUXcXAhpblyDm +OR2JwJ/t/k4EpEYVyRX20pGZqZ0dZU+AxgjP8K8JOkpHFaSfJs8zQUSX1y0h +BXRy8n+2UZ+ACXsXj7F9Cjhfl/ytXZiAsWSfHaEciviRkTmT1c6EoAkVmgaP +Ig6WuenZP2XC4tZf09MCimjut6F5uYU8v7Fdij8gqYg4e4W5vZEJGpHND3xU +FfG2W87S10omRPsqCtk7KeLUGx/rp7nkec5kqks5SxG7jlmPmR9nguW3CMtx +vfXIniLolbyBCVN7OQ8/iNmAf+fmL3A1lpL/E2KsZ5qUULehr7ecpwQEXyim +ML9tRBm5Qv/VHkUgnVjmoKengvt2nJRoCLkLGcqGAkL+qphF6fUpv3kHOiRN +db9fVEPH52O/47vyYZN0U6p6rzqurd5hMTmcC3xsOWG74zSQWRip0CGVA7In +5Yx3KmpiCEV/XbVZNnApeFZuf6qJfoP003SBW6DGkCiL8NJC5bjcPQ1s1yF0 +SLDZikUbm0r2712YvALfvie7WGZoI9v8mi9SkA5b1VuvW6rqoHSX3zn5novQ +8N3o92KnDgbv8xagDqdAkIrW225fXawfTz584c05YMzs69nJpYfF72kWLF8T +YAtd3JY3Rw9vaLuPiNw5BRtizx1t0tfHBZ6J8HvdsbDR1/CRwlt99DWfP8Jl +chx8G/affnDIAG/tD2s5+y4CHmX37JsTMUTlnB3hpxoPw4/ClUX1KkO8tn9w +IMw+BPYqFHFdt92Ek1HH7W/LB8DcxjS98tlNuHtgdaCIpB9U5/3+OJ9ohMlv +Q32qFfaA3uawRaskI5T/WfU9XmwPVHyc4sk+b4S573NVvbj2QLnskL7VJSMs +VAuN3TC9G4ozGs9n3jDCCd6d/FoVuyE7Od5wa6kRvnl9YjPP1t1wNoz/YsZr +I/R04pqoPuQD7ubyaCRrjBavtukzm73gTw8nXzPFGHO9m/Oe3vWCbN+Zd1by +xkhvtX397wUv+JRQE+G+wRhPuUWZnfb0gtB2+7JILWO0U8sVvLTgCefsjstW +WxijU55kr52aJ9S6vVnWCTbG/PPRXT+L3EHq4JkatUZjzCinap4YdIWUFT/d +pCZjPDQuJ3G53RVYL1kQn1uMkfuNYVFthStMVK6+m91ujFuiv93VTHGFWpbT +GYKvjXFFJ1qsE1zBPT02YmHcGI/nR85W5++AjLpI3Ya1DLzabWMjcdwFRLgD +CVtXBl7hW1uq6OgEeZujo2Z3MtA04P2mGhMn0IpO2ZzmycBl213+HipOYDfL +fNO/m4Eff02GdnI4QULv/K+9gQxUj4iXCXq0HX7mxJhFnWSg/Mxr2XOa2+Gt +UdrrgiIGpm5amP1CcYT9R/JuWpYysL/IxsZdwBEWSit8p5gMTBr7MD2w4gCC +tP5FzUoGNhsJvWUbdgBrThnph40MXGkT0FmV6QD1PQX7Xr9hoCp/wlSGrANY +8VWrhvcz8OT14Z6vfA7Qv7V9QfwdA0NpFxtS/9rDj9rJRO8PDPSRZd/n2WgP +qrc1Sr5OMLDRoy5Qf4s91L81DU+eZmCxX5EKoWgPVsJOoD7LwNNCTalbOO3B +78yR7rB5BnbwGS08fGYHPxoTrov9ZKASu8LL2yV2ELd0dW/tEgPFx8xXsi7Y +gYDOXRWvPwzcC0vB1YfsIPNg7fzKCgOTa8v4Jp3s4D9QXqFN + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VVsUB3ChDJkyz+69LiXzTFxrkZSZEJnSgHqEJKJEihRJUWlCppTp +HmWWhISKlAwVytBgilcoKe+8v87n+/mc8zlnr73Xb+9D3RO83ZeVhYWFfxUL +y//XhaH2FnpSngnPy+Vjp5+YmvRkikea9sdBrdbjKjtbCqBI1x7x/kvw2t3C +VclWA8Id7vWx9eeAzUEeYwFbhHUzYpd+9ZXDL98K1gkbBxiutwv+0dcEl6Uc +DUNsfMCCPjE41/cK1hkKNmVYhcCvPv3Ls30jwNfzt858cyw0b76T153zHSw1 +O9xiX6aC9HDNpz0qf2BeNq1VtiQDhAN33ePYzIaq+W4ubauz4ZKmRZ2dCycW +6YXkr2/NhYEMjcY5AV5cLFb6mLBSAEl5MV2sEuvwaojBLSWFeyCWPno27ZYQ +btdnP9HcXwziyhWnfxYIofAB12ahkWKQbEqI8WIKYWBTsYX3ZDHIziodWd8s +hGlXCllH/hSDgk2IT90XIYxd3qmeRysBbfY/eqPawjgud95LMKAE7MNEx7Q6 +hPGHR2ZsymIJnHG2NHm1IILydx4+7vpbCpIPOiVZV4liZJnbeQeOMigVcl7U +XCuKV+aLbDr4y6D3lTfzopwo/oqdzCmklAHdMYzmuE0UVb3DLguYlUGTbdaa +l9dEkX3H6f7kU2Xwx2K+84WxGJZu7n+awcKE1IKooj8WYvilxizfn50J9DUs +iaqOYtju8WJWi5MJNk+4Tc/7imFVnnx3Az8Trm+m3LdJEcNjoqZlRbJMMEDr +q8+GxXDoyUzhgBETDhve3tUeJ446GhNC8YeZYJXN98M6WRwZASH6heFMoHEc +T+y8LI7OZn0GbZFMeNmzg3hdKI5d50d7/sYwQS2Eh22oUxxDmsKDLZKZ8KUg +ouBfSQn0E6qTgTwmeArbTUvdl0BxT7O1vd1M0D5WdzKzXgILrJRepPcwgXtk +gyi1VQL7wpgBDn1MqCljA8UBCfw+UWXS8J4JotY1qRorEnjiSRIj7DP5/pN0 +nS3Wkmj9an+h5TITzL8tRQWNSmJCZ27FdXkCIrelb3w8JYlFa9hcvyoQUHpb +9a3QgiQu0p4s6GwgQNzZx7CGUwpn7Jc0m1UImKp+ssimJoUmJoI36nQJSItL +Dbt2VArdfwu4S28lYEREMaiFVxr3evu3ZfoTIBb8SEZMTBrzHDYknj9AgE2b +24sDFGmcLdtoExlAQGVUkgq/tjRWB33+uDWYgHPDsxM73aSxg13C+nE4AVp3 +6/y/5Uhj87fntgrxBJw0dtwtaSCDtmHXuB9kEbDNO/NffTMZHLkXSvjeJoAv +dvKUi40MSuSwfhDKJeBmc3xBqo8MFh9h7fUtIKDaqnZyzVkZ9Jb9oPmhmIBZ +N/nw7wMy+DQonV+9hoCqqBCOdWMyeDFYZP/dWgJO3HyYoTYjg9x6NfaUegJ4 +PrjWHWCVRcmMA51sjwhY75/M8mGjLEpcK756u4UA7yPz554fk0VeifVdBl0E +KFw1k56Il8WAfEG34y//r9+FEo5UWaSz3Dpa301A1LLSS7M8WbS91B2n1UPA +5VPeIjXPZXG089mz+X4Cnl98mpUvI4ebQifvD3wk631fWLN5vRxWKbQvfxoh +wP3N7qYPmnIYWNn+aXaUgC/iy2NSFnJIe1yVvTROAFu2xsZLQXIosF+mYfwr +AZtKrz048UgO67mWNaTmCDDv6/wz0yaHgxyf48dI27Gwb931Sg6P2pb9uPcv +AXu3Bw3AuBzKVIrQ1H8QYHGMGhO7moLR34WfCy8S8Iy/PteAm4IfWRtXWkk7 +5O1om+WjYJdln2P4TwI8XiSt2y1OwYzSLKfnvwgIkVvINVWm4L/6wkMuywTM +309t+6VOQQGvDJE50lHblKcJHQr2F24JOfuHgPhDPno0Ewr2FZy5SPwl4Hpz +RxurIwXbDVrSh1nKQc7Nd7rWhYIJN+4s7F1VDnlTK+sOu1PQYXNm7DjpMhFd +j9G9FLxWspX/A2s5tPhnTTeHU5A921TpPns5WC4bCh4/RkHJVYcGKavLoTO1 +R08nloK51I6GJNIDNVyxeWcpSHl3ce3ONeXgbZeX55lCwS9mdkfrSI+NmLQL +p1Hw65qXwlIc5TCzNkww/iYFE4tbh7tJH87m02fcJp9vTOFX4iyHnzp3Pebz +KciZ1nQomjSb91CebxkFXbWlXspwlYM4c5u+RRMFJYqPcDC4y+GW+ajH31YK +3nQ/PhhNmjYQHVv5jIJaYR6TdaRVWe+3K76hYFWNL6G+thzKr9jODA1Q8M3M +9398SRsofxG8OkTBmGzKrgzSZs4ynhxfKOhRRFuaJ/30S1XsoykKPjT0yaHw +lINN9Pb8iDkKypXyJG4j/WrddLv6AgW9Hg4WHSTtWnBm5vMS+T2PzvKlkn6/ +iSaUvULBD2VPmWWk93TV67uxU/Gasn3ac9Kf97p6CnBRUSe0v/IT6cCfc7Ft +vFQs2yct/Zf0pkN+op8EqVhv/GWXMG85cE68LWITp6LWolPgetK9e+xNqTJU +9EuyNdMnnf+uudeERkXZF80jm0mHORsEeq6n4lJAgZ0tabMXxauiVKh4/9/x +BCfSAhbUq1c1qRjbejh5B+mhhssqFXpU9FE08/nfxfrcTa+MqBi60Zzt//uj +mCdcZ5GK9s0Hw21Ib1P6PsVrQUWbmvu1ZqRFc/zjlK2p+KVobbcu6THJ92KW +DlTkWBdYq0C6PM2hxM+Fis46zyMEScfyPDE77U7FC3p07mVyvPbxhv23d1Gx +j+dg6Ahp2b8lBx/to6JgbDbxhPRUOI1t8AAVVVVq2vJJ1367krEURMV/Ysqr +40gn7l+rJh5GxdaaxDhP0js+xjTrRlJx05TBem3SdPcfbk4nqCj0s/HOGtKN +1oOnUhKpeEPNGfPI+U5pcZQoPk9Fl/W73INIezJaS9svUVE+3dRZl/QvtbIB +9ltUrDC4PFlDrq+2O/LBtBwq5uXzJEWQvkLJYMc7VMz55s+nRVpL8KT6MYKs +n+Fwyy1y/bIkzbdkVFIx/hHHkh3pTrZ/3CvrqNihqir2h1zvAfPb4+eeUNHE +N5XXgXReP/2d/1sqmq90cnST/RTqeC0kfpiKVbyz1w6Qxg7eNbljVLxq7yu9 +QvbjYN2CxtAMFQcvJiz836+iWW0Jzmw0HJP3lUE2cj7EGNKhnDS8e2HUvpHs +9/JUgrjAS0OnKcYxBmn7uOvvO8RoyBvQ36hG5kOib6CWqQoNPX5zK06T+fJL +WWBI1YWGpwoXbd+SebVwS/KktjsN97S0dKqS/sGvQDfcRUPpwIgjJ8h8m/lu ++I/5ARqereg0ECPzb6Ru74J7NA3FNbQqFMm87LCu4kvMp+Hxo+bhDdMEPH34 +mDh/j4bBwT69Y1MEtKg/d04ro2H077KDnKQbhD5ez6whx9O23WLrBAHl77jX +V7yg4ajlnYbcT2T+BXjDyDwNC9Ijn/QPEXB1cP/I5yUazo07yb4eJCDd/nD8 +9AoNXVIsGzveE5CinfjsJ5c8NvYKjxFvCYj7Tbjyy8rjhinlZ7t6CQhIWh1i +bCGPrwqVJYxeEGBcVJx95Yo8XnCtGVqsJuAdpShryw15jGFEsFdUkfl85W7m +jyx5dJV0nAmuJPfLkwU3t9+VR6GXIDh8n9yv3bIz+OrlceRxUGVOKQFKq9NT +Ez7K42ilr00juR+L7joWG65Cx0JOyVyPZAIqeiJjFDTpGOT6VO/1OQKcrY6e +6NGlo8BUUOm2swRc0j1yXAvoiJINtqoJBPDyBB+dcaTjnfTx/YMxBLDX7Anx +i6DjhrnLCwOhBMwJWvnsaKJjzKJQobUrAf2BtJf/PKXjsznFUXcXAhpblyDm +OR2JwJ/t/k4EpEYVyRX20pGZqZ0dZU+AxgjP8K8JOkpHFaSfJs8zQUSX1y0h +BXRy8n+2UZ+ACXsXj7F9Cjhfl/ytXZiAsWSfHaEciviRkTmT1c6EoAkVmgaP +Ig6WuenZP2XC4tZf09MCimjut6F5uYU8v7Fdij8gqYg4e4W5vZEJGpHND3xU +FfG2W87S10omRPsqCtk7KeLUGx/rp7nkec5kqks5SxG7jlmPmR9nguW3CMtx +vfXIniLolbyBCVN7OQ8/iNmAf+fmL3A1lpL/E2KsZ5qUULehr7ecpwQEXyim +ML9tRBm5Qv/VHkUgnVjmoKengvt2nJRoCLkLGcqGAkL+qphF6fUpv3kHOiRN +db9fVEPH52O/47vyYZN0U6p6rzqurd5hMTmcC3xsOWG74zSQWRip0CGVA7In +5Yx3KmpiCEV/XbVZNnApeFZuf6qJfoP003SBW6DGkCiL8NJC5bjcPQ1s1yF0 +SLDZikUbm0r2712YvALfvie7WGZoI9v8mi9SkA5b1VuvW6rqoHSX3zn5novQ +8N3o92KnDgbv8xagDqdAkIrW225fXawfTz584c05YMzs69nJpYfF72kWLF8T +YAtd3JY3Rw9vaLuPiNw5BRtizx1t0tfHBZ6J8HvdsbDR1/CRwlt99DWfP8Jl +chx8G/affnDIAG/tD2s5+y4CHmX37JsTMUTlnB3hpxoPw4/ClUX1KkO8tn9w +IMw+BPYqFHFdt92Ek1HH7W/LB8DcxjS98tlNuHtgdaCIpB9U5/3+OJ9ohMlv +Q32qFfaA3uawRaskI5T/WfU9XmwPVHyc4sk+b4S573NVvbj2QLnskL7VJSMs +VAuN3TC9G4ozGs9n3jDCCd6d/FoVuyE7Od5wa6kRvnl9YjPP1t1wNoz/YsZr +I/R04pqoPuQD7ubyaCRrjBavtukzm73gTw8nXzPFGHO9m/Oe3vWCbN+Zd1by +xkhvtX397wUv+JRQE+G+wRhPuUWZnfb0gtB2+7JILWO0U8sVvLTgCefsjstW +WxijU55kr52aJ9S6vVnWCTbG/PPRXT+L3EHq4JkatUZjzCinap4YdIWUFT/d +pCZjPDQuJ3G53RVYL1kQn1uMkfuNYVFthStMVK6+m91ujFuiv93VTHGFWpbT +GYKvjXFFJ1qsE1zBPT02YmHcGI/nR85W5++AjLpI3Ya1DLzabWMjcdwFRLgD +CVtXBl7hW1uq6OgEeZujo2Z3MtA04P2mGhMn0IpO2ZzmycBl213+HipOYDfL +fNO/m4Eff02GdnI4QULv/K+9gQxUj4iXCXq0HX7mxJhFnWSg/Mxr2XOa2+Gt +UdrrgiIGpm5amP1CcYT9R/JuWpYysL/IxsZdwBEWSit8p5gMTBr7MD2w4gCC +tP5FzUoGNhsJvWUbdgBrThnph40MXGkT0FmV6QD1PQX7Xr9hoCp/wlSGrANY +8VWrhvcz8OT14Z6vfA7Qv7V9QfwdA0NpFxtS/9rDj9rJRO8PDPSRZd/n2WgP +qrc1Sr5OMLDRoy5Qf4s91L81DU+eZmCxX5EKoWgPVsJOoD7LwNNCTalbOO3B +78yR7rB5BnbwGS08fGYHPxoTrov9ZKASu8LL2yV2ELd0dW/tEgPFx8xXsi7Y +gYDOXRWvPwzcC0vB1YfsIPNg7fzKCgOTa8v4Jp3s4D9QXqFN + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0705160229588504}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0705160229588504}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VVsUB3ChDJkyz+69LiXzTFxrkZSZEJnSgHqEJKJEihRJUWlCppTp +HmWWhISKlAwVytBgilcoKe+8v87n+/mc8zlnr73Xb+9D3RO83ZeVhYWFfxUL +y//XhaH2FnpSngnPy+Vjp5+YmvRkikea9sdBrdbjKjtbCqBI1x7x/kvw2t3C +VclWA8Id7vWx9eeAzUEeYwFbhHUzYpd+9ZXDL98K1gkbBxiutwv+0dcEl6Uc +DUNsfMCCPjE41/cK1hkKNmVYhcCvPv3Ls30jwNfzt858cyw0b76T153zHSw1 +O9xiX6aC9HDNpz0qf2BeNq1VtiQDhAN33ePYzIaq+W4ubauz4ZKmRZ2dCycW +6YXkr2/NhYEMjcY5AV5cLFb6mLBSAEl5MV2sEuvwaojBLSWFeyCWPno27ZYQ +btdnP9HcXwziyhWnfxYIofAB12ahkWKQbEqI8WIKYWBTsYX3ZDHIziodWd8s +hGlXCllH/hSDgk2IT90XIYxd3qmeRysBbfY/eqPawjgud95LMKAE7MNEx7Q6 +hPGHR2ZsymIJnHG2NHm1IILydx4+7vpbCpIPOiVZV4liZJnbeQeOMigVcl7U +XCuKV+aLbDr4y6D3lTfzopwo/oqdzCmklAHdMYzmuE0UVb3DLguYlUGTbdaa +l9dEkX3H6f7kU2Xwx2K+84WxGJZu7n+awcKE1IKooj8WYvilxizfn50J9DUs +iaqOYtju8WJWi5MJNk+4Tc/7imFVnnx3Az8Trm+m3LdJEcNjoqZlRbJMMEDr +q8+GxXDoyUzhgBETDhve3tUeJ446GhNC8YeZYJXN98M6WRwZASH6heFMoHEc +T+y8LI7OZn0GbZFMeNmzg3hdKI5d50d7/sYwQS2Eh22oUxxDmsKDLZKZ8KUg +ouBfSQn0E6qTgTwmeArbTUvdl0BxT7O1vd1M0D5WdzKzXgILrJRepPcwgXtk +gyi1VQL7wpgBDn1MqCljA8UBCfw+UWXS8J4JotY1qRorEnjiSRIj7DP5/pN0 +nS3Wkmj9an+h5TITzL8tRQWNSmJCZ27FdXkCIrelb3w8JYlFa9hcvyoQUHpb +9a3QgiQu0p4s6GwgQNzZx7CGUwpn7Jc0m1UImKp+ssimJoUmJoI36nQJSItL +Dbt2VArdfwu4S28lYEREMaiFVxr3evu3ZfoTIBb8SEZMTBrzHDYknj9AgE2b +24sDFGmcLdtoExlAQGVUkgq/tjRWB33+uDWYgHPDsxM73aSxg13C+nE4AVp3 +6/y/5Uhj87fntgrxBJw0dtwtaSCDtmHXuB9kEbDNO/NffTMZHLkXSvjeJoAv +dvKUi40MSuSwfhDKJeBmc3xBqo8MFh9h7fUtIKDaqnZyzVkZ9Jb9oPmhmIBZ +N/nw7wMy+DQonV+9hoCqqBCOdWMyeDFYZP/dWgJO3HyYoTYjg9x6NfaUegJ4 +PrjWHWCVRcmMA51sjwhY75/M8mGjLEpcK756u4UA7yPz554fk0VeifVdBl0E +KFw1k56Il8WAfEG34y//r9+FEo5UWaSz3Dpa301A1LLSS7M8WbS91B2n1UPA +5VPeIjXPZXG089mz+X4Cnl98mpUvI4ebQifvD3wk631fWLN5vRxWKbQvfxoh +wP3N7qYPmnIYWNn+aXaUgC/iy2NSFnJIe1yVvTROAFu2xsZLQXIosF+mYfwr +AZtKrz048UgO67mWNaTmCDDv6/wz0yaHgxyf48dI27Gwb931Sg6P2pb9uPcv +AXu3Bw3AuBzKVIrQ1H8QYHGMGhO7moLR34WfCy8S8Iy/PteAm4IfWRtXWkk7 +5O1om+WjYJdln2P4TwI8XiSt2y1OwYzSLKfnvwgIkVvINVWm4L/6wkMuywTM +309t+6VOQQGvDJE50lHblKcJHQr2F24JOfuHgPhDPno0Ewr2FZy5SPwl4Hpz +RxurIwXbDVrSh1nKQc7Nd7rWhYIJN+4s7F1VDnlTK+sOu1PQYXNm7DjpMhFd +j9G9FLxWspX/A2s5tPhnTTeHU5A921TpPns5WC4bCh4/RkHJVYcGKavLoTO1 +R08nloK51I6GJNIDNVyxeWcpSHl3ce3ONeXgbZeX55lCwS9mdkfrSI+NmLQL +p1Hw65qXwlIc5TCzNkww/iYFE4tbh7tJH87m02fcJp9vTOFX4iyHnzp3Pebz +KciZ1nQomjSb91CebxkFXbWlXspwlYM4c5u+RRMFJYqPcDC4y+GW+ajH31YK +3nQ/PhhNmjYQHVv5jIJaYR6TdaRVWe+3K76hYFWNL6G+thzKr9jODA1Q8M3M +9398SRsofxG8OkTBmGzKrgzSZs4ynhxfKOhRRFuaJ/30S1XsoykKPjT0yaHw +lINN9Pb8iDkKypXyJG4j/WrddLv6AgW9Hg4WHSTtWnBm5vMS+T2PzvKlkn6/ +iSaUvULBD2VPmWWk93TV67uxU/Gasn3ac9Kf97p6CnBRUSe0v/IT6cCfc7Ft +vFQs2yct/Zf0pkN+op8EqVhv/GWXMG85cE68LWITp6LWolPgetK9e+xNqTJU +9EuyNdMnnf+uudeERkXZF80jm0mHORsEeq6n4lJAgZ0tabMXxauiVKh4/9/x +BCfSAhbUq1c1qRjbejh5B+mhhssqFXpU9FE08/nfxfrcTa+MqBi60Zzt//uj +mCdcZ5GK9s0Hw21Ib1P6PsVrQUWbmvu1ZqRFc/zjlK2p+KVobbcu6THJ92KW +DlTkWBdYq0C6PM2hxM+Fis46zyMEScfyPDE77U7FC3p07mVyvPbxhv23d1Gx +j+dg6Ahp2b8lBx/to6JgbDbxhPRUOI1t8AAVVVVq2vJJ1367krEURMV/Ysqr +40gn7l+rJh5GxdaaxDhP0js+xjTrRlJx05TBem3SdPcfbk4nqCj0s/HOGtKN +1oOnUhKpeEPNGfPI+U5pcZQoPk9Fl/W73INIezJaS9svUVE+3dRZl/QvtbIB +9ltUrDC4PFlDrq+2O/LBtBwq5uXzJEWQvkLJYMc7VMz55s+nRVpL8KT6MYKs +n+Fwyy1y/bIkzbdkVFIx/hHHkh3pTrZ/3CvrqNihqir2h1zvAfPb4+eeUNHE +N5XXgXReP/2d/1sqmq90cnST/RTqeC0kfpiKVbyz1w6Qxg7eNbljVLxq7yu9 +QvbjYN2CxtAMFQcvJiz836+iWW0Jzmw0HJP3lUE2cj7EGNKhnDS8e2HUvpHs +9/JUgrjAS0OnKcYxBmn7uOvvO8RoyBvQ36hG5kOib6CWqQoNPX5zK06T+fJL +WWBI1YWGpwoXbd+SebVwS/KktjsN97S0dKqS/sGvQDfcRUPpwIgjJ8h8m/lu ++I/5ARqereg0ECPzb6Ru74J7NA3FNbQqFMm87LCu4kvMp+Hxo+bhDdMEPH34 +mDh/j4bBwT69Y1MEtKg/d04ro2H077KDnKQbhD5ez6whx9O23WLrBAHl77jX +V7yg4ajlnYbcT2T+BXjDyDwNC9Ijn/QPEXB1cP/I5yUazo07yb4eJCDd/nD8 +9AoNXVIsGzveE5CinfjsJ5c8NvYKjxFvCYj7Tbjyy8rjhinlZ7t6CQhIWh1i +bCGPrwqVJYxeEGBcVJx95Yo8XnCtGVqsJuAdpShryw15jGFEsFdUkfl85W7m +jyx5dJV0nAmuJPfLkwU3t9+VR6GXIDh8n9yv3bIz+OrlceRxUGVOKQFKq9NT +Ez7K42ilr00juR+L7joWG65Cx0JOyVyPZAIqeiJjFDTpGOT6VO/1OQKcrY6e +6NGlo8BUUOm2swRc0j1yXAvoiJINtqoJBPDyBB+dcaTjnfTx/YMxBLDX7Anx +i6DjhrnLCwOhBMwJWvnsaKJjzKJQobUrAf2BtJf/PKXjsznFUXcXAhpblyDm +OR2JwJ/t/k4EpEYVyRX20pGZqZ0dZU+AxgjP8K8JOkpHFaSfJs8zQUSX1y0h +BXRy8n+2UZ+ACXsXj7F9Cjhfl/ytXZiAsWSfHaEciviRkTmT1c6EoAkVmgaP +Ig6WuenZP2XC4tZf09MCimjut6F5uYU8v7Fdij8gqYg4e4W5vZEJGpHND3xU +FfG2W87S10omRPsqCtk7KeLUGx/rp7nkec5kqks5SxG7jlmPmR9nguW3CMtx +vfXIniLolbyBCVN7OQ8/iNmAf+fmL3A1lpL/E2KsZ5qUULehr7ecpwQEXyim +ML9tRBm5Qv/VHkUgnVjmoKengvt2nJRoCLkLGcqGAkL+qphF6fUpv3kHOiRN +db9fVEPH52O/47vyYZN0U6p6rzqurd5hMTmcC3xsOWG74zSQWRip0CGVA7In +5Yx3KmpiCEV/XbVZNnApeFZuf6qJfoP003SBW6DGkCiL8NJC5bjcPQ1s1yF0 +SLDZikUbm0r2712YvALfvie7WGZoI9v8mi9SkA5b1VuvW6rqoHSX3zn5novQ +8N3o92KnDgbv8xagDqdAkIrW225fXawfTz584c05YMzs69nJpYfF72kWLF8T +YAtd3JY3Rw9vaLuPiNw5BRtizx1t0tfHBZ6J8HvdsbDR1/CRwlt99DWfP8Jl +chx8G/affnDIAG/tD2s5+y4CHmX37JsTMUTlnB3hpxoPw4/ClUX1KkO8tn9w +IMw+BPYqFHFdt92Ek1HH7W/LB8DcxjS98tlNuHtgdaCIpB9U5/3+OJ9ohMlv +Q32qFfaA3uawRaskI5T/WfU9XmwPVHyc4sk+b4S573NVvbj2QLnskL7VJSMs +VAuN3TC9G4ozGs9n3jDCCd6d/FoVuyE7Od5wa6kRvnl9YjPP1t1wNoz/YsZr +I/R04pqoPuQD7ubyaCRrjBavtukzm73gTw8nXzPFGHO9m/Oe3vWCbN+Zd1by +xkhvtX397wUv+JRQE+G+wRhPuUWZnfb0gtB2+7JILWO0U8sVvLTgCefsjstW +WxijU55kr52aJ9S6vVnWCTbG/PPRXT+L3EHq4JkatUZjzCinap4YdIWUFT/d +pCZjPDQuJ3G53RVYL1kQn1uMkfuNYVFthStMVK6+m91ujFuiv93VTHGFWpbT +GYKvjXFFJ1qsE1zBPT02YmHcGI/nR85W5++AjLpI3Ya1DLzabWMjcdwFRLgD +CVtXBl7hW1uq6OgEeZujo2Z3MtA04P2mGhMn0IpO2ZzmycBl213+HipOYDfL +fNO/m4Eff02GdnI4QULv/K+9gQxUj4iXCXq0HX7mxJhFnWSg/Mxr2XOa2+Gt +UdrrgiIGpm5amP1CcYT9R/JuWpYysL/IxsZdwBEWSit8p5gMTBr7MD2w4gCC +tP5FzUoGNhsJvWUbdgBrThnph40MXGkT0FmV6QD1PQX7Xr9hoCp/wlSGrANY +8VWrhvcz8OT14Z6vfA7Qv7V9QfwdA0NpFxtS/9rDj9rJRO8PDPSRZd/n2WgP +qrc1Sr5OMLDRoy5Qf4s91L81DU+eZmCxX5EKoWgPVsJOoD7LwNNCTalbOO3B +78yR7rB5BnbwGS08fGYHPxoTrov9ZKASu8LL2yV2ELd0dW/tEgPFx8xXsi7Y +gYDOXRWvPwzcC0vB1YfsIPNg7fzKCgOTa8v4Jp3s4D9QXqFN + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0705160229588504}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8455,7 +8006,8 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.07773075306777268}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.0705160229588504}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8463,9 +8015,571 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913298974454536`*^9}, + CellChangeTimes->{3.99425708381365*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"f6f0b1c0-5c21-44f6-b0f1-71618b7a76d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{3.9918488983507824`*^9}, + CellLabel->"In[98]:=",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], + +Cell[BoxData["10.823348326706322`"], "Output", + CellChangeTimes->{3.9913294794877434`*^9, 3.9942570838595963`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"c07ed2a8-c2a8-4eba-8fdd-9da0c516cd9c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9918488997875195`*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4430475663969373`*^-260\\\", \ +RowBox[{\\\"9295690268007118823449497\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"9\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5542386262016000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 99, 13, + 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913294796838703`*^9, 3.9942570839879513`*^9}, CellLabel-> - "Out[172]=",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] + "During evaluation of \ +In[99]:=",ExpressionUUID->"dec562f1-e098-4634-aee8-6457ef9c74b1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3063884998001115`*^-269\\\", \ +RowBox[{\\\"7817675515393986930521027\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"12\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1146846355456000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 99, 14, + 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913294796838703`*^9, 3.9942570839987707`*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"3dac1f93-7d29-4406-9512-e59c4535751d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.985745737758983`*^-279\\\", \ +RowBox[{\\\"7035907963854588237468924\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"15\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2161719910400000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 99, 15, + 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913294796838703`*^9, 3.994257084008458*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"947b8d0d-aa82-4cc2-971d-eb37c7b4fea6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 99, 16, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913294796838703`*^9, 3.994257084018497*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"d7ead84a-d076-42ab-862d-b1cf347c6853"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k0Ve0XB3ChOUOmiwx3QplJhrj21qCozMpQxkQlqchUkQplCGV4FW5m +Efc0G5KIKKGSIVGGyus1VkSm3/n9ddZnnbWes9Z+9v4+z6G5nbTy4Obi4hJc +xsX1/+d0b+NLZnSOISPDf2jnHSPDtgzxIKPOcHgxXnVUQJkKKNriJt6ZCK9P +a9kPK6nDWYu7HTydWfA5bXnYOyWE9WOUxNmO+2Bxa7GlSMkCvlSanfzdUQNM +D+eRzUouYMwc7pnseA9ibx78577JF2Y7dJImOvph/khstgo9DGq35+e8y/oF +BdwdsnEl8SD1pey7m/ICPMuw9hkOSQURb+e7K7fzoKZoiXJ1UyYkahhXmNmu +QvU7WZI27GzoSlWvnhTkw7SJzuv1bXkQnRPawi2xHl2vzki4TBcC5ebA1Rvp +wjjHWnL3zi8GcaVHl2fyhHGHoWnXI04xSNZEhB7iCGPQ/lL2bFkxyExs8leo +Fcbum6I036ZikNvr61IxJIyLIt2vxCeLYTPvgvbAZhF8G1daekDvHpj7iQ1q +vhbBoMLqQ5fr7kGkjYnh+2lRbHWx43ZvKgHJh82S3MvE0FqX0tvXVgIlwjZ/ +NNaKIVcxf519Twm0v3fiJMiKoYmiAKE1VgJMSz+65W4xHPzwbChZoBRq9mWu +aP1HDD13XpNcZ1kKC8ZTzW8NKKjAtlJ52FwK8XnBRQvGFOzjNxqwai8F5gqu +KBVLCo6b3YgZ7imFvXVrjGI9KHjMXPQJ72gppG2nPtgbR0Gh0kWV08s5oIt7 +Ut58oeBd91u6BXQOnNG749wYLo4FLbIHvB04YMrm/70nRhxHN5rvTDjEAfrK +c1HNSeJ4YG7LhgcuHGht2098KBDHCMOq86NHOKDqu46nt1kcc/fOS7LOcGAo +LyDvp6QEptkey94VzYGDImajGx5IoGjcaOTqMg5sDqm4mFEpgRE53aZvKjiw +pn+jGK1eAtPTf/26WsWBslIekO+SwJhPJTMLtRwQ21MWr74kgU/dvzdVN5Pf +v8jU2rlHEn+arS4gBjiwY/xvsM+AJLoedUrBtQQE7b6p+GJEEjXTrSxu8BFQ +ckflk/C0JK5kBwkOCBAgbuOiV7ZqAy4afM4LEiFg5GndHx7VDSgxF6l2SZqA +G+Hxfv8EbsCBfV0tK9UI6BeV93nJJ4VSU4unO80JoJx8Lk2hSOH3UTWnJksC +9jbYvT1KlULX8DX7n1kT8Dg4WllgsxT6HMjyTj5AwLUvE8P2dlKYNPpeX86Z +AM3CCs/xLCkMdY9LfXSCgIsGlq6SutLYIEnZmB1FwG6njJ8626RRQvFmpOM1 +AvjD/rtku1cak/UZgYIxBNyuvZIX7yKNNUay/L7XCXhqWv7fiqvS6DnuKrEi +mYAJO8bZX13S6BWoKBCXRcCTYN+V6welkZFQ+EAgh4ALt5+lqo5JY+tT24nY +XALWfT1QcZRbBp+PUrXCCghQ8Izh+qoog1bear/0Swhw8p+61hQig9d3zDwX +LCNALmWb1PAVGdyTzc84WP7/+l2/tzJeBrepBMnnVBAQPL+pdVuODBb4Bwoq +VhGQdMlJtKxJBs0CU8P4agloSniVmSsti89ETllsbiLr/UBEo1ZBFj/F6s/v +fkuAw0fXmq8asiiQe8XSsZmAIfH5wQ3Gsjh2aMWcfysBPGx1xUQfWZyrmnC4 +1EbA1pJ/Hl54Loujylbdi90E7OhoXhhrkEW/hNTzrZ8JMOPi3eX8XhZD9j3E +zB4C3K18uuCbLEo0JCtpfSHAOIQWGraciupjB7P1+wl4I1CZrbuGimPMDMdp +0hY5+xsm+Kn4xEJar2SAAMe30etdxamY5EY5IvqNAF/Z6WwjJSrqcI+nvPhB +wNSD+IZZNSqKBAlc8xgi67FbaZTQomLrOE/ein8JuHLKRZtuSEXTzS8O4TAB +abWvG7gtqfjcUqYnYYQAWTuP0XJbKp6kH1eVHSUgZ2Rp/RkHKtbfMSspJF0q +usVxwJ2KK8R3GzweI+ClZ+Zo7Vkq1vCqZ92bIMBkXk/oXAgVc9LtgpiTBDTH +t2lrhVGR+/iKy6mku8pWh+VcpaLgM3/twJ8EjK31E7pym4otxz1oYr8JOMPm +12HdoeIOGf+8s6RntAodp3KpqJXIONxGmsepN8ejlIpnpKejI6fIeeLs1jGu +oaKaRENm0zQB6TsGHBfrqXg5TnZe7A8B9K7zYY/fUHFvhH2yE2kV7geN8h+p ++EKbEfmN9P3kfWO9XVT0LVj7hTlDgK7SkFBKLxUf8UUFuJLeZiN9cOUQFbM1 +przfk3419CTs+QgVI19tf7Nilpy/81a5AZNULF7s89Yl/X79aKPaNBWr7cKs +PEkfyIsc+/GXitKzLedukP68lS7MXqLitpzwkUrSbi2VOna8NEx7bpo1QPqH ++4GDgqtp2GXRnbHyLwHeM5NhDXw0LFj40b+R9NZTR8S+C9FQIVL2qwnpVcOf +injEaSjlfK/Yk3S7m7kRTZqG75sCTcJJ53bXthvSyfUmjz75h7Sfja73QQUa +hjYe/XOP9La3xcuClWnIs9FtzXPSgsa0lBQNGlLKWZNNpHurkpQfadNQhXeo +uIN0sc6amvf6NHzmus/wC+lgzoUDE0jDJ7yOeQOkd2/6NcJnTH7/9+K3QdJi +WZ7hSnto2M6/cbGf9KDkZ4qJBQ0leevHe0jfv2Fx74gtDfPsGys+kg5bV7ft +sgMN6z0Z7q9Jm1/R67zjTMOt9vXfK0jLLN478fwwDRMUc3fdJT1yls7Tc5SG +EYUPIpJIl48np/71oeExv+8550lHea1VFfejofmsZrYb6f19obVbgmgY5X89 +fAdppsNvO+sLNJz8/XM7g/TP915jvpdoqG1pO7RI7kf1np5LcVE01NEo9e0g +HffSUqI4loaHV/3tKSZ9kFVf0phI1k9MXSOU9KxqaRdvOlm/RtNYSdIN+YyT +9CwaHulXSB0g+yeZmsqL+TS8Kt4XU0haU+iiWghBvvfo01EmzRU99TL1MQ03 +aClMDJH92cxzzOFxBQ13xBknZ5E+PmV1ZbKOhrFdFM460lt9XkkKvKEhEs1y +z8j+X/VDn6PcSkOZr16xx0jndDK7PT/R0CPAXruSnJfTlv/4XvlCQ+Mv5UEu +pPE134rsQRp+vSX6YBnpnopp9d4xGuo7flyrT86bWGZDhA0PHT88DDl9lZzX +QQpL6vQqOi4ZsMNFSd+PJ4jrfHS0medLyCDn2zw87fNrCh09+eaK88k8iPLw +1jRSpiP72rPFJDIvZpUEe1Vs6chHMZsdIPNoOl3y4mYHOnrvVj69nfRvATmm +njMdg+OqRNlkfo390ju24ygdK4fl+izIfOuvcJ92OE9HETuNvPhBAl7vecIf +lUtHq+YPbVd7yfl89oKIvUtHo1cvz1aSeftSrcnmRikdz/rttRkh87hKuC8t +o4yOmeMn6reTeX2/e43Co7d0jKg0yH3XQebhcSfon6Lj1FsBo2Nk3qf0ePX/ ++EtHrdxXMqdaCLhpfubK6BIdvSYTTPzJ8yFuc9SbmdUMfNjUes2fPE/C54gD +AjIMZFZv7bZtIPcrermvgTED/y3NKk1+ToBBUTE7OZmBXyPZNFoxAd3Uosyd +txi4xXeb0/Bdcp6SCzN+ZzJQjv7ElSgkz8+LebetChkYxDNcrZtP9osdO5W/ +koGV6UZzyuT5umn5zfiIPgYm6RvqFKeQ++UcEnZWmYkNo2fT1l0k4FFbUKic +BhPTfmxPiA8lwMY08ELbFiayW4R8hC4QkLjF/5wmMNHrA9EjEEIA37qTgWOW +TPxu+o0z6UcAb5mb75EAJp4LS19p5UXApJCpy/4aJmbwL7sas4+ATm9667FX +TLQ/dNuncA85L/V/IbSJiY0WsctemhAQH1wkW9DOxONXCK2fOwlQ71/3ZXaY +ibH+X35rGhLgQ7QcSheWw+ub6nh3qRIwbG7rOHhYDmO2XLtfs47stxiX/adX +yuNFMdlia/I+5jOsTFdfJ4+Ex9d+gRcc+LNrdnRUUB5fCeQ7vSbvb2t4Eq8c +lZRH276qTVvLOaAeVPvQRUUe5y4EqiwnOHDeQ17Y3FoeGdcDv5tkkPc7w5EW +pUx5nO2PWkoK4IDJeIDJN20FPKIdIR0ox4ER91VnHoZuxIFwabOi6hLy/4LC +HVmzCferJsflCN8DobfycZxxRdS9WeJ71LMIpKJKLbS1lVFoaa/y6fBCSFXS +ExT2VEHnbV2e5ffz4bWk0ZZfCao4aL3DfeO/ubBVqiZerV0NC1Kb+J7OZwM/ +T5afa7g6ijf3vu/YmgUyF2UN7OU18B3bMyDQnQ2r5Q4+tnqlgU/FliXHWqeD +KkuiNOCQJkYWHJl/sSsNTvcK1ZpybcaJpsRlIWopMP4rxtYkdTOyq9rVdS/e +hF1q9WkmKlqYozgcKCOSCFW/9Of+NGuh8NqQBIr9dfBR1vz0zmML3t2+cOm/ +3dHAGjvcZr9aG9H5hJCXTSTsZIrv48vSRsqbBeEbay7DxrBrgTU6OrhHw8lQ +QeUiKHroPZf7pIPFt+Ljrg2cA48qr8sPT+ni984H7TO+gfCc3XZ4UlQPZeqD +5CR3+sHvgqU/ak/00OFkdJXNS19wlytanbZvK+7snPv38+RxmFS8oX1/Yivy +NTcLcpqOwNOcub6pKH1c29q2u7LaDbS3+/0xjdbH9XsPExr33eBR38g6dqw+ +xvZAPyfbDe7L9OqYJurjok1fZFOEGxSnVsdm3NJHRpGtReA+N2DHXNHbVaKP +Ocp1u9I/u8JVP4GE1A/6mObl/GRmmSs47GCgvowBOpiyWx62OMFC2yr+WqoB +XluqU5V95ARsj7FuU4YBKh1rTk9Pc4LvEWUBDhsNUOiuXXC7hxOcbjQvDdI0 +QHt9qXbthUNwzeyczFNjA+Q45Pnkqx2CcruP81onDdBk3rX9V5YjbDgRWaZa +bYBPBi8o51fbQdzSkS3RNQZIZ6tUqRbbAXeiMfHjpQF2HU0yqEuxg+HHywvZ +jQb4JiypW+akHZRzXU4V+mCAuu5m+Zdk7MDhZljA9DcDVCxKK1wbdgBSK4K2 +VK1lYUm+27OOfftBdI03se8AC4vSOoJChWwgZ/v54Al7FnbpXdK7vGQNmufj +tt84yMJTC6uGUkeswWyC87HTlYWzQ3WDk/XWENE+NevuzULuj3pM13PWMJMV +ui34IgspMW4rlYat4JP+jQ95RSxsa6z5T/adJXj559w2KWHhSyuaDl+1JUyX +PPIY4bCw1dFYdHWpJQjRO/9oPGYh1HY7K8dawp5V0lLPqlkYH6C1mmpqCZVt +eYc/fGSh57rZ5Pv1FmDK/1TlbCcLC1KcVC4/toDOXY3T4t0sdF39k+OeZwG/ +y/+LcvrKQg/Dpf17IyxA5Y76vX+HWThkeIqn1tgCKj8ZnY0ZZaFmQM8Pbh1y +PRFrUJtgYW56tZeFggUcifR/5zfFQoH1sxSRVeR61RFplBkWMtLrDotMmkP4 +3xT38r8szCQ6wze8NwdBrULlQwssTN/leJb1wBwyTpRPLS2xkGkUpRR80xz+ +B+X54vQ= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0Ve0XB3ChOUOmiwx3QplJhrj21qCozMpQxkQlqchUkQplCGV4FW5m +Efc0G5KIKKGSIVGGyus1VkSm3/n9ddZnnbWes9Z+9v4+z6G5nbTy4Obi4hJc +xsX1/+d0b+NLZnSOISPDf2jnHSPDtgzxIKPOcHgxXnVUQJkKKNriJt6ZCK9P +a9kPK6nDWYu7HTydWfA5bXnYOyWE9WOUxNmO+2Bxa7GlSMkCvlSanfzdUQNM +D+eRzUouYMwc7pnseA9ibx78577JF2Y7dJImOvph/khstgo9DGq35+e8y/oF +BdwdsnEl8SD1pey7m/ICPMuw9hkOSQURb+e7K7fzoKZoiXJ1UyYkahhXmNmu +QvU7WZI27GzoSlWvnhTkw7SJzuv1bXkQnRPawi2xHl2vzki4TBcC5ebA1Rvp +wjjHWnL3zi8GcaVHl2fyhHGHoWnXI04xSNZEhB7iCGPQ/lL2bFkxyExs8leo +Fcbum6I036ZikNvr61IxJIyLIt2vxCeLYTPvgvbAZhF8G1daekDvHpj7iQ1q +vhbBoMLqQ5fr7kGkjYnh+2lRbHWx43ZvKgHJh82S3MvE0FqX0tvXVgIlwjZ/ +NNaKIVcxf519Twm0v3fiJMiKoYmiAKE1VgJMSz+65W4xHPzwbChZoBRq9mWu +aP1HDD13XpNcZ1kKC8ZTzW8NKKjAtlJ52FwK8XnBRQvGFOzjNxqwai8F5gqu +KBVLCo6b3YgZ7imFvXVrjGI9KHjMXPQJ72gppG2nPtgbR0Gh0kWV08s5oIt7 +Ut58oeBd91u6BXQOnNG749wYLo4FLbIHvB04YMrm/70nRhxHN5rvTDjEAfrK +c1HNSeJ4YG7LhgcuHGht2098KBDHCMOq86NHOKDqu46nt1kcc/fOS7LOcGAo +LyDvp6QEptkey94VzYGDImajGx5IoGjcaOTqMg5sDqm4mFEpgRE53aZvKjiw +pn+jGK1eAtPTf/26WsWBslIekO+SwJhPJTMLtRwQ21MWr74kgU/dvzdVN5Pf +v8jU2rlHEn+arS4gBjiwY/xvsM+AJLoedUrBtQQE7b6p+GJEEjXTrSxu8BFQ +ckflk/C0JK5kBwkOCBAgbuOiV7ZqAy4afM4LEiFg5GndHx7VDSgxF6l2SZqA +G+Hxfv8EbsCBfV0tK9UI6BeV93nJJ4VSU4unO80JoJx8Lk2hSOH3UTWnJksC +9jbYvT1KlULX8DX7n1kT8Dg4WllgsxT6HMjyTj5AwLUvE8P2dlKYNPpeX86Z +AM3CCs/xLCkMdY9LfXSCgIsGlq6SutLYIEnZmB1FwG6njJ8626RRQvFmpOM1 +AvjD/rtku1cak/UZgYIxBNyuvZIX7yKNNUay/L7XCXhqWv7fiqvS6DnuKrEi +mYAJO8bZX13S6BWoKBCXRcCTYN+V6welkZFQ+EAgh4ALt5+lqo5JY+tT24nY +XALWfT1QcZRbBp+PUrXCCghQ8Izh+qoog1bear/0Swhw8p+61hQig9d3zDwX +LCNALmWb1PAVGdyTzc84WP7/+l2/tzJeBrepBMnnVBAQPL+pdVuODBb4Bwoq +VhGQdMlJtKxJBs0CU8P4agloSniVmSsti89ETllsbiLr/UBEo1ZBFj/F6s/v +fkuAw0fXmq8asiiQe8XSsZmAIfH5wQ3Gsjh2aMWcfysBPGx1xUQfWZyrmnC4 +1EbA1pJ/Hl54Loujylbdi90E7OhoXhhrkEW/hNTzrZ8JMOPi3eX8XhZD9j3E +zB4C3K18uuCbLEo0JCtpfSHAOIQWGraciupjB7P1+wl4I1CZrbuGimPMDMdp +0hY5+xsm+Kn4xEJar2SAAMe30etdxamY5EY5IvqNAF/Z6WwjJSrqcI+nvPhB +wNSD+IZZNSqKBAlc8xgi67FbaZTQomLrOE/ein8JuHLKRZtuSEXTzS8O4TAB +abWvG7gtqfjcUqYnYYQAWTuP0XJbKp6kH1eVHSUgZ2Rp/RkHKtbfMSspJF0q +usVxwJ2KK8R3GzweI+ClZ+Zo7Vkq1vCqZ92bIMBkXk/oXAgVc9LtgpiTBDTH +t2lrhVGR+/iKy6mku8pWh+VcpaLgM3/twJ8EjK31E7pym4otxz1oYr8JOMPm +12HdoeIOGf+8s6RntAodp3KpqJXIONxGmsepN8ejlIpnpKejI6fIeeLs1jGu +oaKaRENm0zQB6TsGHBfrqXg5TnZe7A8B9K7zYY/fUHFvhH2yE2kV7geN8h+p ++EKbEfmN9P3kfWO9XVT0LVj7hTlDgK7SkFBKLxUf8UUFuJLeZiN9cOUQFbM1 +przfk3419CTs+QgVI19tf7Nilpy/81a5AZNULF7s89Yl/X79aKPaNBWr7cKs +PEkfyIsc+/GXitKzLedukP68lS7MXqLitpzwkUrSbi2VOna8NEx7bpo1QPqH ++4GDgqtp2GXRnbHyLwHeM5NhDXw0LFj40b+R9NZTR8S+C9FQIVL2qwnpVcOf +injEaSjlfK/Yk3S7m7kRTZqG75sCTcJJ53bXthvSyfUmjz75h7Sfja73QQUa +hjYe/XOP9La3xcuClWnIs9FtzXPSgsa0lBQNGlLKWZNNpHurkpQfadNQhXeo +uIN0sc6amvf6NHzmus/wC+lgzoUDE0jDJ7yOeQOkd2/6NcJnTH7/9+K3QdJi +WZ7hSnto2M6/cbGf9KDkZ4qJBQ0leevHe0jfv2Fx74gtDfPsGys+kg5bV7ft +sgMN6z0Z7q9Jm1/R67zjTMOt9vXfK0jLLN478fwwDRMUc3fdJT1yls7Tc5SG +EYUPIpJIl48np/71oeExv+8550lHea1VFfejofmsZrYb6f19obVbgmgY5X89 +fAdppsNvO+sLNJz8/XM7g/TP915jvpdoqG1pO7RI7kf1np5LcVE01NEo9e0g +HffSUqI4loaHV/3tKSZ9kFVf0phI1k9MXSOU9KxqaRdvOlm/RtNYSdIN+YyT +9CwaHulXSB0g+yeZmsqL+TS8Kt4XU0haU+iiWghBvvfo01EmzRU99TL1MQ03 +aClMDJH92cxzzOFxBQ13xBknZ5E+PmV1ZbKOhrFdFM460lt9XkkKvKEhEs1y +z8j+X/VDn6PcSkOZr16xx0jndDK7PT/R0CPAXruSnJfTlv/4XvlCQ+Mv5UEu +pPE134rsQRp+vSX6YBnpnopp9d4xGuo7flyrT86bWGZDhA0PHT88DDl9lZzX +QQpL6vQqOi4ZsMNFSd+PJ4jrfHS0medLyCDn2zw87fNrCh09+eaK88k8iPLw +1jRSpiP72rPFJDIvZpUEe1Vs6chHMZsdIPNoOl3y4mYHOnrvVj69nfRvATmm +njMdg+OqRNlkfo390ju24ygdK4fl+izIfOuvcJ92OE9HETuNvPhBAl7vecIf +lUtHq+YPbVd7yfl89oKIvUtHo1cvz1aSeftSrcnmRikdz/rttRkh87hKuC8t +o4yOmeMn6reTeX2/e43Co7d0jKg0yH3XQebhcSfon6Lj1FsBo2Nk3qf0ePX/ ++EtHrdxXMqdaCLhpfubK6BIdvSYTTPzJ8yFuc9SbmdUMfNjUes2fPE/C54gD +AjIMZFZv7bZtIPcrermvgTED/y3NKk1+ToBBUTE7OZmBXyPZNFoxAd3Uosyd +txi4xXeb0/Bdcp6SCzN+ZzJQjv7ElSgkz8+LebetChkYxDNcrZtP9osdO5W/ +koGV6UZzyuT5umn5zfiIPgYm6RvqFKeQ++UcEnZWmYkNo2fT1l0k4FFbUKic +BhPTfmxPiA8lwMY08ELbFiayW4R8hC4QkLjF/5wmMNHrA9EjEEIA37qTgWOW +TPxu+o0z6UcAb5mb75EAJp4LS19p5UXApJCpy/4aJmbwL7sas4+ATm9667FX +TLQ/dNuncA85L/V/IbSJiY0WsctemhAQH1wkW9DOxONXCK2fOwlQ71/3ZXaY +ibH+X35rGhLgQ7QcSheWw+ub6nh3qRIwbG7rOHhYDmO2XLtfs47stxiX/adX +yuNFMdlia/I+5jOsTFdfJ4+Ex9d+gRcc+LNrdnRUUB5fCeQ7vSbvb2t4Eq8c +lZRH276qTVvLOaAeVPvQRUUe5y4EqiwnOHDeQ17Y3FoeGdcDv5tkkPc7w5EW +pUx5nO2PWkoK4IDJeIDJN20FPKIdIR0ox4ER91VnHoZuxIFwabOi6hLy/4LC +HVmzCferJsflCN8DobfycZxxRdS9WeJ71LMIpKJKLbS1lVFoaa/y6fBCSFXS +ExT2VEHnbV2e5ffz4bWk0ZZfCao4aL3DfeO/ubBVqiZerV0NC1Kb+J7OZwM/ +T5afa7g6ijf3vu/YmgUyF2UN7OU18B3bMyDQnQ2r5Q4+tnqlgU/FliXHWqeD +KkuiNOCQJkYWHJl/sSsNTvcK1ZpybcaJpsRlIWopMP4rxtYkdTOyq9rVdS/e +hF1q9WkmKlqYozgcKCOSCFW/9Of+NGuh8NqQBIr9dfBR1vz0zmML3t2+cOm/ +3dHAGjvcZr9aG9H5hJCXTSTsZIrv48vSRsqbBeEbay7DxrBrgTU6OrhHw8lQ +QeUiKHroPZf7pIPFt+Ljrg2cA48qr8sPT+ni984H7TO+gfCc3XZ4UlQPZeqD +5CR3+sHvgqU/ak/00OFkdJXNS19wlytanbZvK+7snPv38+RxmFS8oX1/Yivy +NTcLcpqOwNOcub6pKH1c29q2u7LaDbS3+/0xjdbH9XsPExr33eBR38g6dqw+ +xvZAPyfbDe7L9OqYJurjok1fZFOEGxSnVsdm3NJHRpGtReA+N2DHXNHbVaKP +Ocp1u9I/u8JVP4GE1A/6mObl/GRmmSs47GCgvowBOpiyWx62OMFC2yr+WqoB +XluqU5V95ARsj7FuU4YBKh1rTk9Pc4LvEWUBDhsNUOiuXXC7hxOcbjQvDdI0 +QHt9qXbthUNwzeyczFNjA+Q45Pnkqx2CcruP81onDdBk3rX9V5YjbDgRWaZa +bYBPBi8o51fbQdzSkS3RNQZIZ6tUqRbbAXeiMfHjpQF2HU0yqEuxg+HHywvZ +jQb4JiypW+akHZRzXU4V+mCAuu5m+Zdk7MDhZljA9DcDVCxKK1wbdgBSK4K2 +VK1lYUm+27OOfftBdI03se8AC4vSOoJChWwgZ/v54Al7FnbpXdK7vGQNmufj +tt84yMJTC6uGUkeswWyC87HTlYWzQ3WDk/XWENE+NevuzULuj3pM13PWMJMV +ui34IgspMW4rlYat4JP+jQ95RSxsa6z5T/adJXj559w2KWHhSyuaDl+1JUyX +PPIY4bCw1dFYdHWpJQjRO/9oPGYh1HY7K8dawp5V0lLPqlkYH6C1mmpqCZVt +eYc/fGSh57rZ5Pv1FmDK/1TlbCcLC1KcVC4/toDOXY3T4t0sdF39k+OeZwG/ +y/+LcvrKQg/Dpf17IyxA5Y76vX+HWThkeIqn1tgCKj8ZnY0ZZaFmQM8Pbh1y +PRFrUJtgYW56tZeFggUcifR/5zfFQoH1sxSRVeR61RFplBkWMtLrDotMmkP4 +3xT38r8szCQ6wze8NwdBrULlQwssTN/leJb1wBwyTpRPLS2xkGkUpRR80xz+ +B+X54vQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07023459067473262}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07023459067473262}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0Ve0XB3ChOUOmiwx3QplJhrj21qCozMpQxkQlqchUkQplCGV4FW5m +Efc0G5KIKKGSIVGGyus1VkSm3/n9ddZnnbWes9Z+9v4+z6G5nbTy4Obi4hJc +xsX1/+d0b+NLZnSOISPDf2jnHSPDtgzxIKPOcHgxXnVUQJkKKNriJt6ZCK9P +a9kPK6nDWYu7HTydWfA5bXnYOyWE9WOUxNmO+2Bxa7GlSMkCvlSanfzdUQNM +D+eRzUouYMwc7pnseA9ibx78577JF2Y7dJImOvph/khstgo9DGq35+e8y/oF +BdwdsnEl8SD1pey7m/ICPMuw9hkOSQURb+e7K7fzoKZoiXJ1UyYkahhXmNmu +QvU7WZI27GzoSlWvnhTkw7SJzuv1bXkQnRPawi2xHl2vzki4TBcC5ebA1Rvp +wjjHWnL3zi8GcaVHl2fyhHGHoWnXI04xSNZEhB7iCGPQ/lL2bFkxyExs8leo +Fcbum6I036ZikNvr61IxJIyLIt2vxCeLYTPvgvbAZhF8G1daekDvHpj7iQ1q +vhbBoMLqQ5fr7kGkjYnh+2lRbHWx43ZvKgHJh82S3MvE0FqX0tvXVgIlwjZ/ +NNaKIVcxf519Twm0v3fiJMiKoYmiAKE1VgJMSz+65W4xHPzwbChZoBRq9mWu +aP1HDD13XpNcZ1kKC8ZTzW8NKKjAtlJ52FwK8XnBRQvGFOzjNxqwai8F5gqu +KBVLCo6b3YgZ7imFvXVrjGI9KHjMXPQJ72gppG2nPtgbR0Gh0kWV08s5oIt7 +Ut58oeBd91u6BXQOnNG749wYLo4FLbIHvB04YMrm/70nRhxHN5rvTDjEAfrK +c1HNSeJ4YG7LhgcuHGht2098KBDHCMOq86NHOKDqu46nt1kcc/fOS7LOcGAo +LyDvp6QEptkey94VzYGDImajGx5IoGjcaOTqMg5sDqm4mFEpgRE53aZvKjiw +pn+jGK1eAtPTf/26WsWBslIekO+SwJhPJTMLtRwQ21MWr74kgU/dvzdVN5Pf +v8jU2rlHEn+arS4gBjiwY/xvsM+AJLoedUrBtQQE7b6p+GJEEjXTrSxu8BFQ +ckflk/C0JK5kBwkOCBAgbuOiV7ZqAy4afM4LEiFg5GndHx7VDSgxF6l2SZqA +G+Hxfv8EbsCBfV0tK9UI6BeV93nJJ4VSU4unO80JoJx8Lk2hSOH3UTWnJksC +9jbYvT1KlULX8DX7n1kT8Dg4WllgsxT6HMjyTj5AwLUvE8P2dlKYNPpeX86Z +AM3CCs/xLCkMdY9LfXSCgIsGlq6SutLYIEnZmB1FwG6njJ8626RRQvFmpOM1 +AvjD/rtku1cak/UZgYIxBNyuvZIX7yKNNUay/L7XCXhqWv7fiqvS6DnuKrEi +mYAJO8bZX13S6BWoKBCXRcCTYN+V6welkZFQ+EAgh4ALt5+lqo5JY+tT24nY +XALWfT1QcZRbBp+PUrXCCghQ8Izh+qoog1bear/0Swhw8p+61hQig9d3zDwX +LCNALmWb1PAVGdyTzc84WP7/+l2/tzJeBrepBMnnVBAQPL+pdVuODBb4Bwoq +VhGQdMlJtKxJBs0CU8P4agloSniVmSsti89ETllsbiLr/UBEo1ZBFj/F6s/v +fkuAw0fXmq8asiiQe8XSsZmAIfH5wQ3Gsjh2aMWcfysBPGx1xUQfWZyrmnC4 +1EbA1pJ/Hl54Loujylbdi90E7OhoXhhrkEW/hNTzrZ8JMOPi3eX8XhZD9j3E +zB4C3K18uuCbLEo0JCtpfSHAOIQWGraciupjB7P1+wl4I1CZrbuGimPMDMdp +0hY5+xsm+Kn4xEJar2SAAMe30etdxamY5EY5IvqNAF/Z6WwjJSrqcI+nvPhB +wNSD+IZZNSqKBAlc8xgi67FbaZTQomLrOE/ein8JuHLKRZtuSEXTzS8O4TAB +abWvG7gtqfjcUqYnYYQAWTuP0XJbKp6kH1eVHSUgZ2Rp/RkHKtbfMSspJF0q +usVxwJ2KK8R3GzweI+ClZ+Zo7Vkq1vCqZ92bIMBkXk/oXAgVc9LtgpiTBDTH +t2lrhVGR+/iKy6mku8pWh+VcpaLgM3/twJ8EjK31E7pym4otxz1oYr8JOMPm +12HdoeIOGf+8s6RntAodp3KpqJXIONxGmsepN8ejlIpnpKejI6fIeeLs1jGu +oaKaRENm0zQB6TsGHBfrqXg5TnZe7A8B9K7zYY/fUHFvhH2yE2kV7geN8h+p ++EKbEfmN9P3kfWO9XVT0LVj7hTlDgK7SkFBKLxUf8UUFuJLeZiN9cOUQFbM1 +przfk3419CTs+QgVI19tf7Nilpy/81a5AZNULF7s89Yl/X79aKPaNBWr7cKs +PEkfyIsc+/GXitKzLedukP68lS7MXqLitpzwkUrSbi2VOna8NEx7bpo1QPqH ++4GDgqtp2GXRnbHyLwHeM5NhDXw0LFj40b+R9NZTR8S+C9FQIVL2qwnpVcOf +injEaSjlfK/Yk3S7m7kRTZqG75sCTcJJ53bXthvSyfUmjz75h7Sfja73QQUa +hjYe/XOP9La3xcuClWnIs9FtzXPSgsa0lBQNGlLKWZNNpHurkpQfadNQhXeo +uIN0sc6amvf6NHzmus/wC+lgzoUDE0jDJ7yOeQOkd2/6NcJnTH7/9+K3QdJi +WZ7hSnto2M6/cbGf9KDkZ4qJBQ0leevHe0jfv2Fx74gtDfPsGys+kg5bV7ft +sgMN6z0Z7q9Jm1/R67zjTMOt9vXfK0jLLN478fwwDRMUc3fdJT1yls7Tc5SG +EYUPIpJIl48np/71oeExv+8550lHea1VFfejofmsZrYb6f19obVbgmgY5X89 +fAdppsNvO+sLNJz8/XM7g/TP915jvpdoqG1pO7RI7kf1np5LcVE01NEo9e0g +HffSUqI4loaHV/3tKSZ9kFVf0phI1k9MXSOU9KxqaRdvOlm/RtNYSdIN+YyT +9CwaHulXSB0g+yeZmsqL+TS8Kt4XU0haU+iiWghBvvfo01EmzRU99TL1MQ03 +aClMDJH92cxzzOFxBQ13xBknZ5E+PmV1ZbKOhrFdFM460lt9XkkKvKEhEs1y +z8j+X/VDn6PcSkOZr16xx0jndDK7PT/R0CPAXruSnJfTlv/4XvlCQ+Mv5UEu +pPE134rsQRp+vSX6YBnpnopp9d4xGuo7flyrT86bWGZDhA0PHT88DDl9lZzX +QQpL6vQqOi4ZsMNFSd+PJ4jrfHS0medLyCDn2zw87fNrCh09+eaK88k8iPLw +1jRSpiP72rPFJDIvZpUEe1Vs6chHMZsdIPNoOl3y4mYHOnrvVj69nfRvATmm +njMdg+OqRNlkfo390ju24ygdK4fl+izIfOuvcJ92OE9HETuNvPhBAl7vecIf +lUtHq+YPbVd7yfl89oKIvUtHo1cvz1aSeftSrcnmRikdz/rttRkh87hKuC8t +o4yOmeMn6reTeX2/e43Co7d0jKg0yH3XQebhcSfon6Lj1FsBo2Nk3qf0ePX/ ++EtHrdxXMqdaCLhpfubK6BIdvSYTTPzJ8yFuc9SbmdUMfNjUes2fPE/C54gD +AjIMZFZv7bZtIPcrermvgTED/y3NKk1+ToBBUTE7OZmBXyPZNFoxAd3Uosyd +txi4xXeb0/Bdcp6SCzN+ZzJQjv7ElSgkz8+LebetChkYxDNcrZtP9osdO5W/ +koGV6UZzyuT5umn5zfiIPgYm6RvqFKeQ++UcEnZWmYkNo2fT1l0k4FFbUKic +BhPTfmxPiA8lwMY08ELbFiayW4R8hC4QkLjF/5wmMNHrA9EjEEIA37qTgWOW +TPxu+o0z6UcAb5mb75EAJp4LS19p5UXApJCpy/4aJmbwL7sas4+ATm9667FX +TLQ/dNuncA85L/V/IbSJiY0WsctemhAQH1wkW9DOxONXCK2fOwlQ71/3ZXaY +ibH+X35rGhLgQ7QcSheWw+ub6nh3qRIwbG7rOHhYDmO2XLtfs47stxiX/adX +yuNFMdlia/I+5jOsTFdfJ4+Ex9d+gRcc+LNrdnRUUB5fCeQ7vSbvb2t4Eq8c +lZRH276qTVvLOaAeVPvQRUUe5y4EqiwnOHDeQ17Y3FoeGdcDv5tkkPc7w5EW +pUx5nO2PWkoK4IDJeIDJN20FPKIdIR0ox4ER91VnHoZuxIFwabOi6hLy/4LC +HVmzCferJsflCN8DobfycZxxRdS9WeJ71LMIpKJKLbS1lVFoaa/y6fBCSFXS +ExT2VEHnbV2e5ffz4bWk0ZZfCao4aL3DfeO/ubBVqiZerV0NC1Kb+J7OZwM/ +T5afa7g6ijf3vu/YmgUyF2UN7OU18B3bMyDQnQ2r5Q4+tnqlgU/FliXHWqeD +KkuiNOCQJkYWHJl/sSsNTvcK1ZpybcaJpsRlIWopMP4rxtYkdTOyq9rVdS/e +hF1q9WkmKlqYozgcKCOSCFW/9Of+NGuh8NqQBIr9dfBR1vz0zmML3t2+cOm/ +3dHAGjvcZr9aG9H5hJCXTSTsZIrv48vSRsqbBeEbay7DxrBrgTU6OrhHw8lQ +QeUiKHroPZf7pIPFt+Ljrg2cA48qr8sPT+ni984H7TO+gfCc3XZ4UlQPZeqD +5CR3+sHvgqU/ak/00OFkdJXNS19wlytanbZvK+7snPv38+RxmFS8oX1/Yivy +NTcLcpqOwNOcub6pKH1c29q2u7LaDbS3+/0xjdbH9XsPExr33eBR38g6dqw+ +xvZAPyfbDe7L9OqYJurjok1fZFOEGxSnVsdm3NJHRpGtReA+N2DHXNHbVaKP +Ocp1u9I/u8JVP4GE1A/6mObl/GRmmSs47GCgvowBOpiyWx62OMFC2yr+WqoB +XluqU5V95ARsj7FuU4YBKh1rTk9Pc4LvEWUBDhsNUOiuXXC7hxOcbjQvDdI0 +QHt9qXbthUNwzeyczFNjA+Q45Pnkqx2CcruP81onDdBk3rX9V5YjbDgRWaZa +bYBPBi8o51fbQdzSkS3RNQZIZ6tUqRbbAXeiMfHjpQF2HU0yqEuxg+HHywvZ +jQb4JiypW+akHZRzXU4V+mCAuu5m+Zdk7MDhZljA9DcDVCxKK1wbdgBSK4K2 +VK1lYUm+27OOfftBdI03se8AC4vSOoJChWwgZ/v54Al7FnbpXdK7vGQNmufj +tt84yMJTC6uGUkeswWyC87HTlYWzQ3WDk/XWENE+NevuzULuj3pM13PWMJMV +ui34IgspMW4rlYat4JP+jQ95RSxsa6z5T/adJXj559w2KWHhSyuaDl+1JUyX +PPIY4bCw1dFYdHWpJQjRO/9oPGYh1HY7K8dawp5V0lLPqlkYH6C1mmpqCZVt +eYc/fGSh57rZ5Pv1FmDK/1TlbCcLC1KcVC4/toDOXY3T4t0sdF39k+OeZwG/ +y/+LcvrKQg/Dpf17IyxA5Y76vX+HWThkeIqn1tgCKj8ZnY0ZZaFmQM8Pbh1y +PRFrUJtgYW56tZeFggUcifR/5zfFQoH1sxSRVeR61RFplBkWMtLrDotMmkP4 +3xT38r8szCQ6wze8NwdBrULlQwssTN/leJb1wBwyTpRPLS2xkGkUpRR80xz+ +B+X54vQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07023459067473262}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07023459067473262}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913298974454536`*^9, 3.9942580135146627`*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"a410c4f2-f8d5-4dc1-b89b-ab6bf5112a54"] }, Open ]], Cell[CellGroupData[{ @@ -8477,26 +8591,30 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], - ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -8518,66 +8636,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[173]:=",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], + "In[100]:=",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 173, 129, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913298974999084`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.905059024202779`*^-160\\\", \ +RowBox[{\\\"505518991860510123640143\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"101\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 17, + 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913298974999084`*^9, 3.9942580136812887`*^9}, CellLabel-> "During evaluation of \ -In[173]:=",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], +In[100]:=",ExpressionUUID->"14a3e075-d10f-43a4-9b75-8b360a33a7df"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 173, 130, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329897510906*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.559676524562317`*^-163\\\", \ +RowBox[{\\\"164243120455479739170682\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"105\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 18, + 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913298974999084`*^9, 3.994258013692339*^9}, CellLabel-> "During evaluation of \ -In[173]:=",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], +In[100]:=",ExpressionUUID->"bfabe440-49a0-4612-b95d-bbb80407ed69"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 173, 131, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913298975189075`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.915374099647473`*^-166\\\", \ +RowBox[{\\\"552513857212233842570175\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"108\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 19, + 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913298974999084`*^9, 3.994258013702446*^9}, CellLabel-> "During evaluation of \ -In[173]:=",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], +In[100]:=",ExpressionUUID->"7f1a8a9e-ca70-4aae-8e1b-cf9bb4ddff94"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 173, 132, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329897526905*^9}, +during this calculation.\"", 2, 100, 20, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913298974999084`*^9, 3.99425801371273*^9}, CellLabel-> "During evaluation of \ -In[173]:=",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], +In[100]:=",ExpressionUUID->"c7581aad-5c39-499f-9833-4b3774c874fb"], -Cell[BoxData["9.77956849963325`"], "Output", - CellChangeTimes->{3.991329904262455*^9}, +Cell[BoxData["10.822066919586893`"], "Output", + CellChangeTimes->{3.991329904262455*^9, 3.994258102984336*^9}, CellLabel-> - "Out[173]=",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] + "Out[100]=",ExpressionUUID->"a7d9ec58-8b9e-4738-8c2c-a2a4f8edbb5e"] }, Open ]], Cell[CellGroupData[{ @@ -8644,68 +8769,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918489049186344`*^9, - 3.991848908595253*^9}},ExpressionUUID->"eb852908-4d60-c84e-80d9-\ -a57fd4094f56"], + CellChangeTimes->{{3.9918489049186344`*^9, 3.991848908595253*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 174, 133, 24483298974280422597, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329904300501*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2977303179502816`*^-208\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 101, 21, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329904300501*^9, 3.994258103062811*^9}, CellLabel-> "During evaluation of \ -In[174]:=",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], +In[101]:=",ExpressionUUID->"9ccb7cf6-1277-45ee-9c96-6581782376b5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 174, 134, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329904310505*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4571302235953658`*^-213\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 101, 22, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329904300501*^9, 3.994258103073303*^9}, CellLabel-> "During evaluation of \ -In[174]:=",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], +In[101]:=",ExpressionUUID->"a81ac83f-fc00-41df-8b7e-a547e114caf2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 174, 135, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299043185062`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.636109181658516`*^-218\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 101, 23, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329904300501*^9, 3.994258103082407*^9}, CellLabel-> "During evaluation of \ -In[174]:=",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], +In[101]:=",ExpressionUUID->"97559e05-68ec-484a-8c53-8b7e5eb905cd"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 174, 136, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299043256874`*^9}, +during this calculation.\"", 2, 101, 24, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329904300501*^9, 3.9942581030910254`*^9}, CellLabel-> "During evaluation of \ -In[174]:=",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], +In[101]:=",ExpressionUUID->"b4a3bdd9-b470-465c-9315-2f91ebc81797"], -Cell[BoxData["0.1491428555515254`"], "Output", - CellChangeTimes->{3.9913299110465336`*^9}, +Cell[BoxData["0.46832380460083367`"], "Output", + CellChangeTimes->{3.9913299110465336`*^9, 3.994258114658695*^9}, CellLabel-> - "Out[174]=",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] + "Out[101]=",ExpressionUUID->"96b3e0de-aa1a-41e1-a418-9670e009746b"] }, Open ]], Cell[CellGroupData[{ @@ -8726,8 +8855,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8772,68 +8900,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918489121661835`*^9, - 3.9918489145264854`*^9}},ExpressionUUID->"d11037f6-09e7-b44f-8a1d-\ -47c1a485c608"], + CellChangeTimes->{{3.9918489121661835`*^9, 3.9918489145264854`*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 175, 137, 24483298974280422597, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329911081766*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2977303179502816`*^-208\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 102, 25, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329911081766*^9, 3.9942581147086983`*^9}, CellLabel-> "During evaluation of \ -In[175]:=",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], +In[102]:=",ExpressionUUID->"0ae86c23-23eb-4910-ab95-7234a3344af8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 175, 138, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329911090769*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4571302235953658`*^-213\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 102, 26, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329911081766*^9, 3.9942581147194977`*^9}, CellLabel-> "During evaluation of \ -In[175]:=",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], +In[102]:=",ExpressionUUID->"3a996009-351b-401f-b668-f3506e5beee5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 175, 139, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329911098768*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.636109181658516`*^-218\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 102, 27, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329911081766*^9, 3.994258114728486*^9}, CellLabel-> "During evaluation of \ -In[175]:=",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], +In[102]:=",ExpressionUUID->"522d6c18-90b7-4135-a43c-926a402609db"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 175, 140, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299111067944`*^9}, +during this calculation.\"", 2, 102, 28, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329911081766*^9, 3.994258114736022*^9}, CellLabel-> "During evaluation of \ -In[175]:=",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], +In[102]:=",ExpressionUUID->"cecf92a6-8700-404d-b28b-1473dd7724f8"], -Cell[BoxData["6.5928699937564845`"], "Output", - CellChangeTimes->{3.9913299163114815`*^9}, +Cell[BoxData["31.753609100721768`"], "Output", + CellChangeTimes->{3.9913299163114815`*^9, 3.994258125567168*^9}, CellLabel-> - "Out[175]=",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] + "Out[102]=",ExpressionUUID->"ef196b67-8da0-47ac-b9b6-ff7041a9b864"] }, Open ]], Cell[CellGroupData[{ @@ -8854,8 +8986,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8900,68 +9031,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918489192162857`*^9, - 3.991848922582632*^9}},ExpressionUUID->"431dd2fa-6331-2449-bc19-\ -0d79e6ed8953"], + CellChangeTimes->{{3.9918489192162857`*^9, 3.991848922582632*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 176, 141, 24483298974280422597, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299163444805`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2977303179502816`*^-208\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 103, 29, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299163444805`*^9, 3.99425812563871*^9}, CellLabel-> "During evaluation of \ -In[176]:=",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], +In[103]:=",ExpressionUUID->"b4688f69-6158-4e6d-a2d4-c356fac6e2bf"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 176, 142, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329916354479*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4571302235953658`*^-213\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 103, 30, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299163444805`*^9, 3.994258125649827*^9}, CellLabel-> "During evaluation of \ -In[176]:=",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], +In[103]:=",ExpressionUUID->"31f02b0e-fbaf-4561-a0d7-9fc65bda01d0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 176, 143, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299163634796`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.636109181658516`*^-218\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 103, 31, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299163444805`*^9, 3.9942581256599407`*^9}, CellLabel-> "During evaluation of \ -In[176]:=",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], +In[103]:=",ExpressionUUID->"dd772b0b-38d1-459d-8688-2aea653f3c9f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 176, 144, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329916371479*^9}, +during this calculation.\"", 2, 103, 32, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299163444805`*^9, 3.994258125669365*^9}, CellLabel-> "During evaluation of \ -In[176]:=",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], +In[103]:=",ExpressionUUID->"ab1e47f3-f86e-4fce-ab41-c37c54b8080e"], -Cell[BoxData["16.916908616104454`"], "Output", - CellChangeTimes->{3.9913299193276234`*^9}, +Cell[BoxData["5.4348646585683795`"], "Output", + CellChangeTimes->{3.9913299193276234`*^9, 3.9942581345208282`*^9}, CellLabel-> - "Out[176]=",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] + "Out[103]=",ExpressionUUID->"8aaa1c47-f335-4ab1-b0bb-4ab3e1df1d52"] }, Open ]], Cell[CellGroupData[{ @@ -8970,22 +9105,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991848926103155*^9, - 3.9918489295815735`*^9}},ExpressionUUID->"8c5df121-e0b9-a146-bc34-\ -b231aa8028b9"], - -Cell[BoxData["0.01412227604937243`"], "Output", - CellChangeTimes->{3.99132991935894*^9}, + CellChangeTimes->{{3.991848926103155*^9, 3.9918489295815735`*^9}}, CellLabel-> - "Out[177]=",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] + "In[104]:=",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], + +Cell[BoxData["0.035649654021831394`"], "Output", + CellChangeTimes->{3.99132991935894*^9, 3.994258134568643*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"635916e8-9434-46c5-b19a-7608410d402d"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918489327910748`*^9, 3.991848934830887*^9}, - 3.991924914130762*^9},ExpressionUUID->"831a27fc-89ff-e041-97f1-\ -0ec5d19a7879"], + 3.991924914130762*^9}, + CellLabel-> + "In[105]:=",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], Cell[CellGroupData[{ @@ -9008,12 +9144,12 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[179]:=",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], + "In[106]:=",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], -Cell[BoxData["8.947947137013426`"], "Output", - CellChangeTimes->{3.9913299193849545`*^9}, +Cell[BoxData["7.45900498666487`"], "Output", + CellChangeTimes->{3.9913299193849545`*^9, 3.9942581345921583`*^9}, CellLabel-> - "Out[179]=",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] + "Out[106]=",ExpressionUUID->"330c81d7-b909-44a9-80b3-9e2af7218884"] }, Open ]], Cell[CellGroupData[{ @@ -9023,12 +9159,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[181]:=",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], + "In[107]:=",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], -Cell[BoxData["1.2539951617800844`"], "Output", - CellChangeTimes->{3.9913299194207077`*^9}, +Cell[BoxData["2.2307355176523296`"], "Output", + CellChangeTimes->{3.9913299194207077`*^9, 3.9942581346063957`*^9}, CellLabel-> - "Out[181]=",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] + "Out[107]=",ExpressionUUID->"9593ee0e-c9ed-41f1-a2a5-b1148069eec7"] }, Open ]], Cell[CellGroupData[{ @@ -9038,12 +9174,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[184]:=",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], + "In[108]:=",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], -Cell[BoxData["11.220682417678793`"], "Output", - CellChangeTimes->{3.9913299194738407`*^9}, +Cell[BoxData["16.639067350099168`"], "Output", + CellChangeTimes->{3.9913299194738407`*^9, 3.9942581346209593`*^9}, CellLabel-> - "Out[184]=",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] + "Out[108]=",ExpressionUUID->"f5a63b4e-2374-43a1-a9d2-0ae0b0d414f9"] }, Open ]], Cell[CellGroupData[{ @@ -9233,12 +9369,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[185]:=",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], + "In[109]:=",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], -Cell[BoxData["0.04472011299838893`"], "Output", - CellChangeTimes->{3.991329919501911*^9}, +Cell[BoxData["0.007119605569083302`"], "Output", + CellChangeTimes->{3.991329919501911*^9, 3.9942581346401978`*^9}, CellLabel-> - "Out[185]=",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] + "Out[109]=",ExpressionUUID->"397fbfe3-cb8b-4b2c-b38b-c71c29f73605"] }, Open ]], Cell[CellGroupData[{ @@ -9252,12 +9388,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[186]:=",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], + "In[110]:=",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], -Cell[BoxData["4.190766798679958`"], "Output", - CellChangeTimes->{3.991329919596855*^9}, +Cell[BoxData["10.503087260030354`"], "Output", + CellChangeTimes->{3.991329919596855*^9, 3.99425813484725*^9}, CellLabel-> - "Out[186]=",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] + "Out[110]=",ExpressionUUID->"4f7532e2-85a9-4ecf-825d-8ced48d82493"] }, Open ]], Cell[CellGroupData[{ @@ -9449,12 +9585,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[187]:=",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], + "In[111]:=",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], -Cell[BoxData["0.014190600885170185`"], "Output", - CellChangeTimes->{3.9913299196126003`*^9}, +Cell[BoxData["0.056125117134429255`"], "Output", + CellChangeTimes->{3.9913299196126003`*^9, 3.994258134867242*^9}, CellLabel-> - "Out[187]=",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] + "Out[111]=",ExpressionUUID->"39572242-0c3b-45c1-bf7a-974b51e09316"] }, Open ]], Cell[CellGroupData[{ @@ -9468,12 +9604,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[188]:=",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], + "In[112]:=",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], -Cell[BoxData["7.439513700547701`"], "Output", - CellChangeTimes->{3.9913299197036095`*^9}, +Cell[BoxData["3.7408156852680525`"], "Output", + CellChangeTimes->{3.9913299197036095`*^9, 3.9942581350605803`*^9}, CellLabel-> - "Out[188]=",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] + "Out[112]=",ExpressionUUID->"7303c46b-8667-4471-8fa1-b6c085bca58f"] }, Open ]], Cell[CellGroupData[{ @@ -9566,12 +9702,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[189]:=",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], + "In[113]:=",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.9913299197165985`*^9}, +Cell[BoxData["0.08888024365939537`"], "Output", + CellChangeTimes->{3.9913299197165985`*^9, 3.994258135078747*^9}, CellLabel-> - "Out[189]=",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] + "Out[113]=",ExpressionUUID->"2f683809-96e3-4158-bd59-98b2f32cabcd"] }, Open ]], Cell[CellGroupData[{ @@ -9661,12 +9797,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[190]:=",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], + "In[114]:=",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.991329919739599*^9}, +Cell[BoxData["0.9111197563406046`"], "Output", + CellChangeTimes->{3.991329919739599*^9, 3.994258135098969*^9}, CellLabel-> - "Out[190]=",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] + "Out[114]=",ExpressionUUID->"73440ec4-5fb1-4a9d-8573-1538884cbd71"] }, Open ]], Cell[CellGroupData[{ @@ -9789,12 +9925,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[191]:=",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], + "In[115]:=",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913299197646008`*^9}, +Cell[BoxData["0.0809805459464419`"], "Output", + CellChangeTimes->{3.9913299197646008`*^9, 3.994258135116912*^9}, CellLabel-> - "Out[191]=",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] + "Out[115]=",ExpressionUUID->"31dd199b-c75a-417d-9397-ee8949c8a0c8"] }, Open ]], Cell[CellGroupData[{ @@ -9809,30 +9945,33 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -9856,68 +9995,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991848964116934*^9},ExpressionUUID->"220bdeed-2e17-e94c-a7b0-\ -3e066daf15d7"], + CellChangeTimes->{3.991848964116934*^9}, + CellLabel-> + "In[116]:=",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 192, - 145, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329919788595*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.381306878788775`*^-219\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 116, 33, + 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329919788595*^9, 3.994258135138379*^9}, CellLabel-> "During evaluation of \ -In[192]:=",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], +In[116]:=",ExpressionUUID->"7a92ed68-59e2-4eb2-a9af-043a75ba6e80"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 192, - 146, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299197985992`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.6644176381063034`*^-225\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 116, 34, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329919788595*^9, 3.9942581351479053`*^9}, CellLabel-> "During evaluation of \ -In[192]:=",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], +In[116]:=",ExpressionUUID->"d606b4a6-f1c2-44b3-9b86-ebd36c0492c4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 192, 147, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299198065968`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.5750874940806085`*^-230\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 116, 35, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329919788595*^9, 3.994258135156054*^9}, CellLabel-> "During evaluation of \ -In[192]:=",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], +In[116]:=",ExpressionUUID->"c4ae90eb-573f-4fca-be37-35f364f5c381"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 192, 148, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329919814598*^9}, +during this calculation.\"", 2, 116, 36, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329919788595*^9, 3.994258135164835*^9}, CellLabel-> "During evaluation of \ -In[192]:=",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], +In[116]:=",ExpressionUUID->"2aef2899-8e10-4342-9cce-8644655d8b39"], -Cell[BoxData["4.190766798679958`"], "Output", - CellChangeTimes->{3.991329923627493*^9}, +Cell[BoxData["10.503087260030348`"], "Output", + CellChangeTimes->{3.991329923627493*^9, 3.994258143505616*^9}, CellLabel-> - "Out[192]=",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] + "Out[116]=",ExpressionUUID->"0c72f292-528e-4854-871b-25f9806e5991"] }, Open ]], Cell[CellGroupData[{ @@ -9932,30 +10076,33 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -9979,68 +10126,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918489685110855`*^9},ExpressionUUID->"b8791a07-33fe-8c4f-9c59-\ -dd23af9a4471"], + CellChangeTimes->{3.9918489685110855`*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 193, - 149, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299236609*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.381306878788775`*^-219\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 117, 37, + 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299236609*^9, 3.994258143561516*^9}, CellLabel-> "During evaluation of \ -In[193]:=",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], +In[117]:=",ExpressionUUID->"e2dc4cdf-ca77-4068-8ca3-0f11ce2c7d20"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 193, - 150, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329923669897*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.6644176381063034`*^-225\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 117, 38, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299236609*^9, 3.994258143570685*^9}, CellLabel-> "During evaluation of \ -In[193]:=",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], +In[117]:=",ExpressionUUID->"e2fc41e6-093c-4e02-91b0-aa83d3d09edd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 193, 151, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299236779003`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.5750874940806085`*^-230\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 117, 39, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299236609*^9, 3.9942581435796003`*^9}, CellLabel-> "During evaluation of \ -In[193]:=",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], +In[117]:=",ExpressionUUID->"baf1cf06-add8-4f9c-9e61-e3fbaa55a222"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 193, 152, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299236858997`*^9}, +during this calculation.\"", 2, 117, 40, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299236609*^9, 3.994258143587552*^9}, CellLabel-> "During evaluation of \ -In[193]:=",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], +In[117]:=",ExpressionUUID->"373911d9-9325-4f21-bd54-96a2f2655034"], -Cell[BoxData["7.439513700547696`"], "Output", - CellChangeTimes->{3.9913299274564743`*^9}, +Cell[BoxData["3.7408156852680516`"], "Output", + CellChangeTimes->{3.9913299274564743`*^9, 3.994258151785246*^9}, CellLabel-> - "Out[193]=",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] + "Out[117]=",ExpressionUUID->"06aa70c2-666a-4fc2-9b09-10dab407d5bc"] }, Open ]], Cell[CellGroupData[{ @@ -10098,93 +10250,95 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991848973885317*^9},ExpressionUUID->"3fe6e7f1-b44a-234f-af77-\ -3cf1fdaf28d9"], + CellChangeTimes->{3.991848973885317*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R -gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj -6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 -eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx -TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY -kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 -AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM -TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ -D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez -H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ -bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 -lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ -rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx -4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW -PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi -4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs -Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw -wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L -k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 -IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB -vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 -Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r -8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 -/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn -edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb -93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG -o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo -GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV -lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he -nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X -vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ -ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN -G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz -Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w -2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF -j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 -ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g -jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz -AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY -1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ -R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n -6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR -Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 -yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA -Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU -9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 -32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn -Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia -EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu -PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG -W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ -eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb -Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU -YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ -t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben -tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 -Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh -fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 -vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz -sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ -3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 -ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa -b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO -dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL -SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR -jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX -XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz -lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy -r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc -IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH -91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 -uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga -BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 -yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl -TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== - + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk0VVscB3BDpAxlDimZLym5CMn+mZMxSkTiDseQEJLMvaLBECppJCTJ +GJEhqTxFildKmZWhXONJpAxv++Ossz5rr/09v98+e591ttD87ZkcbGxs4/ha +uR9/t02psu2dQdDW+40h+SxkMJGjRTMpQFe3LX1dcX+G9hV5k1qkacaucxLb +jvGWm4/6L4LjJf+uuDQ0+iWXSQt6XsCbEIp9oXFDfXT+f+jgjFD8KeyqtuN3 +FjQ+Ikejxhdh2KOdzRGnaj4jzmQFagS25JCcy6xxN5L/qN4diW05GaEb1NKH +Eni+P43GrlsY5Q3NH0BBmy0/n8b+dFo8vMLvG9ISOKR6FnuC22R0RmMI3Xkl +UhmHzZ0Q4EydG0ZBu8PDL2BvErz9+njNdyTunhiagG0jNZs7YTyG9nuWb7yM +TWTKiqnxTKAcxaaXadjRCraxR1smEceeC9k3sD+Lt+8Izp9GFU68/NnYjEM+ +3pcTSPR6w9u0+9hTt9juPvL7iTS6dZ0LsHlk1dZPa/xCruwi5yuwrzBemq8X +nUUPKadnarBl7jtHb5+bRdNf068/x9bZGjdxrOY3+nHuVeJbbC/tvpZR4wVE +aZfe9B17JvTEqrWKi6ivoct2EjumhlefwrOE4hSMq2ex00HnoWfLMkpM4tfl +fojru/faJDCfHcJlEnqVsPMbL/efluKAu9XJH9Wxp0bcIlISOGDBYTeXHnaE +yq+yEj9OkChPFLDGvlK8RW5SgwuuU7maTmB3to3VLWVzQfAX49gYbBmy8pCA +KDdUPVUOi8cu0LRJVZvjht8Wg/xZ2A1VYey+NTzw20Oq5z/sXy8/9H035oMp +dmtJ/QIWErLiWx9exwcR9c1pltjq7SbAr8sPEW86Drhg+ww+ztyxTQAU5e/c +DMcO4GhR3823Htp52kyfYQ/JFk3HzgqCxi6GiEMhXh+ieU0rVQhk12VVEdgc +D4e3bDguBCKdnnfDsGWom+3zWUIgbnxBJxv7kHHyo3f9wrDztEjsHHYrPTBI +/I0ofP/ZmlZQxEK995Pi3XnEwCXKktGAPcbKz35gKgbe46bB3dhrg7992FUv +BiZz5S78xSxkcna/pvtjcfjZ4r0nELs6R/tXXoYERDlcT99TwkI5Q39C9IKl +wcxu7TqlRyy058C53qBCaWhsM+IxxR5rEDYrHJaGkBPuu+jYmjlbRWWcN8Gg +zx7bTOwGmlsZl8FmSAiqVJMuYyFysv/k9zMy0LQc0LClnIWEj5mUl1nLgo8K +537HChYazlnrZecjC7kGx8+HYz/pbpMaj5OFNd0PZzOxXa0On1Gsl4Vrxmdi +xrBzVEPsr2vIwd3gLIu4Svz80ftTUeLywHLoKml4wsLnhFdt74AC7Lhc0eJb +w0Io5IDGwUUFEPa2c07HVonN2MmQUATqBhfpBmy2bKpR1D5F0JF5ZrmxloUK +e10OPnquCML0XMNWbG7HgtOSWUpQ9kkwBdXh+kysP43SKHA1W6LS4jkLZTtc +65qLosBSf/v2COwk2kD/qpsUoAX29RVhM2JOsDZ9oIDymt4hkRcsJFh7m83B +WAXEuD0ufMP2oU6o1MipgsfIKbX4BhaSkr0UHT+4FVzh0gDnaxaqvThDmedQ +g9g55hYjbNefzu3EFjX4TJXPisG+0yBPMXJTA94bdsQStqxn9fvfHWqgbao3 +v9CE+y0YUiDebAN3g3Zz7hYWkpbaRMg4q0PbrS/hFm0stPVeMN9fpAGi1PxP +KV9YiMY480vNRgPa2ZmrurDT5VJ73V014OlJAx/5ThbizCouaQzVACUvs95K +7M47o/tTSzVg7/FTngNd+Hua7n6bIkeFSyN9Cwa9+P3GW21z4tYEs5BFRflv +LHQ3UN7ucYsWhCfN8KeNs1BbCNp59p4usJcOKGquHkNb3D7aHPbdDQytDyZ7 +5McQc7miSPoUgLRpKK3XaAyJs56sFqcZgfY/ZGG95xgKpup3p6qYgJXpR7Hb +iWOINr7wWnjUFPwn5yX7H4+hQqOg1Rmt5lDKurpjeXAM5cz4PC+4YgGRsze+ +SoiMo9+GG942RFuC2K3L+if3jqMeNs7pAQ9ruP8j25n/zDjy2+iffFrOFva4 +Sd9IqR5HRd6v66/G2oFifMP2jPlxFPZTYk7Vex9kx/h2/NWeQL/2mjm+OmIP +ghL1pqsiJpCuS4rh0D4HOFLgIK/0YgK9l7jt00DdDzG5tmYRXJNIMvdMbZ7y +AShoHmncZzeJnvSrWNnwO4LVmXWrH16bRJvapzxDxh0hTH/r/Re9k4h6NaUg +u/8gUCoexQSITaHbq35uS33pBBxXWxO1d02hCsPtnbFVzqByeWsi0KdQ+s6L +ggv5h+DP26ftyRenUGvXvThqggskvlvyEiqeQo+tb8kHxLjC6gL5E5afptD0 +MQc2P8ZhyHybcZn2Zwr9MqN4TRi7Qb5zlZCk9DTKG//yO0j7CHTnnfzy0XAa +Od29Rz/M5w53AhsUeOnTqOyR5RHOc+6gHQapBbHTSFfq/fyFeXdwJ/IWz+dM +I7l+z87/vD2AFfAqbNfzaTTIe9T21jcPoPSxffLtnUZtSTZ08wM0yI350VM0 +N42uhGbwnmijQU5TiWf5ehLV1i3P0y3okLVET36iSKJ1rnCOWk0Hi6FS0w4d +EsmIvGrdWEuHt59yzsvokki9xXoDdx0d6lSP3vbGttd3efD5OR2039no/8W+ +sjHkTWQTHfLKI2w27iKRZM/Dda8/06G/+Evtgd0kkncTT3edw/P5umLvGZJI +130iL1aTAZPmOxcqLEiUe30qyEabAXxVRW5T2CIfSANxHQYUe8lco+wl0YTp +XHveLgY4bO28cBM7R5WNvcWIAaXvFk9EWpJIYE7QWWgfA9KyX9F1rUk0mKi1 +JuMYA8JLD/im2JFo36ud7Z7+DKiqvvHPv9h1bHoZ6scZMO6x2W8e+3qQgdaL +YAZscPyvwX0fiWyczT2Gwhkg4Lo7QM2eRFXyzlWqFxmw5BlQXedAoqSaCO8n +uQxYPrs4W+9IomMa13RD8xjAMaRcP4Ft9aB0jU4+A8qZN49sPEiitdeGH1QW +MqBv2mjLSezYQLvRinIG+OtJFKs4kSiCIn/08QsGKLl8nrrgTCKfa298H/Uy +4EyXyriyK4ksBIb1A/sZYP/eK2QftnIsG7/GVwZcUDry8RT2cKBWYekQA85u +Z4g0Y3vYZIyXjDEgM9glzeswiZy4gvyK/zCA7Z1P7m03EpkHSQYUiDGhttW6 +a8SdRC8y4vambmDCBK1+nYAHifRbSPlQSSaM/P4iqImtrvDmi/EmJlhfmoyK +xpboCDfuUmACu6fcgjCNRCy9HrG1Wkywf1AVRaWT6BJH5lNPByZozBrEWTFx +/9v50q0PMEGMj83TF/usS2gg9SATbrT0iiRgh5bbKS0fYkJ97VBHM7YHwZ6S +RmNC9NPCP6YEiajNNMa/x5lAedBTrOFJoo4UBV65ZCboCdc9G/IiURHi9/qe +wgSBu4cuLmKfHZ9pKLzMhKNdZsqi3iTSsGiI0rnGhDzNVb3G2ElsdNL6DhPe +32xRz8A288/8ElrAhK6fwcetfUgkLX1e26CICeKmw/407Jlm/8ucJUzYNhJj +eBI7SxFZJ5Xh/rZR3DKxF3t66rOrmbDblCdyCrvcSirv3WvcD8jbnj9Kovg/ +HFxXmpnAClSOvoFNyxv1cG5hghxd858C7PWrqqUGW5mg/tyFvQ3bt8bp0vwn +JjxyLvsm4ksiOZW0EPkhJlxfHNNOw/7TEfnhxzATOH8mpd3Dbotlqhd/Z0L+ +N6mmcuyoAc1R3TEmbNw+lfseuzP9w2Hbn0z49OqAKd8xEqWuFjQNYydAuvQZ +70nsWrLHJZiTgMCLinyx2CM9+YF+XASseW/YnoqtX26SSVtDQKVlUk0h9rB7 +6N+9ggQsjFsN92OvtzIVMhUm4OgaBflx7F07hShIlIDutGzKPHYyf4EjVYKA +bdcT49f74fHqvlKpLQRc6v6Rr49N3Ct4LSpHgOFMk4I5dnLyqb51CgQ4Mk28 +9mEPE8L8qygEiHdwmDBXxoXNvcbUCfwPedrxInb1knD0sAYBk4rrBC5jD/3o +v9qvScCSrlriTWy9+rCX7ToEnDIV/foQe9C3aNNTICD4Q8hwE7aAU7hWpREB +Otc8O9uwdY33WJWaEMC7o/9qB3aSxNdT9/YQ4GHLpA9iP1lVnJyxlwBVqYAT +o9jfJsPvX7ciIM5y2WYKW6dR9GOiHQGLNfed/mLTSr+yztnj+mOenWfzJ1Hi +rWKOf/YT8LzEKYYL+2ughXqIEwEuZXyNAtj8bmLmAYcI4DBTFBHG1rH4dtjH +lYCGxjqK+Mr8zZHxbu4EZHr6PNyE/WTt3iwnGgEmsRHisit5v8Sq7BkECCXw +Wiqs5A18a7UiCGjlFzdTXslrKRk28yLgc/YdHlVsWmXkIvgQoDx5N1VtJT9r +r8guXwJs0mUGt6/kJ4qravkREGorubhjJT900HB7AAHeLUk9VGw+RqkTJZCA +2HeRsVrYO22j/OWCcb0bR2a0V/L1LOOkQwioiW1W1cFOUNhwWzyUgPQ+JRVd +7Ir1Q2WCYQTI8SxPrnjgb2kzbwQBLwZtI/VW8keiBrii8P6kSb5fsfZ7y9/L +0QQ0nXCbWPH/TBUaow== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -10198,105 +10352,106 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R -gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj -6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 -eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx -TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY -kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 -AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM -TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ -D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez -H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ -bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 -lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ -rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx -4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW -PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi -4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs -Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw -wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L -k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 -IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB -vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 -Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r -8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 -/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn -edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb -93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG -o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo -GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV -lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he -nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X -vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ -ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN -G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz -Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w -2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF -j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 -ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g -jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz -AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY -1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ -R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n -6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR -Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 -yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA -Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU -9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 -32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn -Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia -EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu -PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG -W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ -eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb -Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU -YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ -t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben -tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 -Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh -fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 -vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz -sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ -3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 -ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa -b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO -dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL -SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR -jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX -XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz -lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy -r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc -IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH -91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 -uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga -BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 -yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl -TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== - +1:eJwV1nk0VVscB3BDpAxlDimZLym5CMn+mZMxSkTiDseQEJLMvaLBECppJCTJ +GJEhqTxFildKmZWhXONJpAxv++Ossz5rr/09v98+e591ttD87ZkcbGxs4/ha +uR9/t02psu2dQdDW+40h+SxkMJGjRTMpQFe3LX1dcX+G9hV5k1qkacaucxLb +jvGWm4/6L4LjJf+uuDQ0+iWXSQt6XsCbEIp9oXFDfXT+f+jgjFD8KeyqtuN3 +FjQ+Ikejxhdh2KOdzRGnaj4jzmQFagS25JCcy6xxN5L/qN4diW05GaEb1NKH +Eni+P43GrlsY5Q3NH0BBmy0/n8b+dFo8vMLvG9ISOKR6FnuC22R0RmMI3Xkl +UhmHzZ0Q4EydG0ZBu8PDL2BvErz9+njNdyTunhiagG0jNZs7YTyG9nuWb7yM +TWTKiqnxTKAcxaaXadjRCraxR1smEceeC9k3sD+Lt+8Izp9GFU68/NnYjEM+ +3pcTSPR6w9u0+9hTt9juPvL7iTS6dZ0LsHlk1dZPa/xCruwi5yuwrzBemq8X +nUUPKadnarBl7jtHb5+bRdNf068/x9bZGjdxrOY3+nHuVeJbbC/tvpZR4wVE +aZfe9B17JvTEqrWKi6ivoct2EjumhlefwrOE4hSMq2ex00HnoWfLMkpM4tfl +fojru/faJDCfHcJlEnqVsPMbL/efluKAu9XJH9Wxp0bcIlISOGDBYTeXHnaE +yq+yEj9OkChPFLDGvlK8RW5SgwuuU7maTmB3to3VLWVzQfAX49gYbBmy8pCA +KDdUPVUOi8cu0LRJVZvjht8Wg/xZ2A1VYey+NTzw20Oq5z/sXy8/9H035oMp +dmtJ/QIWErLiWx9exwcR9c1pltjq7SbAr8sPEW86Drhg+ww+ztyxTQAU5e/c +DMcO4GhR3823Htp52kyfYQ/JFk3HzgqCxi6GiEMhXh+ieU0rVQhk12VVEdgc +D4e3bDguBCKdnnfDsGWom+3zWUIgbnxBJxv7kHHyo3f9wrDztEjsHHYrPTBI +/I0ofP/ZmlZQxEK995Pi3XnEwCXKktGAPcbKz35gKgbe46bB3dhrg7992FUv +BiZz5S78xSxkcna/pvtjcfjZ4r0nELs6R/tXXoYERDlcT99TwkI5Q39C9IKl +wcxu7TqlRyy058C53qBCaWhsM+IxxR5rEDYrHJaGkBPuu+jYmjlbRWWcN8Gg +zx7bTOwGmlsZl8FmSAiqVJMuYyFysv/k9zMy0LQc0LClnIWEj5mUl1nLgo8K +537HChYazlnrZecjC7kGx8+HYz/pbpMaj5OFNd0PZzOxXa0On1Gsl4Vrxmdi +xrBzVEPsr2vIwd3gLIu4Svz80ftTUeLywHLoKml4wsLnhFdt74AC7Lhc0eJb +w0Io5IDGwUUFEPa2c07HVonN2MmQUATqBhfpBmy2bKpR1D5F0JF5ZrmxloUK +e10OPnquCML0XMNWbG7HgtOSWUpQ9kkwBdXh+kysP43SKHA1W6LS4jkLZTtc +65qLosBSf/v2COwk2kD/qpsUoAX29RVhM2JOsDZ9oIDymt4hkRcsJFh7m83B +WAXEuD0ufMP2oU6o1MipgsfIKbX4BhaSkr0UHT+4FVzh0gDnaxaqvThDmedQ +g9g55hYjbNefzu3EFjX4TJXPisG+0yBPMXJTA94bdsQStqxn9fvfHWqgbao3 +v9CE+y0YUiDebAN3g3Zz7hYWkpbaRMg4q0PbrS/hFm0stPVeMN9fpAGi1PxP +KV9YiMY480vNRgPa2ZmrurDT5VJ73V014OlJAx/5ThbizCouaQzVACUvs95K +7M47o/tTSzVg7/FTngNd+Hua7n6bIkeFSyN9Cwa9+P3GW21z4tYEs5BFRflv +LHQ3UN7ucYsWhCfN8KeNs1BbCNp59p4usJcOKGquHkNb3D7aHPbdDQytDyZ7 +5McQc7miSPoUgLRpKK3XaAyJs56sFqcZgfY/ZGG95xgKpup3p6qYgJXpR7Hb +iWOINr7wWnjUFPwn5yX7H4+hQqOg1Rmt5lDKurpjeXAM5cz4PC+4YgGRsze+ +SoiMo9+GG942RFuC2K3L+if3jqMeNs7pAQ9ruP8j25n/zDjy2+iffFrOFva4 +Sd9IqR5HRd6v66/G2oFifMP2jPlxFPZTYk7Vex9kx/h2/NWeQL/2mjm+OmIP +ghL1pqsiJpCuS4rh0D4HOFLgIK/0YgK9l7jt00DdDzG5tmYRXJNIMvdMbZ7y +AShoHmncZzeJnvSrWNnwO4LVmXWrH16bRJvapzxDxh0hTH/r/Re9k4h6NaUg +u/8gUCoexQSITaHbq35uS33pBBxXWxO1d02hCsPtnbFVzqByeWsi0KdQ+s6L +ggv5h+DP26ftyRenUGvXvThqggskvlvyEiqeQo+tb8kHxLjC6gL5E5afptD0 +MQc2P8ZhyHybcZn2Zwr9MqN4TRi7Qb5zlZCk9DTKG//yO0j7CHTnnfzy0XAa +Od29Rz/M5w53AhsUeOnTqOyR5RHOc+6gHQapBbHTSFfq/fyFeXdwJ/IWz+dM +I7l+z87/vD2AFfAqbNfzaTTIe9T21jcPoPSxffLtnUZtSTZ08wM0yI350VM0 +N42uhGbwnmijQU5TiWf5ehLV1i3P0y3okLVET36iSKJ1rnCOWk0Hi6FS0w4d +EsmIvGrdWEuHt59yzsvokki9xXoDdx0d6lSP3vbGttd3efD5OR2039no/8W+ +sjHkTWQTHfLKI2w27iKRZM/Dda8/06G/+Evtgd0kkncTT3edw/P5umLvGZJI +130iL1aTAZPmOxcqLEiUe30qyEabAXxVRW5T2CIfSANxHQYUe8lco+wl0YTp +XHveLgY4bO28cBM7R5WNvcWIAaXvFk9EWpJIYE7QWWgfA9KyX9F1rUk0mKi1 +JuMYA8JLD/im2JFo36ud7Z7+DKiqvvHPv9h1bHoZ6scZMO6x2W8e+3qQgdaL +YAZscPyvwX0fiWyczT2Gwhkg4Lo7QM2eRFXyzlWqFxmw5BlQXedAoqSaCO8n +uQxYPrs4W+9IomMa13RD8xjAMaRcP4Ft9aB0jU4+A8qZN49sPEiitdeGH1QW +MqBv2mjLSezYQLvRinIG+OtJFKs4kSiCIn/08QsGKLl8nrrgTCKfa298H/Uy +4EyXyriyK4ksBIb1A/sZYP/eK2QftnIsG7/GVwZcUDry8RT2cKBWYekQA85u +Z4g0Y3vYZIyXjDEgM9glzeswiZy4gvyK/zCA7Z1P7m03EpkHSQYUiDGhttW6 +a8SdRC8y4vambmDCBK1+nYAHifRbSPlQSSaM/P4iqImtrvDmi/EmJlhfmoyK +xpboCDfuUmACu6fcgjCNRCy9HrG1Wkywf1AVRaWT6BJH5lNPByZozBrEWTFx +/9v50q0PMEGMj83TF/usS2gg9SATbrT0iiRgh5bbKS0fYkJ97VBHM7YHwZ6S +RmNC9NPCP6YEiajNNMa/x5lAedBTrOFJoo4UBV65ZCboCdc9G/IiURHi9/qe +wgSBu4cuLmKfHZ9pKLzMhKNdZsqi3iTSsGiI0rnGhDzNVb3G2ElsdNL6DhPe +32xRz8A288/8ElrAhK6fwcetfUgkLX1e26CICeKmw/407Jlm/8ucJUzYNhJj +eBI7SxFZJ5Xh/rZR3DKxF3t66rOrmbDblCdyCrvcSirv3WvcD8jbnj9Kovg/ +HFxXmpnAClSOvoFNyxv1cG5hghxd858C7PWrqqUGW5mg/tyFvQ3bt8bp0vwn +JjxyLvsm4ksiOZW0EPkhJlxfHNNOw/7TEfnhxzATOH8mpd3Dbotlqhd/Z0L+ +N6mmcuyoAc1R3TEmbNw+lfseuzP9w2Hbn0z49OqAKd8xEqWuFjQNYydAuvQZ +70nsWrLHJZiTgMCLinyx2CM9+YF+XASseW/YnoqtX26SSVtDQKVlUk0h9rB7 +6N+9ggQsjFsN92OvtzIVMhUm4OgaBflx7F07hShIlIDutGzKPHYyf4EjVYKA +bdcT49f74fHqvlKpLQRc6v6Rr49N3Ct4LSpHgOFMk4I5dnLyqb51CgQ4Mk28 +9mEPE8L8qygEiHdwmDBXxoXNvcbUCfwPedrxInb1knD0sAYBk4rrBC5jD/3o +v9qvScCSrlriTWy9+rCX7ToEnDIV/foQe9C3aNNTICD4Q8hwE7aAU7hWpREB +Otc8O9uwdY33WJWaEMC7o/9qB3aSxNdT9/YQ4GHLpA9iP1lVnJyxlwBVqYAT +o9jfJsPvX7ciIM5y2WYKW6dR9GOiHQGLNfed/mLTSr+yztnj+mOenWfzJ1Hi +rWKOf/YT8LzEKYYL+2ughXqIEwEuZXyNAtj8bmLmAYcI4DBTFBHG1rH4dtjH +lYCGxjqK+Mr8zZHxbu4EZHr6PNyE/WTt3iwnGgEmsRHisit5v8Sq7BkECCXw +Wiqs5A18a7UiCGjlFzdTXslrKRk28yLgc/YdHlVsWmXkIvgQoDx5N1VtJT9r +r8guXwJs0mUGt6/kJ4qravkREGorubhjJT900HB7AAHeLUk9VGw+RqkTJZCA +2HeRsVrYO22j/OWCcb0bR2a0V/L1LOOkQwioiW1W1cFOUNhwWzyUgPQ+JRVd +7Ir1Q2WCYQTI8SxPrnjgb2kzbwQBLwZtI/VW8keiBrii8P6kSb5fsfZ7y9/L +0QQ0nXCbWPH/TBUaow== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5311368545847401, - 1.7610246145622632`}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5311368545847414}, + "PlotRange" -> {{0, 180}, {0.8645585899297558, 1.152155810479018}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8645585899297576}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -10308,21 +10463,20 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5311368545847401, - 1.7610246145622632`}}, + "PlotRange" -> {{0, 180}, {0.8645585899297558, 1.152155810479018}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5311368545847414}, + "AxesOrigin" -> {0, 0.8645585899297576}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10336,103 +10490,105 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R -gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj -6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 -eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx -TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY -kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 -AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM -TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ -D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez -H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ -bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 -lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ -rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx -4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW -PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi -4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs -Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw -wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L -k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 -IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB -vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 -Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r -8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 -/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn -edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb -93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG -o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo -GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV -lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he -nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X -vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ -ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN -G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz -Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w -2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF -j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 -ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g -jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz -AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY -1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ -R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n -6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR -Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 -yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA -Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU -9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 -32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn -Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia -EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu -PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG -W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ -eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb -Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU -YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ -t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben -tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 -Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh -fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 -vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz -sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ -3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 -ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa -b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO -dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL -SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR -jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX -XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz -lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy -r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc -IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH -91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 -uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga -BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 -yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl -TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== - +1:eJwV1nk0VVscB3BDpAxlDimZLym5CMn+mZMxSkTiDseQEJLMvaLBECppJCTJ +GJEhqTxFildKmZWhXONJpAxv++Ossz5rr/09v98+e591ttD87ZkcbGxs4/ha +uR9/t02psu2dQdDW+40h+SxkMJGjRTMpQFe3LX1dcX+G9hV5k1qkacaucxLb +jvGWm4/6L4LjJf+uuDQ0+iWXSQt6XsCbEIp9oXFDfXT+f+jgjFD8KeyqtuN3 +FjQ+Ikejxhdh2KOdzRGnaj4jzmQFagS25JCcy6xxN5L/qN4diW05GaEb1NKH +Eni+P43GrlsY5Q3NH0BBmy0/n8b+dFo8vMLvG9ISOKR6FnuC22R0RmMI3Xkl +UhmHzZ0Q4EydG0ZBu8PDL2BvErz9+njNdyTunhiagG0jNZs7YTyG9nuWb7yM +TWTKiqnxTKAcxaaXadjRCraxR1smEceeC9k3sD+Lt+8Izp9GFU68/NnYjEM+ +3pcTSPR6w9u0+9hTt9juPvL7iTS6dZ0LsHlk1dZPa/xCruwi5yuwrzBemq8X +nUUPKadnarBl7jtHb5+bRdNf068/x9bZGjdxrOY3+nHuVeJbbC/tvpZR4wVE +aZfe9B17JvTEqrWKi6ivoct2EjumhlefwrOE4hSMq2ex00HnoWfLMkpM4tfl +fojru/faJDCfHcJlEnqVsPMbL/efluKAu9XJH9Wxp0bcIlISOGDBYTeXHnaE +yq+yEj9OkChPFLDGvlK8RW5SgwuuU7maTmB3to3VLWVzQfAX49gYbBmy8pCA +KDdUPVUOi8cu0LRJVZvjht8Wg/xZ2A1VYey+NTzw20Oq5z/sXy8/9H035oMp +dmtJ/QIWErLiWx9exwcR9c1pltjq7SbAr8sPEW86Drhg+ww+ztyxTQAU5e/c +DMcO4GhR3823Htp52kyfYQ/JFk3HzgqCxi6GiEMhXh+ieU0rVQhk12VVEdgc +D4e3bDguBCKdnnfDsGWom+3zWUIgbnxBJxv7kHHyo3f9wrDztEjsHHYrPTBI +/I0ofP/ZmlZQxEK995Pi3XnEwCXKktGAPcbKz35gKgbe46bB3dhrg7992FUv +BiZz5S78xSxkcna/pvtjcfjZ4r0nELs6R/tXXoYERDlcT99TwkI5Q39C9IKl +wcxu7TqlRyy058C53qBCaWhsM+IxxR5rEDYrHJaGkBPuu+jYmjlbRWWcN8Gg +zx7bTOwGmlsZl8FmSAiqVJMuYyFysv/k9zMy0LQc0LClnIWEj5mUl1nLgo8K +537HChYazlnrZecjC7kGx8+HYz/pbpMaj5OFNd0PZzOxXa0On1Gsl4Vrxmdi +xrBzVEPsr2vIwd3gLIu4Svz80ftTUeLywHLoKml4wsLnhFdt74AC7Lhc0eJb +w0Io5IDGwUUFEPa2c07HVonN2MmQUATqBhfpBmy2bKpR1D5F0JF5ZrmxloUK +e10OPnquCML0XMNWbG7HgtOSWUpQ9kkwBdXh+kysP43SKHA1W6LS4jkLZTtc +65qLosBSf/v2COwk2kD/qpsUoAX29RVhM2JOsDZ9oIDymt4hkRcsJFh7m83B +WAXEuD0ufMP2oU6o1MipgsfIKbX4BhaSkr0UHT+4FVzh0gDnaxaqvThDmedQ +g9g55hYjbNefzu3EFjX4TJXPisG+0yBPMXJTA94bdsQStqxn9fvfHWqgbao3 +v9CE+y0YUiDebAN3g3Zz7hYWkpbaRMg4q0PbrS/hFm0stPVeMN9fpAGi1PxP +KV9YiMY480vNRgPa2ZmrurDT5VJ73V014OlJAx/5ThbizCouaQzVACUvs95K +7M47o/tTSzVg7/FTngNd+Hua7n6bIkeFSyN9Cwa9+P3GW21z4tYEs5BFRflv +LHQ3UN7ucYsWhCfN8KeNs1BbCNp59p4usJcOKGquHkNb3D7aHPbdDQytDyZ7 +5McQc7miSPoUgLRpKK3XaAyJs56sFqcZgfY/ZGG95xgKpup3p6qYgJXpR7Hb +iWOINr7wWnjUFPwn5yX7H4+hQqOg1Rmt5lDKurpjeXAM5cz4PC+4YgGRsze+ +SoiMo9+GG942RFuC2K3L+if3jqMeNs7pAQ9ruP8j25n/zDjy2+iffFrOFva4 +Sd9IqR5HRd6v66/G2oFifMP2jPlxFPZTYk7Vex9kx/h2/NWeQL/2mjm+OmIP +ghL1pqsiJpCuS4rh0D4HOFLgIK/0YgK9l7jt00DdDzG5tmYRXJNIMvdMbZ7y +AShoHmncZzeJnvSrWNnwO4LVmXWrH16bRJvapzxDxh0hTH/r/Re9k4h6NaUg +u/8gUCoexQSITaHbq35uS33pBBxXWxO1d02hCsPtnbFVzqByeWsi0KdQ+s6L +ggv5h+DP26ftyRenUGvXvThqggskvlvyEiqeQo+tb8kHxLjC6gL5E5afptD0 +MQc2P8ZhyHybcZn2Zwr9MqN4TRi7Qb5zlZCk9DTKG//yO0j7CHTnnfzy0XAa +Od29Rz/M5w53AhsUeOnTqOyR5RHOc+6gHQapBbHTSFfq/fyFeXdwJ/IWz+dM +I7l+z87/vD2AFfAqbNfzaTTIe9T21jcPoPSxffLtnUZtSTZ08wM0yI350VM0 +N42uhGbwnmijQU5TiWf5ehLV1i3P0y3okLVET36iSKJ1rnCOWk0Hi6FS0w4d +EsmIvGrdWEuHt59yzsvokki9xXoDdx0d6lSP3vbGttd3efD5OR2039no/8W+ +sjHkTWQTHfLKI2w27iKRZM/Dda8/06G/+Evtgd0kkncTT3edw/P5umLvGZJI +130iL1aTAZPmOxcqLEiUe30qyEabAXxVRW5T2CIfSANxHQYUe8lco+wl0YTp +XHveLgY4bO28cBM7R5WNvcWIAaXvFk9EWpJIYE7QWWgfA9KyX9F1rUk0mKi1 +JuMYA8JLD/im2JFo36ud7Z7+DKiqvvHPv9h1bHoZ6scZMO6x2W8e+3qQgdaL +YAZscPyvwX0fiWyczT2Gwhkg4Lo7QM2eRFXyzlWqFxmw5BlQXedAoqSaCO8n +uQxYPrs4W+9IomMa13RD8xjAMaRcP4Ft9aB0jU4+A8qZN49sPEiitdeGH1QW +MqBv2mjLSezYQLvRinIG+OtJFKs4kSiCIn/08QsGKLl8nrrgTCKfa298H/Uy +4EyXyriyK4ksBIb1A/sZYP/eK2QftnIsG7/GVwZcUDry8RT2cKBWYekQA85u +Z4g0Y3vYZIyXjDEgM9glzeswiZy4gvyK/zCA7Z1P7m03EpkHSQYUiDGhttW6 +a8SdRC8y4vambmDCBK1+nYAHifRbSPlQSSaM/P4iqImtrvDmi/EmJlhfmoyK +xpboCDfuUmACu6fcgjCNRCy9HrG1Wkywf1AVRaWT6BJH5lNPByZozBrEWTFx +/9v50q0PMEGMj83TF/usS2gg9SATbrT0iiRgh5bbKS0fYkJ97VBHM7YHwZ6S +RmNC9NPCP6YEiajNNMa/x5lAedBTrOFJoo4UBV65ZCboCdc9G/IiURHi9/qe +wgSBu4cuLmKfHZ9pKLzMhKNdZsqi3iTSsGiI0rnGhDzNVb3G2ElsdNL6DhPe +32xRz8A288/8ElrAhK6fwcetfUgkLX1e26CICeKmw/407Jlm/8ucJUzYNhJj +eBI7SxFZJ5Xh/rZR3DKxF3t66rOrmbDblCdyCrvcSirv3WvcD8jbnj9Kovg/ +HFxXmpnAClSOvoFNyxv1cG5hghxd858C7PWrqqUGW5mg/tyFvQ3bt8bp0vwn +JjxyLvsm4ksiOZW0EPkhJlxfHNNOw/7TEfnhxzATOH8mpd3Dbotlqhd/Z0L+ +N6mmcuyoAc1R3TEmbNw+lfseuzP9w2Hbn0z49OqAKd8xEqWuFjQNYydAuvQZ +70nsWrLHJZiTgMCLinyx2CM9+YF+XASseW/YnoqtX26SSVtDQKVlUk0h9rB7 +6N+9ggQsjFsN92OvtzIVMhUm4OgaBflx7F07hShIlIDutGzKPHYyf4EjVYKA +bdcT49f74fHqvlKpLQRc6v6Rr49N3Ct4LSpHgOFMk4I5dnLyqb51CgQ4Mk28 +9mEPE8L8qygEiHdwmDBXxoXNvcbUCfwPedrxInb1knD0sAYBk4rrBC5jD/3o +v9qvScCSrlriTWy9+rCX7ToEnDIV/foQe9C3aNNTICD4Q8hwE7aAU7hWpREB +Otc8O9uwdY33WJWaEMC7o/9qB3aSxNdT9/YQ4GHLpA9iP1lVnJyxlwBVqYAT +o9jfJsPvX7ciIM5y2WYKW6dR9GOiHQGLNfed/mLTSr+yztnj+mOenWfzJ1Hi +rWKOf/YT8LzEKYYL+2ughXqIEwEuZXyNAtj8bmLmAYcI4DBTFBHG1rH4dtjH +lYCGxjqK+Mr8zZHxbu4EZHr6PNyE/WTt3iwnGgEmsRHisit5v8Sq7BkECCXw +Wiqs5A18a7UiCGjlFzdTXslrKRk28yLgc/YdHlVsWmXkIvgQoDx5N1VtJT9r +r8guXwJs0mUGt6/kJ4qravkREGorubhjJT900HB7AAHeLUk9VGw+RqkTJZCA +2HeRsVrYO22j/OWCcb0bR2a0V/L1LOOkQwioiW1W1cFOUNhwWzyUgPQ+JRVd +7Ir1Q2WCYQTI8SxPrnjgb2kzbwQBLwZtI/VW8keiBrii8P6kSb5fsfZ7y9/L +0QQ0nXCbWPH/TBUaow== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + "PlotRange" -> {{0, 180}, {0.8645585899297558, 1.152155810479018}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5311368545847414}, + "AxesOrigin" -> {0, 0.8645585899297576}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10442,7 +10598,8 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5311368545847414}, + AxesOrigin->{0, 0.8645585899297576}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -10470,7 +10627,8 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.8645585899297558, 1.152155810479018}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -10478,9 +10636,9 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913301734961166`*^9}, + CellChangeTimes->{3.9913301734961166`*^9, 3.994258755809469*^9}, CellLabel-> - "Out[194]=",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] + "Out[118]=",ExpressionUUID->"4fa3f7d6-eca1-42af-a3df-e634757eac99"] }, Open ]], Cell[CellGroupData[{ @@ -10495,30 +10653,33 @@ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -10543,213 +10704,169 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.991848978152012*^9, - 3.99184898469532*^9}},ExpressionUUID->"ab29778f-f183-804b-b871-\ -4070462057d7"], + CellChangeTimes->{{3.991848978152012*^9, 3.99184898469532*^9}}, + CellLabel-> + "In[119]:=",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.47138536392029`*^-264\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 195, - 153, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913301737143345`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.3669683469097787`*^-274\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 41, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913301737143345`*^9, 3.994258756006*^9}, CellLabel-> "During evaluation of \ -In[195]:=",ExpressionUUID->"abf9cb8a-fbbf-7a43-abcd-82efb32ab217"], +In[119]:=",ExpressionUUID->"86ad302c-dca7-47f8-8064-1a0cb3e21a3e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.656148098260251`*^-275\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.0020519884161484`*^-286\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 42, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913301737143345`*^9, 3.994258756015942*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"328b10c9-2bbc-4231-8af4-b394ed242c75"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.8075355561554014`*^-298\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 195, 154, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991330173723337*^9}, + 119, 43, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913301737143345`*^9, 3.9942587560243597`*^9}, CellLabel-> "During evaluation of \ -In[195]:=",ExpressionUUID->"8fcd13e3-81e0-3446-8882-6e42ca5c0bd1"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.85074473590452`*^-286\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 195, 155, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991330173731432*^9}, - CellLabel-> - "During evaluation of \ -In[195]:=",ExpressionUUID->"2c23ed60-41ee-5841-90ce-1d26cb02619d"], +In[119]:=",ExpressionUUID->"56b6efce-7838-4ee6-a540-44552ea3298a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 195, 156, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991330173739336*^9}, +during this calculation.\"", 2, 119, 44, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913301737143345`*^9, 3.9942587560323973`*^9}, CellLabel-> "During evaluation of \ -In[195]:=",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], +In[119]:=",ExpressionUUID->"d61cb326-8306-437b-ab27-6a635e7acc58"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR -klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW -lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv -TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc -73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw -RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X -gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 -Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI -PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy -W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx -SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 -V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY -9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw -N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM -vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz -tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 -GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT -0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA -udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF -4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y -Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a -eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl -p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN -TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC -SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw -e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu -HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn -Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l -RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X -udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 -DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM -JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC -PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC -eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn -wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY -XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK -jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb -0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 -GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 -fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN -PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T -MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt -LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH -TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY -565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U -PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F -yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx -3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP -19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 -9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp -zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 -VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP -Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio -aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX -UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo -Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p -ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP -DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo -pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg -5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg -2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW -9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr -BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm -QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF -m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i -o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v -Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH -IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw -kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j -lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO -UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 -w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI -bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc -A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa -l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA -2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug -gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN -VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv -5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l -9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv -r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H -I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp -s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx -NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c -ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc -iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z -pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz -oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv -HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd -Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR -/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI -LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC -eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R -EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM -IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d -JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp -CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe -n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ -QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX -4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM -J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx -baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X -/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby -clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ -SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg -dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs -YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa -LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva -gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i -1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N -ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz -7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ -f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa -wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom -XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ -e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk -XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM -TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD -i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 -LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM -kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj -qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B -uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF -nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 -dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ -kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q -8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 -FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR -CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW -io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU -qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X -B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ -0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r -W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ -zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs -HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB -IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg -FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE -fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC -cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh -DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 -RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d -z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM -rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH -L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VV0XAHDRIBUZ4ma4zr0uyRgyu9ZCGZNIFCoyJmMZSslQhtJgSBGZ +Qkpx70llKl4kFMlralJJ6i2UQiL1ne+v8/ye85xn7732Wnvtw9gX7ODNy8PD +Q1/Ew/P/58xQewsrpdgYruxXuFNtatybRztiMhgP3NT/tDxVGIBrnu6jDaZD +3tLEGkMVDYjYdmOAb7AIhMV4XhMqJiA8IZH+a4CEcK+bkzPK9vCmfmvw1EAT +XPhqLRCi7AHmrM+vJwd6QFbw5LTX+lD4NaCb+W1gGLpz5ozMGHHQbHat+FnR +D9iQNc4hqtJA+k3N6D6VBch8Y/q8ayYbxAL23lhmxodJhb4DfwcKIF3DvG7r +Dn7s+h2kOtVUDM+zNjROrl6F5mpyNnXSZZBSHPOUd60wdigdjj3rVg4SF96f +yrgiiu4NWl66RAXQlO+cnC0VxdAsU2Hu+gqQbEqM2c0RRTPJbYdYWhVA/7Y+ +fF2zKD6TKbGf3VwB8ltC3Os+iWLbak8nxwMVoLV4Qee9lhi+TeTGvqqqALsw +8RHNDjE0a/rbJW9WCUmOVsY9M2uQR3UyU0uBA5JVXZK8i8Tx4JjF+0glDlSI +Ov7UWCGONpmkS7UaB/p79nDSZMWxz0i2VVWXAyz7MKa9pTgGLlU++dmCA022 ++Uu7s8Xxn735luV+HFgwn+7qNJLAq7GL8iyucSC1NKp8wVwC5VXDjq8up75f +ypOsai+Bz7M5x/sqOLDloYDJWW8J1BIrfL39LgcumxG3t5yTQPtfB4SYDzmg +hzaXHr+RQKdDryQWD3PgkH7h3vZ4Gr5N+0K+pnHBukBwyuYMDQ+P5Bh8l+IC +c9mx5K5MGqbeadzNJ8uF7l4n7r9lNHSa2hQhJc8FtZCVfENdNJyxjfvK1ODC +p9LI0u+Sa5Fn1S2e85ZccBPbOi51ey3y0te1vgzjgtbRuri8+rVYpb2u8UQk +FwSGFcUZrWuxvCPLSTGKCzWVfKDwfC3u8NHb5RvDBXGbmtQNf9di2aLo6vpT +1PhxrI2bbSQxLVhnvuUKFzZ9nYsKei+JFkr3r29p5sIRywtK/4xJYnHcd4x+ +yIWKQtUXojOSOMs5lHPjERdoju76NfxSaC5lkDP/mAtj1Q9/8qlJoeYv9ScR +vVzIiE8Nyz4shWnmRet7RrgwvEYhqGWVNM594b9N5yNBIrhBRkJCGpXBWvPT +YhK2tO3s3E9I4xbF0uiKpSTcjUpREdKSxv2lS6I0BEg4/ebb5107pfH63QUR +YWESNK/X+X4tksbdGXlrdOkkxBnZe0jqyaBe7boVDB0SLPfkfdc1lcGyOePX +RbokCMZ+ObFjiwwuIvpnCX0ScpsTSlPdZXDZuU5BESMSqq1rvyw9JYP3TBRa +H5mQ8G2nXMSP5zJ4pCHtU9wWEu5FhSwTHpFBY1pddpstCcdz72epTcggS04s +b4UdCSvfOtft56XjqfDPRYn2JKzzPcPzVomOvjLRlducSNgTPn36yVE6fh8s +99feS4L8JVPpzwl0tBGtzDNxJ6n4nb+1LJWOGjr1G6w9SIj6vb7btJiOWfk9 +ods8Scg8sWdNzRM68tWbHdPwJcGtpLy0v5+Oo6uGqwg/EpiPZnWn3tLRXdvL +fuV+EjgCGS7q03QMpYvXDPqT8CTtUX6JjCyaNBzbaR5EQsZtMY3mdbLYsff4 +Q1owCS59Hk1vNWQRc07mfqT8ifZ7RMpcFgOXtKREhZLAV7BBKT1IFh0U7BLC +w0gwqMiuOt4gi2Ojspcbj5CwaaBrYaJNFnMDf76xiyJhK89ii709sjjn/UH4 +FWVPh6Dn8EEWaWXtRl+OkmB+lBETu4RA/SOmTSPRJDwWqr+qJ0BQ9et8zPU4 +CduKndq+CRJ4MIBQfErZtTNF2INGYNvjSudbMSSEyM5cNVEmcI3rH6XNcSRM +305t+6VOoGLDZOJVylGWyuPcjQT+WuP/4g/lhFB3HaYxgUu13vrfjCdBYOm8 +ywtTAllKrtf/UE69nBmTbkFgV9iOYdsTJFxu7mjjtSdQ6naH+XvKsju9x2t3 +EGgw1HZo/UkSisf+Ch9yIbCvY0teAOXKNdqu7z0J7D47NfEf5Y03nsbk+BFI +Sy8UZyWQUGvsX7w9kMCr5KixK+UW3/zx5ggC97Zsv9BI2eq3vsixowTmtgs0 +T1DuSu3V2RhLoI7I4em1iSQ4yge7jp0kcPlvLxVTys9rlscWn6LWm5/j50t5 +z9biYrdzBO7qHL1xivLIsHG7WAaBZ4VFpsoo7498Pv7kEoHelf9tekh5YkWY +SEIuNZ8ig7whyocKBHXZhQTeyOvhmaY8u/G663QJgX9XxQbyJ1H53m4We+sG +gdXCIh9olPn2DBV7VxLIG7fTT4Fy8vfD7TJVBGZ9kpvdQFkwSXSir5qK1+nN +mXqUM6QqRM7dJ1DF7TyyKdM4lrrmTQRW8PfOGVO+sum9659WAiPHR1v+/575 +PDr27mMC1aRy8/UplwXSSoK6CRx1bEvRpKzKe7tdoY/ANCGT04qUyYu2E0PP +CYwJfZUjRVlP+ZPIpSEC++1D/1lB+X5DvK7dewIF9QbmZ6n1mTrKuC37RKC7 +66jNe8qPPt2LbRgj0LwokuygvCXaoSRyksCfhV4bKin3CI+3q88QOHAlqTWV +snNp0sTHOQLHEuvCgym/MmCKFvwl0G/+pbEN5X1P63V3LmbgCvOHTBblgNnJ +2LZVDMwd8THupPbXINRHfFSEgaMc5+3ZlPk/vyjnozHwol7ykn2US1429xsz +GZgsI2P+/3wKc9QLcFvHwN+iD/qvUTbtvLkoSoWBWTMSyz0pDz3IVLmjw8D6 +siPOT6l8vakr0NRjyMARm4fhsZSjOMedvyED38faG6hRFi/yjVe2YaC05P3a +GCr/7RL0Bwv3MnBydGXNXCwJ9D+3Ahu8GDh9O359GuWxCCbf6/3UeOMHrViU +k/1WqNHCGAjrQnKRqsdGm9cnziUzUHv7k0p7qp7PtdivvXmWgfeE/tR3HqPO +K3ZrRXs6A9mRUifMKf9Sq3y++AoDRRfeGatR54GmSJz6US4D45KsLvYfJoEn +Zbol6y4D3+08fkaPchefv8vdOgYO92zefCmShAPTDgmTDxlYOBjMZxNB1eMg +66XvC2q9yzN6Uw6RcNA+OyThDQPzzWsX9R4kATtWLb06wkBlE7t5GuXXdTMb +hiYY+EWsYWd2CBWP/LZERz4m+kV3vDkUSNWPBFv6ID8TFb2DMooCqPxK5XLP +r2Ji35mzMl0HqHjFX37VIcFE31mHWinqfE32DtA0UWHixOpa/TQfan3Kq4dU +dzDRH/aHjO4hYeaKZJyWCxNtiio+f9xNwpSQPEt/LxOvvr8RMOpG1eMPff9N ++5nIk9Z85oULCcN1njMu0Ux8IXDUPZ/qHx029wSTS5hoy2cdkkv1n0f3/+Ge +vcFEj1+dv4Oo/tSi/sQxo5KJyzxMSoxtSHgg+u5yXg0TlRMl7fosqfm/FFh3 +p5OJBE+V0lsz6nw7sAeGp5nYFenNCqT64aXXfsMf55j4vcFxhYgeCRfsDiWM +/2ViqBq/XBXVT89pJT+eXS6HtH8Xf/6qRUL8PNdZiC6HE3nh85vVqP1IWRJi +ZC6H/na8zoFMEozKbxZcvCiH0Tu695H8JLwkyvM358jhzb+nnGWWUfl48Xre +VL4c7nlgwZO4hOqvcaW5Dtfl0PWX7cFtvFQ+7CzIEqyXQ2VLwdn2eS6sX3Ih +NfGdHF5wbEraNkHdZ/YejY1QYaGK1caq28+4cKf3SIy8BgtveSy4DTzlgqP1 +4eO92iwM7989NNvJhXTt8GOawEK59JRg7Q4urFoZfHjCnoX7luqPXWjiwuKa +fSE+kSwsvlPlOEFyYVLE2t2piYXvZiLooulcGAxgdvs/YiHkV0m0nudCY+sc +xDxh4Zeef6oiznIhNapctqyfhUFB+952J3Nhw/DKN78+sxCLQxX3U/evIO7T +3VdE5VGRdO1RCuDCZ7sdriNe8qjOyrZbMOPCyBl3p4PLFHDtrZ+12uMcsPoa +afVBZx0WCrmVlehwYMyT/1BVjCIm3b8isbmygvo/kOBNalqPpz0VOmJ7boJI +p8I5zlclHIqb5gtcuAHSyZXbdHRU8OvwjDjvZBlkKeuvFvVVRaSnZyUvugYd +kibaP9LUUHdmScVHmRIwkG5KVe9Xx+tREo1Lpa6CIF9RmEf8Bvy+KuxDiVUh +0ONkjXYpaGC5/tEPHl15sFze7a7DIw388ezjTtFtOaDGXlsZuVsTX+l3JYyb +ZsHBIZFmax4tnPDJ767WyISvP87ssMrSwhl5+tPZ1HSwUG+9bKW6EVkMZtYJ +nVR48MNw/mfXRlz4Z/oLX3cKBKlovnjmrY05ivahcdNJwJ7w6t21XAdjDiys +d8WTsJlFs11VpIM0oeHLVzbGgWLs6cNNuroYe0JsYa9SNCh56zfIv9DFflZ/ +6FH9w+D9wO9kVageiubcO92PYdBQ0Os1uUYfXYKkrS9nhMBU2d+f6vf0Ub+w +PrdX6ACMOpkXnKrRx/WlP4sE5v1hcPFZy/d1+njGO9x666g/1LlLZl9s1Eed +yVGPP/X+EE/TNlho18cY4/s/eA74w+pk/2Mdr/TxwhEP7qn2/aDi28fjzWuA +NpDvFpXqB57y5csv2xrgI2dLO69NPhD1cI+/wjYD9OTHjw4aPpDqLfKYdDDA +sIKsdDu6D9SXHDnz2NkA5ad6eA/NeoOYgqXQgocBFjl1eHvc8oZWhQ9i7hEG +GBu/idG31huUFGUJhXwDrL424vj2tydMKmXokN8MMH6P5b3O/zxg8AluFv1B ++cniB4IvPaAxaGJ72LQBMisTdrg88YBzpFWozpwBGjedoAtXeoCSAc/NWj5D +1NlMBv0O84B9VoGMZnFD/F3ys7GF1wN6fS1W9hoZolr8Yr/v8u5QXTz/bjrZ +EAts4fS0yG7QMQv7aZ1iiF6pZmFDc25w593YyoKzhmi53314cNgNSPqQrnW6 +IbZ92Mjgve0GN7Maz+blGOLNDz5L5R3doOBMgr5FhSGGCnh5X812hVNhQmlZ +/xrip9BVvIYaLuCySQ4N6UaYt37dtWupzrDQyy/YTBhh2BIx/69RzlDgPfHS +Ws4IJ43xjaW3M4wm1kS6KBphBdOLs8HAGQ6221Ue0TTCL48j8ntGnOD01mP0 +anMjTEv027aD7QS1O/t+bww2wpndR+UXzzuCVGBSjVqjEba8cYtIKXWAc399 +tFOajDCuYWuZyEUH4E03535sod7ThLpKExzg890l1wvajfBadXbPtJcD1PKc +zBL51whjb0p0q7IcwOVCbOTMByNc7XlC5U+xPWTVHdF+sIKNH1PHWz5UboM1 +AgFcW2c2ygxZ3BHusYVis+iob7vYaCy9g5i5bQua0efMMtzYKHrqcet0pi1s +/cbpG/Rg4+njj0LNXWwhsX/6l2cAG8ktx6aVRrbAbFGMaVQcGyd6o5InftvA +C8OMf0vL2Xisb9eyZybW4BdenGtVwcZg5nK+aQVrmKm44z3GYeOUrzpHY6U1 +iDAHf2rcZaNJdXf3VL8V2PDLSN9vZFOVdWFFQaAV1PeWev3bx0bNvVXnj+Rb +grVgtWrEIBsPPyvLlE20hEGL9hnaSzZyKw0kXwdYwlTtl+Q9b9nY/ZTumGdg +CaqFG27995mNVj96YnQHLKD+hUnEmXE2PsyyDr70wAKsxbaD+jc2Gla5WwqW +WoBPUvizsGk2ure0BmK4BUw1Jl6WmGXjnSWemfNuFhA/d8mzdo6NPlt1dndu +soDVG6+r7F5g45Nmvtt3VCwgL7B2+u9fNprLXD5ZJWYB/wNbKgxT "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -10763,172 +10880,124 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR -klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW -lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv -TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc -73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw -RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X -gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 -Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI -PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy -W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx -SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 -V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY -9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw -N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM -vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz -tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 -GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT -0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA -udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF -4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y -Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a -eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl -p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN -TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC -SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw -e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu -HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn -Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l -RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X -udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 -DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM -JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC -PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC -eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn -wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY -XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK -jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb -0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 -GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 -fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN -PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T -MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt -LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH -TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY -565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U -PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F -yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx -3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP -19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 -9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp -zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 -VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP -Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio -aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX -UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo -Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p -ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP -DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo -pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg -5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg -2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW -9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr -BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm -QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF -m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i -o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v -Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH -IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw -kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j -lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO -UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 -w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI -bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc -A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa -l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA -2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug -gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN -VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv -5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l -9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv -r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H -I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp -s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx -NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c -ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc -iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z -pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz -oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv -HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd -Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR -/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI -LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC -eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R -EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM -IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d -JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp -CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe -n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ -QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX -4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM -J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx -baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X -/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby -clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ -SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg -dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs -YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa -LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva -gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i -1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N -ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz -7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ -f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa -wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom -XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ -e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk -XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM -TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD -i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 -LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM -kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj -qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B -uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF -nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 -dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ -kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q -8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 -FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR -CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW -io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU -qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X -B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ -0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r -W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ -zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs -HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB -IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg -FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE -fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC -cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh -DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 -RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d -z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM -rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH -L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== +1:eJwV13k4VV0XAHDRIBUZ4ma4zr0uyRgyu9ZCGZNIFCoyJmMZSslQhtJgSBGZ +Qkpx70llKl4kFMlralJJ6i2UQiL1ne+v8/ye85xn7732Wnvtw9gX7ODNy8PD +Q1/Ew/P/58xQewsrpdgYruxXuFNtatybRztiMhgP3NT/tDxVGIBrnu6jDaZD +3tLEGkMVDYjYdmOAb7AIhMV4XhMqJiA8IZH+a4CEcK+bkzPK9vCmfmvw1EAT +XPhqLRCi7AHmrM+vJwd6QFbw5LTX+lD4NaCb+W1gGLpz5ozMGHHQbHat+FnR +D9iQNc4hqtJA+k3N6D6VBch8Y/q8ayYbxAL23lhmxodJhb4DfwcKIF3DvG7r +Dn7s+h2kOtVUDM+zNjROrl6F5mpyNnXSZZBSHPOUd60wdigdjj3rVg4SF96f +yrgiiu4NWl66RAXQlO+cnC0VxdAsU2Hu+gqQbEqM2c0RRTPJbYdYWhVA/7Y+ +fF2zKD6TKbGf3VwB8ltC3Os+iWLbak8nxwMVoLV4Qee9lhi+TeTGvqqqALsw +8RHNDjE0a/rbJW9WCUmOVsY9M2uQR3UyU0uBA5JVXZK8i8Tx4JjF+0glDlSI +Ov7UWCGONpmkS7UaB/p79nDSZMWxz0i2VVWXAyz7MKa9pTgGLlU++dmCA022 ++Uu7s8Xxn735luV+HFgwn+7qNJLAq7GL8iyucSC1NKp8wVwC5VXDjq8up75f +ypOsai+Bz7M5x/sqOLDloYDJWW8J1BIrfL39LgcumxG3t5yTQPtfB4SYDzmg +hzaXHr+RQKdDryQWD3PgkH7h3vZ4Gr5N+0K+pnHBukBwyuYMDQ+P5Bh8l+IC +c9mx5K5MGqbeadzNJ8uF7l4n7r9lNHSa2hQhJc8FtZCVfENdNJyxjfvK1ODC +p9LI0u+Sa5Fn1S2e85ZccBPbOi51ey3y0te1vgzjgtbRuri8+rVYpb2u8UQk +FwSGFcUZrWuxvCPLSTGKCzWVfKDwfC3u8NHb5RvDBXGbmtQNf9di2aLo6vpT +1PhxrI2bbSQxLVhnvuUKFzZ9nYsKei+JFkr3r29p5sIRywtK/4xJYnHcd4x+ +yIWKQtUXojOSOMs5lHPjERdoju76NfxSaC5lkDP/mAtj1Q9/8qlJoeYv9ScR +vVzIiE8Nyz4shWnmRet7RrgwvEYhqGWVNM594b9N5yNBIrhBRkJCGpXBWvPT +YhK2tO3s3E9I4xbF0uiKpSTcjUpREdKSxv2lS6I0BEg4/ebb5107pfH63QUR +YWESNK/X+X4tksbdGXlrdOkkxBnZe0jqyaBe7boVDB0SLPfkfdc1lcGyOePX +RbokCMZ+ObFjiwwuIvpnCX0ScpsTSlPdZXDZuU5BESMSqq1rvyw9JYP3TBRa +H5mQ8G2nXMSP5zJ4pCHtU9wWEu5FhSwTHpFBY1pddpstCcdz72epTcggS04s +b4UdCSvfOtft56XjqfDPRYn2JKzzPcPzVomOvjLRlducSNgTPn36yVE6fh8s +99feS4L8JVPpzwl0tBGtzDNxJ6n4nb+1LJWOGjr1G6w9SIj6vb7btJiOWfk9 +ods8Scg8sWdNzRM68tWbHdPwJcGtpLy0v5+Oo6uGqwg/EpiPZnWn3tLRXdvL +fuV+EjgCGS7q03QMpYvXDPqT8CTtUX6JjCyaNBzbaR5EQsZtMY3mdbLYsff4 +Q1owCS59Hk1vNWQRc07mfqT8ifZ7RMpcFgOXtKREhZLAV7BBKT1IFh0U7BLC +w0gwqMiuOt4gi2Ojspcbj5CwaaBrYaJNFnMDf76xiyJhK89ii709sjjn/UH4 +FWVPh6Dn8EEWaWXtRl+OkmB+lBETu4RA/SOmTSPRJDwWqr+qJ0BQ9et8zPU4 +CduKndq+CRJ4MIBQfErZtTNF2INGYNvjSudbMSSEyM5cNVEmcI3rH6XNcSRM +305t+6VOoGLDZOJVylGWyuPcjQT+WuP/4g/lhFB3HaYxgUu13vrfjCdBYOm8 +ywtTAllKrtf/UE69nBmTbkFgV9iOYdsTJFxu7mjjtSdQ6naH+XvKsju9x2t3 +EGgw1HZo/UkSisf+Ch9yIbCvY0teAOXKNdqu7z0J7D47NfEf5Y03nsbk+BFI +Sy8UZyWQUGvsX7w9kMCr5KixK+UW3/zx5ggC97Zsv9BI2eq3vsixowTmtgs0 +T1DuSu3V2RhLoI7I4em1iSQ4yge7jp0kcPlvLxVTys9rlscWn6LWm5/j50t5 +z9biYrdzBO7qHL1xivLIsHG7WAaBZ4VFpsoo7498Pv7kEoHelf9tekh5YkWY +SEIuNZ8ig7whyocKBHXZhQTeyOvhmaY8u/G663QJgX9XxQbyJ1H53m4We+sG +gdXCIh9olPn2DBV7VxLIG7fTT4Fy8vfD7TJVBGZ9kpvdQFkwSXSir5qK1+nN +mXqUM6QqRM7dJ1DF7TyyKdM4lrrmTQRW8PfOGVO+sum9659WAiPHR1v+/575 +PDr27mMC1aRy8/UplwXSSoK6CRx1bEvRpKzKe7tdoY/ANCGT04qUyYu2E0PP +CYwJfZUjRVlP+ZPIpSEC++1D/1lB+X5DvK7dewIF9QbmZ6n1mTrKuC37RKC7 +66jNe8qPPt2LbRgj0LwokuygvCXaoSRyksCfhV4bKin3CI+3q88QOHAlqTWV +snNp0sTHOQLHEuvCgym/MmCKFvwl0G/+pbEN5X1P63V3LmbgCvOHTBblgNnJ +2LZVDMwd8THupPbXINRHfFSEgaMc5+3ZlPk/vyjnozHwol7ykn2US1429xsz +GZgsI2P+/3wKc9QLcFvHwN+iD/qvUTbtvLkoSoWBWTMSyz0pDz3IVLmjw8D6 +siPOT6l8vakr0NRjyMARm4fhsZSjOMedvyED38faG6hRFi/yjVe2YaC05P3a +GCr/7RL0Bwv3MnBydGXNXCwJ9D+3Ahu8GDh9O359GuWxCCbf6/3UeOMHrViU +k/1WqNHCGAjrQnKRqsdGm9cnziUzUHv7k0p7qp7PtdivvXmWgfeE/tR3HqPO +K3ZrRXs6A9mRUifMKf9Sq3y++AoDRRfeGatR54GmSJz6US4D45KsLvYfJoEn +Zbol6y4D3+08fkaPchefv8vdOgYO92zefCmShAPTDgmTDxlYOBjMZxNB1eMg +66XvC2q9yzN6Uw6RcNA+OyThDQPzzWsX9R4kATtWLb06wkBlE7t5GuXXdTMb +hiYY+EWsYWd2CBWP/LZERz4m+kV3vDkUSNWPBFv6ID8TFb2DMooCqPxK5XLP +r2Ji35mzMl0HqHjFX37VIcFE31mHWinqfE32DtA0UWHixOpa/TQfan3Kq4dU +dzDRH/aHjO4hYeaKZJyWCxNtiio+f9xNwpSQPEt/LxOvvr8RMOpG1eMPff9N ++5nIk9Z85oULCcN1njMu0Ux8IXDUPZ/qHx029wSTS5hoy2cdkkv1n0f3/+Ge +vcFEj1+dv4Oo/tSi/sQxo5KJyzxMSoxtSHgg+u5yXg0TlRMl7fosqfm/FFh3 +p5OJBE+V0lsz6nw7sAeGp5nYFenNCqT64aXXfsMf55j4vcFxhYgeCRfsDiWM +/2ViqBq/XBXVT89pJT+eXS6HtH8Xf/6qRUL8PNdZiC6HE3nh85vVqP1IWRJi +ZC6H/na8zoFMEozKbxZcvCiH0Tu695H8JLwkyvM358jhzb+nnGWWUfl48Xre +VL4c7nlgwZO4hOqvcaW5Dtfl0PWX7cFtvFQ+7CzIEqyXQ2VLwdn2eS6sX3Ih +NfGdHF5wbEraNkHdZ/YejY1QYaGK1caq28+4cKf3SIy8BgtveSy4DTzlgqP1 +4eO92iwM7989NNvJhXTt8GOawEK59JRg7Q4urFoZfHjCnoX7luqPXWjiwuKa +fSE+kSwsvlPlOEFyYVLE2t2piYXvZiLooulcGAxgdvs/YiHkV0m0nudCY+sc +xDxh4Zeef6oiznIhNapctqyfhUFB+952J3Nhw/DKN78+sxCLQxX3U/evIO7T +3VdE5VGRdO1RCuDCZ7sdriNe8qjOyrZbMOPCyBl3p4PLFHDtrZ+12uMcsPoa +afVBZx0WCrmVlehwYMyT/1BVjCIm3b8isbmygvo/kOBNalqPpz0VOmJ7boJI +p8I5zlclHIqb5gtcuAHSyZXbdHRU8OvwjDjvZBlkKeuvFvVVRaSnZyUvugYd +kibaP9LUUHdmScVHmRIwkG5KVe9Xx+tREo1Lpa6CIF9RmEf8Bvy+KuxDiVUh +0ONkjXYpaGC5/tEPHl15sFze7a7DIw388ezjTtFtOaDGXlsZuVsTX+l3JYyb +ZsHBIZFmax4tnPDJ767WyISvP87ssMrSwhl5+tPZ1HSwUG+9bKW6EVkMZtYJ +nVR48MNw/mfXRlz4Z/oLX3cKBKlovnjmrY05ivahcdNJwJ7w6t21XAdjDiys +d8WTsJlFs11VpIM0oeHLVzbGgWLs6cNNuroYe0JsYa9SNCh56zfIv9DFflZ/ +6FH9w+D9wO9kVageiubcO92PYdBQ0Os1uUYfXYKkrS9nhMBU2d+f6vf0Ub+w +PrdX6ACMOpkXnKrRx/WlP4sE5v1hcPFZy/d1+njGO9x666g/1LlLZl9s1Eed +yVGPP/X+EE/TNlho18cY4/s/eA74w+pk/2Mdr/TxwhEP7qn2/aDi28fjzWuA +NpDvFpXqB57y5csv2xrgI2dLO69NPhD1cI+/wjYD9OTHjw4aPpDqLfKYdDDA +sIKsdDu6D9SXHDnz2NkA5ad6eA/NeoOYgqXQgocBFjl1eHvc8oZWhQ9i7hEG +GBu/idG31huUFGUJhXwDrL424vj2tydMKmXokN8MMH6P5b3O/zxg8AluFv1B ++cniB4IvPaAxaGJ72LQBMisTdrg88YBzpFWozpwBGjedoAtXeoCSAc/NWj5D +1NlMBv0O84B9VoGMZnFD/F3ys7GF1wN6fS1W9hoZolr8Yr/v8u5QXTz/bjrZ +EAts4fS0yG7QMQv7aZ1iiF6pZmFDc25w593YyoKzhmi53314cNgNSPqQrnW6 +IbZ92Mjgve0GN7Maz+blGOLNDz5L5R3doOBMgr5FhSGGCnh5X812hVNhQmlZ +/xrip9BVvIYaLuCySQ4N6UaYt37dtWupzrDQyy/YTBhh2BIx/69RzlDgPfHS +Ws4IJ43xjaW3M4wm1kS6KBphBdOLs8HAGQ6221Ue0TTCL48j8ntGnOD01mP0 +anMjTEv027aD7QS1O/t+bww2wpndR+UXzzuCVGBSjVqjEba8cYtIKXWAc399 +tFOajDCuYWuZyEUH4E03535sod7ThLpKExzg890l1wvajfBadXbPtJcD1PKc +zBL51whjb0p0q7IcwOVCbOTMByNc7XlC5U+xPWTVHdF+sIKNH1PHWz5UboM1 +AgFcW2c2ygxZ3BHusYVis+iob7vYaCy9g5i5bQua0efMMtzYKHrqcet0pi1s +/cbpG/Rg4+njj0LNXWwhsX/6l2cAG8ktx6aVRrbAbFGMaVQcGyd6o5InftvA +C8OMf0vL2Xisb9eyZybW4BdenGtVwcZg5nK+aQVrmKm44z3GYeOUrzpHY6U1 +iDAHf2rcZaNJdXf3VL8V2PDLSN9vZFOVdWFFQaAV1PeWev3bx0bNvVXnj+Rb +grVgtWrEIBsPPyvLlE20hEGL9hnaSzZyKw0kXwdYwlTtl+Q9b9nY/ZTumGdg +CaqFG27995mNVj96YnQHLKD+hUnEmXE2PsyyDr70wAKsxbaD+jc2Gla5WwqW +WoBPUvizsGk2ure0BmK4BUw1Jl6WmGXjnSWemfNuFhA/d8mzdo6NPlt1dndu +soDVG6+r7F5g45Nmvtt3VCwgL7B2+u9fNprLXD5ZJWYB/wNbKgxT "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "PlotRange" -> {{0, 30}, {0., 0.0723761904119182}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -10940,19 +11009,19 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "PlotRange" -> {{0, 30}, {0., 0.0723761904119182}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10966,171 +11035,123 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR -klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW -lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv -TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc -73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw -RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X -gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 -Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI -PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy -W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx -SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 -V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY -9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw -N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM -vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz -tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 -GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT -0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA -udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF -4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y -Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a -eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl -p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN -TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC -SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw -e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu -HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn -Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l -RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X -udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 -DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM -JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC -PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC -eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn -wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY -XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK -jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb -0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 -GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 -fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN -PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T -MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt -LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH -TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY -565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U -PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F -yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx -3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP -19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 -9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp -zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 -VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP -Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio -aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX -UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo -Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p -ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP -DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo -pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg -5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg -2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW -9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr -BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm -QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF -m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i -o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v -Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH -IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw -kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j -lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO -UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 -w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI -bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc -A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa -l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA -2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug -gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN -VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv -5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l -9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv -r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H -I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp -s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx -NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c -ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc -iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z -pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz -oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv -HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd -Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR -/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI -LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC -eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R -EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM -IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d -JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp -CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe -n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ -QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX -4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM -J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx -baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X -/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby -clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ -SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg -dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs -YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa -LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva -gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i -1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N -ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz -7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ -f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa -wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom -XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ -e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk -XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM -TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD -i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 -LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM -kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj -qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B -uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF -nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 -dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ -kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q -8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 -FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR -CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW -io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU -qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X -B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ -0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r -W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ -zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs -HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB -IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg -FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE -fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC -cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh -DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 -RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d -z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM -rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH -L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== +1:eJwV13k4VV0XAHDRIBUZ4ma4zr0uyRgyu9ZCGZNIFCoyJmMZSslQhtJgSBGZ +Qkpx70llKl4kFMlralJJ6i2UQiL1ne+v8/ye85xn7732Wnvtw9gX7ODNy8PD +Q1/Ew/P/58xQewsrpdgYruxXuFNtatybRztiMhgP3NT/tDxVGIBrnu6jDaZD +3tLEGkMVDYjYdmOAb7AIhMV4XhMqJiA8IZH+a4CEcK+bkzPK9vCmfmvw1EAT +XPhqLRCi7AHmrM+vJwd6QFbw5LTX+lD4NaCb+W1gGLpz5ozMGHHQbHat+FnR +D9iQNc4hqtJA+k3N6D6VBch8Y/q8ayYbxAL23lhmxodJhb4DfwcKIF3DvG7r +Dn7s+h2kOtVUDM+zNjROrl6F5mpyNnXSZZBSHPOUd60wdigdjj3rVg4SF96f +yrgiiu4NWl66RAXQlO+cnC0VxdAsU2Hu+gqQbEqM2c0RRTPJbYdYWhVA/7Y+ +fF2zKD6TKbGf3VwB8ltC3Os+iWLbak8nxwMVoLV4Qee9lhi+TeTGvqqqALsw +8RHNDjE0a/rbJW9WCUmOVsY9M2uQR3UyU0uBA5JVXZK8i8Tx4JjF+0glDlSI +Ov7UWCGONpmkS7UaB/p79nDSZMWxz0i2VVWXAyz7MKa9pTgGLlU++dmCA022 ++Uu7s8Xxn735luV+HFgwn+7qNJLAq7GL8iyucSC1NKp8wVwC5VXDjq8up75f +ypOsai+Bz7M5x/sqOLDloYDJWW8J1BIrfL39LgcumxG3t5yTQPtfB4SYDzmg +hzaXHr+RQKdDryQWD3PgkH7h3vZ4Gr5N+0K+pnHBukBwyuYMDQ+P5Bh8l+IC +c9mx5K5MGqbeadzNJ8uF7l4n7r9lNHSa2hQhJc8FtZCVfENdNJyxjfvK1ODC +p9LI0u+Sa5Fn1S2e85ZccBPbOi51ey3y0te1vgzjgtbRuri8+rVYpb2u8UQk +FwSGFcUZrWuxvCPLSTGKCzWVfKDwfC3u8NHb5RvDBXGbmtQNf9di2aLo6vpT +1PhxrI2bbSQxLVhnvuUKFzZ9nYsKei+JFkr3r29p5sIRywtK/4xJYnHcd4x+ +yIWKQtUXojOSOMs5lHPjERdoju76NfxSaC5lkDP/mAtj1Q9/8qlJoeYv9ScR +vVzIiE8Nyz4shWnmRet7RrgwvEYhqGWVNM594b9N5yNBIrhBRkJCGpXBWvPT +YhK2tO3s3E9I4xbF0uiKpSTcjUpREdKSxv2lS6I0BEg4/ebb5107pfH63QUR +YWESNK/X+X4tksbdGXlrdOkkxBnZe0jqyaBe7boVDB0SLPfkfdc1lcGyOePX +RbokCMZ+ObFjiwwuIvpnCX0ScpsTSlPdZXDZuU5BESMSqq1rvyw9JYP3TBRa +H5mQ8G2nXMSP5zJ4pCHtU9wWEu5FhSwTHpFBY1pddpstCcdz72epTcggS04s +b4UdCSvfOtft56XjqfDPRYn2JKzzPcPzVomOvjLRlducSNgTPn36yVE6fh8s +99feS4L8JVPpzwl0tBGtzDNxJ6n4nb+1LJWOGjr1G6w9SIj6vb7btJiOWfk9 +ods8Scg8sWdNzRM68tWbHdPwJcGtpLy0v5+Oo6uGqwg/EpiPZnWn3tLRXdvL +fuV+EjgCGS7q03QMpYvXDPqT8CTtUX6JjCyaNBzbaR5EQsZtMY3mdbLYsff4 +Q1owCS59Hk1vNWQRc07mfqT8ifZ7RMpcFgOXtKREhZLAV7BBKT1IFh0U7BLC +w0gwqMiuOt4gi2Ojspcbj5CwaaBrYaJNFnMDf76xiyJhK89ii709sjjn/UH4 +FWVPh6Dn8EEWaWXtRl+OkmB+lBETu4RA/SOmTSPRJDwWqr+qJ0BQ9et8zPU4 +CduKndq+CRJ4MIBQfErZtTNF2INGYNvjSudbMSSEyM5cNVEmcI3rH6XNcSRM +305t+6VOoGLDZOJVylGWyuPcjQT+WuP/4g/lhFB3HaYxgUu13vrfjCdBYOm8 +ywtTAllKrtf/UE69nBmTbkFgV9iOYdsTJFxu7mjjtSdQ6naH+XvKsju9x2t3 +EGgw1HZo/UkSisf+Ch9yIbCvY0teAOXKNdqu7z0J7D47NfEf5Y03nsbk+BFI +Sy8UZyWQUGvsX7w9kMCr5KixK+UW3/zx5ggC97Zsv9BI2eq3vsixowTmtgs0 +T1DuSu3V2RhLoI7I4em1iSQ4yge7jp0kcPlvLxVTys9rlscWn6LWm5/j50t5 +z9biYrdzBO7qHL1xivLIsHG7WAaBZ4VFpsoo7498Pv7kEoHelf9tekh5YkWY +SEIuNZ8ig7whyocKBHXZhQTeyOvhmaY8u/G663QJgX9XxQbyJ1H53m4We+sG +gdXCIh9olPn2DBV7VxLIG7fTT4Fy8vfD7TJVBGZ9kpvdQFkwSXSir5qK1+nN +mXqUM6QqRM7dJ1DF7TyyKdM4lrrmTQRW8PfOGVO+sum9659WAiPHR1v+/575 +PDr27mMC1aRy8/UplwXSSoK6CRx1bEvRpKzKe7tdoY/ANCGT04qUyYu2E0PP +CYwJfZUjRVlP+ZPIpSEC++1D/1lB+X5DvK7dewIF9QbmZ6n1mTrKuC37RKC7 +66jNe8qPPt2LbRgj0LwokuygvCXaoSRyksCfhV4bKin3CI+3q88QOHAlqTWV +snNp0sTHOQLHEuvCgym/MmCKFvwl0G/+pbEN5X1P63V3LmbgCvOHTBblgNnJ +2LZVDMwd8THupPbXINRHfFSEgaMc5+3ZlPk/vyjnozHwol7ykn2US1429xsz +GZgsI2P+/3wKc9QLcFvHwN+iD/qvUTbtvLkoSoWBWTMSyz0pDz3IVLmjw8D6 +siPOT6l8vakr0NRjyMARm4fhsZSjOMedvyED38faG6hRFi/yjVe2YaC05P3a +GCr/7RL0Bwv3MnBydGXNXCwJ9D+3Ahu8GDh9O359GuWxCCbf6/3UeOMHrViU +k/1WqNHCGAjrQnKRqsdGm9cnziUzUHv7k0p7qp7PtdivvXmWgfeE/tR3HqPO +K3ZrRXs6A9mRUifMKf9Sq3y++AoDRRfeGatR54GmSJz6US4D45KsLvYfJoEn +Zbol6y4D3+08fkaPchefv8vdOgYO92zefCmShAPTDgmTDxlYOBjMZxNB1eMg +66XvC2q9yzN6Uw6RcNA+OyThDQPzzWsX9R4kATtWLb06wkBlE7t5GuXXdTMb +hiYY+EWsYWd2CBWP/LZERz4m+kV3vDkUSNWPBFv6ID8TFb2DMooCqPxK5XLP +r2Ji35mzMl0HqHjFX37VIcFE31mHWinqfE32DtA0UWHixOpa/TQfan3Kq4dU +dzDRH/aHjO4hYeaKZJyWCxNtiio+f9xNwpSQPEt/LxOvvr8RMOpG1eMPff9N ++5nIk9Z85oULCcN1njMu0Ux8IXDUPZ/qHx029wSTS5hoy2cdkkv1n0f3/+Ge +vcFEj1+dv4Oo/tSi/sQxo5KJyzxMSoxtSHgg+u5yXg0TlRMl7fosqfm/FFh3 +p5OJBE+V0lsz6nw7sAeGp5nYFenNCqT64aXXfsMf55j4vcFxhYgeCRfsDiWM +/2ViqBq/XBXVT89pJT+eXS6HtH8Xf/6qRUL8PNdZiC6HE3nh85vVqP1IWRJi +ZC6H/na8zoFMEozKbxZcvCiH0Tu695H8JLwkyvM358jhzb+nnGWWUfl48Xre +VL4c7nlgwZO4hOqvcaW5Dtfl0PWX7cFtvFQ+7CzIEqyXQ2VLwdn2eS6sX3Ih +NfGdHF5wbEraNkHdZ/YejY1QYaGK1caq28+4cKf3SIy8BgtveSy4DTzlgqP1 +4eO92iwM7989NNvJhXTt8GOawEK59JRg7Q4urFoZfHjCnoX7luqPXWjiwuKa +fSE+kSwsvlPlOEFyYVLE2t2piYXvZiLooulcGAxgdvs/YiHkV0m0nudCY+sc +xDxh4Zeef6oiznIhNapctqyfhUFB+952J3Nhw/DKN78+sxCLQxX3U/evIO7T +3VdE5VGRdO1RCuDCZ7sdriNe8qjOyrZbMOPCyBl3p4PLFHDtrZ+12uMcsPoa +afVBZx0WCrmVlehwYMyT/1BVjCIm3b8isbmygvo/kOBNalqPpz0VOmJ7boJI +p8I5zlclHIqb5gtcuAHSyZXbdHRU8OvwjDjvZBlkKeuvFvVVRaSnZyUvugYd +kibaP9LUUHdmScVHmRIwkG5KVe9Xx+tREo1Lpa6CIF9RmEf8Bvy+KuxDiVUh +0ONkjXYpaGC5/tEPHl15sFze7a7DIw388ezjTtFtOaDGXlsZuVsTX+l3JYyb +ZsHBIZFmax4tnPDJ767WyISvP87ssMrSwhl5+tPZ1HSwUG+9bKW6EVkMZtYJ +nVR48MNw/mfXRlz4Z/oLX3cKBKlovnjmrY05ivahcdNJwJ7w6t21XAdjDiys +d8WTsJlFs11VpIM0oeHLVzbGgWLs6cNNuroYe0JsYa9SNCh56zfIv9DFflZ/ +6FH9w+D9wO9kVageiubcO92PYdBQ0Os1uUYfXYKkrS9nhMBU2d+f6vf0Ub+w +PrdX6ACMOpkXnKrRx/WlP4sE5v1hcPFZy/d1+njGO9x666g/1LlLZl9s1Eed +yVGPP/X+EE/TNlho18cY4/s/eA74w+pk/2Mdr/TxwhEP7qn2/aDi28fjzWuA +NpDvFpXqB57y5csv2xrgI2dLO69NPhD1cI+/wjYD9OTHjw4aPpDqLfKYdDDA +sIKsdDu6D9SXHDnz2NkA5ad6eA/NeoOYgqXQgocBFjl1eHvc8oZWhQ9i7hEG +GBu/idG31huUFGUJhXwDrL424vj2tydMKmXokN8MMH6P5b3O/zxg8AluFv1B ++cniB4IvPaAxaGJ72LQBMisTdrg88YBzpFWozpwBGjedoAtXeoCSAc/NWj5D +1NlMBv0O84B9VoGMZnFD/F3ys7GF1wN6fS1W9hoZolr8Yr/v8u5QXTz/bjrZ +EAts4fS0yG7QMQv7aZ1iiF6pZmFDc25w593YyoKzhmi53314cNgNSPqQrnW6 +IbZ92Mjgve0GN7Maz+blGOLNDz5L5R3doOBMgr5FhSGGCnh5X812hVNhQmlZ +/xrip9BVvIYaLuCySQ4N6UaYt37dtWupzrDQyy/YTBhh2BIx/69RzlDgPfHS +Ws4IJ43xjaW3M4wm1kS6KBphBdOLs8HAGQ6221Ue0TTCL48j8ntGnOD01mP0 +anMjTEv027aD7QS1O/t+bww2wpndR+UXzzuCVGBSjVqjEba8cYtIKXWAc399 +tFOajDCuYWuZyEUH4E03535sod7ThLpKExzg890l1wvajfBadXbPtJcD1PKc +zBL51whjb0p0q7IcwOVCbOTMByNc7XlC5U+xPWTVHdF+sIKNH1PHWz5UboM1 +AgFcW2c2ygxZ3BHusYVis+iob7vYaCy9g5i5bQua0efMMtzYKHrqcet0pi1s +/cbpG/Rg4+njj0LNXWwhsX/6l2cAG8ktx6aVRrbAbFGMaVQcGyd6o5InftvA +C8OMf0vL2Xisb9eyZybW4BdenGtVwcZg5nK+aQVrmKm44z3GYeOUrzpHY6U1 +iDAHf2rcZaNJdXf3VL8V2PDLSN9vZFOVdWFFQaAV1PeWev3bx0bNvVXnj+Rb +grVgtWrEIBsPPyvLlE20hEGL9hnaSzZyKw0kXwdYwlTtl+Q9b9nY/ZTumGdg +CaqFG27995mNVj96YnQHLKD+hUnEmXE2PsyyDr70wAKsxbaD+jc2Gla5WwqW +WoBPUvizsGk2ure0BmK4BUw1Jl6WmGXjnSWemfNuFhA/d8mzdo6NPlt1dndu +soDVG6+r7F5g45Nmvtt3VCwgL7B2+u9fNprLXD5ZJWYB/wNbKgxT "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "PlotRange" -> {{0, 30}, {0., 0.0723761904119182}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -11141,6 +11162,7 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -11168,7 +11190,8 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.1813924222088017}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.0723761904119182}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -11176,17 +11199,592 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913306567510605`*^9}, + CellChangeTimes->{3.9913306567510605`*^9, 3.994259327979268*^9}, CellLabel-> - "Out[195]=",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] + "Out[119]=",ExpressionUUID->"ccb28580-4aba-4546-86a7-f4f8b1e543e9"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-\ -6bd251746ea6"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VV0XAHDRIBUZ4ma4zr0uyRgyu9ZCGZNIFCoyJmMZSslQhtJgSBGZ +Qkpx70llKl4kFMlralJJ6i2UQiL1ne+v8/ye85xn7732Wnvtw9gX7ODNy8PD +Q1/Ew/P/58xQewsrpdgYruxXuFNtatybRztiMhgP3NT/tDxVGIBrnu6jDaZD +3tLEGkMVDYjYdmOAb7AIhMV4XhMqJiA8IZH+a4CEcK+bkzPK9vCmfmvw1EAT +XPhqLRCi7AHmrM+vJwd6QFbw5LTX+lD4NaCb+W1gGLpz5ozMGHHQbHat+FnR +D9iQNc4hqtJA+k3N6D6VBch8Y/q8ayYbxAL23lhmxodJhb4DfwcKIF3DvG7r +Dn7s+h2kOtVUDM+zNjROrl6F5mpyNnXSZZBSHPOUd60wdigdjj3rVg4SF96f +yrgiiu4NWl66RAXQlO+cnC0VxdAsU2Hu+gqQbEqM2c0RRTPJbYdYWhVA/7Y+ +fF2zKD6TKbGf3VwB8ltC3Os+iWLbak8nxwMVoLV4Qee9lhi+TeTGvqqqALsw +8RHNDjE0a/rbJW9WCUmOVsY9M2uQR3UyU0uBA5JVXZK8i8Tx4JjF+0glDlSI +Ov7UWCGONpmkS7UaB/p79nDSZMWxz0i2VVWXAyz7MKa9pTgGLlU++dmCA022 ++Uu7s8Xxn735luV+HFgwn+7qNJLAq7GL8iyucSC1NKp8wVwC5VXDjq8up75f +ypOsai+Bz7M5x/sqOLDloYDJWW8J1BIrfL39LgcumxG3t5yTQPtfB4SYDzmg +hzaXHr+RQKdDryQWD3PgkH7h3vZ4Gr5N+0K+pnHBukBwyuYMDQ+P5Bh8l+IC +c9mx5K5MGqbeadzNJ8uF7l4n7r9lNHSa2hQhJc8FtZCVfENdNJyxjfvK1ODC +p9LI0u+Sa5Fn1S2e85ZccBPbOi51ey3y0te1vgzjgtbRuri8+rVYpb2u8UQk +FwSGFcUZrWuxvCPLSTGKCzWVfKDwfC3u8NHb5RvDBXGbmtQNf9di2aLo6vpT +1PhxrI2bbSQxLVhnvuUKFzZ9nYsKei+JFkr3r29p5sIRywtK/4xJYnHcd4x+ +yIWKQtUXojOSOMs5lHPjERdoju76NfxSaC5lkDP/mAtj1Q9/8qlJoeYv9ScR +vVzIiE8Nyz4shWnmRet7RrgwvEYhqGWVNM594b9N5yNBIrhBRkJCGpXBWvPT +YhK2tO3s3E9I4xbF0uiKpSTcjUpREdKSxv2lS6I0BEg4/ebb5107pfH63QUR +YWESNK/X+X4tksbdGXlrdOkkxBnZe0jqyaBe7boVDB0SLPfkfdc1lcGyOePX +RbokCMZ+ObFjiwwuIvpnCX0ScpsTSlPdZXDZuU5BESMSqq1rvyw9JYP3TBRa +H5mQ8G2nXMSP5zJ4pCHtU9wWEu5FhSwTHpFBY1pddpstCcdz72epTcggS04s +b4UdCSvfOtft56XjqfDPRYn2JKzzPcPzVomOvjLRlducSNgTPn36yVE6fh8s +99feS4L8JVPpzwl0tBGtzDNxJ6n4nb+1LJWOGjr1G6w9SIj6vb7btJiOWfk9 +ods8Scg8sWdNzRM68tWbHdPwJcGtpLy0v5+Oo6uGqwg/EpiPZnWn3tLRXdvL +fuV+EjgCGS7q03QMpYvXDPqT8CTtUX6JjCyaNBzbaR5EQsZtMY3mdbLYsff4 +Q1owCS59Hk1vNWQRc07mfqT8ifZ7RMpcFgOXtKREhZLAV7BBKT1IFh0U7BLC +w0gwqMiuOt4gi2Ojspcbj5CwaaBrYaJNFnMDf76xiyJhK89ii709sjjn/UH4 +FWVPh6Dn8EEWaWXtRl+OkmB+lBETu4RA/SOmTSPRJDwWqr+qJ0BQ9et8zPU4 +CduKndq+CRJ4MIBQfErZtTNF2INGYNvjSudbMSSEyM5cNVEmcI3rH6XNcSRM +305t+6VOoGLDZOJVylGWyuPcjQT+WuP/4g/lhFB3HaYxgUu13vrfjCdBYOm8 +ywtTAllKrtf/UE69nBmTbkFgV9iOYdsTJFxu7mjjtSdQ6naH+XvKsju9x2t3 +EGgw1HZo/UkSisf+Ch9yIbCvY0teAOXKNdqu7z0J7D47NfEf5Y03nsbk+BFI +Sy8UZyWQUGvsX7w9kMCr5KixK+UW3/zx5ggC97Zsv9BI2eq3vsixowTmtgs0 +T1DuSu3V2RhLoI7I4em1iSQ4yge7jp0kcPlvLxVTys9rlscWn6LWm5/j50t5 +z9biYrdzBO7qHL1xivLIsHG7WAaBZ4VFpsoo7498Pv7kEoHelf9tekh5YkWY +SEIuNZ8ig7whyocKBHXZhQTeyOvhmaY8u/G663QJgX9XxQbyJ1H53m4We+sG +gdXCIh9olPn2DBV7VxLIG7fTT4Fy8vfD7TJVBGZ9kpvdQFkwSXSir5qK1+nN +mXqUM6QqRM7dJ1DF7TyyKdM4lrrmTQRW8PfOGVO+sum9659WAiPHR1v+/575 +PDr27mMC1aRy8/UplwXSSoK6CRx1bEvRpKzKe7tdoY/ANCGT04qUyYu2E0PP +CYwJfZUjRVlP+ZPIpSEC++1D/1lB+X5DvK7dewIF9QbmZ6n1mTrKuC37RKC7 +66jNe8qPPt2LbRgj0LwokuygvCXaoSRyksCfhV4bKin3CI+3q88QOHAlqTWV +snNp0sTHOQLHEuvCgym/MmCKFvwl0G/+pbEN5X1P63V3LmbgCvOHTBblgNnJ +2LZVDMwd8THupPbXINRHfFSEgaMc5+3ZlPk/vyjnozHwol7ykn2US1429xsz +GZgsI2P+/3wKc9QLcFvHwN+iD/qvUTbtvLkoSoWBWTMSyz0pDz3IVLmjw8D6 +siPOT6l8vakr0NRjyMARm4fhsZSjOMedvyED38faG6hRFi/yjVe2YaC05P3a +GCr/7RL0Bwv3MnBydGXNXCwJ9D+3Ahu8GDh9O359GuWxCCbf6/3UeOMHrViU +k/1WqNHCGAjrQnKRqsdGm9cnziUzUHv7k0p7qp7PtdivvXmWgfeE/tR3HqPO +K3ZrRXs6A9mRUifMKf9Sq3y++AoDRRfeGatR54GmSJz6US4D45KsLvYfJoEn +Zbol6y4D3+08fkaPchefv8vdOgYO92zefCmShAPTDgmTDxlYOBjMZxNB1eMg +66XvC2q9yzN6Uw6RcNA+OyThDQPzzWsX9R4kATtWLb06wkBlE7t5GuXXdTMb +hiYY+EWsYWd2CBWP/LZERz4m+kV3vDkUSNWPBFv6ID8TFb2DMooCqPxK5XLP +r2Ji35mzMl0HqHjFX37VIcFE31mHWinqfE32DtA0UWHixOpa/TQfan3Kq4dU +dzDRH/aHjO4hYeaKZJyWCxNtiio+f9xNwpSQPEt/LxOvvr8RMOpG1eMPff9N ++5nIk9Z85oULCcN1njMu0Ux8IXDUPZ/qHx029wSTS5hoy2cdkkv1n0f3/+Ge +vcFEj1+dv4Oo/tSi/sQxo5KJyzxMSoxtSHgg+u5yXg0TlRMl7fosqfm/FFh3 +p5OJBE+V0lsz6nw7sAeGp5nYFenNCqT64aXXfsMf55j4vcFxhYgeCRfsDiWM +/2ViqBq/XBXVT89pJT+eXS6HtH8Xf/6qRUL8PNdZiC6HE3nh85vVqP1IWRJi +ZC6H/na8zoFMEozKbxZcvCiH0Tu695H8JLwkyvM358jhzb+nnGWWUfl48Xre +VL4c7nlgwZO4hOqvcaW5Dtfl0PWX7cFtvFQ+7CzIEqyXQ2VLwdn2eS6sX3Ih +NfGdHF5wbEraNkHdZ/YejY1QYaGK1caq28+4cKf3SIy8BgtveSy4DTzlgqP1 +4eO92iwM7989NNvJhXTt8GOawEK59JRg7Q4urFoZfHjCnoX7luqPXWjiwuKa +fSE+kSwsvlPlOEFyYVLE2t2piYXvZiLooulcGAxgdvs/YiHkV0m0nudCY+sc +xDxh4Zeef6oiznIhNapctqyfhUFB+952J3Nhw/DKN78+sxCLQxX3U/evIO7T +3VdE5VGRdO1RCuDCZ7sdriNe8qjOyrZbMOPCyBl3p4PLFHDtrZ+12uMcsPoa +afVBZx0WCrmVlehwYMyT/1BVjCIm3b8isbmygvo/kOBNalqPpz0VOmJ7boJI +p8I5zlclHIqb5gtcuAHSyZXbdHRU8OvwjDjvZBlkKeuvFvVVRaSnZyUvugYd +kibaP9LUUHdmScVHmRIwkG5KVe9Xx+tREo1Lpa6CIF9RmEf8Bvy+KuxDiVUh +0ONkjXYpaGC5/tEPHl15sFze7a7DIw388ezjTtFtOaDGXlsZuVsTX+l3JYyb +ZsHBIZFmax4tnPDJ767WyISvP87ssMrSwhl5+tPZ1HSwUG+9bKW6EVkMZtYJ +nVR48MNw/mfXRlz4Z/oLX3cKBKlovnjmrY05ivahcdNJwJ7w6t21XAdjDiys +d8WTsJlFs11VpIM0oeHLVzbGgWLs6cNNuroYe0JsYa9SNCh56zfIv9DFflZ/ +6FH9w+D9wO9kVageiubcO92PYdBQ0Os1uUYfXYKkrS9nhMBU2d+f6vf0Ub+w +PrdX6ACMOpkXnKrRx/WlP4sE5v1hcPFZy/d1+njGO9x666g/1LlLZl9s1Eed +yVGPP/X+EE/TNlho18cY4/s/eA74w+pk/2Mdr/TxwhEP7qn2/aDi28fjzWuA +NpDvFpXqB57y5csv2xrgI2dLO69NPhD1cI+/wjYD9OTHjw4aPpDqLfKYdDDA +sIKsdDu6D9SXHDnz2NkA5ad6eA/NeoOYgqXQgocBFjl1eHvc8oZWhQ9i7hEG +GBu/idG31huUFGUJhXwDrL424vj2tydMKmXokN8MMH6P5b3O/zxg8AluFv1B ++cniB4IvPaAxaGJ72LQBMisTdrg88YBzpFWozpwBGjedoAtXeoCSAc/NWj5D +1NlMBv0O84B9VoGMZnFD/F3ys7GF1wN6fS1W9hoZolr8Yr/v8u5QXTz/bjrZ +EAts4fS0yG7QMQv7aZ1iiF6pZmFDc25w593YyoKzhmi53314cNgNSPqQrnW6 +IbZ92Mjgve0GN7Maz+blGOLNDz5L5R3doOBMgr5FhSGGCnh5X812hVNhQmlZ +/xrip9BVvIYaLuCySQ4N6UaYt37dtWupzrDQyy/YTBhh2BIx/69RzlDgPfHS +Ws4IJ43xjaW3M4wm1kS6KBphBdOLs8HAGQ6221Ue0TTCL48j8ntGnOD01mP0 +anMjTEv027aD7QS1O/t+bww2wpndR+UXzzuCVGBSjVqjEba8cYtIKXWAc399 +tFOajDCuYWuZyEUH4E03535sod7ThLpKExzg890l1wvajfBadXbPtJcD1PKc +zBL51whjb0p0q7IcwOVCbOTMByNc7XlC5U+xPWTVHdF+sIKNH1PHWz5UboM1 +AgFcW2c2ygxZ3BHusYVis+iob7vYaCy9g5i5bQua0efMMtzYKHrqcet0pi1s +/cbpG/Rg4+njj0LNXWwhsX/6l2cAG8ktx6aVRrbAbFGMaVQcGyd6o5InftvA +C8OMf0vL2Xisb9eyZybW4BdenGtVwcZg5nK+aQVrmKm44z3GYeOUrzpHY6U1 +iDAHf2rcZaNJdXf3VL8V2PDLSN9vZFOVdWFFQaAV1PeWev3bx0bNvVXnj+Rb +grVgtWrEIBsPPyvLlE20hEGL9hnaSzZyKw0kXwdYwlTtl+Q9b9nY/ZTumGdg +CaqFG27995mNVj96YnQHLKD+hUnEmXE2PsyyDr70wAKsxbaD+jc2Gla5WwqW +WoBPUvizsGk2ure0BmK4BUw1Jl6WmGXjnSWemfNuFhA/d8mzdo6NPlt1dndu +soDVG6+r7F5g45Nmvtt3VCwgL7B2+u9fNprLXD5ZJWYB/wNbKgxT + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VV0XAHDRIBUZ4ma4zr0uyRgyu9ZCGZNIFCoyJmMZSslQhtJgSBGZ +Qkpx70llKl4kFMlralJJ6i2UQiL1ne+v8/ye85xn7732Wnvtw9gX7ODNy8PD +Q1/Ew/P/58xQewsrpdgYruxXuFNtatybRztiMhgP3NT/tDxVGIBrnu6jDaZD +3tLEGkMVDYjYdmOAb7AIhMV4XhMqJiA8IZH+a4CEcK+bkzPK9vCmfmvw1EAT +XPhqLRCi7AHmrM+vJwd6QFbw5LTX+lD4NaCb+W1gGLpz5ozMGHHQbHat+FnR +D9iQNc4hqtJA+k3N6D6VBch8Y/q8ayYbxAL23lhmxodJhb4DfwcKIF3DvG7r +Dn7s+h2kOtVUDM+zNjROrl6F5mpyNnXSZZBSHPOUd60wdigdjj3rVg4SF96f +yrgiiu4NWl66RAXQlO+cnC0VxdAsU2Hu+gqQbEqM2c0RRTPJbYdYWhVA/7Y+ +fF2zKD6TKbGf3VwB8ltC3Os+iWLbak8nxwMVoLV4Qee9lhi+TeTGvqqqALsw +8RHNDjE0a/rbJW9WCUmOVsY9M2uQR3UyU0uBA5JVXZK8i8Tx4JjF+0glDlSI +Ov7UWCGONpmkS7UaB/p79nDSZMWxz0i2VVWXAyz7MKa9pTgGLlU++dmCA022 ++Uu7s8Xxn735luV+HFgwn+7qNJLAq7GL8iyucSC1NKp8wVwC5VXDjq8up75f +ypOsai+Bz7M5x/sqOLDloYDJWW8J1BIrfL39LgcumxG3t5yTQPtfB4SYDzmg +hzaXHr+RQKdDryQWD3PgkH7h3vZ4Gr5N+0K+pnHBukBwyuYMDQ+P5Bh8l+IC +c9mx5K5MGqbeadzNJ8uF7l4n7r9lNHSa2hQhJc8FtZCVfENdNJyxjfvK1ODC +p9LI0u+Sa5Fn1S2e85ZccBPbOi51ey3y0te1vgzjgtbRuri8+rVYpb2u8UQk +FwSGFcUZrWuxvCPLSTGKCzWVfKDwfC3u8NHb5RvDBXGbmtQNf9di2aLo6vpT +1PhxrI2bbSQxLVhnvuUKFzZ9nYsKei+JFkr3r29p5sIRywtK/4xJYnHcd4x+ +yIWKQtUXojOSOMs5lHPjERdoju76NfxSaC5lkDP/mAtj1Q9/8qlJoeYv9ScR +vVzIiE8Nyz4shWnmRet7RrgwvEYhqGWVNM594b9N5yNBIrhBRkJCGpXBWvPT +YhK2tO3s3E9I4xbF0uiKpSTcjUpREdKSxv2lS6I0BEg4/ebb5107pfH63QUR +YWESNK/X+X4tksbdGXlrdOkkxBnZe0jqyaBe7boVDB0SLPfkfdc1lcGyOePX +RbokCMZ+ObFjiwwuIvpnCX0ScpsTSlPdZXDZuU5BESMSqq1rvyw9JYP3TBRa +H5mQ8G2nXMSP5zJ4pCHtU9wWEu5FhSwTHpFBY1pddpstCcdz72epTcggS04s +b4UdCSvfOtft56XjqfDPRYn2JKzzPcPzVomOvjLRlducSNgTPn36yVE6fh8s +99feS4L8JVPpzwl0tBGtzDNxJ6n4nb+1LJWOGjr1G6w9SIj6vb7btJiOWfk9 +ods8Scg8sWdNzRM68tWbHdPwJcGtpLy0v5+Oo6uGqwg/EpiPZnWn3tLRXdvL +fuV+EjgCGS7q03QMpYvXDPqT8CTtUX6JjCyaNBzbaR5EQsZtMY3mdbLYsff4 +Q1owCS59Hk1vNWQRc07mfqT8ifZ7RMpcFgOXtKREhZLAV7BBKT1IFh0U7BLC +w0gwqMiuOt4gi2Ojspcbj5CwaaBrYaJNFnMDf76xiyJhK89ii709sjjn/UH4 +FWVPh6Dn8EEWaWXtRl+OkmB+lBETu4RA/SOmTSPRJDwWqr+qJ0BQ9et8zPU4 +CduKndq+CRJ4MIBQfErZtTNF2INGYNvjSudbMSSEyM5cNVEmcI3rH6XNcSRM +305t+6VOoGLDZOJVylGWyuPcjQT+WuP/4g/lhFB3HaYxgUu13vrfjCdBYOm8 +ywtTAllKrtf/UE69nBmTbkFgV9iOYdsTJFxu7mjjtSdQ6naH+XvKsju9x2t3 +EGgw1HZo/UkSisf+Ch9yIbCvY0teAOXKNdqu7z0J7D47NfEf5Y03nsbk+BFI +Sy8UZyWQUGvsX7w9kMCr5KixK+UW3/zx5ggC97Zsv9BI2eq3vsixowTmtgs0 +T1DuSu3V2RhLoI7I4em1iSQ4yge7jp0kcPlvLxVTys9rlscWn6LWm5/j50t5 +z9biYrdzBO7qHL1xivLIsHG7WAaBZ4VFpsoo7498Pv7kEoHelf9tekh5YkWY +SEIuNZ8ig7whyocKBHXZhQTeyOvhmaY8u/G663QJgX9XxQbyJ1H53m4We+sG +gdXCIh9olPn2DBV7VxLIG7fTT4Fy8vfD7TJVBGZ9kpvdQFkwSXSir5qK1+nN +mXqUM6QqRM7dJ1DF7TyyKdM4lrrmTQRW8PfOGVO+sum9659WAiPHR1v+/575 +PDr27mMC1aRy8/UplwXSSoK6CRx1bEvRpKzKe7tdoY/ANCGT04qUyYu2E0PP +CYwJfZUjRVlP+ZPIpSEC++1D/1lB+X5DvK7dewIF9QbmZ6n1mTrKuC37RKC7 +66jNe8qPPt2LbRgj0LwokuygvCXaoSRyksCfhV4bKin3CI+3q88QOHAlqTWV +snNp0sTHOQLHEuvCgym/MmCKFvwl0G/+pbEN5X1P63V3LmbgCvOHTBblgNnJ +2LZVDMwd8THupPbXINRHfFSEgaMc5+3ZlPk/vyjnozHwol7ykn2US1429xsz +GZgsI2P+/3wKc9QLcFvHwN+iD/qvUTbtvLkoSoWBWTMSyz0pDz3IVLmjw8D6 +siPOT6l8vakr0NRjyMARm4fhsZSjOMedvyED38faG6hRFi/yjVe2YaC05P3a +GCr/7RL0Bwv3MnBydGXNXCwJ9D+3Ahu8GDh9O359GuWxCCbf6/3UeOMHrViU +k/1WqNHCGAjrQnKRqsdGm9cnziUzUHv7k0p7qp7PtdivvXmWgfeE/tR3HqPO +K3ZrRXs6A9mRUifMKf9Sq3y++AoDRRfeGatR54GmSJz6US4D45KsLvYfJoEn +Zbol6y4D3+08fkaPchefv8vdOgYO92zefCmShAPTDgmTDxlYOBjMZxNB1eMg +66XvC2q9yzN6Uw6RcNA+OyThDQPzzWsX9R4kATtWLb06wkBlE7t5GuXXdTMb +hiYY+EWsYWd2CBWP/LZERz4m+kV3vDkUSNWPBFv6ID8TFb2DMooCqPxK5XLP +r2Ji35mzMl0HqHjFX37VIcFE31mHWinqfE32DtA0UWHixOpa/TQfan3Kq4dU +dzDRH/aHjO4hYeaKZJyWCxNtiio+f9xNwpSQPEt/LxOvvr8RMOpG1eMPff9N ++5nIk9Z85oULCcN1njMu0Ux8IXDUPZ/qHx029wSTS5hoy2cdkkv1n0f3/+Ge +vcFEj1+dv4Oo/tSi/sQxo5KJyzxMSoxtSHgg+u5yXg0TlRMl7fosqfm/FFh3 +p5OJBE+V0lsz6nw7sAeGp5nYFenNCqT64aXXfsMf55j4vcFxhYgeCRfsDiWM +/2ViqBq/XBXVT89pJT+eXS6HtH8Xf/6qRUL8PNdZiC6HE3nh85vVqP1IWRJi +ZC6H/na8zoFMEozKbxZcvCiH0Tu695H8JLwkyvM358jhzb+nnGWWUfl48Xre +VL4c7nlgwZO4hOqvcaW5Dtfl0PWX7cFtvFQ+7CzIEqyXQ2VLwdn2eS6sX3Ih +NfGdHF5wbEraNkHdZ/YejY1QYaGK1caq28+4cKf3SIy8BgtveSy4DTzlgqP1 +4eO92iwM7989NNvJhXTt8GOawEK59JRg7Q4urFoZfHjCnoX7luqPXWjiwuKa +fSE+kSwsvlPlOEFyYVLE2t2piYXvZiLooulcGAxgdvs/YiHkV0m0nudCY+sc +xDxh4Zeef6oiznIhNapctqyfhUFB+952J3Nhw/DKN78+sxCLQxX3U/evIO7T +3VdE5VGRdO1RCuDCZ7sdriNe8qjOyrZbMOPCyBl3p4PLFHDtrZ+12uMcsPoa +afVBZx0WCrmVlehwYMyT/1BVjCIm3b8isbmygvo/kOBNalqPpz0VOmJ7boJI +p8I5zlclHIqb5gtcuAHSyZXbdHRU8OvwjDjvZBlkKeuvFvVVRaSnZyUvugYd +kibaP9LUUHdmScVHmRIwkG5KVe9Xx+tREo1Lpa6CIF9RmEf8Bvy+KuxDiVUh +0ONkjXYpaGC5/tEPHl15sFze7a7DIw388ezjTtFtOaDGXlsZuVsTX+l3JYyb +ZsHBIZFmax4tnPDJ767WyISvP87ssMrSwhl5+tPZ1HSwUG+9bKW6EVkMZtYJ +nVR48MNw/mfXRlz4Z/oLX3cKBKlovnjmrY05ivahcdNJwJ7w6t21XAdjDiys +d8WTsJlFs11VpIM0oeHLVzbGgWLs6cNNuroYe0JsYa9SNCh56zfIv9DFflZ/ +6FH9w+D9wO9kVageiubcO92PYdBQ0Os1uUYfXYKkrS9nhMBU2d+f6vf0Ub+w +PrdX6ACMOpkXnKrRx/WlP4sE5v1hcPFZy/d1+njGO9x666g/1LlLZl9s1Eed +yVGPP/X+EE/TNlho18cY4/s/eA74w+pk/2Mdr/TxwhEP7qn2/aDi28fjzWuA +NpDvFpXqB57y5csv2xrgI2dLO69NPhD1cI+/wjYD9OTHjw4aPpDqLfKYdDDA +sIKsdDu6D9SXHDnz2NkA5ad6eA/NeoOYgqXQgocBFjl1eHvc8oZWhQ9i7hEG +GBu/idG31huUFGUJhXwDrL424vj2tydMKmXokN8MMH6P5b3O/zxg8AluFv1B ++cniB4IvPaAxaGJ72LQBMisTdrg88YBzpFWozpwBGjedoAtXeoCSAc/NWj5D +1NlMBv0O84B9VoGMZnFD/F3ys7GF1wN6fS1W9hoZolr8Yr/v8u5QXTz/bjrZ +EAts4fS0yG7QMQv7aZ1iiF6pZmFDc25w593YyoKzhmi53314cNgNSPqQrnW6 +IbZ92Mjgve0GN7Maz+blGOLNDz5L5R3doOBMgr5FhSGGCnh5X812hVNhQmlZ +/xrip9BVvIYaLuCySQ4N6UaYt37dtWupzrDQyy/YTBhh2BIx/69RzlDgPfHS +Ws4IJ43xjaW3M4wm1kS6KBphBdOLs8HAGQ6221Ue0TTCL48j8ntGnOD01mP0 +anMjTEv027aD7QS1O/t+bww2wpndR+UXzzuCVGBSjVqjEba8cYtIKXWAc399 +tFOajDCuYWuZyEUH4E03535sod7ThLpKExzg890l1wvajfBadXbPtJcD1PKc +zBL51whjb0p0q7IcwOVCbOTMByNc7XlC5U+xPWTVHdF+sIKNH1PHWz5UboM1 +AgFcW2c2ygxZ3BHusYVis+iob7vYaCy9g5i5bQua0efMMtzYKHrqcet0pi1s +/cbpG/Rg4+njj0LNXWwhsX/6l2cAG8ktx6aVRrbAbFGMaVQcGyd6o5InftvA +C8OMf0vL2Xisb9eyZybW4BdenGtVwcZg5nK+aQVrmKm44z3GYeOUrzpHY6U1 +iDAHf2rcZaNJdXf3VL8V2PDLSN9vZFOVdWFFQaAV1PeWev3bx0bNvVXnj+Rb +grVgtWrEIBsPPyvLlE20hEGL9hnaSzZyKw0kXwdYwlTtl+Q9b9nY/ZTumGdg +CaqFG27995mNVj96YnQHLKD+hUnEmXE2PsyyDr70wAKsxbaD+jc2Gla5WwqW +WoBPUvizsGk2ure0BmK4BUw1Jl6WmGXjnSWemfNuFhA/d8mzdo6NPlt1dndu +soDVG6+r7F5g45Nmvtt3VCwgL7B2+u9fNprLXD5ZJWYB/wNbKgxT + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0723761904119182}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0723761904119182}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VV0XAHDRIBUZ4ma4zr0uyRgyu9ZCGZNIFCoyJmMZSslQhtJgSBGZ +Qkpx70llKl4kFMlralJJ6i2UQiL1ne+v8/ye85xn7732Wnvtw9gX7ODNy8PD +Q1/Ew/P/58xQewsrpdgYruxXuFNtatybRztiMhgP3NT/tDxVGIBrnu6jDaZD +3tLEGkMVDYjYdmOAb7AIhMV4XhMqJiA8IZH+a4CEcK+bkzPK9vCmfmvw1EAT +XPhqLRCi7AHmrM+vJwd6QFbw5LTX+lD4NaCb+W1gGLpz5ozMGHHQbHat+FnR +D9iQNc4hqtJA+k3N6D6VBch8Y/q8ayYbxAL23lhmxodJhb4DfwcKIF3DvG7r +Dn7s+h2kOtVUDM+zNjROrl6F5mpyNnXSZZBSHPOUd60wdigdjj3rVg4SF96f +yrgiiu4NWl66RAXQlO+cnC0VxdAsU2Hu+gqQbEqM2c0RRTPJbYdYWhVA/7Y+ +fF2zKD6TKbGf3VwB8ltC3Os+iWLbak8nxwMVoLV4Qee9lhi+TeTGvqqqALsw +8RHNDjE0a/rbJW9WCUmOVsY9M2uQR3UyU0uBA5JVXZK8i8Tx4JjF+0glDlSI +Ov7UWCGONpmkS7UaB/p79nDSZMWxz0i2VVWXAyz7MKa9pTgGLlU++dmCA022 ++Uu7s8Xxn735luV+HFgwn+7qNJLAq7GL8iyucSC1NKp8wVwC5VXDjq8up75f +ypOsai+Bz7M5x/sqOLDloYDJWW8J1BIrfL39LgcumxG3t5yTQPtfB4SYDzmg +hzaXHr+RQKdDryQWD3PgkH7h3vZ4Gr5N+0K+pnHBukBwyuYMDQ+P5Bh8l+IC +c9mx5K5MGqbeadzNJ8uF7l4n7r9lNHSa2hQhJc8FtZCVfENdNJyxjfvK1ODC +p9LI0u+Sa5Fn1S2e85ZccBPbOi51ey3y0te1vgzjgtbRuri8+rVYpb2u8UQk +FwSGFcUZrWuxvCPLSTGKCzWVfKDwfC3u8NHb5RvDBXGbmtQNf9di2aLo6vpT +1PhxrI2bbSQxLVhnvuUKFzZ9nYsKei+JFkr3r29p5sIRywtK/4xJYnHcd4x+ +yIWKQtUXojOSOMs5lHPjERdoju76NfxSaC5lkDP/mAtj1Q9/8qlJoeYv9ScR +vVzIiE8Nyz4shWnmRet7RrgwvEYhqGWVNM594b9N5yNBIrhBRkJCGpXBWvPT +YhK2tO3s3E9I4xbF0uiKpSTcjUpREdKSxv2lS6I0BEg4/ebb5107pfH63QUR +YWESNK/X+X4tksbdGXlrdOkkxBnZe0jqyaBe7boVDB0SLPfkfdc1lcGyOePX +RbokCMZ+ObFjiwwuIvpnCX0ScpsTSlPdZXDZuU5BESMSqq1rvyw9JYP3TBRa +H5mQ8G2nXMSP5zJ4pCHtU9wWEu5FhSwTHpFBY1pddpstCcdz72epTcggS04s +b4UdCSvfOtft56XjqfDPRYn2JKzzPcPzVomOvjLRlducSNgTPn36yVE6fh8s +99feS4L8JVPpzwl0tBGtzDNxJ6n4nb+1LJWOGjr1G6w9SIj6vb7btJiOWfk9 +ods8Scg8sWdNzRM68tWbHdPwJcGtpLy0v5+Oo6uGqwg/EpiPZnWn3tLRXdvL +fuV+EjgCGS7q03QMpYvXDPqT8CTtUX6JjCyaNBzbaR5EQsZtMY3mdbLYsff4 +Q1owCS59Hk1vNWQRc07mfqT8ifZ7RMpcFgOXtKREhZLAV7BBKT1IFh0U7BLC +w0gwqMiuOt4gi2Ojspcbj5CwaaBrYaJNFnMDf76xiyJhK89ii709sjjn/UH4 +FWVPh6Dn8EEWaWXtRl+OkmB+lBETu4RA/SOmTSPRJDwWqr+qJ0BQ9et8zPU4 +CduKndq+CRJ4MIBQfErZtTNF2INGYNvjSudbMSSEyM5cNVEmcI3rH6XNcSRM +305t+6VOoGLDZOJVylGWyuPcjQT+WuP/4g/lhFB3HaYxgUu13vrfjCdBYOm8 +ywtTAllKrtf/UE69nBmTbkFgV9iOYdsTJFxu7mjjtSdQ6naH+XvKsju9x2t3 +EGgw1HZo/UkSisf+Ch9yIbCvY0teAOXKNdqu7z0J7D47NfEf5Y03nsbk+BFI +Sy8UZyWQUGvsX7w9kMCr5KixK+UW3/zx5ggC97Zsv9BI2eq3vsixowTmtgs0 +T1DuSu3V2RhLoI7I4em1iSQ4yge7jp0kcPlvLxVTys9rlscWn6LWm5/j50t5 +z9biYrdzBO7qHL1xivLIsHG7WAaBZ4VFpsoo7498Pv7kEoHelf9tekh5YkWY +SEIuNZ8ig7whyocKBHXZhQTeyOvhmaY8u/G663QJgX9XxQbyJ1H53m4We+sG +gdXCIh9olPn2DBV7VxLIG7fTT4Fy8vfD7TJVBGZ9kpvdQFkwSXSir5qK1+nN +mXqUM6QqRM7dJ1DF7TyyKdM4lrrmTQRW8PfOGVO+sum9659WAiPHR1v+/575 +PDr27mMC1aRy8/UplwXSSoK6CRx1bEvRpKzKe7tdoY/ANCGT04qUyYu2E0PP +CYwJfZUjRVlP+ZPIpSEC++1D/1lB+X5DvK7dewIF9QbmZ6n1mTrKuC37RKC7 +66jNe8qPPt2LbRgj0LwokuygvCXaoSRyksCfhV4bKin3CI+3q88QOHAlqTWV +snNp0sTHOQLHEuvCgym/MmCKFvwl0G/+pbEN5X1P63V3LmbgCvOHTBblgNnJ +2LZVDMwd8THupPbXINRHfFSEgaMc5+3ZlPk/vyjnozHwol7ykn2US1429xsz +GZgsI2P+/3wKc9QLcFvHwN+iD/qvUTbtvLkoSoWBWTMSyz0pDz3IVLmjw8D6 +siPOT6l8vakr0NRjyMARm4fhsZSjOMedvyED38faG6hRFi/yjVe2YaC05P3a +GCr/7RL0Bwv3MnBydGXNXCwJ9D+3Ahu8GDh9O359GuWxCCbf6/3UeOMHrViU +k/1WqNHCGAjrQnKRqsdGm9cnziUzUHv7k0p7qp7PtdivvXmWgfeE/tR3HqPO +K3ZrRXs6A9mRUifMKf9Sq3y++AoDRRfeGatR54GmSJz6US4D45KsLvYfJoEn +Zbol6y4D3+08fkaPchefv8vdOgYO92zefCmShAPTDgmTDxlYOBjMZxNB1eMg +66XvC2q9yzN6Uw6RcNA+OyThDQPzzWsX9R4kATtWLb06wkBlE7t5GuXXdTMb +hiYY+EWsYWd2CBWP/LZERz4m+kV3vDkUSNWPBFv6ID8TFb2DMooCqPxK5XLP +r2Ji35mzMl0HqHjFX37VIcFE31mHWinqfE32DtA0UWHixOpa/TQfan3Kq4dU +dzDRH/aHjO4hYeaKZJyWCxNtiio+f9xNwpSQPEt/LxOvvr8RMOpG1eMPff9N ++5nIk9Z85oULCcN1njMu0Ux8IXDUPZ/qHx029wSTS5hoy2cdkkv1n0f3/+Ge +vcFEj1+dv4Oo/tSi/sQxo5KJyzxMSoxtSHgg+u5yXg0TlRMl7fosqfm/FFh3 +p5OJBE+V0lsz6nw7sAeGp5nYFenNCqT64aXXfsMf55j4vcFxhYgeCRfsDiWM +/2ViqBq/XBXVT89pJT+eXS6HtH8Xf/6qRUL8PNdZiC6HE3nh85vVqP1IWRJi +ZC6H/na8zoFMEozKbxZcvCiH0Tu695H8JLwkyvM358jhzb+nnGWWUfl48Xre +VL4c7nlgwZO4hOqvcaW5Dtfl0PWX7cFtvFQ+7CzIEqyXQ2VLwdn2eS6sX3Ih +NfGdHF5wbEraNkHdZ/YejY1QYaGK1caq28+4cKf3SIy8BgtveSy4DTzlgqP1 +4eO92iwM7989NNvJhXTt8GOawEK59JRg7Q4urFoZfHjCnoX7luqPXWjiwuKa +fSE+kSwsvlPlOEFyYVLE2t2piYXvZiLooulcGAxgdvs/YiHkV0m0nudCY+sc +xDxh4Zeef6oiznIhNapctqyfhUFB+952J3Nhw/DKN78+sxCLQxX3U/evIO7T +3VdE5VGRdO1RCuDCZ7sdriNe8qjOyrZbMOPCyBl3p4PLFHDtrZ+12uMcsPoa +afVBZx0WCrmVlehwYMyT/1BVjCIm3b8isbmygvo/kOBNalqPpz0VOmJ7boJI +p8I5zlclHIqb5gtcuAHSyZXbdHRU8OvwjDjvZBlkKeuvFvVVRaSnZyUvugYd +kibaP9LUUHdmScVHmRIwkG5KVe9Xx+tREo1Lpa6CIF9RmEf8Bvy+KuxDiVUh +0ONkjXYpaGC5/tEPHl15sFze7a7DIw388ezjTtFtOaDGXlsZuVsTX+l3JYyb +ZsHBIZFmax4tnPDJ767WyISvP87ssMrSwhl5+tPZ1HSwUG+9bKW6EVkMZtYJ +nVR48MNw/mfXRlz4Z/oLX3cKBKlovnjmrY05ivahcdNJwJ7w6t21XAdjDiys +d8WTsJlFs11VpIM0oeHLVzbGgWLs6cNNuroYe0JsYa9SNCh56zfIv9DFflZ/ +6FH9w+D9wO9kVageiubcO92PYdBQ0Os1uUYfXYKkrS9nhMBU2d+f6vf0Ub+w +PrdX6ACMOpkXnKrRx/WlP4sE5v1hcPFZy/d1+njGO9x666g/1LlLZl9s1Eed +yVGPP/X+EE/TNlho18cY4/s/eA74w+pk/2Mdr/TxwhEP7qn2/aDi28fjzWuA +NpDvFpXqB57y5csv2xrgI2dLO69NPhD1cI+/wjYD9OTHjw4aPpDqLfKYdDDA +sIKsdDu6D9SXHDnz2NkA5ad6eA/NeoOYgqXQgocBFjl1eHvc8oZWhQ9i7hEG +GBu/idG31huUFGUJhXwDrL424vj2tydMKmXokN8MMH6P5b3O/zxg8AluFv1B ++cniB4IvPaAxaGJ72LQBMisTdrg88YBzpFWozpwBGjedoAtXeoCSAc/NWj5D +1NlMBv0O84B9VoGMZnFD/F3ys7GF1wN6fS1W9hoZolr8Yr/v8u5QXTz/bjrZ +EAts4fS0yG7QMQv7aZ1iiF6pZmFDc25w593YyoKzhmi53314cNgNSPqQrnW6 +IbZ92Mjgve0GN7Maz+blGOLNDz5L5R3doOBMgr5FhSGGCnh5X812hVNhQmlZ +/xrip9BVvIYaLuCySQ4N6UaYt37dtWupzrDQyy/YTBhh2BIx/69RzlDgPfHS +Ws4IJ43xjaW3M4wm1kS6KBphBdOLs8HAGQ6221Ue0TTCL48j8ntGnOD01mP0 +anMjTEv027aD7QS1O/t+bww2wpndR+UXzzuCVGBSjVqjEba8cYtIKXWAc399 +tFOajDCuYWuZyEUH4E03535sod7ThLpKExzg890l1wvajfBadXbPtJcD1PKc +zBL51whjb0p0q7IcwOVCbOTMByNc7XlC5U+xPWTVHdF+sIKNH1PHWz5UboM1 +AgFcW2c2ygxZ3BHusYVis+iob7vYaCy9g5i5bQua0efMMtzYKHrqcet0pi1s +/cbpG/Rg4+njj0LNXWwhsX/6l2cAG8ktx6aVRrbAbFGMaVQcGyd6o5InftvA +C8OMf0vL2Xisb9eyZybW4BdenGtVwcZg5nK+aQVrmKm44z3GYeOUrzpHY6U1 +iDAHf2rcZaNJdXf3VL8V2PDLSN9vZFOVdWFFQaAV1PeWev3bx0bNvVXnj+Rb +grVgtWrEIBsPPyvLlE20hEGL9hnaSzZyKw0kXwdYwlTtl+Q9b9nY/ZTumGdg +CaqFG27995mNVj96YnQHLKD+hUnEmXE2PsyyDr70wAKsxbaD+jc2Gla5WwqW +WoBPUvizsGk2ure0BmK4BUw1Jl6WmGXjnSWemfNuFhA/d8mzdo6NPlt1dndu +soDVG6+r7F5g45Nmvtt3VCwgL7B2+u9fNprLXD5ZJWYB/wNbKgxT + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0723761904119182}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.0723761904119182}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994259328055819*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"60095a5b-54ee-4bdb-9c7f-ac85da36b39e"] +}, Open ]], Cell[CellGroupData[{ @@ -11197,26 +11795,30 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], - ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -11238,66 +11840,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[199]:=",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], + "In[121]:=",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 199, 165, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331752212366*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.3698882181485628`*^-149\\\", \ +RowBox[{\\\"192330073695578600598678\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"112\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 45, + 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331752212366*^9, 3.994259328109952*^9}, CellLabel-> "During evaluation of \ -In[199]:=",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], +In[121]:=",ExpressionUUID->"71576632-3f9d-4ad7-bbe2-8837802b2f36"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 199, 166, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133175222237*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.107504981505128`*^-152\\\", \ +RowBox[{\\\"692388265304082962155241\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"115\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 46, + 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331752212366*^9, 3.994259328119301*^9}, CellLabel-> "During evaluation of \ -In[199]:=",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], +In[121]:=",ExpressionUUID->"8f6da85b-c7ac-41e0-abf9-695b8f4a5333"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ -\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ -2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 199, 167, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317522303677`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2316039330487724`*^-154\\\", \ +RowBox[{\\\"257637673519649270217965\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"119\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 47, + 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331752212366*^9, 3.994259328129922*^9}, CellLabel-> "During evaluation of \ -In[199]:=",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], +In[121]:=",ExpressionUUID->"e8595032-0034-4f74-8e73-09b1777a21e1"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 199, 168, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331752237467*^9}, +during this calculation.\"", 2, 121, 48, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331752212366*^9, 3.994259328137876*^9}, CellLabel-> "During evaluation of \ -In[199]:=",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], +In[121]:=",ExpressionUUID->"4fcb1de5-3bad-401d-a463-cda0caec531a"], -Cell[BoxData["9.779568499633264`"], "Output", - CellChangeTimes->{3.991331759108553*^9}, +Cell[BoxData["10.807402699358427`"], "Output", + CellChangeTimes->{3.991331759108553*^9, 3.9942594227626543`*^9}, CellLabel-> - "Out[199]=",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] + "Out[121]=",ExpressionUUID->"3d3f1223-278d-4965-95e6-d98acafc8e6c"] }, Open ]], Cell[CellGroupData[{ @@ -11364,68 +11973,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849016830597*^9, - 3.991849020984995*^9}},ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-\ -7a397847208f"], + CellChangeTimes->{{3.991849016830597*^9, 3.991849020984995*^9}}, + CellLabel-> + "In[122]:=",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 200, - 169, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317591425533`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.381306878788775`*^-219\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 122, 49, + 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317591425533`*^9, 3.994259422814683*^9}, CellLabel-> "During evaluation of \ -In[200]:=",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], +In[122]:=",ExpressionUUID->"710ef4cd-7554-42e7-8396-0462646fbce7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 200, - 170, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317591525517`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.6644176381063034`*^-225\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 122, 50, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317591425533`*^9, 3.994259422823934*^9}, CellLabel-> "During evaluation of \ -In[200]:=",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], +In[122]:=",ExpressionUUID->"0d4f03c1-63ca-495e-a87e-0e607f44e15b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 200, 171, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331759160553*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.5750874940806085`*^-230\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 122, 51, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317591425533`*^9, 3.994259422833291*^9}, CellLabel-> "During evaluation of \ -In[200]:=",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], +In[122]:=",ExpressionUUID->"bfa7149c-24dc-4e04-bfeb-1128159cc5bd"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 200, 172, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317591685543`*^9}, +during this calculation.\"", 2, 122, 52, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317591425533`*^9, 3.994259422841063*^9}, CellLabel-> "During evaluation of \ -In[200]:=",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], +In[122]:=",ExpressionUUID->"154bdcbf-b3f3-4a24-9dcc-72c08db26a9f"], -Cell[BoxData["1.044718879268698`"], "Output", - CellChangeTimes->{3.991331766558941*^9}, +Cell[BoxData["0.08167600298963731`"], "Output", + CellChangeTimes->{3.991331766558941*^9, 3.994259433895711*^9}, CellLabel-> - "Out[200]=",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] + "Out[122]=",ExpressionUUID->"3334f8cf-dc31-4317-8b60-6563e3ab9e11"] }, Open ]], Cell[CellGroupData[{ @@ -11446,8 +12060,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -11492,68 +12105,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849024657757*^9, - 3.991849027138817*^9}},ExpressionUUID->"22b50200-0b82-dc47-9932-\ -f1f0210d6caf"], + CellChangeTimes->{{3.991849024657757*^9, 3.991849027138817*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 201, - 173, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317665951805`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.381306878788775`*^-219\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 53, + 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317665951805`*^9, 3.9942594339459543`*^9}, CellLabel-> "During evaluation of \ -In[201]:=",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], +In[123]:=",ExpressionUUID->"a63e5ad3-830c-4271-be22-c6213bc53642"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 201, - 174, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317666041794`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.6644176381063034`*^-225\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 123, 54, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317665951805`*^9, 3.994259433954823*^9}, CellLabel-> "During evaluation of \ -In[201]:=",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], +In[123]:=",ExpressionUUID->"9586d468-a2ad-41a0-9d8a-190209d704b5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 201, 175, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317666131783`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.5750874940806085`*^-230\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 123, 55, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317665951805`*^9, 3.994259433966412*^9}, CellLabel-> "During evaluation of \ -In[201]:=",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], +In[123]:=",ExpressionUUID->"2f973a50-c7c8-48fa-b4f5-b5acea92b30b"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 201, 176, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317666211815`*^9}, +during this calculation.\"", 2, 123, 56, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317665951805`*^9, 3.994259433975079*^9}, CellLabel-> "During evaluation of \ -In[201]:=",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], +In[123]:=",ExpressionUUID->"96e2aa3f-296d-4814-8e2e-7bd9b4d319ec"], -Cell[BoxData["4.7987767072565894`"], "Output", - CellChangeTimes->{3.991331773590704*^9}, +Cell[BoxData["30.14237720337411`"], "Output", + CellChangeTimes->{3.991331773590704*^9, 3.9942594446396523`*^9}, CellLabel-> - "Out[201]=",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] + "Out[123]=",ExpressionUUID->"5c10f584-4a64-467a-aa7d-8738184e7a42"] }, Open ]], Cell[CellGroupData[{ @@ -11574,8 +12192,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -11620,68 +12237,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849031047804*^9, - 3.9918490341764317`*^9}},ExpressionUUID->"8a5105db-666c-444e-9451-\ -d3e8d1574bcd"], + CellChangeTimes->{{3.991849031047804*^9, 3.9918490341764317`*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 202, - 177, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317736257057`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.381306878788775`*^-219\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 57, + 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317736257057`*^9, 3.9942594446885767`*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], +In[124]:=",ExpressionUUID->"6e8693d4-aaa8-4174-ba06-db93d9d3365d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 202, - 178, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317736361847`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.6644176381063034`*^-225\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 124, 58, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317736257057`*^9, 3.994259444698077*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], +In[124]:=",ExpressionUUID->"5ce42240-2946-4636-bff0-89593d560897"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 202, 179, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331773644182*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.5750874940806085`*^-230\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 124, 59, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317736257057`*^9, 3.9942594447086563`*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], +In[124]:=",ExpressionUUID->"930abb54-9b01-49d1-8153-d9b25cb10f3d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 202, 180, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331773653183*^9}, +during this calculation.\"", 2, 124, 60, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317736257057`*^9, 3.9942594447177687`*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], +In[124]:=",ExpressionUUID->"72342c05-b2ba-4be2-948d-db1d800d766b"], -Cell[BoxData["15.12281532960454`"], "Output", - CellChangeTimes->{3.991331777337887*^9}, +Cell[BoxData["3.8236327612206646`"], "Output", + CellChangeTimes->{3.991331777337887*^9, 3.994259453531801*^9}, CellLabel-> - "Out[202]=",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] + "Out[124]=",ExpressionUUID->"521f30c7-1787-4abb-b6fb-cae1e11de566"] }, Open ]], Cell[CellGroupData[{ @@ -11690,22 +12312,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918490375675926`*^9, - 3.991849040901537*^9}},ExpressionUUID->"d0efa798-230b-fa46-b413-\ -76bfd8e40ccb"], - -Cell[BoxData["0.12263596348954131`"], "Output", - CellChangeTimes->{3.9913317773679104`*^9}, + CellChangeTimes->{{3.9918490375675926`*^9, 3.991849040901537*^9}}, CellLabel-> - "Out[203]=",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] + "In[125]:=",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], + +Cell[BoxData["0.0076079498154381035`"], "Output", + CellChangeTimes->{3.9913317773679104`*^9, 3.994259453576037*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"ef749f33-0e38-497b-83c4-3c713fdc3f9f"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918490438339844`*^9, 3.991849046673996*^9}, - 3.9919249287922287`*^9},ExpressionUUID->"f842f74e-f562-934a-9011-\ -6604b8708636"], + 3.9919249287922287`*^9}, + CellLabel-> + "In[126]:=",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], Cell[CellGroupData[{ @@ -11728,12 +12351,12 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[205]:=",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], + "In[127]:=",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], -Cell[BoxData["12.368532070745184`"], "Output", - CellChangeTimes->{3.9913317774008274`*^9}, +Cell[BoxData["12.58970007186376`"], "Output", + CellChangeTimes->{3.9913317774008274`*^9, 3.994259453602565*^9}, CellLabel-> - "Out[205]=",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] + "Out[127]=",ExpressionUUID->"bb6b4795-b5d9-48d5-b074-62d44fc58890"] }, Open ]], Cell[CellGroupData[{ @@ -11743,12 +12366,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[207]:=",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], + "In[128]:=",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], -Cell[BoxData["1.0665924029125342`"], "Output", - CellChangeTimes->{3.9913317774358253`*^9}, +Cell[BoxData["1.7170416857535913`"], "Output", + CellChangeTimes->{3.9913317774358253`*^9, 3.994259453617135*^9}, CellLabel-> - "Out[207]=",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] + "Out[128]=",ExpressionUUID->"96ae6064-83b8-4a4c-87ae-a3d3a2d4a032"] }, Open ]], Cell[CellGroupData[{ @@ -11758,12 +12381,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[210]:=",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], + "In[129]:=",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], -Cell[BoxData["13.192182341836848`"], "Output", - CellChangeTimes->{3.991331777510603*^9}, +Cell[BoxData["21.61703983452506`"], "Output", + CellChangeTimes->{3.991331777510603*^9, 3.994259453630617*^9}, CellLabel-> - "Out[210]=",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] + "Out[129]=",ExpressionUUID->"5c91da84-6acf-4b9e-a56e-8a6bc23fe511"] }, Open ]], Cell[CellGroupData[{ @@ -11953,12 +12576,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[211]:=",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], + "In[130]:=",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], -Cell[BoxData["0.041096786108657246`"], "Output", - CellChangeTimes->{3.991331777537592*^9}, +Cell[BoxData["0.006875914890001051`"], "Output", + CellChangeTimes->{3.991331777537592*^9, 3.994259453648264*^9}, CellLabel-> - "Out[211]=",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] + "Out[130]=",ExpressionUUID->"57382423-0d75-4d18-bd30-63aac2927466"] }, Open ]], Cell[CellGroupData[{ @@ -11972,12 +12595,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[212]:=",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], + "In[131]:=",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], -Cell[BoxData["4.371605972693579`"], "Output", - CellChangeTimes->{3.9913317776362495`*^9}, +Cell[BoxData["10.687587774541216`"], "Output", + CellChangeTimes->{3.9913317776362495`*^9, 3.994259453848351*^9}, CellLabel-> - "Out[212]=",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] + "Out[131]=",ExpressionUUID->"e8104405-339a-40d2-92c9-0f8418a32e15"] }, Open ]], Cell[CellGroupData[{ @@ -12169,12 +12792,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[213]:=",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], + "In[132]:=",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], -Cell[BoxData["0.013804398425195999`"], "Output", - CellChangeTimes->{3.9913317776511555`*^9}, +Cell[BoxData["0.043868678303484045`"], "Output", + CellChangeTimes->{3.9913317776511555`*^9, 3.9942594538653803`*^9}, CellLabel-> - "Out[213]=",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] + "Out[132]=",ExpressionUUID->"d57703a6-6f47-46ba-84a9-f3565d8a7a42"] }, Open ]], Cell[CellGroupData[{ @@ -12188,12 +12811,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[214]:=",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], + "In[133]:=",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], -Cell[BoxData["7.5428626210616345`"], "Output", - CellChangeTimes->{3.991331777742655*^9}, +Cell[BoxData["4.231240059114894`"], "Output", + CellChangeTimes->{3.991331777742655*^9, 3.9942594540555983`*^9}, CellLabel-> - "Out[214]=",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] + "Out[133]=",ExpressionUUID->"aad42ac7-2437-42e1-b46c-8f8772e5f6b4"] }, Open ]], Cell[CellGroupData[{ @@ -12286,12 +12909,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[215]:=",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], + "In[134]:=",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.9913317777546787`*^9}, +Cell[BoxData["0.08888024365939537`"], "Output", + CellChangeTimes->{3.9913317777546787`*^9, 3.994259454071031*^9}, CellLabel-> - "Out[215]=",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] + "Out[134]=",ExpressionUUID->"a14bf408-0eaa-4cf0-8407-9959c27c6c14"] }, Open ]], Cell[CellGroupData[{ @@ -12381,12 +13004,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[216]:=",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], + "In[135]:=",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.991331777779663*^9}, +Cell[BoxData["0.9111197563406046`"], "Output", + CellChangeTimes->{3.991331777779663*^9, 3.994259454088058*^9}, CellLabel-> - "Out[216]=",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] + "Out[135]=",ExpressionUUID->"7c400711-8ef4-47a1-ba9f-e21c1a773508"] }, Open ]], Cell[CellGroupData[{ @@ -12509,12 +13132,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[217]:=",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], + "In[136]:=",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913317778036633`*^9}, +Cell[BoxData["0.0809805459464419`"], "Output", + CellChangeTimes->{3.9913317778036633`*^9, 3.9942594541057796`*^9}, CellLabel-> - "Out[217]=",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] + "Out[136]=",ExpressionUUID->"41a45df8-4b18-4126-84a5-827ef97bbd8b"] }, Open ]], Cell[CellGroupData[{ @@ -12529,30 +13152,33 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -12576,68 +13202,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918490946810665`*^9},ExpressionUUID->"1dec41a6-6752-2041-9d38-\ -804123b5ccd0"], + CellChangeTimes->{3.9918490946810665`*^9}, + CellLabel-> + "In[137]:=",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 218, 181, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317778296604`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.700636271065037`*^-213\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 137, 61, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317778296604`*^9, 3.994259454128476*^9}, CellLabel-> "During evaluation of \ -In[218]:=",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], +In[137]:=",ExpressionUUID->"35f30c70-735e-4c6a-96e7-d21012852aba"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 218, - 182, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331777838663*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.2387559230823966`*^-218\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 137, 62, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317778296604`*^9, 3.994259454138752*^9}, CellLabel-> "During evaluation of \ -In[218]:=",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], +In[137]:=",ExpressionUUID->"f499b49d-23fe-48a3-b1b3-5ca981bb7c7e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 218, - 183, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317778466587`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.834523352461881`*^-223\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 137, 63, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317778296604`*^9, 3.994259454148424*^9}, CellLabel-> "During evaluation of \ -In[218]:=",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], +In[137]:=",ExpressionUUID->"afeb81b1-af1b-47fb-af54-e2f9b3030169"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 218, 184, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331777854885*^9}, +during this calculation.\"", 2, 137, 64, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317778296604`*^9, 3.994259454158414*^9}, CellLabel-> "During evaluation of \ -In[218]:=",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], +In[137]:=",ExpressionUUID->"9b03fe87-6d74-4687-90a4-b8fa44964d4e"], -Cell[BoxData["4.37160597269358`"], "Output", - CellChangeTimes->{3.991331781456501*^9}, +Cell[BoxData["10.68758777454121`"], "Output", + CellChangeTimes->{3.991331781456501*^9, 3.99425946203082*^9}, CellLabel-> - "Out[218]=",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] + "Out[137]=",ExpressionUUID->"1450fcea-81ca-422c-9882-683aa7bf3225"] }, Open ]], Cell[CellGroupData[{ @@ -12652,30 +13282,33 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -12699,67 +13332,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.99184909912471*^9},ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], + CellChangeTimes->{3.99184909912471*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 219, 185, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331781491499*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.700636271065037`*^-213\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 138, 65, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331781491499*^9, 3.994259462079833*^9}, CellLabel-> "During evaluation of \ -In[219]:=",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], +In[138]:=",ExpressionUUID->"326e9221-2fa1-4c65-abc4-6893e78cb66b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 219, - 186, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317815004997`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.2387559230823966`*^-218\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 138, 66, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331781491499*^9, 3.9942594620878143`*^9}, CellLabel-> "During evaluation of \ -In[219]:=",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], +In[138]:=",ExpressionUUID->"99d7e370-52d6-48e0-8b6a-80a8be23c5f5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 219, - 187, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317815094967`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.834523352461881`*^-223\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 138, 67, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331781491499*^9, 3.994259462095787*^9}, CellLabel-> "During evaluation of \ -In[219]:=",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], +In[138]:=",ExpressionUUID->"d9961dc2-e815-4f17-b8f5-2f01ddb64f51"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 219, 188, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317815164986`*^9}, +during this calculation.\"", 2, 138, 68, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331781491499*^9, 3.994259462104423*^9}, CellLabel-> "During evaluation of \ -In[219]:=",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], +In[138]:=",ExpressionUUID->"96649e9f-b033-484f-b382-6cdf741d574a"], -Cell[BoxData["7.54286262106163`"], "Output", - CellChangeTimes->{3.9913317851500416`*^9}, +Cell[BoxData["4.231240059114892`"], "Output", + CellChangeTimes->{3.9913317851500416`*^9, 3.994259469849276*^9}, CellLabel-> - "Out[219]=",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] + "Out[138]=",ExpressionUUID->"63d0c43d-ff18-414d-b9ff-35f443dd8943"] }, Open ]], Cell[CellGroupData[{ @@ -12817,93 +13455,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918491043389053`*^9},ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-\ -b799ae260294"], + CellChangeTimes->{3.9918491043389053`*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS -N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS -KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 -CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ -2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ -YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP -oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R -iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx -EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 -ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 -hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF -i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn -tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc -f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 -tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py -d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z -znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw -qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I -gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA -TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge -wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo -+AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg -Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL -IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ -vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj -ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE -7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N -UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h -bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON -R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr -JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ -i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY -nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je -4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J -ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v -x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 -7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX -RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy -e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF -G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI -h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 -8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb -+cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa -5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 -qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL -+sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV -ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 -NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag -mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol -A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO -zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf -1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 -KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr -KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 -4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR -R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x -BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv -fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC -nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q -e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ -sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY -XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 -uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B -CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 -GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl -XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo -+nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb -5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb -4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz -rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw -q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS -xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 -QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI -0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 -r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= - + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk4VVsbAHCZUuGSEK6SoVCkcxCl1hsnypwic5xz9lbKPJ0QSXIrJClU +ogxJJGTWyFeSUCpxrzJ3Oma2oflb/tjPfn7Pu/c77LXXWsf0syP4+fj4uPha +vAe0am+oam/dGbYnr/9YEBftHM/VYzKKkK6fnZgPdm+Wfqoqox5Z/HBIXLQt ++7WwKP1/KGysjOmLXcqJbhBitKAXpmSiH/bZ56ufRBe+QQMiAWIB2DXtATd+ +0t6jHr2O/kBsXndz5PG6j0i5PUEsBFt+SMVlzuQ/9LQ7MzEM22Ii0jCo5TOS +cBJmhWM/+slbwSnsQ0tsnieewP4QIxtR6TuAep/0iMVgjwszeBRtCPmUWw6c +xhZO8Heizw+j7xulxM9ir5HMbAqo4yIlnS1JidjWCnP54yajKJoKSkrDJrOV +ZbRExhHrWbp4Jna0mk3c0ZYJZLRVevAW9kfZd1uCC6eQgb70hRJstrP3kUsJ +0+j+m3R2Jfbkdb6bZb4z6IV+8IWH2CLKWhJTtFlkF0cbasFOZTeYSUjPoepY +aYn32Eq3naI3z8+hrBDb5B5sg01nxn3qFlAhszV5Avuw/ucWnslP5NYwclE2 +mIsoTojg8vW/UHfdBS9l7JN1K4w0RH4jY8mEFC3sdDC469XyB3EkkrgMbHZe +EyOwcAl4ra9JDcMufH6pN0aBH9Sa10nHYU9+cY+8mMAPW/cN8FKwIzVny+/7 +CoCRfcCVEuzUknUqEzQh4B2qGxvF7m4fffQ7RwjumI6t/oWtNF3lLC4tDGPl +nAyxEC4q0rVO0ZoXhtmI61c3YzfWhC85VicCwfvkM8OwZxs6PnNNRGGQTyhH +NpSLVlqKSkQ8EoVb55rmtLF13jFAzFAMdnT03DPF9h6syN6iLQ4rDX5bhGH7 +87fo7BCVAOtU+W092EPK96bi5iRhT/HQUF0Y/j5k87I2+koIlPsY1YXNf3d4 +3eqAlVA0vCZyHluJvtaucGQlZHgW5uhyuMjZJLmstVcKdqo/yi/HbmMFBsm+ +koYPzkInGo9z0afbSec9RGTAGexduNijI4U5d3bLwP4nPzNFw7loefBAx/Yn +MnAgcL+tAzbj9AFdjwpZ6J1UOzKOXZurP1uQJQf/PL90dEskF+UOfQ/dFqwI +Ean7K/ijuWiPffynoGJFmCNzhzdjjzZKmRYPK8LaTRw/N2zd3E3SSk5roD/6 +TnwNdiPTvVxo51oQ/2P4NuQkF01P9IZxY5Wglr63/XcMF0n5MB6UWymDwomR +ALs4LhrOXX7Y1lsZFJfLpp7Drv6vXWHsjDIwOl6LNWC7WrrFrn+iDAZGn5bq +ncH9bQy1y6CpAOtoioxiPK7Puz0ZJasKDyPO3vj1Dxcd8FqhZd6nBhObW535 +ErkIhdrTDv5SA2szE0VjbM24rK1sufVwwW6YfhqbL4duHLVvPYhEVbktS+Ki +4k8uB8uerofo5qQc2Qt4fzoUxcjf2gA0zYMLJhdxfwyrDzymBhj5JjT9e5mL +cvan/TsfpQGm/a6S6le4KInZ1yt4TQMsrxD3grHZJ0NG1nRowJ7V64bE07hI +sj6Tb7+JJgQKm+82S8f/D31cs05lI8Q53G9/cZWLFJQvRJ8f3ARho0hGJJuL +6s9RGt/4taBa1N6UxHadcXpHrtOCVtuLXY3YNxpVNYzdtaBZMUYj9iYXKXvV +vl3o1IL3zeZ+gjl43qIhNfKVNqC1Eyly+VykqLCGVHLSgXzRVzuSirhoU16w +6A9Eg7L4/xndrOUiJjt2VsuaBg1RfqYS+BxKV0n55OFKA/OzyfnR2AK3Su4/ +59BAOsDQ+1A93m83eAdSSmmwpGLLH+VH+DxN98jUUKGDhrm0R+1TvL7nLbUd +hXXB/bQ/n+ZLLroZqGpb0aIHO0+FvBHt4qL2ULT1dJ4h6LFltJX4vqJ17u+t +3Y7tgL76d5LFm74i4k/lPcXjAMIGyssaXL4i2ZHqpbJMY+DeV13oSv2KgulG +/6VoMuC06c/E1raviDn2s0mKtxum9URChsR5qNg4aGlWmxl47rTM3eXEQ7mU +99Oi1L0gB1oLG3J5aGHX6teN0Rbw/vpghs0PHurhE5jq87QCf/75uU6HEeT7 +t19yjIoN1LYKhoaWjqB7R5qeXI6zhZqKyt+H5EZR+Izc/MYj+0D41NDvuOhR +NGtu6vDikB0UR1/m3JkZRYYuF3cN7dsP555V8n57j6G3cpnejfQDsP5pFuPj +pzEknx9bX6BuD+ohku2rPcdRda+mpbWYA4x8Fnje+GkcrXk36RU65gCVAi/d +gtwmEP3yxaKc3oNgUhJd7cKbQJmCM9opDY7QuUXBwcFgElXu2twdV+MEAkSG +JfPUJErfek7yZ6EzRGqLRixvmURt/+adoSe4wKvwVl8LySlUYXVd1f+kKxTm +WPnfcp1CUz77+XzZbkC9eJz29tYUmjXVODxu4g4/uxz5lb9MoYKxroUg/UPQ +bZErsVtnGjnezGO5iXqA3NseR/WgaVReZnFIIN4DDshXiZTXTCNDhbffzn7z +AE36+A/0bRqp9Hp1vzniCZPfVDrHdWfQ4IqjNtcHPOFBTpeqUeAMak+yZpnZ +M2HkUffSZ7dnUCona0VIOxNeWy+jb+uZQfWP/nxj7WXBVRsL9zxRCv3lCvH0 +WhbIfHiWOkGnkNKqF21/17NANEVyLEmXQjotVquFH7HAgPlxUEuPQnZGLnc+ +PmWBzzV2mbc+hVL/Dn114iULlIauPPtsQCH5nrt/NX1kQcfbc9lVOyik6i6b +7jrPApvQpzcUzShk6DFeEKfLBucbx+kPHSmUnzEZZK3PhuK7QdXbnCi0qmN6 +p6wBGx7zeANV2OO7598VbGeDVbOwdqkzhc8vviUtxmxQ2T6RkOVKIfF5SaeV ++9gg7xFLHPWg0GCi3rIsHzYMpOkJPvaiUFJd5JHqfDas/aaoaxdCIR9amiGn +gA0xMSeaK7Et75QuMyhkw6bOh8IKoRRanjZ8p6qYDYbN+f792HGBtrzKB2xI +SI8T8eFQKFJD9WjFMzakOvzaHhBBIe+0V8fKPrHhp0mKrV4MhfaKDxsF9rJB +91BLfBK2ehyfGK2fDXYdWqwv2MOBesWlQ2xI/0wTTj9FIU/rrLH7o2zg8vf8 +oGIp5CgU5FvynQ3jO9KuZp6hkFmQvH+RDAFn1UNt7pyn0LOsM+YpqwmYhtj4 +X9hGLdOqHHkCXrPy9+1LwOul9qrLZA0Bx95Q1+ax5TojTP5Vwz6ntBQlUWhk +W4/Mcj0CWqo8N9YkU+gCf/ZDr/0EuC97ael8Gc+/WTTdyp4AOfXeomzs0y6c +QPpBAib/88gcxuY8sN3wx5kABw/fzQFXcP/kkotXmAR8dTgiE5NGIXozk/2/ +AAKu5WQMnc+gUOdFtRUqyQT49OVss8qk0D0kdph7kYCrM8/bY7BPj1GNxZcI +kHmTKFiJTdvbGGWQRkCVxheG4g28fnysaasbBFRqjW34gm3ql93FKSIgejjT +/3A2hRQV/9HfeY+AoN2snivYVLPfJYH7BPiuPPClEfvWemSVVE5A/fC1t2tv +UuhXT8+TnFoC9KwEhN9gP7BUKGhtIqCt2rFbKYdC57/zC6U2E8AQKZTZi80s +4Hk6tRDw3eLhhD+2hGCtwmAbAS7ukpzH2MfqHC98+0CAbn1T78FcCqloXglV +HSKAbugrFppHoe+dJzq+DhMgy1aVSsdujyN0SrgEGEsYV9RgR/Xp8gxHCbjs +kdX6A7s7vcPNZoaAwEP29hH5FEpZKrk7fAkJBWmR97xuU6h+usclWIAEsZad +xWewv/QUBvoKkcCqOLM5D9voASObuYyE3mPJj3qxhz04P8wlSVgqMi5kV4D7 +t9y9crcUCZqdSMkHe/vWlRpImoTzNiMP47GTxYoc6HIkSH3bFlu3GK/9XKqw +joTmBF09xTsUIvOKmqRVSPB3az6ii52cfPzzX2q4ft2ldRbYw6SUmKAGCebv +S+TDFuNSZodHdUjoLM2gvcSu/S0VPUwjQTjs4Mn/sIe+9l7u1cXP31TfN4G9 +7Ul4wzsDEiQ/zEVIFeL9fOzemodAwpX2gVl7bHHHCL0qYxI8N/S4ENiGJnss +SxkkrC1rYwRjJ8n1H8/bQ8KoxOWsZOxqwZLkLHMSwsOYkjewByYibmdYkrCg +v0b4LrbBc+n3ibYkcEcdOA3YzNL+kXg7Egz02mZbsROvl/CfOkCCYfimuS7s +/sC9OqGOJNjnJUaPY4u5y5j5O5PQcT1RZGEx394BN29XEh6Xe69ache/v/bE +eXcPEv72rnggiV293PyWI5OE+O61e+Ww+2dlauzYJBwU9fRQwhbrG2izJEmY +ygn7vh7boOX+sOlhEsrcmLJa2MyqE7/Am4QBMaUq2mL+W+arth/D9bNLurYu +5k+U3ajnS8IzeYloo8X8nMFdm/3xfGlwG7BF2aWOGoEkhFqCHQN7q02Un0ow +CVdPi580W8y/zeKMYiiO5xbqmGMnqK3OlOWQoK2+im2JXSkxVC4ZTsK7HHN5 +a+y+H6XNKyJJiGmw2m+zmP9LVJ9QFAlgofiXLbb+W4uFP9EkyMjWWC36/3jV +9CQ= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -12917,105 +13556,105 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS -N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS -KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 -CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ -2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ -YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP -oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R -iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx -EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 -ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 -hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF -i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn -tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc -f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 -tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py -d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z -znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw -qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I -gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA -TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge -wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo -+AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg -Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL -IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ -vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj -ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE -7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N -UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h -bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON -R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr -JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ -i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY -nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je -4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J -ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v -x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 -7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX -RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy -e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF -G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI -h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 -8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb -+cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa -5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 -qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL -+sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV -ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 -NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag -mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol -A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO -zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf -1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 -KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr -KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 -4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR -R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x -BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv -fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC -nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q -e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ -sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY -XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 -uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B -CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 -GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl -XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo -+nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb -5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb -4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz -rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw -q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS -xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 -QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI -0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 -r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= - +1:eJwV1Hk4VVsbAHCZUuGSEK6SoVCkcxCl1hsnypwic5xz9lbKPJ0QSXIrJClU +ogxJJGTWyFeSUCpxrzJ3Oma2oflb/tjPfn7Pu/c77LXXWsf0syP4+fj4uPha +vAe0am+oam/dGbYnr/9YEBftHM/VYzKKkK6fnZgPdm+Wfqoqox5Z/HBIXLQt ++7WwKP1/KGysjOmLXcqJbhBitKAXpmSiH/bZ56ufRBe+QQMiAWIB2DXtATd+ +0t6jHr2O/kBsXndz5PG6j0i5PUEsBFt+SMVlzuQ/9LQ7MzEM22Ii0jCo5TOS +cBJmhWM/+slbwSnsQ0tsnieewP4QIxtR6TuAep/0iMVgjwszeBRtCPmUWw6c +xhZO8Heizw+j7xulxM9ir5HMbAqo4yIlnS1JidjWCnP54yajKJoKSkrDJrOV +ZbRExhHrWbp4Jna0mk3c0ZYJZLRVevAW9kfZd1uCC6eQgb70hRJstrP3kUsJ +0+j+m3R2Jfbkdb6bZb4z6IV+8IWH2CLKWhJTtFlkF0cbasFOZTeYSUjPoepY +aYn32Eq3naI3z8+hrBDb5B5sg01nxn3qFlAhszV5Avuw/ucWnslP5NYwclE2 +mIsoTojg8vW/UHfdBS9l7JN1K4w0RH4jY8mEFC3sdDC469XyB3EkkrgMbHZe +EyOwcAl4ra9JDcMufH6pN0aBH9Sa10nHYU9+cY+8mMAPW/cN8FKwIzVny+/7 +CoCRfcCVEuzUknUqEzQh4B2qGxvF7m4fffQ7RwjumI6t/oWtNF3lLC4tDGPl +nAyxEC4q0rVO0ZoXhtmI61c3YzfWhC85VicCwfvkM8OwZxs6PnNNRGGQTyhH +NpSLVlqKSkQ8EoVb55rmtLF13jFAzFAMdnT03DPF9h6syN6iLQ4rDX5bhGH7 +87fo7BCVAOtU+W092EPK96bi5iRhT/HQUF0Y/j5k87I2+koIlPsY1YXNf3d4 +3eqAlVA0vCZyHluJvtaucGQlZHgW5uhyuMjZJLmstVcKdqo/yi/HbmMFBsm+ +koYPzkInGo9z0afbSec9RGTAGexduNijI4U5d3bLwP4nPzNFw7loefBAx/Yn +MnAgcL+tAzbj9AFdjwpZ6J1UOzKOXZurP1uQJQf/PL90dEskF+UOfQ/dFqwI +Ean7K/ijuWiPffynoGJFmCNzhzdjjzZKmRYPK8LaTRw/N2zd3E3SSk5roD/6 +TnwNdiPTvVxo51oQ/2P4NuQkF01P9IZxY5Wglr63/XcMF0n5MB6UWymDwomR +ALs4LhrOXX7Y1lsZFJfLpp7Drv6vXWHsjDIwOl6LNWC7WrrFrn+iDAZGn5bq +ncH9bQy1y6CpAOtoioxiPK7Puz0ZJasKDyPO3vj1Dxcd8FqhZd6nBhObW535 +ErkIhdrTDv5SA2szE0VjbM24rK1sufVwwW6YfhqbL4duHLVvPYhEVbktS+Ki +4k8uB8uerofo5qQc2Qt4fzoUxcjf2gA0zYMLJhdxfwyrDzymBhj5JjT9e5mL +cvan/TsfpQGm/a6S6le4KInZ1yt4TQMsrxD3grHZJ0NG1nRowJ7V64bE07hI +sj6Tb7+JJgQKm+82S8f/D31cs05lI8Q53G9/cZWLFJQvRJ8f3ARho0hGJJuL +6s9RGt/4taBa1N6UxHadcXpHrtOCVtuLXY3YNxpVNYzdtaBZMUYj9iYXKXvV +vl3o1IL3zeZ+gjl43qIhNfKVNqC1Eyly+VykqLCGVHLSgXzRVzuSirhoU16w +6A9Eg7L4/xndrOUiJjt2VsuaBg1RfqYS+BxKV0n55OFKA/OzyfnR2AK3Su4/ +59BAOsDQ+1A93m83eAdSSmmwpGLLH+VH+DxN98jUUKGDhrm0R+1TvL7nLbUd +hXXB/bQ/n+ZLLroZqGpb0aIHO0+FvBHt4qL2ULT1dJ4h6LFltJX4vqJ17u+t +3Y7tgL76d5LFm74i4k/lPcXjAMIGyssaXL4i2ZHqpbJMY+DeV13oSv2KgulG +/6VoMuC06c/E1raviDn2s0mKtxum9URChsR5qNg4aGlWmxl47rTM3eXEQ7mU +99Oi1L0gB1oLG3J5aGHX6teN0Rbw/vpghs0PHurhE5jq87QCf/75uU6HEeT7 +t19yjIoN1LYKhoaWjqB7R5qeXI6zhZqKyt+H5EZR+Izc/MYj+0D41NDvuOhR +NGtu6vDikB0UR1/m3JkZRYYuF3cN7dsP555V8n57j6G3cpnejfQDsP5pFuPj +pzEknx9bX6BuD+ohku2rPcdRda+mpbWYA4x8Fnje+GkcrXk36RU65gCVAi/d +gtwmEP3yxaKc3oNgUhJd7cKbQJmCM9opDY7QuUXBwcFgElXu2twdV+MEAkSG +JfPUJErfek7yZ6EzRGqLRixvmURt/+adoSe4wKvwVl8LySlUYXVd1f+kKxTm +WPnfcp1CUz77+XzZbkC9eJz29tYUmjXVODxu4g4/uxz5lb9MoYKxroUg/UPQ +bZErsVtnGjnezGO5iXqA3NseR/WgaVReZnFIIN4DDshXiZTXTCNDhbffzn7z +AE36+A/0bRqp9Hp1vzniCZPfVDrHdWfQ4IqjNtcHPOFBTpeqUeAMak+yZpnZ +M2HkUffSZ7dnUCona0VIOxNeWy+jb+uZQfWP/nxj7WXBVRsL9zxRCv3lCvH0 +WhbIfHiWOkGnkNKqF21/17NANEVyLEmXQjotVquFH7HAgPlxUEuPQnZGLnc+ +PmWBzzV2mbc+hVL/Dn114iULlIauPPtsQCH5nrt/NX1kQcfbc9lVOyik6i6b +7jrPApvQpzcUzShk6DFeEKfLBucbx+kPHSmUnzEZZK3PhuK7QdXbnCi0qmN6 +p6wBGx7zeANV2OO7598VbGeDVbOwdqkzhc8vviUtxmxQ2T6RkOVKIfF5SaeV ++9gg7xFLHPWg0GCi3rIsHzYMpOkJPvaiUFJd5JHqfDas/aaoaxdCIR9amiGn +gA0xMSeaK7Et75QuMyhkw6bOh8IKoRRanjZ8p6qYDYbN+f792HGBtrzKB2xI +SI8T8eFQKFJD9WjFMzakOvzaHhBBIe+0V8fKPrHhp0mKrV4MhfaKDxsF9rJB +91BLfBK2ehyfGK2fDXYdWqwv2MOBesWlQ2xI/0wTTj9FIU/rrLH7o2zg8vf8 +oGIp5CgU5FvynQ3jO9KuZp6hkFmQvH+RDAFn1UNt7pyn0LOsM+YpqwmYhtj4 +X9hGLdOqHHkCXrPy9+1LwOul9qrLZA0Bx95Q1+ax5TojTP5Vwz6ntBQlUWhk +W4/Mcj0CWqo8N9YkU+gCf/ZDr/0EuC97ael8Gc+/WTTdyp4AOfXeomzs0y6c +QPpBAib/88gcxuY8sN3wx5kABw/fzQFXcP/kkotXmAR8dTgiE5NGIXozk/2/ +AAKu5WQMnc+gUOdFtRUqyQT49OVss8qk0D0kdph7kYCrM8/bY7BPj1GNxZcI +kHmTKFiJTdvbGGWQRkCVxheG4g28fnysaasbBFRqjW34gm3ql93FKSIgejjT +/3A2hRQV/9HfeY+AoN2snivYVLPfJYH7BPiuPPClEfvWemSVVE5A/fC1t2tv +UuhXT8+TnFoC9KwEhN9gP7BUKGhtIqCt2rFbKYdC57/zC6U2E8AQKZTZi80s +4Hk6tRDw3eLhhD+2hGCtwmAbAS7ukpzH2MfqHC98+0CAbn1T78FcCqloXglV +HSKAbugrFppHoe+dJzq+DhMgy1aVSsdujyN0SrgEGEsYV9RgR/Xp8gxHCbjs +kdX6A7s7vcPNZoaAwEP29hH5FEpZKrk7fAkJBWmR97xuU6h+usclWIAEsZad +xWewv/QUBvoKkcCqOLM5D9voASObuYyE3mPJj3qxhz04P8wlSVgqMi5kV4D7 +t9y9crcUCZqdSMkHe/vWlRpImoTzNiMP47GTxYoc6HIkSH3bFlu3GK/9XKqw +joTmBF09xTsUIvOKmqRVSPB3az6ii52cfPzzX2q4ft2ldRbYw6SUmKAGCebv +S+TDFuNSZodHdUjoLM2gvcSu/S0VPUwjQTjs4Mn/sIe+9l7u1cXP31TfN4G9 +7Ul4wzsDEiQ/zEVIFeL9fOzemodAwpX2gVl7bHHHCL0qYxI8N/S4ENiGJnss +SxkkrC1rYwRjJ8n1H8/bQ8KoxOWsZOxqwZLkLHMSwsOYkjewByYibmdYkrCg +v0b4LrbBc+n3ibYkcEcdOA3YzNL+kXg7Egz02mZbsROvl/CfOkCCYfimuS7s +/sC9OqGOJNjnJUaPY4u5y5j5O5PQcT1RZGEx394BN29XEh6Xe69ache/v/bE +eXcPEv72rnggiV293PyWI5OE+O61e+Ww+2dlauzYJBwU9fRQwhbrG2izJEmY +ygn7vh7boOX+sOlhEsrcmLJa2MyqE7/Am4QBMaUq2mL+W+arth/D9bNLurYu +5k+U3ajnS8IzeYloo8X8nMFdm/3xfGlwG7BF2aWOGoEkhFqCHQN7q02Un0ow +CVdPi580W8y/zeKMYiiO5xbqmGMnqK3OlOWQoK2+im2JXSkxVC4ZTsK7HHN5 +a+y+H6XNKyJJiGmw2m+zmP9LVJ9QFAlgofiXLbb+W4uFP9EkyMjWWC36/3jV +9CQ= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6044061540843431, - 1.5841467887057727`}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6044061540843444}, + "PlotRange" -> {{0, 180}, {0.7640900065109822, 1.291824630361082}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7640900065109839}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -13027,21 +13666,20 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6044061540843431, - 1.5841467887057727`}}, + "PlotRange" -> {{0, 180}, {0.7640900065109822, 1.291824630361082}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6044061540843444}, + "AxesOrigin" -> {0, 0.7640900065109839}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13055,103 +13693,104 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS -N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS -KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 -CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ -2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ -YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP -oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R -iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx -EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 -ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 -hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF -i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn -tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc -f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 -tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py -d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z -znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw -qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I -gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA -TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge -wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo -+AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg -Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL -IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ -vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj -ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE -7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N -UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h -bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON -R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr -JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ -i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY -nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je -4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J -ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v -x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 -7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX -RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy -e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF -G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI -h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 -8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb -+cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa -5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 -qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL -+sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV -ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 -NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag -mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol -A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO -zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf -1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 -KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr -KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 -4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR -R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x -BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv -fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC -nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q -e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ -sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY -XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 -uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B -CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 -GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl -XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo -+nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb -5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb -4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz -rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw -q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS -xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 -QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI -0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 -r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= - +1:eJwV1Hk4VVsbAHCZUuGSEK6SoVCkcxCl1hsnypwic5xz9lbKPJ0QSXIrJClU +ogxJJGTWyFeSUCpxrzJ3Oma2oflb/tjPfn7Pu/c77LXXWsf0syP4+fj4uPha +vAe0am+oam/dGbYnr/9YEBftHM/VYzKKkK6fnZgPdm+Wfqoqox5Z/HBIXLQt ++7WwKP1/KGysjOmLXcqJbhBitKAXpmSiH/bZ56ufRBe+QQMiAWIB2DXtATd+ +0t6jHr2O/kBsXndz5PG6j0i5PUEsBFt+SMVlzuQ/9LQ7MzEM22Ii0jCo5TOS +cBJmhWM/+slbwSnsQ0tsnieewP4QIxtR6TuAep/0iMVgjwszeBRtCPmUWw6c +xhZO8Heizw+j7xulxM9ir5HMbAqo4yIlnS1JidjWCnP54yajKJoKSkrDJrOV +ZbRExhHrWbp4Jna0mk3c0ZYJZLRVevAW9kfZd1uCC6eQgb70hRJstrP3kUsJ +0+j+m3R2Jfbkdb6bZb4z6IV+8IWH2CLKWhJTtFlkF0cbasFOZTeYSUjPoepY +aYn32Eq3naI3z8+hrBDb5B5sg01nxn3qFlAhszV5Avuw/ucWnslP5NYwclE2 +mIsoTojg8vW/UHfdBS9l7JN1K4w0RH4jY8mEFC3sdDC469XyB3EkkrgMbHZe +EyOwcAl4ra9JDcMufH6pN0aBH9Sa10nHYU9+cY+8mMAPW/cN8FKwIzVny+/7 +CoCRfcCVEuzUknUqEzQh4B2qGxvF7m4fffQ7RwjumI6t/oWtNF3lLC4tDGPl +nAyxEC4q0rVO0ZoXhtmI61c3YzfWhC85VicCwfvkM8OwZxs6PnNNRGGQTyhH +NpSLVlqKSkQ8EoVb55rmtLF13jFAzFAMdnT03DPF9h6syN6iLQ4rDX5bhGH7 +87fo7BCVAOtU+W092EPK96bi5iRhT/HQUF0Y/j5k87I2+koIlPsY1YXNf3d4 +3eqAlVA0vCZyHluJvtaucGQlZHgW5uhyuMjZJLmstVcKdqo/yi/HbmMFBsm+ +koYPzkInGo9z0afbSec9RGTAGexduNijI4U5d3bLwP4nPzNFw7loefBAx/Yn +MnAgcL+tAzbj9AFdjwpZ6J1UOzKOXZurP1uQJQf/PL90dEskF+UOfQ/dFqwI +Ean7K/ijuWiPffynoGJFmCNzhzdjjzZKmRYPK8LaTRw/N2zd3E3SSk5roD/6 +TnwNdiPTvVxo51oQ/2P4NuQkF01P9IZxY5Wglr63/XcMF0n5MB6UWymDwomR +ALs4LhrOXX7Y1lsZFJfLpp7Drv6vXWHsjDIwOl6LNWC7WrrFrn+iDAZGn5bq +ncH9bQy1y6CpAOtoioxiPK7Puz0ZJasKDyPO3vj1Dxcd8FqhZd6nBhObW535 +ErkIhdrTDv5SA2szE0VjbM24rK1sufVwwW6YfhqbL4duHLVvPYhEVbktS+Ki +4k8uB8uerofo5qQc2Qt4fzoUxcjf2gA0zYMLJhdxfwyrDzymBhj5JjT9e5mL +cvan/TsfpQGm/a6S6le4KInZ1yt4TQMsrxD3grHZJ0NG1nRowJ7V64bE07hI +sj6Tb7+JJgQKm+82S8f/D31cs05lI8Q53G9/cZWLFJQvRJ8f3ARho0hGJJuL +6s9RGt/4taBa1N6UxHadcXpHrtOCVtuLXY3YNxpVNYzdtaBZMUYj9iYXKXvV +vl3o1IL3zeZ+gjl43qIhNfKVNqC1Eyly+VykqLCGVHLSgXzRVzuSirhoU16w +6A9Eg7L4/xndrOUiJjt2VsuaBg1RfqYS+BxKV0n55OFKA/OzyfnR2AK3Su4/ +59BAOsDQ+1A93m83eAdSSmmwpGLLH+VH+DxN98jUUKGDhrm0R+1TvL7nLbUd +hXXB/bQ/n+ZLLroZqGpb0aIHO0+FvBHt4qL2ULT1dJ4h6LFltJX4vqJ17u+t +3Y7tgL76d5LFm74i4k/lPcXjAMIGyssaXL4i2ZHqpbJMY+DeV13oSv2KgulG +/6VoMuC06c/E1raviDn2s0mKtxum9URChsR5qNg4aGlWmxl47rTM3eXEQ7mU +99Oi1L0gB1oLG3J5aGHX6teN0Rbw/vpghs0PHurhE5jq87QCf/75uU6HEeT7 +t19yjIoN1LYKhoaWjqB7R5qeXI6zhZqKyt+H5EZR+Izc/MYj+0D41NDvuOhR +NGtu6vDikB0UR1/m3JkZRYYuF3cN7dsP555V8n57j6G3cpnejfQDsP5pFuPj +pzEknx9bX6BuD+ohku2rPcdRda+mpbWYA4x8Fnje+GkcrXk36RU65gCVAi/d +gtwmEP3yxaKc3oNgUhJd7cKbQJmCM9opDY7QuUXBwcFgElXu2twdV+MEAkSG +JfPUJErfek7yZ6EzRGqLRixvmURt/+adoSe4wKvwVl8LySlUYXVd1f+kKxTm +WPnfcp1CUz77+XzZbkC9eJz29tYUmjXVODxu4g4/uxz5lb9MoYKxroUg/UPQ +bZErsVtnGjnezGO5iXqA3NseR/WgaVReZnFIIN4DDshXiZTXTCNDhbffzn7z +AE36+A/0bRqp9Hp1vzniCZPfVDrHdWfQ4IqjNtcHPOFBTpeqUeAMak+yZpnZ +M2HkUffSZ7dnUCona0VIOxNeWy+jb+uZQfWP/nxj7WXBVRsL9zxRCv3lCvH0 +WhbIfHiWOkGnkNKqF21/17NANEVyLEmXQjotVquFH7HAgPlxUEuPQnZGLnc+ +PmWBzzV2mbc+hVL/Dn114iULlIauPPtsQCH5nrt/NX1kQcfbc9lVOyik6i6b +7jrPApvQpzcUzShk6DFeEKfLBucbx+kPHSmUnzEZZK3PhuK7QdXbnCi0qmN6 +p6wBGx7zeANV2OO7598VbGeDVbOwdqkzhc8vviUtxmxQ2T6RkOVKIfF5SaeV ++9gg7xFLHPWg0GCi3rIsHzYMpOkJPvaiUFJd5JHqfDas/aaoaxdCIR9amiGn +gA0xMSeaK7Et75QuMyhkw6bOh8IKoRRanjZ8p6qYDYbN+f792HGBtrzKB2xI +SI8T8eFQKFJD9WjFMzakOvzaHhBBIe+0V8fKPrHhp0mKrV4MhfaKDxsF9rJB +91BLfBK2ehyfGK2fDXYdWqwv2MOBesWlQ2xI/0wTTj9FIU/rrLH7o2zg8vf8 +oGIp5CgU5FvynQ3jO9KuZp6hkFmQvH+RDAFn1UNt7pyn0LOsM+YpqwmYhtj4 +X9hGLdOqHHkCXrPy9+1LwOul9qrLZA0Bx95Q1+ax5TojTP5Vwz6ntBQlUWhk +W4/Mcj0CWqo8N9YkU+gCf/ZDr/0EuC97ael8Gc+/WTTdyp4AOfXeomzs0y6c +QPpBAib/88gcxuY8sN3wx5kABw/fzQFXcP/kkotXmAR8dTgiE5NGIXozk/2/ +AAKu5WQMnc+gUOdFtRUqyQT49OVss8qk0D0kdph7kYCrM8/bY7BPj1GNxZcI +kHmTKFiJTdvbGGWQRkCVxheG4g28fnysaasbBFRqjW34gm3ql93FKSIgejjT +/3A2hRQV/9HfeY+AoN2snivYVLPfJYH7BPiuPPClEfvWemSVVE5A/fC1t2tv +UuhXT8+TnFoC9KwEhN9gP7BUKGhtIqCt2rFbKYdC57/zC6U2E8AQKZTZi80s +4Hk6tRDw3eLhhD+2hGCtwmAbAS7ukpzH2MfqHC98+0CAbn1T78FcCqloXglV +HSKAbugrFppHoe+dJzq+DhMgy1aVSsdujyN0SrgEGEsYV9RgR/Xp8gxHCbjs +kdX6A7s7vcPNZoaAwEP29hH5FEpZKrk7fAkJBWmR97xuU6h+usclWIAEsZad +xWewv/QUBvoKkcCqOLM5D9voASObuYyE3mPJj3qxhz04P8wlSVgqMi5kV4D7 +t9y9crcUCZqdSMkHe/vWlRpImoTzNiMP47GTxYoc6HIkSH3bFlu3GK/9XKqw +joTmBF09xTsUIvOKmqRVSPB3az6ii52cfPzzX2q4ft2ldRbYw6SUmKAGCebv +S+TDFuNSZodHdUjoLM2gvcSu/S0VPUwjQTjs4Mn/sIe+9l7u1cXP31TfN4G9 +7Ul4wzsDEiQ/zEVIFeL9fOzemodAwpX2gVl7bHHHCL0qYxI8N/S4ENiGJnss +SxkkrC1rYwRjJ8n1H8/bQ8KoxOWsZOxqwZLkLHMSwsOYkjewByYibmdYkrCg +v0b4LrbBc+n3ibYkcEcdOA3YzNL+kXg7Egz02mZbsROvl/CfOkCCYfimuS7s +/sC9OqGOJNjnJUaPY4u5y5j5O5PQcT1RZGEx394BN29XEh6Xe69ache/v/bE +eXcPEv72rnggiV293PyWI5OE+O61e+Ww+2dlauzYJBwU9fRQwhbrG2izJEmY +ygn7vh7boOX+sOlhEsrcmLJa2MyqE7/Am4QBMaUq2mL+W+arth/D9bNLurYu +5k+U3ajnS8IzeYloo8X8nMFdm/3xfGlwG7BF2aWOGoEkhFqCHQN7q02Un0ow +CVdPi580W8y/zeKMYiiO5xbqmGMnqK3OlOWQoK2+im2JXSkxVC4ZTsK7HHN5 +a+y+H6XNKyJJiGmw2m+zmP9LVJ9QFAlgofiXLbb+W4uFP9EkyMjWWC36/3jV +9CQ= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + "PlotRange" -> {{0, 180}, {0.7640900065109822, 1.291824630361082}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6044061540843444}, + "AxesOrigin" -> {0, 0.7640900065109839}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13161,7 +13800,8 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.6044061540843444}, + AxesOrigin->{0, 0.7640900065109839}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -13189,7 +13829,8 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.7640900065109822, 1.291824630361082}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -13197,9 +13838,9 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913320330871353`*^9}, + CellChangeTimes->{3.9913320330871353`*^9, 3.994260066131219*^9}, CellLabel-> - "Out[220]=",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] + "Out[139]=",ExpressionUUID->"345f78a3-f559-41e3-bb45-79b4c4a01407"] }, Open ]], Cell[CellGroupData[{ @@ -13214,30 +13855,33 @@ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -13262,205 +13906,169 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.9918491076725483`*^9, - 3.9918491120260525`*^9}},ExpressionUUID->"cbec275e-4d01-7747-9ece-\ -7fa9a2a651b1"], + CellChangeTimes->{{3.9918491076725483`*^9, 3.9918491120260525`*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2976471457269651`*^-270\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 221, - 189, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991332033325203*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.706681990506599`*^-265\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 69, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991332033325203*^9, 3.9942600663264503`*^9}, CellLabel-> "During evaluation of \ -In[221]:=",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], +In[140]:=",ExpressionUUID->"677c821c-fbb2-4fe0-8d80-9a35aee79e0b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.376858869110442`*^-282\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.533306643180911`*^-276\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 70, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991332033325203*^9, 3.994260066338071*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"931b3f81-ef75-43cc-8d65-070f9d5cd317"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.327374291932695`*^-288\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 221, 190, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913320333342056`*^9}, + 140, 71, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991332033325203*^9, 3.994260066347026*^9}, CellLabel-> "During evaluation of \ -In[221]:=",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.193593532260836`*^-293\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 221, 191, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991332033342205*^9}, - CellLabel-> - "During evaluation of \ -In[221]:=",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], +In[140]:=",ExpressionUUID->"7dca0dfa-9374-49aa-ab6a-a50120dc003b"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 221, 192, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991332033351204*^9}, +during this calculation.\"", 2, 140, 72, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991332033325203*^9, 3.994260066357786*^9}, CellLabel-> "During evaluation of \ -In[221]:=",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], +In[140]:=",ExpressionUUID->"c360a052-c832-4689-822f-79fb30e1967f"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK -SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx -/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr -12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI -64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs -Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ -g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q -LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o -2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL -6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u -nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr -t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 -MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 -eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M -qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD -y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ -1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh -a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk -LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz -5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 -bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg -PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx -ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg -RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 -Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab -+LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l -8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm -JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 -Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk -7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar -LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 -KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR -zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e -aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ -EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr -xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ -lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh -7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX -jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw -Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 -VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK -wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I -3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h -YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS -a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG -+Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk -30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE -aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ -gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk -pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 -/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 -BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB -DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm -Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU -mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg -srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa -elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp -F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR -vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO -p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe -zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y -c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS -5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD -ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF -aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX -oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD -KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE -ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv -XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y -HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T -SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol -DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN -kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK -J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 -XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw -YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl -49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi -hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV -sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 -NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR -P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy -r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ -sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp -3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L -TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG -cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU -XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB -oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX -flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N -Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j -GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 -8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ -lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr -MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC -ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi -z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq -frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T -VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda -R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a -d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP -cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 -ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ -2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM -uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B -8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 -SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV -rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw -u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B -jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO -FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz -oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE -zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 -hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb -QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe -htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b -gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr -CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d -3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V -Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr -t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS -d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ -TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb -EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK -Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ -KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb -vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU -/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 -JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG -bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD -VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 -0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z -j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ -z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 -dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs -D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ -M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ -3z9DIQ== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k8VVsUB3DRgJAQ13zudU2ZM2W41tKgzBQSkkxFkkoKlaFIxBORJi6h +ZLrnJoWUaKCkEkJFST2ZIkOp1Dvvr/P5fvbnTPvs9Vv70H33bgrg5eHhkV3A +w/P/cbav5QEzpdCCrI1KLpFYY9GRS4u07I6HyKdnXYayCMAVz31p3RkgpOm2 +vjFLFyKcrr/m6y6As3rLz1/LQlg+LpUx95oLlqcydOOynKD/jsPe6deNkPZW +25AvywesmMPvJl+3w46u7+aymWEw99o4a+L1AOh6lO9LSImFprVXC18WTIFa +gk3tRZkzINdf89lXcx7qHv1siaWdB4mQ7deXrOVDoYSlSbY2bMjQs6pzcOXH +FLdpn1xaIfTk6DZMigrjhm3lV695XYWUwpjnvNLL8f7d5oLfyddB6uzHU5mX +xXFy8lXrwnXlQNO4eeJHsTjeKEne5mdfDjKNiTHbOOJY4CjJc8etHBQm1A+q +Nonj0m2TBz2DykHZLsynbkgcffP5F25OKwf9hfNGH/UlsGK847rS63JwDJcc +XPVEAp1LHc6u9a+Aky7WFu2zK7B7pm58Q0glyFS1yfAukEQ3922WreGVUCHu +8l1vqSS2zjBcrI9WQle7N+eMoiQ2ZeZVa6VVAtM5nOG8URJno89vyaushEb7 +vMUvzkuizrJ9LsqTlTBvNdP2zFwKVeWPpnsacyC9OKp03koKnfq0/qiZcYC5 +mCdJy1kKgyfyG75ZcMDuoaBlaoAUin5+uCbaigMX1hI37NKk0O7QZwMfVw6s +RttzT/ulcPFt20uR+zlwwCR/e0s8DS869st9KeGADVtk2vY0Dfvb//xeUs4B +xpIjSW1ZNKx9eaBIicOBFx1u5KtrNFxFijg6V3NAO0yIr6+Nhuxecb7ERg4M +FR8q/iYjjcpvhQdcejngJeEwJntDGre+t3RIWkKCfnRdXO4daUy7flkZBUkQ +HFCTpD+Sxkcpdx9MC5FQU8kHKj3SGJkU6+EiRoKkbU267l9ptEnL/DQqR8KL +OKbBelsZzP925dRxPRLWff0ZFfpRBoeSdtRucCchcuPZlfdHZfAdWoulepBQ +ka/VKz4rg8RiN9fnXiTQXHxMavhlUdQv/rLNDhJGbz/8zqcti0m5L03lgknI +jE8PP39YFrfFJr3UiCZhYIVK6ANhOUz/Av3zF0iQ2ntPXkpKDnXKr/56f4kE +u2b3Z0GEHLaLzQvczyWhOipFc5m+HErVH58/VEBCcv/E8FZ3ORTlubnhfgkJ +q0rqdn4tkENLZ7GS+7dIiDN33iGzWh4Dx5SfR78kYaN37jfjNfL4q2lNkMIr +EkRiR4672smjp15tRH0HCZeaEorTfeQx+y17bOI1CbdtakcWn5JH/oZBd60+ +EibclSKmeuQx2rws6/cXEm5FhS1ZPiiPaDXDDhwh4dil+hztcXlUuFKr+myU +BKH3W+qCeBVQ4MiXkn++kqC68zTP+5UKmNrnnT48TYL3wZnk1mgFZEzvC/jx +hwTlc2vkhhMUcGGPVchKHi41f/+UL0lXwP697d/dF3Ah6rf6izWFCvi4Jy6v +lI8LWce9V9S0UudPlqxR5edC65nHeUXyilgn2Bl4WJQLmTck9JpUFdHyTv/C +A8u54NG5o/G9niKmnRrRCxbjwhDt96CslSLGBdWbOUhwgY+tuzIjVBEN1U7Q +x6S4YFpxvurYPUW8bdzYnqjAhXWv2+bHmxWRx1q0iqXIBQeehRu2tyuifwWT +PUnZb1NoD3xSxPcCAhed6FywiqbHxC4icHT6oeaIEheeLrtzZbUggbybNxxM +ZnLBqdCteUKEwMOZB56pKHPB81nK8h00AoOl7SvdVLgQpjh7xVKDwD+jlTaZ +alyYuZHePKdDoPWgNkNWnZqPjRpjpAGBLxJCRNiUE/b5GDEsCEyLrVPNX8mF +C01PmnmdCWxpnN0bq8kFRfeAsVpXAtv8q/5OUC4c/bv8gAeBrI79Jd5aXKhc +Yej50Y9Ay3tsez1tLjzYmTfWFEGgQG/FyA0dLlj/NhE7Ek3gor+e3sK6XGhL +7zAyiCVQOy1ywo9yT41AbOEpAn8teXqQX48L3g6FhV5pBG5m+QW7UR4csGiR +yCTQa59BXD7l8aXhYgmXCLzPt4mms4oLB9gixqx8Asd0+S/so/zDoMRzpojA +k3NPkKTM591XGFBJYFKMM4+aPheSvh1uka8i0D7uhMx2yiInxcc7bxPoUVzg +lUmZxtlobNVI4N3NiZ5TlC+v++j55xF1/5MN0ooGXGD0HI2tfkrggP5z3o2U +r+2hFYW+IHCXZ6hUKGUt3hstKp0EXrju4X6GMjfbfryvh8DVh50fkZRXawyJ +nesjsOCBqO9zyvX34o0dPxLoZ7JFc5jyGhd5ryVDBFarDSrzGnLh8dCt2Huj +BIqlHnKUomx3dFPRoUlqnL+9RJ1y+/KxFp1ZApmfqgxNKG8pPjn+708Ca8QG +ptZTfmvKEGf/JVBdTe6TI2Xf53eM3RfSUchXRXAL5X/9tniJCtAxuOCBnyfl +kB+Tsc3CdDQKq/vmRdl0X6DkZzE6Du4dOvL/OP9wbykfjY7qYuvvu1Hu8nW0 +pMvTka3X1uBAuehNU5cFg44fT8UdWUs53GV1iJcqHburt80YUF7zrGxBlCYd +f+j7aipRFrWinzunR8dcz38YIpT77mZp3jSio23g5+4Zaj7KjAUb283o+DUo +yKmXchTn2JYJpKPJVtnkOsob1adGha2o6/PynDxPWbJgZ7yGLR1bROU2hlMe +lHkrZe1Ex+wlB9ts//8emU7lga505KxfLktQdkww6c7fTscgB72l96jvrfCn +fM89f2pc9BHnFOXRCAbfuyA6yvM3EM7/r59dS7Vp4XRMuSfi30WtL7cPMU2G +kXQ0UI82OUuZ6THtvvkYHQekj7xzoNxg++54WhIdz8wfyKql1m/aA2fpslQ6 +LjI8VbqbshfrUUVLBvV+UXvPSlOe067sWXiZmp+q6YHdVH2sEovTiSbpWFc3 +kz5M1RdPysyDnGo6FiXle8ZTbuML9qiuo2OX+90FUpR3z2xKmHxIR1fm9UEj +qj4Lu5lvdvbScae9KNNZgwv7nc+HJfTTUSpl4ZfnVL3jE+HFVwbpWOBvnmFL ++V3drG7fOB11xsezTKh8kMxrTnThY+A3xfa4CSpfBqVYcvv5GXj+olPS/3nD +TSfJf4QZeCpc8kgNlUeO8RfePpFiYKg/v24ElVdJASGrLDUZeLYk78sTKt/m +NET7tFwZ+E64o3hAlguzl2Xi9D0YqOp/4rEs5ellykyT7QwMYH/g2yRD1fuU +SfC6IAaaHVHsuEnjwkCd36zHUQZ+OG/4zWMFF57Y3hJJKmIgo8NKSU6Eqpf6 ++2TqdQYeibmRqCpM5ZFOq0tmJQPb9QRoukJcuCv+4UJuDQNnNku0rBaknv+N +oOrNZwwUqbFNUFtM5d9ubxiYYaDlAdwTP0/CuXe7Bv79yUCZoCazHb9JOOt4 +IGHsLwND3Bbbsn6RkKaf9PSHgBLWjWbpjv0gIf4XuWWZghIKzMWYaFL9anfK +ojBzKyVM9gh2Vhsmwby0jJ2drYSCafWadKp/viFK89ZfVMIvjsyHTe0kRGWX +5E7nKSHNhFfOn+q/t+KKL20qUcK1CmYCuW1Uv3Zn54jcUUJjJ48/s80kqC86 +m574QQlfu5qZWtRT+5Pt0bERmkwsa/jHUr2QhJsdkTHKekyUu3n3egLV/11s +Dh/rMGRiU+PDqX42CRmGB4+sAiYWBl1WT7tMgrDQ3sPjzkwc+mW75mU2CQtr +fMMCDzGx+r631FQSCZNiNj5ujUx06ox+W7abhO4Qxovgx0wcyTNemRtEQsOj +nxDTysSOkWwidScJ6VGlite6mLhwtlvI348E3QGh/rlhJoozSgVnqf1QKPl8 +22VxZdzlntpVak3CsKOr56C/MlqwbmXvUiZh8LSP2/4lKvhnUcqTiC4OhA5r +MnSFVPD08YgugQ4OfN8wNzYmqoKLsydUL77kgCBfRkKQjApan7Zn327lgG5k +U5WPlgp+kX+7pJ/aDx4NUBF33KyCutfV7/RWcEDSYvS5Rp4KEja8wtkJHLD+ +esj6k5EqbmWeI7Zrc2DUj/9AVYwailq8rxq/U0H9T0jxnmxUxwlfDf3xX2Ug +9kwljfN1JdbPzT+OtygFuaRKJyMjTbQTNF/QubEEcjRMRMV3amFi/VNG6u6r +8ETG0nDqjDb+lNjysT67CEzlGtN1unTwB69R2VH2FRDhKwjfEa+Lf0aGh8jX ++aAQp2i+VUUPp6pa9++YzQMBZa/qTY/1UCFj84Wwo5dAmyVdeWjbKnz7NTNH +K+w87O8Ta7Lh0cc9I+sMx7dmw9ep067WOfpon2N7PYGTCRt0Hl2w1jLA64qk +6gmbM3B3yuzX9zYDzH219ltSTyqEaq7qfRlgiGI0yavNfaeANe7fsVXACN9c +Drj0iS8R1jNp9sIFRhjf9TV076t4UItNPtxobIxjVSLiqctiYWWAyT3lXmOc +4723+mN/FATc3XWiat9qzLQ4h8COgHvsDv/JFSaYIS++4HzJfpi+9ve7zi0T +jOzqbSuuCgU/5VKBC/amONac6WIbHgRRD72DVZxM8amg3aHN24MgPUDsKXeT +KRbwjfoE2wTBnaLI00+3mKL4s+5dD4ggkFDZuGx+hylqc8/uVmvbBY9UPkn4 +RJhia5/U+hKNXbBSTZFQyTPFrgU//rhNBsLkykwj7oQputYGXK0s8ofuVlwv +PmWKb57t1XDN8oeG0PHN4TOmGG9/4sOiBH9I41rvM/ppin2G554m+fvDSlOe +slo+M2z13jIuzvQHX+s99CZJM2Qrz2mYFvlBx84NQh3mZsjUPt59qdIXbhf+ ++jCTZIbSrmEPD3z0AaO14d9tUsywIthw2+9OH7j5YVSInWqG60vznNOafYCr +0Gdsk2GGN0MCzdrKfaAspyE196IZ2tobx9Yf9gH26QSTDRVmeKXvMbqK+sCp +8GVncl6ZYUnPuGzKaW/wWKeEZgrmaOwgPy2f4wnzHfwiTYQ5HnNepnUlxhPY +AeNvbJTMMe7ScJTZTk/4nFhzyEPNHEunkplFRp6wv8WxMnKVOcbm9Xh4dnlA +ssMRhdtW5vhlp1zDRmkPqHXv/G2w1xxff9IcfFXmDrJ7TtZoN5hjdn/DcYLf +DdL+BhqmNJrj6INoy4AZV+DNsCL/fWCO7due024PuMJw9aISdos59rt2TZys +d4VanhM5Yq/M0TbA3fH5AVfwOBt7aPaTOV6cbJGZGXCBnLpIw7tLWTj2RWm7 +z9PNsEIwhLTfwsI5/zJaX6MzFK49GjWxlYVZ3er6F0hnWHU0bW2mFwsbo8+t +CWA7g8MEp7N7BwtPOu+TUDvmDIldM3N+ISxsD6zYtN3UGX4UxKyJimPh/Cze +T77pBL1mma+KS1m4yWfo9oo9jrDrYOEl6woW6reoZdMdHGG24mbAKIeFyzor +qjfqOIIYo/u7XjUL3yi27B2adABbfnm5+gYWrggMSdp92AHudBT7v+pkYWzb +wtLQZHuwEbmtFdHNQjuNelDeYw/dG1pmaW9YeDtzpHPG0R6ma0eSvN+zMKao ++dbgCnvQytct/zLMwoyETo3vBXZwp9cy4vQYC/99C8XRiXZgI7EZdCZYmPjg +RIJ0sB0Enjz4MnyGhen71JTz9exguiHxgtQPFuZfHLqbvMIO4n+e86v9yUJt +aauw1DlbEDUo0dw2z8KRt8IqJe9sIXdP7czfvyzsJGjP3t23hf8AVpDjEg== + "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -13474,164 +14082,124 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK -SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx -/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr -12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI -64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs -Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ -g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q -LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o -2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL -6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u -nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr -t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 -MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 -eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M -qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD -y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ -1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh -a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk -LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz -5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 -bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg -PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx -ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg -RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 -Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab -+LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l -8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm -JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 -Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk -7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar -LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 -KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR -zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e -aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ -EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr -xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ -lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh -7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX -jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw -Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 -VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK -wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I -3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h -YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS -a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG -+Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk -30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE -aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ -gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk -pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 -/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 -BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB -DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm -Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU -mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg -srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa -elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp -F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR -vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO -p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe -zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y -c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS -5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD -ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF -aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX -oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD -KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE -ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv -XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y -HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T -SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol -DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN -kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK -J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 -XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw -YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl -49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi -hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV -sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 -NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR -P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy -r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ -sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp -3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L -TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG -cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU -XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB -oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX -flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N -Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j -GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 -8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ -lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr -MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC -ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi -z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq -frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T -VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda -R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a -d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP -cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 -ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ -2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM -uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B -8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 -SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV -rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw -u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B -jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO -FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz -oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE -zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 -hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb -QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe -htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b -gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr -CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d -3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V -Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr -t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS -d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ -TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb -EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK -Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ -KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb -vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU -/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 -JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG -bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD -VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 -0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z -j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ -z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 -dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs -D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ -M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ -3z9DIQ== +1:eJwV13k8VVsUB3DRgJAQ13zudU2ZM2W41tKgzBQSkkxFkkoKlaFIxBORJi6h +ZLrnJoWUaKCkEkJFST2ZIkOp1Dvvr/P5fvbnTPvs9Vv70H33bgrg5eHhkV3A +w/P/cbav5QEzpdCCrI1KLpFYY9GRS4u07I6HyKdnXYayCMAVz31p3RkgpOm2 +vjFLFyKcrr/m6y6As3rLz1/LQlg+LpUx95oLlqcydOOynKD/jsPe6deNkPZW +25AvywesmMPvJl+3w46u7+aymWEw99o4a+L1AOh6lO9LSImFprVXC18WTIFa +gk3tRZkzINdf89lXcx7qHv1siaWdB4mQ7deXrOVDoYSlSbY2bMjQs6pzcOXH +FLdpn1xaIfTk6DZMigrjhm3lV695XYWUwpjnvNLL8f7d5oLfyddB6uzHU5mX +xXFy8lXrwnXlQNO4eeJHsTjeKEne5mdfDjKNiTHbOOJY4CjJc8etHBQm1A+q +Nonj0m2TBz2DykHZLsynbkgcffP5F25OKwf9hfNGH/UlsGK847rS63JwDJcc +XPVEAp1LHc6u9a+Aky7WFu2zK7B7pm58Q0glyFS1yfAukEQ3922WreGVUCHu +8l1vqSS2zjBcrI9WQle7N+eMoiQ2ZeZVa6VVAtM5nOG8URJno89vyaushEb7 +vMUvzkuizrJ9LsqTlTBvNdP2zFwKVeWPpnsacyC9OKp03koKnfq0/qiZcYC5 +mCdJy1kKgyfyG75ZcMDuoaBlaoAUin5+uCbaigMX1hI37NKk0O7QZwMfVw6s +RttzT/ulcPFt20uR+zlwwCR/e0s8DS869st9KeGADVtk2vY0Dfvb//xeUs4B +xpIjSW1ZNKx9eaBIicOBFx1u5KtrNFxFijg6V3NAO0yIr6+Nhuxecb7ERg4M +FR8q/iYjjcpvhQdcejngJeEwJntDGre+t3RIWkKCfnRdXO4daUy7flkZBUkQ +HFCTpD+Sxkcpdx9MC5FQU8kHKj3SGJkU6+EiRoKkbU267l9ptEnL/DQqR8KL +OKbBelsZzP925dRxPRLWff0ZFfpRBoeSdtRucCchcuPZlfdHZfAdWoulepBQ +ka/VKz4rg8RiN9fnXiTQXHxMavhlUdQv/rLNDhJGbz/8zqcti0m5L03lgknI +jE8PP39YFrfFJr3UiCZhYIVK6ANhOUz/Av3zF0iQ2ntPXkpKDnXKr/56f4kE +u2b3Z0GEHLaLzQvczyWhOipFc5m+HErVH58/VEBCcv/E8FZ3ORTlubnhfgkJ +q0rqdn4tkENLZ7GS+7dIiDN33iGzWh4Dx5SfR78kYaN37jfjNfL4q2lNkMIr +EkRiR4672smjp15tRH0HCZeaEorTfeQx+y17bOI1CbdtakcWn5JH/oZBd60+ +EibclSKmeuQx2rws6/cXEm5FhS1ZPiiPaDXDDhwh4dil+hztcXlUuFKr+myU +BKH3W+qCeBVQ4MiXkn++kqC68zTP+5UKmNrnnT48TYL3wZnk1mgFZEzvC/jx +hwTlc2vkhhMUcGGPVchKHi41f/+UL0lXwP697d/dF3Ah6rf6izWFCvi4Jy6v +lI8LWce9V9S0UudPlqxR5edC65nHeUXyilgn2Bl4WJQLmTck9JpUFdHyTv/C +A8u54NG5o/G9niKmnRrRCxbjwhDt96CslSLGBdWbOUhwgY+tuzIjVBEN1U7Q +x6S4YFpxvurYPUW8bdzYnqjAhXWv2+bHmxWRx1q0iqXIBQeehRu2tyuifwWT +PUnZb1NoD3xSxPcCAhed6FywiqbHxC4icHT6oeaIEheeLrtzZbUggbybNxxM +ZnLBqdCteUKEwMOZB56pKHPB81nK8h00AoOl7SvdVLgQpjh7xVKDwD+jlTaZ +alyYuZHePKdDoPWgNkNWnZqPjRpjpAGBLxJCRNiUE/b5GDEsCEyLrVPNX8mF +C01PmnmdCWxpnN0bq8kFRfeAsVpXAtv8q/5OUC4c/bv8gAeBrI79Jd5aXKhc +Yej50Y9Ay3tsez1tLjzYmTfWFEGgQG/FyA0dLlj/NhE7Ek3gor+e3sK6XGhL +7zAyiCVQOy1ywo9yT41AbOEpAn8teXqQX48L3g6FhV5pBG5m+QW7UR4csGiR +yCTQa59BXD7l8aXhYgmXCLzPt4mms4oLB9gixqx8Asd0+S/so/zDoMRzpojA +k3NPkKTM591XGFBJYFKMM4+aPheSvh1uka8i0D7uhMx2yiInxcc7bxPoUVzg +lUmZxtlobNVI4N3NiZ5TlC+v++j55xF1/5MN0ooGXGD0HI2tfkrggP5z3o2U +r+2hFYW+IHCXZ6hUKGUt3hstKp0EXrju4X6GMjfbfryvh8DVh50fkZRXawyJ +nesjsOCBqO9zyvX34o0dPxLoZ7JFc5jyGhd5ryVDBFarDSrzGnLh8dCt2Huj +BIqlHnKUomx3dFPRoUlqnL+9RJ1y+/KxFp1ZApmfqgxNKG8pPjn+708Ca8QG +ptZTfmvKEGf/JVBdTe6TI2Xf53eM3RfSUchXRXAL5X/9tniJCtAxuOCBnyfl +kB+Tsc3CdDQKq/vmRdl0X6DkZzE6Du4dOvL/OP9wbykfjY7qYuvvu1Hu8nW0 +pMvTka3X1uBAuehNU5cFg44fT8UdWUs53GV1iJcqHburt80YUF7zrGxBlCYd +f+j7aipRFrWinzunR8dcz38YIpT77mZp3jSio23g5+4Zaj7KjAUb283o+DUo +yKmXchTn2JYJpKPJVtnkOsob1adGha2o6/PynDxPWbJgZ7yGLR1bROU2hlMe +lHkrZe1Ex+wlB9ts//8emU7lga505KxfLktQdkww6c7fTscgB72l96jvrfCn +fM89f2pc9BHnFOXRCAbfuyA6yvM3EM7/r59dS7Vp4XRMuSfi30WtL7cPMU2G +kXQ0UI82OUuZ6THtvvkYHQekj7xzoNxg++54WhIdz8wfyKql1m/aA2fpslQ6 +LjI8VbqbshfrUUVLBvV+UXvPSlOe067sWXiZmp+q6YHdVH2sEovTiSbpWFc3 +kz5M1RdPysyDnGo6FiXle8ZTbuML9qiuo2OX+90FUpR3z2xKmHxIR1fm9UEj +qj4Lu5lvdvbScae9KNNZgwv7nc+HJfTTUSpl4ZfnVL3jE+HFVwbpWOBvnmFL ++V3drG7fOB11xsezTKh8kMxrTnThY+A3xfa4CSpfBqVYcvv5GXj+olPS/3nD +TSfJf4QZeCpc8kgNlUeO8RfePpFiYKg/v24ElVdJASGrLDUZeLYk78sTKt/m +NET7tFwZ+E64o3hAlguzl2Xi9D0YqOp/4rEs5ellykyT7QwMYH/g2yRD1fuU +SfC6IAaaHVHsuEnjwkCd36zHUQZ+OG/4zWMFF57Y3hJJKmIgo8NKSU6Eqpf6 ++2TqdQYeibmRqCpM5ZFOq0tmJQPb9QRoukJcuCv+4UJuDQNnNku0rBaknv+N +oOrNZwwUqbFNUFtM5d9ubxiYYaDlAdwTP0/CuXe7Bv79yUCZoCazHb9JOOt4 +IGHsLwND3Bbbsn6RkKaf9PSHgBLWjWbpjv0gIf4XuWWZghIKzMWYaFL9anfK +ojBzKyVM9gh2Vhsmwby0jJ2drYSCafWadKp/viFK89ZfVMIvjsyHTe0kRGWX +5E7nKSHNhFfOn+q/t+KKL20qUcK1CmYCuW1Uv3Zn54jcUUJjJ48/s80kqC86 +m574QQlfu5qZWtRT+5Pt0bERmkwsa/jHUr2QhJsdkTHKekyUu3n3egLV/11s +Dh/rMGRiU+PDqX42CRmGB4+sAiYWBl1WT7tMgrDQ3sPjzkwc+mW75mU2CQtr +fMMCDzGx+r631FQSCZNiNj5ujUx06ox+W7abhO4Qxovgx0wcyTNemRtEQsOj +nxDTysSOkWwidScJ6VGlite6mLhwtlvI348E3QGh/rlhJoozSgVnqf1QKPl8 +22VxZdzlntpVak3CsKOr56C/MlqwbmXvUiZh8LSP2/4lKvhnUcqTiC4OhA5r +MnSFVPD08YgugQ4OfN8wNzYmqoKLsydUL77kgCBfRkKQjApan7Zn327lgG5k +U5WPlgp+kX+7pJ/aDx4NUBF33KyCutfV7/RWcEDSYvS5Rp4KEja8wtkJHLD+ +esj6k5EqbmWeI7Zrc2DUj/9AVYwailq8rxq/U0H9T0jxnmxUxwlfDf3xX2Ug +9kwljfN1JdbPzT+OtygFuaRKJyMjTbQTNF/QubEEcjRMRMV3amFi/VNG6u6r +8ETG0nDqjDb+lNjysT67CEzlGtN1unTwB69R2VH2FRDhKwjfEa+Lf0aGh8jX ++aAQp2i+VUUPp6pa9++YzQMBZa/qTY/1UCFj84Wwo5dAmyVdeWjbKnz7NTNH +K+w87O8Ta7Lh0cc9I+sMx7dmw9ep067WOfpon2N7PYGTCRt0Hl2w1jLA64qk +6gmbM3B3yuzX9zYDzH219ltSTyqEaq7qfRlgiGI0yavNfaeANe7fsVXACN9c +Drj0iS8R1jNp9sIFRhjf9TV076t4UItNPtxobIxjVSLiqctiYWWAyT3lXmOc +4723+mN/FATc3XWiat9qzLQ4h8COgHvsDv/JFSaYIS++4HzJfpi+9ve7zi0T +jOzqbSuuCgU/5VKBC/amONac6WIbHgRRD72DVZxM8amg3aHN24MgPUDsKXeT +KRbwjfoE2wTBnaLI00+3mKL4s+5dD4ggkFDZuGx+hylqc8/uVmvbBY9UPkn4 +RJhia5/U+hKNXbBSTZFQyTPFrgU//rhNBsLkykwj7oQputYGXK0s8ofuVlwv +PmWKb57t1XDN8oeG0PHN4TOmGG9/4sOiBH9I41rvM/ppin2G554m+fvDSlOe +slo+M2z13jIuzvQHX+s99CZJM2Qrz2mYFvlBx84NQh3mZsjUPt59qdIXbhf+ ++jCTZIbSrmEPD3z0AaO14d9tUsywIthw2+9OH7j5YVSInWqG60vznNOafYCr +0Gdsk2GGN0MCzdrKfaAspyE196IZ2tobx9Yf9gH26QSTDRVmeKXvMbqK+sCp +8GVncl6ZYUnPuGzKaW/wWKeEZgrmaOwgPy2f4wnzHfwiTYQ5HnNepnUlxhPY +AeNvbJTMMe7ScJTZTk/4nFhzyEPNHEunkplFRp6wv8WxMnKVOcbm9Xh4dnlA +ssMRhdtW5vhlp1zDRmkPqHXv/G2w1xxff9IcfFXmDrJ7TtZoN5hjdn/DcYLf +DdL+BhqmNJrj6INoy4AZV+DNsCL/fWCO7due024PuMJw9aISdos59rt2TZys +d4VanhM5Yq/M0TbA3fH5AVfwOBt7aPaTOV6cbJGZGXCBnLpIw7tLWTj2RWm7 +z9PNsEIwhLTfwsI5/zJaX6MzFK49GjWxlYVZ3er6F0hnWHU0bW2mFwsbo8+t +CWA7g8MEp7N7BwtPOu+TUDvmDIldM3N+ISxsD6zYtN3UGX4UxKyJimPh/Cze +T77pBL1mma+KS1m4yWfo9oo9jrDrYOEl6woW6reoZdMdHGG24mbAKIeFyzor +qjfqOIIYo/u7XjUL3yi27B2adABbfnm5+gYWrggMSdp92AHudBT7v+pkYWzb +wtLQZHuwEbmtFdHNQjuNelDeYw/dG1pmaW9YeDtzpHPG0R6ma0eSvN+zMKao ++dbgCnvQytct/zLMwoyETo3vBXZwp9cy4vQYC/99C8XRiXZgI7EZdCZYmPjg +RIJ0sB0Enjz4MnyGhen71JTz9exguiHxgtQPFuZfHLqbvMIO4n+e86v9yUJt +aauw1DlbEDUo0dw2z8KRt8IqJe9sIXdP7czfvyzsJGjP3t23hf8AVpDjEg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "PlotRange" -> {{0, 30}, {0., 0.07112675596312176}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -13643,19 +14211,19 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "PlotRange" -> {{0, 30}, {0., 0.07112675596312176}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13669,163 +14237,123 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK -SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx -/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr -12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI -64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs -Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ -g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q -LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o -2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL -6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u -nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr -t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 -MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 -eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M -qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD -y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ -1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh -a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk -LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz -5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 -bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg -PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx -ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg -RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 -Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab -+LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l -8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm -JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 -Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk -7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar -LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 -KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR -zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e -aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ -EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr -xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ -lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh -7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX -jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw -Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 -VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK -wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I -3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h -YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS -a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG -+Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk -30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE -aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ -gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk -pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 -/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 -BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB -DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm -Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU -mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg -srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa -elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp -F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR -vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO -p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe -zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y -c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS -5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD -ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF -aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX -oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD -KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE -ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv -XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y -HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T -SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol -DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN -kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK -J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 -XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw -YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl -49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi -hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV -sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 -NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR -P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy -r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ -sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp -3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L -TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG -cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU -XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB -oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX -flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N -Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j -GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 -8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ -lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr -MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC -ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi -z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq -frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T -VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda -R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a -d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP -cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 -ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ -2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM -uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B -8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 -SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV -rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw -u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B -jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO -FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz -oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE -zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 -hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb -QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe -htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b -gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr -CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d -3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V -Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr -t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS -d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ -TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb -EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK -Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ -KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb -vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU -/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 -JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG -bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD -VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 -0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z -j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ -z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 -dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs -D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ -M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ -3z9DIQ== +1:eJwV13k8VVsUB3DRgJAQ13zudU2ZM2W41tKgzBQSkkxFkkoKlaFIxBORJi6h +ZLrnJoWUaKCkEkJFST2ZIkOp1Dvvr/P5fvbnTPvs9Vv70H33bgrg5eHhkV3A +w/P/cbav5QEzpdCCrI1KLpFYY9GRS4u07I6HyKdnXYayCMAVz31p3RkgpOm2 +vjFLFyKcrr/m6y6As3rLz1/LQlg+LpUx95oLlqcydOOynKD/jsPe6deNkPZW +25AvywesmMPvJl+3w46u7+aymWEw99o4a+L1AOh6lO9LSImFprVXC18WTIFa +gk3tRZkzINdf89lXcx7qHv1siaWdB4mQ7deXrOVDoYSlSbY2bMjQs6pzcOXH +FLdpn1xaIfTk6DZMigrjhm3lV695XYWUwpjnvNLL8f7d5oLfyddB6uzHU5mX +xXFy8lXrwnXlQNO4eeJHsTjeKEne5mdfDjKNiTHbOOJY4CjJc8etHBQm1A+q +Nonj0m2TBz2DykHZLsynbkgcffP5F25OKwf9hfNGH/UlsGK847rS63JwDJcc +XPVEAp1LHc6u9a+Aky7WFu2zK7B7pm58Q0glyFS1yfAukEQ3922WreGVUCHu +8l1vqSS2zjBcrI9WQle7N+eMoiQ2ZeZVa6VVAtM5nOG8URJno89vyaushEb7 +vMUvzkuizrJ9LsqTlTBvNdP2zFwKVeWPpnsacyC9OKp03koKnfq0/qiZcYC5 +mCdJy1kKgyfyG75ZcMDuoaBlaoAUin5+uCbaigMX1hI37NKk0O7QZwMfVw6s +RttzT/ulcPFt20uR+zlwwCR/e0s8DS869st9KeGADVtk2vY0Dfvb//xeUs4B +xpIjSW1ZNKx9eaBIicOBFx1u5KtrNFxFijg6V3NAO0yIr6+Nhuxecb7ERg4M +FR8q/iYjjcpvhQdcejngJeEwJntDGre+t3RIWkKCfnRdXO4daUy7flkZBUkQ +HFCTpD+Sxkcpdx9MC5FQU8kHKj3SGJkU6+EiRoKkbU267l9ptEnL/DQqR8KL +OKbBelsZzP925dRxPRLWff0ZFfpRBoeSdtRucCchcuPZlfdHZfAdWoulepBQ +ka/VKz4rg8RiN9fnXiTQXHxMavhlUdQv/rLNDhJGbz/8zqcti0m5L03lgknI +jE8PP39YFrfFJr3UiCZhYIVK6ANhOUz/Av3zF0iQ2ntPXkpKDnXKr/56f4kE +u2b3Z0GEHLaLzQvczyWhOipFc5m+HErVH58/VEBCcv/E8FZ3ORTlubnhfgkJ +q0rqdn4tkENLZ7GS+7dIiDN33iGzWh4Dx5SfR78kYaN37jfjNfL4q2lNkMIr +EkRiR4672smjp15tRH0HCZeaEorTfeQx+y17bOI1CbdtakcWn5JH/oZBd60+ +EibclSKmeuQx2rws6/cXEm5FhS1ZPiiPaDXDDhwh4dil+hztcXlUuFKr+myU +BKH3W+qCeBVQ4MiXkn++kqC68zTP+5UKmNrnnT48TYL3wZnk1mgFZEzvC/jx +hwTlc2vkhhMUcGGPVchKHi41f/+UL0lXwP697d/dF3Ah6rf6izWFCvi4Jy6v +lI8LWce9V9S0UudPlqxR5edC65nHeUXyilgn2Bl4WJQLmTck9JpUFdHyTv/C +A8u54NG5o/G9niKmnRrRCxbjwhDt96CslSLGBdWbOUhwgY+tuzIjVBEN1U7Q +x6S4YFpxvurYPUW8bdzYnqjAhXWv2+bHmxWRx1q0iqXIBQeehRu2tyuifwWT +PUnZb1NoD3xSxPcCAhed6FywiqbHxC4icHT6oeaIEheeLrtzZbUggbybNxxM +ZnLBqdCteUKEwMOZB56pKHPB81nK8h00AoOl7SvdVLgQpjh7xVKDwD+jlTaZ +alyYuZHePKdDoPWgNkNWnZqPjRpjpAGBLxJCRNiUE/b5GDEsCEyLrVPNX8mF +C01PmnmdCWxpnN0bq8kFRfeAsVpXAtv8q/5OUC4c/bv8gAeBrI79Jd5aXKhc +Yej50Y9Ay3tsez1tLjzYmTfWFEGgQG/FyA0dLlj/NhE7Ek3gor+e3sK6XGhL +7zAyiCVQOy1ywo9yT41AbOEpAn8teXqQX48L3g6FhV5pBG5m+QW7UR4csGiR +yCTQa59BXD7l8aXhYgmXCLzPt4mms4oLB9gixqx8Asd0+S/so/zDoMRzpojA +k3NPkKTM591XGFBJYFKMM4+aPheSvh1uka8i0D7uhMx2yiInxcc7bxPoUVzg +lUmZxtlobNVI4N3NiZ5TlC+v++j55xF1/5MN0ooGXGD0HI2tfkrggP5z3o2U +r+2hFYW+IHCXZ6hUKGUt3hstKp0EXrju4X6GMjfbfryvh8DVh50fkZRXawyJ +nesjsOCBqO9zyvX34o0dPxLoZ7JFc5jyGhd5ryVDBFarDSrzGnLh8dCt2Huj +BIqlHnKUomx3dFPRoUlqnL+9RJ1y+/KxFp1ZApmfqgxNKG8pPjn+708Ca8QG +ptZTfmvKEGf/JVBdTe6TI2Xf53eM3RfSUchXRXAL5X/9tniJCtAxuOCBnyfl +kB+Tsc3CdDQKq/vmRdl0X6DkZzE6Du4dOvL/OP9wbykfjY7qYuvvu1Hu8nW0 +pMvTka3X1uBAuehNU5cFg44fT8UdWUs53GV1iJcqHburt80YUF7zrGxBlCYd +f+j7aipRFrWinzunR8dcz38YIpT77mZp3jSio23g5+4Zaj7KjAUb283o+DUo +yKmXchTn2JYJpKPJVtnkOsob1adGha2o6/PynDxPWbJgZ7yGLR1bROU2hlMe +lHkrZe1Ex+wlB9ts//8emU7lga505KxfLktQdkww6c7fTscgB72l96jvrfCn +fM89f2pc9BHnFOXRCAbfuyA6yvM3EM7/r59dS7Vp4XRMuSfi30WtL7cPMU2G +kXQ0UI82OUuZ6THtvvkYHQekj7xzoNxg++54WhIdz8wfyKql1m/aA2fpslQ6 +LjI8VbqbshfrUUVLBvV+UXvPSlOe067sWXiZmp+q6YHdVH2sEovTiSbpWFc3 +kz5M1RdPysyDnGo6FiXle8ZTbuML9qiuo2OX+90FUpR3z2xKmHxIR1fm9UEj +qj4Lu5lvdvbScae9KNNZgwv7nc+HJfTTUSpl4ZfnVL3jE+HFVwbpWOBvnmFL ++V3drG7fOB11xsezTKh8kMxrTnThY+A3xfa4CSpfBqVYcvv5GXj+olPS/3nD +TSfJf4QZeCpc8kgNlUeO8RfePpFiYKg/v24ElVdJASGrLDUZeLYk78sTKt/m +NET7tFwZ+E64o3hAlguzl2Xi9D0YqOp/4rEs5ellykyT7QwMYH/g2yRD1fuU +SfC6IAaaHVHsuEnjwkCd36zHUQZ+OG/4zWMFF57Y3hJJKmIgo8NKSU6Eqpf6 ++2TqdQYeibmRqCpM5ZFOq0tmJQPb9QRoukJcuCv+4UJuDQNnNku0rBaknv+N +oOrNZwwUqbFNUFtM5d9ubxiYYaDlAdwTP0/CuXe7Bv79yUCZoCazHb9JOOt4 +IGHsLwND3Bbbsn6RkKaf9PSHgBLWjWbpjv0gIf4XuWWZghIKzMWYaFL9anfK +ojBzKyVM9gh2Vhsmwby0jJ2drYSCafWadKp/viFK89ZfVMIvjsyHTe0kRGWX +5E7nKSHNhFfOn+q/t+KKL20qUcK1CmYCuW1Uv3Zn54jcUUJjJ48/s80kqC86 +m574QQlfu5qZWtRT+5Pt0bERmkwsa/jHUr2QhJsdkTHKekyUu3n3egLV/11s +Dh/rMGRiU+PDqX42CRmGB4+sAiYWBl1WT7tMgrDQ3sPjzkwc+mW75mU2CQtr +fMMCDzGx+r631FQSCZNiNj5ujUx06ox+W7abhO4Qxovgx0wcyTNemRtEQsOj +nxDTysSOkWwidScJ6VGlite6mLhwtlvI348E3QGh/rlhJoozSgVnqf1QKPl8 +22VxZdzlntpVak3CsKOr56C/MlqwbmXvUiZh8LSP2/4lKvhnUcqTiC4OhA5r +MnSFVPD08YgugQ4OfN8wNzYmqoKLsydUL77kgCBfRkKQjApan7Zn327lgG5k +U5WPlgp+kX+7pJ/aDx4NUBF33KyCutfV7/RWcEDSYvS5Rp4KEja8wtkJHLD+ +esj6k5EqbmWeI7Zrc2DUj/9AVYwailq8rxq/U0H9T0jxnmxUxwlfDf3xX2Ug +9kwljfN1JdbPzT+OtygFuaRKJyMjTbQTNF/QubEEcjRMRMV3amFi/VNG6u6r +8ETG0nDqjDb+lNjysT67CEzlGtN1unTwB69R2VH2FRDhKwjfEa+Lf0aGh8jX ++aAQp2i+VUUPp6pa9++YzQMBZa/qTY/1UCFj84Wwo5dAmyVdeWjbKnz7NTNH +K+w87O8Ta7Lh0cc9I+sMx7dmw9ep067WOfpon2N7PYGTCRt0Hl2w1jLA64qk +6gmbM3B3yuzX9zYDzH219ltSTyqEaq7qfRlgiGI0yavNfaeANe7fsVXACN9c +Drj0iS8R1jNp9sIFRhjf9TV076t4UItNPtxobIxjVSLiqctiYWWAyT3lXmOc +4723+mN/FATc3XWiat9qzLQ4h8COgHvsDv/JFSaYIS++4HzJfpi+9ve7zi0T +jOzqbSuuCgU/5VKBC/amONac6WIbHgRRD72DVZxM8amg3aHN24MgPUDsKXeT +KRbwjfoE2wTBnaLI00+3mKL4s+5dD4ggkFDZuGx+hylqc8/uVmvbBY9UPkn4 +RJhia5/U+hKNXbBSTZFQyTPFrgU//rhNBsLkykwj7oQputYGXK0s8ofuVlwv +PmWKb57t1XDN8oeG0PHN4TOmGG9/4sOiBH9I41rvM/ppin2G554m+fvDSlOe +slo+M2z13jIuzvQHX+s99CZJM2Qrz2mYFvlBx84NQh3mZsjUPt59qdIXbhf+ ++jCTZIbSrmEPD3z0AaO14d9tUsywIthw2+9OH7j5YVSInWqG60vznNOafYCr +0Gdsk2GGN0MCzdrKfaAspyE196IZ2tobx9Yf9gH26QSTDRVmeKXvMbqK+sCp +8GVncl6ZYUnPuGzKaW/wWKeEZgrmaOwgPy2f4wnzHfwiTYQ5HnNepnUlxhPY +AeNvbJTMMe7ScJTZTk/4nFhzyEPNHEunkplFRp6wv8WxMnKVOcbm9Xh4dnlA +ssMRhdtW5vhlp1zDRmkPqHXv/G2w1xxff9IcfFXmDrJ7TtZoN5hjdn/DcYLf +DdL+BhqmNJrj6INoy4AZV+DNsCL/fWCO7due024PuMJw9aISdos59rt2TZys +d4VanhM5Yq/M0TbA3fH5AVfwOBt7aPaTOV6cbJGZGXCBnLpIw7tLWTj2RWm7 +z9PNsEIwhLTfwsI5/zJaX6MzFK49GjWxlYVZ3er6F0hnWHU0bW2mFwsbo8+t +CWA7g8MEp7N7BwtPOu+TUDvmDIldM3N+ISxsD6zYtN3UGX4UxKyJimPh/Cze +T77pBL1mma+KS1m4yWfo9oo9jrDrYOEl6woW6reoZdMdHGG24mbAKIeFyzor +qjfqOIIYo/u7XjUL3yi27B2adABbfnm5+gYWrggMSdp92AHudBT7v+pkYWzb +wtLQZHuwEbmtFdHNQjuNelDeYw/dG1pmaW9YeDtzpHPG0R6ma0eSvN+zMKao ++dbgCnvQytct/zLMwoyETo3vBXZwp9cy4vQYC/99C8XRiXZgI7EZdCZYmPjg +RIJ0sB0Enjz4MnyGhen71JTz9exguiHxgtQPFuZfHLqbvMIO4n+e86v9yUJt +aauw1DlbEDUo0dw2z8KRt8IqJe9sIXdP7czfvyzsJGjP3t23hf8AVpDjEg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "PlotRange" -> {{0, 30}, {0., 0.07112675596312176}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13836,6 +14364,7 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -13863,7 +14392,8 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.17388882737814787`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07112675596312176}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -13871,17 +14401,592 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913324679337597`*^9}, + CellChangeTimes->{3.9913324679337597`*^9, 3.994260612407549*^9}, CellLabel-> - "Out[221]=",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] + "Out[140]=",ExpressionUUID->"28ab89e0-8670-446f-bb92-5a6f913d065b"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"f380af60-a605-c546-a4c8-\ -b989835aa113"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k8VVsUB3DRgJAQ13zudU2ZM2W41tKgzBQSkkxFkkoKlaFIxBORJi6h +ZLrnJoWUaKCkEkJFST2ZIkOp1Dvvr/P5fvbnTPvs9Vv70H33bgrg5eHhkV3A +w/P/cbav5QEzpdCCrI1KLpFYY9GRS4u07I6HyKdnXYayCMAVz31p3RkgpOm2 +vjFLFyKcrr/m6y6As3rLz1/LQlg+LpUx95oLlqcydOOynKD/jsPe6deNkPZW +25AvywesmMPvJl+3w46u7+aymWEw99o4a+L1AOh6lO9LSImFprVXC18WTIFa +gk3tRZkzINdf89lXcx7qHv1siaWdB4mQ7deXrOVDoYSlSbY2bMjQs6pzcOXH +FLdpn1xaIfTk6DZMigrjhm3lV695XYWUwpjnvNLL8f7d5oLfyddB6uzHU5mX +xXFy8lXrwnXlQNO4eeJHsTjeKEne5mdfDjKNiTHbOOJY4CjJc8etHBQm1A+q +Nonj0m2TBz2DykHZLsynbkgcffP5F25OKwf9hfNGH/UlsGK847rS63JwDJcc +XPVEAp1LHc6u9a+Aky7WFu2zK7B7pm58Q0glyFS1yfAukEQ3922WreGVUCHu +8l1vqSS2zjBcrI9WQle7N+eMoiQ2ZeZVa6VVAtM5nOG8URJno89vyaushEb7 +vMUvzkuizrJ9LsqTlTBvNdP2zFwKVeWPpnsacyC9OKp03koKnfq0/qiZcYC5 +mCdJy1kKgyfyG75ZcMDuoaBlaoAUin5+uCbaigMX1hI37NKk0O7QZwMfVw6s +RttzT/ulcPFt20uR+zlwwCR/e0s8DS869st9KeGADVtk2vY0Dfvb//xeUs4B +xpIjSW1ZNKx9eaBIicOBFx1u5KtrNFxFijg6V3NAO0yIr6+Nhuxecb7ERg4M +FR8q/iYjjcpvhQdcejngJeEwJntDGre+t3RIWkKCfnRdXO4daUy7flkZBUkQ +HFCTpD+Sxkcpdx9MC5FQU8kHKj3SGJkU6+EiRoKkbU267l9ptEnL/DQqR8KL +OKbBelsZzP925dRxPRLWff0ZFfpRBoeSdtRucCchcuPZlfdHZfAdWoulepBQ +ka/VKz4rg8RiN9fnXiTQXHxMavhlUdQv/rLNDhJGbz/8zqcti0m5L03lgknI +jE8PP39YFrfFJr3UiCZhYIVK6ANhOUz/Av3zF0iQ2ntPXkpKDnXKr/56f4kE +u2b3Z0GEHLaLzQvczyWhOipFc5m+HErVH58/VEBCcv/E8FZ3ORTlubnhfgkJ +q0rqdn4tkENLZ7GS+7dIiDN33iGzWh4Dx5SfR78kYaN37jfjNfL4q2lNkMIr +EkRiR4672smjp15tRH0HCZeaEorTfeQx+y17bOI1CbdtakcWn5JH/oZBd60+ +EibclSKmeuQx2rws6/cXEm5FhS1ZPiiPaDXDDhwh4dil+hztcXlUuFKr+myU +BKH3W+qCeBVQ4MiXkn++kqC68zTP+5UKmNrnnT48TYL3wZnk1mgFZEzvC/jx +hwTlc2vkhhMUcGGPVchKHi41f/+UL0lXwP697d/dF3Ah6rf6izWFCvi4Jy6v +lI8LWce9V9S0UudPlqxR5edC65nHeUXyilgn2Bl4WJQLmTck9JpUFdHyTv/C +A8u54NG5o/G9niKmnRrRCxbjwhDt96CslSLGBdWbOUhwgY+tuzIjVBEN1U7Q +x6S4YFpxvurYPUW8bdzYnqjAhXWv2+bHmxWRx1q0iqXIBQeehRu2tyuifwWT +PUnZb1NoD3xSxPcCAhed6FywiqbHxC4icHT6oeaIEheeLrtzZbUggbybNxxM +ZnLBqdCteUKEwMOZB56pKHPB81nK8h00AoOl7SvdVLgQpjh7xVKDwD+jlTaZ +alyYuZHePKdDoPWgNkNWnZqPjRpjpAGBLxJCRNiUE/b5GDEsCEyLrVPNX8mF +C01PmnmdCWxpnN0bq8kFRfeAsVpXAtv8q/5OUC4c/bv8gAeBrI79Jd5aXKhc +Yej50Y9Ay3tsez1tLjzYmTfWFEGgQG/FyA0dLlj/NhE7Ek3gor+e3sK6XGhL +7zAyiCVQOy1ywo9yT41AbOEpAn8teXqQX48L3g6FhV5pBG5m+QW7UR4csGiR +yCTQa59BXD7l8aXhYgmXCLzPt4mms4oLB9gixqx8Asd0+S/so/zDoMRzpojA +k3NPkKTM591XGFBJYFKMM4+aPheSvh1uka8i0D7uhMx2yiInxcc7bxPoUVzg +lUmZxtlobNVI4N3NiZ5TlC+v++j55xF1/5MN0ooGXGD0HI2tfkrggP5z3o2U +r+2hFYW+IHCXZ6hUKGUt3hstKp0EXrju4X6GMjfbfryvh8DVh50fkZRXawyJ +nesjsOCBqO9zyvX34o0dPxLoZ7JFc5jyGhd5ryVDBFarDSrzGnLh8dCt2Huj +BIqlHnKUomx3dFPRoUlqnL+9RJ1y+/KxFp1ZApmfqgxNKG8pPjn+708Ca8QG +ptZTfmvKEGf/JVBdTe6TI2Xf53eM3RfSUchXRXAL5X/9tniJCtAxuOCBnyfl +kB+Tsc3CdDQKq/vmRdl0X6DkZzE6Du4dOvL/OP9wbykfjY7qYuvvu1Hu8nW0 +pMvTka3X1uBAuehNU5cFg44fT8UdWUs53GV1iJcqHburt80YUF7zrGxBlCYd +f+j7aipRFrWinzunR8dcz38YIpT77mZp3jSio23g5+4Zaj7KjAUb283o+DUo +yKmXchTn2JYJpKPJVtnkOsob1adGha2o6/PynDxPWbJgZ7yGLR1bROU2hlMe +lHkrZe1Ex+wlB9ts//8emU7lga505KxfLktQdkww6c7fTscgB72l96jvrfCn +fM89f2pc9BHnFOXRCAbfuyA6yvM3EM7/r59dS7Vp4XRMuSfi30WtL7cPMU2G +kXQ0UI82OUuZ6THtvvkYHQekj7xzoNxg++54WhIdz8wfyKql1m/aA2fpslQ6 +LjI8VbqbshfrUUVLBvV+UXvPSlOe067sWXiZmp+q6YHdVH2sEovTiSbpWFc3 +kz5M1RdPysyDnGo6FiXle8ZTbuML9qiuo2OX+90FUpR3z2xKmHxIR1fm9UEj +qj4Lu5lvdvbScae9KNNZgwv7nc+HJfTTUSpl4ZfnVL3jE+HFVwbpWOBvnmFL ++V3drG7fOB11xsezTKh8kMxrTnThY+A3xfa4CSpfBqVYcvv5GXj+olPS/3nD +TSfJf4QZeCpc8kgNlUeO8RfePpFiYKg/v24ElVdJASGrLDUZeLYk78sTKt/m +NET7tFwZ+E64o3hAlguzl2Xi9D0YqOp/4rEs5ellykyT7QwMYH/g2yRD1fuU +SfC6IAaaHVHsuEnjwkCd36zHUQZ+OG/4zWMFF57Y3hJJKmIgo8NKSU6Eqpf6 ++2TqdQYeibmRqCpM5ZFOq0tmJQPb9QRoukJcuCv+4UJuDQNnNku0rBaknv+N +oOrNZwwUqbFNUFtM5d9ubxiYYaDlAdwTP0/CuXe7Bv79yUCZoCazHb9JOOt4 +IGHsLwND3Bbbsn6RkKaf9PSHgBLWjWbpjv0gIf4XuWWZghIKzMWYaFL9anfK +ojBzKyVM9gh2Vhsmwby0jJ2drYSCafWadKp/viFK89ZfVMIvjsyHTe0kRGWX +5E7nKSHNhFfOn+q/t+KKL20qUcK1CmYCuW1Uv3Zn54jcUUJjJ48/s80kqC86 +m574QQlfu5qZWtRT+5Pt0bERmkwsa/jHUr2QhJsdkTHKekyUu3n3egLV/11s +Dh/rMGRiU+PDqX42CRmGB4+sAiYWBl1WT7tMgrDQ3sPjzkwc+mW75mU2CQtr +fMMCDzGx+r631FQSCZNiNj5ujUx06ox+W7abhO4Qxovgx0wcyTNemRtEQsOj +nxDTysSOkWwidScJ6VGlite6mLhwtlvI348E3QGh/rlhJoozSgVnqf1QKPl8 +22VxZdzlntpVak3CsKOr56C/MlqwbmXvUiZh8LSP2/4lKvhnUcqTiC4OhA5r +MnSFVPD08YgugQ4OfN8wNzYmqoKLsydUL77kgCBfRkKQjApan7Zn327lgG5k +U5WPlgp+kX+7pJ/aDx4NUBF33KyCutfV7/RWcEDSYvS5Rp4KEja8wtkJHLD+ +esj6k5EqbmWeI7Zrc2DUj/9AVYwailq8rxq/U0H9T0jxnmxUxwlfDf3xX2Ug +9kwljfN1JdbPzT+OtygFuaRKJyMjTbQTNF/QubEEcjRMRMV3amFi/VNG6u6r +8ETG0nDqjDb+lNjysT67CEzlGtN1unTwB69R2VH2FRDhKwjfEa+Lf0aGh8jX ++aAQp2i+VUUPp6pa9++YzQMBZa/qTY/1UCFj84Wwo5dAmyVdeWjbKnz7NTNH +K+w87O8Ta7Lh0cc9I+sMx7dmw9ep067WOfpon2N7PYGTCRt0Hl2w1jLA64qk +6gmbM3B3yuzX9zYDzH219ltSTyqEaq7qfRlgiGI0yavNfaeANe7fsVXACN9c +Drj0iS8R1jNp9sIFRhjf9TV076t4UItNPtxobIxjVSLiqctiYWWAyT3lXmOc +4723+mN/FATc3XWiat9qzLQ4h8COgHvsDv/JFSaYIS++4HzJfpi+9ve7zi0T +jOzqbSuuCgU/5VKBC/amONac6WIbHgRRD72DVZxM8amg3aHN24MgPUDsKXeT +KRbwjfoE2wTBnaLI00+3mKL4s+5dD4ggkFDZuGx+hylqc8/uVmvbBY9UPkn4 +RJhia5/U+hKNXbBSTZFQyTPFrgU//rhNBsLkykwj7oQputYGXK0s8ofuVlwv +PmWKb57t1XDN8oeG0PHN4TOmGG9/4sOiBH9I41rvM/ppin2G554m+fvDSlOe +slo+M2z13jIuzvQHX+s99CZJM2Qrz2mYFvlBx84NQh3mZsjUPt59qdIXbhf+ ++jCTZIbSrmEPD3z0AaO14d9tUsywIthw2+9OH7j5YVSInWqG60vznNOafYCr +0Gdsk2GGN0MCzdrKfaAspyE196IZ2tobx9Yf9gH26QSTDRVmeKXvMbqK+sCp +8GVncl6ZYUnPuGzKaW/wWKeEZgrmaOwgPy2f4wnzHfwiTYQ5HnNepnUlxhPY +AeNvbJTMMe7ScJTZTk/4nFhzyEPNHEunkplFRp6wv8WxMnKVOcbm9Xh4dnlA +ssMRhdtW5vhlp1zDRmkPqHXv/G2w1xxff9IcfFXmDrJ7TtZoN5hjdn/DcYLf +DdL+BhqmNJrj6INoy4AZV+DNsCL/fWCO7due024PuMJw9aISdos59rt2TZys +d4VanhM5Yq/M0TbA3fH5AVfwOBt7aPaTOV6cbJGZGXCBnLpIw7tLWTj2RWm7 +z9PNsEIwhLTfwsI5/zJaX6MzFK49GjWxlYVZ3er6F0hnWHU0bW2mFwsbo8+t +CWA7g8MEp7N7BwtPOu+TUDvmDIldM3N+ISxsD6zYtN3UGX4UxKyJimPh/Cze +T77pBL1mma+KS1m4yWfo9oo9jrDrYOEl6woW6reoZdMdHGG24mbAKIeFyzor +qjfqOIIYo/u7XjUL3yi27B2adABbfnm5+gYWrggMSdp92AHudBT7v+pkYWzb +wtLQZHuwEbmtFdHNQjuNelDeYw/dG1pmaW9YeDtzpHPG0R6ma0eSvN+zMKao ++dbgCnvQytct/zLMwoyETo3vBXZwp9cy4vQYC/99C8XRiXZgI7EZdCZYmPjg +RIJ0sB0Enjz4MnyGhen71JTz9exguiHxgtQPFuZfHLqbvMIO4n+e86v9yUJt +aauw1DlbEDUo0dw2z8KRt8IqJe9sIXdP7czfvyzsJGjP3t23hf8AVpDjEg== + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VVsUB3DRgJAQ13zudU2ZM2W41tKgzBQSkkxFkkoKlaFIxBORJi6h +ZLrnJoWUaKCkEkJFST2ZIkOp1Dvvr/P5fvbnTPvs9Vv70H33bgrg5eHhkV3A +w/P/cbav5QEzpdCCrI1KLpFYY9GRS4u07I6HyKdnXYayCMAVz31p3RkgpOm2 +vjFLFyKcrr/m6y6As3rLz1/LQlg+LpUx95oLlqcydOOynKD/jsPe6deNkPZW +25AvywesmMPvJl+3w46u7+aymWEw99o4a+L1AOh6lO9LSImFprVXC18WTIFa +gk3tRZkzINdf89lXcx7qHv1siaWdB4mQ7deXrOVDoYSlSbY2bMjQs6pzcOXH +FLdpn1xaIfTk6DZMigrjhm3lV695XYWUwpjnvNLL8f7d5oLfyddB6uzHU5mX +xXFy8lXrwnXlQNO4eeJHsTjeKEne5mdfDjKNiTHbOOJY4CjJc8etHBQm1A+q +Nonj0m2TBz2DykHZLsynbkgcffP5F25OKwf9hfNGH/UlsGK847rS63JwDJcc +XPVEAp1LHc6u9a+Aky7WFu2zK7B7pm58Q0glyFS1yfAukEQ3922WreGVUCHu +8l1vqSS2zjBcrI9WQle7N+eMoiQ2ZeZVa6VVAtM5nOG8URJno89vyaushEb7 +vMUvzkuizrJ9LsqTlTBvNdP2zFwKVeWPpnsacyC9OKp03koKnfq0/qiZcYC5 +mCdJy1kKgyfyG75ZcMDuoaBlaoAUin5+uCbaigMX1hI37NKk0O7QZwMfVw6s +RttzT/ulcPFt20uR+zlwwCR/e0s8DS869st9KeGADVtk2vY0Dfvb//xeUs4B +xpIjSW1ZNKx9eaBIicOBFx1u5KtrNFxFijg6V3NAO0yIr6+Nhuxecb7ERg4M +FR8q/iYjjcpvhQdcejngJeEwJntDGre+t3RIWkKCfnRdXO4daUy7flkZBUkQ +HFCTpD+Sxkcpdx9MC5FQU8kHKj3SGJkU6+EiRoKkbU267l9ptEnL/DQqR8KL +OKbBelsZzP925dRxPRLWff0ZFfpRBoeSdtRucCchcuPZlfdHZfAdWoulepBQ +ka/VKz4rg8RiN9fnXiTQXHxMavhlUdQv/rLNDhJGbz/8zqcti0m5L03lgknI +jE8PP39YFrfFJr3UiCZhYIVK6ANhOUz/Av3zF0iQ2ntPXkpKDnXKr/56f4kE +u2b3Z0GEHLaLzQvczyWhOipFc5m+HErVH58/VEBCcv/E8FZ3ORTlubnhfgkJ +q0rqdn4tkENLZ7GS+7dIiDN33iGzWh4Dx5SfR78kYaN37jfjNfL4q2lNkMIr +EkRiR4672smjp15tRH0HCZeaEorTfeQx+y17bOI1CbdtakcWn5JH/oZBd60+ +EibclSKmeuQx2rws6/cXEm5FhS1ZPiiPaDXDDhwh4dil+hztcXlUuFKr+myU +BKH3W+qCeBVQ4MiXkn++kqC68zTP+5UKmNrnnT48TYL3wZnk1mgFZEzvC/jx +hwTlc2vkhhMUcGGPVchKHi41f/+UL0lXwP697d/dF3Ah6rf6izWFCvi4Jy6v +lI8LWce9V9S0UudPlqxR5edC65nHeUXyilgn2Bl4WJQLmTck9JpUFdHyTv/C +A8u54NG5o/G9niKmnRrRCxbjwhDt96CslSLGBdWbOUhwgY+tuzIjVBEN1U7Q +x6S4YFpxvurYPUW8bdzYnqjAhXWv2+bHmxWRx1q0iqXIBQeehRu2tyuifwWT +PUnZb1NoD3xSxPcCAhed6FywiqbHxC4icHT6oeaIEheeLrtzZbUggbybNxxM +ZnLBqdCteUKEwMOZB56pKHPB81nK8h00AoOl7SvdVLgQpjh7xVKDwD+jlTaZ +alyYuZHePKdDoPWgNkNWnZqPjRpjpAGBLxJCRNiUE/b5GDEsCEyLrVPNX8mF +C01PmnmdCWxpnN0bq8kFRfeAsVpXAtv8q/5OUC4c/bv8gAeBrI79Jd5aXKhc +Yej50Y9Ay3tsez1tLjzYmTfWFEGgQG/FyA0dLlj/NhE7Ek3gor+e3sK6XGhL +7zAyiCVQOy1ywo9yT41AbOEpAn8teXqQX48L3g6FhV5pBG5m+QW7UR4csGiR +yCTQa59BXD7l8aXhYgmXCLzPt4mms4oLB9gixqx8Asd0+S/so/zDoMRzpojA +k3NPkKTM591XGFBJYFKMM4+aPheSvh1uka8i0D7uhMx2yiInxcc7bxPoUVzg +lUmZxtlobNVI4N3NiZ5TlC+v++j55xF1/5MN0ooGXGD0HI2tfkrggP5z3o2U +r+2hFYW+IHCXZ6hUKGUt3hstKp0EXrju4X6GMjfbfryvh8DVh50fkZRXawyJ +nesjsOCBqO9zyvX34o0dPxLoZ7JFc5jyGhd5ryVDBFarDSrzGnLh8dCt2Huj +BIqlHnKUomx3dFPRoUlqnL+9RJ1y+/KxFp1ZApmfqgxNKG8pPjn+708Ca8QG +ptZTfmvKEGf/JVBdTe6TI2Xf53eM3RfSUchXRXAL5X/9tniJCtAxuOCBnyfl +kB+Tsc3CdDQKq/vmRdl0X6DkZzE6Du4dOvL/OP9wbykfjY7qYuvvu1Hu8nW0 +pMvTka3X1uBAuehNU5cFg44fT8UdWUs53GV1iJcqHburt80YUF7zrGxBlCYd +f+j7aipRFrWinzunR8dcz38YIpT77mZp3jSio23g5+4Zaj7KjAUb283o+DUo +yKmXchTn2JYJpKPJVtnkOsob1adGha2o6/PynDxPWbJgZ7yGLR1bROU2hlMe +lHkrZe1Ex+wlB9ts//8emU7lga505KxfLktQdkww6c7fTscgB72l96jvrfCn +fM89f2pc9BHnFOXRCAbfuyA6yvM3EM7/r59dS7Vp4XRMuSfi30WtL7cPMU2G +kXQ0UI82OUuZ6THtvvkYHQekj7xzoNxg++54WhIdz8wfyKql1m/aA2fpslQ6 +LjI8VbqbshfrUUVLBvV+UXvPSlOe067sWXiZmp+q6YHdVH2sEovTiSbpWFc3 +kz5M1RdPysyDnGo6FiXle8ZTbuML9qiuo2OX+90FUpR3z2xKmHxIR1fm9UEj +qj4Lu5lvdvbScae9KNNZgwv7nc+HJfTTUSpl4ZfnVL3jE+HFVwbpWOBvnmFL ++V3drG7fOB11xsezTKh8kMxrTnThY+A3xfa4CSpfBqVYcvv5GXj+olPS/3nD +TSfJf4QZeCpc8kgNlUeO8RfePpFiYKg/v24ElVdJASGrLDUZeLYk78sTKt/m +NET7tFwZ+E64o3hAlguzl2Xi9D0YqOp/4rEs5ellykyT7QwMYH/g2yRD1fuU +SfC6IAaaHVHsuEnjwkCd36zHUQZ+OG/4zWMFF57Y3hJJKmIgo8NKSU6Eqpf6 ++2TqdQYeibmRqCpM5ZFOq0tmJQPb9QRoukJcuCv+4UJuDQNnNku0rBaknv+N +oOrNZwwUqbFNUFtM5d9ubxiYYaDlAdwTP0/CuXe7Bv79yUCZoCazHb9JOOt4 +IGHsLwND3Bbbsn6RkKaf9PSHgBLWjWbpjv0gIf4XuWWZghIKzMWYaFL9anfK +ojBzKyVM9gh2Vhsmwby0jJ2drYSCafWadKp/viFK89ZfVMIvjsyHTe0kRGWX +5E7nKSHNhFfOn+q/t+KKL20qUcK1CmYCuW1Uv3Zn54jcUUJjJ48/s80kqC86 +m574QQlfu5qZWtRT+5Pt0bERmkwsa/jHUr2QhJsdkTHKekyUu3n3egLV/11s +Dh/rMGRiU+PDqX42CRmGB4+sAiYWBl1WT7tMgrDQ3sPjzkwc+mW75mU2CQtr +fMMCDzGx+r631FQSCZNiNj5ujUx06ox+W7abhO4Qxovgx0wcyTNemRtEQsOj +nxDTysSOkWwidScJ6VGlite6mLhwtlvI348E3QGh/rlhJoozSgVnqf1QKPl8 +22VxZdzlntpVak3CsKOr56C/MlqwbmXvUiZh8LSP2/4lKvhnUcqTiC4OhA5r +MnSFVPD08YgugQ4OfN8wNzYmqoKLsydUL77kgCBfRkKQjApan7Zn327lgG5k +U5WPlgp+kX+7pJ/aDx4NUBF33KyCutfV7/RWcEDSYvS5Rp4KEja8wtkJHLD+ +esj6k5EqbmWeI7Zrc2DUj/9AVYwailq8rxq/U0H9T0jxnmxUxwlfDf3xX2Ug +9kwljfN1JdbPzT+OtygFuaRKJyMjTbQTNF/QubEEcjRMRMV3amFi/VNG6u6r +8ETG0nDqjDb+lNjysT67CEzlGtN1unTwB69R2VH2FRDhKwjfEa+Lf0aGh8jX ++aAQp2i+VUUPp6pa9++YzQMBZa/qTY/1UCFj84Wwo5dAmyVdeWjbKnz7NTNH +K+w87O8Ta7Lh0cc9I+sMx7dmw9ep067WOfpon2N7PYGTCRt0Hl2w1jLA64qk +6gmbM3B3yuzX9zYDzH219ltSTyqEaq7qfRlgiGI0yavNfaeANe7fsVXACN9c +Drj0iS8R1jNp9sIFRhjf9TV076t4UItNPtxobIxjVSLiqctiYWWAyT3lXmOc +4723+mN/FATc3XWiat9qzLQ4h8COgHvsDv/JFSaYIS++4HzJfpi+9ve7zi0T +jOzqbSuuCgU/5VKBC/amONac6WIbHgRRD72DVZxM8amg3aHN24MgPUDsKXeT +KRbwjfoE2wTBnaLI00+3mKL4s+5dD4ggkFDZuGx+hylqc8/uVmvbBY9UPkn4 +RJhia5/U+hKNXbBSTZFQyTPFrgU//rhNBsLkykwj7oQputYGXK0s8ofuVlwv +PmWKb57t1XDN8oeG0PHN4TOmGG9/4sOiBH9I41rvM/ppin2G554m+fvDSlOe +slo+M2z13jIuzvQHX+s99CZJM2Qrz2mYFvlBx84NQh3mZsjUPt59qdIXbhf+ ++jCTZIbSrmEPD3z0AaO14d9tUsywIthw2+9OH7j5YVSInWqG60vznNOafYCr +0Gdsk2GGN0MCzdrKfaAspyE196IZ2tobx9Yf9gH26QSTDRVmeKXvMbqK+sCp +8GVncl6ZYUnPuGzKaW/wWKeEZgrmaOwgPy2f4wnzHfwiTYQ5HnNepnUlxhPY +AeNvbJTMMe7ScJTZTk/4nFhzyEPNHEunkplFRp6wv8WxMnKVOcbm9Xh4dnlA +ssMRhdtW5vhlp1zDRmkPqHXv/G2w1xxff9IcfFXmDrJ7TtZoN5hjdn/DcYLf +DdL+BhqmNJrj6INoy4AZV+DNsCL/fWCO7due024PuMJw9aISdos59rt2TZys +d4VanhM5Yq/M0TbA3fH5AVfwOBt7aPaTOV6cbJGZGXCBnLpIw7tLWTj2RWm7 +z9PNsEIwhLTfwsI5/zJaX6MzFK49GjWxlYVZ3er6F0hnWHU0bW2mFwsbo8+t +CWA7g8MEp7N7BwtPOu+TUDvmDIldM3N+ISxsD6zYtN3UGX4UxKyJimPh/Cze +T77pBL1mma+KS1m4yWfo9oo9jrDrYOEl6woW6reoZdMdHGG24mbAKIeFyzor +qjfqOIIYo/u7XjUL3yi27B2adABbfnm5+gYWrggMSdp92AHudBT7v+pkYWzb +wtLQZHuwEbmtFdHNQjuNelDeYw/dG1pmaW9YeDtzpHPG0R6ma0eSvN+zMKao ++dbgCnvQytct/zLMwoyETo3vBXZwp9cy4vQYC/99C8XRiXZgI7EZdCZYmPjg +RIJ0sB0Enjz4MnyGhen71JTz9exguiHxgtQPFuZfHLqbvMIO4n+e86v9yUJt +aauw1DlbEDUo0dw2z8KRt8IqJe9sIXdP7czfvyzsJGjP3t23hf8AVpDjEg== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07112675596312176}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07112675596312176}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VVsUB3DRgJAQ13zudU2ZM2W41tKgzBQSkkxFkkoKlaFIxBORJi6h +ZLrnJoWUaKCkEkJFST2ZIkOp1Dvvr/P5fvbnTPvs9Vv70H33bgrg5eHhkV3A +w/P/cbav5QEzpdCCrI1KLpFYY9GRS4u07I6HyKdnXYayCMAVz31p3RkgpOm2 +vjFLFyKcrr/m6y6As3rLz1/LQlg+LpUx95oLlqcydOOynKD/jsPe6deNkPZW +25AvywesmMPvJl+3w46u7+aymWEw99o4a+L1AOh6lO9LSImFprVXC18WTIFa +gk3tRZkzINdf89lXcx7qHv1siaWdB4mQ7deXrOVDoYSlSbY2bMjQs6pzcOXH +FLdpn1xaIfTk6DZMigrjhm3lV695XYWUwpjnvNLL8f7d5oLfyddB6uzHU5mX +xXFy8lXrwnXlQNO4eeJHsTjeKEne5mdfDjKNiTHbOOJY4CjJc8etHBQm1A+q +Nonj0m2TBz2DykHZLsynbkgcffP5F25OKwf9hfNGH/UlsGK847rS63JwDJcc +XPVEAp1LHc6u9a+Aky7WFu2zK7B7pm58Q0glyFS1yfAukEQ3922WreGVUCHu +8l1vqSS2zjBcrI9WQle7N+eMoiQ2ZeZVa6VVAtM5nOG8URJno89vyaushEb7 +vMUvzkuizrJ9LsqTlTBvNdP2zFwKVeWPpnsacyC9OKp03koKnfq0/qiZcYC5 +mCdJy1kKgyfyG75ZcMDuoaBlaoAUin5+uCbaigMX1hI37NKk0O7QZwMfVw6s +RttzT/ulcPFt20uR+zlwwCR/e0s8DS869st9KeGADVtk2vY0Dfvb//xeUs4B +xpIjSW1ZNKx9eaBIicOBFx1u5KtrNFxFijg6V3NAO0yIr6+Nhuxecb7ERg4M +FR8q/iYjjcpvhQdcejngJeEwJntDGre+t3RIWkKCfnRdXO4daUy7flkZBUkQ +HFCTpD+Sxkcpdx9MC5FQU8kHKj3SGJkU6+EiRoKkbU267l9ptEnL/DQqR8KL +OKbBelsZzP925dRxPRLWff0ZFfpRBoeSdtRucCchcuPZlfdHZfAdWoulepBQ +ka/VKz4rg8RiN9fnXiTQXHxMavhlUdQv/rLNDhJGbz/8zqcti0m5L03lgknI +jE8PP39YFrfFJr3UiCZhYIVK6ANhOUz/Av3zF0iQ2ntPXkpKDnXKr/56f4kE +u2b3Z0GEHLaLzQvczyWhOipFc5m+HErVH58/VEBCcv/E8FZ3ORTlubnhfgkJ +q0rqdn4tkENLZ7GS+7dIiDN33iGzWh4Dx5SfR78kYaN37jfjNfL4q2lNkMIr +EkRiR4672smjp15tRH0HCZeaEorTfeQx+y17bOI1CbdtakcWn5JH/oZBd60+ +EibclSKmeuQx2rws6/cXEm5FhS1ZPiiPaDXDDhwh4dil+hztcXlUuFKr+myU +BKH3W+qCeBVQ4MiXkn++kqC68zTP+5UKmNrnnT48TYL3wZnk1mgFZEzvC/jx +hwTlc2vkhhMUcGGPVchKHi41f/+UL0lXwP697d/dF3Ah6rf6izWFCvi4Jy6v +lI8LWce9V9S0UudPlqxR5edC65nHeUXyilgn2Bl4WJQLmTck9JpUFdHyTv/C +A8u54NG5o/G9niKmnRrRCxbjwhDt96CslSLGBdWbOUhwgY+tuzIjVBEN1U7Q +x6S4YFpxvurYPUW8bdzYnqjAhXWv2+bHmxWRx1q0iqXIBQeehRu2tyuifwWT +PUnZb1NoD3xSxPcCAhed6FywiqbHxC4icHT6oeaIEheeLrtzZbUggbybNxxM +ZnLBqdCteUKEwMOZB56pKHPB81nK8h00AoOl7SvdVLgQpjh7xVKDwD+jlTaZ +alyYuZHePKdDoPWgNkNWnZqPjRpjpAGBLxJCRNiUE/b5GDEsCEyLrVPNX8mF +C01PmnmdCWxpnN0bq8kFRfeAsVpXAtv8q/5OUC4c/bv8gAeBrI79Jd5aXKhc +Yej50Y9Ay3tsez1tLjzYmTfWFEGgQG/FyA0dLlj/NhE7Ek3gor+e3sK6XGhL +7zAyiCVQOy1ywo9yT41AbOEpAn8teXqQX48L3g6FhV5pBG5m+QW7UR4csGiR +yCTQa59BXD7l8aXhYgmXCLzPt4mms4oLB9gixqx8Asd0+S/so/zDoMRzpojA +k3NPkKTM591XGFBJYFKMM4+aPheSvh1uka8i0D7uhMx2yiInxcc7bxPoUVzg +lUmZxtlobNVI4N3NiZ5TlC+v++j55xF1/5MN0ooGXGD0HI2tfkrggP5z3o2U +r+2hFYW+IHCXZ6hUKGUt3hstKp0EXrju4X6GMjfbfryvh8DVh50fkZRXawyJ +nesjsOCBqO9zyvX34o0dPxLoZ7JFc5jyGhd5ryVDBFarDSrzGnLh8dCt2Huj +BIqlHnKUomx3dFPRoUlqnL+9RJ1y+/KxFp1ZApmfqgxNKG8pPjn+708Ca8QG +ptZTfmvKEGf/JVBdTe6TI2Xf53eM3RfSUchXRXAL5X/9tniJCtAxuOCBnyfl +kB+Tsc3CdDQKq/vmRdl0X6DkZzE6Du4dOvL/OP9wbykfjY7qYuvvu1Hu8nW0 +pMvTka3X1uBAuehNU5cFg44fT8UdWUs53GV1iJcqHburt80YUF7zrGxBlCYd +f+j7aipRFrWinzunR8dcz38YIpT77mZp3jSio23g5+4Zaj7KjAUb283o+DUo +yKmXchTn2JYJpKPJVtnkOsob1adGha2o6/PynDxPWbJgZ7yGLR1bROU2hlMe +lHkrZe1Ex+wlB9ts//8emU7lga505KxfLktQdkww6c7fTscgB72l96jvrfCn +fM89f2pc9BHnFOXRCAbfuyA6yvM3EM7/r59dS7Vp4XRMuSfi30WtL7cPMU2G +kXQ0UI82OUuZ6THtvvkYHQekj7xzoNxg++54WhIdz8wfyKql1m/aA2fpslQ6 +LjI8VbqbshfrUUVLBvV+UXvPSlOe067sWXiZmp+q6YHdVH2sEovTiSbpWFc3 +kz5M1RdPysyDnGo6FiXle8ZTbuML9qiuo2OX+90FUpR3z2xKmHxIR1fm9UEj +qj4Lu5lvdvbScae9KNNZgwv7nc+HJfTTUSpl4ZfnVL3jE+HFVwbpWOBvnmFL ++V3drG7fOB11xsezTKh8kMxrTnThY+A3xfa4CSpfBqVYcvv5GXj+olPS/3nD +TSfJf4QZeCpc8kgNlUeO8RfePpFiYKg/v24ElVdJASGrLDUZeLYk78sTKt/m +NET7tFwZ+E64o3hAlguzl2Xi9D0YqOp/4rEs5ellykyT7QwMYH/g2yRD1fuU +SfC6IAaaHVHsuEnjwkCd36zHUQZ+OG/4zWMFF57Y3hJJKmIgo8NKSU6Eqpf6 ++2TqdQYeibmRqCpM5ZFOq0tmJQPb9QRoukJcuCv+4UJuDQNnNku0rBaknv+N +oOrNZwwUqbFNUFtM5d9ubxiYYaDlAdwTP0/CuXe7Bv79yUCZoCazHb9JOOt4 +IGHsLwND3Bbbsn6RkKaf9PSHgBLWjWbpjv0gIf4XuWWZghIKzMWYaFL9anfK +ojBzKyVM9gh2Vhsmwby0jJ2drYSCafWadKp/viFK89ZfVMIvjsyHTe0kRGWX +5E7nKSHNhFfOn+q/t+KKL20qUcK1CmYCuW1Uv3Zn54jcUUJjJ48/s80kqC86 +m574QQlfu5qZWtRT+5Pt0bERmkwsa/jHUr2QhJsdkTHKekyUu3n3egLV/11s +Dh/rMGRiU+PDqX42CRmGB4+sAiYWBl1WT7tMgrDQ3sPjzkwc+mW75mU2CQtr +fMMCDzGx+r631FQSCZNiNj5ujUx06ox+W7abhO4Qxovgx0wcyTNemRtEQsOj +nxDTysSOkWwidScJ6VGlite6mLhwtlvI348E3QGh/rlhJoozSgVnqf1QKPl8 +22VxZdzlntpVak3CsKOr56C/MlqwbmXvUiZh8LSP2/4lKvhnUcqTiC4OhA5r +MnSFVPD08YgugQ4OfN8wNzYmqoKLsydUL77kgCBfRkKQjApan7Zn327lgG5k +U5WPlgp+kX+7pJ/aDx4NUBF33KyCutfV7/RWcEDSYvS5Rp4KEja8wtkJHLD+ +esj6k5EqbmWeI7Zrc2DUj/9AVYwailq8rxq/U0H9T0jxnmxUxwlfDf3xX2Ug +9kwljfN1JdbPzT+OtygFuaRKJyMjTbQTNF/QubEEcjRMRMV3amFi/VNG6u6r +8ETG0nDqjDb+lNjysT67CEzlGtN1unTwB69R2VH2FRDhKwjfEa+Lf0aGh8jX ++aAQp2i+VUUPp6pa9++YzQMBZa/qTY/1UCFj84Wwo5dAmyVdeWjbKnz7NTNH +K+w87O8Ta7Lh0cc9I+sMx7dmw9ep067WOfpon2N7PYGTCRt0Hl2w1jLA64qk +6gmbM3B3yuzX9zYDzH219ltSTyqEaq7qfRlgiGI0yavNfaeANe7fsVXACN9c +Drj0iS8R1jNp9sIFRhjf9TV076t4UItNPtxobIxjVSLiqctiYWWAyT3lXmOc +4723+mN/FATc3XWiat9qzLQ4h8COgHvsDv/JFSaYIS++4HzJfpi+9ve7zi0T +jOzqbSuuCgU/5VKBC/amONac6WIbHgRRD72DVZxM8amg3aHN24MgPUDsKXeT +KRbwjfoE2wTBnaLI00+3mKL4s+5dD4ggkFDZuGx+hylqc8/uVmvbBY9UPkn4 +RJhia5/U+hKNXbBSTZFQyTPFrgU//rhNBsLkykwj7oQputYGXK0s8ofuVlwv +PmWKb57t1XDN8oeG0PHN4TOmGG9/4sOiBH9I41rvM/ppin2G554m+fvDSlOe +slo+M2z13jIuzvQHX+s99CZJM2Qrz2mYFvlBx84NQh3mZsjUPt59qdIXbhf+ ++jCTZIbSrmEPD3z0AaO14d9tUsywIthw2+9OH7j5YVSInWqG60vznNOafYCr +0Gdsk2GGN0MCzdrKfaAspyE196IZ2tobx9Yf9gH26QSTDRVmeKXvMbqK+sCp +8GVncl6ZYUnPuGzKaW/wWKeEZgrmaOwgPy2f4wnzHfwiTYQ5HnNepnUlxhPY +AeNvbJTMMe7ScJTZTk/4nFhzyEPNHEunkplFRp6wv8WxMnKVOcbm9Xh4dnlA +ssMRhdtW5vhlp1zDRmkPqHXv/G2w1xxff9IcfFXmDrJ7TtZoN5hjdn/DcYLf +DdL+BhqmNJrj6INoy4AZV+DNsCL/fWCO7due024PuMJw9aISdos59rt2TZys +d4VanhM5Yq/M0TbA3fH5AVfwOBt7aPaTOV6cbJGZGXCBnLpIw7tLWTj2RWm7 +z9PNsEIwhLTfwsI5/zJaX6MzFK49GjWxlYVZ3er6F0hnWHU0bW2mFwsbo8+t +CWA7g8MEp7N7BwtPOu+TUDvmDIldM3N+ISxsD6zYtN3UGX4UxKyJimPh/Cze +T77pBL1mma+KS1m4yWfo9oo9jrDrYOEl6woW6reoZdMdHGG24mbAKIeFyzor +qjfqOIIYo/u7XjUL3yi27B2adABbfnm5+gYWrggMSdp92AHudBT7v+pkYWzb +wtLQZHuwEbmtFdHNQjuNelDeYw/dG1pmaW9YeDtzpHPG0R6ma0eSvN+zMKao ++dbgCnvQytct/zLMwoyETo3vBXZwp9cy4vQYC/99C8XRiXZgI7EZdCZYmPjg +RIJ0sB0Enjz4MnyGhen71JTz9exguiHxgtQPFuZfHLqbvMIO4n+e86v9yUJt +aauw1DlbEDUo0dw2z8KRt8IqJe9sIXdP7czfvyzsJGjP3t23hf8AVpDjEg== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07112675596312176}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07112675596312176}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9942606124919443`*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"ccb6ce61-26bf-4d25-a768-be32c6d10a84"] +}, Open ]], Cell[CellGroupData[{ @@ -13892,26 +14997,30 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], - ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -13933,66 +15042,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[225]:=",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], + "In[142]:=",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5794624625701512`*^-174\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 225, 201, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333512859148*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.678160399377347`*^-157\\\", \ +RowBox[{\\\"164243120455479739170682\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"105\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 142, 73, + 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333512859148*^9, 3.9942606125498657`*^9}, CellLabel-> "During evaluation of \ -In[225]:=",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], +In[142]:=",ExpressionUUID->"4c5b1653-860f-4483-b914-1285b0271966"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.303016475329449`*^-178\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 225, 202, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333512868147*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.981205751728815`*^-160\\\", \ +RowBox[{\\\"552513857212233842570175\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"108\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 142, 74, + 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333512859148*^9, 3.9942606125599403`*^9}, CellLabel-> "During evaluation of \ -In[225]:=",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], +In[142]:=",ExpressionUUID->"16f1489b-73e3-476d-a70e-ec81127caeb6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.3647813242367804`*^-181\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 225, 203, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335128761463`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.2960299488884144`*^-163\\\", \ +RowBox[{\\\"192330073695578600598678\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"112\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 142, 75, + 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333512859148*^9, 3.994260612569406*^9}, CellLabel-> "During evaluation of \ -In[225]:=",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], +In[142]:=",ExpressionUUID->"79c1db01-c501-4eab-a911-a5e80ee3fcb5"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 225, 204, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333512885145*^9}, +during this calculation.\"", 2, 142, 76, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333512859148*^9, 3.994260612577579*^9}, CellLabel-> "During evaluation of \ -In[225]:=",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], +In[142]:=",ExpressionUUID->"8bbebdfa-8332-4080-acba-08301bb7ccf6"], -Cell[BoxData["9.779568499633264`"], "Output", - CellChangeTimes->{3.9913335200445786`*^9}, +Cell[BoxData["10.820482505466822`"], "Output", + CellChangeTimes->{3.9913335200445786`*^9, 3.994260684722389*^9}, CellLabel-> - "Out[225]=",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] + "Out[142]=",ExpressionUUID->"1ea084f4-6da1-4adf-87f1-513ee19054bf"] }, Open ]], Cell[CellGroupData[{ @@ -14059,68 +15175,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918491385551624`*^9, - 3.991849142620474*^9}},ExpressionUUID->"f2835c98-560f-8e47-bdab-\ -0d2700971836"], + CellChangeTimes->{{3.9918491385551624`*^9, 3.991849142620474*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 226, 205, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335200775414`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.700636271065037`*^-213\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 143, 77, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335200775414`*^9, 3.994260684769466*^9}, CellLabel-> "During evaluation of \ -In[226]:=",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], +In[143]:=",ExpressionUUID->"7dbeab55-537f-4eb6-b8fe-5ddd7cf51748"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 226, - 206, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335200875454`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.2387559230823966`*^-218\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 143, 78, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335200775414`*^9, 3.994260684779209*^9}, CellLabel-> "During evaluation of \ -In[226]:=",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], +In[143]:=",ExpressionUUID->"9709d15f-bfd1-4a67-b86d-2f00d9e023d7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 226, - 207, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335200945435`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.834523352461881`*^-223\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 143, 79, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335200775414`*^9, 3.994260684787839*^9}, CellLabel-> "During evaluation of \ -In[226]:=",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], +In[143]:=",ExpressionUUID->"28c06042-bd3e-4bcd-9db6-820a47b71e41"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 226, 208, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335201035423`*^9}, +during this calculation.\"", 2, 143, 80, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335200775414`*^9, 3.994260684795356*^9}, CellLabel-> "During evaluation of \ -In[226]:=",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], +In[143]:=",ExpressionUUID->"f20f203c-6900-41b0-8f56-30ba2c3afe38"], -Cell[BoxData["0.7348275136088338`"], "Output", - CellChangeTimes->{3.9913335271231823`*^9}, +Cell[BoxData["0.3108013496890307`"], "Output", + CellChangeTimes->{3.9913335271231823`*^9, 3.994260694167836*^9}, CellLabel-> - "Out[226]=",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] + "Out[143]=",ExpressionUUID->"f800fbd6-b6b9-4914-a6d5-2f36a91a85f9"] }, Open ]], Cell[CellGroupData[{ @@ -14141,8 +15261,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -14187,68 +15306,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849146408966*^9, - 3.9918491485488663`*^9}},ExpressionUUID->"ca837916-250f-4d4e-8368-\ -5a08f479e656"], + CellChangeTimes->{{3.991849146408966*^9, 3.9918491485488663`*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 227, 209, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335271591835`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.700636271065037`*^-213\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 144, 81, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335271591835`*^9, 3.994260694216216*^9}, CellLabel-> "During evaluation of \ -In[227]:=",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], +In[144]:=",ExpressionUUID->"83e54543-2e34-4eb1-8a4f-2a1af099c981"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 227, - 210, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335271681843`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.2387559230823966`*^-218\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 144, 82, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335271591835`*^9, 3.994260694226028*^9}, CellLabel-> "During evaluation of \ -In[227]:=",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], +In[144]:=",ExpressionUUID->"59ed37c8-386e-43f6-bd35-b5bd78aeb9b2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 227, - 211, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333527176182*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.834523352461881`*^-223\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 144, 83, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335271591835`*^9, 3.99426069423459*^9}, CellLabel-> "During evaluation of \ -In[227]:=",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], +In[144]:=",ExpressionUUID->"c123e09b-8113-4cda-a7cd-31037f59e175"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 227, 212, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333527184183*^9}, +during this calculation.\"", 2, 144, 84, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335271591835`*^9, 3.9942606942429333`*^9}, CellLabel-> "During evaluation of \ -In[227]:=",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], +In[144]:=",ExpressionUUID->"71a72f2c-f3fd-4d6e-a485-f5615d3ad470"], -Cell[BoxData["5.221864211842707`"], "Output", - CellChangeTimes->{3.9913335331581306`*^9}, +Cell[BoxData["31.210659241088926`"], "Output", + CellChangeTimes->{3.9913335331581306`*^9, 3.994260703219358*^9}, CellLabel-> - "Out[227]=",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] + "Out[144]=",ExpressionUUID->"21bd7845-4b5e-4d76-9fdc-15dd76392553"] }, Open ]], Cell[CellGroupData[{ @@ -14269,8 +15392,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -14315,68 +15437,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918491518098984`*^9, - 3.9918491543107758`*^9}},ExpressionUUID->"b579991f-985b-234a-94aa-\ -ed18c097f8c0"], + CellChangeTimes->{{3.9918491518098984`*^9, 3.9918491543107758`*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 228, 213, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335331923027`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.700636271065037`*^-213\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 145, 85, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335331923027`*^9, 3.99426070327052*^9}, CellLabel-> "During evaluation of \ -In[228]:=",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], +In[145]:=",ExpressionUUID->"47936e6c-e681-43fc-bbab-140027d82a4f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 228, - 214, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333533202278*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.2387559230823966`*^-218\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 145, 86, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335331923027`*^9, 3.994260703280498*^9}, CellLabel-> "During evaluation of \ -In[228]:=",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], +In[145]:=",ExpressionUUID->"60a9f414-387b-4646-9ddc-27dc8af51343"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 228, - 215, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335332102795`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.834523352461881`*^-223\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 145, 87, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335331923027`*^9, 3.994260703288925*^9}, CellLabel-> "During evaluation of \ -In[228]:=",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], +In[145]:=",ExpressionUUID->"1439c049-4843-405f-a974-1c5ccef244b1"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 228, 216, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333533218281*^9}, +during this calculation.\"", 2, 145, 88, 31387658225793743935, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335331923027`*^9, 3.994260703298349*^9}, CellLabel-> "During evaluation of \ -In[228]:=",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], +In[145]:=",ExpressionUUID->"46ba0e9f-0186-4416-91c4-90f045d8333f"], -Cell[BoxData["15.545902834190647`"], "Output", - CellChangeTimes->{3.9913335366055527`*^9}, +Cell[BoxData["4.891914798935428`"], "Output", + CellChangeTimes->{3.9913335366055527`*^9, 3.9942607099775667`*^9}, CellLabel-> - "Out[228]=",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] + "Out[145]=",ExpressionUUID->"96d9b81e-361f-4227-9377-0f2ab4c9a3bf"] }, Open ]], Cell[CellGroupData[{ @@ -14385,24 +15511,25 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918491594691143`*^9, - 3.9918491632611027`*^9}},ExpressionUUID->"afb7855c-8700-d444-926c-\ -6d96abe14e67"], - -Cell[BoxData["0.08155763943441016`"], "Output", - CellChangeTimes->{3.9913335366395893`*^9}, + CellChangeTimes->{{3.9918491594691143`*^9, 3.9918491632611027`*^9}}, CellLabel-> - "Out[229]=",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] + "In[146]:=",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], + +Cell[BoxData["0.02515312695626275`"], "Output", + CellChangeTimes->{3.9913335366395893`*^9, 3.994260710012084*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"7ad7e954-0d60-476f-83a3-f505428378ff"] }, Open ]], Cell[BoxData[ RowBox[{"NotebookSave", "[", "]"}]], "Input", - CellChangeTimes->{{3.994083685560459*^9, - 3.9940836908478127`*^9}},ExpressionUUID->"927ca6ed-9dbf-4fe4-877b-\ -39074ae002c3"] + CellChangeTimes->{{3.994083685560459*^9, 3.9940836908478127`*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"927ca6ed-9dbf-4fe4-877b-39074ae002c3"] }, -WindowSize->{714, 876}, -WindowMargins->{{-3, Automatic}, {3, Automatic}}, +Evaluator->"kernel 2", +WindowSize->{714, 170.25}, +WindowMargins->{{Automatic, 3}, {Automatic, 191.25}}, CellContext->Notebook, Magnification:>1.6 Inherited, FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", @@ -14421,622 +15548,642 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 330, 7, 59, "Input",ExpressionUUID->"6729bc0b-3d1e-457d-902b-3834224c9714"], -Cell[909, 31, 208, 4, 67, "Output",ExpressionUUID->"555b3389-4215-48ff-9b83-c5a7b184c778"] +Cell[576, 22, 347, 6, 59, "Input",ExpressionUUID->"6729bc0b-3d1e-457d-902b-3834224c9714"], +Cell[926, 30, 229, 4, 67, "Output",ExpressionUUID->"7c32cb43-429c-4ca4-8598-e828c4f9ba89"] }, Open ]], Cell[CellGroupData[{ -Cell[1154, 40, 253, 5, 59, "Input",ExpressionUUID->"7f2bb48f-c61b-4afd-9901-07fdf8310763"], -Cell[1410, 47, 208, 4, 67, "Output",ExpressionUUID->"3b77bb68-09cb-454d-b43b-73dbe0de1da4"] +Cell[1192, 39, 248, 4, 59, "Input",ExpressionUUID->"7f2bb48f-c61b-4afd-9901-07fdf8310763"], +Cell[1443, 45, 231, 4, 67, "Output",ExpressionUUID->"93460caa-2aa2-4117-9ff9-ca2582f6e988"] }, Open ]], Cell[CellGroupData[{ -Cell[1655, 56, 226, 5, 59, "Input",ExpressionUUID->"b875eda1-b81a-425a-b020-f2f39b12026d"], -Cell[1884, 63, 207, 4, 67, "Output",ExpressionUUID->"007eee93-79e1-4acc-810c-16f67003377a"] +Cell[1711, 54, 221, 4, 59, "Input",ExpressionUUID->"b875eda1-b81a-425a-b020-f2f39b12026d"], +Cell[1935, 60, 228, 4, 67, "Output",ExpressionUUID->"08c72ed8-6e7c-4334-a2bd-4a25c8f87d8f"] }, Open ]], Cell[CellGroupData[{ -Cell[2128, 72, 180, 4, 59, "Input",ExpressionUUID->"93a95366-b227-4778-a98f-1ff9969a1f84"], -Cell[2311, 78, 207, 4, 67, "Output",ExpressionUUID->"7e17dece-7200-4bc5-8798-dd1f3c022b2e"] +Cell[2200, 69, 175, 3, 59, "Input",ExpressionUUID->"93a95366-b227-4778-a98f-1ff9969a1f84"], +Cell[2378, 74, 228, 4, 67, "Output",ExpressionUUID->"83a1c15e-2ba0-4328-ac4c-b87178483e42"] }, Open ]], Cell[CellGroupData[{ -Cell[2555, 87, 262, 8, 85, "Input",ExpressionUUID->"ad97586d-2f22-4a20-885b-ae878d452e35"], -Cell[2820, 97, 223, 4, 67, "Output",ExpressionUUID->"486fc696-7588-47c3-bca3-9e686b7088ae"] +Cell[2643, 83, 257, 7, 85, "Input",ExpressionUUID->"ad97586d-2f22-4a20-885b-ae878d452e35"], +Cell[2903, 92, 244, 4, 67, "Output",ExpressionUUID->"d54c363f-d5f9-41c9-a169-f817a10e0172"] }, Open ]], Cell[CellGroupData[{ -Cell[3080, 106, 136, 3, 59, "Input",ExpressionUUID->"867aaf97-b763-4f0b-a88a-dde88ae88568"], -Cell[3219, 111, 206, 4, 67, "Output",ExpressionUUID->"f1469832-9a11-4bec-a7be-05ef02cb52d8"] +Cell[3184, 101, 131, 2, 59, "Input",ExpressionUUID->"867aaf97-b763-4f0b-a88a-dde88ae88568"], +Cell[3318, 105, 229, 4, 67, "Output",ExpressionUUID->"85b03fc8-e7e6-4e02-9548-99c50aa9c134"] }, Open ]], Cell[CellGroupData[{ -Cell[3462, 120, 281, 7, 59, "Input",ExpressionUUID->"023069af-2b2a-4349-b1a0-0343f9f6f0f8"], -Cell[3746, 129, 221, 4, 58, "Output",ExpressionUUID->"b7485a92-14bb-4b6e-ac17-31807f47726f"] +Cell[3584, 114, 276, 6, 59, "Input",ExpressionUUID->"023069af-2b2a-4349-b1a0-0343f9f6f0f8"], +Cell[3863, 122, 242, 4, 67, "Output",ExpressionUUID->"5de5b1dd-c07f-4203-908f-ffe99a4751e0"] }, Open ]], Cell[CellGroupData[{ -Cell[4004, 138, 262, 8, 51, "Input",ExpressionUUID->"71ec9d78-eb5d-4ed1-b74e-f3b64fdc7fe7"], -Cell[4269, 148, 221, 4, 58, "Output",ExpressionUUID->"48c705f6-9126-4f0d-92c5-1643bd2a2ff4"] +Cell[4142, 131, 257, 7, 59, "Input",ExpressionUUID->"71ec9d78-eb5d-4ed1-b74e-f3b64fdc7fe7"], +Cell[4402, 140, 242, 4, 67, "Output",ExpressionUUID->"6774a30a-e400-4989-913b-46db06082ae6"] }, Open ]], Cell[CellGroupData[{ -Cell[4527, 157, 229, 5, 51, "Input",ExpressionUUID->"df98510c-7da8-414b-93a3-e5cf699eb261"], -Cell[4759, 164, 186, 3, 58, "Output",ExpressionUUID->"60040f68-2831-4570-ab6f-01736ff077f8"] +Cell[4681, 149, 224, 4, 59, "Input",ExpressionUUID->"df98510c-7da8-414b-93a3-e5cf699eb261"], +Cell[4908, 155, 206, 3, 67, "Output",ExpressionUUID->"a1363161-6138-431e-bc56-46ec23ffe91c"] }, Open ]], Cell[CellGroupData[{ -Cell[4982, 172, 232, 5, 51, "Input",ExpressionUUID->"37ef831b-0fd7-40fd-bfac-9e3a91e46f3a"], -Cell[5217, 179, 184, 3, 58, "Output",ExpressionUUID->"f6674c4a-a879-4a8e-be16-b377a146c2b7"] +Cell[5151, 163, 228, 4, 59, "Input",ExpressionUUID->"37ef831b-0fd7-40fd-bfac-9e3a91e46f3a"], +Cell[5382, 169, 206, 3, 67, "Output",ExpressionUUID->"06d3e08e-7a99-4e6a-9f4e-35233e9deec7"] }, Open ]], Cell[CellGroupData[{ -Cell[5438, 187, 133, 3, 51, "Input",ExpressionUUID->"d6f0c889-b9bd-4b6a-bd1e-a2b149e2a1fe"], -Cell[5574, 192, 204, 4, 58, "Output",ExpressionUUID->"32d0f285-85ed-456d-bff3-4a9517c58dc0"] +Cell[5625, 177, 129, 2, 59, "Input",ExpressionUUID->"d6f0c889-b9bd-4b6a-bd1e-a2b149e2a1fe"], +Cell[5757, 181, 226, 4, 67, "Output",ExpressionUUID->"e3d49dbd-0cbc-4a8e-8ebf-e23a7b6e2fc3"] }, Open ]], Cell[CellGroupData[{ -Cell[5815, 201, 133, 3, 51, "Input",ExpressionUUID->"da4040a6-97b2-4ca9-9204-742e53113402"], -Cell[5951, 206, 204, 4, 58, "Output",ExpressionUUID->"6ca71a68-07aa-4e87-ae82-9a1384ff5ff9"] +Cell[6020, 190, 129, 2, 59, "Input",ExpressionUUID->"da4040a6-97b2-4ca9-9204-742e53113402"], +Cell[6152, 194, 226, 4, 67, "Output",ExpressionUUID->"59f1a831-d918-48c0-abc5-279605fe3ce8"] }, Open ]], Cell[CellGroupData[{ -Cell[6192, 215, 561, 20, 140, "Input",ExpressionUUID->"bb7b8a04-51ec-4867-95cf-0e9b97158012"], -Cell[6756, 237, 222, 4, 58, "Output",ExpressionUUID->"5c0a39ff-1ead-4c28-83e3-bcfaff16de3f"] +Cell[6415, 203, 557, 19, 156, "Input",ExpressionUUID->"bb7b8a04-51ec-4867-95cf-0e9b97158012"], +Cell[6975, 224, 244, 4, 67, "Output",ExpressionUUID->"44ed9f64-86b4-40ee-8191-71713ef309de"] }, Open ]], Cell[CellGroupData[{ -Cell[7015, 246, 561, 20, 140, "Input",ExpressionUUID->"ba39c175-67af-4d2d-9d23-5dcce620545e"], -Cell[7579, 268, 222, 4, 58, "Output",ExpressionUUID->"323db7b0-f58b-4357-98fb-57e56e73e975"] +Cell[7256, 233, 557, 19, 156, "Input",ExpressionUUID->"ba39c175-67af-4d2d-9d23-5dcce620545e"], +Cell[7816, 254, 244, 4, 67, "Output",ExpressionUUID->"fc6aca75-8422-400f-8581-2e564b8674f0"] }, Open ]], Cell[CellGroupData[{ -Cell[7838, 277, 1592, 51, 190, "Input",ExpressionUUID->"0193cf24-dc2d-49fa-a6e9-64af673f5a04"], -Cell[9433, 330, 220, 4, 58, "Output",ExpressionUUID->"dd0eeec7-4a06-4ddc-b8c3-403494974bf4"] +Cell[8097, 263, 1588, 50, 671, "Input",ExpressionUUID->"0193cf24-dc2d-49fa-a6e9-64af673f5a04"], +Cell[9688, 315, 242, 4, 67, "Output",ExpressionUUID->"c3d5a16e-3cf4-4761-a54e-e2494858ba2f"] }, Open ]], Cell[CellGroupData[{ -Cell[9690, 339, 1426, 47, 190, "Input",ExpressionUUID->"bcaaaf43-0f8f-4ff3-bdf9-3e724b41c4e5"], -Cell[11119, 388, 240, 5, 58, "Output",ExpressionUUID->"bc94fde7-e089-4281-841a-4d5a02de82db"] +Cell[9967, 324, 1422, 46, 630, "Input",ExpressionUUID->"bcaaaf43-0f8f-4ff3-bdf9-3e724b41c4e5"], +Cell[11392, 372, 264, 5, 67, "Output",ExpressionUUID->"e00947ac-335a-4567-9f7e-a03678b2a323"] }, Open ]], Cell[CellGroupData[{ -Cell[11396, 398, 1335, 45, 141, "Input",ExpressionUUID->"78942345-423b-441d-ad9e-23dec8f818ec"], -Cell[12734, 445, 239, 5, 58, "Output",ExpressionUUID->"093b25e5-0683-4098-98cb-09ab09298c89"] +Cell[11693, 382, 1422, 46, 630, "Input",ExpressionUUID->"78942345-423b-441d-ad9e-23dec8f818ec"], +Cell[13118, 430, 260, 5, 67, "Output",ExpressionUUID->"3b013e9d-1d0d-4dc4-bebd-a374ede3ae08"] }, Open ]], Cell[CellGroupData[{ -Cell[13010, 455, 1592, 51, 190, "Input",ExpressionUUID->"b9772705-caeb-4dc4-b22a-0238760c2ec1"], -Cell[14605, 508, 218, 4, 58, "Output",ExpressionUUID->"b4043292-5f2e-483e-b9d1-662f4ac48ba4"] +Cell[13415, 440, 1588, 50, 671, "Input",ExpressionUUID->"b9772705-caeb-4dc4-b22a-0238760c2ec1"], +Cell[15006, 492, 240, 4, 67, "Output",ExpressionUUID->"7a131eae-9ef4-4991-93b3-3dfa7cb34f7a"] }, Open ]], Cell[CellGroupData[{ -Cell[14860, 517, 135, 3, 51, "Input",ExpressionUUID->"76e4f65e-0950-4fef-b78c-b2eebccf0142"], -Cell[14998, 522, 206, 4, 58, "Output",ExpressionUUID->"6e3c3011-d6f0-453a-b346-d59c29f8432c"] +Cell[15283, 501, 131, 2, 59, "Input",ExpressionUUID->"76e4f65e-0950-4fef-b78c-b2eebccf0142"], +Cell[15417, 505, 228, 4, 67, "Output",ExpressionUUID->"cc63d46f-dc7d-4ad3-86a6-ddae153623b0"] }, Open ]], Cell[CellGroupData[{ -Cell[15241, 531, 137, 3, 51, "Input",ExpressionUUID->"8f02871c-6d6b-49b7-a594-386a71b3d95e"], -Cell[15381, 536, 205, 4, 58, "Output",ExpressionUUID->"3a2ebea3-9272-4525-9c05-3f429c70abf5"] +Cell[15682, 514, 133, 2, 59, "Input",ExpressionUUID->"8f02871c-6d6b-49b7-a594-386a71b3d95e"], +Cell[15818, 518, 227, 4, 67, "Output",ExpressionUUID->"da97f552-6871-4240-81ed-49ae692723b0"] }, Open ]], Cell[CellGroupData[{ -Cell[15623, 545, 138, 3, 51, "Input",ExpressionUUID->"64b93da5-84aa-4c46-b94a-aa071f526db5"], -Cell[15764, 550, 206, 4, 58, "Output",ExpressionUUID->"2dce4056-bfea-4165-a491-f834eef06c51"] +Cell[16082, 527, 134, 2, 59, "Input",ExpressionUUID->"64b93da5-84aa-4c46-b94a-aa071f526db5"], +Cell[16219, 531, 228, 4, 67, "Output",ExpressionUUID->"ae112a6f-04c2-496f-8386-ed8d97592f4a"] }, Open ]], Cell[CellGroupData[{ -Cell[16007, 559, 223, 5, 51, "Input",ExpressionUUID->"2952bef4-44ae-4ac2-9561-32238bbfae2e"], -Cell[16233, 566, 221, 5, 58, "Output",ExpressionUUID->"b7a3eb9f-0743-4523-b7b2-6874dce5edec"] +Cell[16484, 540, 219, 4, 59, "Input",ExpressionUUID->"2952bef4-44ae-4ac2-9561-32238bbfae2e"], +Cell[16706, 546, 243, 5, 67, "Output",ExpressionUUID->"a65c5a1e-2822-427a-977c-4206d92a1495"] }, Open ]], Cell[CellGroupData[{ -Cell[16491, 576, 138, 3, 51, "Input",ExpressionUUID->"f1bf8565-c9e7-4c70-bd0b-57cbb7be2a18"], -Cell[16632, 581, 210, 4, 58, "Output",ExpressionUUID->"ec0f0356-0977-4061-b7c3-fe86427b0368"] +Cell[16986, 556, 134, 2, 59, "Input",ExpressionUUID->"f1bf8565-c9e7-4c70-bd0b-57cbb7be2a18"], +Cell[17123, 560, 232, 4, 67, "Output",ExpressionUUID->"9b968b93-aaa5-4401-a5b7-44de534a2061"] }, Open ]], Cell[CellGroupData[{ -Cell[16879, 590, 330, 6, 51, "Input",ExpressionUUID->"4639a465-cc6b-49dc-b98b-ffb26812b1e2"], -Cell[17212, 598, 205, 4, 58, "Output",ExpressionUUID->"59ecac49-b68e-4c86-9b0a-c56b7ffdaa6d"] +Cell[17392, 569, 326, 5, 59, "Input",ExpressionUUID->"4639a465-cc6b-49dc-b98b-ffb26812b1e2"], +Cell[17721, 576, 229, 4, 67, "Output",ExpressionUUID->"877efc62-d6c9-4a5c-adc7-004555f2b75f"] }, Open ]], Cell[CellGroupData[{ -Cell[17454, 607, 301, 6, 51, "Input",ExpressionUUID->"acd9d697-a16f-4e4f-9ca5-9679d12c1eee"], -Cell[17758, 615, 205, 4, 58, "Output",ExpressionUUID->"f8c0539f-844d-482b-925a-a90f5225d623"] +Cell[17987, 585, 297, 5, 59, "Input",ExpressionUUID->"acd9d697-a16f-4e4f-9ca5-9679d12c1eee"], +Cell[18287, 592, 227, 4, 67, "Output",ExpressionUUID->"f545db1f-c161-4d98-9b89-713b2f121cf1"] }, Open ]], Cell[CellGroupData[{ -Cell[18000, 624, 223, 5, 51, "Input",ExpressionUUID->"bf3c6aef-c5d9-4234-93db-d64a14b82b50"], -Cell[18226, 631, 203, 4, 58, "Output",ExpressionUUID->"29bd1a74-39d0-4387-a76b-779c89e8ca86"] +Cell[18551, 601, 219, 4, 59, "Input",ExpressionUUID->"bf3c6aef-c5d9-4234-93db-d64a14b82b50"], +Cell[18773, 607, 224, 4, 67, "Output",ExpressionUUID->"501b7471-ad29-4d7a-8636-4c64da90eba4"] }, Open ]], Cell[CellGroupData[{ -Cell[18466, 640, 354, 11, 74, "Input",ExpressionUUID->"925bb11a-70d6-41eb-9dd6-63461f872eae"], -Cell[18823, 653, 223, 4, 58, "Output",ExpressionUUID->"daa3b6f5-4af7-41fb-88c6-d45cdfbd5564"] +Cell[19034, 616, 350, 10, 130, "Input",ExpressionUUID->"925bb11a-70d6-41eb-9dd6-63461f872eae"], +Cell[19387, 628, 247, 4, 67, "Output",ExpressionUUID->"648f3296-4747-4fc1-8dc2-6b7cdb88e807"] }, Open ]], Cell[CellGroupData[{ -Cell[19083, 662, 354, 11, 74, "Input",ExpressionUUID->"8ddf5b97-ef62-45eb-890c-bb640fb1ea66"], -Cell[19440, 675, 238, 5, 58, "Output",ExpressionUUID->"637f4f9c-be8e-4097-92fa-499f2383d038"] +Cell[19671, 637, 350, 10, 130, "Input",ExpressionUUID->"8ddf5b97-ef62-45eb-890c-bb640fb1ea66"], +Cell[20024, 649, 262, 5, 67, "Output",ExpressionUUID->"29e144a4-c2f7-4738-901a-50abf649e7f0"] }, Open ]], Cell[CellGroupData[{ -Cell[19715, 685, 998, 27, 142, "Input",ExpressionUUID->"2bf6ec39-1c63-4d14-b925-54d0f7879d85"], -Cell[20716, 714, 223, 4, 58, "Output",ExpressionUUID->"95ec9c07-f901-4300-8f98-99f2936df868"] +Cell[20323, 659, 994, 26, 519, "Input",ExpressionUUID->"2bf6ec39-1c63-4d14-b925-54d0f7879d85"], +Cell[21320, 687, 247, 4, 67, "Output",ExpressionUUID->"1b119b8f-7e31-4d5e-975c-71038b84b712"] }, Open ]], Cell[CellGroupData[{ -Cell[20976, 723, 203, 4, 51, "Input",ExpressionUUID->"24b41f2d-338f-406b-a054-09ca02f95ec7"], -Cell[21182, 729, 204, 4, 58, "Output",ExpressionUUID->"c6e9f450-b6dc-407d-941a-a953b7788f96"] +Cell[21604, 696, 199, 3, 59, "Input",ExpressionUUID->"24b41f2d-338f-406b-a054-09ca02f95ec7"], +Cell[21806, 701, 226, 4, 67, "Output",ExpressionUUID->"49b9b27e-f056-4bb4-b859-4f23a55aaf6f"] }, Open ]], Cell[CellGroupData[{ -Cell[21423, 738, 303, 6, 51, "Input",ExpressionUUID->"e24e2a14-a1a6-4205-9d0c-0f6f930d45c3"], -Cell[21729, 746, 176, 3, 58, "Output",ExpressionUUID->"f57ed9d2-69d9-40c3-b653-2a85025e51b4"] +Cell[22069, 710, 299, 5, 59, "Input",ExpressionUUID->"e24e2a14-a1a6-4205-9d0c-0f6f930d45c3"], +Cell[22371, 717, 198, 3, 67, "Output",ExpressionUUID->"c6d7d283-79db-46e7-ae07-91f977a58c84"] }, Open ]], -Cell[21920, 752, 177, 3, 51, "Input",ExpressionUUID->"095d9aa8-9e83-4f70-b377-e6d60478722f"], +Cell[22584, 723, 173, 2, 109, "Input",ExpressionUUID->"095d9aa8-9e83-4f70-b377-e6d60478722f"], Cell[CellGroupData[{ -Cell[22122, 759, 331, 6, 51, "Input",ExpressionUUID->"d01732ef-0da2-45d8-ae0e-ba62c550a992"], -Cell[22456, 767, 184, 3, 58, "Output",ExpressionUUID->"632af769-a33a-4d75-8dd5-02e920ea0a6f"] +Cell[22782, 729, 327, 5, 59, "Input",ExpressionUUID->"d01732ef-0da2-45d8-ae0e-ba62c550a992"], +Cell[23112, 736, 206, 3, 67, "Output",ExpressionUUID->"a12f42fc-76d0-4891-919c-085a428a02d9"] }, Open ]], -Cell[22655, 773, 177, 3, 51, "Input",ExpressionUUID->"8384acc4-36ce-4966-a133-7fe73f171bc1"], +Cell[23333, 742, 173, 2, 109, "Input",ExpressionUUID->"8384acc4-36ce-4966-a133-7fe73f171bc1"], Cell[CellGroupData[{ -Cell[22857, 780, 333, 6, 51, "Input",ExpressionUUID->"43f1578e-80bf-42ed-93fb-da7d1ee54692"], -Cell[23193, 788, 183, 3, 58, "Output",ExpressionUUID->"ce94c04c-d1c7-4a60-905b-b807678ad2ab"] +Cell[23531, 748, 329, 5, 59, "Input",ExpressionUUID->"43f1578e-80bf-42ed-93fb-da7d1ee54692"], +Cell[23863, 755, 205, 3, 67, "Output",ExpressionUUID->"3bf8b6ed-ea31-4e4d-978f-4b64dd8b9ed2"] }, Open ]], -Cell[23391, 794, 177, 3, 51, "Input",ExpressionUUID->"12516dbf-c4b3-4f9d-bf31-edfeb232e895"], +Cell[24083, 761, 173, 2, 109, "Input",ExpressionUUID->"12516dbf-c4b3-4f9d-bf31-edfeb232e895"], Cell[CellGroupData[{ -Cell[23593, 801, 358, 6, 51, "Input",ExpressionUUID->"fe003b3e-bdaa-49f0-baf5-119dc32f6daf"], -Cell[23954, 809, 182, 3, 58, "Output",ExpressionUUID->"67160be2-52ba-48d9-bb19-a92448682175"] +Cell[24281, 767, 354, 5, 59, "Input",ExpressionUUID->"fe003b3e-bdaa-49f0-baf5-119dc32f6daf"], +Cell[24638, 774, 203, 3, 67, "Output",ExpressionUUID->"9636a621-2cf4-4542-8ea3-d202e683adb1"] }, Open ]], -Cell[24151, 815, 175, 3, 51, "Input",ExpressionUUID->"c3259f05-eb8e-4661-8ff3-2df24e992ca2"], +Cell[24856, 780, 171, 2, 109, "Input",ExpressionUUID->"c3259f05-eb8e-4661-8ff3-2df24e992ca2"], Cell[CellGroupData[{ -Cell[24351, 822, 305, 6, 51, "Input",ExpressionUUID->"b1e05a6b-4c68-460c-8303-0e80cfaad631"], -Cell[24659, 830, 182, 3, 58, "Output",ExpressionUUID->"e66a950a-9302-43d4-a9d2-86552b750c31"] +Cell[25052, 786, 301, 5, 59, "Input",ExpressionUUID->"b1e05a6b-4c68-460c-8303-0e80cfaad631"], +Cell[25356, 793, 206, 3, 67, "Output",ExpressionUUID->"e2faac99-97c8-41e9-8194-a2ae93d65235"] }, Open ]], -Cell[24856, 836, 175, 3, 51, "Input",ExpressionUUID->"5aa778ad-184b-42e5-a5a2-7a6238e2b606"], +Cell[25577, 799, 171, 2, 109, "Input",ExpressionUUID->"5aa778ad-184b-42e5-a5a2-7a6238e2b606"], Cell[CellGroupData[{ -Cell[25056, 843, 307, 6, 51, "Input",ExpressionUUID->"5c7c6bd3-7563-4e6c-9dae-fecf5d93ace4"], -Cell[25366, 851, 184, 3, 58, "Output",ExpressionUUID->"a291e3d1-1324-4389-a9bf-67f7a7701831"] +Cell[25773, 805, 303, 5, 59, "Input",ExpressionUUID->"5c7c6bd3-7563-4e6c-9dae-fecf5d93ace4"], +Cell[26079, 812, 206, 3, 67, "Output",ExpressionUUID->"6d584e46-5235-42ef-a91d-0479df6f54a1"] }, Open ]], -Cell[25565, 857, 177, 3, 51, "Input",ExpressionUUID->"aa8876b2-ee35-41bb-bb44-ea43418ebc80"], +Cell[26300, 818, 173, 2, 109, "Input",ExpressionUUID->"aa8876b2-ee35-41bb-bb44-ea43418ebc80"], Cell[CellGroupData[{ -Cell[25767, 864, 311, 6, 51, "Input",ExpressionUUID->"866fa8c5-de20-423a-b6ca-9e812ebfee01"], -Cell[26081, 872, 183, 3, 58, "Output",ExpressionUUID->"51b5ea04-75e1-4799-922a-634a733edfbd"] +Cell[26498, 824, 307, 5, 59, "Input",ExpressionUUID->"866fa8c5-de20-423a-b6ca-9e812ebfee01"], +Cell[26808, 831, 205, 3, 67, "Output",ExpressionUUID->"05fbb7f7-ef81-48f4-98e4-f05ae91d72da"] }, Open ]], -Cell[26279, 878, 176, 3, 51, "Input",ExpressionUUID->"19b636c4-a929-4ff8-8dc5-5b6915d8a010"], +Cell[27028, 837, 172, 2, 109, "Input",ExpressionUUID->"19b636c4-a929-4ff8-8dc5-5b6915d8a010"], Cell[CellGroupData[{ -Cell[26480, 885, 279, 5, 51, "Input",ExpressionUUID->"82e9f5e2-0fa1-4200-a78b-dadbfeafb5c9"], -Cell[26762, 892, 182, 3, 58, "Output",ExpressionUUID->"a3be0860-132c-4240-8675-cfd52c588c42"] +Cell[27225, 843, 275, 4, 59, "Input",ExpressionUUID->"82e9f5e2-0fa1-4200-a78b-dadbfeafb5c9"], +Cell[27503, 849, 204, 3, 67, "Output",ExpressionUUID->"be62a67e-7751-4c08-acbe-81ef72a16bd7"] }, Open ]], -Cell[26959, 898, 179, 3, 51, "Input",ExpressionUUID->"0f76d782-c07a-4570-a174-1f80c2c0601a"], +Cell[27722, 855, 175, 2, 109, "Input",ExpressionUUID->"0f76d782-c07a-4570-a174-1f80c2c0601a"], Cell[CellGroupData[{ -Cell[27163, 905, 19813, 486, 2581, "Input",ExpressionUUID->"0f7a024b-3884-4408-a1ac-646c523cb4b0"], -Cell[46979, 1393, 221, 4, 58, "Output",ExpressionUUID->"0712281e-719e-4bb7-8b0d-fc63756094d4"] +Cell[27922, 861, 19809, 485, 7680, "Input",ExpressionUUID->"0f7a024b-3884-4408-a1ac-646c523cb4b0"], +Cell[47734, 1348, 243, 4, 67, "Output",ExpressionUUID->"5506da7c-2806-4fea-b89b-277e6d15d88c"] }, Open ]], Cell[CellGroupData[{ -Cell[47237, 1402, 19752, 490, 2539, "Input",ExpressionUUID->"7fba8efa-6d16-4927-9dba-193999f2bf97"], -Cell[66992, 1894, 221, 4, 58, "Output",ExpressionUUID->"f5ed12e8-5160-4ef9-987b-02a72d14e152"] +Cell[48014, 1357, 19748, 489, 7777, "Input",ExpressionUUID->"7fba8efa-6d16-4927-9dba-193999f2bf97"], +Cell[67765, 1848, 243, 4, 67, "Output",ExpressionUUID->"995d7b3a-e632-4399-ab53-14f1adac449c"] }, Open ]], Cell[CellGroupData[{ -Cell[67250, 1903, 19752, 484, 2561, "Input",ExpressionUUID->"f51c7370-e984-4436-869e-183513f78470"], -Cell[87005, 2389, 235, 5, 109, "Output",ExpressionUUID->"7ddd73ec-1d4d-451b-a8e5-36f55f74acf7"] +Cell[68045, 1857, 19748, 483, 7899, "Input",ExpressionUUID->"f51c7370-e984-4436-869e-183513f78470"], +Cell[87796, 2342, 259, 5, 67, "Output",ExpressionUUID->"af13accb-d4da-4310-9abd-2c0c8015961b"] }, Open ]], Cell[CellGroupData[{ -Cell[87277, 2399, 28300, 713, 109, "Input",ExpressionUUID->"b289736d-1914-4ccd-84a9-b45f7e687841"], -Cell[115580, 3114, 235, 5, 58, "Output",ExpressionUUID->"b9ab16a3-bfa0-4e03-8228-189b3066a79a"] +Cell[88092, 2352, 28296, 712, 9716, "Input",ExpressionUUID->"b289736d-1914-4ccd-84a9-b45f7e687841"], +Cell[116391, 3066, 257, 5, 67, "Output",ExpressionUUID->"3919cb1f-04e1-45c2-beaf-bd4e6875bf99"] }, Open ]], Cell[CellGroupData[{ -Cell[115852, 3124, 22539, 554, 2883, "Input",ExpressionUUID->"f30a7247-bb54-497f-af7d-7023090c83ff"], -Cell[138394, 3680, 238, 5, 58, "Output",ExpressionUUID->"eb13d8d5-2e86-4ac7-adb9-e467bae745f6"] +Cell[116685, 3076, 22535, 553, 9085, "Input",ExpressionUUID->"f30a7247-bb54-497f-af7d-7023090c83ff"], +Cell[139223, 3631, 260, 5, 67, "Output",ExpressionUUID->"9155f4fc-8acc-4edc-883e-3c3a8033ac56"] }, Open ]], Cell[CellGroupData[{ -Cell[138669, 3690, 25495, 627, 3226, "Input",ExpressionUUID->"7a650441-3404-47b3-a182-fc58d69e3f00"], -Cell[164167, 4319, 239, 5, 58, "Output",ExpressionUUID->"71226c6c-5244-4a27-ad23-28012197a0f1"] +Cell[139520, 3641, 25491, 626, 10226, "Input",ExpressionUUID->"7a650441-3404-47b3-a182-fc58d69e3f00"], +Cell[165014, 4269, 261, 5, 67, "Output",ExpressionUUID->"5b667053-b1fa-4672-98f5-6f1f09ded642"] }, Open ]], Cell[CellGroupData[{ -Cell[164443, 4329, 134, 3, 51, "Input",ExpressionUUID->"20ed4577-a8a7-41a6-aa65-d6d7dd6a7d37"], -Cell[164580, 4334, 204, 4, 58, "Output",ExpressionUUID->"97f4a4c3-bf92-48ac-a7f4-992ce3ae8e1c"] +Cell[165312, 4279, 130, 2, 59, "Input",ExpressionUUID->"20ed4577-a8a7-41a6-aa65-d6d7dd6a7d37"], +Cell[165445, 4283, 226, 4, 67, "Output",ExpressionUUID->"8e7ed465-78cc-4ad2-a91d-95de9dff0e2e"] }, Open ]], Cell[CellGroupData[{ -Cell[164821, 4343, 134, 3, 51, "Input",ExpressionUUID->"33a57048-9084-4f1b-9ad3-97615c81bd05"], -Cell[164958, 4348, 204, 4, 58, "Output",ExpressionUUID->"1aba9b4f-0894-43be-bcc5-45d8a2b826fd"] +Cell[165708, 4292, 130, 2, 59, "Input",ExpressionUUID->"33a57048-9084-4f1b-9ad3-97615c81bd05"], +Cell[165841, 4296, 228, 4, 67, "Output",ExpressionUUID->"a65a5d34-560d-4874-b5ed-7f576101d4de"] }, Open ]], Cell[CellGroupData[{ -Cell[165199, 4357, 1148, 40, 190, "Input",ExpressionUUID->"6bbdd55e-812b-4991-a934-55d5fe93ca69"], -Cell[166350, 4399, 218, 4, 58, "Output",ExpressionUUID->"06b04880-7076-4ee7-bd22-b65955695b22"] +Cell[166106, 4305, 1144, 39, 852, "Input",ExpressionUUID->"6bbdd55e-812b-4991-a934-55d5fe93ca69"], +Cell[167253, 4346, 240, 4, 67, "Output",ExpressionUUID->"c6dd1dfe-0ca3-4c87-8331-436bdf0eef64"] }, Open ]], Cell[CellGroupData[{ -Cell[166605, 4408, 1045, 36, 257, "Input",ExpressionUUID->"e1316acf-ef08-4a35-92f2-f52365d19c7c"], -Cell[167653, 4446, 238, 5, 58, "Output",ExpressionUUID->"784effa0-1b56-42dd-a4ec-6a8a421b9229"] +Cell[167530, 4355, 1041, 35, 848, "Input",ExpressionUUID->"e1316acf-ef08-4a35-92f2-f52365d19c7c"], +Cell[168574, 4392, 259, 5, 67, "Output",ExpressionUUID->"25064308-a846-40b6-b16c-a8047c64c1b1"] }, Open ]], Cell[CellGroupData[{ -Cell[167928, 4456, 1148, 40, 190, "Input",ExpressionUUID->"f3c8ab6f-cc14-4ef7-8f45-56a4f0fb0280"], -Cell[169079, 4498, 222, 4, 58, "Output",ExpressionUUID->"63f8ef2e-16b7-47de-bdab-2e8cb6546a9f"] +Cell[168870, 4402, 1144, 39, 852, "Input",ExpressionUUID->"f3c8ab6f-cc14-4ef7-8f45-56a4f0fb0280"], +Cell[170017, 4443, 246, 4, 67, "Output",ExpressionUUID->"bf376c15-884b-4302-8f2d-8dc9c7288045"] }, Open ]], Cell[CellGroupData[{ -Cell[169338, 4507, 112, 2, 51, "Input",ExpressionUUID->"c9c39409-cdfc-4a79-9f2b-367593593f49"], -Cell[169453, 4511, 224, 4, 58, "Output",ExpressionUUID->"6cc53293-8771-4d9d-a47c-36780b6af61d"] +Cell[170300, 4452, 108, 1, 59, "Input",ExpressionUUID->"c9c39409-cdfc-4a79-9f2b-367593593f49"], +Cell[170411, 4455, 248, 4, 67, "Output",ExpressionUUID->"12c99691-fa9f-405c-b3cd-ba6699c8a28e"] }, Open ]], Cell[CellGroupData[{ -Cell[169714, 4520, 112, 2, 51, "Input",ExpressionUUID->"daea4480-7eec-4ef4-8e45-df932beffd28"], -Cell[169829, 4524, 241, 5, 58, "Output",ExpressionUUID->"37effe82-fb3f-45a1-9a3e-14f2dad446c0"] +Cell[170696, 4464, 108, 1, 59, "Input",ExpressionUUID->"daea4480-7eec-4ef4-8e45-df932beffd28"], +Cell[170807, 4467, 263, 5, 67, "Output",ExpressionUUID->"df48fb7d-7941-415f-b88a-72e3678e74d7"] }, Open ]], Cell[CellGroupData[{ -Cell[170107, 4534, 112, 2, 51, "Input",ExpressionUUID->"f1c27a4d-d9b9-4059-906e-f1c9b2f848fe"], -Cell[170222, 4538, 239, 5, 58, "Output",ExpressionUUID->"9b42565b-631e-46fb-8bc4-7d971070b27c"] +Cell[171107, 4477, 108, 1, 59, "Input",ExpressionUUID->"f1c27a4d-d9b9-4059-906e-f1c9b2f848fe"], +Cell[171218, 4480, 261, 5, 67, "Output",ExpressionUUID->"77657692-a8b2-4ba3-bd6c-26d499a4d0f8"] }, Open ]], Cell[CellGroupData[{ -Cell[170498, 4548, 112, 2, 51, "Input",ExpressionUUID->"83ad0518-8081-4e34-b927-1a5b7fe6f5d7"], -Cell[170613, 4552, 219, 4, 58, "Output",ExpressionUUID->"69bada15-e35a-42ac-9196-5eb1052942a5"] +Cell[171516, 4490, 108, 1, 59, "Input",ExpressionUUID->"83ad0518-8081-4e34-b927-1a5b7fe6f5d7"], +Cell[171627, 4493, 241, 4, 67, "Output",ExpressionUUID->"14b901d7-1503-452d-a0ca-84499962e347"] }, Open ]], Cell[CellGroupData[{ -Cell[170869, 4561, 111, 2, 51, "Input",ExpressionUUID->"6271f5ad-5a8f-47dc-8780-b7c3a7515bd0"], -Cell[170983, 4565, 221, 4, 58, "Output",ExpressionUUID->"c602aaab-4be3-4902-a060-e87457a120cf"] +Cell[171905, 4502, 107, 1, 59, "Input",ExpressionUUID->"6271f5ad-5a8f-47dc-8780-b7c3a7515bd0"], +Cell[172015, 4505, 243, 4, 67, "Output",ExpressionUUID->"b896fd3c-1af2-44de-a0a5-27d0abee9294"] }, Open ]], Cell[CellGroupData[{ -Cell[171241, 4574, 111, 2, 51, "Input",ExpressionUUID->"40c7ce1b-04f0-43a1-b42f-31988566aadd"], -Cell[171355, 4578, 222, 4, 58, "Output",ExpressionUUID->"513b5328-fe7c-44ed-9553-0e55e18a7c92"] +Cell[172295, 4514, 107, 1, 59, "Input",ExpressionUUID->"40c7ce1b-04f0-43a1-b42f-31988566aadd"], +Cell[172405, 4517, 244, 4, 67, "Output",ExpressionUUID->"573b5f9b-edea-40c8-8311-2b99cd82e7b0"] }, Open ]], Cell[CellGroupData[{ -Cell[171614, 4587, 501, 17, 97, "Input",ExpressionUUID->"494c4e91-f213-467c-bbcc-282999b91200"], -Cell[172118, 4606, 242, 5, 58, "Output",ExpressionUUID->"757ca7f8-226c-49dd-b895-043d7ac85953"] +Cell[172686, 4526, 497, 16, 191, "Input",ExpressionUUID->"494c4e91-f213-467c-bbcc-282999b91200"], +Cell[173186, 4544, 264, 5, 67, "Output",ExpressionUUID->"153d196e-f35a-4904-a360-c8e84c37a693"] }, Open ]], Cell[CellGroupData[{ -Cell[172397, 4616, 501, 17, 97, "Input",ExpressionUUID->"02cd3f31-6603-4a07-9fcf-3b604c6e020e"], -Cell[172901, 4635, 234, 5, 58, "Output",ExpressionUUID->"d598f7a1-e1c5-4b9e-b374-494183d2c6c5"] +Cell[173487, 4554, 497, 16, 191, "Input",ExpressionUUID->"02cd3f31-6603-4a07-9fcf-3b604c6e020e"], +Cell[173987, 4572, 256, 5, 67, "Output",ExpressionUUID->"d41f04d4-24de-4cdd-9a83-08cf230c7ec3"] }, Open ]], Cell[CellGroupData[{ -Cell[173172, 4645, 1792, 61, 324, "Input",ExpressionUUID->"725331e1-d6ae-47c4-9dcc-467aaa2ba002"], -Cell[174967, 4708, 224, 4, 58, "Output",ExpressionUUID->"2be7f0f4-14c3-4e98-a010-ac8b05effc6f"] +Cell[174280, 4582, 1788, 60, 1156, "Input",ExpressionUUID->"725331e1-d6ae-47c4-9dcc-467aaa2ba002"], +Cell[176071, 4644, 246, 4, 67, "Output",ExpressionUUID->"829a011f-c08a-4351-9f6c-927fc946fc1f"] }, Open ]], Cell[CellGroupData[{ -Cell[175228, 4717, 1105, 37, 231, "Input",ExpressionUUID->"37614943-a6e5-4d00-8e38-0e6e7984376c"], -Cell[176336, 4756, 239, 5, 58, "Output",ExpressionUUID->"eb1dad88-cc33-4ff9-986d-6f6456fd8b67"] +Cell[176354, 4653, 1101, 36, 893, "Input",ExpressionUUID->"37614943-a6e5-4d00-8e38-0e6e7984376c"], +Cell[177458, 4691, 263, 5, 67, "Output",ExpressionUUID->"143b702c-c399-4079-a024-7f4634fbca15"] }, Open ]], Cell[CellGroupData[{ -Cell[176612, 4766, 1822, 62, 283, "Input",ExpressionUUID->"f1c1fe52-aa66-4424-a93e-50ee1c6d86b7"], -Cell[178437, 4830, 221, 4, 58, "Output",ExpressionUUID->"578e3ba4-bf2e-42f3-bcb8-0861d4c3a898"] +Cell[177758, 4701, 1818, 61, 1156, "Input",ExpressionUUID->"f1c1fe52-aa66-4424-a93e-50ee1c6d86b7"], +Cell[179579, 4764, 243, 4, 67, "Output",ExpressionUUID->"8030c03d-6d32-49cc-bbfe-f3de852a7521"] }, Open ]], Cell[CellGroupData[{ -Cell[178695, 4839, 1635, 54, 141, "Input",ExpressionUUID->"6d6fa6d0-861f-4b32-850d-9f8aeb24685d"], -Cell[180333, 4895, 223, 4, 58, "Output",ExpressionUUID->"14d25676-5f58-4634-b564-675d96cf5335"] +Cell[179859, 4773, 1710, 55, 840, "Input",ExpressionUUID->"6d6fa6d0-861f-4b32-850d-9f8aeb24685d"], +Cell[181572, 4830, 247, 4, 67, "Output",ExpressionUUID->"3357adf0-f038-4c80-81e3-df5806562a20"] }, Open ]], Cell[CellGroupData[{ -Cell[180593, 4904, 1714, 56, 840, "Input",ExpressionUUID->"66ca8919-b006-4278-8597-21733e30d8fb"], -Cell[182310, 4962, 221, 4, 67, "Output",ExpressionUUID->"86205bd0-c026-41f3-902a-493edff30589"] +Cell[181856, 4839, 1710, 55, 840, "Input",ExpressionUUID->"66ca8919-b006-4278-8597-21733e30d8fb"], +Cell[183569, 4896, 245, 4, 67, "Output",ExpressionUUID->"5327421b-4894-4615-a392-eeffa317fc86"] }, Open ]], -Cell[182546, 4969, 189, 4, 59, "Input",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], -Cell[182738, 4975, 154, 3, 59, "Input",ExpressionUUID->"a5161e25-7247-124f-8601-7bcc4af89c62"], -Cell[182895, 4980, 187, 4, 59, "Input",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], -Cell[183085, 4986, 154, 3, 59, "Input",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], Cell[CellGroupData[{ -Cell[183264, 4993, 1301, 43, 321, "Input",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], -Cell[184568, 5038, 178, 3, 67, "Output",ExpressionUUID->"1658422d-0016-324a-9843-942f5453a9c7"] +Cell[183851, 4905, 208, 3, 59, "Input",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], +Cell[184062, 4910, 160, 2, 67, "Output",ExpressionUUID->"0469af66-54df-4c81-8726-579d7398df13"] }, Open ]], +Cell[184237, 4915, 173, 2, 109, "Input",ExpressionUUID->"a5161e25-7247-124f-8601-7bcc4af89c62"], Cell[CellGroupData[{ -Cell[184783, 5046, 910, 31, 273, "Input",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], -Cell[185696, 5079, 175, 3, 67, "Output",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] +Cell[184435, 4921, 206, 3, 59, "Input",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], +Cell[184644, 4926, 161, 2, 67, "Output",ExpressionUUID->"f3453d98-36bf-426f-be03-21f77689c735"] }, Open ]], +Cell[184820, 4931, 173, 2, 109, "Input",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], Cell[CellGroupData[{ -Cell[185908, 5087, 887, 30, 273, "Input",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], -Cell[186798, 5119, 176, 3, 67, "Output",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] +Cell[185018, 4937, 1297, 42, 321, "Input",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], +Cell[186318, 4981, 198, 2, 67, "Output",ExpressionUUID->"53567839-5776-4940-9a2a-6507ae9843d1"] }, Open ]], Cell[CellGroupData[{ -Cell[187011, 5127, 558, 19, 105, "Input",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], -Cell[187572, 5148, 172, 3, 67, "Output",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] +Cell[186553, 4988, 929, 30, 273, "Input",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], +Cell[187485, 5020, 193, 2, 67, "Output",ExpressionUUID->"332d5e9d-e464-4f81-b1ea-3fc8262cb1a2"] }, Open ]], Cell[CellGroupData[{ -Cell[187781, 5156, 623, 21, 184, "Input",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], -Cell[188407, 5179, 172, 3, 67, "Output",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] +Cell[187715, 5027, 906, 29, 273, "Input",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], +Cell[188624, 5058, 193, 2, 67, "Output",ExpressionUUID->"ca986541-463c-4c26-9b99-963787de9d02"] }, Open ]], Cell[CellGroupData[{ -Cell[188616, 5187, 170, 5, 111, "Input",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], -Cell[188789, 5194, 172, 3, 67, "Output",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +Cell[188854, 5065, 554, 18, 105, "Input",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], +Cell[189411, 5085, 190, 2, 67, "Output",ExpressionUUID->"c0d177d9-6fc9-4107-abab-79475a123900"] }, Open ]], Cell[CellGroupData[{ -Cell[188998, 5202, 170, 5, 110, "Input",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], -Cell[189171, 5209, 171, 3, 67, "Output",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +Cell[189638, 5092, 619, 20, 184, "Input",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], +Cell[190260, 5114, 191, 2, 67, "Output",ExpressionUUID->"adbe485e-b496-4178-9911-98faf42fc355"] }, Open ]], Cell[CellGroupData[{ -Cell[189379, 5217, 181, 5, 87, "Input",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], -Cell[189563, 5224, 170, 3, 67, "Output",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +Cell[190488, 5121, 166, 4, 111, "Input",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], +Cell[190657, 5127, 191, 2, 67, "Output",ExpressionUUID->"41b6997b-9572-4d9c-bbf8-1c6f15dcf674"] }, Open ]], Cell[CellGroupData[{ -Cell[189770, 5232, 181, 5, 87, "Input",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], -Cell[189954, 5239, 172, 3, 67, "Output",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +Cell[190885, 5134, 166, 4, 110, "Input",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], +Cell[191054, 5140, 188, 2, 67, "Output",ExpressionUUID->"04a55776-baa8-428c-ae0b-cbf43444f1bb"] }, Open ]], Cell[CellGroupData[{ -Cell[190163, 5247, 6055, 185, 2552, "Input",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], -Cell[196221, 5434, 172, 3, 67, "Output",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +Cell[191279, 5147, 177, 4, 87, "Input",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], +Cell[191459, 5153, 189, 2, 67, "Output",ExpressionUUID->"99b28e14-70c8-4c71-9b38-7540867c270e"] }, Open ]], Cell[CellGroupData[{ -Cell[196430, 5442, 368, 9, 84, "Input",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], -Cell[196801, 5453, 171, 3, 67, "Output",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +Cell[191685, 5160, 177, 4, 87, "Input",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], +Cell[191865, 5166, 191, 2, 67, "Output",ExpressionUUID->"aa786797-42a0-4ba2-8b2f-4b7581b732e9"] }, Open ]], Cell[CellGroupData[{ -Cell[197009, 5461, 6122, 187, 2552, "Input",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], -Cell[203134, 5650, 173, 3, 67, "Output",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +Cell[192093, 5173, 6051, 184, 2552, "Input",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], +Cell[198147, 5359, 193, 2, 67, "Output",ExpressionUUID->"d41b6397-e465-425d-ab40-ba59b067571a"] }, Open ]], Cell[CellGroupData[{ -Cell[203344, 5658, 368, 9, 84, "Input",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], -Cell[203715, 5669, 170, 3, 67, "Output",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +Cell[198377, 5366, 364, 8, 84, "Input",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], +Cell[198744, 5376, 191, 2, 67, "Output",ExpressionUUID->"193855d5-99ae-4f84-8a8a-a8d2737e6d59"] }, Open ]], Cell[CellGroupData[{ -Cell[203922, 5677, 2663, 88, 1228, "Input",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], -Cell[206588, 5767, 171, 3, 67, "Output",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +Cell[198972, 5383, 6118, 186, 2552, "Input",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], +Cell[205093, 5571, 191, 2, 67, "Output",ExpressionUUID->"f247c134-d2f5-4151-92ab-0538c0d37b3a"] }, Open ]], Cell[CellGroupData[{ -Cell[206796, 5775, 2603, 85, 1228, "Input",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], -Cell[209402, 5862, 173, 3, 67, "Output",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +Cell[205321, 5578, 364, 8, 84, "Input",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], +Cell[205688, 5588, 188, 2, 67, "Output",ExpressionUUID->"4ffe0af9-0805-4a4a-b4e0-e107a4ebd050"] }, Open ]], Cell[CellGroupData[{ -Cell[209612, 5870, 3712, 118, 1634, "Input",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], -Cell[213327, 5990, 174, 3, 67, "Output",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] +Cell[205913, 5595, 2659, 87, 1228, "Input",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], +Cell[208575, 5684, 187, 2, 67, "Output",ExpressionUUID->"34765691-a191-448e-961a-8b5668ae9a7a"] }, Open ]], -Cell[213516, 5996, 138, 3, 59, "Input",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], Cell[CellGroupData[{ -Cell[213679, 6003, 2054, 59, 689, "Input",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], -Cell[215736, 6064, 557, 12, 255, "Message",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], -Cell[216296, 6078, 559, 12, 255, "Message",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], -Cell[216858, 6092, 561, 12, 255, "Message",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], -Cell[217422, 6106, 458, 10, 85, "Message",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], -Cell[217883, 6118, 172, 3, 67, "Output",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +Cell[208799, 5691, 2599, 84, 1228, "Input",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], +Cell[211401, 5777, 191, 2, 67, "Output",ExpressionUUID->"cfd52b0d-3c6c-465b-a8b8-b4068b071c9a"] }, Open ]], Cell[CellGroupData[{ -Cell[218092, 6126, 2052, 59, 689, "Input",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], -Cell[220147, 6187, 555, 12, 255, "Message",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], -Cell[220705, 6201, 559, 12, 244, "Message",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], -Cell[221267, 6215, 561, 12, 255, "Message",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], -Cell[221831, 6229, 458, 10, 85, "Message",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], -Cell[222292, 6241, 172, 3, 67, "Output",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +Cell[211629, 5784, 3708, 117, 1634, "Input",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], +Cell[215340, 5903, 190, 2, 67, "Output",ExpressionUUID->"c5488963-8484-4829-b094-b83e0901caf7"] }, Open ]], +Cell[215545, 5908, 160, 3, 109, "Input",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], Cell[CellGroupData[{ -Cell[222501, 6249, 1936, 53, 536, "Input",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], -Cell[224440, 6304, 20458, 382, 324, "Output",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] +Cell[215730, 5915, 2209, 61, 689, "Input",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], +Cell[217942, 5978, 630, 13, 190, "Message",ExpressionUUID->"bd69155c-ea31-475c-a16b-0881bf7bdf93"], +Cell[218575, 5993, 631, 13, 190, "Message",ExpressionUUID->"00bf0900-7183-4095-93e4-aef3e7bb0337"], +Cell[219209, 6008, 630, 13, 190, "Message",ExpressionUUID->"ce3a4164-e371-490f-8ce9-2734c38025e7"], +Cell[219842, 6023, 492, 11, 85, "Message",ExpressionUUID->"05d5a30e-027f-4e67-a53f-34432b340616"], +Cell[220337, 6036, 191, 2, 67, "Output",ExpressionUUID->"bcef5c62-4a8d-41ca-820c-1ef203d56f32"] }, Open ]], Cell[CellGroupData[{ -Cell[244935, 6691, 2094, 60, 806, "Input",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], -Cell[247032, 6753, 500, 11, 190, "Message",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], -Cell[247535, 6766, 503, 11, 190, "Message",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], -Cell[248041, 6779, 506, 11, 190, "Message",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], -Cell[248550, 6792, 455, 10, 85, "Message",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], -Cell[249008, 6804, 57321, 985, 314, "Output",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] +Cell[220565, 6043, 2207, 61, 689, "Input",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], +Cell[222775, 6106, 629, 13, 190, "Message",ExpressionUUID->"ccbc5996-211d-4b76-855e-ce2d16a90d80"], +Cell[223407, 6121, 631, 13, 190, "Message",ExpressionUUID->"e4581839-5c00-47e0-adf5-469217dbed72"], +Cell[224041, 6136, 630, 13, 190, "Message",ExpressionUUID->"f624f2a6-581d-4436-8174-9cf6a1dbfc43"], +Cell[224674, 6151, 490, 11, 85, "Message",ExpressionUUID->"577f8dcb-ed3c-4e34-b7f8-2bff0964a227"], +Cell[225167, 6164, 190, 2, 67, "Output",ExpressionUUID->"6450b3dc-fc19-40ed-9a5b-0bcae8bd35ab"] }, Open ]], -Cell[306344, 7792, 2452, 69, 719, "Input",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], -Cell[308799, 7863, 209, 5, 59, "Input",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], Cell[CellGroupData[{ -Cell[309033, 7872, 217, 7, 96, "Input",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], -Cell[309253, 7881, 172, 3, 67, "Output",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +Cell[225394, 6171, 2047, 54, 536, "Input",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], +Cell[227444, 6227, 20307, 382, 324, "Output",ExpressionUUID->"761fc6f8-8bb8-48a5-afc3-9d13572c23f1"] }, Open ]], Cell[CellGroupData[{ -Cell[309462, 7889, 1816, 53, 745, "Input",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], -Cell[311281, 7944, 508, 11, 179, "Message",ExpressionUUID->"3a61d965-a130-7645-90c6-a5061b94ec40"], -Cell[311792, 7957, 508, 11, 179, "Message",ExpressionUUID->"c3c0d10c-aa86-9b43-bfa9-71bc099863f1"], -Cell[312303, 7970, 511, 11, 190, "Message",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], -Cell[312817, 7983, 456, 10, 85, "Message",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], -Cell[313276, 7995, 26000, 472, 319, "Output",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] +Cell[247788, 6614, 2249, 62, 806, "Input",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], +Cell[250040, 6678, 539, 12, 190, "Message",ExpressionUUID->"ff9f17a5-76b8-4809-8953-565247b6a8b6"], +Cell[250582, 6692, 540, 12, 190, "Message",ExpressionUUID->"428de98a-9294-42b9-8e12-6f42c08376d3"], +Cell[251125, 6706, 543, 12, 190, "Message",ExpressionUUID->"bb8c982e-eef3-40f1-91b7-895253235b61"], +Cell[251671, 6720, 495, 11, 85, "Message",ExpressionUUID->"6b57a181-7df2-4f40-bfe7-ab4c15e23c3e"], +Cell[252169, 6733, 22938, 422, 314, "Output",ExpressionUUID->"30fbd107-c3cc-4d39-bf09-425d3dc727d1"] }, Open ]], Cell[CellGroupData[{ -Cell[339313, 8472, 1616, 48, 218, "Input",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], -Cell[340932, 8522, 584, 12, 218, "Message",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], -Cell[341519, 8536, 588, 12, 288, "Message",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], -Cell[342110, 8550, 592, 12, 288, "Message",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], -Cell[342705, 8564, 456, 10, 85, "Message",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], -Cell[343164, 8576, 169, 3, 67, "Output",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] +Cell[275144, 7160, 2474, 69, 719, "Input",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], +Cell[277621, 7231, 9494, 222, 322, "Output",ExpressionUUID->"98717052-21ae-4054-8512-daa35d2bc7d0"] }, Open ]], Cell[CellGroupData[{ -Cell[343370, 8584, 2249, 64, 772, "Input",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], -Cell[345622, 8650, 555, 12, 218, "Message",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], -Cell[346180, 8664, 557, 12, 218, "Message",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], -Cell[346740, 8678, 563, 12, 218, "Message",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], -Cell[347306, 8692, 458, 10, 218, "Message",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], -Cell[347767, 8704, 173, 3, 218, "Output",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] +Cell[287152, 7458, 228, 4, 59, "Input",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], +Cell[287383, 7464, 29297, 554, 314, "Output",ExpressionUUID->"f6f0b1c0-5c21-44f6-b0f1-71618b7a76d0"] }, Open ]], Cell[CellGroupData[{ -Cell[347977, 8712, 2223, 64, 218, "Input",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], -Cell[350203, 8778, 555, 12, 255, "Message",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], -Cell[350761, 8792, 557, 12, 255, "Message",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], -Cell[351321, 8806, 561, 12, 255, "Message",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], -Cell[351885, 8820, 458, 10, 85, "Message",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], -Cell[352346, 8832, 173, 3, 67, "Output",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] +Cell[316717, 8023, 236, 6, 96, "Input",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], +Cell[316956, 8031, 193, 2, 67, "Output",ExpressionUUID->"c07ed2a8-c2a8-4eba-8fdd-9da0c516cd9c"] }, Open ]], Cell[CellGroupData[{ -Cell[352556, 8840, 2221, 64, 730, "Input",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], -Cell[354780, 8906, 557, 12, 218, "Message",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], -Cell[355340, 8920, 557, 12, 218, "Message",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], -Cell[355900, 8934, 563, 12, 218, "Message",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], -Cell[356466, 8948, 456, 10, 218, "Message",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], -Cell[356925, 8960, 173, 3, 218, "Output",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] +Cell[317186, 8038, 1970, 55, 745, "Input",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], +Cell[319159, 8095, 638, 14, 190, "Message",ExpressionUUID->"dec562f1-e098-4634-aee8-6457ef9c74b1"], +Cell[319800, 8111, 639, 14, 190, "Message",ExpressionUUID->"3dac1f93-7d29-4406-9512-e59c4535751d"], +Cell[320442, 8127, 636, 14, 190, "Message",ExpressionUUID->"947b8d0d-aa82-4cc2-971d-eb37c7b4fea6"], +Cell[321081, 8143, 493, 11, 85, "Message",ExpressionUUID->"d7ead84a-d076-42ab-862d-b1cf347c6853"], +Cell[321577, 8156, 23007, 425, 314, "Output",ExpressionUUID->"a410c4f2-f8d5-4dc1-b89b-ab6bf5112a54"] }, Open ]], Cell[CellGroupData[{ -Cell[357135, 8968, 213, 6, 218, "Input",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], -Cell[357351, 8976, 171, 3, 67, "Output",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] +Cell[344621, 8586, 1750, 52, 575, "Input",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], +Cell[346374, 8640, 640, 14, 190, "Message",ExpressionUUID->"14a3e075-d10f-43a4-9b75-8b360a33a7df"], +Cell[347017, 8656, 638, 14, 190, "Message",ExpressionUUID->"bfabe440-49a0-4612-b95d-bbb80407ed69"], +Cell[347658, 8672, 638, 14, 190, "Message",ExpressionUUID->"7f1a8a9e-ca70-4aae-8e1b-cf9bb4ddff94"], +Cell[348299, 8688, 494, 11, 85, "Message",ExpressionUUID->"c7581aad-5c39-499f-9833-4b3774c874fb"], +Cell[348796, 8701, 193, 3, 67, "Output",ExpressionUUID->"a7d9ec58-8b9e-4738-8c2c-a2a4f8edbb5e"] }, Open ]], -Cell[357537, 8982, 245, 5, 59, "Input",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], Cell[CellGroupData[{ -Cell[357807, 8991, 558, 19, 105, "Input",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], -Cell[358368, 9012, 172, 3, 67, "Output",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] +Cell[349026, 8709, 2272, 64, 772, "Input",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], +Cell[351301, 8775, 632, 13, 190, "Message",ExpressionUUID->"9ccb7cf6-1277-45ee-9c96-6581782376b5"], +Cell[351936, 8790, 632, 13, 190, "Message",ExpressionUUID->"a81ac83f-fc00-41df-8b7e-a547e114caf2"], +Cell[352571, 8805, 631, 13, 190, "Message",ExpressionUUID->"97559e05-68ec-484a-8c53-8b7e5eb905cd"], +Cell[353205, 8820, 495, 11, 85, "Message",ExpressionUUID->"b4a3bdd9-b470-465c-9315-2f91ebc81797"], +Cell[353703, 8833, 196, 3, 67, "Output",ExpressionUUID->"96b3e0de-aa1a-41e1-a418-9670e009746b"] }, Open ]], Cell[CellGroupData[{ -Cell[358577, 9020, 170, 5, 111, "Input",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], -Cell[358750, 9027, 173, 3, 67, "Output",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] +Cell[353936, 8841, 2235, 63, 730, "Input",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], +Cell[356174, 8906, 634, 13, 190, "Message",ExpressionUUID->"0ae86c23-23eb-4910-ab95-7234a3344af8"], +Cell[356811, 8921, 634, 13, 190, "Message",ExpressionUUID->"3a996009-351b-401f-b668-f3506e5beee5"], +Cell[357448, 8936, 631, 13, 190, "Message",ExpressionUUID->"522d6c18-90b7-4135-a43c-926a402609db"], +Cell[358082, 8951, 493, 11, 85, "Message",ExpressionUUID->"cecf92a6-8700-404d-b28b-1473dd7724f8"], +Cell[358578, 8964, 195, 3, 67, "Output",ExpressionUUID->"ef196b67-8da0-47ac-b9b6-ff7041a9b864"] }, Open ]], Cell[CellGroupData[{ -Cell[358960, 9035, 181, 5, 87, "Input",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], -Cell[359144, 9042, 173, 3, 67, "Output",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] +Cell[358810, 8972, 2233, 63, 730, "Input",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], +Cell[361046, 9037, 633, 13, 190, "Message",ExpressionUUID->"b4688f69-6158-4e6d-a2d4-c356fac6e2bf"], +Cell[361682, 9052, 634, 13, 190, "Message",ExpressionUUID->"31f02b0e-fbaf-4561-a0d7-9fc65bda01d0"], +Cell[362319, 9067, 635, 13, 190, "Message",ExpressionUUID->"dd772b0b-38d1-459d-8688-2aea653f3c9f"], +Cell[362957, 9082, 495, 11, 85, "Message",ExpressionUUID->"ab1e47f3-f86e-4fce-ab41-c37c54b8080e"], +Cell[363455, 9095, 197, 3, 67, "Output",ExpressionUUID->"8aaa1c47-f335-4ab1-b0bb-4ab3e1df1d52"] }, Open ]], Cell[CellGroupData[{ -Cell[359354, 9050, 6055, 185, 2552, "Input",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], -Cell[365412, 9237, 172, 3, 67, "Output",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] +Cell[363689, 9103, 236, 6, 94, "Input",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], +Cell[363928, 9111, 194, 3, 67, "Output",ExpressionUUID->"635916e8-9434-46c5-b19a-7608410d402d"] }, Open ]], +Cell[364137, 9117, 271, 6, 109, "Input",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], Cell[CellGroupData[{ -Cell[365621, 9245, 368, 9, 84, "Input",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], -Cell[365992, 9256, 170, 3, 67, "Output",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] +Cell[364433, 9127, 558, 19, 105, "Input",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], +Cell[364994, 9148, 195, 3, 67, "Output",ExpressionUUID->"330c81d7-b909-44a9-80b3-9e2af7218884"] }, Open ]], Cell[CellGroupData[{ -Cell[366199, 9264, 6122, 187, 2552, "Input",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], -Cell[372324, 9453, 175, 3, 67, "Output",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] +Cell[365226, 9156, 170, 5, 111, "Input",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], +Cell[365399, 9163, 197, 3, 67, "Output",ExpressionUUID->"9593ee0e-c9ed-41f1-a2a5-b1148069eec7"] }, Open ]], Cell[CellGroupData[{ -Cell[372536, 9461, 368, 9, 84, "Input",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], -Cell[372907, 9472, 172, 3, 67, "Output",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] +Cell[365633, 9171, 181, 5, 87, "Input",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], +Cell[365817, 9178, 197, 3, 67, "Output",ExpressionUUID->"f5a63b4e-2374-43a1-a9d2-0ae0b0d414f9"] }, Open ]], Cell[CellGroupData[{ -Cell[373116, 9480, 2663, 88, 1228, "Input",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], -Cell[375782, 9570, 173, 3, 67, "Output",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] +Cell[366051, 9186, 6055, 185, 2552, "Input",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], +Cell[372109, 9373, 197, 3, 67, "Output",ExpressionUUID->"397fbfe3-cb8b-4b2c-b38b-c71c29f73605"] }, Open ]], Cell[CellGroupData[{ -Cell[375992, 9578, 2603, 85, 1228, "Input",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], -Cell[378598, 9665, 171, 3, 67, "Output",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] +Cell[372343, 9381, 368, 9, 84, "Input",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], +Cell[372714, 9392, 192, 3, 67, "Output",ExpressionUUID->"4f7532e2-85a9-4ecf-825d-8ced48d82493"] }, Open ]], Cell[CellGroupData[{ -Cell[378806, 9673, 3712, 118, 1634, "Input",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], -Cell[382521, 9793, 174, 3, 67, "Output",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] +Cell[372943, 9400, 6122, 187, 2552, "Input",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], +Cell[379068, 9589, 197, 3, 67, "Output",ExpressionUUID->"39572242-0c3b-45c1-bf7a-974b51e09316"] }, Open ]], Cell[CellGroupData[{ -Cell[382732, 9801, 2052, 59, 689, "Input",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], -Cell[384787, 9862, 578, 12, 255, "Message",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], -Cell[385368, 9876, 583, 12, 288, "Message",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], -Cell[385954, 9890, 586, 12, 288, "Message",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], -Cell[386543, 9904, 456, 10, 218, "Message",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], -Cell[387002, 9916, 170, 3, 218, "Output",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] +Cell[379302, 9597, 368, 9, 84, "Input",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], +Cell[379673, 9608, 197, 3, 67, "Output",ExpressionUUID->"7303c46b-8667-4471-8fa1-b6c085bca58f"] }, Open ]], Cell[CellGroupData[{ -Cell[387209, 9924, 2054, 59, 218, "Input",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], -Cell[389266, 9985, 576, 12, 218, "Message",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], -Cell[389845, 9999, 581, 12, 288, "Message",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], -Cell[390429, 10013, 586, 12, 288, "Message",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], -Cell[391018, 10027, 458, 10, 85, "Message",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], -Cell[391479, 10039, 172, 3, 67, "Output",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] +Cell[379907, 9616, 2663, 88, 1228, "Input",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], +Cell[382573, 9706, 196, 3, 67, "Output",ExpressionUUID->"2f683809-96e3-4158-bd59-98b2f32cabcd"] }, Open ]], Cell[CellGroupData[{ -Cell[391688, 10047, 2028, 55, 536, "Input",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], -Cell[393719, 10104, 20011, 378, 218, "Output",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] +Cell[382806, 9714, 2603, 85, 1228, "Input",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], +Cell[385412, 9801, 193, 3, 67, "Output",ExpressionUUID->"73440ec4-5fb1-4a9d-8573-1538884cbd71"] }, Open ]], Cell[CellGroupData[{ -Cell[413767, 10487, 2115, 60, 218, "Input",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], -Cell[415885, 10549, 501, 11, 218, "Message",ExpressionUUID->"abf9cb8a-fbbf-7a43-abcd-82efb32ab217"], -Cell[416389, 10562, 503, 11, 218, "Message",ExpressionUUID->"8fcd13e3-81e0-3446-8882-6e42ca5c0bd1"], -Cell[416895, 10575, 505, 11, 190, "Message",ExpressionUUID->"2c23ed60-41ee-5841-90ce-1d26cb02619d"], -Cell[417403, 10588, 456, 10, 85, "Message",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], -Cell[417862, 10600, 32548, 580, 316, "Output",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] +Cell[385642, 9809, 3712, 118, 1634, "Input",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], +Cell[389357, 9929, 195, 3, 67, "Output",ExpressionUUID->"31dd199b-c75a-417d-9397-ee8949c8a0c8"] }, Open ]], -Cell[450425, 11183, 209, 5, 59, "Input",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], Cell[CellGroupData[{ -Cell[450659, 11192, 1616, 48, 575, "Input",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], -Cell[452278, 11242, 596, 12, 218, "Message",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], -Cell[452877, 11256, 599, 12, 218, "Message",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], -Cell[453479, 11270, 605, 12, 218, "Message",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], -Cell[454087, 11284, 456, 10, 218, "Message",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], -Cell[454546, 11296, 170, 3, 67, "Output",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] +Cell[389589, 9937, 2211, 62, 689, "Input",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], +Cell[391803, 10001, 636, 14, 190, "Message",ExpressionUUID->"7a92ed68-59e2-4eb2-a9af-043a75ba6e80"], +Cell[392442, 10017, 634, 13, 190, "Message",ExpressionUUID->"d606b4a6-f1c2-44b3-9b86-ebd36c0492c4"], +Cell[393079, 10032, 632, 13, 190, "Message",ExpressionUUID->"c4ae90eb-573f-4fca-be37-35f364f5c381"], +Cell[393714, 10047, 493, 11, 85, "Message",ExpressionUUID->"2aef2899-8e10-4342-9cce-8644655d8b39"], +Cell[394210, 10060, 193, 3, 67, "Output",ExpressionUUID->"0c72f292-528e-4854-871b-25f9806e5991"] }, Open ]], Cell[CellGroupData[{ -Cell[454753, 11304, 2247, 64, 772, "Input",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], -Cell[457003, 11370, 580, 12, 255, "Message",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], -Cell[457586, 11384, 583, 12, 288, "Message",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], -Cell[458172, 11398, 584, 12, 288, "Message",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], -Cell[458759, 11412, 458, 10, 218, "Message",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], -Cell[459220, 11424, 170, 3, 67, "Output",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] +Cell[394440, 10068, 2213, 62, 689, "Input",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], +Cell[396656, 10132, 634, 14, 190, "Message",ExpressionUUID->"e2dc4cdf-ca77-4068-8ca3-0f11ce2c7d20"], +Cell[397293, 10148, 630, 13, 190, "Message",ExpressionUUID->"e2fc41e6-093c-4e02-91b0-aa83d3d09edd"], +Cell[397926, 10163, 632, 13, 190, "Message",ExpressionUUID->"baf1cf06-add8-4f9c-9e61-e3fbaa55a222"], +Cell[398561, 10178, 491, 11, 85, "Message",ExpressionUUID->"373911d9-9325-4f21-bd54-96a2f2655034"], +Cell[399055, 10191, 195, 3, 67, "Output",ExpressionUUID->"06aa70c2-666a-4fc2-9b09-10dab407d5bc"] }, Open ]], Cell[CellGroupData[{ -Cell[459427, 11432, 2219, 64, 730, "Input",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], -Cell[461649, 11498, 580, 12, 255, "Message",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], -Cell[462232, 11512, 583, 12, 218, "Message",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], -Cell[462818, 11526, 586, 12, 288, "Message",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], -Cell[463407, 11540, 458, 10, 85, "Message",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], -Cell[463868, 11552, 171, 3, 67, "Output",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] +Cell[399287, 10199, 2051, 55, 536, "Input",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], +Cell[401341, 10256, 20459, 384, 316, "Output",ExpressionUUID->"4fa3f7d6-eca1-42af-a3df-e634757eac99"] }, Open ]], Cell[CellGroupData[{ -Cell[464076, 11560, 2221, 64, 730, "Input",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], -Cell[466300, 11626, 580, 12, 218, "Message",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], -Cell[466883, 11640, 583, 12, 218, "Message",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], -Cell[467469, 11654, 584, 12, 218, "Message",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], -Cell[468056, 11668, 456, 10, 85, "Message",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], -Cell[468515, 11680, 170, 3, 67, "Output",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] +Cell[421837, 10645, 2274, 63, 806, "Input",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], +Cell[424114, 10710, 534, 12, 190, "Message",ExpressionUUID->"86ad302c-dca7-47f8-8064-1a0cb3e21a3e"], +Cell[424651, 10724, 540, 12, 190, "Message",ExpressionUUID->"328b10c9-2bbc-4231-8af4-b394ed242c75"], +Cell[425194, 10738, 545, 12, 190, "Message",ExpressionUUID->"56b6efce-7838-4ee6-a540-44552ea3298a"], +Cell[425742, 10752, 497, 11, 85, "Message",ExpressionUUID->"d61cb326-8306-437b-ab27-6a635e7acc58"], +Cell[426242, 10765, 23869, 438, 314, "Output",ExpressionUUID->"ccb28580-4aba-4546-86a7-f4f8b1e543e9"] }, Open ]], Cell[CellGroupData[{ -Cell[468722, 11688, 213, 6, 94, "Input",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], -Cell[468938, 11696, 174, 3, 67, "Output",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] +Cell[450148, 11208, 232, 5, 59, "Input",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], +Cell[450383, 11215, 30229, 570, 314, "Output",ExpressionUUID->"60095a5b-54ee-4bdb-9c7f-ac85da36b39e"] }, Open ]], -Cell[469127, 11702, 247, 5, 59, "Input",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], Cell[CellGroupData[{ -Cell[469399, 11711, 558, 19, 105, "Input",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], -Cell[469960, 11732, 173, 3, 67, "Output",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] +Cell[480649, 11790, 1750, 52, 575, "Input",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], +Cell[482402, 11844, 637, 14, 190, "Message",ExpressionUUID->"71576632-3f9d-4ad7-bbe2-8837802b2f36"], +Cell[483042, 11860, 636, 14, 190, "Message",ExpressionUUID->"8f6da85b-c7ac-41e0-abf9-695b8f4a5333"], +Cell[483681, 11876, 637, 14, 190, "Message",ExpressionUUID->"e8595032-0034-4f74-8e73-09b1777a21e1"], +Cell[484321, 11892, 493, 11, 85, "Message",ExpressionUUID->"4fcb1de5-3bad-401d-a463-cda0caec531a"], +Cell[484817, 11905, 195, 3, 67, "Output",ExpressionUUID->"3d3f1223-278d-4965-95e6-d98acafc8e6c"] }, Open ]], Cell[CellGroupData[{ -Cell[470170, 11740, 170, 5, 111, "Input",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], -Cell[470343, 11747, 173, 3, 67, "Output",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] +Cell[485049, 11913, 2270, 64, 772, "Input",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], +Cell[487322, 11979, 638, 14, 190, "Message",ExpressionUUID->"710ef4cd-7554-42e7-8396-0462646fbce7"], +Cell[487963, 11995, 634, 13, 190, "Message",ExpressionUUID->"0d4f03c1-63ca-495e-a87e-0e607f44e15b"], +Cell[488600, 12010, 634, 13, 190, "Message",ExpressionUUID->"bfa7149c-24dc-4e04-bfeb-1128159cc5bd"], +Cell[489237, 12025, 495, 11, 85, "Message",ExpressionUUID->"154bdcbf-b3f3-4a24-9dcc-72c08db26a9f"], +Cell[489735, 12038, 194, 3, 67, "Output",ExpressionUUID->"3334f8cf-dc31-4317-8b60-6563e3ab9e11"] }, Open ]], Cell[CellGroupData[{ -Cell[470553, 11755, 181, 5, 87, "Input",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], -Cell[470737, 11762, 171, 3, 67, "Output",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] +Cell[489966, 12046, 2231, 63, 730, "Input",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], +Cell[492200, 12111, 640, 14, 190, "Message",ExpressionUUID->"a63e5ad3-830c-4271-be22-c6213bc53642"], +Cell[492843, 12127, 634, 13, 190, "Message",ExpressionUUID->"9586d468-a2ad-41a0-9d8a-190209d704b5"], +Cell[493480, 12142, 634, 13, 190, "Message",ExpressionUUID->"2f973a50-c7c8-48fa-b4f5-b5acea92b30b"], +Cell[494117, 12157, 495, 11, 85, "Message",ExpressionUUID->"96e2aa3f-296d-4814-8e2e-7bd9b4d319ec"], +Cell[494615, 12170, 194, 3, 67, "Output",ExpressionUUID->"5c10f584-4a64-467a-aa7d-8738184e7a42"] }, Open ]], Cell[CellGroupData[{ -Cell[470945, 11770, 6055, 185, 2552, "Input",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], -Cell[477003, 11957, 173, 3, 67, "Output",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] +Cell[494846, 12178, 2233, 63, 730, "Input",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], +Cell[497082, 12243, 640, 14, 190, "Message",ExpressionUUID->"6e8693d4-aaa8-4174-ba06-db93d9d3365d"], +Cell[497725, 12259, 634, 13, 190, "Message",ExpressionUUID->"5ce42240-2946-4636-bff0-89593d560897"], +Cell[498362, 12274, 636, 13, 190, "Message",ExpressionUUID->"930abb54-9b01-49d1-8153-d9b25cb10f3d"], +Cell[499001, 12289, 497, 11, 85, "Message",ExpressionUUID->"72342c05-b2ba-4be2-948d-db1d800d766b"], +Cell[499501, 12302, 193, 3, 67, "Output",ExpressionUUID->"521f30c7-1787-4abb-b6fb-cae1e11de566"] }, Open ]], Cell[CellGroupData[{ -Cell[477213, 11965, 368, 9, 84, "Input",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], -Cell[477584, 11976, 172, 3, 67, "Output",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] +Cell[499731, 12310, 236, 6, 94, "Input",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], +Cell[499970, 12318, 198, 3, 67, "Output",ExpressionUUID->"ef749f33-0e38-497b-83c4-3c713fdc3f9f"] }, Open ]], +Cell[500183, 12324, 273, 6, 109, "Input",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], Cell[CellGroupData[{ -Cell[477793, 11984, 6122, 187, 2552, "Input",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], -Cell[483918, 12173, 175, 3, 67, "Output",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] +Cell[500481, 12334, 558, 19, 105, "Input",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], +Cell[501042, 12355, 194, 3, 67, "Output",ExpressionUUID->"bb6b4795-b5d9-48d5-b074-62d44fc58890"] }, Open ]], Cell[CellGroupData[{ -Cell[484130, 12181, 368, 9, 84, "Input",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], -Cell[484501, 12192, 171, 3, 67, "Output",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] +Cell[501273, 12363, 170, 5, 111, "Input",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], +Cell[501446, 12370, 195, 3, 67, "Output",ExpressionUUID->"96ae6064-83b8-4a4c-87ae-a3d3a2d4a032"] }, Open ]], Cell[CellGroupData[{ -Cell[484709, 12200, 2663, 88, 1228, "Input",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], -Cell[487375, 12290, 173, 3, 67, "Output",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] +Cell[501678, 12378, 181, 5, 87, "Input",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], +Cell[501862, 12385, 192, 3, 67, "Output",ExpressionUUID->"5c91da84-6acf-4b9e-a56e-8a6bc23fe511"] }, Open ]], Cell[CellGroupData[{ -Cell[487585, 12298, 2603, 85, 1228, "Input",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], -Cell[490191, 12385, 171, 3, 67, "Output",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] +Cell[502091, 12393, 6055, 185, 2552, "Input",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], +Cell[508149, 12580, 195, 3, 67, "Output",ExpressionUUID->"57382423-0d75-4d18-bd30-63aac2927466"] }, Open ]], Cell[CellGroupData[{ -Cell[490399, 12393, 3712, 118, 1634, "Input",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], -Cell[494114, 12513, 174, 3, 67, "Output",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] +Cell[508381, 12588, 368, 9, 84, "Input",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], +Cell[508752, 12599, 195, 3, 67, "Output",ExpressionUUID->"e8104405-339a-40d2-92c9-0f8418a32e15"] }, Open ]], Cell[CellGroupData[{ -Cell[494325, 12521, 2054, 59, 689, "Input",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], -Cell[496382, 12582, 572, 12, 255, "Message",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], -Cell[496957, 12596, 573, 12, 255, "Message",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], -Cell[497533, 12610, 579, 12, 255, "Message",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], -Cell[498115, 12624, 456, 10, 85, "Message",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], -Cell[498574, 12636, 169, 3, 67, "Output",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] +Cell[508984, 12607, 6122, 187, 2552, "Input",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], +Cell[515109, 12796, 199, 3, 67, "Output",ExpressionUUID->"d57703a6-6f47-46ba-84a9-f3565d8a7a42"] }, Open ]], Cell[CellGroupData[{ -Cell[498780, 12644, 2049, 58, 689, "Input",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], -Cell[500832, 12704, 570, 12, 255, "Message",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], -Cell[501405, 12718, 575, 12, 218, "Message",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], -Cell[501983, 12732, 579, 12, 255, "Message",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], -Cell[502565, 12746, 458, 10, 85, "Message",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], -Cell[503026, 12758, 171, 3, 67, "Output",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] +Cell[515345, 12804, 368, 9, 84, "Input",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], +Cell[515716, 12815, 194, 3, 67, "Output",ExpressionUUID->"aad42ac7-2437-42e1-b46c-8f8772e5f6b4"] }, Open ]], Cell[CellGroupData[{ -Cell[503234, 12766, 2030, 55, 536, "Input",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], -Cell[505267, 12823, 20011, 378, 325, "Output",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] +Cell[515947, 12823, 2663, 88, 1228, "Input",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], +Cell[518613, 12913, 196, 3, 67, "Output",ExpressionUUID->"a14bf408-0eaa-4cf0-8407-9959c27c6c14"] }, Open ]], Cell[CellGroupData[{ -Cell[525315, 13206, 2120, 60, 218, "Input",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], -Cell[527438, 13268, 501, 11, 218, "Message",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], -Cell[527942, 13281, 505, 11, 218, "Message",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], -Cell[528450, 13294, 506, 11, 218, "Message",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], -Cell[528959, 13307, 456, 10, 218, "Message",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], -Cell[529418, 13319, 31008, 556, 218, "Output",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] +Cell[518846, 12921, 2603, 85, 1228, "Input",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], +Cell[521452, 13008, 193, 3, 67, "Output",ExpressionUUID->"7c400711-8ef4-47a1-ba9f-e21c1a773508"] }, Open ]], -Cell[560441, 13878, 209, 5, 218, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], Cell[CellGroupData[{ -Cell[560675, 13887, 1616, 48, 575, "Input",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], -Cell[562294, 13937, 593, 12, 288, "Message",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], -Cell[562890, 13951, 595, 12, 288, "Message",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], -Cell[563488, 13965, 602, 12, 288, "Message",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], -Cell[564093, 13979, 456, 10, 218, "Message",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], -Cell[564552, 13991, 172, 3, 218, "Output",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] +Cell[521682, 13016, 3712, 118, 1634, "Input",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], +Cell[525397, 13136, 197, 3, 67, "Output",ExpressionUUID->"41a45df8-4b18-4126-84a5-827ef97bbd8b"] }, Open ]], Cell[CellGroupData[{ -Cell[564761, 13999, 2249, 64, 218, "Input",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], -Cell[567013, 14065, 572, 12, 218, "Message",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], -Cell[567588, 14079, 575, 12, 218, "Message",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], -Cell[568166, 14093, 579, 12, 255, "Message",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], -Cell[568748, 14107, 458, 10, 85, "Message",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], -Cell[569209, 14119, 173, 3, 67, "Output",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] +Cell[525631, 13144, 2213, 62, 689, "Input",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], +Cell[527847, 13208, 633, 13, 190, "Message",ExpressionUUID->"35f30c70-735e-4c6a-96e7-d21012852aba"], +Cell[528483, 13223, 634, 13, 190, "Message",ExpressionUUID->"f499b49d-23fe-48a3-b1b3-5ca981bb7c7e"], +Cell[529120, 13238, 633, 13, 190, "Message",ExpressionUUID->"afeb81b1-af1b-47fb-af54-e2f9b3030169"], +Cell[529756, 13253, 495, 11, 85, "Message",ExpressionUUID->"9b03fe87-6d74-4687-90a4-b8fa44964d4e"], +Cell[530254, 13266, 191, 3, 67, "Output",ExpressionUUID->"1450fcea-81ca-422c-9882-683aa7bf3225"] }, Open ]], Cell[CellGroupData[{ -Cell[569419, 14127, 2221, 64, 730, "Input",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], -Cell[571643, 14193, 572, 12, 218, "Message",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], -Cell[572218, 14207, 575, 12, 218, "Message",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], -Cell[572796, 14221, 577, 12, 218, "Message",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], -Cell[573376, 14235, 456, 10, 218, "Message",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], -Cell[573835, 14247, 172, 3, 67, "Output",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] +Cell[530482, 13274, 2210, 62, 689, "Input",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], +Cell[532695, 13338, 631, 13, 190, "Message",ExpressionUUID->"326e9221-2fa1-4c65-abc4-6893e78cb66b"], +Cell[533329, 13353, 634, 13, 190, "Message",ExpressionUUID->"99d7e370-52d6-48e0-8b6a-80a8be23c5f5"], +Cell[533966, 13368, 631, 13, 190, "Message",ExpressionUUID->"d9961dc2-e815-4f17-b8f5-2f01ddb64f51"], +Cell[534600, 13383, 493, 11, 85, "Message",ExpressionUUID->"96649e9f-b033-484f-b382-6cdf741d574a"], +Cell[535096, 13396, 194, 3, 67, "Output",ExpressionUUID->"63d0c43d-ff18-414d-b9ff-35f443dd8943"] }, Open ]], Cell[CellGroupData[{ -Cell[574044, 14255, 2223, 64, 730, "Input",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], -Cell[576270, 14321, 572, 12, 255, "Message",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], -Cell[576845, 14335, 573, 12, 255, "Message",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], -Cell[577421, 14349, 579, 12, 255, "Message",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], -Cell[578003, 14363, 456, 10, 85, "Message",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], -Cell[578462, 14375, 173, 3, 67, "Output",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] +Cell[535327, 13404, 2053, 55, 536, "Input",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], +Cell[537383, 13461, 20228, 381, 325, "Output",ExpressionUUID->"345f78a3-f559-41e3-bb45-79b4c4a01407"] }, Open ]], Cell[CellGroupData[{ -Cell[578672, 14383, 215, 6, 94, "Input",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], -Cell[578890, 14391, 174, 3, 67, "Output",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] +Cell[557648, 13847, 2279, 63, 806, "Input",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], +Cell[559930, 13912, 536, 12, 190, "Message",ExpressionUUID->"677c821c-fbb2-4fe0-8d80-9a35aee79e0b"], +Cell[560469, 13926, 537, 12, 190, "Message",ExpressionUUID->"931b3f81-ef75-43cc-8d65-070f9d5cd317"], +Cell[561009, 13940, 540, 12, 190, "Message",ExpressionUUID->"7dca0dfa-9374-49aa-ab6a-a50120dc003b"], +Cell[561552, 13954, 493, 11, 85, "Message",ExpressionUUID->"c360a052-c832-4689-822f-79fb30e1967f"], +Cell[562048, 13967, 23717, 438, 314, "Output",ExpressionUUID->"28ab89e0-8670-446f-bb92-5a6f913d065b"] }, Open ]], -Cell[579079, 14397, 188, 4, 59, "Input",ExpressionUUID->"927ca6ed-9dbf-4fe4-877b-39074ae002c3"] +Cell[CellGroupData[{ +Cell[585802, 14410, 232, 5, 59, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], +Cell[586037, 14417, 30079, 570, 314, "Output",ExpressionUUID->"ccb6ce61-26bf-4d25-a768-be32c6d10a84"] +}, Open ]], +Cell[CellGroupData[{ +Cell[616153, 14992, 1750, 52, 575, "Input",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], +Cell[617906, 15046, 638, 14, 190, "Message",ExpressionUUID->"4c5b1653-860f-4483-b914-1285b0271966"], +Cell[618547, 15062, 638, 14, 190, "Message",ExpressionUUID->"16f1489b-73e3-476d-a70e-ec81127caeb6"], +Cell[619188, 15078, 637, 14, 190, "Message",ExpressionUUID->"79c1db01-c501-4eab-a911-a5e80ee3fcb5"], +Cell[619828, 15094, 493, 11, 85, "Message",ExpressionUUID->"8bbebdfa-8332-4080-acba-08301bb7ccf6"], +Cell[620324, 15107, 195, 3, 67, "Output",ExpressionUUID->"1ea084f4-6da1-4adf-87f1-513ee19054bf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[620556, 15115, 2272, 64, 772, "Input",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], +Cell[622831, 15181, 633, 13, 190, "Message",ExpressionUUID->"7dbeab55-537f-4eb6-b8fe-5ddd7cf51748"], +Cell[623467, 15196, 634, 13, 190, "Message",ExpressionUUID->"9709d15f-bfd1-4a67-b86d-2f00d9e023d7"], +Cell[624104, 15211, 633, 13, 190, "Message",ExpressionUUID->"28c06042-bd3e-4bcd-9db6-820a47b71e41"], +Cell[624740, 15226, 495, 11, 85, "Message",ExpressionUUID->"f20f203c-6900-41b0-8f56-30ba2c3afe38"], +Cell[625238, 15239, 195, 3, 67, "Output",ExpressionUUID->"f800fbd6-b6b9-4914-a6d5-2f36a91a85f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[625470, 15247, 2233, 63, 730, "Input",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], +Cell[627706, 15312, 633, 13, 190, "Message",ExpressionUUID->"83e54543-2e34-4eb1-8a4f-2a1af099c981"], +Cell[628342, 15327, 634, 13, 190, "Message",ExpressionUUID->"59ed37c8-386e-43f6-bd35-b5bd78aeb9b2"], +Cell[628979, 15342, 632, 13, 190, "Message",ExpressionUUID->"c123e09b-8113-4cda-a7cd-31037f59e175"], +Cell[629614, 15357, 497, 11, 85, "Message",ExpressionUUID->"71a72f2c-f3fd-4d6e-a485-f5615d3ad470"], +Cell[630114, 15370, 195, 3, 67, "Output",ExpressionUUID->"21bd7845-4b5e-4d76-9fdc-15dd76392553"] +}, Open ]], +Cell[CellGroupData[{ +Cell[630346, 15378, 2235, 63, 730, "Input",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], +Cell[632584, 15443, 632, 13, 190, "Message",ExpressionUUID->"47936e6c-e681-43fc-bbab-140027d82a4f"], +Cell[633219, 15458, 634, 13, 190, "Message",ExpressionUUID->"60a9f414-387b-4646-9ddc-27dc8af51343"], +Cell[633856, 15473, 633, 13, 190, "Message",ExpressionUUID->"1439c049-4843-405f-a974-1c5ccef244b1"], +Cell[634492, 15488, 495, 11, 85, "Message",ExpressionUUID->"46ba0e9f-0186-4416-91c4-90f045d8333f"], +Cell[634990, 15501, 196, 3, 67, "Output",ExpressionUUID->"96d9b81e-361f-4227-9377-0f2ab4c9a3bf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[635223, 15509, 238, 6, 94, "Input",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], +Cell[635464, 15517, 196, 3, 67, "Output",ExpressionUUID->"7ad7e954-0d60-476f-83a3-f505428378ff"] +}, Open ]], +Cell[635675, 15523, 211, 4, 109, "Input",ExpressionUUID->"927ca6ed-9dbf-4fe4-877b-39074ae002c3"] } ] *) +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_pr_Qw2.nb b/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_pr_Qw2.nb index 1801a24..1d86163 100644 --- a/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_pr_Qw2.nb +++ b/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_pr_Qw2.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 606785, 14773] -NotebookOptionsPosition[ 567942, 14152] -NotebookOutlinePosition[ 568353, 14169] -CellTagsIndexPosition[ 568310, 14166] +NotebookDataLength[ 666971, 16025] +NotebookOptionsPosition[ 626416, 15377] +NotebookOutlinePosition[ 626830, 15394] +CellTagsIndexPosition[ 626787, 15391] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -25,15 +25,14 @@ Cell[BoxData[ CellChangeTimes->{ 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, 3.9920650045886707`*^9, {3.993816332414463*^9, 3.993816395113246*^9}, { - 3.99408327105175*^9, - 3.99408327225659*^9}},ExpressionUUID->"38b4ba9f-54bf-49b6-8ef2-\ -ae25a682d3c2"], + 3.99408327105175*^9, 3.99408327225659*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"38b4ba9f-54bf-49b6-8ef2-ae25a682d3c2"], Cell[BoxData["1.78`"], "Output", CellChangeTimes->{ - 3.991320420900818*^9, {3.9938163104908867`*^9, 3.993816400323968*^9}}, - CellLabel-> - "Out[407]=",ExpressionUUID->"406e3fba-3b98-4a85-9f9a-9cfa05191fea"] + 3.991320420900818*^9, {3.9938163104908867`*^9, 3.993816400323968*^9}, + 3.994256382021393*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"be5437a1-7fa1-4a1b-ae3a-f9d4e5d60a6a"] }, Open ]], Cell[CellGroupData[{ @@ -42,14 +41,13 @@ Cell[BoxData[ RowBox[{"A", "=", "240"}]], "Input", CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { 3.993816070416484*^9, 3.9938160711424847`*^9}}, - CellLabel-> - "In[408]:=",ExpressionUUID->"3303f80b-9faa-4ded-bcaa-9ff03c73760f"], + CellLabel->"In[2]:=",ExpressionUUID->"3303f80b-9faa-4ded-bcaa-9ff03c73760f"], Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.9913196497381973`*^9, {3.993816310783677*^9, 3.9938164003801527`*^9}}, - CellLabel-> - "Out[408]=",ExpressionUUID->"b0a072b2-0877-4694-97ca-c9c0cbf0be77"] + 3.9913196497381973`*^9, {3.993816310783677*^9, 3.9938164003801527`*^9}, + 3.994256382143881*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"5b9ae1a0-4a43-444b-adc3-635ba1834582"] }, Open ]], Cell[CellGroupData[{ @@ -58,14 +56,13 @@ Cell[BoxData[ RowBox[{"A1", "=", "164"}]], "Input", CellChangeTimes->{ 3.991798961431202*^9, {3.993816075114204*^9, 3.993816075786501*^9}}, - CellLabel-> - "In[409]:=",ExpressionUUID->"3787a4cc-7be8-455c-b8d3-7dfd7d3ae507"], + CellLabel->"In[3]:=",ExpressionUUID->"3787a4cc-7be8-455c-b8d3-7dfd7d3ae507"], Cell[BoxData["164"], "Output", CellChangeTimes->{ - 3.9913196497578354`*^9, {3.99381631080079*^9, 3.9938164003966837`*^9}}, - CellLabel-> - "Out[409]=",ExpressionUUID->"68764c14-3cbc-418a-8802-05ea8d1a7912"] + 3.9913196497578354`*^9, {3.99381631080079*^9, 3.9938164003966837`*^9}, + 3.994256382157295*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"f8d9bbfc-9af2-4307-8695-c76aca0a1497"] }, Open ]], Cell[CellGroupData[{ @@ -73,14 +70,13 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, - CellLabel-> - "In[410]:=",ExpressionUUID->"2d4b377c-cdb6-44b2-8f4e-a265cf477ea0"], + CellLabel->"In[4]:=",ExpressionUUID->"2d4b377c-cdb6-44b2-8f4e-a265cf477ea0"], Cell[BoxData["0.55`"], "Output", CellChangeTimes->{ - 3.991319649777508*^9, {3.9938163108190804`*^9, 3.99381640041328*^9}}, - CellLabel-> - "Out[410]=",ExpressionUUID->"bdd82d80-457d-4d31-b425-2ad3eb375d0e"] + 3.991319649777508*^9, {3.9938163108190804`*^9, 3.99381640041328*^9}, + 3.99425638216809*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"13a33bae-5266-43f1-9a19-5bc4f4d4224e"] }, Open ]], Cell[CellGroupData[{ @@ -92,28 +88,26 @@ Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", - CellLabel-> - "In[411]:=",ExpressionUUID->"aa3ae721-64f7-469e-a03c-126d9d2e576e"], + CellLabel->"In[5]:=",ExpressionUUID->"aa3ae721-64f7-469e-a03c-126d9d2e576e"], Cell[BoxData["0.5445000000000001`"], "Output", CellChangeTimes->{ - 3.9913196497965145`*^9, {3.99381631083608*^9, 3.9938164004361677`*^9}}, - CellLabel-> - "Out[411]=",ExpressionUUID->"25f4332d-ac61-4d70-bd4b-87188ad16bb6"] + 3.9913196497965145`*^9, {3.99381631083608*^9, 3.9938164004361677`*^9}, + 3.994256382186667*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"b8306465-3a7b-44cb-be0a-a58c147826fe"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", - CellLabel-> - "In[412]:=",ExpressionUUID->"7bddbfd1-853f-4617-a8f9-b3ff729d6fb5"], + CellLabel->"In[6]:=",ExpressionUUID->"7bddbfd1-853f-4617-a8f9-b3ff729d6fb5"], Cell[BoxData["0.17`"], "Output", CellChangeTimes->{ - 3.9913196498144608`*^9, {3.99381631085299*^9, 3.99381640045368*^9}}, - CellLabel-> - "Out[412]=",ExpressionUUID->"958f4c5d-69ff-475e-a182-d2edacd91f8b"] + 3.9913196498144608`*^9, {3.99381631085299*^9, 3.99381640045368*^9}, + 3.994256382230042*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"ffc22bb9-8d99-4c97-9ee9-472f22b87c1e"] }, Open ]], Cell[CellGroupData[{ @@ -124,14 +118,13 @@ Cell[BoxData[ SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}]}]], "Input", CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, - CellLabel-> - "In[413]:=",ExpressionUUID->"4cd2e74b-ef7b-402b-b461-b1f02cffab88"], + CellLabel->"In[7]:=",ExpressionUUID->"4cd2e74b-ef7b-402b-b461-b1f02cffab88"], Cell[BoxData["6.349496262766175`"], "Output", CellChangeTimes->{ - 3.9913196498225155`*^9, {3.993816310870123*^9, 3.993816400471637*^9}}, - CellLabel-> - "Out[413]=",ExpressionUUID->"26d15f57-f959-4534-a598-68945d363e49"] + 3.9913196498225155`*^9, {3.993816310870123*^9, 3.993816400471637*^9}, + 3.994256382243196*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"5f54dd6b-e47d-4a7c-92db-7f0f8fd6b383"] }, Open ]], Cell[CellGroupData[{ @@ -143,14 +136,13 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", - CellLabel-> - "In[414]:=",ExpressionUUID->"215c89e6-6f63-432b-b3fd-0bb65bd35801"], + CellLabel->"In[8]:=",ExpressionUUID->"215c89e6-6f63-432b-b3fd-0bb65bd35801"], Cell[BoxData["4.913555357735675`"], "Output", CellChangeTimes->{ - 3.9913196498425236`*^9, {3.993816310887587*^9, 3.993816400489262*^9}}, - CellLabel-> - "Out[414]=",ExpressionUUID->"0db41cdb-cdfa-4eb0-af5b-c7f68a790d33"] + 3.9913196498425236`*^9, {3.993816310887587*^9, 3.993816400489262*^9}, + 3.994256382255405*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"8d253f7f-fb87-410b-8215-4a20de229b9d"] }, Open ]], Cell[CellGroupData[{ @@ -159,13 +151,12 @@ Cell[BoxData[ RowBox[{"b1", "=", "0.96357"}]], "Input", CellChangeTimes->{ 3.991799283179735*^9, {3.993816155315236*^9, 3.99381616557413*^9}}, - CellLabel-> - "In[415]:=",ExpressionUUID->"3c8dbddf-5c12-4a08-9069-7aa7b259ca7a"], + CellLabel->"In[9]:=",ExpressionUUID->"3c8dbddf-5c12-4a08-9069-7aa7b259ca7a"], Cell[BoxData["0.96357`"], "Output", - CellChangeTimes->{{3.9938163109056883`*^9, 3.993816400504654*^9}}, - CellLabel-> - "Out[415]=",ExpressionUUID->"b7e538a8-5b4b-49b1-8dbf-398c4fdb6b4b"] + CellChangeTimes->{{3.9938163109056883`*^9, 3.993816400504654*^9}, + 3.994256382268614*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"0a925535-9ff8-4986-a49c-6f002df5e2e5"] }, Open ]], Cell[CellGroupData[{ @@ -174,41 +165,38 @@ Cell[BoxData[ RowBox[{"b2", "=", "0.39003"}]], "Input", CellChangeTimes->{ 3.991799280663351*^9, {3.993816167313641*^9, 3.9938161733246517`*^9}}, - CellLabel-> - "In[416]:=",ExpressionUUID->"0934ee55-d18f-47f3-9cfc-617eaa33d263"], + CellLabel->"In[10]:=",ExpressionUUID->"0934ee55-d18f-47f3-9cfc-617eaa33d263"], Cell[BoxData["0.39003`"], "Output", - CellChangeTimes->{{3.993816310923224*^9, 3.993816400519388*^9}}, - CellLabel-> - "Out[416]=",ExpressionUUID->"0bb2f425-c8f5-4724-a6c2-b2d464c5b119"] + CellChangeTimes->{{3.993816310923224*^9, 3.993816400519388*^9}, + 3.9942563823065777`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"f29e807e-3495-49b2-8a45-7ae98554d2e7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", - CellLabel-> - "In[417]:=",ExpressionUUID->"b9c9b9e9-83a3-4322-946a-b3701179b981"], + CellLabel->"In[11]:=",ExpressionUUID->"b9c9b9e9-83a3-4322-946a-b3701179b981"], Cell[BoxData["0"], "Output", CellChangeTimes->{ - 3.9913196498927155`*^9, {3.993816310942574*^9, 3.993816400534342*^9}}, - CellLabel-> - "Out[417]=",ExpressionUUID->"c0c7ba5d-5e4c-4d0a-96e2-63c47ed44391"] + 3.9913196498927155`*^9, {3.993816310942574*^9, 3.993816400534342*^9}, + 3.9942563823210087`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"38cb3385-4297-4bd6-9c9e-5649dee13a1d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", - CellLabel-> - "In[418]:=",ExpressionUUID->"7be0cd7c-4e19-4f1d-885b-10e1292c87f2"], + CellLabel->"In[12]:=",ExpressionUUID->"7be0cd7c-4e19-4f1d-885b-10e1292c87f2"], Cell[BoxData["0"], "Output", CellChangeTimes->{ - 3.9913196498996067`*^9, {3.993816310960237*^9, 3.993816400549685*^9}}, - CellLabel-> - "Out[418]=",ExpressionUUID->"3640621f-c858-4e8d-8fc5-007130271cc3"] + 3.9913196498996067`*^9, {3.993816310960237*^9, 3.993816400549685*^9}, + 3.994256382335495*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"aacdf2cd-6b17-4269-98b5-fe78c55e50d5"] }, Open ]], Cell[CellGroupData[{ @@ -232,14 +220,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[419]:=",ExpressionUUID->"f8a3824a-8637-4088-a5c9-872ab8b3f906"], + CellLabel->"In[13]:=",ExpressionUUID->"f8a3824a-8637-4088-a5c9-872ab8b3f906"], Cell[BoxData["2.4652625900301657`"], "Output", CellChangeTimes->{ - 3.9913197863028755`*^9, {3.993816310977528*^9, 3.993816400564805*^9}}, - CellLabel-> - "Out[419]=",ExpressionUUID->"c99ce94e-993c-46d3-835b-a814349436c2"] + 3.9913197863028755`*^9, {3.993816310977528*^9, 3.993816400564805*^9}, + 3.994256382356381*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"d1aa23aa-f8d8-4f03-bbd8-faa7f8ad8a70"] }, Open ]], Cell[CellGroupData[{ @@ -263,14 +250,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[420]:=",ExpressionUUID->"2710d08a-ae53-4779-b39b-ebdcc64ea2af"], + CellLabel->"In[14]:=",ExpressionUUID->"2710d08a-ae53-4779-b39b-ebdcc64ea2af"], Cell[BoxData["1.4266899039519758`"], "Output", CellChangeTimes->{ - 3.9913197864610195`*^9, {3.993816310993836*^9, 3.993816400579666*^9}}, - CellLabel-> - "Out[420]=",ExpressionUUID->"6ad47d6b-9669-4867-982e-a3de133998db"] + 3.9913197864610195`*^9, {3.993816310993836*^9, 3.993816400579666*^9}, + 3.994256382404511*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"6f4e24a8-7145-4117-8811-cee2e1408c2a"] }, Open ]], Cell[CellGroupData[{ @@ -325,14 +311,13 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[421]:=",ExpressionUUID->"b53ce7c3-5a98-4ba3-b577-6ed97ad936a7"], + CellLabel->"In[15]:=",ExpressionUUID->"b53ce7c3-5a98-4ba3-b577-6ed97ad936a7"], Cell[BoxData["0.3750149455401738`"], "Output", CellChangeTimes->{ - 3.991319786533783*^9, {3.993816311010377*^9, 3.993816400594367*^9}}, - CellLabel-> - "Out[421]=",ExpressionUUID->"1fe64173-1c93-4358-84fd-266e88eba0c1"] + 3.991319786533783*^9, {3.993816311010377*^9, 3.993816400594367*^9}, + 3.994256382419941*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"c91a3466-0373-4686-ae93-985dae3d911e"] }, Open ]], Cell[CellGroupData[{ @@ -383,24 +368,39 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[422]:=",ExpressionUUID->"ccc28c99-7875-4167-b7ff-e3c7e035b3ce"], + CellLabel->"In[16]:=",ExpressionUUID->"ccc28c99-7875-4167-b7ff-e3c7e035b3ce"], Cell[BoxData[ RowBox[{"-", "0.07977775132414705`"}]], "Output", CellChangeTimes->{ - 3.991319786540777*^9, {3.993816311027995*^9, 3.9938164006102667`*^9}}, - CellLabel-> - "Out[422]=",ExpressionUUID->"4a76fcdb-6d1a-44ca-a088-b7304a597c83"] + 3.991319786540777*^9, {3.993816311027995*^9, 3.9938164006102667`*^9}, + 3.994256382456945*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"15d8e61a-89c3-4077-8796-1577c63b2ebc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c21", "=", - FractionBox[ - RowBox[{ - RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ RowBox[{"R01", "*", RowBox[{"(", RowBox[{"1", "-", @@ -410,45 +410,30 @@ Cell[BoxData[ RowBox[{"b1", "*", SqrtBox[ FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", - RowBox[{"(", - RowBox[{"1", "-", - SuperscriptBox["w1", "2"]}], ")"}]}], - RowBox[{ - RowBox[{"R01", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b1", "*", "b1"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b1", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w2", "2"]}], "+", - RowBox[{"R02", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b2", "*", "b2"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b2", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w1", "2"]}], "+", - RowBox[{"d", "*", - SuperscriptBox["w2", "2"], "*", - SuperscriptBox["w1", "2"]}]}]]}]], "Input", - CellLabel-> - "In[423]:=",ExpressionUUID->"17ba3f3b-3981-4899-a7db-6b37bb7eb087"], + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"17ba3f3b-3981-4899-a7db-6b37bb7eb087"], Cell[BoxData[ RowBox[{"-", "0.6284430544064189`"}]], "Output", CellChangeTimes->{ - 3.9913197865777817`*^9, {3.993816311033072*^9, 3.993816400624234*^9}}, - CellLabel-> - "Out[423]=",ExpressionUUID->"2752a478-06f0-4ecc-9a87-9041f4db7bd7"] + 3.9913197865777817`*^9, {3.993816311033072*^9, 3.993816400624234*^9}, + 3.994256382469812*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"32c50e61-38e1-4510-9354-9dcf636503c9"] }, Open ]], Cell[CellGroupData[{ @@ -503,56 +488,52 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[424]:=",ExpressionUUID->"39dbd36d-36a2-4a23-9397-5002551c38f1"], + CellLabel->"In[18]:=",ExpressionUUID->"39dbd36d-36a2-4a23-9397-5002551c38f1"], Cell[BoxData["0.7294972450656219`"], "Output", CellChangeTimes->{ - 3.9913197866129*^9, {3.993816311062511*^9, 3.993816400639195*^9}}, - CellLabel-> - "Out[424]=",ExpressionUUID->"c357015f-184d-4b34-9829-e3bd1baeb582"] + 3.9913197866129*^9, {3.993816311062511*^9, 3.993816400639195*^9}, + 3.9942563824806423`*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"7a4eb425-ddb2-43e7-bb88-570411081251"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", - CellLabel-> - "In[425]:=",ExpressionUUID->"9bcb146c-d317-4522-b712-51ea55f6b02c"], + CellLabel->"In[19]:=",ExpressionUUID->"9bcb146c-d317-4522-b712-51ea55f6b02c"], Cell[BoxData["300"], "Output", CellChangeTimes->{ - 3.991319786620775*^9, {3.9938163110790157`*^9, 3.993816400654043*^9}}, - CellLabel-> - "Out[425]=",ExpressionUUID->"c1a75283-4f6d-4a6a-8430-73bb67ee7120"] + 3.991319786620775*^9, {3.9938163110790157`*^9, 3.993816400654043*^9}, + 3.994256382494087*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"b3edafa0-113a-467c-938c-c6ef187de760"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fin", "=", "0.09"}]], "Input", - CellLabel-> - "In[426]:=",ExpressionUUID->"c2d0ca44-85be-421a-b28d-c7767ebcd082"], + CellLabel->"In[20]:=",ExpressionUUID->"c2d0ca44-85be-421a-b28d-c7767ebcd082"], Cell[BoxData["0.09`"], "Output", CellChangeTimes->{ - 3.991319786657793*^9, {3.99381631109599*^9, 3.993816400670066*^9}}, - CellLabel-> - "Out[426]=",ExpressionUUID->"669571af-362c-4019-be94-6035fb6ec54f"] + 3.991319786657793*^9, {3.99381631109599*^9, 3.993816400670066*^9}, + 3.994256382505226*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"5668a067-7cd0-4adc-88e3-01d63a46aefe"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffin", "=", "0.42"}]], "Input", - CellLabel-> - "In[427]:=",ExpressionUUID->"95036d73-7d19-4d9f-aebd-e1140ff405e7"], + CellLabel->"In[21]:=",ExpressionUUID->"95036d73-7d19-4d9f-aebd-e1140ff405e7"], Cell[BoxData["0.42`"], "Output", CellChangeTimes->{ - 3.9913197866657925`*^9, {3.99381631111339*^9, 3.99381640068589*^9}}, - CellLabel-> - "Out[427]=",ExpressionUUID->"78b9c731-22f7-418d-b98b-4128ce0470e1"] + 3.9913197866657925`*^9, {3.99381631111339*^9, 3.99381640068589*^9}, + 3.994256382522176*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"2c631b0f-4165-42b2-90a7-9f6457aad281"] }, Open ]], Cell[CellGroupData[{ @@ -561,29 +542,27 @@ Cell[BoxData[ RowBox[{"fex", "=", RowBox[{"-", "2.59"}]}]], "Input", CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, - CellLabel-> - "In[428]:=",ExpressionUUID->"565c2c4b-9c72-41ce-b1dd-d2f0fb4c477d"], + CellLabel->"In[22]:=",ExpressionUUID->"565c2c4b-9c72-41ce-b1dd-d2f0fb4c477d"], Cell[BoxData[ RowBox[{"-", "2.59`"}]], "Output", CellChangeTimes->{ - 3.9913197866996*^9, {3.993816311129064*^9, 3.993816400702038*^9}}, - CellLabel-> - "Out[428]=",ExpressionUUID->"4363c20d-cee9-4502-974b-c5dcc61716d0"] + 3.9913197866996*^9, {3.993816311129064*^9, 3.993816400702038*^9}, + 3.9942563825709*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"b3adba7e-716d-43c3-b159-1a4337bb75e8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffex", "=", "0.54"}]], "Input", - CellLabel-> - "In[429]:=",ExpressionUUID->"133af694-f4d4-4cd7-a442-bd3a038c6094"], + CellLabel->"In[23]:=",ExpressionUUID->"133af694-f4d4-4cd7-a442-bd3a038c6094"], Cell[BoxData["0.54`"], "Output", CellChangeTimes->{ - 3.9913197867406044`*^9, {3.993816311145554*^9, 3.9938164007190237`*^9}}, - CellLabel-> - "Out[429]=",ExpressionUUID->"20f2022e-3320-4d4e-b49a-0231fe62f324"] + 3.9913197867406044`*^9, {3.993816311145554*^9, 3.9938164007190237`*^9}, + 3.994256382586443*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"51496b9d-d4d0-4f79-8715-06ab08a73254"] }, Open ]], Cell[CellGroupData[{ @@ -593,14 +572,13 @@ Cell[BoxData[ CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { 3.9938161841110783`*^9, 3.9938161842569923`*^9}}, - CellLabel-> - "In[430]:=",ExpressionUUID->"f78cbb93-eb7a-4557-81c5-c1e29c95dfe9"], + CellLabel->"In[24]:=",ExpressionUUID->"f78cbb93-eb7a-4557-81c5-c1e29c95dfe9"], Cell[BoxData["66"], "Output", CellChangeTimes->{ - 3.9913197867861958`*^9, {3.993816311161642*^9, 3.993816400736003*^9}}, - CellLabel-> - "Out[430]=",ExpressionUUID->"e6e5f46c-4908-4fbd-885f-9f935f08e667"] + 3.9913197867861958`*^9, {3.993816311161642*^9, 3.993816400736003*^9}, + 3.99425638259999*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"75e0c670-deb8-43b9-b5cc-e86d57de2a61"] }, Open ]], Cell[CellGroupData[{ @@ -610,14 +588,13 @@ Cell[BoxData[ RowBox[{"94", "-", "Z1"}]}]], "Input", CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, 3.9916443064841423`*^9, {3.9938161866045017`*^9, 3.99381618669993*^9}}, - CellLabel-> - "In[431]:=",ExpressionUUID->"41a62cac-9938-4e2c-b950-12ae5fa097b7"], + CellLabel->"In[25]:=",ExpressionUUID->"41a62cac-9938-4e2c-b950-12ae5fa097b7"], Cell[BoxData["28"], "Output", CellChangeTimes->{ - 3.9913197867928696`*^9, {3.993816311177599*^9, 3.993816400757028*^9}}, - CellLabel-> - "Out[431]=",ExpressionUUID->"9b55dfcb-c473-40ee-b76b-5c6523d40e33"] + 3.9913197867928696`*^9, {3.993816311177599*^9, 3.993816400757028*^9}, + 3.994256382634035*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"24da7a3a-49e6-469d-a1de-ad16b049ca77"] }, Open ]], Cell[CellGroupData[{ @@ -626,14 +603,13 @@ Cell[BoxData[ RowBox[{"A2", "=", RowBox[{"A", "-", "A1"}]}]], "Input", CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, - CellLabel-> - "In[432]:=",ExpressionUUID->"e2ceff8c-3dbf-4275-98ba-286c26da6763"], + CellLabel->"In[26]:=",ExpressionUUID->"e2ceff8c-3dbf-4275-98ba-286c26da6763"], Cell[BoxData["76"], "Output", CellChangeTimes->{ - 3.991319786827894*^9, {3.993816311193193*^9, 3.993816400775269*^9}}, - CellLabel-> - "Out[432]=",ExpressionUUID->"e73e599c-981f-45f5-ab72-8dce8fba7052"] + 3.991319786827894*^9, {3.993816311193193*^9, 3.993816400775269*^9}, + 3.994256382663685*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"4971a594-40dc-4a0c-8b0d-261eafc5d5c8"] }, Open ]], Cell[CellGroupData[{ @@ -648,14 +624,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[433]:=",ExpressionUUID->"a725844d-015d-4632-9657-5304169611d8"], + CellLabel->"In[27]:=",ExpressionUUID->"a725844d-015d-4632-9657-5304169611d8"], Cell[BoxData["0.11156611039794609`"], "Output", CellChangeTimes->{ - 3.9913197868648605`*^9, {3.993816311209059*^9, 3.993816400793248*^9}}, - CellLabel-> - "Out[433]=",ExpressionUUID->"9430d311-b136-4610-8769-4fb19588a888"] + 3.9913197868648605`*^9, {3.993816311209059*^9, 3.993816400793248*^9}, + 3.994256382698071*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"a36147fd-64e3-44ac-934b-5e99af78b26c"] }, Open ]], Cell[CellGroupData[{ @@ -670,15 +645,14 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[434]:=",ExpressionUUID->"3319928f-d9da-4c77-93ed-73db22a0fcbd"], + CellLabel->"In[28]:=",ExpressionUUID->"3319928f-d9da-4c77-93ed-73db22a0fcbd"], Cell[BoxData[ RowBox[{"-", "2.562272143774069`"}]], "Output", CellChangeTimes->{ - 3.9913197868718567`*^9, {3.993816311224965*^9, 3.993816400810424*^9}}, - CellLabel-> - "Out[434]=",ExpressionUUID->"62cbd768-4bf9-4aa2-b48a-e6dcc9893faf"] + 3.9913197868718567`*^9, {3.993816311224965*^9, 3.993816400810424*^9}, + 3.994256382734379*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"d3265eb7-6dd7-417b-86c5-896cdc98a1a5"] }, Open ]], Cell[CellGroupData[{ @@ -709,14 +683,13 @@ Cell[BoxData[ CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, - CellLabel-> - "In[435]:=",ExpressionUUID->"ecb53369-f77b-4dd2-8e8f-1297027565fb"], + CellLabel->"In[29]:=",ExpressionUUID->"ecb53369-f77b-4dd2-8e8f-1297027565fb"], Cell[BoxData["17.58253870834664`"], "Output", CellChangeTimes->{ - 3.9913197869068584`*^9, {3.993816311240906*^9, 3.9938164008326178`*^9}}, - CellLabel-> - "Out[435]=",ExpressionUUID->"d1393760-2978-4d11-97a0-852b384b38e9"] + 3.9913197869068584`*^9, {3.993816311240906*^9, 3.9938164008326178`*^9}, + 3.99425638277285*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"9383b63e-33e8-442f-b6b6-ee0e4116a113"] }, Open ]], Cell[CellGroupData[{ @@ -724,14 +697,13 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, - CellLabel-> - "In[436]:=",ExpressionUUID->"a8a29057-1886-46c0-baa4-e09a6ce3e8c8"], + CellLabel->"In[30]:=",ExpressionUUID->"a8a29057-1886-46c0-baa4-e09a6ce3e8c8"], Cell[BoxData["300"], "Output", CellChangeTimes->{ - 3.991319786940857*^9, {3.993816311257287*^9, 3.993816400852189*^9}}, - CellLabel-> - "Out[436]=",ExpressionUUID->"73cb7a46-15c5-41d4-a96b-567509b2b468"] + 3.991319786940857*^9, {3.993816311257287*^9, 3.993816400852189*^9}, + 3.994256382808893*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"92b1aeab-f5eb-4a8d-a6f9-08e887caecb0"] }, Open ]], Cell[CellGroupData[{ @@ -741,19 +713,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, 3.993816201054872*^9}, - CellLabel-> - "In[437]:=",ExpressionUUID->"79f6cf1e-8d99-4ed4-b0ee-520490dfe89e"], + CellLabel->"In[31]:=",ExpressionUUID->"79f6cf1e-8d99-4ed4-b0ee-520490dfe89e"], Cell[BoxData["2"], "Output", - CellChangeTimes->{{3.99381631127295*^9, 3.993816400871359*^9}}, - CellLabel-> - "Out[437]=",ExpressionUUID->"a52a3788-994f-42ca-b9e6-4f882ccb7832"] + CellChangeTimes->{{3.99381631127295*^9, 3.993816400871359*^9}, + 3.994256382845447*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"c22e7b75-a2d2-43c5-9f70-3b93104095bc"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, - CellLabel-> - "In[438]:=",ExpressionUUID->"77019c38-b57b-4de8-be3e-591a23347d7b"], + CellLabel->"In[32]:=",ExpressionUUID->"77019c38-b57b-4de8-be3e-591a23347d7b"], Cell[CellGroupData[{ @@ -762,19 +732,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { 3.993816204826747*^9, 3.993816206119349*^9}}, - CellLabel-> - "In[439]:=",ExpressionUUID->"fe438279-c0e6-4c37-bc40-51bbdb69d41c"], + CellLabel->"In[33]:=",ExpressionUUID->"fe438279-c0e6-4c37-bc40-51bbdb69d41c"], Cell[BoxData["0.805`"], "Output", - CellChangeTimes->{{3.9938163113036537`*^9, 3.993816400895072*^9}}, - CellLabel-> - "Out[439]=",ExpressionUUID->"b7359a20-bbb2-4aa2-aa24-8baea136389e"] + CellChangeTimes->{{3.9938163113036537`*^9, 3.993816400895072*^9}, + 3.994256382909706*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"30048d69-1c00-4896-b0a2-2f5c433d2bb2"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, - CellLabel-> - "In[440]:=",ExpressionUUID->"f0ba7773-0e2a-4943-8f3d-4b8d3279b2bd"], + CellLabel->"In[34]:=",ExpressionUUID->"f0ba7773-0e2a-4943-8f3d-4b8d3279b2bd"], Cell[CellGroupData[{ @@ -783,19 +751,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { 3.993816211321389*^9, 3.9938162195378838`*^9}}, - CellLabel-> - "In[441]:=",ExpressionUUID->"fd018164-ede3-4627-9926-b692d32fb39a"], + CellLabel->"In[35]:=",ExpressionUUID->"fd018164-ede3-4627-9926-b692d32fb39a"], Cell[BoxData["2.65`"], "Output", - CellChangeTimes->{{3.9938163113365593`*^9, 3.993816400917997*^9}}, - CellLabel-> - "Out[441]=",ExpressionUUID->"2f05c499-39d0-4374-9b26-480cebcfa3b5"] + CellChangeTimes->{{3.9938163113365593`*^9, 3.993816400917997*^9}, + 3.9942563829856443`*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"79181c48-e597-4bf7-b685-014e2eb82995"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, - CellLabel-> - "In[442]:=",ExpressionUUID->"43ae2c3c-4998-4ce6-8260-1ba43d05f347"], + CellLabel->"In[36]:=",ExpressionUUID->"43ae2c3c-4998-4ce6-8260-1ba43d05f347"], Cell[CellGroupData[{ @@ -804,19 +770,17 @@ Cell[BoxData[ CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, 3.991799359954439*^9, {3.9938162225291348`*^9, 3.993816223644052*^9}}, - CellLabel-> - "In[443]:=",ExpressionUUID->"843f9a7c-7692-4007-a356-14369f2e140b"], + CellLabel->"In[37]:=",ExpressionUUID->"843f9a7c-7692-4007-a356-14369f2e140b"], Cell[BoxData["1.175`"], "Output", - CellChangeTimes->{{3.993816311366596*^9, 3.993816400940548*^9}}, - CellLabel-> - "Out[443]=",ExpressionUUID->"021f7f5c-162b-453c-815a-5f00b342356d"] + CellChangeTimes->{{3.993816311366596*^9, 3.993816400940548*^9}, + 3.994256383033945*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"ddbe220e-6fa4-4616-b0bc-9fcadfd7f379"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, - CellLabel-> - "In[444]:=",ExpressionUUID->"ce522a44-8ee4-47dc-a321-dc188837389e"], + CellLabel->"In[38]:=",ExpressionUUID->"ce522a44-8ee4-47dc-a321-dc188837389e"], Cell[CellGroupData[{ @@ -825,19 +789,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, 3.991718016467348*^9, 3.991799361414671*^9, {3.9938162281192904`*^9, 3.993816230831416*^9}}, - CellLabel-> - "In[445]:=",ExpressionUUID->"979b8d8b-828d-4454-b2c3-c9a4f483082d"], + CellLabel->"In[39]:=",ExpressionUUID->"979b8d8b-828d-4454-b2c3-c9a4f483082d"], Cell[BoxData["0.795`"], "Output", - CellChangeTimes->{{3.993816311396524*^9, 3.993816400963438*^9}}, - CellLabel-> - "Out[445]=",ExpressionUUID->"493c810b-5f34-4368-b0a8-f663c5c5ddf7"] + CellChangeTimes->{{3.993816311396524*^9, 3.993816400963438*^9}, + 3.994256383214075*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"d07229ee-98e9-4a55-9441-c7e658e9f6cd"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, - CellLabel-> - "In[446]:=",ExpressionUUID->"6c4802fd-5971-4e70-ae0c-09e85391b46c"], + CellLabel->"In[40]:=",ExpressionUUID->"6c4802fd-5971-4e70-ae0c-09e85391b46c"], Cell[CellGroupData[{ @@ -846,19 +808,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993816234625985*^9, 3.993816236062304*^9}}, - CellLabel-> - "In[447]:=",ExpressionUUID->"c74dcd87-311e-441d-ad79-bd2c01ea5412"], + CellLabel->"In[41]:=",ExpressionUUID->"c74dcd87-311e-441d-ad79-bd2c01ea5412"], Cell[BoxData["0.595`"], "Output", - CellChangeTimes->{{3.993816311427802*^9, 3.9938164009852858`*^9}}, - CellLabel-> - "Out[447]=",ExpressionUUID->"bfff1e19-bbd4-4788-9313-897907306d5c"] + CellChangeTimes->{{3.993816311427802*^9, 3.9938164009852858`*^9}, + 3.9942563832676563`*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"19596cdd-9f96-4c72-b807-da16403f0c12"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, - CellLabel-> - "In[448]:=",ExpressionUUID->"e5ee8519-4749-4966-b919-2736f220f0e7"], + CellLabel->"In[42]:=",ExpressionUUID->"e5ee8519-4749-4966-b919-2736f220f0e7"], Cell[CellGroupData[{ @@ -867,19 +827,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.993816238161579*^9, 3.9938162401131277`*^9}}, - CellLabel-> - "In[449]:=",ExpressionUUID->"b7008e3c-af75-498b-8407-88465d3d9964"], + CellLabel->"In[43]:=",ExpressionUUID->"b7008e3c-af75-498b-8407-88465d3d9964"], Cell[BoxData["1.47`"], "Output", - CellChangeTimes->{{3.993816311458173*^9, 3.9938164010070257`*^9}}, - CellLabel-> - "Out[449]=",ExpressionUUID->"a7c06ada-b8e7-47fe-ae4f-bcc3633938d2"] + CellChangeTimes->{{3.993816311458173*^9, 3.9938164010070257`*^9}, + 3.994256383305519*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"bbd36ef6-ab34-4868-bfe2-687c82138829"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, - CellLabel-> - "In[450]:=",ExpressionUUID->"98bb308b-e00b-4ff8-ba75-3495421b9524"], + CellLabel->"In[44]:=",ExpressionUUID->"98bb308b-e00b-4ff8-ba75-3495421b9524"], Cell[CellGroupData[{ @@ -887,19 +845,17 @@ Cell[BoxData[ RowBox[{"nn2", "=", "0.655"}]], "Input", CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, 3.9917993660901737`*^9, {3.993816241842022*^9, 3.993816245056822*^9}}, - CellLabel-> - "In[451]:=",ExpressionUUID->"25bf3be4-d3ad-4161-a096-a103b208607a"], + CellLabel->"In[45]:=",ExpressionUUID->"25bf3be4-d3ad-4161-a096-a103b208607a"], Cell[BoxData["0.655`"], "Output", - CellChangeTimes->{{3.993816311488914*^9, 3.993816401028906*^9}}, - CellLabel-> - "Out[451]=",ExpressionUUID->"42855f81-473c-47f9-88b1-d5f379b75ad2"] + CellChangeTimes->{{3.993816311488914*^9, 3.993816401028906*^9}, + 3.994256383357066*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"eabaffce-72c7-4190-85dd-a8a0f02f2e96"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, - CellLabel-> - "In[452]:=",ExpressionUUID->"fee96512-9988-4a57-959f-d5595ab7a1ed"], + CellLabel->"In[46]:=",ExpressionUUID->"fee96512-9988-4a57-959f-d5595ab7a1ed"], Cell[CellGroupData[{ @@ -1388,14 +1344,13 @@ uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== "], - CellLabel-> - "In[453]:=",ExpressionUUID->"03651c9f-474a-4861-b71e-1977e65d1593"], + CellLabel->"In[47]:=",ExpressionUUID->"03651c9f-474a-4861-b71e-1977e65d1593"], Cell[BoxData["0.10932371372103143`"], "Output", CellChangeTimes->{ - 3.991319787430073*^9, {3.993816311598846*^9, 3.993816401077582*^9}}, - CellLabel-> - "Out[453]=",ExpressionUUID->"632c917c-d6ae-4179-be4b-8f8adca35a87"] + 3.991319787430073*^9, {3.993816311598846*^9, 3.993816401077582*^9}, + 3.994256383474814*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"1ff7c4e5-2eee-44ff-a4e1-9e4b5cf18ef5"] }, Open ]], Cell[CellGroupData[{ @@ -1889,14 +1844,13 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[454]:=",ExpressionUUID->"fff0dfbf-b7d7-48e3-a0e0-113f126cfa3b"], + CellLabel->"In[48]:=",ExpressionUUID->"fff0dfbf-b7d7-48e3-a0e0-113f126cfa3b"], Cell[BoxData["9.790243175904545`"], "Output", CellChangeTimes->{ - 3.991319787574972*^9, {3.9938163116474113`*^9, 3.993816401110285*^9}}, - CellLabel-> - "Out[454]=",ExpressionUUID->"4c245599-b097-4aae-a1d3-867d38b7b933"] + 3.991319787574972*^9, {3.9938163116474113`*^9, 3.993816401110285*^9}, + 3.994256383540402*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"43124b44-b368-4740-b89a-f2fb2f3f9fe4"] }, Open ]], Cell[CellGroupData[{ @@ -2384,15 +2338,14 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[455]:=",ExpressionUUID->"0fbd108c-22d6-4eb5-a83f-71368ad57adf"], + CellLabel->"In[49]:=",ExpressionUUID->"0fbd108c-22d6-4eb5-a83f-71368ad57adf"], Cell[BoxData[ RowBox[{"-", "16.70631937398676`"}]], "Output", CellChangeTimes->{ - 3.991319787641424*^9, {3.993816311688833*^9, 3.99381640114319*^9}}, - CellLabel-> - "Out[455]=",ExpressionUUID->"67b76dcf-acfc-4a8a-a0ea-20a3245851fe"] + 3.991319787641424*^9, {3.993816311688833*^9, 3.99381640114319*^9}, + 3.994256383612631*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"c35ab88b-7b27-4552-b129-52a9f58f773e"] }, Open ]], Cell[CellGroupData[{ @@ -3109,15 +3062,14 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[456]:=",ExpressionUUID->"9cc386c1-c114-496a-90f8-367ccb9aabf7"], + CellLabel->"In[50]:=",ExpressionUUID->"9cc386c1-c114-496a-90f8-367ccb9aabf7"], Cell[BoxData[ RowBox[{"-", "21.21244105904564`"}]], "Output", CellChangeTimes->{ - 3.991319787711939*^9, {3.99381631175032*^9, 3.993816401178795*^9}}, - CellLabel-> - "Out[456]=",ExpressionUUID->"6aeb2d5e-d99b-492d-ab39-505092912a62"] + 3.991319787711939*^9, {3.99381631175032*^9, 3.993816401178795*^9}, + 3.994256383738955*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"f28b447c-fd3b-4f5b-aa1b-ed3e9ea5ad3f"] }, Open ]], Cell[CellGroupData[{ @@ -3675,15 +3627,14 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[457]:=",ExpressionUUID->"e40b8eb7-8608-476d-abf0-dd50b747c2d4"], + CellLabel->"In[51]:=",ExpressionUUID->"e40b8eb7-8608-476d-abf0-dd50b747c2d4"], Cell[BoxData[ RowBox[{"-", "64.11746269097033`"}]], "Output", CellChangeTimes->{ - 3.9913197877723045`*^9, {3.993816311810264*^9, 3.993816401216831*^9}}, - CellLabel-> - "Out[457]=",ExpressionUUID->"44059afa-01a3-4009-be0d-f15212372938"] + 3.9913197877723045`*^9, {3.993816311810264*^9, 3.993816401216831*^9}, + 3.99425638382611*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"d45d7c51-25e1-476c-8bfd-e38f593d3af3"] }, Open ]], Cell[CellGroupData[{ @@ -4314,43 +4265,40 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[458]:=",ExpressionUUID->"ef73288a-49ed-4951-8dcf-ee3fa395ebad"], + CellLabel->"In[52]:=",ExpressionUUID->"ef73288a-49ed-4951-8dcf-ee3fa395ebad"], Cell[BoxData[ RowBox[{"-", "162.12919789671096`"}]], "Output", CellChangeTimes->{ - 3.991319787833355*^9, {3.993816311880077*^9, 3.9938164012606087`*^9}}, - CellLabel-> - "Out[458]=",ExpressionUUID->"df1b33cb-45db-4c3f-9a33-76248ebf3fa1"] + 3.991319787833355*^9, {3.993816311880077*^9, 3.9938164012606087`*^9}, + 3.994256383914606*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"df31f9ef-bf46-4cd7-9faa-5a310701d183"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U21", "=", "0"}]], "Input", - CellLabel-> - "In[459]:=",ExpressionUUID->"e1b324d1-73b0-4899-8964-91d10b73e793"], + CellLabel->"In[53]:=",ExpressionUUID->"e1b324d1-73b0-4899-8964-91d10b73e793"], Cell[BoxData["0"], "Output", CellChangeTimes->{ - 3.9913204210013676`*^9, {3.993816311896537*^9, 3.993816401279429*^9}}, - CellLabel-> - "Out[459]=",ExpressionUUID->"34f189b4-4388-4e16-acdb-ede25cb814e9"] + 3.9913204210013676`*^9, {3.993816311896537*^9, 3.993816401279429*^9}, + 3.994256383954193*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"02b5eaaa-b5a6-4b42-a2ca-a7c26253ed04"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U22", "=", "0"}]], "Input", - CellLabel-> - "In[460]:=",ExpressionUUID->"acab4541-1b13-4655-8fdd-88c66483857f"], + CellLabel->"In[54]:=",ExpressionUUID->"acab4541-1b13-4655-8fdd-88c66483857f"], Cell[BoxData["0"], "Output", CellChangeTimes->{ - 3.9913204210355663`*^9, {3.993816311909266*^9, 3.993816401294653*^9}}, - CellLabel-> - "Out[460]=",ExpressionUUID->"ff3682c2-1fe6-4c86-8497-107d91e4ed4a"] + 3.9913204210355663`*^9, {3.993816311909266*^9, 3.993816401294653*^9}, + 3.994256383991097*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"72484fef-35f3-4841-8453-4d1d5ab0d220"] }, Open ]], Cell[CellGroupData[{ @@ -4394,14 +4342,13 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[461]:=",ExpressionUUID->"2c6d69d7-dd5c-492a-8527-1474b4f1cdeb"], + CellLabel->"In[55]:=",ExpressionUUID->"2c6d69d7-dd5c-492a-8527-1474b4f1cdeb"], Cell[BoxData["137.278680377525`"], "Output", CellChangeTimes->{ - 3.991320421068556*^9, {3.993816311921467*^9, 3.993816401310416*^9}}, - CellLabel-> - "Out[461]=",ExpressionUUID->"8856d5e6-440a-4b9e-9c01-7561f2d98d28"] + 3.991320421068556*^9, {3.993816311921467*^9, 3.993816401310416*^9}, + 3.99425638402586*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"56c9cfed-6646-4e88-993d-5ea00d43da91"] }, Open ]], Cell[CellGroupData[{ @@ -4441,15 +4388,14 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[462]:=",ExpressionUUID->"047071bb-0f99-429f-b343-bc023b01c195"], + CellLabel->"In[56]:=",ExpressionUUID->"047071bb-0f99-429f-b343-bc023b01c195"], Cell[BoxData[ RowBox[{"-", "124.2735331996648`"}]], "Output", CellChangeTimes->{ - 3.991320421098543*^9, {3.9938163119334393`*^9, 3.993816401325693*^9}}, - CellLabel-> - "Out[462]=",ExpressionUUID->"fcf2ea08-19d0-4aea-a8da-7a9236737a54"] + 3.991320421098543*^9, {3.9938163119334393`*^9, 3.993816401325693*^9}, + 3.994256384070154*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"35c3b4d3-8839-49de-80dc-359c56802cf3"] }, Open ]], Cell[CellGroupData[{ @@ -4493,94 +4439,87 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[463]:=",ExpressionUUID->"b34faa9d-9966-4c24-b3a5-bddaa1c1afcd"], + CellLabel->"In[57]:=",ExpressionUUID->"b34faa9d-9966-4c24-b3a5-bddaa1c1afcd"], Cell[BoxData["136.79424869488386`"], "Output", CellChangeTimes->{ - 3.9913204211275444`*^9, {3.993816311945665*^9, 3.993816401340849*^9}}, - CellLabel-> - "Out[463]=",ExpressionUUID->"283ebefd-8842-4fbd-ab0f-425e63507696"] + 3.9913204211275444`*^9, {3.993816311945665*^9, 3.993816401340849*^9}, + 3.994256384178236*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"4ce745f2-b04f-4c5c-ab0e-8eb7c39529fa"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c11"], "Input", - CellLabel-> - "In[464]:=",ExpressionUUID->"8d3a22ef-5bae-4a8d-a727-5cf6fdd363dd"], + CellLabel->"In[58]:=",ExpressionUUID->"8d3a22ef-5bae-4a8d-a727-5cf6fdd363dd"], Cell[BoxData["0.3750149455401738`"], "Output", CellChangeTimes->{ - 3.9913204211385536`*^9, {3.9938163119574957`*^9, 3.993816401363001*^9}}, - CellLabel-> - "Out[464]=",ExpressionUUID->"6e60ae6a-dce1-46b6-ada7-419bcae323b9"] + 3.9913204211385536`*^9, {3.9938163119574957`*^9, 3.993816401363001*^9}, + 3.994256384201473*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"eeeafa63-53e9-4582-89c3-0a9bdb458b36"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c12"], "Input", - CellLabel-> - "In[465]:=",ExpressionUUID->"e135c10d-1ad4-467b-a4e4-d6c131377bd2"], + CellLabel->"In[59]:=",ExpressionUUID->"e135c10d-1ad4-467b-a4e4-d6c131377bd2"], Cell[BoxData[ RowBox[{"-", "0.07977775132414705`"}]], "Output", CellChangeTimes->{ - 3.9913204211683464`*^9, {3.9938163119693823`*^9, 3.99381640137784*^9}}, - CellLabel-> - "Out[465]=",ExpressionUUID->"59d11cab-ee69-450b-85a4-5a03854f1c87"] + 3.9913204211683464`*^9, {3.9938163119693823`*^9, 3.99381640137784*^9}, + 3.99425638424123*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"f4575cee-56fc-4c53-8a5b-3f6d525f7d52"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c21"], "Input", - CellLabel-> - "In[466]:=",ExpressionUUID->"016a452b-0935-4767-8c52-867fc2e2db3d"], + CellLabel->"In[60]:=",ExpressionUUID->"016a452b-0935-4767-8c52-867fc2e2db3d"], Cell[BoxData[ RowBox[{"-", "0.6284430544064189`"}]], "Output", CellChangeTimes->{ - 3.991320421199068*^9, {3.9938163119814787`*^9, 3.993816401392654*^9}}, - CellLabel-> - "Out[466]=",ExpressionUUID->"ff099a91-06b3-4687-8f21-8daae70a3cb5"] + 3.991320421199068*^9, {3.9938163119814787`*^9, 3.993816401392654*^9}, + 3.994256384271277*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"caadf1da-6b53-4901-9756-6634c35fbb4e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c22"], "Input", - CellLabel-> - "In[467]:=",ExpressionUUID->"70d6650f-2683-4ae0-9b6a-57e1dba59bb6"], + CellLabel->"In[61]:=",ExpressionUUID->"70d6650f-2683-4ae0-9b6a-57e1dba59bb6"], Cell[BoxData["0.7294972450656219`"], "Output", CellChangeTimes->{ - 3.991320421228037*^9, {3.993816311994028*^9, 3.99381640140742*^9}}, - CellLabel-> - "Out[467]=",ExpressionUUID->"64f3054d-65f6-4789-8254-861754130fe4"] + 3.991320421228037*^9, {3.993816311994028*^9, 3.99381640140742*^9}, + 3.994256384293105*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"1a029f77-0cdd-47d3-85c8-3a49bdecc39b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w1"], "Input", - CellLabel-> - "In[468]:=",ExpressionUUID->"eb835526-c28e-4374-a360-7cc95750819b"], + CellLabel->"In[62]:=",ExpressionUUID->"eb835526-c28e-4374-a360-7cc95750819b"], Cell[BoxData["2.4652625900301657`"], "Output", CellChangeTimes->{ - 3.9913204212585373`*^9, {3.993816312006279*^9, 3.99381640142347*^9}}, - CellLabel-> - "Out[468]=",ExpressionUUID->"1a25a1c6-73bd-4cac-b185-9d9f2be106d0"] + 3.9913204212585373`*^9, {3.993816312006279*^9, 3.99381640142347*^9}, + 3.994256384320311*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"026741ab-b657-4d05-901e-762f57478fe5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w2"], "Input", - CellLabel-> - "In[469]:=",ExpressionUUID->"e9d46a69-f2c3-4eae-8422-f7a11e9f93ee"], + CellLabel->"In[63]:=",ExpressionUUID->"e9d46a69-f2c3-4eae-8422-f7a11e9f93ee"], Cell[BoxData["1.4266899039519758`"], "Output", CellChangeTimes->{ - 3.9913204212884274`*^9, {3.993816312018448*^9, 3.993816401439527*^9}}, - CellLabel-> - "Out[469]=",ExpressionUUID->"d5dea28d-e2eb-4066-a02e-60bcb1f4ac54"] + 3.9913204212884274`*^9, {3.993816312018448*^9, 3.993816401439527*^9}, + 3.99425638434296*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"bc6dcc58-5632-4876-83d0-dcc9a37b2d65"] }, Open ]], Cell[CellGroupData[{ @@ -4601,15 +4540,14 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", - CellLabel-> - "In[470]:=",ExpressionUUID->"27220227-e6ad-4017-8dda-993781a4c253"], + CellLabel->"In[64]:=",ExpressionUUID->"27220227-e6ad-4017-8dda-993781a4c253"], Cell[BoxData[ RowBox[{"-", "36.59398535367672`"}]], "Output", CellChangeTimes->{ - 3.9913204213185234`*^9, {3.9938163120312033`*^9, 3.9938164014556637`*^9}}, - CellLabel-> - "Out[470]=",ExpressionUUID->"300fd3e7-b906-40d2-ba26-9a11bd8830b7"] + 3.9913204213185234`*^9, {3.9938163120312033`*^9, 3.9938164014556637`*^9}, + 3.994256384375843*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"31be9c34-999a-4068-93fd-a681727bd6a2"] }, Open ]], Cell[CellGroupData[{ @@ -4630,15 +4568,14 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", - CellLabel-> - "In[471]:=",ExpressionUUID->"88b08446-9f3e-4bf9-adeb-e51633506be3"], + CellLabel->"In[65]:=",ExpressionUUID->"88b08446-9f3e-4bf9-adeb-e51633506be3"], Cell[BoxData[ RowBox[{"-", "6.706084141019179`"}]], "Output", CellChangeTimes->{ - 3.991320421349531*^9, {3.99381631203615*^9, 3.99381640147013*^9}}, - CellLabel-> - "Out[471]=",ExpressionUUID->"b48b0644-6736-489b-ac5f-269df6006584"] + 3.991320421349531*^9, {3.99381631203615*^9, 3.99381640147013*^9}, + 3.9942563844029493`*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"eb0b4747-5a21-4e75-aab5-077e815980cd"] }, Open ]], Cell[CellGroupData[{ @@ -4703,14 +4640,13 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[472]:=",ExpressionUUID->"51a67b8b-4b2f-4ba5-8b74-00330c252eb9"], + CellLabel->"In[66]:=",ExpressionUUID->"51a67b8b-4b2f-4ba5-8b74-00330c252eb9"], Cell[BoxData["100.68469502384829`"], "Output", CellChangeTimes->{ - 3.9913204213784294`*^9, {3.9938163120484467`*^9, 3.993816401484993*^9}}, - CellLabel-> - "Out[472]=",ExpressionUUID->"b04a547b-3eab-42a1-888f-825a5f6b7567"] + 3.9913204213784294`*^9, {3.9938163120484467`*^9, 3.993816401484993*^9}, + 3.9942563844415693`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"d55f7b39-838c-4951-9c4f-927572deb369"] }, Open ]], Cell[CellGroupData[{ @@ -4751,15 +4687,14 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[473]:=",ExpressionUUID->"f3430c54-256a-4826-8309-198312027df4"], + CellLabel->"In[67]:=",ExpressionUUID->"f3430c54-256a-4826-8309-198312027df4"], Cell[BoxData[ RowBox[{"-", "124.2735331996648`"}]], "Output", CellChangeTimes->{ - 3.9913204213904285`*^9, {3.99381631206076*^9, 3.9938164015001698`*^9}}, - CellLabel-> - "Out[473]=",ExpressionUUID->"9e00af96-eba7-4ea7-ba41-1c632637f718"] + 3.9913204213904285`*^9, {3.99381631206076*^9, 3.9938164015001698`*^9}, + 3.9942563844679327`*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"6847cbf9-8563-45e6-9012-6319d45a4d09"] }, Open ]], Cell[CellGroupData[{ @@ -4825,14 +4760,13 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[474]:=",ExpressionUUID->"d41d633d-6eba-4229-8b2f-56b2d4249141"], + CellLabel->"In[68]:=",ExpressionUUID->"d41d633d-6eba-4229-8b2f-56b2d4249141"], Cell[BoxData["130.0881645538647`"], "Output", CellChangeTimes->{ - 3.991320421419428*^9, {3.9938163120760603`*^9, 3.993816401514661*^9}}, - CellLabel-> - "Out[474]=",ExpressionUUID->"cb18e807-1f13-44ca-a808-f6e1f52d0b72"] + 3.991320421419428*^9, {3.9938163120760603`*^9, 3.993816401514661*^9}, + 3.9942563844975*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"181dd3c4-0700-47e7-8af2-257b65e4782c"] }, Open ]], Cell[CellGroupData[{ @@ -4890,14 +4824,13 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[475]:=",ExpressionUUID->"3f4bf9b9-5644-4849-9111-ea0caa4ab21e"], + CellLabel->"In[69]:=",ExpressionUUID->"3f4bf9b9-5644-4849-9111-ea0caa4ab21e"], Cell[BoxData["37.11735851847544`"], "Output", CellChangeTimes->{ - 3.9913204214494324`*^9, {3.993816312091509*^9, 3.9938164015309277`*^9}}, - CellLabel-> - "Out[475]=",ExpressionUUID->"735ac1f7-3a02-4e1f-bc3c-f8f211e9add1"] + 3.9913204214494324`*^9, {3.993816312091509*^9, 3.9938164015309277`*^9}, + 3.9942563845294437`*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"6f96952c-3e1d-47dd-8ca8-23da9987743d"] }, Open ]], Cell[CellGroupData[{ @@ -4955,37 +4888,46 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[476]:=",ExpressionUUID->"781db07e-d341-40d3-b5dc-12e30e9901c3"], + CellLabel->"In[70]:=",ExpressionUUID->"781db07e-d341-40d3-b5dc-12e30e9901c3"], Cell[BoxData["835.6594550727934`"], "Output", CellChangeTimes->{ - 3.991320421481529*^9, {3.9938163121038647`*^9, 3.993816401547245*^9}}, - CellLabel-> - "Out[476]=",ExpressionUUID->"5361d362-fbe4-481f-8e84-dc09b7e1b605"] + 3.991320421481529*^9, {3.9938163121038647`*^9, 3.993816401547245*^9}, + 3.994256384575077*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"06456fe7-b69f-44a4-925b-4595157c684c"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"f1", "=", "0.4930475122"}]], "Input", - CellChangeTimes->{3.9918501413985214`*^9, - 3.994083453667295*^9},ExpressionUUID->"5894836c-9594-0940-b94c-\ -299085c765cc"], + CellChangeTimes->{3.9918501413985214`*^9, 3.994083453667295*^9}, + CellLabel->"In[71]:=",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], + +Cell[BoxData["0.4930475122`"], "Output", + CellChangeTimes->{3.994256384610585*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"a04f0982-d86a-4833-8a9c-e9ee3306cd8a"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918501359768734`*^9, - 3.991850137465685*^9}},ExpressionUUID->"5965eb10-01f8-5545-9b6f-\ -8fab318cd4b7"], + CellChangeTimes->{{3.9918501359768734`*^9, 3.991850137465685*^9}}, + CellLabel->"In[72]:=",ExpressionUUID->"5965eb10-01f8-5545-9b6f-8fab318cd4b7"], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f2", "=", "0.2291459505"}]], "Input", - CellChangeTimes->{3.9918501402114105`*^9, - 3.994083457206149*^9},ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-\ -092c5143dcf0"], + CellChangeTimes->{3.9918501402114105`*^9, 3.994083457206149*^9}, + CellLabel->"In[73]:=",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], + +Cell[BoxData["0.2291459505`"], "Output", + CellChangeTimes->{3.994256384654593*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"e5e84aed-f4b5-4c1e-add1-71c65fac3367"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918501388085117`*^9, - 3.991850138811516*^9}},ExpressionUUID->"6e7c45d7-0298-ce41-ba97-\ -a3c857e6ae57"], + CellChangeTimes->{{3.9918501388085117`*^9, 3.991850138811516*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], Cell[CellGroupData[{ @@ -5031,13 +4973,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel-> - "In[399]:=",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], + CellLabel->"In[75]:=",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], -Cell[BoxData["2.3793916761039797`*^-53"], "Output", - CellChangeTimes->{3.9913437871842365`*^9}, - CellLabel-> - "Out[399]=",ExpressionUUID->"d7904bcf-fc55-b844-b4d2-059d830f1317"] +Cell[BoxData["1.5276604288963894`*^-53"], "Output", + CellChangeTimes->{3.9913437871842365`*^9, 3.994256384681259*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"685de026-f83b-4af3-8519-03d6f7202b06"] }, Open ]], Cell[CellGroupData[{ @@ -5071,14 +5011,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.991557655438551*^9},ExpressionUUID->"f2e6289f-a8bc-6d44-a856-\ -301cf9f22a61"], + CellChangeTimes->{3.991557655438551*^9}, + CellLabel->"In[76]:=",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], -Cell[BoxData["8.839304777809617`*^-55"], "Output", - CellChangeTimes->{3.9913437872132397`*^9}, - CellLabel-> - "Out[400]=",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] +Cell[BoxData["9.197379694986827`*^-55"], "Output", + CellChangeTimes->{3.9913437872132397`*^9, 3.994256384702071*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"3aec561c-7649-4ead-9993-ac12c6930aca"] }, Open ]], Cell[CellGroupData[{ @@ -5111,14 +5049,12 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.9915576595317745`*^9, - 3.9915576617156334`*^9}},ExpressionUUID->"cdf84d2f-1e96-4c43-9286-\ -fda42549e334"], + CellChangeTimes->{{3.9915576595317745`*^9, 3.9915576617156334`*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], -Cell[BoxData["2.0384594858915346`*^-54"], "Output", - CellChangeTimes->{3.9913437872412376`*^9}, - CellLabel-> - "Out[401]=",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] +Cell[BoxData["1.1650057649062782`*^-54"], "Output", + CellChangeTimes->{3.9913437872412376`*^9, 3.994256384733014*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"9edeeb33-33db-4fc5-8bb1-634c43364b52"] }, Open ]], Cell[CellGroupData[{ @@ -5141,13 +5077,11 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel-> - "In[402]:=",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], + CellLabel->"In[78]:=",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], -Cell[BoxData["27.24865368249903`"], "Output", - CellChangeTimes->{3.9913437872672386`*^9}, - CellLabel-> - "Out[402]=",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] +Cell[BoxData["15.709123150660899`"], "Output", + CellChangeTimes->{3.9913437872672386`*^9, 3.9942563847712183`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"dc9fd965-8b84-445e-af68-5582d6970f80"] }, Open ]], Cell[CellGroupData[{ @@ -5173,13 +5107,11 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Il"}], ")"}], "*", RowBox[{"(", RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", - CellLabel-> - "In[403]:=",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], + CellLabel->"In[79]:=",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], -Cell[BoxData["47.62007062351`"], "Output", - CellChangeTimes->{3.991343787279253*^9}, - CellLabel-> - "Out[403]=",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] +Cell[BoxData["34.38354693289333`"], "Output", + CellChangeTimes->{3.991343787279253*^9, 3.9942563848030777`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"aa2f0747-8f48-424e-ad15-6a726657d21d"] }, Open ]], Cell[CellGroupData[{ @@ -5188,13 +5120,11 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel-> - "In[404]:=",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], + CellLabel->"In[80]:=",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], -Cell[BoxData["0.718596406513947`"], "Output", - CellChangeTimes->{3.9913437873062572`*^9}, - CellLabel-> - "Out[404]=",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +Cell[BoxData["1.5371369371895296`"], "Output", + CellChangeTimes->{3.9913437873062572`*^9, 3.994256384826324*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"0f680c02-3d6d-4af8-89c4-86619cc37784"] }, Open ]], Cell[CellGroupData[{ @@ -5203,13 +5133,11 @@ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", - CellLabel-> - "In[405]:=",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], + CellLabel->"In[81]:=",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], -Cell[BoxData["2.8712430196956706`"], "Output", - CellChangeTimes->{3.9913437873353844`*^9}, - CellLabel-> - "Out[405]=",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +Cell[BoxData["4.929913825499814`"], "Output", + CellChangeTimes->{3.9913437873353844`*^9, 3.994256384862185*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"cfc62e22-6c6f-4fa6-8ccd-5dce9c0afdd0"] }, Open ]], Cell[CellGroupData[{ @@ -5218,13 +5146,11 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel-> - "In[406]:=",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], + CellLabel->"In[82]:=",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], -Cell[BoxData["136.72879537516795`"], "Output", - CellChangeTimes->{3.991343787361582*^9}, - CellLabel-> - "Out[406]=",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +Cell[BoxData["169.50792339419257`"], "Output", + CellChangeTimes->{3.991343787361582*^9, 3.994256384889003*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"315b80ab-b40b-4c8f-902b-dbd91e8bcc53"] }, Open ]], Cell[CellGroupData[{ @@ -5233,13 +5159,11 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[407]:=",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], + CellLabel->"In[83]:=",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], -Cell[BoxData["19.58078461858683`"], "Output", - CellChangeTimes->{3.9913437873734856`*^9}, - CellLabel-> - "Out[407]=",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +Cell[BoxData["24.147073445740027`"], "Output", + CellChangeTimes->{3.9913437873734856`*^9, 3.994256384927637*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"db7c1165-afc9-4de8-b258-eca545f6533f"] }, Open ]], Cell[CellGroupData[{ @@ -5428,13 +5352,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[408]:=",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], + CellLabel->"In[84]:=",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], -Cell[BoxData["0.03116264120310575`"], "Output", - CellChangeTimes->{3.9913437874002857`*^9}, - CellLabel-> - "Out[408]=",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +Cell[BoxData["0.0060656700816719734`"], "Output", + CellChangeTimes->{3.9913437874002857`*^9, 3.994256384954316*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"8ddeb39c-ddb2-4d64-84cc-babf179ce961"] }, Open ]], Cell[CellGroupData[{ @@ -5447,13 +5369,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[409]:=",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], + CellLabel->"In[85]:=",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], -Cell[BoxData["5.020278507983894`"], "Output", - CellChangeTimes->{3.9913437875033875`*^9}, - CellLabel-> - "Out[409]=",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +Cell[BoxData["11.379038013281729`"], "Output", + CellChangeTimes->{3.9913437875033875`*^9, 3.994256385066503*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"34544cfe-e30d-4389-a9e8-293cf39bc6a8"] }, Open ]], Cell[CellGroupData[{ @@ -5644,13 +5564,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[410]:=",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], + CellLabel->"In[86]:=",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], -Cell[BoxData["0.011613560908040731`"], "Output", - CellChangeTimes->{3.9913437875342865`*^9}, - CellLabel-> - "Out[410]=",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +Cell[BoxData["0.03923702074981569`"], "Output", + CellChangeTimes->{3.9913437875342865`*^9, 3.9942563850968027`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"6232236c-42c0-4acd-8e46-802dcf428858"] }, Open ]], Cell[CellGroupData[{ @@ -5663,13 +5581,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[411]:=",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], + CellLabel->"In[87]:=",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], -Cell[BoxData["8.223604958038852`"], "Output", - CellChangeTimes->{3.9913437876352882`*^9}, - CellLabel-> - "Out[411]=",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +Cell[BoxData["4.474009774734083`"], "Output", + CellChangeTimes->{3.9913437876352882`*^9, 3.9942563852640667`*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"7ee4f7d3-5670-4135-b824-860b7eb70b59"] }, Open ]], Cell[CellGroupData[{ @@ -5761,13 +5677,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[412]:=",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], + CellLabel->"In[88]:=",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.991343787650694*^9}, - CellLabel-> - "Out[412]=",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +Cell[BoxData["0.08888024365939537`"], "Output", + CellChangeTimes->{3.991343787650694*^9, 3.994256385297782*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"74dbcd49-0640-43af-9ac2-751521b7125c"] }, Open ]], Cell[CellGroupData[{ @@ -5856,13 +5770,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[413]:=",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], + CellLabel->"In[89]:=",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.9913437876776943`*^9}, - CellLabel-> - "Out[413]=",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +Cell[BoxData["0.9111197563406046`"], "Output", + CellChangeTimes->{3.9913437876776943`*^9, 3.994256385324398*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"44425131-3821-4290-9e9d-eb42733737dc"] }, Open ]], Cell[CellGroupData[{ @@ -5984,19 +5896,17 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel-> - "In[414]:=",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], + CellLabel->"In[90]:=",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913437877049465`*^9}, - CellLabel-> - "Out[414]=",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] +Cell[BoxData["0.0809805459464419`"], "Output", + CellChangeTimes->{3.9913437877049465`*^9, 3.9942563853584557`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"d85682ed-a81a-46de-9ae8-ce963c81a1a8"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"8111b6bb-cdcb-\ -ad40-9440-412e77bed40d"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"8111b6bb-cdcb-ad40-9440-412e77bed40d"], Cell[CellGroupData[{ @@ -6057,68 +5967,70 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918501532204666`*^9},ExpressionUUID->"fc88a60e-e348-d344-96c4-\ -1f4f66f53217"], + CellChangeTimes->{3.9918501532204666`*^9}, + CellLabel->"In[92]:=",ExpressionUUID->"fc88a60e-e348-d344-96c4-1f4f66f53217"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.894379438095815`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 92, 9, 31387658199574641289, + "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437877189426`*^9, 3.994256385402993*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"839772e0-1773-4123-a1d4-56b26a41a7a7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2277572491348802`*^-218\\\", \ \\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ 29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 415, 433, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437877189426`*^9}, +normalized machine number; precision may be lost.\"", 2, 92, 10, + 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437877189426`*^9, 3.994256385419684*^9}, CellLabel-> "During evaluation of \ -In[415]:=",ExpressionUUID->"0833bd34-3252-a046-9aa3-94c1d6e5cfe9"], +In[92]:=",ExpressionUUID->"dc4e0a52-2cd1-4893-89c3-5ffbec414b8a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ + "\"\\!\\(\\*FractionBox[\\\"7.957159122875819`*^-224\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 415, 434, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343787730139*^9}, +normalized machine number; precision may be lost.\"", 2, 92, 11, + 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437877189426`*^9, 3.994256385427465*^9}, CellLabel-> "During evaluation of \ -In[415]:=",ExpressionUUID->"f24a3618-ee43-704a-86fe-493dbed35e8d"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 415, 435, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437877381363`*^9}, - CellLabel-> - "During evaluation of \ -In[415]:=",ExpressionUUID->"86271901-aa3c-5542-ab18-fc06d3fd3f32"], +In[92]:=",ExpressionUUID->"50c81d1c-8692-44f2-b065-e786c051d29a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 415, 436, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343787747137*^9}, +during this calculation.\"", 2, 92, 12, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437877189426`*^9, 3.9942563854344387`*^9}, CellLabel-> "During evaluation of \ -In[415]:=",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], +In[92]:=",ExpressionUUID->"09a29c2a-8944-42b5-aebf-0c009385424f"], -Cell[BoxData["5.020278507983898`"], "Output", - CellChangeTimes->{3.991343791131052*^9}, - CellLabel-> - "Out[415]=",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +Cell[BoxData["11.379038013281724`"], "Output", + CellChangeTimes->{3.991343791131052*^9, 3.9942563898762817`*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"1e761b45-9580-4b5d-8064-b1a190251689"] }, Open ]], Cell[CellGroupData[{ @@ -6180,68 +6092,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918501579408264`*^9},ExpressionUUID->"dca13eb7-7f94-3e45-81a8-\ -b62dad3009d2"], + CellChangeTimes->{3.9918501579408264`*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"dca13eb7-7f94-3e45-81a8-b62dad3009d2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 416, 437, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437911686516`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.894379438095815`*^-213\\\", \ +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, + 13, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437911686516`*^9, 3.994256389947942*^9}, CellLabel-> "During evaluation of \ -In[416]:=",ExpressionUUID->"44f2ed65-5109-0141-bef6-eebaeda3d61d"], +In[93]:=",ExpressionUUID->"2335acda-f202-44ff-93e3-3798e894102b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 416, 438, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134379117865*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2277572491348802`*^-218\\\", \ +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, + 14, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437911686516`*^9, 3.99425638995603*^9}, CellLabel-> "During evaluation of \ -In[416]:=",ExpressionUUID->"ba49f32e-1ff7-b147-9f42-9c90ccc55447"], +In[93]:=",ExpressionUUID->"165dec86-e79b-4a4c-a94d-6e3405103414"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 416, 439, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437911866493`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.957159122875819`*^-224\\\", \ +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, + 15, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437911686516`*^9, 3.994256389963275*^9}, CellLabel-> "During evaluation of \ -In[416]:=",ExpressionUUID->"fa95acf1-55b2-c042-9a9f-32e1ebea5c1e"], +In[93]:=",ExpressionUUID->"cc3bbfe7-2998-4e26-a51c-6da5b62d035e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 416, 440, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437911946507`*^9}, +during this calculation.\"", 2, 93, 16, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437911686516`*^9, 3.9942563899694643`*^9}, CellLabel-> "During evaluation of \ -In[416]:=",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], +In[93]:=",ExpressionUUID->"c0fc76be-c20e-4be0-9e4e-f03fa8ff8665"], -Cell[BoxData["8.223604958038848`"], "Output", - CellChangeTimes->{3.991343794599764*^9}, - CellLabel-> - "Out[416]=",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +Cell[BoxData["4.474009774734081`"], "Output", + CellChangeTimes->{3.991343794599764*^9, 3.994256393871748*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"28783ed7-9024-4648-a00a-8a070a87f36d"] }, Open ]], Cell[CellGroupData[{ @@ -6251,140 +6168,141 @@ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ - FractionBox[ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", RowBox[{ - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", - RowBox[{"Cos", "[", - FractionBox[ - RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], - RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918501631488323`*^9},ExpressionUUID->"46451e4d-f5ef-b246-91c6-\ -4265c9fafb97"], + CellChangeTimes->{3.9918501631488323`*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"46451e4d-f5ef-b246-91c6-4265c9fafb97"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK -kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB -QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf -41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 -bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 -urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR -rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 -sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM -w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms -l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo -waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml -Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 -4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d -FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta -CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE -5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv -f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf -FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ -WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C -uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 -3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU -qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 -qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu -Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa -Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k -IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 -hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ -EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ -yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd -Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr -F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa -vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U -HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL -W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs -nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP -wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d -hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz -2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf -81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo -dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF -Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 -CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF -NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ -LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ -ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE -965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz -hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v -DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx -HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px -XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 -z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg -fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e -IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m -fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv -J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu -liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE -f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU -c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc -MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE -M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX -hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv -JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q -12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd -7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB -qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 -3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ -cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ -PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb -tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk -Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv -ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP -cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 -/oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE -EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N -KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af -rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS -8X7ZCUqv+v+2j8xX + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk0VVscB3BzA8qQOcpUqURmDfYvc6YMkUxx3XvIi4S4hqgXeUkyRkpC +SjJkaBD1VCpxw4siRcTVdXFNR1LJ2/4466zP2mt/1++3J0XKcUcaDxcXFwt/ +y/8TbTs2P+xoM2IEUk0ybrOQEeemLsW0DC24OAYueyBfL1PFtAGZ6cuMLdue ++lZASPslcl1b15CJXUWPe8FvykB1X3Z+zcI+/0q6Ma70P3T5zln3bOy6jhPX +f2u9R1ZBFVuuYLN7W2Ii63tQrkb1/qvYskxl9+8mnxFlMuVpHrb1ZIxhKOML ++l1pmngD++lvtiC9dBCJhnUWFWF/OCMV/SBoCIUZ7V53G5sjYMomtZjIXyym +pxRbIDn4sPb8CDoymzVVga0gmtd8oh73xfzHowbbTu77LY7JODop9FPjCTZx +Q0lSfSUHzVvRs59jx6keSPiLMYlqytodm7F7pLp2hpVOo8jJVS+7sKluAUcz +kmfQ9s/j0Z+wp65xFVQHzSJn3jvnvmKvVFIXmdaaQ+flyrOnsTOpLyxEJL6j +Stm5vAXsjbcPx2nMf0eWwZI/uEtYyGD7OU5g/Q+UZsS8LY7tr/eFwTb5jcwO +1s7twibpJ/lWb1pEkTOvc82wT9cL7lFb+Qf9Vr+fYY+dAwZ3/RhLqLd4/Rk/ +bGpxs2lIKTe0vNlodQW79FXGwBk5Hig6zZNyC3vqm1dMWjIPPNnxVLUWO2br +XM29IF4oKHph34GdWamoPKnFDyG+K7OE7rBQb8f40z9F/GBpXh+xHnvjzEO3 +NRICcPWiZcV27DIdu3T1eQHoT5iRtMNuqoviPla/Ehw6Ez5kYs+96PzCMhGC +lKRHa7RKWUjMRkgk+qkQvM7tWbDE1uwyBWFDYVCMSbTwxg4Yvn9j5441wJFM +X52KHczD0NwrJAIL8Z4aJDZTqWI64bso2NsxZ9vu4vUhWla1a4uBodjSinFs +nrsjitInxMDa/07sqjJcr/YGx9IxMcixvJdhhu1mklrdNiAOx7yTPJ5jt/uG +hEq1SsBqn4tH28pZqP92ygXvlZIQ2fHvrWns8bHSojtmkkCfizeXqGCh1WFD +nbsbJWHz99flntim8Qd1vO9LgcOSjtws9uObenMl+TKg3v72hOY9FrrJ/Bm+ +K0we+tsU185Vs5Clc2J/aLk8KP4RPqlYg/ObxM3LR+TBvHtS0w5b5+Z2iY2H +FYBLNau0BLuJ4lXDb7QBTJMDin1qWWhmciCCdXYjfDOl1g3dZyHxQNPaGlsl +UD7wxH1LHQuN3Fztbx+gBFE5laePYD/63CE3cU4JhtnXfl3G9rDxPLupUQms +aEdnBR7j+raFO17RUoYnXW1sNrYO+/ZUrJQK7KXO/XjewEIH/QTVrQZVoV9/ +VWZNIwuhcGetQ4uqsAK41UnsrQn5+lSZTRCgUSSt+4yFuIq0jWMdNoH+eea3 +h9jl/e6Hqp9tgoiMo8Sz5/h+upSdkS3cDBPNuUNDTbg+U9sPbIoajDoLDBBv +WKjIKfvTfKwa5MnntVVhp1AGB/iuqkG25vDaRWzq6ZNjCp1qQArGJ2W2sJBo +Qx6Xk8lW0KaJeL9uxedHm7O1Xnkb/LFKSt7TxkJySpfiLgxvB4Ws6HFqJws1 +JJFqCzzqMGd46vgzbI/Zw12EojpMxXc6KXSx0PUmFTVjL3UwVImDj9hKfo/f +/ehWh1S13jtOH3C/ZUxVonUH1Ph/bnD7yELycgrExsOa4HbgJ7PqCwttLw4T ++oW0oPR5nVP8BAtRqGfn1O20YOTTba9p7Bzl9H5vDy340BXw1IvDQryFlfde +0bVgVD84Ztckvm/X2QfTq7RALSp2Zm4Kv6c53nlqytqgpvDhVQyJ9/eCzQ5X +AR3gHvxPtOUXCxWEqNjfZ+hCcZXJbl/BUdQRjvTjiw3hqr7yrX93jiJFr/d2 +nsf2Qu57JSbdcxTRlh5UyEcCCBaaFNy9MIqkxh6tkKIYA+zS0Cx9MYrCtPd8 +Tt9qCoaXx29HLI4iysTvZnG2GZwV44212c1G5cahK/LbLcBi8EGbSjwb3SQD +npVl7od9Wl0h0W/Z6Mc+6bdNcdaQmcdb8UppDPVx8U4P+tjC4L4V5bYxYyho +/fHUM8oH4Jotb8/XrjFUcbS5MSvBHtLcS24Su8ZR1KzM/LajDnA+aez9xuvj +aM7K3OX1EUfgTbs3cHztBDJ0T9vHdHACPgmW4euzE+idTF5Ak/ZBcLoVOFZE +TiDZW2cbSrY4AyVSyjI4lIMeDWy1sRN2gQRZqeaKCQ5S6JryC59wAc0eztsO +/0mknZVWVjRwCFxsm3xLpydRHt/sjvQXrkAPr+vn2jWFHuzT6E2oOwxlK0+d +YJyZQjn6SaK/S90ganat5+Y3U6j9U/E57WR3fH+r2RpC0+i+7TWV4NMecG1S +Y0DIeRpNBzpxBVE9YfP7/LovOdNozlzNn2PiBaumyy539U6jkomPP0L1joDg +NV22r+IMci0o9vUU8gYLM+vafp8ZVFNtfYQ30RtCekQe/lc8gwzl3i2cX/CG +Zye+ff/9dQYpD/j1/nfUB1Se35ehrZ9Fw4J/Hbg25AME75Y6h0OzqCPFztfC +mQIBq7cy6pNmUSY9X/BkBwVaFkunRJ7OooanSwu++33h1VVmYurYLFrrAYna +j30hmv6r10iURBvXvW5f3+ALhhM2N7uxNRm20gJPfYHT2SoSLEYixz3ud3qe ++UJOHuddvjiJMteHt5564wuWEeILPyVIJNt3d21zjy+U8B95mC9LIhUvqRyP +eV/IqGt3LFQmkaE3pyRBhwopWY+/ndMh0a0rU6F2elSwc2LoLmGv65wxkjKg +gqzTqHqELok4ZvNdJbupMENZkiP0SPx+cXEzjKnA3vNgAhmQaM286GExByo0 +Zli4Du0m0fBF3VX5gVTYYrOui2VMopT6mKOPblFhhfGRPvYBEgVqZRvSS6jQ +RHUxsrYnkc2dqlUGpVSY7OqxvIu9OnvkzsNyKqQK73cLcCBRQog9+0EtFWRC +3QOHHUkUo6by1/3nVDgfn27Z7EyigOzWY9X9VOg8wkW3cyfR/jUje0IGqFDu +2TZVhL0lgUtY6ysVIpzPiy5gj4TollcxqfA5Nsuq0INEPnb5E/fGqSB9rPbK +lCeJXPlDgyp/UqG4saAgxptEFqGywWWSNFBie61wpJHoef45q3RpGnB9cqkt +xN7DmFGhy9LAiJyen8HWVG39aKJAA6bRJ+N0gkQy3dEmn1RpkOzIPdLqR6Kx +XX2Sq3VpUCAq7LItgESXeG488XPC84X3xecG4f41hHJsnWkwdTVlvA873p0e +on2IBq+CJ0Y3HicRvdZ+85IbDf6xqioqxvYhuNMuU3DeTkmx0mASabdQqC9P +0IBvtrrjegiJutNUBZVTaRCr1n1BP5xEFUjYn5VGg/TtyqNHseMnyKbyDBro +1mqzrmJr7W+KNcimwUhifOsf7BQu3xnb6zTofi21qTGCRObHb3ykl9Fgt98r +lZ2RJJKX/0fPqIIGtK6FXE9ssuV4Bu89GtiPna4+j124Cdmm1NBg5+vjLwew +F/v6Gose0+CGnFxUUhSJam3kStqaaeDvrC7DiCbRhZ88/JktNIhaV1Qwg00p +YfscZtDALHdVq3QMiUT4HssNt9PATT2di4p9rN710sIHGlRyyLk5bOWtl8NV +mDSI32TNvzKWRD+7T3WOjuD1zTDK3YLdkUDTrGTRoPzX23ZL7NhBHbbhOA3m +YsrX/4Pdm9PpeWAW73fS2B6eOBKlrxA1i+ImoLc1LGMYu2Gmzz2Ml4A4Pjlj +ntMk+tZXGhLET8CwZVLkBuw9taY3KKsI0NGo+NsVe8Sb/stKlADrkYjFJmwR +GzMxM3EC3jm/m+7H3q0vpoYkCEhOZAT9wE4VLnPRliEgU/siz9YzePzxlyo5 +RQKqc/9NTcQmisuaJZQJEAjMfpOHnZoa+WWtKgHvLceSarBHCHFhPjUC9Fnf +b/Utj4tb+I9rEtBusNN0+98kevxHPG5EC9enHtNohM0cHcga0CGgQUD1pT32 +rsaoF10GBDCW/vYLxR4+VqHwBAjYKywlUoO9xjVa96ExAWfT5tueYRuaWNpU +mRIgHSQv2YGdIvM1stiSgMMZO/aOYT/iq0zNtyIg7+U6+R/YQ5PRt6/YEEBT +1kvgO0sig1cS7y/aE+CzTZEjh02p+jqW6EhAesgIZxP2xWuVPH8fJMB4Q3/E +TuyvIfs1w10J+P7RQ8kMW9hL0iLYjYBwgwETu+W8/UOeAR4EnMhLmXBZnr/h +1AUvbwK6xIiPBPaj1VaFrhS8H5uT5YKW8+Yk6xypBARbdTPDlvMGh9ptCGw9 +c4Po5TzGvRFzfwKm67vFzizX9/DUIgQQIPI86eS55fxCq3W7jxHgbu7lfWE5 +/6LUNt0gAkY8HDovLefTh/dpBBOgpunbloEtRK1yVQshQJk7wyEbW/9A7HHl +MALMNg945C7n77I+Jx9OwCkRq6lr2Mmq0nlSdALU93UI5mM/EGHWiEYRoHcw +pPIG9uCvqhbBGAKGfmp8KljO/xY7yB9LgOjiykuF2HrvrH8sxeHzYrjYsuz/ +ARfdGT8= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -6398,105 +6316,105 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK -kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB -QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf -41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 -bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 -urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR -rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 -sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM -w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms -l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo -waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml -Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 -4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d -FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta -CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE -5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv -f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf -FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ -WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C -uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 -3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU -qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 -qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu -Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa -Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k -IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 -hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ -EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ -yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd -Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr -F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa -vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U -HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL -W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs -nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP -wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d -hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz -2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf -81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo -dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF -Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 -CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF -NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ -LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ -ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE -965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz -hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v -DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx -HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px -XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 -z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg -fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e -IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m -fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv -J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu -liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE -f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU -c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc -MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE -M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX -hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv -JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q -12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd -7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB -qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 -3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ -cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ -PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb -tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk -Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv -ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP -cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 -/oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE -EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N -KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af -rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS -8X7ZCUqv+v+2j8xX +1:eJwV1Hk0VVscB3BzA8qQOcpUqURmDfYvc6YMkUxx3XvIi4S4hqgXeUkyRkpC +SjJkaBD1VCpxw4siRcTVdXFNR1LJ2/4466zP2mt/1++3J0XKcUcaDxcXFwt/ +y/8TbTs2P+xoM2IEUk0ybrOQEeemLsW0DC24OAYueyBfL1PFtAGZ6cuMLdue ++lZASPslcl1b15CJXUWPe8FvykB1X3Z+zcI+/0q6Ma70P3T5zln3bOy6jhPX +f2u9R1ZBFVuuYLN7W2Ii63tQrkb1/qvYskxl9+8mnxFlMuVpHrb1ZIxhKOML ++l1pmngD++lvtiC9dBCJhnUWFWF/OCMV/SBoCIUZ7V53G5sjYMomtZjIXyym +pxRbIDn4sPb8CDoymzVVga0gmtd8oh73xfzHowbbTu77LY7JODop9FPjCTZx +Q0lSfSUHzVvRs59jx6keSPiLMYlqytodm7F7pLp2hpVOo8jJVS+7sKluAUcz +kmfQ9s/j0Z+wp65xFVQHzSJn3jvnvmKvVFIXmdaaQ+flyrOnsTOpLyxEJL6j +Stm5vAXsjbcPx2nMf0eWwZI/uEtYyGD7OU5g/Q+UZsS8LY7tr/eFwTb5jcwO +1s7twibpJ/lWb1pEkTOvc82wT9cL7lFb+Qf9Vr+fYY+dAwZ3/RhLqLd4/Rk/ +bGpxs2lIKTe0vNlodQW79FXGwBk5Hig6zZNyC3vqm1dMWjIPPNnxVLUWO2br +XM29IF4oKHph34GdWamoPKnFDyG+K7OE7rBQb8f40z9F/GBpXh+xHnvjzEO3 +NRICcPWiZcV27DIdu3T1eQHoT5iRtMNuqoviPla/Ehw6Ez5kYs+96PzCMhGC +lKRHa7RKWUjMRkgk+qkQvM7tWbDE1uwyBWFDYVCMSbTwxg4Yvn9j5441wJFM +X52KHczD0NwrJAIL8Z4aJDZTqWI64bso2NsxZ9vu4vUhWla1a4uBodjSinFs +nrsjitInxMDa/07sqjJcr/YGx9IxMcixvJdhhu1mklrdNiAOx7yTPJ5jt/uG +hEq1SsBqn4tH28pZqP92ygXvlZIQ2fHvrWns8bHSojtmkkCfizeXqGCh1WFD +nbsbJWHz99flntim8Qd1vO9LgcOSjtws9uObenMl+TKg3v72hOY9FrrJ/Bm+ +K0we+tsU185Vs5Clc2J/aLk8KP4RPqlYg/ObxM3LR+TBvHtS0w5b5+Z2iY2H +FYBLNau0BLuJ4lXDb7QBTJMDin1qWWhmciCCdXYjfDOl1g3dZyHxQNPaGlsl +UD7wxH1LHQuN3Fztbx+gBFE5laePYD/63CE3cU4JhtnXfl3G9rDxPLupUQms +aEdnBR7j+raFO17RUoYnXW1sNrYO+/ZUrJQK7KXO/XjewEIH/QTVrQZVoV9/ +VWZNIwuhcGetQ4uqsAK41UnsrQn5+lSZTRCgUSSt+4yFuIq0jWMdNoH+eea3 +h9jl/e6Hqp9tgoiMo8Sz5/h+upSdkS3cDBPNuUNDTbg+U9sPbIoajDoLDBBv +WKjIKfvTfKwa5MnntVVhp1AGB/iuqkG25vDaRWzq6ZNjCp1qQArGJ2W2sJBo +Qx6Xk8lW0KaJeL9uxedHm7O1Xnkb/LFKSt7TxkJySpfiLgxvB4Ws6HFqJws1 +JJFqCzzqMGd46vgzbI/Zw12EojpMxXc6KXSx0PUmFTVjL3UwVImDj9hKfo/f +/ehWh1S13jtOH3C/ZUxVonUH1Ph/bnD7yELycgrExsOa4HbgJ7PqCwttLw4T ++oW0oPR5nVP8BAtRqGfn1O20YOTTba9p7Bzl9H5vDy340BXw1IvDQryFlfde +0bVgVD84Ztckvm/X2QfTq7RALSp2Zm4Kv6c53nlqytqgpvDhVQyJ9/eCzQ5X +AR3gHvxPtOUXCxWEqNjfZ+hCcZXJbl/BUdQRjvTjiw3hqr7yrX93jiJFr/d2 +nsf2Qu57JSbdcxTRlh5UyEcCCBaaFNy9MIqkxh6tkKIYA+zS0Cx9MYrCtPd8 +Tt9qCoaXx29HLI4iysTvZnG2GZwV44212c1G5cahK/LbLcBi8EGbSjwb3SQD +npVl7od9Wl0h0W/Z6Mc+6bdNcdaQmcdb8UppDPVx8U4P+tjC4L4V5bYxYyho +/fHUM8oH4Jotb8/XrjFUcbS5MSvBHtLcS24Su8ZR1KzM/LajDnA+aez9xuvj +aM7K3OX1EUfgTbs3cHztBDJ0T9vHdHACPgmW4euzE+idTF5Ak/ZBcLoVOFZE +TiDZW2cbSrY4AyVSyjI4lIMeDWy1sRN2gQRZqeaKCQ5S6JryC59wAc0eztsO +/0mknZVWVjRwCFxsm3xLpydRHt/sjvQXrkAPr+vn2jWFHuzT6E2oOwxlK0+d +YJyZQjn6SaK/S90ganat5+Y3U6j9U/E57WR3fH+r2RpC0+i+7TWV4NMecG1S +Y0DIeRpNBzpxBVE9YfP7/LovOdNozlzNn2PiBaumyy539U6jkomPP0L1joDg +NV22r+IMci0o9vUU8gYLM+vafp8ZVFNtfYQ30RtCekQe/lc8gwzl3i2cX/CG +Zye+ff/9dQYpD/j1/nfUB1Se35ehrZ9Fw4J/Hbg25AME75Y6h0OzqCPFztfC +mQIBq7cy6pNmUSY9X/BkBwVaFkunRJ7OooanSwu++33h1VVmYurYLFrrAYna +j30hmv6r10iURBvXvW5f3+ALhhM2N7uxNRm20gJPfYHT2SoSLEYixz3ud3qe ++UJOHuddvjiJMteHt5564wuWEeILPyVIJNt3d21zjy+U8B95mC9LIhUvqRyP +eV/IqGt3LFQmkaE3pyRBhwopWY+/ndMh0a0rU6F2elSwc2LoLmGv65wxkjKg +gqzTqHqELok4ZvNdJbupMENZkiP0SPx+cXEzjKnA3vNgAhmQaM286GExByo0 +Zli4Du0m0fBF3VX5gVTYYrOui2VMopT6mKOPblFhhfGRPvYBEgVqZRvSS6jQ +RHUxsrYnkc2dqlUGpVSY7OqxvIu9OnvkzsNyKqQK73cLcCBRQog9+0EtFWRC +3QOHHUkUo6by1/3nVDgfn27Z7EyigOzWY9X9VOg8wkW3cyfR/jUje0IGqFDu +2TZVhL0lgUtY6ysVIpzPiy5gj4TollcxqfA5Nsuq0INEPnb5E/fGqSB9rPbK +lCeJXPlDgyp/UqG4saAgxptEFqGywWWSNFBie61wpJHoef45q3RpGnB9cqkt +xN7DmFGhy9LAiJyen8HWVG39aKJAA6bRJ+N0gkQy3dEmn1RpkOzIPdLqR6Kx +XX2Sq3VpUCAq7LItgESXeG488XPC84X3xecG4f41hHJsnWkwdTVlvA873p0e +on2IBq+CJ0Y3HicRvdZ+85IbDf6xqioqxvYhuNMuU3DeTkmx0mASabdQqC9P +0IBvtrrjegiJutNUBZVTaRCr1n1BP5xEFUjYn5VGg/TtyqNHseMnyKbyDBro +1mqzrmJr7W+KNcimwUhifOsf7BQu3xnb6zTofi21qTGCRObHb3ykl9Fgt98r +lZ2RJJKX/0fPqIIGtK6FXE9ssuV4Bu89GtiPna4+j124Cdmm1NBg5+vjLwew +F/v6Gose0+CGnFxUUhSJam3kStqaaeDvrC7DiCbRhZ88/JktNIhaV1Qwg00p +YfscZtDALHdVq3QMiUT4HssNt9PATT2di4p9rN710sIHGlRyyLk5bOWtl8NV +mDSI32TNvzKWRD+7T3WOjuD1zTDK3YLdkUDTrGTRoPzX23ZL7NhBHbbhOA3m +YsrX/4Pdm9PpeWAW73fS2B6eOBKlrxA1i+ImoLc1LGMYu2Gmzz2Ml4A4Pjlj +ntMk+tZXGhLET8CwZVLkBuw9taY3KKsI0NGo+NsVe8Sb/stKlADrkYjFJmwR +GzMxM3EC3jm/m+7H3q0vpoYkCEhOZAT9wE4VLnPRliEgU/siz9YzePzxlyo5 +RQKqc/9NTcQmisuaJZQJEAjMfpOHnZoa+WWtKgHvLceSarBHCHFhPjUC9Fnf +b/Utj4tb+I9rEtBusNN0+98kevxHPG5EC9enHtNohM0cHcga0CGgQUD1pT32 +rsaoF10GBDCW/vYLxR4+VqHwBAjYKywlUoO9xjVa96ExAWfT5tueYRuaWNpU +mRIgHSQv2YGdIvM1stiSgMMZO/aOYT/iq0zNtyIg7+U6+R/YQ5PRt6/YEEBT +1kvgO0sig1cS7y/aE+CzTZEjh02p+jqW6EhAesgIZxP2xWuVPH8fJMB4Q3/E +TuyvIfs1w10J+P7RQ8kMW9hL0iLYjYBwgwETu+W8/UOeAR4EnMhLmXBZnr/h +1AUvbwK6xIiPBPaj1VaFrhS8H5uT5YKW8+Yk6xypBARbdTPDlvMGh9ptCGw9 +c4Po5TzGvRFzfwKm67vFzizX9/DUIgQQIPI86eS55fxCq3W7jxHgbu7lfWE5 +/6LUNt0gAkY8HDovLefTh/dpBBOgpunbloEtRK1yVQshQJk7wyEbW/9A7HHl +MALMNg945C7n77I+Jx9OwCkRq6lr2Mmq0nlSdALU93UI5mM/EGHWiEYRoHcw +pPIG9uCvqhbBGAKGfmp8KljO/xY7yB9LgOjiykuF2HrvrH8sxeHzYrjYsuz/ +ARfdGT8= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, + "PlotRange" -> {{0, 180}, {0.7704559627776972, 1.282137673307774}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.7504249066936067}, + "AxesOrigin" -> {0, 0.7704559627776989}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -6508,20 +6426,20 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, + "PlotRange" -> {{0, 180}, {0.7704559627776972, 1.282137673307774}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.7504249066936067}, + "AxesOrigin" -> {0, 0.7704559627776989}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -6535,104 +6453,104 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK -kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB -QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf -41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 -bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 -urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR -rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 -sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM -w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms -l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo -waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml -Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 -4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d -FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta -CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE -5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv -f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf -FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ -WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C -uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 -3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU -qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 -qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu -Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa -Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k -IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 -hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ -EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ -yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd -Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr -F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa -vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U -HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL -W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs -nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP -wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d -hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz -2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf -81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo -dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF -Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 -CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF -NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ -LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ -ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE -965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz -hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v -DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx -HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px -XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 -z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg -fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e -IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m -fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv -J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu -liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE -f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU -c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc -MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE -M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX -hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv -JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q -12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd -7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB -qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 -3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ -cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ -PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb -tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk -Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv -ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP -cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 -/oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE -EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N -KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af -rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS -8X7ZCUqv+v+2j8xX +1:eJwV1Hk0VVscB3BzA8qQOcpUqURmDfYvc6YMkUxx3XvIi4S4hqgXeUkyRkpC +SjJkaBD1VCpxw4siRcTVdXFNR1LJ2/4466zP2mt/1++3J0XKcUcaDxcXFwt/ +y/8TbTs2P+xoM2IEUk0ybrOQEeemLsW0DC24OAYueyBfL1PFtAGZ6cuMLdue ++lZASPslcl1b15CJXUWPe8FvykB1X3Z+zcI+/0q6Ma70P3T5zln3bOy6jhPX +f2u9R1ZBFVuuYLN7W2Ii63tQrkb1/qvYskxl9+8mnxFlMuVpHrb1ZIxhKOML ++l1pmngD++lvtiC9dBCJhnUWFWF/OCMV/SBoCIUZ7V53G5sjYMomtZjIXyym +pxRbIDn4sPb8CDoymzVVga0gmtd8oh73xfzHowbbTu77LY7JODop9FPjCTZx +Q0lSfSUHzVvRs59jx6keSPiLMYlqytodm7F7pLp2hpVOo8jJVS+7sKluAUcz +kmfQ9s/j0Z+wp65xFVQHzSJn3jvnvmKvVFIXmdaaQ+flyrOnsTOpLyxEJL6j +Stm5vAXsjbcPx2nMf0eWwZI/uEtYyGD7OU5g/Q+UZsS8LY7tr/eFwTb5jcwO +1s7twibpJ/lWb1pEkTOvc82wT9cL7lFb+Qf9Vr+fYY+dAwZ3/RhLqLd4/Rk/ +bGpxs2lIKTe0vNlodQW79FXGwBk5Hig6zZNyC3vqm1dMWjIPPNnxVLUWO2br +XM29IF4oKHph34GdWamoPKnFDyG+K7OE7rBQb8f40z9F/GBpXh+xHnvjzEO3 +NRICcPWiZcV27DIdu3T1eQHoT5iRtMNuqoviPla/Ehw6Ez5kYs+96PzCMhGC +lKRHa7RKWUjMRkgk+qkQvM7tWbDE1uwyBWFDYVCMSbTwxg4Yvn9j5441wJFM +X52KHczD0NwrJAIL8Z4aJDZTqWI64bso2NsxZ9vu4vUhWla1a4uBodjSinFs +nrsjitInxMDa/07sqjJcr/YGx9IxMcixvJdhhu1mklrdNiAOx7yTPJ5jt/uG +hEq1SsBqn4tH28pZqP92ygXvlZIQ2fHvrWns8bHSojtmkkCfizeXqGCh1WFD +nbsbJWHz99flntim8Qd1vO9LgcOSjtws9uObenMl+TKg3v72hOY9FrrJ/Bm+ +K0we+tsU185Vs5Clc2J/aLk8KP4RPqlYg/ObxM3LR+TBvHtS0w5b5+Z2iY2H +FYBLNau0BLuJ4lXDb7QBTJMDin1qWWhmciCCdXYjfDOl1g3dZyHxQNPaGlsl +UD7wxH1LHQuN3Fztbx+gBFE5laePYD/63CE3cU4JhtnXfl3G9rDxPLupUQms +aEdnBR7j+raFO17RUoYnXW1sNrYO+/ZUrJQK7KXO/XjewEIH/QTVrQZVoV9/ +VWZNIwuhcGetQ4uqsAK41UnsrQn5+lSZTRCgUSSt+4yFuIq0jWMdNoH+eea3 +h9jl/e6Hqp9tgoiMo8Sz5/h+upSdkS3cDBPNuUNDTbg+U9sPbIoajDoLDBBv +WKjIKfvTfKwa5MnntVVhp1AGB/iuqkG25vDaRWzq6ZNjCp1qQArGJ2W2sJBo +Qx6Xk8lW0KaJeL9uxedHm7O1Xnkb/LFKSt7TxkJySpfiLgxvB4Ws6HFqJws1 +JJFqCzzqMGd46vgzbI/Zw12EojpMxXc6KXSx0PUmFTVjL3UwVImDj9hKfo/f +/ehWh1S13jtOH3C/ZUxVonUH1Ph/bnD7yELycgrExsOa4HbgJ7PqCwttLw4T ++oW0oPR5nVP8BAtRqGfn1O20YOTTba9p7Bzl9H5vDy340BXw1IvDQryFlfde +0bVgVD84Ztckvm/X2QfTq7RALSp2Zm4Kv6c53nlqytqgpvDhVQyJ9/eCzQ5X +AR3gHvxPtOUXCxWEqNjfZ+hCcZXJbl/BUdQRjvTjiw3hqr7yrX93jiJFr/d2 +nsf2Qu57JSbdcxTRlh5UyEcCCBaaFNy9MIqkxh6tkKIYA+zS0Cx9MYrCtPd8 +Tt9qCoaXx29HLI4iysTvZnG2GZwV44212c1G5cahK/LbLcBi8EGbSjwb3SQD +npVl7od9Wl0h0W/Z6Mc+6bdNcdaQmcdb8UppDPVx8U4P+tjC4L4V5bYxYyho +/fHUM8oH4Jotb8/XrjFUcbS5MSvBHtLcS24Su8ZR1KzM/LajDnA+aez9xuvj +aM7K3OX1EUfgTbs3cHztBDJ0T9vHdHACPgmW4euzE+idTF5Ak/ZBcLoVOFZE +TiDZW2cbSrY4AyVSyjI4lIMeDWy1sRN2gQRZqeaKCQ5S6JryC59wAc0eztsO +/0mknZVWVjRwCFxsm3xLpydRHt/sjvQXrkAPr+vn2jWFHuzT6E2oOwxlK0+d +YJyZQjn6SaK/S90ganat5+Y3U6j9U/E57WR3fH+r2RpC0+i+7TWV4NMecG1S +Y0DIeRpNBzpxBVE9YfP7/LovOdNozlzNn2PiBaumyy539U6jkomPP0L1joDg +NV22r+IMci0o9vUU8gYLM+vafp8ZVFNtfYQ30RtCekQe/lc8gwzl3i2cX/CG +Zye+ff/9dQYpD/j1/nfUB1Se35ehrZ9Fw4J/Hbg25AME75Y6h0OzqCPFztfC +mQIBq7cy6pNmUSY9X/BkBwVaFkunRJ7OooanSwu++33h1VVmYurYLFrrAYna +j30hmv6r10iURBvXvW5f3+ALhhM2N7uxNRm20gJPfYHT2SoSLEYixz3ud3qe ++UJOHuddvjiJMteHt5564wuWEeILPyVIJNt3d21zjy+U8B95mC9LIhUvqRyP +eV/IqGt3LFQmkaE3pyRBhwopWY+/ndMh0a0rU6F2elSwc2LoLmGv65wxkjKg +gqzTqHqELok4ZvNdJbupMENZkiP0SPx+cXEzjKnA3vNgAhmQaM286GExByo0 +Zli4Du0m0fBF3VX5gVTYYrOui2VMopT6mKOPblFhhfGRPvYBEgVqZRvSS6jQ +RHUxsrYnkc2dqlUGpVSY7OqxvIu9OnvkzsNyKqQK73cLcCBRQog9+0EtFWRC +3QOHHUkUo6by1/3nVDgfn27Z7EyigOzWY9X9VOg8wkW3cyfR/jUje0IGqFDu +2TZVhL0lgUtY6ysVIpzPiy5gj4TollcxqfA5Nsuq0INEPnb5E/fGqSB9rPbK +lCeJXPlDgyp/UqG4saAgxptEFqGywWWSNFBie61wpJHoef45q3RpGnB9cqkt +xN7DmFGhy9LAiJyen8HWVG39aKJAA6bRJ+N0gkQy3dEmn1RpkOzIPdLqR6Kx +XX2Sq3VpUCAq7LItgESXeG488XPC84X3xecG4f41hHJsnWkwdTVlvA873p0e +on2IBq+CJ0Y3HicRvdZ+85IbDf6xqioqxvYhuNMuU3DeTkmx0mASabdQqC9P +0IBvtrrjegiJutNUBZVTaRCr1n1BP5xEFUjYn5VGg/TtyqNHseMnyKbyDBro +1mqzrmJr7W+KNcimwUhifOsf7BQu3xnb6zTofi21qTGCRObHb3ykl9Fgt98r +lZ2RJJKX/0fPqIIGtK6FXE9ssuV4Bu89GtiPna4+j124Cdmm1NBg5+vjLwew +F/v6Gose0+CGnFxUUhSJam3kStqaaeDvrC7DiCbRhZ88/JktNIhaV1Qwg00p +YfscZtDALHdVq3QMiUT4HssNt9PATT2di4p9rN710sIHGlRyyLk5bOWtl8NV +mDSI32TNvzKWRD+7T3WOjuD1zTDK3YLdkUDTrGTRoPzX23ZL7NhBHbbhOA3m +YsrX/4Pdm9PpeWAW73fS2B6eOBKlrxA1i+ImoLc1LGMYu2Gmzz2Ml4A4Pjlj +ntMk+tZXGhLET8CwZVLkBuw9taY3KKsI0NGo+NsVe8Sb/stKlADrkYjFJmwR +GzMxM3EC3jm/m+7H3q0vpoYkCEhOZAT9wE4VLnPRliEgU/siz9YzePzxlyo5 +RQKqc/9NTcQmisuaJZQJEAjMfpOHnZoa+WWtKgHvLceSarBHCHFhPjUC9Fnf +b/Utj4tb+I9rEtBusNN0+98kevxHPG5EC9enHtNohM0cHcga0CGgQUD1pT32 +rsaoF10GBDCW/vYLxR4+VqHwBAjYKywlUoO9xjVa96ExAWfT5tueYRuaWNpU +mRIgHSQv2YGdIvM1stiSgMMZO/aOYT/iq0zNtyIg7+U6+R/YQ5PRt6/YEEBT +1kvgO0sig1cS7y/aE+CzTZEjh02p+jqW6EhAesgIZxP2xWuVPH8fJMB4Q3/E +TuyvIfs1w10J+P7RQ8kMW9hL0iLYjYBwgwETu+W8/UOeAR4EnMhLmXBZnr/h +1AUvbwK6xIiPBPaj1VaFrhS8H5uT5YKW8+Yk6xypBARbdTPDlvMGh9ptCGw9 +c4Po5TzGvRFzfwKm67vFzizX9/DUIgQQIPI86eS55fxCq3W7jxHgbu7lfWE5 +/6LUNt0gAkY8HDovLefTh/dpBBOgpunbloEtRK1yVQshQJk7wyEbW/9A7HHl +MALMNg945C7n77I+Jx9OwCkRq6lr2Mmq0nlSdALU93UI5mM/EGHWiEYRoHcw +pPIG9uCvqhbBGAKGfmp8KljO/xY7yB9LgOjiykuF2HrvrH8sxeHzYrjYsuz/ +ARfdGT8= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, + "PlotRange" -> {{0, 180}, {0.7704559627776972, 1.282137673307774}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.7504249066936067}, + "AxesOrigin" -> {0, 0.7704559627776989}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -6642,7 +6560,8 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.7504249066936067}, + AxesOrigin->{0, 0.7704559627776989}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -6670,7 +6589,8 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.7504249066936051, 1.313047485013753}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.7704559627776972, 1.282137673307774}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -6678,9 +6598,8 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913440619685707`*^9}, - CellLabel-> - "Out[417]=",ExpressionUUID->"0e6ef056-d4e3-ac4d-9f2a-df071f8decb1"] + CellChangeTimes->{3.9913440619685707`*^9, 3.994256964583728*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"33d6e8e4-4e46-4148-9944-b662dca0f1d9"] }, Open ]], Cell[CellGroupData[{ @@ -6743,340 +6662,157 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918501659425144`*^9},ExpressionUUID->"06bd0169-a5a6-404c-935d-\ -e1a61565f71e"], + CellChangeTimes->{3.9918501659425144`*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"06bd0169-a5a6-404c-935d-e1a61565f71e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.7414575136308495`*^-273\\\", \ + "\"\\!\\(\\*FractionBox[\\\"7.697911699631694`*^-268\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, + 17, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913440621885586`*^9, 3.9942569650106077`*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"54207490-50d5-4428-bb77-31c475ceb118"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8738592433600136`*^-279\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 418, - 441, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913440621885586`*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 95, + 18, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913440621885586`*^9, 3.9942569650219193`*^9}, CellLabel-> "During evaluation of \ -In[418]:=",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], +In[95]:=",ExpressionUUID->"2ee773b3-dabd-43e3-baf1-b80c40f7a4cc"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.133412609607657`*^-284\\\", \ + "\"\\!\\(\\*FractionBox[\\\"4.561429905845453`*^-291\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 418, 442, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913440621975574`*^9}, +to represent as a normalized machine number; precision may be lost.\"", 2, 95, + 19, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913440621885586`*^9, 3.994256965029985*^9}, CellLabel-> "During evaluation of \ -In[418]:=",ExpressionUUID->"637082a9-fe74-7345-8895-dee77343ee6f"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.599262146182568`*^-296\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 418, 443, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991344062205559*^9}, - CellLabel-> - "During evaluation of \ -In[418]:=",ExpressionUUID->"b2e7262c-7c6d-d94d-a545-ea4b363e579a"], +In[95]:=",ExpressionUUID->"21e016a1-b4da-4744-83dc-40742fd6153c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 418, 444, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134406221356*^9}, +during this calculation.\"", 2, 95, 20, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913440621885586`*^9, 3.99425696503714*^9}, CellLabel-> "During evaluation of \ -In[418]:=",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], +In[95]:=",ExpressionUUID->"708de067-4224-4b3c-913e-30d4cc835db6"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ -494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L -A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ -HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq -DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ -bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn -5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ -Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC -H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF -7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ -+1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 -gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq -rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG -C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ -Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe -elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 -df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ -vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB -B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD -TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti -B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 -wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls -L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN -3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI -ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya -zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u -TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X -WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF -ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s -Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff -QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn -t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi -Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV -7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih -Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde -vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA -dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 -BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G -LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD -55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK -+Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM -zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk -rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a -uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 -8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 -ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt -FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK -+fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em -6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 -q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY -Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF -pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU -XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz -qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb -6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 -e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud -zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg -7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY -jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L -EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 -0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e -ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn -9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY -hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy -8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp -Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd -Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM -VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW -w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 -uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj -yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt -r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt -06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 -XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP -R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np -bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe -GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb -bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl -X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq -Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb -Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 -q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E -97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo -JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT -bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr -PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A -kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me -BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF -bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z -+FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 -2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG -lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 -7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U -sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw -pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa -vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW -g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn -hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 -C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 -mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i -3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg -GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ -cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI -hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R -E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ -T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv -+isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 -VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq -LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu -2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY -hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL -bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ -Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo -wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 -uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m -MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV -LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY -esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX -Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS -oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 -2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F -cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 -hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU -s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k -7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe -ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 -H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX -BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ -HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR -XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz -oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 -YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO -8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK -+5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR -T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 -g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn -ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz -95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC -nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf -TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ -MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k -Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH -lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn -0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr -zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD -F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 -GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ -V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu -e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW -zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V -vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 -twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 -uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx -5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 -uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc -0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX -Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO -/joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r -ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht -Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI -W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF -6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU -HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A -9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e -E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V -M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb -IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg -7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf -AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 -oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 -vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC -1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 -P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy -0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg -l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ -riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG -/aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c -4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 -BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st -/KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq -DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp -13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj -mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q -JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI -Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 -1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F -4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk -Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha -+OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl -jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl -dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX -jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 -25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB -dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM -4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 -A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 -VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd -zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo -9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 -NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh -qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq -zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd -ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo -oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I -DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf -lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl -5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL -M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs -h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j -1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv -U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg -75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS -kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG -hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN -RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 -a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x -UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 -ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu -8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX -u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI -RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj -ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC -sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR -i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww -lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou -LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 -Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE -QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK -74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK -nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF -xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH -KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY -uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 -9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr -oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E -iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w -L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U -ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t -Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW -38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs -grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB -TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj -yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL -GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l -TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq -WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw -PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 -/KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx -JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 -qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl -p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx -N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x -hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn -izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE -LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM -rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE -p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 -YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH -FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX -piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz -X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 -+VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO -phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg -9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC -ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU -ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 -HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t -BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF -ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM -mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI -FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM -xZ+NDXq9HfXOhZcGEP8DWaJNdQ== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k0Ff8bB/C+KSRbZN/unXst2Xdfy/U8pIj2qEhUkpASZS1bX0VJolWh +0CbcufalKGSrFNmFknZEdpHf/P6YM+d1zpwzz8zn8zzvGfqBY9vdly5ZsmSB +Ov5/nuprqGFeyDT36XsTevILmLemSgZbdEbBfO2eOeW1coBibw5IdiYCj5qi +8WdLDQjYmtXB1ZkOBr0pkaWWLFg1IpE425EHn8TDbUMsN0H/k83HJjqqwF+m +wKrQYi+sZ/7oHetogSM2edZPzX1gtsPo6mjHAHTofLEa0T0N1WsfZDanj0Pj +4crNxYbxINtf+uWA+gK8Cvchnupeg9VHXLN41nJhg0CX18EPtyFRZ335Zgde +bHuT0hPz/i503dB+NiYsgCw16/2ZrZlwITP8zVKpVfjXNYXIqX4AElc+xSal +iOKyc5ULhjuy4Jz9BvOWKTHczw650uORDdIFTdJL/xFHtdTzWXq+2ZAraj+t +s1Ici0S930cHZUN7iwt5WUEcy9tqL0nGZgNz2wlimw11fWKo9PSjbKjalMb9 +9qY4uqTxjl//kQ0L6yebXptJ4P0vjIIDHjngb3zXtSFKEg8tsdIe35wLtncE +J+ziJPFDcdWjXQ65QPCcimm6Koly/wh3Fe3JhbetOznvHkpig/bNXe6Hc0HT +l5+rr0kSW222NEZF5sK3+4H3f0tL4eWGOJPKvFxwXr15WCZfCmVqSSOzVWzQ +Cy2PTH0ihVIF801T4mzgG1ARp9dKYSZbSDRblg2lbC5Q6pLCs9eb7nCrsEHc +rjRBe1EK5ez6Xoeas+FtJFN/nZ00hrxO3njIiw1Wv+ZCjn6SxrGn2nKmFWwI +trmi+nxIGnfHzNzWqWZD7l2NbtEpaYTUgj9EPRsk7fcZl/LKYE4G386pZjYM +lbyY5tKUwfrgiDDXz2xIiko4cTNIBumyDS0py0kYEFM6WiMgi/rfd3y+uIYE +iWOVchISsrgi35NerEbCxvrdrz1psrj9gVVTrwYJRSEX1IX0ZLFmPC2EoUvC ++f7RH467ZfGrihctwYQE3UflHr/SZfFGlVvRiC0JkWbb9kv/K4cLos19zz1J +sHFJ/W1kKYep+/v3PfcmQTDi5xmHjXJ4Nk5/8KkPCbero+8n7JPDtTEXfuUc +J6HEtuwnd6wcxtcvV/AKJmF0NyNgvEsOeZO6Vu+IIcHl5OT5V6HyqOonrfw9 +gwTF65ayP6Ll8fAKVbvYeyT1/JdyeBLk0fjM9yClBySEzK95a5kpj1/yKn7v +yiLh6hkXsdJX8jiH/YevkyS8ulyXdk9OAU39M7JinpBgknuzIKxSAZ84KgoY +tZBg1dG0MFKvgH/eTKS5vSNh85Jl1q4tClh+pf7hxVYS3LYf7YLPCvj6QY9c +dzsJ60Pp4RHLaWhmfjjNvocEX4WpDAs1Gh626dzy9hMJk/kJ9bNaNFzhuNan +dZCqz0ZtmKNPwzkpf+72zyREH99nSJjTsCL7Xk7zVxKSqxvrl26joQ1Dpjvr +Jwk1HmnD1QE0jKqw5/r8m4QN88Yip0JpuHdT58rn4yQ0JbQa6kfQcCYu6Fry +BAldpSsiMmNp+J9vqd76KRJGVp4Qib5Nw3305cnhsyRIkjZG66tomHbh88nQ +RRJSrD7t+VtLw3mt3e+0lnCA6DodUfSShi/etpR+pKyxNL9BqY2G7xNyGeZL +OWBpL+fM842GB7/XBHYt48CRmbGIegE6lqe5xSav4IDJ8UPiX0ToeOKqwRE9 +Pg7w/uh+zCVJx/29p/waKN/rqW43J+jYdenzz6GVHOiruKpeaEhHW+M7GasE +OZBtxFfVYkrHK3gjP4lyCBm2axTpKKguMCQixAHxdI8oNTs6Xj262MkrzIEt +0cadd13puP6GamHLKg7I/83xqTxIR5tra2TMRTgwFEBw9XrSUepdT+59yjGH +V2pKnqDj0NelB46JcmDnx/Bqg2A6hsy8jnpDmek0sXtHGB1Xlcy8U1/NgWd2 +vWfiY+ioco7O1085vmabVPZFOrJPhY7qiXHAmVWb25BIx51DQyvOUp7VZHct +S6Hjheq2Tro4B3RFIrVCOXRsMGTMGUlwYMmFyZobRXSMmrgeF0C5icvLqaic +jn+cC3flUfae3B499oKOD35WJtMlqfd5tE5a6CUdTR5IrXagzPvVlFR/S8fd +RpP10ZQzO5k9Ht1UPeEi3/oo+2276RvdT0cBqN3BI8UBbBTgzhiko92H/gV1 +yoJro249+07HZ+LSX7dQ7i2f0u4boeNtC21hX8rZ+t61f8bp6OndF3yRckhO +/x6pWTqmbfjIfEjZRsl+zPAvHeXMplY9oyyeVn/WnotAzsYeizbKgxIsWT9e +Au9qbin8SjkvgcO5JECgmvkqn2nKESuUrHNECBSO+Oi5TJpav6jk940SBIrc +jcgWpCz/R9DvmyyBYZNsA3HKQ/5neLgJAnODdLhlKJcNTd9mKBMY86pOXo5y +jPsRXQt1AoWMDSNkKe/s+1DnokNgz2NUk6LM3OWw95QhgfeKH9NEKf9+0/D7 +pimBT5PM9vNRfmZjHlOMBN6RKR3+S9UX/zxPrm0dgV5NX2tHKTubKOf/tiXQ +u+nScD9l1fxbNsJbCUz8EHTgFeVZNeE+DQcCVx7xViqiPJUiHannRODcQ57C +FMoTQopMY1cC7a0Vc6Ioj0Vq1ZkfJNDj4Rkhd8oj48ZeVp4EulYNvLei/NPd +SsD2KIE1ClziBOVvHZvJLf4ECvbfK5+n1neg3G3K6TSBpn3BW7Io92scvbkv +isDHJtpwmvL7tCCzQ+cINNfxT91Euf3MxajjlwlM8mbnfqH217vJ64qB1wjc +7qi7n035rUd6/albBK7Xdzh7knKjXbFgzD0CQ42uqM1R+7fu6XPOxSwCU2PM +c0oo12i9sk9iE9gucS/zBOUK0Y/JqaUE/nRtmB6k9n9eD59y4WtqfSLD1j2g ++oW9SayxrIXAh/XiF7ZRzq5U8HnWQaDqiYqNs1S/3c/Qz3/5kUCnT8esLSgn +e7vAwCSBN+4MaudT/Xy99/DA1zkC6U9P+2ygfGWLf/TwIoG9f26p91L9H68X +83JmBQPPv802WKDmQ9Qfzi4heQaWZyucV6DmR7jPk7nVDAa2/e0duyvAgVP9 +tSnSKgws6ykZoFMOqO75pKjLQCiUcpPmp/rvwnJfs/UMDHw3NzlMzbPDC0Ki +lnYMVH/LX+FM+dAx6SLrrQy8c2pcrIGXA/t2aM1vd2KgVmhmUDIPB+xlHGM8 +jzJQvzGQTlvOAbPH2XeuXWNgY3fi82Jq3vbQHqetu8XAbxBwkJ9yyLVHqRNp +DHTxODrh8peE4sj7t7c/YuBHWmDfwjyVt7vv3BB8wsDnfRMjxBwJa5ZfSTj7 +kYEzrVIZfNS8rw9JvGTwhYGbei/7mFN5cGg0IX7wBwPP7WJr+1J5kdlzMc5y +goFWWY0Zr0dJoOWdi/nLzUR2mOJ232ESxF1DIwLUmRjHTDrp8IWEwtbgcEUd +Ji7x12Z4UvlkbxsU1mrAxMBljm0hVH4lGpw8pQtMHDmz1fbGAAkC/MeCRrYx +0ciaL668j4RlpQd8DwUy8bSmnlQmlY9jIrb7dlYxsfa7ccXSFyR0HiHeetUx +8aH9K6XKahKe1c5B+CsmvnO4tCu4ioSEkMcKD9uZmMEixb5WkqA9wN8/+4OJ +L9XzaA/LSDjKebM3RVQR920+7/CcTcKPLQ57Bg8qYgER4r3rBgktjzRezngq +oks7tDVdI6GMi9tU4JgicmevUbG6SkJscZG0YbAi0pRTL6okkqCiINl97qIi +ZuH5E50XSPAY6d6tVqSIsk880trCSBiM27fTj0cJG5pH+ze6Uff/oU5o8yuh +y0Dj8vT9JExbzw4PCyvhgyD3wElXEvi4EqM9pZWwbcTN4rozVX9wdcE+DSXU +X7s+ttaBhNPuSqJbdihhybQRu9Waev/mQ2/U0pTQ0ePI5UJVKt9/BW74bKiM +2ctMjYI62CCrI3+W10wZi73yJxda2DDiV1OlZqGMaumHTCOa2HBlStjMz04Z +vVRb3UNesKFv4ZHmoqsy3rz7b9C6fDb48b8XlYpVxk1Ve9P+jWdD8hrs29ij +jMfnPQ9mWFDfj268/gXhKpjys7pGMC2X+p+QWHquag3y7TZUsYIcEHmtFE/+ +UsXJ46W1T9ofg2wMe6uhoTrObciqXm6QBTfUjIVFPTQwynBdul3KQ2iUtjAY +v6yJDYuzKnFcD8BEtipBq10LSxVXcl+3vAeCXOkn9kdp47XpbBuDuxkgH6lg +5qikgy0m6rUbBu/CCkXnou11Oqir/nPPvOkd0GRJsQP36iL/uhNLNcNSwK9P +pNp2iR4OpAcXTXglw6/xOIcNN/RQbGHYxLjwOlhr1SZv0NDH37ZtV5sNr0LF +uOmf6SZ93HL8q9hCXiIcVdftbnY3wKis5mUYmwCskYOtjisMUVDnXUlOfRys +Y0puEkg3xF9GHeMFSrGgEnE+qMrICMWHQrnvDEeDqrtxpWK3EXq/KCvNehkF +7hWH/ys4/i+qDnj+90snAirvtB4cEzPGb/fGzpR5hsLEw8VprWJj/PfayuRm +ZiC4KT5ekbzJBIe0t/7DzvKHMdUkw7xRE5zJ3+ma4+4LJZl/Pk7GmKLekKY7 +O9YbnKwYaCpvhsE/5GzzJT1AxudcqeYzM7wlU8zvP38AxPiOcDbtYqFQQFni +sWBXyFx7OmTUkYWlomVxL1xcQfd0/NokZxbeqrM30bJyhc2jZFvnfhYyPrlG +soRc4Wz75KzbERZaeA4EWN13gZn0cMuQSBbWcD9tGuvYC92mSe/uP2Zh3e09 +ScEbnOHwyczbG3JZuK5/b6KWjjNM5Ra6D5Es/Cczvm1a0hlEiM5pnSIWzgeU +/Kn4tgfseOVknz5j4ZEDzfFKsXvgSev9g+/aWPi+55fMttdOYCtYohHQyULa +B1RRKnKCTuuGKckeFuqxy+v405xgouxnjMsHFg5Wnr8ieNwJNO5q53z/wcI+ +SyGDT2JO8KTbIiBumIVcJUJZaxcdwXb1DtAaZaGytseewm+OcOjcyeYTkyw8 +tp/H5lW5I0w8O5ssMcNC71PNPsfvOULU3HW3sjkW/ucymal8yRGE9R+p711g +od9ixcBIkCOk+pRNLi6y8GNXmGzdAUf4H9D9LaM= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7090,299 +6826,113 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ -494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L -A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ -HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq -DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ -bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn -5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ -Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC -H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF -7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ -+1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 -gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq -rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG -C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ -Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe -elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 -df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ -vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB -B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD -TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti -B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 -wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls -L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN -3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI -ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya -zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u -TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X -WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF -ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s -Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff -QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn -t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi -Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV -7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih -Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde -vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA -dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 -BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G -LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD -55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK -+Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM -zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk -rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a -uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 -8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 -ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt -FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK -+fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em -6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 -q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY -Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF -pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU -XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz -qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb -6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 -e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud -zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg -7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY -jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L -EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 -0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e -ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn -9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY -hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy -8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp -Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd -Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM -VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW -w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 -uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj -yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt -r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt -06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 -XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP -R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np -bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe -GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb -bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl -X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq -Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb -Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 -q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E -97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo -JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT -bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr -PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A -kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me -BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF -bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z -+FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 -2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG -lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 -7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U -sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw -pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa -vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW -g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn -hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 -C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 -mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i -3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg -GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ -cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI -hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R -E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ -T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv -+isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 -VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq -LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu -2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY -hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL -bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ -Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo -wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 -uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m -MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV -LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY -esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX -Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS -oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 -2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F -cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 -hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU -s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k -7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe -ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 -H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX -BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ -HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR -XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz -oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 -YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO -8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK -+5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR -T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 -g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn -ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz -95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC -nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf -TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ -MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k -Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH -lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn -0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr -zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD -F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 -GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ -V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu -e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW -zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V -vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 -twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 -uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx -5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 -uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc -0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX -Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO -/joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r -ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht -Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI -W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF -6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU -HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A -9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e -E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V -M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb -IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg -7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf -AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 -oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 -vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC -1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 -P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy -0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg -l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ -riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG -/aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c -4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 -BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st -/KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq -DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp -13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj -mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q -JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI -Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 -1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F -4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk -Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha -+OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl -jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl -dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX -jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 -25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB -dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM -4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 -A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 -VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd -zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo -9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 -NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh -qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq -zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd -ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo -oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I -DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf -lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl -5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL -M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs -h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j -1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv -U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg -75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS -kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG -hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN -RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 -a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x -UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 -ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu -8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX -u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI -RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj -ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC -sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR -i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww -lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou -LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 -Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE -QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK -74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK -nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF -xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH -KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY -uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 -9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr -oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E -iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w -L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U -ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t -Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW -38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs -grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB -TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj -yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL -GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l -TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq -WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw -PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 -/KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx -JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 -qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl -p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx -N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x -hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn -izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE -LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM -rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE -p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 -YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH -FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX -piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz -X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 -+VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO -phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg -9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC -ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU -ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 -HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t -BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF -ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM -mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI -FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM -xZ+NDXq9HfXOhZcGEP8DWaJNdQ== +1:eJwV13k0Ff8bB/C+KSRbZN/unXst2Xdfy/U8pIj2qEhUkpASZS1bX0VJolWh +0CbcufalKGSrFNmFknZEdpHf/P6YM+d1zpwzz8zn8zzvGfqBY9vdly5ZsmSB +Ov5/nuprqGFeyDT36XsTevILmLemSgZbdEbBfO2eOeW1coBibw5IdiYCj5qi +8WdLDQjYmtXB1ZkOBr0pkaWWLFg1IpE425EHn8TDbUMsN0H/k83HJjqqwF+m +wKrQYi+sZ/7oHetogSM2edZPzX1gtsPo6mjHAHTofLEa0T0N1WsfZDanj0Pj +4crNxYbxINtf+uWA+gK8Cvchnupeg9VHXLN41nJhg0CX18EPtyFRZ335Zgde +bHuT0hPz/i503dB+NiYsgCw16/2ZrZlwITP8zVKpVfjXNYXIqX4AElc+xSal +iOKyc5ULhjuy4Jz9BvOWKTHczw650uORDdIFTdJL/xFHtdTzWXq+2ZAraj+t +s1Ici0S930cHZUN7iwt5WUEcy9tqL0nGZgNz2wlimw11fWKo9PSjbKjalMb9 +9qY4uqTxjl//kQ0L6yebXptJ4P0vjIIDHjngb3zXtSFKEg8tsdIe35wLtncE +J+ziJPFDcdWjXQ65QPCcimm6Koly/wh3Fe3JhbetOznvHkpig/bNXe6Hc0HT +l5+rr0kSW222NEZF5sK3+4H3f0tL4eWGOJPKvFxwXr15WCZfCmVqSSOzVWzQ +Cy2PTH0ihVIF801T4mzgG1ARp9dKYSZbSDRblg2lbC5Q6pLCs9eb7nCrsEHc +rjRBe1EK5ez6Xoeas+FtJFN/nZ00hrxO3njIiw1Wv+ZCjn6SxrGn2nKmFWwI +trmi+nxIGnfHzNzWqWZD7l2NbtEpaYTUgj9EPRsk7fcZl/LKYE4G386pZjYM +lbyY5tKUwfrgiDDXz2xIiko4cTNIBumyDS0py0kYEFM6WiMgi/rfd3y+uIYE +iWOVchISsrgi35NerEbCxvrdrz1psrj9gVVTrwYJRSEX1IX0ZLFmPC2EoUvC ++f7RH467ZfGrihctwYQE3UflHr/SZfFGlVvRiC0JkWbb9kv/K4cLos19zz1J +sHFJ/W1kKYep+/v3PfcmQTDi5xmHjXJ4Nk5/8KkPCbero+8n7JPDtTEXfuUc +J6HEtuwnd6wcxtcvV/AKJmF0NyNgvEsOeZO6Vu+IIcHl5OT5V6HyqOonrfw9 +gwTF65ayP6Ll8fAKVbvYeyT1/JdyeBLk0fjM9yClBySEzK95a5kpj1/yKn7v +yiLh6hkXsdJX8jiH/YevkyS8ulyXdk9OAU39M7JinpBgknuzIKxSAZ84KgoY +tZBg1dG0MFKvgH/eTKS5vSNh85Jl1q4tClh+pf7hxVYS3LYf7YLPCvj6QY9c +dzsJ60Pp4RHLaWhmfjjNvocEX4WpDAs1Gh626dzy9hMJk/kJ9bNaNFzhuNan +dZCqz0ZtmKNPwzkpf+72zyREH99nSJjTsCL7Xk7zVxKSqxvrl26joQ1Dpjvr +Jwk1HmnD1QE0jKqw5/r8m4QN88Yip0JpuHdT58rn4yQ0JbQa6kfQcCYu6Fry +BAldpSsiMmNp+J9vqd76KRJGVp4Qib5Nw3305cnhsyRIkjZG66tomHbh88nQ +RRJSrD7t+VtLw3mt3e+0lnCA6DodUfSShi/etpR+pKyxNL9BqY2G7xNyGeZL +OWBpL+fM842GB7/XBHYt48CRmbGIegE6lqe5xSav4IDJ8UPiX0ToeOKqwRE9 +Pg7w/uh+zCVJx/29p/waKN/rqW43J+jYdenzz6GVHOiruKpeaEhHW+M7GasE +OZBtxFfVYkrHK3gjP4lyCBm2axTpKKguMCQixAHxdI8oNTs6Xj262MkrzIEt +0cadd13puP6GamHLKg7I/83xqTxIR5tra2TMRTgwFEBw9XrSUepdT+59yjGH +V2pKnqDj0NelB46JcmDnx/Bqg2A6hsy8jnpDmek0sXtHGB1Xlcy8U1/NgWd2 +vWfiY+ioco7O1085vmabVPZFOrJPhY7qiXHAmVWb25BIx51DQyvOUp7VZHct +S6Hjheq2Tro4B3RFIrVCOXRsMGTMGUlwYMmFyZobRXSMmrgeF0C5icvLqaic +jn+cC3flUfae3B499oKOD35WJtMlqfd5tE5a6CUdTR5IrXagzPvVlFR/S8fd +RpP10ZQzO5k9Ht1UPeEi3/oo+2276RvdT0cBqN3BI8UBbBTgzhiko92H/gV1 +yoJro249+07HZ+LSX7dQ7i2f0u4boeNtC21hX8rZ+t61f8bp6OndF3yRckhO +/x6pWTqmbfjIfEjZRsl+zPAvHeXMplY9oyyeVn/WnotAzsYeizbKgxIsWT9e +Au9qbin8SjkvgcO5JECgmvkqn2nKESuUrHNECBSO+Oi5TJpav6jk940SBIrc +jcgWpCz/R9DvmyyBYZNsA3HKQ/5neLgJAnODdLhlKJcNTd9mKBMY86pOXo5y +jPsRXQt1AoWMDSNkKe/s+1DnokNgz2NUk6LM3OWw95QhgfeKH9NEKf9+0/D7 +pimBT5PM9vNRfmZjHlOMBN6RKR3+S9UX/zxPrm0dgV5NX2tHKTubKOf/tiXQ +u+nScD9l1fxbNsJbCUz8EHTgFeVZNeE+DQcCVx7xViqiPJUiHannRODcQ57C +FMoTQopMY1cC7a0Vc6Ioj0Vq1ZkfJNDj4Rkhd8oj48ZeVp4EulYNvLei/NPd +SsD2KIE1ClziBOVvHZvJLf4ECvbfK5+n1neg3G3K6TSBpn3BW7Io92scvbkv +isDHJtpwmvL7tCCzQ+cINNfxT91Euf3MxajjlwlM8mbnfqH217vJ64qB1wjc +7qi7n035rUd6/albBK7Xdzh7knKjXbFgzD0CQ42uqM1R+7fu6XPOxSwCU2PM +c0oo12i9sk9iE9gucS/zBOUK0Y/JqaUE/nRtmB6k9n9eD59y4WtqfSLD1j2g ++oW9SayxrIXAh/XiF7ZRzq5U8HnWQaDqiYqNs1S/3c/Qz3/5kUCnT8esLSgn +e7vAwCSBN+4MaudT/Xy99/DA1zkC6U9P+2ygfGWLf/TwIoG9f26p91L9H68X +83JmBQPPv802WKDmQ9Qfzi4heQaWZyucV6DmR7jPk7nVDAa2/e0duyvAgVP9 +tSnSKgws6ykZoFMOqO75pKjLQCiUcpPmp/rvwnJfs/UMDHw3NzlMzbPDC0Ki +lnYMVH/LX+FM+dAx6SLrrQy8c2pcrIGXA/t2aM1vd2KgVmhmUDIPB+xlHGM8 +jzJQvzGQTlvOAbPH2XeuXWNgY3fi82Jq3vbQHqetu8XAbxBwkJ9yyLVHqRNp +DHTxODrh8peE4sj7t7c/YuBHWmDfwjyVt7vv3BB8wsDnfRMjxBwJa5ZfSTj7 +kYEzrVIZfNS8rw9JvGTwhYGbei/7mFN5cGg0IX7wBwPP7WJr+1J5kdlzMc5y +goFWWY0Zr0dJoOWdi/nLzUR2mOJ232ESxF1DIwLUmRjHTDrp8IWEwtbgcEUd +Ji7x12Z4UvlkbxsU1mrAxMBljm0hVH4lGpw8pQtMHDmz1fbGAAkC/MeCRrYx +0ciaL668j4RlpQd8DwUy8bSmnlQmlY9jIrb7dlYxsfa7ccXSFyR0HiHeetUx +8aH9K6XKahKe1c5B+CsmvnO4tCu4ioSEkMcKD9uZmMEixb5WkqA9wN8/+4OJ +L9XzaA/LSDjKebM3RVQR920+7/CcTcKPLQ57Bg8qYgER4r3rBgktjzRezngq +oks7tDVdI6GMi9tU4JgicmevUbG6SkJscZG0YbAi0pRTL6okkqCiINl97qIi +ZuH5E50XSPAY6d6tVqSIsk880trCSBiM27fTj0cJG5pH+ze6Uff/oU5o8yuh +y0Dj8vT9JExbzw4PCyvhgyD3wElXEvi4EqM9pZWwbcTN4rozVX9wdcE+DSXU +X7s+ttaBhNPuSqJbdihhybQRu9Waev/mQ2/U0pTQ0ePI5UJVKt9/BW74bKiM +2ctMjYI62CCrI3+W10wZi73yJxda2DDiV1OlZqGMaumHTCOa2HBlStjMz04Z +vVRb3UNesKFv4ZHmoqsy3rz7b9C6fDb48b8XlYpVxk1Ve9P+jWdD8hrs29ij +jMfnPQ9mWFDfj268/gXhKpjys7pGMC2X+p+QWHquag3y7TZUsYIcEHmtFE/+ +UsXJ46W1T9ofg2wMe6uhoTrObciqXm6QBTfUjIVFPTQwynBdul3KQ2iUtjAY +v6yJDYuzKnFcD8BEtipBq10LSxVXcl+3vAeCXOkn9kdp47XpbBuDuxkgH6lg +5qikgy0m6rUbBu/CCkXnou11Oqir/nPPvOkd0GRJsQP36iL/uhNLNcNSwK9P +pNp2iR4OpAcXTXglw6/xOIcNN/RQbGHYxLjwOlhr1SZv0NDH37ZtV5sNr0LF +uOmf6SZ93HL8q9hCXiIcVdftbnY3wKis5mUYmwCskYOtjisMUVDnXUlOfRys +Y0puEkg3xF9GHeMFSrGgEnE+qMrICMWHQrnvDEeDqrtxpWK3EXq/KCvNehkF +7hWH/ys4/i+qDnj+90snAirvtB4cEzPGb/fGzpR5hsLEw8VprWJj/PfayuRm +ZiC4KT5ekbzJBIe0t/7DzvKHMdUkw7xRE5zJ3+ma4+4LJZl/Pk7GmKLekKY7 +O9YbnKwYaCpvhsE/5GzzJT1AxudcqeYzM7wlU8zvP38AxPiOcDbtYqFQQFni +sWBXyFx7OmTUkYWlomVxL1xcQfd0/NokZxbeqrM30bJyhc2jZFvnfhYyPrlG +soRc4Wz75KzbERZaeA4EWN13gZn0cMuQSBbWcD9tGuvYC92mSe/uP2Zh3e09 +ScEbnOHwyczbG3JZuK5/b6KWjjNM5Ra6D5Es/Cczvm1a0hlEiM5pnSIWzgeU +/Kn4tgfseOVknz5j4ZEDzfFKsXvgSev9g+/aWPi+55fMttdOYCtYohHQyULa +B1RRKnKCTuuGKckeFuqxy+v405xgouxnjMsHFg5Wnr8ieNwJNO5q53z/wcI+ +SyGDT2JO8KTbIiBumIVcJUJZaxcdwXb1DtAaZaGytseewm+OcOjcyeYTkyw8 +tp/H5lW5I0w8O5ssMcNC71PNPsfvOULU3HW3sjkW/ucymal8yRGE9R+p711g +od9ixcBIkCOk+pRNLi6y8GNXmGzdAUf4H9D9LaM= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "PlotRange" -> {{0, 30}, {0., 0.06680471421695888}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7394,19 +6944,19 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "PlotRange" -> {{0, 30}, {0., 0.06680471421695888}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7420,298 +6970,112 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ -494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L -A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ -HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq -DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ -bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn -5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ -Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC -H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF -7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ -+1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 -gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq -rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG -C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ -Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe -elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 -df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ -vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB -B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD -TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti -B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 -wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls -L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN -3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI -ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya -zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u -TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X -WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF -ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s -Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff -QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn -t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi -Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV -7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih -Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde -vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA -dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 -BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G -LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD -55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK -+Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM -zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk -rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a -uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 -8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 -ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt -FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK -+fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em -6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 -q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY -Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF -pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU -XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz -qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb -6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 -e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud -zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg -7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY -jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L -EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 -0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e -ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn -9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY -hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy -8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp -Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd -Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM -VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW -w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 -uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj -yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt -r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt -06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 -XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP -R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np -bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe -GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb -bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl -X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq -Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb -Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 -q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E -97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo -JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT -bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr -PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A -kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me -BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF -bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z -+FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 -2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG -lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 -7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U -sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw -pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa -vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW -g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn -hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 -C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 -mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i -3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg -GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ -cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI -hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R -E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ -T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv -+isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 -VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq -LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu -2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY -hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL -bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ -Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo -wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 -uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m -MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV -LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY -esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX -Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS -oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 -2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F -cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 -hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU -s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k -7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe -ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 -H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX -BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ -HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR -XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz -oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 -YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO -8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK -+5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR -T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 -g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn -ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz -95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC -nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf -TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ -MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k -Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH -lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn -0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr -zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD -F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 -GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ -V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu -e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW -zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V -vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 -twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 -uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx -5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 -uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc -0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX -Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO -/joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r -ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht -Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI -W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF -6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU -HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A -9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e -E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V -M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb -IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg -7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf -AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 -oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 -vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC -1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 -P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy -0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg -l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ -riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG -/aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c -4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 -BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st -/KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq -DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp -13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj -mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q -JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI -Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 -1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F -4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk -Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha -+OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl -jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl -dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX -jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 -25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB -dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM -4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 -A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 -VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd -zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo -9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 -NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh -qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq -zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd -ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo -oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I -DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf -lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl -5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL -M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs -h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j -1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv -U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg -75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS -kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG -hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN -RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 -a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x -UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 -ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu -8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX -u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI -RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj -ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC -sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR -i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww -lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou -LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 -Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE -QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK -74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK -nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF -xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH -KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY -uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 -9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr -oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E -iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w -L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U -ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t -Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW -38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs -grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB -TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj -yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL -GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l -TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq -WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw -PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 -/KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx -JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 -qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl -p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx -N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x -hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn -izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE -LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM -rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE -p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 -YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH -FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX -piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz -X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 -+VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO -phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg -9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC -ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU -ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 -HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t -BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF -ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM -mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI -FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM -xZ+NDXq9HfXOhZcGEP8DWaJNdQ== +1:eJwV13k0Ff8bB/C+KSRbZN/unXst2Xdfy/U8pIj2qEhUkpASZS1bX0VJolWh +0CbcufalKGSrFNmFknZEdpHf/P6YM+d1zpwzz8zn8zzvGfqBY9vdly5ZsmSB +Ov5/nuprqGFeyDT36XsTevILmLemSgZbdEbBfO2eOeW1coBibw5IdiYCj5qi +8WdLDQjYmtXB1ZkOBr0pkaWWLFg1IpE425EHn8TDbUMsN0H/k83HJjqqwF+m +wKrQYi+sZ/7oHetogSM2edZPzX1gtsPo6mjHAHTofLEa0T0N1WsfZDanj0Pj +4crNxYbxINtf+uWA+gK8Cvchnupeg9VHXLN41nJhg0CX18EPtyFRZ335Zgde +bHuT0hPz/i503dB+NiYsgCw16/2ZrZlwITP8zVKpVfjXNYXIqX4AElc+xSal +iOKyc5ULhjuy4Jz9BvOWKTHczw650uORDdIFTdJL/xFHtdTzWXq+2ZAraj+t +s1Ici0S930cHZUN7iwt5WUEcy9tqL0nGZgNz2wlimw11fWKo9PSjbKjalMb9 +9qY4uqTxjl//kQ0L6yebXptJ4P0vjIIDHjngb3zXtSFKEg8tsdIe35wLtncE +J+ziJPFDcdWjXQ65QPCcimm6Koly/wh3Fe3JhbetOznvHkpig/bNXe6Hc0HT +l5+rr0kSW222NEZF5sK3+4H3f0tL4eWGOJPKvFxwXr15WCZfCmVqSSOzVWzQ +Cy2PTH0ihVIF801T4mzgG1ARp9dKYSZbSDRblg2lbC5Q6pLCs9eb7nCrsEHc +rjRBe1EK5ez6Xoeas+FtJFN/nZ00hrxO3njIiw1Wv+ZCjn6SxrGn2nKmFWwI +trmi+nxIGnfHzNzWqWZD7l2NbtEpaYTUgj9EPRsk7fcZl/LKYE4G386pZjYM +lbyY5tKUwfrgiDDXz2xIiko4cTNIBumyDS0py0kYEFM6WiMgi/rfd3y+uIYE +iWOVchISsrgi35NerEbCxvrdrz1psrj9gVVTrwYJRSEX1IX0ZLFmPC2EoUvC ++f7RH467ZfGrihctwYQE3UflHr/SZfFGlVvRiC0JkWbb9kv/K4cLos19zz1J +sHFJ/W1kKYep+/v3PfcmQTDi5xmHjXJ4Nk5/8KkPCbero+8n7JPDtTEXfuUc +J6HEtuwnd6wcxtcvV/AKJmF0NyNgvEsOeZO6Vu+IIcHl5OT5V6HyqOonrfw9 +gwTF65ayP6Ll8fAKVbvYeyT1/JdyeBLk0fjM9yClBySEzK95a5kpj1/yKn7v +yiLh6hkXsdJX8jiH/YevkyS8ulyXdk9OAU39M7JinpBgknuzIKxSAZ84KgoY +tZBg1dG0MFKvgH/eTKS5vSNh85Jl1q4tClh+pf7hxVYS3LYf7YLPCvj6QY9c +dzsJ60Pp4RHLaWhmfjjNvocEX4WpDAs1Gh626dzy9hMJk/kJ9bNaNFzhuNan +dZCqz0ZtmKNPwzkpf+72zyREH99nSJjTsCL7Xk7zVxKSqxvrl26joQ1Dpjvr +Jwk1HmnD1QE0jKqw5/r8m4QN88Yip0JpuHdT58rn4yQ0JbQa6kfQcCYu6Fry +BAldpSsiMmNp+J9vqd76KRJGVp4Qib5Nw3305cnhsyRIkjZG66tomHbh88nQ +RRJSrD7t+VtLw3mt3e+0lnCA6DodUfSShi/etpR+pKyxNL9BqY2G7xNyGeZL +OWBpL+fM842GB7/XBHYt48CRmbGIegE6lqe5xSav4IDJ8UPiX0ToeOKqwRE9 +Pg7w/uh+zCVJx/29p/waKN/rqW43J+jYdenzz6GVHOiruKpeaEhHW+M7GasE +OZBtxFfVYkrHK3gjP4lyCBm2axTpKKguMCQixAHxdI8oNTs6Xj262MkrzIEt +0cadd13puP6GamHLKg7I/83xqTxIR5tra2TMRTgwFEBw9XrSUepdT+59yjGH +V2pKnqDj0NelB46JcmDnx/Bqg2A6hsy8jnpDmek0sXtHGB1Xlcy8U1/NgWd2 +vWfiY+ioco7O1085vmabVPZFOrJPhY7qiXHAmVWb25BIx51DQyvOUp7VZHct +S6Hjheq2Tro4B3RFIrVCOXRsMGTMGUlwYMmFyZobRXSMmrgeF0C5icvLqaic +jn+cC3flUfae3B499oKOD35WJtMlqfd5tE5a6CUdTR5IrXagzPvVlFR/S8fd +RpP10ZQzO5k9Ht1UPeEi3/oo+2276RvdT0cBqN3BI8UBbBTgzhiko92H/gV1 +yoJro249+07HZ+LSX7dQ7i2f0u4boeNtC21hX8rZ+t61f8bp6OndF3yRckhO +/x6pWTqmbfjIfEjZRsl+zPAvHeXMplY9oyyeVn/WnotAzsYeizbKgxIsWT9e +Au9qbin8SjkvgcO5JECgmvkqn2nKESuUrHNECBSO+Oi5TJpav6jk940SBIrc +jcgWpCz/R9DvmyyBYZNsA3HKQ/5neLgJAnODdLhlKJcNTd9mKBMY86pOXo5y +jPsRXQt1AoWMDSNkKe/s+1DnokNgz2NUk6LM3OWw95QhgfeKH9NEKf9+0/D7 +pimBT5PM9vNRfmZjHlOMBN6RKR3+S9UX/zxPrm0dgV5NX2tHKTubKOf/tiXQ +u+nScD9l1fxbNsJbCUz8EHTgFeVZNeE+DQcCVx7xViqiPJUiHannRODcQ57C +FMoTQopMY1cC7a0Vc6Ioj0Vq1ZkfJNDj4Rkhd8oj48ZeVp4EulYNvLei/NPd +SsD2KIE1ClziBOVvHZvJLf4ECvbfK5+n1neg3G3K6TSBpn3BW7Io92scvbkv +isDHJtpwmvL7tCCzQ+cINNfxT91Euf3MxajjlwlM8mbnfqH217vJ64qB1wjc +7qi7n035rUd6/albBK7Xdzh7knKjXbFgzD0CQ42uqM1R+7fu6XPOxSwCU2PM +c0oo12i9sk9iE9gucS/zBOUK0Y/JqaUE/nRtmB6k9n9eD59y4WtqfSLD1j2g ++oW9SayxrIXAh/XiF7ZRzq5U8HnWQaDqiYqNs1S/3c/Qz3/5kUCnT8esLSgn +e7vAwCSBN+4MaudT/Xy99/DA1zkC6U9P+2ygfGWLf/TwIoG9f26p91L9H68X +83JmBQPPv802WKDmQ9Qfzi4heQaWZyucV6DmR7jPk7nVDAa2/e0duyvAgVP9 +tSnSKgws6ykZoFMOqO75pKjLQCiUcpPmp/rvwnJfs/UMDHw3NzlMzbPDC0Ki +lnYMVH/LX+FM+dAx6SLrrQy8c2pcrIGXA/t2aM1vd2KgVmhmUDIPB+xlHGM8 +jzJQvzGQTlvOAbPH2XeuXWNgY3fi82Jq3vbQHqetu8XAbxBwkJ9yyLVHqRNp +DHTxODrh8peE4sj7t7c/YuBHWmDfwjyVt7vv3BB8wsDnfRMjxBwJa5ZfSTj7 +kYEzrVIZfNS8rw9JvGTwhYGbei/7mFN5cGg0IX7wBwPP7WJr+1J5kdlzMc5y +goFWWY0Zr0dJoOWdi/nLzUR2mOJ232ESxF1DIwLUmRjHTDrp8IWEwtbgcEUd +Ji7x12Z4UvlkbxsU1mrAxMBljm0hVH4lGpw8pQtMHDmz1fbGAAkC/MeCRrYx +0ciaL668j4RlpQd8DwUy8bSmnlQmlY9jIrb7dlYxsfa7ccXSFyR0HiHeetUx +8aH9K6XKahKe1c5B+CsmvnO4tCu4ioSEkMcKD9uZmMEixb5WkqA9wN8/+4OJ +L9XzaA/LSDjKebM3RVQR920+7/CcTcKPLQ57Bg8qYgER4r3rBgktjzRezngq +oks7tDVdI6GMi9tU4JgicmevUbG6SkJscZG0YbAi0pRTL6okkqCiINl97qIi +ZuH5E50XSPAY6d6tVqSIsk880trCSBiM27fTj0cJG5pH+ze6Uff/oU5o8yuh +y0Dj8vT9JExbzw4PCyvhgyD3wElXEvi4EqM9pZWwbcTN4rozVX9wdcE+DSXU +X7s+ttaBhNPuSqJbdihhybQRu9Waev/mQ2/U0pTQ0ePI5UJVKt9/BW74bKiM +2ctMjYI62CCrI3+W10wZi73yJxda2DDiV1OlZqGMaumHTCOa2HBlStjMz04Z +vVRb3UNesKFv4ZHmoqsy3rz7b9C6fDb48b8XlYpVxk1Ve9P+jWdD8hrs29ij +jMfnPQ9mWFDfj268/gXhKpjys7pGMC2X+p+QWHquag3y7TZUsYIcEHmtFE/+ +UsXJ46W1T9ofg2wMe6uhoTrObciqXm6QBTfUjIVFPTQwynBdul3KQ2iUtjAY +v6yJDYuzKnFcD8BEtipBq10LSxVXcl+3vAeCXOkn9kdp47XpbBuDuxkgH6lg +5qikgy0m6rUbBu/CCkXnou11Oqir/nPPvOkd0GRJsQP36iL/uhNLNcNSwK9P +pNp2iR4OpAcXTXglw6/xOIcNN/RQbGHYxLjwOlhr1SZv0NDH37ZtV5sNr0LF +uOmf6SZ93HL8q9hCXiIcVdftbnY3wKis5mUYmwCskYOtjisMUVDnXUlOfRys +Y0puEkg3xF9GHeMFSrGgEnE+qMrICMWHQrnvDEeDqrtxpWK3EXq/KCvNehkF +7hWH/ys4/i+qDnj+90snAirvtB4cEzPGb/fGzpR5hsLEw8VprWJj/PfayuRm +ZiC4KT5ekbzJBIe0t/7DzvKHMdUkw7xRE5zJ3+ma4+4LJZl/Pk7GmKLekKY7 +O9YbnKwYaCpvhsE/5GzzJT1AxudcqeYzM7wlU8zvP38AxPiOcDbtYqFQQFni +sWBXyFx7OmTUkYWlomVxL1xcQfd0/NokZxbeqrM30bJyhc2jZFvnfhYyPrlG +soRc4Wz75KzbERZaeA4EWN13gZn0cMuQSBbWcD9tGuvYC92mSe/uP2Zh3e09 +ScEbnOHwyczbG3JZuK5/b6KWjjNM5Ra6D5Es/Cczvm1a0hlEiM5pnSIWzgeU +/Kn4tgfseOVknz5j4ZEDzfFKsXvgSev9g+/aWPi+55fMttdOYCtYohHQyULa +B1RRKnKCTuuGKckeFuqxy+v405xgouxnjMsHFg5Wnr8ieNwJNO5q53z/wcI+ +SyGDT2JO8KTbIiBumIVcJUJZaxcdwXb1DtAaZaGytseewm+OcOjcyeYTkyw8 +tp/H5lW5I0w8O5ssMcNC71PNPsfvOULU3HW3sjkW/ucymal8yRGE9R+p711g +od9ixcBIkCOk+pRNLi6y8GNXmGzdAUf4H9D9LaM= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "PlotRange" -> {{0, 30}, {0., 0.06680471421695888}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7722,6 +7086,7 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -7749,7 +7114,8 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.15142054732361562`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06680471421695888}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -7757,11 +7123,12 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.99134491550045*^9}, - CellLabel-> - "Out[418]=",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] + CellChangeTimes->{3.99134491550045*^9, 3.994257522533265*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"88e4a757-b47b-44d1-876b-9c4ced68fd50"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", @@ -7830,15 +7197,780 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"30", ",", "0.00371"}], "}"}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, - 3.994083514640395*^9},ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-\ -b938908ab9a4"], + 3.994083514640395*^9}, + CellLabel->"In[96]:=",ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-b938908ab9a4"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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->{ + "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.059883}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99425752276615*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"1a96d75f-f075-4f3f-9aa7-fa135d24588b"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"6b0777bb-40fd-b54e-aa03-\ -b6e82cb2e939"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"6b0777bb-40fd-b54e-aa03-b6e82cb2e939"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k0Ff8bB/C+KSRbZN/unXst2Xdfy/U8pIj2qEhUkpASZS1bX0VJolWh +0CbcufalKGSrFNmFknZEdpHf/P6YM+d1zpwzz8zn8zzvGfqBY9vdly5ZsmSB +Ov5/nuprqGFeyDT36XsTevILmLemSgZbdEbBfO2eOeW1coBibw5IdiYCj5qi +8WdLDQjYmtXB1ZkOBr0pkaWWLFg1IpE425EHn8TDbUMsN0H/k83HJjqqwF+m +wKrQYi+sZ/7oHetogSM2edZPzX1gtsPo6mjHAHTofLEa0T0N1WsfZDanj0Pj +4crNxYbxINtf+uWA+gK8Cvchnupeg9VHXLN41nJhg0CX18EPtyFRZ335Zgde +bHuT0hPz/i503dB+NiYsgCw16/2ZrZlwITP8zVKpVfjXNYXIqX4AElc+xSal +iOKyc5ULhjuy4Jz9BvOWKTHczw650uORDdIFTdJL/xFHtdTzWXq+2ZAraj+t +s1Ici0S930cHZUN7iwt5WUEcy9tqL0nGZgNz2wlimw11fWKo9PSjbKjalMb9 +9qY4uqTxjl//kQ0L6yebXptJ4P0vjIIDHjngb3zXtSFKEg8tsdIe35wLtncE +J+ziJPFDcdWjXQ65QPCcimm6Koly/wh3Fe3JhbetOznvHkpig/bNXe6Hc0HT +l5+rr0kSW222NEZF5sK3+4H3f0tL4eWGOJPKvFxwXr15WCZfCmVqSSOzVWzQ +Cy2PTH0ihVIF801T4mzgG1ARp9dKYSZbSDRblg2lbC5Q6pLCs9eb7nCrsEHc +rjRBe1EK5ez6Xoeas+FtJFN/nZ00hrxO3njIiw1Wv+ZCjn6SxrGn2nKmFWwI +trmi+nxIGnfHzNzWqWZD7l2NbtEpaYTUgj9EPRsk7fcZl/LKYE4G386pZjYM +lbyY5tKUwfrgiDDXz2xIiko4cTNIBumyDS0py0kYEFM6WiMgi/rfd3y+uIYE +iWOVchISsrgi35NerEbCxvrdrz1psrj9gVVTrwYJRSEX1IX0ZLFmPC2EoUvC ++f7RH467ZfGrihctwYQE3UflHr/SZfFGlVvRiC0JkWbb9kv/K4cLos19zz1J +sHFJ/W1kKYep+/v3PfcmQTDi5xmHjXJ4Nk5/8KkPCbero+8n7JPDtTEXfuUc +J6HEtuwnd6wcxtcvV/AKJmF0NyNgvEsOeZO6Vu+IIcHl5OT5V6HyqOonrfw9 +gwTF65ayP6Ll8fAKVbvYeyT1/JdyeBLk0fjM9yClBySEzK95a5kpj1/yKn7v +yiLh6hkXsdJX8jiH/YevkyS8ulyXdk9OAU39M7JinpBgknuzIKxSAZ84KgoY +tZBg1dG0MFKvgH/eTKS5vSNh85Jl1q4tClh+pf7hxVYS3LYf7YLPCvj6QY9c +dzsJ60Pp4RHLaWhmfjjNvocEX4WpDAs1Gh626dzy9hMJk/kJ9bNaNFzhuNan +dZCqz0ZtmKNPwzkpf+72zyREH99nSJjTsCL7Xk7zVxKSqxvrl26joQ1Dpjvr +Jwk1HmnD1QE0jKqw5/r8m4QN88Yip0JpuHdT58rn4yQ0JbQa6kfQcCYu6Fry +BAldpSsiMmNp+J9vqd76KRJGVp4Qib5Nw3305cnhsyRIkjZG66tomHbh88nQ +RRJSrD7t+VtLw3mt3e+0lnCA6DodUfSShi/etpR+pKyxNL9BqY2G7xNyGeZL +OWBpL+fM842GB7/XBHYt48CRmbGIegE6lqe5xSav4IDJ8UPiX0ToeOKqwRE9 +Pg7w/uh+zCVJx/29p/waKN/rqW43J+jYdenzz6GVHOiruKpeaEhHW+M7GasE +OZBtxFfVYkrHK3gjP4lyCBm2axTpKKguMCQixAHxdI8oNTs6Xj262MkrzIEt +0cadd13puP6GamHLKg7I/83xqTxIR5tra2TMRTgwFEBw9XrSUepdT+59yjGH +V2pKnqDj0NelB46JcmDnx/Bqg2A6hsy8jnpDmek0sXtHGB1Xlcy8U1/NgWd2 +vWfiY+ioco7O1085vmabVPZFOrJPhY7qiXHAmVWb25BIx51DQyvOUp7VZHct +S6Hjheq2Tro4B3RFIrVCOXRsMGTMGUlwYMmFyZobRXSMmrgeF0C5icvLqaic +jn+cC3flUfae3B499oKOD35WJtMlqfd5tE5a6CUdTR5IrXagzPvVlFR/S8fd +RpP10ZQzO5k9Ht1UPeEi3/oo+2276RvdT0cBqN3BI8UBbBTgzhiko92H/gV1 +yoJro249+07HZ+LSX7dQ7i2f0u4boeNtC21hX8rZ+t61f8bp6OndF3yRckhO +/x6pWTqmbfjIfEjZRsl+zPAvHeXMplY9oyyeVn/WnotAzsYeizbKgxIsWT9e +Au9qbin8SjkvgcO5JECgmvkqn2nKESuUrHNECBSO+Oi5TJpav6jk940SBIrc +jcgWpCz/R9DvmyyBYZNsA3HKQ/5neLgJAnODdLhlKJcNTd9mKBMY86pOXo5y +jPsRXQt1AoWMDSNkKe/s+1DnokNgz2NUk6LM3OWw95QhgfeKH9NEKf9+0/D7 +pimBT5PM9vNRfmZjHlOMBN6RKR3+S9UX/zxPrm0dgV5NX2tHKTubKOf/tiXQ +u+nScD9l1fxbNsJbCUz8EHTgFeVZNeE+DQcCVx7xViqiPJUiHannRODcQ57C +FMoTQopMY1cC7a0Vc6Ioj0Vq1ZkfJNDj4Rkhd8oj48ZeVp4EulYNvLei/NPd +SsD2KIE1ClziBOVvHZvJLf4ECvbfK5+n1neg3G3K6TSBpn3BW7Io92scvbkv +isDHJtpwmvL7tCCzQ+cINNfxT91Euf3MxajjlwlM8mbnfqH217vJ64qB1wjc +7qi7n035rUd6/albBK7Xdzh7knKjXbFgzD0CQ42uqM1R+7fu6XPOxSwCU2PM +c0oo12i9sk9iE9gucS/zBOUK0Y/JqaUE/nRtmB6k9n9eD59y4WtqfSLD1j2g ++oW9SayxrIXAh/XiF7ZRzq5U8HnWQaDqiYqNs1S/3c/Qz3/5kUCnT8esLSgn +e7vAwCSBN+4MaudT/Xy99/DA1zkC6U9P+2ygfGWLf/TwIoG9f26p91L9H68X +83JmBQPPv802WKDmQ9Qfzi4heQaWZyucV6DmR7jPk7nVDAa2/e0duyvAgVP9 +tSnSKgws6ykZoFMOqO75pKjLQCiUcpPmp/rvwnJfs/UMDHw3NzlMzbPDC0Ki +lnYMVH/LX+FM+dAx6SLrrQy8c2pcrIGXA/t2aM1vd2KgVmhmUDIPB+xlHGM8 +jzJQvzGQTlvOAbPH2XeuXWNgY3fi82Jq3vbQHqetu8XAbxBwkJ9yyLVHqRNp +DHTxODrh8peE4sj7t7c/YuBHWmDfwjyVt7vv3BB8wsDnfRMjxBwJa5ZfSTj7 +kYEzrVIZfNS8rw9JvGTwhYGbei/7mFN5cGg0IX7wBwPP7WJr+1J5kdlzMc5y +goFWWY0Zr0dJoOWdi/nLzUR2mOJ232ESxF1DIwLUmRjHTDrp8IWEwtbgcEUd +Ji7x12Z4UvlkbxsU1mrAxMBljm0hVH4lGpw8pQtMHDmz1fbGAAkC/MeCRrYx +0ciaL668j4RlpQd8DwUy8bSmnlQmlY9jIrb7dlYxsfa7ccXSFyR0HiHeetUx +8aH9K6XKahKe1c5B+CsmvnO4tCu4ioSEkMcKD9uZmMEixb5WkqA9wN8/+4OJ +L9XzaA/LSDjKebM3RVQR920+7/CcTcKPLQ57Bg8qYgER4r3rBgktjzRezngq +oks7tDVdI6GMi9tU4JgicmevUbG6SkJscZG0YbAi0pRTL6okkqCiINl97qIi +ZuH5E50XSPAY6d6tVqSIsk880trCSBiM27fTj0cJG5pH+ze6Uff/oU5o8yuh +y0Dj8vT9JExbzw4PCyvhgyD3wElXEvi4EqM9pZWwbcTN4rozVX9wdcE+DSXU +X7s+ttaBhNPuSqJbdihhybQRu9Waev/mQ2/U0pTQ0ePI5UJVKt9/BW74bKiM +2ctMjYI62CCrI3+W10wZi73yJxda2DDiV1OlZqGMaumHTCOa2HBlStjMz04Z +vVRb3UNesKFv4ZHmoqsy3rz7b9C6fDb48b8XlYpVxk1Ve9P+jWdD8hrs29ij +jMfnPQ9mWFDfj268/gXhKpjys7pGMC2X+p+QWHquag3y7TZUsYIcEHmtFE/+ +UsXJ46W1T9ofg2wMe6uhoTrObciqXm6QBTfUjIVFPTQwynBdul3KQ2iUtjAY +v6yJDYuzKnFcD8BEtipBq10LSxVXcl+3vAeCXOkn9kdp47XpbBuDuxkgH6lg +5qikgy0m6rUbBu/CCkXnou11Oqir/nPPvOkd0GRJsQP36iL/uhNLNcNSwK9P +pNp2iR4OpAcXTXglw6/xOIcNN/RQbGHYxLjwOlhr1SZv0NDH37ZtV5sNr0LF +uOmf6SZ93HL8q9hCXiIcVdftbnY3wKis5mUYmwCskYOtjisMUVDnXUlOfRys +Y0puEkg3xF9GHeMFSrGgEnE+qMrICMWHQrnvDEeDqrtxpWK3EXq/KCvNehkF +7hWH/ys4/i+qDnj+90snAirvtB4cEzPGb/fGzpR5hsLEw8VprWJj/PfayuRm +ZiC4KT5ekbzJBIe0t/7DzvKHMdUkw7xRE5zJ3+ma4+4LJZl/Pk7GmKLekKY7 +O9YbnKwYaCpvhsE/5GzzJT1AxudcqeYzM7wlU8zvP38AxPiOcDbtYqFQQFni +sWBXyFx7OmTUkYWlomVxL1xcQfd0/NokZxbeqrM30bJyhc2jZFvnfhYyPrlG +soRc4Wz75KzbERZaeA4EWN13gZn0cMuQSBbWcD9tGuvYC92mSe/uP2Zh3e09 +ScEbnOHwyczbG3JZuK5/b6KWjjNM5Ra6D5Es/Cczvm1a0hlEiM5pnSIWzgeU +/Kn4tgfseOVknz5j4ZEDzfFKsXvgSev9g+/aWPi+55fMttdOYCtYohHQyULa +B1RRKnKCTuuGKckeFuqxy+v405xgouxnjMsHFg5Wnr8ieNwJNO5q53z/wcI+ +SyGDT2JO8KTbIiBumIVcJUJZaxcdwXb1DtAaZaGytseewm+OcOjcyeYTkyw8 +tp/H5lW5I0w8O5ssMcNC71PNPsfvOULU3HW3sjkW/ucymal8yRGE9R+p711g +od9ixcBIkCOk+pRNLi6y8GNXmGzdAUf4H9D9LaM= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0Ff8bB/C+KSRbZN/unXst2Xdfy/U8pIj2qEhUkpASZS1bX0VJolWh +0CbcufalKGSrFNmFknZEdpHf/P6YM+d1zpwzz8zn8zzvGfqBY9vdly5ZsmSB +Ov5/nuprqGFeyDT36XsTevILmLemSgZbdEbBfO2eOeW1coBibw5IdiYCj5qi +8WdLDQjYmtXB1ZkOBr0pkaWWLFg1IpE425EHn8TDbUMsN0H/k83HJjqqwF+m +wKrQYi+sZ/7oHetogSM2edZPzX1gtsPo6mjHAHTofLEa0T0N1WsfZDanj0Pj +4crNxYbxINtf+uWA+gK8Cvchnupeg9VHXLN41nJhg0CX18EPtyFRZ335Zgde +bHuT0hPz/i503dB+NiYsgCw16/2ZrZlwITP8zVKpVfjXNYXIqX4AElc+xSal +iOKyc5ULhjuy4Jz9BvOWKTHczw650uORDdIFTdJL/xFHtdTzWXq+2ZAraj+t +s1Ici0S930cHZUN7iwt5WUEcy9tqL0nGZgNz2wlimw11fWKo9PSjbKjalMb9 +9qY4uqTxjl//kQ0L6yebXptJ4P0vjIIDHjngb3zXtSFKEg8tsdIe35wLtncE +J+ziJPFDcdWjXQ65QPCcimm6Koly/wh3Fe3JhbetOznvHkpig/bNXe6Hc0HT +l5+rr0kSW222NEZF5sK3+4H3f0tL4eWGOJPKvFxwXr15WCZfCmVqSSOzVWzQ +Cy2PTH0ihVIF801T4mzgG1ARp9dKYSZbSDRblg2lbC5Q6pLCs9eb7nCrsEHc +rjRBe1EK5ez6Xoeas+FtJFN/nZ00hrxO3njIiw1Wv+ZCjn6SxrGn2nKmFWwI +trmi+nxIGnfHzNzWqWZD7l2NbtEpaYTUgj9EPRsk7fcZl/LKYE4G386pZjYM +lbyY5tKUwfrgiDDXz2xIiko4cTNIBumyDS0py0kYEFM6WiMgi/rfd3y+uIYE +iWOVchISsrgi35NerEbCxvrdrz1psrj9gVVTrwYJRSEX1IX0ZLFmPC2EoUvC ++f7RH467ZfGrihctwYQE3UflHr/SZfFGlVvRiC0JkWbb9kv/K4cLos19zz1J +sHFJ/W1kKYep+/v3PfcmQTDi5xmHjXJ4Nk5/8KkPCbero+8n7JPDtTEXfuUc +J6HEtuwnd6wcxtcvV/AKJmF0NyNgvEsOeZO6Vu+IIcHl5OT5V6HyqOonrfw9 +gwTF65ayP6Ll8fAKVbvYeyT1/JdyeBLk0fjM9yClBySEzK95a5kpj1/yKn7v +yiLh6hkXsdJX8jiH/YevkyS8ulyXdk9OAU39M7JinpBgknuzIKxSAZ84KgoY +tZBg1dG0MFKvgH/eTKS5vSNh85Jl1q4tClh+pf7hxVYS3LYf7YLPCvj6QY9c +dzsJ60Pp4RHLaWhmfjjNvocEX4WpDAs1Gh626dzy9hMJk/kJ9bNaNFzhuNan +dZCqz0ZtmKNPwzkpf+72zyREH99nSJjTsCL7Xk7zVxKSqxvrl26joQ1Dpjvr +Jwk1HmnD1QE0jKqw5/r8m4QN88Yip0JpuHdT58rn4yQ0JbQa6kfQcCYu6Fry +BAldpSsiMmNp+J9vqd76KRJGVp4Qib5Nw3305cnhsyRIkjZG66tomHbh88nQ +RRJSrD7t+VtLw3mt3e+0lnCA6DodUfSShi/etpR+pKyxNL9BqY2G7xNyGeZL +OWBpL+fM842GB7/XBHYt48CRmbGIegE6lqe5xSav4IDJ8UPiX0ToeOKqwRE9 +Pg7w/uh+zCVJx/29p/waKN/rqW43J+jYdenzz6GVHOiruKpeaEhHW+M7GasE +OZBtxFfVYkrHK3gjP4lyCBm2axTpKKguMCQixAHxdI8oNTs6Xj262MkrzIEt +0cadd13puP6GamHLKg7I/83xqTxIR5tra2TMRTgwFEBw9XrSUepdT+59yjGH +V2pKnqDj0NelB46JcmDnx/Bqg2A6hsy8jnpDmek0sXtHGB1Xlcy8U1/NgWd2 +vWfiY+ioco7O1085vmabVPZFOrJPhY7qiXHAmVWb25BIx51DQyvOUp7VZHct +S6Hjheq2Tro4B3RFIrVCOXRsMGTMGUlwYMmFyZobRXSMmrgeF0C5icvLqaic +jn+cC3flUfae3B499oKOD35WJtMlqfd5tE5a6CUdTR5IrXagzPvVlFR/S8fd +RpP10ZQzO5k9Ht1UPeEi3/oo+2276RvdT0cBqN3BI8UBbBTgzhiko92H/gV1 +yoJro249+07HZ+LSX7dQ7i2f0u4boeNtC21hX8rZ+t61f8bp6OndF3yRckhO +/x6pWTqmbfjIfEjZRsl+zPAvHeXMplY9oyyeVn/WnotAzsYeizbKgxIsWT9e +Au9qbin8SjkvgcO5JECgmvkqn2nKESuUrHNECBSO+Oi5TJpav6jk940SBIrc +jcgWpCz/R9DvmyyBYZNsA3HKQ/5neLgJAnODdLhlKJcNTd9mKBMY86pOXo5y +jPsRXQt1AoWMDSNkKe/s+1DnokNgz2NUk6LM3OWw95QhgfeKH9NEKf9+0/D7 +pimBT5PM9vNRfmZjHlOMBN6RKR3+S9UX/zxPrm0dgV5NX2tHKTubKOf/tiXQ +u+nScD9l1fxbNsJbCUz8EHTgFeVZNeE+DQcCVx7xViqiPJUiHannRODcQ57C +FMoTQopMY1cC7a0Vc6Ioj0Vq1ZkfJNDj4Rkhd8oj48ZeVp4EulYNvLei/NPd +SsD2KIE1ClziBOVvHZvJLf4ECvbfK5+n1neg3G3K6TSBpn3BW7Io92scvbkv +isDHJtpwmvL7tCCzQ+cINNfxT91Euf3MxajjlwlM8mbnfqH217vJ64qB1wjc +7qi7n035rUd6/albBK7Xdzh7knKjXbFgzD0CQ42uqM1R+7fu6XPOxSwCU2PM +c0oo12i9sk9iE9gucS/zBOUK0Y/JqaUE/nRtmB6k9n9eD59y4WtqfSLD1j2g ++oW9SayxrIXAh/XiF7ZRzq5U8HnWQaDqiYqNs1S/3c/Qz3/5kUCnT8esLSgn +e7vAwCSBN+4MaudT/Xy99/DA1zkC6U9P+2ygfGWLf/TwIoG9f26p91L9H68X +83JmBQPPv802WKDmQ9Qfzi4heQaWZyucV6DmR7jPk7nVDAa2/e0duyvAgVP9 +tSnSKgws6ykZoFMOqO75pKjLQCiUcpPmp/rvwnJfs/UMDHw3NzlMzbPDC0Ki +lnYMVH/LX+FM+dAx6SLrrQy8c2pcrIGXA/t2aM1vd2KgVmhmUDIPB+xlHGM8 +jzJQvzGQTlvOAbPH2XeuXWNgY3fi82Jq3vbQHqetu8XAbxBwkJ9yyLVHqRNp +DHTxODrh8peE4sj7t7c/YuBHWmDfwjyVt7vv3BB8wsDnfRMjxBwJa5ZfSTj7 +kYEzrVIZfNS8rw9JvGTwhYGbei/7mFN5cGg0IX7wBwPP7WJr+1J5kdlzMc5y +goFWWY0Zr0dJoOWdi/nLzUR2mOJ232ESxF1DIwLUmRjHTDrp8IWEwtbgcEUd +Ji7x12Z4UvlkbxsU1mrAxMBljm0hVH4lGpw8pQtMHDmz1fbGAAkC/MeCRrYx +0ciaL668j4RlpQd8DwUy8bSmnlQmlY9jIrb7dlYxsfa7ccXSFyR0HiHeetUx +8aH9K6XKahKe1c5B+CsmvnO4tCu4ioSEkMcKD9uZmMEixb5WkqA9wN8/+4OJ +L9XzaA/LSDjKebM3RVQR920+7/CcTcKPLQ57Bg8qYgER4r3rBgktjzRezngq +oks7tDVdI6GMi9tU4JgicmevUbG6SkJscZG0YbAi0pRTL6okkqCiINl97qIi +ZuH5E50XSPAY6d6tVqSIsk880trCSBiM27fTj0cJG5pH+ze6Uff/oU5o8yuh +y0Dj8vT9JExbzw4PCyvhgyD3wElXEvi4EqM9pZWwbcTN4rozVX9wdcE+DSXU +X7s+ttaBhNPuSqJbdihhybQRu9Waev/mQ2/U0pTQ0ePI5UJVKt9/BW74bKiM +2ctMjYI62CCrI3+W10wZi73yJxda2DDiV1OlZqGMaumHTCOa2HBlStjMz04Z +vVRb3UNesKFv4ZHmoqsy3rz7b9C6fDb48b8XlYpVxk1Ve9P+jWdD8hrs29ij +jMfnPQ9mWFDfj268/gXhKpjys7pGMC2X+p+QWHquag3y7TZUsYIcEHmtFE/+ +UsXJ46W1T9ofg2wMe6uhoTrObciqXm6QBTfUjIVFPTQwynBdul3KQ2iUtjAY +v6yJDYuzKnFcD8BEtipBq10LSxVXcl+3vAeCXOkn9kdp47XpbBuDuxkgH6lg +5qikgy0m6rUbBu/CCkXnou11Oqir/nPPvOkd0GRJsQP36iL/uhNLNcNSwK9P +pNp2iR4OpAcXTXglw6/xOIcNN/RQbGHYxLjwOlhr1SZv0NDH37ZtV5sNr0LF +uOmf6SZ93HL8q9hCXiIcVdftbnY3wKis5mUYmwCskYOtjisMUVDnXUlOfRys +Y0puEkg3xF9GHeMFSrGgEnE+qMrICMWHQrnvDEeDqrtxpWK3EXq/KCvNehkF +7hWH/ys4/i+qDnj+90snAirvtB4cEzPGb/fGzpR5hsLEw8VprWJj/PfayuRm +ZiC4KT5ekbzJBIe0t/7DzvKHMdUkw7xRE5zJ3+ma4+4LJZl/Pk7GmKLekKY7 +O9YbnKwYaCpvhsE/5GzzJT1AxudcqeYzM7wlU8zvP38AxPiOcDbtYqFQQFni +sWBXyFx7OmTUkYWlomVxL1xcQfd0/NokZxbeqrM30bJyhc2jZFvnfhYyPrlG +soRc4Wz75KzbERZaeA4EWN13gZn0cMuQSBbWcD9tGuvYC92mSe/uP2Zh3e09 +ScEbnOHwyczbG3JZuK5/b6KWjjNM5Ra6D5Es/Cczvm1a0hlEiM5pnSIWzgeU +/Kn4tgfseOVknz5j4ZEDzfFKsXvgSev9g+/aWPi+55fMttdOYCtYohHQyULa +B1RRKnKCTuuGKckeFuqxy+v405xgouxnjMsHFg5Wnr8ieNwJNO5q53z/wcI+ +SyGDT2JO8KTbIiBumIVcJUJZaxcdwXb1DtAaZaGytseewm+OcOjcyeYTkyw8 +tp/H5lW5I0w8O5ssMcNC71PNPsfvOULU3HW3sjkW/ucymal8yRGE9R+p711g +od9ixcBIkCOk+pRNLi6y8GNXmGzdAUf4H9D9LaM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06680471421695888}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06680471421695888}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0Ff8bB/C+KSRbZN/unXst2Xdfy/U8pIj2qEhUkpASZS1bX0VJolWh +0CbcufalKGSrFNmFknZEdpHf/P6YM+d1zpwzz8zn8zzvGfqBY9vdly5ZsmSB +Ov5/nuprqGFeyDT36XsTevILmLemSgZbdEbBfO2eOeW1coBibw5IdiYCj5qi +8WdLDQjYmtXB1ZkOBr0pkaWWLFg1IpE425EHn8TDbUMsN0H/k83HJjqqwF+m +wKrQYi+sZ/7oHetogSM2edZPzX1gtsPo6mjHAHTofLEa0T0N1WsfZDanj0Pj +4crNxYbxINtf+uWA+gK8Cvchnupeg9VHXLN41nJhg0CX18EPtyFRZ335Zgde +bHuT0hPz/i503dB+NiYsgCw16/2ZrZlwITP8zVKpVfjXNYXIqX4AElc+xSal +iOKyc5ULhjuy4Jz9BvOWKTHczw650uORDdIFTdJL/xFHtdTzWXq+2ZAraj+t +s1Ici0S930cHZUN7iwt5WUEcy9tqL0nGZgNz2wlimw11fWKo9PSjbKjalMb9 +9qY4uqTxjl//kQ0L6yebXptJ4P0vjIIDHjngb3zXtSFKEg8tsdIe35wLtncE +J+ziJPFDcdWjXQ65QPCcimm6Koly/wh3Fe3JhbetOznvHkpig/bNXe6Hc0HT +l5+rr0kSW222NEZF5sK3+4H3f0tL4eWGOJPKvFxwXr15WCZfCmVqSSOzVWzQ +Cy2PTH0ihVIF801T4mzgG1ARp9dKYSZbSDRblg2lbC5Q6pLCs9eb7nCrsEHc +rjRBe1EK5ez6Xoeas+FtJFN/nZ00hrxO3njIiw1Wv+ZCjn6SxrGn2nKmFWwI +trmi+nxIGnfHzNzWqWZD7l2NbtEpaYTUgj9EPRsk7fcZl/LKYE4G386pZjYM +lbyY5tKUwfrgiDDXz2xIiko4cTNIBumyDS0py0kYEFM6WiMgi/rfd3y+uIYE +iWOVchISsrgi35NerEbCxvrdrz1psrj9gVVTrwYJRSEX1IX0ZLFmPC2EoUvC ++f7RH467ZfGrihctwYQE3UflHr/SZfFGlVvRiC0JkWbb9kv/K4cLos19zz1J +sHFJ/W1kKYep+/v3PfcmQTDi5xmHjXJ4Nk5/8KkPCbero+8n7JPDtTEXfuUc +J6HEtuwnd6wcxtcvV/AKJmF0NyNgvEsOeZO6Vu+IIcHl5OT5V6HyqOonrfw9 +gwTF65ayP6Ll8fAKVbvYeyT1/JdyeBLk0fjM9yClBySEzK95a5kpj1/yKn7v +yiLh6hkXsdJX8jiH/YevkyS8ulyXdk9OAU39M7JinpBgknuzIKxSAZ84KgoY +tZBg1dG0MFKvgH/eTKS5vSNh85Jl1q4tClh+pf7hxVYS3LYf7YLPCvj6QY9c +dzsJ60Pp4RHLaWhmfjjNvocEX4WpDAs1Gh626dzy9hMJk/kJ9bNaNFzhuNan +dZCqz0ZtmKNPwzkpf+72zyREH99nSJjTsCL7Xk7zVxKSqxvrl26joQ1Dpjvr +Jwk1HmnD1QE0jKqw5/r8m4QN88Yip0JpuHdT58rn4yQ0JbQa6kfQcCYu6Fry +BAldpSsiMmNp+J9vqd76KRJGVp4Qib5Nw3305cnhsyRIkjZG66tomHbh88nQ +RRJSrD7t+VtLw3mt3e+0lnCA6DodUfSShi/etpR+pKyxNL9BqY2G7xNyGeZL +OWBpL+fM842GB7/XBHYt48CRmbGIegE6lqe5xSav4IDJ8UPiX0ToeOKqwRE9 +Pg7w/uh+zCVJx/29p/waKN/rqW43J+jYdenzz6GVHOiruKpeaEhHW+M7GasE +OZBtxFfVYkrHK3gjP4lyCBm2axTpKKguMCQixAHxdI8oNTs6Xj262MkrzIEt +0cadd13puP6GamHLKg7I/83xqTxIR5tra2TMRTgwFEBw9XrSUepdT+59yjGH +V2pKnqDj0NelB46JcmDnx/Bqg2A6hsy8jnpDmek0sXtHGB1Xlcy8U1/NgWd2 +vWfiY+ioco7O1085vmabVPZFOrJPhY7qiXHAmVWb25BIx51DQyvOUp7VZHct +S6Hjheq2Tro4B3RFIrVCOXRsMGTMGUlwYMmFyZobRXSMmrgeF0C5icvLqaic +jn+cC3flUfae3B499oKOD35WJtMlqfd5tE5a6CUdTR5IrXagzPvVlFR/S8fd +RpP10ZQzO5k9Ht1UPeEi3/oo+2276RvdT0cBqN3BI8UBbBTgzhiko92H/gV1 +yoJro249+07HZ+LSX7dQ7i2f0u4boeNtC21hX8rZ+t61f8bp6OndF3yRckhO +/x6pWTqmbfjIfEjZRsl+zPAvHeXMplY9oyyeVn/WnotAzsYeizbKgxIsWT9e +Au9qbin8SjkvgcO5JECgmvkqn2nKESuUrHNECBSO+Oi5TJpav6jk940SBIrc +jcgWpCz/R9DvmyyBYZNsA3HKQ/5neLgJAnODdLhlKJcNTd9mKBMY86pOXo5y +jPsRXQt1AoWMDSNkKe/s+1DnokNgz2NUk6LM3OWw95QhgfeKH9NEKf9+0/D7 +pimBT5PM9vNRfmZjHlOMBN6RKR3+S9UX/zxPrm0dgV5NX2tHKTubKOf/tiXQ +u+nScD9l1fxbNsJbCUz8EHTgFeVZNeE+DQcCVx7xViqiPJUiHannRODcQ57C +FMoTQopMY1cC7a0Vc6Ioj0Vq1ZkfJNDj4Rkhd8oj48ZeVp4EulYNvLei/NPd +SsD2KIE1ClziBOVvHZvJLf4ECvbfK5+n1neg3G3K6TSBpn3BW7Io92scvbkv +isDHJtpwmvL7tCCzQ+cINNfxT91Euf3MxajjlwlM8mbnfqH217vJ64qB1wjc +7qi7n035rUd6/albBK7Xdzh7knKjXbFgzD0CQ42uqM1R+7fu6XPOxSwCU2PM +c0oo12i9sk9iE9gucS/zBOUK0Y/JqaUE/nRtmB6k9n9eD59y4WtqfSLD1j2g ++oW9SayxrIXAh/XiF7ZRzq5U8HnWQaDqiYqNs1S/3c/Qz3/5kUCnT8esLSgn +e7vAwCSBN+4MaudT/Xy99/DA1zkC6U9P+2ygfGWLf/TwIoG9f26p91L9H68X +83JmBQPPv802WKDmQ9Qfzi4heQaWZyucV6DmR7jPk7nVDAa2/e0duyvAgVP9 +tSnSKgws6ykZoFMOqO75pKjLQCiUcpPmp/rvwnJfs/UMDHw3NzlMzbPDC0Ki +lnYMVH/LX+FM+dAx6SLrrQy8c2pcrIGXA/t2aM1vd2KgVmhmUDIPB+xlHGM8 +jzJQvzGQTlvOAbPH2XeuXWNgY3fi82Jq3vbQHqetu8XAbxBwkJ9yyLVHqRNp +DHTxODrh8peE4sj7t7c/YuBHWmDfwjyVt7vv3BB8wsDnfRMjxBwJa5ZfSTj7 +kYEzrVIZfNS8rw9JvGTwhYGbei/7mFN5cGg0IX7wBwPP7WJr+1J5kdlzMc5y +goFWWY0Zr0dJoOWdi/nLzUR2mOJ232ESxF1DIwLUmRjHTDrp8IWEwtbgcEUd +Ji7x12Z4UvlkbxsU1mrAxMBljm0hVH4lGpw8pQtMHDmz1fbGAAkC/MeCRrYx +0ciaL668j4RlpQd8DwUy8bSmnlQmlY9jIrb7dlYxsfa7ccXSFyR0HiHeetUx +8aH9K6XKahKe1c5B+CsmvnO4tCu4ioSEkMcKD9uZmMEixb5WkqA9wN8/+4OJ +L9XzaA/LSDjKebM3RVQR920+7/CcTcKPLQ57Bg8qYgER4r3rBgktjzRezngq +oks7tDVdI6GMi9tU4JgicmevUbG6SkJscZG0YbAi0pRTL6okkqCiINl97qIi +ZuH5E50XSPAY6d6tVqSIsk880trCSBiM27fTj0cJG5pH+ze6Uff/oU5o8yuh +y0Dj8vT9JExbzw4PCyvhgyD3wElXEvi4EqM9pZWwbcTN4rozVX9wdcE+DSXU +X7s+ttaBhNPuSqJbdihhybQRu9Waev/mQ2/U0pTQ0ePI5UJVKt9/BW74bKiM +2ctMjYI62CCrI3+W10wZi73yJxda2DDiV1OlZqGMaumHTCOa2HBlStjMz04Z +vVRb3UNesKFv4ZHmoqsy3rz7b9C6fDb48b8XlYpVxk1Ve9P+jWdD8hrs29ij +jMfnPQ9mWFDfj268/gXhKpjys7pGMC2X+p+QWHquag3y7TZUsYIcEHmtFE/+ +UsXJ46W1T9ofg2wMe6uhoTrObciqXm6QBTfUjIVFPTQwynBdul3KQ2iUtjAY +v6yJDYuzKnFcD8BEtipBq10LSxVXcl+3vAeCXOkn9kdp47XpbBuDuxkgH6lg +5qikgy0m6rUbBu/CCkXnou11Oqir/nPPvOkd0GRJsQP36iL/uhNLNcNSwK9P +pNp2iR4OpAcXTXglw6/xOIcNN/RQbGHYxLjwOlhr1SZv0NDH37ZtV5sNr0LF +uOmf6SZ93HL8q9hCXiIcVdftbnY3wKis5mUYmwCskYOtjisMUVDnXUlOfRys +Y0puEkg3xF9GHeMFSrGgEnE+qMrICMWHQrnvDEeDqrtxpWK3EXq/KCvNehkF +7hWH/ys4/i+qDnj+90snAirvtB4cEzPGb/fGzpR5hsLEw8VprWJj/PfayuRm +ZiC4KT5ekbzJBIe0t/7DzvKHMdUkw7xRE5zJ3+ma4+4LJZl/Pk7GmKLekKY7 +O9YbnKwYaCpvhsE/5GzzJT1AxudcqeYzM7wlU8zvP38AxPiOcDbtYqFQQFni +sWBXyFx7OmTUkYWlomVxL1xcQfd0/NokZxbeqrM30bJyhc2jZFvnfhYyPrlG +soRc4Wz75KzbERZaeA4EWN13gZn0cMuQSBbWcD9tGuvYC92mSe/uP2Zh3e09 +ScEbnOHwyczbG3JZuK5/b6KWjjNM5Ra6D5Es/Cczvm1a0hlEiM5pnSIWzgeU +/Kn4tgfseOVknz5j4ZEDzfFKsXvgSev9g+/aWPi+55fMttdOYCtYohHQyULa +B1RRKnKCTuuGKckeFuqxy+v405xgouxnjMsHFg5Wnr8ieNwJNO5q53z/wcI+ +SyGDT2JO8KTbIiBumIVcJUJZaxcdwXb1DtAaZaGytseewm+OcOjcyeYTkyw8 +tp/H5lW5I0w8O5ssMcNC71PNPsfvOULU3HW3sjkW/ucymal8yRGE9R+p711g +od9ixcBIkCOk+pRNLi6y8GNXmGzdAUf4H9D9LaM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06680471421695888}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06680471421695888}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994257522808998*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"f0edb356-2e40-4a2e-aba3-ef74230ee1b1"] +}, Open ]], Cell[CellGroupData[{ @@ -7847,14 +7979,12 @@ Cell[BoxData[ FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.9918501819649506`*^9},ExpressionUUID->"1ec1e156-ca0f-9240-857c-\ -ac86e3a0e3fd"], + CellChangeTimes->{3.9918501819649506`*^9}, + CellLabel->"In[98]:=",ExpressionUUID->"1ec1e156-ca0f-9240-857c-ac86e3a0e3fd"], -Cell[BoxData["10.362747935330784`"], "Output", - CellChangeTimes->{3.9913453868532257`*^9}, - CellLabel-> - "Out[420]=",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +Cell[BoxData["11.53824994161221`"], "Output", + CellChangeTimes->{3.9913453868532257`*^9, 3.994257522859295*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"9caeafc6-a71c-4d0e-a24d-518e3ad4c8e9"] }, Open ]], Cell[CellGroupData[{ @@ -7910,171 +8040,157 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991850184857586*^9},ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-\ -da901e49f6f1"], + CellChangeTimes->{3.991850184857586*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-da901e49f6f1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 421, 449, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345387062414*^9}, - CellLabel-> - "During evaluation of \ -In[421]:=",ExpressionUUID->"08a2126f-e71c-b94d-8844-15e292a8f7d1"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.19148428074309`*^-272\\\", \ -\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 421, 450, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345387076412*^9}, - CellLabel-> - "During evaluation of \ -In[421]:=",ExpressionUUID->"1acf7f10-7675-ea41-b478-94e928ef3377"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.652750330712858`*^-282\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.4430475663969373`*^-260\\\", \ \\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 421, 451, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345387088339*^9}, +\"", 2, 99, 21, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345387062414*^9, 3.994257522986652*^9}, CellLabel-> "During evaluation of \ -In[421]:=",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], +In[99]:=",ExpressionUUID->"fa6b9ca7-67b7-4232-81b5-74461c30a378"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3063884998001115`*^-269\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 99, 22, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345387062414*^9, 3.994257522994684*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"c232d140-bb9a-4931-b26c-de7a5032127b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.985745737758983`*^-279\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 99, 23, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345387062414*^9, 3.994257523003183*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"c638ae64-5610-45a1-9c46-58d47b0ff384"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 421, 452, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913453870973415`*^9}, +during this calculation.\"", 2, 99, 24, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345387062414*^9, 3.994257523020265*^9}, CellLabel-> "During evaluation of \ -In[421]:=",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], +In[99]:=",ExpressionUUID->"38210fbb-5fd9-40b1-8522-1598c859d7ad"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy -GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi -4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai -bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa -uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk -vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb -hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS -SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP -F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw -2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr -w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD -JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY -/nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH -zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 -8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 -HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX -csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw -uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh -XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e -w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e -caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN -C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ -EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf -hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N -SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z -20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp -HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S -TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC -+3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b -g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW -221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 -88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 -H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH -F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC -akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS -f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp -+zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP -KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR -HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE -Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e -7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso -ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 -Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw -ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL -jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs -6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa -d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn -jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 -TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 -IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv -gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp -OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna -SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 -NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk -Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 -i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov -GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 -6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf -FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL -Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV -ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h -hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi -xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA -2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 -M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK -/HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg -qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ -PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe -HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h -xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy -NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N -hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf -LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 -Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ -497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE -zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf -Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN -kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU -BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS -gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK -Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s -h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg -8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 -BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW -wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS -9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm -oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb -reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu -+7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN -8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc -Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H -OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D -3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh -zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l -sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO -hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP -8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 -vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs -zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz -0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T -7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON -EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ -8VF94vJg1Az+B+ielp4= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13lYDV8YB3CKFrQo6rbfO/e20KaipK73FdIiRKK0UhKJqFDRQioVqaSi +pBJpuRMpifZNkiitP/WTPZXQQsjv/P6YZ57PM88zc8475/2eGdbuQ1vd+WbN +mjVDjv/Pk/2P6zjR2auZXkUu2QKwuiOdcWJNdxh87Uoc7vaTB1z8bDejOx4a +Et5IJvtpgP+W21383ZmQs/7+wEE/Y1g4Kh3/s+sOvJtzM0fHbyMMPNx0aLyr +Bt7EsBYe83UAU87Qq69dL+DOyzCRWz5e8LPL4NJY1yAYbDSxDtobBLVrb2Y/ +z/wOg6LBGWlusSA/UPZ+t8YfWHJGa8+C1EuwyMv5tuBaftQJ4ozfl78K8Tqm +5Zu2C2HrlM9Vsb3XoSd5WdVXcREcHHUtGLTKhujs4Gd8MgvxY2fwxzGtmyCd ++CYqIU0SG53OqdYX50KEjfnqF5OLUWn+BMrU5YFscass32wp/JERbL+7JQ8K +JW2mdOZL4R7f0o4bHXnQ+cKJvqgkhcWDWz/IvcsDjrUvZW0mhXE56fvr5uZD +jdU1gbYUKczd9k5WwDQf/phOtD41lsaxAx/FTGvy4ajhdefHYQwUfSz6ITa3 +ACwyRMctYxiYZLpr+zivACjBoMjWSww83rOheHtJAbR12Ba132Jg8zo3E+Ha +AtA6vIC/v5WB5s8LE/X+KYCPOcdyvsnKoHqGbUWiSCE4LNo0IndXBs+qJnae +9SoEvcDy0PSHMpj/b0qexZFCmDeoJsVqkMGDS+d5CB8vhDIeP6j0yOCAoknc +sdOFIGVZFrfsrwzqN/LnSKUWQlsoZ/l6S1k8XCpw17mhENZ9mQ7wfiOLrPLf +XHk5HpwwS1xaPSyLpThcTzF5UHhds1dyUhbzpkt2c5R5wLBxMSwTkkODiNu9 +DG0eDN+vn+LXksM3xz/WNJjwICEszjfluBxqmfcd0vfkweBiFe86EXnMdrht +636HB9KHKhWkpeXR9MzQ8dYSHmxs2vnUkymPVguf07rlPCgJiNYQ05PH5JgZ +1+FaHpwbGBuy2ymPgffkn3Je8kA3t9zjS6Y8trmFvM2d5EGosbWr7EoFLDK5 +zOGXo8HMKf2bgYkCGgj07ZdQoEE05PPp7RsVsLqp45miEg1Xa8Nz4lwUsGpb +4qQWm4b7Fg8+C0QpoKs146GGOg1jO9n+33sUcM6e+C3pq2hw8ps41xKoiNzX +3ot37aBB+bKJ/FC4IoY0uSeK2tFk/hcKBOMUUcB2fGWlPQ0Bv5e0mWQroubU +0HdpJxounXZaXNaiiDvFRlbedKOh5WLjtRsKSvhGzRa4PjSsKkwpPlWphK+O +ZnmYR9Kwrqv1z2iTEraLj+hER9GwadacDc4vlPAHY35U8zka9mz17oF3Snjz +0Hj/mlgaTANZwSFzmXghe1hHMp6Gw0qTWWvUmciX212GV2iYuBvX9FObiddE +VvnvukrGZ6Y+UrSciZE+R+qOptEQ7uOiT61mYnP1Q+m0azSk1jY38VkzUbZZ +JetFFg11HtdGav2Z2Oidkfo4jwbz34YSQYFMnH4SlvYon4bWuA795SFMdGQ+ +M+AV0NBTJhySHcVEiacKy6N5NIzO95UIv8pEu4Lp7Sp3aWDQZgamNUz8q1ea +8KmMhrR1b3bNNDBx+fqDq0of0ED1nAwpecJE99b8U2HlNGjy3X2s8pKJZjO7 +Xy98RIOJjYKD4Ecyn5g5couqaPD68TWkSYSFdtVp5Tn1pJ4+e6XeS7Dwg72S +u0MDDUJDvXn8DBZ+U9M3F2uk4UZfbedqioX1aXa1Xk009Fdc0rinz0I9G7kL +Ak9oyDeYV/PCiIXPfr6VzyEOoE/tGEMWat+v+WTSQoNUpkeYuiULI2wE1/o+ +pWFzuGH3dWcW9kxN8Jc8o0FxpuBgpRsLvd2upkIbWR/+FP8rTxbuKeTzayCO +3Ddfi+HLwm2DPlNPntNQZfnq9PlIFpa6lqwtaafhfJ21TH4sC8WDdIWXdtDg +wG0ofBzPQk8zU+krxD+1eD1z0lh4sqlAzO8lDboSodqBRSzMrv8SJtRFw6zo +ibrkEhYKSySn7yVu5d9vX1LOwn2sPsEa4gMTW8O/1rNQpKyy/nA3qZd3o6zY +ExY+/psrV0cs9MGI1mhjYUJ4VfWiHhqyuzl9Hr0snD13/uxC4iPWKYfDB1ho +/DvmyiQxNosIZL1lYZtGV6RxLw2vyieX9Y+ycLWDh1MVcf7yAw2/vrOQcW6W +2QxxQMHALpmfLAzfJBRh2Efqea3prA0/hboiC4VuEb+V5sofEaJQzX6/ZR/x +nbiiogsiFK4aHHw//x8aQoRVNhRIUHh0r1qfIfHmsNR/mqUp1LT4pOZOrPhL +9MhHeQovxXe0xRIPHz0tKEBRuOl9Svtd4kh3L901GhSme/sOTxHb9v/b6KRD +YZrkML/UKxo4O7Y7BulT+G8W3wkd4m/PHn9LMaLwzPv9Gy2Iq8xWR5YihafX +dJ9yIT5ffUfh5XoKdcpmxH2JHVap3v1mQWHFl3j+cOKld6+YiW+h8AXHYkcC +8U918X7N7RQuWdG74BrxZJpsqJ49hSKO+2bdIh4XU+YYOlNoYe13qJD4a6h2 +42o3Ctm9hfZ3iEe/G+5f50mh+JbamrvEn93XiVh4U+h2xfXW/9c/dm2iNx+l +sFXPcAGP+J253bbtxyn8pTQ9+v/9B8v3TNqfpHDlhI11BvGApneKSxiFI53T +epeI/7l23HhvBIW2/mmXI4h7Fp4eOBBD4XyJL0HHiDtPx4b5XKQw2i/zrRtx ++8Rl5WNJFH74sf/ZZuI2j8ymoCsUbgz5zV1J/LQn/0BYBoXZgfN1FImbLUtF +I29QqPh+Y+5s4sZH1UWxtylsXu9/c5C8jzrtFpsEHoXcPK5GNXH19c6p5GIK +GUV2K9OIKyRfp6aXUXglMLTFn7g8/DM3u4LU677XJyvi+1MT/+bWUngsrf0C +RXynb57qvacUyrydCqwj64lntbj5wQsKw+zVai8S51cqHazqovBc5oMkB+Kc +rOV3n7ymENLH3g2R9Zp6wAkGJ4g36xkOkfV++dW+wQ/TFM7L+zuVRZy4+Wj4 +yF9S362S5ruIz+tFPvkhzEYxKZEbNaSfwn4V7RBTZGP4q012vqT/gg8+nF7E +ZuNFX9tKWeKggYY0WTU2rr+d96iikwb/2r43yrpsZORbnv1L+vtA9NzDxqZs +tPnW6eBG+n/fHzFJE0s25r19mDpF8mLvIdmSDVvY6NYodSyS2GWb9u+t9mz0 +6TIRzXpBg42cXaSnNxt1zzi1lJP8Mc7Lz0hKYmP7ZbOVQSTP+ph519ZfYaP1 +RHnB9//zLik3ffwaGz0v/5HzJC4Nzbm6NZeNj+ede2fVTPJmZ0ay6EM2RhRp +w1+Sp0vmJsadfc1GQ3GR67NraWgKiL+w4j0b5xTlfttZQ8Y3Fnf+7RAbFW/e +21BYTfKkLzbGZJyNOjHPZraS/GbeiYicEeDgPSvh4jMk36WcA0P8NTgYwUhs +jyql4V7HiWBlHQ42J34sqC4h87E4fqpjBQe/JV9PmrpHQ/wKvyBd4OCSWOEk +x2IaRBYcOj5qzcGATGMXiSIa5pTtPrz3GAe/fIiqVLpN+knCwsW2hoNpG6Sy +W1Np6Pai2vY3clBoYE/w3RTS3w3TENzCwQEh0EhKpiEuIE/pVicHKzfbz9gk +0bBscMHAzyEOmgg6p9+/SIN30TPHNEllPDx2I4NB9u+hzdt3vXVTRn54udPk +KA0vcjWf/PBURqmwBqM3ZL9/wC9gJHJIGSsvtouGHaYhqrREVv+EMq7RXxJV +dpAGNSVGb0SsMi7u0xgS20eDx2jvTvUSZbyt9NFwlwPJxxgX2yOCKlgRq8V3 +dC15/pAGtWyBCg7W+0V/WUPD1IafIyPiKliQEuK2H2mYxx8f7imrgg8b1IV3 +ccn4T9QWu2iqIPfliJ6aAQ0n3VUkN29TwcurDjQdWUrqv3r4mfo1FXTSnV/d +Kkb2+y/HzN/pq2Jwh/eyzDweyOsonhUyVsWKXQuPnbrJg9EjdTXqa1TRekfy ++h1ZPEicFDc+YqmKvCXSp2dSedD/J1frr7MqRl9a84h9jgdHFvwjKROlivZP +I2SfePAgdQn2b+xTxbDglo9Xyffm8B6ho8XBarjc1kPkcWQh+b+Q5ouoWYLF +zjfX8bgFIPFU5Tz9ZSm6VpjOXP2QB/KRvC36+hq45ULB++SdtyFZ3VBc0kMT +J9nCrJa2W9Asu2bF94taGPVq8ym+9TdhlXxNnHanNkpI25epX7wBovyZvq5h +y5Arau0jOJ0FiqFKxnYqOrhwpH7+r/WZIKzsULK1UQcDplYmqGZngBZXhnfM +URf7LZ8+qbBNhyP9ErUWs/TwpcBDm0CzK/Dle8x282Q9XBwQM/t7QjJs0G5I +NddcjhwZP752ySSo+G70a6p1OX468fqXaXQCeGvo9j53X4GjfgLFPfYXgTvq +1mEnrI8HShekmNqdh/UchpVIpj6Wm6csGcw8B2oh547XGBhg4qynVdnbImCp +u2Glcq8BJvnILeNjnAH3in1nin1W4ojg2lpP91CozOhw+7rYEJstrdYppJ6E +8Vt/p7RLDXHkYLu1KPME7FHOE061WoWTCZEO5/384OvSBP07Y6swtr1lztIZ +H7if/ev1RKQRXk6lxoJcvcF+HRuNFI0xun7Jsn3pniB3MKJMq8oYddcOOF7S +dofF87yKrHZw0VGvUXdZritkrz0ZMGbHRbuFi14XpLqC7snzaxMcuNjZZPt+ +RYwrbBqjX3a7cnFD4Np+t0OucLZz4uceLy5a0G0DXH1X+JEZbBIQysW5/t/F +u+pdoNcooT0nj4u6fOJXf3U7wz6/7KvmhVzcp/PBxL/CGSYL77kP01zcVZKp +OifbGSSo7imdEi6esug4aXfIGSyFFOQfVXEx5Y0b+5OAMzzsyHFrf8nF0lU1 +8fGGTmAhel/Tv5uLolmf+4yYTtC94fEko4+LoTCvaErACcYffI50+peLlYuN +2nM6HEHz+rKCT0NctNrRX/f6sCM87F3jHzPCxeI8QSPFnY5gsWgbaI9x8XBS +2TsvcIS9EX7PfSe4OO63uQBFHWG86myq9A8u1n6OKq6fcICw6ct7HkxzMeTX +zzqHVw4gvjxXw/EPFzeue9k+t94B0g8+mPj7l4sNsds7q/Id4D+YEVnI "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -8088,130 +8204,113 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy -GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi -4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai -bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa -uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk -vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb -hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS -SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP -F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw -2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr -w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD -JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY -/nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH -zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 -8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 -HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX -csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw -uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh -XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e -w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e -caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN -C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ -EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf -hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N -SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z -20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp -HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S -TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC -+3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b -g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW -221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 -88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 -H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH -F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC -akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS -f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp -+zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP -KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR -HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE -Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e -7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso -ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 -Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw -ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL -jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs -6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa -d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn -jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 -TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 -IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv -gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp -OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna -SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 -NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk -Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 -i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov -GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 -6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf -FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL -Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV -ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h -hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi -xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA -2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 -M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK -/HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg -qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ -PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe -HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h -xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy -NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N -hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf -LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 -Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ -497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE -zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf -Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN -kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU -BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS -gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK -Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s -h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg -8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 -BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW -wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS -9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm -oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb -reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu -+7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN -8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc -Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H -OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D -3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh -zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l -sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO -hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP -8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 -vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs -zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz -0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T -7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON -EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ -8VF94vJg1Az+B+ielp4= +1:eJwV13lYDV8YB3CKFrQo6rbfO/e20KaipK73FdIiRKK0UhKJqFDRQioVqaSi +pBJpuRMpifZNkiitP/WTPZXQQsjv/P6YZ57PM88zc8475/2eGdbuQ1vd+WbN +mjVDjv/Pk/2P6zjR2auZXkUu2QKwuiOdcWJNdxh87Uoc7vaTB1z8bDejOx4a +Et5IJvtpgP+W21383ZmQs/7+wEE/Y1g4Kh3/s+sOvJtzM0fHbyMMPNx0aLyr +Bt7EsBYe83UAU87Qq69dL+DOyzCRWz5e8LPL4NJY1yAYbDSxDtobBLVrb2Y/ +z/wOg6LBGWlusSA/UPZ+t8YfWHJGa8+C1EuwyMv5tuBaftQJ4ozfl78K8Tqm +5Zu2C2HrlM9Vsb3XoSd5WdVXcREcHHUtGLTKhujs4Gd8MgvxY2fwxzGtmyCd ++CYqIU0SG53OqdYX50KEjfnqF5OLUWn+BMrU5YFscass32wp/JERbL+7JQ8K +JW2mdOZL4R7f0o4bHXnQ+cKJvqgkhcWDWz/IvcsDjrUvZW0mhXE56fvr5uZD +jdU1gbYUKczd9k5WwDQf/phOtD41lsaxAx/FTGvy4ajhdefHYQwUfSz6ITa3 +ACwyRMctYxiYZLpr+zivACjBoMjWSww83rOheHtJAbR12Ba132Jg8zo3E+Ha +AtA6vIC/v5WB5s8LE/X+KYCPOcdyvsnKoHqGbUWiSCE4LNo0IndXBs+qJnae +9SoEvcDy0PSHMpj/b0qexZFCmDeoJsVqkMGDS+d5CB8vhDIeP6j0yOCAoknc +sdOFIGVZFrfsrwzqN/LnSKUWQlsoZ/l6S1k8XCpw17mhENZ9mQ7wfiOLrPLf +XHk5HpwwS1xaPSyLpThcTzF5UHhds1dyUhbzpkt2c5R5wLBxMSwTkkODiNu9 +DG0eDN+vn+LXksM3xz/WNJjwICEszjfluBxqmfcd0vfkweBiFe86EXnMdrht +636HB9KHKhWkpeXR9MzQ8dYSHmxs2vnUkymPVguf07rlPCgJiNYQ05PH5JgZ +1+FaHpwbGBuy2ymPgffkn3Je8kA3t9zjS6Y8trmFvM2d5EGosbWr7EoFLDK5 +zOGXo8HMKf2bgYkCGgj07ZdQoEE05PPp7RsVsLqp45miEg1Xa8Nz4lwUsGpb +4qQWm4b7Fg8+C0QpoKs146GGOg1jO9n+33sUcM6e+C3pq2hw8ps41xKoiNzX +3ot37aBB+bKJ/FC4IoY0uSeK2tFk/hcKBOMUUcB2fGWlPQ0Bv5e0mWQroubU +0HdpJxounXZaXNaiiDvFRlbedKOh5WLjtRsKSvhGzRa4PjSsKkwpPlWphK+O +ZnmYR9Kwrqv1z2iTEraLj+hER9GwadacDc4vlPAHY35U8zka9mz17oF3Snjz +0Hj/mlgaTANZwSFzmXghe1hHMp6Gw0qTWWvUmciX212GV2iYuBvX9FObiddE +VvnvukrGZ6Y+UrSciZE+R+qOptEQ7uOiT61mYnP1Q+m0azSk1jY38VkzUbZZ +JetFFg11HtdGav2Z2Oidkfo4jwbz34YSQYFMnH4SlvYon4bWuA795SFMdGQ+ +M+AV0NBTJhySHcVEiacKy6N5NIzO95UIv8pEu4Lp7Sp3aWDQZgamNUz8q1ea +8KmMhrR1b3bNNDBx+fqDq0of0ED1nAwpecJE99b8U2HlNGjy3X2s8pKJZjO7 +Xy98RIOJjYKD4Ecyn5g5couqaPD68TWkSYSFdtVp5Tn1pJ4+e6XeS7Dwg72S +u0MDDUJDvXn8DBZ+U9M3F2uk4UZfbedqioX1aXa1Xk009Fdc0rinz0I9G7kL +Ak9oyDeYV/PCiIXPfr6VzyEOoE/tGEMWat+v+WTSQoNUpkeYuiULI2wE1/o+ +pWFzuGH3dWcW9kxN8Jc8o0FxpuBgpRsLvd2upkIbWR/+FP8rTxbuKeTzayCO +3Ddfi+HLwm2DPlNPntNQZfnq9PlIFpa6lqwtaafhfJ21TH4sC8WDdIWXdtDg +wG0ofBzPQk8zU+krxD+1eD1z0lh4sqlAzO8lDboSodqBRSzMrv8SJtRFw6zo +ibrkEhYKSySn7yVu5d9vX1LOwn2sPsEa4gMTW8O/1rNQpKyy/nA3qZd3o6zY +ExY+/psrV0cs9MGI1mhjYUJ4VfWiHhqyuzl9Hr0snD13/uxC4iPWKYfDB1ho +/DvmyiQxNosIZL1lYZtGV6RxLw2vyieX9Y+ycLWDh1MVcf7yAw2/vrOQcW6W +2QxxQMHALpmfLAzfJBRh2Efqea3prA0/hboiC4VuEb+V5sofEaJQzX6/ZR/x +nbiiogsiFK4aHHw//x8aQoRVNhRIUHh0r1qfIfHmsNR/mqUp1LT4pOZOrPhL +9MhHeQovxXe0xRIPHz0tKEBRuOl9Svtd4kh3L901GhSme/sOTxHb9v/b6KRD +YZrkML/UKxo4O7Y7BulT+G8W3wkd4m/PHn9LMaLwzPv9Gy2Iq8xWR5YihafX +dJ9yIT5ffUfh5XoKdcpmxH2JHVap3v1mQWHFl3j+cOKld6+YiW+h8AXHYkcC +8U918X7N7RQuWdG74BrxZJpsqJ49hSKO+2bdIh4XU+YYOlNoYe13qJD4a6h2 +42o3Ctm9hfZ3iEe/G+5f50mh+JbamrvEn93XiVh4U+h2xfXW/9c/dm2iNx+l +sFXPcAGP+J253bbtxyn8pTQ9+v/9B8v3TNqfpHDlhI11BvGApneKSxiFI53T +epeI/7l23HhvBIW2/mmXI4h7Fp4eOBBD4XyJL0HHiDtPx4b5XKQw2i/zrRtx ++8Rl5WNJFH74sf/ZZuI2j8ymoCsUbgz5zV1J/LQn/0BYBoXZgfN1FImbLUtF +I29QqPh+Y+5s4sZH1UWxtylsXu9/c5C8jzrtFpsEHoXcPK5GNXH19c6p5GIK +GUV2K9OIKyRfp6aXUXglMLTFn7g8/DM3u4LU677XJyvi+1MT/+bWUngsrf0C +RXynb57qvacUyrydCqwj64lntbj5wQsKw+zVai8S51cqHazqovBc5oMkB+Kc +rOV3n7ymENLH3g2R9Zp6wAkGJ4g36xkOkfV++dW+wQ/TFM7L+zuVRZy4+Wj4 +yF9S362S5ruIz+tFPvkhzEYxKZEbNaSfwn4V7RBTZGP4q012vqT/gg8+nF7E +ZuNFX9tKWeKggYY0WTU2rr+d96iikwb/2r43yrpsZORbnv1L+vtA9NzDxqZs +tPnW6eBG+n/fHzFJE0s25r19mDpF8mLvIdmSDVvY6NYodSyS2GWb9u+t9mz0 +6TIRzXpBg42cXaSnNxt1zzi1lJP8Mc7Lz0hKYmP7ZbOVQSTP+ph519ZfYaP1 +RHnB9//zLik3ffwaGz0v/5HzJC4Nzbm6NZeNj+ede2fVTPJmZ0ay6EM2RhRp +w1+Sp0vmJsadfc1GQ3GR67NraWgKiL+w4j0b5xTlfttZQ8Y3Fnf+7RAbFW/e +21BYTfKkLzbGZJyNOjHPZraS/GbeiYicEeDgPSvh4jMk36WcA0P8NTgYwUhs +jyql4V7HiWBlHQ42J34sqC4h87E4fqpjBQe/JV9PmrpHQ/wKvyBd4OCSWOEk +x2IaRBYcOj5qzcGATGMXiSIa5pTtPrz3GAe/fIiqVLpN+knCwsW2hoNpG6Sy +W1Np6Pai2vY3clBoYE/w3RTS3w3TENzCwQEh0EhKpiEuIE/pVicHKzfbz9gk +0bBscMHAzyEOmgg6p9+/SIN30TPHNEllPDx2I4NB9u+hzdt3vXVTRn54udPk +KA0vcjWf/PBURqmwBqM3ZL9/wC9gJHJIGSsvtouGHaYhqrREVv+EMq7RXxJV +dpAGNSVGb0SsMi7u0xgS20eDx2jvTvUSZbyt9NFwlwPJxxgX2yOCKlgRq8V3 +dC15/pAGtWyBCg7W+0V/WUPD1IafIyPiKliQEuK2H2mYxx8f7imrgg8b1IV3 +ccn4T9QWu2iqIPfliJ6aAQ0n3VUkN29TwcurDjQdWUrqv3r4mfo1FXTSnV/d +Kkb2+y/HzN/pq2Jwh/eyzDweyOsonhUyVsWKXQuPnbrJg9EjdTXqa1TRekfy ++h1ZPEicFDc+YqmKvCXSp2dSedD/J1frr7MqRl9a84h9jgdHFvwjKROlivZP +I2SfePAgdQn2b+xTxbDglo9Xyffm8B6ho8XBarjc1kPkcWQh+b+Q5ouoWYLF +zjfX8bgFIPFU5Tz9ZSm6VpjOXP2QB/KRvC36+hq45ULB++SdtyFZ3VBc0kMT +J9nCrJa2W9Asu2bF94taGPVq8ym+9TdhlXxNnHanNkpI25epX7wBovyZvq5h +y5Arau0jOJ0FiqFKxnYqOrhwpH7+r/WZIKzsULK1UQcDplYmqGZngBZXhnfM +URf7LZ8+qbBNhyP9ErUWs/TwpcBDm0CzK/Dle8x282Q9XBwQM/t7QjJs0G5I +NddcjhwZP752ySSo+G70a6p1OX468fqXaXQCeGvo9j53X4GjfgLFPfYXgTvq +1mEnrI8HShekmNqdh/UchpVIpj6Wm6csGcw8B2oh547XGBhg4qynVdnbImCp +u2Glcq8BJvnILeNjnAH3in1nin1W4ojg2lpP91CozOhw+7rYEJstrdYppJ6E +8Vt/p7RLDXHkYLu1KPME7FHOE061WoWTCZEO5/384OvSBP07Y6swtr1lztIZ +H7if/ev1RKQRXk6lxoJcvcF+HRuNFI0xun7Jsn3pniB3MKJMq8oYddcOOF7S +dofF87yKrHZw0VGvUXdZritkrz0ZMGbHRbuFi14XpLqC7snzaxMcuNjZZPt+ +RYwrbBqjX3a7cnFD4Np+t0OucLZz4uceLy5a0G0DXH1X+JEZbBIQysW5/t/F +u+pdoNcooT0nj4u6fOJXf3U7wz6/7KvmhVzcp/PBxL/CGSYL77kP01zcVZKp +OifbGSSo7imdEi6esug4aXfIGSyFFOQfVXEx5Y0b+5OAMzzsyHFrf8nF0lU1 +8fGGTmAhel/Tv5uLolmf+4yYTtC94fEko4+LoTCvaErACcYffI50+peLlYuN +2nM6HEHz+rKCT0NctNrRX/f6sCM87F3jHzPCxeI8QSPFnY5gsWgbaI9x8XBS +2TsvcIS9EX7PfSe4OO63uQBFHWG86myq9A8u1n6OKq6fcICw6ct7HkxzMeTX +zzqHVw4gvjxXw/EPFzeue9k+t94B0g8+mPj7l4sNsds7q/Id4D+YEVnI "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "PlotRange" -> {{0, 30}, {0., 0.06588290696100807}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -8223,19 +8322,19 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "PlotRange" -> {{0, 30}, {0., 0.06588290696100807}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8249,129 +8348,112 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy -GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi -4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai -bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa -uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk -vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb -hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS -SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP -F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw -2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr -w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD -JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY -/nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH -zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 -8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 -HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX -csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw -uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh -XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e -w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e -caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN -C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ -EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf -hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N -SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z -20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp -HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S -TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC -+3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b -g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW -221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 -88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 -H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH -F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC -akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS -f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp -+zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP -KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR -HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE -Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e -7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso -ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 -Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw -ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL -jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs -6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa -d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn -jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 -TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 -IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv -gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp -OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna -SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 -NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk -Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 -i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov -GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 -6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf -FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL -Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV -ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h -hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi -xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA -2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 -M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK -/HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg -qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ -PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe -HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h -xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy -NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N -hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf -LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 -Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ -497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE -zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf -Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN -kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU -BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS -gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK -Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s -h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg -8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 -BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW -wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS -9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm -oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb -reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu -+7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN -8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc -Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H -OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D -3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh -zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l -sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO -hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP -8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 -vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs -zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz -0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T -7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON -EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ -8VF94vJg1Az+B+ielp4= +1:eJwV13lYDV8YB3CKFrQo6rbfO/e20KaipK73FdIiRKK0UhKJqFDRQioVqaSi +pBJpuRMpifZNkiitP/WTPZXQQsjv/P6YZ57PM88zc8475/2eGdbuQ1vd+WbN +mjVDjv/Pk/2P6zjR2auZXkUu2QKwuiOdcWJNdxh87Uoc7vaTB1z8bDejOx4a +Et5IJvtpgP+W21383ZmQs/7+wEE/Y1g4Kh3/s+sOvJtzM0fHbyMMPNx0aLyr +Bt7EsBYe83UAU87Qq69dL+DOyzCRWz5e8LPL4NJY1yAYbDSxDtobBLVrb2Y/ +z/wOg6LBGWlusSA/UPZ+t8YfWHJGa8+C1EuwyMv5tuBaftQJ4ozfl78K8Tqm +5Zu2C2HrlM9Vsb3XoSd5WdVXcREcHHUtGLTKhujs4Gd8MgvxY2fwxzGtmyCd ++CYqIU0SG53OqdYX50KEjfnqF5OLUWn+BMrU5YFscass32wp/JERbL+7JQ8K +JW2mdOZL4R7f0o4bHXnQ+cKJvqgkhcWDWz/IvcsDjrUvZW0mhXE56fvr5uZD +jdU1gbYUKczd9k5WwDQf/phOtD41lsaxAx/FTGvy4ajhdefHYQwUfSz6ITa3 +ACwyRMctYxiYZLpr+zivACjBoMjWSww83rOheHtJAbR12Ba132Jg8zo3E+Ha +AtA6vIC/v5WB5s8LE/X+KYCPOcdyvsnKoHqGbUWiSCE4LNo0IndXBs+qJnae +9SoEvcDy0PSHMpj/b0qexZFCmDeoJsVqkMGDS+d5CB8vhDIeP6j0yOCAoknc +sdOFIGVZFrfsrwzqN/LnSKUWQlsoZ/l6S1k8XCpw17mhENZ9mQ7wfiOLrPLf +XHk5HpwwS1xaPSyLpThcTzF5UHhds1dyUhbzpkt2c5R5wLBxMSwTkkODiNu9 +DG0eDN+vn+LXksM3xz/WNJjwICEszjfluBxqmfcd0vfkweBiFe86EXnMdrht +636HB9KHKhWkpeXR9MzQ8dYSHmxs2vnUkymPVguf07rlPCgJiNYQ05PH5JgZ +1+FaHpwbGBuy2ymPgffkn3Je8kA3t9zjS6Y8trmFvM2d5EGosbWr7EoFLDK5 +zOGXo8HMKf2bgYkCGgj07ZdQoEE05PPp7RsVsLqp45miEg1Xa8Nz4lwUsGpb +4qQWm4b7Fg8+C0QpoKs146GGOg1jO9n+33sUcM6e+C3pq2hw8ps41xKoiNzX +3ot37aBB+bKJ/FC4IoY0uSeK2tFk/hcKBOMUUcB2fGWlPQ0Bv5e0mWQroubU +0HdpJxounXZaXNaiiDvFRlbedKOh5WLjtRsKSvhGzRa4PjSsKkwpPlWphK+O +ZnmYR9Kwrqv1z2iTEraLj+hER9GwadacDc4vlPAHY35U8zka9mz17oF3Snjz +0Hj/mlgaTANZwSFzmXghe1hHMp6Gw0qTWWvUmciX212GV2iYuBvX9FObiddE +VvnvukrGZ6Y+UrSciZE+R+qOptEQ7uOiT61mYnP1Q+m0azSk1jY38VkzUbZZ +JetFFg11HtdGav2Z2Oidkfo4jwbz34YSQYFMnH4SlvYon4bWuA795SFMdGQ+ +M+AV0NBTJhySHcVEiacKy6N5NIzO95UIv8pEu4Lp7Sp3aWDQZgamNUz8q1ea +8KmMhrR1b3bNNDBx+fqDq0of0ED1nAwpecJE99b8U2HlNGjy3X2s8pKJZjO7 +Xy98RIOJjYKD4Ecyn5g5couqaPD68TWkSYSFdtVp5Tn1pJ4+e6XeS7Dwg72S +u0MDDUJDvXn8DBZ+U9M3F2uk4UZfbedqioX1aXa1Xk009Fdc0rinz0I9G7kL +Ak9oyDeYV/PCiIXPfr6VzyEOoE/tGEMWat+v+WTSQoNUpkeYuiULI2wE1/o+ +pWFzuGH3dWcW9kxN8Jc8o0FxpuBgpRsLvd2upkIbWR/+FP8rTxbuKeTzayCO +3Ddfi+HLwm2DPlNPntNQZfnq9PlIFpa6lqwtaafhfJ21TH4sC8WDdIWXdtDg +wG0ofBzPQk8zU+krxD+1eD1z0lh4sqlAzO8lDboSodqBRSzMrv8SJtRFw6zo +ibrkEhYKSySn7yVu5d9vX1LOwn2sPsEa4gMTW8O/1rNQpKyy/nA3qZd3o6zY +ExY+/psrV0cs9MGI1mhjYUJ4VfWiHhqyuzl9Hr0snD13/uxC4iPWKYfDB1ho +/DvmyiQxNosIZL1lYZtGV6RxLw2vyieX9Y+ycLWDh1MVcf7yAw2/vrOQcW6W +2QxxQMHALpmfLAzfJBRh2Efqea3prA0/hboiC4VuEb+V5sofEaJQzX6/ZR/x +nbiiogsiFK4aHHw//x8aQoRVNhRIUHh0r1qfIfHmsNR/mqUp1LT4pOZOrPhL +9MhHeQovxXe0xRIPHz0tKEBRuOl9Svtd4kh3L901GhSme/sOTxHb9v/b6KRD +YZrkML/UKxo4O7Y7BulT+G8W3wkd4m/PHn9LMaLwzPv9Gy2Iq8xWR5YihafX +dJ9yIT5ffUfh5XoKdcpmxH2JHVap3v1mQWHFl3j+cOKld6+YiW+h8AXHYkcC +8U918X7N7RQuWdG74BrxZJpsqJ49hSKO+2bdIh4XU+YYOlNoYe13qJD4a6h2 +42o3Ctm9hfZ3iEe/G+5f50mh+JbamrvEn93XiVh4U+h2xfXW/9c/dm2iNx+l +sFXPcAGP+J253bbtxyn8pTQ9+v/9B8v3TNqfpHDlhI11BvGApneKSxiFI53T +epeI/7l23HhvBIW2/mmXI4h7Fp4eOBBD4XyJL0HHiDtPx4b5XKQw2i/zrRtx ++8Rl5WNJFH74sf/ZZuI2j8ymoCsUbgz5zV1J/LQn/0BYBoXZgfN1FImbLUtF +I29QqPh+Y+5s4sZH1UWxtylsXu9/c5C8jzrtFpsEHoXcPK5GNXH19c6p5GIK +GUV2K9OIKyRfp6aXUXglMLTFn7g8/DM3u4LU677XJyvi+1MT/+bWUngsrf0C +RXynb57qvacUyrydCqwj64lntbj5wQsKw+zVai8S51cqHazqovBc5oMkB+Kc +rOV3n7ymENLH3g2R9Zp6wAkGJ4g36xkOkfV++dW+wQ/TFM7L+zuVRZy4+Wj4 +yF9S362S5ruIz+tFPvkhzEYxKZEbNaSfwn4V7RBTZGP4q012vqT/gg8+nF7E +ZuNFX9tKWeKggYY0WTU2rr+d96iikwb/2r43yrpsZORbnv1L+vtA9NzDxqZs +tPnW6eBG+n/fHzFJE0s25r19mDpF8mLvIdmSDVvY6NYodSyS2GWb9u+t9mz0 +6TIRzXpBg42cXaSnNxt1zzi1lJP8Mc7Lz0hKYmP7ZbOVQSTP+ph519ZfYaP1 +RHnB9//zLik3ffwaGz0v/5HzJC4Nzbm6NZeNj+ede2fVTPJmZ0ay6EM2RhRp +w1+Sp0vmJsadfc1GQ3GR67NraWgKiL+w4j0b5xTlfttZQ8Y3Fnf+7RAbFW/e +21BYTfKkLzbGZJyNOjHPZraS/GbeiYicEeDgPSvh4jMk36WcA0P8NTgYwUhs +jyql4V7HiWBlHQ42J34sqC4h87E4fqpjBQe/JV9PmrpHQ/wKvyBd4OCSWOEk +x2IaRBYcOj5qzcGATGMXiSIa5pTtPrz3GAe/fIiqVLpN+knCwsW2hoNpG6Sy +W1Np6Pai2vY3clBoYE/w3RTS3w3TENzCwQEh0EhKpiEuIE/pVicHKzfbz9gk +0bBscMHAzyEOmgg6p9+/SIN30TPHNEllPDx2I4NB9u+hzdt3vXVTRn54udPk +KA0vcjWf/PBURqmwBqM3ZL9/wC9gJHJIGSsvtouGHaYhqrREVv+EMq7RXxJV +dpAGNSVGb0SsMi7u0xgS20eDx2jvTvUSZbyt9NFwlwPJxxgX2yOCKlgRq8V3 +dC15/pAGtWyBCg7W+0V/WUPD1IafIyPiKliQEuK2H2mYxx8f7imrgg8b1IV3 +ccn4T9QWu2iqIPfliJ6aAQ0n3VUkN29TwcurDjQdWUrqv3r4mfo1FXTSnV/d +Kkb2+y/HzN/pq2Jwh/eyzDweyOsonhUyVsWKXQuPnbrJg9EjdTXqa1TRekfy ++h1ZPEicFDc+YqmKvCXSp2dSedD/J1frr7MqRl9a84h9jgdHFvwjKROlivZP +I2SfePAgdQn2b+xTxbDglo9Xyffm8B6ho8XBarjc1kPkcWQh+b+Q5ouoWYLF +zjfX8bgFIPFU5Tz9ZSm6VpjOXP2QB/KRvC36+hq45ULB++SdtyFZ3VBc0kMT +J9nCrJa2W9Asu2bF94taGPVq8ym+9TdhlXxNnHanNkpI25epX7wBovyZvq5h +y5Arau0jOJ0FiqFKxnYqOrhwpH7+r/WZIKzsULK1UQcDplYmqGZngBZXhnfM +URf7LZ8+qbBNhyP9ErUWs/TwpcBDm0CzK/Dle8x282Q9XBwQM/t7QjJs0G5I +NddcjhwZP752ySSo+G70a6p1OX468fqXaXQCeGvo9j53X4GjfgLFPfYXgTvq +1mEnrI8HShekmNqdh/UchpVIpj6Wm6csGcw8B2oh547XGBhg4qynVdnbImCp +u2Glcq8BJvnILeNjnAH3in1nin1W4ojg2lpP91CozOhw+7rYEJstrdYppJ6E +8Vt/p7RLDXHkYLu1KPME7FHOE061WoWTCZEO5/384OvSBP07Y6swtr1lztIZ +H7if/ev1RKQRXk6lxoJcvcF+HRuNFI0xun7Jsn3pniB3MKJMq8oYddcOOF7S +dofF87yKrHZw0VGvUXdZritkrz0ZMGbHRbuFi14XpLqC7snzaxMcuNjZZPt+ +RYwrbBqjX3a7cnFD4Np+t0OucLZz4uceLy5a0G0DXH1X+JEZbBIQysW5/t/F +u+pdoNcooT0nj4u6fOJXf3U7wz6/7KvmhVzcp/PBxL/CGSYL77kP01zcVZKp +OifbGSSo7imdEi6esug4aXfIGSyFFOQfVXEx5Y0b+5OAMzzsyHFrf8nF0lU1 +8fGGTmAhel/Tv5uLolmf+4yYTtC94fEko4+LoTCvaErACcYffI50+peLlYuN +2nM6HEHz+rKCT0NctNrRX/f6sCM87F3jHzPCxeI8QSPFnY5gsWgbaI9x8XBS +2TsvcIS9EX7PfSe4OO63uQBFHWG86myq9A8u1n6OKq6fcICw6ct7HkxzMeTX +zzqHVw4gvjxXw/EPFzeue9k+t94B0g8+mPj7l4sNsds7q/Id4D+YEVnI "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "PlotRange" -> {{0, 30}, {0., 0.06588290696100807}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8382,6 +8464,7 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8409,7 +8492,8 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.07335635796919572}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06588290696100807}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8417,9 +8501,8 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913457856953163`*^9}, - CellLabel-> - "Out[421]=",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] + CellChangeTimes->{3.9913457856953163`*^9, 3.99425835818228*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"9f456af2-db7a-424b-84b2-19123aa62e5e"] }, Open ]], Cell[CellGroupData[{ @@ -8472,66 +8555,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[422]:=",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], + "In[100]:=",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 422, 453, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345785749161*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.905059024202779`*^-160\\\", \ +RowBox[{\\\"505518991860510123640143147290826802026\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"71\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9512072804761600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 25, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345785749161*^9, 3.994258358346025*^9}, CellLabel-> "During evaluation of \ -In[422]:=",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], +In[100]:=",ExpressionUUID->"79cde8ea-2927-4549-a178-e0e7ae2650d0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 422, 454, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345785759161*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.559676524562317`*^-163\\\", \ +RowBox[{\\\"164243120455479739170682508554789627978\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"75\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4724542670438400000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 26, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345785749161*^9, 3.994258358359453*^9}, CellLabel-> "During evaluation of \ -In[422]:=",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], +In[100]:=",ExpressionUUID->"1e68c7d9-4a91-4f88-b1e9-d77ba3f427b1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 422, 455, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345785767502*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.915374099647473`*^-166\\\", \ +RowBox[{\\\"552513857212233842570175958778312308519\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"78\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3361543354777600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 27, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345785749161*^9, 3.994258358367943*^9}, CellLabel-> "During evaluation of \ -In[422]:=",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], +In[100]:=",ExpressionUUID->"5efbb723-135b-44ad-a744-1c842ab9a889"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 422, 456, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913457857765007`*^9}, +during this calculation.\"", 2, 100, 28, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345785749161*^9, 3.994258358376742*^9}, CellLabel-> "During evaluation of \ -In[422]:=",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], +In[100]:=",ExpressionUUID->"8e9c8b9c-34ca-408a-8991-c621c9d5a857"], -Cell[BoxData["10.362747935330768`"], "Output", - CellChangeTimes->{3.991345792196575*^9}, +Cell[BoxData["11.534150033543543`"], "Output", + CellChangeTimes->{3.991345792196575*^9, 3.99425843958993*^9}, CellLabel-> - "Out[422]=",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] + "Out[100]=",ExpressionUUID->"5bd842d1-8c51-4c03-9896-0322f150b924"] }, Open ]], Cell[CellGroupData[{ @@ -8598,68 +8688,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918501903071613`*^9, - 3.9918501951272774`*^9}},ExpressionUUID->"0b10f52e-4583-2a4b-993d-\ -96e59dd43e6a"], + CellChangeTimes->{{3.9918501903071613`*^9, 3.9918501951272774`*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"0b10f52e-4583-2a4b-993d-96e59dd43e6a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 423, 457, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345792232563*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.894379438095815`*^-213\\\", \ +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 29, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345792232563*^9, 3.994258439664701*^9}, CellLabel-> "During evaluation of \ -In[423]:=",ExpressionUUID->"0e308aaf-a4b5-d740-9882-5c338a63d7a7"], +In[101]:=",ExpressionUUID->"bb21f784-eef2-40bb-ad80-946c7adf9e60"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 423, 458, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345792242544*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2277572491348802`*^-218\\\", \ +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 30, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345792232563*^9, 3.994258439676236*^9}, CellLabel-> "During evaluation of \ -In[423]:=",ExpressionUUID->"5e35cc91-e340-c74b-b6dd-42063e8a308b"], +In[101]:=",ExpressionUUID->"fc3e0d51-56e8-47a2-88e2-2a29ad1a573f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 423, 459, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913457922505417`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.957159122875819`*^-224\\\", \ +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 31, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345792232563*^9, 3.99425843968701*^9}, CellLabel-> "During evaluation of \ -In[423]:=",ExpressionUUID->"c3f5c3a9-ece1-e648-aa3a-3f66f2873ea7"], +In[101]:=",ExpressionUUID->"ec432ae0-6329-403b-8f3f-19bf278e37d5"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 423, 460, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913457922595577`*^9}, +during this calculation.\"", 2, 101, 32, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345792232563*^9, 3.994258439695952*^9}, CellLabel-> "During evaluation of \ -In[423]:=",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], +In[101]:=",ExpressionUUID->"3f4919fd-2d3b-420e-8a15-683cdc66413c"], -Cell[BoxData["0.32136877427435395`"], "Output", - CellChangeTimes->{3.991345799137081*^9}, +Cell[BoxData["0.32944073133458385`"], "Output", + CellChangeTimes->{3.991345799137081*^9, 3.994258450795594*^9}, CellLabel-> - "Out[423]=",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] + "Out[101]=",ExpressionUUID->"4a26038e-724e-49d1-8d72-c4ed0e5ba812"] }, Open ]], Cell[CellGroupData[{ @@ -8680,8 +8777,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8726,68 +8822,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.99185020477277*^9, - 3.991850207864538*^9}},ExpressionUUID->"a58948c9-6d3d-e847-a269-\ -d2e0cc5d1484"], + CellChangeTimes->{{3.99185020477277*^9, 3.991850207864538*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"a58948c9-6d3d-e847-a269-d2e0cc5d1484"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 424, 461, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913457991730843`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.894379438095815`*^-213\\\", \ +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 33, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913457991730843`*^9, 3.994258450845291*^9}, CellLabel-> "During evaluation of \ -In[424]:=",ExpressionUUID->"2247cd70-3ffa-2245-971e-6c6a2bd1ecfc"], +In[102]:=",ExpressionUUID->"2e29a979-ec0c-434d-a7ec-4f8912313e82"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 424, 462, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913457991830807`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2277572491348802`*^-218\\\", \ +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 34, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913457991730843`*^9, 3.994258450854479*^9}, CellLabel-> "During evaluation of \ -In[424]:=",ExpressionUUID->"d9ae7d5b-4e89-a74f-be53-15700ab2593c"], +In[102]:=",ExpressionUUID->"6f26673f-6e46-459e-a13f-8c7ca354dac9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 424, 463, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345799191578*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.957159122875819`*^-224\\\", \ +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 35, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913457991730843`*^9, 3.99425845086277*^9}, CellLabel-> "During evaluation of \ -In[424]:=",ExpressionUUID->"821c7ce3-36cc-9549-9881-1225eb1561cf"], +In[102]:=",ExpressionUUID->"7895d494-21ef-4f5c-a0b3-bf79e5961ce5"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 424, 464, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913457992005787`*^9}, +during this calculation.\"", 2, 102, 36, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913457991730843`*^9, 3.994258450869989*^9}, CellLabel-> "During evaluation of \ -In[424]:=",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], +In[102]:=",ExpressionUUID->"79ca269f-22d7-41b0-8611-abd4e4bd9784"], -Cell[BoxData["6.886509882261309`"], "Output", - CellChangeTimes->{3.991345804559931*^9}, +Cell[BoxData["35.37974102003874`"], "Output", + CellChangeTimes->{3.991345804559931*^9, 3.994258461335807*^9}, CellLabel-> - "Out[424]=",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] + "Out[102]=",ExpressionUUID->"48a91baf-8772-4f59-a672-170e3aad349c"] }, Open ]], Cell[CellGroupData[{ @@ -8808,8 +8911,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8854,68 +8956,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918502122939777`*^9, - 3.991850217343153*^9}},ExpressionUUID->"c817b2d1-7deb-5a45-9938-\ -ca10003188eb"], + CellChangeTimes->{{3.9918502122939777`*^9, 3.991850217343153*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"c817b2d1-7deb-5a45-9938-ca10003188eb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 425, 465, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913458046014442`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.894379438095815`*^-213\\\", \ +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 37, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458046014442`*^9, 3.994258461407352*^9}, CellLabel-> "During evaluation of \ -In[425]:=",ExpressionUUID->"3701f96f-691c-9040-a8a1-ff3958638338"], +In[103]:=",ExpressionUUID->"2a615ff7-91bb-43a7-8174-fa4d24b0f452"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 425, 466, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913458046114445`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2277572491348802`*^-218\\\", \ +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 38, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458046014442`*^9, 3.9942584614183187`*^9}, CellLabel-> "During evaluation of \ -In[425]:=",ExpressionUUID->"9e260603-f97f-ac44-8251-869444fbcc24"], +In[103]:=",ExpressionUUID->"ad9dcc62-314a-4438-be79-9b04c53a997f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 425, 467, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345804619444*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.957159122875819`*^-224\\\", \ +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 39, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458046014442`*^9, 3.994258461426641*^9}, CellLabel-> "During evaluation of \ -In[425]:=",ExpressionUUID->"f34d60ab-6a89-fd45-89b6-5f3b4b17dd22"], +In[103]:=",ExpressionUUID->"c69fc1a0-2239-4c07-b3c6-5a10c740af46"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 425, 468, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913458046274433`*^9}, +during this calculation.\"", 2, 103, 40, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458046014442`*^9, 3.994258461434621*^9}, CellLabel-> "During evaluation of \ -In[425]:=",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], +In[103]:=",ExpressionUUID->"53279986-00c0-4fb9-be3e-4d09d9253ef9"], -Cell[BoxData["18.478556086442907`"], "Output", - CellChangeTimes->{3.991345807954506*^9}, +Cell[BoxData["5.469371336088515`"], "Output", + CellChangeTimes->{3.991345807954506*^9, 3.994258470333103*^9}, CellLabel-> - "Out[425]=",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] + "Out[103]=",ExpressionUUID->"ea2600e5-ab05-4975-a40f-1a7fe5dec2ca"] }, Open ]], Cell[CellGroupData[{ @@ -8924,22 +9033,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991850221900238*^9, - 3.9918502257325497`*^9}},ExpressionUUID->"350334c7-7c47-c24c-8adc-\ -781173809e57"], - -Cell[BoxData["0.028488532115740543`"], "Output", - CellChangeTimes->{3.991345807987507*^9}, + CellChangeTimes->{{3.991850221900238*^9, 3.9918502257325497`*^9}}, CellLabel-> - "Out[426]=",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] + "In[104]:=",ExpressionUUID->"350334c7-7c47-c24c-8adc-781173809e57"], + +Cell[BoxData["0.02368270271976367`"], "Output", + CellChangeTimes->{3.991345807987507*^9, 3.994258470377535*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"82b13612-a883-4f2a-8f03-a41cde7f1f20"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.991850228782873*^9, 3.991850231287325*^9}, - 3.9919246253575134`*^9},ExpressionUUID->"597921e5-69d3-564d-a8fa-\ -092e912c15e0"], + 3.9919246253575134`*^9}, + CellLabel-> + "In[105]:=",ExpressionUUID->"597921e5-69d3-564d-a8fa-092e912c15e0"], Cell[CellGroupData[{ @@ -8962,12 +9072,12 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[428]:=",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], + "In[106]:=",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], -Cell[BoxData["8.947947137013426`"], "Output", - CellChangeTimes->{3.991345808020666*^9}, +Cell[BoxData["7.45900498666487`"], "Output", + CellChangeTimes->{3.991345808020666*^9, 3.994258470400505*^9}, CellLabel-> - "Out[428]=",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] + "Out[106]=",ExpressionUUID->"1f01582d-e45b-4c87-9b89-d885c7ef6297"] }, Open ]], Cell[CellGroupData[{ @@ -8977,12 +9087,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[430]:=",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], + "In[107]:=",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], -Cell[BoxData["1.2539951617800844`"], "Output", - CellChangeTimes->{3.9913458080616665`*^9}, +Cell[BoxData["2.2307355176523296`"], "Output", + CellChangeTimes->{3.9913458080616665`*^9, 3.994258470412998*^9}, CellLabel-> - "Out[430]=",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] + "Out[107]=",ExpressionUUID->"c90fc9ce-bf4f-4f07-b255-6ebb33793051"] }, Open ]], Cell[CellGroupData[{ @@ -8992,12 +9102,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[433]:=",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], + "In[108]:=",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], -Cell[BoxData["11.220682417678793`"], "Output", - CellChangeTimes->{3.991345808188246*^9}, +Cell[BoxData["16.639067350099168`"], "Output", + CellChangeTimes->{3.991345808188246*^9, 3.994258470426669*^9}, CellLabel-> - "Out[433]=",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] + "Out[108]=",ExpressionUUID->"38a62a93-07dd-482e-87bb-15d3dc3440ff"] }, Open ]], Cell[CellGroupData[{ @@ -9187,12 +9297,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[434]:=",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], + "In[109]:=",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], -Cell[BoxData["0.04214145338799881`"], "Output", - CellChangeTimes->{3.991345808220566*^9}, +Cell[BoxData["0.006355087689031197`"], "Output", + CellChangeTimes->{3.991345808220566*^9, 3.994258470442216*^9}, CellLabel-> - "Out[434]=",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] + "Out[109]=",ExpressionUUID->"0471a901-2593-4786-94d4-4e439fafba56"] }, Open ]], Cell[CellGroupData[{ @@ -9206,12 +9316,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[435]:=",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], + "In[110]:=",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], -Cell[BoxData["4.317080886816563`"], "Output", - CellChangeTimes->{3.9913458083195686`*^9}, +Cell[BoxData["11.116911977227197`"], "Output", + CellChangeTimes->{3.9913458083195686`*^9, 3.9942584706341877`*^9}, CellLabel-> - "Out[435]=",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] + "Out[110]=",ExpressionUUID->"6368e1ac-74d7-45b9-9886-6f314f042b41"] }, Open ]], Cell[CellGroupData[{ @@ -9403,12 +9513,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[436]:=",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], + "In[111]:=",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], -Cell[BoxData["0.012862376162526763`"], "Output", - CellChangeTimes->{3.991345808334568*^9}, +Cell[BoxData["0.055623141674887557`"], "Output", + CellChangeTimes->{3.991345808334568*^9, 3.9942584706523323`*^9}, CellLabel-> - "Out[436]=",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] + "Out[111]=",ExpressionUUID->"8475d6d5-c61c-4e38-8ef8-423d791578c1"] }, Open ]], Cell[CellGroupData[{ @@ -9422,12 +9532,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[437]:=",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], + "In[112]:=",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], -Cell[BoxData["7.814196669618258`"], "Output", - CellChangeTimes->{3.991345808432392*^9}, +Cell[BoxData["3.7576574173443418`"], "Output", + CellChangeTimes->{3.991345808432392*^9, 3.994258470873579*^9}, CellLabel-> - "Out[437]=",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] + "Out[112]=",ExpressionUUID->"026ce58b-4ff9-4046-8091-990d039863ac"] }, Open ]], Cell[CellGroupData[{ @@ -9520,12 +9630,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[438]:=",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], + "In[113]:=",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.991345808448488*^9}, +Cell[BoxData["0.08888024365939537`"], "Output", + CellChangeTimes->{3.991345808448488*^9, 3.994258470888*^9}, CellLabel-> - "Out[438]=",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] + "Out[113]=",ExpressionUUID->"6ec7289b-a348-4a90-9f3c-3e8da36193fc"] }, Open ]], Cell[CellGroupData[{ @@ -9615,12 +9725,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[439]:=",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], + "In[114]:=",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.9913458084773808`*^9}, +Cell[BoxData["0.9111197563406046`"], "Output", + CellChangeTimes->{3.9913458084773808`*^9, 3.994258470904089*^9}, CellLabel-> - "Out[439]=",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] + "Out[114]=",ExpressionUUID->"2ea27160-6a29-4409-b887-1adc3c1e36d8"] }, Open ]], Cell[CellGroupData[{ @@ -9743,12 +9853,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[440]:=",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], + "In[115]:=",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913458085134735`*^9}, +Cell[BoxData["0.0809805459464419`"], "Output", + CellChangeTimes->{3.9913458085134735`*^9, 3.994258470921151*^9}, CellLabel-> - "Out[440]=",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] + "Out[115]=",ExpressionUUID->"1f6c4b74-7347-4838-88f7-3399d4cc0719"] }, Open ]], Cell[CellGroupData[{ @@ -9810,67 +9920,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.99185025346871*^9},ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], + CellChangeTimes->{3.99185025346871*^9}, + CellLabel-> + "In[116]:=",ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 441, - 469, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913458085463753`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1398059411356412`*^-227\\\", \ +RowBox[{\\\"2735526583816145583533735060711274031995\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"10\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5590907374121359182397440000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 116, + 41, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458085463753`*^9, 3.994258470938325*^9}, CellLabel-> "During evaluation of \ -In[441]:=",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], +In[116]:=",ExpressionUUID->"cbe924b7-66b0-433c-b51d-01c7663d9054"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 441, - 470, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913458085563755`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.215184597708121`*^-233\\\", \ +RowBox[{\\\"4160735933984357432554811027341847802665\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"13\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3770116038587316426506240000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 116, + 42, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458085463753`*^9, 3.994258470947163*^9}, CellLabel-> "During evaluation of \ -In[441]:=",ExpressionUUID->"dda5376f-614c-1846-a3e1-09857b4bcae6"], +In[116]:=",ExpressionUUID->"fbf13d25-a65a-4af8-8cd6-c8e5fbf51b38"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 441, 471, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345808564377*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.295548262396116`*^-239\\\", \ +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 116, + 43, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458085463753`*^9, 3.994258470957304*^9}, CellLabel-> "During evaluation of \ -In[441]:=",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], +In[116]:=",ExpressionUUID->"62ef66a9-9356-4b0d-8c34-9939a03cb76c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 441, 472, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913458085733776`*^9}, +during this calculation.\"", 2, 116, 44, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458085463753`*^9, 3.9942584709656076`*^9}, CellLabel-> "During evaluation of \ -In[441]:=",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], +In[116]:=",ExpressionUUID->"811c20e6-e948-43e3-916e-152957d61b55"], -Cell[BoxData["4.317080886816564`"], "Output", - CellChangeTimes->{3.9913458125059433`*^9}, +Cell[BoxData["11.1169119772272`"], "Output", + CellChangeTimes->{3.9913458125059433`*^9, 3.994258478191259*^9}, CellLabel-> - "Out[441]=",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] + "Out[116]=",ExpressionUUID->"c79ba0ea-8e29-4ce0-9a8c-0306b5aa5da3"] }, Open ]], Cell[CellGroupData[{ @@ -9932,68 +10050,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918502579298553`*^9},ExpressionUUID->"baacd3f7-96e4-2949-b9f9-\ -9afb90e551d9"], + CellChangeTimes->{3.9918502579298553`*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"baacd3f7-96e4-2949-b9f9-9afb90e551d9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 442, - 473, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345812542961*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1398059411356412`*^-227\\\", \ +RowBox[{\\\"2735526583816145583533735060711274031995\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"10\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5590907374121359182397440000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 45, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345812542961*^9, 3.994258478238797*^9}, CellLabel-> "During evaluation of \ -In[442]:=",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], +In[117]:=",ExpressionUUID->"3c7d634d-2109-4bd6-8fc3-110ef03c615b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 442, - 474, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345812552984*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.215184597708121`*^-233\\\", \ +RowBox[{\\\"4160735933984357432554811027341847802665\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"13\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3770116038587316426506240000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 46, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345812542961*^9, 3.9942584782479486`*^9}, CellLabel-> "During evaluation of \ -In[442]:=",ExpressionUUID->"b91abb11-65b8-3b43-a495-4cb1457edd27"], +In[117]:=",ExpressionUUID->"e7befe8d-6018-4c95-8af8-f23d169f28ab"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 442, 475, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134581256196*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.295548262396116`*^-239\\\", \ +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 47, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345812542961*^9, 3.99425847825661*^9}, CellLabel-> "During evaluation of \ -In[442]:=",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], +In[117]:=",ExpressionUUID->"1ae3c693-1bf7-48f5-8a63-f99b09997ae2"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 442, 476, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345812570959*^9}, +during this calculation.\"", 2, 117, 48, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345812542961*^9, 3.9942584782646008`*^9}, CellLabel-> "During evaluation of \ -In[442]:=",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], +In[117]:=",ExpressionUUID->"26d5b674-7a42-4504-97f7-a43c670cad39"], -Cell[BoxData["7.8141966696182585`"], "Output", - CellChangeTimes->{3.991345816415531*^9}, +Cell[BoxData["3.7576574173443436`"], "Output", + CellChangeTimes->{3.991345816415531*^9, 3.994258485473548*^9}, CellLabel-> - "Out[442]=",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] + "Out[117]=",ExpressionUUID->"72cec626-a8b0-4b44-9214-6eb6c2aa8b86"] }, Open ]], Cell[CellGroupData[{ @@ -10051,95 +10176,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918502605597496`*^9},ExpressionUUID->"ea08a5a9-d446-9147-ba82-\ -e3924f732df2"], + CellChangeTimes->{3.9918502605597496`*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"ea08a5a9-d446-9147-ba82-e3924f732df2"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi -CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 -j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu -7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF -KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 -zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW -kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 -8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 -wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v -lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt -p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t -k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X -HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc -BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ -y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG -gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh -hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB -gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U -1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n -I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq -h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp -Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ -ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a -bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f -hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj -3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx -5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf -t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw -pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD -6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p -ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia -12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 -Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r -jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q -ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 -D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h -tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T -BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth -YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT -NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya -0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv -o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 -MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn -opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS -DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B -Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH -imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L -I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX -7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v -+j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj -3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo -8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g -HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 -uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG -hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj -K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s -RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD -YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R -uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp -voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp -4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn -YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 -r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW -bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw -PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za -oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ -Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL -QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z -PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu -T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN -caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L -V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 -y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K -VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb -KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy -icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F -8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo -5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk4VdsbB/CTKZkyZB4qQ2WKn4Mo13oLicwaOOZz9t5knnJPJepK3W4D +oZtuSSEkQyKJclOki6JoTsmUcI5zRFLkt84f+9nP51l7fde7373XWs2M8SKF +aDQaB1+Ce9zT9Wtvdz+1nThl6PdzFwfZcossmPbl6INqb5TA/fmWObr2d9GJ +3zuvCuxBPBGToreihaIVwvPY1ezUh6L2naj4Unm6wMcfqdxPLXuGOoJyjBew +73THXZo3e4H8Bjp+CDz2tj15X+Nr1KzlzfmFrTas4/fN7j36ImkgStvNQdsn +k60TOj+ixnyPLUuwm+bHJNlln9A/Tx8VCWG/PKx8oC56ECWdOGkkgs0Vsx+b +NhtGL9uuvBHFFjsZ60ufHUEmiWLlS7G15PIexzWOIpvUhsJl2G7q34q5dhPI +mJIVlsGmLmsrGYtz0aLKzXBZ7FQ99/SIzkm093XBrDz2a+Xe/yWW8dEP9bjD +KtgEI3xP9skpNBLhlqKOzbtIu3Iz+itiBe+/rIUtrm0syzebQQ//vbdDDzuH +eOgoq/gN5Y/3jqzDXlXim2oy+w0p2G68ZIRtZXSUG9X4HcX+x002xw6z/Ng5 +ZjeP2F4/5xywp9l7RSTWLCDVnNQ6Z+xDjZI2+uK/UHWTR647di5YXQ/tXETb +Fd90+Arqu/rYPr5sCchGJ0/FYJc9yu4/rC4EnCLmm72Cej8HJp85KQSRJjnD +B7CTDWZqbkQLQ53v66g/BfVWrdaZNBOFhaQPvxViv+2eaPpVKAqWrSruZYL6 +p24zZBTFoGTfxfRq7HJztyzjWTHYLJrKvI/dcmf/kshGcVg1XPruI/bMw56P +o3ZSQGx27dDz4SB5FynZA01S0LJffMEE27TXHqStpYFbmcnYiB0+dOvy/9bL +gJyN2Hl37FihTtPfpGRB+AtbJxl7WLuSn/5NDhgMmeg+7GmqfVkXXR4WQoP8 +x7CFro+sVomTh2nW3qRZ7FX0lV5l4/Iw2s8xlvflIIZd5s2n/QrgfIlW5oTd +xYpPUO5QBE+m7sv72B9KTp8IFleCQdvkQ93YE+NlhdcclMBcOWNXP7ZE4mDP +pvtKoDQ/kE5jcJD9kR3mwbeU4eCUCX8LdkOR5UxpviqM0BvnurCLhn8kbUzU +hCdmKk8k/Dlo285jHxIqNCFpa266FvZEi8LWihFNuJ2sTZhhmxcZKa7y1YJg +d69sBnYLM7BG1HYlZBtLNJRjT032/z6atgokpA3X+QRwkEKUfW2Nqza4aoYe +7gjkoJEiiTCPcG24pXFhbhC7/n23OueoNlTsaTo3j+3vEpC25r42HDTtclgf +hOszTPI6b6YDqT9+hWVjm4+V8FKUdUF86b/tRDAH7QiVNHb+pAdkzo1pHSYH +oaSdZrsX9OCQ88ezgG2Qnr+BUF0DxRWEXwA2rZC+JcVzDSzbGuN9Drvig9/u +m81rQGEJNSvFwvtzV/lhtYK1YGv7WXoRu97e9eUYUx9UswKjfpEcVOh97t1s +ij54VKFzKykOOs381C9yQR+KbbyHAZs4tHdcq0cfTFuluGnYcnfzaN52BsCV +KamWDMX/D51r0KhjCDylYJp2GAepa2eknhgygs0Dr2/uCeegu39N688JGQOK +asnOwvb/6ttLrTaG1L+V8huxL7Xo6m8JNAZWyWdzmQgO0g5teP79lTH0ZUgE +3MI2KB/WozrWw1BZY55kFAdpqmtRq3xNoTOjtOdVDAcZXU2U+onMwO7HjgLu +Xg5iEmkzxm5msDeEn6eVhPerTtaHYH8z4C2RanLDFi6ouvGIbQa252sjqrDf +XhrbkVVtBqvY+cnxv+PzNDc4T1+HDotvrRMW2fj7nnBZ7yNmDiv1dYrNkzno +Sryux61OC8jQoNVIpnFQdxLacOSqNejFdN/uyOag1YEv3AIif4MbHfSCh8Uc +RC7WVWruA6Ai55zLGjhIebx+qTJzC3RszNqQ+5yDEuk277MM7IG0Vg5dMY7r +58w/VhhzALbTkdmlolxUsSVhaX6XIzS66N521uGiounw5vIcJ+CH/fYlYjMX +fd+s8qQldTvUPmlTkSK4qI8mzP8U4gpVrG2d48e4KFojJvOwjjss/7V25GsZ +F1XueXz/bLoHUJkz+08856L9X1VnDfd4wkS7Ym3/dy6acd66qy3IC1xsPze3 +6kwia78zm4c9vcHTba+Cuvskeq6aF95C3wHv/VoK9rEnkVpx2t3SdTtB63eL +66bFk6i+38DFTXoX/EtTc05/Nom0enmhSZxdYDV2xithfhLRz54pL+zfDW3P +bsuXK/JQnsjX9VkPfWA0L4idZ8hDdZtN3qbf8YXM788++tvxUO6Gv+Tmyxhw +nK6x6TiDh7reXT1KP+kHeV+u5XJieOiW60Xd2EP+kOQ4Yth2lIf4Ud60aCIA +7sTq/VF5gYdmtuqHce0CIfhbEFlZxUOlnDffEyyDoKFgdHdDCw/5XLnKCpAK +hnfzbSklr3io5ub2IOFjwaCSvhjpPM5D1urP547PBUNHQNym2nke0ukPffts +TwhkGJer9Ejx0ZBkhPvFwRDweEDS12ryUfdpN5bjTiYcVjniaW3IRznsfMm9 +3UxwcCtN17Dmo7tNi3MsJxY8Xlc64uTAR8v94Ri9gQU3+mskt7nz0aoVbV0a +d1kQwKgjYrFNO11VxJpYIHL0fWEutpeN37XXzSzI7EvrHcXO0UjqOPgfC0JT +nv465sFHan3Xlz9+zYKbSu8Smj35SDdQOdd/lgWvczJaVu3gI+tgbmm6OQGM +s8fWZ/rwUfF5XoKbJQE/jei3qrBX9EzZKlsR8IqRrtuFzXWY7S3dREBitPw9 +aV8+Pr9oSzq3EHAq948Xx7FlZuV85T0JmD/DuHKQgftxymJZfhQBJqFuWd7+ +fOTZtqE3NIaAB3Ln18ViN9E25pvG4fltFiUnsc8n2Fo8SCTgg5NfQCu2m69j +yPABAvyeylZYBPDRHV3fO4Z/EfBPycIruUA+Ot2YvKe+mIDTpuLb64P4KMrs +nDW7lIDqb5bUM2yXa9XLrMoI6PBhhI9hS5wbuXa7ggD7uCRjjWA+So/3GKur +JSC2//GlFOxkfd2IWw8IiIoQMUIhfBR+riPy5gcC2ntKByqZfOQkM2IT30/A +YHqcSiv2unSatNkAAZqHuZbvsEfiLSqqh3F++4LxUhYfhbjlc25MEKDm85tI +ILaPaEJ01Q8CHroXuS8l+MgxQS22XImEBFruzm0kHz3IP+qcpUKCg2E1BGDb +dE7pstVISKtQl43HNtXreGOnRcKY33u/C9iqrw7YvdMjoT/hefEE9vjGPiUJ +CxIM6R3if1F8lCF0+V6oNwl/TrhMVoXi9zeRynXdSYI6oz64GfuIHzuevpsE +6dQNdc+x2bUeaxcZJLyf3iM9gx1CLTnzN5MEo50xkVZhfERvZxKtcSSwNqaN +38F+dUZPUieThFPaeQMle/ioEkmHjZ4hQfbIqeFa7COc6ZaKbBLCny/pbsY2 +c2pJsTpHgkRFnN877NM01pTrJRIGFd1dpMP5aGvM5TfschJ6LkqfjcTW1PzT +0raShGHrO8vZ2NPtMdnCN0jQ+OdVXBp2wRrkerqGhOtFYRPnsRf6+u4XNmAH +3W9oxa51US99+hjXExbXqBLBRyd+CInmtJOg0PyiXBubWToW4ttJQsubvHQj +bFmRBvWhLhL+693JQdiRjT4Zcy9JiDJ3PUti6xj8naQ7TIJoe8HWcuwfrw72 +fBkh4UXvx4pa7O500rRqlITIloT5u9gpn8zHrCdImKTy3J9gv83tCXD/SkJZ +6+CTCeyspXIO+5dQYBtRpL82Ep8HU31+icIUKOVc7V6P/bmvLD5alIKp0A8+ +ltg2tfaXmcso2NT6VcoBeySY/dNZjoJxoXPCIdiyLg7yDgoUyKii2lDsTRvk +9ZEiBfIXVLZGY2dKl++iq1LgLhwgfUAw3vCxWn01BeZiKgbZ2NTV8seKOhSY +iFoN5Qqez9z3cbkeBTrLjqReEqxHKUiL6FPwoDzP95pgXMExbMKUgoW5Rxfu +YTf8UkgdMaPA+LJl0APs4S/9Z/vNKRi7+0S4DXvj/f0Pe60osPGO5XVhD0VW +at0DCi4e2re7H1vG54DF7S0UqHsq6w5hW9ttc6m2p+DAwOtnn7FPqw7su7qN +gsCK1m4udr1IVWa+MwUrtXmrp7AHJw+UnHfB+U9tdsxgWz1SfHHKgwLHsE3+ +P7GZ1QPjx7woyCyf+N8v7FMXq4T+2EEBp7dplBbFRwPxTqZJPhQMFbbMiWJL +Byo5xjIo+Nk46y2ObeU0GBDuT4H2BecMCexTKw+eCAym4H2d2zUZ7HoJ5wIf +JgXKhxaPyQryZpTueBEUXNDvcpQX5H0a7HKhKLD+496ogiCv88bI1jDcX//2 +cEVs5u2DCxCO+3Vy5omSIL/AecWmSAqOcWzlVQT5p5QNLaIp8GUUb1AV5LOH +NpvE4vk1hrZq2FJEtY9+PAWS757qqWNvcE+J0UmkIK8+gyswc+P2o5pJFHRY +ROdqYJ/UU8lTZlMwisJ1NLHrZIdr5PZTUNOWliHwp5/V7ZLJuH/NDe8Flvqc +8kk0hQID3eWSWtiWz7d/X0ylwH78kJrA/weMbAdW "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -10153,107 +10277,106 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi -CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 -j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu -7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF -KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 -zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW -kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 -8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 -wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v -lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt -p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t -k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X -HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc -BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ -y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG -gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh -hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB -gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U -1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n -I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq -h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp -Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ -ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a -bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f -hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj -3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx -5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf -t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw -pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD -6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p -ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia -12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 -Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r -jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q -ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 -D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h -tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T -BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth -YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT -NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya -0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv -o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 -MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn -opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS -DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B -Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH -imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L -I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX -7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v -+j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj -3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo -8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g -HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 -uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG -hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj -K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s -RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD -YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R -uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp -voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp -4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn -YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 -r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW -bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw -PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za -oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ -Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL -QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z -PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu -T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN -caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L -V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 -y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K -VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb -KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy -icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F -8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo -5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= +1:eJwV1Hk4VdsbB/CTKZkyZB4qQ2WKn4Mo13oLicwaOOZz9t5knnJPJepK3W4D +oZtuSSEkQyKJclOki6JoTsmUcI5zRFLkt84f+9nP51l7fde7373XWs2M8SKF +aDQaB1+Ce9zT9Wtvdz+1nThl6PdzFwfZcossmPbl6INqb5TA/fmWObr2d9GJ +3zuvCuxBPBGToreihaIVwvPY1ezUh6L2naj4Unm6wMcfqdxPLXuGOoJyjBew +73THXZo3e4H8Bjp+CDz2tj15X+Nr1KzlzfmFrTas4/fN7j36ImkgStvNQdsn +k60TOj+ixnyPLUuwm+bHJNlln9A/Tx8VCWG/PKx8oC56ECWdOGkkgs0Vsx+b +NhtGL9uuvBHFFjsZ60ufHUEmiWLlS7G15PIexzWOIpvUhsJl2G7q34q5dhPI +mJIVlsGmLmsrGYtz0aLKzXBZ7FQ99/SIzkm093XBrDz2a+Xe/yWW8dEP9bjD +KtgEI3xP9skpNBLhlqKOzbtIu3Iz+itiBe+/rIUtrm0syzebQQ//vbdDDzuH +eOgoq/gN5Y/3jqzDXlXim2oy+w0p2G68ZIRtZXSUG9X4HcX+x002xw6z/Ng5 +ZjeP2F4/5xywp9l7RSTWLCDVnNQ6Z+xDjZI2+uK/UHWTR647di5YXQ/tXETb +Fd90+Arqu/rYPr5sCchGJ0/FYJc9yu4/rC4EnCLmm72Cej8HJp85KQSRJjnD +B7CTDWZqbkQLQ53v66g/BfVWrdaZNBOFhaQPvxViv+2eaPpVKAqWrSruZYL6 +p24zZBTFoGTfxfRq7HJztyzjWTHYLJrKvI/dcmf/kshGcVg1XPruI/bMw56P +o3ZSQGx27dDz4SB5FynZA01S0LJffMEE27TXHqStpYFbmcnYiB0+dOvy/9bL +gJyN2Hl37FihTtPfpGRB+AtbJxl7WLuSn/5NDhgMmeg+7GmqfVkXXR4WQoP8 +x7CFro+sVomTh2nW3qRZ7FX0lV5l4/Iw2s8xlvflIIZd5s2n/QrgfIlW5oTd +xYpPUO5QBE+m7sv72B9KTp8IFleCQdvkQ93YE+NlhdcclMBcOWNXP7ZE4mDP +pvtKoDQ/kE5jcJD9kR3mwbeU4eCUCX8LdkOR5UxpviqM0BvnurCLhn8kbUzU +hCdmKk8k/Dlo285jHxIqNCFpa266FvZEi8LWihFNuJ2sTZhhmxcZKa7y1YJg +d69sBnYLM7BG1HYlZBtLNJRjT032/z6atgokpA3X+QRwkEKUfW2Nqza4aoYe +7gjkoJEiiTCPcG24pXFhbhC7/n23OueoNlTsaTo3j+3vEpC25r42HDTtclgf +hOszTPI6b6YDqT9+hWVjm4+V8FKUdUF86b/tRDAH7QiVNHb+pAdkzo1pHSYH +oaSdZrsX9OCQ88ezgG2Qnr+BUF0DxRWEXwA2rZC+JcVzDSzbGuN9Drvig9/u +m81rQGEJNSvFwvtzV/lhtYK1YGv7WXoRu97e9eUYUx9UswKjfpEcVOh97t1s +ij54VKFzKykOOs381C9yQR+KbbyHAZs4tHdcq0cfTFuluGnYcnfzaN52BsCV +KamWDMX/D51r0KhjCDylYJp2GAepa2eknhgygs0Dr2/uCeegu39N688JGQOK +asnOwvb/6ttLrTaG1L+V8huxL7Xo6m8JNAZWyWdzmQgO0g5teP79lTH0ZUgE +3MI2KB/WozrWw1BZY55kFAdpqmtRq3xNoTOjtOdVDAcZXU2U+onMwO7HjgLu +Xg5iEmkzxm5msDeEn6eVhPerTtaHYH8z4C2RanLDFi6ouvGIbQa252sjqrDf +XhrbkVVtBqvY+cnxv+PzNDc4T1+HDotvrRMW2fj7nnBZ7yNmDiv1dYrNkzno +Sryux61OC8jQoNVIpnFQdxLacOSqNejFdN/uyOag1YEv3AIif4MbHfSCh8Uc +RC7WVWruA6Ai55zLGjhIebx+qTJzC3RszNqQ+5yDEuk277MM7IG0Vg5dMY7r +58w/VhhzALbTkdmlolxUsSVhaX6XIzS66N521uGiounw5vIcJ+CH/fYlYjMX +fd+s8qQldTvUPmlTkSK4qI8mzP8U4gpVrG2d48e4KFojJvOwjjss/7V25GsZ +F1XueXz/bLoHUJkz+08856L9X1VnDfd4wkS7Ym3/dy6acd66qy3IC1xsPze3 +6kwia78zm4c9vcHTba+Cuvskeq6aF95C3wHv/VoK9rEnkVpx2t3SdTtB63eL +66bFk6i+38DFTXoX/EtTc05/Nom0enmhSZxdYDV2xithfhLRz54pL+zfDW3P +bsuXK/JQnsjX9VkPfWA0L4idZ8hDdZtN3qbf8YXM788++tvxUO6Gv+Tmyxhw +nK6x6TiDh7reXT1KP+kHeV+u5XJieOiW60Xd2EP+kOQ4Yth2lIf4Ud60aCIA +7sTq/VF5gYdmtuqHce0CIfhbEFlZxUOlnDffEyyDoKFgdHdDCw/5XLnKCpAK +hnfzbSklr3io5ub2IOFjwaCSvhjpPM5D1urP547PBUNHQNym2nke0ukPffts +TwhkGJer9Ejx0ZBkhPvFwRDweEDS12ryUfdpN5bjTiYcVjniaW3IRznsfMm9 +3UxwcCtN17Dmo7tNi3MsJxY8Xlc64uTAR8v94Ri9gQU3+mskt7nz0aoVbV0a +d1kQwKgjYrFNO11VxJpYIHL0fWEutpeN37XXzSzI7EvrHcXO0UjqOPgfC0JT +nv465sFHan3Xlz9+zYKbSu8Smj35SDdQOdd/lgWvczJaVu3gI+tgbmm6OQGM +s8fWZ/rwUfF5XoKbJQE/jei3qrBX9EzZKlsR8IqRrtuFzXWY7S3dREBitPw9 +aV8+Pr9oSzq3EHAq948Xx7FlZuV85T0JmD/DuHKQgftxymJZfhQBJqFuWd7+ +fOTZtqE3NIaAB3Ln18ViN9E25pvG4fltFiUnsc8n2Fo8SCTgg5NfQCu2m69j +yPABAvyeylZYBPDRHV3fO4Z/EfBPycIruUA+Ot2YvKe+mIDTpuLb64P4KMrs +nDW7lIDqb5bUM2yXa9XLrMoI6PBhhI9hS5wbuXa7ggD7uCRjjWA+So/3GKur +JSC2//GlFOxkfd2IWw8IiIoQMUIhfBR+riPy5gcC2ntKByqZfOQkM2IT30/A +YHqcSiv2unSatNkAAZqHuZbvsEfiLSqqh3F++4LxUhYfhbjlc25MEKDm85tI +ILaPaEJ01Q8CHroXuS8l+MgxQS22XImEBFruzm0kHz3IP+qcpUKCg2E1BGDb +dE7pstVISKtQl43HNtXreGOnRcKY33u/C9iqrw7YvdMjoT/hefEE9vjGPiUJ +CxIM6R3if1F8lCF0+V6oNwl/TrhMVoXi9zeRynXdSYI6oz64GfuIHzuevpsE +6dQNdc+x2bUeaxcZJLyf3iM9gx1CLTnzN5MEo50xkVZhfERvZxKtcSSwNqaN +38F+dUZPUieThFPaeQMle/ioEkmHjZ4hQfbIqeFa7COc6ZaKbBLCny/pbsY2 +c2pJsTpHgkRFnN877NM01pTrJRIGFd1dpMP5aGvM5TfschJ6LkqfjcTW1PzT +0raShGHrO8vZ2NPtMdnCN0jQ+OdVXBp2wRrkerqGhOtFYRPnsRf6+u4XNmAH +3W9oxa51US99+hjXExbXqBLBRyd+CInmtJOg0PyiXBubWToW4ttJQsubvHQj +bFmRBvWhLhL+693JQdiRjT4Zcy9JiDJ3PUti6xj8naQ7TIJoe8HWcuwfrw72 +fBkh4UXvx4pa7O500rRqlITIloT5u9gpn8zHrCdImKTy3J9gv83tCXD/SkJZ +6+CTCeyspXIO+5dQYBtRpL82Ep8HU31+icIUKOVc7V6P/bmvLD5alIKp0A8+ +ltg2tfaXmcso2NT6VcoBeySY/dNZjoJxoXPCIdiyLg7yDgoUyKii2lDsTRvk +9ZEiBfIXVLZGY2dKl++iq1LgLhwgfUAw3vCxWn01BeZiKgbZ2NTV8seKOhSY +iFoN5Qqez9z3cbkeBTrLjqReEqxHKUiL6FPwoDzP95pgXMExbMKUgoW5Rxfu +YTf8UkgdMaPA+LJl0APs4S/9Z/vNKRi7+0S4DXvj/f0Pe60osPGO5XVhD0VW +at0DCi4e2re7H1vG54DF7S0UqHsq6w5hW9ttc6m2p+DAwOtnn7FPqw7su7qN +gsCK1m4udr1IVWa+MwUrtXmrp7AHJw+UnHfB+U9tdsxgWz1SfHHKgwLHsE3+ +P7GZ1QPjx7woyCyf+N8v7FMXq4T+2EEBp7dplBbFRwPxTqZJPhQMFbbMiWJL +Byo5xjIo+Nk46y2ObeU0GBDuT4H2BecMCexTKw+eCAym4H2d2zUZ7HoJ5wIf +JgXKhxaPyQryZpTueBEUXNDvcpQX5H0a7HKhKLD+496ogiCv88bI1jDcX//2 +cEVs5u2DCxCO+3Vy5omSIL/AecWmSAqOcWzlVQT5p5QNLaIp8GUUb1AV5LOH +NpvE4vk1hrZq2FJEtY9+PAWS757qqWNvcE+J0UmkIK8+gyswc+P2o5pJFHRY +ROdqYJ/UU8lTZlMwisJ1NLHrZIdr5PZTUNOWliHwp5/V7ZLJuH/NDe8Flvqc +8kk0hQID3eWSWtiWz7d/X0ylwH78kJrA/weMbAdW "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.48341415918018676`, - 1.8971786059380225`}}, + "PlotRange" -> {{0, 180}, {0.9168679028193174, + 1.0891400370880584`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.4834141591801878}, + "AxesOrigin" -> {0, 0.9168679028193194}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -10265,21 +10388,21 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.48341415918018676`, - 1.8971786059380225`}}, + "PlotRange" -> {{0, 180}, {0.9168679028193174, + 1.0891400370880584`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.4834141591801878}, + "AxesOrigin" -> {0, 0.9168679028193194}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10293,105 +10416,104 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi -CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 -j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu -7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF -KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 -zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW -kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 -8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 -wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v -lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt -p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t -k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X -HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc -BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ -y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG -gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh -hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB -gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U -1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n -I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq -h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp -Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ -ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a -bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f -hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj -3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx -5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf -t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw -pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD -6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p -ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia -12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 -Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r -jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q -ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 -D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h -tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T -BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth -YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT -NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya -0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv -o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 -MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn -opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS -DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B -Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH -imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L -I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX -7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v -+j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj -3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo -8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g -HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 -uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG -hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj -K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s -RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD -YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R -uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp -voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp -4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn -YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 -r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW -bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw -PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za -oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ -Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL -QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z -PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu -T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN -caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L -V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 -y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K -VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb -KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy -icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F -8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo -5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= +1:eJwV1Hk4VdsbB/CTKZkyZB4qQ2WKn4Mo13oLicwaOOZz9t5knnJPJepK3W4D +oZtuSSEkQyKJclOki6JoTsmUcI5zRFLkt84f+9nP51l7fde7373XWs2M8SKF +aDQaB1+Ce9zT9Wtvdz+1nThl6PdzFwfZcossmPbl6INqb5TA/fmWObr2d9GJ +3zuvCuxBPBGToreihaIVwvPY1ezUh6L2naj4Unm6wMcfqdxPLXuGOoJyjBew +73THXZo3e4H8Bjp+CDz2tj15X+Nr1KzlzfmFrTas4/fN7j36ImkgStvNQdsn +k60TOj+ixnyPLUuwm+bHJNlln9A/Tx8VCWG/PKx8oC56ECWdOGkkgs0Vsx+b +NhtGL9uuvBHFFjsZ60ufHUEmiWLlS7G15PIexzWOIpvUhsJl2G7q34q5dhPI +mJIVlsGmLmsrGYtz0aLKzXBZ7FQ99/SIzkm093XBrDz2a+Xe/yWW8dEP9bjD +KtgEI3xP9skpNBLhlqKOzbtIu3Iz+itiBe+/rIUtrm0syzebQQ//vbdDDzuH +eOgoq/gN5Y/3jqzDXlXim2oy+w0p2G68ZIRtZXSUG9X4HcX+x002xw6z/Ng5 +ZjeP2F4/5xywp9l7RSTWLCDVnNQ6Z+xDjZI2+uK/UHWTR647di5YXQ/tXETb +Fd90+Arqu/rYPr5sCchGJ0/FYJc9yu4/rC4EnCLmm72Cej8HJp85KQSRJjnD +B7CTDWZqbkQLQ53v66g/BfVWrdaZNBOFhaQPvxViv+2eaPpVKAqWrSruZYL6 +p24zZBTFoGTfxfRq7HJztyzjWTHYLJrKvI/dcmf/kshGcVg1XPruI/bMw56P +o3ZSQGx27dDz4SB5FynZA01S0LJffMEE27TXHqStpYFbmcnYiB0+dOvy/9bL +gJyN2Hl37FihTtPfpGRB+AtbJxl7WLuSn/5NDhgMmeg+7GmqfVkXXR4WQoP8 +x7CFro+sVomTh2nW3qRZ7FX0lV5l4/Iw2s8xlvflIIZd5s2n/QrgfIlW5oTd +xYpPUO5QBE+m7sv72B9KTp8IFleCQdvkQ93YE+NlhdcclMBcOWNXP7ZE4mDP +pvtKoDQ/kE5jcJD9kR3mwbeU4eCUCX8LdkOR5UxpviqM0BvnurCLhn8kbUzU +hCdmKk8k/Dlo285jHxIqNCFpa266FvZEi8LWihFNuJ2sTZhhmxcZKa7y1YJg +d69sBnYLM7BG1HYlZBtLNJRjT032/z6atgokpA3X+QRwkEKUfW2Nqza4aoYe +7gjkoJEiiTCPcG24pXFhbhC7/n23OueoNlTsaTo3j+3vEpC25r42HDTtclgf +hOszTPI6b6YDqT9+hWVjm4+V8FKUdUF86b/tRDAH7QiVNHb+pAdkzo1pHSYH +oaSdZrsX9OCQ88ezgG2Qnr+BUF0DxRWEXwA2rZC+JcVzDSzbGuN9Drvig9/u +m81rQGEJNSvFwvtzV/lhtYK1YGv7WXoRu97e9eUYUx9UswKjfpEcVOh97t1s +ij54VKFzKykOOs381C9yQR+KbbyHAZs4tHdcq0cfTFuluGnYcnfzaN52BsCV +KamWDMX/D51r0KhjCDylYJp2GAepa2eknhgygs0Dr2/uCeegu39N688JGQOK +asnOwvb/6ttLrTaG1L+V8huxL7Xo6m8JNAZWyWdzmQgO0g5teP79lTH0ZUgE +3MI2KB/WozrWw1BZY55kFAdpqmtRq3xNoTOjtOdVDAcZXU2U+onMwO7HjgLu +Xg5iEmkzxm5msDeEn6eVhPerTtaHYH8z4C2RanLDFi6ouvGIbQa252sjqrDf +XhrbkVVtBqvY+cnxv+PzNDc4T1+HDotvrRMW2fj7nnBZ7yNmDiv1dYrNkzno +Sryux61OC8jQoNVIpnFQdxLacOSqNejFdN/uyOag1YEv3AIif4MbHfSCh8Uc +RC7WVWruA6Ai55zLGjhIebx+qTJzC3RszNqQ+5yDEuk277MM7IG0Vg5dMY7r +58w/VhhzALbTkdmlolxUsSVhaX6XIzS66N521uGiounw5vIcJ+CH/fYlYjMX +fd+s8qQldTvUPmlTkSK4qI8mzP8U4gpVrG2d48e4KFojJvOwjjss/7V25GsZ +F1XueXz/bLoHUJkz+08856L9X1VnDfd4wkS7Ym3/dy6acd66qy3IC1xsPze3 +6kwia78zm4c9vcHTba+Cuvskeq6aF95C3wHv/VoK9rEnkVpx2t3SdTtB63eL +66bFk6i+38DFTXoX/EtTc05/Nom0enmhSZxdYDV2xithfhLRz54pL+zfDW3P +bsuXK/JQnsjX9VkPfWA0L4idZ8hDdZtN3qbf8YXM788++tvxUO6Gv+Tmyxhw +nK6x6TiDh7reXT1KP+kHeV+u5XJieOiW60Xd2EP+kOQ4Yth2lIf4Ud60aCIA +7sTq/VF5gYdmtuqHce0CIfhbEFlZxUOlnDffEyyDoKFgdHdDCw/5XLnKCpAK +hnfzbSklr3io5ub2IOFjwaCSvhjpPM5D1urP547PBUNHQNym2nke0ukPffts +TwhkGJer9Ejx0ZBkhPvFwRDweEDS12ryUfdpN5bjTiYcVjniaW3IRznsfMm9 +3UxwcCtN17Dmo7tNi3MsJxY8Xlc64uTAR8v94Ri9gQU3+mskt7nz0aoVbV0a +d1kQwKgjYrFNO11VxJpYIHL0fWEutpeN37XXzSzI7EvrHcXO0UjqOPgfC0JT +nv465sFHan3Xlz9+zYKbSu8Smj35SDdQOdd/lgWvczJaVu3gI+tgbmm6OQGM +s8fWZ/rwUfF5XoKbJQE/jei3qrBX9EzZKlsR8IqRrtuFzXWY7S3dREBitPw9 +aV8+Pr9oSzq3EHAq948Xx7FlZuV85T0JmD/DuHKQgftxymJZfhQBJqFuWd7+ +fOTZtqE3NIaAB3Ln18ViN9E25pvG4fltFiUnsc8n2Fo8SCTgg5NfQCu2m69j +yPABAvyeylZYBPDRHV3fO4Z/EfBPycIruUA+Ot2YvKe+mIDTpuLb64P4KMrs +nDW7lIDqb5bUM2yXa9XLrMoI6PBhhI9hS5wbuXa7ggD7uCRjjWA+So/3GKur +JSC2//GlFOxkfd2IWw8IiIoQMUIhfBR+riPy5gcC2ntKByqZfOQkM2IT30/A +YHqcSiv2unSatNkAAZqHuZbvsEfiLSqqh3F++4LxUhYfhbjlc25MEKDm85tI +ILaPaEJ01Q8CHroXuS8l+MgxQS22XImEBFruzm0kHz3IP+qcpUKCg2E1BGDb +dE7pstVISKtQl43HNtXreGOnRcKY33u/C9iqrw7YvdMjoT/hefEE9vjGPiUJ +CxIM6R3if1F8lCF0+V6oNwl/TrhMVoXi9zeRynXdSYI6oz64GfuIHzuevpsE +6dQNdc+x2bUeaxcZJLyf3iM9gx1CLTnzN5MEo50xkVZhfERvZxKtcSSwNqaN +38F+dUZPUieThFPaeQMle/ioEkmHjZ4hQfbIqeFa7COc6ZaKbBLCny/pbsY2 +c2pJsTpHgkRFnN877NM01pTrJRIGFd1dpMP5aGvM5TfschJ6LkqfjcTW1PzT +0raShGHrO8vZ2NPtMdnCN0jQ+OdVXBp2wRrkerqGhOtFYRPnsRf6+u4XNmAH +3W9oxa51US99+hjXExbXqBLBRyd+CInmtJOg0PyiXBubWToW4ttJQsubvHQj +bFmRBvWhLhL+693JQdiRjT4Zcy9JiDJ3PUti6xj8naQ7TIJoe8HWcuwfrw72 +fBkh4UXvx4pa7O500rRqlITIloT5u9gpn8zHrCdImKTy3J9gv83tCXD/SkJZ +6+CTCeyspXIO+5dQYBtRpL82Ep8HU31+icIUKOVc7V6P/bmvLD5alIKp0A8+ +ltg2tfaXmcso2NT6VcoBeySY/dNZjoJxoXPCIdiyLg7yDgoUyKii2lDsTRvk +9ZEiBfIXVLZGY2dKl++iq1LgLhwgfUAw3vCxWn01BeZiKgbZ2NTV8seKOhSY +iFoN5Qqez9z3cbkeBTrLjqReEqxHKUiL6FPwoDzP95pgXMExbMKUgoW5Rxfu +YTf8UkgdMaPA+LJl0APs4S/9Z/vNKRi7+0S4DXvj/f0Pe60osPGO5XVhD0VW +at0DCi4e2re7H1vG54DF7S0UqHsq6w5hW9ttc6m2p+DAwOtnn7FPqw7su7qN +gsCK1m4udr1IVWa+MwUrtXmrp7AHJw+UnHfB+U9tdsxgWz1SfHHKgwLHsE3+ +P7GZ1QPjx7woyCyf+N8v7FMXq4T+2EEBp7dplBbFRwPxTqZJPhQMFbbMiWJL +Byo5xjIo+Nk46y2ObeU0GBDuT4H2BecMCexTKw+eCAym4H2d2zUZ7HoJ5wIf +JgXKhxaPyQryZpTueBEUXNDvcpQX5H0a7HKhKLD+496ogiCv88bI1jDcX//2 +cEVs5u2DCxCO+3Vy5omSIL/AecWmSAqOcWzlVQT5p5QNLaIp8GUUb1AV5LOH +NpvE4vk1hrZq2FJEtY9+PAWS757qqWNvcE+J0UmkIK8+gyswc+P2o5pJFHRY +ROdqYJ/UU8lTZlMwisJ1NLHrZIdr5PZTUNOWliHwp5/V7ZLJuH/NDe8Flvqc +8kk0hQID3eWSWtiWz7d/X0ylwH78kJrA/weMbAdW "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.48341415918018676`, 1.8971786059380225`}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.4834141591801878}, + "PlotRange" -> {{0, 180}, {0.9168679028193174, 1.0891400370880584`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9168679028193194}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10401,7 +10523,8 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.4834141591801878}, + AxesOrigin->{0, 0.9168679028193194}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -10429,7 +10552,8 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.48341415918018676`, 1.8971786059380225`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.9168679028193174, 1.0891400370880584`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -10437,9 +10561,9 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913460797739086`*^9}, + CellChangeTimes->{3.9913460797739086`*^9, 3.9942590808790197`*^9}, CellLabel-> - "Out[443]=",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] + "Out[118]=",ExpressionUUID->"6075a03b-bb55-4fa5-82ef-d2f8548c5be5"] }, Open ]], Cell[CellGroupData[{ @@ -10502,207 +10626,162 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.9918502644064465`*^9, - 3.9918502684162617`*^9}},ExpressionUUID->"42ddbf41-0bd8-b749-bead-\ -56c89a9b7467"], + CellChangeTimes->{{3.9918502644064465`*^9, 3.9918502684162617`*^9}}, + CellLabel-> + "In[119]:=",ExpressionUUID->"42ddbf41-0bd8-b749-bead-56c89a9b7467"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.7282513679946418`*^-262\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.80159253393989`*^-273\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 49, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991346080016945*^9, 3.9942590810736837`*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"6b566e40-c882-4075-8efd-dfaad75e260f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.214170755878474`*^-286\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 50, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991346080016945*^9, 3.994259081081929*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"7d0d28e8-0d1d-4000-9b9c-039ff40c1cd7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.8887919279481594`*^-298\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 444, - 477, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991346080016945*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 51, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991346080016945*^9, 3.9942590810902033`*^9}, CellLabel-> "During evaluation of \ -In[444]:=",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.1421038932835147`*^-273\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 444, 478, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991346080026985*^9}, - CellLabel-> - "During evaluation of \ -In[444]:=",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.655058850000931`*^-284\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 444, 479, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913460800358925`*^9}, - CellLabel-> - "During evaluation of \ -In[444]:=",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], +In[119]:=",ExpressionUUID->"84bf9518-6f48-4f4a-8f66-8315b2f08297"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 444, 480, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991346080043894*^9}, +during this calculation.\"", 2, 119, 52, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991346080016945*^9, 3.994259081098472*^9}, CellLabel-> "During evaluation of \ -In[444]:=",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], +In[119]:=",ExpressionUUID->"40a818e4-ddcd-4147-9ef6-e4d77c01fe52"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW -QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx -/f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu -+ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 -jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D -y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP -Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs -mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f -oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo -7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM -b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv -gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 -Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN -kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla -bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi -mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk -+8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ -8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q -mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L -nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD -F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ -HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd -H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv -40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ -Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw -00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA -3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY -8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj -qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe -zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ -6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW -/AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF -X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU -+iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar -CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma -uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM -LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 -pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY -W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt -yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn -SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW -lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA -ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ -hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc -Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z -tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb -SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 -5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS -hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi -H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 -vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q -3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT -v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir -So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb -3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX -h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP -A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 -JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z -kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv -bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ -oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB -K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq -w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK -UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI -V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV -6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 -CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R -WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z -jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL -c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d -MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE -S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP -nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ -KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT -s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 -PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 -nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV -7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx -yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR -17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J -2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW -jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 -vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j -aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 -OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g -jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN -pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD -c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN -5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR -zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 -Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 -OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv -q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr -YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX -W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh -9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 -Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u -T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb -3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k -yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E -8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt -tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr -fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 -RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 -ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS -FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx -jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH -k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j -I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 -DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh -xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs -GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 -0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu -FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX -SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI -zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 -XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l -tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf -2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 -ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb -My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ -1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 -d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi -t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y -/2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL -HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws -V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt -zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy -yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r -lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX -3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw -sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs -FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 -lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw -OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP -3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC -kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y -MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR -heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c4Vf8fAHCZhSjkIuOe61I2ZST3er9LSZTVpZSZVRFaZJQVKSNSRlkJ +kXVPNg0haSlNKjS0JFQo5Ot3fn+d5/V8znOecz6f9zrE7kB7b14eHp5FC3h4 +/n+dGrjXwUwsMrUu/ZwoVo+mz/NkQtf1xoD8qvrXGaWKgMse75bpPQvvc6w6 +bEu1Idj26iu+3kL4WpTkxig1haWjtLPTr66BmbDP3f4r1jB43Tpw4lUbbKrt +/yJwxRXMmcP9P189BRkJ6XftlwNg+pXR+fFXH4A/fePjRxnHod3sSlFP4W+o +NGxQZRedAfnBps+7NecAfUPbV7IyQcrf7aqQGR8WWsnLEPp5cFbPvMXaYSHG +8PpPfiorhL4s3dafSxZjjXxR2N0bxZBYFPmYV3YpfhV09nDsKAXauY+n0nMl +sSIg1/qhZznIaNSd+Fsiibyl7wI/+ZeDXFt8pAtXEsdtj3pOHykHxXG1Iyva +JVFJXezG0oRyUNkS5N7yVRKz3MXl+CvKYTX/nOHH1VJonJQZM/qrHGwOSw+t +ui+FP7aROU8jKuAkZ7Pp06llqPHiYNelqEqQq+2W410gjWMVf5eJn6qEKknO +Hz0RaYyyshYITquEl09duWlK0jj8sviObmElMO0OM+wspFGbV7fGqb0S2rbm +Cz7JlkbVlKCwo/xVMGc+2f2IRcM0q4Kpj9FVkFoSVj5nTsOT5eEvY09VAVOQ +J0HLjoa12e6mCmlVsOWO8LpkbxpqTxRfZhVUwQUzes2WFBoOPNC/pnWzCtag +VeaDQRqetw/b3vu3Cg4ZX3K7FyODZk5R01Z7q8GyQGzCKkkG/VbILSsNrAaG +UERC93kZHDP/fvy/I9Xw5Lkj+axUBo/f/GtyIaYatINE+Qa6ZZBmcmJb8sVq ++FoSUvJLThb3hAte93hYDc5S1j+W18hiwfyaiXdSXFgd3hKdd10Wo/T0ympo +XBD+sFKa6JTFEM3J6Fg5LjRV84FqnyzKZVflydG5IG3VlKo7L4tx6Y2xqhpc +eBLN1N9oJYfyp/wma5ELG8ZmwgI+yiGvS41/xV4uhFqcU789Iofa+5R0aP5c +qLqk9VpySg5tH7/TiwzgggzH3bhp4XKcys78a36ICyONd/7waS/H/vf7kuoi +uJAek3o4++hytA3oeit2hgsflqkGdCyWx8fG9q3XSC7QAm8p0GjyOBNVWHun +hgtbunY82kuXxzPf7EZe1HGhPixRU3y1PDYmuKuONnHh9OD4sNMOeVQ55nNv +7jYXVpW1+I4VymOVcOtodg8Xoll2HnJrFHCoqWy6c5QLFq55v4zWK+AlHwHz +0nEuiEV9j3XYooDDTzLd439xIac9riTVXQHP/05dYDzFhUbL5u+CpxTwpfqu +2ZA5LozvUA7+3aeArNOVy1xESGgICxJaOqSAiRrSfiKLSTiecyNLe1QBFXw/ +pdeLkSD6bnvLXl5FtBFS8eCTIGGFbxLPO3VFdFi/ayJYhgTXI5OnH4YrYpe/ +lX0nkwSVzPXyw3GKuOfmO+H1qiS1f2cqhVIVUXbsv5zmFSSE/VN7sr5IEUPF +I20K1Uk4H+u6rOmhIv654TFtpUvCw7S7+cUKSqg8u6VtoQkJa6uya4/fUsLK +WMJbw5qEDa+650a7lHDBo9fJujYkWPPwb3J7qoQpsUcFVtuS4Gkf0AeflFD8 +KO2jjj0J5uFEZJQAHael+b0WOZIQpDR1eZ0GHUf92gZNXEiYrEntmtah44PV +oRrSrtT7WWj8IPXpWLLK+NEPynEH3A0ZpnTULq+VOu9OwoX2+128dnT0U3zb +2u5JQodv/o/2YDryJ0rPXNpLwuZ/xhIR4XSUChsZtNtHQnfqc0P9KDp+PXBO +eZ5yX9OiqKJTdLyWt7vTzp+EUZHDEnE5dMwN3ZbwKoCEQwViRuxLdNz9fonf +wUAS/uqX7ZosptZzW6uFg0jgcx0o8q6m3rdfwmP1ARJkuBZG5m3U9wj6HvQ+ +RELuho+7/uuko4BD5qHvlBl9x6LqH9Bx1mrBm4DDJGjx1txTfUHHZBtyYP8R +EtZzFJyFvtIx8tlI15YQEu5+bYi6NUJHm512IjcpbzlmXxzyk46X17g0ah4l +YXvJydEvM9T+iFdyeENJ8P/7M6prMYGLIuVLUsKo8zrgI/1ZgkCVLKc/vygv +HH5dzidDoKDTxAZOOAnFb9pfmjIIfLXWpHdxBAmHOWv8nVcQGJbkreRDef2j +igVhmgTqff7m3UJ54OZ5zTpDAs06BCacj5FQYSTc9tSEwIddBLuMchj3+PZx +JLDueUHCL8rShb4xGlYExub0qUUcJ2FI7i1tsy2BE9KK0dcpX0u3rfRxILBb +6k3/NGWbOOPeS24EVme/veoXSYLif5X7b3kRuE/0mnwB5ZFgBl//XgLf9hKZ +PZSbxzKyZgIILHWdkuOJIiFhj4i2zGECnVtnSjUoO76PbDcIJfDzh5l1HMrM +nRM7th0nUGJ/++dQyr+e7hkNiiVwtJPIyqHcatUfm5JAoJ3skON1yikddrIV +yQSabO1T7qPszO6suneWwB0iPfO/KKvXr93wJZNAr5aL3xdFkzCtXd3Hn0tg +TazwVwXKXVeUAxmFBCZZjE1qU86gZ/HjFQIry+Wl2ZS9skUvuFRQ94v4bLag +vEoiWiecJDA1Nj/VljJP4mRHVj2B899yRxwod/Pt21nfQuDkE0PXHZRzIgbG +nrUSuDAOP2+n7DdpH/fzDoG/RM/GcSivDbgrJ/6AwKmVfGxrygu/mHA1n1Df +Z++/eCPll27cjZYvCCSbS/6soVzUy3zj+5rAHKukf2qUD9plB8UNEjhe/Ede +hjLeXyx4eYhAU6LDiY+ymFnMxdZvBG558KjmO7Uf/S1TugOjBIb6/tTooVyh +79c5+5tAgwDR9hrKYZWDu2SnCfQVnQtNpyyd3xXP4WPgwMY3lpaUh2hs+YML +GWh5PcGHoHwtlSTPLGYgJzKxeJI6b5uYC2/v0xhYt0km7fz/42NW7OBXeQY6 +1/mCx//j41CskCCDgQRkSqlTTvD2X7VOk4Ekv5pRDRVfjgPv7rrqMbBe2TH+ +EGXmdgeXCEMGqjGn53Upt1qYJjQgA7P4TIMvU/E7rbFkQMuBgS2BBgn/z4ep +XLno1TsZeNSsY2Ap5QlxFaaxGwP/FNGim6l8Gv1tvG/DXgZ2xydW8FH+0OI5 +tfMYA7X/bWw4QuXnoFZAtnsMA43V0k+IUH6bf5Tlc5KB4gk1RXlUPr+MTY45 +kEatn+F5f53K9/tWDWIJxQzMuD22u4+qD3dv3CaTrzIwc+vUoBPlDp2HnPRq +Bj68wd/wiqonNyXfX8hrYqBE3UDwA6reXHsjvKLuEQPDhLS2p1P16YKfK3yY +ZOCCTthbTNW7zP49H77MUPvlxZmc9SPhnM2huB/zDNylZTFsQzlldcKDv4uU +USUsQ2Kcqqcxs+R2cUVl5HT5hyz1peItUSCIZa6M8W71e/qoerxnTlxyvZUy +Tt7ZPylI2SdQrn6TrTJeHfaZ0XMjwX2bzj/7ncooaLnoQBRV7znLnRL2Bihj +EzdDc96JBFZ5RUFGhjLaljU1n6D6xRt6ef7Gi8qYXa5qdNGOip+MsryJfGUU +2TaVXE31l4bokhz7MmVUd+Lv7qH60aodBVli15XRpXag6p8lCWoC51Lj3ytj +Wt/jipH1VLy5hUcFazKRZdZ4xESPhLrnoZEqekz80mH7RozqdxzLo8efGzBx +e7Ca4TttEs4aHIlYBUysmBZ9HKFJwmLRwKOjdkw0augqzqX6J3/T7iCfECY+ +VT1UdlyBhJ8Slu6ObUxMzZ/V6BAiodef8WTfXSb+eLOC11iQiq/OGYh8yETV +0VNny/lJSA0rVyp9ycQLROznUwtI0P0gOjg9zETREp9wjVkuBJCPXXIlVfCB +wfxOPmreGLZx2DXkpYLL4yIlxZ5yYSjJ3fGgkCr+/royoiedun9Yk6ErqoqG +iVnJ79O48GfT9I8fS1SR4S34eYyaj4T5zsbtlVNFPdGeQKEkLuiGtte6a6li +vGkfL+MEF455q0rabFPFRXfG+QUPU/Oc6chjjXxVTI9oO5hqz4XNYyGbPxmu +QNlgT40vwtQ85rnwUG3kSvSes6oSa6yi/idovCfb1HBj1tqEu/qVIPFINYU7 +po4d24Jvf6Hmc/mEaltDQ00cSBCu6vpeBlkaxkskfbXwR8Tj0SLjUrgvt87g +d5o22m+77ip5qgTWyrel6rzUwf3dUtLiNUUgxld42CNGF+8l3Tyev+AyKEYr +sZxU9dBw/IsHGF2CRSrO9fZ39VCtk126USQftNmy1SEuq/Cu5R9Oq2AOHByQ +aLfkWY3infu3541mwdjvJIfNWasxqYJGLlqbAZt0Oi9s1tJH/4+SwXG30+Hm +b5PZP936mBveE1VhkQYBmqte93gboL6axdtUpxRgj3o9d1pkiBkFav1C+qdh +I1Nm6+JCQ1Ssspvb0xgPK6NOH20zMsKIncbSg1diQd3b+JbKayMc6RVL/lYT +Bd4395yoPbAG/c04MR8TI+BWwXOvn8uMseA9rXbbeAhMlM7/0WkwRtvXbzez +BA+Dp0r5ogtb1+IGvzrVhv4g+KmebnhtfC1+Cgk/ebTPDxqLZt9PJpiggNiI +zXN1X9i5QRlNFFk49N/XTw/AE+aeLxRrp7MwPWytF1PXEwq8R99YKrPQ+1/4 +l5N0T/gc3xSycyUL6/cZDwUu8ISD92yqQ1exsODQpHB7+244bR2h2GjOwrau +hvogy93QvOPFP/1AFgo3z6+95eYBy/efbNJuZWFkTcOJZjs3SJn3MUhsY6Hc +JQ8pG2M34D1rTn7pYKHXnddmE3Q3GK4XKCu4x8K4TxddgsZdoZnnRJbEMxZ2 +GdRFaKe6ws5zUSFTn1ho1XUluPmpC2S1hBrcFGFj/8D5/U89nWGZsD+5dTsb +b6z8WbSs1gmKzI6FjTuxMWBJU5parhOsOpZilu7Mxmbx96E28U5gPc590evB +Rv3Sz4t7djhB/MvJaU9/NibXTvNc/W8H/C2MXB8Wzca+1IMCZVt3wGuT9Gcl +5WycH+tRTvrrCHuOFOVsrmJjT+9z93sfHWGqqs57hMvGsJQzOrTHjiDB6P2j +V0+tc6wch4odwWqhgvyNVjZaPHuSYcZxhOvPS7yevWBj9KCjl2itA1iKNWoF +97Jx2mmicGuBA/Ruujcl84aNxPSSzrwkB5ho/p7g+o6NEsnqZ4K8HUDrkm7l +t2E2JhhU8fXQHOD663XBST/YaJg7zkrlp54ntQ10xtm4yXRWwO0nB3xOHuk5 +PMnGBWn7FTQecGCiNf4C7S8bF4oNOa5s5EDMTKZn8wwbrXbilH4xB5bol2m6 +zLHx0kHpn7ZnOZC3v3lyfp6Nts7zrIhIDvwPX4yALQ== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -10716,166 +10795,117 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW -QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx -/f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu -+ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 -jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D -y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP -Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs -mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f -oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo -7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM -b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv -gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 -Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN -kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla -bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi -mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk -+8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ -8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q -mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L -nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD -F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ -HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd -H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv -40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ -Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw -00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA -3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY -8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj -qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe -zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ -6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW -/AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF -X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU -+iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar -CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma -uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM -LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 -pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY -W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt -yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn -SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW -lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA -ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ -hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc -Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z -tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb -SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 -5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS -hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi -H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 -vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q -3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT -v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir -So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb -3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX -h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP -A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 -JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z -kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv -bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ -oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB -K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq -w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK -UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI -V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV -6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 -CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R -WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z -jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL -c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d -MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE -S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP -nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ -KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT -s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 -PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 -nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV -7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx -yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR -17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J -2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW -jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 -vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j -aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 -OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g -jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN -pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD -c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN -5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR -zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 -Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 -OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv -q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr -YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX -W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh -9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 -Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u -T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb -3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k -yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E -8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt -tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr -fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 -RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 -ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS -FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx -jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH -k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j -I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 -DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh -xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs -GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 -0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu -FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX -SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI -zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 -XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l -tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf -2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 -ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb -My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ -1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 -d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi -t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y -/2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL -HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws -V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt -zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy -yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r -lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX -3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw -sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs -FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 -lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw -OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP -3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC -kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y -MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR -heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb +1:eJwV13c4Vf8fAHCZhSjkIuOe61I2ZST3er9LSZTVpZSZVRFaZJQVKSNSRlkJ +kXVPNg0haSlNKjS0JFQo5Ot3fn+d5/V8znOecz6f9zrE7kB7b14eHp5FC3h4 +/n+dGrjXwUwsMrUu/ZwoVo+mz/NkQtf1xoD8qvrXGaWKgMse75bpPQvvc6w6 +bEu1Idj26iu+3kL4WpTkxig1haWjtLPTr66BmbDP3f4r1jB43Tpw4lUbbKrt +/yJwxRXMmcP9P189BRkJ6XftlwNg+pXR+fFXH4A/fePjRxnHod3sSlFP4W+o +NGxQZRedAfnBps+7NecAfUPbV7IyQcrf7aqQGR8WWsnLEPp5cFbPvMXaYSHG +8PpPfiorhL4s3dafSxZjjXxR2N0bxZBYFPmYV3YpfhV09nDsKAXauY+n0nMl +sSIg1/qhZznIaNSd+Fsiibyl7wI/+ZeDXFt8pAtXEsdtj3pOHykHxXG1Iyva +JVFJXezG0oRyUNkS5N7yVRKz3MXl+CvKYTX/nOHH1VJonJQZM/qrHGwOSw+t +ui+FP7aROU8jKuAkZ7Pp06llqPHiYNelqEqQq+2W410gjWMVf5eJn6qEKknO +Hz0RaYyyshYITquEl09duWlK0jj8sviObmElMO0OM+wspFGbV7fGqb0S2rbm +Cz7JlkbVlKCwo/xVMGc+2f2IRcM0q4Kpj9FVkFoSVj5nTsOT5eEvY09VAVOQ +J0HLjoa12e6mCmlVsOWO8LpkbxpqTxRfZhVUwQUzes2WFBoOPNC/pnWzCtag +VeaDQRqetw/b3vu3Cg4ZX3K7FyODZk5R01Z7q8GyQGzCKkkG/VbILSsNrAaG +UERC93kZHDP/fvy/I9Xw5Lkj+axUBo/f/GtyIaYatINE+Qa6ZZBmcmJb8sVq ++FoSUvJLThb3hAte93hYDc5S1j+W18hiwfyaiXdSXFgd3hKdd10Wo/T0ympo +XBD+sFKa6JTFEM3J6Fg5LjRV84FqnyzKZVflydG5IG3VlKo7L4tx6Y2xqhpc +eBLN1N9oJYfyp/wma5ELG8ZmwgI+yiGvS41/xV4uhFqcU789Iofa+5R0aP5c +qLqk9VpySg5tH7/TiwzgggzH3bhp4XKcys78a36ICyONd/7waS/H/vf7kuoi +uJAek3o4++hytA3oeit2hgsflqkGdCyWx8fG9q3XSC7QAm8p0GjyOBNVWHun +hgtbunY82kuXxzPf7EZe1HGhPixRU3y1PDYmuKuONnHh9OD4sNMOeVQ55nNv +7jYXVpW1+I4VymOVcOtodg8Xoll2HnJrFHCoqWy6c5QLFq55v4zWK+AlHwHz +0nEuiEV9j3XYooDDTzLd439xIac9riTVXQHP/05dYDzFhUbL5u+CpxTwpfqu +2ZA5LozvUA7+3aeArNOVy1xESGgICxJaOqSAiRrSfiKLSTiecyNLe1QBFXw/ +pdeLkSD6bnvLXl5FtBFS8eCTIGGFbxLPO3VFdFi/ayJYhgTXI5OnH4YrYpe/ +lX0nkwSVzPXyw3GKuOfmO+H1qiS1f2cqhVIVUXbsv5zmFSSE/VN7sr5IEUPF +I20K1Uk4H+u6rOmhIv654TFtpUvCw7S7+cUKSqg8u6VtoQkJa6uya4/fUsLK +WMJbw5qEDa+650a7lHDBo9fJujYkWPPwb3J7qoQpsUcFVtuS4Gkf0AeflFD8 +KO2jjj0J5uFEZJQAHael+b0WOZIQpDR1eZ0GHUf92gZNXEiYrEntmtah44PV +oRrSrtT7WWj8IPXpWLLK+NEPynEH3A0ZpnTULq+VOu9OwoX2+128dnT0U3zb +2u5JQodv/o/2YDryJ0rPXNpLwuZ/xhIR4XSUChsZtNtHQnfqc0P9KDp+PXBO +eZ5yX9OiqKJTdLyWt7vTzp+EUZHDEnE5dMwN3ZbwKoCEQwViRuxLdNz9fonf +wUAS/uqX7ZosptZzW6uFg0jgcx0o8q6m3rdfwmP1ARJkuBZG5m3U9wj6HvQ+ +RELuho+7/uuko4BD5qHvlBl9x6LqH9Bx1mrBm4DDJGjx1txTfUHHZBtyYP8R +EtZzFJyFvtIx8tlI15YQEu5+bYi6NUJHm512IjcpbzlmXxzyk46X17g0ah4l +YXvJydEvM9T+iFdyeENJ8P/7M6prMYGLIuVLUsKo8zrgI/1ZgkCVLKc/vygv +HH5dzidDoKDTxAZOOAnFb9pfmjIIfLXWpHdxBAmHOWv8nVcQGJbkreRDef2j +igVhmgTqff7m3UJ54OZ5zTpDAs06BCacj5FQYSTc9tSEwIddBLuMchj3+PZx +JLDueUHCL8rShb4xGlYExub0qUUcJ2FI7i1tsy2BE9KK0dcpX0u3rfRxILBb +6k3/NGWbOOPeS24EVme/veoXSYLif5X7b3kRuE/0mnwB5ZFgBl//XgLf9hKZ +PZSbxzKyZgIILHWdkuOJIiFhj4i2zGECnVtnSjUoO76PbDcIJfDzh5l1HMrM +nRM7th0nUGJ/++dQyr+e7hkNiiVwtJPIyqHcatUfm5JAoJ3skON1yikddrIV +yQSabO1T7qPszO6suneWwB0iPfO/KKvXr93wJZNAr5aL3xdFkzCtXd3Hn0tg +TazwVwXKXVeUAxmFBCZZjE1qU86gZ/HjFQIry+Wl2ZS9skUvuFRQ94v4bLag +vEoiWiecJDA1Nj/VljJP4mRHVj2B899yRxwod/Pt21nfQuDkE0PXHZRzIgbG +nrUSuDAOP2+n7DdpH/fzDoG/RM/GcSivDbgrJ/6AwKmVfGxrygu/mHA1n1Df +Z++/eCPll27cjZYvCCSbS/6soVzUy3zj+5rAHKukf2qUD9plB8UNEjhe/Ede +hjLeXyx4eYhAU6LDiY+ymFnMxdZvBG558KjmO7Uf/S1TugOjBIb6/tTooVyh +79c5+5tAgwDR9hrKYZWDu2SnCfQVnQtNpyyd3xXP4WPgwMY3lpaUh2hs+YML +GWh5PcGHoHwtlSTPLGYgJzKxeJI6b5uYC2/v0xhYt0km7fz/42NW7OBXeQY6 +1/mCx//j41CskCCDgQRkSqlTTvD2X7VOk4Ekv5pRDRVfjgPv7rrqMbBe2TH+ +EGXmdgeXCEMGqjGn53Upt1qYJjQgA7P4TIMvU/E7rbFkQMuBgS2BBgn/z4ep +XLno1TsZeNSsY2Ap5QlxFaaxGwP/FNGim6l8Gv1tvG/DXgZ2xydW8FH+0OI5 +tfMYA7X/bWw4QuXnoFZAtnsMA43V0k+IUH6bf5Tlc5KB4gk1RXlUPr+MTY45 +kEatn+F5f53K9/tWDWIJxQzMuD22u4+qD3dv3CaTrzIwc+vUoBPlDp2HnPRq +Bj68wd/wiqonNyXfX8hrYqBE3UDwA6reXHsjvKLuEQPDhLS2p1P16YKfK3yY +ZOCCTthbTNW7zP49H77MUPvlxZmc9SPhnM2huB/zDNylZTFsQzlldcKDv4uU +USUsQ2Kcqqcxs+R2cUVl5HT5hyz1peItUSCIZa6M8W71e/qoerxnTlxyvZUy +Tt7ZPylI2SdQrn6TrTJeHfaZ0XMjwX2bzj/7ncooaLnoQBRV7znLnRL2Bihj +EzdDc96JBFZ5RUFGhjLaljU1n6D6xRt6ef7Gi8qYXa5qdNGOip+MsryJfGUU +2TaVXE31l4bokhz7MmVUd+Lv7qH60aodBVli15XRpXag6p8lCWoC51Lj3ytj +Wt/jipH1VLy5hUcFazKRZdZ4xESPhLrnoZEqekz80mH7RozqdxzLo8efGzBx +e7Ca4TttEs4aHIlYBUysmBZ9HKFJwmLRwKOjdkw0augqzqX6J3/T7iCfECY+ +VT1UdlyBhJ8Slu6ObUxMzZ/V6BAiodef8WTfXSb+eLOC11iQiq/OGYh8yETV +0VNny/lJSA0rVyp9ycQLROznUwtI0P0gOjg9zETREp9wjVkuBJCPXXIlVfCB +wfxOPmreGLZx2DXkpYLL4yIlxZ5yYSjJ3fGgkCr+/royoiedun9Yk6ErqoqG +iVnJ79O48GfT9I8fS1SR4S34eYyaj4T5zsbtlVNFPdGeQKEkLuiGtte6a6li +vGkfL+MEF455q0rabFPFRXfG+QUPU/Oc6chjjXxVTI9oO5hqz4XNYyGbPxmu +QNlgT40vwtQ85rnwUG3kSvSes6oSa6yi/idovCfb1HBj1tqEu/qVIPFINYU7 +po4d24Jvf6Hmc/mEaltDQ00cSBCu6vpeBlkaxkskfbXwR8Tj0SLjUrgvt87g +d5o22m+77ip5qgTWyrel6rzUwf3dUtLiNUUgxld42CNGF+8l3Tyev+AyKEYr +sZxU9dBw/IsHGF2CRSrO9fZ39VCtk126USQftNmy1SEuq/Cu5R9Oq2AOHByQ +aLfkWY3infu3541mwdjvJIfNWasxqYJGLlqbAZt0Oi9s1tJH/4+SwXG30+Hm +b5PZP936mBveE1VhkQYBmqte93gboL6axdtUpxRgj3o9d1pkiBkFav1C+qdh +I1Nm6+JCQ1Ssspvb0xgPK6NOH20zMsKIncbSg1diQd3b+JbKayMc6RVL/lYT +Bd4395yoPbAG/c04MR8TI+BWwXOvn8uMseA9rXbbeAhMlM7/0WkwRtvXbzez +BA+Dp0r5ogtb1+IGvzrVhv4g+KmebnhtfC1+Cgk/ebTPDxqLZt9PJpiggNiI +zXN1X9i5QRlNFFk49N/XTw/AE+aeLxRrp7MwPWytF1PXEwq8R99YKrPQ+1/4 +l5N0T/gc3xSycyUL6/cZDwUu8ISD92yqQ1exsODQpHB7+244bR2h2GjOwrau +hvogy93QvOPFP/1AFgo3z6+95eYBy/efbNJuZWFkTcOJZjs3SJn3MUhsY6Hc +JQ8pG2M34D1rTn7pYKHXnddmE3Q3GK4XKCu4x8K4TxddgsZdoZnnRJbEMxZ2 +GdRFaKe6ws5zUSFTn1ho1XUluPmpC2S1hBrcFGFj/8D5/U89nWGZsD+5dTsb +b6z8WbSs1gmKzI6FjTuxMWBJU5parhOsOpZilu7Mxmbx96E28U5gPc590evB +Rv3Sz4t7djhB/MvJaU9/NibXTvNc/W8H/C2MXB8Wzca+1IMCZVt3wGuT9Gcl +5WycH+tRTvrrCHuOFOVsrmJjT+9z93sfHWGqqs57hMvGsJQzOrTHjiDB6P2j +V0+tc6wch4odwWqhgvyNVjZaPHuSYcZxhOvPS7yevWBj9KCjl2itA1iKNWoF +97Jx2mmicGuBA/Ruujcl84aNxPSSzrwkB5ho/p7g+o6NEsnqZ4K8HUDrkm7l +t2E2JhhU8fXQHOD663XBST/YaJg7zkrlp54ntQ10xtm4yXRWwO0nB3xOHuk5 +PMnGBWn7FTQecGCiNf4C7S8bF4oNOa5s5EDMTKZn8wwbrXbilH4xB5bol2m6 +zLHx0kHpn7ZnOZC3v3lyfp6Nts7zrIhIDvwPX4yALQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "PlotRange" -> {{0, 30}, {0., 0.06837990093373832}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -10887,19 +10917,19 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "PlotRange" -> {{0, 30}, {0., 0.06837990093373832}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10913,165 +10943,116 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW -QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx -/f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu -+ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 -jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D -y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP -Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs -mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f -oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo -7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM -b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv -gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 -Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN -kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla -bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi -mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk -+8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ -8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q -mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L -nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD -F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ -HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd -H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv -40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ -Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw -00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA -3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY -8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj -qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe -zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ -6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW -/AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF -X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU -+iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar -CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma -uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM -LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 -pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY -W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt -yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn -SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW -lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA -ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ -hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc -Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z -tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb -SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 -5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS -hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi -H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 -vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q -3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT -v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir -So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb -3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX -h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP -A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 -JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z -kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv -bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ -oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB -K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq -w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK -UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI -V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV -6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 -CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R -WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z -jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL -c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d -MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE -S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP -nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ -KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT -s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 -PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 -nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV -7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx -yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR -17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J -2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW -jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 -vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j -aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 -OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g -jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN -pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD -c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN -5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR -zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 -Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 -OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv -q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr -YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX -W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh -9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 -Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u -T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb -3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k -yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E -8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt -tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr -fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 -RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 -ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS -FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx -jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH -k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j -I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 -DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh -xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs -GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 -0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu -FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX -SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI -zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 -XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l -tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf -2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 -ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb -My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ -1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 -d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi -t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y -/2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL -HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws -V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt -zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy -yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r -lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX -3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw -sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs -FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 -lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw -OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP -3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC -kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y -MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR -heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb +1:eJwV13c4Vf8fAHCZhSjkIuOe61I2ZST3er9LSZTVpZSZVRFaZJQVKSNSRlkJ +kXVPNg0haSlNKjS0JFQo5Ot3fn+d5/V8znOecz6f9zrE7kB7b14eHp5FC3h4 +/n+dGrjXwUwsMrUu/ZwoVo+mz/NkQtf1xoD8qvrXGaWKgMse75bpPQvvc6w6 +bEu1Idj26iu+3kL4WpTkxig1haWjtLPTr66BmbDP3f4r1jB43Tpw4lUbbKrt +/yJwxRXMmcP9P189BRkJ6XftlwNg+pXR+fFXH4A/fePjRxnHod3sSlFP4W+o +NGxQZRedAfnBps+7NecAfUPbV7IyQcrf7aqQGR8WWsnLEPp5cFbPvMXaYSHG +8PpPfiorhL4s3dafSxZjjXxR2N0bxZBYFPmYV3YpfhV09nDsKAXauY+n0nMl +sSIg1/qhZznIaNSd+Fsiibyl7wI/+ZeDXFt8pAtXEsdtj3pOHykHxXG1Iyva +JVFJXezG0oRyUNkS5N7yVRKz3MXl+CvKYTX/nOHH1VJonJQZM/qrHGwOSw+t +ui+FP7aROU8jKuAkZ7Pp06llqPHiYNelqEqQq+2W410gjWMVf5eJn6qEKknO +Hz0RaYyyshYITquEl09duWlK0jj8sviObmElMO0OM+wspFGbV7fGqb0S2rbm +Cz7JlkbVlKCwo/xVMGc+2f2IRcM0q4Kpj9FVkFoSVj5nTsOT5eEvY09VAVOQ +J0HLjoa12e6mCmlVsOWO8LpkbxpqTxRfZhVUwQUzes2WFBoOPNC/pnWzCtag +VeaDQRqetw/b3vu3Cg4ZX3K7FyODZk5R01Z7q8GyQGzCKkkG/VbILSsNrAaG +UERC93kZHDP/fvy/I9Xw5Lkj+axUBo/f/GtyIaYatINE+Qa6ZZBmcmJb8sVq ++FoSUvJLThb3hAte93hYDc5S1j+W18hiwfyaiXdSXFgd3hKdd10Wo/T0ympo +XBD+sFKa6JTFEM3J6Fg5LjRV84FqnyzKZVflydG5IG3VlKo7L4tx6Y2xqhpc +eBLN1N9oJYfyp/wma5ELG8ZmwgI+yiGvS41/xV4uhFqcU789Iofa+5R0aP5c +qLqk9VpySg5tH7/TiwzgggzH3bhp4XKcys78a36ICyONd/7waS/H/vf7kuoi +uJAek3o4++hytA3oeit2hgsflqkGdCyWx8fG9q3XSC7QAm8p0GjyOBNVWHun +hgtbunY82kuXxzPf7EZe1HGhPixRU3y1PDYmuKuONnHh9OD4sNMOeVQ55nNv +7jYXVpW1+I4VymOVcOtodg8Xoll2HnJrFHCoqWy6c5QLFq55v4zWK+AlHwHz +0nEuiEV9j3XYooDDTzLd439xIac9riTVXQHP/05dYDzFhUbL5u+CpxTwpfqu +2ZA5LozvUA7+3aeArNOVy1xESGgICxJaOqSAiRrSfiKLSTiecyNLe1QBFXw/ +pdeLkSD6bnvLXl5FtBFS8eCTIGGFbxLPO3VFdFi/ayJYhgTXI5OnH4YrYpe/ +lX0nkwSVzPXyw3GKuOfmO+H1qiS1f2cqhVIVUXbsv5zmFSSE/VN7sr5IEUPF +I20K1Uk4H+u6rOmhIv654TFtpUvCw7S7+cUKSqg8u6VtoQkJa6uya4/fUsLK +WMJbw5qEDa+650a7lHDBo9fJujYkWPPwb3J7qoQpsUcFVtuS4Gkf0AeflFD8 +KO2jjj0J5uFEZJQAHael+b0WOZIQpDR1eZ0GHUf92gZNXEiYrEntmtah44PV +oRrSrtT7WWj8IPXpWLLK+NEPynEH3A0ZpnTULq+VOu9OwoX2+128dnT0U3zb +2u5JQodv/o/2YDryJ0rPXNpLwuZ/xhIR4XSUChsZtNtHQnfqc0P9KDp+PXBO +eZ5yX9OiqKJTdLyWt7vTzp+EUZHDEnE5dMwN3ZbwKoCEQwViRuxLdNz9fonf +wUAS/uqX7ZosptZzW6uFg0jgcx0o8q6m3rdfwmP1ARJkuBZG5m3U9wj6HvQ+ +RELuho+7/uuko4BD5qHvlBl9x6LqH9Bx1mrBm4DDJGjx1txTfUHHZBtyYP8R +EtZzFJyFvtIx8tlI15YQEu5+bYi6NUJHm512IjcpbzlmXxzyk46X17g0ah4l +YXvJydEvM9T+iFdyeENJ8P/7M6prMYGLIuVLUsKo8zrgI/1ZgkCVLKc/vygv +HH5dzidDoKDTxAZOOAnFb9pfmjIIfLXWpHdxBAmHOWv8nVcQGJbkreRDef2j +igVhmgTqff7m3UJ54OZ5zTpDAs06BCacj5FQYSTc9tSEwIddBLuMchj3+PZx +JLDueUHCL8rShb4xGlYExub0qUUcJ2FI7i1tsy2BE9KK0dcpX0u3rfRxILBb +6k3/NGWbOOPeS24EVme/veoXSYLif5X7b3kRuE/0mnwB5ZFgBl//XgLf9hKZ +PZSbxzKyZgIILHWdkuOJIiFhj4i2zGECnVtnSjUoO76PbDcIJfDzh5l1HMrM +nRM7th0nUGJ/++dQyr+e7hkNiiVwtJPIyqHcatUfm5JAoJ3skON1yikddrIV +yQSabO1T7qPszO6suneWwB0iPfO/KKvXr93wJZNAr5aL3xdFkzCtXd3Hn0tg +TazwVwXKXVeUAxmFBCZZjE1qU86gZ/HjFQIry+Wl2ZS9skUvuFRQ94v4bLag +vEoiWiecJDA1Nj/VljJP4mRHVj2B899yRxwod/Pt21nfQuDkE0PXHZRzIgbG +nrUSuDAOP2+n7DdpH/fzDoG/RM/GcSivDbgrJ/6AwKmVfGxrygu/mHA1n1Df +Z++/eCPll27cjZYvCCSbS/6soVzUy3zj+5rAHKukf2qUD9plB8UNEjhe/Ede +hjLeXyx4eYhAU6LDiY+ymFnMxdZvBG558KjmO7Uf/S1TugOjBIb6/tTooVyh +79c5+5tAgwDR9hrKYZWDu2SnCfQVnQtNpyyd3xXP4WPgwMY3lpaUh2hs+YML +GWh5PcGHoHwtlSTPLGYgJzKxeJI6b5uYC2/v0xhYt0km7fz/42NW7OBXeQY6 +1/mCx//j41CskCCDgQRkSqlTTvD2X7VOk4Ekv5pRDRVfjgPv7rrqMbBe2TH+ +EGXmdgeXCEMGqjGn53Upt1qYJjQgA7P4TIMvU/E7rbFkQMuBgS2BBgn/z4ep +XLno1TsZeNSsY2Ap5QlxFaaxGwP/FNGim6l8Gv1tvG/DXgZ2xydW8FH+0OI5 +tfMYA7X/bWw4QuXnoFZAtnsMA43V0k+IUH6bf5Tlc5KB4gk1RXlUPr+MTY45 +kEatn+F5f53K9/tWDWIJxQzMuD22u4+qD3dv3CaTrzIwc+vUoBPlDp2HnPRq +Bj68wd/wiqonNyXfX8hrYqBE3UDwA6reXHsjvKLuEQPDhLS2p1P16YKfK3yY +ZOCCTthbTNW7zP49H77MUPvlxZmc9SPhnM2huB/zDNylZTFsQzlldcKDv4uU +USUsQ2Kcqqcxs+R2cUVl5HT5hyz1peItUSCIZa6M8W71e/qoerxnTlxyvZUy +Tt7ZPylI2SdQrn6TrTJeHfaZ0XMjwX2bzj/7ncooaLnoQBRV7znLnRL2Bihj +EzdDc96JBFZ5RUFGhjLaljU1n6D6xRt6ef7Gi8qYXa5qdNGOip+MsryJfGUU +2TaVXE31l4bokhz7MmVUd+Lv7qH60aodBVli15XRpXag6p8lCWoC51Lj3ytj +Wt/jipH1VLy5hUcFazKRZdZ4xESPhLrnoZEqekz80mH7RozqdxzLo8efGzBx +e7Ca4TttEs4aHIlYBUysmBZ9HKFJwmLRwKOjdkw0augqzqX6J3/T7iCfECY+ +VT1UdlyBhJ8Slu6ObUxMzZ/V6BAiodef8WTfXSb+eLOC11iQiq/OGYh8yETV +0VNny/lJSA0rVyp9ycQLROznUwtI0P0gOjg9zETREp9wjVkuBJCPXXIlVfCB +wfxOPmreGLZx2DXkpYLL4yIlxZ5yYSjJ3fGgkCr+/royoiedun9Yk6ErqoqG +iVnJ79O48GfT9I8fS1SR4S34eYyaj4T5zsbtlVNFPdGeQKEkLuiGtte6a6li +vGkfL+MEF455q0rabFPFRXfG+QUPU/Oc6chjjXxVTI9oO5hqz4XNYyGbPxmu +QNlgT40vwtQ85rnwUG3kSvSes6oSa6yi/idovCfb1HBj1tqEu/qVIPFINYU7 +po4d24Jvf6Hmc/mEaltDQ00cSBCu6vpeBlkaxkskfbXwR8Tj0SLjUrgvt87g +d5o22m+77ip5qgTWyrel6rzUwf3dUtLiNUUgxld42CNGF+8l3Tyev+AyKEYr +sZxU9dBw/IsHGF2CRSrO9fZ39VCtk126USQftNmy1SEuq/Cu5R9Oq2AOHByQ +aLfkWY3infu3541mwdjvJIfNWasxqYJGLlqbAZt0Oi9s1tJH/4+SwXG30+Hm +b5PZP936mBveE1VhkQYBmqte93gboL6axdtUpxRgj3o9d1pkiBkFav1C+qdh +I1Nm6+JCQ1Ssspvb0xgPK6NOH20zMsKIncbSg1diQd3b+JbKayMc6RVL/lYT +Bd4395yoPbAG/c04MR8TI+BWwXOvn8uMseA9rXbbeAhMlM7/0WkwRtvXbzez +BA+Dp0r5ogtb1+IGvzrVhv4g+KmebnhtfC1+Cgk/ebTPDxqLZt9PJpiggNiI +zXN1X9i5QRlNFFk49N/XTw/AE+aeLxRrp7MwPWytF1PXEwq8R99YKrPQ+1/4 +l5N0T/gc3xSycyUL6/cZDwUu8ISD92yqQ1exsODQpHB7+244bR2h2GjOwrau +hvogy93QvOPFP/1AFgo3z6+95eYBy/efbNJuZWFkTcOJZjs3SJn3MUhsY6Hc +JQ8pG2M34D1rTn7pYKHXnddmE3Q3GK4XKCu4x8K4TxddgsZdoZnnRJbEMxZ2 +GdRFaKe6ws5zUSFTn1ho1XUluPmpC2S1hBrcFGFj/8D5/U89nWGZsD+5dTsb +b6z8WbSs1gmKzI6FjTuxMWBJU5parhOsOpZilu7Mxmbx96E28U5gPc590evB +Rv3Sz4t7djhB/MvJaU9/NibXTvNc/W8H/C2MXB8Wzca+1IMCZVt3wGuT9Gcl +5WycH+tRTvrrCHuOFOVsrmJjT+9z93sfHWGqqs57hMvGsJQzOrTHjiDB6P2j +V0+tc6wch4odwWqhgvyNVjZaPHuSYcZxhOvPS7yevWBj9KCjl2itA1iKNWoF +97Jx2mmicGuBA/Ruujcl84aNxPSSzrwkB5ho/p7g+o6NEsnqZ4K8HUDrkm7l +t2E2JhhU8fXQHOD663XBST/YaJg7zkrlp54ntQ10xtm4yXRWwO0nB3xOHuk5 +PMnGBWn7FTQecGCiNf4C7S8bF4oNOa5s5EDMTKZn8wwbrXbilH4xB5bol2m6 +zLHx0kHpn7ZnOZC3v3lyfp6Nts7zrIhIDvwPX4yALQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "PlotRange" -> {{0, 30}, {0., 0.06837990093373832}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -11082,6 +11063,7 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -11109,7 +11091,8 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.1760850255633475}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06837990093373832}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -11117,17 +11100,571 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913465524249306`*^9}, + CellChangeTimes->{3.9913465524249306`*^9, 3.994259548270153*^9}, CellLabel-> - "Out[444]=",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] + "Out[119]=",ExpressionUUID->"9ca1ffde-1c1a-4656-a9cd-8989272c899e"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"6883477e-2a54-0a45-979a-\ -ae60c73e9e82"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"6883477e-2a54-0a45-979a-ae60c73e9e82"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c4Vf8fAHCZhSjkIuOe61I2ZST3er9LSZTVpZSZVRFaZJQVKSNSRlkJ +kXVPNg0haSlNKjS0JFQo5Ot3fn+d5/V8znOecz6f9zrE7kB7b14eHp5FC3h4 +/n+dGrjXwUwsMrUu/ZwoVo+mz/NkQtf1xoD8qvrXGaWKgMse75bpPQvvc6w6 +bEu1Idj26iu+3kL4WpTkxig1haWjtLPTr66BmbDP3f4r1jB43Tpw4lUbbKrt +/yJwxRXMmcP9P189BRkJ6XftlwNg+pXR+fFXH4A/fePjRxnHod3sSlFP4W+o +NGxQZRedAfnBps+7NecAfUPbV7IyQcrf7aqQGR8WWsnLEPp5cFbPvMXaYSHG +8PpPfiorhL4s3dafSxZjjXxR2N0bxZBYFPmYV3YpfhV09nDsKAXauY+n0nMl +sSIg1/qhZznIaNSd+Fsiibyl7wI/+ZeDXFt8pAtXEsdtj3pOHykHxXG1Iyva +JVFJXezG0oRyUNkS5N7yVRKz3MXl+CvKYTX/nOHH1VJonJQZM/qrHGwOSw+t +ui+FP7aROU8jKuAkZ7Pp06llqPHiYNelqEqQq+2W410gjWMVf5eJn6qEKknO +Hz0RaYyyshYITquEl09duWlK0jj8sviObmElMO0OM+wspFGbV7fGqb0S2rbm +Cz7JlkbVlKCwo/xVMGc+2f2IRcM0q4Kpj9FVkFoSVj5nTsOT5eEvY09VAVOQ +J0HLjoa12e6mCmlVsOWO8LpkbxpqTxRfZhVUwQUzes2WFBoOPNC/pnWzCtag +VeaDQRqetw/b3vu3Cg4ZX3K7FyODZk5R01Z7q8GyQGzCKkkG/VbILSsNrAaG +UERC93kZHDP/fvy/I9Xw5Lkj+axUBo/f/GtyIaYatINE+Qa6ZZBmcmJb8sVq ++FoSUvJLThb3hAte93hYDc5S1j+W18hiwfyaiXdSXFgd3hKdd10Wo/T0ympo +XBD+sFKa6JTFEM3J6Fg5LjRV84FqnyzKZVflydG5IG3VlKo7L4tx6Y2xqhpc +eBLN1N9oJYfyp/wma5ELG8ZmwgI+yiGvS41/xV4uhFqcU789Iofa+5R0aP5c +qLqk9VpySg5tH7/TiwzgggzH3bhp4XKcys78a36ICyONd/7waS/H/vf7kuoi +uJAek3o4++hytA3oeit2hgsflqkGdCyWx8fG9q3XSC7QAm8p0GjyOBNVWHun +hgtbunY82kuXxzPf7EZe1HGhPixRU3y1PDYmuKuONnHh9OD4sNMOeVQ55nNv +7jYXVpW1+I4VymOVcOtodg8Xoll2HnJrFHCoqWy6c5QLFq55v4zWK+AlHwHz +0nEuiEV9j3XYooDDTzLd439xIac9riTVXQHP/05dYDzFhUbL5u+CpxTwpfqu +2ZA5LozvUA7+3aeArNOVy1xESGgICxJaOqSAiRrSfiKLSTiecyNLe1QBFXw/ +pdeLkSD6bnvLXl5FtBFS8eCTIGGFbxLPO3VFdFi/ayJYhgTXI5OnH4YrYpe/ +lX0nkwSVzPXyw3GKuOfmO+H1qiS1f2cqhVIVUXbsv5zmFSSE/VN7sr5IEUPF +I20K1Uk4H+u6rOmhIv654TFtpUvCw7S7+cUKSqg8u6VtoQkJa6uya4/fUsLK +WMJbw5qEDa+650a7lHDBo9fJujYkWPPwb3J7qoQpsUcFVtuS4Gkf0AeflFD8 +KO2jjj0J5uFEZJQAHael+b0WOZIQpDR1eZ0GHUf92gZNXEiYrEntmtah44PV +oRrSrtT7WWj8IPXpWLLK+NEPynEH3A0ZpnTULq+VOu9OwoX2+128dnT0U3zb +2u5JQodv/o/2YDryJ0rPXNpLwuZ/xhIR4XSUChsZtNtHQnfqc0P9KDp+PXBO +eZ5yX9OiqKJTdLyWt7vTzp+EUZHDEnE5dMwN3ZbwKoCEQwViRuxLdNz9fonf +wUAS/uqX7ZosptZzW6uFg0jgcx0o8q6m3rdfwmP1ARJkuBZG5m3U9wj6HvQ+ +RELuho+7/uuko4BD5qHvlBl9x6LqH9Bx1mrBm4DDJGjx1txTfUHHZBtyYP8R +EtZzFJyFvtIx8tlI15YQEu5+bYi6NUJHm512IjcpbzlmXxzyk46X17g0ah4l +YXvJydEvM9T+iFdyeENJ8P/7M6prMYGLIuVLUsKo8zrgI/1ZgkCVLKc/vygv +HH5dzidDoKDTxAZOOAnFb9pfmjIIfLXWpHdxBAmHOWv8nVcQGJbkreRDef2j +igVhmgTqff7m3UJ54OZ5zTpDAs06BCacj5FQYSTc9tSEwIddBLuMchj3+PZx +JLDueUHCL8rShb4xGlYExub0qUUcJ2FI7i1tsy2BE9KK0dcpX0u3rfRxILBb +6k3/NGWbOOPeS24EVme/veoXSYLif5X7b3kRuE/0mnwB5ZFgBl//XgLf9hKZ +PZSbxzKyZgIILHWdkuOJIiFhj4i2zGECnVtnSjUoO76PbDcIJfDzh5l1HMrM +nRM7th0nUGJ/++dQyr+e7hkNiiVwtJPIyqHcatUfm5JAoJ3skON1yikddrIV +yQSabO1T7qPszO6suneWwB0iPfO/KKvXr93wJZNAr5aL3xdFkzCtXd3Hn0tg +TazwVwXKXVeUAxmFBCZZjE1qU86gZ/HjFQIry+Wl2ZS9skUvuFRQ94v4bLag +vEoiWiecJDA1Nj/VljJP4mRHVj2B899yRxwod/Pt21nfQuDkE0PXHZRzIgbG +nrUSuDAOP2+n7DdpH/fzDoG/RM/GcSivDbgrJ/6AwKmVfGxrygu/mHA1n1Df +Z++/eCPll27cjZYvCCSbS/6soVzUy3zj+5rAHKukf2qUD9plB8UNEjhe/Ede +hjLeXyx4eYhAU6LDiY+ymFnMxdZvBG558KjmO7Uf/S1TugOjBIb6/tTooVyh +79c5+5tAgwDR9hrKYZWDu2SnCfQVnQtNpyyd3xXP4WPgwMY3lpaUh2hs+YML +GWh5PcGHoHwtlSTPLGYgJzKxeJI6b5uYC2/v0xhYt0km7fz/42NW7OBXeQY6 +1/mCx//j41CskCCDgQRkSqlTTvD2X7VOk4Ekv5pRDRVfjgPv7rrqMbBe2TH+ +EGXmdgeXCEMGqjGn53Upt1qYJjQgA7P4TIMvU/E7rbFkQMuBgS2BBgn/z4ep +XLno1TsZeNSsY2Ap5QlxFaaxGwP/FNGim6l8Gv1tvG/DXgZ2xydW8FH+0OI5 +tfMYA7X/bWw4QuXnoFZAtnsMA43V0k+IUH6bf5Tlc5KB4gk1RXlUPr+MTY45 +kEatn+F5f53K9/tWDWIJxQzMuD22u4+qD3dv3CaTrzIwc+vUoBPlDp2HnPRq +Bj68wd/wiqonNyXfX8hrYqBE3UDwA6reXHsjvKLuEQPDhLS2p1P16YKfK3yY +ZOCCTthbTNW7zP49H77MUPvlxZmc9SPhnM2huB/zDNylZTFsQzlldcKDv4uU +USUsQ2Kcqqcxs+R2cUVl5HT5hyz1peItUSCIZa6M8W71e/qoerxnTlxyvZUy +Tt7ZPylI2SdQrn6TrTJeHfaZ0XMjwX2bzj/7ncooaLnoQBRV7znLnRL2Bihj +EzdDc96JBFZ5RUFGhjLaljU1n6D6xRt6ef7Gi8qYXa5qdNGOip+MsryJfGUU +2TaVXE31l4bokhz7MmVUd+Lv7qH60aodBVli15XRpXag6p8lCWoC51Lj3ytj +Wt/jipH1VLy5hUcFazKRZdZ4xESPhLrnoZEqekz80mH7RozqdxzLo8efGzBx +e7Ca4TttEs4aHIlYBUysmBZ9HKFJwmLRwKOjdkw0augqzqX6J3/T7iCfECY+ +VT1UdlyBhJ8Slu6ObUxMzZ/V6BAiodef8WTfXSb+eLOC11iQiq/OGYh8yETV +0VNny/lJSA0rVyp9ycQLROznUwtI0P0gOjg9zETREp9wjVkuBJCPXXIlVfCB +wfxOPmreGLZx2DXkpYLL4yIlxZ5yYSjJ3fGgkCr+/royoiedun9Yk6ErqoqG +iVnJ79O48GfT9I8fS1SR4S34eYyaj4T5zsbtlVNFPdGeQKEkLuiGtte6a6li +vGkfL+MEF455q0rabFPFRXfG+QUPU/Oc6chjjXxVTI9oO5hqz4XNYyGbPxmu +QNlgT40vwtQ85rnwUG3kSvSes6oSa6yi/idovCfb1HBj1tqEu/qVIPFINYU7 +po4d24Jvf6Hmc/mEaltDQ00cSBCu6vpeBlkaxkskfbXwR8Tj0SLjUrgvt87g +d5o22m+77ip5qgTWyrel6rzUwf3dUtLiNUUgxld42CNGF+8l3Tyev+AyKEYr +sZxU9dBw/IsHGF2CRSrO9fZ39VCtk126USQftNmy1SEuq/Cu5R9Oq2AOHByQ +aLfkWY3infu3541mwdjvJIfNWasxqYJGLlqbAZt0Oi9s1tJH/4+SwXG30+Hm +b5PZP936mBveE1VhkQYBmqte93gboL6axdtUpxRgj3o9d1pkiBkFav1C+qdh +I1Nm6+JCQ1Ssspvb0xgPK6NOH20zMsKIncbSg1diQd3b+JbKayMc6RVL/lYT +Bd4395yoPbAG/c04MR8TI+BWwXOvn8uMseA9rXbbeAhMlM7/0WkwRtvXbzez +BA+Dp0r5ogtb1+IGvzrVhv4g+KmebnhtfC1+Cgk/ebTPDxqLZt9PJpiggNiI +zXN1X9i5QRlNFFk49N/XTw/AE+aeLxRrp7MwPWytF1PXEwq8R99YKrPQ+1/4 +l5N0T/gc3xSycyUL6/cZDwUu8ISD92yqQ1exsODQpHB7+244bR2h2GjOwrau +hvogy93QvOPFP/1AFgo3z6+95eYBy/efbNJuZWFkTcOJZjs3SJn3MUhsY6Hc +JQ8pG2M34D1rTn7pYKHXnddmE3Q3GK4XKCu4x8K4TxddgsZdoZnnRJbEMxZ2 +GdRFaKe6ws5zUSFTn1ho1XUluPmpC2S1hBrcFGFj/8D5/U89nWGZsD+5dTsb +b6z8WbSs1gmKzI6FjTuxMWBJU5parhOsOpZilu7Mxmbx96E28U5gPc590evB +Rv3Sz4t7djhB/MvJaU9/NibXTvNc/W8H/C2MXB8Wzca+1IMCZVt3wGuT9Gcl +5WycH+tRTvrrCHuOFOVsrmJjT+9z93sfHWGqqs57hMvGsJQzOrTHjiDB6P2j +V0+tc6wch4odwWqhgvyNVjZaPHuSYcZxhOvPS7yevWBj9KCjl2itA1iKNWoF +97Jx2mmicGuBA/Ruujcl84aNxPSSzrwkB5ho/p7g+o6NEsnqZ4K8HUDrkm7l +t2E2JhhU8fXQHOD663XBST/YaJg7zkrlp54ntQ10xtm4yXRWwO0nB3xOHuk5 +PMnGBWn7FTQecGCiNf4C7S8bF4oNOa5s5EDMTKZn8wwbrXbilH4xB5bol2m6 +zLHx0kHpn7ZnOZC3v3lyfp6Nts7zrIhIDvwPX4yALQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c4Vf8fAHCZhSjkIuOe61I2ZST3er9LSZTVpZSZVRFaZJQVKSNSRlkJ +kXVPNg0haSlNKjS0JFQo5Ot3fn+d5/V8znOecz6f9zrE7kB7b14eHp5FC3h4 +/n+dGrjXwUwsMrUu/ZwoVo+mz/NkQtf1xoD8qvrXGaWKgMse75bpPQvvc6w6 +bEu1Idj26iu+3kL4WpTkxig1haWjtLPTr66BmbDP3f4r1jB43Tpw4lUbbKrt +/yJwxRXMmcP9P189BRkJ6XftlwNg+pXR+fFXH4A/fePjRxnHod3sSlFP4W+o +NGxQZRedAfnBps+7NecAfUPbV7IyQcrf7aqQGR8WWsnLEPp5cFbPvMXaYSHG +8PpPfiorhL4s3dafSxZjjXxR2N0bxZBYFPmYV3YpfhV09nDsKAXauY+n0nMl +sSIg1/qhZznIaNSd+Fsiibyl7wI/+ZeDXFt8pAtXEsdtj3pOHykHxXG1Iyva +JVFJXezG0oRyUNkS5N7yVRKz3MXl+CvKYTX/nOHH1VJonJQZM/qrHGwOSw+t +ui+FP7aROU8jKuAkZ7Pp06llqPHiYNelqEqQq+2W410gjWMVf5eJn6qEKknO +Hz0RaYyyshYITquEl09duWlK0jj8sviObmElMO0OM+wspFGbV7fGqb0S2rbm +Cz7JlkbVlKCwo/xVMGc+2f2IRcM0q4Kpj9FVkFoSVj5nTsOT5eEvY09VAVOQ +J0HLjoa12e6mCmlVsOWO8LpkbxpqTxRfZhVUwQUzes2WFBoOPNC/pnWzCtag +VeaDQRqetw/b3vu3Cg4ZX3K7FyODZk5R01Z7q8GyQGzCKkkG/VbILSsNrAaG +UERC93kZHDP/fvy/I9Xw5Lkj+axUBo/f/GtyIaYatINE+Qa6ZZBmcmJb8sVq ++FoSUvJLThb3hAte93hYDc5S1j+W18hiwfyaiXdSXFgd3hKdd10Wo/T0ympo +XBD+sFKa6JTFEM3J6Fg5LjRV84FqnyzKZVflydG5IG3VlKo7L4tx6Y2xqhpc +eBLN1N9oJYfyp/wma5ELG8ZmwgI+yiGvS41/xV4uhFqcU789Iofa+5R0aP5c +qLqk9VpySg5tH7/TiwzgggzH3bhp4XKcys78a36ICyONd/7waS/H/vf7kuoi +uJAek3o4++hytA3oeit2hgsflqkGdCyWx8fG9q3XSC7QAm8p0GjyOBNVWHun +hgtbunY82kuXxzPf7EZe1HGhPixRU3y1PDYmuKuONnHh9OD4sNMOeVQ55nNv +7jYXVpW1+I4VymOVcOtodg8Xoll2HnJrFHCoqWy6c5QLFq55v4zWK+AlHwHz +0nEuiEV9j3XYooDDTzLd439xIac9riTVXQHP/05dYDzFhUbL5u+CpxTwpfqu +2ZA5LozvUA7+3aeArNOVy1xESGgICxJaOqSAiRrSfiKLSTiecyNLe1QBFXw/ +pdeLkSD6bnvLXl5FtBFS8eCTIGGFbxLPO3VFdFi/ayJYhgTXI5OnH4YrYpe/ +lX0nkwSVzPXyw3GKuOfmO+H1qiS1f2cqhVIVUXbsv5zmFSSE/VN7sr5IEUPF +I20K1Uk4H+u6rOmhIv654TFtpUvCw7S7+cUKSqg8u6VtoQkJa6uya4/fUsLK +WMJbw5qEDa+650a7lHDBo9fJujYkWPPwb3J7qoQpsUcFVtuS4Gkf0AeflFD8 +KO2jjj0J5uFEZJQAHael+b0WOZIQpDR1eZ0GHUf92gZNXEiYrEntmtah44PV +oRrSrtT7WWj8IPXpWLLK+NEPynEH3A0ZpnTULq+VOu9OwoX2+128dnT0U3zb +2u5JQodv/o/2YDryJ0rPXNpLwuZ/xhIR4XSUChsZtNtHQnfqc0P9KDp+PXBO +eZ5yX9OiqKJTdLyWt7vTzp+EUZHDEnE5dMwN3ZbwKoCEQwViRuxLdNz9fonf +wUAS/uqX7ZosptZzW6uFg0jgcx0o8q6m3rdfwmP1ARJkuBZG5m3U9wj6HvQ+ +RELuho+7/uuko4BD5qHvlBl9x6LqH9Bx1mrBm4DDJGjx1txTfUHHZBtyYP8R +EtZzFJyFvtIx8tlI15YQEu5+bYi6NUJHm512IjcpbzlmXxzyk46X17g0ah4l +YXvJydEvM9T+iFdyeENJ8P/7M6prMYGLIuVLUsKo8zrgI/1ZgkCVLKc/vygv +HH5dzidDoKDTxAZOOAnFb9pfmjIIfLXWpHdxBAmHOWv8nVcQGJbkreRDef2j +igVhmgTqff7m3UJ54OZ5zTpDAs06BCacj5FQYSTc9tSEwIddBLuMchj3+PZx +JLDueUHCL8rShb4xGlYExub0qUUcJ2FI7i1tsy2BE9KK0dcpX0u3rfRxILBb +6k3/NGWbOOPeS24EVme/veoXSYLif5X7b3kRuE/0mnwB5ZFgBl//XgLf9hKZ +PZSbxzKyZgIILHWdkuOJIiFhj4i2zGECnVtnSjUoO76PbDcIJfDzh5l1HMrM +nRM7th0nUGJ/++dQyr+e7hkNiiVwtJPIyqHcatUfm5JAoJ3skON1yikddrIV +yQSabO1T7qPszO6suneWwB0iPfO/KKvXr93wJZNAr5aL3xdFkzCtXd3Hn0tg +TazwVwXKXVeUAxmFBCZZjE1qU86gZ/HjFQIry+Wl2ZS9skUvuFRQ94v4bLag +vEoiWiecJDA1Nj/VljJP4mRHVj2B899yRxwod/Pt21nfQuDkE0PXHZRzIgbG +nrUSuDAOP2+n7DdpH/fzDoG/RM/GcSivDbgrJ/6AwKmVfGxrygu/mHA1n1Df +Z++/eCPll27cjZYvCCSbS/6soVzUy3zj+5rAHKukf2qUD9plB8UNEjhe/Ede +hjLeXyx4eYhAU6LDiY+ymFnMxdZvBG558KjmO7Uf/S1TugOjBIb6/tTooVyh +79c5+5tAgwDR9hrKYZWDu2SnCfQVnQtNpyyd3xXP4WPgwMY3lpaUh2hs+YML +GWh5PcGHoHwtlSTPLGYgJzKxeJI6b5uYC2/v0xhYt0km7fz/42NW7OBXeQY6 +1/mCx//j41CskCCDgQRkSqlTTvD2X7VOk4Ekv5pRDRVfjgPv7rrqMbBe2TH+ +EGXmdgeXCEMGqjGn53Upt1qYJjQgA7P4TIMvU/E7rbFkQMuBgS2BBgn/z4ep +XLno1TsZeNSsY2Ap5QlxFaaxGwP/FNGim6l8Gv1tvG/DXgZ2xydW8FH+0OI5 +tfMYA7X/bWw4QuXnoFZAtnsMA43V0k+IUH6bf5Tlc5KB4gk1RXlUPr+MTY45 +kEatn+F5f53K9/tWDWIJxQzMuD22u4+qD3dv3CaTrzIwc+vUoBPlDp2HnPRq +Bj68wd/wiqonNyXfX8hrYqBE3UDwA6reXHsjvKLuEQPDhLS2p1P16YKfK3yY +ZOCCTthbTNW7zP49H77MUPvlxZmc9SPhnM2huB/zDNylZTFsQzlldcKDv4uU +USUsQ2Kcqqcxs+R2cUVl5HT5hyz1peItUSCIZa6M8W71e/qoerxnTlxyvZUy +Tt7ZPylI2SdQrn6TrTJeHfaZ0XMjwX2bzj/7ncooaLnoQBRV7znLnRL2Bihj +EzdDc96JBFZ5RUFGhjLaljU1n6D6xRt6ef7Gi8qYXa5qdNGOip+MsryJfGUU +2TaVXE31l4bokhz7MmVUd+Lv7qH60aodBVli15XRpXag6p8lCWoC51Lj3ytj +Wt/jipH1VLy5hUcFazKRZdZ4xESPhLrnoZEqekz80mH7RozqdxzLo8efGzBx +e7Ca4TttEs4aHIlYBUysmBZ9HKFJwmLRwKOjdkw0augqzqX6J3/T7iCfECY+ +VT1UdlyBhJ8Slu6ObUxMzZ/V6BAiodef8WTfXSb+eLOC11iQiq/OGYh8yETV +0VNny/lJSA0rVyp9ycQLROznUwtI0P0gOjg9zETREp9wjVkuBJCPXXIlVfCB +wfxOPmreGLZx2DXkpYLL4yIlxZ5yYSjJ3fGgkCr+/royoiedun9Yk6ErqoqG +iVnJ79O48GfT9I8fS1SR4S34eYyaj4T5zsbtlVNFPdGeQKEkLuiGtte6a6li +vGkfL+MEF455q0rabFPFRXfG+QUPU/Oc6chjjXxVTI9oO5hqz4XNYyGbPxmu +QNlgT40vwtQ85rnwUG3kSvSes6oSa6yi/idovCfb1HBj1tqEu/qVIPFINYU7 +po4d24Jvf6Hmc/mEaltDQ00cSBCu6vpeBlkaxkskfbXwR8Tj0SLjUrgvt87g +d5o22m+77ip5qgTWyrel6rzUwf3dUtLiNUUgxld42CNGF+8l3Tyev+AyKEYr +sZxU9dBw/IsHGF2CRSrO9fZ39VCtk126USQftNmy1SEuq/Cu5R9Oq2AOHByQ +aLfkWY3infu3541mwdjvJIfNWasxqYJGLlqbAZt0Oi9s1tJH/4+SwXG30+Hm +b5PZP936mBveE1VhkQYBmqte93gboL6axdtUpxRgj3o9d1pkiBkFav1C+qdh +I1Nm6+JCQ1Ssspvb0xgPK6NOH20zMsKIncbSg1diQd3b+JbKayMc6RVL/lYT +Bd4395yoPbAG/c04MR8TI+BWwXOvn8uMseA9rXbbeAhMlM7/0WkwRtvXbzez +BA+Dp0r5ogtb1+IGvzrVhv4g+KmebnhtfC1+Cgk/ebTPDxqLZt9PJpiggNiI +zXN1X9i5QRlNFFk49N/XTw/AE+aeLxRrp7MwPWytF1PXEwq8R99YKrPQ+1/4 +l5N0T/gc3xSycyUL6/cZDwUu8ISD92yqQ1exsODQpHB7+244bR2h2GjOwrau +hvogy93QvOPFP/1AFgo3z6+95eYBy/efbNJuZWFkTcOJZjs3SJn3MUhsY6Hc +JQ8pG2M34D1rTn7pYKHXnddmE3Q3GK4XKCu4x8K4TxddgsZdoZnnRJbEMxZ2 +GdRFaKe6ws5zUSFTn1ho1XUluPmpC2S1hBrcFGFj/8D5/U89nWGZsD+5dTsb +b6z8WbSs1gmKzI6FjTuxMWBJU5parhOsOpZilu7Mxmbx96E28U5gPc590evB +Rv3Sz4t7djhB/MvJaU9/NibXTvNc/W8H/C2MXB8Wzca+1IMCZVt3wGuT9Gcl +5WycH+tRTvrrCHuOFOVsrmJjT+9z93sfHWGqqs57hMvGsJQzOrTHjiDB6P2j +V0+tc6wch4odwWqhgvyNVjZaPHuSYcZxhOvPS7yevWBj9KCjl2itA1iKNWoF +97Jx2mmicGuBA/Ruujcl84aNxPSSzrwkB5ho/p7g+o6NEsnqZ4K8HUDrkm7l +t2E2JhhU8fXQHOD663XBST/YaJg7zkrlp54ntQ10xtm4yXRWwO0nB3xOHuk5 +PMnGBWn7FTQecGCiNf4C7S8bF4oNOa5s5EDMTKZn8wwbrXbilH4xB5bol2m6 +zLHx0kHpn7ZnOZC3v3lyfp6Nts7zrIhIDvwPX4yALQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06837990093373832}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06837990093373832}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c4Vf8fAHCZhSjkIuOe61I2ZST3er9LSZTVpZSZVRFaZJQVKSNSRlkJ +kXVPNg0haSlNKjS0JFQo5Ot3fn+d5/V8znOecz6f9zrE7kB7b14eHp5FC3h4 +/n+dGrjXwUwsMrUu/ZwoVo+mz/NkQtf1xoD8qvrXGaWKgMse75bpPQvvc6w6 +bEu1Idj26iu+3kL4WpTkxig1haWjtLPTr66BmbDP3f4r1jB43Tpw4lUbbKrt +/yJwxRXMmcP9P189BRkJ6XftlwNg+pXR+fFXH4A/fePjRxnHod3sSlFP4W+o +NGxQZRedAfnBps+7NecAfUPbV7IyQcrf7aqQGR8WWsnLEPp5cFbPvMXaYSHG +8PpPfiorhL4s3dafSxZjjXxR2N0bxZBYFPmYV3YpfhV09nDsKAXauY+n0nMl +sSIg1/qhZznIaNSd+Fsiibyl7wI/+ZeDXFt8pAtXEsdtj3pOHykHxXG1Iyva +JVFJXezG0oRyUNkS5N7yVRKz3MXl+CvKYTX/nOHH1VJonJQZM/qrHGwOSw+t +ui+FP7aROU8jKuAkZ7Pp06llqPHiYNelqEqQq+2W410gjWMVf5eJn6qEKknO +Hz0RaYyyshYITquEl09duWlK0jj8sviObmElMO0OM+wspFGbV7fGqb0S2rbm +Cz7JlkbVlKCwo/xVMGc+2f2IRcM0q4Kpj9FVkFoSVj5nTsOT5eEvY09VAVOQ +J0HLjoa12e6mCmlVsOWO8LpkbxpqTxRfZhVUwQUzes2WFBoOPNC/pnWzCtag +VeaDQRqetw/b3vu3Cg4ZX3K7FyODZk5R01Z7q8GyQGzCKkkG/VbILSsNrAaG +UERC93kZHDP/fvy/I9Xw5Lkj+axUBo/f/GtyIaYatINE+Qa6ZZBmcmJb8sVq ++FoSUvJLThb3hAte93hYDc5S1j+W18hiwfyaiXdSXFgd3hKdd10Wo/T0ympo +XBD+sFKa6JTFEM3J6Fg5LjRV84FqnyzKZVflydG5IG3VlKo7L4tx6Y2xqhpc +eBLN1N9oJYfyp/wma5ELG8ZmwgI+yiGvS41/xV4uhFqcU789Iofa+5R0aP5c +qLqk9VpySg5tH7/TiwzgggzH3bhp4XKcys78a36ICyONd/7waS/H/vf7kuoi +uJAek3o4++hytA3oeit2hgsflqkGdCyWx8fG9q3XSC7QAm8p0GjyOBNVWHun +hgtbunY82kuXxzPf7EZe1HGhPixRU3y1PDYmuKuONnHh9OD4sNMOeVQ55nNv +7jYXVpW1+I4VymOVcOtodg8Xoll2HnJrFHCoqWy6c5QLFq55v4zWK+AlHwHz +0nEuiEV9j3XYooDDTzLd439xIac9riTVXQHP/05dYDzFhUbL5u+CpxTwpfqu +2ZA5LozvUA7+3aeArNOVy1xESGgICxJaOqSAiRrSfiKLSTiecyNLe1QBFXw/ +pdeLkSD6bnvLXl5FtBFS8eCTIGGFbxLPO3VFdFi/ayJYhgTXI5OnH4YrYpe/ +lX0nkwSVzPXyw3GKuOfmO+H1qiS1f2cqhVIVUXbsv5zmFSSE/VN7sr5IEUPF +I20K1Uk4H+u6rOmhIv654TFtpUvCw7S7+cUKSqg8u6VtoQkJa6uya4/fUsLK +WMJbw5qEDa+650a7lHDBo9fJujYkWPPwb3J7qoQpsUcFVtuS4Gkf0AeflFD8 +KO2jjj0J5uFEZJQAHael+b0WOZIQpDR1eZ0GHUf92gZNXEiYrEntmtah44PV +oRrSrtT7WWj8IPXpWLLK+NEPynEH3A0ZpnTULq+VOu9OwoX2+128dnT0U3zb +2u5JQodv/o/2YDryJ0rPXNpLwuZ/xhIR4XSUChsZtNtHQnfqc0P9KDp+PXBO +eZ5yX9OiqKJTdLyWt7vTzp+EUZHDEnE5dMwN3ZbwKoCEQwViRuxLdNz9fonf +wUAS/uqX7ZosptZzW6uFg0jgcx0o8q6m3rdfwmP1ARJkuBZG5m3U9wj6HvQ+ +RELuho+7/uuko4BD5qHvlBl9x6LqH9Bx1mrBm4DDJGjx1txTfUHHZBtyYP8R +EtZzFJyFvtIx8tlI15YQEu5+bYi6NUJHm512IjcpbzlmXxzyk46X17g0ah4l +YXvJydEvM9T+iFdyeENJ8P/7M6prMYGLIuVLUsKo8zrgI/1ZgkCVLKc/vygv +HH5dzidDoKDTxAZOOAnFb9pfmjIIfLXWpHdxBAmHOWv8nVcQGJbkreRDef2j +igVhmgTqff7m3UJ54OZ5zTpDAs06BCacj5FQYSTc9tSEwIddBLuMchj3+PZx +JLDueUHCL8rShb4xGlYExub0qUUcJ2FI7i1tsy2BE9KK0dcpX0u3rfRxILBb +6k3/NGWbOOPeS24EVme/veoXSYLif5X7b3kRuE/0mnwB5ZFgBl//XgLf9hKZ +PZSbxzKyZgIILHWdkuOJIiFhj4i2zGECnVtnSjUoO76PbDcIJfDzh5l1HMrM +nRM7th0nUGJ/++dQyr+e7hkNiiVwtJPIyqHcatUfm5JAoJ3skON1yikddrIV +yQSabO1T7qPszO6suneWwB0iPfO/KKvXr93wJZNAr5aL3xdFkzCtXd3Hn0tg +TazwVwXKXVeUAxmFBCZZjE1qU86gZ/HjFQIry+Wl2ZS9skUvuFRQ94v4bLag +vEoiWiecJDA1Nj/VljJP4mRHVj2B899yRxwod/Pt21nfQuDkE0PXHZRzIgbG +nrUSuDAOP2+n7DdpH/fzDoG/RM/GcSivDbgrJ/6AwKmVfGxrygu/mHA1n1Df +Z++/eCPll27cjZYvCCSbS/6soVzUy3zj+5rAHKukf2qUD9plB8UNEjhe/Ede +hjLeXyx4eYhAU6LDiY+ymFnMxdZvBG558KjmO7Uf/S1TugOjBIb6/tTooVyh +79c5+5tAgwDR9hrKYZWDu2SnCfQVnQtNpyyd3xXP4WPgwMY3lpaUh2hs+YML +GWh5PcGHoHwtlSTPLGYgJzKxeJI6b5uYC2/v0xhYt0km7fz/42NW7OBXeQY6 +1/mCx//j41CskCCDgQRkSqlTTvD2X7VOk4Ekv5pRDRVfjgPv7rrqMbBe2TH+ +EGXmdgeXCEMGqjGn53Upt1qYJjQgA7P4TIMvU/E7rbFkQMuBgS2BBgn/z4ep +XLno1TsZeNSsY2Ap5QlxFaaxGwP/FNGim6l8Gv1tvG/DXgZ2xydW8FH+0OI5 +tfMYA7X/bWw4QuXnoFZAtnsMA43V0k+IUH6bf5Tlc5KB4gk1RXlUPr+MTY45 +kEatn+F5f53K9/tWDWIJxQzMuD22u4+qD3dv3CaTrzIwc+vUoBPlDp2HnPRq +Bj68wd/wiqonNyXfX8hrYqBE3UDwA6reXHsjvKLuEQPDhLS2p1P16YKfK3yY +ZOCCTthbTNW7zP49H77MUPvlxZmc9SPhnM2huB/zDNylZTFsQzlldcKDv4uU +USUsQ2Kcqqcxs+R2cUVl5HT5hyz1peItUSCIZa6M8W71e/qoerxnTlxyvZUy +Tt7ZPylI2SdQrn6TrTJeHfaZ0XMjwX2bzj/7ncooaLnoQBRV7znLnRL2Bihj +EzdDc96JBFZ5RUFGhjLaljU1n6D6xRt6ef7Gi8qYXa5qdNGOip+MsryJfGUU +2TaVXE31l4bokhz7MmVUd+Lv7qH60aodBVli15XRpXag6p8lCWoC51Lj3ytj +Wt/jipH1VLy5hUcFazKRZdZ4xESPhLrnoZEqekz80mH7RozqdxzLo8efGzBx +e7Ca4TttEs4aHIlYBUysmBZ9HKFJwmLRwKOjdkw0augqzqX6J3/T7iCfECY+ +VT1UdlyBhJ8Slu6ObUxMzZ/V6BAiodef8WTfXSb+eLOC11iQiq/OGYh8yETV +0VNny/lJSA0rVyp9ycQLROznUwtI0P0gOjg9zETREp9wjVkuBJCPXXIlVfCB +wfxOPmreGLZx2DXkpYLL4yIlxZ5yYSjJ3fGgkCr+/royoiedun9Yk6ErqoqG +iVnJ79O48GfT9I8fS1SR4S34eYyaj4T5zsbtlVNFPdGeQKEkLuiGtte6a6li +vGkfL+MEF455q0rabFPFRXfG+QUPU/Oc6chjjXxVTI9oO5hqz4XNYyGbPxmu +QNlgT40vwtQ85rnwUG3kSvSes6oSa6yi/idovCfb1HBj1tqEu/qVIPFINYU7 +po4d24Jvf6Hmc/mEaltDQ00cSBCu6vpeBlkaxkskfbXwR8Tj0SLjUrgvt87g +d5o22m+77ip5qgTWyrel6rzUwf3dUtLiNUUgxld42CNGF+8l3Tyev+AyKEYr +sZxU9dBw/IsHGF2CRSrO9fZ39VCtk126USQftNmy1SEuq/Cu5R9Oq2AOHByQ +aLfkWY3infu3541mwdjvJIfNWasxqYJGLlqbAZt0Oi9s1tJH/4+SwXG30+Hm +b5PZP936mBveE1VhkQYBmqte93gboL6axdtUpxRgj3o9d1pkiBkFav1C+qdh +I1Nm6+JCQ1Ssspvb0xgPK6NOH20zMsKIncbSg1diQd3b+JbKayMc6RVL/lYT +Bd4395yoPbAG/c04MR8TI+BWwXOvn8uMseA9rXbbeAhMlM7/0WkwRtvXbzez +BA+Dp0r5ogtb1+IGvzrVhv4g+KmebnhtfC1+Cgk/ebTPDxqLZt9PJpiggNiI +zXN1X9i5QRlNFFk49N/XTw/AE+aeLxRrp7MwPWytF1PXEwq8R99YKrPQ+1/4 +l5N0T/gc3xSycyUL6/cZDwUu8ISD92yqQ1exsODQpHB7+244bR2h2GjOwrau +hvogy93QvOPFP/1AFgo3z6+95eYBy/efbNJuZWFkTcOJZjs3SJn3MUhsY6Hc +JQ8pG2M34D1rTn7pYKHXnddmE3Q3GK4XKCu4x8K4TxddgsZdoZnnRJbEMxZ2 +GdRFaKe6ws5zUSFTn1ho1XUluPmpC2S1hBrcFGFj/8D5/U89nWGZsD+5dTsb +b6z8WbSs1gmKzI6FjTuxMWBJU5parhOsOpZilu7Mxmbx96E28U5gPc590evB +Rv3Sz4t7djhB/MvJaU9/NibXTvNc/W8H/C2MXB8Wzca+1IMCZVt3wGuT9Gcl +5WycH+tRTvrrCHuOFOVsrmJjT+9z93sfHWGqqs57hMvGsJQzOrTHjiDB6P2j +V0+tc6wch4odwWqhgvyNVjZaPHuSYcZxhOvPS7yevWBj9KCjl2itA1iKNWoF +97Jx2mmicGuBA/Ruujcl84aNxPSSzrwkB5ho/p7g+o6NEsnqZ4K8HUDrkm7l +t2E2JhhU8fXQHOD663XBST/YaJg7zkrlp54ntQ10xtm4yXRWwO0nB3xOHuk5 +PMnGBWn7FTQecGCiNf4C7S8bF4oNOa5s5EDMTKZn8wwbrXbilH4xB5bol2m6 +zLHx0kHpn7ZnOZC3v3lyfp6Nts7zrIhIDvwPX4yALQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06837990093373832}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06837990093373832}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994259548349662*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"975c58d3-b53c-460f-a7d0-1f7e617942b7"] +}, Open ]], Cell[CellGroupData[{ @@ -11179,66 +11716,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[448]:=",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], + "In[121]:=",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 448, 489, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347571140808*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.3698882181485628`*^-149\\\", \ +RowBox[{\\\"192330073695578600598678251250730514595\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"82\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1532417980825600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 53, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347571140808*^9, 3.9942595484066563`*^9}, CellLabel-> "During evaluation of \ -In[448]:=",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], +In[121]:=",ExpressionUUID->"9d4f60b3-c003-453b-b807-e71c5840be65"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 448, 490, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475711508217`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.107504981505128`*^-152\\\", \ +RowBox[{\\\"692388265304082962155241704502629852543\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"85\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6704730972160000000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 54, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347571140808*^9, 3.9942595484157963`*^9}, CellLabel-> "During evaluation of \ -In[448]:=",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], +In[121]:=",ExpressionUUID->"cf82c9ff-e98f-4677-b7b8-5058591e3e08"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ -\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ -2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 448, 491, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475711592274`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2316039330487724`*^-154\\\", \ +RowBox[{\\\"257637673519649270217965438245428568131\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"89\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8303947407360000000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 55, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347571140808*^9, 3.994259548424913*^9}, CellLabel-> "During evaluation of \ -In[448]:=",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], +In[121]:=",ExpressionUUID->"c756c627-5d77-4e78-b586-5b0513ca8244"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 448, 492, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475711683846`*^9}, +during this calculation.\"", 2, 121, 56, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347571140808*^9, 3.994259548432828*^9}, CellLabel-> "During evaluation of \ -In[448]:=",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], +In[121]:=",ExpressionUUID->"6d970e56-de74-4abb-9d63-a358aca4c861"], -Cell[BoxData["10.362747935330763`"], "Output", - CellChangeTimes->{3.991347578228073*^9}, +Cell[BoxData["11.499495196628448`"], "Output", + CellChangeTimes->{3.991347578228073*^9, 3.994259640783875*^9}, CellLabel-> - "Out[448]=",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] + "Out[121]=",ExpressionUUID->"bc5ae4be-c131-4043-a585-866cd5442f01"] }, Open ]], Cell[CellGroupData[{ @@ -11305,68 +11849,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918503106317043`*^9, - 3.9918503148567924`*^9}},ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-\ -2a98ba29b602"], + CellChangeTimes->{{3.9918503106317043`*^9, 3.9918503148567924`*^9}}, + CellLabel-> + "In[122]:=",ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-2a98ba29b602"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 449, - 493, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347578265545*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1398059411356412`*^-227\\\", \ +RowBox[{\\\"2735526583816145583533735060711274031995\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"10\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5590907374121359182397440000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 57, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347578265545*^9, 3.994259640841354*^9}, CellLabel-> "During evaluation of \ -In[449]:=",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], +In[122]:=",ExpressionUUID->"e65b9734-8bf7-4f3e-ac99-994b116f417c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 449, - 494, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347578275551*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.215184597708121`*^-233\\\", \ +RowBox[{\\\"4160735933984357432554811027341847802665\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"13\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3770116038587316426506240000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 58, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347578265545*^9, 3.994259640851424*^9}, CellLabel-> "During evaluation of \ -In[449]:=",ExpressionUUID->"bbc1c804-e094-2b49-bceb-c837038552fa"], +In[122]:=",ExpressionUUID->"9251f21e-dfda-4db5-bd9a-7b050ca04efa"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 449, 495, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475782835484`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.295548262396116`*^-239\\\", \ +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 59, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347578265545*^9, 3.994259640860001*^9}, CellLabel-> "During evaluation of \ -In[449]:=",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], +In[122]:=",ExpressionUUID->"c00ec865-9a18-47eb-a693-f2abd138ec2d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 449, 496, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475782930756`*^9}, +during this calculation.\"", 2, 122, 60, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347578265545*^9, 3.9942596408677607`*^9}, CellLabel-> "During evaluation of \ -In[449]:=",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], +In[122]:=",ExpressionUUID->"5718271f-4f63-4cdb-863f-bd4dd1d3ff56"], -Cell[BoxData["1.4359199941844076`"], "Output", - CellChangeTimes->{3.9913475858902473`*^9}, +Cell[BoxData["0.03131476490788384`"], "Output", + CellChangeTimes->{3.9913475858902473`*^9, 3.994259651647146*^9}, CellLabel-> - "Out[449]=",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] + "Out[122]=",ExpressionUUID->"ee9e9da9-e5e1-49f6-ba55-f6de205f477b"] }, Open ]], Cell[CellGroupData[{ @@ -11387,8 +11938,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -11433,68 +11983,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850318596199*^9, - 3.991850321359722*^9}},ExpressionUUID->"edfdd675-c60b-304e-9e16-\ -68452b971319"], + CellChangeTimes->{{3.991850318596199*^9, 3.991850321359722*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"edfdd675-c60b-304e-9e16-68452b971319"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 450, - 497, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475859272156`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1398059411356412`*^-227\\\", \ +RowBox[{\\\"2735526583816145583533735060711274031995\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"10\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5590907374121359182397440000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 123, + 61, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913475859272156`*^9, 3.99425965169628*^9}, CellLabel-> "During evaluation of \ -In[450]:=",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], +In[123]:=",ExpressionUUID->"51370f10-81ae-4056-a733-35b94d89a13d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 450, - 498, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347585937319*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.215184597708121`*^-233\\\", \ +RowBox[{\\\"4160735933984357432554811027341847802665\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"13\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3770116038587316426506240000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 123, + 62, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913475859272156`*^9, 3.994259651705954*^9}, CellLabel-> "During evaluation of \ -In[450]:=",ExpressionUUID->"7911ebc5-127d-5841-a246-fcff3e2e3d7f"], +In[123]:=",ExpressionUUID->"95da955b-cab7-4be4-ac61-bb351c5387bc"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 450, 499, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475859463177`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.295548262396116`*^-239\\\", \ +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 123, + 63, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913475859272156`*^9, 3.994259651714712*^9}, CellLabel-> "During evaluation of \ -In[450]:=",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], +In[123]:=",ExpressionUUID->"76961e35-9962-4e98-949e-7f76f6d84ebd"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 450, 500, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475859543304`*^9}, +during this calculation.\"", 2, 123, 64, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913475859272156`*^9, 3.994259651724218*^9}, CellLabel-> "During evaluation of \ -In[450]:=",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], +In[123]:=",ExpressionUUID->"d0249448-a5a5-4006-bb42-b90d81b809ce"], -Cell[BoxData["5.09241659576143`"], "Output", - CellChangeTimes->{3.9913475931276417`*^9}, +Cell[BoxData["33.76850912269097`"], "Output", + CellChangeTimes->{3.9913475931276417`*^9, 3.9942596618031282`*^9}, CellLabel-> - "Out[450]=",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] + "Out[123]=",ExpressionUUID->"1f241ef1-ea74-4c0d-bec3-986a9372050f"] }, Open ]], Cell[CellGroupData[{ @@ -11515,8 +12072,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -11561,68 +12117,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850325611994*^9, - 3.991850328926569*^9}},ExpressionUUID->"d0469d46-2e74-494a-be85-\ -b41cb2f3fa92"], + CellChangeTimes->{{3.991850325611994*^9, 3.991850328926569*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"d0469d46-2e74-494a-be85-b41cb2f3fa92"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 451, - 501, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134759316485*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1398059411356412`*^-227\\\", \ +RowBox[{\\\"2735526583816145583533735060711274031995\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"10\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5590907374121359182397440000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 124, + 65, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99134759316485*^9, 3.99425966185533*^9}, CellLabel-> "During evaluation of \ -In[451]:=",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], +In[124]:=",ExpressionUUID->"d4774dbc-6ea3-46ca-972d-760d235755ba"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 451, - 502, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347593173849*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.215184597708121`*^-233\\\", \ +RowBox[{\\\"4160735933984357432554811027341847802665\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"13\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3770116038587316426506240000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 124, + 66, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99134759316485*^9, 3.9942596618670597`*^9}, CellLabel-> "During evaluation of \ -In[451]:=",ExpressionUUID->"05cc4b97-7653-f04b-8664-f56b3128e201"], +In[124]:=",ExpressionUUID->"8e7bb309-785b-46f7-8b74-06f6c926b026"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 451, 503, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347593182852*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.295548262396116`*^-239\\\", \ +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 124, + 67, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99134759316485*^9, 3.994259661878215*^9}, CellLabel-> "During evaluation of \ -In[451]:=",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], +In[124]:=",ExpressionUUID->"2c6c9640-9e41-4f0f-850f-015eea8291a5"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 451, 504, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475931908703`*^9}, +during this calculation.\"", 2, 124, 68, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99134759316485*^9, 3.9942596618879633`*^9}, CellLabel-> "During evaluation of \ -In[451]:=",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], +In[124]:=",ExpressionUUID->"c37346a8-6d41-4284-98d9-0626de457d6c"], -Cell[BoxData["16.684462799943017`"], "Output", - CellChangeTimes->{3.9913475973006153`*^9}, +Cell[BoxData["3.85813943874082`"], "Output", + CellChangeTimes->{3.9913475973006153`*^9, 3.994259670331793*^9}, CellLabel-> - "Out[451]=",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] + "Out[124]=",ExpressionUUID->"11a77861-47ec-432b-9178-0bcbba590841"] }, Open ]], Cell[CellGroupData[{ @@ -11631,22 +12194,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.99185033265069*^9, - 3.9918503366548977`*^9}},ExpressionUUID->"58b5e243-0972-1946-bd17-\ -aca0f3e8a35b"], - -Cell[BoxData["0.15578016747845222`"], "Output", - CellChangeTimes->{3.991347597341627*^9}, + CellChangeTimes->{{3.99185033265069*^9, 3.9918503366548977`*^9}}, CellLabel-> - "Out[452]=",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] + "In[125]:=",ExpressionUUID->"58b5e243-0972-1946-bd17-aca0f3e8a35b"], + +Cell[BoxData["0.0027434955009025576`"], "Output", + CellChangeTimes->{3.991347597341627*^9, 3.994259670373464*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"bab31867-eb50-404b-ba96-9fcc70e9fcce"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918503408077297`*^9, 3.99185034363356*^9}, - 3.991924645514969*^9},ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-\ -a3711ba632a4"], + 3.991924645514969*^9}, + CellLabel-> + "In[126]:=",ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-a3711ba632a4"], Cell[CellGroupData[{ @@ -11669,12 +12233,12 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[454]:=",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], + "In[127]:=",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], -Cell[BoxData["12.368532070745184`"], "Output", - CellChangeTimes->{3.991347597372614*^9}, +Cell[BoxData["12.58970007186376`"], "Output", + CellChangeTimes->{3.991347597372614*^9, 3.9942596704026403`*^9}, CellLabel-> - "Out[454]=",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] + "Out[127]=",ExpressionUUID->"093c357c-56ba-4caa-bc3d-a5e5d632d961"] }, Open ]], Cell[CellGroupData[{ @@ -11684,12 +12248,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[456]:=",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], + "In[128]:=",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], -Cell[BoxData["1.0665924029125342`"], "Output", - CellChangeTimes->{3.991347597428034*^9}, +Cell[BoxData["1.7170416857535913`"], "Output", + CellChangeTimes->{3.991347597428034*^9, 3.9942596704154882`*^9}, CellLabel-> - "Out[456]=",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] + "Out[128]=",ExpressionUUID->"086b3ce1-b252-48db-9e8f-8e1822b5a441"] }, Open ]], Cell[CellGroupData[{ @@ -11699,12 +12263,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[459]:=",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], + "In[129]:=",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], -Cell[BoxData["13.192182341836848`"], "Output", - CellChangeTimes->{3.9913475974971066`*^9}, +Cell[BoxData["21.61703983452506`"], "Output", + CellChangeTimes->{3.9913475974971066`*^9, 3.994259670428988*^9}, CellLabel-> - "Out[459]=",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] + "Out[129]=",ExpressionUUID->"a9d928b7-f577-4564-ae92-a62bcbe00143"] }, Open ]], Cell[CellGroupData[{ @@ -11894,12 +12458,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[460]:=",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], + "In[130]:=",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], -Cell[BoxData["0.038908834568544604`"], "Output", - CellChangeTimes->{3.991347597528105*^9}, +Cell[BoxData["0.006160206765727033`"], "Output", + CellChangeTimes->{3.991347597528105*^9, 3.994259670446459*^9}, CellLabel-> - "Out[460]=",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] + "Out[130]=",ExpressionUUID->"ae12bdc4-e7b8-4026-ad3e-c97306f23bb5"] }, Open ]], Cell[CellGroupData[{ @@ -11913,12 +12477,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[461]:=",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], + "In[131]:=",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], -Cell[BoxData["4.492838724335521`"], "Output", - CellChangeTimes->{3.9913475976441536`*^9}, +Cell[BoxData["11.291387087339123`"], "Output", + CellChangeTimes->{3.9913475976441536`*^9, 3.994259670651423*^9}, CellLabel-> - "Out[461]=",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] + "Out[131]=",ExpressionUUID->"98bc33e9-1e8b-412b-8faa-c4d16a49a170"] }, Open ]], Cell[CellGroupData[{ @@ -12110,12 +12674,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[462]:=",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], + "In[132]:=",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], -Cell[BoxData["0.012544276227890849`"], "Output", - CellChangeTimes->{3.991347597671173*^9}, +Cell[BoxData["0.04356140407965084`"], "Output", + CellChangeTimes->{3.991347597671173*^9, 3.9942596706727047`*^9}, CellLabel-> - "Out[462]=",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] + "Out[132]=",ExpressionUUID->"4e310af5-197e-4ee2-bf33-bdae7cbb9090"] }, Open ]], Cell[CellGroupData[{ @@ -12129,12 +12693,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[463]:=",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], + "In[133]:=",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], -Cell[BoxData["7.912653285153153`"], "Output", - CellChangeTimes->{3.9913475977705975`*^9}, +Cell[BoxData["4.246137034156348`"], "Output", + CellChangeTimes->{3.9913475977705975`*^9, 3.9942596708709087`*^9}, CellLabel-> - "Out[463]=",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] + "Out[133]=",ExpressionUUID->"8b743896-6ae6-4dba-af1a-c08f63f97d90"] }, Open ]], Cell[CellGroupData[{ @@ -12227,12 +12791,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[464]:=",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], + "In[134]:=",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.9913475977856007`*^9}, +Cell[BoxData["0.08888024365939537`"], "Output", + CellChangeTimes->{3.9913475977856007`*^9, 3.994259670887699*^9}, CellLabel-> - "Out[464]=",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] + "Out[134]=",ExpressionUUID->"1851a6c2-59f0-4e30-9262-b334d6217d59"] }, Open ]], Cell[CellGroupData[{ @@ -12322,12 +12886,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[465]:=",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], + "In[135]:=",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.991347597813669*^9}, +Cell[BoxData["0.9111197563406046`"], "Output", + CellChangeTimes->{3.991347597813669*^9, 3.994259670902101*^9}, CellLabel-> - "Out[465]=",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] + "Out[135]=",ExpressionUUID->"ed7d48fc-2292-4c78-90e7-a3cf13943897"] }, Open ]], Cell[CellGroupData[{ @@ -12450,12 +13014,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[466]:=",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], + "In[136]:=",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913475978426323`*^9}, +Cell[BoxData["0.0809805459464419`"], "Output", + CellChangeTimes->{3.9913475978426323`*^9, 3.994259670918067*^9}, CellLabel-> - "Out[466]=",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] + "Out[136]=",ExpressionUUID->"e4a069f5-fc20-4025-9d2b-d63f07e0ca91"] }, Open ]], Cell[CellGroupData[{ @@ -12517,68 +13081,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918503626529236`*^9},ExpressionUUID->"ba508068-6b78-254c-87d6-\ -cf1adc0753dd"], + CellChangeTimes->{3.9918503626529236`*^9}, + CellLabel-> + "In[137]:=",ExpressionUUID->"ba508068-6b78-254c-87d6-cf1adc0753dd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.6476402424150632`*^-194\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 467, - 505, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347597872814*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.447579404550839`*^-214\\\", \ +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 137, + 69, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347597872814*^9, 3.9942596709363403`*^9}, CellLabel-> "During evaluation of \ -In[467]:=",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], +In[137]:=",ExpressionUUID->"5cc0bf9c-c185-4dd5-b5dd-7535bac00187"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2411289608803614`*^-198\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 467, - 506, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475978828144`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.0621811048739413`*^-219\\\", \ +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 137, + 70, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347597872814*^9, 3.99425967094606*^9}, CellLabel-> "During evaluation of \ -In[467]:=",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], +In[137]:=",ExpressionUUID->"c5f1bf07-e721-447a-b6d1-6d56156da6f6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.349134949982097`*^-203\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 467, - 507, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347597891815*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.561585128638253`*^-225\\\", \ +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 137, + 71, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347597872814*^9, 3.994259670955063*^9}, CellLabel-> "During evaluation of \ -In[467]:=",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], +In[137]:=",ExpressionUUID->"fbf55f6d-bce5-4d08-9498-90f81b9280ca"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 467, 508, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347597900812*^9}, +during this calculation.\"", 2, 137, 72, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347597872814*^9, 3.99425967096426*^9}, CellLabel-> "During evaluation of \ -In[467]:=",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], +In[137]:=",ExpressionUUID->"20f95faf-52ca-4af1-8a02-424aba92cdfa"], -Cell[BoxData["4.492838724335523`"], "Output", - CellChangeTimes->{3.9913476018505497`*^9}, +Cell[BoxData["11.29138708733911`"], "Output", + CellChangeTimes->{3.9913476018505497`*^9, 3.9942596793525953`*^9}, CellLabel-> - "Out[467]=",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] + "Out[137]=",ExpressionUUID->"07c35a6d-ee81-47db-80d3-c8a3bb11137d"] }, Open ]], Cell[CellGroupData[{ @@ -12640,68 +13211,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918503657638073`*^9},ExpressionUUID->"842e33e4-ae06-f746-ab8b-\ -97489285cc9c"], + CellChangeTimes->{3.9918503657638073`*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"842e33e4-ae06-f746-ab8b-97489285cc9c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.6476402424150632`*^-194\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 468, - 509, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913476018885117`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.447579404550839`*^-214\\\", \ +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 73, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913476018885117`*^9, 3.994259679404598*^9}, CellLabel-> "During evaluation of \ -In[468]:=",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], +In[138]:=",ExpressionUUID->"703906c3-9852-4070-8307-80738f2b17d8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2411289608803614`*^-198\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 468, - 510, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134760189851*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.0621811048739413`*^-219\\\", \ +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 74, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913476018885117`*^9, 3.994259679415514*^9}, CellLabel-> "During evaluation of \ -In[468]:=",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], +In[138]:=",ExpressionUUID->"bd953346-4ebb-4b63-977a-3c15e373eb5b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.349134949982097`*^-203\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 468, - 511, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913476019065113`*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.561585128638253`*^-225\\\", \ +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 75, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913476018885117`*^9, 3.994259679424615*^9}, CellLabel-> "During evaluation of \ -In[468]:=",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], +In[138]:=",ExpressionUUID->"06660686-6d96-43d9-b32e-2636995090f6"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 468, 512, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913476019158936`*^9}, +during this calculation.\"", 2, 138, 76, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913476018885117`*^9, 3.994259679433384*^9}, CellLabel-> "During evaluation of \ -In[468]:=",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], +In[138]:=",ExpressionUUID->"4f7c1872-dc8f-49fd-a0d7-f3d01f9e7a61"], -Cell[BoxData["7.912653285153152`"], "Output", - CellChangeTimes->{3.9913476058912296`*^9}, +Cell[BoxData["4.246137034156349`"], "Output", + CellChangeTimes->{3.9913476058912296`*^9, 3.994259687619936*^9}, CellLabel-> - "Out[468]=",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] + "Out[138]=",ExpressionUUID->"c429e4c9-eb40-492b-9112-5bd49ff508d2"] }, Open ]], Cell[CellGroupData[{ @@ -12759,93 +13337,95 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991850369070572*^9},ExpressionUUID->"b2e314f8-a6f0-6942-a94c-\ -5ac1cacd7190"], + CellChangeTimes->{3.991850369070572*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"b2e314f8-a6f0-6942-a94c-5ac1cacd7190"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK -niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB -QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL -uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV -HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh -GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM -JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI -Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 -YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud -1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 -20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB -bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y -waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D -6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX -YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy -hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj -u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb -bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO -F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu -bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa -Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K -G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl -zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW -Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm -WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 -Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 -5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK -Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez -bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd -bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x -1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl -qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc -oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp -0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb -/FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN -BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn -27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj -O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy -IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO -3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ -+ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC -DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE -1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A -rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 -yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN -C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy -yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP -r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz -MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI -9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl -Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 -80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt -M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 -kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo -7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg -sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W -+uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU -UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n -t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE -z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV -BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH -ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 -TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th -/o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl -lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH -dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP -sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs -t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz -Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE -mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m -ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t -+1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq -k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg -c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu -wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX -wTw= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk0Vd0bB3BdhBAlhMhctyJdMiX7KVSEiogMcd1zTGVOytQkDabEq94G +mUqSKYXIq5L8UDJEE1GGHEPcQ6jkt/1x1lmftdf5ru/ez1p7HSW2vw3B4OHh +GcXPwjvwjeaasrdvjLtiiJHVc0PIeCx7M9s0H+UaDIgrYvek66aomlahJe+J +qAXv5bxeLKL9EpFufTpK2MVh0S/4TZuQVIu7jjL2hbqVNdF5LchqbXeECnbF +28Bbf1jvUJyH41I1bOpjQ8TxyveoM7rtuzq2bL+K00+TzyjyuKUIE3v3jwiD +4KYvyNuyNmw9dvUfSjgsrxdN0oaamtgdp6TDH/t9Q60+RRs2YY8tNqUmWf0I +7quG6GAvjgtw1J4eQK0FaXz62ArLbtYHVn5HWX5C3VuwreV+3hkzGUFf+IZ8 +TbHJ28pSGoJj6E6DvaI5drTanhjfph8odf0LeWvs99Ltm0LyJlBVWhrtgM05 +6ON9JY6LPsXPN7pij9/gySjxo5HxFDHKwRZU1hCfYE2hC4MawkHYKZwXO8Ul +f6Iph0SB49iKdx2jN07/RIWCPyxPYutvODd2pHIGHaBySxKxvXS/NFEmf1C+ +ID9VjD0ZdpRvifoc2vrCXrMS+2SlsBFT8C/6uuVOZS32VdC/79k0j8pWGRe/ +X+iXU28alLcImoL2CPL9HUJ5dVd6TskxgH8mLkUMe3zQNeJyHAOOpb3ylsOO +WDf1sMiPF3LrtX9oY6cUKqn8YPFDoFU/4YX98e1I9d8sfqAWCRmGYityyw4u +lVwMikLMA2ex83WskzWmF0NAhsvhDOzaihOLDlcKQuK7VMYX7KkXbV++m4jA +O9s13Z7zQ2i5pYh4eLUIPHlq1xKOrdVuCqIGomCYai6bhO3T9+j2Js2l0N5y +8kEFdgCjSWuriDiwDNZ+EOehUL9ywUTMz2XQNqBh1ow9STYINWsvB+L29ZTv +2Iz7A0orA5cD52SjAWMRhRS1V9vkDS+HlLqAGF3sgyZJJW96JKC3pkEpC7vZ +IyhYulESxCLO+sUxKNR9N+GSm6AU1KlOy9zHHhnOy7pnJgWtvWvkGrCXhHxr +21IjBf3HnisI8VLI9Ox+HbdH0rCG0b7uEvaTbN2p3HQZULJVs0/no1B2/69Q +wxB5kJ3dMi0gQKFddrHdwQ/kIU1I5pom9kitxI4HA/LwW6Mgxg5bJ3uDpKKj +AhQFzhtnY9eyXR/yG6+GmF86LDNBCnF/9Bz7fkYRyrMzZVOFKCRxxLT0oZUy +zF2TnTgsQqGB7CVee32UQeuYzdAN7PLPb+VGzylDi7LehtfYzpYuZ9RrlEFn +L3+ypijutz7U5hpLBV7X3+uaxNah7o5HSavCsEJZSKIYhfZ7CmtY9KpBQ3z3 +rT/LKYRC7VgH5tTg0oBno44EhdbFpOtxZNQhe+4eOoLNk6W9PWqfOuik2s93 +Yz/odjpQ8kwd7GNNP71cQaHF9vmnZDPXgCprCX+GFO5natVBsZnw+MubVfGy +FMqyTfs0HcWEjoxT6A12Aru3h+86Ewp2dd0Tk6MQ5+TRYYU2JvTKxttdwV5W +dZPH1mQdGJ37T/DWKgr5aI+tq1RZD1n13K4aBQrJKSdGX+rbAKn+schIhUJV +FyeZswwN2HFIJiMO25l2bCeVNIDvwaB9F/atWlXmdlcNCF2r+1+0KoWUPZ+0 +znRqgFbdmdP1ani/+f1qZKMmPGSvafNeSyF5OQVS0VELvmbE/DOsQaENOSEi +vxELqhOyAocNKMTmnJnSsGbBvS7JFRaGFLqqktzt5syC/t7i+Vxs3szCorow +FkCkR4nnFgp9vEXtTy5mwfqJKzHfjSh04arbTaaKNswZuX6dRni+lyw1HRbr +QIivkL/VDgplBKnufdS0GYxqF91ss6XQ21CkdzbHANZraQuKHKWQkus7a5fD +W8HsDW99578UIuYfF8gfB3Cod+WWPKeQ9HC5gDR7OyS8GWcMcCkUom30OXmd +Kfy6+2wyVnUYsUf/1EtQZhDY6bo5wnEYPdgeLJDevBPe/3YvKkobRtmTPs/y +U8yhsOBUgULHMJrZtvJ1bfRumBtqWxSuMIK6eHgnet2tQOJhfby6zwjyW+Wf +dEplD0T2Dt58WjqCCrzra1Jj9sLdTQ7SvUKj6AQtM73eex9k3QqfWecyiqYs +dti/OmQD6k6e9e6Vo8jA6fK2/n228Hp31dZ7cmOoVeamT632fph+mfU5PWwM +yd45U5W71g4MNZ4HJ/aMofKedZbWovYwuXjpChPTH0ihfdwzdBQ7ekMsK/cH +0k69nJ/VcwC2mcYOOAiPo5t8tGbyCwfItjQ0LEbj6PG2jR9jKhyBwS3hET0+ +jq7qXVz2J+8giOumKlYXj6PmTznntOOcwNLh0GzZwDh6ZHVDNeCkM6QY5Q/+ +XT2BJo7Y8vhxXGCkSW63gN0EmtrB9BozcYVS+553B85PoNzRDzPBuocgQDJ7 +eqp6Ajlk5Hi4iLiBb13jv+njE+hhye5DvLFuoPdMl12qykUGcq2zF2bdgNM1 +eMjVlotUejw/tni7Q8zu38mzUVzUJ+y758Y3d7jWLzFz6T4XvU2w9thpxwbB +5Ecdu1q5KCUsXfjoWzYkzzS9bJnhoqrq+VkPcw8I9l2T8EmWRmLOEKv9xAPi +a0t5pnVppLjiVfOqKg+Qz13R4qVHI60mq5WLqz1gdYy000dsGyOne++feQBT +8+X1Kn0apawKbYz8nwc0G/5+HWlII9mu+2L17z0gy+jVIHcrjVRdpa86T3uA +sofL6bumNDJwG8uN0eFAK9+/c7r7aHTn2niwtS4HBKJVPJKwV7RxjaX1ORCS +JHp+CHvMbLo9dwsHDm/oELtuQ+P7i2dR03YO/NMxJ/nblkZLp5c5Lt/HAaVN +fdwCexr1xW8WSj/CASotNrPfiUb7Xum1e/pzIDHgebeuM42qeQzTtQI5oCzA ++BCLfS3YePPzEA7w/iIEmC40snbc6d4fzoGuM7ctvFxpVKHqWLH+IgcyL/50 +/+hGo4TKCO/yOxwIPhaREEfQ6AgrzSAslwO78mOE2rEt7xUL6edxAKymTORI +Gi1JG7hX9oADJvF9P3OxY4L2Uo9LOeD4THT/M08aRTBVfR8950B3y+y3fm8a ++aQ1Hi7p5sDRR9tW/z1CI/OlA0ZBPRzYn5kcuhX/d6yN4RFlfeWAtodxXAT2 +QNDmB8X9HNgxdY47i+1unT5aNMIBYyVG3oQ/jRz4g/0Kf3HgfNb3p+2BNNoZ +LBuQL0XAtmp7M++jNHqefs4ieSUBYzJifDnYRk1c1TBZApqVfUN6sLXUGj+Y +KBBQqzfsbR9KI5nOcJNPagT0vlh51/gYjYYNu6SWbCYgerqczXOcRomM2089 +bQm4yvycsysC73+jyFUrOwJ+Kg2dP4F91iksSPsAAeastFX52GGle9fMHySg +zLTCbmkk7k8uuvwPmwBbJ4ulzdjaDWzOy0ACnOP8k7dF06jzspqwShIB59Qz +yqhTNCpAol7fLxOgeuL+jNhpnD86WfvgCgEmnT20DjbLvDZKP42A/oSKlVHY +CTweXKtbBDSJpsuJnqHRDv/bH8LyCTgfqs9QOEsjefnzusYFBJSj+m/G2JMN +/ld4iwiYzzKMPoSdqY6sEh7iPs6Pv6Vjz3V11WQ9IcD1YCpbPoZGpZZyuW/q +CYhIPaIjfI5Gl34x+FMaCGDuQSVrsNm5lLtjEwE1OqVDJtjifE/k+poJCO8L +iwnHPlzpkDjbQcDHY0IBg9gq6/4JVe0nINVy+9KSWBr96oxsGxrA86IyVRuw +38YQWoXfCbhpHzDZix3Vq0MZjBAgs9WsRvw8jT5ebXPZQxOQ0nla0Bc7WWCZ +2YlFJBj/75XD8gs0quJ2OYXwkhC2Kdd8LfZgV16QHz8Jne9dvm7FNio1vc0W +ImHthKGwF/aAW9hvi2UkOFS6GJZji1uaLTeTIMFswwXvRuwtesuZSJIEZ09/ +6MZOEs2315YhoVjcrZ9xEa8/+VIsp0TCccWTwruwyZz8ekkVEgj/jWEO2ElJ +x7+IqZHglHM6zgt7gJQQ5WOScJ2zJD92YV1ip9eIFgmeOY51z7Cf/JWIHmCR +kLz1q38zdv9QT2qPDglRR37XfMY2rDnxol2fhE1zHY4/sfsOFyg8BRJiP80S +apfw/eEQvrlsOwmvm17v1sI2MNllWWxKgsAN5Q+G2AkyX4/n7CJBSnAXZY1d +zleYlG5BwiO2pJ8D9rcf4XevWZLQLeVyzR1bv07yXfxeEg7l2A0EYbOLvw7H +2pDgV8QrGI4df6OQcXo/CaGh6i2nsb8GmWuFOpAwy3rpeBlb1FVqZ8BBfN6v +jWWuLuSZf3PxcSahynvtyVsL36+OvOTqRsK/iTtN8xb6LLHIdGCTcHdjeEbh +Qt6UVIUNh4SUedk7pQt5vd+aLUkSHmuq21Qs5DUVDezwIuHVr+s5Txf6lUXO +gQ8JPYXht58t5GdarNhymISI3NrtLxfy46XXb/Yj4axVaFz9Qn5Y37aNASQY +SCVFNmKLcIodmEF4/ueXSb3B1tsT5a8SQkK53i+7twv5hrvPyYeSMF9nvrUV +O05t5U3pMBLogfnGNuzH4v0Pl50goc1+FeMddu/v4gbhCBL0+259WbDIYFQv +fxQJTN9YTge2buvumfloEkQ73iUt+P+uXCVS "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -12859,105 +13439,107 @@ wTw= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK -niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB -QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL -uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV -HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh -GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM -JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI -Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 -YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud -1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 -20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB -bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y -waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D -6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX -YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy -hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj -u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb -bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO -F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu -bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa -Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K -G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl -zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW -Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm -WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 -Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 -5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK -Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez -bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd -bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x -1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl -qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc -oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp -0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb -/FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN -BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn -27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj -O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy -IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO -3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ -+ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC -DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE -1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A -rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 -yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN -C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy -yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP -r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz -MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI -9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl -Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 -80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt -M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 -kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo -7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg -sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W -+uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU -UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n -t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE -z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV -BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH -ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 -TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th -/o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl -lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH -dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP -sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs -t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz -Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE -mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m -ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t -+1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq -k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg -c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu -wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX -wTw= +1:eJwV1nk0Vd0bB3BdhBAlhMhctyJdMiX7KVSEiogMcd1zTGVOytQkDabEq94G +mUqSKYXIq5L8UDJEE1GGHEPcQ6jkt/1x1lmftdf5ru/ez1p7HSW2vw3B4OHh +GcXPwjvwjeaasrdvjLtiiJHVc0PIeCx7M9s0H+UaDIgrYvek66aomlahJe+J +qAXv5bxeLKL9EpFufTpK2MVh0S/4TZuQVIu7jjL2hbqVNdF5LchqbXeECnbF +28Bbf1jvUJyH41I1bOpjQ8TxyveoM7rtuzq2bL+K00+TzyjyuKUIE3v3jwiD +4KYvyNuyNmw9dvUfSjgsrxdN0oaamtgdp6TDH/t9Q60+RRs2YY8tNqUmWf0I +7quG6GAvjgtw1J4eQK0FaXz62ArLbtYHVn5HWX5C3VuwreV+3hkzGUFf+IZ8 +TbHJ28pSGoJj6E6DvaI5drTanhjfph8odf0LeWvs99Ltm0LyJlBVWhrtgM05 +6ON9JY6LPsXPN7pij9/gySjxo5HxFDHKwRZU1hCfYE2hC4MawkHYKZwXO8Ul +f6Iph0SB49iKdx2jN07/RIWCPyxPYutvODd2pHIGHaBySxKxvXS/NFEmf1C+ +ID9VjD0ZdpRvifoc2vrCXrMS+2SlsBFT8C/6uuVOZS32VdC/79k0j8pWGRe/ +X+iXU28alLcImoL2CPL9HUJ5dVd6TskxgH8mLkUMe3zQNeJyHAOOpb3ylsOO +WDf1sMiPF3LrtX9oY6cUKqn8YPFDoFU/4YX98e1I9d8sfqAWCRmGYityyw4u +lVwMikLMA2ex83WskzWmF0NAhsvhDOzaihOLDlcKQuK7VMYX7KkXbV++m4jA +O9s13Z7zQ2i5pYh4eLUIPHlq1xKOrdVuCqIGomCYai6bhO3T9+j2Js2l0N5y +8kEFdgCjSWuriDiwDNZ+EOehUL9ywUTMz2XQNqBh1ow9STYINWsvB+L29ZTv +2Iz7A0orA5cD52SjAWMRhRS1V9vkDS+HlLqAGF3sgyZJJW96JKC3pkEpC7vZ +IyhYulESxCLO+sUxKNR9N+GSm6AU1KlOy9zHHhnOy7pnJgWtvWvkGrCXhHxr +21IjBf3HnisI8VLI9Ox+HbdH0rCG0b7uEvaTbN2p3HQZULJVs0/no1B2/69Q +wxB5kJ3dMi0gQKFddrHdwQ/kIU1I5pom9kitxI4HA/LwW6Mgxg5bJ3uDpKKj +AhQFzhtnY9eyXR/yG6+GmF86LDNBCnF/9Bz7fkYRyrMzZVOFKCRxxLT0oZUy +zF2TnTgsQqGB7CVee32UQeuYzdAN7PLPb+VGzylDi7LehtfYzpYuZ9RrlEFn +L3+ypijutz7U5hpLBV7X3+uaxNah7o5HSavCsEJZSKIYhfZ7CmtY9KpBQ3z3 +rT/LKYRC7VgH5tTg0oBno44EhdbFpOtxZNQhe+4eOoLNk6W9PWqfOuik2s93 +Yz/odjpQ8kwd7GNNP71cQaHF9vmnZDPXgCprCX+GFO5natVBsZnw+MubVfGy +FMqyTfs0HcWEjoxT6A12Aru3h+86Ewp2dd0Tk6MQ5+TRYYU2JvTKxttdwV5W +dZPH1mQdGJ37T/DWKgr5aI+tq1RZD1n13K4aBQrJKSdGX+rbAKn+schIhUJV +FyeZswwN2HFIJiMO25l2bCeVNIDvwaB9F/atWlXmdlcNCF2r+1+0KoWUPZ+0 +znRqgFbdmdP1ani/+f1qZKMmPGSvafNeSyF5OQVS0VELvmbE/DOsQaENOSEi +vxELqhOyAocNKMTmnJnSsGbBvS7JFRaGFLqqktzt5syC/t7i+Vxs3szCorow +FkCkR4nnFgp9vEXtTy5mwfqJKzHfjSh04arbTaaKNswZuX6dRni+lyw1HRbr +QIivkL/VDgplBKnufdS0GYxqF91ss6XQ21CkdzbHANZraQuKHKWQkus7a5fD +W8HsDW99578UIuYfF8gfB3Cod+WWPKeQ9HC5gDR7OyS8GWcMcCkUom30OXmd +Kfy6+2wyVnUYsUf/1EtQZhDY6bo5wnEYPdgeLJDevBPe/3YvKkobRtmTPs/y +U8yhsOBUgULHMJrZtvJ1bfRumBtqWxSuMIK6eHgnet2tQOJhfby6zwjyW+Wf +dEplD0T2Dt58WjqCCrzra1Jj9sLdTQ7SvUKj6AQtM73eex9k3QqfWecyiqYs +dti/OmQD6k6e9e6Vo8jA6fK2/n228Hp31dZ7cmOoVeamT632fph+mfU5PWwM +yd45U5W71g4MNZ4HJ/aMofKedZbWovYwuXjpChPTH0ihfdwzdBQ7ekMsK/cH +0k69nJ/VcwC2mcYOOAiPo5t8tGbyCwfItjQ0LEbj6PG2jR9jKhyBwS3hET0+ +jq7qXVz2J+8giOumKlYXj6PmTznntOOcwNLh0GzZwDh6ZHVDNeCkM6QY5Q/+ +XT2BJo7Y8vhxXGCkSW63gN0EmtrB9BozcYVS+553B85PoNzRDzPBuocgQDJ7 +eqp6Ajlk5Hi4iLiBb13jv+njE+hhye5DvLFuoPdMl12qykUGcq2zF2bdgNM1 +eMjVlotUejw/tni7Q8zu38mzUVzUJ+y758Y3d7jWLzFz6T4XvU2w9thpxwbB +5Ecdu1q5KCUsXfjoWzYkzzS9bJnhoqrq+VkPcw8I9l2T8EmWRmLOEKv9xAPi +a0t5pnVppLjiVfOqKg+Qz13R4qVHI60mq5WLqz1gdYy000dsGyOne++feQBT +8+X1Kn0apawKbYz8nwc0G/5+HWlII9mu+2L17z0gy+jVIHcrjVRdpa86T3uA +sofL6bumNDJwG8uN0eFAK9+/c7r7aHTn2niwtS4HBKJVPJKwV7RxjaX1ORCS +JHp+CHvMbLo9dwsHDm/oELtuQ+P7i2dR03YO/NMxJ/nblkZLp5c5Lt/HAaVN +fdwCexr1xW8WSj/CASotNrPfiUb7Xum1e/pzIDHgebeuM42qeQzTtQI5oCzA ++BCLfS3YePPzEA7w/iIEmC40snbc6d4fzoGuM7ctvFxpVKHqWLH+IgcyL/50 +/+hGo4TKCO/yOxwIPhaREEfQ6AgrzSAslwO78mOE2rEt7xUL6edxAKymTORI +Gi1JG7hX9oADJvF9P3OxY4L2Uo9LOeD4THT/M08aRTBVfR8950B3y+y3fm8a ++aQ1Hi7p5sDRR9tW/z1CI/OlA0ZBPRzYn5kcuhX/d6yN4RFlfeWAtodxXAT2 +QNDmB8X9HNgxdY47i+1unT5aNMIBYyVG3oQ/jRz4g/0Kf3HgfNb3p+2BNNoZ +LBuQL0XAtmp7M++jNHqefs4ieSUBYzJifDnYRk1c1TBZApqVfUN6sLXUGj+Y +KBBQqzfsbR9KI5nOcJNPagT0vlh51/gYjYYNu6SWbCYgerqczXOcRomM2089 +bQm4yvycsysC73+jyFUrOwJ+Kg2dP4F91iksSPsAAeastFX52GGle9fMHySg +zLTCbmkk7k8uuvwPmwBbJ4ulzdjaDWzOy0ACnOP8k7dF06jzspqwShIB59Qz +yqhTNCpAol7fLxOgeuL+jNhpnD86WfvgCgEmnT20DjbLvDZKP42A/oSKlVHY +CTweXKtbBDSJpsuJnqHRDv/bH8LyCTgfqs9QOEsjefnzusYFBJSj+m/G2JMN +/ld4iwiYzzKMPoSdqY6sEh7iPs6Pv6Vjz3V11WQ9IcD1YCpbPoZGpZZyuW/q +CYhIPaIjfI5Gl34x+FMaCGDuQSVrsNm5lLtjEwE1OqVDJtjifE/k+poJCO8L +iwnHPlzpkDjbQcDHY0IBg9gq6/4JVe0nINVy+9KSWBr96oxsGxrA86IyVRuw +38YQWoXfCbhpHzDZix3Vq0MZjBAgs9WsRvw8jT5ebXPZQxOQ0nla0Bc7WWCZ +2YlFJBj/75XD8gs0quJ2OYXwkhC2Kdd8LfZgV16QHz8Jne9dvm7FNio1vc0W +ImHthKGwF/aAW9hvi2UkOFS6GJZji1uaLTeTIMFswwXvRuwtesuZSJIEZ09/ +6MZOEs2315YhoVjcrZ9xEa8/+VIsp0TCccWTwruwyZz8ekkVEgj/jWEO2ElJ +x7+IqZHglHM6zgt7gJQQ5WOScJ2zJD92YV1ip9eIFgmeOY51z7Cf/JWIHmCR +kLz1q38zdv9QT2qPDglRR37XfMY2rDnxol2fhE1zHY4/sfsOFyg8BRJiP80S +apfw/eEQvrlsOwmvm17v1sI2MNllWWxKgsAN5Q+G2AkyX4/n7CJBSnAXZY1d +zleYlG5BwiO2pJ8D9rcf4XevWZLQLeVyzR1bv07yXfxeEg7l2A0EYbOLvw7H +2pDgV8QrGI4df6OQcXo/CaGh6i2nsb8GmWuFOpAwy3rpeBlb1FVqZ8BBfN6v +jWWuLuSZf3PxcSahynvtyVsL36+OvOTqRsK/iTtN8xb6LLHIdGCTcHdjeEbh +Qt6UVIUNh4SUedk7pQt5vd+aLUkSHmuq21Qs5DUVDezwIuHVr+s5Txf6lUXO +gQ8JPYXht58t5GdarNhymISI3NrtLxfy46XXb/Yj4axVaFz9Qn5Y37aNASQY +SCVFNmKLcIodmEF4/ueXSb3B1tsT5a8SQkK53i+7twv5hrvPyYeSMF9nvrUV +O05t5U3pMBLogfnGNuzH4v0Pl50goc1+FeMddu/v4gbhCBL0+259WbDIYFQv +fxQJTN9YTge2buvumfloEkQ73iUt+P+uXCVS "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5511670383120075, - 1.7091854080147844`}}, + "PlotRange" -> {{0, 180}, {0.8121490113373359, + 1.2216401727322392`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5511670383120088}, + "AxesOrigin" -> {0, 0.8121490113373376}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -12969,21 +13551,21 @@ wTw= "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5511670383120075, - 1.7091854080147844`}}, + "PlotRange" -> {{0, 180}, {0.8121490113373359, + 1.2216401727322392`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5511670383120088}, + "AxesOrigin" -> {0, 0.8121490113373376}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -12997,103 +13579,105 @@ wTw= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK -niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB -QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL -uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV -HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh -GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM -JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI -Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 -YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud -1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 -20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB -bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y -waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D -6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX -YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy -hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj -u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb -bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO -F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu -bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa -Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K -G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl -zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW -Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm -WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 -Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 -5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK -Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez -bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd -bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x -1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl -qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc -oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp -0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb -/FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN -BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn -27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj -O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy -IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO -3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ -+ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC -DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE -1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A -rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 -yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN -C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy -yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP -r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz -MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI -9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl -Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 -80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt -M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 -kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo -7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg -sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W -+uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU -UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n -t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE -z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV -BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH -ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 -TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th -/o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl -lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH -dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP -sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs -t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz -Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE -mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m -ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t -+1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq -k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg -c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu -wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX -wTw= +1:eJwV1nk0Vd0bB3BdhBAlhMhctyJdMiX7KVSEiogMcd1zTGVOytQkDabEq94G +mUqSKYXIq5L8UDJEE1GGHEPcQ6jkt/1x1lmftdf5ru/ez1p7HSW2vw3B4OHh +GcXPwjvwjeaasrdvjLtiiJHVc0PIeCx7M9s0H+UaDIgrYvek66aomlahJe+J +qAXv5bxeLKL9EpFufTpK2MVh0S/4TZuQVIu7jjL2hbqVNdF5LchqbXeECnbF +28Bbf1jvUJyH41I1bOpjQ8TxyveoM7rtuzq2bL+K00+TzyjyuKUIE3v3jwiD +4KYvyNuyNmw9dvUfSjgsrxdN0oaamtgdp6TDH/t9Q60+RRs2YY8tNqUmWf0I +7quG6GAvjgtw1J4eQK0FaXz62ArLbtYHVn5HWX5C3VuwreV+3hkzGUFf+IZ8 +TbHJ28pSGoJj6E6DvaI5drTanhjfph8odf0LeWvs99Ltm0LyJlBVWhrtgM05 +6ON9JY6LPsXPN7pij9/gySjxo5HxFDHKwRZU1hCfYE2hC4MawkHYKZwXO8Ul +f6Iph0SB49iKdx2jN07/RIWCPyxPYutvODd2pHIGHaBySxKxvXS/NFEmf1C+ +ID9VjD0ZdpRvifoc2vrCXrMS+2SlsBFT8C/6uuVOZS32VdC/79k0j8pWGRe/ +X+iXU28alLcImoL2CPL9HUJ5dVd6TskxgH8mLkUMe3zQNeJyHAOOpb3ylsOO +WDf1sMiPF3LrtX9oY6cUKqn8YPFDoFU/4YX98e1I9d8sfqAWCRmGYityyw4u +lVwMikLMA2ex83WskzWmF0NAhsvhDOzaihOLDlcKQuK7VMYX7KkXbV++m4jA +O9s13Z7zQ2i5pYh4eLUIPHlq1xKOrdVuCqIGomCYai6bhO3T9+j2Js2l0N5y +8kEFdgCjSWuriDiwDNZ+EOehUL9ywUTMz2XQNqBh1ow9STYINWsvB+L29ZTv +2Iz7A0orA5cD52SjAWMRhRS1V9vkDS+HlLqAGF3sgyZJJW96JKC3pkEpC7vZ +IyhYulESxCLO+sUxKNR9N+GSm6AU1KlOy9zHHhnOy7pnJgWtvWvkGrCXhHxr +21IjBf3HnisI8VLI9Ox+HbdH0rCG0b7uEvaTbN2p3HQZULJVs0/no1B2/69Q +wxB5kJ3dMi0gQKFddrHdwQ/kIU1I5pom9kitxI4HA/LwW6Mgxg5bJ3uDpKKj +AhQFzhtnY9eyXR/yG6+GmF86LDNBCnF/9Bz7fkYRyrMzZVOFKCRxxLT0oZUy +zF2TnTgsQqGB7CVee32UQeuYzdAN7PLPb+VGzylDi7LehtfYzpYuZ9RrlEFn +L3+ypijutz7U5hpLBV7X3+uaxNah7o5HSavCsEJZSKIYhfZ7CmtY9KpBQ3z3 +rT/LKYRC7VgH5tTg0oBno44EhdbFpOtxZNQhe+4eOoLNk6W9PWqfOuik2s93 +Yz/odjpQ8kwd7GNNP71cQaHF9vmnZDPXgCprCX+GFO5natVBsZnw+MubVfGy +FMqyTfs0HcWEjoxT6A12Aru3h+86Ewp2dd0Tk6MQ5+TRYYU2JvTKxttdwV5W +dZPH1mQdGJ37T/DWKgr5aI+tq1RZD1n13K4aBQrJKSdGX+rbAKn+schIhUJV +FyeZswwN2HFIJiMO25l2bCeVNIDvwaB9F/atWlXmdlcNCF2r+1+0KoWUPZ+0 +znRqgFbdmdP1ani/+f1qZKMmPGSvafNeSyF5OQVS0VELvmbE/DOsQaENOSEi +vxELqhOyAocNKMTmnJnSsGbBvS7JFRaGFLqqktzt5syC/t7i+Vxs3szCorow +FkCkR4nnFgp9vEXtTy5mwfqJKzHfjSh04arbTaaKNswZuX6dRni+lyw1HRbr +QIivkL/VDgplBKnufdS0GYxqF91ss6XQ21CkdzbHANZraQuKHKWQkus7a5fD +W8HsDW99578UIuYfF8gfB3Cod+WWPKeQ9HC5gDR7OyS8GWcMcCkUom30OXmd +Kfy6+2wyVnUYsUf/1EtQZhDY6bo5wnEYPdgeLJDevBPe/3YvKkobRtmTPs/y +U8yhsOBUgULHMJrZtvJ1bfRumBtqWxSuMIK6eHgnet2tQOJhfby6zwjyW+Wf +dEplD0T2Dt58WjqCCrzra1Jj9sLdTQ7SvUKj6AQtM73eex9k3QqfWecyiqYs +dti/OmQD6k6e9e6Vo8jA6fK2/n228Hp31dZ7cmOoVeamT632fph+mfU5PWwM +yd45U5W71g4MNZ4HJ/aMofKedZbWovYwuXjpChPTH0ihfdwzdBQ7ekMsK/cH +0k69nJ/VcwC2mcYOOAiPo5t8tGbyCwfItjQ0LEbj6PG2jR9jKhyBwS3hET0+ +jq7qXVz2J+8giOumKlYXj6PmTznntOOcwNLh0GzZwDh6ZHVDNeCkM6QY5Q/+ +XT2BJo7Y8vhxXGCkSW63gN0EmtrB9BozcYVS+553B85PoNzRDzPBuocgQDJ7 +eqp6Ajlk5Hi4iLiBb13jv+njE+hhye5DvLFuoPdMl12qykUGcq2zF2bdgNM1 +eMjVlotUejw/tni7Q8zu38mzUVzUJ+y758Y3d7jWLzFz6T4XvU2w9thpxwbB +5Ecdu1q5KCUsXfjoWzYkzzS9bJnhoqrq+VkPcw8I9l2T8EmWRmLOEKv9xAPi +a0t5pnVppLjiVfOqKg+Qz13R4qVHI60mq5WLqz1gdYy000dsGyOne++feQBT +8+X1Kn0apawKbYz8nwc0G/5+HWlII9mu+2L17z0gy+jVIHcrjVRdpa86T3uA +sofL6bumNDJwG8uN0eFAK9+/c7r7aHTn2niwtS4HBKJVPJKwV7RxjaX1ORCS +JHp+CHvMbLo9dwsHDm/oELtuQ+P7i2dR03YO/NMxJ/nblkZLp5c5Lt/HAaVN +fdwCexr1xW8WSj/CASotNrPfiUb7Xum1e/pzIDHgebeuM42qeQzTtQI5oCzA ++BCLfS3YePPzEA7w/iIEmC40snbc6d4fzoGuM7ctvFxpVKHqWLH+IgcyL/50 +/+hGo4TKCO/yOxwIPhaREEfQ6AgrzSAslwO78mOE2rEt7xUL6edxAKymTORI +Gi1JG7hX9oADJvF9P3OxY4L2Uo9LOeD4THT/M08aRTBVfR8950B3y+y3fm8a ++aQ1Hi7p5sDRR9tW/z1CI/OlA0ZBPRzYn5kcuhX/d6yN4RFlfeWAtodxXAT2 +QNDmB8X9HNgxdY47i+1unT5aNMIBYyVG3oQ/jRz4g/0Kf3HgfNb3p+2BNNoZ +LBuQL0XAtmp7M++jNHqefs4ieSUBYzJifDnYRk1c1TBZApqVfUN6sLXUGj+Y +KBBQqzfsbR9KI5nOcJNPagT0vlh51/gYjYYNu6SWbCYgerqczXOcRomM2089 +bQm4yvycsysC73+jyFUrOwJ+Kg2dP4F91iksSPsAAeastFX52GGle9fMHySg +zLTCbmkk7k8uuvwPmwBbJ4ulzdjaDWzOy0ACnOP8k7dF06jzspqwShIB59Qz +yqhTNCpAol7fLxOgeuL+jNhpnD86WfvgCgEmnT20DjbLvDZKP42A/oSKlVHY +CTweXKtbBDSJpsuJnqHRDv/bH8LyCTgfqs9QOEsjefnzusYFBJSj+m/G2JMN +/ld4iwiYzzKMPoSdqY6sEh7iPs6Pv6Vjz3V11WQ9IcD1YCpbPoZGpZZyuW/q +CYhIPaIjfI5Gl34x+FMaCGDuQSVrsNm5lLtjEwE1OqVDJtjifE/k+poJCO8L +iwnHPlzpkDjbQcDHY0IBg9gq6/4JVe0nINVy+9KSWBr96oxsGxrA86IyVRuw +38YQWoXfCbhpHzDZix3Vq0MZjBAgs9WsRvw8jT5ebXPZQxOQ0nla0Bc7WWCZ +2YlFJBj/75XD8gs0quJ2OYXwkhC2Kdd8LfZgV16QHz8Jne9dvm7FNio1vc0W +ImHthKGwF/aAW9hvi2UkOFS6GJZji1uaLTeTIMFswwXvRuwtesuZSJIEZ09/ +6MZOEs2315YhoVjcrZ9xEa8/+VIsp0TCccWTwruwyZz8ekkVEgj/jWEO2ElJ +x7+IqZHglHM6zgt7gJQQ5WOScJ2zJD92YV1ip9eIFgmeOY51z7Cf/JWIHmCR +kLz1q38zdv9QT2qPDglRR37XfMY2rDnxol2fhE1zHY4/sfsOFyg8BRJiP80S +apfw/eEQvrlsOwmvm17v1sI2MNllWWxKgsAN5Q+G2AkyX4/n7CJBSnAXZY1d +zleYlG5BwiO2pJ8D9rcf4XevWZLQLeVyzR1bv07yXfxeEg7l2A0EYbOLvw7H +2pDgV8QrGI4df6OQcXo/CaGh6i2nsb8GmWuFOpAwy3rpeBlb1FVqZ8BBfN6v +jWWuLuSZf3PxcSahynvtyVsL36+OvOTqRsK/iTtN8xb6LLHIdGCTcHdjeEbh +Qt6UVIUNh4SUedk7pQt5vd+aLUkSHmuq21Qs5DUVDezwIuHVr+s5Txf6lUXO +gQ8JPYXht58t5GdarNhymISI3NrtLxfy46XXb/Yj4axVaFz9Qn5Y37aNASQY +SCVFNmKLcIodmEF4/ueXSb3B1tsT5a8SQkK53i+7twv5hrvPyYeSMF9nvrUV +O05t5U3pMBLogfnGNuzH4v0Pl50goc1+FeMddu/v4gbhCBL0+259WbDIYFQv +fxQJTN9YTge2buvumfloEkQ73iUt+P+uXCVS "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + "PlotRange" -> {{0, 180}, {0.8121490113373359, 1.2216401727322392`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5511670383120088}, + "AxesOrigin" -> {0, 0.8121490113373376}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13103,7 +13687,8 @@ wTw= AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5511670383120088}, + AxesOrigin->{0, 0.8121490113373376}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -13131,7 +13716,8 @@ wTw= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.8121490113373359, 1.2216401727322392`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -13139,9 +13725,9 @@ wTw= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991347865018469*^9}, + CellChangeTimes->{3.991347865018469*^9, 3.994260289669176*^9}, CellLabel-> - "Out[469]=",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] + "Out[139]=",ExpressionUUID->"b2dd1e20-6f98-4094-ba61-cae7fcfe98b1"] }, Open ]], Cell[CellGroupData[{ @@ -13205,199 +13791,162 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ - 3.9918503718899097`*^9, {3.991850469268881*^9, - 3.9918504694651966`*^9}},ExpressionUUID->"497f9779-a3e4-c84e-a207-\ -0aac70483e3c"], + 3.9918503718899097`*^9, {3.991850469268881*^9, 3.9918504694651966`*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"497f9779-a3e4-c84e-a207-0aac70483e3c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.458740908982352`*^-268\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 470, - 513, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913478652482224`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.4769362935719625`*^-271\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 77, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913478652482224`*^9, 3.994260289852051*^9}, CellLabel-> "During evaluation of \ -In[470]:=",ExpressionUUID->"56dc07a7-05cc-424a-8fff-08f056385a44"], +In[140]:=",ExpressionUUID->"05070296-e55e-456b-b1c5-897ac09eae44"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.7391049816418008`*^-279\\\", \ + "\"\\!\\(\\*FractionBox[\\\"6.055058320115344`*^-283\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 78, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913478652482224`*^9, 3.994260289861731*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"99b32565-3dbb-4812-aba2-71286342745f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0544838376182113`*^-294\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 470, 514, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913478652572174`*^9}, + 140, 79, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913478652482224`*^9, 3.994260289870236*^9}, CellLabel-> "During evaluation of \ -In[470]:=",ExpressionUUID->"71ae3883-d346-164c-9764-dc57f6863817"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.230095503809359`*^-290\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 470, 515, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913478652662163`*^9}, - CellLabel-> - "During evaluation of \ -In[470]:=",ExpressionUUID->"16c86d51-9f27-3c48-b312-93c489e538a4"], +In[140]:=",ExpressionUUID->"ad0ac799-d519-41d2-bee4-65e7d6aed0e7"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 470, 516, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347865275215*^9}, +during this calculation.\"", 2, 140, 80, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913478652482224`*^9, 3.994260289880682*^9}, CellLabel-> "During evaluation of \ -In[470]:=",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], +In[140]:=",ExpressionUUID->"7127fce1-e9c3-48ba-8051-66855c2b69ea"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ -Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH -/49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a -j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ -HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 -PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L -sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 -y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To -OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA -XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV -WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl -Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw -kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H -JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 -maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt -NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe -vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ -ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv -ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B -1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS -pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk -VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU -Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj -SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs -+TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F -jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL -c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt -t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA -t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 -PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp -cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr -ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe -DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd -dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 -TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU -RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP -Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh -nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 -PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv -Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac -X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU -CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e -N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T -3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T -sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z -bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O -s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 -hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih -Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v -JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O -fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci -vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ -2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL -lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z -Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu -1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl -qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 -B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 -YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 -6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ -T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw -RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w -n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P -r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik -ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 -pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l -HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh -S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 -EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK -rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 -GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu -OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo -lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l -HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 -lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 -dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR -ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX -7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu -fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg -eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn -YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE -9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS -WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ -Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 -85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV -icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ -xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum -j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l -rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ -dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu -hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w -cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH -ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD -69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 -w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme -MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn -PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 -wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G -XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu -6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH -x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD -5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m -zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ -tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u -wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe -Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF -oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl -9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY -caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU -Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo -f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 -3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN -hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf -Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis -j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB -LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 -eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo -qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O -03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 -NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 -cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 -pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu -KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA -YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn -yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me -g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ -V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw -EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg -5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv -fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo -9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VesXB3AXiYpEOOZz9jloMGWejrVS1xhSMpUkSbmGUgkpQxORJAnX +VIZkOvskc4PI1KBBGUPXrVsJGUISfvv3134+z/M+e73Pfvda370Z+wN3ePPy +8PAs/4OH5//XmYG2J6y4PFOrZe0HB7TQ9G0WLXRzdzQodkx8/FIlDyjxcj+t +OwkOhvgK51epQfD2oi6+7lsQ75F8MqSKDWvGpJLmuu7C9GjVOf0qWxi8bxf4 +o6sBapJ6A/wq3cGcNdw/0fUGNq01yN1T7g9zXfrXx7uGYHGh77H67dPQuOV2 +3utbU3CZpluhVJYAcoM1/+1XXQDX961eZ2JTYK2fR9HyLXxY2R639Yx9JiRt +Mq+z2yWI468+hD9QvAU9qZr1E6LCuOTbNrlEz4e4vIiXvNJrUKhB7OFbqUKQ +Sv439lqmOKpUr5i6V1IEFx2tTN/MSGD4yRRV1SclIHOvXYb3D0lMdGzvj3te +AmXijrObVkriuQDzs5/elkDnm73kVUVJPB2jdPvCpxJgORwnHCwlcZeSi0Gk +QCk02GYLvEqTRC0Hgwp7i1JYMJ9uf2EihSlBTqpuT0rhmOFNj7ZoGjY+ao77 +UVwG1jkiP2ziaRj6zmHO6W4ZEMvDY9qv07A8e+FXeXUZvHrrxO0opKHAXrsa +96YyUD+yim+gnYZ1E7a0IwNl8KXgZMGkjDSKZ1fTEldzYM9au1HZcmmUXCPB +rvPngPapuqis+9JYMxidGXiMAyuG1kkymqUxdFtzrEIoB2o4fKDcI41qAmrL +/M5xQNKmJlFzSRofvz58timdA6+iWDp/2shgqPKm6KBmDmz9/iss4F8ZVB5T +XOpZRUKoZfKGxyMy2MiTo7t9NQllN9V6xWdkMOsfo+eNa0igOe4zrBGURaFL +r6VzJUkYqW6a5VOXxeZ5OX0zOgnXohOPp4XIYuFa6yhebRKGJJQDngjL4XPp +Hdw4JxKkAh/JS0nJYfpVK54yFxK2tbq8OEyXw++EFveFGwmVYXGqq7Xl0Hc/ +GC7zIOHS4Piwq4sc9onYfXL0IUHrTp3P91ty6J+c1BJ8koQoEwdPGQN5DP9W +V9R0nQTLvVmT+mby+DXnHafuBgkikd/O7tomj7d9IvPL0kjIaDxfkLhPHve+ +D/eKyySh2rr2m0CsPG7fMKZJzydh3IUZPNUjjzlnE22qykmoCjuyfM1HeZy3 +2BASXkHCmYwHqepj8mjUFJ9mWkXCqg/OdYd5FbDbpKeuppYEFZ94ng8bFDB4 +3dKFuMck7D0xfen5KQVc6z1wOrOdBKUbZnLD5xWw4M06Oa1X/39+V0qXJyrg +zufO9xpfkxD2e/0rszwFDFjR1tH/loTrZ/dK1DxXwLTu8e7RXhKeX23JzpdX +RAuHEbvT/5FgVJZ278wjRTzgvb54zzwJW7vaF8ZaFXF75ei98N8k2PHwW3i8 +UcSKbd0q6QskeO0I6IFPihiTnW79YokE81OMiMhldFRXsE9Yy8+FI4ozuZs3 +0nHOye2AyiouTJcnts5p0NFWjFBXEOZCmOXGUa4OHXU2b/YRE+HC+aP79AhT +OuY+VFk/tZoL6Y1PW3kd6NhyiTl7XZwLT3yyRxuD6RgiuUXGU4YLVr8NxcJP +0THz38qVGrJcaE98q6cTSUcPAftjvyj31AhF5sXSUcvjXkGsPBfGVh4XO59B +x9PPR4pi6Vw4liOiz75JR9mrNLctDC781LmzezqfjsOigmd/UebbO5DnzaGj +ykrhrZ5MLtBIS33zBjoqvn56RVSZC5lb/9292ExH/i2qMpWUiZ7TkZXP6NjI +L0m4qnBBjbe8TfkdHauKAkturOOCmaP8nuVf6OjW1FU9s4ELfj8nIluFGcgy +N1Bka3DB6OhByf/EGPi5wEG1ibLgcG8xH42BvLbj9taaXMjva+w0JRj4rNKj +32YTFwYeXlet0GPggb9vMlW1uVCiv6LhjTEDDQ+FzWZQDiPPOI8jAzvrNT+v +0OGC5C2f6I02VL3IcbkByvbnDbtvejBwunXxh6ceFxQWS/0fHWCgjMUfdXWU +R4IJvv7DDHwQcPiWmD4XYg6tVKcdZyCt1aS7irLTPxGNuqEMrOgQWydgwAWW +2w+XnWcYWGjMynCgXG/TfzYhhqr3unNqkHLCEwfpkssMNM7/0k0YcmEPu7ms +LYmBjQypT/spz6lzevgzGXjesvxEL+XW28xA4hYDrZ1uzK8x4kIKPZUfbzPw +6ptzxeaUtcSiNE5xGejDORJ/mzJP3PST1EoGVtK/Peyg3M7n61ZZx8A1DB+F +BcoZ4QPfO+oZKHAqr5hpzIW/pnecn2hioF2Jl48FZaOAFpnVzxho+8l7xyHK +gp+NSdVXDPxb0N//AuVOD/JP63cMDCkyrrlJOa+b1efTy0B70et6tZSDHNKO +nB9koIkm+7+XlPGpsEDuRwbGkj9bhyiLbIn+u/4rA+mf4wcnKffXzWgOjDGQ +6Hm0gceEOj+dv5rnpxjoYORSvIJyWOngbuk5Bqb5ye8Xo2yp7Diht8jAxIgu +eynKktmtFxz5CBzVsD8hTfmjFFsuSJDA5Z9tO2iU7yZyuVeECXStzfSVoBwp +pGxRKkbgoq+QyWrK9tHp759KEbjee4+lAGWFeZGgL3IEFj7an/iL2t/IsbPL +BQgCPYy/rh2hXDsym8FUIbDZ7EFnL+UYbz+tzaoEen8t6Wym7DTwoWXvJgJ3 +fbsgQVJmOe9yD9cjkCyRSU6hPPmybTLNmEAFQ4OdYZTrLU1jqpBAsy3kzt2U +Ex7flX/3J4FWLMcUQ8p7jFTKJ60JtOmblpWgPLdRdEBtF4GJvGemGqnznMmU +idJ2I7CgPFAhlfKP1UosQw8Cw50mCw9THpsy9N16mMCr/a8H+Sl/894qbB1A +YMlE4+V26v360mVH2h8j0MLpaNZ1ykN1XjNup6n1H9W/yVIeVAtI2xdN4MrR +7nV91Pv7PjvE5OBFqh5v0PMblDvPXo4+epXAB0eLLYUoP7WpEonJJ/CT3eTG +F1T/tDx4zL1cRODLnBbOScpPNJ47XuMQGEpbnaNI+aH4P+lZNQTueIZtPrrU +efWtUKl4QeCVlwd29VD9y7GVeFr7hsB7337vDPx/fz9S9K/vIjDdtqyJl3JB +rk75s38IVP1eu4yKPEj/ay8MTRNYFKIqakbNixv9h4Y+/yKwpdr4USM1T5Lt +j50fXSLQIED9ixnlBO2YZz+FmOh/Vq3YUJ0L0fNc59UKTJT9XSsspEr1R9yy +IybmTExzWC2oSc2zQwurxc1smFjuFfwglpp3BwNlKi22M/FhYu2vD0pc2LdT +4/cONyb2xPiKxrC44CjrGnM4gIlbx4MfV1Pz1KS4JCclhYkJ+Xb8+dR87qMX +Z//5NxNrfsokfKLmeVjKnawf2UxMvHhrkUm5KqogY8cdJn5w/pCSTqP63SUn +VeQ+E83jJGoCJLiwflly4oV/mBhRFOVfTuVHa1jSFd3/qPvpeT54Q+XLwfHE +hI/DTLzuQeMZp/Inr+9yvNkPJsbH0z1ZK7lAv3sxZlGAhYoCmrePL6f6yeNU +ZLAqCxmpshPlVJ5VvA2NUNrEQksX92d3F0lwtA4581aXhbrpX/I4VP4l6Z4I +1wIWFpjxueZSeSm8KjBkzIGFr9sD+4JmSeCv2X/k4EkWckbc5u+OkTAhZr3P +qYGF6iVFlg/6SOj2I175trAw/G5K8H4qj+ubf0HEcxaqVbf7LOshITGsWLGw +k4XmES6pWztJ0BxaNTg3zMLULA/7QirvA7gv3TPFlVDasZ1XoImEYftduz8e +UEJZxtACo4SEN3fUnv08rIRzN3/lRxWRUMsnYCwcqISmQxXag4UkxFZVyuiF +KmGV8gn+ZOp7ZZ0irffiZSUMoj1L+5hFgs9Yr8vGSiW8s97vEnGVhI/x+5yC +litj27V+c+njVP1hVUJzlTIe9Qr45hxEwqzF3OioqDKarhzqST5Cwgq+pPOH +ZZSxtkkuVcif2n9o4719asroP3W9fMCbhNPeyuL2O5VxIbZLx8CZBEnTkZcb +s5VxZkKxr8yABKvvJ60+6angwf4bgg9HOSC3SeGCoIkKlu62TBL7yoGxoCcN +GzerYHpnT67XRw4kz4iaBNmoYHuW9aH5Xg4MLNxRX/JQwWvBcrV/tHIgaNV7 +celYFfz7OE/OXzc5kL4eB7b1qWC/30BQkwMHRrwEj92LWIehkXczpO+UUf8j +UrwXG9ajfMiAaC67FMReKCeQ3zegh6u+yeOnxSAXw9mup6eKwi1yk5kKRZC6 +0VBU3EcNhehXjoqfKYSnMpt1p66qY+jvy1uK3heAkVxDokanBh6N8zqevDYf +RPhuHfeM1sTvjAsqFf65oBClaOKqvAmZY4biCiU3QUhpT+WOlk1YZrAgEMWT +A+psac5Jdy3cNl9ob8CXCUEDYo3WPNooIVrxemg0Db5Pxe+yStXGrpOjyVIG +N8BCozndSk0Hu1w8pg3qkuHhlPH8bLsObl/fFpFhlAQBqlq9r7110Ua6dJ2s +RCKwxw68dRXSQ+2Vu3vuf4uDP1k0W+Fbeui7SpN3fFcMrIu8FNKgr4/zykPR +fevPwwZvw0dKvfp48Iz5p2bJaPB+eOjcvaMGuEhkdKZLRsCjnLcHJiQMUWtB +gj/EOAx+FC7NalQZYozX5MuotcHgpVQslG5rhDordJ/5VQTBxIZrenfHjXDi +vXT9K1ogVOfN/zMdY4xlfc6mboK+4LaVicYKJqg91tt04Ik3yPpfrFGvN8FX +452/ld95QsLSQd24BhP0DXOcr2rxBN4kc+7nJybYN0M0ONR6wnDlsjs5bSbY +9NIzJTvbE2p5zqWKdZjg3vmInlxfT3BLjjw588kE5UIqX1rzekJqXajuw5Vs +VDpjMTWpvw8kVvhxbZ3Z+Orh1Q2HT7pD3pbTYeOubPy3Q/w2/1530DqdsOXa +Hmr9j2sW5VvdwW6cfNftyUYr+9ImKzF3uNA5Peflx8b4dnqgW9ke+Hkrwiws +io1zMutteYZ3Q6/xtY6CYjaWFAj0CQe6waETeRlWZWxMcqWFzTq7wUxZhfcI +ycaskMX2SXQDMaJ7dlMlG+3v1vkriLuBjaC83IN6Nl48vcHSstoV7r8tONDx +jo0uGo/a3i9zBWuRarXgbjaKlO6+8f67C3RbtM3Q+tho7V7nO9rjAj9qv8Xs +/cBG0y0HZjeXuYDaTc3Sr8Ns1M9oCK1wdoH7vZuD40fZOGTx0NzEzAWs1+4E +jXE2+sjoN3aousDBiydeH59m4x++ndk6vNT96i+kS/2k6tXnDi+MOEP0rxte +tb/Y+HXMuLaryxlEde6oui+wUZGxyNfQ4AxZ/rXTS0tsjNS2e3C/1Bn+B34E +YVM= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -13411,158 +13960,117 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ -Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH -/49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a -j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ -HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 -PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L -sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 -y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To -OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA -XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV -WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl -Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw -kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H -JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 -maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt -NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe -vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ -ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv -ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B -1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS -pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk -VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU -Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj -SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs -+TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F -jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL -c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt -t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA -t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 -PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp -cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr -ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe -DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd -dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 -TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU -RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP -Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh -nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 -PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv -Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac -X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU -CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e -N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T -3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T -sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z -bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O -s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 -hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih -Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v -JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O -fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci -vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ -2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL -lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z -Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu -1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl -qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 -B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 -YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 -6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ -T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw -RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w -n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P -r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik -ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 -pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l -HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh -S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 -EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK -rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 -GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu -OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo -lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l -HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 -lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 -dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR -ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX -7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu -fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg -eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn -YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE -9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS -WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ -Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 -85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV -icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ -xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum -j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l -rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ -dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu -hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w -cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH -ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD -69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 -w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme -MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn -PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 -wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G -XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu -6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH -x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD -5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m -zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ -tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u -wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe -Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF -oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl -9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY -caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU -Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo -f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 -3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN -hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf -Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis -j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB -LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 -eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo -qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O -03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 -NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 -cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 -pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu -KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA -YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn -yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me -g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ -V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw -EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg -5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv -fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo -9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= +1:eJwV13k4VesXB3AXiYpEOOZz9jloMGWejrVS1xhSMpUkSbmGUgkpQxORJAnX +VIZkOvskc4PI1KBBGUPXrVsJGUISfvv3134+z/M+e73Pfvda370Z+wN3ePPy +8PAs/4OH5//XmYG2J6y4PFOrZe0HB7TQ9G0WLXRzdzQodkx8/FIlDyjxcj+t +OwkOhvgK51epQfD2oi6+7lsQ75F8MqSKDWvGpJLmuu7C9GjVOf0qWxi8bxf4 +o6sBapJ6A/wq3cGcNdw/0fUGNq01yN1T7g9zXfrXx7uGYHGh77H67dPQuOV2 +3utbU3CZpluhVJYAcoM1/+1XXQDX961eZ2JTYK2fR9HyLXxY2R639Yx9JiRt +Mq+z2yWI468+hD9QvAU9qZr1E6LCuOTbNrlEz4e4vIiXvNJrUKhB7OFbqUKQ +Sv439lqmOKpUr5i6V1IEFx2tTN/MSGD4yRRV1SclIHOvXYb3D0lMdGzvj3te +AmXijrObVkriuQDzs5/elkDnm73kVUVJPB2jdPvCpxJgORwnHCwlcZeSi0Gk +QCk02GYLvEqTRC0Hgwp7i1JYMJ9uf2EihSlBTqpuT0rhmOFNj7ZoGjY+ao77 +UVwG1jkiP2ziaRj6zmHO6W4ZEMvDY9qv07A8e+FXeXUZvHrrxO0opKHAXrsa +96YyUD+yim+gnYZ1E7a0IwNl8KXgZMGkjDSKZ1fTEldzYM9au1HZcmmUXCPB +rvPngPapuqis+9JYMxidGXiMAyuG1kkymqUxdFtzrEIoB2o4fKDcI41qAmrL +/M5xQNKmJlFzSRofvz58timdA6+iWDp/2shgqPKm6KBmDmz9/iss4F8ZVB5T +XOpZRUKoZfKGxyMy2MiTo7t9NQllN9V6xWdkMOsfo+eNa0igOe4zrBGURaFL +r6VzJUkYqW6a5VOXxeZ5OX0zOgnXohOPp4XIYuFa6yhebRKGJJQDngjL4XPp +Hdw4JxKkAh/JS0nJYfpVK54yFxK2tbq8OEyXw++EFveFGwmVYXGqq7Xl0Hc/ +GC7zIOHS4Piwq4sc9onYfXL0IUHrTp3P91ty6J+c1BJ8koQoEwdPGQN5DP9W +V9R0nQTLvVmT+mby+DXnHafuBgkikd/O7tomj7d9IvPL0kjIaDxfkLhPHve+ +D/eKyySh2rr2m0CsPG7fMKZJzydh3IUZPNUjjzlnE22qykmoCjuyfM1HeZy3 +2BASXkHCmYwHqepj8mjUFJ9mWkXCqg/OdYd5FbDbpKeuppYEFZ94ng8bFDB4 +3dKFuMck7D0xfen5KQVc6z1wOrOdBKUbZnLD5xWw4M06Oa1X/39+V0qXJyrg +zufO9xpfkxD2e/0rszwFDFjR1tH/loTrZ/dK1DxXwLTu8e7RXhKeX23JzpdX +RAuHEbvT/5FgVJZ278wjRTzgvb54zzwJW7vaF8ZaFXF75ei98N8k2PHwW3i8 +UcSKbd0q6QskeO0I6IFPihiTnW79YokE81OMiMhldFRXsE9Yy8+FI4ozuZs3 +0nHOye2AyiouTJcnts5p0NFWjFBXEOZCmOXGUa4OHXU2b/YRE+HC+aP79AhT +OuY+VFk/tZoL6Y1PW3kd6NhyiTl7XZwLT3yyRxuD6RgiuUXGU4YLVr8NxcJP +0THz38qVGrJcaE98q6cTSUcPAftjvyj31AhF5sXSUcvjXkGsPBfGVh4XO59B +x9PPR4pi6Vw4liOiz75JR9mrNLctDC781LmzezqfjsOigmd/UebbO5DnzaGj +ykrhrZ5MLtBIS33zBjoqvn56RVSZC5lb/9292ExH/i2qMpWUiZ7TkZXP6NjI +L0m4qnBBjbe8TfkdHauKAkturOOCmaP8nuVf6OjW1FU9s4ELfj8nIluFGcgy +N1Bka3DB6OhByf/EGPi5wEG1ibLgcG8xH42BvLbj9taaXMjva+w0JRj4rNKj +32YTFwYeXlet0GPggb9vMlW1uVCiv6LhjTEDDQ+FzWZQDiPPOI8jAzvrNT+v +0OGC5C2f6I02VL3IcbkByvbnDbtvejBwunXxh6ceFxQWS/0fHWCgjMUfdXWU +R4IJvv7DDHwQcPiWmD4XYg6tVKcdZyCt1aS7irLTPxGNuqEMrOgQWydgwAWW +2w+XnWcYWGjMynCgXG/TfzYhhqr3unNqkHLCEwfpkssMNM7/0k0YcmEPu7ms +LYmBjQypT/spz6lzevgzGXjesvxEL+XW28xA4hYDrZ1uzK8x4kIKPZUfbzPw +6ptzxeaUtcSiNE5xGejDORJ/mzJP3PST1EoGVtK/Peyg3M7n61ZZx8A1DB+F +BcoZ4QPfO+oZKHAqr5hpzIW/pnecn2hioF2Jl48FZaOAFpnVzxho+8l7xyHK +gp+NSdVXDPxb0N//AuVOD/JP63cMDCkyrrlJOa+b1efTy0B70et6tZSDHNKO +nB9koIkm+7+XlPGpsEDuRwbGkj9bhyiLbIn+u/4rA+mf4wcnKffXzWgOjDGQ +6Hm0gceEOj+dv5rnpxjoYORSvIJyWOngbuk5Bqb5ye8Xo2yp7Diht8jAxIgu +eynKktmtFxz5CBzVsD8hTfmjFFsuSJDA5Z9tO2iU7yZyuVeECXStzfSVoBwp +pGxRKkbgoq+QyWrK9tHp759KEbjee4+lAGWFeZGgL3IEFj7an/iL2t/IsbPL +BQgCPYy/rh2hXDsym8FUIbDZ7EFnL+UYbz+tzaoEen8t6Wym7DTwoWXvJgJ3 +fbsgQVJmOe9yD9cjkCyRSU6hPPmybTLNmEAFQ4OdYZTrLU1jqpBAsy3kzt2U +Ex7flX/3J4FWLMcUQ8p7jFTKJ60JtOmblpWgPLdRdEBtF4GJvGemGqnznMmU +idJ2I7CgPFAhlfKP1UosQw8Cw50mCw9THpsy9N16mMCr/a8H+Sl/894qbB1A +YMlE4+V26v360mVH2h8j0MLpaNZ1ykN1XjNup6n1H9W/yVIeVAtI2xdN4MrR +7nV91Pv7PjvE5OBFqh5v0PMblDvPXo4+epXAB0eLLYUoP7WpEonJJ/CT3eTG +F1T/tDx4zL1cRODLnBbOScpPNJ47XuMQGEpbnaNI+aH4P+lZNQTueIZtPrrU +efWtUKl4QeCVlwd29VD9y7GVeFr7hsB7337vDPx/fz9S9K/vIjDdtqyJl3JB +rk75s38IVP1eu4yKPEj/ay8MTRNYFKIqakbNixv9h4Y+/yKwpdr4USM1T5Lt +j50fXSLQIED9ixnlBO2YZz+FmOh/Vq3YUJ0L0fNc59UKTJT9XSsspEr1R9yy +IybmTExzWC2oSc2zQwurxc1smFjuFfwglpp3BwNlKi22M/FhYu2vD0pc2LdT +4/cONyb2xPiKxrC44CjrGnM4gIlbx4MfV1Pz1KS4JCclhYkJ+Xb8+dR87qMX +Z//5NxNrfsokfKLmeVjKnawf2UxMvHhrkUm5KqogY8cdJn5w/pCSTqP63SUn +VeQ+E83jJGoCJLiwflly4oV/mBhRFOVfTuVHa1jSFd3/qPvpeT54Q+XLwfHE +hI/DTLzuQeMZp/Inr+9yvNkPJsbH0z1ZK7lAv3sxZlGAhYoCmrePL6f6yeNU +ZLAqCxmpshPlVJ5VvA2NUNrEQksX92d3F0lwtA4581aXhbrpX/I4VP4l6Z4I +1wIWFpjxueZSeSm8KjBkzIGFr9sD+4JmSeCv2X/k4EkWckbc5u+OkTAhZr3P +qYGF6iVFlg/6SOj2I175trAw/G5K8H4qj+ubf0HEcxaqVbf7LOshITGsWLGw +k4XmES6pWztJ0BxaNTg3zMLULA/7QirvA7gv3TPFlVDasZ1XoImEYftduz8e +UEJZxtACo4SEN3fUnv08rIRzN3/lRxWRUMsnYCwcqISmQxXag4UkxFZVyuiF +KmGV8gn+ZOp7ZZ0irffiZSUMoj1L+5hFgs9Yr8vGSiW8s97vEnGVhI/x+5yC +litj27V+c+njVP1hVUJzlTIe9Qr45hxEwqzF3OioqDKarhzqST5Cwgq+pPOH +ZZSxtkkuVcif2n9o4719asroP3W9fMCbhNPeyuL2O5VxIbZLx8CZBEnTkZcb +s5VxZkKxr8yABKvvJ60+6angwf4bgg9HOSC3SeGCoIkKlu62TBL7yoGxoCcN +GzerYHpnT67XRw4kz4iaBNmoYHuW9aH5Xg4MLNxRX/JQwWvBcrV/tHIgaNV7 +celYFfz7OE/OXzc5kL4eB7b1qWC/30BQkwMHRrwEj92LWIehkXczpO+UUf8j +UrwXG9ajfMiAaC67FMReKCeQ3zegh6u+yeOnxSAXw9mup6eKwi1yk5kKRZC6 +0VBU3EcNhehXjoqfKYSnMpt1p66qY+jvy1uK3heAkVxDokanBh6N8zqevDYf +RPhuHfeM1sTvjAsqFf65oBClaOKqvAmZY4biCiU3QUhpT+WOlk1YZrAgEMWT +A+psac5Jdy3cNl9ob8CXCUEDYo3WPNooIVrxemg0Db5Pxe+yStXGrpOjyVIG +N8BCozndSk0Hu1w8pg3qkuHhlPH8bLsObl/fFpFhlAQBqlq9r7110Ua6dJ2s +RCKwxw68dRXSQ+2Vu3vuf4uDP1k0W+Fbeui7SpN3fFcMrIu8FNKgr4/zykPR +fevPwwZvw0dKvfp48Iz5p2bJaPB+eOjcvaMGuEhkdKZLRsCjnLcHJiQMUWtB +gj/EOAx+FC7NalQZYozX5MuotcHgpVQslG5rhDordJ/5VQTBxIZrenfHjXDi +vXT9K1ogVOfN/zMdY4xlfc6mboK+4LaVicYKJqg91tt04Ik3yPpfrFGvN8FX +452/ld95QsLSQd24BhP0DXOcr2rxBN4kc+7nJybYN0M0ONR6wnDlsjs5bSbY +9NIzJTvbE2p5zqWKdZjg3vmInlxfT3BLjjw588kE5UIqX1rzekJqXajuw5Vs +VDpjMTWpvw8kVvhxbZ3Z+Orh1Q2HT7pD3pbTYeOubPy3Q/w2/1530DqdsOXa +Hmr9j2sW5VvdwW6cfNftyUYr+9ImKzF3uNA5Peflx8b4dnqgW9ke+Hkrwiws +io1zMutteYZ3Q6/xtY6CYjaWFAj0CQe6waETeRlWZWxMcqWFzTq7wUxZhfcI +ycaskMX2SXQDMaJ7dlMlG+3v1vkriLuBjaC83IN6Nl48vcHSstoV7r8tONDx +jo0uGo/a3i9zBWuRarXgbjaKlO6+8f67C3RbtM3Q+tho7V7nO9rjAj9qv8Xs +/cBG0y0HZjeXuYDaTc3Sr8Ns1M9oCK1wdoH7vZuD40fZOGTx0NzEzAWs1+4E +jXE2+sjoN3aousDBiydeH59m4x++ndk6vNT96i+kS/2k6tXnDi+MOEP0rxte +tb/Y+HXMuLaryxlEde6oui+wUZGxyNfQ4AxZ/rXTS0tsjNS2e3C/1Bn+B34E +YVM= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "PlotRange" -> {{0, 30}, {0., 0.06732329477307504}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -13574,19 +14082,19 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "PlotRange" -> {{0, 30}, {0., 0.06732329477307504}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13600,157 +14108,116 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ -Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH -/49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a -j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ -HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 -PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L -sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 -y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To -OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA -XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV -WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl -Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw -kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H -JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 -maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt -NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe -vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ -ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv -ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B -1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS -pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk -VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU -Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj -SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs -+TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F -jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL -c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt -t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA -t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 -PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp -cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr -ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe -DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd -dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 -TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU -RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP -Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh -nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 -PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv -Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac -X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU -CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e -N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T -3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T -sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z -bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O -s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 -hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih -Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v -JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O -fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci -vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ -2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL -lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z -Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu -1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl -qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 -B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 -YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 -6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ -T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw -RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w -n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P -r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik -ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 -pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l -HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh -S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 -EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK -rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 -GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu -OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo -lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l -HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 -lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 -dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR -ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX -7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu -fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg -eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn -YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE -9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS -WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ -Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 -85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV -icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ -xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum -j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l -rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ -dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu -hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w -cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH -ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD -69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 -w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme -MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn -PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 -wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G -XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu -6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH -x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD -5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m -zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ -tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u -wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe -Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF -oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl -9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY -caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU -Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo -f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 -3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN -hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf -Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis -j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB -LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 -eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo -qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O -03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 -NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 -cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 -pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu -KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA -YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn -yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me -g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ -V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw -EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg -5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv -fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo -9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= +1:eJwV13k4VesXB3AXiYpEOOZz9jloMGWejrVS1xhSMpUkSbmGUgkpQxORJAnX +VIZkOvskc4PI1KBBGUPXrVsJGUISfvv3134+z/M+e73Pfvda370Z+wN3ePPy +8PAs/4OH5//XmYG2J6y4PFOrZe0HB7TQ9G0WLXRzdzQodkx8/FIlDyjxcj+t +OwkOhvgK51epQfD2oi6+7lsQ75F8MqSKDWvGpJLmuu7C9GjVOf0qWxi8bxf4 +o6sBapJ6A/wq3cGcNdw/0fUGNq01yN1T7g9zXfrXx7uGYHGh77H67dPQuOV2 +3utbU3CZpluhVJYAcoM1/+1XXQDX961eZ2JTYK2fR9HyLXxY2R639Yx9JiRt +Mq+z2yWI468+hD9QvAU9qZr1E6LCuOTbNrlEz4e4vIiXvNJrUKhB7OFbqUKQ +Sv439lqmOKpUr5i6V1IEFx2tTN/MSGD4yRRV1SclIHOvXYb3D0lMdGzvj3te +AmXijrObVkriuQDzs5/elkDnm73kVUVJPB2jdPvCpxJgORwnHCwlcZeSi0Gk +QCk02GYLvEqTRC0Hgwp7i1JYMJ9uf2EihSlBTqpuT0rhmOFNj7ZoGjY+ao77 +UVwG1jkiP2ziaRj6zmHO6W4ZEMvDY9qv07A8e+FXeXUZvHrrxO0opKHAXrsa +96YyUD+yim+gnYZ1E7a0IwNl8KXgZMGkjDSKZ1fTEldzYM9au1HZcmmUXCPB +rvPngPapuqis+9JYMxidGXiMAyuG1kkymqUxdFtzrEIoB2o4fKDcI41qAmrL +/M5xQNKmJlFzSRofvz58timdA6+iWDp/2shgqPKm6KBmDmz9/iss4F8ZVB5T +XOpZRUKoZfKGxyMy2MiTo7t9NQllN9V6xWdkMOsfo+eNa0igOe4zrBGURaFL +r6VzJUkYqW6a5VOXxeZ5OX0zOgnXohOPp4XIYuFa6yhebRKGJJQDngjL4XPp +Hdw4JxKkAh/JS0nJYfpVK54yFxK2tbq8OEyXw++EFveFGwmVYXGqq7Xl0Hc/ +GC7zIOHS4Piwq4sc9onYfXL0IUHrTp3P91ty6J+c1BJ8koQoEwdPGQN5DP9W +V9R0nQTLvVmT+mby+DXnHafuBgkikd/O7tomj7d9IvPL0kjIaDxfkLhPHve+ +D/eKyySh2rr2m0CsPG7fMKZJzydh3IUZPNUjjzlnE22qykmoCjuyfM1HeZy3 +2BASXkHCmYwHqepj8mjUFJ9mWkXCqg/OdYd5FbDbpKeuppYEFZ94ng8bFDB4 +3dKFuMck7D0xfen5KQVc6z1wOrOdBKUbZnLD5xWw4M06Oa1X/39+V0qXJyrg +zufO9xpfkxD2e/0rszwFDFjR1tH/loTrZ/dK1DxXwLTu8e7RXhKeX23JzpdX +RAuHEbvT/5FgVJZ278wjRTzgvb54zzwJW7vaF8ZaFXF75ei98N8k2PHwW3i8 +UcSKbd0q6QskeO0I6IFPihiTnW79YokE81OMiMhldFRXsE9Yy8+FI4ozuZs3 +0nHOye2AyiouTJcnts5p0NFWjFBXEOZCmOXGUa4OHXU2b/YRE+HC+aP79AhT +OuY+VFk/tZoL6Y1PW3kd6NhyiTl7XZwLT3yyRxuD6RgiuUXGU4YLVr8NxcJP +0THz38qVGrJcaE98q6cTSUcPAftjvyj31AhF5sXSUcvjXkGsPBfGVh4XO59B +x9PPR4pi6Vw4liOiz75JR9mrNLctDC781LmzezqfjsOigmd/UebbO5DnzaGj +ykrhrZ5MLtBIS33zBjoqvn56RVSZC5lb/9292ExH/i2qMpWUiZ7TkZXP6NjI +L0m4qnBBjbe8TfkdHauKAkturOOCmaP8nuVf6OjW1FU9s4ELfj8nIluFGcgy +N1Bka3DB6OhByf/EGPi5wEG1ibLgcG8xH42BvLbj9taaXMjva+w0JRj4rNKj +32YTFwYeXlet0GPggb9vMlW1uVCiv6LhjTEDDQ+FzWZQDiPPOI8jAzvrNT+v +0OGC5C2f6I02VL3IcbkByvbnDbtvejBwunXxh6ceFxQWS/0fHWCgjMUfdXWU +R4IJvv7DDHwQcPiWmD4XYg6tVKcdZyCt1aS7irLTPxGNuqEMrOgQWydgwAWW +2w+XnWcYWGjMynCgXG/TfzYhhqr3unNqkHLCEwfpkssMNM7/0k0YcmEPu7ms +LYmBjQypT/spz6lzevgzGXjesvxEL+XW28xA4hYDrZ1uzK8x4kIKPZUfbzPw +6ptzxeaUtcSiNE5xGejDORJ/mzJP3PST1EoGVtK/Peyg3M7n61ZZx8A1DB+F +BcoZ4QPfO+oZKHAqr5hpzIW/pnecn2hioF2Jl48FZaOAFpnVzxho+8l7xyHK +gp+NSdVXDPxb0N//AuVOD/JP63cMDCkyrrlJOa+b1efTy0B70et6tZSDHNKO +nB9koIkm+7+XlPGpsEDuRwbGkj9bhyiLbIn+u/4rA+mf4wcnKffXzWgOjDGQ +6Hm0gceEOj+dv5rnpxjoYORSvIJyWOngbuk5Bqb5ye8Xo2yp7Diht8jAxIgu +eynKktmtFxz5CBzVsD8hTfmjFFsuSJDA5Z9tO2iU7yZyuVeECXStzfSVoBwp +pGxRKkbgoq+QyWrK9tHp759KEbjee4+lAGWFeZGgL3IEFj7an/iL2t/IsbPL +BQgCPYy/rh2hXDsym8FUIbDZ7EFnL+UYbz+tzaoEen8t6Wym7DTwoWXvJgJ3 +fbsgQVJmOe9yD9cjkCyRSU6hPPmybTLNmEAFQ4OdYZTrLU1jqpBAsy3kzt2U +Ex7flX/3J4FWLMcUQ8p7jFTKJ60JtOmblpWgPLdRdEBtF4GJvGemGqnznMmU +idJ2I7CgPFAhlfKP1UosQw8Cw50mCw9THpsy9N16mMCr/a8H+Sl/894qbB1A +YMlE4+V26v360mVH2h8j0MLpaNZ1ykN1XjNup6n1H9W/yVIeVAtI2xdN4MrR +7nV91Pv7PjvE5OBFqh5v0PMblDvPXo4+epXAB0eLLYUoP7WpEonJJ/CT3eTG +F1T/tDx4zL1cRODLnBbOScpPNJ47XuMQGEpbnaNI+aH4P+lZNQTueIZtPrrU +efWtUKl4QeCVlwd29VD9y7GVeFr7hsB7337vDPx/fz9S9K/vIjDdtqyJl3JB +rk75s38IVP1eu4yKPEj/ay8MTRNYFKIqakbNixv9h4Y+/yKwpdr4USM1T5Lt +j50fXSLQIED9ixnlBO2YZz+FmOh/Vq3YUJ0L0fNc59UKTJT9XSsspEr1R9yy +IybmTExzWC2oSc2zQwurxc1smFjuFfwglpp3BwNlKi22M/FhYu2vD0pc2LdT +4/cONyb2xPiKxrC44CjrGnM4gIlbx4MfV1Pz1KS4JCclhYkJ+Xb8+dR87qMX +Z//5NxNrfsokfKLmeVjKnawf2UxMvHhrkUm5KqogY8cdJn5w/pCSTqP63SUn +VeQ+E83jJGoCJLiwflly4oV/mBhRFOVfTuVHa1jSFd3/qPvpeT54Q+XLwfHE +hI/DTLzuQeMZp/Inr+9yvNkPJsbH0z1ZK7lAv3sxZlGAhYoCmrePL6f6yeNU +ZLAqCxmpshPlVJ5VvA2NUNrEQksX92d3F0lwtA4581aXhbrpX/I4VP4l6Z4I +1wIWFpjxueZSeSm8KjBkzIGFr9sD+4JmSeCv2X/k4EkWckbc5u+OkTAhZr3P +qYGF6iVFlg/6SOj2I175trAw/G5K8H4qj+ubf0HEcxaqVbf7LOshITGsWLGw +k4XmES6pWztJ0BxaNTg3zMLULA/7QirvA7gv3TPFlVDasZ1XoImEYftduz8e +UEJZxtACo4SEN3fUnv08rIRzN3/lRxWRUMsnYCwcqISmQxXag4UkxFZVyuiF +KmGV8gn+ZOp7ZZ0irffiZSUMoj1L+5hFgs9Yr8vGSiW8s97vEnGVhI/x+5yC +litj27V+c+njVP1hVUJzlTIe9Qr45hxEwqzF3OioqDKarhzqST5Cwgq+pPOH +ZZSxtkkuVcif2n9o4719asroP3W9fMCbhNPeyuL2O5VxIbZLx8CZBEnTkZcb +s5VxZkKxr8yABKvvJ60+6angwf4bgg9HOSC3SeGCoIkKlu62TBL7yoGxoCcN +GzerYHpnT67XRw4kz4iaBNmoYHuW9aH5Xg4MLNxRX/JQwWvBcrV/tHIgaNV7 +celYFfz7OE/OXzc5kL4eB7b1qWC/30BQkwMHRrwEj92LWIehkXczpO+UUf8j +UrwXG9ajfMiAaC67FMReKCeQ3zegh6u+yeOnxSAXw9mup6eKwi1yk5kKRZC6 +0VBU3EcNhehXjoqfKYSnMpt1p66qY+jvy1uK3heAkVxDokanBh6N8zqevDYf +RPhuHfeM1sTvjAsqFf65oBClaOKqvAmZY4biCiU3QUhpT+WOlk1YZrAgEMWT +A+psac5Jdy3cNl9ob8CXCUEDYo3WPNooIVrxemg0Db5Pxe+yStXGrpOjyVIG +N8BCozndSk0Hu1w8pg3qkuHhlPH8bLsObl/fFpFhlAQBqlq9r7110Ua6dJ2s +RCKwxw68dRXSQ+2Vu3vuf4uDP1k0W+Fbeui7SpN3fFcMrIu8FNKgr4/zykPR +fevPwwZvw0dKvfp48Iz5p2bJaPB+eOjcvaMGuEhkdKZLRsCjnLcHJiQMUWtB +gj/EOAx+FC7NalQZYozX5MuotcHgpVQslG5rhDordJ/5VQTBxIZrenfHjXDi +vXT9K1ogVOfN/zMdY4xlfc6mboK+4LaVicYKJqg91tt04Ik3yPpfrFGvN8FX +452/ld95QsLSQd24BhP0DXOcr2rxBN4kc+7nJybYN0M0ONR6wnDlsjs5bSbY +9NIzJTvbE2p5zqWKdZjg3vmInlxfT3BLjjw588kE5UIqX1rzekJqXajuw5Vs +VDpjMTWpvw8kVvhxbZ3Z+Orh1Q2HT7pD3pbTYeOubPy3Q/w2/1530DqdsOXa +Hmr9j2sW5VvdwW6cfNftyUYr+9ImKzF3uNA5Peflx8b4dnqgW9ke+Hkrwiws +io1zMutteYZ3Q6/xtY6CYjaWFAj0CQe6waETeRlWZWxMcqWFzTq7wUxZhfcI +ycaskMX2SXQDMaJ7dlMlG+3v1vkriLuBjaC83IN6Nl48vcHSstoV7r8tONDx +jo0uGo/a3i9zBWuRarXgbjaKlO6+8f67C3RbtM3Q+tho7V7nO9rjAj9qv8Xs +/cBG0y0HZjeXuYDaTc3Sr8Ns1M9oCK1wdoH7vZuD40fZOGTx0NzEzAWs1+4E +jXE2+sjoN3aousDBiydeH59m4x++ndk6vNT96i+kS/2k6tXnDi+MOEP0rxte +tb/Y+HXMuLaryxlEde6oui+wUZGxyNfQ4AxZ/rXTS0tsjNS2e3C/1Bn+B34E +YVM= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "PlotRange" -> {{0, 30}, {0., 0.06732329477307504}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13761,6 +14228,7 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -13788,7 +14256,8 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.16919668648256683`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06732329477307504}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -13796,17 +14265,571 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913483238131485`*^9}, + CellChangeTimes->{3.9913483238131485`*^9, 3.994260739837089*^9}, CellLabel-> - "Out[470]=",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] + "Out[140]=",ExpressionUUID->"8d6423c0-0ad3-4664-a156-9ed9c446d949"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"54d9c986-d109-3d4c-9ee8-\ -76427bb63659"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VesXB3AXiYpEOOZz9jloMGWejrVS1xhSMpUkSbmGUgkpQxORJAnX +VIZkOvskc4PI1KBBGUPXrVsJGUISfvv3134+z/M+e73Pfvda370Z+wN3ePPy +8PAs/4OH5//XmYG2J6y4PFOrZe0HB7TQ9G0WLXRzdzQodkx8/FIlDyjxcj+t +OwkOhvgK51epQfD2oi6+7lsQ75F8MqSKDWvGpJLmuu7C9GjVOf0qWxi8bxf4 +o6sBapJ6A/wq3cGcNdw/0fUGNq01yN1T7g9zXfrXx7uGYHGh77H67dPQuOV2 +3utbU3CZpluhVJYAcoM1/+1XXQDX961eZ2JTYK2fR9HyLXxY2R639Yx9JiRt +Mq+z2yWI468+hD9QvAU9qZr1E6LCuOTbNrlEz4e4vIiXvNJrUKhB7OFbqUKQ +Sv439lqmOKpUr5i6V1IEFx2tTN/MSGD4yRRV1SclIHOvXYb3D0lMdGzvj3te +AmXijrObVkriuQDzs5/elkDnm73kVUVJPB2jdPvCpxJgORwnHCwlcZeSi0Gk +QCk02GYLvEqTRC0Hgwp7i1JYMJ9uf2EihSlBTqpuT0rhmOFNj7ZoGjY+ao77 +UVwG1jkiP2ziaRj6zmHO6W4ZEMvDY9qv07A8e+FXeXUZvHrrxO0opKHAXrsa +96YyUD+yim+gnYZ1E7a0IwNl8KXgZMGkjDSKZ1fTEldzYM9au1HZcmmUXCPB +rvPngPapuqis+9JYMxidGXiMAyuG1kkymqUxdFtzrEIoB2o4fKDcI41qAmrL +/M5xQNKmJlFzSRofvz58timdA6+iWDp/2shgqPKm6KBmDmz9/iss4F8ZVB5T +XOpZRUKoZfKGxyMy2MiTo7t9NQllN9V6xWdkMOsfo+eNa0igOe4zrBGURaFL +r6VzJUkYqW6a5VOXxeZ5OX0zOgnXohOPp4XIYuFa6yhebRKGJJQDngjL4XPp +Hdw4JxKkAh/JS0nJYfpVK54yFxK2tbq8OEyXw++EFveFGwmVYXGqq7Xl0Hc/ +GC7zIOHS4Piwq4sc9onYfXL0IUHrTp3P91ty6J+c1BJ8koQoEwdPGQN5DP9W +V9R0nQTLvVmT+mby+DXnHafuBgkikd/O7tomj7d9IvPL0kjIaDxfkLhPHve+ +D/eKyySh2rr2m0CsPG7fMKZJzydh3IUZPNUjjzlnE22qykmoCjuyfM1HeZy3 +2BASXkHCmYwHqepj8mjUFJ9mWkXCqg/OdYd5FbDbpKeuppYEFZ94ng8bFDB4 +3dKFuMck7D0xfen5KQVc6z1wOrOdBKUbZnLD5xWw4M06Oa1X/39+V0qXJyrg +zufO9xpfkxD2e/0rszwFDFjR1tH/loTrZ/dK1DxXwLTu8e7RXhKeX23JzpdX +RAuHEbvT/5FgVJZ278wjRTzgvb54zzwJW7vaF8ZaFXF75ei98N8k2PHwW3i8 +UcSKbd0q6QskeO0I6IFPihiTnW79YokE81OMiMhldFRXsE9Yy8+FI4ozuZs3 +0nHOye2AyiouTJcnts5p0NFWjFBXEOZCmOXGUa4OHXU2b/YRE+HC+aP79AhT +OuY+VFk/tZoL6Y1PW3kd6NhyiTl7XZwLT3yyRxuD6RgiuUXGU4YLVr8NxcJP +0THz38qVGrJcaE98q6cTSUcPAftjvyj31AhF5sXSUcvjXkGsPBfGVh4XO59B +x9PPR4pi6Vw4liOiz75JR9mrNLctDC781LmzezqfjsOigmd/UebbO5DnzaGj +ykrhrZ5MLtBIS33zBjoqvn56RVSZC5lb/9292ExH/i2qMpWUiZ7TkZXP6NjI +L0m4qnBBjbe8TfkdHauKAkturOOCmaP8nuVf6OjW1FU9s4ELfj8nIluFGcgy +N1Bka3DB6OhByf/EGPi5wEG1ibLgcG8xH42BvLbj9taaXMjva+w0JRj4rNKj +32YTFwYeXlet0GPggb9vMlW1uVCiv6LhjTEDDQ+FzWZQDiPPOI8jAzvrNT+v +0OGC5C2f6I02VL3IcbkByvbnDbtvejBwunXxh6ceFxQWS/0fHWCgjMUfdXWU +R4IJvv7DDHwQcPiWmD4XYg6tVKcdZyCt1aS7irLTPxGNuqEMrOgQWydgwAWW +2w+XnWcYWGjMynCgXG/TfzYhhqr3unNqkHLCEwfpkssMNM7/0k0YcmEPu7ms +LYmBjQypT/spz6lzevgzGXjesvxEL+XW28xA4hYDrZ1uzK8x4kIKPZUfbzPw +6ptzxeaUtcSiNE5xGejDORJ/mzJP3PST1EoGVtK/Peyg3M7n61ZZx8A1DB+F +BcoZ4QPfO+oZKHAqr5hpzIW/pnecn2hioF2Jl48FZaOAFpnVzxho+8l7xyHK +gp+NSdVXDPxb0N//AuVOD/JP63cMDCkyrrlJOa+b1efTy0B70et6tZSDHNKO +nB9koIkm+7+XlPGpsEDuRwbGkj9bhyiLbIn+u/4rA+mf4wcnKffXzWgOjDGQ +6Hm0gceEOj+dv5rnpxjoYORSvIJyWOngbuk5Bqb5ye8Xo2yp7Diht8jAxIgu +eynKktmtFxz5CBzVsD8hTfmjFFsuSJDA5Z9tO2iU7yZyuVeECXStzfSVoBwp +pGxRKkbgoq+QyWrK9tHp759KEbjee4+lAGWFeZGgL3IEFj7an/iL2t/IsbPL +BQgCPYy/rh2hXDsym8FUIbDZ7EFnL+UYbz+tzaoEen8t6Wym7DTwoWXvJgJ3 +fbsgQVJmOe9yD9cjkCyRSU6hPPmybTLNmEAFQ4OdYZTrLU1jqpBAsy3kzt2U +Ex7flX/3J4FWLMcUQ8p7jFTKJ60JtOmblpWgPLdRdEBtF4GJvGemGqnznMmU +idJ2I7CgPFAhlfKP1UosQw8Cw50mCw9THpsy9N16mMCr/a8H+Sl/894qbB1A +YMlE4+V26v360mVH2h8j0MLpaNZ1ykN1XjNup6n1H9W/yVIeVAtI2xdN4MrR +7nV91Pv7PjvE5OBFqh5v0PMblDvPXo4+epXAB0eLLYUoP7WpEonJJ/CT3eTG +F1T/tDx4zL1cRODLnBbOScpPNJ47XuMQGEpbnaNI+aH4P+lZNQTueIZtPrrU +efWtUKl4QeCVlwd29VD9y7GVeFr7hsB7337vDPx/fz9S9K/vIjDdtqyJl3JB +rk75s38IVP1eu4yKPEj/ay8MTRNYFKIqakbNixv9h4Y+/yKwpdr4USM1T5Lt +j50fXSLQIED9ixnlBO2YZz+FmOh/Vq3YUJ0L0fNc59UKTJT9XSsspEr1R9yy +IybmTExzWC2oSc2zQwurxc1smFjuFfwglpp3BwNlKi22M/FhYu2vD0pc2LdT +4/cONyb2xPiKxrC44CjrGnM4gIlbx4MfV1Pz1KS4JCclhYkJ+Xb8+dR87qMX +Z//5NxNrfsokfKLmeVjKnawf2UxMvHhrkUm5KqogY8cdJn5w/pCSTqP63SUn +VeQ+E83jJGoCJLiwflly4oV/mBhRFOVfTuVHa1jSFd3/qPvpeT54Q+XLwfHE +hI/DTLzuQeMZp/Inr+9yvNkPJsbH0z1ZK7lAv3sxZlGAhYoCmrePL6f6yeNU +ZLAqCxmpshPlVJ5VvA2NUNrEQksX92d3F0lwtA4581aXhbrpX/I4VP4l6Z4I +1wIWFpjxueZSeSm8KjBkzIGFr9sD+4JmSeCv2X/k4EkWckbc5u+OkTAhZr3P +qYGF6iVFlg/6SOj2I175trAw/G5K8H4qj+ubf0HEcxaqVbf7LOshITGsWLGw +k4XmES6pWztJ0BxaNTg3zMLULA/7QirvA7gv3TPFlVDasZ1XoImEYftduz8e +UEJZxtACo4SEN3fUnv08rIRzN3/lRxWRUMsnYCwcqISmQxXag4UkxFZVyuiF +KmGV8gn+ZOp7ZZ0irffiZSUMoj1L+5hFgs9Yr8vGSiW8s97vEnGVhI/x+5yC +litj27V+c+njVP1hVUJzlTIe9Qr45hxEwqzF3OioqDKarhzqST5Cwgq+pPOH +ZZSxtkkuVcif2n9o4719asroP3W9fMCbhNPeyuL2O5VxIbZLx8CZBEnTkZcb +s5VxZkKxr8yABKvvJ60+6angwf4bgg9HOSC3SeGCoIkKlu62TBL7yoGxoCcN +GzerYHpnT67XRw4kz4iaBNmoYHuW9aH5Xg4MLNxRX/JQwWvBcrV/tHIgaNV7 +celYFfz7OE/OXzc5kL4eB7b1qWC/30BQkwMHRrwEj92LWIehkXczpO+UUf8j +UrwXG9ajfMiAaC67FMReKCeQ3zegh6u+yeOnxSAXw9mup6eKwi1yk5kKRZC6 +0VBU3EcNhehXjoqfKYSnMpt1p66qY+jvy1uK3heAkVxDokanBh6N8zqevDYf +RPhuHfeM1sTvjAsqFf65oBClaOKqvAmZY4biCiU3QUhpT+WOlk1YZrAgEMWT +A+psac5Jdy3cNl9ob8CXCUEDYo3WPNooIVrxemg0Db5Pxe+yStXGrpOjyVIG +N8BCozndSk0Hu1w8pg3qkuHhlPH8bLsObl/fFpFhlAQBqlq9r7110Ua6dJ2s +RCKwxw68dRXSQ+2Vu3vuf4uDP1k0W+Fbeui7SpN3fFcMrIu8FNKgr4/zykPR +fevPwwZvw0dKvfp48Iz5p2bJaPB+eOjcvaMGuEhkdKZLRsCjnLcHJiQMUWtB +gj/EOAx+FC7NalQZYozX5MuotcHgpVQslG5rhDordJ/5VQTBxIZrenfHjXDi +vXT9K1ogVOfN/zMdY4xlfc6mboK+4LaVicYKJqg91tt04Ik3yPpfrFGvN8FX +452/ld95QsLSQd24BhP0DXOcr2rxBN4kc+7nJybYN0M0ONR6wnDlsjs5bSbY +9NIzJTvbE2p5zqWKdZjg3vmInlxfT3BLjjw588kE5UIqX1rzekJqXajuw5Vs +VDpjMTWpvw8kVvhxbZ3Z+Orh1Q2HT7pD3pbTYeOubPy3Q/w2/1530DqdsOXa +Hmr9j2sW5VvdwW6cfNftyUYr+9ImKzF3uNA5Peflx8b4dnqgW9ke+Hkrwiws +io1zMutteYZ3Q6/xtY6CYjaWFAj0CQe6waETeRlWZWxMcqWFzTq7wUxZhfcI +ycaskMX2SXQDMaJ7dlMlG+3v1vkriLuBjaC83IN6Nl48vcHSstoV7r8tONDx +jo0uGo/a3i9zBWuRarXgbjaKlO6+8f67C3RbtM3Q+tho7V7nO9rjAj9qv8Xs +/cBG0y0HZjeXuYDaTc3Sr8Ns1M9oCK1wdoH7vZuD40fZOGTx0NzEzAWs1+4E +jXE2+sjoN3aousDBiydeH59m4x++ndk6vNT96i+kS/2k6tXnDi+MOEP0rxte +tb/Y+HXMuLaryxlEde6oui+wUZGxyNfQ4AxZ/rXTS0tsjNS2e3C/1Bn+B34E +YVM= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VesXB3AXiYpEOOZz9jloMGWejrVS1xhSMpUkSbmGUgkpQxORJAnX +VIZkOvskc4PI1KBBGUPXrVsJGUISfvv3134+z/M+e73Pfvda370Z+wN3ePPy +8PAs/4OH5//XmYG2J6y4PFOrZe0HB7TQ9G0WLXRzdzQodkx8/FIlDyjxcj+t +OwkOhvgK51epQfD2oi6+7lsQ75F8MqSKDWvGpJLmuu7C9GjVOf0qWxi8bxf4 +o6sBapJ6A/wq3cGcNdw/0fUGNq01yN1T7g9zXfrXx7uGYHGh77H67dPQuOV2 +3utbU3CZpluhVJYAcoM1/+1XXQDX961eZ2JTYK2fR9HyLXxY2R639Yx9JiRt +Mq+z2yWI468+hD9QvAU9qZr1E6LCuOTbNrlEz4e4vIiXvNJrUKhB7OFbqUKQ +Sv439lqmOKpUr5i6V1IEFx2tTN/MSGD4yRRV1SclIHOvXYb3D0lMdGzvj3te +AmXijrObVkriuQDzs5/elkDnm73kVUVJPB2jdPvCpxJgORwnHCwlcZeSi0Gk +QCk02GYLvEqTRC0Hgwp7i1JYMJ9uf2EihSlBTqpuT0rhmOFNj7ZoGjY+ao77 +UVwG1jkiP2ziaRj6zmHO6W4ZEMvDY9qv07A8e+FXeXUZvHrrxO0opKHAXrsa +96YyUD+yim+gnYZ1E7a0IwNl8KXgZMGkjDSKZ1fTEldzYM9au1HZcmmUXCPB +rvPngPapuqis+9JYMxidGXiMAyuG1kkymqUxdFtzrEIoB2o4fKDcI41qAmrL +/M5xQNKmJlFzSRofvz58timdA6+iWDp/2shgqPKm6KBmDmz9/iss4F8ZVB5T +XOpZRUKoZfKGxyMy2MiTo7t9NQllN9V6xWdkMOsfo+eNa0igOe4zrBGURaFL +r6VzJUkYqW6a5VOXxeZ5OX0zOgnXohOPp4XIYuFa6yhebRKGJJQDngjL4XPp +Hdw4JxKkAh/JS0nJYfpVK54yFxK2tbq8OEyXw++EFveFGwmVYXGqq7Xl0Hc/ +GC7zIOHS4Piwq4sc9onYfXL0IUHrTp3P91ty6J+c1BJ8koQoEwdPGQN5DP9W +V9R0nQTLvVmT+mby+DXnHafuBgkikd/O7tomj7d9IvPL0kjIaDxfkLhPHve+ +D/eKyySh2rr2m0CsPG7fMKZJzydh3IUZPNUjjzlnE22qykmoCjuyfM1HeZy3 +2BASXkHCmYwHqepj8mjUFJ9mWkXCqg/OdYd5FbDbpKeuppYEFZ94ng8bFDB4 +3dKFuMck7D0xfen5KQVc6z1wOrOdBKUbZnLD5xWw4M06Oa1X/39+V0qXJyrg +zufO9xpfkxD2e/0rszwFDFjR1tH/loTrZ/dK1DxXwLTu8e7RXhKeX23JzpdX +RAuHEbvT/5FgVJZ278wjRTzgvb54zzwJW7vaF8ZaFXF75ei98N8k2PHwW3i8 +UcSKbd0q6QskeO0I6IFPihiTnW79YokE81OMiMhldFRXsE9Yy8+FI4ozuZs3 +0nHOye2AyiouTJcnts5p0NFWjFBXEOZCmOXGUa4OHXU2b/YRE+HC+aP79AhT +OuY+VFk/tZoL6Y1PW3kd6NhyiTl7XZwLT3yyRxuD6RgiuUXGU4YLVr8NxcJP +0THz38qVGrJcaE98q6cTSUcPAftjvyj31AhF5sXSUcvjXkGsPBfGVh4XO59B +x9PPR4pi6Vw4liOiz75JR9mrNLctDC781LmzezqfjsOigmd/UebbO5DnzaGj +ykrhrZ5MLtBIS33zBjoqvn56RVSZC5lb/9292ExH/i2qMpWUiZ7TkZXP6NjI +L0m4qnBBjbe8TfkdHauKAkturOOCmaP8nuVf6OjW1FU9s4ELfj8nIluFGcgy +N1Bka3DB6OhByf/EGPi5wEG1ibLgcG8xH42BvLbj9taaXMjva+w0JRj4rNKj +32YTFwYeXlet0GPggb9vMlW1uVCiv6LhjTEDDQ+FzWZQDiPPOI8jAzvrNT+v +0OGC5C2f6I02VL3IcbkByvbnDbtvejBwunXxh6ceFxQWS/0fHWCgjMUfdXWU +R4IJvv7DDHwQcPiWmD4XYg6tVKcdZyCt1aS7irLTPxGNuqEMrOgQWydgwAWW +2w+XnWcYWGjMynCgXG/TfzYhhqr3unNqkHLCEwfpkssMNM7/0k0YcmEPu7ms +LYmBjQypT/spz6lzevgzGXjesvxEL+XW28xA4hYDrZ1uzK8x4kIKPZUfbzPw +6ptzxeaUtcSiNE5xGejDORJ/mzJP3PST1EoGVtK/Peyg3M7n61ZZx8A1DB+F +BcoZ4QPfO+oZKHAqr5hpzIW/pnecn2hioF2Jl48FZaOAFpnVzxho+8l7xyHK +gp+NSdVXDPxb0N//AuVOD/JP63cMDCkyrrlJOa+b1efTy0B70et6tZSDHNKO +nB9koIkm+7+XlPGpsEDuRwbGkj9bhyiLbIn+u/4rA+mf4wcnKffXzWgOjDGQ +6Hm0gceEOj+dv5rnpxjoYORSvIJyWOngbuk5Bqb5ye8Xo2yp7Diht8jAxIgu +eynKktmtFxz5CBzVsD8hTfmjFFsuSJDA5Z9tO2iU7yZyuVeECXStzfSVoBwp +pGxRKkbgoq+QyWrK9tHp759KEbjee4+lAGWFeZGgL3IEFj7an/iL2t/IsbPL +BQgCPYy/rh2hXDsym8FUIbDZ7EFnL+UYbz+tzaoEen8t6Wym7DTwoWXvJgJ3 +fbsgQVJmOe9yD9cjkCyRSU6hPPmybTLNmEAFQ4OdYZTrLU1jqpBAsy3kzt2U +Ex7flX/3J4FWLMcUQ8p7jFTKJ60JtOmblpWgPLdRdEBtF4GJvGemGqnznMmU +idJ2I7CgPFAhlfKP1UosQw8Cw50mCw9THpsy9N16mMCr/a8H+Sl/894qbB1A +YMlE4+V26v360mVH2h8j0MLpaNZ1ykN1XjNup6n1H9W/yVIeVAtI2xdN4MrR +7nV91Pv7PjvE5OBFqh5v0PMblDvPXo4+epXAB0eLLYUoP7WpEonJJ/CT3eTG +F1T/tDx4zL1cRODLnBbOScpPNJ47XuMQGEpbnaNI+aH4P+lZNQTueIZtPrrU +efWtUKl4QeCVlwd29VD9y7GVeFr7hsB7337vDPx/fz9S9K/vIjDdtqyJl3JB +rk75s38IVP1eu4yKPEj/ay8MTRNYFKIqakbNixv9h4Y+/yKwpdr4USM1T5Lt +j50fXSLQIED9ixnlBO2YZz+FmOh/Vq3YUJ0L0fNc59UKTJT9XSsspEr1R9yy +IybmTExzWC2oSc2zQwurxc1smFjuFfwglpp3BwNlKi22M/FhYu2vD0pc2LdT +4/cONyb2xPiKxrC44CjrGnM4gIlbx4MfV1Pz1KS4JCclhYkJ+Xb8+dR87qMX +Z//5NxNrfsokfKLmeVjKnawf2UxMvHhrkUm5KqogY8cdJn5w/pCSTqP63SUn +VeQ+E83jJGoCJLiwflly4oV/mBhRFOVfTuVHa1jSFd3/qPvpeT54Q+XLwfHE +hI/DTLzuQeMZp/Inr+9yvNkPJsbH0z1ZK7lAv3sxZlGAhYoCmrePL6f6yeNU +ZLAqCxmpshPlVJ5VvA2NUNrEQksX92d3F0lwtA4581aXhbrpX/I4VP4l6Z4I +1wIWFpjxueZSeSm8KjBkzIGFr9sD+4JmSeCv2X/k4EkWckbc5u+OkTAhZr3P +qYGF6iVFlg/6SOj2I175trAw/G5K8H4qj+ubf0HEcxaqVbf7LOshITGsWLGw +k4XmES6pWztJ0BxaNTg3zMLULA/7QirvA7gv3TPFlVDasZ1XoImEYftduz8e +UEJZxtACo4SEN3fUnv08rIRzN3/lRxWRUMsnYCwcqISmQxXag4UkxFZVyuiF +KmGV8gn+ZOp7ZZ0irffiZSUMoj1L+5hFgs9Yr8vGSiW8s97vEnGVhI/x+5yC +litj27V+c+njVP1hVUJzlTIe9Qr45hxEwqzF3OioqDKarhzqST5Cwgq+pPOH +ZZSxtkkuVcif2n9o4719asroP3W9fMCbhNPeyuL2O5VxIbZLx8CZBEnTkZcb +s5VxZkKxr8yABKvvJ60+6angwf4bgg9HOSC3SeGCoIkKlu62TBL7yoGxoCcN +GzerYHpnT67XRw4kz4iaBNmoYHuW9aH5Xg4MLNxRX/JQwWvBcrV/tHIgaNV7 +celYFfz7OE/OXzc5kL4eB7b1qWC/30BQkwMHRrwEj92LWIehkXczpO+UUf8j +UrwXG9ajfMiAaC67FMReKCeQ3zegh6u+yeOnxSAXw9mup6eKwi1yk5kKRZC6 +0VBU3EcNhehXjoqfKYSnMpt1p66qY+jvy1uK3heAkVxDokanBh6N8zqevDYf +RPhuHfeM1sTvjAsqFf65oBClaOKqvAmZY4biCiU3QUhpT+WOlk1YZrAgEMWT +A+psac5Jdy3cNl9ob8CXCUEDYo3WPNooIVrxemg0Db5Pxe+yStXGrpOjyVIG +N8BCozndSk0Hu1w8pg3qkuHhlPH8bLsObl/fFpFhlAQBqlq9r7110Ua6dJ2s +RCKwxw68dRXSQ+2Vu3vuf4uDP1k0W+Fbeui7SpN3fFcMrIu8FNKgr4/zykPR +fevPwwZvw0dKvfp48Iz5p2bJaPB+eOjcvaMGuEhkdKZLRsCjnLcHJiQMUWtB +gj/EOAx+FC7NalQZYozX5MuotcHgpVQslG5rhDordJ/5VQTBxIZrenfHjXDi +vXT9K1ogVOfN/zMdY4xlfc6mboK+4LaVicYKJqg91tt04Ik3yPpfrFGvN8FX +452/ld95QsLSQd24BhP0DXOcr2rxBN4kc+7nJybYN0M0ONR6wnDlsjs5bSbY +9NIzJTvbE2p5zqWKdZjg3vmInlxfT3BLjjw588kE5UIqX1rzekJqXajuw5Vs +VDpjMTWpvw8kVvhxbZ3Z+Orh1Q2HT7pD3pbTYeOubPy3Q/w2/1530DqdsOXa +Hmr9j2sW5VvdwW6cfNftyUYr+9ImKzF3uNA5Peflx8b4dnqgW9ke+Hkrwiws +io1zMutteYZ3Q6/xtY6CYjaWFAj0CQe6waETeRlWZWxMcqWFzTq7wUxZhfcI +ycaskMX2SXQDMaJ7dlMlG+3v1vkriLuBjaC83IN6Nl48vcHSstoV7r8tONDx +jo0uGo/a3i9zBWuRarXgbjaKlO6+8f67C3RbtM3Q+tho7V7nO9rjAj9qv8Xs +/cBG0y0HZjeXuYDaTc3Sr8Ns1M9oCK1wdoH7vZuD40fZOGTx0NzEzAWs1+4E +jXE2+sjoN3aousDBiydeH59m4x++ndk6vNT96i+kS/2k6tXnDi+MOEP0rxte +tb/Y+HXMuLaryxlEde6oui+wUZGxyNfQ4AxZ/rXTS0tsjNS2e3C/1Bn+B34E +YVM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06732329477307504}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06732329477307504}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VesXB3AXiYpEOOZz9jloMGWejrVS1xhSMpUkSbmGUgkpQxORJAnX +VIZkOvskc4PI1KBBGUPXrVsJGUISfvv3134+z/M+e73Pfvda370Z+wN3ePPy +8PAs/4OH5//XmYG2J6y4PFOrZe0HB7TQ9G0WLXRzdzQodkx8/FIlDyjxcj+t +OwkOhvgK51epQfD2oi6+7lsQ75F8MqSKDWvGpJLmuu7C9GjVOf0qWxi8bxf4 +o6sBapJ6A/wq3cGcNdw/0fUGNq01yN1T7g9zXfrXx7uGYHGh77H67dPQuOV2 +3utbU3CZpluhVJYAcoM1/+1XXQDX961eZ2JTYK2fR9HyLXxY2R639Yx9JiRt +Mq+z2yWI468+hD9QvAU9qZr1E6LCuOTbNrlEz4e4vIiXvNJrUKhB7OFbqUKQ +Sv439lqmOKpUr5i6V1IEFx2tTN/MSGD4yRRV1SclIHOvXYb3D0lMdGzvj3te +AmXijrObVkriuQDzs5/elkDnm73kVUVJPB2jdPvCpxJgORwnHCwlcZeSi0Gk +QCk02GYLvEqTRC0Hgwp7i1JYMJ9uf2EihSlBTqpuT0rhmOFNj7ZoGjY+ao77 +UVwG1jkiP2ziaRj6zmHO6W4ZEMvDY9qv07A8e+FXeXUZvHrrxO0opKHAXrsa +96YyUD+yim+gnYZ1E7a0IwNl8KXgZMGkjDSKZ1fTEldzYM9au1HZcmmUXCPB +rvPngPapuqis+9JYMxidGXiMAyuG1kkymqUxdFtzrEIoB2o4fKDcI41qAmrL +/M5xQNKmJlFzSRofvz58timdA6+iWDp/2shgqPKm6KBmDmz9/iss4F8ZVB5T +XOpZRUKoZfKGxyMy2MiTo7t9NQllN9V6xWdkMOsfo+eNa0igOe4zrBGURaFL +r6VzJUkYqW6a5VOXxeZ5OX0zOgnXohOPp4XIYuFa6yhebRKGJJQDngjL4XPp +Hdw4JxKkAh/JS0nJYfpVK54yFxK2tbq8OEyXw++EFveFGwmVYXGqq7Xl0Hc/ +GC7zIOHS4Piwq4sc9onYfXL0IUHrTp3P91ty6J+c1BJ8koQoEwdPGQN5DP9W +V9R0nQTLvVmT+mby+DXnHafuBgkikd/O7tomj7d9IvPL0kjIaDxfkLhPHve+ +D/eKyySh2rr2m0CsPG7fMKZJzydh3IUZPNUjjzlnE22qykmoCjuyfM1HeZy3 +2BASXkHCmYwHqepj8mjUFJ9mWkXCqg/OdYd5FbDbpKeuppYEFZ94ng8bFDB4 +3dKFuMck7D0xfen5KQVc6z1wOrOdBKUbZnLD5xWw4M06Oa1X/39+V0qXJyrg +zufO9xpfkxD2e/0rszwFDFjR1tH/loTrZ/dK1DxXwLTu8e7RXhKeX23JzpdX +RAuHEbvT/5FgVJZ278wjRTzgvb54zzwJW7vaF8ZaFXF75ei98N8k2PHwW3i8 +UcSKbd0q6QskeO0I6IFPihiTnW79YokE81OMiMhldFRXsE9Yy8+FI4ozuZs3 +0nHOye2AyiouTJcnts5p0NFWjFBXEOZCmOXGUa4OHXU2b/YRE+HC+aP79AhT +OuY+VFk/tZoL6Y1PW3kd6NhyiTl7XZwLT3yyRxuD6RgiuUXGU4YLVr8NxcJP +0THz38qVGrJcaE98q6cTSUcPAftjvyj31AhF5sXSUcvjXkGsPBfGVh4XO59B +x9PPR4pi6Vw4liOiz75JR9mrNLctDC781LmzezqfjsOigmd/UebbO5DnzaGj +ykrhrZ5MLtBIS33zBjoqvn56RVSZC5lb/9292ExH/i2qMpWUiZ7TkZXP6NjI +L0m4qnBBjbe8TfkdHauKAkturOOCmaP8nuVf6OjW1FU9s4ELfj8nIluFGcgy +N1Bka3DB6OhByf/EGPi5wEG1ibLgcG8xH42BvLbj9taaXMjva+w0JRj4rNKj +32YTFwYeXlet0GPggb9vMlW1uVCiv6LhjTEDDQ+FzWZQDiPPOI8jAzvrNT+v +0OGC5C2f6I02VL3IcbkByvbnDbtvejBwunXxh6ceFxQWS/0fHWCgjMUfdXWU +R4IJvv7DDHwQcPiWmD4XYg6tVKcdZyCt1aS7irLTPxGNuqEMrOgQWydgwAWW +2w+XnWcYWGjMynCgXG/TfzYhhqr3unNqkHLCEwfpkssMNM7/0k0YcmEPu7ms +LYmBjQypT/spz6lzevgzGXjesvxEL+XW28xA4hYDrZ1uzK8x4kIKPZUfbzPw +6ptzxeaUtcSiNE5xGejDORJ/mzJP3PST1EoGVtK/Peyg3M7n61ZZx8A1DB+F +BcoZ4QPfO+oZKHAqr5hpzIW/pnecn2hioF2Jl48FZaOAFpnVzxho+8l7xyHK +gp+NSdVXDPxb0N//AuVOD/JP63cMDCkyrrlJOa+b1efTy0B70et6tZSDHNKO +nB9koIkm+7+XlPGpsEDuRwbGkj9bhyiLbIn+u/4rA+mf4wcnKffXzWgOjDGQ +6Hm0gceEOj+dv5rnpxjoYORSvIJyWOngbuk5Bqb5ye8Xo2yp7Diht8jAxIgu +eynKktmtFxz5CBzVsD8hTfmjFFsuSJDA5Z9tO2iU7yZyuVeECXStzfSVoBwp +pGxRKkbgoq+QyWrK9tHp759KEbjee4+lAGWFeZGgL3IEFj7an/iL2t/IsbPL +BQgCPYy/rh2hXDsym8FUIbDZ7EFnL+UYbz+tzaoEen8t6Wym7DTwoWXvJgJ3 +fbsgQVJmOe9yD9cjkCyRSU6hPPmybTLNmEAFQ4OdYZTrLU1jqpBAsy3kzt2U +Ex7flX/3J4FWLMcUQ8p7jFTKJ60JtOmblpWgPLdRdEBtF4GJvGemGqnznMmU +idJ2I7CgPFAhlfKP1UosQw8Cw50mCw9THpsy9N16mMCr/a8H+Sl/894qbB1A +YMlE4+V26v360mVH2h8j0MLpaNZ1ykN1XjNup6n1H9W/yVIeVAtI2xdN4MrR +7nV91Pv7PjvE5OBFqh5v0PMblDvPXo4+epXAB0eLLYUoP7WpEonJJ/CT3eTG +F1T/tDx4zL1cRODLnBbOScpPNJ47XuMQGEpbnaNI+aH4P+lZNQTueIZtPrrU +efWtUKl4QeCVlwd29VD9y7GVeFr7hsB7337vDPx/fz9S9K/vIjDdtqyJl3JB +rk75s38IVP1eu4yKPEj/ay8MTRNYFKIqakbNixv9h4Y+/yKwpdr4USM1T5Lt +j50fXSLQIED9ixnlBO2YZz+FmOh/Vq3YUJ0L0fNc59UKTJT9XSsspEr1R9yy +IybmTExzWC2oSc2zQwurxc1smFjuFfwglpp3BwNlKi22M/FhYu2vD0pc2LdT +4/cONyb2xPiKxrC44CjrGnM4gIlbx4MfV1Pz1KS4JCclhYkJ+Xb8+dR87qMX +Z//5NxNrfsokfKLmeVjKnawf2UxMvHhrkUm5KqogY8cdJn5w/pCSTqP63SUn +VeQ+E83jJGoCJLiwflly4oV/mBhRFOVfTuVHa1jSFd3/qPvpeT54Q+XLwfHE +hI/DTLzuQeMZp/Inr+9yvNkPJsbH0z1ZK7lAv3sxZlGAhYoCmrePL6f6yeNU +ZLAqCxmpshPlVJ5VvA2NUNrEQksX92d3F0lwtA4581aXhbrpX/I4VP4l6Z4I +1wIWFpjxueZSeSm8KjBkzIGFr9sD+4JmSeCv2X/k4EkWckbc5u+OkTAhZr3P +qYGF6iVFlg/6SOj2I175trAw/G5K8H4qj+ubf0HEcxaqVbf7LOshITGsWLGw +k4XmES6pWztJ0BxaNTg3zMLULA/7QirvA7gv3TPFlVDasZ1XoImEYftduz8e +UEJZxtACo4SEN3fUnv08rIRzN3/lRxWRUMsnYCwcqISmQxXag4UkxFZVyuiF +KmGV8gn+ZOp7ZZ0irffiZSUMoj1L+5hFgs9Yr8vGSiW8s97vEnGVhI/x+5yC +litj27V+c+njVP1hVUJzlTIe9Qr45hxEwqzF3OioqDKarhzqST5Cwgq+pPOH +ZZSxtkkuVcif2n9o4719asroP3W9fMCbhNPeyuL2O5VxIbZLx8CZBEnTkZcb +s5VxZkKxr8yABKvvJ60+6angwf4bgg9HOSC3SeGCoIkKlu62TBL7yoGxoCcN +GzerYHpnT67XRw4kz4iaBNmoYHuW9aH5Xg4MLNxRX/JQwWvBcrV/tHIgaNV7 +celYFfz7OE/OXzc5kL4eB7b1qWC/30BQkwMHRrwEj92LWIehkXczpO+UUf8j +UrwXG9ajfMiAaC67FMReKCeQ3zegh6u+yeOnxSAXw9mup6eKwi1yk5kKRZC6 +0VBU3EcNhehXjoqfKYSnMpt1p66qY+jvy1uK3heAkVxDokanBh6N8zqevDYf +RPhuHfeM1sTvjAsqFf65oBClaOKqvAmZY4biCiU3QUhpT+WOlk1YZrAgEMWT +A+psac5Jdy3cNl9ob8CXCUEDYo3WPNooIVrxemg0Db5Pxe+yStXGrpOjyVIG +N8BCozndSk0Hu1w8pg3qkuHhlPH8bLsObl/fFpFhlAQBqlq9r7110Ua6dJ2s +RCKwxw68dRXSQ+2Vu3vuf4uDP1k0W+Fbeui7SpN3fFcMrIu8FNKgr4/zykPR +fevPwwZvw0dKvfp48Iz5p2bJaPB+eOjcvaMGuEhkdKZLRsCjnLcHJiQMUWtB +gj/EOAx+FC7NalQZYozX5MuotcHgpVQslG5rhDordJ/5VQTBxIZrenfHjXDi +vXT9K1ogVOfN/zMdY4xlfc6mboK+4LaVicYKJqg91tt04Ik3yPpfrFGvN8FX +452/ld95QsLSQd24BhP0DXOcr2rxBN4kc+7nJybYN0M0ONR6wnDlsjs5bSbY +9NIzJTvbE2p5zqWKdZjg3vmInlxfT3BLjjw588kE5UIqX1rzekJqXajuw5Vs +VDpjMTWpvw8kVvhxbZ3Z+Orh1Q2HT7pD3pbTYeOubPy3Q/w2/1530DqdsOXa +Hmr9j2sW5VvdwW6cfNftyUYr+9ImKzF3uNA5Peflx8b4dnqgW9ke+Hkrwiws +io1zMutteYZ3Q6/xtY6CYjaWFAj0CQe6waETeRlWZWxMcqWFzTq7wUxZhfcI +ycaskMX2SXQDMaJ7dlMlG+3v1vkriLuBjaC83IN6Nl48vcHSstoV7r8tONDx +jo0uGo/a3i9zBWuRarXgbjaKlO6+8f67C3RbtM3Q+tho7V7nO9rjAj9qv8Xs +/cBG0y0HZjeXuYDaTc3Sr8Ns1M9oCK1wdoH7vZuD40fZOGTx0NzEzAWs1+4E +jXE2+sjoN3aousDBiydeH59m4x++ndk6vNT96i+kS/2k6tXnDi+MOEP0rxte +tb/Y+HXMuLaryxlEde6oui+wUZGxyNfQ4AxZ/rXTS0tsjNS2e3C/1Bn+B34E +YVM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06732329477307504}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQMKVzfcF35dYg/hfbCfN3XLI2mufiifwUH567xT +mf4zoXwOB0YTr+n/VBdC+QIOAiVbVqnKLoXyRRyE7m5ed7FoBZQv4RBdWxq6 +QGw1lC/jwGgwz9H5/xooX8EhlWHFo2O666B8JYdcCx3ePytgfBWHS/+LdKMa +YHw1h7QFRv9qj62F8jUcbsxpTneaDDNPy+FqeV1g079VUL6Ow8lT+s2GSiuh +fD2HPD9VZgfR5VC+gcPrP7dT979bAuUbOqy8J3VD6+AiKN/IYfLKpkDPuQug +fGOHzc5/Dk+TmwvlmzhszHk24YoTLHxMHUy8ma5c2TQVyjdzmOg6q4K9YhKU +b+6w7uYp73/qsPC1cCifV3FOTKALyrd00Cr+3PtiXiuUb+VQx6ThNu1MI5Rv +7aDuH+l7XbgWyrdx2HCq9dT+aeVQvq3D3y/zTe3/FUH5dg6iExNF81Py7AE8 +IIX1 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.059883}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06732329477307504}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994260739901898*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"2caac02e-6097-4aa9-9a00-284e51b4cca9"] +}, Open ]], Cell[CellGroupData[{ @@ -13856,18 +14879,75 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], - RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ -UUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[142]:=",ExpressionUUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"9e6d6a70-ad75-9b40-8a0b-ca802f09d5a2"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.678160399377347`*^-157\\\", \ +RowBox[{\\\"164243120455479739170682508554789627978\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"75\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4724542670438400000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 81, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99426073994788*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"74c11062-5236-4f94-b990-59dcfb4be934"], -Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.981205751728815`*^-160\\\", \ +RowBox[{\\\"552513857212233842570175958778312308519\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"78\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3361543354777600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 82, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942607399570627`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"f0eea896-0752-4bbc-a56e-7484c6113517"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.2960299488884144`*^-163\\\", \ +RowBox[{\\\"192330073695578600598678251250730514595\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"82\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1532417980825600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 83, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260739964232*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"4bbca04c-7a80-4e55-80a0-d5cb3c82e6ce"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 142, 84, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942607399714317`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"88c8d557-bcbc-4c6b-ab70-37f0dee112e8"], + +Cell[BoxData["11.529834119152197`"], "Output", + CellChangeTimes->{3.994260802496615*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"bf208e56-7efa-48e8-86e4-a452f77b414b"] }, Open ]], Cell[CellGroupData[{ @@ -13934,27 +15014,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850391956293*^9, - 3.9918503966918755`*^9}},ExpressionUUID->"a3e3d205-e3b4-874a-a36c-\ -53cfa72184b4"], + CellChangeTimes->{{3.991850391956293*^9, 3.9918503966918755`*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"a3e3d205-e3b4-874a-a36c-53cfa72184b4"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"9e9d949e-1d4c-8649-8d0e-b7deecfb3ba4"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.447579404550839`*^-214\\\", \ +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 85, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260802537945*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"caba0014-a4f6-467a-b4d2-16068071e3b4"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"76f8ef60-aab6-7442-aeca-4cebad23cb0e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.0621811048739413`*^-219\\\", \ +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 86, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260802548115*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"8a063810-78cc-43b4-940d-9ea847cbe378"], -Cell[BoxData["1.0713232818739324`"], "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.561585128638253`*^-225\\\", \ +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 87, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942608025574503`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"54d0626d-356e-4ee1-966f-0c2be84f1b86"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 88, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942608025661383`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"70603505-b0db-4df7-9a52-a055d585a057"], + +Cell[BoxData["0.20045142160764942`"], "Output", + CellChangeTimes->{3.99426081112309*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"4c488e9a-f466-4f16-b9c4-93dbd23a9f9e"] }, Open ]], Cell[CellGroupData[{ @@ -13975,8 +15103,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -14021,27 +15148,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918504007528324`*^9, - 3.991850403970867*^9}},ExpressionUUID->"6977f025-454e-0e4a-b118-\ -07bad9ba3e82"], + CellChangeTimes->{{3.9918504007528324`*^9, 3.991850403970867*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"6977f025-454e-0e4a-b118-07bad9ba3e82"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"566a849f-fc85-4d42-a545-a46d44cf7346"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.447579404550839`*^-214\\\", \ +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 89, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260811167551*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"44193d44-b5db-4117-83bf-2a5b0683957e"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"fb1cb4d6-a504-e445-bb52-7946e1bca3c6"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.0621811048739413`*^-219\\\", \ +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 90, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260811174958*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"955b5b22-b884-4089-89c6-7ef822198c46"], -Cell[BoxData["5.515504100347031`"], "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.561585128638253`*^-225\\\", \ +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 91, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260811182024*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"5a3c1551-cc69-44d2-8088-ac1257feb889"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 92, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260811188692*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"ba039919-c6c2-427a-9ded-3dd1d81d2940"], + +Cell[BoxData["34.83679116040589`"], "Output", + CellChangeTimes->{3.994260819180091*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"0fef2a24-bfae-4054-8156-827a0eac605a"] }, Open ]], Cell[CellGroupData[{ @@ -14062,8 +15237,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -14108,27 +15282,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918504078476295`*^9, - 3.9918504110344543`*^9}},ExpressionUUID->"df8ecb01-788a-604d-b773-\ -f29bb610eb30"], + CellChangeTimes->{{3.9918504078476295`*^9, 3.9918504110344543`*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"df8ecb01-788a-604d-b773-f29bb610eb30"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"f9e34ec5-1462-b340-b2e7-8e875dd33d28"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.447579404550839`*^-214\\\", \ +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 93, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260819220172*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"159c9160-3e48-47ab-972b-1a8804e9a6e4"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"19ffb858-7059-2a48-a3db-e2d0dfcf2131"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.0621811048739413`*^-219\\\", \ +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 94, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260819229693*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"fce8ed96-72f7-46a4-bb7c-bf2353edc2f7"], -Cell[BoxData["17.107550304528036`"], "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.561585128638253`*^-225\\\", \ +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 95, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942608192373543`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"ff96dd71-7de6-4d5e-9cfe-d8af95b391e4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 96, 31387658199574641289, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260819243813*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"1af7f4e5-0520-4b33-85be-c8cf2afa2dea"], + +Cell[BoxData["4.9264214764555785`"], "Output", + CellChangeTimes->{3.9942608238030024`*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"004efcb3-3bb3-4ebd-b331-871d4b984ba9"] }, Open ]], Cell[CellGroupData[{ @@ -14137,21 +15359,24 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918504490520267`*^9, - 3.991850453720993*^9}},ExpressionUUID->"54a5e329-20bd-e742-afe8-\ -d2cfa007cfcf"], + CellChangeTimes->{{3.9918504490520267`*^9, 3.991850453720993*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"54a5e329-20bd-e742-afe8-d2cfa007cfcf"], -Cell[BoxData["0.11028946354837708`"], "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] +Cell[BoxData["0.015301157506211006`"], "Output", + CellChangeTimes->{3.994260823842545*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"836475a0-3a7f-47c9-bd2f-a9dca1c4ea1e"] }, Open ]], Cell[BoxData[ RowBox[{"NotebookSave", "[", "]"}]], "Input", - CellChangeTimes->{{3.994083574793016*^9, - 3.994083578671886*^9}},ExpressionUUID->"35170b17-b067-408f-8497-\ -dfae76b7127e"] + CellChangeTimes->{{3.994083574793016*^9, 3.994083578671886*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"35170b17-b067-408f-8497-dfae76b7127e"] }, -WindowSize->{1440, 882}, -WindowMargins->{{0, Automatic}, {0, Automatic}}, +WindowSize->{714, 170.25}, +WindowMargins->{{Automatic, 3}, {Automatic, 15}}, CellContext->Notebook, FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", @@ -14169,613 +15394,642 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 330, 7, 36, "Input",ExpressionUUID->"38b4ba9f-54bf-49b6-8ef2-ae25a682d3c2"], -Cell[909, 31, 208, 4, 41, "Output",ExpressionUUID->"406e3fba-3b98-4a85-9f9a-9cfa05191fea"] +Cell[576, 22, 347, 6, 36, "Input",ExpressionUUID->"38b4ba9f-54bf-49b6-8ef2-ae25a682d3c2"], +Cell[926, 30, 229, 4, 41, "Output",ExpressionUUID->"be5437a1-7fa1-4a1b-ae3a-f9d4e5d60a6a"] }, Open ]], Cell[CellGroupData[{ -Cell[1154, 40, 253, 5, 36, "Input",ExpressionUUID->"3303f80b-9faa-4ded-bcaa-9ff03c73760f"], -Cell[1410, 47, 208, 4, 41, "Output",ExpressionUUID->"b0a072b2-0877-4694-97ca-c9c0cbf0be77"] +Cell[1192, 39, 248, 4, 36, "Input",ExpressionUUID->"3303f80b-9faa-4ded-bcaa-9ff03c73760f"], +Cell[1443, 45, 229, 4, 41, "Output",ExpressionUUID->"5b9ae1a0-4a43-444b-adc3-635ba1834582"] }, Open ]], Cell[CellGroupData[{ -Cell[1655, 56, 226, 5, 36, "Input",ExpressionUUID->"3787a4cc-7be8-455c-b8d3-7dfd7d3ae507"], -Cell[1884, 63, 207, 4, 41, "Output",ExpressionUUID->"68764c14-3cbc-418a-8802-05ea8d1a7912"] +Cell[1709, 54, 221, 4, 36, "Input",ExpressionUUID->"3787a4cc-7be8-455c-b8d3-7dfd7d3ae507"], +Cell[1933, 60, 228, 4, 41, "Output",ExpressionUUID->"f8d9bbfc-9af2-4307-8695-c76aca0a1497"] }, Open ]], Cell[CellGroupData[{ -Cell[2128, 72, 180, 4, 36, "Input",ExpressionUUID->"2d4b377c-cdb6-44b2-8f4e-a265cf477ea0"], -Cell[2311, 78, 207, 4, 41, "Output",ExpressionUUID->"bdd82d80-457d-4d31-b425-2ad3eb375d0e"] +Cell[2198, 69, 175, 3, 36, "Input",ExpressionUUID->"2d4b377c-cdb6-44b2-8f4e-a265cf477ea0"], +Cell[2376, 74, 227, 4, 41, "Output",ExpressionUUID->"13a33bae-5266-43f1-9a19-5bc4f4d4224e"] }, Open ]], Cell[CellGroupData[{ -Cell[2555, 87, 262, 8, 54, "Input",ExpressionUUID->"aa3ae721-64f7-469e-a03c-126d9d2e576e"], -Cell[2820, 97, 223, 4, 41, "Output",ExpressionUUID->"25f4332d-ac61-4d70-bd4b-87188ad16bb6"] +Cell[2640, 83, 257, 7, 54, "Input",ExpressionUUID->"aa3ae721-64f7-469e-a03c-126d9d2e576e"], +Cell[2900, 92, 244, 4, 41, "Output",ExpressionUUID->"b8306465-3a7b-44cb-be0a-a58c147826fe"] }, Open ]], Cell[CellGroupData[{ -Cell[3080, 106, 136, 3, 36, "Input",ExpressionUUID->"7bddbfd1-853f-4617-a8f9-b3ff729d6fb5"], -Cell[3219, 111, 206, 4, 41, "Output",ExpressionUUID->"958f4c5d-69ff-475e-a182-d2edacd91f8b"] +Cell[3181, 101, 131, 2, 36, "Input",ExpressionUUID->"7bddbfd1-853f-4617-a8f9-b3ff729d6fb5"], +Cell[3315, 105, 227, 4, 41, "Output",ExpressionUUID->"ffc22bb9-8d99-4c97-9ee9-472f22b87c1e"] }, Open ]], Cell[CellGroupData[{ -Cell[3462, 120, 281, 7, 36, "Input",ExpressionUUID->"4cd2e74b-ef7b-402b-b461-b1f02cffab88"], -Cell[3746, 129, 221, 4, 41, "Output",ExpressionUUID->"26d15f57-f959-4534-a598-68945d363e49"] +Cell[3579, 114, 276, 6, 36, "Input",ExpressionUUID->"4cd2e74b-ef7b-402b-b461-b1f02cffab88"], +Cell[3858, 122, 242, 4, 41, "Output",ExpressionUUID->"5f54dd6b-e47d-4a7c-92db-7f0f8fd6b383"] }, Open ]], Cell[CellGroupData[{ -Cell[4004, 138, 262, 8, 36, "Input",ExpressionUUID->"215c89e6-6f63-432b-b3fd-0bb65bd35801"], -Cell[4269, 148, 221, 4, 41, "Output",ExpressionUUID->"0db41cdb-cdfa-4eb0-af5b-c7f68a790d33"] +Cell[4137, 131, 257, 7, 36, "Input",ExpressionUUID->"215c89e6-6f63-432b-b3fd-0bb65bd35801"], +Cell[4397, 140, 242, 4, 41, "Output",ExpressionUUID->"8d253f7f-fb87-410b-8215-4a20de229b9d"] }, Open ]], Cell[CellGroupData[{ -Cell[4527, 157, 229, 5, 36, "Input",ExpressionUUID->"3c8dbddf-5c12-4a08-9069-7aa7b259ca7a"], -Cell[4759, 164, 186, 3, 41, "Output",ExpressionUUID->"b7e538a8-5b4b-49b1-8dbf-398c4fdb6b4b"] +Cell[4676, 149, 224, 4, 36, "Input",ExpressionUUID->"3c8dbddf-5c12-4a08-9069-7aa7b259ca7a"], +Cell[4903, 155, 207, 3, 41, "Output",ExpressionUUID->"0a925535-9ff8-4986-a49c-6f002df5e2e5"] }, Open ]], Cell[CellGroupData[{ -Cell[4982, 172, 232, 5, 36, "Input",ExpressionUUID->"0934ee55-d18f-47f3-9cfc-617eaa33d263"], -Cell[5217, 179, 184, 3, 41, "Output",ExpressionUUID->"0bb2f425-c8f5-4724-a6c2-b2d464c5b119"] +Cell[5147, 163, 228, 4, 36, "Input",ExpressionUUID->"0934ee55-d18f-47f3-9cfc-617eaa33d263"], +Cell[5378, 169, 208, 3, 41, "Output",ExpressionUUID->"f29e807e-3495-49b2-8a45-7ae98554d2e7"] }, Open ]], Cell[CellGroupData[{ -Cell[5438, 187, 133, 3, 51, "Input",ExpressionUUID->"b9c9b9e9-83a3-4322-946a-b3701179b981"], -Cell[5574, 192, 204, 4, 58, "Output",ExpressionUUID->"c0c7ba5d-5e4c-4d0a-96e2-63c47ed44391"] +Cell[5623, 177, 129, 2, 36, "Input",ExpressionUUID->"b9c9b9e9-83a3-4322-946a-b3701179b981"], +Cell[5755, 181, 228, 4, 41, "Output",ExpressionUUID->"38cb3385-4297-4bd6-9c9e-5649dee13a1d"] }, Open ]], Cell[CellGroupData[{ -Cell[5815, 201, 133, 3, 51, "Input",ExpressionUUID->"7be0cd7c-4e19-4f1d-885b-10e1292c87f2"], -Cell[5951, 206, 204, 4, 58, "Output",ExpressionUUID->"3640621f-c858-4e8d-8fc5-007130271cc3"] +Cell[6020, 190, 129, 2, 36, "Input",ExpressionUUID->"7be0cd7c-4e19-4f1d-885b-10e1292c87f2"], +Cell[6152, 194, 226, 4, 41, "Output",ExpressionUUID->"aacdf2cd-6b17-4269-98b5-fe78c55e50d5"] }, Open ]], Cell[CellGroupData[{ -Cell[6192, 215, 561, 20, 140, "Input",ExpressionUUID->"f8a3824a-8637-4088-a5c9-872ab8b3f906"], -Cell[6756, 237, 222, 4, 58, "Output",ExpressionUUID->"c99ce94e-993c-46d3-835b-a814349436c2"] +Cell[6415, 203, 557, 19, 100, "Input",ExpressionUUID->"f8a3824a-8637-4088-a5c9-872ab8b3f906"], +Cell[6975, 224, 244, 4, 41, "Output",ExpressionUUID->"d1aa23aa-f8d8-4f03-bbd8-faa7f8ad8a70"] }, Open ]], Cell[CellGroupData[{ -Cell[7015, 246, 561, 20, 140, "Input",ExpressionUUID->"2710d08a-ae53-4779-b39b-ebdcc64ea2af"], -Cell[7579, 268, 222, 4, 58, "Output",ExpressionUUID->"6ad47d6b-9669-4867-982e-a3de133998db"] +Cell[7256, 233, 557, 19, 100, "Input",ExpressionUUID->"2710d08a-ae53-4779-b39b-ebdcc64ea2af"], +Cell[7816, 254, 244, 4, 41, "Output",ExpressionUUID->"6f4e24a8-7145-4117-8811-cee2e1408c2a"] }, Open ]], Cell[CellGroupData[{ -Cell[7838, 277, 1592, 51, 190, "Input",ExpressionUUID->"b53ce7c3-5a98-4ba3-b577-6ed97ad936a7"], -Cell[9433, 330, 220, 4, 58, "Output",ExpressionUUID->"1fe64173-1c93-4358-84fd-266e88eba0c1"] +Cell[8097, 263, 1588, 50, 103, "Input",ExpressionUUID->"b53ce7c3-5a98-4ba3-b577-6ed97ad936a7"], +Cell[9688, 315, 242, 4, 41, "Output",ExpressionUUID->"c91a3466-0373-4686-ae93-985dae3d911e"] }, Open ]], Cell[CellGroupData[{ -Cell[9690, 339, 1426, 47, 190, "Input",ExpressionUUID->"ccc28c99-7875-4167-b7ff-e3c7e035b3ce"], -Cell[11119, 388, 240, 5, 58, "Output",ExpressionUUID->"4a76fcdb-6d1a-44ca-a088-b7304a597c83"] +Cell[9967, 324, 1422, 46, 73, "Input",ExpressionUUID->"ccc28c99-7875-4167-b7ff-e3c7e035b3ce"], +Cell[11392, 372, 262, 5, 41, "Output",ExpressionUUID->"15d8e61a-89c3-4077-8796-1577c63b2ebc"] }, Open ]], Cell[CellGroupData[{ -Cell[11396, 398, 1335, 45, 141, "Input",ExpressionUUID->"17ba3f3b-3981-4899-a7db-6b37bb7eb087"], -Cell[12734, 445, 239, 5, 58, "Output",ExpressionUUID->"2752a478-06f0-4ecc-9a87-9041f4db7bd7"] +Cell[11691, 382, 1422, 46, 73, "Input",ExpressionUUID->"17ba3f3b-3981-4899-a7db-6b37bb7eb087"], +Cell[13116, 430, 261, 5, 41, "Output",ExpressionUUID->"32c50e61-38e1-4510-9354-9dcf636503c9"] }, Open ]], Cell[CellGroupData[{ -Cell[13010, 455, 1592, 51, 190, "Input",ExpressionUUID->"39dbd36d-36a2-4a23-9397-5002551c38f1"], -Cell[14605, 508, 218, 4, 58, "Output",ExpressionUUID->"c357015f-184d-4b34-9829-e3bd1baeb582"] +Cell[13414, 440, 1588, 50, 103, "Input",ExpressionUUID->"39dbd36d-36a2-4a23-9397-5002551c38f1"], +Cell[15005, 492, 242, 4, 41, "Output",ExpressionUUID->"7a4eb425-ddb2-43e7-bb88-570411081251"] }, Open ]], Cell[CellGroupData[{ -Cell[14860, 517, 135, 3, 51, "Input",ExpressionUUID->"9bcb146c-d317-4522-b712-51ea55f6b02c"], -Cell[14998, 522, 206, 4, 58, "Output",ExpressionUUID->"c1a75283-4f6d-4a6a-8430-73bb67ee7120"] +Cell[15284, 501, 131, 2, 36, "Input",ExpressionUUID->"9bcb146c-d317-4522-b712-51ea55f6b02c"], +Cell[15418, 505, 228, 4, 41, "Output",ExpressionUUID->"b3edafa0-113a-467c-938c-c6ef187de760"] }, Open ]], Cell[CellGroupData[{ -Cell[15241, 531, 137, 3, 51, "Input",ExpressionUUID->"c2d0ca44-85be-421a-b28d-c7767ebcd082"], -Cell[15381, 536, 205, 4, 58, "Output",ExpressionUUID->"669571af-362c-4019-be94-6035fb6ec54f"] +Cell[15683, 514, 133, 2, 36, "Input",ExpressionUUID->"c2d0ca44-85be-421a-b28d-c7767ebcd082"], +Cell[15819, 518, 227, 4, 41, "Output",ExpressionUUID->"5668a067-7cd0-4adc-88e3-01d63a46aefe"] }, Open ]], Cell[CellGroupData[{ -Cell[15623, 545, 138, 3, 51, "Input",ExpressionUUID->"95036d73-7d19-4d9f-aebd-e1140ff405e7"], -Cell[15764, 550, 206, 4, 58, "Output",ExpressionUUID->"78b9c731-22f7-418d-b98b-4128ce0470e1"] +Cell[16083, 527, 134, 2, 36, "Input",ExpressionUUID->"95036d73-7d19-4d9f-aebd-e1140ff405e7"], +Cell[16220, 531, 228, 4, 41, "Output",ExpressionUUID->"2c631b0f-4165-42b2-90a7-9f6457aad281"] }, Open ]], Cell[CellGroupData[{ -Cell[16007, 559, 223, 5, 51, "Input",ExpressionUUID->"565c2c4b-9c72-41ce-b1dd-d2f0fb4c477d"], -Cell[16233, 566, 221, 5, 58, "Output",ExpressionUUID->"4363c20d-cee9-4502-974b-c5dcc61716d0"] +Cell[16485, 540, 219, 4, 36, "Input",ExpressionUUID->"565c2c4b-9c72-41ce-b1dd-d2f0fb4c477d"], +Cell[16707, 546, 241, 5, 41, "Output",ExpressionUUID->"b3adba7e-716d-43c3-b159-1a4337bb75e8"] }, Open ]], Cell[CellGroupData[{ -Cell[16491, 576, 138, 3, 51, "Input",ExpressionUUID->"133af694-f4d4-4cd7-a442-bd3a038c6094"], -Cell[16632, 581, 210, 4, 58, "Output",ExpressionUUID->"20f2022e-3320-4d4e-b49a-0231fe62f324"] +Cell[16985, 556, 134, 2, 36, "Input",ExpressionUUID->"133af694-f4d4-4cd7-a442-bd3a038c6094"], +Cell[17122, 560, 232, 4, 41, "Output",ExpressionUUID->"51496b9d-d4d0-4f79-8715-06ab08a73254"] }, Open ]], Cell[CellGroupData[{ -Cell[16879, 590, 330, 6, 51, "Input",ExpressionUUID->"f78cbb93-eb7a-4557-81c5-c1e29c95dfe9"], -Cell[17212, 598, 205, 4, 58, "Output",ExpressionUUID->"e6e5f46c-4908-4fbd-885f-9f935f08e667"] +Cell[17391, 569, 326, 5, 36, "Input",ExpressionUUID->"f78cbb93-eb7a-4557-81c5-c1e29c95dfe9"], +Cell[17720, 576, 226, 4, 41, "Output",ExpressionUUID->"75e0c670-deb8-43b9-b5cc-e86d57de2a61"] }, Open ]], Cell[CellGroupData[{ -Cell[17454, 607, 301, 6, 51, "Input",ExpressionUUID->"41a62cac-9938-4e2c-b950-12ae5fa097b7"], -Cell[17758, 615, 205, 4, 58, "Output",ExpressionUUID->"9b55dfcb-c473-40ee-b76b-5c6523d40e33"] +Cell[17983, 585, 297, 5, 36, "Input",ExpressionUUID->"41a62cac-9938-4e2c-b950-12ae5fa097b7"], +Cell[18283, 592, 227, 4, 41, "Output",ExpressionUUID->"24da7a3a-49e6-469d-a1de-ad16b049ca77"] }, Open ]], Cell[CellGroupData[{ -Cell[18000, 624, 223, 5, 51, "Input",ExpressionUUID->"e2ceff8c-3dbf-4275-98ba-286c26da6763"], -Cell[18226, 631, 203, 4, 58, "Output",ExpressionUUID->"e73e599c-981f-45f5-ab72-8dce8fba7052"] +Cell[18547, 601, 219, 4, 36, "Input",ExpressionUUID->"e2ceff8c-3dbf-4275-98ba-286c26da6763"], +Cell[18769, 607, 225, 4, 41, "Output",ExpressionUUID->"4971a594-40dc-4a0c-8b0d-261eafc5d5c8"] }, Open ]], Cell[CellGroupData[{ -Cell[18466, 640, 354, 11, 74, "Input",ExpressionUUID->"a725844d-015d-4632-9657-5304169611d8"], -Cell[18823, 653, 223, 4, 58, "Output",ExpressionUUID->"9430d311-b136-4610-8769-4fb19588a888"] +Cell[19031, 616, 350, 10, 54, "Input",ExpressionUUID->"a725844d-015d-4632-9657-5304169611d8"], +Cell[19384, 628, 245, 4, 41, "Output",ExpressionUUID->"a36147fd-64e3-44ac-934b-5e99af78b26c"] }, Open ]], Cell[CellGroupData[{ -Cell[19083, 662, 354, 11, 74, "Input",ExpressionUUID->"3319928f-d9da-4c77-93ed-73db22a0fcbd"], -Cell[19440, 675, 238, 5, 58, "Output",ExpressionUUID->"62cbd768-4bf9-4aa2-b48a-e6dcc9893faf"] +Cell[19666, 637, 350, 10, 54, "Input",ExpressionUUID->"3319928f-d9da-4c77-93ed-73db22a0fcbd"], +Cell[20019, 649, 260, 5, 41, "Output",ExpressionUUID->"d3265eb7-6dd7-417b-86c5-896cdc98a1a5"] }, Open ]], Cell[CellGroupData[{ -Cell[19715, 685, 998, 27, 142, "Input",ExpressionUUID->"ecb53369-f77b-4dd2-8e8f-1297027565fb"], -Cell[20716, 714, 223, 4, 58, "Output",ExpressionUUID->"d1393760-2978-4d11-97a0-852b384b38e9"] +Cell[20316, 659, 994, 26, 55, "Input",ExpressionUUID->"ecb53369-f77b-4dd2-8e8f-1297027565fb"], +Cell[21313, 687, 244, 4, 41, "Output",ExpressionUUID->"9383b63e-33e8-442f-b6b6-ee0e4116a113"] }, Open ]], Cell[CellGroupData[{ -Cell[20976, 723, 203, 4, 51, "Input",ExpressionUUID->"a8a29057-1886-46c0-baa4-e09a6ce3e8c8"], -Cell[21182, 729, 204, 4, 58, "Output",ExpressionUUID->"73cb7a46-15c5-41d4-a96b-567509b2b468"] +Cell[21594, 696, 199, 3, 36, "Input",ExpressionUUID->"a8a29057-1886-46c0-baa4-e09a6ce3e8c8"], +Cell[21796, 701, 226, 4, 41, "Output",ExpressionUUID->"92b1aeab-f5eb-4a8d-a6f9-08e887caecb0"] }, Open ]], Cell[CellGroupData[{ -Cell[21423, 738, 303, 6, 51, "Input",ExpressionUUID->"79f6cf1e-8d99-4ed4-b0ee-520490dfe89e"], -Cell[21729, 746, 176, 3, 58, "Output",ExpressionUUID->"a52a3788-994f-42ca-b9e6-4f882ccb7832"] +Cell[22059, 710, 299, 5, 36, "Input",ExpressionUUID->"79f6cf1e-8d99-4ed4-b0ee-520490dfe89e"], +Cell[22361, 717, 198, 3, 41, "Output",ExpressionUUID->"c22e7b75-a2d2-43c5-9f70-3b93104095bc"] }, Open ]], -Cell[21920, 752, 177, 3, 51, "Input",ExpressionUUID->"77019c38-b57b-4de8-be3e-591a23347d7b"], +Cell[22574, 723, 173, 2, 36, "Input",ExpressionUUID->"77019c38-b57b-4de8-be3e-591a23347d7b"], Cell[CellGroupData[{ -Cell[22122, 759, 331, 6, 51, "Input",ExpressionUUID->"fe438279-c0e6-4c37-bc40-51bbdb69d41c"], -Cell[22456, 767, 184, 3, 58, "Output",ExpressionUUID->"b7359a20-bbb2-4aa2-aa24-8baea136389e"] +Cell[22772, 729, 327, 5, 36, "Input",ExpressionUUID->"fe438279-c0e6-4c37-bc40-51bbdb69d41c"], +Cell[23102, 736, 206, 3, 41, "Output",ExpressionUUID->"30048d69-1c00-4896-b0a2-2f5c433d2bb2"] }, Open ]], -Cell[22655, 773, 177, 3, 51, "Input",ExpressionUUID->"f0ba7773-0e2a-4943-8f3d-4b8d3279b2bd"], +Cell[23323, 742, 173, 2, 36, "Input",ExpressionUUID->"f0ba7773-0e2a-4943-8f3d-4b8d3279b2bd"], Cell[CellGroupData[{ -Cell[22857, 780, 333, 6, 51, "Input",ExpressionUUID->"fd018164-ede3-4627-9926-b692d32fb39a"], -Cell[23193, 788, 183, 3, 58, "Output",ExpressionUUID->"2f05c499-39d0-4374-9b26-480cebcfa3b5"] +Cell[23521, 748, 329, 5, 36, "Input",ExpressionUUID->"fd018164-ede3-4627-9926-b692d32fb39a"], +Cell[23853, 755, 207, 3, 41, "Output",ExpressionUUID->"79181c48-e597-4bf7-b685-014e2eb82995"] }, Open ]], -Cell[23391, 794, 177, 3, 51, "Input",ExpressionUUID->"43ae2c3c-4998-4ce6-8260-1ba43d05f347"], +Cell[24075, 761, 173, 2, 36, "Input",ExpressionUUID->"43ae2c3c-4998-4ce6-8260-1ba43d05f347"], Cell[CellGroupData[{ -Cell[23593, 801, 358, 6, 51, "Input",ExpressionUUID->"843f9a7c-7692-4007-a356-14369f2e140b"], -Cell[23954, 809, 182, 3, 58, "Output",ExpressionUUID->"021f7f5c-162b-453c-815a-5f00b342356d"] +Cell[24273, 767, 354, 5, 36, "Input",ExpressionUUID->"843f9a7c-7692-4007-a356-14369f2e140b"], +Cell[24630, 774, 204, 3, 41, "Output",ExpressionUUID->"ddbe220e-6fa4-4616-b0bc-9fcadfd7f379"] }, Open ]], -Cell[24151, 815, 175, 3, 51, "Input",ExpressionUUID->"ce522a44-8ee4-47dc-a321-dc188837389e"], +Cell[24849, 780, 171, 2, 36, "Input",ExpressionUUID->"ce522a44-8ee4-47dc-a321-dc188837389e"], Cell[CellGroupData[{ -Cell[24351, 822, 305, 6, 51, "Input",ExpressionUUID->"979b8d8b-828d-4454-b2c3-c9a4f483082d"], -Cell[24659, 830, 182, 3, 58, "Output",ExpressionUUID->"493c810b-5f34-4368-b0a8-f663c5c5ddf7"] +Cell[25045, 786, 301, 5, 36, "Input",ExpressionUUID->"979b8d8b-828d-4454-b2c3-c9a4f483082d"], +Cell[25349, 793, 204, 3, 41, "Output",ExpressionUUID->"d07229ee-98e9-4a55-9441-c7e658e9f6cd"] }, Open ]], -Cell[24856, 836, 175, 3, 51, "Input",ExpressionUUID->"6c4802fd-5971-4e70-ae0c-09e85391b46c"], +Cell[25568, 799, 171, 2, 36, "Input",ExpressionUUID->"6c4802fd-5971-4e70-ae0c-09e85391b46c"], Cell[CellGroupData[{ -Cell[25056, 843, 307, 6, 51, "Input",ExpressionUUID->"c74dcd87-311e-441d-ad79-bd2c01ea5412"], -Cell[25366, 851, 184, 3, 58, "Output",ExpressionUUID->"bfff1e19-bbd4-4788-9313-897907306d5c"] +Cell[25764, 805, 303, 5, 36, "Input",ExpressionUUID->"c74dcd87-311e-441d-ad79-bd2c01ea5412"], +Cell[26070, 812, 208, 3, 41, "Output",ExpressionUUID->"19596cdd-9f96-4c72-b807-da16403f0c12"] }, Open ]], -Cell[25565, 857, 177, 3, 51, "Input",ExpressionUUID->"e5ee8519-4749-4966-b919-2736f220f0e7"], +Cell[26293, 818, 173, 2, 36, "Input",ExpressionUUID->"e5ee8519-4749-4966-b919-2736f220f0e7"], Cell[CellGroupData[{ -Cell[25767, 864, 311, 6, 51, "Input",ExpressionUUID->"b7008e3c-af75-498b-8407-88465d3d9964"], -Cell[26081, 872, 183, 3, 58, "Output",ExpressionUUID->"a7c06ada-b8e7-47fe-ae4f-bcc3633938d2"] +Cell[26491, 824, 307, 5, 36, "Input",ExpressionUUID->"b7008e3c-af75-498b-8407-88465d3d9964"], +Cell[26801, 831, 205, 3, 41, "Output",ExpressionUUID->"bbd36ef6-ab34-4868-bfe2-687c82138829"] }, Open ]], -Cell[26279, 878, 176, 3, 51, "Input",ExpressionUUID->"98bb308b-e00b-4ff8-ba75-3495421b9524"], +Cell[27021, 837, 172, 2, 36, "Input",ExpressionUUID->"98bb308b-e00b-4ff8-ba75-3495421b9524"], Cell[CellGroupData[{ -Cell[26480, 885, 279, 5, 51, "Input",ExpressionUUID->"25bf3be4-d3ad-4161-a096-a103b208607a"], -Cell[26762, 892, 182, 3, 58, "Output",ExpressionUUID->"42855f81-473c-47f9-88b1-d5f379b75ad2"] +Cell[27218, 843, 275, 4, 36, "Input",ExpressionUUID->"25bf3be4-d3ad-4161-a096-a103b208607a"], +Cell[27496, 849, 204, 3, 41, "Output",ExpressionUUID->"eabaffce-72c7-4190-85dd-a8a0f02f2e96"] }, Open ]], -Cell[26959, 898, 179, 3, 51, "Input",ExpressionUUID->"fee96512-9988-4a57-959f-d5595ab7a1ed"], +Cell[27715, 855, 175, 2, 36, "Input",ExpressionUUID->"fee96512-9988-4a57-959f-d5595ab7a1ed"], Cell[CellGroupData[{ -Cell[27163, 905, 19813, 486, 2581, "Input",ExpressionUUID->"03651c9f-474a-4861-b71e-1977e65d1593"], -Cell[46979, 1393, 221, 4, 58, "Output",ExpressionUUID->"632c917c-d6ae-4179-be4b-8f8adca35a87"] +Cell[27915, 861, 19809, 485, 1708, "Input",ExpressionUUID->"03651c9f-474a-4861-b71e-1977e65d1593"], +Cell[47727, 1348, 243, 4, 41, "Output",ExpressionUUID->"1ff7c4e5-2eee-44ff-a4e1-9e4b5cf18ef5"] }, Open ]], Cell[CellGroupData[{ -Cell[47237, 1402, 19752, 490, 2539, "Input",ExpressionUUID->"fff0dfbf-b7d7-48e3-a0e0-113f126cfa3b"], -Cell[66992, 1894, 221, 4, 58, "Output",ExpressionUUID->"4c245599-b097-4aae-a1d3-867d38b7b933"] +Cell[48007, 1357, 19748, 489, 1720, "Input",ExpressionUUID->"fff0dfbf-b7d7-48e3-a0e0-113f126cfa3b"], +Cell[67758, 1848, 243, 4, 41, "Output",ExpressionUUID->"43124b44-b368-4740-b89a-f2fb2f3f9fe4"] }, Open ]], Cell[CellGroupData[{ -Cell[67250, 1903, 19752, 484, 2561, "Input",ExpressionUUID->"0fbd108c-22d6-4eb5-a83f-71368ad57adf"], -Cell[87005, 2389, 235, 5, 109, "Output",ExpressionUUID->"67b76dcf-acfc-4a8a-a0ea-20a3245851fe"] +Cell[68038, 1857, 19748, 483, 1720, "Input",ExpressionUUID->"0fbd108c-22d6-4eb5-a83f-71368ad57adf"], +Cell[87789, 2342, 257, 5, 41, "Output",ExpressionUUID->"c35ab88b-7b27-4552-b129-52a9f58f773e"] }, Open ]], Cell[CellGroupData[{ -Cell[87277, 2399, 28300, 713, 109, "Input",ExpressionUUID->"9cc386c1-c114-496a-90f8-367ccb9aabf7"], -Cell[115580, 3114, 235, 5, 58, "Output",ExpressionUUID->"6aeb2d5e-d99b-492d-ab39-505092912a62"] +Cell[88083, 2352, 28296, 712, 1307, "Input",ExpressionUUID->"9cc386c1-c114-496a-90f8-367ccb9aabf7"], +Cell[116382, 3066, 257, 5, 41, "Output",ExpressionUUID->"f28b447c-fd3b-4f5b-aa1b-ed3e9ea5ad3f"] }, Open ]], Cell[CellGroupData[{ -Cell[115852, 3124, 22539, 554, 2883, "Input",ExpressionUUID->"e40b8eb7-8608-476d-abf0-dd50b747c2d4"], -Cell[138394, 3680, 238, 5, 58, "Output",ExpressionUUID->"44059afa-01a3-4009-be0d-f15212372938"] +Cell[116676, 3076, 22535, 553, 1885, "Input",ExpressionUUID->"e40b8eb7-8608-476d-abf0-dd50b747c2d4"], +Cell[139214, 3631, 259, 5, 41, "Output",ExpressionUUID->"d45d7c51-25e1-476c-8bfd-e38f593d3af3"] }, Open ]], Cell[CellGroupData[{ -Cell[138669, 3690, 25495, 627, 3226, "Input",ExpressionUUID->"ef73288a-49ed-4951-8dcf-ee3fa395ebad"], -Cell[164167, 4319, 239, 5, 58, "Output",ExpressionUUID->"df1b33cb-45db-4c3f-9a33-76248ebf3fa1"] +Cell[139510, 3641, 25491, 626, 2078, "Input",ExpressionUUID->"ef73288a-49ed-4951-8dcf-ee3fa395ebad"], +Cell[165004, 4269, 261, 5, 41, "Output",ExpressionUUID->"df31f9ef-bf46-4cd7-9faa-5a310701d183"] }, Open ]], Cell[CellGroupData[{ -Cell[164443, 4329, 134, 3, 51, "Input",ExpressionUUID->"e1b324d1-73b0-4899-8964-91d10b73e793"], -Cell[164580, 4334, 204, 4, 58, "Output",ExpressionUUID->"34f189b4-4388-4e16-acdb-ede25cb814e9"] +Cell[165302, 4279, 130, 2, 36, "Input",ExpressionUUID->"e1b324d1-73b0-4899-8964-91d10b73e793"], +Cell[165435, 4283, 226, 4, 41, "Output",ExpressionUUID->"02b5eaaa-b5a6-4b42-a2ca-a7c26253ed04"] }, Open ]], Cell[CellGroupData[{ -Cell[164821, 4343, 134, 3, 51, "Input",ExpressionUUID->"acab4541-1b13-4655-8fdd-88c66483857f"], -Cell[164958, 4348, 204, 4, 58, "Output",ExpressionUUID->"ff3682c2-1fe6-4c86-8497-107d91e4ed4a"] +Cell[165698, 4292, 130, 2, 36, "Input",ExpressionUUID->"acab4541-1b13-4655-8fdd-88c66483857f"], +Cell[165831, 4296, 226, 4, 41, "Output",ExpressionUUID->"72484fef-35f3-4841-8453-4d1d5ab0d220"] }, Open ]], Cell[CellGroupData[{ -Cell[165199, 4357, 1148, 40, 190, "Input",ExpressionUUID->"2c6d69d7-dd5c-492a-8527-1474b4f1cdeb"], -Cell[166350, 4399, 218, 4, 58, "Output",ExpressionUUID->"8856d5e6-440a-4b9e-9c01-7561f2d98d28"] +Cell[166094, 4305, 1144, 39, 73, "Input",ExpressionUUID->"2c6d69d7-dd5c-492a-8527-1474b4f1cdeb"], +Cell[167241, 4346, 239, 4, 41, "Output",ExpressionUUID->"56c9cfed-6646-4e88-993d-5ea00d43da91"] }, Open ]], Cell[CellGroupData[{ -Cell[166605, 4408, 1045, 36, 257, "Input",ExpressionUUID->"047071bb-0f99-429f-b343-bc023b01c195"], -Cell[167653, 4446, 238, 5, 58, "Output",ExpressionUUID->"fcf2ea08-19d0-4aea-a8da-7a9236737a54"] +Cell[167517, 4355, 1041, 35, 73, "Input",ExpressionUUID->"047071bb-0f99-429f-b343-bc023b01c195"], +Cell[168561, 4392, 260, 5, 41, "Output",ExpressionUUID->"35c3b4d3-8839-49de-80dc-359c56802cf3"] }, Open ]], Cell[CellGroupData[{ -Cell[167928, 4456, 1148, 40, 190, "Input",ExpressionUUID->"b34faa9d-9966-4c24-b3a5-bddaa1c1afcd"], -Cell[169079, 4498, 222, 4, 58, "Output",ExpressionUUID->"283ebefd-8842-4fbd-ab0f-425e63507696"] +Cell[168858, 4402, 1144, 39, 73, "Input",ExpressionUUID->"b34faa9d-9966-4c24-b3a5-bddaa1c1afcd"], +Cell[170005, 4443, 244, 4, 41, "Output",ExpressionUUID->"4ce745f2-b04f-4c5c-ab0e-8eb7c39529fa"] }, Open ]], Cell[CellGroupData[{ -Cell[169338, 4507, 112, 2, 51, "Input",ExpressionUUID->"8d3a22ef-5bae-4a8d-a727-5cf6fdd363dd"], -Cell[169453, 4511, 224, 4, 58, "Output",ExpressionUUID->"6e60ae6a-dce1-46b6-ada7-419bcae323b9"] +Cell[170286, 4452, 108, 1, 36, "Input",ExpressionUUID->"8d3a22ef-5bae-4a8d-a727-5cf6fdd363dd"], +Cell[170397, 4455, 246, 4, 41, "Output",ExpressionUUID->"eeeafa63-53e9-4582-89c3-0a9bdb458b36"] }, Open ]], Cell[CellGroupData[{ -Cell[169714, 4520, 112, 2, 51, "Input",ExpressionUUID->"e135c10d-1ad4-467b-a4e4-d6c131377bd2"], -Cell[169829, 4524, 241, 5, 58, "Output",ExpressionUUID->"59d11cab-ee69-450b-85a4-5a03854f1c87"] +Cell[170680, 4464, 108, 1, 36, "Input",ExpressionUUID->"e135c10d-1ad4-467b-a4e4-d6c131377bd2"], +Cell[170791, 4467, 262, 5, 41, "Output",ExpressionUUID->"f4575cee-56fc-4c53-8a5b-3f6d525f7d52"] }, Open ]], Cell[CellGroupData[{ -Cell[170107, 4534, 112, 2, 51, "Input",ExpressionUUID->"016a452b-0935-4767-8c52-867fc2e2db3d"], -Cell[170222, 4538, 239, 5, 58, "Output",ExpressionUUID->"ff099a91-06b3-4687-8f21-8daae70a3cb5"] +Cell[171090, 4477, 108, 1, 36, "Input",ExpressionUUID->"016a452b-0935-4767-8c52-867fc2e2db3d"], +Cell[171201, 4480, 261, 5, 41, "Output",ExpressionUUID->"caadf1da-6b53-4901-9756-6634c35fbb4e"] }, Open ]], Cell[CellGroupData[{ -Cell[170498, 4548, 112, 2, 51, "Input",ExpressionUUID->"70d6650f-2683-4ae0-9b6a-57e1dba59bb6"], -Cell[170613, 4552, 219, 4, 58, "Output",ExpressionUUID->"64f3054d-65f6-4789-8254-861754130fe4"] +Cell[171499, 4490, 108, 1, 36, "Input",ExpressionUUID->"70d6650f-2683-4ae0-9b6a-57e1dba59bb6"], +Cell[171610, 4493, 241, 4, 41, "Output",ExpressionUUID->"1a029f77-0cdd-47d3-85c8-3a49bdecc39b"] }, Open ]], Cell[CellGroupData[{ -Cell[170869, 4561, 111, 2, 51, "Input",ExpressionUUID->"eb835526-c28e-4374-a360-7cc95750819b"], -Cell[170983, 4565, 221, 4, 58, "Output",ExpressionUUID->"1a25a1c6-73bd-4cac-b185-9d9f2be106d0"] +Cell[171888, 4502, 107, 1, 36, "Input",ExpressionUUID->"eb835526-c28e-4374-a360-7cc95750819b"], +Cell[171998, 4505, 243, 4, 41, "Output",ExpressionUUID->"026741ab-b657-4d05-901e-762f57478fe5"] }, Open ]], Cell[CellGroupData[{ -Cell[171241, 4574, 111, 2, 51, "Input",ExpressionUUID->"e9d46a69-f2c3-4eae-8422-f7a11e9f93ee"], -Cell[171355, 4578, 222, 4, 58, "Output",ExpressionUUID->"d5dea28d-e2eb-4066-a02e-60bcb1f4ac54"] +Cell[172278, 4514, 107, 1, 36, "Input",ExpressionUUID->"e9d46a69-f2c3-4eae-8422-f7a11e9f93ee"], +Cell[172388, 4517, 243, 4, 41, "Output",ExpressionUUID->"bc6dcc58-5632-4876-83d0-dcc9a37b2d65"] }, Open ]], Cell[CellGroupData[{ -Cell[171614, 4587, 501, 17, 97, "Input",ExpressionUUID->"27220227-e6ad-4017-8dda-993781a4c253"], -Cell[172118, 4606, 242, 5, 58, "Output",ExpressionUUID->"300fd3e7-b906-40d2-ba26-9a11bd8830b7"] +Cell[172668, 4526, 497, 16, 71, "Input",ExpressionUUID->"27220227-e6ad-4017-8dda-993781a4c253"], +Cell[173168, 4544, 264, 5, 41, "Output",ExpressionUUID->"31be9c34-999a-4068-93fd-a681727bd6a2"] }, Open ]], Cell[CellGroupData[{ -Cell[172397, 4616, 501, 17, 97, "Input",ExpressionUUID->"88b08446-9f3e-4bf9-adeb-e51633506be3"], -Cell[172901, 4635, 234, 5, 41, "Output",ExpressionUUID->"b48b0644-6736-489b-ac5f-269df6006584"] +Cell[173469, 4554, 497, 16, 71, "Input",ExpressionUUID->"88b08446-9f3e-4bf9-adeb-e51633506be3"], +Cell[173969, 4572, 258, 5, 41, "Output",ExpressionUUID->"eb0b4747-5a21-4e75-aab5-077e815980cd"] }, Open ]], Cell[CellGroupData[{ -Cell[173172, 4645, 1792, 61, 142, "Input",ExpressionUUID->"51a67b8b-4b2f-4ba5-8b74-00330c252eb9"], -Cell[174967, 4708, 224, 4, 41, "Output",ExpressionUUID->"b04a547b-3eab-42a1-888f-825a5f6b7567"] +Cell[174264, 4582, 1788, 60, 142, "Input",ExpressionUUID->"51a67b8b-4b2f-4ba5-8b74-00330c252eb9"], +Cell[176055, 4644, 248, 4, 41, "Output",ExpressionUUID->"d55f7b39-838c-4951-9c4f-927572deb369"] }, Open ]], Cell[CellGroupData[{ -Cell[175228, 4717, 1105, 37, 73, "Input",ExpressionUUID->"f3430c54-256a-4826-8309-198312027df4"], -Cell[176336, 4756, 239, 5, 41, "Output",ExpressionUUID->"9e00af96-eba7-4ea7-ba41-1c632637f718"] +Cell[176340, 4653, 1101, 36, 73, "Input",ExpressionUUID->"f3430c54-256a-4826-8309-198312027df4"], +Cell[177444, 4691, 263, 5, 41, "Output",ExpressionUUID->"6847cbf9-8563-45e6-9012-6319d45a4d09"] }, Open ]], Cell[CellGroupData[{ -Cell[176612, 4766, 1822, 62, 144, "Input",ExpressionUUID->"d41d633d-6eba-4229-8b2f-56b2d4249141"], -Cell[178437, 4830, 221, 4, 41, "Output",ExpressionUUID->"cb18e807-1f13-44ca-a808-f6e1f52d0b72"] +Cell[177744, 4701, 1818, 61, 144, "Input",ExpressionUUID->"d41d633d-6eba-4229-8b2f-56b2d4249141"], +Cell[179565, 4764, 241, 4, 41, "Output",ExpressionUUID->"181dd3c4-0700-47e7-8af2-257b65e4782c"] }, Open ]], Cell[CellGroupData[{ -Cell[178695, 4839, 1635, 54, 101, "Input",ExpressionUUID->"3f4bf9b9-5644-4849-9111-ea0caa4ab21e"], -Cell[180333, 4895, 223, 4, 41, "Output",ExpressionUUID->"735ac1f7-3a02-4e1f-bc3c-f8f211e9add1"] +Cell[179843, 4773, 1631, 53, 101, "Input",ExpressionUUID->"3f4bf9b9-5644-4849-9111-ea0caa4ab21e"], +Cell[181477, 4828, 247, 4, 41, "Output",ExpressionUUID->"6f96952c-3e1d-47dd-8ca8-23da9987743d"] }, Open ]], Cell[CellGroupData[{ -Cell[180593, 4904, 1635, 54, 101, "Input",ExpressionUUID->"781db07e-d341-40d3-b5dc-12e30e9901c3"], -Cell[182231, 4960, 221, 4, 41, "Output",ExpressionUUID->"5361d362-fbe4-481f-8e84-dc09b7e1b605"] +Cell[181761, 4837, 1631, 53, 101, "Input",ExpressionUUID->"781db07e-d341-40d3-b5dc-12e30e9901c3"], +Cell[183395, 4892, 243, 4, 41, "Output",ExpressionUUID->"06456fe7-b69f-44a4-925b-4595157c684c"] }, Open ]], -Cell[182467, 4967, 187, 4, 36, "Input",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], -Cell[182657, 4973, 154, 3, 36, "Input",ExpressionUUID->"5965eb10-01f8-5545-9b6f-8fab318cd4b7"], -Cell[182814, 4978, 187, 4, 36, "Input",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], -Cell[183004, 4984, 154, 3, 36, "Input",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], Cell[CellGroupData[{ -Cell[183183, 4991, 1301, 43, 61, "Input",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], -Cell[184487, 5036, 178, 3, 41, "Output",ExpressionUUID->"d7904bcf-fc55-b844-b4d2-059d830f1317"] +Cell[183675, 4901, 206, 3, 36, "Input",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], +Cell[183884, 4906, 161, 2, 41, "Output",ExpressionUUID->"a04f0982-d86a-4833-8a9c-e9ee3306cd8a"] }, Open ]], +Cell[184060, 4911, 173, 2, 36, "Input",ExpressionUUID->"5965eb10-01f8-5545-9b6f-8fab318cd4b7"], Cell[CellGroupData[{ -Cell[184702, 5044, 908, 31, 73, "Input",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], -Cell[185613, 5077, 177, 3, 41, "Output",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] +Cell[184258, 4917, 206, 3, 36, "Input",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], +Cell[184467, 4922, 161, 2, 41, "Output",ExpressionUUID->"e5e84aed-f4b5-4c1e-add1-71c65fac3367"] }, Open ]], +Cell[184643, 4927, 173, 2, 36, "Input",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], Cell[CellGroupData[{ -Cell[185827, 5085, 889, 30, 73, "Input",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], -Cell[186719, 5117, 178, 3, 41, "Output",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] +Cell[184841, 4933, 1297, 42, 61, "Input",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], +Cell[186141, 4977, 196, 2, 41, "Output",ExpressionUUID->"685de026-f83b-4af3-8519-03d6f7202b06"] }, Open ]], Cell[CellGroupData[{ -Cell[186934, 5125, 558, 19, 66, "Input",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], -Cell[187495, 5146, 172, 3, 41, "Output",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] +Cell[186374, 4984, 927, 30, 73, "Input",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], +Cell[187304, 5016, 195, 2, 41, "Output",ExpressionUUID->"3aec561c-7649-4ead-9993-ac12c6930aca"] }, Open ]], Cell[CellGroupData[{ -Cell[187704, 5154, 651, 22, 66, "Input",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], -Cell[188358, 5178, 167, 3, 41, "Output",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] +Cell[187536, 5023, 908, 29, 73, "Input",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], +Cell[188447, 5054, 196, 2, 41, "Output",ExpressionUUID->"9edeeb33-33db-4fc5-8bb1-634c43364b52"] }, Open ]], Cell[CellGroupData[{ -Cell[188562, 5186, 170, 5, 71, "Input",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], -Cell[188735, 5193, 172, 3, 41, "Output",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +Cell[188680, 5061, 554, 18, 66, "Input",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], +Cell[189237, 5081, 193, 2, 41, "Output",ExpressionUUID->"dc9fd965-8b84-445e-af68-5582d6970f80"] }, Open ]], Cell[CellGroupData[{ -Cell[188944, 5201, 170, 5, 69, "Input",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], -Cell[189117, 5208, 173, 3, 41, "Output",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +Cell[189467, 5088, 647, 21, 66, "Input",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], +Cell[190117, 5111, 190, 2, 41, "Output",ExpressionUUID->"aa2f0747-8f48-424e-ad15-6a726657d21d"] }, Open ]], Cell[CellGroupData[{ -Cell[189327, 5216, 181, 5, 55, "Input",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], -Cell[189511, 5223, 171, 3, 41, "Output",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +Cell[190344, 5118, 166, 4, 71, "Input",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], +Cell[190513, 5124, 191, 2, 41, "Output",ExpressionUUID->"0f680c02-3d6d-4af8-89c4-86619cc37784"] }, Open ]], Cell[CellGroupData[{ -Cell[189719, 5231, 181, 5, 55, "Input",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], -Cell[189903, 5238, 172, 3, 41, "Output",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +Cell[190741, 5131, 166, 4, 69, "Input",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], +Cell[190910, 5137, 190, 2, 41, "Output",ExpressionUUID->"cfc62e22-6c6f-4fa6-8ccd-5dce9c0afdd0"] }, Open ]], Cell[CellGroupData[{ -Cell[190112, 5246, 6055, 185, 431, "Input",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], -Cell[196170, 5433, 174, 3, 41, "Output",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +Cell[191137, 5144, 177, 4, 55, "Input",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], +Cell[191317, 5150, 189, 2, 41, "Output",ExpressionUUID->"315b80ab-b40b-4c8f-902b-dbd91e8bcc53"] }, Open ]], Cell[CellGroupData[{ -Cell[196381, 5441, 368, 9, 53, "Input",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], -Cell[196752, 5452, 172, 3, 41, "Output",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +Cell[191543, 5157, 177, 4, 55, "Input",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], +Cell[191723, 5163, 191, 2, 41, "Output",ExpressionUUID->"db7c1165-afc9-4de8-b258-eca545f6533f"] }, Open ]], Cell[CellGroupData[{ -Cell[196961, 5460, 6122, 187, 431, "Input",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], -Cell[203086, 5649, 175, 3, 41, "Output",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +Cell[191951, 5170, 6051, 184, 431, "Input",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], +Cell[198005, 5356, 194, 2, 41, "Output",ExpressionUUID->"8ddeb39c-ddb2-4d64-84cc-babf179ce961"] }, Open ]], Cell[CellGroupData[{ -Cell[203298, 5657, 368, 9, 53, "Input",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], -Cell[203669, 5668, 172, 3, 41, "Output",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +Cell[198236, 5363, 364, 8, 53, "Input",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], +Cell[198603, 5373, 191, 2, 41, "Output",ExpressionUUID->"34544cfe-e30d-4389-a9e8-293cf39bc6a8"] }, Open ]], Cell[CellGroupData[{ -Cell[203878, 5676, 2663, 88, 215, "Input",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], -Cell[206544, 5766, 171, 3, 41, "Output",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +Cell[198831, 5380, 6118, 186, 431, "Input",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], +Cell[204952, 5568, 194, 2, 41, "Output",ExpressionUUID->"6232236c-42c0-4acd-8e46-802dcf428858"] }, Open ]], Cell[CellGroupData[{ -Cell[206752, 5774, 2603, 85, 109, "Input",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], -Cell[209358, 5861, 173, 3, 109, "Output",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +Cell[205183, 5575, 364, 8, 53, "Input",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], +Cell[205550, 5585, 192, 2, 41, "Output",ExpressionUUID->"7ee4f7d3-5670-4135-b824-860b7eb70b59"] }, Open ]], Cell[CellGroupData[{ -Cell[209568, 5869, 3712, 118, 109, "Input",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], -Cell[213283, 5989, 174, 3, 109, "Output",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] +Cell[205779, 5592, 2659, 87, 215, "Input",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], +Cell[208441, 5681, 190, 2, 41, "Output",ExpressionUUID->"74dbcd49-0640-43af-9ac2-751521b7125c"] }, Open ]], -Cell[213472, 5995, 138, 3, 109, "Input",ExpressionUUID->"8111b6bb-cdcb-ad40-9440-412e77bed40d"], Cell[CellGroupData[{ -Cell[213635, 6002, 2054, 59, 109, "Input",ExpressionUUID->"fc88a60e-e348-d344-96c4-1f4f66f53217"], -Cell[215692, 6063, 559, 12, 71, "Message",ExpressionUUID->"0833bd34-3252-a046-9aa3-94c1d6e5cfe9"], -Cell[216254, 6077, 560, 12, 71, "Message",ExpressionUUID->"f24a3618-ee43-704a-86fe-493dbed35e8d"], -Cell[216817, 6091, 565, 12, 71, "Message",ExpressionUUID->"86271901-aa3c-5542-ab18-fc06d3fd3f32"], -Cell[217385, 6105, 456, 10, 26, "Message",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], -Cell[217844, 6117, 170, 3, 41, "Output",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +Cell[208668, 5688, 2599, 84, 215, "Input",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], +Cell[211270, 5774, 191, 2, 41, "Output",ExpressionUUID->"44425131-3821-4290-9e9d-eb42733737dc"] }, Open ]], Cell[CellGroupData[{ -Cell[218051, 6125, 2054, 59, 116, "Input",ExpressionUUID->"dca13eb7-7f94-3e45-81a8-b62dad3009d2"], -Cell[220108, 6186, 559, 12, 71, "Message",ExpressionUUID->"44f2ed65-5109-0141-bef6-eebaeda3d61d"], -Cell[220670, 6200, 559, 12, 71, "Message",ExpressionUUID->"ba49f32e-1ff7-b147-9f42-9c90ccc55447"], -Cell[221232, 6214, 565, 12, 71, "Message",ExpressionUUID->"fa95acf1-55b2-c042-9a9f-32e1ebea5c1e"], -Cell[221800, 6228, 458, 10, 26, "Message",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], -Cell[222261, 6240, 170, 3, 41, "Output",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +Cell[211498, 5781, 3708, 117, 575, "Input",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], +Cell[215209, 5900, 193, 2, 41, "Output",ExpressionUUID->"d85682ed-a81a-46de-9ae8-ce963c81a1a8"] }, Open ]], +Cell[215417, 5905, 160, 3, 36, "Input",ExpressionUUID->"8111b6bb-cdcb-ad40-9440-412e77bed40d"], Cell[CellGroupData[{ -Cell[222468, 6248, 1938, 53, 86, "Input",ExpressionUUID->"46451e4d-f5ef-b246-91c6-4265c9fafb97"], -Cell[224409, 6303, 20207, 379, 295, "Output",ExpressionUUID->"0e6ef056-d4e3-ac4d-9f2a-df071f8decb1"] +Cell[215602, 5912, 2073, 58, 276, "Input",ExpressionUUID->"fc88a60e-e348-d344-96c4-1f4f66f53217"], +Cell[217678, 5972, 590, 13, 71, "Message",ExpressionUUID->"839772e0-1773-4123-a1d4-56b26a41a7a7"], +Cell[218271, 5987, 595, 13, 71, "Message",ExpressionUUID->"dc4e0a52-2cd1-4893-89c3-5ffbec414b8a"], +Cell[218869, 6002, 597, 13, 71, "Message",ExpressionUUID->"50c81d1c-8692-44f2-b065-e786c051d29a"], +Cell[219469, 6017, 495, 11, 32, "Message",ExpressionUUID->"09a29c2a-8944-42b5-aebf-0c009385424f"], +Cell[219967, 6030, 191, 2, 41, "Output",ExpressionUUID->"1e761b45-9580-4b5d-8064-b1a190251689"] }, Open ]], Cell[CellGroupData[{ -Cell[244653, 6687, 2094, 60, 116, "Input",ExpressionUUID->"06bd0169-a5a6-404c-935d-e1a61565f71e"], -Cell[246750, 6749, 503, 11, 48, "Message",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], -Cell[247256, 6762, 505, 11, 48, "Message",ExpressionUUID->"637082a9-fe74-7345-8895-dee77343ee6f"], -Cell[247764, 6775, 506, 11, 48, "Message",ExpressionUUID->"b2e7262c-7c6d-d94d-a545-ea4b363e579a"], -Cell[248273, 6788, 455, 10, 32, "Message",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], -Cell[248731, 6800, 55770, 961, 290, "Output",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] +Cell[220195, 6037, 2073, 58, 276, "Input",ExpressionUUID->"dca13eb7-7f94-3e45-81a8-b62dad3009d2"], +Cell[222271, 6097, 665, 14, 73, "Message",ExpressionUUID->"2335acda-f202-44ff-93e3-3798e894102b"], +Cell[222939, 6113, 665, 14, 73, "Message",ExpressionUUID->"165dec86-e79b-4a4c-a94d-6e3405103414"], +Cell[223607, 6129, 665, 14, 73, "Message",ExpressionUUID->"cc3bbfe7-2998-4e26-a51c-6da5b62d035e"], +Cell[224275, 6145, 495, 11, 32, "Message",ExpressionUUID->"c0fc76be-c20e-4be0-9e4e-f03fa8ff8665"], +Cell[224773, 6158, 188, 2, 41, "Output",ExpressionUUID->"28783ed7-9024-4648-a00a-8a070a87f36d"] }, Open ]], -Cell[304516, 7764, 2452, 69, 140, "Input",ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-b938908ab9a4"], -Cell[306971, 7835, 209, 5, 36, "Input",ExpressionUUID->"6b0777bb-40fd-b54e-aa03-b6e82cb2e939"], Cell[CellGroupData[{ -Cell[307205, 7844, 217, 7, 61, "Input",ExpressionUUID->"1ec1e156-ca0f-9240-857c-ac86e3a0e3fd"], -Cell[307425, 7853, 173, 3, 41, "Output",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +Cell[224998, 6165, 2049, 54, 232, "Input",ExpressionUUID->"46451e4d-f5ef-b246-91c6-4265c9fafb97"], +Cell[227050, 6221, 20236, 380, 297, "Output",ExpressionUUID->"33d6e8e4-4e46-4148-9944-b662dca0f1d9"] }, Open ]], Cell[CellGroupData[{ -Cell[307635, 7861, 1814, 53, 116, "Input",ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-da901e49f6f1"], -Cell[309452, 7916, 506, 11, 48, "Message",ExpressionUUID->"08a2126f-e71c-b94d-8844-15e292a8f7d1"], -Cell[309961, 7929, 508, 11, 48, "Message",ExpressionUUID->"1acf7f10-7675-ea41-b478-94e928ef3377"], -Cell[310472, 7942, 509, 11, 48, "Message",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], -Cell[310984, 7955, 458, 10, 32, "Message",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], -Cell[311445, 7967, 24818, 454, 290, "Output",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] +Cell[247323, 6606, 2113, 59, 311, "Input",ExpressionUUID->"06bd0169-a5a6-404c-935d-e1a61565f71e"], +Cell[249439, 6667, 536, 12, 71, "Message",ExpressionUUID->"54207490-50d5-4428-bb77-31c475ceb118"], +Cell[249978, 6681, 540, 12, 71, "Message",ExpressionUUID->"2ee773b3-dabd-43e3-baf1-b80c40f7a4cc"], +Cell[250521, 6695, 540, 12, 71, "Message",ExpressionUUID->"21e016a1-b4da-4744-83dc-40742fd6153c"], +Cell[251064, 6709, 492, 11, 32, "Message",ExpressionUUID->"708de067-4224-4b3c-913e-30d4cc835db6"], +Cell[251559, 6722, 21817, 404, 295, "Output",ExpressionUUID->"88e4a757-b47b-44d1-876b-9c4ced68fd50"] }, Open ]], Cell[CellGroupData[{ -Cell[336300, 8426, 1616, 48, 86, "Input",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], -Cell[337919, 8476, 582, 12, 71, "Message",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], -Cell[338504, 8490, 588, 12, 71, "Message",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], -Cell[339095, 8504, 590, 12, 71, "Message",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], -Cell[339688, 8518, 458, 10, 32, "Message",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], -Cell[340149, 8530, 171, 3, 41, "Output",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] +Cell[273413, 7131, 2474, 69, 296, "Input",ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-b938908ab9a4"], +Cell[275890, 7202, 9491, 222, 298, "Output",ExpressionUUID->"1a96d75f-f075-4f3f-9aa7-fa135d24588b"] }, Open ]], Cell[CellGroupData[{ -Cell[340357, 8538, 2251, 64, 81, "Input",ExpressionUUID->"0b10f52e-4583-2a4b-993d-96e59dd43e6a"], -Cell[342611, 8604, 557, 12, 71, "Message",ExpressionUUID->"0e308aaf-a4b5-d740-9882-5c338a63d7a7"], -Cell[343171, 8618, 560, 12, 71, "Message",ExpressionUUID->"5e35cc91-e340-c74b-b6dd-42063e8a308b"], -Cell[343734, 8632, 565, 12, 71, "Message",ExpressionUUID->"c3f5c3a9-ece1-e648-aa3a-3f66f2873ea7"], -Cell[344302, 8646, 458, 10, 32, "Message",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], -Cell[344763, 8658, 172, 3, 41, "Output",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] +Cell[285418, 7429, 228, 4, 36, "Input",ExpressionUUID->"6b0777bb-40fd-b54e-aa03-b6e82cb2e939"], +Cell[285649, 7435, 28180, 536, 295, "Output",ExpressionUUID->"f0edb356-2e40-4a2e-aba3-ef74230ee1b1"] }, Open ]], Cell[CellGroupData[{ -Cell[344972, 8666, 2218, 64, 81, "Input",ExpressionUUID->"a58948c9-6d3d-e847-a269-d2e0cc5d1484"], -Cell[347193, 8732, 559, 12, 71, "Message",ExpressionUUID->"2247cd70-3ffa-2245-971e-6c6a2bd1ecfc"], -Cell[347755, 8746, 562, 12, 71, "Message",ExpressionUUID->"d9ae7d5b-4e89-a74f-be53-15700ab2593c"], -Cell[348320, 8760, 563, 12, 71, "Message",ExpressionUUID->"821c7ce3-36cc-9549-9881-1225eb1561cf"], -Cell[348886, 8774, 458, 10, 32, "Message",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], -Cell[349347, 8786, 170, 3, 41, "Output",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] +Cell[313866, 7976, 236, 6, 61, "Input",ExpressionUUID->"1ec1e156-ca0f-9240-857c-ac86e3a0e3fd"], +Cell[314105, 7984, 190, 2, 41, "Output",ExpressionUUID->"9caeafc6-a71c-4d0e-a24d-518e3ad4c8e9"] }, Open ]], Cell[CellGroupData[{ -Cell[349554, 8794, 2221, 64, 81, "Input",ExpressionUUID->"c817b2d1-7deb-5a45-9938-ca10003188eb"], -Cell[351778, 8860, 559, 12, 71, "Message",ExpressionUUID->"3701f96f-691c-9040-a8a1-ff3958638338"], -Cell[352340, 8874, 562, 12, 71, "Message",ExpressionUUID->"9e260603-f97f-ac44-8251-869444fbcc24"], -Cell[352905, 8888, 563, 12, 71, "Message",ExpressionUUID->"f34d60ab-6a89-fd45-89b6-5f3b4b17dd22"], -Cell[353471, 8902, 458, 10, 32, "Message",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], -Cell[353932, 8914, 171, 3, 41, "Output",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] +Cell[314332, 7991, 1833, 52, 311, "Input",ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-da901e49f6f1"], +Cell[316168, 8045, 545, 12, 71, "Message",ExpressionUUID->"fa6b9ca7-67b7-4232-81b5-74461c30a378"], +Cell[316716, 8059, 548, 12, 71, "Message",ExpressionUUID->"c232d140-bb9a-4931-b26c-de7a5032127b"], +Cell[317267, 8073, 550, 12, 71, "Message",ExpressionUUID->"c638ae64-5610-45a1-9c46-58d47b0ff384"], +Cell[317820, 8087, 491, 11, 32, "Message",ExpressionUUID->"38210fbb-5fd9-40b1-8522-1598c859d7ad"], +Cell[318314, 8100, 21867, 404, 290, "Output",ExpressionUUID->"9f456af2-db7a-424b-84b2-19123aa62e5e"] }, Open ]], Cell[CellGroupData[{ -Cell[354140, 8922, 213, 6, 60, "Input",ExpressionUUID->"350334c7-7c47-c24c-8adc-781173809e57"], -Cell[354356, 8930, 173, 3, 41, "Output",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] +Cell[340218, 8509, 1616, 48, 132, "Input",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], +Cell[341837, 8559, 665, 14, 73, "Message",ExpressionUUID->"79cde8ea-2927-4549-a178-e0e7ae2650d0"], +Cell[342505, 8575, 665, 14, 73, "Message",ExpressionUUID->"1e68c7d9-4a91-4f88-b1e9-d77ba3f427b1"], +Cell[343173, 8591, 665, 14, 73, "Message",ExpressionUUID->"5efbb723-135b-44ad-a744-1c842ab9a889"], +Cell[343841, 8607, 493, 11, 32, "Message",ExpressionUUID->"8e9c8b9c-34ca-408a-8991-c621c9d5a857"], +Cell[344337, 8620, 192, 3, 41, "Output",ExpressionUUID->"5bd842d1-8c51-4c03-9896-0322f150b924"] }, Open ]], -Cell[354544, 8936, 245, 5, 36, "Input",ExpressionUUID->"597921e5-69d3-564d-a8fa-092e912c15e0"], Cell[CellGroupData[{ -Cell[354814, 8945, 558, 19, 66, "Input",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], -Cell[355375, 8966, 170, 3, 41, "Output",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] +Cell[344566, 8628, 2274, 64, 348, "Input",ExpressionUUID->"0b10f52e-4583-2a4b-993d-96e59dd43e6a"], +Cell[346843, 8694, 665, 14, 73, "Message",ExpressionUUID->"bb21f784-eef2-40bb-ad80-946c7adf9e60"], +Cell[347511, 8710, 666, 14, 73, "Message",ExpressionUUID->"fc3e0d51-56e8-47a2-88e2-2a29ad1a573f"], +Cell[348180, 8726, 664, 14, 73, "Message",ExpressionUUID->"ec432ae0-6329-403b-8f3f-19bf278e37d5"], +Cell[348847, 8742, 493, 11, 32, "Message",ExpressionUUID->"3f4919fd-2d3b-420e-8a15-683cdc66413c"], +Cell[349343, 8755, 194, 3, 41, "Output",ExpressionUUID->"4a26038e-724e-49d1-8d72-c4ed0e5ba812"] }, Open ]], Cell[CellGroupData[{ -Cell[355582, 8974, 170, 5, 71, "Input",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], -Cell[355755, 8981, 173, 3, 41, "Output",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] +Cell[349574, 8763, 2230, 63, 348, "Input",ExpressionUUID->"a58948c9-6d3d-e847-a269-d2e0cc5d1484"], +Cell[351807, 8828, 667, 14, 73, "Message",ExpressionUUID->"2e29a979-ec0c-434d-a7ec-4f8912313e82"], +Cell[352477, 8844, 668, 14, 73, "Message",ExpressionUUID->"6f26673f-6e46-459e-a13f-8c7ca354dac9"], +Cell[353148, 8860, 666, 14, 73, "Message",ExpressionUUID->"7895d494-21ef-4f5c-a0b3-bf79e5961ce5"], +Cell[353817, 8876, 495, 11, 32, "Message",ExpressionUUID->"79ca269f-22d7-41b0-8611-abd4e4bd9784"], +Cell[354315, 8889, 192, 3, 41, "Output",ExpressionUUID->"48a91baf-8772-4f59-a672-170e3aad349c"] }, Open ]], Cell[CellGroupData[{ -Cell[355965, 8989, 181, 5, 55, "Input",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], -Cell[356149, 8996, 171, 3, 41, "Output",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] +Cell[354544, 8897, 2233, 63, 348, "Input",ExpressionUUID->"c817b2d1-7deb-5a45-9938-ca10003188eb"], +Cell[356780, 8962, 667, 14, 73, "Message",ExpressionUUID->"2a615ff7-91bb-43a7-8174-fa4d24b0f452"], +Cell[357450, 8978, 670, 14, 73, "Message",ExpressionUUID->"ad9dcc62-314a-4438-be79-9b04c53a997f"], +Cell[358123, 8994, 667, 14, 73, "Message",ExpressionUUID->"c69fc1a0-2239-4c07-b3c6-5a10c740af46"], +Cell[358793, 9010, 495, 11, 32, "Message",ExpressionUUID->"53279986-00c0-4fb9-be3e-4d09d9253ef9"], +Cell[359291, 9023, 192, 3, 41, "Output",ExpressionUUID->"ea2600e5-ab05-4975-a40f-1a7fe5dec2ca"] }, Open ]], Cell[CellGroupData[{ -Cell[356357, 9004, 6055, 185, 431, "Input",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], -Cell[362415, 9191, 172, 3, 41, "Output",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] +Cell[359520, 9031, 236, 6, 60, "Input",ExpressionUUID->"350334c7-7c47-c24c-8adc-781173809e57"], +Cell[359759, 9039, 194, 3, 41, "Output",ExpressionUUID->"82b13612-a883-4f2a-8f03-a41cde7f1f20"] }, Open ]], +Cell[359968, 9045, 271, 6, 109, "Input",ExpressionUUID->"597921e5-69d3-564d-a8fa-092e912c15e0"], Cell[CellGroupData[{ -Cell[362624, 9199, 368, 9, 53, "Input",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], -Cell[362995, 9210, 172, 3, 41, "Output",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] +Cell[360264, 9055, 558, 19, 66, "Input",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], +Cell[360825, 9076, 191, 3, 41, "Output",ExpressionUUID->"1f01582d-e45b-4c87-9b89-d885c7ef6297"] }, Open ]], Cell[CellGroupData[{ -Cell[363204, 9218, 6122, 187, 431, "Input",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], -Cell[369329, 9407, 173, 3, 41, "Output",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] +Cell[361053, 9084, 170, 5, 71, "Input",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], +Cell[361226, 9091, 195, 3, 41, "Output",ExpressionUUID->"c90fc9ce-bf4f-4f07-b255-6ebb33793051"] }, Open ]], Cell[CellGroupData[{ -Cell[369539, 9415, 368, 9, 53, "Input",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], -Cell[369910, 9426, 170, 3, 41, "Output",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] +Cell[361458, 9099, 181, 5, 55, "Input",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], +Cell[361642, 9106, 193, 3, 41, "Output",ExpressionUUID->"38a62a93-07dd-482e-87bb-15d3dc3440ff"] }, Open ]], Cell[CellGroupData[{ -Cell[370117, 9434, 2663, 88, 215, "Input",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], -Cell[372783, 9524, 171, 3, 41, "Output",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] +Cell[361872, 9114, 6055, 185, 831, "Input",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], +Cell[367930, 9301, 195, 3, 41, "Output",ExpressionUUID->"0471a901-2593-4786-94d4-4e439fafba56"] }, Open ]], Cell[CellGroupData[{ -Cell[372991, 9532, 2603, 85, 215, "Input",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], -Cell[375597, 9619, 173, 3, 41, "Output",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] +Cell[368162, 9309, 368, 9, 53, "Input",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], +Cell[368533, 9320, 197, 3, 41, "Output",ExpressionUUID->"6368e1ac-74d7-45b9-9886-6f314f042b41"] }, Open ]], Cell[CellGroupData[{ -Cell[375807, 9627, 3712, 118, 316, "Input",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], -Cell[379522, 9747, 174, 3, 41, "Output",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] +Cell[368767, 9328, 6122, 187, 900, "Input",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], +Cell[374892, 9517, 197, 3, 41, "Output",ExpressionUUID->"8475d6d5-c61c-4e38-8ef8-423d791578c1"] }, Open ]], Cell[CellGroupData[{ -Cell[379733, 9755, 2049, 58, 116, "Input",ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], -Cell[381785, 9815, 579, 12, 71, "Message",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], -Cell[382367, 9829, 582, 12, 71, "Message",ExpressionUUID->"dda5376f-614c-1846-a3e1-09857b4bcae6"], -Cell[382952, 9843, 584, 12, 71, "Message",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], -Cell[383539, 9857, 458, 10, 32, "Message",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], -Cell[384000, 9869, 172, 3, 41, "Output",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] +Cell[375126, 9525, 368, 9, 53, "Input",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], +Cell[375497, 9536, 193, 3, 41, "Output",ExpressionUUID->"026ce58b-4ff9-4046-8091-990d039863ac"] }, Open ]], Cell[CellGroupData[{ -Cell[384209, 9877, 2054, 59, 116, "Input",ExpressionUUID->"baacd3f7-96e4-2949-b9f9-9afb90e551d9"], -Cell[386266, 9938, 577, 12, 71, "Message",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], -Cell[386846, 9952, 580, 12, 71, "Message",ExpressionUUID->"b91abb11-65b8-3b43-a495-4cb1457edd27"], -Cell[387429, 9966, 583, 12, 71, "Message",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], -Cell[388015, 9980, 456, 10, 32, "Message",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], -Cell[388474, 9992, 171, 3, 41, "Output",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] +Cell[375727, 9544, 2663, 88, 435, "Input",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], +Cell[378393, 9634, 191, 3, 41, "Output",ExpressionUUID->"6ec7289b-a348-4a90-9f3c-3e8da36193fc"] }, Open ]], Cell[CellGroupData[{ -Cell[388682, 10000, 2030, 55, 63, "Input",ExpressionUUID->"ea08a5a9-d446-9147-ba82-e3924f732df2"], -Cell[390715, 10057, 20493, 384, 295, "Output",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] +Cell[378621, 9642, 2603, 85, 435, "Input",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], +Cell[381227, 9729, 195, 3, 41, "Output",ExpressionUUID->"2ea27160-6a29-4409-b887-1adc3c1e36d8"] }, Open ]], Cell[CellGroupData[{ -Cell[411245, 10446, 2120, 60, 116, "Input",ExpressionUUID->"42ddbf41-0bd8-b749-bead-56c89a9b7467"], -Cell[413368, 10508, 501, 11, 48, "Message",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], -Cell[413872, 10521, 504, 11, 48, "Message",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], -Cell[414379, 10534, 508, 11, 48, "Message",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], -Cell[414890, 10547, 456, 10, 32, "Message",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], -Cell[415349, 10559, 31462, 562, 290, "Output",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] +Cell[381459, 9737, 3712, 118, 575, "Input",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], +Cell[385174, 9857, 195, 3, 41, "Output",ExpressionUUID->"1f6c4b74-7347-4838-88f7-3399d4cc0719"] }, Open ]], -Cell[446826, 11124, 209, 5, 36, "Input",ExpressionUUID->"6883477e-2a54-0a45-979a-ae60c73e9e82"], Cell[CellGroupData[{ -Cell[447060, 11133, 1616, 48, 86, "Input",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], -Cell[448679, 11183, 596, 12, 71, "Message",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], -Cell[449278, 11197, 602, 12, 71, "Message",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], -Cell[449883, 11211, 605, 12, 71, "Message",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], -Cell[450491, 11225, 458, 10, 32, "Message",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], -Cell[450952, 11237, 171, 3, 41, "Output",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] +Cell[385406, 9865, 2074, 59, 276, "Input",ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], +Cell[387483, 9926, 669, 14, 73, "Message",ExpressionUUID->"cbe924b7-66b0-433c-b51d-01c7663d9054"], +Cell[388155, 9942, 668, 14, 73, "Message",ExpressionUUID->"fbf13d25-a65a-4af8-8cd6-c8e5fbf51b38"], +Cell[388826, 9958, 668, 14, 73, "Message",ExpressionUUID->"62ef66a9-9356-4b0d-8c34-9939a03cb76c"], +Cell[389497, 9974, 497, 11, 32, "Message",ExpressionUUID->"811c20e6-e948-43e3-916e-152957d61b55"], +Cell[389997, 9987, 193, 3, 41, "Output",ExpressionUUID->"c79ba0ea-8e29-4ce0-9a8c-0306b5aa5da3"] }, Open ]], Cell[CellGroupData[{ -Cell[451160, 11245, 2251, 64, 81, "Input",ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-2a98ba29b602"], -Cell[453414, 11311, 577, 12, 71, "Message",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], -Cell[453994, 11325, 580, 12, 71, "Message",ExpressionUUID->"bbc1c804-e094-2b49-bceb-c837038552fa"], -Cell[454577, 11339, 586, 12, 71, "Message",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], -Cell[455166, 11353, 458, 10, 32, "Message",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], -Cell[455627, 11365, 173, 3, 41, "Output",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] +Cell[390227, 9995, 2077, 59, 276, "Input",ExpressionUUID->"baacd3f7-96e4-2949-b9f9-9afb90e551d9"], +Cell[392307, 10056, 667, 14, 73, "Message",ExpressionUUID->"3c7d634d-2109-4bd6-8fc3-110ef03c615b"], +Cell[392977, 10072, 668, 14, 73, "Message",ExpressionUUID->"e7befe8d-6018-4c95-8af8-f23d169f28ab"], +Cell[393648, 10088, 665, 14, 73, "Message",ExpressionUUID->"1ae3c693-1bf7-48f5-8a63-f99b09997ae2"], +Cell[394316, 10104, 495, 11, 32, "Message",ExpressionUUID->"26d5b674-7a42-4504-97f7-a43c670cad39"], +Cell[394814, 10117, 193, 3, 41, "Output",ExpressionUUID->"72cec626-a8b0-4b44-9214-6eb6c2aa8b86"] }, Open ]], Cell[CellGroupData[{ -Cell[455837, 11373, 2219, 64, 81, "Input",ExpressionUUID->"edfdd675-c60b-304e-9e16-68452b971319"], -Cell[458059, 11439, 579, 12, 71, "Message",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], -Cell[458641, 11453, 580, 12, 71, "Message",ExpressionUUID->"7911ebc5-127d-5841-a246-fcff3e2e3d7f"], -Cell[459224, 11467, 586, 12, 71, "Message",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], -Cell[459813, 11481, 458, 10, 32, "Message",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], -Cell[460274, 11493, 171, 3, 41, "Output",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] +Cell[395044, 10125, 2053, 55, 232, "Input",ExpressionUUID->"ea08a5a9-d446-9147-ba82-e3924f732df2"], +Cell[397100, 10182, 20373, 383, 290, "Output",ExpressionUUID->"6075a03b-bb55-4fa5-82ef-d2f8548c5be5"] }, Open ]], Cell[CellGroupData[{ -Cell[460482, 11501, 2219, 64, 81, "Input",ExpressionUUID->"d0469d46-2e74-494a-be85-b41cb2f3fa92"], -Cell[462704, 11567, 576, 12, 71, "Message",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], -Cell[463283, 11581, 580, 12, 71, "Message",ExpressionUUID->"05cc4b97-7653-f04b-8664-f56b3128e201"], -Cell[463866, 11595, 584, 12, 71, "Message",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], -Cell[464453, 11609, 458, 10, 32, "Message",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], -Cell[464914, 11621, 173, 3, 41, "Output",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] +Cell[417510, 10570, 2143, 60, 311, "Input",ExpressionUUID->"42ddbf41-0bd8-b749-bead-56c89a9b7467"], +Cell[419656, 10632, 533, 12, 71, "Message",ExpressionUUID->"6b566e40-c882-4075-8efd-dfaad75e260f"], +Cell[420192, 10646, 534, 12, 71, "Message",ExpressionUUID->"7d0d28e8-0d1d-4000-9b9c-039ff40c1cd7"], +Cell[420729, 10660, 540, 12, 71, "Message",ExpressionUUID->"84bf9518-6f48-4f4a-8f66-8315b2f08297"], +Cell[421272, 10674, 493, 11, 32, "Message",ExpressionUUID->"40a818e4-ddcd-4147-9ef6-e4d77c01fe52"], +Cell[421768, 10687, 22568, 417, 290, "Output",ExpressionUUID->"9ca1ffde-1c1a-4656-a9cd-8989272c899e"] }, Open ]], Cell[CellGroupData[{ -Cell[465124, 11629, 212, 6, 60, "Input",ExpressionUUID->"58b5e243-0972-1946-bd17-aca0f3e8a35b"], -Cell[465339, 11637, 172, 3, 41, "Output",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] +Cell[444373, 11109, 232, 5, 36, "Input",ExpressionUUID->"6883477e-2a54-0a45-979a-ae60c73e9e82"], +Cell[444608, 11116, 28928, 549, 290, "Output",ExpressionUUID->"975c58d3-b53c-460f-a7d0-1f7e617942b7"] }, Open ]], -Cell[465526, 11643, 244, 5, 36, "Input",ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-a3711ba632a4"], Cell[CellGroupData[{ -Cell[465795, 11652, 558, 19, 66, "Input",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], -Cell[466356, 11673, 171, 3, 109, "Output",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] +Cell[473573, 11670, 1616, 48, 132, "Input",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], +Cell[475192, 11720, 668, 14, 73, "Message",ExpressionUUID->"9d4f60b3-c003-453b-b807-e71c5840be65"], +Cell[475863, 11736, 667, 14, 73, "Message",ExpressionUUID->"cf82c9ff-e98f-4677-b7b8-5058591e3e08"], +Cell[476533, 11752, 666, 14, 73, "Message",ExpressionUUID->"c756c627-5d77-4e78-b586-5b0513ca8244"], +Cell[477202, 11768, 493, 11, 32, "Message",ExpressionUUID->"6d970e56-de74-4abb-9d63-a358aca4c861"], +Cell[477698, 11781, 193, 3, 41, "Output",ExpressionUUID->"bc5ae4be-c131-4043-a585-866cd5442f01"] }, Open ]], Cell[CellGroupData[{ -Cell[466564, 11681, 170, 5, 109, "Input",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], -Cell[466737, 11688, 171, 3, 109, "Output",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] +Cell[477928, 11789, 2274, 64, 348, "Input",ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-2a98ba29b602"], +Cell[480205, 11855, 667, 14, 73, "Message",ExpressionUUID->"e65b9734-8bf7-4f3e-ac99-994b116f417c"], +Cell[480875, 11871, 666, 14, 73, "Message",ExpressionUUID->"9251f21e-dfda-4db5-bd9a-7b050ca04efa"], +Cell[481544, 11887, 666, 14, 73, "Message",ExpressionUUID->"c00ec865-9a18-47eb-a693-f2abd138ec2d"], +Cell[482213, 11903, 495, 11, 32, "Message",ExpressionUUID->"5718271f-4f63-4cdb-863f-bd4dd1d3ff56"], +Cell[482711, 11916, 196, 3, 41, "Output",ExpressionUUID->"ee9e9da9-e5e1-49f6-ba55-f6de205f477b"] }, Open ]], Cell[CellGroupData[{ -Cell[466945, 11696, 181, 5, 109, "Input",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], -Cell[467129, 11703, 173, 3, 109, "Output",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] +Cell[482944, 11924, 2231, 63, 348, "Input",ExpressionUUID->"edfdd675-c60b-304e-9e16-68452b971319"], +Cell[485178, 11989, 668, 14, 73, "Message",ExpressionUUID->"51370f10-81ae-4056-a733-35b94d89a13d"], +Cell[485849, 12005, 668, 14, 73, "Message",ExpressionUUID->"95da955b-cab7-4be4-ac61-bb351c5387bc"], +Cell[486520, 12021, 668, 14, 73, "Message",ExpressionUUID->"76961e35-9962-4e98-949e-7f76f6d84ebd"], +Cell[487191, 12037, 495, 11, 32, "Message",ExpressionUUID->"d0249448-a5a5-4006-bb42-b90d81b809ce"], +Cell[487689, 12050, 196, 3, 41, "Output",ExpressionUUID->"1f241ef1-ea74-4c0d-bec3-986a9372050f"] }, Open ]], Cell[CellGroupData[{ -Cell[467339, 11711, 6055, 185, 109, "Input",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], -Cell[473397, 11898, 173, 3, 109, "Output",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] +Cell[487922, 12058, 2231, 63, 348, "Input",ExpressionUUID->"d0469d46-2e74-494a-be85-b41cb2f3fa92"], +Cell[490156, 12123, 665, 14, 73, "Message",ExpressionUUID->"d4774dbc-6ea3-46ca-972d-760d235755ba"], +Cell[490824, 12139, 667, 14, 73, "Message",ExpressionUUID->"8e7bb309-785b-46f7-8b74-06f6c926b026"], +Cell[491494, 12155, 665, 14, 73, "Message",ExpressionUUID->"2c6c9640-9e41-4f0f-850f-015eea8291a5"], +Cell[492162, 12171, 494, 11, 32, "Message",ExpressionUUID->"c37346a8-6d41-4284-98d9-0626de457d6c"], +Cell[492659, 12184, 193, 3, 41, "Output",ExpressionUUID->"11a77861-47ec-432b-9178-0bcbba590841"] }, Open ]], Cell[CellGroupData[{ -Cell[473607, 11906, 368, 9, 109, "Input",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], -Cell[473978, 11917, 172, 3, 109, "Output",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] +Cell[492889, 12192, 235, 6, 60, "Input",ExpressionUUID->"58b5e243-0972-1946-bd17-aca0f3e8a35b"], +Cell[493127, 12200, 196, 3, 41, "Output",ExpressionUUID->"bab31867-eb50-404b-ba96-9fcc70e9fcce"] }, Open ]], +Cell[493338, 12206, 270, 6, 109, "Input",ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-a3711ba632a4"], Cell[CellGroupData[{ -Cell[474187, 11925, 6122, 187, 109, "Input",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], -Cell[480312, 12114, 173, 3, 109, "Output",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] +Cell[493633, 12216, 558, 19, 66, "Input",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], +Cell[494194, 12237, 194, 3, 41, "Output",ExpressionUUID->"093c357c-56ba-4caa-bc3d-a5e5d632d961"] }, Open ]], Cell[CellGroupData[{ -Cell[480522, 12122, 368, 9, 109, "Input",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], -Cell[480893, 12133, 172, 3, 109, "Output",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] +Cell[494425, 12245, 170, 5, 71, "Input",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], +Cell[494598, 12252, 195, 3, 41, "Output",ExpressionUUID->"086b3ce1-b252-48db-9e8f-8e1822b5a441"] }, Open ]], Cell[CellGroupData[{ -Cell[481102, 12141, 2663, 88, 109, "Input",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], -Cell[483768, 12231, 173, 3, 109, "Output",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] +Cell[494830, 12260, 181, 5, 55, "Input",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], +Cell[495014, 12267, 194, 3, 41, "Output",ExpressionUUID->"a9d928b7-f577-4564-ae92-a62bcbe00143"] }, Open ]], Cell[CellGroupData[{ -Cell[483978, 12239, 2603, 85, 109, "Input",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], -Cell[486584, 12326, 171, 3, 109, "Output",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] +Cell[495245, 12275, 6055, 185, 831, "Input",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], +Cell[501303, 12462, 195, 3, 41, "Output",ExpressionUUID->"ae12bdc4-e7b8-4026-ad3e-c97306f23bb5"] }, Open ]], Cell[CellGroupData[{ -Cell[486792, 12334, 3712, 118, 109, "Input",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], -Cell[490507, 12454, 174, 3, 41, "Output",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] +Cell[501535, 12470, 368, 9, 53, "Input",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], +Cell[501906, 12481, 195, 3, 41, "Output",ExpressionUUID->"98bc33e9-1e8b-412b-8faa-c4d16a49a170"] }, Open ]], Cell[CellGroupData[{ -Cell[490718, 12462, 2054, 59, 116, "Input",ExpressionUUID->"ba508068-6b78-254c-87d6-cf1adc0753dd"], -Cell[492775, 12523, 574, 12, 71, "Message",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], -Cell[493352, 12537, 580, 12, 71, "Message",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], -Cell[493935, 12551, 580, 12, 71, "Message",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], -Cell[494518, 12565, 456, 10, 32, "Message",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], -Cell[494977, 12577, 172, 3, 41, "Output",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] +Cell[502138, 12489, 6122, 187, 900, "Input",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], +Cell[508263, 12678, 196, 3, 41, "Output",ExpressionUUID->"4e310af5-197e-4ee2-bf33-bdae7cbb9090"] }, Open ]], Cell[CellGroupData[{ -Cell[495186, 12585, 2054, 59, 116, "Input",ExpressionUUID->"842e33e4-ae06-f746-ab8b-97489285cc9c"], -Cell[497243, 12646, 576, 12, 71, "Message",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], -Cell[497822, 12660, 577, 12, 71, "Message",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], -Cell[498402, 12674, 582, 12, 71, "Message",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], -Cell[498987, 12688, 458, 10, 32, "Message",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], -Cell[499448, 12700, 172, 3, 41, "Output",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] +Cell[508496, 12686, 368, 9, 53, "Input",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], +Cell[508867, 12697, 196, 3, 41, "Output",ExpressionUUID->"8b743896-6ae6-4dba-af1a-c08f63f97d90"] }, Open ]], Cell[CellGroupData[{ -Cell[499657, 12708, 2028, 55, 63, "Input",ExpressionUUID->"b2e314f8-a6f0-6942-a94c-5ac1cacd7190"], -Cell[501688, 12765, 20021, 378, 295, "Output",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] +Cell[509100, 12705, 2663, 88, 435, "Input",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], +Cell[511766, 12795, 196, 3, 41, "Output",ExpressionUUID->"1851a6c2-59f0-4e30-9262-b334d6217d59"] }, Open ]], Cell[CellGroupData[{ -Cell[521746, 13148, 2146, 61, 116, "Input",ExpressionUUID->"497f9779-a3e4-c84e-a207-0aac70483e3c"], -Cell[523895, 13211, 502, 11, 48, "Message",ExpressionUUID->"56dc07a7-05cc-424a-8fff-08f056385a44"], -Cell[524400, 13224, 506, 11, 48, "Message",ExpressionUUID->"71ae3883-d346-164c-9764-dc57f6863817"], -Cell[524909, 13237, 508, 11, 48, "Message",ExpressionUUID->"16c86d51-9f27-3c48-b312-93c489e538a4"], -Cell[525420, 13250, 456, 10, 32, "Message",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], -Cell[525879, 13262, 30030, 538, 290, "Output",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] +Cell[511999, 12803, 2603, 85, 435, "Input",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], +Cell[514605, 12890, 193, 3, 41, "Output",ExpressionUUID->"ed7d48fc-2292-4c78-90e7-a3cf13943897"] }, Open ]], -Cell[555924, 13803, 209, 5, 36, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], Cell[CellGroupData[{ -Cell[556158, 13812, 1590, 47, 86, "Input",ExpressionUUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], -Cell[557751, 13861, 342, 6, 26, "Message",ExpressionUUID->"9e6d6a70-ad75-9b40-8a0b-ca802f09d5a2"], -Cell[558096, 13869, 101, 0, 41, "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +Cell[514835, 12898, 3712, 118, 575, "Input",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], +Cell[518550, 13018, 195, 3, 41, "Output",ExpressionUUID->"e4a069f5-fc20-4025-9d2b-d63f07e0ca91"] }, Open ]], Cell[CellGroupData[{ -Cell[558234, 13874, 2249, 64, 81, "Input",ExpressionUUID->"a3e3d205-e3b4-874a-a36c-53cfa72184b4"], -Cell[560486, 13940, 342, 6, 26, "Message",ExpressionUUID->"9e9d949e-1d4c-8649-8d0e-b7deecfb3ba4"], -Cell[560831, 13948, 342, 6, 26, "Message",ExpressionUUID->"76f8ef60-aab6-7442-aeca-4cebad23cb0e"], -Cell[561176, 13956, 101, 0, 41, "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +Cell[518782, 13026, 2077, 59, 276, "Input",ExpressionUUID->"ba508068-6b78-254c-87d6-cf1adc0753dd"], +Cell[520862, 13087, 668, 14, 73, "Message",ExpressionUUID->"5cc0bf9c-c185-4dd5-b5dd-7535bac00187"], +Cell[521533, 13103, 665, 14, 73, "Message",ExpressionUUID->"c5f1bf07-e721-447a-b6d1-6d56156da6f6"], +Cell[522201, 13119, 665, 14, 73, "Message",ExpressionUUID->"fbf55f6d-bce5-4d08-9498-90f81b9280ca"], +Cell[522869, 13135, 492, 11, 32, "Message",ExpressionUUID->"20f95faf-52ca-4af1-8a02-424aba92cdfa"], +Cell[523364, 13148, 196, 3, 41, "Output",ExpressionUUID->"07c35a6d-ee81-47db-80d3-c8a3bb11137d"] }, Open ]], Cell[CellGroupData[{ -Cell[561314, 13961, 2221, 64, 81, "Input",ExpressionUUID->"6977f025-454e-0e4a-b118-07bad9ba3e82"], -Cell[563538, 14027, 342, 6, 26, "Message",ExpressionUUID->"566a849f-fc85-4d42-a545-a46d44cf7346"], -Cell[563883, 14035, 342, 6, 26, "Message",ExpressionUUID->"fb1cb4d6-a504-e445-bb52-7946e1bca3c6"], -Cell[564228, 14043, 100, 0, 41, "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +Cell[523597, 13156, 2077, 59, 276, "Input",ExpressionUUID->"842e33e4-ae06-f746-ab8b-97489285cc9c"], +Cell[525677, 13217, 668, 14, 73, "Message",ExpressionUUID->"703906c3-9852-4070-8307-80738f2b17d8"], +Cell[526348, 13233, 668, 14, 73, "Message",ExpressionUUID->"bd953346-4ebb-4b63-977a-3c15e373eb5b"], +Cell[527019, 13249, 667, 14, 73, "Message",ExpressionUUID->"06660686-6d96-43d9-b32e-2636995090f6"], +Cell[527689, 13265, 495, 11, 32, "Message",ExpressionUUID->"4f7c1872-dc8f-49fd-a0d7-f3d01f9e7a61"], +Cell[528187, 13278, 194, 3, 41, "Output",ExpressionUUID->"c429e4c9-eb40-492b-9112-5bd49ff508d2"] }, Open ]], Cell[CellGroupData[{ -Cell[564365, 14048, 2223, 64, 81, "Input",ExpressionUUID->"df8ecb01-788a-604d-b773-f29bb610eb30"], -Cell[566591, 14114, 342, 6, 26, "Message",ExpressionUUID->"f9e34ec5-1462-b340-b2e7-8e875dd33d28"], -Cell[566936, 14122, 342, 6, 26, "Message",ExpressionUUID->"19ffb858-7059-2a48-a3db-e2d0dfcf2131"], -Cell[567281, 14130, 101, 0, 41, "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +Cell[528418, 13286, 2051, 55, 232, "Input",ExpressionUUID->"b2e314f8-a6f0-6942-a94c-5ac1cacd7190"], +Cell[530472, 13343, 20540, 386, 295, "Output",ExpressionUUID->"b2dd1e20-6f98-4094-ba61-cae7fcfe98b1"] }, Open ]], Cell[CellGroupData[{ -Cell[567419, 14135, 213, 6, 60, "Input",ExpressionUUID->"54a5e329-20bd-e742-afe8-d2cfa007cfcf"], -Cell[567635, 14143, 102, 0, 41, "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] +Cell[551049, 13734, 2168, 61, 311, "Input",ExpressionUUID->"497f9779-a3e4-c84e-a207-0aac70483e3c"], +Cell[553220, 13797, 537, 12, 71, "Message",ExpressionUUID->"05070296-e55e-456b-b1c5-897ac09eae44"], +Cell[553760, 13811, 539, 12, 71, "Message",ExpressionUUID->"99b32565-3dbb-4812-aba2-71286342745f"], +Cell[554302, 13825, 543, 12, 71, "Message",ExpressionUUID->"ad0ac799-d519-41d2-bee4-65e7d6aed0e7"], +Cell[554848, 13839, 495, 11, 32, "Message",ExpressionUUID->"7127fce1-e9c3-48ba-8051-66855c2b69ea"], +Cell[555346, 13852, 22448, 417, 293, "Output",ExpressionUUID->"8d6423c0-0ad3-4664-a156-9ed9c446d949"] }, Open ]], -Cell[567752, 14146, 186, 4, 36, "Input",ExpressionUUID->"35170b17-b067-408f-8497-dfae76b7127e"] +Cell[CellGroupData[{ +Cell[577831, 14274, 232, 5, 36, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], +Cell[578066, 14281, 28808, 549, 293, "Output",ExpressionUUID->"2caac02e-6097-4aa9-9a00-284e51b4cca9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[606911, 14835, 1616, 48, 132, "Input",ExpressionUUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], +Cell[608530, 14885, 642, 14, 73, "Message",ExpressionUUID->"74c11062-5236-4f94-b990-59dcfb4be934"], +Cell[609175, 14901, 645, 14, 73, "Message",ExpressionUUID->"f0eea896-0752-4bbc-a56e-7484c6113517"], +Cell[609823, 14917, 644, 14, 73, "Message",ExpressionUUID->"4bbca04c-7a80-4e55-80a0-d5cb3c82e6ce"], +Cell[610470, 14933, 473, 11, 32, "Message",ExpressionUUID->"88c8d557-bcbc-4c6b-ab70-37f0dee112e8"], +Cell[610946, 14946, 171, 3, 41, "Output",ExpressionUUID->"bf208e56-7efa-48e8-86e4-a452f77b414b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[611154, 14954, 2272, 64, 348, "Input",ExpressionUUID->"a3e3d205-e3b4-874a-a36c-53cfa72184b4"], +Cell[613429, 15020, 644, 14, 73, "Message",ExpressionUUID->"caba0014-a4f6-467a-b4d2-16068071e3b4"], +Cell[614076, 15036, 644, 14, 73, "Message",ExpressionUUID->"8a063810-78cc-43b4-940d-9ea847cbe378"], +Cell[614723, 15052, 645, 14, 73, "Message",ExpressionUUID->"54d0626d-356e-4ee1-966f-0c2be84f1b86"], +Cell[615371, 15068, 473, 11, 32, "Message",ExpressionUUID->"70603505-b0db-4df7-9a52-a055d585a057"], +Cell[615847, 15081, 171, 3, 41, "Output",ExpressionUUID->"4c488e9a-f466-4f16-b9c4-93dbd23a9f9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[616055, 15089, 2233, 63, 348, "Input",ExpressionUUID->"6977f025-454e-0e4a-b118-07bad9ba3e82"], +Cell[618291, 15154, 644, 14, 73, "Message",ExpressionUUID->"44193d44-b5db-4117-83bf-2a5b0683957e"], +Cell[618938, 15170, 644, 14, 73, "Message",ExpressionUUID->"955b5b22-b884-4089-89c6-7ef822198c46"], +Cell[619585, 15186, 643, 14, 73, "Message",ExpressionUUID->"5a3c1551-cc69-44d2-8088-ac1257feb889"], +Cell[620231, 15202, 471, 11, 32, "Message",ExpressionUUID->"ba039919-c6c2-427a-9ded-3dd1d81d2940"], +Cell[620705, 15215, 170, 3, 41, "Output",ExpressionUUID->"0fef2a24-bfae-4054-8156-827a0eac605a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[620912, 15223, 2235, 63, 348, "Input",ExpressionUUID->"df8ecb01-788a-604d-b773-f29bb610eb30"], +Cell[623150, 15288, 644, 14, 73, "Message",ExpressionUUID->"159c9160-3e48-47ab-972b-1a8804e9a6e4"], +Cell[623797, 15304, 644, 14, 73, "Message",ExpressionUUID->"fce8ed96-72f7-46a4-bb7c-bf2353edc2f7"], +Cell[624444, 15320, 645, 14, 73, "Message",ExpressionUUID->"ff96dd71-7de6-4d5e-9cfe-d8af95b391e4"], +Cell[625092, 15336, 471, 11, 32, "Message",ExpressionUUID->"1af7f4e5-0520-4b33-85be-c8cf2afa2dea"], +Cell[625566, 15349, 173, 3, 41, "Output",ExpressionUUID->"004efcb3-3bb3-4ebd-b331-871d4b984ba9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[625776, 15357, 236, 6, 60, "Input",ExpressionUUID->"54a5e329-20bd-e742-afe8-d2cfa007cfcf"], +Cell[626015, 15365, 173, 3, 41, "Output",ExpressionUUID->"836475a0-3a7f-47c9-bd2f-a9dca1c4ea1e"] +}, Open ]], +Cell[626203, 15371, 209, 4, 109, "Input",ExpressionUUID->"35170b17-b067-408f-8497-dfae76b7127e"] } ] *) +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_gid_Qw1.nb b/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_gid_Qw1.nb index 87c32d5..d5aac2c 100644 --- a/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_gid_Qw1.nb +++ b/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_gid_Qw1.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 594153, 14508] -NotebookOptionsPosition[ 555100, 13888] -NotebookOutlinePosition[ 555511, 13905] -CellTagsIndexPosition[ 555468, 13902] +NotebookDataLength[ 690641, 16330] +NotebookOptionsPosition[ 650247, 15683] +NotebookOutlinePosition[ 650678, 15701] +CellTagsIndexPosition[ 650635, 15698] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -26,15 +26,13 @@ Cell[BoxData[ 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, 3.9920650045886707`*^9, {3.9940821364341908`*^9, 3.994082136546945*^9}, { 3.99408222505837*^9, 3.9940822566678658`*^9}}, - CellLabel-> - "In[371]:=",ExpressionUUID->"751667a6-76eb-4f46-8bd2-300510072f47"], + CellLabel->"In[1]:=",ExpressionUUID->"751667a6-76eb-4f46-8bd2-300510072f47"], Cell[BoxData["1.85`"], "Output", CellChangeTimes->{ 3.991320420900818*^9, 3.9940821397588*^9, {3.9940822104439507`*^9, - 3.994082259420228*^9}}, - CellLabel-> - "Out[371]=",ExpressionUUID->"0c94286f-f8c0-4472-9a4c-0d3f6a7651ee"] + 3.994082259420228*^9}, 3.99425639551612*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"0e702a7c-f560-4d5e-b7fb-823a94949299"] }, Open ]], Cell[CellGroupData[{ @@ -43,15 +41,13 @@ Cell[BoxData[ RowBox[{"A", "=", "240"}]], "Input", CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { 3.99407306326154*^9, 3.994073063917366*^9}}, - CellLabel-> - "In[372]:=",ExpressionUUID->"d86b8b56-5e4c-47f6-988a-3913ef045c3c"], + CellLabel->"In[2]:=",ExpressionUUID->"d86b8b56-5e4c-47f6-988a-3913ef045c3c"], Cell[BoxData["240"], "Output", CellChangeTimes->{ 3.9913196497381973`*^9, 3.994082139815686*^9, {3.994082210466728*^9, - 3.994082259455925*^9}}, - CellLabel-> - "Out[372]=",ExpressionUUID->"395c616b-141f-449e-b41b-c24aff7b07c6"] + 3.994082259455925*^9}, 3.994256396068508*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"7792abd2-8b3a-4a0f-8f34-7c13fd9aaa31"] }, Open ]], Cell[CellGroupData[{ @@ -60,15 +56,13 @@ Cell[BoxData[ RowBox[{"A1", "=", "166"}]], "Input", CellChangeTimes->{ 3.991798961431202*^9, {3.9940730665357656`*^9, 3.994073067306501*^9}}, - CellLabel-> - "In[373]:=",ExpressionUUID->"bd4c23b5-dad9-4199-8e39-7f0b2e72894b"], + CellLabel->"In[3]:=",ExpressionUUID->"bd4c23b5-dad9-4199-8e39-7f0b2e72894b"], Cell[BoxData["166"], "Output", CellChangeTimes->{ 3.9913196497578354`*^9, 3.994082139825574*^9, {3.9940822104766827`*^9, - 3.994082259466858*^9}}, - CellLabel-> - "Out[373]=",ExpressionUUID->"8e153300-2e0b-4c42-afb7-5c6ec5fa8adc"] + 3.994082259466858*^9}, 3.994256396093684*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"83fa618d-e0f9-4c6d-98d4-e87a8e59cb67"] }, Open ]], Cell[CellGroupData[{ @@ -76,15 +70,13 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, - CellLabel-> - "In[374]:=",ExpressionUUID->"ef9c992c-19f5-4d7b-85f5-294b9171c9b8"], + CellLabel->"In[4]:=",ExpressionUUID->"ef9c992c-19f5-4d7b-85f5-294b9171c9b8"], Cell[BoxData["0.55`"], "Output", CellChangeTimes->{ 3.991319649777508*^9, 3.994082139835326*^9, {3.994082210487997*^9, - 3.994082259477521*^9}}, - CellLabel-> - "Out[374]=",ExpressionUUID->"bb0a6ca4-10d2-4fe4-9184-d0be0df5a2e4"] + 3.994082259477521*^9}, 3.99425639611054*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"ef2dab1f-32ca-4f21-8eb1-0a2b88818413"] }, Open ]], Cell[CellGroupData[{ @@ -96,30 +88,26 @@ Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", - CellLabel-> - "In[375]:=",ExpressionUUID->"b1d01ce2-c8c6-47ed-b72e-3a2da44a47df"], + CellLabel->"In[5]:=",ExpressionUUID->"b1d01ce2-c8c6-47ed-b72e-3a2da44a47df"], Cell[BoxData["0.54425`"], "Output", CellChangeTimes->{ 3.9913196497965145`*^9, 3.994082139845067*^9, {3.994082210498448*^9, - 3.994082259487831*^9}}, - CellLabel-> - "Out[375]=",ExpressionUUID->"c37858b4-3416-4c10-bd6b-d692a82edad9"] + 3.994082259487831*^9}, 3.99425639612438*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"62c3b8a2-233d-4f74-920c-f97b4574f67e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", - CellLabel-> - "In[376]:=",ExpressionUUID->"0c3f07a2-800b-4dca-bd13-6e745a65189c"], + CellLabel->"In[6]:=",ExpressionUUID->"0c3f07a2-800b-4dca-bd13-6e745a65189c"], Cell[BoxData["0.17`"], "Output", CellChangeTimes->{ 3.9913196498144608`*^9, 3.994082139854616*^9, {3.99408221050937*^9, - 3.994082259497772*^9}}, - CellLabel-> - "Out[376]=",ExpressionUUID->"a298159f-63c4-412b-b639-498975833a65"] + 3.994082259497772*^9}, 3.9942563961408243`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"07b29b49-7182-44e1-b540-df3a4083b718"] }, Open ]], Cell[CellGroupData[{ @@ -130,15 +118,13 @@ Cell[BoxData[ SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}]}]], "Input", CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, - CellLabel-> - "In[377]:=",ExpressionUUID->"2e03473e-367e-4dd3-8659-9951abab4ec9"], + CellLabel->"In[7]:=",ExpressionUUID->"2e03473e-367e-4dd3-8659-9951abab4ec9"], Cell[BoxData["6.3752030057102145`"], "Output", CellChangeTimes->{ 3.9913196498225155`*^9, 3.994082139865213*^9, {3.994082210519739*^9, - 3.994082259507691*^9}}, - CellLabel-> - "Out[377]=",ExpressionUUID->"9340a93d-7750-47d7-913f-a257a9139437"] + 3.994082259507691*^9}, 3.9942563961578627`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"10cd922a-6fb8-4d8b-b6bf-d46a47a93aa7"] }, Open ]], Cell[CellGroupData[{ @@ -150,15 +136,13 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", - CellLabel-> - "In[378]:=",ExpressionUUID->"39c43610-9227-4f91-b077-8088d278c8bc"], + CellLabel->"In[8]:=",ExpressionUUID->"39c43610-9227-4f91-b077-8088d278c8bc"], Cell[BoxData["4.870070286417752`"], "Output", CellChangeTimes->{ 3.9913196498425236`*^9, 3.99408213987599*^9, {3.9940822105302753`*^9, - 3.994082259517621*^9}}, - CellLabel-> - "Out[378]=",ExpressionUUID->"3f046aab-b15c-42ad-8053-fe52fa3dfa0d"] + 3.994082259517621*^9}, 3.994256396175679*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"f196121b-a263-4fa8-9144-98d6fb1a1e74"] }, Open ]], Cell[CellGroupData[{ @@ -166,14 +150,13 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"b1", "=", "0.9035518425"}]], "Input", CellChangeTimes->{3.991799283179735*^9, 3.994073090925538*^9}, - CellLabel-> - "In[379]:=",ExpressionUUID->"e7832b7f-fc46-44f1-ba18-09ee056547cc"], + CellLabel->"In[9]:=",ExpressionUUID->"e7832b7f-fc46-44f1-ba18-09ee056547cc"], Cell[BoxData["0.9035518425`"], "Output", CellChangeTimes->{ - 3.994082139886828*^9, {3.9940822105402517`*^9, 3.9940822595277653`*^9}}, - CellLabel-> - "Out[379]=",ExpressionUUID->"48e8902d-a312-4bd8-a0d5-ebe59650861c"] + 3.994082139886828*^9, {3.9940822105402517`*^9, 3.9940822595277653`*^9}, + 3.994256396192978*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"875a5774-7510-4577-8451-f170d056a6e6"] }, Open ]], Cell[CellGroupData[{ @@ -181,44 +164,39 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"b2", "=", "0.3863821951"}]], "Input", CellChangeTimes->{3.991799280663351*^9, 3.9940730962719193`*^9}, - CellLabel-> - "In[380]:=",ExpressionUUID->"377d5ee0-06b9-4c59-bef7-377bd46292ac"], + CellLabel->"In[10]:=",ExpressionUUID->"377d5ee0-06b9-4c59-bef7-377bd46292ac"], Cell[BoxData["0.3863821951`"], "Output", CellChangeTimes->{ - 3.994082139897403*^9, {3.994082210550373*^9, 3.994082259537862*^9}}, - CellLabel-> - "Out[380]=",ExpressionUUID->"db896d14-7efe-42b1-aed9-a70cf3692540"] + 3.994082139897403*^9, {3.994082210550373*^9, 3.994082259537862*^9}, + 3.994256396207904*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"0e0402c8-698d-4b15-846e-c42c86ee4471"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", - CellLabel-> - "In[381]:=",ExpressionUUID->"96d65eab-d95b-4b15-ab6e-fe5871824646"], + CellLabel->"In[11]:=",ExpressionUUID->"96d65eab-d95b-4b15-ab6e-fe5871824646"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498927155`*^9, 3.994082139910328*^9, {3.994082210560801*^9, - 3.9940822595420103`*^9}}, - CellLabel-> - "Out[381]=",ExpressionUUID->"91084823-a627-401a-a006-67fcd9c30e39"] + 3.9940822595420103`*^9}, 3.994256396223495*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"ad5da4fc-f755-4d28-b0f3-1cb95ebd506a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", - CellLabel-> - "In[382]:=",ExpressionUUID->"3c63b8d9-cfd9-4539-9dde-35d78907c5cf"], + CellLabel->"In[12]:=",ExpressionUUID->"3c63b8d9-cfd9-4539-9dde-35d78907c5cf"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498996067`*^9, 3.9940821399224367`*^9, {3.994082210571288*^9, - 3.994082259554398*^9}}, - CellLabel-> - "Out[382]=",ExpressionUUID->"56ae2604-b29b-4a88-9094-3bfd12d73d0b"] + 3.994082259554398*^9}, 3.9942563962377043`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"242819f5-eabb-4879-a404-99c06e96775d"] }, Open ]], Cell[CellGroupData[{ @@ -242,15 +220,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[383]:=",ExpressionUUID->"8bb87003-ce89-4a73-8414-77846586b326"], + CellLabel->"In[13]:=",ExpressionUUID->"8bb87003-ce89-4a73-8414-77846586b326"], Cell[BoxData["2.315137197466896`"], "Output", CellChangeTimes->{ 3.9913197863028755`*^9, 3.994082139933848*^9, {3.994082210581699*^9, - 3.9940822595648727`*^9}}, - CellLabel-> - "Out[383]=",ExpressionUUID->"07fe5ccc-797f-400a-8d95-3294c8014c0c"] + 3.9940822595648727`*^9}, 3.994256396251857*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"9df9985b-d503-4efb-a71d-6f630d71ddaa"] }, Open ]], Cell[CellGroupData[{ @@ -274,15 +250,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[384]:=",ExpressionUUID->"3777747e-b0cc-458d-9381-442f93da8334"], + CellLabel->"In[14]:=",ExpressionUUID->"3777747e-b0cc-458d-9381-442f93da8334"], Cell[BoxData["1.4220278650887666`"], "Output", CellChangeTimes->{ 3.9913197864610195`*^9, 3.994082139944078*^9, {3.9940822105866547`*^9, - 3.9940822595749483`*^9}}, - CellLabel-> - "Out[384]=",ExpressionUUID->"89e89404-34e9-4828-bb2d-02123ed544bd"] + 3.9940822595749483`*^9}, 3.994256396267126*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"a6defb2c-8f64-494e-8157-93b07395afb6"] }, Open ]], Cell[CellGroupData[{ @@ -337,15 +311,13 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[385]:=",ExpressionUUID->"0a99f94b-bcd3-407a-9b12-0a13ef21bb79"], + CellLabel->"In[15]:=",ExpressionUUID->"0a99f94b-bcd3-407a-9b12-0a13ef21bb79"], Cell[BoxData["0.4069661562665162`"], "Output", CellChangeTimes->{ 3.991319786533783*^9, 3.994082139954578*^9, {3.994082210602051*^9, - 3.994082259585372*^9}}, - CellLabel-> - "Out[385]=",ExpressionUUID->"0c3a7b43-6b45-4b41-8df7-4572499595f0"] + 3.994082259585372*^9}, 3.994256396281137*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"3fa0d893-0653-4c12-8071-1b01dc5793e0"] }, Open ]], Cell[CellGroupData[{ @@ -396,16 +368,14 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[386]:=",ExpressionUUID->"7ac71713-331a-43ab-86e7-5e48b4c916f6"], + CellLabel->"In[16]:=",ExpressionUUID->"7ac71713-331a-43ab-86e7-5e48b4c916f6"], Cell[BoxData[ RowBox[{"-", "0.08563504168524437`"}]], "Output", CellChangeTimes->{ 3.991319786540777*^9, 3.9940821399653873`*^9, {3.994082210613337*^9, - 3.994082259596693*^9}}, - CellLabel-> - "Out[386]=",ExpressionUUID->"6a804999-cdae-453b-879e-cc9a593b3443"] + 3.994082259596693*^9}, 3.994256396297078*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"8d3912b9-b524-4eb8-aa19-975a8f968b29"] }, Open ]], Cell[CellGroupData[{ @@ -456,16 +426,14 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[387]:=",ExpressionUUID->"e4972212-2d1a-45e3-93e3-f736d99af180"], + CellLabel->"In[17]:=",ExpressionUUID->"e4972212-2d1a-45e3-93e3-f736d99af180"], Cell[BoxData[ RowBox[{"-", "0.5841673375234483`"}]], "Output", CellChangeTimes->{ 3.9913197865777817`*^9, 3.9940821399780188`*^9, {3.9940822106256943`*^9, - 3.9940822596071453`*^9}}, - CellLabel-> - "Out[387]=",ExpressionUUID->"54f83984-6557-4bf9-bf87-23b211a8216a"] + 3.9940822596071453`*^9}, 3.99425639631108*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"7732b351-bb71-476f-a3b0-1264781a7e0c"] }, Open ]], Cell[CellGroupData[{ @@ -520,60 +488,52 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[388]:=",ExpressionUUID->"ae5371c6-593a-4fbe-b496-969ffa647461"], + CellLabel->"In[18]:=",ExpressionUUID->"ae5371c6-593a-4fbe-b496-969ffa647461"], Cell[BoxData["0.7215005296935654`"], "Output", CellChangeTimes->{ 3.9913197866129*^9, 3.994082139989607*^9, {3.994082210635736*^9, - 3.99408225961747*^9}}, - CellLabel-> - "Out[388]=",ExpressionUUID->"203756f7-87b4-4e9d-8926-03296331165a"] + 3.99408225961747*^9}, 3.994256396325862*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"8b3465b8-b82e-4a02-b9ff-05f18d4f1902"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", - CellLabel-> - "In[389]:=",ExpressionUUID->"d961082f-869d-41a8-936a-7d5f4dea98d2"], + CellLabel->"In[19]:=",ExpressionUUID->"d961082f-869d-41a8-936a-7d5f4dea98d2"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786620775*^9, 3.9940821399995413`*^9, {3.9940822106444807`*^9, - 3.994082259627829*^9}}, - CellLabel-> - "Out[389]=",ExpressionUUID->"2392fa3f-00cd-4601-a803-be2337d0ff8f"] + 3.994082259627829*^9}, 3.9942563963410788`*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"da2e9b1a-de33-431f-a16a-0136bc0decf7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fin", "=", "0.09"}]], "Input", - CellLabel-> - "In[390]:=",ExpressionUUID->"3af009a0-f9ac-4896-8cfb-5fcb7166a0a4"], + CellLabel->"In[20]:=",ExpressionUUID->"3af009a0-f9ac-4896-8cfb-5fcb7166a0a4"], Cell[BoxData["0.09`"], "Output", CellChangeTimes->{ 3.991319786657793*^9, 3.994082140010191*^9, {3.994082210653286*^9, - 3.994082259638521*^9}}, - CellLabel-> - "Out[390]=",ExpressionUUID->"40a100c3-c5d5-45dd-936e-22a6b712bc08"] + 3.994082259638521*^9}, 3.994256396357538*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"a26d320f-f3a2-49b1-bbe4-8baa84de7d96"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffin", "=", "0.42"}]], "Input", - CellLabel-> - "In[391]:=",ExpressionUUID->"86dd05d3-90b1-46a2-b995-da02a79b23ad"], + CellLabel->"In[21]:=",ExpressionUUID->"86dd05d3-90b1-46a2-b995-da02a79b23ad"], Cell[BoxData["0.42`"], "Output", CellChangeTimes->{ 3.9913197866657925`*^9, 3.9940821400205593`*^9, {3.9940822106620293`*^9, - 3.9940822596489058`*^9}}, - CellLabel-> - "Out[391]=",ExpressionUUID->"a5285ea9-63b2-4c95-bcbd-49c0fd63be67"] + 3.9940822596489058`*^9}, 3.994256396370755*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"c59207f8-f729-4de0-bca1-1f03025c1d8d"] }, Open ]], Cell[CellGroupData[{ @@ -582,31 +542,27 @@ Cell[BoxData[ RowBox[{"fex", "=", RowBox[{"-", "2.59"}]}]], "Input", CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, - CellLabel-> - "In[392]:=",ExpressionUUID->"a633539d-b93e-41a4-8a70-2ffca9d28f30"], + CellLabel->"In[22]:=",ExpressionUUID->"a633539d-b93e-41a4-8a70-2ffca9d28f30"], Cell[BoxData[ RowBox[{"-", "2.59`"}]], "Output", CellChangeTimes->{ 3.9913197866996*^9, 3.994082140031045*^9, {3.994082210671171*^9, - 3.994082259659958*^9}}, - CellLabel-> - "Out[392]=",ExpressionUUID->"aa542d55-5bb4-49ff-86f1-8fc03021093e"] + 3.994082259659958*^9}, 3.994256396384104*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"c447e916-338c-4040-9fa4-4042d4ccc40b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffex", "=", "0.54"}]], "Input", - CellLabel-> - "In[393]:=",ExpressionUUID->"526f1644-7850-4ee9-8d10-cc36a22a17b4"], + CellLabel->"In[23]:=",ExpressionUUID->"526f1644-7850-4ee9-8d10-cc36a22a17b4"], Cell[BoxData["0.54`"], "Output", CellChangeTimes->{ 3.9913197867406044`*^9, 3.994082140043984*^9, {3.9940822106801777`*^9, - 3.994082259671282*^9}}, - CellLabel-> - "Out[393]=",ExpressionUUID->"66d35873-9d30-4e18-a65a-eaeaa6c2d8d7"] + 3.994082259671282*^9}, 3.99425639639972*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"6d743d13-33ee-4f71-9038-628e6d679900"] }, Open ]], Cell[CellGroupData[{ @@ -616,15 +572,13 @@ Cell[BoxData[ CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { 3.9940731043812733`*^9, 3.994073104508005*^9}}, - CellLabel-> - "In[394]:=",ExpressionUUID->"77bd0100-8f25-4471-a5fe-b00dd7082437"], + CellLabel->"In[24]:=",ExpressionUUID->"77bd0100-8f25-4471-a5fe-b00dd7082437"], Cell[BoxData["66"], "Output", CellChangeTimes->{ 3.9913197867861958`*^9, 3.994082140061471*^9, {3.99408221068924*^9, - 3.9940822596826973`*^9}}, - CellLabel-> - "Out[394]=",ExpressionUUID->"f57370c4-914e-4378-8e25-5c7c37fecd36"] + 3.9940822596826973`*^9}, 3.9942563964158487`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"d4d26d19-1634-4d01-8df7-42877e802bd4"] }, Open ]], Cell[CellGroupData[{ @@ -634,15 +588,13 @@ Cell[BoxData[ RowBox[{"94", "-", "Z1"}]}]], "Input", CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, 3.9916443064841423`*^9, {3.9940731093077307`*^9, 3.99407311085991*^9}}, - CellLabel-> - "In[395]:=",ExpressionUUID->"cfada19d-57a2-4ee8-baa9-a6cf4e4f8d05"], + CellLabel->"In[25]:=",ExpressionUUID->"cfada19d-57a2-4ee8-baa9-a6cf4e4f8d05"], Cell[BoxData["28"], "Output", CellChangeTimes->{ 3.9913197867928696`*^9, 3.994082140071866*^9, {3.9940822106985188`*^9, - 3.9940822596930656`*^9}}, - CellLabel-> - "Out[395]=",ExpressionUUID->"eec9b0d8-1649-4054-89c0-0850d3ce9d92"] + 3.9940822596930656`*^9}, 3.994256396432859*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"4a55ab4e-9eb1-4987-99d6-3ddc6a762df2"] }, Open ]], Cell[CellGroupData[{ @@ -651,15 +603,13 @@ Cell[BoxData[ RowBox[{"A2", "=", RowBox[{"A", "-", "A1"}]}]], "Input", CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, - CellLabel-> - "In[396]:=",ExpressionUUID->"1641be81-df7b-4fd0-bab9-9f05fed9979c"], + CellLabel->"In[26]:=",ExpressionUUID->"1641be81-df7b-4fd0-bab9-9f05fed9979c"], Cell[BoxData["74"], "Output", CellChangeTimes->{ 3.991319786827894*^9, 3.994082140082143*^9, {3.994082210707357*^9, - 3.994082259703759*^9}}, - CellLabel-> - "Out[396]=",ExpressionUUID->"f67d1027-c0ba-4ced-a472-9643db548c79"] + 3.994082259703759*^9}, 3.994256396449696*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"c91a9dd1-70a6-451e-85c9-ae7e8580954a"] }, Open ]], Cell[CellGroupData[{ @@ -674,15 +624,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[397]:=",ExpressionUUID->"a0686ee3-e375-4ac1-8346-4c89db0903f9"], + CellLabel->"In[27]:=",ExpressionUUID->"a0686ee3-e375-4ac1-8346-4c89db0903f9"], Cell[BoxData["0.11092478020188863`"], "Output", CellChangeTimes->{ 3.9913197868648605`*^9, 3.9940821400927267`*^9, {3.994082210716133*^9, - 3.994082259714077*^9}}, - CellLabel-> - "Out[397]=",ExpressionUUID->"eae3cf94-a023-4a84-b1bd-2932f42e870b"] + 3.994082259714077*^9}, 3.994256396464246*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"a331f6ea-aaf2-43bf-81fe-9240535521dd"] }, Open ]], Cell[CellGroupData[{ @@ -697,16 +645,14 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[398]:=",ExpressionUUID->"1b1dfec8-3f50-4775-83ad-88a1163965d1"], + CellLabel->"In[28]:=",ExpressionUUID->"1b1dfec8-3f50-4775-83ad-88a1163965d1"], Cell[BoxData[ RowBox[{"-", "2.5630967111690004`"}]], "Output", CellChangeTimes->{ 3.9913197868718567`*^9, 3.9940821401033173`*^9, {3.994082210725114*^9, - 3.994082259724759*^9}}, - CellLabel-> - "Out[398]=",ExpressionUUID->"2cbd2036-2746-48f6-91b5-80289d5506f5"] + 3.994082259724759*^9}, 3.994256396482093*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"a2bfde44-f280-484e-8f5e-42c9960fa0b3"] }, Open ]], Cell[CellGroupData[{ @@ -737,15 +683,13 @@ Cell[BoxData[ CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, - CellLabel-> - "In[399]:=",ExpressionUUID->"fcb55ebc-e0fb-4dba-9687-5e497fbf44b3"], + CellLabel->"In[29]:=",ExpressionUUID->"fcb55ebc-e0fb-4dba-9687-5e497fbf44b3"], Cell[BoxData["17.4437013546787`"], "Output", CellChangeTimes->{ 3.9913197869068584`*^9, 3.994082140114669*^9, {3.994082210734028*^9, - 3.994082259736136*^9}}, - CellLabel-> - "Out[399]=",ExpressionUUID->"e35aa21a-738d-4a1f-8438-33d3fdb80a96"] + 3.994082259736136*^9}, 3.9942563964974537`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"b110ad9e-02d3-44ab-932e-ba80bfaccbc1"] }, Open ]], Cell[CellGroupData[{ @@ -753,15 +697,13 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, - CellLabel-> - "In[400]:=",ExpressionUUID->"3e095f03-a0b4-4024-87a1-088c9019f7b9"], + CellLabel->"In[30]:=",ExpressionUUID->"3e095f03-a0b4-4024-87a1-088c9019f7b9"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786940857*^9, 3.994082140125458*^9, {3.9940822107429523`*^9, - 3.9940822597468443`*^9}}, - CellLabel-> - "Out[400]=",ExpressionUUID->"4947dc45-d1d3-4cbb-ad04-1ba65600cb68"] + 3.9940822597468443`*^9}, 3.994256396513508*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"31a1404e-d3be-4375-bbfd-b8f356ef3811"] }, Open ]], Cell[CellGroupData[{ @@ -771,20 +713,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { 3.994073141486967*^9, 3.9940731424234343`*^9}}, - CellLabel-> - "In[401]:=",ExpressionUUID->"e91d6a5c-806c-42e9-8cd4-d1dd901d11ff"], + CellLabel->"In[31]:=",ExpressionUUID->"e91d6a5c-806c-42e9-8cd4-d1dd901d11ff"], Cell[BoxData["2.185`"], "Output", CellChangeTimes->{ - 3.9940821401363583`*^9, {3.994082210751677*^9, 3.9940822597573833`*^9}}, - CellLabel-> - "Out[401]=",ExpressionUUID->"288865a1-8873-4cb3-ab45-533ad4ca0074"] + 3.9940821401363583`*^9, {3.994082210751677*^9, 3.9940822597573833`*^9}, + 3.994256396527637*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"1799b504-6e07-45e8-a5ca-0a5a1ede5a78"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, - CellLabel-> - "In[402]:=",ExpressionUUID->"48b76456-aae3-4c3b-9640-ff5134eb7551"], + CellLabel->"In[32]:=",ExpressionUUID->"48b76456-aae3-4c3b-9640-ff5134eb7551"], Cell[CellGroupData[{ @@ -793,20 +733,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { 3.9940731457645493`*^9, 3.994073146848226*^9}}, - CellLabel-> - "In[403]:=",ExpressionUUID->"1bd9a53f-2064-415c-85b2-1b899328fdfc"], + CellLabel->"In[33]:=",ExpressionUUID->"1bd9a53f-2064-415c-85b2-1b899328fdfc"], Cell[BoxData["0.755`"], "Output", CellChangeTimes->{ - 3.994082140150962*^9, {3.9940822107679367`*^9, 3.9940822597717943`*^9}}, - CellLabel-> - "Out[403]=",ExpressionUUID->"7a066b36-32ec-4953-bcc5-1a1ffaa32a31"] + 3.994082140150962*^9, {3.9940822107679367`*^9, 3.9940822597717943`*^9}, + 3.9942563965846567`*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"0d4b2ec7-c02d-4363-ab51-f23e5b53343d"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, - CellLabel-> - "In[404]:=",ExpressionUUID->"b7f34cd4-68b5-48ae-ae2f-9be7de71fb7d"], + CellLabel->"In[34]:=",ExpressionUUID->"b7f34cd4-68b5-48ae-ae2f-9be7de71fb7d"], Cell[CellGroupData[{ @@ -815,20 +753,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { 3.994073149619232*^9, 3.994073149893601*^9}}, - CellLabel-> - "In[405]:=",ExpressionUUID->"d56db30f-ee84-4b14-b4f1-c59418196932"], + CellLabel->"In[35]:=",ExpressionUUID->"d56db30f-ee84-4b14-b4f1-c59418196932"], Cell[BoxData["2.5`"], "Output", CellChangeTimes->{ - 3.994082140164228*^9, {3.994082210783918*^9, 3.994082259785039*^9}}, - CellLabel-> - "Out[405]=",ExpressionUUID->"c7dd0441-2bfd-4d83-a246-7f968fff4d7f"] + 3.994082140164228*^9, {3.994082210783918*^9, 3.994082259785039*^9}, + 3.994256396613182*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"c4818d3a-47e0-4f75-888a-e7a2c40dde66"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, - CellLabel-> - "In[406]:=",ExpressionUUID->"faef14ec-6e42-49fa-aec7-1e9033a91eb8"], + CellLabel->"In[36]:=",ExpressionUUID->"faef14ec-6e42-49fa-aec7-1e9033a91eb8"], Cell[CellGroupData[{ @@ -837,20 +773,18 @@ Cell[BoxData[ CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, 3.991799359954439*^9, {3.994073152359264*^9, 3.994073154823225*^9}}, - CellLabel-> - "In[407]:=",ExpressionUUID->"26549962-cf45-4a0a-87fa-a1b8e607c233"], + CellLabel->"In[37]:=",ExpressionUUID->"26549962-cf45-4a0a-87fa-a1b8e607c233"], Cell[BoxData["1.165`"], "Output", CellChangeTimes->{ - 3.994082140177301*^9, {3.994082210799852*^9, 3.9940822597980413`*^9}}, - CellLabel-> - "Out[407]=",ExpressionUUID->"7ee25934-e7b9-4ef4-b7c7-7316f471c5c8"] + 3.994082140177301*^9, {3.994082210799852*^9, 3.9940822597980413`*^9}, + 3.9942563966424627`*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"a6b15818-08ad-4568-b1d7-e6d8f88ebe67"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, - CellLabel-> - "In[408]:=",ExpressionUUID->"bad5a6ff-0f0e-40a4-8fc7-216274bbe398"], + CellLabel->"In[38]:=",ExpressionUUID->"bad5a6ff-0f0e-40a4-8fc7-216274bbe398"], Cell[CellGroupData[{ @@ -859,20 +793,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, 3.991718016467348*^9, 3.991799361414671*^9, {3.994073158537945*^9, 3.994073159984886*^9}}, - CellLabel-> - "In[409]:=",ExpressionUUID->"517a3596-f04a-44e1-af5f-e0f50526ce48"], + CellLabel->"In[39]:=",ExpressionUUID->"517a3596-f04a-44e1-af5f-e0f50526ce48"], Cell[BoxData["1.055`"], "Output", CellChangeTimes->{ - 3.9940821401902237`*^9, {3.9940822108158007`*^9, 3.994082259811191*^9}}, - CellLabel-> - "Out[409]=",ExpressionUUID->"cf8515f0-a554-4104-81c4-4333ae728e2a"] + 3.9940821401902237`*^9, {3.9940822108158007`*^9, 3.994082259811191*^9}, + 3.994256396671226*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"4cfb9537-c8e4-42b5-b2bb-7424a7ce7a7d"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, - CellLabel-> - "In[410]:=",ExpressionUUID->"eba5c45e-bee3-4997-9150-519fc7c33e0c"], + CellLabel->"In[40]:=",ExpressionUUID->"eba5c45e-bee3-4997-9150-519fc7c33e0c"], Cell[CellGroupData[{ @@ -881,20 +813,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9940731689650297`*^9, 3.994073170525517*^9}}, - CellLabel-> - "In[411]:=",ExpressionUUID->"130ce0b5-ee01-4346-b901-37c115d6fb32"], + CellLabel->"In[41]:=",ExpressionUUID->"130ce0b5-ee01-4346-b901-37c115d6fb32"], Cell[BoxData["0.575`"], "Output", CellChangeTimes->{ - 3.99408214020331*^9, {3.9940822108320093`*^9, 3.994082259824339*^9}}, - CellLabel-> - "Out[411]=",ExpressionUUID->"d8d811d3-a53a-4ef4-83cc-0cbd8df3c70c"] + 3.99408214020331*^9, {3.9940822108320093`*^9, 3.994082259824339*^9}, + 3.994256396699604*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"41f00018-ec5a-40bc-a2eb-762b6b3dee6a"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, - CellLabel-> - "In[412]:=",ExpressionUUID->"3ed15dd7-c424-4df4-a6bf-dfa7e6aeb2ec"], + CellLabel->"In[42]:=",ExpressionUUID->"3ed15dd7-c424-4df4-a6bf-dfa7e6aeb2ec"], Cell[CellGroupData[{ @@ -903,20 +833,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.99407317466329*^9, 3.9940731756907377`*^9}}, - CellLabel-> - "In[413]:=",ExpressionUUID->"df1a2442-03ec-4485-8944-b236bed6503a"], + CellLabel->"In[43]:=",ExpressionUUID->"df1a2442-03ec-4485-8944-b236bed6503a"], Cell[BoxData["1.51`"], "Output", CellChangeTimes->{ - 3.9940821402169437`*^9, {3.994082210847649*^9, 3.994082259837338*^9}}, - CellLabel-> - "Out[413]=",ExpressionUUID->"e656085c-524a-4f01-9cf0-5bdfb977c8db"] + 3.9940821402169437`*^9, {3.994082210847649*^9, 3.994082259837338*^9}, + 3.994256396728552*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"fdc81489-3fa3-4a14-993e-6c6a058b4fdc"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, - CellLabel-> - "In[414]:=",ExpressionUUID->"a234e16c-16de-4a73-9e28-91279f7e26f3"], + CellLabel->"In[44]:=",ExpressionUUID->"a234e16c-16de-4a73-9e28-91279f7e26f3"], Cell[CellGroupData[{ @@ -924,20 +852,18 @@ Cell[BoxData[ RowBox[{"nn2", "=", "0.635"}]], "Input", CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, 3.9917993660901737`*^9, {3.99407317843715*^9, 3.994073182537156*^9}}, - CellLabel-> - "In[415]:=",ExpressionUUID->"ebcd049d-92ed-452d-bb22-180ce6be5688"], + CellLabel->"In[45]:=",ExpressionUUID->"ebcd049d-92ed-452d-bb22-180ce6be5688"], Cell[BoxData["0.635`"], "Output", CellChangeTimes->{ - 3.994082140230339*^9, {3.994082210863504*^9, 3.994082259850523*^9}}, - CellLabel-> - "Out[415]=",ExpressionUUID->"d8ddea09-4296-4828-8bba-f955ce32150e"] + 3.994082140230339*^9, {3.994082210863504*^9, 3.994082259850523*^9}, + 3.994256396756358*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"a033c0f5-2295-4821-a6f4-6946ec8df6e9"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, - CellLabel-> - "In[416]:=",ExpressionUUID->"fb171c90-d58d-46a3-835f-4205c35564bb"], + CellLabel->"In[46]:=",ExpressionUUID->"fb171c90-d58d-46a3-835f-4205c35564bb"], Cell[CellGroupData[{ @@ -1426,15 +1352,13 @@ uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== "], - CellLabel-> - "In[417]:=",ExpressionUUID->"3a22b78a-b793-4e2c-b868-4eb499f8ba16"], + CellLabel->"In[47]:=",ExpressionUUID->"3a22b78a-b793-4e2c-b868-4eb499f8ba16"], Cell[BoxData["0.14543451930671605`"], "Output", CellChangeTimes->{ 3.991319787430073*^9, 3.9940821403190203`*^9, {3.994082210903069*^9, - 3.994082259888891*^9}}, - CellLabel-> - "Out[417]=",ExpressionUUID->"91955a31-faab-4202-b29a-c9bb0fb8950b"] + 3.994082259888891*^9}, 3.994256396916732*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"833b0865-e018-4425-8efe-19cbf4988cca"] }, Open ]], Cell[CellGroupData[{ @@ -1928,15 +1852,13 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[418]:=",ExpressionUUID->"8fac76ff-18b4-4efc-bd89-766736fce3f6"], + CellLabel->"In[48]:=",ExpressionUUID->"8fac76ff-18b4-4efc-bd89-766736fce3f6"], Cell[BoxData["7.609769640822119`"], "Output", CellChangeTimes->{ 3.991319787574972*^9, 3.9940821403533278`*^9, {3.994082210934519*^9, - 3.994082259917639*^9}}, - CellLabel-> - "Out[418]=",ExpressionUUID->"1633a0ea-8e42-4d34-8c0f-6abb5a1f2a40"] + 3.994082259917639*^9}, 3.994256396988391*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"220e9ece-a7c5-49a2-85bd-c59e59caf6da"] }, Open ]], Cell[CellGroupData[{ @@ -2424,16 +2346,14 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[419]:=",ExpressionUUID->"fc31ed85-7cff-4467-889f-062e008e9d03"], + CellLabel->"In[49]:=",ExpressionUUID->"fc31ed85-7cff-4467-889f-062e008e9d03"], Cell[BoxData[ RowBox[{"-", "15.030827196449275`"}]], "Output", CellChangeTimes->{ 3.991319787641424*^9, 3.994082140383691*^9, {3.9940822109679832`*^9, - 3.994082259945158*^9}}, - CellLabel-> - "Out[419]=",ExpressionUUID->"9f2a0b92-04f3-40c7-8cce-aa5f0fce9176"] + 3.994082259945158*^9}, 3.994256397059471*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"d7a4c865-d498-4847-9fbc-cb56092cf515"] }, Open ]], Cell[CellGroupData[{ @@ -2991,16 +2911,14 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[420]:=",ExpressionUUID->"13629225-859e-47c9-877e-db45c48a8bd0"], + CellLabel->"In[50]:=",ExpressionUUID->"13629225-859e-47c9-877e-db45c48a8bd0"], Cell[BoxData[ RowBox[{"-", "19.761827924452415`"}]], "Output", CellChangeTimes->{ 3.991319787711939*^9, 3.9940821404195766`*^9, {3.9940822110021753`*^9, - 3.994082259978429*^9}}, - CellLabel-> - "Out[420]=",ExpressionUUID->"7fc43723-8a9d-4494-98bc-7d5130838e66"] + 3.994082259978429*^9}, 3.994256397131381*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"e793c4ce-0505-48c0-8095-dc22747f538a"] }, Open ]], Cell[CellGroupData[{ @@ -3558,16 +3476,14 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[421]:=",ExpressionUUID->"512cbaa5-9386-4f59-a7db-028ba9a21ddf"], + CellLabel->"In[51]:=",ExpressionUUID->"512cbaa5-9386-4f59-a7db-028ba9a21ddf"], Cell[BoxData[ RowBox[{"-", "57.66257775030843`"}]], "Output", CellChangeTimes->{ 3.9913197877723045`*^9, 3.9940821404579077`*^9, {3.994082211038884*^9, - 3.994082260011196*^9}}, - CellLabel-> - "Out[421]=",ExpressionUUID->"729795d9-94c0-44d1-8662-42c68cda0eaf"] + 3.994082260011196*^9}, 3.994256397199216*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"df7246d4-44da-4f14-ace2-26daa9cb4ba3"] }, Open ]], Cell[CellGroupData[{ @@ -4198,46 +4114,40 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[422]:=",ExpressionUUID->"1a5227a1-c926-4069-a1d5-d03f382f066c"], + CellLabel->"In[52]:=",ExpressionUUID->"1a5227a1-c926-4069-a1d5-d03f382f066c"], Cell[BoxData[ RowBox[{"-", "150.68948520646092`"}]], "Output", CellChangeTimes->{ 3.991319787833355*^9, 3.994082140505332*^9, {3.994082211079116*^9, - 3.9940822600491877`*^9}}, - CellLabel-> - "Out[422]=",ExpressionUUID->"78ee98f3-1818-4c66-8b49-6dcdadee4e72"] + 3.9940822600491877`*^9}, 3.994256397293667*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"04674d7f-6a70-4e55-879f-fb9b8622b258"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U21", "=", "0"}]], "Input", - CellLabel-> - "In[423]:=",ExpressionUUID->"a81b405e-908a-4134-8186-ca0385930fec"], + CellLabel->"In[53]:=",ExpressionUUID->"a81b405e-908a-4134-8186-ca0385930fec"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210013676`*^9, 3.99408214052183*^9, {3.994082211090176*^9, - 3.994082260062854*^9}}, - CellLabel-> - "Out[423]=",ExpressionUUID->"a85b9f1e-fc5d-4bad-9482-330b98467bb1"] + 3.994082260062854*^9}, 3.994256397312303*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"b944db0f-f9bc-4096-a466-6dc764a6b031"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U22", "=", "0"}]], "Input", - CellLabel-> - "In[424]:=",ExpressionUUID->"8476bf90-e525-462a-94d7-cee096eb3e2e"], + CellLabel->"In[54]:=",ExpressionUUID->"8476bf90-e525-462a-94d7-cee096eb3e2e"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210355663`*^9, 3.994082140531746*^9, {3.9940822111011677`*^9, - 3.994082260073297*^9}}, - CellLabel-> - "Out[424]=",ExpressionUUID->"1e74e985-696f-49c2-8cb3-a86f2ec6431f"] + 3.994082260073297*^9}, 3.9942563973259487`*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"bed2d114-47d7-465f-b2a2-6e11f4ab5bb8"] }, Open ]], Cell[CellGroupData[{ @@ -4281,15 +4191,13 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[425]:=",ExpressionUUID->"f94be985-7258-476c-a16d-33c95def05a9"], + CellLabel->"In[55]:=",ExpressionUUID->"f94be985-7258-476c-a16d-33c95def05a9"], Cell[BoxData["120.33662547388403`"], "Output", CellChangeTimes->{ 3.991320421068556*^9, 3.994082140542282*^9, {3.994082211112996*^9, - 3.994082260084251*^9}}, - CellLabel-> - "Out[425]=",ExpressionUUID->"a4d9c36b-7e86-4def-a38a-fa19d3b07c09"] + 3.994082260084251*^9}, 3.994256397341818*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"860fa864-3d25-4140-908c-8d6f73deacec"] }, Open ]], Cell[CellGroupData[{ @@ -4329,16 +4237,14 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[426]:=",ExpressionUUID->"bf0647ef-26aa-4c15-a477-69c327e17cdd"], + CellLabel->"In[56]:=",ExpressionUUID->"bf0647ef-26aa-4c15-a477-69c327e17cdd"], Cell[BoxData[ RowBox[{"-", "107.1121642480161`"}]], "Output", CellChangeTimes->{ 3.991320421098543*^9, 3.994082140552636*^9, {3.994082211122551*^9, - 3.994082260094944*^9}}, - CellLabel-> - "Out[426]=",ExpressionUUID->"923be44c-8e98-4e0d-b2a3-a5f96e8421a1"] + 3.994082260094944*^9}, 3.994256397357222*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"0fe28a0f-85de-493f-b924-2ca861ad130d"] }, Open ]], Cell[CellGroupData[{ @@ -4382,99 +4288,87 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[427]:=",ExpressionUUID->"f6cd6589-21f0-4053-bef6-51735a9b5449"], + CellLabel->"In[57]:=",ExpressionUUID->"f6cd6589-21f0-4053-bef6-51735a9b5449"], Cell[BoxData["123.55775944746372`"], "Output", CellChangeTimes->{ 3.9913204211275444`*^9, 3.9940821405632*^9, {3.9940822111320972`*^9, - 3.9940822601055107`*^9}}, - CellLabel-> - "Out[427]=",ExpressionUUID->"a96f0478-8fe4-4973-a87e-4278b1226073"] + 3.9940822601055107`*^9}, 3.99425639737436*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"8bff9adf-9bfc-4435-8c11-7b51fb8d0fd3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c11"], "Input", - CellLabel-> - "In[428]:=",ExpressionUUID->"e20a649a-72ab-4a99-926e-2ea1ca52f590"], + CellLabel->"In[58]:=",ExpressionUUID->"e20a649a-72ab-4a99-926e-2ea1ca52f590"], Cell[BoxData["0.4069661562665162`"], "Output", CellChangeTimes->{ 3.9913204211385536`*^9, 3.994082140573392*^9, {3.994082211141264*^9, - 3.994082260116184*^9}}, - CellLabel-> - "Out[428]=",ExpressionUUID->"b13cf7ef-97a3-4fef-813b-8c1db0a06b3b"] + 3.994082260116184*^9}, 3.994256397390711*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"a3e382e7-11a3-4bc7-977b-8b09d2cf60cf"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c12"], "Input", - CellLabel-> - "In[429]:=",ExpressionUUID->"c216a986-3947-47c3-b8dd-a24331214a74"], + CellLabel->"In[59]:=",ExpressionUUID->"c216a986-3947-47c3-b8dd-a24331214a74"], Cell[BoxData[ RowBox[{"-", "0.08563504168524437`"}]], "Output", CellChangeTimes->{ 3.9913204211683464`*^9, 3.994082140583559*^9, {3.994082211156444*^9, - 3.994082260127738*^9}}, - CellLabel-> - "Out[429]=",ExpressionUUID->"9193edb0-aa30-41e4-8af4-74da1445e38d"] + 3.994082260127738*^9}, 3.994256397406061*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"08924887-dc65-4952-b3b5-f384b789947d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c21"], "Input", - CellLabel-> - "In[430]:=",ExpressionUUID->"2d85275b-6b14-40bf-b4e6-ba346d30ba60"], + CellLabel->"In[60]:=",ExpressionUUID->"2d85275b-6b14-40bf-b4e6-ba346d30ba60"], Cell[BoxData[ RowBox[{"-", "0.5841673375234483`"}]], "Output", CellChangeTimes->{ 3.991320421199068*^9, 3.994082140593707*^9, {3.994082211166273*^9, - 3.99408226016045*^9}}, - CellLabel-> - "Out[430]=",ExpressionUUID->"6a02038d-b071-4c7a-a75e-b6e5eef0ac69"] + 3.99408226016045*^9}, 3.99425639741984*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"d154f816-6c9e-49cb-a9ee-a07812560c07"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c22"], "Input", - CellLabel-> - "In[431]:=",ExpressionUUID->"71d44f1e-c44c-4d18-8fc2-d9a46f6a7caa"], + CellLabel->"In[61]:=",ExpressionUUID->"71d44f1e-c44c-4d18-8fc2-d9a46f6a7caa"], Cell[BoxData["0.7215005296935654`"], "Output", CellChangeTimes->{ 3.991320421228037*^9, 3.9940821428128853`*^9, {3.994082211175336*^9, - 3.994082260189337*^9}}, - CellLabel-> - "Out[431]=",ExpressionUUID->"7e2a630b-3c94-4242-871a-4d4a5a53ae8e"] + 3.994082260189337*^9}, 3.99425639743449*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"d8e9fd92-b8ab-4c29-9065-c24875b0814d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w1"], "Input", - CellLabel-> - "In[432]:=",ExpressionUUID->"35c8bcf6-abaa-4803-abe7-7e6df3c9cf0c"], + CellLabel->"In[62]:=",ExpressionUUID->"35c8bcf6-abaa-4803-abe7-7e6df3c9cf0c"], Cell[BoxData["2.315137197466896`"], "Output", CellChangeTimes->{ - 3.9913204212585373`*^9, {3.9940822111841908`*^9, 3.9940822602133617`*^9}}, - CellLabel-> - "Out[432]=",ExpressionUUID->"9dcbb3fa-0a05-4dd9-bb91-0b2127d354e1"] + 3.9913204212585373`*^9, {3.9940822111841908`*^9, 3.9940822602133617`*^9}, + 3.9942563974480677`*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"382cfb36-264c-4e29-ba4a-04c67822e57c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w2"], "Input", - CellLabel-> - "In[433]:=",ExpressionUUID->"14b6da05-6584-437e-b3a2-fd9e0032b3af"], + CellLabel->"In[63]:=",ExpressionUUID->"14b6da05-6584-437e-b3a2-fd9e0032b3af"], Cell[BoxData["1.4220278650887666`"], "Output", CellChangeTimes->{ - 3.9913204212884274`*^9, {3.994082211193069*^9, 3.99408226021774*^9}}, - CellLabel-> - "Out[433]=",ExpressionUUID->"5fe74dca-1a92-4ec0-b98c-12f909610fe1"] + 3.9913204212884274`*^9, {3.994082211193069*^9, 3.99408226021774*^9}, + 3.9942563974609833`*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"6d1f7a96-5953-4885-89e2-5a005f533841"] }, Open ]], Cell[CellGroupData[{ @@ -4495,15 +4389,14 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", - CellLabel-> - "In[434]:=",ExpressionUUID->"d7e311d0-fe21-4a3a-8842-37001bc0d559"], + CellLabel->"In[64]:=",ExpressionUUID->"d7e311d0-fe21-4a3a-8842-37001bc0d559"], Cell[BoxData[ RowBox[{"-", "34.52117430586003`"}]], "Output", CellChangeTimes->{ - 3.9913204213185234`*^9, {3.994082211202162*^9, 3.994082260228716*^9}}, - CellLabel-> - "Out[434]=",ExpressionUUID->"0ac2c732-d5c7-4f63-900c-51d6c1304ea0"] + 3.9913204213185234`*^9, {3.994082211202162*^9, 3.994082260228716*^9}, + 3.994256397476016*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"e8cc8369-960b-4cb4-99bb-e79f6d61495c"] }, Open ]], Cell[CellGroupData[{ @@ -4524,15 +4417,14 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", - CellLabel-> - "In[435]:=",ExpressionUUID->"d26ec46e-58d9-4e8e-bf31-e532b8d3261c"], + CellLabel->"In[65]:=",ExpressionUUID->"d26ec46e-58d9-4e8e-bf31-e532b8d3261c"], Cell[BoxData[ RowBox[{"-", "6.669654351008722`"}]], "Output", CellChangeTimes->{ - 3.991320421349531*^9, {3.9940822112147284`*^9, 3.994082260239593*^9}}, - CellLabel-> - "Out[435]=",ExpressionUUID->"050c4da5-9b96-4c6f-88c4-3e5ea241d76a"] + 3.991320421349531*^9, {3.9940822112147284`*^9, 3.994082260239593*^9}, + 3.9942563974921293`*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"80192594-2bd5-49ea-8c39-4267ea69476b"] }, Open ]], Cell[CellGroupData[{ @@ -4597,14 +4489,13 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[436]:=",ExpressionUUID->"7bc3c456-5e98-458e-a765-50ef323a8d69"], + CellLabel->"In[66]:=",ExpressionUUID->"7bc3c456-5e98-458e-a765-50ef323a8d69"], Cell[BoxData["85.815451168024`"], "Output", CellChangeTimes->{ - 3.9913204213784294`*^9, {3.994082211224436*^9, 3.994082260250916*^9}}, - CellLabel-> - "Out[436]=",ExpressionUUID->"698d6641-bcba-4a98-b5d5-ef9cf9a37140"] + 3.9913204213784294`*^9, {3.994082211224436*^9, 3.994082260250916*^9}, + 3.994256397506418*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"62bcd168-5b86-4507-8f69-ed8b8b3a61d3"] }, Open ]], Cell[CellGroupData[{ @@ -4645,15 +4536,14 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[437]:=",ExpressionUUID->"e42625ee-4eb9-48fb-a3b3-206c107c36f1"], + CellLabel->"In[67]:=",ExpressionUUID->"e42625ee-4eb9-48fb-a3b3-206c107c36f1"], Cell[BoxData[ RowBox[{"-", "107.1121642480161`"}]], "Output", CellChangeTimes->{ - 3.9913204213904285`*^9, {3.994082211233815*^9, 3.994082260261983*^9}}, - CellLabel-> - "Out[437]=",ExpressionUUID->"8fd3918b-56b9-46be-9f6a-7d8d438d2737"] + 3.9913204213904285`*^9, {3.994082211233815*^9, 3.994082260261983*^9}, + 3.994256397524014*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"078df1e6-efdc-4ce7-aa1c-1151352d2f7f"] }, Open ]], Cell[CellGroupData[{ @@ -4719,14 +4609,13 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[438]:=",ExpressionUUID->"577572a2-9d9b-4146-b62c-6811bf661235"], + CellLabel->"In[68]:=",ExpressionUUID->"577572a2-9d9b-4146-b62c-6811bf661235"], Cell[BoxData["116.888105096455`"], "Output", CellChangeTimes->{ - 3.991320421419428*^9, {3.99408221124387*^9, 3.994082260273652*^9}}, - CellLabel-> - "Out[438]=",ExpressionUUID->"51614b2f-f889-45cb-a290-f23ace627243"] + 3.991320421419428*^9, {3.99408221124387*^9, 3.994082260273652*^9}, + 3.994256397542079*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"caa076cf-b63a-458e-8b96-89fad9031de7"] }, Open ]], Cell[CellGroupData[{ @@ -4784,14 +4673,13 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[439]:=",ExpressionUUID->"60c953d6-0a51-47eb-9807-9b0b90eff906"], + CellLabel->"In[69]:=",ExpressionUUID->"60c953d6-0a51-47eb-9807-9b0b90eff906"], Cell[BoxData["42.180325689118604`"], "Output", CellChangeTimes->{ - 3.9913204214494324`*^9, {3.994082211253778*^9, 3.994082260284829*^9}}, - CellLabel-> - "Out[439]=",ExpressionUUID->"dec8fdd5-5e54-4610-9cb6-e5bcd4842e75"] + 3.9913204214494324`*^9, {3.994082211253778*^9, 3.994082260284829*^9}, + 3.994256397631452*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"804001bd-a5e6-4932-8d14-ec8f7ca6d658"] }, Open ]], Cell[CellGroupData[{ @@ -4849,29 +4737,42 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[440]:=",ExpressionUUID->"e3811601-4365-4ef4-ac4c-c4c828a9660c"], + CellLabel->"In[70]:=",ExpressionUUID->"e3811601-4365-4ef4-ac4c-c4c828a9660c"], Cell[BoxData["727.4038074151157`"], "Output", CellChangeTimes->{ - 3.991320421481529*^9, {3.994082211263607*^9, 3.994082260289282*^9}}, - CellLabel-> - "Out[440]=",ExpressionUUID->"fee1019a-a3ba-48d1-a327-daccfa027098"] + 3.991320421481529*^9, {3.994082211263607*^9, 3.994082260289282*^9}, + 3.9942563976544228`*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"ccc28173-63fe-4a09-beaa-79128e238bbb"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"f1", "=", "0.4308709561"}]], "Input", CellFrame->{{0, 0}, {0, 0}}, CellChangeTimes->{3.991849227197853*^9, 3.99408390970156*^9}, - Background->RGBColor[ - 0.87, 0.94, 1],ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], + Background->RGBColor[0.87, 0.94, 1], + CellLabel->"In[71]:=",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], + +Cell[BoxData["0.4308709561`"], "Output", + CellChangeTimes->{3.994256397685161*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"61e68a66-4c1b-4d2d-b2a5-731a65aaa52a"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f2", "=", "0.1119937069"}]], "Input", CellFrame->{{0, 0}, {0, 0}}, CellChangeTimes->{3.9918492290557346`*^9, 3.994083916651979*^9}, - Background->RGBColor[ - 0.87, 0.94, 1],ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], + Background->RGBColor[0.87, 0.94, 1], + CellLabel->"In[72]:=",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], + +Cell[BoxData["0.1119937069`"], "Output", + CellChangeTimes->{3.994256397736373*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"c951ec82-05e1-4501-977f-c2abd8a3214d"] +}, Open ]], Cell[CellGroupData[{ @@ -4917,13 +4818,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel-> - "In[233]:=",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], + CellLabel->"In[73]:=",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], -Cell[BoxData["2.3793916761039797`*^-53"], "Output", - CellChangeTimes->{3.9913335367025833`*^9}, - CellLabel-> - "Out[233]=",ExpressionUUID->"1db85c02-7ca3-154e-854d-2c36f89709c4"] +Cell[BoxData["1.5199617014106653`*^-53"], "Output", + CellChangeTimes->{3.9913335367025833`*^9, 3.994256397764*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"4e0eb1d0-29c2-4456-92b9-616eb491fc18"] }, Open ]], Cell[CellGroupData[{ @@ -4957,14 +4856,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.9915575926932735`*^9},ExpressionUUID->"e4db2648-4e1a-2c46-83ab-\ -fcd932c3b663"], + CellChangeTimes->{3.9915575926932735`*^9}, + CellLabel->"In[74]:=",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], -Cell[BoxData["5.020725113795862`*^-55"], "Output", - CellChangeTimes->{3.991333536726557*^9}, - CellLabel-> - "Out[234]=",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] +Cell[BoxData["7.453693385647539`*^-55"], "Output", + CellChangeTimes->{3.991333536726557*^9, 3.994256397781629*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"4f9a65ed-89e2-40cf-bf53-34d817e83288"] }, Open ]], Cell[CellGroupData[{ @@ -4997,14 +4894,12 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.991557595005127*^9, - 3.991557596789215*^9}},ExpressionUUID->"e4649c3d-e19e-ca42-95a0-\ -23b66397f1fd"], + CellChangeTimes->{{3.991557595005127*^9, 3.991557596789215*^9}}, + CellLabel->"In[75]:=",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], -Cell[BoxData["1.871372642785671`*^-54"], "Output", - CellChangeTimes->{3.9913335367515736`*^9}, - CellLabel-> - "Out[235]=",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] +Cell[BoxData["5.8008117072332346`*^-55"], "Output", + CellChangeTimes->{3.9913335367515736`*^9, 3.9942563978272038`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"1b5ad5d2-ad5e-4a34-9ef0-452c21f71961"] }, Open ]], Cell[CellGroupData[{ @@ -5027,13 +4922,11 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel-> - "In[236]:=",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], + CellLabel->"In[76]:=",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], -Cell[BoxData["25.178011816139865`"], "Output", - CellChangeTimes->{3.9913335367605553`*^9}, - CellLabel-> - "Out[236]=",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] +Cell[BoxData["8.108940354664743`"], "Output", + CellChangeTimes->{3.9913335367605553`*^9, 3.994256397857201*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"66f4cd22-9693-481f-b492-d7e3fd346002"] }, Open ]], Cell[CellGroupData[{ @@ -5058,13 +4951,11 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", - CellLabel-> - "In[237]:=",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], + CellLabel->"In[77]:=",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], -Cell[BoxData["31.32034821453639`"], "Output", - CellChangeTimes->{3.991333536783556*^9}, - CellLabel-> - "Out[237]=",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +Cell[BoxData["17.69270772569653`"], "Output", + CellChangeTimes->{3.991333536783556*^9, 3.994256397887459*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"0db0dcd5-36bb-44f9-81db-efd0bacec535"] }, Open ]], Cell[CellGroupData[{ @@ -5073,13 +4964,11 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel-> - "In[238]:=",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], + CellLabel->"In[78]:=",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], -Cell[BoxData["0.7475613664925793`"], "Output", - CellChangeTimes->{3.9913335367915726`*^9}, - CellLabel-> - "Out[238]=",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +Cell[BoxData["2.280724938639217`"], "Output", + CellChangeTimes->{3.9913335367915726`*^9, 3.994256397918758*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"71ede3a1-85e5-4e3d-8511-4a0b8035e3a4"] }, Open ]], Cell[CellGroupData[{ @@ -5088,13 +4977,11 @@ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", - CellLabel-> - "In[239]:=",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], + CellLabel->"In[79]:=",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], -Cell[BoxData["3.5403946764909393`"], "Output", - CellChangeTimes->{3.99133353681583*^9}, - CellLabel-> - "Out[239]=",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +Cell[BoxData["6.411957474267742`"], "Output", + CellChangeTimes->{3.99133353681583*^9, 3.994256397947534*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"b5ecf63f-d8f1-4d16-8b13-34201e174f18"] }, Open ]], Cell[CellGroupData[{ @@ -5103,13 +4990,11 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel-> - "In[240]:=",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], + CellLabel->"In[80]:=",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], -Cell[BoxData["110.88639408458714`"], "Output", - CellChangeTimes->{3.991333536826782*^9}, - CellLabel-> - "Out[240]=",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +Cell[BoxData["113.44488954181448`"], "Output", + CellChangeTimes->{3.991333536826782*^9, 3.994256397976655*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"e251a297-34bc-434c-ab7e-e2c44a26f6af"] }, Open ]], Cell[CellGroupData[{ @@ -5118,13 +5003,11 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[241]:=",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], + CellLabel->"In[81]:=",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], -Cell[BoxData["18.822108918839827`"], "Output", - CellChangeTimes->{3.9913335368508377`*^9}, - CellLabel-> - "Out[241]=",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +Cell[BoxData["18.494262492821818`"], "Output", + CellChangeTimes->{3.9913335368508377`*^9, 3.994256397993553*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"d3a86e24-9cc1-4d14-a4fe-ee7c1ef6f501"] }, Open ]], Cell[CellGroupData[{ @@ -5313,13 +5196,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[242]:=",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], + CellLabel->"In[82]:=",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], -Cell[BoxData["0.042044960793272385`"], "Output", - CellChangeTimes->{3.9913335368758316`*^9}, - CellLabel-> - "Out[242]=",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +Cell[BoxData["0.00827324181794946`"], "Output", + CellChangeTimes->{3.9913335368758316`*^9, 3.994256398024221*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"d78227e2-df31-44ad-85eb-4179c9b76b6d"] }, Open ]], Cell[CellGroupData[{ @@ -5332,13 +5213,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[243]:=",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], + CellLabel->"In[83]:=",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], -Cell[BoxData["4.322031867849089`"], "Output", - CellChangeTimes->{3.991333536973074*^9}, - CellLabel-> - "Out[243]=",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +Cell[BoxData["9.743322582755566`"], "Output", + CellChangeTimes->{3.991333536973074*^9, 3.994256398315689*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"30bde8f4-bfcc-43d2-9a93-10df2bbc6392"] }, Open ]], Cell[CellGroupData[{ @@ -5529,13 +5408,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[244]:=",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], + CellLabel->"In[84]:=",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], -Cell[BoxData["0.011395075201487413`"], "Output", - CellChangeTimes->{3.9913335369870644`*^9}, - CellLabel-> - "Out[244]=",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +Cell[BoxData["0.053253166702161604`"], "Output", + CellChangeTimes->{3.9913335369870644`*^9, 3.994256398346233*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"50e04f1e-500f-4137-bcc9-3aedd0c5aa92"] }, Open ]], Cell[CellGroupData[{ @@ -5548,13 +5425,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[245]:=",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], + CellLabel->"In[85]:=",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], -Cell[BoxData["8.302069082299768`"], "Output", - CellChangeTimes->{3.9913335370800858`*^9}, - CellLabel-> - "Out[245]=",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +Cell[BoxData["3.840362511393386`"], "Output", + CellChangeTimes->{3.9913335370800858`*^9, 3.9942563984333982`*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"5bf56199-e475-45ce-9bb6-a18d754cb31c"] }, Open ]], Cell[CellGroupData[{ @@ -5646,13 +5521,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[246]:=",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], + CellLabel->"In[86]:=",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], -Cell[BoxData["0.7884625602161153`"], "Output", - CellChangeTimes->{3.9913335370930634`*^9}, - CellLabel-> - "Out[246]=",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +Cell[BoxData["0.050030956271665136`"], "Output", + CellChangeTimes->{3.9913335370930634`*^9, 3.994256398461225*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"a8f817ad-e34f-4fb5-aa49-b660e57c50bf"] }, Open ]], Cell[CellGroupData[{ @@ -5741,13 +5614,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[247]:=",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], + CellLabel->"In[87]:=",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], -Cell[BoxData["0.21153743978388478`"], "Output", - CellChangeTimes->{3.991333537118065*^9}, - CellLabel-> - "Out[247]=",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +Cell[BoxData["0.9499690437283349`"], "Output", + CellChangeTimes->{3.991333537118065*^9, 3.994256398487297*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"d29e1832-6acf-401c-875a-b7dbbe0e70a1"] }, Open ]], Cell[CellGroupData[{ @@ -5869,19 +5740,17 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel-> - "In[248]:=",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], + CellLabel->"In[88]:=",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], -Cell[BoxData["0.16678935135356415`"], "Output", - CellChangeTimes->{3.9913335371420746`*^9}, - CellLabel-> - "Out[248]=",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] +Cell[BoxData["0.047527859686207874`"], "Output", + CellChangeTimes->{3.9913335371420746`*^9, 3.994256398512011*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"764f3db5-edff-4112-8f64-4c8cc13d8de0"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"ba4a3eff-9e3b-\ -5e47-a896-3a959bbbf44d"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[89]:=",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], Cell[CellGroupData[{ @@ -5942,65 +5811,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849241512779*^9},ExpressionUUID->"738a48f3-b38c-f441-aec4-\ -53babaa73a14"], + CellChangeTimes->{3.991849241512779*^9}, + CellLabel->"In[90]:=",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ -\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 249, 217, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335371540604`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.9610371003521645`*^-199\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 90, 1, + 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335371540604`*^9, 3.9942563985637617`*^9}, CellLabel-> "During evaluation of \ -In[249]:=",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], +In[90]:=",ExpressionUUID->"39444c3b-e721-4a2c-9e9b-1594de15851a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ -\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ -\\\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 249, 218, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335371630745`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.5447966906115534`*^-203\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 90, 2, + 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335371540604`*^9, 3.99425639857607*^9}, CellLabel-> "During evaluation of \ -In[249]:=",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], +In[90]:=",ExpressionUUID->"a2f09cac-91aa-4940-993f-dfeca1f8152c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ -\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ -000\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 249, 219, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335371710587`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.0246767572872255`*^-208\\\", \ +RowBox[{\\\"668859810497440244092067196564426051030\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3165635789279094374400000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 90, 3, + 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335371540604`*^9, 3.994256398585095*^9}, CellLabel-> "During evaluation of \ -In[249]:=",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], +In[90]:=",ExpressionUUID->"5605eb0e-1b86-445f-885f-e94f9d59ebd9"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 249, 220, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133353717906*^9}, +during this calculation.\"", 2, 90, 4, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335371540604`*^9, 3.99425639859367*^9}, CellLabel-> "During evaluation of \ -In[249]:=",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], +In[90]:=",ExpressionUUID->"794e9ccc-5a40-4f29-8953-db51d25afb0a"], -Cell[BoxData["4.322031867849086`"], "Output", - CellChangeTimes->{3.9913335399194164`*^9}, - CellLabel-> - "Out[249]=",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +Cell[BoxData["9.743322582755562`"], "Output", + CellChangeTimes->{3.9913335399194164`*^9, 3.9942564019822817`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"2ae74ff4-fa78-4ed7-803e-7610d430e226"] }, Open ]], Cell[CellGroupData[{ @@ -6062,65 +5939,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918492463930817`*^9},ExpressionUUID->"86c33485-ed26-8f49-b3d0-\ -7d040d3b48f0"], + CellChangeTimes->{3.9918492463930817`*^9}, + CellLabel->"In[91]:=",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ -\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 250, 221, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335399544125`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.9610371003521645`*^-199\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 91, 5, + 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335399544125`*^9, 3.994256402144055*^9}, CellLabel-> "During evaluation of \ -In[250]:=",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], +In[91]:=",ExpressionUUID->"598883a6-1f32-4344-9bf0-8f13e3d6cc7d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ -\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ -\\\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 250, 222, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335399644184`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.5447966906115534`*^-203\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 91, 6, + 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335399544125`*^9, 3.994256402156308*^9}, CellLabel-> "During evaluation of \ -In[250]:=",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], +In[91]:=",ExpressionUUID->"a2914edb-a8d6-46d2-9fbc-9579fc40b6e8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ -\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ -000\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 250, 223, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333539972414*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.0246767572872255`*^-208\\\", \ +RowBox[{\\\"668859810497440244092067196564426051030\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3165635789279094374400000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 91, 7, + 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335399544125`*^9, 3.994256402167767*^9}, CellLabel-> "During evaluation of \ -In[250]:=",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], +In[91]:=",ExpressionUUID->"f0bde1a3-9fe8-424a-a918-3cafa8b7dd9a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 250, 224, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333539979416*^9}, +during this calculation.\"", 2, 91, 8, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335399544125`*^9, 3.994256402177888*^9}, CellLabel-> "During evaluation of \ -In[250]:=",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], +In[91]:=",ExpressionUUID->"81378271-23b4-4235-b945-d93051ea5cbe"], -Cell[BoxData["8.302069082299772`"], "Output", - CellChangeTimes->{3.991333542631773*^9}, - CellLabel-> - "Out[250]=",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +Cell[BoxData["3.8403625113933884`"], "Output", + CellChangeTimes->{3.991333542631773*^9, 3.994256405992216*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"8420c759-3709-4c6a-a3f3-66ba519a69b4"] }, Open ]], Cell[CellGroupData[{ @@ -6130,138 +6015,139 @@ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ - FractionBox[ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", RowBox[{ - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", - RowBox[{"Cos", "[", - FractionBox[ - RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], - RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918492535482903`*^9},ExpressionUUID->"f373fe4f-940c-0842-9236-\ -63ec36d318ad"], + CellChangeTimes->{3.9918492535482903`*^9}, + CellLabel->"In[92]:=",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX -URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf -Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 -cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF -XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o -Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF -ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w -BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk -L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg -nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 -g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 -wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d -rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V -guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h -Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI -7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 -KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju -0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ -ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j -tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v -r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN -mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln -Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 -dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO -kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw -6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ -4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb -bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 -G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV -hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm -5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm -d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 -N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw -6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs -M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h -CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc -6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r -2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I -zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc -ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW -H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 -367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL -MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX -rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY -lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm -GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap -xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ -A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht -vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF -bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV -iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R -xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj -9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA -nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh -NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 -5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D -gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB -k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq -Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN -BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq -QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L -JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl -IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf -YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix -J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot -/i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb -3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ -X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx -BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu -JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q -PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS -hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w -Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy -qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 -WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk0VesbB3CEJGQoQ34kY8jQORSS9ynHmDEyj8fZ25AQclVCt2ikaFK3 +DIUkQyIp1VVULooiUtFRx5B57OyU/F5/7LXXZz17fffzjuuZkbsIPh4enq/4 +WXrve6Or8aDtjdmlRpnLC9ocZDaeb8hklCD3+cKWJbNzNl9QZTxGx0ac9v7B +dmK9FhShv0AZN9YcWMSuiE+qF2C0oNVacxM8Gzno5EvZuqTit4gnY+ItH/bD +tn3Zv2nvETnMv04Ae/hjU8KB2g/oX3vDruXYa/tVvH+Yf0a5ncnzwtg7JxKM +Y1q+IKGCwRNi2E9/D6+ML+5Dij2hf0tidx6ROVQd8Q2Z3lo+KI09LsgYnqX1 +Iz39Z9Xy2IJnojzp3AHUWHRpSglbUeJ6477aIeRgeeKyOraD/I/CcfNR1Ntd +p0rHJnOVpXWExlGZo5CICXaSmmPKnpYJlP093G879geZjk2xxVNIsiad4YzN +8goLPX9mGkG63QdP7MlrPHn3ImbQfPOGLia2kLKO+BRtDilNbpOOw77AqrcS +X/MDWVz9yy0ZW+mWZ5Ie9weypb/lPY1ttDF1fG8thZKH+q/kYYds/tIybP4b +EdY3WtuxZ+P38wurL6B2w6GQPuzk2pWmmkJ/EG3Mee8EdhYY3QluWUS93MwH +Ijq4v4JGRnQxL1is++xsh1388jz7iDwfmLGdGL7Yk4N+CRln+EDfbTwvAjtB +a67ybsQySNEozM7EvlC+XmWCJgBBDxWyv2B/bBt9+uemALzyG/0+g600/cBL +bI0gGFR9zxXS5aASA4dMHa4gVD6JcaJjNzw8yBteKwQNPj3307Dn6tu/DJmL +QKb1+6tuehwkaScifuipCMSV0zgx2PodDBA1FgWe1qt3MrDDOPdzN+mKwcfm +c1VvsKP4WvS3iYgDQ8y03EGfg/qVy6ZSfkjAyYR+a3ITnh+yaUUrXRI0evJi +TmPz3RlYL7tPEk6PHvlfBbYSfd2u4hFJEFGuGlrA9jI/d+8NWwpC4qX2XKdx +UGtQdIxM8xo4cYyQm6VzUO+t9NMBQtJwV9VUY70BB42OFN+8bSENHua7Kx2w +hWO/tW+tw/UEd8s72IxjrgYB92WgveiDe5ghBz3K3zxXlCMHXu6vtHi2cFB+ +/3ycSawCvIx3yTtlwkHWu4/3xpQqgNzqx5H12KMNUpalAwrQIJhY8hvbIH/j +GiVPRQgzkdkXtRXPJ9OvUsBsHXxpYqv7mnLQ9AT7r6GjShCYOm6504yDpPYy +qirtlaGJ1hx2cAcHDeQLhziFKUMUW3/FM+yaz23yY6nK8O7UDmkhcw7ysfM9 +ql6nDBlO+xMuY+drx+26QlOBN1OhB2oZ+P/DtyYTZVRBIXaDkawVB7kGr9Sx +7VODFzK3elXtOAjF7aa5L6iBYLd6+V/YWik5W1hy6tCmSw43YfPcpO9IdFYH +0b/086LtOai019v93jN1iIt2EH/lgM+nW8mRtTc0YIH3IveoM+6PYd85zNQE +2TYLPgd3DrrpcvkTN1ETPlShTWXY6cw+Nv8/mvC8IbhZzAPv7+T9I4rtmpBl +7rz9LbbE4+s8LuZaIF8yTff2wvuHPq5Vq6INbTn1W476cpC88tmk05yNYEtK +vFdhcdDjU7OaP/l0wCUis+4qts+MZwe5XgeyNV5pSRIclN2gqrnDTwcu6gUe +4iM5SDn40TuqSwdCHSdEvwfj8Zb0q5HNuhAWYr7weg8HKcgrkkqe+lDnH7SR +G8NBGwtiRX4hGjQv9q1tTOEgJuvonI4DDfLT9F67puLzqpLZG+BDA7NhjYk+ +7GU3yu++jKeBKVv374Xj+LxlD7tmVtAAnPX6jU/h+zQr4LqmCh2SuttvvkrH +63vaTtdD0ABenLTS3pLFQXnRqk73WwxBSu9SSXAJB7XFoS3HCoxBUdlnEPVy +0Hq/9w6+4dtAOuBbAyHTj4jF6jKFAwA2vHsuarv2I5mRmuUyzB0wpP9AyD+7 +H8XSTT9najEgVWXlkayRfsQc+90oNWwBryt38w6bDaDSHTHLc1qtIM3mVprg +jQGUPxv2rOSCDby24BX9LDiIqO2yrxuSdsI5gzOL8YcHUQ/Psqm+QHuQ6PBZ +d/rXIIr4X+S5IyqOkFux1ezbgSFUFtpYdzHFCSb4td2LRb6jgzNyXO1QZ8g0 +X9E9m/0dzdlaur3y3wXufNKVtVbDyNg7Y3u/swsomyurfecOo3dy18Ma6K5w +hTJedbtgBK0tPPq4aMNuyNpP1zAPH0U1bC07B1E3SIcDr2h6Y0ixYzI4bswN +xLqlZFZxxxD9YkbJTbY7qHaOHiK6x9F1/hndzHoPaOj8l6FzfwJVb9f7mPLQ +E7KN00ql3CZR1pZTEr+LvaCfc2eM2T6JWj8VpNLPeIP/hQsayTun0H37a6pR +yT6gsc8roq5tCk3tdeGJYPnCKqvEDh/HaTRnqRkybu4HGU+cs0ZbplHRWDcV +s9kfGsfW8lO7Z5BHXkGQr0gA1HVdK33wfgZV3tvpv+x4APT1ntNe9JtFxvLv +fp78GQAy/Qav5z7PIhV28Me3oYHwqKp4zGL3HOKs3ON47VsgHP/Hqn7k3Rxq +S3cIstrNhOTC9dv9d/xAF+JzVu5vY8LM1cI538of6PHTxZ9BNkFwLaLA+5cs +F63ygeP0R0Fg4u12Z1MEFxkHjBelGLCg+qOw1OenXFR4ZTLGYTML6Bm3r0/+ +y0Wr26fNZIxYoDhdEs7/jIvGLbgdRVtZwBcx1qlZz8X3Cw9vyw4WbH5R9n7P +Ky4S40p4SjqzYJ9uhFVLKxdx0gxX5OxlQUppl8/CFy5Kr00IrSlkQc/FM6+l +/nDRXtpl4/giFkhVdOjMYNvdrlhhVMyCl0GbWt4ucpHw5YHbD0pZcNGVeH6G +l0Ip0U7D1VUsWPEn5OxPfgolaKruuf+cBfOHh46UraRQ2OXm8Hu9LNjGmE4+ +JkshG7EB02g2C2pSRK13ylFoQwqPKO0rC8Qfh1tJrKXQQLRhaUU/C/4Gq/Gr +8hQKdMgZuzvKgtUSt7ryFSnkIRATUT7PgsnCsJlMVQpZxayNKpEmQDjPVKtL +j0LPc1JtM2UJmP9P3Pu8PoVMW6ZV49cScNuo+KrDJgrpqzV3mysSYKkWbPGc +RiG5rkPmn9QIuD5fap5tSKERkx5pYUMCfiZ4PdywlUJn+XKfBLsQsM7lJyPV +gkLCeiJZ9rsJkGxSmlGxpNAx7/houju2kktxHXZ8lZPGohcBubab6Fwr3D/J +m3GJScDas47FHrYUojcxWS/2ERByuF54zIFCXRlqK1XOEcCoVz3u5U6hMiQa +MpRBgPbzyGtt2MfGZhtKzxNQHJrZaeFBIZpNQ6LRZQLa/0zW6HhSKJ0naNo+ +mwCWlSJ9xotClpG53fElBEhLbx5w9aOQgsKJzWZlBNi7njB9gj3bFHl+2V0C +6NqS1ar+FLqhjuzTKwkQSt0jOYW90NNTd/MRAR/Ns/YmBVKoyk6+6E0jAdu6 +/7kSzaLQ6Xk+gQtNBEw/iZR9jc0sGg70bCHg3wHRh+oEhcT5H8lzWgk4cs/V +vws7vNbj7M9OAoZN/9umG0whFa1Lcar9BJTS2Pr3Qik033W4/fsAAfHP+57/ +wW5LIfTLhwjgPovZbxtGocQ+g2HjUQICqnlNv2B/zGr3dZwhwCaix+7PHgpl +LpewOMhLQlzNYoRkBIUeT/d4xy4jYUj9jIkH9mBPcXSEAAns48zxa9imVYxc +5goS/ud7TUwlEu+3gPhfthIkZAwo6SlH4f7tLCQtpEgQNOsy8cfeukVSE60h +oc7VTPcf7HOiJW50ORIG0YfmVftw/dGXCvn1JFhk+LNHsMmCksY1KiQc13iq +oRSNvz934MsqNRJ+fbJ2c8EeIKVE+TVJiIgsDKleqktZhYzqk9C3fCIgMoZC +j/5IJQ3QSBBfI8e+it3/nX2RbUCCqPWixQtsk7qD9R1GJGTZvHkhHUshTniZ +4hMgQVp444USbDGPQ4YPdpCQ5DRs1YptbG5tV8EgQSB5xddJ7HS5rwcKrElY +p2H+n/5+CtXwl5/LsSVhy31baUfsbxOHbl2xIyHAM80mHNvo5Zr3aU4ktOXn +MW9iMyu+jhzfRcJ/v5nWT7DTrpXz/e1Kgn2L2epO7K/RNvpxHiRsb9zgxx9H +IVE/aasoLxI8QPOzHLaRzTffMB8SGK82gC522rrDp/0CSCjQFX3kgl0jbHvD +g0mC6Y+BVhb21znph7tYJPD9c7s5dimv71urHUnC1kCn0qNLeS13ByxDSHjI +7ozNwGY+OLwAYSQ08RsrZy/l37BdvTWcBBeRmPu3l/LTZLQNI0ioPHlEt2op +P56zXS+KhF5mYNoTbBFWhYdmNAmBb1e9e4G9xTExUiWWBEvmqd8tS/kmO1MV +4vD4frwRacc+oyZ7XSaehJPPPvF9wK4W76+UOEjC1M7y3k/Yfb8qmlYmkDAQ +ZZ3bu5Q/mNgnkEhCqH+hFRt787ud1GISCVJXGzuW/H9rCKn8 "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -6275,104 +6161,104 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX -URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf -Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 -cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF -XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o -Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF -ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w -BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk -L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg -nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 -g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 -wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d -rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V -guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h -Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI -7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 -KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju -0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ -ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j -tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v -r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN -mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln -Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 -dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO -kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw -6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ -4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb -bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 -G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV -hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm -5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm -d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 -N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw -6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs -M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h -CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc -6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r -2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I -zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc -ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW -H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 -367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL -MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX -rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY -lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm -GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap -xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ -A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht -vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF -bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV -iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R -xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj -9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA -nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh -NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 -5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D -gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB -k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq -Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN -BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq -QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L -JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl -IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf -YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix -J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot -/i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb -3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ -X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx -BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu -JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q -PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS -hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w -Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy -qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 -WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= +1:eJwV1Hk0VesbB3CEJGQoQ34kY8jQORSS9ynHmDEyj8fZ25AQclVCt2ikaFK3 +DIUkQyIp1VVULooiUtFRx5B57OyU/F5/7LXXZz17fffzjuuZkbsIPh4enq/4 +WXrve6Or8aDtjdmlRpnLC9ocZDaeb8hklCD3+cKWJbNzNl9QZTxGx0ac9v7B +dmK9FhShv0AZN9YcWMSuiE+qF2C0oNVacxM8Gzno5EvZuqTit4gnY+ItH/bD +tn3Zv2nvETnMv04Ae/hjU8KB2g/oX3vDruXYa/tVvH+Yf0a5ncnzwtg7JxKM +Y1q+IKGCwRNi2E9/D6+ML+5Dij2hf0tidx6ROVQd8Q2Z3lo+KI09LsgYnqX1 +Iz39Z9Xy2IJnojzp3AHUWHRpSglbUeJ6477aIeRgeeKyOraD/I/CcfNR1Ntd +p0rHJnOVpXWExlGZo5CICXaSmmPKnpYJlP093G879geZjk2xxVNIsiad4YzN +8goLPX9mGkG63QdP7MlrPHn3ImbQfPOGLia2kLKO+BRtDilNbpOOw77AqrcS +X/MDWVz9yy0ZW+mWZ5Ie9weypb/lPY1ttDF1fG8thZKH+q/kYYds/tIybP4b +EdY3WtuxZ+P38wurL6B2w6GQPuzk2pWmmkJ/EG3Mee8EdhYY3QluWUS93MwH +Ijq4v4JGRnQxL1is++xsh1388jz7iDwfmLGdGL7Yk4N+CRln+EDfbTwvAjtB +a67ybsQySNEozM7EvlC+XmWCJgBBDxWyv2B/bBt9+uemALzyG/0+g600/cBL +bI0gGFR9zxXS5aASA4dMHa4gVD6JcaJjNzw8yBteKwQNPj3307Dn6tu/DJmL +QKb1+6tuehwkaScifuipCMSV0zgx2PodDBA1FgWe1qt3MrDDOPdzN+mKwcfm +c1VvsKP4WvS3iYgDQ8y03EGfg/qVy6ZSfkjAyYR+a3ITnh+yaUUrXRI0evJi +TmPz3RlYL7tPEk6PHvlfBbYSfd2u4hFJEFGuGlrA9jI/d+8NWwpC4qX2XKdx +UGtQdIxM8xo4cYyQm6VzUO+t9NMBQtJwV9VUY70BB42OFN+8bSENHua7Kx2w +hWO/tW+tw/UEd8s72IxjrgYB92WgveiDe5ghBz3K3zxXlCMHXu6vtHi2cFB+ +/3ycSawCvIx3yTtlwkHWu4/3xpQqgNzqx5H12KMNUpalAwrQIJhY8hvbIH/j +GiVPRQgzkdkXtRXPJ9OvUsBsHXxpYqv7mnLQ9AT7r6GjShCYOm6504yDpPYy +qirtlaGJ1hx2cAcHDeQLhziFKUMUW3/FM+yaz23yY6nK8O7UDmkhcw7ysfM9 +ql6nDBlO+xMuY+drx+26QlOBN1OhB2oZ+P/DtyYTZVRBIXaDkawVB7kGr9Sx +7VODFzK3elXtOAjF7aa5L6iBYLd6+V/YWik5W1hy6tCmSw43YfPcpO9IdFYH +0b/086LtOai019v93jN1iIt2EH/lgM+nW8mRtTc0YIH3IveoM+6PYd85zNQE +2TYLPgd3DrrpcvkTN1ETPlShTWXY6cw+Nv8/mvC8IbhZzAPv7+T9I4rtmpBl +7rz9LbbE4+s8LuZaIF8yTff2wvuHPq5Vq6INbTn1W476cpC88tmk05yNYEtK +vFdhcdDjU7OaP/l0wCUis+4qts+MZwe5XgeyNV5pSRIclN2gqrnDTwcu6gUe +4iM5SDn40TuqSwdCHSdEvwfj8Zb0q5HNuhAWYr7weg8HKcgrkkqe+lDnH7SR +G8NBGwtiRX4hGjQv9q1tTOEgJuvonI4DDfLT9F67puLzqpLZG+BDA7NhjYk+ +7GU3yu++jKeBKVv374Xj+LxlD7tmVtAAnPX6jU/h+zQr4LqmCh2SuttvvkrH +63vaTtdD0ABenLTS3pLFQXnRqk73WwxBSu9SSXAJB7XFoS3HCoxBUdlnEPVy +0Hq/9w6+4dtAOuBbAyHTj4jF6jKFAwA2vHsuarv2I5mRmuUyzB0wpP9AyD+7 +H8XSTT9najEgVWXlkayRfsQc+90oNWwBryt38w6bDaDSHTHLc1qtIM3mVprg +jQGUPxv2rOSCDby24BX9LDiIqO2yrxuSdsI5gzOL8YcHUQ/Psqm+QHuQ6PBZ +d/rXIIr4X+S5IyqOkFux1ezbgSFUFtpYdzHFCSb4td2LRb6jgzNyXO1QZ8g0 +X9E9m/0dzdlaur3y3wXufNKVtVbDyNg7Y3u/swsomyurfecOo3dy18Ma6K5w +hTJedbtgBK0tPPq4aMNuyNpP1zAPH0U1bC07B1E3SIcDr2h6Y0ixYzI4bswN +xLqlZFZxxxD9YkbJTbY7qHaOHiK6x9F1/hndzHoPaOj8l6FzfwJVb9f7mPLQ +E7KN00ql3CZR1pZTEr+LvaCfc2eM2T6JWj8VpNLPeIP/hQsayTun0H37a6pR +yT6gsc8roq5tCk3tdeGJYPnCKqvEDh/HaTRnqRkybu4HGU+cs0ZbplHRWDcV +s9kfGsfW8lO7Z5BHXkGQr0gA1HVdK33wfgZV3tvpv+x4APT1ntNe9JtFxvLv +fp78GQAy/Qav5z7PIhV28Me3oYHwqKp4zGL3HOKs3ON47VsgHP/Hqn7k3Rxq +S3cIstrNhOTC9dv9d/xAF+JzVu5vY8LM1cI538of6PHTxZ9BNkFwLaLA+5cs +F63ygeP0R0Fg4u12Z1MEFxkHjBelGLCg+qOw1OenXFR4ZTLGYTML6Bm3r0/+ +y0Wr26fNZIxYoDhdEs7/jIvGLbgdRVtZwBcx1qlZz8X3Cw9vyw4WbH5R9n7P +Ky4S40p4SjqzYJ9uhFVLKxdx0gxX5OxlQUppl8/CFy5Kr00IrSlkQc/FM6+l +/nDRXtpl4/giFkhVdOjMYNvdrlhhVMyCl0GbWt4ucpHw5YHbD0pZcNGVeH6G +l0Ip0U7D1VUsWPEn5OxPfgolaKruuf+cBfOHh46UraRQ2OXm8Hu9LNjGmE4+ +JkshG7EB02g2C2pSRK13ylFoQwqPKO0rC8Qfh1tJrKXQQLRhaUU/C/4Gq/Gr +8hQKdMgZuzvKgtUSt7ryFSnkIRATUT7PgsnCsJlMVQpZxayNKpEmQDjPVKtL +j0LPc1JtM2UJmP9P3Pu8PoVMW6ZV49cScNuo+KrDJgrpqzV3mysSYKkWbPGc +RiG5rkPmn9QIuD5fap5tSKERkx5pYUMCfiZ4PdywlUJn+XKfBLsQsM7lJyPV +gkLCeiJZ9rsJkGxSmlGxpNAx7/houju2kktxHXZ8lZPGohcBubab6Fwr3D/J +m3GJScDas47FHrYUojcxWS/2ERByuF54zIFCXRlqK1XOEcCoVz3u5U6hMiQa +MpRBgPbzyGtt2MfGZhtKzxNQHJrZaeFBIZpNQ6LRZQLa/0zW6HhSKJ0naNo+ +mwCWlSJ9xotClpG53fElBEhLbx5w9aOQgsKJzWZlBNi7njB9gj3bFHl+2V0C +6NqS1ar+FLqhjuzTKwkQSt0jOYW90NNTd/MRAR/Ns/YmBVKoyk6+6E0jAdu6 +/7kSzaLQ6Xk+gQtNBEw/iZR9jc0sGg70bCHg3wHRh+oEhcT5H8lzWgk4cs/V +vws7vNbj7M9OAoZN/9umG0whFa1Lcar9BJTS2Pr3Qik033W4/fsAAfHP+57/ +wW5LIfTLhwjgPovZbxtGocQ+g2HjUQICqnlNv2B/zGr3dZwhwCaix+7PHgpl +LpewOMhLQlzNYoRkBIUeT/d4xy4jYUj9jIkH9mBPcXSEAAns48zxa9imVYxc +5goS/ud7TUwlEu+3gPhfthIkZAwo6SlH4f7tLCQtpEgQNOsy8cfeukVSE60h +oc7VTPcf7HOiJW50ORIG0YfmVftw/dGXCvn1JFhk+LNHsMmCksY1KiQc13iq +oRSNvz934MsqNRJ+fbJ2c8EeIKVE+TVJiIgsDKleqktZhYzqk9C3fCIgMoZC +j/5IJQ3QSBBfI8e+it3/nX2RbUCCqPWixQtsk7qD9R1GJGTZvHkhHUshTniZ +4hMgQVp444USbDGPQ4YPdpCQ5DRs1YptbG5tV8EgQSB5xddJ7HS5rwcKrElY +p2H+n/5+CtXwl5/LsSVhy31baUfsbxOHbl2xIyHAM80mHNvo5Zr3aU4ktOXn +MW9iMyu+jhzfRcJ/v5nWT7DTrpXz/e1Kgn2L2epO7K/RNvpxHiRsb9zgxx9H +IVE/aasoLxI8QPOzHLaRzTffMB8SGK82gC522rrDp/0CSCjQFX3kgl0jbHvD +g0mC6Y+BVhb21znph7tYJPD9c7s5dimv71urHUnC1kCn0qNLeS13ByxDSHjI +7ozNwGY+OLwAYSQ08RsrZy/l37BdvTWcBBeRmPu3l/LTZLQNI0ioPHlEt2op +P56zXS+KhF5mYNoTbBFWhYdmNAmBb1e9e4G9xTExUiWWBEvmqd8tS/kmO1MV +4vD4frwRacc+oyZ7XSaehJPPPvF9wK4W76+UOEjC1M7y3k/Yfb8qmlYmkDAQ +ZZ3bu5Q/mNgnkEhCqH+hFRt787ud1GISCVJXGzuW/H9rCKn8 "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.9887929549829119, - 1.0113097844802965`}}, + "PlotRange" -> {{0, 180}, {0.630369944670991, + 1.5290230094775594`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.9887929549829141}, + "AxesOrigin" -> {0, 0.6303699446709924}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -6384,21 +6270,20 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.9887929549829119, - 1.0113097844802965`}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.9887929549829141}, + "PlotRange" -> {{0, 180}, {0.630369944670991, 1.5290230094775594`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6303699446709924}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -6412,102 +6297,102 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX -URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf -Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 -cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF -XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o -Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF -ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w -BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk -L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg -nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 -g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 -wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d -rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V -guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h -Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI -7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 -KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju -0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ -ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j -tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v -r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN -mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln -Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 -dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO -kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw -6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ -4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb -bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 -G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV -hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm -5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm -d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 -N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw -6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs -M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h -CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc -6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r -2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I -zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc -ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW -H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 -367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL -MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX -rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY -lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm -GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap -xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ -A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht -vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF -bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV -iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R -xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj -9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA -nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh -NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 -5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D -gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB -k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq -Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN -BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq -QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L -JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl -IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf -YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix -J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot -/i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb -3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ -X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx -BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu -JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q -PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS -hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w -Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy -qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 -WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= +1:eJwV1Hk0VesbB3CEJGQoQ34kY8jQORSS9ynHmDEyj8fZ25AQclVCt2ikaFK3 +DIUkQyIp1VVULooiUtFRx5B57OyU/F5/7LXXZz17fffzjuuZkbsIPh4enq/4 +WXrve6Or8aDtjdmlRpnLC9ocZDaeb8hklCD3+cKWJbNzNl9QZTxGx0ac9v7B +dmK9FhShv0AZN9YcWMSuiE+qF2C0oNVacxM8Gzno5EvZuqTit4gnY+ItH/bD +tn3Zv2nvETnMv04Ae/hjU8KB2g/oX3vDruXYa/tVvH+Yf0a5ncnzwtg7JxKM +Y1q+IKGCwRNi2E9/D6+ML+5Dij2hf0tidx6ROVQd8Q2Z3lo+KI09LsgYnqX1 +Iz39Z9Xy2IJnojzp3AHUWHRpSglbUeJ6477aIeRgeeKyOraD/I/CcfNR1Ntd +p0rHJnOVpXWExlGZo5CICXaSmmPKnpYJlP093G879geZjk2xxVNIsiad4YzN +8goLPX9mGkG63QdP7MlrPHn3ImbQfPOGLia2kLKO+BRtDilNbpOOw77AqrcS +X/MDWVz9yy0ZW+mWZ5Ie9weypb/lPY1ttDF1fG8thZKH+q/kYYds/tIybP4b +EdY3WtuxZ+P38wurL6B2w6GQPuzk2pWmmkJ/EG3Mee8EdhYY3QluWUS93MwH +Ijq4v4JGRnQxL1is++xsh1388jz7iDwfmLGdGL7Yk4N+CRln+EDfbTwvAjtB +a67ybsQySNEozM7EvlC+XmWCJgBBDxWyv2B/bBt9+uemALzyG/0+g600/cBL +bI0gGFR9zxXS5aASA4dMHa4gVD6JcaJjNzw8yBteKwQNPj3307Dn6tu/DJmL +QKb1+6tuehwkaScifuipCMSV0zgx2PodDBA1FgWe1qt3MrDDOPdzN+mKwcfm +c1VvsKP4WvS3iYgDQ8y03EGfg/qVy6ZSfkjAyYR+a3ITnh+yaUUrXRI0evJi +TmPz3RlYL7tPEk6PHvlfBbYSfd2u4hFJEFGuGlrA9jI/d+8NWwpC4qX2XKdx +UGtQdIxM8xo4cYyQm6VzUO+t9NMBQtJwV9VUY70BB42OFN+8bSENHua7Kx2w +hWO/tW+tw/UEd8s72IxjrgYB92WgveiDe5ghBz3K3zxXlCMHXu6vtHi2cFB+ +/3ycSawCvIx3yTtlwkHWu4/3xpQqgNzqx5H12KMNUpalAwrQIJhY8hvbIH/j +GiVPRQgzkdkXtRXPJ9OvUsBsHXxpYqv7mnLQ9AT7r6GjShCYOm6504yDpPYy +qirtlaGJ1hx2cAcHDeQLhziFKUMUW3/FM+yaz23yY6nK8O7UDmkhcw7ysfM9 +ql6nDBlO+xMuY+drx+26QlOBN1OhB2oZ+P/DtyYTZVRBIXaDkawVB7kGr9Sx +7VODFzK3elXtOAjF7aa5L6iBYLd6+V/YWik5W1hy6tCmSw43YfPcpO9IdFYH +0b/086LtOai019v93jN1iIt2EH/lgM+nW8mRtTc0YIH3IveoM+6PYd85zNQE +2TYLPgd3DrrpcvkTN1ETPlShTWXY6cw+Nv8/mvC8IbhZzAPv7+T9I4rtmpBl +7rz9LbbE4+s8LuZaIF8yTff2wvuHPq5Vq6INbTn1W476cpC88tmk05yNYEtK +vFdhcdDjU7OaP/l0wCUis+4qts+MZwe5XgeyNV5pSRIclN2gqrnDTwcu6gUe +4iM5SDn40TuqSwdCHSdEvwfj8Zb0q5HNuhAWYr7weg8HKcgrkkqe+lDnH7SR +G8NBGwtiRX4hGjQv9q1tTOEgJuvonI4DDfLT9F67puLzqpLZG+BDA7NhjYk+ +7GU3yu++jKeBKVv374Xj+LxlD7tmVtAAnPX6jU/h+zQr4LqmCh2SuttvvkrH +63vaTtdD0ABenLTS3pLFQXnRqk73WwxBSu9SSXAJB7XFoS3HCoxBUdlnEPVy +0Hq/9w6+4dtAOuBbAyHTj4jF6jKFAwA2vHsuarv2I5mRmuUyzB0wpP9AyD+7 +H8XSTT9najEgVWXlkayRfsQc+90oNWwBryt38w6bDaDSHTHLc1qtIM3mVprg +jQGUPxv2rOSCDby24BX9LDiIqO2yrxuSdsI5gzOL8YcHUQ/Psqm+QHuQ6PBZ +d/rXIIr4X+S5IyqOkFux1ezbgSFUFtpYdzHFCSb4td2LRb6jgzNyXO1QZ8g0 +X9E9m/0dzdlaur3y3wXufNKVtVbDyNg7Y3u/swsomyurfecOo3dy18Ma6K5w +hTJedbtgBK0tPPq4aMNuyNpP1zAPH0U1bC07B1E3SIcDr2h6Y0ixYzI4bswN +xLqlZFZxxxD9YkbJTbY7qHaOHiK6x9F1/hndzHoPaOj8l6FzfwJVb9f7mPLQ +E7KN00ql3CZR1pZTEr+LvaCfc2eM2T6JWj8VpNLPeIP/hQsayTun0H37a6pR +yT6gsc8roq5tCk3tdeGJYPnCKqvEDh/HaTRnqRkybu4HGU+cs0ZbplHRWDcV +s9kfGsfW8lO7Z5BHXkGQr0gA1HVdK33wfgZV3tvpv+x4APT1ntNe9JtFxvLv +fp78GQAy/Qav5z7PIhV28Me3oYHwqKp4zGL3HOKs3ON47VsgHP/Hqn7k3Rxq +S3cIstrNhOTC9dv9d/xAF+JzVu5vY8LM1cI538of6PHTxZ9BNkFwLaLA+5cs +F63ygeP0R0Fg4u12Z1MEFxkHjBelGLCg+qOw1OenXFR4ZTLGYTML6Bm3r0/+ +y0Wr26fNZIxYoDhdEs7/jIvGLbgdRVtZwBcx1qlZz8X3Cw9vyw4WbH5R9n7P +Ky4S40p4SjqzYJ9uhFVLKxdx0gxX5OxlQUppl8/CFy5Kr00IrSlkQc/FM6+l +/nDRXtpl4/giFkhVdOjMYNvdrlhhVMyCl0GbWt4ucpHw5YHbD0pZcNGVeH6G +l0Ip0U7D1VUsWPEn5OxPfgolaKruuf+cBfOHh46UraRQ2OXm8Hu9LNjGmE4+ +JkshG7EB02g2C2pSRK13ylFoQwqPKO0rC8Qfh1tJrKXQQLRhaUU/C/4Gq/Gr +8hQKdMgZuzvKgtUSt7ryFSnkIRATUT7PgsnCsJlMVQpZxayNKpEmQDjPVKtL +j0LPc1JtM2UJmP9P3Pu8PoVMW6ZV49cScNuo+KrDJgrpqzV3mysSYKkWbPGc +RiG5rkPmn9QIuD5fap5tSKERkx5pYUMCfiZ4PdywlUJn+XKfBLsQsM7lJyPV +gkLCeiJZ9rsJkGxSmlGxpNAx7/houju2kktxHXZ8lZPGohcBubab6Fwr3D/J +m3GJScDas47FHrYUojcxWS/2ERByuF54zIFCXRlqK1XOEcCoVz3u5U6hMiQa +MpRBgPbzyGtt2MfGZhtKzxNQHJrZaeFBIZpNQ6LRZQLa/0zW6HhSKJ0naNo+ +mwCWlSJ9xotClpG53fElBEhLbx5w9aOQgsKJzWZlBNi7njB9gj3bFHl+2V0C +6NqS1ar+FLqhjuzTKwkQSt0jOYW90NNTd/MRAR/Ns/YmBVKoyk6+6E0jAdu6 +/7kSzaLQ6Xk+gQtNBEw/iZR9jc0sGg70bCHg3wHRh+oEhcT5H8lzWgk4cs/V +vws7vNbj7M9OAoZN/9umG0whFa1Lcar9BJTS2Pr3Qik033W4/fsAAfHP+57/ +wW5LIfTLhwjgPovZbxtGocQ+g2HjUQICqnlNv2B/zGr3dZwhwCaix+7PHgpl +LpewOMhLQlzNYoRkBIUeT/d4xy4jYUj9jIkH9mBPcXSEAAns48zxa9imVYxc +5goS/ud7TUwlEu+3gPhfthIkZAwo6SlH4f7tLCQtpEgQNOsy8cfeukVSE60h +oc7VTPcf7HOiJW50ORIG0YfmVftw/dGXCvn1JFhk+LNHsMmCksY1KiQc13iq +oRSNvz934MsqNRJ+fbJ2c8EeIKVE+TVJiIgsDKleqktZhYzqk9C3fCIgMoZC +j/5IJQ3QSBBfI8e+it3/nX2RbUCCqPWixQtsk7qD9R1GJGTZvHkhHUshTniZ +4hMgQVp444USbDGPQ4YPdpCQ5DRs1YptbG5tV8EgQSB5xddJ7HS5rwcKrElY +p2H+n/5+CtXwl5/LsSVhy31baUfsbxOHbl2xIyHAM80mHNvo5Zr3aU4ktOXn +MW9iMyu+jhzfRcJ/v5nWT7DTrpXz/e1Kgn2L2epO7K/RNvpxHiRsb9zgxx9H +IVE/aasoLxI8QPOzHLaRzTffMB8SGK82gC522rrDp/0CSCjQFX3kgl0jbHvD +g0mC6Y+BVhb21znph7tYJPD9c7s5dimv71urHUnC1kCn0qNLeS13ByxDSHjI +7ozNwGY+OLwAYSQ08RsrZy/l37BdvTWcBBeRmPu3l/LTZLQNI0ioPHlEt2op +P56zXS+KhF5mYNoTbBFWhYdmNAmBb1e9e4G9xTExUiWWBEvmqd8tS/kmO1MV +4vD4frwRacc+oyZ7XSaehJPPPvF9wK4W76+UOEjC1M7y3k/Yfb8qmlYmkDAQ +ZZ3bu5Q/mNgnkEhCqH+hFRt787ud1GISCVJXGzuW/H9rCKn8 "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.9887929549829119, 1.0113097844802965`}}, + "PlotRange" -> {{0, 180}, {0.630369944670991, 1.5290230094775594`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.9887929549829141}, + "AxesOrigin" -> {0, 0.6303699446709924}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -6517,7 +6402,8 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.9887929549829141}, + AxesOrigin->{0, 0.6303699446709924}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -6545,7 +6431,8 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.9887929549829119, 1.0113097844802965`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.630369944670991, 1.5290230094775594`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -6553,9 +6440,8 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991333813212965*^9}, - CellLabel-> - "Out[251]=",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] + CellChangeTimes->{3.991333813212965*^9, 3.994256954508506*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"24259652-53d2-40cf-88f3-d4f0393b6d75"] }, Open ]], Cell[CellGroupData[{ @@ -6618,372 +6504,180 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849261714945*^9},ExpressionUUID->"24fa5db0-1063-354a-bd60-\ -c117a27ff3e1"], + CellChangeTimes->{3.991849261714945*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.0784227471040894`*^-281\\\", \ -\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 252, 225, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333813432829*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.3948358921022544`*^-271\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 93, + 9, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333813432829*^9, 3.9942569550581703`*^9}, CellLabel-> "During evaluation of \ -In[252]:=",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], +In[93]:=",ExpressionUUID->"b8d43f60-7e3f-4c4a-bd3a-f129cf247013"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9214123648785273`*^-295\\\", \ -\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 252, - 226, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333813442087*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.0431678149444213`*^-282\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 93, 10, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333813432829*^9, 3.994256955075696*^9}, CellLabel-> "During evaluation of \ -In[252]:=",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], +In[93]:=",ExpressionUUID->"cc0f612d-b96b-4bdf-8c46-d5d3571b87b8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \ -\\\"9.614868462060315`*^-8\\\"}], \\\")\\\"}], \\\"44\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 252, - 227, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333813450123*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.9928500862800635`*^-293\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 93, 11, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333813432829*^9, 3.99425695508611*^9}, CellLabel-> "During evaluation of \ -In[252]:=",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], +In[93]:=",ExpressionUUID->"e9d830a0-1e8b-4afc-930c-7fc3c73aa171"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 252, 228, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333813469118*^9}, +during this calculation.\"", 2, 93, 12, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333813432829*^9, 3.994256955094969*^9}, CellLabel-> "During evaluation of \ -In[252]:=",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], +In[93]:=",ExpressionUUID->"51c7d1ef-5c39-483b-981d-9514b0b0f2f9"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR -X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 -PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s -UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ -x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz -61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv -t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ -EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx -Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 -owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 -9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO -hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR -7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo -RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj -aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz -mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am -pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW -o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK -CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf -6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC -/emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m -5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd -V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ -+65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 -41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR -7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c -FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K -qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq -EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J -iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB -ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 -cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj -uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee -SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU -W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo -vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb -UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz -/lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO -auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS -fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB -J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX -CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb -VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe -pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ -L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ -I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu -GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ -/Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs -j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl -/5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 -ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW -YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH -wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX -BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 -r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss -K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw -dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 -4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 -hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR -4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr -KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk -QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu -CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj -WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn -90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN -2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 -W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga -OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA -8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ -hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h -WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 -bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv -yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV -t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 -K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa -34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK -YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY -X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 -ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX -jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo -a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH -czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa -mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 -NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E -G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ -ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 -SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 -iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR -C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL -0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 -oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md -f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX -62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b -osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH -D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ -/RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp -B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ -Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc -yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc -ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr -JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo -85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq -j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo -AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw -GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi -6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y -B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck -+xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh -uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF -MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK -RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG -FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX -cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj -zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ -mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC -bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN -/WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 -9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l -NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 -8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 -CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA -sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw -FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi -CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj -s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh -OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ -cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O -fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 -8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E -1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU -WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J -XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw -vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV -GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd -KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 -nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu -cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 -yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 -VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P -OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV -HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq -Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 -t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv -pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG -iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V -YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 -fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq -6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 -hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl -t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 -6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp -wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK -rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU -0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O -0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ -H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv -DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE -LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 -NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN -cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB -/jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO -G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M -r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK -4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz -ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa -TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA -1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E -A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ -/UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO -yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY -ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ -CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G -pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 -ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz -KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q -/DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG -invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS -hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV -L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm -1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c -J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx -uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C -Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 -T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP -59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK -DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB -XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB -Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf -VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw -iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n -LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 -BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z -f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC -e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs -6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL -hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd -4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 -cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui -BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU -zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk -ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP -Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd -k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R -PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 -CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj -jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf -vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo -WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN -UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t -0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ -6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe -wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph -whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS -4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r -UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 -+j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P -ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP -O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP -KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw -bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC -ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf -jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS -cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F -3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL -Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 -gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 -/iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l -u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd -PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv -50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 -zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p -HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb -u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr -DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu -xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M -H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W -7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 -GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A -87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp -WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv -tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT -5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 -pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz -yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f -eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa -8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H -vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F -+lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m -Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 -+a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg -y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR -Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 -0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU -F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT -rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c -OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 -R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER -lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g -JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ -fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu -YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ -mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS -F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 -8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz -ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC -9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M -zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD -sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf -Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW -OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV -7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H -vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O -mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 -5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf -X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX -ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh -Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL -IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT -PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc -9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz -uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 -tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU -BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey -Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s -fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs -2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l -thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw -GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s -6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv -/7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq -N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE -43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC -gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr -t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ -MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU -0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q -UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO -2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 -Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 -rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A -b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn -7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi -qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw -18hpWOkpIP0PtXjCHw== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk4FWsYAHBxhRbZHdtZbJWlsjvOOd43W3ZCKrKHolQSRbKUUklaSSVJ +ul2FcwaXECFRWkTZWpGyZk9dcqe/5vk9z3zffDPvNgz/PS6B/Hx8fOsX8fH9 +uc58aKpXPZ1rOj/6Ud3hkaVpWxbl0PqORCjyyllTN6UCKP3Sn9JxHubrTg9f +nNKDSOd/2gU6csBQe6d2xJQ5iI/Knv/ZzgMV185NnClX+FjpuGeqvRYW/ERE +kycDwEp18P14+2vAWF2DhrH98LPd6NJYew9MeW2hNX85CnXmd3JbciahOsZj +2OPkRVD8WN7vrzUPr3/GeFuIZoHULp9/hMwFkO3NcHbYdwvO61hVOG4Sxn4n +OU7mhzvQmbGuZlxsOWrOLmUmZ+TD6dy4l/xy4th/z9jsCaMQbPV3SkiriOPi +RnPt1DWFIFzvsmmltjgmUq9Y2bMK4VivWrfdenEsFgv9dd+tEA4rN/df3CmO +EkNnVYROFEJYNuW3+gNxbDiVvld0sBA2XuNq2XlKoFFb+4MityKQvdh78sJ1 +SezUWLpn02IuUDRLjs3mSeJClKIWeykX5GuPx3kVSeLdmeT3VDEuUMdWH1hZ +J4mDOnoKHXJcULPf61vxTRIr+AMm5LS5oPfXvGGvnhTu6pDO7HLhglOETJ/u +Uynkhovss7/KBeel3z6kt0rhE0GoKbrBBZec8s65d1IYoNsyJZbLBfdX2142 +fJfCObi07PE9Lnhp3XrgIS2Nk6fKh/+r4kJo39pzib7S6Jp6TC33IxdOuNmY +vp6RxgN9PTHvaDyQL34hz79IBlfXMYLEVHlQIOn2Q2epDGbRq8NhFQ/evvYu +OkeTQXUH44nUdTxQ3RihvNFaBuNa0o5NIg9qHW4sfnVFBpufsFte+/Jg3mr6 +xXO2LOb2/7QfuMaDtLzo/HkrWXyaoIoJ2eT6xXzJ2htlcfbNKxepXB7YP16y +/kygLNpMf3yrmc+DTHM6YZ8qiw/P3vakl/PAGO3Sn32UxZj6xbtpbTzYz7zp +05RIQd97E/WRiwmwzRadskuhYGxP1QYUIUBZ6HDyi0sUnI9dd1ZwGQGv2ty5 +rX9T8LaR8O6j4gSs2btM4MMLCu5WrQq1VyTgW15U3oS8HB5rEyuW1CGgevkX +kwOqchjFFcq5okfA5QiXlz+05dCtxWqrgiEBlmbas3Moh3jvl6oEi4Cc9z02 +QsFyeHdKmvXcgoBtUo4jCoQcpnA+lxzaTIBeTEVCVqUchh922l65lYAlPatk +GA1y+FpareeXJwHlhQKg3knud+aRQ6gvATJ25WnrFuTw0sG143I7yfMnqOpb +2snjkA21peAQARbff0WH9cojzy868UE6AYesL2o8GpbH/B4R9z1XCCi4qd0l +OSOPEyWluvSrBFDcfJnlwgroMV4sEplFwHDZ4x8CaxRQwvmW6UQuARcS0yKu +HFTAsNkQO20uAY3dq1WHExTQ+szO2RweAXP6da2mpxWw74htmVQxAUFfp3X7 +riug7FHn/cOlBJjYe46vqVNA8cPz33ZVEtAjrR5Wv1wR/5rYHsprIEB2T7WS +rKwiPimISR94QoB945bnO+mKKCka9VmxiYDS6NNaK/QU8XnB4tdRzwg49XFs +cOsWRaQZMU0WXpLxMD6Vec9PEfm3KYbIthAwdU7FdiFEEb0lO6s0XxPgbeF+ +NzdWET31xlqt2wjQvVsR/D1HEfmaHF65dRAQzL9J1uyeIpY239d37CTgmudo +w8USRbR8srLOvIuAxaIMdZNGcv33G34q7wjoCj/ed2xEEacqvSqKPxKQwN7o +J2+shDp9JVfp/QRYe2dNGJkpIf+y193DpEXjh45usldCQYfWO8Vfyf3rkvLS +fJVwePH8V8MBAspsHwwtPqmEye2nVi0eJiBul1Cs6gUlbA7z/1pA2irVTdTs +uhI2NBqyXEcIaGsZXRfLVcKgmCN5qaMEjG1RiZzsVEL939H3Xo0R8G/0XiHx +PiUM16Xpu48TcORaVcaaUSX8ftzYo530sk+bK3byU1FzLud48wQBrYtu259Y +RkUZvu1ncZKATJWJ97kyVPT8dohVRHplcArfJw0qRphdTEycImA0ufPcvD4V +Oyyk6F9IF/+jrqIAVDxs+ynQfJoAs9EaS3dXKvYHBnyfIC0iJtq+34uK/126 +aWAxQ+arjueOc8FU/Pc/5upzpL0PTJ9qjqHibed0JeoPAtTSzRQHk6g4Xz1K +9/7xJx/P3hdKoyJfwOO3V0gTXe9M1TKpmMy3A1tIR8+tfmWWS8WEBlWfv2YJ +WE+N8vMtoGKttZ2+HmlhrJ+ILaPiaJzWIy/SL/zEj12tpaJTo7zQMdKXjnpL +lzdT8e9PO4XySG+7nZ/39i0VaQNhdXWklZ/MGk19ouIy/3j2e9ID3yybxIeo ++FxjZv8E6aIlFzzWTlOxNH51qMBPAqK0Pg3ZL1DxxXyEihhpU0ft2BARGpam +62dRSAvujRZNlqRhfNbjd4qkm889uXFbiYaJFcc//fEFQkqnbiUNdcba//lz +v8cbv9pPOjQcuijP+bMf40eB628WDXs3czP+PO8bZa5PwYqGXSy+6j/nKTSx +iWQ601AifRf3z3kjt10W2uxBwyUSXvvqSbOP9GZEbKehSx6T7w5pgex1GufD +aHj4eqhPEumnj2IrCg/SsOasV5oP6bTep/bPE2n4yz/mogHpzYKUD4MpNNxu +o7tbiDR1ZeAe4XQahtaMKbwh4/HFmsenfpN8n7PqOVmk74UsnDPPp+Fkg8Wi +7aRNCq4UH6mmoaq0oHMPGX+L9hfzo400fH+nUjWbtCPfXxt8XtPQtqnL14N0 +gEtYJ3yhYbTuCql6Mp/CYm4pF43S8CDl1Jn9pA/mdoTSZ2nY/0R/P420VQwj +Ll6QjkZqIyd2kfn5bEXlLeMldGyYCypfTto5171xTJSOId+/eeaT+e35/LS4 +H4WOV8u/znaT9bCXNnNrvSYdV103LJEg62WaSGv8uZaONfHO59LJ+oq21hzh +6tMx/IzTNwrppH2+hsqmdCyemlsq/p2sn7qnjfwb6Xhv1NKhnaxf2pbAkQeb +6Hi9lFBB0rnDC+L7PejYF68Ud3uIjJe0gWdvAB0fbVz0NHCQgPrgGyN1kXQc +EOJrqyT7hc0cU+JwDB3L33NmREi/SGsz1I+no3d2wx1Xsr90lovE556kIyVv +rOpdH1mfSyMkkq7RsWnMs/vxZ7K/F1kbWdXSsT9tkn+a7GfXLXo9fzfQ8fcH +RtlS0sqdsfGlz+i4QaNLnEb2P21+okn9DR0Tu93KWO1kPbspbRP6Rkch3oUf +9q0E7Jodj29czkBV12fhr56S8dwXJNMvwcCARVt6r5D9WniwK1+AwsCgM1KH +fRoJuN1d99ZUmYFeiy20Pz4m4MPDS1olhgysCquvKaohwCmJ2XHTh4EtP5+t +zyoh8+n3/d3V2xn4pXl8uSY5T4YjlQXe72RgisMmWjE5b5J3LF1DiWDgt1AT +uYpCAmrs3h9NTWZgZlTE9Wt3yf4ukbA2hsvAyiivU4XXCOA7PV2fUcrAhJ9y +pxaR8+6FQIhHaQUDA/eKjziR8zB02iVp/DEDv5o69X2+RManQ7U7uIuBQ7En +nnelkvP2RuNxNwFlFLtwh6kcT8BPTbEP2puUUfkhhSJNzuOZ6/IJeh7KOLTV +eO0ib3L+rFBTZfoo46QpW2iQnN+jk8wQi53KuF83cRGPnPc9FQEzHrHKuLJL +2U3Biaw3u39Fk28rY2ZbuuImDpk/od7QM62M/FBfGC5L1mv+vezLl1VQcI0k +1tXyoJuef8Pyqgoee7qsjFbDg+jLd7Ombqhg/IrppkNVPPg3Ie+ay10V7DWl +1KqX8UB3S3aGaKUKumYG6my/z4PVghfTjn9WwadQHx2WzgMZn5j4SC1V1Hqx +gtm8kwfjEra+7rWqOCAS9EtYmAd9Kb7u4ULq6FI6LESQ/6c236NsvhiuxKDr +/5p8pRfBcIDw/uK4VZi7kW1jPH+f/L+X5T9RuxoF5mJkbv+dDxLP1VOLvmvg +dysm8u+7C4rJhc6Ghlq45e4yzkuRO5ChyRSTDNbGloNeBSlvcuGp/HqDyXNr +cAXVaW9JVQ6YKNamrX27FrdYWB4ePp8NogI5EX6J65Cu/t4n2f06UBNo7K3q +Ovi8apgVHHcFRNS2lbo80UFb7yivnUsuwxqOXGGUly7qrPI4OSN/AcI/SNTZ +8umh9Y/GAUlOGnyfTNlkk6GHO/I0Bzglp2HD2oZMG219tJx9f2go9QQ8nGT9 +9+OFPsrA+dvca0chTEu3qyXQAAuEn5SUh8QDZ3R721YRQww/O1I28CkaLFUp +DstzDPFa3Ez7ErVIWBV/6mCtkRF669//eFQ3HCpZtwXtTYxw4dTNqiblcHD+ +UX3+DdsIG5liKxQkw+Fg2PS9b+uN0Mm/cfLj5D5o3Ob7WdSedN4bykTJPtjB +NLT19DXC4JiaSF32Prg78VlhKtkIr5+0HJ513gsagcxqtS4jdL+5szhDfzec +VXb8dfSdET5n88+yFHfD1Ed/g54PRii6q+jCmMBueOiRkp/Va4TzlNT7Z1p3 +gYvzx3TZESOUz7gScHn/LjjEStorwmeMLFmrW52lodAo3sIYUTNGzyNCVv02 +IRD4cMex4n3GqCiyxUA2OxhGdw9GWUYYo99HVpj0qWA4qLQr9G2kMfJeXHFX +iwiGU4f3uMzGGKPZUhmRaOtgKDKJpLOPG+PZT6urpseDYK70aGVdpjHGpMYW +alkHwfnCrKnXdcZ46S19zm5RIFRnt20fl2biguLrkz9u+cMne4ZPJIWJQuNq +//ic9we+n7u3/ifPxHxZMYu38f5gtlHIUZDOxKUvzR+OevlDwyITIzkNJnJf +ONY8o/hDs/8NkfWmTLR/bnxX+5wfdKmGFKQFMZFIHnJxSvGFqb8Xfqz9l4lT +2ZptEm5e0O9ulX2ynImO25v9ophe0PHXGeveCiZecHXSHKd6QYWv/JXLNUyc +ZTJNVAe3QSLFwGS+iYn14ndqjydsA7HkkMNP3zExa9WlEJ1iT9AKfsMXyG+C +GgeaHlWt8oAAtXyRTAcTzFaWMW222wzRj71D1J1N8F7cFN1MfzOkBUo847mY +YIjuDbnnipuh8vahlGebTbD4q+Zy5VF3kFK3XjHvZ4LpJVUWDefcoUH9i5Rv +pAlOhwc5Dr7bBBqraHT1Gya44/w6e4NENxjXuGDIGzNBc6XoyMuCLtDRjJaS +kyYoHHchizK1EWrCRl0jpk1wUNJs7G7PRkjl2ewz/GWCSSnlvT+rN4KGCd+9 +BwIs9F7T3+oQsxH8bXYz6mRYaKe1RL9yyhnagjcsa2Oz8JdHqcyLPicoy/3v +83QyC5WWMjxcte3B0Dzih+1pFopTDKxbxO2h5PPwsuwzLPx3T/zW4Bk74FE/ +GNmeZ6FaZt+17mo7uJdRcybrKgunpx3ye1ztIDslibmhgIUrVfq0PONt4WTE +inMZrSyMF/OhRQ9ag7Bkct7IGxa2PSma7GyxhuNcvkqzDhb2fksvcyq3hmOj +4/3D71hoti/l1eFkaziyo429vp+FK47I+nevtIbwbVe+Dcyy0KTk6IGrIRvA +w0IFWVQ2Okyq1hQvWMJ8m7BoHZ2NwmWnf7V9tYTswNFuWxU2mv3zPnvZK0vo +P14e5bGKjWnefp8fZVtCeJNT4SFdNgZGlgiamVvCKcfD1DIrNkpa++adSLGA +B1vezOnvIdc7RnvdXGsOXgMPnlbuY6OO6Tr/k/LmwBednWERwUbXZMfdxwXN +wepqqL7bITYenEpyqO42g9fvF+3af5SNJRO/jTROmsGg/5pubjob4yvVxtq+ +rgeF3SfK19Swccqrwoe/GCF1IcjgdC0bez6HxeXlIPCft+J+rWfjyH+XBD3P +IQyWCt7NbmLjy79fi06HITzgO5Yh0cpG87+kM4c0EDwuxkfNfGHjjdyi4vt2 +ABkVhwweLuUgQ1J45UVHDixz3MqVF+WgX1LArdq1HIj/ZKwdJcZBzedJf4uK +c2CH4KzqOmkO2htZDvxuZYORU6RUDpWDKXIpZziebHjbEz6ZpMPBvpBfn5T2 +sEB6yS6uw2YO6kQf1K/NZ0KueWz02FYOPjVa6rjhDBN0Y1PNL2zjoC3NKmok +jAmOY0VvOvw46NCRf+iaLhOOv53+GbCLg3esTz9NqDCG2Zw4s+gEDn72UnBx +bDWCLtaF1rx8Dt4f0q6RkzeEHQdyr9kUcFCrfgM9acEAZgpKAoeLOLjuutWT +5V8MQEK544dOKQfPXDOOiiwyADthJcWqGg7miyxgjrUBVLblbW99w8E3Rdmd +tkf0wVa0TDuyg4NdSm+DYgP1oWND0wylm4PVgrnRz+z1YerBULL3Jw6++0Vr +KlfQB+2b6+4PDHKwTFp32bsHelDZtT4yZYSDRQdVO77m6IGtlCusHeNg04CG +q+hpPQg6caAlYpqDNcbew/946sFUzfFM2VnyeymWvaFb6EHir/SAB784WD4X +9xdXSw/E9O9qec1z8AD/MW9PaT3I2v1gemGBg0FH/m6i/daF/wEGZRow "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -6997,331 +6691,136 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR -X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 -PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s -UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ -x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz -61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv -t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ -EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx -Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 -owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 -9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO -hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR -7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo -RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj -aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz -mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am -pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW -o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK -CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf -6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC -/emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m -5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd -V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ -+65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 -41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR -7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c -FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K -qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq -EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J -iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB -ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 -cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj -uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee -SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU -W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo -vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb -UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz -/lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO -auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS -fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB -J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX -CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb -VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe -pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ -L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ -I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu -GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ -/Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs -j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl -/5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 -ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW -YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH -wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX -BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 -r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss -K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw -dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 -4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 -hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR -4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr -KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk -QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu -CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj -WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn -90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN -2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 -W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga -OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA -8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ -hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h -WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 -bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv -yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV -t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 -K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa -34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK -YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY -X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 -ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX -jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo -a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH -czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa -mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 -NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E -G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ -ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 -SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 -iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR -C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL -0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 -oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md -f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX -62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b -osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH -D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ -/RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp -B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ -Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc -yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc -ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr -JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo -85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq -j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo -AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw -GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi -6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y -B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck -+xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh -uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF -MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK -RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG -FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX -cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj -zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ -mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC -bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN -/WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 -9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l -NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 -8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 -CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA -sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw -FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi -CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj -s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh -OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ -cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O -fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 -8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E -1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU -WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J -XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw -vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV -GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd -KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 -nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu -cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 -yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 -VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P -OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV -HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq -Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 -t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv -pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG -iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V -YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 -fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq -6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 -hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl -t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 -6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp -wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK -rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU -0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O -0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ -H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv -DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE -LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 -NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN -cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB -/jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO -G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M -r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK -4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz -ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa -TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA -1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E -A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ -/UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO -yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY -ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ -CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G -pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 -ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz -KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q -/DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG -invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS -hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV -L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm -1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c -J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx -uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C -Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 -T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP -59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK -DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB -XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB -Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf -VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw -iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n -LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 -BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z -f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC -e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs -6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL -hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd -4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 -cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui -BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU -zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk -ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP -Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd -k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R -PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 -CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj -jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf -vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo -WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN -UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t -0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ -6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe -wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph -whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS -4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r -UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 -+j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P -ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP -O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP -KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw -bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC -ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf -jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS -cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F -3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL -Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 -gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 -/iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l -u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd -PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv -50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 -zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p -HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb -u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr -DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu -xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M -H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W -7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 -GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A -87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp -WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv -tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT -5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 -pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz -yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f -eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa -8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H -vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F -+lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m -Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 -+a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg -y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR -Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 -0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU -F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT -rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c -OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 -R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER -lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g -JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ -fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu -YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ -mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS -F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 -8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz -ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC -9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M -zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD -sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf -Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW -OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV -7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H -vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O -mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 -5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf -X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX -ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh -Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL -IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT -PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc -9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz -uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 -tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU -BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey -Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s -fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs -2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l -thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw -GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s -6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv -/7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq -N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE -43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC -gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr -t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ -MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU -0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q -UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO -2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 -Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 -rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A -b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn -7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi -qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw -18hpWOkpIP0PtXjCHw== +1:eJwV1nk4FWsYAHBxhRbZHdtZbJWlsjvOOd43W3ZCKrKHolQSRbKUUklaSSVJ +ul2FcwaXECFRWkTZWpGyZk9dcqe/5vk9z3zffDPvNgz/PS6B/Hx8fOsX8fH9 +uc58aKpXPZ1rOj/6Ud3hkaVpWxbl0PqORCjyyllTN6UCKP3Sn9JxHubrTg9f +nNKDSOd/2gU6csBQe6d2xJQ5iI/Knv/ZzgMV185NnClX+FjpuGeqvRYW/ERE +kycDwEp18P14+2vAWF2DhrH98LPd6NJYew9MeW2hNX85CnXmd3JbciahOsZj +2OPkRVD8WN7vrzUPr3/GeFuIZoHULp9/hMwFkO3NcHbYdwvO61hVOG4Sxn4n +OU7mhzvQmbGuZlxsOWrOLmUmZ+TD6dy4l/xy4th/z9jsCaMQbPV3SkiriOPi +RnPt1DWFIFzvsmmltjgmUq9Y2bMK4VivWrfdenEsFgv9dd+tEA4rN/df3CmO +EkNnVYROFEJYNuW3+gNxbDiVvld0sBA2XuNq2XlKoFFb+4MityKQvdh78sJ1 +SezUWLpn02IuUDRLjs3mSeJClKIWeykX5GuPx3kVSeLdmeT3VDEuUMdWH1hZ +J4mDOnoKHXJcULPf61vxTRIr+AMm5LS5oPfXvGGvnhTu6pDO7HLhglOETJ/u +Uynkhovss7/KBeel3z6kt0rhE0GoKbrBBZec8s65d1IYoNsyJZbLBfdX2142 +fJfCObi07PE9Lnhp3XrgIS2Nk6fKh/+r4kJo39pzib7S6Jp6TC33IxdOuNmY +vp6RxgN9PTHvaDyQL34hz79IBlfXMYLEVHlQIOn2Q2epDGbRq8NhFQ/evvYu +OkeTQXUH44nUdTxQ3RihvNFaBuNa0o5NIg9qHW4sfnVFBpufsFte+/Jg3mr6 +xXO2LOb2/7QfuMaDtLzo/HkrWXyaoIoJ2eT6xXzJ2htlcfbNKxepXB7YP16y +/kygLNpMf3yrmc+DTHM6YZ8qiw/P3vakl/PAGO3Sn32UxZj6xbtpbTzYz7zp +05RIQd97E/WRiwmwzRadskuhYGxP1QYUIUBZ6HDyi0sUnI9dd1ZwGQGv2ty5 +rX9T8LaR8O6j4gSs2btM4MMLCu5WrQq1VyTgW15U3oS8HB5rEyuW1CGgevkX +kwOqchjFFcq5okfA5QiXlz+05dCtxWqrgiEBlmbas3Moh3jvl6oEi4Cc9z02 +QsFyeHdKmvXcgoBtUo4jCoQcpnA+lxzaTIBeTEVCVqUchh922l65lYAlPatk +GA1y+FpareeXJwHlhQKg3knud+aRQ6gvATJ25WnrFuTw0sG143I7yfMnqOpb +2snjkA21peAQARbff0WH9cojzy868UE6AYesL2o8GpbH/B4R9z1XCCi4qd0l +OSOPEyWluvSrBFDcfJnlwgroMV4sEplFwHDZ4x8CaxRQwvmW6UQuARcS0yKu +HFTAsNkQO20uAY3dq1WHExTQ+szO2RweAXP6da2mpxWw74htmVQxAUFfp3X7 +riug7FHn/cOlBJjYe46vqVNA8cPz33ZVEtAjrR5Wv1wR/5rYHsprIEB2T7WS +rKwiPimISR94QoB945bnO+mKKCka9VmxiYDS6NNaK/QU8XnB4tdRzwg49XFs +cOsWRaQZMU0WXpLxMD6Vec9PEfm3KYbIthAwdU7FdiFEEb0lO6s0XxPgbeF+ +NzdWET31xlqt2wjQvVsR/D1HEfmaHF65dRAQzL9J1uyeIpY239d37CTgmudo +w8USRbR8srLOvIuAxaIMdZNGcv33G34q7wjoCj/ed2xEEacqvSqKPxKQwN7o +J2+shDp9JVfp/QRYe2dNGJkpIf+y193DpEXjh45usldCQYfWO8Vfyf3rkvLS +fJVwePH8V8MBAspsHwwtPqmEye2nVi0eJiBul1Cs6gUlbA7z/1pA2irVTdTs +uhI2NBqyXEcIaGsZXRfLVcKgmCN5qaMEjG1RiZzsVEL939H3Xo0R8G/0XiHx +PiUM16Xpu48TcORaVcaaUSX8ftzYo530sk+bK3byU1FzLud48wQBrYtu259Y +RkUZvu1ncZKATJWJ97kyVPT8dohVRHplcArfJw0qRphdTEycImA0ufPcvD4V +Oyyk6F9IF/+jrqIAVDxs+ynQfJoAs9EaS3dXKvYHBnyfIC0iJtq+34uK/126 +aWAxQ+arjueOc8FU/Pc/5upzpL0PTJ9qjqHibed0JeoPAtTSzRQHk6g4Xz1K +9/7xJx/P3hdKoyJfwOO3V0gTXe9M1TKpmMy3A1tIR8+tfmWWS8WEBlWfv2YJ +WE+N8vMtoGKttZ2+HmlhrJ+ILaPiaJzWIy/SL/zEj12tpaJTo7zQMdKXjnpL +lzdT8e9PO4XySG+7nZ/39i0VaQNhdXWklZ/MGk19ouIy/3j2e9ID3yybxIeo ++FxjZv8E6aIlFzzWTlOxNH51qMBPAqK0Pg3ZL1DxxXyEihhpU0ft2BARGpam +62dRSAvujRZNlqRhfNbjd4qkm889uXFbiYaJFcc//fEFQkqnbiUNdcba//lz +v8cbv9pPOjQcuijP+bMf40eB628WDXs3czP+PO8bZa5PwYqGXSy+6j/nKTSx +iWQ601AifRf3z3kjt10W2uxBwyUSXvvqSbOP9GZEbKehSx6T7w5pgex1GufD +aHj4eqhPEumnj2IrCg/SsOasV5oP6bTep/bPE2n4yz/mogHpzYKUD4MpNNxu +o7tbiDR1ZeAe4XQahtaMKbwh4/HFmsenfpN8n7PqOVmk74UsnDPPp+Fkg8Wi +7aRNCq4UH6mmoaq0oHMPGX+L9hfzo400fH+nUjWbtCPfXxt8XtPQtqnL14N0 +gEtYJ3yhYbTuCql6Mp/CYm4pF43S8CDl1Jn9pA/mdoTSZ2nY/0R/P420VQwj +Ll6QjkZqIyd2kfn5bEXlLeMldGyYCypfTto5171xTJSOId+/eeaT+e35/LS4 +H4WOV8u/znaT9bCXNnNrvSYdV103LJEg62WaSGv8uZaONfHO59LJ+oq21hzh +6tMx/IzTNwrppH2+hsqmdCyemlsq/p2sn7qnjfwb6Xhv1NKhnaxf2pbAkQeb +6Hi9lFBB0rnDC+L7PejYF68Ud3uIjJe0gWdvAB0fbVz0NHCQgPrgGyN1kXQc +EOJrqyT7hc0cU+JwDB3L33NmREi/SGsz1I+no3d2wx1Xsr90lovE556kIyVv +rOpdH1mfSyMkkq7RsWnMs/vxZ7K/F1kbWdXSsT9tkn+a7GfXLXo9fzfQ8fcH +RtlS0sqdsfGlz+i4QaNLnEb2P21+okn9DR0Tu93KWO1kPbspbRP6Rkch3oUf +9q0E7Jodj29czkBV12fhr56S8dwXJNMvwcCARVt6r5D9WniwK1+AwsCgM1KH +fRoJuN1d99ZUmYFeiy20Pz4m4MPDS1olhgysCquvKaohwCmJ2XHTh4EtP5+t +zyoh8+n3/d3V2xn4pXl8uSY5T4YjlQXe72RgisMmWjE5b5J3LF1DiWDgt1AT +uYpCAmrs3h9NTWZgZlTE9Wt3yf4ukbA2hsvAyiivU4XXCOA7PV2fUcrAhJ9y +pxaR8+6FQIhHaQUDA/eKjziR8zB02iVp/DEDv5o69X2+RManQ7U7uIuBQ7En +nnelkvP2RuNxNwFlFLtwh6kcT8BPTbEP2puUUfkhhSJNzuOZ6/IJeh7KOLTV +eO0ib3L+rFBTZfoo46QpW2iQnN+jk8wQi53KuF83cRGPnPc9FQEzHrHKuLJL +2U3Biaw3u39Fk28rY2ZbuuImDpk/od7QM62M/FBfGC5L1mv+vezLl1VQcI0k +1tXyoJuef8Pyqgoee7qsjFbDg+jLd7Ombqhg/IrppkNVPPg3Ie+ay10V7DWl +1KqX8UB3S3aGaKUKumYG6my/z4PVghfTjn9WwadQHx2WzgMZn5j4SC1V1Hqx +gtm8kwfjEra+7rWqOCAS9EtYmAd9Kb7u4ULq6FI6LESQ/6c236NsvhiuxKDr +/5p8pRfBcIDw/uK4VZi7kW1jPH+f/L+X5T9RuxoF5mJkbv+dDxLP1VOLvmvg +dysm8u+7C4rJhc6Ghlq45e4yzkuRO5ChyRSTDNbGloNeBSlvcuGp/HqDyXNr +cAXVaW9JVQ6YKNamrX27FrdYWB4ePp8NogI5EX6J65Cu/t4n2f06UBNo7K3q +Ovi8apgVHHcFRNS2lbo80UFb7yivnUsuwxqOXGGUly7qrPI4OSN/AcI/SNTZ +8umh9Y/GAUlOGnyfTNlkk6GHO/I0Bzglp2HD2oZMG219tJx9f2go9QQ8nGT9 +9+OFPsrA+dvca0chTEu3qyXQAAuEn5SUh8QDZ3R721YRQww/O1I28CkaLFUp +DstzDPFa3Ez7ErVIWBV/6mCtkRF669//eFQ3HCpZtwXtTYxw4dTNqiblcHD+ +UX3+DdsIG5liKxQkw+Fg2PS9b+uN0Mm/cfLj5D5o3Ob7WdSedN4bykTJPtjB +NLT19DXC4JiaSF32Prg78VlhKtkIr5+0HJ513gsagcxqtS4jdL+5szhDfzec +VXb8dfSdET5n88+yFHfD1Ed/g54PRii6q+jCmMBueOiRkp/Va4TzlNT7Z1p3 +gYvzx3TZESOUz7gScHn/LjjEStorwmeMLFmrW52lodAo3sIYUTNGzyNCVv02 +IRD4cMex4n3GqCiyxUA2OxhGdw9GWUYYo99HVpj0qWA4qLQr9G2kMfJeXHFX +iwiGU4f3uMzGGKPZUhmRaOtgKDKJpLOPG+PZT6urpseDYK70aGVdpjHGpMYW +alkHwfnCrKnXdcZ46S19zm5RIFRnt20fl2biguLrkz9u+cMne4ZPJIWJQuNq +//ic9we+n7u3/ifPxHxZMYu38f5gtlHIUZDOxKUvzR+OevlDwyITIzkNJnJf +ONY8o/hDs/8NkfWmTLR/bnxX+5wfdKmGFKQFMZFIHnJxSvGFqb8Xfqz9l4lT +2ZptEm5e0O9ulX2ynImO25v9ophe0PHXGeveCiZecHXSHKd6QYWv/JXLNUyc +ZTJNVAe3QSLFwGS+iYn14ndqjydsA7HkkMNP3zExa9WlEJ1iT9AKfsMXyG+C +GgeaHlWt8oAAtXyRTAcTzFaWMW222wzRj71D1J1N8F7cFN1MfzOkBUo847mY +YIjuDbnnipuh8vahlGebTbD4q+Zy5VF3kFK3XjHvZ4LpJVUWDefcoUH9i5Rv +pAlOhwc5Dr7bBBqraHT1Gya44/w6e4NENxjXuGDIGzNBc6XoyMuCLtDRjJaS +kyYoHHchizK1EWrCRl0jpk1wUNJs7G7PRkjl2ewz/GWCSSnlvT+rN4KGCd+9 +BwIs9F7T3+oQsxH8bXYz6mRYaKe1RL9yyhnagjcsa2Oz8JdHqcyLPicoy/3v +83QyC5WWMjxcte3B0Dzih+1pFopTDKxbxO2h5PPwsuwzLPx3T/zW4Bk74FE/ +GNmeZ6FaZt+17mo7uJdRcybrKgunpx3ye1ztIDslibmhgIUrVfq0PONt4WTE +inMZrSyMF/OhRQ9ag7Bkct7IGxa2PSma7GyxhuNcvkqzDhb2fksvcyq3hmOj +4/3D71hoti/l1eFkaziyo429vp+FK47I+nevtIbwbVe+Dcyy0KTk6IGrIRvA +w0IFWVQ2Okyq1hQvWMJ8m7BoHZ2NwmWnf7V9tYTswNFuWxU2mv3zPnvZK0vo +P14e5bGKjWnefp8fZVtCeJNT4SFdNgZGlgiamVvCKcfD1DIrNkpa++adSLGA +B1vezOnvIdc7RnvdXGsOXgMPnlbuY6OO6Tr/k/LmwBednWERwUbXZMfdxwXN +wepqqL7bITYenEpyqO42g9fvF+3af5SNJRO/jTROmsGg/5pubjob4yvVxtq+ +rgeF3SfK19Swccqrwoe/GCF1IcjgdC0bez6HxeXlIPCft+J+rWfjyH+XBD3P +IQyWCt7NbmLjy79fi06HITzgO5Yh0cpG87+kM4c0EDwuxkfNfGHjjdyi4vt2 +ABkVhwweLuUgQ1J45UVHDixz3MqVF+WgX1LArdq1HIj/ZKwdJcZBzedJf4uK +c2CH4KzqOmkO2htZDvxuZYORU6RUDpWDKXIpZziebHjbEz6ZpMPBvpBfn5T2 +sEB6yS6uw2YO6kQf1K/NZ0KueWz02FYOPjVa6rjhDBN0Y1PNL2zjoC3NKmok +jAmOY0VvOvw46NCRf+iaLhOOv53+GbCLg3esTz9NqDCG2Zw4s+gEDn72UnBx +bDWCLtaF1rx8Dt4f0q6RkzeEHQdyr9kUcFCrfgM9acEAZgpKAoeLOLjuutWT +5V8MQEK544dOKQfPXDOOiiwyADthJcWqGg7miyxgjrUBVLblbW99w8E3Rdmd +tkf0wVa0TDuyg4NdSm+DYgP1oWND0wylm4PVgrnRz+z1YerBULL3Jw6++0Vr +KlfQB+2b6+4PDHKwTFp32bsHelDZtT4yZYSDRQdVO77m6IGtlCusHeNg04CG +q+hpPQg6caAlYpqDNcbew/946sFUzfFM2VnyeymWvaFb6EHir/SAB784WD4X +9xdXSw/E9O9qec1z8AD/MW9PaT3I2v1gemGBg0FH/m6i/daF/wEGZRow "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "PlotRange" -> {{0, 30}, {0., 0.07801990968321884}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7333,19 +6832,19 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "PlotRange" -> {{0, 30}, {0., 0.07801990968321884}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7359,330 +6858,135 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR -X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 -PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s -UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ -x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz -61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv -t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ -EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx -Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 -owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 -9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO -hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR -7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo -RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj -aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz -mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am -pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW -o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK -CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf -6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC -/emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m -5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd -V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ -+65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 -41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR -7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c -FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K -qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq -EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J -iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB -ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 -cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj -uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee -SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU -W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo -vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb -UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz -/lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO -auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS -fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB -J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX -CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb -VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe -pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ -L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ -I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu -GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ -/Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs -j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl -/5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 -ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW -YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH -wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX -BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 -r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss -K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw -dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 -4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 -hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR -4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr -KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk -QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu -CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj -WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn -90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN -2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 -W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga -OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA -8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ -hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h -WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 -bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv -yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV -t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 -K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa -34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK -YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY -X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 -ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX -jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo -a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH -czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa -mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 -NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E -G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ -ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 -SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 -iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR -C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL -0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 -oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md -f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX -62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b -osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH -D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ -/RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp -B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ -Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc -yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc -ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr -JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo -85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq -j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo -AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw -GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi -6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y -B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck -+xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh -uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF -MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK -RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG -FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX -cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj -zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ -mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC -bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN -/WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 -9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l -NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 -8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 -CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA -sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw -FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi -CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj -s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh -OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ -cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O -fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 -8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E -1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU -WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J -XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw -vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV -GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd -KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 -nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu -cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 -yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 -VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P -OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV -HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq -Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 -t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv -pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG -iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V -YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 -fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq -6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 -hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl -t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 -6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp -wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK -rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU -0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O -0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ -H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv -DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE -LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 -NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN -cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB -/jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO -G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M -r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK -4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz -ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa -TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA -1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E -A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ -/UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO -yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY -ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ -CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G -pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 -ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz -KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q -/DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG -invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS -hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV -L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm -1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c -J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx -uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C -Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 -T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP -59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK -DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB -XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB -Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf -VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw -iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n -LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 -BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z -f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC -e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs -6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL -hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd -4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 -cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui -BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU -zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk -ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP -Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd -k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R -PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 -CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj -jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf -vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo -WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN -UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t -0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ -6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe -wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph -whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS -4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r -UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 -+j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P -ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP -O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP -KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw -bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC -ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf -jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS -cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F -3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL -Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 -gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 -/iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l -u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd -PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv -50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 -zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p -HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb -u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr -DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu -xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M -H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W -7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 -GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A -87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp -WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv -tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT -5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 -pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz -yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f -eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa -8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H -vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F -+lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m -Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 -+a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg -y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR -Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 -0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU -F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT -rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c -OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 -R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER -lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g -JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ -fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu -YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ -mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS -F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 -8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz -ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC -9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M -zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD -sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf -Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW -OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV -7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H -vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O -mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 -5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf -X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX -ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh -Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL -IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT -PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc -9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz -uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 -tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU -BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey -Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s -fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs -2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l -thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw -GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s -6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv -/7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq -N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE -43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC -gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr -t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ -MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU -0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q -UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO -2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 -Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 -rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A -b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn -7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi -qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw -18hpWOkpIP0PtXjCHw== +1:eJwV1nk4FWsYAHBxhRbZHdtZbJWlsjvOOd43W3ZCKrKHolQSRbKUUklaSSVJ +ul2FcwaXECFRWkTZWpGyZk9dcqe/5vk9z3zffDPvNgz/PS6B/Hx8fOsX8fH9 +uc58aKpXPZ1rOj/6Ud3hkaVpWxbl0PqORCjyyllTN6UCKP3Sn9JxHubrTg9f +nNKDSOd/2gU6csBQe6d2xJQ5iI/Knv/ZzgMV185NnClX+FjpuGeqvRYW/ERE +kycDwEp18P14+2vAWF2DhrH98LPd6NJYew9MeW2hNX85CnXmd3JbciahOsZj +2OPkRVD8WN7vrzUPr3/GeFuIZoHULp9/hMwFkO3NcHbYdwvO61hVOG4Sxn4n +OU7mhzvQmbGuZlxsOWrOLmUmZ+TD6dy4l/xy4th/z9jsCaMQbPV3SkiriOPi +RnPt1DWFIFzvsmmltjgmUq9Y2bMK4VivWrfdenEsFgv9dd+tEA4rN/df3CmO +EkNnVYROFEJYNuW3+gNxbDiVvld0sBA2XuNq2XlKoFFb+4MityKQvdh78sJ1 +SezUWLpn02IuUDRLjs3mSeJClKIWeykX5GuPx3kVSeLdmeT3VDEuUMdWH1hZ +J4mDOnoKHXJcULPf61vxTRIr+AMm5LS5oPfXvGGvnhTu6pDO7HLhglOETJ/u +Uynkhovss7/KBeel3z6kt0rhE0GoKbrBBZec8s65d1IYoNsyJZbLBfdX2142 +fJfCObi07PE9Lnhp3XrgIS2Nk6fKh/+r4kJo39pzib7S6Jp6TC33IxdOuNmY +vp6RxgN9PTHvaDyQL34hz79IBlfXMYLEVHlQIOn2Q2epDGbRq8NhFQ/evvYu +OkeTQXUH44nUdTxQ3RihvNFaBuNa0o5NIg9qHW4sfnVFBpufsFte+/Jg3mr6 +xXO2LOb2/7QfuMaDtLzo/HkrWXyaoIoJ2eT6xXzJ2htlcfbNKxepXB7YP16y +/kygLNpMf3yrmc+DTHM6YZ8qiw/P3vakl/PAGO3Sn32UxZj6xbtpbTzYz7zp +05RIQd97E/WRiwmwzRadskuhYGxP1QYUIUBZ6HDyi0sUnI9dd1ZwGQGv2ty5 +rX9T8LaR8O6j4gSs2btM4MMLCu5WrQq1VyTgW15U3oS8HB5rEyuW1CGgevkX +kwOqchjFFcq5okfA5QiXlz+05dCtxWqrgiEBlmbas3Moh3jvl6oEi4Cc9z02 +QsFyeHdKmvXcgoBtUo4jCoQcpnA+lxzaTIBeTEVCVqUchh922l65lYAlPatk +GA1y+FpareeXJwHlhQKg3knud+aRQ6gvATJ25WnrFuTw0sG143I7yfMnqOpb +2snjkA21peAQARbff0WH9cojzy868UE6AYesL2o8GpbH/B4R9z1XCCi4qd0l +OSOPEyWluvSrBFDcfJnlwgroMV4sEplFwHDZ4x8CaxRQwvmW6UQuARcS0yKu +HFTAsNkQO20uAY3dq1WHExTQ+szO2RweAXP6da2mpxWw74htmVQxAUFfp3X7 +riug7FHn/cOlBJjYe46vqVNA8cPz33ZVEtAjrR5Wv1wR/5rYHsprIEB2T7WS +rKwiPimISR94QoB945bnO+mKKCka9VmxiYDS6NNaK/QU8XnB4tdRzwg49XFs +cOsWRaQZMU0WXpLxMD6Vec9PEfm3KYbIthAwdU7FdiFEEb0lO6s0XxPgbeF+ +NzdWET31xlqt2wjQvVsR/D1HEfmaHF65dRAQzL9J1uyeIpY239d37CTgmudo +w8USRbR8srLOvIuAxaIMdZNGcv33G34q7wjoCj/ed2xEEacqvSqKPxKQwN7o +J2+shDp9JVfp/QRYe2dNGJkpIf+y193DpEXjh45usldCQYfWO8Vfyf3rkvLS +fJVwePH8V8MBAspsHwwtPqmEye2nVi0eJiBul1Cs6gUlbA7z/1pA2irVTdTs +uhI2NBqyXEcIaGsZXRfLVcKgmCN5qaMEjG1RiZzsVEL939H3Xo0R8G/0XiHx +PiUM16Xpu48TcORaVcaaUSX8ftzYo530sk+bK3byU1FzLud48wQBrYtu259Y +RkUZvu1ncZKATJWJ97kyVPT8dohVRHplcArfJw0qRphdTEycImA0ufPcvD4V +Oyyk6F9IF/+jrqIAVDxs+ynQfJoAs9EaS3dXKvYHBnyfIC0iJtq+34uK/126 +aWAxQ+arjueOc8FU/Pc/5upzpL0PTJ9qjqHibed0JeoPAtTSzRQHk6g4Xz1K +9/7xJx/P3hdKoyJfwOO3V0gTXe9M1TKpmMy3A1tIR8+tfmWWS8WEBlWfv2YJ +WE+N8vMtoGKttZ2+HmlhrJ+ILaPiaJzWIy/SL/zEj12tpaJTo7zQMdKXjnpL +lzdT8e9PO4XySG+7nZ/39i0VaQNhdXWklZ/MGk19ouIy/3j2e9ID3yybxIeo ++FxjZv8E6aIlFzzWTlOxNH51qMBPAqK0Pg3ZL1DxxXyEihhpU0ft2BARGpam +62dRSAvujRZNlqRhfNbjd4qkm889uXFbiYaJFcc//fEFQkqnbiUNdcba//lz +v8cbv9pPOjQcuijP+bMf40eB628WDXs3czP+PO8bZa5PwYqGXSy+6j/nKTSx +iWQ601AifRf3z3kjt10W2uxBwyUSXvvqSbOP9GZEbKehSx6T7w5pgex1GufD +aHj4eqhPEumnj2IrCg/SsOasV5oP6bTep/bPE2n4yz/mogHpzYKUD4MpNNxu +o7tbiDR1ZeAe4XQahtaMKbwh4/HFmsenfpN8n7PqOVmk74UsnDPPp+Fkg8Wi +7aRNCq4UH6mmoaq0oHMPGX+L9hfzo400fH+nUjWbtCPfXxt8XtPQtqnL14N0 +gEtYJ3yhYbTuCql6Mp/CYm4pF43S8CDl1Jn9pA/mdoTSZ2nY/0R/P420VQwj +Ll6QjkZqIyd2kfn5bEXlLeMldGyYCypfTto5171xTJSOId+/eeaT+e35/LS4 +H4WOV8u/znaT9bCXNnNrvSYdV103LJEg62WaSGv8uZaONfHO59LJ+oq21hzh +6tMx/IzTNwrppH2+hsqmdCyemlsq/p2sn7qnjfwb6Xhv1NKhnaxf2pbAkQeb +6Hi9lFBB0rnDC+L7PejYF68Ud3uIjJe0gWdvAB0fbVz0NHCQgPrgGyN1kXQc +EOJrqyT7hc0cU+JwDB3L33NmREi/SGsz1I+no3d2wx1Xsr90lovE556kIyVv +rOpdH1mfSyMkkq7RsWnMs/vxZ7K/F1kbWdXSsT9tkn+a7GfXLXo9fzfQ8fcH +RtlS0sqdsfGlz+i4QaNLnEb2P21+okn9DR0Tu93KWO1kPbspbRP6Rkch3oUf +9q0E7Jodj29czkBV12fhr56S8dwXJNMvwcCARVt6r5D9WniwK1+AwsCgM1KH +fRoJuN1d99ZUmYFeiy20Pz4m4MPDS1olhgysCquvKaohwCmJ2XHTh4EtP5+t +zyoh8+n3/d3V2xn4pXl8uSY5T4YjlQXe72RgisMmWjE5b5J3LF1DiWDgt1AT +uYpCAmrs3h9NTWZgZlTE9Wt3yf4ukbA2hsvAyiivU4XXCOA7PV2fUcrAhJ9y +pxaR8+6FQIhHaQUDA/eKjziR8zB02iVp/DEDv5o69X2+RManQ7U7uIuBQ7En +nnelkvP2RuNxNwFlFLtwh6kcT8BPTbEP2puUUfkhhSJNzuOZ6/IJeh7KOLTV +eO0ib3L+rFBTZfoo46QpW2iQnN+jk8wQi53KuF83cRGPnPc9FQEzHrHKuLJL +2U3Biaw3u39Fk28rY2ZbuuImDpk/od7QM62M/FBfGC5L1mv+vezLl1VQcI0k +1tXyoJuef8Pyqgoee7qsjFbDg+jLd7Ombqhg/IrppkNVPPg3Ie+ay10V7DWl +1KqX8UB3S3aGaKUKumYG6my/z4PVghfTjn9WwadQHx2WzgMZn5j4SC1V1Hqx +gtm8kwfjEra+7rWqOCAS9EtYmAd9Kb7u4ULq6FI6LESQ/6c236NsvhiuxKDr +/5p8pRfBcIDw/uK4VZi7kW1jPH+f/L+X5T9RuxoF5mJkbv+dDxLP1VOLvmvg +dysm8u+7C4rJhc6Ghlq45e4yzkuRO5ChyRSTDNbGloNeBSlvcuGp/HqDyXNr +cAXVaW9JVQ6YKNamrX27FrdYWB4ePp8NogI5EX6J65Cu/t4n2f06UBNo7K3q +Ovi8apgVHHcFRNS2lbo80UFb7yivnUsuwxqOXGGUly7qrPI4OSN/AcI/SNTZ +8umh9Y/GAUlOGnyfTNlkk6GHO/I0Bzglp2HD2oZMG219tJx9f2go9QQ8nGT9 +9+OFPsrA+dvca0chTEu3qyXQAAuEn5SUh8QDZ3R721YRQww/O1I28CkaLFUp +DstzDPFa3Ez7ErVIWBV/6mCtkRF669//eFQ3HCpZtwXtTYxw4dTNqiblcHD+ +UX3+DdsIG5liKxQkw+Fg2PS9b+uN0Mm/cfLj5D5o3Ob7WdSedN4bykTJPtjB +NLT19DXC4JiaSF32Prg78VlhKtkIr5+0HJ513gsagcxqtS4jdL+5szhDfzec +VXb8dfSdET5n88+yFHfD1Ed/g54PRii6q+jCmMBueOiRkp/Va4TzlNT7Z1p3 +gYvzx3TZESOUz7gScHn/LjjEStorwmeMLFmrW52lodAo3sIYUTNGzyNCVv02 +IRD4cMex4n3GqCiyxUA2OxhGdw9GWUYYo99HVpj0qWA4qLQr9G2kMfJeXHFX +iwiGU4f3uMzGGKPZUhmRaOtgKDKJpLOPG+PZT6urpseDYK70aGVdpjHGpMYW +alkHwfnCrKnXdcZ46S19zm5RIFRnt20fl2biguLrkz9u+cMne4ZPJIWJQuNq +//ic9we+n7u3/ifPxHxZMYu38f5gtlHIUZDOxKUvzR+OevlDwyITIzkNJnJf +ONY8o/hDs/8NkfWmTLR/bnxX+5wfdKmGFKQFMZFIHnJxSvGFqb8Xfqz9l4lT +2ZptEm5e0O9ulX2ynImO25v9ophe0PHXGeveCiZecHXSHKd6QYWv/JXLNUyc +ZTJNVAe3QSLFwGS+iYn14ndqjydsA7HkkMNP3zExa9WlEJ1iT9AKfsMXyG+C +GgeaHlWt8oAAtXyRTAcTzFaWMW222wzRj71D1J1N8F7cFN1MfzOkBUo847mY +YIjuDbnnipuh8vahlGebTbD4q+Zy5VF3kFK3XjHvZ4LpJVUWDefcoUH9i5Rv +pAlOhwc5Dr7bBBqraHT1Gya44/w6e4NENxjXuGDIGzNBc6XoyMuCLtDRjJaS +kyYoHHchizK1EWrCRl0jpk1wUNJs7G7PRkjl2ewz/GWCSSnlvT+rN4KGCd+9 +BwIs9F7T3+oQsxH8bXYz6mRYaKe1RL9yyhnagjcsa2Oz8JdHqcyLPicoy/3v +83QyC5WWMjxcte3B0Dzih+1pFopTDKxbxO2h5PPwsuwzLPx3T/zW4Bk74FE/ +GNmeZ6FaZt+17mo7uJdRcybrKgunpx3ye1ztIDslibmhgIUrVfq0PONt4WTE +inMZrSyMF/OhRQ9ag7Bkct7IGxa2PSma7GyxhuNcvkqzDhb2fksvcyq3hmOj +4/3D71hoti/l1eFkaziyo429vp+FK47I+nevtIbwbVe+Dcyy0KTk6IGrIRvA +w0IFWVQ2Okyq1hQvWMJ8m7BoHZ2NwmWnf7V9tYTswNFuWxU2mv3zPnvZK0vo +P14e5bGKjWnefp8fZVtCeJNT4SFdNgZGlgiamVvCKcfD1DIrNkpa++adSLGA +B1vezOnvIdc7RnvdXGsOXgMPnlbuY6OO6Tr/k/LmwBednWERwUbXZMfdxwXN +wepqqL7bITYenEpyqO42g9fvF+3af5SNJRO/jTROmsGg/5pubjob4yvVxtq+ +rgeF3SfK19Swccqrwoe/GCF1IcjgdC0bez6HxeXlIPCft+J+rWfjyH+XBD3P +IQyWCt7NbmLjy79fi06HITzgO5Yh0cpG87+kM4c0EDwuxkfNfGHjjdyi4vt2 +ABkVhwweLuUgQ1J45UVHDixz3MqVF+WgX1LArdq1HIj/ZKwdJcZBzedJf4uK +c2CH4KzqOmkO2htZDvxuZYORU6RUDpWDKXIpZziebHjbEz6ZpMPBvpBfn5T2 +sEB6yS6uw2YO6kQf1K/NZ0KueWz02FYOPjVa6rjhDBN0Y1PNL2zjoC3NKmok +jAmOY0VvOvw46NCRf+iaLhOOv53+GbCLg3esTz9NqDCG2Zw4s+gEDn72UnBx +bDWCLtaF1rx8Dt4f0q6RkzeEHQdyr9kUcFCrfgM9acEAZgpKAoeLOLjuutWT +5V8MQEK544dOKQfPXDOOiiwyADthJcWqGg7miyxgjrUBVLblbW99w8E3Rdmd +tkf0wVa0TDuyg4NdSm+DYgP1oWND0wylm4PVgrnRz+z1YerBULL3Jw6++0Vr +KlfQB+2b6+4PDHKwTFp32bsHelDZtT4yZYSDRQdVO77m6IGtlCusHeNg04CG +q+hpPQg6caAlYpqDNcbew/946sFUzfFM2VnyeymWvaFb6EHir/SAB784WD4X +9xdXSw/E9O9qec1z8AD/MW9PaT3I2v1gemGBg0FH/m6i/daF/wEGZRow "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "PlotRange" -> {{0, 30}, {0., 0.07801990968321884}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7693,6 +6997,7 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -7720,7 +7025,8 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.17588335145564066`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07801990968321884}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -7728,11 +7034,12 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991334471589432*^9}, - CellLabel-> - "Out[252]=",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] + CellChangeTimes->{3.991334471589432*^9, 3.9942577980047073`*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"1b5547a9-a0df-4878-8e73-b9ce80a74d5c"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", @@ -7803,15 +7110,849 @@ Cell[BoxData[ CellFrame->{{0, 0}, {0, 0}}, CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, 3.994084135894616*^9}, - Background->RGBColor[ - 0.87, 0.94, 1],ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], + Background->RGBColor[0.87, 0.94, 1], + CellLabel->"In[94]:=",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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->{ + "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.060284}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994257798253079*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"173dc97b-b857-4b87-91bd-020b4cf096c3"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"6d3700e1-f504-214a-a332-\ -f16397f0b922"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel->"In[95]:=",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk4FWsYAHBxhRbZHdtZbJWlsjvOOd43W3ZCKrKHolQSRbKUUklaSSVJ +ul2FcwaXECFRWkTZWpGyZk9dcqe/5vk9z3zffDPvNgz/PS6B/Hx8fOsX8fH9 +uc58aKpXPZ1rOj/6Ud3hkaVpWxbl0PqORCjyyllTN6UCKP3Sn9JxHubrTg9f +nNKDSOd/2gU6csBQe6d2xJQ5iI/Knv/ZzgMV185NnClX+FjpuGeqvRYW/ERE +kycDwEp18P14+2vAWF2DhrH98LPd6NJYew9MeW2hNX85CnXmd3JbciahOsZj +2OPkRVD8WN7vrzUPr3/GeFuIZoHULp9/hMwFkO3NcHbYdwvO61hVOG4Sxn4n +OU7mhzvQmbGuZlxsOWrOLmUmZ+TD6dy4l/xy4th/z9jsCaMQbPV3SkiriOPi +RnPt1DWFIFzvsmmltjgmUq9Y2bMK4VivWrfdenEsFgv9dd+tEA4rN/df3CmO +EkNnVYROFEJYNuW3+gNxbDiVvld0sBA2XuNq2XlKoFFb+4MityKQvdh78sJ1 +SezUWLpn02IuUDRLjs3mSeJClKIWeykX5GuPx3kVSeLdmeT3VDEuUMdWH1hZ +J4mDOnoKHXJcULPf61vxTRIr+AMm5LS5oPfXvGGvnhTu6pDO7HLhglOETJ/u +Uynkhovss7/KBeel3z6kt0rhE0GoKbrBBZec8s65d1IYoNsyJZbLBfdX2142 +fJfCObi07PE9Lnhp3XrgIS2Nk6fKh/+r4kJo39pzib7S6Jp6TC33IxdOuNmY +vp6RxgN9PTHvaDyQL34hz79IBlfXMYLEVHlQIOn2Q2epDGbRq8NhFQ/evvYu +OkeTQXUH44nUdTxQ3RihvNFaBuNa0o5NIg9qHW4sfnVFBpufsFte+/Jg3mr6 +xXO2LOb2/7QfuMaDtLzo/HkrWXyaoIoJ2eT6xXzJ2htlcfbNKxepXB7YP16y +/kygLNpMf3yrmc+DTHM6YZ8qiw/P3vakl/PAGO3Sn32UxZj6xbtpbTzYz7zp +05RIQd97E/WRiwmwzRadskuhYGxP1QYUIUBZ6HDyi0sUnI9dd1ZwGQGv2ty5 +rX9T8LaR8O6j4gSs2btM4MMLCu5WrQq1VyTgW15U3oS8HB5rEyuW1CGgevkX +kwOqchjFFcq5okfA5QiXlz+05dCtxWqrgiEBlmbas3Moh3jvl6oEi4Cc9z02 +QsFyeHdKmvXcgoBtUo4jCoQcpnA+lxzaTIBeTEVCVqUchh922l65lYAlPatk +GA1y+FpareeXJwHlhQKg3knud+aRQ6gvATJ25WnrFuTw0sG143I7yfMnqOpb +2snjkA21peAQARbff0WH9cojzy868UE6AYesL2o8GpbH/B4R9z1XCCi4qd0l +OSOPEyWluvSrBFDcfJnlwgroMV4sEplFwHDZ4x8CaxRQwvmW6UQuARcS0yKu +HFTAsNkQO20uAY3dq1WHExTQ+szO2RweAXP6da2mpxWw74htmVQxAUFfp3X7 +riug7FHn/cOlBJjYe46vqVNA8cPz33ZVEtAjrR5Wv1wR/5rYHsprIEB2T7WS +rKwiPimISR94QoB945bnO+mKKCka9VmxiYDS6NNaK/QU8XnB4tdRzwg49XFs +cOsWRaQZMU0WXpLxMD6Vec9PEfm3KYbIthAwdU7FdiFEEb0lO6s0XxPgbeF+ +NzdWET31xlqt2wjQvVsR/D1HEfmaHF65dRAQzL9J1uyeIpY239d37CTgmudo +w8USRbR8srLOvIuAxaIMdZNGcv33G34q7wjoCj/ed2xEEacqvSqKPxKQwN7o +J2+shDp9JVfp/QRYe2dNGJkpIf+y193DpEXjh45usldCQYfWO8Vfyf3rkvLS +fJVwePH8V8MBAspsHwwtPqmEye2nVi0eJiBul1Cs6gUlbA7z/1pA2irVTdTs +uhI2NBqyXEcIaGsZXRfLVcKgmCN5qaMEjG1RiZzsVEL939H3Xo0R8G/0XiHx +PiUM16Xpu48TcORaVcaaUSX8ftzYo530sk+bK3byU1FzLud48wQBrYtu259Y +RkUZvu1ncZKATJWJ97kyVPT8dohVRHplcArfJw0qRphdTEycImA0ufPcvD4V +Oyyk6F9IF/+jrqIAVDxs+ynQfJoAs9EaS3dXKvYHBnyfIC0iJtq+34uK/126 +aWAxQ+arjueOc8FU/Pc/5upzpL0PTJ9qjqHibed0JeoPAtTSzRQHk6g4Xz1K +9/7xJx/P3hdKoyJfwOO3V0gTXe9M1TKpmMy3A1tIR8+tfmWWS8WEBlWfv2YJ +WE+N8vMtoGKttZ2+HmlhrJ+ILaPiaJzWIy/SL/zEj12tpaJTo7zQMdKXjnpL +lzdT8e9PO4XySG+7nZ/39i0VaQNhdXWklZ/MGk19ouIy/3j2e9ID3yybxIeo ++FxjZv8E6aIlFzzWTlOxNH51qMBPAqK0Pg3ZL1DxxXyEihhpU0ft2BARGpam +62dRSAvujRZNlqRhfNbjd4qkm889uXFbiYaJFcc//fEFQkqnbiUNdcba//lz +v8cbv9pPOjQcuijP+bMf40eB628WDXs3czP+PO8bZa5PwYqGXSy+6j/nKTSx +iWQ601AifRf3z3kjt10W2uxBwyUSXvvqSbOP9GZEbKehSx6T7w5pgex1GufD +aHj4eqhPEumnj2IrCg/SsOasV5oP6bTep/bPE2n4yz/mogHpzYKUD4MpNNxu +o7tbiDR1ZeAe4XQahtaMKbwh4/HFmsenfpN8n7PqOVmk74UsnDPPp+Fkg8Wi +7aRNCq4UH6mmoaq0oHMPGX+L9hfzo400fH+nUjWbtCPfXxt8XtPQtqnL14N0 +gEtYJ3yhYbTuCql6Mp/CYm4pF43S8CDl1Jn9pA/mdoTSZ2nY/0R/P420VQwj +Ll6QjkZqIyd2kfn5bEXlLeMldGyYCypfTto5171xTJSOId+/eeaT+e35/LS4 +H4WOV8u/znaT9bCXNnNrvSYdV103LJEg62WaSGv8uZaONfHO59LJ+oq21hzh +6tMx/IzTNwrppH2+hsqmdCyemlsq/p2sn7qnjfwb6Xhv1NKhnaxf2pbAkQeb +6Hi9lFBB0rnDC+L7PejYF68Ud3uIjJe0gWdvAB0fbVz0NHCQgPrgGyN1kXQc +EOJrqyT7hc0cU+JwDB3L33NmREi/SGsz1I+no3d2wx1Xsr90lovE556kIyVv +rOpdH1mfSyMkkq7RsWnMs/vxZ7K/F1kbWdXSsT9tkn+a7GfXLXo9fzfQ8fcH +RtlS0sqdsfGlz+i4QaNLnEb2P21+okn9DR0Tu93KWO1kPbspbRP6Rkch3oUf +9q0E7Jodj29czkBV12fhr56S8dwXJNMvwcCARVt6r5D9WniwK1+AwsCgM1KH +fRoJuN1d99ZUmYFeiy20Pz4m4MPDS1olhgysCquvKaohwCmJ2XHTh4EtP5+t +zyoh8+n3/d3V2xn4pXl8uSY5T4YjlQXe72RgisMmWjE5b5J3LF1DiWDgt1AT +uYpCAmrs3h9NTWZgZlTE9Wt3yf4ukbA2hsvAyiivU4XXCOA7PV2fUcrAhJ9y +pxaR8+6FQIhHaQUDA/eKjziR8zB02iVp/DEDv5o69X2+RManQ7U7uIuBQ7En +nnelkvP2RuNxNwFlFLtwh6kcT8BPTbEP2puUUfkhhSJNzuOZ6/IJeh7KOLTV +eO0ib3L+rFBTZfoo46QpW2iQnN+jk8wQi53KuF83cRGPnPc9FQEzHrHKuLJL +2U3Biaw3u39Fk28rY2ZbuuImDpk/od7QM62M/FBfGC5L1mv+vezLl1VQcI0k +1tXyoJuef8Pyqgoee7qsjFbDg+jLd7Ombqhg/IrppkNVPPg3Ie+ay10V7DWl +1KqX8UB3S3aGaKUKumYG6my/z4PVghfTjn9WwadQHx2WzgMZn5j4SC1V1Hqx +gtm8kwfjEra+7rWqOCAS9EtYmAd9Kb7u4ULq6FI6LESQ/6c236NsvhiuxKDr +/5p8pRfBcIDw/uK4VZi7kW1jPH+f/L+X5T9RuxoF5mJkbv+dDxLP1VOLvmvg +dysm8u+7C4rJhc6Ghlq45e4yzkuRO5ChyRSTDNbGloNeBSlvcuGp/HqDyXNr +cAXVaW9JVQ6YKNamrX27FrdYWB4ePp8NogI5EX6J65Cu/t4n2f06UBNo7K3q +Ovi8apgVHHcFRNS2lbo80UFb7yivnUsuwxqOXGGUly7qrPI4OSN/AcI/SNTZ +8umh9Y/GAUlOGnyfTNlkk6GHO/I0Bzglp2HD2oZMG219tJx9f2go9QQ8nGT9 +9+OFPsrA+dvca0chTEu3qyXQAAuEn5SUh8QDZ3R721YRQww/O1I28CkaLFUp +DstzDPFa3Ez7ErVIWBV/6mCtkRF669//eFQ3HCpZtwXtTYxw4dTNqiblcHD+ +UX3+DdsIG5liKxQkw+Fg2PS9b+uN0Mm/cfLj5D5o3Ob7WdSedN4bykTJPtjB +NLT19DXC4JiaSF32Prg78VlhKtkIr5+0HJ513gsagcxqtS4jdL+5szhDfzec +VXb8dfSdET5n88+yFHfD1Ed/g54PRii6q+jCmMBueOiRkp/Va4TzlNT7Z1p3 +gYvzx3TZESOUz7gScHn/LjjEStorwmeMLFmrW52lodAo3sIYUTNGzyNCVv02 +IRD4cMex4n3GqCiyxUA2OxhGdw9GWUYYo99HVpj0qWA4qLQr9G2kMfJeXHFX +iwiGU4f3uMzGGKPZUhmRaOtgKDKJpLOPG+PZT6urpseDYK70aGVdpjHGpMYW +alkHwfnCrKnXdcZ46S19zm5RIFRnt20fl2biguLrkz9u+cMne4ZPJIWJQuNq +//ic9we+n7u3/ifPxHxZMYu38f5gtlHIUZDOxKUvzR+OevlDwyITIzkNJnJf +ONY8o/hDs/8NkfWmTLR/bnxX+5wfdKmGFKQFMZFIHnJxSvGFqb8Xfqz9l4lT +2ZptEm5e0O9ulX2ynImO25v9ophe0PHXGeveCiZecHXSHKd6QYWv/JXLNUyc +ZTJNVAe3QSLFwGS+iYn14ndqjydsA7HkkMNP3zExa9WlEJ1iT9AKfsMXyG+C +GgeaHlWt8oAAtXyRTAcTzFaWMW222wzRj71D1J1N8F7cFN1MfzOkBUo847mY +YIjuDbnnipuh8vahlGebTbD4q+Zy5VF3kFK3XjHvZ4LpJVUWDefcoUH9i5Rv +pAlOhwc5Dr7bBBqraHT1Gya44/w6e4NENxjXuGDIGzNBc6XoyMuCLtDRjJaS +kyYoHHchizK1EWrCRl0jpk1wUNJs7G7PRkjl2ewz/GWCSSnlvT+rN4KGCd+9 +BwIs9F7T3+oQsxH8bXYz6mRYaKe1RL9yyhnagjcsa2Oz8JdHqcyLPicoy/3v +83QyC5WWMjxcte3B0Dzih+1pFopTDKxbxO2h5PPwsuwzLPx3T/zW4Bk74FE/ +GNmeZ6FaZt+17mo7uJdRcybrKgunpx3ye1ztIDslibmhgIUrVfq0PONt4WTE +inMZrSyMF/OhRQ9ag7Bkct7IGxa2PSma7GyxhuNcvkqzDhb2fksvcyq3hmOj +4/3D71hoti/l1eFkaziyo429vp+FK47I+nevtIbwbVe+Dcyy0KTk6IGrIRvA +w0IFWVQ2Okyq1hQvWMJ8m7BoHZ2NwmWnf7V9tYTswNFuWxU2mv3zPnvZK0vo +P14e5bGKjWnefp8fZVtCeJNT4SFdNgZGlgiamVvCKcfD1DIrNkpa++adSLGA +B1vezOnvIdc7RnvdXGsOXgMPnlbuY6OO6Tr/k/LmwBednWERwUbXZMfdxwXN +wepqqL7bITYenEpyqO42g9fvF+3af5SNJRO/jTROmsGg/5pubjob4yvVxtq+ +rgeF3SfK19Swccqrwoe/GCF1IcjgdC0bez6HxeXlIPCft+J+rWfjyH+XBD3P +IQyWCt7NbmLjy79fi06HITzgO5Yh0cpG87+kM4c0EDwuxkfNfGHjjdyi4vt2 +ABkVhwweLuUgQ1J45UVHDixz3MqVF+WgX1LArdq1HIj/ZKwdJcZBzedJf4uK +c2CH4KzqOmkO2htZDvxuZYORU6RUDpWDKXIpZziebHjbEz6ZpMPBvpBfn5T2 +sEB6yS6uw2YO6kQf1K/NZ0KueWz02FYOPjVa6rjhDBN0Y1PNL2zjoC3NKmok +jAmOY0VvOvw46NCRf+iaLhOOv53+GbCLg3esTz9NqDCG2Zw4s+gEDn72UnBx +bDWCLtaF1rx8Dt4f0q6RkzeEHQdyr9kUcFCrfgM9acEAZgpKAoeLOLjuutWT +5V8MQEK544dOKQfPXDOOiiwyADthJcWqGg7miyxgjrUBVLblbW99w8E3Rdmd +tkf0wVa0TDuyg4NdSm+DYgP1oWND0wylm4PVgrnRz+z1YerBULL3Jw6++0Vr +KlfQB+2b6+4PDHKwTFp32bsHelDZtT4yZYSDRQdVO77m6IGtlCusHeNg04CG +q+hpPQg6caAlYpqDNcbew/946sFUzfFM2VnyeymWvaFb6EHir/SAB784WD4X +9xdXSw/E9O9qec1z8AD/MW9PaT3I2v1gemGBg0FH/m6i/daF/wEGZRow + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4FWsYAHBxhRbZHdtZbJWlsjvOOd43W3ZCKrKHolQSRbKUUklaSSVJ +ul2FcwaXECFRWkTZWpGyZk9dcqe/5vk9z3zffDPvNgz/PS6B/Hx8fOsX8fH9 +uc58aKpXPZ1rOj/6Ud3hkaVpWxbl0PqORCjyyllTN6UCKP3Sn9JxHubrTg9f +nNKDSOd/2gU6csBQe6d2xJQ5iI/Knv/ZzgMV185NnClX+FjpuGeqvRYW/ERE +kycDwEp18P14+2vAWF2DhrH98LPd6NJYew9MeW2hNX85CnXmd3JbciahOsZj +2OPkRVD8WN7vrzUPr3/GeFuIZoHULp9/hMwFkO3NcHbYdwvO61hVOG4Sxn4n +OU7mhzvQmbGuZlxsOWrOLmUmZ+TD6dy4l/xy4th/z9jsCaMQbPV3SkiriOPi +RnPt1DWFIFzvsmmltjgmUq9Y2bMK4VivWrfdenEsFgv9dd+tEA4rN/df3CmO +EkNnVYROFEJYNuW3+gNxbDiVvld0sBA2XuNq2XlKoFFb+4MityKQvdh78sJ1 +SezUWLpn02IuUDRLjs3mSeJClKIWeykX5GuPx3kVSeLdmeT3VDEuUMdWH1hZ +J4mDOnoKHXJcULPf61vxTRIr+AMm5LS5oPfXvGGvnhTu6pDO7HLhglOETJ/u +Uynkhovss7/KBeel3z6kt0rhE0GoKbrBBZec8s65d1IYoNsyJZbLBfdX2142 +fJfCObi07PE9Lnhp3XrgIS2Nk6fKh/+r4kJo39pzib7S6Jp6TC33IxdOuNmY +vp6RxgN9PTHvaDyQL34hz79IBlfXMYLEVHlQIOn2Q2epDGbRq8NhFQ/evvYu +OkeTQXUH44nUdTxQ3RihvNFaBuNa0o5NIg9qHW4sfnVFBpufsFte+/Jg3mr6 +xXO2LOb2/7QfuMaDtLzo/HkrWXyaoIoJ2eT6xXzJ2htlcfbNKxepXB7YP16y +/kygLNpMf3yrmc+DTHM6YZ8qiw/P3vakl/PAGO3Sn32UxZj6xbtpbTzYz7zp +05RIQd97E/WRiwmwzRadskuhYGxP1QYUIUBZ6HDyi0sUnI9dd1ZwGQGv2ty5 +rX9T8LaR8O6j4gSs2btM4MMLCu5WrQq1VyTgW15U3oS8HB5rEyuW1CGgevkX +kwOqchjFFcq5okfA5QiXlz+05dCtxWqrgiEBlmbas3Moh3jvl6oEi4Cc9z02 +QsFyeHdKmvXcgoBtUo4jCoQcpnA+lxzaTIBeTEVCVqUchh922l65lYAlPatk +GA1y+FpareeXJwHlhQKg3knud+aRQ6gvATJ25WnrFuTw0sG143I7yfMnqOpb +2snjkA21peAQARbff0WH9cojzy868UE6AYesL2o8GpbH/B4R9z1XCCi4qd0l +OSOPEyWluvSrBFDcfJnlwgroMV4sEplFwHDZ4x8CaxRQwvmW6UQuARcS0yKu +HFTAsNkQO20uAY3dq1WHExTQ+szO2RweAXP6da2mpxWw74htmVQxAUFfp3X7 +riug7FHn/cOlBJjYe46vqVNA8cPz33ZVEtAjrR5Wv1wR/5rYHsprIEB2T7WS +rKwiPimISR94QoB945bnO+mKKCka9VmxiYDS6NNaK/QU8XnB4tdRzwg49XFs +cOsWRaQZMU0WXpLxMD6Vec9PEfm3KYbIthAwdU7FdiFEEb0lO6s0XxPgbeF+ +NzdWET31xlqt2wjQvVsR/D1HEfmaHF65dRAQzL9J1uyeIpY239d37CTgmudo +w8USRbR8srLOvIuAxaIMdZNGcv33G34q7wjoCj/ed2xEEacqvSqKPxKQwN7o +J2+shDp9JVfp/QRYe2dNGJkpIf+y193DpEXjh45usldCQYfWO8Vfyf3rkvLS +fJVwePH8V8MBAspsHwwtPqmEye2nVi0eJiBul1Cs6gUlbA7z/1pA2irVTdTs +uhI2NBqyXEcIaGsZXRfLVcKgmCN5qaMEjG1RiZzsVEL939H3Xo0R8G/0XiHx +PiUM16Xpu48TcORaVcaaUSX8ftzYo530sk+bK3byU1FzLud48wQBrYtu259Y +RkUZvu1ncZKATJWJ97kyVPT8dohVRHplcArfJw0qRphdTEycImA0ufPcvD4V +Oyyk6F9IF/+jrqIAVDxs+ynQfJoAs9EaS3dXKvYHBnyfIC0iJtq+34uK/126 +aWAxQ+arjueOc8FU/Pc/5upzpL0PTJ9qjqHibed0JeoPAtTSzRQHk6g4Xz1K +9/7xJx/P3hdKoyJfwOO3V0gTXe9M1TKpmMy3A1tIR8+tfmWWS8WEBlWfv2YJ +WE+N8vMtoGKttZ2+HmlhrJ+ILaPiaJzWIy/SL/zEj12tpaJTo7zQMdKXjnpL +lzdT8e9PO4XySG+7nZ/39i0VaQNhdXWklZ/MGk19ouIy/3j2e9ID3yybxIeo ++FxjZv8E6aIlFzzWTlOxNH51qMBPAqK0Pg3ZL1DxxXyEihhpU0ft2BARGpam +62dRSAvujRZNlqRhfNbjd4qkm889uXFbiYaJFcc//fEFQkqnbiUNdcba//lz +v8cbv9pPOjQcuijP+bMf40eB628WDXs3czP+PO8bZa5PwYqGXSy+6j/nKTSx +iWQ601AifRf3z3kjt10W2uxBwyUSXvvqSbOP9GZEbKehSx6T7w5pgex1GufD +aHj4eqhPEumnj2IrCg/SsOasV5oP6bTep/bPE2n4yz/mogHpzYKUD4MpNNxu +o7tbiDR1ZeAe4XQahtaMKbwh4/HFmsenfpN8n7PqOVmk74UsnDPPp+Fkg8Wi +7aRNCq4UH6mmoaq0oHMPGX+L9hfzo400fH+nUjWbtCPfXxt8XtPQtqnL14N0 +gEtYJ3yhYbTuCql6Mp/CYm4pF43S8CDl1Jn9pA/mdoTSZ2nY/0R/P420VQwj +Ll6QjkZqIyd2kfn5bEXlLeMldGyYCypfTto5171xTJSOId+/eeaT+e35/LS4 +H4WOV8u/znaT9bCXNnNrvSYdV103LJEg62WaSGv8uZaONfHO59LJ+oq21hzh +6tMx/IzTNwrppH2+hsqmdCyemlsq/p2sn7qnjfwb6Xhv1NKhnaxf2pbAkQeb +6Hi9lFBB0rnDC+L7PejYF68Ud3uIjJe0gWdvAB0fbVz0NHCQgPrgGyN1kXQc +EOJrqyT7hc0cU+JwDB3L33NmREi/SGsz1I+no3d2wx1Xsr90lovE556kIyVv +rOpdH1mfSyMkkq7RsWnMs/vxZ7K/F1kbWdXSsT9tkn+a7GfXLXo9fzfQ8fcH +RtlS0sqdsfGlz+i4QaNLnEb2P21+okn9DR0Tu93KWO1kPbspbRP6Rkch3oUf +9q0E7Jodj29czkBV12fhr56S8dwXJNMvwcCARVt6r5D9WniwK1+AwsCgM1KH +fRoJuN1d99ZUmYFeiy20Pz4m4MPDS1olhgysCquvKaohwCmJ2XHTh4EtP5+t +zyoh8+n3/d3V2xn4pXl8uSY5T4YjlQXe72RgisMmWjE5b5J3LF1DiWDgt1AT +uYpCAmrs3h9NTWZgZlTE9Wt3yf4ukbA2hsvAyiivU4XXCOA7PV2fUcrAhJ9y +pxaR8+6FQIhHaQUDA/eKjziR8zB02iVp/DEDv5o69X2+RManQ7U7uIuBQ7En +nnelkvP2RuNxNwFlFLtwh6kcT8BPTbEP2puUUfkhhSJNzuOZ6/IJeh7KOLTV +eO0ib3L+rFBTZfoo46QpW2iQnN+jk8wQi53KuF83cRGPnPc9FQEzHrHKuLJL +2U3Biaw3u39Fk28rY2ZbuuImDpk/od7QM62M/FBfGC5L1mv+vezLl1VQcI0k +1tXyoJuef8Pyqgoee7qsjFbDg+jLd7Ombqhg/IrppkNVPPg3Ie+ay10V7DWl +1KqX8UB3S3aGaKUKumYG6my/z4PVghfTjn9WwadQHx2WzgMZn5j4SC1V1Hqx +gtm8kwfjEra+7rWqOCAS9EtYmAd9Kb7u4ULq6FI6LESQ/6c236NsvhiuxKDr +/5p8pRfBcIDw/uK4VZi7kW1jPH+f/L+X5T9RuxoF5mJkbv+dDxLP1VOLvmvg +dysm8u+7C4rJhc6Ghlq45e4yzkuRO5ChyRSTDNbGloNeBSlvcuGp/HqDyXNr +cAXVaW9JVQ6YKNamrX27FrdYWB4ePp8NogI5EX6J65Cu/t4n2f06UBNo7K3q +Ovi8apgVHHcFRNS2lbo80UFb7yivnUsuwxqOXGGUly7qrPI4OSN/AcI/SNTZ +8umh9Y/GAUlOGnyfTNlkk6GHO/I0Bzglp2HD2oZMG219tJx9f2go9QQ8nGT9 +9+OFPsrA+dvca0chTEu3qyXQAAuEn5SUh8QDZ3R721YRQww/O1I28CkaLFUp +DstzDPFa3Ez7ErVIWBV/6mCtkRF669//eFQ3HCpZtwXtTYxw4dTNqiblcHD+ +UX3+DdsIG5liKxQkw+Fg2PS9b+uN0Mm/cfLj5D5o3Ob7WdSedN4bykTJPtjB +NLT19DXC4JiaSF32Prg78VlhKtkIr5+0HJ513gsagcxqtS4jdL+5szhDfzec +VXb8dfSdET5n88+yFHfD1Ed/g54PRii6q+jCmMBueOiRkp/Va4TzlNT7Z1p3 +gYvzx3TZESOUz7gScHn/LjjEStorwmeMLFmrW52lodAo3sIYUTNGzyNCVv02 +IRD4cMex4n3GqCiyxUA2OxhGdw9GWUYYo99HVpj0qWA4qLQr9G2kMfJeXHFX +iwiGU4f3uMzGGKPZUhmRaOtgKDKJpLOPG+PZT6urpseDYK70aGVdpjHGpMYW +alkHwfnCrKnXdcZ46S19zm5RIFRnt20fl2biguLrkz9u+cMne4ZPJIWJQuNq +//ic9we+n7u3/ifPxHxZMYu38f5gtlHIUZDOxKUvzR+OevlDwyITIzkNJnJf +ONY8o/hDs/8NkfWmTLR/bnxX+5wfdKmGFKQFMZFIHnJxSvGFqb8Xfqz9l4lT +2ZptEm5e0O9ulX2ynImO25v9ophe0PHXGeveCiZecHXSHKd6QYWv/JXLNUyc +ZTJNVAe3QSLFwGS+iYn14ndqjydsA7HkkMNP3zExa9WlEJ1iT9AKfsMXyG+C +GgeaHlWt8oAAtXyRTAcTzFaWMW222wzRj71D1J1N8F7cFN1MfzOkBUo847mY +YIjuDbnnipuh8vahlGebTbD4q+Zy5VF3kFK3XjHvZ4LpJVUWDefcoUH9i5Rv +pAlOhwc5Dr7bBBqraHT1Gya44/w6e4NENxjXuGDIGzNBc6XoyMuCLtDRjJaS +kyYoHHchizK1EWrCRl0jpk1wUNJs7G7PRkjl2ewz/GWCSSnlvT+rN4KGCd+9 +BwIs9F7T3+oQsxH8bXYz6mRYaKe1RL9yyhnagjcsa2Oz8JdHqcyLPicoy/3v +83QyC5WWMjxcte3B0Dzih+1pFopTDKxbxO2h5PPwsuwzLPx3T/zW4Bk74FE/ +GNmeZ6FaZt+17mo7uJdRcybrKgunpx3ye1ztIDslibmhgIUrVfq0PONt4WTE +inMZrSyMF/OhRQ9ag7Bkct7IGxa2PSma7GyxhuNcvkqzDhb2fksvcyq3hmOj +4/3D71hoti/l1eFkaziyo429vp+FK47I+nevtIbwbVe+Dcyy0KTk6IGrIRvA +w0IFWVQ2Okyq1hQvWMJ8m7BoHZ2NwmWnf7V9tYTswNFuWxU2mv3zPnvZK0vo +P14e5bGKjWnefp8fZVtCeJNT4SFdNgZGlgiamVvCKcfD1DIrNkpa++adSLGA +B1vezOnvIdc7RnvdXGsOXgMPnlbuY6OO6Tr/k/LmwBednWERwUbXZMfdxwXN +wepqqL7bITYenEpyqO42g9fvF+3af5SNJRO/jTROmsGg/5pubjob4yvVxtq+ +rgeF3SfK19Swccqrwoe/GCF1IcjgdC0bez6HxeXlIPCft+J+rWfjyH+XBD3P +IQyWCt7NbmLjy79fi06HITzgO5Yh0cpG87+kM4c0EDwuxkfNfGHjjdyi4vt2 +ABkVhwweLuUgQ1J45UVHDixz3MqVF+WgX1LArdq1HIj/ZKwdJcZBzedJf4uK +c2CH4KzqOmkO2htZDvxuZYORU6RUDpWDKXIpZziebHjbEz6ZpMPBvpBfn5T2 +sEB6yS6uw2YO6kQf1K/NZ0KueWz02FYOPjVa6rjhDBN0Y1PNL2zjoC3NKmok +jAmOY0VvOvw46NCRf+iaLhOOv53+GbCLg3esTz9NqDCG2Zw4s+gEDn72UnBx +bDWCLtaF1rx8Dt4f0q6RkzeEHQdyr9kUcFCrfgM9acEAZgpKAoeLOLjuutWT +5V8MQEK544dOKQfPXDOOiiwyADthJcWqGg7miyxgjrUBVLblbW99w8E3Rdmd +tkf0wVa0TDuyg4NdSm+DYgP1oWND0wylm4PVgrnRz+z1YerBULL3Jw6++0Vr +KlfQB+2b6+4PDHKwTFp32bsHelDZtT4yZYSDRQdVO77m6IGtlCusHeNg04CG +q+hpPQg6caAlYpqDNcbew/946sFUzfFM2VnyeymWvaFb6EHir/SAB784WD4X +9xdXSw/E9O9qec1z8AD/MW9PaT3I2v1gemGBg0FH/m6i/daF/wEGZRow + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07801990968321884}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07801990968321884}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4FWsYAHBxhRbZHdtZbJWlsjvOOd43W3ZCKrKHolQSRbKUUklaSSVJ +ul2FcwaXECFRWkTZWpGyZk9dcqe/5vk9z3zffDPvNgz/PS6B/Hx8fOsX8fH9 +uc58aKpXPZ1rOj/6Ud3hkaVpWxbl0PqORCjyyllTN6UCKP3Sn9JxHubrTg9f +nNKDSOd/2gU6csBQe6d2xJQ5iI/Knv/ZzgMV185NnClX+FjpuGeqvRYW/ERE +kycDwEp18P14+2vAWF2DhrH98LPd6NJYew9MeW2hNX85CnXmd3JbciahOsZj +2OPkRVD8WN7vrzUPr3/GeFuIZoHULp9/hMwFkO3NcHbYdwvO61hVOG4Sxn4n +OU7mhzvQmbGuZlxsOWrOLmUmZ+TD6dy4l/xy4th/z9jsCaMQbPV3SkiriOPi +RnPt1DWFIFzvsmmltjgmUq9Y2bMK4VivWrfdenEsFgv9dd+tEA4rN/df3CmO +EkNnVYROFEJYNuW3+gNxbDiVvld0sBA2XuNq2XlKoFFb+4MityKQvdh78sJ1 +SezUWLpn02IuUDRLjs3mSeJClKIWeykX5GuPx3kVSeLdmeT3VDEuUMdWH1hZ +J4mDOnoKHXJcULPf61vxTRIr+AMm5LS5oPfXvGGvnhTu6pDO7HLhglOETJ/u +Uynkhovss7/KBeel3z6kt0rhE0GoKbrBBZec8s65d1IYoNsyJZbLBfdX2142 +fJfCObi07PE9Lnhp3XrgIS2Nk6fKh/+r4kJo39pzib7S6Jp6TC33IxdOuNmY +vp6RxgN9PTHvaDyQL34hz79IBlfXMYLEVHlQIOn2Q2epDGbRq8NhFQ/evvYu +OkeTQXUH44nUdTxQ3RihvNFaBuNa0o5NIg9qHW4sfnVFBpufsFte+/Jg3mr6 +xXO2LOb2/7QfuMaDtLzo/HkrWXyaoIoJ2eT6xXzJ2htlcfbNKxepXB7YP16y +/kygLNpMf3yrmc+DTHM6YZ8qiw/P3vakl/PAGO3Sn32UxZj6xbtpbTzYz7zp +05RIQd97E/WRiwmwzRadskuhYGxP1QYUIUBZ6HDyi0sUnI9dd1ZwGQGv2ty5 +rX9T8LaR8O6j4gSs2btM4MMLCu5WrQq1VyTgW15U3oS8HB5rEyuW1CGgevkX +kwOqchjFFcq5okfA5QiXlz+05dCtxWqrgiEBlmbas3Moh3jvl6oEi4Cc9z02 +QsFyeHdKmvXcgoBtUo4jCoQcpnA+lxzaTIBeTEVCVqUchh922l65lYAlPatk +GA1y+FpareeXJwHlhQKg3knud+aRQ6gvATJ25WnrFuTw0sG143I7yfMnqOpb +2snjkA21peAQARbff0WH9cojzy868UE6AYesL2o8GpbH/B4R9z1XCCi4qd0l +OSOPEyWluvSrBFDcfJnlwgroMV4sEplFwHDZ4x8CaxRQwvmW6UQuARcS0yKu +HFTAsNkQO20uAY3dq1WHExTQ+szO2RweAXP6da2mpxWw74htmVQxAUFfp3X7 +riug7FHn/cOlBJjYe46vqVNA8cPz33ZVEtAjrR5Wv1wR/5rYHsprIEB2T7WS +rKwiPimISR94QoB945bnO+mKKCka9VmxiYDS6NNaK/QU8XnB4tdRzwg49XFs +cOsWRaQZMU0WXpLxMD6Vec9PEfm3KYbIthAwdU7FdiFEEb0lO6s0XxPgbeF+ +NzdWET31xlqt2wjQvVsR/D1HEfmaHF65dRAQzL9J1uyeIpY239d37CTgmudo +w8USRbR8srLOvIuAxaIMdZNGcv33G34q7wjoCj/ed2xEEacqvSqKPxKQwN7o +J2+shDp9JVfp/QRYe2dNGJkpIf+y193DpEXjh45usldCQYfWO8Vfyf3rkvLS +fJVwePH8V8MBAspsHwwtPqmEye2nVi0eJiBul1Cs6gUlbA7z/1pA2irVTdTs +uhI2NBqyXEcIaGsZXRfLVcKgmCN5qaMEjG1RiZzsVEL939H3Xo0R8G/0XiHx +PiUM16Xpu48TcORaVcaaUSX8ftzYo530sk+bK3byU1FzLud48wQBrYtu259Y +RkUZvu1ncZKATJWJ97kyVPT8dohVRHplcArfJw0qRphdTEycImA0ufPcvD4V +Oyyk6F9IF/+jrqIAVDxs+ynQfJoAs9EaS3dXKvYHBnyfIC0iJtq+34uK/126 +aWAxQ+arjueOc8FU/Pc/5upzpL0PTJ9qjqHibed0JeoPAtTSzRQHk6g4Xz1K +9/7xJx/P3hdKoyJfwOO3V0gTXe9M1TKpmMy3A1tIR8+tfmWWS8WEBlWfv2YJ +WE+N8vMtoGKttZ2+HmlhrJ+ILaPiaJzWIy/SL/zEj12tpaJTo7zQMdKXjnpL +lzdT8e9PO4XySG+7nZ/39i0VaQNhdXWklZ/MGk19ouIy/3j2e9ID3yybxIeo ++FxjZv8E6aIlFzzWTlOxNH51qMBPAqK0Pg3ZL1DxxXyEihhpU0ft2BARGpam +62dRSAvujRZNlqRhfNbjd4qkm889uXFbiYaJFcc//fEFQkqnbiUNdcba//lz +v8cbv9pPOjQcuijP+bMf40eB628WDXs3czP+PO8bZa5PwYqGXSy+6j/nKTSx +iWQ601AifRf3z3kjt10W2uxBwyUSXvvqSbOP9GZEbKehSx6T7w5pgex1GufD +aHj4eqhPEumnj2IrCg/SsOasV5oP6bTep/bPE2n4yz/mogHpzYKUD4MpNNxu +o7tbiDR1ZeAe4XQahtaMKbwh4/HFmsenfpN8n7PqOVmk74UsnDPPp+Fkg8Wi +7aRNCq4UH6mmoaq0oHMPGX+L9hfzo400fH+nUjWbtCPfXxt8XtPQtqnL14N0 +gEtYJ3yhYbTuCql6Mp/CYm4pF43S8CDl1Jn9pA/mdoTSZ2nY/0R/P420VQwj +Ll6QjkZqIyd2kfn5bEXlLeMldGyYCypfTto5171xTJSOId+/eeaT+e35/LS4 +H4WOV8u/znaT9bCXNnNrvSYdV103LJEg62WaSGv8uZaONfHO59LJ+oq21hzh +6tMx/IzTNwrppH2+hsqmdCyemlsq/p2sn7qnjfwb6Xhv1NKhnaxf2pbAkQeb +6Hi9lFBB0rnDC+L7PejYF68Ud3uIjJe0gWdvAB0fbVz0NHCQgPrgGyN1kXQc +EOJrqyT7hc0cU+JwDB3L33NmREi/SGsz1I+no3d2wx1Xsr90lovE556kIyVv +rOpdH1mfSyMkkq7RsWnMs/vxZ7K/F1kbWdXSsT9tkn+a7GfXLXo9fzfQ8fcH +RtlS0sqdsfGlz+i4QaNLnEb2P21+okn9DR0Tu93KWO1kPbspbRP6Rkch3oUf +9q0E7Jodj29czkBV12fhr56S8dwXJNMvwcCARVt6r5D9WniwK1+AwsCgM1KH +fRoJuN1d99ZUmYFeiy20Pz4m4MPDS1olhgysCquvKaohwCmJ2XHTh4EtP5+t +zyoh8+n3/d3V2xn4pXl8uSY5T4YjlQXe72RgisMmWjE5b5J3LF1DiWDgt1AT +uYpCAmrs3h9NTWZgZlTE9Wt3yf4ukbA2hsvAyiivU4XXCOA7PV2fUcrAhJ9y +pxaR8+6FQIhHaQUDA/eKjziR8zB02iVp/DEDv5o69X2+RManQ7U7uIuBQ7En +nnelkvP2RuNxNwFlFLtwh6kcT8BPTbEP2puUUfkhhSJNzuOZ6/IJeh7KOLTV +eO0ib3L+rFBTZfoo46QpW2iQnN+jk8wQi53KuF83cRGPnPc9FQEzHrHKuLJL +2U3Biaw3u39Fk28rY2ZbuuImDpk/od7QM62M/FBfGC5L1mv+vezLl1VQcI0k +1tXyoJuef8Pyqgoee7qsjFbDg+jLd7Ombqhg/IrppkNVPPg3Ie+ay10V7DWl +1KqX8UB3S3aGaKUKumYG6my/z4PVghfTjn9WwadQHx2WzgMZn5j4SC1V1Hqx +gtm8kwfjEra+7rWqOCAS9EtYmAd9Kb7u4ULq6FI6LESQ/6c236NsvhiuxKDr +/5p8pRfBcIDw/uK4VZi7kW1jPH+f/L+X5T9RuxoF5mJkbv+dDxLP1VOLvmvg +dysm8u+7C4rJhc6Ghlq45e4yzkuRO5ChyRSTDNbGloNeBSlvcuGp/HqDyXNr +cAXVaW9JVQ6YKNamrX27FrdYWB4ePp8NogI5EX6J65Cu/t4n2f06UBNo7K3q +Ovi8apgVHHcFRNS2lbo80UFb7yivnUsuwxqOXGGUly7qrPI4OSN/AcI/SNTZ +8umh9Y/GAUlOGnyfTNlkk6GHO/I0Bzglp2HD2oZMG219tJx9f2go9QQ8nGT9 +9+OFPsrA+dvca0chTEu3qyXQAAuEn5SUh8QDZ3R721YRQww/O1I28CkaLFUp +DstzDPFa3Ez7ErVIWBV/6mCtkRF669//eFQ3HCpZtwXtTYxw4dTNqiblcHD+ +UX3+DdsIG5liKxQkw+Fg2PS9b+uN0Mm/cfLj5D5o3Ob7WdSedN4bykTJPtjB +NLT19DXC4JiaSF32Prg78VlhKtkIr5+0HJ513gsagcxqtS4jdL+5szhDfzec +VXb8dfSdET5n88+yFHfD1Ed/g54PRii6q+jCmMBueOiRkp/Va4TzlNT7Z1p3 +gYvzx3TZESOUz7gScHn/LjjEStorwmeMLFmrW52lodAo3sIYUTNGzyNCVv02 +IRD4cMex4n3GqCiyxUA2OxhGdw9GWUYYo99HVpj0qWA4qLQr9G2kMfJeXHFX +iwiGU4f3uMzGGKPZUhmRaOtgKDKJpLOPG+PZT6urpseDYK70aGVdpjHGpMYW +alkHwfnCrKnXdcZ46S19zm5RIFRnt20fl2biguLrkz9u+cMne4ZPJIWJQuNq +//ic9we+n7u3/ifPxHxZMYu38f5gtlHIUZDOxKUvzR+OevlDwyITIzkNJnJf +ONY8o/hDs/8NkfWmTLR/bnxX+5wfdKmGFKQFMZFIHnJxSvGFqb8Xfqz9l4lT +2ZptEm5e0O9ulX2ynImO25v9ophe0PHXGeveCiZecHXSHKd6QYWv/JXLNUyc +ZTJNVAe3QSLFwGS+iYn14ndqjydsA7HkkMNP3zExa9WlEJ1iT9AKfsMXyG+C +GgeaHlWt8oAAtXyRTAcTzFaWMW222wzRj71D1J1N8F7cFN1MfzOkBUo847mY +YIjuDbnnipuh8vahlGebTbD4q+Zy5VF3kFK3XjHvZ4LpJVUWDefcoUH9i5Rv +pAlOhwc5Dr7bBBqraHT1Gya44/w6e4NENxjXuGDIGzNBc6XoyMuCLtDRjJaS +kyYoHHchizK1EWrCRl0jpk1wUNJs7G7PRkjl2ewz/GWCSSnlvT+rN4KGCd+9 +BwIs9F7T3+oQsxH8bXYz6mRYaKe1RL9yyhnagjcsa2Oz8JdHqcyLPicoy/3v +83QyC5WWMjxcte3B0Dzih+1pFopTDKxbxO2h5PPwsuwzLPx3T/zW4Bk74FE/ +GNmeZ6FaZt+17mo7uJdRcybrKgunpx3ye1ztIDslibmhgIUrVfq0PONt4WTE +inMZrSyMF/OhRQ9ag7Bkct7IGxa2PSma7GyxhuNcvkqzDhb2fksvcyq3hmOj +4/3D71hoti/l1eFkaziyo429vp+FK47I+nevtIbwbVe+Dcyy0KTk6IGrIRvA +w0IFWVQ2Okyq1hQvWMJ8m7BoHZ2NwmWnf7V9tYTswNFuWxU2mv3zPnvZK0vo +P14e5bGKjWnefp8fZVtCeJNT4SFdNgZGlgiamVvCKcfD1DIrNkpa++adSLGA +B1vezOnvIdc7RnvdXGsOXgMPnlbuY6OO6Tr/k/LmwBednWERwUbXZMfdxwXN +wepqqL7bITYenEpyqO42g9fvF+3af5SNJRO/jTROmsGg/5pubjob4yvVxtq+ +rgeF3SfK19Swccqrwoe/GCF1IcjgdC0bez6HxeXlIPCft+J+rWfjyH+XBD3P +IQyWCt7NbmLjy79fi06HITzgO5Yh0cpG87+kM4c0EDwuxkfNfGHjjdyi4vt2 +ABkVhwweLuUgQ1J45UVHDixz3MqVF+WgX1LArdq1HIj/ZKwdJcZBzedJf4uK +c2CH4KzqOmkO2htZDvxuZYORU6RUDpWDKXIpZziebHjbEz6ZpMPBvpBfn5T2 +sEB6yS6uw2YO6kQf1K/NZ0KueWz02FYOPjVa6rjhDBN0Y1PNL2zjoC3NKmok +jAmOY0VvOvw46NCRf+iaLhOOv53+GbCLg3esTz9NqDCG2Zw4s+gEDn72UnBx +bDWCLtaF1rx8Dt4f0q6RkzeEHQdyr9kUcFCrfgM9acEAZgpKAoeLOLjuutWT +5V8MQEK544dOKQfPXDOOiiwyADthJcWqGg7miyxgjrUBVLblbW99w8E3Rdmd +tkf0wVa0TDuyg4NdSm+DYgP1oWND0wylm4PVgrnRz+z1YerBULL3Jw6++0Vr +KlfQB+2b6+4PDHKwTFp32bsHelDZtT4yZYSDRQdVO77m6IGtlCusHeNg04CG +q+hpPQg6caAlYpqDNcbew/946sFUzfFM2VnyeymWvaFb6EHir/SAB784WD4X +9xdXSw/E9O9qec1z8AD/MW9PaT3I2v1gemGBg0FH/m6i/daF/wEGZRow + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07801990968321884}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07801990968321884}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9942577982979794`*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"58d84efb-cf02-425a-b350-0179c0fcd67b"] +}, Open ]], Cell[CellGroupData[{ @@ -7820,14 +7961,12 @@ Cell[BoxData[ FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.9918492800964603`*^9},ExpressionUUID->"9051a5e3-bb9f-d941-bcca-\ -598d0b6835be"], + CellChangeTimes->{3.9918492800964603`*^9}, + CellLabel->"In[96]:=",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], -Cell[BoxData["9.33220071900516`"], "Output", - CellChangeTimes->{3.991334803166374*^9}, - CellLabel-> - "Out[254]=",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +Cell[BoxData["9.43924826948457`"], "Output", + CellChangeTimes->{3.991334803166374*^9, 3.9942577983479023`*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"91fba6d1-773a-48d1-917d-6042a6408c11"] }, Open ]], Cell[CellGroupData[{ @@ -7883,191 +8022,193 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918492818821335`*^9},ExpressionUUID->"65a995ff-ff3d-634e-9bad-\ -4a8a16073236"], + CellChangeTimes->{3.9918492818821335`*^9}, + CellLabel->"In[97]:=",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.015132160320536`*^-259\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 255, 233, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133480336051*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.7584423203618`*^-253\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 97, 13, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133480336051*^9, 3.994257798474257*^9}, CellLabel-> "During evaluation of \ -In[255]:=",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], +In[97]:=",ExpressionUUID->"0e38159c-c95a-4573-b172-b7a79a121df4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.802481548114291`*^-269\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 255, 234, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991334803369583*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.688434379377498`*^-262\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 97, 14, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133480336051*^9, 3.994257798484394*^9}, CellLabel-> "During evaluation of \ -In[255]:=",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], +In[97]:=",ExpressionUUID->"ae8006e3-3d25-4fe2-889f-17f725557628"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.803946040382125`*^-279\\\", \ -\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 255, 235, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991334803378134*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.619058151770503`*^-271\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 97, 15, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133480336051*^9, 3.994257798492544*^9}, CellLabel-> "During evaluation of \ -In[255]:=",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], +In[97]:=",ExpressionUUID->"3b11054f-0d20-42d6-b61b-96ea8d3e7976"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 255, 236, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991334803386196*^9}, +during this calculation.\"", 2, 97, 16, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133480336051*^9, 3.994257798502132*^9}, CellLabel-> "During evaluation of \ -In[255]:=",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], +In[97]:=",ExpressionUUID->"698ec3a2-ab63-4a4f-9c2a-cd8b383c1155"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK -ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS -Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 -ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN -7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I -q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F -Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E -8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 -BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q -oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox -nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa -eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY -UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq -kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD -Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 -ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU -NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja -6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS -TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr -/i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm -7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc -F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ -tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD -2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM -fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 -dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz -0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj -g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 -+SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI -lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk -t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi -88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH -sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 -q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E -we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ -a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK -c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 -ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV -xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib -PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki -mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs -7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 -6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao -d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT -VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 -FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c -JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm -Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E -0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti -Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX -8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp -I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj -HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 -ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff -tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy -+LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj -Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e -mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc -JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 -qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw -BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc -HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 -p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix -mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD -2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 -o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV -YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld -Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB -T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 -OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR -6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy -dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb -7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 -ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ -qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk -efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB -cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc -I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 -cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T -jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC -luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv -5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP -9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 -ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV -Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm -hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j -9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm -4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq -s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h -Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB -BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj -7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK -idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T -Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop -J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc -HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD -+0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v -+NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy -j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR -8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn -JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N -vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V -SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 -640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP -GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC -DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz -ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 -XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 -9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt -voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX -rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 -bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l -Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 -WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV -YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 -YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT -78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM -V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf -1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are -1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy -7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx -POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB -eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k0VV0bAHClooHKPF6zzLOL617Pg8gUUryRMpQhKRQSDQiRISoZUoak +pEz3qAxFlEwVRYQyRKkQIRL5zvfXWb911t5r7/0M+xwJdz87j9UsLCyHVrGw +/P/5+1Pzc+n4fAND3eCeUeUdBp03BU4Z9kTCw0PHr2gbywDyvnEX6LkMen83 +CK4x1oZg23vdrD15sMD+3n/QyAS2TvJf/tNdDlKOstN5RvYwUGPtN9tdD3Jq +VRe6DD3AVPr7x+nut/B1NQYSBkHwp1sndap7GBY/KH0y0IiGBuM7+R15M2D5 +qNjld38qiAxUfnFXWobG79ulaPPZwOPrco/NmBUrdlg9iCrIh8vqptXW9uxY +8yr3F791IXxIV6ub3sKBo3pW/IfUH0Dmu6LNwTIcePb88i8VwwfgxLnNZVGP +A599LPOdsn0A/edF/60+yIHrEo4p/Of/AAaPbaDzVHAg28I+d2bxAxjbPvKI +6siJj0IKj96SL4aFqbSSsNzN2BX52cxMoATi88+9WS24FYPZOSxmj5SChdZh +Ll6prdhlpHM+/HgpsD+3s9+mvBWZWj/a2U6VQtRnmT5Lw604/34qny2mFE5L +tn25engreo2sbGrLLoVjOQL/ZKu2Ykt8Wofn21LYlVWmZLmPC2XHQ2z7Nctg +i9J1v/0eXKjItftjk14ZvK6OKvfz40LrFI99pVAGFn3/6V49z4WaFUe3+VuW +gZHQP+OPRVxY1KIwWu5eBlrpFvv8lrjwtJO32vbkMuC/+jnuyg1uZDyxsUn+ +WgYCihVRCwXcKFetmnZ2vAyE6mPO7S/lRveMXe7e02VAmZIP2tbAjfGfzMJV +/paBjJW/a/UYN45fmGyL4iwHzTXL1M+aPMh1zs/AUascbAL5RjRaePCqwHTi +zdPlYLtx7FPaOx6876XsuhReDnZ5lR+W+nkw0CD7rn10OTi0O79p/MmDs5zL +mYuJ5bBf6VaVEy8vhjksLnNkl8OREdWUSFderH1cG+1UVw4X9pgbvP3Ni8z8 +n4ZxK+UgRLwWWr2KD5Uc1Oh3WJlQzL1nXn0jH6bXZ32oZWPC+7cHSlPE+NBm +oXB5cDMTpHcFSu4y40OVXQtjw2JMqN+Zva49gw/l3BJ2jBowYdl07vUrOj/m +CBqfHQlhQnJBaNGyKT+adsh+cThNjl/HEqu8ix+Hqw7PNJxjgtWLDYaJHvxI +vzf3LzGGCZnG4kyrJH4soLENDV1hgi5aprUO8CNHw5fNcQ+YcEIv16U5UgBv +nli42N3PBIsczlnLBAFUbDEQ8R9ggiTb6djXqQKorKHFsWaYCe2dDmXv7gpg +4sb+zZSvTFDx38T66bUAVpTZ5AtNM2Gs4GTBLyFBVP0y7k9dQ0AtxygtSFoQ +NzzbpRm9joBrgXZv5pUF0aNy3PkNOwEmRsoLSyiIJrHDX+05CMj7OGzO5iWI +jT2LPxT5CHDmsZ4QZgriAH+r4pIsAZph1RE3awRxzUBk/ip5AjYMy/FJNAri +jbOFiasVCagsYQXZD4L4sqCV+VuFAD7LymS1FUG8rxXqdpdKQHuEtJaJpRBO +P0/uUTch4M5YStPLPULYNn/lzqQpAWdtVpwtDgjhAWJkusCMAGXR3mibACF0 +XTzwd70VARcfX+p2TBPCUcPc3xl2BGz/uRh67LMQ1vYN04YPEHDK7KrCs3Eh +lB50e2PjSkBxrnIv928hjJaiClS6ESCwx1Wvkl0YxXNXtZw9RMD44xfzrCrC +GPPS5/n7wwRciUwOzAgRRmNW59bKEwQ09clLj0cIo6+nwbrPgQQsaTW8M4gX +RsuagtXswQR4fp3TGLkhjAEmMcYmIQTQrPZNqzQII89X3X8JpwkY5pU99pxD +BD1X3ZGwiyKA369WlJ9fBL28Dw7qRBNg1bT31WFxEdTu0vETjCHgYWi80mZN +EVR1WGJpv0Dud2Dqu+NeEZQXZ9uyMZ6Mp+7FzPtuIvgnPtHnDenZFCmLFR8R +5Dgxl3UpgYAD2x0K88+I4D1br0TWJAI0Cqu9fuaJYJ3CxsrKZAK8VtvzG90X +wSLltknnFAKy9k02Xq0QwYqz8WuWSK/jlJClNYngTKdip/IVAvS9qroSOkTQ +ylcquY60f93u6IFeEfQNNFWzuUpA7/GYkagJEaR+NpdwTSVgc5vY1e7fIhg7 +axE4THq7TKWxAoso0loel7heI+PR/SPvDZcoGn6QH7FNIyCCvstNSFcUXW63 +u7FkEGB24OYvHSNRlI0b1/IhzRn+47y9lSiyBaobviGd1RBdkOwqitbZ3zfE +ZxJwcPStTrGPKOpoM1qHSCuwiTe3BoriudCgFs3rBDy2qPqxLk4UtWU845tJ +n/NlOyN9RRS99DfYcmQRYJq0h9PohijWuhxxtCLNUZqb7XJHFFUSWAtjSHd2 +TKqdKRPF7S7WWEP6+ox+fWa1KN4XahafIO3OG7f78QtRHM39ZSl4gwB5nfcj +XW9E8WOIZQOSntorFTzzQRQv1tvHHiT9KNSfbeuIKEZCalYE6bNZT9JVJkUx +z+rSquukTZ5uULBaEMWsIfLASG8a/K/68GoKFl5qb6gl/W7VbasLmyj495yC +dCvpTKlfH/P5KJh0/FBfB2lXE/CrF6dgbM3GH+9Ib/NKYBlUoOCSacme/7+f +jP2QsqxFwYDEAcEW0sQ9WSlhoKBvlgr9KemwthOErjkFlbeoPXlA2miyzsRh +NwU5uE/dTCe9fgtn94n9FHR0zhk6S7pdfZ93ihcFb6gYxLqSTtt9909xAAWD +HMavMEgfCJq72BZGQVZ503V8pGXSjES+R1MwPHJs8FvW/+vv0gO2ZAr2PQ+Q +qSTN7O03kMmkoM37iK7zpEOX5NuN8inYL1b1y5y0IeWkm2sxhcz/J2c3kmbH +57/OPKbg6mi1sCYyvqnnD/BWtlGwyOBfqxZp59tFBe/fU3DWtFBqhMwPyZcL +OrOD5Hl6H/qVRLp0wxUn1TnyfJ5V/31P5tdJpcEfVisU3MlG6AWSNrBWPuOz +XgzjzwbObSLdlvIy+7aoGHYL8E2opZP9gsmj3rBNDE2HDijVkPns1OVWP6gu +hh5SMGVEekxgaUTYVAyXBG9vMibznzVHTeHyMTEcVfNr4iDrp+XZmeqSEDH8 +KP7WOYisr+TPLVavIsXQRKPkfM9lAijbPPzY08Sw+fznSylkfdKKM4iztWIY +ytX57jVZ39u7Xy9PNolhSsTWATHS1ixrdri8FUODnjLho4lkfdgd+wCjYnh+ +x7zKEtkvTMMkzoWvFcfAex1fxmMJaN1cc0t3gzjufrSvQIy0bb5D0xSnOJ56 +LHTLmuw/+17Fb3UTEEc2N02nXLJf+Yv9vmWoKI4m0mNjgpEEzDGTm/6oiqNA +q2KNSgQZLzPFiTItcSzmruiBcAKiA1ypkgbiuJGVOeNwlszXhpam1bvEcUrc +on9vKAHPvbInGoLF8WHgvrf3AwgwX9LjOh0mjs9u/PsV40/A6+ROqlY4Ob9U +TdB+PwI+VK4Pz48Tx2OjvXdWfMl83hjIFZ0ljg6Bcj8EvMn+XmqmY1ovji8T ++/fk7CfAd2E6vIlDAkcr1vFzkvcLLcCT7wuXBB7d22Nnv53Mn++9RawCEviJ +2yIh3YiA230N7w0kJbBOJo+FGwj49DRVqYIqgXEZRxR7dAiwidbryXWRwOMa +/cduy5H9lStCNaxMAgMr/mzYx0YAS/zc8/SHEugjsqIlu5ZcP6uP08NqCbQp +Ebg1sZqAI3N20dMvJPCrzuU9Af+YkN8j3efVK4E07a1WVnNM4MtuitnDKon/ +fnnF25H3/R/FLZ+U7SUxqn7LodJKJvy+IRSh6SSJPLlRv3keMWF2s4y0nosk +dq17RA0mmDA5o+ez/bAkcsrrN6uUMGG4+uBvpzOSyMgSCgrJZ0KL5SPO2NuS +aHTldb9fEvl9cuQADM9JIr9kUtE/FybQi+7nXLsmhS03HzCFF8uhT7wo2+S6 +FL41303M/y6H0GuFN2ezpZCzkd+2Y6YcHkUUZNkVSqHaxijXMxPloLE3J52z +RgpNzucJVg6Wg/zaq8kxQ1KomkS9UtdYDnwuYeHBStIoso23XySlHKa5LFwd +6qXxZu7TxkCxchhJcHU4ziaLdYFO0nc3l4H5z5Pmo9RtuBTtdB9nSmD8IPsJ +4pwcxiljh2PQA/J/gn/1hXp5pL6o/vnl5z3geiWbVPpTATWWXzI4L98FkdgS +WypVCS+6mCWNry+AdEW9LdxeymhUf5Vv/uktaBEy1J5JUUEtnkUB7fRcoInU +J6u+V8XQHFW97803gZM1L9AtUg3PDLtp/p3PBEqEGN1RVh0V++6eSldIg/Uy +zg/tXqqjdXXL4mjzFVBhCJac3K+B9Ii9NYJzyXD8E1eDBYsmcq7557AlKAF+ +ziTYm6drIjWLw+n64gXYodqYaa6shYVKNDeaZBQ8ndH/O/9aCyvTV+2mXAiH +Y0oavR0e2pjsdVuwzSoMguaFFl28tTHhbpFAo3YYnK5nFZr00Ub+/ftY2ilh +EL+3y3GDvza+LBHy5Z4OhbtRIR+MQrVRzLF59L9roTDc/7SHmaSNylSBr+2f +T4FDomV36iNtZG1wt7S5GAKMyUOdjuupCM+3pg2wBgNf9Y68mo1UrIvU6B6Y +DoLJCwr+YpxUTB0acRofCIKbElMbR7mo+D5TjlehJgj+7Qkz9hehYvbVoGKd +oCCorU4pj1GlIvHtGl77FgiGcU+TmfZUbJOrO6LTdwJMpAV2cuRRUabr2tu6 +wQAgJl5IHMqn4oGAOsOfHQEg/ejE76oCKu54Jckl1xAAayzeZHsXUfH13em6 +x7cDoN4v5lcDQcUzQZdr7Y8EgEH1bFroSyq2JxrEn1rwB6pdx/DXcSqq1rV8 +MxLyB7nwiyH1OjoYlFSu4DPnCzX6t9da0XRQgPE0Nb7XF2znay930XVwuP/P +7vpaXwg5Nnd/zFAHZ3LnUv0u+kKTs+sQp5UOstHjnr8U9wVvParFPlcdpGha +nDm46wgU/hoSno3Vwcstko8nnx0GBQ+9WpleHdQJ+VR99aMnXJK0Xjzfr4P6 +W+X6RJo9YXbAXXv4kw7Wla/vIghPeOqUUHTzsw56sJSr8yR4gp3tQBr/hA5C +h8S5S/qecEo/2n89iy6ytSss+t3wgKatHRITMrr4/K7c7VTfQ+Dx1DuKCNDF +EIc4jsNUd5g8+v2kSaAuZmRkOFGl3SFE1PfI+2BdtIvJvsjN5Q4XT/vZLYTp +IpfIDc/lCTcopQWL02N08dGNqc7EAjdYeni+piFTFxt2aLanCbnB5ZKbs28b +dFH7+3AwK6cr1OZ0Hprm1cPh9VpcTeAMg1YSLsECeig7YGGiLuUMLH+OOv4V +0sO4dRuWmOucwWgXm/VacT0MyFQpXPt6HzSuoukIKujh5/Svs93790Gbe/Z6 +QwM9tM6wZJeLdIJeaZ/iZE89nHB89nKufy/M3l2ZV32kh41fUqwOddvDFwfT +nLhKPfz4IW5ctt4eetYkmn2u1sOwIP9vf+/bQ7WrUMa1Oj1UKrj+vD/SHiIF +tGnLzXqo4zcXH6JqD1tifU639Oth/v1dbzcl7AElry4Wj9U0PDW7YLXTbjcc +lClan7mThvnRHl5Ht+yC0BcHfGRtaRgnneE+s2wLyR5creV2NOQ502Ya/8MW +am6fSmj9j4Zi92eSphptgUfWbPOyGw05RdIiLp21hUbZUR7XYBouUmLtpIdt +QEFOTFw2m4bWzUP7E17sBGx6G16eS8OiCu7E3vyd4OAdM2SQT0PvJ1HLZlE7 +4fzdibz/Csn1PGzXijHeCf1yNTJxTBomBlWwnmuwgiR5R8XxlzQc9g+/bNds +CdMKV6jlUzRk99ZMbfphDj1taMI9Q8MasYjNXe3mUHdscnfgHA1tth9vXaww +h6Ry8wDqIg1zOY48TAk3BwUay/0qVn28NdZI+cFnDu7mRyUa+PSx8rTlVZqZ +GXR67djUSddHn5Y3l57VmEL1+jkhbdBH5T6T5Df5ppBXlCd/zVAfRedtnGcT +TMH/57LpXlN9fOpUujFyvylwnCQi+m30kfOpZVXRigmYxkjMj7jro8STbzxy +ZibwOP/v0FysPjq+ZGiZfDMGqnHgvEW8PnKwL5ed6DSGiqHxTTmJ+sh2YuZ7 +Ra0xlFM+6Vhc1sdJIeWdQdeM4X56XeLN6/q41qR146ftxpCTEK23o1gfXVvF +9pvfNoK4wM0p6e/00bu3YlAg0BDYuWMLJrrI9Typ/57tZggxZSw1Rj362Brb +VKlrYwhRk9NfxvvJ9edU+2QrGMJZ70664Rdyf2uOBsMwwnHnjLFvC/rosqxs +9mQPgtN2KdSn0HG6xXdDaoIBLHeyczaI0/Fts0kq72EDyPGY7LOQoqPvB/6H +1SYG8CWm8qSTHB13Je5UDllhwPFmm5JTGnTsyQqWKA5kwEXr05THpnSkXM2b +/elBh6q9XUtafnQ8ljthP+BOg/3fqlpqAujI/6Ygq92YBiyhOenbA+no+VjC +/LM0DUyvH9Hac4qOTX/E9vh+1YO3H1f5njhPR/dXwk/WH9OD7+4qfWVpdHT1 +sY1yiNAF4aMXKlXq6Dh37sN291oqJK14asfX03FldXIDdwEVVl82Lfv6nI7R +4oyNAwlU+P5wbWFOMx1Pv11Jq3eiQhVLVDrXOzpemnkgUj2vDU5Xw0/+HqXj +i5rFx/up2pBefUr76UYG/vHNXtP2QhM2WTuWCXEy8HlZWMHFEk0IH9RVPrmF +gbUD9aauGZrgvXZBWo2XgQ3Nj5Rtj2qCjk0wTx6FgbpaX0yRTxPeDx+fiVZn +4PSlqsM2vhrAu8G3bOd/5Pgxi6FMOXXINz4TOuXIQN+XJTyvuNRB40yS8RVn +BlqW014ILKuB9VRpV48bA1UjZjWWOtQg5v3cn4O+DDxEueQ0dVoNFvLOGYVG +MFD4Qvm3iWJV6NW/8q6giIGctp+HUunK4B2Un2VezMBrsJgyx6cMv4srPMZL +GSjE5z4WMa0EXJI98+oPGXhEK7xZ7I4SWLKLijypI+e/tUntCI8S1HQWHHrX +xcBbEZEV/PMKYMH5WDm4h4HBYydeKXYqQM+O5t8CfQz072zMP1ymALNVP2IP +DDJQfUPRRzdfBVDOVXvw7TsDJ46aX4MReajpNQxOmGDgpsW/L7Lq5cGCZzeo +TjHwunH4LslcefC8ENQROMdAi3tmr24fkIfZuphM/gUGPotI97zFkIfIxbSD +VYsMfGTd8aBJRB62aBUq7V9m4Fznp5O8S3Jw82jV3MoKAxPcujLi+uTgf1xt +F8w= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -8081,150 +8222,149 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK -ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS -Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 -ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN -7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I -q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F -Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E -8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 -BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q -oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox -nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa -eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY -UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq -kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD -Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 -ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU -NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja -6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS -TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr -/i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm -7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc -F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ -tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD -2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM -fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 -dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz -0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj -g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 -+SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI -lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk -t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi -88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH -sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 -q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E -we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ -a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK -c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 -ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV -xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib -PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki -mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs -7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 -6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao -d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT -VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 -FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c -JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm -Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E -0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti -Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX -8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp -I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj -HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 -ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff -tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy -+LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj -Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e -mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc -JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 -qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw -BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc -HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 -p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix -mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD -2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 -o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV -YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld -Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB -T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 -OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR -6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy -dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb -7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 -ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ -qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk -efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB -cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc -I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 -cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T -jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC -luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv -5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP -9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 -ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV -Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm -hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j -9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm -4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq -s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h -Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB -BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj -7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK -idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T -Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop -J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc -HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD -+0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v -+NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy -j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR -8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn -JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N -vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V -SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 -640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP -GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC -DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz -ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 -XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 -9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt -voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX -rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 -bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l -Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 -WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV -YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 -YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT -78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM -V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf -1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are -1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy -7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx -POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB -eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe +1:eJwV13k0VV0bAHClooHKPF6zzLOL617Pg8gUUryRMpQhKRQSDQiRISoZUoak +pEz3qAxFlEwVRYQyRKkQIRL5zvfXWb911t5r7/0M+xwJdz87j9UsLCyHVrGw +/P/5+1Pzc+n4fAND3eCeUeUdBp03BU4Z9kTCw0PHr2gbywDyvnEX6LkMen83 +CK4x1oZg23vdrD15sMD+3n/QyAS2TvJf/tNdDlKOstN5RvYwUGPtN9tdD3Jq +VRe6DD3AVPr7x+nut/B1NQYSBkHwp1sndap7GBY/KH0y0IiGBuM7+R15M2D5 +qNjld38qiAxUfnFXWobG79ulaPPZwOPrco/NmBUrdlg9iCrIh8vqptXW9uxY +8yr3F791IXxIV6ub3sKBo3pW/IfUH0Dmu6LNwTIcePb88i8VwwfgxLnNZVGP +A599LPOdsn0A/edF/60+yIHrEo4p/Of/AAaPbaDzVHAg28I+d2bxAxjbPvKI +6siJj0IKj96SL4aFqbSSsNzN2BX52cxMoATi88+9WS24FYPZOSxmj5SChdZh +Ll6prdhlpHM+/HgpsD+3s9+mvBWZWj/a2U6VQtRnmT5Lw604/34qny2mFE5L +tn25engreo2sbGrLLoVjOQL/ZKu2Ykt8Wofn21LYlVWmZLmPC2XHQ2z7Nctg +i9J1v/0eXKjItftjk14ZvK6OKvfz40LrFI99pVAGFn3/6V49z4WaFUe3+VuW +gZHQP+OPRVxY1KIwWu5eBlrpFvv8lrjwtJO32vbkMuC/+jnuyg1uZDyxsUn+ +WgYCihVRCwXcKFetmnZ2vAyE6mPO7S/lRveMXe7e02VAmZIP2tbAjfGfzMJV +/paBjJW/a/UYN45fmGyL4iwHzTXL1M+aPMh1zs/AUascbAL5RjRaePCqwHTi +zdPlYLtx7FPaOx6876XsuhReDnZ5lR+W+nkw0CD7rn10OTi0O79p/MmDs5zL +mYuJ5bBf6VaVEy8vhjksLnNkl8OREdWUSFderH1cG+1UVw4X9pgbvP3Ni8z8 +n4ZxK+UgRLwWWr2KD5Uc1Oh3WJlQzL1nXn0jH6bXZ32oZWPC+7cHSlPE+NBm +oXB5cDMTpHcFSu4y40OVXQtjw2JMqN+Zva49gw/l3BJ2jBowYdl07vUrOj/m +CBqfHQlhQnJBaNGyKT+adsh+cThNjl/HEqu8ix+Hqw7PNJxjgtWLDYaJHvxI +vzf3LzGGCZnG4kyrJH4soLENDV1hgi5aprUO8CNHw5fNcQ+YcEIv16U5UgBv +nli42N3PBIsczlnLBAFUbDEQ8R9ggiTb6djXqQKorKHFsWaYCe2dDmXv7gpg +4sb+zZSvTFDx38T66bUAVpTZ5AtNM2Gs4GTBLyFBVP0y7k9dQ0AtxygtSFoQ +NzzbpRm9joBrgXZv5pUF0aNy3PkNOwEmRsoLSyiIJrHDX+05CMj7OGzO5iWI +jT2LPxT5CHDmsZ4QZgriAH+r4pIsAZph1RE3awRxzUBk/ip5AjYMy/FJNAri +jbOFiasVCagsYQXZD4L4sqCV+VuFAD7LymS1FUG8rxXqdpdKQHuEtJaJpRBO +P0/uUTch4M5YStPLPULYNn/lzqQpAWdtVpwtDgjhAWJkusCMAGXR3mibACF0 +XTzwd70VARcfX+p2TBPCUcPc3xl2BGz/uRh67LMQ1vYN04YPEHDK7KrCs3Eh +lB50e2PjSkBxrnIv928hjJaiClS6ESCwx1Wvkl0YxXNXtZw9RMD44xfzrCrC +GPPS5/n7wwRciUwOzAgRRmNW59bKEwQ09clLj0cIo6+nwbrPgQQsaTW8M4gX +RsuagtXswQR4fp3TGLkhjAEmMcYmIQTQrPZNqzQII89X3X8JpwkY5pU99pxD +BD1X3ZGwiyKA369WlJ9fBL28Dw7qRBNg1bT31WFxEdTu0vETjCHgYWi80mZN +EVR1WGJpv0Dud2Dqu+NeEZQXZ9uyMZ6Mp+7FzPtuIvgnPtHnDenZFCmLFR8R +5Dgxl3UpgYAD2x0K88+I4D1br0TWJAI0Cqu9fuaJYJ3CxsrKZAK8VtvzG90X +wSLltknnFAKy9k02Xq0QwYqz8WuWSK/jlJClNYngTKdip/IVAvS9qroSOkTQ +ylcquY60f93u6IFeEfQNNFWzuUpA7/GYkagJEaR+NpdwTSVgc5vY1e7fIhg7 +axE4THq7TKWxAoso0loel7heI+PR/SPvDZcoGn6QH7FNIyCCvstNSFcUXW63 +u7FkEGB24OYvHSNRlI0b1/IhzRn+47y9lSiyBaobviGd1RBdkOwqitbZ3zfE +ZxJwcPStTrGPKOpoM1qHSCuwiTe3BoriudCgFs3rBDy2qPqxLk4UtWU845tJ +n/NlOyN9RRS99DfYcmQRYJq0h9PohijWuhxxtCLNUZqb7XJHFFUSWAtjSHd2 +TKqdKRPF7S7WWEP6+ox+fWa1KN4XahafIO3OG7f78QtRHM39ZSl4gwB5nfcj +XW9E8WOIZQOSntorFTzzQRQv1tvHHiT9KNSfbeuIKEZCalYE6bNZT9JVJkUx +z+rSquukTZ5uULBaEMWsIfLASG8a/K/68GoKFl5qb6gl/W7VbasLmyj495yC +dCvpTKlfH/P5KJh0/FBfB2lXE/CrF6dgbM3GH+9Ib/NKYBlUoOCSacme/7+f +jP2QsqxFwYDEAcEW0sQ9WSlhoKBvlgr9KemwthOErjkFlbeoPXlA2miyzsRh +NwU5uE/dTCe9fgtn94n9FHR0zhk6S7pdfZ93ihcFb6gYxLqSTtt9909xAAWD +HMavMEgfCJq72BZGQVZ503V8pGXSjES+R1MwPHJs8FvW/+vv0gO2ZAr2PQ+Q +qSTN7O03kMmkoM37iK7zpEOX5NuN8inYL1b1y5y0IeWkm2sxhcz/J2c3kmbH +57/OPKbg6mi1sCYyvqnnD/BWtlGwyOBfqxZp59tFBe/fU3DWtFBqhMwPyZcL +OrOD5Hl6H/qVRLp0wxUn1TnyfJ5V/31P5tdJpcEfVisU3MlG6AWSNrBWPuOz +XgzjzwbObSLdlvIy+7aoGHYL8E2opZP9gsmj3rBNDE2HDijVkPns1OVWP6gu +hh5SMGVEekxgaUTYVAyXBG9vMibznzVHTeHyMTEcVfNr4iDrp+XZmeqSEDH8 +KP7WOYisr+TPLVavIsXQRKPkfM9lAijbPPzY08Sw+fznSylkfdKKM4iztWIY +ytX57jVZ39u7Xy9PNolhSsTWATHS1ixrdri8FUODnjLho4lkfdgd+wCjYnh+ +x7zKEtkvTMMkzoWvFcfAex1fxmMJaN1cc0t3gzjufrSvQIy0bb5D0xSnOJ56 +LHTLmuw/+17Fb3UTEEc2N02nXLJf+Yv9vmWoKI4m0mNjgpEEzDGTm/6oiqNA +q2KNSgQZLzPFiTItcSzmruiBcAKiA1ypkgbiuJGVOeNwlszXhpam1bvEcUrc +on9vKAHPvbInGoLF8WHgvrf3AwgwX9LjOh0mjs9u/PsV40/A6+ROqlY4Ob9U +TdB+PwI+VK4Pz48Tx2OjvXdWfMl83hjIFZ0ljg6Bcj8EvMn+XmqmY1ovji8T ++/fk7CfAd2E6vIlDAkcr1vFzkvcLLcCT7wuXBB7d22Nnv53Mn++9RawCEviJ +2yIh3YiA230N7w0kJbBOJo+FGwj49DRVqYIqgXEZRxR7dAiwidbryXWRwOMa +/cduy5H9lStCNaxMAgMr/mzYx0YAS/zc8/SHEugjsqIlu5ZcP6uP08NqCbQp +Ebg1sZqAI3N20dMvJPCrzuU9Af+YkN8j3efVK4E07a1WVnNM4MtuitnDKon/ +fnnF25H3/R/FLZ+U7SUxqn7LodJKJvy+IRSh6SSJPLlRv3keMWF2s4y0nosk +dq17RA0mmDA5o+ez/bAkcsrrN6uUMGG4+uBvpzOSyMgSCgrJZ0KL5SPO2NuS +aHTldb9fEvl9cuQADM9JIr9kUtE/FybQi+7nXLsmhS03HzCFF8uhT7wo2+S6 +FL41303M/y6H0GuFN2ezpZCzkd+2Y6YcHkUUZNkVSqHaxijXMxPloLE3J52z +RgpNzucJVg6Wg/zaq8kxQ1KomkS9UtdYDnwuYeHBStIoso23XySlHKa5LFwd +6qXxZu7TxkCxchhJcHU4ziaLdYFO0nc3l4H5z5Pmo9RtuBTtdB9nSmD8IPsJ +4pwcxiljh2PQA/J/gn/1hXp5pL6o/vnl5z3geiWbVPpTATWWXzI4L98FkdgS +WypVCS+6mCWNry+AdEW9LdxeymhUf5Vv/uktaBEy1J5JUUEtnkUB7fRcoInU +J6u+V8XQHFW97803gZM1L9AtUg3PDLtp/p3PBEqEGN1RVh0V++6eSldIg/Uy +zg/tXqqjdXXL4mjzFVBhCJac3K+B9Ii9NYJzyXD8E1eDBYsmcq7557AlKAF+ +ziTYm6drIjWLw+n64gXYodqYaa6shYVKNDeaZBQ8ndH/O/9aCyvTV+2mXAiH +Y0oavR0e2pjsdVuwzSoMguaFFl28tTHhbpFAo3YYnK5nFZr00Ub+/ftY2ilh +EL+3y3GDvza+LBHy5Z4OhbtRIR+MQrVRzLF59L9roTDc/7SHmaSNylSBr+2f +T4FDomV36iNtZG1wt7S5GAKMyUOdjuupCM+3pg2wBgNf9Y68mo1UrIvU6B6Y +DoLJCwr+YpxUTB0acRofCIKbElMbR7mo+D5TjlehJgj+7Qkz9hehYvbVoGKd +oCCorU4pj1GlIvHtGl77FgiGcU+TmfZUbJOrO6LTdwJMpAV2cuRRUabr2tu6 +wQAgJl5IHMqn4oGAOsOfHQEg/ejE76oCKu54Jckl1xAAayzeZHsXUfH13em6 +x7cDoN4v5lcDQcUzQZdr7Y8EgEH1bFroSyq2JxrEn1rwB6pdx/DXcSqq1rV8 +MxLyB7nwiyH1OjoYlFSu4DPnCzX6t9da0XRQgPE0Nb7XF2znay930XVwuP/P +7vpaXwg5Nnd/zFAHZ3LnUv0u+kKTs+sQp5UOstHjnr8U9wVvParFPlcdpGha +nDm46wgU/hoSno3Vwcstko8nnx0GBQ+9WpleHdQJ+VR99aMnXJK0Xjzfr4P6 +W+X6RJo9YXbAXXv4kw7Wla/vIghPeOqUUHTzsw56sJSr8yR4gp3tQBr/hA5C +h8S5S/qecEo/2n89iy6ytSss+t3wgKatHRITMrr4/K7c7VTfQ+Dx1DuKCNDF +EIc4jsNUd5g8+v2kSaAuZmRkOFGl3SFE1PfI+2BdtIvJvsjN5Q4XT/vZLYTp +IpfIDc/lCTcopQWL02N08dGNqc7EAjdYeni+piFTFxt2aLanCbnB5ZKbs28b +dFH7+3AwK6cr1OZ0Hprm1cPh9VpcTeAMg1YSLsECeig7YGGiLuUMLH+OOv4V +0sO4dRuWmOucwWgXm/VacT0MyFQpXPt6HzSuoukIKujh5/Svs93790Gbe/Z6 +QwM9tM6wZJeLdIJeaZ/iZE89nHB89nKufy/M3l2ZV32kh41fUqwOddvDFwfT +nLhKPfz4IW5ctt4eetYkmn2u1sOwIP9vf+/bQ7WrUMa1Oj1UKrj+vD/SHiIF +tGnLzXqo4zcXH6JqD1tifU639Oth/v1dbzcl7AElry4Wj9U0PDW7YLXTbjcc +lClan7mThvnRHl5Ht+yC0BcHfGRtaRgnneE+s2wLyR5creV2NOQ502Ya/8MW +am6fSmj9j4Zi92eSphptgUfWbPOyGw05RdIiLp21hUbZUR7XYBouUmLtpIdt +QEFOTFw2m4bWzUP7E17sBGx6G16eS8OiCu7E3vyd4OAdM2SQT0PvJ1HLZlE7 +4fzdibz/Csn1PGzXijHeCf1yNTJxTBomBlWwnmuwgiR5R8XxlzQc9g+/bNds +CdMKV6jlUzRk99ZMbfphDj1taMI9Q8MasYjNXe3mUHdscnfgHA1tth9vXaww +h6Ry8wDqIg1zOY48TAk3BwUay/0qVn28NdZI+cFnDu7mRyUa+PSx8rTlVZqZ +GXR67djUSddHn5Y3l57VmEL1+jkhbdBH5T6T5Df5ppBXlCd/zVAfRedtnGcT +TMH/57LpXlN9fOpUujFyvylwnCQi+m30kfOpZVXRigmYxkjMj7jro8STbzxy +ZibwOP/v0FysPjq+ZGiZfDMGqnHgvEW8PnKwL5ed6DSGiqHxTTmJ+sh2YuZ7 +Ra0xlFM+6Vhc1sdJIeWdQdeM4X56XeLN6/q41qR146ftxpCTEK23o1gfXVvF +9pvfNoK4wM0p6e/00bu3YlAg0BDYuWMLJrrI9Typ/57tZggxZSw1Rj362Brb +VKlrYwhRk9NfxvvJ9edU+2QrGMJZ70664Rdyf2uOBsMwwnHnjLFvC/rosqxs +9mQPgtN2KdSn0HG6xXdDaoIBLHeyczaI0/Fts0kq72EDyPGY7LOQoqPvB/6H +1SYG8CWm8qSTHB13Je5UDllhwPFmm5JTGnTsyQqWKA5kwEXr05THpnSkXM2b +/elBh6q9XUtafnQ8ljthP+BOg/3fqlpqAujI/6Ygq92YBiyhOenbA+no+VjC +/LM0DUyvH9Hac4qOTX/E9vh+1YO3H1f5njhPR/dXwk/WH9OD7+4qfWVpdHT1 +sY1yiNAF4aMXKlXq6Dh37sN291oqJK14asfX03FldXIDdwEVVl82Lfv6nI7R +4oyNAwlU+P5wbWFOMx1Pv11Jq3eiQhVLVDrXOzpemnkgUj2vDU5Xw0/+HqXj +i5rFx/up2pBefUr76UYG/vHNXtP2QhM2WTuWCXEy8HlZWMHFEk0IH9RVPrmF +gbUD9aauGZrgvXZBWo2XgQ3Nj5Rtj2qCjk0wTx6FgbpaX0yRTxPeDx+fiVZn +4PSlqsM2vhrAu8G3bOd/5Pgxi6FMOXXINz4TOuXIQN+XJTyvuNRB40yS8RVn +BlqW014ILKuB9VRpV48bA1UjZjWWOtQg5v3cn4O+DDxEueQ0dVoNFvLOGYVG +MFD4Qvm3iWJV6NW/8q6giIGctp+HUunK4B2Un2VezMBrsJgyx6cMv4srPMZL +GSjE5z4WMa0EXJI98+oPGXhEK7xZ7I4SWLKLijypI+e/tUntCI8S1HQWHHrX +xcBbEZEV/PMKYMH5WDm4h4HBYydeKXYqQM+O5t8CfQz072zMP1ymALNVP2IP +DDJQfUPRRzdfBVDOVXvw7TsDJ46aX4MReajpNQxOmGDgpsW/L7Lq5cGCZzeo +TjHwunH4LslcefC8ENQROMdAi3tmr24fkIfZuphM/gUGPotI97zFkIfIxbSD +VYsMfGTd8aBJRB62aBUq7V9m4Fznp5O8S3Jw82jV3MoKAxPcujLi+uTgf1xt +F8w= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "PlotRange" -> {{0, 30}, {0., 0.0805332611887356}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -8236,19 +8376,19 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "PlotRange" -> {{0, 30}, {0., 0.0805332611887356}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8262,149 +8402,148 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK -ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS -Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 -ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN -7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I -q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F -Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E -8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 -BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q -oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox -nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa -eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY -UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq -kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD -Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 -ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU -NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja -6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS -TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr -/i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm -7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc -F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ -tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD -2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM -fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 -dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz -0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj -g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 -+SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI -lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk -t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi -88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH -sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 -q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E -we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ -a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK -c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 -ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV -xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib -PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki -mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs -7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 -6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao -d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT -VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 -FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c -JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm -Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E -0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti -Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX -8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp -I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj -HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 -ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff -tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy -+LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj -Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e -mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc -JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 -qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw -BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc -HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 -p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix -mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD -2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 -o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV -YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld -Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB -T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 -OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR -6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy -dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb -7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 -ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ -qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk -efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB -cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc -I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 -cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T -jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC -luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv -5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP -9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 -ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV -Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm -hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j -9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm -4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq -s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h -Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB -BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj -7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK -idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T -Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop -J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc -HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD -+0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v -+NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy -j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR -8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn -JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N -vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V -SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 -640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP -GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC -DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz -ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 -XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 -9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt -voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX -rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 -bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l -Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 -WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV -YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 -YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT -78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM -V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf -1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are -1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy -7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx -POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB -eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe +1:eJwV13k0VV0bAHClooHKPF6zzLOL617Pg8gUUryRMpQhKRQSDQiRISoZUoak +pEz3qAxFlEwVRYQyRKkQIRL5zvfXWb911t5r7/0M+xwJdz87j9UsLCyHVrGw +/P/5+1Pzc+n4fAND3eCeUeUdBp03BU4Z9kTCw0PHr2gbywDyvnEX6LkMen83 +CK4x1oZg23vdrD15sMD+3n/QyAS2TvJf/tNdDlKOstN5RvYwUGPtN9tdD3Jq +VRe6DD3AVPr7x+nut/B1NQYSBkHwp1sndap7GBY/KH0y0IiGBuM7+R15M2D5 +qNjld38qiAxUfnFXWobG79ulaPPZwOPrco/NmBUrdlg9iCrIh8vqptXW9uxY +8yr3F791IXxIV6ub3sKBo3pW/IfUH0Dmu6LNwTIcePb88i8VwwfgxLnNZVGP +A599LPOdsn0A/edF/60+yIHrEo4p/Of/AAaPbaDzVHAg28I+d2bxAxjbPvKI +6siJj0IKj96SL4aFqbSSsNzN2BX52cxMoATi88+9WS24FYPZOSxmj5SChdZh +Ll6prdhlpHM+/HgpsD+3s9+mvBWZWj/a2U6VQtRnmT5Lw604/34qny2mFE5L +tn25engreo2sbGrLLoVjOQL/ZKu2Ykt8Wofn21LYlVWmZLmPC2XHQ2z7Nctg +i9J1v/0eXKjItftjk14ZvK6OKvfz40LrFI99pVAGFn3/6V49z4WaFUe3+VuW +gZHQP+OPRVxY1KIwWu5eBlrpFvv8lrjwtJO32vbkMuC/+jnuyg1uZDyxsUn+ +WgYCihVRCwXcKFetmnZ2vAyE6mPO7S/lRveMXe7e02VAmZIP2tbAjfGfzMJV +/paBjJW/a/UYN45fmGyL4iwHzTXL1M+aPMh1zs/AUascbAL5RjRaePCqwHTi +zdPlYLtx7FPaOx6876XsuhReDnZ5lR+W+nkw0CD7rn10OTi0O79p/MmDs5zL +mYuJ5bBf6VaVEy8vhjksLnNkl8OREdWUSFderH1cG+1UVw4X9pgbvP3Ni8z8 +n4ZxK+UgRLwWWr2KD5Uc1Oh3WJlQzL1nXn0jH6bXZ32oZWPC+7cHSlPE+NBm +oXB5cDMTpHcFSu4y40OVXQtjw2JMqN+Zva49gw/l3BJ2jBowYdl07vUrOj/m +CBqfHQlhQnJBaNGyKT+adsh+cThNjl/HEqu8ix+Hqw7PNJxjgtWLDYaJHvxI +vzf3LzGGCZnG4kyrJH4soLENDV1hgi5aprUO8CNHw5fNcQ+YcEIv16U5UgBv +nli42N3PBIsczlnLBAFUbDEQ8R9ggiTb6djXqQKorKHFsWaYCe2dDmXv7gpg +4sb+zZSvTFDx38T66bUAVpTZ5AtNM2Gs4GTBLyFBVP0y7k9dQ0AtxygtSFoQ +NzzbpRm9joBrgXZv5pUF0aNy3PkNOwEmRsoLSyiIJrHDX+05CMj7OGzO5iWI +jT2LPxT5CHDmsZ4QZgriAH+r4pIsAZph1RE3awRxzUBk/ip5AjYMy/FJNAri +jbOFiasVCagsYQXZD4L4sqCV+VuFAD7LymS1FUG8rxXqdpdKQHuEtJaJpRBO +P0/uUTch4M5YStPLPULYNn/lzqQpAWdtVpwtDgjhAWJkusCMAGXR3mibACF0 +XTzwd70VARcfX+p2TBPCUcPc3xl2BGz/uRh67LMQ1vYN04YPEHDK7KrCs3Eh +lB50e2PjSkBxrnIv928hjJaiClS6ESCwx1Wvkl0YxXNXtZw9RMD44xfzrCrC +GPPS5/n7wwRciUwOzAgRRmNW59bKEwQ09clLj0cIo6+nwbrPgQQsaTW8M4gX +RsuagtXswQR4fp3TGLkhjAEmMcYmIQTQrPZNqzQII89X3X8JpwkY5pU99pxD +BD1X3ZGwiyKA369WlJ9fBL28Dw7qRBNg1bT31WFxEdTu0vETjCHgYWi80mZN +EVR1WGJpv0Dud2Dqu+NeEZQXZ9uyMZ6Mp+7FzPtuIvgnPtHnDenZFCmLFR8R +5Dgxl3UpgYAD2x0K88+I4D1br0TWJAI0Cqu9fuaJYJ3CxsrKZAK8VtvzG90X +wSLltknnFAKy9k02Xq0QwYqz8WuWSK/jlJClNYngTKdip/IVAvS9qroSOkTQ +ylcquY60f93u6IFeEfQNNFWzuUpA7/GYkagJEaR+NpdwTSVgc5vY1e7fIhg7 +axE4THq7TKWxAoso0loel7heI+PR/SPvDZcoGn6QH7FNIyCCvstNSFcUXW63 +u7FkEGB24OYvHSNRlI0b1/IhzRn+47y9lSiyBaobviGd1RBdkOwqitbZ3zfE +ZxJwcPStTrGPKOpoM1qHSCuwiTe3BoriudCgFs3rBDy2qPqxLk4UtWU845tJ +n/NlOyN9RRS99DfYcmQRYJq0h9PohijWuhxxtCLNUZqb7XJHFFUSWAtjSHd2 +TKqdKRPF7S7WWEP6+ox+fWa1KN4XahafIO3OG7f78QtRHM39ZSl4gwB5nfcj +XW9E8WOIZQOSntorFTzzQRQv1tvHHiT9KNSfbeuIKEZCalYE6bNZT9JVJkUx +z+rSquukTZ5uULBaEMWsIfLASG8a/K/68GoKFl5qb6gl/W7VbasLmyj495yC +dCvpTKlfH/P5KJh0/FBfB2lXE/CrF6dgbM3GH+9Ib/NKYBlUoOCSacme/7+f +jP2QsqxFwYDEAcEW0sQ9WSlhoKBvlgr9KemwthOErjkFlbeoPXlA2miyzsRh +NwU5uE/dTCe9fgtn94n9FHR0zhk6S7pdfZ93ihcFb6gYxLqSTtt9909xAAWD +HMavMEgfCJq72BZGQVZ503V8pGXSjES+R1MwPHJs8FvW/+vv0gO2ZAr2PQ+Q +qSTN7O03kMmkoM37iK7zpEOX5NuN8inYL1b1y5y0IeWkm2sxhcz/J2c3kmbH +57/OPKbg6mi1sCYyvqnnD/BWtlGwyOBfqxZp59tFBe/fU3DWtFBqhMwPyZcL +OrOD5Hl6H/qVRLp0wxUn1TnyfJ5V/31P5tdJpcEfVisU3MlG6AWSNrBWPuOz +XgzjzwbObSLdlvIy+7aoGHYL8E2opZP9gsmj3rBNDE2HDijVkPns1OVWP6gu +hh5SMGVEekxgaUTYVAyXBG9vMibznzVHTeHyMTEcVfNr4iDrp+XZmeqSEDH8 +KP7WOYisr+TPLVavIsXQRKPkfM9lAijbPPzY08Sw+fznSylkfdKKM4iztWIY +ytX57jVZ39u7Xy9PNolhSsTWATHS1ixrdri8FUODnjLho4lkfdgd+wCjYnh+ +x7zKEtkvTMMkzoWvFcfAex1fxmMJaN1cc0t3gzjufrSvQIy0bb5D0xSnOJ56 +LHTLmuw/+17Fb3UTEEc2N02nXLJf+Yv9vmWoKI4m0mNjgpEEzDGTm/6oiqNA +q2KNSgQZLzPFiTItcSzmruiBcAKiA1ypkgbiuJGVOeNwlszXhpam1bvEcUrc +on9vKAHPvbInGoLF8WHgvrf3AwgwX9LjOh0mjs9u/PsV40/A6+ROqlY4Ob9U +TdB+PwI+VK4Pz48Tx2OjvXdWfMl83hjIFZ0ljg6Bcj8EvMn+XmqmY1ovji8T ++/fk7CfAd2E6vIlDAkcr1vFzkvcLLcCT7wuXBB7d22Nnv53Mn++9RawCEviJ +2yIh3YiA230N7w0kJbBOJo+FGwj49DRVqYIqgXEZRxR7dAiwidbryXWRwOMa +/cduy5H9lStCNaxMAgMr/mzYx0YAS/zc8/SHEugjsqIlu5ZcP6uP08NqCbQp +Ebg1sZqAI3N20dMvJPCrzuU9Af+YkN8j3efVK4E07a1WVnNM4MtuitnDKon/ +fnnF25H3/R/FLZ+U7SUxqn7LodJKJvy+IRSh6SSJPLlRv3keMWF2s4y0nosk +dq17RA0mmDA5o+ez/bAkcsrrN6uUMGG4+uBvpzOSyMgSCgrJZ0KL5SPO2NuS +aHTldb9fEvl9cuQADM9JIr9kUtE/FybQi+7nXLsmhS03HzCFF8uhT7wo2+S6 +FL41303M/y6H0GuFN2ezpZCzkd+2Y6YcHkUUZNkVSqHaxijXMxPloLE3J52z +RgpNzucJVg6Wg/zaq8kxQ1KomkS9UtdYDnwuYeHBStIoso23XySlHKa5LFwd +6qXxZu7TxkCxchhJcHU4ziaLdYFO0nc3l4H5z5Pmo9RtuBTtdB9nSmD8IPsJ +4pwcxiljh2PQA/J/gn/1hXp5pL6o/vnl5z3geiWbVPpTATWWXzI4L98FkdgS +WypVCS+6mCWNry+AdEW9LdxeymhUf5Vv/uktaBEy1J5JUUEtnkUB7fRcoInU +J6u+V8XQHFW97803gZM1L9AtUg3PDLtp/p3PBEqEGN1RVh0V++6eSldIg/Uy +zg/tXqqjdXXL4mjzFVBhCJac3K+B9Ii9NYJzyXD8E1eDBYsmcq7557AlKAF+ +ziTYm6drIjWLw+n64gXYodqYaa6shYVKNDeaZBQ8ndH/O/9aCyvTV+2mXAiH +Y0oavR0e2pjsdVuwzSoMguaFFl28tTHhbpFAo3YYnK5nFZr00Ub+/ftY2ilh +EL+3y3GDvza+LBHy5Z4OhbtRIR+MQrVRzLF59L9roTDc/7SHmaSNylSBr+2f +T4FDomV36iNtZG1wt7S5GAKMyUOdjuupCM+3pg2wBgNf9Y68mo1UrIvU6B6Y +DoLJCwr+YpxUTB0acRofCIKbElMbR7mo+D5TjlehJgj+7Qkz9hehYvbVoGKd +oCCorU4pj1GlIvHtGl77FgiGcU+TmfZUbJOrO6LTdwJMpAV2cuRRUabr2tu6 +wQAgJl5IHMqn4oGAOsOfHQEg/ejE76oCKu54Jckl1xAAayzeZHsXUfH13em6 +x7cDoN4v5lcDQcUzQZdr7Y8EgEH1bFroSyq2JxrEn1rwB6pdx/DXcSqq1rV8 +MxLyB7nwiyH1OjoYlFSu4DPnCzX6t9da0XRQgPE0Nb7XF2znay930XVwuP/P +7vpaXwg5Nnd/zFAHZ3LnUv0u+kKTs+sQp5UOstHjnr8U9wVvParFPlcdpGha +nDm46wgU/hoSno3Vwcstko8nnx0GBQ+9WpleHdQJ+VR99aMnXJK0Xjzfr4P6 +W+X6RJo9YXbAXXv4kw7Wla/vIghPeOqUUHTzsw56sJSr8yR4gp3tQBr/hA5C +h8S5S/qecEo/2n89iy6ytSss+t3wgKatHRITMrr4/K7c7VTfQ+Dx1DuKCNDF +EIc4jsNUd5g8+v2kSaAuZmRkOFGl3SFE1PfI+2BdtIvJvsjN5Q4XT/vZLYTp +IpfIDc/lCTcopQWL02N08dGNqc7EAjdYeni+piFTFxt2aLanCbnB5ZKbs28b +dFH7+3AwK6cr1OZ0Hprm1cPh9VpcTeAMg1YSLsECeig7YGGiLuUMLH+OOv4V +0sO4dRuWmOucwWgXm/VacT0MyFQpXPt6HzSuoukIKujh5/Svs93790Gbe/Z6 +QwM9tM6wZJeLdIJeaZ/iZE89nHB89nKufy/M3l2ZV32kh41fUqwOddvDFwfT +nLhKPfz4IW5ctt4eetYkmn2u1sOwIP9vf+/bQ7WrUMa1Oj1UKrj+vD/SHiIF +tGnLzXqo4zcXH6JqD1tifU639Oth/v1dbzcl7AElry4Wj9U0PDW7YLXTbjcc +lClan7mThvnRHl5Ht+yC0BcHfGRtaRgnneE+s2wLyR5creV2NOQ502Ya/8MW +am6fSmj9j4Zi92eSphptgUfWbPOyGw05RdIiLp21hUbZUR7XYBouUmLtpIdt +QEFOTFw2m4bWzUP7E17sBGx6G16eS8OiCu7E3vyd4OAdM2SQT0PvJ1HLZlE7 +4fzdibz/Csn1PGzXijHeCf1yNTJxTBomBlWwnmuwgiR5R8XxlzQc9g+/bNds +CdMKV6jlUzRk99ZMbfphDj1taMI9Q8MasYjNXe3mUHdscnfgHA1tth9vXaww +h6Ry8wDqIg1zOY48TAk3BwUay/0qVn28NdZI+cFnDu7mRyUa+PSx8rTlVZqZ +GXR67djUSddHn5Y3l57VmEL1+jkhbdBH5T6T5Df5ppBXlCd/zVAfRedtnGcT +TMH/57LpXlN9fOpUujFyvylwnCQi+m30kfOpZVXRigmYxkjMj7jro8STbzxy +ZibwOP/v0FysPjq+ZGiZfDMGqnHgvEW8PnKwL5ed6DSGiqHxTTmJ+sh2YuZ7 +Ra0xlFM+6Vhc1sdJIeWdQdeM4X56XeLN6/q41qR146ftxpCTEK23o1gfXVvF +9pvfNoK4wM0p6e/00bu3YlAg0BDYuWMLJrrI9Typ/57tZggxZSw1Rj362Brb +VKlrYwhRk9NfxvvJ9edU+2QrGMJZ70664Rdyf2uOBsMwwnHnjLFvC/rosqxs +9mQPgtN2KdSn0HG6xXdDaoIBLHeyczaI0/Fts0kq72EDyPGY7LOQoqPvB/6H +1SYG8CWm8qSTHB13Je5UDllhwPFmm5JTGnTsyQqWKA5kwEXr05THpnSkXM2b +/elBh6q9XUtafnQ8ljthP+BOg/3fqlpqAujI/6Ygq92YBiyhOenbA+no+VjC +/LM0DUyvH9Hac4qOTX/E9vh+1YO3H1f5njhPR/dXwk/WH9OD7+4qfWVpdHT1 +sY1yiNAF4aMXKlXq6Dh37sN291oqJK14asfX03FldXIDdwEVVl82Lfv6nI7R +4oyNAwlU+P5wbWFOMx1Pv11Jq3eiQhVLVDrXOzpemnkgUj2vDU5Xw0/+HqXj +i5rFx/up2pBefUr76UYG/vHNXtP2QhM2WTuWCXEy8HlZWMHFEk0IH9RVPrmF +gbUD9aauGZrgvXZBWo2XgQ3Nj5Rtj2qCjk0wTx6FgbpaX0yRTxPeDx+fiVZn +4PSlqsM2vhrAu8G3bOd/5Pgxi6FMOXXINz4TOuXIQN+XJTyvuNRB40yS8RVn +BlqW014ILKuB9VRpV48bA1UjZjWWOtQg5v3cn4O+DDxEueQ0dVoNFvLOGYVG +MFD4Qvm3iWJV6NW/8q6giIGctp+HUunK4B2Un2VezMBrsJgyx6cMv4srPMZL +GSjE5z4WMa0EXJI98+oPGXhEK7xZ7I4SWLKLijypI+e/tUntCI8S1HQWHHrX +xcBbEZEV/PMKYMH5WDm4h4HBYydeKXYqQM+O5t8CfQz072zMP1ymALNVP2IP +DDJQfUPRRzdfBVDOVXvw7TsDJ46aX4MReajpNQxOmGDgpsW/L7Lq5cGCZzeo +TjHwunH4LslcefC8ENQROMdAi3tmr24fkIfZuphM/gUGPotI97zFkIfIxbSD +VYsMfGTd8aBJRB62aBUq7V9m4Fznp5O8S3Jw82jV3MoKAxPcujLi+uTgf1xt +F8w= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "PlotRange" -> {{0, 30}, {0., 0.0805332611887356}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8415,6 +8554,7 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8442,7 +8582,8 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.08145702771151381}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.0805332611887356}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8450,9 +8591,8 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991335257344549*^9}, - CellLabel-> - "Out[255]=",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] + CellChangeTimes->{3.991335257344549*^9, 3.994258991710099*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"b1e3baa5-49dd-4eb7-8917-2a4725266ac7"] }, Open ]], Cell[CellGroupData[{ @@ -8504,67 +8644,72 @@ Cell[BoxData[ FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", - CellLabel-> - "In[256]:=",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], + CellLabel->"In[98]:=",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.39639867535232`*^-188\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 256, - 237, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335257395241*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.233482651511684`*^-153\\\", \ +RowBox[{\\\"192330073695578600598678251250730514595\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"82\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1532417980825600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 98, + 17, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335257395241*^9, 3.994258991888896*^9}, CellLabel-> "During evaluation of \ -In[256]:=",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], +In[98]:=",ExpressionUUID->"d491a70a-c66e-49f2-8ae9-6788253e0d70"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.342395211692676`*^-192\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 256, - 238, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352574052296`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.908500667331563`*^-155\\\", \ +RowBox[{\\\"692388265304082962155241704502629852543\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"85\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6704730972160000000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 98, + 18, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335257395241*^9, 3.994258991900798*^9}, CellLabel-> "During evaluation of \ -In[256]:=",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], +In[98]:=",ExpressionUUID->"9d241c0e-bd08-4227-873f-97303595d130"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1800384500947783`*^-195\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 256, 239, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335257413231*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.035437247428554`*^-158\\\", \ +RowBox[{\\\"257637673519649270217965438245428568131\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"89\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8303947407360000000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 98, + 19, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335257395241*^9, 3.994258991909927*^9}, CellLabel-> "During evaluation of \ -In[256]:=",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], +In[98]:=",ExpressionUUID->"c1d6ca94-f101-493b-b501-b8beacd6670a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 256, 240, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352574212303`*^9}, +during this calculation.\"", 2, 98, 20, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335257395241*^9, 3.994258991918605*^9}, CellLabel-> "During evaluation of \ -In[256]:=",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], +In[98]:=",ExpressionUUID->"1dde1657-58ff-48b7-a57b-9668f51e3172"], -Cell[BoxData["9.332200719005158`"], "Output", - CellChangeTimes->{3.991335263670042*^9}, - CellLabel-> - "Out[256]=",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +Cell[BoxData["9.437886142545779`"], "Output", + CellChangeTimes->{3.991335263670042*^9, 3.9942590875181093`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"837b6ca5-c0ca-4eb4-9476-6967d0b26a73"] }, Open ]], Cell[CellGroupData[{ @@ -8631,65 +8776,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849285445259*^9, - 3.991849289419262*^9}},ExpressionUUID->"6f0ad284-4db3-da47-b8dc-\ -45830eedfe9c"], + CellChangeTimes->{{3.991849285445259*^9, 3.991849289419262*^9}}, + CellLabel->"In[99]:=",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ -\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 257, 241, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335263710146*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.9610371003521645`*^-199\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 99, + 21, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335263710146*^9, 3.99425908760835*^9}, CellLabel-> "During evaluation of \ -In[257]:=",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], +In[99]:=",ExpressionUUID->"a73d2d50-81ed-45d6-810d-4be5f9452081"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ -\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ -\\\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 257, 242, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352637201557`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.5447966906115534`*^-203\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 99, + 22, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335263710146*^9, 3.9942590876204042`*^9}, CellLabel-> "During evaluation of \ -In[257]:=",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], +In[99]:=",ExpressionUUID->"169dd951-edf5-4329-aa1e-fa1228a62e8c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ -\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ -000\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 257, 243, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335263728153*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.0246767572872255`*^-208\\\", \ +RowBox[{\\\"668859810497440244092067196564426051030\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3165635789279094374400000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 99, + 23, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335263710146*^9, 3.9942590876297693`*^9}, CellLabel-> "During evaluation of \ -In[257]:=",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], +In[99]:=",ExpressionUUID->"116f2a1c-f5ff-40bc-b042-298c6a222fe2"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 257, 244, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352637361546`*^9}, +during this calculation.\"", 2, 99, 24, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335263710146*^9, 3.994259087640149*^9}, CellLabel-> "During evaluation of \ -In[257]:=",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], +In[99]:=",ExpressionUUID->"c7af7006-6d82-4b99-910b-79bbc4fb21cc"], -Cell[BoxData["0.00046079539931050297`"], "Output", - CellChangeTimes->{3.991335268779545*^9}, - CellLabel-> - "Out[257]=",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +Cell[BoxData["0.7109430194865509`"], "Output", + CellChangeTimes->{3.991335268779545*^9, 3.994259099413904*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"c7babedf-d00f-4c62-bb1c-573b897060c4"] }, Open ]], Cell[CellGroupData[{ @@ -8710,8 +8863,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8756,65 +8908,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849293744112*^9, - 3.9918492959939384`*^9}},ExpressionUUID->"b2dda819-6f34-5c49-bc62-\ -303d815946e5"], + CellChangeTimes->{{3.991849293744112*^9, 3.9918492959939384`*^9}}, + CellLabel-> + "In[100]:=",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ -\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 258, 245, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335268812542*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.9610371003521645`*^-199\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 25, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335268812542*^9, 3.994259099469192*^9}, CellLabel-> "During evaluation of \ -In[258]:=",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], +In[100]:=",ExpressionUUID->"3b1fa1cd-b2ee-4d4a-a47e-99b0875f7984"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ -\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ -\\\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 258, 246, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335268822542*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.5447966906115534`*^-203\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 26, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335268812542*^9, 3.994259099481929*^9}, CellLabel-> "During evaluation of \ -In[258]:=",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], +In[100]:=",ExpressionUUID->"6af57e3f-2d62-4080-8363-64c891937e3b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ -\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ -000\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 258, 247, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335268831545*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.0246767572872255`*^-208\\\", \ +RowBox[{\\\"668859810497440244092067196564426051030\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3165635789279094374400000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 27, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335268812542*^9, 3.99425909949244*^9}, CellLabel-> "During evaluation of \ -In[258]:=",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], +In[100]:=",ExpressionUUID->"a27e6a69-0330-41a9-b6b4-533f26d3581f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 258, 248, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352688395576`*^9}, +during this calculation.\"", 2, 100, 28, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335268812542*^9, 3.994259099501472*^9}, CellLabel-> "During evaluation of \ -In[258]:=",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], +In[100]:=",ExpressionUUID->"166d6cf1-f9c7-463a-92ed-1bf3d107391f"], -Cell[BoxData["5.104103620353258`"], "Output", - CellChangeTimes->{3.991335272704685*^9}, +Cell[BoxData["25.939267982830643`"], "Output", + CellChangeTimes->{3.991335272704685*^9, 3.994259110689961*^9}, CellLabel-> - "Out[258]=",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] + "Out[100]=",ExpressionUUID->"3c28cb4b-f49d-4526-90e6-1ece141fb8ea"] }, Open ]], Cell[CellGroupData[{ @@ -8835,8 +8997,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8881,65 +9042,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918492993108063`*^9, - 3.991849303274454*^9}},ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-\ -1a175f609f7d"], + CellChangeTimes->{{3.9918492993108063`*^9, 3.991849303274454*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ -\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 259, 249, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352727386665`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.9610371003521645`*^-199\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 29, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913352727386665`*^9, 3.994259110778018*^9}, CellLabel-> "During evaluation of \ -In[259]:=",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], +In[101]:=",ExpressionUUID->"61eff8bf-a79b-4673-bf8d-1d2d2b1dc70d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ -\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ -\\\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 259, 250, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352727476673`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.5447966906115534`*^-203\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 30, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913352727386665`*^9, 3.994259110790223*^9}, CellLabel-> "During evaluation of \ -In[259]:=",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], +In[101]:=",ExpressionUUID->"28437c1b-0c33-4780-b5da-b95162fad3fb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ -\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ -000\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 259, 251, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352727556705`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.0246767572872255`*^-208\\\", \ +RowBox[{\\\"668859810497440244092067196564426051030\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3165635789279094374400000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 31, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913352727386665`*^9, 3.9942591108007174`*^9}, CellLabel-> "During evaluation of \ -In[259]:=",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], +In[101]:=",ExpressionUUID->"2ae3b0f3-e336-4cd4-a82f-06b88d31506d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 259, 252, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352727636833`*^9}, +during this calculation.\"", 2, 101, 32, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913352727386665`*^9, 3.994259110812169*^9}, CellLabel-> "During evaluation of \ -In[259]:=",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], +In[101]:=",ExpressionUUID->"3951dd7e-953f-44a3-8c94-7137cf473380"], -Cell[BoxData["18.832858301324727`"], "Output", - CellChangeTimes->{3.991335275154251*^9}, +Cell[BoxData["4.029841789555784`"], "Output", + CellChangeTimes->{3.991335275154251*^9, 3.994259120120913*^9}, CellLabel-> - "Out[259]=",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] + "Out[101]=",ExpressionUUID->"7b44c828-c018-4041-9f38-ac11aeb087b5"] }, Open ]], Cell[CellGroupData[{ @@ -8948,22 +9119,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918493065908413`*^9, - 3.9918493103344364`*^9}},ExpressionUUID->"69dd09d9-152e-3e4d-9517-\ -4de4791db2f4"], - -Cell[BoxData["0.00004699917922538678`"], "Output", - CellChangeTimes->{3.991335275186266*^9}, + CellChangeTimes->{{3.9918493065908413`*^9, 3.9918493103344364`*^9}}, CellLabel-> - "Out[260]=",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] + "In[102]:=",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], + +Cell[BoxData["0.06953635763926064`"], "Output", + CellChangeTimes->{3.991335275186266*^9, 3.9942591201784067`*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"e2ae8a2b-befd-492b-a3e1-09af3d856e47"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.991849314761318*^9, 3.9918493173333225`*^9}, - 3.991924798063732*^9},ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-\ -749729cd7104"], + 3.991924798063732*^9}, + CellLabel-> + "In[103]:=",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], Cell[CellGroupData[{ @@ -8987,12 +9159,12 @@ Cell[BoxData[ RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellChangeTimes->{{3.99312673568116*^9, 3.993126746164192*^9}}, CellLabel-> - "In[262]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], + "In[104]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], -Cell[BoxData["5.744985073726737`"], "Output", - CellChangeTimes->{3.9913352752142563`*^9}, +Cell[BoxData["4.734107990651044`"], "Output", + CellChangeTimes->{3.9913352752142563`*^9, 3.99425912020122*^9}, CellLabel-> - "Out[262]=",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] + "Out[104]=",ExpressionUUID->"2ddb41d4-7af4-4c78-9e4f-c771b08a92ac"] }, Open ]], Cell[CellGroupData[{ @@ -9002,12 +9174,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[264]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], + "In[105]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], -Cell[BoxData["1.564995573098557`"], "Output", - CellChangeTimes->{3.9913352752482567`*^9}, +Cell[BoxData["2.9849419127603767`"], "Output", + CellChangeTimes->{3.9913352752482567`*^9, 3.994259120213849*^9}, CellLabel-> - "Out[264]=",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] + "Out[105]=",ExpressionUUID->"c27db758-b346-4b01-8c61-5e8e8cf6ae26"] }, Open ]], Cell[CellGroupData[{ @@ -9017,12 +9189,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[267]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], + "In[106]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], -Cell[BoxData["8.990876207899632`"], "Output", - CellChangeTimes->{3.9913352753089123`*^9}, +Cell[BoxData["14.13103736082811`"], "Output", + CellChangeTimes->{3.9913352753089123`*^9, 3.9942591202267227`*^9}, CellLabel-> - "Out[267]=",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] + "Out[106]=",ExpressionUUID->"2e5bfe4e-e348-4c8d-a634-c81053773f15"] }, Open ]], Cell[CellGroupData[{ @@ -9212,12 +9384,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[268]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], + "In[107]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], -Cell[BoxData["0.07167004636648908`"], "Output", - CellChangeTimes->{3.9913352753341656`*^9}, +Cell[BoxData["0.008583073757111285`"], "Output", + CellChangeTimes->{3.9913352753341656`*^9, 3.994259120243775*^9}, CellLabel-> - "Out[268]=",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] + "Out[107]=",ExpressionUUID->"4c93d552-9d48-42ab-8b8f-08f18c26254a"] }, Open ]], Cell[CellGroupData[{ @@ -9231,12 +9403,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[269]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], + "In[108]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], -Cell[BoxData["3.3103666491187544`"], "Output", - CellChangeTimes->{3.9913352754296722`*^9}, +Cell[BoxData["9.56584894018702`"], "Output", + CellChangeTimes->{3.9913352754296722`*^9, 3.994259120425539*^9}, CellLabel-> - "Out[269]=",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] + "Out[108]=",ExpressionUUID->"910b5d0a-719b-4336-b7e0-4a198242397e"] }, Open ]], Cell[CellGroupData[{ @@ -9428,12 +9600,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[270]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], + "In[109]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], -Cell[BoxData["0.012832691268660865`"], "Output", - CellChangeTimes->{3.9913352754426765`*^9}, +Cell[BoxData["0.0693721775370674`"], "Output", + CellChangeTimes->{3.9913352754426765`*^9, 3.994259120446968*^9}, CellLabel-> - "Out[270]=",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] + "Out[109]=",ExpressionUUID->"85520de9-31db-49e5-a87e-615471b4f2ff"] }, Open ]], Cell[CellGroupData[{ @@ -9447,12 +9619,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[271]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], + "In[110]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], -Cell[BoxData["7.823229443917166`"], "Output", - CellChangeTimes->{3.991335275540678*^9}, +Cell[BoxData["3.364745935989562`"], "Output", + CellChangeTimes->{3.991335275540678*^9, 3.9942591206399918`*^9}, CellLabel-> - "Out[271]=",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] + "Out[110]=",ExpressionUUID->"5b289610-8bf0-4f83-be12-7721b2073ab8"] }, Open ]], Cell[CellGroupData[{ @@ -9545,12 +9717,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[272]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], + "In[111]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], -Cell[BoxData["0.7884625602161153`"], "Output", - CellChangeTimes->{3.9913352755566807`*^9}, +Cell[BoxData["0.050030956271665136`"], "Output", + CellChangeTimes->{3.9913352755566807`*^9, 3.994259120659252*^9}, CellLabel-> - "Out[272]=",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] + "Out[111]=",ExpressionUUID->"6d63af8f-462a-405a-ae77-30ea97bb7df5"] }, Open ]], Cell[CellGroupData[{ @@ -9640,12 +9812,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[273]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], + "In[112]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], -Cell[BoxData["0.21153743978388478`"], "Output", - CellChangeTimes->{3.991335275581682*^9}, +Cell[BoxData["0.9499690437283349`"], "Output", + CellChangeTimes->{3.991335275581682*^9, 3.994259120675181*^9}, CellLabel-> - "Out[273]=",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] + "Out[112]=",ExpressionUUID->"4c12ebdb-3703-4786-a34d-59c22fd09dc6"] }, Open ]], Cell[CellGroupData[{ @@ -9768,12 +9940,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[274]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], + "In[113]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], -Cell[BoxData["0.16678935135356415`"], "Output", - CellChangeTimes->{3.9913352756087036`*^9}, +Cell[BoxData["0.047527859686207874`"], "Output", + CellChangeTimes->{3.9913352756087036`*^9, 3.994259120690695*^9}, CellLabel-> - "Out[274]=",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] + "Out[113]=",ExpressionUUID->"4803cfe5-3414-4f69-8795-29798780753b"] }, Open ]], Cell[CellGroupData[{ @@ -9835,68 +10007,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849332835844*^9},ExpressionUUID->"d6aa822f-4140-174a-8e29-\ -c889dba5c0d8"], + CellChangeTimes->{3.991849332835844*^9}, + CellLabel-> + "In[114]:=",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 275, - 253, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335275636673*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.50597309399795`*^-200\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 114, + 33, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335275636673*^9, 3.99425912070926*^9}, CellLabel-> "During evaluation of \ -In[275]:=",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], +In[114]:=",ExpressionUUID->"c3880054-3c95-4da0-ab1b-b3dc4d4336d5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 275, - 254, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352756456738`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.933490698070503`*^-204\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 114, + 34, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335275636673*^9, 3.9942591207197113`*^9}, CellLabel-> "During evaluation of \ -In[275]:=",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], +In[114]:=",ExpressionUUID->"45868b5f-b660-41a1-a661-3c11ef8e7d3d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 275, - 255, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352756546745`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.746083215397846`*^-209\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 114, + 35, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335275636673*^9, 3.994259120730439*^9}, CellLabel-> "During evaluation of \ -In[275]:=",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], +In[114]:=",ExpressionUUID->"cfc7d398-89fb-4665-9ef5-916f1107108f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 275, 256, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335275662676*^9}, +during this calculation.\"", 2, 114, 36, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335275636673*^9, 3.994259120741365*^9}, CellLabel-> "During evaluation of \ -In[275]:=",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], +In[114]:=",ExpressionUUID->"d6856021-698f-4d7b-842c-c1bffa3328b5"], -Cell[BoxData["3.3103666491187513`"], "Output", - CellChangeTimes->{3.991335279487499*^9}, +Cell[BoxData["9.565848940187015`"], "Output", + CellChangeTimes->{3.991335279487499*^9, 3.994259128837611*^9}, CellLabel-> - "Out[275]=",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] + "Out[114]=",ExpressionUUID->"3719349f-75b1-4248-9186-cb95fff810ea"] }, Open ]], Cell[CellGroupData[{ @@ -9958,68 +10137,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918493361354027`*^9},ExpressionUUID->"46f3f057-22eb-c143-af7a-\ -23ddab00799c"], + CellChangeTimes->{3.9918493361354027`*^9}, + CellLabel-> + "In[115]:=",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 276, - 257, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335279522499*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.50597309399795`*^-200\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 115, + 37, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335279522499*^9, 3.994259128896688*^9}, CellLabel-> "During evaluation of \ -In[276]:=",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], +In[115]:=",ExpressionUUID->"774daf61-57ee-4885-b9b9-fd9a7293cfe1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 276, - 258, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335279532501*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.933490698070503`*^-204\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 115, + 38, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335279522499*^9, 3.9942591289066153`*^9}, CellLabel-> "During evaluation of \ -In[276]:=",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], +In[115]:=",ExpressionUUID->"4a02ca2b-2eb1-4289-8ccd-acc8091616ea"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 276, - 259, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352795405006`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.746083215397846`*^-209\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 115, + 39, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335279522499*^9, 3.994259128917386*^9}, CellLabel-> "During evaluation of \ -In[276]:=",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], +In[115]:=",ExpressionUUID->"1069506f-2bb7-4f5d-b50f-f5dd0de70ab5"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 276, 260, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352795487957`*^9}, +during this calculation.\"", 2, 115, 40, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335279522499*^9, 3.994259128930464*^9}, CellLabel-> "During evaluation of \ -In[276]:=",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], +In[115]:=",ExpressionUUID->"4b556ddc-aa93-478b-a127-35bc79f30c30"], -Cell[BoxData["7.82322944391716`"], "Output", - CellChangeTimes->{3.991335283631424*^9}, +Cell[BoxData["3.3647459359895597`"], "Output", + CellChangeTimes->{3.991335283631424*^9, 3.994259136913254*^9}, CellLabel-> - "Out[276]=",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] + "Out[115]=",ExpressionUUID->"6028ccfd-47ac-41a3-8b95-aac168a1099f"] }, Open ]], Cell[CellGroupData[{ @@ -10077,94 +10263,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918494105860615`*^9},ExpressionUUID->"0137ed47-cd78-284a-910a-\ -31d165f1571c"], + CellChangeTimes->{3.9918494105860615`*^9}, + CellLabel-> + "In[116]:=",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf -pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg -4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E -17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf -FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 -HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW -tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ -1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 -wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF -0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f -c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz -VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO -acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy -idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm -N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 -/P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 -Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP -/aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d -Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE -/SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS -PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 -alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO -z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs -wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 -td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 -/J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA -c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO -o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp -0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH -zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH -xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid -s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF -8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf -oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg -QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE -GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 -f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ -f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB -ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR -bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB -bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG -kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE -yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer -z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO -zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn -ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo -at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W -YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb -YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 -Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD -TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL -YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk -iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz -xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI -MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ -E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 -s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 -N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG -vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF -dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc -D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy -YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA -KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK -P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK -bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M -NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR -EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp -PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC -C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 -n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V -5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k -I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb -jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF -DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 -d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 -OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs -5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk4VdsbB3ApCqmQKREHXYR0RGRYr8iUKaWIxHHOFgoh0TU0oMEsLn4R +GSIZQ4RchBTh0igZwg6ZOYdK9Vv+2M9+Ps969ne9a+317mdL0bysGexsbGzj ++Fq7X+hU/ququ1M36cpJ8bgbJNKdyVGjGRSiOGtOizUPZagnyhjUISJg69Ca +reivOTertiAlpk9vPHZZQOhzDoMOtPpaRe4O9q1WkYbQgv8QF7fJQCL20+4L +91apb1Hs41rmP9iTfa+CAms/oL6em56p2DvGpO1Z+v1ILqDUOA37yGyQpm/H +IFouo4ZlYNevTvIEFAyj2/FbpbKx310V/vuJ5wgKVTDalYc9w2kwuUQdQ5YJ +H0MeYXNGedupLpMoZqgVlWJL8KW3XagdRy3KW2mV2BZirAcz+lNIVrvsVQM2 +kUkRUto0g6o0ePheYIfKWoZ7dMwis9KG6tfYH4Tf7PMrmEdcWbqK/dj0U+5u +d6IW0IrbxpUR7Lk0tvuPPRfRE2NF2SnsTRSlbfNUJnq5ejv7F3Yi/bnRNkEW +slFpWeK8SSLJPLvQvcssJHTAIW8btoZixMz52hV0Lf6+iiz2WfXBjkn9VZRY +Fttrjb0UcHED9+5f6EX+k71nsK/U8mjLb/qNLltoT3tgp4DGI9eOP2hTDT0q +Apue22bgU7AOCgWo9g3YBa13hq6KscOYz4mmLuy5r45B8VHs0Drw6fYgdpAC +s7zUcz0kU3mA7Raut0RKepbKASNJHFqG2H3dU/W/szlgi4h2kS225ELVqS2C +nNBz490VD+zC/RYJSsucYPFCwywBu/np5XXnajdB/6l631Fs5vPewXH9zdAs +t4/z7m0S8Ztt3vZ3/WZooSRnV2KrvDEAXk1eOGgTVN6N7T5amblPeQvc53uh +sCmSRN7sHSo6m7fBWdMLl4KwxyjF8+EsPnj8o+7W5Si8P8Qrri5VfiioOmeZ +hs3+iJQSucAPXo/ybtRjS6rusi74xg9CqU2WG6JJdEo/7nHnkABw9uboJmF3 +ufj4CrcLQtgOMrkjhkQDeTGRTpuEwNO/IoKJPfWtIPvhYSEw6dk5LhFLIm6/ +kV6tBiGYT/uX3RfbIOz4fqdKYdDIck+WjCNRTY46Mz9DFGLSjVF8PIlyxn74 +H/QTh4VMw/i2RBIZ29wY8C0SB0XCWW4Ve6pZwLCIFAdK0g1plSQS7c9RFJS0 +kwCNjB+HU7GbaY7lHLq74Nfg/7S8/yHRwuzQpfHrkqBY1zqpkkIigfMGFeXm +FEgVMnf+dZdEZA73WSt3CgxUSQXppJGour9bbDqCAg2y8j+DsR3MTl/f3UCB +vP63smzpuL49/tapVGnwcHitxHUPzz+ZNxciLAM3vby5lDNJdNyVR8l0WBbY +qjq/N+WQCPnbUE/+kgWzqQWxLbkkUgjPOEAX3Q3Sgnfu2WGzZaseCjm6G/hP +mrfMYxcN2J983LgbupLfpOzOw/15ovDqjqy/4PhQpF3WQ1yfgfm7SZo8CHRO +mn0pJlH2seRPyyHykMOWdVWzBPcxbXhow115OHiISzgem37l4jeJXnk4OT3j +oldKIr66dLZj+grAoBhHPCjD50d1RqFWeg/oNDbOXKsgkRglNjRyVBH61z2y +D6shUd3tJfnv7Eqw02W76By2w6LdG0JKCe6a3jJ2qCXRvWYZ+UOOStBSlvFL +rY5EFNeanpX3SsAT1tIw8wyvt3BMlmhXhqJ11KKLjSQSF5MgJO1U4NDHaZWP +bSRSzPXb/BNRYc7bLmT5A4lo9OtMJQsqqLsJVPl/xP0qnTDg5ECFPr5nx1jY +67NKSlsDqGDlOlHN6sP9dm/yeEIZFa5Tpqir/fh7muKULi+tCn5sXV9Fh/H7 +jTRTtuXcD5sQh2vmBInu+8hYVXaoQWYNu1XfTxJ1+6MDYbma8LJdI7VJ7iuS +cnxrcfqcDsxRuoWFHb4ixp8nxeKBAN3FP81CEr4i4W/VG4VphyDxuI5owZuv +yE9Vuz9BwQCeFAke0xEdR7Tp1TaBycPw1drkwBhtHBUd8t2Y0WUE7z3/GPDX +jKOcJffGwkQT4OHS7DHkn0AreiKvm0OPAG/J02T3wAn0mW39/LCzOXDXRM8e +JSeQ506vuKvSlqBCrhOrsZ5ExW5tDUnhVlBv29nf1DWJLi+KLu9xOwpSS7lS +nke+Iaap4YkXZ6yBw/VW4eKHb0jTPl5v7OgxuPu/3HiaxxTqEU13b1Y9Dnq5 +nX43f0yhHQ+u1+XL2cD77KTtD9KmUfWQgpkF7wlwUavU0T04gyTezLn6T5+A +m8IrGsZ9M0g1Kb4we+gk6KabyZRGz6L0DYvKCc9twaCa0s4lPoee6O3tC39q +B5IKMr/7guZQyoHbfKsFp0AzL8ZjtX8OdX3KjVCNsgcxfxdFCY15VGmeJuN9 +xQHC7opShNLm0fz5Y2ye9NMQ0p449+f7PGIayp+d0XcEy5WEbMkTCyh/+uOK +r/oZ8Ko3Cox7uoBs7+e6nN7sBBn7iRQtwUVU/vjImfU3nIChlpBb4L+INMV6 +vt/67gTRNV67xLsWkfSQa99/bs5wfGA7o4myhEZ5PCzTRpwhcj7KXD9wCXXH +WLgY2dDgrrtZkVHLEkoMyOC52E0DH0sZ9mI+Jqqr//PdxcQFbphnl/1nw0Rb +HeCGao0LmMy1ZUTHMJHk9hddO+tcQHLAVssvlolUOsxFOOtdIDnWyvJUHBNZ +a9s//NDoAosFDYMyCUyUuNO/PfilCyifLkgvT2KiHZ8fbW374AJ29hJEVRoT +yTgKpzgsu8BLzzfzJwqYSNNpJj98Px2edupdnXrORA9S53wt1OlwX715PKuZ +ibb3LugKa9CBh62x27aFiWYOL7/J16LDaZF8qeetTPz9YlvXcYgO147kPo9/ +yURblvns+I/S4exjlymhLiYajVbjyjhPh2gFE+a/H5kopjbIrfoBHVJXvptG +TDPReWqyZkA+Haoyd86KzDCR2cMyLo0COjjfu8r3CJs7mXxYVUSHn5qF3a9n +mSjcx2rySQUdHPpq1XgXmChIXsajsgnPH9IW5stiIvfk9nOPB+jwPpwr8vNv +JjLZQmr7DNHh96dzL878YSK5cDZe6hc66D/bGDqMTfqoFZWN0WHK9eaZETYW +crbImC6dooOyqMbIEDsL2XL4epb8wPk7SoabOFnIyHeHd6EQA7Z4BVMoW1io +KSPCNEGEAcu8jhrp2NodCzIBOxgAK43FwltZSEW2/aO+BAPEZwvruLexkOj7 +v/U/yTKgdpfRqQk+Fvp28LMQtxoDvInyiJv4PyWWPfOZ6zEGbHuvt2q+k4W4 +925OMbdhgOfl3YsV2GH2AT6qJxngtphkJCbOQgEVVn/9OcWAwIn6TSS2M7Eu +/h8aAyqbvkz47mIh1Vc0essFBpxPVBa8QGGh9/GyPNJxDAh+ei9s7i8WKka8 +Z8fjGfDg4t4IHTmcP73UXHSHAbx18iu3sKkmzSEayQy4Z0VRkpJnoRg2lwXz +ewyoUkz/aKzAQoZemR8DChlAlehXCVZkIXHxm+q6xQwoHk+lNmIvvfK6s76U +AaV1k9kblFgoazcyjylnwKcAgbe3sH99/tyQXcOAlk4572hlFqowE8vvbGNA +sh4rJFCFhSJ/sHMkvmIAw1/XrwKblj/pbNfBAGbi6Q8z2Ns21IiNduFxBeaU +8z4WOldrG/v9HQNSOs4Y6lFZSFrhH3+ZMQYMBu8pG1VloR/vg3snSAbMjq6P +FdrPQt3hDJWScQbktPB9MsIOGd4/qTnFgHyDh8/ysftSek9bLjJgu03HIxc1 +FkrYyHf48joCsqzoMvXqLFS38Nnebz0Bo27jid+wv34u8PHkIEDXQNhS5AA+ +DxUGmTQuAtbVH8n0wiadAn6a8hEQFcuqENTA9Zsd5j8sQIDc8ScXdLC1DvDL +I0ECDsn1XKJjx/EWnlAVJcD+1fczpWvjNYNlYlIEqLdvz0CaLETkFrYJShMw +XP1vrjN2XFzg4FZZAm7fvca8hk0SArwb5Alws9vn/XxtXMDo7JQKAWeqXf7T +OshCNb8FQkkqAcGyv3fZYo9NDCUN7SdgJ++lKl/sgw2Xn7/RIKC8arIhH3v0 +XLHEMyBge9NeHW4tFtpi+7da1SECwiQFeiSxNfWNzcoMCPDf/aBEHTtG9Etg +rjEBdyZbDZywqzeUxGWYEkAsma76Yo/M/p2XakaAgI7HagS2Rqvg22grAuJX +PN8VYNPKvny7YU2AMK9paS12dFoJ+7XjBHzJLu1px/7iY6Lib0vAWR+++Qls +XkchI+9TBMhkbZheXsszGTnt7kCAlsHFfRza+PldwZGOTgRce9B0Rxy7mts0 +y5ZGgGFlapkc9hem0FNrOp6/94uwKjbv8EiXGUHAyzt3W7WxNTpKScOzBMiX +Nz47jE2rCv4F7gS0iR77Zb6Wn2W6XescXm+febjNWn608B41T7zfqqU2Dmv5 +AaN6e70JeBcV4EnD3kwvs5X3IeDK5dwuV+wDliFe0n4EvKhRCzy3ln/wSIS4 +PwEL6nIe3thRsiLpwgH4vKwPyvXFfrJtrJzvMgGXHFXk/LGHf5a94gkioPWx +weKltfyvIcMcIQQMJlZzBmKr9xxZ+RNKwIXmSNqa/w+HlvKE "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -10178,106 +10364,105 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf -pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg -4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E -17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf -FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 -HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW -tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ -1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 -wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF -0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f -c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz -VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO -acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy -idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm -N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 -/P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 -Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP -/aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d -Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE -/SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS -PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 -alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO -z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs -wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 -td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 -/J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA -c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO -o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp -0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH -zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH -xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid -s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF -8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf -oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg -QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE -GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 -f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ -f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB -ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR -bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB -bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG -kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE -yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer -z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO -zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn -ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo -at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W -YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb -YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 -Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD -TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL -YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk -iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz -xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI -MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ -E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 -s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 -N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG -vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF -dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc -D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy -YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA -KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK -P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK -bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M -NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR -EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp -PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC -C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 -n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V -5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k -I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb -jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF -DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 -d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 -OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs -5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= +1:eJwV1nk4VdsbB3ApCqmQKREHXYR0RGRYr8iUKaWIxHHOFgoh0TU0oMEsLn4R +GSIZQ4RchBTh0igZwg6ZOYdK9Vv+2M9+Ps969ne9a+317mdL0bysGexsbGzj ++Fq7X+hU/ququ1M36cpJ8bgbJNKdyVGjGRSiOGtOizUPZagnyhjUISJg69Ca +reivOTertiAlpk9vPHZZQOhzDoMOtPpaRe4O9q1WkYbQgv8QF7fJQCL20+4L +91apb1Hs41rmP9iTfa+CAms/oL6em56p2DvGpO1Z+v1ILqDUOA37yGyQpm/H +IFouo4ZlYNevTvIEFAyj2/FbpbKx310V/vuJ5wgKVTDalYc9w2kwuUQdQ5YJ +H0MeYXNGedupLpMoZqgVlWJL8KW3XagdRy3KW2mV2BZirAcz+lNIVrvsVQM2 +kUkRUto0g6o0ePheYIfKWoZ7dMwis9KG6tfYH4Tf7PMrmEdcWbqK/dj0U+5u +d6IW0IrbxpUR7Lk0tvuPPRfRE2NF2SnsTRSlbfNUJnq5ejv7F3Yi/bnRNkEW +slFpWeK8SSLJPLvQvcssJHTAIW8btoZixMz52hV0Lf6+iiz2WfXBjkn9VZRY +Fttrjb0UcHED9+5f6EX+k71nsK/U8mjLb/qNLltoT3tgp4DGI9eOP2hTDT0q +Apue22bgU7AOCgWo9g3YBa13hq6KscOYz4mmLuy5r45B8VHs0Drw6fYgdpAC +s7zUcz0kU3mA7Raut0RKepbKASNJHFqG2H3dU/W/szlgi4h2kS225ELVqS2C +nNBz490VD+zC/RYJSsucYPFCwywBu/np5XXnajdB/6l631Fs5vPewXH9zdAs +t4/z7m0S8Ztt3vZ3/WZooSRnV2KrvDEAXk1eOGgTVN6N7T5amblPeQvc53uh +sCmSRN7sHSo6m7fBWdMLl4KwxyjF8+EsPnj8o+7W5Si8P8Qrri5VfiioOmeZ +hs3+iJQSucAPXo/ybtRjS6rusi74xg9CqU2WG6JJdEo/7nHnkABw9uboJmF3 +ufj4CrcLQtgOMrkjhkQDeTGRTpuEwNO/IoKJPfWtIPvhYSEw6dk5LhFLIm6/ +kV6tBiGYT/uX3RfbIOz4fqdKYdDIck+WjCNRTY46Mz9DFGLSjVF8PIlyxn74 +H/QTh4VMw/i2RBIZ29wY8C0SB0XCWW4Ve6pZwLCIFAdK0g1plSQS7c9RFJS0 +kwCNjB+HU7GbaY7lHLq74Nfg/7S8/yHRwuzQpfHrkqBY1zqpkkIigfMGFeXm +FEgVMnf+dZdEZA73WSt3CgxUSQXppJGour9bbDqCAg2y8j+DsR3MTl/f3UCB +vP63smzpuL49/tapVGnwcHitxHUPzz+ZNxciLAM3vby5lDNJdNyVR8l0WBbY +qjq/N+WQCPnbUE/+kgWzqQWxLbkkUgjPOEAX3Q3Sgnfu2WGzZaseCjm6G/hP +mrfMYxcN2J983LgbupLfpOzOw/15ovDqjqy/4PhQpF3WQ1yfgfm7SZo8CHRO +mn0pJlH2seRPyyHykMOWdVWzBPcxbXhow115OHiISzgem37l4jeJXnk4OT3j +oldKIr66dLZj+grAoBhHPCjD50d1RqFWeg/oNDbOXKsgkRglNjRyVBH61z2y +D6shUd3tJfnv7Eqw02W76By2w6LdG0JKCe6a3jJ2qCXRvWYZ+UOOStBSlvFL +rY5EFNeanpX3SsAT1tIw8wyvt3BMlmhXhqJ11KKLjSQSF5MgJO1U4NDHaZWP +bSRSzPXb/BNRYc7bLmT5A4lo9OtMJQsqqLsJVPl/xP0qnTDg5ECFPr5nx1jY +67NKSlsDqGDlOlHN6sP9dm/yeEIZFa5Tpqir/fh7muKULi+tCn5sXV9Fh/H7 +jTRTtuXcD5sQh2vmBInu+8hYVXaoQWYNu1XfTxJ1+6MDYbma8LJdI7VJ7iuS +cnxrcfqcDsxRuoWFHb4ixp8nxeKBAN3FP81CEr4i4W/VG4VphyDxuI5owZuv +yE9Vuz9BwQCeFAke0xEdR7Tp1TaBycPw1drkwBhtHBUd8t2Y0WUE7z3/GPDX +jKOcJffGwkQT4OHS7DHkn0AreiKvm0OPAG/J02T3wAn0mW39/LCzOXDXRM8e +JSeQ506vuKvSlqBCrhOrsZ5ExW5tDUnhVlBv29nf1DWJLi+KLu9xOwpSS7lS +nke+Iaap4YkXZ6yBw/VW4eKHb0jTPl5v7OgxuPu/3HiaxxTqEU13b1Y9Dnq5 +nX43f0yhHQ+u1+XL2cD77KTtD9KmUfWQgpkF7wlwUavU0T04gyTezLn6T5+A +m8IrGsZ9M0g1Kb4we+gk6KabyZRGz6L0DYvKCc9twaCa0s4lPoee6O3tC39q +B5IKMr/7guZQyoHbfKsFp0AzL8ZjtX8OdX3KjVCNsgcxfxdFCY15VGmeJuN9 +xQHC7opShNLm0fz5Y2ye9NMQ0p449+f7PGIayp+d0XcEy5WEbMkTCyh/+uOK +r/oZ8Ko3Cox7uoBs7+e6nN7sBBn7iRQtwUVU/vjImfU3nIChlpBb4L+INMV6 +vt/67gTRNV67xLsWkfSQa99/bs5wfGA7o4myhEZ5PCzTRpwhcj7KXD9wCXXH +WLgY2dDgrrtZkVHLEkoMyOC52E0DH0sZ9mI+Jqqr//PdxcQFbphnl/1nw0Rb +HeCGao0LmMy1ZUTHMJHk9hddO+tcQHLAVssvlolUOsxFOOtdIDnWyvJUHBNZ +a9s//NDoAosFDYMyCUyUuNO/PfilCyifLkgvT2KiHZ8fbW374AJ29hJEVRoT +yTgKpzgsu8BLzzfzJwqYSNNpJj98Px2edupdnXrORA9S53wt1OlwX715PKuZ +ibb3LugKa9CBh62x27aFiWYOL7/J16LDaZF8qeetTPz9YlvXcYgO147kPo9/ +yURblvns+I/S4exjlymhLiYajVbjyjhPh2gFE+a/H5kopjbIrfoBHVJXvptG +TDPReWqyZkA+Haoyd86KzDCR2cMyLo0COjjfu8r3CJs7mXxYVUSHn5qF3a9n +mSjcx2rySQUdHPpq1XgXmChIXsajsgnPH9IW5stiIvfk9nOPB+jwPpwr8vNv +JjLZQmr7DNHh96dzL878YSK5cDZe6hc66D/bGDqMTfqoFZWN0WHK9eaZETYW +crbImC6dooOyqMbIEDsL2XL4epb8wPk7SoabOFnIyHeHd6EQA7Z4BVMoW1io +KSPCNEGEAcu8jhrp2NodCzIBOxgAK43FwltZSEW2/aO+BAPEZwvruLexkOj7 +v/U/yTKgdpfRqQk+Fvp28LMQtxoDvInyiJv4PyWWPfOZ6zEGbHuvt2q+k4W4 +925OMbdhgOfl3YsV2GH2AT6qJxngtphkJCbOQgEVVn/9OcWAwIn6TSS2M7Eu +/h8aAyqbvkz47mIh1Vc0essFBpxPVBa8QGGh9/GyPNJxDAh+ei9s7i8WKka8 +Z8fjGfDg4t4IHTmcP73UXHSHAbx18iu3sKkmzSEayQy4Z0VRkpJnoRg2lwXz +ewyoUkz/aKzAQoZemR8DChlAlehXCVZkIXHxm+q6xQwoHk+lNmIvvfK6s76U +AaV1k9kblFgoazcyjylnwKcAgbe3sH99/tyQXcOAlk4572hlFqowE8vvbGNA +sh4rJFCFhSJ/sHMkvmIAw1/XrwKblj/pbNfBAGbi6Q8z2Ns21IiNduFxBeaU +8z4WOldrG/v9HQNSOs4Y6lFZSFrhH3+ZMQYMBu8pG1VloR/vg3snSAbMjq6P +FdrPQt3hDJWScQbktPB9MsIOGd4/qTnFgHyDh8/ysftSek9bLjJgu03HIxc1 +FkrYyHf48joCsqzoMvXqLFS38Nnebz0Bo27jid+wv34u8PHkIEDXQNhS5AA+ +DxUGmTQuAtbVH8n0wiadAn6a8hEQFcuqENTA9Zsd5j8sQIDc8ScXdLC1DvDL +I0ECDsn1XKJjx/EWnlAVJcD+1fczpWvjNYNlYlIEqLdvz0CaLETkFrYJShMw +XP1vrjN2XFzg4FZZAm7fvca8hk0SArwb5Alws9vn/XxtXMDo7JQKAWeqXf7T +OshCNb8FQkkqAcGyv3fZYo9NDCUN7SdgJ++lKl/sgw2Xn7/RIKC8arIhH3v0 +XLHEMyBge9NeHW4tFtpi+7da1SECwiQFeiSxNfWNzcoMCPDf/aBEHTtG9Etg +rjEBdyZbDZywqzeUxGWYEkAsma76Yo/M/p2XakaAgI7HagS2Rqvg22grAuJX +PN8VYNPKvny7YU2AMK9paS12dFoJ+7XjBHzJLu1px/7iY6Lib0vAWR+++Qls +XkchI+9TBMhkbZheXsszGTnt7kCAlsHFfRza+PldwZGOTgRce9B0Rxy7mts0 +y5ZGgGFlapkc9hem0FNrOp6/94uwKjbv8EiXGUHAyzt3W7WxNTpKScOzBMiX +Nz47jE2rCv4F7gS0iR77Zb6Wn2W6XescXm+febjNWn608B41T7zfqqU2Dmv5 +AaN6e70JeBcV4EnD3kwvs5X3IeDK5dwuV+wDliFe0n4EvKhRCzy3ln/wSIS4 +PwEL6nIe3thRsiLpwgH4vKwPyvXFfrJtrJzvMgGXHFXk/LGHf5a94gkioPWx +weKltfyvIcMcIQQMJlZzBmKr9xxZ+RNKwIXmSNqa/w+HlvKE "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6152015704378874, - 1.5607999649251942`}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6152015704378887}, + "PlotRange" -> {{0, 180}, {0.7040482113916534, 1.389764199204617}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.704048211391655}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -10289,21 +10474,20 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6152015704378874, - 1.5607999649251942`}}, + "PlotRange" -> {{0, 180}, {0.7040482113916534, 1.389764199204617}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6152015704378887}, + "AxesOrigin" -> {0, 0.704048211391655}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10317,104 +10501,104 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf -pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg -4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E -17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf -FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 -HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW -tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ -1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 -wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF -0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f -c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz -VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO -acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy -idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm -N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 -/P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 -Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP -/aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d -Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE -/SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS -PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 -alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO -z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs -wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 -td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 -/J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA -c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO -o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp -0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH -zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH -xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid -s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF -8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf -oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg -QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE -GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 -f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ -f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB -ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR -bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB -bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG -kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE -yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer -z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO -zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn -ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo -at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W -YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb -YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 -Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD -TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL -YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk -iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz -xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI -MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ -E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 -s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 -N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG -vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF -dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc -D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy -YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA -KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK -P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK -bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M -NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR -EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp -PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC -C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 -n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V -5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k -I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb -jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF -DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 -d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 -OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs -5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= +1:eJwV1nk4VdsbB3ApCqmQKREHXYR0RGRYr8iUKaWIxHHOFgoh0TU0oMEsLn4R +GSIZQ4RchBTh0igZwg6ZOYdK9Vv+2M9+Ps969ne9a+317mdL0bysGexsbGzj ++Fq7X+hU/ququ1M36cpJ8bgbJNKdyVGjGRSiOGtOizUPZagnyhjUISJg69Ca +reivOTertiAlpk9vPHZZQOhzDoMOtPpaRe4O9q1WkYbQgv8QF7fJQCL20+4L +91apb1Hs41rmP9iTfa+CAms/oL6em56p2DvGpO1Z+v1ILqDUOA37yGyQpm/H +IFouo4ZlYNevTvIEFAyj2/FbpbKx310V/vuJ5wgKVTDalYc9w2kwuUQdQ5YJ +H0MeYXNGedupLpMoZqgVlWJL8KW3XagdRy3KW2mV2BZirAcz+lNIVrvsVQM2 +kUkRUto0g6o0ePheYIfKWoZ7dMwis9KG6tfYH4Tf7PMrmEdcWbqK/dj0U+5u +d6IW0IrbxpUR7Lk0tvuPPRfRE2NF2SnsTRSlbfNUJnq5ejv7F3Yi/bnRNkEW +slFpWeK8SSLJPLvQvcssJHTAIW8btoZixMz52hV0Lf6+iiz2WfXBjkn9VZRY +Fttrjb0UcHED9+5f6EX+k71nsK/U8mjLb/qNLltoT3tgp4DGI9eOP2hTDT0q +Apue22bgU7AOCgWo9g3YBa13hq6KscOYz4mmLuy5r45B8VHs0Drw6fYgdpAC +s7zUcz0kU3mA7Raut0RKepbKASNJHFqG2H3dU/W/szlgi4h2kS225ELVqS2C +nNBz490VD+zC/RYJSsucYPFCwywBu/np5XXnajdB/6l631Fs5vPewXH9zdAs +t4/z7m0S8Ztt3vZ3/WZooSRnV2KrvDEAXk1eOGgTVN6N7T5amblPeQvc53uh +sCmSRN7sHSo6m7fBWdMLl4KwxyjF8+EsPnj8o+7W5Si8P8Qrri5VfiioOmeZ +hs3+iJQSucAPXo/ybtRjS6rusi74xg9CqU2WG6JJdEo/7nHnkABw9uboJmF3 +ufj4CrcLQtgOMrkjhkQDeTGRTpuEwNO/IoKJPfWtIPvhYSEw6dk5LhFLIm6/ +kV6tBiGYT/uX3RfbIOz4fqdKYdDIck+WjCNRTY46Mz9DFGLSjVF8PIlyxn74 +H/QTh4VMw/i2RBIZ29wY8C0SB0XCWW4Ve6pZwLCIFAdK0g1plSQS7c9RFJS0 +kwCNjB+HU7GbaY7lHLq74Nfg/7S8/yHRwuzQpfHrkqBY1zqpkkIigfMGFeXm +FEgVMnf+dZdEZA73WSt3CgxUSQXppJGour9bbDqCAg2y8j+DsR3MTl/f3UCB +vP63smzpuL49/tapVGnwcHitxHUPzz+ZNxciLAM3vby5lDNJdNyVR8l0WBbY +qjq/N+WQCPnbUE/+kgWzqQWxLbkkUgjPOEAX3Q3Sgnfu2WGzZaseCjm6G/hP +mrfMYxcN2J983LgbupLfpOzOw/15ovDqjqy/4PhQpF3WQ1yfgfm7SZo8CHRO +mn0pJlH2seRPyyHykMOWdVWzBPcxbXhow115OHiISzgem37l4jeJXnk4OT3j +oldKIr66dLZj+grAoBhHPCjD50d1RqFWeg/oNDbOXKsgkRglNjRyVBH61z2y +D6shUd3tJfnv7Eqw02W76By2w6LdG0JKCe6a3jJ2qCXRvWYZ+UOOStBSlvFL +rY5EFNeanpX3SsAT1tIw8wyvt3BMlmhXhqJ11KKLjSQSF5MgJO1U4NDHaZWP +bSRSzPXb/BNRYc7bLmT5A4lo9OtMJQsqqLsJVPl/xP0qnTDg5ECFPr5nx1jY +67NKSlsDqGDlOlHN6sP9dm/yeEIZFa5Tpqir/fh7muKULi+tCn5sXV9Fh/H7 +jTRTtuXcD5sQh2vmBInu+8hYVXaoQWYNu1XfTxJ1+6MDYbma8LJdI7VJ7iuS +cnxrcfqcDsxRuoWFHb4ixp8nxeKBAN3FP81CEr4i4W/VG4VphyDxuI5owZuv +yE9Vuz9BwQCeFAke0xEdR7Tp1TaBycPw1drkwBhtHBUd8t2Y0WUE7z3/GPDX +jKOcJffGwkQT4OHS7DHkn0AreiKvm0OPAG/J02T3wAn0mW39/LCzOXDXRM8e +JSeQ506vuKvSlqBCrhOrsZ5ExW5tDUnhVlBv29nf1DWJLi+KLu9xOwpSS7lS +nke+Iaap4YkXZ6yBw/VW4eKHb0jTPl5v7OgxuPu/3HiaxxTqEU13b1Y9Dnq5 +nX43f0yhHQ+u1+XL2cD77KTtD9KmUfWQgpkF7wlwUavU0T04gyTezLn6T5+A +m8IrGsZ9M0g1Kb4we+gk6KabyZRGz6L0DYvKCc9twaCa0s4lPoee6O3tC39q +B5IKMr/7guZQyoHbfKsFp0AzL8ZjtX8OdX3KjVCNsgcxfxdFCY15VGmeJuN9 +xQHC7opShNLm0fz5Y2ye9NMQ0p449+f7PGIayp+d0XcEy5WEbMkTCyh/+uOK +r/oZ8Ko3Cox7uoBs7+e6nN7sBBn7iRQtwUVU/vjImfU3nIChlpBb4L+INMV6 +vt/67gTRNV67xLsWkfSQa99/bs5wfGA7o4myhEZ5PCzTRpwhcj7KXD9wCXXH +WLgY2dDgrrtZkVHLEkoMyOC52E0DH0sZ9mI+Jqqr//PdxcQFbphnl/1nw0Rb +HeCGao0LmMy1ZUTHMJHk9hddO+tcQHLAVssvlolUOsxFOOtdIDnWyvJUHBNZ +a9s//NDoAosFDYMyCUyUuNO/PfilCyifLkgvT2KiHZ8fbW374AJ29hJEVRoT +yTgKpzgsu8BLzzfzJwqYSNNpJj98Px2edupdnXrORA9S53wt1OlwX715PKuZ +ibb3LugKa9CBh62x27aFiWYOL7/J16LDaZF8qeetTPz9YlvXcYgO147kPo9/ +yURblvns+I/S4exjlymhLiYajVbjyjhPh2gFE+a/H5kopjbIrfoBHVJXvptG +TDPReWqyZkA+Haoyd86KzDCR2cMyLo0COjjfu8r3CJs7mXxYVUSHn5qF3a9n +mSjcx2rySQUdHPpq1XgXmChIXsajsgnPH9IW5stiIvfk9nOPB+jwPpwr8vNv +JjLZQmr7DNHh96dzL878YSK5cDZe6hc66D/bGDqMTfqoFZWN0WHK9eaZETYW +crbImC6dooOyqMbIEDsL2XL4epb8wPk7SoabOFnIyHeHd6EQA7Z4BVMoW1io +KSPCNEGEAcu8jhrp2NodCzIBOxgAK43FwltZSEW2/aO+BAPEZwvruLexkOj7 +v/U/yTKgdpfRqQk+Fvp28LMQtxoDvInyiJv4PyWWPfOZ6zEGbHuvt2q+k4W4 +925OMbdhgOfl3YsV2GH2AT6qJxngtphkJCbOQgEVVn/9OcWAwIn6TSS2M7Eu +/h8aAyqbvkz47mIh1Vc0essFBpxPVBa8QGGh9/GyPNJxDAh+ei9s7i8WKka8 +Z8fjGfDg4t4IHTmcP73UXHSHAbx18iu3sKkmzSEayQy4Z0VRkpJnoRg2lwXz +ewyoUkz/aKzAQoZemR8DChlAlehXCVZkIXHxm+q6xQwoHk+lNmIvvfK6s76U +AaV1k9kblFgoazcyjylnwKcAgbe3sH99/tyQXcOAlk4572hlFqowE8vvbGNA +sh4rJFCFhSJ/sHMkvmIAw1/XrwKblj/pbNfBAGbi6Q8z2Ns21IiNduFxBeaU +8z4WOldrG/v9HQNSOs4Y6lFZSFrhH3+ZMQYMBu8pG1VloR/vg3snSAbMjq6P +FdrPQt3hDJWScQbktPB9MsIOGd4/qTnFgHyDh8/ysftSek9bLjJgu03HIxc1 +FkrYyHf48joCsqzoMvXqLFS38Nnebz0Bo27jid+wv34u8PHkIEDXQNhS5AA+ +DxUGmTQuAtbVH8n0wiadAn6a8hEQFcuqENTA9Zsd5j8sQIDc8ScXdLC1DvDL +I0ECDsn1XKJjx/EWnlAVJcD+1fczpWvjNYNlYlIEqLdvz0CaLETkFrYJShMw +XP1vrjN2XFzg4FZZAm7fvca8hk0SArwb5Alws9vn/XxtXMDo7JQKAWeqXf7T +OshCNb8FQkkqAcGyv3fZYo9NDCUN7SdgJ++lKl/sgw2Xn7/RIKC8arIhH3v0 +XLHEMyBge9NeHW4tFtpi+7da1SECwiQFeiSxNfWNzcoMCPDf/aBEHTtG9Etg +rjEBdyZbDZywqzeUxGWYEkAsma76Yo/M/p2XakaAgI7HagS2Rqvg22grAuJX +PN8VYNPKvny7YU2AMK9paS12dFoJ+7XjBHzJLu1px/7iY6Lib0vAWR+++Qls +XkchI+9TBMhkbZheXsszGTnt7kCAlsHFfRza+PldwZGOTgRce9B0Rxy7mts0 +y5ZGgGFlapkc9hem0FNrOp6/94uwKjbv8EiXGUHAyzt3W7WxNTpKScOzBMiX +Nz47jE2rCv4F7gS0iR77Zb6Wn2W6XescXm+febjNWn608B41T7zfqqU2Dmv5 +AaN6e70JeBcV4EnD3kwvs5X3IeDK5dwuV+wDliFe0n4EvKhRCzy3ln/wSIS4 +PwEL6nIe3thRsiLpwgH4vKwPyvXFfrJtrJzvMgGXHFXk/LGHf5a94gkioPWx +weKltfyvIcMcIQQMJlZzBmKr9xxZ+RNKwIXmSNqa/w+HlvKE "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + "PlotRange" -> {{0, 180}, {0.7040482113916534, 1.389764199204617}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6152015704378887}, + "AxesOrigin" -> {0, 0.704048211391655}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10424,7 +10608,8 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.6152015704378887}, + AxesOrigin->{0, 0.704048211391655}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -10452,7 +10637,8 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.7040482113916534, 1.389764199204617}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -10460,11 +10646,13 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913355426284504`*^9}, + CellChangeTimes->{3.9913355426284504`*^9, 3.9942597316641617`*^9}, CellLabel-> - "Out[277]=",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] + "Out[116]=",ExpressionUUID->"d3b5611d-a004-4f36-9d07-eb4e36803fe9"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"x", "=", RowBox[{"Plot", "[", @@ -10524,14 +10712,1176 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ - 3.9918494141657047`*^9, {3.991849451432905*^9, - 3.991849451715925*^9}},ExpressionUUID->"00a32bc3-df79-9e43-8f20-\ -d4884962c12d"], + 3.9918494141657047`*^9, {3.991849451432905*^9, 3.991849451715925*^9}}, + CellLabel-> + "In[117]:=",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3994580477625843`*^-263\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 41, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942597318541327`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"d764d0e8-3fdc-45e0-8c44-59906c6149b9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.562097770093102`*^-274\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 117, 42, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994259731867065*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"e2fb882f-415d-4b26-a956-c8295728c23b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.743638865938916`*^-285\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 117, 43, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994259731875087*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"dbffdea3-8e52-4a1d-84ae-19787e02441c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 117, 44, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994259731885069*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"795ea063-7b47-40ba-ad54-b9e0115d6a4e"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk81N0XB3BLopJ9Z8ZYi+zLjBkzzpElJNkSJftSWlQ8RCmUpaTHVkkL +SdokZsYuiuqhJCJLJIWSomSJSv2+v7++r/c/93Xu/Z7zuVclINw1mI+Hh8ee +l4fn/9/5odZH6mlFFkFtrUtDmbYW3VfkYiz7EuHFjtPV0lx1QOkXAXJ9WZBc +XJQ/xjGBKOfbvfx9hfClgUlv5liD+JRs1mIvG8xbC66kctzhbb1T+GxvEzwY +ka1+zA4CW/WJN9O9L+Hv50WV9nuRsNhLO/ut9z3MXFIbWbp2ApqtbhR1Fs6A +dsyxG+yNZ0Hpbc2HAJ0l+KXm12qkmQ9Se3xvC1rxY7zJHc9w1SLIMrStc9oi +hHZVKc6O5TehP9fgwbTYavThYX3RO14CeV13RKM0VmOaYKtuXVYJbBNZ4/uT +vhpLKj/EWRSWwOBx0h++wNW4wuw8Q/thCQzvW8mUqliNe0mS9Wf/lMC49WgV +1UsEeSqXXa2JvgsL387fO3xVFMmHLs8rBpZCWtGxF3zy4rjlQ4t9q0gZOJjs +kpBWE0e3vpBJa+kyEHrkumWNrjh68S4bqlMsgxMjGgMbLcXxU5791Ytry+CI +atuHnF3ieGZiOF11fRnsK5D7o1krjg3XOXOOkWXgcqlcZ+N2CRR4kbhO+FUZ +yOaMnMy+LImZf3vFl1LKQW5dxYmFYknk6ZZY+el0OSg0JR/bUSaJxv5OlR2Z +5UD+pvXPmmZJpOrnr82+WA4ajvv96sYlMfjoZPBoaTkYL1uijhhLobi4UldV +dzlsjpQZNXoqhSbPslyUSWxwXjU+dL5LCtc95n0br8IG18Ka/t+DUniVEisx +pMEGjw7vF0++SqFbjnlYmh4bduhcq90mLY0Vt1yI1diwe1Q/M9FPGnkkPrvq ++rMhxd3e4uW8NJ6SiXR/U8AGBW67Ah+vDD6KTWsSuM6GUkn3H4arZDC7P3yl +1i029Lz0KctUlsELb0XX+JWzQd0lUtXFTgZZty0zMh6yoWlT/vKOCzLYXlYi +8nOYDUu2c+3PmbIY51l27qsiBzKKY+8s2crionmceoQyB9SX86Tqusiilfzf +tGlVDjg+XmmZHiyLhsVV40NaHMizonAcz8iiwsHsN4dpHDDDjeefvZVFcxR5 +1+DCgQj6Vd/WRDns2d2kvjuRAw4FIrMbT8uhtWX8bfkkDqgKHkltPyuHK0Sk +6ppTONDR7VHedVMOU/8qHV2ZzgG9/cL8Q+1yyLUqORtwngPjxdHF3xXk8V3C +oC/rDgcaV48x/lGXx8jetMaiuxw4F+n64oeuPFowHcsEyzhgs1534TfKo8ON +/2wfcDlQ+Oa9vWCoPPpPR7n/vs8BbymnSUWOPIacCPApeMEB48N1CVfq5fFs +eYfgw04OrHy/VkbliTwqZ2g6vOniQM09ftDsl8cPbpUXhfo4ILOxJsPgrzxa +iy0kaA8T9Seom9hsVEASb+ngxa8csP76M3bfiAJau79eS1/FhRi7HO2HXwgL +p+g+EeZC6VXd15LzCpgWmrZyswgX5Nz96DVCiqjG6+vsLs6FL9WPf/DrKeLx +e/1kXVkuZCdmRF44pIh+0093yqlyoWVAS/1LgiLe/llhF6jGhd8mzV0WaYq4 +nP+68G11LoR8nDMavayIjv03rdat4QLDcfu0XrMidlXbnPi9jgvvpTX3PVqt +hMKCIssGTLggG95IkpVVQgHOzPFRUy44tng+30VRwj0PB2Y/UblQGZumI2qs +hJpVynfHzbhw6u23CS9PJeRMVP5bweRCo9mpvBJ/Jdx2+cO9KywuzGaqOfwN +U8K2RYmW4xZc8LH2uFUUp4QdFfMjlsgFo1t1oV8LlfCMpNVIuhUXQvm2yK4v +UcIda24Oelhz4dL2qSc5FUp4yMT9laINF5aLqGgyWpSwrp3VcsGWC68PJo+e +mFRCwcDm9mB7Loi2Kef0zivhd4FHgyIOXLDWqLHS5iGh7+6iaQ7h0t7PhS8k +SNjV89H4+0YuJDBd/BXMSMhOnzEFJy7Y+Vz5TltPwh3nvKS7CYvEfz6+xZGE +L0MbnYM2E/U0JxVn+JHwpCZnOMqZC4FjL2mlYSS0PN5PWySsLUhpfRZJQkwy ++BblwoVqh9rPy0+ScFGWczLIlQvH9gjGqWeT8PLP43u7CduecRdZf5mEb9Q6 +qsCNC92dUwZx5STMjqYmCblz4eKMeVNeHQkflPKtCiEcIH3SrfoxCaOtSn83 +EP7mqRY100/C4mk5rcAtXKiK3S8oPkrCW7fPhZQSPnrpfq7eFAlfLe2XniNs +07BS23GBhE3kVTSaBxeEh7fW7eIjI+l5a1sk4S7e644pwmT0dZPsu0s4T+37 +myIZMh5P2rztPWE/GwhvopCxqfGju8RWLqwJPc0zrE3GrWO2rSzCU6n9mUsm +ZNT17a8OIsy9rammCGTMUVitkUL4cFsE18yejMKpLqLXCa+femDj4UbGjxdk +YxoIrxAT6Y3YQUbR5s7ALsIdhtt3ZoaSkTs30zFC+LzbzcXSA2QULJx5+JWw +zz9zp9oOk3GSu8HsB2GN8+uVJpLIWHZup+nPrf+fn3/vCmaQsVaro3aBMOf1 +oIVGHhltWhdbvxOO/a3Vsb6IjJJ2AUHjhC3J0f5+pYS/pqT1ExbCR9/jqsmo +dmQCnxBu9xc/cbGJjNWUVcmlhM8e95GuaSP2F7/HO4uw9/U7xT09ZDxYlvX4 +AGHV/xZos8NkrDDhb3Yk/GncplX8MxlVeGw81AiXrczepj9HxsSDw/FzxPlG +6wx/dvxLRq+tvtbNhC2cdOPCVijjmVHHwtOE2zL/y79OUsb6gRvGEoSzOVKG +zWuU8XyNUVg78X+3vfJvGjZUxhn1UMtkwuNyv0cVbZXx+pBM3zjRL/cY9lF0 +Z2X801Cbl004yvuc4NZtyqjv5LWMQZi/wEA7a58ymlZ8eBlD9OPTh3F19w4p +Y7TECnNJwhkjTx2fJypjo2a6802if8lrgsOFziujj7fBqcdEvzNKL3CPNiqj +q1locBsxL9a97UtTLcp4f9MKjiNhJ55lG3xfKmNaRLRdKzFfga77+mFMGS0P +yjtXbSLm4bDKsXgBCnq3b1kIIebzmWj9NbOVFNy/zPh2KzG/zkUeLd9EKOh0 +v7p0LeHtz9PE/eUoKLDFomLAjgv7leevWa6joPODz0PSRD7McTJaFvUpmDPd +6LidyI9Yu3WT5SYU9E32kLtM5EvSAT+qqgUF/1zc1S5N5E9e89MWPhcKjviz +3wwAFx6F5k82R1Hw1jOVljoi7+x/0yWOHKbgufS8+v9oRD9kdFNN4inYMF+j +0UHkY3/NiviikxTk63+0vYfI06lVkRJJlyh49rFafLUBke9ldjTbJgoafT47 +103k8WXrke1/nlBQyO7fsZuaRL/0x8VXPqNgWfu0f4wGF3T5OK2aryjY3v9X +QIzI9/XuJG/BcQoGUJ5pSJG5sGdhOr5ltQoW7hVWjJEkzv9AiMwHCRVM5re4 +tEDcH0ITr+/wy6mg0ilLnUgxLlwfaO6xUFXBDSGceN/VXBhqOKtTQVXBfbJ6 +xoKCXNicRO+76quCWk9VEi4tcsBIIkH/cLkKPmmPFJoc4ABP2tyj3EoVzBTl +d/nez4F2/rBtlXUqmL5i+NNMLwd2z7kmTT9WwcuT01JfiPuyqE99IPS1CkaS +z6WVPSPuy/yWZHd+VdzbmdaTVsuBxXViQ7pbVLG/d/mnvLMcmL+skGC8TRXZ +R7GRns2BWVENdbqvKprO2Du8yuDA1Aw9zHqXKmocJKXwnebA+7rA+W1xqvgV +KD2mxPvi6cYqkdTrquhOtbnCu494n+z2gfdzqljEkL/AtOIA805Jwblzauj6 +TW+gapQNA5Q7+TYX1fDzbHbH03dsiD1368psvhqOfjjpOzDEhqqE4kuut9Sw +1MrSZa6PDUaeBbki9WqY3nK2Qvg5G7QEcjKS36nhr4eGYs+4bJDxPRwfpaOO +agPc1KxENkxLOPh5NKljZ2dmS5ksG0ZP+3kcFNTED/zGA3Iy5WD/Ndp+jLoG +KeJ//UOFy+BLoFAE99ha1FNmHZhk3yXe/7J8KU1aSP8qHtpqeQcknmueKfuq +jWEx7+OLZ26CUuo9ZypVB5Nzbr4aPFQMuevoYpKhuvh4hwFljFoETxUsTWcy +9VDv/sRkh3QhMJSaMvR79HHcmlU8/jQfRPgLI/0TDVDnDM2sa+EikBOUmV6a +hnj07sXolZq5sELDu9L1P0MM4c+av1qXA3os+XvRO4ww/RrpVvHrTDg4JNHs +wGOMRttv5N+gnIGvM6e32OcaY0ldTPCJpJOwQf9Jnr2uCVZHHel0TUuChhnz +Xz/aTdDpdcSN1qcJsE/H6HVnsCkaGh9xmTgTB6ypoG6vFVR8t+xv24GlaLBR +l9u0upCKQ1uHxk3zIoA7+VglqIiKSt/EzQ6cigD1qoj52mIq9r98plMVGwHL +HF7k77xDxZc3B6cDtkdAU3jy92YuFevyxrbSSRFgUTd7PvY/Khr/es77pvAg +UF0733/8QsVlYX/CBioOwNr4U4eaaDSU43qIac2EQ735dQFHBg1b/FzPB/SE +g/OPxqxXTBq2intrsmvC4dC+uZJxSxpq7T+rlR0fDi3efu9EHGk4tormt100 +HHbSqQ7b/Wj4g3b+n0WDfXDr+zvF2VRivS8S66RO7AHtYHqjxmsaii+/myES +ugv+VXX6eXyQhr+zxZf/ct4Fs28DTN8P0dD3QO7SD8YuaNh2+s6VERqunTrm +qCa6C1yd356XnaShV1yit0X1TogxT9q/gscM/xTeG4tbvRNaxDtVJjXMUORT +Dw43h0Bww84T3ANmeGOgJF3LJwim9k5E20SaoVqe6KUQhyA4RNqzuyfKDG/b +vXTnUoPg1JFw14XDZhjUcSg3QTQIyhhRFGayGTL4PPTePwyE35XH65vzzDDx +YV9XuVYgZN27Mvuy2QyxMGeeJRAAjQXdQdPSdPwadYXi3+ULw44qvlFydIx3 +3JUiz/UFnsW9Xr8U6FgQ+OPTlxxfWO8i6CRAoaOh6xqPUQ9feMLLoMlr07Hd +z6VKctAH2gLyV1ha0HGl+2py0Ocd8Fo9rDQjhI73Jpb72JO8Yfbm3x/6VXSM +bUjRMHrqCR88bAtO1tCxzK3t839sT+hblm43UkdH449zNgcuekKdn8KFcw/o ++N7A99ifPZ6QKGfKWGqlY+TjnpO84p4glhp25OkgHY+tG9G94r0VdEJf8QTz +MTAwjpXbzesBgRp3VuRtYuCxsFalwAQ3iH3sE6bpzMDrrePfhva4QUawxDO2 +KwObKgb49nm6Qf31mNPPtjLQKUb92mN9N5DStBNd8mdgR1TOOq+3rvBEc0zK +L4qBKlMCOsvWu4L2WmWKZj4DFTwjLfmkXWBaO5vK/sZAHdWAkd+Dm6CvDW0k +ZxgoQf3m+rJhEzzYN+UWOcdALV4P5eaCTXCGbX+A+pOBY8WRMfNBm0CbwVNS +y2+O5Gzfd1enHCHAfq9Ks4w5Bj8fVlpc7gjdoRuEu5nmWFz3tlluowNUF/16 +N5dqjiaKO7oeKm0AqlXkD4c0c7SuWz5nK7ABKt59ES5IN8dhn6+F7yZtgU0e +ojlkmeNEY7fP1kZbKMl9kH7lojnqDbAPrQ+0hYLTSfQNpea4+alfiNA9GzgZ +KZqZ22WOb8VtJ4a2WIOQZGrx5CtzdGOWkObQGpLLeerX95mj1enENrKONZyY +mv7wZdAcC59p7Sjhs4ajO7uZlh/M8VyHU2ZpmRUc9L4w/mnBHPu19a5YilnB +Nms1NCczse7Sbh3aG0tY6hYSaaYw0W48y3VVqyUUBE8NOKgx8dmBU2tnuZbw +IbkmettaJn70Tb7An24JB1s334sxYmJv/vRJWQtLOOV0hFxty8RIJcFr/EUI +tZ6vfpuEM/FQkXLn0G8L2PGp9mn9ASYuMfyW9vRbAE9sQa51JBOlyZIylEoL +sL2428Q9hok+aJc0G24BL9/w7ok4zsQLU6/uuI6xYCJAb6D8PBNLekxnn/Qw +QXFvSo3eA6I+qyPhd7oYcOZviGlaExP3ioqF3K5kAF+WbfnHR0yczcz78/gC +AyYqBW4VtDLx3w3J5a5+DKjlOZEr0cXEhAb3kMYpOmzLiY+eHyPWr/h1vEOM +Drl1MaYNq1jIFH2xuHYXDYSdvMoVRFhYf+vNqvTNNIgfNtONFmNh2IX4hyup +NNgpsKBuIM1C4cv29a78NKBtjpIqJLOwYFr4H4l8KvS8PziTZMhC+loed9aA +KUiv3FO+aSsLTZut6TeCTaDIKi72mxcLV8WtwyhHEzCKO2OV7c3CQw+9Ov2N +TcDpW9mrPn8WelGMlc/wmkByz9xi4B4WTh5ttTXLN4aFwmPrYxNYuFxmo0Dt +WyN4bZ7dVXyHhZwLznrsSEPY+U/RJftSFhq6ie0a9DGE+dKK4C9lLJQOYzxU +tjcECdW+H4aVLMTrWwKmSYawUYikdP8BC0t7PHPvtxhAfXdxUNcrYv//rro2 +omoADiLVulF9LAx6r9KcLWIAfRta5+UGWJiy/1N/5aw+zNZ+TvUZZqGn3Osf +/kX6oHvV4O6nCRbuv7T//qiAPtS/tow6PcnCTZMuG6qH9MBByg30v7HwOeuU +f02VHoSk/NMZOcdCE9fCVKswPZh9kJwnu8DCNsUGapuVHiT+PB9Y+5OF7hU3 +qxJIeiBmcktnxxILI3aGDQb+0IUre2vn/v5lIanNNOpgpy78D/1JMiA= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk81N0XB3BLopJ9Z8ZYi+zLjBkzzpElJNkSJftSWlQ8RCmUpaTHVkkL +SdokZsYuiuqhJCJLJIWSomSJSv2+v7++r/c/93Xu/Z7zuVclINw1mI+Hh8ee +l4fn/9/5odZH6mlFFkFtrUtDmbYW3VfkYiz7EuHFjtPV0lx1QOkXAXJ9WZBc +XJQ/xjGBKOfbvfx9hfClgUlv5liD+JRs1mIvG8xbC66kctzhbb1T+GxvEzwY +ka1+zA4CW/WJN9O9L+Hv50WV9nuRsNhLO/ut9z3MXFIbWbp2ApqtbhR1Fs6A +dsyxG+yNZ0Hpbc2HAJ0l+KXm12qkmQ9Se3xvC1rxY7zJHc9w1SLIMrStc9oi +hHZVKc6O5TehP9fgwbTYavThYX3RO14CeV13RKM0VmOaYKtuXVYJbBNZ4/uT +vhpLKj/EWRSWwOBx0h++wNW4wuw8Q/thCQzvW8mUqliNe0mS9Wf/lMC49WgV +1UsEeSqXXa2JvgsL387fO3xVFMmHLs8rBpZCWtGxF3zy4rjlQ4t9q0gZOJjs +kpBWE0e3vpBJa+kyEHrkumWNrjh68S4bqlMsgxMjGgMbLcXxU5791Ytry+CI +atuHnF3ieGZiOF11fRnsK5D7o1krjg3XOXOOkWXgcqlcZ+N2CRR4kbhO+FUZ +yOaMnMy+LImZf3vFl1LKQW5dxYmFYknk6ZZY+el0OSg0JR/bUSaJxv5OlR2Z +5UD+pvXPmmZJpOrnr82+WA4ajvv96sYlMfjoZPBoaTkYL1uijhhLobi4UldV +dzlsjpQZNXoqhSbPslyUSWxwXjU+dL5LCtc95n0br8IG18Ka/t+DUniVEisx +pMEGjw7vF0++SqFbjnlYmh4bduhcq90mLY0Vt1yI1diwe1Q/M9FPGnkkPrvq ++rMhxd3e4uW8NJ6SiXR/U8AGBW67Ah+vDD6KTWsSuM6GUkn3H4arZDC7P3yl +1i029Lz0KctUlsELb0XX+JWzQd0lUtXFTgZZty0zMh6yoWlT/vKOCzLYXlYi +8nOYDUu2c+3PmbIY51l27qsiBzKKY+8s2crionmceoQyB9SX86Tqusiilfzf +tGlVDjg+XmmZHiyLhsVV40NaHMizonAcz8iiwsHsN4dpHDDDjeefvZVFcxR5 +1+DCgQj6Vd/WRDns2d2kvjuRAw4FIrMbT8uhtWX8bfkkDqgKHkltPyuHK0Sk +6ppTONDR7VHedVMOU/8qHV2ZzgG9/cL8Q+1yyLUqORtwngPjxdHF3xXk8V3C +oC/rDgcaV48x/lGXx8jetMaiuxw4F+n64oeuPFowHcsEyzhgs1534TfKo8ON +/2wfcDlQ+Oa9vWCoPPpPR7n/vs8BbymnSUWOPIacCPApeMEB48N1CVfq5fFs +eYfgw04OrHy/VkbliTwqZ2g6vOniQM09ftDsl8cPbpUXhfo4ILOxJsPgrzxa +iy0kaA8T9Seom9hsVEASb+ngxa8csP76M3bfiAJau79eS1/FhRi7HO2HXwgL +p+g+EeZC6VXd15LzCpgWmrZyswgX5Nz96DVCiqjG6+vsLs6FL9WPf/DrKeLx +e/1kXVkuZCdmRF44pIh+0093yqlyoWVAS/1LgiLe/llhF6jGhd8mzV0WaYq4 +nP+68G11LoR8nDMavayIjv03rdat4QLDcfu0XrMidlXbnPi9jgvvpTX3PVqt +hMKCIssGTLggG95IkpVVQgHOzPFRUy44tng+30VRwj0PB2Y/UblQGZumI2qs +hJpVynfHzbhw6u23CS9PJeRMVP5bweRCo9mpvBJ/Jdx2+cO9KywuzGaqOfwN +U8K2RYmW4xZc8LH2uFUUp4QdFfMjlsgFo1t1oV8LlfCMpNVIuhUXQvm2yK4v +UcIda24Oelhz4dL2qSc5FUp4yMT9laINF5aLqGgyWpSwrp3VcsGWC68PJo+e +mFRCwcDm9mB7Loi2Kef0zivhd4FHgyIOXLDWqLHS5iGh7+6iaQ7h0t7PhS8k +SNjV89H4+0YuJDBd/BXMSMhOnzEFJy7Y+Vz5TltPwh3nvKS7CYvEfz6+xZGE +L0MbnYM2E/U0JxVn+JHwpCZnOMqZC4FjL2mlYSS0PN5PWySsLUhpfRZJQkwy ++BblwoVqh9rPy0+ScFGWczLIlQvH9gjGqWeT8PLP43u7CduecRdZf5mEb9Q6 +qsCNC92dUwZx5STMjqYmCblz4eKMeVNeHQkflPKtCiEcIH3SrfoxCaOtSn83 +EP7mqRY100/C4mk5rcAtXKiK3S8oPkrCW7fPhZQSPnrpfq7eFAlfLe2XniNs +07BS23GBhE3kVTSaBxeEh7fW7eIjI+l5a1sk4S7e644pwmT0dZPsu0s4T+37 +myIZMh5P2rztPWE/GwhvopCxqfGju8RWLqwJPc0zrE3GrWO2rSzCU6n9mUsm +ZNT17a8OIsy9rammCGTMUVitkUL4cFsE18yejMKpLqLXCa+femDj4UbGjxdk +YxoIrxAT6Y3YQUbR5s7ALsIdhtt3ZoaSkTs30zFC+LzbzcXSA2QULJx5+JWw +zz9zp9oOk3GSu8HsB2GN8+uVJpLIWHZup+nPrf+fn3/vCmaQsVaro3aBMOf1 +oIVGHhltWhdbvxOO/a3Vsb6IjJJ2AUHjhC3J0f5+pYS/pqT1ExbCR9/jqsmo +dmQCnxBu9xc/cbGJjNWUVcmlhM8e95GuaSP2F7/HO4uw9/U7xT09ZDxYlvX4 +AGHV/xZos8NkrDDhb3Yk/GncplX8MxlVeGw81AiXrczepj9HxsSDw/FzxPlG +6wx/dvxLRq+tvtbNhC2cdOPCVijjmVHHwtOE2zL/y79OUsb6gRvGEoSzOVKG +zWuU8XyNUVg78X+3vfJvGjZUxhn1UMtkwuNyv0cVbZXx+pBM3zjRL/cY9lF0 +Z2X801Cbl004yvuc4NZtyqjv5LWMQZi/wEA7a58ymlZ8eBlD9OPTh3F19w4p +Y7TECnNJwhkjTx2fJypjo2a6802if8lrgsOFziujj7fBqcdEvzNKL3CPNiqj +q1locBsxL9a97UtTLcp4f9MKjiNhJ55lG3xfKmNaRLRdKzFfga77+mFMGS0P +yjtXbSLm4bDKsXgBCnq3b1kIIebzmWj9NbOVFNy/zPh2KzG/zkUeLd9EKOh0 +v7p0LeHtz9PE/eUoKLDFomLAjgv7leevWa6joPODz0PSRD7McTJaFvUpmDPd +6LidyI9Yu3WT5SYU9E32kLtM5EvSAT+qqgUF/1zc1S5N5E9e89MWPhcKjviz +3wwAFx6F5k82R1Hw1jOVljoi7+x/0yWOHKbgufS8+v9oRD9kdFNN4inYMF+j +0UHkY3/NiviikxTk63+0vYfI06lVkRJJlyh49rFafLUBke9ldjTbJgoafT47 +103k8WXrke1/nlBQyO7fsZuaRL/0x8VXPqNgWfu0f4wGF3T5OK2aryjY3v9X +QIzI9/XuJG/BcQoGUJ5pSJG5sGdhOr5ltQoW7hVWjJEkzv9AiMwHCRVM5re4 +tEDcH0ITr+/wy6mg0ilLnUgxLlwfaO6xUFXBDSGceN/VXBhqOKtTQVXBfbJ6 +xoKCXNicRO+76quCWk9VEi4tcsBIIkH/cLkKPmmPFJoc4ABP2tyj3EoVzBTl +d/nez4F2/rBtlXUqmL5i+NNMLwd2z7kmTT9WwcuT01JfiPuyqE99IPS1CkaS +z6WVPSPuy/yWZHd+VdzbmdaTVsuBxXViQ7pbVLG/d/mnvLMcmL+skGC8TRXZ +R7GRns2BWVENdbqvKprO2Du8yuDA1Aw9zHqXKmocJKXwnebA+7rA+W1xqvgV +KD2mxPvi6cYqkdTrquhOtbnCu494n+z2gfdzqljEkL/AtOIA805Jwblzauj6 +TW+gapQNA5Q7+TYX1fDzbHbH03dsiD1368psvhqOfjjpOzDEhqqE4kuut9Sw +1MrSZa6PDUaeBbki9WqY3nK2Qvg5G7QEcjKS36nhr4eGYs+4bJDxPRwfpaOO +agPc1KxENkxLOPh5NKljZ2dmS5ksG0ZP+3kcFNTED/zGA3Iy5WD/Ndp+jLoG +KeJ//UOFy+BLoFAE99ha1FNmHZhk3yXe/7J8KU1aSP8qHtpqeQcknmueKfuq +jWEx7+OLZ26CUuo9ZypVB5Nzbr4aPFQMuevoYpKhuvh4hwFljFoETxUsTWcy +9VDv/sRkh3QhMJSaMvR79HHcmlU8/jQfRPgLI/0TDVDnDM2sa+EikBOUmV6a +hnj07sXolZq5sELDu9L1P0MM4c+av1qXA3os+XvRO4ww/RrpVvHrTDg4JNHs +wGOMRttv5N+gnIGvM6e32OcaY0ldTPCJpJOwQf9Jnr2uCVZHHel0TUuChhnz +Xz/aTdDpdcSN1qcJsE/H6HVnsCkaGh9xmTgTB6ypoG6vFVR8t+xv24GlaLBR +l9u0upCKQ1uHxk3zIoA7+VglqIiKSt/EzQ6cigD1qoj52mIq9r98plMVGwHL +HF7k77xDxZc3B6cDtkdAU3jy92YuFevyxrbSSRFgUTd7PvY/Khr/es77pvAg +UF0733/8QsVlYX/CBioOwNr4U4eaaDSU43qIac2EQ735dQFHBg1b/FzPB/SE +g/OPxqxXTBq2intrsmvC4dC+uZJxSxpq7T+rlR0fDi3efu9EHGk4tormt100 +HHbSqQ7b/Wj4g3b+n0WDfXDr+zvF2VRivS8S66RO7AHtYHqjxmsaii+/myES +ugv+VXX6eXyQhr+zxZf/ct4Fs28DTN8P0dD3QO7SD8YuaNh2+s6VERqunTrm +qCa6C1yd356XnaShV1yit0X1TogxT9q/gscM/xTeG4tbvRNaxDtVJjXMUORT +Dw43h0Bww84T3ANmeGOgJF3LJwim9k5E20SaoVqe6KUQhyA4RNqzuyfKDG/b +vXTnUoPg1JFw14XDZhjUcSg3QTQIyhhRFGayGTL4PPTePwyE35XH65vzzDDx +YV9XuVYgZN27Mvuy2QyxMGeeJRAAjQXdQdPSdPwadYXi3+ULw44qvlFydIx3 +3JUiz/UFnsW9Xr8U6FgQ+OPTlxxfWO8i6CRAoaOh6xqPUQ9feMLLoMlr07Hd +z6VKctAH2gLyV1ha0HGl+2py0Ocd8Fo9rDQjhI73Jpb72JO8Yfbm3x/6VXSM +bUjRMHrqCR88bAtO1tCxzK3t839sT+hblm43UkdH449zNgcuekKdn8KFcw/o ++N7A99ifPZ6QKGfKWGqlY+TjnpO84p4glhp25OkgHY+tG9G94r0VdEJf8QTz +MTAwjpXbzesBgRp3VuRtYuCxsFalwAQ3iH3sE6bpzMDrrePfhva4QUawxDO2 +KwObKgb49nm6Qf31mNPPtjLQKUb92mN9N5DStBNd8mdgR1TOOq+3rvBEc0zK +L4qBKlMCOsvWu4L2WmWKZj4DFTwjLfmkXWBaO5vK/sZAHdWAkd+Dm6CvDW0k +ZxgoQf3m+rJhEzzYN+UWOcdALV4P5eaCTXCGbX+A+pOBY8WRMfNBm0CbwVNS +y2+O5Gzfd1enHCHAfq9Ks4w5Bj8fVlpc7gjdoRuEu5nmWFz3tlluowNUF/16 +N5dqjiaKO7oeKm0AqlXkD4c0c7SuWz5nK7ABKt59ES5IN8dhn6+F7yZtgU0e +ojlkmeNEY7fP1kZbKMl9kH7lojnqDbAPrQ+0hYLTSfQNpea4+alfiNA9GzgZ +KZqZ22WOb8VtJ4a2WIOQZGrx5CtzdGOWkObQGpLLeerX95mj1enENrKONZyY +mv7wZdAcC59p7Sjhs4ajO7uZlh/M8VyHU2ZpmRUc9L4w/mnBHPu19a5YilnB +Nms1NCczse7Sbh3aG0tY6hYSaaYw0W48y3VVqyUUBE8NOKgx8dmBU2tnuZbw +IbkmettaJn70Tb7An24JB1s334sxYmJv/vRJWQtLOOV0hFxty8RIJcFr/EUI +tZ6vfpuEM/FQkXLn0G8L2PGp9mn9ASYuMfyW9vRbAE9sQa51JBOlyZIylEoL +sL2428Q9hok+aJc0G24BL9/w7ok4zsQLU6/uuI6xYCJAb6D8PBNLekxnn/Qw +QXFvSo3eA6I+qyPhd7oYcOZviGlaExP3ioqF3K5kAF+WbfnHR0yczcz78/gC +AyYqBW4VtDLx3w3J5a5+DKjlOZEr0cXEhAb3kMYpOmzLiY+eHyPWr/h1vEOM +Drl1MaYNq1jIFH2xuHYXDYSdvMoVRFhYf+vNqvTNNIgfNtONFmNh2IX4hyup +NNgpsKBuIM1C4cv29a78NKBtjpIqJLOwYFr4H4l8KvS8PziTZMhC+loed9aA +KUiv3FO+aSsLTZut6TeCTaDIKi72mxcLV8WtwyhHEzCKO2OV7c3CQw+9Ov2N +TcDpW9mrPn8WelGMlc/wmkByz9xi4B4WTh5ttTXLN4aFwmPrYxNYuFxmo0Dt +WyN4bZ7dVXyHhZwLznrsSEPY+U/RJftSFhq6ie0a9DGE+dKK4C9lLJQOYzxU +tjcECdW+H4aVLMTrWwKmSYawUYikdP8BC0t7PHPvtxhAfXdxUNcrYv//rro2 +omoADiLVulF9LAx6r9KcLWIAfRta5+UGWJiy/1N/5aw+zNZ+TvUZZqGn3Osf +/kX6oHvV4O6nCRbuv7T//qiAPtS/tow6PcnCTZMuG6qH9MBByg30v7HwOeuU +f02VHoSk/NMZOcdCE9fCVKswPZh9kJwnu8DCNsUGapuVHiT+PB9Y+5OF7hU3 +qxJIeiBmcktnxxILI3aGDQb+0IUre2vn/v5lIanNNOpgpy78D/1JMiA= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07946742824477826}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07946742824477826}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk81N0XB3BLopJ9Z8ZYi+zLjBkzzpElJNkSJftSWlQ8RCmUpaTHVkkL +SdokZsYuiuqhJCJLJIWSomSJSv2+v7++r/c/93Xu/Z7zuVclINw1mI+Hh8ee +l4fn/9/5odZH6mlFFkFtrUtDmbYW3VfkYiz7EuHFjtPV0lx1QOkXAXJ9WZBc +XJQ/xjGBKOfbvfx9hfClgUlv5liD+JRs1mIvG8xbC66kctzhbb1T+GxvEzwY +ka1+zA4CW/WJN9O9L+Hv50WV9nuRsNhLO/ut9z3MXFIbWbp2ApqtbhR1Fs6A +dsyxG+yNZ0Hpbc2HAJ0l+KXm12qkmQ9Se3xvC1rxY7zJHc9w1SLIMrStc9oi +hHZVKc6O5TehP9fgwbTYavThYX3RO14CeV13RKM0VmOaYKtuXVYJbBNZ4/uT +vhpLKj/EWRSWwOBx0h++wNW4wuw8Q/thCQzvW8mUqliNe0mS9Wf/lMC49WgV +1UsEeSqXXa2JvgsL387fO3xVFMmHLs8rBpZCWtGxF3zy4rjlQ4t9q0gZOJjs +kpBWE0e3vpBJa+kyEHrkumWNrjh68S4bqlMsgxMjGgMbLcXxU5791Ytry+CI +atuHnF3ieGZiOF11fRnsK5D7o1krjg3XOXOOkWXgcqlcZ+N2CRR4kbhO+FUZ +yOaMnMy+LImZf3vFl1LKQW5dxYmFYknk6ZZY+el0OSg0JR/bUSaJxv5OlR2Z +5UD+pvXPmmZJpOrnr82+WA4ajvv96sYlMfjoZPBoaTkYL1uijhhLobi4UldV +dzlsjpQZNXoqhSbPslyUSWxwXjU+dL5LCtc95n0br8IG18Ka/t+DUniVEisx +pMEGjw7vF0++SqFbjnlYmh4bduhcq90mLY0Vt1yI1diwe1Q/M9FPGnkkPrvq ++rMhxd3e4uW8NJ6SiXR/U8AGBW67Ah+vDD6KTWsSuM6GUkn3H4arZDC7P3yl +1i029Lz0KctUlsELb0XX+JWzQd0lUtXFTgZZty0zMh6yoWlT/vKOCzLYXlYi +8nOYDUu2c+3PmbIY51l27qsiBzKKY+8s2crionmceoQyB9SX86Tqusiilfzf +tGlVDjg+XmmZHiyLhsVV40NaHMizonAcz8iiwsHsN4dpHDDDjeefvZVFcxR5 +1+DCgQj6Vd/WRDns2d2kvjuRAw4FIrMbT8uhtWX8bfkkDqgKHkltPyuHK0Sk +6ppTONDR7VHedVMOU/8qHV2ZzgG9/cL8Q+1yyLUqORtwngPjxdHF3xXk8V3C +oC/rDgcaV48x/lGXx8jetMaiuxw4F+n64oeuPFowHcsEyzhgs1534TfKo8ON +/2wfcDlQ+Oa9vWCoPPpPR7n/vs8BbymnSUWOPIacCPApeMEB48N1CVfq5fFs +eYfgw04OrHy/VkbliTwqZ2g6vOniQM09ftDsl8cPbpUXhfo4ILOxJsPgrzxa +iy0kaA8T9Seom9hsVEASb+ngxa8csP76M3bfiAJau79eS1/FhRi7HO2HXwgL +p+g+EeZC6VXd15LzCpgWmrZyswgX5Nz96DVCiqjG6+vsLs6FL9WPf/DrKeLx +e/1kXVkuZCdmRF44pIh+0093yqlyoWVAS/1LgiLe/llhF6jGhd8mzV0WaYq4 +nP+68G11LoR8nDMavayIjv03rdat4QLDcfu0XrMidlXbnPi9jgvvpTX3PVqt +hMKCIssGTLggG95IkpVVQgHOzPFRUy44tng+30VRwj0PB2Y/UblQGZumI2qs +hJpVynfHzbhw6u23CS9PJeRMVP5bweRCo9mpvBJ/Jdx2+cO9KywuzGaqOfwN +U8K2RYmW4xZc8LH2uFUUp4QdFfMjlsgFo1t1oV8LlfCMpNVIuhUXQvm2yK4v +UcIda24Oelhz4dL2qSc5FUp4yMT9laINF5aLqGgyWpSwrp3VcsGWC68PJo+e +mFRCwcDm9mB7Loi2Kef0zivhd4FHgyIOXLDWqLHS5iGh7+6iaQ7h0t7PhS8k +SNjV89H4+0YuJDBd/BXMSMhOnzEFJy7Y+Vz5TltPwh3nvKS7CYvEfz6+xZGE +L0MbnYM2E/U0JxVn+JHwpCZnOMqZC4FjL2mlYSS0PN5PWySsLUhpfRZJQkwy ++BblwoVqh9rPy0+ScFGWczLIlQvH9gjGqWeT8PLP43u7CduecRdZf5mEb9Q6 +qsCNC92dUwZx5STMjqYmCblz4eKMeVNeHQkflPKtCiEcIH3SrfoxCaOtSn83 +EP7mqRY100/C4mk5rcAtXKiK3S8oPkrCW7fPhZQSPnrpfq7eFAlfLe2XniNs +07BS23GBhE3kVTSaBxeEh7fW7eIjI+l5a1sk4S7e644pwmT0dZPsu0s4T+37 +myIZMh5P2rztPWE/GwhvopCxqfGju8RWLqwJPc0zrE3GrWO2rSzCU6n9mUsm +ZNT17a8OIsy9rammCGTMUVitkUL4cFsE18yejMKpLqLXCa+femDj4UbGjxdk +YxoIrxAT6Y3YQUbR5s7ALsIdhtt3ZoaSkTs30zFC+LzbzcXSA2QULJx5+JWw +zz9zp9oOk3GSu8HsB2GN8+uVJpLIWHZup+nPrf+fn3/vCmaQsVaro3aBMOf1 +oIVGHhltWhdbvxOO/a3Vsb6IjJJ2AUHjhC3J0f5+pYS/pqT1ExbCR9/jqsmo +dmQCnxBu9xc/cbGJjNWUVcmlhM8e95GuaSP2F7/HO4uw9/U7xT09ZDxYlvX4 +AGHV/xZos8NkrDDhb3Yk/GncplX8MxlVeGw81AiXrczepj9HxsSDw/FzxPlG +6wx/dvxLRq+tvtbNhC2cdOPCVijjmVHHwtOE2zL/y79OUsb6gRvGEoSzOVKG +zWuU8XyNUVg78X+3vfJvGjZUxhn1UMtkwuNyv0cVbZXx+pBM3zjRL/cY9lF0 +Z2X801Cbl004yvuc4NZtyqjv5LWMQZi/wEA7a58ymlZ8eBlD9OPTh3F19w4p +Y7TECnNJwhkjTx2fJypjo2a6802if8lrgsOFziujj7fBqcdEvzNKL3CPNiqj +q1locBsxL9a97UtTLcp4f9MKjiNhJ55lG3xfKmNaRLRdKzFfga77+mFMGS0P +yjtXbSLm4bDKsXgBCnq3b1kIIebzmWj9NbOVFNy/zPh2KzG/zkUeLd9EKOh0 +v7p0LeHtz9PE/eUoKLDFomLAjgv7leevWa6joPODz0PSRD7McTJaFvUpmDPd +6LidyI9Yu3WT5SYU9E32kLtM5EvSAT+qqgUF/1zc1S5N5E9e89MWPhcKjviz +3wwAFx6F5k82R1Hw1jOVljoi7+x/0yWOHKbgufS8+v9oRD9kdFNN4inYMF+j +0UHkY3/NiviikxTk63+0vYfI06lVkRJJlyh49rFafLUBke9ldjTbJgoafT47 +103k8WXrke1/nlBQyO7fsZuaRL/0x8VXPqNgWfu0f4wGF3T5OK2aryjY3v9X +QIzI9/XuJG/BcQoGUJ5pSJG5sGdhOr5ltQoW7hVWjJEkzv9AiMwHCRVM5re4 +tEDcH0ITr+/wy6mg0ilLnUgxLlwfaO6xUFXBDSGceN/VXBhqOKtTQVXBfbJ6 +xoKCXNicRO+76quCWk9VEi4tcsBIIkH/cLkKPmmPFJoc4ABP2tyj3EoVzBTl +d/nez4F2/rBtlXUqmL5i+NNMLwd2z7kmTT9WwcuT01JfiPuyqE99IPS1CkaS +z6WVPSPuy/yWZHd+VdzbmdaTVsuBxXViQ7pbVLG/d/mnvLMcmL+skGC8TRXZ +R7GRns2BWVENdbqvKprO2Du8yuDA1Aw9zHqXKmocJKXwnebA+7rA+W1xqvgV +KD2mxPvi6cYqkdTrquhOtbnCu494n+z2gfdzqljEkL/AtOIA805Jwblzauj6 +TW+gapQNA5Q7+TYX1fDzbHbH03dsiD1368psvhqOfjjpOzDEhqqE4kuut9Sw +1MrSZa6PDUaeBbki9WqY3nK2Qvg5G7QEcjKS36nhr4eGYs+4bJDxPRwfpaOO +agPc1KxENkxLOPh5NKljZ2dmS5ksG0ZP+3kcFNTED/zGA3Iy5WD/Ndp+jLoG +KeJ//UOFy+BLoFAE99ha1FNmHZhk3yXe/7J8KU1aSP8qHtpqeQcknmueKfuq +jWEx7+OLZ26CUuo9ZypVB5Nzbr4aPFQMuevoYpKhuvh4hwFljFoETxUsTWcy +9VDv/sRkh3QhMJSaMvR79HHcmlU8/jQfRPgLI/0TDVDnDM2sa+EikBOUmV6a +hnj07sXolZq5sELDu9L1P0MM4c+av1qXA3os+XvRO4ww/RrpVvHrTDg4JNHs +wGOMRttv5N+gnIGvM6e32OcaY0ldTPCJpJOwQf9Jnr2uCVZHHel0TUuChhnz +Xz/aTdDpdcSN1qcJsE/H6HVnsCkaGh9xmTgTB6ypoG6vFVR8t+xv24GlaLBR +l9u0upCKQ1uHxk3zIoA7+VglqIiKSt/EzQ6cigD1qoj52mIq9r98plMVGwHL +HF7k77xDxZc3B6cDtkdAU3jy92YuFevyxrbSSRFgUTd7PvY/Khr/es77pvAg +UF0733/8QsVlYX/CBioOwNr4U4eaaDSU43qIac2EQ735dQFHBg1b/FzPB/SE +g/OPxqxXTBq2intrsmvC4dC+uZJxSxpq7T+rlR0fDi3efu9EHGk4tormt100 +HHbSqQ7b/Wj4g3b+n0WDfXDr+zvF2VRivS8S66RO7AHtYHqjxmsaii+/myES +ugv+VXX6eXyQhr+zxZf/ct4Fs28DTN8P0dD3QO7SD8YuaNh2+s6VERqunTrm +qCa6C1yd356XnaShV1yit0X1TogxT9q/gscM/xTeG4tbvRNaxDtVJjXMUORT +Dw43h0Bww84T3ANmeGOgJF3LJwim9k5E20SaoVqe6KUQhyA4RNqzuyfKDG/b +vXTnUoPg1JFw14XDZhjUcSg3QTQIyhhRFGayGTL4PPTePwyE35XH65vzzDDx +YV9XuVYgZN27Mvuy2QyxMGeeJRAAjQXdQdPSdPwadYXi3+ULw44qvlFydIx3 +3JUiz/UFnsW9Xr8U6FgQ+OPTlxxfWO8i6CRAoaOh6xqPUQ9feMLLoMlr07Hd +z6VKctAH2gLyV1ha0HGl+2py0Ocd8Fo9rDQjhI73Jpb72JO8Yfbm3x/6VXSM +bUjRMHrqCR88bAtO1tCxzK3t839sT+hblm43UkdH449zNgcuekKdn8KFcw/o ++N7A99ifPZ6QKGfKWGqlY+TjnpO84p4glhp25OkgHY+tG9G94r0VdEJf8QTz +MTAwjpXbzesBgRp3VuRtYuCxsFalwAQ3iH3sE6bpzMDrrePfhva4QUawxDO2 +KwObKgb49nm6Qf31mNPPtjLQKUb92mN9N5DStBNd8mdgR1TOOq+3rvBEc0zK +L4qBKlMCOsvWu4L2WmWKZj4DFTwjLfmkXWBaO5vK/sZAHdWAkd+Dm6CvDW0k +ZxgoQf3m+rJhEzzYN+UWOcdALV4P5eaCTXCGbX+A+pOBY8WRMfNBm0CbwVNS +y2+O5Gzfd1enHCHAfq9Ks4w5Bj8fVlpc7gjdoRuEu5nmWFz3tlluowNUF/16 +N5dqjiaKO7oeKm0AqlXkD4c0c7SuWz5nK7ABKt59ES5IN8dhn6+F7yZtgU0e +ojlkmeNEY7fP1kZbKMl9kH7lojnqDbAPrQ+0hYLTSfQNpea4+alfiNA9GzgZ +KZqZ22WOb8VtJ4a2WIOQZGrx5CtzdGOWkObQGpLLeerX95mj1enENrKONZyY +mv7wZdAcC59p7Sjhs4ajO7uZlh/M8VyHU2ZpmRUc9L4w/mnBHPu19a5YilnB +Nms1NCczse7Sbh3aG0tY6hYSaaYw0W48y3VVqyUUBE8NOKgx8dmBU2tnuZbw +IbkmettaJn70Tb7An24JB1s334sxYmJv/vRJWQtLOOV0hFxty8RIJcFr/EUI +tZ6vfpuEM/FQkXLn0G8L2PGp9mn9ASYuMfyW9vRbAE9sQa51JBOlyZIylEoL +sL2428Q9hok+aJc0G24BL9/w7ok4zsQLU6/uuI6xYCJAb6D8PBNLekxnn/Qw +QXFvSo3eA6I+qyPhd7oYcOZviGlaExP3ioqF3K5kAF+WbfnHR0yczcz78/gC +AyYqBW4VtDLx3w3J5a5+DKjlOZEr0cXEhAb3kMYpOmzLiY+eHyPWr/h1vEOM +Drl1MaYNq1jIFH2xuHYXDYSdvMoVRFhYf+vNqvTNNIgfNtONFmNh2IX4hyup +NNgpsKBuIM1C4cv29a78NKBtjpIqJLOwYFr4H4l8KvS8PziTZMhC+loed9aA +KUiv3FO+aSsLTZut6TeCTaDIKi72mxcLV8WtwyhHEzCKO2OV7c3CQw+9Ov2N +TcDpW9mrPn8WelGMlc/wmkByz9xi4B4WTh5ttTXLN4aFwmPrYxNYuFxmo0Dt +WyN4bZ7dVXyHhZwLznrsSEPY+U/RJftSFhq6ie0a9DGE+dKK4C9lLJQOYzxU +tjcECdW+H4aVLMTrWwKmSYawUYikdP8BC0t7PHPvtxhAfXdxUNcrYv//rro2 +omoADiLVulF9LAx6r9KcLWIAfRta5+UGWJiy/1N/5aw+zNZ+TvUZZqGn3Osf +/kX6oHvV4O6nCRbuv7T//qiAPtS/tow6PcnCTZMuG6qH9MBByg30v7HwOeuU +f02VHoSk/NMZOcdCE9fCVKswPZh9kJwnu8DCNsUGapuVHiT+PB9Y+5OF7hU3 +qxJIeiBmcktnxxILI3aGDQb+0IUre2vn/v5lIanNNOpgpy78D/1JMiA= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07946742824477826}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07946742824477826}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994260477069603*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"804d50dd-7c1f-40b6-b59c-85f86d8f140e"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", - RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"344da507-9044-\ -ef47-aa8c-99f282e3d6d3"], + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellLabel-> + "In[118]:=",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk81N0XB3BLopJ9Z8ZYi+zLjBkzzpElJNkSJftSWlQ8RCmUpaTHVkkL +SdokZsYuiuqhJCJLJIWSomSJSv2+v7++r/c/93Xu/Z7zuVclINw1mI+Hh8ee +l4fn/9/5odZH6mlFFkFtrUtDmbYW3VfkYiz7EuHFjtPV0lx1QOkXAXJ9WZBc +XJQ/xjGBKOfbvfx9hfClgUlv5liD+JRs1mIvG8xbC66kctzhbb1T+GxvEzwY +ka1+zA4CW/WJN9O9L+Hv50WV9nuRsNhLO/ut9z3MXFIbWbp2ApqtbhR1Fs6A +dsyxG+yNZ0Hpbc2HAJ0l+KXm12qkmQ9Se3xvC1rxY7zJHc9w1SLIMrStc9oi +hHZVKc6O5TehP9fgwbTYavThYX3RO14CeV13RKM0VmOaYKtuXVYJbBNZ4/uT +vhpLKj/EWRSWwOBx0h++wNW4wuw8Q/thCQzvW8mUqliNe0mS9Wf/lMC49WgV +1UsEeSqXXa2JvgsL387fO3xVFMmHLs8rBpZCWtGxF3zy4rjlQ4t9q0gZOJjs +kpBWE0e3vpBJa+kyEHrkumWNrjh68S4bqlMsgxMjGgMbLcXxU5791Ytry+CI +atuHnF3ieGZiOF11fRnsK5D7o1krjg3XOXOOkWXgcqlcZ+N2CRR4kbhO+FUZ +yOaMnMy+LImZf3vFl1LKQW5dxYmFYknk6ZZY+el0OSg0JR/bUSaJxv5OlR2Z +5UD+pvXPmmZJpOrnr82+WA4ajvv96sYlMfjoZPBoaTkYL1uijhhLobi4UldV +dzlsjpQZNXoqhSbPslyUSWxwXjU+dL5LCtc95n0br8IG18Ka/t+DUniVEisx +pMEGjw7vF0++SqFbjnlYmh4bduhcq90mLY0Vt1yI1diwe1Q/M9FPGnkkPrvq ++rMhxd3e4uW8NJ6SiXR/U8AGBW67Ah+vDD6KTWsSuM6GUkn3H4arZDC7P3yl +1i029Lz0KctUlsELb0XX+JWzQd0lUtXFTgZZty0zMh6yoWlT/vKOCzLYXlYi +8nOYDUu2c+3PmbIY51l27qsiBzKKY+8s2crionmceoQyB9SX86Tqusiilfzf +tGlVDjg+XmmZHiyLhsVV40NaHMizonAcz8iiwsHsN4dpHDDDjeefvZVFcxR5 +1+DCgQj6Vd/WRDns2d2kvjuRAw4FIrMbT8uhtWX8bfkkDqgKHkltPyuHK0Sk +6ppTONDR7VHedVMOU/8qHV2ZzgG9/cL8Q+1yyLUqORtwngPjxdHF3xXk8V3C +oC/rDgcaV48x/lGXx8jetMaiuxw4F+n64oeuPFowHcsEyzhgs1534TfKo8ON +/2wfcDlQ+Oa9vWCoPPpPR7n/vs8BbymnSUWOPIacCPApeMEB48N1CVfq5fFs +eYfgw04OrHy/VkbliTwqZ2g6vOniQM09ftDsl8cPbpUXhfo4ILOxJsPgrzxa +iy0kaA8T9Seom9hsVEASb+ngxa8csP76M3bfiAJau79eS1/FhRi7HO2HXwgL +p+g+EeZC6VXd15LzCpgWmrZyswgX5Nz96DVCiqjG6+vsLs6FL9WPf/DrKeLx +e/1kXVkuZCdmRF44pIh+0093yqlyoWVAS/1LgiLe/llhF6jGhd8mzV0WaYq4 +nP+68G11LoR8nDMavayIjv03rdat4QLDcfu0XrMidlXbnPi9jgvvpTX3PVqt +hMKCIssGTLggG95IkpVVQgHOzPFRUy44tng+30VRwj0PB2Y/UblQGZumI2qs +hJpVynfHzbhw6u23CS9PJeRMVP5bweRCo9mpvBJ/Jdx2+cO9KywuzGaqOfwN +U8K2RYmW4xZc8LH2uFUUp4QdFfMjlsgFo1t1oV8LlfCMpNVIuhUXQvm2yK4v +UcIda24Oelhz4dL2qSc5FUp4yMT9laINF5aLqGgyWpSwrp3VcsGWC68PJo+e +mFRCwcDm9mB7Loi2Kef0zivhd4FHgyIOXLDWqLHS5iGh7+6iaQ7h0t7PhS8k +SNjV89H4+0YuJDBd/BXMSMhOnzEFJy7Y+Vz5TltPwh3nvKS7CYvEfz6+xZGE +L0MbnYM2E/U0JxVn+JHwpCZnOMqZC4FjL2mlYSS0PN5PWySsLUhpfRZJQkwy ++BblwoVqh9rPy0+ScFGWczLIlQvH9gjGqWeT8PLP43u7CduecRdZf5mEb9Q6 +qsCNC92dUwZx5STMjqYmCblz4eKMeVNeHQkflPKtCiEcIH3SrfoxCaOtSn83 +EP7mqRY100/C4mk5rcAtXKiK3S8oPkrCW7fPhZQSPnrpfq7eFAlfLe2XniNs +07BS23GBhE3kVTSaBxeEh7fW7eIjI+l5a1sk4S7e644pwmT0dZPsu0s4T+37 +myIZMh5P2rztPWE/GwhvopCxqfGju8RWLqwJPc0zrE3GrWO2rSzCU6n9mUsm +ZNT17a8OIsy9rammCGTMUVitkUL4cFsE18yejMKpLqLXCa+femDj4UbGjxdk +YxoIrxAT6Y3YQUbR5s7ALsIdhtt3ZoaSkTs30zFC+LzbzcXSA2QULJx5+JWw +zz9zp9oOk3GSu8HsB2GN8+uVJpLIWHZup+nPrf+fn3/vCmaQsVaro3aBMOf1 +oIVGHhltWhdbvxOO/a3Vsb6IjJJ2AUHjhC3J0f5+pYS/pqT1ExbCR9/jqsmo +dmQCnxBu9xc/cbGJjNWUVcmlhM8e95GuaSP2F7/HO4uw9/U7xT09ZDxYlvX4 +AGHV/xZos8NkrDDhb3Yk/GncplX8MxlVeGw81AiXrczepj9HxsSDw/FzxPlG +6wx/dvxLRq+tvtbNhC2cdOPCVijjmVHHwtOE2zL/y79OUsb6gRvGEoSzOVKG +zWuU8XyNUVg78X+3vfJvGjZUxhn1UMtkwuNyv0cVbZXx+pBM3zjRL/cY9lF0 +Z2X801Cbl004yvuc4NZtyqjv5LWMQZi/wEA7a58ymlZ8eBlD9OPTh3F19w4p +Y7TECnNJwhkjTx2fJypjo2a6802if8lrgsOFziujj7fBqcdEvzNKL3CPNiqj +q1locBsxL9a97UtTLcp4f9MKjiNhJ55lG3xfKmNaRLRdKzFfga77+mFMGS0P +yjtXbSLm4bDKsXgBCnq3b1kIIebzmWj9NbOVFNy/zPh2KzG/zkUeLd9EKOh0 +v7p0LeHtz9PE/eUoKLDFomLAjgv7leevWa6joPODz0PSRD7McTJaFvUpmDPd +6LidyI9Yu3WT5SYU9E32kLtM5EvSAT+qqgUF/1zc1S5N5E9e89MWPhcKjviz +3wwAFx6F5k82R1Hw1jOVljoi7+x/0yWOHKbgufS8+v9oRD9kdFNN4inYMF+j +0UHkY3/NiviikxTk63+0vYfI06lVkRJJlyh49rFafLUBke9ldjTbJgoafT47 +103k8WXrke1/nlBQyO7fsZuaRL/0x8VXPqNgWfu0f4wGF3T5OK2aryjY3v9X +QIzI9/XuJG/BcQoGUJ5pSJG5sGdhOr5ltQoW7hVWjJEkzv9AiMwHCRVM5re4 +tEDcH0ITr+/wy6mg0ilLnUgxLlwfaO6xUFXBDSGceN/VXBhqOKtTQVXBfbJ6 +xoKCXNicRO+76quCWk9VEi4tcsBIIkH/cLkKPmmPFJoc4ABP2tyj3EoVzBTl +d/nez4F2/rBtlXUqmL5i+NNMLwd2z7kmTT9WwcuT01JfiPuyqE99IPS1CkaS +z6WVPSPuy/yWZHd+VdzbmdaTVsuBxXViQ7pbVLG/d/mnvLMcmL+skGC8TRXZ +R7GRns2BWVENdbqvKprO2Du8yuDA1Aw9zHqXKmocJKXwnebA+7rA+W1xqvgV +KD2mxPvi6cYqkdTrquhOtbnCu494n+z2gfdzqljEkL/AtOIA805Jwblzauj6 +TW+gapQNA5Q7+TYX1fDzbHbH03dsiD1368psvhqOfjjpOzDEhqqE4kuut9Sw +1MrSZa6PDUaeBbki9WqY3nK2Qvg5G7QEcjKS36nhr4eGYs+4bJDxPRwfpaOO +agPc1KxENkxLOPh5NKljZ2dmS5ksG0ZP+3kcFNTED/zGA3Iy5WD/Ndp+jLoG +KeJ//UOFy+BLoFAE99ha1FNmHZhk3yXe/7J8KU1aSP8qHtpqeQcknmueKfuq +jWEx7+OLZ26CUuo9ZypVB5Nzbr4aPFQMuevoYpKhuvh4hwFljFoETxUsTWcy +9VDv/sRkh3QhMJSaMvR79HHcmlU8/jQfRPgLI/0TDVDnDM2sa+EikBOUmV6a +hnj07sXolZq5sELDu9L1P0MM4c+av1qXA3os+XvRO4ww/RrpVvHrTDg4JNHs +wGOMRttv5N+gnIGvM6e32OcaY0ldTPCJpJOwQf9Jnr2uCVZHHel0TUuChhnz +Xz/aTdDpdcSN1qcJsE/H6HVnsCkaGh9xmTgTB6ypoG6vFVR8t+xv24GlaLBR +l9u0upCKQ1uHxk3zIoA7+VglqIiKSt/EzQ6cigD1qoj52mIq9r98plMVGwHL +HF7k77xDxZc3B6cDtkdAU3jy92YuFevyxrbSSRFgUTd7PvY/Khr/es77pvAg +UF0733/8QsVlYX/CBioOwNr4U4eaaDSU43qIac2EQ735dQFHBg1b/FzPB/SE +g/OPxqxXTBq2intrsmvC4dC+uZJxSxpq7T+rlR0fDi3efu9EHGk4tormt100 +HHbSqQ7b/Wj4g3b+n0WDfXDr+zvF2VRivS8S66RO7AHtYHqjxmsaii+/myES +ugv+VXX6eXyQhr+zxZf/ct4Fs28DTN8P0dD3QO7SD8YuaNh2+s6VERqunTrm +qCa6C1yd356XnaShV1yit0X1TogxT9q/gscM/xTeG4tbvRNaxDtVJjXMUORT +Dw43h0Bww84T3ANmeGOgJF3LJwim9k5E20SaoVqe6KUQhyA4RNqzuyfKDG/b +vXTnUoPg1JFw14XDZhjUcSg3QTQIyhhRFGayGTL4PPTePwyE35XH65vzzDDx +YV9XuVYgZN27Mvuy2QyxMGeeJRAAjQXdQdPSdPwadYXi3+ULw44qvlFydIx3 +3JUiz/UFnsW9Xr8U6FgQ+OPTlxxfWO8i6CRAoaOh6xqPUQ9feMLLoMlr07Hd +z6VKctAH2gLyV1ha0HGl+2py0Ocd8Fo9rDQjhI73Jpb72JO8Yfbm3x/6VXSM +bUjRMHrqCR88bAtO1tCxzK3t839sT+hblm43UkdH449zNgcuekKdn8KFcw/o ++N7A99ifPZ6QKGfKWGqlY+TjnpO84p4glhp25OkgHY+tG9G94r0VdEJf8QTz +MTAwjpXbzesBgRp3VuRtYuCxsFalwAQ3iH3sE6bpzMDrrePfhva4QUawxDO2 +KwObKgb49nm6Qf31mNPPtjLQKUb92mN9N5DStBNd8mdgR1TOOq+3rvBEc0zK +L4qBKlMCOsvWu4L2WmWKZj4DFTwjLfmkXWBaO5vK/sZAHdWAkd+Dm6CvDW0k +ZxgoQf3m+rJhEzzYN+UWOcdALV4P5eaCTXCGbX+A+pOBY8WRMfNBm0CbwVNS +y2+O5Gzfd1enHCHAfq9Ks4w5Bj8fVlpc7gjdoRuEu5nmWFz3tlluowNUF/16 +N5dqjiaKO7oeKm0AqlXkD4c0c7SuWz5nK7ABKt59ES5IN8dhn6+F7yZtgU0e +ojlkmeNEY7fP1kZbKMl9kH7lojnqDbAPrQ+0hYLTSfQNpea4+alfiNA9GzgZ +KZqZ22WOb8VtJ4a2WIOQZGrx5CtzdGOWkObQGpLLeerX95mj1enENrKONZyY +mv7wZdAcC59p7Sjhs4ajO7uZlh/M8VyHU2ZpmRUc9L4w/mnBHPu19a5YilnB +Nms1NCczse7Sbh3aG0tY6hYSaaYw0W48y3VVqyUUBE8NOKgx8dmBU2tnuZbw +IbkmettaJn70Tb7An24JB1s334sxYmJv/vRJWQtLOOV0hFxty8RIJcFr/EUI +tZ6vfpuEM/FQkXLn0G8L2PGp9mn9ASYuMfyW9vRbAE9sQa51JBOlyZIylEoL +sL2428Q9hok+aJc0G24BL9/w7ok4zsQLU6/uuI6xYCJAb6D8PBNLekxnn/Qw +QXFvSo3eA6I+qyPhd7oYcOZviGlaExP3ioqF3K5kAF+WbfnHR0yczcz78/gC +AyYqBW4VtDLx3w3J5a5+DKjlOZEr0cXEhAb3kMYpOmzLiY+eHyPWr/h1vEOM +Drl1MaYNq1jIFH2xuHYXDYSdvMoVRFhYf+vNqvTNNIgfNtONFmNh2IX4hyup +NNgpsKBuIM1C4cv29a78NKBtjpIqJLOwYFr4H4l8KvS8PziTZMhC+loed9aA +KUiv3FO+aSsLTZut6TeCTaDIKi72mxcLV8WtwyhHEzCKO2OV7c3CQw+9Ov2N +TcDpW9mrPn8WelGMlc/wmkByz9xi4B4WTh5ttTXLN4aFwmPrYxNYuFxmo0Dt +WyN4bZ7dVXyHhZwLznrsSEPY+U/RJftSFhq6ie0a9DGE+dKK4C9lLJQOYzxU +tjcECdW+H4aVLMTrWwKmSYawUYikdP8BC0t7PHPvtxhAfXdxUNcrYv//rro2 +omoADiLVulF9LAx6r9KcLWIAfRta5+UGWJiy/1N/5aw+zNZ+TvUZZqGn3Osf +/kX6oHvV4O6nCRbuv7T//qiAPtS/tow6PcnCTZMuG6qH9MBByg30v7HwOeuU +f02VHoSk/NMZOcdCE9fCVKswPZh9kJwnu8DCNsUGapuVHiT+PB9Y+5OF7hU3 +qxJIeiBmcktnxxILI3aGDQb+0IUre2vn/v5lIanNNOpgpy78D/1JMiA= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk81N0XB3BLopJ9Z8ZYi+zLjBkzzpElJNkSJftSWlQ8RCmUpaTHVkkL +SdokZsYuiuqhJCJLJIWSomSJSv2+v7++r/c/93Xu/Z7zuVclINw1mI+Hh8ee +l4fn/9/5odZH6mlFFkFtrUtDmbYW3VfkYiz7EuHFjtPV0lx1QOkXAXJ9WZBc +XJQ/xjGBKOfbvfx9hfClgUlv5liD+JRs1mIvG8xbC66kctzhbb1T+GxvEzwY +ka1+zA4CW/WJN9O9L+Hv50WV9nuRsNhLO/ut9z3MXFIbWbp2ApqtbhR1Fs6A +dsyxG+yNZ0Hpbc2HAJ0l+KXm12qkmQ9Se3xvC1rxY7zJHc9w1SLIMrStc9oi +hHZVKc6O5TehP9fgwbTYavThYX3RO14CeV13RKM0VmOaYKtuXVYJbBNZ4/uT +vhpLKj/EWRSWwOBx0h++wNW4wuw8Q/thCQzvW8mUqliNe0mS9Wf/lMC49WgV +1UsEeSqXXa2JvgsL387fO3xVFMmHLs8rBpZCWtGxF3zy4rjlQ4t9q0gZOJjs +kpBWE0e3vpBJa+kyEHrkumWNrjh68S4bqlMsgxMjGgMbLcXxU5791Ytry+CI +atuHnF3ieGZiOF11fRnsK5D7o1krjg3XOXOOkWXgcqlcZ+N2CRR4kbhO+FUZ +yOaMnMy+LImZf3vFl1LKQW5dxYmFYknk6ZZY+el0OSg0JR/bUSaJxv5OlR2Z +5UD+pvXPmmZJpOrnr82+WA4ajvv96sYlMfjoZPBoaTkYL1uijhhLobi4UldV +dzlsjpQZNXoqhSbPslyUSWxwXjU+dL5LCtc95n0br8IG18Ka/t+DUniVEisx +pMEGjw7vF0++SqFbjnlYmh4bduhcq90mLY0Vt1yI1diwe1Q/M9FPGnkkPrvq ++rMhxd3e4uW8NJ6SiXR/U8AGBW67Ah+vDD6KTWsSuM6GUkn3H4arZDC7P3yl +1i029Lz0KctUlsELb0XX+JWzQd0lUtXFTgZZty0zMh6yoWlT/vKOCzLYXlYi +8nOYDUu2c+3PmbIY51l27qsiBzKKY+8s2crionmceoQyB9SX86Tqusiilfzf +tGlVDjg+XmmZHiyLhsVV40NaHMizonAcz8iiwsHsN4dpHDDDjeefvZVFcxR5 +1+DCgQj6Vd/WRDns2d2kvjuRAw4FIrMbT8uhtWX8bfkkDqgKHkltPyuHK0Sk +6ppTONDR7VHedVMOU/8qHV2ZzgG9/cL8Q+1yyLUqORtwngPjxdHF3xXk8V3C +oC/rDgcaV48x/lGXx8jetMaiuxw4F+n64oeuPFowHcsEyzhgs1534TfKo8ON +/2wfcDlQ+Oa9vWCoPPpPR7n/vs8BbymnSUWOPIacCPApeMEB48N1CVfq5fFs +eYfgw04OrHy/VkbliTwqZ2g6vOniQM09ftDsl8cPbpUXhfo4ILOxJsPgrzxa +iy0kaA8T9Seom9hsVEASb+ngxa8csP76M3bfiAJau79eS1/FhRi7HO2HXwgL +p+g+EeZC6VXd15LzCpgWmrZyswgX5Nz96DVCiqjG6+vsLs6FL9WPf/DrKeLx +e/1kXVkuZCdmRF44pIh+0093yqlyoWVAS/1LgiLe/llhF6jGhd8mzV0WaYq4 +nP+68G11LoR8nDMavayIjv03rdat4QLDcfu0XrMidlXbnPi9jgvvpTX3PVqt +hMKCIssGTLggG95IkpVVQgHOzPFRUy44tng+30VRwj0PB2Y/UblQGZumI2qs +hJpVynfHzbhw6u23CS9PJeRMVP5bweRCo9mpvBJ/Jdx2+cO9KywuzGaqOfwN +U8K2RYmW4xZc8LH2uFUUp4QdFfMjlsgFo1t1oV8LlfCMpNVIuhUXQvm2yK4v +UcIda24Oelhz4dL2qSc5FUp4yMT9laINF5aLqGgyWpSwrp3VcsGWC68PJo+e +mFRCwcDm9mB7Loi2Kef0zivhd4FHgyIOXLDWqLHS5iGh7+6iaQ7h0t7PhS8k +SNjV89H4+0YuJDBd/BXMSMhOnzEFJy7Y+Vz5TltPwh3nvKS7CYvEfz6+xZGE +L0MbnYM2E/U0JxVn+JHwpCZnOMqZC4FjL2mlYSS0PN5PWySsLUhpfRZJQkwy ++BblwoVqh9rPy0+ScFGWczLIlQvH9gjGqWeT8PLP43u7CduecRdZf5mEb9Q6 +qsCNC92dUwZx5STMjqYmCblz4eKMeVNeHQkflPKtCiEcIH3SrfoxCaOtSn83 +EP7mqRY100/C4mk5rcAtXKiK3S8oPkrCW7fPhZQSPnrpfq7eFAlfLe2XniNs +07BS23GBhE3kVTSaBxeEh7fW7eIjI+l5a1sk4S7e644pwmT0dZPsu0s4T+37 +myIZMh5P2rztPWE/GwhvopCxqfGju8RWLqwJPc0zrE3GrWO2rSzCU6n9mUsm +ZNT17a8OIsy9rammCGTMUVitkUL4cFsE18yejMKpLqLXCa+femDj4UbGjxdk +YxoIrxAT6Y3YQUbR5s7ALsIdhtt3ZoaSkTs30zFC+LzbzcXSA2QULJx5+JWw +zz9zp9oOk3GSu8HsB2GN8+uVJpLIWHZup+nPrf+fn3/vCmaQsVaro3aBMOf1 +oIVGHhltWhdbvxOO/a3Vsb6IjJJ2AUHjhC3J0f5+pYS/pqT1ExbCR9/jqsmo +dmQCnxBu9xc/cbGJjNWUVcmlhM8e95GuaSP2F7/HO4uw9/U7xT09ZDxYlvX4 +AGHV/xZos8NkrDDhb3Yk/GncplX8MxlVeGw81AiXrczepj9HxsSDw/FzxPlG +6wx/dvxLRq+tvtbNhC2cdOPCVijjmVHHwtOE2zL/y79OUsb6gRvGEoSzOVKG +zWuU8XyNUVg78X+3vfJvGjZUxhn1UMtkwuNyv0cVbZXx+pBM3zjRL/cY9lF0 +Z2X801Cbl004yvuc4NZtyqjv5LWMQZi/wEA7a58ymlZ8eBlD9OPTh3F19w4p +Y7TECnNJwhkjTx2fJypjo2a6802if8lrgsOFziujj7fBqcdEvzNKL3CPNiqj +q1locBsxL9a97UtTLcp4f9MKjiNhJ55lG3xfKmNaRLRdKzFfga77+mFMGS0P +yjtXbSLm4bDKsXgBCnq3b1kIIebzmWj9NbOVFNy/zPh2KzG/zkUeLd9EKOh0 +v7p0LeHtz9PE/eUoKLDFomLAjgv7leevWa6joPODz0PSRD7McTJaFvUpmDPd +6LidyI9Yu3WT5SYU9E32kLtM5EvSAT+qqgUF/1zc1S5N5E9e89MWPhcKjviz +3wwAFx6F5k82R1Hw1jOVljoi7+x/0yWOHKbgufS8+v9oRD9kdFNN4inYMF+j +0UHkY3/NiviikxTk63+0vYfI06lVkRJJlyh49rFafLUBke9ldjTbJgoafT47 +103k8WXrke1/nlBQyO7fsZuaRL/0x8VXPqNgWfu0f4wGF3T5OK2aryjY3v9X +QIzI9/XuJG/BcQoGUJ5pSJG5sGdhOr5ltQoW7hVWjJEkzv9AiMwHCRVM5re4 +tEDcH0ITr+/wy6mg0ilLnUgxLlwfaO6xUFXBDSGceN/VXBhqOKtTQVXBfbJ6 +xoKCXNicRO+76quCWk9VEi4tcsBIIkH/cLkKPmmPFJoc4ABP2tyj3EoVzBTl +d/nez4F2/rBtlXUqmL5i+NNMLwd2z7kmTT9WwcuT01JfiPuyqE99IPS1CkaS +z6WVPSPuy/yWZHd+VdzbmdaTVsuBxXViQ7pbVLG/d/mnvLMcmL+skGC8TRXZ +R7GRns2BWVENdbqvKprO2Du8yuDA1Aw9zHqXKmocJKXwnebA+7rA+W1xqvgV +KD2mxPvi6cYqkdTrquhOtbnCu494n+z2gfdzqljEkL/AtOIA805Jwblzauj6 +TW+gapQNA5Q7+TYX1fDzbHbH03dsiD1368psvhqOfjjpOzDEhqqE4kuut9Sw +1MrSZa6PDUaeBbki9WqY3nK2Qvg5G7QEcjKS36nhr4eGYs+4bJDxPRwfpaOO +agPc1KxENkxLOPh5NKljZ2dmS5ksG0ZP+3kcFNTED/zGA3Iy5WD/Ndp+jLoG +KeJ//UOFy+BLoFAE99ha1FNmHZhk3yXe/7J8KU1aSP8qHtpqeQcknmueKfuq +jWEx7+OLZ26CUuo9ZypVB5Nzbr4aPFQMuevoYpKhuvh4hwFljFoETxUsTWcy +9VDv/sRkh3QhMJSaMvR79HHcmlU8/jQfRPgLI/0TDVDnDM2sa+EikBOUmV6a +hnj07sXolZq5sELDu9L1P0MM4c+av1qXA3os+XvRO4ww/RrpVvHrTDg4JNHs +wGOMRttv5N+gnIGvM6e32OcaY0ldTPCJpJOwQf9Jnr2uCVZHHel0TUuChhnz +Xz/aTdDpdcSN1qcJsE/H6HVnsCkaGh9xmTgTB6ypoG6vFVR8t+xv24GlaLBR +l9u0upCKQ1uHxk3zIoA7+VglqIiKSt/EzQ6cigD1qoj52mIq9r98plMVGwHL +HF7k77xDxZc3B6cDtkdAU3jy92YuFevyxrbSSRFgUTd7PvY/Khr/es77pvAg +UF0733/8QsVlYX/CBioOwNr4U4eaaDSU43qIac2EQ735dQFHBg1b/FzPB/SE +g/OPxqxXTBq2intrsmvC4dC+uZJxSxpq7T+rlR0fDi3efu9EHGk4tormt100 +HHbSqQ7b/Wj4g3b+n0WDfXDr+zvF2VRivS8S66RO7AHtYHqjxmsaii+/myES +ugv+VXX6eXyQhr+zxZf/ct4Fs28DTN8P0dD3QO7SD8YuaNh2+s6VERqunTrm +qCa6C1yd356XnaShV1yit0X1TogxT9q/gscM/xTeG4tbvRNaxDtVJjXMUORT +Dw43h0Bww84T3ANmeGOgJF3LJwim9k5E20SaoVqe6KUQhyA4RNqzuyfKDG/b +vXTnUoPg1JFw14XDZhjUcSg3QTQIyhhRFGayGTL4PPTePwyE35XH65vzzDDx +YV9XuVYgZN27Mvuy2QyxMGeeJRAAjQXdQdPSdPwadYXi3+ULw44qvlFydIx3 +3JUiz/UFnsW9Xr8U6FgQ+OPTlxxfWO8i6CRAoaOh6xqPUQ9feMLLoMlr07Hd +z6VKctAH2gLyV1ha0HGl+2py0Ocd8Fo9rDQjhI73Jpb72JO8Yfbm3x/6VXSM +bUjRMHrqCR88bAtO1tCxzK3t839sT+hblm43UkdH449zNgcuekKdn8KFcw/o ++N7A99ifPZ6QKGfKWGqlY+TjnpO84p4glhp25OkgHY+tG9G94r0VdEJf8QTz +MTAwjpXbzesBgRp3VuRtYuCxsFalwAQ3iH3sE6bpzMDrrePfhva4QUawxDO2 +KwObKgb49nm6Qf31mNPPtjLQKUb92mN9N5DStBNd8mdgR1TOOq+3rvBEc0zK +L4qBKlMCOsvWu4L2WmWKZj4DFTwjLfmkXWBaO5vK/sZAHdWAkd+Dm6CvDW0k +ZxgoQf3m+rJhEzzYN+UWOcdALV4P5eaCTXCGbX+A+pOBY8WRMfNBm0CbwVNS +y2+O5Gzfd1enHCHAfq9Ks4w5Bj8fVlpc7gjdoRuEu5nmWFz3tlluowNUF/16 +N5dqjiaKO7oeKm0AqlXkD4c0c7SuWz5nK7ABKt59ES5IN8dhn6+F7yZtgU0e +ojlkmeNEY7fP1kZbKMl9kH7lojnqDbAPrQ+0hYLTSfQNpea4+alfiNA9GzgZ +KZqZ22WOb8VtJ4a2WIOQZGrx5CtzdGOWkObQGpLLeerX95mj1enENrKONZyY +mv7wZdAcC59p7Sjhs4ajO7uZlh/M8VyHU2ZpmRUc9L4w/mnBHPu19a5YilnB +Nms1NCczse7Sbh3aG0tY6hYSaaYw0W48y3VVqyUUBE8NOKgx8dmBU2tnuZbw +IbkmettaJn70Tb7An24JB1s334sxYmJv/vRJWQtLOOV0hFxty8RIJcFr/EUI +tZ6vfpuEM/FQkXLn0G8L2PGp9mn9ASYuMfyW9vRbAE9sQa51JBOlyZIylEoL +sL2428Q9hok+aJc0G24BL9/w7ok4zsQLU6/uuI6xYCJAb6D8PBNLekxnn/Qw +QXFvSo3eA6I+qyPhd7oYcOZviGlaExP3ioqF3K5kAF+WbfnHR0yczcz78/gC +AyYqBW4VtDLx3w3J5a5+DKjlOZEr0cXEhAb3kMYpOmzLiY+eHyPWr/h1vEOM +Drl1MaYNq1jIFH2xuHYXDYSdvMoVRFhYf+vNqvTNNIgfNtONFmNh2IX4hyup +NNgpsKBuIM1C4cv29a78NKBtjpIqJLOwYFr4H4l8KvS8PziTZMhC+loed9aA +KUiv3FO+aSsLTZut6TeCTaDIKi72mxcLV8WtwyhHEzCKO2OV7c3CQw+9Ov2N +TcDpW9mrPn8WelGMlc/wmkByz9xi4B4WTh5ttTXLN4aFwmPrYxNYuFxmo0Dt +WyN4bZ7dVXyHhZwLznrsSEPY+U/RJftSFhq6ie0a9DGE+dKK4C9lLJQOYzxU +tjcECdW+H4aVLMTrWwKmSYawUYikdP8BC0t7PHPvtxhAfXdxUNcrYv//rro2 +omoADiLVulF9LAx6r9KcLWIAfRta5+UGWJiy/1N/5aw+zNZ+TvUZZqGn3Osf +/kX6oHvV4O6nCRbuv7T//qiAPtS/tow6PcnCTZMuG6qH9MBByg30v7HwOeuU +f02VHoSk/NMZOcdCE9fCVKswPZh9kJwnu8DCNsUGapuVHiT+PB9Y+5OF7hU3 +qxJIeiBmcktnxxILI3aGDQb+0IUre2vn/v5lIanNNOpgpy78D/1JMiA= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07946742824477826}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07946742824477826}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk81N0XB3BLopJ9Z8ZYi+zLjBkzzpElJNkSJftSWlQ8RCmUpaTHVkkL +SdokZsYuiuqhJCJLJIWSomSJSv2+v7++r/c/93Xu/Z7zuVclINw1mI+Hh8ee +l4fn/9/5odZH6mlFFkFtrUtDmbYW3VfkYiz7EuHFjtPV0lx1QOkXAXJ9WZBc +XJQ/xjGBKOfbvfx9hfClgUlv5liD+JRs1mIvG8xbC66kctzhbb1T+GxvEzwY +ka1+zA4CW/WJN9O9L+Hv50WV9nuRsNhLO/ut9z3MXFIbWbp2ApqtbhR1Fs6A +dsyxG+yNZ0Hpbc2HAJ0l+KXm12qkmQ9Se3xvC1rxY7zJHc9w1SLIMrStc9oi +hHZVKc6O5TehP9fgwbTYavThYX3RO14CeV13RKM0VmOaYKtuXVYJbBNZ4/uT +vhpLKj/EWRSWwOBx0h++wNW4wuw8Q/thCQzvW8mUqliNe0mS9Wf/lMC49WgV +1UsEeSqXXa2JvgsL387fO3xVFMmHLs8rBpZCWtGxF3zy4rjlQ4t9q0gZOJjs +kpBWE0e3vpBJa+kyEHrkumWNrjh68S4bqlMsgxMjGgMbLcXxU5791Ytry+CI +atuHnF3ieGZiOF11fRnsK5D7o1krjg3XOXOOkWXgcqlcZ+N2CRR4kbhO+FUZ +yOaMnMy+LImZf3vFl1LKQW5dxYmFYknk6ZZY+el0OSg0JR/bUSaJxv5OlR2Z +5UD+pvXPmmZJpOrnr82+WA4ajvv96sYlMfjoZPBoaTkYL1uijhhLobi4UldV +dzlsjpQZNXoqhSbPslyUSWxwXjU+dL5LCtc95n0br8IG18Ka/t+DUniVEisx +pMEGjw7vF0++SqFbjnlYmh4bduhcq90mLY0Vt1yI1diwe1Q/M9FPGnkkPrvq ++rMhxd3e4uW8NJ6SiXR/U8AGBW67Ah+vDD6KTWsSuM6GUkn3H4arZDC7P3yl +1i029Lz0KctUlsELb0XX+JWzQd0lUtXFTgZZty0zMh6yoWlT/vKOCzLYXlYi +8nOYDUu2c+3PmbIY51l27qsiBzKKY+8s2crionmceoQyB9SX86Tqusiilfzf +tGlVDjg+XmmZHiyLhsVV40NaHMizonAcz8iiwsHsN4dpHDDDjeefvZVFcxR5 +1+DCgQj6Vd/WRDns2d2kvjuRAw4FIrMbT8uhtWX8bfkkDqgKHkltPyuHK0Sk +6ppTONDR7VHedVMOU/8qHV2ZzgG9/cL8Q+1yyLUqORtwngPjxdHF3xXk8V3C +oC/rDgcaV48x/lGXx8jetMaiuxw4F+n64oeuPFowHcsEyzhgs1534TfKo8ON +/2wfcDlQ+Oa9vWCoPPpPR7n/vs8BbymnSUWOPIacCPApeMEB48N1CVfq5fFs +eYfgw04OrHy/VkbliTwqZ2g6vOniQM09ftDsl8cPbpUXhfo4ILOxJsPgrzxa +iy0kaA8T9Seom9hsVEASb+ngxa8csP76M3bfiAJau79eS1/FhRi7HO2HXwgL +p+g+EeZC6VXd15LzCpgWmrZyswgX5Nz96DVCiqjG6+vsLs6FL9WPf/DrKeLx +e/1kXVkuZCdmRF44pIh+0093yqlyoWVAS/1LgiLe/llhF6jGhd8mzV0WaYq4 +nP+68G11LoR8nDMavayIjv03rdat4QLDcfu0XrMidlXbnPi9jgvvpTX3PVqt +hMKCIssGTLggG95IkpVVQgHOzPFRUy44tng+30VRwj0PB2Y/UblQGZumI2qs +hJpVynfHzbhw6u23CS9PJeRMVP5bweRCo9mpvBJ/Jdx2+cO9KywuzGaqOfwN +U8K2RYmW4xZc8LH2uFUUp4QdFfMjlsgFo1t1oV8LlfCMpNVIuhUXQvm2yK4v +UcIda24Oelhz4dL2qSc5FUp4yMT9laINF5aLqGgyWpSwrp3VcsGWC68PJo+e +mFRCwcDm9mB7Loi2Kef0zivhd4FHgyIOXLDWqLHS5iGh7+6iaQ7h0t7PhS8k +SNjV89H4+0YuJDBd/BXMSMhOnzEFJy7Y+Vz5TltPwh3nvKS7CYvEfz6+xZGE +L0MbnYM2E/U0JxVn+JHwpCZnOMqZC4FjL2mlYSS0PN5PWySsLUhpfRZJQkwy ++BblwoVqh9rPy0+ScFGWczLIlQvH9gjGqWeT8PLP43u7CduecRdZf5mEb9Q6 +qsCNC92dUwZx5STMjqYmCblz4eKMeVNeHQkflPKtCiEcIH3SrfoxCaOtSn83 +EP7mqRY100/C4mk5rcAtXKiK3S8oPkrCW7fPhZQSPnrpfq7eFAlfLe2XniNs +07BS23GBhE3kVTSaBxeEh7fW7eIjI+l5a1sk4S7e644pwmT0dZPsu0s4T+37 +myIZMh5P2rztPWE/GwhvopCxqfGju8RWLqwJPc0zrE3GrWO2rSzCU6n9mUsm +ZNT17a8OIsy9rammCGTMUVitkUL4cFsE18yejMKpLqLXCa+femDj4UbGjxdk +YxoIrxAT6Y3YQUbR5s7ALsIdhtt3ZoaSkTs30zFC+LzbzcXSA2QULJx5+JWw +zz9zp9oOk3GSu8HsB2GN8+uVJpLIWHZup+nPrf+fn3/vCmaQsVaro3aBMOf1 +oIVGHhltWhdbvxOO/a3Vsb6IjJJ2AUHjhC3J0f5+pYS/pqT1ExbCR9/jqsmo +dmQCnxBu9xc/cbGJjNWUVcmlhM8e95GuaSP2F7/HO4uw9/U7xT09ZDxYlvX4 +AGHV/xZos8NkrDDhb3Yk/GncplX8MxlVeGw81AiXrczepj9HxsSDw/FzxPlG +6wx/dvxLRq+tvtbNhC2cdOPCVijjmVHHwtOE2zL/y79OUsb6gRvGEoSzOVKG +zWuU8XyNUVg78X+3vfJvGjZUxhn1UMtkwuNyv0cVbZXx+pBM3zjRL/cY9lF0 +Z2X801Cbl004yvuc4NZtyqjv5LWMQZi/wEA7a58ymlZ8eBlD9OPTh3F19w4p +Y7TECnNJwhkjTx2fJypjo2a6802if8lrgsOFziujj7fBqcdEvzNKL3CPNiqj +q1locBsxL9a97UtTLcp4f9MKjiNhJ55lG3xfKmNaRLRdKzFfga77+mFMGS0P +yjtXbSLm4bDKsXgBCnq3b1kIIebzmWj9NbOVFNy/zPh2KzG/zkUeLd9EKOh0 +v7p0LeHtz9PE/eUoKLDFomLAjgv7leevWa6joPODz0PSRD7McTJaFvUpmDPd +6LidyI9Yu3WT5SYU9E32kLtM5EvSAT+qqgUF/1zc1S5N5E9e89MWPhcKjviz +3wwAFx6F5k82R1Hw1jOVljoi7+x/0yWOHKbgufS8+v9oRD9kdFNN4inYMF+j +0UHkY3/NiviikxTk63+0vYfI06lVkRJJlyh49rFafLUBke9ldjTbJgoafT47 +103k8WXrke1/nlBQyO7fsZuaRL/0x8VXPqNgWfu0f4wGF3T5OK2aryjY3v9X +QIzI9/XuJG/BcQoGUJ5pSJG5sGdhOr5ltQoW7hVWjJEkzv9AiMwHCRVM5re4 +tEDcH0ITr+/wy6mg0ilLnUgxLlwfaO6xUFXBDSGceN/VXBhqOKtTQVXBfbJ6 +xoKCXNicRO+76quCWk9VEi4tcsBIIkH/cLkKPmmPFJoc4ABP2tyj3EoVzBTl +d/nez4F2/rBtlXUqmL5i+NNMLwd2z7kmTT9WwcuT01JfiPuyqE99IPS1CkaS +z6WVPSPuy/yWZHd+VdzbmdaTVsuBxXViQ7pbVLG/d/mnvLMcmL+skGC8TRXZ +R7GRns2BWVENdbqvKprO2Du8yuDA1Aw9zHqXKmocJKXwnebA+7rA+W1xqvgV +KD2mxPvi6cYqkdTrquhOtbnCu494n+z2gfdzqljEkL/AtOIA805Jwblzauj6 +TW+gapQNA5Q7+TYX1fDzbHbH03dsiD1368psvhqOfjjpOzDEhqqE4kuut9Sw +1MrSZa6PDUaeBbki9WqY3nK2Qvg5G7QEcjKS36nhr4eGYs+4bJDxPRwfpaOO +agPc1KxENkxLOPh5NKljZ2dmS5ksG0ZP+3kcFNTED/zGA3Iy5WD/Ndp+jLoG +KeJ//UOFy+BLoFAE99ha1FNmHZhk3yXe/7J8KU1aSP8qHtpqeQcknmueKfuq +jWEx7+OLZ26CUuo9ZypVB5Nzbr4aPFQMuevoYpKhuvh4hwFljFoETxUsTWcy +9VDv/sRkh3QhMJSaMvR79HHcmlU8/jQfRPgLI/0TDVDnDM2sa+EikBOUmV6a +hnj07sXolZq5sELDu9L1P0MM4c+av1qXA3os+XvRO4ww/RrpVvHrTDg4JNHs +wGOMRttv5N+gnIGvM6e32OcaY0ldTPCJpJOwQf9Jnr2uCVZHHel0TUuChhnz +Xz/aTdDpdcSN1qcJsE/H6HVnsCkaGh9xmTgTB6ypoG6vFVR8t+xv24GlaLBR +l9u0upCKQ1uHxk3zIoA7+VglqIiKSt/EzQ6cigD1qoj52mIq9r98plMVGwHL +HF7k77xDxZc3B6cDtkdAU3jy92YuFevyxrbSSRFgUTd7PvY/Khr/es77pvAg +UF0733/8QsVlYX/CBioOwNr4U4eaaDSU43qIac2EQ735dQFHBg1b/FzPB/SE +g/OPxqxXTBq2intrsmvC4dC+uZJxSxpq7T+rlR0fDi3efu9EHGk4tormt100 +HHbSqQ7b/Wj4g3b+n0WDfXDr+zvF2VRivS8S66RO7AHtYHqjxmsaii+/myES +ugv+VXX6eXyQhr+zxZf/ct4Fs28DTN8P0dD3QO7SD8YuaNh2+s6VERqunTrm +qCa6C1yd356XnaShV1yit0X1TogxT9q/gscM/xTeG4tbvRNaxDtVJjXMUORT +Dw43h0Bww84T3ANmeGOgJF3LJwim9k5E20SaoVqe6KUQhyA4RNqzuyfKDG/b +vXTnUoPg1JFw14XDZhjUcSg3QTQIyhhRFGayGTL4PPTePwyE35XH65vzzDDx +YV9XuVYgZN27Mvuy2QyxMGeeJRAAjQXdQdPSdPwadYXi3+ULw44qvlFydIx3 +3JUiz/UFnsW9Xr8U6FgQ+OPTlxxfWO8i6CRAoaOh6xqPUQ9feMLLoMlr07Hd +z6VKctAH2gLyV1ha0HGl+2py0Ocd8Fo9rDQjhI73Jpb72JO8Yfbm3x/6VXSM +bUjRMHrqCR88bAtO1tCxzK3t839sT+hblm43UkdH449zNgcuekKdn8KFcw/o ++N7A99ifPZ6QKGfKWGqlY+TjnpO84p4glhp25OkgHY+tG9G94r0VdEJf8QTz +MTAwjpXbzesBgRp3VuRtYuCxsFalwAQ3iH3sE6bpzMDrrePfhva4QUawxDO2 +KwObKgb49nm6Qf31mNPPtjLQKUb92mN9N5DStBNd8mdgR1TOOq+3rvBEc0zK +L4qBKlMCOsvWu4L2WmWKZj4DFTwjLfmkXWBaO5vK/sZAHdWAkd+Dm6CvDW0k +ZxgoQf3m+rJhEzzYN+UWOcdALV4P5eaCTXCGbX+A+pOBY8WRMfNBm0CbwVNS +y2+O5Gzfd1enHCHAfq9Ks4w5Bj8fVlpc7gjdoRuEu5nmWFz3tlluowNUF/16 +N5dqjiaKO7oeKm0AqlXkD4c0c7SuWz5nK7ABKt59ES5IN8dhn6+F7yZtgU0e +ojlkmeNEY7fP1kZbKMl9kH7lojnqDbAPrQ+0hYLTSfQNpea4+alfiNA9GzgZ +KZqZ22WOb8VtJ4a2WIOQZGrx5CtzdGOWkObQGpLLeerX95mj1enENrKONZyY +mv7wZdAcC59p7Sjhs4ajO7uZlh/M8VyHU2ZpmRUc9L4w/mnBHPu19a5YilnB +Nms1NCczse7Sbh3aG0tY6hYSaaYw0W48y3VVqyUUBE8NOKgx8dmBU2tnuZbw +IbkmettaJn70Tb7An24JB1s334sxYmJv/vRJWQtLOOV0hFxty8RIJcFr/EUI +tZ6vfpuEM/FQkXLn0G8L2PGp9mn9ASYuMfyW9vRbAE9sQa51JBOlyZIylEoL +sL2428Q9hok+aJc0G24BL9/w7ok4zsQLU6/uuI6xYCJAb6D8PBNLekxnn/Qw +QXFvSo3eA6I+qyPhd7oYcOZviGlaExP3ioqF3K5kAF+WbfnHR0yczcz78/gC +AyYqBW4VtDLx3w3J5a5+DKjlOZEr0cXEhAb3kMYpOmzLiY+eHyPWr/h1vEOM +Drl1MaYNq1jIFH2xuHYXDYSdvMoVRFhYf+vNqvTNNIgfNtONFmNh2IX4hyup +NNgpsKBuIM1C4cv29a78NKBtjpIqJLOwYFr4H4l8KvS8PziTZMhC+loed9aA +KUiv3FO+aSsLTZut6TeCTaDIKi72mxcLV8WtwyhHEzCKO2OV7c3CQw+9Ov2N +TcDpW9mrPn8WelGMlc/wmkByz9xi4B4WTh5ttTXLN4aFwmPrYxNYuFxmo0Dt +WyN4bZ7dVXyHhZwLznrsSEPY+U/RJftSFhq6ie0a9DGE+dKK4C9lLJQOYzxU +tjcECdW+H4aVLMTrWwKmSYawUYikdP8BC0t7PHPvtxhAfXdxUNcrYv//rro2 +omoADiLVulF9LAx6r9KcLWIAfRta5+UGWJiy/1N/5aw+zNZ+TvUZZqGn3Osf +/kX6oHvV4O6nCRbuv7T//qiAPtS/tow6PcnCTZMuG6qH9MBByg30v7HwOeuU +f02VHoSk/NMZOcdCE9fCVKswPZh9kJwnu8DCNsUGapuVHiT+PB9Y+5OF7hU3 +qxJIeiBmcktnxxILI3aGDQb+0IUre2vn/v5lIanNNOpgpy78D/1JMiA= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07946742824477826}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07946742824477826}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99426047716492*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"e8870f92-ec7e-4265-9958-bbf0efa8258e"] +}, Open ]], Cell[CellGroupData[{ @@ -10583,66 +11933,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[282]:=",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], + "In[119]:=",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.443621462424051`*^-173\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 282, 273, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337269930374*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.105836818262658`*^-144\\\", \ +RowBox[{\\\"257637673519649270217965438245428568131\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"89\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8303947407360000000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 45, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337269930374*^9, 3.9942604772176113`*^9}, CellLabel-> "During evaluation of \ -In[282]:=",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], +In[119]:=",ExpressionUUID->"9ff695aa-dcac-4930-a715-f2437b64a630"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.352709009016139`*^-176\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 282, 274, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372699413757`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.115197477232832`*^-146\\\", \ +RowBox[{\\\"990359217009531794717859144615427415897\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"92\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0373833891840000000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 46, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337269930374*^9, 3.994260477227298*^9}, CellLabel-> "During evaluation of \ -In[282]:=",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], +In[119]:=",ExpressionUUID->"675e6b95-03e5-4f8e-ba6c-f9ca58194528"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.488155146821548`*^-180\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 282, 275, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337269949375*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.859779679189829`*^-148\\\", \ +RowBox[{\\\"393073573231083169323518294497863141369\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"96\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3746716712960000000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 47, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337269930374*^9, 3.99426047723827*^9}, CellLabel-> "During evaluation of \ -In[282]:=",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], +In[119]:=",ExpressionUUID->"dbbe9c81-3851-4738-9fd0-bf426519bfda"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 282, 276, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372699573765`*^9}, +during this calculation.\"", 2, 119, 48, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337269930374*^9, 3.9942604772465963`*^9}, CellLabel-> "During evaluation of \ -In[282]:=",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], +In[119]:=",ExpressionUUID->"e2adc5cd-caa6-419b-b5dc-8b9fc890249d"], -Cell[BoxData["9.332200719005147`"], "Output", - CellChangeTimes->{3.9913372766841774`*^9}, +Cell[BoxData["9.43019786100396`"], "Output", + CellChangeTimes->{3.9913372766841774`*^9, 3.994260571451619*^9}, CellLabel-> - "Out[282]=",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] + "Out[119]=",ExpressionUUID->"a92885d9-0953-401d-8134-1f8ae27287cd"] }, Open ]], Cell[CellGroupData[{ @@ -10709,68 +12066,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918494640512295`*^9, - 3.991849468375696*^9}},ExpressionUUID->"53e25fab-b431-cc42-a467-\ -e4dea0353ed0"], + CellChangeTimes->{{3.9918494640512295`*^9, 3.991849468375696*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 283, - 277, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372767181473`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.50597309399795`*^-200\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 120, + 49, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372767181473`*^9, 3.994260571499813*^9}, CellLabel-> "During evaluation of \ -In[283]:=",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], +In[120]:=",ExpressionUUID->"82da2cf8-57bd-4107-bac6-e465b25b1b56"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 283, - 278, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372767281475`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.933490698070503`*^-204\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 120, + 50, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372767181473`*^9, 3.994260571509664*^9}, CellLabel-> "During evaluation of \ -In[283]:=",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], +In[120]:=",ExpressionUUID->"a9017d10-8df0-44dc-abf2-df972b1ffdf4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 283, - 279, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372767351475`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.746083215397846`*^-209\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 120, + 51, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372767181473`*^9, 3.9942605715173283`*^9}, CellLabel-> "During evaluation of \ -In[283]:=",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], +In[120]:=",ExpressionUUID->"5b2f3684-a0de-4524-872d-c782ae5db866"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 283, 280, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337276743145*^9}, +during this calculation.\"", 2, 120, 52, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372767181473`*^9, 3.994260571526495*^9}, CellLabel-> "During evaluation of \ -In[283]:=",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], +In[120]:=",ExpressionUUID->"3f54748c-d3d9-442f-be7b-653d5437250a"], -Cell[BoxData["0.5406905105605413`"], "Output", - CellChangeTimes->{3.991337284091696*^9}, +Cell[BoxData["0.36697680438126584`"], "Output", + CellChangeTimes->{3.991337284091696*^9, 3.994260582133585*^9}, CellLabel-> - "Out[283]=",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] + "Out[120]=",ExpressionUUID->"32951458-77cf-4d39-a282-a1d0c6d76adb"] }, Open ]], Cell[CellGroupData[{ @@ -10791,8 +12155,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -10837,68 +12200,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918494737320137`*^9, - 3.9918494774550457`*^9}},ExpressionUUID->"b18c819e-620a-d449-97d6-\ -547e3a6fa152"], + CellChangeTimes->{{3.9918494737320137`*^9, 3.9918494774550457`*^9}}, + CellLabel-> + "In[121]:=",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 284, - 281, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337284131695*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.50597309399795`*^-200\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 53, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337284131695*^9, 3.9942605821812487`*^9}, CellLabel-> "During evaluation of \ -In[284]:=",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], +In[121]:=",ExpressionUUID->"b99fff45-eb9a-44fd-b557-1cce642d156b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 284, - 282, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337284142767*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.933490698070503`*^-204\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 54, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337284131695*^9, 3.994260582191162*^9}, CellLabel-> "During evaluation of \ -In[284]:=",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], +In[121]:=",ExpressionUUID->"71935bf1-57fe-48a5-a320-cceb0cb0bda4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 284, - 283, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337284150778*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.746083215397846`*^-209\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 55, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337284131695*^9, 3.994260582199654*^9}, CellLabel-> "During evaluation of \ -In[284]:=",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], +In[121]:=",ExpressionUUID->"571cbbed-f6e7-4cf0-b6ca-c22ad448db33"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 284, 284, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372841597614`*^9}, +during this calculation.\"", 2, 121, 56, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337284131695*^9, 3.994260582207982*^9}, CellLabel-> "During evaluation of \ -In[284]:=",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], +In[121]:=",ExpressionUUID->"fcd892b1-35c7-4521-b74b-010764e3bed9"], -Cell[BoxData["2.9943030245183917`"], "Output", - CellChangeTimes->{3.9913372907074146`*^9}, +Cell[BoxData["25.00291185599433`"], "Output", + CellChangeTimes->{3.9913372907074146`*^9, 3.994260592068118*^9}, CellLabel-> - "Out[284]=",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] + "Out[121]=",ExpressionUUID->"f46c1627-1c05-4783-918e-158f27952da8"] }, Open ]], Cell[CellGroupData[{ @@ -10919,8 +12289,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -10965,68 +12334,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849482271084*^9, - 3.9918494852683945`*^9}},ExpressionUUID->"22ab74c7-5916-9440-9d7d-\ -c3e0f6ab8836"], + CellChangeTimes->{{3.991849482271084*^9, 3.9918494852683945`*^9}}, + CellLabel-> + "In[122]:=",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 285, - 285, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337290744484*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.50597309399795`*^-200\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 57, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337290744484*^9, 3.994260592132345*^9}, CellLabel-> "During evaluation of \ -In[285]:=",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], +In[122]:=",ExpressionUUID->"432dd1d8-a34d-42a7-9f50-769cd367cd72"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 285, - 286, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337290753483*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.933490698070503`*^-204\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 58, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337290744484*^9, 3.994260592142847*^9}, CellLabel-> "During evaluation of \ -In[285]:=",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], +In[122]:=",ExpressionUUID->"2ffdcab4-ad13-4535-8728-80748bc43e24"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 285, - 287, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372907615204`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.746083215397846`*^-209\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 59, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337290744484*^9, 3.9942605921526623`*^9}, CellLabel-> "During evaluation of \ -In[285]:=",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], +In[122]:=",ExpressionUUID->"fc833bce-de8b-4ae2-87d3-dfa7df951eb4"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 285, 288, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133729076952*^9}, +during this calculation.\"", 2, 122, 60, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337290744484*^9, 3.994260592162841*^9}, CellLabel-> "During evaluation of \ -In[285]:=",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], +In[122]:=",ExpressionUUID->"d2ee740c-4713-49ab-8e76-93021ee09fde"], -Cell[BoxData["16.72305770548981`"], "Output", - CellChangeTimes->{3.991337294569908*^9}, +Cell[BoxData["3.0934856627195284`"], "Output", + CellChangeTimes->{3.991337294569908*^9, 3.994260600572192*^9}, CellLabel-> - "Out[285]=",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] + "Out[122]=",ExpressionUUID->"8f839b66-b3f9-4635-a295-2458fdba6e92"] }, Open ]], Cell[CellGroupData[{ @@ -11035,22 +12411,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918494889040737`*^9, - 3.9918494971484394`*^9}},ExpressionUUID->"f9c66987-c237-7a40-a006-\ -e20e260dbdcb"], - -Cell[BoxData["0.07640873836855284`"], "Output", - CellChangeTimes->{3.9913372946009064`*^9}, + CellChangeTimes->{{3.9918494889040737`*^9, 3.9918494971484394`*^9}}, CellLabel-> - "Out[286]=",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] + "In[123]:=",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], + +Cell[BoxData["0.041727202151738814`"], "Output", + CellChangeTimes->{3.9913372946009064`*^9, 3.994260600622716*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"94276e28-9881-4185-9874-9d9dec96f57d"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918495000311985`*^9, 3.9918495029810333`*^9}, - 3.9919248636163254`*^9},ExpressionUUID->"770a9ed7-7938-9e48-be64-\ -c31719ef3a6b"], + 3.9919248636163254`*^9}, + CellLabel-> + "In[124]:=",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], Cell[CellGroupData[{ @@ -11073,12 +12450,12 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[288]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], + "In[125]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], -Cell[BoxData["7.13574266196526`"], "Output", - CellChangeTimes->{3.991337294629921*^9}, +Cell[BoxData["10.31148944294197`"], "Output", + CellChangeTimes->{3.991337294629921*^9, 3.994260600641398*^9}, CellLabel-> - "Out[288]=",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] + "Out[125]=",ExpressionUUID->"b58d8a87-af36-4ec3-9c5f-38061bf3dced"] }, Open ]], Cell[CellGroupData[{ @@ -11088,12 +12465,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[290]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], + "In[126]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], -Cell[BoxData["1.4042291233212119`"], "Output", - CellChangeTimes->{3.9913372946629753`*^9}, +Cell[BoxData["2.0225267002943483`"], "Output", + CellChangeTimes->{3.9913372946629753`*^9, 3.994260600652861*^9}, CellLabel-> - "Out[290]=",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] + "Out[126]=",ExpressionUUID->"ea8c3964-cb34-4453-aab5-dfaf41e1099a"] }, Open ]], Cell[CellGroupData[{ @@ -11103,12 +12480,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[293]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], + "In[127]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], -Cell[BoxData["10.020217662457247`"], "Output", - CellChangeTimes->{3.9913372947367725`*^9}, +Cell[BoxData["20.85526271815343`"], "Output", + CellChangeTimes->{3.9913372947367725`*^9, 3.994260600667099*^9}, CellLabel-> - "Out[293]=",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] + "Out[127]=",ExpressionUUID->"db2c7b22-948b-42eb-8a21-cfab581b01bb"] }, Open ]], Cell[CellGroupData[{ @@ -11298,12 +12675,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[294]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], + "In[128]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], -Cell[BoxData["0.06674599726273667`"], "Output", - CellChangeTimes->{3.9913372947513313`*^9}, +Cell[BoxData["0.008114735665392796`"], "Output", + CellChangeTimes->{3.9913372947513313`*^9, 3.99426060068242*^9}, CellLabel-> - "Out[294]=",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] + "Out[128]=",ExpressionUUID->"a7b76739-1afb-4bf7-9bff-84d58b6b66f7"] }, Open ]], Cell[CellGroupData[{ @@ -11317,12 +12694,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[295]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], + "In[129]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], -Cell[BoxData["3.430301770911147`"], "Output", - CellChangeTimes->{3.9913372948636913`*^9}, +Cell[BoxData["9.838021152263854`"], "Output", + CellChangeTimes->{3.9913372948636913`*^9, 3.994260600846243*^9}, CellLabel-> - "Out[295]=",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] + "Out[129]=",ExpressionUUID->"bfed0050-a231-49c5-a318-ff9d62c88af0"] }, Open ]], Cell[CellGroupData[{ @@ -11514,12 +12891,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[296]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], + "In[130]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], -Cell[BoxData["0.01266539131451536`"], "Output", - CellChangeTimes->{3.991337294877693*^9}, +Cell[BoxData["0.04730542116063497`"], "Output", + CellChangeTimes->{3.991337294877693*^9, 3.9942606008629513`*^9}, CellLabel-> - "Out[296]=",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] + "Out[130]=",ExpressionUUID->"8a4b7f1a-b483-46fb-890e-c07e94d2f4a4"] }, Open ]], Cell[CellGroupData[{ @@ -11533,12 +12910,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[297]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], + "In[131]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], -Cell[BoxData["7.874729317258519`"], "Output", - CellChangeTimes->{3.991337294976324*^9}, +Cell[BoxData["4.074642249286693`"], "Output", + CellChangeTimes->{3.991337294976324*^9, 3.994260601023768*^9}, CellLabel-> - "Out[297]=",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] + "Out[131]=",ExpressionUUID->"9b6ae8ff-d606-4660-a67d-99046d1e6ca1"] }, Open ]], Cell[CellGroupData[{ @@ -11631,12 +13008,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[298]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], + "In[132]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], -Cell[BoxData["0.7884625602161153`"], "Output", - CellChangeTimes->{3.9913372950022793`*^9}, +Cell[BoxData["0.050030956271665136`"], "Output", + CellChangeTimes->{3.9913372950022793`*^9, 3.994260601036549*^9}, CellLabel-> - "Out[298]=",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] + "Out[132]=",ExpressionUUID->"07410dac-38ab-44b3-b1c6-45947f6ef19d"] }, Open ]], Cell[CellGroupData[{ @@ -11726,12 +13103,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[299]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], + "In[133]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], -Cell[BoxData["0.21153743978388478`"], "Output", - CellChangeTimes->{3.991337295013279*^9}, +Cell[BoxData["0.9499690437283349`"], "Output", + CellChangeTimes->{3.991337295013279*^9, 3.994260601050633*^9}, CellLabel-> - "Out[299]=",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] + "Out[133]=",ExpressionUUID->"75d0d829-f4b8-43e4-adae-bb9f611f2957"] }, Open ]], Cell[CellGroupData[{ @@ -11854,12 +13231,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[300]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], + "In[134]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], -Cell[BoxData["0.16678935135356415`"], "Output", - CellChangeTimes->{3.991337295041279*^9}, +Cell[BoxData["0.047527859686207874`"], "Output", + CellChangeTimes->{3.991337295041279*^9, 3.9942606010694857`*^9}, CellLabel-> - "Out[300]=",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] + "Out[134]=",ExpressionUUID->"d0a5e175-cc24-4e32-b436-5d6fa214aaf0"] }, Open ]], Cell[CellGroupData[{ @@ -11921,68 +13298,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849517192892*^9},ExpressionUUID->"55d51961-97f2-ed4d-8bf8-\ -8a461d652ab4"], + CellChangeTimes->{3.991849517192892*^9}, + CellLabel-> + "In[135]:=",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 301, 289, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372950662746`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.38545764760302`*^-197\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 135, + 61, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372950662746`*^9, 3.994260601089429*^9}, CellLabel-> "During evaluation of \ -In[301]:=",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], +In[135]:=",ExpressionUUID->"bee6a6f3-a6c2-452b-aad6-7ab7e713bdab"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 301, - 290, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337295076277*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0190240055993306`*^-201\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 135, + 62, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372950662746`*^9, 3.994260601098752*^9}, CellLabel-> "During evaluation of \ -In[301]:=",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], +In[135]:=",ExpressionUUID->"a46837fe-54f9-4b2d-93cf-c418cba01038"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 301, - 291, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372950842743`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.353084721630378`*^-206\\\", \ +RowBox[{\\\"668859810497440244092067196564426051030\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3165635789279094374400000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 135, + 63, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372950662746`*^9, 3.99426060110798*^9}, CellLabel-> "During evaluation of \ -In[301]:=",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], +In[135]:=",ExpressionUUID->"631786c1-283a-47c3-9b11-6ad07c34076d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 301, 292, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372950922775`*^9}, +during this calculation.\"", 2, 135, 64, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372950662746`*^9, 3.99426060111723*^9}, CellLabel-> "During evaluation of \ -In[301]:=",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], +In[135]:=",ExpressionUUID->"2fe6bd83-d83e-4bd7-82a3-f91fbe343552"], -Cell[BoxData["3.430301770911144`"], "Output", - CellChangeTimes->{3.991337298790371*^9}, +Cell[BoxData["9.83802115226386`"], "Output", + CellChangeTimes->{3.991337298790371*^9, 3.99426060833805*^9}, CellLabel-> - "Out[301]=",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] + "Out[135]=",ExpressionUUID->"e738a7a9-2a5f-4c9c-8d0c-caabbc0ca840"] }, Open ]], Cell[CellGroupData[{ @@ -12044,68 +13428,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849520751028*^9},ExpressionUUID->"9704b9d3-b449-2144-9970-\ -6a7de047241d"], + CellChangeTimes->{3.991849520751028*^9}, + CellLabel-> + "In[136]:=",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 302, 293, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372988243732`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.38545764760302`*^-197\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 136, + 65, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372988243732`*^9, 3.9942606083845177`*^9}, CellLabel-> "During evaluation of \ -In[302]:=",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], +In[136]:=",ExpressionUUID->"2ff0fe0f-de25-4fdf-90e5-f71bdd1964e0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 302, - 294, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372988343716`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0190240055993306`*^-201\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 136, + 66, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372988243732`*^9, 3.9942606083940067`*^9}, CellLabel-> "During evaluation of \ -In[302]:=",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], +In[136]:=",ExpressionUUID->"2e275ece-59fb-4892-a68b-2213b0dc7ffd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 302, - 295, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372988425922`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.353084721630378`*^-206\\\", \ +RowBox[{\\\"668859810497440244092067196564426051030\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3165635789279094374400000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 136, + 67, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372988243732`*^9, 3.994260608403068*^9}, CellLabel-> "During evaluation of \ -In[302]:=",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], +In[136]:=",ExpressionUUID->"0582d5f2-ac71-4542-9e00-19e4179c91ba"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 302, 296, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372988505898`*^9}, +during this calculation.\"", 2, 136, 68, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372988243732`*^9, 3.994260608411882*^9}, CellLabel-> "During evaluation of \ -In[302]:=",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], +In[136]:=",ExpressionUUID->"6add6b6d-5233-40a7-9a52-3df9c699332d"], -Cell[BoxData["7.87472931725852`"], "Output", - CellChangeTimes->{3.991337302457178*^9}, +Cell[BoxData["4.074642249286693`"], "Output", + CellChangeTimes->{3.991337302457178*^9, 3.994260615664146*^9}, CellLabel-> - "Out[302]=",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] + "Out[136]=",ExpressionUUID->"dae5fd51-50f7-4abd-aab2-64ab6661888e"] }, Open ]], Cell[CellGroupData[{ @@ -12163,94 +13554,95 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849523511486*^9},ExpressionUUID->"0fd90636-7592-fc40-bf9d-\ -ae1cb915c656"], + CellChangeTimes->{3.991849523511486*^9}, + CellLabel-> + "In[137]:=",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL -ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc -Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 -39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN -PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 -8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk -kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru -nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 -t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 -2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 -N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M -GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV -T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex -5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ -m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm -79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb -ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi -ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T -CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 -EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA -ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey -/ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K -ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk -x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN -DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf -Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 -Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN -+5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai -0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR -fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb -FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW -EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe -0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp -c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI -l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 -6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi -tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh -vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X -ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB -dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 -FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf -//8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq -T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d -f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 -KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif -OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU -01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq -COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o -8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC -6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D -cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz -HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 -eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb -w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq -rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV -bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD -uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS -VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z -NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V -9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD -AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj -HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ -Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B -v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm -+TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA -OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 -0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ -4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC -ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu -vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV -l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj -IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft -YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ -gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu -Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp -yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv -hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk4VdsbB3AhyVDhZrwoQzrK0DEPWa8hZJ6SIdPpnB2SJMkUlaFBqVDp +3koZSjLTgPJDQnIR0kjYzknGMu8mv9Uf+9nP51nP/u733Wu/ayPjoAuLm4uL +axRff+6HOtRVHnV1mMRt1k9r2EQik6k8HYZFEcpcKfL8jwezdTOVLJ6g4eGr +QY3YTsz/+IS0niPl1vbYZ9jlUQnPVlq0o5ONpT+asM80S9YnFL5CJiPwpRm7 +uuvQzZ/016jV4rjFC+yx921x0bVv0SRXqHA7tjRb0XvB/CNKNhSw6MS2nY4z +ONz+CfVJ7hrtxq77OSYYVTiE/m51+N6H3XdCIvZhKIlEYhajP2BP8VmMzdHZ +KJzluG8Qm+9cmKfWIgcFNLs3srHlRG60HqodRUIDwqnj2A4yC3emzCcQ6XSO +tYRN3FIQV+OfQjnWbkeXsROUHZP3t0+jUM3/FvhUSPRWondbROE31GXWYyKB +zfQKDso4N4MatQJWbcD+ep3rdkXoLEq/fXs7DZtfQW3dN/o8Gqw2mjXGzmQ+ +s1q3fgGddrsSboW94a5ngsbiAvK0y/dzwdbfmjJ1oHYJyRwYPhmEHaj7qX3M +/Ceasv0yeR17LuoIr8CmX6g2ceF9IfbxWkFjGv9v9KHniU41dhbo39/XvozG +jh3VfvOnvvxWi/DCFfCNUe0uuZlEhc0ZgydkuOGfnNxyGvbXz75xl85xQy+P +fYwRdpzqfGVZKA+8TB9088fOLN2oOE1fCbR+RY1S7PddE3W/c1dC+LL80jPs +DTOPvNas54Nj/wyrv8Mu0nZIV1vkg4yd/2Pz0kjUVB2zIqSWH/gk5qICsOef +9XwaNReCT2xrXQ1VEonaCa2LrROCOJ00bXtszV4LEDYQhunIqcr92MEjD25t +U18DVXf5dAuxw7jbNbcLrYODpi1WaltIxFYo+Za8IAKSC1tzbbfi70O0re7U +EoW5kl+Vh7C573M2Sh4ShcjlVZZZ2Bu05F0Kx0VhtXD3JAfby/xiRcegGPTO +RNudVSNR597wwxIv14O19UbrL+okGriblurPLw4ZjTcOSGiQaGK8MPfeDnHI +LIr+yxJbIILsMaoXh5/gxcnDtkhy0/Z/IAElUqv/DdQkUU2e7nxBthRwUs/a +8NNJlMf+HmkYIQtLcb/6CnRIZL3r1MDhYlkQOb6Pn8SeaBKzLObIgm3ot0JZ +XRJp521dv8FTDiaOhJlnYjcxfCtXmsjDP5YhjSl6JJqZHjw6mrgBCsLnvx83 +IJHYAYuqSnsF2PwchbRtJxEnTyDQKVgBDLddbhE1IdHjj10ykykK4KUTlumN +vcfOJ3FTvQLEqDw/OYWdtyXS5RpdETQ6HSqkAL9/7O7XeAklWH4r5p9sRiK3 +fYJqNkPKsKlJXKTCikQochd99y9lqBpP/MpnTSLV5Gw9ptQmENJP2r4HmytX +yyzeeROk/e2wgX8niYoHvHdXNGyCSsOjq1k2eD7di05I56hA6e6yA1r2uD4L ++74xBg0WhZz+VXAlUa7r1Q+L8TRoBQ2dZOw0xtAg7780eMGrun0Um3n8yLhc +Dw1kspKulrrhc+DJDS5Xc1WIinOMNHfH/4/WlGqt4haY4vMcTPAkkYzChYTU +ka1gf0b5tK0/iZ6cnaNR3GpwYdv9mOfYe2Y9e4mNauB8KnoaBZDoZpMSzcxX +DSxfC/jrMkiksK+me+mNGtQV1frQmLjfIrYy8VIdNhvbvFIJJJGsjByxwVMT +Fsbk21LCSLQ1P0LoB6JDxUnp2x0nScRgJs6rOdDB+MQjPr9EPK+K6QP+e+iw +7nTop2lsnpzSsuYoOuS83DEmmozn7eaYW3o5HSxEPQjfU/g8zfK/QVPUAqck +sd8C5/D+ptqpe/BpQ62URn/NZRLdDldyetCuAycz/puLLCRRxUB9quRHHahj +SpH0+yRqtPFpiR3XgQqreq9p7BGFKyZmArowrGbNCSom0aaeVWqdVrogHeR/ +kFWG51lrfPWXRl2ICGl1iXyI92eu/Nnf1XogHHq2YLmRRF2RSC8p3wBcvXMW +KvpJtNH3tYNPyHaYOicPSZIjiLX8sEQ2GqBLuzdEZfcIkhh/vEqCYQaX7+qk +NuSOoAgt44/pqhYQtYPekT07ghiTP1vFxnbAcePdHfM72ajY7PCq7E4rWO7f +bz9cxkZ5c8ENRZk74Zrueum3Uhy0ZCr5X1OCLdwerFK7fZmD+rl4vg0F2IPo +kLFAhtRnFPr3wYsnFB3hasJkyLabn1FJUGv95WQnONU2w67TH0Uxs1KLW4Kc +wd67v9C+ZxTN21i6t/i5QMnptY2mKV+QgfclU7azK2hFbxd4YTqGuqVuBDdp +uUF18evIiB9jSPpO4pOCzbvAWPbquQtd4+jxoKqdg7A73HQU2JKXM4Hker/u +i5x0B4mG0fL5mEmkdflSUe7gbmh+8atC5NAUusE7q57+zAOMhowD6QHT6KGp +xvvkak8wMxJS36b/FWXpnRX5WegF1bSOspONX1Hnh/wUrXPe0OyxV7DF6ht6 +YH9dKez4HljrLRROfPyGvh1w5Qpl+kD3yxsLfsEzaN6SFjhl7gtNe4TPcBZn +UMHku6XDun7wyqa4ZlvGLPK4nb/XR8gfvjvmedYozaHKCls/nlP+IC/sKjLb +MIcMZLqpM5Q/ZIlwn1h0mUeKg/vevwoKgOP/S1JVGZhHI4L7Ha+TASDeezdK +N2wBdaU57LXaxYD4C3pxvjMLKDMqW/BIFwPYBzS3fo5cRE/qlqm9O/eCN0Na +8/LUIlq7B05p1eyFg+D7yt51CRn4TxUkazPBWk6QNlexhO5c+3rYQZcJTbUr +LhtXLaG/emZMJPSZ8NjtunLSgyU0tWOxt8CICU4WCZXrHi/h84trRbsZE3a/ +cI6Wf7qE1iyKeIo6M6H7dECgWMsSGjmvszr7ABNsXrY/dHm/hNJq44Ie32GC +am5kndzvJXSAftUgqoAJ5lve3du8vITs7pWv1i9kQuK97LJtXBQSuMq596iY +CQXlHmtNuSmUHO409rCKCX2pKQK7+CgUR1Pa/6CRCaUD7fXOaygUfPVlSMUA +E44/nIu/LkuhnWs4xuGDTNCjJ/qekaPQ5mQuYfowE3rTe52PyFOIE65TXM5m +gqTUu3CbjRQKcMieLJtgwrKhUtYXJQp5rDwcWvodP7/CyuTHFgpZHZYOKxJn +gU//i6PBBhRqzE6xSZdkgfY+nwkbQwoZt88oRUmzgPt4l5mqEYU0lV++M5dj +QR+vcybbmEJSb2LNPyizgPGmuNEBKDRu2C8uoMOCp/bB68ctKXSB+9bTfa4s +uHPn6eedrrh/DaEs+10sGFCekedzo1CSd1S41m4WBL2OpjdgR1U5qSx7sSDS ++Q5byx3XT6y4dIXBgq3X4uMFPSmk1cZgPj/EgmnDDNtEXwq9uaQsqHiRBVUd +pdMZgRQqQcKBo5dYMHj/+48NQTh/cq6pOIMFHcdkeYqx6Tub4vWvsmBW2GtF +YzCF0rj2ztjfZIHNzebqTyEUsjx4611UEQscWnh+fgmjkKzsaV2TEhbETHnm +E4coNNd2MIOnjAVGKgyrYeycTcg+rZIF9wL5j/SFU+hXf399bg0LJoX0D1dE +UKjKTqago5UFvDv8BvWjKJT6nXtlZhsLTLJ38eVjMwrGAjzbWfBqTFpxXTSF +1vHWyIx0skD6ZQ6Q2CG1HheoPhbUPb/HfyyWQoqqVyKV2CyQ1Ut+EB9Poe9v +jvV84bDAPJVt9B67K5mlWTrKgrHMI4+0EygUP6Q9ZjDBgk6v5vMc7PdZPT6O +syyA5ryq7ScolL5KZEfMCgIkH/O/rU6k0JOZfu8IHgLUc6uthZMo9Lm/MDx0 +JQGCAcb7/bCNqyxuMVYTsJmwe76MzfGP+mEjQsD9xoY2zRRcv90O0R1iBLyK +pbVEYxvpidLQegIM1LMiGrAvChe5a0kR8FVBbdjuFF6v+VQus5EARvb/Vrqd +phCRX9S6XpGAK3GcU+nYFy9Gf1qrTMD5EmZNJzaHEBPmpRHw1FNC0/IMXhez +CpzQJECkDu1RPEuhmt9iCRw6Afo6/H67sdlfBi8PahPAqcgQOYttWB/zrFef +gIK68uRx7JGQErmnQMCUgFvBzVQKrfGI1XlkRoD7vViVVmwDc2u7cgsCbMIn +d33FTpMajs63JmCFaWy98TkKPeYtvZhtQ0CHfvxPf2xyOvbuNTsC9qFrnxOx +9ZvXvz7vRICo9Fjbc2xG+fD4KRcCslwEno1gn79eyn3SjYA3DIlg7vMUGg7f +qRnpQcCHS6+aDLCFfcWtwrwIOHo6JMoVW38n6RO8h4DTfF3v92Oflz+W6utP +wH7+V/ezsB8L2OR4MAhwfesnXfwnb1682oVJwGzLNb36P3lDZKcdQUDfpSie +7j957WUcy0C8n34Lx4axGY+O/YJg3E+L8N1vf/JzbP4yCiHAsbs6fvlP/nmJ +LTqhBHycnecVSsP5USOmGmEE+K+rM5DAFmKWe9DCCYiLWSO7EVvPMf6gYgQB +qbNkCQ2bYWibIhtJwK37RtOa2OeUJW9IRBFwwVRsQBf74Tp2pUgMAeONgbFG +2EM/ytsE4wjgLzJsMfmT/zl+aGU8Ab8+n2oAbN1u26XlBAJudzkGm2L/H6Cp +38M= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -12264,106 +13656,107 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL -ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc -Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 -39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN -PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 -8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk -kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru -nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 -t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 -2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 -N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M -GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV -T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex -5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ -m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm -79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb -ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi -ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T -CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 -EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA -ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey -/ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K -ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk -x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN -DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf -Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 -Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN -+5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai -0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR -fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb -FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW -EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe -0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp -c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI -l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 -6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi -tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh -vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X -ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB -dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 -FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf -//8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq -T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d -f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 -KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif -OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU -01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq -COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o -8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC -6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D -cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz -HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 -eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb -w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq -rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV -bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD -uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS -VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z -NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V -9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD -AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj -HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ -Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B -v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm -+TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA -OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 -0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ -4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC -ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu -vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV -l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj -IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft -YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ -gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu -Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp -yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv -hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc +1:eJwV1Hk4VdsbB3AhyVDhZrwoQzrK0DEPWa8hZJ6SIdPpnB2SJMkUlaFBqVDp +3koZSjLTgPJDQnIR0kjYzknGMu8mv9Uf+9nP51nP/u733Wu/ayPjoAuLm4uL +axRff+6HOtRVHnV1mMRt1k9r2EQik6k8HYZFEcpcKfL8jwezdTOVLJ6g4eGr +QY3YTsz/+IS0niPl1vbYZ9jlUQnPVlq0o5ONpT+asM80S9YnFL5CJiPwpRm7 +uuvQzZ/016jV4rjFC+yx921x0bVv0SRXqHA7tjRb0XvB/CNKNhSw6MS2nY4z +ONz+CfVJ7hrtxq77OSYYVTiE/m51+N6H3XdCIvZhKIlEYhajP2BP8VmMzdHZ +KJzluG8Qm+9cmKfWIgcFNLs3srHlRG60HqodRUIDwqnj2A4yC3emzCcQ6XSO +tYRN3FIQV+OfQjnWbkeXsROUHZP3t0+jUM3/FvhUSPRWondbROE31GXWYyKB +zfQKDso4N4MatQJWbcD+ep3rdkXoLEq/fXs7DZtfQW3dN/o8Gqw2mjXGzmQ+ +s1q3fgGddrsSboW94a5ngsbiAvK0y/dzwdbfmjJ1oHYJyRwYPhmEHaj7qX3M +/Ceasv0yeR17LuoIr8CmX6g2ceF9IfbxWkFjGv9v9KHniU41dhbo39/XvozG +jh3VfvOnvvxWi/DCFfCNUe0uuZlEhc0ZgydkuOGfnNxyGvbXz75xl85xQy+P +fYwRdpzqfGVZKA+8TB9088fOLN2oOE1fCbR+RY1S7PddE3W/c1dC+LL80jPs +DTOPvNas54Nj/wyrv8Mu0nZIV1vkg4yd/2Pz0kjUVB2zIqSWH/gk5qICsOef +9XwaNReCT2xrXQ1VEonaCa2LrROCOJ00bXtszV4LEDYQhunIqcr92MEjD25t +U18DVXf5dAuxw7jbNbcLrYODpi1WaltIxFYo+Za8IAKSC1tzbbfi70O0re7U +EoW5kl+Vh7C573M2Sh4ShcjlVZZZ2Bu05F0Kx0VhtXD3JAfby/xiRcegGPTO +RNudVSNR597wwxIv14O19UbrL+okGriblurPLw4ZjTcOSGiQaGK8MPfeDnHI +LIr+yxJbIILsMaoXh5/gxcnDtkhy0/Z/IAElUqv/DdQkUU2e7nxBthRwUs/a +8NNJlMf+HmkYIQtLcb/6CnRIZL3r1MDhYlkQOb6Pn8SeaBKzLObIgm3ot0JZ +XRJp521dv8FTDiaOhJlnYjcxfCtXmsjDP5YhjSl6JJqZHjw6mrgBCsLnvx83 +IJHYAYuqSnsF2PwchbRtJxEnTyDQKVgBDLddbhE1IdHjj10ykykK4KUTlumN +vcfOJ3FTvQLEqDw/OYWdtyXS5RpdETQ6HSqkAL9/7O7XeAklWH4r5p9sRiK3 +fYJqNkPKsKlJXKTCikQochd99y9lqBpP/MpnTSLV5Gw9ptQmENJP2r4HmytX +yyzeeROk/e2wgX8niYoHvHdXNGyCSsOjq1k2eD7di05I56hA6e6yA1r2uD4L ++74xBg0WhZz+VXAlUa7r1Q+L8TRoBQ2dZOw0xtAg7780eMGrun0Um3n8yLhc +Dw1kspKulrrhc+DJDS5Xc1WIinOMNHfH/4/WlGqt4haY4vMcTPAkkYzChYTU +ka1gf0b5tK0/iZ6cnaNR3GpwYdv9mOfYe2Y9e4mNauB8KnoaBZDoZpMSzcxX +DSxfC/jrMkiksK+me+mNGtQV1frQmLjfIrYy8VIdNhvbvFIJJJGsjByxwVMT +Fsbk21LCSLQ1P0LoB6JDxUnp2x0nScRgJs6rOdDB+MQjPr9EPK+K6QP+e+iw +7nTop2lsnpzSsuYoOuS83DEmmozn7eaYW3o5HSxEPQjfU/g8zfK/QVPUAqck +sd8C5/D+ptqpe/BpQ62URn/NZRLdDldyetCuAycz/puLLCRRxUB9quRHHahj +SpH0+yRqtPFpiR3XgQqreq9p7BGFKyZmArowrGbNCSom0aaeVWqdVrogHeR/ +kFWG51lrfPWXRl2ICGl1iXyI92eu/Nnf1XogHHq2YLmRRF2RSC8p3wBcvXMW +KvpJtNH3tYNPyHaYOicPSZIjiLX8sEQ2GqBLuzdEZfcIkhh/vEqCYQaX7+qk +NuSOoAgt44/pqhYQtYPekT07ghiTP1vFxnbAcePdHfM72ajY7PCq7E4rWO7f +bz9cxkZ5c8ENRZk74Zrueum3Uhy0ZCr5X1OCLdwerFK7fZmD+rl4vg0F2IPo +kLFAhtRnFPr3wYsnFB3hasJkyLabn1FJUGv95WQnONU2w67TH0Uxs1KLW4Kc +wd67v9C+ZxTN21i6t/i5QMnptY2mKV+QgfclU7azK2hFbxd4YTqGuqVuBDdp +uUF18evIiB9jSPpO4pOCzbvAWPbquQtd4+jxoKqdg7A73HQU2JKXM4Hker/u +i5x0B4mG0fL5mEmkdflSUe7gbmh+8atC5NAUusE7q57+zAOMhowD6QHT6KGp +xvvkak8wMxJS36b/FWXpnRX5WegF1bSOspONX1Hnh/wUrXPe0OyxV7DF6ht6 +YH9dKez4HljrLRROfPyGvh1w5Qpl+kD3yxsLfsEzaN6SFjhl7gtNe4TPcBZn +UMHku6XDun7wyqa4ZlvGLPK4nb/XR8gfvjvmedYozaHKCls/nlP+IC/sKjLb +MIcMZLqpM5Q/ZIlwn1h0mUeKg/vevwoKgOP/S1JVGZhHI4L7Ha+TASDeezdK +N2wBdaU57LXaxYD4C3pxvjMLKDMqW/BIFwPYBzS3fo5cRE/qlqm9O/eCN0Na +8/LUIlq7B05p1eyFg+D7yt51CRn4TxUkazPBWk6QNlexhO5c+3rYQZcJTbUr +LhtXLaG/emZMJPSZ8NjtunLSgyU0tWOxt8CICU4WCZXrHi/h84trRbsZE3a/ +cI6Wf7qE1iyKeIo6M6H7dECgWMsSGjmvszr7ABNsXrY/dHm/hNJq44Ie32GC +am5kndzvJXSAftUgqoAJ5lve3du8vITs7pWv1i9kQuK97LJtXBQSuMq596iY +CQXlHmtNuSmUHO409rCKCX2pKQK7+CgUR1Pa/6CRCaUD7fXOaygUfPVlSMUA +E44/nIu/LkuhnWs4xuGDTNCjJ/qekaPQ5mQuYfowE3rTe52PyFOIE65TXM5m +gqTUu3CbjRQKcMieLJtgwrKhUtYXJQp5rDwcWvodP7/CyuTHFgpZHZYOKxJn +gU//i6PBBhRqzE6xSZdkgfY+nwkbQwoZt88oRUmzgPt4l5mqEYU0lV++M5dj +QR+vcybbmEJSb2LNPyizgPGmuNEBKDRu2C8uoMOCp/bB68ctKXSB+9bTfa4s +uHPn6eedrrh/DaEs+10sGFCekedzo1CSd1S41m4WBL2OpjdgR1U5qSx7sSDS ++Q5byx3XT6y4dIXBgq3X4uMFPSmk1cZgPj/EgmnDDNtEXwq9uaQsqHiRBVUd +pdMZgRQqQcKBo5dYMHj/+48NQTh/cq6pOIMFHcdkeYqx6Tub4vWvsmBW2GtF +YzCF0rj2ztjfZIHNzebqTyEUsjx4611UEQscWnh+fgmjkKzsaV2TEhbETHnm +E4coNNd2MIOnjAVGKgyrYeycTcg+rZIF9wL5j/SFU+hXf399bg0LJoX0D1dE +UKjKTqago5UFvDv8BvWjKJT6nXtlZhsLTLJ38eVjMwrGAjzbWfBqTFpxXTSF +1vHWyIx0skD6ZQ6Q2CG1HheoPhbUPb/HfyyWQoqqVyKV2CyQ1Ut+EB9Poe9v +jvV84bDAPJVt9B67K5mlWTrKgrHMI4+0EygUP6Q9ZjDBgk6v5vMc7PdZPT6O +syyA5ryq7ScolL5KZEfMCgIkH/O/rU6k0JOZfu8IHgLUc6uthZMo9Lm/MDx0 +JQGCAcb7/bCNqyxuMVYTsJmwe76MzfGP+mEjQsD9xoY2zRRcv90O0R1iBLyK +pbVEYxvpidLQegIM1LMiGrAvChe5a0kR8FVBbdjuFF6v+VQus5EARvb/Vrqd +phCRX9S6XpGAK3GcU+nYFy9Gf1qrTMD5EmZNJzaHEBPmpRHw1FNC0/IMXhez +CpzQJECkDu1RPEuhmt9iCRw6Afo6/H67sdlfBi8PahPAqcgQOYttWB/zrFef +gIK68uRx7JGQErmnQMCUgFvBzVQKrfGI1XlkRoD7vViVVmwDc2u7cgsCbMIn +d33FTpMajs63JmCFaWy98TkKPeYtvZhtQ0CHfvxPf2xyOvbuNTsC9qFrnxOx +9ZvXvz7vRICo9Fjbc2xG+fD4KRcCslwEno1gn79eyn3SjYA3DIlg7vMUGg7f +qRnpQcCHS6+aDLCFfcWtwrwIOHo6JMoVW38n6RO8h4DTfF3v92Oflz+W6utP +wH7+V/ezsB8L2OR4MAhwfesnXfwnb1682oVJwGzLNb36P3lDZKcdQUDfpSie +7j957WUcy0C8n34Lx4axGY+O/YJg3E+L8N1vf/JzbP4yCiHAsbs6fvlP/nmJ +LTqhBHycnecVSsP5USOmGmEE+K+rM5DAFmKWe9DCCYiLWSO7EVvPMf6gYgQB +qbNkCQ2bYWibIhtJwK37RtOa2OeUJW9IRBFwwVRsQBf74Tp2pUgMAeONgbFG +2EM/ytsE4wjgLzJsMfmT/zl+aGU8Ab8+n2oAbN1u26XlBAJudzkGm2L/H6Cp +38M= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6639439823901716, - 1.4626441816684523`}}, + "PlotRange" -> {{0, 180}, {0.5984809663507487, + 1.5972303536227985`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.663943982390173}, + "AxesOrigin" -> {0, 0.59848096635075}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -12375,21 +13768,21 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6639439823901716, - 1.4626441816684523`}}, + "PlotRange" -> {{0, 180}, {0.5984809663507487, + 1.5972303536227985`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.663943982390173}, + "AxesOrigin" -> {0, 0.59848096635075}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -12403,104 +13796,105 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL -ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc -Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 -39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN -PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 -8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk -kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru -nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 -t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 -2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 -N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M -GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV -T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex -5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ -m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm -79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb -ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi -ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T -CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 -EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA -ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey -/ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K -ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk -x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN -DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf -Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 -Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN -+5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai -0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR -fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb -FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW -EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe -0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp -c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI -l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 -6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi -tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh -vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X -ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB -dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 -FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf -//8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq -T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d -f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 -KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif -OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU -01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq -COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o -8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC -6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D -cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz -HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 -eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb -w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq -rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV -bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD -uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS -VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z -NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V -9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD -AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj -HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ -Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B -v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm -+TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA -OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 -0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ -4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC -ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu -vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV -l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj -IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft -YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ -gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu -Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp -yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv -hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc +1:eJwV1Hk4VdsbB3AhyVDhZrwoQzrK0DEPWa8hZJ6SIdPpnB2SJMkUlaFBqVDp +3koZSjLTgPJDQnIR0kjYzknGMu8mv9Uf+9nP51nP/u733Wu/ayPjoAuLm4uL +axRff+6HOtRVHnV1mMRt1k9r2EQik6k8HYZFEcpcKfL8jwezdTOVLJ6g4eGr +QY3YTsz/+IS0niPl1vbYZ9jlUQnPVlq0o5ONpT+asM80S9YnFL5CJiPwpRm7 +uuvQzZ/016jV4rjFC+yx921x0bVv0SRXqHA7tjRb0XvB/CNKNhSw6MS2nY4z +ONz+CfVJ7hrtxq77OSYYVTiE/m51+N6H3XdCIvZhKIlEYhajP2BP8VmMzdHZ +KJzluG8Qm+9cmKfWIgcFNLs3srHlRG60HqodRUIDwqnj2A4yC3emzCcQ6XSO +tYRN3FIQV+OfQjnWbkeXsROUHZP3t0+jUM3/FvhUSPRWondbROE31GXWYyKB +zfQKDso4N4MatQJWbcD+ep3rdkXoLEq/fXs7DZtfQW3dN/o8Gqw2mjXGzmQ+ +s1q3fgGddrsSboW94a5ngsbiAvK0y/dzwdbfmjJ1oHYJyRwYPhmEHaj7qX3M +/Ceasv0yeR17LuoIr8CmX6g2ceF9IfbxWkFjGv9v9KHniU41dhbo39/XvozG +jh3VfvOnvvxWi/DCFfCNUe0uuZlEhc0ZgydkuOGfnNxyGvbXz75xl85xQy+P +fYwRdpzqfGVZKA+8TB9088fOLN2oOE1fCbR+RY1S7PddE3W/c1dC+LL80jPs +DTOPvNas54Nj/wyrv8Mu0nZIV1vkg4yd/2Pz0kjUVB2zIqSWH/gk5qICsOef +9XwaNReCT2xrXQ1VEonaCa2LrROCOJ00bXtszV4LEDYQhunIqcr92MEjD25t +U18DVXf5dAuxw7jbNbcLrYODpi1WaltIxFYo+Za8IAKSC1tzbbfi70O0re7U +EoW5kl+Vh7C573M2Sh4ShcjlVZZZ2Bu05F0Kx0VhtXD3JAfby/xiRcegGPTO +RNudVSNR597wwxIv14O19UbrL+okGriblurPLw4ZjTcOSGiQaGK8MPfeDnHI +LIr+yxJbIILsMaoXh5/gxcnDtkhy0/Z/IAElUqv/DdQkUU2e7nxBthRwUs/a +8NNJlMf+HmkYIQtLcb/6CnRIZL3r1MDhYlkQOb6Pn8SeaBKzLObIgm3ot0JZ +XRJp521dv8FTDiaOhJlnYjcxfCtXmsjDP5YhjSl6JJqZHjw6mrgBCsLnvx83 +IJHYAYuqSnsF2PwchbRtJxEnTyDQKVgBDLddbhE1IdHjj10ykykK4KUTlumN +vcfOJ3FTvQLEqDw/OYWdtyXS5RpdETQ6HSqkAL9/7O7XeAklWH4r5p9sRiK3 +fYJqNkPKsKlJXKTCikQochd99y9lqBpP/MpnTSLV5Gw9ptQmENJP2r4HmytX +yyzeeROk/e2wgX8niYoHvHdXNGyCSsOjq1k2eD7di05I56hA6e6yA1r2uD4L ++74xBg0WhZz+VXAlUa7r1Q+L8TRoBQ2dZOw0xtAg7780eMGrun0Um3n8yLhc +Dw1kspKulrrhc+DJDS5Xc1WIinOMNHfH/4/WlGqt4haY4vMcTPAkkYzChYTU +ka1gf0b5tK0/iZ6cnaNR3GpwYdv9mOfYe2Y9e4mNauB8KnoaBZDoZpMSzcxX +DSxfC/jrMkiksK+me+mNGtQV1frQmLjfIrYy8VIdNhvbvFIJJJGsjByxwVMT +Fsbk21LCSLQ1P0LoB6JDxUnp2x0nScRgJs6rOdDB+MQjPr9EPK+K6QP+e+iw +7nTop2lsnpzSsuYoOuS83DEmmozn7eaYW3o5HSxEPQjfU/g8zfK/QVPUAqck +sd8C5/D+ptqpe/BpQ62URn/NZRLdDldyetCuAycz/puLLCRRxUB9quRHHahj +SpH0+yRqtPFpiR3XgQqreq9p7BGFKyZmArowrGbNCSom0aaeVWqdVrogHeR/ +kFWG51lrfPWXRl2ICGl1iXyI92eu/Nnf1XogHHq2YLmRRF2RSC8p3wBcvXMW +KvpJtNH3tYNPyHaYOicPSZIjiLX8sEQ2GqBLuzdEZfcIkhh/vEqCYQaX7+qk +NuSOoAgt44/pqhYQtYPekT07ghiTP1vFxnbAcePdHfM72ajY7PCq7E4rWO7f +bz9cxkZ5c8ENRZk74Zrueum3Uhy0ZCr5X1OCLdwerFK7fZmD+rl4vg0F2IPo +kLFAhtRnFPr3wYsnFB3hasJkyLabn1FJUGv95WQnONU2w67TH0Uxs1KLW4Kc +wd67v9C+ZxTN21i6t/i5QMnptY2mKV+QgfclU7azK2hFbxd4YTqGuqVuBDdp +uUF18evIiB9jSPpO4pOCzbvAWPbquQtd4+jxoKqdg7A73HQU2JKXM4Hker/u +i5x0B4mG0fL5mEmkdflSUe7gbmh+8atC5NAUusE7q57+zAOMhowD6QHT6KGp +xvvkak8wMxJS36b/FWXpnRX5WegF1bSOspONX1Hnh/wUrXPe0OyxV7DF6ht6 +YH9dKez4HljrLRROfPyGvh1w5Qpl+kD3yxsLfsEzaN6SFjhl7gtNe4TPcBZn +UMHku6XDun7wyqa4ZlvGLPK4nb/XR8gfvjvmedYozaHKCls/nlP+IC/sKjLb +MIcMZLqpM5Q/ZIlwn1h0mUeKg/vevwoKgOP/S1JVGZhHI4L7Ha+TASDeezdK +N2wBdaU57LXaxYD4C3pxvjMLKDMqW/BIFwPYBzS3fo5cRE/qlqm9O/eCN0Na +8/LUIlq7B05p1eyFg+D7yt51CRn4TxUkazPBWk6QNlexhO5c+3rYQZcJTbUr +LhtXLaG/emZMJPSZ8NjtunLSgyU0tWOxt8CICU4WCZXrHi/h84trRbsZE3a/ +cI6Wf7qE1iyKeIo6M6H7dECgWMsSGjmvszr7ABNsXrY/dHm/hNJq44Ie32GC +am5kndzvJXSAftUgqoAJ5lve3du8vITs7pWv1i9kQuK97LJtXBQSuMq596iY +CQXlHmtNuSmUHO409rCKCX2pKQK7+CgUR1Pa/6CRCaUD7fXOaygUfPVlSMUA +E44/nIu/LkuhnWs4xuGDTNCjJ/qekaPQ5mQuYfowE3rTe52PyFOIE65TXM5m +gqTUu3CbjRQKcMieLJtgwrKhUtYXJQp5rDwcWvodP7/CyuTHFgpZHZYOKxJn +gU//i6PBBhRqzE6xSZdkgfY+nwkbQwoZt88oRUmzgPt4l5mqEYU0lV++M5dj +QR+vcybbmEJSb2LNPyizgPGmuNEBKDRu2C8uoMOCp/bB68ctKXSB+9bTfa4s +uHPn6eedrrh/DaEs+10sGFCekedzo1CSd1S41m4WBL2OpjdgR1U5qSx7sSDS ++Q5byx3XT6y4dIXBgq3X4uMFPSmk1cZgPj/EgmnDDNtEXwq9uaQsqHiRBVUd +pdMZgRQqQcKBo5dYMHj/+48NQTh/cq6pOIMFHcdkeYqx6Tub4vWvsmBW2GtF +YzCF0rj2ztjfZIHNzebqTyEUsjx4611UEQscWnh+fgmjkKzsaV2TEhbETHnm +E4coNNd2MIOnjAVGKgyrYeycTcg+rZIF9wL5j/SFU+hXf399bg0LJoX0D1dE +UKjKTqago5UFvDv8BvWjKJT6nXtlZhsLTLJ38eVjMwrGAjzbWfBqTFpxXTSF +1vHWyIx0skD6ZQ6Q2CG1HheoPhbUPb/HfyyWQoqqVyKV2CyQ1Ut+EB9Poe9v +jvV84bDAPJVt9B67K5mlWTrKgrHMI4+0EygUP6Q9ZjDBgk6v5vMc7PdZPT6O +syyA5ryq7ScolL5KZEfMCgIkH/O/rU6k0JOZfu8IHgLUc6uthZMo9Lm/MDx0 +JQGCAcb7/bCNqyxuMVYTsJmwe76MzfGP+mEjQsD9xoY2zRRcv90O0R1iBLyK +pbVEYxvpidLQegIM1LMiGrAvChe5a0kR8FVBbdjuFF6v+VQus5EARvb/Vrqd +phCRX9S6XpGAK3GcU+nYFy9Gf1qrTMD5EmZNJzaHEBPmpRHw1FNC0/IMXhez +CpzQJECkDu1RPEuhmt9iCRw6Afo6/H67sdlfBi8PahPAqcgQOYttWB/zrFef +gIK68uRx7JGQErmnQMCUgFvBzVQKrfGI1XlkRoD7vViVVmwDc2u7cgsCbMIn +d33FTpMajs63JmCFaWy98TkKPeYtvZhtQ0CHfvxPf2xyOvbuNTsC9qFrnxOx +9ZvXvz7vRICo9Fjbc2xG+fD4KRcCslwEno1gn79eyn3SjYA3DIlg7vMUGg7f +qRnpQcCHS6+aDLCFfcWtwrwIOHo6JMoVW38n6RO8h4DTfF3v92Oflz+W6utP +wH7+V/ezsB8L2OR4MAhwfesnXfwnb1682oVJwGzLNb36P3lDZKcdQUDfpSie +7j957WUcy0C8n34Lx4axGY+O/YJg3E+L8N1vf/JzbP4yCiHAsbs6fvlP/nmJ +LTqhBHycnecVSsP5USOmGmEE+K+rM5DAFmKWe9DCCYiLWSO7EVvPMf6gYgQB +qbNkCQ2bYWibIhtJwK37RtOa2OeUJW9IRBFwwVRsQBf74Tp2pUgMAeONgbFG +2EM/ytsE4wjgLzJsMfmT/zl+aGU8Ab8+n2oAbN1u26XlBAJudzkGm2L/H6Cp +38M= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, + "PlotRange" -> {{0, 180}, {0.5984809663507487, 1.5972303536227985`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.663943982390173}, + "AxesOrigin" -> {0, 0.59848096635075}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -12510,7 +13904,8 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.663943982390173}, + AxesOrigin->{0, 0.59848096635075}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -12538,7 +13933,8 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.5984809663507487, 1.5972303536227985`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -12546,9 +13942,9 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991337564416748*^9}, + CellChangeTimes->{3.991337564416748*^9, 3.994260941365546*^9}, CellLabel-> - "Out[303]=",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] + "Out[137]=",ExpressionUUID->"fcf7c264-ebf0-44c8-95db-702c9c15ef88"] }, Open ]], Cell[CellGroupData[{ @@ -12612,252 +14008,177 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ - 3.9918495265156612`*^9, {3.991849580574194*^9, - 3.9918495807911797`*^9}},ExpressionUUID->"90696e8b-5a2d-314c-8d58-\ -ac84cb8f4d66"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.976253354341118`*^-271\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 304, - 297, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337564646551*^9}, + 3.9918495265156612`*^9, {3.991849580574194*^9, 3.9918495807911797`*^9}}, CellLabel-> - "During evaluation of \ -In[304]:=",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], + "In[138]:=",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.718150004511881`*^-282\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.3591901713174597`*^-270\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 304, 298, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913375646565304`*^9}, + 138, 69, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337564646551*^9, 3.994260941484363*^9}, CellLabel-> "During evaluation of \ -In[304]:=",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], +In[138]:=",ExpressionUUID->"863bac06-dfd6-4c26-9455-4298f8b51565"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4847193100774497`*^-293\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.180777884983378`*^-281\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 304, 299, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913375646656475`*^9}, + 2, 138, 70, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337564646551*^9, 3.994260941492653*^9}, CellLabel-> "During evaluation of \ -In[304]:=",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], +In[138]:=",ExpressionUUID->"babeaace-6023-40d6-8710-b5fc04feb695"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.4989895336152984`*^-292\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 138, 71, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337564646551*^9, 3.9942609414999943`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"389d6c47-8bf7-4787-af02-a734f309b126"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 304, 300, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913375646736584`*^9}, +during this calculation.\"", 2, 138, 72, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337564646551*^9, 3.994260941506168*^9}, CellLabel-> "During evaluation of \ -In[304]:=",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], +In[138]:=",ExpressionUUID->"2e97379c-27e6-47af-ac95-11b8d9f524ea"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo -yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ -e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt -CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 -SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr -J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX -du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch -VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU -v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt -EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 -uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi -NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L -I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ -bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A -1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f -CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b -RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf -p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 -c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY -doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm -Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 -784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw -+0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s -GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs -uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL -iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G -ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ -nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU -gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 -XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU -m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l -bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy -I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 -zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ -mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK -vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G -UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ -xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 -fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu -FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu -g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ -l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX -V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ -eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 -3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA -G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN -mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H -L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep -5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj -JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT -+jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs -FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v -HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax -9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L -lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 -Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV -lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E -uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh -RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY -ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ -8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI -MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q -4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD -b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ -sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU -0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK -VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv -vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA -0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES -2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO -EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 -OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb -5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl -Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN -+dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi -yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O -GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ -8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho -q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for -sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl -KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob -v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N -1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB -w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg -d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw -7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF -XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi -teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD -A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD -wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 -HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 -yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 -tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn -y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ -71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB -hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy -C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC -ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ -rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 -1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H -7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 -32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l -Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq -gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij -tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp -MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq -2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 -nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM -D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU -RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb -MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr -fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 -GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h -+tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 -PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN -MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 -75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc -5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU -UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw -El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW -q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH -1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK -3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ -lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf -VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy -Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD -25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O -JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI -w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q -hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR -hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv -ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu -jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S -JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue -2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig -DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 -bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 -3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe -etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk -om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe -tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F -X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau -q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 -D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc -PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE -QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc -IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx -bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN -H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 -sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU -K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 -mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi -z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o -YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h -Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 -aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l -cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo -2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 -Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl -z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO -d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da -A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM -VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl -kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC -H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk -4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x -CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl -rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 -pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs -Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US -R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o -IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe -SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U -EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o -0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm -cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru -YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep -KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F -VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs -76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj -6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 -BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi -JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT -/wN9xxCi + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1mk4VW0XB3CRkkqZ5zOYKpmn43COtZBZCpEpQ6g0qJBZhiJFMmRIhdCo +cM6mMjzxoFIaTZmSSI9KSkgp9e73075+X9be177X+q+bvvOgUyAvDw+P7hIe +nv8/vw8/alNKKzcZ/8o5cc7VwqS7SCrKtC8Jps9s8hnNVgQUf75Tqi8bJHus +Vtdm60L41huv+PpKgR9LFXOzzUF4SjL75ysuSB9PV/PNdoY3jQ4HZ1+1QMqR +6gpOlj9YKn18Pf2qE5LUB08LngmFn68YuV9fjYLc6rY/0cePQav51fKXpTOw +7odx7JDyWZB7U/d+p9oicM+09HQfvQhi+31uLDfnQ454n2awRBlka1s2OLgI +4M8keoBzyFXoL9Bqnl67Gks2VsdxqRWQVh7/nFdaGMNfcT78W1wJtnpBIuKK +wqhJ0bMNvlkJAm1OLuvUhZFz4aqiSF0lHB9THrQzFUbW/gcM7KyEWIUn788G +CePCdGyp/tIqCC6R+qNSL4zuLqdiju2qAscLHDU7TxH82v58crNINUieHTuZ +c1EUI/YXXFjfWg1SG2uP/7giij1Ff2tXtleDTEtK/I5qUXQ4bf/u45NqoHzd +cGRdqyhqXtscd7G3GpTtD/k2TIji+lrjrK4P1aC7dNFgTFcMo9/ptCet4cCW +MIl3Oo/FcI+P8uKH7RzYunJiOL9LDEWc5ggHLw44ldb1/x4SwyvXjA9V+XLA +9YXX8wdfxNApsnQ+IIgDO9TK6j3ExVFp/wFGSTQH9r3TzEryFUeLDafUtl/g +wIltNiad38Wx037yYdsQB2RqnsnwLpHA4H+CQxZHOFApum1ee6UE/jLXDdAe +50Bvp3d1FlUCc+cT5dI+c0DJMUzB0VoCB9XK+/n/cKBlc/GyF+ckMD6Z4iZF +4cKi5dyzpyxJpL3P96v24ELmleiKRUtJtHqSUOTozQWlZTyp6o6S6NCYTJny +44L9fUHT04GS2D00/p9UEBcKzWmEfYYkNpTElehHcMEQ7fI73kiilv0xIi2b +C6HMSz6PkqRwQwXIVdzngm2J0KxduhQaJh/1SGzngsLy2NRnuVIowMMT49zB +hRfdrpyua1K4KFfg/+kFFzQOreIbfiaFN0tX9n8Y5MLElYgr32Sk0TzK+CR9 +mgteYg6fZQlpXLTfPRknRYBuTENiUaM0Flo/nH4hQ4Dg6HoJ+gNpfFt/dpQq +T0BdFR+o9Etj0f3fJzh0AiTs6jK1/krjmfXTk2WqBLxIVNKzsJPBlzoxMfeN +Cdj0ZSE6eEwGDSUFu/94EBBlfVb130kZLLax5nnoRUDlJfUB0e8yGL/tlUOa +NwFS23yZdQKyKLry1zaBnQRM3r0/z6chi0/8FcW69xCQk5QZdi5SFjNb7Pu4 +RwhoH9ygNJkoi49sduxlRxDwW6+1yyRNFh2PF6xriyRg139zOu8uymJ45xfl +BzEEGNl7Tmu0yqLM4ArzC4kEjIqrBLetlsOQoTWnstIJkDzYJC8pKYfaLvlS +b04TYN/u9jSIJodar12G1p8h4HZ0mtoaXTm8Y6C0jJNFwKk3Xz+6u8lh85lf +czl5BOhcb9j9pVQOIZV/tLyYgN28LpJmN8n6/ackbpcQcMFz6sHZWjkcImLT +Wi8RsEyIrmLULodjoueZXWUEDISkvDv+WQ5lEmoa7l8lIJHl6CdjKI8/pk/z +/qgkwNq76BvDTB7NjinnvqkiQCjh0zEXe3nU/Fb1pKWarN+afCXTVx4/aTdp +xHIJuGtb/2nZSXmsNl0+VF9LQPz+5XFKOfI4YbaPiL9NgGXGNiGzi/K4yUfN +EO8Q0P1ySiuOI48VkpIONXcJ+OqmGD7TL4/qeVKP9zQQcCf60HLhd/I4pDWu +urKRgKMX/inQmJLHfMor0+ukV41sbwjipWBU8o28vn8I6Fpy2f7EKgo2ez7v +DbpHQKHit9flEhQ0ZZe8/E563e50nhFVClocH/rF10zAVGp/1qIeBUvK89SP +k665oaIoCxTsMC+k8PxLgNlUs4WrMwUHp1TNP5H2PjJ36kkMBX83Rt/JaCVA +Od9M7mMyBa83xi/93Pr//jlza3kmBedt7WWs2giI/r3hhVk5BUW2i1+eIm1K +ifDzraTg7EiiHOs+AQLY9i3uLgXj1+T5JZPOPeYtXveEgmk7y91XPiDA63LF +ld5eCt7aK73GmrTCwx+M2REK5g5tzE8g/WHC4pHwJwqOH5ebqSFdLZjjoTlH +wb5kdaVx0hFqI5/s/1JQ07V0o/BDAkwc1OP2rqCibHOTIJM0/6FooVRRKqqN +dLR4kX6S9bD4sjwVjZWEXGJJ5xBi2q3rqLjd9nlLPmmPHr+WEW0qlvm4r64i +TZ+vdP5jTEX3pnn9FtITUr/fyVpSMV94nv2SdJWRTThzKxU9bS+rDJEO98pb +vt2DiruuOU6PkmYdHSsIC6Aivca+eJw0X4mWanYwFVNMJrTfkX78b1xDVSQV +V/tG3BgmnTn22P5pEhVTIxwEe0hv55ca/phORZENrU4PSVPWBR4UyKfijJda +ci3pcWsuj8olKiaZjJYWk76592+WeQUVVxmb3EomHZpur+hXS8UGnvOXd5M2 +qjxXc7SJiofitp22IL3p1bPFqXYq+g52iCqQduBZauXTScWY86kiv8j/67aB +mfl8kIpKjtdOvSDt7xTcD+NUHDpqE1dKOjimTKF6iophuWmfDpGOLO/bR/tB +xU0zGb3GpC1j6PEJ/DQcvuCz7iF5/h1rGssMBWn4xjTkzAnSW8td278K0fDH +8IvITaQ9n6YJ+0nRsKBlWTdB9tOIn4qBtDwNX1eqWu8ivet7s8dLOg2FXuua +iZM+RP1eZrqRhmhw7skesj/niMz2n5o0/MK08VlNOtp642eOHg1BMyW2soWA +5MO+BgomNIze4+b5nuz3wtbH7byONFxoCupQI+eD6hb4ud6FfH9TSldtEwHl +k3+FQz1o6Bh246Ax6Spxfc8xfxra+HXtYZHz1ra7+HNrOA2XzUQmiJPzavOb +KRIbQ8NsgxzbY+R8P8vsNtBLoKEWNZD7uZ6A/roVCeUnaVjoLeV7t46cz5Vh +IskXaFh92tJVmcyL0BIhBvsSDc3XlmpFknnyQ++659xlGp4gznMfknnD5z1c +HlhFw3Cl/VyvGjLfq60Zli00fG/Y0ubNIeDipjHPPw9o+CTP5m8emV8K/XEJ +tztoeC3y5KcOMt/UeYlHKj00lF++ZXgjmX9m2+S9lk/QUKBsdGvbDQL2/5hO +aF9Nx32jxuluZH4aHd4l8V6EjtOCV9WtSsl5/jhQwSdFx9fZm/h1yLy9PNja +a6JAx16DVzt+FxEwfC9XrdaAjkdUesf8CwnYkszsu+RDx2t9ji3xmWT//rl1 +oCmAjhkpcTk6ZP5PhivwvQ6i44aoLbffkvshdc9KDakwOv5T9m5eL42AZrvX +xzJS6SjEv3i+KpncByKJmjEcOnZ+WDf7PYoAnrS5toLbdDR/tp84SO6nZ3x7 +PW430HGxvn7kXTgB++ackqfv07Fe8np6Wyh5nn1Kg7sH6HhD8JiX+wFy3xa3 +p2zjU0DrztiwAR8Cfm5cO6zuooAO6z4dtjIj4PtFmURdDwXMlhmu9UACZtco +KzF9FHBv2MqWvSbk+c0w924KUsAVyZZGiUbk/mvw/+4Rp4C1r+uGTuiQ8213 +Ryj1sgJemI6LXyT3e+E+bxidU8Bx7c+C+X+4wKq4WZKXp4gq+i8PfarkwiCt +otjivCIuuR0QdeAmF6LzrhfNFiti+x81+c/XuXAn8coFp+uK2FNcwBov54KO +W0mBUKMiZi05u6yukAsb+M9mprxVRJmhauWvyVyQ8IlJCFdTQosr+VlXyfvU +tIitr2uLEtp0hz7PWeTAu3Rf15DlKnhDmtdXR5oDNl8ibMYN1mF4QIqtwYZq +mPQXCK2JX49WV56e8KFWkvdzSd4TLRsw3LoQlw9UgMhTlYzqL6roMPPrcGbl +dZBLrdpqYKCGd8evSW50ugoFG5lrRXer49SqJoMq5cvwWMZUfyZLA0U/LKly +Ei0DI7mWTM1eTZzoET6pOVkCQnylYX5JWujOt7DwemURUBKpLHcVbQzZ4mcx +qlsIK5S9bjs91MaTv9wel9fngQZbuipihw7ey1rhTrTlQMiwSKstjy5OdlTm +n32dCV9m0l1sCnQxuFn15Me36WCl+aDQRl0PM5qiVG9eToV7M8a/5p/poffT +rIPuhcchWE1n4GWgPgp3lZ07ujUR2FMB3e4rDHCId+68RFQsWChJbV5daoBj +xbwL9zIiYH3CqcgWBgPzhxNe9R8KhUbjy/z2Rgy07c9lB/mGwtb5puweFgO7 +uYJ2S7eGQmTw3M0JUwZm3xPftEMzFNq9fN8K2TNwdOWXZYVTIbCHaWDr6cvA +0qVFZ5kHQ+D6t7eys6kMdLW2UP0v8jCoBjKblAcYmONybX2g+0E4o+CwcGyI +gY/mSt8/hYMw+2an/ugwAwmGQYC1ykG455FeUTTGQD+xX5EhM8HgtPVNvuRn +BoqtNeMvzAiGKOPkQyt4DPFbc2eWRvsBaBd+Sf+sbIi6bhv01a33Q+C9Pcdr +DhsiJYbzPjkqCKYOfIywCDNEZ2trb/udQRApv39fb7ghzrVNLlO2C4JTsQed +fsQYYnSdYNMq+SCoNgqnsVIMMVddLLfm3z3w+/axxtZCQwzVHWZ4Ce2B7Kqi +2c5WQ+xydBdpqtkFTSXdAdPiTMxlBcvF6QbAiD3dJ1yKib4H5PZ10QKA5+cB +918yTFRX4iUMhQLAzHG5Az+NiZdyRAS0PvjDgyVGDGlVJroc39fwotgfnuws +XmFqwsQFY9vZl2v8YUBpb2XmLiYG2+q/zlrwg9lrf+c17zDxbotnh+A3H3jv +allyso6JIWo1NRU9PtC39LT1WAMTiaN1NTvrfKDBV+ZcXjMTncbKmkUSfSBJ +St9o8RETH77STIgS9oG1qXtjHw8xMZCjHepi4A1qu3t4AnmNcHjm5LL/zniB +v3LFisLNRvhw9wuNY/HuEH3fe6/KViP806Fx1WaXO2QGinRwnYzQcyJYTWWz +OzRejkrv2G6EfrtOytNl3UFMxXrNop8R7rhZNih31w0eqIyL+YYb4V5BgSn5 +79tBdT2VplJshApBenb9ia4wrZpjwP1qhOq9HYffdztD3xO0EJ0xQv9WodrV +Lc7QHDzlHDZnhDduGH7aVOUMGVybwwYLRkifq+QdO+kMqkY8N+v5jPF7SVjJ +EDjDTpsD9FYJY3wwkPJPQ6UTdO+2WtXNMsZmS8GJwXxHuFv+6+1cqjHWbVy5 +O1d1CxiYh83bphnjMDZKPl61BWrfTq4qOW2MnV/+bJH64gBcyjDDNpusr+2/ +akmNA9wsaD5ddN4YXX9JVywBByhJT2ZaVRrjv30arlXum+Fk2Jqsgi5jFHjm +p8e+ZAcemxTRmMLCjVM8lnZHrGGxW0ColcbCOpe8CXtPaygJnBq0VWTh7J+6 +0N2m1vA+pS7CYz0LG7Ikp9+vtoaQR1uqonRY+Fhnrc3qa1ZwyiGWcteShdID +epfGRyyh3q3nt95BFh7FKCtmgAXIHjhRp9HMQgFO+ALzlhlk/N2ln9bCwooX +8acZhWbAm23J+a+Nhd+64m5anjCDj7f5r5c8YmH6shqXc35mUM9zvECki4Vv +fpx5LCRpBh5nEyK+j5P1+kIFNJJNoaAhSv/eSjZ+in+3bPgAwioHd46MEBv/ +Wxhz+eaFkDBiqB6xlo0SWhJxEvYIe/h/KGmJszH6xjdqhioCY0u4WCmFje7X +1M6FvADoHQ2ZSdZm45LVP1dNPDEBccH9nM3b2Xgre7zTYogF5eZx0V/d2Vi8 +59aj2noW6MRlmOd4sdGX9tjZ5hwLHL5W9/T5sVHLcPbCgCsLUnrnfvrvZ2PV +C+vA0i5j+FEabxadyMYit0rdG11GMGCc03Wlgo0Jj2ppDZOGsOdI+QWbSjYy +ko5NeT83hO+VtYGT1WycZdhuV+AagohC37z2bTYaTaomLo80BDsBebl/msnv +pW/7YsVvCI3dVwK6etjoKO5sf0KZAbZCd9XD+9i467N7v4QgA/qsHn2XGmTj +mr1tG9qmDGC2/lOq9wgb6eYSpRF3DUD9ktatDx/Z+Jv6u9NkswE0DpiGp39m +Y1dah1edjgHYijmD5lc2mtF+PdgqZQC7Thx5GTbHxkS49aRnTB9mm1MKJX+w +UXU+Uav1kT4kLeT71y+wca2EJ//TKn1Yq3ddbcciG5MCCjVncvWh6ED93N+/ +bNTHuzn6sfrwP1idsYk= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -12871,211 +14192,132 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo -yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ -e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt -CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 -SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr -J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX -du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch -VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU -v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt -EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 -uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi -NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L -I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ -bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A -1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f -CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b -RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf -p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 -c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY -doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm -Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 -784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw -+0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s -GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs -uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL -iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G -ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ -nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU -gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 -XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU -m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l -bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy -I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 -zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ -mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK -vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G -UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ -xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 -fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu -FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu -g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ -l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX -V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ -eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 -3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA -G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN -mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H -L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep -5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj -JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT -+jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs -FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v -HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax -9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L -lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 -Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV -lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E -uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh -RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY -ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ -8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI -MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q -4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD -b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ -sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU -0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK -VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv -vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA -0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES -2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO -EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 -OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb -5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl -Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN -+dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi -yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O -GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ -8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho -q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for -sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl -KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob -v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N -1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB -w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg -d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw -7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF -XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi -teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD -A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD -wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 -HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 -yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 -tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn -y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ -71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB -hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy -C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC -ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ -rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 -1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H -7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 -32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l -Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq -gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij -tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp -MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq -2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 -nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM -D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU -RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb -MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr -fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 -GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h -+tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 -PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN -MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 -75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc -5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU -UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw -El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW -q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH -1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK -3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ -lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf -VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy -Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD -25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O -JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI -w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q -hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR -hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv -ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu -jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S -JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue -2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig -DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 -bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 -3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe -etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk -om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe -tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F -X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau -q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 -D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc -PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE -QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc -IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx -bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN -H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 -sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU -K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 -mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi -z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o -YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h -Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 -aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l -cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo -2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 -Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl -z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO -d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da -A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM -VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl -kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC -H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk -4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x -CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl -rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 -pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs -Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US -R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o -IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe -SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U -EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o -0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm -cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru -YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep -KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F -VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs -76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj -6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 -BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi -JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT -/wN9xxCi +1:eJwV1mk4VW0XB3CRkkqZ5zOYKpmn43COtZBZCpEpQ6g0qJBZhiJFMmRIhdCo +cM6mMjzxoFIaTZmSSI9KSkgp9e73075+X9be177X+q+bvvOgUyAvDw+P7hIe +nv8/vw8/alNKKzcZ/8o5cc7VwqS7SCrKtC8Jps9s8hnNVgQUf75Tqi8bJHus +Vtdm60L41huv+PpKgR9LFXOzzUF4SjL75ysuSB9PV/PNdoY3jQ4HZ1+1QMqR +6gpOlj9YKn18Pf2qE5LUB08LngmFn68YuV9fjYLc6rY/0cePQav51fKXpTOw +7odx7JDyWZB7U/d+p9oicM+09HQfvQhi+31uLDfnQ454n2awRBlka1s2OLgI +4M8keoBzyFXoL9Bqnl67Gks2VsdxqRWQVh7/nFdaGMNfcT78W1wJtnpBIuKK +wqhJ0bMNvlkJAm1OLuvUhZFz4aqiSF0lHB9THrQzFUbW/gcM7KyEWIUn788G +CePCdGyp/tIqCC6R+qNSL4zuLqdiju2qAscLHDU7TxH82v58crNINUieHTuZ +c1EUI/YXXFjfWg1SG2uP/7giij1Ff2tXtleDTEtK/I5qUXQ4bf/u45NqoHzd +cGRdqyhqXtscd7G3GpTtD/k2TIji+lrjrK4P1aC7dNFgTFcMo9/ptCet4cCW +MIl3Oo/FcI+P8uKH7RzYunJiOL9LDEWc5ggHLw44ldb1/x4SwyvXjA9V+XLA +9YXX8wdfxNApsnQ+IIgDO9TK6j3ExVFp/wFGSTQH9r3TzEryFUeLDafUtl/g +wIltNiad38Wx037yYdsQB2RqnsnwLpHA4H+CQxZHOFApum1ee6UE/jLXDdAe +50Bvp3d1FlUCc+cT5dI+c0DJMUzB0VoCB9XK+/n/cKBlc/GyF+ckMD6Z4iZF +4cKi5dyzpyxJpL3P96v24ELmleiKRUtJtHqSUOTozQWlZTyp6o6S6NCYTJny +44L9fUHT04GS2D00/p9UEBcKzWmEfYYkNpTElehHcMEQ7fI73kiilv0xIi2b +C6HMSz6PkqRwQwXIVdzngm2J0KxduhQaJh/1SGzngsLy2NRnuVIowMMT49zB +hRfdrpyua1K4KFfg/+kFFzQOreIbfiaFN0tX9n8Y5MLElYgr32Sk0TzK+CR9 +mgteYg6fZQlpXLTfPRknRYBuTENiUaM0Flo/nH4hQ4Dg6HoJ+gNpfFt/dpQq +T0BdFR+o9Etj0f3fJzh0AiTs6jK1/krjmfXTk2WqBLxIVNKzsJPBlzoxMfeN +Cdj0ZSE6eEwGDSUFu/94EBBlfVb130kZLLax5nnoRUDlJfUB0e8yGL/tlUOa +NwFS23yZdQKyKLry1zaBnQRM3r0/z6chi0/8FcW69xCQk5QZdi5SFjNb7Pu4 +RwhoH9ygNJkoi49sduxlRxDwW6+1yyRNFh2PF6xriyRg139zOu8uymJ45xfl +BzEEGNl7Tmu0yqLM4ArzC4kEjIqrBLetlsOQoTWnstIJkDzYJC8pKYfaLvlS +b04TYN/u9jSIJodar12G1p8h4HZ0mtoaXTm8Y6C0jJNFwKk3Xz+6u8lh85lf +czl5BOhcb9j9pVQOIZV/tLyYgN28LpJmN8n6/ackbpcQcMFz6sHZWjkcImLT +Wi8RsEyIrmLULodjoueZXWUEDISkvDv+WQ5lEmoa7l8lIJHl6CdjKI8/pk/z +/qgkwNq76BvDTB7NjinnvqkiQCjh0zEXe3nU/Fb1pKWarN+afCXTVx4/aTdp +xHIJuGtb/2nZSXmsNl0+VF9LQPz+5XFKOfI4YbaPiL9NgGXGNiGzi/K4yUfN +EO8Q0P1ySiuOI48VkpIONXcJ+OqmGD7TL4/qeVKP9zQQcCf60HLhd/I4pDWu +urKRgKMX/inQmJLHfMor0+ukV41sbwjipWBU8o28vn8I6Fpy2f7EKgo2ez7v +DbpHQKHit9flEhQ0ZZe8/E563e50nhFVClocH/rF10zAVGp/1qIeBUvK89SP +k665oaIoCxTsMC+k8PxLgNlUs4WrMwUHp1TNP5H2PjJ36kkMBX83Rt/JaCVA +Od9M7mMyBa83xi/93Pr//jlza3kmBedt7WWs2giI/r3hhVk5BUW2i1+eIm1K +ifDzraTg7EiiHOs+AQLY9i3uLgXj1+T5JZPOPeYtXveEgmk7y91XPiDA63LF +ld5eCt7aK73GmrTCwx+M2REK5g5tzE8g/WHC4pHwJwqOH5ebqSFdLZjjoTlH +wb5kdaVx0hFqI5/s/1JQ07V0o/BDAkwc1OP2rqCibHOTIJM0/6FooVRRKqqN +dLR4kX6S9bD4sjwVjZWEXGJJ5xBi2q3rqLjd9nlLPmmPHr+WEW0qlvm4r64i +TZ+vdP5jTEX3pnn9FtITUr/fyVpSMV94nv2SdJWRTThzKxU9bS+rDJEO98pb +vt2DiruuOU6PkmYdHSsIC6Aivca+eJw0X4mWanYwFVNMJrTfkX78b1xDVSQV +V/tG3BgmnTn22P5pEhVTIxwEe0hv55ca/phORZENrU4PSVPWBR4UyKfijJda +ci3pcWsuj8olKiaZjJYWk76592+WeQUVVxmb3EomHZpur+hXS8UGnvOXd5M2 +qjxXc7SJiofitp22IL3p1bPFqXYq+g52iCqQduBZauXTScWY86kiv8j/67aB +mfl8kIpKjtdOvSDt7xTcD+NUHDpqE1dKOjimTKF6iophuWmfDpGOLO/bR/tB +xU0zGb3GpC1j6PEJ/DQcvuCz7iF5/h1rGssMBWn4xjTkzAnSW8td278K0fDH +8IvITaQ9n6YJ+0nRsKBlWTdB9tOIn4qBtDwNX1eqWu8ivet7s8dLOg2FXuua +iZM+RP1eZrqRhmhw7skesj/niMz2n5o0/MK08VlNOtp642eOHg1BMyW2soWA +5MO+BgomNIze4+b5nuz3wtbH7byONFxoCupQI+eD6hb4ud6FfH9TSldtEwHl +k3+FQz1o6Bh246Ax6Spxfc8xfxra+HXtYZHz1ra7+HNrOA2XzUQmiJPzavOb +KRIbQ8NsgxzbY+R8P8vsNtBLoKEWNZD7uZ6A/roVCeUnaVjoLeV7t46cz5Vh +IskXaFh92tJVmcyL0BIhBvsSDc3XlmpFknnyQ++659xlGp4gznMfknnD5z1c +HlhFw3Cl/VyvGjLfq60Zli00fG/Y0ubNIeDipjHPPw9o+CTP5m8emV8K/XEJ +tztoeC3y5KcOMt/UeYlHKj00lF++ZXgjmX9m2+S9lk/QUKBsdGvbDQL2/5hO +aF9Nx32jxuluZH4aHd4l8V6EjtOCV9WtSsl5/jhQwSdFx9fZm/h1yLy9PNja +a6JAx16DVzt+FxEwfC9XrdaAjkdUesf8CwnYkszsu+RDx2t9ji3xmWT//rl1 +oCmAjhkpcTk6ZP5PhivwvQ6i44aoLbffkvshdc9KDakwOv5T9m5eL42AZrvX +xzJS6SjEv3i+KpncByKJmjEcOnZ+WDf7PYoAnrS5toLbdDR/tp84SO6nZ3x7 +PW430HGxvn7kXTgB++ackqfv07Fe8np6Wyh5nn1Kg7sH6HhD8JiX+wFy3xa3 +p2zjU0DrztiwAR8Cfm5cO6zuooAO6z4dtjIj4PtFmURdDwXMlhmu9UACZtco +KzF9FHBv2MqWvSbk+c0w924KUsAVyZZGiUbk/mvw/+4Rp4C1r+uGTuiQ8213 +Ryj1sgJemI6LXyT3e+E+bxidU8Bx7c+C+X+4wKq4WZKXp4gq+i8PfarkwiCt +otjivCIuuR0QdeAmF6LzrhfNFiti+x81+c/XuXAn8coFp+uK2FNcwBov54KO +W0mBUKMiZi05u6yukAsb+M9mprxVRJmhauWvyVyQ8IlJCFdTQosr+VlXyfvU +tIitr2uLEtp0hz7PWeTAu3Rf15DlKnhDmtdXR5oDNl8ibMYN1mF4QIqtwYZq +mPQXCK2JX49WV56e8KFWkvdzSd4TLRsw3LoQlw9UgMhTlYzqL6roMPPrcGbl +dZBLrdpqYKCGd8evSW50ugoFG5lrRXer49SqJoMq5cvwWMZUfyZLA0U/LKly +Ei0DI7mWTM1eTZzoET6pOVkCQnylYX5JWujOt7DwemURUBKpLHcVbQzZ4mcx +qlsIK5S9bjs91MaTv9wel9fngQZbuipihw7ey1rhTrTlQMiwSKstjy5OdlTm +n32dCV9m0l1sCnQxuFn15Me36WCl+aDQRl0PM5qiVG9eToV7M8a/5p/poffT +rIPuhcchWE1n4GWgPgp3lZ07ujUR2FMB3e4rDHCId+68RFQsWChJbV5daoBj +xbwL9zIiYH3CqcgWBgPzhxNe9R8KhUbjy/z2Rgy07c9lB/mGwtb5puweFgO7 +uYJ2S7eGQmTw3M0JUwZm3xPftEMzFNq9fN8K2TNwdOWXZYVTIbCHaWDr6cvA +0qVFZ5kHQ+D6t7eys6kMdLW2UP0v8jCoBjKblAcYmONybX2g+0E4o+CwcGyI +gY/mSt8/hYMw+2an/ugwAwmGQYC1ykG455FeUTTGQD+xX5EhM8HgtPVNvuRn +BoqtNeMvzAiGKOPkQyt4DPFbc2eWRvsBaBd+Sf+sbIi6bhv01a33Q+C9Pcdr +DhsiJYbzPjkqCKYOfIywCDNEZ2trb/udQRApv39fb7ghzrVNLlO2C4JTsQed +fsQYYnSdYNMq+SCoNgqnsVIMMVddLLfm3z3w+/axxtZCQwzVHWZ4Ce2B7Kqi +2c5WQ+xydBdpqtkFTSXdAdPiTMxlBcvF6QbAiD3dJ1yKib4H5PZ10QKA5+cB +918yTFRX4iUMhQLAzHG5Az+NiZdyRAS0PvjDgyVGDGlVJroc39fwotgfnuws +XmFqwsQFY9vZl2v8YUBpb2XmLiYG2+q/zlrwg9lrf+c17zDxbotnh+A3H3jv +allyso6JIWo1NRU9PtC39LT1WAMTiaN1NTvrfKDBV+ZcXjMTncbKmkUSfSBJ +St9o8RETH77STIgS9oG1qXtjHw8xMZCjHepi4A1qu3t4AnmNcHjm5LL/zniB +v3LFisLNRvhw9wuNY/HuEH3fe6/KViP806Fx1WaXO2QGinRwnYzQcyJYTWWz +OzRejkrv2G6EfrtOytNl3UFMxXrNop8R7rhZNih31w0eqIyL+YYb4V5BgSn5 +79tBdT2VplJshApBenb9ia4wrZpjwP1qhOq9HYffdztD3xO0EJ0xQv9WodrV +Lc7QHDzlHDZnhDduGH7aVOUMGVybwwYLRkifq+QdO+kMqkY8N+v5jPF7SVjJ +EDjDTpsD9FYJY3wwkPJPQ6UTdO+2WtXNMsZmS8GJwXxHuFv+6+1cqjHWbVy5 +O1d1CxiYh83bphnjMDZKPl61BWrfTq4qOW2MnV/+bJH64gBcyjDDNpusr+2/ +akmNA9wsaD5ddN4YXX9JVywBByhJT2ZaVRrjv30arlXum+Fk2Jqsgi5jFHjm +p8e+ZAcemxTRmMLCjVM8lnZHrGGxW0ColcbCOpe8CXtPaygJnBq0VWTh7J+6 +0N2m1vA+pS7CYz0LG7Ikp9+vtoaQR1uqonRY+Fhnrc3qa1ZwyiGWcteShdID +epfGRyyh3q3nt95BFh7FKCtmgAXIHjhRp9HMQgFO+ALzlhlk/N2ln9bCwooX +8acZhWbAm23J+a+Nhd+64m5anjCDj7f5r5c8YmH6shqXc35mUM9zvECki4Vv +fpx5LCRpBh5nEyK+j5P1+kIFNJJNoaAhSv/eSjZ+in+3bPgAwioHd46MEBv/ +Wxhz+eaFkDBiqB6xlo0SWhJxEvYIe/h/KGmJszH6xjdqhioCY0u4WCmFje7X +1M6FvADoHQ2ZSdZm45LVP1dNPDEBccH9nM3b2Xgre7zTYogF5eZx0V/d2Vi8 +59aj2noW6MRlmOd4sdGX9tjZ5hwLHL5W9/T5sVHLcPbCgCsLUnrnfvrvZ2PV +C+vA0i5j+FEabxadyMYit0rdG11GMGCc03Wlgo0Jj2ppDZOGsOdI+QWbSjYy +ko5NeT83hO+VtYGT1WycZdhuV+AagohC37z2bTYaTaomLo80BDsBebl/msnv +pW/7YsVvCI3dVwK6etjoKO5sf0KZAbZCd9XD+9i467N7v4QgA/qsHn2XGmTj +mr1tG9qmDGC2/lOq9wgb6eYSpRF3DUD9ktatDx/Z+Jv6u9NkswE0DpiGp39m +Y1dah1edjgHYijmD5lc2mtF+PdgqZQC7Thx5GTbHxkS49aRnTB9mm1MKJX+w +UXU+Uav1kT4kLeT71y+wca2EJ//TKn1Yq3ddbcciG5MCCjVncvWh6ED93N+/ +bNTHuzn6sfrwP1idsYk= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "PlotRange" -> {{0, 30}, {0., 0.07726893557692495}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -13087,19 +14329,19 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "PlotRange" -> {{0, 30}, {0., 0.07726893557692495}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13113,210 +14355,131 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo -yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ -e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt -CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 -SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr -J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX -du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch -VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU -v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt -EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 -uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi -NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L -I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ -bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A -1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f -CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b -RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf -p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 -c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY -doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm -Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 -784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw -+0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s -GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs -uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL -iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G -ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ -nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU -gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 -XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU -m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l -bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy -I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 -zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ -mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK -vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G -UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ -xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 -fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu -FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu -g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ -l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX -V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ -eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 -3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA -G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN -mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H -L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep -5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj -JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT -+jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs -FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v -HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax -9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L -lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 -Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV -lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E -uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh -RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY -ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ -8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI -MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q -4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD -b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ -sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU -0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK -VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv -vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA -0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES -2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO -EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 -OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb -5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl -Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN -+dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi -yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O -GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ -8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho -q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for -sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl -KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob -v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N -1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB -w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg -d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw -7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF -XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi -teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD -A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD -wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 -HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 -yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 -tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn -y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ -71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB -hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy -C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC -ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ -rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 -1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H -7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 -32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l -Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq -gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij -tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp -MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq -2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 -nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM -D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU -RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb -MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr -fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 -GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h -+tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 -PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN -MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 -75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc -5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU -UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw -El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW -q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH -1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK -3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ -lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf -VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy -Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD -25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O -JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI -w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q -hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR -hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv -ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu -jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S -JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue -2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig -DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 -bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 -3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe -etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk -om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe -tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F -X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau -q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 -D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc -PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE -QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc -IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx -bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN -H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 -sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU -K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 -mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi -z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o -YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h -Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 -aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l -cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo -2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 -Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl -z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO -d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da -A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM -VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl -kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC -H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk -4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x -CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl -rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 -pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs -Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US -R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o -IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe -SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U -EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o -0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm -cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru -YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep -KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F -VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs -76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj -6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 -BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi -JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT -/wN9xxCi +1:eJwV1mk4VW0XB3CRkkqZ5zOYKpmn43COtZBZCpEpQ6g0qJBZhiJFMmRIhdCo +cM6mMjzxoFIaTZmSSI9KSkgp9e73075+X9be177X+q+bvvOgUyAvDw+P7hIe +nv8/vw8/alNKKzcZ/8o5cc7VwqS7SCrKtC8Jps9s8hnNVgQUf75Tqi8bJHus +Vtdm60L41huv+PpKgR9LFXOzzUF4SjL75ysuSB9PV/PNdoY3jQ4HZ1+1QMqR +6gpOlj9YKn18Pf2qE5LUB08LngmFn68YuV9fjYLc6rY/0cePQav51fKXpTOw +7odx7JDyWZB7U/d+p9oicM+09HQfvQhi+31uLDfnQ454n2awRBlka1s2OLgI +4M8keoBzyFXoL9Bqnl67Gks2VsdxqRWQVh7/nFdaGMNfcT78W1wJtnpBIuKK +wqhJ0bMNvlkJAm1OLuvUhZFz4aqiSF0lHB9THrQzFUbW/gcM7KyEWIUn788G +CePCdGyp/tIqCC6R+qNSL4zuLqdiju2qAscLHDU7TxH82v58crNINUieHTuZ +c1EUI/YXXFjfWg1SG2uP/7giij1Ff2tXtleDTEtK/I5qUXQ4bf/u45NqoHzd +cGRdqyhqXtscd7G3GpTtD/k2TIji+lrjrK4P1aC7dNFgTFcMo9/ptCet4cCW +MIl3Oo/FcI+P8uKH7RzYunJiOL9LDEWc5ggHLw44ldb1/x4SwyvXjA9V+XLA +9YXX8wdfxNApsnQ+IIgDO9TK6j3ExVFp/wFGSTQH9r3TzEryFUeLDafUtl/g +wIltNiad38Wx037yYdsQB2RqnsnwLpHA4H+CQxZHOFApum1ee6UE/jLXDdAe +50Bvp3d1FlUCc+cT5dI+c0DJMUzB0VoCB9XK+/n/cKBlc/GyF+ckMD6Z4iZF +4cKi5dyzpyxJpL3P96v24ELmleiKRUtJtHqSUOTozQWlZTyp6o6S6NCYTJny +44L9fUHT04GS2D00/p9UEBcKzWmEfYYkNpTElehHcMEQ7fI73kiilv0xIi2b +C6HMSz6PkqRwQwXIVdzngm2J0KxduhQaJh/1SGzngsLy2NRnuVIowMMT49zB +hRfdrpyua1K4KFfg/+kFFzQOreIbfiaFN0tX9n8Y5MLElYgr32Sk0TzK+CR9 +mgteYg6fZQlpXLTfPRknRYBuTENiUaM0Flo/nH4hQ4Dg6HoJ+gNpfFt/dpQq +T0BdFR+o9Etj0f3fJzh0AiTs6jK1/krjmfXTk2WqBLxIVNKzsJPBlzoxMfeN +Cdj0ZSE6eEwGDSUFu/94EBBlfVb130kZLLax5nnoRUDlJfUB0e8yGL/tlUOa +NwFS23yZdQKyKLry1zaBnQRM3r0/z6chi0/8FcW69xCQk5QZdi5SFjNb7Pu4 +RwhoH9ygNJkoi49sduxlRxDwW6+1yyRNFh2PF6xriyRg139zOu8uymJ45xfl +BzEEGNl7Tmu0yqLM4ArzC4kEjIqrBLetlsOQoTWnstIJkDzYJC8pKYfaLvlS +b04TYN/u9jSIJodar12G1p8h4HZ0mtoaXTm8Y6C0jJNFwKk3Xz+6u8lh85lf +czl5BOhcb9j9pVQOIZV/tLyYgN28LpJmN8n6/ackbpcQcMFz6sHZWjkcImLT +Wi8RsEyIrmLULodjoueZXWUEDISkvDv+WQ5lEmoa7l8lIJHl6CdjKI8/pk/z +/qgkwNq76BvDTB7NjinnvqkiQCjh0zEXe3nU/Fb1pKWarN+afCXTVx4/aTdp +xHIJuGtb/2nZSXmsNl0+VF9LQPz+5XFKOfI4YbaPiL9NgGXGNiGzi/K4yUfN +EO8Q0P1ySiuOI48VkpIONXcJ+OqmGD7TL4/qeVKP9zQQcCf60HLhd/I4pDWu +urKRgKMX/inQmJLHfMor0+ukV41sbwjipWBU8o28vn8I6Fpy2f7EKgo2ez7v +DbpHQKHit9flEhQ0ZZe8/E563e50nhFVClocH/rF10zAVGp/1qIeBUvK89SP +k665oaIoCxTsMC+k8PxLgNlUs4WrMwUHp1TNP5H2PjJ36kkMBX83Rt/JaCVA +Od9M7mMyBa83xi/93Pr//jlza3kmBedt7WWs2giI/r3hhVk5BUW2i1+eIm1K +ifDzraTg7EiiHOs+AQLY9i3uLgXj1+T5JZPOPeYtXveEgmk7y91XPiDA63LF +ld5eCt7aK73GmrTCwx+M2REK5g5tzE8g/WHC4pHwJwqOH5ebqSFdLZjjoTlH +wb5kdaVx0hFqI5/s/1JQ07V0o/BDAkwc1OP2rqCibHOTIJM0/6FooVRRKqqN +dLR4kX6S9bD4sjwVjZWEXGJJ5xBi2q3rqLjd9nlLPmmPHr+WEW0qlvm4r64i +TZ+vdP5jTEX3pnn9FtITUr/fyVpSMV94nv2SdJWRTThzKxU9bS+rDJEO98pb +vt2DiruuOU6PkmYdHSsIC6Aivca+eJw0X4mWanYwFVNMJrTfkX78b1xDVSQV +V/tG3BgmnTn22P5pEhVTIxwEe0hv55ca/phORZENrU4PSVPWBR4UyKfijJda +ci3pcWsuj8olKiaZjJYWk76592+WeQUVVxmb3EomHZpur+hXS8UGnvOXd5M2 +qjxXc7SJiofitp22IL3p1bPFqXYq+g52iCqQduBZauXTScWY86kiv8j/67aB +mfl8kIpKjtdOvSDt7xTcD+NUHDpqE1dKOjimTKF6iophuWmfDpGOLO/bR/tB +xU0zGb3GpC1j6PEJ/DQcvuCz7iF5/h1rGssMBWn4xjTkzAnSW8td278K0fDH +8IvITaQ9n6YJ+0nRsKBlWTdB9tOIn4qBtDwNX1eqWu8ivet7s8dLOg2FXuua +iZM+RP1eZrqRhmhw7skesj/niMz2n5o0/MK08VlNOtp642eOHg1BMyW2soWA +5MO+BgomNIze4+b5nuz3wtbH7byONFxoCupQI+eD6hb4ud6FfH9TSldtEwHl +k3+FQz1o6Bh246Ax6Spxfc8xfxra+HXtYZHz1ra7+HNrOA2XzUQmiJPzavOb +KRIbQ8NsgxzbY+R8P8vsNtBLoKEWNZD7uZ6A/roVCeUnaVjoLeV7t46cz5Vh +IskXaFh92tJVmcyL0BIhBvsSDc3XlmpFknnyQ++659xlGp4gznMfknnD5z1c +HlhFw3Cl/VyvGjLfq60Zli00fG/Y0ubNIeDipjHPPw9o+CTP5m8emV8K/XEJ +tztoeC3y5KcOMt/UeYlHKj00lF++ZXgjmX9m2+S9lk/QUKBsdGvbDQL2/5hO +aF9Nx32jxuluZH4aHd4l8V6EjtOCV9WtSsl5/jhQwSdFx9fZm/h1yLy9PNja +a6JAx16DVzt+FxEwfC9XrdaAjkdUesf8CwnYkszsu+RDx2t9ji3xmWT//rl1 +oCmAjhkpcTk6ZP5PhivwvQ6i44aoLbffkvshdc9KDakwOv5T9m5eL42AZrvX +xzJS6SjEv3i+KpncByKJmjEcOnZ+WDf7PYoAnrS5toLbdDR/tp84SO6nZ3x7 +PW430HGxvn7kXTgB++ackqfv07Fe8np6Wyh5nn1Kg7sH6HhD8JiX+wFy3xa3 +p2zjU0DrztiwAR8Cfm5cO6zuooAO6z4dtjIj4PtFmURdDwXMlhmu9UACZtco +KzF9FHBv2MqWvSbk+c0w924KUsAVyZZGiUbk/mvw/+4Rp4C1r+uGTuiQ8213 +Ryj1sgJemI6LXyT3e+E+bxidU8Bx7c+C+X+4wKq4WZKXp4gq+i8PfarkwiCt +otjivCIuuR0QdeAmF6LzrhfNFiti+x81+c/XuXAn8coFp+uK2FNcwBov54KO +W0mBUKMiZi05u6yukAsb+M9mprxVRJmhauWvyVyQ8IlJCFdTQosr+VlXyfvU +tIitr2uLEtp0hz7PWeTAu3Rf15DlKnhDmtdXR5oDNl8ibMYN1mF4QIqtwYZq +mPQXCK2JX49WV56e8KFWkvdzSd4TLRsw3LoQlw9UgMhTlYzqL6roMPPrcGbl +dZBLrdpqYKCGd8evSW50ugoFG5lrRXer49SqJoMq5cvwWMZUfyZLA0U/LKly +Ei0DI7mWTM1eTZzoET6pOVkCQnylYX5JWujOt7DwemURUBKpLHcVbQzZ4mcx +qlsIK5S9bjs91MaTv9wel9fngQZbuipihw7ey1rhTrTlQMiwSKstjy5OdlTm +n32dCV9m0l1sCnQxuFn15Me36WCl+aDQRl0PM5qiVG9eToV7M8a/5p/poffT +rIPuhcchWE1n4GWgPgp3lZ07ujUR2FMB3e4rDHCId+68RFQsWChJbV5daoBj +xbwL9zIiYH3CqcgWBgPzhxNe9R8KhUbjy/z2Rgy07c9lB/mGwtb5puweFgO7 +uYJ2S7eGQmTw3M0JUwZm3xPftEMzFNq9fN8K2TNwdOWXZYVTIbCHaWDr6cvA +0qVFZ5kHQ+D6t7eys6kMdLW2UP0v8jCoBjKblAcYmONybX2g+0E4o+CwcGyI +gY/mSt8/hYMw+2an/ugwAwmGQYC1ykG455FeUTTGQD+xX5EhM8HgtPVNvuRn +BoqtNeMvzAiGKOPkQyt4DPFbc2eWRvsBaBd+Sf+sbIi6bhv01a33Q+C9Pcdr +DhsiJYbzPjkqCKYOfIywCDNEZ2trb/udQRApv39fb7ghzrVNLlO2C4JTsQed +fsQYYnSdYNMq+SCoNgqnsVIMMVddLLfm3z3w+/axxtZCQwzVHWZ4Ce2B7Kqi +2c5WQ+xydBdpqtkFTSXdAdPiTMxlBcvF6QbAiD3dJ1yKib4H5PZ10QKA5+cB +918yTFRX4iUMhQLAzHG5Az+NiZdyRAS0PvjDgyVGDGlVJroc39fwotgfnuws +XmFqwsQFY9vZl2v8YUBpb2XmLiYG2+q/zlrwg9lrf+c17zDxbotnh+A3H3jv +allyso6JIWo1NRU9PtC39LT1WAMTiaN1NTvrfKDBV+ZcXjMTncbKmkUSfSBJ +St9o8RETH77STIgS9oG1qXtjHw8xMZCjHepi4A1qu3t4AnmNcHjm5LL/zniB +v3LFisLNRvhw9wuNY/HuEH3fe6/KViP806Fx1WaXO2QGinRwnYzQcyJYTWWz +OzRejkrv2G6EfrtOytNl3UFMxXrNop8R7rhZNih31w0eqIyL+YYb4V5BgSn5 +79tBdT2VplJshApBenb9ia4wrZpjwP1qhOq9HYffdztD3xO0EJ0xQv9WodrV +Lc7QHDzlHDZnhDduGH7aVOUMGVybwwYLRkifq+QdO+kMqkY8N+v5jPF7SVjJ +EDjDTpsD9FYJY3wwkPJPQ6UTdO+2WtXNMsZmS8GJwXxHuFv+6+1cqjHWbVy5 +O1d1CxiYh83bphnjMDZKPl61BWrfTq4qOW2MnV/+bJH64gBcyjDDNpusr+2/ +akmNA9wsaD5ddN4YXX9JVywBByhJT2ZaVRrjv30arlXum+Fk2Jqsgi5jFHjm +p8e+ZAcemxTRmMLCjVM8lnZHrGGxW0ColcbCOpe8CXtPaygJnBq0VWTh7J+6 +0N2m1vA+pS7CYz0LG7Ikp9+vtoaQR1uqonRY+Fhnrc3qa1ZwyiGWcteShdID +epfGRyyh3q3nt95BFh7FKCtmgAXIHjhRp9HMQgFO+ALzlhlk/N2ln9bCwooX +8acZhWbAm23J+a+Nhd+64m5anjCDj7f5r5c8YmH6shqXc35mUM9zvECki4Vv +fpx5LCRpBh5nEyK+j5P1+kIFNJJNoaAhSv/eSjZ+in+3bPgAwioHd46MEBv/ +Wxhz+eaFkDBiqB6xlo0SWhJxEvYIe/h/KGmJszH6xjdqhioCY0u4WCmFje7X +1M6FvADoHQ2ZSdZm45LVP1dNPDEBccH9nM3b2Xgre7zTYogF5eZx0V/d2Vi8 +59aj2noW6MRlmOd4sdGX9tjZ5hwLHL5W9/T5sVHLcPbCgCsLUnrnfvrvZ2PV +C+vA0i5j+FEabxadyMYit0rdG11GMGCc03Wlgo0Jj2ppDZOGsOdI+QWbSjYy +ko5NeT83hO+VtYGT1WycZdhuV+AagohC37z2bTYaTaomLo80BDsBebl/msnv +pW/7YsVvCI3dVwK6etjoKO5sf0KZAbZCd9XD+9i467N7v4QgA/qsHn2XGmTj +mr1tG9qmDGC2/lOq9wgb6eYSpRF3DUD9ktatDx/Z+Jv6u9NkswE0DpiGp39m +Y1dah1edjgHYijmD5lc2mtF+PdgqZQC7Thx5GTbHxkS49aRnTB9mm1MKJX+w +UXU+Uav1kT4kLeT71y+wca2EJ//TKn1Yq3ddbcciG5MCCjVncvWh6ED93N+/ +bNTHuzn6sfrwP1idsYk= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "PlotRange" -> {{0, 30}, {0., 0.07726893557692495}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13327,6 +14490,7 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -13354,7 +14518,8 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.22160540372702894`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07726893557692495}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -13362,17 +14527,616 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913381496467495`*^9}, + CellChangeTimes->{3.9913381496467495`*^9, 3.9942612508539877`*^9}, CellLabel-> - "Out[304]=",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] + "Out[138]=",ExpressionUUID->"da0b5c1d-0e41-4aa5-8b2b-87082e160766"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"ea848967-083d-ea47-bce0-\ -5c3b93725916"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[139]:=",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1mk4VW0XB3CRkkqZ5zOYKpmn43COtZBZCpEpQ6g0qJBZhiJFMmRIhdCo +cM6mMjzxoFIaTZmSSI9KSkgp9e73075+X9be177X+q+bvvOgUyAvDw+P7hIe +nv8/vw8/alNKKzcZ/8o5cc7VwqS7SCrKtC8Jps9s8hnNVgQUf75Tqi8bJHus +Vtdm60L41huv+PpKgR9LFXOzzUF4SjL75ysuSB9PV/PNdoY3jQ4HZ1+1QMqR +6gpOlj9YKn18Pf2qE5LUB08LngmFn68YuV9fjYLc6rY/0cePQav51fKXpTOw +7odx7JDyWZB7U/d+p9oicM+09HQfvQhi+31uLDfnQ454n2awRBlka1s2OLgI +4M8keoBzyFXoL9Bqnl67Gks2VsdxqRWQVh7/nFdaGMNfcT78W1wJtnpBIuKK +wqhJ0bMNvlkJAm1OLuvUhZFz4aqiSF0lHB9THrQzFUbW/gcM7KyEWIUn788G +CePCdGyp/tIqCC6R+qNSL4zuLqdiju2qAscLHDU7TxH82v58crNINUieHTuZ +c1EUI/YXXFjfWg1SG2uP/7giij1Ff2tXtleDTEtK/I5qUXQ4bf/u45NqoHzd +cGRdqyhqXtscd7G3GpTtD/k2TIji+lrjrK4P1aC7dNFgTFcMo9/ptCet4cCW +MIl3Oo/FcI+P8uKH7RzYunJiOL9LDEWc5ggHLw44ldb1/x4SwyvXjA9V+XLA +9YXX8wdfxNApsnQ+IIgDO9TK6j3ExVFp/wFGSTQH9r3TzEryFUeLDafUtl/g +wIltNiad38Wx037yYdsQB2RqnsnwLpHA4H+CQxZHOFApum1ee6UE/jLXDdAe +50Bvp3d1FlUCc+cT5dI+c0DJMUzB0VoCB9XK+/n/cKBlc/GyF+ckMD6Z4iZF +4cKi5dyzpyxJpL3P96v24ELmleiKRUtJtHqSUOTozQWlZTyp6o6S6NCYTJny +44L9fUHT04GS2D00/p9UEBcKzWmEfYYkNpTElehHcMEQ7fI73kiilv0xIi2b +C6HMSz6PkqRwQwXIVdzngm2J0KxduhQaJh/1SGzngsLy2NRnuVIowMMT49zB +hRfdrpyua1K4KFfg/+kFFzQOreIbfiaFN0tX9n8Y5MLElYgr32Sk0TzK+CR9 +mgteYg6fZQlpXLTfPRknRYBuTENiUaM0Flo/nH4hQ4Dg6HoJ+gNpfFt/dpQq +T0BdFR+o9Etj0f3fJzh0AiTs6jK1/krjmfXTk2WqBLxIVNKzsJPBlzoxMfeN +Cdj0ZSE6eEwGDSUFu/94EBBlfVb130kZLLax5nnoRUDlJfUB0e8yGL/tlUOa +NwFS23yZdQKyKLry1zaBnQRM3r0/z6chi0/8FcW69xCQk5QZdi5SFjNb7Pu4 +RwhoH9ygNJkoi49sduxlRxDwW6+1yyRNFh2PF6xriyRg139zOu8uymJ45xfl +BzEEGNl7Tmu0yqLM4ArzC4kEjIqrBLetlsOQoTWnstIJkDzYJC8pKYfaLvlS +b04TYN/u9jSIJodar12G1p8h4HZ0mtoaXTm8Y6C0jJNFwKk3Xz+6u8lh85lf +czl5BOhcb9j9pVQOIZV/tLyYgN28LpJmN8n6/ackbpcQcMFz6sHZWjkcImLT +Wi8RsEyIrmLULodjoueZXWUEDISkvDv+WQ5lEmoa7l8lIJHl6CdjKI8/pk/z +/qgkwNq76BvDTB7NjinnvqkiQCjh0zEXe3nU/Fb1pKWarN+afCXTVx4/aTdp +xHIJuGtb/2nZSXmsNl0+VF9LQPz+5XFKOfI4YbaPiL9NgGXGNiGzi/K4yUfN +EO8Q0P1ySiuOI48VkpIONXcJ+OqmGD7TL4/qeVKP9zQQcCf60HLhd/I4pDWu +urKRgKMX/inQmJLHfMor0+ukV41sbwjipWBU8o28vn8I6Fpy2f7EKgo2ez7v +DbpHQKHit9flEhQ0ZZe8/E563e50nhFVClocH/rF10zAVGp/1qIeBUvK89SP +k665oaIoCxTsMC+k8PxLgNlUs4WrMwUHp1TNP5H2PjJ36kkMBX83Rt/JaCVA +Od9M7mMyBa83xi/93Pr//jlza3kmBedt7WWs2giI/r3hhVk5BUW2i1+eIm1K +ifDzraTg7EiiHOs+AQLY9i3uLgXj1+T5JZPOPeYtXveEgmk7y91XPiDA63LF +ld5eCt7aK73GmrTCwx+M2REK5g5tzE8g/WHC4pHwJwqOH5ebqSFdLZjjoTlH +wb5kdaVx0hFqI5/s/1JQ07V0o/BDAkwc1OP2rqCibHOTIJM0/6FooVRRKqqN +dLR4kX6S9bD4sjwVjZWEXGJJ5xBi2q3rqLjd9nlLPmmPHr+WEW0qlvm4r64i +TZ+vdP5jTEX3pnn9FtITUr/fyVpSMV94nv2SdJWRTThzKxU9bS+rDJEO98pb +vt2DiruuOU6PkmYdHSsIC6Aivca+eJw0X4mWanYwFVNMJrTfkX78b1xDVSQV +V/tG3BgmnTn22P5pEhVTIxwEe0hv55ca/phORZENrU4PSVPWBR4UyKfijJda +ci3pcWsuj8olKiaZjJYWk76592+WeQUVVxmb3EomHZpur+hXS8UGnvOXd5M2 +qjxXc7SJiofitp22IL3p1bPFqXYq+g52iCqQduBZauXTScWY86kiv8j/67aB +mfl8kIpKjtdOvSDt7xTcD+NUHDpqE1dKOjimTKF6iophuWmfDpGOLO/bR/tB +xU0zGb3GpC1j6PEJ/DQcvuCz7iF5/h1rGssMBWn4xjTkzAnSW8td278K0fDH +8IvITaQ9n6YJ+0nRsKBlWTdB9tOIn4qBtDwNX1eqWu8ivet7s8dLOg2FXuua +iZM+RP1eZrqRhmhw7skesj/niMz2n5o0/MK08VlNOtp642eOHg1BMyW2soWA +5MO+BgomNIze4+b5nuz3wtbH7byONFxoCupQI+eD6hb4ud6FfH9TSldtEwHl +k3+FQz1o6Bh246Ax6Spxfc8xfxra+HXtYZHz1ra7+HNrOA2XzUQmiJPzavOb +KRIbQ8NsgxzbY+R8P8vsNtBLoKEWNZD7uZ6A/roVCeUnaVjoLeV7t46cz5Vh +IskXaFh92tJVmcyL0BIhBvsSDc3XlmpFknnyQ++659xlGp4gznMfknnD5z1c +HlhFw3Cl/VyvGjLfq60Zli00fG/Y0ubNIeDipjHPPw9o+CTP5m8emV8K/XEJ +tztoeC3y5KcOMt/UeYlHKj00lF++ZXgjmX9m2+S9lk/QUKBsdGvbDQL2/5hO +aF9Nx32jxuluZH4aHd4l8V6EjtOCV9WtSsl5/jhQwSdFx9fZm/h1yLy9PNja +a6JAx16DVzt+FxEwfC9XrdaAjkdUesf8CwnYkszsu+RDx2t9ji3xmWT//rl1 +oCmAjhkpcTk6ZP5PhivwvQ6i44aoLbffkvshdc9KDakwOv5T9m5eL42AZrvX +xzJS6SjEv3i+KpncByKJmjEcOnZ+WDf7PYoAnrS5toLbdDR/tp84SO6nZ3x7 +PW430HGxvn7kXTgB++ackqfv07Fe8np6Wyh5nn1Kg7sH6HhD8JiX+wFy3xa3 +p2zjU0DrztiwAR8Cfm5cO6zuooAO6z4dtjIj4PtFmURdDwXMlhmu9UACZtco +KzF9FHBv2MqWvSbk+c0w924KUsAVyZZGiUbk/mvw/+4Rp4C1r+uGTuiQ8213 +Ryj1sgJemI6LXyT3e+E+bxidU8Bx7c+C+X+4wKq4WZKXp4gq+i8PfarkwiCt +otjivCIuuR0QdeAmF6LzrhfNFiti+x81+c/XuXAn8coFp+uK2FNcwBov54KO +W0mBUKMiZi05u6yukAsb+M9mprxVRJmhauWvyVyQ8IlJCFdTQosr+VlXyfvU +tIitr2uLEtp0hz7PWeTAu3Rf15DlKnhDmtdXR5oDNl8ibMYN1mF4QIqtwYZq +mPQXCK2JX49WV56e8KFWkvdzSd4TLRsw3LoQlw9UgMhTlYzqL6roMPPrcGbl +dZBLrdpqYKCGd8evSW50ugoFG5lrRXer49SqJoMq5cvwWMZUfyZLA0U/LKly +Ei0DI7mWTM1eTZzoET6pOVkCQnylYX5JWujOt7DwemURUBKpLHcVbQzZ4mcx +qlsIK5S9bjs91MaTv9wel9fngQZbuipihw7ey1rhTrTlQMiwSKstjy5OdlTm +n32dCV9m0l1sCnQxuFn15Me36WCl+aDQRl0PM5qiVG9eToV7M8a/5p/poffT +rIPuhcchWE1n4GWgPgp3lZ07ujUR2FMB3e4rDHCId+68RFQsWChJbV5daoBj +xbwL9zIiYH3CqcgWBgPzhxNe9R8KhUbjy/z2Rgy07c9lB/mGwtb5puweFgO7 +uYJ2S7eGQmTw3M0JUwZm3xPftEMzFNq9fN8K2TNwdOWXZYVTIbCHaWDr6cvA +0qVFZ5kHQ+D6t7eys6kMdLW2UP0v8jCoBjKblAcYmONybX2g+0E4o+CwcGyI +gY/mSt8/hYMw+2an/ugwAwmGQYC1ykG455FeUTTGQD+xX5EhM8HgtPVNvuRn +BoqtNeMvzAiGKOPkQyt4DPFbc2eWRvsBaBd+Sf+sbIi6bhv01a33Q+C9Pcdr +DhsiJYbzPjkqCKYOfIywCDNEZ2trb/udQRApv39fb7ghzrVNLlO2C4JTsQed +fsQYYnSdYNMq+SCoNgqnsVIMMVddLLfm3z3w+/axxtZCQwzVHWZ4Ce2B7Kqi +2c5WQ+xydBdpqtkFTSXdAdPiTMxlBcvF6QbAiD3dJ1yKib4H5PZ10QKA5+cB +918yTFRX4iUMhQLAzHG5Az+NiZdyRAS0PvjDgyVGDGlVJroc39fwotgfnuws +XmFqwsQFY9vZl2v8YUBpb2XmLiYG2+q/zlrwg9lrf+c17zDxbotnh+A3H3jv +allyso6JIWo1NRU9PtC39LT1WAMTiaN1NTvrfKDBV+ZcXjMTncbKmkUSfSBJ +St9o8RETH77STIgS9oG1qXtjHw8xMZCjHepi4A1qu3t4AnmNcHjm5LL/zniB +v3LFisLNRvhw9wuNY/HuEH3fe6/KViP806Fx1WaXO2QGinRwnYzQcyJYTWWz +OzRejkrv2G6EfrtOytNl3UFMxXrNop8R7rhZNih31w0eqIyL+YYb4V5BgSn5 +79tBdT2VplJshApBenb9ia4wrZpjwP1qhOq9HYffdztD3xO0EJ0xQv9WodrV +Lc7QHDzlHDZnhDduGH7aVOUMGVybwwYLRkifq+QdO+kMqkY8N+v5jPF7SVjJ +EDjDTpsD9FYJY3wwkPJPQ6UTdO+2WtXNMsZmS8GJwXxHuFv+6+1cqjHWbVy5 +O1d1CxiYh83bphnjMDZKPl61BWrfTq4qOW2MnV/+bJH64gBcyjDDNpusr+2/ +akmNA9wsaD5ddN4YXX9JVywBByhJT2ZaVRrjv30arlXum+Fk2Jqsgi5jFHjm +p8e+ZAcemxTRmMLCjVM8lnZHrGGxW0ColcbCOpe8CXtPaygJnBq0VWTh7J+6 +0N2m1vA+pS7CYz0LG7Ikp9+vtoaQR1uqonRY+Fhnrc3qa1ZwyiGWcteShdID +epfGRyyh3q3nt95BFh7FKCtmgAXIHjhRp9HMQgFO+ALzlhlk/N2ln9bCwooX +8acZhWbAm23J+a+Nhd+64m5anjCDj7f5r5c8YmH6shqXc35mUM9zvECki4Vv +fpx5LCRpBh5nEyK+j5P1+kIFNJJNoaAhSv/eSjZ+in+3bPgAwioHd46MEBv/ +Wxhz+eaFkDBiqB6xlo0SWhJxEvYIe/h/KGmJszH6xjdqhioCY0u4WCmFje7X +1M6FvADoHQ2ZSdZm45LVP1dNPDEBccH9nM3b2Xgre7zTYogF5eZx0V/d2Vi8 +59aj2noW6MRlmOd4sdGX9tjZ5hwLHL5W9/T5sVHLcPbCgCsLUnrnfvrvZ2PV +C+vA0i5j+FEabxadyMYit0rdG11GMGCc03Wlgo0Jj2ppDZOGsOdI+QWbSjYy +ko5NeT83hO+VtYGT1WycZdhuV+AagohC37z2bTYaTaomLo80BDsBebl/msnv +pW/7YsVvCI3dVwK6etjoKO5sf0KZAbZCd9XD+9i467N7v4QgA/qsHn2XGmTj +mr1tG9qmDGC2/lOq9wgb6eYSpRF3DUD9ktatDx/Z+Jv6u9NkswE0DpiGp39m +Y1dah1edjgHYijmD5lc2mtF+PdgqZQC7Thx5GTbHxkS49aRnTB9mm1MKJX+w +UXU+Uav1kT4kLeT71y+wca2EJ//TKn1Yq3ddbcciG5MCCjVncvWh6ED93N+/ +bNTHuzn6sfrwP1idsYk= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1mk4VW0XB3CRkkqZ5zOYKpmn43COtZBZCpEpQ6g0qJBZhiJFMmRIhdCo +cM6mMjzxoFIaTZmSSI9KSkgp9e73075+X9be177X+q+bvvOgUyAvDw+P7hIe +nv8/vw8/alNKKzcZ/8o5cc7VwqS7SCrKtC8Jps9s8hnNVgQUf75Tqi8bJHus +Vtdm60L41huv+PpKgR9LFXOzzUF4SjL75ysuSB9PV/PNdoY3jQ4HZ1+1QMqR +6gpOlj9YKn18Pf2qE5LUB08LngmFn68YuV9fjYLc6rY/0cePQav51fKXpTOw +7odx7JDyWZB7U/d+p9oicM+09HQfvQhi+31uLDfnQ454n2awRBlka1s2OLgI +4M8keoBzyFXoL9Bqnl67Gks2VsdxqRWQVh7/nFdaGMNfcT78W1wJtnpBIuKK +wqhJ0bMNvlkJAm1OLuvUhZFz4aqiSF0lHB9THrQzFUbW/gcM7KyEWIUn788G +CePCdGyp/tIqCC6R+qNSL4zuLqdiju2qAscLHDU7TxH82v58crNINUieHTuZ +c1EUI/YXXFjfWg1SG2uP/7giij1Ff2tXtleDTEtK/I5qUXQ4bf/u45NqoHzd +cGRdqyhqXtscd7G3GpTtD/k2TIji+lrjrK4P1aC7dNFgTFcMo9/ptCet4cCW +MIl3Oo/FcI+P8uKH7RzYunJiOL9LDEWc5ggHLw44ldb1/x4SwyvXjA9V+XLA +9YXX8wdfxNApsnQ+IIgDO9TK6j3ExVFp/wFGSTQH9r3TzEryFUeLDafUtl/g +wIltNiad38Wx037yYdsQB2RqnsnwLpHA4H+CQxZHOFApum1ee6UE/jLXDdAe +50Bvp3d1FlUCc+cT5dI+c0DJMUzB0VoCB9XK+/n/cKBlc/GyF+ckMD6Z4iZF +4cKi5dyzpyxJpL3P96v24ELmleiKRUtJtHqSUOTozQWlZTyp6o6S6NCYTJny +44L9fUHT04GS2D00/p9UEBcKzWmEfYYkNpTElehHcMEQ7fI73kiilv0xIi2b +C6HMSz6PkqRwQwXIVdzngm2J0KxduhQaJh/1SGzngsLy2NRnuVIowMMT49zB +hRfdrpyua1K4KFfg/+kFFzQOreIbfiaFN0tX9n8Y5MLElYgr32Sk0TzK+CR9 +mgteYg6fZQlpXLTfPRknRYBuTENiUaM0Flo/nH4hQ4Dg6HoJ+gNpfFt/dpQq +T0BdFR+o9Etj0f3fJzh0AiTs6jK1/krjmfXTk2WqBLxIVNKzsJPBlzoxMfeN +Cdj0ZSE6eEwGDSUFu/94EBBlfVb130kZLLax5nnoRUDlJfUB0e8yGL/tlUOa +NwFS23yZdQKyKLry1zaBnQRM3r0/z6chi0/8FcW69xCQk5QZdi5SFjNb7Pu4 +RwhoH9ygNJkoi49sduxlRxDwW6+1yyRNFh2PF6xriyRg139zOu8uymJ45xfl +BzEEGNl7Tmu0yqLM4ArzC4kEjIqrBLetlsOQoTWnstIJkDzYJC8pKYfaLvlS +b04TYN/u9jSIJodar12G1p8h4HZ0mtoaXTm8Y6C0jJNFwKk3Xz+6u8lh85lf +czl5BOhcb9j9pVQOIZV/tLyYgN28LpJmN8n6/ackbpcQcMFz6sHZWjkcImLT +Wi8RsEyIrmLULodjoueZXWUEDISkvDv+WQ5lEmoa7l8lIJHl6CdjKI8/pk/z +/qgkwNq76BvDTB7NjinnvqkiQCjh0zEXe3nU/Fb1pKWarN+afCXTVx4/aTdp +xHIJuGtb/2nZSXmsNl0+VF9LQPz+5XFKOfI4YbaPiL9NgGXGNiGzi/K4yUfN +EO8Q0P1ySiuOI48VkpIONXcJ+OqmGD7TL4/qeVKP9zQQcCf60HLhd/I4pDWu +urKRgKMX/inQmJLHfMor0+ukV41sbwjipWBU8o28vn8I6Fpy2f7EKgo2ez7v +DbpHQKHit9flEhQ0ZZe8/E563e50nhFVClocH/rF10zAVGp/1qIeBUvK89SP +k665oaIoCxTsMC+k8PxLgNlUs4WrMwUHp1TNP5H2PjJ36kkMBX83Rt/JaCVA +Od9M7mMyBa83xi/93Pr//jlza3kmBedt7WWs2giI/r3hhVk5BUW2i1+eIm1K +ifDzraTg7EiiHOs+AQLY9i3uLgXj1+T5JZPOPeYtXveEgmk7y91XPiDA63LF +ld5eCt7aK73GmrTCwx+M2REK5g5tzE8g/WHC4pHwJwqOH5ebqSFdLZjjoTlH +wb5kdaVx0hFqI5/s/1JQ07V0o/BDAkwc1OP2rqCibHOTIJM0/6FooVRRKqqN +dLR4kX6S9bD4sjwVjZWEXGJJ5xBi2q3rqLjd9nlLPmmPHr+WEW0qlvm4r64i +TZ+vdP5jTEX3pnn9FtITUr/fyVpSMV94nv2SdJWRTThzKxU9bS+rDJEO98pb +vt2DiruuOU6PkmYdHSsIC6Aivca+eJw0X4mWanYwFVNMJrTfkX78b1xDVSQV +V/tG3BgmnTn22P5pEhVTIxwEe0hv55ca/phORZENrU4PSVPWBR4UyKfijJda +ci3pcWsuj8olKiaZjJYWk76592+WeQUVVxmb3EomHZpur+hXS8UGnvOXd5M2 +qjxXc7SJiofitp22IL3p1bPFqXYq+g52iCqQduBZauXTScWY86kiv8j/67aB +mfl8kIpKjtdOvSDt7xTcD+NUHDpqE1dKOjimTKF6iophuWmfDpGOLO/bR/tB +xU0zGb3GpC1j6PEJ/DQcvuCz7iF5/h1rGssMBWn4xjTkzAnSW8td278K0fDH +8IvITaQ9n6YJ+0nRsKBlWTdB9tOIn4qBtDwNX1eqWu8ivet7s8dLOg2FXuua +iZM+RP1eZrqRhmhw7skesj/niMz2n5o0/MK08VlNOtp642eOHg1BMyW2soWA +5MO+BgomNIze4+b5nuz3wtbH7byONFxoCupQI+eD6hb4ud6FfH9TSldtEwHl +k3+FQz1o6Bh246Ax6Spxfc8xfxra+HXtYZHz1ra7+HNrOA2XzUQmiJPzavOb +KRIbQ8NsgxzbY+R8P8vsNtBLoKEWNZD7uZ6A/roVCeUnaVjoLeV7t46cz5Vh +IskXaFh92tJVmcyL0BIhBvsSDc3XlmpFknnyQ++659xlGp4gznMfknnD5z1c +HlhFw3Cl/VyvGjLfq60Zli00fG/Y0ubNIeDipjHPPw9o+CTP5m8emV8K/XEJ +tztoeC3y5KcOMt/UeYlHKj00lF++ZXgjmX9m2+S9lk/QUKBsdGvbDQL2/5hO +aF9Nx32jxuluZH4aHd4l8V6EjtOCV9WtSsl5/jhQwSdFx9fZm/h1yLy9PNja +a6JAx16DVzt+FxEwfC9XrdaAjkdUesf8CwnYkszsu+RDx2t9ji3xmWT//rl1 +oCmAjhkpcTk6ZP5PhivwvQ6i44aoLbffkvshdc9KDakwOv5T9m5eL42AZrvX +xzJS6SjEv3i+KpncByKJmjEcOnZ+WDf7PYoAnrS5toLbdDR/tp84SO6nZ3x7 +PW430HGxvn7kXTgB++ackqfv07Fe8np6Wyh5nn1Kg7sH6HhD8JiX+wFy3xa3 +p2zjU0DrztiwAR8Cfm5cO6zuooAO6z4dtjIj4PtFmURdDwXMlhmu9UACZtco +KzF9FHBv2MqWvSbk+c0w924KUsAVyZZGiUbk/mvw/+4Rp4C1r+uGTuiQ8213 +Ryj1sgJemI6LXyT3e+E+bxidU8Bx7c+C+X+4wKq4WZKXp4gq+i8PfarkwiCt +otjivCIuuR0QdeAmF6LzrhfNFiti+x81+c/XuXAn8coFp+uK2FNcwBov54KO +W0mBUKMiZi05u6yukAsb+M9mprxVRJmhauWvyVyQ8IlJCFdTQosr+VlXyfvU +tIitr2uLEtp0hz7PWeTAu3Rf15DlKnhDmtdXR5oDNl8ibMYN1mF4QIqtwYZq +mPQXCK2JX49WV56e8KFWkvdzSd4TLRsw3LoQlw9UgMhTlYzqL6roMPPrcGbl +dZBLrdpqYKCGd8evSW50ugoFG5lrRXer49SqJoMq5cvwWMZUfyZLA0U/LKly +Ei0DI7mWTM1eTZzoET6pOVkCQnylYX5JWujOt7DwemURUBKpLHcVbQzZ4mcx +qlsIK5S9bjs91MaTv9wel9fngQZbuipihw7ey1rhTrTlQMiwSKstjy5OdlTm +n32dCV9m0l1sCnQxuFn15Me36WCl+aDQRl0PM5qiVG9eToV7M8a/5p/poffT +rIPuhcchWE1n4GWgPgp3lZ07ujUR2FMB3e4rDHCId+68RFQsWChJbV5daoBj +xbwL9zIiYH3CqcgWBgPzhxNe9R8KhUbjy/z2Rgy07c9lB/mGwtb5puweFgO7 +uYJ2S7eGQmTw3M0JUwZm3xPftEMzFNq9fN8K2TNwdOWXZYVTIbCHaWDr6cvA +0qVFZ5kHQ+D6t7eys6kMdLW2UP0v8jCoBjKblAcYmONybX2g+0E4o+CwcGyI +gY/mSt8/hYMw+2an/ugwAwmGQYC1ykG455FeUTTGQD+xX5EhM8HgtPVNvuRn +BoqtNeMvzAiGKOPkQyt4DPFbc2eWRvsBaBd+Sf+sbIi6bhv01a33Q+C9Pcdr +DhsiJYbzPjkqCKYOfIywCDNEZ2trb/udQRApv39fb7ghzrVNLlO2C4JTsQed +fsQYYnSdYNMq+SCoNgqnsVIMMVddLLfm3z3w+/axxtZCQwzVHWZ4Ce2B7Kqi +2c5WQ+xydBdpqtkFTSXdAdPiTMxlBcvF6QbAiD3dJ1yKib4H5PZ10QKA5+cB +918yTFRX4iUMhQLAzHG5Az+NiZdyRAS0PvjDgyVGDGlVJroc39fwotgfnuws +XmFqwsQFY9vZl2v8YUBpb2XmLiYG2+q/zlrwg9lrf+c17zDxbotnh+A3H3jv +allyso6JIWo1NRU9PtC39LT1WAMTiaN1NTvrfKDBV+ZcXjMTncbKmkUSfSBJ +St9o8RETH77STIgS9oG1qXtjHw8xMZCjHepi4A1qu3t4AnmNcHjm5LL/zniB +v3LFisLNRvhw9wuNY/HuEH3fe6/KViP806Fx1WaXO2QGinRwnYzQcyJYTWWz +OzRejkrv2G6EfrtOytNl3UFMxXrNop8R7rhZNih31w0eqIyL+YYb4V5BgSn5 +79tBdT2VplJshApBenb9ia4wrZpjwP1qhOq9HYffdztD3xO0EJ0xQv9WodrV +Lc7QHDzlHDZnhDduGH7aVOUMGVybwwYLRkifq+QdO+kMqkY8N+v5jPF7SVjJ +EDjDTpsD9FYJY3wwkPJPQ6UTdO+2WtXNMsZmS8GJwXxHuFv+6+1cqjHWbVy5 +O1d1CxiYh83bphnjMDZKPl61BWrfTq4qOW2MnV/+bJH64gBcyjDDNpusr+2/ +akmNA9wsaD5ddN4YXX9JVywBByhJT2ZaVRrjv30arlXum+Fk2Jqsgi5jFHjm +p8e+ZAcemxTRmMLCjVM8lnZHrGGxW0ColcbCOpe8CXtPaygJnBq0VWTh7J+6 +0N2m1vA+pS7CYz0LG7Ikp9+vtoaQR1uqonRY+Fhnrc3qa1ZwyiGWcteShdID +epfGRyyh3q3nt95BFh7FKCtmgAXIHjhRp9HMQgFO+ALzlhlk/N2ln9bCwooX +8acZhWbAm23J+a+Nhd+64m5anjCDj7f5r5c8YmH6shqXc35mUM9zvECki4Vv +fpx5LCRpBh5nEyK+j5P1+kIFNJJNoaAhSv/eSjZ+in+3bPgAwioHd46MEBv/ +Wxhz+eaFkDBiqB6xlo0SWhJxEvYIe/h/KGmJszH6xjdqhioCY0u4WCmFje7X +1M6FvADoHQ2ZSdZm45LVP1dNPDEBccH9nM3b2Xgre7zTYogF5eZx0V/d2Vi8 +59aj2noW6MRlmOd4sdGX9tjZ5hwLHL5W9/T5sVHLcPbCgCsLUnrnfvrvZ2PV +C+vA0i5j+FEabxadyMYit0rdG11GMGCc03Wlgo0Jj2ppDZOGsOdI+QWbSjYy +ko5NeT83hO+VtYGT1WycZdhuV+AagohC37z2bTYaTaomLo80BDsBebl/msnv +pW/7YsVvCI3dVwK6etjoKO5sf0KZAbZCd9XD+9i467N7v4QgA/qsHn2XGmTj +mr1tG9qmDGC2/lOq9wgb6eYSpRF3DUD9ktatDx/Z+Jv6u9NkswE0DpiGp39m +Y1dah1edjgHYijmD5lc2mtF+PdgqZQC7Thx5GTbHxkS49aRnTB9mm1MKJX+w +UXU+Uav1kT4kLeT71y+wca2EJ//TKn1Yq3ddbcciG5MCCjVncvWh6ED93N+/ +bNTHuzn6sfrwP1idsYk= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07726893557692495}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07726893557692495}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1mk4VW0XB3CRkkqZ5zOYKpmn43COtZBZCpEpQ6g0qJBZhiJFMmRIhdCo +cM6mMjzxoFIaTZmSSI9KSkgp9e73075+X9be177X+q+bvvOgUyAvDw+P7hIe +nv8/vw8/alNKKzcZ/8o5cc7VwqS7SCrKtC8Jps9s8hnNVgQUf75Tqi8bJHus +Vtdm60L41huv+PpKgR9LFXOzzUF4SjL75ysuSB9PV/PNdoY3jQ4HZ1+1QMqR +6gpOlj9YKn18Pf2qE5LUB08LngmFn68YuV9fjYLc6rY/0cePQav51fKXpTOw +7odx7JDyWZB7U/d+p9oicM+09HQfvQhi+31uLDfnQ454n2awRBlka1s2OLgI +4M8keoBzyFXoL9Bqnl67Gks2VsdxqRWQVh7/nFdaGMNfcT78W1wJtnpBIuKK +wqhJ0bMNvlkJAm1OLuvUhZFz4aqiSF0lHB9THrQzFUbW/gcM7KyEWIUn788G +CePCdGyp/tIqCC6R+qNSL4zuLqdiju2qAscLHDU7TxH82v58crNINUieHTuZ +c1EUI/YXXFjfWg1SG2uP/7giij1Ff2tXtleDTEtK/I5qUXQ4bf/u45NqoHzd +cGRdqyhqXtscd7G3GpTtD/k2TIji+lrjrK4P1aC7dNFgTFcMo9/ptCet4cCW +MIl3Oo/FcI+P8uKH7RzYunJiOL9LDEWc5ggHLw44ldb1/x4SwyvXjA9V+XLA +9YXX8wdfxNApsnQ+IIgDO9TK6j3ExVFp/wFGSTQH9r3TzEryFUeLDafUtl/g +wIltNiad38Wx037yYdsQB2RqnsnwLpHA4H+CQxZHOFApum1ee6UE/jLXDdAe +50Bvp3d1FlUCc+cT5dI+c0DJMUzB0VoCB9XK+/n/cKBlc/GyF+ckMD6Z4iZF +4cKi5dyzpyxJpL3P96v24ELmleiKRUtJtHqSUOTozQWlZTyp6o6S6NCYTJny +44L9fUHT04GS2D00/p9UEBcKzWmEfYYkNpTElehHcMEQ7fI73kiilv0xIi2b +C6HMSz6PkqRwQwXIVdzngm2J0KxduhQaJh/1SGzngsLy2NRnuVIowMMT49zB +hRfdrpyua1K4KFfg/+kFFzQOreIbfiaFN0tX9n8Y5MLElYgr32Sk0TzK+CR9 +mgteYg6fZQlpXLTfPRknRYBuTENiUaM0Flo/nH4hQ4Dg6HoJ+gNpfFt/dpQq +T0BdFR+o9Etj0f3fJzh0AiTs6jK1/krjmfXTk2WqBLxIVNKzsJPBlzoxMfeN +Cdj0ZSE6eEwGDSUFu/94EBBlfVb130kZLLax5nnoRUDlJfUB0e8yGL/tlUOa +NwFS23yZdQKyKLry1zaBnQRM3r0/z6chi0/8FcW69xCQk5QZdi5SFjNb7Pu4 +RwhoH9ygNJkoi49sduxlRxDwW6+1yyRNFh2PF6xriyRg139zOu8uymJ45xfl +BzEEGNl7Tmu0yqLM4ArzC4kEjIqrBLetlsOQoTWnstIJkDzYJC8pKYfaLvlS +b04TYN/u9jSIJodar12G1p8h4HZ0mtoaXTm8Y6C0jJNFwKk3Xz+6u8lh85lf +czl5BOhcb9j9pVQOIZV/tLyYgN28LpJmN8n6/ackbpcQcMFz6sHZWjkcImLT +Wi8RsEyIrmLULodjoueZXWUEDISkvDv+WQ5lEmoa7l8lIJHl6CdjKI8/pk/z +/qgkwNq76BvDTB7NjinnvqkiQCjh0zEXe3nU/Fb1pKWarN+afCXTVx4/aTdp +xHIJuGtb/2nZSXmsNl0+VF9LQPz+5XFKOfI4YbaPiL9NgGXGNiGzi/K4yUfN +EO8Q0P1ySiuOI48VkpIONXcJ+OqmGD7TL4/qeVKP9zQQcCf60HLhd/I4pDWu +urKRgKMX/inQmJLHfMor0+ukV41sbwjipWBU8o28vn8I6Fpy2f7EKgo2ez7v +DbpHQKHit9flEhQ0ZZe8/E563e50nhFVClocH/rF10zAVGp/1qIeBUvK89SP +k665oaIoCxTsMC+k8PxLgNlUs4WrMwUHp1TNP5H2PjJ36kkMBX83Rt/JaCVA +Od9M7mMyBa83xi/93Pr//jlza3kmBedt7WWs2giI/r3hhVk5BUW2i1+eIm1K +ifDzraTg7EiiHOs+AQLY9i3uLgXj1+T5JZPOPeYtXveEgmk7y91XPiDA63LF +ld5eCt7aK73GmrTCwx+M2REK5g5tzE8g/WHC4pHwJwqOH5ebqSFdLZjjoTlH +wb5kdaVx0hFqI5/s/1JQ07V0o/BDAkwc1OP2rqCibHOTIJM0/6FooVRRKqqN +dLR4kX6S9bD4sjwVjZWEXGJJ5xBi2q3rqLjd9nlLPmmPHr+WEW0qlvm4r64i +TZ+vdP5jTEX3pnn9FtITUr/fyVpSMV94nv2SdJWRTThzKxU9bS+rDJEO98pb +vt2DiruuOU6PkmYdHSsIC6Aivca+eJw0X4mWanYwFVNMJrTfkX78b1xDVSQV +V/tG3BgmnTn22P5pEhVTIxwEe0hv55ca/phORZENrU4PSVPWBR4UyKfijJda +ci3pcWsuj8olKiaZjJYWk76592+WeQUVVxmb3EomHZpur+hXS8UGnvOXd5M2 +qjxXc7SJiofitp22IL3p1bPFqXYq+g52iCqQduBZauXTScWY86kiv8j/67aB +mfl8kIpKjtdOvSDt7xTcD+NUHDpqE1dKOjimTKF6iophuWmfDpGOLO/bR/tB +xU0zGb3GpC1j6PEJ/DQcvuCz7iF5/h1rGssMBWn4xjTkzAnSW8td278K0fDH +8IvITaQ9n6YJ+0nRsKBlWTdB9tOIn4qBtDwNX1eqWu8ivet7s8dLOg2FXuua +iZM+RP1eZrqRhmhw7skesj/niMz2n5o0/MK08VlNOtp642eOHg1BMyW2soWA +5MO+BgomNIze4+b5nuz3wtbH7byONFxoCupQI+eD6hb4ud6FfH9TSldtEwHl +k3+FQz1o6Bh246Ax6Spxfc8xfxra+HXtYZHz1ra7+HNrOA2XzUQmiJPzavOb +KRIbQ8NsgxzbY+R8P8vsNtBLoKEWNZD7uZ6A/roVCeUnaVjoLeV7t46cz5Vh +IskXaFh92tJVmcyL0BIhBvsSDc3XlmpFknnyQ++659xlGp4gznMfknnD5z1c +HlhFw3Cl/VyvGjLfq60Zli00fG/Y0ubNIeDipjHPPw9o+CTP5m8emV8K/XEJ +tztoeC3y5KcOMt/UeYlHKj00lF++ZXgjmX9m2+S9lk/QUKBsdGvbDQL2/5hO +aF9Nx32jxuluZH4aHd4l8V6EjtOCV9WtSsl5/jhQwSdFx9fZm/h1yLy9PNja +a6JAx16DVzt+FxEwfC9XrdaAjkdUesf8CwnYkszsu+RDx2t9ji3xmWT//rl1 +oCmAjhkpcTk6ZP5PhivwvQ6i44aoLbffkvshdc9KDakwOv5T9m5eL42AZrvX +xzJS6SjEv3i+KpncByKJmjEcOnZ+WDf7PYoAnrS5toLbdDR/tp84SO6nZ3x7 +PW430HGxvn7kXTgB++ackqfv07Fe8np6Wyh5nn1Kg7sH6HhD8JiX+wFy3xa3 +p2zjU0DrztiwAR8Cfm5cO6zuooAO6z4dtjIj4PtFmURdDwXMlhmu9UACZtco +KzF9FHBv2MqWvSbk+c0w924KUsAVyZZGiUbk/mvw/+4Rp4C1r+uGTuiQ8213 +Ryj1sgJemI6LXyT3e+E+bxidU8Bx7c+C+X+4wKq4WZKXp4gq+i8PfarkwiCt +otjivCIuuR0QdeAmF6LzrhfNFiti+x81+c/XuXAn8coFp+uK2FNcwBov54KO +W0mBUKMiZi05u6yukAsb+M9mprxVRJmhauWvyVyQ8IlJCFdTQosr+VlXyfvU +tIitr2uLEtp0hz7PWeTAu3Rf15DlKnhDmtdXR5oDNl8ibMYN1mF4QIqtwYZq +mPQXCK2JX49WV56e8KFWkvdzSd4TLRsw3LoQlw9UgMhTlYzqL6roMPPrcGbl +dZBLrdpqYKCGd8evSW50ugoFG5lrRXer49SqJoMq5cvwWMZUfyZLA0U/LKly +Ei0DI7mWTM1eTZzoET6pOVkCQnylYX5JWujOt7DwemURUBKpLHcVbQzZ4mcx +qlsIK5S9bjs91MaTv9wel9fngQZbuipihw7ey1rhTrTlQMiwSKstjy5OdlTm +n32dCV9m0l1sCnQxuFn15Me36WCl+aDQRl0PM5qiVG9eToV7M8a/5p/poffT +rIPuhcchWE1n4GWgPgp3lZ07ujUR2FMB3e4rDHCId+68RFQsWChJbV5daoBj +xbwL9zIiYH3CqcgWBgPzhxNe9R8KhUbjy/z2Rgy07c9lB/mGwtb5puweFgO7 +uYJ2S7eGQmTw3M0JUwZm3xPftEMzFNq9fN8K2TNwdOWXZYVTIbCHaWDr6cvA +0qVFZ5kHQ+D6t7eys6kMdLW2UP0v8jCoBjKblAcYmONybX2g+0E4o+CwcGyI +gY/mSt8/hYMw+2an/ugwAwmGQYC1ykG455FeUTTGQD+xX5EhM8HgtPVNvuRn +BoqtNeMvzAiGKOPkQyt4DPFbc2eWRvsBaBd+Sf+sbIi6bhv01a33Q+C9Pcdr +DhsiJYbzPjkqCKYOfIywCDNEZ2trb/udQRApv39fb7ghzrVNLlO2C4JTsQed +fsQYYnSdYNMq+SCoNgqnsVIMMVddLLfm3z3w+/axxtZCQwzVHWZ4Ce2B7Kqi +2c5WQ+xydBdpqtkFTSXdAdPiTMxlBcvF6QbAiD3dJ1yKib4H5PZ10QKA5+cB +918yTFRX4iUMhQLAzHG5Az+NiZdyRAS0PvjDgyVGDGlVJroc39fwotgfnuws +XmFqwsQFY9vZl2v8YUBpb2XmLiYG2+q/zlrwg9lrf+c17zDxbotnh+A3H3jv +allyso6JIWo1NRU9PtC39LT1WAMTiaN1NTvrfKDBV+ZcXjMTncbKmkUSfSBJ +St9o8RETH77STIgS9oG1qXtjHw8xMZCjHepi4A1qu3t4AnmNcHjm5LL/zniB +v3LFisLNRvhw9wuNY/HuEH3fe6/KViP806Fx1WaXO2QGinRwnYzQcyJYTWWz +OzRejkrv2G6EfrtOytNl3UFMxXrNop8R7rhZNih31w0eqIyL+YYb4V5BgSn5 +79tBdT2VplJshApBenb9ia4wrZpjwP1qhOq9HYffdztD3xO0EJ0xQv9WodrV +Lc7QHDzlHDZnhDduGH7aVOUMGVybwwYLRkifq+QdO+kMqkY8N+v5jPF7SVjJ +EDjDTpsD9FYJY3wwkPJPQ6UTdO+2WtXNMsZmS8GJwXxHuFv+6+1cqjHWbVy5 +O1d1CxiYh83bphnjMDZKPl61BWrfTq4qOW2MnV/+bJH64gBcyjDDNpusr+2/ +akmNA9wsaD5ddN4YXX9JVywBByhJT2ZaVRrjv30arlXum+Fk2Jqsgi5jFHjm +p8e+ZAcemxTRmMLCjVM8lnZHrGGxW0ColcbCOpe8CXtPaygJnBq0VWTh7J+6 +0N2m1vA+pS7CYz0LG7Ikp9+vtoaQR1uqonRY+Fhnrc3qa1ZwyiGWcteShdID +epfGRyyh3q3nt95BFh7FKCtmgAXIHjhRp9HMQgFO+ALzlhlk/N2ln9bCwooX +8acZhWbAm23J+a+Nhd+64m5anjCDj7f5r5c8YmH6shqXc35mUM9zvECki4Vv +fpx5LCRpBh5nEyK+j5P1+kIFNJJNoaAhSv/eSjZ+in+3bPgAwioHd46MEBv/ +Wxhz+eaFkDBiqB6xlo0SWhJxEvYIe/h/KGmJszH6xjdqhioCY0u4WCmFje7X +1M6FvADoHQ2ZSdZm45LVP1dNPDEBccH9nM3b2Xgre7zTYogF5eZx0V/d2Vi8 +59aj2noW6MRlmOd4sdGX9tjZ5hwLHL5W9/T5sVHLcPbCgCsLUnrnfvrvZ2PV +C+vA0i5j+FEabxadyMYit0rdG11GMGCc03Wlgo0Jj2ppDZOGsOdI+QWbSjYy +ko5NeT83hO+VtYGT1WycZdhuV+AagohC37z2bTYaTaomLo80BDsBebl/msnv +pW/7YsVvCI3dVwK6etjoKO5sf0KZAbZCd9XD+9i467N7v4QgA/qsHn2XGmTj +mr1tG9qmDGC2/lOq9wgb6eYSpRF3DUD9ktatDx/Z+Jv6u9NkswE0DpiGp39m +Y1dah1edjgHYijmD5lc2mtF+PdgqZQC7Thx5GTbHxkS49aRnTB9mm1MKJX+w +UXU+Uav1kT4kLeT71y+wca2EJ//TKn1Yq3ddbcciG5MCCjVncvWh6ED93N+/ +bNTHuzn6sfrwP1idsYk= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07726893557692495}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07726893557692495}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994261250888299*^9}, + CellLabel-> + "Out[139]=",ExpressionUUID->"f5d599b6-90cb-49fa-aaee-497dc8d4d0f8"] +}, Open ]], Cell[CellGroupData[{ @@ -13424,66 +15188,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[308]:=",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], + "In[140]:=",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.611115182999938`*^-175\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 308, 309, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133920579224*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.428171924590026`*^-156\\\", \ +RowBox[{\\\"552513857212233842570175958778312308519\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"78\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3361543354777600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 73, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133920579224*^9, 3.9942612509096737`*^9}, CellLabel-> "During evaluation of \ -In[308]:=",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], +In[140]:=",ExpressionUUID->"90aa931f-bec0-44ad-8ead-5c9500544db7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.5007447195984937`*^-178\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 308, 310, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392058022385`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.038102625441944`*^-159\\\", \ +RowBox[{\\\"192330073695578600598678251250730514595\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"82\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1532417980825600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 74, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133920579224*^9, 3.994261250913612*^9}, CellLabel-> "During evaluation of \ -In[308]:=",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], +In[140]:=",ExpressionUUID->"c0eae3ec-0f27-493e-b497-c3f89e5027f1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1145242877114216`*^-181\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 308, 311, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339205811241*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0453328204414769`*^-161\\\", \ +RowBox[{\\\"692388265304082962155241704502629852543\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"85\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6704730972160000000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 75, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133920579224*^9, 3.9942612509173813`*^9}, CellLabel-> "During evaluation of \ -In[308]:=",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], +In[140]:=",ExpressionUUID->"b252b80c-3063-4fc2-81ff-da59110d5adb"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 308, 312, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392058197193`*^9}, +during this calculation.\"", 2, 140, 76, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133920579224*^9, 3.994261250920845*^9}, CellLabel-> "During evaluation of \ -In[308]:=",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], +In[140]:=",ExpressionUUID->"49a562bd-c99e-4892-b93f-9f9edd854f84"], -Cell[BoxData["9.33220071900515`"], "Output", - CellChangeTimes->{3.9913392124888554`*^9}, +Cell[BoxData["9.438725515069203`"], "Output", + CellChangeTimes->{3.9913392124888554`*^9, 3.9942612745530653`*^9}, CellLabel-> - "Out[308]=",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] + "Out[140]=",ExpressionUUID->"23e3af56-0e8d-4e3d-9114-a20f92697094"] }, Open ]], Cell[CellGroupData[{ @@ -13550,68 +15321,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849547748472*^9, - 3.9918495528702526`*^9}},ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-\ -0895c02ffd8f"], + CellChangeTimes->{{3.991849547748472*^9, 3.9918495528702526`*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 309, 313, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392125258827`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.38545764760302`*^-197\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 77, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392125258827`*^9, 3.9942612745757723`*^9}, CellLabel-> "During evaluation of \ -In[309]:=",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], +In[141]:=",ExpressionUUID->"ef5152f3-226e-4adc-9751-4f111816dc42"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 309, - 314, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339212535879*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0190240055993306`*^-201\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 78, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392125258827`*^9, 3.99426127458002*^9}, CellLabel-> "During evaluation of \ -In[309]:=",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], +In[141]:=",ExpressionUUID->"a66a4ee4-5b18-4764-8d0f-7f165997031f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 309, - 315, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392125438805`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.353084721630378`*^-206\\\", \ +RowBox[{\\\"668859810497440244092067196564426051030\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3165635789279094374400000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 79, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392125258827`*^9, 3.994261274584091*^9}, CellLabel-> "During evaluation of \ -In[309]:=",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], +In[141]:=",ExpressionUUID->"da6fe290-e658-4089-8613-4d61c0fde38c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 309, 316, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392125518837`*^9}, +during this calculation.\"", 2, 141, 80, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392125258827`*^9, 3.994261274587943*^9}, CellLabel-> "During evaluation of \ -In[309]:=",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], +In[141]:=",ExpressionUUID->"d644f72f-280c-4757-a2da-aab4b08149ac"], -Cell[BoxData["0.41157157699018565`"], "Output", - CellChangeTimes->{3.9913392196090164`*^9}, +Cell[BoxData["0.9252941543724705`"], "Output", + CellChangeTimes->{3.9913392196090164`*^9, 3.994261277951598*^9}, CellLabel-> - "Out[309]=",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] + "Out[141]=",ExpressionUUID->"9abc05a8-a4c7-42a8-91e2-9adec25d2ea4"] }, Open ]], Cell[CellGroupData[{ @@ -13632,8 +15410,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -13678,68 +15455,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918495568340263`*^9, - 3.991849559359928*^9}},ExpressionUUID->"57976ffc-56f1-604b-8519-\ -bead95265db8"], + CellChangeTimes->{{3.9918495568340263`*^9, 3.991849559359928*^9}}, + CellLabel-> + "In[142]:=",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 310, 317, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392196440163`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.38545764760302`*^-197\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 81, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392196440163`*^9, 3.994261277973061*^9}, CellLabel-> "During evaluation of \ -In[310]:=",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], +In[142]:=",ExpressionUUID->"3650a97c-f749-4515-8402-4eafc763dc6e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 310, - 318, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392196535416`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0190240055993306`*^-201\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 82, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392196440163`*^9, 3.994261277976923*^9}, CellLabel-> "During evaluation of \ -In[310]:=",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], +In[142]:=",ExpressionUUID->"b53c3fdd-2ed8-4ecd-a6e3-842ff4ba6802"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 310, - 319, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339219661541*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.353084721630378`*^-206\\\", \ +RowBox[{\\\"668859810497440244092067196564426051030\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3165635789279094374400000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 83, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392196440163`*^9, 3.994261277980723*^9}, CellLabel-> "During evaluation of \ -In[310]:=",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], +In[142]:=",ExpressionUUID->"dc7443f0-e8c9-4b57-ae70-e1d5a77e1a80"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 310, 320, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339219670542*^9}, +during this calculation.\"", 2, 142, 84, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392196440163`*^9, 3.9942612779843407`*^9}, CellLabel-> "During evaluation of \ -In[310]:=",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], +In[142]:=",ExpressionUUID->"8aae41a2-6293-4891-8f20-d9c336ec1fcb"], -Cell[BoxData["3.215201591157595`"], "Output", - CellChangeTimes->{3.9913392268711624`*^9}, +Cell[BoxData["26.445942967405795`"], "Output", + CellChangeTimes->{3.9913392268711624`*^9, 3.9942612813120193`*^9}, CellLabel-> - "Out[310]=",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] + "Out[142]=",ExpressionUUID->"86893ab4-ec0d-40d6-a1a6-2f2ab31e0eeb"] }, Open ]], Cell[CellGroupData[{ @@ -13760,8 +15544,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -13806,68 +15589,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849563755764*^9, - 3.991849566543682*^9}},ExpressionUUID->"cfa37210-3ae7-3f49-b290-\ -f19508c6d2f1"], + CellChangeTimes->{{3.991849563755764*^9, 3.991849566543682*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 311, 321, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339226907137*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.38545764760302`*^-197\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 85, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339226907137*^9, 3.9942612813341846`*^9}, CellLabel-> "During evaluation of \ -In[311]:=",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], +In[143]:=",ExpressionUUID->"ea94a4ab-5e9d-4160-838e-97e12cc0a32e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 311, - 322, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339226917137*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0190240055993306`*^-201\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 86, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339226907137*^9, 3.9942612813381367`*^9}, CellLabel-> "During evaluation of \ -In[311]:=",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], +In[143]:=",ExpressionUUID->"4e9d40cc-1a2c-4013-a826-2ff76ff2bd4d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 311, - 323, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392269251385`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.353084721630378`*^-206\\\", \ +RowBox[{\\\"668859810497440244092067196564426051030\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3165635789279094374400000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 87, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339226907137*^9, 3.99426128134214*^9}, CellLabel-> "During evaluation of \ -In[311]:=",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], +In[143]:=",ExpressionUUID->"07cad6b0-8a32-46c8-9ff1-c0563c92d9c2"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 311, 324, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392269341373`*^9}, +during this calculation.\"", 2, 143, 88, 31387658297912390657, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339226907137*^9, 3.994261281346184*^9}, CellLabel-> "During evaluation of \ -In[311]:=",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], +In[143]:=",ExpressionUUID->"ac3f8bb3-522d-4e44-8dd7-f354a52407af"], -Cell[BoxData["16.94395627212904`"], "Output", - CellChangeTimes->{3.9913392304284153`*^9}, +Cell[BoxData["4.536516774130999`"], "Output", + CellChangeTimes->{3.9913392304284153`*^9, 3.994261283331205*^9}, CellLabel-> - "Out[311]=",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] + "Out[143]=",ExpressionUUID->"2ef59377-847f-43c0-928f-89204e9557ff"] }, Open ]], Cell[CellGroupData[{ @@ -13876,18 +15666,24 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991849569404436*^9, - 3.991849573855135*^9}},ExpressionUUID->"7457b456-6d32-5b44-9679-\ -346c5f5ac532"], - -Cell[BoxData["0.05576142449710889`"], "Output", - CellChangeTimes->{3.9913392304624157`*^9}, + CellChangeTimes->{{3.991849569404436*^9, 3.991849573855135*^9}}, CellLabel-> - "Out[312]=",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] -}, Open ]] + "In[144]:=",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], + +Cell[BoxData["0.08447710638480473`"], "Output", + CellChangeTimes->{3.9913392304624157`*^9, 3.994261283351396*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"40707485-44ff-4f84-b0c4-5e2624f5055b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellLabel-> + "In[145]:=",ExpressionUUID->"21bdf2ef-d3cd-4c65-a567-6efe8d11ab56"] }, -WindowSize->{1440, 882}, -WindowMargins->{{0, Automatic}, {0, Automatic}}, +Evaluator->"Local", +WindowSize->{714, 876}, +WindowMargins->{{-3, Automatic}, {3, Automatic}}, CellContext->Notebook, FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", @@ -13905,611 +15701,637 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 357, 7, 36, "Input",ExpressionUUID->"751667a6-76eb-4f46-8bd2-300510072f47"], -Cell[936, 31, 232, 5, 41, "Output",ExpressionUUID->"0c94286f-f8c0-4472-9a4c-0d3f6a7651ee"] +Cell[576, 22, 352, 6, 36, "Input",ExpressionUUID->"751667a6-76eb-4f46-8bd2-300510072f47"], +Cell[931, 30, 248, 4, 41, "Output",ExpressionUUID->"0e702a7c-f560-4d5e-b7fb-823a94949299"] }, Open ]], Cell[CellGroupData[{ -Cell[1205, 41, 250, 5, 36, "Input",ExpressionUUID->"d86b8b56-5e4c-47f6-988a-3913ef045c3c"], -Cell[1458, 48, 232, 5, 41, "Output",ExpressionUUID->"395c616b-141f-449e-b41b-c24aff7b07c6"] +Cell[1216, 39, 245, 4, 36, "Input",ExpressionUUID->"d86b8b56-5e4c-47f6-988a-3913ef045c3c"], +Cell[1464, 45, 249, 4, 41, "Output",ExpressionUUID->"7792abd2-8b3a-4a0f-8f34-7c13fd9aaa31"] }, Open ]], Cell[CellGroupData[{ -Cell[1727, 58, 228, 5, 36, "Input",ExpressionUUID->"bd4c23b5-dad9-4199-8e39-7f0b2e72894b"], -Cell[1958, 65, 234, 5, 41, "Output",ExpressionUUID->"8e153300-2e0b-4c42-afb7-5c6ec5fa8adc"] +Cell[1750, 54, 223, 4, 36, "Input",ExpressionUUID->"bd4c23b5-dad9-4199-8e39-7f0b2e72894b"], +Cell[1976, 60, 251, 4, 41, "Output",ExpressionUUID->"83fa618d-e0f9-4c6d-98d4-e87a8e59cb67"] }, Open ]], Cell[CellGroupData[{ -Cell[2229, 75, 180, 4, 36, "Input",ExpressionUUID->"ef9c992c-19f5-4d7b-85f5-294b9171c9b8"], -Cell[2412, 81, 232, 5, 41, "Output",ExpressionUUID->"bb0a6ca4-10d2-4fe4-9184-d0be0df5a2e4"] +Cell[2264, 69, 175, 3, 36, "Input",ExpressionUUID->"ef9c992c-19f5-4d7b-85f5-294b9171c9b8"], +Cell[2442, 74, 248, 4, 41, "Output",ExpressionUUID->"ef2dab1f-32ca-4f21-8eb1-0a2b88818413"] }, Open ]], Cell[CellGroupData[{ -Cell[2681, 91, 262, 8, 54, "Input",ExpressionUUID->"b1d01ce2-c8c6-47ed-b72e-3a2da44a47df"], -Cell[2946, 101, 237, 5, 41, "Output",ExpressionUUID->"c37858b4-3416-4c10-bd6b-d692a82edad9"] +Cell[2727, 83, 257, 7, 54, "Input",ExpressionUUID->"b1d01ce2-c8c6-47ed-b72e-3a2da44a47df"], +Cell[2987, 92, 253, 4, 41, "Output",ExpressionUUID->"62c3b8a2-233d-4f74-920c-f97b4574f67e"] }, Open ]], Cell[CellGroupData[{ -Cell[3220, 111, 136, 3, 36, "Input",ExpressionUUID->"0c3f07a2-800b-4dca-bd13-6e745a65189c"], -Cell[3359, 116, 233, 5, 41, "Output",ExpressionUUID->"a298159f-63c4-412b-b639-498975833a65"] +Cell[3277, 101, 131, 2, 36, "Input",ExpressionUUID->"0c3f07a2-800b-4dca-bd13-6e745a65189c"], +Cell[3411, 105, 252, 4, 41, "Output",ExpressionUUID->"07b29b49-7182-44e1-b540-df3a4083b718"] }, Open ]], Cell[CellGroupData[{ -Cell[3629, 126, 281, 7, 36, "Input",ExpressionUUID->"2e03473e-367e-4dd3-8659-9951abab4ec9"], -Cell[3913, 135, 248, 5, 41, "Output",ExpressionUUID->"9340a93d-7750-47d7-913f-a257a9139437"] +Cell[3700, 114, 276, 6, 36, "Input",ExpressionUUID->"2e03473e-367e-4dd3-8659-9951abab4ec9"], +Cell[3979, 122, 267, 4, 41, "Output",ExpressionUUID->"10cd922a-6fb8-4d8b-b6bf-d46a47a93aa7"] }, Open ]], Cell[CellGroupData[{ -Cell[4198, 145, 262, 8, 36, "Input",ExpressionUUID->"39c43610-9227-4f91-b077-8088d278c8bc"], -Cell[4463, 155, 248, 5, 41, "Output",ExpressionUUID->"3f046aab-b15c-42ad-8053-fe52fa3dfa0d"] +Cell[4283, 131, 257, 7, 36, "Input",ExpressionUUID->"39c43610-9227-4f91-b077-8088d278c8bc"], +Cell[4543, 140, 265, 4, 41, "Output",ExpressionUUID->"f196121b-a263-4fa8-9144-98d6fb1a1e74"] }, Open ]], Cell[CellGroupData[{ -Cell[4748, 165, 208, 4, 36, "Input",ExpressionUUID->"e7832b7f-fc46-44f1-ba18-09ee056547cc"], -Cell[4959, 171, 218, 4, 41, "Output",ExpressionUUID->"48e8902d-a312-4bd8-a0d5-ebe59650861c"] +Cell[4845, 149, 203, 3, 36, "Input",ExpressionUUID->"e7832b7f-fc46-44f1-ba18-09ee056547cc"], +Cell[5051, 154, 239, 4, 41, "Output",ExpressionUUID->"875a5774-7510-4577-8451-f170d056a6e6"] }, Open ]], Cell[CellGroupData[{ -Cell[5214, 180, 210, 4, 36, "Input",ExpressionUUID->"377d5ee0-06b9-4c59-bef7-377bd46292ac"], -Cell[5427, 186, 214, 4, 41, "Output",ExpressionUUID->"db896d14-7efe-42b1-aed9-a70cf3692540"] +Cell[5327, 163, 206, 3, 36, "Input",ExpressionUUID->"377d5ee0-06b9-4c59-bef7-377bd46292ac"], +Cell[5536, 168, 236, 4, 41, "Output",ExpressionUUID->"0e0402c8-698d-4b15-846e-c42c86ee4471"] }, Open ]], Cell[CellGroupData[{ -Cell[5678, 195, 133, 3, 66, "Input",ExpressionUUID->"96d65eab-d95b-4b15-ab6e-fe5871824646"], -Cell[5814, 200, 232, 5, 75, "Output",ExpressionUUID->"91084823-a627-401a-a006-67fcd9c30e39"] +Cell[5809, 177, 129, 2, 36, "Input",ExpressionUUID->"96d65eab-d95b-4b15-ab6e-fe5871824646"], +Cell[5941, 181, 250, 4, 41, "Output",ExpressionUUID->"ad5da4fc-f755-4d28-b0f3-1cb95ebd506a"] }, Open ]], Cell[CellGroupData[{ -Cell[6083, 210, 133, 3, 66, "Input",ExpressionUUID->"3c63b8d9-cfd9-4539-9dde-35d78907c5cf"], -Cell[6219, 215, 232, 5, 75, "Output",ExpressionUUID->"56ae2604-b29b-4a88-9094-3bfd12d73d0b"] +Cell[6228, 190, 129, 2, 36, "Input",ExpressionUUID->"3c63b8d9-cfd9-4539-9dde-35d78907c5cf"], +Cell[6360, 194, 252, 4, 41, "Output",ExpressionUUID->"242819f5-eabb-4879-a404-99c06e96775d"] }, Open ]], Cell[CellGroupData[{ -Cell[6488, 225, 561, 20, 175, "Input",ExpressionUUID->"8bb87003-ce89-4a73-8414-77846586b326"], -Cell[7052, 247, 249, 5, 75, "Output",ExpressionUUID->"07fe5ccc-797f-400a-8d95-3294c8014c0c"] +Cell[6649, 203, 557, 19, 100, "Input",ExpressionUUID->"8bb87003-ce89-4a73-8414-77846586b326"], +Cell[7209, 224, 267, 4, 41, "Output",ExpressionUUID->"9df9985b-d503-4efb-a71d-6f630d71ddaa"] }, Open ]], Cell[CellGroupData[{ -Cell[7338, 257, 561, 20, 175, "Input",ExpressionUUID->"3777747e-b0cc-458d-9381-442f93da8334"], -Cell[7902, 279, 252, 5, 75, "Output",ExpressionUUID->"89e89404-34e9-4828-bb2d-02123ed544bd"] +Cell[7513, 233, 557, 19, 100, "Input",ExpressionUUID->"3777747e-b0cc-458d-9381-442f93da8334"], +Cell[8073, 254, 270, 4, 41, "Output",ExpressionUUID->"a6defb2c-8f64-494e-8157-93b07395afb6"] }, Open ]], Cell[CellGroupData[{ -Cell[8191, 289, 1592, 51, 362, "Input",ExpressionUUID->"0a99f94b-bcd3-407a-9b12-0a13ef21bb79"], -Cell[9786, 342, 246, 5, 75, "Output",ExpressionUUID->"0c3a7b43-6b45-4b41-8df7-4572499595f0"] +Cell[8380, 263, 1588, 50, 215, "Input",ExpressionUUID->"0a99f94b-bcd3-407a-9b12-0a13ef21bb79"], +Cell[9971, 315, 264, 4, 41, "Output",ExpressionUUID->"3fa0d893-0653-4c12-8071-1b01dc5793e0"] }, Open ]], Cell[CellGroupData[{ -Cell[10069, 352, 1426, 47, 362, "Input",ExpressionUUID->"7ac71713-331a-43ab-86e7-5e48b4c916f6"], -Cell[11498, 401, 266, 6, 75, "Output",ExpressionUUID->"6a804999-cdae-453b-879e-cc9a593b3443"] +Cell[10272, 324, 1422, 46, 215, "Input",ExpressionUUID->"7ac71713-331a-43ab-86e7-5e48b4c916f6"], +Cell[11697, 372, 284, 5, 41, "Output",ExpressionUUID->"8d3912b9-b524-4eb8-aa19-975a8f968b29"] }, Open ]], Cell[CellGroupData[{ -Cell[11801, 412, 1426, 47, 362, "Input",ExpressionUUID->"e4972212-2d1a-45e3-93e3-f736d99af180"], -Cell[13230, 461, 271, 6, 75, "Output",ExpressionUUID->"54f83984-6557-4bf9-bf87-23b211a8216a"] +Cell[12018, 382, 1422, 46, 215, "Input",ExpressionUUID->"e4972212-2d1a-45e3-93e3-f736d99af180"], +Cell[13443, 430, 288, 5, 41, "Output",ExpressionUUID->"7732b351-bb71-476f-a3b0-1264781a7e0c"] }, Open ]], Cell[CellGroupData[{ -Cell[13538, 472, 1592, 51, 362, "Input",ExpressionUUID->"ae5371c6-593a-4fbe-b496-969ffa647461"], -Cell[15133, 525, 243, 5, 75, "Output",ExpressionUUID->"203756f7-87b4-4e9d-8926-03296331165a"] +Cell[13768, 440, 1588, 50, 215, "Input",ExpressionUUID->"ae5371c6-593a-4fbe-b496-969ffa647461"], +Cell[15359, 492, 261, 4, 41, "Output",ExpressionUUID->"8b3465b8-b82e-4a02-b9ff-05f18d4f1902"] }, Open ]], Cell[CellGroupData[{ -Cell[15413, 535, 135, 3, 66, "Input",ExpressionUUID->"d961082f-869d-41a8-936a-7d5f4dea98d2"], -Cell[15551, 540, 234, 5, 75, "Output",ExpressionUUID->"2392fa3f-00cd-4601-a803-be2337d0ff8f"] +Cell[15657, 501, 131, 2, 36, "Input",ExpressionUUID->"d961082f-869d-41a8-936a-7d5f4dea98d2"], +Cell[15791, 505, 254, 4, 41, "Output",ExpressionUUID->"da2e9b1a-de33-431f-a16a-0136bc0decf7"] }, Open ]], Cell[CellGroupData[{ -Cell[15822, 550, 137, 3, 66, "Input",ExpressionUUID->"3af009a0-f9ac-4896-8cfb-5fcb7166a0a4"], -Cell[15962, 555, 232, 5, 75, "Output",ExpressionUUID->"40a100c3-c5d5-45dd-936e-22a6b712bc08"] +Cell[16082, 514, 133, 2, 36, "Input",ExpressionUUID->"3af009a0-f9ac-4896-8cfb-5fcb7166a0a4"], +Cell[16218, 518, 250, 4, 41, "Output",ExpressionUUID->"a26d320f-f3a2-49b1-bbe4-8baa84de7d96"] }, Open ]], Cell[CellGroupData[{ -Cell[16231, 565, 138, 3, 66, "Input",ExpressionUUID->"86dd05d3-90b1-46a2-b995-da02a79b23ad"], -Cell[16372, 570, 240, 5, 75, "Output",ExpressionUUID->"a5285ea9-63b2-4c95-bcbd-49c0fd63be67"] +Cell[16505, 527, 134, 2, 36, "Input",ExpressionUUID->"86dd05d3-90b1-46a2-b995-da02a79b23ad"], +Cell[16642, 531, 258, 4, 41, "Output",ExpressionUUID->"c59207f8-f729-4de0-bca1-1f03025c1d8d"] }, Open ]], Cell[CellGroupData[{ -Cell[16649, 580, 223, 5, 66, "Input",ExpressionUUID->"a633539d-b93e-41a4-8a70-2ffca9d28f30"], -Cell[16875, 587, 247, 6, 75, "Output",ExpressionUUID->"aa542d55-5bb4-49ff-86f1-8fc03021093e"] +Cell[16937, 540, 219, 4, 36, "Input",ExpressionUUID->"a633539d-b93e-41a4-8a70-2ffca9d28f30"], +Cell[17159, 546, 265, 5, 41, "Output",ExpressionUUID->"c447e916-338c-4040-9fa4-4042d4ccc40b"] }, Open ]], Cell[CellGroupData[{ -Cell[17159, 598, 138, 3, 66, "Input",ExpressionUUID->"526f1644-7850-4ee9-8d10-cc36a22a17b4"], -Cell[17300, 603, 236, 5, 75, "Output",ExpressionUUID->"66d35873-9d30-4e18-a65a-eaeaa6c2d8d7"] +Cell[17461, 556, 134, 2, 36, "Input",ExpressionUUID->"526f1644-7850-4ee9-8d10-cc36a22a17b4"], +Cell[17598, 560, 253, 4, 41, "Output",ExpressionUUID->"6d743d13-33ee-4f71-9038-628e6d679900"] }, Open ]], Cell[CellGroupData[{ -Cell[17573, 613, 328, 6, 66, "Input",ExpressionUUID->"77bd0100-8f25-4471-a5fe-b00dd7082437"], -Cell[17904, 621, 232, 5, 75, "Output",ExpressionUUID->"f57370c4-914e-4378-8e25-5c7c37fecd36"] +Cell[17888, 569, 324, 5, 36, "Input",ExpressionUUID->"77bd0100-8f25-4471-a5fe-b00dd7082437"], +Cell[18215, 576, 252, 4, 41, "Output",ExpressionUUID->"d4d26d19-1634-4d01-8df7-42877e802bd4"] }, Open ]], Cell[CellGroupData[{ -Cell[18173, 631, 301, 6, 66, "Input",ExpressionUUID->"cfada19d-57a2-4ee8-baa9-a6cf4e4f8d05"], -Cell[18477, 639, 235, 5, 75, "Output",ExpressionUUID->"eec9b0d8-1649-4054-89c0-0850d3ce9d92"] +Cell[18504, 585, 297, 5, 36, "Input",ExpressionUUID->"cfada19d-57a2-4ee8-baa9-a6cf4e4f8d05"], +Cell[18804, 592, 253, 4, 41, "Output",ExpressionUUID->"4a55ab4e-9eb1-4987-99d6-3ddc6a762df2"] }, Open ]], Cell[CellGroupData[{ -Cell[18749, 649, 223, 5, 66, "Input",ExpressionUUID->"1641be81-df7b-4fd0-bab9-9f05fed9979c"], -Cell[18975, 656, 229, 5, 75, "Output",ExpressionUUID->"f67d1027-c0ba-4ced-a472-9643db548c79"] +Cell[19094, 601, 219, 4, 36, "Input",ExpressionUUID->"1641be81-df7b-4fd0-bab9-9f05fed9979c"], +Cell[19316, 607, 247, 4, 41, "Output",ExpressionUUID->"c91a9dd1-70a6-451e-85c9-ae7e8580954a"] }, Open ]], Cell[CellGroupData[{ -Cell[19241, 666, 354, 11, 96, "Input",ExpressionUUID->"a0686ee3-e375-4ac1-8346-4c89db0903f9"], -Cell[19598, 679, 251, 5, 75, "Output",ExpressionUUID->"eae3cf94-a023-4a84-b1bd-2932f42e870b"] +Cell[19600, 616, 350, 10, 54, "Input",ExpressionUUID->"a0686ee3-e375-4ac1-8346-4c89db0903f9"], +Cell[19953, 628, 269, 4, 41, "Output",ExpressionUUID->"a331f6ea-aaf2-43bf-81fe-9240535521dd"] }, Open ]], Cell[CellGroupData[{ -Cell[19886, 689, 354, 11, 96, "Input",ExpressionUUID->"1b1dfec8-3f50-4775-83ad-88a1163965d1"], -Cell[20243, 702, 267, 6, 75, "Output",ExpressionUUID->"2cbd2036-2746-48f6-91b5-80289d5506f5"] +Cell[20259, 637, 350, 10, 54, "Input",ExpressionUUID->"1b1dfec8-3f50-4775-83ad-88a1163965d1"], +Cell[20612, 649, 285, 5, 41, "Output",ExpressionUUID->"a2bfde44-f280-484e-8f5e-42c9960fa0b3"] }, Open ]], Cell[CellGroupData[{ -Cell[20547, 713, 998, 27, 184, "Input",ExpressionUUID->"fcb55ebc-e0fb-4dba-9687-5e497fbf44b3"], -Cell[21548, 742, 246, 5, 75, "Output",ExpressionUUID->"e35aa21a-738d-4a1f-8438-33d3fdb80a96"] +Cell[20934, 659, 994, 26, 105, "Input",ExpressionUUID->"fcb55ebc-e0fb-4dba-9687-5e497fbf44b3"], +Cell[21931, 687, 266, 4, 41, "Output",ExpressionUUID->"b110ad9e-02d3-44ab-932e-ba80bfaccbc1"] }, Open ]], Cell[CellGroupData[{ -Cell[21831, 752, 203, 4, 66, "Input",ExpressionUUID->"3e095f03-a0b4-4024-87a1-088c9019f7b9"], -Cell[22037, 758, 234, 5, 75, "Output",ExpressionUUID->"4947dc45-d1d3-4cbb-ad04-1ba65600cb68"] +Cell[22234, 696, 199, 3, 36, "Input",ExpressionUUID->"3e095f03-a0b4-4024-87a1-088c9019f7b9"], +Cell[22436, 701, 252, 4, 41, "Output",ExpressionUUID->"31a1404e-d3be-4375-bbfd-b8f356ef3811"] }, Open ]], Cell[CellGroupData[{ -Cell[22308, 768, 333, 6, 66, "Input",ExpressionUUID->"e91d6a5c-806c-42e9-8cd4-d1dd901d11ff"], -Cell[22644, 776, 211, 4, 75, "Output",ExpressionUUID->"288865a1-8873-4cb3-ab45-533ad4ca0074"] +Cell[22725, 710, 329, 5, 36, "Input",ExpressionUUID->"e91d6a5c-806c-42e9-8cd4-d1dd901d11ff"], +Cell[23057, 717, 233, 4, 41, "Output",ExpressionUUID->"1799b504-6e07-45e8-a5ca-0a5a1ede5a78"] }, Open ]], -Cell[22870, 783, 177, 3, 66, "Input",ExpressionUUID->"48b76456-aae3-4c3b-9640-ff5134eb7551"], +Cell[23305, 724, 173, 2, 36, "Input",ExpressionUUID->"48b76456-aae3-4c3b-9640-ff5134eb7551"], Cell[CellGroupData[{ -Cell[23072, 790, 333, 6, 66, "Input",ExpressionUUID->"1bd9a53f-2064-415c-85b2-1b899328fdfc"], -Cell[23408, 798, 211, 4, 75, "Output",ExpressionUUID->"7a066b36-32ec-4953-bcc5-1a1ffaa32a31"] +Cell[23503, 730, 329, 5, 36, "Input",ExpressionUUID->"1bd9a53f-2064-415c-85b2-1b899328fdfc"], +Cell[23835, 737, 235, 4, 41, "Output",ExpressionUUID->"0d4b2ec7-c02d-4363-ab51-f23e5b53343d"] }, Open ]], -Cell[23634, 805, 177, 3, 66, "Input",ExpressionUUID->"b7f34cd4-68b5-48ae-ae2f-9be7de71fb7d"], +Cell[24085, 744, 173, 2, 36, "Input",ExpressionUUID->"b7f34cd4-68b5-48ae-ae2f-9be7de71fb7d"], Cell[CellGroupData[{ -Cell[23836, 812, 330, 6, 66, "Input",ExpressionUUID->"d56db30f-ee84-4b14-b4f1-c59418196932"], -Cell[24169, 820, 205, 4, 75, "Output",ExpressionUUID->"c7dd0441-2bfd-4d83-a246-7f968fff4d7f"] +Cell[24283, 750, 326, 5, 36, "Input",ExpressionUUID->"d56db30f-ee84-4b14-b4f1-c59418196932"], +Cell[24612, 757, 227, 4, 41, "Output",ExpressionUUID->"c4818d3a-47e0-4f75-888a-e7a2c40dde66"] }, Open ]], -Cell[24389, 827, 177, 3, 66, "Input",ExpressionUUID->"faef14ec-6e42-49fa-aec7-1e9033a91eb8"], +Cell[24854, 764, 173, 2, 36, "Input",ExpressionUUID->"faef14ec-6e42-49fa-aec7-1e9033a91eb8"], Cell[CellGroupData[{ -Cell[24591, 834, 356, 6, 66, "Input",ExpressionUUID->"26549962-cf45-4a0a-87fa-a1b8e607c233"], -Cell[24950, 842, 209, 4, 75, "Output",ExpressionUUID->"7ee25934-e7b9-4ef4-b7c7-7316f471c5c8"] +Cell[25052, 770, 352, 5, 36, "Input",ExpressionUUID->"26549962-cf45-4a0a-87fa-a1b8e607c233"], +Cell[25407, 777, 233, 4, 41, "Output",ExpressionUUID->"a6b15818-08ad-4568-b1d7-e6d8f88ebe67"] }, Open ]], -Cell[25174, 849, 175, 3, 66, "Input",ExpressionUUID->"bad5a6ff-0f0e-40a4-8fc7-216274bbe398"], +Cell[25655, 784, 171, 2, 36, "Input",ExpressionUUID->"bad5a6ff-0f0e-40a4-8fc7-216274bbe398"], Cell[CellGroupData[{ -Cell[25374, 856, 303, 6, 66, "Input",ExpressionUUID->"517a3596-f04a-44e1-af5f-e0f50526ce48"], -Cell[25680, 864, 211, 4, 75, "Output",ExpressionUUID->"cf8515f0-a554-4104-81c4-4333ae728e2a"] +Cell[25851, 790, 299, 5, 36, "Input",ExpressionUUID->"517a3596-f04a-44e1-af5f-e0f50526ce48"], +Cell[26153, 797, 233, 4, 41, "Output",ExpressionUUID->"4cfb9537-c8e4-42b5-b2bb-7424a7ce7a7d"] }, Open ]], -Cell[25906, 871, 175, 3, 66, "Input",ExpressionUUID->"eba5c45e-bee3-4997-9150-519fc7c33e0c"], +Cell[26401, 804, 171, 2, 36, "Input",ExpressionUUID->"eba5c45e-bee3-4997-9150-519fc7c33e0c"], Cell[CellGroupData[{ -Cell[26106, 878, 309, 6, 66, "Input",ExpressionUUID->"130ce0b5-ee01-4346-b901-37c115d6fb32"], -Cell[26418, 886, 208, 4, 75, "Output",ExpressionUUID->"d8d811d3-a53a-4ef4-83cc-0cbd8df3c70c"] +Cell[26597, 810, 305, 5, 36, "Input",ExpressionUUID->"130ce0b5-ee01-4346-b901-37c115d6fb32"], +Cell[26905, 817, 230, 4, 41, "Output",ExpressionUUID->"41f00018-ec5a-40bc-a2eb-762b6b3dee6a"] }, Open ]], -Cell[26641, 893, 177, 3, 66, "Input",ExpressionUUID->"3ed15dd7-c424-4df4-a6bf-dfa7e6aeb2ec"], +Cell[27150, 824, 173, 2, 36, "Input",ExpressionUUID->"3ed15dd7-c424-4df4-a6bf-dfa7e6aeb2ec"], Cell[CellGroupData[{ -Cell[26843, 900, 310, 6, 66, "Input",ExpressionUUID->"df1a2442-03ec-4485-8944-b236bed6503a"], -Cell[27156, 908, 208, 4, 75, "Output",ExpressionUUID->"e656085c-524a-4f01-9cf0-5bdfb977c8db"] +Cell[27348, 830, 306, 5, 36, "Input",ExpressionUUID->"df1a2442-03ec-4485-8944-b236bed6503a"], +Cell[27657, 837, 230, 4, 41, "Output",ExpressionUUID->"fdc81489-3fa3-4a14-993e-6c6a058b4fdc"] }, Open ]], -Cell[27379, 915, 176, 3, 66, "Input",ExpressionUUID->"a234e16c-16de-4a73-9e28-91279f7e26f3"], +Cell[27902, 844, 172, 2, 36, "Input",ExpressionUUID->"a234e16c-16de-4a73-9e28-91279f7e26f3"], Cell[CellGroupData[{ -Cell[27580, 922, 278, 5, 66, "Input",ExpressionUUID->"ebcd049d-92ed-452d-bb22-180ce6be5688"], -Cell[27861, 929, 207, 4, 75, "Output",ExpressionUUID->"d8ddea09-4296-4828-8bba-f955ce32150e"] +Cell[28099, 850, 274, 4, 36, "Input",ExpressionUUID->"ebcd049d-92ed-452d-bb22-180ce6be5688"], +Cell[28376, 856, 229, 4, 41, "Output",ExpressionUUID->"a033c0f5-2295-4821-a6f4-6946ec8df6e9"] }, Open ]], -Cell[28083, 936, 179, 3, 66, "Input",ExpressionUUID->"fb171c90-d58d-46a3-835f-4205c35564bb"], +Cell[28620, 863, 175, 2, 36, "Input",ExpressionUUID->"fb171c90-d58d-46a3-835f-4205c35564bb"], Cell[CellGroupData[{ -Cell[28287, 943, 19813, 486, 5405, "Input",ExpressionUUID->"3a22b78a-b793-4e2c-b868-4eb499f8ba16"], -Cell[48103, 1431, 249, 5, 75, "Output",ExpressionUUID->"91955a31-faab-4202-b29a-c9bb0fb8950b"] +Cell[28820, 869, 19809, 485, 3208, "Input",ExpressionUUID->"3a22b78a-b793-4e2c-b868-4eb499f8ba16"], +Cell[48632, 1356, 267, 4, 41, "Output",ExpressionUUID->"833b0865-e018-4425-8efe-19cbf4988cca"] }, Open ]], Cell[CellGroupData[{ -Cell[48389, 1441, 19752, 490, 5343, "Input",ExpressionUUID->"8fac76ff-18b4-4efc-bd89-766736fce3f6"], -Cell[68144, 1933, 247, 5, 75, "Output",ExpressionUUID->"1633a0ea-8e42-4d34-8c0f-6abb5a1f2a40"] +Cell[48936, 1365, 19748, 489, 3138, "Input",ExpressionUUID->"8fac76ff-18b4-4efc-bd89-766736fce3f6"], +Cell[68687, 1856, 265, 4, 41, "Output",ExpressionUUID->"220e9ece-a7c5-49a2-85bd-c59e59caf6da"] }, Open ]], Cell[CellGroupData[{ -Cell[68428, 1943, 19752, 484, 5342, "Input",ExpressionUUID->"fc31ed85-7cff-4467-889f-062e008e9d03"], -Cell[88183, 2429, 265, 6, 75, "Output",ExpressionUUID->"9f2a0b92-04f3-40c7-8cce-aa5f0fce9176"] +Cell[68989, 1865, 19748, 483, 3198, "Input",ExpressionUUID->"fc31ed85-7cff-4467-889f-062e008e9d03"], +Cell[88740, 2350, 283, 5, 41, "Output",ExpressionUUID->"d7a4c865-d498-4847-9fbc-cb56092cf515"] }, Open ]], Cell[CellGroupData[{ -Cell[88485, 2440, 22538, 554, 6074, "Input",ExpressionUUID->"13629225-859e-47c9-877e-db45c48a8bd0"], -Cell[111026, 2996, 267, 6, 75, "Output",ExpressionUUID->"7fc43723-8a9d-4494-98bc-7d5130838e66"] +Cell[89060, 2360, 22534, 553, 3677, "Input",ExpressionUUID->"13629225-859e-47c9-877e-db45c48a8bd0"], +Cell[111597, 2915, 285, 5, 41, "Output",ExpressionUUID->"e793c4ce-0505-48c0-8095-dc22747f538a"] }, Open ]], Cell[CellGroupData[{ -Cell[111330, 3007, 22539, 554, 6074, "Input",ExpressionUUID->"512cbaa5-9386-4f59-a7db-028ba9a21ddf"], -Cell[133872, 3563, 266, 6, 75, "Output",ExpressionUUID->"729795d9-94c0-44d1-8662-42c68cda0eaf"] +Cell[111919, 2925, 22535, 553, 3642, "Input",ExpressionUUID->"512cbaa5-9386-4f59-a7db-028ba9a21ddf"], +Cell[134457, 3480, 284, 5, 41, "Output",ExpressionUUID->"df7246d4-44da-4f14-ace2-26daa9cb4ba3"] }, Open ]], Cell[CellGroupData[{ -Cell[134175, 3574, 25495, 627, 6806, "Input",ExpressionUUID->"1a5227a1-c926-4069-a1d5-d03f382f066c"], -Cell[159673, 4203, 265, 6, 75, "Output",ExpressionUUID->"78ee98f3-1818-4c66-8b49-6dcdadee4e72"] +Cell[134778, 3490, 25491, 626, 4121, "Input",ExpressionUUID->"1a5227a1-c926-4069-a1d5-d03f382f066c"], +Cell[160272, 4118, 283, 5, 41, "Output",ExpressionUUID->"04674d7f-6a70-4e55-879f-fb9b8622b258"] }, Open ]], Cell[CellGroupData[{ -Cell[159975, 4214, 134, 3, 66, "Input",ExpressionUUID->"a81b405e-908a-4134-8186-ca0385930fec"], -Cell[160112, 4219, 229, 5, 75, "Output",ExpressionUUID->"a85b9f1e-fc5d-4bad-9482-330b98467bb1"] +Cell[160592, 4128, 130, 2, 36, "Input",ExpressionUUID->"a81b405e-908a-4134-8186-ca0385930fec"], +Cell[160725, 4132, 247, 4, 41, "Output",ExpressionUUID->"b944db0f-f9bc-4096-a466-6dc764a6b031"] }, Open ]], Cell[CellGroupData[{ -Cell[160378, 4229, 134, 3, 66, "Input",ExpressionUUID->"8476bf90-e525-462a-94d7-cee096eb3e2e"], -Cell[160515, 4234, 232, 5, 75, "Output",ExpressionUUID->"1e74e985-696f-49c2-8cb3-a86f2ec6431f"] +Cell[161009, 4141, 130, 2, 36, "Input",ExpressionUUID->"8476bf90-e525-462a-94d7-cee096eb3e2e"], +Cell[161142, 4145, 252, 4, 41, "Output",ExpressionUUID->"bed2d114-47d7-465f-b2a2-6e11f4ab5bb8"] }, Open ]], Cell[CellGroupData[{ -Cell[160784, 4244, 1148, 40, 246, "Input",ExpressionUUID->"f94be985-7258-476c-a16d-33c95def05a9"], -Cell[161935, 4286, 246, 5, 75, "Output",ExpressionUUID->"a4d9c36b-7e86-4def-a38a-fa19d3b07c09"] +Cell[161431, 4154, 1144, 39, 144, "Input",ExpressionUUID->"f94be985-7258-476c-a16d-33c95def05a9"], +Cell[162578, 4195, 264, 4, 41, "Output",ExpressionUUID->"860fa864-3d25-4140-908c-8d6f73deacec"] }, Open ]], Cell[CellGroupData[{ -Cell[162218, 4296, 1045, 36, 246, "Input",ExpressionUUID->"bf0647ef-26aa-4c15-a477-69c327e17cdd"], -Cell[163266, 4334, 262, 6, 75, "Output",ExpressionUUID->"923be44c-8e98-4e0d-b2a3-a5f96e8421a1"] +Cell[162879, 4204, 1041, 35, 144, "Input",ExpressionUUID->"bf0647ef-26aa-4c15-a477-69c327e17cdd"], +Cell[163923, 4241, 280, 5, 41, "Output",ExpressionUUID->"0fe28a0f-85de-493f-b924-2ca861ad130d"] }, Open ]], Cell[CellGroupData[{ -Cell[163565, 4345, 1148, 40, 246, "Input",ExpressionUUID->"f6cd6589-21f0-4053-bef6-51735a9b5449"], -Cell[164716, 4387, 250, 5, 75, "Output",ExpressionUUID->"a96f0478-8fe4-4973-a87e-4278b1226073"] +Cell[164240, 4251, 1144, 39, 144, "Input",ExpressionUUID->"f6cd6589-21f0-4053-bef6-51735a9b5449"], +Cell[165387, 4292, 267, 4, 41, "Output",ExpressionUUID->"8bff9adf-9bfc-4435-8c11-7b51fb8d0fd3"] }, Open ]], Cell[CellGroupData[{ -Cell[165003, 4397, 112, 2, 66, "Input",ExpressionUUID->"e20a649a-72ab-4a99-926e-2ea1ca52f590"], -Cell[165118, 4401, 248, 5, 75, "Output",ExpressionUUID->"b13cf7ef-97a3-4fef-813b-8c1db0a06b3b"] +Cell[165691, 4301, 108, 1, 36, "Input",ExpressionUUID->"e20a649a-72ab-4a99-926e-2ea1ca52f590"], +Cell[165802, 4304, 266, 4, 41, "Output",ExpressionUUID->"a3e382e7-11a3-4bc7-977b-8b09d2cf60cf"] }, Open ]], Cell[CellGroupData[{ -Cell[165403, 4411, 112, 2, 66, "Input",ExpressionUUID->"c216a986-3947-47c3-b8dd-a24331214a74"], -Cell[165518, 4415, 266, 6, 75, "Output",ExpressionUUID->"9193edb0-aa30-41e4-8af4-74da1445e38d"] +Cell[166105, 4313, 108, 1, 36, "Input",ExpressionUUID->"c216a986-3947-47c3-b8dd-a24331214a74"], +Cell[166216, 4316, 284, 5, 41, "Output",ExpressionUUID->"08924887-dc65-4952-b3b5-f384b789947d"] }, Open ]], Cell[CellGroupData[{ -Cell[165821, 4426, 112, 2, 66, "Input",ExpressionUUID->"2d85275b-6b14-40bf-b4e6-ba346d30ba60"], -Cell[165936, 4430, 262, 6, 75, "Output",ExpressionUUID->"6a02038d-b071-4c7a-a75e-b6e5eef0ac69"] +Cell[166537, 4326, 108, 1, 36, "Input",ExpressionUUID->"2d85275b-6b14-40bf-b4e6-ba346d30ba60"], +Cell[166648, 4329, 279, 5, 41, "Output",ExpressionUUID->"d154f816-6c9e-49cb-a9ee-a07812560c07"] }, Open ]], Cell[CellGroupData[{ -Cell[166235, 4441, 112, 2, 66, "Input",ExpressionUUID->"71d44f1e-c44c-4d18-8fc2-d9a46f6a7caa"], -Cell[166350, 4445, 248, 5, 75, "Output",ExpressionUUID->"7e2a630b-3c94-4242-871a-4d4a5a53ae8e"] +Cell[166964, 4339, 108, 1, 36, "Input",ExpressionUUID->"71d44f1e-c44c-4d18-8fc2-d9a46f6a7caa"], +Cell[167075, 4342, 265, 4, 41, "Output",ExpressionUUID->"d8e9fd92-b8ab-4c29-9065-c24875b0814d"] }, Open ]], Cell[CellGroupData[{ -Cell[166635, 4455, 111, 2, 66, "Input",ExpressionUUID->"35c8bcf6-abaa-4803-abe7-7e6df3c9cf0c"], -Cell[166749, 4459, 225, 4, 75, "Output",ExpressionUUID->"9dcbb3fa-0a05-4dd9-bb91-0b2127d354e1"] +Cell[167377, 4351, 107, 1, 36, "Input",ExpressionUUID->"35c8bcf6-abaa-4803-abe7-7e6df3c9cf0c"], +Cell[167487, 4354, 249, 4, 41, "Output",ExpressionUUID->"382cfb36-264c-4e29-ba4a-04c67822e57c"] }, Open ]], Cell[CellGroupData[{ -Cell[167011, 4468, 111, 2, 66, "Input",ExpressionUUID->"14b6da05-6584-437e-b3a2-fd9e0032b3af"], -Cell[167125, 4472, 221, 4, 75, "Output",ExpressionUUID->"5fe74dca-1a92-4ec0-b98c-12f909610fe1"] +Cell[167773, 4363, 107, 1, 36, "Input",ExpressionUUID->"14b6da05-6584-437e-b3a2-fd9e0032b3af"], +Cell[167883, 4366, 245, 4, 41, "Output",ExpressionUUID->"6d1f7a96-5953-4885-89e2-5a005f533841"] }, Open ]], Cell[CellGroupData[{ -Cell[167383, 4481, 501, 17, 125, "Input",ExpressionUUID->"d7e311d0-fe21-4a3a-8842-37001bc0d559"], -Cell[167887, 4500, 238, 5, 75, "Output",ExpressionUUID->"0ac2c732-d5c7-4f63-900c-51d6c1304ea0"] +Cell[168165, 4375, 497, 16, 71, "Input",ExpressionUUID->"d7e311d0-fe21-4a3a-8842-37001bc0d559"], +Cell[168665, 4393, 260, 5, 41, "Output",ExpressionUUID->"e8cc8369-960b-4cb4-99bb-e79f6d61495c"] }, Open ]], Cell[CellGroupData[{ -Cell[168162, 4510, 501, 17, 125, "Input",ExpressionUUID->"d26ec46e-58d9-4e8e-bf31-e532b8d3261c"], -Cell[168666, 4529, 238, 5, 41, "Output",ExpressionUUID->"050c4da5-9b96-4c6f-88c4-3e5ea241d76a"] +Cell[168962, 4403, 497, 16, 71, "Input",ExpressionUUID->"d26ec46e-58d9-4e8e-bf31-e532b8d3261c"], +Cell[169462, 4421, 262, 5, 41, "Output",ExpressionUUID->"80192594-2bd5-49ea-8c39-4267ea69476b"] }, Open ]], Cell[CellGroupData[{ -Cell[168941, 4539, 1792, 61, 142, "Input",ExpressionUUID->"7bc3c456-5e98-458e-a765-50ef323a8d69"], -Cell[170736, 4602, 219, 4, 41, "Output",ExpressionUUID->"698d6641-bcba-4a98-b5d5-ef9cf9a37140"] +Cell[169761, 4431, 1788, 60, 340, "Input",ExpressionUUID->"7bc3c456-5e98-458e-a765-50ef323a8d69"], +Cell[171552, 4493, 241, 4, 41, "Output",ExpressionUUID->"62bcd168-5b86-4507-8f69-ed8b8b3a61d3"] }, Open ]], Cell[CellGroupData[{ -Cell[170992, 4611, 1105, 37, 73, "Input",ExpressionUUID->"e42625ee-4eb9-48fb-a3b3-206c107c36f1"], -Cell[172100, 4650, 238, 5, 41, "Output",ExpressionUUID->"8fd3918b-56b9-46be-9f6a-7d8d438d2737"] +Cell[171830, 4502, 1101, 36, 174, "Input",ExpressionUUID->"e42625ee-4eb9-48fb-a3b3-206c107c36f1"], +Cell[172934, 4540, 260, 5, 41, "Output",ExpressionUUID->"078df1e6-efdc-4ce7-aa1c-1151352d2f7f"] }, Open ]], Cell[CellGroupData[{ -Cell[172375, 4660, 1822, 62, 144, "Input",ExpressionUUID->"577572a2-9d9b-4146-b62c-6811bf661235"], -Cell[174200, 4724, 217, 4, 41, "Output",ExpressionUUID->"51614b2f-f889-45cb-a290-f23ace627243"] +Cell[173231, 4550, 1818, 61, 340, "Input",ExpressionUUID->"577572a2-9d9b-4146-b62c-6811bf661235"], +Cell[175052, 4613, 239, 4, 41, "Output",ExpressionUUID->"caa076cf-b63a-458e-8b96-89fad9031de7"] }, Open ]], Cell[CellGroupData[{ -Cell[174454, 4733, 1635, 54, 101, "Input",ExpressionUUID->"60c953d6-0a51-47eb-9807-9b0b90eff906"], -Cell[176092, 4789, 222, 4, 41, "Output",ExpressionUUID->"dec8fdd5-5e54-4610-9cb6-e5bcd4842e75"] +Cell[175328, 4622, 1631, 53, 208, "Input",ExpressionUUID->"60c953d6-0a51-47eb-9807-9b0b90eff906"], +Cell[176962, 4677, 244, 4, 41, "Output",ExpressionUUID->"804001bd-a5e6-4932-8d14-ec8f7ca6d658"] }, Open ]], Cell[CellGroupData[{ -Cell[176351, 4798, 1635, 54, 101, "Input",ExpressionUUID->"e3811601-4365-4ef4-ac4c-c4c828a9660c"], -Cell[177989, 4854, 219, 4, 41, "Output",ExpressionUUID->"fee1019a-a3ba-48d1-a327-daccfa027098"] +Cell[177243, 4686, 1631, 53, 208, "Input",ExpressionUUID->"e3811601-4365-4ef4-ac4c-c4c828a9660c"], +Cell[178877, 4741, 243, 4, 41, "Output",ExpressionUUID->"ccc28173-63fe-4a09-beaa-79128e238bbb"] }, Open ]], -Cell[178223, 4861, 250, 5, 56, "Input",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], -Cell[178476, 4868, 253, 5, 56, "Input",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], Cell[CellGroupData[{ -Cell[178754, 4877, 1301, 43, 61, "Input",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], -Cell[180058, 4922, 178, 3, 41, "Output",ExpressionUUID->"1db85c02-7ca3-154e-854d-2c36f89709c4"] +Cell[179157, 4750, 271, 5, 56, "Input",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], +Cell[179431, 4757, 161, 2, 41, "Output",ExpressionUUID->"61e68a66-4c1b-4d2d-b2a5-731a65aaa52a"] }, Open ]], Cell[CellGroupData[{ -Cell[180273, 4930, 910, 31, 73, "Input",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], -Cell[181186, 4963, 175, 3, 41, "Output",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] +Cell[179629, 4764, 274, 5, 56, "Input",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], +Cell[179906, 4771, 161, 2, 41, "Output",ExpressionUUID->"c951ec82-05e1-4501-977f-c2abd8a3214d"] }, Open ]], Cell[CellGroupData[{ -Cell[181398, 4971, 885, 30, 73, "Input",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], -Cell[182286, 5003, 177, 3, 41, "Output",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] +Cell[180104, 4778, 1297, 42, 174, "Input",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], +Cell[181404, 4822, 193, 2, 41, "Output",ExpressionUUID->"4e0eb1d0-29c2-4456-92b9-616eb491fc18"] }, Open ]], Cell[CellGroupData[{ -Cell[182500, 5011, 558, 19, 66, "Input",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], -Cell[183061, 5032, 173, 3, 41, "Output",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] +Cell[181634, 4829, 929, 30, 128, "Input",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], +Cell[182566, 4861, 193, 2, 41, "Output",ExpressionUUID->"4f9a65ed-89e2-40cf-bf53-34d817e83288"] }, Open ]], Cell[CellGroupData[{ -Cell[183271, 5040, 623, 21, 66, "Input",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], -Cell[183897, 5063, 170, 3, 41, "Output",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +Cell[182796, 4868, 904, 29, 128, "Input",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], +Cell[183703, 4899, 198, 2, 41, "Output",ExpressionUUID->"1b5ad5d2-ad5e-4a34-9ef0-452c21f71961"] }, Open ]], Cell[CellGroupData[{ -Cell[184104, 5071, 170, 5, 71, "Input",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], -Cell[184277, 5078, 173, 3, 41, "Output",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +Cell[183938, 4906, 554, 18, 66, "Input",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], +Cell[184495, 4926, 190, 2, 41, "Output",ExpressionUUID->"66f4cd22-9693-481f-b492-d7e3fd346002"] }, Open ]], Cell[CellGroupData[{ -Cell[184487, 5086, 170, 5, 69, "Input",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], -Cell[184660, 5093, 170, 3, 41, "Output",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +Cell[184722, 4933, 619, 20, 66, "Input",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], +Cell[185344, 4955, 188, 2, 41, "Output",ExpressionUUID->"0db0dcd5-36bb-44f9-81db-efd0bacec535"] }, Open ]], Cell[CellGroupData[{ -Cell[184867, 5101, 181, 5, 55, "Input",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], -Cell[185051, 5108, 171, 3, 41, "Output",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +Cell[185569, 4962, 166, 4, 71, "Input",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], +Cell[185738, 4968, 190, 2, 41, "Output",ExpressionUUID->"71ede3a1-85e5-4e3d-8511-4a0b8035e3a4"] }, Open ]], Cell[CellGroupData[{ -Cell[185259, 5116, 181, 5, 55, "Input",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], -Cell[185443, 5123, 173, 3, 41, "Output",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +Cell[185965, 4975, 166, 4, 69, "Input",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], +Cell[186134, 4981, 187, 2, 41, "Output",ExpressionUUID->"b5ecf63f-d8f1-4d16-8b13-34201e174f18"] }, Open ]], Cell[CellGroupData[{ -Cell[185653, 5131, 6055, 185, 431, "Input",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], -Cell[191711, 5318, 175, 3, 41, "Output",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +Cell[186358, 4988, 177, 4, 55, "Input",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], +Cell[186538, 4994, 189, 2, 41, "Output",ExpressionUUID->"e251a297-34bc-434c-ab7e-e2c44a26f6af"] }, Open ]], Cell[CellGroupData[{ -Cell[191923, 5326, 368, 9, 53, "Input",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], -Cell[192294, 5337, 170, 3, 41, "Output",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +Cell[186764, 5001, 177, 4, 55, "Input",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], +Cell[186944, 5007, 191, 2, 41, "Output",ExpressionUUID->"d3a86e24-9cc1-4d14-a4fe-ee7c1ef6f501"] }, Open ]], Cell[CellGroupData[{ -Cell[192501, 5345, 6122, 187, 431, "Input",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], -Cell[198626, 5534, 175, 3, 41, "Output",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +Cell[187172, 5014, 6051, 184, 831, "Input",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], +Cell[193226, 5200, 192, 2, 41, "Output",ExpressionUUID->"d78227e2-df31-44ad-85eb-4179c9b76b6d"] }, Open ]], Cell[CellGroupData[{ -Cell[198838, 5542, 368, 9, 53, "Input",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], -Cell[199209, 5553, 172, 3, 41, "Output",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +Cell[193455, 5207, 364, 8, 53, "Input",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], +Cell[193822, 5217, 188, 2, 41, "Output",ExpressionUUID->"30bde8f4-bfcc-43d2-9a93-10df2bbc6392"] }, Open ]], Cell[CellGroupData[{ -Cell[199418, 5561, 2663, 88, 215, "Input",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], -Cell[202084, 5651, 173, 3, 41, "Output",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +Cell[194047, 5224, 6118, 186, 900, "Input",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], +Cell[200168, 5412, 193, 2, 41, "Output",ExpressionUUID->"50e04f1e-500f-4137-bcc9-3aedd0c5aa92"] }, Open ]], Cell[CellGroupData[{ -Cell[202294, 5659, 2603, 85, 215, "Input",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], -Cell[204900, 5746, 172, 3, 41, "Output",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +Cell[200398, 5419, 364, 8, 53, "Input",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], +Cell[200765, 5429, 192, 2, 41, "Output",ExpressionUUID->"5bf56199-e475-45ce-9bb6-a18d754cb31c"] }, Open ]], Cell[CellGroupData[{ -Cell[205109, 5754, 3712, 118, 316, "Input",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], -Cell[208824, 5874, 174, 3, 41, "Output",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] +Cell[200994, 5436, 2659, 87, 435, "Input",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], +Cell[203656, 5525, 193, 2, 41, "Output",ExpressionUUID->"a8f817ad-e34f-4fb5-aa49-b660e57c50bf"] }, Open ]], -Cell[209013, 5880, 138, 3, 36, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], Cell[CellGroupData[{ -Cell[209176, 5887, 2052, 59, 116, "Input",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], -Cell[211231, 5948, 524, 11, 48, "Message",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], -Cell[211758, 5961, 526, 11, 48, "Message",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], -Cell[212287, 5974, 530, 11, 48, "Message",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], -Cell[212820, 5987, 455, 10, 26, "Message",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], -Cell[213278, 5999, 172, 3, 41, "Output",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +Cell[203886, 5532, 2599, 84, 435, "Input",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], +Cell[206488, 5618, 189, 2, 41, "Output",ExpressionUUID->"d29e1832-6acf-401c-875a-b7dbbe0e70a1"] }, Open ]], Cell[CellGroupData[{ -Cell[213487, 6007, 2054, 59, 116, "Input",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], -Cell[215544, 6068, 524, 11, 48, "Message",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], -Cell[216071, 6081, 526, 11, 48, "Message",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], -Cell[216600, 6094, 528, 11, 48, "Message",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], -Cell[217131, 6107, 456, 10, 26, "Message",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], -Cell[217590, 6119, 170, 3, 41, "Output",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +Cell[206714, 5625, 3708, 117, 575, "Input",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], +Cell[210425, 5744, 193, 2, 41, "Output",ExpressionUUID->"764f3db5-edff-4112-8f64-4c8cc13d8de0"] }, Open ]], +Cell[210633, 5749, 160, 3, 36, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], Cell[CellGroupData[{ -Cell[217797, 6127, 1938, 53, 86, "Input",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], -Cell[219738, 6182, 19994, 375, 285, "Output",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +Cell[210818, 5756, 2071, 58, 276, "Input",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], +Cell[212892, 5816, 664, 14, 73, "Message",ExpressionUUID->"39444c3b-e721-4a2c-9e9b-1594de15851a"], +Cell[213559, 5832, 661, 14, 73, "Message",ExpressionUUID->"a2f09cac-91aa-4940-993f-dfeca1f8152c"], +Cell[214223, 5848, 662, 14, 73, "Message",ExpressionUUID->"5605eb0e-1b86-445f-885f-e94f9d59ebd9"], +Cell[214888, 5864, 488, 11, 32, "Message",ExpressionUUID->"794e9ccc-5a40-4f29-8953-db51d25afb0a"], +Cell[215379, 5877, 192, 2, 41, "Output",ExpressionUUID->"2ae74ff4-fa78-4ed7-803e-7610d430e226"] }, Open ]], Cell[CellGroupData[{ -Cell[239769, 6562, 2092, 60, 116, "Input",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], -Cell[241864, 6624, 490, 11, 48, "Message",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], -Cell[242357, 6637, 493, 11, 48, "Message",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], -Cell[242853, 6650, 508, 11, 33, "Message",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], -Cell[243364, 6663, 456, 10, 26, "Message",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], -Cell[243823, 6675, 61603, 1057, 290, "Output",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] +Cell[215608, 5884, 2073, 58, 276, "Input",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], +Cell[217684, 5944, 662, 14, 73, "Message",ExpressionUUID->"598883a6-1f32-4344-9bf0-8f13e3d6cc7d"], +Cell[218349, 5960, 662, 14, 73, "Message",ExpressionUUID->"a2914edb-a8d6-46d2-9fbc-9579fc40b6e8"], +Cell[219014, 5976, 662, 14, 73, "Message",ExpressionUUID->"f0bde1a3-9fe8-424a-a918-3cafa8b7dd9a"], +Cell[219679, 5992, 489, 11, 32, "Message",ExpressionUUID->"81378271-23b4-4235-b945-d93051ea5cbe"], +Cell[220171, 6005, 189, 2, 41, "Output",ExpressionUUID->"8420c759-3709-4c6a-a3f3-66ba519a69b4"] }, Open ]], -Cell[305441, 7735, 2522, 71, 160, "Input",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], -Cell[307966, 7808, 209, 5, 36, "Input",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], Cell[CellGroupData[{ -Cell[308200, 7817, 217, 7, 61, "Input",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], -Cell[308420, 7826, 169, 3, 41, "Output",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +Cell[220397, 6012, 2049, 54, 232, "Input",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], +Cell[222449, 6068, 20006, 375, 295, "Output",ExpressionUUID->"24259652-53d2-40cf-88f3-d4f0393b6d75"] }, Open ]], Cell[CellGroupData[{ -Cell[308626, 7834, 1816, 53, 116, "Input",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], -Cell[310445, 7889, 502, 11, 48, "Message",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], -Cell[310950, 7902, 506, 11, 48, "Message",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], -Cell[311459, 7915, 509, 11, 48, "Message",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], -Cell[311971, 7928, 456, 10, 26, "Message",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], -Cell[312430, 7940, 28560, 514, 290, "Output",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +Cell[242492, 6448, 2111, 59, 311, "Input",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], +Cell[244606, 6509, 537, 12, 71, "Message",ExpressionUUID->"b8d43f60-7e3f-4c4a-bd3a-f129cf247013"], +Cell[245146, 6523, 539, 12, 71, "Message",ExpressionUUID->"cc0f612d-b96b-4bdf-8c46-d5d3571b87b8"], +Cell[245688, 6537, 541, 12, 71, "Message",ExpressionUUID->"e9d830a0-1e8b-4afc-930c-7fc3c73aa171"], +Cell[246232, 6551, 488, 11, 32, "Message",ExpressionUUID->"51c7d1ef-5c39-483b-981d-9514b0b0f2f9"], +Cell[246723, 6564, 26077, 473, 290, "Output",ExpressionUUID->"1b5547a9-a0df-4878-8e73-b9ce80a74d5c"] }, Open ]], Cell[CellGroupData[{ -Cell[341027, 8459, 1616, 48, 86, "Input",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], -Cell[342646, 8509, 576, 12, 109, "Message",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], -Cell[343225, 8523, 582, 12, 109, "Message",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], -Cell[343810, 8537, 584, 12, 109, "Message",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], -Cell[344397, 8551, 458, 10, 109, "Message",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], -Cell[344858, 8563, 170, 3, 109, "Output",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +Cell[272837, 7042, 2543, 71, 316, "Input",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], +Cell[275383, 7115, 9492, 222, 298, "Output",ExpressionUUID->"173dc97b-b857-4b87-91bd-020b4cf096c3"] }, Open ]], Cell[CellGroupData[{ -Cell[345065, 8571, 2247, 64, 109, "Input",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], -Cell[347315, 8637, 522, 11, 109, "Message",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], -Cell[347840, 8650, 526, 11, 109, "Message",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], -Cell[348369, 8663, 528, 11, 109, "Message",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], -Cell[348900, 8676, 458, 10, 109, "Message",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], -Cell[349361, 8688, 175, 3, 109, "Output",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +Cell[284912, 7342, 228, 4, 36, "Input",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], +Cell[285143, 7348, 32439, 605, 290, "Output",ExpressionUUID->"58d84efb-cf02-425a-b350-0179c0fcd67b"] }, Open ]], Cell[CellGroupData[{ -Cell[349573, 8696, 2221, 64, 109, "Input",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], -Cell[351797, 8762, 522, 11, 109, "Message",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], -Cell[352322, 8775, 524, 11, 109, "Message",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], -Cell[352849, 8788, 528, 11, 109, "Message",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], -Cell[353380, 8801, 458, 10, 109, "Message",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], -Cell[353841, 8813, 170, 3, 109, "Output",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +Cell[317619, 7958, 236, 6, 61, "Input",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], +Cell[317858, 7966, 189, 2, 41, "Output",ExpressionUUID->"91fba6d1-773a-48d1-917d-6042a6408c11"] }, Open ]], Cell[CellGroupData[{ -Cell[354048, 8821, 2221, 64, 109, "Input",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], -Cell[356272, 8887, 524, 11, 109, "Message",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], -Cell[356799, 8900, 526, 11, 109, "Message",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], -Cell[357328, 8913, 530, 11, 109, "Message",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], -Cell[357861, 8926, 458, 10, 109, "Message",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], -Cell[358322, 8938, 171, 3, 109, "Output",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +Cell[318084, 7973, 1835, 52, 311, "Input",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], +Cell[319922, 8027, 538, 12, 71, "Message",ExpressionUUID->"0e38159c-c95a-4573-b172-b7a79a121df4"], +Cell[320463, 8041, 543, 12, 71, "Message",ExpressionUUID->"ae8006e3-3d25-4fe2-889f-17f725557628"], +Cell[321009, 8055, 546, 12, 71, "Message",ExpressionUUID->"3b11054f-0d20-42d6-b61b-96ea8d3e7976"], +Cell[321558, 8069, 487, 11, 32, "Message",ExpressionUUID->"698ec3a2-ab63-4a4f-9c2a-cd8b383c1155"], +Cell[322048, 8082, 28294, 512, 290, "Output",ExpressionUUID->"b1e3baa5-49dd-4eb7-8917-2a4725266ac7"] }, Open ]], Cell[CellGroupData[{ -Cell[358530, 8946, 215, 6, 109, "Input",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], -Cell[358748, 8954, 175, 3, 109, "Output",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] +Cell[350379, 8599, 1612, 47, 132, "Input",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], +Cell[351994, 8648, 660, 14, 73, "Message",ExpressionUUID->"d491a70a-c66e-49f2-8ae9-6788253e0d70"], +Cell[352657, 8664, 660, 14, 73, "Message",ExpressionUUID->"9d241c0e-bd08-4227-873f-97303595d130"], +Cell[353320, 8680, 660, 14, 73, "Message",ExpressionUUID->"c1d6ca94-f101-493b-b501-b8beacd6670a"], +Cell[353983, 8696, 488, 11, 32, "Message",ExpressionUUID->"1dde1657-58ff-48b7-a57b-9668f51e3172"], +Cell[354474, 8709, 190, 2, 41, "Output",ExpressionUUID->"837b6ca5-c0ca-4eb4-9476-6967d0b26a73"] }, Open ]], -Cell[358938, 8960, 245, 5, 109, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], Cell[CellGroupData[{ -Cell[359208, 8969, 623, 20, 109, "Input",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], -Cell[359834, 8991, 172, 3, 109, "Output",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +Cell[354701, 8716, 2266, 63, 348, "Input",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], +Cell[356970, 8781, 660, 14, 73, "Message",ExpressionUUID->"a73d2d50-81ed-45d6-810d-4be5f9452081"], +Cell[357633, 8797, 663, 14, 73, "Message",ExpressionUUID->"169dd951-edf5-4329-aa1e-fa1228a62e8c"], +Cell[358299, 8813, 663, 14, 73, "Message",ExpressionUUID->"116f2a1c-f5ff-40bc-b042-298c6a222fe2"], +Cell[358965, 8829, 488, 11, 32, "Message",ExpressionUUID->"c7af7006-6d82-4b99-910b-79bbc4fb21cc"], +Cell[359456, 8842, 189, 2, 41, "Output",ExpressionUUID->"c7babedf-d00f-4c62-bb1c-573b897060c4"] }, Open ]], Cell[CellGroupData[{ -Cell[360043, 8999, 170, 5, 109, "Input",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], -Cell[360216, 9006, 172, 3, 109, "Output",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +Cell[359682, 8849, 2233, 63, 348, "Input",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], +Cell[361918, 8914, 663, 14, 73, "Message",ExpressionUUID->"3b1fa1cd-b2ee-4d4a-a47e-99b0875f7984"], +Cell[362584, 8930, 663, 14, 73, "Message",ExpressionUUID->"6af57e3f-2d62-4080-8363-64c891937e3b"], +Cell[363250, 8946, 662, 14, 73, "Message",ExpressionUUID->"a27e6a69-0330-41a9-b6b4-533f26d3581f"], +Cell[363915, 8962, 490, 11, 32, "Message",ExpressionUUID->"166d6cf1-f9c7-463a-92ed-1bf3d107391f"], +Cell[364408, 8975, 193, 3, 41, "Output",ExpressionUUID->"3c28cb4b-f49d-4526-90e6-1ece141fb8ea"] }, Open ]], Cell[CellGroupData[{ -Cell[360425, 9014, 181, 5, 109, "Input",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], -Cell[360609, 9021, 172, 3, 109, "Output",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +Cell[364638, 8983, 2233, 63, 348, "Input",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], +Cell[366874, 9048, 665, 14, 73, "Message",ExpressionUUID->"61eff8bf-a79b-4673-bf8d-1d2d2b1dc70d"], +Cell[367542, 9064, 665, 14, 73, "Message",ExpressionUUID->"28437c1b-0c33-4780-b5da-b95162fad3fb"], +Cell[368210, 9080, 667, 14, 73, "Message",ExpressionUUID->"2ae3b0f3-e336-4cd4-a82f-06b88d31506d"], +Cell[368880, 9096, 492, 11, 32, "Message",ExpressionUUID->"3951dd7e-953f-44a3-8c94-7137cf473380"], +Cell[369375, 9109, 192, 3, 41, "Output",ExpressionUUID->"7b44c828-c018-4041-9f38-ac11aeb087b5"] }, Open ]], Cell[CellGroupData[{ -Cell[360818, 9029, 6055, 185, 109, "Input",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], -Cell[366876, 9216, 174, 3, 109, "Output",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +Cell[369604, 9117, 238, 6, 60, "Input",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], +Cell[369845, 9125, 196, 3, 41, "Output",ExpressionUUID->"e2ae8a2b-befd-492b-a3e1-09af3d856e47"] }, Open ]], +Cell[370056, 9131, 271, 6, 36, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], Cell[CellGroupData[{ -Cell[367087, 9224, 368, 9, 109, "Input",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], -Cell[367458, 9235, 173, 3, 109, "Output",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +Cell[370352, 9141, 623, 20, 66, "Input",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], +Cell[370978, 9163, 193, 3, 41, "Output",ExpressionUUID->"2ddb41d4-7af4-4c78-9e4f-c771b08a92ac"] }, Open ]], Cell[CellGroupData[{ -Cell[367668, 9243, 6122, 187, 109, "Input",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], -Cell[373793, 9432, 175, 3, 109, "Output",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +Cell[371208, 9171, 170, 5, 71, "Input",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], +Cell[371381, 9178, 195, 3, 41, "Output",ExpressionUUID->"c27db758-b346-4b01-8c61-5e8e8cf6ae26"] }, Open ]], Cell[CellGroupData[{ -Cell[374005, 9440, 368, 9, 109, "Input",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], -Cell[374376, 9451, 170, 3, 109, "Output",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +Cell[371613, 9186, 181, 5, 55, "Input",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], +Cell[371797, 9193, 196, 3, 41, "Output",ExpressionUUID->"2e5bfe4e-e348-4c8d-a634-c81053773f15"] }, Open ]], Cell[CellGroupData[{ -Cell[374583, 9459, 2663, 88, 109, "Input",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], -Cell[377249, 9549, 173, 3, 109, "Output",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +Cell[372030, 9201, 6055, 185, 831, "Input",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], +Cell[378088, 9388, 197, 3, 41, "Output",ExpressionUUID->"4c93d552-9d48-42ab-8b8f-08f18c26254a"] }, Open ]], Cell[CellGroupData[{ -Cell[377459, 9557, 2603, 85, 109, "Input",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], -Cell[380065, 9644, 172, 3, 109, "Output",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +Cell[378322, 9396, 368, 9, 53, "Input",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], +Cell[378693, 9407, 193, 3, 41, "Output",ExpressionUUID->"910b5d0a-719b-4336-b7e0-4a198242397e"] }, Open ]], Cell[CellGroupData[{ -Cell[380274, 9652, 3712, 118, 109, "Input",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], -Cell[383989, 9772, 174, 3, 109, "Output",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +Cell[378923, 9415, 6122, 187, 900, "Input",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], +Cell[385048, 9604, 195, 3, 41, "Output",ExpressionUUID->"85520de9-31db-49e5-a87e-615471b4f2ff"] }, Open ]], Cell[CellGroupData[{ -Cell[384200, 9780, 2052, 59, 109, "Input",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], -Cell[386255, 9841, 574, 12, 109, "Message",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], -Cell[386832, 9855, 580, 12, 109, "Message",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], -Cell[387415, 9869, 582, 12, 109, "Message",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], -Cell[388000, 9883, 456, 10, 109, "Message",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], -Cell[388459, 9895, 171, 3, 109, "Output",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +Cell[385280, 9612, 368, 9, 53, "Input",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], +Cell[385651, 9623, 194, 3, 41, "Output",ExpressionUUID->"5b289610-8bf0-4f83-be12-7721b2073ab8"] }, Open ]], Cell[CellGroupData[{ -Cell[388667, 9903, 2054, 59, 109, "Input",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], -Cell[390724, 9964, 574, 12, 109, "Message",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], -Cell[391301, 9978, 578, 12, 109, "Message",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], -Cell[391882, 9992, 582, 12, 109, "Message",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], -Cell[392467, 10006, 458, 10, 109, "Message",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], -Cell[392928, 10018, 169, 3, 109, "Output",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +Cell[385882, 9631, 2663, 88, 435, "Input",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], +Cell[388548, 9721, 197, 3, 41, "Output",ExpressionUUID->"6d63af8f-462a-405a-ae77-30ea97bb7df5"] }, Open ]], Cell[CellGroupData[{ -Cell[393134, 10026, 2030, 55, 109, "Input",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], -Cell[395167, 10083, 20326, 381, 109, "Output",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] +Cell[388782, 9729, 2603, 85, 435, "Input",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], +Cell[391388, 9816, 193, 3, 41, "Output",ExpressionUUID->"4c12ebdb-3703-4786-a34d-59c22fd09dc6"] }, Open ]], -Cell[415508, 10467, 2144, 61, 109, "Input",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], -Cell[417655, 10530, 138, 3, 109, "Input",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], Cell[CellGroupData[{ -Cell[417818, 10537, 1616, 48, 109, "Input",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], -Cell[419437, 10587, 592, 12, 109, "Message",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], -Cell[420032, 10601, 597, 12, 109, "Message",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], -Cell[420632, 10615, 599, 12, 109, "Message",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], -Cell[421234, 10629, 458, 10, 109, "Message",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], -Cell[421695, 10641, 172, 3, 109, "Output",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +Cell[391618, 9824, 3712, 118, 575, "Input",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], +Cell[395333, 9944, 197, 3, 41, "Output",ExpressionUUID->"4803cfe5-3414-4f69-8795-29798780753b"] }, Open ]], Cell[CellGroupData[{ -Cell[421904, 10649, 2249, 64, 109, "Input",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], -Cell[424156, 10715, 576, 12, 109, "Message",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], -Cell[424735, 10729, 580, 12, 109, "Message",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], -Cell[425318, 10743, 582, 12, 109, "Message",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], -Cell[425903, 10757, 456, 10, 109, "Message",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], -Cell[426362, 10769, 171, 3, 109, "Output",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +Cell[395567, 9952, 2075, 59, 276, "Input",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], +Cell[397645, 10013, 660, 14, 73, "Message",ExpressionUUID->"c3880054-3c95-4da0-ab1b-b3dc4d4336d5"], +Cell[398308, 10029, 664, 14, 73, "Message",ExpressionUUID->"45868b5f-b660-41a1-a661-3c11ef8e7d3d"], +Cell[398975, 10045, 662, 14, 73, "Message",ExpressionUUID->"cfc7d398-89fb-4665-9ef5-916f1107108f"], +Cell[399640, 10061, 490, 11, 32, "Message",ExpressionUUID->"d6856021-698f-4d7b-842c-c1bffa3328b5"], +Cell[400133, 10074, 192, 3, 41, "Output",ExpressionUUID->"3719349f-75b1-4248-9186-cb95fff810ea"] }, Open ]], Cell[CellGroupData[{ -Cell[426570, 10777, 2223, 64, 109, "Input",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], -Cell[428796, 10843, 574, 12, 109, "Message",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], -Cell[429373, 10857, 578, 12, 109, "Message",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], -Cell[429954, 10871, 580, 12, 109, "Message",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], -Cell[430537, 10885, 458, 10, 109, "Message",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], -Cell[430998, 10897, 173, 3, 109, "Output",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +Cell[400362, 10082, 2077, 59, 276, "Input",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], +Cell[402442, 10143, 661, 14, 73, "Message",ExpressionUUID->"774daf61-57ee-4885-b9b9-fd9a7293cfe1"], +Cell[403106, 10159, 664, 14, 73, "Message",ExpressionUUID->"4a02ca2b-2eb1-4289-8ccd-acc8091616ea"], +Cell[403773, 10175, 662, 14, 73, "Message",ExpressionUUID->"1069506f-2bb7-4f5d-b50f-f5dd0de70ab5"], +Cell[404438, 10191, 490, 11, 32, "Message",ExpressionUUID->"4b556ddc-aa93-478b-a127-35bc79f30c30"], +Cell[404931, 10204, 193, 3, 41, "Output",ExpressionUUID->"6028ccfd-47ac-41a3-8b95-aac168a1099f"] }, Open ]], Cell[CellGroupData[{ -Cell[431208, 10905, 2221, 64, 109, "Input",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], -Cell[433432, 10971, 574, 12, 109, "Message",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], -Cell[434009, 10985, 578, 12, 109, "Message",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], -Cell[434590, 10999, 582, 12, 109, "Message",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], -Cell[435175, 11013, 455, 10, 109, "Message",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], -Cell[435633, 11025, 170, 3, 109, "Output",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +Cell[405161, 10212, 2053, 55, 232, "Input",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], +Cell[407217, 10269, 20358, 381, 295, "Output",ExpressionUUID->"d3b5611d-a004-4f36-9d07-eb4e36803fe9"] }, Open ]], Cell[CellGroupData[{ -Cell[435840, 11033, 215, 6, 109, "Input",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], -Cell[436058, 11041, 174, 3, 109, "Output",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] +Cell[427612, 10655, 2166, 61, 311, "Input",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], +Cell[429781, 10718, 515, 12, 71, "Message",ExpressionUUID->"d764d0e8-3fdc-45e0-8c44-59906c6149b9"], +Cell[430299, 10732, 515, 12, 71, "Message",ExpressionUUID->"e2fb882f-415d-4b26-a956-c8295728c23b"], +Cell[430817, 10746, 518, 12, 71, "Message",ExpressionUUID->"dbffdea3-8e52-4a1d-84ae-19787e02441c"], +Cell[431338, 10760, 468, 11, 32, "Message",ExpressionUUID->"795ea063-7b47-40ba-ad54-b9e0115d6a4e"], +Cell[431809, 10773, 26606, 483, 290, "Output",ExpressionUUID->"804d50dd-7c1f-40b6-b59c-85f86d8f140e"] }, Open ]], -Cell[436247, 11047, 249, 5, 109, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], Cell[CellGroupData[{ -Cell[436521, 11056, 558, 19, 109, "Input",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], -Cell[437082, 11077, 169, 3, 109, "Output",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +Cell[458452, 11261, 164, 4, 36, "Input",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], +Cell[458619, 11267, 32989, 615, 290, "Output",ExpressionUUID->"e8870f92-ec7e-4265-9958-bbf0efa8258e"] }, Open ]], Cell[CellGroupData[{ -Cell[437288, 11085, 170, 5, 109, "Input",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], -Cell[437461, 11092, 173, 3, 109, "Output",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +Cell[491645, 11887, 1616, 48, 132, "Input",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], +Cell[493264, 11937, 664, 14, 73, "Message",ExpressionUUID->"9ff695aa-dcac-4930-a715-f2437b64a630"], +Cell[493931, 11953, 662, 14, 73, "Message",ExpressionUUID->"675e6b95-03e5-4f8e-ba6c-f9ca58194528"], +Cell[494596, 11969, 661, 14, 73, "Message",ExpressionUUID->"dbbe9c81-3851-4738-9fd0-bf426519bfda"], +Cell[495260, 11985, 492, 11, 32, "Message",ExpressionUUID->"e2adc5cd-caa6-419b-b5dc-8b9fc890249d"], +Cell[495755, 11998, 193, 3, 41, "Output",ExpressionUUID->"a92885d9-0953-401d-8134-1f8ae27287cd"] }, Open ]], Cell[CellGroupData[{ -Cell[437671, 11100, 181, 5, 109, "Input",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], -Cell[437855, 11107, 173, 3, 109, "Output",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +Cell[495985, 12006, 2272, 64, 348, "Input",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], +Cell[498260, 12072, 663, 14, 73, "Message",ExpressionUUID->"82da2cf8-57bd-4107-bac6-e465b25b1b56"], +Cell[498926, 12088, 664, 14, 73, "Message",ExpressionUUID->"a9017d10-8df0-44dc-abf2-df972b1ffdf4"], +Cell[499593, 12104, 666, 14, 73, "Message",ExpressionUUID->"5b2f3684-a0de-4524-872d-c782ae5db866"], +Cell[500262, 12120, 492, 11, 32, "Message",ExpressionUUID->"3f54748c-d3d9-442f-be7b-653d5437250a"], +Cell[500757, 12133, 194, 3, 41, "Output",ExpressionUUID->"32951458-77cf-4d39-a282-a1d0c6d76adb"] }, Open ]], Cell[CellGroupData[{ -Cell[438065, 11115, 6055, 185, 109, "Input",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], -Cell[444123, 11302, 174, 3, 109, "Output",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +Cell[500988, 12141, 2235, 63, 348, "Input",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], +Cell[503226, 12206, 663, 14, 73, "Message",ExpressionUUID->"b99fff45-eb9a-44fd-b557-1cce642d156b"], +Cell[503892, 12222, 662, 14, 73, "Message",ExpressionUUID->"71935bf1-57fe-48a5-a320-cceb0cb0bda4"], +Cell[504557, 12238, 662, 14, 73, "Message",ExpressionUUID->"571cbbed-f6e7-4cf0-b6ca-c22ad448db33"], +Cell[505222, 12254, 490, 11, 32, "Message",ExpressionUUID->"fcd892b1-35c7-4521-b74b-010764e3bed9"], +Cell[505715, 12267, 194, 3, 41, "Output",ExpressionUUID->"f46c1627-1c05-4783-918e-158f27952da8"] }, Open ]], Cell[CellGroupData[{ -Cell[444334, 11310, 368, 9, 109, "Input",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], -Cell[444705, 11321, 172, 3, 109, "Output",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +Cell[505946, 12275, 2233, 63, 348, "Input",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], +Cell[508182, 12340, 661, 14, 73, "Message",ExpressionUUID->"432dd1d8-a34d-42a7-9f50-769cd367cd72"], +Cell[508846, 12356, 662, 14, 73, "Message",ExpressionUUID->"2ffdcab4-ad13-4535-8728-80748bc43e24"], +Cell[509511, 12372, 664, 14, 73, "Message",ExpressionUUID->"fc833bce-de8b-4ae2-87d3-dfa7df951eb4"], +Cell[510178, 12388, 490, 11, 32, "Message",ExpressionUUID->"d2ee740c-4713-49ab-8e76-93021ee09fde"], +Cell[510671, 12401, 193, 3, 41, "Output",ExpressionUUID->"8f839b66-b3f9-4635-a295-2458fdba6e92"] }, Open ]], Cell[CellGroupData[{ -Cell[444914, 11329, 6122, 187, 109, "Input",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], -Cell[451039, 11518, 172, 3, 109, "Output",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +Cell[510901, 12409, 238, 6, 60, "Input",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], +Cell[511142, 12417, 197, 3, 41, "Output",ExpressionUUID->"94276e28-9881-4185-9874-9d9dec96f57d"] }, Open ]], +Cell[511354, 12423, 275, 6, 36, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], Cell[CellGroupData[{ -Cell[451248, 11526, 368, 9, 109, "Input",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], -Cell[451619, 11537, 170, 3, 109, "Output",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +Cell[511654, 12433, 558, 19, 66, "Input",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], +Cell[512215, 12454, 192, 3, 41, "Output",ExpressionUUID->"b58d8a87-af36-4ec3-9c5f-38061bf3dced"] }, Open ]], Cell[CellGroupData[{ -Cell[451826, 11545, 2663, 88, 109, "Input",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], -Cell[454492, 11635, 173, 3, 109, "Output",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +Cell[512444, 12462, 170, 5, 71, "Input",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], +Cell[512617, 12469, 195, 3, 41, "Output",ExpressionUUID->"ea8c3964-cb34-4453-aab5-dfaf41e1099a"] }, Open ]], Cell[CellGroupData[{ -Cell[454702, 11643, 2603, 85, 109, "Input",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], -Cell[457308, 11730, 172, 3, 109, "Output",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +Cell[512849, 12477, 181, 5, 55, "Input",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], +Cell[513033, 12484, 194, 3, 41, "Output",ExpressionUUID->"db2c7b22-948b-42eb-8a21-cfab581b01bb"] }, Open ]], Cell[CellGroupData[{ -Cell[457517, 11738, 3712, 118, 109, "Input",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], -Cell[461232, 11858, 172, 3, 109, "Output",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +Cell[513264, 12492, 6055, 185, 831, "Input",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], +Cell[519322, 12679, 196, 3, 41, "Output",ExpressionUUID->"a7b76739-1afb-4bf7-9bff-84d58b6b66f7"] }, Open ]], Cell[CellGroupData[{ -Cell[461441, 11866, 2052, 59, 109, "Input",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], -Cell[463496, 11927, 573, 12, 109, "Message",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], -Cell[464072, 11941, 573, 12, 109, "Message",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], -Cell[464648, 11955, 579, 12, 109, "Message",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], -Cell[465230, 11969, 458, 10, 109, "Message",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], -Cell[465691, 11981, 170, 3, 109, "Output",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +Cell[519555, 12687, 368, 9, 53, "Input",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], +Cell[519926, 12698, 194, 3, 41, "Output",ExpressionUUID->"bfed0050-a231-49c5-a318-ff9d62c88af0"] }, Open ]], Cell[CellGroupData[{ -Cell[465898, 11989, 2052, 59, 109, "Input",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], -Cell[467953, 12050, 573, 12, 109, "Message",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], -Cell[468529, 12064, 575, 12, 109, "Message",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], -Cell[469107, 12078, 579, 12, 109, "Message",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], -Cell[469689, 12092, 458, 10, 109, "Message",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], -Cell[470150, 12104, 169, 3, 109, "Output",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +Cell[520157, 12706, 6122, 187, 900, "Input",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], +Cell[526282, 12895, 196, 3, 41, "Output",ExpressionUUID->"8a4b7f1a-b483-46fb-890e-c07e94d2f4a4"] }, Open ]], Cell[CellGroupData[{ -Cell[470356, 12112, 2028, 55, 109, "Input",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], -Cell[472387, 12169, 20296, 381, 109, "Output",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +Cell[526515, 12903, 368, 9, 53, "Input",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], +Cell[526886, 12914, 192, 3, 41, "Output",ExpressionUUID->"9b6ae8ff-d606-4660-a67d-99046d1e6ca1"] }, Open ]], Cell[CellGroupData[{ -Cell[492720, 12555, 2146, 61, 109, "Input",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], -Cell[494869, 12618, 500, 11, 109, "Message",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], -Cell[495372, 12631, 505, 11, 109, "Message",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], -Cell[495880, 12644, 509, 11, 109, "Message",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], -Cell[496392, 12657, 458, 10, 109, "Message",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], -Cell[496853, 12669, 39609, 697, 109, "Output",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] +Cell[527115, 12922, 2663, 88, 435, "Input",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], +Cell[529781, 13012, 197, 3, 41, "Output",ExpressionUUID->"07410dac-38ab-44b3-b1c6-45947f6ef19d"] }, Open ]], -Cell[536477, 13369, 209, 5, 109, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], Cell[CellGroupData[{ -Cell[536711, 13378, 1616, 48, 109, "Input",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], -Cell[538330, 13428, 589, 12, 109, "Message",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], -Cell[538922, 13442, 595, 12, 109, "Message",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], -Cell[539520, 13456, 596, 12, 109, "Message",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], -Cell[540119, 13470, 458, 10, 109, "Message",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], -Cell[540580, 13482, 171, 3, 109, "Output",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +Cell[530015, 13020, 2603, 85, 435, "Input",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], +Cell[532621, 13107, 193, 3, 41, "Output",ExpressionUUID->"75d0d829-f4b8-43e4-adae-bb9f611f2957"] }, Open ]], Cell[CellGroupData[{ -Cell[540788, 13490, 2249, 64, 109, "Input",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], -Cell[543040, 13556, 573, 12, 109, "Message",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], -Cell[543616, 13570, 573, 12, 109, "Message",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], -Cell[544192, 13584, 579, 12, 109, "Message",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], -Cell[544774, 13598, 458, 10, 109, "Message",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], -Cell[545235, 13610, 174, 3, 109, "Output",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +Cell[532851, 13115, 3712, 118, 575, "Input",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], +Cell[536566, 13235, 197, 3, 41, "Output",ExpressionUUID->"d0a5e175-cc24-4e32-b436-5d6fa214aaf0"] }, Open ]], Cell[CellGroupData[{ -Cell[545446, 13618, 2221, 64, 109, "Input",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], -Cell[547670, 13684, 573, 12, 109, "Message",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], -Cell[548246, 13698, 575, 12, 109, "Message",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], -Cell[548824, 13712, 577, 12, 109, "Message",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], -Cell[549404, 13726, 456, 10, 109, "Message",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], -Cell[549863, 13738, 172, 3, 109, "Output",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +Cell[536800, 13243, 2075, 59, 276, "Input",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], +Cell[538878, 13304, 663, 14, 73, "Message",ExpressionUUID->"bee6a6f3-a6c2-452b-aad6-7ab7e713bdab"], +Cell[539544, 13320, 665, 14, 73, "Message",ExpressionUUID->"a46837fe-54f9-4b2d-93cf-c418cba01038"], +Cell[540212, 13336, 663, 14, 73, "Message",ExpressionUUID->"631786c1-283a-47c3-9b11-6ad07c34076d"], +Cell[540878, 13352, 491, 11, 32, "Message",ExpressionUUID->"2fe6bd83-d83e-4bd7-82a3-f91fbe343552"], +Cell[541372, 13365, 190, 3, 41, "Output",ExpressionUUID->"e738a7a9-2a5f-4c9c-8d0c-caabbc0ca840"] }, Open ]], Cell[CellGroupData[{ -Cell[550072, 13746, 2219, 64, 109, "Input",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], -Cell[552294, 13812, 571, 12, 109, "Message",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], -Cell[552868, 13826, 573, 12, 109, "Message",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], -Cell[553444, 13840, 579, 12, 109, "Message",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], -Cell[554026, 13854, 458, 10, 109, "Message",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], -Cell[554487, 13866, 172, 3, 109, "Output",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +Cell[541599, 13373, 2075, 59, 276, "Input",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], +Cell[543677, 13434, 665, 14, 73, "Message",ExpressionUUID->"2ff0fe0f-de25-4fdf-90e5-f71bdd1964e0"], +Cell[544345, 13450, 667, 14, 73, "Message",ExpressionUUID->"2e275ece-59fb-4892-a68b-2213b0dc7ffd"], +Cell[545015, 13466, 664, 14, 73, "Message",ExpressionUUID->"0582d5f2-ac71-4542-9e00-19e4179c91ba"], +Cell[545682, 13482, 492, 11, 32, "Message",ExpressionUUID->"6add6b6d-5233-40a7-9a52-3df9c699332d"], +Cell[546177, 13495, 192, 3, 41, "Output",ExpressionUUID->"dae5fd51-50f7-4abd-aab2-64ab6661888e"] }, Open ]], Cell[CellGroupData[{ -Cell[554696, 13874, 211, 6, 109, "Input",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], -Cell[554910, 13882, 174, 3, 109, "Output",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] -}, Open ]] +Cell[546406, 13503, 2051, 55, 232, "Input",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], +Cell[548460, 13560, 20436, 386, 295, "Output",ExpressionUUID->"fcf7c264-ebf0-44c8-95db-702c9c15ef88"] +}, Open ]], +Cell[CellGroupData[{ +Cell[568933, 13951, 2168, 61, 311, "Input",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], +Cell[571104, 14014, 538, 12, 71, "Message",ExpressionUUID->"863bac06-dfd6-4c26-9455-4298f8b51565"], +Cell[571645, 14028, 540, 12, 71, "Message",ExpressionUUID->"babeaace-6023-40d6-8710-b5fc04feb695"], +Cell[572188, 14042, 546, 12, 71, "Message",ExpressionUUID->"389d6c47-8bf7-4787-af02-a734f309b126"], +Cell[572737, 14056, 490, 11, 32, "Message",ExpressionUUID->"2e97379c-27e6-47af-ac95-11b8d9f524ea"], +Cell[573230, 14069, 25243, 462, 292, "Output",ExpressionUUID->"da0b5c1d-0e41-4aa5-8b2b-87082e160766"] +}, Open ]], +Cell[CellGroupData[{ +Cell[598510, 14536, 232, 5, 36, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], +Cell[598745, 14543, 31601, 594, 292, "Output",ExpressionUUID->"f5d599b6-90cb-49fa-aaee-497dc8d4d0f8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[630383, 15142, 1616, 48, 132, "Input",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], +Cell[632002, 15192, 663, 14, 73, "Message",ExpressionUUID->"90aa931f-bec0-44ad-8ead-5c9500544db7"], +Cell[632668, 15208, 661, 14, 73, "Message",ExpressionUUID->"c0eae3ec-0f27-493e-b497-c3f89e5027f1"], +Cell[633332, 15224, 664, 14, 73, "Message",ExpressionUUID->"b252b80c-3063-4fc2-81ff-da59110d5adb"], +Cell[633999, 15240, 489, 11, 32, "Message",ExpressionUUID->"49a562bd-c99e-4892-b93f-9f9edd854f84"], +Cell[634491, 15253, 196, 3, 41, "Output",ExpressionUUID->"23e3af56-0e8d-4e3d-9114-a20f92697094"] +}, Open ]], +Cell[CellGroupData[{ +Cell[634724, 15261, 2272, 64, 348, "Input",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], +Cell[636999, 15327, 665, 14, 73, "Message",ExpressionUUID->"ef5152f3-226e-4adc-9751-4f111816dc42"], +Cell[637667, 15343, 664, 14, 73, "Message",ExpressionUUID->"a66a4ee4-5b18-4764-8d0f-7f165997031f"], +Cell[638334, 15359, 664, 14, 73, "Message",ExpressionUUID->"da6fe290-e658-4089-8613-4d61c0fde38c"], +Cell[639001, 15375, 492, 11, 32, "Message",ExpressionUUID->"d644f72f-280c-4757-a2da-aab4b08149ac"], +Cell[639496, 15388, 195, 3, 41, "Output",ExpressionUUID->"9abc05a8-a4c7-42a8-91e2-9adec25d2ea4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[639728, 15396, 2233, 63, 348, "Input",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], +Cell[641964, 15461, 663, 14, 73, "Message",ExpressionUUID->"3650a97c-f749-4515-8402-4eafc763dc6e"], +Cell[642630, 15477, 665, 14, 73, "Message",ExpressionUUID->"b53c3fdd-2ed8-4ecd-a6e3-842ff4ba6802"], +Cell[643298, 15493, 664, 14, 73, "Message",ExpressionUUID->"dc7443f0-e8c9-4b57-ae70-e1d5a77e1a80"], +Cell[643965, 15509, 494, 11, 32, "Message",ExpressionUUID->"8aae41a2-6293-4891-8f20-d9c336ec1fcb"], +Cell[644462, 15522, 197, 3, 41, "Output",ExpressionUUID->"86893ab4-ec0d-40d6-a1a6-2f2ab31e0eeb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[644696, 15530, 2231, 63, 348, "Input",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], +Cell[646930, 15595, 663, 14, 73, "Message",ExpressionUUID->"ea94a4ab-5e9d-4160-838e-97e12cc0a32e"], +Cell[647596, 15611, 665, 14, 73, "Message",ExpressionUUID->"4e9d40cc-1a2c-4013-a826-2ff76ff2bd4d"], +Cell[648264, 15627, 661, 14, 73, "Message",ExpressionUUID->"07cad6b0-8a32-46c8-9ff1-c0563c92d9c2"], +Cell[648928, 15643, 490, 11, 32, "Message",ExpressionUUID->"ac3f8bb3-522d-4e44-8dd7-f354a52407af"], +Cell[649421, 15656, 194, 3, 41, "Output",ExpressionUUID->"2ef59377-847f-43c0-928f-89204e9557ff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[649652, 15664, 234, 6, 60, "Input",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], +Cell[649889, 15672, 196, 3, 41, "Output",ExpressionUUID->"40707485-44ff-4f84-b0c4-5e2624f5055b"] +}, Open ]], +Cell[650100, 15678, 143, 3, 36, "Input",ExpressionUUID->"21bdf2ef-d3cd-4c65-a567-6efe8d11ab56"] } ] *) diff --git a/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_gid_Qw2.nb b/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_gid_Qw2.nb index 6954233..6fb5bbd 100644 --- a/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_gid_Qw2.nb +++ b/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_gid_Qw2.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 436478, 13041] -NotebookOptionsPosition[ 398167, 12426] -NotebookOutlinePosition[ 398577, 12443] -CellTagsIndexPosition[ 398534, 12440] +NotebookDataLength[ 681338, 16242] +NotebookOptionsPosition[ 640751, 15593] +NotebookOutlinePosition[ 641180, 15611] +CellTagsIndexPosition[ 641137, 15608] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -26,15 +26,13 @@ Cell[BoxData[ 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, 3.9920650045886707`*^9, {3.9940821364341908`*^9, 3.994082136546945*^9}, { 3.99408222505837*^9, 3.9940822566678658`*^9}}, - CellLabel-> - "In[371]:=",ExpressionUUID->"7ea71dfd-b2c0-4b99-9aa3-8fe6de08e31e"], + CellLabel->"In[1]:=",ExpressionUUID->"7ea71dfd-b2c0-4b99-9aa3-8fe6de08e31e"], Cell[BoxData["1.85`"], "Output", CellChangeTimes->{ 3.991320420900818*^9, 3.9940821397588*^9, {3.9940822104439507`*^9, - 3.994082259420228*^9}}, - CellLabel-> - "Out[371]=",ExpressionUUID->"81a2eacd-9d1d-48e2-ab94-2bad96ae2f6d"] + 3.994082259420228*^9}, 3.994256411121896*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"6610a359-2e2a-4c0e-9e9a-897c0f3fad08"] }, Open ]], Cell[CellGroupData[{ @@ -43,15 +41,13 @@ Cell[BoxData[ RowBox[{"A", "=", "240"}]], "Input", CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { 3.99407306326154*^9, 3.994073063917366*^9}}, - CellLabel-> - "In[372]:=",ExpressionUUID->"f744b062-a40c-4b64-a45f-44b752e39e6b"], + CellLabel->"In[2]:=",ExpressionUUID->"f744b062-a40c-4b64-a45f-44b752e39e6b"], Cell[BoxData["240"], "Output", CellChangeTimes->{ 3.9913196497381973`*^9, 3.994082139815686*^9, {3.994082210466728*^9, - 3.994082259455925*^9}}, - CellLabel-> - "Out[372]=",ExpressionUUID->"c854fdee-9428-4c59-b580-f94cb8d630e4"] + 3.994082259455925*^9}, 3.9942564112874737`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"98749da7-7dc3-4617-9e33-87b59563e22f"] }, Open ]], Cell[CellGroupData[{ @@ -60,15 +56,13 @@ Cell[BoxData[ RowBox[{"A1", "=", "166"}]], "Input", CellChangeTimes->{ 3.991798961431202*^9, {3.9940730665357656`*^9, 3.994073067306501*^9}}, - CellLabel-> - "In[373]:=",ExpressionUUID->"87d1104e-cfce-4c88-a8ad-fc2fff981ee6"], + CellLabel->"In[3]:=",ExpressionUUID->"87d1104e-cfce-4c88-a8ad-fc2fff981ee6"], Cell[BoxData["166"], "Output", CellChangeTimes->{ 3.9913196497578354`*^9, 3.994082139825574*^9, {3.9940822104766827`*^9, - 3.994082259466858*^9}}, - CellLabel-> - "Out[373]=",ExpressionUUID->"138ffab8-de63-48d1-82c6-c8d1cf9d8609"] + 3.994082259466858*^9}, 3.9942564113062887`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"a6ff453e-4e3f-4c21-acc8-da241e170b97"] }, Open ]], Cell[CellGroupData[{ @@ -76,15 +70,13 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, - CellLabel-> - "In[374]:=",ExpressionUUID->"a03edf3b-1fe5-4172-acda-4468f3e2d00a"], + CellLabel->"In[4]:=",ExpressionUUID->"a03edf3b-1fe5-4172-acda-4468f3e2d00a"], Cell[BoxData["0.55`"], "Output", CellChangeTimes->{ 3.991319649777508*^9, 3.994082139835326*^9, {3.994082210487997*^9, - 3.994082259477521*^9}}, - CellLabel-> - "Out[374]=",ExpressionUUID->"d9ba2f63-9db3-4dac-9e3c-760355714cad"] + 3.994082259477521*^9}, 3.9942564113237743`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"2d31a81f-bcb5-4379-9463-8eb9a2b45908"] }, Open ]], Cell[CellGroupData[{ @@ -96,30 +88,26 @@ Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", - CellLabel-> - "In[375]:=",ExpressionUUID->"7bfced1d-dc51-4f78-a3d7-9e3af299f64b"], + CellLabel->"In[5]:=",ExpressionUUID->"7bfced1d-dc51-4f78-a3d7-9e3af299f64b"], Cell[BoxData["0.54425`"], "Output", CellChangeTimes->{ 3.9913196497965145`*^9, 3.994082139845067*^9, {3.994082210498448*^9, - 3.994082259487831*^9}}, - CellLabel-> - "Out[375]=",ExpressionUUID->"fe42cc1e-7f88-47be-85bf-06353305ab32"] + 3.994082259487831*^9}, 3.994256411341626*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"e709daf8-08f7-4363-b0cc-a951602e322c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", - CellLabel-> - "In[376]:=",ExpressionUUID->"6ee5abef-bbf2-4ee7-8c77-ed8b7108eb6f"], + CellLabel->"In[6]:=",ExpressionUUID->"6ee5abef-bbf2-4ee7-8c77-ed8b7108eb6f"], Cell[BoxData["0.17`"], "Output", CellChangeTimes->{ 3.9913196498144608`*^9, 3.994082139854616*^9, {3.99408221050937*^9, - 3.994082259497772*^9}}, - CellLabel-> - "Out[376]=",ExpressionUUID->"40f66af5-b8a1-4f57-aa94-f56ded6fa254"] + 3.994082259497772*^9}, 3.9942564113579206`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"4545d507-dc1b-444d-bf05-9ed292fe0679"] }, Open ]], Cell[CellGroupData[{ @@ -130,15 +118,13 @@ Cell[BoxData[ SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}]}]], "Input", CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, - CellLabel-> - "In[377]:=",ExpressionUUID->"67c8941d-038b-4734-96dd-fd4c619e69e3"], + CellLabel->"In[7]:=",ExpressionUUID->"67c8941d-038b-4734-96dd-fd4c619e69e3"], Cell[BoxData["6.3752030057102145`"], "Output", CellChangeTimes->{ 3.9913196498225155`*^9, 3.994082139865213*^9, {3.994082210519739*^9, - 3.994082259507691*^9}}, - CellLabel-> - "Out[377]=",ExpressionUUID->"bfe204e5-4bbd-4809-85e3-b2cdf8eb6c8e"] + 3.994082259507691*^9}, 3.9942564113762493`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"bd2b089a-2498-4f94-8384-a5370ac5f794"] }, Open ]], Cell[CellGroupData[{ @@ -150,15 +136,13 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", - CellLabel-> - "In[378]:=",ExpressionUUID->"350770d6-4a07-484d-a035-07b63503ebc9"], + CellLabel->"In[8]:=",ExpressionUUID->"350770d6-4a07-484d-a035-07b63503ebc9"], Cell[BoxData["4.870070286417752`"], "Output", CellChangeTimes->{ 3.9913196498425236`*^9, 3.99408213987599*^9, {3.9940822105302753`*^9, - 3.994082259517621*^9}}, - CellLabel-> - "Out[378]=",ExpressionUUID->"28cbd9ca-90f6-4e14-9e41-4d7db18e8830"] + 3.994082259517621*^9}, 3.994256411392906*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"384061f6-2bb4-4814-9e18-21ce2b6afa2d"] }, Open ]], Cell[CellGroupData[{ @@ -166,14 +150,13 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"b1", "=", "0.9035518425"}]], "Input", CellChangeTimes->{3.991799283179735*^9, 3.994073090925538*^9}, - CellLabel-> - "In[379]:=",ExpressionUUID->"d6ee75e6-5445-4bb6-8c64-24bb8eb48403"], + CellLabel->"In[9]:=",ExpressionUUID->"d6ee75e6-5445-4bb6-8c64-24bb8eb48403"], Cell[BoxData["0.9035518425`"], "Output", CellChangeTimes->{ - 3.994082139886828*^9, {3.9940822105402517`*^9, 3.9940822595277653`*^9}}, - CellLabel-> - "Out[379]=",ExpressionUUID->"f903acf0-62f4-423a-a0c2-a40f7fa3c61f"] + 3.994082139886828*^9, {3.9940822105402517`*^9, 3.9940822595277653`*^9}, + 3.994256411474238*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"ddd57056-ea2e-4285-8a44-a38fec61498b"] }, Open ]], Cell[CellGroupData[{ @@ -181,44 +164,39 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"b2", "=", "0.3863821951"}]], "Input", CellChangeTimes->{3.991799280663351*^9, 3.9940730962719193`*^9}, - CellLabel-> - "In[380]:=",ExpressionUUID->"ed81a5fb-4fb5-441e-87fd-36593f8700ad"], + CellLabel->"In[10]:=",ExpressionUUID->"ed81a5fb-4fb5-441e-87fd-36593f8700ad"], Cell[BoxData["0.3863821951`"], "Output", CellChangeTimes->{ - 3.994082139897403*^9, {3.994082210550373*^9, 3.994082259537862*^9}}, - CellLabel-> - "Out[380]=",ExpressionUUID->"d89e9ffe-9a18-42e1-ae70-f99b5276a16c"] + 3.994082139897403*^9, {3.994082210550373*^9, 3.994082259537862*^9}, + 3.994256411509263*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"ec3b9dba-b18a-4135-a8bc-6e83d3ab7aca"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", - CellLabel-> - "In[381]:=",ExpressionUUID->"b89827a4-258e-4003-b1e7-dab12555b42d"], + CellLabel->"In[11]:=",ExpressionUUID->"b89827a4-258e-4003-b1e7-dab12555b42d"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498927155`*^9, 3.994082139910328*^9, {3.994082210560801*^9, - 3.9940822595420103`*^9}}, - CellLabel-> - "Out[381]=",ExpressionUUID->"3b651afd-f0d2-49bf-a83e-77073070e7a5"] + 3.9940822595420103`*^9}, 3.994256411588451*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"747f53f9-994e-4662-9b16-258e6db87118"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", - CellLabel-> - "In[382]:=",ExpressionUUID->"2c7dfbf6-94b8-4a7d-986e-ad84ea648797"], + CellLabel->"In[12]:=",ExpressionUUID->"2c7dfbf6-94b8-4a7d-986e-ad84ea648797"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498996067`*^9, 3.9940821399224367`*^9, {3.994082210571288*^9, - 3.994082259554398*^9}}, - CellLabel-> - "Out[382]=",ExpressionUUID->"2b5bac7c-e751-4c70-9017-d2a196c9e1be"] + 3.994082259554398*^9}, 3.99425641167647*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"7b8a50a3-e39a-4ad5-85a2-4598dd505008"] }, Open ]], Cell[CellGroupData[{ @@ -242,15 +220,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[383]:=",ExpressionUUID->"29e5375a-e538-4e58-889c-bf8fa8867d96"], + CellLabel->"In[13]:=",ExpressionUUID->"29e5375a-e538-4e58-889c-bf8fa8867d96"], Cell[BoxData["2.315137197466896`"], "Output", CellChangeTimes->{ 3.9913197863028755`*^9, 3.994082139933848*^9, {3.994082210581699*^9, - 3.9940822595648727`*^9}}, - CellLabel-> - "Out[383]=",ExpressionUUID->"64a4086f-8a84-4e65-9ae6-0483e0df9121"] + 3.9940822595648727`*^9}, 3.9942564197441587`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"af2073f2-e1cc-4bb2-930e-299ccc57040c"] }, Open ]], Cell[CellGroupData[{ @@ -274,15 +250,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[384]:=",ExpressionUUID->"57c0b2c1-ed31-4f94-8a02-9684c242442f"], + CellLabel->"In[14]:=",ExpressionUUID->"57c0b2c1-ed31-4f94-8a02-9684c242442f"], Cell[BoxData["1.4220278650887666`"], "Output", CellChangeTimes->{ 3.9913197864610195`*^9, 3.994082139944078*^9, {3.9940822105866547`*^9, - 3.9940822595749483`*^9}}, - CellLabel-> - "Out[384]=",ExpressionUUID->"f8cc0204-44c5-46d2-bd0c-9c861f9e27ce"] + 3.9940822595749483`*^9}, 3.994256420440818*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"7023776d-4ca0-479b-81bc-60ab3851787e"] }, Open ]], Cell[CellGroupData[{ @@ -337,15 +311,13 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[385]:=",ExpressionUUID->"767361d1-eb20-4cfb-98e4-9db123ce2e7d"], + CellLabel->"In[15]:=",ExpressionUUID->"767361d1-eb20-4cfb-98e4-9db123ce2e7d"], Cell[BoxData["0.4069661562665162`"], "Output", CellChangeTimes->{ 3.991319786533783*^9, 3.994082139954578*^9, {3.994082210602051*^9, - 3.994082259585372*^9}}, - CellLabel-> - "Out[385]=",ExpressionUUID->"86293c25-45b0-4cf9-9f5a-68c0e992017c"] + 3.994082259585372*^9}, 3.994256420510438*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"0bb0f234-bb80-4cb1-a7c9-7e04fddb0be3"] }, Open ]], Cell[CellGroupData[{ @@ -396,16 +368,14 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[386]:=",ExpressionUUID->"727d1887-9bd0-4c99-95c1-beb0e6375c1b"], + CellLabel->"In[16]:=",ExpressionUUID->"727d1887-9bd0-4c99-95c1-beb0e6375c1b"], Cell[BoxData[ RowBox[{"-", "0.08563504168524437`"}]], "Output", CellChangeTimes->{ 3.991319786540777*^9, 3.9940821399653873`*^9, {3.994082210613337*^9, - 3.994082259596693*^9}}, - CellLabel-> - "Out[386]=",ExpressionUUID->"685ce0b8-9f2a-4a97-926d-aceede093559"] + 3.994082259596693*^9}, 3.994256420544284*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"cc6da59a-0348-476c-8d5d-481b9e0c7968"] }, Open ]], Cell[CellGroupData[{ @@ -456,16 +426,14 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[387]:=",ExpressionUUID->"70da0a4d-58d0-4c55-aee5-2bcedac5a936"], + CellLabel->"In[17]:=",ExpressionUUID->"70da0a4d-58d0-4c55-aee5-2bcedac5a936"], Cell[BoxData[ RowBox[{"-", "0.5841673375234483`"}]], "Output", CellChangeTimes->{ 3.9913197865777817`*^9, 3.9940821399780188`*^9, {3.9940822106256943`*^9, - 3.9940822596071453`*^9}}, - CellLabel-> - "Out[387]=",ExpressionUUID->"181f52e6-143c-43ce-9acc-60f4108b3908"] + 3.9940822596071453`*^9}, 3.994256420605824*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"6b88c532-07e1-49d0-8bbd-8efbbb190861"] }, Open ]], Cell[CellGroupData[{ @@ -520,60 +488,52 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[388]:=",ExpressionUUID->"327d6fe0-2042-4a7f-b513-35484052d306"], + CellLabel->"In[18]:=",ExpressionUUID->"327d6fe0-2042-4a7f-b513-35484052d306"], Cell[BoxData["0.7215005296935654`"], "Output", CellChangeTimes->{ 3.9913197866129*^9, 3.994082139989607*^9, {3.994082210635736*^9, - 3.99408225961747*^9}}, - CellLabel-> - "Out[388]=",ExpressionUUID->"b77a7590-9bc8-4829-8102-ce7119d4896b"] + 3.99408225961747*^9}, 3.994256420656721*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"173fab2b-5c83-4d67-b29f-c90cd6c07175"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", - CellLabel-> - "In[389]:=",ExpressionUUID->"314507d5-d2a6-4437-b833-cc091fec076c"], + CellLabel->"In[19]:=",ExpressionUUID->"314507d5-d2a6-4437-b833-cc091fec076c"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786620775*^9, 3.9940821399995413`*^9, {3.9940822106444807`*^9, - 3.994082259627829*^9}}, - CellLabel-> - "Out[389]=",ExpressionUUID->"99de46d3-6181-4398-bc8b-1fc407b43790"] + 3.994082259627829*^9}, 3.994256420710786*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"733c96be-68e9-4983-b896-cb123cab85e6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fin", "=", "0.09"}]], "Input", - CellLabel-> - "In[390]:=",ExpressionUUID->"25f8b60e-22fa-40de-a243-e04ff8d8f1f2"], + CellLabel->"In[20]:=",ExpressionUUID->"25f8b60e-22fa-40de-a243-e04ff8d8f1f2"], Cell[BoxData["0.09`"], "Output", CellChangeTimes->{ 3.991319786657793*^9, 3.994082140010191*^9, {3.994082210653286*^9, - 3.994082259638521*^9}}, - CellLabel-> - "Out[390]=",ExpressionUUID->"270143e0-b48e-4af5-87df-8fbbc7b2b850"] + 3.994082259638521*^9}, 3.9942564207576323`*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"cedac3e8-6702-4d33-b4e3-2226ed7cab35"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffin", "=", "0.42"}]], "Input", - CellLabel-> - "In[391]:=",ExpressionUUID->"aff68d39-bc98-4cd0-9dae-ed2e14ca7d7e"], + CellLabel->"In[21]:=",ExpressionUUID->"aff68d39-bc98-4cd0-9dae-ed2e14ca7d7e"], Cell[BoxData["0.42`"], "Output", CellChangeTimes->{ 3.9913197866657925`*^9, 3.9940821400205593`*^9, {3.9940822106620293`*^9, - 3.9940822596489058`*^9}}, - CellLabel-> - "Out[391]=",ExpressionUUID->"b6186fcd-533f-4010-a90c-33d87bd24f86"] + 3.9940822596489058`*^9}, 3.994256420887247*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"232c7bda-e978-4267-b2ee-04130810f1ee"] }, Open ]], Cell[CellGroupData[{ @@ -582,31 +542,27 @@ Cell[BoxData[ RowBox[{"fex", "=", RowBox[{"-", "2.59"}]}]], "Input", CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, - CellLabel-> - "In[392]:=",ExpressionUUID->"cb5aa02e-499e-4c4d-ab29-10796a7bea54"], + CellLabel->"In[22]:=",ExpressionUUID->"cb5aa02e-499e-4c4d-ab29-10796a7bea54"], Cell[BoxData[ RowBox[{"-", "2.59`"}]], "Output", CellChangeTimes->{ 3.9913197866996*^9, 3.994082140031045*^9, {3.994082210671171*^9, - 3.994082259659958*^9}}, - CellLabel-> - "Out[392]=",ExpressionUUID->"bd96c79f-a70d-4ab2-8f41-31729e1b35f7"] + 3.994082259659958*^9}, 3.994256420934781*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"5a08a78e-1a13-4ca3-81ab-c1e1509b9b18"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffex", "=", "0.54"}]], "Input", - CellLabel-> - "In[393]:=",ExpressionUUID->"0c85b4d0-4691-427b-9705-930c99976335"], + CellLabel->"In[23]:=",ExpressionUUID->"0c85b4d0-4691-427b-9705-930c99976335"], Cell[BoxData["0.54`"], "Output", CellChangeTimes->{ 3.9913197867406044`*^9, 3.994082140043984*^9, {3.9940822106801777`*^9, - 3.994082259671282*^9}}, - CellLabel-> - "Out[393]=",ExpressionUUID->"ab9adafe-4a0f-4754-8f9b-76604838f892"] + 3.994082259671282*^9}, 3.994256420978793*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"ead4041c-8272-4def-beaa-7a8c3517b510"] }, Open ]], Cell[CellGroupData[{ @@ -616,15 +572,13 @@ Cell[BoxData[ CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { 3.9940731043812733`*^9, 3.994073104508005*^9}}, - CellLabel-> - "In[394]:=",ExpressionUUID->"58c6c026-bc38-4c2b-aaea-e3e90411b079"], + CellLabel->"In[24]:=",ExpressionUUID->"58c6c026-bc38-4c2b-aaea-e3e90411b079"], Cell[BoxData["66"], "Output", CellChangeTimes->{ 3.9913197867861958`*^9, 3.994082140061471*^9, {3.99408221068924*^9, - 3.9940822596826973`*^9}}, - CellLabel-> - "Out[394]=",ExpressionUUID->"88e37657-a72e-4885-8940-b0180f58fcd4"] + 3.9940822596826973`*^9}, 3.994256421042204*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"f191ec65-5c11-4034-92f1-9b16e9328370"] }, Open ]], Cell[CellGroupData[{ @@ -634,15 +588,13 @@ Cell[BoxData[ RowBox[{"94", "-", "Z1"}]}]], "Input", CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, 3.9916443064841423`*^9, {3.9940731093077307`*^9, 3.99407311085991*^9}}, - CellLabel-> - "In[395]:=",ExpressionUUID->"25541307-7099-458f-9c32-435fe838297c"], + CellLabel->"In[25]:=",ExpressionUUID->"25541307-7099-458f-9c32-435fe838297c"], Cell[BoxData["28"], "Output", CellChangeTimes->{ 3.9913197867928696`*^9, 3.994082140071866*^9, {3.9940822106985188`*^9, - 3.9940822596930656`*^9}}, - CellLabel-> - "Out[395]=",ExpressionUUID->"e4335573-b33b-45a3-9981-92940083a78d"] + 3.9940822596930656`*^9}, 3.994256421098002*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"76619ead-afc5-4005-ba43-9b3bc6c73d29"] }, Open ]], Cell[CellGroupData[{ @@ -651,15 +603,13 @@ Cell[BoxData[ RowBox[{"A2", "=", RowBox[{"A", "-", "A1"}]}]], "Input", CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, - CellLabel-> - "In[396]:=",ExpressionUUID->"ae20d118-c0a4-4ad6-886e-c96a21ab626f"], + CellLabel->"In[26]:=",ExpressionUUID->"ae20d118-c0a4-4ad6-886e-c96a21ab626f"], Cell[BoxData["74"], "Output", CellChangeTimes->{ 3.991319786827894*^9, 3.994082140082143*^9, {3.994082210707357*^9, - 3.994082259703759*^9}}, - CellLabel-> - "Out[396]=",ExpressionUUID->"94c57544-e787-4c1d-8a89-9f05d9604f59"] + 3.994082259703759*^9}, 3.994256421136671*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"597db28a-40f6-4b25-8a4a-e391cc8db526"] }, Open ]], Cell[CellGroupData[{ @@ -674,15 +624,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[397]:=",ExpressionUUID->"57bf3841-c639-45eb-baf9-b13e37b4122b"], + CellLabel->"In[27]:=",ExpressionUUID->"57bf3841-c639-45eb-baf9-b13e37b4122b"], Cell[BoxData["0.11092478020188863`"], "Output", CellChangeTimes->{ 3.9913197868648605`*^9, 3.9940821400927267`*^9, {3.994082210716133*^9, - 3.994082259714077*^9}}, - CellLabel-> - "Out[397]=",ExpressionUUID->"8574d8a7-6ce2-4391-b392-62fa12161133"] + 3.994082259714077*^9}, 3.994256421225053*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"f35ae8fc-4531-4c3e-bbd0-c0c98b2f4aae"] }, Open ]], Cell[CellGroupData[{ @@ -697,16 +645,14 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[398]:=",ExpressionUUID->"30fff870-f317-4025-8264-4cdb939fd843"], + CellLabel->"In[28]:=",ExpressionUUID->"30fff870-f317-4025-8264-4cdb939fd843"], Cell[BoxData[ RowBox[{"-", "2.5630967111690004`"}]], "Output", CellChangeTimes->{ 3.9913197868718567`*^9, 3.9940821401033173`*^9, {3.994082210725114*^9, - 3.994082259724759*^9}}, - CellLabel-> - "Out[398]=",ExpressionUUID->"cb91352a-9065-4b05-b5e5-1749af1e1015"] + 3.994082259724759*^9}, 3.994256421279846*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"0d0c170e-f348-47e3-bf82-ff974194e489"] }, Open ]], Cell[CellGroupData[{ @@ -737,15 +683,13 @@ Cell[BoxData[ CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, - CellLabel-> - "In[399]:=",ExpressionUUID->"46a59d8f-21ac-43ba-a641-4517ca87cff2"], + CellLabel->"In[29]:=",ExpressionUUID->"46a59d8f-21ac-43ba-a641-4517ca87cff2"], Cell[BoxData["17.4437013546787`"], "Output", CellChangeTimes->{ 3.9913197869068584`*^9, 3.994082140114669*^9, {3.994082210734028*^9, - 3.994082259736136*^9}}, - CellLabel-> - "Out[399]=",ExpressionUUID->"a4c101cb-773a-4203-9e14-e20653f3a193"] + 3.994082259736136*^9}, 3.9942564213202553`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"566bfad2-de75-41a6-8467-50d8e74ee858"] }, Open ]], Cell[CellGroupData[{ @@ -753,15 +697,13 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, - CellLabel-> - "In[400]:=",ExpressionUUID->"6b0b387e-0521-4284-a2c0-3597cf0dd3a1"], + CellLabel->"In[30]:=",ExpressionUUID->"6b0b387e-0521-4284-a2c0-3597cf0dd3a1"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786940857*^9, 3.994082140125458*^9, {3.9940822107429523`*^9, - 3.9940822597468443`*^9}}, - CellLabel-> - "Out[400]=",ExpressionUUID->"688289aa-b349-419f-938d-a15706100e04"] + 3.9940822597468443`*^9}, 3.994256421363845*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"584e9c2a-14f1-4de6-a8fa-02c7ce424388"] }, Open ]], Cell[CellGroupData[{ @@ -771,20 +713,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { 3.994073141486967*^9, 3.9940731424234343`*^9}}, - CellLabel-> - "In[401]:=",ExpressionUUID->"d446da3f-5c5f-4536-af81-2864acb72208"], + CellLabel->"In[31]:=",ExpressionUUID->"d446da3f-5c5f-4536-af81-2864acb72208"], Cell[BoxData["2.185`"], "Output", CellChangeTimes->{ - 3.9940821401363583`*^9, {3.994082210751677*^9, 3.9940822597573833`*^9}}, - CellLabel-> - "Out[401]=",ExpressionUUID->"e4021a63-4185-48ff-b893-c16efddab6ee"] + 3.9940821401363583`*^9, {3.994082210751677*^9, 3.9940822597573833`*^9}, + 3.9942564214297132`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"5eae9815-a576-4df0-9181-be9a46d7446d"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, - CellLabel-> - "In[402]:=",ExpressionUUID->"15fce225-822a-49d5-bb1c-220491babb97"], + CellLabel->"In[32]:=",ExpressionUUID->"15fce225-822a-49d5-bb1c-220491babb97"], Cell[CellGroupData[{ @@ -793,20 +733,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { 3.9940731457645493`*^9, 3.994073146848226*^9}}, - CellLabel-> - "In[403]:=",ExpressionUUID->"53f7964f-2add-458d-82e8-10e6e3219080"], + CellLabel->"In[33]:=",ExpressionUUID->"53f7964f-2add-458d-82e8-10e6e3219080"], Cell[BoxData["0.755`"], "Output", CellChangeTimes->{ - 3.994082140150962*^9, {3.9940822107679367`*^9, 3.9940822597717943`*^9}}, - CellLabel-> - "Out[403]=",ExpressionUUID->"0c4f08ab-8ba2-4f7a-ba68-7c10060ba825"] + 3.994082140150962*^9, {3.9940822107679367`*^9, 3.9940822597717943`*^9}, + 3.994256421518181*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"cd09df23-62af-416b-9705-b51b4d5ed9e9"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, - CellLabel-> - "In[404]:=",ExpressionUUID->"79dfe7be-8f52-4378-a5b6-5788a53f6fb0"], + CellLabel->"In[34]:=",ExpressionUUID->"79dfe7be-8f52-4378-a5b6-5788a53f6fb0"], Cell[CellGroupData[{ @@ -815,20 +753,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { 3.994073149619232*^9, 3.994073149893601*^9}}, - CellLabel-> - "In[405]:=",ExpressionUUID->"6c8cbca9-d770-435c-9caa-abdaf2f4d9a0"], + CellLabel->"In[35]:=",ExpressionUUID->"6c8cbca9-d770-435c-9caa-abdaf2f4d9a0"], Cell[BoxData["2.5`"], "Output", CellChangeTimes->{ - 3.994082140164228*^9, {3.994082210783918*^9, 3.994082259785039*^9}}, - CellLabel-> - "Out[405]=",ExpressionUUID->"b758653f-b57f-4dcc-92ff-90ca42590a5a"] + 3.994082140164228*^9, {3.994082210783918*^9, 3.994082259785039*^9}, + 3.994256421589963*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"d11f6ca5-8bae-4ae6-86d9-1c9578d20d98"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, - CellLabel-> - "In[406]:=",ExpressionUUID->"274205e6-aaa2-403e-bdf1-60494d2ab4da"], + CellLabel->"In[36]:=",ExpressionUUID->"274205e6-aaa2-403e-bdf1-60494d2ab4da"], Cell[CellGroupData[{ @@ -837,20 +773,18 @@ Cell[BoxData[ CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, 3.991799359954439*^9, {3.994073152359264*^9, 3.994073154823225*^9}}, - CellLabel-> - "In[407]:=",ExpressionUUID->"025d3e12-54f5-4cfe-b073-8ae168db5c5e"], + CellLabel->"In[37]:=",ExpressionUUID->"025d3e12-54f5-4cfe-b073-8ae168db5c5e"], Cell[BoxData["1.165`"], "Output", CellChangeTimes->{ - 3.994082140177301*^9, {3.994082210799852*^9, 3.9940822597980413`*^9}}, - CellLabel-> - "Out[407]=",ExpressionUUID->"5498ada6-792a-4875-ba64-33349e4b862b"] + 3.994082140177301*^9, {3.994082210799852*^9, 3.9940822597980413`*^9}, + 3.994256421669303*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"eb066abc-23f6-4a59-b649-2354999b8454"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, - CellLabel-> - "In[408]:=",ExpressionUUID->"84577125-699a-4c8b-b50c-b8f719e35e31"], + CellLabel->"In[38]:=",ExpressionUUID->"84577125-699a-4c8b-b50c-b8f719e35e31"], Cell[CellGroupData[{ @@ -859,20 +793,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, 3.991718016467348*^9, 3.991799361414671*^9, {3.994073158537945*^9, 3.994073159984886*^9}}, - CellLabel-> - "In[409]:=",ExpressionUUID->"dfaf18dc-5eb0-4849-8f51-f8b1984b4725"], + CellLabel->"In[39]:=",ExpressionUUID->"dfaf18dc-5eb0-4849-8f51-f8b1984b4725"], Cell[BoxData["1.055`"], "Output", CellChangeTimes->{ - 3.9940821401902237`*^9, {3.9940822108158007`*^9, 3.994082259811191*^9}}, - CellLabel-> - "Out[409]=",ExpressionUUID->"1c05b573-1b1f-424d-a902-c72897518f41"] + 3.9940821401902237`*^9, {3.9940822108158007`*^9, 3.994082259811191*^9}, + 3.994256421753911*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"0b5b4888-bc4d-4d36-96b5-e7312c8b17e1"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, - CellLabel-> - "In[410]:=",ExpressionUUID->"bb0a71a5-93ab-4ef3-9fdb-62bb661ed34c"], + CellLabel->"In[40]:=",ExpressionUUID->"bb0a71a5-93ab-4ef3-9fdb-62bb661ed34c"], Cell[CellGroupData[{ @@ -881,20 +813,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9940731689650297`*^9, 3.994073170525517*^9}}, - CellLabel-> - "In[411]:=",ExpressionUUID->"7da12e6f-221a-4553-aba7-53c53bdb5de6"], + CellLabel->"In[41]:=",ExpressionUUID->"7da12e6f-221a-4553-aba7-53c53bdb5de6"], Cell[BoxData["0.575`"], "Output", CellChangeTimes->{ - 3.99408214020331*^9, {3.9940822108320093`*^9, 3.994082259824339*^9}}, - CellLabel-> - "Out[411]=",ExpressionUUID->"77f80e55-9d8e-4edb-9dc7-5e2894a18597"] + 3.99408214020331*^9, {3.9940822108320093`*^9, 3.994082259824339*^9}, + 3.9942564219397984`*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"1f13afe2-8530-43b1-a3b9-99445761a370"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, - CellLabel-> - "In[412]:=",ExpressionUUID->"ebd04750-1d28-4ffa-bdda-7bb457359397"], + CellLabel->"In[42]:=",ExpressionUUID->"ebd04750-1d28-4ffa-bdda-7bb457359397"], Cell[CellGroupData[{ @@ -903,20 +833,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.99407317466329*^9, 3.9940731756907377`*^9}}, - CellLabel-> - "In[413]:=",ExpressionUUID->"446f65ef-4350-4911-b9f5-56333a988202"], + CellLabel->"In[43]:=",ExpressionUUID->"446f65ef-4350-4911-b9f5-56333a988202"], Cell[BoxData["1.51`"], "Output", CellChangeTimes->{ - 3.9940821402169437`*^9, {3.994082210847649*^9, 3.994082259837338*^9}}, - CellLabel-> - "Out[413]=",ExpressionUUID->"2ec788d0-3867-4881-ba68-0b9ed73c996d"] + 3.9940821402169437`*^9, {3.994082210847649*^9, 3.994082259837338*^9}, + 3.994256421998344*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"25207f98-53f0-4ee6-be34-ac8c93ce5220"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, - CellLabel-> - "In[414]:=",ExpressionUUID->"dc837306-d20f-440d-8b2b-be9ce105e2b2"], + CellLabel->"In[44]:=",ExpressionUUID->"dc837306-d20f-440d-8b2b-be9ce105e2b2"], Cell[CellGroupData[{ @@ -924,20 +852,18 @@ Cell[BoxData[ RowBox[{"nn2", "=", "0.635"}]], "Input", CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, 3.9917993660901737`*^9, {3.99407317843715*^9, 3.994073182537156*^9}}, - CellLabel-> - "In[415]:=",ExpressionUUID->"7f4cb388-759f-4782-bed0-c71df4480d64"], + CellLabel->"In[45]:=",ExpressionUUID->"7f4cb388-759f-4782-bed0-c71df4480d64"], Cell[BoxData["0.635`"], "Output", CellChangeTimes->{ - 3.994082140230339*^9, {3.994082210863504*^9, 3.994082259850523*^9}}, - CellLabel-> - "Out[415]=",ExpressionUUID->"dc96c3b7-ac9a-4a53-855c-b6feb5f17789"] + 3.994082140230339*^9, {3.994082210863504*^9, 3.994082259850523*^9}, + 3.994256422053824*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"1271fdc8-1153-4813-97a3-d8c6ec968382"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, - CellLabel-> - "In[416]:=",ExpressionUUID->"90a13eb9-542d-4060-bb46-46ccb19635d1"], + CellLabel->"In[46]:=",ExpressionUUID->"90a13eb9-542d-4060-bb46-46ccb19635d1"], Cell[CellGroupData[{ @@ -1426,15 +1352,13 @@ uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== "], - CellLabel-> - "In[417]:=",ExpressionUUID->"dafedac8-4248-482a-ad46-946d2abe4ec0"], + CellLabel->"In[47]:=",ExpressionUUID->"dafedac8-4248-482a-ad46-946d2abe4ec0"], Cell[BoxData["0.14543451930671605`"], "Output", CellChangeTimes->{ 3.991319787430073*^9, 3.9940821403190203`*^9, {3.994082210903069*^9, - 3.994082259888891*^9}}, - CellLabel-> - "Out[417]=",ExpressionUUID->"47f35287-f666-422e-8fc0-445d51343db0"] + 3.994082259888891*^9}, 3.99425642230305*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"44ff284b-619c-47ea-b661-a35fe815b703"] }, Open ]], Cell[CellGroupData[{ @@ -1928,15 +1852,13 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[418]:=",ExpressionUUID->"1863c650-cefb-45cb-b1ad-86aa31150214"], + CellLabel->"In[48]:=",ExpressionUUID->"1863c650-cefb-45cb-b1ad-86aa31150214"], Cell[BoxData["7.609769640822119`"], "Output", CellChangeTimes->{ 3.991319787574972*^9, 3.9940821403533278`*^9, {3.994082210934519*^9, - 3.994082259917639*^9}}, - CellLabel-> - "Out[418]=",ExpressionUUID->"5d68a0a9-bdcf-4cab-8162-ea55408eedfd"] + 3.994082259917639*^9}, 3.994256422439678*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"062794d3-5d13-4bd3-9c7a-2da2a33cf3c3"] }, Open ]], Cell[CellGroupData[{ @@ -2424,16 +2346,14 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[419]:=",ExpressionUUID->"813e74eb-a8e6-499b-b6ac-1fba16da3421"], + CellLabel->"In[49]:=",ExpressionUUID->"813e74eb-a8e6-499b-b6ac-1fba16da3421"], Cell[BoxData[ RowBox[{"-", "15.030827196449275`"}]], "Output", CellChangeTimes->{ 3.991319787641424*^9, 3.994082140383691*^9, {3.9940822109679832`*^9, - 3.994082259945158*^9}}, - CellLabel-> - "Out[419]=",ExpressionUUID->"d7c0df12-97d5-4d5c-bfcc-460298e33414"] + 3.994082259945158*^9}, 3.994256422541044*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"3fa6e08b-0923-4a21-8260-43e19c67821c"] }, Open ]], Cell[CellGroupData[{ @@ -2991,16 +2911,14 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[420]:=",ExpressionUUID->"aa2232f7-a2ef-4ffb-8632-d6506ccedb96"], + CellLabel->"In[50]:=",ExpressionUUID->"aa2232f7-a2ef-4ffb-8632-d6506ccedb96"], Cell[BoxData[ RowBox[{"-", "19.761827924452415`"}]], "Output", CellChangeTimes->{ 3.991319787711939*^9, 3.9940821404195766`*^9, {3.9940822110021753`*^9, - 3.994082259978429*^9}}, - CellLabel-> - "Out[420]=",ExpressionUUID->"fa02a3d3-4cb5-4a20-9e7e-20d95ed15cbb"] + 3.994082259978429*^9}, 3.994256422735656*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"68cadf69-68d2-440a-a443-c368986b72b4"] }, Open ]], Cell[CellGroupData[{ @@ -3558,16 +3476,14 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[421]:=",ExpressionUUID->"b445d538-3ced-47d4-9054-12263665419d"], + CellLabel->"In[51]:=",ExpressionUUID->"b445d538-3ced-47d4-9054-12263665419d"], Cell[BoxData[ RowBox[{"-", "57.66257775030843`"}]], "Output", CellChangeTimes->{ 3.9913197877723045`*^9, 3.9940821404579077`*^9, {3.994082211038884*^9, - 3.994082260011196*^9}}, - CellLabel-> - "Out[421]=",ExpressionUUID->"cc777c3f-81d2-4712-a323-9eb655d9f14e"] + 3.994082260011196*^9}, 3.994256422928071*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"5a9d972f-9c84-4257-a62e-327b81d513c4"] }, Open ]], Cell[CellGroupData[{ @@ -4198,46 +4114,40 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[422]:=",ExpressionUUID->"0a351458-3ad5-4444-8e6a-262b7c9da82d"], + CellLabel->"In[52]:=",ExpressionUUID->"0a351458-3ad5-4444-8e6a-262b7c9da82d"], Cell[BoxData[ RowBox[{"-", "150.68948520646092`"}]], "Output", CellChangeTimes->{ 3.991319787833355*^9, 3.994082140505332*^9, {3.994082211079116*^9, - 3.9940822600491877`*^9}}, - CellLabel-> - "Out[422]=",ExpressionUUID->"c0681327-5d17-47b6-8427-8eb188af49b6"] + 3.9940822600491877`*^9}, 3.994256423219805*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"9df9dd55-797a-4f6c-93b7-e247ebd8671b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U21", "=", "0"}]], "Input", - CellLabel-> - "In[423]:=",ExpressionUUID->"28280def-0ed0-428b-bd2e-eb71c3096b78"], + CellLabel->"In[53]:=",ExpressionUUID->"28280def-0ed0-428b-bd2e-eb71c3096b78"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210013676`*^9, 3.99408214052183*^9, {3.994082211090176*^9, - 3.994082260062854*^9}}, - CellLabel-> - "Out[423]=",ExpressionUUID->"ecca8e1e-b59d-418b-9b9d-77de4c37d56c"] + 3.994082260062854*^9}, 3.994256423262177*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"aff86364-40c2-4aa2-bd0d-00aff079111d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U22", "=", "0"}]], "Input", - CellLabel-> - "In[424]:=",ExpressionUUID->"2192f8a5-bda1-45e2-8337-5a866cee4124"], + CellLabel->"In[54]:=",ExpressionUUID->"2192f8a5-bda1-45e2-8337-5a866cee4124"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210355663`*^9, 3.994082140531746*^9, {3.9940822111011677`*^9, - 3.994082260073297*^9}}, - CellLabel-> - "Out[424]=",ExpressionUUID->"4a9b2662-4475-446f-a0d0-9222d876e97b"] + 3.994082260073297*^9}, 3.994256423280456*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"dbf155a4-81fd-4bc4-9397-63b8874c83fa"] }, Open ]], Cell[CellGroupData[{ @@ -4281,15 +4191,13 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[425]:=",ExpressionUUID->"570a2a35-a64c-4ecc-afcf-df3397c5eb59"], + CellLabel->"In[55]:=",ExpressionUUID->"570a2a35-a64c-4ecc-afcf-df3397c5eb59"], Cell[BoxData["120.33662547388403`"], "Output", CellChangeTimes->{ 3.991320421068556*^9, 3.994082140542282*^9, {3.994082211112996*^9, - 3.994082260084251*^9}}, - CellLabel-> - "Out[425]=",ExpressionUUID->"48f2225d-15b9-4b56-a3b6-6b1dd876f8bb"] + 3.994082260084251*^9}, 3.994256423312731*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"3ae53aec-6ec8-47f7-a58f-f81933aaa1d1"] }, Open ]], Cell[CellGroupData[{ @@ -4329,16 +4237,14 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[426]:=",ExpressionUUID->"6269b77a-f9c5-4551-8880-f900cee8f0ad"], + CellLabel->"In[56]:=",ExpressionUUID->"6269b77a-f9c5-4551-8880-f900cee8f0ad"], Cell[BoxData[ RowBox[{"-", "107.1121642480161`"}]], "Output", CellChangeTimes->{ 3.991320421098543*^9, 3.994082140552636*^9, {3.994082211122551*^9, - 3.994082260094944*^9}}, - CellLabel-> - "Out[426]=",ExpressionUUID->"9b661eb1-566e-4a67-af49-1f687f39317e"] + 3.994082260094944*^9}, 3.994256423351166*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"21bef667-c22d-415e-88b7-e5ac866ba267"] }, Open ]], Cell[CellGroupData[{ @@ -4382,99 +4288,87 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[427]:=",ExpressionUUID->"318c7941-d810-4a37-9f8c-62909779e04c"], + CellLabel->"In[57]:=",ExpressionUUID->"318c7941-d810-4a37-9f8c-62909779e04c"], Cell[BoxData["123.55775944746372`"], "Output", CellChangeTimes->{ 3.9913204211275444`*^9, 3.9940821405632*^9, {3.9940822111320972`*^9, - 3.9940822601055107`*^9}}, - CellLabel-> - "Out[427]=",ExpressionUUID->"d4150e7f-5810-4e6c-a26b-f8e448b8b6b6"] + 3.9940822601055107`*^9}, 3.994256423388049*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"37e359b0-0c7b-482f-af48-ba41f49ddea7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c11"], "Input", - CellLabel-> - "In[428]:=",ExpressionUUID->"f253df11-798a-49ba-86b2-1bc054712467"], + CellLabel->"In[58]:=",ExpressionUUID->"f253df11-798a-49ba-86b2-1bc054712467"], Cell[BoxData["0.4069661562665162`"], "Output", CellChangeTimes->{ 3.9913204211385536`*^9, 3.994082140573392*^9, {3.994082211141264*^9, - 3.994082260116184*^9}}, - CellLabel-> - "Out[428]=",ExpressionUUID->"93839a89-9423-4a36-b8f0-d5223d7222ff"] + 3.994082260116184*^9}, 3.994256423418494*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"ac545e02-57cb-4c65-babf-40a5f3fb6e4d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c12"], "Input", - CellLabel-> - "In[429]:=",ExpressionUUID->"effc6f6d-3084-49ce-9097-f05efd86e064"], + CellLabel->"In[59]:=",ExpressionUUID->"effc6f6d-3084-49ce-9097-f05efd86e064"], Cell[BoxData[ RowBox[{"-", "0.08563504168524437`"}]], "Output", CellChangeTimes->{ 3.9913204211683464`*^9, 3.994082140583559*^9, {3.994082211156444*^9, - 3.994082260127738*^9}}, - CellLabel-> - "Out[429]=",ExpressionUUID->"8f320bb1-d283-4e61-a6b0-16c26d7be527"] + 3.994082260127738*^9}, 3.994256423439343*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"19de741b-62a5-4fad-b5f1-59e9352b89af"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c21"], "Input", - CellLabel-> - "In[430]:=",ExpressionUUID->"1a06bccf-3afe-4c66-ad9f-32e21eb4fc0e"], + CellLabel->"In[60]:=",ExpressionUUID->"1a06bccf-3afe-4c66-ad9f-32e21eb4fc0e"], Cell[BoxData[ RowBox[{"-", "0.5841673375234483`"}]], "Output", CellChangeTimes->{ 3.991320421199068*^9, 3.994082140593707*^9, {3.994082211166273*^9, - 3.99408226016045*^9}}, - CellLabel-> - "Out[430]=",ExpressionUUID->"9735e212-94e9-4f13-bf9e-2f19d6900d37"] + 3.99408226016045*^9}, 3.994256423455639*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"c524a077-11fd-4328-935f-f5a70c88bc56"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c22"], "Input", - CellLabel-> - "In[431]:=",ExpressionUUID->"e299288a-6693-4f0f-9b41-89bd36da6319"], + CellLabel->"In[61]:=",ExpressionUUID->"e299288a-6693-4f0f-9b41-89bd36da6319"], Cell[BoxData["0.7215005296935654`"], "Output", CellChangeTimes->{ 3.991320421228037*^9, 3.9940821428128853`*^9, {3.994082211175336*^9, - 3.994082260189337*^9}}, - CellLabel-> - "Out[431]=",ExpressionUUID->"bed4c3e0-670d-4fa0-9839-248799c78555"] + 3.994082260189337*^9}, 3.994256423475747*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"81adaebb-c15b-4724-ba84-058814ae40af"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w1"], "Input", - CellLabel-> - "In[432]:=",ExpressionUUID->"37ea46c7-e9c6-4912-a38f-f126189cbde2"], + CellLabel->"In[62]:=",ExpressionUUID->"37ea46c7-e9c6-4912-a38f-f126189cbde2"], Cell[BoxData["2.315137197466896`"], "Output", CellChangeTimes->{ - 3.9913204212585373`*^9, {3.9940822111841908`*^9, 3.9940822602133617`*^9}}, - CellLabel-> - "Out[432]=",ExpressionUUID->"2b17f957-1f57-4265-9537-ced00f11fc9e"] + 3.9913204212585373`*^9, {3.9940822111841908`*^9, 3.9940822602133617`*^9}, + 3.994256423497279*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"d5458961-1b42-4009-b758-11147e387279"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w2"], "Input", - CellLabel-> - "In[433]:=",ExpressionUUID->"5a2fe610-3676-4d2c-a84f-b81fa3a2dde3"], + CellLabel->"In[63]:=",ExpressionUUID->"5a2fe610-3676-4d2c-a84f-b81fa3a2dde3"], Cell[BoxData["1.4220278650887666`"], "Output", CellChangeTimes->{ - 3.9913204212884274`*^9, {3.994082211193069*^9, 3.99408226021774*^9}}, - CellLabel-> - "Out[433]=",ExpressionUUID->"dd3c2ec9-8460-4b88-9888-edd4ca4aed6f"] + 3.9913204212884274`*^9, {3.994082211193069*^9, 3.99408226021774*^9}, + 3.99425642352699*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"33cf3347-26b7-4237-9060-1960d0865e93"] }, Open ]], Cell[CellGroupData[{ @@ -4495,15 +4389,14 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", - CellLabel-> - "In[434]:=",ExpressionUUID->"f0f9eabe-0ffc-4c21-b7ff-8f840e316b78"], + CellLabel->"In[64]:=",ExpressionUUID->"f0f9eabe-0ffc-4c21-b7ff-8f840e316b78"], Cell[BoxData[ RowBox[{"-", "34.52117430586003`"}]], "Output", CellChangeTimes->{ - 3.9913204213185234`*^9, {3.994082211202162*^9, 3.994082260228716*^9}}, - CellLabel-> - "Out[434]=",ExpressionUUID->"f6c3b47b-429e-4866-b56c-04f0923ae4be"] + 3.9913204213185234`*^9, {3.994082211202162*^9, 3.994082260228716*^9}, + 3.994256423563265*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"aafb7981-e9a2-4eb1-9b37-1d7e8ee76318"] }, Open ]], Cell[CellGroupData[{ @@ -4524,15 +4417,14 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", - CellLabel-> - "In[435]:=",ExpressionUUID->"1e7acc64-22e8-46ca-a73b-29fdc9f5a0c3"], + CellLabel->"In[65]:=",ExpressionUUID->"1e7acc64-22e8-46ca-a73b-29fdc9f5a0c3"], Cell[BoxData[ RowBox[{"-", "6.669654351008722`"}]], "Output", CellChangeTimes->{ - 3.991320421349531*^9, {3.9940822112147284`*^9, 3.994082260239593*^9}}, - CellLabel-> - "Out[435]=",ExpressionUUID->"d00a88a5-13d8-4c7d-ab11-5a588c2477f0"] + 3.991320421349531*^9, {3.9940822112147284`*^9, 3.994082260239593*^9}, + 3.9942564235903873`*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"baf40861-41d8-4fb3-8a55-7d6d042db3ad"] }, Open ]], Cell[CellGroupData[{ @@ -4597,14 +4489,13 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[436]:=",ExpressionUUID->"92322cf4-6839-45a4-bf06-bc1d3d155b1f"], + CellLabel->"In[66]:=",ExpressionUUID->"92322cf4-6839-45a4-bf06-bc1d3d155b1f"], Cell[BoxData["85.815451168024`"], "Output", CellChangeTimes->{ - 3.9913204213784294`*^9, {3.994082211224436*^9, 3.994082260250916*^9}}, - CellLabel-> - "Out[436]=",ExpressionUUID->"19b5b8c1-6db6-4d0e-aa21-85638ef5e632"] + 3.9913204213784294`*^9, {3.994082211224436*^9, 3.994082260250916*^9}, + 3.9942564236224213`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"23de7bdc-e82f-4638-a32b-9bce4d490517"] }, Open ]], Cell[CellGroupData[{ @@ -4645,15 +4536,14 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[437]:=",ExpressionUUID->"3a820df7-eebe-479a-b2ed-5668de066fae"], + CellLabel->"In[67]:=",ExpressionUUID->"3a820df7-eebe-479a-b2ed-5668de066fae"], Cell[BoxData[ RowBox[{"-", "107.1121642480161`"}]], "Output", CellChangeTimes->{ - 3.9913204213904285`*^9, {3.994082211233815*^9, 3.994082260261983*^9}}, - CellLabel-> - "Out[437]=",ExpressionUUID->"4f432f74-584c-45b4-b23e-67e7e058bbd4"] + 3.9913204213904285`*^9, {3.994082211233815*^9, 3.994082260261983*^9}, + 3.994256423659692*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"f20b1663-34fb-49dd-ae05-bc06420c9f78"] }, Open ]], Cell[CellGroupData[{ @@ -4719,14 +4609,13 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[438]:=",ExpressionUUID->"43df8d62-a6fc-49dc-aa7b-728eb12230db"], + CellLabel->"In[68]:=",ExpressionUUID->"43df8d62-a6fc-49dc-aa7b-728eb12230db"], Cell[BoxData["116.888105096455`"], "Output", CellChangeTimes->{ - 3.991320421419428*^9, {3.99408221124387*^9, 3.994082260273652*^9}}, - CellLabel-> - "Out[438]=",ExpressionUUID->"2398950a-3aa0-40c8-98be-3c892395f30a"] + 3.991320421419428*^9, {3.99408221124387*^9, 3.994082260273652*^9}, + 3.994256423696774*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"c9414650-cc77-4b57-88de-feb77fec301f"] }, Open ]], Cell[CellGroupData[{ @@ -4784,14 +4673,13 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[439]:=",ExpressionUUID->"db350966-ce8d-4c4f-828a-14725e1e62f2"], + CellLabel->"In[69]:=",ExpressionUUID->"db350966-ce8d-4c4f-828a-14725e1e62f2"], Cell[BoxData["42.180325689118604`"], "Output", CellChangeTimes->{ - 3.9913204214494324`*^9, {3.994082211253778*^9, 3.994082260284829*^9}}, - CellLabel-> - "Out[439]=",ExpressionUUID->"daf1f923-5e23-4681-9ef2-c25e5e8da2f9"] + 3.9913204214494324`*^9, {3.994082211253778*^9, 3.994082260284829*^9}, + 3.9942564237296047`*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"c3ecc687-57d5-4bbd-8274-77df166e937f"] }, Open ]], Cell[CellGroupData[{ @@ -4849,36 +4737,46 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[440]:=",ExpressionUUID->"4d0eefa6-dde1-470b-bc55-058a41501f61"], + CellLabel->"In[70]:=",ExpressionUUID->"4d0eefa6-dde1-470b-bc55-058a41501f61"], Cell[BoxData["727.4038074151157`"], "Output", CellChangeTimes->{ - 3.991320421481529*^9, {3.994082211263607*^9, 3.994082260289282*^9}}, - CellLabel-> - "Out[440]=",ExpressionUUID->"b78a182d-3e36-40ae-83db-4d9957242865"] + 3.991320421481529*^9, {3.994082211263607*^9, 3.994082260289282*^9}, + 3.994256423755591*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"dab6d292-fdf3-4884-8bd9-5749843ea450"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"f1", "=", "0.4308709561"}]], "Input", - CellChangeTimes->{3.9918505481678543`*^9, - 3.994084006184299*^9},ExpressionUUID->"83cccf0d-dccb-fb42-a058-\ -5e950c758893"], + CellChangeTimes->{3.9918505481678543`*^9, 3.994084006184299*^9}, + CellLabel->"In[71]:=",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], + +Cell[BoxData["0.4308709561`"], "Output", + CellChangeTimes->{3.994256423847633*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"24374857-fff2-4332-b7ac-698311f2c4c0"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991850549355442*^9, - 3.991850549360302*^9}},ExpressionUUID->"7730e455-e5f4-194b-b761-\ -e7a6896afd10"], + CellChangeTimes->{{3.991850549355442*^9, 3.991850549360302*^9}}, + CellLabel->"In[72]:=",ExpressionUUID->"7730e455-e5f4-194b-b761-e7a6896afd10"], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f2", "=", "0.1119937069"}]], "Input", - CellChangeTimes->{3.991850550777445*^9, - 3.99408401130657*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], + CellChangeTimes->{3.991850550777445*^9, 3.99408401130657*^9}, + CellLabel->"In[73]:=",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], + +Cell[BoxData["0.1119937069`"], "Output", + CellChangeTimes->{3.9942564238952513`*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"93965099-8d9e-4118-b9bb-e25cbf584b28"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918505524437046`*^9, - 3.991850552447544*^9}},ExpressionUUID->"86df0a71-aa65-aa41-b8f1-\ -8c5c5be10fe8"], + CellChangeTimes->{{3.9918505524437046`*^9, 3.991850552447544*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], Cell[CellGroupData[{ @@ -4923,9 +4821,12 @@ Cell[BoxData[ RowBox[{"1.16", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], - ")"}]}]], "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], + ")"}]}]], "Input", + CellLabel->"In[75]:=",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], -Cell[BoxData["2.3793916761039806`*^-53"], "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] +Cell[BoxData["1.5199617014106653`*^-53"], "Output", + CellChangeTimes->{3.994256423934719*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"26361e35-40cd-495a-a855-827dda255f68"] }, Open ]], Cell[CellGroupData[{ @@ -4959,11 +4860,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.9915577064670105`*^9},ExpressionUUID->"c16f367e-d189-2745-b3b8-\ -a9b137c5e3b6"], + CellChangeTimes->{3.9915577064670105`*^9}, + CellLabel->"In[76]:=",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], -Cell[BoxData["5.0207251137958644`*^-55"], "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] +Cell[BoxData["7.453693385647539`*^-55"], "Output", + CellChangeTimes->{3.994256423952222*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"e5b3cbb7-86f8-4a7b-b537-e62571473352"] }, Open ]], Cell[CellGroupData[{ @@ -4996,11 +4898,12 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.991557709328657*^9, - 3.991557711123291*^9}},ExpressionUUID->"b7d001ae-480c-4b41-8df9-\ -8010347227f7"], + CellChangeTimes->{{3.991557709328657*^9, 3.991557711123291*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], -Cell[BoxData["1.8713726427856714`*^-54"], "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] +Cell[BoxData["5.8008117072332346`*^-55"], "Output", + CellChangeTimes->{3.994256424006341*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"6ecdc530-c151-4f21-a1a1-2d2b172af8bf"] }, Open ]], Cell[CellGroupData[{ @@ -5022,10 +4925,12 @@ Cell[BoxData[ RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Ih", "*", "Ir"}], - RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"d15e5e59-9ad8-\ -e247-a132-b43b2736212a"], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel->"In[78]:=",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], -Cell[BoxData["25.178011816139865`"], "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] +Cell[BoxData["8.108940354664743`"], "Output", + CellChangeTimes->{3.9942564240198593`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"7aa2740d-fe62-450b-9941-d57e3412cbd0"] }, Open ]], Cell[CellGroupData[{ @@ -5050,10 +4955,12 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", RowBox[{"(", - RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input",Expre\ -ssionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], -Cell[BoxData["37.88040277230648`"], "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] +Cell[BoxData["20.912959599429644`"], "Output", + CellChangeTimes->{3.99425642404403*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"85c5a10d-c068-471e-a826-43fbb66c63ba"] }, Open ]], Cell[CellGroupData[{ @@ -5061,10 +4968,12 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ - FractionBox["Kb", "Qb3"]]}]], "Input",ExpressionUUID->"906db7f6-73f3-8a4e-\ -88a4-7c75445a4f32"], + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], -Cell[BoxData["0.7475613664924765`"], "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +Cell[BoxData["2.280724938639217`"], "Output", + CellChangeTimes->{3.99425642406291*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"f99ea685-08d6-4ce4-b7d4-07a13eea657c"] }, Open ]], Cell[CellGroupData[{ @@ -5072,10 +4981,12 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ - FractionBox["Kw", "Qw3"]]}]], "Input",ExpressionUUID->"731b68b1-c44a-6c4a-\ -a9f8-bc957ede9a68"], + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], -Cell[BoxData["3.219272026986442`"], "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +Cell[BoxData["5.89766412643301`"], "Output", + CellChangeTimes->{3.994256424081036*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"945b0f91-b07f-4744-9068-862155d72743"] }, Open ]], Cell[CellGroupData[{ @@ -5083,10 +4994,12 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ - RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input",ExpressionUUID->"71af6813-\ -eb8f-4944-8d03-7bcd77a7b4b4"], + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], -Cell[BoxData["121.94732101586592`"], "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +Cell[BoxData["123.33761160709906`"], "Output", + CellChangeTimes->{3.994256424099963*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"a650c5a9-ad20-481e-9484-73bd18059b02"] }, Open ]], Cell[CellGroupData[{ @@ -5094,10 +5007,12 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ - RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"28815b73-\ -08dc-e64f-8823-2a55ad6b8ca8"], + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[83]:=",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], -Cell[BoxData["18.822108918837237`"], "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +Cell[BoxData["18.494262492821818`"], "Output", + CellChangeTimes->{3.994256424120068*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"dd927755-8317-4379-a63d-d0fa68473855"] }, Open ]], Cell[CellGroupData[{ @@ -5285,10 +5200,12 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"137e8d46-8eff-3c47-\ -bf8f-1350d0b8a0bb"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[84]:=",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], -Cell[BoxData["0.04118782656518991`"], "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +Cell[BoxData["0.007704207566959514`"], "Output", + CellChangeTimes->{3.9942564241403437`*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"e2a715a7-8383-401d-8a8a-842cf4c9ac93"] }, Open ]], Cell[CellGroupData[{ @@ -5300,18 +5217,12 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"65edd566-\ -4493-2440-9c51-9fca28ce324b"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[85]:=",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"b04cf5cc-6c74-f842-9fba-c737c46f5a7b"], - -Cell[BoxData["4.366771860185336`"], "Output",ExpressionUUID->"32922499-707a-964c-90f0-b2630d16ee29"] +Cell[BoxData["10.096734890502667`"], "Output", + CellChangeTimes->{3.994256424466584*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"dd21475f-267d-447d-95db-fd95cd74f3af"] }, Open ]], Cell[CellGroupData[{ @@ -5501,10 +5412,12 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"d808e80b-1928-8046-\ -afec-31463f4946cd"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[86]:=",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], -Cell[BoxData["0.010567083454288358`"], "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +Cell[BoxData["0.05318303538839398`"], "Output", + CellChangeTimes->{3.9942564244801407`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"369b4cbd-98f3-4748-80c3-60fc782e2d85"] }, Open ]], Cell[CellGroupData[{ @@ -5516,18 +5429,12 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"56b1717f-\ -bc75-4047-98f0-7a0dede3f8a9"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[87]:=",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"6f900e99-9e38-fb4c-84fd-e99588ed1cc5"], - -Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"e5a93687-7c76-eb48-a79a-098cbe08792a"] +Cell[BoxData["3.8428937785070425`"], "Output", + CellChangeTimes->{3.994256424586254*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"57fd72c3-fdb4-478d-ba9b-933fe83856d1"] }, Open ]], Cell[CellGroupData[{ @@ -5618,10 +5525,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-\ -f74418e31aeb"], + ")"}]}]}]], "Input", + CellLabel->"In[88]:=",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], -Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +Cell[BoxData["0.050030956271665136`"], "Output", + CellChangeTimes->{3.994256424601492*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"5a1f87c9-f170-4b37-baed-f4bf5ffbd999"] }, Open ]], Cell[CellGroupData[{ @@ -5709,10 +5618,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-\ -91d5391478d5"], + ")"}]}]}]], "Input", + CellLabel->"In[89]:=",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], -Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +Cell[BoxData["0.9499690437283349`"], "Output", + CellChangeTimes->{3.994256424617854*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"03bd31dc-8812-4e19-a24e-370e87e04060"] }, Open ]], Cell[CellGroupData[{ @@ -5833,16 +5744,18 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", - "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"bea639c9-f172-\ -ef4e-9454-9d4e027f5fa2"], + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel->"In[90]:=",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], -Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] +Cell[BoxData["0.047527859686207874`"], "Output", + CellChangeTimes->{3.994256424631714*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"828094b8-3091-4ea8-ac46-0c974349a32e"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"752e2dd5-bee6-\ -2048-8697-fe84d79611fa"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], Cell[CellGroupData[{ @@ -5903,27 +5816,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918505674491863`*^9},ExpressionUUID->"f8b12d93-5bd9-8641-aa98-\ -3d78ebb0f21b"], + CellChangeTimes->{3.9918505674491863`*^9}, + CellLabel->"In[92]:=",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"4105bae1-ec8c-fc46-bc8a-9d70c37ec32c"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.969986274159726`*^-204\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 1, + 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994256424675055*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"f8f2518c-1214-4068-89c1-b5cb82e78c9b"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"42c1a263-2456-664a-bb33-c5fe841cb412"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.444311948028068`*^-208\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 2, + 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994256424707202*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"0a4d7d8d-7b21-4c3f-b976-6c32fe8dd38f"], -Cell[BoxData["4.366771860185332`"], "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.496450676011577`*^-213\\\", \ +RowBox[{\\\"668859810497440244092067196564426051030\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3165635789279094374400000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 3, + 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994256424717577*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"31e114bf-6380-43fc-8ad4-64d024072d56"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 92, 4, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994256424727688*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"4d2510b7-f9c3-4257-bf4e-26f4583df9c2"], + +Cell[BoxData["10.096734890502661`"], "Output", + CellChangeTimes->{3.99425642885254*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"f5d3937a-c2e5-469f-a4ae-871b8ff50ba2"] }, Open ]], Cell[CellGroupData[{ @@ -5985,26 +5944,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.99185057022003*^9},ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], + CellChangeTimes->{3.99185057022003*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"be4d7bfb-c18e-564a-93ce-3f42607886e7"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.969986274159726`*^-204\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 5, + 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994256429002853*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"97423408-b64b-41dd-a6ad-afae25b4c716"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"b768ca5f-6b93-1f43-97bf-08f74ea2facd"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.444311948028068`*^-208\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 6, + 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942564290179462`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"cc0e8760-267b-42b2-ab89-135cfefd7cf0"], -Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.496450676011577`*^-213\\\", \ +RowBox[{\\\"668859810497440244092067196564426051030\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3165635789279094374400000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 7, + 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942564290286837`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"395ea973-9d3a-47ce-9667-373f71ae3780"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 93, 8, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942564290386753`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"f3970cd8-605f-46b7-afaa-84750ce01d3d"], + +Cell[BoxData["3.8428937785070447`"], "Output", + CellChangeTimes->{3.994256432939254*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"1da4afb0-6665-453b-8728-89a63869be9b"] }, Open ]], Cell[CellGroupData[{ @@ -6014,491 +6020,440 @@ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ - FractionBox[ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", RowBox[{ - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", - RowBox[{"Cos", "[", - FractionBox[ - RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], - RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918505747312756`*^9},ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-\ -12d8b19f0936"], + CellChangeTimes->{3.9918505747312756`*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"d3cb6fbc-3803-0541-80d1-8cab47341c44"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"635ef23c-be29-f947-b49d-c0d2f59f2ba8"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"d8687e0f-2f42-0543-a749-78a1ff3c9572"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"b055d243-2255-1f40-80bd-55bc54524667"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.00529101 -2.67879 2.97603 [ -[.15608 .28474 -6 -9 ] -[.15608 .28474 6 0 ] -[.28836 .28474 -6 -9 ] -[.28836 .28474 6 0 ] -[.42063 .28474 -6 -9 ] -[.42063 .28474 6 0 ] -[.55291 .28474 -9 -9 ] -[.55291 .28474 9 0 ] -[.68519 .28474 -9 -9 ] -[.68519 .28474 9 0 ] -[.81746 .28474 -9 -9 ] -[.81746 .28474 9 0 ] -[.94974 .28474 -9 -9 ] -[.94974 .28474 9 0 ] -[.01131 .14844 -24 -4.5 ] -[.01131 .14844 0 4.5 ] -[.01131 .44604 -24 -4.5 ] -[.01131 .44604 0 4.5 ] -[.01131 .59484 -18 -4.5 ] -[.01131 .59484 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.15608 .29724 m -.15608 .30349 L -s -[(25)] .15608 .28474 0 1 Mshowa -.28836 .29724 m -.28836 .30349 L -s -[(50)] .28836 .28474 0 1 Mshowa -.42063 .29724 m -.42063 .30349 L -s -[(75)] .42063 .28474 0 1 Mshowa -.55291 .29724 m -.55291 .30349 L -s -[(100)] .55291 .28474 0 1 Mshowa -.68519 .29724 m -.68519 .30349 L -s -[(125)] .68519 .28474 0 1 Mshowa -.81746 .29724 m -.81746 .30349 L -s -[(150)] .81746 .28474 0 1 Mshowa -.94974 .29724 m -.94974 .30349 L -s -[(175)] .94974 .28474 0 1 Mshowa -.125 Mabswid -.05026 .29724 m -.05026 .30099 L -s -.07672 .29724 m -.07672 .30099 L -s -.10317 .29724 m -.10317 .30099 L -s -.12963 .29724 m -.12963 .30099 L -s -.18254 .29724 m -.18254 .30099 L -s -.20899 .29724 m -.20899 .30099 L -s -.23545 .29724 m -.23545 .30099 L -s -.2619 .29724 m -.2619 .30099 L -s -.31481 .29724 m -.31481 .30099 L -s -.34127 .29724 m -.34127 .30099 L -s -.36772 .29724 m -.36772 .30099 L -s -.39418 .29724 m -.39418 .30099 L -s -.44709 .29724 m -.44709 .30099 L -s -.47354 .29724 m -.47354 .30099 L -s -.5 .29724 m -.5 .30099 L -s -.52646 .29724 m -.52646 .30099 L -s -.57937 .29724 m -.57937 .30099 L -s -.60582 .29724 m -.60582 .30099 L -s -.63228 .29724 m -.63228 .30099 L -s -.65873 .29724 m -.65873 .30099 L -s -.71164 .29724 m -.71164 .30099 L -s -.7381 .29724 m -.7381 .30099 L -s -.76455 .29724 m -.76455 .30099 L -s -.79101 .29724 m -.79101 .30099 L -s -.84392 .29724 m -.84392 .30099 L -s -.87037 .29724 m -.87037 .30099 L -s -.89683 .29724 m -.89683 .30099 L -s -.92328 .29724 m -.92328 .30099 L -s -.97619 .29724 m -.97619 .30099 L -s -.25 Mabswid -0 .29724 m -1 .29724 L -s -.02381 .14844 m -.03006 .14844 L -s -[(0.95)] .01131 .14844 1 0 Mshowa -.02381 .44604 m -.03006 .44604 L -s -[(1.05)] .01131 .44604 1 0 Mshowa -.02381 .59484 m -.03006 .59484 L -s -[(1.1)] .01131 .59484 1 0 Mshowa -.125 Mabswid -.02381 .02939 m -.02756 .02939 L -s -.02381 .05915 m -.02756 .05915 L -s -.02381 .08892 m -.02756 .08892 L -s -.02381 .11868 m -.02756 .11868 L -s -.02381 .1782 m -.02756 .1782 L -s -.02381 .20796 m -.02756 .20796 L -s -.02381 .23772 m -.02756 .23772 L -s -.02381 .26748 m -.02756 .26748 L -s -.02381 .327 m -.02756 .327 L -s -.02381 .35676 m -.02756 .35676 L -s -.02381 .38652 m -.02756 .38652 L -s -.02381 .41628 m -.02756 .41628 L -s -.02381 .4758 m -.02756 .4758 L -s -.02381 .50556 m -.02756 .50556 L -s -.02381 .53532 m -.02756 .53532 L -s -.02381 .56508 m -.02756 .56508 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .01472 m -.02499 .01472 L -.02605 .01472 L -.02729 .01473 L -.02846 .01474 L -.03053 .01478 L -.03279 .01482 L -.03527 .01489 L -.0379 .01499 L -.04262 .0152 L -.04749 .01548 L -.05205 .0158 L -.06244 .01675 L -.07305 .01801 L -.08274 .01944 L -.10458 .02358 L -.12357 .02821 L -.14429 .03435 L -.18493 .04963 L -.22406 .06826 L -.26565 .09204 L -.30571 .11858 L -.34426 .14717 L -.38527 .1805 L -.42475 .215 L -.46273 .24996 L -.50315 .28853 L -.54206 .3264 L -.58342 .36674 L -.62326 .40497 L -.66159 .44044 L -.70238 .47601 L -.74164 .50741 L -.77939 .53432 L -.8196 .55879 L -.85828 .57771 L -.87793 .58543 L -.89942 .59234 L -.91995 .59741 L -.92911 .59917 L -.93905 .60073 L -.94426 .60141 L -.94906 .60194 L -.95356 .60236 L -.95851 .60273 L -.96295 .60299 L -.9671 .60316 L -.96939 .60323 L -.97148 .60328 L -.97264 .6033 L -Mistroke -.9739 .60331 L -.97509 .60332 L -.97619 .60332 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJzVnGdgVUUWgENekkeIRCAEpWhiqAkEkIBUQekGYaUsZRdBmgYQRMSyCkhR -6VKWjgIKSFmpsiIIuLqr0lEUld5xBZQm0pl957yZc++83DPzsuLK/sjk3Zlv -zjn3zNyp907TTv2yuvXq1K97l07Jjfp26pPVvcszyQ2f6huI8uWKiMh1MPCX -mhwRFfgtIiK0YKy4Lg5BEPgtxA1xCILf73c6/vOBbfALrzBc/n+UHhNMDvxa -4opNoNi3eFl5IYwjchpPJkKYm8iJPFkUQj+RY3kyWbd+FE+WhDCayGEuEsFU -PX0oL6mcTg7iyYoQRhE5gCczdPJFnryPLMbrF3iymi7zWZ6sqZN9ebK2rr0P -Tz6gy+zFk/V0mT15soEuM4snG+syH+fJTJ3sGlovHtbTO/OSmunkYzz5iE52 -4MkWOtmeJ1vp5J94srVOtuXJtjrZmidRXSSRf+TJP+syW/LkozrZnCc76uQf -eLKTbmcznuysy3w4tF501dMzQ9Mf19Mb85qydJsa8WR3XWYDnuypy6zPk0/q -MuvyZG9d5oM8+ZQusw5PPq3LrM2TfXWZtXiyny6zJk8+q8uszpPP6zKr8eQL -usz7QuvFi7qkKrykl3RJGTw5QJdZiScH6uS9PPmyrr0CTw7WZZbnySE6mc6T -Q3XtZYNkoiSvXrlKZKJH7ld1PWnB3JH4L1qMGztOlC5dWpQpU0b06NFD3Lh+ -IxALaVHiyuUrombNmqJEiRLiyOEjUTLL0iVLMUvx4sVFlSpVxJLFSyJiMC1G -zJg+Q9StW1eULFlSpKaminr16onPPv0st4ddr+l2pQbtivAjsPqD1eKhhx4S -F36+gDfYs2dPMWL4CDLtx1M/iri44Ehrw+cb/FL+nt17xBNPPCG6dOkiUb9Y -tHCR2L9vv9Irdn69U5QtW1bs+HJHhN/DrmG6t0tLu3wINGrUSHyx/QvpPp84 -d/acSElJkZ4Jxh0/dlzs+m4XXsXKuObNm4sVy1fglXJGwG9gqPRcdkNG6A4q -RYZcu3pNFC1aFMvKJzPWqlVLfPftd3iVT8Zt3LBR1KlTR1MKhtWuXZtVOlJX -WpKUnjxxUlSsWFFmCYYdOnQQaz9ci1e3SXef/um0aNu2LdaQChUqoPsLFiwo -Ll+6TEYsfnex6Nixo2MEDmNG6o4vTqoP7D8gqlevrqnOysoSy5Yu01Q3adJE -TJo4Ce/lzOkzomnTpiI2NlYcPXJU5vND4Ynp06aL69euI7d71240dfOmzZ61 -YYzujxQy6tTJU57+WLd2HV7FybjDhw5jdYMrVWvAl/Hx8VBTZN4YMXfOXLxJ -8Fm5cuVE1apV4SnwenJe1226x1oxVG1UNn3y8SeiRYsWmu2FChXCB95tJ9g0 -dcpULa/bkLG6Icnao9K4cWOxfdt27VGBlsQpMZ84dPCQKF++vKZ0y+YtokGD -BppxNkPG6YYkaW3JmtVrRMOGDcX5c+fxDqGZGzN6TES89DxUk8mTJiMbqCoi -IyMDHp2oMHVP0HXfpbev48eNx8YQ6livXr2waOJlGtTR9u3bYzoU+8r3VlIj -AlqLFCkCVSFwFQxl1dIaG7clf9UtKRa0xKtHmaiTRXlykk4W4ckpOnknT07V -yTt4cppOFuLJ6TqZ6CIRnKE3Lgm8pDd1SQV4cqZO5ufJWTqZjydn6+TtPPmW -Tsbz5Ns6mZcn5+pkHE/O08k8PPmOTsby5HydzM2TC3TSz5MLdTImtF4s0tOj -eUnv6qSPJxfrZCRPLtHJXDy5VCe9oWUE3eCh5QRd56EVBF3jofcIuspDKwm6 -wkPvE3SJh1YRdJGHPiDol9CiXk1JF0KT1lDSz7zoDwk6z0NrCTrHQ+sIOstD -6wk6w0MfEXSahyrIuG7duuFQrHLlyoErCONwEA3DBsniCBo6yLS0NBrC9evX -D4dvwSG638gEHyDveYWyDYZDMO6Cq6gwZMbRTd4ppQdmI2A//kGO/PnzB3rc -4H2NHDGS7tw+y4nGXjU9PR3HITBMOPHDiYgkq55otx7l2cDdeHsVxj6DXh6E -Q4tSpUqhrNatW+MAMNmqK4+my+Ap0y3Z1eiu8xkKy3Q7hj5D1UMYEsPQOTAh -kmriRLVq1TSP7d2zF8ZD4uIv+LDjJHDgwIGiXbt2VA9NTNDUGG4iqcwbPGiw -GD5suHZ3JrG3UVUsIiXAhKJVq1bSu0alyiaYIMIQ/9jRY6hg/jvzRWZmZoqH -xCjWZf5sLgNNs2bOgrkxDaZhzgnz8EsXL0Xw8sNzJWN2cQ+xfta9PquZhqGE -mm0F6jOuPATEkIixr49VkzpSDx4Dz8FVukdcpLwzOavXHtfArF5l+fabb1Ed -XOXxEOO0T4UNlYJRotwy7LVh2Ew5dumT+mRWdPj+6N27t5jz9hy8usdDntfN -RYZpn5c8v8GBblsMY8J7ZRwsK0CFHz1qNM3CApVTrF+33lW8fncc/tnWSsrJ -OGgqYTbqmKPLz+thWyHDA2vTq1wItSIwS9bi+vfvTzNOr2KPMfhk2tRp+ODa -ith9b+Ha4iUvt8F/blsMRVxJxsEDASsgE8ZPIDOhF4PlH6eIY9xx+CdXppTn -3YtSqnRfGfoKPhBu69yi4+kJNpWpbQlM+Qy6TJjbu+NmvjkTfcmVqd/gBFg3 -gBbTVqbuOwrXFlOZennNbYuhTDNk3NkzZ9GswIiE+pFRI0eJfXv3IQstFHQS -zZo1SzMnK4fbFgNVkcOYBR44pwBZ0fmp9BM9vBEVpmLl3aSkJBiLaXEL5i8Q -ffr0YUs/N+suv1i4YKHWoq16fxUuOZ8/d96zS48232xUmGaaKkZ235rNNHTp -lWXcpo2bcMnT8W4Mjmxh+Ar/YXQA3g48H2nmZFU2tgVaZQ0MYr8//n04mgtQ -RSloqCg2xcrbMJbyejQHDBjAVpRYg7u6du2KTTg0xTAih+XwwGTBa3wWbb7P -qDAt9KojsQa3Mha6pwxYO6rIXAUKFIAOVNMv651WhO441Tna1sJVXhjXTJk8 -RSstt7xCVOYJhjK3aVPWy0VxLQ6aYugquTLPY/AGeFQNKUqxBa3fkT9MW0yl -6+U1ty2G1Ug1C9y6ZasYOmSoph629WBbkSsMrwL3y2J33Q7+yf2GNJkFkmBD -zK0Omsf69euz6u6gss8nS1ven/JJjFm3qh0wBVIdqbseq3n13d7So3PoKXcB -lDAZ7F0fbFYmma0M18E5qiZ+8c3Ob3AjBHZxoBuDQS/spga6N3r6wq0izE6Q -qiJvzHiDpjjKWhhfQ4PONUF3UhVRuzpA16hRQ7Rs2VLMnjUbXETb44wBanwC -7SUM2ORAWsybOw92p5IMkqNz4Ca354tbrfV2IWNistXE8N0bZgWpKC3atnUb -diqFCxfGTgWqcKCZVDcNS37Qj8EWWqTcSAPrlJgyYXI+eYdeG3ruCgS9QKD3 -j/DJMCEhAdeD3Hdo01WQKtXtMgfs2GZmZqI//QZL1AogjMRAAxQVNE6BqQu1 -525ZMeE5EYoEVLl3I6GNUwYnsaLDd6yXySkecqNz6Gyb7YZtpi1UDod5aCtB -hpegtxF0kIe2E3SAh74gaD8PfUnQPh7aQdBeHvqKoD089DVBwZ4iWG4CItZD -YNjXivWIy03i8oSZ41aSEpLj1+QNSfVRatRvZv2tJOXmeNKwIXEr3eyt5DKv -HFGU6vvNrL+VpPzmla+aR1xVyljdI7UMpcbnOK+XtkTeuF0kbCcP7Sboax7a -Q9BXPLSXoB08tN8jbjuPH/CI28bjBz3itvL4IbLYAB0maIsLQuYIJW3m8x8l -aBMPHSNoIw8dJ2gDD31P0Oc89G+CPuOhHwj6lIdOEPQvHjpJ0D956BRBn/DQ -jwR9zEM/EfQPHjpN0EehxXqGktaHJp2lpHW86HMEreWh8wR9yEM/E7SGhy4Q -tJqHfiHoAx66SNAqHrpE0Ps8dJmgv/PQFYJW8tBVgt7joWsErQgtseuUtDw0 -6QYlLeNFY5jLI2GxJU+kR8K7ljzO4NBGOj353yxkNJGLLGQMkQstpJ/IBRbS -6UXnW8hYIt+xkE5fPs9COpv6cy2k807InNBqgul5Kf1tiyRnG9LwjSmGtxM5 -20LmI3KWhXR2N960kAlEvmEhnZWMGRYykcjpFtJZkZff1+b4hbBsn7YE1yq8 -X5xSi3M5+LQFQ2fxOLh7TuPm7Fv52b5nUfszzCs3as8tp5+2YOisWE7h7VK5 -3d+yqIUX25sgKq/t+xYMC5M1k3lr1CqY7QUFpdn2kQuGRUjzJLtm2za60uz9 -ZUuIvol2fbbd2UipNaefs2B4F1kywW6JbQ9QvUOVg+9XMLybjBhvN8K2VRXu -BysYJpHmcdR+ABCyr0GfUdn2RXKkPJmUjyXlXovm+aRbmfX2cD9OwfAe0vl6 -UKey2L2sml8+417LsG5tOf0oBcMUsmBM0AK2cS9O5GgLWZLIkRayFJEjLGRp -IodbSGcuPsxCphL5mot0hgdplP6qRVJZymg4kAHDdJI5xEKWJ3KwhaxA5CAL -WZHsHGghK5FMw3EQGGYQ2d9CVibyJQtZhez8i4V01lYMR0xgWI3I5y1kdSKf -86wXNeiyn2d6Lcr/jEXT/UQaDrPAsDapMBxmgeEDJPMpC/kgyexlIeuRzCct -ZH0iDQdkYNiAtHe3kI1IpuEoDQyd8zQMR2lgmEkyu1nIJkRmO3QD052TNzp7 -pjej/J0smh4hsqOFbE4qHrWQLUmm4VAODJ2TOQyHcmDonMxhOJQDw7akvY2F -bEcyDYdyYOiczGE4lAPDR0l7CwvZgWQ+YiEfI9JwKAeGzskc2Q7lwHTnZI5M -iyTnjA7D8RwYZhHZ0EL2INJw6AaGzskbhkM3MMSTN3BYXcdCPk0y77eQz5DM -GhbyOZIpj70I7gn86hmoOtgAhmNKjN/vVxLatGlDEthR1gt0F/IgjbySDGPG -qcbp8gttvGLH7i+Rokq8Iq8pZI604OABj5Yqz2spkBOJg0li2f9CojOVe4Xk -lL5JluHAFI/uSrlJEnGgjQeMFbtJEvHz8niIl98vx8mqFDJxUu/KwVcfUgAo -8No8wxBXhrAixumPFD8vihKdO3fGl4eWL1sO78GxwuXKrTpwIPuMx4ffPsGL -r8WKFfPc4XPLYduF/1E6/v4dDvaLyPUfxyNRZA==\ -\>", "ImageResolution" -> 96., "LightDark" -> \ -"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-19.402618477936908, \ -0.8923747627909967, 0.7099700316630947, \ -0.001262238128389079}},ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], - -Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"e49c1b8d-fabe-b944-a6dd-\ -c578eb57eb6a"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Xk0Vd0bB3CEt0yFkFC4yBDVVYYM+8mQjKkQJem69xhSpvLeSlSiVEqo +9EYqlISQzPmZSkkomjS4uOeSOdNJhd/2x15nfdZe57uf5+yz9lZhBO1kCfDx +8fXjsfAMadFbU9rWYj46Vx1dx+Ui85HMTQyrXFQiJF+2YE66QbKaVRWqu0Bz +rcd2Zr4RFtN/jjySvu9pwC5kR9ULWTWjM5p2r55jx71YUROV8xbluhF3GrHL +20Ju/6W/Rz919TmvsAc6myKOVX5CH2oLzjdjryRpe6ctv6JUra6brdj2oxHG +Yc1daNWpaul27Oq/A6LsnG50qddp+gP2h9NyJ0oO96LmowlbvmCPCFsNTNJJ +FOgZPdWFLXwp2EOf4qGAmjVSJPYqybSXIZX9iNly8sYAtpPC9P0RyyHkk4u+ +TmMTd1RldRePoOi+R7dmsaPUt8ccbB5F9+811QuSXPRJrmPDkZyfyOG6stNy +bOaeAP+kS+PokJt7gSL2WCrf3aLDE+hJluUJdezFqrrLftKnkKymgb0RdjKz +3maZzDTynDdztsBWfuARtY6aRn/zfj9zwDZaGztyqPIX+sKX3M7A9jPoah6w +/It8nHf0JWFPso8KimjMogNpIvS72KcqRU21Fs8hp9kTZD52Chg98m2eR0Ef +z8e+Xqgv66VVaA4/aPa5Fy7hcVHOiyTOaQUBqMvkbFmJPdbnFXH1kgCIXFMz +0cGO0J56UnB4EfR69/o6YSc/VqGN0oVAosQx5yZ2Z9tQ9VyGENTNN57Kw1Ye +L90jISMMJVGLamqxczc6JepSwtDYV8MexG4oP84fWLkYjsX6t1v2cdFUfXtX +v6UYbJRbrbe4n4ukHMSWnagWgzto7o0a9voOKxA3Foe2FpEfW7ADuE/vbNCT +AOeWgoST2MECzevNxJbBG8Wd939jk6r5P2OmJWE2YPGQ6AD+PkTTklZ9KUj0 +cUHrsQUe8VRWhEgBM79H3BVbWX/1zpxBKfBUaVa8g73HMqGohSMN7zr/8psO +clGrT2iY3GsZeJtmNHhhiIu+P7h80XuxLLzoZE6UYA8N5mQ8tJaF8s3D4b3Y +Ikd6201qZGFRtPyY2TAXWZ112ej9VA4ylaUf/cKuyDSYyk6Xh7UDG6xjRrko +k/wdvvmIEmTLua/4M85F21zPfQ/LU4LIHr1b9Amc3yC9NY+nBEE3m+MCsDdm +rpVR9lgF/0tg5nzBbmB4PREyXw0zHWYzdZNcND7K+bc/WhmyLPa2Zk1zkfQh +q+InjqrAV6IXWPWbi3iZIn7OAaowXz54kP8PF5V9bVMYjlWFyZbij1uxPR32 +RWvUqILe8yMT77AzdcJ33qTTwKh71GTsL15/4MFYpJwa9JTNSaF5LnLxFdW1 +61YHVe/UQV1BEqFwV/ruWXWI2LvzXSS2dky6IVNeAyzs6Spt2HwZ+haROzSg +s/E4FSZEorzve3cX1WpAne7x2BphEgm75Z5eeW8NXHFJW39oCYnKrBw/DDC0 +gM3799XypSTK2HXjCxWpBVa8ropQ7MuMbo7gLS0Y1GhZ/habeero4Kp2Lfja +ZitwZRmJJKvS+HZZakP2NpmGpVIkCtAf0a6k6cBIXD2pJkMiBdUrURe5a8HK +0qssTYFEVRcmtWYEdEHaVvCTpCKJPCc8OggVXXCRVg+Lxb7doKZl4aULa7/1 +K4QokUjVt+Ldr4+6EHWDMnRYjfvNJdWJ13rwuZZ+W55GIiWFVYSyx3q48W6Z +laQOidZmHRH7g+ggE7JT9KgpiRjM6CldJzo0k7Mec9gptMTv3p50qPviIHPe +jESL7j0ueMGmw5R339tUcxJ13h5wSSykA3vlZZ/XQKK4FO80LZo+ZCg+GDK1 +JhHvooOeu/BGGF/2viTEiUR3Q9WcnzZvAteObhMag0Rt4cjwbJYx+O1ZyqhI +JJGK13unfYFm4PFC4AejiUSs+ZJ8pWMAk2n8r6OFeEhusOwfOYYFxC7ZwEt3 +5KEj+qZfE7WtwN3D5kBSCg8xhv++lB6whk1+4vUuP3gozyLsn/RWGxDuoc2a +2/ahzMmA2txkW/CyubYyJ6cP/dqy4k1DlD34Bzz/JabUj77xLfrZfcARJocm +tBjX+9FhxaCE07TtwIt5ElKx9AfK939Zcy3GGcpNljcxUn+g4xPylI7/Drhb +KW2INAfQlN1Wt8b9O4Eju4bQfzWAjPde3ULu2AVxYY3s2uBB9E4+LaBB3wWs +hUv442WG0Mr70VXZmq4w0JSxw/vtECrjaDs4ibuBfqTmbr24YbSqY8w3fNgN +/EMEbCWtR5D+tau5GZzdIPpn25i2/ChKE5zQS6x3hxTy1EwIbxSVbFnXGVPu +ATLEVKAOMYZSDC9I/s3ZA9tOOjxjdo6h1i9ZsfqX9sJ4UUKtn+1P9NQxVS34 +lCcY5HneVW74iX4e2sV3mLkP3M4zxLcbjaOprVp+I5ZeEOz37q7yo3GUPfz5 +V5jBfvj0v5xn82smkPvdLJ99Yt5ACdjb/72F75Ui+/2LznlDyauoiHUrJpGx +wruZuBlvWN199kFN3CSicXw73/ofAP+D9GOcqUnEFT24PbX3AJjd2/AyiJhC +bZedfGxcGTBrnlw882oKJbPTRY+2McBRo5H6T28aVVXPz/jY+kCJSb30l/PT +aKknnNOv8AE3jupBz45ppLy8sVWxygeuPxXiT3g/jdY3O64QrvaB1Op/++o+ +TKOdpnsffqr1Aa+3o5kan6dRsmL465OvfODYmuhO8ts0Wvnt0dKXn3xg4NqG +CYu+aaTmJZfiSfmAXVLTr6Mz08jYeyQ7ZiMTRmXSHhcoUOj+zbEwJwMm+A20 +/MpUpNDy9nFzOSMmvGpM/S9FiUIj1lRHtgkTOlIs+k6upvD5xcffbMGE6XKD +dKBRSIKS9JDawYRimorXfW0KceM3LUk/xATVW2K1P40odLkywr/sPhP0GoVf +ntxFoUP0G8bsbOzQR68tXCjk8LBwiVEOE3Ik9Gn/uFJI5AbvYWkeE/ZvtXsT +70ahmFDngZJiJjyvNF6S5EGhCC21g0/rmKCgFT8bsZ9CATdeBxZ9Z8Kcr0rT +mwAK2UrwTEM5THiqnjIXcZBCmjF84vQeJlT7ap7RCaQQL3RTXiHJhH2kYHjs +IQodcEofLhhigrhSrdjGYAq5C4UdfvybCcv9nD8eOkohm7CVwbmyLGicVxnb +E0WhuvRYu8QVLMhKIUr5TlHItHlcjb2SBe12fg+zsNerv/5suYoFmpf5xIdP +U0j+4wnLL+osmCRWtYScpdDg5m+yIptY0Gx6WmZXHIWuCNx55ruLBcPJNflh +ibj/dWIpjq4ssBTPPTOHfXYvO1R/NwvWTt2JOJ9EIXax85r5PSxwmVPquZmM +6yf4r15nsKClriCo6DqF9JsYzOchLBiXtGRX/Eehj1fVRWkJLEgLM2Go36NQ +PhL367/KAp7FY8d47LPDkw15SSwQn6X+ncSm2zZEGt1ggbZT/vmaDLx/fD7j +jrdZEKphkbI9i0Jbg+58ZueyQENp7T7bbAopKZ03MM9nwVujSp0s7MmmoKRF +BSyw82ky5HtIoXsayPHyExaUe8gvLsae/fatJqOCBQ40t3NSjyhU7KCQ3fKS +BRGOpaM5eRS6+FtAKLmJBS9L7ON/YzOyBw54NLOAzbfJ1zafQssEKxS4rbh+ +7dpWLnZgpfuVmQ8sqPlIhkgVUIimfT1cjWRBQpHC0LYiCv3+eLL9B48F8nXm +Npew22JY6x/3s6DpxdNvLdiR3RsHjIfw+9tYVTueUKgzpX3f9gkWWD/bjJyK +KZT4j6T1cX4CBPPanFRLKFQ1/m3vkUUEPM+NK9qP3fctJ/SwEAH7pFSVU7FN +i63uMJYQcIbKXyFViv83b/YfO0kC8jcdOzmOvczBWspamoDP/x3U0yyjkImh +lBaSIWB+SU2/J3aCeK6bvjwBSrtdj9UvzFd0FSqoEJCTkbs4ppxCRFbuSxka +AUFszUVPsBMSjnUtVSfgXvtNYQ42j5AWF9QiILZLR9OwAs9L2/gNrScgN7C+ +4zN2xZx0FI9OQHNFugxfJYXIH5xrnI0EKE7J7FfH3lxzvL7DiIAs/weih7C5 +gfmrngEBlW+2N41hS7if2FRqQUCR0qDT0ioKGVtucyi0IsC59P2XtdiX5XuO +ZW0jIPgMW4KFXSb4OCHdjoC7JirFUdi9oyce3HQgoMfx94Gb2EYvZN7HOxPg +cFzlwytsRmHP4LmdBBiaMVI52PGpjwXOuBBQmlMWMI3dE2q7PtydAIXnl1ev +fkYhcS9Zm+A9BLiZLhKmYxvZ9u4L8CSgazx80hI7fvXJi17eBNjd3faDiV0m +YnfPnUHAxZi00TDsninZ8p1MArinu2ZPL+R197Y6EASYlYosv7KQ11zA2+pH +QNsFBfotbEbpyVkIIEDjvoT7/YX8e3bLTQIJWENxYgoW8uPldDYdJmD28ZXK +8oV8NnfLumACDGxWzNRiizEL3bVCCSj+l23+Cttwe2QQ7QjuD/Ivti7kb7aP +VQonoJMs5XRgX1JfkSbHJmDpaJLZZ+ySZeQTyeN4PzW33PuK3f2nsEk0ggBW +RrVE10J+X2S3UCQBVsWi0Rxsg3f2v+ajCKiaXDO/4P8DgzYnbQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0Vd0bB3CEt0yFkFC4yBDVVYYM+8mQjKkQJem69xhSpvLeSlSiVEqo +9EYqlISQzPmZSkkomjS4uOeSOdNJhd/2x15nfdZe57uf5+yz9lZhBO1kCfDx +8fXjsfAMadFbU9rWYj46Vx1dx+Ui85HMTQyrXFQiJF+2YE66QbKaVRWqu0Bz +rcd2Zr4RFtN/jjySvu9pwC5kR9ULWTWjM5p2r55jx71YUROV8xbluhF3GrHL +20Ju/6W/Rz919TmvsAc6myKOVX5CH2oLzjdjryRpe6ctv6JUra6brdj2oxHG +Yc1daNWpaul27Oq/A6LsnG50qddp+gP2h9NyJ0oO96LmowlbvmCPCFsNTNJJ +FOgZPdWFLXwp2EOf4qGAmjVSJPYqybSXIZX9iNly8sYAtpPC9P0RyyHkk4u+ +TmMTd1RldRePoOi+R7dmsaPUt8ccbB5F9+811QuSXPRJrmPDkZyfyOG6stNy +bOaeAP+kS+PokJt7gSL2WCrf3aLDE+hJluUJdezFqrrLftKnkKymgb0RdjKz +3maZzDTynDdztsBWfuARtY6aRn/zfj9zwDZaGztyqPIX+sKX3M7A9jPoah6w +/It8nHf0JWFPso8KimjMogNpIvS72KcqRU21Fs8hp9kTZD52Chg98m2eR0Ef +z8e+Xqgv66VVaA4/aPa5Fy7hcVHOiyTOaQUBqMvkbFmJPdbnFXH1kgCIXFMz +0cGO0J56UnB4EfR69/o6YSc/VqGN0oVAosQx5yZ2Z9tQ9VyGENTNN57Kw1Ye +L90jISMMJVGLamqxczc6JepSwtDYV8MexG4oP84fWLkYjsX6t1v2cdFUfXtX +v6UYbJRbrbe4n4ukHMSWnagWgzto7o0a9voOKxA3Foe2FpEfW7ADuE/vbNCT +AOeWgoST2MECzevNxJbBG8Wd939jk6r5P2OmJWE2YPGQ6AD+PkTTklZ9KUj0 +cUHrsQUe8VRWhEgBM79H3BVbWX/1zpxBKfBUaVa8g73HMqGohSMN7zr/8psO +clGrT2iY3GsZeJtmNHhhiIu+P7h80XuxLLzoZE6UYA8N5mQ8tJaF8s3D4b3Y +Ikd6201qZGFRtPyY2TAXWZ112ej9VA4ylaUf/cKuyDSYyk6Xh7UDG6xjRrko +k/wdvvmIEmTLua/4M85F21zPfQ/LU4LIHr1b9Amc3yC9NY+nBEE3m+MCsDdm +rpVR9lgF/0tg5nzBbmB4PREyXw0zHWYzdZNcND7K+bc/WhmyLPa2Zk1zkfQh +q+InjqrAV6IXWPWbi3iZIn7OAaowXz54kP8PF5V9bVMYjlWFyZbij1uxPR32 +RWvUqILe8yMT77AzdcJ33qTTwKh71GTsL15/4MFYpJwa9JTNSaF5LnLxFdW1 +61YHVe/UQV1BEqFwV/ruWXWI2LvzXSS2dky6IVNeAyzs6Spt2HwZ+haROzSg +s/E4FSZEorzve3cX1WpAne7x2BphEgm75Z5eeW8NXHFJW39oCYnKrBw/DDC0 +gM3799XypSTK2HXjCxWpBVa8ropQ7MuMbo7gLS0Y1GhZ/habeero4Kp2Lfja +ZitwZRmJJKvS+HZZakP2NpmGpVIkCtAf0a6k6cBIXD2pJkMiBdUrURe5a8HK +0qssTYFEVRcmtWYEdEHaVvCTpCKJPCc8OggVXXCRVg+Lxb7doKZl4aULa7/1 +K4QokUjVt+Ldr4+6EHWDMnRYjfvNJdWJ13rwuZZ+W55GIiWFVYSyx3q48W6Z +laQOidZmHRH7g+ggE7JT9KgpiRjM6CldJzo0k7Mec9gptMTv3p50qPviIHPe +jESL7j0ueMGmw5R339tUcxJ13h5wSSykA3vlZZ/XQKK4FO80LZo+ZCg+GDK1 +JhHvooOeu/BGGF/2viTEiUR3Q9WcnzZvAteObhMag0Rt4cjwbJYx+O1ZyqhI +JJGK13unfYFm4PFC4AejiUSs+ZJ8pWMAk2n8r6OFeEhusOwfOYYFxC7ZwEt3 +5KEj+qZfE7WtwN3D5kBSCg8xhv++lB6whk1+4vUuP3gozyLsn/RWGxDuoc2a +2/ahzMmA2txkW/CyubYyJ6cP/dqy4k1DlD34Bzz/JabUj77xLfrZfcARJocm +tBjX+9FhxaCE07TtwIt5ElKx9AfK939Zcy3GGcpNljcxUn+g4xPylI7/Drhb +KW2INAfQlN1Wt8b9O4Eju4bQfzWAjPde3ULu2AVxYY3s2uBB9E4+LaBB3wWs +hUv442WG0Mr70VXZmq4w0JSxw/vtECrjaDs4ibuBfqTmbr24YbSqY8w3fNgN +/EMEbCWtR5D+tau5GZzdIPpn25i2/ChKE5zQS6x3hxTy1EwIbxSVbFnXGVPu +ATLEVKAOMYZSDC9I/s3ZA9tOOjxjdo6h1i9ZsfqX9sJ4UUKtn+1P9NQxVS34 +lCcY5HneVW74iX4e2sV3mLkP3M4zxLcbjaOprVp+I5ZeEOz37q7yo3GUPfz5 +V5jBfvj0v5xn82smkPvdLJ99Yt5ACdjb/72F75Ui+/2LznlDyauoiHUrJpGx +wruZuBlvWN199kFN3CSicXw73/ofAP+D9GOcqUnEFT24PbX3AJjd2/AyiJhC +bZedfGxcGTBrnlw882oKJbPTRY+2McBRo5H6T28aVVXPz/jY+kCJSb30l/PT +aKknnNOv8AE3jupBz45ppLy8sVWxygeuPxXiT3g/jdY3O64QrvaB1Op/++o+ +TKOdpnsffqr1Aa+3o5kan6dRsmL465OvfODYmuhO8ts0Wvnt0dKXn3xg4NqG +CYu+aaTmJZfiSfmAXVLTr6Mz08jYeyQ7ZiMTRmXSHhcoUOj+zbEwJwMm+A20 +/MpUpNDy9nFzOSMmvGpM/S9FiUIj1lRHtgkTOlIs+k6upvD5xcffbMGE6XKD +dKBRSIKS9JDawYRimorXfW0KceM3LUk/xATVW2K1P40odLkywr/sPhP0GoVf +ntxFoUP0G8bsbOzQR68tXCjk8LBwiVEOE3Ik9Gn/uFJI5AbvYWkeE/ZvtXsT +70ahmFDngZJiJjyvNF6S5EGhCC21g0/rmKCgFT8bsZ9CATdeBxZ9Z8Kcr0rT +mwAK2UrwTEM5THiqnjIXcZBCmjF84vQeJlT7ap7RCaQQL3RTXiHJhH2kYHjs +IQodcEofLhhigrhSrdjGYAq5C4UdfvybCcv9nD8eOkohm7CVwbmyLGicVxnb +E0WhuvRYu8QVLMhKIUr5TlHItHlcjb2SBe12fg+zsNerv/5suYoFmpf5xIdP +U0j+4wnLL+osmCRWtYScpdDg5m+yIptY0Gx6WmZXHIWuCNx55ruLBcPJNflh +ibj/dWIpjq4ssBTPPTOHfXYvO1R/NwvWTt2JOJ9EIXax85r5PSxwmVPquZmM +6yf4r15nsKClriCo6DqF9JsYzOchLBiXtGRX/Eehj1fVRWkJLEgLM2Go36NQ +PhL367/KAp7FY8d47LPDkw15SSwQn6X+ncSm2zZEGt1ggbZT/vmaDLx/fD7j +jrdZEKphkbI9i0Jbg+58ZueyQENp7T7bbAopKZ03MM9nwVujSp0s7MmmoKRF +BSyw82ky5HtIoXsayPHyExaUe8gvLsae/fatJqOCBQ40t3NSjyhU7KCQ3fKS +BRGOpaM5eRS6+FtAKLmJBS9L7ON/YzOyBw54NLOAzbfJ1zafQssEKxS4rbh+ +7dpWLnZgpfuVmQ8sqPlIhkgVUIimfT1cjWRBQpHC0LYiCv3+eLL9B48F8nXm +Npew22JY6x/3s6DpxdNvLdiR3RsHjIfw+9tYVTueUKgzpX3f9gkWWD/bjJyK +KZT4j6T1cX4CBPPanFRLKFQ1/m3vkUUEPM+NK9qP3fctJ/SwEAH7pFSVU7FN +i63uMJYQcIbKXyFViv83b/YfO0kC8jcdOzmOvczBWspamoDP/x3U0yyjkImh +lBaSIWB+SU2/J3aCeK6bvjwBSrtdj9UvzFd0FSqoEJCTkbs4ppxCRFbuSxka +AUFszUVPsBMSjnUtVSfgXvtNYQ42j5AWF9QiILZLR9OwAs9L2/gNrScgN7C+ +4zN2xZx0FI9OQHNFugxfJYXIH5xrnI0EKE7J7FfH3lxzvL7DiIAs/weih7C5 +gfmrngEBlW+2N41hS7if2FRqQUCR0qDT0ioKGVtucyi0IsC59P2XtdiX5XuO +ZW0jIPgMW4KFXSb4OCHdjoC7JirFUdi9oyce3HQgoMfx94Gb2EYvZN7HOxPg +cFzlwytsRmHP4LmdBBiaMVI52PGpjwXOuBBQmlMWMI3dE2q7PtydAIXnl1ev +fkYhcS9Zm+A9BLiZLhKmYxvZ9u4L8CSgazx80hI7fvXJi17eBNjd3faDiV0m +YnfPnUHAxZi00TDsninZ8p1MArinu2ZPL+R197Y6EASYlYosv7KQ11zA2+pH +QNsFBfotbEbpyVkIIEDjvoT7/YX8e3bLTQIJWENxYgoW8uPldDYdJmD28ZXK +8oV8NnfLumACDGxWzNRiizEL3bVCCSj+l23+Cttwe2QQ7QjuD/Ivti7kb7aP +VQonoJMs5XRgX1JfkSbHJmDpaJLZZ+ySZeQTyeN4PzW33PuK3f2nsEk0ggBW +RrVE10J+X2S3UCQBVsWi0Rxsg3f2v+ajCKiaXDO/4P8DgzYnbQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6529247830548836, + 1.4838571517023373`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.652924783054885}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6529247830548836, + 1.4838571517023373`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.652924783054885}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0Vd0bB3CEt0yFkFC4yBDVVYYM+8mQjKkQJem69xhSpvLeSlSiVEqo +9EYqlISQzPmZSkkomjS4uOeSOdNJhd/2x15nfdZe57uf5+yz9lZhBO1kCfDx +8fXjsfAMadFbU9rWYj46Vx1dx+Ui85HMTQyrXFQiJF+2YE66QbKaVRWqu0Bz +rcd2Zr4RFtN/jjySvu9pwC5kR9ULWTWjM5p2r55jx71YUROV8xbluhF3GrHL +20Ju/6W/Rz919TmvsAc6myKOVX5CH2oLzjdjryRpe6ctv6JUra6brdj2oxHG +Yc1daNWpaul27Oq/A6LsnG50qddp+gP2h9NyJ0oO96LmowlbvmCPCFsNTNJJ +FOgZPdWFLXwp2EOf4qGAmjVSJPYqybSXIZX9iNly8sYAtpPC9P0RyyHkk4u+ +TmMTd1RldRePoOi+R7dmsaPUt8ccbB5F9+811QuSXPRJrmPDkZyfyOG6stNy +bOaeAP+kS+PokJt7gSL2WCrf3aLDE+hJluUJdezFqrrLftKnkKymgb0RdjKz +3maZzDTynDdztsBWfuARtY6aRn/zfj9zwDZaGztyqPIX+sKX3M7A9jPoah6w +/It8nHf0JWFPso8KimjMogNpIvS72KcqRU21Fs8hp9kTZD52Chg98m2eR0Ef +z8e+Xqgv66VVaA4/aPa5Fy7hcVHOiyTOaQUBqMvkbFmJPdbnFXH1kgCIXFMz +0cGO0J56UnB4EfR69/o6YSc/VqGN0oVAosQx5yZ2Z9tQ9VyGENTNN57Kw1Ye +L90jISMMJVGLamqxczc6JepSwtDYV8MexG4oP84fWLkYjsX6t1v2cdFUfXtX +v6UYbJRbrbe4n4ukHMSWnagWgzto7o0a9voOKxA3Foe2FpEfW7ADuE/vbNCT +AOeWgoST2MECzevNxJbBG8Wd939jk6r5P2OmJWE2YPGQ6AD+PkTTklZ9KUj0 +cUHrsQUe8VRWhEgBM79H3BVbWX/1zpxBKfBUaVa8g73HMqGohSMN7zr/8psO +clGrT2iY3GsZeJtmNHhhiIu+P7h80XuxLLzoZE6UYA8N5mQ8tJaF8s3D4b3Y +Ikd6201qZGFRtPyY2TAXWZ112ej9VA4ylaUf/cKuyDSYyk6Xh7UDG6xjRrko +k/wdvvmIEmTLua/4M85F21zPfQ/LU4LIHr1b9Amc3yC9NY+nBEE3m+MCsDdm +rpVR9lgF/0tg5nzBbmB4PREyXw0zHWYzdZNcND7K+bc/WhmyLPa2Zk1zkfQh +q+InjqrAV6IXWPWbi3iZIn7OAaowXz54kP8PF5V9bVMYjlWFyZbij1uxPR32 +RWvUqILe8yMT77AzdcJ33qTTwKh71GTsL15/4MFYpJwa9JTNSaF5LnLxFdW1 +61YHVe/UQV1BEqFwV/ruWXWI2LvzXSS2dky6IVNeAyzs6Spt2HwZ+haROzSg +s/E4FSZEorzve3cX1WpAne7x2BphEgm75Z5eeW8NXHFJW39oCYnKrBw/DDC0 +gM3799XypSTK2HXjCxWpBVa8ropQ7MuMbo7gLS0Y1GhZ/habeero4Kp2Lfja +ZitwZRmJJKvS+HZZakP2NpmGpVIkCtAf0a6k6cBIXD2pJkMiBdUrURe5a8HK +0qssTYFEVRcmtWYEdEHaVvCTpCKJPCc8OggVXXCRVg+Lxb7doKZl4aULa7/1 +K4QokUjVt+Ldr4+6EHWDMnRYjfvNJdWJ13rwuZZ+W55GIiWFVYSyx3q48W6Z +laQOidZmHRH7g+ggE7JT9KgpiRjM6CldJzo0k7Mec9gptMTv3p50qPviIHPe +jESL7j0ueMGmw5R339tUcxJ13h5wSSykA3vlZZ/XQKK4FO80LZo+ZCg+GDK1 +JhHvooOeu/BGGF/2viTEiUR3Q9WcnzZvAteObhMag0Rt4cjwbJYx+O1ZyqhI +JJGK13unfYFm4PFC4AejiUSs+ZJ8pWMAk2n8r6OFeEhusOwfOYYFxC7ZwEt3 +5KEj+qZfE7WtwN3D5kBSCg8xhv++lB6whk1+4vUuP3gozyLsn/RWGxDuoc2a +2/ahzMmA2txkW/CyubYyJ6cP/dqy4k1DlD34Bzz/JabUj77xLfrZfcARJocm +tBjX+9FhxaCE07TtwIt5ElKx9AfK939Zcy3GGcpNljcxUn+g4xPylI7/Drhb +KW2INAfQlN1Wt8b9O4Eju4bQfzWAjPde3ULu2AVxYY3s2uBB9E4+LaBB3wWs +hUv442WG0Mr70VXZmq4w0JSxw/vtECrjaDs4ibuBfqTmbr24YbSqY8w3fNgN +/EMEbCWtR5D+tau5GZzdIPpn25i2/ChKE5zQS6x3hxTy1EwIbxSVbFnXGVPu +ATLEVKAOMYZSDC9I/s3ZA9tOOjxjdo6h1i9ZsfqX9sJ4UUKtn+1P9NQxVS34 +lCcY5HneVW74iX4e2sV3mLkP3M4zxLcbjaOprVp+I5ZeEOz37q7yo3GUPfz5 +V5jBfvj0v5xn82smkPvdLJ99Yt5ACdjb/72F75Ui+/2LznlDyauoiHUrJpGx +wruZuBlvWN199kFN3CSicXw73/ofAP+D9GOcqUnEFT24PbX3AJjd2/AyiJhC +bZedfGxcGTBrnlw882oKJbPTRY+2McBRo5H6T28aVVXPz/jY+kCJSb30l/PT +aKknnNOv8AE3jupBz45ppLy8sVWxygeuPxXiT3g/jdY3O64QrvaB1Op/++o+ +TKOdpnsffqr1Aa+3o5kan6dRsmL465OvfODYmuhO8ts0Wvnt0dKXn3xg4NqG +CYu+aaTmJZfiSfmAXVLTr6Mz08jYeyQ7ZiMTRmXSHhcoUOj+zbEwJwMm+A20 +/MpUpNDy9nFzOSMmvGpM/S9FiUIj1lRHtgkTOlIs+k6upvD5xcffbMGE6XKD +dKBRSIKS9JDawYRimorXfW0KceM3LUk/xATVW2K1P40odLkywr/sPhP0GoVf +ntxFoUP0G8bsbOzQR68tXCjk8LBwiVEOE3Ik9Gn/uFJI5AbvYWkeE/ZvtXsT +70ahmFDngZJiJjyvNF6S5EGhCC21g0/rmKCgFT8bsZ9CATdeBxZ9Z8Kcr0rT +mwAK2UrwTEM5THiqnjIXcZBCmjF84vQeJlT7ap7RCaQQL3RTXiHJhH2kYHjs +IQodcEofLhhigrhSrdjGYAq5C4UdfvybCcv9nD8eOkohm7CVwbmyLGicVxnb +E0WhuvRYu8QVLMhKIUr5TlHItHlcjb2SBe12fg+zsNerv/5suYoFmpf5xIdP +U0j+4wnLL+osmCRWtYScpdDg5m+yIptY0Gx6WmZXHIWuCNx55ruLBcPJNflh +ibj/dWIpjq4ssBTPPTOHfXYvO1R/NwvWTt2JOJ9EIXax85r5PSxwmVPquZmM +6yf4r15nsKClriCo6DqF9JsYzOchLBiXtGRX/Eehj1fVRWkJLEgLM2Go36NQ +PhL367/KAp7FY8d47LPDkw15SSwQn6X+ncSm2zZEGt1ggbZT/vmaDLx/fD7j +jrdZEKphkbI9i0Jbg+58ZueyQENp7T7bbAopKZ03MM9nwVujSp0s7MmmoKRF +BSyw82ky5HtIoXsayPHyExaUe8gvLsae/fatJqOCBQ40t3NSjyhU7KCQ3fKS +BRGOpaM5eRS6+FtAKLmJBS9L7ON/YzOyBw54NLOAzbfJ1zafQssEKxS4rbh+ +7dpWLnZgpfuVmQ8sqPlIhkgVUIimfT1cjWRBQpHC0LYiCv3+eLL9B48F8nXm +Npew22JY6x/3s6DpxdNvLdiR3RsHjIfw+9tYVTueUKgzpX3f9gkWWD/bjJyK +KZT4j6T1cX4CBPPanFRLKFQ1/m3vkUUEPM+NK9qP3fctJ/SwEAH7pFSVU7FN +i63uMJYQcIbKXyFViv83b/YfO0kC8jcdOzmOvczBWspamoDP/x3U0yyjkImh +lBaSIWB+SU2/J3aCeK6bvjwBSrtdj9UvzFd0FSqoEJCTkbs4ppxCRFbuSxka +AUFszUVPsBMSjnUtVSfgXvtNYQ42j5AWF9QiILZLR9OwAs9L2/gNrScgN7C+ +4zN2xZx0FI9OQHNFugxfJYXIH5xrnI0EKE7J7FfH3lxzvL7DiIAs/weih7C5 +gfmrngEBlW+2N41hS7if2FRqQUCR0qDT0ioKGVtucyi0IsC59P2XtdiX5XuO +ZW0jIPgMW4KFXSb4OCHdjoC7JirFUdi9oyce3HQgoMfx94Gb2EYvZN7HOxPg +cFzlwytsRmHP4LmdBBiaMVI52PGpjwXOuBBQmlMWMI3dE2q7PtydAIXnl1ev +fkYhcS9Zm+A9BLiZLhKmYxvZ9u4L8CSgazx80hI7fvXJi17eBNjd3faDiV0m +YnfPnUHAxZi00TDsninZ8p1MArinu2ZPL+R197Y6EASYlYosv7KQ11zA2+pH +QNsFBfotbEbpyVkIIEDjvoT7/YX8e3bLTQIJWENxYgoW8uPldDYdJmD28ZXK +8oV8NnfLumACDGxWzNRiizEL3bVCCSj+l23+Cttwe2QQ7QjuD/Ivti7kb7aP +VQonoJMs5XRgX1JfkSbHJmDpaJLZZ+ySZeQTyeN4PzW33PuK3f2nsEk0ggBW +RrVE10J+X2S3UCQBVsWi0Rxsg3f2v+ajCKiaXDO/4P8DgzYnbQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6529247830548836, 1.4838571517023373`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.652924783054885}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.652924783054885}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.6529247830548836, 1.4838571517023373`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994256998536689*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"c3c58630-f2af-484a-98f6-b2777dadd79e"] }, Open ]], Cell[CellGroupData[{ @@ -6561,347 +6516,539 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918505781608486`*^9},ExpressionUUID->"4b73592e-b155-8f42-b33d-\ -562f8b3faecd"], + CellChangeTimes->{3.9918505781608486`*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"9f5fa53c-8bea-a349-9c29-e4614f56cc98"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.97866372641179`*^-263\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, 9, + 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994256999247492*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"f21c996b-f0c7-48c8-b06f-268648ec8fca"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"a2ecd22c-b766-5347-9e03-9d459620be75"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.4311447354719395`*^-274\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 95, + 10, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942569992604322`*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"7bc2a564-4aef-4571-bb2e-eda040958e86"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"45a49c2b-98f0-ca4e-ab79-bb0334e26ffd"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.952360950102517`*^-285\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 95, 11, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994256999270566*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"7e4ba309-ef31-47bb-ae47-aed2e115f33a"], Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"258782e2-0da4-1143-8b36-76da0d2ac6df"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.031746 0.0147151 6.72103 [ -[.18254 .00222 -3 -9 ] -[.18254 .00222 3 0 ] -[.34127 .00222 -6 -9 ] -[.34127 .00222 6 0 ] -[.5 .00222 -6 -9 ] -[.5 .00222 6 0 ] -[.65873 .00222 -6 -9 ] -[.65873 .00222 6 0 ] -[.81746 .00222 -6 -9 ] -[.81746 .00222 6 0 ] -[.97619 .00222 -6 -9 ] -[.97619 .00222 6 0 ] -[.01131 .14914 -24 -4.5 ] -[.01131 .14914 0 4.5 ] -[.01131 .28356 -24 -4.5 ] -[.01131 .28356 0 4.5 ] -[.01131 .41798 -24 -4.5 ] -[.01131 .41798 0 4.5 ] -[.01131 .5524 -24 -4.5 ] -[.01131 .5524 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.18254 .01472 m -.18254 .02097 L -s -[(5)] .18254 .00222 0 1 Mshowa -.34127 .01472 m -.34127 .02097 L -s -[(10)] .34127 .00222 0 1 Mshowa -.5 .01472 m -.5 .02097 L -s -[(15)] .5 .00222 0 1 Mshowa -.65873 .01472 m -.65873 .02097 L -s -[(20)] .65873 .00222 0 1 Mshowa -.81746 .01472 m -.81746 .02097 L -s -[(25)] .81746 .00222 0 1 Mshowa -.97619 .01472 m -.97619 .02097 L -s -[(30)] .97619 .00222 0 1 Mshowa -.125 Mabswid -.05556 .01472 m -.05556 .01847 L -s -.0873 .01472 m -.0873 .01847 L -s -.11905 .01472 m -.11905 .01847 L -s -.15079 .01472 m -.15079 .01847 L -s -.21429 .01472 m -.21429 .01847 L -s -.24603 .01472 m -.24603 .01847 L -s -.27778 .01472 m -.27778 .01847 L -s -.30952 .01472 m -.30952 .01847 L -s -.37302 .01472 m -.37302 .01847 L -s -.40476 .01472 m -.40476 .01847 L -s -.43651 .01472 m -.43651 .01847 L -s -.46825 .01472 m -.46825 .01847 L -s -.53175 .01472 m -.53175 .01847 L -s -.56349 .01472 m -.56349 .01847 L -s -.59524 .01472 m -.59524 .01847 L -s -.62698 .01472 m -.62698 .01847 L -s -.69048 .01472 m -.69048 .01847 L -s -.72222 .01472 m -.72222 .01847 L -s -.75397 .01472 m -.75397 .01847 L -s -.78571 .01472 m -.78571 .01847 L -s -.84921 .01472 m -.84921 .01847 L -s -.88095 .01472 m -.88095 .01847 L -s -.9127 .01472 m -.9127 .01847 L -s -.94444 .01472 m -.94444 .01847 L -s -.25 Mabswid -0 .01472 m -1 .01472 L -s -.02381 .14914 m -.03006 .14914 L -s -[(0.02)] .01131 .14914 1 0 Mshowa -.02381 .28356 m -.03006 .28356 L -s -[(0.04)] .01131 .28356 1 0 Mshowa -.02381 .41798 m -.03006 .41798 L -s -[(0.06)] .01131 .41798 1 0 Mshowa -.02381 .5524 m -.03006 .5524 L -s -[(0.08)] .01131 .5524 1 0 Mshowa -.125 Mabswid -.02381 .04832 m -.02756 .04832 L -s -.02381 .08193 m -.02756 .08193 L -s -.02381 .11553 m -.02756 .11553 L -s -.02381 .18274 m -.02756 .18274 L -s -.02381 .21635 m -.02756 .21635 L -s -.02381 .24995 m -.02756 .24995 L -s -.02381 .31716 m -.02756 .31716 L -s -.02381 .35077 m -.02756 .35077 L -s -.02381 .38437 m -.02756 .38437 L -s -.02381 .45158 m -.02756 .45158 L -s -.02381 .48519 m -.02756 .48519 L -s -.02381 .51879 m -.02756 .51879 L -s -.02381 .586 m -.02756 .586 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .01472 m -.06244 .18263 L -.10458 .34796 L -.12507 .41668 L -.14415 .47199 L -.16371 .51906 L -.18221 .55405 L -.192 .56876 L -.20263 .58172 L -.21228 .59082 L -.2212 .59698 L -.22586 .59936 L -.22843 .60043 L -.23087 .60129 L -.23313 .60195 L -.2356 .60252 L -.23669 .60272 L -.23784 .6029 L -.23886 .60304 L -.23993 .60315 L -.24059 .6032 L -.24132 .60325 L -.2426 .60331 L -.24332 .60332 L -.2441 .60332 L -.24483 .6033 L -.2455 .60328 L -.24679 .6032 L -.24752 .60314 L -.24819 .60307 L -.25074 .60272 L -.253 .60228 L -.2555 .60165 L -.26055 .59995 L -.26547 .59774 L -.27064 .59486 L -.2799 .58832 L -.30075 .56765 L -.3205 .54159 L -.33886 .51282 L -.37791 .44198 L -.41941 .36071 L -.45939 .28487 L -.49785 .21945 L -.53877 .16105 L -.57818 .1166 L -.61606 .08416 L -.63714 .07001 L -.6564 .05921 L -.69523 .04269 L -Mistroke -.71425 .03672 L -.73499 .0315 L -.7547 .02757 L -.77569 .0243 L -.79714 .02174 L -.81732 .01991 L -.83744 .01853 L -.85592 .01756 L -.87479 .01681 L -.89546 .0162 L -.91501 .01578 L -.93594 .01545 L -.95662 .01522 L -.97619 .01507 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-3.233775858153751, \ --0.007969775184554129, 0.11832856225129938, \ -0.0005589111396958131}},ExpressionUUID->"06204099-db57-8e4e-bcc4-\ -fa1ae37c0063"], + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 95, 12, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99425699928261*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"6dc7cb38-e68e-4e68-b16d-604b74c0bb4d"], Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-\ -04dec8739bf5"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8Vf8fB3BfvkXK3vMOq1DKuu51r/c7KyuEskpGRlZDEQ2jSJSESkVU ++FbEHWWX0NDSQqJQKCGRkUh+5/fXeTz/+JxzHuf9fr3P50Px3+USyM/Hx8f8 +h4/v/9eZnicP1NOLzASNfmWYmVuatV2Wj13fmQRC4j9v+Z2lAsq89JfvzIK0 +daGPjc/qQ7TzzXcCnVfhQ7T8gvxZc5AYk8v6/Y4LZ6aW1g/luEBvveOuqXdN +cJUtpmef4w/W6sMfJ969gfawii9fzuyF3+9oZ8fffQbtsSa2X2oSNFv8V/T6 +6iTAhFXupFo2KPfWfPHXXYAlJgPOBcJ5IB2+/aaghQCaeR5S3KB9FbLWWdc5 +bhbCzleJ1Z4eJfA+d+39CXERrHO/Ys4cuAHpRfEv+RUk8Gqv2pPV9rfAznCn +pIyaBJb9DCk97X4LhB64bNZaLYE7V801fwu4Bcf6Nbrt10vguds1GSmHbsEh +6vMvOTslcPFAnJ3/rVsQWSj/V7NWAvcvq9pRKFIOm/I4uvbekvghTlBrZUs5 +yOX0n8jOl8LM/hsVhyTZIK9z59hsiRSGxkpausqxQbEpJX4bWwonH29FTWU2 +qI6v2q/VLIXbEk0jGzXYoOGw27duSArPe49lPDdhg8G/C8b9BtJ4Omo0yMiH +DU77ZAf0n0qjXoPoi40lbHBePtRz/q009p0rcWHfZIPL1Zr3fz5I4zuPl3pi +FWzY8mrry0c/pHHEnfqjsYoN23Sv1XrJyGBSCkTPt7AhbEDvTJKvDAqX0hzv +DbPhuJut2ZsZGTx1LuZGgg4HFG+3KvL/I4t3JV0WG/U4UC7l9mvdclncmiI/ +/9eAAx1vfNhnSLLIPyXfH8bkgPqmfdRNNrLYVKQYLrGRA00bC5a+uiCL9UuL +KekRHFiwnm59wZTDqT1x+2mlHMgsiStdsJbDB8K/BL+XE+uX8qWu3iSHTRb2 +9MtcDjg8FF5/KlAO730UOzBZw4GLFmSeQ4YcHhhLDNjZwgETtD//rFcOP7Xm +9icNcCCKfmX7kyR5lHPdsSdcgQt2haJT9iflsbvxl5avMheogodSW8/KY5Xm +bhFnEhdetW3hvL0uj+a5kYHqGlxYs3uFQE+rPP69neRQsJYLQyUxJT8VFbBP +ylWyx5oLW6UdvyvxFLA24tPFhN1cMDhYl3i5XgG/L03aN7eXC8KfV8pSHilg +etT+pN37uVBTIQCa7xVQ1sCDuSmOC7L2NZlrFxWQ9TZMb/Ao8fxEdUMre0W8 +qdazyf0cFyx/zMVF9itiv/LHxqBqLsTa5Gg3jiril8b5sm21XCi/srpLakYR +N/l5/HGu54K8my+9RkgJy566PdG9z4XR6oe/BNYooSHNU6vmMReykzL3XTig +hHRZbSeNDi60dK9SH01UwoP9qeWfiZz+MWx+a5auhOPfnh7Ie8+FoK/T+gP5 +Shi7pcVpyUcuMBy8J9Y0K2GBV7Z0WT8XPstoRj4QUcY372x3OI5zQW5Xg4qc +nDLeHN91880EFxxaPF7sJCujqZJRgOskFyrj0nXFDJSRtcBeYzfDhbTe8WFP +D2Uc22PCFPnDBf0bdcE/riqjiJ1F6belPAjm3yxnXqaMVme+eRsJ8SDPe+xR +zh1lvN7x+/jhZTxYKkrRZLQoo1RwhZvACh507U0ZOPZdGbdaLXs9IM6DROYm +P0UTFWTOX/u4qMADG5/LP2nmKnjo17632ko8EE0YObrZQQVnyVz2JmXi/s3J +JZm+Krg3vlE9W5UH1Xa1I0tPqCBt5LbwIJUH8eGCh9WzVdBX3cf1hxoPrDPc +RM3zVZC0xiRtWp0Hba/H1h7mqCD109zDaU0ejHuoRU++V0HP+LCMh9o8qIrb +LSgxoIJPos39KnR4cCTvbu6aMRXceTJw1VldHqzoc6/bya+KVvK0fLc1PNAK +PsnXp62K7p8/615bx4Ox1PdnFgxVsef6aHO4Pg9u39RUUwJVjO3huusb8MB8 +7L7VFldVJBdYxXIMeeCzfzrt+UFVfEM/1hBP44HGeXPl4WRV3KgQ4r7KhEf0 +x+lbgpmqGLTi+WQr4bg/q16ZF6ni7m2iZqIMHpw96iNT81wVX/FfMtzG5MHW +4tKSjg5VLOvPWfGVMPXxLG2qTxU95NUnwlk8YAtne+lNq+LlGfWBcDMePD/z +uKBYhYTX3L9msJAH2Tzpdc1aJNQZrBn6j7BXu19T3zoSxn1OcRddz4Mh+T8D +StYktBbxOvCScAXDNpruTMI2w1RdbXMeRG89J+juRcIT9/jmEggLFK7Vzook +4XvjNYNUCx48bTxcV3GAhK4PpZdEEs7sf+rwIomEXyavm98h7L5Evmf4JAnF +Ti8tmCWsqhW4S+g8CROy7ZRMLHkwaMPl07xCQr3V2dVRhMtCF89YlJIwrHIx +ppQwo/zC7SMNJFzZ/9hPzIoHlu9aF8ZaSBjzen+1CWFHvn83bH9Dwgay4R0f +wh6r6Jkvu0nYMzzukUg4wCXyPQyS8IH2paJCwpEHr1HZYyTsqKNeqCd8oKgz +jDxLQmfPA7R2wo1fUrxa+Mh4JP9UwjBh64OU+IQlZKT9s3n/H8LPxOqvmQiT +UaW7UXa5NQ+ci7a0jIuS8Y9PS6As4Q6TidHrUmSk5G8LUCXs/SJdwk+ejLcT +Y8TVCPf5aRorqJBRoG1FpDrhoJn7Xq8pZPxqJHOYSngkzTv+hCYZhdROmKkQ +3k2aubZeh4z24348acLTvMyW33pkFH124YMQ4Tgbne8cQzJmVOvU/Sbej+/j +Q4lQOhkZZ6WcvxJO3uNrTDUj45yUY95rwsJL5726zMmYc7ezsJpw5sWz8Vkb +yMg3zvHJIyyjt7bIzoGMNz92dhwifLH5aQv/JjJ2n9wo7EWY5BH4vXYzGRc6 +xOcMCBeNLkpEeZFxPlj9P2HC2okXjXW2kzHtbppkD1G/Chkj7/4AMh7W3MAq +J2x482X8pRDi+zRtW3mQcK1ZaJFrBBlT4t+2WRJ+EFzwvTmajKc1p/a3Ev1i ++4cueeggGaV/lYVnEG7NbDM2TCBj7Z2+lfaE39csSyg6Qcaf5z9O1xL96eNY +VLQ1g4zeS+qEIgkPfDZ7Ip1NRp1J00EVwmPL90km55ExPMtzMYro96hCURrr +ChnvdomDIuFZwxve08Vk/PSy0OEukRcBn56iwAqiPkdS238DD+TZNjTrJjJe +9nCpdyDylm/Z7/33ERkX54pS3xN5pL4/nFD5jIzrG7frBBBezc97otlO1Gsk +YDacyK+5m8pWwSEyLhfRfelF5P3xUFVCwygZ/d9DRCudBw6HXYpjJsg4ee7g +sBlh95LjY1/nyNje2ZkiS8yL8NmJhBYRCl745BZUaETkY0+Q7BdJCm4YGZX7 +TswfoeGuUgF5CvL3amoZEy7ubu4wo1LQvsR8x11ifvXcO6t7x5iC81oFiYV6 +PHBKpnde2U7Bf6PMMmtXEvn8eyuiYQcFLdt4T19oEfMqmirwcScFjR+ax30k +5mtqyPI18vsoqMhXZvaTmL/37T8ezUilYI5je8oEmQf6kol6BzkUnOi5G2Ij +T/Rj+vSD3EoKml2Jv6kmR9RPINSrso6CKxfrY+dleBA27ZI88ZCCSnGfHhVK +Ef3Uqd4d3EXB7T8SNjSJ8kC2oCXFTYCK690dzP3/5cFvHfGe1Zup2OBSYUv5 +zoWZfMVEAy8qXrG4W5Q7woUpMQ11+nYqMoLye1YMc2Fskh5quZOKReelpke+ +EP/PuoAZr8NU7L5T1XmsjwtP7atEU4upOFM81019y4WLYT7weZqKClZ35xUr +uXD+Y8jnr3NUbDldZLHuNhdynKKSvy9SUbknJd+Sy4UMg9Rns8vU8JJryyn/ +ci4kzXPcxVTVMHh2TcbBEi6EpS/ZzbRWw2qRxng1Yn/BLC0rPHdODVOzcp9s +ieJCN7m0wOqSGlpK9VbS93Ah7tyNy1MFauibK22tuIsLVYkleS431NBb4IVT +Wyjxv/YozBWtV8N1Y0tpuv5cWLUkJzPlkxo2X6OlhTsT+5vtBxOiddXR7v7a +RRMdLkxI2vluaVLHe8zWN05dHOgMp74KfayOpKyG2PB3HLj/aA7in6vjCeWH +jSltxH4wrpR0vUMdee+8mbdbObD284re38PqGPdxRHSyiQORnJfb8qU0cOfc +8+Z/iP3jsNNm74EdGqj18bD17lgODJz03bJXUBPdOge7ZsU4YPsjxnbQWAvz +2kqObaCxYTRAKOp2/ErUj8t6szO0nDiPyPEfb1qFq/oaCnY4loHkC80M9g9t +7N5SKXbU8iYop1Y4GxvrIiXjw8uspdchV4cuLhW8GmN2CedXjBfDU8X1RpNn +1mDdf6KPfo9dA4ZyU6Zehx5q/ZAeGXl7BUQFru7zS1qLpt2BE5u+FoBqIonp +qbkOXdgzPW0SebBMY2uly+N1GHs8QIx9JhfWsBQqYrbpo9hUFtUg4yzs7ZFs +tuMzwBg3mz7RrCz4MXlys22uAT5iaVTqiGTCBr1HF21XG6LPdLKHzvV0uDdp +Ov+r1RBtfwtkFG87DpG6+l2vA43wzKURr0MdR4E1tqPNc5kx1lRnV6XGJ4CV +uvxGkavGmMTbfaXiwkFYmZB2oIlGw3Wm4ccOCMaAdiC9QaOLhtcbj3rNPdsL +p6mOc0c/0FDmpuKjhLt7YarX3+hzDw1fLPuQJl6xF+55nSy93E/D/DZHUYes +veDi3Hte7jsN737VTtL33Auxpsm7l/GZ4LOCA7Y1Q3ugReI15buGCTr5pHac +Ft0DgfdCjt3eY4IzJ0eTe4YiYSxiOMZqnwk+PWzVYN0aCQdUwsM6ok1wXjIt +sIkXCWmHdrnMHjTBLgGJ1skjkcBmRJOZKSbIUGINsGQj4U/l0frmiyb4t/dU +R6BNBGRVXJ5602yCY1dXfq2tDYOGwrYdEzJ03KTTYGPQHgJ9DpTt0fJ0fNJz +9FdaQwjw/Y7wnFek442e2L6fN0LAfJOg4xIyHfkLtEwnj4TAo38YNAVtOkZU +hS+/syoEnvsXLFtvRkdPc2afYVIwdKmHlmcG0XHIr5oxYBYEU9cXf+lV0dHr +gsZl/sEA+LLFuvBEDR3p9Zlurm0B0PnvKZv+OjrWS1itZTcHQJ2v4oVz9+n4 +6bKLacbVAEiSN2IsPKGjZsDy7i7fABBPDT309AMd1RLdKOxef9ANbucL5Gcg +Y4LsqPjFDwI0Spdd3MhAkfLkY3ukfSHuoU+opjMDaannfoYu8YXMQMlnXBcG +9i0pcP80uh3qi2NPPnNnYFXcz7vrOdtBWtNGbMGPgcW/tz7WNN0OjzQHpX2j +GWjc8TAvytUHtFeSyJoFDPx7Icvy+tmtMKGdbcwdZ2CQyJ9c6W2e0PkcraQm +GXi+VTPd0doT7keOue6bZmB8TUz6RT1PyODa7jGeY2CvqtjxEH5P0GbwldUK +mOKK5C7V7use4G8bQWmWJaw9kSr+2x3agjesaGOa4ovJ1+phJVugumj+03Sq +KQZWnVgdou8Gxhb7ftmlm+JPm0r5VWQ3uPNpdEXhKVNcyKkumxVxA65qD80u +yxQD2Dn/NX9zhbLc+6cuXzLFWXXFNsGrrlB4Mpm+odwUxYO+RqGMK5zYJ3Ym +960p9jIZOnpLXcDLUg1NVZmY9yoFp8WcYaFNSLSZzMS4678GihadoDBwrNtO +jYlHTM03Hup1gi8pNTFeK5n4ij37OrHACfY+caqI1WfiLt49GCQ7QZrjIdVq +ayZG6FXtn1vpCLUe7X8MdzGx8G230eONDqAUcbxmzX0mDmmdHPMatIGMxSCj +9CYm1rw6MR74wgb4s6w5Xx8w0dtCqzL5jg0MVy65UfiEibPGyo4CKTZQy3cs +V/ItEyNthxantGzAKychZmaQifnVZXzFuzZAbl2s0b3lLHzddmzhhYg1rHD0 +5CiKsvCeQeS/brNWkNBnsjpGnIXrvRfHRj9bQciSWfW1MizcqRBp5F5tBTSn +aOmrqsT6ZXXTy3dYQcfnvZPJ61hoO3X+zbd7liAjHM7Z6M7Cf44I0WSSLKDI +4nDcuCcLO0P7GFfCLUD/cIZF9lYWxgWszzN3twDHcXZ7px8LN1gFrX6oawEp +HdO/A8JZqNyeeuxxpznMXo03j0tkoavxD2GOoTl0mWa/LSlloZxbMPPiPELI +/qI823IW3qekjZcPIcyU3wkcZbOwKvF5S0c7giS189e6ShY65D+9sp2NYC+k +onz3Pgv3HJdRcQtCqG8r2fG2nYX2P/xNokoB7ESrV0d3sjBsMShi4jhA54Yn +M/LdLIzITu3I3gEwVTuS6tPHwqj+4GZLVYDVV9be+jbMwtbzxQmu2WZQ37U+ ++uR3FrZf+dP6Y7cZ2Em7gt44Czct9XeucDSDoOP7X++bZiHd6UzEeWEzmLqf +clFuljg5XdB/2jDEgqS58wG1cyxMnczsFn7MAnHDG7rbFljIOuGSdKCYBZcj +aqcXF1lI6jAsEDrGgv8BWdDiYg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3BfvkXK3vMOq1DKuu51r/c7KyuEskpGRlZDEQ2jSJSESkVU ++FbEHWWX0NDSQqJQKCGRkUh+5/fXeTz/+JxzHuf9fr3P50Px3+USyM/Hx8f8 +h4/v/9eZnicP1NOLzASNfmWYmVuatV2Wj13fmQRC4j9v+Z2lAsq89JfvzIK0 +daGPjc/qQ7TzzXcCnVfhQ7T8gvxZc5AYk8v6/Y4LZ6aW1g/luEBvveOuqXdN +cJUtpmef4w/W6sMfJ969gfawii9fzuyF3+9oZ8fffQbtsSa2X2oSNFv8V/T6 +6iTAhFXupFo2KPfWfPHXXYAlJgPOBcJ5IB2+/aaghQCaeR5S3KB9FbLWWdc5 +bhbCzleJ1Z4eJfA+d+39CXERrHO/Ys4cuAHpRfEv+RUk8Gqv2pPV9rfAznCn +pIyaBJb9DCk97X4LhB64bNZaLYE7V801fwu4Bcf6Nbrt10vguds1GSmHbsEh +6vMvOTslcPFAnJ3/rVsQWSj/V7NWAvcvq9pRKFIOm/I4uvbekvghTlBrZUs5 +yOX0n8jOl8LM/hsVhyTZIK9z59hsiRSGxkpausqxQbEpJX4bWwonH29FTWU2 +qI6v2q/VLIXbEk0jGzXYoOGw27duSArPe49lPDdhg8G/C8b9BtJ4Omo0yMiH +DU77ZAf0n0qjXoPoi40lbHBePtRz/q009p0rcWHfZIPL1Zr3fz5I4zuPl3pi +FWzY8mrry0c/pHHEnfqjsYoN23Sv1XrJyGBSCkTPt7AhbEDvTJKvDAqX0hzv +DbPhuJut2ZsZGTx1LuZGgg4HFG+3KvL/I4t3JV0WG/U4UC7l9mvdclncmiI/ +/9eAAx1vfNhnSLLIPyXfH8bkgPqmfdRNNrLYVKQYLrGRA00bC5a+uiCL9UuL +KekRHFiwnm59wZTDqT1x+2mlHMgsiStdsJbDB8K/BL+XE+uX8qWu3iSHTRb2 +9MtcDjg8FF5/KlAO730UOzBZw4GLFmSeQ4YcHhhLDNjZwgETtD//rFcOP7Xm +9icNcCCKfmX7kyR5lHPdsSdcgQt2haJT9iflsbvxl5avMheogodSW8/KY5Xm +bhFnEhdetW3hvL0uj+a5kYHqGlxYs3uFQE+rPP69neRQsJYLQyUxJT8VFbBP +ylWyx5oLW6UdvyvxFLA24tPFhN1cMDhYl3i5XgG/L03aN7eXC8KfV8pSHilg +etT+pN37uVBTIQCa7xVQ1sCDuSmOC7L2NZlrFxWQ9TZMb/Ao8fxEdUMre0W8 +qdazyf0cFyx/zMVF9itiv/LHxqBqLsTa5Gg3jiril8b5sm21XCi/srpLakYR +N/l5/HGu54K8my+9RkgJy566PdG9z4XR6oe/BNYooSHNU6vmMReykzL3XTig +hHRZbSeNDi60dK9SH01UwoP9qeWfiZz+MWx+a5auhOPfnh7Ie8+FoK/T+gP5 +Shi7pcVpyUcuMBy8J9Y0K2GBV7Z0WT8XPstoRj4QUcY372x3OI5zQW5Xg4qc +nDLeHN91880EFxxaPF7sJCujqZJRgOskFyrj0nXFDJSRtcBeYzfDhbTe8WFP +D2Uc22PCFPnDBf0bdcE/riqjiJ1F6belPAjm3yxnXqaMVme+eRsJ8SDPe+xR +zh1lvN7x+/jhZTxYKkrRZLQoo1RwhZvACh507U0ZOPZdGbdaLXs9IM6DROYm +P0UTFWTOX/u4qMADG5/LP2nmKnjo17632ko8EE0YObrZQQVnyVz2JmXi/s3J +JZm+Krg3vlE9W5UH1Xa1I0tPqCBt5LbwIJUH8eGCh9WzVdBX3cf1hxoPrDPc +RM3zVZC0xiRtWp0Hba/H1h7mqCD109zDaU0ejHuoRU++V0HP+LCMh9o8qIrb +LSgxoIJPos39KnR4cCTvbu6aMRXceTJw1VldHqzoc6/bya+KVvK0fLc1PNAK +PsnXp62K7p8/615bx4Ox1PdnFgxVsef6aHO4Pg9u39RUUwJVjO3huusb8MB8 +7L7VFldVJBdYxXIMeeCzfzrt+UFVfEM/1hBP44HGeXPl4WRV3KgQ4r7KhEf0 +x+lbgpmqGLTi+WQr4bg/q16ZF6ni7m2iZqIMHpw96iNT81wVX/FfMtzG5MHW +4tKSjg5VLOvPWfGVMPXxLG2qTxU95NUnwlk8YAtne+lNq+LlGfWBcDMePD/z +uKBYhYTX3L9msJAH2Tzpdc1aJNQZrBn6j7BXu19T3zoSxn1OcRddz4Mh+T8D +StYktBbxOvCScAXDNpruTMI2w1RdbXMeRG89J+juRcIT9/jmEggLFK7Vzook +4XvjNYNUCx48bTxcV3GAhK4PpZdEEs7sf+rwIomEXyavm98h7L5Evmf4JAnF +Ti8tmCWsqhW4S+g8CROy7ZRMLHkwaMPl07xCQr3V2dVRhMtCF89YlJIwrHIx +ppQwo/zC7SMNJFzZ/9hPzIoHlu9aF8ZaSBjzen+1CWFHvn83bH9Dwgay4R0f +wh6r6Jkvu0nYMzzukUg4wCXyPQyS8IH2paJCwpEHr1HZYyTsqKNeqCd8oKgz +jDxLQmfPA7R2wo1fUrxa+Mh4JP9UwjBh64OU+IQlZKT9s3n/H8LPxOqvmQiT +UaW7UXa5NQ+ci7a0jIuS8Y9PS6As4Q6TidHrUmSk5G8LUCXs/SJdwk+ejLcT +Y8TVCPf5aRorqJBRoG1FpDrhoJn7Xq8pZPxqJHOYSngkzTv+hCYZhdROmKkQ +3k2aubZeh4z24348acLTvMyW33pkFH124YMQ4Tgbne8cQzJmVOvU/Sbej+/j +Q4lQOhkZZ6WcvxJO3uNrTDUj45yUY95rwsJL5726zMmYc7ezsJpw5sWz8Vkb +yMg3zvHJIyyjt7bIzoGMNz92dhwifLH5aQv/JjJ2n9wo7EWY5BH4vXYzGRc6 +xOcMCBeNLkpEeZFxPlj9P2HC2okXjXW2kzHtbppkD1G/Chkj7/4AMh7W3MAq +J2x482X8pRDi+zRtW3mQcK1ZaJFrBBlT4t+2WRJ+EFzwvTmajKc1p/a3Ev1i ++4cueeggGaV/lYVnEG7NbDM2TCBj7Z2+lfaE39csSyg6Qcaf5z9O1xL96eNY +VLQ1g4zeS+qEIgkPfDZ7Ip1NRp1J00EVwmPL90km55ExPMtzMYro96hCURrr +ChnvdomDIuFZwxve08Vk/PSy0OEukRcBn56iwAqiPkdS238DD+TZNjTrJjJe +9nCpdyDylm/Z7/33ERkX54pS3xN5pL4/nFD5jIzrG7frBBBezc97otlO1Gsk +YDacyK+5m8pWwSEyLhfRfelF5P3xUFVCwygZ/d9DRCudBw6HXYpjJsg4ee7g +sBlh95LjY1/nyNje2ZkiS8yL8NmJhBYRCl745BZUaETkY0+Q7BdJCm4YGZX7 +TswfoeGuUgF5CvL3amoZEy7ubu4wo1LQvsR8x11ifvXcO6t7x5iC81oFiYV6 +PHBKpnde2U7Bf6PMMmtXEvn8eyuiYQcFLdt4T19oEfMqmirwcScFjR+ax30k +5mtqyPI18vsoqMhXZvaTmL/37T8ezUilYI5je8oEmQf6kol6BzkUnOi5G2Ij +T/Rj+vSD3EoKml2Jv6kmR9RPINSrso6CKxfrY+dleBA27ZI88ZCCSnGfHhVK +Ef3Uqd4d3EXB7T8SNjSJ8kC2oCXFTYCK690dzP3/5cFvHfGe1Zup2OBSYUv5 +zoWZfMVEAy8qXrG4W5Q7woUpMQ11+nYqMoLye1YMc2Fskh5quZOKReelpke+ +EP/PuoAZr8NU7L5T1XmsjwtP7atEU4upOFM81019y4WLYT7weZqKClZ35xUr +uXD+Y8jnr3NUbDldZLHuNhdynKKSvy9SUbknJd+Sy4UMg9Rns8vU8JJryyn/ +ci4kzXPcxVTVMHh2TcbBEi6EpS/ZzbRWw2qRxng1Yn/BLC0rPHdODVOzcp9s +ieJCN7m0wOqSGlpK9VbS93Ah7tyNy1MFauibK22tuIsLVYkleS431NBb4IVT +Wyjxv/YozBWtV8N1Y0tpuv5cWLUkJzPlkxo2X6OlhTsT+5vtBxOiddXR7v7a +RRMdLkxI2vluaVLHe8zWN05dHOgMp74KfayOpKyG2PB3HLj/aA7in6vjCeWH +jSltxH4wrpR0vUMdee+8mbdbObD284re38PqGPdxRHSyiQORnJfb8qU0cOfc +8+Z/iP3jsNNm74EdGqj18bD17lgODJz03bJXUBPdOge7ZsU4YPsjxnbQWAvz +2kqObaCxYTRAKOp2/ErUj8t6szO0nDiPyPEfb1qFq/oaCnY4loHkC80M9g9t +7N5SKXbU8iYop1Y4GxvrIiXjw8uspdchV4cuLhW8GmN2CedXjBfDU8X1RpNn +1mDdf6KPfo9dA4ZyU6Zehx5q/ZAeGXl7BUQFru7zS1qLpt2BE5u+FoBqIonp +qbkOXdgzPW0SebBMY2uly+N1GHs8QIx9JhfWsBQqYrbpo9hUFtUg4yzs7ZFs +tuMzwBg3mz7RrCz4MXlys22uAT5iaVTqiGTCBr1HF21XG6LPdLKHzvV0uDdp +Ov+r1RBtfwtkFG87DpG6+l2vA43wzKURr0MdR4E1tqPNc5kx1lRnV6XGJ4CV +uvxGkavGmMTbfaXiwkFYmZB2oIlGw3Wm4ccOCMaAdiC9QaOLhtcbj3rNPdsL +p6mOc0c/0FDmpuKjhLt7YarX3+hzDw1fLPuQJl6xF+55nSy93E/D/DZHUYes +veDi3Hte7jsN737VTtL33Auxpsm7l/GZ4LOCA7Y1Q3ugReI15buGCTr5pHac +Ft0DgfdCjt3eY4IzJ0eTe4YiYSxiOMZqnwk+PWzVYN0aCQdUwsM6ok1wXjIt +sIkXCWmHdrnMHjTBLgGJ1skjkcBmRJOZKSbIUGINsGQj4U/l0frmiyb4t/dU +R6BNBGRVXJ5602yCY1dXfq2tDYOGwrYdEzJ03KTTYGPQHgJ9DpTt0fJ0fNJz +9FdaQwjw/Y7wnFek442e2L6fN0LAfJOg4xIyHfkLtEwnj4TAo38YNAVtOkZU +hS+/syoEnvsXLFtvRkdPc2afYVIwdKmHlmcG0XHIr5oxYBYEU9cXf+lV0dHr +gsZl/sEA+LLFuvBEDR3p9Zlurm0B0PnvKZv+OjrWS1itZTcHQJ2v4oVz9+n4 +6bKLacbVAEiSN2IsPKGjZsDy7i7fABBPDT309AMd1RLdKOxef9ANbucL5Gcg +Y4LsqPjFDwI0Spdd3MhAkfLkY3ukfSHuoU+opjMDaannfoYu8YXMQMlnXBcG +9i0pcP80uh3qi2NPPnNnYFXcz7vrOdtBWtNGbMGPgcW/tz7WNN0OjzQHpX2j +GWjc8TAvytUHtFeSyJoFDPx7Icvy+tmtMKGdbcwdZ2CQyJ9c6W2e0PkcraQm +GXi+VTPd0doT7keOue6bZmB8TUz6RT1PyODa7jGeY2CvqtjxEH5P0GbwldUK +mOKK5C7V7use4G8bQWmWJaw9kSr+2x3agjesaGOa4ovJ1+phJVugumj+03Sq +KQZWnVgdou8Gxhb7ftmlm+JPm0r5VWQ3uPNpdEXhKVNcyKkumxVxA65qD80u +yxQD2Dn/NX9zhbLc+6cuXzLFWXXFNsGrrlB4Mpm+odwUxYO+RqGMK5zYJ3Ym +960p9jIZOnpLXcDLUg1NVZmY9yoFp8WcYaFNSLSZzMS4678GihadoDBwrNtO +jYlHTM03Hup1gi8pNTFeK5n4ij37OrHACfY+caqI1WfiLt49GCQ7QZrjIdVq +ayZG6FXtn1vpCLUe7X8MdzGx8G230eONDqAUcbxmzX0mDmmdHPMatIGMxSCj +9CYm1rw6MR74wgb4s6w5Xx8w0dtCqzL5jg0MVy65UfiEibPGyo4CKTZQy3cs +V/ItEyNthxantGzAKychZmaQifnVZXzFuzZAbl2s0b3lLHzddmzhhYg1rHD0 +5CiKsvCeQeS/brNWkNBnsjpGnIXrvRfHRj9bQciSWfW1MizcqRBp5F5tBTSn +aOmrqsT6ZXXTy3dYQcfnvZPJ61hoO3X+zbd7liAjHM7Z6M7Cf44I0WSSLKDI +4nDcuCcLO0P7GFfCLUD/cIZF9lYWxgWszzN3twDHcXZ7px8LN1gFrX6oawEp +HdO/A8JZqNyeeuxxpznMXo03j0tkoavxD2GOoTl0mWa/LSlloZxbMPPiPELI +/qI823IW3qekjZcPIcyU3wkcZbOwKvF5S0c7giS189e6ShY65D+9sp2NYC+k +onz3Pgv3HJdRcQtCqG8r2fG2nYX2P/xNokoB7ESrV0d3sjBsMShi4jhA54Yn +M/LdLIzITu3I3gEwVTuS6tPHwqj+4GZLVYDVV9be+jbMwtbzxQmu2WZQ37U+ ++uR3FrZf+dP6Y7cZ2Em7gt44Czct9XeucDSDoOP7X++bZiHd6UzEeWEzmLqf +clFuljg5XdB/2jDEgqS58wG1cyxMnczsFn7MAnHDG7rbFljIOuGSdKCYBZcj +aqcXF1lI6jAsEDrGgv8BWdDiYg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07528903662462487}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07528903662462487}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3BfvkXK3vMOq1DKuu51r/c7KyuEskpGRlZDEQ2jSJSESkVU ++FbEHWWX0NDSQqJQKCGRkUh+5/fXeTz/+JxzHuf9fr3P50Px3+USyM/Hx8f8 +h4/v/9eZnicP1NOLzASNfmWYmVuatV2Wj13fmQRC4j9v+Z2lAsq89JfvzIK0 +daGPjc/qQ7TzzXcCnVfhQ7T8gvxZc5AYk8v6/Y4LZ6aW1g/luEBvveOuqXdN +cJUtpmef4w/W6sMfJ969gfawii9fzuyF3+9oZ8fffQbtsSa2X2oSNFv8V/T6 +6iTAhFXupFo2KPfWfPHXXYAlJgPOBcJ5IB2+/aaghQCaeR5S3KB9FbLWWdc5 +bhbCzleJ1Z4eJfA+d+39CXERrHO/Ys4cuAHpRfEv+RUk8Gqv2pPV9rfAznCn +pIyaBJb9DCk97X4LhB64bNZaLYE7V801fwu4Bcf6Nbrt10vguds1GSmHbsEh +6vMvOTslcPFAnJ3/rVsQWSj/V7NWAvcvq9pRKFIOm/I4uvbekvghTlBrZUs5 +yOX0n8jOl8LM/hsVhyTZIK9z59hsiRSGxkpausqxQbEpJX4bWwonH29FTWU2 +qI6v2q/VLIXbEk0jGzXYoOGw27duSArPe49lPDdhg8G/C8b9BtJ4Omo0yMiH +DU77ZAf0n0qjXoPoi40lbHBePtRz/q009p0rcWHfZIPL1Zr3fz5I4zuPl3pi +FWzY8mrry0c/pHHEnfqjsYoN23Sv1XrJyGBSCkTPt7AhbEDvTJKvDAqX0hzv +DbPhuJut2ZsZGTx1LuZGgg4HFG+3KvL/I4t3JV0WG/U4UC7l9mvdclncmiI/ +/9eAAx1vfNhnSLLIPyXfH8bkgPqmfdRNNrLYVKQYLrGRA00bC5a+uiCL9UuL +KekRHFiwnm59wZTDqT1x+2mlHMgsiStdsJbDB8K/BL+XE+uX8qWu3iSHTRb2 +9MtcDjg8FF5/KlAO730UOzBZw4GLFmSeQ4YcHhhLDNjZwgETtD//rFcOP7Xm +9icNcCCKfmX7kyR5lHPdsSdcgQt2haJT9iflsbvxl5avMheogodSW8/KY5Xm +bhFnEhdetW3hvL0uj+a5kYHqGlxYs3uFQE+rPP69neRQsJYLQyUxJT8VFbBP +ylWyx5oLW6UdvyvxFLA24tPFhN1cMDhYl3i5XgG/L03aN7eXC8KfV8pSHilg +etT+pN37uVBTIQCa7xVQ1sCDuSmOC7L2NZlrFxWQ9TZMb/Ao8fxEdUMre0W8 +qdazyf0cFyx/zMVF9itiv/LHxqBqLsTa5Gg3jiril8b5sm21XCi/srpLakYR +N/l5/HGu54K8my+9RkgJy566PdG9z4XR6oe/BNYooSHNU6vmMReykzL3XTig +hHRZbSeNDi60dK9SH01UwoP9qeWfiZz+MWx+a5auhOPfnh7Ie8+FoK/T+gP5 +Shi7pcVpyUcuMBy8J9Y0K2GBV7Z0WT8XPstoRj4QUcY372x3OI5zQW5Xg4qc +nDLeHN91880EFxxaPF7sJCujqZJRgOskFyrj0nXFDJSRtcBeYzfDhbTe8WFP +D2Uc22PCFPnDBf0bdcE/riqjiJ1F6belPAjm3yxnXqaMVme+eRsJ8SDPe+xR +zh1lvN7x+/jhZTxYKkrRZLQoo1RwhZvACh507U0ZOPZdGbdaLXs9IM6DROYm +P0UTFWTOX/u4qMADG5/LP2nmKnjo17632ko8EE0YObrZQQVnyVz2JmXi/s3J +JZm+Krg3vlE9W5UH1Xa1I0tPqCBt5LbwIJUH8eGCh9WzVdBX3cf1hxoPrDPc +RM3zVZC0xiRtWp0Hba/H1h7mqCD109zDaU0ejHuoRU++V0HP+LCMh9o8qIrb +LSgxoIJPos39KnR4cCTvbu6aMRXceTJw1VldHqzoc6/bya+KVvK0fLc1PNAK +PsnXp62K7p8/615bx4Ox1PdnFgxVsef6aHO4Pg9u39RUUwJVjO3huusb8MB8 +7L7VFldVJBdYxXIMeeCzfzrt+UFVfEM/1hBP44HGeXPl4WRV3KgQ4r7KhEf0 +x+lbgpmqGLTi+WQr4bg/q16ZF6ni7m2iZqIMHpw96iNT81wVX/FfMtzG5MHW +4tKSjg5VLOvPWfGVMPXxLG2qTxU95NUnwlk8YAtne+lNq+LlGfWBcDMePD/z +uKBYhYTX3L9msJAH2Tzpdc1aJNQZrBn6j7BXu19T3zoSxn1OcRddz4Mh+T8D +StYktBbxOvCScAXDNpruTMI2w1RdbXMeRG89J+juRcIT9/jmEggLFK7Vzook +4XvjNYNUCx48bTxcV3GAhK4PpZdEEs7sf+rwIomEXyavm98h7L5Evmf4JAnF +Ti8tmCWsqhW4S+g8CROy7ZRMLHkwaMPl07xCQr3V2dVRhMtCF89YlJIwrHIx +ppQwo/zC7SMNJFzZ/9hPzIoHlu9aF8ZaSBjzen+1CWFHvn83bH9Dwgay4R0f +wh6r6Jkvu0nYMzzukUg4wCXyPQyS8IH2paJCwpEHr1HZYyTsqKNeqCd8oKgz +jDxLQmfPA7R2wo1fUrxa+Mh4JP9UwjBh64OU+IQlZKT9s3n/H8LPxOqvmQiT +UaW7UXa5NQ+ci7a0jIuS8Y9PS6As4Q6TidHrUmSk5G8LUCXs/SJdwk+ejLcT +Y8TVCPf5aRorqJBRoG1FpDrhoJn7Xq8pZPxqJHOYSngkzTv+hCYZhdROmKkQ +3k2aubZeh4z24348acLTvMyW33pkFH124YMQ4Tgbne8cQzJmVOvU/Sbej+/j +Q4lQOhkZZ6WcvxJO3uNrTDUj45yUY95rwsJL5726zMmYc7ezsJpw5sWz8Vkb +yMg3zvHJIyyjt7bIzoGMNz92dhwifLH5aQv/JjJ2n9wo7EWY5BH4vXYzGRc6 +xOcMCBeNLkpEeZFxPlj9P2HC2okXjXW2kzHtbppkD1G/Chkj7/4AMh7W3MAq +J2x482X8pRDi+zRtW3mQcK1ZaJFrBBlT4t+2WRJ+EFzwvTmajKc1p/a3Ev1i ++4cueeggGaV/lYVnEG7NbDM2TCBj7Z2+lfaE39csSyg6Qcaf5z9O1xL96eNY +VLQ1g4zeS+qEIgkPfDZ7Ip1NRp1J00EVwmPL90km55ExPMtzMYro96hCURrr +ChnvdomDIuFZwxve08Vk/PSy0OEukRcBn56iwAqiPkdS238DD+TZNjTrJjJe +9nCpdyDylm/Z7/33ERkX54pS3xN5pL4/nFD5jIzrG7frBBBezc97otlO1Gsk +YDacyK+5m8pWwSEyLhfRfelF5P3xUFVCwygZ/d9DRCudBw6HXYpjJsg4ee7g +sBlh95LjY1/nyNje2ZkiS8yL8NmJhBYRCl745BZUaETkY0+Q7BdJCm4YGZX7 +TswfoeGuUgF5CvL3amoZEy7ubu4wo1LQvsR8x11ifvXcO6t7x5iC81oFiYV6 +PHBKpnde2U7Bf6PMMmtXEvn8eyuiYQcFLdt4T19oEfMqmirwcScFjR+ax30k +5mtqyPI18vsoqMhXZvaTmL/37T8ezUilYI5je8oEmQf6kol6BzkUnOi5G2Ij +T/Rj+vSD3EoKml2Jv6kmR9RPINSrso6CKxfrY+dleBA27ZI88ZCCSnGfHhVK +Ef3Uqd4d3EXB7T8SNjSJ8kC2oCXFTYCK690dzP3/5cFvHfGe1Zup2OBSYUv5 +zoWZfMVEAy8qXrG4W5Q7woUpMQ11+nYqMoLye1YMc2Fskh5quZOKReelpke+ +EP/PuoAZr8NU7L5T1XmsjwtP7atEU4upOFM81019y4WLYT7weZqKClZ35xUr +uXD+Y8jnr3NUbDldZLHuNhdynKKSvy9SUbknJd+Sy4UMg9Rns8vU8JJryyn/ +ci4kzXPcxVTVMHh2TcbBEi6EpS/ZzbRWw2qRxng1Yn/BLC0rPHdODVOzcp9s +ieJCN7m0wOqSGlpK9VbS93Ah7tyNy1MFauibK22tuIsLVYkleS431NBb4IVT +Wyjxv/YozBWtV8N1Y0tpuv5cWLUkJzPlkxo2X6OlhTsT+5vtBxOiddXR7v7a +RRMdLkxI2vluaVLHe8zWN05dHOgMp74KfayOpKyG2PB3HLj/aA7in6vjCeWH +jSltxH4wrpR0vUMdee+8mbdbObD284re38PqGPdxRHSyiQORnJfb8qU0cOfc +8+Z/iP3jsNNm74EdGqj18bD17lgODJz03bJXUBPdOge7ZsU4YPsjxnbQWAvz +2kqObaCxYTRAKOp2/ErUj8t6szO0nDiPyPEfb1qFq/oaCnY4loHkC80M9g9t +7N5SKXbU8iYop1Y4GxvrIiXjw8uspdchV4cuLhW8GmN2CedXjBfDU8X1RpNn +1mDdf6KPfo9dA4ZyU6Zehx5q/ZAeGXl7BUQFru7zS1qLpt2BE5u+FoBqIonp +qbkOXdgzPW0SebBMY2uly+N1GHs8QIx9JhfWsBQqYrbpo9hUFtUg4yzs7ZFs +tuMzwBg3mz7RrCz4MXlys22uAT5iaVTqiGTCBr1HF21XG6LPdLKHzvV0uDdp +Ov+r1RBtfwtkFG87DpG6+l2vA43wzKURr0MdR4E1tqPNc5kx1lRnV6XGJ4CV +uvxGkavGmMTbfaXiwkFYmZB2oIlGw3Wm4ccOCMaAdiC9QaOLhtcbj3rNPdsL +p6mOc0c/0FDmpuKjhLt7YarX3+hzDw1fLPuQJl6xF+55nSy93E/D/DZHUYes +veDi3Hte7jsN737VTtL33Auxpsm7l/GZ4LOCA7Y1Q3ugReI15buGCTr5pHac +Ft0DgfdCjt3eY4IzJ0eTe4YiYSxiOMZqnwk+PWzVYN0aCQdUwsM6ok1wXjIt +sIkXCWmHdrnMHjTBLgGJ1skjkcBmRJOZKSbIUGINsGQj4U/l0frmiyb4t/dU +R6BNBGRVXJ5602yCY1dXfq2tDYOGwrYdEzJ03KTTYGPQHgJ9DpTt0fJ0fNJz +9FdaQwjw/Y7wnFek442e2L6fN0LAfJOg4xIyHfkLtEwnj4TAo38YNAVtOkZU +hS+/syoEnvsXLFtvRkdPc2afYVIwdKmHlmcG0XHIr5oxYBYEU9cXf+lV0dHr +gsZl/sEA+LLFuvBEDR3p9Zlurm0B0PnvKZv+OjrWS1itZTcHQJ2v4oVz9+n4 +6bKLacbVAEiSN2IsPKGjZsDy7i7fABBPDT309AMd1RLdKOxef9ANbucL5Gcg +Y4LsqPjFDwI0Spdd3MhAkfLkY3ukfSHuoU+opjMDaannfoYu8YXMQMlnXBcG +9i0pcP80uh3qi2NPPnNnYFXcz7vrOdtBWtNGbMGPgcW/tz7WNN0OjzQHpX2j +GWjc8TAvytUHtFeSyJoFDPx7Icvy+tmtMKGdbcwdZ2CQyJ9c6W2e0PkcraQm +GXi+VTPd0doT7keOue6bZmB8TUz6RT1PyODa7jGeY2CvqtjxEH5P0GbwldUK +mOKK5C7V7use4G8bQWmWJaw9kSr+2x3agjesaGOa4ovJ1+phJVugumj+03Sq +KQZWnVgdou8Gxhb7ftmlm+JPm0r5VWQ3uPNpdEXhKVNcyKkumxVxA65qD80u +yxQD2Dn/NX9zhbLc+6cuXzLFWXXFNsGrrlB4Mpm+odwUxYO+RqGMK5zYJ3Ym +960p9jIZOnpLXcDLUg1NVZmY9yoFp8WcYaFNSLSZzMS4678GihadoDBwrNtO +jYlHTM03Hup1gi8pNTFeK5n4ij37OrHACfY+caqI1WfiLt49GCQ7QZrjIdVq +ayZG6FXtn1vpCLUe7X8MdzGx8G230eONDqAUcbxmzX0mDmmdHPMatIGMxSCj +9CYm1rw6MR74wgb4s6w5Xx8w0dtCqzL5jg0MVy65UfiEibPGyo4CKTZQy3cs +V/ItEyNthxantGzAKychZmaQifnVZXzFuzZAbl2s0b3lLHzddmzhhYg1rHD0 +5CiKsvCeQeS/brNWkNBnsjpGnIXrvRfHRj9bQciSWfW1MizcqRBp5F5tBTSn +aOmrqsT6ZXXTy3dYQcfnvZPJ61hoO3X+zbd7liAjHM7Z6M7Cf44I0WSSLKDI +4nDcuCcLO0P7GFfCLUD/cIZF9lYWxgWszzN3twDHcXZ7px8LN1gFrX6oawEp +HdO/A8JZqNyeeuxxpznMXo03j0tkoavxD2GOoTl0mWa/LSlloZxbMPPiPELI +/qI823IW3qekjZcPIcyU3wkcZbOwKvF5S0c7giS189e6ShY65D+9sp2NYC+k +onz3Pgv3HJdRcQtCqG8r2fG2nYX2P/xNokoB7ESrV0d3sjBsMShi4jhA54Yn +M/LdLIzITu3I3gEwVTuS6tPHwqj+4GZLVYDVV9be+jbMwtbzxQmu2WZQ37U+ ++uR3FrZf+dP6Y7cZ2Em7gt44Czct9XeucDSDoOP7X++bZiHd6UzEeWEzmLqf +clFuljg5XdB/2jDEgqS58wG1cyxMnczsFn7MAnHDG7rbFljIOuGSdKCYBZcj +aqcXF1lI6jAsEDrGgv8BWdDiYg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07528903662462487}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07528903662462487}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994257815879251*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"6bcd88bf-2689-455e-9564-66b5a6605b98"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", @@ -6970,15 +7117,846 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"30", ",", "0.003631"}], "}"}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, - 3.994084097973804*^9},ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-\ -5e6c7b4b5678"], + 3.994084097973804*^9}, + CellLabel->"In[96]:=",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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->{ + "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.060284}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9942578161201887`*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"0ec5680b-e206-4e23-bcbe-ce9355eb02ab"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"cd9a8165-891b-9245-aca1-\ -3f60fcfd9a79"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8Vf8fB3BfvkXK3vMOq1DKuu51r/c7KyuEskpGRlZDEQ2jSJSESkVU ++FbEHWWX0NDSQqJQKCGRkUh+5/fXeTz/+JxzHuf9fr3P50Px3+USyM/Hx8f8 +h4/v/9eZnicP1NOLzASNfmWYmVuatV2Wj13fmQRC4j9v+Z2lAsq89JfvzIK0 +daGPjc/qQ7TzzXcCnVfhQ7T8gvxZc5AYk8v6/Y4LZ6aW1g/luEBvveOuqXdN +cJUtpmef4w/W6sMfJ969gfawii9fzuyF3+9oZ8fffQbtsSa2X2oSNFv8V/T6 +6iTAhFXupFo2KPfWfPHXXYAlJgPOBcJ5IB2+/aaghQCaeR5S3KB9FbLWWdc5 +bhbCzleJ1Z4eJfA+d+39CXERrHO/Ys4cuAHpRfEv+RUk8Gqv2pPV9rfAznCn +pIyaBJb9DCk97X4LhB64bNZaLYE7V801fwu4Bcf6Nbrt10vguds1GSmHbsEh +6vMvOTslcPFAnJ3/rVsQWSj/V7NWAvcvq9pRKFIOm/I4uvbekvghTlBrZUs5 +yOX0n8jOl8LM/hsVhyTZIK9z59hsiRSGxkpausqxQbEpJX4bWwonH29FTWU2 +qI6v2q/VLIXbEk0jGzXYoOGw27duSArPe49lPDdhg8G/C8b9BtJ4Omo0yMiH +DU77ZAf0n0qjXoPoi40lbHBePtRz/q009p0rcWHfZIPL1Zr3fz5I4zuPl3pi +FWzY8mrry0c/pHHEnfqjsYoN23Sv1XrJyGBSCkTPt7AhbEDvTJKvDAqX0hzv +DbPhuJut2ZsZGTx1LuZGgg4HFG+3KvL/I4t3JV0WG/U4UC7l9mvdclncmiI/ +/9eAAx1vfNhnSLLIPyXfH8bkgPqmfdRNNrLYVKQYLrGRA00bC5a+uiCL9UuL +KekRHFiwnm59wZTDqT1x+2mlHMgsiStdsJbDB8K/BL+XE+uX8qWu3iSHTRb2 +9MtcDjg8FF5/KlAO730UOzBZw4GLFmSeQ4YcHhhLDNjZwgETtD//rFcOP7Xm +9icNcCCKfmX7kyR5lHPdsSdcgQt2haJT9iflsbvxl5avMheogodSW8/KY5Xm +bhFnEhdetW3hvL0uj+a5kYHqGlxYs3uFQE+rPP69neRQsJYLQyUxJT8VFbBP +ylWyx5oLW6UdvyvxFLA24tPFhN1cMDhYl3i5XgG/L03aN7eXC8KfV8pSHilg +etT+pN37uVBTIQCa7xVQ1sCDuSmOC7L2NZlrFxWQ9TZMb/Ao8fxEdUMre0W8 +qdazyf0cFyx/zMVF9itiv/LHxqBqLsTa5Gg3jiril8b5sm21XCi/srpLakYR +N/l5/HGu54K8my+9RkgJy566PdG9z4XR6oe/BNYooSHNU6vmMReykzL3XTig +hHRZbSeNDi60dK9SH01UwoP9qeWfiZz+MWx+a5auhOPfnh7Ie8+FoK/T+gP5 +Shi7pcVpyUcuMBy8J9Y0K2GBV7Z0WT8XPstoRj4QUcY372x3OI5zQW5Xg4qc +nDLeHN91880EFxxaPF7sJCujqZJRgOskFyrj0nXFDJSRtcBeYzfDhbTe8WFP +D2Uc22PCFPnDBf0bdcE/riqjiJ1F6belPAjm3yxnXqaMVme+eRsJ8SDPe+xR +zh1lvN7x+/jhZTxYKkrRZLQoo1RwhZvACh507U0ZOPZdGbdaLXs9IM6DROYm +P0UTFWTOX/u4qMADG5/LP2nmKnjo17632ko8EE0YObrZQQVnyVz2JmXi/s3J +JZm+Krg3vlE9W5UH1Xa1I0tPqCBt5LbwIJUH8eGCh9WzVdBX3cf1hxoPrDPc +RM3zVZC0xiRtWp0Hba/H1h7mqCD109zDaU0ejHuoRU++V0HP+LCMh9o8qIrb +LSgxoIJPos39KnR4cCTvbu6aMRXceTJw1VldHqzoc6/bya+KVvK0fLc1PNAK +PsnXp62K7p8/615bx4Ox1PdnFgxVsef6aHO4Pg9u39RUUwJVjO3huusb8MB8 +7L7VFldVJBdYxXIMeeCzfzrt+UFVfEM/1hBP44HGeXPl4WRV3KgQ4r7KhEf0 +x+lbgpmqGLTi+WQr4bg/q16ZF6ni7m2iZqIMHpw96iNT81wVX/FfMtzG5MHW +4tKSjg5VLOvPWfGVMPXxLG2qTxU95NUnwlk8YAtne+lNq+LlGfWBcDMePD/z +uKBYhYTX3L9msJAH2Tzpdc1aJNQZrBn6j7BXu19T3zoSxn1OcRddz4Mh+T8D +StYktBbxOvCScAXDNpruTMI2w1RdbXMeRG89J+juRcIT9/jmEggLFK7Vzook +4XvjNYNUCx48bTxcV3GAhK4PpZdEEs7sf+rwIomEXyavm98h7L5Evmf4JAnF +Ti8tmCWsqhW4S+g8CROy7ZRMLHkwaMPl07xCQr3V2dVRhMtCF89YlJIwrHIx +ppQwo/zC7SMNJFzZ/9hPzIoHlu9aF8ZaSBjzen+1CWFHvn83bH9Dwgay4R0f +wh6r6Jkvu0nYMzzukUg4wCXyPQyS8IH2paJCwpEHr1HZYyTsqKNeqCd8oKgz +jDxLQmfPA7R2wo1fUrxa+Mh4JP9UwjBh64OU+IQlZKT9s3n/H8LPxOqvmQiT +UaW7UXa5NQ+ci7a0jIuS8Y9PS6As4Q6TidHrUmSk5G8LUCXs/SJdwk+ejLcT +Y8TVCPf5aRorqJBRoG1FpDrhoJn7Xq8pZPxqJHOYSngkzTv+hCYZhdROmKkQ +3k2aubZeh4z24348acLTvMyW33pkFH124YMQ4Tgbne8cQzJmVOvU/Sbej+/j +Q4lQOhkZZ6WcvxJO3uNrTDUj45yUY95rwsJL5726zMmYc7ezsJpw5sWz8Vkb +yMg3zvHJIyyjt7bIzoGMNz92dhwifLH5aQv/JjJ2n9wo7EWY5BH4vXYzGRc6 +xOcMCBeNLkpEeZFxPlj9P2HC2okXjXW2kzHtbppkD1G/Chkj7/4AMh7W3MAq +J2x482X8pRDi+zRtW3mQcK1ZaJFrBBlT4t+2WRJ+EFzwvTmajKc1p/a3Ev1i ++4cueeggGaV/lYVnEG7NbDM2TCBj7Z2+lfaE39csSyg6Qcaf5z9O1xL96eNY +VLQ1g4zeS+qEIgkPfDZ7Ip1NRp1J00EVwmPL90km55ExPMtzMYro96hCURrr +ChnvdomDIuFZwxve08Vk/PSy0OEukRcBn56iwAqiPkdS238DD+TZNjTrJjJe +9nCpdyDylm/Z7/33ERkX54pS3xN5pL4/nFD5jIzrG7frBBBezc97otlO1Gsk +YDacyK+5m8pWwSEyLhfRfelF5P3xUFVCwygZ/d9DRCudBw6HXYpjJsg4ee7g +sBlh95LjY1/nyNje2ZkiS8yL8NmJhBYRCl745BZUaETkY0+Q7BdJCm4YGZX7 +TswfoeGuUgF5CvL3amoZEy7ubu4wo1LQvsR8x11ifvXcO6t7x5iC81oFiYV6 +PHBKpnde2U7Bf6PMMmtXEvn8eyuiYQcFLdt4T19oEfMqmirwcScFjR+ax30k +5mtqyPI18vsoqMhXZvaTmL/37T8ezUilYI5je8oEmQf6kol6BzkUnOi5G2Ij +T/Rj+vSD3EoKml2Jv6kmR9RPINSrso6CKxfrY+dleBA27ZI88ZCCSnGfHhVK +Ef3Uqd4d3EXB7T8SNjSJ8kC2oCXFTYCK690dzP3/5cFvHfGe1Zup2OBSYUv5 +zoWZfMVEAy8qXrG4W5Q7woUpMQ11+nYqMoLye1YMc2Fskh5quZOKReelpke+ +EP/PuoAZr8NU7L5T1XmsjwtP7atEU4upOFM81019y4WLYT7weZqKClZ35xUr +uXD+Y8jnr3NUbDldZLHuNhdynKKSvy9SUbknJd+Sy4UMg9Rns8vU8JJryyn/ +ci4kzXPcxVTVMHh2TcbBEi6EpS/ZzbRWw2qRxng1Yn/BLC0rPHdODVOzcp9s +ieJCN7m0wOqSGlpK9VbS93Ah7tyNy1MFauibK22tuIsLVYkleS431NBb4IVT +Wyjxv/YozBWtV8N1Y0tpuv5cWLUkJzPlkxo2X6OlhTsT+5vtBxOiddXR7v7a +RRMdLkxI2vluaVLHe8zWN05dHOgMp74KfayOpKyG2PB3HLj/aA7in6vjCeWH +jSltxH4wrpR0vUMdee+8mbdbObD284re38PqGPdxRHSyiQORnJfb8qU0cOfc +8+Z/iP3jsNNm74EdGqj18bD17lgODJz03bJXUBPdOge7ZsU4YPsjxnbQWAvz +2kqObaCxYTRAKOp2/ErUj8t6szO0nDiPyPEfb1qFq/oaCnY4loHkC80M9g9t +7N5SKXbU8iYop1Y4GxvrIiXjw8uspdchV4cuLhW8GmN2CedXjBfDU8X1RpNn +1mDdf6KPfo9dA4ZyU6Zehx5q/ZAeGXl7BUQFru7zS1qLpt2BE5u+FoBqIonp +qbkOXdgzPW0SebBMY2uly+N1GHs8QIx9JhfWsBQqYrbpo9hUFtUg4yzs7ZFs +tuMzwBg3mz7RrCz4MXlys22uAT5iaVTqiGTCBr1HF21XG6LPdLKHzvV0uDdp +Ov+r1RBtfwtkFG87DpG6+l2vA43wzKURr0MdR4E1tqPNc5kx1lRnV6XGJ4CV +uvxGkavGmMTbfaXiwkFYmZB2oIlGw3Wm4ccOCMaAdiC9QaOLhtcbj3rNPdsL +p6mOc0c/0FDmpuKjhLt7YarX3+hzDw1fLPuQJl6xF+55nSy93E/D/DZHUYes +veDi3Hte7jsN737VTtL33Auxpsm7l/GZ4LOCA7Y1Q3ugReI15buGCTr5pHac +Ft0DgfdCjt3eY4IzJ0eTe4YiYSxiOMZqnwk+PWzVYN0aCQdUwsM6ok1wXjIt +sIkXCWmHdrnMHjTBLgGJ1skjkcBmRJOZKSbIUGINsGQj4U/l0frmiyb4t/dU +R6BNBGRVXJ5602yCY1dXfq2tDYOGwrYdEzJ03KTTYGPQHgJ9DpTt0fJ0fNJz +9FdaQwjw/Y7wnFek442e2L6fN0LAfJOg4xIyHfkLtEwnj4TAo38YNAVtOkZU +hS+/syoEnvsXLFtvRkdPc2afYVIwdKmHlmcG0XHIr5oxYBYEU9cXf+lV0dHr +gsZl/sEA+LLFuvBEDR3p9Zlurm0B0PnvKZv+OjrWS1itZTcHQJ2v4oVz9+n4 +6bKLacbVAEiSN2IsPKGjZsDy7i7fABBPDT309AMd1RLdKOxef9ANbucL5Gcg +Y4LsqPjFDwI0Spdd3MhAkfLkY3ukfSHuoU+opjMDaannfoYu8YXMQMlnXBcG +9i0pcP80uh3qi2NPPnNnYFXcz7vrOdtBWtNGbMGPgcW/tz7WNN0OjzQHpX2j +GWjc8TAvytUHtFeSyJoFDPx7Icvy+tmtMKGdbcwdZ2CQyJ9c6W2e0PkcraQm +GXi+VTPd0doT7keOue6bZmB8TUz6RT1PyODa7jGeY2CvqtjxEH5P0GbwldUK +mOKK5C7V7use4G8bQWmWJaw9kSr+2x3agjesaGOa4ovJ1+phJVugumj+03Sq +KQZWnVgdou8Gxhb7ftmlm+JPm0r5VWQ3uPNpdEXhKVNcyKkumxVxA65qD80u +yxQD2Dn/NX9zhbLc+6cuXzLFWXXFNsGrrlB4Mpm+odwUxYO+RqGMK5zYJ3Ym +960p9jIZOnpLXcDLUg1NVZmY9yoFp8WcYaFNSLSZzMS4678GihadoDBwrNtO +jYlHTM03Hup1gi8pNTFeK5n4ij37OrHACfY+caqI1WfiLt49GCQ7QZrjIdVq +ayZG6FXtn1vpCLUe7X8MdzGx8G230eONDqAUcbxmzX0mDmmdHPMatIGMxSCj +9CYm1rw6MR74wgb4s6w5Xx8w0dtCqzL5jg0MVy65UfiEibPGyo4CKTZQy3cs +V/ItEyNthxantGzAKychZmaQifnVZXzFuzZAbl2s0b3lLHzddmzhhYg1rHD0 +5CiKsvCeQeS/brNWkNBnsjpGnIXrvRfHRj9bQciSWfW1MizcqRBp5F5tBTSn +aOmrqsT6ZXXTy3dYQcfnvZPJ61hoO3X+zbd7liAjHM7Z6M7Cf44I0WSSLKDI +4nDcuCcLO0P7GFfCLUD/cIZF9lYWxgWszzN3twDHcXZ7px8LN1gFrX6oawEp +HdO/A8JZqNyeeuxxpznMXo03j0tkoavxD2GOoTl0mWa/LSlloZxbMPPiPELI +/qI823IW3qekjZcPIcyU3wkcZbOwKvF5S0c7giS189e6ShY65D+9sp2NYC+k +onz3Pgv3HJdRcQtCqG8r2fG2nYX2P/xNokoB7ESrV0d3sjBsMShi4jhA54Yn +M/LdLIzITu3I3gEwVTuS6tPHwqj+4GZLVYDVV9be+jbMwtbzxQmu2WZQ37U+ ++uR3FrZf+dP6Y7cZ2Em7gt44Czct9XeucDSDoOP7X++bZiHd6UzEeWEzmLqf +clFuljg5XdB/2jDEgqS58wG1cyxMnczsFn7MAnHDG7rbFljIOuGSdKCYBZcj +aqcXF1lI6jAsEDrGgv8BWdDiYg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3BfvkXK3vMOq1DKuu51r/c7KyuEskpGRlZDEQ2jSJSESkVU ++FbEHWWX0NDSQqJQKCGRkUh+5/fXeTz/+JxzHuf9fr3P50Px3+USyM/Hx8f8 +h4/v/9eZnicP1NOLzASNfmWYmVuatV2Wj13fmQRC4j9v+Z2lAsq89JfvzIK0 +daGPjc/qQ7TzzXcCnVfhQ7T8gvxZc5AYk8v6/Y4LZ6aW1g/luEBvveOuqXdN +cJUtpmef4w/W6sMfJ969gfawii9fzuyF3+9oZ8fffQbtsSa2X2oSNFv8V/T6 +6iTAhFXupFo2KPfWfPHXXYAlJgPOBcJ5IB2+/aaghQCaeR5S3KB9FbLWWdc5 +bhbCzleJ1Z4eJfA+d+39CXERrHO/Ys4cuAHpRfEv+RUk8Gqv2pPV9rfAznCn +pIyaBJb9DCk97X4LhB64bNZaLYE7V801fwu4Bcf6Nbrt10vguds1GSmHbsEh +6vMvOTslcPFAnJ3/rVsQWSj/V7NWAvcvq9pRKFIOm/I4uvbekvghTlBrZUs5 +yOX0n8jOl8LM/hsVhyTZIK9z59hsiRSGxkpausqxQbEpJX4bWwonH29FTWU2 +qI6v2q/VLIXbEk0jGzXYoOGw27duSArPe49lPDdhg8G/C8b9BtJ4Omo0yMiH +DU77ZAf0n0qjXoPoi40lbHBePtRz/q009p0rcWHfZIPL1Zr3fz5I4zuPl3pi +FWzY8mrry0c/pHHEnfqjsYoN23Sv1XrJyGBSCkTPt7AhbEDvTJKvDAqX0hzv +DbPhuJut2ZsZGTx1LuZGgg4HFG+3KvL/I4t3JV0WG/U4UC7l9mvdclncmiI/ +/9eAAx1vfNhnSLLIPyXfH8bkgPqmfdRNNrLYVKQYLrGRA00bC5a+uiCL9UuL +KekRHFiwnm59wZTDqT1x+2mlHMgsiStdsJbDB8K/BL+XE+uX8qWu3iSHTRb2 +9MtcDjg8FF5/KlAO730UOzBZw4GLFmSeQ4YcHhhLDNjZwgETtD//rFcOP7Xm +9icNcCCKfmX7kyR5lHPdsSdcgQt2haJT9iflsbvxl5avMheogodSW8/KY5Xm +bhFnEhdetW3hvL0uj+a5kYHqGlxYs3uFQE+rPP69neRQsJYLQyUxJT8VFbBP +ylWyx5oLW6UdvyvxFLA24tPFhN1cMDhYl3i5XgG/L03aN7eXC8KfV8pSHilg +etT+pN37uVBTIQCa7xVQ1sCDuSmOC7L2NZlrFxWQ9TZMb/Ao8fxEdUMre0W8 +qdazyf0cFyx/zMVF9itiv/LHxqBqLsTa5Gg3jiril8b5sm21XCi/srpLakYR +N/l5/HGu54K8my+9RkgJy566PdG9z4XR6oe/BNYooSHNU6vmMReykzL3XTig +hHRZbSeNDi60dK9SH01UwoP9qeWfiZz+MWx+a5auhOPfnh7Ie8+FoK/T+gP5 +Shi7pcVpyUcuMBy8J9Y0K2GBV7Z0WT8XPstoRj4QUcY372x3OI5zQW5Xg4qc +nDLeHN91880EFxxaPF7sJCujqZJRgOskFyrj0nXFDJSRtcBeYzfDhbTe8WFP +D2Uc22PCFPnDBf0bdcE/riqjiJ1F6belPAjm3yxnXqaMVme+eRsJ8SDPe+xR +zh1lvN7x+/jhZTxYKkrRZLQoo1RwhZvACh507U0ZOPZdGbdaLXs9IM6DROYm +P0UTFWTOX/u4qMADG5/LP2nmKnjo17632ko8EE0YObrZQQVnyVz2JmXi/s3J +JZm+Krg3vlE9W5UH1Xa1I0tPqCBt5LbwIJUH8eGCh9WzVdBX3cf1hxoPrDPc +RM3zVZC0xiRtWp0Hba/H1h7mqCD109zDaU0ejHuoRU++V0HP+LCMh9o8qIrb +LSgxoIJPos39KnR4cCTvbu6aMRXceTJw1VldHqzoc6/bya+KVvK0fLc1PNAK +PsnXp62K7p8/615bx4Ox1PdnFgxVsef6aHO4Pg9u39RUUwJVjO3huusb8MB8 +7L7VFldVJBdYxXIMeeCzfzrt+UFVfEM/1hBP44HGeXPl4WRV3KgQ4r7KhEf0 +x+lbgpmqGLTi+WQr4bg/q16ZF6ni7m2iZqIMHpw96iNT81wVX/FfMtzG5MHW +4tKSjg5VLOvPWfGVMPXxLG2qTxU95NUnwlk8YAtne+lNq+LlGfWBcDMePD/z +uKBYhYTX3L9msJAH2Tzpdc1aJNQZrBn6j7BXu19T3zoSxn1OcRddz4Mh+T8D +StYktBbxOvCScAXDNpruTMI2w1RdbXMeRG89J+juRcIT9/jmEggLFK7Vzook +4XvjNYNUCx48bTxcV3GAhK4PpZdEEs7sf+rwIomEXyavm98h7L5Evmf4JAnF +Ti8tmCWsqhW4S+g8CROy7ZRMLHkwaMPl07xCQr3V2dVRhMtCF89YlJIwrHIx +ppQwo/zC7SMNJFzZ/9hPzIoHlu9aF8ZaSBjzen+1CWFHvn83bH9Dwgay4R0f +wh6r6Jkvu0nYMzzukUg4wCXyPQyS8IH2paJCwpEHr1HZYyTsqKNeqCd8oKgz +jDxLQmfPA7R2wo1fUrxa+Mh4JP9UwjBh64OU+IQlZKT9s3n/H8LPxOqvmQiT +UaW7UXa5NQ+ci7a0jIuS8Y9PS6As4Q6TidHrUmSk5G8LUCXs/SJdwk+ejLcT +Y8TVCPf5aRorqJBRoG1FpDrhoJn7Xq8pZPxqJHOYSngkzTv+hCYZhdROmKkQ +3k2aubZeh4z24348acLTvMyW33pkFH124YMQ4Tgbne8cQzJmVOvU/Sbej+/j +Q4lQOhkZZ6WcvxJO3uNrTDUj45yUY95rwsJL5726zMmYc7ezsJpw5sWz8Vkb +yMg3zvHJIyyjt7bIzoGMNz92dhwifLH5aQv/JjJ2n9wo7EWY5BH4vXYzGRc6 +xOcMCBeNLkpEeZFxPlj9P2HC2okXjXW2kzHtbppkD1G/Chkj7/4AMh7W3MAq +J2x482X8pRDi+zRtW3mQcK1ZaJFrBBlT4t+2WRJ+EFzwvTmajKc1p/a3Ev1i ++4cueeggGaV/lYVnEG7NbDM2TCBj7Z2+lfaE39csSyg6Qcaf5z9O1xL96eNY +VLQ1g4zeS+qEIgkPfDZ7Ip1NRp1J00EVwmPL90km55ExPMtzMYro96hCURrr +ChnvdomDIuFZwxve08Vk/PSy0OEukRcBn56iwAqiPkdS238DD+TZNjTrJjJe +9nCpdyDylm/Z7/33ERkX54pS3xN5pL4/nFD5jIzrG7frBBBezc97otlO1Gsk +YDacyK+5m8pWwSEyLhfRfelF5P3xUFVCwygZ/d9DRCudBw6HXYpjJsg4ee7g +sBlh95LjY1/nyNje2ZkiS8yL8NmJhBYRCl745BZUaETkY0+Q7BdJCm4YGZX7 +TswfoeGuUgF5CvL3amoZEy7ubu4wo1LQvsR8x11ifvXcO6t7x5iC81oFiYV6 +PHBKpnde2U7Bf6PMMmtXEvn8eyuiYQcFLdt4T19oEfMqmirwcScFjR+ax30k +5mtqyPI18vsoqMhXZvaTmL/37T8ezUilYI5je8oEmQf6kol6BzkUnOi5G2Ij +T/Rj+vSD3EoKml2Jv6kmR9RPINSrso6CKxfrY+dleBA27ZI88ZCCSnGfHhVK +Ef3Uqd4d3EXB7T8SNjSJ8kC2oCXFTYCK690dzP3/5cFvHfGe1Zup2OBSYUv5 +zoWZfMVEAy8qXrG4W5Q7woUpMQ11+nYqMoLye1YMc2Fskh5quZOKReelpke+ +EP/PuoAZr8NU7L5T1XmsjwtP7atEU4upOFM81019y4WLYT7weZqKClZ35xUr +uXD+Y8jnr3NUbDldZLHuNhdynKKSvy9SUbknJd+Sy4UMg9Rns8vU8JJryyn/ +ci4kzXPcxVTVMHh2TcbBEi6EpS/ZzbRWw2qRxng1Yn/BLC0rPHdODVOzcp9s +ieJCN7m0wOqSGlpK9VbS93Ah7tyNy1MFauibK22tuIsLVYkleS431NBb4IVT +Wyjxv/YozBWtV8N1Y0tpuv5cWLUkJzPlkxo2X6OlhTsT+5vtBxOiddXR7v7a +RRMdLkxI2vluaVLHe8zWN05dHOgMp74KfayOpKyG2PB3HLj/aA7in6vjCeWH +jSltxH4wrpR0vUMdee+8mbdbObD284re38PqGPdxRHSyiQORnJfb8qU0cOfc +8+Z/iP3jsNNm74EdGqj18bD17lgODJz03bJXUBPdOge7ZsU4YPsjxnbQWAvz +2kqObaCxYTRAKOp2/ErUj8t6szO0nDiPyPEfb1qFq/oaCnY4loHkC80M9g9t +7N5SKXbU8iYop1Y4GxvrIiXjw8uspdchV4cuLhW8GmN2CedXjBfDU8X1RpNn +1mDdf6KPfo9dA4ZyU6Zehx5q/ZAeGXl7BUQFru7zS1qLpt2BE5u+FoBqIonp +qbkOXdgzPW0SebBMY2uly+N1GHs8QIx9JhfWsBQqYrbpo9hUFtUg4yzs7ZFs +tuMzwBg3mz7RrCz4MXlys22uAT5iaVTqiGTCBr1HF21XG6LPdLKHzvV0uDdp +Ov+r1RBtfwtkFG87DpG6+l2vA43wzKURr0MdR4E1tqPNc5kx1lRnV6XGJ4CV +uvxGkavGmMTbfaXiwkFYmZB2oIlGw3Wm4ccOCMaAdiC9QaOLhtcbj3rNPdsL +p6mOc0c/0FDmpuKjhLt7YarX3+hzDw1fLPuQJl6xF+55nSy93E/D/DZHUYes +veDi3Hte7jsN737VTtL33Auxpsm7l/GZ4LOCA7Y1Q3ugReI15buGCTr5pHac +Ft0DgfdCjt3eY4IzJ0eTe4YiYSxiOMZqnwk+PWzVYN0aCQdUwsM6ok1wXjIt +sIkXCWmHdrnMHjTBLgGJ1skjkcBmRJOZKSbIUGINsGQj4U/l0frmiyb4t/dU +R6BNBGRVXJ5602yCY1dXfq2tDYOGwrYdEzJ03KTTYGPQHgJ9DpTt0fJ0fNJz +9FdaQwjw/Y7wnFek442e2L6fN0LAfJOg4xIyHfkLtEwnj4TAo38YNAVtOkZU +hS+/syoEnvsXLFtvRkdPc2afYVIwdKmHlmcG0XHIr5oxYBYEU9cXf+lV0dHr +gsZl/sEA+LLFuvBEDR3p9Zlurm0B0PnvKZv+OjrWS1itZTcHQJ2v4oVz9+n4 +6bKLacbVAEiSN2IsPKGjZsDy7i7fABBPDT309AMd1RLdKOxef9ANbucL5Gcg +Y4LsqPjFDwI0Spdd3MhAkfLkY3ukfSHuoU+opjMDaannfoYu8YXMQMlnXBcG +9i0pcP80uh3qi2NPPnNnYFXcz7vrOdtBWtNGbMGPgcW/tz7WNN0OjzQHpX2j +GWjc8TAvytUHtFeSyJoFDPx7Icvy+tmtMKGdbcwdZ2CQyJ9c6W2e0PkcraQm +GXi+VTPd0doT7keOue6bZmB8TUz6RT1PyODa7jGeY2CvqtjxEH5P0GbwldUK +mOKK5C7V7use4G8bQWmWJaw9kSr+2x3agjesaGOa4ovJ1+phJVugumj+03Sq +KQZWnVgdou8Gxhb7ftmlm+JPm0r5VWQ3uPNpdEXhKVNcyKkumxVxA65qD80u +yxQD2Dn/NX9zhbLc+6cuXzLFWXXFNsGrrlB4Mpm+odwUxYO+RqGMK5zYJ3Ym +960p9jIZOnpLXcDLUg1NVZmY9yoFp8WcYaFNSLSZzMS4678GihadoDBwrNtO +jYlHTM03Hup1gi8pNTFeK5n4ij37OrHACfY+caqI1WfiLt49GCQ7QZrjIdVq +ayZG6FXtn1vpCLUe7X8MdzGx8G230eONDqAUcbxmzX0mDmmdHPMatIGMxSCj +9CYm1rw6MR74wgb4s6w5Xx8w0dtCqzL5jg0MVy65UfiEibPGyo4CKTZQy3cs +V/ItEyNthxantGzAKychZmaQifnVZXzFuzZAbl2s0b3lLHzddmzhhYg1rHD0 +5CiKsvCeQeS/brNWkNBnsjpGnIXrvRfHRj9bQciSWfW1MizcqRBp5F5tBTSn +aOmrqsT6ZXXTy3dYQcfnvZPJ61hoO3X+zbd7liAjHM7Z6M7Cf44I0WSSLKDI +4nDcuCcLO0P7GFfCLUD/cIZF9lYWxgWszzN3twDHcXZ7px8LN1gFrX6oawEp +HdO/A8JZqNyeeuxxpznMXo03j0tkoavxD2GOoTl0mWa/LSlloZxbMPPiPELI +/qI823IW3qekjZcPIcyU3wkcZbOwKvF5S0c7giS189e6ShY65D+9sp2NYC+k +onz3Pgv3HJdRcQtCqG8r2fG2nYX2P/xNokoB7ESrV0d3sjBsMShi4jhA54Yn +M/LdLIzITu3I3gEwVTuS6tPHwqj+4GZLVYDVV9be+jbMwtbzxQmu2WZQ37U+ ++uR3FrZf+dP6Y7cZ2Em7gt44Czct9XeucDSDoOP7X++bZiHd6UzEeWEzmLqf +clFuljg5XdB/2jDEgqS58wG1cyxMnczsFn7MAnHDG7rbFljIOuGSdKCYBZcj +aqcXF1lI6jAsEDrGgv8BWdDiYg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07528903662462487}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07528903662462487}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3BfvkXK3vMOq1DKuu51r/c7KyuEskpGRlZDEQ2jSJSESkVU ++FbEHWWX0NDSQqJQKCGRkUh+5/fXeTz/+JxzHuf9fr3P50Px3+USyM/Hx8f8 +h4/v/9eZnicP1NOLzASNfmWYmVuatV2Wj13fmQRC4j9v+Z2lAsq89JfvzIK0 +daGPjc/qQ7TzzXcCnVfhQ7T8gvxZc5AYk8v6/Y4LZ6aW1g/luEBvveOuqXdN +cJUtpmef4w/W6sMfJ969gfawii9fzuyF3+9oZ8fffQbtsSa2X2oSNFv8V/T6 +6iTAhFXupFo2KPfWfPHXXYAlJgPOBcJ5IB2+/aaghQCaeR5S3KB9FbLWWdc5 +bhbCzleJ1Z4eJfA+d+39CXERrHO/Ys4cuAHpRfEv+RUk8Gqv2pPV9rfAznCn +pIyaBJb9DCk97X4LhB64bNZaLYE7V801fwu4Bcf6Nbrt10vguds1GSmHbsEh +6vMvOTslcPFAnJ3/rVsQWSj/V7NWAvcvq9pRKFIOm/I4uvbekvghTlBrZUs5 +yOX0n8jOl8LM/hsVhyTZIK9z59hsiRSGxkpausqxQbEpJX4bWwonH29FTWU2 +qI6v2q/VLIXbEk0jGzXYoOGw27duSArPe49lPDdhg8G/C8b9BtJ4Omo0yMiH +DU77ZAf0n0qjXoPoi40lbHBePtRz/q009p0rcWHfZIPL1Zr3fz5I4zuPl3pi +FWzY8mrry0c/pHHEnfqjsYoN23Sv1XrJyGBSCkTPt7AhbEDvTJKvDAqX0hzv +DbPhuJut2ZsZGTx1LuZGgg4HFG+3KvL/I4t3JV0WG/U4UC7l9mvdclncmiI/ +/9eAAx1vfNhnSLLIPyXfH8bkgPqmfdRNNrLYVKQYLrGRA00bC5a+uiCL9UuL +KekRHFiwnm59wZTDqT1x+2mlHMgsiStdsJbDB8K/BL+XE+uX8qWu3iSHTRb2 +9MtcDjg8FF5/KlAO730UOzBZw4GLFmSeQ4YcHhhLDNjZwgETtD//rFcOP7Xm +9icNcCCKfmX7kyR5lHPdsSdcgQt2haJT9iflsbvxl5avMheogodSW8/KY5Xm +bhFnEhdetW3hvL0uj+a5kYHqGlxYs3uFQE+rPP69neRQsJYLQyUxJT8VFbBP +ylWyx5oLW6UdvyvxFLA24tPFhN1cMDhYl3i5XgG/L03aN7eXC8KfV8pSHilg +etT+pN37uVBTIQCa7xVQ1sCDuSmOC7L2NZlrFxWQ9TZMb/Ao8fxEdUMre0W8 +qdazyf0cFyx/zMVF9itiv/LHxqBqLsTa5Gg3jiril8b5sm21XCi/srpLakYR +N/l5/HGu54K8my+9RkgJy566PdG9z4XR6oe/BNYooSHNU6vmMReykzL3XTig +hHRZbSeNDi60dK9SH01UwoP9qeWfiZz+MWx+a5auhOPfnh7Ie8+FoK/T+gP5 +Shi7pcVpyUcuMBy8J9Y0K2GBV7Z0WT8XPstoRj4QUcY372x3OI5zQW5Xg4qc +nDLeHN91880EFxxaPF7sJCujqZJRgOskFyrj0nXFDJSRtcBeYzfDhbTe8WFP +D2Uc22PCFPnDBf0bdcE/riqjiJ1F6belPAjm3yxnXqaMVme+eRsJ8SDPe+xR +zh1lvN7x+/jhZTxYKkrRZLQoo1RwhZvACh507U0ZOPZdGbdaLXs9IM6DROYm +P0UTFWTOX/u4qMADG5/LP2nmKnjo17632ko8EE0YObrZQQVnyVz2JmXi/s3J +JZm+Krg3vlE9W5UH1Xa1I0tPqCBt5LbwIJUH8eGCh9WzVdBX3cf1hxoPrDPc +RM3zVZC0xiRtWp0Hba/H1h7mqCD109zDaU0ejHuoRU++V0HP+LCMh9o8qIrb +LSgxoIJPos39KnR4cCTvbu6aMRXceTJw1VldHqzoc6/bya+KVvK0fLc1PNAK +PsnXp62K7p8/615bx4Ox1PdnFgxVsef6aHO4Pg9u39RUUwJVjO3huusb8MB8 +7L7VFldVJBdYxXIMeeCzfzrt+UFVfEM/1hBP44HGeXPl4WRV3KgQ4r7KhEf0 +x+lbgpmqGLTi+WQr4bg/q16ZF6ni7m2iZqIMHpw96iNT81wVX/FfMtzG5MHW +4tKSjg5VLOvPWfGVMPXxLG2qTxU95NUnwlk8YAtne+lNq+LlGfWBcDMePD/z +uKBYhYTX3L9msJAH2Tzpdc1aJNQZrBn6j7BXu19T3zoSxn1OcRddz4Mh+T8D +StYktBbxOvCScAXDNpruTMI2w1RdbXMeRG89J+juRcIT9/jmEggLFK7Vzook +4XvjNYNUCx48bTxcV3GAhK4PpZdEEs7sf+rwIomEXyavm98h7L5Evmf4JAnF +Ti8tmCWsqhW4S+g8CROy7ZRMLHkwaMPl07xCQr3V2dVRhMtCF89YlJIwrHIx +ppQwo/zC7SMNJFzZ/9hPzIoHlu9aF8ZaSBjzen+1CWFHvn83bH9Dwgay4R0f +wh6r6Jkvu0nYMzzukUg4wCXyPQyS8IH2paJCwpEHr1HZYyTsqKNeqCd8oKgz +jDxLQmfPA7R2wo1fUrxa+Mh4JP9UwjBh64OU+IQlZKT9s3n/H8LPxOqvmQiT +UaW7UXa5NQ+ci7a0jIuS8Y9PS6As4Q6TidHrUmSk5G8LUCXs/SJdwk+ejLcT +Y8TVCPf5aRorqJBRoG1FpDrhoJn7Xq8pZPxqJHOYSngkzTv+hCYZhdROmKkQ +3k2aubZeh4z24348acLTvMyW33pkFH124YMQ4Tgbne8cQzJmVOvU/Sbej+/j +Q4lQOhkZZ6WcvxJO3uNrTDUj45yUY95rwsJL5726zMmYc7ezsJpw5sWz8Vkb +yMg3zvHJIyyjt7bIzoGMNz92dhwifLH5aQv/JjJ2n9wo7EWY5BH4vXYzGRc6 +xOcMCBeNLkpEeZFxPlj9P2HC2okXjXW2kzHtbppkD1G/Chkj7/4AMh7W3MAq +J2x482X8pRDi+zRtW3mQcK1ZaJFrBBlT4t+2WRJ+EFzwvTmajKc1p/a3Ev1i ++4cueeggGaV/lYVnEG7NbDM2TCBj7Z2+lfaE39csSyg6Qcaf5z9O1xL96eNY +VLQ1g4zeS+qEIgkPfDZ7Ip1NRp1J00EVwmPL90km55ExPMtzMYro96hCURrr +ChnvdomDIuFZwxve08Vk/PSy0OEukRcBn56iwAqiPkdS238DD+TZNjTrJjJe +9nCpdyDylm/Z7/33ERkX54pS3xN5pL4/nFD5jIzrG7frBBBezc97otlO1Gsk +YDacyK+5m8pWwSEyLhfRfelF5P3xUFVCwygZ/d9DRCudBw6HXYpjJsg4ee7g +sBlh95LjY1/nyNje2ZkiS8yL8NmJhBYRCl745BZUaETkY0+Q7BdJCm4YGZX7 +TswfoeGuUgF5CvL3amoZEy7ubu4wo1LQvsR8x11ifvXcO6t7x5iC81oFiYV6 +PHBKpnde2U7Bf6PMMmtXEvn8eyuiYQcFLdt4T19oEfMqmirwcScFjR+ax30k +5mtqyPI18vsoqMhXZvaTmL/37T8ezUilYI5je8oEmQf6kol6BzkUnOi5G2Ij +T/Rj+vSD3EoKml2Jv6kmR9RPINSrso6CKxfrY+dleBA27ZI88ZCCSnGfHhVK +Ef3Uqd4d3EXB7T8SNjSJ8kC2oCXFTYCK690dzP3/5cFvHfGe1Zup2OBSYUv5 +zoWZfMVEAy8qXrG4W5Q7woUpMQ11+nYqMoLye1YMc2Fskh5quZOKReelpke+ +EP/PuoAZr8NU7L5T1XmsjwtP7atEU4upOFM81019y4WLYT7weZqKClZ35xUr +uXD+Y8jnr3NUbDldZLHuNhdynKKSvy9SUbknJd+Sy4UMg9Rns8vU8JJryyn/ +ci4kzXPcxVTVMHh2TcbBEi6EpS/ZzbRWw2qRxng1Yn/BLC0rPHdODVOzcp9s +ieJCN7m0wOqSGlpK9VbS93Ah7tyNy1MFauibK22tuIsLVYkleS431NBb4IVT +Wyjxv/YozBWtV8N1Y0tpuv5cWLUkJzPlkxo2X6OlhTsT+5vtBxOiddXR7v7a +RRMdLkxI2vluaVLHe8zWN05dHOgMp74KfayOpKyG2PB3HLj/aA7in6vjCeWH +jSltxH4wrpR0vUMdee+8mbdbObD284re38PqGPdxRHSyiQORnJfb8qU0cOfc +8+Z/iP3jsNNm74EdGqj18bD17lgODJz03bJXUBPdOge7ZsU4YPsjxnbQWAvz +2kqObaCxYTRAKOp2/ErUj8t6szO0nDiPyPEfb1qFq/oaCnY4loHkC80M9g9t +7N5SKXbU8iYop1Y4GxvrIiXjw8uspdchV4cuLhW8GmN2CedXjBfDU8X1RpNn +1mDdf6KPfo9dA4ZyU6Zehx5q/ZAeGXl7BUQFru7zS1qLpt2BE5u+FoBqIonp +qbkOXdgzPW0SebBMY2uly+N1GHs8QIx9JhfWsBQqYrbpo9hUFtUg4yzs7ZFs +tuMzwBg3mz7RrCz4MXlys22uAT5iaVTqiGTCBr1HF21XG6LPdLKHzvV0uDdp +Ov+r1RBtfwtkFG87DpG6+l2vA43wzKURr0MdR4E1tqPNc5kx1lRnV6XGJ4CV +uvxGkavGmMTbfaXiwkFYmZB2oIlGw3Wm4ccOCMaAdiC9QaOLhtcbj3rNPdsL +p6mOc0c/0FDmpuKjhLt7YarX3+hzDw1fLPuQJl6xF+55nSy93E/D/DZHUYes +veDi3Hte7jsN737VTtL33Auxpsm7l/GZ4LOCA7Y1Q3ugReI15buGCTr5pHac +Ft0DgfdCjt3eY4IzJ0eTe4YiYSxiOMZqnwk+PWzVYN0aCQdUwsM6ok1wXjIt +sIkXCWmHdrnMHjTBLgGJ1skjkcBmRJOZKSbIUGINsGQj4U/l0frmiyb4t/dU +R6BNBGRVXJ5602yCY1dXfq2tDYOGwrYdEzJ03KTTYGPQHgJ9DpTt0fJ0fNJz +9FdaQwjw/Y7wnFek442e2L6fN0LAfJOg4xIyHfkLtEwnj4TAo38YNAVtOkZU +hS+/syoEnvsXLFtvRkdPc2afYVIwdKmHlmcG0XHIr5oxYBYEU9cXf+lV0dHr +gsZl/sEA+LLFuvBEDR3p9Zlurm0B0PnvKZv+OjrWS1itZTcHQJ2v4oVz9+n4 +6bKLacbVAEiSN2IsPKGjZsDy7i7fABBPDT309AMd1RLdKOxef9ANbucL5Gcg +Y4LsqPjFDwI0Spdd3MhAkfLkY3ukfSHuoU+opjMDaannfoYu8YXMQMlnXBcG +9i0pcP80uh3qi2NPPnNnYFXcz7vrOdtBWtNGbMGPgcW/tz7WNN0OjzQHpX2j +GWjc8TAvytUHtFeSyJoFDPx7Icvy+tmtMKGdbcwdZ2CQyJ9c6W2e0PkcraQm +GXi+VTPd0doT7keOue6bZmB8TUz6RT1PyODa7jGeY2CvqtjxEH5P0GbwldUK +mOKK5C7V7use4G8bQWmWJaw9kSr+2x3agjesaGOa4ovJ1+phJVugumj+03Sq +KQZWnVgdou8Gxhb7ftmlm+JPm0r5VWQ3uPNpdEXhKVNcyKkumxVxA65qD80u +yxQD2Dn/NX9zhbLc+6cuXzLFWXXFNsGrrlB4Mpm+odwUxYO+RqGMK5zYJ3Ym +960p9jIZOnpLXcDLUg1NVZmY9yoFp8WcYaFNSLSZzMS4678GihadoDBwrNtO +jYlHTM03Hup1gi8pNTFeK5n4ij37OrHACfY+caqI1WfiLt49GCQ7QZrjIdVq +ayZG6FXtn1vpCLUe7X8MdzGx8G230eONDqAUcbxmzX0mDmmdHPMatIGMxSCj +9CYm1rw6MR74wgb4s6w5Xx8w0dtCqzL5jg0MVy65UfiEibPGyo4CKTZQy3cs +V/ItEyNthxantGzAKychZmaQifnVZXzFuzZAbl2s0b3lLHzddmzhhYg1rHD0 +5CiKsvCeQeS/brNWkNBnsjpGnIXrvRfHRj9bQciSWfW1MizcqRBp5F5tBTSn +aOmrqsT6ZXXTy3dYQcfnvZPJ61hoO3X+zbd7liAjHM7Z6M7Cf44I0WSSLKDI +4nDcuCcLO0P7GFfCLUD/cIZF9lYWxgWszzN3twDHcXZ7px8LN1gFrX6oawEp +HdO/A8JZqNyeeuxxpznMXo03j0tkoavxD2GOoTl0mWa/LSlloZxbMPPiPELI +/qI823IW3qekjZcPIcyU3wkcZbOwKvF5S0c7giS189e6ShY65D+9sp2NYC+k +onz3Pgv3HJdRcQtCqG8r2fG2nYX2P/xNokoB7ESrV0d3sjBsMShi4jhA54Yn +M/LdLIzITu3I3gEwVTuS6tPHwqj+4GZLVYDVV9be+jbMwtbzxQmu2WZQ37U+ ++uR3FrZf+dP6Y7cZ2Em7gt44Czct9XeucDSDoOP7X++bZiHd6UzEeWEzmLqf +clFuljg5XdB/2jDEgqS58wG1cyxMnczsFn7MAnHDG7rbFljIOuGSdKCYBZcj +aqcXF1lI6jAsEDrGgv8BWdDiYg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07528903662462487}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07528903662462487}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994257816169671*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"5dc7d25f-9721-4fad-8351-68baf9c1f3c2"] +}, Open ]], Cell[CellGroupData[{ @@ -6987,11 +7965,12 @@ Cell[BoxData[ FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.991850610344879*^9},ExpressionUUID->"c213919d-017d-a948-8e46-\ -fe19384187c3"], + CellChangeTimes->{3.991850610344879*^9}, + CellLabel->"In[98]:=",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], -Cell[BoxData["9.786582751762749`"], "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +Cell[BoxData["9.842211826314418`"], "Output", + CellChangeTimes->{3.9942578162193813`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"300db5b3-3a56-49c4-b50b-dab0d3f1aeb4"] }, Open ]], Cell[CellGroupData[{ @@ -7047,416 +8026,532 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991850612616415*^9},ExpressionUUID->"3764dfb4-9656-4349-b0a1-\ -77ebd1a3e048"], + CellChangeTimes->{3.991850612616415*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"12d513db-13cc-bc48-b9a3-22b17d8aeb9a"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.7584423203618`*^-253\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 99, 13, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994257816356575*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"729c68e9-0559-48eb-8b3c-1aa940c50af5"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"05911c33-7605-8b49-a7ba-7fc8c8f30741"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.688434379377498`*^-262\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 99, 14, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994257816367713*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"9fe6e7c9-9375-4b4c-89b6-d743051c4fb2"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"2192e048-2875-9f4a-aa0c-9cbbd447dfe1"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.619058151770503`*^-271\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 99, 15, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994257816377205*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"5027622c-40bb-48fd-a1a3-20237deb52c0"], Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"b6990f5f-359f-464b-ac16-44cdfeae3c8e"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.031746 0.0147151 12.2218 [ -[.18254 .00222 -3 -9 ] -[.18254 .00222 3 0 ] -[.34127 .00222 -6 -9 ] -[.34127 .00222 6 0 ] -[.5 .00222 -6 -9 ] -[.5 .00222 6 0 ] -[.65873 .00222 -6 -9 ] -[.65873 .00222 6 0 ] -[.81746 .00222 -6 -9 ] -[.81746 .00222 6 0 ] -[.97619 .00222 -6 -9 ] -[.97619 .00222 6 0 ] -[.01131 .13693 -24 -4.5 ] -[.01131 .13693 0 4.5 ] -[.01131 .25915 -24 -4.5 ] -[.01131 .25915 0 4.5 ] -[.01131 .38137 -24 -4.5 ] -[.01131 .38137 0 4.5 ] -[.01131 .50359 -24 -4.5 ] -[.01131 .50359 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.18254 .01472 m -.18254 .02097 L -s -[(5)] .18254 .00222 0 1 Mshowa -.34127 .01472 m -.34127 .02097 L -s -[(10)] .34127 .00222 0 1 Mshowa -.5 .01472 m -.5 .02097 L -s -[(15)] .5 .00222 0 1 Mshowa -.65873 .01472 m -.65873 .02097 L -s -[(20)] .65873 .00222 0 1 Mshowa -.81746 .01472 m -.81746 .02097 L -s -[(25)] .81746 .00222 0 1 Mshowa -.97619 .01472 m -.97619 .02097 L -s -[(30)] .97619 .00222 0 1 Mshowa -.125 Mabswid -.05556 .01472 m -.05556 .01847 L -s -.0873 .01472 m -.0873 .01847 L -s -.11905 .01472 m -.11905 .01847 L -s -.15079 .01472 m -.15079 .01847 L -s -.21429 .01472 m -.21429 .01847 L -s -.24603 .01472 m -.24603 .01847 L -s -.27778 .01472 m -.27778 .01847 L -s -.30952 .01472 m -.30952 .01847 L -s -.37302 .01472 m -.37302 .01847 L -s -.40476 .01472 m -.40476 .01847 L -s -.43651 .01472 m -.43651 .01847 L -s -.46825 .01472 m -.46825 .01847 L -s -.53175 .01472 m -.53175 .01847 L -s -.56349 .01472 m -.56349 .01847 L -s -.59524 .01472 m -.59524 .01847 L -s -.62698 .01472 m -.62698 .01847 L -s -.69048 .01472 m -.69048 .01847 L -s -.72222 .01472 m -.72222 .01847 L -s -.75397 .01472 m -.75397 .01847 L -s -.78571 .01472 m -.78571 .01847 L -s -.84921 .01472 m -.84921 .01847 L -s -.88095 .01472 m -.88095 .01847 L -s -.9127 .01472 m -.9127 .01847 L -s -.94444 .01472 m -.94444 .01847 L -s -.25 Mabswid -0 .01472 m -1 .01472 L -s -.02381 .13693 m -.03006 .13693 L -s -[(0.01)] .01131 .13693 1 0 Mshowa -.02381 .25915 m -.03006 .25915 L -s -[(0.02)] .01131 .25915 1 0 Mshowa -.02381 .38137 m -.03006 .38137 L -s -[(0.03)] .01131 .38137 1 0 Mshowa -.02381 .50359 m -.03006 .50359 L -s -[(0.04)] .01131 .50359 1 0 Mshowa -.125 Mabswid -.02381 .03916 m -.02756 .03916 L -s -.02381 .0636 m -.02756 .0636 L -s -.02381 .08805 m -.02756 .08805 L -s -.02381 .11249 m -.02756 .11249 L -s -.02381 .16138 m -.02756 .16138 L -s -.02381 .18582 m -.02756 .18582 L -s -.02381 .21026 m -.02756 .21026 L -s -.02381 .23471 m -.02756 .23471 L -s -.02381 .2836 m -.02756 .2836 L -s -.02381 .30804 m -.02756 .30804 L -s -.02381 .33248 m -.02756 .33248 L -s -.02381 .35693 m -.02756 .35693 L -s -.02381 .40581 m -.02756 .40581 L -s -.02381 .43026 m -.02756 .43026 L -s -.02381 .4547 m -.02756 .4547 L -s -.02381 .47914 m -.02756 .47914 L -s -.02381 .52803 m -.02756 .52803 L -s -.02381 .55248 m -.02756 .55248 L -s -.02381 .57692 m -.02756 .57692 L -s -.02381 .60136 m -.02756 .60136 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .01472 m -.06244 .10806 L -.10458 .20681 L -.14415 .29388 L -.18221 .37017 L -.22272 .44131 L -.26171 .49847 L -.30316 .54591 L -.32392 .56431 L -.34309 .5781 L -.36173 .58858 L -.37125 .59283 L -.3815 .59658 L -.3917 .59947 L -.40103 .60141 L -.40552 .6021 L -.40789 .6024 L -.41042 .60267 L -.41284 .60289 L -.41504 .60305 L -.41725 .60317 L -.41834 .60322 L -.41933 .60325 L -.4205 .60328 L -.42174 .60331 L -.4229 .60332 L -.42399 .60332 L -.42526 .60331 L -.42644 .60329 L -.42773 .60326 L -.4291 .60321 L -.43163 .60308 L -.434 .60293 L -.43941 .60241 L -.44405 .60181 L -.4483 .60112 L -.45788 .59913 L -.46769 .59645 L -.47681 .59341 L -.49751 .58461 L -.53655 .56157 L -.57805 .52937 L -.61803 .49268 L -.6565 .45377 L -.69742 .4102 L -.73682 .36757 L -.77471 .32713 L -.81505 .2857 L -.85387 .24819 L -.89515 .21147 L -Mistroke -.93491 .17954 L -.97316 .15219 L -.97619 .15016 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJztnAuQFNUVhnt3ZhZ20WDUGNQo6xPxxe6CgIMgKgI+ACMqoiiswAgK8hTf -ARR8oXE0iXloLBNjtBJTPmt85E3FMiYpUyZRKzUpraTyKC0tLS1TsUxlMn1v -9+3ume/cme7phbXKqd3e3v+c85/Tt2/fvvf06ZnVv37Z0pX965cv7u+esbZ/ -9bLli9d1T1+1tgpl2hyn7bHqb1e34+5XHMffVKo/lcfdjYs03l+q/uScUrHg -5B3/k3cKpbJzjJJlnEqpYCQZte108sWykprfcskp+AT5glMqV5zeGPbkf4xv -X6lye5KsZ18oVRr674lhT/57pbapxp71ZORXy5wl6s8Qp1SV5wtFp1zWrsql -oqJzQ5jghVjM552iJ894dpVKuYpryuAQq/9X98da7Gz+/CbVOiWnXP2vXWHD -HPcsRZtF9t8Tg6dxPEOUjc8TPp1uN2lvoj30sTvLwz2uSuf+N15sqqheu4eV -i3nTO/vAdijY+s1armJ5L8Rckz56wLYLbPUp74hg6lf/nwHq9mStUk8RtW22 -Vcz1p06U1s026aMXbDstsYT1qJXJR03zuP3U77cD1TxhH+YQVb/WeFwfYVvy -oU9BNjQEV2MqVZp10x4eyToiA2loMJyYcmNl7O7GhYf1mKd8rGjb2J3bw5xE -PWxJ2KujR6xJDYalWtpGw1IGfPhHG+4R/tHWjfbaJ523MSLNELhpBO4nxndl -aTDNljPjZLFUNg2QNfpVzL3VhBquVND2wZE04qhtwOqtp+zesoLG1rewaF9o -znezXBCDvkea21+SGLB59afdTM8C9XH+6FGl1ZMg5S7ntaJr7raeP/dxI+lj -k2yTHiMnyFyGhdAJsrllu0xs38VgSufoLm/z7U33pBn2YZ5792OuAHd74ydD -PtL9oxYXd7qbNtmqqwWs81PbHWI7mGJp1nZoqMupC3fYIA/4U9vBFUvijjYF -lI4DbHLKeuFAQiL1190Thm6WZyPUvsrW9FVyEZVIQFtCejreTKBQ8W44N/BR -ub/tgKnt5p1vk5FsNqVrk5VsNqZrk5NsvtSijRInYe+QbK5L12aIZHNtujZD -JZtrdr4NjZVqe3WLNkpMo67aXiWz7ygbmlWo7ZXp2uwi2VyRrs2uks2GFm2U -OAn7ZySby9O1GS7ZrE/XZjfJZl1yG30H4gcL/tjpJ/PyxZKTs+hH0tzex7/7 -hh/A0N2oUZze4GJJymchWo3Zc/n+UYazWzSaf1aKcK0XoT4sPx9H6SbKs1PC -LZtuSD41PYboAveUWhRDUhM1MZA1Oy6QGve7D76Q9pBCWl3Xg8IhST3IlrJN -LaRscNnpRB/l+UxUdfnAzoieanDIhdKkZk8pslVOdOCCFNmuFlnWtE8kYxgr -hCUgENZQVp7FIOiUeT4n8SxyN2oFuUsC64UgsPDsJfEsMFEMD1krRdHmfBAM -l31/XuKZD4LdEvDMM8ewRwLrc8QrDHlGSDxzTRR7JbA+UzxpyLO3xDPHRLF3 -AuvZojLy7CPxnC4qx+M5DQT71vbTfSXrmaYt9pd9i9YzQJCEZzoIRso8X5B4 -poGgOwHPSSA4QObZT+I5AQQHJuCZCoKDZJ79JZ7J5mwfmsCaMmxhnkzQjcB6 -EghGyVGMlHiOBcFhCXgmgmC0zNMt8YwHweEJeI4BwREyzwEST585x0cnsO4F -gYXnQIlnDAjGJOA5GgQ9Ms9BEs+RIOit7bui9REg6EsQxeEgGCvzHCzxjDLn -eHwC60NBYOE5ROIhBxMS8FBz6asz1VV8tChAf3Q2PhMpq6BVPDWZ2tKFpEeo -AVzZB0uV2qrBTKRIhLLW4pHQwJT3jiS9DIDBQlV6lF4dJYVJ95dJkTDTWPka -21A5HK2kxDDpVn5c6mFG6nW88rUgeSEGR/OwyakHZwo3QzVi9NRCLJygKe+U -uh4ZP6PQEdFzf72KLJ+m0TU0WoqYli7HexG3mHAYVpdwsBVAUTuLUdOyT884 -W0xGcB0RpWvE2GiBrWfV2G/oBqu2lKo4MQEP5ZVOknlo4qC2lFicloCH0ssn -yzw0DVJbejwwPcSjJKI1PcSYIUdxlMRDj4FmJuChx1anyDw0yVRbujOdmoCH -bh2nJeChS+d0mYcm4WpLg9qsBDw0VZot8/RIPG0gmFPb+8j6f+5WTYTPlN3S -mua/gMWk+BiwuTJFH2AfAXZWPIr/AHa2TDEWsH8Ddk48ig8BmydTjAPsA8DO -jUfxPmDzZQpacb8H2Hm1PZEM3wXsfNk3ZQ3eAWxBPIq3AbtAppgA2FuAXRiP -4k3AFsoUlIn5F2CL4lH8E7B+mYLySv9oneLvgF0kU+QB+xtgi2v7JBn+FbAl -sm/K0L0B2NJ4FK8DVpApKMv4F8AujkdRBmyZTEEVhn8GTL/0lGqewp870+uS -NAGg4srXALtEhzrQaQn7S4i0MKEDeBWwS70DSC8b0QF6NDc6HrA/AbYiEmGq -i+iyfRG98yLM+K0WfTUuSENQaH8AbOXANp5lZTwVsJcBu6yuA7ZazuB3wEYZ -B3qQ9HvAvBqCAUg2WN6aoialgF8CzCvHaD3PUP+uEY2VJwL2O8C8Whq6M9Cz -wd8AtjYexYuAWcrf6Ennr1uneAEwS+HeyYA9D1i4xlBJyPBXgFmKIOmZ8XbA -LJWdRPFLwCxFqPQE/OeAWeplieJngFkKh2cC9hPALPXKpwD2HGCWcmyieBYw -S+X4qYA9DVhdOTwZlgDbKPumQoqnANs0oBRUFvIEYJYXKYjiccCulylmAfYo -YJZXTahO5keAbYlH8QhgW2WKOYD9ADDLS5xnAPYwYDfV9kkyfAiwm2XfXwTs -QcBukSmoauoBwG6VKeYC9h3AtsWjuB+w22SKswC7D7DbZYqzAbsXsC/Ho7gH -sDtkCqqm+yZgRZliHmBfB+zO2j5JhncDdpfs+1zAvgrYV2QKqmq8S6RFivPE -BotiX4tHcYfYPkhBZZ63i+cm1TRBICuG0gR6GUEz8gWAbQPsGzrUgUsT0Jqn -2YBvFS+dNNMCuSYjvACwmwH7ViTCZCvbXN0XFrk6+lXRxvUrFwJ2I2D3pBBp -F3+1UugbIrx2DVIEFN4WwO5NITw6/Tml52P+aacF5CLArgfs23WdstVUQbBE -di8tnU2LG+lmwO7zIm0xZRDVM0khr0Yhnw/OeI3/fsDU9F491tPTjMT5gUiC -z5Eb6yLArgXMC4duBfTOw9WAfVemoNcvrgTsAZliKWAbAPtePIrLAXswRKEk -BVBaB9j3Zd8XA7YGsIdkimWArQLsYZliOWArTJf8oWx4SZNYTAqK5xGZ4lLA -Cib8R2XDFU32SQvFyiYvrsdkissAW2jCf7K219G5pRvzk7LH1YDRzO4pmWKN -CXC+2XtaVqfLglYWFor1gNEq6xmZgq7qM0z4P5YNNxil2Wbvp7I6jWGUsLFQ -XGX8zDR7v5DVrzFK08ze9tqecx0YTgVsu+wnuFFNMXvPy+qbADvWGL4gG242 -ShPM3ouy+g1Gqc8c7W9l9a1G/Sij/pKsfpNRH232XpbVbzFKh5i9P8rq20wI -3Ub9FVldLdXVJHKE2Xut9kyrteUId68sM6ntIPmysEZytd/gK4mdtv8DOhP8 -Ww==\ -\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ -{-3.23234, -0.00443741, 0.118269, \ -0.000307202}},ExpressionUUID->"899e43aa-c372-6647-a3e4-4952f308ab17"], + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 99, 16, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942578163865643`*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"5eda9948-2f93-4f42-8f35-88976a960c58"], Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-\ -baecb9a57d9b"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwVlnk4VH0Ux0WikrLvs1mKLNlmzJhxDkW2ZN+zFFoUhajwWooUSUhIktCi +MHNLSYtQrzbtlhYJLa9KZIlQ7+2v+3ye59zfPb9zzvd7Ln19pGuosJCQkNkc +IaG/z4mee60amRUWCU25X3+4WFu8KFXcbdmVCrE1eWal2eqAco/XK3blwmXJ +hSPbs40h1vl8p0hXOdw/fmaJS/ZKkBpSyJ3qFIDuEjd91Ww3eHfdKXKssxnm +1ntMbju0AWw0Bt+OdD4Dpe6WOW0Ho2Gqk3V0uLMP7C75L+Ql74WWlWcqnpaP +QkbNl3np9HxQfdfwcb3uLIgua4jK23UCZLcGnhdbKYKqm4LN4qRPQ66hTaOT +hzgWLG+xLdp2BroLVzSNLFmEVYMdkuHK1ZBZkfRYWEkKue/i3aWLa8DeZLO0 +nLoUHg6oTbtRVQPira4eS/WksEB3iXEQUQP7+jVfO1hKYa3GrcnMhzWQwHj4 +MX+zFFqmxXxL+F0DEWWKv7WuSaH5ftPY5qBacCnh6zr4SeMl9SmXsMV1oJDf +fyDvhAy2L/pIsJrqQHH55X2TVTLY+PlVmfKdOlBuTk9aVyeDfeLUiql7dUAZ +1t65tEUGqbftv1Q/rwNNx+1BjZ9l0E0pYev7j3VgPHeW2W8si0qNhbcPS/Bh +bYz8gNF9WSRG/HDCnQ/OCz/3HHsuizuZF376+vDBtbyhe+aNLI4967zcuI4P +nk/8H9/9LosPLFnWO8L4sE739DVfOTncqFpVeSGOD+EDBkdSg+Tw35xKSkgR +H/a721k8m5DDAI/c+8+7+aB8qV1ZeI485nwsrJTo4UONjPtPw4XyGKOVcA/7 ++NDxLKDuCFUem4o6BosH+aDhEsNwsZXHNW8sDslP86F5zcl5T4rk0eNnFWO5 +igBmbcbbH3EVMPZuRkablwByqvZUz9oo4IXZhGVb/ASgMU8oQ89FAY3+KC0S +CxSA450FlodCFXBbulOFUZgAilfSCMdsBfwkLL3QJUYAZuhw7ME7BXQ9MK/1 +/GEBRLNPBd5LVcTehzrHnzULwL5McswhS5Gsh/aGc3cEwBBLyGg/qogz3Zcl +E9oE8OSFJ//5WUU0MUQpuXYB6G+XEOlpV0Tbgt/35LoF8LkqruqHshLK3hnk +uQ4JwF/W6ZsKoYS/uyKUGuQIMI5vTCm9roSerM4nEooELOhbJk+/q4Qcs48x +/soENNSKgFa3En7I3bPvO4UAeYeGnBV/lHCruP/DgaUEPEnRMLF2UMY/tod8 +JdgErPr+a09EvzJKcXyPunoTsNs2X+f2V2W0M/Y5quJLQM0pvVcyE8p4mdJy +tdePAEX3IHaDuArejPwcHhhIwNerd36K6Kugq4pRrn4YAXmpOTFFu1RwUdNB +b9loAtpea2t8TVHBpYuJxydjCJgxaXlukamCjxjy0UtjCQj7NG40cEIFf7QM +4vLdBHAc/Ub0W1TwVOfp+aJJBPTJaUW0LlJFttSn7jkHCVCIvKWmoKCK+ebs +AOdMAhzbvB9tpqnimGib4vEsAur3ZOouNlbFlo+rjDUPE3Dw3fCgj7cqZkWV +LpHIJ8DoXOPG7+WqePrhWTHNEwRsFPZQsLqgio/WC1mxSgko8Ru6m39ZFWXV +b92wPknAPEm6FqdNFVkbQxK8ThHwKip9YN83VQwL0F3uVElACtclWNlMDf0v +rZ7KuECAbUDpD5aVGm4MP3V1x0UCJJO/7PVwVEO/U2IUzxry/Ja0qpwgNfxe +rvBOqo6Aq/bXvsw7oIZjSlu9PAgCkraKJWrkqeHr9dYhKpcIsMl2l7Q6oYZe +04eob0l+8XRoRSJfDUsOXKt0qydg2Fs9drRbDXWeDUsuaiDgyp7tYlIDaqgu +cv5iHcn/lNwo1B9Sw4Ur8kScrxEg0evVuFmYgs6WO7pTGgl4PqfScb8EBbcU +n/GTvU5AsfqPtxXyFHzSkVNUTvLSjVlCvToUXJYuuUZwg4ChjO4jsyYUFG/7 +3mp8k4BL57XUVYCC4xlqs3UkWw01WXu6UbD2uBhReouAgJ3jBx/GU1DzvIjn +6tsEaB6zUh1MoyC/Tnek6vbf+Tl8USyHghqpip7CzQTsmdF+YlVBwZJ3i1Iv +kGxJiQsOqqHgq5Q0h2mSxbH1R+JVCjoplfRbtxBwdG+AXMNDCvbCkX3tJPtX +Vld1dFDwbMPnwxKtBDD+nWSN9VKwf/pJhA3J/322vif1hYL3Xx5gJJBctyDP +12Ccgo/C3S9cJDlOt/eL4x8KJjOjF70m2cJJL3HLfCoen6Ozeu4dAkS375HM +kKHio8EbvtokPzzy78lKNSqeCdppZ09yHiFr2LKUijX0QtmNJPu+DG7uNaSi +qnnkjSSS6T9r3H6bU7FDzNo6n+TPijMDKjZU9DUIvVhBci3HLpbtTMVrFao/ +60iO9S8Q8/KlYlhlg3oDydx/+gtjQqiofjXT5AbJImUrdHIjqDhT3a/zl+/f +Tmys3UVFuWMy4n/jc/rvOz5KJfN5GfHo73leooo9g1lU/C5un/D3e5SloZHi +x6g4IDct9zefD7YCIa1TVPTU6D7+N98LW/4cWVlNvn+Cu/jvfaKzHNWDL1Px +6/KkHX/vy6kpuvTPLSqmXZ1u+VuPVZ3ts0NtVNQ7Vn9CjGQnobmrA59RsbJt +5/B7sp7e2uycx6/J/CQ8b1wleYNrRDd8oGLE4p2iWSRHxJ9m1A1R8W7EyD0/ +kndVdIXTJqmYRAwuXEayTTw9KVmUhjl1HRL1ZL8fLL5+2mwBDXUUFrXHkexc +4dk2LElDxs3VUkyS/R5lSgUr0lCN6cc4S85Pb7AWU0mNhjZCST/8SA6baPJ9 +Sqdh0jTXToLk7dSJ05bLafgkaOnh9eR8jhM5bVMGNEwcr0wWJ3mP7fJvfBMa +npbcMHu+iYC0HUFMhgUNZ/6zOfGBnPfilvttwi409HM5d8yQ1APVO/TbNQ8a +RryZP/c6qZ+Kr3+kon1puGVIRXQlybVypn79G2gYeYZy34bUW+vGk99aYmnI +cndP0ST1ajfDlk6Ip+Ga78OX8kk9t+e8YJok07DM9L90IZK7G+YnVxygoemr +pwvar5D6XBgjnVZCw6iC8Ut4mexXmSSLd4qGPjdfz+aT/jFpcs5vvJKMN5sd ++kD6jUhAT0VoLVmfxJH2RAHp73W2LJtmGno8//dsWi0BJ1b1+/2+S8PFQdWe +t0j/YnQnJtc/oKHwnbf146S/6QkT97Re0vDZh9V53qT/Wbmr+Yt9JuNvLOid +OEvA1smR5LZFdDx8oWiwgPRPzo4w+Y/SdMR692X7y0g9D76qFlGko2hMX0k0 +6beVr1s6LBh0pCoZGVqS/txz86juZSYdy/75bVpbSMDaNHbXqUA6BhWF63dl +k/P7++K2WyF0jBXZVJl1iPSTWIbI2810dPAriuCR+yBj00J9xRg6pvTk/847 +QECTw9u92Rl09NSbspbbR+4D6RSDeD4db39qmt28iwChzPHWwno6xq3mhg+Q ++6ldZItvfSMdvcp5q/12EhA+7po2coeOwTairhZRZD+7NF5vfEXHezu5H7rD +yX17si3dXYSBrfmnizYFEDC1fEmPngcDR39PU0aQgIkTyinGvgwcPJciPw8I +GFusqcEOZGAStbBDgUf2b5S9ZdVmBrqHV1wxJPdzX+OGCd9EBmoxiwzAkNS3 +wxXJjEoGvhoczWymkfMWHgB94wxUtKm8ETcrgGNvN/V9+sVAH5EsR+1pAeSv +jU779oeBtbrZPZ2TAsg2zngwOV8d197xldEdE0DqNN9rMUUdewVbxuoGBRCe +Kbqda6OOJUcrzPTJ/2pu9YWyggJ15D3VEJlbI4DXtOqT1sfVsW//gZr91QLY +U3CudOykOlIzTMfFzwngSkpVies5ddT9VOI7t0IARt5lhZLX1fHJUXt+T5EA +tEXzc9Lfq6Pv+blfGWkCkA+MT47V1cDagqTcMR8BjEjbB3k2a2Dj891L5Wb5 +MJAV5BklpoUFIe3a6kp8sPseZ/eBuRR/lJ8WPahdB183iEdfSlqGISniRx/S +asj/fQXh/c3a+CPe8TTtTTVIP9LKrvuugwPrTCxM+OdANaPWmcnUxeR/TmTY +e5yBwuXsJTIb9TD30/Fdy7Qr4b6ypenoEX18OnhbVULhNHBUm3MMOgywy0ly +QHa4DCRFymOCU1egv+vd5kcypUBJoXJ9tAxxeJHninbzYpiv6V/v+q8hnijO +NAhrLgB9nlJt3DojHPYbpq14mAdRPdIt9kLGWBYiU3NxIAe+j2Z52BUaY30l +b6/F9yxYbXC32E7PBOvjw8okBRlwc9R8+me7CS5oLCyvrNwHEbpGr56GmmJI +km5ek28K8IZCXvjMZ+LDvoJEv8wEsNZQXLOonIk3HH02T5XGwbLkg7uaWSyc +vLt7VCcpGq6bV4o6cljYoiLvIIiIBueft3Jfcll456CFo3VANOyKGL/w2ZKF +q7ZxjbN50dDmH/Re0pGFD/x8v56fiYJNbKa9XxALXXfvf7ogMQrO/XivMpbB +Qo0DZo846TtAJ5R9S/MVC51KfII1oiLhMMPp1943LFRNDzNI8o6EsXfrTft6 +yHjX6NtfLCLhpm9WdWk/C9mMTRK/FkaCq/O7YwrfWPgs35gzWBUBu83Tts8X +MkP6xOt3S3q3QZvUU/o3TTPcTmtVZAVuhdCbm/Zd2mGG0wfrn3zN3gxD2wbj +rGPMMCvSYmtl3GbYpbY1vCPWDB/Eh1psD9oMBxMiXSfjzTCi2tKXa7QZ6jix +NG66GZ6desC52LEJZur3Xm8pNsONfcV/PjE2QW5t6dizFjPkJbzx3tkWBrfK +XoSMyLGRq30uusg6BHod6YGximz8z2tNZr9RCAhNbfOZVmZj8+u6U1xaCFi5 +iDmJ0tjoI+FRoTK9Ae7O4bCUdNjYlcoZz+RvgIfrT863tGCj9EhPlB59A7zS +2FKTE8bGoNmlEkYL18PY2T8/Da6wMUy+fT+IB8FHT5uyAw1sHBoWaV44Fghd +cw/Z9jeyMfPz6fyazkBoDFIuKmhi467x4PXMk4GQqmjKmb3HxkTbcYU1BoGw +JGNLwv03bKwMqLl10C0AdDe+FAoV5uDxO4WdH6v9YYNm9fziNRxcr2Cqb1Lk +A3vuBGzRcuZgjZGe7ackH8gJlX4gcOUgXfPt7rowH7heuTvrgRcHzw05D+wz +8QFZLdvFs8EcfLv8rrzJU2+4q/VBNiiWg+Vb98mXSnqDzjIqTeskBx9rr3I2 +LvKEEZ08pmCYg/9eLa6SGXSDrodoLTPKwU7aRbvlnW7QFDHkFjPOQf2z6Z9d +W90gW2C3g/mLgzc7fnx5WuoGOhyhC9dEzPFzV8ODQ+5usN5uG71F3hz5eyak +R5td4cXG1RIvuOZI0z6mqFXtAlcrpt+PZ5ijvqOB1dk1a4G5MuanfaY5dt9Z +m9JssBYuv/8qUXbIHB3e3vOakFoLAkoPyz7XHAMT3yWd73CCC4VNh0qPm6Pq +mq0Cq2AnKMtKY6+uMUfOiHkUI34NHIhZfKTwuTkeftIkRrvtAL6r1NGcwsVm +35J0Tq4tzL4Ql2yhcfG925Mj6rtsoSx06LW9Ohf575MKNANs4WN6Q5zvMi5e +vniSHaNjC1H31tbuNuKiSMLPKnbrajjolEC5asPFD3fa7N1mbOCa98sZk0gu +Rlyf6TT9xxpUtu1v0G/iYv465ujeVivI/hNmmtnMRc3W0LURfCsQzrXhf2rl +4rOuylVbSq1gsF70XNk9Ln4WOn67YJcVXBPaVyj9nIvDDiZ7mvSswDc/OW7i +AxeXvTOstj9uCYWNu01vLuThlHOIzKtUBAknH76yJA/HRmktb3YgJPea6cUt +4WH6z41e34MQNolOaqyQ46F1jv/USkBgrY2VLafwMGnynwi3KYCOvqjRNEMe +7r0qc/nKmAXILdjKX+NFxgcfERYV5kHFysQ9wz48zHPf8cu5lwtGidkr8/x5 +KOaeWt50kwtOw3Uvu4J5GO39MXFBAhfSO8anNmzloeQDSvOqSXOYLE+y2pPC +wz7FzZ3Mnxx4ZZ73vKqah3GC5cqGkmzYtLOixK6Gh8qjq0IuDZvBRM3l0K91 +PGw4Tg3xem4G0oyun4b1PDz4EiRmCs3AQVxN9UYTD299ir98XdMMrr+oCnn+ +koeF8VUxc6xZYC95VS+2i4etIh2MKG0WdK2+N6H4modvGnVrhCRZMHbtS0ZA +Lw87J4P+i+1kgt6pFRf/G+RhuUfks9ZwJlx/ZRmb9Y2HzIu37OguTLCXdQOD +YR7uuy64VsxkQtj+nU9jxnmY5hKtNDCHCWNN6cUKkzzsn4h6THwyhdRfxzZc ++8XD+F27F5c9MoUlJud0183ycOZ0142zhCmUbrs2/ucPD216Jm8+KjKF/wGV +1c+7 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnk4VH0Ux0WikrLvs1mKLNlmzJhxDkW2ZN+zFFoUhajwWooUSUhIktCi +MHNLSYtQrzbtlhYJLa9KZIlQ7+2v+3ye59zfPb9zzvd7Ln19pGuosJCQkNkc +IaG/z4mee60amRUWCU25X3+4WFu8KFXcbdmVCrE1eWal2eqAco/XK3blwmXJ +hSPbs40h1vl8p0hXOdw/fmaJS/ZKkBpSyJ3qFIDuEjd91Ww3eHfdKXKssxnm +1ntMbju0AWw0Bt+OdD4Dpe6WOW0Ho2Gqk3V0uLMP7C75L+Ql74WWlWcqnpaP +QkbNl3np9HxQfdfwcb3uLIgua4jK23UCZLcGnhdbKYKqm4LN4qRPQ66hTaOT +hzgWLG+xLdp2BroLVzSNLFmEVYMdkuHK1ZBZkfRYWEkKue/i3aWLa8DeZLO0 +nLoUHg6oTbtRVQPira4eS/WksEB3iXEQUQP7+jVfO1hKYa3GrcnMhzWQwHj4 +MX+zFFqmxXxL+F0DEWWKv7WuSaH5ftPY5qBacCnh6zr4SeMl9SmXsMV1oJDf +fyDvhAy2L/pIsJrqQHH55X2TVTLY+PlVmfKdOlBuTk9aVyeDfeLUiql7dUAZ +1t65tEUGqbftv1Q/rwNNx+1BjZ9l0E0pYev7j3VgPHeW2W8si0qNhbcPS/Bh +bYz8gNF9WSRG/HDCnQ/OCz/3HHsuizuZF376+vDBtbyhe+aNLI4967zcuI4P +nk/8H9/9LosPLFnWO8L4sE739DVfOTncqFpVeSGOD+EDBkdSg+Tw35xKSkgR +H/a721k8m5DDAI/c+8+7+aB8qV1ZeI485nwsrJTo4UONjPtPw4XyGKOVcA/7 ++NDxLKDuCFUem4o6BosH+aDhEsNwsZXHNW8sDslP86F5zcl5T4rk0eNnFWO5 +igBmbcbbH3EVMPZuRkablwByqvZUz9oo4IXZhGVb/ASgMU8oQ89FAY3+KC0S +CxSA450FlodCFXBbulOFUZgAilfSCMdsBfwkLL3QJUYAZuhw7ME7BXQ9MK/1 +/GEBRLNPBd5LVcTehzrHnzULwL5McswhS5Gsh/aGc3cEwBBLyGg/qogz3Zcl +E9oE8OSFJ//5WUU0MUQpuXYB6G+XEOlpV0Tbgt/35LoF8LkqruqHshLK3hnk +uQ4JwF/W6ZsKoYS/uyKUGuQIMI5vTCm9roSerM4nEooELOhbJk+/q4Qcs48x +/soENNSKgFa3En7I3bPvO4UAeYeGnBV/lHCruP/DgaUEPEnRMLF2UMY/tod8 +JdgErPr+a09EvzJKcXyPunoTsNs2X+f2V2W0M/Y5quJLQM0pvVcyE8p4mdJy +tdePAEX3IHaDuArejPwcHhhIwNerd36K6Kugq4pRrn4YAXmpOTFFu1RwUdNB +b9loAtpea2t8TVHBpYuJxydjCJgxaXlukamCjxjy0UtjCQj7NG40cEIFf7QM +4vLdBHAc/Ub0W1TwVOfp+aJJBPTJaUW0LlJFttSn7jkHCVCIvKWmoKCK+ebs +AOdMAhzbvB9tpqnimGib4vEsAur3ZOouNlbFlo+rjDUPE3Dw3fCgj7cqZkWV +LpHIJ8DoXOPG7+WqePrhWTHNEwRsFPZQsLqgio/WC1mxSgko8Ru6m39ZFWXV +b92wPknAPEm6FqdNFVkbQxK8ThHwKip9YN83VQwL0F3uVElACtclWNlMDf0v +rZ7KuECAbUDpD5aVGm4MP3V1x0UCJJO/7PVwVEO/U2IUzxry/Ja0qpwgNfxe +rvBOqo6Aq/bXvsw7oIZjSlu9PAgCkraKJWrkqeHr9dYhKpcIsMl2l7Q6oYZe +04eob0l+8XRoRSJfDUsOXKt0qydg2Fs9drRbDXWeDUsuaiDgyp7tYlIDaqgu +cv5iHcn/lNwo1B9Sw4Ur8kScrxEg0evVuFmYgs6WO7pTGgl4PqfScb8EBbcU +n/GTvU5AsfqPtxXyFHzSkVNUTvLSjVlCvToUXJYuuUZwg4ChjO4jsyYUFG/7 +3mp8k4BL57XUVYCC4xlqs3UkWw01WXu6UbD2uBhReouAgJ3jBx/GU1DzvIjn +6tsEaB6zUh1MoyC/Tnek6vbf+Tl8USyHghqpip7CzQTsmdF+YlVBwZJ3i1Iv +kGxJiQsOqqHgq5Q0h2mSxbH1R+JVCjoplfRbtxBwdG+AXMNDCvbCkX3tJPtX +Vld1dFDwbMPnwxKtBDD+nWSN9VKwf/pJhA3J/322vif1hYL3Xx5gJJBctyDP +12Ccgo/C3S9cJDlOt/eL4x8KJjOjF70m2cJJL3HLfCoen6Ozeu4dAkS375HM +kKHio8EbvtokPzzy78lKNSqeCdppZ09yHiFr2LKUijX0QtmNJPu+DG7uNaSi +qnnkjSSS6T9r3H6bU7FDzNo6n+TPijMDKjZU9DUIvVhBci3HLpbtTMVrFao/ +60iO9S8Q8/KlYlhlg3oDydx/+gtjQqiofjXT5AbJImUrdHIjqDhT3a/zl+/f +Tmys3UVFuWMy4n/jc/rvOz5KJfN5GfHo73leooo9g1lU/C5un/D3e5SloZHi +x6g4IDct9zefD7YCIa1TVPTU6D7+N98LW/4cWVlNvn+Cu/jvfaKzHNWDL1Px +6/KkHX/vy6kpuvTPLSqmXZ1u+VuPVZ3ts0NtVNQ7Vn9CjGQnobmrA59RsbJt +5/B7sp7e2uycx6/J/CQ8b1wleYNrRDd8oGLE4p2iWSRHxJ9m1A1R8W7EyD0/ +kndVdIXTJqmYRAwuXEayTTw9KVmUhjl1HRL1ZL8fLL5+2mwBDXUUFrXHkexc +4dk2LElDxs3VUkyS/R5lSgUr0lCN6cc4S85Pb7AWU0mNhjZCST/8SA6baPJ9 +Sqdh0jTXToLk7dSJ05bLafgkaOnh9eR8jhM5bVMGNEwcr0wWJ3mP7fJvfBMa +npbcMHu+iYC0HUFMhgUNZ/6zOfGBnPfilvttwi409HM5d8yQ1APVO/TbNQ8a +RryZP/c6qZ+Kr3+kon1puGVIRXQlybVypn79G2gYeYZy34bUW+vGk99aYmnI +cndP0ST1ajfDlk6Ip+Ga78OX8kk9t+e8YJok07DM9L90IZK7G+YnVxygoemr +pwvar5D6XBgjnVZCw6iC8Ut4mexXmSSLd4qGPjdfz+aT/jFpcs5vvJKMN5sd ++kD6jUhAT0VoLVmfxJH2RAHp73W2LJtmGno8//dsWi0BJ1b1+/2+S8PFQdWe +t0j/YnQnJtc/oKHwnbf146S/6QkT97Re0vDZh9V53qT/Wbmr+Yt9JuNvLOid +OEvA1smR5LZFdDx8oWiwgPRPzo4w+Y/SdMR692X7y0g9D76qFlGko2hMX0k0 +6beVr1s6LBh0pCoZGVqS/txz86juZSYdy/75bVpbSMDaNHbXqUA6BhWF63dl +k/P7++K2WyF0jBXZVJl1iPSTWIbI2810dPAriuCR+yBj00J9xRg6pvTk/847 +QECTw9u92Rl09NSbspbbR+4D6RSDeD4db39qmt28iwChzPHWwno6xq3mhg+Q ++6ldZItvfSMdvcp5q/12EhA+7po2coeOwTairhZRZD+7NF5vfEXHezu5H7rD +yX17si3dXYSBrfmnizYFEDC1fEmPngcDR39PU0aQgIkTyinGvgwcPJciPw8I +GFusqcEOZGAStbBDgUf2b5S9ZdVmBrqHV1wxJPdzX+OGCd9EBmoxiwzAkNS3 +wxXJjEoGvhoczWymkfMWHgB94wxUtKm8ETcrgGNvN/V9+sVAH5EsR+1pAeSv +jU779oeBtbrZPZ2TAsg2zngwOV8d197xldEdE0DqNN9rMUUdewVbxuoGBRCe +Kbqda6OOJUcrzPTJ/2pu9YWyggJ15D3VEJlbI4DXtOqT1sfVsW//gZr91QLY +U3CudOykOlIzTMfFzwngSkpVies5ddT9VOI7t0IARt5lhZLX1fHJUXt+T5EA +tEXzc9Lfq6Pv+blfGWkCkA+MT47V1cDagqTcMR8BjEjbB3k2a2Dj891L5Wb5 +MJAV5BklpoUFIe3a6kp8sPseZ/eBuRR/lJ8WPahdB183iEdfSlqGISniRx/S +asj/fQXh/c3a+CPe8TTtTTVIP9LKrvuugwPrTCxM+OdANaPWmcnUxeR/TmTY +e5yBwuXsJTIb9TD30/Fdy7Qr4b6ypenoEX18OnhbVULhNHBUm3MMOgywy0ly +QHa4DCRFymOCU1egv+vd5kcypUBJoXJ9tAxxeJHninbzYpiv6V/v+q8hnijO +NAhrLgB9nlJt3DojHPYbpq14mAdRPdIt9kLGWBYiU3NxIAe+j2Z52BUaY30l +b6/F9yxYbXC32E7PBOvjw8okBRlwc9R8+me7CS5oLCyvrNwHEbpGr56GmmJI +km5ek28K8IZCXvjMZ+LDvoJEv8wEsNZQXLOonIk3HH02T5XGwbLkg7uaWSyc +vLt7VCcpGq6bV4o6cljYoiLvIIiIBueft3Jfcll456CFo3VANOyKGL/w2ZKF +q7ZxjbN50dDmH/Re0pGFD/x8v56fiYJNbKa9XxALXXfvf7ogMQrO/XivMpbB +Qo0DZo846TtAJ5R9S/MVC51KfII1oiLhMMPp1943LFRNDzNI8o6EsXfrTft6 +yHjX6NtfLCLhpm9WdWk/C9mMTRK/FkaCq/O7YwrfWPgs35gzWBUBu83Tts8X +MkP6xOt3S3q3QZvUU/o3TTPcTmtVZAVuhdCbm/Zd2mGG0wfrn3zN3gxD2wbj +rGPMMCvSYmtl3GbYpbY1vCPWDB/Eh1psD9oMBxMiXSfjzTCi2tKXa7QZ6jix +NG66GZ6desC52LEJZur3Xm8pNsONfcV/PjE2QW5t6dizFjPkJbzx3tkWBrfK +XoSMyLGRq30uusg6BHod6YGximz8z2tNZr9RCAhNbfOZVmZj8+u6U1xaCFi5 +iDmJ0tjoI+FRoTK9Ae7O4bCUdNjYlcoZz+RvgIfrT863tGCj9EhPlB59A7zS +2FKTE8bGoNmlEkYL18PY2T8/Da6wMUy+fT+IB8FHT5uyAw1sHBoWaV44Fghd +cw/Z9jeyMfPz6fyazkBoDFIuKmhi467x4PXMk4GQqmjKmb3HxkTbcYU1BoGw +JGNLwv03bKwMqLl10C0AdDe+FAoV5uDxO4WdH6v9YYNm9fziNRxcr2Cqb1Lk +A3vuBGzRcuZgjZGe7ackH8gJlX4gcOUgXfPt7rowH7heuTvrgRcHzw05D+wz +8QFZLdvFs8EcfLv8rrzJU2+4q/VBNiiWg+Vb98mXSnqDzjIqTeskBx9rr3I2 +LvKEEZ08pmCYg/9eLa6SGXSDrodoLTPKwU7aRbvlnW7QFDHkFjPOQf2z6Z9d +W90gW2C3g/mLgzc7fnx5WuoGOhyhC9dEzPFzV8ODQ+5usN5uG71F3hz5eyak +R5td4cXG1RIvuOZI0z6mqFXtAlcrpt+PZ5ijvqOB1dk1a4G5MuanfaY5dt9Z +m9JssBYuv/8qUXbIHB3e3vOakFoLAkoPyz7XHAMT3yWd73CCC4VNh0qPm6Pq +mq0Cq2AnKMtKY6+uMUfOiHkUI34NHIhZfKTwuTkeftIkRrvtAL6r1NGcwsVm +35J0Tq4tzL4Ql2yhcfG925Mj6rtsoSx06LW9Ohf575MKNANs4WN6Q5zvMi5e +vniSHaNjC1H31tbuNuKiSMLPKnbrajjolEC5asPFD3fa7N1mbOCa98sZk0gu +Rlyf6TT9xxpUtu1v0G/iYv465ujeVivI/hNmmtnMRc3W0LURfCsQzrXhf2rl +4rOuylVbSq1gsF70XNk9Ln4WOn67YJcVXBPaVyj9nIvDDiZ7mvSswDc/OW7i +AxeXvTOstj9uCYWNu01vLuThlHOIzKtUBAknH76yJA/HRmktb3YgJPea6cUt +4WH6z41e34MQNolOaqyQ46F1jv/USkBgrY2VLafwMGnynwi3KYCOvqjRNEMe +7r0qc/nKmAXILdjKX+NFxgcfERYV5kHFysQ9wz48zHPf8cu5lwtGidkr8/x5 +KOaeWt50kwtOw3Uvu4J5GO39MXFBAhfSO8anNmzloeQDSvOqSXOYLE+y2pPC +wz7FzZ3Mnxx4ZZ73vKqah3GC5cqGkmzYtLOixK6Gh8qjq0IuDZvBRM3l0K91 +PGw4Tg3xem4G0oyun4b1PDz4EiRmCs3AQVxN9UYTD299ir98XdMMrr+oCnn+ +koeF8VUxc6xZYC95VS+2i4etIh2MKG0WdK2+N6H4modvGnVrhCRZMHbtS0ZA +Lw87J4P+i+1kgt6pFRf/G+RhuUfks9ZwJlx/ZRmb9Y2HzIu37OguTLCXdQOD +YR7uuy64VsxkQtj+nU9jxnmY5hKtNDCHCWNN6cUKkzzsn4h6THwyhdRfxzZc ++8XD+F27F5c9MoUlJud0183ycOZ0142zhCmUbrs2/ucPD216Jm8+KjKF/wGV +1c+7 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07723600895744247}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07723600895744247}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnk4VH0Ux0WikrLvs1mKLNlmzJhxDkW2ZN+zFFoUhajwWooUSUhIktCi +MHNLSYtQrzbtlhYJLa9KZIlQ7+2v+3ye59zfPb9zzvd7Ln19pGuosJCQkNkc +IaG/z4mee60amRUWCU25X3+4WFu8KFXcbdmVCrE1eWal2eqAco/XK3blwmXJ +hSPbs40h1vl8p0hXOdw/fmaJS/ZKkBpSyJ3qFIDuEjd91Ww3eHfdKXKssxnm +1ntMbju0AWw0Bt+OdD4Dpe6WOW0Ho2Gqk3V0uLMP7C75L+Ql74WWlWcqnpaP +QkbNl3np9HxQfdfwcb3uLIgua4jK23UCZLcGnhdbKYKqm4LN4qRPQ66hTaOT +hzgWLG+xLdp2BroLVzSNLFmEVYMdkuHK1ZBZkfRYWEkKue/i3aWLa8DeZLO0 +nLoUHg6oTbtRVQPira4eS/WksEB3iXEQUQP7+jVfO1hKYa3GrcnMhzWQwHj4 +MX+zFFqmxXxL+F0DEWWKv7WuSaH5ftPY5qBacCnh6zr4SeMl9SmXsMV1oJDf +fyDvhAy2L/pIsJrqQHH55X2TVTLY+PlVmfKdOlBuTk9aVyeDfeLUiql7dUAZ +1t65tEUGqbftv1Q/rwNNx+1BjZ9l0E0pYev7j3VgPHeW2W8si0qNhbcPS/Bh +bYz8gNF9WSRG/HDCnQ/OCz/3HHsuizuZF376+vDBtbyhe+aNLI4967zcuI4P +nk/8H9/9LosPLFnWO8L4sE739DVfOTncqFpVeSGOD+EDBkdSg+Tw35xKSkgR +H/a721k8m5DDAI/c+8+7+aB8qV1ZeI485nwsrJTo4UONjPtPw4XyGKOVcA/7 ++NDxLKDuCFUem4o6BosH+aDhEsNwsZXHNW8sDslP86F5zcl5T4rk0eNnFWO5 +igBmbcbbH3EVMPZuRkablwByqvZUz9oo4IXZhGVb/ASgMU8oQ89FAY3+KC0S +CxSA450FlodCFXBbulOFUZgAilfSCMdsBfwkLL3QJUYAZuhw7ME7BXQ9MK/1 +/GEBRLNPBd5LVcTehzrHnzULwL5McswhS5Gsh/aGc3cEwBBLyGg/qogz3Zcl +E9oE8OSFJ//5WUU0MUQpuXYB6G+XEOlpV0Tbgt/35LoF8LkqruqHshLK3hnk +uQ4JwF/W6ZsKoYS/uyKUGuQIMI5vTCm9roSerM4nEooELOhbJk+/q4Qcs48x +/soENNSKgFa3En7I3bPvO4UAeYeGnBV/lHCruP/DgaUEPEnRMLF2UMY/tod8 +JdgErPr+a09EvzJKcXyPunoTsNs2X+f2V2W0M/Y5quJLQM0pvVcyE8p4mdJy +tdePAEX3IHaDuArejPwcHhhIwNerd36K6Kugq4pRrn4YAXmpOTFFu1RwUdNB +b9loAtpea2t8TVHBpYuJxydjCJgxaXlukamCjxjy0UtjCQj7NG40cEIFf7QM +4vLdBHAc/Ub0W1TwVOfp+aJJBPTJaUW0LlJFttSn7jkHCVCIvKWmoKCK+ebs +AOdMAhzbvB9tpqnimGib4vEsAur3ZOouNlbFlo+rjDUPE3Dw3fCgj7cqZkWV +LpHIJ8DoXOPG7+WqePrhWTHNEwRsFPZQsLqgio/WC1mxSgko8Ru6m39ZFWXV +b92wPknAPEm6FqdNFVkbQxK8ThHwKip9YN83VQwL0F3uVElACtclWNlMDf0v +rZ7KuECAbUDpD5aVGm4MP3V1x0UCJJO/7PVwVEO/U2IUzxry/Ja0qpwgNfxe +rvBOqo6Aq/bXvsw7oIZjSlu9PAgCkraKJWrkqeHr9dYhKpcIsMl2l7Q6oYZe +04eob0l+8XRoRSJfDUsOXKt0qydg2Fs9drRbDXWeDUsuaiDgyp7tYlIDaqgu +cv5iHcn/lNwo1B9Sw4Ur8kScrxEg0evVuFmYgs6WO7pTGgl4PqfScb8EBbcU +n/GTvU5AsfqPtxXyFHzSkVNUTvLSjVlCvToUXJYuuUZwg4ChjO4jsyYUFG/7 +3mp8k4BL57XUVYCC4xlqs3UkWw01WXu6UbD2uBhReouAgJ3jBx/GU1DzvIjn +6tsEaB6zUh1MoyC/Tnek6vbf+Tl8USyHghqpip7CzQTsmdF+YlVBwZJ3i1Iv +kGxJiQsOqqHgq5Q0h2mSxbH1R+JVCjoplfRbtxBwdG+AXMNDCvbCkX3tJPtX +Vld1dFDwbMPnwxKtBDD+nWSN9VKwf/pJhA3J/322vif1hYL3Xx5gJJBctyDP +12Ccgo/C3S9cJDlOt/eL4x8KJjOjF70m2cJJL3HLfCoen6Ozeu4dAkS375HM +kKHio8EbvtokPzzy78lKNSqeCdppZ09yHiFr2LKUijX0QtmNJPu+DG7uNaSi +qnnkjSSS6T9r3H6bU7FDzNo6n+TPijMDKjZU9DUIvVhBci3HLpbtTMVrFao/ +60iO9S8Q8/KlYlhlg3oDydx/+gtjQqiofjXT5AbJImUrdHIjqDhT3a/zl+/f +Tmys3UVFuWMy4n/jc/rvOz5KJfN5GfHo73leooo9g1lU/C5un/D3e5SloZHi +x6g4IDct9zefD7YCIa1TVPTU6D7+N98LW/4cWVlNvn+Cu/jvfaKzHNWDL1Px +6/KkHX/vy6kpuvTPLSqmXZ1u+VuPVZ3ts0NtVNQ7Vn9CjGQnobmrA59RsbJt +5/B7sp7e2uycx6/J/CQ8b1wleYNrRDd8oGLE4p2iWSRHxJ9m1A1R8W7EyD0/ +kndVdIXTJqmYRAwuXEayTTw9KVmUhjl1HRL1ZL8fLL5+2mwBDXUUFrXHkexc +4dk2LElDxs3VUkyS/R5lSgUr0lCN6cc4S85Pb7AWU0mNhjZCST/8SA6baPJ9 +Sqdh0jTXToLk7dSJ05bLafgkaOnh9eR8jhM5bVMGNEwcr0wWJ3mP7fJvfBMa +npbcMHu+iYC0HUFMhgUNZ/6zOfGBnPfilvttwi409HM5d8yQ1APVO/TbNQ8a +RryZP/c6qZ+Kr3+kon1puGVIRXQlybVypn79G2gYeYZy34bUW+vGk99aYmnI +cndP0ST1ajfDlk6Ip+Ga78OX8kk9t+e8YJok07DM9L90IZK7G+YnVxygoemr +pwvar5D6XBgjnVZCw6iC8Ut4mexXmSSLd4qGPjdfz+aT/jFpcs5vvJKMN5sd ++kD6jUhAT0VoLVmfxJH2RAHp73W2LJtmGno8//dsWi0BJ1b1+/2+S8PFQdWe +t0j/YnQnJtc/oKHwnbf146S/6QkT97Re0vDZh9V53qT/Wbmr+Yt9JuNvLOid +OEvA1smR5LZFdDx8oWiwgPRPzo4w+Y/SdMR692X7y0g9D76qFlGko2hMX0k0 +6beVr1s6LBh0pCoZGVqS/txz86juZSYdy/75bVpbSMDaNHbXqUA6BhWF63dl +k/P7++K2WyF0jBXZVJl1iPSTWIbI2810dPAriuCR+yBj00J9xRg6pvTk/847 +QECTw9u92Rl09NSbspbbR+4D6RSDeD4db39qmt28iwChzPHWwno6xq3mhg+Q ++6ldZItvfSMdvcp5q/12EhA+7po2coeOwTairhZRZD+7NF5vfEXHezu5H7rD +yX17si3dXYSBrfmnizYFEDC1fEmPngcDR39PU0aQgIkTyinGvgwcPJciPw8I +GFusqcEOZGAStbBDgUf2b5S9ZdVmBrqHV1wxJPdzX+OGCd9EBmoxiwzAkNS3 +wxXJjEoGvhoczWymkfMWHgB94wxUtKm8ETcrgGNvN/V9+sVAH5EsR+1pAeSv +jU779oeBtbrZPZ2TAsg2zngwOV8d197xldEdE0DqNN9rMUUdewVbxuoGBRCe +Kbqda6OOJUcrzPTJ/2pu9YWyggJ15D3VEJlbI4DXtOqT1sfVsW//gZr91QLY +U3CudOykOlIzTMfFzwngSkpVies5ddT9VOI7t0IARt5lhZLX1fHJUXt+T5EA +tEXzc9Lfq6Pv+blfGWkCkA+MT47V1cDagqTcMR8BjEjbB3k2a2Dj891L5Wb5 +MJAV5BklpoUFIe3a6kp8sPseZ/eBuRR/lJ8WPahdB183iEdfSlqGISniRx/S +asj/fQXh/c3a+CPe8TTtTTVIP9LKrvuugwPrTCxM+OdANaPWmcnUxeR/TmTY +e5yBwuXsJTIb9TD30/Fdy7Qr4b6ypenoEX18OnhbVULhNHBUm3MMOgywy0ly +QHa4DCRFymOCU1egv+vd5kcypUBJoXJ9tAxxeJHninbzYpiv6V/v+q8hnijO +NAhrLgB9nlJt3DojHPYbpq14mAdRPdIt9kLGWBYiU3NxIAe+j2Z52BUaY30l +b6/F9yxYbXC32E7PBOvjw8okBRlwc9R8+me7CS5oLCyvrNwHEbpGr56GmmJI +km5ek28K8IZCXvjMZ+LDvoJEv8wEsNZQXLOonIk3HH02T5XGwbLkg7uaWSyc +vLt7VCcpGq6bV4o6cljYoiLvIIiIBueft3Jfcll456CFo3VANOyKGL/w2ZKF +q7ZxjbN50dDmH/Re0pGFD/x8v56fiYJNbKa9XxALXXfvf7ogMQrO/XivMpbB +Qo0DZo846TtAJ5R9S/MVC51KfII1oiLhMMPp1943LFRNDzNI8o6EsXfrTft6 +yHjX6NtfLCLhpm9WdWk/C9mMTRK/FkaCq/O7YwrfWPgs35gzWBUBu83Tts8X +MkP6xOt3S3q3QZvUU/o3TTPcTmtVZAVuhdCbm/Zd2mGG0wfrn3zN3gxD2wbj +rGPMMCvSYmtl3GbYpbY1vCPWDB/Eh1psD9oMBxMiXSfjzTCi2tKXa7QZ6jix +NG66GZ6desC52LEJZur3Xm8pNsONfcV/PjE2QW5t6dizFjPkJbzx3tkWBrfK +XoSMyLGRq30uusg6BHod6YGximz8z2tNZr9RCAhNbfOZVmZj8+u6U1xaCFi5 +iDmJ0tjoI+FRoTK9Ae7O4bCUdNjYlcoZz+RvgIfrT863tGCj9EhPlB59A7zS +2FKTE8bGoNmlEkYL18PY2T8/Da6wMUy+fT+IB8FHT5uyAw1sHBoWaV44Fghd +cw/Z9jeyMfPz6fyazkBoDFIuKmhi467x4PXMk4GQqmjKmb3HxkTbcYU1BoGw +JGNLwv03bKwMqLl10C0AdDe+FAoV5uDxO4WdH6v9YYNm9fziNRxcr2Cqb1Lk +A3vuBGzRcuZgjZGe7ackH8gJlX4gcOUgXfPt7rowH7heuTvrgRcHzw05D+wz +8QFZLdvFs8EcfLv8rrzJU2+4q/VBNiiWg+Vb98mXSnqDzjIqTeskBx9rr3I2 +LvKEEZ08pmCYg/9eLa6SGXSDrodoLTPKwU7aRbvlnW7QFDHkFjPOQf2z6Z9d +W90gW2C3g/mLgzc7fnx5WuoGOhyhC9dEzPFzV8ODQ+5usN5uG71F3hz5eyak +R5td4cXG1RIvuOZI0z6mqFXtAlcrpt+PZ5ijvqOB1dk1a4G5MuanfaY5dt9Z +m9JssBYuv/8qUXbIHB3e3vOakFoLAkoPyz7XHAMT3yWd73CCC4VNh0qPm6Pq +mq0Cq2AnKMtKY6+uMUfOiHkUI34NHIhZfKTwuTkeftIkRrvtAL6r1NGcwsVm +35J0Tq4tzL4Ql2yhcfG925Mj6rtsoSx06LW9Ohf575MKNANs4WN6Q5zvMi5e +vniSHaNjC1H31tbuNuKiSMLPKnbrajjolEC5asPFD3fa7N1mbOCa98sZk0gu +Rlyf6TT9xxpUtu1v0G/iYv465ujeVivI/hNmmtnMRc3W0LURfCsQzrXhf2rl +4rOuylVbSq1gsF70XNk9Ln4WOn67YJcVXBPaVyj9nIvDDiZ7mvSswDc/OW7i +AxeXvTOstj9uCYWNu01vLuThlHOIzKtUBAknH76yJA/HRmktb3YgJPea6cUt +4WH6z41e34MQNolOaqyQ46F1jv/USkBgrY2VLafwMGnynwi3KYCOvqjRNEMe +7r0qc/nKmAXILdjKX+NFxgcfERYV5kHFysQ9wz48zHPf8cu5lwtGidkr8/x5 +KOaeWt50kwtOw3Uvu4J5GO39MXFBAhfSO8anNmzloeQDSvOqSXOYLE+y2pPC +wz7FzZ3Mnxx4ZZ73vKqah3GC5cqGkmzYtLOixK6Gh8qjq0IuDZvBRM3l0K91 +PGw4Tg3xem4G0oyun4b1PDz4EiRmCs3AQVxN9UYTD299ir98XdMMrr+oCnn+ +koeF8VUxc6xZYC95VS+2i4etIh2MKG0WdK2+N6H4modvGnVrhCRZMHbtS0ZA +Lw87J4P+i+1kgt6pFRf/G+RhuUfks9ZwJlx/ZRmb9Y2HzIu37OguTLCXdQOD +YR7uuy64VsxkQtj+nU9jxnmY5hKtNDCHCWNN6cUKkzzsn4h6THwyhdRfxzZc ++8XD+F27F5c9MoUlJud0183ycOZ0142zhCmUbrs2/ucPD216Jm8+KjKF/wGV +1c+7 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07723600895744247}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07723600895744247}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994258834726301*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"0a8daee0-91e1-40fa-995c-d7e073e70f19"] }, Open ]], Cell[CellGroupData[{ @@ -7507,18 +8602,75 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], - RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ -UUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[100]:=",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"d7dfab56-fefd-0149-8a26-6ee16f94ab37"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.233482651511684`*^-153\\\", \ +RowBox[{\\\"192330073695578600598678251250730514595\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"82\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1532417980825600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 17, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99425883489044*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"086b5671-a86c-407c-b1e2-f5e1d8ff12f0"], -Cell[BoxData["15.784298544249623`"], "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.908500667331563`*^-155\\\", \ +RowBox[{\\\"692388265304082962155241704502629852543\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"85\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6704730972160000000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 18, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942588349042587`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"81dfd9f7-3069-4068-9d2a-7ac35a5fadef"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.035437247428554`*^-158\\\", \ +RowBox[{\\\"257637673519649270217965438245428568131\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"89\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8303947407360000000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 19, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258834917951*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"af574dec-0048-4599-a813-593aaf705d8f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 100, 20, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258834928134*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"c4f623bc-14ad-4cba-90ff-38eba394a816"], + +Cell[BoxData["9.8392933619724`"], "Output", + CellChangeTimes->{3.994258931372735*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"55d0d1e9-3424-4fc3-8a0a-b412f6971b19"] }, Open ]], Cell[CellGroupData[{ @@ -7585,27 +8737,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850595832054*^9, - 3.991850600247154*^9}},ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-\ -8e83e9537fdc"], + CellChangeTimes->{{3.991850595832054*^9, 3.991850600247154*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"56921c73-2b67-0e4a-9808-5f61de992c7e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.969986274159726`*^-204\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 21, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258931444275*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"6b6e94fe-0a56-48f7-a401-85c4e7fa29f8"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"8ae663ad-3729-254b-9ec7-7f5d00ef81af"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.444311948028068`*^-208\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 22, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258931459049*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"6d831c2c-2537-4b0a-9a85-214fc90695fd"], -Cell[BoxData["0.009432406283458074`"], "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.496450676011577`*^-213\\\", \ +RowBox[{\\\"668859810497440244092067196564426051030\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3165635789279094374400000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 23, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258931469574*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"65a48c91-ee41-48a2-ab7a-dda7fccbde13"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 101, 24, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942589314809093`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"2e30d912-2e23-4435-b0ab-d609cb43b255"], + +Cell[BoxData["0.6368620250089081`"], "Output", + CellChangeTimes->{3.994258943371332*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"1404c29d-edd8-4378-9d48-784894831402"] }, Open ]], Cell[CellGroupData[{ @@ -7626,8 +8826,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -7672,27 +8871,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850617546938*^9, - 3.991850621692934*^9}},ExpressionUUID->"ccaee6a3-c390-0444-bf16-\ -3471356a3614"], + CellChangeTimes->{{3.991850617546938*^9, 3.991850621692934*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"1795c3b9-0182-224c-b986-6414d6712c04"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.969986274159726`*^-204\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 25, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258943427517*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"9eff8d49-a9ee-451a-a008-4501f497ce73"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"c3b31753-a67f-9b45-b822-068e1df11f68"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.444311948028068`*^-208\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 26, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258943437046*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"7c25fcef-d7df-46b0-8bc9-bc9593919421"], -Cell[BoxData["5.210321944589433`"], "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.496450676011577`*^-213\\\", \ +RowBox[{\\\"668859810497440244092067196564426051030\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3165635789279094374400000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 27, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258943446484*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"82d91ed7-651d-499f-9d50-31d11899b1f3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 102, 28, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942589434555473`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"a2f7d384-2585-4a9d-9f3c-833e5d4c3acc"], + +Cell[BoxData["27.8551472993666`"], "Output", + CellChangeTimes->{3.99425895461827*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"6a1c6612-0351-4de7-8ede-fb73cdf22d16"] }, Open ]], Cell[CellGroupData[{ @@ -7713,8 +8960,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -7759,27 +9005,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918506254460773`*^9, - 3.991850628958872*^9}},ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-\ -286954db37c5"], + CellChangeTimes->{{3.9918506254460773`*^9, 3.991850628958872*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"32db1bf6-ba11-cb4a-955a-52e174a44e5f"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.969986274159726`*^-204\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 29, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258954694303*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"f0c9b778-2fda-444d-8094-c9c7ea0f4eb1"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"4e2b22f2-1724-7649-93fc-33cd27bb415e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.444311948028068`*^-208\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 30, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258954708054*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"8145c039-a785-472e-acea-a14843b17b3d"], -Cell[BoxData["20.308521034293705`"], "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.496450676011577`*^-213\\\", \ +RowBox[{\\\"668859810497440244092067196564426051030\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3165635789279094374400000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 31, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258954719038*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"d15b924d-a6ac-4114-b4f2-5703189a61fd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 103, 32, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942589547335978`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"88f39e14-2835-4e4d-a1c9-02c6b976d33d"], + +Cell[BoxData["4.035155854405858`"], "Output", + CellChangeTimes->{3.994258964075983*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"703caf44-01b8-4053-96cf-56ba4b99cd01"] }, Open ]], Cell[CellGroupData[{ @@ -7788,19 +9082,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918506775260105`*^9, - 3.9918506840946693`*^9}},ExpressionUUID->"7ec678fd-8398-414a-aeba-\ -20e078d734cd"], + CellChangeTimes->{{3.9918506775260105`*^9, 3.9918506840946693`*^9}}, + CellLabel-> + "In[104]:=",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], -Cell[BoxData["0.0009169614351270098`"], "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] +Cell[BoxData["0.060070668759283574`"], "Output", + CellChangeTimes->{3.994258964126*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"49617267-6782-45c9-8776-6e76120536b1"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918506873951664`*^9, 3.991850690050791*^9}, - 3.9919245116307106`*^9},ExpressionUUID->"ca329276-48d7-8943-8408-\ -dd2997d3499c"], + 3.9919245116307106`*^9}, + CellLabel-> + "In[105]:=",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], Cell[CellGroupData[{ @@ -7821,10 +9119,14 @@ Cell[BoxData[ RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Il", "*", "Ih"}], - RowBox[{"Il", "+", "Ih"}]]}]}]], "Input",ExpressionUUID->"681c316f-cd82-\ -ae4b-824f-5eb2b3081f6d"], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[106]:=",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], -Cell[BoxData["5.744985073726742`"], "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +Cell[BoxData["4.734107990651044`"], "Output", + CellChangeTimes->{3.994258964149624*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"62a1c208-e241-4e87-8890-f22176338355"] }, Open ]], Cell[CellGroupData[{ @@ -7832,10 +9134,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ - FractionBox["Kb", "Qb2"]]}]], "Input",ExpressionUUID->"11e77a67-96b2-a645-\ -89cd-559587f30b91"], + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[107]:=",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], -Cell[BoxData["1.564995573098341`"], "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +Cell[BoxData["2.9849419127603767`"], "Output", + CellChangeTimes->{3.9942589641663313`*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"1613537c-52df-4255-b9ea-ae41267f9cfe"] }, Open ]], Cell[CellGroupData[{ @@ -7843,10 +9149,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ - RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"3c5f43e9-\ -afc4-be40-8f37-0116656ecd38"], + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], -Cell[BoxData["8.990876207898397`"], "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +Cell[BoxData["14.13103736082811`"], "Output", + CellChangeTimes->{3.9942589641817408`*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"dcc8d8f6-b304-4d4e-a388-d98f9e27ea2e"] }, Open ]], Cell[CellGroupData[{ @@ -8034,10 +9344,14 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"f07a8476-d7bc-1049-\ -82a6-7cf06f61e28f"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[109]:=",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], -Cell[BoxData["0.06921475857237179`"], "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +Cell[BoxData["0.007972194413452916`"], "Output", + CellChangeTimes->{3.99425896420056*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"76505ed6-eaee-4243-9b65-2118050271d7"] }, Open ]], Cell[CellGroupData[{ @@ -8049,18 +9363,14 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"b88b1a94-\ -22d7-2843-88e3-f607b95c8af9"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[110]:=",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"def6b331-c871-b04d-a16e-4fc00b03d009"], - -Cell[BoxData["3.36857007702114`"], "Output",ExpressionUUID->"332f8da7-4eec-ed47-b124-edf7e2bf43d7"] +Cell[BoxData["9.925582423411555`"], "Output", + CellChangeTimes->{3.9942589644153957`*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"2ff6b63c-c7cb-45bf-a0f8-5e24f9543b72"] }, Open ]], Cell[CellGroupData[{ @@ -8250,10 +9560,14 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"9d771aab-c0b4-f24c-\ -9b53-9472e00c4d82"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[111]:=",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], -Cell[BoxData["0.01179213875658184`"], "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +Cell[BoxData["0.06925321268530804`"], "Output", + CellChangeTimes->{3.994258964436058*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"f1f20e0e-7157-4d35-9968-1acff28336cd"] }, Open ]], Cell[CellGroupData[{ @@ -8265,18 +9579,14 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"47e2a8e8-\ -6af3-374f-9eea-9c2b6faaaf4a"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[112]:=",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"c6c8676e-4601-144e-b83c-769e22949175"], - -Cell[BoxData["8.161099076568318`"], "Output",ExpressionUUID->"bd9f2dfb-0880-624c-8a61-fa3104084faf"] +Cell[BoxData["3.3676347170871597`"], "Output", + CellChangeTimes->{3.994258964635137*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"c621541f-e345-4925-9f89-54c66fc96bbc"] }, Open ]], Cell[CellGroupData[{ @@ -8367,10 +9677,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-\ -6b0985b9b3bc"], + ")"}]}]}]], "Input", + CellLabel-> + "In[113]:=",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], -Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +Cell[BoxData["0.050030956271665136`"], "Output", + CellChangeTimes->{3.994258964650653*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"5f305033-d127-4928-9262-c658f7d28f16"] }, Open ]], Cell[CellGroupData[{ @@ -8458,10 +9772,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-\ -4868d83e9702"], + ")"}]}]}]], "Input", + CellLabel-> + "In[114]:=",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], -Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +Cell[BoxData["0.9499690437283349`"], "Output", + CellChangeTimes->{3.994258964665659*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"ed86eedb-95f3-45d0-aa4b-e0a0b9ce59cc"] }, Open ]], Cell[CellGroupData[{ @@ -8582,10 +9900,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", - "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"5caf1614-7e5c-\ -9940-98cd-9460e2c074b2"], + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[115]:=",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], -Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +Cell[BoxData["0.047527859686207874`"], "Output", + CellChangeTimes->{3.994258964681156*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"ca590624-c339-4bf7-b4b4-c05e469429f9"] }, Open ]], Cell[CellGroupData[{ @@ -8647,27 +9969,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991850710120125*^9},ExpressionUUID->"db0784f6-51d0-fd44-b0e8-\ -05d6af1a6e52"], + CellChangeTimes->{3.991850710120125*^9}, + CellLabel-> + "In[116]:=",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"7fd60dea-f794-4744-8801-bfb1a50a0e07"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.194767155489202`*^-205\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 116, + 33, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258964705154*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"81f30a99-c3e7-494d-bd06-e228e89ab2b2"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"0b8c0718-41d2-4542-8afe-212a15805650"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.19138979320872`*^-210\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 116, + 34, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258964714765*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"a9901ff1-3a36-4d47-b42f-300bfb0c8693"], -Cell[BoxData["3.3685700770211437`"], "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6187748477696943`*^-214\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 116, + 35, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258964724535*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"08af7283-2a0d-40f7-87f1-234c69d1669d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 116, 36, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258964733882*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"98047d08-6613-4884-ab6b-23b51400307d"], + +Cell[BoxData["9.925582423411543`"], "Output", + CellChangeTimes->{3.994258972919963*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"d023a61c-214c-458f-8945-247629998d66"] }, Open ]], Cell[CellGroupData[{ @@ -8729,27 +10099,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918507152152424`*^9},ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-\ -f69c33a31448"], + CellChangeTimes->{3.9918507152152424`*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"b6f0ccc2-ff83-124b-a341-e143319c7670"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.194767155489202`*^-205\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 37, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942589729731407`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"6453a63b-ed9c-4924-a1b4-03aacbe7c80e"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"d4b50e17-5ee4-384c-b81f-c2a36a80320e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.19138979320872`*^-210\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 38, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258972984379*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"f818e115-0173-44b3-9ed7-792b3e34cb6e"], -Cell[BoxData["8.161099076568323`"], "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6187748477696943`*^-214\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 39, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258972995377*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"f66a6465-741b-471c-bc68-0ee28f953b09"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 117, 40, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994258973004506*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"7e80e7c9-e5aa-490f-aec4-b229b771fec5"], + +Cell[BoxData["3.3676347170871583`"], "Output", + CellChangeTimes->{3.994258980881895*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"22a2ce7f-ec15-491e-925b-168a5cab01e1"] }, Open ]], Cell[CellGroupData[{ @@ -8807,489 +10225,392 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918507183992805`*^9},ExpressionUUID->"611f92ea-b199-2643-9788-\ -194fae57c34e"], + CellChangeTimes->{3.9918507183992805`*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"7797a546-4085-124a-83da-5f3c472cdc4c"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"bf75ebeb-fc95-1d45-8487-ceed40ec633c"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"ca7472ca-7b27-a54a-84a1-e603fa592207"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"86b3b7d9-f0e9-0a4b-9079-b341ca597ab4"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.00529101 -0.551091 0.817918 [ -[.15608 .25433 -6 -9 ] -[.15608 .25433 6 0 ] -[.28836 .25433 -6 -9 ] -[.28836 .25433 6 0 ] -[.42063 .25433 -6 -9 ] -[.42063 .25433 6 0 ] -[.55291 .25433 -9 -9 ] -[.55291 .25433 9 0 ] -[.68519 .25433 -9 -9 ] -[.68519 .25433 9 0 ] -[.81746 .25433 -9 -9 ] -[.81746 .25433 9 0 ] -[.94974 .25433 -9 -9 ] -[.94974 .25433 9 0 ] -[.01131 .02145 -18 -4.5 ] -[.01131 .02145 0 4.5 ] -[.01131 .10324 -18 -4.5 ] -[.01131 .10324 0 4.5 ] -[.01131 .18504 -18 -4.5 ] -[.01131 .18504 0 4.5 ] -[.01131 .34862 -18 -4.5 ] -[.01131 .34862 0 4.5 ] -[.01131 .43041 -18 -4.5 ] -[.01131 .43041 0 4.5 ] -[.01131 .5122 -18 -4.5 ] -[.01131 .5122 0 4.5 ] -[.01131 .59399 -18 -4.5 ] -[.01131 .59399 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.15608 .26683 m -.15608 .27308 L -s -[(25)] .15608 .25433 0 1 Mshowa -.28836 .26683 m -.28836 .27308 L -s -[(50)] .28836 .25433 0 1 Mshowa -.42063 .26683 m -.42063 .27308 L -s -[(75)] .42063 .25433 0 1 Mshowa -.55291 .26683 m -.55291 .27308 L -s -[(100)] .55291 .25433 0 1 Mshowa -.68519 .26683 m -.68519 .27308 L -s -[(125)] .68519 .25433 0 1 Mshowa -.81746 .26683 m -.81746 .27308 L -s -[(150)] .81746 .25433 0 1 Mshowa -.94974 .26683 m -.94974 .27308 L -s -[(175)] .94974 .25433 0 1 Mshowa -.125 Mabswid -.05026 .26683 m -.05026 .27058 L -s -.07672 .26683 m -.07672 .27058 L -s -.10317 .26683 m -.10317 .27058 L -s -.12963 .26683 m -.12963 .27058 L -s -.18254 .26683 m -.18254 .27058 L -s -.20899 .26683 m -.20899 .27058 L -s -.23545 .26683 m -.23545 .27058 L -s -.2619 .26683 m -.2619 .27058 L -s -.31481 .26683 m -.31481 .27058 L -s -.34127 .26683 m -.34127 .27058 L -s -.36772 .26683 m -.36772 .27058 L -s -.39418 .26683 m -.39418 .27058 L -s -.44709 .26683 m -.44709 .27058 L -s -.47354 .26683 m -.47354 .27058 L -s -.5 .26683 m -.5 .27058 L -s -.52646 .26683 m -.52646 .27058 L -s -.57937 .26683 m -.57937 .27058 L -s -.60582 .26683 m -.60582 .27058 L -s -.63228 .26683 m -.63228 .27058 L -s -.65873 .26683 m -.65873 .27058 L -s -.71164 .26683 m -.71164 .27058 L -s -.7381 .26683 m -.7381 .27058 L -s -.76455 .26683 m -.76455 .27058 L -s -.79101 .26683 m -.79101 .27058 L -s -.84392 .26683 m -.84392 .27058 L -s -.87037 .26683 m -.87037 .27058 L -s -.89683 .26683 m -.89683 .27058 L -s -.92328 .26683 m -.92328 .27058 L -s -.97619 .26683 m -.97619 .27058 L -s -.25 Mabswid -0 .26683 m -1 .26683 L -s -.02381 .02145 m -.03006 .02145 L -s -[(0.7)] .01131 .02145 1 0 Mshowa -.02381 .10324 m -.03006 .10324 L -s -[(0.8)] .01131 .10324 1 0 Mshowa -.02381 .18504 m -.03006 .18504 L -s -[(0.9)] .01131 .18504 1 0 Mshowa -.02381 .34862 m -.03006 .34862 L -s -[(1.1)] .01131 .34862 1 0 Mshowa -.02381 .43041 m -.03006 .43041 L -s -[(1.2)] .01131 .43041 1 0 Mshowa -.02381 .5122 m -.03006 .5122 L -s -[(1.3)] .01131 .5122 1 0 Mshowa -.02381 .59399 m -.03006 .59399 L -s -[(1.4)] .01131 .59399 1 0 Mshowa -.125 Mabswid -.02381 .03781 m -.02756 .03781 L -s -.02381 .05417 m -.02756 .05417 L -s -.02381 .07053 m -.02756 .07053 L -s -.02381 .08689 m -.02756 .08689 L -s -.02381 .1196 m -.02756 .1196 L -s -.02381 .13596 m -.02756 .13596 L -s -.02381 .15232 m -.02756 .15232 L -s -.02381 .16868 m -.02756 .16868 L -s -.02381 .20139 m -.02756 .20139 L -s -.02381 .21775 m -.02756 .21775 L -s -.02381 .23411 m -.02756 .23411 L -s -.02381 .25047 m -.02756 .25047 L -s -.02381 .28319 m -.02756 .28319 L -s -.02381 .29954 m -.02756 .29954 L -s -.02381 .3159 m -.02756 .3159 L -s -.02381 .33226 m -.02756 .33226 L -s -.02381 .36498 m -.02756 .36498 L -s -.02381 .38134 m -.02756 .38134 L -s -.02381 .39769 m -.02756 .39769 L -s -.02381 .41405 m -.02756 .41405 L -s -.02381 .44677 m -.02756 .44677 L -s -.02381 .46313 m -.02756 .46313 L -s -.02381 .47949 m -.02756 .47949 L -s -.02381 .49584 m -.02756 .49584 L -s -.02381 .52856 m -.02756 .52856 L -s -.02381 .54492 m -.02756 .54492 L -s -.02381 .56128 m -.02756 .56128 L -s -.02381 .57764 m -.02756 .57764 L -s -.02381 .00509 m -.02756 .00509 L -s -.02381 .61035 m -.02756 .61035 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .60332 m -.02499 .60331 L -.02605 .6033 L -.02729 .60328 L -.02846 .60326 L -.03053 .60319 L -.03279 .60309 L -.03527 .60295 L -.0379 .60276 L -.04262 .60232 L -.04749 .60174 L -.05205 .60108 L -.06244 .59913 L -.07305 .59653 L -.08274 .59362 L -.10458 .58527 L -.14429 .56405 L -.18248 .53718 L -.22313 .50297 L -.26226 .46595 L -.30384 .4238 L -.34391 .38185 L -.38246 .3414 L -.42346 .29931 L -.46295 .26047 L -.50092 .22522 L -.54134 .19038 L -.58025 .1597 L -.62161 .13033 L -.66146 .10526 L -.69979 .08415 L -.74057 .06487 L -.77984 .04937 L -.81759 .03723 L -.85779 .02721 L -.87627 .0236 L -.89648 .02036 L -.91652 .01788 L -.92745 .01682 L -.93762 .01604 L -.9426 .01572 L -.94801 .01542 L -.95278 .0152 L -.95783 .01501 L -.96238 .01488 L -.96496 .01483 L -.96738 .01478 L -.9696 .01475 L -.97163 .01473 L -.97275 .01473 L -Mistroke -.97397 .01472 L -.97512 .01472 L -.97619 .01472 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJztXAmQHFUZ7uzM7JnsJhCSEI5sYpLdHCQhESODQSHRcFSioIgiIEvIkmAC -MQTQgMilIiIZLxQNXmhUrOIsxyqPKkBULMqrBAGnKEGMIIgRBBFBxnlH//O6 -5/vem55dKE05yfROf/393//3/16/9/r1sWpoy7q1G4e2rF8z1L9y89CmdevX -nN3/prM216DcmCgac1Pt290fqd/VKIoX1dr/6s1qoZDWf/frP7nIiFbNVy2v -yrC9zcRV+7VtFFU929v0n0JUrZSj4WJkPsXhqFzRqLYtD1u4VI7aLVatlKJi -sRRVamudzMf5atGl4G7jzVKr1UpUsk70unZeW69W88Bnh8VKxWJUsiYdzOdG -tehV8J7WZ85sVIrDZbuWiyqlYk28otfGAYw6OF0t2hU8PeEgNo4dxA5dB27W -tIOclPe71aJTrQ40LdsLEtPO4j5eHCzM7MBNDHVwjCRmaUPmXQeuWC9IDHWw -WjK2zDrI16vTsDZuk+qja5Ne6xasnqU2gBWY36PF7xtSB021rHMfHzRKaWyq -Akc6D2Y5XK6Kcp55W6kWeQUvDxzCKySulbAJOVy2HxVQWiY+VwWYBwvzmADz -IGEeF2AuljjfGWAukh08Ee7xAlE6OaA0TwyHAsw5wlwTYM4W72sDzJmiuS7A -nCHMMwLMeio2wNxMk9UzA0r7CnNTgDlVmJsDzCnC3BJgThLmuQHmRGG+L8Dc -Q5hbYW4myOoFAaVeYV4YYI4V5kWGmbWrLVh+RbWfUfwx7RXtnbrF6yXGa2td -rsE6TNtd6wwqsQ/d1JqWjrbTnRLDZTaGcBfcDbA2J7C46aSNdLs4/XDCqa97 -63awosVip26fWpADW6/nxdXlTbvqiQuzVHNVk1b/VP7VftHCbBNHV2TcJyWp -CriULLmaQ28Pq31d2VBorPdO5C9job0EsNhzhm69IzF0kJodGR7a0RdlR7el -jkvQm4+Lt7nHoN2Giu0FgHlG8v8CWCndQj0vvz7FlZ4DmIf+rGhezUnPAMxD -f1o0r+GkpwDmoe8Sze3ptOwC9O1c6UmAXcvpT4ifL3PS4wDz0B8Tzes46VGA -eeg7RXNHOkE7AX0HV3oEYN/g9IfFz/Wc9BDAPPTfA+zbnP6ghHBDet8fBPQb -uFIFYDdy+gPi5xZDytq15yG/1iPUtqGz6fsBZl231r+boNqjSkyvfdW5UGQa -UtRu3gewW20M4f69zwkixlC3cK+ktpzQ9nV5fS5WLFHtewDWvJcem7J0V1Au -6/5Hp0xr/wa4+W7TbhL9txrtlStSoCVbQqh4fi2J+15DoTTTf0ep8Y/qVoc9 -BfUrgMWeM52Wuzsa8yq1nJY9p+W/BNj3U4dis725GoiRQdgvAPYD3iz8HGA/ -5PS7pcRuc0gauBvQb+NKPwPY7Zx+F8Du4PSfAuxHnP4TgN3J6T+mmJOPO+XX -XVzpDrqrkH47TSSkz01UV/PRsxtRV2JeR33LpXT9qkSDtu6hbbg7MI35HOd4 -jIe5BY/WVBB7fAhVnUmpnI09bgvkC2Lwxbc/1c472jpnhQzp4rKNIWdNKdfO -JbTbMqa+h9eeeVHcABblfNrI9yTOlPTuaE5J+mbVGCpXiqOnmGptlY/TZjme -IYHUKvcsN9eE9hSwb10eLV8MzcTZT7VHnkuuPfL8Iu32Fv1182o132J6isiG -gjr1uXEADqa/Zh2NDQYB1gmkJ4GwuumeorFGe8JHIKxpQDrfZBaQbWf2zCCZ -9iaz1cXL8gBpbVQ1MtJdQIKVpXWN8jwo0o0X7VzeXiCsHk9ZNk7WZQoLJbLQ -ZBaylGXGEHyXOFlZ6rHJQklORQuqgzc2VAd43DDFJehigThRe90BpCeCEhwL -bF/GEmxvMgu+EsyQGSTju2DsSnuOxnpZ1uuhJMgZAkr/X6oM+DfzlOOihkWD -pdFxOw7k4GUs9Y7s+ZpOIxxxDn0RZshrkwO6uDrFA4P0IMSom4FB8jQiOUuN -ptHdaNGpQBvQmwziRbcK5Khf3CUXcQGgZOdaTM9MX5gtpMxbVQNp7A2Vvr32 -ENWlzbDNrf1JSW/p16dLIjRfMstJafI2ho4Elk4pGqCZLqEgIyY19xKnKE/j -6UjEY77+mPcN+smew+lNxZ49v+FYs+feU4Xmu+6k1THzVMkabz56hKE1GqtE -iOebExuQXas3fibSAjhK6yfKrr6egNWOx+v1vE62OUXWySl4Ash7tk3zy40k -d/th6fwopJREnZ6HbyXTnhFLGWD3cPp3AHavQ9c7jUi/5Zq3Auw+Tr8FYPdz -+s0Ae4DTbwLY7zj9RoCZPsS0oPpm0c+rxRgugiaR0fWckWCvhI9Xzm8+gdU+ -6NrG/8au7M7F9P/aPso+1Gd3yd/uVUawqi8ZAdYFsIFR9rEnD/16gD3E6d8C -2MOc/k2A/cGh62EEIj3CNXcA7I+c/nWA7eT0rwHsT5x+HcAe5fSvAuwxTv8K -wP6cTh8iPc41vwSwJzj9iwD7C6dfC7AnOX07wP7K6V8A2K50PhDpb1zzGoA9 -xemfA9jTnP5ZgP2d068G2DOc/hmAPcvpnwbYP9LpQ6TnuOYnAfZPTv8EwJ43 -9Mi5TSiKr57jS66NN0uFL9eiJypKADM3XQodXX1o5emjbQB7gbvqa1L2KoC9 -OHLZjwPs3y3IaoUrgdhLI4/xYwCrjlz2CiZrT+zsKQiYB4rvH0JTRGhA8VHm -yVRzW9sbJgp6MYw8XM485PgR+hFmk3dsdEtBmQWu/iFm085tLmM2HdzmUmbj -GcVdwmw80yoXMxvPZfmLmI17QcF5NAQwx3L1C5nNOG7zAWbjmaG8gNn0cZvz -mc14brOV2UzgNu9nNnukM0yZniHzecxm4ujanMts9uI25zCbSdxmC7OZnM4W -ZU7h6puZzd7c5r3MZiq32cRs9jE2LQ4v0IRxbBt6YPMsFpK5mND0GMO9vpC8 -pSn8IM2ZLIb9eAzywLNzxww6Td3ItPfn2vVHeutXgnWbrGU2MMVpXFHu73bu -KEAd+3uYdj/XHu+WvsXRFOQZTHs6164/Cpy+CBou1fXM3wxb2QODFP91NbSH -65jHVxmP3sEKvhaDCul05mYmP/KHmc0sx0a3X1R9Fldfy2xmc5vTmM0At1nD -bAa5zanMZg63GWI2c7nNKcxmXjrDlDmfq5/MbA7gNicxmwXc5kRms5DbvIvZ -LOI2JzCbA9PZoszFXP0dzGYJtzme2bya2xwnUer1pZz5NqbusXkrs3kttzmW -2RyczitlFrn6W5jNIdzmzczmdcamxTEHvYu8ZocazdUsDPsijGzjDHMLTuKx -bnuXvIob9Q2rmP9Duf8JFnPvy0I93dHJangYV5S+uuLvq49i0Xq05ZxbJpnU -E0nV+hzHkUz08CYD9nS9RzDt5eH0hgYSK5n2CluDwwMJU1vkPvfQQOKNyQK1 -7yYJDh9K9ec0PI9krWC7474CJbV9ObM5wrHRAVPmkVz9MGbjeenK65Mp8rx0 -5VCm7rFZxmxWc5tDkhF5Xu5SZOquTZspRcI8lqsvTcbheXXMa5i6x+YgZvN2 -brMkGZHnFTWLmbrH5kBmc0I6m4uScZzENRcwTY/N/KT6KZw5N8k8lTMHk8zT -OHN2kjmc3vdZye2el+bMSDI9L83pTzI3cKY+kc4J074+p8Wu37SYBXt6Vv+o -Bg+1pvskwzQTJ013+J0OFvcSyMveSS9ncy/jm1ScnFQ8hyvGp8nqvt34k7PL -hgkYvWFiskDOC2nbu9ud++hs9KiH0bMNBRHfysXlcoAK3I5w4rQgZT37mxfl -D4aVzYyHGZf5lLVGhyhfamso7dr7Yis7R1As1tNRl7EvnSE9twxubH3zvsnm -v/odiPr3KLwBMhrzH2bRmaY=\ -\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ -{-14.8518, 0.65382, 0.693802, \ -0.00448812}},ExpressionUUID->"f3c0c3aa-fd64-8e41-bc0a-ae36b33a37ec"], - -Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"23cfff6f-2c67-ce46-9cc6-\ -49e8ffb5e8c8"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Xk4VU0cB3DZiRLZKdmKUrKVkvkVsl1L9pslufcchRCyRwtKZEtoQQpJ +KIkUb6+ikhQv2rNludZrPe3yjj/Oc57PM2e+z29mzsys8wqwIzg5ODhG8LP0 +Pvpm8/oH7W8MT3UGMU6ZsZAhu1DXy7gMURaL6Uvuy9fLVDauR1IJBfKnsW2Z +r3mFtJ8hoTN03jjsyvDYRh7jVmS4bz0tHjvxuVRDbOl/6Nqo4FQC9sP2o3l/ +tN4iZyfuqbPYY59aoiPqPqCN+WK0JGyZISXXb0ZfkNDr7bwp2JZT0frBrb3o +1FiwfDr24z9jy8NL+9FOrmfpmdjvTkpG1fgPoGzlTYwcbDav8di81hBa7X4r +/So2b3IgXfv7MGquN5AvwF6zKrf5aN0I4nQc5inGtpb9Vsw2mkCXo6LZd7HJ +a4oSGvxs1KR9mF2DHatiE+/bOoWGw/ws/8H+INm1NaR0BvXwPpB7hc3c73P4 +QvIsykz4m9aBPX2Vo+Ce/xz6+9vN6xM2v6KGyIwWhQbhgNw4diaz0VRE/Buy +tuXimcdWuEmP3fL9G6K/fWyxgL19UwL7SN0PdLgtelLEnIUO6fW2jhn9QfV1 +UmkG2PPhx7gFVReQT3H0QTPsE3XLDdT4/yJx85+pDtg5sP22d+sisg3axe2P +zSxqNg4qXQaFT7+ZF2GXPr/Qd1KWE3o6VLjvY0+zPKLTkznBWi9AthE7Wp2q +uuvPBQK9+w5+xc68s05pSosHRlzdLVQsWOhT+8Tjvzd4gF5ATOphK8w+2L9C +nBeeapybNMMu07HO0PjOC5+2qPH4Yzc9jFzmV8cPqlXP0+uxqcbO3hEjIZAU +blTwtWQhUZqQSNRjIXjoKHQhDluzyxiE9YXB1LklKA/bZ7D62tbNKyDKqTiy +EzuQs1Vzl5AI6HqP395DY6EhxYqZ+G+r4JqE9EVdKzw/ZItAm7YoVLuO9Dhi +c94eXid1VBRyInSyQrEVtNfalY6Lwq9EE6uH2PuN0u696RMDaT/XbiNrFmpj +BAVLvhKH4a7e+CM2LNRzMyXJk18C6LrPbmZiT4yX3rhlIgErA7duq8cWDBno +3NkgAXd1C/KEbFnIOM5Bx7NaEvJrZlLvYT8q1KNK8qWBvvfXH1E7Fioc+hW6 +I0QeaOYbeFUdWcjM8UxPcLk8FBs2OjljTzSJ7S0floeK3bO8idg6hZvEFehr +wNB/ZcIkdpOXRxWP4VoouuK6+MiJhWan+sJGTitA9OXRHm8XFhI7Yny/ykoR +wu2znAXcWGi4UPCQrY8ilJxFV/di135pl51MUIRCm2yIw3ajuZ9WbVCEm7uc +SjjccX0bQ+0uaSlBddrG+QVsnbGb0zGSyqCnwB8j6MlCDt7LNSz6VcCd7n/Q +l8lCKNRRy3lBBdbNSmlUYavH529jSquC5/qPDr+xOW5o74nZpwq0iLzaZIKF +yntcne89UYX3kfT/qki8P53KTspcXw+2ryPNxA7j+oyt3o15qYG37zcHSX8W +umGf/fl7jBq0OzCKfLBTvPr7uK+oQVwBv91jbOaJY+NrOtXggOCyBjKAhVbV +53LYG6lDTvdLdl0g/n+02ep1ShuhcN+znLBgFpJVTI1NGtwEvzzHVXUiWKj+ +3LzaT04NKJUQWHkF222O3kWu04DrEh8ZnJEslNekrLbHQwPWZWXZd2Arej/q ++PFeA76Z1ViGRePxlg2pkK82QxCL89rbWBaSl11DKtA1oeQ9e3AggYU2FYUI +/UZawHftpIlpFgt5MU9TGtZaYLs7rLoBO0cpo8fTTQto/8bE7chmIa7rd+4+ +D9cCw5aXaEsO3m95Yw4ZlVoglXt8o/xlfJ7meOaqKWnDS61XHwTz8Pom0Ta7 +8OrA3T2FWRrFLFQQpGxb3aoLIodgMe0BC7WHom1xRfqwW8Ty0sGvLLTO4621 +u98u2BZe4mgiNoKIxZoK+QgAU4/LU3ymI0hyvJZP0msP1OT/eTcSP4JCtA2+ +ZKgbQ2AKM+f38xHkNfmnWWzMBN7G0+ueC42i8j3BfPltpjCoHKSKDoyiwnmf +J2WZ5jBtM7Ap6d4o+rFb6nVTrCWwJJcvPhEbQ90cXDP9B62AU0KFphk5hvzl +AtJOKtmAMVNSeKp3DFUcbm64GG8LueHtatyO4yhyTvr7xsP7wEiwxu1c8zi+ +h/Y6vThgB/+d6rb2pk0gfdf03UP77MGkqz43rGsCdUjn+jRpO8DOk2bf5OiT +SKb4dH3JBkeo8BYMYLEnUW2fOs1a2Alc+da4ip9gozVd096hk04gpirHLy42 +hbQvppfd6HOGS1fdzrk+mEK53HObMxpdQOEhXWC/+jSq2b3lU/xDOtwKyUuK +PzmNcradW/WndD8ok/SY8g/TqO1zUYJ2sivUPld34Ns4g6qtrioHnnCDlbf0 +14rEz6CZI/Yc/kx3aAwWXeH2cQZRe9UOsY08oL/RhL9l4ywqmfz4I1jvACzw +2fWGxc0il4IihruQJ3xVFrg6/3YWVd2zPMB1xhOSLv1QtNw0h/RlO34m/vQE +Jf5fckci55BSn/en/w4fBMfwLcmyTXNocLmvzdWBg+BlPi4vJTKP2lOsGaaO +XtDh2+VcaTePMsPzlx9r94LE9HiN0IvzqP7x4k+GOQN88ioTetvn0Uo3OKP9 +iAHjf1917OKkkMLqF21y9QxQW8i25uWikGarlRTvYwYMBgvav8G2M3C99eEJ +A95nW1NuPBTKlAt9dfwlA5bpW1wJ4aeQTPftlc0fGFDdsUA7v4JCyh6SOW7f +GRD6JdWCIUMhfU92SbwOEyL3pfJe1qRQ8aXpYGs9JvgZXXDcvpVCqztnDSW3 +MwHOcOi+w2abfO8q2ckEqz0VhSLaFD6/OJa17mHCiX+jjU/oUmjF91V00X1M +SBG2CrDYge/h87oC+UeY8Girc0OiEYVS6qIP1xYzwdsz+U+FA4WOaGXrh5cw +gfdvs8RmRwrRblUKbC9lgqTR73/LsAWzh289KGfCXiv24xInCsUH2Y7V3GfC +2U/tfldcKBStpuxb/ZQJ5Smdob5uFPLJfuV3r4cJ99ZUP6xmUMh8xbBBUB8T +woR/JqkyKbQhnkNY6ysT7Bv+HcvCHg7SLa8cYsKD0iSrUIJCB63zJ+9OMKGG +S754izeFXHiC/e/8YoKYtNuFZB8KmQbLBJZJENDHXzXADqTQ0/wEiwwpAnra +VofRj1LIoHVWOVyGgCEtKrYRW1Pl1UejNQSMQe/MxSAKSb+PMvqsQoAWTc5B +J4RC4zu6JQR1CSjPK+dwDqNQKue1f7ztCWCBcrD2cTz+LUI5Vo4E+EuYpyVj +x7mGB2k7E9A6mqgwhB1+33b94n4CPBVlLmfG4PrJZelZXgS8/5o5NRFLIe0W +L+azowSIb6WJnz5FoffpKsuV0ghwu7X6i/EZClUg4UMj6QSceJsVdQY7bnK+ +qfwCAYhdnfcSW8u8KWZ7NgHHE3IDaGfx+nEwZq3yCIiw+biDlkihvQHXPoaX +ERC45cQRnSQKycuf1TOsIKAl7vbuAOz5loALXHcJkOl8kXML+7oqskqpIoB3 +9+02uWQKLXR3N9x4hOfTXuDAAvZ9mmzJm2YCOqpe/C5OoVDSL06ezBYCwvKj +fn3E9ioZO0hvJaDhaWKUUCqFRLgfyQ62EXBmPJ07ENuvziX15zsC5sQZW7em +UUhJPStUeYiA150f2VfSKfTr/fHO0WEChgstVr7Abo8nNO+MEJDqklk5gx3T +rzOmP0GAAM/FKJMMCn3K6XS3mSOgLvqUMgs7g2+VSeQyEqRdhJtEMylUP9vt +GsJFQrz30ZU7sFndpUH+PCQEXZT5xxPb4L7xNS8BEmREZVEZ9rBn+G+LVbi/ +29yXnRdx/TQTURMxErZCnr4H9s5tompInAQ9Q5sfsdhpwmVO2tIkrD5XfOXJ +Uvuj3krZdSQo95ARu7IoRBaVNYsrkcCzLmZoP3ZaWkTvShUSblDMqjDsYVJM +mFuNBJessyF3ltrFTA9NaJJw7+fJJMlsCj36KxY7rEXCBoUAHk3sodG+i306 +uL7OhT5T7B0NkY1d20mYZozXH8Me9KtY8w+Q4Gsby9eCvcIlSvfBHhLGBafP +d2PrG5nRKo1xfW+/HJvGTpH+GlFkRgLFkPFZnUOhWu47afkWJJQxGKEq2ANT +UTcv0Ug4MCo1qIu9/bn42/O2JGQcqxtwwPaq/Dp+xo4EgZcFxxjY56/e4Tzl +gOfbgHXoKPbXIHPNUBcSzLNOBydhC3tImAbuJ6H4c9e57KU88wF3HzcSNi1G +cN1Y6r/2eJKHJwm9kjVStUv1CFpcd/EiwT3GrPrJUh4l8dCOifsXqVS1LOX1 +D7TRSBKUrlqKdi7ltd4d3nuIhNiM2o5PS/U9OL4APiQ8/uwz37+Uf91i9U4/ +vJ6TnmEjS/nnJTfq+pMQ7HHJlb2UHz64e0sg9qhowRy2ELPSRS2IhKM+raY/ +sLfZxAQohZCwrK/J5s9S/g7LBPlQEnh9f9cuYierSOVKhpNw3zrgNOclCtWI +DFWtiiQhc3rtHW7s/t+VLcujSTj5QciAF1uIFdPPE0NC6V1ddT5svQ7LH4ux ++HuTyxFL/h+d+tnJ + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk4VU0cB3DZiRLZKdmKUrKVkvkVsl1L9pslufcchRCyRwtKZEtoQQpJ +KIkUb6+ikhQv2rNludZrPe3yjj/Oc57PM2e+z29mzsys8wqwIzg5ODhG8LP0 +Pvpm8/oH7W8MT3UGMU6ZsZAhu1DXy7gMURaL6Uvuy9fLVDauR1IJBfKnsW2Z +r3mFtJ8hoTN03jjsyvDYRh7jVmS4bz0tHjvxuVRDbOl/6Nqo4FQC9sP2o3l/ +tN4iZyfuqbPYY59aoiPqPqCN+WK0JGyZISXXb0ZfkNDr7bwp2JZT0frBrb3o +1FiwfDr24z9jy8NL+9FOrmfpmdjvTkpG1fgPoGzlTYwcbDav8di81hBa7X4r +/So2b3IgXfv7MGquN5AvwF6zKrf5aN0I4nQc5inGtpb9Vsw2mkCXo6LZd7HJ +a4oSGvxs1KR9mF2DHatiE+/bOoWGw/ws/8H+INm1NaR0BvXwPpB7hc3c73P4 +QvIsykz4m9aBPX2Vo+Ce/xz6+9vN6xM2v6KGyIwWhQbhgNw4diaz0VRE/Buy +tuXimcdWuEmP3fL9G6K/fWyxgL19UwL7SN0PdLgtelLEnIUO6fW2jhn9QfV1 +UmkG2PPhx7gFVReQT3H0QTPsE3XLDdT4/yJx85+pDtg5sP22d+sisg3axe2P +zSxqNg4qXQaFT7+ZF2GXPr/Qd1KWE3o6VLjvY0+zPKLTkznBWi9AthE7Wp2q +uuvPBQK9+w5+xc68s05pSosHRlzdLVQsWOhT+8Tjvzd4gF5ATOphK8w+2L9C +nBeeapybNMMu07HO0PjOC5+2qPH4Yzc9jFzmV8cPqlXP0+uxqcbO3hEjIZAU +blTwtWQhUZqQSNRjIXjoKHQhDluzyxiE9YXB1LklKA/bZ7D62tbNKyDKqTiy +EzuQs1Vzl5AI6HqP395DY6EhxYqZ+G+r4JqE9EVdKzw/ZItAm7YoVLuO9Dhi +c94eXid1VBRyInSyQrEVtNfalY6Lwq9EE6uH2PuN0u696RMDaT/XbiNrFmpj +BAVLvhKH4a7e+CM2LNRzMyXJk18C6LrPbmZiT4yX3rhlIgErA7duq8cWDBno +3NkgAXd1C/KEbFnIOM5Bx7NaEvJrZlLvYT8q1KNK8qWBvvfXH1E7Fioc+hW6 +I0QeaOYbeFUdWcjM8UxPcLk8FBs2OjljTzSJ7S0floeK3bO8idg6hZvEFehr +wNB/ZcIkdpOXRxWP4VoouuK6+MiJhWan+sJGTitA9OXRHm8XFhI7Yny/ykoR +wu2znAXcWGi4UPCQrY8ilJxFV/di135pl51MUIRCm2yIw3ajuZ9WbVCEm7uc +SjjccX0bQ+0uaSlBddrG+QVsnbGb0zGSyqCnwB8j6MlCDt7LNSz6VcCd7n/Q +l8lCKNRRy3lBBdbNSmlUYavH529jSquC5/qPDr+xOW5o74nZpwq0iLzaZIKF +yntcne89UYX3kfT/qki8P53KTspcXw+2ryPNxA7j+oyt3o15qYG37zcHSX8W +umGf/fl7jBq0OzCKfLBTvPr7uK+oQVwBv91jbOaJY+NrOtXggOCyBjKAhVbV +53LYG6lDTvdLdl0g/n+02ep1ShuhcN+znLBgFpJVTI1NGtwEvzzHVXUiWKj+ +3LzaT04NKJUQWHkF222O3kWu04DrEh8ZnJEslNekrLbHQwPWZWXZd2Arej/q ++PFeA76Z1ViGRePxlg2pkK82QxCL89rbWBaSl11DKtA1oeQ9e3AggYU2FYUI +/UZawHftpIlpFgt5MU9TGtZaYLs7rLoBO0cpo8fTTQto/8bE7chmIa7rd+4+ +D9cCw5aXaEsO3m95Yw4ZlVoglXt8o/xlfJ7meOaqKWnDS61XHwTz8Pom0Ta7 +8OrA3T2FWRrFLFQQpGxb3aoLIodgMe0BC7WHom1xRfqwW8Ty0sGvLLTO4621 +u98u2BZe4mgiNoKIxZoK+QgAU4/LU3ymI0hyvJZP0msP1OT/eTcSP4JCtA2+ +ZKgbQ2AKM+f38xHkNfmnWWzMBN7G0+ueC42i8j3BfPltpjCoHKSKDoyiwnmf +J2WZ5jBtM7Ap6d4o+rFb6nVTrCWwJJcvPhEbQ90cXDP9B62AU0KFphk5hvzl +AtJOKtmAMVNSeKp3DFUcbm64GG8LueHtatyO4yhyTvr7xsP7wEiwxu1c8zi+ +h/Y6vThgB/+d6rb2pk0gfdf03UP77MGkqz43rGsCdUjn+jRpO8DOk2bf5OiT +SKb4dH3JBkeo8BYMYLEnUW2fOs1a2Alc+da4ip9gozVd096hk04gpirHLy42 +hbQvppfd6HOGS1fdzrk+mEK53HObMxpdQOEhXWC/+jSq2b3lU/xDOtwKyUuK +PzmNcradW/WndD8ok/SY8g/TqO1zUYJ2sivUPld34Ns4g6qtrioHnnCDlbf0 +14rEz6CZI/Yc/kx3aAwWXeH2cQZRe9UOsY08oL/RhL9l4ywqmfz4I1jvACzw +2fWGxc0il4IihruQJ3xVFrg6/3YWVd2zPMB1xhOSLv1QtNw0h/RlO34m/vQE +Jf5fckci55BSn/en/w4fBMfwLcmyTXNocLmvzdWBg+BlPi4vJTKP2lOsGaaO +XtDh2+VcaTePMsPzlx9r94LE9HiN0IvzqP7x4k+GOQN88ioTetvn0Uo3OKP9 +iAHjf1917OKkkMLqF21y9QxQW8i25uWikGarlRTvYwYMBgvav8G2M3C99eEJ +A95nW1NuPBTKlAt9dfwlA5bpW1wJ4aeQTPftlc0fGFDdsUA7v4JCyh6SOW7f +GRD6JdWCIUMhfU92SbwOEyL3pfJe1qRQ8aXpYGs9JvgZXXDcvpVCqztnDSW3 +MwHOcOi+w2abfO8q2ckEqz0VhSLaFD6/OJa17mHCiX+jjU/oUmjF91V00X1M +SBG2CrDYge/h87oC+UeY8Girc0OiEYVS6qIP1xYzwdsz+U+FA4WOaGXrh5cw +gfdvs8RmRwrRblUKbC9lgqTR73/LsAWzh289KGfCXiv24xInCsUH2Y7V3GfC +2U/tfldcKBStpuxb/ZQJ5Smdob5uFPLJfuV3r4cJ99ZUP6xmUMh8xbBBUB8T +woR/JqkyKbQhnkNY6ysT7Bv+HcvCHg7SLa8cYsKD0iSrUIJCB63zJ+9OMKGG +S754izeFXHiC/e/8YoKYtNuFZB8KmQbLBJZJENDHXzXADqTQ0/wEiwwpAnra +VofRj1LIoHVWOVyGgCEtKrYRW1Pl1UejNQSMQe/MxSAKSb+PMvqsQoAWTc5B +J4RC4zu6JQR1CSjPK+dwDqNQKue1f7ztCWCBcrD2cTz+LUI5Vo4E+EuYpyVj +x7mGB2k7E9A6mqgwhB1+33b94n4CPBVlLmfG4PrJZelZXgS8/5o5NRFLIe0W +L+azowSIb6WJnz5FoffpKsuV0ghwu7X6i/EZClUg4UMj6QSceJsVdQY7bnK+ +qfwCAYhdnfcSW8u8KWZ7NgHHE3IDaGfx+nEwZq3yCIiw+biDlkihvQHXPoaX +ERC45cQRnSQKycuf1TOsIKAl7vbuAOz5loALXHcJkOl8kXML+7oqskqpIoB3 +9+02uWQKLXR3N9x4hOfTXuDAAvZ9mmzJm2YCOqpe/C5OoVDSL06ezBYCwvKj +fn3E9ioZO0hvJaDhaWKUUCqFRLgfyQ62EXBmPJ07ENuvziX15zsC5sQZW7em +UUhJPStUeYiA150f2VfSKfTr/fHO0WEChgstVr7Abo8nNO+MEJDqklk5gx3T +rzOmP0GAAM/FKJMMCn3K6XS3mSOgLvqUMgs7g2+VSeQyEqRdhJtEMylUP9vt +GsJFQrz30ZU7sFndpUH+PCQEXZT5xxPb4L7xNS8BEmREZVEZ9rBn+G+LVbi/ +29yXnRdx/TQTURMxErZCnr4H9s5tompInAQ9Q5sfsdhpwmVO2tIkrD5XfOXJ +Uvuj3krZdSQo95ARu7IoRBaVNYsrkcCzLmZoP3ZaWkTvShUSblDMqjDsYVJM +mFuNBJessyF3ltrFTA9NaJJw7+fJJMlsCj36KxY7rEXCBoUAHk3sodG+i306 +uL7OhT5T7B0NkY1d20mYZozXH8Me9KtY8w+Q4Gsby9eCvcIlSvfBHhLGBafP +d2PrG5nRKo1xfW+/HJvGTpH+GlFkRgLFkPFZnUOhWu47afkWJJQxGKEq2ANT +UTcv0Ug4MCo1qIu9/bn42/O2JGQcqxtwwPaq/Dp+xo4EgZcFxxjY56/e4Tzl +gOfbgHXoKPbXIHPNUBcSzLNOBydhC3tImAbuJ6H4c9e57KU88wF3HzcSNi1G +cN1Y6r/2eJKHJwm9kjVStUv1CFpcd/EiwT3GrPrJUh4l8dCOifsXqVS1LOX1 +D7TRSBKUrlqKdi7ltd4d3nuIhNiM2o5PS/U9OL4APiQ8/uwz37+Uf91i9U4/ +vJ6TnmEjS/nnJTfq+pMQ7HHJlb2UHz64e0sg9qhowRy2ELPSRS2IhKM+raY/ +sLfZxAQohZCwrK/J5s9S/g7LBPlQEnh9f9cuYierSOVKhpNw3zrgNOclCtWI +DFWtiiQhc3rtHW7s/t+VLcujSTj5QciAF1uIFdPPE0NC6V1ddT5svQ7LH4ux ++HuTyxFL/h+d+tnJ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7276012365679068, 1.349860644350291}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7276012365679084}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7276012365679068, 1.349860644350291}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7276012365679084}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk4VU0cB3DZiRLZKdmKUrKVkvkVsl1L9pslufcchRCyRwtKZEtoQQpJ +KIkUb6+ikhQv2rNludZrPe3yjj/Oc57PM2e+z29mzsys8wqwIzg5ODhG8LP0 +Pvpm8/oH7W8MT3UGMU6ZsZAhu1DXy7gMURaL6Uvuy9fLVDauR1IJBfKnsW2Z +r3mFtJ8hoTN03jjsyvDYRh7jVmS4bz0tHjvxuVRDbOl/6Nqo4FQC9sP2o3l/ +tN4iZyfuqbPYY59aoiPqPqCN+WK0JGyZISXXb0ZfkNDr7bwp2JZT0frBrb3o +1FiwfDr24z9jy8NL+9FOrmfpmdjvTkpG1fgPoGzlTYwcbDav8di81hBa7X4r +/So2b3IgXfv7MGquN5AvwF6zKrf5aN0I4nQc5inGtpb9Vsw2mkCXo6LZd7HJ +a4oSGvxs1KR9mF2DHatiE+/bOoWGw/ws/8H+INm1NaR0BvXwPpB7hc3c73P4 +QvIsykz4m9aBPX2Vo+Ce/xz6+9vN6xM2v6KGyIwWhQbhgNw4diaz0VRE/Buy +tuXimcdWuEmP3fL9G6K/fWyxgL19UwL7SN0PdLgtelLEnIUO6fW2jhn9QfV1 +UmkG2PPhx7gFVReQT3H0QTPsE3XLDdT4/yJx85+pDtg5sP22d+sisg3axe2P +zSxqNg4qXQaFT7+ZF2GXPr/Qd1KWE3o6VLjvY0+zPKLTkznBWi9AthE7Wp2q +uuvPBQK9+w5+xc68s05pSosHRlzdLVQsWOhT+8Tjvzd4gF5ATOphK8w+2L9C +nBeeapybNMMu07HO0PjOC5+2qPH4Yzc9jFzmV8cPqlXP0+uxqcbO3hEjIZAU +blTwtWQhUZqQSNRjIXjoKHQhDluzyxiE9YXB1LklKA/bZ7D62tbNKyDKqTiy +EzuQs1Vzl5AI6HqP395DY6EhxYqZ+G+r4JqE9EVdKzw/ZItAm7YoVLuO9Dhi +c94eXid1VBRyInSyQrEVtNfalY6Lwq9EE6uH2PuN0u696RMDaT/XbiNrFmpj +BAVLvhKH4a7e+CM2LNRzMyXJk18C6LrPbmZiT4yX3rhlIgErA7duq8cWDBno +3NkgAXd1C/KEbFnIOM5Bx7NaEvJrZlLvYT8q1KNK8qWBvvfXH1E7Fioc+hW6 +I0QeaOYbeFUdWcjM8UxPcLk8FBs2OjljTzSJ7S0floeK3bO8idg6hZvEFehr +wNB/ZcIkdpOXRxWP4VoouuK6+MiJhWan+sJGTitA9OXRHm8XFhI7Yny/ykoR +wu2znAXcWGi4UPCQrY8ilJxFV/di135pl51MUIRCm2yIw3ajuZ9WbVCEm7uc +SjjccX0bQ+0uaSlBddrG+QVsnbGb0zGSyqCnwB8j6MlCDt7LNSz6VcCd7n/Q +l8lCKNRRy3lBBdbNSmlUYavH529jSquC5/qPDr+xOW5o74nZpwq0iLzaZIKF +yntcne89UYX3kfT/qki8P53KTspcXw+2ryPNxA7j+oyt3o15qYG37zcHSX8W +umGf/fl7jBq0OzCKfLBTvPr7uK+oQVwBv91jbOaJY+NrOtXggOCyBjKAhVbV +53LYG6lDTvdLdl0g/n+02ep1ShuhcN+znLBgFpJVTI1NGtwEvzzHVXUiWKj+ +3LzaT04NKJUQWHkF222O3kWu04DrEh8ZnJEslNekrLbHQwPWZWXZd2Arej/q ++PFeA76Z1ViGRePxlg2pkK82QxCL89rbWBaSl11DKtA1oeQ9e3AggYU2FYUI +/UZawHftpIlpFgt5MU9TGtZaYLs7rLoBO0cpo8fTTQto/8bE7chmIa7rd+4+ +D9cCw5aXaEsO3m95Yw4ZlVoglXt8o/xlfJ7meOaqKWnDS61XHwTz8Pom0Ta7 +8OrA3T2FWRrFLFQQpGxb3aoLIodgMe0BC7WHom1xRfqwW8Ty0sGvLLTO4621 +u98u2BZe4mgiNoKIxZoK+QgAU4/LU3ymI0hyvJZP0msP1OT/eTcSP4JCtA2+ +ZKgbQ2AKM+f38xHkNfmnWWzMBN7G0+ueC42i8j3BfPltpjCoHKSKDoyiwnmf +J2WZ5jBtM7Ap6d4o+rFb6nVTrCWwJJcvPhEbQ90cXDP9B62AU0KFphk5hvzl +AtJOKtmAMVNSeKp3DFUcbm64GG8LueHtatyO4yhyTvr7xsP7wEiwxu1c8zi+ +h/Y6vThgB/+d6rb2pk0gfdf03UP77MGkqz43rGsCdUjn+jRpO8DOk2bf5OiT +SKb4dH3JBkeo8BYMYLEnUW2fOs1a2Alc+da4ip9gozVd096hk04gpirHLy42 +hbQvppfd6HOGS1fdzrk+mEK53HObMxpdQOEhXWC/+jSq2b3lU/xDOtwKyUuK +PzmNcradW/WndD8ok/SY8g/TqO1zUYJ2sivUPld34Ns4g6qtrioHnnCDlbf0 +14rEz6CZI/Yc/kx3aAwWXeH2cQZRe9UOsY08oL/RhL9l4ywqmfz4I1jvACzw +2fWGxc0il4IihruQJ3xVFrg6/3YWVd2zPMB1xhOSLv1QtNw0h/RlO34m/vQE +Jf5fckci55BSn/en/w4fBMfwLcmyTXNocLmvzdWBg+BlPi4vJTKP2lOsGaaO +XtDh2+VcaTePMsPzlx9r94LE9HiN0IvzqP7x4k+GOQN88ioTetvn0Uo3OKP9 +iAHjf1917OKkkMLqF21y9QxQW8i25uWikGarlRTvYwYMBgvav8G2M3C99eEJ +A95nW1NuPBTKlAt9dfwlA5bpW1wJ4aeQTPftlc0fGFDdsUA7v4JCyh6SOW7f +GRD6JdWCIUMhfU92SbwOEyL3pfJe1qRQ8aXpYGs9JvgZXXDcvpVCqztnDSW3 +MwHOcOi+w2abfO8q2ckEqz0VhSLaFD6/OJa17mHCiX+jjU/oUmjF91V00X1M +SBG2CrDYge/h87oC+UeY8Girc0OiEYVS6qIP1xYzwdsz+U+FA4WOaGXrh5cw +gfdvs8RmRwrRblUKbC9lgqTR73/LsAWzh289KGfCXiv24xInCsUH2Y7V3GfC +2U/tfldcKBStpuxb/ZQJ5Smdob5uFPLJfuV3r4cJ99ZUP6xmUMh8xbBBUB8T +woR/JqkyKbQhnkNY6ysT7Bv+HcvCHg7SLa8cYsKD0iSrUIJCB63zJ+9OMKGG +S754izeFXHiC/e/8YoKYtNuFZB8KmQbLBJZJENDHXzXADqTQ0/wEiwwpAnra +VofRj1LIoHVWOVyGgCEtKrYRW1Pl1UejNQSMQe/MxSAKSb+PMvqsQoAWTc5B +J4RC4zu6JQR1CSjPK+dwDqNQKue1f7ztCWCBcrD2cTz+LUI5Vo4E+EuYpyVj +x7mGB2k7E9A6mqgwhB1+33b94n4CPBVlLmfG4PrJZelZXgS8/5o5NRFLIe0W +L+azowSIb6WJnz5FoffpKsuV0ghwu7X6i/EZClUg4UMj6QSceJsVdQY7bnK+ +qfwCAYhdnfcSW8u8KWZ7NgHHE3IDaGfx+nEwZq3yCIiw+biDlkihvQHXPoaX +ERC45cQRnSQKycuf1TOsIKAl7vbuAOz5loALXHcJkOl8kXML+7oqskqpIoB3 +9+02uWQKLXR3N9x4hOfTXuDAAvZ9mmzJm2YCOqpe/C5OoVDSL06ezBYCwvKj +fn3E9ioZO0hvJaDhaWKUUCqFRLgfyQ62EXBmPJ07ENuvziX15zsC5sQZW7em +UUhJPStUeYiA150f2VfSKfTr/fHO0WEChgstVr7Abo8nNO+MEJDqklk5gx3T +rzOmP0GAAM/FKJMMCn3K6XS3mSOgLvqUMgs7g2+VSeQyEqRdhJtEMylUP9vt +GsJFQrz30ZU7sFndpUH+PCQEXZT5xxPb4L7xNS8BEmREZVEZ9rBn+G+LVbi/ +29yXnRdx/TQTURMxErZCnr4H9s5tompInAQ9Q5sfsdhpwmVO2tIkrD5XfOXJ +Uvuj3krZdSQo95ARu7IoRBaVNYsrkcCzLmZoP3ZaWkTvShUSblDMqjDsYVJM +mFuNBJessyF3ltrFTA9NaJJw7+fJJMlsCj36KxY7rEXCBoUAHk3sodG+i306 +uL7OhT5T7B0NkY1d20mYZozXH8Me9KtY8w+Q4Gsby9eCvcIlSvfBHhLGBafP +d2PrG5nRKo1xfW+/HJvGTpH+GlFkRgLFkPFZnUOhWu47afkWJJQxGKEq2ANT +UTcv0Ug4MCo1qIu9/bn42/O2JGQcqxtwwPaq/Dp+xo4EgZcFxxjY56/e4Tzl +gOfbgHXoKPbXIHPNUBcSzLNOBydhC3tImAbuJ6H4c9e57KU88wF3HzcSNi1G +cN1Y6r/2eJKHJwm9kjVStUv1CFpcd/EiwT3GrPrJUh4l8dCOifsXqVS1LOX1 +D7TRSBKUrlqKdi7ltd4d3nuIhNiM2o5PS/U9OL4APiQ8/uwz37+Uf91i9U4/ +vJ6TnmEjS/nnJTfq+pMQ7HHJlb2UHz64e0sg9qhowRy2ELPSRS2IhKM+raY/ +sLfZxAQohZCwrK/J5s9S/g7LBPlQEnh9f9cuYierSOVKhpNw3zrgNOclCtWI +DFWtiiQhc3rtHW7s/t+VLcujSTj5QciAF1uIFdPPE0NC6V1ddT5svQ7LH4ux ++HuTyxFL/h+d+tnJ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7276012365679068, 1.349860644350291}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7276012365679084}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.7276012365679084}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.7276012365679068, 1.349860644350291}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99425957460189*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"f0688d82-3b23-4560-a2e8-4b0596e2572f"] }, Open ]], Cell[CellGroupData[{ @@ -9352,427 +10673,1141 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.9918507211663303`*^9, - 3.991850725479061*^9}},ExpressionUUID->"f4c3d53a-1214-a145-beb0-\ -494cdae35e56"], + CellChangeTimes->{{3.9918507211663303`*^9, 3.991850725479061*^9}}, + CellLabel-> + "In[119]:=",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"b9265795-17b8-4e47-bd29-fee31586537e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7791433697656968`*^-266\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 41, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994259574792859*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"79effaff-cf1a-44ad-ba66-d33cfe904b3d"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"072fb53f-7116-0f41-a298-6891351a3192"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5041912889691332`*^-277\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 119, 42, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942595748026857`*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"830491f3-5bdb-4016-b725-d205a666e9b3"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"7f686ca7-db7f-0b40-bbd8-c08a80d2c198"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2717308072303316`*^-288\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 119, 43, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99425957481278*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"d762477c-1ebc-4719-b7ab-4333bdaba3a0"], Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"3aaeaf29-5b60-ab47-b674-24d071c511f8"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.0634921 0.0147151 5.37313 [ -[.15079 .00222 -3 -9 ] -[.15079 .00222 3 0 ] -[.27778 .00222 -3 -9 ] -[.27778 .00222 3 0 ] -[.40476 .00222 -3 -9 ] -[.40476 .00222 3 0 ] -[.53175 .00222 -3 -9 ] -[.53175 .00222 3 0 ] -[.65873 .00222 -6 -9 ] -[.65873 .00222 6 0 ] -[.78571 .00222 -6 -9 ] -[.78571 .00222 6 0 ] -[.9127 .00222 -6 -9 ] -[.9127 .00222 6 0 ] -[.01131 .12218 -24 -4.5 ] -[.01131 .12218 0 4.5 ] -[.01131 .22964 -24 -4.5 ] -[.01131 .22964 0 4.5 ] -[.01131 .3371 -24 -4.5 ] -[.01131 .3371 0 4.5 ] -[.01131 .44457 -24 -4.5 ] -[.01131 .44457 0 4.5 ] -[.01131 .55203 -18 -4.5 ] -[.01131 .55203 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.15079 .01472 m -.15079 .02097 L -s -[(2)] .15079 .00222 0 1 Mshowa -.27778 .01472 m -.27778 .02097 L -s -[(4)] .27778 .00222 0 1 Mshowa -.40476 .01472 m -.40476 .02097 L -s -[(6)] .40476 .00222 0 1 Mshowa -.53175 .01472 m -.53175 .02097 L -s -[(8)] .53175 .00222 0 1 Mshowa -.65873 .01472 m -.65873 .02097 L -s -[(10)] .65873 .00222 0 1 Mshowa -.78571 .01472 m -.78571 .02097 L -s -[(12)] .78571 .00222 0 1 Mshowa -.9127 .01472 m -.9127 .02097 L -s -[(14)] .9127 .00222 0 1 Mshowa -.125 Mabswid -.05556 .01472 m -.05556 .01847 L -s -.0873 .01472 m -.0873 .01847 L -s -.11905 .01472 m -.11905 .01847 L -s -.18254 .01472 m -.18254 .01847 L -s -.21429 .01472 m -.21429 .01847 L -s -.24603 .01472 m -.24603 .01847 L -s -.30952 .01472 m -.30952 .01847 L -s -.34127 .01472 m -.34127 .01847 L -s -.37302 .01472 m -.37302 .01847 L -s -.43651 .01472 m -.43651 .01847 L -s -.46825 .01472 m -.46825 .01847 L -s -.5 .01472 m -.5 .01847 L -s -.56349 .01472 m -.56349 .01847 L -s -.59524 .01472 m -.59524 .01847 L -s -.62698 .01472 m -.62698 .01847 L -s -.69048 .01472 m -.69048 .01847 L -s -.72222 .01472 m -.72222 .01847 L -s -.75397 .01472 m -.75397 .01847 L -s -.81746 .01472 m -.81746 .01847 L -s -.84921 .01472 m -.84921 .01847 L -s -.88095 .01472 m -.88095 .01847 L -s -.94444 .01472 m -.94444 .01847 L -s -.97619 .01472 m -.97619 .01847 L -s -.25 Mabswid -0 .01472 m -1 .01472 L -s -.02381 .12218 m -.03006 .12218 L -s -[(0.02)] .01131 .12218 1 0 Mshowa -.02381 .22964 m -.03006 .22964 L -s -[(0.04)] .01131 .22964 1 0 Mshowa -.02381 .3371 m -.03006 .3371 L -s -[(0.06)] .01131 .3371 1 0 Mshowa -.02381 .44457 m -.03006 .44457 L -s -[(0.08)] .01131 .44457 1 0 Mshowa -.02381 .55203 m -.03006 .55203 L -s -[(0.1)] .01131 .55203 1 0 Mshowa -.125 Mabswid -.02381 .04158 m -.02756 .04158 L -s -.02381 .06845 m -.02756 .06845 L -s -.02381 .09531 m -.02756 .09531 L -s -.02381 .14904 m -.02756 .14904 L -s -.02381 .17591 m -.02756 .17591 L -s -.02381 .20277 m -.02756 .20277 L -s -.02381 .25651 m -.02756 .25651 L -s -.02381 .28337 m -.02756 .28337 L -s -.02381 .31024 m -.02756 .31024 L -s -.02381 .36397 m -.02756 .36397 L -s -.02381 .39083 m -.02756 .39083 L -s -.02381 .4177 m -.02756 .4177 L -s -.02381 .47143 m -.02756 .47143 L -s -.02381 .4983 m -.02756 .4983 L -s -.02381 .52516 m -.02756 .52516 L -s -.02381 .57889 m -.02756 .57889 L -s -.02381 .60576 m -.02756 .60576 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .01472 m -.06244 .12073 L -.10458 .23188 L -.14415 .32802 L -.18221 .40977 L -.22272 .48259 L -.26171 .53704 L -.28302 .55995 L -.30316 .57709 L -.31285 .58377 L -.32313 .58977 L -.33276 .59437 L -.34157 .59772 L -.35098 .60043 L -.35617 .60154 L -.3611 .60234 L -.3633 .60262 L -.36564 .60287 L -.36785 .60305 L -.36985 .60318 L -.37108 .60323 L -.37222 .60327 L -.37346 .6033 L -.37477 .60332 L -.37591 .60332 L -.37698 .60331 L -.37815 .60328 L -.3794 .60324 L -.38062 .60319 L -.38197 .60311 L -.38469 .60291 L -.38721 .60266 L -.38958 .60237 L -.3949 .60153 L -.40064 .60035 L -.41114 .59744 L -.42077 .59396 L -.43969 .58496 L -.46039 .57209 L -.50095 .53905 L -.54 .49958 L -.58149 .45213 L -.62148 .40358 L -.65994 .3563 L -.70086 .30723 L -.74026 .26259 L -.77815 .22302 L -.81849 .18514 L -.85731 .15313 L -.89859 .12393 L -Mistroke -.93835 .10033 L -.97619 .08171 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJztnAuQHEUZx+fudu/gQhAJIkZiLsAl5HJ3gRheC+EVTAgkBAiSXB6Ey2PJ -GfLgEt6PBCQgCLgRBBR8CyoIBpAVBEEEXwglUuJrkZJCpaSU8lFqaanrTvdM -b8/s75vdmd1NYhVXucnc/+vv319/801P9zfdM2dw46qVawY3Di0f7Jo5PLh+ -1dDyDV0z1g2XoLYWx2nZVvrt7HLc86Lj+Idi6V/xAffgItXP56v/2krHvJN1 -9E9KHducbF6VVL+T1DHtFAs5J+OUf9wy/Z4sn7UkmZxTKKF9nqyQz1p6GSdX -KDoH+nXns0bSpo67ltQLpm71WyjZ5xNksk6+pH+AqJ+y9FW70tCkcaJ6W6D6 -1oim76u9uMCjcj2QyeZVy1sN5phq+wHTHmp3Cjmt61erPJbN96o/OpSVPrUu -UnBy2axyZI9Hm8tox/qXVOm55TyHlR1Z+rt0Pl7Uq96UbtDtgHKehwY8kWqV -Z84UKN4biEdN3Wpjpbgqx2Ob9pp3scjMiRFNLOqCAV2bj5qYgnZQHRGuWOhX -r66EVumzqg/Hoh2zPVY0lOpX7ijYV7bUnF6reZlQ82wTo1xDbrXdRa5JQ7sO -rFJHVFtHa3ctMkoFReMW6fXuGX3r6mB2Ec/bfb6X3DvWDRir88lkQx1Tzr2Q -pdY6GXVfuPSTGuyZdmjCBLEOsVljtEMWB24Hrd1rWpMxlvih12eX91gPMkGq -b6lAr1LyQqEY1ask80IH2E09UCqiLWMq+1s/ZOjuN08t1SxHmezL7b7Yb8pk -+9apo1cJ61brVdpqbI/cI3EbA+7y7genrFrIl//u88m8Mhnl/GK/qUOPD9Qj -oeDB5TvMxE+hHGMT/OvodZW5fMEYnjLNdp9iudBTphz5+1XliG7V/hH67dxi -z2cDtqYZt+jnrR0m/khgsnUZAgOhksP8vqYIXBONg0t6bl+kLU8burwy2Fbp -jlYhiwWVDmiI135pwOj36O6P31Or4zX/H/Kx7n9qrLzVPbTIWp11YLu+pbtd -dHcmW2rV3cUKuVZXMGInN/gt3Z3LlsSBdjAUOqhGbHIduoSNCxun4Gst1FIw -cqGTZ3kqUKFfZEvji6QDRQIGXW2V8yc5pkDRezR9MAFZyJ2tgKnjlY3VaZN0 -Nu94nZSks2nH66QlnSvCAVJTyZC8XdK5fMfrdEg6lyXQWe8eVHfRmUB7rdHe -TdbeRdJebbR3T6A9ZLT3kLWpZ1fHrNHeMxwvos4Ko7NXghqXGe29ZW166qjj -UqO9TwLtJUZ7dALtxSCI4KHRlzoOGCvGJNCeb7THytq7SdrvB4HHU05HV2bE -/b7Dz2hncnknHVE+kFn1RJT9p95YtH2eabmevTveTRGRiU6B3WZ6H5HALqcM -opPV1GOL9p8OAr8l2hF+pouyYX5YVksuG8xKJFPnMVIyc65xc3fAOL8SynJ3 -RhhilzO6VipX9aoqOETPzTEmTWi4SYGMkZdDpceR6K/ZIGi8mSYJbiU56Ym+ -u2TmLOPDnoqYs42TYi5oXHugnPvrpRjLGcfou0S080QQ+Banyve7zu1Ras8Y -XZECHBEop+95OcVH3n2bZPUMEOgkcblfhYzbyAiZSVdD2o0CVLTtBHPldXYV -nxii9nQQRPDsIfEca6w4OIH2MSBIwjPNWDFV1n67pH0kCGweJRG1MyA4RLZi -T4nnMNOGwxNoHwqCJDyHgOAImWeUxDPFtOaoBNqUeYjg2UvioSzEtAQ8/SA4 -OgFPr/HKcbL2OyTtHhAk4ZkIguPD8S5qU1XTZSv2lni6jS9mJNA+AAQRPO+U -ePYDwcwEPONAcGICni4QzJJ59pF43gOCkxLwjAHByTLPuySed4NgdgKe0SCY -E45dUZsEp8hWUGXqSJdvbgIeCu9TZR5yojpSh3NaAh7qkE9PwEOPl3kyz74S -Dz3wz0jAQ8MgPWdu6Py4LKtc+kXjTtFeGkafqe1t3uy43dLzx/hkNXUJ6kgT -vfme1Y2bCafrNZNyMAsCZiab2aUD5XweWkqoeNXcWDSSEm0DDTCys8JIYfUQ -zUXooaKOlIlY2ABrKRp4pU8scynju6giUONPn4WogJU2ZO5YyVyK7sWeuXXO -nYPldGsrlrjEMpayAku0sUmnzGY9nLXshGyisZM60purs7RN9BgReVpAsFTm -oTHhfwE7Ox7FfwAbjEfxb8CWyRQ0SP4XYMstCiUhxX8CtkKue3/A/gHYyngU -fwcsG4/ib4CdI1PQjOWvgK2KR/EXwIZkim7A/gTYB5pKMR6wNwFbHY/ij4Cd -G4/iD4CtCYf1BCj0BmBr5bqJ4veArZMpCHsdsPXxKH4H2HkyBSUTfgPY8Han -eA2wDTIFZVdeBWxjPIpfA3a+TDEJsFcAuyAck6T4K8AujFf3y4BdJFP0Alao -n+KXgF0sU/QB9nPALolH8TPALpUpKGn4EmARCxtiUjRjLku7tGhASqb+BDBv -6UfzprH+rghhgxTZTmniFwHzltQ49UxmOypesVXbu0QjarL4x4BtClicbBI2 -gqeMwnYi5V81tyUbfwTY5ubYGLGZh2KAFh02y9qOSmutzTY09acXIs8DdmVF -hDZmFhvc90LTfbLwOcCu8ixs6MS11dwogW0nNM+fAtizgHmLLJPOWcsbMir3 -d1D4kVk/ACxiTed7Aft+/RTfA2xLPIrvAhax/2IqYM8AJqz+lSieBuxDFoWS -0PvPpwC7Tq67ART0NvdJwK6PR/EEYB+WKQ4D7HHAbohH8RhgN8oUhwP2KGA3 -bXeKRwD7iExxBGB5wHLxKB4GbGs4rGmRwkOAfVSumygeBOxmmYIWWjxQP8U2 -wG6RKY4C7H7APhaP4j7AbpUppgF2L2C3xaO4B7DbZYqjAfsSYB9vLIWSHAOF -7gbsE3LdRHEXYHfIFMcC9nnA7oxH8TnAPilTHAfYZwD7VFMpjheLB7FPyxS0 -ruxO0bKGzlhxZZ2TEVfWkal3APZZbWqzlyVHf7ODxowniHcZxWJ909bKlaHe -37WuDCVjbxfvvfrmV+04Yy251qep2BCvJqxk4m1NMlF6s1n5dQkK3fcBditg -X2iApTC1jvgKBMUpraK9BbC7KuK0ESuYvTK1xikZezNgd3vGNmfxsvCNBPLu -TMC2AvZFbXC965bpowQUomRWDjA9VMBnCa0ZvwmwL8sUswC7sX6KGwC7R6Y4 -CbDrAbs3HsV1gH3FolCSk6HQtYDdJ9dNFNcAdr9MQbspttRPcTVgX5Up5gB2 -FWDbZIpTANsMWMTnL4hiE2APyhRzAbscsIdkilMBuywexWmAXQLY18IxSYoX -A/awXDfturoQsLxMMQ+w8wH7ukxxBmAbAHskHsUwYI/KFLT7bz1g35ApzgRs -LWCPxaNYA9jjMsV8wFYD9k2ZYgFgQ4A9IVMMAHYOYE+Gw5oUs4B9S657IWAr -AHtKplgE2DLAvi1T0JbYswF7Oh7FUsCekSmW1Ih9R6Y4q0b/6AS1tzu39tmo -2WRY5ZOQtB+WnEEBpNPv3ggyeh5J80//FQh9X67a5VV3tNqh8axtRPUluiNr -rHQQMOoPQ9VXm03VUz09FH7YoOrVJJMqpefhc81p83LAaDTxfOUVj3pLWGv1 -1JfNNmH2QqjSKm/9Or3blb7WRq/+VgJG4+oXQr2BOFMSP5Bms9ETgGY2+vU9 -dmP09KF56osyxSrAphvHvyQrlj9EQdnBCEV6cFOu+KcyxbmAHWns+YWsSOMO -endiUygJjXkONTW+LNe4zhSaas5ekYufBxitQIigGDb19JuzV+XiG02hHnP2 -mlz8AlNovDn7rVz8IuPBLnP2ulz8UlNI7chSHeMbcvErTPFR5uxNubhaBDHK -Rf4cvr6qwE7yacFqcnVe5XvcTsv/APllRnA=\ -\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ -{-1.61617, -0.0100934, 0.0591342, \ -0.000698765}},ExpressionUUID->"fb5ee406-78d5-a849-9c81-3ea500ee883f"], + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 119, 44, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942595748224773`*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"2699f5cd-b060-4d03-bc0d-5a6e823b93e4"], Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-\ -87bc9c72594a"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c81f8XB3CjoqXsS9zlUskq897rOgdRRpKQUSI0lBKSlESUjEKFREZo +GffeTyk0REulIVkNQuorq8yK/D6/vz6P5z+f8X6f9+ucD2PbPid/MRERERNR +EZH/X8c/1z9iJRaaifHcNYvGV5s1XaIcMm+NgQ/asus/cdQA5V9vo7SmAScm +pYnP0Ycwx+st4q0FUJurdi2VYwnSg4ppv1uEwG6R8/TibISOuw77RltqwSnA +qPkW2xesWX2ffrY0QnT09g0axiHwu8X4/HBLF1Q4qTaMah2HOssrhW8LRmB+ +zhcR95dnQaWjsneb1jTMLk0zqJjOBrk9W69LWIpj/vhlIuVRAaSttK52cJHE +0Q7+4pLFV6AtU6/m5+KFuPztO9GzwuuQWBj1WkxJGnP672cwNMvA1mCXjLya +NI5OvV5wy6gMJB85uSzVlkYvJS4PLcsgtlv9g525NMb0XHrC21wGR5gve8/t +kkYlwx/s98llsDeP8k+jirwfzy8/ZKgMNmQLtOw8ZVB/VqTe1pJyUDzXfeps +jixG/ih6Z36CD5QVt2Ini2Vxy4siBUYiH5RrT0Rt4cuimePZxKkzfKAOLz+w +tE4WV9J7Ja9e4IO6fZB39XdZXC88bv62hA/6s6aNuvXl0KNUTW9PIx/Whyr0 +rHouh8qeExE1ygJwnP/9c8Y7OSRkrk6waAJwKqhsm/ooh/aLj6bHqQnA9c3m +10+G5HDlPlE2V0sAW7QuV3nIy6MzJM4J5wlgd49uaoy3PHZOJe833iqAk842 +Zo3j8mibfsX8Ra4AlG++UhYTVUDKQ494iUIBlMk6T6ycr4B7lVyM4aoAmhu9 ++Kk0BWTNFm3I4wuAtSGUuWGtAlpHvn6t9VAAtety57y5oIB/q4792/FFANPW +Y68aTBWx+LxbzS6qEFKKI25MWyuiU+yy6zJMIbDmiMRrb1DEX0GzJirUhWD/ +eJ55sr8ingmuqvypJYQsSzphf1oRX2dGd+lyhWCCdhkvOhTxg2VT7StXIYSw +87fWx1DQvKRfKyNBCLZ5UqN2SRRMmAfc8GQhMCWOxL86T8GNV0OsXVKE8KbJ +VfDuKgWp/GXO4ulC0AlaIP75FQXnUc5t0M0Xwvfig8W/lJXwXmfWzJMKIWyW +cxhYQiihj2r98/HPQtA/XB196a4SyjIrOjZ9EcK8rmUKjCdKuHPA+ffNbiFU +louDRpsS1tdPc32/C0HBrjJFb0YJizvzJVN+ks+PZhlY2SljXtbTxSvECVg9 +9Cdib7cyxhmyynepEXBo7TnNh/3KGKofUGShTkBZvna77LgylsW+aFJcSgDF +2ZtdKbkEG+IfdlZoEtB/5/GEuM4S7A/5VvV0JQFnY1JCL4Qvwascr28GQMCz +D8tZ/dFLMDbH6PpbJGDKoO6dWeISXPfRpCzAgoDt38ZW9eQsQb+j3w6nWhHA +sff8qVO3BJfO+POEdgR0yWvsfbRQBV+ZBLfiJgIU9z1QVVRUwWDR4z/z3Qiw +f+bWsIuugoZiY84z7gRURCRqLdJXwZtWwdNlmwlI6Bjuc3dTwcC3a3q/+BCw +6lr1jqECFfxRV1GcvpuAHWIuihYlKli1/5fg7h4Csj0Hn5y7pYIH3/ZKdwQS +MEeKocF5poI98ysaKUEEtAef6IkdUEG/iQ27vUMJiDbd4KNsoorb/dUz8AgB +a70u/TK2UEW40EfDSAKkjv047mKviv46B/24R8n718UVp3ir4jXXeyz1YwTc +sa36MeeUKjLadHIeHycgao9EJOusKhbIu9IuxxJgfdpZyiJHFUvmUPyPxBHQ +9HZQL1KgimX/goB5koBhN7WwkTZVVCX+s+MmEHA7IkhCukcVD086SEyQPpp9 +L1NnUBXbHkSeLkskYEHnpupdYlQU+7trlnQyAUt3JIl0alLRarlmyeUzBAzG +t6VOG1Bxr+BoNy+FgJvXNdSWABX1aepD70hbDNZYuW6k4oH5T06OpBLgdWAs +4eVhKpotZH8SOUeAeoaFSl8cFdfNH31/6Nz/6+NMqUQKFbP/dt4YJB0xtfyN +RSEV5Te2j7w4T4A59aCPdxkVWzt0dhqkEyCJj35F3qGiwlWr+5mkzx/3kq98 +SUXfl25yLhkEbC66UdzcTMWnPVcUSkkzn04aj3ZS0bLca0YkkwD+vLMeumNU +3M+7HZ9N+qBW5w/7GSouM6hY0UPazEE7MmAuDcXNWyqXXiDgZerT3CJVGmqb +r80uIH2WkFtZt5SG4/dmfrWR9njvU9u5kobvfa6yF2YRwJgo2/iPS8NA1qH9 +pqS/U6Z6lljTkGl5/eIO0uUcmzC2Iw1n44HK06TDNqdLbPKgYUen3EsBadOj +3ZmhfjSk6DxuekNaPE9PM20vDe/vr2v6Qfr5w8jq8nAaRhk5NIhdJCCl+7l9 +QwwNz1gXPZAnvWk25XNfEg1vXp9byiJNXeq/TzKDhuxr99J1SX9dKxTRyKfh +h0ezjhqRLgmYSbW8QcMn1Wp+bNIhSfZqPrdomHbC29aENKfsws2jD8jv3yS2 +Sp/06pZX04PPaJii19CiSdpBZNaarY00HLocOJtG2m05O+X1Bxo2bBmuXkTa +12lvG3yl4bKxbVNT5PvvPXyZyR+kYVXfu6e9pMMLW3fTJ2locNWJ1kD6Ye8J +j2cidDwdNSTOJ219mBF1bDYdja5Xh50h/WLR3csm8+jou7Y+fDdpx0LXZ8NS +dLT1XjF/Nelmk5/9V2XpuOPTmI4Sac+GRGkfCh2JM7yvfeR+dfpoGCmp0nFQ +k6JbSXr7eI3HWwYd262yF8aSDqKNXzZfQUfvmpmkRaTHiJRnv3XpWH9rsd4b +sj4i1q4YEBjQUdxFZ08y6bj93kZMMzomuU8R02S9zZvz16Pdgo75Dl8f8kmn +ZJ2PSltDx4z59oHepLPqnj8T20BH//CF+bfI+qW5+Q9UudDx4YUrKzxJF/bP +SId40DHKz8xtmqz/cnlDz25fOobo9100Jv1oR+5AXRgdg1PUBo6fJcBmii1z +5DAdL3TGXZEi/SqlycjgGB3Ps+YvTE8joK1y7rHCU3S8Ecb4nEWex8H5oTJx +2XT8nEOrPEKe55A8KWNePh3TVIwG+k8TMGlwzXOsiI6bsp+/dyct7vW50L+c +jrMiNOuXk3lA4a81tq6l4yc1FY8CMj9yVnd7/ntCx9LokI2Tp8jz1hZ5rOIF +He3UW+bZkdYWI+o13tMxy+zCnV4yjyycVTdLfKdjTvvCVRNkfu2Z/Hns2UIG +Dhl7l0eS+cfZv12hV4aBqhy3zclkPkr2td8QpzDw4RmB/QUyP4s+1DWbMRmY +fG5wuiiCgM/3z2vdMmLgHuv012lhBKyPY7fmb2XgmobRrGoyn6n/SgMf+DHQ +d2IuppD53R/GFP+0i4EF2okWPmS+x++cr0MJZWDjnQPbJ3cSUGP36fjpeAYe +ysty++tL9gOZaN3DAgZus0r3ciH7h0ji2KPMCgZmt8deHib7zSvxAI+KagbG +TrV4x7sSsHvMKe7nYwYq3Yq3K91I7mcr68OOdgY+7beXblhHgELusxPO4kyc +/bWzy9+cgN8rFn/WdmGidhj0S2oQMJ6jHK3vwcSSyTgdYBEwukidxd7KxP5T +NhjMJPdvhB2wehcTtzeqtb2ikv2v2nfcI5KJGv/ZL96mSOaD3W2p+CImFl+o +VfwlQdbbbi/oGmOiv0L040e9Qsj4tLPr2x8mctwvuWT2COHc+pC4gRkmxn6C +gZ1dQjitH/9icq4afltoxBEl54mYv4JNi6hqeEiPEin1Xgi7E2cHmVqr4ciW +i+ycWiGY3ijJS09XwxOJ23mZF4XwgX4j1+qiGtY1rZrhXhBCRPq1S6O5ahi9 +5c+WT+Q8czu6ONvpmhqG9x+YpKQJYZVbXqbUXTWkzpr3IiReCMtnn0s58UUN +ry/tNqoMJeeTrYePhWmxUHzzxTvJdkL4KWPr7VrLwjyfneeFvwTQuof5JuAp +C7n8FT4JQwKoefIHol6yUCfl+5ut/QJIibhBu9rMQoX5uoXivQLQ61rQ8buP +ha4FCht02wSwV/B6S46sOn5MGYmkPBBA33oXzx4/dcy6828MTgmgJ8nbNVhC +A3+EvJF3UhSAzdBBm69GS/Hp/oNH3XX50O8rGXIzahkSr8P9hNwy8n9CUexk +7XI8cqCgxH9WCcg0aJzmD2ni7R5tC4uea6ASX+5oZKSF81588pZMuwKZK9iL +ZXdoY+yHyuPTe4rgubK54UiqDva2NXaKeF8Gjkptim6zLlqtZiTlmuaDlHhB +qE+MHt4Z3l6iyr8E1GiaqbvGSrQU5vw1aM2CueqbK5yerkQjUaVfHZ4ZoMNT +Kj+4ZRV6cbqX3/A+B8GfZepsRfSxTKeo7MH+VBgaSXKxydRHg7mfDpdOJsMa +3SdZNtoGqPT4m+uqa6fg/gj378QrA4yx3huXfjIO9mqtan/rb4gD9xaNOi6L +Ad6gX5P7XCNUkRoKtv0TCVYsyrqFBUYojbbrs7+Gw7JjCeG1xsYo+vZV6XBu +KGj6sx+otxuj88xPEQ4RBGeYDn+OfzTGOKfGmx+LgmC0Y5th12djvKz0PTQ+ +MwjueyTduNRtjMNpgRJ/I4PAybEjQ3HAGEXk1cftbILgEDcuaK6ICbaXv/63 +sm4fPJN+yxhQN0EJao/RsZV7wf/+ztib+01wBfgrpuJuGAzsO2gVaoKBnHUL +DZfthnDVPbubw0yQPi+j6Mei3ZBwZJ/T5GETvFcRkJrSEQB8Thjd9IQJ6h06 +qnYnKgCmKo7frcsip/wuqyuhdbsgrfzSaGOdCdY2XInf5LYTHuQ1+f2UZ+PC +0gVXgm/5Q6c9Y2sYhY1GXXt1n+X7g8jvQPe/ymz8+HoXU/u0P1hskHCYTWdj +VH4XQ32HPzwR5RgrabKRfbn08Eslf3i5LXeuuRkbr6husx+O9oN2VkBZynY2 +FlcdKrbd4gujV2cmdG+z0aODO7rGzAd6Xa3zTlWyseWKlrulrg+0zkpe213N +xuaTrSts6T5Q7a18Ib2GjRtTV/47JOYDMRRDznQ9GzHYIM3nqTcsjg848vwj +G09ETXnYbvQGrR3vRfzFOPhfo6VpYa8X+KrfmJu1joMDks7LYoo8IeKxV4CG +Iwd9NW+uKU/whBR/mRdCJw76rd/jPLLPE+4WHUp6sYmD8Y6GYw84niCnsXbR +tA8HP1XIpe566wFPNL7KeYdx8Ei/uP6wmAdoLqPRNXI5OJdHPNwc5gY/Nc8a +CYc5iJcz+O4XXaD1JVrJjnDQtF7vueFJF6jZO7gxdIyDdf88zjBDXOC00Ga/ +0R8ORoksHtS2cwFNjkhJlTgXF70XqZo35QzbbAIZdQpcHKkxPdno7QxNO9Ys +aDLl4oDNfVF7o41wp/Dvl7F4LrZOOwqipTaAkWXohG0iF9cuS1Q8/s8Rbn3p +X5CXzMXYxx69qYOOIKR+NrZN4yLrSHhGyytHKMmsSb50kYuEvShPLMUR8pLi +2GvKuJjLeOD4Us4RToUuSs18x8UoVu7sr+sdwGO1GnKppmi4P/Kh6ldbmG6S +lKqjm+J/UcaxsvW2kOc/+MFWzRSD/K3T1EptofdE5UGPZaaYsC6cm3bAFoLr +15cfWmWKL5fyg69I2EKCwxHqHWtTbE4yYeXq2UCV2/spg32mmNsv8lT//BpY +EniyUqfGFAt6a0wvFa6G0zPbDRNrTbHmouom0ZTVIJZmLfj2yBRVpHWkDx5e +DX0Vs6/l1Zvi7R+vl2c5rYYqkdhMmXemuKa2x/me6GrwOHfs4PhX0r39gwG+ +lpBZfcjw/nweZhrwx2b0LWCBg7tAWYqHyi/4jhcZFnCs00T74GIeqs8dOblm +kQXsnD3J0pPnYeukhktjnzkYrw+TK6DyEM4X/CwvMIfmruCRuJU83C5clxAl +bw7y8/YI1m3iYf2CdXflJBAKLSMjht15eL4xa1/6fwCrIk9bnt3Mw+eP5ngu +fwzgMMx/3+rDw/VhJbE1RwBONI/99t3Dw69NJVv5A2YwWRBlERHNw2+vGvaE +N/OgnXv2XfENHs6LO/ihppYLOw8UZtuU8fDTVd9VNwq4MF52y7+fz0ObJcke +t2O4IMNsnVhZwcPupzfzDCy5YCepqnKvhoelXfsyHzzmwN2mYr9373mY+DdQ +feoNG2yl7miHtfJQwEwQHROyoXVN/TjlA7keA2a1C8+zYbTqR7xXJw+v6Ccc +uuTOBu18vdL/+njoGrgvkt1jAnfbzcOSBni4xC2Eq/PUBGzlNoLuMA+NanOH +za+bwPaTB96GjpHrNR7y4nGQCYzWnMhSnOThI//mCkNnE4j5k+Fb9YeH6+Ka +WY+MTWCxwTWtLdM8nGQkTgYtMYFLgVVjMzPk+g8x5E1njOF/6XrFDA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c81f8XB3CjoqXsS9zlUskq897rOgdRRpKQUSI0lBKSlESUjEKFREZo +GffeTyk0REulIVkNQuorq8yK/D6/vz6P5z+f8X6f9+ucD2PbPid/MRERERNR +EZH/X8c/1z9iJRaaifHcNYvGV5s1XaIcMm+NgQ/asus/cdQA5V9vo7SmAScm +pYnP0Ycwx+st4q0FUJurdi2VYwnSg4ppv1uEwG6R8/TibISOuw77RltqwSnA +qPkW2xesWX2ffrY0QnT09g0axiHwu8X4/HBLF1Q4qTaMah2HOssrhW8LRmB+ +zhcR95dnQaWjsneb1jTMLk0zqJjOBrk9W69LWIpj/vhlIuVRAaSttK52cJHE +0Q7+4pLFV6AtU6/m5+KFuPztO9GzwuuQWBj1WkxJGnP672cwNMvA1mCXjLya +NI5OvV5wy6gMJB85uSzVlkYvJS4PLcsgtlv9g525NMb0XHrC21wGR5gve8/t +kkYlwx/s98llsDeP8k+jirwfzy8/ZKgMNmQLtOw8ZVB/VqTe1pJyUDzXfeps +jixG/ih6Z36CD5QVt2Ini2Vxy4siBUYiH5RrT0Rt4cuimePZxKkzfKAOLz+w +tE4WV9J7Ja9e4IO6fZB39XdZXC88bv62hA/6s6aNuvXl0KNUTW9PIx/Whyr0 +rHouh8qeExE1ygJwnP/9c8Y7OSRkrk6waAJwKqhsm/ooh/aLj6bHqQnA9c3m +10+G5HDlPlE2V0sAW7QuV3nIy6MzJM4J5wlgd49uaoy3PHZOJe833iqAk842 +Zo3j8mibfsX8Ra4AlG++UhYTVUDKQ494iUIBlMk6T6ycr4B7lVyM4aoAmhu9 ++Kk0BWTNFm3I4wuAtSGUuWGtAlpHvn6t9VAAtety57y5oIB/q4792/FFANPW +Y68aTBWx+LxbzS6qEFKKI25MWyuiU+yy6zJMIbDmiMRrb1DEX0GzJirUhWD/ +eJ55sr8ingmuqvypJYQsSzphf1oRX2dGd+lyhWCCdhkvOhTxg2VT7StXIYSw +87fWx1DQvKRfKyNBCLZ5UqN2SRRMmAfc8GQhMCWOxL86T8GNV0OsXVKE8KbJ +VfDuKgWp/GXO4ulC0AlaIP75FQXnUc5t0M0Xwvfig8W/lJXwXmfWzJMKIWyW +cxhYQiihj2r98/HPQtA/XB196a4SyjIrOjZ9EcK8rmUKjCdKuHPA+ffNbiFU +louDRpsS1tdPc32/C0HBrjJFb0YJizvzJVN+ks+PZhlY2SljXtbTxSvECVg9 +9Cdib7cyxhmyynepEXBo7TnNh/3KGKofUGShTkBZvna77LgylsW+aFJcSgDF +2ZtdKbkEG+IfdlZoEtB/5/GEuM4S7A/5VvV0JQFnY1JCL4Qvwascr28GQMCz +D8tZ/dFLMDbH6PpbJGDKoO6dWeISXPfRpCzAgoDt38ZW9eQsQb+j3w6nWhHA +sff8qVO3BJfO+POEdgR0yWvsfbRQBV+ZBLfiJgIU9z1QVVRUwWDR4z/z3Qiw +f+bWsIuugoZiY84z7gRURCRqLdJXwZtWwdNlmwlI6Bjuc3dTwcC3a3q/+BCw +6lr1jqECFfxRV1GcvpuAHWIuihYlKli1/5fg7h4Csj0Hn5y7pYIH3/ZKdwQS +MEeKocF5poI98ysaKUEEtAef6IkdUEG/iQ27vUMJiDbd4KNsoorb/dUz8AgB +a70u/TK2UEW40EfDSAKkjv047mKviv46B/24R8n718UVp3ir4jXXeyz1YwTc +sa36MeeUKjLadHIeHycgao9EJOusKhbIu9IuxxJgfdpZyiJHFUvmUPyPxBHQ +9HZQL1KgimX/goB5koBhN7WwkTZVVCX+s+MmEHA7IkhCukcVD086SEyQPpp9 +L1NnUBXbHkSeLkskYEHnpupdYlQU+7trlnQyAUt3JIl0alLRarlmyeUzBAzG +t6VOG1Bxr+BoNy+FgJvXNdSWABX1aepD70hbDNZYuW6k4oH5T06OpBLgdWAs +4eVhKpotZH8SOUeAeoaFSl8cFdfNH31/6Nz/6+NMqUQKFbP/dt4YJB0xtfyN +RSEV5Te2j7w4T4A59aCPdxkVWzt0dhqkEyCJj35F3qGiwlWr+5mkzx/3kq98 +SUXfl25yLhkEbC66UdzcTMWnPVcUSkkzn04aj3ZS0bLca0YkkwD+vLMeumNU +3M+7HZ9N+qBW5w/7GSouM6hY0UPazEE7MmAuDcXNWyqXXiDgZerT3CJVGmqb +r80uIH2WkFtZt5SG4/dmfrWR9njvU9u5kobvfa6yF2YRwJgo2/iPS8NA1qH9 +pqS/U6Z6lljTkGl5/eIO0uUcmzC2Iw1n44HK06TDNqdLbPKgYUen3EsBadOj +3ZmhfjSk6DxuekNaPE9PM20vDe/vr2v6Qfr5w8jq8nAaRhk5NIhdJCCl+7l9 +QwwNz1gXPZAnvWk25XNfEg1vXp9byiJNXeq/TzKDhuxr99J1SX9dKxTRyKfh +h0ezjhqRLgmYSbW8QcMn1Wp+bNIhSfZqPrdomHbC29aENKfsws2jD8jv3yS2 +Sp/06pZX04PPaJii19CiSdpBZNaarY00HLocOJtG2m05O+X1Bxo2bBmuXkTa +12lvG3yl4bKxbVNT5PvvPXyZyR+kYVXfu6e9pMMLW3fTJ2locNWJ1kD6Ye8J +j2cidDwdNSTOJ219mBF1bDYdja5Xh50h/WLR3csm8+jou7Y+fDdpx0LXZ8NS +dLT1XjF/Nelmk5/9V2XpuOPTmI4Sac+GRGkfCh2JM7yvfeR+dfpoGCmp0nFQ +k6JbSXr7eI3HWwYd262yF8aSDqKNXzZfQUfvmpmkRaTHiJRnv3XpWH9rsd4b +sj4i1q4YEBjQUdxFZ08y6bj93kZMMzomuU8R02S9zZvz16Pdgo75Dl8f8kmn +ZJ2PSltDx4z59oHepLPqnj8T20BH//CF+bfI+qW5+Q9UudDx4YUrKzxJF/bP +SId40DHKz8xtmqz/cnlDz25fOobo9100Jv1oR+5AXRgdg1PUBo6fJcBmii1z +5DAdL3TGXZEi/SqlycjgGB3Ps+YvTE8joK1y7rHCU3S8Ecb4nEWex8H5oTJx +2XT8nEOrPEKe55A8KWNePh3TVIwG+k8TMGlwzXOsiI6bsp+/dyct7vW50L+c +jrMiNOuXk3lA4a81tq6l4yc1FY8CMj9yVnd7/ntCx9LokI2Tp8jz1hZ5rOIF +He3UW+bZkdYWI+o13tMxy+zCnV4yjyycVTdLfKdjTvvCVRNkfu2Z/Hns2UIG +Dhl7l0eS+cfZv12hV4aBqhy3zclkPkr2td8QpzDw4RmB/QUyP4s+1DWbMRmY +fG5wuiiCgM/3z2vdMmLgHuv012lhBKyPY7fmb2XgmobRrGoyn6n/SgMf+DHQ +d2IuppD53R/GFP+0i4EF2okWPmS+x++cr0MJZWDjnQPbJ3cSUGP36fjpeAYe +ysty++tL9gOZaN3DAgZus0r3ciH7h0ji2KPMCgZmt8deHib7zSvxAI+KagbG +TrV4x7sSsHvMKe7nYwYq3Yq3K91I7mcr68OOdgY+7beXblhHgELusxPO4kyc +/bWzy9+cgN8rFn/WdmGidhj0S2oQMJ6jHK3vwcSSyTgdYBEwukidxd7KxP5T +NhjMJPdvhB2wehcTtzeqtb2ikv2v2nfcI5KJGv/ZL96mSOaD3W2p+CImFl+o +VfwlQdbbbi/oGmOiv0L040e9Qsj4tLPr2x8mctwvuWT2COHc+pC4gRkmxn6C +gZ1dQjitH/9icq4afltoxBEl54mYv4JNi6hqeEiPEin1Xgi7E2cHmVqr4ciW +i+ycWiGY3ijJS09XwxOJ23mZF4XwgX4j1+qiGtY1rZrhXhBCRPq1S6O5ahi9 +5c+WT+Q8czu6ONvpmhqG9x+YpKQJYZVbXqbUXTWkzpr3IiReCMtnn0s58UUN +ry/tNqoMJeeTrYePhWmxUHzzxTvJdkL4KWPr7VrLwjyfneeFvwTQuof5JuAp +C7n8FT4JQwKoefIHol6yUCfl+5ut/QJIibhBu9rMQoX5uoXivQLQ61rQ8buP +ha4FCht02wSwV/B6S46sOn5MGYmkPBBA33oXzx4/dcy6828MTgmgJ8nbNVhC +A3+EvJF3UhSAzdBBm69GS/Hp/oNH3XX50O8rGXIzahkSr8P9hNwy8n9CUexk +7XI8cqCgxH9WCcg0aJzmD2ni7R5tC4uea6ASX+5oZKSF81588pZMuwKZK9iL +ZXdoY+yHyuPTe4rgubK54UiqDva2NXaKeF8Gjkptim6zLlqtZiTlmuaDlHhB +qE+MHt4Z3l6iyr8E1GiaqbvGSrQU5vw1aM2CueqbK5yerkQjUaVfHZ4ZoMNT +Kj+4ZRV6cbqX3/A+B8GfZepsRfSxTKeo7MH+VBgaSXKxydRHg7mfDpdOJsMa +3SdZNtoGqPT4m+uqa6fg/gj378QrA4yx3huXfjIO9mqtan/rb4gD9xaNOi6L +Ad6gX5P7XCNUkRoKtv0TCVYsyrqFBUYojbbrs7+Gw7JjCeG1xsYo+vZV6XBu +KGj6sx+otxuj88xPEQ4RBGeYDn+OfzTGOKfGmx+LgmC0Y5th12djvKz0PTQ+ +MwjueyTduNRtjMNpgRJ/I4PAybEjQ3HAGEXk1cftbILgEDcuaK6ICbaXv/63 +sm4fPJN+yxhQN0EJao/RsZV7wf/+ztib+01wBfgrpuJuGAzsO2gVaoKBnHUL +DZfthnDVPbubw0yQPi+j6Mei3ZBwZJ/T5GETvFcRkJrSEQB8Thjd9IQJ6h06 +qnYnKgCmKo7frcsip/wuqyuhdbsgrfzSaGOdCdY2XInf5LYTHuQ1+f2UZ+PC +0gVXgm/5Q6c9Y2sYhY1GXXt1n+X7g8jvQPe/ymz8+HoXU/u0P1hskHCYTWdj +VH4XQ32HPzwR5RgrabKRfbn08Eslf3i5LXeuuRkbr6husx+O9oN2VkBZynY2 +FlcdKrbd4gujV2cmdG+z0aODO7rGzAd6Xa3zTlWyseWKlrulrg+0zkpe213N +xuaTrSts6T5Q7a18Ib2GjRtTV/47JOYDMRRDznQ9GzHYIM3nqTcsjg848vwj +G09ETXnYbvQGrR3vRfzFOPhfo6VpYa8X+KrfmJu1joMDks7LYoo8IeKxV4CG +Iwd9NW+uKU/whBR/mRdCJw76rd/jPLLPE+4WHUp6sYmD8Y6GYw84niCnsXbR +tA8HP1XIpe566wFPNL7KeYdx8Ei/uP6wmAdoLqPRNXI5OJdHPNwc5gY/Nc8a +CYc5iJcz+O4XXaD1JVrJjnDQtF7vueFJF6jZO7gxdIyDdf88zjBDXOC00Ga/ +0R8ORoksHtS2cwFNjkhJlTgXF70XqZo35QzbbAIZdQpcHKkxPdno7QxNO9Ys +aDLl4oDNfVF7o41wp/Dvl7F4LrZOOwqipTaAkWXohG0iF9cuS1Q8/s8Rbn3p +X5CXzMXYxx69qYOOIKR+NrZN4yLrSHhGyytHKMmsSb50kYuEvShPLMUR8pLi +2GvKuJjLeOD4Us4RToUuSs18x8UoVu7sr+sdwGO1GnKppmi4P/Kh6ldbmG6S +lKqjm+J/UcaxsvW2kOc/+MFWzRSD/K3T1EptofdE5UGPZaaYsC6cm3bAFoLr +15cfWmWKL5fyg69I2EKCwxHqHWtTbE4yYeXq2UCV2/spg32mmNsv8lT//BpY +EniyUqfGFAt6a0wvFa6G0zPbDRNrTbHmouom0ZTVIJZmLfj2yBRVpHWkDx5e +DX0Vs6/l1Zvi7R+vl2c5rYYqkdhMmXemuKa2x/me6GrwOHfs4PhX0r39gwG+ +lpBZfcjw/nweZhrwx2b0LWCBg7tAWYqHyi/4jhcZFnCs00T74GIeqs8dOblm +kQXsnD3J0pPnYeukhktjnzkYrw+TK6DyEM4X/CwvMIfmruCRuJU83C5clxAl +bw7y8/YI1m3iYf2CdXflJBAKLSMjht15eL4xa1/6fwCrIk9bnt3Mw+eP5ngu +fwzgMMx/3+rDw/VhJbE1RwBONI/99t3Dw69NJVv5A2YwWRBlERHNw2+vGvaE +N/OgnXv2XfENHs6LO/ihppYLOw8UZtuU8fDTVd9VNwq4MF52y7+fz0ObJcke +t2O4IMNsnVhZwcPupzfzDCy5YCepqnKvhoelXfsyHzzmwN2mYr9373mY+DdQ +feoNG2yl7miHtfJQwEwQHROyoXVN/TjlA7keA2a1C8+zYbTqR7xXJw+v6Ccc +uuTOBu18vdL/+njoGrgvkt1jAnfbzcOSBni4xC2Eq/PUBGzlNoLuMA+NanOH +za+bwPaTB96GjpHrNR7y4nGQCYzWnMhSnOThI//mCkNnE4j5k+Fb9YeH6+Ka +WY+MTWCxwTWtLdM8nGQkTgYtMYFLgVVjMzPk+g8x5E1njOF/6XrFDA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07658728308500348}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07658728308500348}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c81f8XB3CjoqXsS9zlUskq897rOgdRRpKQUSI0lBKSlESUjEKFREZo +GffeTyk0REulIVkNQuorq8yK/D6/vz6P5z+f8X6f9+ucD2PbPid/MRERERNR +EZH/X8c/1z9iJRaaifHcNYvGV5s1XaIcMm+NgQ/asus/cdQA5V9vo7SmAScm +pYnP0Ycwx+st4q0FUJurdi2VYwnSg4ppv1uEwG6R8/TibISOuw77RltqwSnA +qPkW2xesWX2ffrY0QnT09g0axiHwu8X4/HBLF1Q4qTaMah2HOssrhW8LRmB+ +zhcR95dnQaWjsneb1jTMLk0zqJjOBrk9W69LWIpj/vhlIuVRAaSttK52cJHE +0Q7+4pLFV6AtU6/m5+KFuPztO9GzwuuQWBj1WkxJGnP672cwNMvA1mCXjLya +NI5OvV5wy6gMJB85uSzVlkYvJS4PLcsgtlv9g525NMb0XHrC21wGR5gve8/t +kkYlwx/s98llsDeP8k+jirwfzy8/ZKgMNmQLtOw8ZVB/VqTe1pJyUDzXfeps +jixG/ih6Z36CD5QVt2Ini2Vxy4siBUYiH5RrT0Rt4cuimePZxKkzfKAOLz+w +tE4WV9J7Ja9e4IO6fZB39XdZXC88bv62hA/6s6aNuvXl0KNUTW9PIx/Whyr0 +rHouh8qeExE1ygJwnP/9c8Y7OSRkrk6waAJwKqhsm/ooh/aLj6bHqQnA9c3m +10+G5HDlPlE2V0sAW7QuV3nIy6MzJM4J5wlgd49uaoy3PHZOJe833iqAk842 +Zo3j8mibfsX8Ra4AlG++UhYTVUDKQ494iUIBlMk6T6ycr4B7lVyM4aoAmhu9 ++Kk0BWTNFm3I4wuAtSGUuWGtAlpHvn6t9VAAtety57y5oIB/q4792/FFANPW +Y68aTBWx+LxbzS6qEFKKI25MWyuiU+yy6zJMIbDmiMRrb1DEX0GzJirUhWD/ +eJ55sr8ingmuqvypJYQsSzphf1oRX2dGd+lyhWCCdhkvOhTxg2VT7StXIYSw +87fWx1DQvKRfKyNBCLZ5UqN2SRRMmAfc8GQhMCWOxL86T8GNV0OsXVKE8KbJ +VfDuKgWp/GXO4ulC0AlaIP75FQXnUc5t0M0Xwvfig8W/lJXwXmfWzJMKIWyW +cxhYQiihj2r98/HPQtA/XB196a4SyjIrOjZ9EcK8rmUKjCdKuHPA+ffNbiFU +louDRpsS1tdPc32/C0HBrjJFb0YJizvzJVN+ks+PZhlY2SljXtbTxSvECVg9 +9Cdib7cyxhmyynepEXBo7TnNh/3KGKofUGShTkBZvna77LgylsW+aFJcSgDF +2ZtdKbkEG+IfdlZoEtB/5/GEuM4S7A/5VvV0JQFnY1JCL4Qvwascr28GQMCz +D8tZ/dFLMDbH6PpbJGDKoO6dWeISXPfRpCzAgoDt38ZW9eQsQb+j3w6nWhHA +sff8qVO3BJfO+POEdgR0yWvsfbRQBV+ZBLfiJgIU9z1QVVRUwWDR4z/z3Qiw +f+bWsIuugoZiY84z7gRURCRqLdJXwZtWwdNlmwlI6Bjuc3dTwcC3a3q/+BCw +6lr1jqECFfxRV1GcvpuAHWIuihYlKli1/5fg7h4Csj0Hn5y7pYIH3/ZKdwQS +MEeKocF5poI98ysaKUEEtAef6IkdUEG/iQ27vUMJiDbd4KNsoorb/dUz8AgB +a70u/TK2UEW40EfDSAKkjv047mKviv46B/24R8n718UVp3ir4jXXeyz1YwTc +sa36MeeUKjLadHIeHycgao9EJOusKhbIu9IuxxJgfdpZyiJHFUvmUPyPxBHQ +9HZQL1KgimX/goB5koBhN7WwkTZVVCX+s+MmEHA7IkhCukcVD086SEyQPpp9 +L1NnUBXbHkSeLkskYEHnpupdYlQU+7trlnQyAUt3JIl0alLRarlmyeUzBAzG +t6VOG1Bxr+BoNy+FgJvXNdSWABX1aepD70hbDNZYuW6k4oH5T06OpBLgdWAs +4eVhKpotZH8SOUeAeoaFSl8cFdfNH31/6Nz/6+NMqUQKFbP/dt4YJB0xtfyN +RSEV5Te2j7w4T4A59aCPdxkVWzt0dhqkEyCJj35F3qGiwlWr+5mkzx/3kq98 +SUXfl25yLhkEbC66UdzcTMWnPVcUSkkzn04aj3ZS0bLca0YkkwD+vLMeumNU +3M+7HZ9N+qBW5w/7GSouM6hY0UPazEE7MmAuDcXNWyqXXiDgZerT3CJVGmqb +r80uIH2WkFtZt5SG4/dmfrWR9njvU9u5kobvfa6yF2YRwJgo2/iPS8NA1qH9 +pqS/U6Z6lljTkGl5/eIO0uUcmzC2Iw1n44HK06TDNqdLbPKgYUen3EsBadOj +3ZmhfjSk6DxuekNaPE9PM20vDe/vr2v6Qfr5w8jq8nAaRhk5NIhdJCCl+7l9 +QwwNz1gXPZAnvWk25XNfEg1vXp9byiJNXeq/TzKDhuxr99J1SX9dKxTRyKfh +h0ezjhqRLgmYSbW8QcMn1Wp+bNIhSfZqPrdomHbC29aENKfsws2jD8jv3yS2 +Sp/06pZX04PPaJii19CiSdpBZNaarY00HLocOJtG2m05O+X1Bxo2bBmuXkTa +12lvG3yl4bKxbVNT5PvvPXyZyR+kYVXfu6e9pMMLW3fTJ2locNWJ1kD6Ye8J +j2cidDwdNSTOJ219mBF1bDYdja5Xh50h/WLR3csm8+jou7Y+fDdpx0LXZ8NS +dLT1XjF/Nelmk5/9V2XpuOPTmI4Sac+GRGkfCh2JM7yvfeR+dfpoGCmp0nFQ +k6JbSXr7eI3HWwYd262yF8aSDqKNXzZfQUfvmpmkRaTHiJRnv3XpWH9rsd4b +sj4i1q4YEBjQUdxFZ08y6bj93kZMMzomuU8R02S9zZvz16Pdgo75Dl8f8kmn +ZJ2PSltDx4z59oHepLPqnj8T20BH//CF+bfI+qW5+Q9UudDx4YUrKzxJF/bP +SId40DHKz8xtmqz/cnlDz25fOobo9100Jv1oR+5AXRgdg1PUBo6fJcBmii1z +5DAdL3TGXZEi/SqlycjgGB3Ps+YvTE8joK1y7rHCU3S8Ecb4nEWex8H5oTJx +2XT8nEOrPEKe55A8KWNePh3TVIwG+k8TMGlwzXOsiI6bsp+/dyct7vW50L+c +jrMiNOuXk3lA4a81tq6l4yc1FY8CMj9yVnd7/ntCx9LokI2Tp8jz1hZ5rOIF +He3UW+bZkdYWI+o13tMxy+zCnV4yjyycVTdLfKdjTvvCVRNkfu2Z/Hns2UIG +Dhl7l0eS+cfZv12hV4aBqhy3zclkPkr2td8QpzDw4RmB/QUyP4s+1DWbMRmY +fG5wuiiCgM/3z2vdMmLgHuv012lhBKyPY7fmb2XgmobRrGoyn6n/SgMf+DHQ +d2IuppD53R/GFP+0i4EF2okWPmS+x++cr0MJZWDjnQPbJ3cSUGP36fjpeAYe +ysty++tL9gOZaN3DAgZus0r3ciH7h0ji2KPMCgZmt8deHib7zSvxAI+KagbG +TrV4x7sSsHvMKe7nYwYq3Yq3K91I7mcr68OOdgY+7beXblhHgELusxPO4kyc +/bWzy9+cgN8rFn/WdmGidhj0S2oQMJ6jHK3vwcSSyTgdYBEwukidxd7KxP5T +NhjMJPdvhB2wehcTtzeqtb2ikv2v2nfcI5KJGv/ZL96mSOaD3W2p+CImFl+o +VfwlQdbbbi/oGmOiv0L040e9Qsj4tLPr2x8mctwvuWT2COHc+pC4gRkmxn6C +gZ1dQjitH/9icq4afltoxBEl54mYv4JNi6hqeEiPEin1Xgi7E2cHmVqr4ciW +i+ycWiGY3ijJS09XwxOJ23mZF4XwgX4j1+qiGtY1rZrhXhBCRPq1S6O5ahi9 +5c+WT+Q8czu6ONvpmhqG9x+YpKQJYZVbXqbUXTWkzpr3IiReCMtnn0s58UUN +ry/tNqoMJeeTrYePhWmxUHzzxTvJdkL4KWPr7VrLwjyfneeFvwTQuof5JuAp +C7n8FT4JQwKoefIHol6yUCfl+5ut/QJIibhBu9rMQoX5uoXivQLQ61rQ8buP +ha4FCht02wSwV/B6S46sOn5MGYmkPBBA33oXzx4/dcy6828MTgmgJ8nbNVhC +A3+EvJF3UhSAzdBBm69GS/Hp/oNH3XX50O8rGXIzahkSr8P9hNwy8n9CUexk +7XI8cqCgxH9WCcg0aJzmD2ni7R5tC4uea6ASX+5oZKSF81588pZMuwKZK9iL +ZXdoY+yHyuPTe4rgubK54UiqDva2NXaKeF8Gjkptim6zLlqtZiTlmuaDlHhB +qE+MHt4Z3l6iyr8E1GiaqbvGSrQU5vw1aM2CueqbK5yerkQjUaVfHZ4ZoMNT +Kj+4ZRV6cbqX3/A+B8GfZepsRfSxTKeo7MH+VBgaSXKxydRHg7mfDpdOJsMa +3SdZNtoGqPT4m+uqa6fg/gj378QrA4yx3huXfjIO9mqtan/rb4gD9xaNOi6L +Ad6gX5P7XCNUkRoKtv0TCVYsyrqFBUYojbbrs7+Gw7JjCeG1xsYo+vZV6XBu +KGj6sx+otxuj88xPEQ4RBGeYDn+OfzTGOKfGmx+LgmC0Y5th12djvKz0PTQ+ +MwjueyTduNRtjMNpgRJ/I4PAybEjQ3HAGEXk1cftbILgEDcuaK6ICbaXv/63 +sm4fPJN+yxhQN0EJao/RsZV7wf/+ztib+01wBfgrpuJuGAzsO2gVaoKBnHUL +DZfthnDVPbubw0yQPi+j6Mei3ZBwZJ/T5GETvFcRkJrSEQB8Thjd9IQJ6h06 +qnYnKgCmKo7frcsip/wuqyuhdbsgrfzSaGOdCdY2XInf5LYTHuQ1+f2UZ+PC +0gVXgm/5Q6c9Y2sYhY1GXXt1n+X7g8jvQPe/ymz8+HoXU/u0P1hskHCYTWdj +VH4XQ32HPzwR5RgrabKRfbn08Eslf3i5LXeuuRkbr6husx+O9oN2VkBZynY2 +FlcdKrbd4gujV2cmdG+z0aODO7rGzAd6Xa3zTlWyseWKlrulrg+0zkpe213N +xuaTrSts6T5Q7a18Ib2GjRtTV/47JOYDMRRDznQ9GzHYIM3nqTcsjg848vwj +G09ETXnYbvQGrR3vRfzFOPhfo6VpYa8X+KrfmJu1joMDks7LYoo8IeKxV4CG +Iwd9NW+uKU/whBR/mRdCJw76rd/jPLLPE+4WHUp6sYmD8Y6GYw84niCnsXbR +tA8HP1XIpe566wFPNL7KeYdx8Ei/uP6wmAdoLqPRNXI5OJdHPNwc5gY/Nc8a +CYc5iJcz+O4XXaD1JVrJjnDQtF7vueFJF6jZO7gxdIyDdf88zjBDXOC00Ga/ +0R8ORoksHtS2cwFNjkhJlTgXF70XqZo35QzbbAIZdQpcHKkxPdno7QxNO9Ys +aDLl4oDNfVF7o41wp/Dvl7F4LrZOOwqipTaAkWXohG0iF9cuS1Q8/s8Rbn3p +X5CXzMXYxx69qYOOIKR+NrZN4yLrSHhGyytHKMmsSb50kYuEvShPLMUR8pLi +2GvKuJjLeOD4Us4RToUuSs18x8UoVu7sr+sdwGO1GnKppmi4P/Kh6ldbmG6S +lKqjm+J/UcaxsvW2kOc/+MFWzRSD/K3T1EptofdE5UGPZaaYsC6cm3bAFoLr +15cfWmWKL5fyg69I2EKCwxHqHWtTbE4yYeXq2UCV2/spg32mmNsv8lT//BpY +EniyUqfGFAt6a0wvFa6G0zPbDRNrTbHmouom0ZTVIJZmLfj2yBRVpHWkDx5e +DX0Vs6/l1Zvi7R+vl2c5rYYqkdhMmXemuKa2x/me6GrwOHfs4PhX0r39gwG+ +lpBZfcjw/nweZhrwx2b0LWCBg7tAWYqHyi/4jhcZFnCs00T74GIeqs8dOblm +kQXsnD3J0pPnYeukhktjnzkYrw+TK6DyEM4X/CwvMIfmruCRuJU83C5clxAl +bw7y8/YI1m3iYf2CdXflJBAKLSMjht15eL4xa1/6fwCrIk9bnt3Mw+eP5ngu +fwzgMMx/3+rDw/VhJbE1RwBONI/99t3Dw69NJVv5A2YwWRBlERHNw2+vGvaE +N/OgnXv2XfENHs6LO/ihppYLOw8UZtuU8fDTVd9VNwq4MF52y7+fz0ObJcke +t2O4IMNsnVhZwcPupzfzDCy5YCepqnKvhoelXfsyHzzmwN2mYr9373mY+DdQ +feoNG2yl7miHtfJQwEwQHROyoXVN/TjlA7keA2a1C8+zYbTqR7xXJw+v6Ccc +uuTOBu18vdL/+njoGrgvkt1jAnfbzcOSBni4xC2Eq/PUBGzlNoLuMA+NanOH +za+bwPaTB96GjpHrNR7y4nGQCYzWnMhSnOThI//mCkNnE4j5k+Fb9YeH6+Ka +WY+MTWCxwTWtLdM8nGQkTgYtMYFLgVVjMzPk+g8x5E1njOF/6XrFDA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07658728308500348}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07658728308500348}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9942603097684393`*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"0a310f0c-8048-4ae6-9497-b0e2c582cc8d"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"2335a158-7588-4c40-bdb5-\ -53b7ef04b97c"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c81f8XB3CjoqXsS9zlUskq897rOgdRRpKQUSI0lBKSlESUjEKFREZo +GffeTyk0REulIVkNQuorq8yK/D6/vz6P5z+f8X6f9+ucD2PbPid/MRERERNR +EZH/X8c/1z9iJRaaifHcNYvGV5s1XaIcMm+NgQ/asus/cdQA5V9vo7SmAScm +pYnP0Ycwx+st4q0FUJurdi2VYwnSg4ppv1uEwG6R8/TibISOuw77RltqwSnA +qPkW2xesWX2ffrY0QnT09g0axiHwu8X4/HBLF1Q4qTaMah2HOssrhW8LRmB+ +zhcR95dnQaWjsneb1jTMLk0zqJjOBrk9W69LWIpj/vhlIuVRAaSttK52cJHE +0Q7+4pLFV6AtU6/m5+KFuPztO9GzwuuQWBj1WkxJGnP672cwNMvA1mCXjLya +NI5OvV5wy6gMJB85uSzVlkYvJS4PLcsgtlv9g525NMb0XHrC21wGR5gve8/t +kkYlwx/s98llsDeP8k+jirwfzy8/ZKgMNmQLtOw8ZVB/VqTe1pJyUDzXfeps +jixG/ih6Z36CD5QVt2Ini2Vxy4siBUYiH5RrT0Rt4cuimePZxKkzfKAOLz+w +tE4WV9J7Ja9e4IO6fZB39XdZXC88bv62hA/6s6aNuvXl0KNUTW9PIx/Whyr0 +rHouh8qeExE1ygJwnP/9c8Y7OSRkrk6waAJwKqhsm/ooh/aLj6bHqQnA9c3m +10+G5HDlPlE2V0sAW7QuV3nIy6MzJM4J5wlgd49uaoy3PHZOJe833iqAk842 +Zo3j8mibfsX8Ra4AlG++UhYTVUDKQ494iUIBlMk6T6ycr4B7lVyM4aoAmhu9 ++Kk0BWTNFm3I4wuAtSGUuWGtAlpHvn6t9VAAtety57y5oIB/q4792/FFANPW +Y68aTBWx+LxbzS6qEFKKI25MWyuiU+yy6zJMIbDmiMRrb1DEX0GzJirUhWD/ +eJ55sr8ingmuqvypJYQsSzphf1oRX2dGd+lyhWCCdhkvOhTxg2VT7StXIYSw +87fWx1DQvKRfKyNBCLZ5UqN2SRRMmAfc8GQhMCWOxL86T8GNV0OsXVKE8KbJ +VfDuKgWp/GXO4ulC0AlaIP75FQXnUc5t0M0Xwvfig8W/lJXwXmfWzJMKIWyW +cxhYQiihj2r98/HPQtA/XB196a4SyjIrOjZ9EcK8rmUKjCdKuHPA+ffNbiFU +louDRpsS1tdPc32/C0HBrjJFb0YJizvzJVN+ks+PZhlY2SljXtbTxSvECVg9 +9Cdib7cyxhmyynepEXBo7TnNh/3KGKofUGShTkBZvna77LgylsW+aFJcSgDF +2ZtdKbkEG+IfdlZoEtB/5/GEuM4S7A/5VvV0JQFnY1JCL4Qvwascr28GQMCz +D8tZ/dFLMDbH6PpbJGDKoO6dWeISXPfRpCzAgoDt38ZW9eQsQb+j3w6nWhHA +sff8qVO3BJfO+POEdgR0yWvsfbRQBV+ZBLfiJgIU9z1QVVRUwWDR4z/z3Qiw +f+bWsIuugoZiY84z7gRURCRqLdJXwZtWwdNlmwlI6Bjuc3dTwcC3a3q/+BCw +6lr1jqECFfxRV1GcvpuAHWIuihYlKli1/5fg7h4Csj0Hn5y7pYIH3/ZKdwQS +MEeKocF5poI98ysaKUEEtAef6IkdUEG/iQ27vUMJiDbd4KNsoorb/dUz8AgB +a70u/TK2UEW40EfDSAKkjv047mKviv46B/24R8n718UVp3ir4jXXeyz1YwTc +sa36MeeUKjLadHIeHycgao9EJOusKhbIu9IuxxJgfdpZyiJHFUvmUPyPxBHQ +9HZQL1KgimX/goB5koBhN7WwkTZVVCX+s+MmEHA7IkhCukcVD086SEyQPpp9 +L1NnUBXbHkSeLkskYEHnpupdYlQU+7trlnQyAUt3JIl0alLRarlmyeUzBAzG +t6VOG1Bxr+BoNy+FgJvXNdSWABX1aepD70hbDNZYuW6k4oH5T06OpBLgdWAs +4eVhKpotZH8SOUeAeoaFSl8cFdfNH31/6Nz/6+NMqUQKFbP/dt4YJB0xtfyN +RSEV5Te2j7w4T4A59aCPdxkVWzt0dhqkEyCJj35F3qGiwlWr+5mkzx/3kq98 +SUXfl25yLhkEbC66UdzcTMWnPVcUSkkzn04aj3ZS0bLca0YkkwD+vLMeumNU +3M+7HZ9N+qBW5w/7GSouM6hY0UPazEE7MmAuDcXNWyqXXiDgZerT3CJVGmqb +r80uIH2WkFtZt5SG4/dmfrWR9njvU9u5kobvfa6yF2YRwJgo2/iPS8NA1qH9 +pqS/U6Z6lljTkGl5/eIO0uUcmzC2Iw1n44HK06TDNqdLbPKgYUen3EsBadOj +3ZmhfjSk6DxuekNaPE9PM20vDe/vr2v6Qfr5w8jq8nAaRhk5NIhdJCCl+7l9 +QwwNz1gXPZAnvWk25XNfEg1vXp9byiJNXeq/TzKDhuxr99J1SX9dKxTRyKfh +h0ezjhqRLgmYSbW8QcMn1Wp+bNIhSfZqPrdomHbC29aENKfsws2jD8jv3yS2 +Sp/06pZX04PPaJii19CiSdpBZNaarY00HLocOJtG2m05O+X1Bxo2bBmuXkTa +12lvG3yl4bKxbVNT5PvvPXyZyR+kYVXfu6e9pMMLW3fTJ2locNWJ1kD6Ye8J +j2cidDwdNSTOJ219mBF1bDYdja5Xh50h/WLR3csm8+jou7Y+fDdpx0LXZ8NS +dLT1XjF/Nelmk5/9V2XpuOPTmI4Sac+GRGkfCh2JM7yvfeR+dfpoGCmp0nFQ +k6JbSXr7eI3HWwYd262yF8aSDqKNXzZfQUfvmpmkRaTHiJRnv3XpWH9rsd4b +sj4i1q4YEBjQUdxFZ08y6bj93kZMMzomuU8R02S9zZvz16Pdgo75Dl8f8kmn +ZJ2PSltDx4z59oHepLPqnj8T20BH//CF+bfI+qW5+Q9UudDx4YUrKzxJF/bP +SId40DHKz8xtmqz/cnlDz25fOobo9100Jv1oR+5AXRgdg1PUBo6fJcBmii1z +5DAdL3TGXZEi/SqlycjgGB3Ps+YvTE8joK1y7rHCU3S8Ecb4nEWex8H5oTJx +2XT8nEOrPEKe55A8KWNePh3TVIwG+k8TMGlwzXOsiI6bsp+/dyct7vW50L+c +jrMiNOuXk3lA4a81tq6l4yc1FY8CMj9yVnd7/ntCx9LokI2Tp8jz1hZ5rOIF +He3UW+bZkdYWI+o13tMxy+zCnV4yjyycVTdLfKdjTvvCVRNkfu2Z/Hns2UIG +Dhl7l0eS+cfZv12hV4aBqhy3zclkPkr2td8QpzDw4RmB/QUyP4s+1DWbMRmY +fG5wuiiCgM/3z2vdMmLgHuv012lhBKyPY7fmb2XgmobRrGoyn6n/SgMf+DHQ +d2IuppD53R/GFP+0i4EF2okWPmS+x++cr0MJZWDjnQPbJ3cSUGP36fjpeAYe +ysty++tL9gOZaN3DAgZus0r3ciH7h0ji2KPMCgZmt8deHib7zSvxAI+KagbG +TrV4x7sSsHvMKe7nYwYq3Yq3K91I7mcr68OOdgY+7beXblhHgELusxPO4kyc +/bWzy9+cgN8rFn/WdmGidhj0S2oQMJ6jHK3vwcSSyTgdYBEwukidxd7KxP5T +NhjMJPdvhB2wehcTtzeqtb2ikv2v2nfcI5KJGv/ZL96mSOaD3W2p+CImFl+o +VfwlQdbbbi/oGmOiv0L040e9Qsj4tLPr2x8mctwvuWT2COHc+pC4gRkmxn6C +gZ1dQjitH/9icq4afltoxBEl54mYv4JNi6hqeEiPEin1Xgi7E2cHmVqr4ciW +i+ycWiGY3ijJS09XwxOJ23mZF4XwgX4j1+qiGtY1rZrhXhBCRPq1S6O5ahi9 +5c+WT+Q8czu6ONvpmhqG9x+YpKQJYZVbXqbUXTWkzpr3IiReCMtnn0s58UUN +ry/tNqoMJeeTrYePhWmxUHzzxTvJdkL4KWPr7VrLwjyfneeFvwTQuof5JuAp +C7n8FT4JQwKoefIHol6yUCfl+5ut/QJIibhBu9rMQoX5uoXivQLQ61rQ8buP +ha4FCht02wSwV/B6S46sOn5MGYmkPBBA33oXzx4/dcy6828MTgmgJ8nbNVhC +A3+EvJF3UhSAzdBBm69GS/Hp/oNH3XX50O8rGXIzahkSr8P9hNwy8n9CUexk +7XI8cqCgxH9WCcg0aJzmD2ni7R5tC4uea6ASX+5oZKSF81588pZMuwKZK9iL +ZXdoY+yHyuPTe4rgubK54UiqDva2NXaKeF8Gjkptim6zLlqtZiTlmuaDlHhB +qE+MHt4Z3l6iyr8E1GiaqbvGSrQU5vw1aM2CueqbK5yerkQjUaVfHZ4ZoMNT +Kj+4ZRV6cbqX3/A+B8GfZepsRfSxTKeo7MH+VBgaSXKxydRHg7mfDpdOJsMa +3SdZNtoGqPT4m+uqa6fg/gj378QrA4yx3huXfjIO9mqtan/rb4gD9xaNOi6L +Ad6gX5P7XCNUkRoKtv0TCVYsyrqFBUYojbbrs7+Gw7JjCeG1xsYo+vZV6XBu +KGj6sx+otxuj88xPEQ4RBGeYDn+OfzTGOKfGmx+LgmC0Y5th12djvKz0PTQ+ +MwjueyTduNRtjMNpgRJ/I4PAybEjQ3HAGEXk1cftbILgEDcuaK6ICbaXv/63 +sm4fPJN+yxhQN0EJao/RsZV7wf/+ztib+01wBfgrpuJuGAzsO2gVaoKBnHUL +DZfthnDVPbubw0yQPi+j6Mei3ZBwZJ/T5GETvFcRkJrSEQB8Thjd9IQJ6h06 +qnYnKgCmKo7frcsip/wuqyuhdbsgrfzSaGOdCdY2XInf5LYTHuQ1+f2UZ+PC +0gVXgm/5Q6c9Y2sYhY1GXXt1n+X7g8jvQPe/ymz8+HoXU/u0P1hskHCYTWdj +VH4XQ32HPzwR5RgrabKRfbn08Eslf3i5LXeuuRkbr6husx+O9oN2VkBZynY2 +FlcdKrbd4gujV2cmdG+z0aODO7rGzAd6Xa3zTlWyseWKlrulrg+0zkpe213N +xuaTrSts6T5Q7a18Ib2GjRtTV/47JOYDMRRDznQ9GzHYIM3nqTcsjg848vwj +G09ETXnYbvQGrR3vRfzFOPhfo6VpYa8X+KrfmJu1joMDks7LYoo8IeKxV4CG +Iwd9NW+uKU/whBR/mRdCJw76rd/jPLLPE+4WHUp6sYmD8Y6GYw84niCnsXbR +tA8HP1XIpe566wFPNL7KeYdx8Ei/uP6wmAdoLqPRNXI5OJdHPNwc5gY/Nc8a +CYc5iJcz+O4XXaD1JVrJjnDQtF7vueFJF6jZO7gxdIyDdf88zjBDXOC00Ga/ +0R8ORoksHtS2cwFNjkhJlTgXF70XqZo35QzbbAIZdQpcHKkxPdno7QxNO9Ys +aDLl4oDNfVF7o41wp/Dvl7F4LrZOOwqipTaAkWXohG0iF9cuS1Q8/s8Rbn3p +X5CXzMXYxx69qYOOIKR+NrZN4yLrSHhGyytHKMmsSb50kYuEvShPLMUR8pLi +2GvKuJjLeOD4Us4RToUuSs18x8UoVu7sr+sdwGO1GnKppmi4P/Kh6ldbmG6S +lKqjm+J/UcaxsvW2kOc/+MFWzRSD/K3T1EptofdE5UGPZaaYsC6cm3bAFoLr +15cfWmWKL5fyg69I2EKCwxHqHWtTbE4yYeXq2UCV2/spg32mmNsv8lT//BpY +EniyUqfGFAt6a0wvFa6G0zPbDRNrTbHmouom0ZTVIJZmLfj2yBRVpHWkDx5e +DX0Vs6/l1Zvi7R+vl2c5rYYqkdhMmXemuKa2x/me6GrwOHfs4PhX0r39gwG+ +lpBZfcjw/nweZhrwx2b0LWCBg7tAWYqHyi/4jhcZFnCs00T74GIeqs8dOblm +kQXsnD3J0pPnYeukhktjnzkYrw+TK6DyEM4X/CwvMIfmruCRuJU83C5clxAl +bw7y8/YI1m3iYf2CdXflJBAKLSMjht15eL4xa1/6fwCrIk9bnt3Mw+eP5ngu +fwzgMMx/3+rDw/VhJbE1RwBONI/99t3Dw69NJVv5A2YwWRBlERHNw2+vGvaE +N/OgnXv2XfENHs6LO/ihppYLOw8UZtuU8fDTVd9VNwq4MF52y7+fz0ObJcke +t2O4IMNsnVhZwcPupzfzDCy5YCepqnKvhoelXfsyHzzmwN2mYr9373mY+DdQ +feoNG2yl7miHtfJQwEwQHROyoXVN/TjlA7keA2a1C8+zYbTqR7xXJw+v6Ccc +uuTOBu18vdL/+njoGrgvkt1jAnfbzcOSBni4xC2Eq/PUBGzlNoLuMA+NanOH +za+bwPaTB96GjpHrNR7y4nGQCYzWnMhSnOThI//mCkNnE4j5k+Fb9YeH6+Ka +WY+MTWCxwTWtLdM8nGQkTgYtMYFLgVVjMzPk+g8x5E1njOF/6XrFDA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c81f8XB3CjoqXsS9zlUskq897rOgdRRpKQUSI0lBKSlESUjEKFREZo +GffeTyk0REulIVkNQuorq8yK/D6/vz6P5z+f8X6f9+ucD2PbPid/MRERERNR +EZH/X8c/1z9iJRaaifHcNYvGV5s1XaIcMm+NgQ/asus/cdQA5V9vo7SmAScm +pYnP0Ycwx+st4q0FUJurdi2VYwnSg4ppv1uEwG6R8/TibISOuw77RltqwSnA +qPkW2xesWX2ffrY0QnT09g0axiHwu8X4/HBLF1Q4qTaMah2HOssrhW8LRmB+ +zhcR95dnQaWjsneb1jTMLk0zqJjOBrk9W69LWIpj/vhlIuVRAaSttK52cJHE +0Q7+4pLFV6AtU6/m5+KFuPztO9GzwuuQWBj1WkxJGnP672cwNMvA1mCXjLya +NI5OvV5wy6gMJB85uSzVlkYvJS4PLcsgtlv9g525NMb0XHrC21wGR5gve8/t +kkYlwx/s98llsDeP8k+jirwfzy8/ZKgMNmQLtOw8ZVB/VqTe1pJyUDzXfeps +jixG/ih6Z36CD5QVt2Ini2Vxy4siBUYiH5RrT0Rt4cuimePZxKkzfKAOLz+w +tE4WV9J7Ja9e4IO6fZB39XdZXC88bv62hA/6s6aNuvXl0KNUTW9PIx/Whyr0 +rHouh8qeExE1ygJwnP/9c8Y7OSRkrk6waAJwKqhsm/ooh/aLj6bHqQnA9c3m +10+G5HDlPlE2V0sAW7QuV3nIy6MzJM4J5wlgd49uaoy3PHZOJe833iqAk842 +Zo3j8mibfsX8Ra4AlG++UhYTVUDKQ494iUIBlMk6T6ycr4B7lVyM4aoAmhu9 ++Kk0BWTNFm3I4wuAtSGUuWGtAlpHvn6t9VAAtety57y5oIB/q4792/FFANPW +Y68aTBWx+LxbzS6qEFKKI25MWyuiU+yy6zJMIbDmiMRrb1DEX0GzJirUhWD/ +eJ55sr8ingmuqvypJYQsSzphf1oRX2dGd+lyhWCCdhkvOhTxg2VT7StXIYSw +87fWx1DQvKRfKyNBCLZ5UqN2SRRMmAfc8GQhMCWOxL86T8GNV0OsXVKE8KbJ +VfDuKgWp/GXO4ulC0AlaIP75FQXnUc5t0M0Xwvfig8W/lJXwXmfWzJMKIWyW +cxhYQiihj2r98/HPQtA/XB196a4SyjIrOjZ9EcK8rmUKjCdKuHPA+ffNbiFU +louDRpsS1tdPc32/C0HBrjJFb0YJizvzJVN+ks+PZhlY2SljXtbTxSvECVg9 +9Cdib7cyxhmyynepEXBo7TnNh/3KGKofUGShTkBZvna77LgylsW+aFJcSgDF +2ZtdKbkEG+IfdlZoEtB/5/GEuM4S7A/5VvV0JQFnY1JCL4Qvwascr28GQMCz +D8tZ/dFLMDbH6PpbJGDKoO6dWeISXPfRpCzAgoDt38ZW9eQsQb+j3w6nWhHA +sff8qVO3BJfO+POEdgR0yWvsfbRQBV+ZBLfiJgIU9z1QVVRUwWDR4z/z3Qiw +f+bWsIuugoZiY84z7gRURCRqLdJXwZtWwdNlmwlI6Bjuc3dTwcC3a3q/+BCw +6lr1jqECFfxRV1GcvpuAHWIuihYlKli1/5fg7h4Csj0Hn5y7pYIH3/ZKdwQS +MEeKocF5poI98ysaKUEEtAef6IkdUEG/iQ27vUMJiDbd4KNsoorb/dUz8AgB +a70u/TK2UEW40EfDSAKkjv047mKviv46B/24R8n718UVp3ir4jXXeyz1YwTc +sa36MeeUKjLadHIeHycgao9EJOusKhbIu9IuxxJgfdpZyiJHFUvmUPyPxBHQ +9HZQL1KgimX/goB5koBhN7WwkTZVVCX+s+MmEHA7IkhCukcVD086SEyQPpp9 +L1NnUBXbHkSeLkskYEHnpupdYlQU+7trlnQyAUt3JIl0alLRarlmyeUzBAzG +t6VOG1Bxr+BoNy+FgJvXNdSWABX1aepD70hbDNZYuW6k4oH5T06OpBLgdWAs +4eVhKpotZH8SOUeAeoaFSl8cFdfNH31/6Nz/6+NMqUQKFbP/dt4YJB0xtfyN +RSEV5Te2j7w4T4A59aCPdxkVWzt0dhqkEyCJj35F3qGiwlWr+5mkzx/3kq98 +SUXfl25yLhkEbC66UdzcTMWnPVcUSkkzn04aj3ZS0bLca0YkkwD+vLMeumNU +3M+7HZ9N+qBW5w/7GSouM6hY0UPazEE7MmAuDcXNWyqXXiDgZerT3CJVGmqb +r80uIH2WkFtZt5SG4/dmfrWR9njvU9u5kobvfa6yF2YRwJgo2/iPS8NA1qH9 +pqS/U6Z6lljTkGl5/eIO0uUcmzC2Iw1n44HK06TDNqdLbPKgYUen3EsBadOj +3ZmhfjSk6DxuekNaPE9PM20vDe/vr2v6Qfr5w8jq8nAaRhk5NIhdJCCl+7l9 +QwwNz1gXPZAnvWk25XNfEg1vXp9byiJNXeq/TzKDhuxr99J1SX9dKxTRyKfh +h0ezjhqRLgmYSbW8QcMn1Wp+bNIhSfZqPrdomHbC29aENKfsws2jD8jv3yS2 +Sp/06pZX04PPaJii19CiSdpBZNaarY00HLocOJtG2m05O+X1Bxo2bBmuXkTa +12lvG3yl4bKxbVNT5PvvPXyZyR+kYVXfu6e9pMMLW3fTJ2locNWJ1kD6Ye8J +j2cidDwdNSTOJ219mBF1bDYdja5Xh50h/WLR3csm8+jou7Y+fDdpx0LXZ8NS +dLT1XjF/Nelmk5/9V2XpuOPTmI4Sac+GRGkfCh2JM7yvfeR+dfpoGCmp0nFQ +k6JbSXr7eI3HWwYd262yF8aSDqKNXzZfQUfvmpmkRaTHiJRnv3XpWH9rsd4b +sj4i1q4YEBjQUdxFZ08y6bj93kZMMzomuU8R02S9zZvz16Pdgo75Dl8f8kmn +ZJ2PSltDx4z59oHepLPqnj8T20BH//CF+bfI+qW5+Q9UudDx4YUrKzxJF/bP +SId40DHKz8xtmqz/cnlDz25fOobo9100Jv1oR+5AXRgdg1PUBo6fJcBmii1z +5DAdL3TGXZEi/SqlycjgGB3Ps+YvTE8joK1y7rHCU3S8Ecb4nEWex8H5oTJx +2XT8nEOrPEKe55A8KWNePh3TVIwG+k8TMGlwzXOsiI6bsp+/dyct7vW50L+c +jrMiNOuXk3lA4a81tq6l4yc1FY8CMj9yVnd7/ntCx9LokI2Tp8jz1hZ5rOIF +He3UW+bZkdYWI+o13tMxy+zCnV4yjyycVTdLfKdjTvvCVRNkfu2Z/Hns2UIG +Dhl7l0eS+cfZv12hV4aBqhy3zclkPkr2td8QpzDw4RmB/QUyP4s+1DWbMRmY +fG5wuiiCgM/3z2vdMmLgHuv012lhBKyPY7fmb2XgmobRrGoyn6n/SgMf+DHQ +d2IuppD53R/GFP+0i4EF2okWPmS+x++cr0MJZWDjnQPbJ3cSUGP36fjpeAYe +ysty++tL9gOZaN3DAgZus0r3ciH7h0ji2KPMCgZmt8deHib7zSvxAI+KagbG +TrV4x7sSsHvMKe7nYwYq3Yq3K91I7mcr68OOdgY+7beXblhHgELusxPO4kyc +/bWzy9+cgN8rFn/WdmGidhj0S2oQMJ6jHK3vwcSSyTgdYBEwukidxd7KxP5T +NhjMJPdvhB2wehcTtzeqtb2ikv2v2nfcI5KJGv/ZL96mSOaD3W2p+CImFl+o +VfwlQdbbbi/oGmOiv0L040e9Qsj4tLPr2x8mctwvuWT2COHc+pC4gRkmxn6C +gZ1dQjitH/9icq4afltoxBEl54mYv4JNi6hqeEiPEin1Xgi7E2cHmVqr4ciW +i+ycWiGY3ijJS09XwxOJ23mZF4XwgX4j1+qiGtY1rZrhXhBCRPq1S6O5ahi9 +5c+WT+Q8czu6ONvpmhqG9x+YpKQJYZVbXqbUXTWkzpr3IiReCMtnn0s58UUN +ry/tNqoMJeeTrYePhWmxUHzzxTvJdkL4KWPr7VrLwjyfneeFvwTQuof5JuAp +C7n8FT4JQwKoefIHol6yUCfl+5ut/QJIibhBu9rMQoX5uoXivQLQ61rQ8buP +ha4FCht02wSwV/B6S46sOn5MGYmkPBBA33oXzx4/dcy6828MTgmgJ8nbNVhC +A3+EvJF3UhSAzdBBm69GS/Hp/oNH3XX50O8rGXIzahkSr8P9hNwy8n9CUexk +7XI8cqCgxH9WCcg0aJzmD2ni7R5tC4uea6ASX+5oZKSF81588pZMuwKZK9iL +ZXdoY+yHyuPTe4rgubK54UiqDva2NXaKeF8Gjkptim6zLlqtZiTlmuaDlHhB +qE+MHt4Z3l6iyr8E1GiaqbvGSrQU5vw1aM2CueqbK5yerkQjUaVfHZ4ZoMNT +Kj+4ZRV6cbqX3/A+B8GfZepsRfSxTKeo7MH+VBgaSXKxydRHg7mfDpdOJsMa +3SdZNtoGqPT4m+uqa6fg/gj378QrA4yx3huXfjIO9mqtan/rb4gD9xaNOi6L +Ad6gX5P7XCNUkRoKtv0TCVYsyrqFBUYojbbrs7+Gw7JjCeG1xsYo+vZV6XBu +KGj6sx+otxuj88xPEQ4RBGeYDn+OfzTGOKfGmx+LgmC0Y5th12djvKz0PTQ+ +MwjueyTduNRtjMNpgRJ/I4PAybEjQ3HAGEXk1cftbILgEDcuaK6ICbaXv/63 +sm4fPJN+yxhQN0EJao/RsZV7wf/+ztib+01wBfgrpuJuGAzsO2gVaoKBnHUL +DZfthnDVPbubw0yQPi+j6Mei3ZBwZJ/T5GETvFcRkJrSEQB8Thjd9IQJ6h06 +qnYnKgCmKo7frcsip/wuqyuhdbsgrfzSaGOdCdY2XInf5LYTHuQ1+f2UZ+PC +0gVXgm/5Q6c9Y2sYhY1GXXt1n+X7g8jvQPe/ymz8+HoXU/u0P1hskHCYTWdj +VH4XQ32HPzwR5RgrabKRfbn08Eslf3i5LXeuuRkbr6husx+O9oN2VkBZynY2 +FlcdKrbd4gujV2cmdG+z0aODO7rGzAd6Xa3zTlWyseWKlrulrg+0zkpe213N +xuaTrSts6T5Q7a18Ib2GjRtTV/47JOYDMRRDznQ9GzHYIM3nqTcsjg848vwj +G09ETXnYbvQGrR3vRfzFOPhfo6VpYa8X+KrfmJu1joMDks7LYoo8IeKxV4CG +Iwd9NW+uKU/whBR/mRdCJw76rd/jPLLPE+4WHUp6sYmD8Y6GYw84niCnsXbR +tA8HP1XIpe566wFPNL7KeYdx8Ei/uP6wmAdoLqPRNXI5OJdHPNwc5gY/Nc8a +CYc5iJcz+O4XXaD1JVrJjnDQtF7vueFJF6jZO7gxdIyDdf88zjBDXOC00Ga/ +0R8ORoksHtS2cwFNjkhJlTgXF70XqZo35QzbbAIZdQpcHKkxPdno7QxNO9Ys +aDLl4oDNfVF7o41wp/Dvl7F4LrZOOwqipTaAkWXohG0iF9cuS1Q8/s8Rbn3p +X5CXzMXYxx69qYOOIKR+NrZN4yLrSHhGyytHKMmsSb50kYuEvShPLMUR8pLi +2GvKuJjLeOD4Us4RToUuSs18x8UoVu7sr+sdwGO1GnKppmi4P/Kh6ldbmG6S +lKqjm+J/UcaxsvW2kOc/+MFWzRSD/K3T1EptofdE5UGPZaaYsC6cm3bAFoLr +15cfWmWKL5fyg69I2EKCwxHqHWtTbE4yYeXq2UCV2/spg32mmNsv8lT//BpY +EniyUqfGFAt6a0wvFa6G0zPbDRNrTbHmouom0ZTVIJZmLfj2yBRVpHWkDx5e +DX0Vs6/l1Zvi7R+vl2c5rYYqkdhMmXemuKa2x/me6GrwOHfs4PhX0r39gwG+ +lpBZfcjw/nweZhrwx2b0LWCBg7tAWYqHyi/4jhcZFnCs00T74GIeqs8dOblm +kQXsnD3J0pPnYeukhktjnzkYrw+TK6DyEM4X/CwvMIfmruCRuJU83C5clxAl +bw7y8/YI1m3iYf2CdXflJBAKLSMjht15eL4xa1/6fwCrIk9bnt3Mw+eP5ngu +fwzgMMx/3+rDw/VhJbE1RwBONI/99t3Dw69NJVv5A2YwWRBlERHNw2+vGvaE +N/OgnXv2XfENHs6LO/ihppYLOw8UZtuU8fDTVd9VNwq4MF52y7+fz0ObJcke +t2O4IMNsnVhZwcPupzfzDCy5YCepqnKvhoelXfsyHzzmwN2mYr9373mY+DdQ +feoNG2yl7miHtfJQwEwQHROyoXVN/TjlA7keA2a1C8+zYbTqR7xXJw+v6Ccc +uuTOBu18vdL/+njoGrgvkt1jAnfbzcOSBni4xC2Eq/PUBGzlNoLuMA+NanOH +za+bwPaTB96GjpHrNR7y4nGQCYzWnMhSnOThI//mCkNnE4j5k+Fb9YeH6+Ka +WY+MTWCxwTWtLdM8nGQkTgYtMYFLgVVjMzPk+g8x5E1njOF/6XrFDA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07658728308500348}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07658728308500348}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c81f8XB3CjoqXsS9zlUskq897rOgdRRpKQUSI0lBKSlESUjEKFREZo +GffeTyk0REulIVkNQuorq8yK/D6/vz6P5z+f8X6f9+ucD2PbPid/MRERERNR +EZH/X8c/1z9iJRaaifHcNYvGV5s1XaIcMm+NgQ/asus/cdQA5V9vo7SmAScm +pYnP0Ycwx+st4q0FUJurdi2VYwnSg4ppv1uEwG6R8/TibISOuw77RltqwSnA +qPkW2xesWX2ffrY0QnT09g0axiHwu8X4/HBLF1Q4qTaMah2HOssrhW8LRmB+ +zhcR95dnQaWjsneb1jTMLk0zqJjOBrk9W69LWIpj/vhlIuVRAaSttK52cJHE +0Q7+4pLFV6AtU6/m5+KFuPztO9GzwuuQWBj1WkxJGnP672cwNMvA1mCXjLya +NI5OvV5wy6gMJB85uSzVlkYvJS4PLcsgtlv9g525NMb0XHrC21wGR5gve8/t +kkYlwx/s98llsDeP8k+jirwfzy8/ZKgMNmQLtOw8ZVB/VqTe1pJyUDzXfeps +jixG/ih6Z36CD5QVt2Ini2Vxy4siBUYiH5RrT0Rt4cuimePZxKkzfKAOLz+w +tE4WV9J7Ja9e4IO6fZB39XdZXC88bv62hA/6s6aNuvXl0KNUTW9PIx/Whyr0 +rHouh8qeExE1ygJwnP/9c8Y7OSRkrk6waAJwKqhsm/ooh/aLj6bHqQnA9c3m +10+G5HDlPlE2V0sAW7QuV3nIy6MzJM4J5wlgd49uaoy3PHZOJe833iqAk842 +Zo3j8mibfsX8Ra4AlG++UhYTVUDKQ494iUIBlMk6T6ycr4B7lVyM4aoAmhu9 ++Kk0BWTNFm3I4wuAtSGUuWGtAlpHvn6t9VAAtety57y5oIB/q4792/FFANPW +Y68aTBWx+LxbzS6qEFKKI25MWyuiU+yy6zJMIbDmiMRrb1DEX0GzJirUhWD/ +eJ55sr8ingmuqvypJYQsSzphf1oRX2dGd+lyhWCCdhkvOhTxg2VT7StXIYSw +87fWx1DQvKRfKyNBCLZ5UqN2SRRMmAfc8GQhMCWOxL86T8GNV0OsXVKE8KbJ +VfDuKgWp/GXO4ulC0AlaIP75FQXnUc5t0M0Xwvfig8W/lJXwXmfWzJMKIWyW +cxhYQiihj2r98/HPQtA/XB196a4SyjIrOjZ9EcK8rmUKjCdKuHPA+ffNbiFU +louDRpsS1tdPc32/C0HBrjJFb0YJizvzJVN+ks+PZhlY2SljXtbTxSvECVg9 +9Cdib7cyxhmyynepEXBo7TnNh/3KGKofUGShTkBZvna77LgylsW+aFJcSgDF +2ZtdKbkEG+IfdlZoEtB/5/GEuM4S7A/5VvV0JQFnY1JCL4Qvwascr28GQMCz +D8tZ/dFLMDbH6PpbJGDKoO6dWeISXPfRpCzAgoDt38ZW9eQsQb+j3w6nWhHA +sff8qVO3BJfO+POEdgR0yWvsfbRQBV+ZBLfiJgIU9z1QVVRUwWDR4z/z3Qiw +f+bWsIuugoZiY84z7gRURCRqLdJXwZtWwdNlmwlI6Bjuc3dTwcC3a3q/+BCw +6lr1jqECFfxRV1GcvpuAHWIuihYlKli1/5fg7h4Csj0Hn5y7pYIH3/ZKdwQS +MEeKocF5poI98ysaKUEEtAef6IkdUEG/iQ27vUMJiDbd4KNsoorb/dUz8AgB +a70u/TK2UEW40EfDSAKkjv047mKviv46B/24R8n718UVp3ir4jXXeyz1YwTc +sa36MeeUKjLadHIeHycgao9EJOusKhbIu9IuxxJgfdpZyiJHFUvmUPyPxBHQ +9HZQL1KgimX/goB5koBhN7WwkTZVVCX+s+MmEHA7IkhCukcVD086SEyQPpp9 +L1NnUBXbHkSeLkskYEHnpupdYlQU+7trlnQyAUt3JIl0alLRarlmyeUzBAzG +t6VOG1Bxr+BoNy+FgJvXNdSWABX1aepD70hbDNZYuW6k4oH5T06OpBLgdWAs +4eVhKpotZH8SOUeAeoaFSl8cFdfNH31/6Nz/6+NMqUQKFbP/dt4YJB0xtfyN +RSEV5Te2j7w4T4A59aCPdxkVWzt0dhqkEyCJj35F3qGiwlWr+5mkzx/3kq98 +SUXfl25yLhkEbC66UdzcTMWnPVcUSkkzn04aj3ZS0bLca0YkkwD+vLMeumNU +3M+7HZ9N+qBW5w/7GSouM6hY0UPazEE7MmAuDcXNWyqXXiDgZerT3CJVGmqb +r80uIH2WkFtZt5SG4/dmfrWR9njvU9u5kobvfa6yF2YRwJgo2/iPS8NA1qH9 +pqS/U6Z6lljTkGl5/eIO0uUcmzC2Iw1n44HK06TDNqdLbPKgYUen3EsBadOj +3ZmhfjSk6DxuekNaPE9PM20vDe/vr2v6Qfr5w8jq8nAaRhk5NIhdJCCl+7l9 +QwwNz1gXPZAnvWk25XNfEg1vXp9byiJNXeq/TzKDhuxr99J1SX9dKxTRyKfh +h0ezjhqRLgmYSbW8QcMn1Wp+bNIhSfZqPrdomHbC29aENKfsws2jD8jv3yS2 +Sp/06pZX04PPaJii19CiSdpBZNaarY00HLocOJtG2m05O+X1Bxo2bBmuXkTa +12lvG3yl4bKxbVNT5PvvPXyZyR+kYVXfu6e9pMMLW3fTJ2locNWJ1kD6Ye8J +j2cidDwdNSTOJ219mBF1bDYdja5Xh50h/WLR3csm8+jou7Y+fDdpx0LXZ8NS +dLT1XjF/Nelmk5/9V2XpuOPTmI4Sac+GRGkfCh2JM7yvfeR+dfpoGCmp0nFQ +k6JbSXr7eI3HWwYd262yF8aSDqKNXzZfQUfvmpmkRaTHiJRnv3XpWH9rsd4b +sj4i1q4YEBjQUdxFZ08y6bj93kZMMzomuU8R02S9zZvz16Pdgo75Dl8f8kmn +ZJ2PSltDx4z59oHepLPqnj8T20BH//CF+bfI+qW5+Q9UudDx4YUrKzxJF/bP +SId40DHKz8xtmqz/cnlDz25fOobo9100Jv1oR+5AXRgdg1PUBo6fJcBmii1z +5DAdL3TGXZEi/SqlycjgGB3Ps+YvTE8joK1y7rHCU3S8Ecb4nEWex8H5oTJx +2XT8nEOrPEKe55A8KWNePh3TVIwG+k8TMGlwzXOsiI6bsp+/dyct7vW50L+c +jrMiNOuXk3lA4a81tq6l4yc1FY8CMj9yVnd7/ntCx9LokI2Tp8jz1hZ5rOIF +He3UW+bZkdYWI+o13tMxy+zCnV4yjyycVTdLfKdjTvvCVRNkfu2Z/Hns2UIG +Dhl7l0eS+cfZv12hV4aBqhy3zclkPkr2td8QpzDw4RmB/QUyP4s+1DWbMRmY +fG5wuiiCgM/3z2vdMmLgHuv012lhBKyPY7fmb2XgmobRrGoyn6n/SgMf+DHQ +d2IuppD53R/GFP+0i4EF2okWPmS+x++cr0MJZWDjnQPbJ3cSUGP36fjpeAYe +ysty++tL9gOZaN3DAgZus0r3ciH7h0ji2KPMCgZmt8deHib7zSvxAI+KagbG +TrV4x7sSsHvMKe7nYwYq3Yq3K91I7mcr68OOdgY+7beXblhHgELusxPO4kyc +/bWzy9+cgN8rFn/WdmGidhj0S2oQMJ6jHK3vwcSSyTgdYBEwukidxd7KxP5T +NhjMJPdvhB2wehcTtzeqtb2ikv2v2nfcI5KJGv/ZL96mSOaD3W2p+CImFl+o +VfwlQdbbbi/oGmOiv0L040e9Qsj4tLPr2x8mctwvuWT2COHc+pC4gRkmxn6C +gZ1dQjitH/9icq4afltoxBEl54mYv4JNi6hqeEiPEin1Xgi7E2cHmVqr4ciW +i+ycWiGY3ijJS09XwxOJ23mZF4XwgX4j1+qiGtY1rZrhXhBCRPq1S6O5ahi9 +5c+WT+Q8czu6ONvpmhqG9x+YpKQJYZVbXqbUXTWkzpr3IiReCMtnn0s58UUN +ry/tNqoMJeeTrYePhWmxUHzzxTvJdkL4KWPr7VrLwjyfneeFvwTQuof5JuAp +C7n8FT4JQwKoefIHol6yUCfl+5ut/QJIibhBu9rMQoX5uoXivQLQ61rQ8buP +ha4FCht02wSwV/B6S46sOn5MGYmkPBBA33oXzx4/dcy6828MTgmgJ8nbNVhC +A3+EvJF3UhSAzdBBm69GS/Hp/oNH3XX50O8rGXIzahkSr8P9hNwy8n9CUexk +7XI8cqCgxH9WCcg0aJzmD2ni7R5tC4uea6ASX+5oZKSF81588pZMuwKZK9iL +ZXdoY+yHyuPTe4rgubK54UiqDva2NXaKeF8Gjkptim6zLlqtZiTlmuaDlHhB +qE+MHt4Z3l6iyr8E1GiaqbvGSrQU5vw1aM2CueqbK5yerkQjUaVfHZ4ZoMNT +Kj+4ZRV6cbqX3/A+B8GfZepsRfSxTKeo7MH+VBgaSXKxydRHg7mfDpdOJsMa +3SdZNtoGqPT4m+uqa6fg/gj378QrA4yx3huXfjIO9mqtan/rb4gD9xaNOi6L +Ad6gX5P7XCNUkRoKtv0TCVYsyrqFBUYojbbrs7+Gw7JjCeG1xsYo+vZV6XBu +KGj6sx+otxuj88xPEQ4RBGeYDn+OfzTGOKfGmx+LgmC0Y5th12djvKz0PTQ+ +MwjueyTduNRtjMNpgRJ/I4PAybEjQ3HAGEXk1cftbILgEDcuaK6ICbaXv/63 +sm4fPJN+yxhQN0EJao/RsZV7wf/+ztib+01wBfgrpuJuGAzsO2gVaoKBnHUL +DZfthnDVPbubw0yQPi+j6Mei3ZBwZJ/T5GETvFcRkJrSEQB8Thjd9IQJ6h06 +qnYnKgCmKo7frcsip/wuqyuhdbsgrfzSaGOdCdY2XInf5LYTHuQ1+f2UZ+PC +0gVXgm/5Q6c9Y2sYhY1GXXt1n+X7g8jvQPe/ymz8+HoXU/u0P1hskHCYTWdj +VH4XQ32HPzwR5RgrabKRfbn08Eslf3i5LXeuuRkbr6husx+O9oN2VkBZynY2 +FlcdKrbd4gujV2cmdG+z0aODO7rGzAd6Xa3zTlWyseWKlrulrg+0zkpe213N +xuaTrSts6T5Q7a18Ib2GjRtTV/47JOYDMRRDznQ9GzHYIM3nqTcsjg848vwj +G09ETXnYbvQGrR3vRfzFOPhfo6VpYa8X+KrfmJu1joMDks7LYoo8IeKxV4CG +Iwd9NW+uKU/whBR/mRdCJw76rd/jPLLPE+4WHUp6sYmD8Y6GYw84niCnsXbR +tA8HP1XIpe566wFPNL7KeYdx8Ei/uP6wmAdoLqPRNXI5OJdHPNwc5gY/Nc8a +CYc5iJcz+O4XXaD1JVrJjnDQtF7vueFJF6jZO7gxdIyDdf88zjBDXOC00Ga/ +0R8ORoksHtS2cwFNjkhJlTgXF70XqZo35QzbbAIZdQpcHKkxPdno7QxNO9Ys +aDLl4oDNfVF7o41wp/Dvl7F4LrZOOwqipTaAkWXohG0iF9cuS1Q8/s8Rbn3p +X5CXzMXYxx69qYOOIKR+NrZN4yLrSHhGyytHKMmsSb50kYuEvShPLMUR8pLi +2GvKuJjLeOD4Us4RToUuSs18x8UoVu7sr+sdwGO1GnKppmi4P/Kh6ldbmG6S +lKqjm+J/UcaxsvW2kOc/+MFWzRSD/K3T1EptofdE5UGPZaaYsC6cm3bAFoLr +15cfWmWKL5fyg69I2EKCwxHqHWtTbE4yYeXq2UCV2/spg32mmNsv8lT//BpY +EniyUqfGFAt6a0wvFa6G0zPbDRNrTbHmouom0ZTVIJZmLfj2yBRVpHWkDx5e +DX0Vs6/l1Zvi7R+vl2c5rYYqkdhMmXemuKa2x/me6GrwOHfs4PhX0r39gwG+ +lpBZfcjw/nweZhrwx2b0LWCBg7tAWYqHyi/4jhcZFnCs00T74GIeqs8dOblm +kQXsnD3J0pPnYeukhktjnzkYrw+TK6DyEM4X/CwvMIfmruCRuJU83C5clxAl +bw7y8/YI1m3iYf2CdXflJBAKLSMjht15eL4xa1/6fwCrIk9bnt3Mw+eP5ngu +fwzgMMx/3+rDw/VhJbE1RwBONI/99t3Dw69NJVv5A2YwWRBlERHNw2+vGvaE +N/OgnXv2XfENHs6LO/ihppYLOw8UZtuU8fDTVd9VNwq4MF52y7+fz0ObJcke +t2O4IMNsnVhZwcPupzfzDCy5YCepqnKvhoelXfsyHzzmwN2mYr9373mY+DdQ +feoNG2yl7miHtfJQwEwQHROyoXVN/TjlA7keA2a1C8+zYbTqR7xXJw+v6Ccc +uuTOBu18vdL/+njoGrgvkt1jAnfbzcOSBni4xC2Eq/PUBGzlNoLuMA+NanOH +za+bwPaTB96GjpHrNR7y4nGQCYzWnMhSnOThI//mCkNnE4j5k+Fb9YeH6+Ka +WY+MTWCxwTWtLdM8nGQkTgYtMYFLgVVjMzPk+g8x5E1njOF/6XrFDA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07658728308500348}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07658728308500348}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994260309848174*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"71653645-3b2d-475a-8a5e-d93f99b87f1c"] +}, Open ]], Cell[CellGroupData[{ @@ -9822,18 +11857,75 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], - RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ -UUID->"01995149-3665-fe4e-b326-b20429031afd"], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[121]:=",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"52cff8eb-0c77-c944-a54f-e282b00ce766"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.105836818262658`*^-144\\\", \ +RowBox[{\\\"257637673519649270217965438245428568131\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"89\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8303947407360000000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 45, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260309900679*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"6ae44e15-92f9-40a5-8fce-9812b6af5c97"], -Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.115197477232832`*^-146\\\", \ +RowBox[{\\\"990359217009531794717859144615427415897\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"92\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0373833891840000000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 46, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260309909433*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"c78bff4e-199f-425c-b22f-f62ca14e5ccc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.859779679189829`*^-148\\\", \ +RowBox[{\\\"393073573231083169323518294497863141369\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"96\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3746716712960000000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 47, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942603099179564`*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"010281e2-3725-45e4-bce6-7dedb1cbf937"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 121, 48, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260309926688*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"a3d6b8f2-86d8-4cb5-82d7-25a1a756c827"], + +Cell[BoxData["9.825303362248977`"], "Output", + CellChangeTimes->{3.99426040043908*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"93059d4b-bbdc-4d7f-ade1-3d4baf3c9e48"] }, Open ]], Cell[CellGroupData[{ @@ -9900,27 +11992,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918507468132763`*^9, - 3.9918507511809216`*^9}},ExpressionUUID->"11b1e372-f457-5a4d-bcee-\ -062a3c04ed96"], + CellChangeTimes->{{3.9918507468132763`*^9, 3.9918507511809216`*^9}}, + CellLabel-> + "In[122]:=",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"cb5a1193-7562-6446-a279-d9f6295d156e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.194767155489202`*^-205\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 49, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942604004898453`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"7ec2560b-a152-4e0a-bb45-9ea130c3300c"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"566b0ad4-7f4e-b04f-8294-646ce1913fac"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.19138979320872`*^-210\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 50, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260400499749*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"38d35421-1d55-4e13-b6fb-533a572a5462"], -Cell[BoxData["0.7273353591556563`"], "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6187748477696943`*^-214\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 51, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260400509811*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"76f61876-0bdc-4f37-a01a-95a02c50e1a1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 122, 52, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942604005185003`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"a535b208-b866-41fe-a5bc-b207844ca704"], + +Cell[BoxData["0.31621673558054186`"], "Output", + CellChangeTimes->{3.994260411389842*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"7ae5b2d2-120d-431f-a42e-af37cf98be94"] }, Open ]], Cell[CellGroupData[{ @@ -9941,8 +12081,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -9987,27 +12126,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.99185075434021*^9, - 3.9918507570104733`*^9}},ExpressionUUID->"8cb4e371-90a5-d347-adec-\ -3382e7679ba8"], + CellChangeTimes->{{3.99185075434021*^9, 3.9918507570104733`*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"4cd45900-7eb0-6b4b-830a-a339e8117392"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.194767155489202`*^-205\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 123, + 53, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260411441702*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"d97f7b95-6d89-4a8d-8afd-d99bf0acafcd"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"0ddcf174-f6c5-2546-b6d3-f17f46d6e8a3"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.19138979320872`*^-210\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 123, + 54, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260411450042*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"9397b702-450e-485d-8fee-74862fbef705"], -Cell[BoxData["3.1005213487548544`"], "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6187748477696943`*^-214\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 123, + 55, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260411459969*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"9efa1f7e-09a4-4c1d-9903-09aec3d6bd47"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 123, 56, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99426041146942*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"98816a93-b917-4e2a-9cf1-537b60d86e22"], + +Cell[BoxData["26.91879117253027`"], "Output", + CellChangeTimes->{3.994260421514863*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"4331193e-4e35-41d9-a5f9-dbd797a1e5f4"] }, Open ]], Cell[CellGroupData[{ @@ -10028,8 +12215,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -10074,27 +12260,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918507598219967`*^9, - 3.9918507622107697`*^9}},ExpressionUUID->"732b358a-c98a-0347-8b16-\ -2462b23d6249"], + CellChangeTimes->{{3.9918507598219967`*^9, 3.9918507622107697`*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"f702ec8b-e3a1-2f4f-bfef-4278a2688935"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.194767155489202`*^-205\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 124, + 57, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260421562516*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"ce09a943-eaaa-4928-819a-6169277bf5a5"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"61220452-df6a-154e-8b5c-fecd0ab287a1"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.19138979320872`*^-210\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 124, + 58, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260421571548*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"5057b14b-a418-4504-b8f0-0b78f241fa72"], -Cell[BoxData["18.198720438459198`"], "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6187748477696943`*^-214\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 124, + 59, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260421581073*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"835e353c-1425-4e24-bfff-6419819c28f3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 124, 60, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260421589671*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"02cb848f-316b-473a-b89c-1ca7190b31e8"], + +Cell[BoxData["3.0987997275695935`"], "Output", + CellChangeTimes->{3.994260429717423*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"1b09fcaf-7df4-4250-a1a9-cf5530798d8b"] }, Open ]], Cell[CellGroupData[{ @@ -10103,19 +12337,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918507652122154`*^9, - 3.9918507685850487`*^9}},ExpressionUUID->"3d20548b-905d-0343-8df1-\ -168ec8f367e1"], + CellChangeTimes->{{3.9918507652122154`*^9, 3.9918507685850487`*^9}}, + CellLabel-> + "In[125]:=",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], -Cell[BoxData["0.09682709699983048`"], "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] +Cell[BoxData["0.03462265113599587`"], "Output", + CellChangeTimes->{3.994260429762635*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"f8c06985-f309-4c30-94e8-971b592fc6f9"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918507716362114`*^9, 3.991850773604473*^9}, - 3.9919245563167305`*^9},ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-\ -e661a25a7ba1"], + 3.9919245563167305`*^9}, + CellLabel-> + "In[126]:=",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], Cell[CellGroupData[{ @@ -10136,10 +12374,14 @@ Cell[BoxData[ RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Ir", "*", "Il"}], - RowBox[{"Il", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"601c24ee-3f7b-\ -c74d-891b-10a6d009e34b"], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[127]:=",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], -Cell[BoxData["7.1357426619652635`"], "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +Cell[BoxData["10.31148944294197`"], "Output", + CellChangeTimes->{3.9942604297836018`*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"bdd35442-485b-40b3-8b43-a0c740755907"] }, Open ]], Cell[CellGroupData[{ @@ -10147,10 +12389,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ - FractionBox["Kb", "Qb1"]]}]], "Input",ExpressionUUID->"05949206-8ee0-5646-\ -bb01-e9142212274d"], + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], -Cell[BoxData["1.4042291233210182`"], "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +Cell[BoxData["2.0225267002943483`"], "Output", + CellChangeTimes->{3.994260429797818*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"85be2427-9d35-4bf0-b7e7-e04af2ad835b"] }, Open ]], Cell[CellGroupData[{ @@ -10158,10 +12404,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ - RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"25a02cc2-\ -cb9a-bc4b-93f0-a7873f982a23"], + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], -Cell[BoxData["10.02021766245587`"], "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +Cell[BoxData["20.85526271815343`"], "Output", + CellChangeTimes->{3.9942604298119698`*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"eafe38fc-756c-4d2d-a113-4c6cd80d7d18"] }, Open ]], Cell[CellGroupData[{ @@ -10349,10 +12599,14 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"df51ca6a-83a1-6340-\ -b13c-0185de64c37f"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], -Cell[BoxData["0.06461147402889976`"], "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +Cell[BoxData["0.007566574335530533`"], "Output", + CellChangeTimes->{3.994260429829659*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"700864dd-9cdd-4f26-addb-04bf1eb91375"] }, Open ]], Cell[CellGroupData[{ @@ -10364,18 +12618,14 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"731f0e35-\ -7798-8b45-a769-075ac4b3983f"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[131]:=",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"4870a5d4-b6fc-9044-ae55-fcbd2b9d41eb"], - -Cell[BoxData["3.486503585502317`"], "Output",ExpressionUUID->"4263cd25-e2b6-5c4b-8834-28c6ca12b863"] +Cell[BoxData["10.188149031588125`"], "Output", + CellChangeTimes->{3.994260430000251*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"579ae288-51ff-4ee4-a3ae-0b438cb21c09"] }, Open ]], Cell[CellGroupData[{ @@ -10565,10 +12815,14 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"413c8e7d-149c-5d4a-\ -9ccb-23aebae2e6d5"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[132]:=",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], -Cell[BoxData["0.01165072070943232`"], "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +Cell[BoxData["0.04725007253918265`"], "Output", + CellChangeTimes->{3.994260430016171*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"e3858d6b-1864-433f-8ab0-f54bd3c774af"] }, Open ]], Cell[CellGroupData[{ @@ -10580,18 +12834,14 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"e11d7eb8-\ -00a8-f540-98a0-89164ac4bae9"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[133]:=",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"d6f4e6b1-3d45-7649-b7dd-944c4a1de3e4"], - -Cell[BoxData["8.21047995098231`"], "Output",ExpressionUUID->"27fdf87b-577e-d74b-99f1-6a0486be19bc"] +Cell[BoxData["4.0770280638774805`"], "Output", + CellChangeTimes->{3.994260430171818*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"4157376e-c275-421b-b71d-12688f12d841"] }, Open ]], Cell[CellGroupData[{ @@ -10682,10 +12932,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-\ -1ee89e798d8f"], + ")"}]}]}]], "Input", + CellLabel-> + "In[134]:=",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], -Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +Cell[BoxData["0.050030956271665136`"], "Output", + CellChangeTimes->{3.9942604301854*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"42073da4-fffb-4bc6-8e5c-6bed864d6bc9"] }, Open ]], Cell[CellGroupData[{ @@ -10773,10 +13027,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-\ -f30d036fcdd2"], + ")"}]}]}]], "Input", + CellLabel-> + "In[135]:=",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], -Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +Cell[BoxData["0.9499690437283349`"], "Output", + CellChangeTimes->{3.9942604301990747`*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"8e3ffeab-d793-4aad-9a52-f753c02d54de"] }, Open ]], Cell[CellGroupData[{ @@ -10897,10 +13155,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", - "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"46af1283-32d6-\ -7240-acd2-307af56b44db"], + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[136]:=",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], -Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +Cell[BoxData["0.047527859686207874`"], "Output", + CellChangeTimes->{3.9942604302130623`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"03fa4c42-7d29-4355-903b-3b7f896772c2"] }, Open ]], Cell[CellGroupData[{ @@ -10962,27 +13224,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918507910247746`*^9},ExpressionUUID->"cd516020-ac7f-224d-b1ff-\ -af0307420662"], + CellChangeTimes->{3.9918507910247746`*^9}, + CellLabel-> + "In[137]:=",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"b82c1933-5313-1d4c-a858-68be8f118333"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.993128964568622`*^-202\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 137, + 61, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260430231697*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"77ff9643-e2f7-47a7-ac03-57496af86a90"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"3b3475f7-7db7-054a-b7f5-20d8f7d491bf"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7157407252181426`*^-206\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 137, + 62, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260430240487*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"011f0849-fa9d-4898-823c-302ffd0f644b"], -Cell[BoxData["3.486503585502321`"], "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.226984475417373`*^-211\\\", \ +RowBox[{\\\"668859810497440244092067196564426051030\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3165635789279094374400000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 137, + 63, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260430248734*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"c7e70de4-6b3b-44a0-929c-dc1459b54fe2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 137, 64, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260430256221*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"90ba5e21-363e-43b7-800b-5c762974c823"], + +Cell[BoxData["10.188149031588127`"], "Output", + CellChangeTimes->{3.994260437657055*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"48196a44-799a-4208-806c-13c0f111088a"] }, Open ]], Cell[CellGroupData[{ @@ -11044,27 +13354,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918507936164455`*^9},ExpressionUUID->"a9d0e817-a1c8-6546-a901-\ -34313c6ec04d"], + CellChangeTimes->{3.9918507936164455`*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"9e0b92f8-7fe2-e84e-89cd-c02c9da3e5b7"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.993128964568622`*^-202\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 65, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260437705843*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"05426787-60fe-49ad-8f32-5dda416bcc65"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"56712e4d-1aa7-524a-8254-bcfd8978eea0"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7157407252181426`*^-206\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 66, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260437715423*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"4c9240ee-2cd3-4dcc-bda7-58c07c20c3aa"], -Cell[BoxData["8.210479950982325`"], "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.226984475417373`*^-211\\\", \ +RowBox[{\\\"668859810497440244092067196564426051030\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3165635789279094374400000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 67, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260437724968*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"eb6046f7-5d21-4d44-bb2a-7338912f0667"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 138, 68, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260437733691*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"6aef601f-b792-4886-bb1f-aa55d403e80b"], + +Cell[BoxData["4.077028063877479`"], "Output", + CellChangeTimes->{3.9942604451436157`*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"d9ef20a1-f26d-4e0b-9ff1-ab0578c50924"] }, Open ]], Cell[CellGroupData[{ @@ -11122,489 +13480,388 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918507961174965`*^9},ExpressionUUID->"f68960b0-cff6-3245-b906-\ -ad38cf07d634"], + CellChangeTimes->{3.9918507961174965`*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"9c6ce535-b42f-3c43-a89e-eda48c04121e"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"e2ce6bda-7d9b-6149-bf5b-dd4c91908e28"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"2bed6df2-09cb-4d4d-b247-4fe79fd38fd6"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"64a64e18-e609-d54b-8225-64fa7909a948"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.00529101 -0.551091 0.817918 [ -[.15608 .25433 -6 -9 ] -[.15608 .25433 6 0 ] -[.28836 .25433 -6 -9 ] -[.28836 .25433 6 0 ] -[.42063 .25433 -6 -9 ] -[.42063 .25433 6 0 ] -[.55291 .25433 -9 -9 ] -[.55291 .25433 9 0 ] -[.68519 .25433 -9 -9 ] -[.68519 .25433 9 0 ] -[.81746 .25433 -9 -9 ] -[.81746 .25433 9 0 ] -[.94974 .25433 -9 -9 ] -[.94974 .25433 9 0 ] -[.01131 .02145 -18 -4.5 ] -[.01131 .02145 0 4.5 ] -[.01131 .10324 -18 -4.5 ] -[.01131 .10324 0 4.5 ] -[.01131 .18504 -18 -4.5 ] -[.01131 .18504 0 4.5 ] -[.01131 .34862 -18 -4.5 ] -[.01131 .34862 0 4.5 ] -[.01131 .43041 -18 -4.5 ] -[.01131 .43041 0 4.5 ] -[.01131 .5122 -18 -4.5 ] -[.01131 .5122 0 4.5 ] -[.01131 .59399 -18 -4.5 ] -[.01131 .59399 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.15608 .26683 m -.15608 .27308 L -s -[(25)] .15608 .25433 0 1 Mshowa -.28836 .26683 m -.28836 .27308 L -s -[(50)] .28836 .25433 0 1 Mshowa -.42063 .26683 m -.42063 .27308 L -s -[(75)] .42063 .25433 0 1 Mshowa -.55291 .26683 m -.55291 .27308 L -s -[(100)] .55291 .25433 0 1 Mshowa -.68519 .26683 m -.68519 .27308 L -s -[(125)] .68519 .25433 0 1 Mshowa -.81746 .26683 m -.81746 .27308 L -s -[(150)] .81746 .25433 0 1 Mshowa -.94974 .26683 m -.94974 .27308 L -s -[(175)] .94974 .25433 0 1 Mshowa -.125 Mabswid -.05026 .26683 m -.05026 .27058 L -s -.07672 .26683 m -.07672 .27058 L -s -.10317 .26683 m -.10317 .27058 L -s -.12963 .26683 m -.12963 .27058 L -s -.18254 .26683 m -.18254 .27058 L -s -.20899 .26683 m -.20899 .27058 L -s -.23545 .26683 m -.23545 .27058 L -s -.2619 .26683 m -.2619 .27058 L -s -.31481 .26683 m -.31481 .27058 L -s -.34127 .26683 m -.34127 .27058 L -s -.36772 .26683 m -.36772 .27058 L -s -.39418 .26683 m -.39418 .27058 L -s -.44709 .26683 m -.44709 .27058 L -s -.47354 .26683 m -.47354 .27058 L -s -.5 .26683 m -.5 .27058 L -s -.52646 .26683 m -.52646 .27058 L -s -.57937 .26683 m -.57937 .27058 L -s -.60582 .26683 m -.60582 .27058 L -s -.63228 .26683 m -.63228 .27058 L -s -.65873 .26683 m -.65873 .27058 L -s -.71164 .26683 m -.71164 .27058 L -s -.7381 .26683 m -.7381 .27058 L -s -.76455 .26683 m -.76455 .27058 L -s -.79101 .26683 m -.79101 .27058 L -s -.84392 .26683 m -.84392 .27058 L -s -.87037 .26683 m -.87037 .27058 L -s -.89683 .26683 m -.89683 .27058 L -s -.92328 .26683 m -.92328 .27058 L -s -.97619 .26683 m -.97619 .27058 L -s -.25 Mabswid -0 .26683 m -1 .26683 L -s -.02381 .02145 m -.03006 .02145 L -s -[(0.7)] .01131 .02145 1 0 Mshowa -.02381 .10324 m -.03006 .10324 L -s -[(0.8)] .01131 .10324 1 0 Mshowa -.02381 .18504 m -.03006 .18504 L -s -[(0.9)] .01131 .18504 1 0 Mshowa -.02381 .34862 m -.03006 .34862 L -s -[(1.1)] .01131 .34862 1 0 Mshowa -.02381 .43041 m -.03006 .43041 L -s -[(1.2)] .01131 .43041 1 0 Mshowa -.02381 .5122 m -.03006 .5122 L -s -[(1.3)] .01131 .5122 1 0 Mshowa -.02381 .59399 m -.03006 .59399 L -s -[(1.4)] .01131 .59399 1 0 Mshowa -.125 Mabswid -.02381 .03781 m -.02756 .03781 L -s -.02381 .05417 m -.02756 .05417 L -s -.02381 .07053 m -.02756 .07053 L -s -.02381 .08689 m -.02756 .08689 L -s -.02381 .1196 m -.02756 .1196 L -s -.02381 .13596 m -.02756 .13596 L -s -.02381 .15232 m -.02756 .15232 L -s -.02381 .16868 m -.02756 .16868 L -s -.02381 .20139 m -.02756 .20139 L -s -.02381 .21775 m -.02756 .21775 L -s -.02381 .23411 m -.02756 .23411 L -s -.02381 .25047 m -.02756 .25047 L -s -.02381 .28319 m -.02756 .28319 L -s -.02381 .29954 m -.02756 .29954 L -s -.02381 .3159 m -.02756 .3159 L -s -.02381 .33226 m -.02756 .33226 L -s -.02381 .36498 m -.02756 .36498 L -s -.02381 .38134 m -.02756 .38134 L -s -.02381 .39769 m -.02756 .39769 L -s -.02381 .41405 m -.02756 .41405 L -s -.02381 .44677 m -.02756 .44677 L -s -.02381 .46313 m -.02756 .46313 L -s -.02381 .47949 m -.02756 .47949 L -s -.02381 .49584 m -.02756 .49584 L -s -.02381 .52856 m -.02756 .52856 L -s -.02381 .54492 m -.02756 .54492 L -s -.02381 .56128 m -.02756 .56128 L -s -.02381 .57764 m -.02756 .57764 L -s -.02381 .00509 m -.02756 .00509 L -s -.02381 .61035 m -.02756 .61035 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .60332 m -.02499 .60331 L -.02605 .6033 L -.02729 .60328 L -.02846 .60326 L -.03053 .60319 L -.03279 .60309 L -.03527 .60295 L -.0379 .60276 L -.04262 .60232 L -.04749 .60174 L -.05205 .60108 L -.06244 .59913 L -.07305 .59653 L -.08274 .59362 L -.10458 .58527 L -.14429 .56405 L -.18248 .53718 L -.22313 .50297 L -.26226 .46595 L -.30384 .4238 L -.34391 .38185 L -.38246 .3414 L -.42346 .29931 L -.46295 .26047 L -.50092 .22522 L -.54134 .19038 L -.58025 .1597 L -.62161 .13033 L -.66146 .10526 L -.69979 .08415 L -.74057 .06487 L -.77984 .04937 L -.81759 .03723 L -.85779 .02721 L -.87627 .0236 L -.89648 .02036 L -.91652 .01788 L -.92745 .01682 L -.93762 .01604 L -.9426 .01572 L -.94801 .01542 L -.95278 .0152 L -.95783 .01501 L -.96238 .01488 L -.96496 .01483 L -.96738 .01478 L -.9696 .01475 L -.97163 .01473 L -.97275 .01473 L -Mistroke -.97397 .01472 L -.97512 .01472 L -.97619 .01472 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJztXAmQHFUZ7uzM7JnsJhCSEI5sYpLdHCQhESODQSHRcFSioIgiIEvIkmAC -MQTQgMilIiIZLxQNXmhUrOIsxyqPKkBULMqrBAGnKEGMIIgRBBFBxnlH//O6 -5/vem55dKE05yfROf/393//3/16/9/r1sWpoy7q1G4e2rF8z1L9y89CmdevX -nN3/prM216DcmCgac1Pt290fqd/VKIoX1dr/6s1qoZDWf/frP7nIiFbNVy2v -yrC9zcRV+7VtFFU929v0n0JUrZSj4WJkPsXhqFzRqLYtD1u4VI7aLVatlKJi -sRRVamudzMf5atGl4G7jzVKr1UpUsk70unZeW69W88Bnh8VKxWJUsiYdzOdG -tehV8J7WZ85sVIrDZbuWiyqlYk28otfGAYw6OF0t2hU8PeEgNo4dxA5dB27W -tIOclPe71aJTrQ40LdsLEtPO4j5eHCzM7MBNDHVwjCRmaUPmXQeuWC9IDHWw -WjK2zDrI16vTsDZuk+qja5Ne6xasnqU2gBWY36PF7xtSB021rHMfHzRKaWyq -Akc6D2Y5XK6Kcp55W6kWeQUvDxzCKySulbAJOVy2HxVQWiY+VwWYBwvzmADz -IGEeF2AuljjfGWAukh08Ee7xAlE6OaA0TwyHAsw5wlwTYM4W72sDzJmiuS7A -nCHMMwLMeio2wNxMk9UzA0r7CnNTgDlVmJsDzCnC3BJgThLmuQHmRGG+L8Dc -Q5hbYW4myOoFAaVeYV4YYI4V5kWGmbWrLVh+RbWfUfwx7RXtnbrF6yXGa2td -rsE6TNtd6wwqsQ/d1JqWjrbTnRLDZTaGcBfcDbA2J7C46aSNdLs4/XDCqa97 -63awosVip26fWpADW6/nxdXlTbvqiQuzVHNVk1b/VP7VftHCbBNHV2TcJyWp -CriULLmaQ28Pq31d2VBorPdO5C9job0EsNhzhm69IzF0kJodGR7a0RdlR7el -jkvQm4+Lt7nHoN2Giu0FgHlG8v8CWCndQj0vvz7FlZ4DmIf+rGhezUnPAMxD -f1o0r+GkpwDmoe8Sze3ptOwC9O1c6UmAXcvpT4ifL3PS4wDz0B8Tzes46VGA -eeg7RXNHOkE7AX0HV3oEYN/g9IfFz/Wc9BDAPPTfA+zbnP6ghHBDet8fBPQb -uFIFYDdy+gPi5xZDytq15yG/1iPUtqGz6fsBZl231r+boNqjSkyvfdW5UGQa -UtRu3gewW20M4f69zwkixlC3cK+ktpzQ9nV5fS5WLFHtewDWvJcem7J0V1Au -6/5Hp0xr/wa4+W7TbhL9txrtlStSoCVbQqh4fi2J+15DoTTTf0ep8Y/qVoc9 -BfUrgMWeM52Wuzsa8yq1nJY9p+W/BNj3U4dis725GoiRQdgvAPYD3iz8HGA/ -5PS7pcRuc0gauBvQb+NKPwPY7Zx+F8Du4PSfAuxHnP4TgN3J6T+mmJOPO+XX -XVzpDrqrkH47TSSkz01UV/PRsxtRV2JeR33LpXT9qkSDtu6hbbg7MI35HOd4 -jIe5BY/WVBB7fAhVnUmpnI09bgvkC2Lwxbc/1c472jpnhQzp4rKNIWdNKdfO -JbTbMqa+h9eeeVHcABblfNrI9yTOlPTuaE5J+mbVGCpXiqOnmGptlY/TZjme -IYHUKvcsN9eE9hSwb10eLV8MzcTZT7VHnkuuPfL8Iu32Fv1182o132J6isiG -gjr1uXEADqa/Zh2NDQYB1gmkJ4GwuumeorFGe8JHIKxpQDrfZBaQbWf2zCCZ -9iaz1cXL8gBpbVQ1MtJdQIKVpXWN8jwo0o0X7VzeXiCsHk9ZNk7WZQoLJbLQ -ZBaylGXGEHyXOFlZ6rHJQklORQuqgzc2VAd43DDFJehigThRe90BpCeCEhwL -bF/GEmxvMgu+EsyQGSTju2DsSnuOxnpZ1uuhJMgZAkr/X6oM+DfzlOOihkWD -pdFxOw7k4GUs9Y7s+ZpOIxxxDn0RZshrkwO6uDrFA4P0IMSom4FB8jQiOUuN -ptHdaNGpQBvQmwziRbcK5Khf3CUXcQGgZOdaTM9MX5gtpMxbVQNp7A2Vvr32 -ENWlzbDNrf1JSW/p16dLIjRfMstJafI2ho4Elk4pGqCZLqEgIyY19xKnKE/j -6UjEY77+mPcN+smew+lNxZ49v+FYs+feU4Xmu+6k1THzVMkabz56hKE1GqtE -iOebExuQXas3fibSAjhK6yfKrr6egNWOx+v1vE62OUXWySl4Ash7tk3zy40k -d/th6fwopJREnZ6HbyXTnhFLGWD3cPp3AHavQ9c7jUi/5Zq3Auw+Tr8FYPdz -+s0Ae4DTbwLY7zj9RoCZPsS0oPpm0c+rxRgugiaR0fWckWCvhI9Xzm8+gdU+ -6NrG/8au7M7F9P/aPso+1Gd3yd/uVUawqi8ZAdYFsIFR9rEnD/16gD3E6d8C -2MOc/k2A/cGh62EEIj3CNXcA7I+c/nWA7eT0rwHsT5x+HcAe5fSvAuwxTv8K -wP6cTh8iPc41vwSwJzj9iwD7C6dfC7AnOX07wP7K6V8A2K50PhDpb1zzGoA9 -xemfA9jTnP5ZgP2d068G2DOc/hmAPcvpnwbYP9LpQ6TnuOYnAfZPTv8EwJ43 -9Mi5TSiKr57jS66NN0uFL9eiJypKADM3XQodXX1o5emjbQB7gbvqa1L2KoC9 -OHLZjwPs3y3IaoUrgdhLI4/xYwCrjlz2CiZrT+zsKQiYB4rvH0JTRGhA8VHm -yVRzW9sbJgp6MYw8XM485PgR+hFmk3dsdEtBmQWu/iFm085tLmM2HdzmUmbj -GcVdwmw80yoXMxvPZfmLmI17QcF5NAQwx3L1C5nNOG7zAWbjmaG8gNn0cZvz -mc14brOV2UzgNu9nNnukM0yZniHzecxm4ujanMts9uI25zCbSdxmC7OZnM4W -ZU7h6puZzd7c5r3MZiq32cRs9jE2LQ4v0IRxbBt6YPMsFpK5mND0GMO9vpC8 -pSn8IM2ZLIb9eAzywLNzxww6Td3ItPfn2vVHeutXgnWbrGU2MMVpXFHu73bu -KEAd+3uYdj/XHu+WvsXRFOQZTHs6164/Cpy+CBou1fXM3wxb2QODFP91NbSH -65jHVxmP3sEKvhaDCul05mYmP/KHmc0sx0a3X1R9Fldfy2xmc5vTmM0At1nD -bAa5zanMZg63GWI2c7nNKcxmXjrDlDmfq5/MbA7gNicxmwXc5kRms5DbvIvZ -LOI2JzCbA9PZoszFXP0dzGYJtzme2bya2xwnUer1pZz5NqbusXkrs3kttzmW -2RyczitlFrn6W5jNIdzmzczmdcamxTEHvYu8ZocazdUsDPsijGzjDHMLTuKx -bnuXvIob9Q2rmP9Duf8JFnPvy0I93dHJangYV5S+uuLvq49i0Xq05ZxbJpnU -E0nV+hzHkUz08CYD9nS9RzDt5eH0hgYSK5n2CluDwwMJU1vkPvfQQOKNyQK1 -7yYJDh9K9ec0PI9krWC7474CJbV9ObM5wrHRAVPmkVz9MGbjeenK65Mp8rx0 -5VCm7rFZxmxWc5tDkhF5Xu5SZOquTZspRcI8lqsvTcbheXXMa5i6x+YgZvN2 -brMkGZHnFTWLmbrH5kBmc0I6m4uScZzENRcwTY/N/KT6KZw5N8k8lTMHk8zT -OHN2kjmc3vdZye2el+bMSDI9L83pTzI3cKY+kc4J074+p8Wu37SYBXt6Vv+o -Bg+1pvskwzQTJ013+J0OFvcSyMveSS9ncy/jm1ScnFQ8hyvGp8nqvt34k7PL -hgkYvWFiskDOC2nbu9ud++hs9KiH0bMNBRHfysXlcoAK3I5w4rQgZT37mxfl -D4aVzYyHGZf5lLVGhyhfamso7dr7Yis7R1As1tNRl7EvnSE9twxubH3zvsnm -v/odiPr3KLwBMhrzH2bRmaY=\ -\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ -{-14.8518, 0.65382, 0.693802, \ -0.00448812}},ExpressionUUID->"7758daab-adf8-2a49-9166-50457409d355"], - -Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"4f7705b8-e954-b341-ab6d-\ -8b4ad9ffca61"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1HlUjc8fB/BKRRvti4Q2FFluiyI+HypLJUIpLXK79ylJtMillC0ha6Ic +pSRapLpZ2ugbxS9tQgjtd1G3VVoeRL/xx5w5rzNz3vOZ55kZXeb+rWwJMTGx +LtL+9cENi+cXNTasNh6qjZzSwoPVAxnmTNtcmO5aX/jPHakWCQa2T2Hia/12 +SeItrHppedOX8OtMPVOKmMuJrpSyrQOGf12LNPHZV5oV0TlvgXu25sU04pLG +4FsTjA8gEK9WlSMWfamJPFzWDH09Ve8UiGcK9D3GbFpgw67nE4rEDoORVqF1 +7WB06lm8KnH5hEiOk9MJNtElCZrEH49rRDwJ4kFdxGMJHeIBaVvRCEMAt7K5 +LbrE0ucPuJuOC2HUOk9vPvFspZTq4LJuaA6637SI2El77N6ATR8czcqKtCKm +0vTUTaYNQK1ldggSRxtujtlbNwglnPtN64mbNZqWheV8hzT7Jy07iFk7A/Zc +PT8MiWf/O+FDPJQsdrsw6Afov6tN2EM8Tc9E8TtjFCTlByciiRNYlesV1cag +oEF6Wyzx3Ez36CXjY/Bglb5aPLHlotMD+8poOD+6tzWL2N+ivU5kMwG7U+yj +vhKPcA5Kys77A3Gh18x6iI+VyVkbTfsLiuo9ruPESWh5369uEjzmPWhXbSX1 +3a22DckRR0UsFXchznl1teO4tgReN/DSpIiHvnlHXjkvgZGa028eIo40Hn1Y +EDQFM+al8G8SJ+Tr6g8ypJCTHnOmh/hLY1/53ztSqJmdN/mHeO5w0c7patLo +YtjXpdzGg1wzp3iTcWk0nJbVv4q4quSIeGDZNFS0XKV6g3i08n17t408fltW +es+3nQfKjvKKEeXyGNRQtvg48dImW1SwUsDK4E/mqcQB/MdpyxZPx0NVzOct +xAck6pauklfEtvKReq8OHgj08r7HjCnhyueh5Yc6yfehamTemCrj/doPlinE +EveFuprBylgVH8ioJJ5rOmdrTq8yynfAHcUuHuy0uVzY0KGCClcfRnCJ3/iG +hGrUqmHe6wQZOT4P2jIvxvlMU8dHt5ZxLIn7enPuZNupI9/IgKKIZcN471dW +qCNEqlRUEtue2m7m81gDw+d4Bp4S8KA0w2I0K1ULxTwLs3S+8SBD8Ct8RZgO +Ztulv8gX8WCDS2xb6AMdfB1ZI9dD3Felsu6BUAcVP2GVXi8PzDIWqc11n42S +At2TicRVTO+HUqvnoObf35an+3gwPNhxqPvkXJT32x7LGeCByj7bRw836SHr +V/7zgmEeCDNk/bcE6OFd8Vc/x4mLWxq1+0/r4XjOidvwgweejl4n51XoodeS +CWgkzlgYvvUGQx9NNdaXjI2Q9UWZQ1EaBlh6QTLNbZwH2/3kTOw7DVGiwMXl +wAQPINyFseOPIWr2pH6tJDaOSV3O0pqHiYdv12v84YHYHdO1Uc7zMHNv80gF +8YM2jx2Fz+dhs8KhLZqT5H665h6fmT4frVdfga/ifCi23fRRxDTC1ByReuFU +PtzZlvh1PMoIPy+Yo60yjQ8XmZ0dkjeN0OHU8bgwYtaxg72z3xthwYv2AksZ +Pig9TRHbZmOMzJaQ6a9k+RBgOmBcpr8QMyNjNEcV+KCtdyk6jr8IT7fWxmSo +8uHpuRGjnxImKOvdHTFLjQ+eP9ybKF0TPGg99D2B+FaVgdFabxOsMfjsFavO +Bz2/0nf0JxO08is0D9Hkg3GuwJCqXYwbJHJFu2bxQUd7NjXXfSk+NLRMuGnA +h0V3w+R/AwMnBWmO1yz4wGSdHDVxYuCGpPM2+sv5kKQf3+bjyUBjG4f7XOIp +6fkFrzgMbBp2q39jyYcvt0Tb47kMdH2601NpJR/OJvmkGOmbotB48f1s4IMw +znGxm7QZ+m/ItFiykQ+3Qwy2PK4zR49foX6XvPjQGA7LT921QqosvazjEh90 +vT84eQWuQjqpcnviaz6wJ5/k6RxGzGuIHvojLQCN3uKpGsy1aNM3YT/pLIAw +U+uWeGNbtHU6xZiZJgBm/0S1isgO7YW2yXtHBPBgbejU1Dfr0XtC6t5rNyFk +jAQ8z03YiGLLvi74WS4Eeo1mfVW0AxbX1R+wW/4NWsWmfO/cvQmf5npmrS76 +BkGz9l8+rr8ZB+80uicv74a8PdUV12K24G/b25zOum448kNrfOEeZ+zwcu1t +2N0Do/brXP+3ayseDZaOaVQQgZXHlTUC52145XrT0avPRfBOKyWgynQ7rshY +Eagc2gsz7518mrXABUXBW2QsVvdBcYexo5OCKzb9vDHRItUPs5uG/ML7XXHy +o+qz9+/6wfTaldw7HTvQJ1DYYls2ACmSPxbHV7ohtzJb3CllEJ6sWfIlpsQd +1f9LL2reNARJy88pTeTsxNgjSVpz3gzBm693T5ue90Appih+hcN3eLwp2eDA +MU880X2xZu6H7/B93zaxIJYXtrm4tnm5DcPoOiP/ARtvXCxFqxd/GYas/s90 +qMUu3Nb8Ybvlnh/gdvuur5e8D6ZP3extO/ADHhY67JoS64Nf9U74HTo6Alba +736e/emDseO7dJXER0G/w+/L2z27saupzXQ4ahT4cns3J/N2Y3fPmrAkiTFo +vOjku96FiQc9d7yNPTQGCZxUuYONTByN+S21amAMnpZP/vTd6IseRhrz57iP +wwxPjDUt9cWlU842NxeOg5XPQFaMGQsLwzyZrVNpuHdjKNTJgoVa7R2/xGRo +UH0/vFrDkoXXm4806MvSMGA33pS1koWiSKGhnzxN3hcx8bq1xDHsi3xFGqaP +K7krO7Mw6H/P5Uu1aOBfMJdJ3cdC6lPcRL0xDRfLIvcU32PhcsWNquftadjH +SLTiZLGwPNO5+pADDY7ZXBnLHBZOpjsXMB1pkE0UZhc9YOGUZF9tCycaYkK2 +iJ48YiHXVc7tvTMNkUYGex+/IPV21K/65kZDQGJtYGEbC636/3MNpWjYOF1o +HdLBwnPNvwzt/GhYECOmwOhiYU7HFz11fxqEIeYPuAIWGs6pzXi8h4bdTqn9 +BX0s3FG7skoUSIObVGhQ/i8W+kgGbDAJpWF96MwDuepsPJN/bL5yNA0vUk/b +x2uyUd3E6VMzsXXdsAFnJhtnj3w8c+sYDUsNaz/bzGZj5EKboXknaND6FGHz +1ZCN8X+5NQtjaOhd0aoua87G3vRZx6TiaLgkkfbMbxsbb29ec378Gtn/Evmk +TS5sNKiYoXjrOg2nPDghpjvYeNjB65JNIg2cR1vmT+5ko3XZf9FxSaR+SvzK +dSYb/S2K9GbcpMG0hsl6GcxGPcsJe0EqDZ+uGMrpX2bjiR8Rk7VZNOSBgn/3 +FTb+PdhQvCGb5PePVD24ykYVlTfnqogZG6uiLBPZOKTtyynJIf9PzHd40y02 +alalhCfl0rBuf9pnTi4bpzk7CI0LaNDROWOxOo+Ns8wGZ90gHqnZf3VKARsX +iiICpLk0pM+DTRcfsvHepGBjG/Gf1taKO6VsPGltoHHyIQ2PHLWzGqrZGHVs +xYe0JzTE/ZKQSqhho80MTpBYEQ3MLNFu9zo2nvJU1NlFrChZqs1/w0adzaMl +WsU0BJa5Xfr5kY2KmVpDJ0to0De+Hm4gYCP3XP2KRU9p+PXp6PseIRubv1Fz +jhI3xrCX5nezMWdSUrOeOKrTTGTVx8bYm+J2Ac9o+JL03mvzDzaWJnfH3Sin +IX6qkt0RcQrPFpx9VltBw9PhVo+wKRSK3c87ovachm+tOSFBUhT6d3opehNb +P7JNY8pQ6ENLvOwlFvpwftsrUViuruL88wWp39FO2U6FwpnVjEarShpWLlc2 +AjUKk56Yzz9MfFkh19VUi0LN4CTPkX/jpe1cbV0Kk2Vqu1qqaKDu5lar6VNI +tf2erfqSzL98uH2GIYVSntEMe2IhpaIgaUTh0CPr9sJ/4yrr/fuWUvjC4fOm +8Fc0lP5ViRYyKLy4S7A2g1jQ03Gtw4zCR3I1098Sr6g4UtlkSeHzZqHx/P+R ++xyYN/sZUujyQir0JfF0twjzorUUNiTv1RERW9lscOTaUuiVtO6WQjU5L1pd +h+9uoDB9aKm+M3GxZP7lVHsKZfIXzg8m5g1GZN5wpPCvc4j4ZWLLV2ofLmyh +cP/gM8saYia3qzd2K4VCXe41AfGF5HyJE9spHMiqq54k7grZuDTcjUJTeS/u +0tc0KHirrz+wk0LO+AtqPbHlRp5XgCeFIS6mw57EF+YcjfP2oVD6gFbcKeJi +Wft0NyaFvionk64Td42ql2xlUTg51haR+S+vk/fGkaKw8vt886J/eXUFwnX+ +FBaau1e9JGYWHf2DAWT/m4OM3v/LT7dXXRlIodkCX1b7v/wLGgvNgyhUljA7 +KPqXz+GvWXKAwscRrR4jxPIsrptRCIWRFz01/xAv3xy1Xz+Mwr6LeTmSNSR/ +hcNpnXAKUxa9VZYjPm+omaLBodAp5MUWReInioKHSkco/PzyGEuVuPM3t0Yu +ksL13bJOGsTy36I6paIoLBrdpaBFbPHOgZ6MpjCMHZ3+z/8HSqHvzg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1HlUjc8fB/BKRRvti4Q2FFluiyI+HypLJUIpLXK79ylJtMillC0ha6Ic +pSRapLpZ2ugbxS9tQgjtd1G3VVoeRL/xx5w5rzNz3vOZ55kZXeb+rWwJMTGx +LtL+9cENi+cXNTasNh6qjZzSwoPVAxnmTNtcmO5aX/jPHakWCQa2T2Hia/12 +SeItrHppedOX8OtMPVOKmMuJrpSyrQOGf12LNPHZV5oV0TlvgXu25sU04pLG +4FsTjA8gEK9WlSMWfamJPFzWDH09Ve8UiGcK9D3GbFpgw67nE4rEDoORVqF1 +7WB06lm8KnH5hEiOk9MJNtElCZrEH49rRDwJ4kFdxGMJHeIBaVvRCEMAt7K5 +LbrE0ucPuJuOC2HUOk9vPvFspZTq4LJuaA6637SI2El77N6ATR8czcqKtCKm +0vTUTaYNQK1ldggSRxtujtlbNwglnPtN64mbNZqWheV8hzT7Jy07iFk7A/Zc +PT8MiWf/O+FDPJQsdrsw6Afov6tN2EM8Tc9E8TtjFCTlByciiRNYlesV1cag +oEF6Wyzx3Ez36CXjY/Bglb5aPLHlotMD+8poOD+6tzWL2N+ivU5kMwG7U+yj +vhKPcA5Kys77A3Gh18x6iI+VyVkbTfsLiuo9ruPESWh5369uEjzmPWhXbSX1 +3a22DckRR0UsFXchznl1teO4tgReN/DSpIiHvnlHXjkvgZGa028eIo40Hn1Y +EDQFM+al8G8SJ+Tr6g8ypJCTHnOmh/hLY1/53ztSqJmdN/mHeO5w0c7patLo +YtjXpdzGg1wzp3iTcWk0nJbVv4q4quSIeGDZNFS0XKV6g3i08n17t408fltW +es+3nQfKjvKKEeXyGNRQtvg48dImW1SwUsDK4E/mqcQB/MdpyxZPx0NVzOct +xAck6pauklfEtvKReq8OHgj08r7HjCnhyueh5Yc6yfehamTemCrj/doPlinE +EveFuprBylgVH8ioJJ5rOmdrTq8yynfAHcUuHuy0uVzY0KGCClcfRnCJ3/iG +hGrUqmHe6wQZOT4P2jIvxvlMU8dHt5ZxLIn7enPuZNupI9/IgKKIZcN471dW +qCNEqlRUEtue2m7m81gDw+d4Bp4S8KA0w2I0K1ULxTwLs3S+8SBD8Ct8RZgO +Ztulv8gX8WCDS2xb6AMdfB1ZI9dD3Felsu6BUAcVP2GVXi8PzDIWqc11n42S +At2TicRVTO+HUqvnoObf35an+3gwPNhxqPvkXJT32x7LGeCByj7bRw836SHr +V/7zgmEeCDNk/bcE6OFd8Vc/x4mLWxq1+0/r4XjOidvwgweejl4n51XoodeS +CWgkzlgYvvUGQx9NNdaXjI2Q9UWZQ1EaBlh6QTLNbZwH2/3kTOw7DVGiwMXl +wAQPINyFseOPIWr2pH6tJDaOSV3O0pqHiYdv12v84YHYHdO1Uc7zMHNv80gF +8YM2jx2Fz+dhs8KhLZqT5H665h6fmT4frVdfga/ifCi23fRRxDTC1ByReuFU +PtzZlvh1PMoIPy+Yo60yjQ8XmZ0dkjeN0OHU8bgwYtaxg72z3xthwYv2AksZ +Pig9TRHbZmOMzJaQ6a9k+RBgOmBcpr8QMyNjNEcV+KCtdyk6jr8IT7fWxmSo +8uHpuRGjnxImKOvdHTFLjQ+eP9ybKF0TPGg99D2B+FaVgdFabxOsMfjsFavO +Bz2/0nf0JxO08is0D9Hkg3GuwJCqXYwbJHJFu2bxQUd7NjXXfSk+NLRMuGnA +h0V3w+R/AwMnBWmO1yz4wGSdHDVxYuCGpPM2+sv5kKQf3+bjyUBjG4f7XOIp +6fkFrzgMbBp2q39jyYcvt0Tb47kMdH2601NpJR/OJvmkGOmbotB48f1s4IMw +znGxm7QZ+m/ItFiykQ+3Qwy2PK4zR49foX6XvPjQGA7LT921QqosvazjEh90 +vT84eQWuQjqpcnviaz6wJ5/k6RxGzGuIHvojLQCN3uKpGsy1aNM3YT/pLIAw +U+uWeGNbtHU6xZiZJgBm/0S1isgO7YW2yXtHBPBgbejU1Dfr0XtC6t5rNyFk +jAQ8z03YiGLLvi74WS4Eeo1mfVW0AxbX1R+wW/4NWsWmfO/cvQmf5npmrS76 +BkGz9l8+rr8ZB+80uicv74a8PdUV12K24G/b25zOum448kNrfOEeZ+zwcu1t +2N0Do/brXP+3ayseDZaOaVQQgZXHlTUC52145XrT0avPRfBOKyWgynQ7rshY +Eagc2gsz7518mrXABUXBW2QsVvdBcYexo5OCKzb9vDHRItUPs5uG/ML7XXHy +o+qz9+/6wfTaldw7HTvQJ1DYYls2ACmSPxbHV7ohtzJb3CllEJ6sWfIlpsQd +1f9LL2reNARJy88pTeTsxNgjSVpz3gzBm693T5ue90Appih+hcN3eLwp2eDA +MU880X2xZu6H7/B93zaxIJYXtrm4tnm5DcPoOiP/ARtvXCxFqxd/GYas/s90 +qMUu3Nb8Ybvlnh/gdvuur5e8D6ZP3extO/ADHhY67JoS64Nf9U74HTo6Alba +736e/emDseO7dJXER0G/w+/L2z27saupzXQ4ahT4cns3J/N2Y3fPmrAkiTFo +vOjku96FiQc9d7yNPTQGCZxUuYONTByN+S21amAMnpZP/vTd6IseRhrz57iP +wwxPjDUt9cWlU842NxeOg5XPQFaMGQsLwzyZrVNpuHdjKNTJgoVa7R2/xGRo +UH0/vFrDkoXXm4806MvSMGA33pS1koWiSKGhnzxN3hcx8bq1xDHsi3xFGqaP +K7krO7Mw6H/P5Uu1aOBfMJdJ3cdC6lPcRL0xDRfLIvcU32PhcsWNquftadjH +SLTiZLGwPNO5+pADDY7ZXBnLHBZOpjsXMB1pkE0UZhc9YOGUZF9tCycaYkK2 +iJ48YiHXVc7tvTMNkUYGex+/IPV21K/65kZDQGJtYGEbC636/3MNpWjYOF1o +HdLBwnPNvwzt/GhYECOmwOhiYU7HFz11fxqEIeYPuAIWGs6pzXi8h4bdTqn9 +BX0s3FG7skoUSIObVGhQ/i8W+kgGbDAJpWF96MwDuepsPJN/bL5yNA0vUk/b +x2uyUd3E6VMzsXXdsAFnJhtnj3w8c+sYDUsNaz/bzGZj5EKboXknaND6FGHz +1ZCN8X+5NQtjaOhd0aoua87G3vRZx6TiaLgkkfbMbxsbb29ec378Gtn/Evmk +TS5sNKiYoXjrOg2nPDghpjvYeNjB65JNIg2cR1vmT+5ko3XZf9FxSaR+SvzK +dSYb/S2K9GbcpMG0hsl6GcxGPcsJe0EqDZ+uGMrpX2bjiR8Rk7VZNOSBgn/3 +FTb+PdhQvCGb5PePVD24ykYVlTfnqogZG6uiLBPZOKTtyynJIf9PzHd40y02 +alalhCfl0rBuf9pnTi4bpzk7CI0LaNDROWOxOo+Ns8wGZ90gHqnZf3VKARsX +iiICpLk0pM+DTRcfsvHepGBjG/Gf1taKO6VsPGltoHHyIQ2PHLWzGqrZGHVs +xYe0JzTE/ZKQSqhho80MTpBYEQ3MLNFu9zo2nvJU1NlFrChZqs1/w0adzaMl +WsU0BJa5Xfr5kY2KmVpDJ0to0De+Hm4gYCP3XP2KRU9p+PXp6PseIRubv1Fz +jhI3xrCX5nezMWdSUrOeOKrTTGTVx8bYm+J2Ac9o+JL03mvzDzaWJnfH3Sin +IX6qkt0RcQrPFpx9VltBw9PhVo+wKRSK3c87ovachm+tOSFBUhT6d3opehNb +P7JNY8pQ6ENLvOwlFvpwftsrUViuruL88wWp39FO2U6FwpnVjEarShpWLlc2 +AjUKk56Yzz9MfFkh19VUi0LN4CTPkX/jpe1cbV0Kk2Vqu1qqaKDu5lar6VNI +tf2erfqSzL98uH2GIYVSntEMe2IhpaIgaUTh0CPr9sJ/4yrr/fuWUvjC4fOm +8Fc0lP5ViRYyKLy4S7A2g1jQ03Gtw4zCR3I1098Sr6g4UtlkSeHzZqHx/P+R ++xyYN/sZUujyQir0JfF0twjzorUUNiTv1RERW9lscOTaUuiVtO6WQjU5L1pd +h+9uoDB9aKm+M3GxZP7lVHsKZfIXzg8m5g1GZN5wpPCvc4j4ZWLLV2ofLmyh +cP/gM8saYia3qzd2K4VCXe41AfGF5HyJE9spHMiqq54k7grZuDTcjUJTeS/u +0tc0KHirrz+wk0LO+AtqPbHlRp5XgCeFIS6mw57EF+YcjfP2oVD6gFbcKeJi +Wft0NyaFvionk64Td42ql2xlUTg51haR+S+vk/fGkaKw8vt886J/eXUFwnX+ +FBaau1e9JGYWHf2DAWT/m4OM3v/LT7dXXRlIodkCX1b7v/wLGgvNgyhUljA7 +KPqXz+GvWXKAwscRrR4jxPIsrptRCIWRFz01/xAv3xy1Xz+Mwr6LeTmSNSR/ +hcNpnXAKUxa9VZYjPm+omaLBodAp5MUWReInioKHSkco/PzyGEuVuPM3t0Yu +ksL13bJOGsTy36I6paIoLBrdpaBFbPHOgZ6MpjCMHZ3+z/8HSqHvzg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6206071317133184, + 1.5493408534587987`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6206071317133197}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6206071317133184, + 1.5493408534587987`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6206071317133197}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1HlUjc8fB/BKRRvti4Q2FFluiyI+HypLJUIpLXK79ylJtMillC0ha6Ic +pSRapLpZ2ugbxS9tQgjtd1G3VVoeRL/xx5w5rzNz3vOZ55kZXeb+rWwJMTGx +LtL+9cENi+cXNTasNh6qjZzSwoPVAxnmTNtcmO5aX/jPHakWCQa2T2Hia/12 +SeItrHppedOX8OtMPVOKmMuJrpSyrQOGf12LNPHZV5oV0TlvgXu25sU04pLG +4FsTjA8gEK9WlSMWfamJPFzWDH09Ve8UiGcK9D3GbFpgw67nE4rEDoORVqF1 +7WB06lm8KnH5hEiOk9MJNtElCZrEH49rRDwJ4kFdxGMJHeIBaVvRCEMAt7K5 +LbrE0ucPuJuOC2HUOk9vPvFspZTq4LJuaA6637SI2El77N6ATR8czcqKtCKm +0vTUTaYNQK1ldggSRxtujtlbNwglnPtN64mbNZqWheV8hzT7Jy07iFk7A/Zc +PT8MiWf/O+FDPJQsdrsw6Afov6tN2EM8Tc9E8TtjFCTlByciiRNYlesV1cag +oEF6Wyzx3Ez36CXjY/Bglb5aPLHlotMD+8poOD+6tzWL2N+ivU5kMwG7U+yj +vhKPcA5Kys77A3Gh18x6iI+VyVkbTfsLiuo9ruPESWh5369uEjzmPWhXbSX1 +3a22DckRR0UsFXchznl1teO4tgReN/DSpIiHvnlHXjkvgZGa028eIo40Hn1Y +EDQFM+al8G8SJ+Tr6g8ypJCTHnOmh/hLY1/53ztSqJmdN/mHeO5w0c7patLo +YtjXpdzGg1wzp3iTcWk0nJbVv4q4quSIeGDZNFS0XKV6g3i08n17t408fltW +es+3nQfKjvKKEeXyGNRQtvg48dImW1SwUsDK4E/mqcQB/MdpyxZPx0NVzOct +xAck6pauklfEtvKReq8OHgj08r7HjCnhyueh5Yc6yfehamTemCrj/doPlinE +EveFuprBylgVH8ioJJ5rOmdrTq8yynfAHcUuHuy0uVzY0KGCClcfRnCJ3/iG +hGrUqmHe6wQZOT4P2jIvxvlMU8dHt5ZxLIn7enPuZNupI9/IgKKIZcN471dW +qCNEqlRUEtue2m7m81gDw+d4Bp4S8KA0w2I0K1ULxTwLs3S+8SBD8Ct8RZgO +Ztulv8gX8WCDS2xb6AMdfB1ZI9dD3Felsu6BUAcVP2GVXi8PzDIWqc11n42S +At2TicRVTO+HUqvnoObf35an+3gwPNhxqPvkXJT32x7LGeCByj7bRw836SHr +V/7zgmEeCDNk/bcE6OFd8Vc/x4mLWxq1+0/r4XjOidvwgweejl4n51XoodeS +CWgkzlgYvvUGQx9NNdaXjI2Q9UWZQ1EaBlh6QTLNbZwH2/3kTOw7DVGiwMXl +wAQPINyFseOPIWr2pH6tJDaOSV3O0pqHiYdv12v84YHYHdO1Uc7zMHNv80gF +8YM2jx2Fz+dhs8KhLZqT5H665h6fmT4frVdfga/ifCi23fRRxDTC1ByReuFU +PtzZlvh1PMoIPy+Yo60yjQ8XmZ0dkjeN0OHU8bgwYtaxg72z3xthwYv2AksZ +Pig9TRHbZmOMzJaQ6a9k+RBgOmBcpr8QMyNjNEcV+KCtdyk6jr8IT7fWxmSo +8uHpuRGjnxImKOvdHTFLjQ+eP9ybKF0TPGg99D2B+FaVgdFabxOsMfjsFavO +Bz2/0nf0JxO08is0D9Hkg3GuwJCqXYwbJHJFu2bxQUd7NjXXfSk+NLRMuGnA +h0V3w+R/AwMnBWmO1yz4wGSdHDVxYuCGpPM2+sv5kKQf3+bjyUBjG4f7XOIp +6fkFrzgMbBp2q39jyYcvt0Tb47kMdH2601NpJR/OJvmkGOmbotB48f1s4IMw +znGxm7QZ+m/ItFiykQ+3Qwy2PK4zR49foX6XvPjQGA7LT921QqosvazjEh90 +vT84eQWuQjqpcnviaz6wJ5/k6RxGzGuIHvojLQCN3uKpGsy1aNM3YT/pLIAw +U+uWeGNbtHU6xZiZJgBm/0S1isgO7YW2yXtHBPBgbejU1Dfr0XtC6t5rNyFk +jAQ8z03YiGLLvi74WS4Eeo1mfVW0AxbX1R+wW/4NWsWmfO/cvQmf5npmrS76 +BkGz9l8+rr8ZB+80uicv74a8PdUV12K24G/b25zOum448kNrfOEeZ+zwcu1t +2N0Do/brXP+3ayseDZaOaVQQgZXHlTUC52145XrT0avPRfBOKyWgynQ7rshY +Eagc2gsz7518mrXABUXBW2QsVvdBcYexo5OCKzb9vDHRItUPs5uG/ML7XXHy +o+qz9+/6wfTaldw7HTvQJ1DYYls2ACmSPxbHV7ohtzJb3CllEJ6sWfIlpsQd +1f9LL2reNARJy88pTeTsxNgjSVpz3gzBm693T5ue90Appih+hcN3eLwp2eDA +MU880X2xZu6H7/B93zaxIJYXtrm4tnm5DcPoOiP/ARtvXCxFqxd/GYas/s90 +qMUu3Nb8Ybvlnh/gdvuur5e8D6ZP3extO/ADHhY67JoS64Nf9U74HTo6Alba +736e/emDseO7dJXER0G/w+/L2z27saupzXQ4ahT4cns3J/N2Y3fPmrAkiTFo +vOjku96FiQc9d7yNPTQGCZxUuYONTByN+S21amAMnpZP/vTd6IseRhrz57iP +wwxPjDUt9cWlU842NxeOg5XPQFaMGQsLwzyZrVNpuHdjKNTJgoVa7R2/xGRo +UH0/vFrDkoXXm4806MvSMGA33pS1koWiSKGhnzxN3hcx8bq1xDHsi3xFGqaP +K7krO7Mw6H/P5Uu1aOBfMJdJ3cdC6lPcRL0xDRfLIvcU32PhcsWNquftadjH +SLTiZLGwPNO5+pADDY7ZXBnLHBZOpjsXMB1pkE0UZhc9YOGUZF9tCycaYkK2 +iJ48YiHXVc7tvTMNkUYGex+/IPV21K/65kZDQGJtYGEbC636/3MNpWjYOF1o +HdLBwnPNvwzt/GhYECOmwOhiYU7HFz11fxqEIeYPuAIWGs6pzXi8h4bdTqn9 +BX0s3FG7skoUSIObVGhQ/i8W+kgGbDAJpWF96MwDuepsPJN/bL5yNA0vUk/b +x2uyUd3E6VMzsXXdsAFnJhtnj3w8c+sYDUsNaz/bzGZj5EKboXknaND6FGHz +1ZCN8X+5NQtjaOhd0aoua87G3vRZx6TiaLgkkfbMbxsbb29ec378Gtn/Evmk +TS5sNKiYoXjrOg2nPDghpjvYeNjB65JNIg2cR1vmT+5ko3XZf9FxSaR+SvzK +dSYb/S2K9GbcpMG0hsl6GcxGPcsJe0EqDZ+uGMrpX2bjiR8Rk7VZNOSBgn/3 +FTb+PdhQvCGb5PePVD24ykYVlTfnqogZG6uiLBPZOKTtyynJIf9PzHd40y02 +alalhCfl0rBuf9pnTi4bpzk7CI0LaNDROWOxOo+Ns8wGZ90gHqnZf3VKARsX +iiICpLk0pM+DTRcfsvHepGBjG/Gf1taKO6VsPGltoHHyIQ2PHLWzGqrZGHVs +xYe0JzTE/ZKQSqhho80MTpBYEQ3MLNFu9zo2nvJU1NlFrChZqs1/w0adzaMl +WsU0BJa5Xfr5kY2KmVpDJ0to0De+Hm4gYCP3XP2KRU9p+PXp6PseIRubv1Fz +jhI3xrCX5nezMWdSUrOeOKrTTGTVx8bYm+J2Ac9o+JL03mvzDzaWJnfH3Sin +IX6qkt0RcQrPFpx9VltBw9PhVo+wKRSK3c87ovachm+tOSFBUhT6d3opehNb +P7JNY8pQ6ENLvOwlFvpwftsrUViuruL88wWp39FO2U6FwpnVjEarShpWLlc2 +AjUKk56Yzz9MfFkh19VUi0LN4CTPkX/jpe1cbV0Kk2Vqu1qqaKDu5lar6VNI +tf2erfqSzL98uH2GIYVSntEMe2IhpaIgaUTh0CPr9sJ/4yrr/fuWUvjC4fOm +8Fc0lP5ViRYyKLy4S7A2g1jQ03Gtw4zCR3I1098Sr6g4UtlkSeHzZqHx/P+R ++xyYN/sZUujyQir0JfF0twjzorUUNiTv1RERW9lscOTaUuiVtO6WQjU5L1pd +h+9uoDB9aKm+M3GxZP7lVHsKZfIXzg8m5g1GZN5wpPCvc4j4ZWLLV2ofLmyh +cP/gM8saYia3qzd2K4VCXe41AfGF5HyJE9spHMiqq54k7grZuDTcjUJTeS/u +0tc0KHirrz+wk0LO+AtqPbHlRp5XgCeFIS6mw57EF+YcjfP2oVD6gFbcKeJi +Wft0NyaFvionk64Td42ql2xlUTg51haR+S+vk/fGkaKw8vt886J/eXUFwnX+ +FBaau1e9JGYWHf2DAWT/m4OM3v/LT7dXXRlIodkCX1b7v/wLGgvNgyhUljA7 +KPqXz+GvWXKAwscRrR4jxPIsrptRCIWRFz01/xAv3xy1Xz+Mwr6LeTmSNSR/ +hcNpnXAKUxa9VZYjPm+omaLBodAp5MUWReInioKHSkco/PzyGEuVuPM3t0Yu +ksL13bJOGsTy36I6paIoLBrdpaBFbPHOgZ6MpjCMHZ3+z/8HSqHvzg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6206071317133184, 1.5493408534587987`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6206071317133197}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.6206071317133197}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.6206071317133184, 1.5493408534587987`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994260854792568*^9}, + CellLabel-> + "Out[139]=",ExpressionUUID->"cbc51f33-4fc4-4dd7-b93a-f6b78cea2d13"] }, Open ]], Cell[CellGroupData[{ @@ -11668,425 +13925,1128 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ - 3.99185079904813*^9, {3.9918508647235966`*^9, - 3.991850864992861*^9}},ExpressionUUID->"d43bf17b-b492-0e4a-af4a-\ -6a3bc399953c"], + 3.99185079904813*^9, {3.9918508647235966`*^9, 3.991850864992861*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"2059be4f-bbb2-da49-9e23-3fc4d150d7a8"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.4782415727965125`*^-262\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 69, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260854936713*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"4a2ad318-7027-4698-8829-a45225ae5418"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"71d4e039-c2b8-d74d-819a-80d2051e4273"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.438638039878764`*^-273\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 140, 70, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942608549438562`*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"adbf892e-accf-4a98-867e-8fbefafaef17"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"63625e13-15ef-1f45-89dc-998a1b63a626"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.66421487315464`*^-284\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 140, 71, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260854952305*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"d59fb613-9c01-41f4-9562-916f385e2ce3"], Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"ff96fc2b-5ddb-2142-a985-58ccc6f07e00"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.0634921 0.0147151 5.37313 [ -[.15079 .00222 -3 -9 ] -[.15079 .00222 3 0 ] -[.27778 .00222 -3 -9 ] -[.27778 .00222 3 0 ] -[.40476 .00222 -3 -9 ] -[.40476 .00222 3 0 ] -[.53175 .00222 -3 -9 ] -[.53175 .00222 3 0 ] -[.65873 .00222 -6 -9 ] -[.65873 .00222 6 0 ] -[.78571 .00222 -6 -9 ] -[.78571 .00222 6 0 ] -[.9127 .00222 -6 -9 ] -[.9127 .00222 6 0 ] -[.01131 .12218 -24 -4.5 ] -[.01131 .12218 0 4.5 ] -[.01131 .22964 -24 -4.5 ] -[.01131 .22964 0 4.5 ] -[.01131 .3371 -24 -4.5 ] -[.01131 .3371 0 4.5 ] -[.01131 .44457 -24 -4.5 ] -[.01131 .44457 0 4.5 ] -[.01131 .55203 -18 -4.5 ] -[.01131 .55203 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.15079 .01472 m -.15079 .02097 L -s -[(2)] .15079 .00222 0 1 Mshowa -.27778 .01472 m -.27778 .02097 L -s -[(4)] .27778 .00222 0 1 Mshowa -.40476 .01472 m -.40476 .02097 L -s -[(6)] .40476 .00222 0 1 Mshowa -.53175 .01472 m -.53175 .02097 L -s -[(8)] .53175 .00222 0 1 Mshowa -.65873 .01472 m -.65873 .02097 L -s -[(10)] .65873 .00222 0 1 Mshowa -.78571 .01472 m -.78571 .02097 L -s -[(12)] .78571 .00222 0 1 Mshowa -.9127 .01472 m -.9127 .02097 L -s -[(14)] .9127 .00222 0 1 Mshowa -.125 Mabswid -.05556 .01472 m -.05556 .01847 L -s -.0873 .01472 m -.0873 .01847 L -s -.11905 .01472 m -.11905 .01847 L -s -.18254 .01472 m -.18254 .01847 L -s -.21429 .01472 m -.21429 .01847 L -s -.24603 .01472 m -.24603 .01847 L -s -.30952 .01472 m -.30952 .01847 L -s -.34127 .01472 m -.34127 .01847 L -s -.37302 .01472 m -.37302 .01847 L -s -.43651 .01472 m -.43651 .01847 L -s -.46825 .01472 m -.46825 .01847 L -s -.5 .01472 m -.5 .01847 L -s -.56349 .01472 m -.56349 .01847 L -s -.59524 .01472 m -.59524 .01847 L -s -.62698 .01472 m -.62698 .01847 L -s -.69048 .01472 m -.69048 .01847 L -s -.72222 .01472 m -.72222 .01847 L -s -.75397 .01472 m -.75397 .01847 L -s -.81746 .01472 m -.81746 .01847 L -s -.84921 .01472 m -.84921 .01847 L -s -.88095 .01472 m -.88095 .01847 L -s -.94444 .01472 m -.94444 .01847 L -s -.97619 .01472 m -.97619 .01847 L -s -.25 Mabswid -0 .01472 m -1 .01472 L -s -.02381 .12218 m -.03006 .12218 L -s -[(0.02)] .01131 .12218 1 0 Mshowa -.02381 .22964 m -.03006 .22964 L -s -[(0.04)] .01131 .22964 1 0 Mshowa -.02381 .3371 m -.03006 .3371 L -s -[(0.06)] .01131 .3371 1 0 Mshowa -.02381 .44457 m -.03006 .44457 L -s -[(0.08)] .01131 .44457 1 0 Mshowa -.02381 .55203 m -.03006 .55203 L -s -[(0.1)] .01131 .55203 1 0 Mshowa -.125 Mabswid -.02381 .04158 m -.02756 .04158 L -s -.02381 .06845 m -.02756 .06845 L -s -.02381 .09531 m -.02756 .09531 L -s -.02381 .14904 m -.02756 .14904 L -s -.02381 .17591 m -.02756 .17591 L -s -.02381 .20277 m -.02756 .20277 L -s -.02381 .25651 m -.02756 .25651 L -s -.02381 .28337 m -.02756 .28337 L -s -.02381 .31024 m -.02756 .31024 L -s -.02381 .36397 m -.02756 .36397 L -s -.02381 .39083 m -.02756 .39083 L -s -.02381 .4177 m -.02756 .4177 L -s -.02381 .47143 m -.02756 .47143 L -s -.02381 .4983 m -.02756 .4983 L -s -.02381 .52516 m -.02756 .52516 L -s -.02381 .57889 m -.02756 .57889 L -s -.02381 .60576 m -.02756 .60576 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .01472 m -.06244 .12073 L -.10458 .23188 L -.14415 .32802 L -.18221 .40977 L -.22272 .48259 L -.26171 .53704 L -.28302 .55995 L -.30316 .57709 L -.31285 .58377 L -.32313 .58977 L -.33276 .59437 L -.34157 .59772 L -.35098 .60043 L -.35617 .60154 L -.3611 .60234 L -.3633 .60262 L -.36564 .60287 L -.36785 .60305 L -.36985 .60318 L -.37108 .60323 L -.37222 .60327 L -.37346 .6033 L -.37477 .60332 L -.37591 .60332 L -.37698 .60331 L -.37815 .60328 L -.3794 .60324 L -.38062 .60319 L -.38197 .60311 L -.38469 .60291 L -.38721 .60266 L -.38958 .60237 L -.3949 .60153 L -.40064 .60035 L -.41114 .59744 L -.42077 .59396 L -.43969 .58496 L -.46039 .57209 L -.50095 .53905 L -.54 .49958 L -.58149 .45213 L -.62148 .40358 L -.65994 .3563 L -.70086 .30723 L -.74026 .26259 L -.77815 .22302 L -.81849 .18514 L -.85731 .15313 L -.89859 .12393 L -Mistroke -.93835 .10033 L -.97619 .08171 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJztnAuQHEUZx+fudu/gQhAJIkZiLsAl5HJ3gRheC+EVTAgkBAiSXB6Ey2PJ -GfLgEt6PBCQgCLgRBBR8CyoIBpAVBEEEXwglUuJrkZJCpaSU8lFqaanrTvdM -b8/s75vdmd1NYhVXucnc/+vv319/801P9zfdM2dw46qVawY3Di0f7Jo5PLh+ -1dDyDV0z1g2XoLYWx2nZVvrt7HLc86Lj+Idi6V/xAffgItXP56v/2krHvJN1 -9E9KHducbF6VVL+T1DHtFAs5J+OUf9wy/Z4sn7UkmZxTKKF9nqyQz1p6GSdX -KDoH+nXns0bSpo67ltQLpm71WyjZ5xNksk6+pH+AqJ+y9FW70tCkcaJ6W6D6 -1oim76u9uMCjcj2QyeZVy1sN5phq+wHTHmp3Cjmt61erPJbN96o/OpSVPrUu -UnBy2axyZI9Hm8tox/qXVOm55TyHlR1Z+rt0Pl7Uq96UbtDtgHKehwY8kWqV -Z84UKN4biEdN3Wpjpbgqx2Ob9pp3scjMiRFNLOqCAV2bj5qYgnZQHRGuWOhX -r66EVumzqg/Hoh2zPVY0lOpX7ijYV7bUnF6reZlQ82wTo1xDbrXdRa5JQ7sO -rFJHVFtHa3ctMkoFReMW6fXuGX3r6mB2Ec/bfb6X3DvWDRir88lkQx1Tzr2Q -pdY6GXVfuPSTGuyZdmjCBLEOsVljtEMWB24Hrd1rWpMxlvih12eX91gPMkGq -b6lAr1LyQqEY1ask80IH2E09UCqiLWMq+1s/ZOjuN08t1SxHmezL7b7Yb8pk -+9apo1cJ61brVdpqbI/cI3EbA+7y7genrFrIl//u88m8Mhnl/GK/qUOPD9Qj -oeDB5TvMxE+hHGMT/OvodZW5fMEYnjLNdp9iudBTphz5+1XliG7V/hH67dxi -z2cDtqYZt+jnrR0m/khgsnUZAgOhksP8vqYIXBONg0t6bl+kLU8burwy2Fbp -jlYhiwWVDmiI135pwOj36O6P31Or4zX/H/Kx7n9qrLzVPbTIWp11YLu+pbtd -dHcmW2rV3cUKuVZXMGInN/gt3Z3LlsSBdjAUOqhGbHIduoSNCxun4Gst1FIw -cqGTZ3kqUKFfZEvji6QDRQIGXW2V8yc5pkDRezR9MAFZyJ2tgKnjlY3VaZN0 -Nu94nZSks2nH66QlnSvCAVJTyZC8XdK5fMfrdEg6lyXQWe8eVHfRmUB7rdHe -TdbeRdJebbR3T6A9ZLT3kLWpZ1fHrNHeMxwvos4Ko7NXghqXGe29ZW166qjj -UqO9TwLtJUZ7dALtxSCI4KHRlzoOGCvGJNCeb7THytq7SdrvB4HHU05HV2bE -/b7Dz2hncnknHVE+kFn1RJT9p95YtH2eabmevTveTRGRiU6B3WZ6H5HALqcM -opPV1GOL9p8OAr8l2hF+pouyYX5YVksuG8xKJFPnMVIyc65xc3fAOL8SynJ3 -RhhilzO6VipX9aoqOETPzTEmTWi4SYGMkZdDpceR6K/ZIGi8mSYJbiU56Ym+ -u2TmLOPDnoqYs42TYi5oXHugnPvrpRjLGcfou0S080QQ+Banyve7zu1Ras8Y -XZECHBEop+95OcVH3n2bZPUMEOgkcblfhYzbyAiZSVdD2o0CVLTtBHPldXYV -nxii9nQQRPDsIfEca6w4OIH2MSBIwjPNWDFV1n67pH0kCGweJRG1MyA4RLZi -T4nnMNOGwxNoHwqCJDyHgOAImWeUxDPFtOaoBNqUeYjg2UvioSzEtAQ8/SA4 -OgFPr/HKcbL2OyTtHhAk4ZkIguPD8S5qU1XTZSv2lni6jS9mJNA+AAQRPO+U -ePYDwcwEPONAcGICni4QzJJ59pF43gOCkxLwjAHByTLPuySed4NgdgKe0SCY -E45dUZsEp8hWUGXqSJdvbgIeCu9TZR5yojpSh3NaAh7qkE9PwEOPl3kyz74S -Dz3wz0jAQ8MgPWdu6Py4LKtc+kXjTtFeGkafqe1t3uy43dLzx/hkNXUJ6kgT -vfme1Y2bCafrNZNyMAsCZiab2aUD5XweWkqoeNXcWDSSEm0DDTCys8JIYfUQ -zUXooaKOlIlY2ABrKRp4pU8scynju6giUONPn4WogJU2ZO5YyVyK7sWeuXXO -nYPldGsrlrjEMpayAku0sUmnzGY9nLXshGyisZM60purs7RN9BgReVpAsFTm -oTHhfwE7Ox7FfwAbjEfxb8CWyRQ0SP4XYMstCiUhxX8CtkKue3/A/gHYyngU -fwcsG4/ib4CdI1PQjOWvgK2KR/EXwIZkim7A/gTYB5pKMR6wNwFbHY/ij4Cd -G4/iD4CtCYf1BCj0BmBr5bqJ4veArZMpCHsdsPXxKH4H2HkyBSUTfgPY8Han -eA2wDTIFZVdeBWxjPIpfA3a+TDEJsFcAuyAck6T4K8AujFf3y4BdJFP0Alao -n+KXgF0sU/QB9nPALolH8TPALpUpKGn4EmARCxtiUjRjLku7tGhASqb+BDBv -6UfzprH+rghhgxTZTmniFwHzltQ49UxmOypesVXbu0QjarL4x4BtClicbBI2 -gqeMwnYi5V81tyUbfwTY5ubYGLGZh2KAFh02y9qOSmutzTY09acXIs8DdmVF -hDZmFhvc90LTfbLwOcCu8ixs6MS11dwogW0nNM+fAtizgHmLLJPOWcsbMir3 -d1D4kVk/ACxiTed7Aft+/RTfA2xLPIrvAhax/2IqYM8AJqz+lSieBuxDFoWS -0PvPpwC7Tq67ART0NvdJwK6PR/EEYB+WKQ4D7HHAbohH8RhgN8oUhwP2KGA3 -bXeKRwD7iExxBGB5wHLxKB4GbGs4rGmRwkOAfVSumygeBOxmmYIWWjxQP8U2 -wG6RKY4C7H7APhaP4j7AbpUppgF2L2C3xaO4B7DbZYqjAfsSYB9vLIWSHAOF -7gbsE3LdRHEXYHfIFMcC9nnA7oxH8TnAPilTHAfYZwD7VFMpjheLB7FPyxS0 -ruxO0bKGzlhxZZ2TEVfWkal3APZZbWqzlyVHf7ODxowniHcZxWJ909bKlaHe -37WuDCVjbxfvvfrmV+04Yy251qep2BCvJqxk4m1NMlF6s1n5dQkK3fcBditg -X2iApTC1jvgKBMUpraK9BbC7KuK0ESuYvTK1xikZezNgd3vGNmfxsvCNBPLu -TMC2AvZFbXC965bpowQUomRWDjA9VMBnCa0ZvwmwL8sUswC7sX6KGwC7R6Y4 -CbDrAbs3HsV1gH3FolCSk6HQtYDdJ9dNFNcAdr9MQbspttRPcTVgX5Up5gB2 -FWDbZIpTANsMWMTnL4hiE2APyhRzAbscsIdkilMBuywexWmAXQLY18IxSYoX -A/awXDfturoQsLxMMQ+w8wH7ukxxBmAbAHskHsUwYI/KFLT7bz1g35ApzgRs -LWCPxaNYA9jjMsV8wFYD9k2ZYgFgQ4A9IVMMAHYOYE+Gw5oUs4B9S657IWAr -AHtKplgE2DLAvi1T0JbYswF7Oh7FUsCekSmW1Ih9R6Y4q0b/6AS1tzu39tmo -2WRY5ZOQtB+WnEEBpNPv3ggyeh5J80//FQh9X67a5VV3tNqh8axtRPUluiNr -rHQQMOoPQ9VXm03VUz09FH7YoOrVJJMqpefhc81p83LAaDTxfOUVj3pLWGv1 -1JfNNmH2QqjSKm/9Or3blb7WRq/+VgJG4+oXQr2BOFMSP5Bms9ETgGY2+vU9 -dmP09KF56osyxSrAphvHvyQrlj9EQdnBCEV6cFOu+KcyxbmAHWns+YWsSOMO -endiUygJjXkONTW+LNe4zhSaas5ekYufBxitQIigGDb19JuzV+XiG02hHnP2 -mlz8AlNovDn7rVz8IuPBLnP2ulz8UlNI7chSHeMbcvErTPFR5uxNubhaBDHK -Rf4cvr6qwE7yacFqcnVe5XvcTsv/APllRnA=\ -\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ -{-1.61617, -0.0100934, 0.0591342, \ -0.000698765}},ExpressionUUID->"a63f48d3-505f-0a45-b944-e872edd94d6c"], + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 140, 72, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942608549605017`*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"758db889-1dca-4914-bf1a-d3f2863c6f10"], Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-\ -1872f77ea023"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4Vd0XB3BDpUhlHsI919hgJlxcaxkrShElZEwiSZFEMkuR11RJQkKU +4d5zo6jkpURKgyFDSqFBxkKo3n7n99d5Ps8ZnmfvvdZ370P3OmLvw8PFxaXF +zcX1/+vcu9ZHislFJvzNTK7sEXOTzjzJk6Y9scBY3xC+H+UBxV54SfZkQORR +mrchakPozptveHsKgZHQbyOLZiA0IZGx8IaEA8yajAmwh/f3bY/MvGmE0zZE +3G7wAivF0YHpN6+BKXnlLR/zGCy80b8w9eYjqK/2e9ujEwtN5jeKXhX+AJtc +v0d+zzNA5n3tJy/VP1DDzz+Tc/4KiAa43+Qz58Xplj/zPX3XIEPL6p6t43KU +HrIQsFsoht5szYbpNYJo5fYloexkGSQXRb3gkRJC3v9eVza8KQdrXT9hMQUh +9ONyqOEbLoflj+wdVdSEkFi9WXvzVDnEDyn125gKYd1e19NVyyvglPyzT1l+ +QqhtOqqixKiAwALJ/5TrhFDnccrLwuwKsMtlq9q4COM/a64V9dhVgkTW0NnM +qyIoGyx8tbG8CiQ3VsfPl4hgSF+vk09NFUg3JkbtY4mgSpbSWu6GKpCbWn9c +pUkEu3aer1ToqAKlbUEe976IYJ0F75ToQhXoLPmjN6QjinfIuKAOOgt2hIgP +az8VRdWHO1Ib/FiwU+DLu0sdohgYXm9FD2SBfWFt7++3okhr/3z09DEW7H7p ++qJ5UhTnzCvl1CNYsE/1ep2zmBhePKnW7JXCgkPDGumxHmJoXq37nahkwRmH +rSav58SQ9uzBhokJFkjfbpfm4RbHAM/oTVo/WFAp4vBTS0AcS9iXlwb9ZEH3 +azdWOk0c91n7zQz+ZYGiXYi83RZxHJ3k501bw4bG7fnLXl4WxwWMyJPXYsMf +q9n258YSeLOmZUHiCBvSSsJv/bGSQGVVAfmOY2xQXMaVpGYngTFjt/nOhbJh +22N+0/M+ErjClsP/LZINOeYEZ1sq5Q/j306msMEAbS61vZfAvJzTS9tK2RDM +uObeGiuJnR3vTAzfscG6YNWMTYoknll5rFzvAxvk+U4ltV+QxPKMVC+NYTa8 +7NzN7iiVxJQPBaVio2xQD1rJ+66den+/XF71LBu+lJwo+S4thTn7DczMV5Lg +Kmo7vpYjhVwP5W0v6pGgE3EvJu++FP7zXZ1HhkEC/8d14vRmKRTjWs2bZ0RC +bRUvKPdKoVqY8thFJEHcpjZN8y91P2HB09WahJcxirqWNtJ4EPcJ6+0jwWJy +MTxwSBrnu+JClaNJOLkla8O/Y9Korag1vjGWhMpran0ic9KYVOX9Ti2eBEkH +D0bt8rUYIXFHSyWJhLG7j3/yqq/Fp8lfiyf/ISEzNi3kctha1NqUId6TR0JL +/3rFsZi1qHh/0KO4gITfuk0dJslr8WzHzY1HCqm+/TyrPXx1Laa5O1jMF5Ng +uM1lWr1pLQo43Tw/WE7CRzHlwEeCMnjrGOPDijoSJI48lJWQkEGD2vAD+fdI +2Nbi9NyPkMFX8kbBWg9IqAlPVl2tI4MvDskp2TSQcO791OheJxmcd/3206GZ +BO2ye76ThTL4bHlPS+MrEnx5HCXMymUwc+wPF72DhFyXieasahlc+6q8JaKT +hGWr6MqGLTJYZNK2XIXKmb5jicPx49T3y7e6OLwlIcbYzlPaQBbRJ6aZ/xMJ +W9zyvuubySLdZ0jd5jMJq6K/xTluk8VvdsEXznyhvt+UUJLmIYsTLzZ6zIyS +cNe67tuys7JosJLkzpskISqAL1IxUxbt6lWP1k+RYJXqsMrsqixuviE20jdN +QuerCc1Itiwu23dogG+GhCknhdAfvbJY6caloj1Pwp3wID6hYVnszXrwUnuB +hNO5D7LVJ2Rx09HIBI1FElYO7rnnxyOHzou+IrK/SVDxTeEa3CCHgzuHe1r+ +kuB2fPbcswg5rBA82+69jANKl8xkRhPkcOLCrTQlPg613v9U8KXJ4cvhyUND +lMN/r39pViSHfpfSj+5awYELcW5itc/kkFV/sGPJSg64Ft8q6e6Ww0jdhrAb +lOWfzOvPDMrhsrkGEytBDrD4M501ZuXw2d7LmmGrOPAs/Ul+sSwN99t8aq5Y +w4FMjqhWkwoNa5kNKVpCHHDu8mwc1KLhiheSEWzKXyR/D6+1omHsps1dxcIc +qDLcGsrYScOK24S5tAgHQl0v8u1xpqGiUvTAOcq8BZobMgJpaK80csVDlANP +/428VxVGw/aWn/8+ppw29HTb81gaHo27KakixgE5FZ8jyy/R8Km+hOs7yiNb +SC7lazSczPxsrSvOgXL/v+nmt2jo8jQ+MJGyYeXl26cf0vCAvrsTTYIDFm/a +/0y00HAx2TfWk7It15LN7q9p2DIe5VVA2Wk9I+1FPw0jvM4s9FP2tg/shREa +Nrbt2yIqyYHAiOvyrAlqPJ+GdmylHFbUc4iYp6Ggza81EZStIuhR0UsJrEo/ +2NRJuW31/esG/AR+GUqo+U15Z9HulqlVBO5yazpAl+JAt8H0WKkIgV5dy7rM +KLs8TxbylCTw8owejyflQU9lPSlZAr8zjSYjKB+Ya3B+RSfQeMXv3EzK3865 +RJ1VJjA4zmtlKeUg2tx1040EalQ6mdRSnuWktSxoEMjt3qrzhHL4lo3jbF0C +n5oUjL+izDXwWMifQaBMa2tAL+WEox568iYEltrokAOU+Zf9cu4zIzB95Gn9 +O8ppOReiMjYT+CQxKvMtZTENzSLrbQQGTaLWG8o5TU9beOwItKj6m91Omebk +M17nSOBXxYq2RspFY3+Fgp0J3BFp9JRDeUNMjt5GdwKlOFcvXKNcJbbJZcib +wNHzT9RTKOvefBF15SCBr65VXAymXGfiX7TrMIFXbS3b91CGjiWtAscINH0Y +321A+ZFv/nhTKIEbvnqxxClv/c0QPhVB4PXkN67T1Py3p3Xq6UYTqKbR/7aF +soPSEZexeAJ7FH21rlLurV0RXXSWej7huEsgZTfboiLXVALfa3G7GlMe/mjS +KppJYPjLpbp8lCcEQoQTcglc2BcQmEnVS3DBKn3mNQJ1Q1tfO1Ce1y1zmS0m +UOf1BWERyrxu74p8qgg8KByx7v/1Kcnaom/VSKCy4+VWK6qer1oMufzXTOA/ +L1OUJqn6l++NjK5po9a3gssni7IaD6dVuYsa/67ojC6qf8wcZF35vlCWKX2k +TfXbky93oh+OEdiv57W3kerHbZH2xSemCXzhNtBrS3lPyZmJz4sEFvNaFrpR +/RwwPx3dIkhHX27LwL1UvxsePSD+SZiOYfsi+x9RebB8tO8WryQd/bafv61K +ubi/qdtEno5n9hdVTQtw4F39BdVqPTp+L5yf3EnlTbk+f+NrIzrK8Wh+zF9O +1Rvr9J4ppGNIm4HNNyqfxAt9Yzfa0LEuZvuZE1Se7Uhg9Fxzp+ONjvx2H16q +v/+rOPxwPx1LzcPysnmofAuV5x3wo+Pxn3umnnBzIOmggLpkCB1pJ3tpMlwc +aLAZiEtNomO+6/OuHCo/tYVjNCLYdHRNLXr/ncpjruTZR9k1dPyWtRAx8YOE +dl5/55p7dFTIOsz+9J2EQ7P2CdOP6Thy6eL4Myrfi3oU+3376Chg6NQZNEbt +1/ktiQ688ljyo7RMYoiEhY1r3qk5ymPKQq/g2HMS5q5Kx+g4yyMRJ3Ms/hkJ +M6uVFBnu8jix8esDqTYSJn4w/C385JGvTEjYqIXaP+95zzlHyqPG/b3dTo0k +PLW5syqpWB4PXrgjx1NDQs4hN/g4K49hrz/Yil8h4dLAwY+fF+XRrJAn3fYy +CVk7ghPG/8rj4rr93+IukZCqk9Q2v0IBOTtUJkcySYj9xd6zWk4BZ0ci3c6k +UONLXhpkbKWAkqdKjE0jSTC+VV5w8aICqjoYiOS6ktBP3Mq3vKKAvKa5W/Kd +SQi/WJY3k6+AI7U2CgVO1P4VU5JrX6aAHzgvnuc4UPPrVJC96r4CmgfZyoRs +I2H90qy0xA8K6EYze3KHOu+Iu0dEh6oq4nl97+IUSRKmha09djcqYrVz5tCd +Njb0BMi/9H+iiA9qVGd/trChoXkRop4pYtMn9xubmqnzYPgtWmm3In6tzZ4p +a2CD5seV7xdGFfGRapx3aDUbAtkv9l0VUcKiZZ6yBXlsGN3h6DK8XwkPsKVc +zanz5HCKx+5jfMq4eqm9nSo/G7ZOntg6oqeCxQ9ODQYwWDDmvTz4dtQ65PGt +FPt4upL6H5HgOdO4HodZKp+3Hy0H4efKqazJDSjL/dpud/BNkEmq2qmnp4rS +Z4X+O4ilkL2RsUbEVw0XEltWf9YugafSppt+pKsjXTqN55J+ERjKNKZpdGvg +5k5mURi9EFbxFoZ4xmri42qjqCUWBSAXQzPeq6yFO00/VHBX58IKJdca+yda ++Kcv5uFvncugzpSqOrFPGxuNoi7R1S7CsXfCTdZcOijbl5fIvTETJn+kOG7N +1sFvRO3co7w02KzRnLNVTRenumJKAutSoP6H0a+f7bpYnqqvmOSSBIGq2n2v +fDahafCFVM2GeGBO7O/cu0IPQxtaZJ/Zx4ClouR2wUI9fFK8ztddPBLWRZ8L +a9TXR6mycldR1zDY4MN4qNSnj5o/PtV/nwsGn/qD8bePGuAxxbd3XoUHwcTh +0ROWIQYY1J1VPRYQBGGyAYe6Qw2Q6RCZI+QeBOdOHbGfjzBArj19S06aBwHL +MJQwTjTAKdqXlgcrg+B3Tdz9phwDLKyZmtU1OwIZVXkzr5sM0L9Hdfv8tcPw +sKBz/7QYA0tZ0/Ox2f4wuI3uHirJQGOmHfEkxh+4Fg7v/SXNwN6Y3C9rD/mD +mR2f7VKCgTdPx+v9ZPpDM7ehvtQGBgb4r24MHvaDZ175K0xNGBj8xzbklK4f +9Cn6V6YdYKDmCI2TPOgLM6V/f2rcYeAxX2uBkgM+8Gm3VcHZWgZmbNHWXeXo +Az1Lzm8ZusfAuE7ifay5D9zzkL58sYGBqdHTeemED8RKbjL808rA5r+/uS36 +98OaJP9TT98y8KWisOGc/X5Q9e3i8uExxLpfDoIeNt7grXRrRc52QyxOV6p/ +7uYJ4Y/d/JV3GmJ1cL/xsK0npPkIt5H2hqio+yKYDzzhfvHJlLY9hlhfduFr +MM0TRJW3rP7jaYgtAe6rhwc9oFl5RNQj1BAlnb4rSh/wgA3raIRyviHuyWj3 +sv7hBtMbMvXIKUPUejod+jfRBXqeoaXID0O8lHR5oSnQBRoCJ3aFzBpib46q ++ZXdLpBKbj2qt2iIjpPyv2KUXWCDIVd5Ha8RPsp/U6X+xBm8th6mN4kbofO1 +6tZFAWfo9N28stPYCKWmE+8JXHeCu0W/PswmGeHha3Gp6Ut2g555yE/rZCP8 +nDpdtGbaEao/jK0sOG+ErHPqgvkDjkDKvdO3zjDC5eTzm19rHKE8u+F83hUj +NFHjcG/yd4SClATG5kojPHvG/MCVDgc4G7I6PbvDCE13eVl4sXeBs4UCGskZ +I41rMevfi3bwp3P5qibCGHNPLRMMTLCDAp+JfmsFY+wWN/l3fYgdfEqsPeG8 +zhhPnqtjtdvZwbHWHVUntY3Rnot25LmgHZyzPSV318oYl0QLZmcl7YQ6p67f +ukeMsWuMwZ4X2gFrD5+pVW8wxtLFbQN3fGwg9e+BTcmNxkj+umo2YGMDPBlW +7M+PjPGdh12mpLYNjNYsLStoNcb0au47L/+zhjqu+GzhDmNMkTpmbXnZGpyz +ok/MjRhjhbNzt9brrZB97+SmegEmRj369fvWri0gxh/A3r6HiUPqH3QH0i2h +yDwyfGovE6/Px49cDrcE7chU80xXJgoUiZge9rYE2ylWV48nE9e/Nyrfs8kS +ErtnF7wDmOjqk2nM6LOA+cIos/AYJl7wOVwvt84C+owyO0puMbFxbvDWdIcZ +HDxelLu1kon7k1Pi3B+awVxltc8Yi4lXltXf/XDTDITle35q1TBxXGL7rHys +Gdgsl5V50MDEvDre5xe1zOB+Z8n+ji4mDmQR7bpZpmC96q5aaA8Tc/XS9gxG +m0LP5tY5yX4m/qo+viH/sCnM1H1Lchtkog9h6bd7symoXdOs+DrKxLDPS0PL +fiHc7zMNTRlnou7dwePjXxCsRXeBxhQTJ1vLGRbdCAfOHH8VMstE4Rv6bevZ +CDMNiTkS80ws8VQIu5uHELt4ybtukYm1ms439qYgrNEtU933h4m2n//ZIhiO +kHe4bvbvXyayVsbbdPgi/A989Yf2 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Vd0XB3BDpUhlHsI919hgJlxcaxkrShElZEwiSZFEMkuR11RJQkKU +4d5zo6jkpURKgyFDSqFBxkKo3n7n99d5Ps8ZnmfvvdZ370P3OmLvw8PFxaXF +zcX1/+vcu9ZHislFJvzNTK7sEXOTzjzJk6Y9scBY3xC+H+UBxV54SfZkQORR +mrchakPozptveHsKgZHQbyOLZiA0IZGx8IaEA8yajAmwh/f3bY/MvGmE0zZE +3G7wAivF0YHpN6+BKXnlLR/zGCy80b8w9eYjqK/2e9ujEwtN5jeKXhX+AJtc +v0d+zzNA5n3tJy/VP1DDzz+Tc/4KiAa43+Qz58Xplj/zPX3XIEPL6p6t43KU +HrIQsFsoht5szYbpNYJo5fYloexkGSQXRb3gkRJC3v9eVza8KQdrXT9hMQUh +9ONyqOEbLoflj+wdVdSEkFi9WXvzVDnEDyn125gKYd1e19NVyyvglPyzT1l+ +QqhtOqqixKiAwALJ/5TrhFDnccrLwuwKsMtlq9q4COM/a64V9dhVgkTW0NnM +qyIoGyx8tbG8CiQ3VsfPl4hgSF+vk09NFUg3JkbtY4mgSpbSWu6GKpCbWn9c +pUkEu3aer1ToqAKlbUEe976IYJ0F75ToQhXoLPmjN6QjinfIuKAOOgt2hIgP +az8VRdWHO1Ib/FiwU+DLu0sdohgYXm9FD2SBfWFt7++3okhr/3z09DEW7H7p ++qJ5UhTnzCvl1CNYsE/1ep2zmBhePKnW7JXCgkPDGumxHmJoXq37nahkwRmH +rSav58SQ9uzBhokJFkjfbpfm4RbHAM/oTVo/WFAp4vBTS0AcS9iXlwb9ZEH3 +azdWOk0c91n7zQz+ZYGiXYi83RZxHJ3k501bw4bG7fnLXl4WxwWMyJPXYsMf +q9n258YSeLOmZUHiCBvSSsJv/bGSQGVVAfmOY2xQXMaVpGYngTFjt/nOhbJh +22N+0/M+ErjClsP/LZINOeYEZ1sq5Q/j306msMEAbS61vZfAvJzTS9tK2RDM +uObeGiuJnR3vTAzfscG6YNWMTYoknll5rFzvAxvk+U4ltV+QxPKMVC+NYTa8 +7NzN7iiVxJQPBaVio2xQD1rJ+66den+/XF71LBu+lJwo+S4thTn7DczMV5Lg +Kmo7vpYjhVwP5W0v6pGgE3EvJu++FP7zXZ1HhkEC/8d14vRmKRTjWs2bZ0RC +bRUvKPdKoVqY8thFJEHcpjZN8y91P2HB09WahJcxirqWNtJ4EPcJ6+0jwWJy +MTxwSBrnu+JClaNJOLkla8O/Y9Korag1vjGWhMpran0ic9KYVOX9Ti2eBEkH +D0bt8rUYIXFHSyWJhLG7j3/yqq/Fp8lfiyf/ISEzNi3kctha1NqUId6TR0JL +/3rFsZi1qHh/0KO4gITfuk0dJslr8WzHzY1HCqm+/TyrPXx1Laa5O1jMF5Ng +uM1lWr1pLQo43Tw/WE7CRzHlwEeCMnjrGOPDijoSJI48lJWQkEGD2vAD+fdI +2Nbi9NyPkMFX8kbBWg9IqAlPVl2tI4MvDskp2TSQcO791OheJxmcd/3206GZ +BO2ye76ThTL4bHlPS+MrEnx5HCXMymUwc+wPF72DhFyXieasahlc+6q8JaKT +hGWr6MqGLTJYZNK2XIXKmb5jicPx49T3y7e6OLwlIcbYzlPaQBbRJ6aZ/xMJ +W9zyvuubySLdZ0jd5jMJq6K/xTluk8VvdsEXznyhvt+UUJLmIYsTLzZ6zIyS +cNe67tuys7JosJLkzpskISqAL1IxUxbt6lWP1k+RYJXqsMrsqixuviE20jdN +QuerCc1Itiwu23dogG+GhCknhdAfvbJY6caloj1Pwp3wID6hYVnszXrwUnuB +hNO5D7LVJ2Rx09HIBI1FElYO7rnnxyOHzou+IrK/SVDxTeEa3CCHgzuHe1r+ +kuB2fPbcswg5rBA82+69jANKl8xkRhPkcOLCrTQlPg613v9U8KXJ4cvhyUND +lMN/r39pViSHfpfSj+5awYELcW5itc/kkFV/sGPJSg64Ft8q6e6Ww0jdhrAb +lOWfzOvPDMrhsrkGEytBDrD4M501ZuXw2d7LmmGrOPAs/Ul+sSwN99t8aq5Y +w4FMjqhWkwoNa5kNKVpCHHDu8mwc1KLhiheSEWzKXyR/D6+1omHsps1dxcIc +qDLcGsrYScOK24S5tAgHQl0v8u1xpqGiUvTAOcq8BZobMgJpaK80csVDlANP +/428VxVGw/aWn/8+ppw29HTb81gaHo27KakixgE5FZ8jyy/R8Km+hOs7yiNb +SC7lazSczPxsrSvOgXL/v+nmt2jo8jQ+MJGyYeXl26cf0vCAvrsTTYIDFm/a +/0y00HAx2TfWk7It15LN7q9p2DIe5VVA2Wk9I+1FPw0jvM4s9FP2tg/shREa +Nrbt2yIqyYHAiOvyrAlqPJ+GdmylHFbUc4iYp6Ggza81EZStIuhR0UsJrEo/ +2NRJuW31/esG/AR+GUqo+U15Z9HulqlVBO5yazpAl+JAt8H0WKkIgV5dy7rM +KLs8TxbylCTw8owejyflQU9lPSlZAr8zjSYjKB+Ya3B+RSfQeMXv3EzK3865 +RJ1VJjA4zmtlKeUg2tx1040EalQ6mdRSnuWktSxoEMjt3qrzhHL4lo3jbF0C +n5oUjL+izDXwWMifQaBMa2tAL+WEox568iYEltrokAOU+Zf9cu4zIzB95Gn9 +O8ppOReiMjYT+CQxKvMtZTENzSLrbQQGTaLWG8o5TU9beOwItKj6m91Omebk +M17nSOBXxYq2RspFY3+Fgp0J3BFp9JRDeUNMjt5GdwKlOFcvXKNcJbbJZcib +wNHzT9RTKOvefBF15SCBr65VXAymXGfiX7TrMIFXbS3b91CGjiWtAscINH0Y +321A+ZFv/nhTKIEbvnqxxClv/c0QPhVB4PXkN67T1Py3p3Xq6UYTqKbR/7aF +soPSEZexeAJ7FH21rlLurV0RXXSWej7huEsgZTfboiLXVALfa3G7GlMe/mjS +KppJYPjLpbp8lCcEQoQTcglc2BcQmEnVS3DBKn3mNQJ1Q1tfO1Ce1y1zmS0m +UOf1BWERyrxu74p8qgg8KByx7v/1Kcnaom/VSKCy4+VWK6qer1oMufzXTOA/ +L1OUJqn6l++NjK5po9a3gssni7IaD6dVuYsa/67ojC6qf8wcZF35vlCWKX2k +TfXbky93oh+OEdiv57W3kerHbZH2xSemCXzhNtBrS3lPyZmJz4sEFvNaFrpR +/RwwPx3dIkhHX27LwL1UvxsePSD+SZiOYfsi+x9RebB8tO8WryQd/bafv61K +ubi/qdtEno5n9hdVTQtw4F39BdVqPTp+L5yf3EnlTbk+f+NrIzrK8Wh+zF9O +1Rvr9J4ppGNIm4HNNyqfxAt9Yzfa0LEuZvuZE1Se7Uhg9Fxzp+ONjvx2H16q +v/+rOPxwPx1LzcPysnmofAuV5x3wo+Pxn3umnnBzIOmggLpkCB1pJ3tpMlwc +aLAZiEtNomO+6/OuHCo/tYVjNCLYdHRNLXr/ncpjruTZR9k1dPyWtRAx8YOE +dl5/55p7dFTIOsz+9J2EQ7P2CdOP6Thy6eL4Myrfi3oU+3376Chg6NQZNEbt +1/ktiQ688ljyo7RMYoiEhY1r3qk5ymPKQq/g2HMS5q5Kx+g4yyMRJ3Ms/hkJ +M6uVFBnu8jix8esDqTYSJn4w/C385JGvTEjYqIXaP+95zzlHyqPG/b3dTo0k +PLW5syqpWB4PXrgjx1NDQs4hN/g4K49hrz/Yil8h4dLAwY+fF+XRrJAn3fYy +CVk7ghPG/8rj4rr93+IukZCqk9Q2v0IBOTtUJkcySYj9xd6zWk4BZ0ci3c6k +UONLXhpkbKWAkqdKjE0jSTC+VV5w8aICqjoYiOS6ktBP3Mq3vKKAvKa5W/Kd +SQi/WJY3k6+AI7U2CgVO1P4VU5JrX6aAHzgvnuc4UPPrVJC96r4CmgfZyoRs +I2H90qy0xA8K6EYze3KHOu+Iu0dEh6oq4nl97+IUSRKmha09djcqYrVz5tCd +Njb0BMi/9H+iiA9qVGd/trChoXkRop4pYtMn9xubmqnzYPgtWmm3In6tzZ4p +a2CD5seV7xdGFfGRapx3aDUbAtkv9l0VUcKiZZ6yBXlsGN3h6DK8XwkPsKVc +zanz5HCKx+5jfMq4eqm9nSo/G7ZOntg6oqeCxQ9ODQYwWDDmvTz4dtQ65PGt +FPt4upL6H5HgOdO4HodZKp+3Hy0H4efKqazJDSjL/dpud/BNkEmq2qmnp4rS +Z4X+O4ilkL2RsUbEVw0XEltWf9YugafSppt+pKsjXTqN55J+ERjKNKZpdGvg +5k5mURi9EFbxFoZ4xmri42qjqCUWBSAXQzPeq6yFO00/VHBX58IKJdca+yda ++Kcv5uFvncugzpSqOrFPGxuNoi7R1S7CsXfCTdZcOijbl5fIvTETJn+kOG7N +1sFvRO3co7w02KzRnLNVTRenumJKAutSoP6H0a+f7bpYnqqvmOSSBIGq2n2v +fDahafCFVM2GeGBO7O/cu0IPQxtaZJ/Zx4ClouR2wUI9fFK8ztddPBLWRZ8L +a9TXR6mycldR1zDY4MN4qNSnj5o/PtV/nwsGn/qD8bePGuAxxbd3XoUHwcTh +0ROWIQYY1J1VPRYQBGGyAYe6Qw2Q6RCZI+QeBOdOHbGfjzBArj19S06aBwHL +MJQwTjTAKdqXlgcrg+B3Tdz9phwDLKyZmtU1OwIZVXkzr5sM0L9Hdfv8tcPw +sKBz/7QYA0tZ0/Ox2f4wuI3uHirJQGOmHfEkxh+4Fg7v/SXNwN6Y3C9rD/mD +mR2f7VKCgTdPx+v9ZPpDM7ehvtQGBgb4r24MHvaDZ175K0xNGBj8xzbklK4f +9Cn6V6YdYKDmCI2TPOgLM6V/f2rcYeAxX2uBkgM+8Gm3VcHZWgZmbNHWXeXo +Az1Lzm8ZusfAuE7ifay5D9zzkL58sYGBqdHTeemED8RKbjL808rA5r+/uS36 +98OaJP9TT98y8KWisOGc/X5Q9e3i8uExxLpfDoIeNt7grXRrRc52QyxOV6p/ +7uYJ4Y/d/JV3GmJ1cL/xsK0npPkIt5H2hqio+yKYDzzhfvHJlLY9hlhfduFr +MM0TRJW3rP7jaYgtAe6rhwc9oFl5RNQj1BAlnb4rSh/wgA3raIRyviHuyWj3 +sv7hBtMbMvXIKUPUejod+jfRBXqeoaXID0O8lHR5oSnQBRoCJ3aFzBpib46q ++ZXdLpBKbj2qt2iIjpPyv2KUXWCDIVd5Ha8RPsp/U6X+xBm8th6mN4kbofO1 +6tZFAWfo9N28stPYCKWmE+8JXHeCu0W/PswmGeHha3Gp6Ut2g555yE/rZCP8 +nDpdtGbaEao/jK0sOG+ErHPqgvkDjkDKvdO3zjDC5eTzm19rHKE8u+F83hUj +NFHjcG/yd4SClATG5kojPHvG/MCVDgc4G7I6PbvDCE13eVl4sXeBs4UCGskZ +I41rMevfi3bwp3P5qibCGHNPLRMMTLCDAp+JfmsFY+wWN/l3fYgdfEqsPeG8 +zhhPnqtjtdvZwbHWHVUntY3Rnot25LmgHZyzPSV318oYl0QLZmcl7YQ6p67f +ukeMsWuMwZ4X2gFrD5+pVW8wxtLFbQN3fGwg9e+BTcmNxkj+umo2YGMDPBlW +7M+PjPGdh12mpLYNjNYsLStoNcb0au47L/+zhjqu+GzhDmNMkTpmbXnZGpyz +ok/MjRhjhbNzt9brrZB97+SmegEmRj369fvWri0gxh/A3r6HiUPqH3QH0i2h +yDwyfGovE6/Px49cDrcE7chU80xXJgoUiZge9rYE2ylWV48nE9e/Nyrfs8kS +ErtnF7wDmOjqk2nM6LOA+cIos/AYJl7wOVwvt84C+owyO0puMbFxbvDWdIcZ +HDxelLu1kon7k1Pi3B+awVxltc8Yi4lXltXf/XDTDITle35q1TBxXGL7rHys +Gdgsl5V50MDEvDre5xe1zOB+Z8n+ji4mDmQR7bpZpmC96q5aaA8Tc/XS9gxG +m0LP5tY5yX4m/qo+viH/sCnM1H1Lchtkog9h6bd7symoXdOs+DrKxLDPS0PL +fiHc7zMNTRlnou7dwePjXxCsRXeBxhQTJ1vLGRbdCAfOHH8VMstE4Rv6bevZ +CDMNiTkS80ws8VQIu5uHELt4ybtukYm1ms439qYgrNEtU933h4m2n//ZIhiO +kHe4bvbvXyayVsbbdPgi/A989Yf2 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07461349638005844}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07461349638005844}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Vd0XB3BDpUhlHsI919hgJlxcaxkrShElZEwiSZFEMkuR11RJQkKU +4d5zo6jkpURKgyFDSqFBxkKo3n7n99d5Ps8ZnmfvvdZ370P3OmLvw8PFxaXF +zcX1/+vcu9ZHislFJvzNTK7sEXOTzjzJk6Y9scBY3xC+H+UBxV54SfZkQORR +mrchakPozptveHsKgZHQbyOLZiA0IZGx8IaEA8yajAmwh/f3bY/MvGmE0zZE +3G7wAivF0YHpN6+BKXnlLR/zGCy80b8w9eYjqK/2e9ujEwtN5jeKXhX+AJtc +v0d+zzNA5n3tJy/VP1DDzz+Tc/4KiAa43+Qz58Xplj/zPX3XIEPL6p6t43KU +HrIQsFsoht5szYbpNYJo5fYloexkGSQXRb3gkRJC3v9eVza8KQdrXT9hMQUh +9ONyqOEbLoflj+wdVdSEkFi9WXvzVDnEDyn125gKYd1e19NVyyvglPyzT1l+ +QqhtOqqixKiAwALJ/5TrhFDnccrLwuwKsMtlq9q4COM/a64V9dhVgkTW0NnM +qyIoGyx8tbG8CiQ3VsfPl4hgSF+vk09NFUg3JkbtY4mgSpbSWu6GKpCbWn9c +pUkEu3aer1ToqAKlbUEe976IYJ0F75ToQhXoLPmjN6QjinfIuKAOOgt2hIgP +az8VRdWHO1Ib/FiwU+DLu0sdohgYXm9FD2SBfWFt7++3okhr/3z09DEW7H7p ++qJ5UhTnzCvl1CNYsE/1ep2zmBhePKnW7JXCgkPDGumxHmJoXq37nahkwRmH +rSav58SQ9uzBhokJFkjfbpfm4RbHAM/oTVo/WFAp4vBTS0AcS9iXlwb9ZEH3 +azdWOk0c91n7zQz+ZYGiXYi83RZxHJ3k501bw4bG7fnLXl4WxwWMyJPXYsMf +q9n258YSeLOmZUHiCBvSSsJv/bGSQGVVAfmOY2xQXMaVpGYngTFjt/nOhbJh +22N+0/M+ErjClsP/LZINOeYEZ1sq5Q/j306msMEAbS61vZfAvJzTS9tK2RDM +uObeGiuJnR3vTAzfscG6YNWMTYoknll5rFzvAxvk+U4ltV+QxPKMVC+NYTa8 +7NzN7iiVxJQPBaVio2xQD1rJ+66den+/XF71LBu+lJwo+S4thTn7DczMV5Lg +Kmo7vpYjhVwP5W0v6pGgE3EvJu++FP7zXZ1HhkEC/8d14vRmKRTjWs2bZ0RC +bRUvKPdKoVqY8thFJEHcpjZN8y91P2HB09WahJcxirqWNtJ4EPcJ6+0jwWJy +MTxwSBrnu+JClaNJOLkla8O/Y9Korag1vjGWhMpran0ic9KYVOX9Ti2eBEkH +D0bt8rUYIXFHSyWJhLG7j3/yqq/Fp8lfiyf/ISEzNi3kctha1NqUId6TR0JL +/3rFsZi1qHh/0KO4gITfuk0dJslr8WzHzY1HCqm+/TyrPXx1Laa5O1jMF5Ng +uM1lWr1pLQo43Tw/WE7CRzHlwEeCMnjrGOPDijoSJI48lJWQkEGD2vAD+fdI +2Nbi9NyPkMFX8kbBWg9IqAlPVl2tI4MvDskp2TSQcO791OheJxmcd/3206GZ +BO2ye76ThTL4bHlPS+MrEnx5HCXMymUwc+wPF72DhFyXieasahlc+6q8JaKT +hGWr6MqGLTJYZNK2XIXKmb5jicPx49T3y7e6OLwlIcbYzlPaQBbRJ6aZ/xMJ +W9zyvuubySLdZ0jd5jMJq6K/xTluk8VvdsEXznyhvt+UUJLmIYsTLzZ6zIyS +cNe67tuys7JosJLkzpskISqAL1IxUxbt6lWP1k+RYJXqsMrsqixuviE20jdN +QuerCc1Itiwu23dogG+GhCknhdAfvbJY6caloj1Pwp3wID6hYVnszXrwUnuB +hNO5D7LVJ2Rx09HIBI1FElYO7rnnxyOHzou+IrK/SVDxTeEa3CCHgzuHe1r+ +kuB2fPbcswg5rBA82+69jANKl8xkRhPkcOLCrTQlPg613v9U8KXJ4cvhyUND +lMN/r39pViSHfpfSj+5awYELcW5itc/kkFV/sGPJSg64Ft8q6e6Ww0jdhrAb +lOWfzOvPDMrhsrkGEytBDrD4M501ZuXw2d7LmmGrOPAs/Ul+sSwN99t8aq5Y +w4FMjqhWkwoNa5kNKVpCHHDu8mwc1KLhiheSEWzKXyR/D6+1omHsps1dxcIc +qDLcGsrYScOK24S5tAgHQl0v8u1xpqGiUvTAOcq8BZobMgJpaK80csVDlANP +/428VxVGw/aWn/8+ppw29HTb81gaHo27KakixgE5FZ8jyy/R8Km+hOs7yiNb +SC7lazSczPxsrSvOgXL/v+nmt2jo8jQ+MJGyYeXl26cf0vCAvrsTTYIDFm/a +/0y00HAx2TfWk7It15LN7q9p2DIe5VVA2Wk9I+1FPw0jvM4s9FP2tg/shREa +Nrbt2yIqyYHAiOvyrAlqPJ+GdmylHFbUc4iYp6Ggza81EZStIuhR0UsJrEo/ +2NRJuW31/esG/AR+GUqo+U15Z9HulqlVBO5yazpAl+JAt8H0WKkIgV5dy7rM +KLs8TxbylCTw8owejyflQU9lPSlZAr8zjSYjKB+Ya3B+RSfQeMXv3EzK3865 +RJ1VJjA4zmtlKeUg2tx1040EalQ6mdRSnuWktSxoEMjt3qrzhHL4lo3jbF0C +n5oUjL+izDXwWMifQaBMa2tAL+WEox568iYEltrokAOU+Zf9cu4zIzB95Gn9 +O8ppOReiMjYT+CQxKvMtZTENzSLrbQQGTaLWG8o5TU9beOwItKj6m91Omebk +M17nSOBXxYq2RspFY3+Fgp0J3BFp9JRDeUNMjt5GdwKlOFcvXKNcJbbJZcib +wNHzT9RTKOvefBF15SCBr65VXAymXGfiX7TrMIFXbS3b91CGjiWtAscINH0Y +321A+ZFv/nhTKIEbvnqxxClv/c0QPhVB4PXkN67T1Py3p3Xq6UYTqKbR/7aF +soPSEZexeAJ7FH21rlLurV0RXXSWej7huEsgZTfboiLXVALfa3G7GlMe/mjS +KppJYPjLpbp8lCcEQoQTcglc2BcQmEnVS3DBKn3mNQJ1Q1tfO1Ce1y1zmS0m +UOf1BWERyrxu74p8qgg8KByx7v/1Kcnaom/VSKCy4+VWK6qer1oMufzXTOA/ +L1OUJqn6l++NjK5po9a3gssni7IaD6dVuYsa/67ojC6qf8wcZF35vlCWKX2k +TfXbky93oh+OEdiv57W3kerHbZH2xSemCXzhNtBrS3lPyZmJz4sEFvNaFrpR +/RwwPx3dIkhHX27LwL1UvxsePSD+SZiOYfsi+x9RebB8tO8WryQd/bafv61K +ubi/qdtEno5n9hdVTQtw4F39BdVqPTp+L5yf3EnlTbk+f+NrIzrK8Wh+zF9O +1Rvr9J4ppGNIm4HNNyqfxAt9Yzfa0LEuZvuZE1Se7Uhg9Fxzp+ONjvx2H16q +v/+rOPxwPx1LzcPysnmofAuV5x3wo+Pxn3umnnBzIOmggLpkCB1pJ3tpMlwc +aLAZiEtNomO+6/OuHCo/tYVjNCLYdHRNLXr/ncpjruTZR9k1dPyWtRAx8YOE +dl5/55p7dFTIOsz+9J2EQ7P2CdOP6Thy6eL4Myrfi3oU+3376Chg6NQZNEbt +1/ktiQ688ljyo7RMYoiEhY1r3qk5ymPKQq/g2HMS5q5Kx+g4yyMRJ3Ms/hkJ +M6uVFBnu8jix8esDqTYSJn4w/C385JGvTEjYqIXaP+95zzlHyqPG/b3dTo0k +PLW5syqpWB4PXrgjx1NDQs4hN/g4K49hrz/Yil8h4dLAwY+fF+XRrJAn3fYy +CVk7ghPG/8rj4rr93+IukZCqk9Q2v0IBOTtUJkcySYj9xd6zWk4BZ0ci3c6k +UONLXhpkbKWAkqdKjE0jSTC+VV5w8aICqjoYiOS6ktBP3Mq3vKKAvKa5W/Kd +SQi/WJY3k6+AI7U2CgVO1P4VU5JrX6aAHzgvnuc4UPPrVJC96r4CmgfZyoRs +I2H90qy0xA8K6EYze3KHOu+Iu0dEh6oq4nl97+IUSRKmha09djcqYrVz5tCd +Njb0BMi/9H+iiA9qVGd/trChoXkRop4pYtMn9xubmqnzYPgtWmm3In6tzZ4p +a2CD5seV7xdGFfGRapx3aDUbAtkv9l0VUcKiZZ6yBXlsGN3h6DK8XwkPsKVc +zanz5HCKx+5jfMq4eqm9nSo/G7ZOntg6oqeCxQ9ODQYwWDDmvTz4dtQ65PGt +FPt4upL6H5HgOdO4HodZKp+3Hy0H4efKqazJDSjL/dpud/BNkEmq2qmnp4rS +Z4X+O4ilkL2RsUbEVw0XEltWf9YugafSppt+pKsjXTqN55J+ERjKNKZpdGvg +5k5mURi9EFbxFoZ4xmri42qjqCUWBSAXQzPeq6yFO00/VHBX58IKJdca+yda ++Kcv5uFvncugzpSqOrFPGxuNoi7R1S7CsXfCTdZcOijbl5fIvTETJn+kOG7N +1sFvRO3co7w02KzRnLNVTRenumJKAutSoP6H0a+f7bpYnqqvmOSSBIGq2n2v +fDahafCFVM2GeGBO7O/cu0IPQxtaZJ/Zx4ClouR2wUI9fFK8ztddPBLWRZ8L +a9TXR6mycldR1zDY4MN4qNSnj5o/PtV/nwsGn/qD8bePGuAxxbd3XoUHwcTh +0ROWIQYY1J1VPRYQBGGyAYe6Qw2Q6RCZI+QeBOdOHbGfjzBArj19S06aBwHL +MJQwTjTAKdqXlgcrg+B3Tdz9phwDLKyZmtU1OwIZVXkzr5sM0L9Hdfv8tcPw +sKBz/7QYA0tZ0/Ox2f4wuI3uHirJQGOmHfEkxh+4Fg7v/SXNwN6Y3C9rD/mD +mR2f7VKCgTdPx+v9ZPpDM7ehvtQGBgb4r24MHvaDZ175K0xNGBj8xzbklK4f +9Cn6V6YdYKDmCI2TPOgLM6V/f2rcYeAxX2uBkgM+8Gm3VcHZWgZmbNHWXeXo +Az1Lzm8ZusfAuE7ifay5D9zzkL58sYGBqdHTeemED8RKbjL808rA5r+/uS36 +98OaJP9TT98y8KWisOGc/X5Q9e3i8uExxLpfDoIeNt7grXRrRc52QyxOV6p/ +7uYJ4Y/d/JV3GmJ1cL/xsK0npPkIt5H2hqio+yKYDzzhfvHJlLY9hlhfduFr +MM0TRJW3rP7jaYgtAe6rhwc9oFl5RNQj1BAlnb4rSh/wgA3raIRyviHuyWj3 +sv7hBtMbMvXIKUPUejod+jfRBXqeoaXID0O8lHR5oSnQBRoCJ3aFzBpib46q ++ZXdLpBKbj2qt2iIjpPyv2KUXWCDIVd5Ha8RPsp/U6X+xBm8th6mN4kbofO1 +6tZFAWfo9N28stPYCKWmE+8JXHeCu0W/PswmGeHha3Gp6Ut2g555yE/rZCP8 +nDpdtGbaEao/jK0sOG+ErHPqgvkDjkDKvdO3zjDC5eTzm19rHKE8u+F83hUj +NFHjcG/yd4SClATG5kojPHvG/MCVDgc4G7I6PbvDCE13eVl4sXeBs4UCGskZ +I41rMevfi3bwp3P5qibCGHNPLRMMTLCDAp+JfmsFY+wWN/l3fYgdfEqsPeG8 +zhhPnqtjtdvZwbHWHVUntY3Rnot25LmgHZyzPSV318oYl0QLZmcl7YQ6p67f +ukeMsWuMwZ4X2gFrD5+pVW8wxtLFbQN3fGwg9e+BTcmNxkj+umo2YGMDPBlW +7M+PjPGdh12mpLYNjNYsLStoNcb0au47L/+zhjqu+GzhDmNMkTpmbXnZGpyz +ok/MjRhjhbNzt9brrZB97+SmegEmRj369fvWri0gxh/A3r6HiUPqH3QH0i2h +yDwyfGovE6/Px49cDrcE7chU80xXJgoUiZge9rYE2ylWV48nE9e/Nyrfs8kS +ErtnF7wDmOjqk2nM6LOA+cIos/AYJl7wOVwvt84C+owyO0puMbFxbvDWdIcZ +HDxelLu1kon7k1Pi3B+awVxltc8Yi4lXltXf/XDTDITle35q1TBxXGL7rHys +Gdgsl5V50MDEvDre5xe1zOB+Z8n+ji4mDmQR7bpZpmC96q5aaA8Tc/XS9gxG +m0LP5tY5yX4m/qo+viH/sCnM1H1Lchtkog9h6bd7symoXdOs+DrKxLDPS0PL +fiHc7zMNTRlnou7dwePjXxCsRXeBxhQTJ1vLGRbdCAfOHH8VMstE4Rv6bevZ +CDMNiTkS80ws8VQIu5uHELt4ybtukYm1ms439qYgrNEtU933h4m2n//ZIhiO +kHe4bvbvXyayVsbbdPgi/A989Yf2 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07461349638005844}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07461349638005844}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9942611973372717`*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"5cdd8350-3d42-42cd-8503-7c1e5fc99c75"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", - RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"4ad58a38-0776-\ -5240-aa41-ba7c8ff64fb9"], + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellLabel-> + "In[141]:=",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4Vd0XB3BDpUhlHsI919hgJlxcaxkrShElZEwiSZFEMkuR11RJQkKU +4d5zo6jkpURKgyFDSqFBxkKo3n7n99d5Ps8ZnmfvvdZ370P3OmLvw8PFxaXF +zcX1/+vcu9ZHislFJvzNTK7sEXOTzjzJk6Y9scBY3xC+H+UBxV54SfZkQORR +mrchakPozptveHsKgZHQbyOLZiA0IZGx8IaEA8yajAmwh/f3bY/MvGmE0zZE +3G7wAivF0YHpN6+BKXnlLR/zGCy80b8w9eYjqK/2e9ujEwtN5jeKXhX+AJtc +v0d+zzNA5n3tJy/VP1DDzz+Tc/4KiAa43+Qz58Xplj/zPX3XIEPL6p6t43KU +HrIQsFsoht5szYbpNYJo5fYloexkGSQXRb3gkRJC3v9eVza8KQdrXT9hMQUh +9ONyqOEbLoflj+wdVdSEkFi9WXvzVDnEDyn125gKYd1e19NVyyvglPyzT1l+ +QqhtOqqixKiAwALJ/5TrhFDnccrLwuwKsMtlq9q4COM/a64V9dhVgkTW0NnM +qyIoGyx8tbG8CiQ3VsfPl4hgSF+vk09NFUg3JkbtY4mgSpbSWu6GKpCbWn9c +pUkEu3aer1ToqAKlbUEe976IYJ0F75ToQhXoLPmjN6QjinfIuKAOOgt2hIgP +az8VRdWHO1Ib/FiwU+DLu0sdohgYXm9FD2SBfWFt7++3okhr/3z09DEW7H7p ++qJ5UhTnzCvl1CNYsE/1ep2zmBhePKnW7JXCgkPDGumxHmJoXq37nahkwRmH +rSav58SQ9uzBhokJFkjfbpfm4RbHAM/oTVo/WFAp4vBTS0AcS9iXlwb9ZEH3 +azdWOk0c91n7zQz+ZYGiXYi83RZxHJ3k501bw4bG7fnLXl4WxwWMyJPXYsMf +q9n258YSeLOmZUHiCBvSSsJv/bGSQGVVAfmOY2xQXMaVpGYngTFjt/nOhbJh +22N+0/M+ErjClsP/LZINOeYEZ1sq5Q/j306msMEAbS61vZfAvJzTS9tK2RDM +uObeGiuJnR3vTAzfscG6YNWMTYoknll5rFzvAxvk+U4ltV+QxPKMVC+NYTa8 +7NzN7iiVxJQPBaVio2xQD1rJ+66den+/XF71LBu+lJwo+S4thTn7DczMV5Lg +Kmo7vpYjhVwP5W0v6pGgE3EvJu++FP7zXZ1HhkEC/8d14vRmKRTjWs2bZ0RC +bRUvKPdKoVqY8thFJEHcpjZN8y91P2HB09WahJcxirqWNtJ4EPcJ6+0jwWJy +MTxwSBrnu+JClaNJOLkla8O/Y9Korag1vjGWhMpran0ic9KYVOX9Ti2eBEkH +D0bt8rUYIXFHSyWJhLG7j3/yqq/Fp8lfiyf/ISEzNi3kctha1NqUId6TR0JL +/3rFsZi1qHh/0KO4gITfuk0dJslr8WzHzY1HCqm+/TyrPXx1Laa5O1jMF5Ng +uM1lWr1pLQo43Tw/WE7CRzHlwEeCMnjrGOPDijoSJI48lJWQkEGD2vAD+fdI +2Nbi9NyPkMFX8kbBWg9IqAlPVl2tI4MvDskp2TSQcO791OheJxmcd/3206GZ +BO2ye76ThTL4bHlPS+MrEnx5HCXMymUwc+wPF72DhFyXieasahlc+6q8JaKT +hGWr6MqGLTJYZNK2XIXKmb5jicPx49T3y7e6OLwlIcbYzlPaQBbRJ6aZ/xMJ +W9zyvuubySLdZ0jd5jMJq6K/xTluk8VvdsEXznyhvt+UUJLmIYsTLzZ6zIyS +cNe67tuys7JosJLkzpskISqAL1IxUxbt6lWP1k+RYJXqsMrsqixuviE20jdN +QuerCc1Itiwu23dogG+GhCknhdAfvbJY6caloj1Pwp3wID6hYVnszXrwUnuB +hNO5D7LVJ2Rx09HIBI1FElYO7rnnxyOHzou+IrK/SVDxTeEa3CCHgzuHe1r+ +kuB2fPbcswg5rBA82+69jANKl8xkRhPkcOLCrTQlPg613v9U8KXJ4cvhyUND +lMN/r39pViSHfpfSj+5awYELcW5itc/kkFV/sGPJSg64Ft8q6e6Ww0jdhrAb +lOWfzOvPDMrhsrkGEytBDrD4M501ZuXw2d7LmmGrOPAs/Ul+sSwN99t8aq5Y +w4FMjqhWkwoNa5kNKVpCHHDu8mwc1KLhiheSEWzKXyR/D6+1omHsps1dxcIc +qDLcGsrYScOK24S5tAgHQl0v8u1xpqGiUvTAOcq8BZobMgJpaK80csVDlANP +/428VxVGw/aWn/8+ppw29HTb81gaHo27KakixgE5FZ8jyy/R8Km+hOs7yiNb +SC7lazSczPxsrSvOgXL/v+nmt2jo8jQ+MJGyYeXl26cf0vCAvrsTTYIDFm/a +/0y00HAx2TfWk7It15LN7q9p2DIe5VVA2Wk9I+1FPw0jvM4s9FP2tg/shREa +Nrbt2yIqyYHAiOvyrAlqPJ+GdmylHFbUc4iYp6Ggza81EZStIuhR0UsJrEo/ +2NRJuW31/esG/AR+GUqo+U15Z9HulqlVBO5yazpAl+JAt8H0WKkIgV5dy7rM +KLs8TxbylCTw8owejyflQU9lPSlZAr8zjSYjKB+Ya3B+RSfQeMXv3EzK3865 +RJ1VJjA4zmtlKeUg2tx1040EalQ6mdRSnuWktSxoEMjt3qrzhHL4lo3jbF0C +n5oUjL+izDXwWMifQaBMa2tAL+WEox568iYEltrokAOU+Zf9cu4zIzB95Gn9 +O8ppOReiMjYT+CQxKvMtZTENzSLrbQQGTaLWG8o5TU9beOwItKj6m91Omebk +M17nSOBXxYq2RspFY3+Fgp0J3BFp9JRDeUNMjt5GdwKlOFcvXKNcJbbJZcib +wNHzT9RTKOvefBF15SCBr65VXAymXGfiX7TrMIFXbS3b91CGjiWtAscINH0Y +321A+ZFv/nhTKIEbvnqxxClv/c0QPhVB4PXkN67T1Py3p3Xq6UYTqKbR/7aF +soPSEZexeAJ7FH21rlLurV0RXXSWej7huEsgZTfboiLXVALfa3G7GlMe/mjS +KppJYPjLpbp8lCcEQoQTcglc2BcQmEnVS3DBKn3mNQJ1Q1tfO1Ce1y1zmS0m +UOf1BWERyrxu74p8qgg8KByx7v/1Kcnaom/VSKCy4+VWK6qer1oMufzXTOA/ +L1OUJqn6l++NjK5po9a3gssni7IaD6dVuYsa/67ojC6qf8wcZF35vlCWKX2k +TfXbky93oh+OEdiv57W3kerHbZH2xSemCXzhNtBrS3lPyZmJz4sEFvNaFrpR +/RwwPx3dIkhHX27LwL1UvxsePSD+SZiOYfsi+x9RebB8tO8WryQd/bafv61K +ubi/qdtEno5n9hdVTQtw4F39BdVqPTp+L5yf3EnlTbk+f+NrIzrK8Wh+zF9O +1Rvr9J4ppGNIm4HNNyqfxAt9Yzfa0LEuZvuZE1Se7Uhg9Fxzp+ONjvx2H16q +v/+rOPxwPx1LzcPysnmofAuV5x3wo+Pxn3umnnBzIOmggLpkCB1pJ3tpMlwc +aLAZiEtNomO+6/OuHCo/tYVjNCLYdHRNLXr/ncpjruTZR9k1dPyWtRAx8YOE +dl5/55p7dFTIOsz+9J2EQ7P2CdOP6Thy6eL4Myrfi3oU+3376Chg6NQZNEbt +1/ktiQ688ljyo7RMYoiEhY1r3qk5ymPKQq/g2HMS5q5Kx+g4yyMRJ3Ms/hkJ +M6uVFBnu8jix8esDqTYSJn4w/C385JGvTEjYqIXaP+95zzlHyqPG/b3dTo0k +PLW5syqpWB4PXrgjx1NDQs4hN/g4K49hrz/Yil8h4dLAwY+fF+XRrJAn3fYy +CVk7ghPG/8rj4rr93+IukZCqk9Q2v0IBOTtUJkcySYj9xd6zWk4BZ0ci3c6k +UONLXhpkbKWAkqdKjE0jSTC+VV5w8aICqjoYiOS6ktBP3Mq3vKKAvKa5W/Kd +SQi/WJY3k6+AI7U2CgVO1P4VU5JrX6aAHzgvnuc4UPPrVJC96r4CmgfZyoRs +I2H90qy0xA8K6EYze3KHOu+Iu0dEh6oq4nl97+IUSRKmha09djcqYrVz5tCd +Njb0BMi/9H+iiA9qVGd/trChoXkRop4pYtMn9xubmqnzYPgtWmm3In6tzZ4p +a2CD5seV7xdGFfGRapx3aDUbAtkv9l0VUcKiZZ6yBXlsGN3h6DK8XwkPsKVc +zanz5HCKx+5jfMq4eqm9nSo/G7ZOntg6oqeCxQ9ODQYwWDDmvTz4dtQ65PGt +FPt4upL6H5HgOdO4HodZKp+3Hy0H4efKqazJDSjL/dpud/BNkEmq2qmnp4rS +Z4X+O4ilkL2RsUbEVw0XEltWf9YugafSppt+pKsjXTqN55J+ERjKNKZpdGvg +5k5mURi9EFbxFoZ4xmri42qjqCUWBSAXQzPeq6yFO00/VHBX58IKJdca+yda ++Kcv5uFvncugzpSqOrFPGxuNoi7R1S7CsXfCTdZcOijbl5fIvTETJn+kOG7N +1sFvRO3co7w02KzRnLNVTRenumJKAutSoP6H0a+f7bpYnqqvmOSSBIGq2n2v +fDahafCFVM2GeGBO7O/cu0IPQxtaZJ/Zx4ClouR2wUI9fFK8ztddPBLWRZ8L +a9TXR6mycldR1zDY4MN4qNSnj5o/PtV/nwsGn/qD8bePGuAxxbd3XoUHwcTh +0ROWIQYY1J1VPRYQBGGyAYe6Qw2Q6RCZI+QeBOdOHbGfjzBArj19S06aBwHL +MJQwTjTAKdqXlgcrg+B3Tdz9phwDLKyZmtU1OwIZVXkzr5sM0L9Hdfv8tcPw +sKBz/7QYA0tZ0/Ox2f4wuI3uHirJQGOmHfEkxh+4Fg7v/SXNwN6Y3C9rD/mD +mR2f7VKCgTdPx+v9ZPpDM7ehvtQGBgb4r24MHvaDZ175K0xNGBj8xzbklK4f +9Cn6V6YdYKDmCI2TPOgLM6V/f2rcYeAxX2uBkgM+8Gm3VcHZWgZmbNHWXeXo +Az1Lzm8ZusfAuE7ifay5D9zzkL58sYGBqdHTeemED8RKbjL808rA5r+/uS36 +98OaJP9TT98y8KWisOGc/X5Q9e3i8uExxLpfDoIeNt7grXRrRc52QyxOV6p/ +7uYJ4Y/d/JV3GmJ1cL/xsK0npPkIt5H2hqio+yKYDzzhfvHJlLY9hlhfduFr +MM0TRJW3rP7jaYgtAe6rhwc9oFl5RNQj1BAlnb4rSh/wgA3raIRyviHuyWj3 +sv7hBtMbMvXIKUPUejod+jfRBXqeoaXID0O8lHR5oSnQBRoCJ3aFzBpib46q ++ZXdLpBKbj2qt2iIjpPyv2KUXWCDIVd5Ha8RPsp/U6X+xBm8th6mN4kbofO1 +6tZFAWfo9N28stPYCKWmE+8JXHeCu0W/PswmGeHha3Gp6Ut2g555yE/rZCP8 +nDpdtGbaEao/jK0sOG+ErHPqgvkDjkDKvdO3zjDC5eTzm19rHKE8u+F83hUj +NFHjcG/yd4SClATG5kojPHvG/MCVDgc4G7I6PbvDCE13eVl4sXeBs4UCGskZ +I41rMevfi3bwp3P5qibCGHNPLRMMTLCDAp+JfmsFY+wWN/l3fYgdfEqsPeG8 +zhhPnqtjtdvZwbHWHVUntY3Rnot25LmgHZyzPSV318oYl0QLZmcl7YQ6p67f +ukeMsWuMwZ4X2gFrD5+pVW8wxtLFbQN3fGwg9e+BTcmNxkj+umo2YGMDPBlW +7M+PjPGdh12mpLYNjNYsLStoNcb0au47L/+zhjqu+GzhDmNMkTpmbXnZGpyz +ok/MjRhjhbNzt9brrZB97+SmegEmRj369fvWri0gxh/A3r6HiUPqH3QH0i2h +yDwyfGovE6/Px49cDrcE7chU80xXJgoUiZge9rYE2ylWV48nE9e/Nyrfs8kS +ErtnF7wDmOjqk2nM6LOA+cIos/AYJl7wOVwvt84C+owyO0puMbFxbvDWdIcZ +HDxelLu1kon7k1Pi3B+awVxltc8Yi4lXltXf/XDTDITle35q1TBxXGL7rHys +Gdgsl5V50MDEvDre5xe1zOB+Z8n+ji4mDmQR7bpZpmC96q5aaA8Tc/XS9gxG +m0LP5tY5yX4m/qo+viH/sCnM1H1Lchtkog9h6bd7symoXdOs+DrKxLDPS0PL +fiHc7zMNTRlnou7dwePjXxCsRXeBxhQTJ1vLGRbdCAfOHH8VMstE4Rv6bevZ +CDMNiTkS80ws8VQIu5uHELt4ybtukYm1ms439qYgrNEtU933h4m2n//ZIhiO +kHe4bvbvXyayVsbbdPgi/A989Yf2 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Vd0XB3BDpUhlHsI919hgJlxcaxkrShElZEwiSZFEMkuR11RJQkKU +4d5zo6jkpURKgyFDSqFBxkKo3n7n99d5Ps8ZnmfvvdZ370P3OmLvw8PFxaXF +zcX1/+vcu9ZHislFJvzNTK7sEXOTzjzJk6Y9scBY3xC+H+UBxV54SfZkQORR +mrchakPozptveHsKgZHQbyOLZiA0IZGx8IaEA8yajAmwh/f3bY/MvGmE0zZE +3G7wAivF0YHpN6+BKXnlLR/zGCy80b8w9eYjqK/2e9ujEwtN5jeKXhX+AJtc +v0d+zzNA5n3tJy/VP1DDzz+Tc/4KiAa43+Qz58Xplj/zPX3XIEPL6p6t43KU +HrIQsFsoht5szYbpNYJo5fYloexkGSQXRb3gkRJC3v9eVza8KQdrXT9hMQUh +9ONyqOEbLoflj+wdVdSEkFi9WXvzVDnEDyn125gKYd1e19NVyyvglPyzT1l+ +QqhtOqqixKiAwALJ/5TrhFDnccrLwuwKsMtlq9q4COM/a64V9dhVgkTW0NnM +qyIoGyx8tbG8CiQ3VsfPl4hgSF+vk09NFUg3JkbtY4mgSpbSWu6GKpCbWn9c +pUkEu3aer1ToqAKlbUEe976IYJ0F75ToQhXoLPmjN6QjinfIuKAOOgt2hIgP +az8VRdWHO1Ib/FiwU+DLu0sdohgYXm9FD2SBfWFt7++3okhr/3z09DEW7H7p ++qJ5UhTnzCvl1CNYsE/1ep2zmBhePKnW7JXCgkPDGumxHmJoXq37nahkwRmH +rSav58SQ9uzBhokJFkjfbpfm4RbHAM/oTVo/WFAp4vBTS0AcS9iXlwb9ZEH3 +azdWOk0c91n7zQz+ZYGiXYi83RZxHJ3k501bw4bG7fnLXl4WxwWMyJPXYsMf +q9n258YSeLOmZUHiCBvSSsJv/bGSQGVVAfmOY2xQXMaVpGYngTFjt/nOhbJh +22N+0/M+ErjClsP/LZINOeYEZ1sq5Q/j306msMEAbS61vZfAvJzTS9tK2RDM +uObeGiuJnR3vTAzfscG6YNWMTYoknll5rFzvAxvk+U4ltV+QxPKMVC+NYTa8 +7NzN7iiVxJQPBaVio2xQD1rJ+66den+/XF71LBu+lJwo+S4thTn7DczMV5Lg +Kmo7vpYjhVwP5W0v6pGgE3EvJu++FP7zXZ1HhkEC/8d14vRmKRTjWs2bZ0RC +bRUvKPdKoVqY8thFJEHcpjZN8y91P2HB09WahJcxirqWNtJ4EPcJ6+0jwWJy +MTxwSBrnu+JClaNJOLkla8O/Y9Korag1vjGWhMpran0ic9KYVOX9Ti2eBEkH +D0bt8rUYIXFHSyWJhLG7j3/yqq/Fp8lfiyf/ISEzNi3kctha1NqUId6TR0JL +/3rFsZi1qHh/0KO4gITfuk0dJslr8WzHzY1HCqm+/TyrPXx1Laa5O1jMF5Ng +uM1lWr1pLQo43Tw/WE7CRzHlwEeCMnjrGOPDijoSJI48lJWQkEGD2vAD+fdI +2Nbi9NyPkMFX8kbBWg9IqAlPVl2tI4MvDskp2TSQcO791OheJxmcd/3206GZ +BO2ye76ThTL4bHlPS+MrEnx5HCXMymUwc+wPF72DhFyXieasahlc+6q8JaKT +hGWr6MqGLTJYZNK2XIXKmb5jicPx49T3y7e6OLwlIcbYzlPaQBbRJ6aZ/xMJ +W9zyvuubySLdZ0jd5jMJq6K/xTluk8VvdsEXznyhvt+UUJLmIYsTLzZ6zIyS +cNe67tuys7JosJLkzpskISqAL1IxUxbt6lWP1k+RYJXqsMrsqixuviE20jdN +QuerCc1Itiwu23dogG+GhCknhdAfvbJY6caloj1Pwp3wID6hYVnszXrwUnuB +hNO5D7LVJ2Rx09HIBI1FElYO7rnnxyOHzou+IrK/SVDxTeEa3CCHgzuHe1r+ +kuB2fPbcswg5rBA82+69jANKl8xkRhPkcOLCrTQlPg613v9U8KXJ4cvhyUND +lMN/r39pViSHfpfSj+5awYELcW5itc/kkFV/sGPJSg64Ft8q6e6Ww0jdhrAb +lOWfzOvPDMrhsrkGEytBDrD4M501ZuXw2d7LmmGrOPAs/Ul+sSwN99t8aq5Y +w4FMjqhWkwoNa5kNKVpCHHDu8mwc1KLhiheSEWzKXyR/D6+1omHsps1dxcIc +qDLcGsrYScOK24S5tAgHQl0v8u1xpqGiUvTAOcq8BZobMgJpaK80csVDlANP +/428VxVGw/aWn/8+ppw29HTb81gaHo27KakixgE5FZ8jyy/R8Km+hOs7yiNb +SC7lazSczPxsrSvOgXL/v+nmt2jo8jQ+MJGyYeXl26cf0vCAvrsTTYIDFm/a +/0y00HAx2TfWk7It15LN7q9p2DIe5VVA2Wk9I+1FPw0jvM4s9FP2tg/shREa +Nrbt2yIqyYHAiOvyrAlqPJ+GdmylHFbUc4iYp6Ggza81EZStIuhR0UsJrEo/ +2NRJuW31/esG/AR+GUqo+U15Z9HulqlVBO5yazpAl+JAt8H0WKkIgV5dy7rM +KLs8TxbylCTw8owejyflQU9lPSlZAr8zjSYjKB+Ya3B+RSfQeMXv3EzK3865 +RJ1VJjA4zmtlKeUg2tx1040EalQ6mdRSnuWktSxoEMjt3qrzhHL4lo3jbF0C +n5oUjL+izDXwWMifQaBMa2tAL+WEox568iYEltrokAOU+Zf9cu4zIzB95Gn9 +O8ppOReiMjYT+CQxKvMtZTENzSLrbQQGTaLWG8o5TU9beOwItKj6m91Omebk +M17nSOBXxYq2RspFY3+Fgp0J3BFp9JRDeUNMjt5GdwKlOFcvXKNcJbbJZcib +wNHzT9RTKOvefBF15SCBr65VXAymXGfiX7TrMIFXbS3b91CGjiWtAscINH0Y +321A+ZFv/nhTKIEbvnqxxClv/c0QPhVB4PXkN67T1Py3p3Xq6UYTqKbR/7aF +soPSEZexeAJ7FH21rlLurV0RXXSWej7huEsgZTfboiLXVALfa3G7GlMe/mjS +KppJYPjLpbp8lCcEQoQTcglc2BcQmEnVS3DBKn3mNQJ1Q1tfO1Ce1y1zmS0m +UOf1BWERyrxu74p8qgg8KByx7v/1Kcnaom/VSKCy4+VWK6qer1oMufzXTOA/ +L1OUJqn6l++NjK5po9a3gssni7IaD6dVuYsa/67ojC6qf8wcZF35vlCWKX2k +TfXbky93oh+OEdiv57W3kerHbZH2xSemCXzhNtBrS3lPyZmJz4sEFvNaFrpR +/RwwPx3dIkhHX27LwL1UvxsePSD+SZiOYfsi+x9RebB8tO8WryQd/bafv61K +ubi/qdtEno5n9hdVTQtw4F39BdVqPTp+L5yf3EnlTbk+f+NrIzrK8Wh+zF9O +1Rvr9J4ppGNIm4HNNyqfxAt9Yzfa0LEuZvuZE1Se7Uhg9Fxzp+ONjvx2H16q +v/+rOPxwPx1LzcPysnmofAuV5x3wo+Pxn3umnnBzIOmggLpkCB1pJ3tpMlwc +aLAZiEtNomO+6/OuHCo/tYVjNCLYdHRNLXr/ncpjruTZR9k1dPyWtRAx8YOE +dl5/55p7dFTIOsz+9J2EQ7P2CdOP6Thy6eL4Myrfi3oU+3376Chg6NQZNEbt +1/ktiQ688ljyo7RMYoiEhY1r3qk5ymPKQq/g2HMS5q5Kx+g4yyMRJ3Ms/hkJ +M6uVFBnu8jix8esDqTYSJn4w/C385JGvTEjYqIXaP+95zzlHyqPG/b3dTo0k +PLW5syqpWB4PXrgjx1NDQs4hN/g4K49hrz/Yil8h4dLAwY+fF+XRrJAn3fYy +CVk7ghPG/8rj4rr93+IukZCqk9Q2v0IBOTtUJkcySYj9xd6zWk4BZ0ci3c6k +UONLXhpkbKWAkqdKjE0jSTC+VV5w8aICqjoYiOS6ktBP3Mq3vKKAvKa5W/Kd +SQi/WJY3k6+AI7U2CgVO1P4VU5JrX6aAHzgvnuc4UPPrVJC96r4CmgfZyoRs +I2H90qy0xA8K6EYze3KHOu+Iu0dEh6oq4nl97+IUSRKmha09djcqYrVz5tCd +Njb0BMi/9H+iiA9qVGd/trChoXkRop4pYtMn9xubmqnzYPgtWmm3In6tzZ4p +a2CD5seV7xdGFfGRapx3aDUbAtkv9l0VUcKiZZ6yBXlsGN3h6DK8XwkPsKVc +zanz5HCKx+5jfMq4eqm9nSo/G7ZOntg6oqeCxQ9ODQYwWDDmvTz4dtQ65PGt +FPt4upL6H5HgOdO4HodZKp+3Hy0H4efKqazJDSjL/dpud/BNkEmq2qmnp4rS +Z4X+O4ilkL2RsUbEVw0XEltWf9YugafSppt+pKsjXTqN55J+ERjKNKZpdGvg +5k5mURi9EFbxFoZ4xmri42qjqCUWBSAXQzPeq6yFO00/VHBX58IKJdca+yda ++Kcv5uFvncugzpSqOrFPGxuNoi7R1S7CsXfCTdZcOijbl5fIvTETJn+kOG7N +1sFvRO3co7w02KzRnLNVTRenumJKAutSoP6H0a+f7bpYnqqvmOSSBIGq2n2v +fDahafCFVM2GeGBO7O/cu0IPQxtaZJ/Zx4ClouR2wUI9fFK8ztddPBLWRZ8L +a9TXR6mycldR1zDY4MN4qNSnj5o/PtV/nwsGn/qD8bePGuAxxbd3XoUHwcTh +0ROWIQYY1J1VPRYQBGGyAYe6Qw2Q6RCZI+QeBOdOHbGfjzBArj19S06aBwHL +MJQwTjTAKdqXlgcrg+B3Tdz9phwDLKyZmtU1OwIZVXkzr5sM0L9Hdfv8tcPw +sKBz/7QYA0tZ0/Ox2f4wuI3uHirJQGOmHfEkxh+4Fg7v/SXNwN6Y3C9rD/mD +mR2f7VKCgTdPx+v9ZPpDM7ehvtQGBgb4r24MHvaDZ175K0xNGBj8xzbklK4f +9Cn6V6YdYKDmCI2TPOgLM6V/f2rcYeAxX2uBkgM+8Gm3VcHZWgZmbNHWXeXo +Az1Lzm8ZusfAuE7ifay5D9zzkL58sYGBqdHTeemED8RKbjL808rA5r+/uS36 +98OaJP9TT98y8KWisOGc/X5Q9e3i8uExxLpfDoIeNt7grXRrRc52QyxOV6p/ +7uYJ4Y/d/JV3GmJ1cL/xsK0npPkIt5H2hqio+yKYDzzhfvHJlLY9hlhfduFr +MM0TRJW3rP7jaYgtAe6rhwc9oFl5RNQj1BAlnb4rSh/wgA3raIRyviHuyWj3 +sv7hBtMbMvXIKUPUejod+jfRBXqeoaXID0O8lHR5oSnQBRoCJ3aFzBpib46q ++ZXdLpBKbj2qt2iIjpPyv2KUXWCDIVd5Ha8RPsp/U6X+xBm8th6mN4kbofO1 +6tZFAWfo9N28stPYCKWmE+8JXHeCu0W/PswmGeHha3Gp6Ut2g555yE/rZCP8 +nDpdtGbaEao/jK0sOG+ErHPqgvkDjkDKvdO3zjDC5eTzm19rHKE8u+F83hUj +NFHjcG/yd4SClATG5kojPHvG/MCVDgc4G7I6PbvDCE13eVl4sXeBs4UCGskZ +I41rMevfi3bwp3P5qibCGHNPLRMMTLCDAp+JfmsFY+wWN/l3fYgdfEqsPeG8 +zhhPnqtjtdvZwbHWHVUntY3Rnot25LmgHZyzPSV318oYl0QLZmcl7YQ6p67f +ukeMsWuMwZ4X2gFrD5+pVW8wxtLFbQN3fGwg9e+BTcmNxkj+umo2YGMDPBlW +7M+PjPGdh12mpLYNjNYsLStoNcb0au47L/+zhjqu+GzhDmNMkTpmbXnZGpyz +ok/MjRhjhbNzt9brrZB97+SmegEmRj369fvWri0gxh/A3r6HiUPqH3QH0i2h +yDwyfGovE6/Px49cDrcE7chU80xXJgoUiZge9rYE2ylWV48nE9e/Nyrfs8kS +ErtnF7wDmOjqk2nM6LOA+cIos/AYJl7wOVwvt84C+owyO0puMbFxbvDWdIcZ +HDxelLu1kon7k1Pi3B+awVxltc8Yi4lXltXf/XDTDITle35q1TBxXGL7rHys +Gdgsl5V50MDEvDre5xe1zOB+Z8n+ji4mDmQR7bpZpmC96q5aaA8Tc/XS9gxG +m0LP5tY5yX4m/qo+viH/sCnM1H1Lchtkog9h6bd7symoXdOs+DrKxLDPS0PL +fiHc7zMNTRlnou7dwePjXxCsRXeBxhQTJ1vLGRbdCAfOHH8VMstE4Rv6bevZ +CDMNiTkS80ws8VQIu5uHELt4ybtukYm1ms439qYgrNEtU933h4m2n//ZIhiO +kHe4bvbvXyayVsbbdPgi/A989Yf2 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07461349638005844}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07461349638005844}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Vd0XB3BDpUhlHsI919hgJlxcaxkrShElZEwiSZFEMkuR11RJQkKU +4d5zo6jkpURKgyFDSqFBxkKo3n7n99d5Ps8ZnmfvvdZ370P3OmLvw8PFxaXF +zcX1/+vcu9ZHislFJvzNTK7sEXOTzjzJk6Y9scBY3xC+H+UBxV54SfZkQORR +mrchakPozptveHsKgZHQbyOLZiA0IZGx8IaEA8yajAmwh/f3bY/MvGmE0zZE +3G7wAivF0YHpN6+BKXnlLR/zGCy80b8w9eYjqK/2e9ujEwtN5jeKXhX+AJtc +v0d+zzNA5n3tJy/VP1DDzz+Tc/4KiAa43+Qz58Xplj/zPX3XIEPL6p6t43KU +HrIQsFsoht5szYbpNYJo5fYloexkGSQXRb3gkRJC3v9eVza8KQdrXT9hMQUh +9ONyqOEbLoflj+wdVdSEkFi9WXvzVDnEDyn125gKYd1e19NVyyvglPyzT1l+ +QqhtOqqixKiAwALJ/5TrhFDnccrLwuwKsMtlq9q4COM/a64V9dhVgkTW0NnM +qyIoGyx8tbG8CiQ3VsfPl4hgSF+vk09NFUg3JkbtY4mgSpbSWu6GKpCbWn9c +pUkEu3aer1ToqAKlbUEe976IYJ0F75ToQhXoLPmjN6QjinfIuKAOOgt2hIgP +az8VRdWHO1Ib/FiwU+DLu0sdohgYXm9FD2SBfWFt7++3okhr/3z09DEW7H7p ++qJ5UhTnzCvl1CNYsE/1ep2zmBhePKnW7JXCgkPDGumxHmJoXq37nahkwRmH +rSav58SQ9uzBhokJFkjfbpfm4RbHAM/oTVo/WFAp4vBTS0AcS9iXlwb9ZEH3 +azdWOk0c91n7zQz+ZYGiXYi83RZxHJ3k501bw4bG7fnLXl4WxwWMyJPXYsMf +q9n258YSeLOmZUHiCBvSSsJv/bGSQGVVAfmOY2xQXMaVpGYngTFjt/nOhbJh +22N+0/M+ErjClsP/LZINOeYEZ1sq5Q/j306msMEAbS61vZfAvJzTS9tK2RDM +uObeGiuJnR3vTAzfscG6YNWMTYoknll5rFzvAxvk+U4ltV+QxPKMVC+NYTa8 +7NzN7iiVxJQPBaVio2xQD1rJ+66den+/XF71LBu+lJwo+S4thTn7DczMV5Lg +Kmo7vpYjhVwP5W0v6pGgE3EvJu++FP7zXZ1HhkEC/8d14vRmKRTjWs2bZ0RC +bRUvKPdKoVqY8thFJEHcpjZN8y91P2HB09WahJcxirqWNtJ4EPcJ6+0jwWJy +MTxwSBrnu+JClaNJOLkla8O/Y9Korag1vjGWhMpran0ic9KYVOX9Ti2eBEkH +D0bt8rUYIXFHSyWJhLG7j3/yqq/Fp8lfiyf/ISEzNi3kctha1NqUId6TR0JL +/3rFsZi1qHh/0KO4gITfuk0dJslr8WzHzY1HCqm+/TyrPXx1Laa5O1jMF5Ng +uM1lWr1pLQo43Tw/WE7CRzHlwEeCMnjrGOPDijoSJI48lJWQkEGD2vAD+fdI +2Nbi9NyPkMFX8kbBWg9IqAlPVl2tI4MvDskp2TSQcO791OheJxmcd/3206GZ +BO2ye76ThTL4bHlPS+MrEnx5HCXMymUwc+wPF72DhFyXieasahlc+6q8JaKT +hGWr6MqGLTJYZNK2XIXKmb5jicPx49T3y7e6OLwlIcbYzlPaQBbRJ6aZ/xMJ +W9zyvuubySLdZ0jd5jMJq6K/xTluk8VvdsEXznyhvt+UUJLmIYsTLzZ6zIyS +cNe67tuys7JosJLkzpskISqAL1IxUxbt6lWP1k+RYJXqsMrsqixuviE20jdN +QuerCc1Itiwu23dogG+GhCknhdAfvbJY6caloj1Pwp3wID6hYVnszXrwUnuB +hNO5D7LVJ2Rx09HIBI1FElYO7rnnxyOHzou+IrK/SVDxTeEa3CCHgzuHe1r+ +kuB2fPbcswg5rBA82+69jANKl8xkRhPkcOLCrTQlPg613v9U8KXJ4cvhyUND +lMN/r39pViSHfpfSj+5awYELcW5itc/kkFV/sGPJSg64Ft8q6e6Ww0jdhrAb +lOWfzOvPDMrhsrkGEytBDrD4M501ZuXw2d7LmmGrOPAs/Ul+sSwN99t8aq5Y +w4FMjqhWkwoNa5kNKVpCHHDu8mwc1KLhiheSEWzKXyR/D6+1omHsps1dxcIc +qDLcGsrYScOK24S5tAgHQl0v8u1xpqGiUvTAOcq8BZobMgJpaK80csVDlANP +/428VxVGw/aWn/8+ppw29HTb81gaHo27KakixgE5FZ8jyy/R8Km+hOs7yiNb +SC7lazSczPxsrSvOgXL/v+nmt2jo8jQ+MJGyYeXl26cf0vCAvrsTTYIDFm/a +/0y00HAx2TfWk7It15LN7q9p2DIe5VVA2Wk9I+1FPw0jvM4s9FP2tg/shREa +Nrbt2yIqyYHAiOvyrAlqPJ+GdmylHFbUc4iYp6Ggza81EZStIuhR0UsJrEo/ +2NRJuW31/esG/AR+GUqo+U15Z9HulqlVBO5yazpAl+JAt8H0WKkIgV5dy7rM +KLs8TxbylCTw8owejyflQU9lPSlZAr8zjSYjKB+Ya3B+RSfQeMXv3EzK3865 +RJ1VJjA4zmtlKeUg2tx1040EalQ6mdRSnuWktSxoEMjt3qrzhHL4lo3jbF0C +n5oUjL+izDXwWMifQaBMa2tAL+WEox568iYEltrokAOU+Zf9cu4zIzB95Gn9 +O8ppOReiMjYT+CQxKvMtZTENzSLrbQQGTaLWG8o5TU9beOwItKj6m91Omebk +M17nSOBXxYq2RspFY3+Fgp0J3BFp9JRDeUNMjt5GdwKlOFcvXKNcJbbJZcib +wNHzT9RTKOvefBF15SCBr65VXAymXGfiX7TrMIFXbS3b91CGjiWtAscINH0Y +321A+ZFv/nhTKIEbvnqxxClv/c0QPhVB4PXkN67T1Py3p3Xq6UYTqKbR/7aF +soPSEZexeAJ7FH21rlLurV0RXXSWej7huEsgZTfboiLXVALfa3G7GlMe/mjS +KppJYPjLpbp8lCcEQoQTcglc2BcQmEnVS3DBKn3mNQJ1Q1tfO1Ce1y1zmS0m +UOf1BWERyrxu74p8qgg8KByx7v/1Kcnaom/VSKCy4+VWK6qer1oMufzXTOA/ +L1OUJqn6l++NjK5po9a3gssni7IaD6dVuYsa/67ojC6qf8wcZF35vlCWKX2k +TfXbky93oh+OEdiv57W3kerHbZH2xSemCXzhNtBrS3lPyZmJz4sEFvNaFrpR +/RwwPx3dIkhHX27LwL1UvxsePSD+SZiOYfsi+x9RebB8tO8WryQd/bafv61K +ubi/qdtEno5n9hdVTQtw4F39BdVqPTp+L5yf3EnlTbk+f+NrIzrK8Wh+zF9O +1Rvr9J4ppGNIm4HNNyqfxAt9Yzfa0LEuZvuZE1Se7Uhg9Fxzp+ONjvx2H16q +v/+rOPxwPx1LzcPysnmofAuV5x3wo+Pxn3umnnBzIOmggLpkCB1pJ3tpMlwc +aLAZiEtNomO+6/OuHCo/tYVjNCLYdHRNLXr/ncpjruTZR9k1dPyWtRAx8YOE +dl5/55p7dFTIOsz+9J2EQ7P2CdOP6Thy6eL4Myrfi3oU+3376Chg6NQZNEbt +1/ktiQ688ljyo7RMYoiEhY1r3qk5ymPKQq/g2HMS5q5Kx+g4yyMRJ3Ms/hkJ +M6uVFBnu8jix8esDqTYSJn4w/C385JGvTEjYqIXaP+95zzlHyqPG/b3dTo0k +PLW5syqpWB4PXrgjx1NDQs4hN/g4K49hrz/Yil8h4dLAwY+fF+XRrJAn3fYy +CVk7ghPG/8rj4rr93+IukZCqk9Q2v0IBOTtUJkcySYj9xd6zWk4BZ0ci3c6k +UONLXhpkbKWAkqdKjE0jSTC+VV5w8aICqjoYiOS6ktBP3Mq3vKKAvKa5W/Kd +SQi/WJY3k6+AI7U2CgVO1P4VU5JrX6aAHzgvnuc4UPPrVJC96r4CmgfZyoRs +I2H90qy0xA8K6EYze3KHOu+Iu0dEh6oq4nl97+IUSRKmha09djcqYrVz5tCd +Njb0BMi/9H+iiA9qVGd/trChoXkRop4pYtMn9xubmqnzYPgtWmm3In6tzZ4p +a2CD5seV7xdGFfGRapx3aDUbAtkv9l0VUcKiZZ6yBXlsGN3h6DK8XwkPsKVc +zanz5HCKx+5jfMq4eqm9nSo/G7ZOntg6oqeCxQ9ODQYwWDDmvTz4dtQ65PGt +FPt4upL6H5HgOdO4HodZKp+3Hy0H4efKqazJDSjL/dpud/BNkEmq2qmnp4rS +Z4X+O4ilkL2RsUbEVw0XEltWf9YugafSppt+pKsjXTqN55J+ERjKNKZpdGvg +5k5mURi9EFbxFoZ4xmri42qjqCUWBSAXQzPeq6yFO00/VHBX58IKJdca+yda ++Kcv5uFvncugzpSqOrFPGxuNoi7R1S7CsXfCTdZcOijbl5fIvTETJn+kOG7N +1sFvRO3co7w02KzRnLNVTRenumJKAutSoP6H0a+f7bpYnqqvmOSSBIGq2n2v +fDahafCFVM2GeGBO7O/cu0IPQxtaZJ/Zx4ClouR2wUI9fFK8ztddPBLWRZ8L +a9TXR6mycldR1zDY4MN4qNSnj5o/PtV/nwsGn/qD8bePGuAxxbd3XoUHwcTh +0ROWIQYY1J1VPRYQBGGyAYe6Qw2Q6RCZI+QeBOdOHbGfjzBArj19S06aBwHL +MJQwTjTAKdqXlgcrg+B3Tdz9phwDLKyZmtU1OwIZVXkzr5sM0L9Hdfv8tcPw +sKBz/7QYA0tZ0/Ox2f4wuI3uHirJQGOmHfEkxh+4Fg7v/SXNwN6Y3C9rD/mD +mR2f7VKCgTdPx+v9ZPpDM7ehvtQGBgb4r24MHvaDZ175K0xNGBj8xzbklK4f +9Cn6V6YdYKDmCI2TPOgLM6V/f2rcYeAxX2uBkgM+8Gm3VcHZWgZmbNHWXeXo +Az1Lzm8ZusfAuE7ifay5D9zzkL58sYGBqdHTeemED8RKbjL808rA5r+/uS36 +98OaJP9TT98y8KWisOGc/X5Q9e3i8uExxLpfDoIeNt7grXRrRc52QyxOV6p/ +7uYJ4Y/d/JV3GmJ1cL/xsK0npPkIt5H2hqio+yKYDzzhfvHJlLY9hlhfduFr +MM0TRJW3rP7jaYgtAe6rhwc9oFl5RNQj1BAlnb4rSh/wgA3raIRyviHuyWj3 +sv7hBtMbMvXIKUPUejod+jfRBXqeoaXID0O8lHR5oSnQBRoCJ3aFzBpib46q ++ZXdLpBKbj2qt2iIjpPyv2KUXWCDIVd5Ha8RPsp/U6X+xBm8th6mN4kbofO1 +6tZFAWfo9N28stPYCKWmE+8JXHeCu0W/PswmGeHha3Gp6Ut2g555yE/rZCP8 +nDpdtGbaEao/jK0sOG+ErHPqgvkDjkDKvdO3zjDC5eTzm19rHKE8u+F83hUj +NFHjcG/yd4SClATG5kojPHvG/MCVDgc4G7I6PbvDCE13eVl4sXeBs4UCGskZ +I41rMevfi3bwp3P5qibCGHNPLRMMTLCDAp+JfmsFY+wWN/l3fYgdfEqsPeG8 +zhhPnqtjtdvZwbHWHVUntY3Rnot25LmgHZyzPSV318oYl0QLZmcl7YQ6p67f +ukeMsWuMwZ4X2gFrD5+pVW8wxtLFbQN3fGwg9e+BTcmNxkj+umo2YGMDPBlW +7M+PjPGdh12mpLYNjNYsLStoNcb0au47L/+zhjqu+GzhDmNMkTpmbXnZGpyz +ok/MjRhjhbNzt9brrZB97+SmegEmRj369fvWri0gxh/A3r6HiUPqH3QH0i2h +yDwyfGovE6/Px49cDrcE7chU80xXJgoUiZge9rYE2ylWV48nE9e/Nyrfs8kS +ErtnF7wDmOjqk2nM6LOA+cIos/AYJl7wOVwvt84C+owyO0puMbFxbvDWdIcZ +HDxelLu1kon7k1Pi3B+awVxltc8Yi4lXltXf/XDTDITle35q1TBxXGL7rHys +Gdgsl5V50MDEvDre5xe1zOB+Z8n+ji4mDmQR7bpZpmC96q5aaA8Tc/XS9gxG +m0LP5tY5yX4m/qo+viH/sCnM1H1Lchtkog9h6bd7symoXdOs+DrKxLDPS0PL +fiHc7zMNTRlnou7dwePjXxCsRXeBxhQTJ1vLGRbdCAfOHH8VMstE4Rv6bevZ +CDMNiTkS80ws8VQIu5uHELt4ybtukYm1ms439qYgrNEtU933h4m2n//ZIhiO +kHe4bvbvXyayVsbbdPgi/A989Yf2 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07461349638005844}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07461349638005844}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994261197375347*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"71918089-b871-4791-9a80-3a70e123182a"] +}, Open ]], Cell[CellGroupData[{ @@ -12136,18 +15096,75 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], - RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ -UUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[142]:=",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"2b38d1a8-4a7e-7b4f-8cdd-5298fced63d9"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.428171924590026`*^-156\\\", \ +RowBox[{\\\"552513857212233842570175958778312308519\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"78\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3361543354777600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 73, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994261197400669*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"a64c8180-805a-4fab-bf63-6ae3556edfc5"], -Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.038102625441944`*^-159\\\", \ +RowBox[{\\\"192330073695578600598678251250730514595\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"82\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1532417980825600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 74, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994261197407117*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"c386f3be-d330-4b25-9522-77682f7cf565"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0453328204414769`*^-161\\\", \ +RowBox[{\\\"692388265304082962155241704502629852543\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"85\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6704730972160000000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 75, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942611974137573`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"ab3533e2-c69e-4aff-99bf-a4924b48bede"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 142, 76, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942611974195967`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"f2044f9b-84fb-4cad-a59b-341fa23a4d62"], + +Cell[BoxData["9.841010889319245`"], "Output", + CellChangeTimes->{3.994261227675454*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"5df17df9-aff1-4419-9e3f-3574089d1f07"] }, Open ]], Cell[CellGroupData[{ @@ -12214,27 +15231,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850818889292*^9, - 3.9918508230677433`*^9}},ExpressionUUID->"d2148290-3e90-8347-bddd-\ -5dd8190b0268"], + CellChangeTimes->{{3.991850818889292*^9, 3.9918508230677433`*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"905b237c-0e51-ab4b-895d-05994c6f1d5f"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.993128964568622`*^-202\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 77, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994261227701013*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"225cda36-ddf8-41c9-8ba6-7132fb31df08"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"7ad8c79e-9570-a44d-b593-07aa87056e21"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7157407252181426`*^-206\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 78, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942612277055273`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"d7525506-26b3-487b-a9a9-f24fe631b42f"], -Cell[BoxData["0.576602516746911`"], "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.226984475417373`*^-211\\\", \ +RowBox[{\\\"668859810497440244092067196564426051030\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3165635789279094374400000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 79, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994261227710088*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"7593e564-785c-435f-814f-41aed0c49f1e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 80, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994261227714735*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"264bca8c-fefc-492f-9608-ce3e20787fea"], + +Cell[BoxData["0.838872127758397`"], "Output", + CellChangeTimes->{3.994261231992646*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"545322cf-caf5-47af-bd26-35d7aadb0190"] }, Open ]], Cell[CellGroupData[{ @@ -12255,8 +15320,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -12301,27 +15365,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850826380268*^9, - 3.991850829169306*^9}},ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-\ -98d71f8a8458"], + CellChangeTimes->{{3.991850826380268*^9, 3.991850829169306*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"c516c31a-74b4-f24d-a16a-678221cde87e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.993128964568622`*^-202\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 81, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994261232016589*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"8993b003-8224-43d2-b91c-1242caab6b4e"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"5c50b555-9ebe-f94d-801f-34634555f622"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7157407252181426`*^-206\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 82, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942612320210247`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"638b120f-8c35-4e74-91f9-84b427ed613d"], -Cell[BoxData["3.32141991539404`"], "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.226984475417373`*^-211\\\", \ +RowBox[{\\\"668859810497440244092067196564426051030\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3165635789279094374400000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 83, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994261232025495*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"3965b81b-8b28-4ffe-a3b6-f22ad8e10b8c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 84, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994261232029801*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"a45cd13d-2cd1-4401-a429-df748b3e2be5"], + +Cell[BoxData["28.361822283941788`"], "Output", + CellChangeTimes->{3.994261236446144*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"0350d1c7-092d-436c-aef0-7bbe4401b3dd"] }, Open ]], Cell[CellGroupData[{ @@ -12342,8 +15454,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -12388,27 +15499,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918508329145336`*^9, - 3.991850837197098*^9}},ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-\ -57c1fe1d0585"], + CellChangeTimes->{{3.9918508329145336`*^9, 3.991850837197098*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"7ca591cf-a5ce-ce41-8101-8edfca50e890"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.993128964568622`*^-202\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 85, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994261236472436*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"5aed0126-9af7-4de7-adb9-28e205b14b0b"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"cbafd11a-4be0-b541-81e4-e62191ae7695"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7157407252181426`*^-206\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 86, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994261236477405*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"e29b69b4-0409-4bad-90bc-866c58e0bc4a"], -Cell[BoxData["18.419619005098298`"], "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.226984475417373`*^-211\\\", \ +RowBox[{\\\"668859810497440244092067196564426051030\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3165635789279094374400000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 87, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994261236481791*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"f269e717-0520-4ffe-995d-5e4219a6b5c8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 88, 31387659693867306575, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942612364858723`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"b7348368-f7ad-4078-abb2-e578e06894bf"], + +Cell[BoxData["4.5418308389810536`"], "Output", + CellChangeTimes->{3.994261239160541*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"511ea6bc-cda4-48b8-a580-fa058130fce5"] }, Open ]], Cell[CellGroupData[{ @@ -12417,14 +15576,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918508397421246`*^9, - 3.9918508449867363`*^9}},ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-\ -1ca469b254bd"], + CellChangeTimes->{{3.9918508397421246`*^9, 3.9918508449867363`*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], -Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] -}, Open ]] +Cell[BoxData["0.07391170516851481`"], "Output", + CellChangeTimes->{3.9942612391831503`*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"238a3d06-52ad-42ed-8d10-db0e082014a1"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellLabel-> + "In[147]:=",ExpressionUUID->"495f3385-544d-41a5-b06b-36c85839da2f"] }, -WindowSize->{714, 288}, +Evaluator->"6", +WindowSize->{714, 170.25}, WindowMargins->{{Automatic, 3}, {3, Automatic}}, CellContext->Notebook, FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", @@ -12443,606 +15611,639 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 357, 7, 36, "Input",ExpressionUUID->"7ea71dfd-b2c0-4b99-9aa3-8fe6de08e31e"], -Cell[936, 31, 232, 5, 41, "Output",ExpressionUUID->"81a2eacd-9d1d-48e2-ab94-2bad96ae2f6d"] +Cell[576, 22, 352, 6, 36, "Input",ExpressionUUID->"7ea71dfd-b2c0-4b99-9aa3-8fe6de08e31e"], +Cell[931, 30, 249, 4, 41, "Output",ExpressionUUID->"6610a359-2e2a-4c0e-9e9a-897c0f3fad08"] }, Open ]], Cell[CellGroupData[{ -Cell[1205, 41, 250, 5, 36, "Input",ExpressionUUID->"f744b062-a40c-4b64-a45f-44b752e39e6b"], -Cell[1458, 48, 232, 5, 41, "Output",ExpressionUUID->"c854fdee-9428-4c59-b580-f94cb8d630e4"] +Cell[1217, 39, 245, 4, 36, "Input",ExpressionUUID->"f744b062-a40c-4b64-a45f-44b752e39e6b"], +Cell[1465, 45, 251, 4, 41, "Output",ExpressionUUID->"98749da7-7dc3-4617-9e33-87b59563e22f"] }, Open ]], Cell[CellGroupData[{ -Cell[1727, 58, 228, 5, 36, "Input",ExpressionUUID->"87d1104e-cfce-4c88-a8ad-fc2fff981ee6"], -Cell[1958, 65, 234, 5, 41, "Output",ExpressionUUID->"138ffab8-de63-48d1-82c6-c8d1cf9d8609"] +Cell[1753, 54, 223, 4, 36, "Input",ExpressionUUID->"87d1104e-cfce-4c88-a8ad-fc2fff981ee6"], +Cell[1979, 60, 253, 4, 41, "Output",ExpressionUUID->"a6ff453e-4e3f-4c21-acc8-da241e170b97"] }, Open ]], Cell[CellGroupData[{ -Cell[2229, 75, 180, 4, 66, "Input",ExpressionUUID->"a03edf3b-1fe5-4172-acda-4468f3e2d00a"], -Cell[2412, 81, 232, 5, 75, "Output",ExpressionUUID->"d9ba2f63-9db3-4dac-9e3c-760355714cad"] +Cell[2269, 69, 175, 3, 36, "Input",ExpressionUUID->"a03edf3b-1fe5-4172-acda-4468f3e2d00a"], +Cell[2447, 74, 251, 4, 41, "Output",ExpressionUUID->"2d31a81f-bcb5-4379-9463-8eb9a2b45908"] }, Open ]], Cell[CellGroupData[{ -Cell[2681, 91, 262, 8, 96, "Input",ExpressionUUID->"7bfced1d-dc51-4f78-a3d7-9e3af299f64b"], -Cell[2946, 101, 237, 5, 75, "Output",ExpressionUUID->"fe42cc1e-7f88-47be-85bf-06353305ab32"] +Cell[2735, 83, 257, 7, 54, "Input",ExpressionUUID->"7bfced1d-dc51-4f78-a3d7-9e3af299f64b"], +Cell[2995, 92, 254, 4, 41, "Output",ExpressionUUID->"e709daf8-08f7-4363-b0cc-a951602e322c"] }, Open ]], Cell[CellGroupData[{ -Cell[3220, 111, 136, 3, 66, "Input",ExpressionUUID->"6ee5abef-bbf2-4ee7-8c77-ed8b7108eb6f"], -Cell[3359, 116, 233, 5, 75, "Output",ExpressionUUID->"40f66af5-b8a1-4f57-aa94-f56ded6fa254"] +Cell[3286, 101, 131, 2, 36, "Input",ExpressionUUID->"6ee5abef-bbf2-4ee7-8c77-ed8b7108eb6f"], +Cell[3420, 105, 252, 4, 41, "Output",ExpressionUUID->"4545d507-dc1b-444d-bf05-9ed292fe0679"] }, Open ]], Cell[CellGroupData[{ -Cell[3629, 126, 281, 7, 66, "Input",ExpressionUUID->"67c8941d-038b-4734-96dd-fd4c619e69e3"], -Cell[3913, 135, 248, 5, 75, "Output",ExpressionUUID->"bfe204e5-4bbd-4809-85e3-b2cdf8eb6c8e"] +Cell[3709, 114, 276, 6, 36, "Input",ExpressionUUID->"67c8941d-038b-4734-96dd-fd4c619e69e3"], +Cell[3988, 122, 267, 4, 41, "Output",ExpressionUUID->"bd2b089a-2498-4f94-8384-a5370ac5f794"] }, Open ]], Cell[CellGroupData[{ -Cell[4198, 145, 262, 8, 66, "Input",ExpressionUUID->"350770d6-4a07-484d-a035-07b63503ebc9"], -Cell[4463, 155, 248, 5, 75, "Output",ExpressionUUID->"28cbd9ca-90f6-4e14-9e41-4d7db18e8830"] +Cell[4292, 131, 257, 7, 36, "Input",ExpressionUUID->"350770d6-4a07-484d-a035-07b63503ebc9"], +Cell[4552, 140, 265, 4, 41, "Output",ExpressionUUID->"384061f6-2bb4-4814-9e18-21ce2b6afa2d"] }, Open ]], Cell[CellGroupData[{ -Cell[4748, 165, 208, 4, 66, "Input",ExpressionUUID->"d6ee75e6-5445-4bb6-8c64-24bb8eb48403"], -Cell[4959, 171, 218, 4, 75, "Output",ExpressionUUID->"f903acf0-62f4-423a-a0c2-a40f7fa3c61f"] +Cell[4854, 149, 203, 3, 36, "Input",ExpressionUUID->"d6ee75e6-5445-4bb6-8c64-24bb8eb48403"], +Cell[5060, 154, 239, 4, 41, "Output",ExpressionUUID->"ddd57056-ea2e-4285-8a44-a38fec61498b"] }, Open ]], Cell[CellGroupData[{ -Cell[5214, 180, 210, 4, 66, "Input",ExpressionUUID->"ed81a5fb-4fb5-441e-87fd-36593f8700ad"], -Cell[5427, 186, 214, 4, 75, "Output",ExpressionUUID->"d89e9ffe-9a18-42e1-ae70-f99b5276a16c"] +Cell[5336, 163, 206, 3, 36, "Input",ExpressionUUID->"ed81a5fb-4fb5-441e-87fd-36593f8700ad"], +Cell[5545, 168, 236, 4, 41, "Output",ExpressionUUID->"ec3b9dba-b18a-4135-a8bc-6e83d3ab7aca"] }, Open ]], Cell[CellGroupData[{ -Cell[5678, 195, 133, 3, 66, "Input",ExpressionUUID->"b89827a4-258e-4003-b1e7-dab12555b42d"], -Cell[5814, 200, 232, 5, 75, "Output",ExpressionUUID->"3b651afd-f0d2-49bf-a83e-77073070e7a5"] +Cell[5818, 177, 129, 2, 36, "Input",ExpressionUUID->"b89827a4-258e-4003-b1e7-dab12555b42d"], +Cell[5950, 181, 250, 4, 41, "Output",ExpressionUUID->"747f53f9-994e-4662-9b16-258e6db87118"] }, Open ]], Cell[CellGroupData[{ -Cell[6083, 210, 133, 3, 66, "Input",ExpressionUUID->"2c7dfbf6-94b8-4a7d-986e-ad84ea648797"], -Cell[6219, 215, 232, 5, 75, "Output",ExpressionUUID->"2b5bac7c-e751-4c70-9017-d2a196c9e1be"] +Cell[6237, 190, 129, 2, 36, "Input",ExpressionUUID->"2c7dfbf6-94b8-4a7d-986e-ad84ea648797"], +Cell[6369, 194, 249, 4, 41, "Output",ExpressionUUID->"7b8a50a3-e39a-4ad5-85a2-4598dd505008"] }, Open ]], Cell[CellGroupData[{ -Cell[6488, 225, 561, 20, 175, "Input",ExpressionUUID->"29e5375a-e538-4e58-889c-bf8fa8867d96"], -Cell[7052, 247, 249, 5, 75, "Output",ExpressionUUID->"64a4086f-8a84-4e65-9ae6-0483e0df9121"] +Cell[6655, 203, 557, 19, 100, "Input",ExpressionUUID->"29e5375a-e538-4e58-889c-bf8fa8867d96"], +Cell[7215, 224, 269, 4, 41, "Output",ExpressionUUID->"af2073f2-e1cc-4bb2-930e-299ccc57040c"] }, Open ]], Cell[CellGroupData[{ -Cell[7338, 257, 561, 20, 175, "Input",ExpressionUUID->"57c0b2c1-ed31-4f94-8a02-9684c242442f"], -Cell[7902, 279, 252, 5, 75, "Output",ExpressionUUID->"f8cc0204-44c5-46d2-bd0c-9c861f9e27ce"] +Cell[7521, 233, 557, 19, 100, "Input",ExpressionUUID->"57c0b2c1-ed31-4f94-8a02-9684c242442f"], +Cell[8081, 254, 270, 4, 41, "Output",ExpressionUUID->"7023776d-4ca0-479b-81bc-60ab3851787e"] }, Open ]], Cell[CellGroupData[{ -Cell[8191, 289, 1592, 51, 362, "Input",ExpressionUUID->"767361d1-eb20-4cfb-98e4-9db123ce2e7d"], -Cell[9786, 342, 246, 5, 75, "Output",ExpressionUUID->"86293c25-45b0-4cf9-9f5a-68c0e992017c"] +Cell[8388, 263, 1588, 50, 215, "Input",ExpressionUUID->"767361d1-eb20-4cfb-98e4-9db123ce2e7d"], +Cell[9979, 315, 264, 4, 41, "Output",ExpressionUUID->"0bb0f234-bb80-4cb1-a7c9-7e04fddb0be3"] }, Open ]], Cell[CellGroupData[{ -Cell[10069, 352, 1426, 47, 362, "Input",ExpressionUUID->"727d1887-9bd0-4c99-95c1-beb0e6375c1b"], -Cell[11498, 401, 266, 6, 75, "Output",ExpressionUUID->"685ce0b8-9f2a-4a97-926d-aceede093559"] +Cell[10280, 324, 1422, 46, 215, "Input",ExpressionUUID->"727d1887-9bd0-4c99-95c1-beb0e6375c1b"], +Cell[11705, 372, 284, 5, 41, "Output",ExpressionUUID->"cc6da59a-0348-476c-8d5d-481b9e0c7968"] }, Open ]], Cell[CellGroupData[{ -Cell[11801, 412, 1426, 47, 362, "Input",ExpressionUUID->"70da0a4d-58d0-4c55-aee5-2bcedac5a936"], -Cell[13230, 461, 271, 6, 75, "Output",ExpressionUUID->"181f52e6-143c-43ce-9acc-60f4108b3908"] +Cell[12026, 382, 1422, 46, 215, "Input",ExpressionUUID->"70da0a4d-58d0-4c55-aee5-2bcedac5a936"], +Cell[13451, 430, 289, 5, 41, "Output",ExpressionUUID->"6b88c532-07e1-49d0-8bbd-8efbbb190861"] }, Open ]], Cell[CellGroupData[{ -Cell[13538, 472, 1592, 51, 362, "Input",ExpressionUUID->"327d6fe0-2042-4a7f-b513-35484052d306"], -Cell[15133, 525, 243, 5, 75, "Output",ExpressionUUID->"b77a7590-9bc8-4829-8102-ce7119d4896b"] +Cell[13777, 440, 1588, 50, 215, "Input",ExpressionUUID->"327d6fe0-2042-4a7f-b513-35484052d306"], +Cell[15368, 492, 261, 4, 41, "Output",ExpressionUUID->"173fab2b-5c83-4d67-b29f-c90cd6c07175"] }, Open ]], Cell[CellGroupData[{ -Cell[15413, 535, 135, 3, 66, "Input",ExpressionUUID->"314507d5-d2a6-4437-b833-cc091fec076c"], -Cell[15551, 540, 234, 5, 75, "Output",ExpressionUUID->"99de46d3-6181-4398-bc8b-1fc407b43790"] +Cell[15666, 501, 131, 2, 36, "Input",ExpressionUUID->"314507d5-d2a6-4437-b833-cc091fec076c"], +Cell[15800, 505, 252, 4, 41, "Output",ExpressionUUID->"733c96be-68e9-4983-b896-cb123cab85e6"] }, Open ]], Cell[CellGroupData[{ -Cell[15822, 550, 137, 3, 66, "Input",ExpressionUUID->"25f8b60e-22fa-40de-a243-e04ff8d8f1f2"], -Cell[15962, 555, 232, 5, 75, "Output",ExpressionUUID->"270143e0-b48e-4af5-87df-8fbbc7b2b850"] +Cell[16089, 514, 133, 2, 36, "Input",ExpressionUUID->"25f8b60e-22fa-40de-a243-e04ff8d8f1f2"], +Cell[16225, 518, 252, 4, 41, "Output",ExpressionUUID->"cedac3e8-6702-4d33-b4e3-2226ed7cab35"] }, Open ]], Cell[CellGroupData[{ -Cell[16231, 565, 138, 3, 66, "Input",ExpressionUUID->"aff68d39-bc98-4cd0-9dae-ed2e14ca7d7e"], -Cell[16372, 570, 240, 5, 75, "Output",ExpressionUUID->"b6186fcd-533f-4010-a90c-33d87bd24f86"] +Cell[16514, 527, 134, 2, 36, "Input",ExpressionUUID->"aff68d39-bc98-4cd0-9dae-ed2e14ca7d7e"], +Cell[16651, 531, 258, 4, 41, "Output",ExpressionUUID->"232c7bda-e978-4267-b2ee-04130810f1ee"] }, Open ]], Cell[CellGroupData[{ -Cell[16649, 580, 223, 5, 66, "Input",ExpressionUUID->"cb5aa02e-499e-4c4d-ab29-10796a7bea54"], -Cell[16875, 587, 247, 6, 75, "Output",ExpressionUUID->"bd96c79f-a70d-4ab2-8f41-31729e1b35f7"] +Cell[16946, 540, 219, 4, 36, "Input",ExpressionUUID->"cb5aa02e-499e-4c4d-ab29-10796a7bea54"], +Cell[17168, 546, 265, 5, 41, "Output",ExpressionUUID->"5a08a78e-1a13-4ca3-81ab-c1e1509b9b18"] }, Open ]], Cell[CellGroupData[{ -Cell[17159, 598, 138, 3, 66, "Input",ExpressionUUID->"0c85b4d0-4691-427b-9705-930c99976335"], -Cell[17300, 603, 236, 5, 75, "Output",ExpressionUUID->"ab9adafe-4a0f-4754-8f9b-76604838f892"] +Cell[17470, 556, 134, 2, 36, "Input",ExpressionUUID->"0c85b4d0-4691-427b-9705-930c99976335"], +Cell[17607, 560, 254, 4, 41, "Output",ExpressionUUID->"ead4041c-8272-4def-beaa-7a8c3517b510"] }, Open ]], Cell[CellGroupData[{ -Cell[17573, 613, 328, 6, 66, "Input",ExpressionUUID->"58c6c026-bc38-4c2b-aaea-e3e90411b079"], -Cell[17904, 621, 232, 5, 75, "Output",ExpressionUUID->"88e37657-a72e-4885-8940-b0180f58fcd4"] +Cell[17898, 569, 324, 5, 36, "Input",ExpressionUUID->"58c6c026-bc38-4c2b-aaea-e3e90411b079"], +Cell[18225, 576, 250, 4, 41, "Output",ExpressionUUID->"f191ec65-5c11-4034-92f1-9b16e9328370"] }, Open ]], Cell[CellGroupData[{ -Cell[18173, 631, 301, 6, 66, "Input",ExpressionUUID->"25541307-7099-458f-9c32-435fe838297c"], -Cell[18477, 639, 235, 5, 75, "Output",ExpressionUUID->"e4335573-b33b-45a3-9981-92940083a78d"] +Cell[18512, 585, 297, 5, 36, "Input",ExpressionUUID->"25541307-7099-458f-9c32-435fe838297c"], +Cell[18812, 592, 253, 4, 41, "Output",ExpressionUUID->"76619ead-afc5-4005-ba43-9b3bc6c73d29"] }, Open ]], Cell[CellGroupData[{ -Cell[18749, 649, 223, 5, 66, "Input",ExpressionUUID->"ae20d118-c0a4-4ad6-886e-c96a21ab626f"], -Cell[18975, 656, 229, 5, 75, "Output",ExpressionUUID->"94c57544-e787-4c1d-8a89-9f05d9604f59"] +Cell[19102, 601, 219, 4, 36, "Input",ExpressionUUID->"ae20d118-c0a4-4ad6-886e-c96a21ab626f"], +Cell[19324, 607, 247, 4, 41, "Output",ExpressionUUID->"597db28a-40f6-4b25-8a4a-e391cc8db526"] }, Open ]], Cell[CellGroupData[{ -Cell[19241, 666, 354, 11, 96, "Input",ExpressionUUID->"57bf3841-c639-45eb-baf9-b13e37b4122b"], -Cell[19598, 679, 251, 5, 75, "Output",ExpressionUUID->"8574d8a7-6ce2-4391-b392-62fa12161133"] +Cell[19608, 616, 350, 10, 54, "Input",ExpressionUUID->"57bf3841-c639-45eb-baf9-b13e37b4122b"], +Cell[19961, 628, 269, 4, 41, "Output",ExpressionUUID->"f35ae8fc-4531-4c3e-bbd0-c0c98b2f4aae"] }, Open ]], Cell[CellGroupData[{ -Cell[19886, 689, 354, 11, 96, "Input",ExpressionUUID->"30fff870-f317-4025-8264-4cdb939fd843"], -Cell[20243, 702, 267, 6, 75, "Output",ExpressionUUID->"cb91352a-9065-4b05-b5e5-1749af1e1015"] +Cell[20267, 637, 350, 10, 54, "Input",ExpressionUUID->"30fff870-f317-4025-8264-4cdb939fd843"], +Cell[20620, 649, 285, 5, 41, "Output",ExpressionUUID->"0d0c170e-f348-47e3-bf82-ff974194e489"] }, Open ]], Cell[CellGroupData[{ -Cell[20547, 713, 998, 27, 184, "Input",ExpressionUUID->"46a59d8f-21ac-43ba-a641-4517ca87cff2"], -Cell[21548, 742, 246, 5, 75, "Output",ExpressionUUID->"a4c101cb-773a-4203-9e14-e20653f3a193"] +Cell[20942, 659, 994, 26, 105, "Input",ExpressionUUID->"46a59d8f-21ac-43ba-a641-4517ca87cff2"], +Cell[21939, 687, 266, 4, 41, "Output",ExpressionUUID->"566bfad2-de75-41a6-8467-50d8e74ee858"] }, Open ]], Cell[CellGroupData[{ -Cell[21831, 752, 203, 4, 66, "Input",ExpressionUUID->"6b0b387e-0521-4284-a2c0-3597cf0dd3a1"], -Cell[22037, 758, 234, 5, 75, "Output",ExpressionUUID->"688289aa-b349-419f-938d-a15706100e04"] +Cell[22242, 696, 199, 3, 36, "Input",ExpressionUUID->"6b0b387e-0521-4284-a2c0-3597cf0dd3a1"], +Cell[22444, 701, 252, 4, 41, "Output",ExpressionUUID->"584e9c2a-14f1-4de6-a8fa-02c7ce424388"] }, Open ]], Cell[CellGroupData[{ -Cell[22308, 768, 333, 6, 66, "Input",ExpressionUUID->"d446da3f-5c5f-4536-af81-2864acb72208"], -Cell[22644, 776, 211, 4, 75, "Output",ExpressionUUID->"e4021a63-4185-48ff-b893-c16efddab6ee"] +Cell[22733, 710, 329, 5, 36, "Input",ExpressionUUID->"d446da3f-5c5f-4536-af81-2864acb72208"], +Cell[23065, 717, 235, 4, 41, "Output",ExpressionUUID->"5eae9815-a576-4df0-9181-be9a46d7446d"] }, Open ]], -Cell[22870, 783, 177, 3, 66, "Input",ExpressionUUID->"15fce225-822a-49d5-bb1c-220491babb97"], +Cell[23315, 724, 173, 2, 36, "Input",ExpressionUUID->"15fce225-822a-49d5-bb1c-220491babb97"], Cell[CellGroupData[{ -Cell[23072, 790, 333, 6, 66, "Input",ExpressionUUID->"53f7964f-2add-458d-82e8-10e6e3219080"], -Cell[23408, 798, 211, 4, 75, "Output",ExpressionUUID->"0c4f08ab-8ba2-4f7a-ba68-7c10060ba825"] +Cell[23513, 730, 329, 5, 36, "Input",ExpressionUUID->"53f7964f-2add-458d-82e8-10e6e3219080"], +Cell[23845, 737, 233, 4, 41, "Output",ExpressionUUID->"cd09df23-62af-416b-9705-b51b4d5ed9e9"] }, Open ]], -Cell[23634, 805, 177, 3, 66, "Input",ExpressionUUID->"79dfe7be-8f52-4378-a5b6-5788a53f6fb0"], +Cell[24093, 744, 173, 2, 36, "Input",ExpressionUUID->"79dfe7be-8f52-4378-a5b6-5788a53f6fb0"], Cell[CellGroupData[{ -Cell[23836, 812, 330, 6, 66, "Input",ExpressionUUID->"6c8cbca9-d770-435c-9caa-abdaf2f4d9a0"], -Cell[24169, 820, 205, 4, 75, "Output",ExpressionUUID->"b758653f-b57f-4dcc-92ff-90ca42590a5a"] +Cell[24291, 750, 326, 5, 36, "Input",ExpressionUUID->"6c8cbca9-d770-435c-9caa-abdaf2f4d9a0"], +Cell[24620, 757, 227, 4, 41, "Output",ExpressionUUID->"d11f6ca5-8bae-4ae6-86d9-1c9578d20d98"] }, Open ]], -Cell[24389, 827, 177, 3, 66, "Input",ExpressionUUID->"274205e6-aaa2-403e-bdf1-60494d2ab4da"], +Cell[24862, 764, 173, 2, 36, "Input",ExpressionUUID->"274205e6-aaa2-403e-bdf1-60494d2ab4da"], Cell[CellGroupData[{ -Cell[24591, 834, 356, 6, 66, "Input",ExpressionUUID->"025d3e12-54f5-4cfe-b073-8ae168db5c5e"], -Cell[24950, 842, 209, 4, 75, "Output",ExpressionUUID->"5498ada6-792a-4875-ba64-33349e4b862b"] +Cell[25060, 770, 352, 5, 36, "Input",ExpressionUUID->"025d3e12-54f5-4cfe-b073-8ae168db5c5e"], +Cell[25415, 777, 231, 4, 41, "Output",ExpressionUUID->"eb066abc-23f6-4a59-b649-2354999b8454"] }, Open ]], -Cell[25174, 849, 175, 3, 66, "Input",ExpressionUUID->"84577125-699a-4c8b-b50c-b8f719e35e31"], +Cell[25661, 784, 171, 2, 36, "Input",ExpressionUUID->"84577125-699a-4c8b-b50c-b8f719e35e31"], Cell[CellGroupData[{ -Cell[25374, 856, 303, 6, 66, "Input",ExpressionUUID->"dfaf18dc-5eb0-4849-8f51-f8b1984b4725"], -Cell[25680, 864, 211, 4, 75, "Output",ExpressionUUID->"1c05b573-1b1f-424d-a902-c72897518f41"] +Cell[25857, 790, 299, 5, 36, "Input",ExpressionUUID->"dfaf18dc-5eb0-4849-8f51-f8b1984b4725"], +Cell[26159, 797, 233, 4, 41, "Output",ExpressionUUID->"0b5b4888-bc4d-4d36-96b5-e7312c8b17e1"] }, Open ]], -Cell[25906, 871, 175, 3, 66, "Input",ExpressionUUID->"bb0a71a5-93ab-4ef3-9fdb-62bb661ed34c"], +Cell[26407, 804, 171, 2, 36, "Input",ExpressionUUID->"bb0a71a5-93ab-4ef3-9fdb-62bb661ed34c"], Cell[CellGroupData[{ -Cell[26106, 878, 309, 6, 66, "Input",ExpressionUUID->"7da12e6f-221a-4553-aba7-53c53bdb5de6"], -Cell[26418, 886, 208, 4, 75, "Output",ExpressionUUID->"77f80e55-9d8e-4edb-9dc7-5e2894a18597"] +Cell[26603, 810, 305, 5, 36, "Input",ExpressionUUID->"7da12e6f-221a-4553-aba7-53c53bdb5de6"], +Cell[26911, 817, 232, 4, 41, "Output",ExpressionUUID->"1f13afe2-8530-43b1-a3b9-99445761a370"] }, Open ]], -Cell[26641, 893, 177, 3, 66, "Input",ExpressionUUID->"ebd04750-1d28-4ffa-bdda-7bb457359397"], +Cell[27158, 824, 173, 2, 36, "Input",ExpressionUUID->"ebd04750-1d28-4ffa-bdda-7bb457359397"], Cell[CellGroupData[{ -Cell[26843, 900, 310, 6, 66, "Input",ExpressionUUID->"446f65ef-4350-4911-b9f5-56333a988202"], -Cell[27156, 908, 208, 4, 75, "Output",ExpressionUUID->"2ec788d0-3867-4881-ba68-0b9ed73c996d"] +Cell[27356, 830, 306, 5, 36, "Input",ExpressionUUID->"446f65ef-4350-4911-b9f5-56333a988202"], +Cell[27665, 837, 230, 4, 41, "Output",ExpressionUUID->"25207f98-53f0-4ee6-be34-ac8c93ce5220"] }, Open ]], -Cell[27379, 915, 176, 3, 66, "Input",ExpressionUUID->"dc837306-d20f-440d-8b2b-be9ce105e2b2"], +Cell[27910, 844, 172, 2, 36, "Input",ExpressionUUID->"dc837306-d20f-440d-8b2b-be9ce105e2b2"], Cell[CellGroupData[{ -Cell[27580, 922, 278, 5, 66, "Input",ExpressionUUID->"7f4cb388-759f-4782-bed0-c71df4480d64"], -Cell[27861, 929, 207, 4, 75, "Output",ExpressionUUID->"dc96c3b7-ac9a-4a53-855c-b6feb5f17789"] +Cell[28107, 850, 274, 4, 36, "Input",ExpressionUUID->"7f4cb388-759f-4782-bed0-c71df4480d64"], +Cell[28384, 856, 229, 4, 41, "Output",ExpressionUUID->"1271fdc8-1153-4813-97a3-d8c6ec968382"] }, Open ]], -Cell[28083, 936, 179, 3, 66, "Input",ExpressionUUID->"90a13eb9-542d-4060-bb46-46ccb19635d1"], +Cell[28628, 863, 175, 2, 109, "Input",ExpressionUUID->"90a13eb9-542d-4060-bb46-46ccb19635d1"], Cell[CellGroupData[{ -Cell[28287, 943, 19813, 486, 5405, "Input",ExpressionUUID->"dafedac8-4248-482a-ad46-946d2abe4ec0"], -Cell[48103, 1431, 249, 5, 75, "Output",ExpressionUUID->"47f35287-f666-422e-8fc0-445d51343db0"] +Cell[28828, 869, 19809, 485, 3208, "Input",ExpressionUUID->"dafedac8-4248-482a-ad46-946d2abe4ec0"], +Cell[48640, 1356, 266, 4, 41, "Output",ExpressionUUID->"44ff284b-619c-47ea-b661-a35fe815b703"] }, Open ]], Cell[CellGroupData[{ -Cell[48389, 1441, 19752, 490, 5343, "Input",ExpressionUUID->"1863c650-cefb-45cb-b1ad-86aa31150214"], -Cell[68144, 1933, 247, 5, 75, "Output",ExpressionUUID->"5d68a0a9-bdcf-4cab-8162-ea55408eedfd"] +Cell[48943, 1365, 19748, 489, 3138, "Input",ExpressionUUID->"1863c650-cefb-45cb-b1ad-86aa31150214"], +Cell[68694, 1856, 265, 4, 41, "Output",ExpressionUUID->"062794d3-5d13-4bd3-9c7a-2da2a33cf3c3"] }, Open ]], Cell[CellGroupData[{ -Cell[68428, 1943, 19752, 484, 5342, "Input",ExpressionUUID->"813e74eb-a8e6-499b-b6ac-1fba16da3421"], -Cell[88183, 2429, 265, 6, 75, "Output",ExpressionUUID->"d7c0df12-97d5-4d5c-bfcc-460298e33414"] +Cell[68996, 1865, 19748, 483, 3198, "Input",ExpressionUUID->"813e74eb-a8e6-499b-b6ac-1fba16da3421"], +Cell[88747, 2350, 283, 5, 41, "Output",ExpressionUUID->"3fa6e08b-0923-4a21-8260-43e19c67821c"] }, Open ]], Cell[CellGroupData[{ -Cell[88485, 2440, 22538, 554, 6074, "Input",ExpressionUUID->"aa2232f7-a2ef-4ffb-8632-d6506ccedb96"], -Cell[111026, 2996, 267, 6, 75, "Output",ExpressionUUID->"fa02a3d3-4cb5-4a20-9e7e-20d95ed15cbb"] +Cell[89067, 2360, 22534, 553, 3677, "Input",ExpressionUUID->"aa2232f7-a2ef-4ffb-8632-d6506ccedb96"], +Cell[111604, 2915, 285, 5, 41, "Output",ExpressionUUID->"68cadf69-68d2-440a-a443-c368986b72b4"] }, Open ]], Cell[CellGroupData[{ -Cell[111330, 3007, 22539, 554, 6074, "Input",ExpressionUUID->"b445d538-3ced-47d4-9054-12263665419d"], -Cell[133872, 3563, 266, 6, 75, "Output",ExpressionUUID->"cc777c3f-81d2-4712-a323-9eb655d9f14e"] +Cell[111926, 2925, 22535, 553, 3642, "Input",ExpressionUUID->"b445d538-3ced-47d4-9054-12263665419d"], +Cell[134464, 3480, 284, 5, 41, "Output",ExpressionUUID->"5a9d972f-9c84-4257-a62e-327b81d513c4"] }, Open ]], Cell[CellGroupData[{ -Cell[134175, 3574, 25495, 627, 6806, "Input",ExpressionUUID->"0a351458-3ad5-4444-8e6a-262b7c9da82d"], -Cell[159673, 4203, 265, 6, 75, "Output",ExpressionUUID->"c0681327-5d17-47b6-8427-8eb188af49b6"] +Cell[134785, 3490, 25491, 626, 4121, "Input",ExpressionUUID->"0a351458-3ad5-4444-8e6a-262b7c9da82d"], +Cell[160279, 4118, 283, 5, 41, "Output",ExpressionUUID->"9df9dd55-797a-4f6c-93b7-e247ebd8671b"] }, Open ]], Cell[CellGroupData[{ -Cell[159975, 4214, 134, 3, 66, "Input",ExpressionUUID->"28280def-0ed0-428b-bd2e-eb71c3096b78"], -Cell[160112, 4219, 229, 5, 75, "Output",ExpressionUUID->"ecca8e1e-b59d-418b-9b9d-77de4c37d56c"] +Cell[160599, 4128, 130, 2, 36, "Input",ExpressionUUID->"28280def-0ed0-428b-bd2e-eb71c3096b78"], +Cell[160732, 4132, 247, 4, 41, "Output",ExpressionUUID->"aff86364-40c2-4aa2-bd0d-00aff079111d"] }, Open ]], Cell[CellGroupData[{ -Cell[160378, 4229, 134, 3, 66, "Input",ExpressionUUID->"2192f8a5-bda1-45e2-8337-5a866cee4124"], -Cell[160515, 4234, 232, 5, 75, "Output",ExpressionUUID->"4a9b2662-4475-446f-a0d0-9222d876e97b"] +Cell[161016, 4141, 130, 2, 36, "Input",ExpressionUUID->"2192f8a5-bda1-45e2-8337-5a866cee4124"], +Cell[161149, 4145, 250, 4, 41, "Output",ExpressionUUID->"dbf155a4-81fd-4bc4-9397-63b8874c83fa"] }, Open ]], Cell[CellGroupData[{ -Cell[160784, 4244, 1148, 40, 246, "Input",ExpressionUUID->"570a2a35-a64c-4ecc-afcf-df3397c5eb59"], -Cell[161935, 4286, 246, 5, 75, "Output",ExpressionUUID->"48f2225d-15b9-4b56-a3b6-6b1dd876f8bb"] +Cell[161436, 4154, 1144, 39, 144, "Input",ExpressionUUID->"570a2a35-a64c-4ecc-afcf-df3397c5eb59"], +Cell[162583, 4195, 264, 4, 41, "Output",ExpressionUUID->"3ae53aec-6ec8-47f7-a58f-f81933aaa1d1"] }, Open ]], Cell[CellGroupData[{ -Cell[162218, 4296, 1045, 36, 246, "Input",ExpressionUUID->"6269b77a-f9c5-4551-8880-f900cee8f0ad"], -Cell[163266, 4334, 262, 6, 75, "Output",ExpressionUUID->"9b661eb1-566e-4a67-af49-1f687f39317e"] +Cell[162884, 4204, 1041, 35, 144, "Input",ExpressionUUID->"6269b77a-f9c5-4551-8880-f900cee8f0ad"], +Cell[163928, 4241, 280, 5, 41, "Output",ExpressionUUID->"21bef667-c22d-415e-88b7-e5ac866ba267"] }, Open ]], Cell[CellGroupData[{ -Cell[163565, 4345, 1148, 40, 246, "Input",ExpressionUUID->"318c7941-d810-4a37-9f8c-62909779e04c"], -Cell[164716, 4387, 250, 5, 75, "Output",ExpressionUUID->"d4150e7f-5810-4e6c-a26b-f8e448b8b6b6"] +Cell[164245, 4251, 1144, 39, 144, "Input",ExpressionUUID->"318c7941-d810-4a37-9f8c-62909779e04c"], +Cell[165392, 4292, 268, 4, 41, "Output",ExpressionUUID->"37e359b0-0c7b-482f-af48-ba41f49ddea7"] }, Open ]], Cell[CellGroupData[{ -Cell[165003, 4397, 112, 2, 66, "Input",ExpressionUUID->"f253df11-798a-49ba-86b2-1bc054712467"], -Cell[165118, 4401, 248, 5, 75, "Output",ExpressionUUID->"93839a89-9423-4a36-b8f0-d5223d7222ff"] +Cell[165697, 4301, 108, 1, 36, "Input",ExpressionUUID->"f253df11-798a-49ba-86b2-1bc054712467"], +Cell[165808, 4304, 266, 4, 41, "Output",ExpressionUUID->"ac545e02-57cb-4c65-babf-40a5f3fb6e4d"] }, Open ]], Cell[CellGroupData[{ -Cell[165403, 4411, 112, 2, 66, "Input",ExpressionUUID->"effc6f6d-3084-49ce-9097-f05efd86e064"], -Cell[165518, 4415, 266, 6, 75, "Output",ExpressionUUID->"8f320bb1-d283-4e61-a6b0-16c26d7be527"] +Cell[166111, 4313, 108, 1, 36, "Input",ExpressionUUID->"effc6f6d-3084-49ce-9097-f05efd86e064"], +Cell[166222, 4316, 284, 5, 41, "Output",ExpressionUUID->"19de741b-62a5-4fad-b5f1-59e9352b89af"] }, Open ]], Cell[CellGroupData[{ -Cell[165821, 4426, 112, 2, 66, "Input",ExpressionUUID->"1a06bccf-3afe-4c66-ad9f-32e21eb4fc0e"], -Cell[165936, 4430, 262, 6, 75, "Output",ExpressionUUID->"9735e212-94e9-4f13-bf9e-2f19d6900d37"] +Cell[166543, 4326, 108, 1, 36, "Input",ExpressionUUID->"1a06bccf-3afe-4c66-ad9f-32e21eb4fc0e"], +Cell[166654, 4329, 280, 5, 41, "Output",ExpressionUUID->"c524a077-11fd-4328-935f-f5a70c88bc56"] }, Open ]], Cell[CellGroupData[{ -Cell[166235, 4441, 112, 2, 66, "Input",ExpressionUUID->"e299288a-6693-4f0f-9b41-89bd36da6319"], -Cell[166350, 4445, 248, 5, 75, "Output",ExpressionUUID->"bed4c3e0-670d-4fa0-9839-248799c78555"] +Cell[166971, 4339, 108, 1, 36, "Input",ExpressionUUID->"e299288a-6693-4f0f-9b41-89bd36da6319"], +Cell[167082, 4342, 266, 4, 41, "Output",ExpressionUUID->"81adaebb-c15b-4724-ba84-058814ae40af"] }, Open ]], Cell[CellGroupData[{ -Cell[166635, 4455, 111, 2, 66, "Input",ExpressionUUID->"37ea46c7-e9c6-4912-a38f-f126189cbde2"], -Cell[166749, 4459, 225, 4, 75, "Output",ExpressionUUID->"2b17f957-1f57-4265-9537-ced00f11fc9e"] +Cell[167385, 4351, 107, 1, 36, "Input",ExpressionUUID->"37ea46c7-e9c6-4912-a38f-f126189cbde2"], +Cell[167495, 4354, 247, 4, 41, "Output",ExpressionUUID->"d5458961-1b42-4009-b758-11147e387279"] }, Open ]], Cell[CellGroupData[{ -Cell[167011, 4468, 111, 2, 66, "Input",ExpressionUUID->"5a2fe610-3676-4d2c-a84f-b81fa3a2dde3"], -Cell[167125, 4472, 221, 4, 75, "Output",ExpressionUUID->"dd3c2ec9-8460-4b88-9888-edd4ca4aed6f"] +Cell[167779, 4363, 107, 1, 36, "Input",ExpressionUUID->"5a2fe610-3676-4d2c-a84f-b81fa3a2dde3"], +Cell[167889, 4366, 242, 4, 41, "Output",ExpressionUUID->"33cf3347-26b7-4237-9060-1960d0865e93"] }, Open ]], Cell[CellGroupData[{ -Cell[167383, 4481, 501, 17, 125, "Input",ExpressionUUID->"f0f9eabe-0ffc-4c21-b7ff-8f840e316b78"], -Cell[167887, 4500, 238, 5, 75, "Output",ExpressionUUID->"f6c3b47b-429e-4866-b56c-04f0923ae4be"] +Cell[168168, 4375, 497, 16, 71, "Input",ExpressionUUID->"f0f9eabe-0ffc-4c21-b7ff-8f840e316b78"], +Cell[168668, 4393, 260, 5, 41, "Output",ExpressionUUID->"aafb7981-e9a2-4eb1-9b37-1d7e8ee76318"] }, Open ]], Cell[CellGroupData[{ -Cell[168162, 4510, 501, 17, 125, "Input",ExpressionUUID->"1e7acc64-22e8-46ca-a73b-29fdc9f5a0c3"], -Cell[168666, 4529, 238, 5, 75, "Output",ExpressionUUID->"d00a88a5-13d8-4c7d-ab11-5a588c2477f0"] +Cell[168965, 4403, 497, 16, 71, "Input",ExpressionUUID->"1e7acc64-22e8-46ca-a73b-29fdc9f5a0c3"], +Cell[169465, 4421, 262, 5, 41, "Output",ExpressionUUID->"baf40861-41d8-4fb3-8a55-7d6d042db3ad"] }, Open ]], Cell[CellGroupData[{ -Cell[168941, 4539, 1792, 61, 420, "Input",ExpressionUUID->"92322cf4-6839-45a4-bf06-bc1d3d155b1f"], -Cell[170736, 4602, 219, 4, 75, "Output",ExpressionUUID->"19b5b8c1-6db6-4d0e-aa21-85638ef5e632"] +Cell[169764, 4431, 1788, 60, 340, "Input",ExpressionUUID->"92322cf4-6839-45a4-bf06-bc1d3d155b1f"], +Cell[171555, 4493, 243, 4, 41, "Output",ExpressionUUID->"23de7bdc-e82f-4638-a32b-9bce4d490517"] }, Open ]], Cell[CellGroupData[{ -Cell[170992, 4611, 1105, 37, 299, "Input",ExpressionUUID->"3a820df7-eebe-479a-b2ed-5668de066fae"], -Cell[172100, 4650, 238, 5, 75, "Output",ExpressionUUID->"4f432f74-584c-45b4-b23e-67e7e058bbd4"] +Cell[171835, 4502, 1101, 36, 174, "Input",ExpressionUUID->"3a820df7-eebe-479a-b2ed-5668de066fae"], +Cell[172939, 4540, 260, 5, 41, "Output",ExpressionUUID->"f20b1663-34fb-49dd-ae05-bc06420c9f78"] }, Open ]], Cell[CellGroupData[{ -Cell[172375, 4660, 1822, 62, 420, "Input",ExpressionUUID->"43df8d62-a6fc-49dc-aa7b-728eb12230db"], -Cell[174200, 4724, 217, 4, 75, "Output",ExpressionUUID->"2398950a-3aa0-40c8-98be-3c892395f30a"] +Cell[173236, 4550, 1818, 61, 340, "Input",ExpressionUUID->"43df8d62-a6fc-49dc-aa7b-728eb12230db"], +Cell[175057, 4613, 239, 4, 41, "Output",ExpressionUUID->"c9414650-cc77-4b57-88de-feb77fec301f"] }, Open ]], Cell[CellGroupData[{ -Cell[174454, 4733, 1635, 54, 368, "Input",ExpressionUUID->"db350966-ce8d-4c4f-828a-14725e1e62f2"], -Cell[176092, 4789, 222, 4, 75, "Output",ExpressionUUID->"daf1f923-5e23-4681-9ef2-c25e5e8da2f9"] +Cell[175333, 4622, 1631, 53, 208, "Input",ExpressionUUID->"db350966-ce8d-4c4f-828a-14725e1e62f2"], +Cell[176967, 4677, 246, 4, 41, "Output",ExpressionUUID->"c3ecc687-57d5-4bbd-8274-77df166e937f"] }, Open ]], Cell[CellGroupData[{ -Cell[176351, 4798, 1635, 54, 208, "Input",ExpressionUUID->"4d0eefa6-dde1-470b-bc55-058a41501f61"], -Cell[177989, 4854, 219, 4, 41, "Output",ExpressionUUID->"b78a182d-3e36-40ae-83db-4d9957242865"] +Cell[177250, 4686, 1631, 53, 208, "Input",ExpressionUUID->"4d0eefa6-dde1-470b-bc55-058a41501f61"], +Cell[178884, 4741, 241, 4, 41, "Output",ExpressionUUID->"dab6d292-fdf3-4884-8bd9-5749843ea450"] }, Open ]], -Cell[178223, 4861, 187, 4, 36, "Input",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], -Cell[178413, 4867, 152, 3, 36, "Input",ExpressionUUID->"7730e455-e5f4-194b-b761-e7a6896afd10"], -Cell[178568, 4872, 182, 3, 36, "Input",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], -Cell[178753, 4877, 154, 3, 36, "Input",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], Cell[CellGroupData[{ -Cell[178932, 4884, 1273, 41, 174, "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], -Cell[180208, 4927, 106, 0, 41, "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] +Cell[179162, 4750, 206, 3, 36, "Input",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], +Cell[179371, 4755, 161, 2, 41, "Output",ExpressionUUID->"24374857-fff2-4332-b7ac-698311f2c4c0"] }, Open ]], +Cell[179547, 4760, 171, 2, 109, "Input",ExpressionUUID->"7730e455-e5f4-194b-b761-e7a6896afd10"], Cell[CellGroupData[{ -Cell[180351, 4932, 910, 31, 128, "Input",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], -Cell[181264, 4965, 106, 0, 41, "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] +Cell[179743, 4766, 203, 3, 36, "Input",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], +Cell[179949, 4771, 163, 2, 41, "Output",ExpressionUUID->"93965099-8d9e-4118-b9bb-e25cbf584b28"] }, Open ]], +Cell[180127, 4776, 173, 2, 109, "Input",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], Cell[CellGroupData[{ -Cell[181407, 4970, 885, 30, 128, "Input",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], -Cell[182295, 5002, 106, 0, 41, "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] +Cell[180325, 4782, 1297, 42, 174, "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], +Cell[181625, 4826, 172, 2, 41, "Output",ExpressionUUID->"26361e35-40cd-495a-a855-827dda255f68"] }, Open ]], Cell[CellGroupData[{ -Cell[182438, 5007, 532, 18, 66, "Input",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], -Cell[182973, 5027, 101, 0, 41, "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] +Cell[181834, 4833, 929, 30, 128, "Input",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], +Cell[182766, 4865, 171, 2, 41, "Output",ExpressionUUID->"e5b3cbb7-86f8-4a7b-b537-e62571473352"] }, Open ]], Cell[CellGroupData[{ -Cell[183111, 5032, 625, 21, 66, "Input",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], -Cell[183739, 5055, 100, 0, 41, "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] +Cell[182974, 4872, 904, 29, 128, "Input",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], +Cell[183881, 4903, 172, 2, 41, "Output",ExpressionUUID->"6ecdc530-c151-4f21-a1a1-2d2b172af8bf"] }, Open ]], Cell[CellGroupData[{ -Cell[183876, 5060, 144, 4, 71, "Input",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], -Cell[184023, 5066, 101, 0, 41, "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +Cell[184090, 4910, 554, 18, 66, "Input",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], +Cell[184647, 4930, 168, 2, 41, "Output",ExpressionUUID->"7aa2740d-fe62-450b-9941-d57e3412cbd0"] }, Open ]], Cell[CellGroupData[{ -Cell[184161, 5071, 144, 4, 69, "Input",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], -Cell[184308, 5077, 100, 0, 41, "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +Cell[184852, 4937, 647, 21, 66, "Input",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], +Cell[185502, 4960, 166, 2, 41, "Output",ExpressionUUID->"85c5a10d-c068-471e-a826-43fbb66c63ba"] }, Open ]], Cell[CellGroupData[{ -Cell[184445, 5082, 155, 4, 55, "Input",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], -Cell[184603, 5088, 101, 0, 41, "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +Cell[185705, 4967, 166, 4, 71, "Input",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], +Cell[185874, 4973, 165, 2, 41, "Output",ExpressionUUID->"f99ea685-08d6-4ce4-b7d4-07a13eea657c"] }, Open ]], Cell[CellGroupData[{ -Cell[184741, 5093, 155, 4, 55, "Input",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], -Cell[184899, 5099, 101, 0, 41, "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +Cell[186076, 4980, 166, 4, 69, "Input",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], +Cell[186245, 4986, 165, 2, 41, "Output",ExpressionUUID->"945b0f91-b07f-4744-9068-862155d72743"] }, Open ]], Cell[CellGroupData[{ -Cell[185037, 5104, 6029, 184, 831, "Input",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], -Cell[191069, 5290, 102, 0, 41, "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +Cell[186447, 4993, 177, 4, 55, "Input",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], +Cell[186627, 4999, 167, 2, 41, "Output",ExpressionUUID->"a650c5a9-ad20-481e-9484-73bd18059b02"] }, Open ]], Cell[CellGroupData[{ -Cell[191208, 5295, 342, 8, 53, "Input",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], -Cell[191553, 5305, 342, 6, 26, "Message",ExpressionUUID->"b04cf5cc-6c74-f842-9fba-c737c46f5a7b"], -Cell[191898, 5313, 100, 0, 41, "Output",ExpressionUUID->"32922499-707a-964c-90f0-b2630d16ee29"] +Cell[186831, 5006, 177, 4, 55, "Input",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], +Cell[187011, 5012, 167, 2, 41, "Output",ExpressionUUID->"dd927755-8317-4379-a63d-d0fa68473855"] }, Open ]], Cell[CellGroupData[{ -Cell[192035, 5318, 6096, 186, 900, "Input",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], -Cell[198134, 5506, 103, 0, 41, "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +Cell[187215, 5019, 6051, 184, 831, "Input",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], +Cell[193269, 5205, 171, 2, 41, "Output",ExpressionUUID->"e2a715a7-8383-401d-8a8a-842cf4c9ac93"] }, Open ]], Cell[CellGroupData[{ -Cell[198274, 5511, 342, 8, 53, "Input",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], -Cell[198619, 5521, 342, 6, 26, "Message",ExpressionUUID->"6f900e99-9e38-fb4c-84fd-e99588ed1cc5"], -Cell[198964, 5529, 100, 0, 41, "Output",ExpressionUUID->"e5a93687-7c76-eb48-a79a-098cbe08792a"] +Cell[193477, 5212, 364, 8, 53, "Input",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], +Cell[193844, 5222, 167, 2, 41, "Output",ExpressionUUID->"dd21475f-267d-447d-95db-fd95cd74f3af"] }, Open ]], Cell[CellGroupData[{ -Cell[199101, 5534, 2637, 87, 435, "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], -Cell[201741, 5623, 101, 0, 41, "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +Cell[194048, 5229, 6118, 186, 900, "Input",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], +Cell[200169, 5417, 170, 2, 41, "Output",ExpressionUUID->"369b4cbd-98f3-4748-80c3-60fc782e2d85"] }, Open ]], Cell[CellGroupData[{ -Cell[201879, 5628, 2577, 84, 435, "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], -Cell[204459, 5714, 102, 0, 41, "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +Cell[200376, 5424, 364, 8, 53, "Input",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], +Cell[200743, 5434, 167, 2, 41, "Output",ExpressionUUID->"57fd72c3-fdb4-478d-ba9b-933fe83856d1"] }, Open ]], Cell[CellGroupData[{ -Cell[204598, 5719, 3686, 117, 575, "Input",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], -Cell[208287, 5838, 102, 0, 41, "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] +Cell[200947, 5441, 2659, 87, 435, "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], +Cell[203609, 5530, 169, 2, 41, "Output",ExpressionUUID->"5a1f87c9-f170-4b37-baed-f4bf5ffbd999"] }, Open ]], -Cell[208404, 5841, 138, 3, 36, "Input",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], Cell[CellGroupData[{ -Cell[208567, 5848, 2054, 59, 276, "Input",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], -Cell[210624, 5909, 342, 6, 26, "Message",ExpressionUUID->"4105bae1-ec8c-fc46-bc8a-9d70c37ec32c"], -Cell[210969, 5917, 342, 6, 26, "Message",ExpressionUUID->"42c1a263-2456-664a-bb33-c5fe841cb412"], -Cell[211314, 5925, 100, 0, 41, "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +Cell[203815, 5537, 2599, 84, 435, "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], +Cell[206417, 5623, 167, 2, 41, "Output",ExpressionUUID->"03bd31dc-8812-4e19-a24e-370e87e04060"] }, Open ]], Cell[CellGroupData[{ -Cell[211451, 5930, 2049, 58, 276, "Input",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], -Cell[213503, 5990, 342, 6, 26, "Message",ExpressionUUID->"be4d7bfb-c18e-564a-93ce-3f42607886e7"], -Cell[213848, 5998, 342, 6, 26, "Message",ExpressionUUID->"b768ca5f-6b93-1f43-97bf-08f74ea2facd"], -Cell[214193, 6006, 100, 0, 41, "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +Cell[206621, 5630, 3708, 117, 575, "Input",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], +Cell[210332, 5749, 169, 2, 41, "Output",ExpressionUUID->"828094b8-3091-4ea8-ac46-0c974349a32e"] }, Open ]], +Cell[210516, 5754, 160, 3, 109, "Input",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], Cell[CellGroupData[{ -Cell[214330, 6011, 1938, 53, 232, "Input",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], -Cell[216271, 6066, 342, 6, 26, "Message",ExpressionUUID->"d3cb6fbc-3803-0541-80d1-8cab47341c44"], -Cell[216616, 6074, 342, 6, 26, "Message",ExpressionUUID->"635ef23c-be29-f947-b49d-c0d2f59f2ba8"], -Cell[216961, 6082, 342, 6, 26, "Message",ExpressionUUID->"d8687e0f-2f42-0543-a749-78a1ff3c9572"], -Cell[217306, 6090, 407, 7, 48, "Message",ExpressionUUID->"b055d243-2255-1f40-80bd-55bc54524667"], -Cell[217716, 6099, 9852, 394, 232, 4231, 300, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], -Cell[227571, 6495, 191, 5, 41, "Output",ExpressionUUID->"e49c1b8d-fabe-b944-a6dd-c578eb57eb6a"] +Cell[210701, 5761, 2073, 58, 276, "Input",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], +Cell[212777, 5821, 633, 14, 73, "Message",ExpressionUUID->"f8f2518c-1214-4068-89c1-b5cb82e78c9b"], +Cell[213413, 5837, 633, 14, 73, "Message",ExpressionUUID->"0a4d7d8d-7b21-4c3f-b976-6c32fe8dd38f"], +Cell[214049, 5853, 633, 14, 73, "Message",ExpressionUUID->"31e114bf-6380-43fc-8ad4-64d024072d56"], +Cell[214685, 5869, 461, 11, 32, "Message",ExpressionUUID->"4d2510b7-f9c3-4257-bf4e-26f4583df9c2"], +Cell[215149, 5882, 166, 2, 41, "Output",ExpressionUUID->"f5d3937a-c2e5-469f-a4ae-871b8ff50ba2"] }, Open ]], Cell[CellGroupData[{ -Cell[227799, 6505, 2094, 60, 311, "Input",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], -Cell[229896, 6567, 342, 6, 26, "Message",ExpressionUUID->"9f5fa53c-8bea-a349-9c29-e4614f56cc98"], -Cell[230241, 6575, 342, 6, 26, "Message",ExpressionUUID->"a2ecd22c-b766-5347-9e03-9d459620be75"], -Cell[230586, 6583, 342, 6, 26, "Message",ExpressionUUID->"45a49c2b-98f0-ca4e-ab79-bb0334e26ffd"], -Cell[230931, 6591, 407, 7, 26, "Message",ExpressionUUID->"258782e2-0da4-1143-8b36-76da0d2ac6df"], -Cell[231341, 6600, 4406, 294, 232, "Graphics",ExpressionUUID->"06204099-db57-8e4e-bcc4-fa1ae37c0063"], -Cell[235750, 6896, 191, 5, 41, "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-04dec8739bf5"] +Cell[215352, 5889, 2070, 58, 276, "Input",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], +Cell[217425, 5949, 633, 14, 73, "Message",ExpressionUUID->"97423408-b64b-41dd-a6ad-afae25b4c716"], +Cell[218061, 5965, 635, 14, 73, "Message",ExpressionUUID->"cc0e8760-267b-42b2-ab89-135cfefd7cf0"], +Cell[218699, 5981, 635, 14, 73, "Message",ExpressionUUID->"395ea973-9d3a-47ce-9667-373f71ae3780"], +Cell[219337, 5997, 463, 11, 32, "Message",ExpressionUUID->"f3970cd8-605f-46b7-afaa-84750ce01d3d"], +Cell[219803, 6010, 167, 2, 41, "Output",ExpressionUUID->"1da4afb0-6665-453b-8728-89a63869be9b"] }, Open ]], -Cell[235956, 6904, 2453, 69, 140, "Input",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], -Cell[238412, 6975, 209, 5, 36, "Input",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], Cell[CellGroupData[{ -Cell[238646, 6984, 215, 7, 61, "Input",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], -Cell[238864, 6993, 100, 0, 41, "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +Cell[220007, 6017, 2049, 54, 232, "Input",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], +Cell[222059, 6073, 20375, 382, 295, "Output",ExpressionUUID->"c3c58630-f2af-484a-98f6-b2777dadd79e"] }, Open ]], Cell[CellGroupData[{ -Cell[239001, 6998, 1814, 53, 116, "Input",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], -Cell[240818, 7053, 342, 6, 26, "Message",ExpressionUUID->"12d513db-13cc-bc48-b9a3-22b17d8aeb9a"], -Cell[241163, 7061, 342, 6, 26, "Message",ExpressionUUID->"05911c33-7605-8b49-a7ba-7fc8c8f30741"], -Cell[241508, 7069, 342, 6, 26, "Message",ExpressionUUID->"2192e048-2875-9f4a-aa0c-9cbbd447dfe1"], -Cell[241853, 7077, 407, 7, 26, "Message",ExpressionUUID->"b6990f5f-359f-464b-ac16-44cdfeae3c8e"], -Cell[242263, 7086, 8187, 365, 232, "Graphics",ExpressionUUID->"899e43aa-c372-6647-a3e4-4952f308ab17"], -Cell[250453, 7453, 191, 5, 41, "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-baecb9a57d9b"] +Cell[242471, 6460, 2113, 59, 311, "Input",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], +Cell[244587, 6521, 504, 12, 71, "Message",ExpressionUUID->"f21c996b-f0c7-48c8-b06f-268648ec8fca"], +Cell[245094, 6535, 512, 12, 71, "Message",ExpressionUUID->"7bc2a564-4aef-4571-bb2e-eda040958e86"], +Cell[245609, 6549, 512, 12, 71, "Message",ExpressionUUID->"7e4ba309-ef31-47bb-ae47-aed2e115f33a"], +Cell[246124, 6563, 461, 11, 32, "Message",ExpressionUUID->"6dc7cb38-e68e-4e68-b16d-604b74c0bb4d"], +Cell[246588, 6576, 25786, 470, 290, "Output",ExpressionUUID->"6bcd88bf-2689-455e-9564-66b5a6605b98"] }, Open ]], Cell[CellGroupData[{ -Cell[250681, 7463, 1590, 47, 86, "Input",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], -Cell[252274, 7512, 342, 6, 26, "Message",ExpressionUUID->"d7dfab56-fefd-0149-8a26-6ee16f94ab37"], -Cell[252619, 7520, 101, 0, 41, "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +Cell[272411, 7051, 2475, 69, 296, "Input",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], +Cell[274889, 7122, 9494, 222, 298, "Output",ExpressionUUID->"0ec5680b-e206-4e23-bcbe-ce9355eb02ab"] }, Open ]], Cell[CellGroupData[{ -Cell[252757, 7525, 2247, 64, 109, "Input",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], -Cell[255007, 7591, 342, 6, 109, "Message",ExpressionUUID->"56921c73-2b67-0e4a-9808-5f61de992c7e"], -Cell[255352, 7599, 342, 6, 109, "Message",ExpressionUUID->"8ae663ad-3729-254b-9ec7-7f5d00ef81af"], -Cell[255697, 7607, 103, 0, 109, "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +Cell[284420, 7349, 228, 4, 36, "Input",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], +Cell[284651, 7355, 32170, 602, 290, "Output",ExpressionUUID->"5dc7d25f-9721-4fad-8351-68baf9c1f3c2"] }, Open ]], Cell[CellGroupData[{ -Cell[255837, 7612, 2219, 64, 109, "Input",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], -Cell[258059, 7678, 342, 6, 109, "Message",ExpressionUUID->"1795c3b9-0182-224c-b986-6414d6712c04"], -Cell[258404, 7686, 342, 6, 109, "Message",ExpressionUUID->"c3b31753-a67f-9b45-b822-068e1df11f68"], -Cell[258749, 7694, 100, 0, 109, "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +Cell[316858, 7962, 234, 6, 61, "Input",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], +Cell[317095, 7970, 168, 2, 41, "Output",ExpressionUUID->"300db5b3-3a56-49c4-b50b-dab0d3f1aeb4"] }, Open ]], Cell[CellGroupData[{ -Cell[258886, 7699, 2221, 64, 109, "Input",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], -Cell[261110, 7765, 342, 6, 109, "Message",ExpressionUUID->"32db1bf6-ba11-cb4a-955a-52e174a44e5f"], -Cell[261455, 7773, 342, 6, 109, "Message",ExpressionUUID->"4e2b22f2-1724-7649-93fc-33cd27bb415e"], -Cell[261800, 7781, 101, 0, 109, "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +Cell[317300, 7977, 1833, 52, 311, "Input",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], +Cell[319136, 8031, 513, 12, 71, "Message",ExpressionUUID->"729c68e9-0559-48eb-8b3c-1aa940c50af5"], +Cell[319652, 8045, 518, 12, 71, "Message",ExpressionUUID->"9fe6e7c9-9375-4b4c-89b6-d743051c4fb2"], +Cell[320173, 8059, 521, 12, 71, "Message",ExpressionUUID->"5027622c-40bb-48fd-a1a3-20237deb52c0"], +Cell[320697, 8073, 464, 11, 32, "Message",ExpressionUUID->"5eda9948-2f93-4f42-8f35-88976a960c58"], +Cell[321164, 8086, 25531, 467, 292, "Output",ExpressionUUID->"0a8daee0-91e1-40fa-995c-d7e073e70f19"] }, Open ]], Cell[CellGroupData[{ -Cell[261938, 7786, 215, 6, 109, "Input",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], -Cell[262156, 7794, 104, 0, 109, "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] +Cell[346732, 8558, 1616, 48, 132, "Input",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], +Cell[348351, 8608, 635, 14, 73, "Message",ExpressionUUID->"086b5671-a86c-407c-b1e2-f5e1d8ff12f0"], +Cell[348989, 8624, 638, 14, 73, "Message",ExpressionUUID->"81dfd9f7-3069-4068-9d2a-7ac35a5fadef"], +Cell[349630, 8640, 636, 14, 73, "Message",ExpressionUUID->"af574dec-0048-4599-a813-593aaf705d8f"], +Cell[350269, 8656, 464, 11, 32, "Message",ExpressionUUID->"c4f623bc-14ad-4cba-90ff-38eba394a816"], +Cell[350736, 8669, 168, 3, 41, "Output",ExpressionUUID->"55d0d1e9-3424-4fc3-8a0a-b412f6971b19"] }, Open ]], -Cell[262275, 7797, 247, 5, 109, "Input",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], Cell[CellGroupData[{ -Cell[262547, 7806, 532, 18, 109, "Input",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], -Cell[263082, 7826, 100, 0, 109, "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +Cell[350941, 8677, 2270, 64, 348, "Input",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], +Cell[353214, 8743, 636, 14, 73, "Message",ExpressionUUID->"6b6e94fe-0a56-48f7-a401-85c4e7fa29f8"], +Cell[353853, 8759, 636, 14, 73, "Message",ExpressionUUID->"6d831c2c-2537-4b0a-9a85-214fc90695fd"], +Cell[354492, 8775, 636, 14, 73, "Message",ExpressionUUID->"65a48c91-ee41-48a2-ab7a-dda7fccbde13"], +Cell[355131, 8791, 466, 11, 32, "Message",ExpressionUUID->"2e30d912-2e23-4435-b0ab-d609cb43b255"], +Cell[355600, 8804, 171, 3, 41, "Output",ExpressionUUID->"1404c29d-edd8-4378-9d48-784894831402"] }, Open ]], Cell[CellGroupData[{ -Cell[263219, 7831, 144, 4, 109, "Input",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], -Cell[263366, 7837, 100, 0, 109, "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +Cell[355808, 8812, 2231, 63, 348, "Input",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], +Cell[358042, 8877, 636, 14, 73, "Message",ExpressionUUID->"9eff8d49-a9ee-451a-a008-4501f497ce73"], +Cell[358681, 8893, 636, 14, 73, "Message",ExpressionUUID->"7c25fcef-d7df-46b0-8bc9-bc9593919421"], +Cell[359320, 8909, 636, 14, 73, "Message",ExpressionUUID->"82d91ed7-651d-499f-9d50-31d11899b1f3"], +Cell[359959, 8925, 466, 11, 32, "Message",ExpressionUUID->"a2f7d384-2585-4a9d-9f3c-833e5d4c3acc"], +Cell[360428, 8938, 168, 3, 41, "Output",ExpressionUUID->"6a1c6612-0351-4de7-8ede-fb73cdf22d16"] }, Open ]], Cell[CellGroupData[{ -Cell[263503, 7842, 155, 4, 109, "Input",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], -Cell[263661, 7848, 100, 0, 109, "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +Cell[360633, 8946, 2233, 63, 348, "Input",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], +Cell[362869, 9011, 636, 14, 73, "Message",ExpressionUUID->"f0c9b778-2fda-444d-8094-c9c7ea0f4eb1"], +Cell[363508, 9027, 636, 14, 73, "Message",ExpressionUUID->"8145c039-a785-472e-acea-a14843b17b3d"], +Cell[364147, 9043, 636, 14, 73, "Message",ExpressionUUID->"d15b924d-a6ac-4114-b4f2-5703189a61fd"], +Cell[364786, 9059, 466, 11, 32, "Message",ExpressionUUID->"88f39e14-2835-4e4d-a1c9-02c6b976d33d"], +Cell[365255, 9072, 170, 3, 41, "Output",ExpressionUUID->"703caf44-01b8-4053-96cf-56ba4b99cd01"] }, Open ]], Cell[CellGroupData[{ -Cell[263798, 7853, 6029, 184, 109, "Input",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], -Cell[269830, 8039, 102, 0, 109, "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +Cell[365462, 9080, 238, 6, 60, "Input",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], +Cell[365703, 9088, 170, 3, 41, "Output",ExpressionUUID->"49617267-6782-45c9-8776-6e76120536b1"] }, Open ]], +Cell[365888, 9094, 273, 6, 109, "Input",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], Cell[CellGroupData[{ -Cell[269969, 8044, 342, 8, 109, "Input",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], -Cell[270314, 8054, 342, 6, 109, "Message",ExpressionUUID->"def6b331-c871-b04d-a16e-4fc00b03d009"], -Cell[270659, 8062, 99, 0, 109, "Output",ExpressionUUID->"332f8da7-4eec-ed47-b124-edf7e2bf43d7"] +Cell[366186, 9104, 558, 19, 66, "Input",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], +Cell[366747, 9125, 170, 3, 41, "Output",ExpressionUUID->"62a1c208-e241-4e87-8890-f22176338355"] }, Open ]], Cell[CellGroupData[{ -Cell[270795, 8067, 6096, 186, 109, "Input",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], -Cell[276894, 8255, 102, 0, 109, "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +Cell[366954, 9133, 170, 5, 71, "Input",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], +Cell[367127, 9140, 173, 3, 41, "Output",ExpressionUUID->"1613537c-52df-4255-b9ea-ae41267f9cfe"] }, Open ]], Cell[CellGroupData[{ -Cell[277033, 8260, 342, 8, 109, "Input",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], -Cell[277378, 8270, 342, 6, 109, "Message",ExpressionUUID->"c6c8676e-4601-144e-b83c-769e22949175"], -Cell[277723, 8278, 100, 0, 109, "Output",ExpressionUUID->"bd9f2dfb-0880-624c-8a61-fa3104084faf"] +Cell[367337, 9148, 181, 5, 55, "Input",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], +Cell[367521, 9155, 172, 3, 41, "Output",ExpressionUUID->"dcc8d8f6-b304-4d4e-a388-d98f9e27ea2e"] }, Open ]], Cell[CellGroupData[{ -Cell[277860, 8283, 2637, 87, 109, "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], -Cell[280500, 8372, 101, 0, 109, "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +Cell[367730, 9163, 6055, 185, 831, "Input",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], +Cell[373788, 9350, 172, 3, 41, "Output",ExpressionUUID->"76505ed6-eaee-4243-9b65-2118050271d7"] }, Open ]], Cell[CellGroupData[{ -Cell[280638, 8377, 2577, 84, 109, "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], -Cell[283218, 8463, 102, 0, 109, "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +Cell[373997, 9358, 368, 9, 53, "Input",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], +Cell[374368, 9369, 172, 3, 41, "Output",ExpressionUUID->"2ff6b63c-c7cb-45bf-a0f8-5e24f9543b72"] }, Open ]], Cell[CellGroupData[{ -Cell[283357, 8468, 3686, 117, 109, "Input",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], -Cell[287046, 8587, 102, 0, 109, "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +Cell[374577, 9377, 6122, 187, 900, "Input",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], +Cell[380702, 9566, 172, 3, 41, "Output",ExpressionUUID->"f1f20e0e-7157-4d35-9968-1acff28336cd"] }, Open ]], Cell[CellGroupData[{ -Cell[287185, 8592, 2052, 59, 109, "Input",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], -Cell[289240, 8653, 342, 6, 109, "Message",ExpressionUUID->"7fd60dea-f794-4744-8801-bfb1a50a0e07"], -Cell[289585, 8661, 342, 6, 109, "Message",ExpressionUUID->"0b8c0718-41d2-4542-8afe-212a15805650"], -Cell[289930, 8669, 101, 0, 109, "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +Cell[380911, 9574, 368, 9, 53, "Input",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], +Cell[381282, 9585, 171, 3, 41, "Output",ExpressionUUID->"c621541f-e345-4925-9f89-54c66fc96bbc"] }, Open ]], Cell[CellGroupData[{ -Cell[290068, 8674, 2054, 59, 109, "Input",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], -Cell[292125, 8735, 342, 6, 109, "Message",ExpressionUUID->"b6f0ccc2-ff83-124b-a341-e143319c7670"], -Cell[292470, 8743, 342, 6, 109, "Message",ExpressionUUID->"d4b50e17-5ee4-384c-b81f-c2a36a80320e"], -Cell[292815, 8751, 100, 0, 109, "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +Cell[381490, 9593, 2663, 88, 435, "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], +Cell[384156, 9683, 173, 3, 41, "Output",ExpressionUUID->"5f305033-d127-4928-9262-c658f7d28f16"] }, Open ]], Cell[CellGroupData[{ -Cell[292952, 8756, 2030, 55, 109, "Input",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], -Cell[294985, 8813, 342, 6, 109, "Message",ExpressionUUID->"7797a546-4085-124a-83da-5f3c472cdc4c"], -Cell[295330, 8821, 342, 6, 109, "Message",ExpressionUUID->"bf75ebeb-fc95-1d45-8487-ceed40ec633c"], -Cell[295675, 8829, 342, 6, 109, "Message",ExpressionUUID->"ca7472ca-7b27-a54a-84a1-e603fa592207"], -Cell[296020, 8837, 407, 7, 109, "Message",ExpressionUUID->"86b3b7d9-f0e9-0a4b-9079-b341ca597ab4"], -Cell[296430, 8846, 9432, 438, 109, "Graphics",ExpressionUUID->"f3c0c3aa-fd64-8e41-bc0a-ae36b33a37ec"], -Cell[305865, 9286, 191, 5, 109, "Output",ExpressionUUID->"23cfff6f-2c67-ce46-9cc6-49e8ffb5e8c8"] +Cell[384366, 9691, 2603, 85, 435, "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], +Cell[386972, 9778, 171, 3, 41, "Output",ExpressionUUID->"ed86eedb-95f3-45d0-aa4b-e0a0b9ce59cc"] }, Open ]], Cell[CellGroupData[{ -Cell[306093, 9296, 2118, 60, 109, "Input",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], -Cell[308214, 9358, 342, 6, 109, "Message",ExpressionUUID->"b9265795-17b8-4e47-bd29-fee31586537e"], -Cell[308559, 9366, 342, 6, 109, "Message",ExpressionUUID->"072fb53f-7116-0f41-a298-6891351a3192"], -Cell[308904, 9374, 342, 6, 109, "Message",ExpressionUUID->"7f686ca7-db7f-0b40-bbd8-c08a80d2c198"], -Cell[309249, 9382, 407, 7, 109, "Message",ExpressionUUID->"3aaeaf29-5b60-ab47-b674-24d071c511f8"], -Cell[309659, 9391, 8546, 368, 109, "Graphics",ExpressionUUID->"fb5ee406-78d5-a849-9c81-3ea500ee883f"], -Cell[318208, 9761, 191, 5, 109, "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-87bc9c72594a"] +Cell[387180, 9786, 3712, 118, 575, "Input",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], +Cell[390895, 9906, 173, 3, 41, "Output",ExpressionUUID->"ca590624-c339-4bf7-b4b4-c05e469429f9"] }, Open ]], -Cell[318414, 9769, 209, 5, 109, "Input",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], Cell[CellGroupData[{ -Cell[318648, 9778, 1590, 47, 109, "Input",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], -Cell[320241, 9827, 342, 6, 109, "Message",ExpressionUUID->"52cff8eb-0c77-c944-a54f-e282b00ce766"], -Cell[320586, 9835, 101, 0, 109, "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +Cell[391105, 9914, 2075, 59, 276, "Input",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], +Cell[393183, 9975, 636, 14, 73, "Message",ExpressionUUID->"81f30a99-c3e7-494d-bd06-e228e89ab2b2"], +Cell[393822, 9991, 635, 14, 73, "Message",ExpressionUUID->"a9901ff1-3a36-4d47-b42f-300bfb0c8693"], +Cell[394460, 10007, 637, 14, 73, "Message",ExpressionUUID->"08af7283-2a0d-40f7-87f1-234c69d1669d"], +Cell[395100, 10023, 464, 11, 32, "Message",ExpressionUUID->"98047d08-6613-4884-ab6b-23b51400307d"], +Cell[395567, 10036, 170, 3, 41, "Output",ExpressionUUID->"d023a61c-214c-458f-8945-247629998d66"] }, Open ]], Cell[CellGroupData[{ -Cell[320724, 9840, 2251, 64, 109, "Input",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], -Cell[322978, 9906, 342, 6, 109, "Message",ExpressionUUID->"cb5a1193-7562-6446-a279-d9f6295d156e"], -Cell[323323, 9914, 342, 6, 109, "Message",ExpressionUUID->"566b0ad4-7f4e-b04f-8294-646ce1913fac"], -Cell[323668, 9922, 101, 0, 109, "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +Cell[395774, 10044, 2077, 59, 276, "Input",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], +Cell[397854, 10105, 638, 14, 73, "Message",ExpressionUUID->"6453a63b-ed9c-4924-a1b4-03aacbe7c80e"], +Cell[398495, 10121, 635, 14, 73, "Message",ExpressionUUID->"f818e115-0173-44b3-9ed7-792b3e34cb6e"], +Cell[399133, 10137, 637, 14, 73, "Message",ExpressionUUID->"f66a6465-741b-471c-bc68-0ee28f953b09"], +Cell[399773, 10153, 464, 11, 32, "Message",ExpressionUUID->"7e80e7c9-e5aa-490f-aec4-b229b771fec5"], +Cell[400240, 10166, 171, 3, 41, "Output",ExpressionUUID->"22a2ce7f-ec15-491e-925b-168a5cab01e1"] }, Open ]], Cell[CellGroupData[{ -Cell[323806, 9927, 2220, 64, 109, "Input",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], -Cell[326029, 9993, 342, 6, 109, "Message",ExpressionUUID->"4cd45900-7eb0-6b4b-830a-a339e8117392"], -Cell[326374, 10001, 342, 6, 109, "Message",ExpressionUUID->"0ddcf174-f6c5-2546-b6d3-f17f46d6e8a3"], -Cell[326719, 10009, 101, 0, 109, "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +Cell[400448, 10174, 2053, 55, 232, "Input",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], +Cell[402504, 10231, 20239, 381, 295, "Output",ExpressionUUID->"f0688d82-3b23-4560-a2e8-4b0596e2572f"] }, Open ]], Cell[CellGroupData[{ -Cell[326857, 10014, 2223, 64, 109, "Input",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], -Cell[329083, 10080, 342, 6, 109, "Message",ExpressionUUID->"f702ec8b-e3a1-2f4f-bfef-4278a2688935"], -Cell[329428, 10088, 342, 6, 109, "Message",ExpressionUUID->"61220452-df6a-154e-8b5c-fecd0ab287a1"], -Cell[329773, 10096, 101, 0, 109, "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +Cell[422780, 10617, 2141, 60, 311, "Input",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], +Cell[424924, 10679, 509, 12, 71, "Message",ExpressionUUID->"79effaff-cf1a-44ad-ba66-d33cfe904b3d"], +Cell[425436, 10693, 514, 12, 71, "Message",ExpressionUUID->"830491f3-5bdb-4016-b725-d205a666e9b3"], +Cell[425953, 10707, 514, 12, 71, "Message",ExpressionUUID->"d762477c-1ebc-4719-b7ab-4333bdaba3a0"], +Cell[426470, 10721, 466, 11, 32, "Message",ExpressionUUID->"2699f5cd-b060-4d03-bc0d-5a6e823b93e4"], +Cell[426939, 10734, 25510, 465, 295, "Output",ExpressionUUID->"0a310f0c-8048-4ae6-9497-b0e2c582cc8d"] }, Open ]], Cell[CellGroupData[{ -Cell[329911, 10101, 215, 6, 109, "Input",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], -Cell[330129, 10109, 102, 0, 109, "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] +Cell[452486, 11204, 232, 5, 36, "Input",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], +Cell[452721, 11211, 31892, 597, 295, "Output",ExpressionUUID->"71653645-3b2d-475a-8a5e-d93f99b87f1c"] }, Open ]], -Cell[330246, 10112, 247, 5, 109, "Input",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], Cell[CellGroupData[{ -Cell[330518, 10121, 532, 18, 109, "Input",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], -Cell[331053, 10141, 101, 0, 109, "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +Cell[484650, 11813, 1616, 48, 132, "Input",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], +Cell[486269, 11863, 636, 14, 73, "Message",ExpressionUUID->"6ae44e15-92f9-40a5-8fce-9812b6af5c97"], +Cell[486908, 11879, 636, 14, 73, "Message",ExpressionUUID->"c78bff4e-199f-425c-b22f-f62ca14e5ccc"], +Cell[487547, 11895, 638, 14, 73, "Message",ExpressionUUID->"010281e2-3725-45e4-bce6-7dedb1cbf937"], +Cell[488188, 11911, 464, 11, 32, "Message",ExpressionUUID->"a3d6b8f2-86d8-4cb5-82d7-25a1a756c827"], +Cell[488655, 11924, 169, 3, 41, "Output",ExpressionUUID->"93059d4b-bbdc-4d7f-ade1-3d4baf3c9e48"] }, Open ]], Cell[CellGroupData[{ -Cell[331191, 10146, 144, 4, 109, "Input",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], -Cell[331338, 10152, 101, 0, 109, "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +Cell[488861, 11932, 2274, 64, 348, "Input",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], +Cell[491138, 11998, 638, 14, 73, "Message",ExpressionUUID->"7ec2560b-a152-4e0a-bb45-9ea130c3300c"], +Cell[491779, 12014, 635, 14, 73, "Message",ExpressionUUID->"38d35421-1d55-4e13-b6fb-533a572a5462"], +Cell[492417, 12030, 637, 14, 73, "Message",ExpressionUUID->"76f61876-0bdc-4f37-a01a-95a02c50e1a1"], +Cell[493057, 12046, 466, 11, 32, "Message",ExpressionUUID->"a535b208-b866-41fe-a5bc-b207844ca704"], +Cell[493526, 12059, 172, 3, 41, "Output",ExpressionUUID->"7ae5b2d2-120d-431f-a42e-af37cf98be94"] }, Open ]], Cell[CellGroupData[{ -Cell[331476, 10157, 155, 4, 109, "Input",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], -Cell[331634, 10163, 100, 0, 109, "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +Cell[493735, 12067, 2232, 63, 348, "Input",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], +Cell[495970, 12132, 636, 14, 73, "Message",ExpressionUUID->"d97f7b95-6d89-4a8d-8afd-d99bf0acafcd"], +Cell[496609, 12148, 635, 14, 73, "Message",ExpressionUUID->"9397b702-450e-485d-8fee-74862fbef705"], +Cell[497247, 12164, 637, 14, 73, "Message",ExpressionUUID->"9efa1f7e-09a4-4c1d-9903-09aec3d6bd47"], +Cell[497887, 12180, 463, 11, 32, "Message",ExpressionUUID->"98816a93-b917-4e2a-9cf1-537b60d86e22"], +Cell[498353, 12193, 170, 3, 41, "Output",ExpressionUUID->"4331193e-4e35-41d9-a5f9-dbd797a1e5f4"] }, Open ]], Cell[CellGroupData[{ -Cell[331771, 10168, 6029, 184, 109, "Input",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], -Cell[337803, 10354, 102, 0, 109, "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +Cell[498560, 12201, 2235, 63, 348, "Input",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], +Cell[500798, 12266, 636, 14, 73, "Message",ExpressionUUID->"ce09a943-eaaa-4928-819a-6169277bf5a5"], +Cell[501437, 12282, 635, 14, 73, "Message",ExpressionUUID->"5057b14b-a418-4504-b8f0-0b78f241fa72"], +Cell[502075, 12298, 637, 14, 73, "Message",ExpressionUUID->"835e353c-1425-4e24-bfff-6419819c28f3"], +Cell[502715, 12314, 464, 11, 32, "Message",ExpressionUUID->"02cb848f-316b-473a-b89c-1ca7190b31e8"], +Cell[503182, 12327, 171, 3, 41, "Output",ExpressionUUID->"1b09fcaf-7df4-4250-a1a9-cf5530798d8b"] }, Open ]], Cell[CellGroupData[{ -Cell[337942, 10359, 342, 8, 109, "Input",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], -Cell[338287, 10369, 342, 6, 109, "Message",ExpressionUUID->"4870a5d4-b6fc-9044-ae55-fcbd2b9d41eb"], -Cell[338632, 10377, 100, 0, 109, "Output",ExpressionUUID->"4263cd25-e2b6-5c4b-8834-28c6ca12b863"] +Cell[503390, 12335, 238, 6, 60, "Input",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], +Cell[503631, 12343, 172, 3, 41, "Output",ExpressionUUID->"f8c06985-f309-4c30-94e8-971b592fc6f9"] }, Open ]], +Cell[503818, 12349, 273, 6, 36, "Input",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], Cell[CellGroupData[{ -Cell[338769, 10382, 6096, 186, 109, "Input",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], -Cell[344868, 10570, 102, 0, 109, "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +Cell[504116, 12359, 558, 19, 66, "Input",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], +Cell[504677, 12380, 172, 3, 41, "Output",ExpressionUUID->"bdd35442-485b-40b3-8b43-a0c740755907"] }, Open ]], Cell[CellGroupData[{ -Cell[345007, 10575, 342, 8, 109, "Input",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], -Cell[345352, 10585, 342, 6, 109, "Message",ExpressionUUID->"d6f4e6b1-3d45-7649-b7dd-944c4a1de3e4"], -Cell[345697, 10593, 99, 0, 109, "Output",ExpressionUUID->"27fdf87b-577e-d74b-99f1-6a0486be19bc"] +Cell[504886, 12388, 170, 5, 71, "Input",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], +Cell[505059, 12395, 171, 3, 41, "Output",ExpressionUUID->"85be2427-9d35-4bf0-b7e7-e04af2ad835b"] }, Open ]], Cell[CellGroupData[{ -Cell[345833, 10598, 2637, 87, 109, "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], -Cell[348473, 10687, 101, 0, 109, "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +Cell[505267, 12403, 181, 5, 55, "Input",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], +Cell[505451, 12410, 172, 3, 41, "Output",ExpressionUUID->"eafe38fc-756c-4d2d-a113-4c6cd80d7d18"] }, Open ]], Cell[CellGroupData[{ -Cell[348611, 10692, 2577, 84, 109, "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], -Cell[351191, 10778, 102, 0, 109, "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +Cell[505660, 12418, 6055, 185, 831, "Input",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], +Cell[511718, 12605, 173, 3, 41, "Output",ExpressionUUID->"700864dd-9cdd-4f26-addb-04bf1eb91375"] }, Open ]], Cell[CellGroupData[{ -Cell[351330, 10783, 3686, 117, 109, "Input",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], -Cell[355019, 10902, 102, 0, 109, "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +Cell[511928, 12613, 368, 9, 53, "Input",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], +Cell[512299, 12624, 171, 3, 41, "Output",ExpressionUUID->"579ae288-51ff-4ee4-a3ae-0b438cb21c09"] }, Open ]], Cell[CellGroupData[{ -Cell[355158, 10907, 2054, 59, 109, "Input",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], -Cell[357215, 10968, 342, 6, 109, "Message",ExpressionUUID->"b82c1933-5313-1d4c-a858-68be8f118333"], -Cell[357560, 10976, 342, 6, 109, "Message",ExpressionUUID->"3b3475f7-7db7-054a-b7f5-20d8f7d491bf"], -Cell[357905, 10984, 100, 0, 109, "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +Cell[512507, 12632, 6122, 187, 900, "Input",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], +Cell[518632, 12821, 172, 3, 41, "Output",ExpressionUUID->"e3858d6b-1864-433f-8ab0-f54bd3c774af"] }, Open ]], Cell[CellGroupData[{ -Cell[358042, 10989, 2054, 59, 109, "Input",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], -Cell[360099, 11050, 342, 6, 109, "Message",ExpressionUUID->"9e0b92f8-7fe2-e84e-89cd-c02c9da3e5b7"], -Cell[360444, 11058, 342, 6, 109, "Message",ExpressionUUID->"56712e4d-1aa7-524a-8254-bcfd8978eea0"], -Cell[360789, 11066, 100, 0, 109, "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +Cell[518841, 12829, 368, 9, 53, "Input",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], +Cell[519212, 12840, 171, 3, 41, "Output",ExpressionUUID->"4157376e-c275-421b-b71d-12688f12d841"] }, Open ]], Cell[CellGroupData[{ -Cell[360926, 11071, 2030, 55, 109, "Input",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], -Cell[362959, 11128, 342, 6, 109, "Message",ExpressionUUID->"9c6ce535-b42f-3c43-a89e-eda48c04121e"], -Cell[363304, 11136, 342, 6, 109, "Message",ExpressionUUID->"e2ce6bda-7d9b-6149-bf5b-dd4c91908e28"], -Cell[363649, 11144, 342, 6, 109, "Message",ExpressionUUID->"2bed6df2-09cb-4d4d-b247-4fe79fd38fd6"], -Cell[363994, 11152, 407, 7, 109, "Message",ExpressionUUID->"64a64e18-e609-d54b-8225-64fa7909a948"], -Cell[364404, 11161, 9432, 438, 109, "Graphics",ExpressionUUID->"7758daab-adf8-2a49-9166-50457409d355"], -Cell[373839, 11601, 191, 5, 109, "Output",ExpressionUUID->"4f7705b8-e954-b341-ab6d-8b4ad9ffca61"] +Cell[519420, 12848, 2663, 88, 435, "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], +Cell[522086, 12938, 171, 3, 41, "Output",ExpressionUUID->"42073da4-fffb-4bc6-8e5c-6bed864d6bc9"] }, Open ]], Cell[CellGroupData[{ -Cell[374067, 11611, 2143, 61, 109, "Input",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], -Cell[376213, 11674, 342, 6, 109, "Message",ExpressionUUID->"2059be4f-bbb2-da49-9e23-3fc4d150d7a8"], -Cell[376558, 11682, 342, 6, 109, "Message",ExpressionUUID->"71d4e039-c2b8-d74d-819a-80d2051e4273"], -Cell[376903, 11690, 342, 6, 109, "Message",ExpressionUUID->"63625e13-15ef-1f45-89dc-998a1b63a626"], -Cell[377248, 11698, 407, 7, 109, "Message",ExpressionUUID->"ff96fc2b-5ddb-2142-a985-58ccc6f07e00"], -Cell[377658, 11707, 8546, 368, 109, "Graphics",ExpressionUUID->"a63f48d3-505f-0a45-b944-e872edd94d6c"], -Cell[386207, 12077, 191, 5, 109, "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-1872f77ea023"] +Cell[522294, 12946, 2603, 85, 435, "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], +Cell[524900, 13033, 173, 3, 41, "Output",ExpressionUUID->"8e3ffeab-d793-4aad-9a52-f753c02d54de"] }, Open ]], -Cell[386413, 12085, 138, 3, 109, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], Cell[CellGroupData[{ -Cell[386576, 12092, 1590, 47, 109, "Input",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], -Cell[388169, 12141, 342, 6, 109, "Message",ExpressionUUID->"2b38d1a8-4a7e-7b4f-8cdd-5298fced63d9"], -Cell[388514, 12149, 101, 0, 109, "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +Cell[525110, 13041, 3712, 118, 575, "Input",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], +Cell[528825, 13161, 175, 3, 41, "Output",ExpressionUUID->"03fa4c42-7d29-4355-903b-3b7f896772c2"] }, Open ]], Cell[CellGroupData[{ -Cell[388652, 12154, 2249, 64, 109, "Input",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], -Cell[390904, 12220, 342, 6, 109, "Message",ExpressionUUID->"905b237c-0e51-ab4b-895d-05994c6f1d5f"], -Cell[391249, 12228, 342, 6, 109, "Message",ExpressionUUID->"7ad8c79e-9570-a44d-b593-07aa87056e21"], -Cell[391594, 12236, 100, 0, 109, "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +Cell[529037, 13169, 2077, 59, 276, "Input",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], +Cell[531117, 13230, 636, 14, 73, "Message",ExpressionUUID->"77ff9643-e2f7-47a7-ac03-57496af86a90"], +Cell[531756, 13246, 637, 14, 73, "Message",ExpressionUUID->"011f0849-fa9d-4898-823c-302ffd0f644b"], +Cell[532396, 13262, 636, 14, 73, "Message",ExpressionUUID->"c7e70de4-6b3b-44a0-929c-dc1459b54fe2"], +Cell[533035, 13278, 464, 11, 32, "Message",ExpressionUUID->"90ba5e21-363e-43b7-800b-5c762974c823"], +Cell[533502, 13291, 171, 3, 41, "Output",ExpressionUUID->"48196a44-799a-4208-806c-13c0f111088a"] }, Open ]], Cell[CellGroupData[{ -Cell[391731, 12241, 2219, 64, 109, "Input",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], -Cell[393953, 12307, 342, 6, 109, "Message",ExpressionUUID->"c516c31a-74b4-f24d-a16a-678221cde87e"], -Cell[394298, 12315, 342, 6, 109, "Message",ExpressionUUID->"5c50b555-9ebe-f94d-801f-34634555f622"], -Cell[394643, 12323, 99, 0, 109, "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +Cell[533710, 13299, 2077, 59, 276, "Input",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], +Cell[535790, 13360, 636, 14, 73, "Message",ExpressionUUID->"05426787-60fe-49ad-8f32-5dda416bcc65"], +Cell[536429, 13376, 637, 14, 73, "Message",ExpressionUUID->"4c9240ee-2cd3-4dcc-bda7-58c07c20c3aa"], +Cell[537069, 13392, 636, 14, 73, "Message",ExpressionUUID->"eb6046f7-5d21-4d44-bb2a-7338912f0667"], +Cell[537708, 13408, 464, 11, 32, "Message",ExpressionUUID->"6aef601f-b792-4886-bb1f-aa55d403e80b"], +Cell[538175, 13421, 172, 3, 41, "Output",ExpressionUUID->"d9ef20a1-f26d-4e0b-9ff1-ab0578c50924"] }, Open ]], Cell[CellGroupData[{ -Cell[394779, 12328, 2221, 64, 109, "Input",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], -Cell[397003, 12394, 342, 6, 109, "Message",ExpressionUUID->"7ca591cf-a5ce-ce41-8101-8edfca50e890"], -Cell[397348, 12402, 342, 6, 109, "Message",ExpressionUUID->"cbafd11a-4be0-b541-81e4-e62191ae7695"], -Cell[397693, 12410, 101, 0, 109, "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +Cell[538384, 13429, 2053, 55, 232, "Input",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], +Cell[540440, 13486, 20029, 377, 302, "Output",ExpressionUUID->"cbc51f33-4fc4-4dd7-b93a-f6b78cea2d13"] }, Open ]], Cell[CellGroupData[{ -Cell[397831, 12415, 215, 6, 109, "Input",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], -Cell[398049, 12423, 102, 0, 109, "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] -}, Open ]] +Cell[560506, 13868, 2165, 61, 311, "Input",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], +Cell[562674, 13931, 509, 12, 71, "Message",ExpressionUUID->"4a2ad318-7027-4698-8829-a45225ae5418"], +Cell[563186, 13945, 513, 12, 71, "Message",ExpressionUUID->"adbf892e-accf-4a98-867e-8fbefafaef17"], +Cell[563702, 13959, 513, 12, 71, "Message",ExpressionUUID->"d59fb613-9c01-41f4-9562-916f385e2ce3"], +Cell[564218, 13973, 466, 11, 32, "Message",ExpressionUUID->"758db889-1dca-4914-bf1a-d3f2863c6f10"], +Cell[564687, 13986, 25060, 459, 290, "Output",ExpressionUUID->"5cdd8350-3d42-42cd-8503-7c1e5fc99c75"] +}, Open ]], +Cell[CellGroupData[{ +Cell[589784, 14450, 164, 4, 36, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], +Cell[589951, 14456, 31442, 591, 290, "Output",ExpressionUUID->"71918089-b871-4791-9a80-3a70e123182a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[621430, 15052, 1616, 48, 132, "Input",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], +Cell[623049, 15102, 636, 14, 73, "Message",ExpressionUUID->"a64c8180-805a-4fab-bf63-6ae3556edfc5"], +Cell[623688, 15118, 636, 14, 73, "Message",ExpressionUUID->"c386f3be-d330-4b25-9522-77682f7cf565"], +Cell[624327, 15134, 639, 14, 73, "Message",ExpressionUUID->"ab3533e2-c69e-4aff-99bf-a4924b48bede"], +Cell[624969, 15150, 466, 11, 32, "Message",ExpressionUUID->"f2044f9b-84fb-4cad-a59b-341fa23a4d62"], +Cell[625438, 15163, 170, 3, 41, "Output",ExpressionUUID->"5df17df9-aff1-4419-9e3f-3574089d1f07"] +}, Open ]], +Cell[CellGroupData[{ +Cell[625645, 15171, 2272, 64, 348, "Input",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], +Cell[627920, 15237, 636, 14, 73, "Message",ExpressionUUID->"225cda36-ddf8-41c9-8ba6-7132fb31df08"], +Cell[628559, 15253, 639, 14, 73, "Message",ExpressionUUID->"d7525506-26b3-487b-a9a9-f24fe631b42f"], +Cell[629201, 15269, 636, 14, 73, "Message",ExpressionUUID->"7593e564-785c-435f-814f-41aed0c49f1e"], +Cell[629840, 15285, 464, 11, 32, "Message",ExpressionUUID->"264bca8c-fefc-492f-9608-ce3e20787fea"], +Cell[630307, 15298, 170, 3, 41, "Output",ExpressionUUID->"545322cf-caf5-47af-bd26-35d7aadb0190"] +}, Open ]], +Cell[CellGroupData[{ +Cell[630514, 15306, 2231, 63, 348, "Input",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], +Cell[632748, 15371, 636, 14, 73, "Message",ExpressionUUID->"8993b003-8224-43d2-b91c-1242caab6b4e"], +Cell[633387, 15387, 639, 14, 73, "Message",ExpressionUUID->"638b120f-8c35-4e74-91f9-84b427ed613d"], +Cell[634029, 15403, 636, 14, 73, "Message",ExpressionUUID->"3965b81b-8b28-4ffe-a3b6-f22ad8e10b8c"], +Cell[634668, 15419, 464, 11, 32, "Message",ExpressionUUID->"a45cd13d-2cd1-4401-a429-df748b3e2be5"], +Cell[635135, 15432, 171, 3, 41, "Output",ExpressionUUID->"0350d1c7-092d-436c-aef0-7bbe4401b3dd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[635343, 15440, 2233, 63, 348, "Input",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], +Cell[637579, 15505, 636, 14, 73, "Message",ExpressionUUID->"5aed0126-9af7-4de7-adb9-28e205b14b0b"], +Cell[638218, 15521, 637, 14, 73, "Message",ExpressionUUID->"e29b69b4-0409-4bad-90bc-866c58e0bc4a"], +Cell[638858, 15537, 636, 14, 73, "Message",ExpressionUUID->"f269e717-0520-4ffe-995d-5e4219a6b5c8"], +Cell[639497, 15553, 466, 11, 32, "Message",ExpressionUUID->"b7348368-f7ad-4078-abb2-e578e06894bf"], +Cell[639966, 15566, 171, 3, 41, "Output",ExpressionUUID->"511ea6bc-cda4-48b8-a580-fa058130fce5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[640174, 15574, 238, 6, 60, "Input",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], +Cell[640415, 15582, 174, 3, 41, "Output",ExpressionUUID->"238a3d06-52ad-42ed-8d10-db0e082014a1"] +}, Open ]], +Cell[640604, 15588, 143, 3, 36, "Input",ExpressionUUID->"495f3385-544d-41a5-b06b-36c85839da2f"] } ] *) diff --git a/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_osc_Qw1.nb b/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_osc_Qw1.nb index ac35cad..6c1b035 100644 --- a/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_osc_Qw1.nb +++ b/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_osc_Qw1.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 576833, 14439] -NotebookOptionsPosition[ 534639, 13768] -NotebookOutlinePosition[ 535080, 13786] -CellTagsIndexPosition[ 535037, 13783] +NotebookDataLength[ 772249, 18297] +NotebookOptionsPosition[ 728025, 17590] +NotebookOutlinePosition[ 728489, 17609] +CellTagsIndexPosition[ 728446, 17606] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -26,15 +26,13 @@ Cell[BoxData[ 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, 3.9920650045886707`*^9, {3.9940821364341908`*^9, 3.994082136546945*^9}, { 3.99408222505837*^9, 3.9940822566678658`*^9}}, - CellLabel-> - "In[371]:=",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], + CellLabel->"In[1]:=",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], Cell[BoxData["1.85`"], "Output", CellChangeTimes->{ 3.991320420900818*^9, 3.9940821397588*^9, {3.9940822104439507`*^9, - 3.994082259420228*^9}}, - CellLabel-> - "Out[371]=",ExpressionUUID->"92f49e10-533c-4895-8227-9d625a4d69aa"] + 3.994082259420228*^9}, 3.9942564090131693`*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"c8caea76-0ab6-4efc-9a1c-88f4d28e5660"] }, Open ]], Cell[CellGroupData[{ @@ -43,15 +41,13 @@ Cell[BoxData[ RowBox[{"A", "=", "240"}]], "Input", CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { 3.99407306326154*^9, 3.994073063917366*^9}}, - CellLabel-> - "In[372]:=",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], + CellLabel->"In[2]:=",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], Cell[BoxData["240"], "Output", CellChangeTimes->{ 3.9913196497381973`*^9, 3.994082139815686*^9, {3.994082210466728*^9, - 3.994082259455925*^9}}, - CellLabel-> - "Out[372]=",ExpressionUUID->"0cc75d92-f172-49f1-af02-d0fe714b7c1a"] + 3.994082259455925*^9}, 3.994256409140317*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"73dd1586-a8cd-4168-bff8-16217aaa79f9"] }, Open ]], Cell[CellGroupData[{ @@ -60,15 +56,13 @@ Cell[BoxData[ RowBox[{"A1", "=", "166"}]], "Input", CellChangeTimes->{ 3.991798961431202*^9, {3.9940730665357656`*^9, 3.994073067306501*^9}}, - CellLabel-> - "In[373]:=",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], + CellLabel->"In[3]:=",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], Cell[BoxData["166"], "Output", CellChangeTimes->{ 3.9913196497578354`*^9, 3.994082139825574*^9, {3.9940822104766827`*^9, - 3.994082259466858*^9}}, - CellLabel-> - "Out[373]=",ExpressionUUID->"0a529fc7-b82a-4b77-826b-ce12e09db9d8"] + 3.994082259466858*^9}, 3.9942564091618643`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"9c8af8d6-8c6b-4973-940b-854dce16469e"] }, Open ]], Cell[CellGroupData[{ @@ -76,15 +70,13 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, - CellLabel-> - "In[374]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], + CellLabel->"In[4]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], Cell[BoxData["0.55`"], "Output", CellChangeTimes->{ 3.991319649777508*^9, 3.994082139835326*^9, {3.994082210487997*^9, - 3.994082259477521*^9}}, - CellLabel-> - "Out[374]=",ExpressionUUID->"a240a871-a81b-4828-b217-62f42d3e6cad"] + 3.994082259477521*^9}, 3.994256409203823*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"2462a33b-4d56-49ab-a9f5-8e13a2600fe4"] }, Open ]], Cell[CellGroupData[{ @@ -96,30 +88,26 @@ Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", - CellLabel-> - "In[375]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], + CellLabel->"In[5]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], Cell[BoxData["0.54425`"], "Output", CellChangeTimes->{ 3.9913196497965145`*^9, 3.994082139845067*^9, {3.994082210498448*^9, - 3.994082259487831*^9}}, - CellLabel-> - "Out[375]=",ExpressionUUID->"ea8958cd-1f07-4fa3-a535-21044c2aeef1"] + 3.994082259487831*^9}, 3.994256409227263*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"027c0c7b-4292-474b-b4a3-2b9bc70c34f3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", - CellLabel-> - "In[376]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], + CellLabel->"In[6]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], Cell[BoxData["0.17`"], "Output", CellChangeTimes->{ 3.9913196498144608`*^9, 3.994082139854616*^9, {3.99408221050937*^9, - 3.994082259497772*^9}}, - CellLabel-> - "Out[376]=",ExpressionUUID->"63e2d5e5-72a0-4e84-a043-72de8f80f600"] + 3.994082259497772*^9}, 3.994256409245275*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"25d57258-9588-47d2-b9a0-e73280456d5f"] }, Open ]], Cell[CellGroupData[{ @@ -130,15 +118,13 @@ Cell[BoxData[ SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}]}]], "Input", CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, - CellLabel-> - "In[377]:=",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], + CellLabel->"In[7]:=",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], Cell[BoxData["6.3752030057102145`"], "Output", CellChangeTimes->{ 3.9913196498225155`*^9, 3.994082139865213*^9, {3.994082210519739*^9, - 3.994082259507691*^9}}, - CellLabel-> - "Out[377]=",ExpressionUUID->"c7baef21-5c80-41c7-b8a2-73b0b22c9000"] + 3.994082259507691*^9}, 3.994256409261739*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"ede5a1f3-0909-4de0-b069-b4a284abfdd5"] }, Open ]], Cell[CellGroupData[{ @@ -150,15 +136,13 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", - CellLabel-> - "In[378]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], + CellLabel->"In[8]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], Cell[BoxData["4.870070286417752`"], "Output", CellChangeTimes->{ 3.9913196498425236`*^9, 3.99408213987599*^9, {3.9940822105302753`*^9, - 3.994082259517621*^9}}, - CellLabel-> - "Out[378]=",ExpressionUUID->"bada540b-f688-4880-b784-78f4bfe25248"] + 3.994082259517621*^9}, 3.994256409278123*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"f8c1485f-21ce-42ff-aa5b-6e5ef4c990c8"] }, Open ]], Cell[CellGroupData[{ @@ -166,14 +150,13 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"b1", "=", "0.9035518425"}]], "Input", CellChangeTimes->{3.991799283179735*^9, 3.994073090925538*^9}, - CellLabel-> - "In[379]:=",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], + CellLabel->"In[9]:=",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], Cell[BoxData["0.9035518425`"], "Output", CellChangeTimes->{ - 3.994082139886828*^9, {3.9940822105402517`*^9, 3.9940822595277653`*^9}}, - CellLabel-> - "Out[379]=",ExpressionUUID->"826c2028-43b6-493e-a1d4-a979bf302a2b"] + 3.994082139886828*^9, {3.9940822105402517`*^9, 3.9940822595277653`*^9}, + 3.9942564092938128`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"256fcf09-32e6-47f2-a0a2-102a924d913a"] }, Open ]], Cell[CellGroupData[{ @@ -181,44 +164,39 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"b2", "=", "0.3863821951"}]], "Input", CellChangeTimes->{3.991799280663351*^9, 3.9940730962719193`*^9}, - CellLabel-> - "In[380]:=",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], + CellLabel->"In[10]:=",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], Cell[BoxData["0.3863821951`"], "Output", CellChangeTimes->{ - 3.994082139897403*^9, {3.994082210550373*^9, 3.994082259537862*^9}}, - CellLabel-> - "Out[380]=",ExpressionUUID->"3dabc3f7-ec02-453a-ae26-458be204b325"] + 3.994082139897403*^9, {3.994082210550373*^9, 3.994082259537862*^9}, + 3.994256409311063*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"5402f704-fbb8-4f51-a5ac-9f9c50ecaffa"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", - CellLabel-> - "In[381]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], + CellLabel->"In[11]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498927155`*^9, 3.994082139910328*^9, {3.994082210560801*^9, - 3.9940822595420103`*^9}}, - CellLabel-> - "Out[381]=",ExpressionUUID->"02204c7c-37a4-44a6-89aa-0b946579fc77"] + 3.9940822595420103`*^9}, 3.994256409328598*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"e42106a8-b2e5-44c0-a844-81008a3ece37"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", - CellLabel-> - "In[382]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], + CellLabel->"In[12]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498996067`*^9, 3.9940821399224367`*^9, {3.994082210571288*^9, - 3.994082259554398*^9}}, - CellLabel-> - "Out[382]=",ExpressionUUID->"d976ecb2-9be0-4097-8078-cc338cac051e"] + 3.994082259554398*^9}, 3.99425640937658*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"23522bff-881b-4fbf-a5a8-c20352058b26"] }, Open ]], Cell[CellGroupData[{ @@ -242,15 +220,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[383]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], + CellLabel->"In[13]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], Cell[BoxData["2.315137197466896`"], "Output", CellChangeTimes->{ 3.9913197863028755`*^9, 3.994082139933848*^9, {3.994082210581699*^9, - 3.9940822595648727`*^9}}, - CellLabel-> - "Out[383]=",ExpressionUUID->"bc5faa54-82a7-408a-93ab-470e75a32ee6"] + 3.9940822595648727`*^9}, 3.994256409394081*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"bced0da3-a422-454d-91d1-5ea06da6ed4d"] }, Open ]], Cell[CellGroupData[{ @@ -274,15 +250,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[384]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], + CellLabel->"In[14]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], Cell[BoxData["1.4220278650887666`"], "Output", CellChangeTimes->{ 3.9913197864610195`*^9, 3.994082139944078*^9, {3.9940822105866547`*^9, - 3.9940822595749483`*^9}}, - CellLabel-> - "Out[384]=",ExpressionUUID->"d0222803-9416-4d88-a6f0-060cd875acf4"] + 3.9940822595749483`*^9}, 3.9942564094115553`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"4210d92c-2408-44ca-b129-87321fe9391e"] }, Open ]], Cell[CellGroupData[{ @@ -337,15 +311,13 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[385]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], + CellLabel->"In[15]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], Cell[BoxData["0.4069661562665162`"], "Output", CellChangeTimes->{ 3.991319786533783*^9, 3.994082139954578*^9, {3.994082210602051*^9, - 3.994082259585372*^9}}, - CellLabel-> - "Out[385]=",ExpressionUUID->"33be40cd-a16d-40d6-9573-ddfebe151544"] + 3.994082259585372*^9}, 3.994256409430449*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"2f2809e5-1f01-44d8-be2a-f5935f701c25"] }, Open ]], Cell[CellGroupData[{ @@ -396,16 +368,14 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[386]:=",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], + CellLabel->"In[16]:=",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], Cell[BoxData[ RowBox[{"-", "0.08563504168524437`"}]], "Output", CellChangeTimes->{ 3.991319786540777*^9, 3.9940821399653873`*^9, {3.994082210613337*^9, - 3.994082259596693*^9}}, - CellLabel-> - "Out[386]=",ExpressionUUID->"b9c7f0dd-0cb1-455c-befa-a752ed88a1d1"] + 3.994082259596693*^9}, 3.994256409448029*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"512d1137-302e-4e51-9861-8406d2ed52c1"] }, Open ]], Cell[CellGroupData[{ @@ -456,16 +426,14 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[387]:=",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], + CellLabel->"In[17]:=",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], Cell[BoxData[ RowBox[{"-", "0.5841673375234483`"}]], "Output", CellChangeTimes->{ 3.9913197865777817`*^9, 3.9940821399780188`*^9, {3.9940822106256943`*^9, - 3.9940822596071453`*^9}}, - CellLabel-> - "Out[387]=",ExpressionUUID->"01a1ddfc-b675-4943-bc9a-dd26167acb43"] + 3.9940822596071453`*^9}, 3.994256409590028*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"137be829-b260-491b-86cb-b8199e80ef59"] }, Open ]], Cell[CellGroupData[{ @@ -520,60 +488,52 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[388]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], + CellLabel->"In[18]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], Cell[BoxData["0.7215005296935654`"], "Output", CellChangeTimes->{ 3.9913197866129*^9, 3.994082139989607*^9, {3.994082210635736*^9, - 3.99408225961747*^9}}, - CellLabel-> - "Out[388]=",ExpressionUUID->"08157cc6-e8c8-4bd7-a5a7-5459e366ef52"] + 3.99408225961747*^9}, 3.994256417380415*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"79abb450-5f23-4020-aeff-476fc3e6ee55"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", - CellLabel-> - "In[389]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], + CellLabel->"In[19]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786620775*^9, 3.9940821399995413`*^9, {3.9940822106444807`*^9, - 3.994082259627829*^9}}, - CellLabel-> - "Out[389]=",ExpressionUUID->"90be8d69-26d3-4048-ba16-ad9d011b4703"] + 3.994082259627829*^9}, 3.994256417992159*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"fac2b08d-613b-4705-80a9-df31e58b63b2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fin", "=", "0.09"}]], "Input", - CellLabel-> - "In[390]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], + CellLabel->"In[20]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], Cell[BoxData["0.09`"], "Output", CellChangeTimes->{ 3.991319786657793*^9, 3.994082140010191*^9, {3.994082210653286*^9, - 3.994082259638521*^9}}, - CellLabel-> - "Out[390]=",ExpressionUUID->"963d81a0-9ff1-47d5-a2d9-47315708edfa"] + 3.994082259638521*^9}, 3.994256418027979*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"7c1e8dd9-ee25-4c46-8f42-822e2aeffea1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffin", "=", "0.42"}]], "Input", - CellLabel-> - "In[391]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], + CellLabel->"In[21]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], Cell[BoxData["0.42`"], "Output", CellChangeTimes->{ 3.9913197866657925`*^9, 3.9940821400205593`*^9, {3.9940822106620293`*^9, - 3.9940822596489058`*^9}}, - CellLabel-> - "Out[391]=",ExpressionUUID->"1aebb37c-e437-46ca-87cc-80f0d9a94ed6"] + 3.9940822596489058`*^9}, 3.9942564180515738`*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"f7148e56-5a85-425b-83cb-257b4c7ba8db"] }, Open ]], Cell[CellGroupData[{ @@ -582,31 +542,27 @@ Cell[BoxData[ RowBox[{"fex", "=", RowBox[{"-", "2.59"}]}]], "Input", CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, - CellLabel-> - "In[392]:=",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], + CellLabel->"In[22]:=",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], Cell[BoxData[ RowBox[{"-", "2.59`"}]], "Output", CellChangeTimes->{ 3.9913197866996*^9, 3.994082140031045*^9, {3.994082210671171*^9, - 3.994082259659958*^9}}, - CellLabel-> - "Out[392]=",ExpressionUUID->"249b8c73-d930-48ad-b9e9-59d5b706ebd0"] + 3.994082259659958*^9}, 3.994256418087153*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"32948509-79c3-4ae1-b6fa-899b3df33ced"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffex", "=", "0.54"}]], "Input", - CellLabel-> - "In[393]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], + CellLabel->"In[23]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], Cell[BoxData["0.54`"], "Output", CellChangeTimes->{ 3.9913197867406044`*^9, 3.994082140043984*^9, {3.9940822106801777`*^9, - 3.994082259671282*^9}}, - CellLabel-> - "Out[393]=",ExpressionUUID->"e7ffabb3-f7fd-4500-84cd-ccbf975faf83"] + 3.994082259671282*^9}, 3.994256418129808*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"c6ce6bc1-822f-4c06-a135-0e2f5f84b23d"] }, Open ]], Cell[CellGroupData[{ @@ -616,15 +572,13 @@ Cell[BoxData[ CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { 3.9940731043812733`*^9, 3.994073104508005*^9}}, - CellLabel-> - "In[394]:=",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], + CellLabel->"In[24]:=",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], Cell[BoxData["66"], "Output", CellChangeTimes->{ 3.9913197867861958`*^9, 3.994082140061471*^9, {3.99408221068924*^9, - 3.9940822596826973`*^9}}, - CellLabel-> - "Out[394]=",ExpressionUUID->"2419f2a8-1e65-4a18-b034-189377b2a77c"] + 3.9940822596826973`*^9}, 3.994256418178075*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"2b3c30be-c454-4b25-9ae9-35f6061a945f"] }, Open ]], Cell[CellGroupData[{ @@ -634,15 +588,13 @@ Cell[BoxData[ RowBox[{"94", "-", "Z1"}]}]], "Input", CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, 3.9916443064841423`*^9, {3.9940731093077307`*^9, 3.99407311085991*^9}}, - CellLabel-> - "In[395]:=",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], + CellLabel->"In[25]:=",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], Cell[BoxData["28"], "Output", CellChangeTimes->{ 3.9913197867928696`*^9, 3.994082140071866*^9, {3.9940822106985188`*^9, - 3.9940822596930656`*^9}}, - CellLabel-> - "Out[395]=",ExpressionUUID->"036ec96a-ba0b-412d-b998-cfeb918f6e9f"] + 3.9940822596930656`*^9}, 3.994256418212289*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"94bcdb7f-c9ee-40c6-a572-70c54ef57a7f"] }, Open ]], Cell[CellGroupData[{ @@ -651,15 +603,13 @@ Cell[BoxData[ RowBox[{"A2", "=", RowBox[{"A", "-", "A1"}]}]], "Input", CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, - CellLabel-> - "In[396]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], + CellLabel->"In[26]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], Cell[BoxData["74"], "Output", CellChangeTimes->{ 3.991319786827894*^9, 3.994082140082143*^9, {3.994082210707357*^9, - 3.994082259703759*^9}}, - CellLabel-> - "Out[396]=",ExpressionUUID->"0100bcee-d8c3-450b-be1c-5960f0c586b3"] + 3.994082259703759*^9}, 3.994256418238381*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"53f396bc-ae76-4d81-9073-31f294c4a68d"] }, Open ]], Cell[CellGroupData[{ @@ -674,15 +624,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[397]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], + CellLabel->"In[27]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], Cell[BoxData["0.11092478020188863`"], "Output", CellChangeTimes->{ 3.9913197868648605`*^9, 3.9940821400927267`*^9, {3.994082210716133*^9, - 3.994082259714077*^9}}, - CellLabel-> - "Out[397]=",ExpressionUUID->"e15babaf-72ba-47fd-825d-89d856f0cf03"] + 3.994082259714077*^9}, 3.994256418291953*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"5fa90644-2bff-4b21-a945-8fb285c862b0"] }, Open ]], Cell[CellGroupData[{ @@ -697,16 +645,14 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[398]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], + CellLabel->"In[28]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], Cell[BoxData[ RowBox[{"-", "2.5630967111690004`"}]], "Output", CellChangeTimes->{ 3.9913197868718567`*^9, 3.9940821401033173`*^9, {3.994082210725114*^9, - 3.994082259724759*^9}}, - CellLabel-> - "Out[398]=",ExpressionUUID->"20ac17cf-fcfa-4716-af9c-bde1604aeae1"] + 3.994082259724759*^9}, 3.994256418320133*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"9fb9d872-a299-4e7e-9885-444e8442c96b"] }, Open ]], Cell[CellGroupData[{ @@ -737,15 +683,13 @@ Cell[BoxData[ CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, - CellLabel-> - "In[399]:=",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], + CellLabel->"In[29]:=",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], Cell[BoxData["17.4437013546787`"], "Output", CellChangeTimes->{ 3.9913197869068584`*^9, 3.994082140114669*^9, {3.994082210734028*^9, - 3.994082259736136*^9}}, - CellLabel-> - "Out[399]=",ExpressionUUID->"cecb9c0e-b59c-4750-b2b1-30a8328178d2"] + 3.994082259736136*^9}, 3.994256418370985*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"56d25d48-a13c-4052-b988-b276467f684c"] }, Open ]], Cell[CellGroupData[{ @@ -753,15 +697,13 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, - CellLabel-> - "In[400]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], + CellLabel->"In[30]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786940857*^9, 3.994082140125458*^9, {3.9940822107429523`*^9, - 3.9940822597468443`*^9}}, - CellLabel-> - "Out[400]=",ExpressionUUID->"42c2c1a0-cee4-457b-9154-cde84748c01c"] + 3.9940822597468443`*^9}, 3.9942564184090433`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"b83e8672-5871-408e-b7fd-d015fa0fed8e"] }, Open ]], Cell[CellGroupData[{ @@ -771,20 +713,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { 3.994073141486967*^9, 3.9940731424234343`*^9}}, - CellLabel-> - "In[401]:=",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], + CellLabel->"In[31]:=",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], Cell[BoxData["2.185`"], "Output", CellChangeTimes->{ - 3.9940821401363583`*^9, {3.994082210751677*^9, 3.9940822597573833`*^9}}, - CellLabel-> - "Out[401]=",ExpressionUUID->"0a105781-8ae2-465b-8ffd-a1ec840b3e52"] + 3.9940821401363583`*^9, {3.994082210751677*^9, 3.9940822597573833`*^9}, + 3.994256418533762*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"ad7dc7e2-5e99-40d1-a338-66e184140a23"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, - CellLabel-> - "In[402]:=",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], + CellLabel->"In[32]:=",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], Cell[CellGroupData[{ @@ -793,20 +733,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { 3.9940731457645493`*^9, 3.994073146848226*^9}}, - CellLabel-> - "In[403]:=",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], + CellLabel->"In[33]:=",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], Cell[BoxData["0.755`"], "Output", CellChangeTimes->{ - 3.994082140150962*^9, {3.9940822107679367`*^9, 3.9940822597717943`*^9}}, - CellLabel-> - "Out[403]=",ExpressionUUID->"fecf66b4-2daa-4656-b192-56694d052145"] + 3.994082140150962*^9, {3.9940822107679367`*^9, 3.9940822597717943`*^9}, + 3.99425641860419*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"fa6ddb1e-4e98-4aad-b129-2a849fdfaac7"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, - CellLabel-> - "In[404]:=",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], + CellLabel->"In[34]:=",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], Cell[CellGroupData[{ @@ -815,20 +753,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { 3.994073149619232*^9, 3.994073149893601*^9}}, - CellLabel-> - "In[405]:=",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], + CellLabel->"In[35]:=",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], Cell[BoxData["2.5`"], "Output", CellChangeTimes->{ - 3.994082140164228*^9, {3.994082210783918*^9, 3.994082259785039*^9}}, - CellLabel-> - "Out[405]=",ExpressionUUID->"683a7d34-4923-48d8-a9b9-5cd8d430c0a7"] + 3.994082140164228*^9, {3.994082210783918*^9, 3.994082259785039*^9}, + 3.99425641865838*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"5e14d7e5-ff6c-448f-bf56-0b5b2c239524"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, - CellLabel-> - "In[406]:=",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], + CellLabel->"In[36]:=",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], Cell[CellGroupData[{ @@ -837,20 +773,18 @@ Cell[BoxData[ CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, 3.991799359954439*^9, {3.994073152359264*^9, 3.994073154823225*^9}}, - CellLabel-> - "In[407]:=",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], + CellLabel->"In[37]:=",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], Cell[BoxData["1.165`"], "Output", CellChangeTimes->{ - 3.994082140177301*^9, {3.994082210799852*^9, 3.9940822597980413`*^9}}, - CellLabel-> - "Out[407]=",ExpressionUUID->"88e2d78a-8c64-465a-8abd-b3298cf685b3"] + 3.994082140177301*^9, {3.994082210799852*^9, 3.9940822597980413`*^9}, + 3.994256418728278*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"6cc5fe5c-37bc-45fa-b147-eb048fc12f73"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, - CellLabel-> - "In[408]:=",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], + CellLabel->"In[38]:=",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], Cell[CellGroupData[{ @@ -859,20 +793,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, 3.991718016467348*^9, 3.991799361414671*^9, {3.994073158537945*^9, 3.994073159984886*^9}}, - CellLabel-> - "In[409]:=",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], + CellLabel->"In[39]:=",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], Cell[BoxData["1.055`"], "Output", CellChangeTimes->{ - 3.9940821401902237`*^9, {3.9940822108158007`*^9, 3.994082259811191*^9}}, - CellLabel-> - "Out[409]=",ExpressionUUID->"6ce9657a-1686-402b-b34b-751ae69af9aa"] + 3.9940821401902237`*^9, {3.9940822108158007`*^9, 3.994082259811191*^9}, + 3.994256418786765*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"48b58a44-cec8-4798-8504-afaaa4c790f4"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, - CellLabel-> - "In[410]:=",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], + CellLabel->"In[40]:=",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], Cell[CellGroupData[{ @@ -881,20 +813,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9940731689650297`*^9, 3.994073170525517*^9}}, - CellLabel-> - "In[411]:=",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], + CellLabel->"In[41]:=",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], Cell[BoxData["0.575`"], "Output", CellChangeTimes->{ - 3.99408214020331*^9, {3.9940822108320093`*^9, 3.994082259824339*^9}}, - CellLabel-> - "Out[411]=",ExpressionUUID->"c2d97d15-e2a1-4ca5-b150-9bf4eb7ff27b"] + 3.99408214020331*^9, {3.9940822108320093`*^9, 3.994082259824339*^9}, + 3.994256418886181*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"b93fe9d8-2e58-4486-b372-baca800f40c3"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, - CellLabel-> - "In[412]:=",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], + CellLabel->"In[42]:=",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], Cell[CellGroupData[{ @@ -903,20 +833,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.99407317466329*^9, 3.9940731756907377`*^9}}, - CellLabel-> - "In[413]:=",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], + CellLabel->"In[43]:=",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], Cell[BoxData["1.51`"], "Output", CellChangeTimes->{ - 3.9940821402169437`*^9, {3.994082210847649*^9, 3.994082259837338*^9}}, - CellLabel-> - "Out[413]=",ExpressionUUID->"aa72a42c-ecda-434b-9c18-b8eafaf3f24a"] + 3.9940821402169437`*^9, {3.994082210847649*^9, 3.994082259837338*^9}, + 3.9942564189997787`*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"607bc5eb-3cdc-48c5-9eaa-d2a0eef7f8f2"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, - CellLabel-> - "In[414]:=",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], + CellLabel->"In[44]:=",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], Cell[CellGroupData[{ @@ -924,20 +852,18 @@ Cell[BoxData[ RowBox[{"nn2", "=", "0.635"}]], "Input", CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, 3.9917993660901737`*^9, {3.99407317843715*^9, 3.994073182537156*^9}}, - CellLabel-> - "In[415]:=",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], + CellLabel->"In[45]:=",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], Cell[BoxData["0.635`"], "Output", CellChangeTimes->{ - 3.994082140230339*^9, {3.994082210863504*^9, 3.994082259850523*^9}}, - CellLabel-> - "Out[415]=",ExpressionUUID->"918c9ed6-e358-42b9-8f43-f645fd52c2d1"] + 3.994082140230339*^9, {3.994082210863504*^9, 3.994082259850523*^9}, + 3.9942564190551987`*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"cfefdd72-1902-4946-9067-eeb4610b36df"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, - CellLabel-> - "In[416]:=",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], + CellLabel->"In[46]:=",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ @@ -1112,14 +1038,18 @@ Cell[BoxData[ RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", - FractionBox[ + RowBox[{"(", RowBox[{ - SqrtBox[ - RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", - "p0"}], - RowBox[{"r", "*", - RowBox[{"Sinh", "[", - RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{ @@ -1426,15 +1356,13 @@ uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== "], - CellLabel-> - "In[417]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], + CellLabel->"In[47]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], Cell[BoxData["0.14543451930671605`"], "Output", CellChangeTimes->{ 3.991319787430073*^9, 3.9940821403190203`*^9, {3.994082210903069*^9, - 3.994082259888891*^9}}, - CellLabel-> - "Out[417]=",ExpressionUUID->"e0e8cb47-2ea4-4195-9c6e-3ab5417accc0"] + 3.994082259888891*^9}, 3.994256419308106*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"c783b742-6dad-4b7c-bf3c-8d63e238de54"] }, Open ]], Cell[CellGroupData[{ @@ -1462,14 +1390,18 @@ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", - FractionBox[ + RowBox[{"(", RowBox[{ - SqrtBox[ - RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", - "p0"}], - RowBox[{"r", "*", - RowBox[{"Sinh", "[", - RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{ @@ -1928,15 +1860,13 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[418]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], + CellLabel->"In[48]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], Cell[BoxData["7.609769640822119`"], "Output", CellChangeTimes->{ 3.991319787574972*^9, 3.9940821403533278`*^9, {3.994082210934519*^9, - 3.994082259917639*^9}}, - CellLabel-> - "Out[418]=",ExpressionUUID->"b621c5bb-9177-45b8-b442-aaf2dd776d70"] + 3.994082259917639*^9}, 3.994256419422537*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"849b97d1-0293-4291-95ff-157eaba2fe82"] }, Open ]], Cell[CellGroupData[{ @@ -1964,14 +1894,18 @@ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", - FractionBox[ + RowBox[{"(", RowBox[{ - SqrtBox[ - RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", - "p0"}], - RowBox[{"r", "*", - RowBox[{"Sinh", "[", - RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{ @@ -2188,14 +2122,18 @@ Cell[BoxData[ RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", - FractionBox[ + RowBox[{"(", RowBox[{ - SqrtBox[ - RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", - "p0"}], - RowBox[{"r", "*", - RowBox[{"Sinh", "[", - RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{ @@ -2424,16 +2362,14 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[419]:=",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], + CellLabel->"In[49]:=",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], Cell[BoxData[ RowBox[{"-", "15.030827196449275`"}]], "Output", CellChangeTimes->{ 3.991319787641424*^9, 3.994082140383691*^9, {3.9940822109679832`*^9, - 3.994082259945158*^9}}, - CellLabel-> - "Out[419]=",ExpressionUUID->"82cfdd64-3f1e-4b73-b2ea-5778810ddd17"] + 3.994082259945158*^9}, 3.994256419807534*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"13c0b34c-0a78-4022-aac8-c8112660bbd8"] }, Open ]], Cell[CellGroupData[{ @@ -2461,14 +2397,18 @@ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", - FractionBox[ + RowBox[{"(", RowBox[{ - SqrtBox[ - RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", - "p0"}], - RowBox[{"r", "*", - RowBox[{"Sinh", "[", - RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{ @@ -2685,14 +2625,18 @@ Cell[BoxData[ RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", - FractionBox[ + RowBox[{"(", RowBox[{ - SqrtBox[ - RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", - "p0"}], - RowBox[{"r", "*", - RowBox[{"Sinh", "[", - RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{ @@ -2991,16 +2935,14 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[420]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], + CellLabel->"In[50]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], Cell[BoxData[ RowBox[{"-", "19.761827924452415`"}]], "Output", CellChangeTimes->{ 3.991319787711939*^9, 3.9940821404195766`*^9, {3.9940822110021753`*^9, - 3.994082259978429*^9}}, - CellLabel-> - "Out[420]=",ExpressionUUID->"281e4c34-c425-4ac7-9186-671fafe39131"] + 3.994082259978429*^9}, 3.994256419948812*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"0d5cb897-d6b8-4795-bb18-4311bf8068c9"] }, Open ]], Cell[CellGroupData[{ @@ -3028,14 +2970,18 @@ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", - FractionBox[ + RowBox[{"(", RowBox[{ - SqrtBox[ - RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", - "p0"}], - RowBox[{"r", "*", - RowBox[{"Sinh", "[", - RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{ @@ -3325,14 +3271,18 @@ Cell[BoxData[ RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", - FractionBox[ + RowBox[{"(", RowBox[{ - SqrtBox[ - RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", - "p0"}], - RowBox[{"r", "*", - RowBox[{"Sinh", "[", - RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{ @@ -3558,16 +3508,14 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[421]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], + CellLabel->"In[51]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], Cell[BoxData[ RowBox[{"-", "57.66257775030843`"}]], "Output", CellChangeTimes->{ 3.9913197877723045`*^9, 3.9940821404579077`*^9, {3.994082211038884*^9, - 3.994082260011196*^9}}, - CellLabel-> - "Out[421]=",ExpressionUUID->"25e6553a-fb83-425a-ac8d-977995a2d598"] + 3.994082260011196*^9}, 3.994256420234756*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"647a906a-7941-4d52-a705-268e17f55c02"] }, Open ]], Cell[CellGroupData[{ @@ -3595,14 +3543,18 @@ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", - FractionBox[ + RowBox[{"(", RowBox[{ - SqrtBox[ - RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", - "p0"}], - RowBox[{"r", "*", - RowBox[{"Sinh", "[", - RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{ @@ -3892,14 +3844,18 @@ Cell[BoxData[ RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", - FractionBox[ + RowBox[{"(", RowBox[{ - SqrtBox[ - RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", - "p0"}], - RowBox[{"r", "*", - RowBox[{"Sinh", "[", - RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{ @@ -4198,46 +4154,40 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[422]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], + CellLabel->"In[52]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], Cell[BoxData[ RowBox[{"-", "150.68948520646092`"}]], "Output", CellChangeTimes->{ 3.991319787833355*^9, 3.994082140505332*^9, {3.994082211079116*^9, - 3.9940822600491877`*^9}}, - CellLabel-> - "Out[422]=",ExpressionUUID->"705c7128-176a-4e60-8cde-3141363199e3"] + 3.9940822600491877`*^9}, 3.994256420425913*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"04a34987-60a6-4d9e-bc9c-67ac25616e2c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U21", "=", "0"}]], "Input", - CellLabel-> - "In[423]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], + CellLabel->"In[53]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210013676`*^9, 3.99408214052183*^9, {3.994082211090176*^9, - 3.994082260062854*^9}}, - CellLabel-> - "Out[423]=",ExpressionUUID->"163a2a2b-0ca8-4c5b-a553-567a37965691"] + 3.994082260062854*^9}, 3.9942564204561787`*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"a6344032-2b31-48a9-8462-c06d7c81aed2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U22", "=", "0"}]], "Input", - CellLabel-> - "In[424]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], + CellLabel->"In[54]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210355663`*^9, 3.994082140531746*^9, {3.9940822111011677`*^9, - 3.994082260073297*^9}}, - CellLabel-> - "Out[424]=",ExpressionUUID->"1920f2b3-4662-4ead-9654-2f62cf5727b3"] + 3.994082260073297*^9}, 3.994256420618044*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"d8000416-851b-4054-9ceb-4c00ecbadfad"] }, Open ]], Cell[CellGroupData[{ @@ -4281,15 +4231,13 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[425]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], + CellLabel->"In[55]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], Cell[BoxData["120.33662547388403`"], "Output", CellChangeTimes->{ 3.991320421068556*^9, 3.994082140542282*^9, {3.994082211112996*^9, - 3.994082260084251*^9}}, - CellLabel-> - "Out[425]=",ExpressionUUID->"340b0d86-e03b-45cb-b2c2-ae9e64c52c8f"] + 3.994082260084251*^9}, 3.994256420666397*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"fa7a978c-2627-4e12-9912-6efae7889c62"] }, Open ]], Cell[CellGroupData[{ @@ -4329,16 +4277,14 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[426]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], + CellLabel->"In[56]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], Cell[BoxData[ RowBox[{"-", "107.1121642480161`"}]], "Output", CellChangeTimes->{ 3.991320421098543*^9, 3.994082140552636*^9, {3.994082211122551*^9, - 3.994082260094944*^9}}, - CellLabel-> - "Out[426]=",ExpressionUUID->"76ba76ba-9562-41cd-88c4-707224480d23"] + 3.994082260094944*^9}, 3.994256420720192*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"ea2bfa60-dc9b-4882-852c-a53222c44571"] }, Open ]], Cell[CellGroupData[{ @@ -4382,99 +4328,87 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[427]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], + CellLabel->"In[57]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], Cell[BoxData["123.55775944746372`"], "Output", CellChangeTimes->{ 3.9913204211275444`*^9, 3.9940821405632*^9, {3.9940822111320972`*^9, - 3.9940822601055107`*^9}}, - CellLabel-> - "Out[427]=",ExpressionUUID->"bf90d935-4ee8-481c-8d5c-3be142664870"] + 3.9940822601055107`*^9}, 3.994256420769586*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"ab8095ce-43db-4116-8e14-1483ffda435a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c11"], "Input", - CellLabel-> - "In[428]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], + CellLabel->"In[58]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], Cell[BoxData["0.4069661562665162`"], "Output", CellChangeTimes->{ 3.9913204211385536`*^9, 3.994082140573392*^9, {3.994082211141264*^9, - 3.994082260116184*^9}}, - CellLabel-> - "Out[428]=",ExpressionUUID->"2623f4b4-3e57-436d-a3a2-83f9307bb872"] + 3.994082260116184*^9}, 3.9942564208154*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"c7693d32-6f74-4fef-a15e-326f3e1f4fe6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c12"], "Input", - CellLabel-> - "In[429]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], + CellLabel->"In[59]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], Cell[BoxData[ RowBox[{"-", "0.08563504168524437`"}]], "Output", CellChangeTimes->{ 3.9913204211683464`*^9, 3.994082140583559*^9, {3.994082211156444*^9, - 3.994082260127738*^9}}, - CellLabel-> - "Out[429]=",ExpressionUUID->"0f1eded3-805e-4cbe-a37b-057f37983da3"] + 3.994082260127738*^9}, 3.9942564208784513`*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"8f5a4d45-341b-4335-b174-9daa58ab578e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c21"], "Input", - CellLabel-> - "In[430]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], + CellLabel->"In[60]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], Cell[BoxData[ RowBox[{"-", "0.5841673375234483`"}]], "Output", CellChangeTimes->{ 3.991320421199068*^9, 3.994082140593707*^9, {3.994082211166273*^9, - 3.99408226016045*^9}}, - CellLabel-> - "Out[430]=",ExpressionUUID->"cbacdbb0-99d6-446e-9ceb-fa978d1ee555"] + 3.99408226016045*^9}, 3.9942564209276342`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"c76427fb-1535-4d83-b6bd-cc0ac03a7bf5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c22"], "Input", - CellLabel-> - "In[431]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], + CellLabel->"In[61]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], Cell[BoxData["0.7215005296935654`"], "Output", CellChangeTimes->{ 3.991320421228037*^9, 3.9940821428128853`*^9, {3.994082211175336*^9, - 3.994082260189337*^9}}, - CellLabel-> - "Out[431]=",ExpressionUUID->"a202ddec-8352-4ca8-86b6-0ae67d808b59"] + 3.994082260189337*^9}, 3.994256420970174*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"db6d7e7a-8ae7-4426-ab03-c7857dba6cf0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w1"], "Input", - CellLabel-> - "In[432]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], + CellLabel->"In[62]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], Cell[BoxData["2.315137197466896`"], "Output", CellChangeTimes->{ - 3.9913204212585373`*^9, {3.9940822111841908`*^9, 3.9940822602133617`*^9}}, - CellLabel-> - "Out[432]=",ExpressionUUID->"de4b39e2-fadc-4df3-a685-cbd07a5ae09a"] + 3.9913204212585373`*^9, {3.9940822111841908`*^9, 3.9940822602133617`*^9}, + 3.9942564210335093`*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"2deedc9a-50f3-4200-a3c3-7d3a54710333"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w2"], "Input", - CellLabel-> - "In[433]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], + CellLabel->"In[63]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], Cell[BoxData["1.4220278650887666`"], "Output", CellChangeTimes->{ - 3.9913204212884274`*^9, {3.994082211193069*^9, 3.99408226021774*^9}}, - CellLabel-> - "Out[433]=",ExpressionUUID->"dfe901e9-edb5-4eea-8e15-d73ae4da775a"] + 3.9913204212884274`*^9, {3.994082211193069*^9, 3.99408226021774*^9}, + 3.994256421089919*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"1d58ab54-f863-456d-b52f-29d45b49bd87"] }, Open ]], Cell[CellGroupData[{ @@ -4495,15 +4429,14 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", - CellLabel-> - "In[434]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], + CellLabel->"In[64]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], Cell[BoxData[ RowBox[{"-", "34.52117430586003`"}]], "Output", CellChangeTimes->{ - 3.9913204213185234`*^9, {3.994082211202162*^9, 3.994082260228716*^9}}, - CellLabel-> - "Out[434]=",ExpressionUUID->"48e44735-b63e-4544-b63e-264031b735d8"] + 3.9913204213185234`*^9, {3.994082211202162*^9, 3.994082260228716*^9}, + 3.994256421127721*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"497e0158-40fe-455f-9839-a7a37fddab9a"] }, Open ]], Cell[CellGroupData[{ @@ -4524,15 +4457,14 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", - CellLabel-> - "In[435]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], + CellLabel->"In[65]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], Cell[BoxData[ RowBox[{"-", "6.669654351008722`"}]], "Output", CellChangeTimes->{ - 3.991320421349531*^9, {3.9940822112147284`*^9, 3.994082260239593*^9}}, - CellLabel-> - "Out[435]=",ExpressionUUID->"61b052e1-d792-4900-8d96-d63125b54874"] + 3.991320421349531*^9, {3.9940822112147284`*^9, 3.994082260239593*^9}, + 3.994256421215865*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"69277e46-b174-4540-b650-3cbbb33f22a5"] }, Open ]], Cell[CellGroupData[{ @@ -4597,14 +4529,13 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[436]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], + CellLabel->"In[66]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], Cell[BoxData["85.815451168024`"], "Output", CellChangeTimes->{ - 3.9913204213784294`*^9, {3.994082211224436*^9, 3.994082260250916*^9}}, - CellLabel-> - "Out[436]=",ExpressionUUID->"efa493bf-62a4-42ef-a298-acc4b31951e1"] + 3.9913204213784294`*^9, {3.994082211224436*^9, 3.994082260250916*^9}, + 3.994256421271237*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"e65a44fe-4ffc-4ad2-8b46-c52e26524f5e"] }, Open ]], Cell[CellGroupData[{ @@ -4645,15 +4576,14 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[437]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], + CellLabel->"In[67]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], Cell[BoxData[ RowBox[{"-", "107.1121642480161`"}]], "Output", CellChangeTimes->{ - 3.9913204213904285`*^9, {3.994082211233815*^9, 3.994082260261983*^9}}, - CellLabel-> - "Out[437]=",ExpressionUUID->"ce0c3045-c46d-48ae-b267-0e10802a422a"] + 3.9913204213904285`*^9, {3.994082211233815*^9, 3.994082260261983*^9}, + 3.99425642131215*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"fd522247-221d-4fbf-8982-60c39f3c5a6d"] }, Open ]], Cell[CellGroupData[{ @@ -4719,14 +4649,13 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[438]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], + CellLabel->"In[68]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], Cell[BoxData["116.888105096455`"], "Output", CellChangeTimes->{ - 3.991320421419428*^9, {3.99408221124387*^9, 3.994082260273652*^9}}, - CellLabel-> - "Out[438]=",ExpressionUUID->"c865c015-b56d-4ccc-ad76-f18e9802683b"] + 3.991320421419428*^9, {3.99408221124387*^9, 3.994082260273652*^9}, + 3.994256421355315*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"b127f15a-f385-40e7-994a-ee18fd7f184e"] }, Open ]], Cell[CellGroupData[{ @@ -4736,32 +4665,9 @@ Cell[BoxData[ RowBox[{ RowBox[{"(", "BBB11", ")"}], "+", RowBox[{"2", - FractionBox[ - RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{"1", "+", - RowBox[{ - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", - RowBox[{ - FractionBox["1", - RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], - RowBox[{"R02", "*", - RowBox[{"(", - RowBox[{"1", "+", - RowBox[{ - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", - RowBox[{ - FractionBox["1", - RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", - RowBox[{"(", "BBB12", ")"}]}], "+", - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ RowBox[{"R01", "*", RowBox[{"(", RowBox[{"1", "+", @@ -4771,7 +4677,8 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", RowBox[{ FractionBox["1", - RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", RowBox[{"R02", "*", RowBox[{"(", RowBox[{"1", "+", @@ -4781,17 +4688,44 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", RowBox[{ FractionBox["1", - RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], - "2"], "*", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}], ")"}]}], + ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[439]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], + CellLabel->"In[69]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], Cell[BoxData["42.180325689118604`"], "Output", CellChangeTimes->{ - 3.9913204214494324`*^9, {3.994082211253778*^9, 3.994082260284829*^9}}, - CellLabel-> - "Out[439]=",ExpressionUUID->"b7c3bbf9-9343-4488-ac38-54b3a3bb5a76"] + 3.9913204214494324`*^9, {3.994082211253778*^9, 3.994082260284829*^9}, + 3.9942564214231453`*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"0eda660e-edc6-42c3-9dcf-7f32be06aafb"] }, Open ]], Cell[CellGroupData[{ @@ -4801,32 +4735,9 @@ Cell[BoxData[ RowBox[{ RowBox[{"(", "BBB11", ")"}], "-", RowBox[{"2", - FractionBox[ - RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{"1", "+", - RowBox[{ - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", - RowBox[{ - FractionBox["1", - RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], - RowBox[{"R02", "*", - RowBox[{"(", - RowBox[{"1", "+", - RowBox[{ - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", - RowBox[{ - FractionBox["1", - RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", - RowBox[{"(", "BBB12", ")"}]}], "+", - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ RowBox[{"R01", "*", RowBox[{"(", RowBox[{"1", "+", @@ -4836,7 +4747,8 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", RowBox[{ FractionBox["1", - RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", RowBox[{"R02", "*", RowBox[{"(", RowBox[{"1", "+", @@ -4846,17 +4758,44 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", RowBox[{ FractionBox["1", - RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], - "2"], "*", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}], ")"}]}], + ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[440]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], + CellLabel->"In[70]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], Cell[BoxData["727.4038074151157`"], "Output", CellChangeTimes->{ - 3.991320421481529*^9, {3.994082211263607*^9, 3.994082260289282*^9}}, - CellLabel-> - "Out[440]=",ExpressionUUID->"dcaa4778-af98-407c-b754-aa7593469626"] + 3.991320421481529*^9, {3.994082211263607*^9, 3.994082260289282*^9}, + 3.9942564214517717`*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"43fc7562-620e-4b35-b33f-bc7055f1dcb0"] }, Open ]], Cell[CellGroupData[{ @@ -4864,38 +4803,34 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f1", "=", "0.8718414861"}]], "Input", CellChangeTimes->{3.991799412462593*^9, 3.99407322940346*^9}, - CellLabel-> - "In[441]:=",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], + CellLabel->"In[71]:=",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], Cell[BoxData["0.8718414861`"], "Output", - CellChangeTimes->{{3.994082211273093*^9, 3.994082260300088*^9}}, - CellLabel-> - "Out[441]=",ExpressionUUID->"7bdf2466-2d8a-4e2b-840a-6fef1ae2bc7f"] + CellChangeTimes->{{3.994082211273093*^9, 3.994082260300088*^9}, + 3.99425642150947*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"8e169302-931c-4ff1-bf9b-dea9f0e8a8cc"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184866880085*^9, 3.9918486688048573`*^9}}, - CellLabel-> - "In[442]:=",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], + CellLabel->"In[72]:=",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f2", "=", "0.5562187875"}]], "Input", CellChangeTimes->{3.991799414288656*^9, 3.9940732361826572`*^9}, - CellLabel-> - "In[443]:=",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], + CellLabel->"In[73]:=",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], Cell[BoxData["0.5562187875`"], "Output", - CellChangeTimes->{{3.994082211285598*^9, 3.994082260313322*^9}}, - CellLabel-> - "Out[443]=",ExpressionUUID->"2fd9f24a-4d81-4a6c-a436-67b1a0fd5f1f"] + CellChangeTimes->{{3.994082211285598*^9, 3.994082260313322*^9}, + 3.994256421635648*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"5069df8f-1807-4ff5-b2b4-16829e78a3f8"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848669922333*^9, 3.9918486699293537`*^9}}, - CellLabel-> - "In[444]:=",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], + CellLabel->"In[74]:=",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ @@ -4941,14 +4876,13 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel-> - "In[445]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], + CellLabel->"In[75]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], Cell[BoxData["1.5199617014106653`*^-53"], "Output", CellChangeTimes->{ - 3.99132042156752*^9, {3.9940822113093443`*^9, 3.994082260326758*^9}}, - CellLabel-> - "Out[445]=",ExpressionUUID->"53aeb72e-5f1b-4dab-8c60-5ec696603396"] + 3.99132042156752*^9, {3.9940822113093443`*^9, 3.994082260326758*^9}, + 3.994256421713299*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"3b413f0e-95a7-453f-9493-d2c1645b3a09"] }, Open ]], Cell[CellGroupData[{ @@ -4983,14 +4917,13 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", CellChangeTimes->{3.991557471461853*^9}, - CellLabel-> - "In[446]:=",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], + CellLabel->"In[76]:=",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], Cell[BoxData["1.5082100629610504`*^-54"], "Output", CellChangeTimes->{ - 3.99132042159643*^9, {3.994082211337117*^9, 3.99408226033742*^9}}, - CellLabel-> - "Out[446]=",ExpressionUUID->"c25688b7-2cd0-4781-8a84-19834ee062a5"] + 3.99132042159643*^9, {3.994082211337117*^9, 3.99408226033742*^9}, + 3.994256421764915*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"508e70e4-d228-46cd-973c-00b6ade3cb50"] }, Open ]], Cell[CellGroupData[{ @@ -5024,14 +4957,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", CellChangeTimes->{{3.991557474366678*^9, 3.99155747655138*^9}}, - CellLabel-> - "In[447]:=",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], + CellLabel->"In[77]:=",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], Cell[BoxData["2.8809837120527296`*^-54"], "Output", CellChangeTimes->{ - 3.9913204216085243`*^9, {3.994082211349947*^9, 3.994082260348366*^9}}, - CellLabel-> - "Out[447]=",ExpressionUUID->"e029c9a9-7648-4991-8b6a-f9771da08271"] + 3.9913204216085243`*^9, {3.994082211349947*^9, 3.994082260348366*^9}, + 3.994256421812517*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"10426d9a-64b3-455d-ab82-827c4dfeadac"] }, Open ]], Cell[CellGroupData[{ @@ -5054,8 +4986,7 @@ Cell[BoxData[ FractionBox[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", - CellLabel-> - "In[448]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], + CellLabel->"In[78]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], Cell[BoxData["14.366774230577528`"], "Output", CellChangeTimes->{ @@ -5065,9 +4996,8 @@ Cell[BoxData["14.366774230577528`"], "Output", 3.99208680410137*^9}, 3.992091247458048*^9, {3.992091392660454*^9, 3.992091446805294*^9}, {3.9920915031404457`*^9, 3.992091522601553*^9}, { 3.9920915619364376`*^9, 3.9920915885645847`*^9}, {3.994082211360269*^9, - 3.994082260359448*^9}}, - CellLabel-> - "Out[448]=",ExpressionUUID->"0cc6e19e-0b12-4334-95f0-4b325f4c4782"] + 3.994082260359448*^9}, 3.9942564218922787`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"6f0b1b90-114b-4c5a-89fb-97e41663d3ee"] }, Open ]], Cell[CellGroupData[{ @@ -5093,8 +5023,7 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", CellChangeTimes->{3.992086162437586*^9}, - CellLabel-> - "In[449]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], + CellLabel->"In[79]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], Cell[BoxData["49.42545919517845`"], "Output", CellChangeTimes->{ @@ -5103,9 +5032,9 @@ Cell[BoxData["49.42545919517845`"], "Output", 3.992086668289461*^9, {3.992086776775297*^9, 3.9920868041333256`*^9}, 3.992091247484524*^9, {3.9920913926676064`*^9, 3.9920914468313007`*^9}, { 3.9920915031479607`*^9, 3.9920915226223583`*^9}, {3.9920915619450817`*^9, - 3.992091588571615*^9}, {3.994082211370572*^9, 3.994082260370407*^9}}, - CellLabel-> - "Out[449]=",ExpressionUUID->"ee271180-a88e-4901-995d-fc00d664602b"] + 3.992091588571615*^9}, {3.994082211370572*^9, 3.994082260370407*^9}, + 3.9942564219303226`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"1811a6c4-9c8a-4dc5-861f-51b4c3f901d3"] }, Open ]], Cell[CellGroupData[{ @@ -5114,8 +5043,7 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", - CellLabel-> - "In[450]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], + CellLabel->"In[80]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], Cell[BoxData["1.7134653673502502`"], "Output", CellChangeTimes->{ @@ -5125,9 +5053,8 @@ Cell[BoxData["1.7134653673502502`"], "Output", 3.9920868041580334`*^9}, 3.9920912474925404`*^9, {3.9920913926935654`*^9, 3.992091446837303*^9}, {3.9920915031795254`*^9, 3.992091522629343*^9}, { 3.9920915619686337`*^9, 3.992091588596325*^9}, {3.994082211381027*^9, - 3.9940822603816147`*^9}}, - CellLabel-> - "Out[450]=",ExpressionUUID->"4210faa2-d16f-4159-9536-41bbeb118197"] + 3.9940822603816147`*^9}, 3.994256421967936*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"9567f7e7-3905-4e8c-9000-02760114d21f"] }, Open ]], Cell[CellGroupData[{ @@ -5137,8 +5064,7 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kw", "Qw2"]]}]], "Input", CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, - CellLabel-> - "In[451]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], + CellLabel->"In[81]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], Cell[BoxData["3.836298822642981`"], "Output", CellChangeTimes->{ @@ -5147,9 +5073,8 @@ Cell[BoxData["3.836298822642981`"], "Output", 3.9920867768061504`*^9, 3.9920868041630306`*^9}, 3.992091247522402*^9, { 3.992091392715067*^9, 3.9920914468593006`*^9}, {3.992091503202347*^9, 3.992091522636343*^9}, {3.992091561975609*^9, 3.99209158860334*^9}, { - 3.994082211391102*^9, 3.994082260392704*^9}}, - CellLabel-> - "Out[451]=",ExpressionUUID->"213fb299-7213-4e3a-a9f9-48c39939a5ba"] + 3.994082211391102*^9, 3.994082260392704*^9}, 3.9942564219912043`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"04689f4e-0af4-4475-a136-bcd3cc820172"] }, Open ]], Cell[CellGroupData[{ @@ -5159,8 +5084,7 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", CellChangeTimes->{3.992086167409481*^9}, - CellLabel-> - "In[452]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], + CellLabel->"In[82]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], Cell[BoxData["189.61083091905178`"], "Output", CellChangeTimes->{ @@ -5169,9 +5093,9 @@ Cell[BoxData["189.61083091905178`"], "Output", 3.9920866683466625`*^9, {3.9920867768341465`*^9, 3.9920868041850357`*^9}, 3.992091247547844*^9, {3.9920913927375374`*^9, 3.992091446867302*^9}, { 3.992091503209553*^9, 3.992091522657341*^9}, {3.992091561999613*^9, - 3.9920915886284447`*^9}, {3.994082211400819*^9, 3.9940822604038277`*^9}}, - CellLabel-> - "Out[452]=",ExpressionUUID->"36b44dfd-8d68-475c-86fd-1b934dda9dec"] + 3.9920915886284447`*^9}, {3.994082211400819*^9, 3.9940822604038277`*^9}, + 3.994256422019064*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"33dac20f-5f9d-45f5-a215-9e9666ed4208"] }, Open ]], Cell[CellGroupData[{ @@ -5180,8 +5104,7 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[453]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], + CellLabel->"In[83]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], Cell[BoxData["24.616970084634634`"], "Output", CellChangeTimes->{ @@ -5191,9 +5114,8 @@ Cell[BoxData["24.616970084634634`"], "Output", 3.992086804192051*^9}, 3.9920912475547256`*^9, {3.9920913927436028`*^9, 3.992091446891386*^9}, {3.9920915032325726`*^9, 3.992091522664852*^9}, { 3.992091562006651*^9, 3.992091588636162*^9}, {3.994082211410651*^9, - 3.994082260414859*^9}}, - CellLabel-> - "Out[453]=",ExpressionUUID->"3cee8994-2481-461e-88f3-f631187e5832"] + 3.994082260414859*^9}, 3.994256422045247*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"ebee7f06-4074-4c1c-92c6-621959207211"] }, Open ]], Cell[CellGroupData[{ @@ -5382,8 +5304,7 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[454]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], + CellLabel->"In[84]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], Cell[BoxData["0.005770252847407`"], "Output", CellChangeTimes->{ @@ -5392,9 +5313,9 @@ Cell[BoxData["0.005770252847407`"], "Output", 3.992086602254381*^9, {3.992086776882221*^9, 3.9920868042180786`*^9}, 3.992091247578861*^9, {3.9920913927664986`*^9, 3.992091446900387*^9}, { 3.992091503241564*^9, 3.9920915226853714`*^9}, {3.9920915620301514`*^9, - 3.992091588657053*^9}, {3.994082211420331*^9, 3.994082260426902*^9}}, - CellLabel-> - "Out[454]=",ExpressionUUID->"ab70d59e-5f61-4611-af7f-fafca10d931c"] + 3.992091588657053*^9}, {3.994082211420331*^9, 3.994082260426902*^9}, + 3.994256422076887*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"7e2a6308-2dfe-428b-b31e-144f5df144f5"] }, Open ]], Cell[CellGroupData[{ @@ -5407,8 +5328,7 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[455]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], + CellLabel->"In[85]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], Cell[BoxData["11.666686251913518`"], "Output", CellChangeTimes->{ @@ -5417,9 +5337,9 @@ Cell[BoxData["11.666686251913518`"], "Output", 3.9920867769392548`*^9, 3.9920868042750893`*^9}, 3.992091250499668*^9, { 3.9920913928462048`*^9, 3.9920914469749584`*^9}, {3.992091503316616*^9, 3.9920915227624416`*^9}, {3.9920915621031647`*^9, - 3.9920915887305927`*^9}, {3.994082211570291*^9, 3.994082260481759*^9}}, - CellLabel-> - "Out[455]=",ExpressionUUID->"ad6c6e2e-e0e3-4078-bdf5-a398f6fa29b6"] + 3.9920915887305927`*^9}, {3.994082211570291*^9, 3.994082260481759*^9}, + 3.994256422431271*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"d9ac4c22-142e-46f6-a7b7-d773e9e0f342"] }, Open ]], Cell[BoxData[ @@ -5431,8 +5351,7 @@ Cell[BoxData[ 3.992086184000986*^9, 3.9920862197077847`*^9}, {3.99208635879986*^9, 3.9920863634349823`*^9}, {3.9920864985362244`*^9, 3.992086501430176*^9}, { 3.9920869541635437`*^9, 3.992086954848522*^9}}, - CellLabel-> - "In[456]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], + CellLabel->"In[86]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ @@ -5454,14 +5373,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel-> - "In[457]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], + CellLabel->"In[87]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], Cell[BoxData["35.148109994345155`"], "Output", CellChangeTimes->{ - 3.991320421637537*^9, {3.994082211645638*^9, 3.994082260503162*^9}}, - CellLabel-> - "Out[457]=",ExpressionUUID->"8bebcf67-128b-43de-8c41-0d3f801099dc"] + 3.991320421637537*^9, {3.994082211645638*^9, 3.994082260503162*^9}, + 3.994256422516869*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"0769acbb-f2d3-4ac8-90e4-6fbd5d3135ba"] }, Open ]], Cell[CellGroupData[{ @@ -5486,14 +5404,13 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", - CellLabel-> - "In[458]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], + CellLabel->"In[88]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], Cell[BoxData["49.42545919517845`"], "Output", CellChangeTimes->{ - 3.9913204216685333`*^9, {3.994082211655341*^9, 3.9940822605140467`*^9}}, - CellLabel-> - "Out[458]=",ExpressionUUID->"08a80e46-ee9e-43af-b04d-2d0c497b8c23"] + 3.9913204216685333`*^9, {3.994082211655341*^9, 3.9940822605140467`*^9}, + 3.9942564228144083`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"fd5bdbad-15de-420b-85dc-d4a4c55aa62f"] }, Open ]], Cell[CellGroupData[{ @@ -5502,14 +5419,13 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel-> - "In[459]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], + CellLabel->"In[89]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], Cell[BoxData["1.0954787963831218`"], "Output", CellChangeTimes->{ - 3.991320421698473*^9, {3.9940822116651077`*^9, 3.9940822605248423`*^9}}, - CellLabel-> - "Out[459]=",ExpressionUUID->"416c053f-e7f9-499a-83f3-b3f146c8f4e1"] + 3.991320421698473*^9, {3.9940822116651077`*^9, 3.9940822605248423`*^9}, + 3.994256422945809*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"dd1796a9-0dbf-4554-bdc5-654db81d986c"] }, Open ]], Cell[CellGroupData[{ @@ -5518,14 +5434,13 @@ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", - CellLabel-> - "In[460]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], + CellLabel->"In[90]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], Cell[BoxData["3.836298822642981`"], "Output", CellChangeTimes->{ - 3.991320421726494*^9, {3.994082211674952*^9, 3.994082260535968*^9}}, - CellLabel-> - "Out[460]=",ExpressionUUID->"45010d70-4e75-421d-beb4-8be15802e299"] + 3.991320421726494*^9, {3.994082211674952*^9, 3.994082260535968*^9}, + 3.994256423022586*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"63f0f48b-8586-497c-a19f-45b548779d10"] }, Open ]], Cell[CellGroupData[{ @@ -5534,14 +5449,13 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel-> - "In[461]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], + CellLabel->"In[91]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], Cell[BoxData["189.61083091905178`"], "Output", CellChangeTimes->{ - 3.9913204217554817`*^9, {3.994082211684774*^9, 3.994082260547063*^9}}, - CellLabel-> - "Out[461]=",ExpressionUUID->"c2802e50-c7b5-4415-8acc-7abdab875406"] + 3.9913204217554817`*^9, {3.994082211684774*^9, 3.994082260547063*^9}, + 3.9942564231062326`*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"ba6c623c-02a8-44d0-a4cd-2a0f046c8254"] }, Open ]], Cell[CellGroupData[{ @@ -5550,14 +5464,13 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[462]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], + CellLabel->"In[92]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], Cell[BoxData["38.50400923174681`"], "Output", CellChangeTimes->{ - 3.9913204217855225`*^9, {3.9940822116943083`*^9, 3.99408226055772*^9}}, - CellLabel-> - "Out[462]=",ExpressionUUID->"e798f31f-867f-4b3c-983b-69756ef43bab"] + 3.9913204217855225`*^9, {3.9940822116943083`*^9, 3.99408226055772*^9}, + 3.994256423138695*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"6da0e4e5-9da2-45d8-8311-93619a84a0ab"] }, Open ]], Cell[CellGroupData[{ @@ -5746,14 +5659,13 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[463]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], + CellLabel->"In[93]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], Cell[BoxData["0.005342175127535896`"], "Output", CellChangeTimes->{ - 3.9913204218154297`*^9, {3.994082211704894*^9, 3.994082260568593*^9}}, - CellLabel-> - "Out[463]=",ExpressionUUID->"fb5dc71f-76d1-4c2b-96db-6825a72886e5"] + 3.9913204218154297`*^9, {3.994082211704894*^9, 3.994082260568593*^9}, + 3.994256423212592*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"7ca1e69a-2500-43c0-ad2b-6b073755bbcc"] }, Open ]], Cell[CellGroupData[{ @@ -5767,15 +5679,14 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", Background->RGBColor[0.4, 0.6, 1, 0.33], - CellLabel-> - "In[464]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], + CellLabel->"In[94]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], Cell[BoxData["12.125115386739955`"], "Output", CellChangeTimes->{ - 3.991320422776104*^9, {3.9940822117454567`*^9, 3.994082260641898*^9}}, + 3.991320422776104*^9, {3.9940822117454567`*^9, 3.994082260641898*^9}, + 3.994256423342847*^9}, Background->RGBColor[0.14, 0.8, 0.14, 0.33], - CellLabel-> - "Out[464]=",ExpressionUUID->"43f02828-8363-47e4-b400-993a345a91b2"] + CellLabel->"Out[94]=",ExpressionUUID->"82f38f01-86d6-43ce-af1e-e8d7cf1fea69"] }, Open ]], Cell[CellGroupData[{ @@ -5966,14 +5877,13 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[465]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], + CellLabel->"In[95]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], Cell[BoxData["0.024397039829222016`"], "Output", CellChangeTimes->{ - 3.9913204229248886`*^9, {3.994082211759033*^9, 3.994082260652686*^9}}, - CellLabel-> - "Out[465]=",ExpressionUUID->"1fb26a00-4e0c-4bf5-b1e1-357cc406c913"] + 3.9913204229248886`*^9, {3.994082211759033*^9, 3.994082260652686*^9}, + 3.994256423379428*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"607011f4-23cd-453b-bf36-23cc442dd630"] }, Open ]], Cell[CellGroupData[{ @@ -5986,14 +5896,13 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[466]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], + CellLabel->"In[96]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], Cell[BoxData["5.673830703056657`"], "Output", CellChangeTimes->{ - 3.9913204230053368`*^9, {3.9940822117996893`*^9, 3.9940822607077827`*^9}}, - CellLabel-> - "Out[466]=",ExpressionUUID->"5b198d56-056a-427f-9d9b-d2faa67b15c2"] + 3.9913204230053368`*^9, {3.9940822117996893`*^9, 3.9940822607077827`*^9}, + 3.994256423505569*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"e021aa2a-a90e-4ced-b99f-6e50512305b0"] }, Open ]], Cell[CellGroupData[{ @@ -6085,14 +5994,13 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[467]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], + CellLabel->"In[97]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], Cell[BoxData["0.11447062330044823`"], "Output", CellChangeTimes->{ - 3.9913204230393543`*^9, {3.9940822118135557`*^9, 3.994082260718741*^9}}, - CellLabel-> - "Out[467]=",ExpressionUUID->"6e559820-ab51-4344-9543-8c0e2137ed0d"] + 3.9913204230393543`*^9, {3.9940822118135557`*^9, 3.994082260718741*^9}, + 3.994256423536704*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"c26ffa7d-a548-4336-a1db-b0db9ad30fbe"] }, Open ]], Cell[CellGroupData[{ @@ -6181,14 +6089,13 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[468]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], + CellLabel->"In[98]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], Cell[BoxData["0.8855293766995518`"], "Output", CellChangeTimes->{ - 3.9913204230728855`*^9, {3.994082211824037*^9, 3.9940822607294807`*^9}}, - CellLabel-> - "Out[468]=",ExpressionUUID->"650795d2-84a9-4db4-92ba-cbc37ba66253"] + 3.9913204230728855`*^9, {3.994082211824037*^9, 3.9940822607294807`*^9}, + 3.994256423632989*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"fe47deba-28bd-4d4e-98a0-0f12b6f19b57"] }, Open ]], Cell[CellGroupData[{ @@ -6310,21 +6217,20 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel-> - "In[469]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], + CellLabel->"In[99]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], Cell[BoxData["0.1013670997016551`"], "Output", CellChangeTimes->{ - 3.9913204231038837`*^9, {3.994082211835012*^9, 3.994082260741048*^9}}, - CellLabel-> - "Out[469]=",ExpressionUUID->"8c71c53f-1bfd-428c-8ffe-82c94d65cde6"] + 3.9913204231038837`*^9, {3.994082211835012*^9, 3.994082260741048*^9}, + 3.994256423668509*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"bd79d30c-7a74-4d50-9598-ab5a5dc23d8f"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellLabel-> - "In[470]:=",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], + "In[100]:=",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ @@ -6338,30 +6244,34 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["1", "2"], + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}]}], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -6387,7 +6297,7 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.991799443370365*^9}, CellLabel-> - "In[471]:=",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], + "In[101]:=",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], Cell[BoxData[ TemplateBox[{ @@ -6396,14 +6306,15 @@ Cell[BoxData[ RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ \"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 471, 25, 31386517616921847950, "kernel 2"}, +lost.\"", 2, 101, 1, 31387659680754802437, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ - 3.9913204231548862`*^9, {3.994082211864319*^9, 3.994082260757379*^9}}, + 3.9913204231548862`*^9, {3.994082211864319*^9, 3.994082260757379*^9}, + 3.9942564237704906`*^9}, CellLabel-> "During evaluation of \ -In[471]:=",ExpressionUUID->"29f4d308-2a0d-43d6-b28b-e4add91e8a0a"], +In[101]:=",ExpressionUUID->"f6c50efb-37da-4f71-a36a-860310297ce0"], Cell[BoxData[ TemplateBox[{ @@ -6412,14 +6323,15 @@ Cell[BoxData[ RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ \"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 471, 26, 31386517616921847950, "kernel 2"}, +lost.\"", 2, 101, 2, 31387659680754802437, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ - 3.9913204231548862`*^9, {3.994082211864319*^9, 3.99408226076195*^9}}, + 3.9913204231548862`*^9, {3.994082211864319*^9, 3.994082260757379*^9}, + 3.994256423795067*^9}, CellLabel-> "During evaluation of \ -In[471]:=",ExpressionUUID->"ab1ab79f-e2ac-45ac-a41f-0ec5c838c0e5"], +In[101]:=",ExpressionUUID->"b94de812-4b4d-47f7-869d-7e1381fb21b0"], Cell[BoxData[ TemplateBox[{ @@ -6428,34 +6340,37 @@ Cell[BoxData[ RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ \"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 471, 27, 31386517616921847950, "kernel 2"}, +lost.\"", 2, 101, 3, 31387659680754802437, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ - 3.9913204231548862`*^9, {3.994082211864319*^9, 3.994082260765967*^9}}, + 3.9913204231548862`*^9, {3.994082211864319*^9, 3.994082260757379*^9}, + 3.9942564238055677`*^9}, CellLabel-> "During evaluation of \ -In[471]:=",ExpressionUUID->"7f72033a-702b-4fdc-944a-2864fc8abe3e"], +In[101]:=",ExpressionUUID->"1c3f1469-6004-4477-883b-aebcfeef09ae"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 471, 28, 31386517616921847950, "kernel 2"}, +during this calculation.\"", 2, 101, 4, 31387659680754802437, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ - 3.9913204231548862`*^9, {3.994082211864319*^9, 3.9940822607698183`*^9}}, + 3.9913204231548862`*^9, {3.994082211864319*^9, 3.994082260757379*^9}, + 3.994256423815291*^9}, CellLabel-> "During evaluation of \ -In[471]:=",ExpressionUUID->"f8e5ccc6-e74b-4178-b92a-f01d060fc33f"], +In[101]:=",ExpressionUUID->"94601382-a5ac-47f7-b3dc-a2c8c8ea0862"], Cell[BoxData["12.12511538673996`"], "Output", CellChangeTimes->{ - 3.9913204260017204`*^9, {3.994082213114771*^9, 3.994082262799468*^9}}, + 3.9913204260017204`*^9, {3.994082213114771*^9, 3.994082262799468*^9}, + 3.994256427701961*^9}, CellLabel-> - "Out[471]=",ExpressionUUID->"7dd2a9a8-9cdb-423c-9fc4-d63ccf97c2bb"] + "Out[101]=",ExpressionUUID->"61db18e9-f824-45ad-b13d-cece60bb1975"] }, Open ]], Cell[CellGroupData[{ @@ -6470,30 +6385,34 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["1", "2"], + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}]}], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -6519,7 +6438,7 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.9917994459475594`*^9}, CellLabel-> - "In[472]:=",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], + "In[102]:=",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], Cell[BoxData[ TemplateBox[{ @@ -6528,14 +6447,15 @@ Cell[BoxData[ RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ \"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 472, 29, 31386517616921847950, "kernel 2"}, +lost.\"", 2, 102, 5, 31387659680754802437, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ - 3.9913204262354183`*^9, {3.994082213152547*^9, 3.994082262840848*^9}}, + 3.9913204262354183`*^9, {3.994082213152547*^9, 3.994082262840848*^9}, + 3.994256427765409*^9}, CellLabel-> "During evaluation of \ -In[472]:=",ExpressionUUID->"3e12b230-1ad3-44d9-8eb6-ea75177805c3"], +In[102]:=",ExpressionUUID->"0eb72130-ea3b-4e00-9332-2b7e1d3a1edb"], Cell[BoxData[ TemplateBox[{ @@ -6544,14 +6464,15 @@ Cell[BoxData[ RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ \"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 472, 30, 31386517616921847950, "kernel 2"}, +lost.\"", 2, 102, 6, 31387659680754802437, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ - 3.9913204262354183`*^9, {3.994082213152547*^9, 3.9940822628450193`*^9}}, + 3.9913204262354183`*^9, {3.994082213152547*^9, 3.994082262840848*^9}, + 3.994256427776615*^9}, CellLabel-> "During evaluation of \ -In[472]:=",ExpressionUUID->"f01abd79-4765-43ba-9418-3a3b399624c7"], +In[102]:=",ExpressionUUID->"37275be4-ed4c-4e7b-ac91-3016f9bb03c5"], Cell[BoxData[ TemplateBox[{ @@ -6560,34 +6481,37 @@ Cell[BoxData[ RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ \"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 472, 31, 31386517616921847950, "kernel 2"}, +lost.\"", 2, 102, 7, 31387659680754802437, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ - 3.9913204262354183`*^9, {3.994082213152547*^9, 3.994082262848035*^9}}, + 3.9913204262354183`*^9, {3.994082213152547*^9, 3.994082262840848*^9}, + 3.99425642778752*^9}, CellLabel-> "During evaluation of \ -In[472]:=",ExpressionUUID->"628c8280-d03d-463c-a130-979bccc59aea"], +In[102]:=",ExpressionUUID->"e27787a6-43e7-4a86-8e9e-b321bdf98e3e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 472, 32, 31386517616921847950, "kernel 2"}, +during this calculation.\"", 2, 102, 8, 31387659680754802437, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ - 3.9913204262354183`*^9, {3.994082213152547*^9, 3.9940822628509703`*^9}}, + 3.9913204262354183`*^9, {3.994082213152547*^9, 3.994082262840848*^9}, + 3.994256427798394*^9}, CellLabel-> "During evaluation of \ -In[472]:=",ExpressionUUID->"1200c2ba-bdd1-4a30-a6ef-17d49332922e"], +In[102]:=",ExpressionUUID->"4761d9ab-8067-40c7-b308-9e64381f7123"], -Cell[BoxData["$Aborted"], "Output", +Cell[BoxData["5.673830703056658`"], "Output", CellChangeTimes->{ - 3.991320428882721*^9, {3.994082214469574*^9, 3.994082264545432*^9}}, + 3.991320428882721*^9, {3.994082214469574*^9, 3.994082264545432*^9}, + 3.9942564314949923`*^9}, CellLabel-> - "Out[472]=",ExpressionUUID->"55209329-590f-4177-92cb-c38eb178ce77"] + "Out[102]=",ExpressionUUID->"c39a34bc-f893-47ea-95a1-58ab783e5fd9"] }, Open ]], Cell[CellGroupData[{ @@ -6597,391 +6521,142 @@ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ - FractionBox[ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", RowBox[{ - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", - RowBox[{"Cos", "[", - FractionBox[ - RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], - RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{3.9917994505623856`*^9}, CellLabel-> - "In[370]:=",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], - -Cell[BoxData["$Aborted"], "Output", - CellChangeTimes->{ - 3.9913206956809444`*^9, {3.9940822218544197`*^9, 3.994082258208984*^9}}, - CellLabel-> - "Out[370]=",ExpressionUUID->"16a76c66-3d75-46b0-a19d-62ade5ebdabc"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"x", "=", - RowBox[{"Plot", "[", - RowBox[{ - RowBox[{ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], - RowBox[{ - RowBox[{"(", - RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", - RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", - FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", - FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", - RowBox[{"{", - RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9917994543716736`*^9},ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-\ -9aed2c391662"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.3559275616020787`*^-274\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 86, 9, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320696298666*^9}, - CellLabel-> - "During evaluation of \ -In[86]:=",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.7743624682465165`*^-285\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, 86, - 10, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320696309664*^9}, - CellLabel-> - "During evaluation of \ -In[86]:=",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.227765210043865`*^-297\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 86, 11, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320696318653*^9}, - CellLabel-> - "During evaluation of \ -In[86]:=",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], - -Cell[BoxData[ - TemplateBox[{ - "General", "stop", - "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ -\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 86, 12, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913206963286114`*^9}, - CellLabel-> - "During evaluation of \ -In[86]:=",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], + "In[103]:=",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVmHk4VV8Xx0XGMs9jppCZy3WvYe+lAVEoGdOPZCoylMxFkiEyVkKZMqUS -ShnvFVFUkjmEioyRIhR67/vPOc/nWfvsdfZa37X3OkfKxfeoGz0dHZ017fL/ -++/R9peyCYWo9o3zk23jDqg3RyjEcDAKV7/iO81bQsLA/95FaDANO976fqCv -2AQHWpYNMAwWYB6P5o+3i+0w94Jg2vpAFS7yCdRjLPbEYw3mvssDzXjDfGVq -8l4wNpKd/bQ00I2rp05PX86Ow+sDOjd/DHzBSqcapUVCb+OWfSWFHwp+4W0i -l2uqp0ux2FjtNxflTfyxRT1csrcS0/3yv91+ZBMnBScMDU1V4gkmRVP1oE3M -P5neGv+3Ej9SzXq0+WITR3Ew8rdKV2F0KTTgtu0WfsYeeqrCrwo7ievRd0b9 -w+STMzqWbE/wB5XRpDvzdLBctb7LS+sp5vN2KmPexwCn5ed6504+w4rM99os -bRmg1ziTcfz8MwwF375kejGA8eaT2Zarz7D34FlR5RsM4M1DKnO4/wy/3B+e -aDnJALJOrHPNi89wgHimT2bsdviBjIQDQ57jns5uTaW3jBC5OO+tEFmDp08L -WASMM0LELmfjbSk1eGu7g1fjMiOY/5fR8Dq3Bivqfb5nIc4EgQMe9jLUGhxV -ssgX4MMEk4z3kpk2a7Bm5M7VBi5msJ1y6Lh0oRanaRjVm1uzwMNT+cms9nVY -bdje2MCTBZr3B+Y3udXht9Fne5TCWCCj+uaox7k6zDR4Y44lnwW0ROs7YhLq -cNilr6It8yzw3gFtMTbWYdc3keE60ayAn6YUMInXY6JbvYHkEzb4eUMi609X -Pe7heN/O0cYGJZUFkRXD9div5ov15iAb+JKi1G2+1eOyHWw+Q1tsELqsOOH3 -tx7vqrLLuWG6AwYOe7l9lW3ALP9Wtli+7ICzQ8XH6gMa8Mfb6k1LXOzA6HBL -W5WlEWf1POAM3M0OvP1V2encjdiBQ97pD5kdtHf0v50UacQjV8S36E+xw5rW -zWRLlUY87sOmz1fNDrsT9TPwkUY8vX/iOdGeA3hKvi5fudmI70c4Mdef5YD5 -PcMyz+424jN1QzY0sUA9XYNsX1Ejnlf7sGL8gAPKXOrzPlY34h8iFIL9JgfI -KBUWbfQ24rUfGY/D8jkhWtth/0NOCq5V4v33r5oTSofT9z4UoOBQ9yTz6A5O -SGB6o5IpTsEbw9HfE39xAuFKWS9ZiYIjv9bwv5fmgneODWW3DlBwdGeR1XgA -F3gW0883BVLwhNepMOkILsj0MNlKCafgA6xS91zjueBSiZKyeRQFM+2/83P6 -LhesTu2cSb5OwXG1aalLbVxQelnKQuMeBScURrynF+YGkS93TBY7KNhU6zQP -vww3+NRseV58T8EsL49ay6tww8ST5rT1Hpr/r7uHzQy5oY1vP1/DCAWHS7/9 -duM0N2imp1qc+U7BulXVe0rOc8PjuGXd00sUvGaY6117kRvU/u20tlmh4Asn -z/38lMoNoIv3/N2gYJ88oS25Otp4ettx3x1UrKxOb0h+yQ0Ck/nvxzmoeJY6 -d8WskxtUtJkEgYeKPcYorH5fuOHL5t+WdiEqdpZw469l44FkOU0C224qlig3 -t3vDxwOl4BuxIE/FIwak7E8SPJB9TOLIC0UqtjuxQ4qewANCHEV3NNWp+Mid -SmWz4zww5XP20n5dKuZSzvY94cYD+Vvfcu/qU3FnfXSVry8P7M2nD55EVGw6 -bEu6cYUHrjzsczPcR8UsXoZhxdd54PtEYpz1ASpu+6NIqcnggYWKyTA7Yyre -K7K179MDHhA0FV9UNKNiurKpmMVqHjBQ8A//c4iKKeQP7duaeCDzjuVKjTkV -69kXWsj18oCSs14r/VEq/jN9PY00ygM3dqgpJllRcU1wUJ/pNA90TV66xWJN -xVq3TY/7bvDAeZG8/A5bKv4pr5VzmYkXJiXemPPYU3HFc/HP6Vy8sHiVUfKg -AxX7GDPLFovwAvPOXDHf41SsMvDDvUaWF64arZhFO1LxvPvQ/Q5VXnBNP18d -d4KKy363zI+QeKGPJd05/D8qlhPIOLftMC+kb3zK1HCm4omiyGpeW15QfIh1 -ftG4QPvM2u6TvPC2tVyr8CQtP61WeiQvXtDcNp2534WWH2uDS6YXeIHOq9qn -l8YjE3IvHCN4YcFqoc7qFBVnBXBt943nBR4Iimmmsd32P0aX03lhe7/hR0lX -Kha88TU+/S4vMHYeqvehsZBSdfRaMS8cFgq6VUpjkeaYiBMVvKASraTRS2Mx -e7vQ5lpeGHvEmLZEY4kfey7It/BCz0QZlc6NiiVj//omvuWFuF0dTdtoLC3x -7sxSHy/cXBS9s0wbL1ud42YzxgveF1zsPtJ49yE/5/ppXtA/dnrjMY3lvhoe -l/zJC+1FjMnBNFYI5bW5+pcX5Bf4BQk0VuSetJzdzgfJnFHZY7T1KJc+M7Pg -4ANmpCdzicaqOM7oqSAfqP7Sq+agsXq/vaGwFB8Mfo61S6XFR/Oskv4lRT5o -mlHiY6IxYfsm8SuBD4g70KI3Lb5a2Z0aJgZ8kOnw6UcrLf5EzTzlR0Z8wLas -IclNY1K7vzyPJR8sL3hHmztRsa7zPukgez5IP/Ja9hItn/qrfOIjLnwQuD2W -JY+Wb5T0TdDQmw/o25aJT2l6MGyIZ98RwQcelqTUJzT97LU6zuIXR/N/9MOb -HJq+9s8qM/Sl8sF/9bk+4XZUbCLUtZZTyAeybM1snDZUbBEgMKHZwQe1dAZ+ -aZZUbLljejSjhw8qFd2o3BZUfLSg9uPGCB9Qr3s+uXKYim26HN+3LfIBX9ZS -KTal4hPK9+oc+PkhS9O9UIhWb/+1BFRTJfhh98fYZRVDmr4cjCpkFfiBoYeo -QMRU7Bo3U7Sgyw8SX5UcdulRsdeEWmqUMz+w0T1ot9akYu+wbYlTp/nh/jRJ -kIFW/z48PTGHzvODZdda3D0VKj4HgeECMfxw1HZxvVGBikPuNHiUPeAHimbA -ur0EFcceO4i6f/PDUL7kS21mmt6edorQbxMAwc32sD4GKi7nPbaqsUMApNlF -nrrTUXF/938VqbsEoKmzt/vEOgXLHgmQPmIiAPn3q//lzlJw8+Fcpq5MAQi8 -kj13kbb/2jyS/frvngBM+u+f122j4NmdZVS1cgFo7+OXnn1BwdxvnwYnNwvA -rwT/47tqKdjZtGPWfE4AWvWDTL8VU/Cm0UrnO31B8Oj3OvEjgoJTikMfbBoJ -wmBPolJ/KM0/E12cyhFBiFhVmiu/QMGHWtkMr7sJwvXH333IXhSctU/yyaEk -QdjZu3voiTUFk8As482YIGj9mho3UaDg8+R8p/YoIbjmuPrt4MtGbJrHsWyW -KAQ53VqLApRGLM0cHtd5UwggjX3h4/NG3NVrU9lTKgR37d+sGT5oxKp+OxlG -O4XAP6LuVHYq7bwtDir+KSIMmRMfC8IdG7Ejn/l30SfC8KjF+pvhXAPev/gn -1OerCKjYCTySW6zHISY3FF/Mi0BG1jgs0PqF8nyVId7fIlAgwFpTPlqPhY45 -k2tZRGFjuDBYpLMez9e0rjKoioLYjUOOOQ/rcXpUSkBmsCgYU/8LdPasx1/4 -5XxesovBKaM4cb7hOnxZ/8hJEZI4KLPdeOv+uBbrlmc+vUTdBRdLjG8oz9H6 -t7WlyNfsUqB7IPW+sfpTvK7ENapiLQ0F52Q9KKRKrP/gYd6tWzKwShkuqhl6 -iJd4TJ1tmmUB3hxS1mEsxROJzjbnmOVA7XfOXX2Le/jgYtDBSaI89O7+HsG+ -lIPFNCRiWPTl4YhJXi65OwcvnHvZrGQoD1bjtx+FPsnBN35z6Z8zk4fsjJxU -vcAcPLp5X/WfkzyQmiRcajbu4nM7R3iF4+WhhaIreZf9Ls7aA6OHhuVhI8qh -kgln4/lTLOefRijAFwG+2edjGXghZ38jNVoBzPNsuK+2ZeDFj5HMb+IVILbx -Yanbowz802I9+3O6AvQpFfOeDMvAq3qzLzlKFUBJy+wQCGVger63Aqe7aCzJ -WpptfQsLv0yuE5faA8UBn51zRm/Q+ndB+tjmPSAW8mjOVyENz7gYl+q92gOM -1MtbB/nTcGJ+kPmPN3sgtu3OTQJ9Gu6RGMyy79sDmaOJOtojqdhZOJOgPL0H -1sb2ZS6lpOIQDlG3D+yKUN4wrHNwMwU/XJN4LWqvCE3FxyoSmpOxhY6FT9cJ -RUj/OFbHnJeMf16I4LvqoghaKW1y+ReTMfnXmPOClyIwbwnPKZGTcdv3vPWm -S4pg1sqbm1uZhMe+SCu5FyqCbfdxl18l1zHPO7mkikVFYGRlU5q+n4C3FtWL -OpYVwavz/neHuAQ8y6PXMLGuCHutiGIL7gm42c5iVmi7EtwTuOt/QTYBn58I -MrospAQCa4VzjPnXcO/f11tHDJUg4HN3gHhePM5Q9PL9laYEL0yRWV51LI4+ -fCGG/bYSHDvXEPY3Ixb7+UXclb+rBPsPsFQEhMZik2fpb46XKEGjamVfE46l -9VcN8i/rlcBvj9iPxjcx2MGeffzGhBJMLxWp6M5cxWJxjy2JRGWQdOd+XEGO -xmXlj1rWdZUBFCHNSSoak/oeEBuxMtiM2YTKsUbjY9KlYvsPKoNwRp3QxuAV -nNiQN33EURm+kbo7XoZcwX9/pEaejVKGV8Te6UZqFB6yD6go7FQGEr2w9ajj -ZewZeU7Gs0cZHnwsy/Uxvox/F/vdUhpUhoZrTvN8mpcxz7J3eNVnZfB4oX3o -HvNlbJrkZtK0rAxtacrurU8icW2zzfiwiAoEnqnm5OaKxLeVyFy8HiqgsY9k -U15xEVubvUuheKlA7LXC+M6Ei5jH6yT3GT8VyEgrMeD3uIgTyuJ5XoSoQK5C -ZSW/xEV8ac8Qn2+iCgj6S6WPXQ/HrvJhwm8qVUCMPTbnYkAY1pBplL6yoQL1 -LOU3BE+E4IW9R+6pblMFOQrZ9b1+CC5zmZQZYlQFpeIk/jKxECxbwL5bg1MV -Pv5iffhqJBgLSf0nPyalCpUFecl5/wXjLYl/SnrGqnDB8EVihWcQ7hAx1P6V -qgrnr1+zj7l5AXdJPJbbnqEKBqmagfRBF3C/tLgQ/x1V2Dv9Lvae3QX8WXH9 -D7GYZs+i/LMSu4DXdCubQutUoclLPeJMUQCWOy51iP6rKhiVOAxYUM7jqOxt -p7i11KDaeFKHi+0cjsv1PSZNVoOzHxQOzCz646R7nw4QkBqU/+cs8LXPH2c+ -qFWwNlGDFVOJK6QCf1xR779w21EN4o7+3HLX98ejw59DJK+qQdJXhqvPAv2w -rlhzilq/Gvw8UBYbu90Hf5GRHZ0ZUgPBoYSS6aGzOF4pRqlwTA3cX4ztDK88 -iwd1TduEZtQg7EXMBMnpLA6y7/67bUMN0neMBDI2emMHM3/CLJc6/DHdpGu6 -7IVvxV3OaSCqg3ghMdVX9TQ+k6jZKkxWh/3cp5Ya2E5jlPJ1LlBPHXxtNp4S -pzzxZMYBsgaoQ/4RnqryPE+sVcLaW3RQHRTbn2c/4PfE3a2prMmO6qD2dNSi -itkDczAUBJyMUocq69HkZjY3zLROtVqKVofGwwrrdTOueGvhk+blWHVwYnaV -//zaFS8OCS/lJdKeV71E9yzWFXdVpZ4dv6UO8RVsi2HMrjjN5bK70wN1uP3f -rZtmnKewQLOz3Yledag99+dEJjqJOWou6XzvV4eZv1YPp6RPYqbyOwIXP6rD -YnDHxRPMJ/Fq5mDvnVF1cNj9bJ7S5YwH/S2PjEyrw2N7mX4rN2ecJQWmxzfV -IVmEJVBXyQlLXN6lby+nATc1i9K/Sjvi8vMs0p8UNODO3qipmJXjGLkvMZ9U -0gC2cPObXq+P4xNmLT2e6hrA9LKGsupzHN/h9/AK1tUA4yWeTB6qAxYuK8/K -MNcAgvK1UXYve8zXY7DeF6gBL78kKzD+sMGFrXJj9iG0+d7s24U6bDChhrP1 -U5gG1J9M/VNeaIOP3v2cMhmpAZm7tvbqONjgVI+rCivXNMCqOtp96JU15th4 -a8uXqwFXZA10VB8dw6y7HZ8dfUV733efGLVyjuIzwtj0QbsGbA816duKPIo7 -2KVHGd5qQL/L422/Th3Fib+nGKu7NMA237PYRvEo5nh93lpwiGY3FLjLWHuE -Vu8Jy8PzGpCzRHnb/8kSi1XWabrxaMIxjWnBmVhzHF50t62RTxPOi90PELI1 -x58yIx0EBDXhmrdlepKcOc6JMop6JaoJ75oZKw63HcaSx7o/7NmtCbuH6B6z -sx7Gu1dn/BZ0NEG9V1fFJNsMqxoIPw46oQn5mnm9x36Y4Ccyp//SO2tCReHU -DtOXJpjEVmuc5KIJwxfqOGNum+C9A3bjhR6a4COcPN9laIJt/G9zd/trwoPL -hlIlGcY4okgwQDlGEwK6CTJ0lka4i12A/LlcEw54tAp9+LEPWy+7XfWu1ISf -oHDs29t9eGio+sPqE00owzsqiPf34YkS6zMctZrgMXXaL9ZlH23/v5mt16IJ -hGaFhrGBvVgqkG/r5oAmpGUcFJZ+Z4jPjfK0mNIRgEe6QMyXivHrNsfGMnoC -fI+esqeLx1jicfFzNkYCLBNKtKaOYtwRofuwg5UAhX+tvjyZQlhayuWmKS8B -7m81ierzI/zhVKWHqRwBPAY4mvIj9LH6jMVO00ME0C/7PvIgiYxjPmQylZkT -4Kmemj+PCxmP1H6lYztCgFC/iZImbTKOuxa00m5NgAgtduefn0h4XCl39KAT -AdTNhztzNUg4xWeh4uA5Arg3R4x2TBLx4q9E64O3CfDOPuJxwyUtPDKYb3M3 -iwCHBm1ecB7Xwh2Nz2yX7hAg0XZO4Y6OFi6MHbfPzCfAgpnSI6clAnYQ1fpv -powACcVjCXEeBNy6d9g9vpEABwSubhP9TxNnp+4Jbv9CABmKqJX0OXUcF4hC -xCcJQLik9pzJWh0HHrcK9Z8iwLE6ifciJHVsuftiuPA8AapLf2/lb6phptqu -yNMrBOCz3O8/LKaG/ceD4llZtIB0ivTBzlsFG6u1ZR1U0YIr2cr2Y2aK2I7J -5FiXmhbsFD2zkSikiM98ame31dQC6fKu3IzJPTgp4V2kq44WQOa+qBeRe3D/ -VK97hKEWnKS4y9rWK2DXvK+a1dZa8Pj38V0shvI4invbG8lLWtBnL3Mp55os -vjEdFV0SqQXZjRxqPSdlcTF1O1K9ogUzgc7mVmRZ3HGWpVIvTguo2X1DhBkZ -zN3BmWGTpgWNln/dPQ/J4LwoiVOJxVpwwdY1jSApjSm/9P6udmpBoaHEEcLy -Lpz/9rmL1QctOO/LorTyfBeOLiJ0lPdoQZzcKTap8F34oK1SptugFhz+z0Dl -KeMu3FsnotPzWQuKf/JFV4tL4NnL6+fKl7Xg6XHXm+nOYliA6/msq4g2mEeN -nHdXEcbr05pHm8S0YfuImpraphAeeVFeK7pLG2rSTCzM3wnh/PPFcd0y2hBH -JkRf9xHCygM35UBFGybbPxynqxbEe3MCXERBG0psngI+IoB9lDWHPrhpg1Do -338xLbz4wqrIHydPbZBiunZrLJMXhzcziCyc0YYDFgyR1/x4cYJdnz2bnzag -+t2/eiV4cWl08Me9odqQF6wmqxzBg7+MUAafJGkDnfhjMTdzbjxTUrJmmKoN -yxaTwTl7uPGPcylCXenawPmXQJBi5Mb/WFzs5m9rg7X1j0K6Ri4sps04KHtP -G7AQ2xchdS5sc91s4OZzGudqRocYceATdlqrMnXa8DJTvfkOIwd2lREXrGrQ -hj++s1l7W9nx+doFm84X2rBIV2HOY8SOUyZT+5neasOLa/uDSw7vxB0Gg31B -49rw1Kmmdfg8GzZYcO21ZyXC1/D4R1YCzFig3rigYQcRdqY7tzpPMeGFWEW/ -XRxEYCm3ev2qhgnnSP3YMclDhNHRTs58Rya8dSxsn58YERKMo518SxkxtT61 -KkaNCMkfXgkuW2zHt+MCImc0iKDu1b1uI7cd+1nbmh/SIgJHXZ8u2yYDllwU -m+UmE2Gu0fG20wMGHCldKnV3LxFecO5XeraDARvGU1KeWBNhml55/fbQNixi -k/+fgB0RuHz3MzRVb8M/paOVQxyIUK557b1q6jZc0HDwNXIiwts04eLPJtsw -/Y/ef+2eRPhC9xEl1dPhFps5n/EwIojyownF4//QAVmhw+wFRGD//qpWPeov -evq9Vcq1kGY3U2quPvgXyT4//7uumAj8FVGnS7n/ou2m73M9HxDBZjQ1tKfg -D2r2jfnZ8pQI6WE7tJU61hGqX84IfUWEhld375OV11B5dIH3h3YiPD3bqoD+ -rCJxc0tDhbdEsFw74Fv4ehVtjD+Y7esigkwqITbdfRXVMZ0y0Bgigu3VklvT -xb8R8eiHL1PzRAhYvpw1QFpBxaIRz9EiEZgWh+VKdq4g/knlxJtLRHCbV+95 -N76MloPitPf9JoIL4zCLxLVlVHUXx+X8IwLlsFVyzfgvpDbzSMWaRwckv7RU -mN/9iRQirwU36+iAs5Kz77rFD9SgV8R4SFcH7qp5OeUr/kCWq9S0Pn0duBg+ -5prF+AMF+6w8nDbUgbIwZ50/wYvotaPzZ45DOvD9u8Snb8cXkCeZaHrcWQe2 -TMmBmmgebSxbDky46EDIeog65+YcSqnwcvVx0wHPyT1XQxvmUI18/qXLZ3Tg -ukLy6TX9OcQisPNJSYAOFDDbXfPfP4vu//wsuhynA3hKJu6U9zRC5RulFxN0 -YJErf7WQMI26TwsSmZN0AIwuFJ/6O4X+jB+yFEnXgfXExapjiVPI9P3zaLir -A03O/+JnnnxDsw+uf0+s1IEjTjPx24UnkaIbmbp7SAfuvVe/nab1BSVLm/+5 -MqIDQiNFNy/v/IKWx1y0v4zqgFv2pZCXE58RxSHxQc5XHZC3Cflv363P6Kjl -WIbgdx1w3N/cxrs5jkL0rvqx0pGgNsTqyHTVGBpdy3zgQU+ClrLvbx56j6G9 -z8q/tW4nwY0EOz9G+TG0U2PQMYqVBEZFK9k+d0dRnpzSwb88JCjWWK6jS/2E -XnN/kPq+mwQMfVp9ymnDSOX9pKOZAgmKAphly48No7TEPxn3FUmwmfhbukpw -GDkyy3K4q5Gg4P1nIZQ7hBY3Av+MkkiQZyJQfPDpRyQwLdbTZUaifd8xBVit -DCA3imf0U38SpM3qp1e+7UULZ2eDDgSQILnb4nprZi8KFvf26g8kgateRail -Ry+6Fu57dC2MBMQPI3yvGHpRhW6gpH4MCe5nrDCI7u1BG8+uNLRkkUAyqD48 -qucDinFnrDh2lwSZJoTRpJIPiFMg9t5kLgn69BKf04d/QNIXrl1jLiLB81V5 -krjcB2RMSLUze0wCxrmlou0RXSjtcc5ydwsJlM8V19Re7URiTpLTp9pIMES9 -wrlE7kRFHAXDy69JENO5rDqy8A7VnC1qFugkwUAFIfiVwzv0SelhisMgCVIv -ODe36b5FCqW1yl/mSdB1idNYUKQDUfN6XZf4yeCgE1kjcqgNjR+ScgoUIsPw -cVbBTb42RLd+1v6vCBkyJtzenRxtRXuPMJszSpIhQESw4tG5VtS2TVdHWJEM -yOLCR7X8l+itSy6rIaLZhSjvZ/ha0HeOeYY2IENDKOny2clmxFFP2jLdR4bd -+05ZuTxrRpa83T+PmZBhJf6sQ7Z9M+pp2T7ieZQMaWb1PmpFL9CQ7JnyFHcy -RDYG27JZNqG/Xc9K+U+TQSy2NkhZvgmJXWS4l+VFhjnO18dOblLRib47GYV+ -ZMhb10x9foKKxq++j6wJJcPhe821B+UpaOqbltV4EhkG+3/tSBmpR8ul/1bV -ntPWvyrlW/3yOfpmY5QXX0uGsDderJ6Jz9Hg9usmX+vJILV6KSHr2HNU7yyS -eauJDK1EppXQb89QlJC27mY7GbSkNrN2cD1DXHFnwjtGyFB2tE3xashTRE+s -lJUdI0Ove++uWpOnaPnr6tuLn8lgUD750FHoKRrAV8U1vpGh2GJHy0LNE5Sz -mkvJWCTDtnqfGtl/VUjZo4/OjV4Xeqi73u/MrUQS/GL3Kdt1YfpV5tG3AZWI -q8XliBCzLpgc7Rb+blqJfkn8yH+zQxd2ZopLWKxVoLp+tn2a/LowEijJesm2 -ApkYwdV/8rpQwyuaUna4HJ3a/YA167AuxEVyXrJnKUOhrf+dkbPUBbfN+b3j -LfdRihvPm6qjujA0nCTJF3kfNRSFJL6x1QXxivN54X9KEZ+cCefmSV3AFWbD -MqslqE1uks85UBcqZX6d9OMoRiNtty/MB+uCTT/jjZ29Rein+6H+4DBdOJDz -/bRBVhHaVfIkIzVSF1y0Ax1tFYpQsHyUSMs12nwsDSkHzAqRosIuSblcXfB+ -cVh7rKwAwevuyKp8Xfg47T4rHVKAbDxjPqNCXeiUrhL7ZlyArpR+L7C9rwtn -HhoKffuWj0YUGnbHP9GFRSfHyTLFfJS0x15p/pUu3EhmdopPyUVLiunEqh+6 -kNU1EHikNAsNvoUDvL90QX4Ansi6ZaEmnwWrgBVdGHgxspIlnYWSqg76E//o -woXZlXtncjORoi7dwzoGPXBbZ/t9Nu82cjl4VqpFQA+Impln2ym30ME5EXVZ -YT1w+Pj7gPTVW0j9+mt0VVQPLIPG55gP3UJbXTKOxpJ6sL9hLixg+CbKthu6 -9WaPHnDufHH4Md1N1OthvLNXXw+MQ8RGM0+lo3rWFRFtrAccXPv5lTTTUcGD -gj23DPVgY0O0XXtbOvJb3DSyM9KDzXms9iQvDbEHPb08YqEHisQlPbXJVGQU -I7U64aIH6k4TMehKCqop/Pt5JU4PzAV+W8cLJyLivoBV0wQ9OO1omB7WnYCq -P8/vzLuuByfymxVEExNQlcSojmmaHpQfb2dy3JaAHt5uup6TrQf24VsbNb/i -UV7iVbJxuR78ZpWLSfodiySUtszvVOjBquclt9zaWHS3PdB1qUoPcvCb7gMX -Y1EWk2dy9nM9yOxnGjjMFItuRJpOLjbpwc9KjkrZXTEoPoAz9XaPHlwWlPj0 -+kw0YuGNK/7epwep7/b0pxOjUUwlXcPeQT14x1P1bIw+GkUvLH2bH9GDZxPX -PFfuXEGXPHv1Db/pwUnBMMpqfxQ655g5PbNGi6/SWyOHk5eRw34Z0JPQB7cA -HdFjKRfRZi8LR4ukPkxw2ST5GlxEeW4Lw6Yy+hBycSPHay4cfYupDXJQ0Icd -RS2BGwfD0bl2i8chmvrAMtljvpc7DF0zD5eoMdKH2BA2mbC2YKQydnIeH9SH -xGs+05mRwajL17julZk+aE5eNwjSC0YCqTw2A5b6wMv2tN3tSRAq6Cm9/ttB -Hw4yUj+NPAhEdXZ9G1q++pB+Q1biVmMAOjFT19Hgrw9yNYuPG6MCEF1o3u39 -AfrQHeVAiTEJQEbZXlrHQvRBsnOp9HffedT9aZv3+Sv6sMdDnlly7RyadVEd -rszQByn+J10kO38keja2VrVJH6YqfuXf+uONkv65ayc068PLhbVdPx56I/o0 -o8qpl/rA/uY9E6+zN5p9xng/r10f7o6PEh699kJ1dNG3eXr04RVnAt9mwRnk -cCMy6PekPmTMeSidCfVEnXLOv45O64MqcYM1mOSJ9tZi38ez+jAX/uKnxqoH -Uhzdcvdc1AfMe0L6XqAHWpe/aDO0pg+z6RczD110R7frQ7QpOwxAw8Shx7rU -Fe00t68U4TCAqZ3Zmyf9XFHkOEkliMvg//8HftORXZEn45qsOr8B1LrUxS+9 -OYV0LAL5CiQM4DtQT15Yc0H9X879uqphAHspwtG9Z04ifjbvysO2BmCiUdaz -aXsCFe67GPrD3gAejhv5O205Is2LSfvSHQ0g/B2rW0eRIzL/UdE3eNIArOzO -h1asHkcx/Svrp7wNICwj/4h3iQNaK4jYG3rZAGJ0mOm1tOxQzEjKDvFoA1A5 -c8t7cMYW8QkU9FJjDGD31CdnhzxbpB7/0p0x0QDkfk4vz3PaotO+rAkptwyA -73NkOcu6NRrSS+8pfmAAMlY3DDiXrJDnhcI7B8sNQDpZo8X3iRX6XV7tNl9h -AOJHJZjjA60Qj/TgqsYzA6DLGfD7tHUUmbGIizU2GcD8x6C8XsGjqKG32LWn -jxavQ1PnDpy2RKYcNSqBgwbwwitYbB/REg0at/8WGjaArHOHi4YYLNFy3Vzc -f+MG0G/BXJZnaIFU8tUfzcwagN+GUOShlsOoYcgwMPG7ASRKUUuuuh9GpnxW -WO2HAbwR/xM/wHYYucde+BCwQuOYqPIam0NouSkmS3DNANzDk3MNt8xQ1J+M -U3V/DCDfNaK0v9gMcWndVz6xaQBXhz8+C7A0Qzln61b+/aPli3GwSeivKfof -HbLGog== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk8VdsXAHBzJQ1ISIaMIfJMmbJXZjKTmbjuPYaQOZm9Uq85RfR7RIaS +LiWFIk8lKYo0KGXIcHHNwz0i8tv9cT7n8/3sz1577XXO2ufsohx1pHGwsbGN +4uvPPeKdqkJNxztD2cFvfmDEQIZTxVoUEzpas9t/9Y/787UzZU3qkZ+ej8IB +bHvqWx4+jZfovxJDCSPsyriUF9wmbYiZ3XvMGPtMs0hjStl79FbEUNMU+3FH +xI0V9U+oXd3byRyb2f0m8XjdF5Q0p//JEnvHsIwnafwdfSa6H1tjH5xO1I1q +60PLBTrs9tgNK8yNcWU/UNxDl7tO2J/ThBOqwwaRQI1mrSv2FI8Jc0F9GA00 +dip4YfOcD3fXWGQg8wm1ZV9sCf68loi6UbRyyG4vgW0rRt6aMp5ATpS3zyKw +iQLp7Srrp1CnpYpkHHaKnF36kbZppL1k05eM/UX441/RZbPogmPn6QvYVI/g +oKvn51CNk3Z4FvZMLtvNB2HzSKTVsy4Pe720ytZZdRbiGxo/fg87k/rCfKsQ +ibSnXSZrsaVuu6fsXSTRReOTL55j6+w5NRVa9xOpP5TP6cIO1O5rYxqvIO67 +GQPcxgy0EBfDxSu/ilqGhUIEsFPrNhoorv+N3iT5uEli54DO3YC2NSTwa7+7 +Hja1pMUksowdVHehlWjssuar/WliHHBtz/S/J7FnRnwSM85zwEN94kYmdqIS +q+p+GCdwDpW1PsLOvLdLZlqdG7icr79awe7umGj4XcQNdOr5pC0mOP+5Go/N +Qjyw7YHlNWlsuqbtFZVFHnj0RnbGErvpcTx7SN16yGQGmeZhs1586Bs15gM/ +0fxYF1MGErDm25rQwAfqqZ0xEdhqH01gk+4mOGymPHYeO3joUcFfqpvBZtZu +z0vscI42tf18W2EyOkFW34yBhqUrZtNJftgqIdhjYI7rQ7zZ0K4hAOG8qxKH +sTnuMnaJRAhATJPopzRsKQ1Jx7JxAUgNns5rwfYwvvzgXb8g3K2QL/S0YKB2 +/8go4VYh8P9SGpNtyUC9ty+e812/HS7S9/1qxJ4YLyu6Y7odKns2sJjYvNGD +H/Qbt8PySKIpWDGQyUlnTd9HwjAFDe4z2E+KtVml+aLg7fnUnrBmoOLh5Vi9 +aHFYCH+TdseOgSwOne6NKheHUKOUrh7siSZBs3IGtkP1FQF7BtIs3iMk5S4B +7FL3dZOwmyg+VdyGkvCplWXp6sBAc9P9x0ZPSMGi53i0hBMDCYaaPKyykYbY +z+t//3RhIEYxb6B9sDS8O3ydR8+VgWq/d4hNnpKGnY5fohOwvay9T8g3SsO2 +jIC/17CLlWMdr6vLgPYn0o/PHa/PvD2TLCwLnh/1NHU9Gcg5YKOK1Q85eE4f +UOs7zEAo9pC666ocLGrOBCv7MpBSev4+qqg8hMlO8MRhsxVpGCU7yMP+zdVU +AT8GKu/1dH3wTB5iDz2vOUjB/elCT9tRqAA76aZPO6g4PxObz0yKIhSdKXOU +DWagIqfsb4vJiqAwufw2Efsi5Uc/17+KQDGLvvsJm5oaMy7xQRHiq8bO/3OE +gfjr89icjJVg4Ot25lwIfn80ppTqZJTh1oz+lu6jDCQmfSnl3NAeCBGRF5yL +YaD6swuKSxwqoPY0iTgci+sx7/6R2KUCLPkSlbfYN5pkFY18VICSESZcdoyB +pAOedP7sUoEcB333oON4v/RhOaJVFTweH8hZTWQgcTEJQspdDZprqkWSTjLQ +npJovl9IHSQmjrz/kslAFOoJloqtOnCukjPuWbhfZa70+nqpA1/althv2JyF +9+43x6lDmPTC/b5ruN9uMJ2vVKrDg+nusYkcfJ7m+OYpymhA7WBe8I48/HzP +Wau68WgCPHOof1bCQDcjZe0ftWkBLYnL0qiWgTpi0b6TJbqwwbvQ7dswA+3y ++WTrHbIfbrguFv0WHUG0teoK8eMAdDr1jJnDCBIer10nTDGC1V4Bw3OZIyha +w+D7FSUTmL0p6mvVPYIokystgkxTCLiCnA3lRlG5UdS6/HZzEPHmK2FPHkXF +C8HP6JmWQC1eaO/rGkU/D4i8bUo5CLKG5xrXHRhDPWycsz/8bOBn7dViuftj +KGzn0ctpMnZQOt1V2CXBRBVBLY1Z6fbAShnlzL/BRPHzoovKQQ6g9G45Xlx8 +HLGszFxeHXaEfdVWQ2wV40jXM+PAsIMTsEvKdvObTKBO0bzgJg1nmJQY82B+ +nkA7bp2oL919CKqaekOoSZOotl/J2naTC7xwoH8gJKeQxMeZgNhJF1iaOFUk +2jSFNLIy6EX9rqChH06ZSZxGeVzzqldeuMEDzQq6r/AMqj6wtzv9sTskDVw6 +6xw/g3L2neVfKfOABq1TinU9M6j9W8kpjfOeEM09OCRoMIse2eTKhqd6wX5B +L6gqmkWzoU5sYVRvmItse6DEPYdYZoqBU8Y+kOdocmeIOodKJ7/+jNI+DGL+ +7u9c2uaQ280Sf28+X/DVlrR8rzyPqh4cPMx52hdeD/nlHsmYR7pinUtnlnyh +WW12y/PJeSTTH9D9PsgPFCTkB/eYLqChjUfscgf9oJRbIpCev4A6Ltr6mx+i +wKPsk2fNpxdQZlz+xpgOCjSKish6IRaqb1hb8rf0B9U1hV1fTrHQFi84rfHE +H0rUpSICn7OQ1LZX7Tvr/UHSL6rQ4wULqbXZiPA0+MPuu+vNrJtYyNHA886X +Z/5QI6I1qNLMQpk7Y1uTXvvDGaZeOPM1C+3oubul5Ys/RLNHlFm8ZyFZH+Ec +r0V/eDy2aJfTx0K6vlOl6ZpUuHRKQD1+mYVuXZ+JstWmQnhR1oDuLxba9mHO +UFiHCudiUjYtYU+ZLn4s1adCWdqv9zGrLHx+sbG3GVFh+fkr/iA2Em1e5HcX +cKAC66+ztto8JBq6oLUhP5QK+q4D7cH8+LtblxhUe4sKmZqxHzTlSRSqnq0b +V0qFU/y8HO3Y1ncqN+iUUSHwflxpoAKJeLMZd2rKqdBafczrf7tJlB5pz6x+ +SIVd7ivei0okSlSUPfLoORUURGj3sveSKDi7NeRBL56/dKIzXIdElpsZBpH9 +VGimZLUsYe9OZ9ukPkAF8y4djb91ScSI1CqvHKbC5c+dtAw9EvnZ5k/en6CC +1Iai/XcMSOTGHRV2b5kKCz9SCxuAROZRO8Lp22kQVJ6am2JBouf5p6yuiNBA +0Pi0ILsliQza5mTjdtDAcXVlIA1bTa71q7EEDZ70NZ9NsyKRaFeC8Tc5Gsz3 +di7HWZNoXK9nO68WDVQ2/mVqYU+iSxwFTwOcaHDE2+ltgCve/16+HJtDeFx5 +g+RH7JOecZEarjRQDvv5ErmR+L/MXmHNgwZG3+QEhdxx/gR7xjUKDXJ7tUpr +PEik8YZCfRlBgxKh0DvfvUnUlSG3UeYyDba+ro8o8SdRBdoUOJpBA3dnn2Mk +9snJhabyqzRYkl8bNqOSSN2yKVknmwYW0ey/h7EvsvnP2dygwbcsirA4QSKz +owVf4+g0SP70fCAskETi4v9oG1bQYLQ3IKIae+HN0auc92mgbSobuIpdKI9s +LlbRwHZL+YUzQSRa7elpLHpCA7rC2Zr/BZPoobVY6bsWGoQ37kkoCCHRuWUO +7sw3NHj1VTm9F5tSyvRzb6PB3qFYUiyURFu5nogNtdNAtO/Z5izskDq3S0uf +aVBgPLYtNYxEMkrXYmWHaeAS3hqqG06i5a6kD2MMGpjVmI6EYnek09TujdKg +3t371U3s5B+aTN0JGuRx7a9bF0Gi7pwP3nbzNEj8tyK8DfvKOn7TeHYCdi4h +Xt0oEtXP9XhGcxLQ0HrmWyD2SE9ZZBg3ARbsyxPZ2AYPTQooGwgweCjVMY/N +8I37ZcVPwGt+12uF0Th/a1MBU0ECojMLA9qw9fcJKCIhAoq9/otjYV/eRHfR +ECXALNPUwzQGjz/pqxTbRUDM6UTR79hECb1FSIaAtO8Wo2vYly8f79siR4De +21xSOhavRwhu4lIkIEDoyXsC+7KgeeCEGgG/3Jmpw9hPfgumMNQJcKIKHOQ8 +RqLhsf6sfk0CRHpPOEth6zXGv/ioQ8D6GAU5N+yhkAqJp0AA/X+P6xuwN7sl +aNUYEWBsEZ36GVvX2MK60oQAnv9MT0xiXxQdOF5iQYCDtLCZaByJarnuXc63 +IiD+Eh+PKvbgdMLt69YEKLzi5DbC1mkW+nTBnoD5q0P/BWBTKgfGTzsSUCP2 +MuE49oXcexx/OxOAnLJiz2IPRFqqxboRsFy1sLsMe5PPdvNwDwKEjRL7a//E +sxz0DvYi4J3l0OfmP/Mlk875+BLgc8Eitf9PPrxWhW4UAsoKDDUm/sRjbX/s +SCUg4ft6ucU/8X4MtlsTBBwpKD7EfhzHa7vPMAskgBq/5SUvNqUmaRWCcT3k +zaMEsS8UWm3TDyFg5JKlrxh27QVhZa0wXM/2beelsQfihg7sDScgT/k2uRub +j1rpphhJgJrYWr4q9j675KMy0QT8PCD2j8af+HoHT4nHEhAauVyxD/u8nEie +cBwBkeX/btPHrt46XMUfT4C19O/a/dg/flW+2ZhIQK7qrlz0J/5I8g/uZAKC +fbgaAFu78+DPtRQCZENuSxzA/j97LOHi "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -6995,233 +6670,106 @@ HbLGog== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVmHk4VV8Xx0XGMs9jppCZy3WvYe+lAVEoGdOPZCoylMxFkiEyVkKZMqUS -ShnvFVFUkjmEioyRIhR67/vPOc/nWfvsdfZa37X3OkfKxfeoGz0dHZ017fL/ -++/R9peyCYWo9o3zk23jDqg3RyjEcDAKV7/iO81bQsLA/95FaDANO976fqCv -2AQHWpYNMAwWYB6P5o+3i+0w94Jg2vpAFS7yCdRjLPbEYw3mvssDzXjDfGVq -8l4wNpKd/bQ00I2rp05PX86Ow+sDOjd/DHzBSqcapUVCb+OWfSWFHwp+4W0i -l2uqp0ux2FjtNxflTfyxRT1csrcS0/3yv91+ZBMnBScMDU1V4gkmRVP1oE3M -P5neGv+3Ej9SzXq0+WITR3Ew8rdKV2F0KTTgtu0WfsYeeqrCrwo7ievRd0b9 -w+STMzqWbE/wB5XRpDvzdLBctb7LS+sp5vN2KmPexwCn5ed6504+w4rM99os -bRmg1ziTcfz8MwwF375kejGA8eaT2Zarz7D34FlR5RsM4M1DKnO4/wy/3B+e -aDnJALJOrHPNi89wgHimT2bsdviBjIQDQ57jns5uTaW3jBC5OO+tEFmDp08L -WASMM0LELmfjbSk1eGu7g1fjMiOY/5fR8Dq3Bivqfb5nIc4EgQMe9jLUGhxV -ssgX4MMEk4z3kpk2a7Bm5M7VBi5msJ1y6Lh0oRanaRjVm1uzwMNT+cms9nVY -bdje2MCTBZr3B+Y3udXht9Fne5TCWCCj+uaox7k6zDR4Y44lnwW0ROs7YhLq -cNilr6It8yzw3gFtMTbWYdc3keE60ayAn6YUMInXY6JbvYHkEzb4eUMi609X -Pe7heN/O0cYGJZUFkRXD9div5ov15iAb+JKi1G2+1eOyHWw+Q1tsELqsOOH3 -tx7vqrLLuWG6AwYOe7l9lW3ALP9Wtli+7ICzQ8XH6gMa8Mfb6k1LXOzA6HBL -W5WlEWf1POAM3M0OvP1V2encjdiBQ97pD5kdtHf0v50UacQjV8S36E+xw5rW -zWRLlUY87sOmz1fNDrsT9TPwkUY8vX/iOdGeA3hKvi5fudmI70c4Mdef5YD5 -PcMyz+424jN1QzY0sUA9XYNsX1Ejnlf7sGL8gAPKXOrzPlY34h8iFIL9JgfI -KBUWbfQ24rUfGY/D8jkhWtth/0NOCq5V4v33r5oTSofT9z4UoOBQ9yTz6A5O -SGB6o5IpTsEbw9HfE39xAuFKWS9ZiYIjv9bwv5fmgneODWW3DlBwdGeR1XgA -F3gW0883BVLwhNepMOkILsj0MNlKCafgA6xS91zjueBSiZKyeRQFM+2/83P6 -LhesTu2cSb5OwXG1aalLbVxQelnKQuMeBScURrynF+YGkS93TBY7KNhU6zQP -vww3+NRseV58T8EsL49ay6tww8ST5rT1Hpr/r7uHzQy5oY1vP1/DCAWHS7/9 -duM0N2imp1qc+U7BulXVe0rOc8PjuGXd00sUvGaY6117kRvU/u20tlmh4Asn -z/38lMoNoIv3/N2gYJ88oS25Otp4ettx3x1UrKxOb0h+yQ0Ck/nvxzmoeJY6 -d8WskxtUtJkEgYeKPcYorH5fuOHL5t+WdiEqdpZw469l44FkOU0C224qlig3 -t3vDxwOl4BuxIE/FIwak7E8SPJB9TOLIC0UqtjuxQ4qewANCHEV3NNWp+Mid -SmWz4zww5XP20n5dKuZSzvY94cYD+Vvfcu/qU3FnfXSVry8P7M2nD55EVGw6 -bEu6cYUHrjzsczPcR8UsXoZhxdd54PtEYpz1ASpu+6NIqcnggYWKyTA7Yyre -K7K179MDHhA0FV9UNKNiurKpmMVqHjBQ8A//c4iKKeQP7duaeCDzjuVKjTkV -69kXWsj18oCSs14r/VEq/jN9PY00ygM3dqgpJllRcU1wUJ/pNA90TV66xWJN -xVq3TY/7bvDAeZG8/A5bKv4pr5VzmYkXJiXemPPYU3HFc/HP6Vy8sHiVUfKg -AxX7GDPLFovwAvPOXDHf41SsMvDDvUaWF64arZhFO1LxvPvQ/Q5VXnBNP18d -d4KKy363zI+QeKGPJd05/D8qlhPIOLftMC+kb3zK1HCm4omiyGpeW15QfIh1 -ftG4QPvM2u6TvPC2tVyr8CQtP61WeiQvXtDcNp2534WWH2uDS6YXeIHOq9qn -l8YjE3IvHCN4YcFqoc7qFBVnBXBt943nBR4Iimmmsd32P0aX03lhe7/hR0lX -Kha88TU+/S4vMHYeqvehsZBSdfRaMS8cFgq6VUpjkeaYiBMVvKASraTRS2Mx -e7vQ5lpeGHvEmLZEY4kfey7It/BCz0QZlc6NiiVj//omvuWFuF0dTdtoLC3x -7sxSHy/cXBS9s0wbL1ud42YzxgveF1zsPtJ49yE/5/ppXtA/dnrjMY3lvhoe -l/zJC+1FjMnBNFYI5bW5+pcX5Bf4BQk0VuSetJzdzgfJnFHZY7T1KJc+M7Pg -4ANmpCdzicaqOM7oqSAfqP7Sq+agsXq/vaGwFB8Mfo61S6XFR/Oskv4lRT5o -mlHiY6IxYfsm8SuBD4g70KI3Lb5a2Z0aJgZ8kOnw6UcrLf5EzTzlR0Z8wLas -IclNY1K7vzyPJR8sL3hHmztRsa7zPukgez5IP/Ja9hItn/qrfOIjLnwQuD2W -JY+Wb5T0TdDQmw/o25aJT2l6MGyIZ98RwQcelqTUJzT97LU6zuIXR/N/9MOb -HJq+9s8qM/Sl8sF/9bk+4XZUbCLUtZZTyAeybM1snDZUbBEgMKHZwQe1dAZ+ -aZZUbLljejSjhw8qFd2o3BZUfLSg9uPGCB9Qr3s+uXKYim26HN+3LfIBX9ZS -KTal4hPK9+oc+PkhS9O9UIhWb/+1BFRTJfhh98fYZRVDmr4cjCpkFfiBoYeo -QMRU7Bo3U7Sgyw8SX5UcdulRsdeEWmqUMz+w0T1ot9akYu+wbYlTp/nh/jRJ -kIFW/z48PTGHzvODZdda3D0VKj4HgeECMfxw1HZxvVGBikPuNHiUPeAHimbA -ur0EFcceO4i6f/PDUL7kS21mmt6edorQbxMAwc32sD4GKi7nPbaqsUMApNlF -nrrTUXF/938VqbsEoKmzt/vEOgXLHgmQPmIiAPn3q//lzlJw8+Fcpq5MAQi8 -kj13kbb/2jyS/frvngBM+u+f122j4NmdZVS1cgFo7+OXnn1BwdxvnwYnNwvA -rwT/47tqKdjZtGPWfE4AWvWDTL8VU/Cm0UrnO31B8Oj3OvEjgoJTikMfbBoJ -wmBPolJ/KM0/E12cyhFBiFhVmiu/QMGHWtkMr7sJwvXH333IXhSctU/yyaEk -QdjZu3voiTUFk8As482YIGj9mho3UaDg8+R8p/YoIbjmuPrt4MtGbJrHsWyW -KAQ53VqLApRGLM0cHtd5UwggjX3h4/NG3NVrU9lTKgR37d+sGT5oxKp+OxlG -O4XAP6LuVHYq7bwtDir+KSIMmRMfC8IdG7Ejn/l30SfC8KjF+pvhXAPev/gn -1OerCKjYCTySW6zHISY3FF/Mi0BG1jgs0PqF8nyVId7fIlAgwFpTPlqPhY45 -k2tZRGFjuDBYpLMez9e0rjKoioLYjUOOOQ/rcXpUSkBmsCgYU/8LdPasx1/4 -5XxesovBKaM4cb7hOnxZ/8hJEZI4KLPdeOv+uBbrlmc+vUTdBRdLjG8oz9H6 -t7WlyNfsUqB7IPW+sfpTvK7ENapiLQ0F52Q9KKRKrP/gYd6tWzKwShkuqhl6 -iJd4TJ1tmmUB3hxS1mEsxROJzjbnmOVA7XfOXX2Le/jgYtDBSaI89O7+HsG+ -lIPFNCRiWPTl4YhJXi65OwcvnHvZrGQoD1bjtx+FPsnBN35z6Z8zk4fsjJxU -vcAcPLp5X/WfkzyQmiRcajbu4nM7R3iF4+WhhaIreZf9Ls7aA6OHhuVhI8qh -kgln4/lTLOefRijAFwG+2edjGXghZ38jNVoBzPNsuK+2ZeDFj5HMb+IVILbx -Yanbowz802I9+3O6AvQpFfOeDMvAq3qzLzlKFUBJy+wQCGVger63Aqe7aCzJ -WpptfQsLv0yuE5faA8UBn51zRm/Q+ndB+tjmPSAW8mjOVyENz7gYl+q92gOM -1MtbB/nTcGJ+kPmPN3sgtu3OTQJ9Gu6RGMyy79sDmaOJOtojqdhZOJOgPL0H -1sb2ZS6lpOIQDlG3D+yKUN4wrHNwMwU/XJN4LWqvCE3FxyoSmpOxhY6FT9cJ -RUj/OFbHnJeMf16I4LvqoghaKW1y+ReTMfnXmPOClyIwbwnPKZGTcdv3vPWm -S4pg1sqbm1uZhMe+SCu5FyqCbfdxl18l1zHPO7mkikVFYGRlU5q+n4C3FtWL -OpYVwavz/neHuAQ8y6PXMLGuCHutiGIL7gm42c5iVmi7EtwTuOt/QTYBn58I -MrospAQCa4VzjPnXcO/f11tHDJUg4HN3gHhePM5Q9PL9laYEL0yRWV51LI4+ -fCGG/bYSHDvXEPY3Ixb7+UXclb+rBPsPsFQEhMZik2fpb46XKEGjamVfE46l -9VcN8i/rlcBvj9iPxjcx2MGeffzGhBJMLxWp6M5cxWJxjy2JRGWQdOd+XEGO -xmXlj1rWdZUBFCHNSSoak/oeEBuxMtiM2YTKsUbjY9KlYvsPKoNwRp3QxuAV -nNiQN33EURm+kbo7XoZcwX9/pEaejVKGV8Te6UZqFB6yD6go7FQGEr2w9ajj -ZewZeU7Gs0cZHnwsy/Uxvox/F/vdUhpUhoZrTvN8mpcxz7J3eNVnZfB4oX3o -HvNlbJrkZtK0rAxtacrurU8icW2zzfiwiAoEnqnm5OaKxLeVyFy8HiqgsY9k -U15xEVubvUuheKlA7LXC+M6Ei5jH6yT3GT8VyEgrMeD3uIgTyuJ5XoSoQK5C -ZSW/xEV8ac8Qn2+iCgj6S6WPXQ/HrvJhwm8qVUCMPTbnYkAY1pBplL6yoQL1 -LOU3BE+E4IW9R+6pblMFOQrZ9b1+CC5zmZQZYlQFpeIk/jKxECxbwL5bg1MV -Pv5iffhqJBgLSf0nPyalCpUFecl5/wXjLYl/SnrGqnDB8EVihWcQ7hAx1P6V -qgrnr1+zj7l5AXdJPJbbnqEKBqmagfRBF3C/tLgQ/x1V2Dv9Lvae3QX8WXH9 -D7GYZs+i/LMSu4DXdCubQutUoclLPeJMUQCWOy51iP6rKhiVOAxYUM7jqOxt -p7i11KDaeFKHi+0cjsv1PSZNVoOzHxQOzCz646R7nw4QkBqU/+cs8LXPH2c+ -qFWwNlGDFVOJK6QCf1xR779w21EN4o7+3HLX98ejw59DJK+qQdJXhqvPAv2w -rlhzilq/Gvw8UBYbu90Hf5GRHZ0ZUgPBoYSS6aGzOF4pRqlwTA3cX4ztDK88 -iwd1TduEZtQg7EXMBMnpLA6y7/67bUMN0neMBDI2emMHM3/CLJc6/DHdpGu6 -7IVvxV3OaSCqg3ghMdVX9TQ+k6jZKkxWh/3cp5Ya2E5jlPJ1LlBPHXxtNp4S -pzzxZMYBsgaoQ/4RnqryPE+sVcLaW3RQHRTbn2c/4PfE3a2prMmO6qD2dNSi -itkDczAUBJyMUocq69HkZjY3zLROtVqKVofGwwrrdTOueGvhk+blWHVwYnaV -//zaFS8OCS/lJdKeV71E9yzWFXdVpZ4dv6UO8RVsi2HMrjjN5bK70wN1uP3f -rZtmnKewQLOz3Yledag99+dEJjqJOWou6XzvV4eZv1YPp6RPYqbyOwIXP6rD -YnDHxRPMJ/Fq5mDvnVF1cNj9bJ7S5YwH/S2PjEyrw2N7mX4rN2ecJQWmxzfV -IVmEJVBXyQlLXN6lby+nATc1i9K/Sjvi8vMs0p8UNODO3qipmJXjGLkvMZ9U -0gC2cPObXq+P4xNmLT2e6hrA9LKGsupzHN/h9/AK1tUA4yWeTB6qAxYuK8/K -MNcAgvK1UXYve8zXY7DeF6gBL78kKzD+sMGFrXJj9iG0+d7s24U6bDChhrP1 -U5gG1J9M/VNeaIOP3v2cMhmpAZm7tvbqONjgVI+rCivXNMCqOtp96JU15th4 -a8uXqwFXZA10VB8dw6y7HZ8dfUV733efGLVyjuIzwtj0QbsGbA816duKPIo7 -2KVHGd5qQL/L422/Th3Fib+nGKu7NMA237PYRvEo5nh93lpwiGY3FLjLWHuE -Vu8Jy8PzGpCzRHnb/8kSi1XWabrxaMIxjWnBmVhzHF50t62RTxPOi90PELI1 -x58yIx0EBDXhmrdlepKcOc6JMop6JaoJ75oZKw63HcaSx7o/7NmtCbuH6B6z -sx7Gu1dn/BZ0NEG9V1fFJNsMqxoIPw46oQn5mnm9x36Y4Ccyp//SO2tCReHU -DtOXJpjEVmuc5KIJwxfqOGNum+C9A3bjhR6a4COcPN9laIJt/G9zd/trwoPL -hlIlGcY4okgwQDlGEwK6CTJ0lka4i12A/LlcEw54tAp9+LEPWy+7XfWu1ISf -oHDs29t9eGio+sPqE00owzsqiPf34YkS6zMctZrgMXXaL9ZlH23/v5mt16IJ -hGaFhrGBvVgqkG/r5oAmpGUcFJZ+Z4jPjfK0mNIRgEe6QMyXivHrNsfGMnoC -fI+esqeLx1jicfFzNkYCLBNKtKaOYtwRofuwg5UAhX+tvjyZQlhayuWmKS8B -7m81ierzI/zhVKWHqRwBPAY4mvIj9LH6jMVO00ME0C/7PvIgiYxjPmQylZkT -4Kmemj+PCxmP1H6lYztCgFC/iZImbTKOuxa00m5NgAgtduefn0h4XCl39KAT -AdTNhztzNUg4xWeh4uA5Arg3R4x2TBLx4q9E64O3CfDOPuJxwyUtPDKYb3M3 -iwCHBm1ecB7Xwh2Nz2yX7hAg0XZO4Y6OFi6MHbfPzCfAgpnSI6clAnYQ1fpv -powACcVjCXEeBNy6d9g9vpEABwSubhP9TxNnp+4Jbv9CABmKqJX0OXUcF4hC -xCcJQLik9pzJWh0HHrcK9Z8iwLE6ifciJHVsuftiuPA8AapLf2/lb6phptqu -yNMrBOCz3O8/LKaG/ceD4llZtIB0ivTBzlsFG6u1ZR1U0YIr2cr2Y2aK2I7J -5FiXmhbsFD2zkSikiM98ame31dQC6fKu3IzJPTgp4V2kq44WQOa+qBeRe3D/ -VK97hKEWnKS4y9rWK2DXvK+a1dZa8Pj38V0shvI4invbG8lLWtBnL3Mp55os -vjEdFV0SqQXZjRxqPSdlcTF1O1K9ogUzgc7mVmRZ3HGWpVIvTguo2X1DhBkZ -zN3BmWGTpgWNln/dPQ/J4LwoiVOJxVpwwdY1jSApjSm/9P6udmpBoaHEEcLy -Lpz/9rmL1QctOO/LorTyfBeOLiJ0lPdoQZzcKTap8F34oK1SptugFhz+z0Dl -KeMu3FsnotPzWQuKf/JFV4tL4NnL6+fKl7Xg6XHXm+nOYliA6/msq4g2mEeN -nHdXEcbr05pHm8S0YfuImpraphAeeVFeK7pLG2rSTCzM3wnh/PPFcd0y2hBH -JkRf9xHCygM35UBFGybbPxynqxbEe3MCXERBG0psngI+IoB9lDWHPrhpg1Do -338xLbz4wqrIHydPbZBiunZrLJMXhzcziCyc0YYDFgyR1/x4cYJdnz2bnzag -+t2/eiV4cWl08Me9odqQF6wmqxzBg7+MUAafJGkDnfhjMTdzbjxTUrJmmKoN -yxaTwTl7uPGPcylCXenawPmXQJBi5Mb/WFzs5m9rg7X1j0K6Ri4sps04KHtP -G7AQ2xchdS5sc91s4OZzGudqRocYceATdlqrMnXa8DJTvfkOIwd2lREXrGrQ -hj++s1l7W9nx+doFm84X2rBIV2HOY8SOUyZT+5neasOLa/uDSw7vxB0Gg31B -49rw1Kmmdfg8GzZYcO21ZyXC1/D4R1YCzFig3rigYQcRdqY7tzpPMeGFWEW/ -XRxEYCm3ev2qhgnnSP3YMclDhNHRTs58Rya8dSxsn58YERKMo518SxkxtT61 -KkaNCMkfXgkuW2zHt+MCImc0iKDu1b1uI7cd+1nbmh/SIgJHXZ8u2yYDllwU -m+UmE2Gu0fG20wMGHCldKnV3LxFecO5XeraDARvGU1KeWBNhml55/fbQNixi -k/+fgB0RuHz3MzRVb8M/paOVQxyIUK557b1q6jZc0HDwNXIiwts04eLPJtsw -/Y/ef+2eRPhC9xEl1dPhFps5n/EwIojyownF4//QAVmhw+wFRGD//qpWPeov -evq9Vcq1kGY3U2quPvgXyT4//7uumAj8FVGnS7n/ou2m73M9HxDBZjQ1tKfg -D2r2jfnZ8pQI6WE7tJU61hGqX84IfUWEhld375OV11B5dIH3h3YiPD3bqoD+ -rCJxc0tDhbdEsFw74Fv4ehVtjD+Y7esigkwqITbdfRXVMZ0y0Bgigu3VklvT -xb8R8eiHL1PzRAhYvpw1QFpBxaIRz9EiEZgWh+VKdq4g/knlxJtLRHCbV+95 -N76MloPitPf9JoIL4zCLxLVlVHUXx+X8IwLlsFVyzfgvpDbzSMWaRwckv7RU -mN/9iRQirwU36+iAs5Kz77rFD9SgV8R4SFcH7qp5OeUr/kCWq9S0Pn0duBg+ -5prF+AMF+6w8nDbUgbIwZ50/wYvotaPzZ45DOvD9u8Snb8cXkCeZaHrcWQe2 -TMmBmmgebSxbDky46EDIeog65+YcSqnwcvVx0wHPyT1XQxvmUI18/qXLZ3Tg -ukLy6TX9OcQisPNJSYAOFDDbXfPfP4vu//wsuhynA3hKJu6U9zRC5RulFxN0 -YJErf7WQMI26TwsSmZN0AIwuFJ/6O4X+jB+yFEnXgfXExapjiVPI9P3zaLir -A03O/+JnnnxDsw+uf0+s1IEjTjPx24UnkaIbmbp7SAfuvVe/nab1BSVLm/+5 -MqIDQiNFNy/v/IKWx1y0v4zqgFv2pZCXE58RxSHxQc5XHZC3Cflv363P6Kjl -WIbgdx1w3N/cxrs5jkL0rvqx0pGgNsTqyHTVGBpdy3zgQU+ClrLvbx56j6G9 -z8q/tW4nwY0EOz9G+TG0U2PQMYqVBEZFK9k+d0dRnpzSwb88JCjWWK6jS/2E -XnN/kPq+mwQMfVp9ymnDSOX9pKOZAgmKAphly48No7TEPxn3FUmwmfhbukpw -GDkyy3K4q5Gg4P1nIZQ7hBY3Av+MkkiQZyJQfPDpRyQwLdbTZUaifd8xBVit -DCA3imf0U38SpM3qp1e+7UULZ2eDDgSQILnb4nprZi8KFvf26g8kgateRail -Ry+6Fu57dC2MBMQPI3yvGHpRhW6gpH4MCe5nrDCI7u1BG8+uNLRkkUAyqD48 -qucDinFnrDh2lwSZJoTRpJIPiFMg9t5kLgn69BKf04d/QNIXrl1jLiLB81V5 -krjcB2RMSLUze0wCxrmlou0RXSjtcc5ydwsJlM8V19Re7URiTpLTp9pIMES9 -wrlE7kRFHAXDy69JENO5rDqy8A7VnC1qFugkwUAFIfiVwzv0SelhisMgCVIv -ODe36b5FCqW1yl/mSdB1idNYUKQDUfN6XZf4yeCgE1kjcqgNjR+ScgoUIsPw -cVbBTb42RLd+1v6vCBkyJtzenRxtRXuPMJszSpIhQESw4tG5VtS2TVdHWJEM -yOLCR7X8l+itSy6rIaLZhSjvZ/ha0HeOeYY2IENDKOny2clmxFFP2jLdR4bd -+05ZuTxrRpa83T+PmZBhJf6sQ7Z9M+pp2T7ieZQMaWb1PmpFL9CQ7JnyFHcy -RDYG27JZNqG/Xc9K+U+TQSy2NkhZvgmJXWS4l+VFhjnO18dOblLRib47GYV+ -ZMhb10x9foKKxq++j6wJJcPhe821B+UpaOqbltV4EhkG+3/tSBmpR8ul/1bV -ntPWvyrlW/3yOfpmY5QXX0uGsDderJ6Jz9Hg9usmX+vJILV6KSHr2HNU7yyS -eauJDK1EppXQb89QlJC27mY7GbSkNrN2cD1DXHFnwjtGyFB2tE3xashTRE+s -lJUdI0Ove++uWpOnaPnr6tuLn8lgUD750FHoKRrAV8U1vpGh2GJHy0LNE5Sz -mkvJWCTDtnqfGtl/VUjZo4/OjV4Xeqi73u/MrUQS/GL3Kdt1YfpV5tG3AZWI -q8XliBCzLpgc7Rb+blqJfkn8yH+zQxd2ZopLWKxVoLp+tn2a/LowEijJesm2 -ApkYwdV/8rpQwyuaUna4HJ3a/YA167AuxEVyXrJnKUOhrf+dkbPUBbfN+b3j -LfdRihvPm6qjujA0nCTJF3kfNRSFJL6x1QXxivN54X9KEZ+cCefmSV3AFWbD -MqslqE1uks85UBcqZX6d9OMoRiNtty/MB+uCTT/jjZ29Rein+6H+4DBdOJDz -/bRBVhHaVfIkIzVSF1y0Ax1tFYpQsHyUSMs12nwsDSkHzAqRosIuSblcXfB+ -cVh7rKwAwevuyKp8Xfg47T4rHVKAbDxjPqNCXeiUrhL7ZlyArpR+L7C9rwtn -HhoKffuWj0YUGnbHP9GFRSfHyTLFfJS0x15p/pUu3EhmdopPyUVLiunEqh+6 -kNU1EHikNAsNvoUDvL90QX4Ansi6ZaEmnwWrgBVdGHgxspIlnYWSqg76E//o -woXZlXtncjORoi7dwzoGPXBbZ/t9Nu82cjl4VqpFQA+Impln2ym30ME5EXVZ -YT1w+Pj7gPTVW0j9+mt0VVQPLIPG55gP3UJbXTKOxpJ6sL9hLixg+CbKthu6 -9WaPHnDufHH4Md1N1OthvLNXXw+MQ8RGM0+lo3rWFRFtrAccXPv5lTTTUcGD -gj23DPVgY0O0XXtbOvJb3DSyM9KDzXms9iQvDbEHPb08YqEHisQlPbXJVGQU -I7U64aIH6k4TMehKCqop/Pt5JU4PzAV+W8cLJyLivoBV0wQ9OO1omB7WnYCq -P8/vzLuuByfymxVEExNQlcSojmmaHpQfb2dy3JaAHt5uup6TrQf24VsbNb/i -UV7iVbJxuR78ZpWLSfodiySUtszvVOjBquclt9zaWHS3PdB1qUoPcvCb7gMX -Y1EWk2dy9nM9yOxnGjjMFItuRJpOLjbpwc9KjkrZXTEoPoAz9XaPHlwWlPj0 -+kw0YuGNK/7epwep7/b0pxOjUUwlXcPeQT14x1P1bIw+GkUvLH2bH9GDZxPX -PFfuXEGXPHv1Db/pwUnBMMpqfxQ655g5PbNGi6/SWyOHk5eRw34Z0JPQB7cA -HdFjKRfRZi8LR4ukPkxw2ST5GlxEeW4Lw6Yy+hBycSPHay4cfYupDXJQ0Icd -RS2BGwfD0bl2i8chmvrAMtljvpc7DF0zD5eoMdKH2BA2mbC2YKQydnIeH9SH -xGs+05mRwajL17julZk+aE5eNwjSC0YCqTw2A5b6wMv2tN3tSRAq6Cm9/ttB -Hw4yUj+NPAhEdXZ9G1q++pB+Q1biVmMAOjFT19Hgrw9yNYuPG6MCEF1o3u39 -AfrQHeVAiTEJQEbZXlrHQvRBsnOp9HffedT9aZv3+Sv6sMdDnlly7RyadVEd -rszQByn+J10kO38keja2VrVJH6YqfuXf+uONkv65ayc068PLhbVdPx56I/o0 -o8qpl/rA/uY9E6+zN5p9xng/r10f7o6PEh699kJ1dNG3eXr04RVnAt9mwRnk -cCMy6PekPmTMeSidCfVEnXLOv45O64MqcYM1mOSJ9tZi38ez+jAX/uKnxqoH -Uhzdcvdc1AfMe0L6XqAHWpe/aDO0pg+z6RczD110R7frQ7QpOwxAw8Shx7rU -Fe00t68U4TCAqZ3Zmyf9XFHkOEkliMvg//8HftORXZEn45qsOr8B1LrUxS+9 -OYV0LAL5CiQM4DtQT15Yc0H9X879uqphAHspwtG9Z04ifjbvysO2BmCiUdaz -aXsCFe67GPrD3gAejhv5O205Is2LSfvSHQ0g/B2rW0eRIzL/UdE3eNIArOzO -h1asHkcx/Svrp7wNICwj/4h3iQNaK4jYG3rZAGJ0mOm1tOxQzEjKDvFoA1A5 -c8t7cMYW8QkU9FJjDGD31CdnhzxbpB7/0p0x0QDkfk4vz3PaotO+rAkptwyA -73NkOcu6NRrSS+8pfmAAMlY3DDiXrJDnhcI7B8sNQDpZo8X3iRX6XV7tNl9h -AOJHJZjjA60Qj/TgqsYzA6DLGfD7tHUUmbGIizU2GcD8x6C8XsGjqKG32LWn -jxavQ1PnDpy2RKYcNSqBgwbwwitYbB/REg0at/8WGjaArHOHi4YYLNFy3Vzc -f+MG0G/BXJZnaIFU8tUfzcwagN+GUOShlsOoYcgwMPG7ASRKUUuuuh9GpnxW -WO2HAbwR/xM/wHYYucde+BCwQuOYqPIam0NouSkmS3DNANzDk3MNt8xQ1J+M -U3V/DCDfNaK0v9gMcWndVz6xaQBXhz8+C7A0Qzln61b+/aPli3GwSeivKfof -HbLGog== +1:eJwV1nk8VdsXAHBzJQ1ISIaMIfJMmbJXZjKTmbjuPYaQOZm9Uq85RfR7RIaS +LiWFIk8lKYo0KGXIcHHNwz0i8tv9cT7n8/3sz1577XXO2ufsohx1pHGwsbGN +4uvPPeKdqkJNxztD2cFvfmDEQIZTxVoUEzpas9t/9Y/787UzZU3qkZ+ej8IB +bHvqWx4+jZfovxJDCSPsyriUF9wmbYiZ3XvMGPtMs0hjStl79FbEUNMU+3FH +xI0V9U+oXd3byRyb2f0m8XjdF5Q0p//JEnvHsIwnafwdfSa6H1tjH5xO1I1q +60PLBTrs9tgNK8yNcWU/UNxDl7tO2J/ThBOqwwaRQI1mrSv2FI8Jc0F9GA00 +dip4YfOcD3fXWGQg8wm1ZV9sCf68loi6UbRyyG4vgW0rRt6aMp5ATpS3zyKw +iQLp7Srrp1CnpYpkHHaKnF36kbZppL1k05eM/UX441/RZbPogmPn6QvYVI/g +oKvn51CNk3Z4FvZMLtvNB2HzSKTVsy4Pe720ytZZdRbiGxo/fg87k/rCfKsQ +ibSnXSZrsaVuu6fsXSTRReOTL55j6+w5NRVa9xOpP5TP6cIO1O5rYxqvIO67 +GQPcxgy0EBfDxSu/ilqGhUIEsFPrNhoorv+N3iT5uEli54DO3YC2NSTwa7+7 +Hja1pMUksowdVHehlWjssuar/WliHHBtz/S/J7FnRnwSM85zwEN94kYmdqIS +q+p+GCdwDpW1PsLOvLdLZlqdG7icr79awe7umGj4XcQNdOr5pC0mOP+5Go/N +Qjyw7YHlNWlsuqbtFZVFHnj0RnbGErvpcTx7SN16yGQGmeZhs1586Bs15gM/ +0fxYF1MGErDm25rQwAfqqZ0xEdhqH01gk+4mOGymPHYeO3joUcFfqpvBZtZu +z0vscI42tf18W2EyOkFW34yBhqUrZtNJftgqIdhjYI7rQ7zZ0K4hAOG8qxKH +sTnuMnaJRAhATJPopzRsKQ1Jx7JxAUgNns5rwfYwvvzgXb8g3K2QL/S0YKB2 +/8go4VYh8P9SGpNtyUC9ty+e812/HS7S9/1qxJ4YLyu6Y7odKns2sJjYvNGD +H/Qbt8PySKIpWDGQyUlnTd9HwjAFDe4z2E+KtVml+aLg7fnUnrBmoOLh5Vi9 +aHFYCH+TdseOgSwOne6NKheHUKOUrh7siSZBs3IGtkP1FQF7BtIs3iMk5S4B +7FL3dZOwmyg+VdyGkvCplWXp6sBAc9P9x0ZPSMGi53i0hBMDCYaaPKyykYbY +z+t//3RhIEYxb6B9sDS8O3ydR8+VgWq/d4hNnpKGnY5fohOwvay9T8g3SsO2 +jIC/17CLlWMdr6vLgPYn0o/PHa/PvD2TLCwLnh/1NHU9Gcg5YKOK1Q85eE4f +UOs7zEAo9pC666ocLGrOBCv7MpBSev4+qqg8hMlO8MRhsxVpGCU7yMP+zdVU +AT8GKu/1dH3wTB5iDz2vOUjB/elCT9tRqAA76aZPO6g4PxObz0yKIhSdKXOU +DWagIqfsb4vJiqAwufw2Efsi5Uc/17+KQDGLvvsJm5oaMy7xQRHiq8bO/3OE +gfjr89icjJVg4Ot25lwIfn80ppTqZJTh1oz+lu6jDCQmfSnl3NAeCBGRF5yL +YaD6swuKSxwqoPY0iTgci+sx7/6R2KUCLPkSlbfYN5pkFY18VICSESZcdoyB +pAOedP7sUoEcB333oON4v/RhOaJVFTweH8hZTWQgcTEJQspdDZprqkWSTjLQ +npJovl9IHSQmjrz/kslAFOoJloqtOnCukjPuWbhfZa70+nqpA1/althv2JyF +9+43x6lDmPTC/b5ruN9uMJ2vVKrDg+nusYkcfJ7m+OYpymhA7WBe8I48/HzP +Wau68WgCPHOof1bCQDcjZe0ftWkBLYnL0qiWgTpi0b6TJbqwwbvQ7dswA+3y ++WTrHbIfbrguFv0WHUG0teoK8eMAdDr1jJnDCBIer10nTDGC1V4Bw3OZIyha +w+D7FSUTmL0p6mvVPYIokystgkxTCLiCnA3lRlG5UdS6/HZzEPHmK2FPHkXF +C8HP6JmWQC1eaO/rGkU/D4i8bUo5CLKG5xrXHRhDPWycsz/8bOBn7dViuftj +KGzn0ctpMnZQOt1V2CXBRBVBLY1Z6fbAShnlzL/BRPHzoovKQQ6g9G45Xlx8 +HLGszFxeHXaEfdVWQ2wV40jXM+PAsIMTsEvKdvObTKBO0bzgJg1nmJQY82B+ +nkA7bp2oL919CKqaekOoSZOotl/J2naTC7xwoH8gJKeQxMeZgNhJF1iaOFUk +2jSFNLIy6EX9rqChH06ZSZxGeVzzqldeuMEDzQq6r/AMqj6wtzv9sTskDVw6 +6xw/g3L2neVfKfOABq1TinU9M6j9W8kpjfOeEM09OCRoMIse2eTKhqd6wX5B +L6gqmkWzoU5sYVRvmItse6DEPYdYZoqBU8Y+kOdocmeIOodKJ7/+jNI+DGL+ +7u9c2uaQ280Sf28+X/DVlrR8rzyPqh4cPMx52hdeD/nlHsmYR7pinUtnlnyh +WW12y/PJeSTTH9D9PsgPFCTkB/eYLqChjUfscgf9oJRbIpCev4A6Ltr6mx+i +wKPsk2fNpxdQZlz+xpgOCjSKish6IRaqb1hb8rf0B9U1hV1fTrHQFi84rfHE +H0rUpSICn7OQ1LZX7Tvr/UHSL6rQ4wULqbXZiPA0+MPuu+vNrJtYyNHA886X +Z/5QI6I1qNLMQpk7Y1uTXvvDGaZeOPM1C+3oubul5Ys/RLNHlFm8ZyFZH+Ec +r0V/eDy2aJfTx0K6vlOl6ZpUuHRKQD1+mYVuXZ+JstWmQnhR1oDuLxba9mHO +UFiHCudiUjYtYU+ZLn4s1adCWdqv9zGrLHx+sbG3GVFh+fkr/iA2Em1e5HcX +cKAC66+ztto8JBq6oLUhP5QK+q4D7cH8+LtblxhUe4sKmZqxHzTlSRSqnq0b +V0qFU/y8HO3Y1ncqN+iUUSHwflxpoAKJeLMZd2rKqdBafczrf7tJlB5pz6x+ +SIVd7ivei0okSlSUPfLoORUURGj3sveSKDi7NeRBL56/dKIzXIdElpsZBpH9 +VGimZLUsYe9OZ9ukPkAF8y4djb91ScSI1CqvHKbC5c+dtAw9EvnZ5k/en6CC +1Iai/XcMSOTGHRV2b5kKCz9SCxuAROZRO8Lp22kQVJ6am2JBouf5p6yuiNBA +0Pi0ILsliQza5mTjdtDAcXVlIA1bTa71q7EEDZ70NZ9NsyKRaFeC8Tc5Gsz3 +di7HWZNoXK9nO68WDVQ2/mVqYU+iSxwFTwOcaHDE2+ltgCve/16+HJtDeFx5 +g+RH7JOecZEarjRQDvv5ErmR+L/MXmHNgwZG3+QEhdxx/gR7xjUKDXJ7tUpr +PEik8YZCfRlBgxKh0DvfvUnUlSG3UeYyDba+ro8o8SdRBdoUOJpBA3dnn2Mk +9snJhabyqzRYkl8bNqOSSN2yKVknmwYW0ey/h7EvsvnP2dygwbcsirA4QSKz +owVf4+g0SP70fCAskETi4v9oG1bQYLQ3IKIae+HN0auc92mgbSobuIpdKI9s +LlbRwHZL+YUzQSRa7elpLHpCA7rC2Zr/BZPoobVY6bsWGoQ37kkoCCHRuWUO +7sw3NHj1VTm9F5tSyvRzb6PB3qFYUiyURFu5nogNtdNAtO/Z5izskDq3S0uf +aVBgPLYtNYxEMkrXYmWHaeAS3hqqG06i5a6kD2MMGpjVmI6EYnek09TujdKg +3t371U3s5B+aTN0JGuRx7a9bF0Gi7pwP3nbzNEj8tyK8DfvKOn7TeHYCdi4h +Xt0oEtXP9XhGcxLQ0HrmWyD2SE9ZZBg3ARbsyxPZ2AYPTQooGwgweCjVMY/N +8I37ZcVPwGt+12uF0Th/a1MBU0ECojMLA9qw9fcJKCIhAoq9/otjYV/eRHfR +ECXALNPUwzQGjz/pqxTbRUDM6UTR79hECb1FSIaAtO8Wo2vYly8f79siR4De +21xSOhavRwhu4lIkIEDoyXsC+7KgeeCEGgG/3Jmpw9hPfgumMNQJcKIKHOQ8 +RqLhsf6sfk0CRHpPOEth6zXGv/ioQ8D6GAU5N+yhkAqJp0AA/X+P6xuwN7sl +aNUYEWBsEZ36GVvX2MK60oQAnv9MT0xiXxQdOF5iQYCDtLCZaByJarnuXc63 +IiD+Eh+PKvbgdMLt69YEKLzi5DbC1mkW+nTBnoD5q0P/BWBTKgfGTzsSUCP2 +MuE49oXcexx/OxOAnLJiz2IPRFqqxboRsFy1sLsMe5PPdvNwDwKEjRL7a//E +sxz0DvYi4J3l0OfmP/Mlk875+BLgc8Eitf9PPrxWhW4UAsoKDDUm/sRjbX/s +SCUg4ft6ucU/8X4MtlsTBBwpKD7EfhzHa7vPMAskgBq/5SUvNqUmaRWCcT3k +zaMEsS8UWm3TDyFg5JKlrxh27QVhZa0wXM/2beelsQfihg7sDScgT/k2uRub +j1rpphhJgJrYWr4q9j675KMy0QT8PCD2j8af+HoHT4nHEhAauVyxD/u8nEie +cBwBkeX/btPHrt46XMUfT4C19O/a/dg/flW+2ZhIQK7qrlz0J/5I8g/uZAKC +fbgaAFu78+DPtRQCZENuSxzA/j97LOHi "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "PlotRange" -> {{0, 180}, {0.6955873404795949, + 1.4046031186505923`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, - "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> - GoldenRatio^(-1), "DefaultStyle" -> { + "AxesOrigin" -> {0, 0.6955873404795965}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7233,19 +6781,21 @@ HbLGog== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, - "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "PlotRange" -> {{0, 180}, {0.6955873404795949, + 1.4046031186505923`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6955873404795965}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7259,232 +6809,104 @@ HbLGog== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVmHk4VV8Xx0XGMs9jppCZy3WvYe+lAVEoGdOPZCoylMxFkiEyVkKZMqUS -ShnvFVFUkjmEioyRIhR67/vPOc/nWfvsdfZa37X3OkfKxfeoGz0dHZ017fL/ -++/R9peyCYWo9o3zk23jDqg3RyjEcDAKV7/iO81bQsLA/95FaDANO976fqCv -2AQHWpYNMAwWYB6P5o+3i+0w94Jg2vpAFS7yCdRjLPbEYw3mvssDzXjDfGVq -8l4wNpKd/bQ00I2rp05PX86Ow+sDOjd/DHzBSqcapUVCb+OWfSWFHwp+4W0i -l2uqp0ux2FjtNxflTfyxRT1csrcS0/3yv91+ZBMnBScMDU1V4gkmRVP1oE3M -P5neGv+3Ej9SzXq0+WITR3Ew8rdKV2F0KTTgtu0WfsYeeqrCrwo7ievRd0b9 -w+STMzqWbE/wB5XRpDvzdLBctb7LS+sp5vN2KmPexwCn5ed6504+w4rM99os -bRmg1ziTcfz8MwwF375kejGA8eaT2Zarz7D34FlR5RsM4M1DKnO4/wy/3B+e -aDnJALJOrHPNi89wgHimT2bsdviBjIQDQ57jns5uTaW3jBC5OO+tEFmDp08L -WASMM0LELmfjbSk1eGu7g1fjMiOY/5fR8Dq3Bivqfb5nIc4EgQMe9jLUGhxV -ssgX4MMEk4z3kpk2a7Bm5M7VBi5msJ1y6Lh0oRanaRjVm1uzwMNT+cms9nVY -bdje2MCTBZr3B+Y3udXht9Fne5TCWCCj+uaox7k6zDR4Y44lnwW0ROs7YhLq -cNilr6It8yzw3gFtMTbWYdc3keE60ayAn6YUMInXY6JbvYHkEzb4eUMi609X -Pe7heN/O0cYGJZUFkRXD9div5ov15iAb+JKi1G2+1eOyHWw+Q1tsELqsOOH3 -tx7vqrLLuWG6AwYOe7l9lW3ALP9Wtli+7ICzQ8XH6gMa8Mfb6k1LXOzA6HBL -W5WlEWf1POAM3M0OvP1V2encjdiBQ97pD5kdtHf0v50UacQjV8S36E+xw5rW -zWRLlUY87sOmz1fNDrsT9TPwkUY8vX/iOdGeA3hKvi5fudmI70c4Mdef5YD5 -PcMyz+424jN1QzY0sUA9XYNsX1Ejnlf7sGL8gAPKXOrzPlY34h8iFIL9JgfI -KBUWbfQ24rUfGY/D8jkhWtth/0NOCq5V4v33r5oTSofT9z4UoOBQ9yTz6A5O -SGB6o5IpTsEbw9HfE39xAuFKWS9ZiYIjv9bwv5fmgneODWW3DlBwdGeR1XgA -F3gW0883BVLwhNepMOkILsj0MNlKCafgA6xS91zjueBSiZKyeRQFM+2/83P6 -LhesTu2cSb5OwXG1aalLbVxQelnKQuMeBScURrynF+YGkS93TBY7KNhU6zQP -vww3+NRseV58T8EsL49ay6tww8ST5rT1Hpr/r7uHzQy5oY1vP1/DCAWHS7/9 -duM0N2imp1qc+U7BulXVe0rOc8PjuGXd00sUvGaY6117kRvU/u20tlmh4Asn -z/38lMoNoIv3/N2gYJ88oS25Otp4ettx3x1UrKxOb0h+yQ0Ck/nvxzmoeJY6 -d8WskxtUtJkEgYeKPcYorH5fuOHL5t+WdiEqdpZw469l44FkOU0C224qlig3 -t3vDxwOl4BuxIE/FIwak7E8SPJB9TOLIC0UqtjuxQ4qewANCHEV3NNWp+Mid -SmWz4zww5XP20n5dKuZSzvY94cYD+Vvfcu/qU3FnfXSVry8P7M2nD55EVGw6 -bEu6cYUHrjzsczPcR8UsXoZhxdd54PtEYpz1ASpu+6NIqcnggYWKyTA7Yyre -K7K179MDHhA0FV9UNKNiurKpmMVqHjBQ8A//c4iKKeQP7duaeCDzjuVKjTkV -69kXWsj18oCSs14r/VEq/jN9PY00ygM3dqgpJllRcU1wUJ/pNA90TV66xWJN -xVq3TY/7bvDAeZG8/A5bKv4pr5VzmYkXJiXemPPYU3HFc/HP6Vy8sHiVUfKg -AxX7GDPLFovwAvPOXDHf41SsMvDDvUaWF64arZhFO1LxvPvQ/Q5VXnBNP18d -d4KKy363zI+QeKGPJd05/D8qlhPIOLftMC+kb3zK1HCm4omiyGpeW15QfIh1 -ftG4QPvM2u6TvPC2tVyr8CQtP61WeiQvXtDcNp2534WWH2uDS6YXeIHOq9qn -l8YjE3IvHCN4YcFqoc7qFBVnBXBt943nBR4Iimmmsd32P0aX03lhe7/hR0lX -Kha88TU+/S4vMHYeqvehsZBSdfRaMS8cFgq6VUpjkeaYiBMVvKASraTRS2Mx -e7vQ5lpeGHvEmLZEY4kfey7It/BCz0QZlc6NiiVj//omvuWFuF0dTdtoLC3x -7sxSHy/cXBS9s0wbL1ud42YzxgveF1zsPtJ49yE/5/ppXtA/dnrjMY3lvhoe -l/zJC+1FjMnBNFYI5bW5+pcX5Bf4BQk0VuSetJzdzgfJnFHZY7T1KJc+M7Pg -4ANmpCdzicaqOM7oqSAfqP7Sq+agsXq/vaGwFB8Mfo61S6XFR/Oskv4lRT5o -mlHiY6IxYfsm8SuBD4g70KI3Lb5a2Z0aJgZ8kOnw6UcrLf5EzTzlR0Z8wLas -IclNY1K7vzyPJR8sL3hHmztRsa7zPukgez5IP/Ja9hItn/qrfOIjLnwQuD2W -JY+Wb5T0TdDQmw/o25aJT2l6MGyIZ98RwQcelqTUJzT97LU6zuIXR/N/9MOb -HJq+9s8qM/Sl8sF/9bk+4XZUbCLUtZZTyAeybM1snDZUbBEgMKHZwQe1dAZ+ -aZZUbLljejSjhw8qFd2o3BZUfLSg9uPGCB9Qr3s+uXKYim26HN+3LfIBX9ZS -KTal4hPK9+oc+PkhS9O9UIhWb/+1BFRTJfhh98fYZRVDmr4cjCpkFfiBoYeo -QMRU7Bo3U7Sgyw8SX5UcdulRsdeEWmqUMz+w0T1ot9akYu+wbYlTp/nh/jRJ -kIFW/z48PTGHzvODZdda3D0VKj4HgeECMfxw1HZxvVGBikPuNHiUPeAHimbA -ur0EFcceO4i6f/PDUL7kS21mmt6edorQbxMAwc32sD4GKi7nPbaqsUMApNlF -nrrTUXF/938VqbsEoKmzt/vEOgXLHgmQPmIiAPn3q//lzlJw8+Fcpq5MAQi8 -kj13kbb/2jyS/frvngBM+u+f122j4NmdZVS1cgFo7+OXnn1BwdxvnwYnNwvA -rwT/47tqKdjZtGPWfE4AWvWDTL8VU/Cm0UrnO31B8Oj3OvEjgoJTikMfbBoJ -wmBPolJ/KM0/E12cyhFBiFhVmiu/QMGHWtkMr7sJwvXH333IXhSctU/yyaEk -QdjZu3voiTUFk8As482YIGj9mho3UaDg8+R8p/YoIbjmuPrt4MtGbJrHsWyW -KAQ53VqLApRGLM0cHtd5UwggjX3h4/NG3NVrU9lTKgR37d+sGT5oxKp+OxlG -O4XAP6LuVHYq7bwtDir+KSIMmRMfC8IdG7Ejn/l30SfC8KjF+pvhXAPev/gn -1OerCKjYCTySW6zHISY3FF/Mi0BG1jgs0PqF8nyVId7fIlAgwFpTPlqPhY45 -k2tZRGFjuDBYpLMez9e0rjKoioLYjUOOOQ/rcXpUSkBmsCgYU/8LdPasx1/4 -5XxesovBKaM4cb7hOnxZ/8hJEZI4KLPdeOv+uBbrlmc+vUTdBRdLjG8oz9H6 -t7WlyNfsUqB7IPW+sfpTvK7ENapiLQ0F52Q9KKRKrP/gYd6tWzKwShkuqhl6 -iJd4TJ1tmmUB3hxS1mEsxROJzjbnmOVA7XfOXX2Le/jgYtDBSaI89O7+HsG+ -lIPFNCRiWPTl4YhJXi65OwcvnHvZrGQoD1bjtx+FPsnBN35z6Z8zk4fsjJxU -vcAcPLp5X/WfkzyQmiRcajbu4nM7R3iF4+WhhaIreZf9Ls7aA6OHhuVhI8qh -kgln4/lTLOefRijAFwG+2edjGXghZ38jNVoBzPNsuK+2ZeDFj5HMb+IVILbx -Yanbowz802I9+3O6AvQpFfOeDMvAq3qzLzlKFUBJy+wQCGVger63Aqe7aCzJ -WpptfQsLv0yuE5faA8UBn51zRm/Q+ndB+tjmPSAW8mjOVyENz7gYl+q92gOM -1MtbB/nTcGJ+kPmPN3sgtu3OTQJ9Gu6RGMyy79sDmaOJOtojqdhZOJOgPL0H -1sb2ZS6lpOIQDlG3D+yKUN4wrHNwMwU/XJN4LWqvCE3FxyoSmpOxhY6FT9cJ -RUj/OFbHnJeMf16I4LvqoghaKW1y+ReTMfnXmPOClyIwbwnPKZGTcdv3vPWm -S4pg1sqbm1uZhMe+SCu5FyqCbfdxl18l1zHPO7mkikVFYGRlU5q+n4C3FtWL -OpYVwavz/neHuAQ8y6PXMLGuCHutiGIL7gm42c5iVmi7EtwTuOt/QTYBn58I -MrospAQCa4VzjPnXcO/f11tHDJUg4HN3gHhePM5Q9PL9laYEL0yRWV51LI4+ -fCGG/bYSHDvXEPY3Ixb7+UXclb+rBPsPsFQEhMZik2fpb46XKEGjamVfE46l -9VcN8i/rlcBvj9iPxjcx2MGeffzGhBJMLxWp6M5cxWJxjy2JRGWQdOd+XEGO -xmXlj1rWdZUBFCHNSSoak/oeEBuxMtiM2YTKsUbjY9KlYvsPKoNwRp3QxuAV -nNiQN33EURm+kbo7XoZcwX9/pEaejVKGV8Te6UZqFB6yD6go7FQGEr2w9ajj -ZewZeU7Gs0cZHnwsy/Uxvox/F/vdUhpUhoZrTvN8mpcxz7J3eNVnZfB4oX3o -HvNlbJrkZtK0rAxtacrurU8icW2zzfiwiAoEnqnm5OaKxLeVyFy8HiqgsY9k -U15xEVubvUuheKlA7LXC+M6Ei5jH6yT3GT8VyEgrMeD3uIgTyuJ5XoSoQK5C -ZSW/xEV8ac8Qn2+iCgj6S6WPXQ/HrvJhwm8qVUCMPTbnYkAY1pBplL6yoQL1 -LOU3BE+E4IW9R+6pblMFOQrZ9b1+CC5zmZQZYlQFpeIk/jKxECxbwL5bg1MV -Pv5iffhqJBgLSf0nPyalCpUFecl5/wXjLYl/SnrGqnDB8EVihWcQ7hAx1P6V -qgrnr1+zj7l5AXdJPJbbnqEKBqmagfRBF3C/tLgQ/x1V2Dv9Lvae3QX8WXH9 -D7GYZs+i/LMSu4DXdCubQutUoclLPeJMUQCWOy51iP6rKhiVOAxYUM7jqOxt -p7i11KDaeFKHi+0cjsv1PSZNVoOzHxQOzCz646R7nw4QkBqU/+cs8LXPH2c+ -qFWwNlGDFVOJK6QCf1xR779w21EN4o7+3HLX98ejw59DJK+qQdJXhqvPAv2w -rlhzilq/Gvw8UBYbu90Hf5GRHZ0ZUgPBoYSS6aGzOF4pRqlwTA3cX4ztDK88 -iwd1TduEZtQg7EXMBMnpLA6y7/67bUMN0neMBDI2emMHM3/CLJc6/DHdpGu6 -7IVvxV3OaSCqg3ghMdVX9TQ+k6jZKkxWh/3cp5Ya2E5jlPJ1LlBPHXxtNp4S -pzzxZMYBsgaoQ/4RnqryPE+sVcLaW3RQHRTbn2c/4PfE3a2prMmO6qD2dNSi -itkDczAUBJyMUocq69HkZjY3zLROtVqKVofGwwrrdTOueGvhk+blWHVwYnaV -//zaFS8OCS/lJdKeV71E9yzWFXdVpZ4dv6UO8RVsi2HMrjjN5bK70wN1uP3f -rZtmnKewQLOz3Yledag99+dEJjqJOWou6XzvV4eZv1YPp6RPYqbyOwIXP6rD -YnDHxRPMJ/Fq5mDvnVF1cNj9bJ7S5YwH/S2PjEyrw2N7mX4rN2ecJQWmxzfV -IVmEJVBXyQlLXN6lby+nATc1i9K/Sjvi8vMs0p8UNODO3qipmJXjGLkvMZ9U -0gC2cPObXq+P4xNmLT2e6hrA9LKGsupzHN/h9/AK1tUA4yWeTB6qAxYuK8/K -MNcAgvK1UXYve8zXY7DeF6gBL78kKzD+sMGFrXJj9iG0+d7s24U6bDChhrP1 -U5gG1J9M/VNeaIOP3v2cMhmpAZm7tvbqONjgVI+rCivXNMCqOtp96JU15th4 -a8uXqwFXZA10VB8dw6y7HZ8dfUV733efGLVyjuIzwtj0QbsGbA816duKPIo7 -2KVHGd5qQL/L422/Th3Fib+nGKu7NMA237PYRvEo5nh93lpwiGY3FLjLWHuE -Vu8Jy8PzGpCzRHnb/8kSi1XWabrxaMIxjWnBmVhzHF50t62RTxPOi90PELI1 -x58yIx0EBDXhmrdlepKcOc6JMop6JaoJ75oZKw63HcaSx7o/7NmtCbuH6B6z -sx7Gu1dn/BZ0NEG9V1fFJNsMqxoIPw46oQn5mnm9x36Y4Ccyp//SO2tCReHU -DtOXJpjEVmuc5KIJwxfqOGNum+C9A3bjhR6a4COcPN9laIJt/G9zd/trwoPL -hlIlGcY4okgwQDlGEwK6CTJ0lka4i12A/LlcEw54tAp9+LEPWy+7XfWu1ISf -oHDs29t9eGio+sPqE00owzsqiPf34YkS6zMctZrgMXXaL9ZlH23/v5mt16IJ -hGaFhrGBvVgqkG/r5oAmpGUcFJZ+Z4jPjfK0mNIRgEe6QMyXivHrNsfGMnoC -fI+esqeLx1jicfFzNkYCLBNKtKaOYtwRofuwg5UAhX+tvjyZQlhayuWmKS8B -7m81ierzI/zhVKWHqRwBPAY4mvIj9LH6jMVO00ME0C/7PvIgiYxjPmQylZkT -4Kmemj+PCxmP1H6lYztCgFC/iZImbTKOuxa00m5NgAgtduefn0h4XCl39KAT -AdTNhztzNUg4xWeh4uA5Arg3R4x2TBLx4q9E64O3CfDOPuJxwyUtPDKYb3M3 -iwCHBm1ecB7Xwh2Nz2yX7hAg0XZO4Y6OFi6MHbfPzCfAgpnSI6clAnYQ1fpv -powACcVjCXEeBNy6d9g9vpEABwSubhP9TxNnp+4Jbv9CABmKqJX0OXUcF4hC -xCcJQLik9pzJWh0HHrcK9Z8iwLE6ifciJHVsuftiuPA8AapLf2/lb6phptqu -yNMrBOCz3O8/LKaG/ceD4llZtIB0ivTBzlsFG6u1ZR1U0YIr2cr2Y2aK2I7J -5FiXmhbsFD2zkSikiM98ame31dQC6fKu3IzJPTgp4V2kq44WQOa+qBeRe3D/ -VK97hKEWnKS4y9rWK2DXvK+a1dZa8Pj38V0shvI4invbG8lLWtBnL3Mp55os -vjEdFV0SqQXZjRxqPSdlcTF1O1K9ogUzgc7mVmRZ3HGWpVIvTguo2X1DhBkZ -zN3BmWGTpgWNln/dPQ/J4LwoiVOJxVpwwdY1jSApjSm/9P6udmpBoaHEEcLy -Lpz/9rmL1QctOO/LorTyfBeOLiJ0lPdoQZzcKTap8F34oK1SptugFhz+z0Dl -KeMu3FsnotPzWQuKf/JFV4tL4NnL6+fKl7Xg6XHXm+nOYliA6/msq4g2mEeN -nHdXEcbr05pHm8S0YfuImpraphAeeVFeK7pLG2rSTCzM3wnh/PPFcd0y2hBH -JkRf9xHCygM35UBFGybbPxynqxbEe3MCXERBG0psngI+IoB9lDWHPrhpg1Do -338xLbz4wqrIHydPbZBiunZrLJMXhzcziCyc0YYDFgyR1/x4cYJdnz2bnzag -+t2/eiV4cWl08Me9odqQF6wmqxzBg7+MUAafJGkDnfhjMTdzbjxTUrJmmKoN -yxaTwTl7uPGPcylCXenawPmXQJBi5Mb/WFzs5m9rg7X1j0K6Ri4sps04KHtP -G7AQ2xchdS5sc91s4OZzGudqRocYceATdlqrMnXa8DJTvfkOIwd2lREXrGrQ -hj++s1l7W9nx+doFm84X2rBIV2HOY8SOUyZT+5neasOLa/uDSw7vxB0Gg31B -49rw1Kmmdfg8GzZYcO21ZyXC1/D4R1YCzFig3rigYQcRdqY7tzpPMeGFWEW/ -XRxEYCm3ev2qhgnnSP3YMclDhNHRTs58Rya8dSxsn58YERKMo518SxkxtT61 -KkaNCMkfXgkuW2zHt+MCImc0iKDu1b1uI7cd+1nbmh/SIgJHXZ8u2yYDllwU -m+UmE2Gu0fG20wMGHCldKnV3LxFecO5XeraDARvGU1KeWBNhml55/fbQNixi -k/+fgB0RuHz3MzRVb8M/paOVQxyIUK557b1q6jZc0HDwNXIiwts04eLPJtsw -/Y/ef+2eRPhC9xEl1dPhFps5n/EwIojyownF4//QAVmhw+wFRGD//qpWPeov -evq9Vcq1kGY3U2quPvgXyT4//7uumAj8FVGnS7n/ou2m73M9HxDBZjQ1tKfg -D2r2jfnZ8pQI6WE7tJU61hGqX84IfUWEhld375OV11B5dIH3h3YiPD3bqoD+ -rCJxc0tDhbdEsFw74Fv4ehVtjD+Y7esigkwqITbdfRXVMZ0y0Bgigu3VklvT -xb8R8eiHL1PzRAhYvpw1QFpBxaIRz9EiEZgWh+VKdq4g/knlxJtLRHCbV+95 -N76MloPitPf9JoIL4zCLxLVlVHUXx+X8IwLlsFVyzfgvpDbzSMWaRwckv7RU -mN/9iRQirwU36+iAs5Kz77rFD9SgV8R4SFcH7qp5OeUr/kCWq9S0Pn0duBg+ -5prF+AMF+6w8nDbUgbIwZ50/wYvotaPzZ45DOvD9u8Snb8cXkCeZaHrcWQe2 -TMmBmmgebSxbDky46EDIeog65+YcSqnwcvVx0wHPyT1XQxvmUI18/qXLZ3Tg -ukLy6TX9OcQisPNJSYAOFDDbXfPfP4vu//wsuhynA3hKJu6U9zRC5RulFxN0 -YJErf7WQMI26TwsSmZN0AIwuFJ/6O4X+jB+yFEnXgfXExapjiVPI9P3zaLir -A03O/+JnnnxDsw+uf0+s1IEjTjPx24UnkaIbmbp7SAfuvVe/nab1BSVLm/+5 -MqIDQiNFNy/v/IKWx1y0v4zqgFv2pZCXE58RxSHxQc5XHZC3Cflv363P6Kjl -WIbgdx1w3N/cxrs5jkL0rvqx0pGgNsTqyHTVGBpdy3zgQU+ClrLvbx56j6G9 -z8q/tW4nwY0EOz9G+TG0U2PQMYqVBEZFK9k+d0dRnpzSwb88JCjWWK6jS/2E -XnN/kPq+mwQMfVp9ymnDSOX9pKOZAgmKAphly48No7TEPxn3FUmwmfhbukpw -GDkyy3K4q5Gg4P1nIZQ7hBY3Av+MkkiQZyJQfPDpRyQwLdbTZUaifd8xBVit -DCA3imf0U38SpM3qp1e+7UULZ2eDDgSQILnb4nprZi8KFvf26g8kgateRail -Ry+6Fu57dC2MBMQPI3yvGHpRhW6gpH4MCe5nrDCI7u1BG8+uNLRkkUAyqD48 -qucDinFnrDh2lwSZJoTRpJIPiFMg9t5kLgn69BKf04d/QNIXrl1jLiLB81V5 -krjcB2RMSLUze0wCxrmlou0RXSjtcc5ydwsJlM8V19Re7URiTpLTp9pIMES9 -wrlE7kRFHAXDy69JENO5rDqy8A7VnC1qFugkwUAFIfiVwzv0SelhisMgCVIv -ODe36b5FCqW1yl/mSdB1idNYUKQDUfN6XZf4yeCgE1kjcqgNjR+ScgoUIsPw -cVbBTb42RLd+1v6vCBkyJtzenRxtRXuPMJszSpIhQESw4tG5VtS2TVdHWJEM -yOLCR7X8l+itSy6rIaLZhSjvZ/ha0HeOeYY2IENDKOny2clmxFFP2jLdR4bd -+05ZuTxrRpa83T+PmZBhJf6sQ7Z9M+pp2T7ieZQMaWb1PmpFL9CQ7JnyFHcy -RDYG27JZNqG/Xc9K+U+TQSy2NkhZvgmJXWS4l+VFhjnO18dOblLRib47GYV+ -ZMhb10x9foKKxq++j6wJJcPhe821B+UpaOqbltV4EhkG+3/tSBmpR8ul/1bV -ntPWvyrlW/3yOfpmY5QXX0uGsDderJ6Jz9Hg9usmX+vJILV6KSHr2HNU7yyS -eauJDK1EppXQb89QlJC27mY7GbSkNrN2cD1DXHFnwjtGyFB2tE3xashTRE+s -lJUdI0Ove++uWpOnaPnr6tuLn8lgUD750FHoKRrAV8U1vpGh2GJHy0LNE5Sz -mkvJWCTDtnqfGtl/VUjZo4/OjV4Xeqi73u/MrUQS/GL3Kdt1YfpV5tG3AZWI -q8XliBCzLpgc7Rb+blqJfkn8yH+zQxd2ZopLWKxVoLp+tn2a/LowEijJesm2 -ApkYwdV/8rpQwyuaUna4HJ3a/YA167AuxEVyXrJnKUOhrf+dkbPUBbfN+b3j -LfdRihvPm6qjujA0nCTJF3kfNRSFJL6x1QXxivN54X9KEZ+cCefmSV3AFWbD -MqslqE1uks85UBcqZX6d9OMoRiNtty/MB+uCTT/jjZ29Rein+6H+4DBdOJDz -/bRBVhHaVfIkIzVSF1y0Ax1tFYpQsHyUSMs12nwsDSkHzAqRosIuSblcXfB+ -cVh7rKwAwevuyKp8Xfg47T4rHVKAbDxjPqNCXeiUrhL7ZlyArpR+L7C9rwtn -HhoKffuWj0YUGnbHP9GFRSfHyTLFfJS0x15p/pUu3EhmdopPyUVLiunEqh+6 -kNU1EHikNAsNvoUDvL90QX4Ansi6ZaEmnwWrgBVdGHgxspIlnYWSqg76E//o -woXZlXtncjORoi7dwzoGPXBbZ/t9Nu82cjl4VqpFQA+Impln2ym30ME5EXVZ -YT1w+Pj7gPTVW0j9+mt0VVQPLIPG55gP3UJbXTKOxpJ6sL9hLixg+CbKthu6 -9WaPHnDufHH4Md1N1OthvLNXXw+MQ8RGM0+lo3rWFRFtrAccXPv5lTTTUcGD -gj23DPVgY0O0XXtbOvJb3DSyM9KDzXms9iQvDbEHPb08YqEHisQlPbXJVGQU -I7U64aIH6k4TMehKCqop/Pt5JU4PzAV+W8cLJyLivoBV0wQ9OO1omB7WnYCq -P8/vzLuuByfymxVEExNQlcSojmmaHpQfb2dy3JaAHt5uup6TrQf24VsbNb/i -UV7iVbJxuR78ZpWLSfodiySUtszvVOjBquclt9zaWHS3PdB1qUoPcvCb7gMX -Y1EWk2dy9nM9yOxnGjjMFItuRJpOLjbpwc9KjkrZXTEoPoAz9XaPHlwWlPj0 -+kw0YuGNK/7epwep7/b0pxOjUUwlXcPeQT14x1P1bIw+GkUvLH2bH9GDZxPX -PFfuXEGXPHv1Db/pwUnBMMpqfxQ655g5PbNGi6/SWyOHk5eRw34Z0JPQB7cA -HdFjKRfRZi8LR4ukPkxw2ST5GlxEeW4Lw6Yy+hBycSPHay4cfYupDXJQ0Icd -RS2BGwfD0bl2i8chmvrAMtljvpc7DF0zD5eoMdKH2BA2mbC2YKQydnIeH9SH -xGs+05mRwajL17julZk+aE5eNwjSC0YCqTw2A5b6wMv2tN3tSRAq6Cm9/ttB -Hw4yUj+NPAhEdXZ9G1q++pB+Q1biVmMAOjFT19Hgrw9yNYuPG6MCEF1o3u39 -AfrQHeVAiTEJQEbZXlrHQvRBsnOp9HffedT9aZv3+Sv6sMdDnlly7RyadVEd -rszQByn+J10kO38keja2VrVJH6YqfuXf+uONkv65ayc068PLhbVdPx56I/o0 -o8qpl/rA/uY9E6+zN5p9xng/r10f7o6PEh699kJ1dNG3eXr04RVnAt9mwRnk -cCMy6PekPmTMeSidCfVEnXLOv45O64MqcYM1mOSJ9tZi38ez+jAX/uKnxqoH -Uhzdcvdc1AfMe0L6XqAHWpe/aDO0pg+z6RczD110R7frQ7QpOwxAw8Shx7rU -Fe00t68U4TCAqZ3Zmyf9XFHkOEkliMvg//8HftORXZEn45qsOr8B1LrUxS+9 -OYV0LAL5CiQM4DtQT15Yc0H9X879uqphAHspwtG9Z04ifjbvysO2BmCiUdaz -aXsCFe67GPrD3gAejhv5O205Is2LSfvSHQ0g/B2rW0eRIzL/UdE3eNIArOzO -h1asHkcx/Svrp7wNICwj/4h3iQNaK4jYG3rZAGJ0mOm1tOxQzEjKDvFoA1A5 -c8t7cMYW8QkU9FJjDGD31CdnhzxbpB7/0p0x0QDkfk4vz3PaotO+rAkptwyA -73NkOcu6NRrSS+8pfmAAMlY3DDiXrJDnhcI7B8sNQDpZo8X3iRX6XV7tNl9h -AOJHJZjjA60Qj/TgqsYzA6DLGfD7tHUUmbGIizU2GcD8x6C8XsGjqKG32LWn -jxavQ1PnDpy2RKYcNSqBgwbwwitYbB/REg0at/8WGjaArHOHi4YYLNFy3Vzc -f+MG0G/BXJZnaIFU8tUfzcwagN+GUOShlsOoYcgwMPG7ASRKUUuuuh9GpnxW -WO2HAbwR/xM/wHYYucde+BCwQuOYqPIam0NouSkmS3DNANzDk3MNt8xQ1J+M -U3V/DCDfNaK0v9gMcWndVz6xaQBXhz8+C7A0Qzln61b+/aPli3GwSeivKfof -HbLGog== +1:eJwV1nk8VdsXAHBzJQ1ISIaMIfJMmbJXZjKTmbjuPYaQOZm9Uq85RfR7RIaS +LiWFIk8lKYo0KGXIcHHNwz0i8tv9cT7n8/3sz1577XXO2ufsohx1pHGwsbGN +4uvPPeKdqkJNxztD2cFvfmDEQIZTxVoUEzpas9t/9Y/787UzZU3qkZ+ej8IB +bHvqWx4+jZfovxJDCSPsyriUF9wmbYiZ3XvMGPtMs0hjStl79FbEUNMU+3FH +xI0V9U+oXd3byRyb2f0m8XjdF5Q0p//JEnvHsIwnafwdfSa6H1tjH5xO1I1q +60PLBTrs9tgNK8yNcWU/UNxDl7tO2J/ThBOqwwaRQI1mrSv2FI8Jc0F9GA00 +dip4YfOcD3fXWGQg8wm1ZV9sCf68loi6UbRyyG4vgW0rRt6aMp5ATpS3zyKw +iQLp7Srrp1CnpYpkHHaKnF36kbZppL1k05eM/UX441/RZbPogmPn6QvYVI/g +oKvn51CNk3Z4FvZMLtvNB2HzSKTVsy4Pe720ytZZdRbiGxo/fg87k/rCfKsQ +ibSnXSZrsaVuu6fsXSTRReOTL55j6+w5NRVa9xOpP5TP6cIO1O5rYxqvIO67 +GQPcxgy0EBfDxSu/ilqGhUIEsFPrNhoorv+N3iT5uEli54DO3YC2NSTwa7+7 +Hja1pMUksowdVHehlWjssuar/WliHHBtz/S/J7FnRnwSM85zwEN94kYmdqIS +q+p+GCdwDpW1PsLOvLdLZlqdG7icr79awe7umGj4XcQNdOr5pC0mOP+5Go/N +Qjyw7YHlNWlsuqbtFZVFHnj0RnbGErvpcTx7SN16yGQGmeZhs1586Bs15gM/ +0fxYF1MGErDm25rQwAfqqZ0xEdhqH01gk+4mOGymPHYeO3joUcFfqpvBZtZu +z0vscI42tf18W2EyOkFW34yBhqUrZtNJftgqIdhjYI7rQ7zZ0K4hAOG8qxKH +sTnuMnaJRAhATJPopzRsKQ1Jx7JxAUgNns5rwfYwvvzgXb8g3K2QL/S0YKB2 +/8go4VYh8P9SGpNtyUC9ty+e812/HS7S9/1qxJ4YLyu6Y7odKns2sJjYvNGD +H/Qbt8PySKIpWDGQyUlnTd9HwjAFDe4z2E+KtVml+aLg7fnUnrBmoOLh5Vi9 +aHFYCH+TdseOgSwOne6NKheHUKOUrh7siSZBs3IGtkP1FQF7BtIs3iMk5S4B +7FL3dZOwmyg+VdyGkvCplWXp6sBAc9P9x0ZPSMGi53i0hBMDCYaaPKyykYbY +z+t//3RhIEYxb6B9sDS8O3ydR8+VgWq/d4hNnpKGnY5fohOwvay9T8g3SsO2 +jIC/17CLlWMdr6vLgPYn0o/PHa/PvD2TLCwLnh/1NHU9Gcg5YKOK1Q85eE4f +UOs7zEAo9pC666ocLGrOBCv7MpBSev4+qqg8hMlO8MRhsxVpGCU7yMP+zdVU +AT8GKu/1dH3wTB5iDz2vOUjB/elCT9tRqAA76aZPO6g4PxObz0yKIhSdKXOU +DWagIqfsb4vJiqAwufw2Efsi5Uc/17+KQDGLvvsJm5oaMy7xQRHiq8bO/3OE +gfjr89icjJVg4Ot25lwIfn80ppTqZJTh1oz+lu6jDCQmfSnl3NAeCBGRF5yL +YaD6swuKSxwqoPY0iTgci+sx7/6R2KUCLPkSlbfYN5pkFY18VICSESZcdoyB +pAOedP7sUoEcB333oON4v/RhOaJVFTweH8hZTWQgcTEJQspdDZprqkWSTjLQ +npJovl9IHSQmjrz/kslAFOoJloqtOnCukjPuWbhfZa70+nqpA1/althv2JyF +9+43x6lDmPTC/b5ruN9uMJ2vVKrDg+nusYkcfJ7m+OYpymhA7WBe8I48/HzP +Wau68WgCPHOof1bCQDcjZe0ftWkBLYnL0qiWgTpi0b6TJbqwwbvQ7dswA+3y ++WTrHbIfbrguFv0WHUG0teoK8eMAdDr1jJnDCBIer10nTDGC1V4Bw3OZIyha +w+D7FSUTmL0p6mvVPYIokystgkxTCLiCnA3lRlG5UdS6/HZzEPHmK2FPHkXF +C8HP6JmWQC1eaO/rGkU/D4i8bUo5CLKG5xrXHRhDPWycsz/8bOBn7dViuftj +KGzn0ctpMnZQOt1V2CXBRBVBLY1Z6fbAShnlzL/BRPHzoovKQQ6g9G45Xlx8 +HLGszFxeHXaEfdVWQ2wV40jXM+PAsIMTsEvKdvObTKBO0bzgJg1nmJQY82B+ +nkA7bp2oL919CKqaekOoSZOotl/J2naTC7xwoH8gJKeQxMeZgNhJF1iaOFUk +2jSFNLIy6EX9rqChH06ZSZxGeVzzqldeuMEDzQq6r/AMqj6wtzv9sTskDVw6 +6xw/g3L2neVfKfOABq1TinU9M6j9W8kpjfOeEM09OCRoMIse2eTKhqd6wX5B +L6gqmkWzoU5sYVRvmItse6DEPYdYZoqBU8Y+kOdocmeIOodKJ7/+jNI+DGL+ +7u9c2uaQ280Sf28+X/DVlrR8rzyPqh4cPMx52hdeD/nlHsmYR7pinUtnlnyh +WW12y/PJeSTTH9D9PsgPFCTkB/eYLqChjUfscgf9oJRbIpCev4A6Ltr6mx+i +wKPsk2fNpxdQZlz+xpgOCjSKish6IRaqb1hb8rf0B9U1hV1fTrHQFi84rfHE +H0rUpSICn7OQ1LZX7Tvr/UHSL6rQ4wULqbXZiPA0+MPuu+vNrJtYyNHA886X +Z/5QI6I1qNLMQpk7Y1uTXvvDGaZeOPM1C+3oubul5Ys/RLNHlFm8ZyFZH+Ec +r0V/eDy2aJfTx0K6vlOl6ZpUuHRKQD1+mYVuXZ+JstWmQnhR1oDuLxba9mHO +UFiHCudiUjYtYU+ZLn4s1adCWdqv9zGrLHx+sbG3GVFh+fkr/iA2Em1e5HcX +cKAC66+ztto8JBq6oLUhP5QK+q4D7cH8+LtblxhUe4sKmZqxHzTlSRSqnq0b +V0qFU/y8HO3Y1ncqN+iUUSHwflxpoAKJeLMZd2rKqdBafczrf7tJlB5pz6x+ +SIVd7ivei0okSlSUPfLoORUURGj3sveSKDi7NeRBL56/dKIzXIdElpsZBpH9 +VGimZLUsYe9OZ9ukPkAF8y4djb91ScSI1CqvHKbC5c+dtAw9EvnZ5k/en6CC +1Iai/XcMSOTGHRV2b5kKCz9SCxuAROZRO8Lp22kQVJ6am2JBouf5p6yuiNBA +0Pi0ILsliQza5mTjdtDAcXVlIA1bTa71q7EEDZ70NZ9NsyKRaFeC8Tc5Gsz3 +di7HWZNoXK9nO68WDVQ2/mVqYU+iSxwFTwOcaHDE2+ltgCve/16+HJtDeFx5 +g+RH7JOecZEarjRQDvv5ErmR+L/MXmHNgwZG3+QEhdxx/gR7xjUKDXJ7tUpr +PEik8YZCfRlBgxKh0DvfvUnUlSG3UeYyDba+ro8o8SdRBdoUOJpBA3dnn2Mk +9snJhabyqzRYkl8bNqOSSN2yKVknmwYW0ey/h7EvsvnP2dygwbcsirA4QSKz +owVf4+g0SP70fCAskETi4v9oG1bQYLQ3IKIae+HN0auc92mgbSobuIpdKI9s +LlbRwHZL+YUzQSRa7elpLHpCA7rC2Zr/BZPoobVY6bsWGoQ37kkoCCHRuWUO +7sw3NHj1VTm9F5tSyvRzb6PB3qFYUiyURFu5nogNtdNAtO/Z5izskDq3S0uf +aVBgPLYtNYxEMkrXYmWHaeAS3hqqG06i5a6kD2MMGpjVmI6EYnek09TujdKg +3t371U3s5B+aTN0JGuRx7a9bF0Gi7pwP3nbzNEj8tyK8DfvKOn7TeHYCdi4h +Xt0oEtXP9XhGcxLQ0HrmWyD2SE9ZZBg3ARbsyxPZ2AYPTQooGwgweCjVMY/N +8I37ZcVPwGt+12uF0Th/a1MBU0ECojMLA9qw9fcJKCIhAoq9/otjYV/eRHfR +ECXALNPUwzQGjz/pqxTbRUDM6UTR79hECb1FSIaAtO8Wo2vYly8f79siR4De +21xSOhavRwhu4lIkIEDoyXsC+7KgeeCEGgG/3Jmpw9hPfgumMNQJcKIKHOQ8 +RqLhsf6sfk0CRHpPOEth6zXGv/ioQ8D6GAU5N+yhkAqJp0AA/X+P6xuwN7sl +aNUYEWBsEZ36GVvX2MK60oQAnv9MT0xiXxQdOF5iQYCDtLCZaByJarnuXc63 +IiD+Eh+PKvbgdMLt69YEKLzi5DbC1mkW+nTBnoD5q0P/BWBTKgfGTzsSUCP2 +MuE49oXcexx/OxOAnLJiz2IPRFqqxboRsFy1sLsMe5PPdvNwDwKEjRL7a//E +sxz0DvYi4J3l0OfmP/Mlk875+BLgc8Eitf9PPrxWhW4UAsoKDDUm/sRjbX/s +SCUg4ft6ucU/8X4MtlsTBBwpKD7EfhzHa7vPMAskgBq/5SUvNqUmaRWCcT3k +zaMEsS8UWm3TDyFg5JKlrxh27QVhZa0wXM/2beelsQfihg7sDScgT/k2uRub +j1rpphhJgJrYWr4q9j675KMy0QT8PCD2j8af+HoHT4nHEhAauVyxD/u8nEie +cBwBkeX/btPHrt46XMUfT4C19O/a/dg/flW+2ZhIQK7qrlz0J/5I8g/uZAKC +fbgaAFu78+DPtRQCZENuSxzA/j97LOHi "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, - "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "PlotRange" -> {{0, 180}, {0.6955873404795949, 1.4046031186505923`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6955873404795965}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7494,7 +6916,8 @@ HbLGog== AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0}, + AxesOrigin->{0, 0.6955873404795965}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -7522,7 +6945,8 @@ HbLGog== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.12263499218727081`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.6955873404795949, 1.4046031186505923`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -7530,10 +6954,549 @@ HbLGog== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913218813523655`*^9}, - CellLabel->"Out[86]=",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] + CellChangeTimes->{ + 3.9913206956809444`*^9, {3.9940822218544197`*^9, 3.994082258208984*^9}, + 3.9942569984996*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"0cff0559-bf34-42ed-b67b-256893f9d711"] }, Open ]], +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["1", "2"], + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}]}], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9917994543716736`*^9}, + CellLabel-> + "In[104]:=",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.190961636398365`*^-267\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 104, + 9, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991320696298666*^9, 3.994256999197418*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"57349647-f0d3-40c3-a231-1702e474e944"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0981840960553245`*^-278\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 104, + 10, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991320696298666*^9, 3.9942569992125883`*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"02376b91-5bdb-448c-b449-81f8180e833f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.8776410128756763`*^-290\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 104, 11, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991320696298666*^9, 3.994256999225848*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"9c1fbc47-da04-476e-8922-f75b29910588"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 104, 12, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991320696298666*^9, 3.994256999236041*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"8795a84a-d6a0-4c3c-a981-f9b53c43405f"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk8VdsXAHCRR2V6mYXcey6RmZByrRUa0KSkqJBZmZKUJpcyVJJQimTM +EO65MqdSoRGVvIjiGV5JIjI3/fbv/HM+38/57HP2WmfvtRfDLXCbJz8fuebx +8f3/PtX9rIF1PtdcM2jK2V3OzLzthlzYmo5ISI9LWZ/dKA8o/dJNriMRrEO1 +m7wbNSB06612gY5s4NRuO2vRaAp/j8gmzrbfhgs6cW/EG62h5+7mwIn2RyDp +FqYR2uAI61hDH8baW8G05q6J+iNfmG03ufytvQ/sJXoaf1eHQb1lfu7r7O8g +UyT65FLOOVDsqfnopvUL7JViq2euJoGUn8stIUsBDIxrzBc4dw0S9dfVbt4h +jBY6zqF7izPg3VW9B2MSotjrG5GUF5UN53PDX/LL/40hCSqX7Y1ugmxy/9mk +dEksXtx96kJKPsTYW5u3Tkmj2HaN7ruXCuGQaZbLs0g5TMriEy32LwKbTLEJ +2zg5FPEA6wUhRcAUOhHbclkOrRaPGrsdK4JXbQ6lbwrk8Et3NUsopgh0gkQE +ulvk0NWz00wpswgG847kjSvI44sW5bmw10WwR2rz1yVl8ph4IqhmXK8YrEbn +jgX0K+CwyrrQ5r5iCNuQvPzhsAIGnI4Lm/1UDNws7U7JKQXsH1hlxfhaDHL2 +rqY1wkswLVJM12O6GIarG6cFdJbg9q6IHVWLSiApMiHk2tEliDUBDxINS6BP +Wi2gQVQRQzUH5ZU4JSAbWKckK6uIk1PFdQ/PlMDGp7uafVUUsXW8Vt3tbAlU +HjuvJW6oiH5vjlhdSSyBcz3fhhx3KeLLDZ2ZL3JLwKCw1ns0WxGfvKcG9j8t +gQgzu30KK5WQvetI+HERLmxwvjFuYqGELbc6W8ckuCDG+XJ6x0YlrGSqaLhL +c+F6fVRegqsSel7O7DZW5kK1zZ0vf51Vwu6Q4cBsXS5820WFfn+nhBUFdZbn +7LjgfHjyXNNxZSwcHa5Mv8QF1RQLxaEoZXQ6rp0XcplL4r9YIpSgjB5x9unr +rnHh2E+NVxa5yjjosiW3K5MLl087S9c0KSO8k1B8TnOh6dKTjJtKSzHs/qvR +6iYurOJeKz9VtxSNRy7Y/8tPg1V7y6+Rp+S5UWBzryANm/nmr3dpXYoK1rd+ +dAvT4L4t4B38txSXbj0Z1iRGw7rjjHCOoAqWZ88IhCjQELR0KmeNpgpq1wRl +T+rR0OCd8bU+VAVrc20LGp1osP5puvjEcRW0bnvMMd9LQ0tCm/EKjgrWjPQr +lLnQ8K5mASf3rAoKwovLFz1oGFkUsjjqugoWi0zelg6gQY63wWTdIxXMGhgc +d+DQ4DczxnkqysCtRU5zvCwaVh30kvm4mIGCBwWTm3JoEB7qLBKQY+AFEyGr +/ps03Oyqf2vOZKDeyY+f592iofv+Za0KYwYG7jbeN/82DVuiTDuyXBgIqJSj +/JAG5d8l/nUeDPQw/DD75RENw6FMgQ++DOR/9S64vIGGWJ9FOnIhDLwzXNRi +/JSGB7YfTsfHMnDj5c+W817SYLA4Qvd4KQNtzWw7S7po4Ds/2XC1koGasQ4V +2h9I/AL7nSprGcgZ5dUVdNNwYHJb1FgjA3eP13km9NKQ28Hq8u5k4NxZjrja +JxqC7a4FRfUwUDjE+GT4IA34XPSvnAEGNvMMGG2fafhQO6XXPcLAFWoXxQOH +aZDJeBptL8DEgluiGQfGaBiQZSsGCzNx5RTVcWOchtsJpaUXRZlofaVuc/N3 +En9k6vvnskz8x331zJIpEp+nn8EaLSYybwU7cOZomNWU6NbewUQr6aCFhvN4 +MJWuEGHoxETtPreyXOIJcVWWqQsTK3XPy0nx82Dku+l+K18mCj7cKz9M3Ffr +PuV0konxkVv5I+bzoEc74JprJBNvZOmn/kv8PuOomVcMExeNyY6zBXnw9vSF +yIOXyHzwv/4x4ue2VWKxN5l4O83og7kQD57ce1h64Rb5ftNoZBxxg26TfRLN +xMcz6cPtxPcle1Nv1DDx/dO3oj7CPKiN+sLOvc/Eed1uj4uJq6cn/y2sZyJ/ +639Wo8S3uxYuq2hm4qeAjsv+C3hAb5J+fqeViUfsNvkWEhfXLfV/0M7EjKj6 ++f3EeTkryl70MtHmVP3lLQt5kCMNDq8/MlFrtUNcJHFmjPXs2y9MbDb9ubGM +OPWAM/RNMjFM+JqO2CIepHzw6fs0x0Sz6OtbVxInbzkU9fUPE9Mzm8xdiS89 +PKn+fT6FLW282SjieMPYFzMLKNSTfh1RSHz+ZmLAbzEKJZ5VtD8njpVN/3u+ +FIX2TZ9+fCaO/FG6U1yZwo+HHUsZIjwI9787J0VR6CxXYrmK+ETP43QFdQp/ +zwvN20ocZvcaVbQpNLeDTg/i0PquflUDCg+mJPeEEh8y+hitaUKhf8e8qmji +oPxvGvpmFOI5yX3JxAHyP5qM11A4mOzQnUF84LxgkNk6Cudv26VbSOzzS1zS +wpbCM3F59jxir0CFyvVbKXTlvNxcQezey3LctIPCDZ37lKuJXbfr/tzmROGe +quH6/3tvo2nGLhcKX+f+gSpiJxMrC2cPCmszlieVEe8s3Pyfuy+FN6V+3ysh +tl/iGOsbQKFTz8KHN4ntLrhrBh6i8LxN3/U04s1//FtCjlJ4Slxm20Vi24NH +Dx47SfK9Y2Uvh3hDf6QUJ5JC8bIumyDitTsuVEXFUBi7POniXmKLJylO5+NI +frXG6Q3EYJr9K+EShQMpccX6xGZFxZlXrlAoWDkVJUfcpVKUsTaNwp++Jaw/ +5P8cu1J4YyKD5HtH8GA/cVVE3vVthRSOoEhvPrHDdG7aPC6FZg1tMjHEE345 +qbzbFGqcSTzkQWywK/Oq2F2Sf9OOHHni1803Uu49oFDLxOHoGFlvQZbpV/wa +KWyOrDj8hJirk5r8vIXC8jNCX/2JNQSTE6J7KaxTSunKJev56bHEi0YfKbSz +rJ0fQOz1LSF+YIhC9YZ8JyPi3K4LcRYTFAYYvom/T/aLyu2Y2N9/sfDKBge1 +WrLf6pZFx5QsYqFUbnr9YWLn9DPReyRYqD+af0mHOC024swdeRb+sBN+lPoX +D2RcjnNCtVj4/I1S5F6yvyvawsJV9Vm4WTmzbAGxvc3RU21GLNzP/12+nNSH +RKPDJwyAhZq/ZWIEiEVFAo+O2LFQ9dn9sThSX4oj/I+kO7Bwa+fyjuXENtMH +QjfuZmFFa8z0Y1KfYvt8Qm55sLBafHn/LB8P5te4BXkdYeFRe//Z5N805Ojs +C5Q+wcL8F+nB5b9osMh1CWjgkO+LSXu9+klD+MU9fsxzLLSUkH7wi9TDOU8H +n+7rLBy4pOqsM03D2GIbV4dHLCz7lGcwOEJDhx/z1f4nLKyT1Rut+krOh8dz +EN7Ewha1LWmnSX1OOFa0tOAtme/D/idiQzTo9Yn0zA6xcDw069rEAA0BpS/3 +pkuqosqn1N1/3tHgsKiguVROFXlJgXfiO2gw9+SwHyupYr0RZ6lCOw2i8vpK +o8tUUdtWll+1jYZiTuJ7NFPFn44JdotaaBjasmP3gIcqmtmecllCzrfWQu0X +M76qqL9A/9WBOhruCPy1WjRQFcdkDjtX36PhbFWlgnGYKra4pL9be4cG9aVy +nTEXVLFmQijEoIwG75HOXZqVqijlqRy7PZecL3GuDsFCani9nmqoO03mP6TF +1BNRw5md8Y21ETRMr5/9+lVCDXNl3saXh9OwUCAxyldBDd2fLTp1/TiJP6y+ +3FVbDcMc4sfXHqLhpKea5JbtarjAZ7Udnxs5z8yHX2pmqGHe2LGBJWwaMtOq +0z7nqKHs/U17ylbRoDF7xju/QA2HxYwb16+kwaxc6Q/zthqqZcQEehuS/mX5 +Fh2FRjX8/Hu+baQGDTyZ23HCX9TwU/iatcukSX8yesT6P+NlaMGnl2IyxAVF +feVoYbNlWGEUzFrxiQsjwQ2PNNcsw5M2xRu1B7iQPCVhFmy7DFc+/hIi3c2F +7l+FOn9cluGayEH7e6+5ECzyXlL+7DJ0O5//1q+aC6ka2L2xaxlqNu2X3Hma +9G/uwofKw9WRGg9g1IqT99+wuld3Rh1Ze3/++rWIC6PvOEIvzqqj/67SeebC +XBjfMpvWm6SOzkHuURV8XJhePdQgVqCO8Y9KSiLHSoBfqknG95U6bpHj8qW0 +loB8w8U7SgwN1NpxlldG+tl1LFn+mEcaeFjCvFqJ9MuLm9XieaPL8cS0htHH +iSJQjKW3Ghtr4ZsK/Sxu/i24qmkqIemtjYbM2Jj5joXwXGGN0fdLOvj0zMch +N74CWKX4KEH3rS46th6uGDiZB2IC2SH7IvWwd/a8ZLzYTVCOWGrmqKaPhi8U +DKJP5cAC1T2V257oY9l4ckLdTBbosOXpI3sNcNVASUZJUiYEdy+ut+EzRDO7 +nh4r4xsw+j1uh/VVQxwxkz0ympAG63Ufp1prr8CBX+fCN0hfg/vfV/+YblmB +ksWsp0IxVyBAy6DztacRuhouuBK1IRnYIx5tjguMcXx9s/Z7/kRYy5LbJJpt +jPnLv33YsygB1Dnnjj4yMUHLiA37naLjYLmnaZ1qpwmpH/PgzY9Y8Lzvc6b8 +4Eq8GnBXV2EuCuoy2zzGpE0xLanvxDbh0zBR8Gdat8oUvTXbbbsPcsBdtWhB +6qZVyP30fdf9xBMwtjzJ+Pa3VVjo2KS+Yv9RqM790TsZuxqrzcNXvv8ZAk5W +FK5WNkMJ16qFzoLBsMQ/pkbngRl+beYwqnwCQHqhX+mmnWwsG+zOLnrrC7mW +J499c2Sjl/Ge6cJ6XzA4GW+ZtIeNL6NqNMp5vrD5G++fjn1sjPxa//fwOV+I +fjs56+7HxndPqe2fwRdmssMtjkWwUX6vTJ1UsQ90rk56k1fExhcJ3SnCF7zB +53DudWsuGV/7YuTIcW+Y4lZ4DvPYaDljcWjc1xsWMzum9SvZeBClRoXXe4Ot +sJLivQdsXGfhrVA7zxvutuV5vPmHjSKVYlG6YV5gI1atHdrBRj0w1dzi4wUd +659NyXWxUehbQkHYTi+YuPMl1vlfNu4b3CM5auQF2ll6JZ+H2NjqUy+5+7sn +3O1cExr3lYz3u/XhVZ8n2EhtB91vbEyPWWhv1+oJXjGHX4dMsvHx8wm94FJP +mHgQnSo7w8bMjN64xVmeEDmX4n5njo2nBkU49xI8QWJFodbeX2zsstEUPMTx +hBv+dyb//GGjz4NxGcMgT/gfy1o8/Q== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VdsXAHCRR2V6mYXcey6RmZByrRUa0KSkqJBZmZKUJpcyVJJQimTM +EO65MqdSoRGVvIjiGV5JIjI3/fbv/HM+38/57HP2WmfvtRfDLXCbJz8fuebx +8f3/PtX9rIF1PtdcM2jK2V3OzLzthlzYmo5ISI9LWZ/dKA8o/dJNriMRrEO1 +m7wbNSB06612gY5s4NRuO2vRaAp/j8gmzrbfhgs6cW/EG62h5+7mwIn2RyDp +FqYR2uAI61hDH8baW8G05q6J+iNfmG03ufytvQ/sJXoaf1eHQb1lfu7r7O8g +UyT65FLOOVDsqfnopvUL7JViq2euJoGUn8stIUsBDIxrzBc4dw0S9dfVbt4h +jBY6zqF7izPg3VW9B2MSotjrG5GUF5UN53PDX/LL/40hCSqX7Y1ugmxy/9mk +dEksXtx96kJKPsTYW5u3Tkmj2HaN7ruXCuGQaZbLs0g5TMriEy32LwKbTLEJ +2zg5FPEA6wUhRcAUOhHbclkOrRaPGrsdK4JXbQ6lbwrk8Et3NUsopgh0gkQE +ulvk0NWz00wpswgG847kjSvI44sW5bmw10WwR2rz1yVl8ph4IqhmXK8YrEbn +jgX0K+CwyrrQ5r5iCNuQvPzhsAIGnI4Lm/1UDNws7U7JKQXsH1hlxfhaDHL2 +rqY1wkswLVJM12O6GIarG6cFdJbg9q6IHVWLSiApMiHk2tEliDUBDxINS6BP +Wi2gQVQRQzUH5ZU4JSAbWKckK6uIk1PFdQ/PlMDGp7uafVUUsXW8Vt3tbAlU +HjuvJW6oiH5vjlhdSSyBcz3fhhx3KeLLDZ2ZL3JLwKCw1ns0WxGfvKcG9j8t +gQgzu30KK5WQvetI+HERLmxwvjFuYqGELbc6W8ckuCDG+XJ6x0YlrGSqaLhL +c+F6fVRegqsSel7O7DZW5kK1zZ0vf51Vwu6Q4cBsXS5820WFfn+nhBUFdZbn +7LjgfHjyXNNxZSwcHa5Mv8QF1RQLxaEoZXQ6rp0XcplL4r9YIpSgjB5x9unr +rnHh2E+NVxa5yjjosiW3K5MLl087S9c0KSO8k1B8TnOh6dKTjJtKSzHs/qvR +6iYurOJeKz9VtxSNRy7Y/8tPg1V7y6+Rp+S5UWBzryANm/nmr3dpXYoK1rd+ +dAvT4L4t4B38txSXbj0Z1iRGw7rjjHCOoAqWZ88IhCjQELR0KmeNpgpq1wRl +T+rR0OCd8bU+VAVrc20LGp1osP5puvjEcRW0bnvMMd9LQ0tCm/EKjgrWjPQr +lLnQ8K5mASf3rAoKwovLFz1oGFkUsjjqugoWi0zelg6gQY63wWTdIxXMGhgc +d+DQ4DczxnkqysCtRU5zvCwaVh30kvm4mIGCBwWTm3JoEB7qLBKQY+AFEyGr +/ps03Oyqf2vOZKDeyY+f592iofv+Za0KYwYG7jbeN/82DVuiTDuyXBgIqJSj +/JAG5d8l/nUeDPQw/DD75RENw6FMgQ++DOR/9S64vIGGWJ9FOnIhDLwzXNRi +/JSGB7YfTsfHMnDj5c+W817SYLA4Qvd4KQNtzWw7S7po4Ds/2XC1koGasQ4V +2h9I/AL7nSprGcgZ5dUVdNNwYHJb1FgjA3eP13km9NKQ28Hq8u5k4NxZjrja +JxqC7a4FRfUwUDjE+GT4IA34XPSvnAEGNvMMGG2fafhQO6XXPcLAFWoXxQOH +aZDJeBptL8DEgluiGQfGaBiQZSsGCzNx5RTVcWOchtsJpaUXRZlofaVuc/N3 +En9k6vvnskz8x331zJIpEp+nn8EaLSYybwU7cOZomNWU6NbewUQr6aCFhvN4 +MJWuEGHoxETtPreyXOIJcVWWqQsTK3XPy0nx82Dku+l+K18mCj7cKz9M3Ffr +PuV0konxkVv5I+bzoEc74JprJBNvZOmn/kv8PuOomVcMExeNyY6zBXnw9vSF +yIOXyHzwv/4x4ue2VWKxN5l4O83og7kQD57ce1h64Rb5ftNoZBxxg26TfRLN +xMcz6cPtxPcle1Nv1DDx/dO3oj7CPKiN+sLOvc/Eed1uj4uJq6cn/y2sZyJ/ +639Wo8S3uxYuq2hm4qeAjsv+C3hAb5J+fqeViUfsNvkWEhfXLfV/0M7EjKj6 ++f3EeTkryl70MtHmVP3lLQt5kCMNDq8/MlFrtUNcJHFmjPXs2y9MbDb9ubGM +OPWAM/RNMjFM+JqO2CIepHzw6fs0x0Sz6OtbVxInbzkU9fUPE9Mzm8xdiS89 +PKn+fT6FLW282SjieMPYFzMLKNSTfh1RSHz+ZmLAbzEKJZ5VtD8njpVN/3u+ +FIX2TZ9+fCaO/FG6U1yZwo+HHUsZIjwI9787J0VR6CxXYrmK+ETP43QFdQp/ +zwvN20ocZvcaVbQpNLeDTg/i0PquflUDCg+mJPeEEh8y+hitaUKhf8e8qmji +oPxvGvpmFOI5yX3JxAHyP5qM11A4mOzQnUF84LxgkNk6Cudv26VbSOzzS1zS +wpbCM3F59jxir0CFyvVbKXTlvNxcQezey3LctIPCDZ37lKuJXbfr/tzmROGe +quH6/3tvo2nGLhcKX+f+gSpiJxMrC2cPCmszlieVEe8s3Pyfuy+FN6V+3ysh +tl/iGOsbQKFTz8KHN4ntLrhrBh6i8LxN3/U04s1//FtCjlJ4Slxm20Vi24NH +Dx47SfK9Y2Uvh3hDf6QUJ5JC8bIumyDitTsuVEXFUBi7POniXmKLJylO5+NI +frXG6Q3EYJr9K+EShQMpccX6xGZFxZlXrlAoWDkVJUfcpVKUsTaNwp++Jaw/ +5P8cu1J4YyKD5HtH8GA/cVVE3vVthRSOoEhvPrHDdG7aPC6FZg1tMjHEE345 +qbzbFGqcSTzkQWywK/Oq2F2Sf9OOHHni1803Uu49oFDLxOHoGFlvQZbpV/wa +KWyOrDj8hJirk5r8vIXC8jNCX/2JNQSTE6J7KaxTSunKJev56bHEi0YfKbSz +rJ0fQOz1LSF+YIhC9YZ8JyPi3K4LcRYTFAYYvom/T/aLyu2Y2N9/sfDKBge1 +WrLf6pZFx5QsYqFUbnr9YWLn9DPReyRYqD+af0mHOC024swdeRb+sBN+lPoX +D2RcjnNCtVj4/I1S5F6yvyvawsJV9Vm4WTmzbAGxvc3RU21GLNzP/12+nNSH +RKPDJwyAhZq/ZWIEiEVFAo+O2LFQ9dn9sThSX4oj/I+kO7Bwa+fyjuXENtMH +QjfuZmFFa8z0Y1KfYvt8Qm55sLBafHn/LB8P5te4BXkdYeFRe//Z5N805Ojs +C5Q+wcL8F+nB5b9osMh1CWjgkO+LSXu9+klD+MU9fsxzLLSUkH7wi9TDOU8H +n+7rLBy4pOqsM03D2GIbV4dHLCz7lGcwOEJDhx/z1f4nLKyT1Rut+krOh8dz +EN7Ewha1LWmnSX1OOFa0tOAtme/D/idiQzTo9Yn0zA6xcDw069rEAA0BpS/3 +pkuqosqn1N1/3tHgsKiguVROFXlJgXfiO2gw9+SwHyupYr0RZ6lCOw2i8vpK +o8tUUdtWll+1jYZiTuJ7NFPFn44JdotaaBjasmP3gIcqmtmecllCzrfWQu0X +M76qqL9A/9WBOhruCPy1WjRQFcdkDjtX36PhbFWlgnGYKra4pL9be4cG9aVy +nTEXVLFmQijEoIwG75HOXZqVqijlqRy7PZecL3GuDsFCani9nmqoO03mP6TF +1BNRw5md8Y21ETRMr5/9+lVCDXNl3saXh9OwUCAxyldBDd2fLTp1/TiJP6y+ +3FVbDcMc4sfXHqLhpKea5JbtarjAZ7Udnxs5z8yHX2pmqGHe2LGBJWwaMtOq +0z7nqKHs/U17ylbRoDF7xju/QA2HxYwb16+kwaxc6Q/zthqqZcQEehuS/mX5 +Fh2FRjX8/Hu+baQGDTyZ23HCX9TwU/iatcukSX8yesT6P+NlaMGnl2IyxAVF +feVoYbNlWGEUzFrxiQsjwQ2PNNcsw5M2xRu1B7iQPCVhFmy7DFc+/hIi3c2F +7l+FOn9cluGayEH7e6+5ECzyXlL+7DJ0O5//1q+aC6ka2L2xaxlqNu2X3Hma +9G/uwofKw9WRGg9g1IqT99+wuld3Rh1Ze3/++rWIC6PvOEIvzqqj/67SeebC +XBjfMpvWm6SOzkHuURV8XJhePdQgVqCO8Y9KSiLHSoBfqknG95U6bpHj8qW0 +loB8w8U7SgwN1NpxlldG+tl1LFn+mEcaeFjCvFqJ9MuLm9XieaPL8cS0htHH +iSJQjKW3Ghtr4ZsK/Sxu/i24qmkqIemtjYbM2Jj5joXwXGGN0fdLOvj0zMch +N74CWKX4KEH3rS46th6uGDiZB2IC2SH7IvWwd/a8ZLzYTVCOWGrmqKaPhi8U +DKJP5cAC1T2V257oY9l4ckLdTBbosOXpI3sNcNVASUZJUiYEdy+ut+EzRDO7 +nh4r4xsw+j1uh/VVQxwxkz0ympAG63Ufp1prr8CBX+fCN0hfg/vfV/+YblmB +ksWsp0IxVyBAy6DztacRuhouuBK1IRnYIx5tjguMcXx9s/Z7/kRYy5LbJJpt +jPnLv33YsygB1Dnnjj4yMUHLiA37naLjYLmnaZ1qpwmpH/PgzY9Y8Lzvc6b8 +4Eq8GnBXV2EuCuoy2zzGpE0xLanvxDbh0zBR8Gdat8oUvTXbbbsPcsBdtWhB +6qZVyP30fdf9xBMwtjzJ+Pa3VVjo2KS+Yv9RqM790TsZuxqrzcNXvv8ZAk5W +FK5WNkMJ16qFzoLBsMQ/pkbngRl+beYwqnwCQHqhX+mmnWwsG+zOLnrrC7mW +J499c2Sjl/Ge6cJ6XzA4GW+ZtIeNL6NqNMp5vrD5G++fjn1sjPxa//fwOV+I +fjs56+7HxndPqe2fwRdmssMtjkWwUX6vTJ1UsQ90rk56k1fExhcJ3SnCF7zB +53DudWsuGV/7YuTIcW+Y4lZ4DvPYaDljcWjc1xsWMzum9SvZeBClRoXXe4Ot +sJLivQdsXGfhrVA7zxvutuV5vPmHjSKVYlG6YV5gI1atHdrBRj0w1dzi4wUd +659NyXWxUehbQkHYTi+YuPMl1vlfNu4b3CM5auQF2ll6JZ+H2NjqUy+5+7sn +3O1cExr3lYz3u/XhVZ8n2EhtB91vbEyPWWhv1+oJXjGHX4dMsvHx8wm94FJP +mHgQnSo7w8bMjN64xVmeEDmX4n5njo2nBkU49xI8QWJFodbeX2zsstEUPMTx +hBv+dyb//GGjz4NxGcMgT/gfy1o8/Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06269411834065636}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06269411834065636}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VdsXAHCRR2V6mYXcey6RmZByrRUa0KSkqJBZmZKUJpcyVJJQimTM +EO65MqdSoRGVvIjiGV5JIjI3/fbv/HM+38/57HP2WmfvtRfDLXCbJz8fuebx +8f3/PtX9rIF1PtdcM2jK2V3OzLzthlzYmo5ISI9LWZ/dKA8o/dJNriMRrEO1 +m7wbNSB06612gY5s4NRuO2vRaAp/j8gmzrbfhgs6cW/EG62h5+7mwIn2RyDp +FqYR2uAI61hDH8baW8G05q6J+iNfmG03ufytvQ/sJXoaf1eHQb1lfu7r7O8g +UyT65FLOOVDsqfnopvUL7JViq2euJoGUn8stIUsBDIxrzBc4dw0S9dfVbt4h +jBY6zqF7izPg3VW9B2MSotjrG5GUF5UN53PDX/LL/40hCSqX7Y1ugmxy/9mk +dEksXtx96kJKPsTYW5u3Tkmj2HaN7ruXCuGQaZbLs0g5TMriEy32LwKbTLEJ +2zg5FPEA6wUhRcAUOhHbclkOrRaPGrsdK4JXbQ6lbwrk8Et3NUsopgh0gkQE +ulvk0NWz00wpswgG847kjSvI44sW5bmw10WwR2rz1yVl8ph4IqhmXK8YrEbn +jgX0K+CwyrrQ5r5iCNuQvPzhsAIGnI4Lm/1UDNws7U7JKQXsH1hlxfhaDHL2 +rqY1wkswLVJM12O6GIarG6cFdJbg9q6IHVWLSiApMiHk2tEliDUBDxINS6BP +Wi2gQVQRQzUH5ZU4JSAbWKckK6uIk1PFdQ/PlMDGp7uafVUUsXW8Vt3tbAlU +HjuvJW6oiH5vjlhdSSyBcz3fhhx3KeLLDZ2ZL3JLwKCw1ns0WxGfvKcG9j8t +gQgzu30KK5WQvetI+HERLmxwvjFuYqGELbc6W8ckuCDG+XJ6x0YlrGSqaLhL +c+F6fVRegqsSel7O7DZW5kK1zZ0vf51Vwu6Q4cBsXS5820WFfn+nhBUFdZbn +7LjgfHjyXNNxZSwcHa5Mv8QF1RQLxaEoZXQ6rp0XcplL4r9YIpSgjB5x9unr +rnHh2E+NVxa5yjjosiW3K5MLl087S9c0KSO8k1B8TnOh6dKTjJtKSzHs/qvR +6iYurOJeKz9VtxSNRy7Y/8tPg1V7y6+Rp+S5UWBzryANm/nmr3dpXYoK1rd+ +dAvT4L4t4B38txSXbj0Z1iRGw7rjjHCOoAqWZ88IhCjQELR0KmeNpgpq1wRl +T+rR0OCd8bU+VAVrc20LGp1osP5puvjEcRW0bnvMMd9LQ0tCm/EKjgrWjPQr +lLnQ8K5mASf3rAoKwovLFz1oGFkUsjjqugoWi0zelg6gQY63wWTdIxXMGhgc +d+DQ4DczxnkqysCtRU5zvCwaVh30kvm4mIGCBwWTm3JoEB7qLBKQY+AFEyGr +/ps03Oyqf2vOZKDeyY+f592iofv+Za0KYwYG7jbeN/82DVuiTDuyXBgIqJSj +/JAG5d8l/nUeDPQw/DD75RENw6FMgQ++DOR/9S64vIGGWJ9FOnIhDLwzXNRi +/JSGB7YfTsfHMnDj5c+W817SYLA4Qvd4KQNtzWw7S7po4Ds/2XC1koGasQ4V +2h9I/AL7nSprGcgZ5dUVdNNwYHJb1FgjA3eP13km9NKQ28Hq8u5k4NxZjrja +JxqC7a4FRfUwUDjE+GT4IA34XPSvnAEGNvMMGG2fafhQO6XXPcLAFWoXxQOH +aZDJeBptL8DEgluiGQfGaBiQZSsGCzNx5RTVcWOchtsJpaUXRZlofaVuc/N3 +En9k6vvnskz8x331zJIpEp+nn8EaLSYybwU7cOZomNWU6NbewUQr6aCFhvN4 +MJWuEGHoxETtPreyXOIJcVWWqQsTK3XPy0nx82Dku+l+K18mCj7cKz9M3Ffr +PuV0konxkVv5I+bzoEc74JprJBNvZOmn/kv8PuOomVcMExeNyY6zBXnw9vSF +yIOXyHzwv/4x4ue2VWKxN5l4O83og7kQD57ce1h64Rb5ftNoZBxxg26TfRLN +xMcz6cPtxPcle1Nv1DDx/dO3oj7CPKiN+sLOvc/Eed1uj4uJq6cn/y2sZyJ/ +639Wo8S3uxYuq2hm4qeAjsv+C3hAb5J+fqeViUfsNvkWEhfXLfV/0M7EjKj6 ++f3EeTkryl70MtHmVP3lLQt5kCMNDq8/MlFrtUNcJHFmjPXs2y9MbDb9ubGM +OPWAM/RNMjFM+JqO2CIepHzw6fs0x0Sz6OtbVxInbzkU9fUPE9Mzm8xdiS89 +PKn+fT6FLW282SjieMPYFzMLKNSTfh1RSHz+ZmLAbzEKJZ5VtD8njpVN/3u+ +FIX2TZ9+fCaO/FG6U1yZwo+HHUsZIjwI9787J0VR6CxXYrmK+ETP43QFdQp/ +zwvN20ocZvcaVbQpNLeDTg/i0PquflUDCg+mJPeEEh8y+hitaUKhf8e8qmji +oPxvGvpmFOI5yX3JxAHyP5qM11A4mOzQnUF84LxgkNk6Cudv26VbSOzzS1zS +wpbCM3F59jxir0CFyvVbKXTlvNxcQezey3LctIPCDZ37lKuJXbfr/tzmROGe +quH6/3tvo2nGLhcKX+f+gSpiJxMrC2cPCmszlieVEe8s3Pyfuy+FN6V+3ysh +tl/iGOsbQKFTz8KHN4ntLrhrBh6i8LxN3/U04s1//FtCjlJ4Slxm20Vi24NH +Dx47SfK9Y2Uvh3hDf6QUJ5JC8bIumyDitTsuVEXFUBi7POniXmKLJylO5+NI +frXG6Q3EYJr9K+EShQMpccX6xGZFxZlXrlAoWDkVJUfcpVKUsTaNwp++Jaw/ +5P8cu1J4YyKD5HtH8GA/cVVE3vVthRSOoEhvPrHDdG7aPC6FZg1tMjHEE345 +qbzbFGqcSTzkQWywK/Oq2F2Sf9OOHHni1803Uu49oFDLxOHoGFlvQZbpV/wa +KWyOrDj8hJirk5r8vIXC8jNCX/2JNQSTE6J7KaxTSunKJev56bHEi0YfKbSz +rJ0fQOz1LSF+YIhC9YZ8JyPi3K4LcRYTFAYYvom/T/aLyu2Y2N9/sfDKBge1 +WrLf6pZFx5QsYqFUbnr9YWLn9DPReyRYqD+af0mHOC024swdeRb+sBN+lPoX +D2RcjnNCtVj4/I1S5F6yvyvawsJV9Vm4WTmzbAGxvc3RU21GLNzP/12+nNSH +RKPDJwyAhZq/ZWIEiEVFAo+O2LFQ9dn9sThSX4oj/I+kO7Bwa+fyjuXENtMH +QjfuZmFFa8z0Y1KfYvt8Qm55sLBafHn/LB8P5te4BXkdYeFRe//Z5N805Ojs +C5Q+wcL8F+nB5b9osMh1CWjgkO+LSXu9+klD+MU9fsxzLLSUkH7wi9TDOU8H +n+7rLBy4pOqsM03D2GIbV4dHLCz7lGcwOEJDhx/z1f4nLKyT1Rut+krOh8dz +EN7Ewha1LWmnSX1OOFa0tOAtme/D/idiQzTo9Yn0zA6xcDw069rEAA0BpS/3 +pkuqosqn1N1/3tHgsKiguVROFXlJgXfiO2gw9+SwHyupYr0RZ6lCOw2i8vpK +o8tUUdtWll+1jYZiTuJ7NFPFn44JdotaaBjasmP3gIcqmtmecllCzrfWQu0X +M76qqL9A/9WBOhruCPy1WjRQFcdkDjtX36PhbFWlgnGYKra4pL9be4cG9aVy +nTEXVLFmQijEoIwG75HOXZqVqijlqRy7PZecL3GuDsFCani9nmqoO03mP6TF +1BNRw5md8Y21ETRMr5/9+lVCDXNl3saXh9OwUCAxyldBDd2fLTp1/TiJP6y+ +3FVbDcMc4sfXHqLhpKea5JbtarjAZ7Udnxs5z8yHX2pmqGHe2LGBJWwaMtOq +0z7nqKHs/U17ylbRoDF7xju/QA2HxYwb16+kwaxc6Q/zthqqZcQEehuS/mX5 +Fh2FRjX8/Hu+baQGDTyZ23HCX9TwU/iatcukSX8yesT6P+NlaMGnl2IyxAVF +feVoYbNlWGEUzFrxiQsjwQ2PNNcsw5M2xRu1B7iQPCVhFmy7DFc+/hIi3c2F +7l+FOn9cluGayEH7e6+5ECzyXlL+7DJ0O5//1q+aC6ka2L2xaxlqNu2X3Hma +9G/uwofKw9WRGg9g1IqT99+wuld3Rh1Ze3/++rWIC6PvOEIvzqqj/67SeebC +XBjfMpvWm6SOzkHuURV8XJhePdQgVqCO8Y9KSiLHSoBfqknG95U6bpHj8qW0 +loB8w8U7SgwN1NpxlldG+tl1LFn+mEcaeFjCvFqJ9MuLm9XieaPL8cS0htHH +iSJQjKW3Ghtr4ZsK/Sxu/i24qmkqIemtjYbM2Jj5joXwXGGN0fdLOvj0zMch +N74CWKX4KEH3rS46th6uGDiZB2IC2SH7IvWwd/a8ZLzYTVCOWGrmqKaPhi8U +DKJP5cAC1T2V257oY9l4ckLdTBbosOXpI3sNcNVASUZJUiYEdy+ut+EzRDO7 +nh4r4xsw+j1uh/VVQxwxkz0ympAG63Ufp1prr8CBX+fCN0hfg/vfV/+YblmB +ksWsp0IxVyBAy6DztacRuhouuBK1IRnYIx5tjguMcXx9s/Z7/kRYy5LbJJpt +jPnLv33YsygB1Dnnjj4yMUHLiA37naLjYLmnaZ1qpwmpH/PgzY9Y8Lzvc6b8 +4Eq8GnBXV2EuCuoy2zzGpE0xLanvxDbh0zBR8Gdat8oUvTXbbbsPcsBdtWhB +6qZVyP30fdf9xBMwtjzJ+Pa3VVjo2KS+Yv9RqM790TsZuxqrzcNXvv8ZAk5W +FK5WNkMJ16qFzoLBsMQ/pkbngRl+beYwqnwCQHqhX+mmnWwsG+zOLnrrC7mW +J499c2Sjl/Ge6cJ6XzA4GW+ZtIeNL6NqNMp5vrD5G++fjn1sjPxa//fwOV+I +fjs56+7HxndPqe2fwRdmssMtjkWwUX6vTJ1UsQ90rk56k1fExhcJ3SnCF7zB +53DudWsuGV/7YuTIcW+Y4lZ4DvPYaDljcWjc1xsWMzum9SvZeBClRoXXe4Ot +sJLivQdsXGfhrVA7zxvutuV5vPmHjSKVYlG6YV5gI1atHdrBRj0w1dzi4wUd +659NyXWxUehbQkHYTi+YuPMl1vlfNu4b3CM5auQF2ll6JZ+H2NjqUy+5+7sn +3O1cExr3lYz3u/XhVZ8n2EhtB91vbEyPWWhv1+oJXjGHX4dMsvHx8wm94FJP +mHgQnSo7w8bMjN64xVmeEDmX4n5njo2nBkU49xI8QWJFodbeX2zsstEUPMTx +hBv+dyb//GGjz4NxGcMgT/gfy1o8/Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06269411834065636}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06269411834065636}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913218813523655`*^9, 3.9942575824115267`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"43247e92-7199-41d1-a42a-0ca9670f747a"] +}, Open ]], + +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", @@ -7602,517 +7565,747 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"30", ",", "0.003631"}], "}"}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, - 3.994084153728354*^9},ExpressionUUID->"d9d63445-4981-8f49-b88b-\ -9e93d345c648"], - -Cell[BoxData[ - RowBox[{"Show", "[", - RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"39000a9e-1f94-0640-8925-\ -ec28b28907cc"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"L", "=", - FractionBox[ - SqrtBox[ - RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.99179966106703*^9},ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], - -Cell[BoxData["11.27534350842078`"], "Output", - CellChangeTimes->{3.9913229040054893`*^9}, - CellLabel->"Out[88]=",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"L", "=", - RowBox[{"Plot", "[", - RowBox[{ - RowBox[{ - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], - RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", - RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], - ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", - FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - FractionBox["1", "Cb"], ")"}]}]], - RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", - RowBox[{"{", - RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991799666995865*^9},ExpressionUUID->"7116d4f3-8ab8-b741-8264-\ -0a5eeac170a0"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 89, 17, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913229042538757`*^9}, + 3.994084153728354*^9}, CellLabel-> - "During evaluation of \ -In[89]:=",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], + "In[105]:=",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ -\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 89, 18, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913229042728806`*^9}, - CellLabel-> - "During evaluation of \ -In[89]:=",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ -\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 89, 19, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913229042938766`*^9}, - CellLabel-> - "During evaluation of \ -In[89]:=",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], - -Cell[BoxData[ - TemplateBox[{ - "General", "stop", - "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ -\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 89, 20, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913229043127804`*^9}, - CellLabel-> - "During evaluation of \ -In[89]:=",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], - -Cell[BoxData[ - GraphicsBox[ - InterpretationBox[{ - TagBox[{{{}, {}, - TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwd13k4VV0XAHAvoQlFpmu699xrKHOmDNdaSQNKJUUy9SpTUhkzlKGEiqQU -RSKUTOeUlChCIqE3MyXRIMlQKE2+0/fXeX7PGfZea++19z6sfw/Y7OXl4eER -/IeH5+91pr+xjnMqx9RRIPNqkSmatl+RClndHQ0VmTo7zzXLAYq3/ivVnQwp -zr82bW5Wh6AtN7v4urNBga8ykWjmwtIxyeTZrlsg0vVmw5tnm+B1pfWBqa4a -OLHVe4n4MydYxxl5Ndn1AngyD7fyNO6H2S6DlImuQaj0EVnxqPII1K65nvNf -9lfIvXvcw7ouEWRfl7//V+03iK7O0ryQdgGW+bjcFFzDhwnHlG9L7cmAZO11 -Fdbb56PnhY3lK9WyoSdVq3pyiRCuWrH4saJmLpzKiWjllV6Kgal9/V7KN0Dy -/FD8uQwxdDhUObTmwU2ItbUwfTEjjr4p71S5HYXAKG1h8P4jgWf8h3SuvCqE -YjHbb9qLJPDW4hqV2XeF0PnCmTyrIIG+t7Z0pM8UAmdrALF1gwQWfwtQuCxZ -BDWbMgWep0mgv9KLQj/7Ivi9brql2UQS7cjzNbEdReBvmOXSGC2FusYHw1kP -isHyqvCU1WkptD8+EHisthgIwfC4lhQp7BJX//26sRiet++g2m5IYfG8mdtx -ncWgcXAxX3+LFL5wf3kvdbwYhvOC874wpNHZr7PnFrMEHJdZf5a5LY1TDxUv -NR8tAZ2wiqgrldKoXv5PdeTxElg4qCLBqpfGRL1z+zROlkB5CR8o9UjjwWmj -bSEpJSBhVZ6kNSeN5im3XJsLSuB5FEd3rRUD+WLmOfh2lYD5+I9Q3yEG3tdu -yLYQJyFkw/kVj0YZmKziOvBQkoTiLPVesRkGHu80CNNmkCBl62pYPl8G5w2W -NwgrkDB67/E3Pg0Z1H9zrzZfhYRz0UkBaYdl0Hf24OrdxiQMiiv51gnJYkxZ -/8NOZxIkD1TJSUrK4msZmYpvriRsbLBv9mLKInNpnISEGwlloafURHRk8YK4 -6ydLDxJOvp4Y2Wkvi9Wk4pKUAySszK/wGM+Wxdlktd0FESREmWzdzVglh2ue -9ci9ySBhg/OVLwZmcpgqeX97RyYJwpGfjm3fKIelTqJh9VkkpNfG5CW5yqF8 -M/tMZi4J9yzvfxKIl8NXgs+G1IpImLBnB33tkcPrhSahpRUk3A09KLj0rRwe -bS24EfyAhKPpD1I1xuSQX22gwaCKhMUDdhVevPLYHdz0uriGBGWP0zwDK+Rx -G2l28HAjCc6B0yefhcljbt5Wt5BOEhQvmsmOxMhjqONQ26Luv/k7UySYJI+p -v32ML/eQEPpr+XOzHHl8fLJtgnxJQsoxZ/HyZ/J4cb/I3N1BEp6dfZKZK6eA -rWEqv3XHSDAqTis9WqWAMv9pbvzMS4F5V8vvsQYF9K8UmV04jwJrnnnrXV4o -YPB06WIlfgrcbHx74J0Cpg+1eNkKUrAujBURyc/E988G+JMXUXBQYebaalUm -flGIlz0rRsH07aSGWU0mMtp+usUsoyB0g+pnSpeJOdtCpYLFKYg55KpPmDKR -Nbn6qY0kBZdqnzbwbmWirhLp+IlBQZ1H5ufaICaehfz0LBYFFr8MRcPDmLjD -4NYHH4KClqR2fd1IJu6ZzM/TY1PQU74gMieeiaWOOtFVHArGFgWIxqQzEWd8 -K0uVKfC/KmzAzWJi9YObt/epUPBdN3/XdC4Tn/yIIJjLKeBz7s/ZW8JEJZsu -z6gVFEiRGwzW1TBx0udIrqI6BRnmQ7v+1DPRrKrOvYE20XMksqyJidHnA695 -alCgznu7UamDiRm1AmezNCkws5VzFBxmYhGj0HJamwKf75ORDUIstO4VuMHR -p8DokLvEe1EW8o3zn86nPX+kt4BPioVOairHVQ0oyO2r7TQlWLh+LuK20ioK -+h+mqN3RZ+Gq2o2sH4YUFBosrHlhzELxMM1yDyM6v+RRuwlk4c7udO8XtCWy -PaJVrVg4crFHNtOYgs0xht1ZLizMTNz2QpxLgfyfov1Ve1jYnvTHwof2aBDB -98qLhWIPmwaqaMd5LtKQCmChp1eer7MpBTveRNTqhbDQLIfwyKfNcZiy33aU -hRXRV6ImaVdbvTqWGMfCBzdCFUKAgsS6rdKFCSzcE7E55x5tR259cWMyCz9K -CFlP057VKOmZl8HCkhQdMXekoOE6+wCRzcKUFgmtS7QvMFPn4XUWZnl3BTTR -XikapRlGsdB/w+fDiqsp4Dk1XZdaxsLDiTWG1rRb+LwdyirofECgYgDt9PD+ -8bZqFuozn5hcpL1v2iZm8jEL0wpCI+/SNvJ9whBpYqGl8LbJdtrzPxiTas9Z -uFxlWdI47U4Xcq1lBwtdTkU7CZpRkNPN6fPoZeGHMDcHWdp+W9MOxrxm4Z+x -8FgN2vhUSODaWxbeOZnyjktbeE305eqP9HjkBgRa0n5VMaPVP8ZC/rWDBra0 -C3X31f/8ykIhhevqu2iHFr3eJT3LwoSLp+1caG9Qsp3U/8PCjmrHMlfaEpkN -J2z5CJxyGLT8e/+tJFfWbz6BGm3D4n/fv5VEUWeECAxZYyL19/uRC5TWF4kS -+P1Qvs3f9jdHX3r5VJLAI89/P/7bP/mfwn7DsgTOhQn6/+3/qP8xQQGCQBmT -lP/Hd3/0WzpbmcD46KAjf+OP2+uzcrUageneYS//5mdH/8ATZ20Cq+4FHO6g -zbHb7hSuT+Bkj47NPdpfWhu/pBkTqDV00juVdvUG07i7SODSsxtrAmknProl -17GWQOb6jQ5baDsaKd/+Ykmgt4izjgrtWdUl/erbCWSYLCpspcd/JoMRpeNA -oKTgfP2rtKdEFDmGLnS8RbVyvrTHvhp6m3sRaPMgbwEv7U97zYUsfennjTxE -Guj5NtxlTW72J3D0rlTQKdqDFW4zDkfo+LfHei2k/VrdN801msCPxoPfHtPz -+WXmYRP3WALXF3mNHKXdeSwh+tBZAqVZODdM18dTq7vCcbkEiovN/skwoeDJ -g0dUwk0Cg+ZnPzanXaf5zPZcCYH3tiz8NkzX30OxN5eulBPYtHB/xnLat/oW -Kt9pJnDPwAeR03Q9l2wSf3r/BYEc7ak18n/ru0phf3UXgdYVQR+L6PrPu6Z7 -u+kNgUp+5qcf0+vDpX3OMDhNYELJyIZOPQouvvIc/PCDwAy9BKYt7fOb/WM+ -zxHowxN5sFWXzrdOXNP3BWy0z24Of6hDQfRPyk5Eno2/A71cjtLr075T/AdN -1rHxob7z0hNqFHj+FhEzs2JjbM6yrj5VCtwPMMrWb2Gj2YguW5O26zbNXzYO -bMywtrJpoddPW5mdcV6+bIy5Kq44rkSBSUHh1QsX2HjPYtyzgklBH7Mgc+1l -NnLWGK/8rkDP9wv5V6Yy2ajuIfNmJe27UXnpNvlsXHHv8pcsObre7a+mCley -UVW4cdad3g+W859POvGGjU+Ou65JoPeXhtDkM3rv2egzJfrohijdv4mkxLcj -bBxXSNKqWUrXa1/CabMpNoaYzhseE6GAeSs27o8AB0300lo0F9P15BIWGaTG -wYTkO8u30PvdnfaQCEVtDrZOV7Os+Oh4LA8fbdfjYPMqtpQ5vT8m6wWGrwQO -Xk1g8GnxUCC0+MDhsa0c1BJePjz+k4R55f8edA/mYKewd/aSryRMilq67qjh -oPVKleN9r0no9iGeez/hINVp7hzeT0J1/Q+IeMbByk/NPxivSEgKLVC40clB -9yNuEVt7SdAaXPx6doSD0mZu7dfaSfClWp0yxBRRi5+R0d9Awsjm7bve7lFE -Sftr+qUlJLzIV2/67qWIciK8/iLFJNznEzAWOqCI/M7u5z0LSYi/W8bQD1HE -jBM3Ti7LJ0FFQao3NkERG2d59mzLJsFjrNdetUwRz7/fW7P/PAlvT7vu8BNU -wveTN+Zkg+n2R9QIrcVKeCx3faBdIAnf1s9+/rxECS8Jhegm+ZOwkC85xouh -hJ991p77RZ+3tEJqS13VlfDOJs/Rak8SjuxVEtu8TQndso6//L6TBAnT0VbV -TCXs2vjTUI0+71mMB1u801fG5xGCRMFkCchqy5+Yb6JMny+GT86MlsCYX12N -6mpl/P6sP8x0uATOzywx8bNSRiWf2rna/hLo/52vMeeijEnhKW25TSXgt/il -mHS8Mn7aZtZcn1MCl5Zj/8Y+ZXywtIJ1xrYERt3m+5dGqGC9p158zc1i+n9E -kje2ZjmKvQ3MYHOLQLRZKZEcX4FFU1F/7BsKQDauZIu+vhqab5KctWTchFRV -wyViHuoI5o9aiMM34Cljtd7Xsxpo2OS5bltHHhjJ1iRpdmqilOTm/MlFuSDM -lx2wO1oLWaSR1bI910A+SsFkp5I25rW9Gc3LyoIFio5lNk+0MatRmTE8kgka -XOmSYKeV2N0mo+Q7mg5+/aK1ljw6qLvU+nhNZxqMfz293SJVB88oNF/kYV2E -9Zr1lyzUdXG2q7E5MOc8PPxq/PNbiy5qcKEgnJMMvmore//bq4eafO5OaXNn -gDu2p33nAn0UPEMFW9SegrUcqU1C2fqoG/9Bp1EzDlQiTx6uMTBAw7XhCYoC -MbBir2GVYq8BrswKsuuejoK9Dz2Plx5ahad/nXJZ1HsUqq6275kUN8S8n9ae -1+eFwtSNuW+adw1Rbt6aiVVDgeCmWLDg0iYjLKJ4huTj/WByxTn9WxNGmH85 -JSjsqS/cy/n5ZjrOGL98GmoRqPUCB3M2GsuboLBXe6dF7F6Q2R9brlFtglYL -h2xMr+6GxDl3vVM1JrhrOX/gaPJu4E1eR32oM0H2cJnttZjdMFLGn3+10QSD -eYONVPfthvs8x1NF20xQ8VSowjX93eBwPjJ45p0JinDbbTVbXSG1IkTv4SIu -igZuHkoTcAXxhT7UJjsuSrwrWh4p4wQ5a46ETuzkojcr9NYOXidYeSRxzTlH -LuqtP2uOHx3BeoLs6N7NxWPR9ds33nWEE53Ts24+XJQWdH63ztYRvmdHmIVG -cfFoz/KzFWd3Qa/xuba8Ai4mwsRzG4YDeAbmpFsUc/HPeo0VAXwOMFN8Z+8o -ycV4/T7566M7QZTo/qZdxsVlTf8Ur67aCVbz5WQfVHOxff9C9Q17d0Jle96e -tg4uWkS2Ljhbag+WwvfUg7q5KH6obrT+ij10r2+ckerjYkj4xgqheHuYuv8p -znmAi1u968abnexBPUur6OMIF8sNiTjJ+fZQ2bs66PRnLjqFOqW1fbEDy2Xb -QHOCi60DfHj1lR24xwb+FzDNxX383cS+23YwVX3ikuR3LjbGl1p4XbGD6B8X -3e7/4GJ29c6+4Hg7WKKbr+b0m4vaAyuaLwTYwZX996fn5rgY1XNmWb2LHfwP -U0FU/w== - "]]}, - Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, - {"WolframDynamicHighlight", <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], - StyleBox[ - DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, - Slot["HighlightElements"], - Slot["LayoutOptions"], - Slot["Meta"], - Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ Annotation[{ Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwd13k4VV0XAHAvoQlFpmu699xrKHOmDNdaSQNKJUUy9SpTUhkzlKGEiqQU -RSKUTOeUlChCIqE3MyXRIMlQKE2+0/fXeX7PGfZea++19z6sfw/Y7OXl4eER -/IeH5+91pr+xjnMqx9RRIPNqkSmatl+RClndHQ0VmTo7zzXLAYq3/ivVnQwp -zr82bW5Wh6AtN7v4urNBga8ykWjmwtIxyeTZrlsg0vVmw5tnm+B1pfWBqa4a -OLHVe4n4MydYxxl5Ndn1AngyD7fyNO6H2S6DlImuQaj0EVnxqPII1K65nvNf -9lfIvXvcw7ouEWRfl7//V+03iK7O0ryQdgGW+bjcFFzDhwnHlG9L7cmAZO11 -Fdbb56PnhY3lK9WyoSdVq3pyiRCuWrH4saJmLpzKiWjllV6Kgal9/V7KN0Dy -/FD8uQwxdDhUObTmwU2ItbUwfTEjjr4p71S5HYXAKG1h8P4jgWf8h3SuvCqE -YjHbb9qLJPDW4hqV2XeF0PnCmTyrIIG+t7Z0pM8UAmdrALF1gwQWfwtQuCxZ -BDWbMgWep0mgv9KLQj/7Ivi9brql2UQS7cjzNbEdReBvmOXSGC2FusYHw1kP -isHyqvCU1WkptD8+EHisthgIwfC4lhQp7BJX//26sRiet++g2m5IYfG8mdtx -ncWgcXAxX3+LFL5wf3kvdbwYhvOC874wpNHZr7PnFrMEHJdZf5a5LY1TDxUv -NR8tAZ2wiqgrldKoXv5PdeTxElg4qCLBqpfGRL1z+zROlkB5CR8o9UjjwWmj -bSEpJSBhVZ6kNSeN5im3XJsLSuB5FEd3rRUD+WLmOfh2lYD5+I9Q3yEG3tdu -yLYQJyFkw/kVj0YZmKziOvBQkoTiLPVesRkGHu80CNNmkCBl62pYPl8G5w2W -NwgrkDB67/E3Pg0Z1H9zrzZfhYRz0UkBaYdl0Hf24OrdxiQMiiv51gnJYkxZ -/8NOZxIkD1TJSUrK4msZmYpvriRsbLBv9mLKInNpnISEGwlloafURHRk8YK4 -6ydLDxJOvp4Y2Wkvi9Wk4pKUAySszK/wGM+Wxdlktd0FESREmWzdzVglh2ue -9ci9ySBhg/OVLwZmcpgqeX97RyYJwpGfjm3fKIelTqJh9VkkpNfG5CW5yqF8 -M/tMZi4J9yzvfxKIl8NXgs+G1IpImLBnB33tkcPrhSahpRUk3A09KLj0rRwe -bS24EfyAhKPpD1I1xuSQX22gwaCKhMUDdhVevPLYHdz0uriGBGWP0zwDK+Rx -G2l28HAjCc6B0yefhcljbt5Wt5BOEhQvmsmOxMhjqONQ26Luv/k7UySYJI+p -v32ML/eQEPpr+XOzHHl8fLJtgnxJQsoxZ/HyZ/J4cb/I3N1BEp6dfZKZK6eA -rWEqv3XHSDAqTis9WqWAMv9pbvzMS4F5V8vvsQYF9K8UmV04jwJrnnnrXV4o -YPB06WIlfgrcbHx74J0Cpg+1eNkKUrAujBURyc/E988G+JMXUXBQYebaalUm -flGIlz0rRsH07aSGWU0mMtp+usUsoyB0g+pnSpeJOdtCpYLFKYg55KpPmDKR -Nbn6qY0kBZdqnzbwbmWirhLp+IlBQZ1H5ufaICaehfz0LBYFFr8MRcPDmLjD -4NYHH4KClqR2fd1IJu6ZzM/TY1PQU74gMieeiaWOOtFVHArGFgWIxqQzEWd8 -K0uVKfC/KmzAzWJi9YObt/epUPBdN3/XdC4Tn/yIIJjLKeBz7s/ZW8JEJZsu -z6gVFEiRGwzW1TBx0udIrqI6BRnmQ7v+1DPRrKrOvYE20XMksqyJidHnA695 -alCgznu7UamDiRm1AmezNCkws5VzFBxmYhGj0HJamwKf75ORDUIstO4VuMHR -p8DokLvEe1EW8o3zn86nPX+kt4BPioVOairHVQ0oyO2r7TQlWLh+LuK20ioK -+h+mqN3RZ+Gq2o2sH4YUFBosrHlhzELxMM1yDyM6v+RRuwlk4c7udO8XtCWy -PaJVrVg4crFHNtOYgs0xht1ZLizMTNz2QpxLgfyfov1Ve1jYnvTHwof2aBDB -98qLhWIPmwaqaMd5LtKQCmChp1eer7MpBTveRNTqhbDQLIfwyKfNcZiy33aU -hRXRV6ImaVdbvTqWGMfCBzdCFUKAgsS6rdKFCSzcE7E55x5tR259cWMyCz9K -CFlP057VKOmZl8HCkhQdMXekoOE6+wCRzcKUFgmtS7QvMFPn4XUWZnl3BTTR -XikapRlGsdB/w+fDiqsp4Dk1XZdaxsLDiTWG1rRb+LwdyirofECgYgDt9PD+ -8bZqFuozn5hcpL1v2iZm8jEL0wpCI+/SNvJ9whBpYqGl8LbJdtrzPxiTas9Z -uFxlWdI47U4Xcq1lBwtdTkU7CZpRkNPN6fPoZeGHMDcHWdp+W9MOxrxm4Z+x -8FgN2vhUSODaWxbeOZnyjktbeE305eqP9HjkBgRa0n5VMaPVP8ZC/rWDBra0 -C3X31f/8ykIhhevqu2iHFr3eJT3LwoSLp+1caG9Qsp3U/8PCjmrHMlfaEpkN -J2z5CJxyGLT8e/+tJFfWbz6BGm3D4n/fv5VEUWeECAxZYyL19/uRC5TWF4kS -+P1Qvs3f9jdHX3r5VJLAI89/P/7bP/mfwn7DsgTOhQn6/+3/qP8xQQGCQBmT -lP/Hd3/0WzpbmcD46KAjf+OP2+uzcrUageneYS//5mdH/8ATZ20Cq+4FHO6g -zbHb7hSuT+Bkj47NPdpfWhu/pBkTqDV00juVdvUG07i7SODSsxtrAmknProl -17GWQOb6jQ5baDsaKd/+Ykmgt4izjgrtWdUl/erbCWSYLCpspcd/JoMRpeNA -oKTgfP2rtKdEFDmGLnS8RbVyvrTHvhp6m3sRaPMgbwEv7U97zYUsfennjTxE -Guj5NtxlTW72J3D0rlTQKdqDFW4zDkfo+LfHei2k/VrdN801msCPxoPfHtPz -+WXmYRP3WALXF3mNHKXdeSwh+tBZAqVZODdM18dTq7vCcbkEiovN/skwoeDJ -g0dUwk0Cg+ZnPzanXaf5zPZcCYH3tiz8NkzX30OxN5eulBPYtHB/xnLat/oW -Kt9pJnDPwAeR03Q9l2wSf3r/BYEc7ak18n/ru0phf3UXgdYVQR+L6PrPu6Z7 -u+kNgUp+5qcf0+vDpX3OMDhNYELJyIZOPQouvvIc/PCDwAy9BKYt7fOb/WM+ -zxHowxN5sFWXzrdOXNP3BWy0z24Of6hDQfRPyk5Eno2/A71cjtLr075T/AdN -1rHxob7z0hNqFHj+FhEzs2JjbM6yrj5VCtwPMMrWb2Gj2YguW5O26zbNXzYO -bMywtrJpoddPW5mdcV6+bIy5Kq44rkSBSUHh1QsX2HjPYtyzgklBH7Mgc+1l -NnLWGK/8rkDP9wv5V6Yy2ajuIfNmJe27UXnpNvlsXHHv8pcsObre7a+mCley -UVW4cdad3g+W859POvGGjU+Ou65JoPeXhtDkM3rv2egzJfrohijdv4mkxLcj -bBxXSNKqWUrXa1/CabMpNoaYzhseE6GAeSs27o8AB0300lo0F9P15BIWGaTG -wYTkO8u30PvdnfaQCEVtDrZOV7Os+Oh4LA8fbdfjYPMqtpQ5vT8m6wWGrwQO -Xk1g8GnxUCC0+MDhsa0c1BJePjz+k4R55f8edA/mYKewd/aSryRMilq67qjh -oPVKleN9r0no9iGeez/hINVp7hzeT0J1/Q+IeMbByk/NPxivSEgKLVC40clB -9yNuEVt7SdAaXPx6doSD0mZu7dfaSfClWp0yxBRRi5+R0d9Awsjm7bve7lFE -Sftr+qUlJLzIV2/67qWIciK8/iLFJNznEzAWOqCI/M7u5z0LSYi/W8bQD1HE -jBM3Ti7LJ0FFQao3NkERG2d59mzLJsFjrNdetUwRz7/fW7P/PAlvT7vu8BNU -wveTN+Zkg+n2R9QIrcVKeCx3faBdIAnf1s9+/rxECS8Jhegm+ZOwkC85xouh -hJ991p77RZ+3tEJqS13VlfDOJs/Rak8SjuxVEtu8TQndso6//L6TBAnT0VbV -TCXs2vjTUI0+71mMB1u801fG5xGCRMFkCchqy5+Yb6JMny+GT86MlsCYX12N -6mpl/P6sP8x0uATOzywx8bNSRiWf2rna/hLo/52vMeeijEnhKW25TSXgt/il -mHS8Mn7aZtZcn1MCl5Zj/8Y+ZXywtIJ1xrYERt3m+5dGqGC9p158zc1i+n9E -kje2ZjmKvQ3MYHOLQLRZKZEcX4FFU1F/7BsKQDauZIu+vhqab5KctWTchFRV -wyViHuoI5o9aiMM34Cljtd7Xsxpo2OS5bltHHhjJ1iRpdmqilOTm/MlFuSDM -lx2wO1oLWaSR1bI910A+SsFkp5I25rW9Gc3LyoIFio5lNk+0MatRmTE8kgka -XOmSYKeV2N0mo+Q7mg5+/aK1ljw6qLvU+nhNZxqMfz293SJVB88oNF/kYV2E -9Zr1lyzUdXG2q7E5MOc8PPxq/PNbiy5qcKEgnJMMvmore//bq4eafO5OaXNn -gDu2p33nAn0UPEMFW9SegrUcqU1C2fqoG/9Bp1EzDlQiTx6uMTBAw7XhCYoC -MbBir2GVYq8BrswKsuuejoK9Dz2Plx5ahad/nXJZ1HsUqq6275kUN8S8n9ae -1+eFwtSNuW+adw1Rbt6aiVVDgeCmWLDg0iYjLKJ4huTj/WByxTn9WxNGmH85 -JSjsqS/cy/n5ZjrOGL98GmoRqPUCB3M2GsuboLBXe6dF7F6Q2R9brlFtglYL -h2xMr+6GxDl3vVM1JrhrOX/gaPJu4E1eR32oM0H2cJnttZjdMFLGn3+10QSD -eYONVPfthvs8x1NF20xQ8VSowjX93eBwPjJ45p0JinDbbTVbXSG1IkTv4SIu -igZuHkoTcAXxhT7UJjsuSrwrWh4p4wQ5a46ETuzkojcr9NYOXidYeSRxzTlH -LuqtP2uOHx3BeoLs6N7NxWPR9ds33nWEE53Ts24+XJQWdH63ztYRvmdHmIVG -cfFoz/KzFWd3Qa/xuba8Ai4mwsRzG4YDeAbmpFsUc/HPeo0VAXwOMFN8Z+8o -ycV4/T7566M7QZTo/qZdxsVlTf8Ur67aCVbz5WQfVHOxff9C9Q17d0Jle96e -tg4uWkS2Ljhbag+WwvfUg7q5KH6obrT+ij10r2+ckerjYkj4xgqheHuYuv8p -znmAi1u968abnexBPUur6OMIF8sNiTjJ+fZQ2bs66PRnLjqFOqW1fbEDy2Xb -QHOCi60DfHj1lR24xwb+FzDNxX383cS+23YwVX3ikuR3LjbGl1p4XbGD6B8X -3e7/4GJ29c6+4Hg7WKKbr+b0m4vaAyuaLwTYwZX996fn5rgY1XNmWb2LHfwP -U0FU/w== - "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, - "Frame" -> {{False, False}, {False, False}}, + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>]]& )[<| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, - "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { - 4.503599627370496*^15, -4.503599627370496*^15}}], - Selectable->False]}, - Annotation[{{{{}, {}, + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ Annotation[{ Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwd13k4VV0XAHAvoQlFpmu699xrKHOmDNdaSQNKJUUy9SpTUhkzlKGEiqQU -RSKUTOeUlChCIqE3MyXRIMlQKE2+0/fXeX7PGfZea++19z6sfw/Y7OXl4eER -/IeH5+91pr+xjnMqx9RRIPNqkSmatl+RClndHQ0VmTo7zzXLAYq3/ivVnQwp -zr82bW5Wh6AtN7v4urNBga8ykWjmwtIxyeTZrlsg0vVmw5tnm+B1pfWBqa4a -OLHVe4n4MydYxxl5Ndn1AngyD7fyNO6H2S6DlImuQaj0EVnxqPII1K65nvNf -9lfIvXvcw7ouEWRfl7//V+03iK7O0ryQdgGW+bjcFFzDhwnHlG9L7cmAZO11 -Fdbb56PnhY3lK9WyoSdVq3pyiRCuWrH4saJmLpzKiWjllV6Kgal9/V7KN0Dy -/FD8uQwxdDhUObTmwU2ItbUwfTEjjr4p71S5HYXAKG1h8P4jgWf8h3SuvCqE -YjHbb9qLJPDW4hqV2XeF0PnCmTyrIIG+t7Z0pM8UAmdrALF1gwQWfwtQuCxZ -BDWbMgWep0mgv9KLQj/7Ivi9brql2UQS7cjzNbEdReBvmOXSGC2FusYHw1kP -isHyqvCU1WkptD8+EHisthgIwfC4lhQp7BJX//26sRiet++g2m5IYfG8mdtx -ncWgcXAxX3+LFL5wf3kvdbwYhvOC874wpNHZr7PnFrMEHJdZf5a5LY1TDxUv -NR8tAZ2wiqgrldKoXv5PdeTxElg4qCLBqpfGRL1z+zROlkB5CR8o9UjjwWmj -bSEpJSBhVZ6kNSeN5im3XJsLSuB5FEd3rRUD+WLmOfh2lYD5+I9Q3yEG3tdu -yLYQJyFkw/kVj0YZmKziOvBQkoTiLPVesRkGHu80CNNmkCBl62pYPl8G5w2W -NwgrkDB67/E3Pg0Z1H9zrzZfhYRz0UkBaYdl0Hf24OrdxiQMiiv51gnJYkxZ -/8NOZxIkD1TJSUrK4msZmYpvriRsbLBv9mLKInNpnISEGwlloafURHRk8YK4 -6ydLDxJOvp4Y2Wkvi9Wk4pKUAySszK/wGM+Wxdlktd0FESREmWzdzVglh2ue -9ci9ySBhg/OVLwZmcpgqeX97RyYJwpGfjm3fKIelTqJh9VkkpNfG5CW5yqF8 -M/tMZi4J9yzvfxKIl8NXgs+G1IpImLBnB33tkcPrhSahpRUk3A09KLj0rRwe -bS24EfyAhKPpD1I1xuSQX22gwaCKhMUDdhVevPLYHdz0uriGBGWP0zwDK+Rx -G2l28HAjCc6B0yefhcljbt5Wt5BOEhQvmsmOxMhjqONQ26Luv/k7UySYJI+p -v32ML/eQEPpr+XOzHHl8fLJtgnxJQsoxZ/HyZ/J4cb/I3N1BEp6dfZKZK6eA -rWEqv3XHSDAqTis9WqWAMv9pbvzMS4F5V8vvsQYF9K8UmV04jwJrnnnrXV4o -YPB06WIlfgrcbHx74J0Cpg+1eNkKUrAujBURyc/E988G+JMXUXBQYebaalUm -flGIlz0rRsH07aSGWU0mMtp+usUsoyB0g+pnSpeJOdtCpYLFKYg55KpPmDKR -Nbn6qY0kBZdqnzbwbmWirhLp+IlBQZ1H5ufaICaehfz0LBYFFr8MRcPDmLjD -4NYHH4KClqR2fd1IJu6ZzM/TY1PQU74gMieeiaWOOtFVHArGFgWIxqQzEWd8 -K0uVKfC/KmzAzWJi9YObt/epUPBdN3/XdC4Tn/yIIJjLKeBz7s/ZW8JEJZsu -z6gVFEiRGwzW1TBx0udIrqI6BRnmQ7v+1DPRrKrOvYE20XMksqyJidHnA695 -alCgznu7UamDiRm1AmezNCkws5VzFBxmYhGj0HJamwKf75ORDUIstO4VuMHR -p8DokLvEe1EW8o3zn86nPX+kt4BPioVOairHVQ0oyO2r7TQlWLh+LuK20ioK -+h+mqN3RZ+Gq2o2sH4YUFBosrHlhzELxMM1yDyM6v+RRuwlk4c7udO8XtCWy -PaJVrVg4crFHNtOYgs0xht1ZLizMTNz2QpxLgfyfov1Ve1jYnvTHwof2aBDB -98qLhWIPmwaqaMd5LtKQCmChp1eer7MpBTveRNTqhbDQLIfwyKfNcZiy33aU -hRXRV6ImaVdbvTqWGMfCBzdCFUKAgsS6rdKFCSzcE7E55x5tR259cWMyCz9K -CFlP057VKOmZl8HCkhQdMXekoOE6+wCRzcKUFgmtS7QvMFPn4XUWZnl3BTTR -XikapRlGsdB/w+fDiqsp4Dk1XZdaxsLDiTWG1rRb+LwdyirofECgYgDt9PD+ -8bZqFuozn5hcpL1v2iZm8jEL0wpCI+/SNvJ9whBpYqGl8LbJdtrzPxiTas9Z -uFxlWdI47U4Xcq1lBwtdTkU7CZpRkNPN6fPoZeGHMDcHWdp+W9MOxrxm4Z+x -8FgN2vhUSODaWxbeOZnyjktbeE305eqP9HjkBgRa0n5VMaPVP8ZC/rWDBra0 -C3X31f/8ykIhhevqu2iHFr3eJT3LwoSLp+1caG9Qsp3U/8PCjmrHMlfaEpkN -J2z5CJxyGLT8e/+tJFfWbz6BGm3D4n/fv5VEUWeECAxZYyL19/uRC5TWF4kS -+P1Qvs3f9jdHX3r5VJLAI89/P/7bP/mfwn7DsgTOhQn6/+3/qP8xQQGCQBmT -lP/Hd3/0WzpbmcD46KAjf+OP2+uzcrUageneYS//5mdH/8ATZ20Cq+4FHO6g -zbHb7hSuT+Bkj47NPdpfWhu/pBkTqDV00juVdvUG07i7SODSsxtrAmknProl -17GWQOb6jQ5baDsaKd/+Ykmgt4izjgrtWdUl/erbCWSYLCpspcd/JoMRpeNA -oKTgfP2rtKdEFDmGLnS8RbVyvrTHvhp6m3sRaPMgbwEv7U97zYUsfennjTxE -Guj5NtxlTW72J3D0rlTQKdqDFW4zDkfo+LfHei2k/VrdN801msCPxoPfHtPz -+WXmYRP3WALXF3mNHKXdeSwh+tBZAqVZODdM18dTq7vCcbkEiovN/skwoeDJ -g0dUwk0Cg+ZnPzanXaf5zPZcCYH3tiz8NkzX30OxN5eulBPYtHB/xnLat/oW -Kt9pJnDPwAeR03Q9l2wSf3r/BYEc7ak18n/ru0phf3UXgdYVQR+L6PrPu6Z7 -u+kNgUp+5qcf0+vDpX3OMDhNYELJyIZOPQouvvIc/PCDwAy9BKYt7fOb/WM+ -zxHowxN5sFWXzrdOXNP3BWy0z24Of6hDQfRPyk5Eno2/A71cjtLr075T/AdN -1rHxob7z0hNqFHj+FhEzs2JjbM6yrj5VCtwPMMrWb2Gj2YguW5O26zbNXzYO -bMywtrJpoddPW5mdcV6+bIy5Kq44rkSBSUHh1QsX2HjPYtyzgklBH7Mgc+1l -NnLWGK/8rkDP9wv5V6Yy2ajuIfNmJe27UXnpNvlsXHHv8pcsObre7a+mCley -UVW4cdad3g+W859POvGGjU+Ou65JoPeXhtDkM3rv2egzJfrohijdv4mkxLcj -bBxXSNKqWUrXa1/CabMpNoaYzhseE6GAeSs27o8AB0300lo0F9P15BIWGaTG -wYTkO8u30PvdnfaQCEVtDrZOV7Os+Oh4LA8fbdfjYPMqtpQ5vT8m6wWGrwQO -Xk1g8GnxUCC0+MDhsa0c1BJePjz+k4R55f8edA/mYKewd/aSryRMilq67qjh -oPVKleN9r0no9iGeez/hINVp7hzeT0J1/Q+IeMbByk/NPxivSEgKLVC40clB -9yNuEVt7SdAaXPx6doSD0mZu7dfaSfClWp0yxBRRi5+R0d9Awsjm7bve7lFE -Sftr+qUlJLzIV2/67qWIciK8/iLFJNznEzAWOqCI/M7u5z0LSYi/W8bQD1HE -jBM3Ti7LJ0FFQao3NkERG2d59mzLJsFjrNdetUwRz7/fW7P/PAlvT7vu8BNU -wveTN+Zkg+n2R9QIrcVKeCx3faBdIAnf1s9+/rxECS8Jhegm+ZOwkC85xouh -hJ991p77RZ+3tEJqS13VlfDOJs/Rak8SjuxVEtu8TQndso6//L6TBAnT0VbV -TCXs2vjTUI0+71mMB1u801fG5xGCRMFkCchqy5+Yb6JMny+GT86MlsCYX12N -6mpl/P6sP8x0uATOzywx8bNSRiWf2rna/hLo/52vMeeijEnhKW25TSXgt/il -mHS8Mn7aZtZcn1MCl5Zj/8Y+ZXywtIJ1xrYERt3m+5dGqGC9p158zc1i+n9E -kje2ZjmKvQ3MYHOLQLRZKZEcX4FFU1F/7BsKQDauZIu+vhqab5KctWTchFRV -wyViHuoI5o9aiMM34Cljtd7Xsxpo2OS5bltHHhjJ1iRpdmqilOTm/MlFuSDM -lx2wO1oLWaSR1bI910A+SsFkp5I25rW9Gc3LyoIFio5lNk+0MatRmTE8kgka -XOmSYKeV2N0mo+Q7mg5+/aK1ljw6qLvU+nhNZxqMfz293SJVB88oNF/kYV2E -9Zr1lyzUdXG2q7E5MOc8PPxq/PNbiy5qcKEgnJMMvmore//bq4eafO5OaXNn -gDu2p33nAn0UPEMFW9SegrUcqU1C2fqoG/9Bp1EzDlQiTx6uMTBAw7XhCYoC -MbBir2GVYq8BrswKsuuejoK9Dz2Plx5ahad/nXJZ1HsUqq6275kUN8S8n9ae -1+eFwtSNuW+adw1Rbt6aiVVDgeCmWLDg0iYjLKJ4huTj/WByxTn9WxNGmH85 -JSjsqS/cy/n5ZjrOGL98GmoRqPUCB3M2GsuboLBXe6dF7F6Q2R9brlFtglYL -h2xMr+6GxDl3vVM1JrhrOX/gaPJu4E1eR32oM0H2cJnttZjdMFLGn3+10QSD -eYONVPfthvs8x1NF20xQ8VSowjX93eBwPjJ45p0JinDbbTVbXSG1IkTv4SIu -igZuHkoTcAXxhT7UJjsuSrwrWh4p4wQ5a46ETuzkojcr9NYOXidYeSRxzTlH -LuqtP2uOHx3BeoLs6N7NxWPR9ds33nWEE53Ts24+XJQWdH63ztYRvmdHmIVG -cfFoz/KzFWd3Qa/xuba8Ai4mwsRzG4YDeAbmpFsUc/HPeo0VAXwOMFN8Z+8o -ycV4/T7566M7QZTo/qZdxsVlTf8Ur67aCVbz5WQfVHOxff9C9Q17d0Jle96e -tg4uWkS2Ljhbag+WwvfUg7q5KH6obrT+ij10r2+ckerjYkj4xgqheHuYuv8p -znmAi1u968abnexBPUur6OMIF8sNiTjJ+fZQ2bs66PRnLjqFOqW1fbEDy2Xb -QHOCi60DfHj1lR24xwb+FzDNxX383cS+23YwVX3ikuR3LjbGl1p4XbGD6B8X -3e7/4GJ29c6+4Hg7WKKbr+b0m4vaAyuaLwTYwZX996fn5rgY1XNmWb2LHfwP -U0FU/w== - "]]}, "Charting`Private`Tag#1"]}}, {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, - "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, - "Primitives" -> {}, "GCFlag" -> False|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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->{ + "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.060284}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9942575826428843`*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"4df1e527-76c6-4014-a63b-b83219fc87b9"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[106]:=",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk8VdsXAHCRR2V6mYXcey6RmZByrRUa0KSkqJBZmZKUJpcyVJJQimTM +EO65MqdSoRGVvIjiGV5JIjI3/fbv/HM+38/57HP2WmfvtRfDLXCbJz8fuebx +8f3/PtX9rIF1PtdcM2jK2V3OzLzthlzYmo5ISI9LWZ/dKA8o/dJNriMRrEO1 +m7wbNSB06612gY5s4NRuO2vRaAp/j8gmzrbfhgs6cW/EG62h5+7mwIn2RyDp +FqYR2uAI61hDH8baW8G05q6J+iNfmG03ufytvQ/sJXoaf1eHQb1lfu7r7O8g +UyT65FLOOVDsqfnopvUL7JViq2euJoGUn8stIUsBDIxrzBc4dw0S9dfVbt4h +jBY6zqF7izPg3VW9B2MSotjrG5GUF5UN53PDX/LL/40hCSqX7Y1ugmxy/9mk +dEksXtx96kJKPsTYW5u3Tkmj2HaN7ruXCuGQaZbLs0g5TMriEy32LwKbTLEJ +2zg5FPEA6wUhRcAUOhHbclkOrRaPGrsdK4JXbQ6lbwrk8Et3NUsopgh0gkQE +ulvk0NWz00wpswgG847kjSvI44sW5bmw10WwR2rz1yVl8ph4IqhmXK8YrEbn +jgX0K+CwyrrQ5r5iCNuQvPzhsAIGnI4Lm/1UDNws7U7JKQXsH1hlxfhaDHL2 +rqY1wkswLVJM12O6GIarG6cFdJbg9q6IHVWLSiApMiHk2tEliDUBDxINS6BP +Wi2gQVQRQzUH5ZU4JSAbWKckK6uIk1PFdQ/PlMDGp7uafVUUsXW8Vt3tbAlU +HjuvJW6oiH5vjlhdSSyBcz3fhhx3KeLLDZ2ZL3JLwKCw1ns0WxGfvKcG9j8t +gQgzu30KK5WQvetI+HERLmxwvjFuYqGELbc6W8ckuCDG+XJ6x0YlrGSqaLhL +c+F6fVRegqsSel7O7DZW5kK1zZ0vf51Vwu6Q4cBsXS5820WFfn+nhBUFdZbn +7LjgfHjyXNNxZSwcHa5Mv8QF1RQLxaEoZXQ6rp0XcplL4r9YIpSgjB5x9unr +rnHh2E+NVxa5yjjosiW3K5MLl087S9c0KSO8k1B8TnOh6dKTjJtKSzHs/qvR +6iYurOJeKz9VtxSNRy7Y/8tPg1V7y6+Rp+S5UWBzryANm/nmr3dpXYoK1rd+ +dAvT4L4t4B38txSXbj0Z1iRGw7rjjHCOoAqWZ88IhCjQELR0KmeNpgpq1wRl +T+rR0OCd8bU+VAVrc20LGp1osP5puvjEcRW0bnvMMd9LQ0tCm/EKjgrWjPQr +lLnQ8K5mASf3rAoKwovLFz1oGFkUsjjqugoWi0zelg6gQY63wWTdIxXMGhgc +d+DQ4DczxnkqysCtRU5zvCwaVh30kvm4mIGCBwWTm3JoEB7qLBKQY+AFEyGr +/ps03Oyqf2vOZKDeyY+f592iofv+Za0KYwYG7jbeN/82DVuiTDuyXBgIqJSj +/JAG5d8l/nUeDPQw/DD75RENw6FMgQ++DOR/9S64vIGGWJ9FOnIhDLwzXNRi +/JSGB7YfTsfHMnDj5c+W817SYLA4Qvd4KQNtzWw7S7po4Ds/2XC1koGasQ4V +2h9I/AL7nSprGcgZ5dUVdNNwYHJb1FgjA3eP13km9NKQ28Hq8u5k4NxZjrja +JxqC7a4FRfUwUDjE+GT4IA34XPSvnAEGNvMMGG2fafhQO6XXPcLAFWoXxQOH +aZDJeBptL8DEgluiGQfGaBiQZSsGCzNx5RTVcWOchtsJpaUXRZlofaVuc/N3 +En9k6vvnskz8x331zJIpEp+nn8EaLSYybwU7cOZomNWU6NbewUQr6aCFhvN4 +MJWuEGHoxETtPreyXOIJcVWWqQsTK3XPy0nx82Dku+l+K18mCj7cKz9M3Ffr +PuV0konxkVv5I+bzoEc74JprJBNvZOmn/kv8PuOomVcMExeNyY6zBXnw9vSF +yIOXyHzwv/4x4ue2VWKxN5l4O83og7kQD57ce1h64Rb5ftNoZBxxg26TfRLN +xMcz6cPtxPcle1Nv1DDx/dO3oj7CPKiN+sLOvc/Eed1uj4uJq6cn/y2sZyJ/ +639Wo8S3uxYuq2hm4qeAjsv+C3hAb5J+fqeViUfsNvkWEhfXLfV/0M7EjKj6 ++f3EeTkryl70MtHmVP3lLQt5kCMNDq8/MlFrtUNcJHFmjPXs2y9MbDb9ubGM +OPWAM/RNMjFM+JqO2CIepHzw6fs0x0Sz6OtbVxInbzkU9fUPE9Mzm8xdiS89 +PKn+fT6FLW282SjieMPYFzMLKNSTfh1RSHz+ZmLAbzEKJZ5VtD8njpVN/3u+ +FIX2TZ9+fCaO/FG6U1yZwo+HHUsZIjwI9787J0VR6CxXYrmK+ETP43QFdQp/ +zwvN20ocZvcaVbQpNLeDTg/i0PquflUDCg+mJPeEEh8y+hitaUKhf8e8qmji +oPxvGvpmFOI5yX3JxAHyP5qM11A4mOzQnUF84LxgkNk6Cudv26VbSOzzS1zS +wpbCM3F59jxir0CFyvVbKXTlvNxcQezey3LctIPCDZ37lKuJXbfr/tzmROGe +quH6/3tvo2nGLhcKX+f+gSpiJxMrC2cPCmszlieVEe8s3Pyfuy+FN6V+3ysh +tl/iGOsbQKFTz8KHN4ntLrhrBh6i8LxN3/U04s1//FtCjlJ4Slxm20Vi24NH +Dx47SfK9Y2Uvh3hDf6QUJ5JC8bIumyDitTsuVEXFUBi7POniXmKLJylO5+NI +frXG6Q3EYJr9K+EShQMpccX6xGZFxZlXrlAoWDkVJUfcpVKUsTaNwp++Jaw/ +5P8cu1J4YyKD5HtH8GA/cVVE3vVthRSOoEhvPrHDdG7aPC6FZg1tMjHEE345 +qbzbFGqcSTzkQWywK/Oq2F2Sf9OOHHni1803Uu49oFDLxOHoGFlvQZbpV/wa +KWyOrDj8hJirk5r8vIXC8jNCX/2JNQSTE6J7KaxTSunKJev56bHEi0YfKbSz +rJ0fQOz1LSF+YIhC9YZ8JyPi3K4LcRYTFAYYvom/T/aLyu2Y2N9/sfDKBge1 +WrLf6pZFx5QsYqFUbnr9YWLn9DPReyRYqD+af0mHOC024swdeRb+sBN+lPoX +D2RcjnNCtVj4/I1S5F6yvyvawsJV9Vm4WTmzbAGxvc3RU21GLNzP/12+nNSH +RKPDJwyAhZq/ZWIEiEVFAo+O2LFQ9dn9sThSX4oj/I+kO7Bwa+fyjuXENtMH +QjfuZmFFa8z0Y1KfYvt8Qm55sLBafHn/LB8P5te4BXkdYeFRe//Z5N805Ojs +C5Q+wcL8F+nB5b9osMh1CWjgkO+LSXu9+klD+MU9fsxzLLSUkH7wi9TDOU8H +n+7rLBy4pOqsM03D2GIbV4dHLCz7lGcwOEJDhx/z1f4nLKyT1Rut+krOh8dz +EN7Ewha1LWmnSX1OOFa0tOAtme/D/idiQzTo9Yn0zA6xcDw069rEAA0BpS/3 +pkuqosqn1N1/3tHgsKiguVROFXlJgXfiO2gw9+SwHyupYr0RZ6lCOw2i8vpK +o8tUUdtWll+1jYZiTuJ7NFPFn44JdotaaBjasmP3gIcqmtmecllCzrfWQu0X +M76qqL9A/9WBOhruCPy1WjRQFcdkDjtX36PhbFWlgnGYKra4pL9be4cG9aVy +nTEXVLFmQijEoIwG75HOXZqVqijlqRy7PZecL3GuDsFCani9nmqoO03mP6TF +1BNRw5md8Y21ETRMr5/9+lVCDXNl3saXh9OwUCAxyldBDd2fLTp1/TiJP6y+ +3FVbDcMc4sfXHqLhpKea5JbtarjAZ7Udnxs5z8yHX2pmqGHe2LGBJWwaMtOq +0z7nqKHs/U17ylbRoDF7xju/QA2HxYwb16+kwaxc6Q/zthqqZcQEehuS/mX5 +Fh2FRjX8/Hu+baQGDTyZ23HCX9TwU/iatcukSX8yesT6P+NlaMGnl2IyxAVF +feVoYbNlWGEUzFrxiQsjwQ2PNNcsw5M2xRu1B7iQPCVhFmy7DFc+/hIi3c2F +7l+FOn9cluGayEH7e6+5ECzyXlL+7DJ0O5//1q+aC6ka2L2xaxlqNu2X3Hma +9G/uwofKw9WRGg9g1IqT99+wuld3Rh1Ze3/++rWIC6PvOEIvzqqj/67SeebC +XBjfMpvWm6SOzkHuURV8XJhePdQgVqCO8Y9KSiLHSoBfqknG95U6bpHj8qW0 +loB8w8U7SgwN1NpxlldG+tl1LFn+mEcaeFjCvFqJ9MuLm9XieaPL8cS0htHH +iSJQjKW3Ghtr4ZsK/Sxu/i24qmkqIemtjYbM2Jj5joXwXGGN0fdLOvj0zMch +N74CWKX4KEH3rS46th6uGDiZB2IC2SH7IvWwd/a8ZLzYTVCOWGrmqKaPhi8U +DKJP5cAC1T2V257oY9l4ckLdTBbosOXpI3sNcNVASUZJUiYEdy+ut+EzRDO7 +nh4r4xsw+j1uh/VVQxwxkz0ympAG63Ufp1prr8CBX+fCN0hfg/vfV/+YblmB +ksWsp0IxVyBAy6DztacRuhouuBK1IRnYIx5tjguMcXx9s/Z7/kRYy5LbJJpt +jPnLv33YsygB1Dnnjj4yMUHLiA37naLjYLmnaZ1qpwmpH/PgzY9Y8Lzvc6b8 +4Eq8GnBXV2EuCuoy2zzGpE0xLanvxDbh0zBR8Gdat8oUvTXbbbsPcsBdtWhB +6qZVyP30fdf9xBMwtjzJ+Pa3VVjo2KS+Yv9RqM790TsZuxqrzcNXvv8ZAk5W +FK5WNkMJ16qFzoLBsMQ/pkbngRl+beYwqnwCQHqhX+mmnWwsG+zOLnrrC7mW +J499c2Sjl/Ge6cJ6XzA4GW+ZtIeNL6NqNMp5vrD5G++fjn1sjPxa//fwOV+I +fjs56+7HxndPqe2fwRdmssMtjkWwUX6vTJ1UsQ90rk56k1fExhcJ3SnCF7zB +53DudWsuGV/7YuTIcW+Y4lZ4DvPYaDljcWjc1xsWMzum9SvZeBClRoXXe4Ot +sJLivQdsXGfhrVA7zxvutuV5vPmHjSKVYlG6YV5gI1atHdrBRj0w1dzi4wUd +659NyXWxUehbQkHYTi+YuPMl1vlfNu4b3CM5auQF2ll6JZ+H2NjqUy+5+7sn +3O1cExr3lYz3u/XhVZ8n2EhtB91vbEyPWWhv1+oJXjGHX4dMsvHx8wm94FJP +mHgQnSo7w8bMjN64xVmeEDmX4n5njo2nBkU49xI8QWJFodbeX2zsstEUPMTx +hBv+dyb//GGjz4NxGcMgT/gfy1o8/Q== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VdsXAHCRR2V6mYXcey6RmZByrRUa0KSkqJBZmZKUJpcyVJJQimTM +EO65MqdSoRGVvIjiGV5JIjI3/fbv/HM+38/57HP2WmfvtRfDLXCbJz8fuebx +8f3/PtX9rIF1PtdcM2jK2V3OzLzthlzYmo5ISI9LWZ/dKA8o/dJNriMRrEO1 +m7wbNSB06612gY5s4NRuO2vRaAp/j8gmzrbfhgs6cW/EG62h5+7mwIn2RyDp +FqYR2uAI61hDH8baW8G05q6J+iNfmG03ufytvQ/sJXoaf1eHQb1lfu7r7O8g +UyT65FLOOVDsqfnopvUL7JViq2euJoGUn8stIUsBDIxrzBc4dw0S9dfVbt4h +jBY6zqF7izPg3VW9B2MSotjrG5GUF5UN53PDX/LL/40hCSqX7Y1ugmxy/9mk +dEksXtx96kJKPsTYW5u3Tkmj2HaN7ruXCuGQaZbLs0g5TMriEy32LwKbTLEJ +2zg5FPEA6wUhRcAUOhHbclkOrRaPGrsdK4JXbQ6lbwrk8Et3NUsopgh0gkQE +ulvk0NWz00wpswgG847kjSvI44sW5bmw10WwR2rz1yVl8ph4IqhmXK8YrEbn +jgX0K+CwyrrQ5r5iCNuQvPzhsAIGnI4Lm/1UDNws7U7JKQXsH1hlxfhaDHL2 +rqY1wkswLVJM12O6GIarG6cFdJbg9q6IHVWLSiApMiHk2tEliDUBDxINS6BP +Wi2gQVQRQzUH5ZU4JSAbWKckK6uIk1PFdQ/PlMDGp7uafVUUsXW8Vt3tbAlU +HjuvJW6oiH5vjlhdSSyBcz3fhhx3KeLLDZ2ZL3JLwKCw1ns0WxGfvKcG9j8t +gQgzu30KK5WQvetI+HERLmxwvjFuYqGELbc6W8ckuCDG+XJ6x0YlrGSqaLhL +c+F6fVRegqsSel7O7DZW5kK1zZ0vf51Vwu6Q4cBsXS5820WFfn+nhBUFdZbn +7LjgfHjyXNNxZSwcHa5Mv8QF1RQLxaEoZXQ6rp0XcplL4r9YIpSgjB5x9unr +rnHh2E+NVxa5yjjosiW3K5MLl087S9c0KSO8k1B8TnOh6dKTjJtKSzHs/qvR +6iYurOJeKz9VtxSNRy7Y/8tPg1V7y6+Rp+S5UWBzryANm/nmr3dpXYoK1rd+ +dAvT4L4t4B38txSXbj0Z1iRGw7rjjHCOoAqWZ88IhCjQELR0KmeNpgpq1wRl +T+rR0OCd8bU+VAVrc20LGp1osP5puvjEcRW0bnvMMd9LQ0tCm/EKjgrWjPQr +lLnQ8K5mASf3rAoKwovLFz1oGFkUsjjqugoWi0zelg6gQY63wWTdIxXMGhgc +d+DQ4DczxnkqysCtRU5zvCwaVh30kvm4mIGCBwWTm3JoEB7qLBKQY+AFEyGr +/ps03Oyqf2vOZKDeyY+f592iofv+Za0KYwYG7jbeN/82DVuiTDuyXBgIqJSj +/JAG5d8l/nUeDPQw/DD75RENw6FMgQ++DOR/9S64vIGGWJ9FOnIhDLwzXNRi +/JSGB7YfTsfHMnDj5c+W817SYLA4Qvd4KQNtzWw7S7po4Ds/2XC1koGasQ4V +2h9I/AL7nSprGcgZ5dUVdNNwYHJb1FgjA3eP13km9NKQ28Hq8u5k4NxZjrja +JxqC7a4FRfUwUDjE+GT4IA34XPSvnAEGNvMMGG2fafhQO6XXPcLAFWoXxQOH +aZDJeBptL8DEgluiGQfGaBiQZSsGCzNx5RTVcWOchtsJpaUXRZlofaVuc/N3 +En9k6vvnskz8x331zJIpEp+nn8EaLSYybwU7cOZomNWU6NbewUQr6aCFhvN4 +MJWuEGHoxETtPreyXOIJcVWWqQsTK3XPy0nx82Dku+l+K18mCj7cKz9M3Ffr +PuV0konxkVv5I+bzoEc74JprJBNvZOmn/kv8PuOomVcMExeNyY6zBXnw9vSF +yIOXyHzwv/4x4ue2VWKxN5l4O83og7kQD57ce1h64Rb5ftNoZBxxg26TfRLN +xMcz6cPtxPcle1Nv1DDx/dO3oj7CPKiN+sLOvc/Eed1uj4uJq6cn/y2sZyJ/ +639Wo8S3uxYuq2hm4qeAjsv+C3hAb5J+fqeViUfsNvkWEhfXLfV/0M7EjKj6 ++f3EeTkryl70MtHmVP3lLQt5kCMNDq8/MlFrtUNcJHFmjPXs2y9MbDb9ubGM +OPWAM/RNMjFM+JqO2CIepHzw6fs0x0Sz6OtbVxInbzkU9fUPE9Mzm8xdiS89 +PKn+fT6FLW282SjieMPYFzMLKNSTfh1RSHz+ZmLAbzEKJZ5VtD8njpVN/3u+ +FIX2TZ9+fCaO/FG6U1yZwo+HHUsZIjwI9787J0VR6CxXYrmK+ETP43QFdQp/ +zwvN20ocZvcaVbQpNLeDTg/i0PquflUDCg+mJPeEEh8y+hitaUKhf8e8qmji +oPxvGvpmFOI5yX3JxAHyP5qM11A4mOzQnUF84LxgkNk6Cudv26VbSOzzS1zS +wpbCM3F59jxir0CFyvVbKXTlvNxcQezey3LctIPCDZ37lKuJXbfr/tzmROGe +quH6/3tvo2nGLhcKX+f+gSpiJxMrC2cPCmszlieVEe8s3Pyfuy+FN6V+3ysh +tl/iGOsbQKFTz8KHN4ntLrhrBh6i8LxN3/U04s1//FtCjlJ4Slxm20Vi24NH +Dx47SfK9Y2Uvh3hDf6QUJ5JC8bIumyDitTsuVEXFUBi7POniXmKLJylO5+NI +frXG6Q3EYJr9K+EShQMpccX6xGZFxZlXrlAoWDkVJUfcpVKUsTaNwp++Jaw/ +5P8cu1J4YyKD5HtH8GA/cVVE3vVthRSOoEhvPrHDdG7aPC6FZg1tMjHEE345 +qbzbFGqcSTzkQWywK/Oq2F2Sf9OOHHni1803Uu49oFDLxOHoGFlvQZbpV/wa +KWyOrDj8hJirk5r8vIXC8jNCX/2JNQSTE6J7KaxTSunKJev56bHEi0YfKbSz +rJ0fQOz1LSF+YIhC9YZ8JyPi3K4LcRYTFAYYvom/T/aLyu2Y2N9/sfDKBge1 +WrLf6pZFx5QsYqFUbnr9YWLn9DPReyRYqD+af0mHOC024swdeRb+sBN+lPoX +D2RcjnNCtVj4/I1S5F6yvyvawsJV9Vm4WTmzbAGxvc3RU21GLNzP/12+nNSH +RKPDJwyAhZq/ZWIEiEVFAo+O2LFQ9dn9sThSX4oj/I+kO7Bwa+fyjuXENtMH +QjfuZmFFa8z0Y1KfYvt8Qm55sLBafHn/LB8P5te4BXkdYeFRe//Z5N805Ojs +C5Q+wcL8F+nB5b9osMh1CWjgkO+LSXu9+klD+MU9fsxzLLSUkH7wi9TDOU8H +n+7rLBy4pOqsM03D2GIbV4dHLCz7lGcwOEJDhx/z1f4nLKyT1Rut+krOh8dz +EN7Ewha1LWmnSX1OOFa0tOAtme/D/idiQzTo9Yn0zA6xcDw069rEAA0BpS/3 +pkuqosqn1N1/3tHgsKiguVROFXlJgXfiO2gw9+SwHyupYr0RZ6lCOw2i8vpK +o8tUUdtWll+1jYZiTuJ7NFPFn44JdotaaBjasmP3gIcqmtmecllCzrfWQu0X +M76qqL9A/9WBOhruCPy1WjRQFcdkDjtX36PhbFWlgnGYKra4pL9be4cG9aVy +nTEXVLFmQijEoIwG75HOXZqVqijlqRy7PZecL3GuDsFCani9nmqoO03mP6TF +1BNRw5md8Y21ETRMr5/9+lVCDXNl3saXh9OwUCAxyldBDd2fLTp1/TiJP6y+ +3FVbDcMc4sfXHqLhpKea5JbtarjAZ7Udnxs5z8yHX2pmqGHe2LGBJWwaMtOq +0z7nqKHs/U17ylbRoDF7xju/QA2HxYwb16+kwaxc6Q/zthqqZcQEehuS/mX5 +Fh2FRjX8/Hu+baQGDTyZ23HCX9TwU/iatcukSX8yesT6P+NlaMGnl2IyxAVF +feVoYbNlWGEUzFrxiQsjwQ2PNNcsw5M2xRu1B7iQPCVhFmy7DFc+/hIi3c2F +7l+FOn9cluGayEH7e6+5ECzyXlL+7DJ0O5//1q+aC6ka2L2xaxlqNu2X3Hma +9G/uwofKw9WRGg9g1IqT99+wuld3Rh1Ze3/++rWIC6PvOEIvzqqj/67SeebC +XBjfMpvWm6SOzkHuURV8XJhePdQgVqCO8Y9KSiLHSoBfqknG95U6bpHj8qW0 +loB8w8U7SgwN1NpxlldG+tl1LFn+mEcaeFjCvFqJ9MuLm9XieaPL8cS0htHH +iSJQjKW3Ghtr4ZsK/Sxu/i24qmkqIemtjYbM2Jj5joXwXGGN0fdLOvj0zMch +N74CWKX4KEH3rS46th6uGDiZB2IC2SH7IvWwd/a8ZLzYTVCOWGrmqKaPhi8U +DKJP5cAC1T2V257oY9l4ckLdTBbosOXpI3sNcNVASUZJUiYEdy+ut+EzRDO7 +nh4r4xsw+j1uh/VVQxwxkz0ympAG63Ufp1prr8CBX+fCN0hfg/vfV/+YblmB +ksWsp0IxVyBAy6DztacRuhouuBK1IRnYIx5tjguMcXx9s/Z7/kRYy5LbJJpt +jPnLv33YsygB1Dnnjj4yMUHLiA37naLjYLmnaZ1qpwmpH/PgzY9Y8Lzvc6b8 +4Eq8GnBXV2EuCuoy2zzGpE0xLanvxDbh0zBR8Gdat8oUvTXbbbsPcsBdtWhB +6qZVyP30fdf9xBMwtjzJ+Pa3VVjo2KS+Yv9RqM790TsZuxqrzcNXvv8ZAk5W +FK5WNkMJ16qFzoLBsMQ/pkbngRl+beYwqnwCQHqhX+mmnWwsG+zOLnrrC7mW +J499c2Sjl/Ge6cJ6XzA4GW+ZtIeNL6NqNMp5vrD5G++fjn1sjPxa//fwOV+I +fjs56+7HxndPqe2fwRdmssMtjkWwUX6vTJ1UsQ90rk56k1fExhcJ3SnCF7zB +53DudWsuGV/7YuTIcW+Y4lZ4DvPYaDljcWjc1xsWMzum9SvZeBClRoXXe4Ot +sJLivQdsXGfhrVA7zxvutuV5vPmHjSKVYlG6YV5gI1atHdrBRj0w1dzi4wUd +659NyXWxUehbQkHYTi+YuPMl1vlfNu4b3CM5auQF2ll6JZ+H2NjqUy+5+7sn +3O1cExr3lYz3u/XhVZ8n2EhtB91vbEyPWWhv1+oJXjGHX4dMsvHx8wm94FJP +mHgQnSo7w8bMjN64xVmeEDmX4n5njo2nBkU49xI8QWJFodbeX2zsstEUPMTx +hBv+dyb//GGjz4NxGcMgT/gfy1o8/Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06269411834065636}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06269411834065636}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VdsXAHCRR2V6mYXcey6RmZByrRUa0KSkqJBZmZKUJpcyVJJQimTM +EO65MqdSoRGVvIjiGV5JIjI3/fbv/HM+38/57HP2WmfvtRfDLXCbJz8fuebx +8f3/PtX9rIF1PtdcM2jK2V3OzLzthlzYmo5ISI9LWZ/dKA8o/dJNriMRrEO1 +m7wbNSB06612gY5s4NRuO2vRaAp/j8gmzrbfhgs6cW/EG62h5+7mwIn2RyDp +FqYR2uAI61hDH8baW8G05q6J+iNfmG03ufytvQ/sJXoaf1eHQb1lfu7r7O8g +UyT65FLOOVDsqfnopvUL7JViq2euJoGUn8stIUsBDIxrzBc4dw0S9dfVbt4h +jBY6zqF7izPg3VW9B2MSotjrG5GUF5UN53PDX/LL/40hCSqX7Y1ugmxy/9mk +dEksXtx96kJKPsTYW5u3Tkmj2HaN7ruXCuGQaZbLs0g5TMriEy32LwKbTLEJ +2zg5FPEA6wUhRcAUOhHbclkOrRaPGrsdK4JXbQ6lbwrk8Et3NUsopgh0gkQE +ulvk0NWz00wpswgG847kjSvI44sW5bmw10WwR2rz1yVl8ph4IqhmXK8YrEbn +jgX0K+CwyrrQ5r5iCNuQvPzhsAIGnI4Lm/1UDNws7U7JKQXsH1hlxfhaDHL2 +rqY1wkswLVJM12O6GIarG6cFdJbg9q6IHVWLSiApMiHk2tEliDUBDxINS6BP +Wi2gQVQRQzUH5ZU4JSAbWKckK6uIk1PFdQ/PlMDGp7uafVUUsXW8Vt3tbAlU +HjuvJW6oiH5vjlhdSSyBcz3fhhx3KeLLDZ2ZL3JLwKCw1ns0WxGfvKcG9j8t +gQgzu30KK5WQvetI+HERLmxwvjFuYqGELbc6W8ckuCDG+XJ6x0YlrGSqaLhL +c+F6fVRegqsSel7O7DZW5kK1zZ0vf51Vwu6Q4cBsXS5820WFfn+nhBUFdZbn +7LjgfHjyXNNxZSwcHa5Mv8QF1RQLxaEoZXQ6rp0XcplL4r9YIpSgjB5x9unr +rnHh2E+NVxa5yjjosiW3K5MLl087S9c0KSO8k1B8TnOh6dKTjJtKSzHs/qvR +6iYurOJeKz9VtxSNRy7Y/8tPg1V7y6+Rp+S5UWBzryANm/nmr3dpXYoK1rd+ +dAvT4L4t4B38txSXbj0Z1iRGw7rjjHCOoAqWZ88IhCjQELR0KmeNpgpq1wRl +T+rR0OCd8bU+VAVrc20LGp1osP5puvjEcRW0bnvMMd9LQ0tCm/EKjgrWjPQr +lLnQ8K5mASf3rAoKwovLFz1oGFkUsjjqugoWi0zelg6gQY63wWTdIxXMGhgc +d+DQ4DczxnkqysCtRU5zvCwaVh30kvm4mIGCBwWTm3JoEB7qLBKQY+AFEyGr +/ps03Oyqf2vOZKDeyY+f592iofv+Za0KYwYG7jbeN/82DVuiTDuyXBgIqJSj +/JAG5d8l/nUeDPQw/DD75RENw6FMgQ++DOR/9S64vIGGWJ9FOnIhDLwzXNRi +/JSGB7YfTsfHMnDj5c+W817SYLA4Qvd4KQNtzWw7S7po4Ds/2XC1koGasQ4V +2h9I/AL7nSprGcgZ5dUVdNNwYHJb1FgjA3eP13km9NKQ28Hq8u5k4NxZjrja +JxqC7a4FRfUwUDjE+GT4IA34XPSvnAEGNvMMGG2fafhQO6XXPcLAFWoXxQOH +aZDJeBptL8DEgluiGQfGaBiQZSsGCzNx5RTVcWOchtsJpaUXRZlofaVuc/N3 +En9k6vvnskz8x331zJIpEp+nn8EaLSYybwU7cOZomNWU6NbewUQr6aCFhvN4 +MJWuEGHoxETtPreyXOIJcVWWqQsTK3XPy0nx82Dku+l+K18mCj7cKz9M3Ffr +PuV0konxkVv5I+bzoEc74JprJBNvZOmn/kv8PuOomVcMExeNyY6zBXnw9vSF +yIOXyHzwv/4x4ue2VWKxN5l4O83og7kQD57ce1h64Rb5ftNoZBxxg26TfRLN +xMcz6cPtxPcle1Nv1DDx/dO3oj7CPKiN+sLOvc/Eed1uj4uJq6cn/y2sZyJ/ +639Wo8S3uxYuq2hm4qeAjsv+C3hAb5J+fqeViUfsNvkWEhfXLfV/0M7EjKj6 ++f3EeTkryl70MtHmVP3lLQt5kCMNDq8/MlFrtUNcJHFmjPXs2y9MbDb9ubGM +OPWAM/RNMjFM+JqO2CIepHzw6fs0x0Sz6OtbVxInbzkU9fUPE9Mzm8xdiS89 +PKn+fT6FLW282SjieMPYFzMLKNSTfh1RSHz+ZmLAbzEKJZ5VtD8njpVN/3u+ +FIX2TZ9+fCaO/FG6U1yZwo+HHUsZIjwI9787J0VR6CxXYrmK+ETP43QFdQp/ +zwvN20ocZvcaVbQpNLeDTg/i0PquflUDCg+mJPeEEh8y+hitaUKhf8e8qmji +oPxvGvpmFOI5yX3JxAHyP5qM11A4mOzQnUF84LxgkNk6Cudv26VbSOzzS1zS +wpbCM3F59jxir0CFyvVbKXTlvNxcQezey3LctIPCDZ37lKuJXbfr/tzmROGe +quH6/3tvo2nGLhcKX+f+gSpiJxMrC2cPCmszlieVEe8s3Pyfuy+FN6V+3ysh +tl/iGOsbQKFTz8KHN4ntLrhrBh6i8LxN3/U04s1//FtCjlJ4Slxm20Vi24NH +Dx47SfK9Y2Uvh3hDf6QUJ5JC8bIumyDitTsuVEXFUBi7POniXmKLJylO5+NI +frXG6Q3EYJr9K+EShQMpccX6xGZFxZlXrlAoWDkVJUfcpVKUsTaNwp++Jaw/ +5P8cu1J4YyKD5HtH8GA/cVVE3vVthRSOoEhvPrHDdG7aPC6FZg1tMjHEE345 +qbzbFGqcSTzkQWywK/Oq2F2Sf9OOHHni1803Uu49oFDLxOHoGFlvQZbpV/wa +KWyOrDj8hJirk5r8vIXC8jNCX/2JNQSTE6J7KaxTSunKJev56bHEi0YfKbSz +rJ0fQOz1LSF+YIhC9YZ8JyPi3K4LcRYTFAYYvom/T/aLyu2Y2N9/sfDKBge1 +WrLf6pZFx5QsYqFUbnr9YWLn9DPReyRYqD+af0mHOC024swdeRb+sBN+lPoX +D2RcjnNCtVj4/I1S5F6yvyvawsJV9Vm4WTmzbAGxvc3RU21GLNzP/12+nNSH +RKPDJwyAhZq/ZWIEiEVFAo+O2LFQ9dn9sThSX4oj/I+kO7Bwa+fyjuXENtMH +QjfuZmFFa8z0Y1KfYvt8Qm55sLBafHn/LB8P5te4BXkdYeFRe//Z5N805Ojs +C5Q+wcL8F+nB5b9osMh1CWjgkO+LSXu9+klD+MU9fsxzLLSUkH7wi9TDOU8H +n+7rLBy4pOqsM03D2GIbV4dHLCz7lGcwOEJDhx/z1f4nLKyT1Rut+krOh8dz +EN7Ewha1LWmnSX1OOFa0tOAtme/D/idiQzTo9Yn0zA6xcDw069rEAA0BpS/3 +pkuqosqn1N1/3tHgsKiguVROFXlJgXfiO2gw9+SwHyupYr0RZ6lCOw2i8vpK +o8tUUdtWll+1jYZiTuJ7NFPFn44JdotaaBjasmP3gIcqmtmecllCzrfWQu0X +M76qqL9A/9WBOhruCPy1WjRQFcdkDjtX36PhbFWlgnGYKra4pL9be4cG9aVy +nTEXVLFmQijEoIwG75HOXZqVqijlqRy7PZecL3GuDsFCani9nmqoO03mP6TF +1BNRw5md8Y21ETRMr5/9+lVCDXNl3saXh9OwUCAxyldBDd2fLTp1/TiJP6y+ +3FVbDcMc4sfXHqLhpKea5JbtarjAZ7Udnxs5z8yHX2pmqGHe2LGBJWwaMtOq +0z7nqKHs/U17ylbRoDF7xju/QA2HxYwb16+kwaxc6Q/zthqqZcQEehuS/mX5 +Fh2FRjX8/Hu+baQGDTyZ23HCX9TwU/iatcukSX8yesT6P+NlaMGnl2IyxAVF +feVoYbNlWGEUzFrxiQsjwQ2PNNcsw5M2xRu1B7iQPCVhFmy7DFc+/hIi3c2F +7l+FOn9cluGayEH7e6+5ECzyXlL+7DJ0O5//1q+aC6ka2L2xaxlqNu2X3Hma +9G/uwofKw9WRGg9g1IqT99+wuld3Rh1Ze3/++rWIC6PvOEIvzqqj/67SeebC +XBjfMpvWm6SOzkHuURV8XJhePdQgVqCO8Y9KSiLHSoBfqknG95U6bpHj8qW0 +loB8w8U7SgwN1NpxlldG+tl1LFn+mEcaeFjCvFqJ9MuLm9XieaPL8cS0htHH +iSJQjKW3Ghtr4ZsK/Sxu/i24qmkqIemtjYbM2Jj5joXwXGGN0fdLOvj0zMch +N74CWKX4KEH3rS46th6uGDiZB2IC2SH7IvWwd/a8ZLzYTVCOWGrmqKaPhi8U +DKJP5cAC1T2V257oY9l4ckLdTBbosOXpI3sNcNVASUZJUiYEdy+ut+EzRDO7 +nh4r4xsw+j1uh/VVQxwxkz0ympAG63Ufp1prr8CBX+fCN0hfg/vfV/+YblmB +ksWsp0IxVyBAy6DztacRuhouuBK1IRnYIx5tjguMcXx9s/Z7/kRYy5LbJJpt +jPnLv33YsygB1Dnnjj4yMUHLiA37naLjYLmnaZ1qpwmpH/PgzY9Y8Lzvc6b8 +4Eq8GnBXV2EuCuoy2zzGpE0xLanvxDbh0zBR8Gdat8oUvTXbbbsPcsBdtWhB +6qZVyP30fdf9xBMwtjzJ+Pa3VVjo2KS+Yv9RqM790TsZuxqrzcNXvv8ZAk5W +FK5WNkMJ16qFzoLBsMQ/pkbngRl+beYwqnwCQHqhX+mmnWwsG+zOLnrrC7mW +J499c2Sjl/Ge6cJ6XzA4GW+ZtIeNL6NqNMp5vrD5G++fjn1sjPxa//fwOV+I +fjs56+7HxndPqe2fwRdmssMtjkWwUX6vTJ1UsQ90rk56k1fExhcJ3SnCF7zB +53DudWsuGV/7YuTIcW+Y4lZ4DvPYaDljcWjc1xsWMzum9SvZeBClRoXXe4Ot +sJLivQdsXGfhrVA7zxvutuV5vPmHjSKVYlG6YV5gI1atHdrBRj0w1dzi4wUd +659NyXWxUehbQkHYTi+YuPMl1vlfNu4b3CM5auQF2ll6JZ+H2NjqUy+5+7sn +3O1cExr3lYz3u/XhVZ8n2EhtB91vbEyPWWhv1+oJXjGHX4dMsvHx8wm94FJP +mHgQnSo7w8bMjN64xVmeEDmX4n5njo2nBkU49xI8QWJFodbeX2zsstEUPMTx +hBv+dyb//GGjz4NxGcMgT/gfy1o8/Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06269411834065636}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8140,7 +8333,551 @@ U0FU/w== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.06741909458355917}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06269411834065636}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Input", + CellChangeTimes->{{3.99430040535115*^9, 3.9943004457806807`*^9}, { + 3.9943041579926653`*^9, + 3.994304160508677*^9}},ExpressionUUID->"25c6a4ce-4d55-4ef8-b253-\ +99142f8a4c9d"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk8VdsXAHCRR2V6mYXcey6RmZByrRUa0KSkqJBZmZKUJpcyVJJQimTM +EO65MqdSoRGVvIjiGV5JIjI3/fbv/HM+38/57HP2WmfvtRfDLXCbJz8fuebx +8f3/PtX9rIF1PtdcM2jK2V3OzLzthlzYmo5ISI9LWZ/dKA8o/dJNriMRrEO1 +m7wbNSB06612gY5s4NRuO2vRaAp/j8gmzrbfhgs6cW/EG62h5+7mwIn2RyDp +FqYR2uAI61hDH8baW8G05q6J+iNfmG03ufytvQ/sJXoaf1eHQb1lfu7r7O8g +UyT65FLOOVDsqfnopvUL7JViq2euJoGUn8stIUsBDIxrzBc4dw0S9dfVbt4h +jBY6zqF7izPg3VW9B2MSotjrG5GUF5UN53PDX/LL/40hCSqX7Y1ugmxy/9mk +dEksXtx96kJKPsTYW5u3Tkmj2HaN7ruXCuGQaZbLs0g5TMriEy32LwKbTLEJ +2zg5FPEA6wUhRcAUOhHbclkOrRaPGrsdK4JXbQ6lbwrk8Et3NUsopgh0gkQE +ulvk0NWz00wpswgG847kjSvI44sW5bmw10WwR2rz1yVl8ph4IqhmXK8YrEbn +jgX0K+CwyrrQ5r5iCNuQvPzhsAIGnI4Lm/1UDNws7U7JKQXsH1hlxfhaDHL2 +rqY1wkswLVJM12O6GIarG6cFdJbg9q6IHVWLSiApMiHk2tEliDUBDxINS6BP +Wi2gQVQRQzUH5ZU4JSAbWKckK6uIk1PFdQ/PlMDGp7uafVUUsXW8Vt3tbAlU +HjuvJW6oiH5vjlhdSSyBcz3fhhx3KeLLDZ2ZL3JLwKCw1ns0WxGfvKcG9j8t +gQgzu30KK5WQvetI+HERLmxwvjFuYqGELbc6W8ckuCDG+XJ6x0YlrGSqaLhL +c+F6fVRegqsSel7O7DZW5kK1zZ0vf51Vwu6Q4cBsXS5820WFfn+nhBUFdZbn +7LjgfHjyXNNxZSwcHa5Mv8QF1RQLxaEoZXQ6rp0XcplL4r9YIpSgjB5x9unr +rnHh2E+NVxa5yjjosiW3K5MLl087S9c0KSO8k1B8TnOh6dKTjJtKSzHs/qvR +6iYurOJeKz9VtxSNRy7Y/8tPg1V7y6+Rp+S5UWBzryANm/nmr3dpXYoK1rd+ +dAvT4L4t4B38txSXbj0Z1iRGw7rjjHCOoAqWZ88IhCjQELR0KmeNpgpq1wRl +T+rR0OCd8bU+VAVrc20LGp1osP5puvjEcRW0bnvMMd9LQ0tCm/EKjgrWjPQr +lLnQ8K5mASf3rAoKwovLFz1oGFkUsjjqugoWi0zelg6gQY63wWTdIxXMGhgc +d+DQ4DczxnkqysCtRU5zvCwaVh30kvm4mIGCBwWTm3JoEB7qLBKQY+AFEyGr +/ps03Oyqf2vOZKDeyY+f592iofv+Za0KYwYG7jbeN/82DVuiTDuyXBgIqJSj +/JAG5d8l/nUeDPQw/DD75RENw6FMgQ++DOR/9S64vIGGWJ9FOnIhDLwzXNRi +/JSGB7YfTsfHMnDj5c+W817SYLA4Qvd4KQNtzWw7S7po4Ds/2XC1koGasQ4V +2h9I/AL7nSprGcgZ5dUVdNNwYHJb1FgjA3eP13km9NKQ28Hq8u5k4NxZjrja +JxqC7a4FRfUwUDjE+GT4IA34XPSvnAEGNvMMGG2fafhQO6XXPcLAFWoXxQOH +aZDJeBptL8DEgluiGQfGaBiQZSsGCzNx5RTVcWOchtsJpaUXRZlofaVuc/N3 +En9k6vvnskz8x331zJIpEp+nn8EaLSYybwU7cOZomNWU6NbewUQr6aCFhvN4 +MJWuEGHoxETtPreyXOIJcVWWqQsTK3XPy0nx82Dku+l+K18mCj7cKz9M3Ffr +PuV0konxkVv5I+bzoEc74JprJBNvZOmn/kv8PuOomVcMExeNyY6zBXnw9vSF +yIOXyHzwv/4x4ue2VWKxN5l4O83og7kQD57ce1h64Rb5ftNoZBxxg26TfRLN +xMcz6cPtxPcle1Nv1DDx/dO3oj7CPKiN+sLOvc/Eed1uj4uJq6cn/y2sZyJ/ +639Wo8S3uxYuq2hm4qeAjsv+C3hAb5J+fqeViUfsNvkWEhfXLfV/0M7EjKj6 ++f3EeTkryl70MtHmVP3lLQt5kCMNDq8/MlFrtUNcJHFmjPXs2y9MbDb9ubGM +OPWAM/RNMjFM+JqO2CIepHzw6fs0x0Sz6OtbVxInbzkU9fUPE9Mzm8xdiS89 +PKn+fT6FLW282SjieMPYFzMLKNSTfh1RSHz+ZmLAbzEKJZ5VtD8njpVN/3u+ +FIX2TZ9+fCaO/FG6U1yZwo+HHUsZIjwI9787J0VR6CxXYrmK+ETP43QFdQp/ +zwvN20ocZvcaVbQpNLeDTg/i0PquflUDCg+mJPeEEh8y+hitaUKhf8e8qmji +oPxvGvpmFOI5yX3JxAHyP5qM11A4mOzQnUF84LxgkNk6Cudv26VbSOzzS1zS +wpbCM3F59jxir0CFyvVbKXTlvNxcQezey3LctIPCDZ37lKuJXbfr/tzmROGe +quH6/3tvo2nGLhcKX+f+gSpiJxMrC2cPCmszlieVEe8s3Pyfuy+FN6V+3ysh +tl/iGOsbQKFTz8KHN4ntLrhrBh6i8LxN3/U04s1//FtCjlJ4Slxm20Vi24NH +Dx47SfK9Y2Uvh3hDf6QUJ5JC8bIumyDitTsuVEXFUBi7POniXmKLJylO5+NI +frXG6Q3EYJr9K+EShQMpccX6xGZFxZlXrlAoWDkVJUfcpVKUsTaNwp++Jaw/ +5P8cu1J4YyKD5HtH8GA/cVVE3vVthRSOoEhvPrHDdG7aPC6FZg1tMjHEE345 +qbzbFGqcSTzkQWywK/Oq2F2Sf9OOHHni1803Uu49oFDLxOHoGFlvQZbpV/wa +KWyOrDj8hJirk5r8vIXC8jNCX/2JNQSTE6J7KaxTSunKJev56bHEi0YfKbSz +rJ0fQOz1LSF+YIhC9YZ8JyPi3K4LcRYTFAYYvom/T/aLyu2Y2N9/sfDKBge1 +WrLf6pZFx5QsYqFUbnr9YWLn9DPReyRYqD+af0mHOC024swdeRb+sBN+lPoX +D2RcjnNCtVj4/I1S5F6yvyvawsJV9Vm4WTmzbAGxvc3RU21GLNzP/12+nNSH +RKPDJwyAhZq/ZWIEiEVFAo+O2LFQ9dn9sThSX4oj/I+kO7Bwa+fyjuXENtMH +QjfuZmFFa8z0Y1KfYvt8Qm55sLBafHn/LB8P5te4BXkdYeFRe//Z5N805Ojs +C5Q+wcL8F+nB5b9osMh1CWjgkO+LSXu9+klD+MU9fsxzLLSUkH7wi9TDOU8H +n+7rLBy4pOqsM03D2GIbV4dHLCz7lGcwOEJDhx/z1f4nLKyT1Rut+krOh8dz +EN7Ewha1LWmnSX1OOFa0tOAtme/D/idiQzTo9Yn0zA6xcDw069rEAA0BpS/3 +pkuqosqn1N1/3tHgsKiguVROFXlJgXfiO2gw9+SwHyupYr0RZ6lCOw2i8vpK +o8tUUdtWll+1jYZiTuJ7NFPFn44JdotaaBjasmP3gIcqmtmecllCzrfWQu0X +M76qqL9A/9WBOhruCPy1WjRQFcdkDjtX36PhbFWlgnGYKra4pL9be4cG9aVy +nTEXVLFmQijEoIwG75HOXZqVqijlqRy7PZecL3GuDsFCani9nmqoO03mP6TF +1BNRw5md8Y21ETRMr5/9+lVCDXNl3saXh9OwUCAxyldBDd2fLTp1/TiJP6y+ +3FVbDcMc4sfXHqLhpKea5JbtarjAZ7Udnxs5z8yHX2pmqGHe2LGBJWwaMtOq +0z7nqKHs/U17ylbRoDF7xju/QA2HxYwb16+kwaxc6Q/zthqqZcQEehuS/mX5 +Fh2FRjX8/Hu+baQGDTyZ23HCX9TwU/iatcukSX8yesT6P+NlaMGnl2IyxAVF +feVoYbNlWGEUzFrxiQsjwQ2PNNcsw5M2xRu1B7iQPCVhFmy7DFc+/hIi3c2F +7l+FOn9cluGayEH7e6+5ECzyXlL+7DJ0O5//1q+aC6ka2L2xaxlqNu2X3Hma +9G/uwofKw9WRGg9g1IqT99+wuld3Rh1Ze3/++rWIC6PvOEIvzqqj/67SeebC +XBjfMpvWm6SOzkHuURV8XJhePdQgVqCO8Y9KSiLHSoBfqknG95U6bpHj8qW0 +loB8w8U7SgwN1NpxlldG+tl1LFn+mEcaeFjCvFqJ9MuLm9XieaPL8cS0htHH +iSJQjKW3Ghtr4ZsK/Sxu/i24qmkqIemtjYbM2Jj5joXwXGGN0fdLOvj0zMch +N74CWKX4KEH3rS46th6uGDiZB2IC2SH7IvWwd/a8ZLzYTVCOWGrmqKaPhi8U +DKJP5cAC1T2V257oY9l4ckLdTBbosOXpI3sNcNVASUZJUiYEdy+ut+EzRDO7 +nh4r4xsw+j1uh/VVQxwxkz0ympAG63Ufp1prr8CBX+fCN0hfg/vfV/+YblmB +ksWsp0IxVyBAy6DztacRuhouuBK1IRnYIx5tjguMcXx9s/Z7/kRYy5LbJJpt +jPnLv33YsygB1Dnnjj4yMUHLiA37naLjYLmnaZ1qpwmpH/PgzY9Y8Lzvc6b8 +4Eq8GnBXV2EuCuoy2zzGpE0xLanvxDbh0zBR8Gdat8oUvTXbbbsPcsBdtWhB +6qZVyP30fdf9xBMwtjzJ+Pa3VVjo2KS+Yv9RqM790TsZuxqrzcNXvv8ZAk5W +FK5WNkMJ16qFzoLBsMQ/pkbngRl+beYwqnwCQHqhX+mmnWwsG+zOLnrrC7mW +J499c2Sjl/Ge6cJ6XzA4GW+ZtIeNL6NqNMp5vrD5G++fjn1sjPxa//fwOV+I +fjs56+7HxndPqe2fwRdmssMtjkWwUX6vTJ1UsQ90rk56k1fExhcJ3SnCF7zB +53DudWsuGV/7YuTIcW+Y4lZ4DvPYaDljcWjc1xsWMzum9SvZeBClRoXXe4Ot +sJLivQdsXGfhrVA7zxvutuV5vPmHjSKVYlG6YV5gI1atHdrBRj0w1dzi4wUd +659NyXWxUehbQkHYTi+YuPMl1vlfNu4b3CM5auQF2ll6JZ+H2NjqUy+5+7sn +3O1cExr3lYz3u/XhVZ8n2EhtB91vbEyPWWhv1+oJXjGHX4dMsvHx8wm94FJP +mHgQnSo7w8bMjN64xVmeEDmX4n5njo2nBkU49xI8QWJFodbeX2zsstEUPMTx +hBv+dyb//GGjz4NxGcMgT/gfy1o8/Q== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VdsXAHCRR2V6mYXcey6RmZByrRUa0KSkqJBZmZKUJpcyVJJQimTM +EO65MqdSoRGVvIjiGV5JIjI3/fbv/HM+38/57HP2WmfvtRfDLXCbJz8fuebx +8f3/PtX9rIF1PtdcM2jK2V3OzLzthlzYmo5ISI9LWZ/dKA8o/dJNriMRrEO1 +m7wbNSB06612gY5s4NRuO2vRaAp/j8gmzrbfhgs6cW/EG62h5+7mwIn2RyDp +FqYR2uAI61hDH8baW8G05q6J+iNfmG03ufytvQ/sJXoaf1eHQb1lfu7r7O8g +UyT65FLOOVDsqfnopvUL7JViq2euJoGUn8stIUsBDIxrzBc4dw0S9dfVbt4h +jBY6zqF7izPg3VW9B2MSotjrG5GUF5UN53PDX/LL/40hCSqX7Y1ugmxy/9mk +dEksXtx96kJKPsTYW5u3Tkmj2HaN7ruXCuGQaZbLs0g5TMriEy32LwKbTLEJ +2zg5FPEA6wUhRcAUOhHbclkOrRaPGrsdK4JXbQ6lbwrk8Et3NUsopgh0gkQE +ulvk0NWz00wpswgG847kjSvI44sW5bmw10WwR2rz1yVl8ph4IqhmXK8YrEbn +jgX0K+CwyrrQ5r5iCNuQvPzhsAIGnI4Lm/1UDNws7U7JKQXsH1hlxfhaDHL2 +rqY1wkswLVJM12O6GIarG6cFdJbg9q6IHVWLSiApMiHk2tEliDUBDxINS6BP +Wi2gQVQRQzUH5ZU4JSAbWKckK6uIk1PFdQ/PlMDGp7uafVUUsXW8Vt3tbAlU +HjuvJW6oiH5vjlhdSSyBcz3fhhx3KeLLDZ2ZL3JLwKCw1ns0WxGfvKcG9j8t +gQgzu30KK5WQvetI+HERLmxwvjFuYqGELbc6W8ckuCDG+XJ6x0YlrGSqaLhL +c+F6fVRegqsSel7O7DZW5kK1zZ0vf51Vwu6Q4cBsXS5820WFfn+nhBUFdZbn +7LjgfHjyXNNxZSwcHa5Mv8QF1RQLxaEoZXQ6rp0XcplL4r9YIpSgjB5x9unr +rnHh2E+NVxa5yjjosiW3K5MLl087S9c0KSO8k1B8TnOh6dKTjJtKSzHs/qvR +6iYurOJeKz9VtxSNRy7Y/8tPg1V7y6+Rp+S5UWBzryANm/nmr3dpXYoK1rd+ +dAvT4L4t4B38txSXbj0Z1iRGw7rjjHCOoAqWZ88IhCjQELR0KmeNpgpq1wRl +T+rR0OCd8bU+VAVrc20LGp1osP5puvjEcRW0bnvMMd9LQ0tCm/EKjgrWjPQr +lLnQ8K5mASf3rAoKwovLFz1oGFkUsjjqugoWi0zelg6gQY63wWTdIxXMGhgc +d+DQ4DczxnkqysCtRU5zvCwaVh30kvm4mIGCBwWTm3JoEB7qLBKQY+AFEyGr +/ps03Oyqf2vOZKDeyY+f592iofv+Za0KYwYG7jbeN/82DVuiTDuyXBgIqJSj +/JAG5d8l/nUeDPQw/DD75RENw6FMgQ++DOR/9S64vIGGWJ9FOnIhDLwzXNRi +/JSGB7YfTsfHMnDj5c+W817SYLA4Qvd4KQNtzWw7S7po4Ds/2XC1koGasQ4V +2h9I/AL7nSprGcgZ5dUVdNNwYHJb1FgjA3eP13km9NKQ28Hq8u5k4NxZjrja +JxqC7a4FRfUwUDjE+GT4IA34XPSvnAEGNvMMGG2fafhQO6XXPcLAFWoXxQOH +aZDJeBptL8DEgluiGQfGaBiQZSsGCzNx5RTVcWOchtsJpaUXRZlofaVuc/N3 +En9k6vvnskz8x331zJIpEp+nn8EaLSYybwU7cOZomNWU6NbewUQr6aCFhvN4 +MJWuEGHoxETtPreyXOIJcVWWqQsTK3XPy0nx82Dku+l+K18mCj7cKz9M3Ffr +PuV0konxkVv5I+bzoEc74JprJBNvZOmn/kv8PuOomVcMExeNyY6zBXnw9vSF +yIOXyHzwv/4x4ue2VWKxN5l4O83og7kQD57ce1h64Rb5ftNoZBxxg26TfRLN +xMcz6cPtxPcle1Nv1DDx/dO3oj7CPKiN+sLOvc/Eed1uj4uJq6cn/y2sZyJ/ +639Wo8S3uxYuq2hm4qeAjsv+C3hAb5J+fqeViUfsNvkWEhfXLfV/0M7EjKj6 ++f3EeTkryl70MtHmVP3lLQt5kCMNDq8/MlFrtUNcJHFmjPXs2y9MbDb9ubGM +OPWAM/RNMjFM+JqO2CIepHzw6fs0x0Sz6OtbVxInbzkU9fUPE9Mzm8xdiS89 +PKn+fT6FLW282SjieMPYFzMLKNSTfh1RSHz+ZmLAbzEKJZ5VtD8njpVN/3u+ +FIX2TZ9+fCaO/FG6U1yZwo+HHUsZIjwI9787J0VR6CxXYrmK+ETP43QFdQp/ +zwvN20ocZvcaVbQpNLeDTg/i0PquflUDCg+mJPeEEh8y+hitaUKhf8e8qmji +oPxvGvpmFOI5yX3JxAHyP5qM11A4mOzQnUF84LxgkNk6Cudv26VbSOzzS1zS +wpbCM3F59jxir0CFyvVbKXTlvNxcQezey3LctIPCDZ37lKuJXbfr/tzmROGe +quH6/3tvo2nGLhcKX+f+gSpiJxMrC2cPCmszlieVEe8s3Pyfuy+FN6V+3ysh +tl/iGOsbQKFTz8KHN4ntLrhrBh6i8LxN3/U04s1//FtCjlJ4Slxm20Vi24NH +Dx47SfK9Y2Uvh3hDf6QUJ5JC8bIumyDitTsuVEXFUBi7POniXmKLJylO5+NI +frXG6Q3EYJr9K+EShQMpccX6xGZFxZlXrlAoWDkVJUfcpVKUsTaNwp++Jaw/ +5P8cu1J4YyKD5HtH8GA/cVVE3vVthRSOoEhvPrHDdG7aPC6FZg1tMjHEE345 +qbzbFGqcSTzkQWywK/Oq2F2Sf9OOHHni1803Uu49oFDLxOHoGFlvQZbpV/wa +KWyOrDj8hJirk5r8vIXC8jNCX/2JNQSTE6J7KaxTSunKJev56bHEi0YfKbSz +rJ0fQOz1LSF+YIhC9YZ8JyPi3K4LcRYTFAYYvom/T/aLyu2Y2N9/sfDKBge1 +WrLf6pZFx5QsYqFUbnr9YWLn9DPReyRYqD+af0mHOC024swdeRb+sBN+lPoX +D2RcjnNCtVj4/I1S5F6yvyvawsJV9Vm4WTmzbAGxvc3RU21GLNzP/12+nNSH +RKPDJwyAhZq/ZWIEiEVFAo+O2LFQ9dn9sThSX4oj/I+kO7Bwa+fyjuXENtMH +QjfuZmFFa8z0Y1KfYvt8Qm55sLBafHn/LB8P5te4BXkdYeFRe//Z5N805Ojs +C5Q+wcL8F+nB5b9osMh1CWjgkO+LSXu9+klD+MU9fsxzLLSUkH7wi9TDOU8H +n+7rLBy4pOqsM03D2GIbV4dHLCz7lGcwOEJDhx/z1f4nLKyT1Rut+krOh8dz +EN7Ewha1LWmnSX1OOFa0tOAtme/D/idiQzTo9Yn0zA6xcDw069rEAA0BpS/3 +pkuqosqn1N1/3tHgsKiguVROFXlJgXfiO2gw9+SwHyupYr0RZ6lCOw2i8vpK +o8tUUdtWll+1jYZiTuJ7NFPFn44JdotaaBjasmP3gIcqmtmecllCzrfWQu0X +M76qqL9A/9WBOhruCPy1WjRQFcdkDjtX36PhbFWlgnGYKra4pL9be4cG9aVy +nTEXVLFmQijEoIwG75HOXZqVqijlqRy7PZecL3GuDsFCani9nmqoO03mP6TF +1BNRw5md8Y21ETRMr5/9+lVCDXNl3saXh9OwUCAxyldBDd2fLTp1/TiJP6y+ +3FVbDcMc4sfXHqLhpKea5JbtarjAZ7Udnxs5z8yHX2pmqGHe2LGBJWwaMtOq +0z7nqKHs/U17ylbRoDF7xju/QA2HxYwb16+kwaxc6Q/zthqqZcQEehuS/mX5 +Fh2FRjX8/Hu+baQGDTyZ23HCX9TwU/iatcukSX8yesT6P+NlaMGnl2IyxAVF +feVoYbNlWGEUzFrxiQsjwQ2PNNcsw5M2xRu1B7iQPCVhFmy7DFc+/hIi3c2F +7l+FOn9cluGayEH7e6+5ECzyXlL+7DJ0O5//1q+aC6ka2L2xaxlqNu2X3Hma +9G/uwofKw9WRGg9g1IqT99+wuld3Rh1Ze3/++rWIC6PvOEIvzqqj/67SeebC +XBjfMpvWm6SOzkHuURV8XJhePdQgVqCO8Y9KSiLHSoBfqknG95U6bpHj8qW0 +loB8w8U7SgwN1NpxlldG+tl1LFn+mEcaeFjCvFqJ9MuLm9XieaPL8cS0htHH +iSJQjKW3Ghtr4ZsK/Sxu/i24qmkqIemtjYbM2Jj5joXwXGGN0fdLOvj0zMch +N74CWKX4KEH3rS46th6uGDiZB2IC2SH7IvWwd/a8ZLzYTVCOWGrmqKaPhi8U +DKJP5cAC1T2V257oY9l4ckLdTBbosOXpI3sNcNVASUZJUiYEdy+ut+EzRDO7 +nh4r4xsw+j1uh/VVQxwxkz0ympAG63Ufp1prr8CBX+fCN0hfg/vfV/+YblmB +ksWsp0IxVyBAy6DztacRuhouuBK1IRnYIx5tjguMcXx9s/Z7/kRYy5LbJJpt +jPnLv33YsygB1Dnnjj4yMUHLiA37naLjYLmnaZ1qpwmpH/PgzY9Y8Lzvc6b8 +4Eq8GnBXV2EuCuoy2zzGpE0xLanvxDbh0zBR8Gdat8oUvTXbbbsPcsBdtWhB +6qZVyP30fdf9xBMwtjzJ+Pa3VVjo2KS+Yv9RqM790TsZuxqrzcNXvv8ZAk5W +FK5WNkMJ16qFzoLBsMQ/pkbngRl+beYwqnwCQHqhX+mmnWwsG+zOLnrrC7mW +J499c2Sjl/Ge6cJ6XzA4GW+ZtIeNL6NqNMp5vrD5G++fjn1sjPxa//fwOV+I +fjs56+7HxndPqe2fwRdmssMtjkWwUX6vTJ1UsQ90rk56k1fExhcJ3SnCF7zB +53DudWsuGV/7YuTIcW+Y4lZ4DvPYaDljcWjc1xsWMzum9SvZeBClRoXXe4Ot +sJLivQdsXGfhrVA7zxvutuV5vPmHjSKVYlG6YV5gI1atHdrBRj0w1dzi4wUd +659NyXWxUehbQkHYTi+YuPMl1vlfNu4b3CM5auQF2ll6JZ+H2NjqUy+5+7sn +3O1cExr3lYz3u/XhVZ8n2EhtB91vbEyPWWhv1+oJXjGHX4dMsvHx8wm94FJP +mHgQnSo7w8bMjN64xVmeEDmX4n5njo2nBkU49xI8QWJFodbeX2zsstEUPMTx +hBv+dyb//GGjz4NxGcMgT/gfy1o8/Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06269411834065636}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06269411834065636}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VdsXAHCRR2V6mYXcey6RmZByrRUa0KSkqJBZmZKUJpcyVJJQimTM +EO65MqdSoRGVvIjiGV5JIjI3/fbv/HM+38/57HP2WmfvtRfDLXCbJz8fuebx +8f3/PtX9rIF1PtdcM2jK2V3OzLzthlzYmo5ISI9LWZ/dKA8o/dJNriMRrEO1 +m7wbNSB06612gY5s4NRuO2vRaAp/j8gmzrbfhgs6cW/EG62h5+7mwIn2RyDp +FqYR2uAI61hDH8baW8G05q6J+iNfmG03ufytvQ/sJXoaf1eHQb1lfu7r7O8g +UyT65FLOOVDsqfnopvUL7JViq2euJoGUn8stIUsBDIxrzBc4dw0S9dfVbt4h +jBY6zqF7izPg3VW9B2MSotjrG5GUF5UN53PDX/LL/40hCSqX7Y1ugmxy/9mk +dEksXtx96kJKPsTYW5u3Tkmj2HaN7ruXCuGQaZbLs0g5TMriEy32LwKbTLEJ +2zg5FPEA6wUhRcAUOhHbclkOrRaPGrsdK4JXbQ6lbwrk8Et3NUsopgh0gkQE +ulvk0NWz00wpswgG847kjSvI44sW5bmw10WwR2rz1yVl8ph4IqhmXK8YrEbn +jgX0K+CwyrrQ5r5iCNuQvPzhsAIGnI4Lm/1UDNws7U7JKQXsH1hlxfhaDHL2 +rqY1wkswLVJM12O6GIarG6cFdJbg9q6IHVWLSiApMiHk2tEliDUBDxINS6BP +Wi2gQVQRQzUH5ZU4JSAbWKckK6uIk1PFdQ/PlMDGp7uafVUUsXW8Vt3tbAlU +HjuvJW6oiH5vjlhdSSyBcz3fhhx3KeLLDZ2ZL3JLwKCw1ns0WxGfvKcG9j8t +gQgzu30KK5WQvetI+HERLmxwvjFuYqGELbc6W8ckuCDG+XJ6x0YlrGSqaLhL +c+F6fVRegqsSel7O7DZW5kK1zZ0vf51Vwu6Q4cBsXS5820WFfn+nhBUFdZbn +7LjgfHjyXNNxZSwcHa5Mv8QF1RQLxaEoZXQ6rp0XcplL4r9YIpSgjB5x9unr +rnHh2E+NVxa5yjjosiW3K5MLl087S9c0KSO8k1B8TnOh6dKTjJtKSzHs/qvR +6iYurOJeKz9VtxSNRy7Y/8tPg1V7y6+Rp+S5UWBzryANm/nmr3dpXYoK1rd+ +dAvT4L4t4B38txSXbj0Z1iRGw7rjjHCOoAqWZ88IhCjQELR0KmeNpgpq1wRl +T+rR0OCd8bU+VAVrc20LGp1osP5puvjEcRW0bnvMMd9LQ0tCm/EKjgrWjPQr +lLnQ8K5mASf3rAoKwovLFz1oGFkUsjjqugoWi0zelg6gQY63wWTdIxXMGhgc +d+DQ4DczxnkqysCtRU5zvCwaVh30kvm4mIGCBwWTm3JoEB7qLBKQY+AFEyGr +/ps03Oyqf2vOZKDeyY+f592iofv+Za0KYwYG7jbeN/82DVuiTDuyXBgIqJSj +/JAG5d8l/nUeDPQw/DD75RENw6FMgQ++DOR/9S64vIGGWJ9FOnIhDLwzXNRi +/JSGB7YfTsfHMnDj5c+W817SYLA4Qvd4KQNtzWw7S7po4Ds/2XC1koGasQ4V +2h9I/AL7nSprGcgZ5dUVdNNwYHJb1FgjA3eP13km9NKQ28Hq8u5k4NxZjrja +JxqC7a4FRfUwUDjE+GT4IA34XPSvnAEGNvMMGG2fafhQO6XXPcLAFWoXxQOH +aZDJeBptL8DEgluiGQfGaBiQZSsGCzNx5RTVcWOchtsJpaUXRZlofaVuc/N3 +En9k6vvnskz8x331zJIpEp+nn8EaLSYybwU7cOZomNWU6NbewUQr6aCFhvN4 +MJWuEGHoxETtPreyXOIJcVWWqQsTK3XPy0nx82Dku+l+K18mCj7cKz9M3Ffr +PuV0konxkVv5I+bzoEc74JprJBNvZOmn/kv8PuOomVcMExeNyY6zBXnw9vSF +yIOXyHzwv/4x4ue2VWKxN5l4O83og7kQD57ce1h64Rb5ftNoZBxxg26TfRLN +xMcz6cPtxPcle1Nv1DDx/dO3oj7CPKiN+sLOvc/Eed1uj4uJq6cn/y2sZyJ/ +639Wo8S3uxYuq2hm4qeAjsv+C3hAb5J+fqeViUfsNvkWEhfXLfV/0M7EjKj6 ++f3EeTkryl70MtHmVP3lLQt5kCMNDq8/MlFrtUNcJHFmjPXs2y9MbDb9ubGM +OPWAM/RNMjFM+JqO2CIepHzw6fs0x0Sz6OtbVxInbzkU9fUPE9Mzm8xdiS89 +PKn+fT6FLW282SjieMPYFzMLKNSTfh1RSHz+ZmLAbzEKJZ5VtD8njpVN/3u+ +FIX2TZ9+fCaO/FG6U1yZwo+HHUsZIjwI9787J0VR6CxXYrmK+ETP43QFdQp/ +zwvN20ocZvcaVbQpNLeDTg/i0PquflUDCg+mJPeEEh8y+hitaUKhf8e8qmji +oPxvGvpmFOI5yX3JxAHyP5qM11A4mOzQnUF84LxgkNk6Cudv26VbSOzzS1zS +wpbCM3F59jxir0CFyvVbKXTlvNxcQezey3LctIPCDZ37lKuJXbfr/tzmROGe +quH6/3tvo2nGLhcKX+f+gSpiJxMrC2cPCmszlieVEe8s3Pyfuy+FN6V+3ysh +tl/iGOsbQKFTz8KHN4ntLrhrBh6i8LxN3/U04s1//FtCjlJ4Slxm20Vi24NH +Dx47SfK9Y2Uvh3hDf6QUJ5JC8bIumyDitTsuVEXFUBi7POniXmKLJylO5+NI +frXG6Q3EYJr9K+EShQMpccX6xGZFxZlXrlAoWDkVJUfcpVKUsTaNwp++Jaw/ +5P8cu1J4YyKD5HtH8GA/cVVE3vVthRSOoEhvPrHDdG7aPC6FZg1tMjHEE345 +qbzbFGqcSTzkQWywK/Oq2F2Sf9OOHHni1803Uu49oFDLxOHoGFlvQZbpV/wa +KWyOrDj8hJirk5r8vIXC8jNCX/2JNQSTE6J7KaxTSunKJev56bHEi0YfKbSz +rJ0fQOz1LSF+YIhC9YZ8JyPi3K4LcRYTFAYYvom/T/aLyu2Y2N9/sfDKBge1 +WrLf6pZFx5QsYqFUbnr9YWLn9DPReyRYqD+af0mHOC024swdeRb+sBN+lPoX +D2RcjnNCtVj4/I1S5F6yvyvawsJV9Vm4WTmzbAGxvc3RU21GLNzP/12+nNSH +RKPDJwyAhZq/ZWIEiEVFAo+O2LFQ9dn9sThSX4oj/I+kO7Bwa+fyjuXENtMH +QjfuZmFFa8z0Y1KfYvt8Qm55sLBafHn/LB8P5te4BXkdYeFRe//Z5N805Ojs +C5Q+wcL8F+nB5b9osMh1CWjgkO+LSXu9+klD+MU9fsxzLLSUkH7wi9TDOU8H +n+7rLBy4pOqsM03D2GIbV4dHLCz7lGcwOEJDhx/z1f4nLKyT1Rut+krOh8dz +EN7Ewha1LWmnSX1OOFa0tOAtme/D/idiQzTo9Yn0zA6xcDw069rEAA0BpS/3 +pkuqosqn1N1/3tHgsKiguVROFXlJgXfiO2gw9+SwHyupYr0RZ6lCOw2i8vpK +o8tUUdtWll+1jYZiTuJ7NFPFn44JdotaaBjasmP3gIcqmtmecllCzrfWQu0X +M76qqL9A/9WBOhruCPy1WjRQFcdkDjtX36PhbFWlgnGYKra4pL9be4cG9aVy +nTEXVLFmQijEoIwG75HOXZqVqijlqRy7PZecL3GuDsFCani9nmqoO03mP6TF +1BNRw5md8Y21ETRMr5/9+lVCDXNl3saXh9OwUCAxyldBDd2fLTp1/TiJP6y+ +3FVbDcMc4sfXHqLhpKea5JbtarjAZ7Udnxs5z8yHX2pmqGHe2LGBJWwaMtOq +0z7nqKHs/U17ylbRoDF7xju/QA2HxYwb16+kwaxc6Q/zthqqZcQEehuS/mX5 +Fh2FRjX8/Hu+baQGDTyZ23HCX9TwU/iatcukSX8yesT6P+NlaMGnl2IyxAVF +feVoYbNlWGEUzFrxiQsjwQ2PNNcsw5M2xRu1B7iQPCVhFmy7DFc+/hIi3c2F +7l+FOn9cluGayEH7e6+5ECzyXlL+7DJ0O5//1q+aC6ka2L2xaxlqNu2X3Hma +9G/uwofKw9WRGg9g1IqT99+wuld3Rh1Ze3/++rWIC6PvOEIvzqqj/67SeebC +XBjfMpvWm6SOzkHuURV8XJhePdQgVqCO8Y9KSiLHSoBfqknG95U6bpHj8qW0 +loB8w8U7SgwN1NpxlldG+tl1LFn+mEcaeFjCvFqJ9MuLm9XieaPL8cS0htHH +iSJQjKW3Ghtr4ZsK/Sxu/i24qmkqIemtjYbM2Jj5joXwXGGN0fdLOvj0zMch +N74CWKX4KEH3rS46th6uGDiZB2IC2SH7IvWwd/a8ZLzYTVCOWGrmqKaPhi8U +DKJP5cAC1T2V257oY9l4ckLdTBbosOXpI3sNcNVASUZJUiYEdy+ut+EzRDO7 +nh4r4xsw+j1uh/VVQxwxkz0ympAG63Ufp1prr8CBX+fCN0hfg/vfV/+YblmB +ksWsp0IxVyBAy6DztacRuhouuBK1IRnYIx5tjguMcXx9s/Z7/kRYy5LbJJpt +jPnLv33YsygB1Dnnjj4yMUHLiA37naLjYLmnaZ1qpwmpH/PgzY9Y8Lzvc6b8 +4Eq8GnBXV2EuCuoy2zzGpE0xLanvxDbh0zBR8Gdat8oUvTXbbbsPcsBdtWhB +6qZVyP30fdf9xBMwtjzJ+Pa3VVjo2KS+Yv9RqM790TsZuxqrzcNXvv8ZAk5W +FK5WNkMJ16qFzoLBsMQ/pkbngRl+beYwqnwCQHqhX+mmnWwsG+zOLnrrC7mW +J499c2Sjl/Ge6cJ6XzA4GW+ZtIeNL6NqNMp5vrD5G++fjn1sjPxa//fwOV+I +fjs56+7HxndPqe2fwRdmssMtjkWwUX6vTJ1UsQ90rk56k1fExhcJ3SnCF7zB +53DudWsuGV/7YuTIcW+Y4lZ4DvPYaDljcWjc1xsWMzum9SvZeBClRoXXe4Ot +sJLivQdsXGfhrVA7zxvutuV5vPmHjSKVYlG6YV5gI1atHdrBRj0w1dzi4wUd +659NyXWxUehbQkHYTi+YuPMl1vlfNu4b3CM5auQF2ll6JZ+H2NjqUy+5+7sn +3O1cExr3lYz3u/XhVZ8n2EhtB91vbEyPWWhv1+oJXjGHX4dMsvHx8wm94FJP +mHgQnSo7w8bMjN64xVmeEDmX4n5njo2nBkU49xI8QWJFodbeX2zsstEUPMTx +hBv+dyb//GGjz4NxGcMgT/gfy1o8/Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06269411834065636}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06269411834065636}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8148,8 +8885,664 @@ U0FU/w== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913236646248627`*^9}, - CellLabel->"Out[89]=",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] + CellChangeTimes->{{3.9943004214541883`*^9, 3.994300446996958*^9}}, + CellLabel->"Out[2]=",ExpressionUUID->"9afc9aca-f821-4558-b03c-07e90ea36170"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"(*", + RowBox[{ + "1.", " ", "\:0418\:0437\:0432\:043b\:0435\:043a\:0430\:0435\:043c", " ", + "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442\:044b", " ", + "\:0432\:0441\:0435\:0445", " ", "\:0442\:043e\:0447\:0435\:043a", " ", + "\:043b\:0438\:043d\:0438\:0438", " ", "\:0438\:0437", " ", + "\:0433\:0440\:0430\:0444\:0438\:043a\:0430"}], "*)"}], + RowBox[{ + RowBox[{ + RowBox[{"extractedPoints", "=", + RowBox[{"First", "[", + RowBox[{"Cases", "[", + RowBox[{"plotX", ",", + RowBox[{ + RowBox[{"Line", "[", "pts_", "]"}], ":>", "pts"}], ",", "Infinity"}], + "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\n", + RowBox[{"(*", + RowBox[{ + "2.", " ", "\:0421\:043e\:0437\:0434\:0430\:0435\:043c", " ", + "\:0431\:044b\:0441\:0442\:0440\:0443\:044e", " ", + "\:0444\:0443\:043d\:043a\:0446\:0438\:044e", " ", "\:043d\:0430", " ", + "\:043e\:0441\:043d\:043e\:0432\:0435", " ", "\:044d\:0442\:0438\:0445", + " ", "\:0442\:043e\:0447\:0435\:043a"}], "*)"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"fInterp", "=", + RowBox[{"Interpolation", "[", "extractedPoints", "]"}]}], ";"}], + "\[IndentingNewLine]", "\n", + RowBox[{"(*", + RowBox[{ + "3.", " ", "\:0413\:0435\:043d\:0435\:0440\:0438\:0440\:0443\:0435\:043c", + " ", "\:0432\:0430\:0448\:0443", " ", + "\:0442\:0430\:0431\:043b\:0438\:0446\:0443", " ", "\:043e\:0442", " ", + "0", " ", "\:0434\:043e", " ", "30", " ", "\:0441", " ", + "\:0448\:0430\:0433\:043e\:043c", " ", "1"}], "*)"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"dataX", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"x", ",", + RowBox[{"fInterp", "[", "x", "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30", ",", "1"}], "}"}]}], "]"}]}], ";"}], + "\[IndentingNewLine]", "\n", + RowBox[{"(*", + RowBox[{ + "4.", " ", "\:0412\:044b\:0432\:043e\:0434\:0438\:043c", " ", + "\:0440\:0435\:0437\:0443\:043b\:044c\:0442\:0430\:0442", " ", + "\:043d\:0430", " ", "\:044d\:043a\:0440\:0430\:043d"}], "*)"}], "\[IndentingNewLine]", + RowBox[{"dataX", "//", "TableForm"}], "\n"}]}]], "Input", + CellChangeTimes->{{3.994300495258729*^9, 3.99430049525876*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"a26f2095-34c0-41b0-8b0f-d67b5022c076"], + +Cell[BoxData[ + TagBox[GridBox[{ + {"0", + RowBox[{"-", "2.710505431213761`*^-20"}]}, + {"1", "0.010627452518549003`"}, + {"2", "0.02091683566228892`"}, + {"3", "0.030548379369056317`"}, + {"4", "0.03923597870931137`"}, + {"5", "0.0467428506883034`"}, + {"6", "0.05289037168204393`"}, + {"7", "0.05756551242241262`"}, + {"8", "0.06072299225262374`"}, + {"9", "0.06238272972618864`"}, + {"10", "0.06262394156368589`"}, + {"11", "0.06157599852309033`"}, + {"12", "0.05940708643340134`"}, + {"13", "0.05631167415834051`"}, + {"14", "0.05249780447366832`"}, + {"15", "0.0481750839152066`"}, + {"16", "0.04354403759249646`"}, + {"17", "0.0387878342992532`"}, + {"18", "0.034065651517093766`"}, + {"19", "0.029508957398870207`"}, + {"20", "0.02522019154797898`"}, + {"21", "0.0212723117247518`"}, + {"22", "0.017711437050390553`"}, + {"23", "0.014559834589729126`"}, + {"24", "0.011819411707398165`"}, + {"25", "0.009476337523784798`"}, + {"26", "0.0075049890767077436`"}, + {"27", "0.0058718600894152526`"}, + {"28", "0.004539056207962139`"}, + {"29", "0.003467059935737168`"}, + {"30", "0.0026169770259356416`"} + }, + GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[2.0999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + Function[BoxForm`e$, + TableForm[BoxForm`e$]]]], "Output", + CellChangeTimes->{3.994300499465598*^9}, + CellLabel-> + "Out[6]//TableForm=",ExpressionUUID->"376d5f00-0f15-4a32-a61e-bee28e883672"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{3.99179966106703*^9}, + CellLabel-> + "In[107]:=",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], + +Cell[BoxData["12.203278181049852`"], "Output", + CellChangeTimes->{3.9913229040054893`*^9, 3.994257582731106*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"41f65606-70b3-4847-9bd8-53949dbb5fea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.991799666995865*^9}, + CellLabel-> + "In[108]:=",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1195376793511539`*^-262\\\", \ +RowBox[{\\\"1185674779082540666256313\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9254518349824000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 108, 13, + 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913229042538757`*^9, 3.9942575828743763`*^9}, + CellLabel-> + "During evaluation of \ +In[108]:=",ExpressionUUID->"c37b6779-c61c-4b21-88e5-a7ee77b7cfb8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.224084379146686`*^-272\\\", \ +RowBox[{\\\"9295690268007118823449497\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"9\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5542386262016000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 108, 14, + 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913229042538757`*^9, 3.994257582884287*^9}, + CellLabel-> + "During evaluation of \ +In[108]:=",ExpressionUUID->"eaba58e6-c985-4015-9cf1-0125f7e57008"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.4183875333531825`*^-282\\\", \ +RowBox[{\\\"7817675515393986930521027\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"12\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1146846355456000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 108, 15, + 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913229042538757`*^9, 3.994257582898819*^9}, + CellLabel-> + "During evaluation of \ +In[108]:=",ExpressionUUID->"63a622c3-21b8-445d-9465-927cf30c2fe9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 108, 16, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913229042538757`*^9, 3.994257582915357*^9}, + CellLabel-> + "During evaluation of \ +In[108]:=",ExpressionUUID->"ed92e141-acd3-41ca-af43-0eb71cfec8d3"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VG0bAHBv2pRUZG1sc2ZQlqLwTpnuO9qQVllakH3fQlGylDUqlK1I +mmSbOVG0SMpWiVBkK0rlLVtkz/ad74+55vpdc+Zcz3M/93KOvLXHIbsFfHx8 +89Tn/9/jnW8qGZc4225bl+nEPNu6rSldwn97aygs3l9gauMlCShaby3RGg8f +9rdmrvNaB34Hclv4WzMh1NVyYqEXC1YPisdPtRSC3WLuiQ+e+tD1bJ/HaEs5 +2CbTLrA9zWEXo/fzcMt74MTXBc65OcFUi/b1oZZuiM4pCVll5w8Vevc4jZkj +UCzY565mFA20ric91iqzYBAQbrH0aAKscbXMXaLHj2uZLCVRVgrEq+8q2Xdk +KQ5bzr76qn8L2pI3vhhetQJHRZpZh4wy4RInqH6B5GoUDPQeIMc5IH7tW1RC +mghy9h1s+df4HkQY6297Py6KKqV30nwNc+AU67blm1AJvKOlplPDzAODDKFR +wxgJ1ExuyGCo5AF9ybnId9clsHZwsi5AIw8amkwKPmRLoJDsQJAU5IGapyB/ +5zsJ3BaxVlPRLA9+Zp3O+iMlidc9OwJ9o/Lg+Jp9A2sfSOKKvh+Xun/mwY7f +fwPcv0mh9AXnLb2p+eC/59r6l/1S6BF8cLlkRj7wbqu2i4xL4czsxid6d/NB +wtiK9WTpWvwYviwvhsyH/sdVE/xqazFBpvhrf0U+JIRe9Uk5sxYrZ5K9e/ry +oVtUwb1yBQ19nRVESv/lgrhHmbS4OA0jjh1Td2BzYe9rszonORrKCA4qrtDl +QnHAJZWVm2h41rs9ba8hF6K7hnrNzWjo/6EqN+UEFzRyShx+Z1K/n6jc6hrC +hRCdgyel/pXGEU4B/0gVF/ZYpP/R1pVG9VR/Se8aLggF9104slcan3ixDfrf +ceFmRVjWVStpvNjaP9PYwoXHBk/7FkdJ4/jejGzrX1wYMiP8RtqkkfXPQeWU +5Tyw8B2Lrj0rg4++VBQc28sDZpIurTdMBgsvtJltO8Cj9n+Fu+SqDM77L5Kl +GfMgYGZdgy5HBpd0+Qu8OcaD6xcsRJ/UyuBmDaETP515UBv36tZdaVnceKV9 +MzuSB1t4KQ/Pl8li7PWK5O1lPNjR8m528LUsZg/63z1QzoN9fAt3W76XRamP +9QHHqnhgc8i9DX7IotjtmGDbtzzYdVY+KHiRHFZ7dvLtaOGBp+z4ne3KckiY +XaGxBnlQ6XBroMJPDk231avOSZCgP8MSPndWDq0nd4yGryXh3dUmrc3Bclif +xL28XIaEticCwZwoOfR5OYdLCRIGl/sIh92Uw2gbu3v1KiRI3N+jvatcDr30 +jT8lAgmuk8PBr1fI45BZtPQyaxK2eNmL9QjLoyLHwZ5lS8LS3vY8fgl5bDTu +abOxJ+FuR8XHbXR5FNzprZfrTELn8+sqRVryuPAXb9OsNwn7w1itty3lkf/Q +f8SzUBJk5rhuZbby6JcETukXSej3o/N/dpLHhlPO38+GkxDpuFxNwkce/RtU +gpSiSXhh+PnC5Uh5fGBqcmxPHAkawiEbzhbIYxrtkvmddBL4Lo1VJhfLY63p +WlNWBrV/fuejxSXymJPUnFhzmwSXsUNhw1XyKO666EsnhwROK6PDoV0eNVPY +99/lkiB263W4MT8dnxUK8NcWkfBdnE3zXkrHPdOF4WKPSCi8WlBwZQUdN9tP +mx9/TO0nNPVTjTgd99IH/rQ9pdZr56qxXYWOG2aVlqSVkTClvKpT9QgdmzSU +L+i9JmE8TSpk01E66vetebPtDQmjK5kMliUdk1m0ZM0a6jxGWM47nOgo3SDW +LFpLQneJzfjRQDrOXp/8llFPQpeqe4pVKB1VOxfGnGkg4dOtMzr2EXScQvdK +w0YSPl6IDfWKo2PWgWW939+TUGP4SCjyLh09sgLo3c0kvCp9WRCbS8dlsucc +Ej+SULmh1jiBpGOlgemOXS0kPBf5mpr+hI7nBpzfJLeSUBLWx+Y8p6PLh9hT +W9tIeDwx9iWngo6G+pZP2igXdixTLKqj4+Bs/1qBDhJII9Gap++p+0ne2JJK +Ob9M1u1FCx0jz3dMKnwiIevO5gdvv9KxYZ7PbNNnElJdLKB7jI4XNBOeiXeR +kPTZsfu/v3SsPh0yEkb52v5TYQPzdHx4dqzxN+XLmyLfTgoQaFfuH1X8hYRL +d+Pd54QI7HoZZyvylYq/eNrqhWsI3DS9rc+Fcuh0gelKGQIn3LznV3aTEOT2 +7O8agkBO9JIrxyif66pOk1Ii8HbW/neZlP0PNqKcKoFiLsbPf1D2q+j4xtQg +kGUjZ8X4RsIpzZ5wZW0Ck6afP7Sg7HlvaJ26DoGJITql1yi7S07Xam0ncIie +FVBN2eXSIk+dXQQuHxAYHKHsOLtSRNeQQJ9aPwnp7yTYe0gV7z5AIMbM/N1O +2eYrw9zoCIEBzXmJ1pStDm+YOXSUwBy1xP7zlE9UsW6ZWRK4ZrpuNpHyUe0d +uha2BO4PsH+bS9k0Z98PGydqfa9OmTylbLzWPNLJnUBoW5ZRRflgrI2yxykC +pYO359RS3jfv9s7nDIELHdRO1VM29DrjFRBIoIDwr7k6ynu+ha4JDiWQ2Rll +9JryziOxj8IiCHTlW2/1nLLuq6Sjl2IITAv7pn2fMrAyZ6/GEeh2sLE5jbJO +Xn5GYiKBq2VWbo2g3CGXd2vnDQJXDh4zd6cckJiTPnqLwNjCpLqDlCUEs9Pu +cAj8HpabrE75UUjWzUM5BM7QA0tWUDaZ4Nz4h0dg0/dJrR4qnqOud1LvFxIo +Wb1EsISyhllGstAzKn4DUdXmlBvr0pNKXxAYqdfEJf5/Xnppia5VBK5rtfzz +izpfnlrqtZp3BFrc/Z3oQtmIk5zg/4HAB+31kwqU+yWT4pVaCVTenVPSSeXT +ukXXroZ/JbDfZ7GjHuXXAfFXNHsI1Bd2OTxE5aP90NXL33sJFE2PvpNCmdMR +G6M7SmDyp3Lfr1T+6h2MuTQ8SeAB9supIMrd1dHRGbMEnvtvZ48UZbnCiMi5 +xQw0WfRwZmcnCWWK4RHc5Qy06otQ+kjVi0XaxfDjqxhYNVf8wpryjciQi08l +Gdi7asEWL6q+xCzPBvupMDDV0dXFpp2Eoib/IKY6AxdLa4m2UPVqbHDmfJMm +A8+Mym3aTTle0/ecBjDQe9meehpV7ysEPc4MHmTgl6ZAThrVL/JD3E6nmTBw +LHlw2VgTCQYTLn57jzHQ4ZDLwB7Kkd2OPrm2DCQbItf3UP1m4RNrT/vTDHzl +73N7nOpXd9ROeoieo/7vc3KhBmVdjqV7ZTADRVhOfU7vqHq8ctyVHs1Am8Ud ++vVUv/trZ+LYeZOB7fnfbD2p/jgsbGBlUs7AvhK1v4LlJLS60hucXzEwedH5 +zOkX1Dyo/gtBtQy8N8bc2UP126sBebLZHxkorvr5PFlKwsZuwa6pXgYSn9J/ +rX5C1WdB/Yk0ESbeSPGqFSepfFqeXVcgwUSz3KJn1VwSttkFs6ulmZg5Llnq +lU/FQ1Jd+rciE7ud60ZKcqh4BMd/Qh0mzhfVWspT86N3/5Fj322Z+Giu0kU9 +mYT3OapvJ52o+xllLMpMJOEp/+KtKzyY2Fe4ulroOglRj4qltPyZaCHg8uIT +Nb+UZCXaI2KZKHNYoMLgEgkOg+1mysVMtDON1fUMpOZPjJWJ9xIFdJX0t+yz +oNbfq0LfKKiA9hkm5otPkDCxe2pgYJUCLhR1kJc5RsIy/vgwJykF9Bn5R36H +KbV//4qHVqoK2EW35HPeT0KgnYLI/sMK6KYmdFiGmu9i2/rrlW8pYMTk1IQ6 +jYSMG49v/LqjgGg0TPslSeX71EWHe9kKWBHyUztNnKrnh9Lz9EIFjMn7ZTwj +TPWr9fvVpKoUcP1Mw75EARLuixXGLO1TwEE5Zast4zzQ/31a/4eWIsoW5f41 +rOMBTV0mfKmOIu4RLnJzqeHBoHdlufJ2RXQVag6KeMWDa+OrdLwNFfFjFV9k +0UsedM7mqM1bKqKpTY3JryIeeAt+EpGMUsRzoXF2BWk8SF2HnXs7FLE196x4 +PfX81W+z9NTDICU88uWmR8Y0FwbTd5SWXVRCfbjOXDzJhd9twUveRinhh0XG +/E6jXPizf+rG1wQl3CdToaMwwIWJrb2VQtlKuFrkdfP5Ti4sWFMr5tSghHra +xJrcF1yQrLzyVFp+He6NpDmPhnKp9w3xBRHl6zD2eeGu4vl8EK5TuHz/93r8 +o1225OxwHtAiyQNaWiooNzHedyM/F5KVWatEHFRRJLRUe59dDtRIbdcciVPD +fssRZyuRbNhCK7+64eMGdMS8moCkLBDiz/Q5GboR5/e89U1SvQsyIbI65grq ++DrnzQwn8w4IMI8XH3qljpJl1S1zcpmgxpYkT5/QwAzMFJ9/ngHencIVBnyb +qOe5tE0/4tLh90jMEf3kTSgYlrW76PcN2L2hOlVfdTN6rNPLrPNNgecjW6cn +3m3G5SYWpSt/JoK7ikZ7o50mWvNdFG7PvgbsQdsmcwEtVOgw6TI8GQ87GRJG +KzK1sCtu/X2aw1VQCo4+U66tjWS2dgShHQvr7VhlzHZtNMlsFFvEiQK7544X +H3r9i3Fk6tThlHAoy2iyHRZl4cT3YF2xtAswmj0/seERC/WY5cPd08Fgw8wT +SDXagrasL7MH4wNheH2CVuHQFjyf3ygQf9gfHnOmv45FbkVhc65SXaMvHN1B +4FYZHTQfDyc+VnvDWreIJ2ovdHDr24ZdtAoPEF3mWmBkysZ1yxu/qK1wAY5e +YMCQORs/RHrkx005g0bgZb2E42w8nRUfzNfjDPuG7je3nmTjmpzjKgvKnCH8 +49iUjSsbrywZmrjm5QyTmUG6ASFsjAhtjxtpdYL2rQkfsvLYaG376Kb7fUdw +9OXc1OexcTCO1rU73RHGeUV2/ffZ+N/j7LMqMY4gTG+dUC9mY8qfAq64oyMY +LpWmlb6grm9bb+kr5wjPmrJsPzSzsepH2B79BAcwEHqs6tfKxmnYktsc4gCt +u9+MS3SwMc8vapWbpwOMPu2LtPjCxr3Tpc3PjBxA9fZG7q9eNrL0lHhdSx3g +Wft2v5gBNs4pG2dUTNiDwZrDsGGIjcs/V7oW9tiDfYRvo88YFR9jq6D7lfYw ++iI8VXySjQ/m+UvKHthD6N8km6d/qeuxs6Qt0x5Wbc5ROTHLxjMJvHNzcfaQ +7vZ0bH6ejdUFmpOqIfbwP7l4dfQ= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VG0bAHBv2pRUZG1sc2ZQlqLwTpnuO9qQVllakH3fQlGylDUqlK1I +mmSbOVG0SMpWiVBkK0rlLVtkz/ad74+55vpdc+Zcz3M/93KOvLXHIbsFfHx8 +89Tn/9/jnW8qGZc4225bl+nEPNu6rSldwn97aygs3l9gauMlCShaby3RGg8f +9rdmrvNaB34Hclv4WzMh1NVyYqEXC1YPisdPtRSC3WLuiQ+e+tD1bJ/HaEs5 +2CbTLrA9zWEXo/fzcMt74MTXBc65OcFUi/b1oZZuiM4pCVll5w8Vevc4jZkj +UCzY565mFA20ric91iqzYBAQbrH0aAKscbXMXaLHj2uZLCVRVgrEq+8q2Xdk +KQ5bzr76qn8L2pI3vhhetQJHRZpZh4wy4RInqH6B5GoUDPQeIMc5IH7tW1RC +mghy9h1s+df4HkQY6297Py6KKqV30nwNc+AU67blm1AJvKOlplPDzAODDKFR +wxgJ1ExuyGCo5AF9ybnId9clsHZwsi5AIw8amkwKPmRLoJDsQJAU5IGapyB/ +5zsJ3BaxVlPRLA9+Zp3O+iMlidc9OwJ9o/Lg+Jp9A2sfSOKKvh+Xun/mwY7f +fwPcv0mh9AXnLb2p+eC/59r6l/1S6BF8cLlkRj7wbqu2i4xL4czsxid6d/NB +wtiK9WTpWvwYviwvhsyH/sdVE/xqazFBpvhrf0U+JIRe9Uk5sxYrZ5K9e/ry +oVtUwb1yBQ19nRVESv/lgrhHmbS4OA0jjh1Td2BzYe9rszonORrKCA4qrtDl +QnHAJZWVm2h41rs9ba8hF6K7hnrNzWjo/6EqN+UEFzRyShx+Z1K/n6jc6hrC +hRCdgyel/pXGEU4B/0gVF/ZYpP/R1pVG9VR/Se8aLggF9104slcan3ixDfrf +ceFmRVjWVStpvNjaP9PYwoXHBk/7FkdJ4/jejGzrX1wYMiP8RtqkkfXPQeWU +5Tyw8B2Lrj0rg4++VBQc28sDZpIurTdMBgsvtJltO8Cj9n+Fu+SqDM77L5Kl +GfMgYGZdgy5HBpd0+Qu8OcaD6xcsRJ/UyuBmDaETP515UBv36tZdaVnceKV9 +MzuSB1t4KQ/Pl8li7PWK5O1lPNjR8m528LUsZg/63z1QzoN9fAt3W76XRamP +9QHHqnhgc8i9DX7IotjtmGDbtzzYdVY+KHiRHFZ7dvLtaOGBp+z4ne3KckiY +XaGxBnlQ6XBroMJPDk231avOSZCgP8MSPndWDq0nd4yGryXh3dUmrc3Bclif +xL28XIaEticCwZwoOfR5OYdLCRIGl/sIh92Uw2gbu3v1KiRI3N+jvatcDr30 +jT8lAgmuk8PBr1fI45BZtPQyaxK2eNmL9QjLoyLHwZ5lS8LS3vY8fgl5bDTu +abOxJ+FuR8XHbXR5FNzprZfrTELn8+sqRVryuPAXb9OsNwn7w1itty3lkf/Q +f8SzUBJk5rhuZbby6JcETukXSej3o/N/dpLHhlPO38+GkxDpuFxNwkce/RtU +gpSiSXhh+PnC5Uh5fGBqcmxPHAkawiEbzhbIYxrtkvmddBL4Lo1VJhfLY63p +WlNWBrV/fuejxSXymJPUnFhzmwSXsUNhw1XyKO666EsnhwROK6PDoV0eNVPY +99/lkiB263W4MT8dnxUK8NcWkfBdnE3zXkrHPdOF4WKPSCi8WlBwZQUdN9tP +mx9/TO0nNPVTjTgd99IH/rQ9pdZr56qxXYWOG2aVlqSVkTClvKpT9QgdmzSU +L+i9JmE8TSpk01E66vetebPtDQmjK5kMliUdk1m0ZM0a6jxGWM47nOgo3SDW +LFpLQneJzfjRQDrOXp/8llFPQpeqe4pVKB1VOxfGnGkg4dOtMzr2EXScQvdK +w0YSPl6IDfWKo2PWgWW939+TUGP4SCjyLh09sgLo3c0kvCp9WRCbS8dlsucc +Ej+SULmh1jiBpGOlgemOXS0kPBf5mpr+hI7nBpzfJLeSUBLWx+Y8p6PLh9hT +W9tIeDwx9iWngo6G+pZP2igXdixTLKqj4+Bs/1qBDhJII9Gap++p+0ne2JJK +Ob9M1u1FCx0jz3dMKnwiIevO5gdvv9KxYZ7PbNNnElJdLKB7jI4XNBOeiXeR +kPTZsfu/v3SsPh0yEkb52v5TYQPzdHx4dqzxN+XLmyLfTgoQaFfuH1X8hYRL +d+Pd54QI7HoZZyvylYq/eNrqhWsI3DS9rc+Fcuh0gelKGQIn3LznV3aTEOT2 +7O8agkBO9JIrxyif66pOk1Ii8HbW/neZlP0PNqKcKoFiLsbPf1D2q+j4xtQg +kGUjZ8X4RsIpzZ5wZW0Ck6afP7Sg7HlvaJ26DoGJITql1yi7S07Xam0ncIie +FVBN2eXSIk+dXQQuHxAYHKHsOLtSRNeQQJ9aPwnp7yTYe0gV7z5AIMbM/N1O +2eYrw9zoCIEBzXmJ1pStDm+YOXSUwBy1xP7zlE9UsW6ZWRK4ZrpuNpHyUe0d +uha2BO4PsH+bS9k0Z98PGydqfa9OmTylbLzWPNLJnUBoW5ZRRflgrI2yxykC +pYO359RS3jfv9s7nDIELHdRO1VM29DrjFRBIoIDwr7k6ynu+ha4JDiWQ2Rll +9JryziOxj8IiCHTlW2/1nLLuq6Sjl2IITAv7pn2fMrAyZ6/GEeh2sLE5jbJO +Xn5GYiKBq2VWbo2g3CGXd2vnDQJXDh4zd6cckJiTPnqLwNjCpLqDlCUEs9Pu +cAj8HpabrE75UUjWzUM5BM7QA0tWUDaZ4Nz4h0dg0/dJrR4qnqOud1LvFxIo +Wb1EsISyhllGstAzKn4DUdXmlBvr0pNKXxAYqdfEJf5/Xnppia5VBK5rtfzz +izpfnlrqtZp3BFrc/Z3oQtmIk5zg/4HAB+31kwqU+yWT4pVaCVTenVPSSeXT +ukXXroZ/JbDfZ7GjHuXXAfFXNHsI1Bd2OTxE5aP90NXL33sJFE2PvpNCmdMR +G6M7SmDyp3Lfr1T+6h2MuTQ8SeAB9supIMrd1dHRGbMEnvtvZ48UZbnCiMi5 +xQw0WfRwZmcnCWWK4RHc5Qy06otQ+kjVi0XaxfDjqxhYNVf8wpryjciQi08l +Gdi7asEWL6q+xCzPBvupMDDV0dXFpp2Eoib/IKY6AxdLa4m2UPVqbHDmfJMm +A8+Mym3aTTle0/ecBjDQe9meehpV7ysEPc4MHmTgl6ZAThrVL/JD3E6nmTBw +LHlw2VgTCQYTLn57jzHQ4ZDLwB7Kkd2OPrm2DCQbItf3UP1m4RNrT/vTDHzl +73N7nOpXd9ROeoieo/7vc3KhBmVdjqV7ZTADRVhOfU7vqHq8ctyVHs1Am8Ud ++vVUv/trZ+LYeZOB7fnfbD2p/jgsbGBlUs7AvhK1v4LlJLS60hucXzEwedH5 +zOkX1Dyo/gtBtQy8N8bc2UP126sBebLZHxkorvr5PFlKwsZuwa6pXgYSn9J/ +rX5C1WdB/Yk0ESbeSPGqFSepfFqeXVcgwUSz3KJn1VwSttkFs6ulmZg5Llnq +lU/FQ1Jd+rciE7ud60ZKcqh4BMd/Qh0mzhfVWspT86N3/5Fj322Z+Giu0kU9 +mYT3OapvJ52o+xllLMpMJOEp/+KtKzyY2Fe4ulroOglRj4qltPyZaCHg8uIT +Nb+UZCXaI2KZKHNYoMLgEgkOg+1mysVMtDON1fUMpOZPjJWJ9xIFdJX0t+yz +oNbfq0LfKKiA9hkm5otPkDCxe2pgYJUCLhR1kJc5RsIy/vgwJykF9Bn5R36H +KbV//4qHVqoK2EW35HPeT0KgnYLI/sMK6KYmdFiGmu9i2/rrlW8pYMTk1IQ6 +jYSMG49v/LqjgGg0TPslSeX71EWHe9kKWBHyUztNnKrnh9Lz9EIFjMn7ZTwj +TPWr9fvVpKoUcP1Mw75EARLuixXGLO1TwEE5Zast4zzQ/31a/4eWIsoW5f41 +rOMBTV0mfKmOIu4RLnJzqeHBoHdlufJ2RXQVag6KeMWDa+OrdLwNFfFjFV9k +0UsedM7mqM1bKqKpTY3JryIeeAt+EpGMUsRzoXF2BWk8SF2HnXs7FLE196x4 +PfX81W+z9NTDICU88uWmR8Y0FwbTd5SWXVRCfbjOXDzJhd9twUveRinhh0XG +/E6jXPizf+rG1wQl3CdToaMwwIWJrb2VQtlKuFrkdfP5Ti4sWFMr5tSghHra +xJrcF1yQrLzyVFp+He6NpDmPhnKp9w3xBRHl6zD2eeGu4vl8EK5TuHz/93r8 +o1225OxwHtAiyQNaWiooNzHedyM/F5KVWatEHFRRJLRUe59dDtRIbdcciVPD +fssRZyuRbNhCK7+64eMGdMS8moCkLBDiz/Q5GboR5/e89U1SvQsyIbI65grq ++DrnzQwn8w4IMI8XH3qljpJl1S1zcpmgxpYkT5/QwAzMFJ9/ngHencIVBnyb +qOe5tE0/4tLh90jMEf3kTSgYlrW76PcN2L2hOlVfdTN6rNPLrPNNgecjW6cn +3m3G5SYWpSt/JoK7ikZ7o50mWvNdFG7PvgbsQdsmcwEtVOgw6TI8GQ87GRJG +KzK1sCtu/X2aw1VQCo4+U66tjWS2dgShHQvr7VhlzHZtNMlsFFvEiQK7544X +H3r9i3Fk6tThlHAoy2iyHRZl4cT3YF2xtAswmj0/seERC/WY5cPd08Fgw8wT +SDXagrasL7MH4wNheH2CVuHQFjyf3ygQf9gfHnOmv45FbkVhc65SXaMvHN1B +4FYZHTQfDyc+VnvDWreIJ2ovdHDr24ZdtAoPEF3mWmBkysZ1yxu/qK1wAY5e +YMCQORs/RHrkx005g0bgZb2E42w8nRUfzNfjDPuG7je3nmTjmpzjKgvKnCH8 +49iUjSsbrywZmrjm5QyTmUG6ASFsjAhtjxtpdYL2rQkfsvLYaG376Kb7fUdw +9OXc1OexcTCO1rU73RHGeUV2/ffZ+N/j7LMqMY4gTG+dUC9mY8qfAq64oyMY +LpWmlb6grm9bb+kr5wjPmrJsPzSzsepH2B79BAcwEHqs6tfKxmnYktsc4gCt +u9+MS3SwMc8vapWbpwOMPu2LtPjCxr3Tpc3PjBxA9fZG7q9eNrL0lHhdSx3g +Wft2v5gBNs4pG2dUTNiDwZrDsGGIjcs/V7oW9tiDfYRvo88YFR9jq6D7lfYw ++iI8VXySjQ/m+UvKHthD6N8km6d/qeuxs6Qt0x5Wbc5ROTHLxjMJvHNzcfaQ +7vZ0bH6ejdUFmpOqIfbwP7l4dfQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.062292559442722634`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.062292559442722634`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VG0bAHBv2pRUZG1sc2ZQlqLwTpnuO9qQVllakH3fQlGylDUqlK1I +mmSbOVG0SMpWiVBkK0rlLVtkz/ad74+55vpdc+Zcz3M/93KOvLXHIbsFfHx8 +89Tn/9/jnW8qGZc4225bl+nEPNu6rSldwn97aygs3l9gauMlCShaby3RGg8f +9rdmrvNaB34Hclv4WzMh1NVyYqEXC1YPisdPtRSC3WLuiQ+e+tD1bJ/HaEs5 +2CbTLrA9zWEXo/fzcMt74MTXBc65OcFUi/b1oZZuiM4pCVll5w8Vevc4jZkj +UCzY565mFA20ric91iqzYBAQbrH0aAKscbXMXaLHj2uZLCVRVgrEq+8q2Xdk +KQ5bzr76qn8L2pI3vhhetQJHRZpZh4wy4RInqH6B5GoUDPQeIMc5IH7tW1RC +mghy9h1s+df4HkQY6297Py6KKqV30nwNc+AU67blm1AJvKOlplPDzAODDKFR +wxgJ1ExuyGCo5AF9ybnId9clsHZwsi5AIw8amkwKPmRLoJDsQJAU5IGapyB/ +5zsJ3BaxVlPRLA9+Zp3O+iMlidc9OwJ9o/Lg+Jp9A2sfSOKKvh+Xun/mwY7f +fwPcv0mh9AXnLb2p+eC/59r6l/1S6BF8cLlkRj7wbqu2i4xL4czsxid6d/NB +wtiK9WTpWvwYviwvhsyH/sdVE/xqazFBpvhrf0U+JIRe9Uk5sxYrZ5K9e/ry +oVtUwb1yBQ19nRVESv/lgrhHmbS4OA0jjh1Td2BzYe9rszonORrKCA4qrtDl +QnHAJZWVm2h41rs9ba8hF6K7hnrNzWjo/6EqN+UEFzRyShx+Z1K/n6jc6hrC +hRCdgyel/pXGEU4B/0gVF/ZYpP/R1pVG9VR/Se8aLggF9104slcan3ixDfrf +ceFmRVjWVStpvNjaP9PYwoXHBk/7FkdJ4/jejGzrX1wYMiP8RtqkkfXPQeWU +5Tyw8B2Lrj0rg4++VBQc28sDZpIurTdMBgsvtJltO8Cj9n+Fu+SqDM77L5Kl +GfMgYGZdgy5HBpd0+Qu8OcaD6xcsRJ/UyuBmDaETP515UBv36tZdaVnceKV9 +MzuSB1t4KQ/Pl8li7PWK5O1lPNjR8m528LUsZg/63z1QzoN9fAt3W76XRamP +9QHHqnhgc8i9DX7IotjtmGDbtzzYdVY+KHiRHFZ7dvLtaOGBp+z4ne3KckiY +XaGxBnlQ6XBroMJPDk231avOSZCgP8MSPndWDq0nd4yGryXh3dUmrc3Bclif +xL28XIaEticCwZwoOfR5OYdLCRIGl/sIh92Uw2gbu3v1KiRI3N+jvatcDr30 +jT8lAgmuk8PBr1fI45BZtPQyaxK2eNmL9QjLoyLHwZ5lS8LS3vY8fgl5bDTu +abOxJ+FuR8XHbXR5FNzprZfrTELn8+sqRVryuPAXb9OsNwn7w1itty3lkf/Q +f8SzUBJk5rhuZbby6JcETukXSej3o/N/dpLHhlPO38+GkxDpuFxNwkce/RtU +gpSiSXhh+PnC5Uh5fGBqcmxPHAkawiEbzhbIYxrtkvmddBL4Lo1VJhfLY63p +WlNWBrV/fuejxSXymJPUnFhzmwSXsUNhw1XyKO666EsnhwROK6PDoV0eNVPY +99/lkiB263W4MT8dnxUK8NcWkfBdnE3zXkrHPdOF4WKPSCi8WlBwZQUdN9tP +mx9/TO0nNPVTjTgd99IH/rQ9pdZr56qxXYWOG2aVlqSVkTClvKpT9QgdmzSU +L+i9JmE8TSpk01E66vetebPtDQmjK5kMliUdk1m0ZM0a6jxGWM47nOgo3SDW +LFpLQneJzfjRQDrOXp/8llFPQpeqe4pVKB1VOxfGnGkg4dOtMzr2EXScQvdK +w0YSPl6IDfWKo2PWgWW939+TUGP4SCjyLh09sgLo3c0kvCp9WRCbS8dlsucc +Ej+SULmh1jiBpGOlgemOXS0kPBf5mpr+hI7nBpzfJLeSUBLWx+Y8p6PLh9hT +W9tIeDwx9iWngo6G+pZP2igXdixTLKqj4+Bs/1qBDhJII9Gap++p+0ne2JJK +Ob9M1u1FCx0jz3dMKnwiIevO5gdvv9KxYZ7PbNNnElJdLKB7jI4XNBOeiXeR +kPTZsfu/v3SsPh0yEkb52v5TYQPzdHx4dqzxN+XLmyLfTgoQaFfuH1X8hYRL +d+Pd54QI7HoZZyvylYq/eNrqhWsI3DS9rc+Fcuh0gelKGQIn3LznV3aTEOT2 +7O8agkBO9JIrxyif66pOk1Ii8HbW/neZlP0PNqKcKoFiLsbPf1D2q+j4xtQg +kGUjZ8X4RsIpzZ5wZW0Ck6afP7Sg7HlvaJ26DoGJITql1yi7S07Xam0ncIie +FVBN2eXSIk+dXQQuHxAYHKHsOLtSRNeQQJ9aPwnp7yTYe0gV7z5AIMbM/N1O +2eYrw9zoCIEBzXmJ1pStDm+YOXSUwBy1xP7zlE9UsW6ZWRK4ZrpuNpHyUe0d +uha2BO4PsH+bS9k0Z98PGydqfa9OmTylbLzWPNLJnUBoW5ZRRflgrI2yxykC +pYO359RS3jfv9s7nDIELHdRO1VM29DrjFRBIoIDwr7k6ynu+ha4JDiWQ2Rll +9JryziOxj8IiCHTlW2/1nLLuq6Sjl2IITAv7pn2fMrAyZ6/GEeh2sLE5jbJO +Xn5GYiKBq2VWbo2g3CGXd2vnDQJXDh4zd6cckJiTPnqLwNjCpLqDlCUEs9Pu +cAj8HpabrE75UUjWzUM5BM7QA0tWUDaZ4Nz4h0dg0/dJrR4qnqOud1LvFxIo +Wb1EsISyhllGstAzKn4DUdXmlBvr0pNKXxAYqdfEJf5/Xnppia5VBK5rtfzz +izpfnlrqtZp3BFrc/Z3oQtmIk5zg/4HAB+31kwqU+yWT4pVaCVTenVPSSeXT +ukXXroZ/JbDfZ7GjHuXXAfFXNHsI1Bd2OTxE5aP90NXL33sJFE2PvpNCmdMR +G6M7SmDyp3Lfr1T+6h2MuTQ8SeAB9supIMrd1dHRGbMEnvtvZ48UZbnCiMi5 +xQw0WfRwZmcnCWWK4RHc5Qy06otQ+kjVi0XaxfDjqxhYNVf8wpryjciQi08l +Gdi7asEWL6q+xCzPBvupMDDV0dXFpp2Eoib/IKY6AxdLa4m2UPVqbHDmfJMm +A8+Mym3aTTle0/ecBjDQe9meehpV7ysEPc4MHmTgl6ZAThrVL/JD3E6nmTBw +LHlw2VgTCQYTLn57jzHQ4ZDLwB7Kkd2OPrm2DCQbItf3UP1m4RNrT/vTDHzl +73N7nOpXd9ROeoieo/7vc3KhBmVdjqV7ZTADRVhOfU7vqHq8ctyVHs1Am8Ud ++vVUv/trZ+LYeZOB7fnfbD2p/jgsbGBlUs7AvhK1v4LlJLS60hucXzEwedH5 +zOkX1Dyo/gtBtQy8N8bc2UP126sBebLZHxkorvr5PFlKwsZuwa6pXgYSn9J/ +rX5C1WdB/Yk0ESbeSPGqFSepfFqeXVcgwUSz3KJn1VwSttkFs6ulmZg5Llnq +lU/FQ1Jd+rciE7ud60ZKcqh4BMd/Qh0mzhfVWspT86N3/5Fj322Z+Giu0kU9 +mYT3OapvJ52o+xllLMpMJOEp/+KtKzyY2Fe4ulroOglRj4qltPyZaCHg8uIT +Nb+UZCXaI2KZKHNYoMLgEgkOg+1mysVMtDON1fUMpOZPjJWJ9xIFdJX0t+yz +oNbfq0LfKKiA9hkm5otPkDCxe2pgYJUCLhR1kJc5RsIy/vgwJykF9Bn5R36H +KbV//4qHVqoK2EW35HPeT0KgnYLI/sMK6KYmdFiGmu9i2/rrlW8pYMTk1IQ6 +jYSMG49v/LqjgGg0TPslSeX71EWHe9kKWBHyUztNnKrnh9Lz9EIFjMn7ZTwj +TPWr9fvVpKoUcP1Mw75EARLuixXGLO1TwEE5Zast4zzQ/31a/4eWIsoW5f41 +rOMBTV0mfKmOIu4RLnJzqeHBoHdlufJ2RXQVag6KeMWDa+OrdLwNFfFjFV9k +0UsedM7mqM1bKqKpTY3JryIeeAt+EpGMUsRzoXF2BWk8SF2HnXs7FLE196x4 +PfX81W+z9NTDICU88uWmR8Y0FwbTd5SWXVRCfbjOXDzJhd9twUveRinhh0XG +/E6jXPizf+rG1wQl3CdToaMwwIWJrb2VQtlKuFrkdfP5Ti4sWFMr5tSghHra +xJrcF1yQrLzyVFp+He6NpDmPhnKp9w3xBRHl6zD2eeGu4vl8EK5TuHz/93r8 +o1225OxwHtAiyQNaWiooNzHedyM/F5KVWatEHFRRJLRUe59dDtRIbdcciVPD +fssRZyuRbNhCK7+64eMGdMS8moCkLBDiz/Q5GboR5/e89U1SvQsyIbI65grq ++DrnzQwn8w4IMI8XH3qljpJl1S1zcpmgxpYkT5/QwAzMFJ9/ngHencIVBnyb +qOe5tE0/4tLh90jMEf3kTSgYlrW76PcN2L2hOlVfdTN6rNPLrPNNgecjW6cn +3m3G5SYWpSt/JoK7ikZ7o50mWvNdFG7PvgbsQdsmcwEtVOgw6TI8GQ87GRJG +KzK1sCtu/X2aw1VQCo4+U66tjWS2dgShHQvr7VhlzHZtNMlsFFvEiQK7544X +H3r9i3Fk6tThlHAoy2iyHRZl4cT3YF2xtAswmj0/seERC/WY5cPd08Fgw8wT +SDXagrasL7MH4wNheH2CVuHQFjyf3ygQf9gfHnOmv45FbkVhc65SXaMvHN1B +4FYZHTQfDyc+VnvDWreIJ2ovdHDr24ZdtAoPEF3mWmBkysZ1yxu/qK1wAY5e +YMCQORs/RHrkx005g0bgZb2E42w8nRUfzNfjDPuG7je3nmTjmpzjKgvKnCH8 +49iUjSsbrywZmrjm5QyTmUG6ASFsjAhtjxtpdYL2rQkfsvLYaG376Kb7fUdw +9OXc1OexcTCO1rU73RHGeUV2/ffZ+N/j7LMqMY4gTG+dUC9mY8qfAq64oyMY +LpWmlb6grm9bb+kr5wjPmrJsPzSzsepH2B79BAcwEHqs6tfKxmnYktsc4gCt +u9+MS3SwMc8vapWbpwOMPu2LtPjCxr3Tpc3PjBxA9fZG7q9eNrL0lHhdSx3g +Wft2v5gBNs4pG2dUTNiDwZrDsGGIjcs/V7oW9tiDfYRvo88YFR9jq6D7lfYw ++iI8VXySjQ/m+UvKHthD6N8km6d/qeuxs6Qt0x5Wbc5ROTHLxjMJvHNzcfaQ +7vZ0bH6ejdUFmpOqIfbwP7l4dfQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.062292559442722634`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.062292559442722634`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913236646248627`*^9, 3.994258353176518*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"83cb674e-9c7d-40f6-98b9-a706be6413c5"] }, Open ]], Cell[CellGroupData[{ @@ -8161,26 +9554,30 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], - ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -8201,65 +9598,71 @@ Cell[BoxData[ FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", - CellLabel->"In[90]:=",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], + CellLabel-> + "In[109]:=",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.2264340105931995`*^-182\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, 90, - 21, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323664732767*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.1871781299097357`*^-174\\\", \ +RowBox[{\\\"182746270923358292188640\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"91\\\", \\\"\[RightSkeleton]\\\"}], \\\"4000000000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 109, 17, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323664732767*^9, 3.994258353351452*^9}, CellLabel-> "During evaluation of \ -In[90]:=",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], +In[109]:=",ExpressionUUID->"5c55d193-1c42-4867-871c-8aa4221a76c7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 90, 22, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99132366476486*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.156853048320675`*^-177\\\", \ +RowBox[{\\\"532888126012512780022077\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"94\\\", \\\"\[RightSkeleton]\\\"}], \\\"4000000000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 109, 18, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323664732767*^9, 3.9942583533657913`*^9}, CellLabel-> "During evaluation of \ -In[90]:=",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], +In[109]:=",ExpressionUUID->"8bb165f8-a7f8-4b4e-9f1c-f815821e030e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 90, 23, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236647877655`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.118884223956965`*^-181\\\", \ +RowBox[{\\\"161198658118785115956678\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"98\\\", \\\"\[RightSkeleton]\\\"}], \\\"0000000000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 109, 19, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323664732767*^9, 3.99425835337849*^9}, CellLabel-> "During evaluation of \ -In[90]:=",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], +In[109]:=",ExpressionUUID->"b422c26f-2344-404b-be84-0b6b06a76d87"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 90, 24, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236648078594`*^9}, +during this calculation.\"", 2, 109, 20, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323664732767*^9, 3.994258353389174*^9}, CellLabel-> "During evaluation of \ -In[90]:=",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], +In[109]:=",ExpressionUUID->"a51687a6-1d45-42fb-897c-5f3923f6d6e5"], -Cell[BoxData["11.275343508420768`"], "Output", - CellChangeTimes->{3.9913236764669056`*^9}, - CellLabel->"Out[90]=",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +Cell[BoxData["12.203119649392347`"], "Output", + CellChangeTimes->{3.9913236764669056`*^9, 3.994258434350627*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"c38daf53-e9ad-451b-a52c-c6fbb4778270"] }, Open ]], Cell[CellGroupData[{ @@ -8289,14 +9692,15 @@ Cell[BoxData[ RowBox[{ SuperscriptBox[ RowBox[{"(", - FractionBox[ + RowBox[{ + FractionBox["1", "2"], RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}]}], + ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", @@ -8326,67 +9730,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9917996753598194`*^9, - 3.991799698091812*^9}},ExpressionUUID->"18d0289f-01fd-a740-8fac-\ -540622282b2c"], + CellChangeTimes->{{3.9917996753598194`*^9, 3.991799698091812*^9}}, + CellLabel-> + "In[110]:=",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 91, 25, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236765399036`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.884734744316392`*^-212\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 110, 21, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913236765399036`*^9, 3.994258434432106*^9}, CellLabel-> "During evaluation of \ -In[91]:=",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], +In[110]:=",ExpressionUUID->"97521226-e124-4c6f-88ff-a7b8955e0f1e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 91, 26, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236765679016`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.7102186537353504`*^-217\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 110, 22, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913236765399036`*^9, 3.994258434443612*^9}, CellLabel-> "During evaluation of \ -In[91]:=",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], +In[110]:=",ExpressionUUID->"8f87124d-4e6a-4a35-b04a-70e1ee7f668b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 91, 27, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323676587904*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.8908073869912646`*^-222\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 110, 23, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913236765399036`*^9, 3.994258434453033*^9}, CellLabel-> "During evaluation of \ -In[91]:=",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], +In[110]:=",ExpressionUUID->"ca745cc0-cbbf-40f3-a3a6-a8b2198a62c1"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 91, 28, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236766039066`*^9}, +during this calculation.\"", 2, 110, 24, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913236765399036`*^9, 3.994258434464497*^9}, CellLabel-> "During evaluation of \ -In[91]:=",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], +In[110]:=",ExpressionUUID->"db977f2f-2fff-43a7-929b-b22ee3138f41"], -Cell[BoxData["0.5376063675902706`"], "Output", - CellChangeTimes->{3.9913236883162384`*^9}, - CellLabel->"Out[91]=",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +Cell[BoxData["0.8361196067636105`"], "Output", + CellChangeTimes->{3.9913236883162384`*^9, 3.994258445647821*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"279a1d17-6580-45c9-b685-5721382cd66f"] }, Open ]], Cell[CellGroupData[{ @@ -8407,8 +9816,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8416,14 +9824,15 @@ Cell[BoxData[ RowBox[{ SuperscriptBox[ RowBox[{"(", - FractionBox[ + RowBox[{ + FractionBox["1", "2"], RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}]}], + ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", @@ -8453,67 +9862,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9917997261183853`*^9, - 3.991799730012718*^9}},ExpressionUUID->"33f25e29-8e2f-5249-9603-\ -4bb381db84df"], + CellChangeTimes->{{3.9917997261183853`*^9, 3.991799730012718*^9}}, + CellLabel-> + "In[111]:=",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 92, 29, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99132368839011*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.884734744316392`*^-212\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 111, 25, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99132368839011*^9, 3.994258445703713*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], +In[111]:=",ExpressionUUID->"f9084523-4a3c-49b0-a958-8524b8097d4a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 92, 30, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236884141064`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.7102186537353504`*^-217\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 111, 26, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99132368839011*^9, 3.994258445714216*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], +In[111]:=",ExpressionUUID->"42448cef-557a-4f89-ba8e-74d49f5dec90"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 92, 31, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323688443001*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.8908073869912646`*^-222\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 111, 27, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99132368839011*^9, 3.994258445726169*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], +In[111]:=",ExpressionUUID->"47028217-3908-4b78-8afd-6f8a5e77de76"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 92, 32, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236884570007`*^9}, +during this calculation.\"", 2, 111, 28, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99132368839011*^9, 3.994258445736746*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], +In[111]:=",ExpressionUUID->"00c0fb1f-df1b-42d6-968b-febc6aaaa7d8"], -Cell[BoxData["10.498798062085507`"], "Output", - CellChangeTimes->{3.9913236988049507`*^9}, - CellLabel->"Out[92]=",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +Cell[BoxData["40.17124700693551`"], "Output", + CellChangeTimes->{3.9913236988049507`*^9, 3.994258456257358*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"aa9a2439-a484-4eff-b5a3-f9500314b7ab"] }, Open ]], Cell[CellGroupData[{ @@ -8534,8 +9948,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8543,14 +9956,15 @@ Cell[BoxData[ RowBox[{ SuperscriptBox[ RowBox[{"(", - FractionBox[ + RowBox[{ + FractionBox["1", "2"], RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}]}], + ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", @@ -8580,67 +9994,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9917997336698074`*^9, - 3.9917997367747993`*^9}},ExpressionUUID->"88e14da9-8532-e842-b722-\ -1b0781de8eeb"], + CellChangeTimes->{{3.9917997336698074`*^9, 3.9917997367747993`*^9}}, + CellLabel-> + "In[112]:=",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 93, 33, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323698915848*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.884734744316392`*^-212\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 112, 29, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323698915848*^9, 3.994258456330225*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], +In[112]:=",ExpressionUUID->"7e936437-7d9c-4df6-bf09-d42952a09f88"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 93, 34, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323698943981*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.7102186537353504`*^-217\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 112, 30, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323698915848*^9, 3.994258456342832*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], +In[112]:=",ExpressionUUID->"6f11d199-6ea4-418b-aed1-4d0c3f2e2954"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 93, 35, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323698971981*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.8908073869912646`*^-222\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 112, 31, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323698915848*^9, 3.994258456352684*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], +In[112]:=",ExpressionUUID->"08d13336-5232-4ad1-b566-9377ed370086"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 93, 36, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323698986994*^9}, +during this calculation.\"", 2, 112, 32, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323698915848*^9, 3.9942584563635187`*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], +In[112]:=",ExpressionUUID->"d12c2ca7-938b-4323-92e2-51f0487bd768"], -Cell[BoxData["18.521732102530788`"], "Output", - CellChangeTimes->{3.991323706795576*^9}, - CellLabel->"Out[93]=",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +Cell[BoxData["8.79622438233297`"], "Output", + CellChangeTimes->{3.991323706795576*^9, 3.994258465358687*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"593cd0be-f996-4fc2-8e40-c2d980325316"] }, Open ]], Cell[CellGroupData[{ @@ -8649,21 +10068,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991799742384985*^9, - 3.9917997459840527`*^9}},ExpressionUUID->"fcd1131c-ba92-0b46-817b-\ -e5f89f4ec38f"], + CellChangeTimes->{{3.991799742384985*^9, 3.9917997459840527`*^9}}, + CellLabel-> + "In[113]:=",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], -Cell[BoxData["0.038552612544494616`"], "Output", - CellChangeTimes->{3.991323706858589*^9}, - CellLabel->"Out[94]=",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +Cell[BoxData["0.04447977700712047`"], "Output", + CellChangeTimes->{3.991323706858589*^9, 3.994258465403831*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"7a2a62f5-f126-4b49-b9a3-1a9951d40b57"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9917997487290344`*^9, 3.991799750684988*^9}, - 3.9919243164025135`*^9},ExpressionUUID->"c771f2bd-f081-e54a-b4e5-\ -bf0dbc996ac3"], + 3.9919243164025135`*^9}, + CellLabel-> + "In[114]:=",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ @@ -8685,11 +10106,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", - CellLabel->"In[96]:=",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], + CellLabel-> + "In[115]:=",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], -Cell[BoxData["19.580504093356314`"], "Output", - CellChangeTimes->{3.991323706886154*^9}, - CellLabel->"Out[96]=",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +Cell[BoxData["14.366774230577528`"], "Output", + CellChangeTimes->{3.991323706886154*^9, 3.994258465427165*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"7ecc96e8-a62c-4724-8a3e-acab577240ef"] }, Open ]], Cell[CellGroupData[{ @@ -8698,11 +10121,13 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", - CellLabel->"In[98]:=",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], + CellLabel-> + "In[116]:=",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], -Cell[BoxData["0.8477067309358528`"], "Output", - CellChangeTimes->{3.9913237069236546`*^9}, - CellLabel->"Out[98]=",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +Cell[BoxData["1.7134653673502502`"], "Output", + CellChangeTimes->{3.9913237069236546`*^9, 3.99425846544156*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"11e39ae3-d645-43fe-8206-c49ee3243e9d"] }, Open ]], Cell[CellGroupData[{ @@ -8712,12 +10137,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[101]:=",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], + "In[117]:=",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], -Cell[BoxData["16.598525115055164`"], "Output", - CellChangeTimes->{3.9913237069753113`*^9}, +Cell[BoxData["24.616970084634634`"], "Output", + CellChangeTimes->{3.9913237069753113`*^9, 3.994258465457018*^9}, CellLabel-> - "Out[101]=",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] + "Out[117]=",ExpressionUUID->"2bb501f4-d0ce-4a75-9d0f-36865974b92b"] }, Open ]], Cell[CellGroupData[{ @@ -8908,12 +10333,12 @@ Cell[BoxData[ RowBox[{"-", "2"}]]}]}]], "Input", CellChangeTimes->{3.994084200822302*^9}, CellLabel-> - "In[102]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], + "In[118]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], -Cell[BoxData["0.02467166981689615`"], "Output", - CellChangeTimes->{3.991323707000412*^9}, +Cell[BoxData["0.005770252847407`"], "Output", + CellChangeTimes->{3.991323707000412*^9, 3.994258465475432*^9}, CellLabel-> - "Out[102]=",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] + "Out[118]=",ExpressionUUID->"cd9b2c41-6285-4e2a-a673-f1927ed23b92"] }, Open ]], Cell[CellGroupData[{ @@ -8927,12 +10352,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[103]:=",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], + "In[119]:=",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], -Cell[BoxData["5.642163519289108`"], "Output", - CellChangeTimes->{3.991323707203314*^9}, +Cell[BoxData["11.666686251913518`"], "Output", + CellChangeTimes->{3.991323707203314*^9, 3.99425846567605*^9}, CellLabel-> - "Out[103]=",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] + "Out[119]=",ExpressionUUID->"6de40b4d-1e9d-4a8d-abf4-b3210989404e"] }, Open ]], Cell[CellGroupData[{ @@ -9124,12 +10549,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[104]:=",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], + "In[120]:=",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], -Cell[BoxData["0.012834083028601704`"], "Output", - CellChangeTimes->{3.9913237072224197`*^9}, +Cell[BoxData["0.03689827208963396`"], "Output", + CellChangeTimes->{3.9913237072224197`*^9, 3.994258465692401*^9}, CellLabel-> - "Out[104]=",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] + "Out[120]=",ExpressionUUID->"ae553338-2a04-424c-8452-4a0bfad51a8b"] }, Open ]], Cell[CellGroupData[{ @@ -9143,12 +10568,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[105]:=",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], + "In[121]:=",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], -Cell[BoxData["7.82280524717004`"], "Output", - CellChangeTimes->{3.991323707432623*^9}, +Cell[BoxData["4.6136211164093215`"], "Output", + CellChangeTimes->{3.991323707432623*^9, 3.994258465902009*^9}, CellLabel-> - "Out[105]=",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] + "Out[121]=",ExpressionUUID->"9912c944-205d-4b67-9042-b24c4ebc540b"] }, Open ]], Cell[CellGroupData[{ @@ -9241,12 +10666,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[106]:=",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], + "In[122]:=",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.9913237074497375`*^9}, +Cell[BoxData["0.11447062330044823`"], "Output", + CellChangeTimes->{3.9913237074497375`*^9, 3.994258465916811*^9}, CellLabel-> - "Out[106]=",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] + "Out[122]=",ExpressionUUID->"0e93b2dd-8d0e-45ef-8e11-0e1c5b7c1eda"] }, Open ]], Cell[CellGroupData[{ @@ -9336,12 +10761,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[107]:=",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], + "In[123]:=",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.991323707467621*^9}, +Cell[BoxData["0.8855293766995518`"], "Output", + CellChangeTimes->{3.991323707467621*^9, 3.9942584659315567`*^9}, CellLabel-> - "Out[107]=",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] + "Out[123]=",ExpressionUUID->"76a3af72-7b95-4b00-9564-7e4e22ece0fa"] }, Open ]], Cell[CellGroupData[{ @@ -9464,12 +10889,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[108]:=",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], + "In[124]:=",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.991323707488617*^9}, +Cell[BoxData["0.1013670997016551`"], "Output", + CellChangeTimes->{3.991323707488617*^9, 3.994258465947585*^9}, CellLabel-> - "Out[108]=",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] + "Out[124]=",ExpressionUUID->"783b98ca-d97a-4f93-b9b4-6ecb7a75d4a5"] }, Open ]], Cell[CellGroupData[{ @@ -9484,30 +10909,34 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["1", "2"], + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}]}], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -9531,68 +10960,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991799766323864*^9},ExpressionUUID->"ee2d2671-1677-5943-bf7a-\ -6ffa36275fe8"], + CellChangeTimes->{3.991799766323864*^9}, + CellLabel-> + "In[125]:=",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 109, 37, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237075117207`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.167907482779623`*^-224\\\", \ +RowBox[{\\\"2735526583816145583533735\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 125, 33, + 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237075117207`*^9, 3.994258465968479*^9}, CellLabel-> "During evaluation of \ -In[109]:=",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], +In[125]:=",ExpressionUUID->"09c26ad6-1883-433f-9fc6-677cfe80e621"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 109, - 38, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323707545618*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.24506549830259`*^-230\\\", \ +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 125, 34, + 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237075117207`*^9, 3.9942584659788513`*^9}, CellLabel-> "During evaluation of \ -In[109]:=",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], +In[125]:=",ExpressionUUID->"4eb69305-cf28-4b88-8111-f1c63cbb3ce0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 109, - 39, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237075757256`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1021745261435639`*^-235\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 125, 35, + 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237075117207`*^9, 3.994258465993561*^9}, CellLabel-> "During evaluation of \ -In[109]:=",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], +In[125]:=",ExpressionUUID->"2f12c879-e581-4629-b465-bcfdefa18c59"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 109, 40, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237075926247`*^9}, +during this calculation.\"", 2, 125, 36, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237075117207`*^9, 3.994258466004353*^9}, CellLabel-> "During evaluation of \ -In[109]:=",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], +In[125]:=",ExpressionUUID->"3ef5a632-d9f8-4e27-b511-3645953d90a2"], -Cell[BoxData["5.642163519289105`"], "Output", - CellChangeTimes->{3.9913237161181736`*^9}, +Cell[BoxData["11.666686251913516`"], "Output", + CellChangeTimes->{3.9913237161181736`*^9, 3.994258473444981*^9}, CellLabel-> - "Out[109]=",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] + "Out[125]=",ExpressionUUID->"0db9350c-ad13-45c8-8119-6560bc969a1d"] }, Open ]], Cell[CellGroupData[{ @@ -9607,30 +11043,34 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["1", "2"], + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}]}], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -9654,68 +11094,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9917997699328365`*^9},ExpressionUUID->"b0b1035a-0fdf-b146-a71f-\ -1ab9142a9a90"], + CellChangeTimes->{3.9917997699328365`*^9}, + CellLabel-> + "In[126]:=",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 110, 41, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237161871567`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.167907482779623`*^-224\\\", \ +RowBox[{\\\"2735526583816145583533735\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 126, 37, + 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237161871567`*^9, 3.994258473496398*^9}, CellLabel-> "During evaluation of \ -In[110]:=",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], +In[126]:=",ExpressionUUID->"ea06fb77-3670-407a-9805-ad574393ae28"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 110, - 42, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237162070637`*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.24506549830259`*^-230\\\", \ +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 126, 38, + 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237161871567`*^9, 3.994258473508617*^9}, CellLabel-> "During evaluation of \ -In[110]:=",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], +In[126]:=",ExpressionUUID->"7637f5d0-7f0c-4bbc-b35a-fdc9ff388a9c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 110, - 43, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323716227171*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1021745261435639`*^-235\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 126, 39, + 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237161871567`*^9, 3.994258473519445*^9}, CellLabel-> "During evaluation of \ -In[110]:=",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], +In[126]:=",ExpressionUUID->"45c84952-1e9f-477c-b006-25294be30955"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 110, 44, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237162481613`*^9}, +during this calculation.\"", 2, 126, 40, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237161871567`*^9, 3.994258473528792*^9}, CellLabel-> "During evaluation of \ -In[110]:=",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], +In[126]:=",ExpressionUUID->"e4273c69-8468-4bac-ade2-7296f26dd98e"], -Cell[BoxData["7.822805247170038`"], "Output", - CellChangeTimes->{3.991323724852854*^9}, +Cell[BoxData["4.613621116409326`"], "Output", + CellChangeTimes->{3.991323724852854*^9, 3.9942584808533487`*^9}, CellLabel-> - "Out[110]=",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] + "Out[126]=",ExpressionUUID->"776ff9ea-27e6-4a67-a012-4c108f9e2244"] }, Open ]], Cell[CellGroupData[{ @@ -9773,95 +11220,95 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9917997843341885`*^9},ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-\ -ff25938e6592"], + CellChangeTimes->{3.9917997843341885`*^9}, + CellLabel-> + "In[127]:=",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Hk0VesbB3ARGYvckKkIhURm5XqeMmVMInOGc842JOqQUNFEk0TDTfcq -kgoZkiTykyKJUxTNqW2sZJ6rc/J7/bHXXp/1rP3d3/d913pVgiJdWfx8fHzf -yDP33v1izcqK1hcWf2Lzgtx0eWAxlGsUZFUI8cfcjm4lprOMz6tZVUOjRsh3 -F2IX5nMhcYMncG5DT7ojcWlsYp2gFQdk/JsO2BCfaJCrTSx4CS9yFIssiCtb -d1/h6r+GJk7HMiPi/g9N++MevIN4M6k3msTyvSt8piw/QX1nVYsiscPwfrMo -zhfo9v4ivpC4htsvFlvQCclvjpzmreHBm0Oy++5FdMNt1eItP4iHhKz6J/R7 -oSmf6fWWWChll5fBdB+cZxfnPiJWlrrcuPvBN5Bcfs6ggNhZYerGkOUA5D52 -VowhprJVZXSEh0BTzDTGizhRfXPSDs4wqHyhpdcTv5NtXxtdMAquyZnyP3V4 -wPQOCz2XMgYOqQ1HXhOPZPJdvRMxDlqnPuvdJhZW1ZEc1Z+E84ckPAKIzzPr -bCWXTIFoGrYaES+/6ZWoOz0F8v+7dFqE2HR18tDOBzNwdjOv/dZqHoQYf+H0 -W3JBOYKR8VGbBxOxe+aLavDgis1lw2vEBx+ImWsK/wGthpNLQokz0PRWMGcW -gkXarg9rkX7XG63YBfPQszae/5smDwoaztGHFPgx83ZJw1Xika/b96en8OOF -PMdWL+L9WpNltyMEMDpA7W79KtK3RGXFsL4grv3X8FHSSh58aB2o+XNNEH8b -nSlbS7x8rMJ74RIhZA+uHvhIehUaOp/VmRZCl6ICPW3i+sr4eeEPhDFIYrlo -uRoPJuvavnyzFMdUzUjFGBUeLHYUl9xXI46cYQMx3nIe6LVboYSZBCrP8548 -RBzWU569ds1C/Bp+oTppGQ928XP0/haXxKsGxxT3KPGgV7V4NGlKCkeHx13H -5cj+UE0iLQaL8USku5Q3Mf+tPhW53YuRW5j7okaW9DVY5lrwYzFGjInZHpbh -gbdl2p0XtDQOPV9pPCrNgxYGO0q2eQn6aZ2wi1zIg883U08FCMvg3/0MmXsS -PBj4UXAt31oGc14f6/slzgPR6O629bUyGDLZkZ4gxgOro26GAeWy+Etkq1KE -MA+qco0n87KWYkkH23loHg9ye3/FrItWwrxz8/ftGefCJvdjn6OKlLCj89Lr -02NcGKiXtinqU8KxDfYJuaNcMMxdvWS5lzIWq9o84AxzoT5oe5mgxTJcU9Ey -IDzAhbFheu+3I8txrZ1enF4PF6R3Wt0tc1LFxXoVhRZtXOjLFQ1xCVPFXH+l -PSqvuHD/U6vCYLIqshbN/sP/kgu+jn5HNGpV0bfoybeHL7iQqx3jekl/BSqM -sFs0msj/+2+OJMiq4eujOQI3arngFiymY9+pjnZyvpPhhVyAGHd9D546tord -9Fa9xQWtpCwT5lIN/GzUZvwmnwt81ww2JmzRQKxNdje7yYWizz4edx5p4H9y -caaDV7kgtK3wkHzOShR7Oj0ldpH0s3J60x+kiR49owdXHeSCguqZxFM9qzG9 -0v3wjBMXqk9OaP7k18ErHoPa2o6k/7hXO6Wig8VOFtq+9ly4Uq+muXG7Dk5s -rNeptOGCanDVq5m3OiiYcdTdH0i/wl51qnkNLin6t8lXjwtKCsrUci89FFrx -zzoVKS6svh4t/hv0MVTOUvvn899wla3mUs4xQquEvWELN/yG1hgwOXrdDN0U -oVnh/C9Q2f7a2S/8b6ytLdL9+/1PYM3eK1aKQzTs7i6sU/4Jsj/uL5AN2ojG -0lsuZdjPQLSB+aezWlb4y661VDphGoIGuY3S/dboXDHJlLwzBUUboxZktdii -9liN+ta2ScidCHtUeN4OXUoDLjvPn4SZDXLP6xMd0N/aquedxgR08AmMdgY6 -oUZep4ua6zhEKEamHVqxGa0/lSWuSx+D4tDG2gtJLlhT1jkl+HQU4seXTmuH -bsEDi/4TzJUahUl7m21P/V2xPVCJVeE+AmY+6Rt6t2xF3/yXD/Mdh+HV0sth -9QZuCD2RFUoyQyB/40h13ip3XHM6xa3u7QDcp7UcnSW2YUBd5qLihz9AuX0k -OGZwG+ZUJR8cr+4HgwvphddoD7RI8q/JKf8Ol+ePrzlb54k3P/zSqWv5Bvc2 -6H5IqvTC2FTPC65fv0KGyUkpboE3bhw6HseQ/gotH68nG6T4IPues8h1nz4o -d8pU23XQF+vTQncM5vTC6M6tfBFMP+xxVxROFeiFSRvNkCHL7Sj3ZGSBQFQP -5A2+n4ky9kf87Fd5q6sbPK9eZ/iJB+Cd6ANqhsHdUHbHwV/gWAAmqsVXCwx2 -gZnCq58nfgagVrhgSGBSF6yggz+8DA3EGQlRFy3NLugR27E5szsQIz6vFjBp -6YTWVGeGrXsQzr+abuJ9tBPOx2aJ7WkNwjvPnug+Nu+E6prZnww7BhpcmFr9 -dJaGtY8MTVc6MNAdgssm/tBwoy40pt+RgZL//ilXJU5vbBvb5cLAkZAQ3YNc -GqhXN38c8GBg4I7/RvEnDVJ9mzsussj8v7U334+RuUR2bfMhBlqw/GKC+2hY -5IvHDKoYyF9qWjn6goblfz1tUaxmoFW7S9UaYj2Ok5xQDQPfF8TZhT+nwdXc -J//dIwaeV38o9b2ZhvOKMc0HnjGQkx+86XsjDfIdtxY1vmPgXvkGnF9Hg9p2 -2QzfaQYeF7s/ca2CBrOAobwkQyZ2mZRbH8sh67k0EuVszMTx25Wjo1dp+Ktt -zELWlImx+2Jl/IiHrKfb89Yz8bv972eG2TS5b/jmcTYycXv6+Nvvl2lYOC3l -tXgLE5O4Fclhl2joOW0kkrWTiZlLznx/kkbDlqcm7cGRTOwfs7oExDV867L0 -djPx8Zq9tZVnaLgUZWH0OJqJWnrae0pSaXD2sg3s3cfEMW1OTHYKDZVqXpXa -J5nIaeh+lXGchtQH+0Pv32CiRk9+SddBGnbqXzSLzWOi2G+3CzuJHfNLRUwL -mLharH5gJpEG0Yt9+RVFTBS68GJEkjiJ7dJ/7y4TFcOrHG0O0LBfU21H+WMm -mgvpOjXE0RB2sTn8zmcmrlugZa4QRYPdwj5zNs1EWuCqw102DauS+CT0u5iY -EjLU7ETcxzYqKu1lYsjdEeXDu2kIdM4avD3ARAHhNomRSBo8BaMiSn4xUVlQ -XaQznAbbKPldhTIszHhnsUk2mIbHWcn2Z+VYGDNDd9yjaDDnjKnFyrNwm0Dg -9DZiPfXm95bKLHzj8qk8g0XD0rf7LD+qszB464C/KpOGH+s6ZESNWOh4ZCbQ -OZCGM/zZ/wveykJ+SfkBYV+yfl3xDCd3Fgr7Rw/f96HhqE8s28CDhZ+MOHtC -iWPvuqyc9WahiqaPGMeb9Kfmpf8TxCLnYet10YsGg6Yg5pPdLBQ15t9n40HD -23R1sRVpLOTWxRUJbaWhGCRCvqWzMKejZmOzK8kfnKgvOsfCqpIouzRifbv6 -BNOLLOxapnhLgTiVjzHmdIWFD7yma0y20GATmf0+tpCFus5h6kmbaVBSOm5s -UczCsA2tLS7EE02R5wRus1BmQcgPReIcDXBKLWOh2zXlmHvONPA6OmqvVZG+ -otbvh5xouOuokPeikYXVhXvboh1pOPWLX/B8Ewu9hX3O2BIH5fUHenFYeEF7 -XbU8seT8KoWeFhaOeX4JeexAQ/gDzzM/37CweCpSQpZ4hdY/MWq9LIw1WXro -tR0Nv94eaPvex0JjbTeHEuLWJJZeyTcWnrnrm3yCOKHTsN9sgKxXguMMxB8y -2vw2j7Mwbv2nVbc30XB2gZR1/DwKM9dnzd6wpaF6rMMnWoBCt6BZ86PEXzsK -2BGCFJ48XisURGx+1yo7SITCAX5vWEbcFxD7216KwsO5l6yybUh/R+vF1tIU -agWX9hwiXm+yWBOWUOhXLy3FJE6TKNxmsJTCHv7ihVpz86ovpQoqFGasGs+s -tib30fXCxiUrKCzll8/KIU5Li/uySJ3CbYqxOieI+yhpifmaFNbavhzymJtL -24YM6FHIrKwW4FrRUPVHOrFPn0KbPUHBfcS93+kLtCGFe5fperwkXlcbX9du -SiE/z+hjHnFPeLHy/5BCjfvPorcTL/TcZ1SxkUKpnTFmTsRmlpscS60oTGs0 -P2lOnLq0K+76JrL+cslWReL780vSsuwpvHJM4YkEcffwvpuXHCmMTlxnM2tJ -g2nDktenXSjM6ysZ6CYOKu36ccyVwokpgcVviU9nlvAfdqPQOjK4rom4i22n -F+NJYby/Z1MZscR2Gdtd3sTvu5flz+XZdfuF+VJ442H8vKy575cdOLU9gEIH -76chKcT3Re1zPIMoXMTeN3RkLm9SptKVSSG72oRv/1xeZ3eLI0X6nfh9OXou -j3O7zyaEQmOjhqc75/pVHOBhGIXDKy8eCJ7Lz7H/a304hSJvdj4MnMs/Latt -FEH2r9butO9cfmzPBt1dFKawtb56EIszSz012eR/yYuebyU22ZwQuSKanGf2 -jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc -+bu0SWw/hdXtDxNs5/K/JnQKJlB4L7Cy0IbY+JXDzGwihXdellNz/j8009f0 - + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk0VVscB3BdQzJlHvKoTHVlem4yhP0zZx5KkeEZ7j2GDIVERCUpUqYX +iiRDMiTJLE/xyitFoqSEigzXcG+EBt6+f5x11mfts7/799tnr73dJ9SJRmJj +Y5vFD+t97KXajobel4a8pIiEy3p0ZDhXrOVjWolKSfV5LI8W7MlSMG1FO6xP +TrLsQH3BxUf5F5W9ayeuYNdExXdwmnaja+UXJdKwLz6RbI8vf4WCm/p/sNzU +e+zGL80B9Gy9UDADe3roWWx0yyA6EclwycTeMi7v9t3kA/IV7XidhW09H6sb +3j2CLvaIn7mK3fZrmjeqfAx559G9crDfnJGIqQ/5jJaCTcOvYc9xmU4vao6j +X1qyjXnYXJeOulKWJ9Dil2j1AmxZofyuYy2TqCfg0LtCbDvp76VzJnR0oTy7 +8zY2cVNOXJV7DpUa/OCswI5XtE880j2PKM4fo+9iD0r0/xlRzkBqNcqrddjU +w4EBmZeY6OejDI5m7IU8tsL7Id+Q2EKMcRs2t5yqIENzCT1XfeX8FDuL2mEh +KPYdza/p7+rG3nbbNV59+TsKPEqmvMLWUTk/F9yygqzLEobeY/vvGemeNvmF +5m10k75hL0Yd5+BR+o0e85QurGKfbuHVJ3OvoTrVjEtse+koB3Qq/LrX0dDM +VzcBbGpJl2lY+QaIXU1wUcEuf5I5ekaaBFXXJpx3Yy989YxNv0SCOYGnifrY +scpLtfdC2GExle2ULXZW9Xb5eU1O0KbZ/3cMe6iX3rZWxAl+O68djsHexmw4 +LCDGBacHvGQTsSt322WoLnOB9IiXQS52Z9PJDUEt3FC1Jv+uA3up4/XIpAkf +pARFJMnp05GwDZ9gTBsfiNrlHdDA1ug3BX5dfjBbE/EwxA78UnfzTzUBGNzA +2OqGfZTUrWHAJwge1QeCs7HH5e4yEr8LwWcDZyVpA7w/xLNNPRRhOJsHZSrY +pIqJ7ZLHhGH+eTjNEHsbZatT+YwwyLlXp/tgHzZJu/9yVAQa+Y7UVGH3+IaF +SzwXA/WBIH57Qzr6ePtyihe3OPy+k2pCxabPlBfdMRMHvRD6g2hsnojPr/e2 +i0PtJm/LEmzTcwd2e9VJwAi3iO46dnPxnqWyAikofLys2YboqHj8R6RehAwY +kW1T/I3oaJ9z0sfwKhmQ/3AaErDpnSLmVRMycGLSlHwDe3exitg2V1k4sjnm +737sTh/PWk7DrbBmmzxoYkxHzPnRE5MJ20A4JZFbBZ9jkWDTB7W2crDdTJlH +3oyOJop5/B0C5eCM3ZC6KXbjh17p2fNycHNx/QIN293GI0GpXQ4kPcoGyrCL +d0U65WrKQ5HO/sE/zfH607cX4iQU4KCg7llbCzo64MerajWmCLeCtb0rLOkI +RTprHvqtCNvzTqr0YSsnFmhTpZTgiIMoeRWbrYhiHOeoBCZiFvUWVnRU9dHt +0P1HSiDucGnbV2yug5VnttzaAb0cRRR1G1yfqe2baR8y3LqrYPPFjo6K9me/ +X44jA9+gKAjZ09Fln7FRjutkmNLXphliU08fn5F9TYbkPn6TXGyh1ny2/SbK +UJo5YuPogM8PZU65RX4XKG74lf3MkY6k5a7Ep3xRgY+J7OyfDtBRa/IieZWk +Cuoy+ceknPF+fHPtJ7argt3UpJQj9o1OBbKxpypIrVyReIQt59fct/JWFU4F +TD0pOoj7rRxXJJ6rweg3tcVwFzqSkZYltrlqAH/h0xjkTkcqJRF8P5EmPCK1 +vTxLpSMfasKSqp0mlLR4LHRg58hnfPRy14S5mW4TThodsd+qvvckShNSjYRP +X8AeujF9IKNGEzocOOzSCXyf5njlk+UpEO41bFDpj/9vio2aC9dueGfe/dfG +YDoqDFNwqOvWgq6kJj2nSDrqjUTa50p0IVGlpUwqlY62ew7YeQQZAGVkumW+ +lI5o6/V3ZaIBgi6avBJ/TEcSM40bJXyM4bS4DduLT3QUQdH/kKFsCnUGnwYO +ccwin9lfXSLTZuCmwcO+umMWVRmHbyzosYDkyIGVG46zqHgx8FFlliWk3t3b +pxkzi1aMJF90xlvDshLHbZmKWTTMxs4Y87aFC+8dhqY+zKKQP0LTzsjbQ9EL +Fa8a/jl0N6Cr/e9EB9jnJ3iVzWwOnfwmtbwrwBFmHr1Xaj05h5aszA8+/csJ +dia92i/SMId03dKNxh33Q9DbVjWTxTnUJ5Uf2Ek5AG7loYFf1ObRltKE1rKd +zjC8cWnfbOg8ahxVtrHjPwhdIvy8PVXzSLZ/wS9y9iA0FE1buc7ge/7v9Mqi +0UNg67ryLFBiAeVzfFPL6HCBs//s6JXVXkD1RupDiU2uIEEEm6e7LqAc7WSh +X+WHQW44KN0xZgH1vC85T7nkBvuOHL6Vc20B1dnmKRw97Q5DXnKmcq0LiBG8 +ny2E6gGM+9rRc0MLaMmc7D9n4gnVL9ajT68soLLZdyvhe/6CyabY3S0SDORS +WOLrwecFpMz541MUBqq9b/0Xe5IXPD9kGYgcGUhXum/14qoXUC7ynHc5wkDy +o35DrwK8QYDLKC8zgYG+8B6xz/vsDcdTlX018hio97Kdr4WzD3DErRhG1DBQ +VlQB7/FeH8gv+6IV94SBWtvWV30tfYFdYSTl5yADbXaHJEqzL9wyj9BSn2Sg +baJPe/5o9QW+T9nFQdga3baSXG2+8DGzi34H20nf7c7gI19QidTiVpjC+X9E +Pj/1ny8wG2MCxacZaMtwxeauQV8gt7S8+TbDQAqeEjnuy75QKj0nmz6P+/Ga +K0vcTQVy0m/Sge8MVJq7EG63hwpnvPQlzmGLvmYaSuhQIVlKjvsB9pzZcn/Z +XioMkXriRZYZ+P5i29BtTAW/g+QnvdgCy0Kuwo5U0NnRXm66ivcjVWtTQTAV +3m4h1wr9YiDHp9r9fqFUiEb6+w2w29j0CjSOUaH2uG+PP3ZuuKHW4wgq/Cz8 +4PYPtp2rhfd4DBV+X2D7N/A3AzUpuDbtSqaCeIBdf/MaA11uiQ1oLKXC2p+N +/6ENTBSsma0bVUaF0a13thLYNndqNumUU8HAK8vpEjZP9sSdhioq/MNrbT+I +nRjmMF3/gArWqn1FISQmiiUrHKl7TIV/vaXrs9iZKDD7edD9j1RY8h8nnnAy +kaXAhH7YKBUODVGcJ7F3JrLxa36iwsXzfNt4uJhoIkyrqmYc5x+xt7bF9rYr +mL1Hp8JelfblV9gunOEh1T+oIF0RV9K/kYkswrccrRSnQV9sueE/m5joccF5 +qwxJGmT0hWmPYOt3MxWittDgImUT1zq2huLzdyayNNA+la5gyMNEUm9jTN4r +0uACRwXRjD2jNyzOo0UDNo3Jn+W8THSFdPOh334aSN5rdArix/2r8+XYOtNA +fmvy2nnsc25RYZRDNAieehhfiB31wGHH+mEaHHUH0htsb2JD+lUfGrRQ3Tca +CDAR5ZkP9d9jNNCjeG5m38xEb9MVeeXTaPB5H5MUKshEdxG//2Q6DVJ+vJo6 +i31udrGzKpMG9bmWFVexNS0743SyabCrZuXhQ+zLbL5M2xs0KL64VY5HiInM +Q2++i6qkQZrtxOfr2DIyF/YY3qWBWaJneBX24rPQTPZ7NEi44TDchn1LCdle +rqVB+/HrMIb9e3i4vaiZBmHJ100VhJnogY102csuGtgZ9EIRdsoPEmfWMxqM +uf5x4j62T9m0t2s3DTr4upIeYQtyNEt/6aFBopKOzgh2UIvLldU3NHiR5Tgg +KcJE8spXIxXGadAkSV4/h/3j7anXUxO4n8r2oXTs3kSaRvUkDVIdCtNuYMeN +7Z7WpdMAVeukNGAP5bz2sP9Gg4aXeS1fsTM2Cpmd3EAAm7s6t5EoE7Uyh90i +2Alwqv380Ab763B5WAgnAfR9Z0xdsPUfmN702URAjX9YZwj2hFfUTyshAvJd +Oa/kYgvamAmbiRAw6/LheRH2Xm1hMhIjoK4o/V0Vdhp/5UGKFAHXhDP8HrHG +m0dqpLcToOLTZTuBTZRUdonJEyB9M1RonvV9WvTIZkUC/GtmSpZZ6xEi/Bxk +AkpJnkbcYnhcxMKfrkGA/XUB4x3YzWsi8ROaBHidR5fUsMenRv8e3U0Azz6D +21rYeu0nO/p1CAh/dN3eBPtL0F3Zh0CA8Wp3gDu2gEuMVoMxrueDjZ4Ptq7J +PpsaUwLuiGa+98O+LPUpumQfAZ31oWlh2I0c1WkFVgTQnnIUn8D+PB9zO9eG +gPIYjwux2DpPxAZSHQhI9DzUkYjtU/NpJsmJgArfZalk7NS8atLZAwTkNLkY +Xcb+FGapEelCgKW5B+kqNr+nuMXRwwSoJ6xfz2XlWX72CHQnQFzGmyufNX/r +qRRPL5xX52VbxKqHx+qWiw8Bm6Z/k0tZeUviTU5UAgYmXN6WsfLGPvfYEAQ8 +cz7mXMHK6743Ye5PwJUJ8+IqVn0Np35DIAH/2b3rqGbl37IS3RtEAJfVzgc1 +rPxUiV1aIQR05VKO17Lyo74YqR/F8zl/ctVh81FrXMhhBDw+HBdQj61tHxcq +H0FAW9DDvAZWvp71eZlIAt6INt5sxL6kKJkvEUWAg2bI8SbsesHxWqGTBPiU +j2xpxh77WfOMN5YAfX++dJb5vsaNccYR8N198S3Le/qsV9bjCaiMz55n+X9d +geaJ "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -9875,107 +11322,107 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk0VesbB3ARGYvckKkIhURm5XqeMmVMInOGc842JOqQUNFEk0TDTfcq -kgoZkiTykyKJUxTNqW2sZJ6rc/J7/bHXXp/1rP3d3/d913pVgiJdWfx8fHzf -yDP33v1izcqK1hcWf2Lzgtx0eWAxlGsUZFUI8cfcjm4lprOMz6tZVUOjRsh3 -F2IX5nMhcYMncG5DT7ojcWlsYp2gFQdk/JsO2BCfaJCrTSx4CS9yFIssiCtb -d1/h6r+GJk7HMiPi/g9N++MevIN4M6k3msTyvSt8piw/QX1nVYsiscPwfrMo -zhfo9v4ivpC4htsvFlvQCclvjpzmreHBm0Oy++5FdMNt1eItP4iHhKz6J/R7 -oSmf6fWWWChll5fBdB+cZxfnPiJWlrrcuPvBN5Bcfs6ggNhZYerGkOUA5D52 -VowhprJVZXSEh0BTzDTGizhRfXPSDs4wqHyhpdcTv5NtXxtdMAquyZnyP3V4 -wPQOCz2XMgYOqQ1HXhOPZPJdvRMxDlqnPuvdJhZW1ZEc1Z+E84ckPAKIzzPr -bCWXTIFoGrYaES+/6ZWoOz0F8v+7dFqE2HR18tDOBzNwdjOv/dZqHoQYf+H0 -W3JBOYKR8VGbBxOxe+aLavDgis1lw2vEBx+ImWsK/wGthpNLQokz0PRWMGcW -gkXarg9rkX7XG63YBfPQszae/5smDwoaztGHFPgx83ZJw1Xika/b96en8OOF -PMdWL+L9WpNltyMEMDpA7W79KtK3RGXFsL4grv3X8FHSSh58aB2o+XNNEH8b -nSlbS7x8rMJ74RIhZA+uHvhIehUaOp/VmRZCl6ICPW3i+sr4eeEPhDFIYrlo -uRoPJuvavnyzFMdUzUjFGBUeLHYUl9xXI46cYQMx3nIe6LVboYSZBCrP8548 -RBzWU569ds1C/Bp+oTppGQ928XP0/haXxKsGxxT3KPGgV7V4NGlKCkeHx13H -5cj+UE0iLQaL8USku5Q3Mf+tPhW53YuRW5j7okaW9DVY5lrwYzFGjInZHpbh -gbdl2p0XtDQOPV9pPCrNgxYGO0q2eQn6aZ2wi1zIg883U08FCMvg3/0MmXsS -PBj4UXAt31oGc14f6/slzgPR6O629bUyGDLZkZ4gxgOro26GAeWy+Etkq1KE -MA+qco0n87KWYkkH23loHg9ye3/FrItWwrxz8/ftGefCJvdjn6OKlLCj89Lr -02NcGKiXtinqU8KxDfYJuaNcMMxdvWS5lzIWq9o84AxzoT5oe5mgxTJcU9Ey -IDzAhbFheu+3I8txrZ1enF4PF6R3Wt0tc1LFxXoVhRZtXOjLFQ1xCVPFXH+l -PSqvuHD/U6vCYLIqshbN/sP/kgu+jn5HNGpV0bfoybeHL7iQqx3jekl/BSqM -sFs0msj/+2+OJMiq4eujOQI3arngFiymY9+pjnZyvpPhhVyAGHd9D546tord -9Fa9xQWtpCwT5lIN/GzUZvwmnwt81ww2JmzRQKxNdje7yYWizz4edx5p4H9y -caaDV7kgtK3wkHzOShR7Oj0ldpH0s3J60x+kiR49owdXHeSCguqZxFM9qzG9 -0v3wjBMXqk9OaP7k18ErHoPa2o6k/7hXO6Wig8VOFtq+9ly4Uq+muXG7Dk5s -rNeptOGCanDVq5m3OiiYcdTdH0i/wl51qnkNLin6t8lXjwtKCsrUci89FFrx -zzoVKS6svh4t/hv0MVTOUvvn899wla3mUs4xQquEvWELN/yG1hgwOXrdDN0U -oVnh/C9Q2f7a2S/8b6ytLdL9+/1PYM3eK1aKQzTs7i6sU/4Jsj/uL5AN2ojG -0lsuZdjPQLSB+aezWlb4y661VDphGoIGuY3S/dboXDHJlLwzBUUboxZktdii -9liN+ta2ScidCHtUeN4OXUoDLjvPn4SZDXLP6xMd0N/aquedxgR08AmMdgY6 -oUZep4ua6zhEKEamHVqxGa0/lSWuSx+D4tDG2gtJLlhT1jkl+HQU4seXTmuH -bsEDi/4TzJUahUl7m21P/V2xPVCJVeE+AmY+6Rt6t2xF3/yXD/Mdh+HV0sth -9QZuCD2RFUoyQyB/40h13ip3XHM6xa3u7QDcp7UcnSW2YUBd5qLihz9AuX0k -OGZwG+ZUJR8cr+4HgwvphddoD7RI8q/JKf8Ol+ePrzlb54k3P/zSqWv5Bvc2 -6H5IqvTC2FTPC65fv0KGyUkpboE3bhw6HseQ/gotH68nG6T4IPues8h1nz4o -d8pU23XQF+vTQncM5vTC6M6tfBFMP+xxVxROFeiFSRvNkCHL7Sj3ZGSBQFQP -5A2+n4ky9kf87Fd5q6sbPK9eZ/iJB+Cd6ANqhsHdUHbHwV/gWAAmqsVXCwx2 -gZnCq58nfgagVrhgSGBSF6yggz+8DA3EGQlRFy3NLugR27E5szsQIz6vFjBp -6YTWVGeGrXsQzr+abuJ9tBPOx2aJ7WkNwjvPnug+Nu+E6prZnww7BhpcmFr9 -dJaGtY8MTVc6MNAdgssm/tBwoy40pt+RgZL//ilXJU5vbBvb5cLAkZAQ3YNc -GqhXN38c8GBg4I7/RvEnDVJ9mzsussj8v7U334+RuUR2bfMhBlqw/GKC+2hY -5IvHDKoYyF9qWjn6goblfz1tUaxmoFW7S9UaYj2Ok5xQDQPfF8TZhT+nwdXc -J//dIwaeV38o9b2ZhvOKMc0HnjGQkx+86XsjDfIdtxY1vmPgXvkGnF9Hg9p2 -2QzfaQYeF7s/ca2CBrOAobwkQyZ2mZRbH8sh67k0EuVszMTx25Wjo1dp+Ktt -zELWlImx+2Jl/IiHrKfb89Yz8bv972eG2TS5b/jmcTYycXv6+Nvvl2lYOC3l -tXgLE5O4Fclhl2joOW0kkrWTiZlLznx/kkbDlqcm7cGRTOwfs7oExDV867L0 -djPx8Zq9tZVnaLgUZWH0OJqJWnrae0pSaXD2sg3s3cfEMW1OTHYKDZVqXpXa -J5nIaeh+lXGchtQH+0Pv32CiRk9+SddBGnbqXzSLzWOi2G+3CzuJHfNLRUwL -mLharH5gJpEG0Yt9+RVFTBS68GJEkjiJ7dJ/7y4TFcOrHG0O0LBfU21H+WMm -mgvpOjXE0RB2sTn8zmcmrlugZa4QRYPdwj5zNs1EWuCqw102DauS+CT0u5iY -EjLU7ETcxzYqKu1lYsjdEeXDu2kIdM4avD3ARAHhNomRSBo8BaMiSn4xUVlQ -XaQznAbbKPldhTIszHhnsUk2mIbHWcn2Z+VYGDNDd9yjaDDnjKnFyrNwm0Dg -9DZiPfXm95bKLHzj8qk8g0XD0rf7LD+qszB464C/KpOGH+s6ZESNWOh4ZCbQ -OZCGM/zZ/wveykJ+SfkBYV+yfl3xDCd3Fgr7Rw/f96HhqE8s28CDhZ+MOHtC -iWPvuqyc9WahiqaPGMeb9Kfmpf8TxCLnYet10YsGg6Yg5pPdLBQ15t9n40HD -23R1sRVpLOTWxRUJbaWhGCRCvqWzMKejZmOzK8kfnKgvOsfCqpIouzRifbv6 -BNOLLOxapnhLgTiVjzHmdIWFD7yma0y20GATmf0+tpCFus5h6kmbaVBSOm5s -UczCsA2tLS7EE02R5wRus1BmQcgPReIcDXBKLWOh2zXlmHvONPA6OmqvVZG+ -otbvh5xouOuokPeikYXVhXvboh1pOPWLX/B8Ewu9hX3O2BIH5fUHenFYeEF7 -XbU8seT8KoWeFhaOeX4JeexAQ/gDzzM/37CweCpSQpZ4hdY/MWq9LIw1WXro -tR0Nv94eaPvex0JjbTeHEuLWJJZeyTcWnrnrm3yCOKHTsN9sgKxXguMMxB8y -2vw2j7Mwbv2nVbc30XB2gZR1/DwKM9dnzd6wpaF6rMMnWoBCt6BZ86PEXzsK -2BGCFJ48XisURGx+1yo7SITCAX5vWEbcFxD7216KwsO5l6yybUh/R+vF1tIU -agWX9hwiXm+yWBOWUOhXLy3FJE6TKNxmsJTCHv7ihVpz86ovpQoqFGasGs+s -tib30fXCxiUrKCzll8/KIU5Li/uySJ3CbYqxOieI+yhpifmaFNbavhzymJtL -24YM6FHIrKwW4FrRUPVHOrFPn0KbPUHBfcS93+kLtCGFe5fperwkXlcbX9du -SiE/z+hjHnFPeLHy/5BCjfvPorcTL/TcZ1SxkUKpnTFmTsRmlpscS60oTGs0 -P2lOnLq0K+76JrL+cslWReL780vSsuwpvHJM4YkEcffwvpuXHCmMTlxnM2tJ -g2nDktenXSjM6ysZ6CYOKu36ccyVwokpgcVviU9nlvAfdqPQOjK4rom4i22n -F+NJYby/Z1MZscR2Gdtd3sTvu5flz+XZdfuF+VJ442H8vKy575cdOLU9gEIH -76chKcT3Re1zPIMoXMTeN3RkLm9SptKVSSG72oRv/1xeZ3eLI0X6nfh9OXou -j3O7zyaEQmOjhqc75/pVHOBhGIXDKy8eCJ7Lz7H/a304hSJvdj4MnMs/Latt -FEH2r9butO9cfmzPBt1dFKawtb56EIszSz012eR/yYuebyU22ZwQuSKanGf2 -jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc -+bu0SWw/hdXtDxNs5/K/JnQKJlB4L7Cy0IbY+JXDzGwihXdellNz/j8009f0 - +1:eJwV1Hk0VVscB3BdQzJlHvKoTHVlem4yhP0zZx5KkeEZ7j2GDIVERCUpUqYX +iiRDMiTJLE/xyitFoqSEigzXcG+EBt6+f5x11mfts7/799tnr73dJ9SJRmJj +Y5vFD+t97KXajobel4a8pIiEy3p0ZDhXrOVjWolKSfV5LI8W7MlSMG1FO6xP +TrLsQH3BxUf5F5W9ayeuYNdExXdwmnaja+UXJdKwLz6RbI8vf4WCm/p/sNzU +e+zGL80B9Gy9UDADe3roWWx0yyA6EclwycTeMi7v9t3kA/IV7XidhW09H6sb +3j2CLvaIn7mK3fZrmjeqfAx559G9crDfnJGIqQ/5jJaCTcOvYc9xmU4vao6j +X1qyjXnYXJeOulKWJ9Dil2j1AmxZofyuYy2TqCfg0LtCbDvp76VzJnR0oTy7 +8zY2cVNOXJV7DpUa/OCswI5XtE880j2PKM4fo+9iD0r0/xlRzkBqNcqrddjU +w4EBmZeY6OejDI5m7IU8tsL7Id+Q2EKMcRs2t5yqIENzCT1XfeX8FDuL2mEh +KPYdza/p7+rG3nbbNV59+TsKPEqmvMLWUTk/F9yygqzLEobeY/vvGemeNvmF +5m10k75hL0Yd5+BR+o0e85QurGKfbuHVJ3OvoTrVjEtse+koB3Qq/LrX0dDM +VzcBbGpJl2lY+QaIXU1wUcEuf5I5ekaaBFXXJpx3Yy989YxNv0SCOYGnifrY +scpLtfdC2GExle2ULXZW9Xb5eU1O0KbZ/3cMe6iX3rZWxAl+O68djsHexmw4 +LCDGBacHvGQTsSt322WoLnOB9IiXQS52Z9PJDUEt3FC1Jv+uA3up4/XIpAkf +pARFJMnp05GwDZ9gTBsfiNrlHdDA1ug3BX5dfjBbE/EwxA78UnfzTzUBGNzA +2OqGfZTUrWHAJwge1QeCs7HH5e4yEr8LwWcDZyVpA7w/xLNNPRRhOJsHZSrY +pIqJ7ZLHhGH+eTjNEHsbZatT+YwwyLlXp/tgHzZJu/9yVAQa+Y7UVGH3+IaF +SzwXA/WBIH57Qzr6ePtyihe3OPy+k2pCxabPlBfdMRMHvRD6g2hsnojPr/e2 +i0PtJm/LEmzTcwd2e9VJwAi3iO46dnPxnqWyAikofLys2YboqHj8R6RehAwY +kW1T/I3oaJ9z0sfwKhmQ/3AaErDpnSLmVRMycGLSlHwDe3exitg2V1k4sjnm +737sTh/PWk7DrbBmmzxoYkxHzPnRE5MJ20A4JZFbBZ9jkWDTB7W2crDdTJlH +3oyOJop5/B0C5eCM3ZC6KXbjh17p2fNycHNx/QIN293GI0GpXQ4kPcoGyrCL +d0U65WrKQ5HO/sE/zfH607cX4iQU4KCg7llbCzo64MerajWmCLeCtb0rLOkI +RTprHvqtCNvzTqr0YSsnFmhTpZTgiIMoeRWbrYhiHOeoBCZiFvUWVnRU9dHt +0P1HSiDucGnbV2yug5VnttzaAb0cRRR1G1yfqe2baR8y3LqrYPPFjo6K9me/ +X44jA9+gKAjZ09Fln7FRjutkmNLXphliU08fn5F9TYbkPn6TXGyh1ny2/SbK +UJo5YuPogM8PZU65RX4XKG74lf3MkY6k5a7Ep3xRgY+J7OyfDtBRa/IieZWk +Cuoy+ceknPF+fHPtJ7argt3UpJQj9o1OBbKxpypIrVyReIQt59fct/JWFU4F +TD0pOoj7rRxXJJ6rweg3tcVwFzqSkZYltrlqAH/h0xjkTkcqJRF8P5EmPCK1 +vTxLpSMfasKSqp0mlLR4LHRg58hnfPRy14S5mW4TThodsd+qvvckShNSjYRP +X8AeujF9IKNGEzocOOzSCXyf5njlk+UpEO41bFDpj/9vio2aC9dueGfe/dfG +YDoqDFNwqOvWgq6kJj2nSDrqjUTa50p0IVGlpUwqlY62ew7YeQQZAGVkumW+ +lI5o6/V3ZaIBgi6avBJ/TEcSM40bJXyM4bS4DduLT3QUQdH/kKFsCnUGnwYO +ccwin9lfXSLTZuCmwcO+umMWVRmHbyzosYDkyIGVG46zqHgx8FFlliWk3t3b +pxkzi1aMJF90xlvDshLHbZmKWTTMxs4Y87aFC+8dhqY+zKKQP0LTzsjbQ9EL +Fa8a/jl0N6Cr/e9EB9jnJ3iVzWwOnfwmtbwrwBFmHr1Xaj05h5aszA8+/csJ +dia92i/SMId03dKNxh33Q9DbVjWTxTnUJ5Uf2Ek5AG7loYFf1ObRltKE1rKd +zjC8cWnfbOg8ahxVtrHjPwhdIvy8PVXzSLZ/wS9y9iA0FE1buc7ge/7v9Mqi +0UNg67ryLFBiAeVzfFPL6HCBs//s6JXVXkD1RupDiU2uIEEEm6e7LqAc7WSh +X+WHQW44KN0xZgH1vC85T7nkBvuOHL6Vc20B1dnmKRw97Q5DXnKmcq0LiBG8 +ny2E6gGM+9rRc0MLaMmc7D9n4gnVL9ajT68soLLZdyvhe/6CyabY3S0SDORS +WOLrwecFpMz541MUBqq9b/0Xe5IXPD9kGYgcGUhXum/14qoXUC7ynHc5wkDy +o35DrwK8QYDLKC8zgYG+8B6xz/vsDcdTlX018hio97Kdr4WzD3DErRhG1DBQ +VlQB7/FeH8gv+6IV94SBWtvWV30tfYFdYSTl5yADbXaHJEqzL9wyj9BSn2Sg +baJPe/5o9QW+T9nFQdga3baSXG2+8DGzi34H20nf7c7gI19QidTiVpjC+X9E +Pj/1ny8wG2MCxacZaMtwxeauQV8gt7S8+TbDQAqeEjnuy75QKj0nmz6P+/Ga +K0vcTQVy0m/Sge8MVJq7EG63hwpnvPQlzmGLvmYaSuhQIVlKjvsB9pzZcn/Z +XioMkXriRZYZ+P5i29BtTAW/g+QnvdgCy0Kuwo5U0NnRXm66ivcjVWtTQTAV +3m4h1wr9YiDHp9r9fqFUiEb6+w2w29j0CjSOUaH2uG+PP3ZuuKHW4wgq/Cz8 +4PYPtp2rhfd4DBV+X2D7N/A3AzUpuDbtSqaCeIBdf/MaA11uiQ1oLKXC2p+N +/6ENTBSsma0bVUaF0a13thLYNndqNumUU8HAK8vpEjZP9sSdhioq/MNrbT+I +nRjmMF3/gArWqn1FISQmiiUrHKl7TIV/vaXrs9iZKDD7edD9j1RY8h8nnnAy +kaXAhH7YKBUODVGcJ7F3JrLxa36iwsXzfNt4uJhoIkyrqmYc5x+xt7bF9rYr +mL1Hp8JelfblV9gunOEh1T+oIF0RV9K/kYkswrccrRSnQV9sueE/m5joccF5 +qwxJGmT0hWmPYOt3MxWittDgImUT1zq2huLzdyayNNA+la5gyMNEUm9jTN4r +0uACRwXRjD2jNyzOo0UDNo3Jn+W8THSFdPOh334aSN5rdArix/2r8+XYOtNA +fmvy2nnsc25RYZRDNAieehhfiB31wGHH+mEaHHUH0htsb2JD+lUfGrRQ3Tca +CDAR5ZkP9d9jNNCjeG5m38xEb9MVeeXTaPB5H5MUKshEdxG//2Q6DVJ+vJo6 +i31udrGzKpMG9bmWFVexNS0743SyabCrZuXhQ+zLbL5M2xs0KL64VY5HiInM +Q2++i6qkQZrtxOfr2DIyF/YY3qWBWaJneBX24rPQTPZ7NEi44TDchn1LCdle +rqVB+/HrMIb9e3i4vaiZBmHJ100VhJnogY102csuGtgZ9EIRdsoPEmfWMxqM +uf5x4j62T9m0t2s3DTr4upIeYQtyNEt/6aFBopKOzgh2UIvLldU3NHiR5Tgg +KcJE8spXIxXGadAkSV4/h/3j7anXUxO4n8r2oXTs3kSaRvUkDVIdCtNuYMeN +7Z7WpdMAVeukNGAP5bz2sP9Gg4aXeS1fsTM2Cpmd3EAAm7s6t5EoE7Uyh90i +2Alwqv380Ab763B5WAgnAfR9Z0xdsPUfmN702URAjX9YZwj2hFfUTyshAvJd +Oa/kYgvamAmbiRAw6/LheRH2Xm1hMhIjoK4o/V0Vdhp/5UGKFAHXhDP8HrHG +m0dqpLcToOLTZTuBTZRUdonJEyB9M1RonvV9WvTIZkUC/GtmSpZZ6xEi/Bxk +AkpJnkbcYnhcxMKfrkGA/XUB4x3YzWsi8ROaBHidR5fUsMenRv8e3U0Azz6D +21rYeu0nO/p1CAh/dN3eBPtL0F3Zh0CA8Wp3gDu2gEuMVoMxrueDjZ4Ptq7J +PpsaUwLuiGa+98O+LPUpumQfAZ31oWlh2I0c1WkFVgTQnnIUn8D+PB9zO9eG +gPIYjwux2DpPxAZSHQhI9DzUkYjtU/NpJsmJgArfZalk7NS8atLZAwTkNLkY +Xcb+FGapEelCgKW5B+kqNr+nuMXRwwSoJ6xfz2XlWX72CHQnQFzGmyufNX/r +qRRPL5xX52VbxKqHx+qWiw8Bm6Z/k0tZeUviTU5UAgYmXN6WsfLGPvfYEAQ8 +cz7mXMHK6743Ye5PwJUJ8+IqVn0Np35DIAH/2b3rqGbl37IS3RtEAJfVzgc1 +rPxUiV1aIQR05VKO17Lyo74YqR/F8zl/ctVh81FrXMhhBDw+HBdQj61tHxcq +H0FAW9DDvAZWvp71eZlIAt6INt5sxL6kKJkvEUWAg2bI8SbsesHxWqGTBPiU +j2xpxh77WfOMN5YAfX++dJb5vsaNccYR8N198S3Le/qsV9bjCaiMz55n+X9d +geaJ "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5082122808512877, - 1.8240550855476267`}}, + "PlotRange" -> {{0, 180}, {0.8821480338520485, + 1.1303052290968294`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5082122808512888}, + "AxesOrigin" -> {0, 0.8821480338520505}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -9987,21 +11434,21 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5082122808512877, - 1.8240550855476267`}}, + "PlotRange" -> {{0, 180}, {0.8821480338520485, + 1.1303052290968294`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5082122808512888}, + "AxesOrigin" -> {0, 0.8821480338520505}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10015,105 +11462,105 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk0VesbB3ARGYvckKkIhURm5XqeMmVMInOGc842JOqQUNFEk0TDTfcq -kgoZkiTykyKJUxTNqW2sZJ6rc/J7/bHXXp/1rP3d3/d913pVgiJdWfx8fHzf -yDP33v1izcqK1hcWf2Lzgtx0eWAxlGsUZFUI8cfcjm4lprOMz6tZVUOjRsh3 -F2IX5nMhcYMncG5DT7ojcWlsYp2gFQdk/JsO2BCfaJCrTSx4CS9yFIssiCtb -d1/h6r+GJk7HMiPi/g9N++MevIN4M6k3msTyvSt8piw/QX1nVYsiscPwfrMo -zhfo9v4ivpC4htsvFlvQCclvjpzmreHBm0Oy++5FdMNt1eItP4iHhKz6J/R7 -oSmf6fWWWChll5fBdB+cZxfnPiJWlrrcuPvBN5Bcfs6ggNhZYerGkOUA5D52 -VowhprJVZXSEh0BTzDTGizhRfXPSDs4wqHyhpdcTv5NtXxtdMAquyZnyP3V4 -wPQOCz2XMgYOqQ1HXhOPZPJdvRMxDlqnPuvdJhZW1ZEc1Z+E84ckPAKIzzPr -bCWXTIFoGrYaES+/6ZWoOz0F8v+7dFqE2HR18tDOBzNwdjOv/dZqHoQYf+H0 -W3JBOYKR8VGbBxOxe+aLavDgis1lw2vEBx+ImWsK/wGthpNLQokz0PRWMGcW -gkXarg9rkX7XG63YBfPQszae/5smDwoaztGHFPgx83ZJw1Xika/b96en8OOF -PMdWL+L9WpNltyMEMDpA7W79KtK3RGXFsL4grv3X8FHSSh58aB2o+XNNEH8b -nSlbS7x8rMJ74RIhZA+uHvhIehUaOp/VmRZCl6ICPW3i+sr4eeEPhDFIYrlo -uRoPJuvavnyzFMdUzUjFGBUeLHYUl9xXI46cYQMx3nIe6LVboYSZBCrP8548 -RBzWU569ds1C/Bp+oTppGQ928XP0/haXxKsGxxT3KPGgV7V4NGlKCkeHx13H -5cj+UE0iLQaL8USku5Q3Mf+tPhW53YuRW5j7okaW9DVY5lrwYzFGjInZHpbh -gbdl2p0XtDQOPV9pPCrNgxYGO0q2eQn6aZ2wi1zIg883U08FCMvg3/0MmXsS -PBj4UXAt31oGc14f6/slzgPR6O629bUyGDLZkZ4gxgOro26GAeWy+Etkq1KE -MA+qco0n87KWYkkH23loHg9ye3/FrItWwrxz8/ftGefCJvdjn6OKlLCj89Lr -02NcGKiXtinqU8KxDfYJuaNcMMxdvWS5lzIWq9o84AxzoT5oe5mgxTJcU9Ey -IDzAhbFheu+3I8txrZ1enF4PF6R3Wt0tc1LFxXoVhRZtXOjLFQ1xCVPFXH+l -PSqvuHD/U6vCYLIqshbN/sP/kgu+jn5HNGpV0bfoybeHL7iQqx3jekl/BSqM -sFs0msj/+2+OJMiq4eujOQI3arngFiymY9+pjnZyvpPhhVyAGHd9D546tord -9Fa9xQWtpCwT5lIN/GzUZvwmnwt81ww2JmzRQKxNdje7yYWizz4edx5p4H9y -caaDV7kgtK3wkHzOShR7Oj0ldpH0s3J60x+kiR49owdXHeSCguqZxFM9qzG9 -0v3wjBMXqk9OaP7k18ErHoPa2o6k/7hXO6Wig8VOFtq+9ly4Uq+muXG7Dk5s -rNeptOGCanDVq5m3OiiYcdTdH0i/wl51qnkNLin6t8lXjwtKCsrUci89FFrx -zzoVKS6svh4t/hv0MVTOUvvn899wla3mUs4xQquEvWELN/yG1hgwOXrdDN0U -oVnh/C9Q2f7a2S/8b6ytLdL9+/1PYM3eK1aKQzTs7i6sU/4Jsj/uL5AN2ojG -0lsuZdjPQLSB+aezWlb4y661VDphGoIGuY3S/dboXDHJlLwzBUUboxZktdii -9liN+ta2ScidCHtUeN4OXUoDLjvPn4SZDXLP6xMd0N/aquedxgR08AmMdgY6 -oUZep4ua6zhEKEamHVqxGa0/lSWuSx+D4tDG2gtJLlhT1jkl+HQU4seXTmuH -bsEDi/4TzJUahUl7m21P/V2xPVCJVeE+AmY+6Rt6t2xF3/yXD/Mdh+HV0sth -9QZuCD2RFUoyQyB/40h13ip3XHM6xa3u7QDcp7UcnSW2YUBd5qLihz9AuX0k -OGZwG+ZUJR8cr+4HgwvphddoD7RI8q/JKf8Ol+ePrzlb54k3P/zSqWv5Bvc2 -6H5IqvTC2FTPC65fv0KGyUkpboE3bhw6HseQ/gotH68nG6T4IPues8h1nz4o -d8pU23XQF+vTQncM5vTC6M6tfBFMP+xxVxROFeiFSRvNkCHL7Sj3ZGSBQFQP -5A2+n4ky9kf87Fd5q6sbPK9eZ/iJB+Cd6ANqhsHdUHbHwV/gWAAmqsVXCwx2 -gZnCq58nfgagVrhgSGBSF6yggz+8DA3EGQlRFy3NLugR27E5szsQIz6vFjBp -6YTWVGeGrXsQzr+abuJ9tBPOx2aJ7WkNwjvPnug+Nu+E6prZnww7BhpcmFr9 -dJaGtY8MTVc6MNAdgssm/tBwoy40pt+RgZL//ilXJU5vbBvb5cLAkZAQ3YNc -GqhXN38c8GBg4I7/RvEnDVJ9mzsussj8v7U334+RuUR2bfMhBlqw/GKC+2hY -5IvHDKoYyF9qWjn6goblfz1tUaxmoFW7S9UaYj2Ok5xQDQPfF8TZhT+nwdXc -J//dIwaeV38o9b2ZhvOKMc0HnjGQkx+86XsjDfIdtxY1vmPgXvkGnF9Hg9p2 -2QzfaQYeF7s/ca2CBrOAobwkQyZ2mZRbH8sh67k0EuVszMTx25Wjo1dp+Ktt -zELWlImx+2Jl/IiHrKfb89Yz8bv972eG2TS5b/jmcTYycXv6+Nvvl2lYOC3l -tXgLE5O4Fclhl2joOW0kkrWTiZlLznx/kkbDlqcm7cGRTOwfs7oExDV867L0 -djPx8Zq9tZVnaLgUZWH0OJqJWnrae0pSaXD2sg3s3cfEMW1OTHYKDZVqXpXa -J5nIaeh+lXGchtQH+0Pv32CiRk9+SddBGnbqXzSLzWOi2G+3CzuJHfNLRUwL -mLharH5gJpEG0Yt9+RVFTBS68GJEkjiJ7dJ/7y4TFcOrHG0O0LBfU21H+WMm -mgvpOjXE0RB2sTn8zmcmrlugZa4QRYPdwj5zNs1EWuCqw102DauS+CT0u5iY -EjLU7ETcxzYqKu1lYsjdEeXDu2kIdM4avD3ARAHhNomRSBo8BaMiSn4xUVlQ -XaQznAbbKPldhTIszHhnsUk2mIbHWcn2Z+VYGDNDd9yjaDDnjKnFyrNwm0Dg -9DZiPfXm95bKLHzj8qk8g0XD0rf7LD+qszB464C/KpOGH+s6ZESNWOh4ZCbQ -OZCGM/zZ/wveykJ+SfkBYV+yfl3xDCd3Fgr7Rw/f96HhqE8s28CDhZ+MOHtC -iWPvuqyc9WahiqaPGMeb9Kfmpf8TxCLnYet10YsGg6Yg5pPdLBQ15t9n40HD -23R1sRVpLOTWxRUJbaWhGCRCvqWzMKejZmOzK8kfnKgvOsfCqpIouzRifbv6 -BNOLLOxapnhLgTiVjzHmdIWFD7yma0y20GATmf0+tpCFus5h6kmbaVBSOm5s -UczCsA2tLS7EE02R5wRus1BmQcgPReIcDXBKLWOh2zXlmHvONPA6OmqvVZG+ -otbvh5xouOuokPeikYXVhXvboh1pOPWLX/B8Ewu9hX3O2BIH5fUHenFYeEF7 -XbU8seT8KoWeFhaOeX4JeexAQ/gDzzM/37CweCpSQpZ4hdY/MWq9LIw1WXro -tR0Nv94eaPvex0JjbTeHEuLWJJZeyTcWnrnrm3yCOKHTsN9sgKxXguMMxB8y -2vw2j7Mwbv2nVbc30XB2gZR1/DwKM9dnzd6wpaF6rMMnWoBCt6BZ86PEXzsK -2BGCFJ48XisURGx+1yo7SITCAX5vWEbcFxD7216KwsO5l6yybUh/R+vF1tIU -agWX9hwiXm+yWBOWUOhXLy3FJE6TKNxmsJTCHv7ihVpz86ovpQoqFGasGs+s -tib30fXCxiUrKCzll8/KIU5Li/uySJ3CbYqxOieI+yhpifmaFNbavhzymJtL -24YM6FHIrKwW4FrRUPVHOrFPn0KbPUHBfcS93+kLtCGFe5fperwkXlcbX9du -SiE/z+hjHnFPeLHy/5BCjfvPorcTL/TcZ1SxkUKpnTFmTsRmlpscS60oTGs0 -P2lOnLq0K+76JrL+cslWReL780vSsuwpvHJM4YkEcffwvpuXHCmMTlxnM2tJ -g2nDktenXSjM6ysZ6CYOKu36ccyVwokpgcVviU9nlvAfdqPQOjK4rom4i22n -F+NJYby/Z1MZscR2Gdtd3sTvu5flz+XZdfuF+VJ442H8vKy575cdOLU9gEIH -76chKcT3Re1zPIMoXMTeN3RkLm9SptKVSSG72oRv/1xeZ3eLI0X6nfh9OXou -j3O7zyaEQmOjhqc75/pVHOBhGIXDKy8eCJ7Lz7H/a304hSJvdj4MnMs/Latt -FEH2r9butO9cfmzPBt1dFKawtb56EIszSz012eR/yYuebyU22ZwQuSKanGf2 -jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc -+bu0SWw/hdXtDxNs5/K/JnQKJlB4L7Cy0IbY+JXDzGwihXdellNz/j8009f0 - +1:eJwV1Hk0VVscB3BdQzJlHvKoTHVlem4yhP0zZx5KkeEZ7j2GDIVERCUpUqYX +iiRDMiTJLE/xyitFoqSEigzXcG+EBt6+f5x11mfts7/799tnr73dJ9SJRmJj +Y5vFD+t97KXajobel4a8pIiEy3p0ZDhXrOVjWolKSfV5LI8W7MlSMG1FO6xP +TrLsQH3BxUf5F5W9ayeuYNdExXdwmnaja+UXJdKwLz6RbI8vf4WCm/p/sNzU +e+zGL80B9Gy9UDADe3roWWx0yyA6EclwycTeMi7v9t3kA/IV7XidhW09H6sb +3j2CLvaIn7mK3fZrmjeqfAx559G9crDfnJGIqQ/5jJaCTcOvYc9xmU4vao6j +X1qyjXnYXJeOulKWJ9Dil2j1AmxZofyuYy2TqCfg0LtCbDvp76VzJnR0oTy7 +8zY2cVNOXJV7DpUa/OCswI5XtE880j2PKM4fo+9iD0r0/xlRzkBqNcqrddjU +w4EBmZeY6OejDI5m7IU8tsL7Id+Q2EKMcRs2t5yqIENzCT1XfeX8FDuL2mEh +KPYdza/p7+rG3nbbNV59+TsKPEqmvMLWUTk/F9yygqzLEobeY/vvGemeNvmF +5m10k75hL0Yd5+BR+o0e85QurGKfbuHVJ3OvoTrVjEtse+koB3Qq/LrX0dDM +VzcBbGpJl2lY+QaIXU1wUcEuf5I5ekaaBFXXJpx3Yy989YxNv0SCOYGnifrY +scpLtfdC2GExle2ULXZW9Xb5eU1O0KbZ/3cMe6iX3rZWxAl+O68djsHexmw4 +LCDGBacHvGQTsSt322WoLnOB9IiXQS52Z9PJDUEt3FC1Jv+uA3up4/XIpAkf +pARFJMnp05GwDZ9gTBsfiNrlHdDA1ug3BX5dfjBbE/EwxA78UnfzTzUBGNzA +2OqGfZTUrWHAJwge1QeCs7HH5e4yEr8LwWcDZyVpA7w/xLNNPRRhOJsHZSrY +pIqJ7ZLHhGH+eTjNEHsbZatT+YwwyLlXp/tgHzZJu/9yVAQa+Y7UVGH3+IaF +SzwXA/WBIH57Qzr6ePtyihe3OPy+k2pCxabPlBfdMRMHvRD6g2hsnojPr/e2 +i0PtJm/LEmzTcwd2e9VJwAi3iO46dnPxnqWyAikofLys2YboqHj8R6RehAwY +kW1T/I3oaJ9z0sfwKhmQ/3AaErDpnSLmVRMycGLSlHwDe3exitg2V1k4sjnm +737sTh/PWk7DrbBmmzxoYkxHzPnRE5MJ20A4JZFbBZ9jkWDTB7W2crDdTJlH +3oyOJop5/B0C5eCM3ZC6KXbjh17p2fNycHNx/QIN293GI0GpXQ4kPcoGyrCL +d0U65WrKQ5HO/sE/zfH607cX4iQU4KCg7llbCzo64MerajWmCLeCtb0rLOkI +RTprHvqtCNvzTqr0YSsnFmhTpZTgiIMoeRWbrYhiHOeoBCZiFvUWVnRU9dHt +0P1HSiDucGnbV2yug5VnttzaAb0cRRR1G1yfqe2baR8y3LqrYPPFjo6K9me/ +X44jA9+gKAjZ09Fln7FRjutkmNLXphliU08fn5F9TYbkPn6TXGyh1ny2/SbK +UJo5YuPogM8PZU65RX4XKG74lf3MkY6k5a7Ep3xRgY+J7OyfDtBRa/IieZWk +Cuoy+ceknPF+fHPtJ7argt3UpJQj9o1OBbKxpypIrVyReIQt59fct/JWFU4F +TD0pOoj7rRxXJJ6rweg3tcVwFzqSkZYltrlqAH/h0xjkTkcqJRF8P5EmPCK1 +vTxLpSMfasKSqp0mlLR4LHRg58hnfPRy14S5mW4TThodsd+qvvckShNSjYRP +X8AeujF9IKNGEzocOOzSCXyf5njlk+UpEO41bFDpj/9vio2aC9dueGfe/dfG +YDoqDFNwqOvWgq6kJj2nSDrqjUTa50p0IVGlpUwqlY62ew7YeQQZAGVkumW+ +lI5o6/V3ZaIBgi6avBJ/TEcSM40bJXyM4bS4DduLT3QUQdH/kKFsCnUGnwYO +ccwin9lfXSLTZuCmwcO+umMWVRmHbyzosYDkyIGVG46zqHgx8FFlliWk3t3b +pxkzi1aMJF90xlvDshLHbZmKWTTMxs4Y87aFC+8dhqY+zKKQP0LTzsjbQ9EL +Fa8a/jl0N6Cr/e9EB9jnJ3iVzWwOnfwmtbwrwBFmHr1Xaj05h5aszA8+/csJ +dia92i/SMId03dKNxh33Q9DbVjWTxTnUJ5Uf2Ek5AG7loYFf1ObRltKE1rKd +zjC8cWnfbOg8ahxVtrHjPwhdIvy8PVXzSLZ/wS9y9iA0FE1buc7ge/7v9Mqi +0UNg67ryLFBiAeVzfFPL6HCBs//s6JXVXkD1RupDiU2uIEEEm6e7LqAc7WSh +X+WHQW44KN0xZgH1vC85T7nkBvuOHL6Vc20B1dnmKRw97Q5DXnKmcq0LiBG8 +ny2E6gGM+9rRc0MLaMmc7D9n4gnVL9ajT68soLLZdyvhe/6CyabY3S0SDORS +WOLrwecFpMz541MUBqq9b/0Xe5IXPD9kGYgcGUhXum/14qoXUC7ynHc5wkDy +o35DrwK8QYDLKC8zgYG+8B6xz/vsDcdTlX018hio97Kdr4WzD3DErRhG1DBQ +VlQB7/FeH8gv+6IV94SBWtvWV30tfYFdYSTl5yADbXaHJEqzL9wyj9BSn2Sg +baJPe/5o9QW+T9nFQdga3baSXG2+8DGzi34H20nf7c7gI19QidTiVpjC+X9E +Pj/1ny8wG2MCxacZaMtwxeauQV8gt7S8+TbDQAqeEjnuy75QKj0nmz6P+/Ga +K0vcTQVy0m/Sge8MVJq7EG63hwpnvPQlzmGLvmYaSuhQIVlKjvsB9pzZcn/Z +XioMkXriRZYZ+P5i29BtTAW/g+QnvdgCy0Kuwo5U0NnRXm66ivcjVWtTQTAV +3m4h1wr9YiDHp9r9fqFUiEb6+w2w29j0CjSOUaH2uG+PP3ZuuKHW4wgq/Cz8 +4PYPtp2rhfd4DBV+X2D7N/A3AzUpuDbtSqaCeIBdf/MaA11uiQ1oLKXC2p+N +/6ENTBSsma0bVUaF0a13thLYNndqNumUU8HAK8vpEjZP9sSdhioq/MNrbT+I +nRjmMF3/gArWqn1FISQmiiUrHKl7TIV/vaXrs9iZKDD7edD9j1RY8h8nnnAy +kaXAhH7YKBUODVGcJ7F3JrLxa36iwsXzfNt4uJhoIkyrqmYc5x+xt7bF9rYr +mL1Hp8JelfblV9gunOEh1T+oIF0RV9K/kYkswrccrRSnQV9sueE/m5joccF5 +qwxJGmT0hWmPYOt3MxWittDgImUT1zq2huLzdyayNNA+la5gyMNEUm9jTN4r +0uACRwXRjD2jNyzOo0UDNo3Jn+W8THSFdPOh334aSN5rdArix/2r8+XYOtNA +fmvy2nnsc25RYZRDNAieehhfiB31wGHH+mEaHHUH0htsb2JD+lUfGrRQ3Tca +CDAR5ZkP9d9jNNCjeG5m38xEb9MVeeXTaPB5H5MUKshEdxG//2Q6DVJ+vJo6 +i31udrGzKpMG9bmWFVexNS0743SyabCrZuXhQ+zLbL5M2xs0KL64VY5HiInM +Q2++i6qkQZrtxOfr2DIyF/YY3qWBWaJneBX24rPQTPZ7NEi44TDchn1LCdle +rqVB+/HrMIb9e3i4vaiZBmHJ100VhJnogY102csuGtgZ9EIRdsoPEmfWMxqM +uf5x4j62T9m0t2s3DTr4upIeYQtyNEt/6aFBopKOzgh2UIvLldU3NHiR5Tgg +KcJE8spXIxXGadAkSV4/h/3j7anXUxO4n8r2oXTs3kSaRvUkDVIdCtNuYMeN +7Z7WpdMAVeukNGAP5bz2sP9Gg4aXeS1fsTM2Cpmd3EAAm7s6t5EoE7Uyh90i +2Alwqv380Ab763B5WAgnAfR9Z0xdsPUfmN702URAjX9YZwj2hFfUTyshAvJd +Oa/kYgvamAmbiRAw6/LheRH2Xm1hMhIjoK4o/V0Vdhp/5UGKFAHXhDP8HrHG +m0dqpLcToOLTZTuBTZRUdonJEyB9M1RonvV9WvTIZkUC/GtmSpZZ6xEi/Bxk +AkpJnkbcYnhcxMKfrkGA/XUB4x3YzWsi8ROaBHidR5fUsMenRv8e3U0Azz6D +21rYeu0nO/p1CAh/dN3eBPtL0F3Zh0CA8Wp3gDu2gEuMVoMxrueDjZ4Ptq7J +PpsaUwLuiGa+98O+LPUpumQfAZ31oWlh2I0c1WkFVgTQnnIUn8D+PB9zO9eG +gPIYjwux2DpPxAZSHQhI9DzUkYjtU/NpJsmJgArfZalk7NS8atLZAwTkNLkY +Xcb+FGapEelCgKW5B+kqNr+nuMXRwwSoJ6xfz2XlWX72CHQnQFzGmyufNX/r +qRRPL5xX52VbxKqHx+qWiw8Bm6Z/k0tZeUviTU5UAgYmXN6WsfLGPvfYEAQ8 +cz7mXMHK6743Ye5PwJUJ8+IqVn0Np35DIAH/2b3rqGbl37IS3RtEAJfVzgc1 +rPxUiV1aIQR05VKO17Lyo74YqR/F8zl/ctVh81FrXMhhBDw+HBdQj61tHxcq +H0FAW9DDvAZWvp71eZlIAt6INt5sxL6kKJkvEUWAg2bI8SbsesHxWqGTBPiU +j2xpxh77WfOMN5YAfX++dJb5vsaNccYR8N198S3Le/qsV9bjCaiMz55n+X9d +geaJ "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + "PlotRange" -> {{0, 180}, {0.8821480338520485, 1.1303052290968294`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5082122808512888}, + "AxesOrigin" -> {0, 0.8821480338520505}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10123,7 +11570,8 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5082122808512888}, + AxesOrigin->{0, 0.8821480338520505}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -10151,7 +11599,8 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.8821480338520485, 1.1303052290968294`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -10159,9 +11608,9 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913242457281837`*^9}, + CellChangeTimes->{3.9913242457281837`*^9, 3.994259083373303*^9}, CellLabel-> - "Out[111]=",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] + "Out[127]=",ExpressionUUID->"20b825c7-3755-4c6a-9ceb-3d23dc0be465"] }, Open ]], Cell[CellGroupData[{ @@ -10176,30 +11625,34 @@ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["1", "2"], + RowBox[{"2", + RowBox[{"(", + RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}]}], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -10224,158 +11677,158 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.9917997871187477`*^9, - 3.991799792469698*^9}},ExpressionUUID->"8faa67fd-f295-ea48-b116-\ -d12d9d52c36b"], + CellChangeTimes->{{3.9917997871187477`*^9, 3.991799792469698*^9}}, + CellLabel-> + "In[128]:=",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.955409411483839`*^-270\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.61243081937848`*^-271\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 128, + 41, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991324246104725*^9, 3.994259083584375*^9}, + CellLabel-> + "During evaluation of \ +In[128]:=",ExpressionUUID->"c04e5080-e603-47ec-905f-a02e4ba96843"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.311654827972437`*^-283\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 128, + 42, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991324246104725*^9, 3.994259083595256*^9}, + CellLabel-> + "During evaluation of \ +In[128]:=",ExpressionUUID->"68d25b4f-23c8-4dab-8e2d-9f218d053018"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.5855844869902`*^-296\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 112, - 45, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991324246104725*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 128, + 43, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991324246104725*^9, 3.994259083605337*^9}, CellLabel-> "During evaluation of \ -In[112]:=",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.877419838456823`*^-281\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 112, 46, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913242461217346`*^9}, - CellLabel-> - "During evaluation of \ -In[112]:=",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.990320554242227`*^-292\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 112, 47, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913242461427383`*^9}, - CellLabel-> - "During evaluation of \ -In[112]:=",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], +In[128]:=",ExpressionUUID->"c7107fa3-e889-4fa5-9b30-add9f7beba1b"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 112, 48, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991324246159645*^9}, +during this calculation.\"", 2, 128, 44, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991324246104725*^9, 3.994259083616181*^9}, CellLabel-> "During evaluation of \ -In[112]:=",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], +In[128]:=",ExpressionUUID->"88da83ca-9db2-4707-8274-690eff769fad"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh -pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC -C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe -hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T -4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O -+QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb -dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X -rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd -P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt -SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw -OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB -tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq -YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq -QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h -khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV -JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw -hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq -o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg -PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN -QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS -mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH -hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i -2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv -x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 -GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq -6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY -FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 -jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf -uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en -6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s -jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN -Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld -nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 -kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n -lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 -NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN -cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa -aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu -oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC -gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv -xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb -Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q -pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp -bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE -YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 -Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv -857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG -rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA -vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B -ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 -UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l -49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU -/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj -ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF -vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz -056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm -0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx -4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 -8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ -LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa -D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP -jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU -KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG -Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 -DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x -F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 -yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN -JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa -azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t -c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh -P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa -M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg -5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o -r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D -2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi -ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq -y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt -r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb -32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ -lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M -D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL -QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg -YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY -F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu -Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r -4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH -99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn -4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ -uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs - + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13lYTWsXAHDKp5LSPGk4Z5/TQKOkpE5rNYiKSlLCbdB000QTEk1SGVMo +RQOV5rOjQUKTISGkuauI67pRSpO46Xv9cZ7z/J5nD2utvd717s3cG+zgzbNo +0aJ58vv9PzP45AH7VL5JRQzP0js7TUw6s2UOm/bGQYaroIl990pAyRd7ZXpT +oWaf+luRbnWIsC/p4e29BrE3Brr+6TIC0THp1Lmem+DgE/2+vMsGhu7aBk/1 +NINmiNn6n527wZI98maipwNGN943s+nwh7keg4vjPcOw6nTJxqzHR6DF/Eb+ +q2uTkC/1SNGq6TTID9V93KsxD2/vWVzYzLoIEgFuJXzmvBjmX/7M73gWpK6x +rLfdwY9Mma8y9wXyoC9Dp3FCRAjpp0abGz5ch1P50S94ZEVRj71Mp+pOIUhf +eJ+cdlUcK9mTh26tL4ZERyuTjhlJDNn6b/Yl81KQq2qX41kshWNCK/M7bEqh +Qtxxdo2gFH5jdpsIOJZCd4crfV5JCm1MBNf4eJUCe1sYtW2zFPLeezI6eLwU +mrfmLH15WQq7zurOtT0ohXnL6fbnxtKYViawIRHLINQwz+1JnAzy9wnYeauW +g3Wu8JTNaRm85NTT9lSzHCi+qKT2izJoYJnupalXDi87nSpfF8mgR6vR+Dss +B639y3kH22Xw4tPoPSK7yuFT4cHCb3Ky+LUqVyfuVDnskbAdXXlLFvlvKtnU +jpTD2iP1sdl3ZbHKX/BZzHg5LBtWk2I+ksXCtmG3jTPlUMflBZU+WczW3trQ +sLgCpGzqUnQWZDFSWs3psEwFvIxl6220kcPnusKVCxYVYPH1R2TQeznU+DT0 +xDmzAg5vvrC66YscRgn2WfjlVEBFnma/+Iwc5kt6/QrPrwAZR3fDOv6VuHWw +WyO2ogK+3H44y6u1Etve8Ia7NldAWlxK2OVDK7GvUKJA798KGJZUCXogJI/J +F/qc7dZyQTq4QUFaWh6t/y1OaTXgwpbWnc/9GPKY9+AMH8eYCzWRpzRWrJXH +ZuGXXOmNXDg5ND7islMeU3hNv6Q5cUG3uN736zV51LrcpFZ0iAuxxts85NYr +oEKm/Bms48Jm1+xvBmYKuOnh42/h97ggHPM5fscWBSzIKGkpaOLClZaEwhR3 +BdS1VSuaesKF29Z3Pi9NVsCDsZ3xdv1cGN/JipjsU0DPTwVP5ua44Bo+ffLZ +EUV0HKuIPi9Hg3K6mfxIgiJ+XMtnsF2eJvmfK+dLUcT3Wg2rxBRpiPxv1Uuz +fEWMb9jQnMik4WK8q2TdM0V038/zaJsaDc/OP84pUFDC2nAve491NGyouFx1 +rEEJtcvTHPdvpcGip31+rFUJxbNSBppsabBdtGSTW4cSvvtouljUngZPh6A+ ++FsJb1q/WFXkQIPlEWZ0zP8YyMuSmK1zpmG/0sx1U3UG3usXbPT3oGH6Vkrr +nDYD64aEtqfvJfFtVh+t1GNg14cNyY2eNCQccNenTBhoWWX5VtCHhsyWtlae +bQycELxsemIfDQ98c0ZbIhio5ZwstSyUBqv/DMWijjAwrmbFYpEwGtpTOvX1 +YhioHNGcJh5OQ1+dQEx+MgODRBfdEj9Iw5hgmFjCFQY+FzUZno2kQYbebGDZ +zMAV4+fs7eNouGrxfvevRwzULC39qBNPA9V3NKbmKQNrPaJWrzhOgybPrScq +XQyUXF5590ECDWaOCnv4PjHwhuhNSYlkGgK+T8S0CjFxebjEmPk5Us8DPlIf +xZiY6bded0UKDfwj/aW8MkzcaW/Y0kNcMNDSbUIx8eidrufuqTQM3r+oUa3P +xOyeujSHizSUGSxr7jBiYpPr4q38l0i96GPO48jEp9rgXE8sdc03Tt2GiTet +at1lM2iwSzDszXNjYtiuEKfqTBoUf5UHNngx8X4gFu7IIv0RQfG+8WPi96NW +NpPESX8KasmEMTEv3yhd5SoNjTZv4s8mMZF5UdgyMIcGXbFY7SOV5HzV5UeP +XKdh0anpBxk1TAQTf88J4nbefbtq6pl4pk2oyCufBv9ph4SJh0z0WBlha15A +Q34ve8C3nxxv4c14V0hDyLbL+xOGmBipFShgdoMGbBNaev0DE3OfRe7IJX5T +P6MzOMbELGsJ2R1FJL+c1hOOvBR+C3Bzyymm4YM0Rz6En0LtUu6Bz8Q3Uyor +zwlRWK06/lmvhOQfl/lXmzSFHp+b5RqJFX8Kh3ySp1DOIv3l4lKSf2g831KK +Qr/5oXEkTvIO0DXVoNB0v0toLbHT4NvHrmsovK74qnuMmO28448ofQqPSdnc +YJWR+mw2SapFCr+G959PID7bdFOhayOF9UVG5TeJ92xQvfXNmsLsO/rr3xDP +qYsMau6gsL84I2d1OQ0zV+Vi1+6isKF/dmgL8dQKZbahG4XzM1ASQDwRq/3Y +xIvkkyW6kEw8Nmm4z8KPQp9vQkP5xJ+9LYSsgyjMoLut7xF/6rGl7UIpDJYW +Nn9N/LeVy/Ydhyh0mnRq/Ug8XO85s+sohalZjgOzxEOaQZfd40g9J0qillbQ +8FfOIWOfRArd9/4qEyPuE40f8j9NYeLwZIA8cXf8mbgD5ykMnNC5xyJ+PZ2u +fPAShSvTd2erEb/0vdYalUXhWi85UXXi531l/nG55H4HJKR+u82mVjipgMIJ +t4ny38c/vtdUeaaEwiPOLn2/r/dA+5ljGpfCKL7pjN/3a8rrns2oovDvgsDR +3/HcF3+XmV1HocDXgJ7f8dYnfObk36eQqXzV+TvJ5/bs9NviFgp/rCgO+oe4 +2m/RcW4rhSf+M1LoJL45sEy1+jmFJ+8u9rpPzN0q2Xang8LVhYXmhcRlDUqB +jT0UnkvruXuKuHjNapFHf1EYP2z6Moi48LrerafvKJQKSztmR3xdEpxefaRQ +tSyyVZM4N9FqrvszhdIHCisEiDP9XWF4mkK+h8kOd8jzT3/z5/A/P0g/FOeJ +niO+YBeaMLpAYfjD+8Eev/tnbdLT7wIsjOtuF1wg/XaqIDXolzALE5VVbNp+ +96f0VdElEiw842qjkUYc97PSeYUiC8/WPe9WII4OvPtDgsXCeY20vCHS71FD +j67KqbEwW2NWJIc4omXgvbIuCwP79r+VIvY/9b/9xpYsNNnHcBoh6+vP+RXi +ZjYszLB75nKZ2CdYrmaTPQsFg1/wWRK7b9f+z2EXC4e6Gr0zyPp0XOmS5BfE +Qg3VSg6TrOdtZzzVg0NZ+M4nrOgeWe+2C4HtYYdYGKDg0+JMvPl9nERMHAsb +Qp8sTyDzwbi0LPfSJRYus3DheXCNhgFGac7GLBayqkMEnIgjLxVnT+Ww8Of0 +hNjHPBpqYwuvOBSz8BmmaS8i1t2ZmyF8l4Ubj57JlSfzadX/LqSceMfCx75D +n2fIvGuNTD237iOJ32ibpx+xz3jK2Q8jLHThSP7Td5nMo4Ezp82mWLg3VE6q +msxLxs3EpF9L2eit089y/D1P3Y7ERGiwsXEJnFl3nvRT5+Fo5TVsFA20kEom +89rR+tCxznVs/OvwQHU/me+p68KjdIGNQ1YuRofO0iC0PPjQ2DY2dmx5e+DK +KRqW1O3d73OQjVgXxThJ9osJMWt3p2Y2no9w11og+1FvAPVy32M2Ht4pLMFL +3PjoB0Q/Y6OjteHrJRE0pESWKhV1szHWMundYrK/6QwvH5obYePA7TKn4WAa +gipf/HFVXBnjSx38OL40jNjt2P3BSxl1mprD9jrS0FGs+fS7nzIKbG41Z22n +4Q7vUiOhYGV8pMQnMLyNhuTaGjn9w8ro3z542MWOBjUlmf7EM8q4VrlNWMea +Bt+x/p3qNco4XKDXFQVk/p52dwrhU8Gqr2oeWeT9IWhEg9JZroJFrr4O+qo0 +zG6aGx0VUUGzRPX0F8o0LONNTfCTU0EPaQ/FeYrEf7ilyl1TBdsa7Q0tFGg4 +6q0ibrddBfdZeNjHi5L6m3x5oZ6jgpu0+ZdfnOCC1deDVn/rq2JFbovf9gQu +yK9RPMFvrIq2Luv7Q2K5MBbyoFndVBVH7co7zx7lwoUZEeMQG1VsUB0JvhvO +hcH5Yq0FN1VMcl8cOebNhZDlf4nLJqtiSZwpzSXvc5mrcHDLgCryVCVtq+bh +whdP/tCqaDU8eFoozzy0gnxPSPMkNq/CS8652a7ry0HsucpZ+utqlEyMbOkd +LwX5JK69vr4GZva8si3bXwIZ6oYi4r6amJIaNnB1ugja5EzXTZ7XwtfL3ZVk +w2/ABvnmFO1ubYxYpmox+7QAhHmvhXnE6eD7atETWzj5oBirZOyisgaH7dt9 +6lOugYDynhqHx2twpuXG0xNTuaDFkeUe/EMXExcV3fj+KxtCBsVarBetRXGz +xICq6Sz4Onl6h1XGWrwbLlgib34ZNmk/yrTS1MMyP8+1Kc2X4P6k0c/Zdj3c +s5o3l2NwAYI0dPtfea9DK9WFKSeeVOCMeXW6COijR0M6WyHrHGxky2wVuqaP +r327Rbq7ToFazMlDzQYGyFw/qSofkQSrvQ0blPsNMMzUWEdENQG87/95vOrA +ehQa7f0Y4BEHDbmdXhOShug/cmD+nW80TBUtzGrXGuJ4opi06YNI8FQuFcjc +ugHD55q8MiYjYGJ1mv7N8Q1YeiFHguEYCrfzf76bTjLC574ZQrN798MuCxYa +KRqjiOdnrdRGf1gZmFin1WiMzuLRm64I+4LksoDKrc4c3NAkdmu3rSfkmx+N +HHfhYCV/Vec7E0/QPXrWPG0PBzuutZeFaHuC7Tjd1evBwbJLon5VIp5wont6 +zjOAg9fX5wTVvt4L369Fm0XGcrBpyabMmt17od8o7XVhKQf7O9L0D4R6wJ/h ++VesKjh43ODvWTNvD5ipqPb+QnPwP0rvtqKzB4hRvbNrajjodspJaWqDB9jw +K8jfa+Rg1M6REUleD7jbWej1uouDrzb/ka5z0R2shW9rRvRyUNPuVUlOojv0 +bnoyIzPAQc/XW7xkIt1h6s7nJNe3HHz+0/WWips7aObplP87wsEvE5FqNavc +4W6/acTpUQ4ubinqOCBPriexHbTHOcgekZnVX+EOPonhr8KmOVjwgVe3/l83 +mGo8kSn9nYP1kyh97IUbxP1I97zzg4MB1pcfbq92AxG9Yo0/5jlooGasa5zl +BtmBd6YXFjhYm7/HwSDWDf4P7i4q2A== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -10389,117 +11842,113 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh -pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC -C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe -hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T -4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O -+QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb -dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X -rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd -P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt -SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw -OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB -tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq -YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq -QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h -khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV -JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw -hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq -o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg -PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN -QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS -mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH -hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i -2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv -x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 -GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq -6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY -FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 -jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf -uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en -6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s -jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN -Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld -nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 -kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n -lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 -NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN -cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa -aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu -oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC -gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv -xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb -Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q -pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp -bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE -YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 -Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv -857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG -rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA -vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B -ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 -UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l -49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU -/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj -ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF -vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz -056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm -0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx -4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 -8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ -LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa -D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP -jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU -KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG -Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 -DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x -F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 -yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN -JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa -azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t -c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh -P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa -M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg -5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o -r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D -2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi -ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq -y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt -r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb -32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ -lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M -D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL -QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg -YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY -F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu -Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r -4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH -99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn -4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ -uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs - +1:eJwV13lYTWsXAHDKp5LSPGk4Z5/TQKOkpE5rNYiKSlLCbdB000QTEk1SGVMo +RQOV5rOjQUKTISGkuauI67pRSpO46Xv9cZ7z/J5nD2utvd717s3cG+zgzbNo +0aJ58vv9PzP45AH7VL5JRQzP0js7TUw6s2UOm/bGQYaroIl990pAyRd7ZXpT +oWaf+luRbnWIsC/p4e29BrE3Brr+6TIC0THp1Lmem+DgE/2+vMsGhu7aBk/1 +NINmiNn6n527wZI98maipwNGN943s+nwh7keg4vjPcOw6nTJxqzHR6DF/Eb+ +q2uTkC/1SNGq6TTID9V93KsxD2/vWVzYzLoIEgFuJXzmvBjmX/7M73gWpK6x +rLfdwY9Mma8y9wXyoC9Dp3FCRAjpp0abGz5ch1P50S94ZEVRj71Mp+pOIUhf +eJ+cdlUcK9mTh26tL4ZERyuTjhlJDNn6b/Yl81KQq2qX41kshWNCK/M7bEqh +Qtxxdo2gFH5jdpsIOJZCd4crfV5JCm1MBNf4eJUCe1sYtW2zFPLeezI6eLwU +mrfmLH15WQq7zurOtT0ohXnL6fbnxtKYViawIRHLINQwz+1JnAzy9wnYeauW +g3Wu8JTNaRm85NTT9lSzHCi+qKT2izJoYJnupalXDi87nSpfF8mgR6vR+Dss +B639y3kH22Xw4tPoPSK7yuFT4cHCb3Ky+LUqVyfuVDnskbAdXXlLFvlvKtnU +jpTD2iP1sdl3ZbHKX/BZzHg5LBtWk2I+ksXCtmG3jTPlUMflBZU+WczW3trQ +sLgCpGzqUnQWZDFSWs3psEwFvIxl6220kcPnusKVCxYVYPH1R2TQeznU+DT0 +xDmzAg5vvrC66YscRgn2WfjlVEBFnma/+Iwc5kt6/QrPrwAZR3fDOv6VuHWw +WyO2ogK+3H44y6u1Etve8Ia7NldAWlxK2OVDK7GvUKJA798KGJZUCXogJI/J +F/qc7dZyQTq4QUFaWh6t/y1OaTXgwpbWnc/9GPKY9+AMH8eYCzWRpzRWrJXH +ZuGXXOmNXDg5ND7islMeU3hNv6Q5cUG3uN736zV51LrcpFZ0iAuxxts85NYr +oEKm/Bms48Jm1+xvBmYKuOnh42/h97ggHPM5fscWBSzIKGkpaOLClZaEwhR3 +BdS1VSuaesKF29Z3Pi9NVsCDsZ3xdv1cGN/JipjsU0DPTwVP5ua44Bo+ffLZ +EUV0HKuIPi9Hg3K6mfxIgiJ+XMtnsF2eJvmfK+dLUcT3Wg2rxBRpiPxv1Uuz +fEWMb9jQnMik4WK8q2TdM0V038/zaJsaDc/OP84pUFDC2nAve491NGyouFx1 +rEEJtcvTHPdvpcGip31+rFUJxbNSBppsabBdtGSTW4cSvvtouljUngZPh6A+ ++FsJb1q/WFXkQIPlEWZ0zP8YyMuSmK1zpmG/0sx1U3UG3usXbPT3oGH6Vkrr +nDYD64aEtqfvJfFtVh+t1GNg14cNyY2eNCQccNenTBhoWWX5VtCHhsyWtlae +bQycELxsemIfDQ98c0ZbIhio5ZwstSyUBqv/DMWijjAwrmbFYpEwGtpTOvX1 +YhioHNGcJh5OQ1+dQEx+MgODRBfdEj9Iw5hgmFjCFQY+FzUZno2kQYbebGDZ +zMAV4+fs7eNouGrxfvevRwzULC39qBNPA9V3NKbmKQNrPaJWrzhOgybPrScq +XQyUXF5590ECDWaOCnv4PjHwhuhNSYlkGgK+T8S0CjFxebjEmPk5Us8DPlIf +xZiY6bded0UKDfwj/aW8MkzcaW/Y0kNcMNDSbUIx8eidrufuqTQM3r+oUa3P +xOyeujSHizSUGSxr7jBiYpPr4q38l0i96GPO48jEp9rgXE8sdc03Tt2GiTet +at1lM2iwSzDszXNjYtiuEKfqTBoUf5UHNngx8X4gFu7IIv0RQfG+8WPi96NW +NpPESX8KasmEMTEv3yhd5SoNjTZv4s8mMZF5UdgyMIcGXbFY7SOV5HzV5UeP +XKdh0anpBxk1TAQTf88J4nbefbtq6pl4pk2oyCufBv9ph4SJh0z0WBlha15A +Q34ve8C3nxxv4c14V0hDyLbL+xOGmBipFShgdoMGbBNaev0DE3OfRe7IJX5T +P6MzOMbELGsJ2R1FJL+c1hOOvBR+C3Bzyymm4YM0Rz6En0LtUu6Bz8Q3Uyor +zwlRWK06/lmvhOQfl/lXmzSFHp+b5RqJFX8Kh3ySp1DOIv3l4lKSf2g831KK +Qr/5oXEkTvIO0DXVoNB0v0toLbHT4NvHrmsovK74qnuMmO28448ofQqPSdnc +YJWR+mw2SapFCr+G959PID7bdFOhayOF9UVG5TeJ92xQvfXNmsLsO/rr3xDP +qYsMau6gsL84I2d1OQ0zV+Vi1+6isKF/dmgL8dQKZbahG4XzM1ASQDwRq/3Y +xIvkkyW6kEw8Nmm4z8KPQp9vQkP5xJ+9LYSsgyjMoLut7xF/6rGl7UIpDJYW +Nn9N/LeVy/Ydhyh0mnRq/Ug8XO85s+sohalZjgOzxEOaQZfd40g9J0qillbQ +8FfOIWOfRArd9/4qEyPuE40f8j9NYeLwZIA8cXf8mbgD5ykMnNC5xyJ+PZ2u +fPAShSvTd2erEb/0vdYalUXhWi85UXXi531l/nG55H4HJKR+u82mVjipgMIJ +t4ny38c/vtdUeaaEwiPOLn2/r/dA+5ljGpfCKL7pjN/3a8rrns2oovDvgsDR +3/HcF3+XmV1HocDXgJ7f8dYnfObk36eQqXzV+TvJ5/bs9NviFgp/rCgO+oe4 +2m/RcW4rhSf+M1LoJL45sEy1+jmFJ+8u9rpPzN0q2Xang8LVhYXmhcRlDUqB +jT0UnkvruXuKuHjNapFHf1EYP2z6Moi48LrerafvKJQKSztmR3xdEpxefaRQ +tSyyVZM4N9FqrvszhdIHCisEiDP9XWF4mkK+h8kOd8jzT3/z5/A/P0g/FOeJ +niO+YBeaMLpAYfjD+8Eev/tnbdLT7wIsjOtuF1wg/XaqIDXolzALE5VVbNp+ +96f0VdElEiw842qjkUYc97PSeYUiC8/WPe9WII4OvPtDgsXCeY20vCHS71FD +j67KqbEwW2NWJIc4omXgvbIuCwP79r+VIvY/9b/9xpYsNNnHcBoh6+vP+RXi +ZjYszLB75nKZ2CdYrmaTPQsFg1/wWRK7b9f+z2EXC4e6Gr0zyPp0XOmS5BfE +Qg3VSg6TrOdtZzzVg0NZ+M4nrOgeWe+2C4HtYYdYGKDg0+JMvPl9nERMHAsb +Qp8sTyDzwbi0LPfSJRYus3DheXCNhgFGac7GLBayqkMEnIgjLxVnT+Ww8Of0 +hNjHPBpqYwuvOBSz8BmmaS8i1t2ZmyF8l4Ubj57JlSfzadX/LqSceMfCx75D +n2fIvGuNTD237iOJ32ibpx+xz3jK2Q8jLHThSP7Td5nMo4Ezp82mWLg3VE6q +msxLxs3EpF9L2eit089y/D1P3Y7ERGiwsXEJnFl3nvRT5+Fo5TVsFA20kEom +89rR+tCxznVs/OvwQHU/me+p68KjdIGNQ1YuRofO0iC0PPjQ2DY2dmx5e+DK +KRqW1O3d73OQjVgXxThJ9osJMWt3p2Y2no9w11og+1FvAPVy32M2Ht4pLMFL +3PjoB0Q/Y6OjteHrJRE0pESWKhV1szHWMundYrK/6QwvH5obYePA7TKn4WAa +gipf/HFVXBnjSx38OL40jNjt2P3BSxl1mprD9jrS0FGs+fS7nzIKbG41Z22n +4Q7vUiOhYGV8pMQnMLyNhuTaGjn9w8ro3z542MWOBjUlmf7EM8q4VrlNWMea +Bt+x/p3qNco4XKDXFQVk/p52dwrhU8Gqr2oeWeT9IWhEg9JZroJFrr4O+qo0 +zG6aGx0VUUGzRPX0F8o0LONNTfCTU0EPaQ/FeYrEf7ilyl1TBdsa7Q0tFGg4 +6q0ibrddBfdZeNjHi5L6m3x5oZ6jgpu0+ZdfnOCC1deDVn/rq2JFbovf9gQu +yK9RPMFvrIq2Luv7Q2K5MBbyoFndVBVH7co7zx7lwoUZEeMQG1VsUB0JvhvO +hcH5Yq0FN1VMcl8cOebNhZDlf4nLJqtiSZwpzSXvc5mrcHDLgCryVCVtq+bh +whdP/tCqaDU8eFoozzy0gnxPSPMkNq/CS8652a7ry0HsucpZ+utqlEyMbOkd +LwX5JK69vr4GZva8si3bXwIZ6oYi4r6amJIaNnB1ugja5EzXTZ7XwtfL3ZVk +w2/ABvnmFO1ubYxYpmox+7QAhHmvhXnE6eD7atETWzj5oBirZOyisgaH7dt9 +6lOugYDynhqHx2twpuXG0xNTuaDFkeUe/EMXExcV3fj+KxtCBsVarBetRXGz +xICq6Sz4Onl6h1XGWrwbLlgib34ZNmk/yrTS1MMyP8+1Kc2X4P6k0c/Zdj3c +s5o3l2NwAYI0dPtfea9DK9WFKSeeVOCMeXW6COijR0M6WyHrHGxky2wVuqaP +r327Rbq7ToFazMlDzQYGyFw/qSofkQSrvQ0blPsNMMzUWEdENQG87/95vOrA +ehQa7f0Y4BEHDbmdXhOShug/cmD+nW80TBUtzGrXGuJ4opi06YNI8FQuFcjc +ugHD55q8MiYjYGJ1mv7N8Q1YeiFHguEYCrfzf76bTjLC574ZQrN798MuCxYa +KRqjiOdnrdRGf1gZmFin1WiMzuLRm64I+4LksoDKrc4c3NAkdmu3rSfkmx+N +HHfhYCV/Vec7E0/QPXrWPG0PBzuutZeFaHuC7Tjd1evBwbJLon5VIp5wont6 +zjOAg9fX5wTVvt4L369Fm0XGcrBpyabMmt17od8o7XVhKQf7O9L0D4R6wJ/h ++VesKjh43ODvWTNvD5ipqPb+QnPwP0rvtqKzB4hRvbNrajjodspJaWqDB9jw +K8jfa+Rg1M6REUleD7jbWej1uouDrzb/ka5z0R2shW9rRvRyUNPuVUlOojv0 +bnoyIzPAQc/XW7xkIt1h6s7nJNe3HHz+0/WWips7aObplP87wsEvE5FqNavc +4W6/acTpUQ4ubinqOCBPriexHbTHOcgekZnVX+EOPonhr8KmOVjwgVe3/l83 +mGo8kSn9nYP1kyh97IUbxP1I97zzg4MB1pcfbq92AxG9Yo0/5jlooGasa5zl +BtmBd6YXFjhYm7/HwSDWDf4P7i4q2A== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "PlotRange" -> {{0, 30}, {0., 0.06515759743746788}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -10511,19 +11960,19 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "PlotRange" -> {{0, 30}, {0., 0.06515759743746788}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10537,116 +11986,112 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh -pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC -C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe -hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T -4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O -+QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb -dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X -rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd -P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt -SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw -OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB -tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq -YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq -QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h -khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV -JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw -hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq -o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg -PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN -QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS -mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH -hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i -2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv -x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 -GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq -6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY -FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 -jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf -uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en -6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s -jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN -Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld -nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 -kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n -lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 -NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN -cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa -aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu -oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC -gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv -xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb -Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q -pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp -bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE -YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 -Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv -857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG -rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA -vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B -ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 -UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l -49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU -/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj -ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF -vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz -056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm -0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx -4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 -8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ -LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa -D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP -jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU -KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG -Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 -DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x -F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 -yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN -JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa -azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t -c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh -P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa -M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg -5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o -r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D -2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi -ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq -y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt -r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb -32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ -lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M -D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL -QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg -YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY -F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu -Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r -4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH -99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn -4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ -uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs - +1:eJwV13lYTWsXAHDKp5LSPGk4Z5/TQKOkpE5rNYiKSlLCbdB000QTEk1SGVMo +RQOV5rOjQUKTISGkuauI67pRSpO46Xv9cZ7z/J5nD2utvd717s3cG+zgzbNo +0aJ58vv9PzP45AH7VL5JRQzP0js7TUw6s2UOm/bGQYaroIl990pAyRd7ZXpT +oWaf+luRbnWIsC/p4e29BrE3Brr+6TIC0THp1Lmem+DgE/2+vMsGhu7aBk/1 +NINmiNn6n527wZI98maipwNGN943s+nwh7keg4vjPcOw6nTJxqzHR6DF/Eb+ +q2uTkC/1SNGq6TTID9V93KsxD2/vWVzYzLoIEgFuJXzmvBjmX/7M73gWpK6x +rLfdwY9Mma8y9wXyoC9Dp3FCRAjpp0abGz5ch1P50S94ZEVRj71Mp+pOIUhf +eJ+cdlUcK9mTh26tL4ZERyuTjhlJDNn6b/Yl81KQq2qX41kshWNCK/M7bEqh +Qtxxdo2gFH5jdpsIOJZCd4crfV5JCm1MBNf4eJUCe1sYtW2zFPLeezI6eLwU +mrfmLH15WQq7zurOtT0ohXnL6fbnxtKYViawIRHLINQwz+1JnAzy9wnYeauW +g3Wu8JTNaRm85NTT9lSzHCi+qKT2izJoYJnupalXDi87nSpfF8mgR6vR+Dss +B639y3kH22Xw4tPoPSK7yuFT4cHCb3Ky+LUqVyfuVDnskbAdXXlLFvlvKtnU +jpTD2iP1sdl3ZbHKX/BZzHg5LBtWk2I+ksXCtmG3jTPlUMflBZU+WczW3trQ +sLgCpGzqUnQWZDFSWs3psEwFvIxl6220kcPnusKVCxYVYPH1R2TQeznU+DT0 +xDmzAg5vvrC66YscRgn2WfjlVEBFnma/+Iwc5kt6/QrPrwAZR3fDOv6VuHWw +WyO2ogK+3H44y6u1Etve8Ia7NldAWlxK2OVDK7GvUKJA798KGJZUCXogJI/J +F/qc7dZyQTq4QUFaWh6t/y1OaTXgwpbWnc/9GPKY9+AMH8eYCzWRpzRWrJXH +ZuGXXOmNXDg5ND7islMeU3hNv6Q5cUG3uN736zV51LrcpFZ0iAuxxts85NYr +oEKm/Bms48Jm1+xvBmYKuOnh42/h97ggHPM5fscWBSzIKGkpaOLClZaEwhR3 +BdS1VSuaesKF29Z3Pi9NVsCDsZ3xdv1cGN/JipjsU0DPTwVP5ua44Bo+ffLZ +EUV0HKuIPi9Hg3K6mfxIgiJ+XMtnsF2eJvmfK+dLUcT3Wg2rxBRpiPxv1Uuz +fEWMb9jQnMik4WK8q2TdM0V038/zaJsaDc/OP84pUFDC2nAve491NGyouFx1 +rEEJtcvTHPdvpcGip31+rFUJxbNSBppsabBdtGSTW4cSvvtouljUngZPh6A+ ++FsJb1q/WFXkQIPlEWZ0zP8YyMuSmK1zpmG/0sx1U3UG3usXbPT3oGH6Vkrr +nDYD64aEtqfvJfFtVh+t1GNg14cNyY2eNCQccNenTBhoWWX5VtCHhsyWtlae +bQycELxsemIfDQ98c0ZbIhio5ZwstSyUBqv/DMWijjAwrmbFYpEwGtpTOvX1 +YhioHNGcJh5OQ1+dQEx+MgODRBfdEj9Iw5hgmFjCFQY+FzUZno2kQYbebGDZ +zMAV4+fs7eNouGrxfvevRwzULC39qBNPA9V3NKbmKQNrPaJWrzhOgybPrScq +XQyUXF5590ECDWaOCnv4PjHwhuhNSYlkGgK+T8S0CjFxebjEmPk5Us8DPlIf +xZiY6bded0UKDfwj/aW8MkzcaW/Y0kNcMNDSbUIx8eidrufuqTQM3r+oUa3P +xOyeujSHizSUGSxr7jBiYpPr4q38l0i96GPO48jEp9rgXE8sdc03Tt2GiTet +at1lM2iwSzDszXNjYtiuEKfqTBoUf5UHNngx8X4gFu7IIv0RQfG+8WPi96NW +NpPESX8KasmEMTEv3yhd5SoNjTZv4s8mMZF5UdgyMIcGXbFY7SOV5HzV5UeP +XKdh0anpBxk1TAQTf88J4nbefbtq6pl4pk2oyCufBv9ph4SJh0z0WBlha15A +Q34ve8C3nxxv4c14V0hDyLbL+xOGmBipFShgdoMGbBNaev0DE3OfRe7IJX5T +P6MzOMbELGsJ2R1FJL+c1hOOvBR+C3Bzyymm4YM0Rz6En0LtUu6Bz8Q3Uyor +zwlRWK06/lmvhOQfl/lXmzSFHp+b5RqJFX8Kh3ySp1DOIv3l4lKSf2g831KK +Qr/5oXEkTvIO0DXVoNB0v0toLbHT4NvHrmsovK74qnuMmO28448ofQqPSdnc +YJWR+mw2SapFCr+G959PID7bdFOhayOF9UVG5TeJ92xQvfXNmsLsO/rr3xDP +qYsMau6gsL84I2d1OQ0zV+Vi1+6isKF/dmgL8dQKZbahG4XzM1ASQDwRq/3Y +xIvkkyW6kEw8Nmm4z8KPQp9vQkP5xJ+9LYSsgyjMoLut7xF/6rGl7UIpDJYW +Nn9N/LeVy/Ydhyh0mnRq/Ug8XO85s+sohalZjgOzxEOaQZfd40g9J0qillbQ +8FfOIWOfRArd9/4qEyPuE40f8j9NYeLwZIA8cXf8mbgD5ykMnNC5xyJ+PZ2u +fPAShSvTd2erEb/0vdYalUXhWi85UXXi531l/nG55H4HJKR+u82mVjipgMIJ +t4ny38c/vtdUeaaEwiPOLn2/r/dA+5ljGpfCKL7pjN/3a8rrns2oovDvgsDR +3/HcF3+XmV1HocDXgJ7f8dYnfObk36eQqXzV+TvJ5/bs9NviFgp/rCgO+oe4 +2m/RcW4rhSf+M1LoJL45sEy1+jmFJ+8u9rpPzN0q2Xang8LVhYXmhcRlDUqB +jT0UnkvruXuKuHjNapFHf1EYP2z6Moi48LrerafvKJQKSztmR3xdEpxefaRQ +tSyyVZM4N9FqrvszhdIHCisEiDP9XWF4mkK+h8kOd8jzT3/z5/A/P0g/FOeJ +niO+YBeaMLpAYfjD+8Eev/tnbdLT7wIsjOtuF1wg/XaqIDXolzALE5VVbNp+ +96f0VdElEiw842qjkUYc97PSeYUiC8/WPe9WII4OvPtDgsXCeY20vCHS71FD +j67KqbEwW2NWJIc4omXgvbIuCwP79r+VIvY/9b/9xpYsNNnHcBoh6+vP+RXi +ZjYszLB75nKZ2CdYrmaTPQsFg1/wWRK7b9f+z2EXC4e6Gr0zyPp0XOmS5BfE +Qg3VSg6TrOdtZzzVg0NZ+M4nrOgeWe+2C4HtYYdYGKDg0+JMvPl9nERMHAsb +Qp8sTyDzwbi0LPfSJRYus3DheXCNhgFGac7GLBayqkMEnIgjLxVnT+Ww8Of0 +hNjHPBpqYwuvOBSz8BmmaS8i1t2ZmyF8l4Ubj57JlSfzadX/LqSceMfCx75D +n2fIvGuNTD237iOJ32ibpx+xz3jK2Q8jLHThSP7Td5nMo4Ezp82mWLg3VE6q +msxLxs3EpF9L2eit089y/D1P3Y7ERGiwsXEJnFl3nvRT5+Fo5TVsFA20kEom +89rR+tCxznVs/OvwQHU/me+p68KjdIGNQ1YuRofO0iC0PPjQ2DY2dmx5e+DK +KRqW1O3d73OQjVgXxThJ9osJMWt3p2Y2no9w11og+1FvAPVy32M2Ht4pLMFL +3PjoB0Q/Y6OjteHrJRE0pESWKhV1szHWMundYrK/6QwvH5obYePA7TKn4WAa +gipf/HFVXBnjSx38OL40jNjt2P3BSxl1mprD9jrS0FGs+fS7nzIKbG41Z22n +4Q7vUiOhYGV8pMQnMLyNhuTaGjn9w8ro3z542MWOBjUlmf7EM8q4VrlNWMea +Bt+x/p3qNco4XKDXFQVk/p52dwrhU8Gqr2oeWeT9IWhEg9JZroJFrr4O+qo0 +zG6aGx0VUUGzRPX0F8o0LONNTfCTU0EPaQ/FeYrEf7ilyl1TBdsa7Q0tFGg4 +6q0ibrddBfdZeNjHi5L6m3x5oZ6jgpu0+ZdfnOCC1deDVn/rq2JFbovf9gQu +yK9RPMFvrIq2Luv7Q2K5MBbyoFndVBVH7co7zx7lwoUZEeMQG1VsUB0JvhvO +hcH5Yq0FN1VMcl8cOebNhZDlf4nLJqtiSZwpzSXvc5mrcHDLgCryVCVtq+bh +whdP/tCqaDU8eFoozzy0gnxPSPMkNq/CS8652a7ry0HsucpZ+utqlEyMbOkd +LwX5JK69vr4GZva8si3bXwIZ6oYi4r6amJIaNnB1ugja5EzXTZ7XwtfL3ZVk +w2/ABvnmFO1ubYxYpmox+7QAhHmvhXnE6eD7atETWzj5oBirZOyisgaH7dt9 +6lOugYDynhqHx2twpuXG0xNTuaDFkeUe/EMXExcV3fj+KxtCBsVarBetRXGz +xICq6Sz4Onl6h1XGWrwbLlgib34ZNmk/yrTS1MMyP8+1Kc2X4P6k0c/Zdj3c +s5o3l2NwAYI0dPtfea9DK9WFKSeeVOCMeXW6COijR0M6WyHrHGxky2wVuqaP +r327Rbq7ToFazMlDzQYGyFw/qSofkQSrvQ0blPsNMMzUWEdENQG87/95vOrA +ehQa7f0Y4BEHDbmdXhOShug/cmD+nW80TBUtzGrXGuJ4opi06YNI8FQuFcjc +ugHD55q8MiYjYGJ1mv7N8Q1YeiFHguEYCrfzf76bTjLC574ZQrN798MuCxYa +KRqjiOdnrdRGf1gZmFin1WiMzuLRm64I+4LksoDKrc4c3NAkdmu3rSfkmx+N +HHfhYCV/Vec7E0/QPXrWPG0PBzuutZeFaHuC7Tjd1evBwbJLon5VIp5wont6 +zjOAg9fX5wTVvt4L369Fm0XGcrBpyabMmt17od8o7XVhKQf7O9L0D4R6wJ/h ++VesKjh43ODvWTNvD5ipqPb+QnPwP0rvtqKzB4hRvbNrajjodspJaWqDB9jw +K8jfa+Rg1M6REUleD7jbWej1uouDrzb/ka5z0R2shW9rRvRyUNPuVUlOojv0 +bnoyIzPAQc/XW7xkIt1h6s7nJNe3HHz+0/WWips7aObplP87wsEvE5FqNavc +4W6/acTpUQ4ubinqOCBPriexHbTHOcgekZnVX+EOPonhr8KmOVjwgVe3/l83 +mGo8kSn9nYP1kyh97IUbxP1I97zzg4MB1pcfbq92AxG9Yo0/5jlooGasa5zl +BtmBd6YXFjhYm7/HwSDWDf4P7i4q2A== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "PlotRange" -> {{0, 30}, {0., 0.06515759743746788}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10657,6 +12102,7 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -10684,7 +12130,8 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.13473082946272152`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06515759743746788}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -10692,22 +12139,1212 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991324915847246*^9}, + CellChangeTimes->{3.991324915847246*^9, 3.994259549972563*^9}, CellLabel-> - "Out[112]=",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] + "Out[128]=",ExpressionUUID->"33b76c01-b511-4a54-8d6b-332c0cb0f415"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{3.991799816909994*^9, 3.9918001103050213`*^9, - 3.991924419552084*^9},ExpressionUUID->"c5eb8b00-da53-e74c-9781-\ -4f98a6653ef7"], + 3.991924419552084*^9}, + CellLabel-> + "In[129]:=",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.991799819852022*^9, - 3.9917998213158054`*^9}},ExpressionUUID->"05df483d-64d7-9449-845e-\ -6e6b94590d4b"], + CellChangeTimes->{{3.991799819852022*^9, 3.9917998213158054`*^9}}, + CellLabel-> + "In[130]:=",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"plotX", "=", + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13lYTWsXAHDKp5LSPGk4Z5/TQKOkpE5rNYiKSlLCbdB000QTEk1SGVMo +RQOV5rOjQUKTISGkuauI67pRSpO46Xv9cZ7z/J5nD2utvd717s3cG+zgzbNo +0aJ58vv9PzP45AH7VL5JRQzP0js7TUw6s2UOm/bGQYaroIl990pAyRd7ZXpT +oWaf+luRbnWIsC/p4e29BrE3Brr+6TIC0THp1Lmem+DgE/2+vMsGhu7aBk/1 +NINmiNn6n527wZI98maipwNGN943s+nwh7keg4vjPcOw6nTJxqzHR6DF/Eb+ +q2uTkC/1SNGq6TTID9V93KsxD2/vWVzYzLoIEgFuJXzmvBjmX/7M73gWpK6x +rLfdwY9Mma8y9wXyoC9Dp3FCRAjpp0abGz5ch1P50S94ZEVRj71Mp+pOIUhf +eJ+cdlUcK9mTh26tL4ZERyuTjhlJDNn6b/Yl81KQq2qX41kshWNCK/M7bEqh +Qtxxdo2gFH5jdpsIOJZCd4crfV5JCm1MBNf4eJUCe1sYtW2zFPLeezI6eLwU +mrfmLH15WQq7zurOtT0ohXnL6fbnxtKYViawIRHLINQwz+1JnAzy9wnYeauW +g3Wu8JTNaRm85NTT9lSzHCi+qKT2izJoYJnupalXDi87nSpfF8mgR6vR+Dss +B639y3kH22Xw4tPoPSK7yuFT4cHCb3Ky+LUqVyfuVDnskbAdXXlLFvlvKtnU +jpTD2iP1sdl3ZbHKX/BZzHg5LBtWk2I+ksXCtmG3jTPlUMflBZU+WczW3trQ +sLgCpGzqUnQWZDFSWs3psEwFvIxl6220kcPnusKVCxYVYPH1R2TQeznU+DT0 +xDmzAg5vvrC66YscRgn2WfjlVEBFnma/+Iwc5kt6/QrPrwAZR3fDOv6VuHWw +WyO2ogK+3H44y6u1Etve8Ia7NldAWlxK2OVDK7GvUKJA798KGJZUCXogJI/J +F/qc7dZyQTq4QUFaWh6t/y1OaTXgwpbWnc/9GPKY9+AMH8eYCzWRpzRWrJXH +ZuGXXOmNXDg5ND7islMeU3hNv6Q5cUG3uN736zV51LrcpFZ0iAuxxts85NYr +oEKm/Bms48Jm1+xvBmYKuOnh42/h97ggHPM5fscWBSzIKGkpaOLClZaEwhR3 +BdS1VSuaesKF29Z3Pi9NVsCDsZ3xdv1cGN/JipjsU0DPTwVP5ua44Bo+ffLZ +EUV0HKuIPi9Hg3K6mfxIgiJ+XMtnsF2eJvmfK+dLUcT3Wg2rxBRpiPxv1Uuz +fEWMb9jQnMik4WK8q2TdM0V038/zaJsaDc/OP84pUFDC2nAve491NGyouFx1 +rEEJtcvTHPdvpcGip31+rFUJxbNSBppsabBdtGSTW4cSvvtouljUngZPh6A+ ++FsJb1q/WFXkQIPlEWZ0zP8YyMuSmK1zpmG/0sx1U3UG3usXbPT3oGH6Vkrr +nDYD64aEtqfvJfFtVh+t1GNg14cNyY2eNCQccNenTBhoWWX5VtCHhsyWtlae +bQycELxsemIfDQ98c0ZbIhio5ZwstSyUBqv/DMWijjAwrmbFYpEwGtpTOvX1 +YhioHNGcJh5OQ1+dQEx+MgODRBfdEj9Iw5hgmFjCFQY+FzUZno2kQYbebGDZ +zMAV4+fs7eNouGrxfvevRwzULC39qBNPA9V3NKbmKQNrPaJWrzhOgybPrScq +XQyUXF5590ECDWaOCnv4PjHwhuhNSYlkGgK+T8S0CjFxebjEmPk5Us8DPlIf +xZiY6bded0UKDfwj/aW8MkzcaW/Y0kNcMNDSbUIx8eidrufuqTQM3r+oUa3P +xOyeujSHizSUGSxr7jBiYpPr4q38l0i96GPO48jEp9rgXE8sdc03Tt2GiTet +at1lM2iwSzDszXNjYtiuEKfqTBoUf5UHNngx8X4gFu7IIv0RQfG+8WPi96NW +NpPESX8KasmEMTEv3yhd5SoNjTZv4s8mMZF5UdgyMIcGXbFY7SOV5HzV5UeP +XKdh0anpBxk1TAQTf88J4nbefbtq6pl4pk2oyCufBv9ph4SJh0z0WBlha15A +Q34ve8C3nxxv4c14V0hDyLbL+xOGmBipFShgdoMGbBNaev0DE3OfRe7IJX5T +P6MzOMbELGsJ2R1FJL+c1hOOvBR+C3Bzyymm4YM0Rz6En0LtUu6Bz8Q3Uyor +zwlRWK06/lmvhOQfl/lXmzSFHp+b5RqJFX8Kh3ySp1DOIv3l4lKSf2g831KK +Qr/5oXEkTvIO0DXVoNB0v0toLbHT4NvHrmsovK74qnuMmO28448ofQqPSdnc +YJWR+mw2SapFCr+G959PID7bdFOhayOF9UVG5TeJ92xQvfXNmsLsO/rr3xDP +qYsMau6gsL84I2d1OQ0zV+Vi1+6isKF/dmgL8dQKZbahG4XzM1ASQDwRq/3Y +xIvkkyW6kEw8Nmm4z8KPQp9vQkP5xJ+9LYSsgyjMoLut7xF/6rGl7UIpDJYW +Nn9N/LeVy/Ydhyh0mnRq/Ug8XO85s+sohalZjgOzxEOaQZfd40g9J0qillbQ +8FfOIWOfRArd9/4qEyPuE40f8j9NYeLwZIA8cXf8mbgD5ykMnNC5xyJ+PZ2u +fPAShSvTd2erEb/0vdYalUXhWi85UXXi531l/nG55H4HJKR+u82mVjipgMIJ +t4ny38c/vtdUeaaEwiPOLn2/r/dA+5ljGpfCKL7pjN/3a8rrns2oovDvgsDR +3/HcF3+XmV1HocDXgJ7f8dYnfObk36eQqXzV+TvJ5/bs9NviFgp/rCgO+oe4 +2m/RcW4rhSf+M1LoJL45sEy1+jmFJ+8u9rpPzN0q2Xang8LVhYXmhcRlDUqB +jT0UnkvruXuKuHjNapFHf1EYP2z6Moi48LrerafvKJQKSztmR3xdEpxefaRQ +tSyyVZM4N9FqrvszhdIHCisEiDP9XWF4mkK+h8kOd8jzT3/z5/A/P0g/FOeJ +niO+YBeaMLpAYfjD+8Eev/tnbdLT7wIsjOtuF1wg/XaqIDXolzALE5VVbNp+ +96f0VdElEiw842qjkUYc97PSeYUiC8/WPe9WII4OvPtDgsXCeY20vCHS71FD +j67KqbEwW2NWJIc4omXgvbIuCwP79r+VIvY/9b/9xpYsNNnHcBoh6+vP+RXi +ZjYszLB75nKZ2CdYrmaTPQsFg1/wWRK7b9f+z2EXC4e6Gr0zyPp0XOmS5BfE +Qg3VSg6TrOdtZzzVg0NZ+M4nrOgeWe+2C4HtYYdYGKDg0+JMvPl9nERMHAsb +Qp8sTyDzwbi0LPfSJRYus3DheXCNhgFGac7GLBayqkMEnIgjLxVnT+Ww8Of0 +hNjHPBpqYwuvOBSz8BmmaS8i1t2ZmyF8l4Ubj57JlSfzadX/LqSceMfCx75D +n2fIvGuNTD237iOJ32ibpx+xz3jK2Q8jLHThSP7Td5nMo4Ezp82mWLg3VE6q +msxLxs3EpF9L2eit089y/D1P3Y7ERGiwsXEJnFl3nvRT5+Fo5TVsFA20kEom +89rR+tCxznVs/OvwQHU/me+p68KjdIGNQ1YuRofO0iC0PPjQ2DY2dmx5e+DK +KRqW1O3d73OQjVgXxThJ9osJMWt3p2Y2no9w11og+1FvAPVy32M2Ht4pLMFL +3PjoB0Q/Y6OjteHrJRE0pESWKhV1szHWMundYrK/6QwvH5obYePA7TKn4WAa +gipf/HFVXBnjSx38OL40jNjt2P3BSxl1mprD9jrS0FGs+fS7nzIKbG41Z22n +4Q7vUiOhYGV8pMQnMLyNhuTaGjn9w8ro3z542MWOBjUlmf7EM8q4VrlNWMea +Bt+x/p3qNco4XKDXFQVk/p52dwrhU8Gqr2oeWeT9IWhEg9JZroJFrr4O+qo0 +zG6aGx0VUUGzRPX0F8o0LONNTfCTU0EPaQ/FeYrEf7ilyl1TBdsa7Q0tFGg4 +6q0ibrddBfdZeNjHi5L6m3x5oZ6jgpu0+ZdfnOCC1deDVn/rq2JFbovf9gQu +yK9RPMFvrIq2Luv7Q2K5MBbyoFndVBVH7co7zx7lwoUZEeMQG1VsUB0JvhvO +hcH5Yq0FN1VMcl8cOebNhZDlf4nLJqtiSZwpzSXvc5mrcHDLgCryVCVtq+bh +whdP/tCqaDU8eFoozzy0gnxPSPMkNq/CS8652a7ry0HsucpZ+utqlEyMbOkd +LwX5JK69vr4GZva8si3bXwIZ6oYi4r6amJIaNnB1ugja5EzXTZ7XwtfL3ZVk +w2/ABvnmFO1ubYxYpmox+7QAhHmvhXnE6eD7atETWzj5oBirZOyisgaH7dt9 +6lOugYDynhqHx2twpuXG0xNTuaDFkeUe/EMXExcV3fj+KxtCBsVarBetRXGz +xICq6Sz4Onl6h1XGWrwbLlgib34ZNmk/yrTS1MMyP8+1Kc2X4P6k0c/Zdj3c +s5o3l2NwAYI0dPtfea9DK9WFKSeeVOCMeXW6COijR0M6WyHrHGxky2wVuqaP +r327Rbq7ToFazMlDzQYGyFw/qSofkQSrvQ0blPsNMMzUWEdENQG87/95vOrA +ehQa7f0Y4BEHDbmdXhOShug/cmD+nW80TBUtzGrXGuJ4opi06YNI8FQuFcjc +ugHD55q8MiYjYGJ1mv7N8Q1YeiFHguEYCrfzf76bTjLC574ZQrN798MuCxYa +KRqjiOdnrdRGf1gZmFin1WiMzuLRm64I+4LksoDKrc4c3NAkdmu3rSfkmx+N +HHfhYCV/Vec7E0/QPXrWPG0PBzuutZeFaHuC7Tjd1evBwbJLon5VIp5wont6 +zjOAg9fX5wTVvt4L369Fm0XGcrBpyabMmt17od8o7XVhKQf7O9L0D4R6wJ/h ++VesKjh43ODvWTNvD5ipqPb+QnPwP0rvtqKzB4hRvbNrajjodspJaWqDB9jw +K8jfa+Rg1M6REUleD7jbWej1uouDrzb/ka5z0R2shW9rRvRyUNPuVUlOojv0 +bnoyIzPAQc/XW7xkIt1h6s7nJNe3HHz+0/WWips7aObplP87wsEvE5FqNavc +4W6/acTpUQ4ubinqOCBPriexHbTHOcgekZnVX+EOPonhr8KmOVjwgVe3/l83 +mGo8kSn9nYP1kyh97IUbxP1I97zzg4MB1pcfbq92AxG9Yo0/5jlooGasa5zl +BtmBd6YXFjhYm7/HwSDWDf4P7i4q2A== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13lYTWsXAHDKp5LSPGk4Z5/TQKOkpE5rNYiKSlLCbdB000QTEk1SGVMo +RQOV5rOjQUKTISGkuauI67pRSpO46Xv9cZ7z/J5nD2utvd717s3cG+zgzbNo +0aJ58vv9PzP45AH7VL5JRQzP0js7TUw6s2UOm/bGQYaroIl990pAyRd7ZXpT +oWaf+luRbnWIsC/p4e29BrE3Brr+6TIC0THp1Lmem+DgE/2+vMsGhu7aBk/1 +NINmiNn6n527wZI98maipwNGN943s+nwh7keg4vjPcOw6nTJxqzHR6DF/Eb+ +q2uTkC/1SNGq6TTID9V93KsxD2/vWVzYzLoIEgFuJXzmvBjmX/7M73gWpK6x +rLfdwY9Mma8y9wXyoC9Dp3FCRAjpp0abGz5ch1P50S94ZEVRj71Mp+pOIUhf +eJ+cdlUcK9mTh26tL4ZERyuTjhlJDNn6b/Yl81KQq2qX41kshWNCK/M7bEqh +Qtxxdo2gFH5jdpsIOJZCd4crfV5JCm1MBNf4eJUCe1sYtW2zFPLeezI6eLwU +mrfmLH15WQq7zurOtT0ohXnL6fbnxtKYViawIRHLINQwz+1JnAzy9wnYeauW +g3Wu8JTNaRm85NTT9lSzHCi+qKT2izJoYJnupalXDi87nSpfF8mgR6vR+Dss +B639y3kH22Xw4tPoPSK7yuFT4cHCb3Ky+LUqVyfuVDnskbAdXXlLFvlvKtnU +jpTD2iP1sdl3ZbHKX/BZzHg5LBtWk2I+ksXCtmG3jTPlUMflBZU+WczW3trQ +sLgCpGzqUnQWZDFSWs3psEwFvIxl6220kcPnusKVCxYVYPH1R2TQeznU+DT0 +xDmzAg5vvrC66YscRgn2WfjlVEBFnma/+Iwc5kt6/QrPrwAZR3fDOv6VuHWw +WyO2ogK+3H44y6u1Etve8Ia7NldAWlxK2OVDK7GvUKJA798KGJZUCXogJI/J +F/qc7dZyQTq4QUFaWh6t/y1OaTXgwpbWnc/9GPKY9+AMH8eYCzWRpzRWrJXH +ZuGXXOmNXDg5ND7islMeU3hNv6Q5cUG3uN736zV51LrcpFZ0iAuxxts85NYr +oEKm/Bms48Jm1+xvBmYKuOnh42/h97ggHPM5fscWBSzIKGkpaOLClZaEwhR3 +BdS1VSuaesKF29Z3Pi9NVsCDsZ3xdv1cGN/JipjsU0DPTwVP5ua44Bo+ffLZ +EUV0HKuIPi9Hg3K6mfxIgiJ+XMtnsF2eJvmfK+dLUcT3Wg2rxBRpiPxv1Uuz +fEWMb9jQnMik4WK8q2TdM0V038/zaJsaDc/OP84pUFDC2nAve491NGyouFx1 +rEEJtcvTHPdvpcGip31+rFUJxbNSBppsabBdtGSTW4cSvvtouljUngZPh6A+ ++FsJb1q/WFXkQIPlEWZ0zP8YyMuSmK1zpmG/0sx1U3UG3usXbPT3oGH6Vkrr +nDYD64aEtqfvJfFtVh+t1GNg14cNyY2eNCQccNenTBhoWWX5VtCHhsyWtlae +bQycELxsemIfDQ98c0ZbIhio5ZwstSyUBqv/DMWijjAwrmbFYpEwGtpTOvX1 +YhioHNGcJh5OQ1+dQEx+MgODRBfdEj9Iw5hgmFjCFQY+FzUZno2kQYbebGDZ +zMAV4+fs7eNouGrxfvevRwzULC39qBNPA9V3NKbmKQNrPaJWrzhOgybPrScq +XQyUXF5590ECDWaOCnv4PjHwhuhNSYlkGgK+T8S0CjFxebjEmPk5Us8DPlIf +xZiY6bded0UKDfwj/aW8MkzcaW/Y0kNcMNDSbUIx8eidrufuqTQM3r+oUa3P +xOyeujSHizSUGSxr7jBiYpPr4q38l0i96GPO48jEp9rgXE8sdc03Tt2GiTet +at1lM2iwSzDszXNjYtiuEKfqTBoUf5UHNngx8X4gFu7IIv0RQfG+8WPi96NW +NpPESX8KasmEMTEv3yhd5SoNjTZv4s8mMZF5UdgyMIcGXbFY7SOV5HzV5UeP +XKdh0anpBxk1TAQTf88J4nbefbtq6pl4pk2oyCufBv9ph4SJh0z0WBlha15A +Q34ve8C3nxxv4c14V0hDyLbL+xOGmBipFShgdoMGbBNaev0DE3OfRe7IJX5T +P6MzOMbELGsJ2R1FJL+c1hOOvBR+C3Bzyymm4YM0Rz6En0LtUu6Bz8Q3Uyor +zwlRWK06/lmvhOQfl/lXmzSFHp+b5RqJFX8Kh3ySp1DOIv3l4lKSf2g831KK +Qr/5oXEkTvIO0DXVoNB0v0toLbHT4NvHrmsovK74qnuMmO28448ofQqPSdnc +YJWR+mw2SapFCr+G959PID7bdFOhayOF9UVG5TeJ92xQvfXNmsLsO/rr3xDP +qYsMau6gsL84I2d1OQ0zV+Vi1+6isKF/dmgL8dQKZbahG4XzM1ASQDwRq/3Y +xIvkkyW6kEw8Nmm4z8KPQp9vQkP5xJ+9LYSsgyjMoLut7xF/6rGl7UIpDJYW +Nn9N/LeVy/Ydhyh0mnRq/Ug8XO85s+sohalZjgOzxEOaQZfd40g9J0qillbQ +8FfOIWOfRArd9/4qEyPuE40f8j9NYeLwZIA8cXf8mbgD5ykMnNC5xyJ+PZ2u +fPAShSvTd2erEb/0vdYalUXhWi85UXXi531l/nG55H4HJKR+u82mVjipgMIJ +t4ny38c/vtdUeaaEwiPOLn2/r/dA+5ljGpfCKL7pjN/3a8rrns2oovDvgsDR +3/HcF3+XmV1HocDXgJ7f8dYnfObk36eQqXzV+TvJ5/bs9NviFgp/rCgO+oe4 +2m/RcW4rhSf+M1LoJL45sEy1+jmFJ+8u9rpPzN0q2Xang8LVhYXmhcRlDUqB +jT0UnkvruXuKuHjNapFHf1EYP2z6Moi48LrerafvKJQKSztmR3xdEpxefaRQ +tSyyVZM4N9FqrvszhdIHCisEiDP9XWF4mkK+h8kOd8jzT3/z5/A/P0g/FOeJ +niO+YBeaMLpAYfjD+8Eev/tnbdLT7wIsjOtuF1wg/XaqIDXolzALE5VVbNp+ +96f0VdElEiw842qjkUYc97PSeYUiC8/WPe9WII4OvPtDgsXCeY20vCHS71FD +j67KqbEwW2NWJIc4omXgvbIuCwP79r+VIvY/9b/9xpYsNNnHcBoh6+vP+RXi +ZjYszLB75nKZ2CdYrmaTPQsFg1/wWRK7b9f+z2EXC4e6Gr0zyPp0XOmS5BfE +Qg3VSg6TrOdtZzzVg0NZ+M4nrOgeWe+2C4HtYYdYGKDg0+JMvPl9nERMHAsb +Qp8sTyDzwbi0LPfSJRYus3DheXCNhgFGac7GLBayqkMEnIgjLxVnT+Ww8Of0 +hNjHPBpqYwuvOBSz8BmmaS8i1t2ZmyF8l4Ubj57JlSfzadX/LqSceMfCx75D +n2fIvGuNTD237iOJ32ibpx+xz3jK2Q8jLHThSP7Td5nMo4Ezp82mWLg3VE6q +msxLxs3EpF9L2eit089y/D1P3Y7ERGiwsXEJnFl3nvRT5+Fo5TVsFA20kEom +89rR+tCxznVs/OvwQHU/me+p68KjdIGNQ1YuRofO0iC0PPjQ2DY2dmx5e+DK +KRqW1O3d73OQjVgXxThJ9osJMWt3p2Y2no9w11og+1FvAPVy32M2Ht4pLMFL +3PjoB0Q/Y6OjteHrJRE0pESWKhV1szHWMundYrK/6QwvH5obYePA7TKn4WAa +gipf/HFVXBnjSx38OL40jNjt2P3BSxl1mprD9jrS0FGs+fS7nzIKbG41Z22n +4Q7vUiOhYGV8pMQnMLyNhuTaGjn9w8ro3z542MWOBjUlmf7EM8q4VrlNWMea +Bt+x/p3qNco4XKDXFQVk/p52dwrhU8Gqr2oeWeT9IWhEg9JZroJFrr4O+qo0 +zG6aGx0VUUGzRPX0F8o0LONNTfCTU0EPaQ/FeYrEf7ilyl1TBdsa7Q0tFGg4 +6q0ibrddBfdZeNjHi5L6m3x5oZ6jgpu0+ZdfnOCC1deDVn/rq2JFbovf9gQu +yK9RPMFvrIq2Luv7Q2K5MBbyoFndVBVH7co7zx7lwoUZEeMQG1VsUB0JvhvO +hcH5Yq0FN1VMcl8cOebNhZDlf4nLJqtiSZwpzSXvc5mrcHDLgCryVCVtq+bh +whdP/tCqaDU8eFoozzy0gnxPSPMkNq/CS8652a7ry0HsucpZ+utqlEyMbOkd +LwX5JK69vr4GZva8si3bXwIZ6oYi4r6amJIaNnB1ugja5EzXTZ7XwtfL3ZVk +w2/ABvnmFO1ubYxYpmox+7QAhHmvhXnE6eD7atETWzj5oBirZOyisgaH7dt9 +6lOugYDynhqHx2twpuXG0xNTuaDFkeUe/EMXExcV3fj+KxtCBsVarBetRXGz +xICq6Sz4Onl6h1XGWrwbLlgib34ZNmk/yrTS1MMyP8+1Kc2X4P6k0c/Zdj3c +s5o3l2NwAYI0dPtfea9DK9WFKSeeVOCMeXW6COijR0M6WyHrHGxky2wVuqaP +r327Rbq7ToFazMlDzQYGyFw/qSofkQSrvQ0blPsNMMzUWEdENQG87/95vOrA +ehQa7f0Y4BEHDbmdXhOShug/cmD+nW80TBUtzGrXGuJ4opi06YNI8FQuFcjc +ugHD55q8MiYjYGJ1mv7N8Q1YeiFHguEYCrfzf76bTjLC574ZQrN798MuCxYa +KRqjiOdnrdRGf1gZmFin1WiMzuLRm64I+4LksoDKrc4c3NAkdmu3rSfkmx+N +HHfhYCV/Vec7E0/QPXrWPG0PBzuutZeFaHuC7Tjd1evBwbJLon5VIp5wont6 +zjOAg9fX5wTVvt4L369Fm0XGcrBpyabMmt17od8o7XVhKQf7O9L0D4R6wJ/h ++VesKjh43ODvWTNvD5ipqPb+QnPwP0rvtqKzB4hRvbNrajjodspJaWqDB9jw +K8jfa+Rg1M6REUleD7jbWej1uouDrzb/ka5z0R2shW9rRvRyUNPuVUlOojv0 +bnoyIzPAQc/XW7xkIt1h6s7nJNe3HHz+0/WWips7aObplP87wsEvE5FqNavc +4W6/acTpUQ4ubinqOCBPriexHbTHOcgekZnVX+EOPonhr8KmOVjwgVe3/l83 +mGo8kSn9nYP1kyh97IUbxP1I97zzg4MB1pcfbq92AxG9Yo0/5jlooGasa5zl +BtmBd6YXFjhYm7/HwSDWDf4P7i4q2A== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06515759743746788}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06515759743746788}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13lYTWsXAHDKp5LSPGk4Z5/TQKOkpE5rNYiKSlLCbdB000QTEk1SGVMo +RQOV5rOjQUKTISGkuauI67pRSpO46Xv9cZ7z/J5nD2utvd717s3cG+zgzbNo +0aJ58vv9PzP45AH7VL5JRQzP0js7TUw6s2UOm/bGQYaroIl990pAyRd7ZXpT +oWaf+luRbnWIsC/p4e29BrE3Brr+6TIC0THp1Lmem+DgE/2+vMsGhu7aBk/1 +NINmiNn6n527wZI98maipwNGN943s+nwh7keg4vjPcOw6nTJxqzHR6DF/Eb+ +q2uTkC/1SNGq6TTID9V93KsxD2/vWVzYzLoIEgFuJXzmvBjmX/7M73gWpK6x +rLfdwY9Mma8y9wXyoC9Dp3FCRAjpp0abGz5ch1P50S94ZEVRj71Mp+pOIUhf +eJ+cdlUcK9mTh26tL4ZERyuTjhlJDNn6b/Yl81KQq2qX41kshWNCK/M7bEqh +Qtxxdo2gFH5jdpsIOJZCd4crfV5JCm1MBNf4eJUCe1sYtW2zFPLeezI6eLwU +mrfmLH15WQq7zurOtT0ohXnL6fbnxtKYViawIRHLINQwz+1JnAzy9wnYeauW +g3Wu8JTNaRm85NTT9lSzHCi+qKT2izJoYJnupalXDi87nSpfF8mgR6vR+Dss +B639y3kH22Xw4tPoPSK7yuFT4cHCb3Ky+LUqVyfuVDnskbAdXXlLFvlvKtnU +jpTD2iP1sdl3ZbHKX/BZzHg5LBtWk2I+ksXCtmG3jTPlUMflBZU+WczW3trQ +sLgCpGzqUnQWZDFSWs3psEwFvIxl6220kcPnusKVCxYVYPH1R2TQeznU+DT0 +xDmzAg5vvrC66YscRgn2WfjlVEBFnma/+Iwc5kt6/QrPrwAZR3fDOv6VuHWw +WyO2ogK+3H44y6u1Etve8Ia7NldAWlxK2OVDK7GvUKJA798KGJZUCXogJI/J +F/qc7dZyQTq4QUFaWh6t/y1OaTXgwpbWnc/9GPKY9+AMH8eYCzWRpzRWrJXH +ZuGXXOmNXDg5ND7islMeU3hNv6Q5cUG3uN736zV51LrcpFZ0iAuxxts85NYr +oEKm/Bms48Jm1+xvBmYKuOnh42/h97ggHPM5fscWBSzIKGkpaOLClZaEwhR3 +BdS1VSuaesKF29Z3Pi9NVsCDsZ3xdv1cGN/JipjsU0DPTwVP5ua44Bo+ffLZ +EUV0HKuIPi9Hg3K6mfxIgiJ+XMtnsF2eJvmfK+dLUcT3Wg2rxBRpiPxv1Uuz +fEWMb9jQnMik4WK8q2TdM0V038/zaJsaDc/OP84pUFDC2nAve491NGyouFx1 +rEEJtcvTHPdvpcGip31+rFUJxbNSBppsabBdtGSTW4cSvvtouljUngZPh6A+ ++FsJb1q/WFXkQIPlEWZ0zP8YyMuSmK1zpmG/0sx1U3UG3usXbPT3oGH6Vkrr +nDYD64aEtqfvJfFtVh+t1GNg14cNyY2eNCQccNenTBhoWWX5VtCHhsyWtlae +bQycELxsemIfDQ98c0ZbIhio5ZwstSyUBqv/DMWijjAwrmbFYpEwGtpTOvX1 +YhioHNGcJh5OQ1+dQEx+MgODRBfdEj9Iw5hgmFjCFQY+FzUZno2kQYbebGDZ +zMAV4+fs7eNouGrxfvevRwzULC39qBNPA9V3NKbmKQNrPaJWrzhOgybPrScq +XQyUXF5590ECDWaOCnv4PjHwhuhNSYlkGgK+T8S0CjFxebjEmPk5Us8DPlIf +xZiY6bded0UKDfwj/aW8MkzcaW/Y0kNcMNDSbUIx8eidrufuqTQM3r+oUa3P +xOyeujSHizSUGSxr7jBiYpPr4q38l0i96GPO48jEp9rgXE8sdc03Tt2GiTet +at1lM2iwSzDszXNjYtiuEKfqTBoUf5UHNngx8X4gFu7IIv0RQfG+8WPi96NW +NpPESX8KasmEMTEv3yhd5SoNjTZv4s8mMZF5UdgyMIcGXbFY7SOV5HzV5UeP +XKdh0anpBxk1TAQTf88J4nbefbtq6pl4pk2oyCufBv9ph4SJh0z0WBlha15A +Q34ve8C3nxxv4c14V0hDyLbL+xOGmBipFShgdoMGbBNaev0DE3OfRe7IJX5T +P6MzOMbELGsJ2R1FJL+c1hOOvBR+C3Bzyymm4YM0Rz6En0LtUu6Bz8Q3Uyor +zwlRWK06/lmvhOQfl/lXmzSFHp+b5RqJFX8Kh3ySp1DOIv3l4lKSf2g831KK +Qr/5oXEkTvIO0DXVoNB0v0toLbHT4NvHrmsovK74qnuMmO28448ofQqPSdnc +YJWR+mw2SapFCr+G959PID7bdFOhayOF9UVG5TeJ92xQvfXNmsLsO/rr3xDP +qYsMau6gsL84I2d1OQ0zV+Vi1+6isKF/dmgL8dQKZbahG4XzM1ASQDwRq/3Y +xIvkkyW6kEw8Nmm4z8KPQp9vQkP5xJ+9LYSsgyjMoLut7xF/6rGl7UIpDJYW +Nn9N/LeVy/Ydhyh0mnRq/Ug8XO85s+sohalZjgOzxEOaQZfd40g9J0qillbQ +8FfOIWOfRArd9/4qEyPuE40f8j9NYeLwZIA8cXf8mbgD5ykMnNC5xyJ+PZ2u +fPAShSvTd2erEb/0vdYalUXhWi85UXXi531l/nG55H4HJKR+u82mVjipgMIJ +t4ny38c/vtdUeaaEwiPOLn2/r/dA+5ljGpfCKL7pjN/3a8rrns2oovDvgsDR +3/HcF3+XmV1HocDXgJ7f8dYnfObk36eQqXzV+TvJ5/bs9NviFgp/rCgO+oe4 +2m/RcW4rhSf+M1LoJL45sEy1+jmFJ+8u9rpPzN0q2Xang8LVhYXmhcRlDUqB +jT0UnkvruXuKuHjNapFHf1EYP2z6Moi48LrerafvKJQKSztmR3xdEpxefaRQ +tSyyVZM4N9FqrvszhdIHCisEiDP9XWF4mkK+h8kOd8jzT3/z5/A/P0g/FOeJ +niO+YBeaMLpAYfjD+8Eev/tnbdLT7wIsjOtuF1wg/XaqIDXolzALE5VVbNp+ +96f0VdElEiw842qjkUYc97PSeYUiC8/WPe9WII4OvPtDgsXCeY20vCHS71FD +j67KqbEwW2NWJIc4omXgvbIuCwP79r+VIvY/9b/9xpYsNNnHcBoh6+vP+RXi +ZjYszLB75nKZ2CdYrmaTPQsFg1/wWRK7b9f+z2EXC4e6Gr0zyPp0XOmS5BfE +Qg3VSg6TrOdtZzzVg0NZ+M4nrOgeWe+2C4HtYYdYGKDg0+JMvPl9nERMHAsb +Qp8sTyDzwbi0LPfSJRYus3DheXCNhgFGac7GLBayqkMEnIgjLxVnT+Ww8Of0 +hNjHPBpqYwuvOBSz8BmmaS8i1t2ZmyF8l4Ubj57JlSfzadX/LqSceMfCx75D +n2fIvGuNTD237iOJ32ibpx+xz3jK2Q8jLHThSP7Td5nMo4Ezp82mWLg3VE6q +msxLxs3EpF9L2eit089y/D1P3Y7ERGiwsXEJnFl3nvRT5+Fo5TVsFA20kEom +89rR+tCxznVs/OvwQHU/me+p68KjdIGNQ1YuRofO0iC0PPjQ2DY2dmx5e+DK +KRqW1O3d73OQjVgXxThJ9osJMWt3p2Y2no9w11og+1FvAPVy32M2Ht4pLMFL +3PjoB0Q/Y6OjteHrJRE0pESWKhV1szHWMundYrK/6QwvH5obYePA7TKn4WAa +gipf/HFVXBnjSx38OL40jNjt2P3BSxl1mprD9jrS0FGs+fS7nzIKbG41Z22n +4Q7vUiOhYGV8pMQnMLyNhuTaGjn9w8ro3z542MWOBjUlmf7EM8q4VrlNWMea +Bt+x/p3qNco4XKDXFQVk/p52dwrhU8Gqr2oeWeT9IWhEg9JZroJFrr4O+qo0 +zG6aGx0VUUGzRPX0F8o0LONNTfCTU0EPaQ/FeYrEf7ilyl1TBdsa7Q0tFGg4 +6q0ibrddBfdZeNjHi5L6m3x5oZ6jgpu0+ZdfnOCC1deDVn/rq2JFbovf9gQu +yK9RPMFvrIq2Luv7Q2K5MBbyoFndVBVH7co7zx7lwoUZEeMQG1VsUB0JvhvO +hcH5Yq0FN1VMcl8cOebNhZDlf4nLJqtiSZwpzSXvc5mrcHDLgCryVCVtq+bh +whdP/tCqaDU8eFoozzy0gnxPSPMkNq/CS8652a7ry0HsucpZ+utqlEyMbOkd +LwX5JK69vr4GZva8si3bXwIZ6oYi4r6amJIaNnB1ugja5EzXTZ7XwtfL3ZVk +w2/ABvnmFO1ubYxYpmox+7QAhHmvhXnE6eD7atETWzj5oBirZOyisgaH7dt9 +6lOugYDynhqHx2twpuXG0xNTuaDFkeUe/EMXExcV3fj+KxtCBsVarBetRXGz +xICq6Sz4Onl6h1XGWrwbLlgib34ZNmk/yrTS1MMyP8+1Kc2X4P6k0c/Zdj3c +s5o3l2NwAYI0dPtfea9DK9WFKSeeVOCMeXW6COijR0M6WyHrHGxky2wVuqaP +r327Rbq7ToFazMlDzQYGyFw/qSofkQSrvQ0blPsNMMzUWEdENQG87/95vOrA +ehQa7f0Y4BEHDbmdXhOShug/cmD+nW80TBUtzGrXGuJ4opi06YNI8FQuFcjc +ugHD55q8MiYjYGJ1mv7N8Q1YeiFHguEYCrfzf76bTjLC574ZQrN798MuCxYa +KRqjiOdnrdRGf1gZmFin1WiMzuLRm64I+4LksoDKrc4c3NAkdmu3rSfkmx+N +HHfhYCV/Vec7E0/QPXrWPG0PBzuutZeFaHuC7Tjd1evBwbJLon5VIp5wont6 +zjOAg9fX5wTVvt4L369Fm0XGcrBpyabMmt17od8o7XVhKQf7O9L0D4R6wJ/h ++VesKjh43ODvWTNvD5ipqPb+QnPwP0rvtqKzB4hRvbNrajjodspJaWqDB9jw +K8jfa+Rg1M6REUleD7jbWej1uouDrzb/ka5z0R2shW9rRvRyUNPuVUlOojv0 +bnoyIzPAQc/XW7xkIt1h6s7nJNe3HHz+0/WWips7aObplP87wsEvE5FqNavc +4W6/acTpUQ4ubinqOCBPriexHbTHOcgekZnVX+EOPonhr8KmOVjwgVe3/l83 +mGo8kSn9nYP1kyh97IUbxP1I97zzg4MB1pcfbq92AxG9Yo0/5jlooGasa5zl +BtmBd6YXFjhYm7/HwSDWDf4P7i4q2A== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06515759743746788}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, + "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06515759743746788}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]}]], "Input", + CellChangeTimes->{{3.994300623079976*^9, 3.994300629460075*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"8bbf04f6-e2ae-4618-a335-9ea20f712841"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13lYTWsXAHDKp5LSPGk4Z5/TQKOkpE5rNYiKSlLCbdB000QTEk1SGVMo +RQOV5rOjQUKTISGkuauI67pRSpO46Xv9cZ7z/J5nD2utvd717s3cG+zgzbNo +0aJ58vv9PzP45AH7VL5JRQzP0js7TUw6s2UOm/bGQYaroIl990pAyRd7ZXpT +oWaf+luRbnWIsC/p4e29BrE3Brr+6TIC0THp1Lmem+DgE/2+vMsGhu7aBk/1 +NINmiNn6n527wZI98maipwNGN943s+nwh7keg4vjPcOw6nTJxqzHR6DF/Eb+ +q2uTkC/1SNGq6TTID9V93KsxD2/vWVzYzLoIEgFuJXzmvBjmX/7M73gWpK6x +rLfdwY9Mma8y9wXyoC9Dp3FCRAjpp0abGz5ch1P50S94ZEVRj71Mp+pOIUhf +eJ+cdlUcK9mTh26tL4ZERyuTjhlJDNn6b/Yl81KQq2qX41kshWNCK/M7bEqh +Qtxxdo2gFH5jdpsIOJZCd4crfV5JCm1MBNf4eJUCe1sYtW2zFPLeezI6eLwU +mrfmLH15WQq7zurOtT0ohXnL6fbnxtKYViawIRHLINQwz+1JnAzy9wnYeauW +g3Wu8JTNaRm85NTT9lSzHCi+qKT2izJoYJnupalXDi87nSpfF8mgR6vR+Dss +B639y3kH22Xw4tPoPSK7yuFT4cHCb3Ky+LUqVyfuVDnskbAdXXlLFvlvKtnU +jpTD2iP1sdl3ZbHKX/BZzHg5LBtWk2I+ksXCtmG3jTPlUMflBZU+WczW3trQ +sLgCpGzqUnQWZDFSWs3psEwFvIxl6220kcPnusKVCxYVYPH1R2TQeznU+DT0 +xDmzAg5vvrC66YscRgn2WfjlVEBFnma/+Iwc5kt6/QrPrwAZR3fDOv6VuHWw +WyO2ogK+3H44y6u1Etve8Ia7NldAWlxK2OVDK7GvUKJA798KGJZUCXogJI/J +F/qc7dZyQTq4QUFaWh6t/y1OaTXgwpbWnc/9GPKY9+AMH8eYCzWRpzRWrJXH +ZuGXXOmNXDg5ND7islMeU3hNv6Q5cUG3uN736zV51LrcpFZ0iAuxxts85NYr +oEKm/Bms48Jm1+xvBmYKuOnh42/h97ggHPM5fscWBSzIKGkpaOLClZaEwhR3 +BdS1VSuaesKF29Z3Pi9NVsCDsZ3xdv1cGN/JipjsU0DPTwVP5ua44Bo+ffLZ +EUV0HKuIPi9Hg3K6mfxIgiJ+XMtnsF2eJvmfK+dLUcT3Wg2rxBRpiPxv1Uuz +fEWMb9jQnMik4WK8q2TdM0V038/zaJsaDc/OP84pUFDC2nAve491NGyouFx1 +rEEJtcvTHPdvpcGip31+rFUJxbNSBppsabBdtGSTW4cSvvtouljUngZPh6A+ ++FsJb1q/WFXkQIPlEWZ0zP8YyMuSmK1zpmG/0sx1U3UG3usXbPT3oGH6Vkrr +nDYD64aEtqfvJfFtVh+t1GNg14cNyY2eNCQccNenTBhoWWX5VtCHhsyWtlae +bQycELxsemIfDQ98c0ZbIhio5ZwstSyUBqv/DMWijjAwrmbFYpEwGtpTOvX1 +YhioHNGcJh5OQ1+dQEx+MgODRBfdEj9Iw5hgmFjCFQY+FzUZno2kQYbebGDZ +zMAV4+fs7eNouGrxfvevRwzULC39qBNPA9V3NKbmKQNrPaJWrzhOgybPrScq +XQyUXF5590ECDWaOCnv4PjHwhuhNSYlkGgK+T8S0CjFxebjEmPk5Us8DPlIf +xZiY6bded0UKDfwj/aW8MkzcaW/Y0kNcMNDSbUIx8eidrufuqTQM3r+oUa3P +xOyeujSHizSUGSxr7jBiYpPr4q38l0i96GPO48jEp9rgXE8sdc03Tt2GiTet +at1lM2iwSzDszXNjYtiuEKfqTBoUf5UHNngx8X4gFu7IIv0RQfG+8WPi96NW +NpPESX8KasmEMTEv3yhd5SoNjTZv4s8mMZF5UdgyMIcGXbFY7SOV5HzV5UeP +XKdh0anpBxk1TAQTf88J4nbefbtq6pl4pk2oyCufBv9ph4SJh0z0WBlha15A +Q34ve8C3nxxv4c14V0hDyLbL+xOGmBipFShgdoMGbBNaev0DE3OfRe7IJX5T +P6MzOMbELGsJ2R1FJL+c1hOOvBR+C3Bzyymm4YM0Rz6En0LtUu6Bz8Q3Uyor +zwlRWK06/lmvhOQfl/lXmzSFHp+b5RqJFX8Kh3ySp1DOIv3l4lKSf2g831KK +Qr/5oXEkTvIO0DXVoNB0v0toLbHT4NvHrmsovK74qnuMmO28448ofQqPSdnc +YJWR+mw2SapFCr+G959PID7bdFOhayOF9UVG5TeJ92xQvfXNmsLsO/rr3xDP +qYsMau6gsL84I2d1OQ0zV+Vi1+6isKF/dmgL8dQKZbahG4XzM1ASQDwRq/3Y +xIvkkyW6kEw8Nmm4z8KPQp9vQkP5xJ+9LYSsgyjMoLut7xF/6rGl7UIpDJYW +Nn9N/LeVy/Ydhyh0mnRq/Ug8XO85s+sohalZjgOzxEOaQZfd40g9J0qillbQ +8FfOIWOfRArd9/4qEyPuE40f8j9NYeLwZIA8cXf8mbgD5ykMnNC5xyJ+PZ2u +fPAShSvTd2erEb/0vdYalUXhWi85UXXi531l/nG55H4HJKR+u82mVjipgMIJ +t4ny38c/vtdUeaaEwiPOLn2/r/dA+5ljGpfCKL7pjN/3a8rrns2oovDvgsDR +3/HcF3+XmV1HocDXgJ7f8dYnfObk36eQqXzV+TvJ5/bs9NviFgp/rCgO+oe4 +2m/RcW4rhSf+M1LoJL45sEy1+jmFJ+8u9rpPzN0q2Xang8LVhYXmhcRlDUqB +jT0UnkvruXuKuHjNapFHf1EYP2z6Moi48LrerafvKJQKSztmR3xdEpxefaRQ +tSyyVZM4N9FqrvszhdIHCisEiDP9XWF4mkK+h8kOd8jzT3/z5/A/P0g/FOeJ +niO+YBeaMLpAYfjD+8Eev/tnbdLT7wIsjOtuF1wg/XaqIDXolzALE5VVbNp+ +96f0VdElEiw842qjkUYc97PSeYUiC8/WPe9WII4OvPtDgsXCeY20vCHS71FD +j67KqbEwW2NWJIc4omXgvbIuCwP79r+VIvY/9b/9xpYsNNnHcBoh6+vP+RXi +ZjYszLB75nKZ2CdYrmaTPQsFg1/wWRK7b9f+z2EXC4e6Gr0zyPp0XOmS5BfE +Qg3VSg6TrOdtZzzVg0NZ+M4nrOgeWe+2C4HtYYdYGKDg0+JMvPl9nERMHAsb +Qp8sTyDzwbi0LPfSJRYus3DheXCNhgFGac7GLBayqkMEnIgjLxVnT+Ww8Of0 +hNjHPBpqYwuvOBSz8BmmaS8i1t2ZmyF8l4Ubj57JlSfzadX/LqSceMfCx75D +n2fIvGuNTD237iOJ32ibpx+xz3jK2Q8jLHThSP7Td5nMo4Ezp82mWLg3VE6q +msxLxs3EpF9L2eit089y/D1P3Y7ERGiwsXEJnFl3nvRT5+Fo5TVsFA20kEom +89rR+tCxznVs/OvwQHU/me+p68KjdIGNQ1YuRofO0iC0PPjQ2DY2dmx5e+DK +KRqW1O3d73OQjVgXxThJ9osJMWt3p2Y2no9w11og+1FvAPVy32M2Ht4pLMFL +3PjoB0Q/Y6OjteHrJRE0pESWKhV1szHWMundYrK/6QwvH5obYePA7TKn4WAa +gipf/HFVXBnjSx38OL40jNjt2P3BSxl1mprD9jrS0FGs+fS7nzIKbG41Z22n +4Q7vUiOhYGV8pMQnMLyNhuTaGjn9w8ro3z542MWOBjUlmf7EM8q4VrlNWMea +Bt+x/p3qNco4XKDXFQVk/p52dwrhU8Gqr2oeWeT9IWhEg9JZroJFrr4O+qo0 +zG6aGx0VUUGzRPX0F8o0LONNTfCTU0EPaQ/FeYrEf7ilyl1TBdsa7Q0tFGg4 +6q0ibrddBfdZeNjHi5L6m3x5oZ6jgpu0+ZdfnOCC1deDVn/rq2JFbovf9gQu +yK9RPMFvrIq2Luv7Q2K5MBbyoFndVBVH7co7zx7lwoUZEeMQG1VsUB0JvhvO +hcH5Yq0FN1VMcl8cOebNhZDlf4nLJqtiSZwpzSXvc5mrcHDLgCryVCVtq+bh +whdP/tCqaDU8eFoozzy0gnxPSPMkNq/CS8652a7ry0HsucpZ+utqlEyMbOkd +LwX5JK69vr4GZva8si3bXwIZ6oYi4r6amJIaNnB1ugja5EzXTZ7XwtfL3ZVk +w2/ABvnmFO1ubYxYpmox+7QAhHmvhXnE6eD7atETWzj5oBirZOyisgaH7dt9 +6lOugYDynhqHx2twpuXG0xNTuaDFkeUe/EMXExcV3fj+KxtCBsVarBetRXGz +xICq6Sz4Onl6h1XGWrwbLlgib34ZNmk/yrTS1MMyP8+1Kc2X4P6k0c/Zdj3c +s5o3l2NwAYI0dPtfea9DK9WFKSeeVOCMeXW6COijR0M6WyHrHGxky2wVuqaP +r327Rbq7ToFazMlDzQYGyFw/qSofkQSrvQ0blPsNMMzUWEdENQG87/95vOrA +ehQa7f0Y4BEHDbmdXhOShug/cmD+nW80TBUtzGrXGuJ4opi06YNI8FQuFcjc +ugHD55q8MiYjYGJ1mv7N8Q1YeiFHguEYCrfzf76bTjLC574ZQrN798MuCxYa +KRqjiOdnrdRGf1gZmFin1WiMzuLRm64I+4LksoDKrc4c3NAkdmu3rSfkmx+N +HHfhYCV/Vec7E0/QPXrWPG0PBzuutZeFaHuC7Tjd1evBwbJLon5VIp5wont6 +zjOAg9fX5wTVvt4L369Fm0XGcrBpyabMmt17od8o7XVhKQf7O9L0D4R6wJ/h ++VesKjh43ODvWTNvD5ipqPb+QnPwP0rvtqKzB4hRvbNrajjodspJaWqDB9jw +K8jfa+Rg1M6REUleD7jbWej1uouDrzb/ka5z0R2shW9rRvRyUNPuVUlOojv0 +bnoyIzPAQc/XW7xkIt1h6s7nJNe3HHz+0/WWips7aObplP87wsEvE5FqNavc +4W6/acTpUQ4ubinqOCBPriexHbTHOcgekZnVX+EOPonhr8KmOVjwgVe3/l83 +mGo8kSn9nYP1kyh97IUbxP1I97zzg4MB1pcfbq92AxG9Yo0/5jlooGasa5zl +BtmBd6YXFjhYm7/HwSDWDf4P7i4q2A== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13lYTWsXAHDKp5LSPGk4Z5/TQKOkpE5rNYiKSlLCbdB000QTEk1SGVMo +RQOV5rOjQUKTISGkuauI67pRSpO46Xv9cZ7z/J5nD2utvd717s3cG+zgzbNo +0aJ58vv9PzP45AH7VL5JRQzP0js7TUw6s2UOm/bGQYaroIl990pAyRd7ZXpT +oWaf+luRbnWIsC/p4e29BrE3Brr+6TIC0THp1Lmem+DgE/2+vMsGhu7aBk/1 +NINmiNn6n527wZI98maipwNGN943s+nwh7keg4vjPcOw6nTJxqzHR6DF/Eb+ +q2uTkC/1SNGq6TTID9V93KsxD2/vWVzYzLoIEgFuJXzmvBjmX/7M73gWpK6x +rLfdwY9Mma8y9wXyoC9Dp3FCRAjpp0abGz5ch1P50S94ZEVRj71Mp+pOIUhf +eJ+cdlUcK9mTh26tL4ZERyuTjhlJDNn6b/Yl81KQq2qX41kshWNCK/M7bEqh +Qtxxdo2gFH5jdpsIOJZCd4crfV5JCm1MBNf4eJUCe1sYtW2zFPLeezI6eLwU +mrfmLH15WQq7zurOtT0ohXnL6fbnxtKYViawIRHLINQwz+1JnAzy9wnYeauW +g3Wu8JTNaRm85NTT9lSzHCi+qKT2izJoYJnupalXDi87nSpfF8mgR6vR+Dss +B639y3kH22Xw4tPoPSK7yuFT4cHCb3Ky+LUqVyfuVDnskbAdXXlLFvlvKtnU +jpTD2iP1sdl3ZbHKX/BZzHg5LBtWk2I+ksXCtmG3jTPlUMflBZU+WczW3trQ +sLgCpGzqUnQWZDFSWs3psEwFvIxl6220kcPnusKVCxYVYPH1R2TQeznU+DT0 +xDmzAg5vvrC66YscRgn2WfjlVEBFnma/+Iwc5kt6/QrPrwAZR3fDOv6VuHWw +WyO2ogK+3H44y6u1Etve8Ia7NldAWlxK2OVDK7GvUKJA798KGJZUCXogJI/J +F/qc7dZyQTq4QUFaWh6t/y1OaTXgwpbWnc/9GPKY9+AMH8eYCzWRpzRWrJXH +ZuGXXOmNXDg5ND7islMeU3hNv6Q5cUG3uN736zV51LrcpFZ0iAuxxts85NYr +oEKm/Bms48Jm1+xvBmYKuOnh42/h97ggHPM5fscWBSzIKGkpaOLClZaEwhR3 +BdS1VSuaesKF29Z3Pi9NVsCDsZ3xdv1cGN/JipjsU0DPTwVP5ua44Bo+ffLZ +EUV0HKuIPi9Hg3K6mfxIgiJ+XMtnsF2eJvmfK+dLUcT3Wg2rxBRpiPxv1Uuz +fEWMb9jQnMik4WK8q2TdM0V038/zaJsaDc/OP84pUFDC2nAve491NGyouFx1 +rEEJtcvTHPdvpcGip31+rFUJxbNSBppsabBdtGSTW4cSvvtouljUngZPh6A+ ++FsJb1q/WFXkQIPlEWZ0zP8YyMuSmK1zpmG/0sx1U3UG3usXbPT3oGH6Vkrr +nDYD64aEtqfvJfFtVh+t1GNg14cNyY2eNCQccNenTBhoWWX5VtCHhsyWtlae +bQycELxsemIfDQ98c0ZbIhio5ZwstSyUBqv/DMWijjAwrmbFYpEwGtpTOvX1 +YhioHNGcJh5OQ1+dQEx+MgODRBfdEj9Iw5hgmFjCFQY+FzUZno2kQYbebGDZ +zMAV4+fs7eNouGrxfvevRwzULC39qBNPA9V3NKbmKQNrPaJWrzhOgybPrScq +XQyUXF5590ECDWaOCnv4PjHwhuhNSYlkGgK+T8S0CjFxebjEmPk5Us8DPlIf +xZiY6bded0UKDfwj/aW8MkzcaW/Y0kNcMNDSbUIx8eidrufuqTQM3r+oUa3P +xOyeujSHizSUGSxr7jBiYpPr4q38l0i96GPO48jEp9rgXE8sdc03Tt2GiTet +at1lM2iwSzDszXNjYtiuEKfqTBoUf5UHNngx8X4gFu7IIv0RQfG+8WPi96NW +NpPESX8KasmEMTEv3yhd5SoNjTZv4s8mMZF5UdgyMIcGXbFY7SOV5HzV5UeP +XKdh0anpBxk1TAQTf88J4nbefbtq6pl4pk2oyCufBv9ph4SJh0z0WBlha15A +Q34ve8C3nxxv4c14V0hDyLbL+xOGmBipFShgdoMGbBNaev0DE3OfRe7IJX5T +P6MzOMbELGsJ2R1FJL+c1hOOvBR+C3Bzyymm4YM0Rz6En0LtUu6Bz8Q3Uyor +zwlRWK06/lmvhOQfl/lXmzSFHp+b5RqJFX8Kh3ySp1DOIv3l4lKSf2g831KK +Qr/5oXEkTvIO0DXVoNB0v0toLbHT4NvHrmsovK74qnuMmO28448ofQqPSdnc +YJWR+mw2SapFCr+G959PID7bdFOhayOF9UVG5TeJ92xQvfXNmsLsO/rr3xDP +qYsMau6gsL84I2d1OQ0zV+Vi1+6isKF/dmgL8dQKZbahG4XzM1ASQDwRq/3Y +xIvkkyW6kEw8Nmm4z8KPQp9vQkP5xJ+9LYSsgyjMoLut7xF/6rGl7UIpDJYW +Nn9N/LeVy/Ydhyh0mnRq/Ug8XO85s+sohalZjgOzxEOaQZfd40g9J0qillbQ +8FfOIWOfRArd9/4qEyPuE40f8j9NYeLwZIA8cXf8mbgD5ykMnNC5xyJ+PZ2u +fPAShSvTd2erEb/0vdYalUXhWi85UXXi531l/nG55H4HJKR+u82mVjipgMIJ +t4ny38c/vtdUeaaEwiPOLn2/r/dA+5ljGpfCKL7pjN/3a8rrns2oovDvgsDR +3/HcF3+XmV1HocDXgJ7f8dYnfObk36eQqXzV+TvJ5/bs9NviFgp/rCgO+oe4 +2m/RcW4rhSf+M1LoJL45sEy1+jmFJ+8u9rpPzN0q2Xang8LVhYXmhcRlDUqB +jT0UnkvruXuKuHjNapFHf1EYP2z6Moi48LrerafvKJQKSztmR3xdEpxefaRQ +tSyyVZM4N9FqrvszhdIHCisEiDP9XWF4mkK+h8kOd8jzT3/z5/A/P0g/FOeJ +niO+YBeaMLpAYfjD+8Eev/tnbdLT7wIsjOtuF1wg/XaqIDXolzALE5VVbNp+ +96f0VdElEiw842qjkUYc97PSeYUiC8/WPe9WII4OvPtDgsXCeY20vCHS71FD +j67KqbEwW2NWJIc4omXgvbIuCwP79r+VIvY/9b/9xpYsNNnHcBoh6+vP+RXi +ZjYszLB75nKZ2CdYrmaTPQsFg1/wWRK7b9f+z2EXC4e6Gr0zyPp0XOmS5BfE +Qg3VSg6TrOdtZzzVg0NZ+M4nrOgeWe+2C4HtYYdYGKDg0+JMvPl9nERMHAsb +Qp8sTyDzwbi0LPfSJRYus3DheXCNhgFGac7GLBayqkMEnIgjLxVnT+Ww8Of0 +hNjHPBpqYwuvOBSz8BmmaS8i1t2ZmyF8l4Ubj57JlSfzadX/LqSceMfCx75D +n2fIvGuNTD237iOJ32ibpx+xz3jK2Q8jLHThSP7Td5nMo4Ezp82mWLg3VE6q +msxLxs3EpF9L2eit089y/D1P3Y7ERGiwsXEJnFl3nvRT5+Fo5TVsFA20kEom +89rR+tCxznVs/OvwQHU/me+p68KjdIGNQ1YuRofO0iC0PPjQ2DY2dmx5e+DK +KRqW1O3d73OQjVgXxThJ9osJMWt3p2Y2no9w11og+1FvAPVy32M2Ht4pLMFL +3PjoB0Q/Y6OjteHrJRE0pESWKhV1szHWMundYrK/6QwvH5obYePA7TKn4WAa +gipf/HFVXBnjSx38OL40jNjt2P3BSxl1mprD9jrS0FGs+fS7nzIKbG41Z22n +4Q7vUiOhYGV8pMQnMLyNhuTaGjn9w8ro3z542MWOBjUlmf7EM8q4VrlNWMea +Bt+x/p3qNco4XKDXFQVk/p52dwrhU8Gqr2oeWeT9IWhEg9JZroJFrr4O+qo0 +zG6aGx0VUUGzRPX0F8o0LONNTfCTU0EPaQ/FeYrEf7ilyl1TBdsa7Q0tFGg4 +6q0ibrddBfdZeNjHi5L6m3x5oZ6jgpu0+ZdfnOCC1deDVn/rq2JFbovf9gQu +yK9RPMFvrIq2Luv7Q2K5MBbyoFndVBVH7co7zx7lwoUZEeMQG1VsUB0JvhvO +hcH5Yq0FN1VMcl8cOebNhZDlf4nLJqtiSZwpzSXvc5mrcHDLgCryVCVtq+bh +whdP/tCqaDU8eFoozzy0gnxPSPMkNq/CS8652a7ry0HsucpZ+utqlEyMbOkd +LwX5JK69vr4GZva8si3bXwIZ6oYi4r6amJIaNnB1ugja5EzXTZ7XwtfL3ZVk +w2/ABvnmFO1ubYxYpmox+7QAhHmvhXnE6eD7atETWzj5oBirZOyisgaH7dt9 +6lOugYDynhqHx2twpuXG0xNTuaDFkeUe/EMXExcV3fj+KxtCBsVarBetRXGz +xICq6Sz4Onl6h1XGWrwbLlgib34ZNmk/yrTS1MMyP8+1Kc2X4P6k0c/Zdj3c +s5o3l2NwAYI0dPtfea9DK9WFKSeeVOCMeXW6COijR0M6WyHrHGxky2wVuqaP +r327Rbq7ToFazMlDzQYGyFw/qSofkQSrvQ0blPsNMMzUWEdENQG87/95vOrA +ehQa7f0Y4BEHDbmdXhOShug/cmD+nW80TBUtzGrXGuJ4opi06YNI8FQuFcjc +ugHD55q8MiYjYGJ1mv7N8Q1YeiFHguEYCrfzf76bTjLC574ZQrN798MuCxYa +KRqjiOdnrdRGf1gZmFin1WiMzuLRm64I+4LksoDKrc4c3NAkdmu3rSfkmx+N +HHfhYCV/Vec7E0/QPXrWPG0PBzuutZeFaHuC7Tjd1evBwbJLon5VIp5wont6 +zjOAg9fX5wTVvt4L369Fm0XGcrBpyabMmt17od8o7XVhKQf7O9L0D4R6wJ/h ++VesKjh43ODvWTNvD5ipqPb+QnPwP0rvtqKzB4hRvbNrajjodspJaWqDB9jw +K8jfa+Rg1M6REUleD7jbWej1uouDrzb/ka5z0R2shW9rRvRyUNPuVUlOojv0 +bnoyIzPAQc/XW7xkIt1h6s7nJNe3HHz+0/WWips7aObplP87wsEvE5FqNavc +4W6/acTpUQ4ubinqOCBPriexHbTHOcgekZnVX+EOPonhr8KmOVjwgVe3/l83 +mGo8kSn9nYP1kyh97IUbxP1I97zzg4MB1pcfbq92AxG9Yo0/5jlooGasa5zl +BtmBd6YXFjhYm7/HwSDWDf4P7i4q2A== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06515759743746788}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06515759743746788}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13lYTWsXAHDKp5LSPGk4Z5/TQKOkpE5rNYiKSlLCbdB000QTEk1SGVMo +RQOV5rOjQUKTISGkuauI67pRSpO46Xv9cZ7z/J5nD2utvd717s3cG+zgzbNo +0aJ58vv9PzP45AH7VL5JRQzP0js7TUw6s2UOm/bGQYaroIl990pAyRd7ZXpT +oWaf+luRbnWIsC/p4e29BrE3Brr+6TIC0THp1Lmem+DgE/2+vMsGhu7aBk/1 +NINmiNn6n527wZI98maipwNGN943s+nwh7keg4vjPcOw6nTJxqzHR6DF/Eb+ +q2uTkC/1SNGq6TTID9V93KsxD2/vWVzYzLoIEgFuJXzmvBjmX/7M73gWpK6x +rLfdwY9Mma8y9wXyoC9Dp3FCRAjpp0abGz5ch1P50S94ZEVRj71Mp+pOIUhf +eJ+cdlUcK9mTh26tL4ZERyuTjhlJDNn6b/Yl81KQq2qX41kshWNCK/M7bEqh +Qtxxdo2gFH5jdpsIOJZCd4crfV5JCm1MBNf4eJUCe1sYtW2zFPLeezI6eLwU +mrfmLH15WQq7zurOtT0ohXnL6fbnxtKYViawIRHLINQwz+1JnAzy9wnYeauW +g3Wu8JTNaRm85NTT9lSzHCi+qKT2izJoYJnupalXDi87nSpfF8mgR6vR+Dss +B639y3kH22Xw4tPoPSK7yuFT4cHCb3Ky+LUqVyfuVDnskbAdXXlLFvlvKtnU +jpTD2iP1sdl3ZbHKX/BZzHg5LBtWk2I+ksXCtmG3jTPlUMflBZU+WczW3trQ +sLgCpGzqUnQWZDFSWs3psEwFvIxl6220kcPnusKVCxYVYPH1R2TQeznU+DT0 +xDmzAg5vvrC66YscRgn2WfjlVEBFnma/+Iwc5kt6/QrPrwAZR3fDOv6VuHWw +WyO2ogK+3H44y6u1Etve8Ia7NldAWlxK2OVDK7GvUKJA798KGJZUCXogJI/J +F/qc7dZyQTq4QUFaWh6t/y1OaTXgwpbWnc/9GPKY9+AMH8eYCzWRpzRWrJXH +ZuGXXOmNXDg5ND7islMeU3hNv6Q5cUG3uN736zV51LrcpFZ0iAuxxts85NYr +oEKm/Bms48Jm1+xvBmYKuOnh42/h97ggHPM5fscWBSzIKGkpaOLClZaEwhR3 +BdS1VSuaesKF29Z3Pi9NVsCDsZ3xdv1cGN/JipjsU0DPTwVP5ua44Bo+ffLZ +EUV0HKuIPi9Hg3K6mfxIgiJ+XMtnsF2eJvmfK+dLUcT3Wg2rxBRpiPxv1Uuz +fEWMb9jQnMik4WK8q2TdM0V038/zaJsaDc/OP84pUFDC2nAve491NGyouFx1 +rEEJtcvTHPdvpcGip31+rFUJxbNSBppsabBdtGSTW4cSvvtouljUngZPh6A+ ++FsJb1q/WFXkQIPlEWZ0zP8YyMuSmK1zpmG/0sx1U3UG3usXbPT3oGH6Vkrr +nDYD64aEtqfvJfFtVh+t1GNg14cNyY2eNCQccNenTBhoWWX5VtCHhsyWtlae +bQycELxsemIfDQ98c0ZbIhio5ZwstSyUBqv/DMWijjAwrmbFYpEwGtpTOvX1 +YhioHNGcJh5OQ1+dQEx+MgODRBfdEj9Iw5hgmFjCFQY+FzUZno2kQYbebGDZ +zMAV4+fs7eNouGrxfvevRwzULC39qBNPA9V3NKbmKQNrPaJWrzhOgybPrScq +XQyUXF5590ECDWaOCnv4PjHwhuhNSYlkGgK+T8S0CjFxebjEmPk5Us8DPlIf +xZiY6bded0UKDfwj/aW8MkzcaW/Y0kNcMNDSbUIx8eidrufuqTQM3r+oUa3P +xOyeujSHizSUGSxr7jBiYpPr4q38l0i96GPO48jEp9rgXE8sdc03Tt2GiTet +at1lM2iwSzDszXNjYtiuEKfqTBoUf5UHNngx8X4gFu7IIv0RQfG+8WPi96NW +NpPESX8KasmEMTEv3yhd5SoNjTZv4s8mMZF5UdgyMIcGXbFY7SOV5HzV5UeP +XKdh0anpBxk1TAQTf88J4nbefbtq6pl4pk2oyCufBv9ph4SJh0z0WBlha15A +Q34ve8C3nxxv4c14V0hDyLbL+xOGmBipFShgdoMGbBNaev0DE3OfRe7IJX5T +P6MzOMbELGsJ2R1FJL+c1hOOvBR+C3Bzyymm4YM0Rz6En0LtUu6Bz8Q3Uyor +zwlRWK06/lmvhOQfl/lXmzSFHp+b5RqJFX8Kh3ySp1DOIv3l4lKSf2g831KK +Qr/5oXEkTvIO0DXVoNB0v0toLbHT4NvHrmsovK74qnuMmO28448ofQqPSdnc +YJWR+mw2SapFCr+G959PID7bdFOhayOF9UVG5TeJ92xQvfXNmsLsO/rr3xDP +qYsMau6gsL84I2d1OQ0zV+Vi1+6isKF/dmgL8dQKZbahG4XzM1ASQDwRq/3Y +xIvkkyW6kEw8Nmm4z8KPQp9vQkP5xJ+9LYSsgyjMoLut7xF/6rGl7UIpDJYW +Nn9N/LeVy/Ydhyh0mnRq/Ug8XO85s+sohalZjgOzxEOaQZfd40g9J0qillbQ +8FfOIWOfRArd9/4qEyPuE40f8j9NYeLwZIA8cXf8mbgD5ykMnNC5xyJ+PZ2u +fPAShSvTd2erEb/0vdYalUXhWi85UXXi531l/nG55H4HJKR+u82mVjipgMIJ +t4ny38c/vtdUeaaEwiPOLn2/r/dA+5ljGpfCKL7pjN/3a8rrns2oovDvgsDR +3/HcF3+XmV1HocDXgJ7f8dYnfObk36eQqXzV+TvJ5/bs9NviFgp/rCgO+oe4 +2m/RcW4rhSf+M1LoJL45sEy1+jmFJ+8u9rpPzN0q2Xang8LVhYXmhcRlDUqB +jT0UnkvruXuKuHjNapFHf1EYP2z6Moi48LrerafvKJQKSztmR3xdEpxefaRQ +tSyyVZM4N9FqrvszhdIHCisEiDP9XWF4mkK+h8kOd8jzT3/z5/A/P0g/FOeJ +niO+YBeaMLpAYfjD+8Eev/tnbdLT7wIsjOtuF1wg/XaqIDXolzALE5VVbNp+ +96f0VdElEiw842qjkUYc97PSeYUiC8/WPe9WII4OvPtDgsXCeY20vCHS71FD +j67KqbEwW2NWJIc4omXgvbIuCwP79r+VIvY/9b/9xpYsNNnHcBoh6+vP+RXi +ZjYszLB75nKZ2CdYrmaTPQsFg1/wWRK7b9f+z2EXC4e6Gr0zyPp0XOmS5BfE +Qg3VSg6TrOdtZzzVg0NZ+M4nrOgeWe+2C4HtYYdYGKDg0+JMvPl9nERMHAsb +Qp8sTyDzwbi0LPfSJRYus3DheXCNhgFGac7GLBayqkMEnIgjLxVnT+Ww8Of0 +hNjHPBpqYwuvOBSz8BmmaS8i1t2ZmyF8l4Ubj57JlSfzadX/LqSceMfCx75D +n2fIvGuNTD237iOJ32ibpx+xz3jK2Q8jLHThSP7Td5nMo4Ezp82mWLg3VE6q +msxLxs3EpF9L2eit089y/D1P3Y7ERGiwsXEJnFl3nvRT5+Fo5TVsFA20kEom +89rR+tCxznVs/OvwQHU/me+p68KjdIGNQ1YuRofO0iC0PPjQ2DY2dmx5e+DK +KRqW1O3d73OQjVgXxThJ9osJMWt3p2Y2no9w11og+1FvAPVy32M2Ht4pLMFL +3PjoB0Q/Y6OjteHrJRE0pESWKhV1szHWMundYrK/6QwvH5obYePA7TKn4WAa +gipf/HFVXBnjSx38OL40jNjt2P3BSxl1mprD9jrS0FGs+fS7nzIKbG41Z22n +4Q7vUiOhYGV8pMQnMLyNhuTaGjn9w8ro3z542MWOBjUlmf7EM8q4VrlNWMea +Bt+x/p3qNco4XKDXFQVk/p52dwrhU8Gqr2oeWeT9IWhEg9JZroJFrr4O+qo0 +zG6aGx0VUUGzRPX0F8o0LONNTfCTU0EPaQ/FeYrEf7ilyl1TBdsa7Q0tFGg4 +6q0ibrddBfdZeNjHi5L6m3x5oZ6jgpu0+ZdfnOCC1deDVn/rq2JFbovf9gQu +yK9RPMFvrIq2Luv7Q2K5MBbyoFndVBVH7co7zx7lwoUZEeMQG1VsUB0JvhvO +hcH5Yq0FN1VMcl8cOebNhZDlf4nLJqtiSZwpzSXvc5mrcHDLgCryVCVtq+bh +whdP/tCqaDU8eFoozzy0gnxPSPMkNq/CS8652a7ry0HsucpZ+utqlEyMbOkd +LwX5JK69vr4GZva8si3bXwIZ6oYi4r6amJIaNnB1ugja5EzXTZ7XwtfL3ZVk +w2/ABvnmFO1ubYxYpmox+7QAhHmvhXnE6eD7atETWzj5oBirZOyisgaH7dt9 +6lOugYDynhqHx2twpuXG0xNTuaDFkeUe/EMXExcV3fj+KxtCBsVarBetRXGz +xICq6Sz4Onl6h1XGWrwbLlgib34ZNmk/yrTS1MMyP8+1Kc2X4P6k0c/Zdj3c +s5o3l2NwAYI0dPtfea9DK9WFKSeeVOCMeXW6COijR0M6WyHrHGxky2wVuqaP +r327Rbq7ToFazMlDzQYGyFw/qSofkQSrvQ0blPsNMMzUWEdENQG87/95vOrA +ehQa7f0Y4BEHDbmdXhOShug/cmD+nW80TBUtzGrXGuJ4opi06YNI8FQuFcjc +ugHD55q8MiYjYGJ1mv7N8Q1YeiFHguEYCrfzf76bTjLC574ZQrN798MuCxYa +KRqjiOdnrdRGf1gZmFin1WiMzuLRm64I+4LksoDKrc4c3NAkdmu3rSfkmx+N +HHfhYCV/Vec7E0/QPXrWPG0PBzuutZeFaHuC7Tjd1evBwbJLon5VIp5wont6 +zjOAg9fX5wTVvt4L369Fm0XGcrBpyabMmt17od8o7XVhKQf7O9L0D4R6wJ/h ++VesKjh43ODvWTNvD5ipqPb+QnPwP0rvtqKzB4hRvbNrajjodspJaWqDB9jw +K8jfa+Rg1M6REUleD7jbWej1uouDrzb/ka5z0R2shW9rRvRyUNPuVUlOojv0 +bnoyIzPAQc/XW7xkIt1h6s7nJNe3HHz+0/WWips7aObplP87wsEvE5FqNavc +4W6/acTpUQ4ubinqOCBPriexHbTHOcgekZnVX+EOPonhr8KmOVjwgVe3/l83 +mGo8kSn9nYP1kyh97IUbxP1I97zzg4MB1pcfbq92AxG9Yo0/5jlooGasa5zl +BtmBd6YXFjhYm7/HwSDWDf4P7i4q2A== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06515759743746788}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06515759743746788}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994300630631884*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"cbb473e7-e37f-4baf-9126-92bdf898f986"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"(*", + RowBox[{ + "1.", " ", "\:0418\:0437\:0432\:043b\:0435\:043a\:0430\:0435\:043c", " ", + "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442\:044b", " ", + "\:0432\:0441\:0435\:0445", " ", "\:0442\:043e\:0447\:0435\:043a", " ", + "\:043b\:0438\:043d\:0438\:0438", " ", "\:0438\:0437", " ", + "\:0433\:0440\:0430\:0444\:0438\:043a\:0430"}], "*)"}], + RowBox[{ + RowBox[{ + RowBox[{"extractedPoints", "=", + RowBox[{"First", "[", + RowBox[{"Cases", "[", + RowBox[{"plotX", ",", + RowBox[{ + RowBox[{"Line", "[", "pts_", "]"}], ":>", "pts"}], ",", "Infinity"}], + "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\n", + RowBox[{"(*", + RowBox[{ + "2.", " ", "\:0421\:043e\:0437\:0434\:0430\:0435\:043c", " ", + "\:0431\:044b\:0441\:0442\:0440\:0443\:044e", " ", + "\:0444\:0443\:043d\:043a\:0446\:0438\:044e", " ", "\:043d\:0430", " ", + "\:043e\:0441\:043d\:043e\:0432\:0435", " ", "\:044d\:0442\:0438\:0445", + " ", "\:0442\:043e\:0447\:0435\:043a"}], "*)"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"fInterp", "=", + RowBox[{"Interpolation", "[", "extractedPoints", "]"}]}], ";"}], + "\[IndentingNewLine]", "\n", + RowBox[{"(*", + RowBox[{ + "3.", " ", "\:0413\:0435\:043d\:0435\:0440\:0438\:0440\:0443\:0435\:043c", + " ", "\:0432\:0430\:0448\:0443", " ", + "\:0442\:0430\:0431\:043b\:0438\:0446\:0443", " ", "\:043e\:0442", " ", + "0", " ", "\:0434\:043e", " ", "30", " ", "\:0441", " ", + "\:0448\:0430\:0433\:043e\:043c", " ", "1"}], "*)"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"dataX", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"x", ",", + RowBox[{"fInterp", "[", "x", "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30", ",", "1"}], "}"}]}], "]"}]}], ";"}], + "\[IndentingNewLine]", "\n", + RowBox[{"(*", + RowBox[{ + "4.", " ", "\:0412\:044b\:0432\:043e\:0434\:0438\:043c", " ", + "\:0440\:0435\:0437\:0443\:043b\:044c\:0442\:0430\:0442", " ", + "\:043d\:0430", " ", "\:044d\:043a\:0440\:0430\:043d"}], "*)"}], "\[IndentingNewLine]", + RowBox[{"dataX", "//", "TableForm"}], "\n"}]}]], "Input", + CellChangeTimes->{{3.994300634172802*^9, 3.994300634172842*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"5d16a040-f506-4126-ba8e-0610dba7c083"], + +Cell[BoxData[ + TagBox[GridBox[{ + {"0", + RowBox[{"-", "4.0657581468206416`*^-20"}]}, + {"1", "0.011474140761384744`"}, + {"2", "0.022554269373817663`"}, + {"3", "0.032869387477357216`"}, + {"4", "0.042090710292707646`"}, + {"5", "0.04995114859431013`"}, + {"6", "0.056254918524147206`"}, + {"7", "0.060887679108684166`"}, + {"8", "0.06381628704682868`"}, + {"9", "0.06508519980749373`"}, + {"10", "0.06480760058327278`"}, + {"11", "0.06315283617149621`"}, + {"12", "0.060331438146807026`"}, + {"13", "0.05657911644882632`"}, + {"14", "0.052140990144404924`"}, + {"15", "0.04725734186747425`"}, + {"16", "0.042151412669793165`"}, + {"17", "0.03702064809732834`"}, + {"18", "0.03203010095972601`"}, + {"19", "0.027309668857611213`"}, + {"20", "0.022954119391132864`"}, + {"21", "0.01902411819793485`"}, + {"22", "0.015550675828830221`"}, + {"23", "0.0125396647405654`"}, + {"24", "0.009976710243862466`"}, + {"25", "0.007832894756161519`"}, + {"26", "0.006069459632554321`"}, + {"27", "0.004642185682170686`"}, + {"28", "0.0035049909345567223`"}, + {"29", "0.0026126813157015287`"}, + {"30", "0.0019228969944757373`"} + }, + GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[2.0999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + Function[BoxForm`e$, + TableForm[BoxForm`e$]]]], "Output", + CellChangeTimes->{3.9943006364423018`*^9}, + CellLabel-> + "Out[11]//TableForm=",ExpressionUUID->"60dd1e83-54a2-4efc-9fa2-\ +f62ef275d9bf"] +}, Open ]], Cell[CellGroupData[{ @@ -10718,26 +13355,30 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], - ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -10759,66 +13400,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[116]:=",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], + "In[131]:=",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 116, 57, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265068365192`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.8554874732757114`*^-162\\\", \ +RowBox[{\\\"505518991860510123640143\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"101\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 131, 45, + 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265068365192`*^9, 3.994259550126227*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], +In[131]:=",ExpressionUUID->"7d87e28e-808c-4ed4-b24f-0516c495ceeb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 116, 58, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326506846985*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.4010144687843454`*^-165\\\", \ +RowBox[{\\\"164243120455479739170682\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"105\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 131, 46, + 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265068365192`*^9, 3.994259550137439*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], +In[131]:=",ExpressionUUID->"435fc61d-19d3-4584-b019-53a3a0f718f9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 116, 59, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326506856045*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.106930422512831`*^-168\\\", \ +RowBox[{\\\"552513857212233842570175\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"108\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 131, 47, + 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265068365192`*^9, 3.994259550148272*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], +In[131]:=",ExpressionUUID->"40e679e7-7032-44fd-992a-c4afc26c28df"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 116, 60, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265068640423`*^9}, +during this calculation.\"", 2, 131, 48, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265068365192`*^9, 3.994259550158948*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], +In[131]:=",ExpressionUUID->"912053a9-c105-4dbe-91e9-ee01c42031ea"], -Cell[BoxData["11.275343508404701`"], "Output", - CellChangeTimes->{3.991326513010317*^9}, +Cell[BoxData["12.19750804583138`"], "Output", + CellChangeTimes->{3.991326513010317*^9, 3.994259640004777*^9}, CellLabel-> - "Out[116]=",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] + "Out[131]=",ExpressionUUID->"b3a2e6e7-3f9c-4f0e-b836-8b808bf2d178"] }, Open ]], Cell[CellGroupData[{ @@ -10848,14 +13496,15 @@ Cell[BoxData[ RowBox[{ SuperscriptBox[ RowBox[{"(", - FractionBox[ + RowBox[{ + FractionBox["1", "2"], RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}]}], + ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", @@ -10885,68 +13534,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9917998502248*^9, - 3.9917998584727135`*^9}},ExpressionUUID->"df92a918-12ed-ff47-a8a8-\ -122296a3d634"], + CellChangeTimes->{{3.9917998502248*^9, 3.9917998584727135`*^9}}, + CellLabel-> + "In[132]:=",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 117, 61, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265130447063`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.167907482779623`*^-224\\\", \ +RowBox[{\\\"2735526583816145583533735\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 132, 49, + 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265130447063`*^9, 3.99425964005842*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], +In[132]:=",ExpressionUUID->"90cfb46f-0c53-4c10-9455-263b27636575"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 117, - 62, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326513053705*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.24506549830259`*^-230\\\", \ +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 132, 50, + 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265130447063`*^9, 3.9942596400687933`*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], +In[132]:=",ExpressionUUID->"0c893b82-e64b-49b6-9ec4-7b3180264ed6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 117, - 63, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265130617065`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1021745261435639`*^-235\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 132, 51, + 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265130447063`*^9, 3.994259640077928*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], +In[132]:=",ExpressionUUID->"7c812d66-180e-466d-b27a-6adaa478ea17"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 117, 64, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326513069849*^9}, +during this calculation.\"", 2, 132, 52, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265130447063`*^9, 3.994259640088479*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], +In[132]:=",ExpressionUUID->"040da006-a469-4cd3-9562-15aab40bfd11"], -Cell[BoxData["1.662840304462236`"], "Output", - CellChangeTimes->{3.9913265201819115`*^9}, +Cell[BoxData["0.08347388101079153`"], "Output", + CellChangeTimes->{3.9913265201819115`*^9, 3.994259651214945*^9}, CellLabel-> - "Out[117]=",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] + "Out[132]=",ExpressionUUID->"857df7b8-3154-4b76-b8d9-e51c876ca56f"] }, Open ]], Cell[CellGroupData[{ @@ -10967,8 +13623,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -10976,14 +13631,15 @@ Cell[BoxData[ RowBox[{ SuperscriptBox[ RowBox[{"(", - FractionBox[ + RowBox[{ + FractionBox["1", "2"], RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}]}], + ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", @@ -11013,68 +13669,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9917998626681576`*^9, - 3.991799866004116*^9}},ExpressionUUID->"1990573a-00f1-b54c-9d39-\ -9c68738afe07"], + CellChangeTimes->{{3.9917998626681576`*^9, 3.991799866004116*^9}}, + CellLabel-> + "In[133]:=",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 118, 65, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326520216116*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.167907482779623`*^-224\\\", \ +RowBox[{\\\"2735526583816145583533735\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 133, 53, + 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326520216116*^9, 3.9942596512689953`*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], +In[133]:=",ExpressionUUID->"ac636d8a-2802-4e4e-b8d6-b4b8eee7ed73"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 118, - 66, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326520226103*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.24506549830259`*^-230\\\", \ +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 133, 54, + 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326520216116*^9, 3.994259651280896*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], +In[133]:=",ExpressionUUID->"c7302897-91fa-453b-ac65-e31bbdceac6c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 118, - 67, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265202341022`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1021745261435639`*^-235\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 133, 55, + 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326520216116*^9, 3.9942596512942038`*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], +In[133]:=",ExpressionUUID->"f413d194-270a-4820-ad2d-6bfc6d1c5c85"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 118, 68, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326520242243*^9}, +during this calculation.\"", 2, 133, 56, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326520216116*^9, 3.994259651306821*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], +In[133]:=",ExpressionUUID->"7bdc780b-7c20-459e-93b3-7ca52592823a"], -Cell[BoxData["8.698310175000124`"], "Output", - CellChangeTimes->{3.9913265264075394`*^9}, +Cell[BoxData["37.19106290099357`"], "Output", + CellChangeTimes->{3.9913265264075394`*^9, 3.9942596615748*^9}, CellLabel-> - "Out[118]=",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] + "Out[133]=",ExpressionUUID->"499f3020-f116-4877-8619-a4065cb0662e"] }, Open ]], Cell[CellGroupData[{ @@ -11095,8 +13758,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -11104,14 +13766,15 @@ Cell[BoxData[ RowBox[{ SuperscriptBox[ RowBox[{"(", - FractionBox[ + RowBox[{ + FractionBox["1", "2"], RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}]}], + ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", @@ -11141,68 +13804,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991799871682028*^9, - 3.9917998792226925`*^9}},ExpressionUUID->"586f2005-dac7-8547-be11-\ -766f96e6af5d"], + CellChangeTimes->{{3.991799871682028*^9, 3.9917998792226925`*^9}}, + CellLabel-> + "In[134]:=",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 119, 69, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265264435444`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.167907482779623`*^-224\\\", \ +RowBox[{\\\"2735526583816145583533735\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 134, 57, + 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265264435444`*^9, 3.994259661629678*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], +In[134]:=",ExpressionUUID->"8a35aaee-02c5-4197-9a78-c3b6027cccfb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 119, - 70, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265264535427`*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.24506549830259`*^-230\\\", \ +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 134, 58, + 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265264435444`*^9, 3.994259661640048*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], +In[134]:=",ExpressionUUID->"fa987b01-88de-4bec-998f-021af3836eb3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 119, - 71, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265264615555`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1021745261435639`*^-235\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 134, 59, + 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265264435444`*^9, 3.994259661653335*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], +In[134]:=",ExpressionUUID->"68474162-05ad-4579-a1f2-dc47387534bf"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 119, 72, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326526468542*^9}, +during this calculation.\"", 2, 134, 60, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265264435444`*^9, 3.9942596616642427`*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], +In[134]:=",ExpressionUUID->"07aeb8ac-3779-4f29-a09a-b9dcf9f6c861"], -Cell[BoxData["16.721244215445346`"], "Output", - CellChangeTimes->{3.9913265299431496`*^9}, +Cell[BoxData["5.816040276391172`"], "Output", + CellChangeTimes->{3.9913265299431496`*^9, 3.99425967019147*^9}, CellLabel-> - "Out[119]=",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] + "Out[134]=",ExpressionUUID->"8725c4c7-f057-4a58-9406-d342f181bc3e"] }, Open ]], Cell[CellGroupData[{ @@ -11211,22 +13881,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9917998836260815`*^9, - 3.991799887334032*^9}},ExpressionUUID->"363f609f-6fd9-cc4c-924f-\ -14ef82ef0962"], - -Cell[BoxData["0.13787921511838797`"], "Output", - CellChangeTimes->{3.991326529975149*^9}, + CellChangeTimes->{{3.9917998836260815`*^9, 3.991799887334032*^9}}, CellLabel-> - "Out[120]=",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] + "In[135]:=",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], + +Cell[BoxData["0.005675676163902545`"], "Output", + CellChangeTimes->{3.991326529975149*^9, 3.9942596702367363`*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"4fbd8841-083a-4f0f-994f-48ba09e37a73"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.991799895862177*^9, 3.9917998977747803`*^9}, - 3.991924340381132*^9},ExpressionUUID->"32c57f0b-017d-d340-92c6-\ -0f56a212e9c3"], + 3.991924340381132*^9}, + CellLabel-> + "In[136]:=",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ @@ -11249,12 +13920,12 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[122]:=",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], + "In[137]:=",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], -Cell[BoxData["29.129739599983825`"], "Output", - CellChangeTimes->{3.9913265300040226`*^9}, +Cell[BoxData["19.912046235472797`"], "Output", + CellChangeTimes->{3.9913265300040226`*^9, 3.994259670261229*^9}, CellLabel-> - "Out[122]=",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] + "Out[137]=",ExpressionUUID->"a7722c89-09d4-4f11-8b50-a2820c231668"] }, Open ]], Cell[CellGroupData[{ @@ -11264,12 +13935,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[124]:=",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], + "In[138]:=",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], -Cell[BoxData["0.6950071373045505`"], "Output", - CellChangeTimes->{3.991326530052025*^9}, +Cell[BoxData["1.4554490882076723`"], "Output", + CellChangeTimes->{3.991326530052025*^9, 3.994259670274959*^9}, CellLabel-> - "Out[124]=",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] + "Out[138]=",ExpressionUUID->"cc0970f8-f904-4994-abdf-8b68b1561a2b"] }, Open ]], Cell[CellGroupData[{ @@ -11279,12 +13950,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[127]:=",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], + "In[139]:=",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], -Cell[BoxData["20.245376929811762`"], "Output", - CellChangeTimes->{3.9913265300922585`*^9}, +Cell[BoxData["28.980969537767894`"], "Output", + CellChangeTimes->{3.9913265300922585`*^9, 3.994259670289455*^9}, CellLabel-> - "Out[127]=",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] + "Out[139]=",ExpressionUUID->"1e6c5430-2f85-4716-997d-5d5c47247c1d"] }, Open ]], Cell[CellGroupData[{ @@ -11474,12 +14145,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[128]:=",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], + "In[140]:=",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], -Cell[BoxData["0.022635100966331548`"], "Output", - CellChangeTimes->{3.9913265301172295`*^9}, +Cell[BoxData["0.005628518970842355`"], "Output", + CellChangeTimes->{3.9913265301172295`*^9, 3.994259670307498*^9}, CellLabel-> - "Out[128]=",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] + "Out[140]=",ExpressionUUID->"b317c2e7-8da8-4b78-a17a-943dedcecebb"] }, Open ]], Cell[CellGroupData[{ @@ -11493,12 +14164,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[129]:=",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], + "In[141]:=",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], -Cell[BoxData["5.890521190513567`"], "Output", - CellChangeTimes->{3.991326530210228*^9}, +Cell[BoxData["11.81266461286979`"], "Output", + CellChangeTimes->{3.991326530210228*^9, 3.9942596705012417`*^9}, CellLabel-> - "Out[129]=",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] + "Out[141]=",ExpressionUUID->"1df7a470-924a-4a01-99bf-b0fe48baec47"] }, Open ]], Cell[CellGroupData[{ @@ -11690,12 +14361,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[130]:=",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], + "In[142]:=",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], -Cell[BoxData["0.012260254107801566`"], "Output", - CellChangeTimes->{3.9913265302252293`*^9}, +Cell[BoxData["0.031780799400501596`"], "Output", + CellChangeTimes->{3.9913265302252293`*^9, 3.994259670518134*^9}, CellLabel-> - "Out[130]=",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] + "Out[142]=",ExpressionUUID->"c61a984f-3cec-489d-94b7-79fa1121be8a"] }, Open ]], Cell[CellGroupData[{ @@ -11709,12 +14380,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[131]:=",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], + "In[143]:=",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], -Cell[BoxData["8.003781147223087`"], "Output", - CellChangeTimes->{3.9913265303172264`*^9}, +Cell[BoxData["4.971214837576059`"], "Output", + CellChangeTimes->{3.9913265303172264`*^9, 3.9942596707055492`*^9}, CellLabel-> - "Out[131]=",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] + "Out[143]=",ExpressionUUID->"a3c989e5-f5b9-4a06-a322-ba94462037fe"] }, Open ]], Cell[CellGroupData[{ @@ -11807,12 +14478,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[132]:=",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], + "In[144]:=",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.9913265303292294`*^9}, +Cell[BoxData["0.11447062330044823`"], "Output", + CellChangeTimes->{3.9913265303292294`*^9, 3.9942596707240343`*^9}, CellLabel-> - "Out[132]=",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] + "Out[144]=",ExpressionUUID->"15baee4f-a6f4-4d2f-9488-7f279401f64c"] }, Open ]], Cell[CellGroupData[{ @@ -11902,12 +14573,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[133]:=",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], + "In[145]:=",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.991326530340416*^9}, +Cell[BoxData["0.8855293766995518`"], "Output", + CellChangeTimes->{3.991326530340416*^9, 3.994259670738614*^9}, CellLabel-> - "Out[133]=",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] + "Out[145]=",ExpressionUUID->"806c32da-3829-4ae4-a97f-a01bef9e4532"] }, Open ]], Cell[CellGroupData[{ @@ -12030,12 +14701,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[134]:=",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], + "In[146]:=",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.991326530367384*^9}, +Cell[BoxData["0.1013670997016551`"], "Output", + CellChangeTimes->{3.991326530367384*^9, 3.9942596707546673`*^9}, CellLabel-> - "Out[134]=",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] + "Out[146]=",ExpressionUUID->"bbdf2f68-8ed1-4e9d-b1f9-547d6919dc07"] }, Open ]], Cell[CellGroupData[{ @@ -12050,30 +14721,34 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["1", "2"], + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}]}], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -12097,68 +14772,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991799912745739*^9},ExpressionUUID->"c3883d3a-8a99-644a-9175-\ -a97b5c6c44f4"], + CellChangeTimes->{3.991799912745739*^9}, + CellLabel-> + "In[147]:=",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 135, 73, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265303923836`*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.126086771589442`*^-221\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 147, 61, + 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265303923836`*^9, 3.9942596707739973`*^9}, CellLabel-> "During evaluation of \ -In[135]:=",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], +In[147]:=",ExpressionUUID->"60700b9b-2b71-4fc0-9dd0-cbc29da5ea29"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 135, 74, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265304013824`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.8793317661323697`*^-226\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 147, 62, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265303923836`*^9, 3.9942596707828093`*^9}, CellLabel-> "During evaluation of \ -In[135]:=",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], +In[147]:=",ExpressionUUID->"995d7a38-e211-4691-bd77-3db7e28c04f6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 135, - 75, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265304095325`*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.084453859531986`*^-232\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 147, 63, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265303923836`*^9, 3.994259670792844*^9}, CellLabel-> "During evaluation of \ -In[135]:=",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], +In[147]:=",ExpressionUUID->"fb970938-a57c-471e-a898-d87717cfbab9"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 135, 76, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265304175396`*^9}, +during this calculation.\"", 2, 147, 64, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265303923836`*^9, 3.994259670802987*^9}, CellLabel-> "During evaluation of \ -In[135]:=",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], +In[147]:=",ExpressionUUID->"82269849-0955-4eb4-b3f6-089370f3f635"], -Cell[BoxData["5.890521190513565`"], "Output", - CellChangeTimes->{3.9913265339749985`*^9}, +Cell[BoxData["11.81266461286979`"], "Output", + CellChangeTimes->{3.9913265339749985`*^9, 3.994259678416905*^9}, CellLabel-> - "Out[135]=",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] + "Out[147]=",ExpressionUUID->"26b858c8-b873-4083-92f9-4ece58ef3ec8"] }, Open ]], Cell[CellGroupData[{ @@ -12173,30 +14853,34 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["1", "2"], + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}]}], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -12220,68 +14904,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9917999175346184`*^9},ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-\ -bed1f30b804b"], + CellChangeTimes->{3.9917999175346184`*^9}, + CellLabel-> + "In[148]:=",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 136, 77, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265340092525`*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.126086771589442`*^-221\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 148, 65, + 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265340092525`*^9, 3.9942596784737253`*^9}, CellLabel-> "During evaluation of \ -In[136]:=",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], +In[148]:=",ExpressionUUID->"c5a60207-d5f0-4c93-9fe5-8c391348439c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 136, 78, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265340202503`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.8793317661323697`*^-226\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 148, 66, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265340092525`*^9, 3.994259678484346*^9}, CellLabel-> "During evaluation of \ -In[136]:=",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], +In[148]:=",ExpressionUUID->"4b5be3b0-b978-4c9c-b11b-6109a2842c40"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 136, - 79, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265340282536`*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.084453859531986`*^-232\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 148, 67, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265340092525`*^9, 3.994259678497197*^9}, CellLabel-> "During evaluation of \ -In[136]:=",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], +In[148]:=",ExpressionUUID->"66c76a10-1ecd-450b-8922-0116d5ab7937"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 136, 80, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265340354958`*^9}, +during this calculation.\"", 2, 148, 68, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265340092525`*^9, 3.9942596785082197`*^9}, CellLabel-> "During evaluation of \ -In[136]:=",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], +In[148]:=",ExpressionUUID->"9c75a4df-b241-4559-8cee-76dfc769e3c1"], -Cell[BoxData["8.00378114722308`"], "Output", - CellChangeTimes->{3.9913265375649567`*^9}, +Cell[BoxData["4.971214837576058`"], "Output", + CellChangeTimes->{3.9913265375649567`*^9, 3.994259685891073*^9}, CellLabel-> - "Out[136]=",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] + "Out[148]=",ExpressionUUID->"4071c75c-a6cc-4fd2-8f7a-68768e0baf44"] }, Open ]], Cell[CellGroupData[{ @@ -12339,92 +15028,95 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9917999220519733`*^9},ExpressionUUID->"d5c5d0e8-862b-f245-8b21-\ -eac61b5b75d3"], + CellChangeTimes->{3.9917999220519733`*^9}, + CellLabel-> + "In[149]:=",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nk4VdsbB3AJUYiEEJmLKJFZ1qvjUEKKMibOOXuThEy5iNzS7SZdStOT -UklJKHPhijQoR4RSfly0OeZ5OkfUb/ljP/v5PO/a3/XutZ69nq3CCD5I8PPx -8f3A1/L95Kdtm8uaPllWXpsxpP/BQ5ZjDw0Z1rnoWRbnuTV2d4ZRmrp1Jfog -/E6Fhu3EahASNXiLvmhevQDYBVHxtYLWbNSR69hngf33uw3V8Tmf0YZknrEJ -9sumk3cX9b+gX7/SzuhjD7V/jP2j4hvSild9tRVbvk/Nc47WgSIaM6fVsPeN -x5qGsbvQjzl5JQXsqsWhNVE5Pei51UVLSeyvCbIxpUEU2mU14yKEPSZkPTSj -34fU2Z6+C1E8JHQpxN1gnoNUf9UyR7GVJO/UnawYQPImel5d2I4Kc4/GaCMo -8r7a9mps8p6qjK7wGPIbKRR5hh2vsT/xOHschUcebk/H/ibbuiM8ZxI5nBo9 -EoHN8gg4dvXSFMrUH5bwwZ5I57tfGDSNhEsly/diC6vqSkzqz6KeaxNjcthp -rFpbCek5xDhaEs2HrfzYPX77/BwSqq9Y7DvFQyY658dOVHDRKo8nVB62v1EX -e4i2iL5pft+1A3smKkJgteYS2jIWHbsW+0zFGgst4V9o08/0gpFIHroJJk/9 -2L/Rgsv535nYrKw669CcFSCxaVFbCDvn3dXuBAV+kN2Tq9QRgfvt945NvcQP -7qk6IgXYsdqzRc+DVsKLpI+vXbHTnqmojesLAtfl3Yeb4TzU3jRS9StTEOZa -UASJrTxV5iEuLQS9UUOyBti5Ox2v6M4LgUyDMO1DGA+9eRm9IrBCGD5Xj+8Y -DOWh2dqWrgGaKNwYOxU/H8JD6+xFJWKqRGGFlRkvH1uv1RrETMVAspKyILAD -ekvu7dgmDmXeNqqfgnkohJ+tt0tUAij9r36pQTzUp5o/mTgnCVXnC6Y7j+P1 -IT+KNBqsA4FmU9k/sfmfclQ2nFwHZ49aCGlgKxtsOpgzvA6Kq1Rs/QJ4yIOW -UvipWwrqjdNdO/15qJEZGiZbLw2Lq2ca/iF46L/Hl5N8hGXAjaZTpow9MpyT -+YQuA9lRn048Z/HQ6nCqxbxaBpjO32lsJg9Zn3PZ6VMiCy5C367P+vJQ+UOj -2ewMObhsqcgV9+ahh30LkWbhiuAtyio7coiH9hz667+wPEWIed+T0OyC899I -2eRxFGEOedNtsHc+1JFWdleChTZOmbYzXk+Gd5Gg5SZwRQ77+514aGq8+9TA -WWWwDVvy327PQ1InrIuLHFSB9abDd9GKhzgPV/s7BahCbFDMTSfsFx1NCqPn -VUG2eEdDJvCQl/2Rs5rVqpCsfGuHLcL9bY08eEtfDSQaHIYTLPD8Q48n4mTV -oZs+YffeiIdc/Nbo2vVoAOPpguhVbR5CkYf0XZc0oOLeVWa9Fg9pJ2YYs+Q0 -YX6LWh0/Nl+mwe64A5pwtXqkImgzD+X95+laWKMJsQ1Zzubq+Ps8nJsg/2Az -+HRahTxWxP1ZO3wdYmgBEfGtgb2WhxRU/4lP6tWBhMbbdLdJLqq8OKPF49cF -doxnI5rgIq9p91ZSRRfyVNvtNce56O4bda3d3rqw3cFFfWKEi1T9ypu5bbog -My3ieGqAi7Rz+zTI+m1QrPOqxbmLixQVlEhldz1Aiinjtmwu0skKF/2J9KH7 -bc/x7ZlcdD9U3amEbQiB+0fOONlzUVMkMj6XZQobuzdFxXXPIxXvL45HAnfB -ibfpwqcC5hHxuzRf8Q+Ai1Inz4pPzyHZ4RerZBm7IWS9fOnmY3Mo3MCi44q2 -NfgkMZfkfswixuhindQQHWLehRaZu8+ivN1hqzIabaFvpkuKVjODHs4E1OSm -7YWOba/1k3fMIK7VhoY38ftA0lRyYP21adTJt3Kyx9cBjtbKla9anEJBG4NT -EtT2AxH2ef590BTKP1ZXfS3RCXwn/xeo9m0SRU/LzW89dgAKhk8I5ThOolk7 -m8Pvjx6EE6rsXPa/E8jUM9Wq74Az+Cf1PbHdOYGa5e4EvDFwAZnHO6/onBxH -8o/OVmZvOQSWox1VmcFj6EW3tr2j2GFQZETVPf57FCm1TvhFjh6GGib5kF44 -ggyupeZmdrvC9KOzN9a3DqM7AtPbrtS6Af9ZR76UtcOo1Gp7e+JLd1grbmzh -ZTOEbhpflFzM8YCafOmy7EuDqPF/WecNLnmC1xvzzV2DA6jEIV095IwXvJ6d -rDljPYAmTzjzBbGOwGf7WLpfcT+atdHyH6N5Q9uh4yNJev0oe/Q7N8zoKBwf -O/P736cc5HY/i3lE1AceXfgqZGbKQUWF+46u/MsHTt1ukBF934dMFZp5f/N8 -YFLwu+YFog+pdfu1fz7mCytmztDMxftQ75rj+9MpXzDWO2N3/UUvarrsyLQ9 -xIBEbm74eEgvSovKWBPRxADfjAK6rE4vqqz6zWPuZcIVCZt0g0kKrfWCvwzK -mZDYrN3ZVUMh5fXvGzdWMqHHwzVNFVuP7bBBqIoJ2zyFWohqCh208HzyrYYJ -Z/prOaNVFErbGFl/+gMT2m49JgUqKSTf+XRt3TcmTNCiX9mVUkjdW/am1zwT -jKRGUy2eUsjUZyw7cScLmlbXFhdep9CjWxNhjkYs6Ahvd1HBXt8yZSlrwoLP -79ceS7lGoTH6fGu2OQu8lF6OBqdR+DzgW8HezYJg0s5v5xUKic9Luq87wALH -mevSLckU6k02FMk4wQKXWd8dfokUOvDeuNUvGNej4/b0nqNQFZ9Zht5JFiwd -HWr2xb4VZmn4OpwFJl9uWHmfpZCju61vXwwLfqKMRK8ECr1Ud3+59SILBFo2 -ZQadptDlithjLx6xYNWn2dWDERQ6oX/DNCqbBb0O4x8ise2fFIiY5LDAzF94 -XgB79Q3Ok7I8FlQ2nrutGk6hxFCnodJiFtzTkRVjhlIoVkv9eMlrFnAETC5z -8X9DwI36wML/WMB/X4YT4U+hveIci9BuFpTEMY5KYm9J5BPT/8GCw1b6Nnl+ -FOKEGuYV9LEgYfc+Lw5JIV/HjNHnIywI6O59coSgkJtgWNCzBZzX2vLOh0Eh -2zD5kFwZAoZa/h584UWh1xnn7a5sICBm/n2+B7YFe0o9Sp6AosuOM4ueeP81 -6r/TlAjI5yrz0bDl2mJo/9MgIN5tv/wXdwoNm3XKrDYkYIaZ7CLpSqF/+O/9 -6+dMgHD9x1eDB/D7bxe96XCIAKPetnO3sc95RoUauBLQ7nHrgwN2VLHT5t8e -BGg/3NJc5IT7J1ekXmcQ4LYg0JW4n0IGHxmstycJaEvX7bVyoFBbqsYatRQC -7o0FJMjtpVA+EvMfSCVgXceIZ9cenD868ybvKgFr6o2zsrD1976JM7lBgOsX -xXMG2Jf5mFMOdwm40NwV6mJLIZvge9+jcgkYVJmTfEqnkKLiBSPLfALMzza0 -ncKe+Rh8deVzAuo6rEXp2A80kcPlIgI0hkVquq0ptNTZWZ1ZTkD/y6fuitjF -9grZn+oI+EI/QH+6m0JJC/yCaR8JcHZZPxOHzcge8nVnE/AgzlnSGVtCoFyh -t5GAid5dNxatKBRY4fYP7ysBBo4Xm1yw1bSvR6r3EXDaxmFeDii00Ha6ZZBD -wOKGvksziEJNiYTeswG8X+7tKY3YcT07h0xHCBDV+0qdx26/2XJk/zQBNbeo -kgVLCl1ZJUmPXkHCndJB4fldFKqc6vQMX0mCzmmRX63Y/Z05oUGCJFy6lxJb -hG1RbH2PIYLrag3Sodgcn6ifdpIk5PV8eDFrgfu3p6+jS5GwtGmc24ZtbrxO -C0mT8Kwt8HU5dopY7mEDORJq2wMmE5br5V0FCiokRAvTXslgk1m5ddJqJGws -XNq7ZI7Hp/zRtVaDhDVzK717sTmklJiAFgm3I0dVipfrUrb+I3okKNLE5Dyw -y39JxXP0SbAMXhq1xu4b7L7WvZMENc9t9nrYZtXRta0mJDDuOjwUxu4NzFf6 -F3A/9b61r8zw+eEWY1i2G+eXGv/Ixzal7bEvsCbBL4l+8S72Zbkff2TtISFc -RTAyHvuFwLOUDDsSdMVLXoZgU+Mxj2/Zk1Blfus8A9vknfSXZCcSdov8rLDF -ZhT8GP7rIAkHpE+pm2Mnpz/j/9OFhMNm6jLbsX+E7tWLdCMhgm/ttQ3YYt4y -tiEeJBg67lMVX87bSx0J8CLBQ7zURGD5+U2nk7x9SJC4uX7FlCnuZ7XdAzcG -CQOOq4oGsX/Myrw8yCKBfVBzrAdbrIdqtCdJuLDtZGE7tgn7OcfGn4T1Ef2/ -W7AZZaeXIIAEn5oLXxuwkx/YrTcPJCGr1MWobjk/WXarYRAJk7/tNtUu50f1 -Wm0PISHZ6XhqFbYoq8BNKxTPxyy5VI5tvD8uWC0c7+fSFsmy5XyzfecVI0no -73+rVIx9SWPDHdkoPH4+qaQAu1Sir0gymoQA4Zgvz7B7fhZ8XBNLwp9LV+Ly -l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk0Vd0bB3CEJEKZvWTuNZWuIUrtp9womTJkTLruPYZkfqUUKjSQZCiN +lFTmWab6NSiSoqgkc8i95nsMJeW37x9nnfVZe53v/j77rHXWUaIF2jF4uLi4 +JvDFuQe/37jhcdv7HbPaSdA3yUQ7Ju8b0KgFqPmeFYPj/kzDNFVqPZI9e6Gd +Y1v6O34hvVdow7udCf3YpRHRL/moLSg1OjxxAPvCa+ln0XkfUErGhi+D2DVt +wXeWKJ9Qh4TjkSFsVlfzyeN1nShg9u+eEWzZYRW3edNutGazWtAo9r6pk8ah +LX2otrGxn4X9dIm1OiJvAK2pGLkxgf35tFRkVcB3JDdz+s409iQ/lTVLGUYu +x6+Pkdj8iUEuegsjqNNM58wCtoLY7abgulHEa7+d9hvbWm7+waTpOJoX/Ph3 +xRQTEVnKkjoCk2jFwwN1AtjRajZxR1qmUCzN6bkwdqdUx+awvBk0vfZdrjQ2 +3dXPNzWRjRbJnYkK2NO3uO6WBZCoq4VSrYotoKwjOkOZQ9VG58c3Y6fRX5qL +SsyjsvLxWSNsxYcu0ZsW5lHqfIsZYBtpx08erfuJxO5wNdpg+xj2tbBMl9Bg +L8U4BHs24j9eQfU/qJs/7FIkdkzdahMNgb8o95SuVhx2Bhjle7csIy4xOdPr +nH45TdSQPG6Qa6gYasDOe53af1qOB5Zd38e2cfr+8Dh5JZEHpB7QArqxT2rO +lZcErAAK92/5OU7fYiWVKQof9FqMTmpMM1FX2/jTv9l8UMn3qWsLtiL7sesa +CX4wqN4maoZdoG+dorPAD6G3wp28sBtqTnD71wnAD99Mp7vYcy/b+0ZNhUDp +XraC1gwTrbUUEo18KgQWO9T0EbZuBxWEjYVhQZwryx7bb6gya/PGNXDv+bMT +p7CDeFp0twuJQrCsr8kn7GHlopm4eTHYelRrOo2Nz4doXtWqtxZUIjSPFGHz +5I8oSQevBcWcaJMmbEW99XZ5Y2thKlZrcAnb1TS57H3/OugVOWvsRzJRq1dI +qNRbCcgKX5JynGWi3odJCZ4CkpD8ZufPUOzxsbzs3N2SUMD4ujEVWzDse/u2 +Z5Jww+fvnY/Y1FgHfc9KKdD/KZXgOMdEtfcN5x5lysBM0d6UI/NMdH94MXxr +mDzk/nvGtfMnE+1xPNcbWigPs3RutIw93rDOrHBEHkT9awPUfzGR/n1tCUUX +BfDJ7yz+D7uB5lHOt2M92EQ/qZZaZCL2VP+x0bOKUL00OOT7m4nWHaVWlFsp +A7PE9r7ZXyYauS/oY+unDLlJflPh2NXdbXIT8crgmFAe9xDb3fLgWfVnylB4 ++EPqqmXcTyvc7jpFBUR6Nxt+wNZnPZyOklIFxU8bUwO4WcjBe7WOxYAafJc1 +yR/gZSEU7khx+qMGFtMCxrJ8LKQZl7mFLqMO7HAhEXtsrmy9XVH71UGytzL1 +FXZhr5tT2XN1uPY1brmQn4X4DxSclr23AcZvVnkmCrBQNdXqM4umATJDMmbR +QiyUbX/t20KUBrBTu74+w06iDfTz3tSAyR8vKnmEWYge89+YQrsGSAUImJ3D +Fqu/zWVvqgl/fJ2bUtewkJ/epGadihZ4pqfb14qykJzy5eiEIW3Iac+P2S7B +QvUXZzV+8ehAp6VaQBK2O+nSQSjpwH734JI+7DsNqhq7PHRgTjNK76wkCyl7 +1378+UUHDrx20HsvhectGFYj3m4Eo3SqTJgsC8nLKRCKLrogx/SPWF7PQto5 +YUK/EQViHu6zE9dmIRr97JyONQVyj+TcCMXOUEnp9XSngIBqkXY79op7xSWv +IyjAEHqjk6rDQl13WA4ppRSYfCV0X3ITC13I8LytoaIHaRtWeWpRWGgkwXKj +M78+eJNJIolGLHQ3RNW2ssUA5t4HSGmasVBbONoSm2MM8zzz8be9WUjJ45P1 +Qf/tUNH0TKPwEgsxlquK5I8D0FpeNrRVspDUWPVKKdouELw7fMN9hIXC9Ey6 +UzSpcGRUZJ+b9BiiTSw1rWPtBrb0pd/lVmOocFfoysxWcxA630h4Jo6h+7N+ +zwvS9oIBqA3ueTuGfu6UftcQvQ+W56kdBuLjqIdrxczAYStIj8vJjvQcRwH/ +BCafVrEBmaKbTYX546jIt+lZepwtCNQMjcVxT6ATpMyClu9+OGNtYxHrOIHm +LMwONB6yg7tZg9UJFRPI2O3KzuH99jBsP2JSKDGJPsrc9mvQc4CplbeFI0Mn +keyDs/WP/nUE9eLHdzy7J1F1v6altfABcBN5E8u3cwopdEx7h08cAJlBdZ7x +nCmkl36lILvfCdTfVW17LjiNbvOSG1NeOsNkrmttFppGVTs3dcXVuMDVkuGu +1OPTKGPLRbGlPFfYfCd2sKdsGrV+y4nXS3QDZkV/qu/oNKq0uqUaFOMOe0S5 +vfcrz6CZo/ZcAfSDMM11uHrGaQbNmWn4TJp6gGQ2deFLwgx6NPH1Z6jhIeC3 +GT8g/XIGOd/N8Too5AmyqnsknedmUHnZvkMrznnCc+2wcSFNNjKW+/jrwi9P +4A1n39zjwkYq/d5dH3wPA1dI68jRODYaWn3E5tb3w8Ce1qZdLmOjtiRrL3NH +GvALUCnNX9koLSJz9X9tNBDnte37wEWi+qfLv7z2esHjRnqbpQqJRNzhnF6t +F6yhzV56jUikKN7Y+k+9FzjV1/YYA4l0W6yk+Z96wamrpiMF2HYmbrmdz73A +Oc1VKWUnidL+CX976o0XvNBt2+5iSiLZnnyRpk4vqN2dwN1lRiJVD6kM9wUv +cFDIM82xIpGx5+SjOH06MIMjLQ+5kujB9elQa0M6iJkGD9Rgi7ezd0gZ0WGP +yKy+uBuJJncvdDzaRgfLwBCpJuz7WlzcLbvo4PVF9I32QRKtWRBzWbufDnc/ +DXQwD5Fo6JLBqsyjdAhu6gQKg0T7G7d0eAfS4fRY9pVY7KdcWzN1g+kgcvF6 +5mfs66E7DF6E0UFr8Sv7OEEiaxfzw8ORdNDMv/DfE28S1ai61GhdpMPT0aTB +LX4kSqo76Vv9gA7VFF3xRfwfcJRyzTjiER0EhNDZXYEksswtXWWUR4fOqu6S +i9iC10ZyHxfSISExy1w2iERxIbasqgo63DO2pRkGk+ikhuqRyhe4v/h1Ki2U +RH7X3vqX9dIhILQq5vwxEu1dM2IS0k+HDOGmkibsf+O4hCmDdFiqdLojEEGi +kRCDwtJhOkhofig9h33YOnOiZJwOfNrWNWeOk8iZLzSgeJEOQTbXTP0jSWQe +KhtUIMmA709MRYWjSfQiM94iRZoBK526b+7FNmlhq0bIMsDbUaQzDltX7e1X +UwUG7G9VpP3BlvkSafpNjQF2jot1ozEkGtvaIylowAA6hR1VcoZEl3mynnjb +M6DxwoOVvPF4/k1CGVaODGjylb1qiB3rFhGi58SA36JKHT7YERW2G5ZdGeDc +0uTRgn2Y4L5ylcaAeO3ywsvnSKTXTKO/CmZA8EC21soLJPpyRW21SjID0i4P +HatJIFEREvYZvcIAB0Vl4z7s2InZhsJUvP//bpbzJpKIsrchyugaA4bzN3VY +YydxebGt7jDgzFP7l33YZoFZXyMKGLA0HO44e4lE8vLnDXcUMeAkDT2SSCLR +bHNg6ooSBriJL5YbYt9TR1ZJ5QwQH9SfP4b9p6fnWXYtA4YK9qotYFdYyj16 +38SAtT6umqOXSZSwyMOX1swA6piDIF8yiWiPWIddWhhwbJ4rWwlblLdWbqiV +Aab1Hn9dsP3rnC//+syAyOJm90ZsFc2r4arDeD6mTWXaFRItfjnVzhxhwNjn +KoVC7LY4hm7xKAPmu6/BK+yoAX2W8TgDjt+sK5zF7spoP2hDMkD5rZ6ObQqJ +UlaK7T7BTcCNNoenv7Dr2T1uYSsI+N9896JIKol+9OSFBPARcOKdYK8atkkF +NYu2ioCXdnszbLFHPCN+W4gREOMw8+0utqjl7rW71xFQvdnMqhJ725a1GkiC +gCuv1BhN2MnCBQf0ZAg49yji/ARnvbavVE4J718sc1svjURETkGThAoBbZuC +dlGxk5OP94moERAgujXJAXuEWCfMq0FAq7u8TBhnfZ25z7gu7mf87XcRdu3f +ddEjFAJWBMR11GMPM/vT+/UJiLe7bN+MvfXZiZcdRgQM+NRQh7CH/IsUngAB +sfna5Lp0/P1wjjR4vIsAw67rfxWwjU33WJZSCZgtPlCigZ0kM3g8Zw8BOrRq +/h3Y1bzFyZkWBAiOu+SbY3+finx43ZKAJ8eo87bYRq8lPl2yJSA9eTKKhk0r +HRw7Z0eANeTX+2FfulXMc8aBAN4t+Vkh2IMhe3XDnQlo7wt0O40t7CFpHuSK +34cGhXKek7f3+0E/dwLsWJTiJM7z608leHgSQMsau3mD00fQ4p4zjYCle3dX +Z3Hy5iRr7OgEnDVMUcrh5A18b7UkCNgYX9+Ty8lrKRkx8yFg8O16KOL0e3zq +D/gRQLGt21PGyb9nIb7NnwAPv6SFSk7+JSktgwACLGIyLGs4+RFDOzcFEXCZ +/6t5PbYQvdRZI4QA/xgb5lPsLTZRgSphBHRE/9Z9zsnfui9ePpwA15xuhZfY +iWrSt6UiCLDNYpc1YFeJDpeLnSDgwcbtE6+wB36XNq8+ief5p/7da07+j6gB +vigCMs0CHRqxDT/u+7kcTUBa+oHTHP8f6lNCRg== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -12438,104 +15130,107 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk4VdsbB3AJUYiEEJmLKJFZ1qvjUEKKMibOOXuThEy5iNzS7SZdStOT -UklJKHPhijQoR4RSfly0OeZ5OkfUb/ljP/v5PO/a3/XutZ69nq3CCD5I8PPx -8f3A1/L95Kdtm8uaPllWXpsxpP/BQ5ZjDw0Z1rnoWRbnuTV2d4ZRmrp1Jfog -/E6Fhu3EahASNXiLvmhevQDYBVHxtYLWbNSR69hngf33uw3V8Tmf0YZknrEJ -9sumk3cX9b+gX7/SzuhjD7V/jP2j4hvSild9tRVbvk/Nc47WgSIaM6fVsPeN -x5qGsbvQjzl5JQXsqsWhNVE5Pei51UVLSeyvCbIxpUEU2mU14yKEPSZkPTSj -34fU2Z6+C1E8JHQpxN1gnoNUf9UyR7GVJO/UnawYQPImel5d2I4Kc4/GaCMo -8r7a9mps8p6qjK7wGPIbKRR5hh2vsT/xOHschUcebk/H/ibbuiM8ZxI5nBo9 -EoHN8gg4dvXSFMrUH5bwwZ5I57tfGDSNhEsly/diC6vqSkzqz6KeaxNjcthp -rFpbCek5xDhaEs2HrfzYPX77/BwSqq9Y7DvFQyY658dOVHDRKo8nVB62v1EX -e4i2iL5pft+1A3smKkJgteYS2jIWHbsW+0zFGgst4V9o08/0gpFIHroJJk/9 -2L/Rgsv535nYrKw669CcFSCxaVFbCDvn3dXuBAV+kN2Tq9QRgfvt945NvcQP -7qk6IgXYsdqzRc+DVsKLpI+vXbHTnqmojesLAtfl3Yeb4TzU3jRS9StTEOZa -UASJrTxV5iEuLQS9UUOyBti5Ox2v6M4LgUyDMO1DGA+9eRm9IrBCGD5Xj+8Y -DOWh2dqWrgGaKNwYOxU/H8JD6+xFJWKqRGGFlRkvH1uv1RrETMVAspKyILAD -ekvu7dgmDmXeNqqfgnkohJ+tt0tUAij9r36pQTzUp5o/mTgnCVXnC6Y7j+P1 -IT+KNBqsA4FmU9k/sfmfclQ2nFwHZ49aCGlgKxtsOpgzvA6Kq1Rs/QJ4yIOW -UvipWwrqjdNdO/15qJEZGiZbLw2Lq2ca/iF46L/Hl5N8hGXAjaZTpow9MpyT -+YQuA9lRn048Z/HQ6nCqxbxaBpjO32lsJg9Zn3PZ6VMiCy5C367P+vJQ+UOj -2ewMObhsqcgV9+ahh30LkWbhiuAtyio7coiH9hz667+wPEWIed+T0OyC899I -2eRxFGEOedNtsHc+1JFWdleChTZOmbYzXk+Gd5Gg5SZwRQ77+514aGq8+9TA -WWWwDVvy327PQ1InrIuLHFSB9abDd9GKhzgPV/s7BahCbFDMTSfsFx1NCqPn -VUG2eEdDJvCQl/2Rs5rVqpCsfGuHLcL9bY08eEtfDSQaHIYTLPD8Q48n4mTV -oZs+YffeiIdc/Nbo2vVoAOPpguhVbR5CkYf0XZc0oOLeVWa9Fg9pJ2YYs+Q0 -YX6LWh0/Nl+mwe64A5pwtXqkImgzD+X95+laWKMJsQ1Zzubq+Ps8nJsg/2Az -+HRahTxWxP1ZO3wdYmgBEfGtgb2WhxRU/4lP6tWBhMbbdLdJLqq8OKPF49cF -doxnI5rgIq9p91ZSRRfyVNvtNce56O4bda3d3rqw3cFFfWKEi1T9ypu5bbog -My3ieGqAi7Rz+zTI+m1QrPOqxbmLixQVlEhldz1Aiinjtmwu0skKF/2J9KH7 -bc/x7ZlcdD9U3amEbQiB+0fOONlzUVMkMj6XZQobuzdFxXXPIxXvL45HAnfB -ibfpwqcC5hHxuzRf8Q+Ai1Inz4pPzyHZ4RerZBm7IWS9fOnmY3Mo3MCi44q2 -NfgkMZfkfswixuhindQQHWLehRaZu8+ivN1hqzIabaFvpkuKVjODHs4E1OSm -7YWOba/1k3fMIK7VhoY38ftA0lRyYP21adTJt3Kyx9cBjtbKla9anEJBG4NT -EtT2AxH2ef590BTKP1ZXfS3RCXwn/xeo9m0SRU/LzW89dgAKhk8I5ThOolk7 -m8Pvjx6EE6rsXPa/E8jUM9Wq74Az+Cf1PbHdOYGa5e4EvDFwAZnHO6/onBxH -8o/OVmZvOQSWox1VmcFj6EW3tr2j2GFQZETVPf57FCm1TvhFjh6GGib5kF44 -ggyupeZmdrvC9KOzN9a3DqM7AtPbrtS6Af9ZR76UtcOo1Gp7e+JLd1grbmzh -ZTOEbhpflFzM8YCafOmy7EuDqPF/WecNLnmC1xvzzV2DA6jEIV095IwXvJ6d -rDljPYAmTzjzBbGOwGf7WLpfcT+atdHyH6N5Q9uh4yNJev0oe/Q7N8zoKBwf -O/P736cc5HY/i3lE1AceXfgqZGbKQUWF+46u/MsHTt1ukBF934dMFZp5f/N8 -YFLwu+YFog+pdfu1fz7mCytmztDMxftQ75rj+9MpXzDWO2N3/UUvarrsyLQ9 -xIBEbm74eEgvSovKWBPRxADfjAK6rE4vqqz6zWPuZcIVCZt0g0kKrfWCvwzK -mZDYrN3ZVUMh5fXvGzdWMqHHwzVNFVuP7bBBqIoJ2zyFWohqCh208HzyrYYJ -Z/prOaNVFErbGFl/+gMT2m49JgUqKSTf+XRt3TcmTNCiX9mVUkjdW/am1zwT -jKRGUy2eUsjUZyw7cScLmlbXFhdep9CjWxNhjkYs6Ahvd1HBXt8yZSlrwoLP -79ceS7lGoTH6fGu2OQu8lF6OBqdR+DzgW8HezYJg0s5v5xUKic9Luq87wALH -mevSLckU6k02FMk4wQKXWd8dfokUOvDeuNUvGNej4/b0nqNQFZ9Zht5JFiwd -HWr2xb4VZmn4OpwFJl9uWHmfpZCju61vXwwLfqKMRK8ECr1Ud3+59SILBFo2 -ZQadptDlithjLx6xYNWn2dWDERQ6oX/DNCqbBb0O4x8ise2fFIiY5LDAzF94 -XgB79Q3Ok7I8FlQ2nrutGk6hxFCnodJiFtzTkRVjhlIoVkv9eMlrFnAETC5z -8X9DwI36wML/WMB/X4YT4U+hveIci9BuFpTEMY5KYm9J5BPT/8GCw1b6Nnl+ -FOKEGuYV9LEgYfc+Lw5JIV/HjNHnIywI6O59coSgkJtgWNCzBZzX2vLOh0Eh -2zD5kFwZAoZa/h584UWh1xnn7a5sICBm/n2+B7YFe0o9Sp6AosuOM4ueeP81 -6r/TlAjI5yrz0bDl2mJo/9MgIN5tv/wXdwoNm3XKrDYkYIaZ7CLpSqF/+O/9 -6+dMgHD9x1eDB/D7bxe96XCIAKPetnO3sc95RoUauBLQ7nHrgwN2VLHT5t8e -BGg/3NJc5IT7J1ekXmcQ4LYg0JW4n0IGHxmstycJaEvX7bVyoFBbqsYatRQC -7o0FJMjtpVA+EvMfSCVgXceIZ9cenD868ybvKgFr6o2zsrD1976JM7lBgOsX -xXMG2Jf5mFMOdwm40NwV6mJLIZvge9+jcgkYVJmTfEqnkKLiBSPLfALMzza0 -ncKe+Rh8deVzAuo6rEXp2A80kcPlIgI0hkVquq0ptNTZWZ1ZTkD/y6fuitjF -9grZn+oI+EI/QH+6m0JJC/yCaR8JcHZZPxOHzcge8nVnE/AgzlnSGVtCoFyh -t5GAid5dNxatKBRY4fYP7ysBBo4Xm1yw1bSvR6r3EXDaxmFeDii00Ha6ZZBD -wOKGvksziEJNiYTeswG8X+7tKY3YcT07h0xHCBDV+0qdx26/2XJk/zQBNbeo -kgVLCl1ZJUmPXkHCndJB4fldFKqc6vQMX0mCzmmRX63Y/Z05oUGCJFy6lxJb -hG1RbH2PIYLrag3Sodgcn6ifdpIk5PV8eDFrgfu3p6+jS5GwtGmc24ZtbrxO -C0mT8Kwt8HU5dopY7mEDORJq2wMmE5br5V0FCiokRAvTXslgk1m5ddJqJGws -XNq7ZI7Hp/zRtVaDhDVzK717sTmklJiAFgm3I0dVipfrUrb+I3okKNLE5Dyw -y39JxXP0SbAMXhq1xu4b7L7WvZMENc9t9nrYZtXRta0mJDDuOjwUxu4NzFf6 -F3A/9b61r8zw+eEWY1i2G+eXGv/Ixzal7bEvsCbBL4l+8S72Zbkff2TtISFc -RTAyHvuFwLOUDDsSdMVLXoZgU+Mxj2/Zk1Blfus8A9vknfSXZCcSdov8rLDF -ZhT8GP7rIAkHpE+pm2Mnpz/j/9OFhMNm6jLbsX+E7tWLdCMhgm/ttQ3YYt4y -tiEeJBg67lMVX87bSx0J8CLBQ7zURGD5+U2nk7x9SJC4uX7FlCnuZ7XdAzcG -CQOOq4oGsX/Myrw8yCKBfVBzrAdbrIdqtCdJuLDtZGE7tgn7OcfGn4T1Ef2/ -W7AZZaeXIIAEn5oLXxuwkx/YrTcPJCGr1MWobjk/WXarYRAJk7/tNtUu50f1 -Wm0PISHZ6XhqFbYoq8BNKxTPxyy5VI5tvD8uWC0c7+fSFsmy5XyzfecVI0no -73+rVIx9SWPDHdkoPH4+qaQAu1Sir0gymoQA4Zgvz7B7fhZ8XBNLwp9LV+Ly -l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx +1:eJwV1nk0Vd0bB3CEJEKZvWTuNZWuIUrtp9womTJkTLruPYZkfqUUKjSQZCiN +lFTmWab6NSiSoqgkc8i95nsMJeW37x9nnfVZe53v/j77rHXWUaIF2jF4uLi4 +JvDFuQe/37jhcdv7HbPaSdA3yUQ7Ju8b0KgFqPmeFYPj/kzDNFVqPZI9e6Gd +Y1v6O34hvVdow7udCf3YpRHRL/moLSg1OjxxAPvCa+ln0XkfUErGhi+D2DVt +wXeWKJ9Qh4TjkSFsVlfzyeN1nShg9u+eEWzZYRW3edNutGazWtAo9r6pk8ah +LX2otrGxn4X9dIm1OiJvAK2pGLkxgf35tFRkVcB3JDdz+s409iQ/lTVLGUYu +x6+Pkdj8iUEuegsjqNNM58wCtoLY7abgulHEa7+d9hvbWm7+waTpOJoX/Ph3 +xRQTEVnKkjoCk2jFwwN1AtjRajZxR1qmUCzN6bkwdqdUx+awvBk0vfZdrjQ2 +3dXPNzWRjRbJnYkK2NO3uO6WBZCoq4VSrYotoKwjOkOZQ9VG58c3Y6fRX5qL +SsyjsvLxWSNsxYcu0ZsW5lHqfIsZYBtpx08erfuJxO5wNdpg+xj2tbBMl9Bg +L8U4BHs24j9eQfU/qJs/7FIkdkzdahMNgb8o95SuVhx2Bhjle7csIy4xOdPr +nH45TdSQPG6Qa6gYasDOe53af1qOB5Zd38e2cfr+8Dh5JZEHpB7QArqxT2rO +lZcErAAK92/5OU7fYiWVKQof9FqMTmpMM1FX2/jTv9l8UMn3qWsLtiL7sesa +CX4wqN4maoZdoG+dorPAD6G3wp28sBtqTnD71wnAD99Mp7vYcy/b+0ZNhUDp +XraC1gwTrbUUEo18KgQWO9T0EbZuBxWEjYVhQZwryx7bb6gya/PGNXDv+bMT +p7CDeFp0twuJQrCsr8kn7GHlopm4eTHYelRrOo2Nz4doXtWqtxZUIjSPFGHz +5I8oSQevBcWcaJMmbEW99XZ5Y2thKlZrcAnb1TS57H3/OugVOWvsRzJRq1dI +qNRbCcgKX5JynGWi3odJCZ4CkpD8ZufPUOzxsbzs3N2SUMD4ujEVWzDse/u2 +Z5Jww+fvnY/Y1FgHfc9KKdD/KZXgOMdEtfcN5x5lysBM0d6UI/NMdH94MXxr +mDzk/nvGtfMnE+1xPNcbWigPs3RutIw93rDOrHBEHkT9awPUfzGR/n1tCUUX +BfDJ7yz+D7uB5lHOt2M92EQ/qZZaZCL2VP+x0bOKUL00OOT7m4nWHaVWlFsp +A7PE9r7ZXyYauS/oY+unDLlJflPh2NXdbXIT8crgmFAe9xDb3fLgWfVnylB4 ++EPqqmXcTyvc7jpFBUR6Nxt+wNZnPZyOklIFxU8bUwO4WcjBe7WOxYAafJc1 +yR/gZSEU7khx+qMGFtMCxrJ8LKQZl7mFLqMO7HAhEXtsrmy9XVH71UGytzL1 +FXZhr5tT2XN1uPY1brmQn4X4DxSclr23AcZvVnkmCrBQNdXqM4umATJDMmbR +QiyUbX/t20KUBrBTu74+w06iDfTz3tSAyR8vKnmEWYge89+YQrsGSAUImJ3D +Fqu/zWVvqgl/fJ2bUtewkJ/epGadihZ4pqfb14qykJzy5eiEIW3Iac+P2S7B +QvUXZzV+8ehAp6VaQBK2O+nSQSjpwH734JI+7DsNqhq7PHRgTjNK76wkCyl7 +1378+UUHDrx20HsvhectGFYj3m4Eo3SqTJgsC8nLKRCKLrogx/SPWF7PQto5 +YUK/EQViHu6zE9dmIRr97JyONQVyj+TcCMXOUEnp9XSngIBqkXY79op7xSWv +IyjAEHqjk6rDQl13WA4ppRSYfCV0X3ITC13I8LytoaIHaRtWeWpRWGgkwXKj +M78+eJNJIolGLHQ3RNW2ssUA5t4HSGmasVBbONoSm2MM8zzz8be9WUjJ45P1 +Qf/tUNH0TKPwEgsxlquK5I8D0FpeNrRVspDUWPVKKdouELw7fMN9hIXC9Ey6 +UzSpcGRUZJ+b9BiiTSw1rWPtBrb0pd/lVmOocFfoysxWcxA630h4Jo6h+7N+ +zwvS9oIBqA3ueTuGfu6UftcQvQ+W56kdBuLjqIdrxczAYStIj8vJjvQcRwH/ +BCafVrEBmaKbTYX546jIt+lZepwtCNQMjcVxT6ATpMyClu9+OGNtYxHrOIHm +LMwONB6yg7tZg9UJFRPI2O3KzuH99jBsP2JSKDGJPsrc9mvQc4CplbeFI0Mn +keyDs/WP/nUE9eLHdzy7J1F1v6altfABcBN5E8u3cwopdEx7h08cAJlBdZ7x +nCmkl36lILvfCdTfVW17LjiNbvOSG1NeOsNkrmttFppGVTs3dcXVuMDVkuGu +1OPTKGPLRbGlPFfYfCd2sKdsGrV+y4nXS3QDZkV/qu/oNKq0uqUaFOMOe0S5 +vfcrz6CZo/ZcAfSDMM11uHrGaQbNmWn4TJp6gGQ2deFLwgx6NPH1Z6jhIeC3 +GT8g/XIGOd/N8Too5AmyqnsknedmUHnZvkMrznnCc+2wcSFNNjKW+/jrwi9P +4A1n39zjwkYq/d5dH3wPA1dI68jRODYaWn3E5tb3w8Ce1qZdLmOjtiRrL3NH +GvALUCnNX9koLSJz9X9tNBDnte37wEWi+qfLv7z2esHjRnqbpQqJRNzhnF6t +F6yhzV56jUikKN7Y+k+9FzjV1/YYA4l0W6yk+Z96wamrpiMF2HYmbrmdz73A +Oc1VKWUnidL+CX976o0XvNBt2+5iSiLZnnyRpk4vqN2dwN1lRiJVD6kM9wUv +cFDIM82xIpGx5+SjOH06MIMjLQ+5kujB9elQa0M6iJkGD9Rgi7ezd0gZ0WGP +yKy+uBuJJncvdDzaRgfLwBCpJuz7WlzcLbvo4PVF9I32QRKtWRBzWbufDnc/ +DXQwD5Fo6JLBqsyjdAhu6gQKg0T7G7d0eAfS4fRY9pVY7KdcWzN1g+kgcvF6 +5mfs66E7DF6E0UFr8Sv7OEEiaxfzw8ORdNDMv/DfE28S1ai61GhdpMPT0aTB +LX4kSqo76Vv9gA7VFF3xRfwfcJRyzTjiER0EhNDZXYEksswtXWWUR4fOqu6S +i9iC10ZyHxfSISExy1w2iERxIbasqgo63DO2pRkGk+ikhuqRyhe4v/h1Ki2U +RH7X3vqX9dIhILQq5vwxEu1dM2IS0k+HDOGmkibsf+O4hCmDdFiqdLojEEGi +kRCDwtJhOkhofig9h33YOnOiZJwOfNrWNWeOk8iZLzSgeJEOQTbXTP0jSWQe +KhtUIMmA709MRYWjSfQiM94iRZoBK526b+7FNmlhq0bIMsDbUaQzDltX7e1X +UwUG7G9VpP3BlvkSafpNjQF2jot1ozEkGtvaIylowAA6hR1VcoZEl3mynnjb +M6DxwoOVvPF4/k1CGVaODGjylb1qiB3rFhGi58SA36JKHT7YERW2G5ZdGeDc +0uTRgn2Y4L5ylcaAeO3ywsvnSKTXTKO/CmZA8EC21soLJPpyRW21SjID0i4P +HatJIFEREvYZvcIAB0Vl4z7s2InZhsJUvP//bpbzJpKIsrchyugaA4bzN3VY +YydxebGt7jDgzFP7l33YZoFZXyMKGLA0HO44e4lE8vLnDXcUMeAkDT2SSCLR +bHNg6ooSBriJL5YbYt9TR1ZJ5QwQH9SfP4b9p6fnWXYtA4YK9qotYFdYyj16 +38SAtT6umqOXSZSwyMOX1swA6piDIF8yiWiPWIddWhhwbJ4rWwlblLdWbqiV +Aab1Hn9dsP3rnC//+syAyOJm90ZsFc2r4arDeD6mTWXaFRItfjnVzhxhwNjn +KoVC7LY4hm7xKAPmu6/BK+yoAX2W8TgDjt+sK5zF7spoP2hDMkD5rZ6ObQqJ +UlaK7T7BTcCNNoenv7Dr2T1uYSsI+N9896JIKol+9OSFBPARcOKdYK8atkkF +NYu2ioCXdnszbLFHPCN+W4gREOMw8+0utqjl7rW71xFQvdnMqhJ725a1GkiC +gCuv1BhN2MnCBQf0ZAg49yji/ARnvbavVE4J718sc1svjURETkGThAoBbZuC +dlGxk5OP94moERAgujXJAXuEWCfMq0FAq7u8TBhnfZ25z7gu7mf87XcRdu3f +ddEjFAJWBMR11GMPM/vT+/UJiLe7bN+MvfXZiZcdRgQM+NRQh7CH/IsUngAB +sfna5Lp0/P1wjjR4vIsAw67rfxWwjU33WJZSCZgtPlCigZ0kM3g8Zw8BOrRq +/h3Y1bzFyZkWBAiOu+SbY3+finx43ZKAJ8eo87bYRq8lPl2yJSA9eTKKhk0r +HRw7Z0eANeTX+2FfulXMc8aBAN4t+Vkh2IMhe3XDnQlo7wt0O40t7CFpHuSK +34cGhXKek7f3+0E/dwLsWJTiJM7z608leHgSQMsau3mD00fQ4p4zjYCle3dX +Z3Hy5iRr7OgEnDVMUcrh5A18b7UkCNgYX9+Ty8lrKRkx8yFg8O16KOL0e3zq +D/gRQLGt21PGyb9nIb7NnwAPv6SFSk7+JSktgwACLGIyLGs4+RFDOzcFEXCZ +/6t5PbYQvdRZI4QA/xgb5lPsLTZRgSphBHRE/9Z9zsnfui9ePpwA15xuhZfY +iWrSt6UiCLDNYpc1YFeJDpeLnSDgwcbtE6+wB36XNq8+ief5p/7da07+j6gB +vigCMs0CHRqxDT/u+7kcTUBa+oHTHP8f6lNCRg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6007907022525464, - 1.5921070201523966`}}, + "PlotRange" -> {{0, 180}, {0.8104091893050325, + 1.2240672161363806`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6007907022525477}, + "AxesOrigin" -> {0, 0.8104091893050342}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -12547,21 +15242,21 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6007907022525464, - 1.5921070201523966`}}, + "PlotRange" -> {{0, 180}, {0.8104091893050325, + 1.2240672161363806`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6007907022525477}, + "AxesOrigin" -> {0, 0.8104091893050342}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -12575,102 +15270,105 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk4VdsbB3AJUYiEEJmLKJFZ1qvjUEKKMibOOXuThEy5iNzS7SZdStOT -UklJKHPhijQoR4RSfly0OeZ5OkfUb/ljP/v5PO/a3/XutZ69nq3CCD5I8PPx -8f3A1/L95Kdtm8uaPllWXpsxpP/BQ5ZjDw0Z1rnoWRbnuTV2d4ZRmrp1Jfog -/E6Fhu3EahASNXiLvmhevQDYBVHxtYLWbNSR69hngf33uw3V8Tmf0YZknrEJ -9sumk3cX9b+gX7/SzuhjD7V/jP2j4hvSild9tRVbvk/Nc47WgSIaM6fVsPeN -x5qGsbvQjzl5JQXsqsWhNVE5Pei51UVLSeyvCbIxpUEU2mU14yKEPSZkPTSj -34fU2Z6+C1E8JHQpxN1gnoNUf9UyR7GVJO/UnawYQPImel5d2I4Kc4/GaCMo -8r7a9mps8p6qjK7wGPIbKRR5hh2vsT/xOHschUcebk/H/ibbuiM8ZxI5nBo9 -EoHN8gg4dvXSFMrUH5bwwZ5I57tfGDSNhEsly/diC6vqSkzqz6KeaxNjcthp -rFpbCek5xDhaEs2HrfzYPX77/BwSqq9Y7DvFQyY658dOVHDRKo8nVB62v1EX -e4i2iL5pft+1A3smKkJgteYS2jIWHbsW+0zFGgst4V9o08/0gpFIHroJJk/9 -2L/Rgsv535nYrKw669CcFSCxaVFbCDvn3dXuBAV+kN2Tq9QRgfvt945NvcQP -7qk6IgXYsdqzRc+DVsKLpI+vXbHTnqmojesLAtfl3Yeb4TzU3jRS9StTEOZa -UASJrTxV5iEuLQS9UUOyBti5Ox2v6M4LgUyDMO1DGA+9eRm9IrBCGD5Xj+8Y -DOWh2dqWrgGaKNwYOxU/H8JD6+xFJWKqRGGFlRkvH1uv1RrETMVAspKyILAD -ekvu7dgmDmXeNqqfgnkohJ+tt0tUAij9r36pQTzUp5o/mTgnCVXnC6Y7j+P1 -IT+KNBqsA4FmU9k/sfmfclQ2nFwHZ49aCGlgKxtsOpgzvA6Kq1Rs/QJ4yIOW -UvipWwrqjdNdO/15qJEZGiZbLw2Lq2ca/iF46L/Hl5N8hGXAjaZTpow9MpyT -+YQuA9lRn048Z/HQ6nCqxbxaBpjO32lsJg9Zn3PZ6VMiCy5C367P+vJQ+UOj -2ewMObhsqcgV9+ahh30LkWbhiuAtyio7coiH9hz667+wPEWIed+T0OyC899I -2eRxFGEOedNtsHc+1JFWdleChTZOmbYzXk+Gd5Gg5SZwRQ77+514aGq8+9TA -WWWwDVvy327PQ1InrIuLHFSB9abDd9GKhzgPV/s7BahCbFDMTSfsFx1NCqPn -VUG2eEdDJvCQl/2Rs5rVqpCsfGuHLcL9bY08eEtfDSQaHIYTLPD8Q48n4mTV -oZs+YffeiIdc/Nbo2vVoAOPpguhVbR5CkYf0XZc0oOLeVWa9Fg9pJ2YYs+Q0 -YX6LWh0/Nl+mwe64A5pwtXqkImgzD+X95+laWKMJsQ1Zzubq+Ps8nJsg/2Az -+HRahTxWxP1ZO3wdYmgBEfGtgb2WhxRU/4lP6tWBhMbbdLdJLqq8OKPF49cF -doxnI5rgIq9p91ZSRRfyVNvtNce56O4bda3d3rqw3cFFfWKEi1T9ypu5bbog -My3ieGqAi7Rz+zTI+m1QrPOqxbmLixQVlEhldz1Aiinjtmwu0skKF/2J9KH7 -bc/x7ZlcdD9U3amEbQiB+0fOONlzUVMkMj6XZQobuzdFxXXPIxXvL45HAnfB -ibfpwqcC5hHxuzRf8Q+Ai1Inz4pPzyHZ4RerZBm7IWS9fOnmY3Mo3MCi44q2 -NfgkMZfkfswixuhindQQHWLehRaZu8+ivN1hqzIabaFvpkuKVjODHs4E1OSm -7YWOba/1k3fMIK7VhoY38ftA0lRyYP21adTJt3Kyx9cBjtbKla9anEJBG4NT -EtT2AxH2ef590BTKP1ZXfS3RCXwn/xeo9m0SRU/LzW89dgAKhk8I5ThOolk7 -m8Pvjx6EE6rsXPa/E8jUM9Wq74Az+Cf1PbHdOYGa5e4EvDFwAZnHO6/onBxH -8o/OVmZvOQSWox1VmcFj6EW3tr2j2GFQZETVPf57FCm1TvhFjh6GGib5kF44 -ggyupeZmdrvC9KOzN9a3DqM7AtPbrtS6Af9ZR76UtcOo1Gp7e+JLd1grbmzh -ZTOEbhpflFzM8YCafOmy7EuDqPF/WecNLnmC1xvzzV2DA6jEIV095IwXvJ6d -rDljPYAmTzjzBbGOwGf7WLpfcT+atdHyH6N5Q9uh4yNJev0oe/Q7N8zoKBwf -O/P736cc5HY/i3lE1AceXfgqZGbKQUWF+46u/MsHTt1ukBF934dMFZp5f/N8 -YFLwu+YFog+pdfu1fz7mCytmztDMxftQ75rj+9MpXzDWO2N3/UUvarrsyLQ9 -xIBEbm74eEgvSovKWBPRxADfjAK6rE4vqqz6zWPuZcIVCZt0g0kKrfWCvwzK -mZDYrN3ZVUMh5fXvGzdWMqHHwzVNFVuP7bBBqIoJ2zyFWohqCh208HzyrYYJ -Z/prOaNVFErbGFl/+gMT2m49JgUqKSTf+XRt3TcmTNCiX9mVUkjdW/am1zwT -jKRGUy2eUsjUZyw7cScLmlbXFhdep9CjWxNhjkYs6Ahvd1HBXt8yZSlrwoLP -79ceS7lGoTH6fGu2OQu8lF6OBqdR+DzgW8HezYJg0s5v5xUKic9Luq87wALH -mevSLckU6k02FMk4wQKXWd8dfokUOvDeuNUvGNej4/b0nqNQFZ9Zht5JFiwd -HWr2xb4VZmn4OpwFJl9uWHmfpZCju61vXwwLfqKMRK8ECr1Ud3+59SILBFo2 -ZQadptDlithjLx6xYNWn2dWDERQ6oX/DNCqbBb0O4x8ise2fFIiY5LDAzF94 -XgB79Q3Ok7I8FlQ2nrutGk6hxFCnodJiFtzTkRVjhlIoVkv9eMlrFnAETC5z -8X9DwI36wML/WMB/X4YT4U+hveIci9BuFpTEMY5KYm9J5BPT/8GCw1b6Nnl+ -FOKEGuYV9LEgYfc+Lw5JIV/HjNHnIywI6O59coSgkJtgWNCzBZzX2vLOh0Eh -2zD5kFwZAoZa/h584UWh1xnn7a5sICBm/n2+B7YFe0o9Sp6AosuOM4ueeP81 -6r/TlAjI5yrz0bDl2mJo/9MgIN5tv/wXdwoNm3XKrDYkYIaZ7CLpSqF/+O/9 -6+dMgHD9x1eDB/D7bxe96XCIAKPetnO3sc95RoUauBLQ7nHrgwN2VLHT5t8e -BGg/3NJc5IT7J1ekXmcQ4LYg0JW4n0IGHxmstycJaEvX7bVyoFBbqsYatRQC -7o0FJMjtpVA+EvMfSCVgXceIZ9cenD868ybvKgFr6o2zsrD1976JM7lBgOsX -xXMG2Jf5mFMOdwm40NwV6mJLIZvge9+jcgkYVJmTfEqnkKLiBSPLfALMzza0 -ncKe+Rh8deVzAuo6rEXp2A80kcPlIgI0hkVquq0ptNTZWZ1ZTkD/y6fuitjF -9grZn+oI+EI/QH+6m0JJC/yCaR8JcHZZPxOHzcge8nVnE/AgzlnSGVtCoFyh -t5GAid5dNxatKBRY4fYP7ysBBo4Xm1yw1bSvR6r3EXDaxmFeDii00Ha6ZZBD -wOKGvksziEJNiYTeswG8X+7tKY3YcT07h0xHCBDV+0qdx26/2XJk/zQBNbeo -kgVLCl1ZJUmPXkHCndJB4fldFKqc6vQMX0mCzmmRX63Y/Z05oUGCJFy6lxJb -hG1RbH2PIYLrag3Sodgcn6ifdpIk5PV8eDFrgfu3p6+jS5GwtGmc24ZtbrxO -C0mT8Kwt8HU5dopY7mEDORJq2wMmE5br5V0FCiokRAvTXslgk1m5ddJqJGws -XNq7ZI7Hp/zRtVaDhDVzK717sTmklJiAFgm3I0dVipfrUrb+I3okKNLE5Dyw -y39JxXP0SbAMXhq1xu4b7L7WvZMENc9t9nrYZtXRta0mJDDuOjwUxu4NzFf6 -F3A/9b61r8zw+eEWY1i2G+eXGv/Ixzal7bEvsCbBL4l+8S72Zbkff2TtISFc -RTAyHvuFwLOUDDsSdMVLXoZgU+Mxj2/Zk1Blfus8A9vknfSXZCcSdov8rLDF -ZhT8GP7rIAkHpE+pm2Mnpz/j/9OFhMNm6jLbsX+E7tWLdCMhgm/ttQ3YYt4y -tiEeJBg67lMVX87bSx0J8CLBQ7zURGD5+U2nk7x9SJC4uX7FlCnuZ7XdAzcG -CQOOq4oGsX/Myrw8yCKBfVBzrAdbrIdqtCdJuLDtZGE7tgn7OcfGn4T1Ef2/ -W7AZZaeXIIAEn5oLXxuwkx/YrTcPJCGr1MWobjk/WXarYRAJk7/tNtUu50f1 -Wm0PISHZ6XhqFbYoq8BNKxTPxyy5VI5tvD8uWC0c7+fSFsmy5XyzfecVI0no -73+rVIx9SWPDHdkoPH4+qaQAu1Sir0gymoQA4Zgvz7B7fhZ8XBNLwp9LV+Ly -l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx +1:eJwV1nk0Vd0bB3CEJEKZvWTuNZWuIUrtp9womTJkTLruPYZkfqUUKjSQZCiN +lFTmWab6NSiSoqgkc8i95nsMJeW37x9nnfVZe53v/j77rHXWUaIF2jF4uLi4 +JvDFuQe/37jhcdv7HbPaSdA3yUQ7Ju8b0KgFqPmeFYPj/kzDNFVqPZI9e6Gd +Y1v6O34hvVdow7udCf3YpRHRL/moLSg1OjxxAPvCa+ln0XkfUErGhi+D2DVt +wXeWKJ9Qh4TjkSFsVlfzyeN1nShg9u+eEWzZYRW3edNutGazWtAo9r6pk8ah +LX2otrGxn4X9dIm1OiJvAK2pGLkxgf35tFRkVcB3JDdz+s409iQ/lTVLGUYu +x6+Pkdj8iUEuegsjqNNM58wCtoLY7abgulHEa7+d9hvbWm7+waTpOJoX/Ph3 +xRQTEVnKkjoCk2jFwwN1AtjRajZxR1qmUCzN6bkwdqdUx+awvBk0vfZdrjQ2 +3dXPNzWRjRbJnYkK2NO3uO6WBZCoq4VSrYotoKwjOkOZQ9VG58c3Y6fRX5qL +SsyjsvLxWSNsxYcu0ZsW5lHqfIsZYBtpx08erfuJxO5wNdpg+xj2tbBMl9Bg +L8U4BHs24j9eQfU/qJs/7FIkdkzdahMNgb8o95SuVhx2Bhjle7csIy4xOdPr +nH45TdSQPG6Qa6gYasDOe53af1qOB5Zd38e2cfr+8Dh5JZEHpB7QArqxT2rO +lZcErAAK92/5OU7fYiWVKQof9FqMTmpMM1FX2/jTv9l8UMn3qWsLtiL7sesa +CX4wqN4maoZdoG+dorPAD6G3wp28sBtqTnD71wnAD99Mp7vYcy/b+0ZNhUDp +XraC1gwTrbUUEo18KgQWO9T0EbZuBxWEjYVhQZwryx7bb6gya/PGNXDv+bMT +p7CDeFp0twuJQrCsr8kn7GHlopm4eTHYelRrOo2Nz4doXtWqtxZUIjSPFGHz +5I8oSQevBcWcaJMmbEW99XZ5Y2thKlZrcAnb1TS57H3/OugVOWvsRzJRq1dI +qNRbCcgKX5JynGWi3odJCZ4CkpD8ZufPUOzxsbzs3N2SUMD4ujEVWzDse/u2 +Z5Jww+fvnY/Y1FgHfc9KKdD/KZXgOMdEtfcN5x5lysBM0d6UI/NMdH94MXxr +mDzk/nvGtfMnE+1xPNcbWigPs3RutIw93rDOrHBEHkT9awPUfzGR/n1tCUUX +BfDJ7yz+D7uB5lHOt2M92EQ/qZZaZCL2VP+x0bOKUL00OOT7m4nWHaVWlFsp +A7PE9r7ZXyYauS/oY+unDLlJflPh2NXdbXIT8crgmFAe9xDb3fLgWfVnylB4 ++EPqqmXcTyvc7jpFBUR6Nxt+wNZnPZyOklIFxU8bUwO4WcjBe7WOxYAafJc1 +yR/gZSEU7khx+qMGFtMCxrJ8LKQZl7mFLqMO7HAhEXtsrmy9XVH71UGytzL1 +FXZhr5tT2XN1uPY1brmQn4X4DxSclr23AcZvVnkmCrBQNdXqM4umATJDMmbR +QiyUbX/t20KUBrBTu74+w06iDfTz3tSAyR8vKnmEWYge89+YQrsGSAUImJ3D +Fqu/zWVvqgl/fJ2bUtewkJ/epGadihZ4pqfb14qykJzy5eiEIW3Iac+P2S7B +QvUXZzV+8ehAp6VaQBK2O+nSQSjpwH734JI+7DsNqhq7PHRgTjNK76wkCyl7 +1378+UUHDrx20HsvhectGFYj3m4Eo3SqTJgsC8nLKRCKLrogx/SPWF7PQto5 +YUK/EQViHu6zE9dmIRr97JyONQVyj+TcCMXOUEnp9XSngIBqkXY79op7xSWv +IyjAEHqjk6rDQl13WA4ppRSYfCV0X3ITC13I8LytoaIHaRtWeWpRWGgkwXKj +M78+eJNJIolGLHQ3RNW2ssUA5t4HSGmasVBbONoSm2MM8zzz8be9WUjJ45P1 +Qf/tUNH0TKPwEgsxlquK5I8D0FpeNrRVspDUWPVKKdouELw7fMN9hIXC9Ey6 +UzSpcGRUZJ+b9BiiTSw1rWPtBrb0pd/lVmOocFfoysxWcxA630h4Jo6h+7N+ +zwvS9oIBqA3ueTuGfu6UftcQvQ+W56kdBuLjqIdrxczAYStIj8vJjvQcRwH/ +BCafVrEBmaKbTYX546jIt+lZepwtCNQMjcVxT6ATpMyClu9+OGNtYxHrOIHm +LMwONB6yg7tZg9UJFRPI2O3KzuH99jBsP2JSKDGJPsrc9mvQc4CplbeFI0Mn +keyDs/WP/nUE9eLHdzy7J1F1v6altfABcBN5E8u3cwopdEx7h08cAJlBdZ7x +nCmkl36lILvfCdTfVW17LjiNbvOSG1NeOsNkrmttFppGVTs3dcXVuMDVkuGu +1OPTKGPLRbGlPFfYfCd2sKdsGrV+y4nXS3QDZkV/qu/oNKq0uqUaFOMOe0S5 +vfcrz6CZo/ZcAfSDMM11uHrGaQbNmWn4TJp6gGQ2deFLwgx6NPH1Z6jhIeC3 +GT8g/XIGOd/N8Too5AmyqnsknedmUHnZvkMrznnCc+2wcSFNNjKW+/jrwi9P +4A1n39zjwkYq/d5dH3wPA1dI68jRODYaWn3E5tb3w8Ce1qZdLmOjtiRrL3NH +GvALUCnNX9koLSJz9X9tNBDnte37wEWi+qfLv7z2esHjRnqbpQqJRNzhnF6t +F6yhzV56jUikKN7Y+k+9FzjV1/YYA4l0W6yk+Z96wamrpiMF2HYmbrmdz73A +Oc1VKWUnidL+CX976o0XvNBt2+5iSiLZnnyRpk4vqN2dwN1lRiJVD6kM9wUv +cFDIM82xIpGx5+SjOH06MIMjLQ+5kujB9elQa0M6iJkGD9Rgi7ezd0gZ0WGP +yKy+uBuJJncvdDzaRgfLwBCpJuz7WlzcLbvo4PVF9I32QRKtWRBzWbufDnc/ +DXQwD5Fo6JLBqsyjdAhu6gQKg0T7G7d0eAfS4fRY9pVY7KdcWzN1g+kgcvF6 +5mfs66E7DF6E0UFr8Sv7OEEiaxfzw8ORdNDMv/DfE28S1ai61GhdpMPT0aTB +LX4kSqo76Vv9gA7VFF3xRfwfcJRyzTjiER0EhNDZXYEksswtXWWUR4fOqu6S +i9iC10ZyHxfSISExy1w2iERxIbasqgo63DO2pRkGk+ikhuqRyhe4v/h1Ki2U +RH7X3vqX9dIhILQq5vwxEu1dM2IS0k+HDOGmkibsf+O4hCmDdFiqdLojEEGi +kRCDwtJhOkhofig9h33YOnOiZJwOfNrWNWeOk8iZLzSgeJEOQTbXTP0jSWQe +KhtUIMmA709MRYWjSfQiM94iRZoBK526b+7FNmlhq0bIMsDbUaQzDltX7e1X +UwUG7G9VpP3BlvkSafpNjQF2jot1ozEkGtvaIylowAA6hR1VcoZEl3mynnjb +M6DxwoOVvPF4/k1CGVaODGjylb1qiB3rFhGi58SA36JKHT7YERW2G5ZdGeDc +0uTRgn2Y4L5ylcaAeO3ywsvnSKTXTKO/CmZA8EC21soLJPpyRW21SjID0i4P +HatJIFEREvYZvcIAB0Vl4z7s2InZhsJUvP//bpbzJpKIsrchyugaA4bzN3VY +YydxebGt7jDgzFP7l33YZoFZXyMKGLA0HO44e4lE8vLnDXcUMeAkDT2SSCLR +bHNg6ooSBriJL5YbYt9TR1ZJ5QwQH9SfP4b9p6fnWXYtA4YK9qotYFdYyj16 +38SAtT6umqOXSZSwyMOX1swA6piDIF8yiWiPWIddWhhwbJ4rWwlblLdWbqiV +Aab1Hn9dsP3rnC//+syAyOJm90ZsFc2r4arDeD6mTWXaFRItfjnVzhxhwNjn +KoVC7LY4hm7xKAPmu6/BK+yoAX2W8TgDjt+sK5zF7spoP2hDMkD5rZ6ObQqJ +UlaK7T7BTcCNNoenv7Dr2T1uYSsI+N9896JIKol+9OSFBPARcOKdYK8atkkF +NYu2ioCXdnszbLFHPCN+W4gREOMw8+0utqjl7rW71xFQvdnMqhJ725a1GkiC +gCuv1BhN2MnCBQf0ZAg49yji/ARnvbavVE4J718sc1svjURETkGThAoBbZuC +dlGxk5OP94moERAgujXJAXuEWCfMq0FAq7u8TBhnfZ25z7gu7mf87XcRdu3f +ddEjFAJWBMR11GMPM/vT+/UJiLe7bN+MvfXZiZcdRgQM+NRQh7CH/IsUngAB +sfna5Lp0/P1wjjR4vIsAw67rfxWwjU33WJZSCZgtPlCigZ0kM3g8Zw8BOrRq +/h3Y1bzFyZkWBAiOu+SbY3+finx43ZKAJ8eo87bYRq8lPl2yJSA9eTKKhk0r +HRw7Z0eANeTX+2FfulXMc8aBAN4t+Vkh2IMhe3XDnQlo7wt0O40t7CFpHuSK +34cGhXKek7f3+0E/dwLsWJTiJM7z608leHgSQMsau3mD00fQ4p4zjYCle3dX +Z3Hy5iRr7OgEnDVMUcrh5A18b7UkCNgYX9+Ty8lrKRkx8yFg8O16KOL0e3zq +D/gRQLGt21PGyb9nIb7NnwAPv6SFSk7+JSktgwACLGIyLGs4+RFDOzcFEXCZ +/6t5PbYQvdRZI4QA/xgb5lPsLTZRgSphBHRE/9Z9zsnfui9ePpwA15xuhZfY +iWrSt6UiCLDNYpc1YFeJDpeLnSDgwcbtE6+wB36XNq8+ief5p/7da07+j6gB +vigCMs0CHRqxDT/u+7kcTUBa+oHTHP8f6lNCRg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + "PlotRange" -> {{0, 180}, {0.8104091893050325, 1.2240672161363806`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6007907022525477}, + "AxesOrigin" -> {0, 0.8104091893050342}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -12680,7 +15378,8 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.6007907022525477}, + AxesOrigin->{0, 0.8104091893050342}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -12708,7 +15407,8 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.8104091893050325, 1.2240672161363806`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -12716,9 +15416,9 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913267728125134`*^9}, + CellChangeTimes->{3.9913267728125134`*^9, 3.994260292144372*^9}, CellLabel-> - "Out[137]=",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] + "Out[149]=",ExpressionUUID->"c7718fba-af22-4e65-ad21-d50d829b1206"] }, Open ]], Cell[CellGroupData[{ @@ -12733,30 +15433,34 @@ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["1", "2"], + RowBox[{"2", + RowBox[{"(", + RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}]}], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -12781,154 +15485,157 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799933259697*^9, - 3.9917999365172615`*^9}},ExpressionUUID->"201ddeed-58e9-7047-8ad4-\ -c179c9adcae7"], + CellChangeTimes->{{3.991799933259697*^9, 3.9917999365172615`*^9}}, + CellLabel-> + "In[150]:=",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.962223088138177`*^-266\\\", \ + "\"\\!\\(\\*FractionBox[\\\"4.962371126833221`*^-275\\\", \ \\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 138, - 81, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326773051552*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 150, + 69, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326773051552*^9, 3.994260292330202*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], +In[150]:=",ExpressionUUID->"4853beaf-1bdf-4d5e-9f63-54fdd2ef9b30"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.450949205829742`*^-278\\\", \ + "\"\\!\\(\\*FractionBox[\\\"5.880508207246024`*^-287\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 138, - 82, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913267730605392`*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 150, + 70, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326773051552*^9, 3.9942602923395863`*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], +In[150]:=",ExpressionUUID->"751e3820-8e6e-4131-a40e-4dcad8f153d5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4109778485455803`*^-289\\\", \ + "\"\\!\\(\\*FractionBox[\\\"6.968518857547769`*^-299\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 138, 83, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913267730685368`*^9}, + 150, 71, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326773051552*^9, 3.994260292352084*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], +In[150]:=",ExpressionUUID->"a55a84ea-8769-4179-8f1c-6f55025cb4ac"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 138, 84, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326773076536*^9}, +during this calculation.\"", 2, 150, 72, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326773051552*^9, 3.994260292360773*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], +In[150]:=",ExpressionUUID->"9a2509d5-b6b2-4154-bfdf-f3e518630290"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 -SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh -IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT -QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu -O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt -BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 -di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x -cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc -op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq -1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv -BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 -tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH -U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa -3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu -wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk -M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf -9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K -jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS -ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs -aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL -SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a -z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t -1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF -lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW -9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh -cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF -SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY -6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx -h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld -kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 -arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g -bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa -P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 -tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt -Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ -kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD -j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us -m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q -R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ -L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 -RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN -GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki -fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ -Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c -r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 -RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp -Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ -NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx -kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj -6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W -bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm -GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 -S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN -ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 -HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT -7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ -NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ -k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 -QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd -vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I -e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ -S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS -IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS -qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ -Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O -crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi -Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa -k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws -Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft -jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 -LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV -tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi -+Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt -hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u -+pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 -Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL -gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo -ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw -yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx -0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v -8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 -DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ -+V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 -VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 -g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx -6WkevnFqfy3DCYX/A6WEJbo= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VesXB3ClQbdQGTOes8855iEUKcdahgwpGpAiQ6iUmWSoiAzdKEmT +MkvGczaJZqWJQipFhFDdrpCuKaR+7++P/ezn88/e73r3Wt/n3czdAVu95woI +CEyT6//3ie6Gx+yTBcYTPTJn/rnENW7Nko4waY8F80sLXNYrywJKvNwt3Z4G +kTgnc6GyOoRtLmkTbM+D8D073vUorYNlw1JpU22VkD5V7VikZAM9d20Dxtrq +YL4ZV+U3xxks2ANdP9pew4/ZlqgA1gGYajM4N9LWB8nBzgzzFVHwyOxawau8 +UWiMzqPmiCSDXM+tL7s1ZiFxxqW5IycdxH3dShaaCSJD9tXbhV0ZkKZjccfW +QQgFQ6r0VxbkwPuLKx/8WCqMrMANa8YD8+FkQfTLuSuW4b2+Xq3otYUgld5/ +4mymGDooSP66zC+CRHtr49cTErhE+FaE7Y0SkKlqlpk7RxJL5g/xIu+VAE/M +flJnsSSqHp2pzH1SAu9eu9JnFCUxOKOR9fFtCbC3hFJbrCRxRVVmisJECdRt +yl7QckkST8buq8xZXQqzFuPNTUZSyNZ8K1tFl0KIYa5bQ6w0dkrVPfl2vgw2 +5IiM2SRL4+vXq1o2Z5YBtfBwUvM5aRxjDqhW5JdBS6tjxZsiafwyZt/gSZeB +VuASwe5maZQvmS1NbSiDr4WHCv+TWYGrquzzhWbKwEXcdkj2+gp8rmVS6b+z +HMy/T0f698ugwekpvbmLeRBhla72cFAGqeoJjsJSHvByNTvEJmTwc5Dk8dUS +PJC2dze8JSSLEo3Gxx0VeTB488mkoJYsNnybTvXQ48HZ2NTQS+GyOBwq9/Ty +Th70SSj5PxaWwxzbILWcqzyQCqiVl5KSw6Z7T8NVS3iwsd6pyYchh6MpQTo8 +Hg+qI09qiOrJoa/K+97iGh783TMysMNJDg/dLIX9DTzQLb6z93ueHHbO6fsp +MsiDY0ZbPGTWyKPj/YF/vmrywco16z8DU3msCtUsWa3LB5GYb3EOG+Xx7PqB +RUf0+XDlUXxhqrs8ajhm5c0Y8+HmhtvfFpyQx5Tg98Y37fgw4sQKG30vj63O +bxy1A/ngenD878YoBVzgNjgmWc4HzgVTuYF4BfQtv/i5huaT+k+XL0xVwDyf +n4e3VfEh8pdqi2mBAq5XccmNvMOHc3GuErcaFbBRovFFUgMfGs88y74qr4gT +P+vnXf3Eh7W8S1VHaxVRcxoUAxfTYN7WPDtcr4hCJqtYr5fQYCswz9LttSIm +al9+ryNCg+dW//fwWRFtRktcB5bSYBHFjI6Zz0BZA4cWkKQhUHEi30SdgWHb +ryUeZtAwfj21fkqbgT8oy5e3mDREWqkPVaxiYLeZcdMYRUN8kLs+ZczAGyPc +IU8ODRmPntfP3cLAKw3fHyup0fB4b/bQozAGqpfoLQU9Gqx/GS4/HMXANd/4 +XdtX0dCc2qq/KoaB8TWD3v6raXh/a1FMwQkGXl7Wei3dgIbhxaHL468wMPJj +ydSTdTRI01YGFnVkfbmFK+6a0ZBp3u/8+ykDNTZ51NDmNFDvj8RUv2DgpRXP +xPPX06A593qD0lsGLpH5KHrMkgZTe3mXhV8ZmOtyaCllQ4Pvzx8x9cJM5Eht +Tfi5hYa1QXskvyxn4mKruusdW2kQGugoFZRm4u1f+0xvb6Phauejd8YUE4/e +UokPcqCh+/45jRv6THT8wC1/4ESDXbxhe64bE10iLEd6XWlQ+F3uV+vFxKyG +6n0ZbjQMhlGCXT5MpM72W292pyFp32It6VAmCv3nZ1XlQcMDm664U0lMrF29 +ynyXFw26y49pR1Uw8dxZ4SI9HxoETo4/vljNRKfJ2q91xM2C+3dW32GibtXO +DLv9NBwY3xr/4wkTo9/4bPU4QENBO7tzbwcTK13H2Xv8aAjecikwvoeJMgOD +Mx+J8bnwgvxPTFT8JW+1w5+GrjsTK7uHSX2f3E1NA2iQzK5PsBeksHXyZ9N4 +IA2fpLhywUIUihZauroE0VCZWlFxWphCiwHLfQ+I7WIzPjyXojAwu+BbTDCp +f0Yk+KschdKmSnu6iAdD4hYuoCgM6Mp3MQgh9Xv76ppoUKjW31/bT+zY/fGZ +qw6FVWtaNPVDaWBvd9h1WJ/CBJclMgnED6yMk2qQQp5jc4DCQRqm1Jd2azqQ +5+UuY+qE0TCRKXNMbyeF6/9EhfgTj4ly2IZuFD6tWOxeTDw8arjf3IfCyh1f +FkkfouGbt7nwBn8KZdc71dsQf22zpe1CKIwL5LKOEPfd8ZzYeYTCcZMbdDtx +j6b/JfdYCkMkQj7NDafhQ3a40Z5ECjXipqvViN8vi+s5kEyhb2Cfymbid3Ep +sUFnKLxnWbc2hPjN+AXOofMURvzUGTpL3LI3r/7wZQpTJxqwkrjpfdmB2BwK +Rday9JuJn9vUiCRdpfCDcVvTP8TP7j2sSCmh0GlejNAf4sfajfZn+RQKCN/8 +IhZBw8Pcd5MXq0g9rjI+SsT3xXozsm5R6BptmqpPfCf+G7fgPoUpkY0u5sQ3 +J8c/Fj8i6++0f2lHfMNH4Di/nkJFXvhXJ+LKzr+UbzRRaHPsbZEbMX+TxPPb +r8n39ly0zIu4rFbR70EbhZN9lcw9xMU6akuffqDQUDSo05u4MH/V9Re9FCaH +9Rt7EudLgOOrLxSWKpVsdCXOSbSeeveNwnVl3vO3E2dObbvyYYTCoOU1PpuI +Mw64Qt84hdf7INKE+ELXvr5/pilcw84z0CNOtwuJH/pD4X3nmDyK+MzDIyqj +81goc/LIHVHiU3pJL34uYuHgSm7cNNmvk1fT/H+LsHCdled0H3GSVOayeeIs +lLVKZzYQx85UbBdVYKG4VWnsKeJov7vT4iwWemR/uOdHfLjnaaaMCgt/JfNL +NxCHPers5+iycEjuXe4s6Y+Q1V8S1A1YePpreOkb4sBrI6o6Rix0u+K8/xrx +gZPzA40sWHjV9PhfVsT7ZkXFTG3I+tjyQ+LEewJkqi03s9Cu+XJiD+lX923a +v7buZGFGxPgXP+JdTwyzndxYaKKkXP7/ft9pYG7q6sXC+uFvmqNkHuxldyT5 ++LMw3KjXI4B4S4qnekAIC4tlfSXViG3/+DWHhrNw/nPjpD4yT1b9seIxsSys +szlYuJHYqLQs5/x5Fj42sP84n8xjJ6M0e/1lFnIdYxKqyPxGni/OGstm4ba1 +y9Z6ENccK7yytZiFG+/mvagi86/rlHNR5C4Lj+p6FJmTvHjVlHXh3gMWdpan +NPSTPAk0yzzv+4SFW71KfsUQ87Qy0p83k/2OEbh8g+SP6vz01IReFh65uL5+ +Icmn+si006u/sLDnidSJC75kf0ZST30aYGHY+Uh3DnFBZ0qy6RgLVQOtHNaR +vGNUJib9XsBG8e/BezeTfJR0i4oJ02Bj31BEpaI36e/WiGiODhvJSYx1huSr +/Ybwo62r2ej8sP66AHHa6oOHdYGN6lG3DTp20yC8JCB8eAsbN5d87QgjeT3v +1u7APYfYeCZdRWq7Mw0/lm9wd6xjozRy79bY0dDuS7Xsf8ZGa19Dky5bkldP +pyG6kY0nO0WKBYhTI0sVi96x0XU0iW2ykYaVfUt6pgbYWPCgsLfIigb/ipe7 +MsU4uIBiaIqb0DBg5+D8yYuD+plOH91W0vC6WPPFTx8OzuYOOZtp03BbcME6 +4QAONliz37K1aDhRUy2jH8FBB6Uvj3rVaVBRlO5ITOGg2s7OEjNlGvYOdzip +V3OQPpbsXiRP8jzZ3TF4oRJ2to79PSNE3j+gQa1cooS1HdYZNQtpmLScGhpa +qoQta77OCV5Aw1+CafE+MkpY9GzgQ68gWX/Eoyp3TSU8Kjdc5jzLhyPeSmJ2 +25SwOqpgcvgfPkgaD75Uz1bCH+zSg+W3+WD9/ZD1Z31ljOgQGu1y5IOcjkKC +kJEyyjDt/rXYxofh4Md16ibKyLM85ldGzlPpE0uNgm2UsXdXjLKfFR+6Z4u1 +/rgp47aBnotPDPkQvOSD2IoTyji+fEa1VZYPGarYvbFTGW+OpHQd7CLnS0+h +kKpoFZy17lq7bjuP/B9IzU2sU0W2ov9nQ61yWN6kdIr+roYDe/lTHROlIJfE +36yvr4EOV/ZUmiWWwEV1w6ViezWx7+g13WSZYnguY7J69IwWxkc5b3xZeA3W +ytWlar/TxlHR8enviwpBRDAv1CN2JQ7m9YRKxReAwjFFox1KOnguvYnj0JsH +izgu1Vuf6eD01TmMLza5oMVdwT+0Sxcv04IKIjXZENy9/NEGAT3s+jep+1DV +Ffg+muxgfVEP/eRUm5fNzwBL7acZ1pqrcNuxCq5Q/AW4P7puZrJ5FVok3crP +mUwHfw3djlfeq3HNova8K/fTgDvs1bpjkT7uNW9C57hUWM+W3iScp48VtcsW +rdNNAZWYv8PrDAxQQ/JHt9XDE6DmbVjL6TDA056Xn2XtSgDv+/uOVwWtQbPI +xtbDcXFQm9Pq9UPCEE8z8n/PrY2BsaI/k9o1htj/HZJulB0GT07pooxNa3F3 +sU/+w4pw+KF2Vr9yZC1u5Mw1Ov45FG4WzPSOJ61D90DRLKoxCHaakyxWMMKm +ZLlTryz9QdYv8ZbWAyM0Ba00S2sfkPjLt2LTdi4KywX+dcnCGwrMjkSO7ODi +wzlhC+bqe4PukVNmZ124GGQuqhjG8QbbEfptuwcXz71uOxU9zxsS3o1Pefpy +ceaZ3DPJR17wMy/aNPIYF9kHEtK2mHpBx7qzbwpLuZi262Jxi5Un7DtYcMWa +x0WpvEpGmqEnTPBueA/SXBy3sP29S80TllPtkzrVXKyQv/FOfIkn2AjJy917 +wEWxTFv33y93w93WQq83b7lYzM77dWfHbtggclMzrJ2L6aKeJkyb3dBu2TAh +3clFa1PJ9FSj3TB2+1uS60cuUvIHNqUo7gbN3JXl/w5wsWPiTdjvzx5wt8Mk +LHmIi3+iGGnX2zxgg/g20B7hoqDKndPBDR6wJ/Hgq9BxLpbkqsqJlHvA2IOE +DKmfXOxZoZozkOUBsdMXPG9Pc3GjaPNIS6oHLF1VrLFrlotD5ZVCD2M9IMvv +9vifP1wU7wnuux3qAf8DjOITiQ== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -12942,113 +15649,112 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 -SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh -IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT -QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu -O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt -BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 -di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x -cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc -op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq -1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv -BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 -tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH -U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa -3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu -wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk -M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf -9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K -jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS -ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs -aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL -SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a -z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t -1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF -lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW -9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh -cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF -SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY -6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx -h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld -kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 -arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g -bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa -P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 -tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt -Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ -kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD -j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us -m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q -R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ -L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 -RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN -GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki -fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ -Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c -r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 -RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp -Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ -NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx -kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj -6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W -bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm -GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 -S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN -ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 -HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT -7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ -NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ -k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 -QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd -vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I -e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ -S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS -IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS -qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ -Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O -crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi -Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa -k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws -Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft -jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 -LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV -tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi -+Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt -hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u -+pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 -Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL -gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo -ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw -yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx -0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v -8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 -DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ -+V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 -VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 -g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx -6WkevnFqfy3DCYX/A6WEJbo= +1:eJwV13k4VesXB3ClQbdQGTOes8855iEUKcdahgwpGpAiQ6iUmWSoiAzdKEmT +MkvGczaJZqWJQipFhFDdrpCuKaR+7++P/ezn88/e73r3Wt/n3czdAVu95woI +CEyT6//3ie6Gx+yTBcYTPTJn/rnENW7Nko4waY8F80sLXNYrywJKvNwt3Z4G +kTgnc6GyOoRtLmkTbM+D8D073vUorYNlw1JpU22VkD5V7VikZAM9d20Dxtrq +YL4ZV+U3xxks2ANdP9pew4/ZlqgA1gGYajM4N9LWB8nBzgzzFVHwyOxawau8 +UWiMzqPmiCSDXM+tL7s1ZiFxxqW5IycdxH3dShaaCSJD9tXbhV0ZkKZjccfW +QQgFQ6r0VxbkwPuLKx/8WCqMrMANa8YD8+FkQfTLuSuW4b2+Xq3otYUgld5/ +4mymGDooSP66zC+CRHtr49cTErhE+FaE7Y0SkKlqlpk7RxJL5g/xIu+VAE/M +flJnsSSqHp2pzH1SAu9eu9JnFCUxOKOR9fFtCbC3hFJbrCRxRVVmisJECdRt +yl7QckkST8buq8xZXQqzFuPNTUZSyNZ8K1tFl0KIYa5bQ6w0dkrVPfl2vgw2 +5IiM2SRL4+vXq1o2Z5YBtfBwUvM5aRxjDqhW5JdBS6tjxZsiafwyZt/gSZeB +VuASwe5maZQvmS1NbSiDr4WHCv+TWYGrquzzhWbKwEXcdkj2+gp8rmVS6b+z +HMy/T0f698ugwekpvbmLeRBhla72cFAGqeoJjsJSHvByNTvEJmTwc5Dk8dUS +PJC2dze8JSSLEo3Gxx0VeTB488mkoJYsNnybTvXQ48HZ2NTQS+GyOBwq9/Ty +Th70SSj5PxaWwxzbILWcqzyQCqiVl5KSw6Z7T8NVS3iwsd6pyYchh6MpQTo8 +Hg+qI09qiOrJoa/K+97iGh783TMysMNJDg/dLIX9DTzQLb6z93ueHHbO6fsp +MsiDY0ZbPGTWyKPj/YF/vmrywco16z8DU3msCtUsWa3LB5GYb3EOG+Xx7PqB +RUf0+XDlUXxhqrs8ajhm5c0Y8+HmhtvfFpyQx5Tg98Y37fgw4sQKG30vj63O +bxy1A/ngenD878YoBVzgNjgmWc4HzgVTuYF4BfQtv/i5huaT+k+XL0xVwDyf +n4e3VfEh8pdqi2mBAq5XccmNvMOHc3GuErcaFbBRovFFUgMfGs88y74qr4gT +P+vnXf3Eh7W8S1VHaxVRcxoUAxfTYN7WPDtcr4hCJqtYr5fQYCswz9LttSIm +al9+ryNCg+dW//fwWRFtRktcB5bSYBHFjI6Zz0BZA4cWkKQhUHEi30SdgWHb +ryUeZtAwfj21fkqbgT8oy5e3mDREWqkPVaxiYLeZcdMYRUN8kLs+ZczAGyPc +IU8ODRmPntfP3cLAKw3fHyup0fB4b/bQozAGqpfoLQU9Gqx/GS4/HMXANd/4 +XdtX0dCc2qq/KoaB8TWD3v6raXh/a1FMwQkGXl7Wei3dgIbhxaHL468wMPJj +ydSTdTRI01YGFnVkfbmFK+6a0ZBp3u/8+ykDNTZ51NDmNFDvj8RUv2DgpRXP +xPPX06A593qD0lsGLpH5KHrMkgZTe3mXhV8ZmOtyaCllQ4Pvzx8x9cJM5Eht +Tfi5hYa1QXskvyxn4mKruusdW2kQGugoFZRm4u1f+0xvb6Phauejd8YUE4/e +UokPcqCh+/45jRv6THT8wC1/4ESDXbxhe64bE10iLEd6XWlQ+F3uV+vFxKyG +6n0ZbjQMhlGCXT5MpM72W292pyFp32It6VAmCv3nZ1XlQcMDm664U0lMrF29 +ynyXFw26y49pR1Uw8dxZ4SI9HxoETo4/vljNRKfJ2q91xM2C+3dW32GibtXO +DLv9NBwY3xr/4wkTo9/4bPU4QENBO7tzbwcTK13H2Xv8aAjecikwvoeJMgOD +Mx+J8bnwgvxPTFT8JW+1w5+GrjsTK7uHSX2f3E1NA2iQzK5PsBeksHXyZ9N4 +IA2fpLhywUIUihZauroE0VCZWlFxWphCiwHLfQ+I7WIzPjyXojAwu+BbTDCp +f0Yk+KschdKmSnu6iAdD4hYuoCgM6Mp3MQgh9Xv76ppoUKjW31/bT+zY/fGZ +qw6FVWtaNPVDaWBvd9h1WJ/CBJclMgnED6yMk2qQQp5jc4DCQRqm1Jd2azqQ +5+UuY+qE0TCRKXNMbyeF6/9EhfgTj4ly2IZuFD6tWOxeTDw8arjf3IfCyh1f +FkkfouGbt7nwBn8KZdc71dsQf22zpe1CKIwL5LKOEPfd8ZzYeYTCcZMbdDtx +j6b/JfdYCkMkQj7NDafhQ3a40Z5ECjXipqvViN8vi+s5kEyhb2Cfymbid3Ep +sUFnKLxnWbc2hPjN+AXOofMURvzUGTpL3LI3r/7wZQpTJxqwkrjpfdmB2BwK +Rday9JuJn9vUiCRdpfCDcVvTP8TP7j2sSCmh0GlejNAf4sfajfZn+RQKCN/8 +IhZBw8Pcd5MXq0g9rjI+SsT3xXozsm5R6BptmqpPfCf+G7fgPoUpkY0u5sQ3 +J8c/Fj8i6++0f2lHfMNH4Di/nkJFXvhXJ+LKzr+UbzRRaHPsbZEbMX+TxPPb +r8n39ly0zIu4rFbR70EbhZN9lcw9xMU6akuffqDQUDSo05u4MH/V9Re9FCaH +9Rt7EudLgOOrLxSWKpVsdCXOSbSeeveNwnVl3vO3E2dObbvyYYTCoOU1PpuI +Mw64Qt84hdf7INKE+ELXvr5/pilcw84z0CNOtwuJH/pD4X3nmDyK+MzDIyqj +81goc/LIHVHiU3pJL34uYuHgSm7cNNmvk1fT/H+LsHCdled0H3GSVOayeeIs +lLVKZzYQx85UbBdVYKG4VWnsKeJov7vT4iwWemR/uOdHfLjnaaaMCgt/JfNL +NxCHPers5+iycEjuXe4s6Y+Q1V8S1A1YePpreOkb4sBrI6o6Rix0u+K8/xrx +gZPzA40sWHjV9PhfVsT7ZkXFTG3I+tjyQ+LEewJkqi03s9Cu+XJiD+lX923a +v7buZGFGxPgXP+JdTwyzndxYaKKkXP7/ft9pYG7q6sXC+uFvmqNkHuxldyT5 ++LMw3KjXI4B4S4qnekAIC4tlfSXViG3/+DWHhrNw/nPjpD4yT1b9seIxsSys +szlYuJHYqLQs5/x5Fj42sP84n8xjJ6M0e/1lFnIdYxKqyPxGni/OGstm4ba1 +y9Z6ENccK7yytZiFG+/mvagi86/rlHNR5C4Lj+p6FJmTvHjVlHXh3gMWdpan +NPSTPAk0yzzv+4SFW71KfsUQ87Qy0p83k/2OEbh8g+SP6vz01IReFh65uL5+ +Icmn+si006u/sLDnidSJC75kf0ZST30aYGHY+Uh3DnFBZ0qy6RgLVQOtHNaR +vGNUJib9XsBG8e/BezeTfJR0i4oJ02Bj31BEpaI36e/WiGiODhvJSYx1huSr +/Ybwo62r2ej8sP66AHHa6oOHdYGN6lG3DTp20yC8JCB8eAsbN5d87QgjeT3v +1u7APYfYeCZdRWq7Mw0/lm9wd6xjozRy79bY0dDuS7Xsf8ZGa19Dky5bkldP +pyG6kY0nO0WKBYhTI0sVi96x0XU0iW2ykYaVfUt6pgbYWPCgsLfIigb/ipe7 +MsU4uIBiaIqb0DBg5+D8yYuD+plOH91W0vC6WPPFTx8OzuYOOZtp03BbcME6 +4QAONliz37K1aDhRUy2jH8FBB6Uvj3rVaVBRlO5ITOGg2s7OEjNlGvYOdzip +V3OQPpbsXiRP8jzZ3TF4oRJ2to79PSNE3j+gQa1cooS1HdYZNQtpmLScGhpa +qoQta77OCV5Aw1+CafE+MkpY9GzgQ68gWX/Eoyp3TSU8Kjdc5jzLhyPeSmJ2 +25SwOqpgcvgfPkgaD75Uz1bCH+zSg+W3+WD9/ZD1Z31ljOgQGu1y5IOcjkKC +kJEyyjDt/rXYxofh4Md16ibKyLM85ldGzlPpE0uNgm2UsXdXjLKfFR+6Z4u1 +/rgp47aBnotPDPkQvOSD2IoTyji+fEa1VZYPGarYvbFTGW+OpHQd7CLnS0+h +kKpoFZy17lq7bjuP/B9IzU2sU0W2ov9nQ61yWN6kdIr+roYDe/lTHROlIJfE +36yvr4EOV/ZUmiWWwEV1w6ViezWx7+g13WSZYnguY7J69IwWxkc5b3xZeA3W +ytWlar/TxlHR8enviwpBRDAv1CN2JQ7m9YRKxReAwjFFox1KOnguvYnj0JsH +izgu1Vuf6eD01TmMLza5oMVdwT+0Sxcv04IKIjXZENy9/NEGAT3s+jep+1DV +Ffg+muxgfVEP/eRUm5fNzwBL7acZ1pqrcNuxCq5Q/AW4P7puZrJ5FVok3crP +mUwHfw3djlfeq3HNova8K/fTgDvs1bpjkT7uNW9C57hUWM+W3iScp48VtcsW +rdNNAZWYv8PrDAxQQ/JHt9XDE6DmbVjL6TDA056Xn2XtSgDv+/uOVwWtQbPI +xtbDcXFQm9Pq9UPCEE8z8n/PrY2BsaI/k9o1htj/HZJulB0GT07pooxNa3F3 +sU/+w4pw+KF2Vr9yZC1u5Mw1Ov45FG4WzPSOJ61D90DRLKoxCHaakyxWMMKm +ZLlTryz9QdYv8ZbWAyM0Ba00S2sfkPjLt2LTdi4KywX+dcnCGwrMjkSO7ODi +wzlhC+bqe4PukVNmZ124GGQuqhjG8QbbEfptuwcXz71uOxU9zxsS3o1Pefpy +ceaZ3DPJR17wMy/aNPIYF9kHEtK2mHpBx7qzbwpLuZi262Jxi5Un7DtYcMWa +x0WpvEpGmqEnTPBueA/SXBy3sP29S80TllPtkzrVXKyQv/FOfIkn2AjJy917 +wEWxTFv33y93w93WQq83b7lYzM77dWfHbtggclMzrJ2L6aKeJkyb3dBu2TAh +3clFa1PJ9FSj3TB2+1uS60cuUvIHNqUo7gbN3JXl/w5wsWPiTdjvzx5wt8Mk +LHmIi3+iGGnX2zxgg/g20B7hoqDKndPBDR6wJ/Hgq9BxLpbkqsqJlHvA2IOE +DKmfXOxZoZozkOUBsdMXPG9Pc3GjaPNIS6oHLF1VrLFrlotD5ZVCD2M9IMvv +9vifP1wU7wnuux3qAf8DjOITiQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "PlotRange" -> {{0, 30}, {0., 0.06435240099643723}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -13060,19 +15766,19 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "PlotRange" -> {{0, 30}, {0., 0.06435240099643723}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13086,112 +15792,111 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 -SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh -IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT -QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu -O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt -BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 -di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x -cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc -op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq -1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv -BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 -tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH -U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa -3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu -wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk -M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf -9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K -jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS -ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs -aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL -SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a -z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t -1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF -lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW -9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh -cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF -SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY -6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx -h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld -kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 -arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g -bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa -P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 -tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt -Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ -kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD -j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us -m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q -R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ -L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 -RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN -GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki -fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ -Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c -r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 -RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp -Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ -NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx -kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj -6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W -bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm -GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 -S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN -ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 -HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT -7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ -NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ -k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 -QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd -vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I -e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ -S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS -IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS -qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ -Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O -crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi -Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa -k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws -Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft -jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 -LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV -tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi -+Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt -hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u -+pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 -Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL -gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo -ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw -yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx -0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v -8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 -DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ -+V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 -VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 -g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx -6WkevnFqfy3DCYX/A6WEJbo= +1:eJwV13k4VesXB3ClQbdQGTOes8855iEUKcdahgwpGpAiQ6iUmWSoiAzdKEmT +MkvGczaJZqWJQipFhFDdrpCuKaR+7++P/ezn88/e73r3Wt/n3czdAVu95woI +CEyT6//3ie6Gx+yTBcYTPTJn/rnENW7Nko4waY8F80sLXNYrywJKvNwt3Z4G +kTgnc6GyOoRtLmkTbM+D8D073vUorYNlw1JpU22VkD5V7VikZAM9d20Dxtrq +YL4ZV+U3xxks2ANdP9pew4/ZlqgA1gGYajM4N9LWB8nBzgzzFVHwyOxawau8 +UWiMzqPmiCSDXM+tL7s1ZiFxxqW5IycdxH3dShaaCSJD9tXbhV0ZkKZjccfW +QQgFQ6r0VxbkwPuLKx/8WCqMrMANa8YD8+FkQfTLuSuW4b2+Xq3otYUgld5/ +4mymGDooSP66zC+CRHtr49cTErhE+FaE7Y0SkKlqlpk7RxJL5g/xIu+VAE/M +flJnsSSqHp2pzH1SAu9eu9JnFCUxOKOR9fFtCbC3hFJbrCRxRVVmisJECdRt +yl7QckkST8buq8xZXQqzFuPNTUZSyNZ8K1tFl0KIYa5bQ6w0dkrVPfl2vgw2 +5IiM2SRL4+vXq1o2Z5YBtfBwUvM5aRxjDqhW5JdBS6tjxZsiafwyZt/gSZeB +VuASwe5maZQvmS1NbSiDr4WHCv+TWYGrquzzhWbKwEXcdkj2+gp8rmVS6b+z +HMy/T0f698ugwekpvbmLeRBhla72cFAGqeoJjsJSHvByNTvEJmTwc5Dk8dUS +PJC2dze8JSSLEo3Gxx0VeTB488mkoJYsNnybTvXQ48HZ2NTQS+GyOBwq9/Ty +Th70SSj5PxaWwxzbILWcqzyQCqiVl5KSw6Z7T8NVS3iwsd6pyYchh6MpQTo8 +Hg+qI09qiOrJoa/K+97iGh783TMysMNJDg/dLIX9DTzQLb6z93ueHHbO6fsp +MsiDY0ZbPGTWyKPj/YF/vmrywco16z8DU3msCtUsWa3LB5GYb3EOG+Xx7PqB +RUf0+XDlUXxhqrs8ajhm5c0Y8+HmhtvfFpyQx5Tg98Y37fgw4sQKG30vj63O +bxy1A/ngenD878YoBVzgNjgmWc4HzgVTuYF4BfQtv/i5huaT+k+XL0xVwDyf +n4e3VfEh8pdqi2mBAq5XccmNvMOHc3GuErcaFbBRovFFUgMfGs88y74qr4gT +P+vnXf3Eh7W8S1VHaxVRcxoUAxfTYN7WPDtcr4hCJqtYr5fQYCswz9LttSIm +al9+ryNCg+dW//fwWRFtRktcB5bSYBHFjI6Zz0BZA4cWkKQhUHEi30SdgWHb +ryUeZtAwfj21fkqbgT8oy5e3mDREWqkPVaxiYLeZcdMYRUN8kLs+ZczAGyPc +IU8ODRmPntfP3cLAKw3fHyup0fB4b/bQozAGqpfoLQU9Gqx/GS4/HMXANd/4 +XdtX0dCc2qq/KoaB8TWD3v6raXh/a1FMwQkGXl7Wei3dgIbhxaHL468wMPJj +ydSTdTRI01YGFnVkfbmFK+6a0ZBp3u/8+ykDNTZ51NDmNFDvj8RUv2DgpRXP +xPPX06A593qD0lsGLpH5KHrMkgZTe3mXhV8ZmOtyaCllQ4Pvzx8x9cJM5Eht +Tfi5hYa1QXskvyxn4mKruusdW2kQGugoFZRm4u1f+0xvb6Phauejd8YUE4/e +UokPcqCh+/45jRv6THT8wC1/4ESDXbxhe64bE10iLEd6XWlQ+F3uV+vFxKyG +6n0ZbjQMhlGCXT5MpM72W292pyFp32It6VAmCv3nZ1XlQcMDm664U0lMrF29 +ynyXFw26y49pR1Uw8dxZ4SI9HxoETo4/vljNRKfJ2q91xM2C+3dW32GibtXO +DLv9NBwY3xr/4wkTo9/4bPU4QENBO7tzbwcTK13H2Xv8aAjecikwvoeJMgOD +Mx+J8bnwgvxPTFT8JW+1w5+GrjsTK7uHSX2f3E1NA2iQzK5PsBeksHXyZ9N4 +IA2fpLhywUIUihZauroE0VCZWlFxWphCiwHLfQ+I7WIzPjyXojAwu+BbTDCp +f0Yk+KschdKmSnu6iAdD4hYuoCgM6Mp3MQgh9Xv76ppoUKjW31/bT+zY/fGZ +qw6FVWtaNPVDaWBvd9h1WJ/CBJclMgnED6yMk2qQQp5jc4DCQRqm1Jd2azqQ +5+UuY+qE0TCRKXNMbyeF6/9EhfgTj4ly2IZuFD6tWOxeTDw8arjf3IfCyh1f +FkkfouGbt7nwBn8KZdc71dsQf22zpe1CKIwL5LKOEPfd8ZzYeYTCcZMbdDtx +j6b/JfdYCkMkQj7NDafhQ3a40Z5ECjXipqvViN8vi+s5kEyhb2Cfymbid3Ep +sUFnKLxnWbc2hPjN+AXOofMURvzUGTpL3LI3r/7wZQpTJxqwkrjpfdmB2BwK +Rday9JuJn9vUiCRdpfCDcVvTP8TP7j2sSCmh0GlejNAf4sfajfZn+RQKCN/8 +IhZBw8Pcd5MXq0g9rjI+SsT3xXozsm5R6BptmqpPfCf+G7fgPoUpkY0u5sQ3 +J8c/Fj8i6++0f2lHfMNH4Di/nkJFXvhXJ+LKzr+UbzRRaHPsbZEbMX+TxPPb +r8n39ly0zIu4rFbR70EbhZN9lcw9xMU6akuffqDQUDSo05u4MH/V9Re9FCaH +9Rt7EudLgOOrLxSWKpVsdCXOSbSeeveNwnVl3vO3E2dObbvyYYTCoOU1PpuI +Mw64Qt84hdf7INKE+ELXvr5/pilcw84z0CNOtwuJH/pD4X3nmDyK+MzDIyqj +81goc/LIHVHiU3pJL34uYuHgSm7cNNmvk1fT/H+LsHCdled0H3GSVOayeeIs +lLVKZzYQx85UbBdVYKG4VWnsKeJov7vT4iwWemR/uOdHfLjnaaaMCgt/JfNL +NxCHPers5+iycEjuXe4s6Y+Q1V8S1A1YePpreOkb4sBrI6o6Rix0u+K8/xrx +gZPzA40sWHjV9PhfVsT7ZkXFTG3I+tjyQ+LEewJkqi03s9Cu+XJiD+lX923a +v7buZGFGxPgXP+JdTwyzndxYaKKkXP7/ft9pYG7q6sXC+uFvmqNkHuxldyT5 ++LMw3KjXI4B4S4qnekAIC4tlfSXViG3/+DWHhrNw/nPjpD4yT1b9seIxsSys +szlYuJHYqLQs5/x5Fj42sP84n8xjJ6M0e/1lFnIdYxKqyPxGni/OGstm4ba1 +y9Z6ENccK7yytZiFG+/mvagi86/rlHNR5C4Lj+p6FJmTvHjVlHXh3gMWdpan +NPSTPAk0yzzv+4SFW71KfsUQ87Qy0p83k/2OEbh8g+SP6vz01IReFh65uL5+ +Icmn+si006u/sLDnidSJC75kf0ZST30aYGHY+Uh3DnFBZ0qy6RgLVQOtHNaR +vGNUJib9XsBG8e/BezeTfJR0i4oJ02Bj31BEpaI36e/WiGiODhvJSYx1huSr +/Ybwo62r2ej8sP66AHHa6oOHdYGN6lG3DTp20yC8JCB8eAsbN5d87QgjeT3v +1u7APYfYeCZdRWq7Mw0/lm9wd6xjozRy79bY0dDuS7Xsf8ZGa19Dky5bkldP +pyG6kY0nO0WKBYhTI0sVi96x0XU0iW2ykYaVfUt6pgbYWPCgsLfIigb/ipe7 +MsU4uIBiaIqb0DBg5+D8yYuD+plOH91W0vC6WPPFTx8OzuYOOZtp03BbcME6 +4QAONliz37K1aDhRUy2jH8FBB6Uvj3rVaVBRlO5ITOGg2s7OEjNlGvYOdzip +V3OQPpbsXiRP8jzZ3TF4oRJ2to79PSNE3j+gQa1cooS1HdYZNQtpmLScGhpa +qoQta77OCV5Aw1+CafE+MkpY9GzgQ68gWX/Eoyp3TSU8Kjdc5jzLhyPeSmJ2 +25SwOqpgcvgfPkgaD75Uz1bCH+zSg+W3+WD9/ZD1Z31ljOgQGu1y5IOcjkKC +kJEyyjDt/rXYxofh4Md16ibKyLM85ldGzlPpE0uNgm2UsXdXjLKfFR+6Z4u1 +/rgp47aBnotPDPkQvOSD2IoTyji+fEa1VZYPGarYvbFTGW+OpHQd7CLnS0+h +kKpoFZy17lq7bjuP/B9IzU2sU0W2ov9nQ61yWN6kdIr+roYDe/lTHROlIJfE +36yvr4EOV/ZUmiWWwEV1w6ViezWx7+g13WSZYnguY7J69IwWxkc5b3xZeA3W +ytWlar/TxlHR8enviwpBRDAv1CN2JQ7m9YRKxReAwjFFox1KOnguvYnj0JsH +izgu1Vuf6eD01TmMLza5oMVdwT+0Sxcv04IKIjXZENy9/NEGAT3s+jep+1DV +Ffg+muxgfVEP/eRUm5fNzwBL7acZ1pqrcNuxCq5Q/AW4P7puZrJ5FVok3crP +mUwHfw3djlfeq3HNova8K/fTgDvs1bpjkT7uNW9C57hUWM+W3iScp48VtcsW +rdNNAZWYv8PrDAxQQ/JHt9XDE6DmbVjL6TDA056Xn2XtSgDv+/uOVwWtQbPI +xtbDcXFQm9Pq9UPCEE8z8n/PrY2BsaI/k9o1htj/HZJulB0GT07pooxNa3F3 +sU/+w4pw+KF2Vr9yZC1u5Mw1Ov45FG4WzPSOJ61D90DRLKoxCHaakyxWMMKm +ZLlTryz9QdYv8ZbWAyM0Ba00S2sfkPjLt2LTdi4KywX+dcnCGwrMjkSO7ODi +wzlhC+bqe4PukVNmZ124GGQuqhjG8QbbEfptuwcXz71uOxU9zxsS3o1Pefpy +ceaZ3DPJR17wMy/aNPIYF9kHEtK2mHpBx7qzbwpLuZi262Jxi5Un7DtYcMWa +x0WpvEpGmqEnTPBueA/SXBy3sP29S80TllPtkzrVXKyQv/FOfIkn2AjJy917 +wEWxTFv33y93w93WQq83b7lYzM77dWfHbtggclMzrJ2L6aKeJkyb3dBu2TAh +3clFa1PJ9FSj3TB2+1uS60cuUvIHNqUo7gbN3JXl/w5wsWPiTdjvzx5wt8Mk +LHmIi3+iGGnX2zxgg/g20B7hoqDKndPBDR6wJ/Hgq9BxLpbkqsqJlHvA2IOE +DKmfXOxZoZozkOUBsdMXPG9Pc3GjaPNIS6oHLF1VrLFrlotD5ZVCD2M9IMvv +9vifP1wU7wnuux3qAf8DjOITiQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "PlotRange" -> {{0, 30}, {0., 0.06435240099643723}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13202,6 +15907,7 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -13229,7 +15935,8 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.12905028199662316`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06435240099643723}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -13237,22 +15944,559 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991327033758711*^9}, + CellChangeTimes->{3.991327033758711*^9, 3.994260733389268*^9}, CellLabel-> - "Out[138]=",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] + "Out[150]=",ExpressionUUID->"2cb51f85-431b-4abe-9951-23144388d539"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9917999433700733`*^9, 3.9917999479698143`*^9}, - 3.9919244033659534`*^9},ExpressionUUID->"d48877eb-e0f2-d842-b248-\ -ea3fc2b4c4a8"], + 3.9919244033659534`*^9}, + CellLabel-> + "In[151]:=",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.991799951845436*^9, - 3.991799954096182*^9}},ExpressionUUID->"eae5aeae-3f12-2d4a-842b-\ -85a3484011b6"], + CellChangeTimes->{{3.991799951845436*^9, 3.991799954096182*^9}}, + CellLabel-> + "In[152]:=",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VesXB3ClQbdQGTOes8855iEUKcdahgwpGpAiQ6iUmWSoiAzdKEmT +MkvGczaJZqWJQipFhFDdrpCuKaR+7++P/ezn88/e73r3Wt/n3czdAVu95woI +CEyT6//3ie6Gx+yTBcYTPTJn/rnENW7Nko4waY8F80sLXNYrywJKvNwt3Z4G +kTgnc6GyOoRtLmkTbM+D8D073vUorYNlw1JpU22VkD5V7VikZAM9d20Dxtrq +YL4ZV+U3xxks2ANdP9pew4/ZlqgA1gGYajM4N9LWB8nBzgzzFVHwyOxawau8 +UWiMzqPmiCSDXM+tL7s1ZiFxxqW5IycdxH3dShaaCSJD9tXbhV0ZkKZjccfW +QQgFQ6r0VxbkwPuLKx/8WCqMrMANa8YD8+FkQfTLuSuW4b2+Xq3otYUgld5/ +4mymGDooSP66zC+CRHtr49cTErhE+FaE7Y0SkKlqlpk7RxJL5g/xIu+VAE/M +flJnsSSqHp2pzH1SAu9eu9JnFCUxOKOR9fFtCbC3hFJbrCRxRVVmisJECdRt +yl7QckkST8buq8xZXQqzFuPNTUZSyNZ8K1tFl0KIYa5bQ6w0dkrVPfl2vgw2 +5IiM2SRL4+vXq1o2Z5YBtfBwUvM5aRxjDqhW5JdBS6tjxZsiafwyZt/gSZeB +VuASwe5maZQvmS1NbSiDr4WHCv+TWYGrquzzhWbKwEXcdkj2+gp8rmVS6b+z +HMy/T0f698ugwekpvbmLeRBhla72cFAGqeoJjsJSHvByNTvEJmTwc5Dk8dUS +PJC2dze8JSSLEo3Gxx0VeTB488mkoJYsNnybTvXQ48HZ2NTQS+GyOBwq9/Ty +Th70SSj5PxaWwxzbILWcqzyQCqiVl5KSw6Z7T8NVS3iwsd6pyYchh6MpQTo8 +Hg+qI09qiOrJoa/K+97iGh783TMysMNJDg/dLIX9DTzQLb6z93ueHHbO6fsp +MsiDY0ZbPGTWyKPj/YF/vmrywco16z8DU3msCtUsWa3LB5GYb3EOG+Xx7PqB +RUf0+XDlUXxhqrs8ajhm5c0Y8+HmhtvfFpyQx5Tg98Y37fgw4sQKG30vj63O +bxy1A/ngenD878YoBVzgNjgmWc4HzgVTuYF4BfQtv/i5huaT+k+XL0xVwDyf +n4e3VfEh8pdqi2mBAq5XccmNvMOHc3GuErcaFbBRovFFUgMfGs88y74qr4gT +P+vnXf3Eh7W8S1VHaxVRcxoUAxfTYN7WPDtcr4hCJqtYr5fQYCswz9LttSIm +al9+ryNCg+dW//fwWRFtRktcB5bSYBHFjI6Zz0BZA4cWkKQhUHEi30SdgWHb +ryUeZtAwfj21fkqbgT8oy5e3mDREWqkPVaxiYLeZcdMYRUN8kLs+ZczAGyPc +IU8ODRmPntfP3cLAKw3fHyup0fB4b/bQozAGqpfoLQU9Gqx/GS4/HMXANd/4 +XdtX0dCc2qq/KoaB8TWD3v6raXh/a1FMwQkGXl7Wei3dgIbhxaHL468wMPJj +ydSTdTRI01YGFnVkfbmFK+6a0ZBp3u/8+ykDNTZ51NDmNFDvj8RUv2DgpRXP +xPPX06A593qD0lsGLpH5KHrMkgZTe3mXhV8ZmOtyaCllQ4Pvzx8x9cJM5Eht +Tfi5hYa1QXskvyxn4mKruusdW2kQGugoFZRm4u1f+0xvb6Phauejd8YUE4/e +UokPcqCh+/45jRv6THT8wC1/4ESDXbxhe64bE10iLEd6XWlQ+F3uV+vFxKyG +6n0ZbjQMhlGCXT5MpM72W292pyFp32It6VAmCv3nZ1XlQcMDm664U0lMrF29 +ynyXFw26y49pR1Uw8dxZ4SI9HxoETo4/vljNRKfJ2q91xM2C+3dW32GibtXO +DLv9NBwY3xr/4wkTo9/4bPU4QENBO7tzbwcTK13H2Xv8aAjecikwvoeJMgOD +Mx+J8bnwgvxPTFT8JW+1w5+GrjsTK7uHSX2f3E1NA2iQzK5PsBeksHXyZ9N4 +IA2fpLhywUIUihZauroE0VCZWlFxWphCiwHLfQ+I7WIzPjyXojAwu+BbTDCp +f0Yk+KschdKmSnu6iAdD4hYuoCgM6Mp3MQgh9Xv76ppoUKjW31/bT+zY/fGZ +qw6FVWtaNPVDaWBvd9h1WJ/CBJclMgnED6yMk2qQQp5jc4DCQRqm1Jd2azqQ +5+UuY+qE0TCRKXNMbyeF6/9EhfgTj4ly2IZuFD6tWOxeTDw8arjf3IfCyh1f +FkkfouGbt7nwBn8KZdc71dsQf22zpe1CKIwL5LKOEPfd8ZzYeYTCcZMbdDtx +j6b/JfdYCkMkQj7NDafhQ3a40Z5ECjXipqvViN8vi+s5kEyhb2Cfymbid3Ep +sUFnKLxnWbc2hPjN+AXOofMURvzUGTpL3LI3r/7wZQpTJxqwkrjpfdmB2BwK +Rday9JuJn9vUiCRdpfCDcVvTP8TP7j2sSCmh0GlejNAf4sfajfZn+RQKCN/8 +IhZBw8Pcd5MXq0g9rjI+SsT3xXozsm5R6BptmqpPfCf+G7fgPoUpkY0u5sQ3 +J8c/Fj8i6++0f2lHfMNH4Di/nkJFXvhXJ+LKzr+UbzRRaHPsbZEbMX+TxPPb +r8n39ly0zIu4rFbR70EbhZN9lcw9xMU6akuffqDQUDSo05u4MH/V9Re9FCaH +9Rt7EudLgOOrLxSWKpVsdCXOSbSeeveNwnVl3vO3E2dObbvyYYTCoOU1PpuI +Mw64Qt84hdf7INKE+ELXvr5/pilcw84z0CNOtwuJH/pD4X3nmDyK+MzDIyqj +81goc/LIHVHiU3pJL34uYuHgSm7cNNmvk1fT/H+LsHCdled0H3GSVOayeeIs +lLVKZzYQx85UbBdVYKG4VWnsKeJov7vT4iwWemR/uOdHfLjnaaaMCgt/JfNL +NxCHPers5+iycEjuXe4s6Y+Q1V8S1A1YePpreOkb4sBrI6o6Rix0u+K8/xrx +gZPzA40sWHjV9PhfVsT7ZkXFTG3I+tjyQ+LEewJkqi03s9Cu+XJiD+lX923a +v7buZGFGxPgXP+JdTwyzndxYaKKkXP7/ft9pYG7q6sXC+uFvmqNkHuxldyT5 ++LMw3KjXI4B4S4qnekAIC4tlfSXViG3/+DWHhrNw/nPjpD4yT1b9seIxsSys +szlYuJHYqLQs5/x5Fj42sP84n8xjJ6M0e/1lFnIdYxKqyPxGni/OGstm4ba1 +y9Z6ENccK7yytZiFG+/mvagi86/rlHNR5C4Lj+p6FJmTvHjVlHXh3gMWdpan +NPSTPAk0yzzv+4SFW71KfsUQ87Qy0p83k/2OEbh8g+SP6vz01IReFh65uL5+ +Icmn+si006u/sLDnidSJC75kf0ZST30aYGHY+Uh3DnFBZ0qy6RgLVQOtHNaR +vGNUJib9XsBG8e/BezeTfJR0i4oJ02Bj31BEpaI36e/WiGiODhvJSYx1huSr +/Ybwo62r2ej8sP66AHHa6oOHdYGN6lG3DTp20yC8JCB8eAsbN5d87QgjeT3v +1u7APYfYeCZdRWq7Mw0/lm9wd6xjozRy79bY0dDuS7Xsf8ZGa19Dky5bkldP +pyG6kY0nO0WKBYhTI0sVi96x0XU0iW2ykYaVfUt6pgbYWPCgsLfIigb/ipe7 +MsU4uIBiaIqb0DBg5+D8yYuD+plOH91W0vC6WPPFTx8OzuYOOZtp03BbcME6 +4QAONliz37K1aDhRUy2jH8FBB6Uvj3rVaVBRlO5ITOGg2s7OEjNlGvYOdzip +V3OQPpbsXiRP8jzZ3TF4oRJ2to79PSNE3j+gQa1cooS1HdYZNQtpmLScGhpa +qoQta77OCV5Aw1+CafE+MkpY9GzgQ68gWX/Eoyp3TSU8Kjdc5jzLhyPeSmJ2 +25SwOqpgcvgfPkgaD75Uz1bCH+zSg+W3+WD9/ZD1Z31ljOgQGu1y5IOcjkKC +kJEyyjDt/rXYxofh4Md16ibKyLM85ldGzlPpE0uNgm2UsXdXjLKfFR+6Z4u1 +/rgp47aBnotPDPkQvOSD2IoTyji+fEa1VZYPGarYvbFTGW+OpHQd7CLnS0+h +kKpoFZy17lq7bjuP/B9IzU2sU0W2ov9nQ61yWN6kdIr+roYDe/lTHROlIJfE +36yvr4EOV/ZUmiWWwEV1w6ViezWx7+g13WSZYnguY7J69IwWxkc5b3xZeA3W +ytWlar/TxlHR8enviwpBRDAv1CN2JQ7m9YRKxReAwjFFox1KOnguvYnj0JsH +izgu1Vuf6eD01TmMLza5oMVdwT+0Sxcv04IKIjXZENy9/NEGAT3s+jep+1DV +Ffg+muxgfVEP/eRUm5fNzwBL7acZ1pqrcNuxCq5Q/AW4P7puZrJ5FVok3crP +mUwHfw3djlfeq3HNova8K/fTgDvs1bpjkT7uNW9C57hUWM+W3iScp48VtcsW +rdNNAZWYv8PrDAxQQ/JHt9XDE6DmbVjL6TDA056Xn2XtSgDv+/uOVwWtQbPI +xtbDcXFQm9Pq9UPCEE8z8n/PrY2BsaI/k9o1htj/HZJulB0GT07pooxNa3F3 +sU/+w4pw+KF2Vr9yZC1u5Mw1Ov45FG4WzPSOJ61D90DRLKoxCHaakyxWMMKm +ZLlTryz9QdYv8ZbWAyM0Ba00S2sfkPjLt2LTdi4KywX+dcnCGwrMjkSO7ODi +wzlhC+bqe4PukVNmZ124GGQuqhjG8QbbEfptuwcXz71uOxU9zxsS3o1Pefpy +ceaZ3DPJR17wMy/aNPIYF9kHEtK2mHpBx7qzbwpLuZi262Jxi5Un7DtYcMWa +x0WpvEpGmqEnTPBueA/SXBy3sP29S80TllPtkzrVXKyQv/FOfIkn2AjJy917 +wEWxTFv33y93w93WQq83b7lYzM77dWfHbtggclMzrJ2L6aKeJkyb3dBu2TAh +3clFa1PJ9FSj3TB2+1uS60cuUvIHNqUo7gbN3JXl/w5wsWPiTdjvzx5wt8Mk +LHmIi3+iGGnX2zxgg/g20B7hoqDKndPBDR6wJ/Hgq9BxLpbkqsqJlHvA2IOE +DKmfXOxZoZozkOUBsdMXPG9Pc3GjaPNIS6oHLF1VrLFrlotD5ZVCD2M9IMvv +9vifP1wU7wnuux3qAf8DjOITiQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VesXB3ClQbdQGTOes8855iEUKcdahgwpGpAiQ6iUmWSoiAzdKEmT +MkvGczaJZqWJQipFhFDdrpCuKaR+7++P/ezn88/e73r3Wt/n3czdAVu95woI +CEyT6//3ie6Gx+yTBcYTPTJn/rnENW7Nko4waY8F80sLXNYrywJKvNwt3Z4G +kTgnc6GyOoRtLmkTbM+D8D073vUorYNlw1JpU22VkD5V7VikZAM9d20Dxtrq +YL4ZV+U3xxks2ANdP9pew4/ZlqgA1gGYajM4N9LWB8nBzgzzFVHwyOxawau8 +UWiMzqPmiCSDXM+tL7s1ZiFxxqW5IycdxH3dShaaCSJD9tXbhV0ZkKZjccfW +QQgFQ6r0VxbkwPuLKx/8WCqMrMANa8YD8+FkQfTLuSuW4b2+Xq3otYUgld5/ +4mymGDooSP66zC+CRHtr49cTErhE+FaE7Y0SkKlqlpk7RxJL5g/xIu+VAE/M +flJnsSSqHp2pzH1SAu9eu9JnFCUxOKOR9fFtCbC3hFJbrCRxRVVmisJECdRt +yl7QckkST8buq8xZXQqzFuPNTUZSyNZ8K1tFl0KIYa5bQ6w0dkrVPfl2vgw2 +5IiM2SRL4+vXq1o2Z5YBtfBwUvM5aRxjDqhW5JdBS6tjxZsiafwyZt/gSZeB +VuASwe5maZQvmS1NbSiDr4WHCv+TWYGrquzzhWbKwEXcdkj2+gp8rmVS6b+z +HMy/T0f698ugwekpvbmLeRBhla72cFAGqeoJjsJSHvByNTvEJmTwc5Dk8dUS +PJC2dze8JSSLEo3Gxx0VeTB488mkoJYsNnybTvXQ48HZ2NTQS+GyOBwq9/Ty +Th70SSj5PxaWwxzbILWcqzyQCqiVl5KSw6Z7T8NVS3iwsd6pyYchh6MpQTo8 +Hg+qI09qiOrJoa/K+97iGh783TMysMNJDg/dLIX9DTzQLb6z93ueHHbO6fsp +MsiDY0ZbPGTWyKPj/YF/vmrywco16z8DU3msCtUsWa3LB5GYb3EOG+Xx7PqB +RUf0+XDlUXxhqrs8ajhm5c0Y8+HmhtvfFpyQx5Tg98Y37fgw4sQKG30vj63O +bxy1A/ngenD878YoBVzgNjgmWc4HzgVTuYF4BfQtv/i5huaT+k+XL0xVwDyf +n4e3VfEh8pdqi2mBAq5XccmNvMOHc3GuErcaFbBRovFFUgMfGs88y74qr4gT +P+vnXf3Eh7W8S1VHaxVRcxoUAxfTYN7WPDtcr4hCJqtYr5fQYCswz9LttSIm +al9+ryNCg+dW//fwWRFtRktcB5bSYBHFjI6Zz0BZA4cWkKQhUHEi30SdgWHb +ryUeZtAwfj21fkqbgT8oy5e3mDREWqkPVaxiYLeZcdMYRUN8kLs+ZczAGyPc +IU8ODRmPntfP3cLAKw3fHyup0fB4b/bQozAGqpfoLQU9Gqx/GS4/HMXANd/4 +XdtX0dCc2qq/KoaB8TWD3v6raXh/a1FMwQkGXl7Wei3dgIbhxaHL468wMPJj +ydSTdTRI01YGFnVkfbmFK+6a0ZBp3u/8+ykDNTZ51NDmNFDvj8RUv2DgpRXP +xPPX06A593qD0lsGLpH5KHrMkgZTe3mXhV8ZmOtyaCllQ4Pvzx8x9cJM5Eht +Tfi5hYa1QXskvyxn4mKruusdW2kQGugoFZRm4u1f+0xvb6Phauejd8YUE4/e +UokPcqCh+/45jRv6THT8wC1/4ESDXbxhe64bE10iLEd6XWlQ+F3uV+vFxKyG +6n0ZbjQMhlGCXT5MpM72W292pyFp32It6VAmCv3nZ1XlQcMDm664U0lMrF29 +ynyXFw26y49pR1Uw8dxZ4SI9HxoETo4/vljNRKfJ2q91xM2C+3dW32GibtXO +DLv9NBwY3xr/4wkTo9/4bPU4QENBO7tzbwcTK13H2Xv8aAjecikwvoeJMgOD +Mx+J8bnwgvxPTFT8JW+1w5+GrjsTK7uHSX2f3E1NA2iQzK5PsBeksHXyZ9N4 +IA2fpLhywUIUihZauroE0VCZWlFxWphCiwHLfQ+I7WIzPjyXojAwu+BbTDCp +f0Yk+KschdKmSnu6iAdD4hYuoCgM6Mp3MQgh9Xv76ppoUKjW31/bT+zY/fGZ +qw6FVWtaNPVDaWBvd9h1WJ/CBJclMgnED6yMk2qQQp5jc4DCQRqm1Jd2azqQ +5+UuY+qE0TCRKXNMbyeF6/9EhfgTj4ly2IZuFD6tWOxeTDw8arjf3IfCyh1f +FkkfouGbt7nwBn8KZdc71dsQf22zpe1CKIwL5LKOEPfd8ZzYeYTCcZMbdDtx +j6b/JfdYCkMkQj7NDafhQ3a40Z5ECjXipqvViN8vi+s5kEyhb2Cfymbid3Ep +sUFnKLxnWbc2hPjN+AXOofMURvzUGTpL3LI3r/7wZQpTJxqwkrjpfdmB2BwK +Rday9JuJn9vUiCRdpfCDcVvTP8TP7j2sSCmh0GlejNAf4sfajfZn+RQKCN/8 +IhZBw8Pcd5MXq0g9rjI+SsT3xXozsm5R6BptmqpPfCf+G7fgPoUpkY0u5sQ3 +J8c/Fj8i6++0f2lHfMNH4Di/nkJFXvhXJ+LKzr+UbzRRaHPsbZEbMX+TxPPb +r8n39ly0zIu4rFbR70EbhZN9lcw9xMU6akuffqDQUDSo05u4MH/V9Re9FCaH +9Rt7EudLgOOrLxSWKpVsdCXOSbSeeveNwnVl3vO3E2dObbvyYYTCoOU1PpuI +Mw64Qt84hdf7INKE+ELXvr5/pilcw84z0CNOtwuJH/pD4X3nmDyK+MzDIyqj +81goc/LIHVHiU3pJL34uYuHgSm7cNNmvk1fT/H+LsHCdled0H3GSVOayeeIs +lLVKZzYQx85UbBdVYKG4VWnsKeJov7vT4iwWemR/uOdHfLjnaaaMCgt/JfNL +NxCHPers5+iycEjuXe4s6Y+Q1V8S1A1YePpreOkb4sBrI6o6Rix0u+K8/xrx +gZPzA40sWHjV9PhfVsT7ZkXFTG3I+tjyQ+LEewJkqi03s9Cu+XJiD+lX923a +v7buZGFGxPgXP+JdTwyzndxYaKKkXP7/ft9pYG7q6sXC+uFvmqNkHuxldyT5 ++LMw3KjXI4B4S4qnekAIC4tlfSXViG3/+DWHhrNw/nPjpD4yT1b9seIxsSys +szlYuJHYqLQs5/x5Fj42sP84n8xjJ6M0e/1lFnIdYxKqyPxGni/OGstm4ba1 +y9Z6ENccK7yytZiFG+/mvagi86/rlHNR5C4Lj+p6FJmTvHjVlHXh3gMWdpan +NPSTPAk0yzzv+4SFW71KfsUQ87Qy0p83k/2OEbh8g+SP6vz01IReFh65uL5+ +Icmn+si006u/sLDnidSJC75kf0ZST30aYGHY+Uh3DnFBZ0qy6RgLVQOtHNaR +vGNUJib9XsBG8e/BezeTfJR0i4oJ02Bj31BEpaI36e/WiGiODhvJSYx1huSr +/Ybwo62r2ej8sP66AHHa6oOHdYGN6lG3DTp20yC8JCB8eAsbN5d87QgjeT3v +1u7APYfYeCZdRWq7Mw0/lm9wd6xjozRy79bY0dDuS7Xsf8ZGa19Dky5bkldP +pyG6kY0nO0WKBYhTI0sVi96x0XU0iW2ykYaVfUt6pgbYWPCgsLfIigb/ipe7 +MsU4uIBiaIqb0DBg5+D8yYuD+plOH91W0vC6WPPFTx8OzuYOOZtp03BbcME6 +4QAONliz37K1aDhRUy2jH8FBB6Uvj3rVaVBRlO5ITOGg2s7OEjNlGvYOdzip +V3OQPpbsXiRP8jzZ3TF4oRJ2to79PSNE3j+gQa1cooS1HdYZNQtpmLScGhpa +qoQta77OCV5Aw1+CafE+MkpY9GzgQ68gWX/Eoyp3TSU8Kjdc5jzLhyPeSmJ2 +25SwOqpgcvgfPkgaD75Uz1bCH+zSg+W3+WD9/ZD1Z31ljOgQGu1y5IOcjkKC +kJEyyjDt/rXYxofh4Md16ibKyLM85ldGzlPpE0uNgm2UsXdXjLKfFR+6Z4u1 +/rgp47aBnotPDPkQvOSD2IoTyji+fEa1VZYPGarYvbFTGW+OpHQd7CLnS0+h +kKpoFZy17lq7bjuP/B9IzU2sU0W2ov9nQ61yWN6kdIr+roYDe/lTHROlIJfE +36yvr4EOV/ZUmiWWwEV1w6ViezWx7+g13WSZYnguY7J69IwWxkc5b3xZeA3W +ytWlar/TxlHR8enviwpBRDAv1CN2JQ7m9YRKxReAwjFFox1KOnguvYnj0JsH +izgu1Vuf6eD01TmMLza5oMVdwT+0Sxcv04IKIjXZENy9/NEGAT3s+jep+1DV +Ffg+muxgfVEP/eRUm5fNzwBL7acZ1pqrcNuxCq5Q/AW4P7puZrJ5FVok3crP +mUwHfw3djlfeq3HNova8K/fTgDvs1bpjkT7uNW9C57hUWM+W3iScp48VtcsW +rdNNAZWYv8PrDAxQQ/JHt9XDE6DmbVjL6TDA056Xn2XtSgDv+/uOVwWtQbPI +xtbDcXFQm9Pq9UPCEE8z8n/PrY2BsaI/k9o1htj/HZJulB0GT07pooxNa3F3 +sU/+w4pw+KF2Vr9yZC1u5Mw1Ov45FG4WzPSOJ61D90DRLKoxCHaakyxWMMKm +ZLlTryz9QdYv8ZbWAyM0Ba00S2sfkPjLt2LTdi4KywX+dcnCGwrMjkSO7ODi +wzlhC+bqe4PukVNmZ124GGQuqhjG8QbbEfptuwcXz71uOxU9zxsS3o1Pefpy +ceaZ3DPJR17wMy/aNPIYF9kHEtK2mHpBx7qzbwpLuZi262Jxi5Un7DtYcMWa +x0WpvEpGmqEnTPBueA/SXBy3sP29S80TllPtkzrVXKyQv/FOfIkn2AjJy917 +wEWxTFv33y93w93WQq83b7lYzM77dWfHbtggclMzrJ2L6aKeJkyb3dBu2TAh +3clFa1PJ9FSj3TB2+1uS60cuUvIHNqUo7gbN3JXl/w5wsWPiTdjvzx5wt8Mk +LHmIi3+iGGnX2zxgg/g20B7hoqDKndPBDR6wJ/Hgq9BxLpbkqsqJlHvA2IOE +DKmfXOxZoZozkOUBsdMXPG9Pc3GjaPNIS6oHLF1VrLFrlotD5ZVCD2M9IMvv +9vifP1wU7wnuux3qAf8DjOITiQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06435240099643723}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06435240099643723}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VesXB3ClQbdQGTOes8855iEUKcdahgwpGpAiQ6iUmWSoiAzdKEmT +MkvGczaJZqWJQipFhFDdrpCuKaR+7++P/ezn88/e73r3Wt/n3czdAVu95woI +CEyT6//3ie6Gx+yTBcYTPTJn/rnENW7Nko4waY8F80sLXNYrywJKvNwt3Z4G +kTgnc6GyOoRtLmkTbM+D8D073vUorYNlw1JpU22VkD5V7VikZAM9d20Dxtrq +YL4ZV+U3xxks2ANdP9pew4/ZlqgA1gGYajM4N9LWB8nBzgzzFVHwyOxawau8 +UWiMzqPmiCSDXM+tL7s1ZiFxxqW5IycdxH3dShaaCSJD9tXbhV0ZkKZjccfW +QQgFQ6r0VxbkwPuLKx/8WCqMrMANa8YD8+FkQfTLuSuW4b2+Xq3otYUgld5/ +4mymGDooSP66zC+CRHtr49cTErhE+FaE7Y0SkKlqlpk7RxJL5g/xIu+VAE/M +flJnsSSqHp2pzH1SAu9eu9JnFCUxOKOR9fFtCbC3hFJbrCRxRVVmisJECdRt +yl7QckkST8buq8xZXQqzFuPNTUZSyNZ8K1tFl0KIYa5bQ6w0dkrVPfl2vgw2 +5IiM2SRL4+vXq1o2Z5YBtfBwUvM5aRxjDqhW5JdBS6tjxZsiafwyZt/gSZeB +VuASwe5maZQvmS1NbSiDr4WHCv+TWYGrquzzhWbKwEXcdkj2+gp8rmVS6b+z +HMy/T0f698ugwekpvbmLeRBhla72cFAGqeoJjsJSHvByNTvEJmTwc5Dk8dUS +PJC2dze8JSSLEo3Gxx0VeTB488mkoJYsNnybTvXQ48HZ2NTQS+GyOBwq9/Ty +Th70SSj5PxaWwxzbILWcqzyQCqiVl5KSw6Z7T8NVS3iwsd6pyYchh6MpQTo8 +Hg+qI09qiOrJoa/K+97iGh783TMysMNJDg/dLIX9DTzQLb6z93ueHHbO6fsp +MsiDY0ZbPGTWyKPj/YF/vmrywco16z8DU3msCtUsWa3LB5GYb3EOG+Xx7PqB +RUf0+XDlUXxhqrs8ajhm5c0Y8+HmhtvfFpyQx5Tg98Y37fgw4sQKG30vj63O +bxy1A/ngenD878YoBVzgNjgmWc4HzgVTuYF4BfQtv/i5huaT+k+XL0xVwDyf +n4e3VfEh8pdqi2mBAq5XccmNvMOHc3GuErcaFbBRovFFUgMfGs88y74qr4gT +P+vnXf3Eh7W8S1VHaxVRcxoUAxfTYN7WPDtcr4hCJqtYr5fQYCswz9LttSIm +al9+ryNCg+dW//fwWRFtRktcB5bSYBHFjI6Zz0BZA4cWkKQhUHEi30SdgWHb +ryUeZtAwfj21fkqbgT8oy5e3mDREWqkPVaxiYLeZcdMYRUN8kLs+ZczAGyPc +IU8ODRmPntfP3cLAKw3fHyup0fB4b/bQozAGqpfoLQU9Gqx/GS4/HMXANd/4 +XdtX0dCc2qq/KoaB8TWD3v6raXh/a1FMwQkGXl7Wei3dgIbhxaHL468wMPJj +ydSTdTRI01YGFnVkfbmFK+6a0ZBp3u/8+ykDNTZ51NDmNFDvj8RUv2DgpRXP +xPPX06A593qD0lsGLpH5KHrMkgZTe3mXhV8ZmOtyaCllQ4Pvzx8x9cJM5Eht +Tfi5hYa1QXskvyxn4mKruusdW2kQGugoFZRm4u1f+0xvb6Phauejd8YUE4/e +UokPcqCh+/45jRv6THT8wC1/4ESDXbxhe64bE10iLEd6XWlQ+F3uV+vFxKyG +6n0ZbjQMhlGCXT5MpM72W292pyFp32It6VAmCv3nZ1XlQcMDm664U0lMrF29 +ynyXFw26y49pR1Uw8dxZ4SI9HxoETo4/vljNRKfJ2q91xM2C+3dW32GibtXO +DLv9NBwY3xr/4wkTo9/4bPU4QENBO7tzbwcTK13H2Xv8aAjecikwvoeJMgOD +Mx+J8bnwgvxPTFT8JW+1w5+GrjsTK7uHSX2f3E1NA2iQzK5PsBeksHXyZ9N4 +IA2fpLhywUIUihZauroE0VCZWlFxWphCiwHLfQ+I7WIzPjyXojAwu+BbTDCp +f0Yk+KschdKmSnu6iAdD4hYuoCgM6Mp3MQgh9Xv76ppoUKjW31/bT+zY/fGZ +qw6FVWtaNPVDaWBvd9h1WJ/CBJclMgnED6yMk2qQQp5jc4DCQRqm1Jd2azqQ +5+UuY+qE0TCRKXNMbyeF6/9EhfgTj4ly2IZuFD6tWOxeTDw8arjf3IfCyh1f +FkkfouGbt7nwBn8KZdc71dsQf22zpe1CKIwL5LKOEPfd8ZzYeYTCcZMbdDtx +j6b/JfdYCkMkQj7NDafhQ3a40Z5ECjXipqvViN8vi+s5kEyhb2Cfymbid3Ep +sUFnKLxnWbc2hPjN+AXOofMURvzUGTpL3LI3r/7wZQpTJxqwkrjpfdmB2BwK +Rday9JuJn9vUiCRdpfCDcVvTP8TP7j2sSCmh0GlejNAf4sfajfZn+RQKCN/8 +IhZBw8Pcd5MXq0g9rjI+SsT3xXozsm5R6BptmqpPfCf+G7fgPoUpkY0u5sQ3 +J8c/Fj8i6++0f2lHfMNH4Di/nkJFXvhXJ+LKzr+UbzRRaHPsbZEbMX+TxPPb +r8n39ly0zIu4rFbR70EbhZN9lcw9xMU6akuffqDQUDSo05u4MH/V9Re9FCaH +9Rt7EudLgOOrLxSWKpVsdCXOSbSeeveNwnVl3vO3E2dObbvyYYTCoOU1PpuI +Mw64Qt84hdf7INKE+ELXvr5/pilcw84z0CNOtwuJH/pD4X3nmDyK+MzDIyqj +81goc/LIHVHiU3pJL34uYuHgSm7cNNmvk1fT/H+LsHCdled0H3GSVOayeeIs +lLVKZzYQx85UbBdVYKG4VWnsKeJov7vT4iwWemR/uOdHfLjnaaaMCgt/JfNL +NxCHPers5+iycEjuXe4s6Y+Q1V8S1A1YePpreOkb4sBrI6o6Rix0u+K8/xrx +gZPzA40sWHjV9PhfVsT7ZkXFTG3I+tjyQ+LEewJkqi03s9Cu+XJiD+lX923a +v7buZGFGxPgXP+JdTwyzndxYaKKkXP7/ft9pYG7q6sXC+uFvmqNkHuxldyT5 ++LMw3KjXI4B4S4qnekAIC4tlfSXViG3/+DWHhrNw/nPjpD4yT1b9seIxsSys +szlYuJHYqLQs5/x5Fj42sP84n8xjJ6M0e/1lFnIdYxKqyPxGni/OGstm4ba1 +y9Z6ENccK7yytZiFG+/mvagi86/rlHNR5C4Lj+p6FJmTvHjVlHXh3gMWdpan +NPSTPAk0yzzv+4SFW71KfsUQ87Qy0p83k/2OEbh8g+SP6vz01IReFh65uL5+ +Icmn+si006u/sLDnidSJC75kf0ZST30aYGHY+Uh3DnFBZ0qy6RgLVQOtHNaR +vGNUJib9XsBG8e/BezeTfJR0i4oJ02Bj31BEpaI36e/WiGiODhvJSYx1huSr +/Ybwo62r2ej8sP66AHHa6oOHdYGN6lG3DTp20yC8JCB8eAsbN5d87QgjeT3v +1u7APYfYeCZdRWq7Mw0/lm9wd6xjozRy79bY0dDuS7Xsf8ZGa19Dky5bkldP +pyG6kY0nO0WKBYhTI0sVi96x0XU0iW2ykYaVfUt6pgbYWPCgsLfIigb/ipe7 +MsU4uIBiaIqb0DBg5+D8yYuD+plOH91W0vC6WPPFTx8OzuYOOZtp03BbcME6 +4QAONliz37K1aDhRUy2jH8FBB6Uvj3rVaVBRlO5ITOGg2s7OEjNlGvYOdzip +V3OQPpbsXiRP8jzZ3TF4oRJ2to79PSNE3j+gQa1cooS1HdYZNQtpmLScGhpa +qoQta77OCV5Aw1+CafE+MkpY9GzgQ68gWX/Eoyp3TSU8Kjdc5jzLhyPeSmJ2 +25SwOqpgcvgfPkgaD75Uz1bCH+zSg+W3+WD9/ZD1Z31ljOgQGu1y5IOcjkKC +kJEyyjDt/rXYxofh4Md16ibKyLM85ldGzlPpE0uNgm2UsXdXjLKfFR+6Z4u1 +/rgp47aBnotPDPkQvOSD2IoTyji+fEa1VZYPGarYvbFTGW+OpHQd7CLnS0+h +kKpoFZy17lq7bjuP/B9IzU2sU0W2ov9nQ61yWN6kdIr+roYDe/lTHROlIJfE +36yvr4EOV/ZUmiWWwEV1w6ViezWx7+g13WSZYnguY7J69IwWxkc5b3xZeA3W +ytWlar/TxlHR8enviwpBRDAv1CN2JQ7m9YRKxReAwjFFox1KOnguvYnj0JsH +izgu1Vuf6eD01TmMLza5oMVdwT+0Sxcv04IKIjXZENy9/NEGAT3s+jep+1DV +Ffg+muxgfVEP/eRUm5fNzwBL7acZ1pqrcNuxCq5Q/AW4P7puZrJ5FVok3crP +mUwHfw3djlfeq3HNova8K/fTgDvs1bpjkT7uNW9C57hUWM+W3iScp48VtcsW +rdNNAZWYv8PrDAxQQ/JHt9XDE6DmbVjL6TDA056Xn2XtSgDv+/uOVwWtQbPI +xtbDcXFQm9Pq9UPCEE8z8n/PrY2BsaI/k9o1htj/HZJulB0GT07pooxNa3F3 +sU/+w4pw+KF2Vr9yZC1u5Mw1Ov45FG4WzPSOJ61D90DRLKoxCHaakyxWMMKm +ZLlTryz9QdYv8ZbWAyM0Ba00S2sfkPjLt2LTdi4KywX+dcnCGwrMjkSO7ODi +wzlhC+bqe4PukVNmZ124GGQuqhjG8QbbEfptuwcXz71uOxU9zxsS3o1Pefpy +ceaZ3DPJR17wMy/aNPIYF9kHEtK2mHpBx7qzbwpLuZi262Jxi5Un7DtYcMWa +x0WpvEpGmqEnTPBueA/SXBy3sP29S80TllPtkzrVXKyQv/FOfIkn2AjJy917 +wEWxTFv33y93w93WQq83b7lYzM77dWfHbtggclMzrJ2L6aKeJkyb3dBu2TAh +3clFa1PJ9FSj3TB2+1uS60cuUvIHNqUo7gbN3JXl/w5wsWPiTdjvzx5wt8Mk +LHmIi3+iGGnX2zxgg/g20B7hoqDKndPBDR6wJ/Hgq9BxLpbkqsqJlHvA2IOE +DKmfXOxZoZozkOUBsdMXPG9Pc3GjaPNIS6oHLF1VrLFrlotD5ZVCD2M9IMvv +9vifP1wU7wnuux3qAf8DjOITiQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06435240099643723}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06435240099643723}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Input", + CellChangeTimes->{{3.99430132696749*^9, + 3.994301326984873*^9}},ExpressionUUID->"f33d4fe6-2a3a-49ae-a85c-\ +f3177d7f2910"], Cell[CellGroupData[{ @@ -13263,26 +16507,30 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], - ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -13304,66 +16552,72 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[142]:=",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], + "In[153]:=",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 142, 93, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279097599506`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.2903766126945`*^-167\\\", \ +RowBox[{\\\"161198658118785115956678\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"98\\\", \\\"\[RightSkeleton]\\\"}], \\\"0000000000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 153, 73, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279097599506`*^9, 3.994260733507966*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], +In[153]:=",ExpressionUUID->"f73aa6b0-5ec7-4eed-aefd-a7a995a5b54b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 142, 94, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327909769953*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.1383905468111606`*^-170\\\", \ +RowBox[{\\\"505518991860510123640143\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"101\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 153, 74, + 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279097599506`*^9, 3.9942607335170813`*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], +In[153]:=",ExpressionUUID->"41274c82-c93c-4412-8777-b14458245b3e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 142, 95, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279097784023`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.9964900555423497`*^-173\\\", \ +RowBox[{\\\"164243120455479739170682\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"105\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 153, 75, + 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279097599506`*^9, 3.994260733525783*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], +In[153]:=",ExpressionUUID->"9a6b3cdb-6580-4622-9f46-4bbfd5386d33"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 142, 96, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327909786396*^9}, +during this calculation.\"", 2, 153, 76, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279097599506`*^9, 3.9942607335330763`*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], +In[153]:=",ExpressionUUID->"ef97bc71-3e83-40d8-b466-c6e75afd59f6"], -Cell[BoxData["11.275343508420296`"], "Output", - CellChangeTimes->{3.9913279159698696`*^9}, +Cell[BoxData["12.201545025902739`"], "Output", + CellChangeTimes->{3.9913279159698696`*^9, 3.994260793377592*^9}, CellLabel-> - "Out[142]=",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] + "Out[153]=",ExpressionUUID->"666a5fff-42e1-42f8-a0e4-4421afc0e09f"] }, Open ]], Cell[CellGroupData[{ @@ -13393,14 +16647,15 @@ Cell[BoxData[ RowBox[{ SuperscriptBox[ RowBox[{"(", - FractionBox[ + RowBox[{ + FractionBox["1", "2"], RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}]}], + ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", @@ -13430,68 +16685,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.99179998339209*^9, - 3.991799988637089*^9}},ExpressionUUID->"a5e0631c-6c6c-a045-8418-\ -22c641e38d86"], + CellChangeTimes->{{3.99179998339209*^9, 3.991799988637089*^9}}, + CellLabel-> + "In[154]:=",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 143, 97, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327916008396*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.126086771589442`*^-221\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 154, 77, + 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327916008396*^9, 3.994260793421249*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], +In[154]:=",ExpressionUUID->"b44c4664-8d8f-48f9-9885-489953abb45f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 143, 98, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327916018362*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.8793317661323697`*^-226\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 154, 78, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327916008396*^9, 3.994260793429364*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], +In[154]:=",ExpressionUUID->"fb58de9c-deb5-4ddf-8723-3773b24fe11d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 143, - 99, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279160263577`*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.084453859531986`*^-232\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 154, 79, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327916008396*^9, 3.994260793437809*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], +In[154]:=",ExpressionUUID->"ba3e3fb4-cf60-4fca-a77b-52970a17a8fd"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 143, 100, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327916034359*^9}, +during this calculation.\"", 2, 154, 80, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327916008396*^9, 3.994260793446493*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], +In[154]:=",ExpressionUUID->"914488a0-e884-4cbb-a2d7-8adaa4a8052d"], -Cell[BoxData["1.0734937398087425`"], "Output", - CellChangeTimes->{3.991327922931429*^9}, +Cell[BoxData["0.2504568390811368`"], "Output", + CellChangeTimes->{3.991327922931429*^9, 3.994260802106772*^9}, CellLabel-> - "Out[143]=",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] + "Out[154]=",ExpressionUUID->"f4d808de-4067-4eef-9b49-c947d46b42a6"] }, Open ]], Cell[CellGroupData[{ @@ -13512,8 +16772,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -13521,14 +16780,15 @@ Cell[BoxData[ RowBox[{ SuperscriptBox[ RowBox[{"(", - FractionBox[ + RowBox[{ + FractionBox["1", "2"], RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}]}], + ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", @@ -13558,68 +16818,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991799991275097*^9, - 3.9917999948700333`*^9}},ExpressionUUID->"4b6c44e4-d946-0c4d-9992-\ -4f0fc7048689"], + CellChangeTimes->{{3.991799991275097*^9, 3.9917999948700333`*^9}}, + CellLabel-> + "In[155]:=",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 144, 101, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279229664307`*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.126086771589442`*^-221\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 155, 81, + 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279229664307`*^9, 3.99426080215698*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], +In[155]:=",ExpressionUUID->"9e01788a-0614-47d8-bb7e-55269e56e15f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 144, 102, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327922975607*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.8793317661323697`*^-226\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 155, 82, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279229664307`*^9, 3.994260802166334*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], +In[155]:=",ExpressionUUID->"91193a02-6116-40ae-a216-95cb986000f9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 144, - 103, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279229836063`*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.084453859531986`*^-232\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 155, 83, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279229664307`*^9, 3.994260802175151*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], +In[155]:=",ExpressionUUID->"078d9545-cabf-4556-877a-5bd38535385f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 144, 104, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279229916077`*^9}, +during this calculation.\"", 2, 155, 84, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279229664307`*^9, 3.994260802183856*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], +In[155]:=",ExpressionUUID->"9ebbb37a-c4ba-4724-9861-1163085d33b7"], -Cell[BoxData["9.48093127226425`"], "Output", - CellChangeTimes->{3.9913279288200035`*^9}, +Cell[BoxData["38.1275851985685`"], "Output", + CellChangeTimes->{3.9913279288200035`*^9, 3.994260810467185*^9}, CellLabel-> - "Out[144]=",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] + "Out[155]=",ExpressionUUID->"6490c564-07ef-4022-b4fa-81c068d59679"] }, Open ]], Cell[CellGroupData[{ @@ -13640,8 +16905,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -13649,14 +16913,15 @@ Cell[BoxData[ RowBox[{ SuperscriptBox[ RowBox[{"(", - FractionBox[ + RowBox[{ + FractionBox["1", "2"], RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}]}], + ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", @@ -13686,68 +16951,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918000011431293`*^9, - 3.9918000068677616`*^9}},ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-\ -32244819d42b"], + CellChangeTimes->{{3.9918000011431293`*^9, 3.9918000068677616`*^9}}, + CellLabel-> + "In[156]:=",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 145, 105, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327928854006*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.126086771589442`*^-221\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 156, 85, + 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327928854006*^9, 3.9942608105099297`*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], +In[156]:=",ExpressionUUID->"d39b0db9-9c84-4c21-85dd-e5c9b9b991d4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 145, 106, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327928864023*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.8793317661323697`*^-226\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 156, 86, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327928854006*^9, 3.994260810517346*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], +In[156]:=",ExpressionUUID->"c63e81c7-8f49-4990-8d1b-46ca72be79e9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 145, - 107, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327928871004*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.084453859531986`*^-232\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 156, 87, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327928854006*^9, 3.994260810525886*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], +In[156]:=",ExpressionUUID->"fa3f9a56-b443-4af4-a08c-c84eeb665f37"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 145, 108, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327928878006*^9}, +during this calculation.\"", 2, 156, 88, 31387659680754802437, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327928854006*^9, 3.99426081053397*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], +In[156]:=",ExpressionUUID->"58c760d8-b5d1-41bc-8037-c36e6fe35a02"], -Cell[BoxData["17.503865312709518`"], "Output", - CellChangeTimes->{3.9913279320131683`*^9}, +Cell[BoxData["6.752562573966115`"], "Output", + CellChangeTimes->{3.9913279320131683`*^9, 3.9942608163924427`*^9}, CellLabel-> - "Out[145]=",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] + "Out[156]=",ExpressionUUID->"a2195e49-a9da-4d50-a30c-ca548e14cd75"] }, Open ]], Cell[CellGroupData[{ @@ -13756,20 +17026,573 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991800029528055*^9, - 3.991800041720209*^9}},ExpressionUUID->"99da2760-e71e-1246-8cc9-\ -f0a7464dc747"], - -Cell[BoxData["0.08333108480569339`"], "Output", - CellChangeTimes->{3.9913279320452003`*^9}, + CellChangeTimes->{{3.991800029528055*^9, 3.991800041720209*^9}}, CellLabel-> - "Out[146]=",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] + "In[157]:=",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], + +Cell[BoxData["0.015609138582857016`"], "Output", + CellChangeTimes->{3.9913279320452003`*^9, 3.994260816433093*^9}, + CellLabel-> + "Out[157]=",ExpressionUUID->"dfd47947-3621-43f7-ad1b-3c65c6725115"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellLabel-> + "In[158]:=",ExpressionUUID->"23f22373-ad07-4fd5-82c8-39ee62a405f5"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"Button", "[", + RowBox[{"\"\<\:0421\:043e\:0437\:0434\:0430\:0442\:044c \:0442\:0430\:0431\ +\:043b\:0438\:0446\:0443 \:0438\:0437 \:0432\:044b\:0434\:0435\:043b\:0435\ +\:043d\:043d\:043e\:0433\:043e \:0433\:0440\:0430\:0444\:0438\:043a\:0430\>\"", + ",", + RowBox[{"Module", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"selectedExpr", ",", "extractedPoints"}], "}"}], ",", + RowBox[{"(*", + RowBox[{ + RowBox[{ + "1.", " ", "\:0427\:0438\:0442\:0430\:0435\:043c", " ", + "\:0442\:043e"}], ",", + RowBox[{ + "\:0447\:0442\:043e", " ", "\:0441\:0435\:0439\:0447\:0430\:0441", " ", + "\:0432\:044b\:0434\:0435\:043b\:0435\:043d\:043e", " ", + "\:043c\:044b\:0448\:043a\:043e\:0439", " ", "\:0432", " ", + "\:0431\:043b\:043e\:043a\:043d\:043e\:0442\:0435"}]}], "*)"}], + RowBox[{ + RowBox[{"selectedExpr", "=", + RowBox[{"NotebookRead", "[", + RowBox[{"EvaluationNotebook", "[", "]"}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{ + "2.", " ", "\:0418\:0449\:0435\:043c", " ", + "\:0432\:043d\:0443\:0442\:0440\:0438", " ", + "\:0432\:044b\:0434\:0435\:043b\:0435\:043d\:0438\:044f", " ", + "\:0441\:0436\:0430\:0442\:044b\:0435", " ", + "\:0434\:0430\:043d\:043d\:044b\:0435", " ", + "\:043b\:0438\:043d\:0438\:0438"}], "*)"}], + RowBox[{"extractedPoints", "=", + RowBox[{"Cases", "[", + RowBox[{"selectedExpr", ",", + RowBox[{ + RowBox[{"Line", "[", "pts_", "]"}], ":>", "pts"}], ",", + "Infinity"}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"If", "[", + RowBox[{ + RowBox[{ + RowBox[{"Length", "[", "extractedPoints", "]"}], ">", "0"}], ",", + RowBox[{"(*", + RowBox[{ + RowBox[{ + "\:0415\:0441\:043b\:0438", " ", "\:043b\:0438\:043d\:0438\:0439", + " ", "\:043d\:0435\:0441\:043a\:043e\:043b\:044c\:043a\:043e"}], ",", + RowBox[{ + RowBox[{"\:0431\:0435\:0440\:0435\:043c", " ", + RowBox[{ + "\:043f\:0435\:0440\:0432\:0443\:044e", ".", + "\:0415\:0441\:043b\:0438"}], " ", "\:043e\:0434\:043d\:0430"}], + "-", "\:0435\:0451"}]}], "*)"}], + RowBox[{ + RowBox[{"plotX", "=", + RowBox[{"First", "[", "extractedPoints", "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{ + "3.", " ", "\:0414\:0435\:043b\:0430\:0435\:043c", " ", + "\:0438\:043d\:0442\:0435\:0440\:043f\:043e\:043b\:044f\:0446\ +\:0438\:044e", " ", "\:0438", " ", + "\:0442\:0430\:0431\:043b\:0438\:0446\:0443"}], "*)"}], + RowBox[{"fInterp", "=", + RowBox[{"Interpolation", "[", "plotX", "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"dataX", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"x", ",", + RowBox[{"fInterp", "[", "x", "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30", ",", "1"}], "}"}]}], "]"}]}], + ";", "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{ + "4.", " ", "\:041f\:0435\:0447\:0430\:0442\:0430\:0435\:043c", " ", + "\:0442\:0430\:0431\:043b\:0438\:0446\:0443", " ", + "\:043f\:0440\:044f\:043c\:043e", " ", "\:043f\:043e\:0434", " ", + "\:043a\:043d\:043e\:043f\:043a\:043e\:0439"}], "*)"}], + RowBox[{"Print", "[", + RowBox[{"dataX", "//", "TableForm"}], "]"}]}], ",", + RowBox[{"(*", + RowBox[{ + "\:0415\:0441\:043b\:0438", " ", + "\:043f\:043e\:043b\:044c\:0437\:043e\:0432\:0430\:0442\:0435\:043b\ +\:044c", " ", "\:0437\:0430\:0431\:044b\:043b", " ", + "\:0432\:044b\:0434\:0435\:043b\:0438\:0442\:044c", " ", + "\:0433\:0440\:0430\:0444\:0438\:043a"}], "*)"}], + RowBox[{ + "MessageDialog", + "[", "\"\<\:041e\:0448\:0438\:0431\:043a\:0430: \:041f\:043e\:0436\ +\:0430\:043b\:0443\:0439\:0441\:0442\:0430, \:043a\:043b\:0438\:043a\:043d\ +\:0438\:0442\:0435 \:043c\:044b\:0448\:043a\:043e\:0439 \:043f\:043e \:0433\ +\:0440\:0430\:0444\:0438\:043a\:0443 (\:0432\:044b\:0434\:0435\:043b\:0438\ +\:0442\:0435 \:0435\:0433\:043e \:044f\:0447\:0435\:0439\:043a\:0443) \:043f\ +\:0435\:0440\:0435\:0434 \:043d\:0430\:0436\:0430\:0442\:0438\:0435\:043c \ +\:043a\:043d\:043e\:043f\:043a\:0438!\>\"", "]"}]}], "]"}]}]}], "]"}]}], + "]"}], "\n"}]], "Input", + CellChangeTimes->{{3.9943010334486027`*^9, 3.9943010334486322`*^9}}, + CellLabel->"In[14]:=",ExpressionUUID->"d8811343-ec1d-4482-bf8e-b5f9fff2b33a"], + +Cell[BoxData[ + ButtonBox["\<\"\:0421\:043e\:0437\:0434\:0430\:0442\:044c \:0442\:0430\:0431\ +\:043b\:0438\:0446\:0443 \:0438\:0437 \:0432\:044b\:0434\:0435\:043b\:0435\ +\:043d\:043d\:043e\:0433\:043e \:0433\:0440\:0430\:0444\:0438\:043a\:0430\"\>", + Appearance->Automatic, + ButtonFunction:> + Module[{$CellContext`selectedExpr, $CellContext`extractedPoints}, \ +$CellContext`selectedExpr = NotebookRead[ + EvaluationNotebook[]]; $CellContext`extractedPoints = + Cases[$CellContext`selectedExpr, Line[ + Pattern[$CellContext`pts, + Blank[]]] :> $CellContext`pts, Infinity]; + If[Length[$CellContext`extractedPoints] > + 0, $CellContext`plotX = + First[$CellContext`extractedPoints]; $CellContext`fInterp = + Interpolation[$CellContext`plotX]; $CellContext`dataX = + Table[{$CellContext`x, + $CellContext`fInterp[$CellContext`x]}, {$CellContext`x, 0, 30, 1}]; + Print[ + TableForm[$CellContext`dataX]], + MessageDialog[ + "\:041e\:0448\:0438\:0431\:043a\:0430: \:041f\:043e\:0436\:0430\:043b\ +\:0443\:0439\:0441\:0442\:0430, \:043a\:043b\:0438\:043a\:043d\:0438\:0442\ +\:0435 \:043c\:044b\:0448\:043a\:043e\:0439 \:043f\:043e \:0433\:0440\:0430\ +\:0444\:0438\:043a\:0443 (\:0432\:044b\:0434\:0435\:043b\:0438\:0442\:0435 \ +\:0435\:0433\:043e \:044f\:0447\:0435\:0439\:043a\:0443) \:043f\:0435\:0440\ +\:0435\:0434 \:043d\:0430\:0436\:0430\:0442\:0438\:0435\:043c \:043a\:043d\ +\:043e\:043f\:043a\:0438!"]]], + Evaluator->Automatic, + Method->"Preemptive"]], "Output", + CellChangeTimes->{3.994301036739622*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"ac54a27f-4403-41fb-b9c5-100938775ec4"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{"(*", + RowBox[{ + "\:0414\:043e\:0431\:0430\:0432\:043b\:044f\:0435\:043c", " ", + "\:043f\:0443\:043d\:043a\:0442", " ", "\:0432", " ", + "\:043a\:043e\:043d\:0442\:0435\:043a\:0441\:0442\:043d\:043e\:0435", " ", + "\:043c\:0435\:043d\:044e", " ", "\:0434\:043b\:044f", " ", + "\:0433\:0440\:0430\:0444\:0438\:043a\:043e\:0432"}], "*)"}], + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"CurrentValue", "[", + RowBox[{"$FrontEnd", ",", + RowBox[{"{", + RowBox[{ + "OptionValue", ",", "GraphicsBoxOptions", ",", "ContextMenus"}], + "}"}]}], "]"}], "=", + RowBox[{"Append", "[", + RowBox[{ + RowBox[{"CurrentValue", "[", + RowBox[{"$FrontEnd", ",", + RowBox[{"{", + RowBox[{ + "OptionValue", ",", "GraphicsBoxOptions", ",", "ContextMenus"}], + "}"}]}], "]"}], ",", + RowBox[{"MenuItem", "[", + RowBox[{"\"\<\:0421\:0434\:0435\:043b\:0430\:0442\:044c \:0442\:0430\ +\:0431\:043b\:0438\:0446\:0443 (0-30)\>\"", ",", + RowBox[{"KernelExecute", "[", + RowBox[{"Module", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"cellExpr", ",", "extractedPoints"}], "}"}], ",", + RowBox[{"(*", + RowBox[{ + RowBox[{ + "\:0427\:0438\:0442\:0430\:0435\:043c", " ", + "\:044f\:0447\:0435\:0439\:043a\:0443"}], ",", + RowBox[{ + "\:043d\:0430", " ", + "\:043a\:043e\:0442\:043e\:0440\:043e\:0439", " ", + "\:0432\:044b\:0437\:0432\:0430\:043b\:0438", " ", + "\:043c\:0435\:043d\:044e"}]}], "*)"}], + RowBox[{ + RowBox[{"cellExpr", "=", + RowBox[{"NotebookRead", "[", + RowBox[{"EvaluationNotebook", "[", "]"}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"extractedPoints", "=", + RowBox[{"Cases", "[", + RowBox[{"cellExpr", ",", + RowBox[{ + RowBox[{"Line", "[", "pts_", "]"}], ":>", "pts"}], ",", + "Infinity"}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"If", "[", + RowBox[{ + RowBox[{ + RowBox[{"Length", "[", "extractedPoints", "]"}], ">", "0"}], ",", + RowBox[{ + RowBox[{"plotX", "=", + RowBox[{"First", "[", "extractedPoints", "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"fInterp", "=", + RowBox[{"Interpolation", "[", "plotX", "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"dataX", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"x", ",", + RowBox[{"fInterp", "[", "x", "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30", ",", "1"}], "}"}]}], + "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{ + "\:041f\:0435\:0447\:0430\:0442\:0430\:0435\:043c", " ", + "\:0442\:0430\:0431\:043b\:0438\:0446\:0443", " ", + "\:0441\:0442\:0440\:043e\:0447\:043a\:043e\:0439", " ", + "\:043d\:0438\:0436\:0435", " ", + "\:0433\:0440\:0430\:0444\:0438\:043a\:0430"}], "*)"}], + RowBox[{"CellPrint", "[", + RowBox[{"Cell", "[", + RowBox[{ + RowBox[{"BoxData", "[", + RowBox[{"ToBoxes", "[", + RowBox[{"TableForm", "[", "dataX", "]"}], "]"}], "]"}], + ",", "\"\\""}], "]"}], "]"}]}], ",", + RowBox[{ + "MessageDialog", + "[", "\"\<\:041d\:0435 \:0443\:0434\:0430\:043b\:043e\:0441\ +\:044c \:0438\:0437\:0432\:043b\:0435\:0447\:044c \:043b\:0438\:043d\:0438\ +\:0438 \:0438\:0437 \:044d\:0442\:043e\:0433\:043e \:0433\:0440\:0430\:0444\ +\:0438\:043a\:0430.\>\"", "]"}]}], "]"}]}]}], "]"}], "]"}], ",", + RowBox[{"MenuEvaluator", "->", "Automatic"}]}], "]"}]}], "]"}]}], + ";"}], "\n"}]}]], "Input", + CellChangeTimes->{{3.994301160520686*^9, 3.994301160520714*^9}}, + CellLabel->"In[17]:=",ExpressionUUID->"c8104c70-d441-4fec-b0fa-a4b78c580ce6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"CreatePalette", "[", + RowBox[{ + RowBox[{"Row", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"Button", "[", + RowBox[{"\"\<\:0422\:0430\:0431\:043b\:0438\:0446\:0430 \:0438\:0437 \ +1-\:0439 \:043b\:0438\:043d\:0438\:0438\>\"", ",", + RowBox[{"Module", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"cell", ",", "pts"}], "}"}], ",", + RowBox[{ + RowBox[{"cell", "=", + RowBox[{"NotebookRead", "[", + RowBox[{"SelectedNotebook", "[", "]"}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"pts", "=", + RowBox[{"Cases", "[", + RowBox[{"cell", ",", + RowBox[{ + RowBox[{"Line", "[", "p_", "]"}], ":>", "p"}], ",", + "Infinity"}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"If", "[", + RowBox[{ + RowBox[{ + RowBox[{"Length", "[", "pts", "]"}], ">", "0"}], ",", + RowBox[{ + RowBox[{"plotX", "=", + RowBox[{"pts", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"fInterp", "=", + RowBox[{"Interpolation", "[", "plotX", "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"dataX", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"x", ",", + RowBox[{"fInterp", "[", "x", "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30", ",", "1"}], "}"}]}], + "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"NotebookWrite", "[", + RowBox[{ + RowBox[{"SelectedNotebook", "[", "]"}], ",", "cell"}], "]"}], + ";", + RowBox[{"(*", + RowBox[{ + "\:0441\:043d\:0438\:043c\:0430\:0435\:043c", " ", + "\:0432\:044b\:0434\:0435\:043b\:0435\:043d\:0438\:0435"}], + "*)"}], + RowBox[{"SelectionMove", "[", + RowBox[{ + RowBox[{"SelectedNotebook", "[", "]"}], ",", "After", ",", + "Cell"}], "]"}], ";", "\[IndentingNewLine]", + RowBox[{"CellPrint", "[", + RowBox[{"Cell", "[", + RowBox[{ + RowBox[{"BoxData", "[", + RowBox[{"ToBoxes", "[", + RowBox[{"TableForm", "[", "dataX", "]"}], "]"}], "]"}], + ",", "\"\\""}], "]"}], "]"}]}], ",", + RowBox[{ + "MessageDialog", + "[", "\"\<\:041e\:0448\:0438\:0431\:043a\:0430: \:041a\:043b\ +\:0438\:043a\:043d\:0438\:0442\:0435 \:043f\:043e \:0440\:0430\:043c\:043a\ +\:0435 \:0433\:0440\:0430\:0444\:0438\:043a\:0430 \:0438\:043b\:0438 \:043f\ +\:043e \:0441\:043a\:043e\:0431\:043a\:0435 \:044f\:0447\:0435\:0439\:043a\ +\:0438 \:0441\:043f\:0440\:0430\:0432\:0430!\>\"", "]"}]}], "]"}]}]}], "]"}], + ",", + RowBox[{"Background", "->", + RowBox[{"RGBColor", "[", + RowBox[{"0.9", ",", "0.95", ",", "1"}], "]"}]}], ",", + RowBox[{"ImageSize", "->", + RowBox[{"{", + RowBox[{"150", ",", "25"}], "}"}]}]}], "]"}], ",", + RowBox[{"Button", "[", + RowBox[{"\"\<\:0421\:0431\:0440\:043e\:0441\:0438\:0442\:044c \:043c\ +\:0435\:043d\:044e\>\"", ",", + RowBox[{ + RowBox[{ + RowBox[{"CurrentValue", "[", + RowBox[{"$FrontEnd", ",", + RowBox[{"{", + RowBox[{ + "OptionValue", ",", "GraphicsBoxOptions", ",", "ContextMenus"}], + "}"}]}], "]"}], "=", "Inherited"}], ";", "\[IndentingNewLine]", + RowBox[{ + "MessageDialog", + "[", "\"\<\:0421\:0442\:0430\:0440\:043e\:0435 \:043a\:043e\:043d\ +\:0442\:0435\:043a\:0441\:0442\:043d\:043e\:0435 \:043c\:0435\:043d\:044e \ +\:043e\:0447\:0438\:0449\:0435\:043d\:043e.\>\"", "]"}]}], ",", + RowBox[{"ImageSize", "->", + RowBox[{"{", + RowBox[{"100", ",", "25"}], "}"}]}]}], "]"}]}], "}"}], "]"}], ",", + RowBox[{ + "WindowTitle", + "->", "\"\<\:042d\:043a\:0441\:043f\:043e\:0440\:0442 \:0442\:0430\:0431\ +\:043b\:0438\:0446\>\""}], ",", + RowBox[{"Saveable", "->", "False"}]}], "]"}], "\n"}]], "Input", + CellChangeTimes->{{3.994301302394573*^9, 3.9943013023946133`*^9}}, + CellLabel->"In[16]:=",ExpressionUUID->"2a0d1f71-804a-4ee0-91a9-518a0afc72da"], + +Cell[BoxData[ + TemplateBox[<| + "obj" -> NotebookObject[ + "7701a73a-9028-451c-bb54-3b65930e9f65", + "69340552-97a0-4e7f-acc8-0425037578b4"], "label" -> + "\"\:042d\:043a\:0441\:043f\:043e\:0440\:0442 \:0442\:0430\:0431\:043b\ +\:0438\:0446\""|>, + "NotebookObjectUUIDsUnsaved"]], "Output", + CellChangeTimes->{3.994301304130517*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"72b7866c-db95-4bf4-b427-d89621d9bd1e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"CellPrint", "[", + RowBox[{"ExpressionCell", "[", + RowBox[{ + RowBox[{"Panel", "[", + RowBox[{ + RowBox[{"Row", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"Style", "[", + + RowBox[{"\"\<\:0423\:043f\:0440\:0430\:0432\:043b\:0435\:043d\:0438\ +\:0435 \:043a\:044d\:0448\:0435\:043c \:0433\:0440\:0430\:0444\:0438\:043a\ +\:0430: \>\"", ",", "Bold"}], "]"}], ",", + RowBox[{"Button", "[", + + RowBox[{"\"\<\:0421\:0434\:0435\:043b\:0430\:0442\:044c \:0442\ +\:0430\:0431\:043b\:0438\:0446\:0443 (\:041b\:0438\:043d\:0438\:044f 1)\>\"", + ",", + RowBox[{"Module", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"cell", ",", "pts"}], "}"}], ",", + RowBox[{ + RowBox[{"cell", "=", + RowBox[{"NotebookRead", "[", + RowBox[{"EvaluationNotebook", "[", "]"}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"pts", "=", + RowBox[{"Cases", "[", + RowBox[{"cell", ",", + RowBox[{ + RowBox[{"Line", "[", "p_", "]"}], ":>", "p"}], ",", + "Infinity"}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"If", "[", + RowBox[{ + RowBox[{ + RowBox[{"Length", "[", "pts", "]"}], ">", "0"}], ",", + RowBox[{ + RowBox[{"plotX", "=", + RowBox[{"pts", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"fInterp", "=", + RowBox[{"Interpolation", "[", "plotX", "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"dataX", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"x", ",", + RowBox[{"fInterp", "[", "x", "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30", ",", "1"}], "}"}]}], + "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"SelectionMove", "[", + RowBox[{ + RowBox[{"EvaluationNotebook", "[", "]"}], ",", "After", ",", + "Cell"}], "]"}], ";", "\[IndentingNewLine]", + RowBox[{"CellPrint", "[", + RowBox[{"Cell", "[", + RowBox[{ + RowBox[{"BoxData", "[", + RowBox[{"ToBoxes", "[", + RowBox[{"TableForm", "[", "dataX", "]"}], "]"}], "]"}], + ",", "\"\\""}], "]"}], "]"}]}], ",", + RowBox[{"MessageDialog", "[", + + RowBox[{"\"\<\:041e\:0448\:0438\:0431\:043a\:0430: \:0421\ +\:043d\:0430\:0447\:0430\:043b\:0430 \:0432\:044b\:0434\:0435\:043b\:0438\ +\:0442\:0435 \:043d\:0443\:0436\:043d\:044b\:0439 \:0433\:0440\:0430\:0444\ +\:0438\:043a (\:043a\:043b\:0438\:043a\:043d\:0438\:0442\:0435 \:043f\:043e \ +\:0435\:0433\:043e \:044f\:0447\:0435\:0439\:043a\:0435 \:0441\:043f\:0440\ +\:0430\:0432\:0430)!\>\"", ",", + RowBox[{"WindowFloating", "->", "True"}]}], "]"}]}], + "]"}]}]}], "]"}], ",", + RowBox[{"Background", "->", + RowBox[{"RGBColor", "[", + RowBox[{"0.9", ",", "0.95", ",", "1"}], "]"}]}], ",", + RowBox[{"ImageSize", "->", + RowBox[{"{", + RowBox[{"180", ",", "25"}], "}"}]}]}], "]"}]}], "}"}], "]"}], ",", + RowBox[{"Background", "->", + RowBox[{"GrayLevel", "[", "0.95", "]"}]}], ",", + RowBox[{"FrameMargins", "->", "10"}]}], "]"}], ",", "\"\\""}], + "]"}], "]"}], "\n"}]], "Input", + CellChangeTimes->{{3.9943014544746237`*^9, 3.994301454474661*^9}}, + CellLabel->"In[18]:=",ExpressionUUID->"95f11f58-6444-44bb-b90d-a26a6df194cc"], + +Cell[BoxData[ + PanelBox[ + TemplateBox[{ + StyleBox[ + "\"\:0423\:043f\:0440\:0430\:0432\:043b\:0435\:043d\:0438\:0435 \:043a\ +\:044d\:0448\:0435\:043c \:0433\:0440\:0430\:0444\:0438\:043a\:0430: \"", + Bold, StripOnInput -> False], + ButtonBox[ + "\"\:0421\:0434\:0435\:043b\:0430\:0442\:044c \:0442\:0430\:0431\:043b\ +\:0438\:0446\:0443 (\:041b\:0438\:043d\:0438\:044f 1)\"", ButtonFunction :> + Module[{$CellContext`cell, $CellContext`pts}, $CellContext`cell = + NotebookRead[ + EvaluationNotebook[]]; $CellContext`pts = + Cases[$CellContext`cell, Line[ + Pattern[$CellContext`p, + Blank[]]] :> $CellContext`p, Infinity]; + If[Length[$CellContext`pts] > + 0, $CellContext`plotX = + Part[$CellContext`pts, 1]; $CellContext`fInterp = + Interpolation[$CellContext`plotX]; $CellContext`dataX = + Table[{$CellContext`x, + $CellContext`fInterp[$CellContext`x]}, {$CellContext`x, 0, 30, + 1}]; SelectionMove[ + EvaluationNotebook[], After, Cell]; CellPrint[ + Cell[ + BoxData[ + ToBoxes[ + TableForm[$CellContext`dataX]]], "Output"]], + MessageDialog[ + "\:041e\:0448\:0438\:0431\:043a\:0430: \ +\:0421\:043d\:0430\:0447\:0430\:043b\:0430 \:0432\:044b\:0434\:0435\:043b\ +\:0438\:0442\:0435 \:043d\:0443\:0436\:043d\:044b\:0439 \:0433\:0440\:0430\ +\:0444\:0438\:043a (\:043a\:043b\:0438\:043a\:043d\:0438\:0442\:0435 \:043f\ +\:043e \:0435\:0433\:043e \:044f\:0447\:0435\:0439\:043a\:0435 \:0441\:043f\ +\:0440\:0430\:0432\:0430)!", WindowFloating -> True]]], Background -> + RGBColor[0.9, 0.95, 1], ImageSize -> {180, 25}, Appearance -> Automatic, + Evaluator -> Automatic, Method -> "Preemptive"]}, + "RowDefault"], + Background->GrayLevel[0.95], + FrameMargins->10]], "Output", + CellChangeTimes->{ + 3.9943014573805656`*^9},ExpressionUUID->"83e5abfb-57fc-486a-99d2-\ +678a4694bbed"], + +Cell[BoxData[ + TagBox[GridBox[{ + {"0", + RowBox[{"-", "2.710505431213761`*^-20"}]}, + {"1", "0.010627452518549003`"}, + {"2", "0.02091683566228892`"}, + {"3", "0.030548379369056317`"}, + {"4", "0.03923597870931137`"}, + {"5", "0.0467428506883034`"}, + {"6", "0.05289037168204393`"}, + {"7", "0.05756551242241262`"}, + {"8", "0.06072299225262374`"}, + {"9", "0.06238272972618864`"}, + {"10", "0.06262394156368589`"}, + {"11", "0.06157599852309033`"}, + {"12", "0.05940708643340134`"}, + {"13", "0.05631167415834051`"}, + {"14", "0.05249780447366832`"}, + {"15", "0.0481750839152066`"}, + {"16", "0.04354403759249646`"}, + {"17", "0.0387878342992532`"}, + {"18", "0.034065651517093766`"}, + {"19", "0.029508957398870207`"}, + {"20", "0.02522019154797898`"}, + {"21", "0.0212723117247518`"}, + {"22", "0.017711437050390553`"}, + {"23", "0.014559834589729126`"}, + {"24", "0.011819411707398165`"}, + {"25", "0.009476337523784798`"}, + {"26", "0.0075049890767077436`"}, + {"27", "0.0058718600894152526`"}, + {"28", "0.004539056207962139`"}, + {"29", "0.003467059935737168`"}, + {"30", "0.0026169770259356416`"} + }, + GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[2.0999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + Function[BoxForm`e$, + TableForm[BoxForm`e$]]]], "Output", + CellChangeTimes->{ + 3.994304230480793*^9},ExpressionUUID->"6619b15e-cf46-4d5d-b0b3-\ +fa6d5e6f3fc8"] }, Open ]] }, +Evaluator->"kernel 5", WindowSize->{1440, 882}, WindowMargins->{{0, Automatic}, {0, Automatic}}, CellContext->Notebook, -Magnification:>1.8 Inherited, +Magnification:>0.7 Inherited, FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"8af74bcb-cc50-f64a-8d83-c4bf7188d038" @@ -13786,660 +17609,695 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 357, 7, 119, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], -Cell[936, 31, 232, 5, 75, "Output",ExpressionUUID->"92f49e10-533c-4895-8227-9d625a4d69aa"] +Cell[576, 22, 352, 6, 46, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], +Cell[931, 30, 251, 4, 29, "Output",ExpressionUUID->"c8caea76-0ab6-4efc-9a1c-88f4d28e5660"] }, Open ]], Cell[CellGroupData[{ -Cell[1205, 41, 250, 5, 66, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], -Cell[1458, 48, 232, 5, 75, "Output",ExpressionUUID->"0cc75d92-f172-49f1-af02-d0fe714b7c1a"] +Cell[1219, 39, 245, 4, 25, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], +Cell[1467, 45, 249, 4, 29, "Output",ExpressionUUID->"73dd1586-a8cd-4168-bff8-16217aaa79f9"] }, Open ]], Cell[CellGroupData[{ -Cell[1727, 58, 228, 5, 66, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], -Cell[1958, 65, 234, 5, 75, "Output",ExpressionUUID->"0a529fc7-b82a-4b77-826b-ce12e09db9d8"] +Cell[1753, 54, 223, 4, 25, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], +Cell[1979, 60, 253, 4, 29, "Output",ExpressionUUID->"9c8af8d6-8c6b-4973-940b-854dce16469e"] }, Open ]], Cell[CellGroupData[{ -Cell[2229, 75, 180, 4, 66, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], -Cell[2412, 81, 232, 5, 75, "Output",ExpressionUUID->"a240a871-a81b-4828-b217-62f42d3e6cad"] +Cell[2269, 69, 175, 3, 25, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], +Cell[2447, 74, 249, 4, 29, "Output",ExpressionUUID->"2462a33b-4d56-49ab-a9f5-8e13a2600fe4"] }, Open ]], Cell[CellGroupData[{ -Cell[2681, 91, 262, 8, 96, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], -Cell[2946, 101, 237, 5, 75, "Output",ExpressionUUID->"ea8958cd-1f07-4fa3-a535-21044c2aeef1"] +Cell[2733, 83, 257, 7, 38, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], +Cell[2993, 92, 254, 4, 29, "Output",ExpressionUUID->"027c0c7b-4292-474b-b4a3-2b9bc70c34f3"] }, Open ]], Cell[CellGroupData[{ -Cell[3220, 111, 136, 3, 66, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], -Cell[3359, 116, 233, 5, 75, "Output",ExpressionUUID->"63e2d5e5-72a0-4e84-a043-72de8f80f600"] +Cell[3284, 101, 131, 2, 25, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], +Cell[3418, 105, 250, 4, 29, "Output",ExpressionUUID->"25d57258-9588-47d2-b9a0-e73280456d5f"] }, Open ]], Cell[CellGroupData[{ -Cell[3629, 126, 281, 7, 66, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], -Cell[3913, 135, 248, 5, 75, "Output",ExpressionUUID->"c7baef21-5c80-41c7-b8a2-73b0b22c9000"] +Cell[3705, 114, 276, 6, 25, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], +Cell[3984, 122, 265, 4, 29, "Output",ExpressionUUID->"ede5a1f3-0909-4de0-b069-b4a284abfdd5"] }, Open ]], Cell[CellGroupData[{ -Cell[4198, 145, 262, 8, 66, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], -Cell[4463, 155, 248, 5, 75, "Output",ExpressionUUID->"bada540b-f688-4880-b784-78f4bfe25248"] +Cell[4286, 131, 257, 7, 25, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], +Cell[4546, 140, 265, 4, 29, "Output",ExpressionUUID->"f8c1485f-21ce-42ff-aa5b-6e5ef4c990c8"] }, Open ]], Cell[CellGroupData[{ -Cell[4748, 165, 208, 4, 66, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], -Cell[4959, 171, 218, 4, 75, "Output",ExpressionUUID->"826c2028-43b6-493e-a1d4-a979bf302a2b"] +Cell[4848, 149, 203, 3, 25, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], +Cell[5054, 154, 241, 4, 29, "Output",ExpressionUUID->"256fcf09-32e6-47f2-a0a2-102a924d913a"] }, Open ]], Cell[CellGroupData[{ -Cell[5214, 180, 210, 4, 66, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], -Cell[5427, 186, 214, 4, 75, "Output",ExpressionUUID->"3dabc3f7-ec02-453a-ae26-458be204b325"] +Cell[5332, 163, 206, 3, 25, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], +Cell[5541, 168, 236, 4, 29, "Output",ExpressionUUID->"5402f704-fbb8-4f51-a5ac-9f9c50ecaffa"] }, Open ]], Cell[CellGroupData[{ -Cell[5678, 195, 133, 3, 66, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], -Cell[5814, 200, 232, 5, 75, "Output",ExpressionUUID->"02204c7c-37a4-44a6-89aa-0b946579fc77"] +Cell[5814, 177, 129, 2, 25, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], +Cell[5946, 181, 250, 4, 29, "Output",ExpressionUUID->"e42106a8-b2e5-44c0-a844-81008a3ece37"] }, Open ]], Cell[CellGroupData[{ -Cell[6083, 210, 133, 3, 66, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], -Cell[6219, 215, 232, 5, 75, "Output",ExpressionUUID->"d976ecb2-9be0-4097-8078-cc338cac051e"] +Cell[6233, 190, 129, 2, 25, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], +Cell[6365, 194, 249, 4, 29, "Output",ExpressionUUID->"23522bff-881b-4fbf-a5a8-c20352058b26"] }, Open ]], Cell[CellGroupData[{ -Cell[6488, 225, 561, 20, 175, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], -Cell[7052, 247, 249, 5, 75, "Output",ExpressionUUID->"bc5faa54-82a7-408a-93ab-470e75a32ee6"] +Cell[6651, 203, 557, 19, 73, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], +Cell[7211, 224, 267, 4, 29, "Output",ExpressionUUID->"bced0da3-a422-454d-91d1-5ea06da6ed4d"] }, Open ]], Cell[CellGroupData[{ -Cell[7338, 257, 561, 20, 175, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], -Cell[7902, 279, 252, 5, 75, "Output",ExpressionUUID->"d0222803-9416-4d88-a6f0-060cd875acf4"] +Cell[7515, 233, 557, 19, 73, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], +Cell[8075, 254, 272, 4, 42, "Output",ExpressionUUID->"4210d92c-2408-44ca-b129-87321fe9391e"] }, Open ]], Cell[CellGroupData[{ -Cell[8191, 289, 1592, 51, 362, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], -Cell[9786, 342, 246, 5, 75, "Output",ExpressionUUID->"33be40cd-a16d-40d6-9573-ddfebe151544"] +Cell[8384, 263, 1588, 50, 42, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], +Cell[9975, 315, 264, 4, 42, "Output",ExpressionUUID->"2f2809e5-1f01-44d8-be2a-f5935f701c25"] }, Open ]], Cell[CellGroupData[{ -Cell[10069, 352, 1426, 47, 362, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], -Cell[11498, 401, 266, 6, 75, "Output",ExpressionUUID->"b9c7f0dd-0cb1-455c-befa-a752ed88a1d1"] +Cell[10276, 324, 1422, 46, 42, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], +Cell[11701, 372, 284, 5, 42, "Output",ExpressionUUID->"512d1137-302e-4e51-9861-8406d2ed52c1"] }, Open ]], Cell[CellGroupData[{ -Cell[11801, 412, 1426, 47, 362, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], -Cell[13230, 461, 271, 6, 75, "Output",ExpressionUUID->"01a1ddfc-b675-4943-bc9a-dd26167acb43"] +Cell[12022, 382, 1422, 46, 42, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], +Cell[13447, 430, 289, 5, 42, "Output",ExpressionUUID->"137be829-b260-491b-86cb-b8199e80ef59"] }, Open ]], Cell[CellGroupData[{ -Cell[13538, 472, 1592, 51, 362, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], -Cell[15133, 525, 243, 5, 75, "Output",ExpressionUUID->"08157cc6-e8c8-4bd7-a5a7-5459e366ef52"] +Cell[13773, 440, 1588, 50, 42, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], +Cell[15364, 492, 261, 4, 42, "Output",ExpressionUUID->"79abb450-5f23-4020-aeff-476fc3e6ee55"] }, Open ]], Cell[CellGroupData[{ -Cell[15413, 535, 135, 3, 66, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], -Cell[15551, 540, 234, 5, 75, "Output",ExpressionUUID->"90be8d69-26d3-4048-ba16-ad9d011b4703"] +Cell[15662, 501, 131, 2, 42, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], +Cell[15796, 505, 252, 4, 42, "Output",ExpressionUUID->"fac2b08d-613b-4705-80a9-df31e58b63b2"] }, Open ]], Cell[CellGroupData[{ -Cell[15822, 550, 137, 3, 66, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], -Cell[15962, 555, 232, 5, 75, "Output",ExpressionUUID->"963d81a0-9ff1-47d5-a2d9-47315708edfa"] +Cell[16085, 514, 133, 2, 42, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], +Cell[16221, 518, 250, 4, 42, "Output",ExpressionUUID->"7c1e8dd9-ee25-4c46-8f42-822e2aeffea1"] }, Open ]], Cell[CellGroupData[{ -Cell[16231, 565, 138, 3, 66, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], -Cell[16372, 570, 240, 5, 75, "Output",ExpressionUUID->"1aebb37c-e437-46ca-87cc-80f0d9a94ed6"] +Cell[16508, 527, 134, 2, 42, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], +Cell[16645, 531, 260, 4, 42, "Output",ExpressionUUID->"f7148e56-5a85-425b-83cb-257b4c7ba8db"] }, Open ]], Cell[CellGroupData[{ -Cell[16649, 580, 223, 5, 66, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], -Cell[16875, 587, 247, 6, 75, "Output",ExpressionUUID->"249b8c73-d930-48ad-b9e9-59d5b706ebd0"] +Cell[16942, 540, 219, 4, 42, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], +Cell[17164, 546, 265, 5, 42, "Output",ExpressionUUID->"32948509-79c3-4ae1-b6fa-899b3df33ced"] }, Open ]], Cell[CellGroupData[{ -Cell[17159, 598, 138, 3, 66, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], -Cell[17300, 603, 236, 5, 75, "Output",ExpressionUUID->"e7ffabb3-f7fd-4500-84cd-ccbf975faf83"] +Cell[17466, 556, 134, 2, 42, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], +Cell[17603, 560, 254, 4, 42, "Output",ExpressionUUID->"c6ce6bc1-822f-4c06-a135-0e2f5f84b23d"] }, Open ]], Cell[CellGroupData[{ -Cell[17573, 613, 328, 6, 66, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], -Cell[17904, 621, 232, 5, 75, "Output",ExpressionUUID->"2419f2a8-1e65-4a18-b034-189377b2a77c"] +Cell[17894, 569, 324, 5, 42, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], +Cell[18221, 576, 250, 4, 42, "Output",ExpressionUUID->"2b3c30be-c454-4b25-9ae9-35f6061a945f"] }, Open ]], Cell[CellGroupData[{ -Cell[18173, 631, 301, 6, 66, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], -Cell[18477, 639, 235, 5, 75, "Output",ExpressionUUID->"036ec96a-ba0b-412d-b998-cfeb918f6e9f"] +Cell[18508, 585, 297, 5, 42, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], +Cell[18808, 592, 253, 4, 42, "Output",ExpressionUUID->"94bcdb7f-c9ee-40c6-a572-70c54ef57a7f"] }, Open ]], Cell[CellGroupData[{ -Cell[18749, 649, 223, 5, 66, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], -Cell[18975, 656, 229, 5, 75, "Output",ExpressionUUID->"0100bcee-d8c3-450b-be1c-5960f0c586b3"] +Cell[19098, 601, 219, 4, 42, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], +Cell[19320, 607, 247, 4, 42, "Output",ExpressionUUID->"53f396bc-ae76-4d81-9073-31f294c4a68d"] }, Open ]], Cell[CellGroupData[{ -Cell[19241, 666, 354, 11, 96, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], -Cell[19598, 679, 251, 5, 75, "Output",ExpressionUUID->"e15babaf-72ba-47fd-825d-89d856f0cf03"] +Cell[19604, 616, 350, 10, 42, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], +Cell[19957, 628, 269, 4, 42, "Output",ExpressionUUID->"5fa90644-2bff-4b21-a945-8fb285c862b0"] }, Open ]], Cell[CellGroupData[{ -Cell[19886, 689, 354, 11, 96, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], -Cell[20243, 702, 267, 6, 75, "Output",ExpressionUUID->"20ac17cf-fcfa-4716-af9c-bde1604aeae1"] +Cell[20263, 637, 350, 10, 42, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], +Cell[20616, 649, 285, 5, 42, "Output",ExpressionUUID->"9fb9d872-a299-4e7e-9885-444e8442c96b"] }, Open ]], Cell[CellGroupData[{ -Cell[20547, 713, 998, 27, 184, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], -Cell[21548, 742, 246, 5, 75, "Output",ExpressionUUID->"cecb9c0e-b59c-4750-b2b1-30a8328178d2"] +Cell[20938, 659, 994, 26, 42, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], +Cell[21935, 687, 264, 4, 42, "Output",ExpressionUUID->"56d25d48-a13c-4052-b988-b276467f684c"] }, Open ]], Cell[CellGroupData[{ -Cell[21831, 752, 203, 4, 66, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], -Cell[22037, 758, 234, 5, 75, "Output",ExpressionUUID->"42c2c1a0-cee4-457b-9154-cde84748c01c"] +Cell[22236, 696, 199, 3, 42, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], +Cell[22438, 701, 254, 4, 42, "Output",ExpressionUUID->"b83e8672-5871-408e-b7fd-d015fa0fed8e"] }, Open ]], Cell[CellGroupData[{ -Cell[22308, 768, 333, 6, 66, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], -Cell[22644, 776, 211, 4, 75, "Output",ExpressionUUID->"0a105781-8ae2-465b-8ffd-a1ec840b3e52"] +Cell[22729, 710, 329, 5, 42, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], +Cell[23061, 717, 233, 4, 42, "Output",ExpressionUUID->"ad7dc7e2-5e99-40d1-a338-66e184140a23"] }, Open ]], -Cell[22870, 783, 177, 3, 66, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], +Cell[23309, 724, 173, 2, 42, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], Cell[CellGroupData[{ -Cell[23072, 790, 333, 6, 66, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], -Cell[23408, 798, 211, 4, 75, "Output",ExpressionUUID->"fecf66b4-2daa-4656-b192-56694d052145"] +Cell[23507, 730, 329, 5, 42, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], +Cell[23839, 737, 232, 4, 42, "Output",ExpressionUUID->"fa6ddb1e-4e98-4aad-b129-2a849fdfaac7"] }, Open ]], -Cell[23634, 805, 177, 3, 66, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], +Cell[24086, 744, 173, 2, 42, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], Cell[CellGroupData[{ -Cell[23836, 812, 330, 6, 66, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], -Cell[24169, 820, 205, 4, 75, "Output",ExpressionUUID->"683a7d34-4923-48d8-a9b9-5cd8d430c0a7"] +Cell[24284, 750, 326, 5, 42, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], +Cell[24613, 757, 226, 4, 42, "Output",ExpressionUUID->"5e14d7e5-ff6c-448f-bf56-0b5b2c239524"] }, Open ]], -Cell[24389, 827, 177, 3, 66, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], +Cell[24854, 764, 173, 2, 42, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], Cell[CellGroupData[{ -Cell[24591, 834, 356, 6, 66, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], -Cell[24950, 842, 209, 4, 75, "Output",ExpressionUUID->"88e2d78a-8c64-465a-8abd-b3298cf685b3"] +Cell[25052, 770, 352, 5, 42, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], +Cell[25407, 777, 231, 4, 42, "Output",ExpressionUUID->"6cc5fe5c-37bc-45fa-b147-eb048fc12f73"] }, Open ]], -Cell[25174, 849, 175, 3, 66, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], +Cell[25653, 784, 171, 2, 42, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], Cell[CellGroupData[{ -Cell[25374, 856, 303, 6, 66, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], -Cell[25680, 864, 211, 4, 75, "Output",ExpressionUUID->"6ce9657a-1686-402b-b34b-751ae69af9aa"] +Cell[25849, 790, 299, 5, 42, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], +Cell[26151, 797, 233, 4, 42, "Output",ExpressionUUID->"48b58a44-cec8-4798-8504-afaaa4c790f4"] }, Open ]], -Cell[25906, 871, 175, 3, 66, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], +Cell[26399, 804, 171, 2, 42, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], Cell[CellGroupData[{ -Cell[26106, 878, 309, 6, 66, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], -Cell[26418, 886, 208, 4, 75, "Output",ExpressionUUID->"c2d97d15-e2a1-4ca5-b150-9bf4eb7ff27b"] +Cell[26595, 810, 305, 5, 42, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], +Cell[26903, 817, 230, 4, 42, "Output",ExpressionUUID->"b93fe9d8-2e58-4486-b372-baca800f40c3"] }, Open ]], -Cell[26641, 893, 177, 3, 66, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], +Cell[27148, 824, 173, 2, 42, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], Cell[CellGroupData[{ -Cell[26843, 900, 310, 6, 66, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], -Cell[27156, 908, 208, 4, 75, "Output",ExpressionUUID->"aa72a42c-ecda-434b-9c18-b8eafaf3f24a"] +Cell[27346, 830, 306, 5, 42, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], +Cell[27655, 837, 232, 4, 42, "Output",ExpressionUUID->"607bc5eb-3cdc-48c5-9eaa-d2a0eef7f8f2"] }, Open ]], -Cell[27379, 915, 176, 3, 66, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], +Cell[27902, 844, 172, 2, 42, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], Cell[CellGroupData[{ -Cell[27580, 922, 278, 5, 66, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], -Cell[27861, 929, 207, 4, 75, "Output",ExpressionUUID->"918c9ed6-e358-42b9-8f43-f645fd52c2d1"] +Cell[28099, 850, 274, 4, 42, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], +Cell[28376, 856, 231, 4, 42, "Output",ExpressionUUID->"cfefdd72-1902-4946-9067-eeb4610b36df"] }, Open ]], -Cell[28083, 936, 179, 3, 66, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], +Cell[28622, 863, 175, 2, 42, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ -Cell[28287, 943, 19813, 486, 5405, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], -Cell[48103, 1431, 249, 5, 75, "Output",ExpressionUUID->"e0e8cb47-2ea4-4195-9c6e-3ab5417accc0"] +Cell[28822, 869, 19957, 489, 42, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], +Cell[48782, 1360, 267, 4, 42, "Output",ExpressionUUID->"c783b742-6dad-4b7c-bf3c-8d63e238de54"] }, Open ]], Cell[CellGroupData[{ -Cell[48389, 1441, 19752, 490, 5343, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], -Cell[68144, 1933, 247, 5, 75, "Output",ExpressionUUID->"b621c5bb-9177-45b8-b442-aaf2dd776d70"] +Cell[49086, 1369, 19896, 493, 42, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], +Cell[68985, 1864, 265, 4, 42, "Output",ExpressionUUID->"849b97d1-0293-4291-95ff-157eaba2fe82"] }, Open ]], Cell[CellGroupData[{ -Cell[68428, 1943, 19752, 484, 5342, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], -Cell[88183, 2429, 265, 6, 75, "Output",ExpressionUUID->"82cfdd64-3f1e-4b73-b2ea-5778810ddd17"] +Cell[69287, 1873, 20044, 491, 42, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], +Cell[89334, 2366, 283, 5, 42, "Output",ExpressionUUID->"13c0b34c-0a78-4022-aac8-c8112660bbd8"] }, Open ]], Cell[CellGroupData[{ -Cell[88485, 2440, 22538, 554, 6074, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], -Cell[111026, 2996, 267, 6, 75, "Output",ExpressionUUID->"281e4c34-c425-4ac7-9186-671fafe39131"] +Cell[89654, 2376, 22830, 561, 42, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], +Cell[112487, 2939, 285, 5, 42, "Output",ExpressionUUID->"0d5cb897-d6b8-4795-bb18-4311bf8068c9"] }, Open ]], Cell[CellGroupData[{ -Cell[111330, 3007, 22539, 554, 6074, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], -Cell[133872, 3563, 266, 6, 75, "Output",ExpressionUUID->"25e6553a-fb83-425a-ac8d-977995a2d598"] +Cell[112809, 2949, 22831, 561, 42, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], +Cell[135643, 3512, 284, 5, 42, "Output",ExpressionUUID->"647a906a-7941-4d52-a705-268e17f55c02"] }, Open ]], Cell[CellGroupData[{ -Cell[134175, 3574, 25495, 627, 6806, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], -Cell[159673, 4203, 265, 6, 75, "Output",ExpressionUUID->"705c7128-176a-4e60-8cde-3141363199e3"] +Cell[135964, 3522, 25787, 634, 42, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], +Cell[161754, 4158, 283, 5, 42, "Output",ExpressionUUID->"04a34987-60a6-4d9e-bc9c-67ac25616e2c"] }, Open ]], Cell[CellGroupData[{ -Cell[159975, 4214, 134, 3, 66, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], -Cell[160112, 4219, 229, 5, 75, "Output",ExpressionUUID->"163a2a2b-0ca8-4c5b-a553-567a37965691"] +Cell[162074, 4168, 130, 2, 42, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], +Cell[162207, 4172, 249, 4, 42, "Output",ExpressionUUID->"a6344032-2b31-48a9-8462-c06d7c81aed2"] }, Open ]], Cell[CellGroupData[{ -Cell[160378, 4229, 134, 3, 66, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], -Cell[160515, 4234, 232, 5, 75, "Output",ExpressionUUID->"1920f2b3-4662-4ead-9654-2f62cf5727b3"] +Cell[162493, 4181, 130, 2, 42, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], +Cell[162626, 4185, 250, 4, 42, "Output",ExpressionUUID->"d8000416-851b-4054-9ceb-4c00ecbadfad"] }, Open ]], Cell[CellGroupData[{ -Cell[160784, 4244, 1148, 40, 246, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], -Cell[161935, 4286, 246, 5, 75, "Output",ExpressionUUID->"340b0d86-e03b-45cb-b2c2-ae9e64c52c8f"] +Cell[162913, 4194, 1144, 39, 42, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], +Cell[164060, 4235, 264, 4, 42, "Output",ExpressionUUID->"fa7a978c-2627-4e12-9912-6efae7889c62"] }, Open ]], Cell[CellGroupData[{ -Cell[162218, 4296, 1045, 36, 246, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], -Cell[163266, 4334, 262, 6, 75, "Output",ExpressionUUID->"76ba76ba-9562-41cd-88c4-707224480d23"] +Cell[164361, 4244, 1041, 35, 42, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], +Cell[165405, 4281, 280, 5, 42, "Output",ExpressionUUID->"ea2bfa60-dc9b-4882-852c-a53222c44571"] }, Open ]], Cell[CellGroupData[{ -Cell[163565, 4345, 1148, 40, 246, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], -Cell[164716, 4387, 250, 5, 75, "Output",ExpressionUUID->"bf90d935-4ee8-481c-8d5c-3be142664870"] +Cell[165722, 4291, 1144, 39, 42, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], +Cell[166869, 4332, 268, 4, 42, "Output",ExpressionUUID->"ab8095ce-43db-4116-8e14-1483ffda435a"] }, Open ]], Cell[CellGroupData[{ -Cell[165003, 4397, 112, 2, 66, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], -Cell[165118, 4401, 248, 5, 75, "Output",ExpressionUUID->"2623f4b4-3e57-436d-a3a2-83f9307bb872"] +Cell[167174, 4341, 108, 1, 42, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], +Cell[167285, 4344, 264, 4, 42, "Output",ExpressionUUID->"c7693d32-6f74-4fef-a15e-326f3e1f4fe6"] }, Open ]], Cell[CellGroupData[{ -Cell[165403, 4411, 112, 2, 66, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], -Cell[165518, 4415, 266, 6, 75, "Output",ExpressionUUID->"0f1eded3-805e-4cbe-a37b-057f37983da3"] +Cell[167586, 4353, 108, 1, 42, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], +Cell[167697, 4356, 286, 5, 42, "Output",ExpressionUUID->"8f5a4d45-341b-4335-b174-9daa58ab578e"] }, Open ]], Cell[CellGroupData[{ -Cell[165821, 4426, 112, 2, 66, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], -Cell[165936, 4430, 262, 6, 75, "Output",ExpressionUUID->"cbacdbb0-99d6-446e-9ceb-fa978d1ee555"] +Cell[168020, 4366, 108, 1, 42, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], +Cell[168131, 4369, 282, 5, 42, "Output",ExpressionUUID->"c76427fb-1535-4d83-b6bd-cc0ac03a7bf5"] }, Open ]], Cell[CellGroupData[{ -Cell[166235, 4441, 112, 2, 66, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], -Cell[166350, 4445, 248, 5, 75, "Output",ExpressionUUID->"a202ddec-8352-4ca8-86b6-0ae67d808b59"] +Cell[168450, 4379, 108, 1, 42, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], +Cell[168561, 4382, 266, 4, 42, "Output",ExpressionUUID->"db6d7e7a-8ae7-4426-ab03-c7857dba6cf0"] }, Open ]], Cell[CellGroupData[{ -Cell[166635, 4455, 111, 2, 66, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], -Cell[166749, 4459, 225, 4, 75, "Output",ExpressionUUID->"de4b39e2-fadc-4df3-a685-cbd07a5ae09a"] +Cell[168864, 4391, 107, 1, 42, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], +Cell[168974, 4394, 249, 4, 42, "Output",ExpressionUUID->"2deedc9a-50f3-4200-a3c3-7d3a54710333"] }, Open ]], Cell[CellGroupData[{ -Cell[167011, 4468, 111, 2, 66, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], -Cell[167125, 4472, 221, 4, 75, "Output",ExpressionUUID->"dfe901e9-edb5-4eea-8e15-d73ae4da775a"] +Cell[169260, 4403, 107, 1, 42, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], +Cell[169370, 4406, 243, 4, 42, "Output",ExpressionUUID->"1d58ab54-f863-456d-b52f-29d45b49bd87"] }, Open ]], Cell[CellGroupData[{ -Cell[167383, 4481, 501, 17, 125, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], -Cell[167887, 4500, 238, 5, 75, "Output",ExpressionUUID->"48e44735-b63e-4544-b63e-264031b735d8"] +Cell[169650, 4415, 497, 16, 42, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], +Cell[170150, 4433, 260, 5, 42, "Output",ExpressionUUID->"497e0158-40fe-455f-9839-a7a37fddab9a"] }, Open ]], Cell[CellGroupData[{ -Cell[168162, 4510, 501, 17, 125, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], -Cell[168666, 4529, 238, 5, 75, "Output",ExpressionUUID->"61b052e1-d792-4900-8d96-d63125b54874"] +Cell[170447, 4443, 497, 16, 42, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], +Cell[170947, 4461, 260, 5, 42, "Output",ExpressionUUID->"69277e46-b174-4540-b650-3cbbb33f22a5"] }, Open ]], Cell[CellGroupData[{ -Cell[168941, 4539, 1792, 61, 420, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], -Cell[170736, 4602, 219, 4, 75, "Output",ExpressionUUID->"efa493bf-62a4-42ef-a298-acc4b31951e1"] +Cell[171244, 4471, 1788, 60, 42, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], +Cell[173035, 4533, 241, 4, 42, "Output",ExpressionUUID->"e65a44fe-4ffc-4ad2-8b46-c52e26524f5e"] }, Open ]], Cell[CellGroupData[{ -Cell[170992, 4611, 1105, 37, 299, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], -Cell[172100, 4650, 238, 5, 75, "Output",ExpressionUUID->"ce0c3045-c46d-48ae-b267-0e10802a422a"] +Cell[173313, 4542, 1101, 36, 42, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], +Cell[174417, 4580, 259, 5, 42, "Output",ExpressionUUID->"fd522247-221d-4fbf-8982-60c39f3c5a6d"] }, Open ]], Cell[CellGroupData[{ -Cell[172375, 4660, 1822, 62, 420, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], -Cell[174200, 4724, 217, 4, 75, "Output",ExpressionUUID->"c865c015-b56d-4ccc-ad76-f18e9802683b"] +Cell[174713, 4590, 1818, 61, 42, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], +Cell[176534, 4653, 239, 4, 42, "Output",ExpressionUUID->"b127f15a-f385-40e7-994a-ee18fd7f184e"] }, Open ]], Cell[CellGroupData[{ -Cell[174454, 4733, 1635, 54, 368, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], -Cell[176092, 4789, 222, 4, 75, "Output",ExpressionUUID->"b7c3bbf9-9343-4488-ac38-54b3a3bb5a76"] +Cell[176810, 4662, 1838, 59, 42, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], +Cell[178651, 4723, 246, 4, 42, "Output",ExpressionUUID->"0eda660e-edc6-42c3-9dcf-7f32be06aafb"] }, Open ]], Cell[CellGroupData[{ -Cell[176351, 4798, 1635, 54, 368, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], -Cell[177989, 4854, 219, 4, 75, "Output",ExpressionUUID->"dcaa4778-af98-407c-b754-aa7593469626"] +Cell[178934, 4732, 1838, 59, 42, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], +Cell[180775, 4793, 243, 4, 42, "Output",ExpressionUUID->"43fc7562-620e-4b35-b33f-bc7055f1dcb0"] }, Open ]], Cell[CellGroupData[{ -Cell[178245, 4863, 207, 4, 66, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], -Cell[178455, 4869, 189, 3, 75, "Output",ExpressionUUID->"7bdf2466-2d8a-4e2b-840a-6fef1ae2bc7f"] +Cell[181055, 4802, 203, 3, 42, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], +Cell[181261, 4807, 210, 3, 42, "Output",ExpressionUUID->"8e169302-931c-4ff1-bf9b-dea9f0e8a8cc"] }, Open ]], -Cell[178659, 4875, 176, 3, 66, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], +Cell[181486, 4813, 172, 2, 42, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], Cell[CellGroupData[{ -Cell[178860, 4882, 210, 4, 66, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], -Cell[179073, 4888, 189, 3, 75, "Output",ExpressionUUID->"2fd9f24a-4d81-4a6c-a436-67b1a0fd5f1f"] +Cell[181683, 4819, 206, 3, 42, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], +Cell[181892, 4824, 211, 3, 42, "Output",ExpressionUUID->"5069df8f-1807-4ff5-b2b4-16829e78a3f8"] }, Open ]], -Cell[179277, 4894, 177, 3, 66, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], +Cell[182118, 4830, 173, 2, 42, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ -Cell[179479, 4901, 1301, 43, 257, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], -Cell[180783, 4946, 226, 4, 75, "Output",ExpressionUUID->"53aeb72e-5f1b-4dab-8c60-5ec696603396"] +Cell[182316, 4836, 1297, 42, 42, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], +Cell[183616, 4880, 248, 4, 42, "Output",ExpressionUUID->"3b413f0e-95a7-453f-9493-d2c1645b3a09"] }, Open ]], Cell[CellGroupData[{ -Cell[181046, 4955, 931, 31, 221, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], -Cell[181980, 4988, 223, 4, 75, "Output",ExpressionUUID->"c25688b7-2cd0-4781-8a84-19834ee062a5"] +Cell[183901, 4889, 927, 30, 42, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], +Cell[184831, 4921, 245, 4, 42, "Output",ExpressionUUID->"508e70e4-d228-46cd-973c-00b6ade3cb50"] }, Open ]], Cell[CellGroupData[{ -Cell[182240, 4997, 907, 30, 221, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], -Cell[183150, 5029, 227, 4, 75, "Output",ExpressionUUID->"e029c9a9-7648-4991-8b6a-f9771da08271"] +Cell[185113, 4930, 903, 29, 50, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], +Cell[186019, 4961, 249, 4, 29, "Output",ExpressionUUID->"10426d9a-64b3-455d-ab82-827c4dfeadac"] }, Open ]], Cell[CellGroupData[{ -Cell[183414, 5038, 558, 19, 118, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], -Cell[183975, 5059, 617, 10, 75, "Output",ExpressionUUID->"0cc6e19e-0b12-4334-95f0-4b325f4c4782"] +Cell[186305, 4970, 554, 18, 46, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], +Cell[186862, 4990, 637, 9, 29, "Output",ExpressionUUID->"6f0b1b90-114b-4c5a-89fb-97e41663d3ee"] }, Open ]], Cell[CellGroupData[{ -Cell[184629, 5074, 665, 22, 118, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], -Cell[185297, 5098, 599, 9, 75, "Output",ExpressionUUID->"ee271180-a88e-4901-995d-fc00d664602b"] +Cell[187536, 5004, 661, 21, 46, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], +Cell[188200, 5027, 623, 9, 29, "Output",ExpressionUUID->"1811a6c4-9c8a-4dc5-861f-51b4c3f901d3"] }, Open ]], Cell[CellGroupData[{ -Cell[185933, 5112, 170, 5, 125, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], -Cell[186106, 5119, 630, 10, 75, "Output",ExpressionUUID->"4210faa2-d16f-4159-9536-41bbeb118197"] +Cell[188860, 5041, 166, 4, 50, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], +Cell[189029, 5047, 648, 9, 29, "Output",ExpressionUUID->"9567f7e7-3905-4e8c-9000-02760114d21f"] }, Open ]], Cell[CellGroupData[{ -Cell[186773, 5134, 236, 6, 123, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], -Cell[187012, 5142, 565, 9, 75, "Output",ExpressionUUID->"213fb299-7213-4e3a-a9f9-48c39939a5ba"] +Cell[189714, 5061, 232, 5, 49, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], +Cell[189949, 5068, 585, 8, 29, "Output",ExpressionUUID->"04689f4e-0af4-4475-a136-bcd3cc820172"] }, Open ]], Cell[CellGroupData[{ -Cell[187614, 5156, 223, 6, 97, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], -Cell[187840, 5164, 598, 9, 75, "Output",ExpressionUUID->"36b44dfd-8d68-475c-86fd-1b934dda9dec"] +Cell[190571, 5081, 219, 5, 38, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], +Cell[190793, 5088, 620, 9, 29, "Output",ExpressionUUID->"33dac20f-5f9d-45f5-a215-9e9666ed4208"] }, Open ]], Cell[CellGroupData[{ -Cell[188475, 5178, 181, 5, 97, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], -Cell[188659, 5185, 618, 10, 75, "Output",ExpressionUUID->"3cee8994-2481-461e-88f3-f631187e5832"] +Cell[191450, 5102, 177, 4, 38, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], +Cell[191630, 5108, 636, 9, 29, "Output",ExpressionUUID->"ebee7f06-4074-4c1c-92c6-621959207211"] }, Open ]], Cell[CellGroupData[{ -Cell[189314, 5200, 6055, 185, 1319, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], -Cell[195372, 5387, 591, 9, 75, "Output",ExpressionUUID->"ab70d59e-5f61-4611-af7f-fafca10d931c"] +Cell[192303, 5122, 6051, 184, 168, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], +Cell[198357, 5308, 613, 9, 29, "Output",ExpressionUUID->"7e2a6308-2dfe-428b-b31e-144f5df144f5"] }, Open ]], Cell[CellGroupData[{ -Cell[196000, 5401, 368, 9, 94, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], -Cell[196371, 5412, 571, 9, 75, "Output",ExpressionUUID->"ad6c6e2e-e0e3-4078-bdf5-a398f6fa29b6"] +Cell[199007, 5322, 364, 8, 36, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], +Cell[199374, 5332, 593, 9, 29, "Output",ExpressionUUID->"d9ac4c22-142e-46f6-a7b7-d773e9e0f342"] }, Open ]], -Cell[196957, 5424, 492, 10, 66, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], +Cell[199982, 5344, 488, 9, 25, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ -Cell[197474, 5438, 558, 19, 118, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], -Cell[198035, 5459, 220, 4, 75, "Output",ExpressionUUID->"8bebcf67-128b-43de-8c41-0d3f801099dc"] +Cell[200495, 5357, 554, 18, 46, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], +Cell[201052, 5377, 242, 4, 29, "Output",ExpressionUUID->"0769acbb-f2d3-4ac8-90e4-6fbd5d3135ba"] }, Open ]], Cell[CellGroupData[{ -Cell[198292, 5468, 623, 21, 118, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], -Cell[198918, 5491, 223, 4, 75, "Output",ExpressionUUID->"08a80e46-ee9e-43af-b04d-2d0c497b8c23"] +Cell[201331, 5386, 619, 20, 46, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], +Cell[201953, 5408, 247, 4, 29, "Output",ExpressionUUID->"fd5bdbad-15de-420b-85dc-d4a4c55aa62f"] }, Open ]], Cell[CellGroupData[{ -Cell[199178, 5500, 170, 5, 125, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], -Cell[199351, 5507, 224, 4, 75, "Output",ExpressionUUID->"416c053f-e7f9-499a-83f3-b3f146c8f4e1"] +Cell[202237, 5417, 166, 4, 50, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], +Cell[202406, 5423, 246, 4, 29, "Output",ExpressionUUID->"dd1796a9-0dbf-4554-bdc5-654db81d986c"] }, Open ]], Cell[CellGroupData[{ -Cell[199612, 5516, 170, 5, 123, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], -Cell[199785, 5523, 219, 4, 75, "Output",ExpressionUUID->"45010d70-4e75-421d-beb4-8be15802e299"] +Cell[202689, 5432, 166, 4, 49, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], +Cell[202858, 5438, 241, 4, 29, "Output",ExpressionUUID->"63f0f48b-8586-497c-a19f-45b548779d10"] }, Open ]], Cell[CellGroupData[{ -Cell[200041, 5532, 181, 5, 97, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], -Cell[200225, 5539, 222, 4, 75, "Output",ExpressionUUID->"c2802e50-c7b5-4415-8acc-7abdab875406"] +Cell[203136, 5447, 177, 4, 38, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], +Cell[203316, 5453, 246, 4, 29, "Output",ExpressionUUID->"ba6c623c-02a8-44d0-a4cd-2a0f046c8254"] }, Open ]], Cell[CellGroupData[{ -Cell[200484, 5548, 181, 5, 97, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], -Cell[200668, 5555, 222, 4, 75, "Output",ExpressionUUID->"e798f31f-867f-4b3c-983b-69756ef43bab"] +Cell[203599, 5462, 177, 4, 38, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], +Cell[203779, 5468, 244, 4, 29, "Output",ExpressionUUID->"6da0e4e5-9da2-45d8-8311-93619a84a0ab"] }, Open ]], Cell[CellGroupData[{ -Cell[200927, 5564, 6055, 185, 1319, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], -Cell[206985, 5751, 224, 4, 75, "Output",ExpressionUUID->"fb5dc71f-76d1-4c2b-96db-6825a72886e5"] +Cell[204060, 5477, 6051, 184, 168, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], +Cell[210114, 5663, 246, 4, 29, "Output",ExpressionUUID->"7ca1e69a-2500-43c0-ad2b-6b073755bbcc"] }, Open ]], Cell[CellGroupData[{ -Cell[207246, 5760, 410, 10, 130, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], -Cell[207659, 5772, 268, 5, 111, "Output",ExpressionUUID->"43f02828-8363-47e4-b400-993a345a91b2"] +Cell[210397, 5672, 406, 9, 50, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], +Cell[210806, 5683, 290, 5, 43, "Output",ExpressionUUID->"82f38f01-86d6-43ce-af1e-e8d7cf1fea69"] }, Open ]], Cell[CellGroupData[{ -Cell[207964, 5782, 6122, 187, 1319, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], -Cell[214089, 5971, 224, 4, 75, "Output",ExpressionUUID->"1fb26a00-4e0c-4bf5-b1e1-357cc406c913"] +Cell[211133, 5693, 6118, 186, 168, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], +Cell[217254, 5881, 246, 4, 29, "Output",ExpressionUUID->"607011f4-23cd-453b-bf36-23cc442dd630"] }, Open ]], Cell[CellGroupData[{ -Cell[214350, 5980, 368, 9, 94, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], -Cell[214721, 5991, 225, 4, 75, "Output",ExpressionUUID->"5b198d56-056a-427f-9d9b-d2faa67b15c2"] +Cell[217537, 5890, 364, 8, 36, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], +Cell[217904, 5900, 247, 4, 29, "Output",ExpressionUUID->"e021aa2a-a90e-4ced-b99f-6e50512305b0"] }, Open ]], Cell[CellGroupData[{ -Cell[214983, 6000, 2663, 88, 746, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], -Cell[217649, 6090, 225, 4, 75, "Output",ExpressionUUID->"6e559820-ab51-4344-9543-8c0e2137ed0d"] +Cell[218188, 5909, 2659, 87, 99, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], +Cell[220850, 5998, 247, 4, 29, "Output",ExpressionUUID->"c26ffa7d-a548-4336-a1db-b0db9ad30fbe"] }, Open ]], Cell[CellGroupData[{ -Cell[217911, 6099, 2603, 85, 746, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], -Cell[220517, 6186, 224, 4, 75, "Output",ExpressionUUID->"650795d2-84a9-4db4-92ba-cbc37ba66253"] +Cell[221134, 6007, 2599, 84, 99, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], +Cell[223736, 6093, 246, 4, 29, "Output",ExpressionUUID->"fe47deba-28bd-4d4e-98a0-0f12b6f19b57"] }, Open ]], Cell[CellGroupData[{ -Cell[220778, 6195, 3712, 118, 982, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], -Cell[224493, 6315, 222, 4, 75, "Output",ExpressionUUID->"8c71c53f-1bfd-428c-8ffe-82c94d65cde6"] +Cell[224019, 6102, 3708, 117, 147, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], +Cell[227730, 6221, 244, 4, 29, "Output",ExpressionUUID->"bd79d30c-7a74-4d50-9598-ab5a5dc23d8f"] }, Open ]], -Cell[224730, 6322, 164, 4, 66, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], +Cell[227989, 6228, 164, 4, 25, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ -Cell[224919, 6330, 2075, 59, 484, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], -Cell[226997, 6391, 660, 14, 129, "Message",ExpressionUUID->"29f4d308-2a0d-43d6-b28b-e4add91e8a0a"], -Cell[227660, 6407, 660, 14, 129, "Message",ExpressionUUID->"ab1ab79f-e2ac-45ac-a41f-0ec5c838c0e5"], -Cell[228323, 6423, 661, 14, 129, "Message",ExpressionUUID->"7f72033a-702b-4fdc-944a-2864fc8abe3e"], -Cell[228987, 6439, 524, 12, 49, "Message",ExpressionUUID->"f8e5ccc6-e74b-4178-b92a-f01d060fc33f"], -Cell[229514, 6453, 221, 4, 75, "Output",ExpressionUUID->"7dd2a9a8-9cdb-423c-9fc4-d63ccf97c2bb"] +Cell[228178, 6236, 2244, 63, 48, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], +Cell[230425, 6301, 687, 15, 36, "Message",ExpressionUUID->"f6c50efb-37da-4f71-a36a-860310297ce0"], +Cell[231115, 6318, 686, 15, 36, "Message",ExpressionUUID->"b94de812-4b4d-47f7-869d-7e1381fb21b0"], +Cell[231804, 6335, 688, 15, 36, "Message",ExpressionUUID->"1c3f1469-6004-4477-883b-aebcfeef09ae"], +Cell[232495, 6352, 547, 13, 22, "Message",ExpressionUUID->"94601382-a5ac-47f7-b3dc-a2c8c8ea0862"], +Cell[233045, 6367, 247, 5, 29, "Output",ExpressionUUID->"61db18e9-f824-45ad-b13d-cece60bb1975"] }, Open ]], Cell[CellGroupData[{ -Cell[229772, 6462, 2077, 59, 484, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], -Cell[231852, 6523, 660, 14, 129, "Message",ExpressionUUID->"3e12b230-1ad3-44d9-8eb6-ea75177805c3"], -Cell[232515, 6539, 663, 14, 129, "Message",ExpressionUUID->"f01abd79-4765-43ba-9418-3a3b399624c7"], -Cell[233181, 6555, 661, 14, 129, "Message",ExpressionUUID->"628c8280-d03d-463c-a130-979bccc59aea"], -Cell[233845, 6571, 524, 12, 49, "Message",ExpressionUUID->"1200c2ba-bdd1-4a30-a6ef-17d49332922e"], -Cell[234372, 6585, 209, 4, 75, "Output",ExpressionUUID->"55209329-590f-4177-92cb-c38eb178ce77"] +Cell[233329, 6377, 2246, 63, 48, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], +Cell[235578, 6442, 685, 15, 36, "Message",ExpressionUUID->"0eb72130-ea3b-4e00-9332-2b7e1d3a1edb"], +Cell[236266, 6459, 686, 15, 36, "Message",ExpressionUUID->"37275be4-ed4c-4e7b-ac91-3016f9bb03c5"], +Cell[236955, 6476, 685, 15, 36, "Message",ExpressionUUID->"e27787a6-43e7-4a86-8e9e-b321bdf98e3e"], +Cell[237643, 6493, 547, 13, 22, "Message",ExpressionUUID->"4761d9ab-8067-40c7-b308-9e64381f7123"], +Cell[238193, 6508, 247, 5, 29, "Output",ExpressionUUID->"c39a34bc-f893-47ea-95a1-58ab783e5fd9"] }, Open ]], Cell[CellGroupData[{ -Cell[234618, 6594, 1961, 53, 340, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], -Cell[236582, 6649, 213, 4, 75, "Output",ExpressionUUID->"16a76c66-3d75-46b0-a19d-62ade5ebdabc"] +Cell[238477, 6518, 2053, 55, 48, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], +Cell[240533, 6575, 20400, 385, 207, "Output",ExpressionUUID->"0cff0559-bf34-42ed-b67b-256893f9d711"] }, Open ]], Cell[CellGroupData[{ -Cell[236832, 6658, 2094, 60, 546, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], -Cell[238929, 6720, 497, 11, 129, "Message",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], -Cell[239429, 6733, 501, 11, 129, "Message",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], -Cell[239933, 6746, 503, 11, 129, "Message",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], -Cell[240439, 6759, 455, 10, 47, "Message",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], -Cell[240897, 6771, 43631, 762, 523, "Output",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] +Cell[260970, 6965, 2287, 64, 48, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], +Cell[263260, 7031, 533, 12, 36, "Message",ExpressionUUID->"57349647-f0d3-40c3-a231-1702e474e944"], +Cell[263796, 7045, 540, 12, 36, "Message",ExpressionUUID->"02376b91-5bdb-448c-b449-81f8180e833f"], +Cell[264339, 7059, 541, 12, 36, "Message",ExpressionUUID->"9c1fbc47-da04-476e-8922-f75b29910588"], +Cell[264883, 7073, 493, 11, 22, "Message",ExpressionUUID->"8795a84a-d6a0-4c3c-a981-f9b53c43405f"], +Cell[265379, 7086, 21985, 408, 203, "Output",ExpressionUUID->"43247e92-7199-41d1-a42a-0ca9670f747a"] }, Open ]], -Cell[284543, 7536, 2453, 69, 387, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], -Cell[286999, 7607, 209, 5, 66, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], Cell[CellGroupData[{ -Cell[287233, 7616, 212, 6, 107, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], -Cell[287448, 7624, 168, 2, 75, "Output",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +Cell[287401, 7499, 2479, 70, 60, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], +Cell[289883, 7571, 9498, 223, 209, "Output",ExpressionUUID->"4df1e527-76c6-4014-a63b-b83219fc87b9"] }, Open ]], +Cell[299396, 7797, 232, 5, 25, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], Cell[CellGroupData[{ -Cell[287653, 7631, 1814, 53, 546, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], -Cell[289470, 7686, 505, 11, 129, "Message",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], -Cell[289978, 7699, 509, 11, 129, "Message",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], -Cell[290490, 7712, 508, 11, 129, "Message",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], -Cell[291001, 7725, 455, 10, 47, "Message",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], -Cell[291459, 7737, 22399, 414, 527, "Output",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +Cell[299653, 7806, 28395, 541, 200, "Input",ExpressionUUID->"25c6a4ce-4d55-4ef8-b253-99142f8a4c9d"], +Cell[328051, 8349, 28364, 539, 203, "Output",ExpressionUUID->"9afc9aca-f821-4558-b03c-07e90ea36170"] }, Open ]], Cell[CellGroupData[{ -Cell[313895, 8156, 1612, 47, 221, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], -Cell[315510, 8205, 581, 12, 109, "Message",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], -Cell[316094, 8219, 584, 12, 109, "Message",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], -Cell[316681, 8233, 590, 12, 166, "Message",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], -Cell[317274, 8247, 455, 10, 47, "Message",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], -Cell[317732, 8259, 169, 2, 75, "Output",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +Cell[356452, 8893, 2414, 53, 206, "Input",ExpressionUUID->"a26f2095-34c0-41b0-8b0f-d67b5022c076"], +Cell[358869, 8948, 1677, 47, 491, "Output",ExpressionUUID->"376d5f00-0f15-4a32-a61e-bee28e883672"] }, Open ]], Cell[CellGroupData[{ -Cell[317938, 8266, 2249, 64, 472, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], -Cell[320190, 8332, 557, 12, 166, "Message",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], -Cell[320750, 8346, 560, 12, 166, "Message",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], -Cell[321313, 8360, 560, 12, 166, "Message",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], -Cell[321876, 8374, 455, 10, 47, "Message",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], -Cell[322334, 8386, 169, 2, 75, "Output",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +Cell[360583, 9000, 237, 7, 43, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], +Cell[360823, 9009, 195, 3, 29, "Output",ExpressionUUID->"41f65606-70b3-4847-9bd8-53949dbb5fea"] }, Open ]], Cell[CellGroupData[{ -Cell[322540, 8393, 2221, 64, 610, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], -Cell[324764, 8459, 554, 12, 166, "Message",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], -Cell[325321, 8473, 560, 12, 109, "Message",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], -Cell[325884, 8487, 560, 12, 166, "Message",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], -Cell[326447, 8501, 455, 10, 47, "Message",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], -Cell[326905, 8513, 169, 2, 75, "Output",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +Cell[361055, 9017, 1972, 56, 57, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], +Cell[363030, 9075, 640, 14, 36, "Message",ExpressionUUID->"c37b6779-c61c-4b21-88e5-a7ee77b7cfb8"], +Cell[363673, 9091, 637, 14, 36, "Message",ExpressionUUID->"eaba58e6-c985-4015-9cf1-0125f7e57008"], +Cell[364313, 9107, 639, 14, 36, "Message",ExpressionUUID->"63a622c3-21b8-445d-9465-927cf30c2fe9"], +Cell[364955, 9123, 495, 11, 22, "Message",ExpressionUUID->"ed92e141-acd3-41ca-af43-0eb71cfec8d3"], +Cell[365453, 9136, 21979, 408, 203, "Output",ExpressionUUID->"83cb674e-9c7d-40f6-98b9-a706be6413c5"] }, Open ]], Cell[CellGroupData[{ -Cell[327111, 8520, 2223, 64, 610, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], -Cell[329337, 8586, 555, 12, 166, "Message",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], -Cell[329895, 8600, 558, 12, 109, "Message",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], -Cell[330456, 8614, 560, 12, 166, "Message",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], -Cell[331019, 8628, 453, 10, 47, "Message",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], -Cell[331475, 8640, 167, 2, 75, "Output",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +Cell[387469, 9549, 1750, 52, 57, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], +Cell[389222, 9603, 632, 13, 36, "Message",ExpressionUUID->"5c55d193-1c42-4867-871c-8aa4221a76c7"], +Cell[389857, 9618, 633, 13, 36, "Message",ExpressionUUID->"8bb165f8-a7f8-4b4e-9f1c-f815821e030e"], +Cell[390493, 9633, 630, 13, 36, "Message",ExpressionUUID->"b422c26f-2344-404b-be84-0b6b06a76d87"], +Cell[391126, 9648, 493, 11, 22, "Message",ExpressionUUID->"a51687a6-1d45-42fb-897c-5f3923f6d6e5"], +Cell[391622, 9661, 195, 3, 29, "Output",ExpressionUUID->"c38daf53-e9ad-451b-a52c-c6fbb4778270"] }, Open ]], Cell[CellGroupData[{ -Cell[331679, 8647, 213, 6, 106, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], -Cell[331895, 8655, 169, 2, 75, "Output",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +Cell[391854, 9669, 2303, 65, 48, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], +Cell[394160, 9736, 633, 13, 36, "Message",ExpressionUUID->"97521226-e124-4c6f-88ff-a7b8955e0f1e"], +Cell[394796, 9751, 634, 13, 36, "Message",ExpressionUUID->"8f87124d-4e6a-4a35-b04a-70e1ee7f668b"], +Cell[395433, 9766, 634, 13, 36, "Message",ExpressionUUID->"ca745cc0-cbbf-40f3-a3a6-a8b2198a62c1"], +Cell[396070, 9781, 495, 11, 22, "Message",ExpressionUUID->"db977f2f-2fff-43a7-929b-b22ee3138f41"], +Cell[396568, 9794, 195, 3, 29, "Output",ExpressionUUID->"279a1d17-6580-45c9-b685-5721382cd66f"] }, Open ]], -Cell[332079, 8660, 247, 5, 66, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ -Cell[332351, 8669, 554, 18, 118, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], -Cell[332908, 8689, 167, 2, 75, "Output",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +Cell[396800, 9802, 2264, 64, 48, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], +Cell[399067, 9868, 630, 13, 36, "Message",ExpressionUUID->"f9084523-4a3c-49b0-a958-8524b8097d4a"], +Cell[399700, 9883, 631, 13, 36, "Message",ExpressionUUID->"42448cef-557a-4f89-ba8e-74d49f5dec90"], +Cell[400334, 9898, 631, 13, 36, "Message",ExpressionUUID->"47028217-3908-4b78-8afd-6f8a5e77de76"], +Cell[400968, 9913, 492, 11, 22, "Message",ExpressionUUID->"00c0fb1f-df1b-42d6-968b-febc6aaaa7d8"], +Cell[401463, 9926, 194, 3, 29, "Output",ExpressionUUID->"aa9a2439-a484-4eff-b5a3-f9500314b7ab"] }, Open ]], Cell[CellGroupData[{ -Cell[333112, 8696, 166, 4, 125, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], -Cell[333281, 8702, 169, 2, 75, "Output",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +Cell[401694, 9934, 2266, 64, 48, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], +Cell[403963, 10000, 631, 13, 36, "Message",ExpressionUUID->"7e936437-7d9c-4df6-bf09-d42952a09f88"], +Cell[404597, 10015, 632, 13, 36, "Message",ExpressionUUID->"6f11d199-6ea4-418b-aed1-4d0c3f2e2954"], +Cell[405232, 10030, 632, 13, 36, "Message",ExpressionUUID->"08d13336-5232-4ad1-b566-9377ed370086"], +Cell[405867, 10045, 495, 11, 22, "Message",ExpressionUUID->"d12c2ca7-938b-4323-92e2-51f0487bd768"], +Cell[406365, 10058, 191, 3, 29, "Output",ExpressionUUID->"593cd0be-f996-4fc2-8e40-c2d980325316"] }, Open ]], Cell[CellGroupData[{ -Cell[333487, 8709, 181, 5, 97, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], -Cell[333671, 8716, 173, 3, 75, "Output",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] +Cell[406593, 10066, 236, 6, 42, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], +Cell[406832, 10074, 194, 3, 29, "Output",ExpressionUUID->"7a2a62f5-f126-4b49-b9a3-1a9951d40b57"] }, Open ]], +Cell[407041, 10080, 273, 6, 25, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ -Cell[333881, 8724, 6097, 186, 1319, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], -Cell[339981, 8912, 172, 3, 75, "Output",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] +Cell[407339, 10090, 558, 19, 46, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], +Cell[407900, 10111, 193, 3, 29, "Output",ExpressionUUID->"7ecc96e8-a62c-4724-8a3e-acab577240ef"] }, Open ]], Cell[CellGroupData[{ -Cell[340190, 8920, 368, 9, 94, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], -Cell[340561, 8931, 170, 3, 75, "Output",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] +Cell[408130, 10119, 170, 5, 50, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], +Cell[408303, 10126, 194, 3, 29, "Output",ExpressionUUID->"11e39ae3-d645-43fe-8206-c49ee3243e9d"] }, Open ]], Cell[CellGroupData[{ -Cell[340768, 8939, 6122, 187, 1319, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], -Cell[346893, 9128, 175, 3, 109, "Output",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] +Cell[408534, 10134, 181, 5, 38, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], +Cell[408718, 10141, 195, 3, 29, "Output",ExpressionUUID->"2bb501f4-d0ce-4a75-9d0f-36865974b92b"] }, Open ]], Cell[CellGroupData[{ -Cell[347105, 9136, 368, 9, 109, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], -Cell[347476, 9147, 169, 3, 109, "Output",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] +Cell[408950, 10149, 6097, 186, 168, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], +Cell[415050, 10337, 192, 3, 29, "Output",ExpressionUUID->"cd9b2c41-6285-4e2a-a673-f1927ed23b92"] }, Open ]], Cell[CellGroupData[{ -Cell[347682, 9155, 2663, 88, 109, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], -Cell[350348, 9245, 173, 3, 109, "Output",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] +Cell[415279, 10345, 368, 9, 36, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], +Cell[415650, 10356, 192, 3, 29, "Output",ExpressionUUID->"6de40b4d-1e9d-4a8d-abf4-b3210989404e"] }, Open ]], Cell[CellGroupData[{ -Cell[350558, 9253, 2603, 85, 109, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], -Cell[353164, 9340, 171, 3, 109, "Output",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] +Cell[415879, 10364, 6122, 187, 168, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], +Cell[422004, 10553, 196, 3, 29, "Output",ExpressionUUID->"ae553338-2a04-424c-8452-4a0bfad51a8b"] }, Open ]], Cell[CellGroupData[{ -Cell[353372, 9348, 3712, 118, 109, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], -Cell[357087, 9468, 171, 3, 109, "Output",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] +Cell[422237, 10561, 368, 9, 36, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], +Cell[422608, 10572, 193, 3, 29, "Output",ExpressionUUID->"9912c944-205d-4b67-9042-b24c4ebc540b"] }, Open ]], Cell[CellGroupData[{ -Cell[357295, 9476, 2052, 59, 109, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], -Cell[359350, 9537, 572, 12, 109, "Message",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], -Cell[359925, 9551, 573, 12, 109, "Message",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], -Cell[360501, 9565, 578, 12, 109, "Message",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], -Cell[361082, 9579, 457, 10, 109, "Message",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], -Cell[361542, 9591, 172, 3, 109, "Output",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] +Cell[422838, 10580, 2663, 88, 99, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], +Cell[425504, 10670, 196, 3, 29, "Output",ExpressionUUID->"0e93b2dd-8d0e-45ef-8e11-0e1c5b7c1eda"] }, Open ]], Cell[CellGroupData[{ -Cell[361751, 9599, 2054, 59, 109, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], -Cell[363808, 9660, 572, 12, 109, "Message",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], -Cell[364383, 9674, 575, 12, 109, "Message",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], -Cell[364961, 9688, 576, 12, 109, "Message",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], -Cell[365540, 9702, 457, 10, 109, "Message",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], -Cell[366000, 9714, 170, 3, 109, "Output",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] +Cell[425737, 10678, 2603, 85, 99, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], +Cell[428343, 10765, 195, 3, 29, "Output",ExpressionUUID->"76a3af72-7b95-4b00-9564-7e4e22ece0fa"] }, Open ]], Cell[CellGroupData[{ -Cell[366207, 9722, 2030, 55, 109, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], -Cell[368240, 9779, 20377, 384, 109, "Output",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +Cell[428575, 10773, 3712, 118, 147, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], +Cell[432290, 10893, 193, 3, 29, "Output",ExpressionUUID->"783b98ca-d97a-4f93-b9b4-6ecb7a75d4a5"] }, Open ]], Cell[CellGroupData[{ -Cell[388654, 10168, 2118, 60, 109, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], -Cell[390775, 10230, 499, 11, 109, "Message",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], -Cell[391277, 10243, 504, 11, 109, "Message",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], -Cell[391784, 10256, 507, 11, 109, "Message",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], -Cell[392294, 10269, 455, 10, 109, "Message",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], -Cell[392752, 10281, 22381, 415, 109, "Output",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] +Cell[432520, 10901, 2244, 63, 48, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], +Cell[434767, 10966, 638, 14, 36, "Message",ExpressionUUID->"09c26ad6-1883-433f-9fc6-677cfe80e621"], +Cell[435408, 10982, 639, 14, 36, "Message",ExpressionUUID->"4eb69305-cf28-4b88-8111-f1c63cbb3ce0"], +Cell[436050, 10998, 639, 14, 36, "Message",ExpressionUUID->"2f12c879-e581-4629-b465-bcfdefa18c59"], +Cell[436692, 11014, 495, 11, 22, "Message",ExpressionUUID->"3ef5a632-d9f8-4e27-b511-3645953d90a2"], +Cell[437190, 11027, 195, 3, 29, "Output",ExpressionUUID->"0db9350c-ad13-45c8-8119-6560bc969a1d"] }, Open ]], -Cell[415148, 10699, 174, 3, 109, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], -Cell[415325, 10704, 209, 5, 109, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], Cell[CellGroupData[{ -Cell[415559, 10713, 1616, 48, 109, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], -Cell[417178, 10763, 594, 12, 109, "Message",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], -Cell[417775, 10777, 594, 12, 109, "Message",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], -Cell[418372, 10791, 598, 12, 109, "Message",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], -Cell[418973, 10805, 457, 10, 109, "Message",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], -Cell[419433, 10817, 171, 3, 109, "Output",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +Cell[437422, 11035, 2246, 63, 48, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], +Cell[439671, 11100, 638, 14, 36, "Message",ExpressionUUID->"ea06fb77-3670-407a-9805-ad574393ae28"], +Cell[440312, 11116, 637, 14, 36, "Message",ExpressionUUID->"7637f5d0-7f0c-4bbc-b35a-fdc9ff388a9c"], +Cell[440952, 11132, 639, 14, 36, "Message",ExpressionUUID->"45c84952-1e9f-477c-b006-25294be30955"], +Cell[441594, 11148, 495, 11, 22, "Message",ExpressionUUID->"e4273c69-8468-4bac-ade2-7296f26dd98e"], +Cell[442092, 11161, 194, 3, 29, "Output",ExpressionUUID->"776ff9ea-27e6-4a67-a012-4c108f9e2244"] }, Open ]], Cell[CellGroupData[{ -Cell[419641, 10825, 2247, 64, 109, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], -Cell[421891, 10891, 572, 12, 109, "Message",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], -Cell[422466, 10905, 573, 12, 109, "Message",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], -Cell[423042, 10919, 578, 12, 109, "Message",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], -Cell[423623, 10933, 455, 10, 109, "Message",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], -Cell[424081, 10945, 172, 3, 109, "Output",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] +Cell[442323, 11169, 2053, 55, 48, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], +Cell[444379, 11226, 20446, 386, 203, "Output",ExpressionUUID->"20b825c7-3755-4c6a-9ceb-3d23dc0be465"] }, Open ]], Cell[CellGroupData[{ -Cell[424290, 10953, 2221, 64, 109, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], -Cell[426514, 11019, 570, 12, 109, "Message",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], -Cell[427087, 11033, 573, 12, 109, "Message",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], -Cell[427663, 11047, 578, 12, 109, "Message",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], -Cell[428244, 11061, 455, 10, 109, "Message",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], -Cell[428702, 11073, 172, 3, 109, "Output",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] +Cell[464862, 11617, 2311, 64, 48, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], +Cell[467176, 11683, 531, 12, 36, "Message",ExpressionUUID->"c04e5080-e603-47ec-905f-a02e4ba96843"], +Cell[467710, 11697, 534, 12, 36, "Message",ExpressionUUID->"68d25b4f-23c8-4dab-8e2d-9f218d053018"], +Cell[468247, 11711, 535, 12, 36, "Message",ExpressionUUID->"c7107fa3-e889-4fa5-9b30-add9f7beba1b"], +Cell[468785, 11725, 493, 11, 22, "Message",ExpressionUUID->"88da83ca-9db2-4707-8274-690eff769fad"], +Cell[469281, 11738, 21798, 405, 203, "Output",ExpressionUUID->"33b76c01-b511-4a54-8d6b-332c0cb0f415"] }, Open ]], +Cell[491094, 12146, 200, 4, 25, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], +Cell[491297, 12152, 232, 5, 25, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], Cell[CellGroupData[{ -Cell[428911, 11081, 2221, 64, 109, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], -Cell[431135, 11147, 572, 12, 109, "Message",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], -Cell[431710, 11161, 575, 12, 109, "Message",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], -Cell[432288, 11175, 578, 12, 109, "Message",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], -Cell[432869, 11189, 455, 10, 109, "Message",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], -Cell[433327, 11201, 173, 3, 109, "Output",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] +Cell[491554, 12161, 28463, 538, 57, "Input",ExpressionUUID->"8bbf04f6-e2ae-4618-a335-9ea20f712841"], +Cell[520020, 12701, 28155, 536, 203, "Output",ExpressionUUID->"cbb473e7-e37f-4baf-9126-92bdf898f986"] }, Open ]], Cell[CellGroupData[{ -Cell[433537, 11209, 213, 6, 109, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], -Cell[433753, 11217, 172, 3, 109, "Output",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] +Cell[548212, 13242, 2415, 53, 206, "Input",ExpressionUUID->"5d16a040-f506-4126-ba8e-0610dba7c083"], +Cell[550630, 13297, 1692, 48, 491, "Output",ExpressionUUID->"60dd1e83-54a2-4efc-9fa2-f62ef275d9bf"] }, Open ]], -Cell[433940, 11223, 245, 5, 109, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ -Cell[434210, 11232, 558, 19, 109, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], -Cell[434771, 11253, 173, 3, 109, "Output",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] +Cell[552359, 13350, 1750, 52, 57, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], +Cell[554112, 13404, 639, 14, 36, "Message",ExpressionUUID->"7d87e28e-808c-4ed4-b24f-0516c495ceeb"], +Cell[554754, 13420, 639, 14, 36, "Message",ExpressionUUID->"435fc61d-19d3-4584-b019-53a3a0f718f9"], +Cell[555396, 13436, 638, 14, 36, "Message",ExpressionUUID->"40e679e7-7032-44fd-992a-c4afc26c28df"], +Cell[556037, 13452, 495, 11, 22, "Message",ExpressionUUID->"912053a9-c105-4dbe-91e9-ee01c42031ea"], +Cell[556535, 13465, 192, 3, 29, "Output",ExpressionUUID->"b3a2e6e7-3f9c-4f0e-b836-8b808bf2d178"] }, Open ]], Cell[CellGroupData[{ -Cell[434981, 11261, 170, 5, 109, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], -Cell[435154, 11268, 171, 3, 109, "Output",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] +Cell[556764, 13473, 2301, 65, 48, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], +Cell[559068, 13540, 637, 14, 36, "Message",ExpressionUUID->"90cfb46f-0c53-4c10-9455-263b27636575"], +Cell[559708, 13556, 639, 14, 36, "Message",ExpressionUUID->"0c893b82-e64b-49b6-9ec4-7b3180264ed6"], +Cell[560350, 13572, 639, 14, 36, "Message",ExpressionUUID->"7c812d66-180e-466d-b27a-6adaa478ea17"], +Cell[560992, 13588, 495, 11, 22, "Message",ExpressionUUID->"040da006-a469-4cd3-9562-15aab40bfd11"], +Cell[561490, 13601, 196, 3, 29, "Output",ExpressionUUID->"857df7b8-3154-4b76-b8d9-e51c876ca56f"] }, Open ]], Cell[CellGroupData[{ -Cell[435362, 11276, 181, 5, 109, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], -Cell[435546, 11283, 173, 3, 109, "Output",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] +Cell[561723, 13609, 2264, 64, 48, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], +Cell[563990, 13675, 638, 14, 36, "Message",ExpressionUUID->"ac636d8a-2802-4e4e-b8d6-b4b8eee7ed73"], +Cell[564631, 13691, 635, 14, 36, "Message",ExpressionUUID->"c7302897-91fa-453b-ac65-e31bbdceac6c"], +Cell[565269, 13707, 639, 14, 36, "Message",ExpressionUUID->"f413d194-270a-4820-ad2d-6bfc6d1c5c85"], +Cell[565911, 13723, 493, 11, 22, "Message",ExpressionUUID->"7bdc780b-7c20-459e-93b3-7ca52592823a"], +Cell[566407, 13736, 192, 3, 29, "Output",ExpressionUUID->"499f3020-f116-4877-8619-a4065cb0662e"] }, Open ]], Cell[CellGroupData[{ -Cell[435756, 11291, 6055, 185, 109, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], -Cell[441814, 11478, 175, 3, 109, "Output",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +Cell[566636, 13744, 2264, 64, 48, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], +Cell[568903, 13810, 638, 14, 36, "Message",ExpressionUUID->"8a35aaee-02c5-4197-9a78-c3b6027cccfb"], +Cell[569544, 13826, 637, 14, 36, "Message",ExpressionUUID->"fa987b01-88de-4bec-998f-021af3836eb3"], +Cell[570184, 13842, 639, 14, 36, "Message",ExpressionUUID->"68474162-05ad-4579-a1f2-dc47387534bf"], +Cell[570826, 13858, 497, 11, 22, "Message",ExpressionUUID->"07aeb8ac-3779-4f29-a09a-b9dcf9f6c861"], +Cell[571326, 13871, 193, 3, 29, "Output",ExpressionUUID->"8725c4c7-f057-4a58-9406-d342f181bc3e"] }, Open ]], Cell[CellGroupData[{ -Cell[442026, 11486, 368, 9, 109, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], -Cell[442397, 11497, 170, 3, 109, "Output",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +Cell[571556, 13879, 236, 6, 42, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], +Cell[571795, 13887, 197, 3, 29, "Output",ExpressionUUID->"4fbd8841-083a-4f0f-994f-48ba09e37a73"] }, Open ]], +Cell[572007, 13893, 271, 6, 25, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ -Cell[442604, 11505, 6122, 187, 109, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], -Cell[448729, 11694, 175, 3, 109, "Output",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] +Cell[572303, 13903, 558, 19, 46, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], +Cell[572864, 13924, 195, 3, 29, "Output",ExpressionUUID->"a7722c89-09d4-4f11-8b50-a2820c231668"] }, Open ]], Cell[CellGroupData[{ -Cell[448941, 11702, 368, 9, 109, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], -Cell[449312, 11713, 172, 3, 109, "Output",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +Cell[573096, 13932, 170, 5, 50, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], +Cell[573269, 13939, 193, 3, 29, "Output",ExpressionUUID->"cc0970f8-f904-4994-abdf-8b68b1561a2b"] }, Open ]], Cell[CellGroupData[{ -Cell[449521, 11721, 2663, 88, 109, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], -Cell[452187, 11811, 173, 3, 109, "Output",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +Cell[573499, 13947, 181, 5, 38, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], +Cell[573683, 13954, 195, 3, 29, "Output",ExpressionUUID->"1e6c5430-2f85-4716-997d-5d5c47247c1d"] }, Open ]], Cell[CellGroupData[{ -Cell[452397, 11819, 2603, 85, 109, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], -Cell[455003, 11906, 171, 3, 109, "Output",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +Cell[573915, 13962, 6055, 185, 168, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], +Cell[579973, 14149, 197, 3, 29, "Output",ExpressionUUID->"b317c2e7-8da8-4b78-a17a-943dedcecebb"] }, Open ]], Cell[CellGroupData[{ -Cell[455211, 11914, 3712, 118, 109, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], -Cell[458926, 12034, 171, 3, 109, "Output",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +Cell[580207, 14157, 368, 9, 36, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], +Cell[580578, 14168, 194, 3, 29, "Output",ExpressionUUID->"1df7a470-924a-4a01-99bf-b0fe48baec47"] }, Open ]], Cell[CellGroupData[{ -Cell[459134, 12042, 2052, 59, 109, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], -Cell[461189, 12103, 568, 12, 109, "Message",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], -Cell[461760, 12117, 572, 12, 109, "Message",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], -Cell[462335, 12131, 574, 12, 109, "Message",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], -Cell[462912, 12145, 457, 10, 109, "Message",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], -Cell[463372, 12157, 172, 3, 109, "Output",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +Cell[580809, 14176, 6122, 187, 168, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], +Cell[586934, 14365, 197, 3, 29, "Output",ExpressionUUID->"c61a984f-3cec-489d-94b7-79fa1121be8a"] }, Open ]], Cell[CellGroupData[{ -Cell[463581, 12165, 2054, 59, 109, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], -Cell[465638, 12226, 568, 12, 109, "Message",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], -Cell[466209, 12240, 572, 12, 109, "Message",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], -Cell[466784, 12254, 574, 12, 109, "Message",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], -Cell[467361, 12268, 457, 10, 109, "Message",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], -Cell[467821, 12280, 171, 3, 109, "Output",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +Cell[587168, 14373, 368, 9, 36, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], +Cell[587539, 14384, 196, 3, 29, "Output",ExpressionUUID->"a3c989e5-f5b9-4a06-a322-ba94462037fe"] }, Open ]], Cell[CellGroupData[{ -Cell[468029, 12288, 2030, 55, 109, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], -Cell[470062, 12345, 19960, 375, 109, "Output",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +Cell[587772, 14392, 2663, 88, 99, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], +Cell[590438, 14482, 198, 3, 29, "Output",ExpressionUUID->"15baee4f-a6f4-4d2f-9488-7f279401f64c"] }, Open ]], Cell[CellGroupData[{ -Cell[490059, 12725, 2118, 60, 109, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], -Cell[492180, 12787, 496, 11, 109, "Message",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], -Cell[492679, 12800, 501, 11, 109, "Message",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], -Cell[493183, 12813, 505, 11, 109, "Message",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], -Cell[493691, 12826, 455, 10, 109, "Message",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], -Cell[494149, 12838, 21721, 403, 109, "Output",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +Cell[590673, 14490, 2603, 85, 99, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], +Cell[593279, 14577, 193, 3, 29, "Output",ExpressionUUID->"806c32da-3829-4ae4-a97f-a01bef9e4532"] }, Open ]], -Cell[515885, 13244, 181, 3, 109, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], -Cell[516069, 13249, 207, 5, 109, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], Cell[CellGroupData[{ -Cell[516301, 13258, 1616, 48, 109, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], -Cell[517920, 13308, 589, 12, 109, "Message",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], -Cell[518512, 13322, 588, 12, 109, "Message",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], -Cell[519103, 13336, 594, 12, 109, "Message",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], -Cell[519700, 13350, 455, 10, 109, "Message",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], -Cell[520158, 13362, 173, 3, 109, "Output",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +Cell[593509, 14585, 3712, 118, 147, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], +Cell[597224, 14705, 195, 3, 29, "Output",ExpressionUUID->"bbdf2f68-8ed1-4e9d-b1f9-547d6919dc07"] }, Open ]], Cell[CellGroupData[{ -Cell[520368, 13370, 2246, 64, 109, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], -Cell[522617, 13436, 566, 12, 109, "Message",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], -Cell[523186, 13450, 570, 12, 109, "Message",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], -Cell[523759, 13464, 574, 12, 109, "Message",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], -Cell[524336, 13478, 456, 10, 109, "Message",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], -Cell[524795, 13490, 171, 3, 109, "Output",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +Cell[597456, 14713, 2244, 63, 48, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], +Cell[599703, 14778, 640, 14, 36, "Message",ExpressionUUID->"60700b9b-2b71-4fc0-9dd0-cbc29da5ea29"], +Cell[600346, 14794, 636, 13, 36, "Message",ExpressionUUID->"995d7a38-e211-4691-bd77-3db7e28c04f6"], +Cell[600985, 14809, 633, 13, 36, "Message",ExpressionUUID->"fb970938-a57c-471e-a898-d87717cfbab9"], +Cell[601621, 14824, 495, 11, 22, "Message",ExpressionUUID->"82269849-0955-4eb4-b3f6-089370f3f635"], +Cell[602119, 14837, 194, 3, 29, "Output",ExpressionUUID->"26b858c8-b873-4083-92f9-4ece58ef3ec8"] }, Open ]], Cell[CellGroupData[{ -Cell[525003, 13498, 2221, 64, 109, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], -Cell[527227, 13564, 569, 12, 109, "Message",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], -Cell[527799, 13578, 571, 12, 109, "Message",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], -Cell[528373, 13592, 575, 12, 109, "Message",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], -Cell[528951, 13606, 458, 10, 109, "Message",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], -Cell[529412, 13618, 171, 3, 109, "Output",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +Cell[602350, 14845, 2246, 63, 48, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], +Cell[604599, 14910, 640, 14, 36, "Message",ExpressionUUID->"c5a60207-d5f0-4c93-9fe5-8c391348439c"], +Cell[605242, 14926, 634, 13, 36, "Message",ExpressionUUID->"4b5be3b0-b978-4c9c-b11b-6109a2842c40"], +Cell[605879, 14941, 633, 13, 36, "Message",ExpressionUUID->"66c76a10-1ecd-450b-8922-0116d5ab7937"], +Cell[606515, 14956, 497, 11, 22, "Message",ExpressionUUID->"9c75a4df-b241-4559-8cee-76dfc769e3c1"], +Cell[607015, 14969, 194, 3, 29, "Output",ExpressionUUID->"4071c75c-a6cc-4fd2-8f7a-68768e0baf44"] }, Open ]], Cell[CellGroupData[{ -Cell[529620, 13626, 2223, 64, 109, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], -Cell[531846, 13692, 567, 12, 109, "Message",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], -Cell[532416, 13706, 571, 12, 109, "Message",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], -Cell[532990, 13720, 573, 12, 109, "Message",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], -Cell[533566, 13734, 456, 10, 109, "Message",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], -Cell[534025, 13746, 173, 3, 109, "Output",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +Cell[607246, 14977, 2053, 55, 48, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], +Cell[609302, 15034, 20554, 386, 207, "Output",ExpressionUUID->"c7718fba-af22-4e65-ad21-d50d829b1206"] }, Open ]], Cell[CellGroupData[{ -Cell[534235, 13754, 211, 6, 109, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], -Cell[534449, 13762, 174, 3, 109, "Output",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] +Cell[629893, 15425, 2311, 64, 48, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], +Cell[632207, 15491, 534, 12, 36, "Message",ExpressionUUID->"4853beaf-1bdf-4d5e-9f63-54fdd2ef9b30"], +Cell[632744, 15505, 539, 12, 36, "Message",ExpressionUUID->"751e3820-8e6e-4131-a40e-4dcad8f153d5"], +Cell[633286, 15519, 540, 12, 36, "Message",ExpressionUUID->"a55a84ea-8769-4179-8f1c-6f55025cb4ac"], +Cell[633829, 15533, 493, 11, 22, "Message",ExpressionUUID->"9a2509d5-b6b2-4154-bfdf-f3e518630290"], +Cell[634325, 15546, 21603, 402, 203, "Output",ExpressionUUID->"2cb51f85-431b-4abe-9951-23144388d539"] +}, Open ]], +Cell[655943, 15951, 207, 4, 25, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], +Cell[656153, 15957, 230, 5, 25, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], +Cell[656386, 15964, 27964, 534, 200, "Input",ExpressionUUID->"f33d4fe6-2a3a-49ae-a85c-f3177d7f2910"], +Cell[CellGroupData[{ +Cell[684375, 16502, 1750, 52, 57, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], +Cell[686128, 16556, 631, 13, 36, "Message",ExpressionUUID->"f73aa6b0-5ec7-4eed-aefd-a7a995a5b54b"], +Cell[686762, 16571, 641, 14, 36, "Message",ExpressionUUID->"41274c82-c93c-4412-8777-b14458245b3e"], +Cell[687406, 16587, 639, 14, 36, "Message",ExpressionUUID->"9a6b3cdb-6580-4622-9f46-4bbfd5386d33"], +Cell[688048, 16603, 497, 11, 22, "Message",ExpressionUUID->"ef97bc71-3e83-40d8-b466-c6e75afd59f6"], +Cell[688548, 16616, 195, 3, 29, "Output",ExpressionUUID->"666a5fff-42e1-42f8-a0e4-4421afc0e09f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[688780, 16624, 2300, 65, 48, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], +Cell[691083, 16691, 636, 14, 36, "Message",ExpressionUUID->"b44c4664-8d8f-48f9-9885-489953abb45f"], +Cell[691722, 16707, 632, 13, 36, "Message",ExpressionUUID->"fb58de9c-deb5-4ddf-8723-3773b24fe11d"], +Cell[692357, 16722, 631, 13, 36, "Message",ExpressionUUID->"ba3e3fb4-cf60-4fca-a77b-52970a17a8fd"], +Cell[692991, 16737, 493, 11, 22, "Message",ExpressionUUID->"914488a0-e884-4cbb-a2d7-8adaa4a8052d"], +Cell[693487, 16750, 193, 3, 29, "Output",ExpressionUUID->"f4d808de-4067-4eef-9b49-c947d46b42a6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[693717, 16758, 2264, 64, 48, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], +Cell[695984, 16824, 637, 14, 36, "Message",ExpressionUUID->"9e01788a-0614-47d8-bb7e-55269e56e15f"], +Cell[696624, 16840, 634, 13, 36, "Message",ExpressionUUID->"91193a02-6116-40ae-a216-95cb986000f9"], +Cell[697261, 16855, 633, 13, 36, "Message",ExpressionUUID->"078d9545-cabf-4556-877a-5bd38535385f"], +Cell[697897, 16870, 495, 11, 22, "Message",ExpressionUUID->"9ebbb37a-c4ba-4724-9861-1163085d33b7"], +Cell[698395, 16883, 193, 3, 29, "Output",ExpressionUUID->"6490c564-07ef-4022-b4fa-81c068d59679"] +}, Open ]], +Cell[CellGroupData[{ +Cell[698625, 16891, 2266, 64, 48, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], +Cell[700894, 16957, 638, 14, 36, "Message",ExpressionUUID->"d39b0db9-9c84-4c21-85dd-e5c9b9b991d4"], +Cell[701535, 16973, 632, 13, 36, "Message",ExpressionUUID->"c63e81c7-8f49-4990-8d1b-46ca72be79e9"], +Cell[702170, 16988, 631, 13, 36, "Message",ExpressionUUID->"fa3f9a56-b443-4af4-a08c-c84eeb665f37"], +Cell[702804, 17003, 492, 11, 22, "Message",ExpressionUUID->"58c760d8-b5d1-41bc-8037-c36e6fe35a02"], +Cell[703299, 17016, 196, 3, 29, "Output",ExpressionUUID->"a2195e49-a9da-4d50-a30c-ca548e14cd75"] +}, Open ]], +Cell[CellGroupData[{ +Cell[703532, 17024, 234, 6, 42, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], +Cell[703769, 17032, 197, 3, 29, "Output",ExpressionUUID->"dfd47947-3621-43f7-ad1b-3c65c6725115"] +}, Open ]], +Cell[703981, 17038, 143, 3, 25, "Input",ExpressionUUID->"23f22373-ad07-4fd5-82c8-39ee62a405f5"], +Cell[CellGroupData[{ +Cell[704149, 17045, 4850, 103, 157, "Input",ExpressionUUID->"d8811343-ec1d-4482-bf8e-b5f9fff2b33a"], +Cell[709002, 17150, 1667, 31, 36, "Output",ExpressionUUID->"ac54a27f-4403-41fb-b9c5-100938775ec4"] +}, Open ]], +Cell[710684, 17184, 4459, 98, 216, "Input",ExpressionUUID->"c8104c70-d441-4fec-b0fa-a4b78c580ce6"], +Cell[CellGroupData[{ +Cell[715168, 17286, 4663, 104, 196, "Input",ExpressionUUID->"2a0d1f71-804a-4ee0-91a9-518a0afc72da"], +Cell[719834, 17392, 418, 9, 37, "Output",ExpressionUUID->"72b7866c-db95-4bf4-b427-d89621d9bd1e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[720289, 17406, 4092, 88, 178, "Input",ExpressionUUID->"95f11f58-6444-44bb-b90d-a26a6df194cc"], +Cell[724384, 17496, 1977, 42, 58, "Output",ExpressionUUID->"83e5abfb-57fc-486a-99d2-678a4694bbed"], +Cell[726364, 17540, 1645, 47, 478, "Output",ExpressionUUID->"6619b15e-cf46-4d5d-b0b3-fa6d5e6f3fc8"] }, Open ]] } ] diff --git a/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_osc_Qw2.nb b/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_osc_Qw2.nb index c38b355..06b1ee6 100644 --- a/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_osc_Qw2.nb +++ b/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_osc_Qw2.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 576364, 14290] -NotebookOptionsPosition[ 536578, 13661] -NotebookOutlinePosition[ 536990, 13678] -CellTagsIndexPosition[ 536947, 13675] +NotebookDataLength[ 658651, 15803] +NotebookOptionsPosition[ 618062, 15154] +NotebookOutlinePosition[ 618503, 15172] +CellTagsIndexPosition[ 618460, 15169] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -26,15 +26,13 @@ Cell[BoxData[ 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, 3.9920650045886707`*^9, {3.9940821364341908`*^9, 3.994082136546945*^9}, { 3.99408222505837*^9, 3.9940822566678658`*^9}}, - CellLabel-> - "In[371]:=",ExpressionUUID->"54b36068-9321-438c-a803-bdfeeb693271"], + CellLabel->"In[1]:=",ExpressionUUID->"54b36068-9321-438c-a803-bdfeeb693271"], Cell[BoxData["1.85`"], "Output", CellChangeTimes->{ 3.991320420900818*^9, 3.9940821397588*^9, {3.9940822104439507`*^9, - 3.994082259420228*^9}}, - CellLabel-> - "Out[371]=",ExpressionUUID->"26277989-612d-4624-a7fd-6566daf32958"] + 3.994082259420228*^9}, 3.994256407065401*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"9f6f4542-5eda-4deb-9358-c566cfea5d09"] }, Open ]], Cell[CellGroupData[{ @@ -43,15 +41,13 @@ Cell[BoxData[ RowBox[{"A", "=", "240"}]], "Input", CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { 3.99407306326154*^9, 3.994073063917366*^9}}, - CellLabel-> - "In[372]:=",ExpressionUUID->"1c421dd2-7ef0-4acf-b3ac-9d06c4aef325"], + CellLabel->"In[2]:=",ExpressionUUID->"1c421dd2-7ef0-4acf-b3ac-9d06c4aef325"], Cell[BoxData["240"], "Output", CellChangeTimes->{ 3.9913196497381973`*^9, 3.994082139815686*^9, {3.994082210466728*^9, - 3.994082259455925*^9}}, - CellLabel-> - "Out[372]=",ExpressionUUID->"47d7e8c2-8ba2-4926-bdf4-ba3f66c667da"] + 3.994082259455925*^9}, 3.9942564072260723`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"46f55c50-34ea-41fc-a43a-13e8d5b7f4a1"] }, Open ]], Cell[CellGroupData[{ @@ -60,15 +56,13 @@ Cell[BoxData[ RowBox[{"A1", "=", "166"}]], "Input", CellChangeTimes->{ 3.991798961431202*^9, {3.9940730665357656`*^9, 3.994073067306501*^9}}, - CellLabel-> - "In[373]:=",ExpressionUUID->"865b48f4-585d-4a77-9c1a-36035c88fc15"], + CellLabel->"In[3]:=",ExpressionUUID->"865b48f4-585d-4a77-9c1a-36035c88fc15"], Cell[BoxData["166"], "Output", CellChangeTimes->{ 3.9913196497578354`*^9, 3.994082139825574*^9, {3.9940822104766827`*^9, - 3.994082259466858*^9}}, - CellLabel-> - "Out[373]=",ExpressionUUID->"3ca5277a-8673-4870-a853-3c078b11a2be"] + 3.994082259466858*^9}, 3.994256407269987*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"912d2c35-2a4e-4ffa-97a6-05255bd193d6"] }, Open ]], Cell[CellGroupData[{ @@ -76,15 +70,13 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, - CellLabel-> - "In[374]:=",ExpressionUUID->"0dcece84-756b-4391-883d-ef8e469946e0"], + CellLabel->"In[4]:=",ExpressionUUID->"0dcece84-756b-4391-883d-ef8e469946e0"], Cell[BoxData["0.55`"], "Output", CellChangeTimes->{ 3.991319649777508*^9, 3.994082139835326*^9, {3.994082210487997*^9, - 3.994082259477521*^9}}, - CellLabel-> - "Out[374]=",ExpressionUUID->"793de95e-87af-4dee-b866-1ddfb7b0b609"] + 3.994082259477521*^9}, 3.994256415954685*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"fc703992-f8f5-4816-859d-93d17418657c"] }, Open ]], Cell[CellGroupData[{ @@ -96,30 +88,26 @@ Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", - CellLabel-> - "In[375]:=",ExpressionUUID->"0276ac51-d7d4-4127-b3d4-8450525062c0"], + CellLabel->"In[5]:=",ExpressionUUID->"0276ac51-d7d4-4127-b3d4-8450525062c0"], Cell[BoxData["0.54425`"], "Output", CellChangeTimes->{ 3.9913196497965145`*^9, 3.994082139845067*^9, {3.994082210498448*^9, - 3.994082259487831*^9}}, - CellLabel-> - "Out[375]=",ExpressionUUID->"804b9073-4dfa-495c-9a56-8907ecfe983c"] + 3.994082259487831*^9}, 3.994256416520584*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"fda89e85-ba65-4a55-886d-c6bc8f7a222b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", - CellLabel-> - "In[376]:=",ExpressionUUID->"8242da63-2454-42b7-b309-f70f75e9da83"], + CellLabel->"In[6]:=",ExpressionUUID->"8242da63-2454-42b7-b309-f70f75e9da83"], Cell[BoxData["0.17`"], "Output", CellChangeTimes->{ 3.9913196498144608`*^9, 3.994082139854616*^9, {3.99408221050937*^9, - 3.994082259497772*^9}}, - CellLabel-> - "Out[376]=",ExpressionUUID->"2da1f696-2e73-40c1-b6fe-a9f8e9ad8bed"] + 3.994082259497772*^9}, 3.994256416577011*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"3aed2250-5304-425a-a32f-af66121acd6f"] }, Open ]], Cell[CellGroupData[{ @@ -130,15 +118,13 @@ Cell[BoxData[ SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}]}]], "Input", CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, - CellLabel-> - "In[377]:=",ExpressionUUID->"aa02b70e-387d-49e9-9573-6e0f1130bf3c"], + CellLabel->"In[7]:=",ExpressionUUID->"aa02b70e-387d-49e9-9573-6e0f1130bf3c"], Cell[BoxData["6.3752030057102145`"], "Output", CellChangeTimes->{ 3.9913196498225155`*^9, 3.994082139865213*^9, {3.994082210519739*^9, - 3.994082259507691*^9}}, - CellLabel-> - "Out[377]=",ExpressionUUID->"6da2d0b7-1d1b-4438-8bdc-523c1f1d27f6"] + 3.994082259507691*^9}, 3.994256416605242*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"e0ad0576-f0df-4150-9cbb-85f335722868"] }, Open ]], Cell[CellGroupData[{ @@ -150,15 +136,13 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", - CellLabel-> - "In[378]:=",ExpressionUUID->"f50e1dab-1bd4-439a-bc22-a71f7ec2e562"], + CellLabel->"In[8]:=",ExpressionUUID->"f50e1dab-1bd4-439a-bc22-a71f7ec2e562"], Cell[BoxData["4.870070286417752`"], "Output", CellChangeTimes->{ 3.9913196498425236`*^9, 3.99408213987599*^9, {3.9940822105302753`*^9, - 3.994082259517621*^9}}, - CellLabel-> - "Out[378]=",ExpressionUUID->"d4b9773d-3d85-4f2e-b937-d08b39725edf"] + 3.994082259517621*^9}, 3.994256416642366*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"24ee74e0-7e12-40f4-8267-12ee4748bfdc"] }, Open ]], Cell[CellGroupData[{ @@ -166,14 +150,13 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"b1", "=", "0.9035518425"}]], "Input", CellChangeTimes->{3.991799283179735*^9, 3.994073090925538*^9}, - CellLabel-> - "In[379]:=",ExpressionUUID->"4454b5e4-85d8-455b-ad0b-a1d17160f221"], + CellLabel->"In[9]:=",ExpressionUUID->"4454b5e4-85d8-455b-ad0b-a1d17160f221"], Cell[BoxData["0.9035518425`"], "Output", CellChangeTimes->{ - 3.994082139886828*^9, {3.9940822105402517`*^9, 3.9940822595277653`*^9}}, - CellLabel-> - "Out[379]=",ExpressionUUID->"bc37fd4b-6ef9-4a25-9cc2-45208c17c8ba"] + 3.994082139886828*^9, {3.9940822105402517`*^9, 3.9940822595277653`*^9}, + 3.994256416687077*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"d4d7265f-69d5-46d5-b8da-29a550f89d39"] }, Open ]], Cell[CellGroupData[{ @@ -181,44 +164,39 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"b2", "=", "0.3863821951"}]], "Input", CellChangeTimes->{3.991799280663351*^9, 3.9940730962719193`*^9}, - CellLabel-> - "In[380]:=",ExpressionUUID->"416b70d3-a4e0-4204-a453-6eb1c3b1e9c8"], + CellLabel->"In[10]:=",ExpressionUUID->"416b70d3-a4e0-4204-a453-6eb1c3b1e9c8"], Cell[BoxData["0.3863821951`"], "Output", CellChangeTimes->{ - 3.994082139897403*^9, {3.994082210550373*^9, 3.994082259537862*^9}}, - CellLabel-> - "Out[380]=",ExpressionUUID->"9874a41a-46ff-4865-8b55-87d4d4f2aea6"] + 3.994082139897403*^9, {3.994082210550373*^9, 3.994082259537862*^9}, + 3.994256416721436*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"346a49ad-5933-4dcf-a8a4-65b092d69697"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", - CellLabel-> - "In[381]:=",ExpressionUUID->"e788292c-aaa3-41c4-997f-b67346c03039"], + CellLabel->"In[11]:=",ExpressionUUID->"e788292c-aaa3-41c4-997f-b67346c03039"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498927155`*^9, 3.994082139910328*^9, {3.994082210560801*^9, - 3.9940822595420103`*^9}}, - CellLabel-> - "Out[381]=",ExpressionUUID->"8b770740-6375-4a94-bd8e-753563b43199"] + 3.9940822595420103`*^9}, 3.994256416763921*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"46eeca87-05ec-427b-879d-1e258496dcb0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", - CellLabel-> - "In[382]:=",ExpressionUUID->"ef0cda8d-9d8a-4bb3-bd88-bbfd83e75854"], + CellLabel->"In[12]:=",ExpressionUUID->"ef0cda8d-9d8a-4bb3-bd88-bbfd83e75854"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498996067`*^9, 3.9940821399224367`*^9, {3.994082210571288*^9, - 3.994082259554398*^9}}, - CellLabel-> - "Out[382]=",ExpressionUUID->"607b86d8-b6ac-49ee-a12e-de50d26e0a24"] + 3.994082259554398*^9}, 3.994256416799158*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"0ee28bf2-54f9-42d5-a238-3546b4065180"] }, Open ]], Cell[CellGroupData[{ @@ -242,15 +220,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[383]:=",ExpressionUUID->"43da542d-4f77-420f-9090-54018b5cb4fe"], + CellLabel->"In[13]:=",ExpressionUUID->"43da542d-4f77-420f-9090-54018b5cb4fe"], Cell[BoxData["2.315137197466896`"], "Output", CellChangeTimes->{ 3.9913197863028755`*^9, 3.994082139933848*^9, {3.994082210581699*^9, - 3.9940822595648727`*^9}}, - CellLabel-> - "Out[383]=",ExpressionUUID->"1539a043-75f6-4697-9c66-dd6c8abaa5f3"] + 3.9940822595648727`*^9}, 3.994256416833596*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"2e65e955-42c4-4ac0-99ca-159fecb22852"] }, Open ]], Cell[CellGroupData[{ @@ -274,15 +250,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[384]:=",ExpressionUUID->"1de051a4-9775-42cc-b740-bc991544eec8"], + CellLabel->"In[14]:=",ExpressionUUID->"1de051a4-9775-42cc-b740-bc991544eec8"], Cell[BoxData["1.4220278650887666`"], "Output", CellChangeTimes->{ 3.9913197864610195`*^9, 3.994082139944078*^9, {3.9940822105866547`*^9, - 3.9940822595749483`*^9}}, - CellLabel-> - "Out[384]=",ExpressionUUID->"74ad00f1-d8cd-4d17-bcd4-7955bf5baba7"] + 3.9940822595749483`*^9}, 3.994256416867732*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"093cd5d6-9a91-4ec5-911b-9d1fffcf6f6f"] }, Open ]], Cell[CellGroupData[{ @@ -337,15 +311,13 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[385]:=",ExpressionUUID->"84e1d295-8c23-4259-8dd9-7adf7e35d067"], + CellLabel->"In[15]:=",ExpressionUUID->"84e1d295-8c23-4259-8dd9-7adf7e35d067"], Cell[BoxData["0.4069661562665162`"], "Output", CellChangeTimes->{ 3.991319786533783*^9, 3.994082139954578*^9, {3.994082210602051*^9, - 3.994082259585372*^9}}, - CellLabel-> - "Out[385]=",ExpressionUUID->"1b5cee6c-5edd-4ab9-8d56-a1c083877dc5"] + 3.994082259585372*^9}, 3.994256416900386*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"be6d4725-06c9-45cc-9cce-7aa6c973ee81"] }, Open ]], Cell[CellGroupData[{ @@ -396,16 +368,14 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[386]:=",ExpressionUUID->"fa45fea8-6386-4332-b153-df368543cf58"], + CellLabel->"In[16]:=",ExpressionUUID->"fa45fea8-6386-4332-b153-df368543cf58"], Cell[BoxData[ RowBox[{"-", "0.08563504168524437`"}]], "Output", CellChangeTimes->{ 3.991319786540777*^9, 3.9940821399653873`*^9, {3.994082210613337*^9, - 3.994082259596693*^9}}, - CellLabel-> - "Out[386]=",ExpressionUUID->"33fd6a96-3820-4318-a5ad-945d7a94ebe5"] + 3.994082259596693*^9}, 3.9942564169856863`*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"5df06338-285e-4c07-8bc4-87922a31e5ad"] }, Open ]], Cell[CellGroupData[{ @@ -456,16 +426,14 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[387]:=",ExpressionUUID->"716610a2-7c9d-4f23-88aa-d470351e90ba"], + CellLabel->"In[17]:=",ExpressionUUID->"716610a2-7c9d-4f23-88aa-d470351e90ba"], Cell[BoxData[ RowBox[{"-", "0.5841673375234483`"}]], "Output", CellChangeTimes->{ 3.9913197865777817`*^9, 3.9940821399780188`*^9, {3.9940822106256943`*^9, - 3.9940822596071453`*^9}}, - CellLabel-> - "Out[387]=",ExpressionUUID->"91133e04-72bb-4b94-a180-694a0fef273c"] + 3.9940822596071453`*^9}, 3.994256417117445*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"9d07cece-b1a8-4df9-9c49-a82ea50e2857"] }, Open ]], Cell[CellGroupData[{ @@ -520,60 +488,52 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[388]:=",ExpressionUUID->"0ac3d858-cb59-4e46-8b73-36d3d79cae0c"], + CellLabel->"In[18]:=",ExpressionUUID->"0ac3d858-cb59-4e46-8b73-36d3d79cae0c"], Cell[BoxData["0.7215005296935654`"], "Output", CellChangeTimes->{ 3.9913197866129*^9, 3.994082139989607*^9, {3.994082210635736*^9, - 3.99408225961747*^9}}, - CellLabel-> - "Out[388]=",ExpressionUUID->"142c7187-6d38-471d-859c-6e6c99f3569b"] + 3.99408225961747*^9}, 3.994256417185923*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"288d6d50-44f9-403a-824d-b834643d81e4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", - CellLabel-> - "In[389]:=",ExpressionUUID->"762bf122-768c-4500-8971-55894b694671"], + CellLabel->"In[19]:=",ExpressionUUID->"762bf122-768c-4500-8971-55894b694671"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786620775*^9, 3.9940821399995413`*^9, {3.9940822106444807`*^9, - 3.994082259627829*^9}}, - CellLabel-> - "Out[389]=",ExpressionUUID->"e4b902a8-892e-4e78-aaa1-469409eb24f7"] + 3.994082259627829*^9}, 3.994256417252561*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"4790e059-4bb0-45fb-b98d-40c5a2a3a210"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fin", "=", "0.09"}]], "Input", - CellLabel-> - "In[390]:=",ExpressionUUID->"ca09243d-e621-4101-9ff7-d458cc8f1266"], + CellLabel->"In[20]:=",ExpressionUUID->"ca09243d-e621-4101-9ff7-d458cc8f1266"], Cell[BoxData["0.09`"], "Output", CellChangeTimes->{ 3.991319786657793*^9, 3.994082140010191*^9, {3.994082210653286*^9, - 3.994082259638521*^9}}, - CellLabel-> - "Out[390]=",ExpressionUUID->"96e1ce9f-6f9f-4c45-a7fb-d8b9e6dd3b46"] + 3.994082259638521*^9}, 3.994256417314763*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"ac446579-1298-432d-b36f-58a6526cdca6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffin", "=", "0.42"}]], "Input", - CellLabel-> - "In[391]:=",ExpressionUUID->"c6803cf1-3e56-4c42-a419-2641da711aa0"], + CellLabel->"In[21]:=",ExpressionUUID->"c6803cf1-3e56-4c42-a419-2641da711aa0"], Cell[BoxData["0.42`"], "Output", CellChangeTimes->{ 3.9913197866657925`*^9, 3.9940821400205593`*^9, {3.9940822106620293`*^9, - 3.9940822596489058`*^9}}, - CellLabel-> - "Out[391]=",ExpressionUUID->"2fbb2136-1d41-45c3-bdc0-7482492cb64d"] + 3.9940822596489058`*^9}, 3.994256417361206*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"bf533936-ad31-4e3c-a09b-85768a4f09f9"] }, Open ]], Cell[CellGroupData[{ @@ -582,31 +542,27 @@ Cell[BoxData[ RowBox[{"fex", "=", RowBox[{"-", "2.59"}]}]], "Input", CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, - CellLabel-> - "In[392]:=",ExpressionUUID->"dae5153f-911a-49cf-9bb4-44d0081c1d49"], + CellLabel->"In[22]:=",ExpressionUUID->"dae5153f-911a-49cf-9bb4-44d0081c1d49"], Cell[BoxData[ RowBox[{"-", "2.59`"}]], "Output", CellChangeTimes->{ 3.9913197866996*^9, 3.994082140031045*^9, {3.994082210671171*^9, - 3.994082259659958*^9}}, - CellLabel-> - "Out[392]=",ExpressionUUID->"97fb2515-1180-45bf-bb60-d9b69adafd83"] + 3.994082259659958*^9}, 3.994256417481879*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"a473fad6-046a-4e3e-a31e-ffc6f290a5f7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffex", "=", "0.54"}]], "Input", - CellLabel-> - "In[393]:=",ExpressionUUID->"99979b7d-5078-4d3b-ba55-a88f742375b4"], + CellLabel->"In[23]:=",ExpressionUUID->"99979b7d-5078-4d3b-ba55-a88f742375b4"], Cell[BoxData["0.54`"], "Output", CellChangeTimes->{ 3.9913197867406044`*^9, 3.994082140043984*^9, {3.9940822106801777`*^9, - 3.994082259671282*^9}}, - CellLabel-> - "Out[393]=",ExpressionUUID->"a6815b56-76f8-46f7-80cd-f9fd64394d65"] + 3.994082259671282*^9}, 3.994256417519623*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"1956642a-74de-41d8-8662-c55e30d56131"] }, Open ]], Cell[CellGroupData[{ @@ -616,15 +572,13 @@ Cell[BoxData[ CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { 3.9940731043812733`*^9, 3.994073104508005*^9}}, - CellLabel-> - "In[394]:=",ExpressionUUID->"46780137-b59e-4062-a64f-2b398a29ee35"], + CellLabel->"In[24]:=",ExpressionUUID->"46780137-b59e-4062-a64f-2b398a29ee35"], Cell[BoxData["66"], "Output", CellChangeTimes->{ 3.9913197867861958`*^9, 3.994082140061471*^9, {3.99408221068924*^9, - 3.9940822596826973`*^9}}, - CellLabel-> - "Out[394]=",ExpressionUUID->"85549d07-7b10-4a40-b965-c3aa798887c5"] + 3.9940822596826973`*^9}, 3.994256417554035*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"a59920c1-df35-4c3a-9617-4456502dba07"] }, Open ]], Cell[CellGroupData[{ @@ -634,15 +588,13 @@ Cell[BoxData[ RowBox[{"94", "-", "Z1"}]}]], "Input", CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, 3.9916443064841423`*^9, {3.9940731093077307`*^9, 3.99407311085991*^9}}, - CellLabel-> - "In[395]:=",ExpressionUUID->"8d50ce28-af85-4d96-85ca-8f8868659214"], + CellLabel->"In[25]:=",ExpressionUUID->"8d50ce28-af85-4d96-85ca-8f8868659214"], Cell[BoxData["28"], "Output", CellChangeTimes->{ 3.9913197867928696`*^9, 3.994082140071866*^9, {3.9940822106985188`*^9, - 3.9940822596930656`*^9}}, - CellLabel-> - "Out[395]=",ExpressionUUID->"f5d9458a-dd25-4aca-9c76-0c2ef189fc6b"] + 3.9940822596930656`*^9}, 3.994256417587914*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"e41dc3ec-b8aa-40d7-b247-371eeef92b0d"] }, Open ]], Cell[CellGroupData[{ @@ -651,15 +603,13 @@ Cell[BoxData[ RowBox[{"A2", "=", RowBox[{"A", "-", "A1"}]}]], "Input", CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, - CellLabel-> - "In[396]:=",ExpressionUUID->"9965b835-5d7d-46b8-a269-a30feacd524e"], + CellLabel->"In[26]:=",ExpressionUUID->"9965b835-5d7d-46b8-a269-a30feacd524e"], Cell[BoxData["74"], "Output", CellChangeTimes->{ 3.991319786827894*^9, 3.994082140082143*^9, {3.994082210707357*^9, - 3.994082259703759*^9}}, - CellLabel-> - "Out[396]=",ExpressionUUID->"9c1aa965-16a3-4b7d-8c56-44f3f002d052"] + 3.994082259703759*^9}, 3.9942564176248693`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"74be3f6f-301d-4e89-a2e2-b9f7cb15318e"] }, Open ]], Cell[CellGroupData[{ @@ -674,15 +624,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[397]:=",ExpressionUUID->"92bcc0dd-a8f0-4ab1-a3d9-ee0b74e4ecf5"], + CellLabel->"In[27]:=",ExpressionUUID->"92bcc0dd-a8f0-4ab1-a3d9-ee0b74e4ecf5"], Cell[BoxData["0.11092478020188863`"], "Output", CellChangeTimes->{ 3.9913197868648605`*^9, 3.9940821400927267`*^9, {3.994082210716133*^9, - 3.994082259714077*^9}}, - CellLabel-> - "Out[397]=",ExpressionUUID->"f21ae9bf-2a23-4a0f-8470-c2a3eef714b0"] + 3.994082259714077*^9}, 3.994256417659759*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"1b468832-bf83-4aed-ad50-b6f1cb60c592"] }, Open ]], Cell[CellGroupData[{ @@ -697,16 +645,14 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[398]:=",ExpressionUUID->"2bbfcebd-831f-432f-a392-abeb412a5495"], + CellLabel->"In[28]:=",ExpressionUUID->"2bbfcebd-831f-432f-a392-abeb412a5495"], Cell[BoxData[ RowBox[{"-", "2.5630967111690004`"}]], "Output", CellChangeTimes->{ 3.9913197868718567`*^9, 3.9940821401033173`*^9, {3.994082210725114*^9, - 3.994082259724759*^9}}, - CellLabel-> - "Out[398]=",ExpressionUUID->"d1ed5244-bcd3-413f-9e8b-117cd540ca01"] + 3.994082259724759*^9}, 3.9942564177152042`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"c795e47a-f328-42c3-8267-e1209a894452"] }, Open ]], Cell[CellGroupData[{ @@ -737,15 +683,13 @@ Cell[BoxData[ CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, - CellLabel-> - "In[399]:=",ExpressionUUID->"9b92a6bf-fac6-42f2-a8f7-4ef3d660996e"], + CellLabel->"In[29]:=",ExpressionUUID->"9b92a6bf-fac6-42f2-a8f7-4ef3d660996e"], Cell[BoxData["17.4437013546787`"], "Output", CellChangeTimes->{ 3.9913197869068584`*^9, 3.994082140114669*^9, {3.994082210734028*^9, - 3.994082259736136*^9}}, - CellLabel-> - "Out[399]=",ExpressionUUID->"4de7e762-d517-4e21-9ef0-6188b6a598f3"] + 3.994082259736136*^9}, 3.994256417938789*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"6b1e2784-92a9-4dbe-8c8f-ac0901476aa8"] }, Open ]], Cell[CellGroupData[{ @@ -753,15 +697,13 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, - CellLabel-> - "In[400]:=",ExpressionUUID->"184d0590-ce03-4b2e-ac29-4a3dab3130fa"], + CellLabel->"In[30]:=",ExpressionUUID->"184d0590-ce03-4b2e-ac29-4a3dab3130fa"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786940857*^9, 3.994082140125458*^9, {3.9940822107429523`*^9, - 3.9940822597468443`*^9}}, - CellLabel-> - "Out[400]=",ExpressionUUID->"cbc1698c-fc06-4e9f-a3ca-f7c5d815ca79"] + 3.9940822597468443`*^9}, 3.994256417983778*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"548fa01f-a2f2-4a46-bf55-550d922e1c13"] }, Open ]], Cell[CellGroupData[{ @@ -771,20 +713,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { 3.994073141486967*^9, 3.9940731424234343`*^9}}, - CellLabel-> - "In[401]:=",ExpressionUUID->"0b570ae3-42d2-4602-82a8-84e3a04649d9"], + CellLabel->"In[31]:=",ExpressionUUID->"0b570ae3-42d2-4602-82a8-84e3a04649d9"], Cell[BoxData["2.185`"], "Output", CellChangeTimes->{ - 3.9940821401363583`*^9, {3.994082210751677*^9, 3.9940822597573833`*^9}}, - CellLabel-> - "Out[401]=",ExpressionUUID->"d1b15e78-d2be-4f53-9006-7f711ea12201"] + 3.9940821401363583`*^9, {3.994082210751677*^9, 3.9940822597573833`*^9}, + 3.994256418021618*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"51fe370f-8728-469e-a0bd-f3e11734e388"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, - CellLabel-> - "In[402]:=",ExpressionUUID->"d39bf080-2369-4f01-b27f-465c7b25d1e0"], + CellLabel->"In[32]:=",ExpressionUUID->"d39bf080-2369-4f01-b27f-465c7b25d1e0"], Cell[CellGroupData[{ @@ -793,20 +733,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { 3.9940731457645493`*^9, 3.994073146848226*^9}}, - CellLabel-> - "In[403]:=",ExpressionUUID->"1ed9c65d-e67b-44be-bc26-948345b3f4ce"], + CellLabel->"In[33]:=",ExpressionUUID->"1ed9c65d-e67b-44be-bc26-948345b3f4ce"], Cell[BoxData["0.755`"], "Output", CellChangeTimes->{ - 3.994082140150962*^9, {3.9940822107679367`*^9, 3.9940822597717943`*^9}}, - CellLabel-> - "Out[403]=",ExpressionUUID->"99cb3253-9cbc-4baa-9177-c3f88a7491fc"] + 3.994082140150962*^9, {3.9940822107679367`*^9, 3.9940822597717943`*^9}, + 3.994256418169313*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"acfdf15f-c205-497e-a28c-28125d42548a"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, - CellLabel-> - "In[404]:=",ExpressionUUID->"295d5529-f7ea-475f-acb4-6eb4486987a6"], + CellLabel->"In[34]:=",ExpressionUUID->"295d5529-f7ea-475f-acb4-6eb4486987a6"], Cell[CellGroupData[{ @@ -815,20 +753,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { 3.994073149619232*^9, 3.994073149893601*^9}}, - CellLabel-> - "In[405]:=",ExpressionUUID->"7f3ec5f8-41c4-4cf5-a24e-a062c6800394"], + CellLabel->"In[35]:=",ExpressionUUID->"7f3ec5f8-41c4-4cf5-a24e-a062c6800394"], Cell[BoxData["2.5`"], "Output", CellChangeTimes->{ - 3.994082140164228*^9, {3.994082210783918*^9, 3.994082259785039*^9}}, - CellLabel-> - "Out[405]=",ExpressionUUID->"a4cd39fc-e7b7-4abb-ba1d-f3a2c23f4f20"] + 3.994082140164228*^9, {3.994082210783918*^9, 3.994082259785039*^9}, + 3.994256418229714*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"f60cd11a-7caa-4c00-b2c3-17fa2432b121"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, - CellLabel-> - "In[406]:=",ExpressionUUID->"993979c0-bd2d-4ad1-9b61-552ca76007a0"], + CellLabel->"In[36]:=",ExpressionUUID->"993979c0-bd2d-4ad1-9b61-552ca76007a0"], Cell[CellGroupData[{ @@ -837,20 +773,18 @@ Cell[BoxData[ CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, 3.991799359954439*^9, {3.994073152359264*^9, 3.994073154823225*^9}}, - CellLabel-> - "In[407]:=",ExpressionUUID->"b92b203e-98eb-4a2b-91fa-18cad5b51e15"], + CellLabel->"In[37]:=",ExpressionUUID->"b92b203e-98eb-4a2b-91fa-18cad5b51e15"], Cell[BoxData["1.165`"], "Output", CellChangeTimes->{ - 3.994082140177301*^9, {3.994082210799852*^9, 3.9940822597980413`*^9}}, - CellLabel-> - "Out[407]=",ExpressionUUID->"d74f83c4-1e66-4ebe-a4da-fc391dcbf215"] + 3.994082140177301*^9, {3.994082210799852*^9, 3.9940822597980413`*^9}, + 3.994256418310348*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"a9d14b31-8f76-4117-9577-b09ee5260708"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, - CellLabel-> - "In[408]:=",ExpressionUUID->"fdeb5ba4-fdd2-422d-8ea1-39e77d72f72d"], + CellLabel->"In[38]:=",ExpressionUUID->"fdeb5ba4-fdd2-422d-8ea1-39e77d72f72d"], Cell[CellGroupData[{ @@ -859,20 +793,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, 3.991718016467348*^9, 3.991799361414671*^9, {3.994073158537945*^9, 3.994073159984886*^9}}, - CellLabel-> - "In[409]:=",ExpressionUUID->"6177caaf-88a9-4637-8e87-257bcca7d7d3"], + CellLabel->"In[39]:=",ExpressionUUID->"6177caaf-88a9-4637-8e87-257bcca7d7d3"], Cell[BoxData["1.055`"], "Output", CellChangeTimes->{ - 3.9940821401902237`*^9, {3.9940822108158007`*^9, 3.994082259811191*^9}}, - CellLabel-> - "Out[409]=",ExpressionUUID->"afd2c213-33ec-42c1-b499-0c4ac04a4864"] + 3.9940821401902237`*^9, {3.9940822108158007`*^9, 3.994082259811191*^9}, + 3.994256418400378*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"377b7502-7ac2-4f53-8f3d-37fd1a077c26"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, - CellLabel-> - "In[410]:=",ExpressionUUID->"60b82e3b-67de-44d1-b120-0c9b9d0d3fd4"], + CellLabel->"In[40]:=",ExpressionUUID->"60b82e3b-67de-44d1-b120-0c9b9d0d3fd4"], Cell[CellGroupData[{ @@ -881,20 +813,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9940731689650297`*^9, 3.994073170525517*^9}}, - CellLabel-> - "In[411]:=",ExpressionUUID->"12de3bbc-0879-44cc-b328-21ba423eeb20"], + CellLabel->"In[41]:=",ExpressionUUID->"12de3bbc-0879-44cc-b328-21ba423eeb20"], Cell[BoxData["0.575`"], "Output", CellChangeTimes->{ - 3.99408214020331*^9, {3.9940822108320093`*^9, 3.994082259824339*^9}}, - CellLabel-> - "Out[411]=",ExpressionUUID->"7b540941-4937-4c6f-acd9-16093a44981a"] + 3.99408214020331*^9, {3.9940822108320093`*^9, 3.994082259824339*^9}, + 3.994256418488154*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"abcea046-163d-4a88-8619-1f7d14d851b0"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, - CellLabel-> - "In[412]:=",ExpressionUUID->"00f01e3b-b3db-4685-af30-78576555e0fd"], + CellLabel->"In[42]:=",ExpressionUUID->"00f01e3b-b3db-4685-af30-78576555e0fd"], Cell[CellGroupData[{ @@ -903,20 +833,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.99407317466329*^9, 3.9940731756907377`*^9}}, - CellLabel-> - "In[413]:=",ExpressionUUID->"7975ebac-cd08-419a-a96b-d5292747e5f3"], + CellLabel->"In[43]:=",ExpressionUUID->"7975ebac-cd08-419a-a96b-d5292747e5f3"], Cell[BoxData["1.51`"], "Output", CellChangeTimes->{ - 3.9940821402169437`*^9, {3.994082210847649*^9, 3.994082259837338*^9}}, - CellLabel-> - "Out[413]=",ExpressionUUID->"5a8f3b4c-1fac-4616-8a48-ccca896dcbe8"] + 3.9940821402169437`*^9, {3.994082210847649*^9, 3.994082259837338*^9}, + 3.994256418569334*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"97e3e379-2c67-4b85-9f32-c73242fce46a"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, - CellLabel-> - "In[414]:=",ExpressionUUID->"31005cd2-1cb1-4c77-af6e-89c1822b54e1"], + CellLabel->"In[44]:=",ExpressionUUID->"31005cd2-1cb1-4c77-af6e-89c1822b54e1"], Cell[CellGroupData[{ @@ -924,20 +852,18 @@ Cell[BoxData[ RowBox[{"nn2", "=", "0.635"}]], "Input", CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, 3.9917993660901737`*^9, {3.99407317843715*^9, 3.994073182537156*^9}}, - CellLabel-> - "In[415]:=",ExpressionUUID->"fd4967a2-2507-4712-a0bb-5a23786cbe57"], + CellLabel->"In[45]:=",ExpressionUUID->"fd4967a2-2507-4712-a0bb-5a23786cbe57"], Cell[BoxData["0.635`"], "Output", CellChangeTimes->{ - 3.994082140230339*^9, {3.994082210863504*^9, 3.994082259850523*^9}}, - CellLabel-> - "Out[415]=",ExpressionUUID->"cffe47dc-4dac-4268-b615-804cb50a4a1d"] + 3.994082140230339*^9, {3.994082210863504*^9, 3.994082259850523*^9}, + 3.994256418623536*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"51cf892d-d75f-4fc5-9e38-9db2bca54dea"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, - CellLabel-> - "In[416]:=",ExpressionUUID->"2a198cd6-3fbf-4fba-8290-42336a86ac0b"], + CellLabel->"In[46]:=",ExpressionUUID->"2a198cd6-3fbf-4fba-8290-42336a86ac0b"], Cell[CellGroupData[{ @@ -1426,15 +1352,13 @@ uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== "], - CellLabel-> - "In[417]:=",ExpressionUUID->"a7c8eb5b-277e-43f9-ad0e-c2e582e8c0dc"], + CellLabel->"In[47]:=",ExpressionUUID->"a7c8eb5b-277e-43f9-ad0e-c2e582e8c0dc"], Cell[BoxData["0.14543451930671605`"], "Output", CellChangeTimes->{ 3.991319787430073*^9, 3.9940821403190203`*^9, {3.994082210903069*^9, - 3.994082259888891*^9}}, - CellLabel-> - "Out[417]=",ExpressionUUID->"617f27cb-cd5b-4f7b-9373-fffa46bef6a3"] + 3.994082259888891*^9}, 3.99425641887744*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"3468940c-2899-45aa-b099-c23462796605"] }, Open ]], Cell[CellGroupData[{ @@ -1928,15 +1852,13 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[418]:=",ExpressionUUID->"2b01dd81-5a9e-4651-914a-da7baa693613"], + CellLabel->"In[48]:=",ExpressionUUID->"2b01dd81-5a9e-4651-914a-da7baa693613"], Cell[BoxData["7.609769640822119`"], "Output", CellChangeTimes->{ 3.991319787574972*^9, 3.9940821403533278`*^9, {3.994082210934519*^9, - 3.994082259917639*^9}}, - CellLabel-> - "Out[418]=",ExpressionUUID->"03e2f15e-84bb-49ec-bb27-c117b44e4f5c"] + 3.994082259917639*^9}, 3.994256419038714*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"695d98de-48cf-403f-b026-050e4e19e297"] }, Open ]], Cell[CellGroupData[{ @@ -2424,16 +2346,14 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[419]:=",ExpressionUUID->"d3f3bd4a-a9ac-45a8-ac67-3af82fbc74d8"], + CellLabel->"In[49]:=",ExpressionUUID->"d3f3bd4a-a9ac-45a8-ac67-3af82fbc74d8"], Cell[BoxData[ RowBox[{"-", "15.030827196449275`"}]], "Output", CellChangeTimes->{ 3.991319787641424*^9, 3.994082140383691*^9, {3.9940822109679832`*^9, - 3.994082259945158*^9}}, - CellLabel-> - "Out[419]=",ExpressionUUID->"d579e267-8e04-48f3-8b4e-d5022ddfcb63"] + 3.994082259945158*^9}, 3.994256419247869*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"c1e055c6-e276-44e6-bc94-d250923aa0c6"] }, Open ]], Cell[CellGroupData[{ @@ -2991,16 +2911,14 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[420]:=",ExpressionUUID->"151a3a36-34c7-4b81-aa16-f23e16c0d146"], + CellLabel->"In[50]:=",ExpressionUUID->"151a3a36-34c7-4b81-aa16-f23e16c0d146"], Cell[BoxData[ RowBox[{"-", "19.761827924452415`"}]], "Output", CellChangeTimes->{ 3.991319787711939*^9, 3.9940821404195766`*^9, {3.9940822110021753`*^9, - 3.994082259978429*^9}}, - CellLabel-> - "Out[420]=",ExpressionUUID->"112182d7-e756-486e-89db-5383cac76ed9"] + 3.994082259978429*^9}, 3.9942564193610477`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"c43eb0fe-8013-485e-b6e5-7fd0e43e258d"] }, Open ]], Cell[CellGroupData[{ @@ -3558,16 +3476,14 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[421]:=",ExpressionUUID->"8f7b1795-a9ef-41e5-8533-b6c6a5bd88b2"], + CellLabel->"In[51]:=",ExpressionUUID->"8f7b1795-a9ef-41e5-8533-b6c6a5bd88b2"], Cell[BoxData[ RowBox[{"-", "57.66257775030843`"}]], "Output", CellChangeTimes->{ 3.9913197877723045`*^9, 3.9940821404579077`*^9, {3.994082211038884*^9, - 3.994082260011196*^9}}, - CellLabel-> - "Out[421]=",ExpressionUUID->"9c0df20c-1574-41ef-bf65-e415a8b4a304"] + 3.994082260011196*^9}, 3.994256419460376*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"91a12b32-eb3b-48d3-96ea-1c322c236254"] }, Open ]], Cell[CellGroupData[{ @@ -4198,46 +4114,40 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[422]:=",ExpressionUUID->"05db592d-4708-4ba2-b046-1754a38e3d37"], + CellLabel->"In[52]:=",ExpressionUUID->"05db592d-4708-4ba2-b046-1754a38e3d37"], Cell[BoxData[ RowBox[{"-", "150.68948520646092`"}]], "Output", CellChangeTimes->{ 3.991319787833355*^9, 3.994082140505332*^9, {3.994082211079116*^9, - 3.9940822600491877`*^9}}, - CellLabel-> - "Out[422]=",ExpressionUUID->"478028f3-f095-4d5d-9214-bd3400febb1f"] + 3.9940822600491877`*^9}, 3.9942564197275543`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"e25b1228-f30e-4ec5-84c6-c5797f6fbb45"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U21", "=", "0"}]], "Input", - CellLabel-> - "In[423]:=",ExpressionUUID->"e0dbfa19-8141-43bf-86ec-4287e1cbd7e6"], + CellLabel->"In[53]:=",ExpressionUUID->"e0dbfa19-8141-43bf-86ec-4287e1cbd7e6"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210013676`*^9, 3.99408214052183*^9, {3.994082211090176*^9, - 3.994082260062854*^9}}, - CellLabel-> - "Out[423]=",ExpressionUUID->"8fdcf4fa-2a40-404b-8128-61bd41c8c5ba"] + 3.994082260062854*^9}, 3.994256419799831*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"9b0c7a1f-fabb-4b5a-ad15-c41b212ee7a7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U22", "=", "0"}]], "Input", - CellLabel-> - "In[424]:=",ExpressionUUID->"b9584586-114f-42b8-b6f0-f06b1038285d"], + CellLabel->"In[54]:=",ExpressionUUID->"b9584586-114f-42b8-b6f0-f06b1038285d"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210355663`*^9, 3.994082140531746*^9, {3.9940822111011677`*^9, - 3.994082260073297*^9}}, - CellLabel-> - "Out[424]=",ExpressionUUID->"cd6646a2-1e6c-442c-8a25-10345f39107d"] + 3.994082260073297*^9}, 3.9942564199056177`*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"769017fb-ef54-4364-8580-58be642aceef"] }, Open ]], Cell[CellGroupData[{ @@ -4281,15 +4191,13 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[425]:=",ExpressionUUID->"abc92f82-3d3e-41cb-a0f0-063081e72ebc"], + CellLabel->"In[55]:=",ExpressionUUID->"abc92f82-3d3e-41cb-a0f0-063081e72ebc"], Cell[BoxData["120.33662547388403`"], "Output", CellChangeTimes->{ 3.991320421068556*^9, 3.994082140542282*^9, {3.994082211112996*^9, - 3.994082260084251*^9}}, - CellLabel-> - "Out[425]=",ExpressionUUID->"d288d810-0b52-4467-bc9a-5d1a6ba2ecbe"] + 3.994082260084251*^9}, 3.994256419941031*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"dfcf777e-6ee4-46a2-822a-667332d9015d"] }, Open ]], Cell[CellGroupData[{ @@ -4329,16 +4237,14 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[426]:=",ExpressionUUID->"1fb81d84-4db6-457d-a98d-d3d4a6c111aa"], + CellLabel->"In[56]:=",ExpressionUUID->"1fb81d84-4db6-457d-a98d-d3d4a6c111aa"], Cell[BoxData[ RowBox[{"-", "107.1121642480161`"}]], "Output", CellChangeTimes->{ 3.991320421098543*^9, 3.994082140552636*^9, {3.994082211122551*^9, - 3.994082260094944*^9}}, - CellLabel-> - "Out[426]=",ExpressionUUID->"e59afbe2-5db2-425b-9ffc-635915bbaa10"] + 3.994082260094944*^9}, 3.994256420226893*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"98cb5fe9-d92a-4372-baa5-cb46a33f0fa0"] }, Open ]], Cell[CellGroupData[{ @@ -4382,99 +4288,87 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[427]:=",ExpressionUUID->"1a9670fb-b623-40cf-91a7-4db9b61d62ec"], + CellLabel->"In[57]:=",ExpressionUUID->"1a9670fb-b623-40cf-91a7-4db9b61d62ec"], Cell[BoxData["123.55775944746372`"], "Output", CellChangeTimes->{ 3.9913204211275444`*^9, 3.9940821405632*^9, {3.9940822111320972`*^9, - 3.9940822601055107`*^9}}, - CellLabel-> - "Out[427]=",ExpressionUUID->"3ffa7517-e36e-41ea-ab7d-d96fc660a854"] + 3.9940822601055107`*^9}, 3.994256420501981*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"454a59db-9fe8-4fc0-9df5-2e09543dea87"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c11"], "Input", - CellLabel-> - "In[428]:=",ExpressionUUID->"2f5b9bd8-f9ad-4bfd-a8c4-e5f5b660eee5"], + CellLabel->"In[58]:=",ExpressionUUID->"2f5b9bd8-f9ad-4bfd-a8c4-e5f5b660eee5"], Cell[BoxData["0.4069661562665162`"], "Output", CellChangeTimes->{ 3.9913204211385536`*^9, 3.994082140573392*^9, {3.994082211141264*^9, - 3.994082260116184*^9}}, - CellLabel-> - "Out[428]=",ExpressionUUID->"a5b9a15f-7441-4230-82ca-01dfd277d66a"] + 3.994082260116184*^9}, 3.994256420536105*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"a6a80779-9752-4895-999c-c38b89f20fe2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c12"], "Input", - CellLabel-> - "In[429]:=",ExpressionUUID->"ebfb17f3-e95e-4eba-9e50-433992102c8f"], + CellLabel->"In[59]:=",ExpressionUUID->"ebfb17f3-e95e-4eba-9e50-433992102c8f"], Cell[BoxData[ RowBox[{"-", "0.08563504168524437`"}]], "Output", CellChangeTimes->{ 3.9913204211683464`*^9, 3.994082140583559*^9, {3.994082211156444*^9, - 3.994082260127738*^9}}, - CellLabel-> - "Out[429]=",ExpressionUUID->"3593d402-754f-47fd-a87e-f56000e4cef1"] + 3.994082260127738*^9}, 3.994256420597095*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"eedb1836-23cb-46ca-8748-4cc0b73e7113"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c21"], "Input", - CellLabel-> - "In[430]:=",ExpressionUUID->"5de504fd-f846-40cb-ad8b-4804c3917e14"], + CellLabel->"In[60]:=",ExpressionUUID->"5de504fd-f846-40cb-ad8b-4804c3917e14"], Cell[BoxData[ RowBox[{"-", "0.5841673375234483`"}]], "Output", CellChangeTimes->{ 3.991320421199068*^9, 3.994082140593707*^9, {3.994082211166273*^9, - 3.99408226016045*^9}}, - CellLabel-> - "Out[430]=",ExpressionUUID->"a1e99dc5-7b24-4bf7-8994-9bb38b933044"] + 3.99408226016045*^9}, 3.99425642064835*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"27deb77b-dbd0-4dbb-a05b-f25ae4bff909"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c22"], "Input", - CellLabel-> - "In[431]:=",ExpressionUUID->"6247a7d7-e98d-4926-b82f-4e40f049efb0"], + CellLabel->"In[61]:=",ExpressionUUID->"6247a7d7-e98d-4926-b82f-4e40f049efb0"], Cell[BoxData["0.7215005296935654`"], "Output", CellChangeTimes->{ 3.991320421228037*^9, 3.9940821428128853`*^9, {3.994082211175336*^9, - 3.994082260189337*^9}}, - CellLabel-> - "Out[431]=",ExpressionUUID->"100d9dbc-e6cb-4be4-ab5d-6281b95c4887"] + 3.994082260189337*^9}, 3.9942564207017307`*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"7654ef93-0f79-4b35-a1be-ae04dbaed044"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w1"], "Input", - CellLabel-> - "In[432]:=",ExpressionUUID->"e1b956f3-c906-49b1-aacf-7b546604d57d"], + CellLabel->"In[62]:=",ExpressionUUID->"e1b956f3-c906-49b1-aacf-7b546604d57d"], Cell[BoxData["2.315137197466896`"], "Output", CellChangeTimes->{ - 3.9913204212585373`*^9, {3.9940822111841908`*^9, 3.9940822602133617`*^9}}, - CellLabel-> - "Out[432]=",ExpressionUUID->"94c6bc5b-57ff-46ba-9f60-44006d3d8e43"] + 3.9913204212585373`*^9, {3.9940822111841908`*^9, 3.9940822602133617`*^9}, + 3.9942564207486353`*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"ded30679-f1ee-42b3-92f4-9ba7dfa54d5d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w2"], "Input", - CellLabel-> - "In[433]:=",ExpressionUUID->"69d58b13-133d-4ef2-805c-df6535a39a8f"], + CellLabel->"In[63]:=",ExpressionUUID->"69d58b13-133d-4ef2-805c-df6535a39a8f"], Cell[BoxData["1.4220278650887666`"], "Output", CellChangeTimes->{ - 3.9913204212884274`*^9, {3.994082211193069*^9, 3.99408226021774*^9}}, - CellLabel-> - "Out[433]=",ExpressionUUID->"0f9f6270-e39d-4344-98b2-a4f83ae423c2"] + 3.9913204212884274`*^9, {3.994082211193069*^9, 3.99408226021774*^9}, + 3.994256420802971*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"8ece8815-281d-4bdb-b91c-fd74a8069afb"] }, Open ]], Cell[CellGroupData[{ @@ -4495,15 +4389,14 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", - CellLabel-> - "In[434]:=",ExpressionUUID->"b06349f3-b106-49d9-9e6a-8775f70c91a6"], + CellLabel->"In[64]:=",ExpressionUUID->"b06349f3-b106-49d9-9e6a-8775f70c91a6"], Cell[BoxData[ RowBox[{"-", "34.52117430586003`"}]], "Output", CellChangeTimes->{ - 3.9913204213185234`*^9, {3.994082211202162*^9, 3.994082260228716*^9}}, - CellLabel-> - "Out[434]=",ExpressionUUID->"503e7a6a-ec1a-486c-9371-2dd49a43067c"] + 3.9913204213185234`*^9, {3.994082211202162*^9, 3.994082260228716*^9}, + 3.994256420849584*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"36c243df-67af-495a-8503-0c59f8649bea"] }, Open ]], Cell[CellGroupData[{ @@ -4524,15 +4417,14 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", - CellLabel-> - "In[435]:=",ExpressionUUID->"63085683-6964-4d01-aad9-4fd48996008c"], + CellLabel->"In[65]:=",ExpressionUUID->"63085683-6964-4d01-aad9-4fd48996008c"], Cell[BoxData[ RowBox[{"-", "6.669654351008722`"}]], "Output", CellChangeTimes->{ - 3.991320421349531*^9, {3.9940822112147284`*^9, 3.994082260239593*^9}}, - CellLabel-> - "Out[435]=",ExpressionUUID->"c5cdc95a-179c-4f26-8556-8009a49ee2a5"] + 3.991320421349531*^9, {3.9940822112147284`*^9, 3.994082260239593*^9}, + 3.994256420911642*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"f377fe40-e7bd-41af-b27a-344d9e35a339"] }, Open ]], Cell[CellGroupData[{ @@ -4597,14 +4489,13 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[436]:=",ExpressionUUID->"f13e102e-2f50-4d77-a269-5e537a06fe7a"], + CellLabel->"In[66]:=",ExpressionUUID->"f13e102e-2f50-4d77-a269-5e537a06fe7a"], Cell[BoxData["85.815451168024`"], "Output", CellChangeTimes->{ - 3.9913204213784294`*^9, {3.994082211224436*^9, 3.994082260250916*^9}}, - CellLabel-> - "Out[436]=",ExpressionUUID->"112241ee-4b28-4b87-93e2-42bc771a12f8"] + 3.9913204213784294`*^9, {3.994082211224436*^9, 3.994082260250916*^9}, + 3.9942564209598427`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"a5d337d0-ecec-471d-ab1c-ad3b2cef3c24"] }, Open ]], Cell[CellGroupData[{ @@ -4645,15 +4536,14 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[437]:=",ExpressionUUID->"072ffdfe-0804-4695-8920-d2fd093cca68"], + CellLabel->"In[67]:=",ExpressionUUID->"072ffdfe-0804-4695-8920-d2fd093cca68"], Cell[BoxData[ RowBox[{"-", "107.1121642480161`"}]], "Output", CellChangeTimes->{ - 3.9913204213904285`*^9, {3.994082211233815*^9, 3.994082260261983*^9}}, - CellLabel-> - "Out[437]=",ExpressionUUID->"2165d84f-f4db-483e-b290-22f40bc573ed"] + 3.9913204213904285`*^9, {3.994082211233815*^9, 3.994082260261983*^9}, + 3.994256421018668*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"b6e9ca87-3385-4ad5-a264-9eb47347271a"] }, Open ]], Cell[CellGroupData[{ @@ -4719,14 +4609,13 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[438]:=",ExpressionUUID->"71e2886b-ac9e-4df8-b38c-37ad827d4d8f"], + CellLabel->"In[68]:=",ExpressionUUID->"71e2886b-ac9e-4df8-b38c-37ad827d4d8f"], Cell[BoxData["116.888105096455`"], "Output", CellChangeTimes->{ - 3.991320421419428*^9, {3.99408221124387*^9, 3.994082260273652*^9}}, - CellLabel-> - "Out[438]=",ExpressionUUID->"46774e83-27aa-45ab-8f4a-08f3fbb5b805"] + 3.991320421419428*^9, {3.99408221124387*^9, 3.994082260273652*^9}, + 3.994256421053647*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"112aec04-d65a-4f01-ae5d-da5e0d4f9ddb"] }, Open ]], Cell[CellGroupData[{ @@ -4784,14 +4673,13 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[439]:=",ExpressionUUID->"7cd41244-b7a2-466a-993f-28f728f742bc"], + CellLabel->"In[69]:=",ExpressionUUID->"7cd41244-b7a2-466a-993f-28f728f742bc"], Cell[BoxData["42.180325689118604`"], "Output", CellChangeTimes->{ - 3.9913204214494324`*^9, {3.994082211253778*^9, 3.994082260284829*^9}}, - CellLabel-> - "Out[439]=",ExpressionUUID->"32c0d37d-a3ca-4fec-96e3-656444c14232"] + 3.9913204214494324`*^9, {3.994082211253778*^9, 3.994082260284829*^9}, + 3.9942564211072483`*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"84e29656-f525-4096-873a-514762d9db6e"] }, Open ]], Cell[CellGroupData[{ @@ -4849,37 +4737,46 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[440]:=",ExpressionUUID->"14140c38-699a-42c2-b521-279a6e853eda"], + CellLabel->"In[70]:=",ExpressionUUID->"14140c38-699a-42c2-b521-279a6e853eda"], Cell[BoxData["727.4038074151157`"], "Output", CellChangeTimes->{ - 3.991320421481529*^9, {3.994082211263607*^9, 3.994082260289282*^9}}, - CellLabel-> - "Out[440]=",ExpressionUUID->"ef128e5b-9058-47b1-85b0-30da9d6079f8"] + 3.991320421481529*^9, {3.994082211263607*^9, 3.994082260289282*^9}, + 3.9942564211486197`*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"0508566d-0599-4d93-b3cd-181a9cced4bd"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"f1", "=", "0.8718414861"}]], "Input", - CellChangeTimes->{3.9918496921150837`*^9, - 3.994083992797997*^9},ExpressionUUID->"ede64bc2-06f7-8743-a0a6-\ -6f058773310c"], + CellChangeTimes->{3.9918496921150837`*^9, 3.994083992797997*^9}, + CellLabel->"In[71]:=",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], + +Cell[BoxData["0.8718414861`"], "Output", + CellChangeTimes->{3.994256421234363*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"772a28aa-35c3-40e8-819f-193c59d59bfd"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918496892276516`*^9, - 3.9918496892324924`*^9}},ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-\ -c82e80965ca9"], + CellChangeTimes->{{3.9918496892276516`*^9, 3.9918496892324924`*^9}}, + CellLabel->"In[72]:=",ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-c82e80965ca9"], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f2", "=", "0.5562187875"}]], "Input", - CellChangeTimes->{3.991849690724144*^9, - 3.9940839973284693`*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ -7dc8ec78e5b4"], + CellChangeTimes->{3.991849690724144*^9, 3.9940839973284693`*^9}, + CellLabel->"In[73]:=",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], + +Cell[BoxData["0.5562187875`"], "Output", + CellChangeTimes->{3.994256421414637*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"d1ccf4eb-1887-4064-85cc-698d661e2a11"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991849693382303*^9, - 3.991849693386299*^9}},ExpressionUUID->"b3364ab6-86a4-7a46-ae33-\ -623392314869"], + CellChangeTimes->{{3.991849693382303*^9, 3.991849693386299*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], Cell[CellGroupData[{ @@ -4925,13 +4822,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel-> - "In[316]:=",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], + CellLabel->"In[75]:=",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], -Cell[BoxData["2.3793916761039797`*^-53"], "Output", - CellChangeTimes->{3.991339230528511*^9}, - CellLabel-> - "Out[316]=",ExpressionUUID->"b2b0fbe6-496d-0b4b-a132-3f215e541d44"] +Cell[BoxData["1.5199617014106653`*^-53"], "Output", + CellChangeTimes->{3.991339230528511*^9, 3.9942564215007877`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"4c88ca09-9c78-47c2-8905-3d90ec95b913"] }, Open ]], Cell[CellGroupData[{ @@ -4965,14 +4860,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.991557615205345*^9},ExpressionUUID->"35e76fc7-2f05-694a-b379-\ -67189aa511ad"], + CellChangeTimes->{3.991557615205345*^9}, + CellLabel->"In[76]:=",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], -Cell[BoxData["2.192147584896785`*^-54"], "Output", - CellChangeTimes->{3.991339230554512*^9}, - CellLabel-> - "Out[317]=",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] +Cell[BoxData["1.5082100629610504`*^-54"], "Output", + CellChangeTimes->{3.991339230554512*^9, 3.9942564215476723`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"87a24494-6a09-4467-aea2-6331ad192e0d"] }, Open ]], Cell[CellGroupData[{ @@ -5005,14 +4898,12 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.991557618917984*^9, - 3.9915576208320503`*^9}},ExpressionUUID->"a10e19cd-f567-6b4d-a841-\ -5f01117db38b"], + CellChangeTimes->{{3.991557618917984*^9, 3.9915576208320503`*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], -Cell[BoxData["3.508823705223133`*^-54"], "Output", - CellChangeTimes->{3.9913392305796223`*^9}, - CellLabel-> - "Out[318]=",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] +Cell[BoxData["2.8809837120527296`*^-54"], "Output", + CellChangeTimes->{3.9913392305796223`*^9, 3.9942564215811043`*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"6b924723-f564-4491-847b-cba663fc8e1e"] }, Open ]], Cell[CellGroupData[{ @@ -5035,13 +4926,11 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel-> - "In[319]:=",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], + CellLabel->"In[78]:=",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], -Cell[BoxData["44.37747929594205`"], "Output", - CellChangeTimes->{3.9913392305906105`*^9}, - CellLabel-> - "Out[319]=",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] +Cell[BoxData["35.148109994345155`"], "Output", + CellChangeTimes->{3.9913392305906105`*^9, 3.994256421622196*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"e2a5d359-6ad4-487c-9b9f-6474a5165ae5"] }, Open ]], Cell[CellGroupData[{ @@ -5067,13 +4956,11 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Il"}], ")"}], "*", RowBox[{"(", RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", - CellLabel-> - "In[320]:=",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], + CellLabel->"In[79]:=",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], -Cell[BoxData["102.55835649176893`"], "Output", - CellChangeTimes->{3.99133923061561*^9}, - CellLabel-> - "Out[320]=",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] +Cell[BoxData["82.09213777017554`"], "Output", + CellChangeTimes->{3.99133923061561*^9, 3.99425642166124*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"14b07285-861c-494a-b741-278877e68221"] }, Open ]], Cell[CellGroupData[{ @@ -5082,13 +4969,11 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel-> - "In[321]:=",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], + CellLabel->"In[80]:=",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], -Cell[BoxData["0.5630879721742558`"], "Output", - CellChangeTimes->{3.9913392306426105`*^9}, - CellLabel-> - "Out[321]=",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +Cell[BoxData["1.0954787963831218`"], "Output", + CellChangeTimes->{3.9913392306426105`*^9, 3.994256421699512*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"69bfc78a-0bec-47d2-be09-c23a7710a725"] }, Open ]], Cell[CellGroupData[{ @@ -5097,13 +4982,11 @@ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", - CellLabel-> - "In[322]:=",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], + CellLabel->"In[81]:=",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], -Cell[BoxData["1.956498159343112`"], "Output", - CellChangeTimes->{3.99133923065361*^9}, - CellLabel-> - "Out[322]=",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +Cell[BoxData["2.976713261645619`"], "Output", + CellChangeTimes->{3.99133923065361*^9, 3.994256421742937*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"9fa4b770-1286-4b56-99d4-17741b8723a6"] }, Open ]], Cell[CellGroupData[{ @@ -5112,13 +4995,11 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel-> - "In[323]:=",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], + CellLabel->"In[82]:=",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], -Cell[BoxData["200.65523570140064`"], "Output", - CellChangeTimes->{3.9913392306776104`*^9}, - CellLabel-> - "Out[323]=",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +Cell[BoxData["244.36475517732075`"], "Output", + CellChangeTimes->{3.9913392306776104`*^9, 3.994256421796859*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"723fffe8-d2e0-4dda-99aa-1ac6d5cd23c4"] }, Open ]], Cell[CellGroupData[{ @@ -5127,13 +5008,11 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[324]:=",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], + CellLabel->"In[83]:=",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], -Cell[BoxData["24.98842482695703`"], "Output", - CellChangeTimes->{3.991339230703802*^9}, - CellLabel-> - "Out[324]=",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +Cell[BoxData["38.50400923174681`"], "Output", + CellChangeTimes->{3.991339230703802*^9, 3.9942564218782167`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"98f8196c-d83a-481f-a7f7-c869cddd667c"] }, Open ]], Cell[CellGroupData[{ @@ -5322,13 +5201,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[325]:=",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], + CellLabel->"In[84]:=",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], -Cell[BoxData["0.01829601703069907`"], "Output", - CellChangeTimes->{3.9913392307297993`*^9}, - CellLabel-> - "Out[325]=",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +Cell[BoxData["0.00434545248613346`"], "Output", + CellChangeTimes->{3.9913392307297993`*^9, 3.9942564219186687`*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"019e8701-a910-42a7-abb0-89819bbade04"] }, Open ]], Cell[CellGroupData[{ @@ -5341,13 +5218,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[326]:=",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], + CellLabel->"In[85]:=",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], -Cell[BoxData["6.551890985609901`"], "Output", - CellChangeTimes->{3.991339230837267*^9}, - CellLabel-> - "Out[326]=",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +Cell[BoxData["13.443967003015262`"], "Output", + CellChangeTimes->{3.991339230837267*^9, 3.994256422226534*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"716e1d34-89af-41e0-a655-cb2e6e962a74"] }, Open ]], Cell[CellGroupData[{ @@ -5538,13 +5413,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[327]:=",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], + CellLabel->"In[86]:=",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], -Cell[BoxData["0.00990105610750653`"], "Output", - CellChangeTimes->{3.9913392308522797`*^9}, - CellLabel-> - "Out[327]=",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +Cell[BoxData["0.023977337444742865`"], "Output", + CellChangeTimes->{3.9913392308522797`*^9, 3.994256422250211*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"cf1f3bcf-e510-4047-91a4-6623c906efea"] }, Open ]], Cell[CellGroupData[{ @@ -5557,13 +5430,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[328]:=",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], + CellLabel->"In[87]:=",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], -Cell[BoxData["8.906440683949702`"], "Output", - CellChangeTimes->{3.991339230966341*^9}, - CellLabel-> - "Out[328]=",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +Cell[BoxData["5.723273010071594`"], "Output", + CellChangeTimes->{3.991339230966341*^9, 3.9942564227232513`*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"b6d14cd3-43ce-4a2f-b3b3-290991a75be8"] }, Open ]], Cell[CellGroupData[{ @@ -5655,13 +5526,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[329]:=",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], + CellLabel->"In[88]:=",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.991339230988348*^9}, - CellLabel-> - "Out[329]=",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +Cell[BoxData["0.11447062330044823`"], "Output", + CellChangeTimes->{3.991339230988348*^9, 3.994256422805475*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"85a48b6e-f80e-4f6a-9a89-985bc857bc5d"] }, Open ]], Cell[CellGroupData[{ @@ -5750,13 +5619,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[330]:=",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], + CellLabel->"In[89]:=",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.991339231030445*^9}, - CellLabel-> - "Out[330]=",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +Cell[BoxData["0.8855293766995518`"], "Output", + CellChangeTimes->{3.991339231030445*^9, 3.994256422938936*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"a77f6f36-f62c-45a7-9c61-115006c8519f"] }, Open ]], Cell[CellGroupData[{ @@ -5878,19 +5745,17 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel-> - "In[331]:=",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], + CellLabel->"In[90]:=",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.991339231060343*^9}, - CellLabel-> - "Out[331]=",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] +Cell[BoxData["0.1013670997016551`"], "Output", + CellChangeTimes->{3.991339231060343*^9, 3.9942564230137863`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"9dab39a9-5e76-4ddc-ad63-68f623a64d87"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"0055f95b-c532-\ -e24d-bdc4-544ea2d2fbd9"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], Cell[CellGroupData[{ @@ -5951,68 +5816,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918497046469917`*^9},ExpressionUUID->"574b810b-aa4a-d545-b080-\ -c44fbe83a713"], + CellChangeTimes->{3.9918497046469917`*^9}, + CellLabel->"In[92]:=",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 332, 325, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392310873375`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.462068556441327`*^-222\\\", \ +RowBox[{\\\"4160735933984357432554811027341847802665\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"13\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3770116038587316426506240000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 1, + 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392310873375`*^9, 3.994256423166642*^9}, CellLabel-> "During evaluation of \ -In[332]:=",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], +In[92]:=",ExpressionUUID->"7cafd016-e5d8-4c5c-86b5-a5f35fab93df"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 332, 326, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392310973415`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.376710506637635`*^-227\\\", \ +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 2, + 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392310873375`*^9, 3.994256423182393*^9}, CellLabel-> "During evaluation of \ -In[332]:=",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], +In[92]:=",ExpressionUUID->"20ceae4d-4478-4cf5-9dbb-b14ef9d66623"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 332, 327, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339231105339*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.933011004962495`*^-233\\\", \ +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 3, + 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392310873375`*^9, 3.994256423193157*^9}, CellLabel-> "During evaluation of \ -In[332]:=",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], +In[92]:=",ExpressionUUID->"52ecdf5b-4d0e-40b2-aac0-29b3faf75ecd"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 332, 328, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392311143417`*^9}, +during this calculation.\"", 2, 92, 4, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392310873375`*^9, 3.994256423203916*^9}, CellLabel-> "During evaluation of \ -In[332]:=",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], +In[92]:=",ExpressionUUID->"78572f31-64dd-48f4-86a6-c64b1abb4209"], -Cell[BoxData["6.551890985609901`"], "Output", - CellChangeTimes->{3.9913392346332226`*^9}, - CellLabel-> - "Out[332]=",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +Cell[BoxData["13.443967003015251`"], "Output", + CellChangeTimes->{3.9913392346332226`*^9, 3.99425642665812*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"26539f58-86f1-451a-8e08-e9684316114f"] }, Open ]], Cell[CellGroupData[{ @@ -6074,68 +5944,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849710877041*^9},ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-\ -656c90598e75"], + CellChangeTimes->{3.991849710877041*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 333, 329, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339234667631*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.462068556441327`*^-222\\\", \ +RowBox[{\\\"4160735933984357432554811027341847802665\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"13\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3770116038587316426506240000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 5, + 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339234667631*^9, 3.9942564267218647`*^9}, CellLabel-> "During evaluation of \ -In[333]:=",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], +In[93]:=",ExpressionUUID->"0eddc5e1-b9ba-4e8f-ba51-ca9a723c8d20"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 333, 330, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339234676628*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.376710506637635`*^-227\\\", \ +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 6, + 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339234667631*^9, 3.994256426734852*^9}, CellLabel-> "During evaluation of \ -In[333]:=",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], +In[93]:=",ExpressionUUID->"f8d134fa-a1a0-4684-8c9d-975cf1a64ba5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 333, 331, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339234685627*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.933011004962495`*^-233\\\", \ +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 7, + 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339234667631*^9, 3.99425642674721*^9}, CellLabel-> "During evaluation of \ -In[333]:=",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], +In[93]:=",ExpressionUUID->"081011b2-dead-4f58-ad04-39d251af642f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 333, 332, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133923469363*^9}, +during this calculation.\"", 2, 93, 8, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339234667631*^9, 3.994256426759972*^9}, CellLabel-> "During evaluation of \ -In[333]:=",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], +In[93]:=",ExpressionUUID->"85410dc1-d10f-4b3b-a9d1-df9a982df3ec"], -Cell[BoxData["8.906440683949707`"], "Output", - CellChangeTimes->{3.99133923819088*^9}, - CellLabel-> - "Out[333]=",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +Cell[BoxData["5.723273010071595`"], "Output", + CellChangeTimes->{3.99133923819088*^9, 3.994256430055477*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"b28f9f28-d719-4b60-b687-e0b3671fcd97"] }, Open ]], Cell[CellGroupData[{ @@ -6145,138 +6020,141 @@ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ - FractionBox[ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", RowBox[{ - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", - RowBox[{"Cos", "[", - FractionBox[ - RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], - RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849713921898*^9},ExpressionUUID->"9c540ba7-8bb4-ef46-919c-\ -62296271f174"], + CellChangeTimes->{3.991849713921898*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK -Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee -8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 -s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP -tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey -E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP -HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay -ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje -fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh -OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n -13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP -WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl -4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ -U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 -tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P -s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 -mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 -t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 -O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy -xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ -Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH -N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv -mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR -gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 -99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA -+m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC -ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ -7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN -v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q -bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 -ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 -KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs -LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW -pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi -ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj -oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O -7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu -/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf -OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 -8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a -z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 -P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg -g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB -KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM -y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx -8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR -3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky -bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD -jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 -wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 -GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB -LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV -Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL -kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN -fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG -xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu -t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 -uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 -PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV -XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H -Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym -mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy -vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ -EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF -DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu -bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG -TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I -9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw -2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 -/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb -7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om -QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD -whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz -9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i -i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk4VdsbB3BjRYjMuZSpOoaue8iQar0hrjFJxhTHPtuQoSgdESo0oBDR +7yaVIYRCcgx1S5JQVNJIhsg5hrDNN/ktf+xnP59n7fVd75q2MiPYgcnHw8Mz +hJ/l99HXWzZVtb/eSdZ6v94Vx0E7x3K3MsyKUY/2j6ll92Trp6mZ1SHfgSBf +E2x74tUKEd3n6J/ehc2m2GWs6GeCZq2IrZygb4Z9oVHuSXTRG/Qjd33Kbuzq +9qM3ftHfo0d+bEMLbO7n5sjw2o/oc9B+bUvsdQOq7jOmX5Fj+UyQNbb1z0ij +0NZvSJV+fdEW+/Ev7mpWUS+aGN79yR6787RsxMOgfiTURfE6Yo+tMONO0QdQ +Nl/+CWfsFYlHXHVnB1Gg64Ft7thKEllNR2uH0GKXjNUhbDuFmfwx0xEk5JVp +74tN3lSR0V41hnY5H7IIxI5W3xN3uPUnyvXXSAjB/ijb8dexogn0qaN1/hQ2 +4ebvdyVxEuko56rFYo9f57lVHkShc8ejr1/EXqWiLT5Bn0ZziiahmdhpxDML +cekZZM+kvc3G3nDHNfrP2Rkk+o9U1B1sQ634scDaOSRVOVNXhe2r/62Va/oL +abYMdX7BnmIdFxDeuIiS7o1lDWDH1K7eTlv1G93dNVf2EzsTDO/6tC6hSkuZ +pwLxuL68JrOQIl4YfBMZQccuarzSc1qBD+LXZBftxB7/cTAyJZEPHAsaNlpj +R2pMV9wP4gfpR/IrmNhp95RVf9IFga3A9byO/bl95PHvHEEI71afK8LeMFnl +Jia9AooziK/V2MV6dqnasyugvpKb8BG7ofokb0DtKlgjLHdO/hwHTT97923I +VATGD3NGC7HX2oiIRzwWAcdXuQuPsXU6zEDUSBRSpfq8OrD9v1fe/GuLGGye +6UU85znoCF+rzg4RcRBzmjI6gD2gUjoRNyMBa6ttNqpfwOtDNgu16a4F4sy6 +Lwib7+6gstzRtZAU78t1w96gu96haHgteDbGyqViu5kml7/ukQSVuppygYsc +1OYdEirbIg0JXUvdC9jddy4leK6SgfRd9cYKCRw0MlyUU7hbBm4181HG2MLH ++t8ZP5GB4KrFI1HYZrGOep6VsrC6o7NoZSIH1eTqTxdky8OjQEpaM4mDcgcW +wrYdUwQbl8Kmyssc9Pf+c92hJYqQWr0lqRt7pEHSvGRQEd59TLu5MpmD9HK1 +pDe4KsGlQr4HbtgNjIMVgjvXQ9bQoSSBFA6a/NlzYujsBtDbsyDkk8pBkoFm +DypsVcDrBUnzSeegwVxhX3t/FSi7dfflNWz213aF0XgVSN/dwm7FPmDjcXbj +ExW4JPG/s7pXcX2aYQ7X6KogVBPcIpCBx+feGY+SVYP90y9VH2ZykKPPam2r +XnXwfHBtet91DkJh++nOi+rgZWULl7E14rINCPmNIGXQ0NmMzZOjaxK1dyOI +y/w3aJLFQSXd7s7lTzfCpe64NP0b+H46FZ9ed3sTWHW9V9W6ieszs+3kMmgQ +xoiQsM/loJx9GV9mo2jAviXTkYZ9idHbI/APDUyOB/R9wiZijg8rvaOBUY55 +H5HHQRJ1WTz7TDVA/XxxUFQ+Pj+6Yxq1qppg4j5X/W8BBymoXI5O+K4F3e7m +chElHFR3cYo2z6cNfWruM23YByjXDlJZG/ozo7XVSznoRoMazeSgNrDzp/Pb +sVV8at7OfdCGLXoXGjXv4/kWD6iTLVvA8WJf1WQ5BykqKJEbXHVgsvPzoWds +DtLKOybyH6LDsXCj/ODnHMQgzk5r29FBWs3hn3fYmaqp3Z4H6GDxqavLoJGD ++G/fu9/IokOkkY017wt8325wHVPL6FARe/xFRhP+n2Z6ZtFUdSE+9ZTZuxa8 +vwk2W1xW6EGspott7FsOuhWiZl/ZuhWCoogTr3s4qD0MGcTmGcE6X5rUCD8X +KR98b+cRsANknIW8BjW5iLn0sFQxHKCwxVpcxomLZIfZK2UZJpBITLxVu8BF +x3S3f03VMIPk2q7FZ4+4iDH6q0mSuxt2lGt1TE9zUYlJ6MrsNgvQic1WETYc +RrlT/k+L0yzBzNfcPujkMJrbJfeqIdoaLhhK3Ql/MYy6ePgner1soZxF/6Uu +N4KC/ghOPq26BzI8MkMbfUZQqV/Tk/Q4e7CmaaPm+hF0kpKf1fTbC4EZ6lbT +CqNo2src6cUhB8g7PpGxEDOKjNxTdg3s3QfSAWoMxtAoeiuf5d+g6wi3rJYs +CJsxtC7/bF3B5v0wk/w+nKgbQ+weDRs7USeIuOaUIbD5J1LqGPcJG3UCbUFv +Z6m0n0g3PaU4p8cZxvISUb/gOMoSoLakPnMBnaN2V8t2jqOHu/78HFftCr77 +DHaInRpHmQYXJX4VuYH/lS/pbTXjqO1LXrxuojs8/cbfmj01jiptr6sdiTkA +MXuEhJDuBJoI3McTRHjAft7m2P2BE2janOY7ZnoQ+r381uTkTaCC0U9zofqH +oDnqvebd3gnkcivP20PEE46Pj827yE2iinLrQ/znPEFAt3Cwae8kMlJ4O39h +3hPQ82M5jnGTSLXH5/MbPy+I8bFvTqmcRN9XH95zvd8LbDKKj04OTqL2S3be +FvsZEPuF33lYgkJprOzVx9sZ0MQ6b8LeTqG6x0vz3pbecDX78I8UBoXWHIBz +ujXeoFkos/nLaQptkHrR9kedN9Sr3hp0PUMhnVZbuRWPvUGe39z5I7bDdvfC +j0+9QUH1il3HWZz/R1jLqZfe4Hha40pTHIXWdd1d0/QR968f9r59gUJqB2Uz +D8x6Q7Rrw+11KRQy8hwriNMjYGTu9X35bArlXxsPtdMngN3xaN8pbKl3kztl +DQkonRor7cEe2z3bUWBMQKVIf1L+TQr/v3h4W00I6O64NbLlNoXEZiVc1+4l +oPovcRV6HoW+J20Vyg4kIGaWLsl3l0KXaiP92PkE/PV0i+fzSgoF0jOMWAUE +sOjRctIPKWRTWCZkWETAktbkeQJbOGOwsKqEgIIgmVS+KgrFhdhzHz4g4NCQ +oZkxm0KRNLXDlfUEOPWsWp9dQyH/jJaA8m4CrrLq/XT+pZCl2OD2kB4CeLOF +JE9gb47jEaX3EZDVYRT6CHswZGtJ2QAe7386LpZPKORllz16f4SAwI4TFR5P +KeQiGBp0b4EA+T+S7rCeUcgidN2RYhkmfPeo/vvECwrVZ8dbpcoxIZkQpaqx +t7dOqrHWMSH9uYT5L2wd9ZZPpkpMuBDPNxjdRCH5DxGmX9SZIHXUR+TsSwoN +b+uSEd7KBPHgOC6rhUKX+W4+8tnHhLgdvwpU2vD8/xTJtN3PhJqGI05u2LHu +rBBdZyaccSLvpmCzHthvWnJjwoR2ufUSthfJm3KVwQRWcTfR2U4h3WYG8fwo +E75ZWEyGvqXQhxT11arJTOA35zcJeE+hUiTqO5TChI9r5j+kY8eOTjWUXGFC +7JOVG/7Fpls2RBlmMGEN4doo3on3j8d70vYGE7K76IfvY5sH3/zEKmaCi72w +RO8HCikqntffWcqEwx18jYIfKTTVHHyF/z4TmvT/1dLAvr0R2V6qYEJYQ/Ca +EOzFrq4nOTV4/lc30X5jP7BRKHjdxISj7m8KV36mUMICn2BaMxMSxVtYm7AZ +BVwv11Ym8G7eOW+OLS5Qo/C9jQnODtFicdgBtS6X5zuZcK5q9sIitqrG1TC1 +ASYovdd7+u0LhRY+nHrHGWSCRc6HvAXs9jimzr0hJhgvVBhLf6VQVK8e12iE +CZr1whGW2J8z33nsoZjQf/mVRSl26kqJ3Sd5STAWLJfx68L3d7LL/Rg/CaVu +8ldPY//oKgoJEiRhs5RUxTXs7Q/MbjKEcPueiudN2IOerP+sJEj4/olmq9KN +67fZvXa3JAk2LXVsA2xjg7U0JE3CKtGGpzbYyaLFTrryJIjrKxcfX26v+Vam +oExCRHVlbz02mVfcJK1KQvi+i4bvl79PDv+2Rp0EfXe21g/sQVJSVIBGwvPT +UqNC33C7pIXviA4JeeERr6ywa35LRg/SSQh1eynmhj3A6Unv0SNhft511Bd7 +25OTzzoMSSA8jM7EYX8PKFV6BCRQj0uEa7DFXCK2VpmQULP59dZGbCPTv23K +zEho/6D0+w32Jfm+8Ly/cb1CluQQNlvgXnK2FQlibKUVFHb/z4g712xI6OZX +NF3ENmyUfp9kT8Kr2MQ08R6832V9w+ccSOAELBTIYyddv8d3xpEEI5eLbirY +fSGWOmEuJGi5CKfTsUUPylgccSPhc/6s4jZsQ8t+D/8DJPQE8JrtWu6//lTC +QU8SPiUyfeyw2cJWt10YJCzdeUQ4LudNy1Q7ECT01WkvuS7n9fa32ZAkeHU+ +0D+0nNd6f9DcF6+vuMNqYrm+qlOL4E+CUIbAKd/l/NtWUsYBJPgVtCQELOcn +yWpuDSLhRWq+wZHlfNb3XX8eIeFcZVpMKLYIUeZCCyFhNCadDMM22BMVrHqM +BNWwAg5rOX+bdbxiGAmmm14JRWAnqstlybJIsDTgfxGJ/VB8oELiJAnr3ayU +o7B7/ytrXh1JwlXH23LRy/k/onoFo0hg/BIuWbb+W+u5pWh8Pg1ju5f9fxsI +FlY= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -6290,104 +6168,106 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK -Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee -8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 -s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP -tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey -E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP -HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay -ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje -fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh -OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n -13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP -WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl -4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ -U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 -tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P -s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 -mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 -t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 -O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy -xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ -Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH -N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv -mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR -gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 -99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA -+m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC -ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ -7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN -v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q -bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 -ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 -KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs -LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW -pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi -ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj -oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O -7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu -/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf -OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 -8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a -z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 -P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg -g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB -KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM -y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx -8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR -3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky -bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD -jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 -wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 -GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB -LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV -Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL -kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN -fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG -xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu -t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 -uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 -PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV -XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H -Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym -mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy -vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ -EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF -DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu -bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG -TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I -9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw -2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 -/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb -7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om -QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD -whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz -9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i -i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== +1:eJwV1Hk4VdsbB3BjRYjMuZSpOoaue8iQar0hrjFJxhTHPtuQoSgdESo0oBDR +7yaVIYRCcgx1S5JQVNJIhsg5hrDNN/ktf+xnP59n7fVd75q2MiPYgcnHw8Mz +hJ/l99HXWzZVtb/eSdZ6v94Vx0E7x3K3MsyKUY/2j6ll92Trp6mZ1SHfgSBf +E2x74tUKEd3n6J/ehc2m2GWs6GeCZq2IrZygb4Z9oVHuSXTRG/Qjd33Kbuzq +9qM3ftHfo0d+bEMLbO7n5sjw2o/oc9B+bUvsdQOq7jOmX5Fj+UyQNbb1z0ij +0NZvSJV+fdEW+/Ev7mpWUS+aGN79yR6787RsxMOgfiTURfE6Yo+tMONO0QdQ +Nl/+CWfsFYlHXHVnB1Gg64Ft7thKEllNR2uH0GKXjNUhbDuFmfwx0xEk5JVp +74tN3lSR0V41hnY5H7IIxI5W3xN3uPUnyvXXSAjB/ijb8dexogn0qaN1/hQ2 +4ebvdyVxEuko56rFYo9f57lVHkShc8ejr1/EXqWiLT5Bn0ZziiahmdhpxDML +cekZZM+kvc3G3nDHNfrP2Rkk+o9U1B1sQ634scDaOSRVOVNXhe2r/62Va/oL +abYMdX7BnmIdFxDeuIiS7o1lDWDH1K7eTlv1G93dNVf2EzsTDO/6tC6hSkuZ +pwLxuL68JrOQIl4YfBMZQccuarzSc1qBD+LXZBftxB7/cTAyJZEPHAsaNlpj +R2pMV9wP4gfpR/IrmNhp95RVf9IFga3A9byO/bl95PHvHEEI71afK8LeMFnl +Jia9AooziK/V2MV6dqnasyugvpKb8BG7ofokb0DtKlgjLHdO/hwHTT97923I +VATGD3NGC7HX2oiIRzwWAcdXuQuPsXU6zEDUSBRSpfq8OrD9v1fe/GuLGGye +6UU85znoCF+rzg4RcRBzmjI6gD2gUjoRNyMBa6ttNqpfwOtDNgu16a4F4sy6 +Lwib7+6gstzRtZAU78t1w96gu96haHgteDbGyqViu5kml7/ukQSVuppygYsc +1OYdEirbIg0JXUvdC9jddy4leK6SgfRd9cYKCRw0MlyUU7hbBm4181HG2MLH ++t8ZP5GB4KrFI1HYZrGOep6VsrC6o7NoZSIH1eTqTxdky8OjQEpaM4mDcgcW +wrYdUwQbl8Kmyssc9Pf+c92hJYqQWr0lqRt7pEHSvGRQEd59TLu5MpmD9HK1 +pDe4KsGlQr4HbtgNjIMVgjvXQ9bQoSSBFA6a/NlzYujsBtDbsyDkk8pBkoFm +DypsVcDrBUnzSeegwVxhX3t/FSi7dfflNWz213aF0XgVSN/dwm7FPmDjcXbj +ExW4JPG/s7pXcX2aYQ7X6KogVBPcIpCBx+feGY+SVYP90y9VH2ZykKPPam2r +XnXwfHBtet91DkJh++nOi+rgZWULl7E14rINCPmNIGXQ0NmMzZOjaxK1dyOI +y/w3aJLFQSXd7s7lTzfCpe64NP0b+H46FZ9ed3sTWHW9V9W6ieszs+3kMmgQ +xoiQsM/loJx9GV9mo2jAviXTkYZ9idHbI/APDUyOB/R9wiZijg8rvaOBUY55 +H5HHQRJ1WTz7TDVA/XxxUFQ+Pj+6Yxq1qppg4j5X/W8BBymoXI5O+K4F3e7m +chElHFR3cYo2z6cNfWruM23YByjXDlJZG/ozo7XVSznoRoMazeSgNrDzp/Pb +sVV8at7OfdCGLXoXGjXv4/kWD6iTLVvA8WJf1WQ5BykqKJEbXHVgsvPzoWds +DtLKOybyH6LDsXCj/ODnHMQgzk5r29FBWs3hn3fYmaqp3Z4H6GDxqavLoJGD ++G/fu9/IokOkkY017wt8325wHVPL6FARe/xFRhP+n2Z6ZtFUdSE+9ZTZuxa8 +vwk2W1xW6EGspott7FsOuhWiZl/ZuhWCoogTr3s4qD0MGcTmGcE6X5rUCD8X +KR98b+cRsANknIW8BjW5iLn0sFQxHKCwxVpcxomLZIfZK2UZJpBITLxVu8BF +x3S3f03VMIPk2q7FZ4+4iDH6q0mSuxt2lGt1TE9zUYlJ6MrsNgvQic1WETYc +RrlT/k+L0yzBzNfcPujkMJrbJfeqIdoaLhhK3Ql/MYy6ePgner1soZxF/6Uu +N4KC/ghOPq26BzI8MkMbfUZQqV/Tk/Q4e7CmaaPm+hF0kpKf1fTbC4EZ6lbT +CqNo2src6cUhB8g7PpGxEDOKjNxTdg3s3QfSAWoMxtAoeiuf5d+g6wi3rJYs +CJsxtC7/bF3B5v0wk/w+nKgbQ+weDRs7USeIuOaUIbD5J1LqGPcJG3UCbUFv +Z6m0n0g3PaU4p8cZxvISUb/gOMoSoLakPnMBnaN2V8t2jqOHu/78HFftCr77 +DHaInRpHmQYXJX4VuYH/lS/pbTXjqO1LXrxuojs8/cbfmj01jiptr6sdiTkA +MXuEhJDuBJoI3McTRHjAft7m2P2BE2janOY7ZnoQ+r381uTkTaCC0U9zofqH +oDnqvebd3gnkcivP20PEE46Pj827yE2iinLrQ/znPEFAt3Cwae8kMlJ4O39h +3hPQ82M5jnGTSLXH5/MbPy+I8bFvTqmcRN9XH95zvd8LbDKKj04OTqL2S3be +FvsZEPuF33lYgkJprOzVx9sZ0MQ6b8LeTqG6x0vz3pbecDX78I8UBoXWHIBz +ujXeoFkos/nLaQptkHrR9kedN9Sr3hp0PUMhnVZbuRWPvUGe39z5I7bDdvfC +j0+9QUH1il3HWZz/R1jLqZfe4Hha40pTHIXWdd1d0/QR968f9r59gUJqB2Uz +D8x6Q7Rrw+11KRQy8hwriNMjYGTu9X35bArlXxsPtdMngN3xaN8pbKl3kztl +DQkonRor7cEe2z3bUWBMQKVIf1L+TQr/v3h4W00I6O64NbLlNoXEZiVc1+4l +oPovcRV6HoW+J20Vyg4kIGaWLsl3l0KXaiP92PkE/PV0i+fzSgoF0jOMWAUE +sOjRctIPKWRTWCZkWETAktbkeQJbOGOwsKqEgIIgmVS+KgrFhdhzHz4g4NCQ +oZkxm0KRNLXDlfUEOPWsWp9dQyH/jJaA8m4CrrLq/XT+pZCl2OD2kB4CeLOF +JE9gb47jEaX3EZDVYRT6CHswZGtJ2QAe7386LpZPKORllz16f4SAwI4TFR5P +KeQiGBp0b4EA+T+S7rCeUcgidN2RYhkmfPeo/vvECwrVZ8dbpcoxIZkQpaqx +t7dOqrHWMSH9uYT5L2wd9ZZPpkpMuBDPNxjdRCH5DxGmX9SZIHXUR+TsSwoN +b+uSEd7KBPHgOC6rhUKX+W4+8tnHhLgdvwpU2vD8/xTJtN3PhJqGI05u2LHu +rBBdZyaccSLvpmCzHthvWnJjwoR2ufUSthfJm3KVwQRWcTfR2U4h3WYG8fwo +E75ZWEyGvqXQhxT11arJTOA35zcJeE+hUiTqO5TChI9r5j+kY8eOTjWUXGFC +7JOVG/7Fpls2RBlmMGEN4doo3on3j8d70vYGE7K76IfvY5sH3/zEKmaCi72w +RO8HCikqntffWcqEwx18jYIfKTTVHHyF/z4TmvT/1dLAvr0R2V6qYEJYQ/Ca +EOzFrq4nOTV4/lc30X5jP7BRKHjdxISj7m8KV36mUMICn2BaMxMSxVtYm7AZ +BVwv11Ym8G7eOW+OLS5Qo/C9jQnODtFicdgBtS6X5zuZcK5q9sIitqrG1TC1 +ASYovdd7+u0LhRY+nHrHGWSCRc6HvAXs9jimzr0hJhgvVBhLf6VQVK8e12iE +CZr1whGW2J8z33nsoZjQf/mVRSl26kqJ3Sd5STAWLJfx68L3d7LL/Rg/CaVu +8ldPY//oKgoJEiRhs5RUxTXs7Q/MbjKEcPueiudN2IOerP+sJEj4/olmq9KN +67fZvXa3JAk2LXVsA2xjg7U0JE3CKtGGpzbYyaLFTrryJIjrKxcfX26v+Vam +oExCRHVlbz02mVfcJK1KQvi+i4bvl79PDv+2Rp0EfXe21g/sQVJSVIBGwvPT +UqNC33C7pIXviA4JeeERr6ywa35LRg/SSQh1eynmhj3A6Unv0SNhft511Bd7 +25OTzzoMSSA8jM7EYX8PKFV6BCRQj0uEa7DFXCK2VpmQULP59dZGbCPTv23K +zEho/6D0+w32Jfm+8Ly/cb1CluQQNlvgXnK2FQlibKUVFHb/z4g712xI6OZX +NF3ENmyUfp9kT8Kr2MQ08R6832V9w+ccSOAELBTIYyddv8d3xpEEI5eLbirY +fSGWOmEuJGi5CKfTsUUPylgccSPhc/6s4jZsQ8t+D/8DJPQE8JrtWu6//lTC +QU8SPiUyfeyw2cJWt10YJCzdeUQ4LudNy1Q7ECT01WkvuS7n9fa32ZAkeHU+ +0D+0nNd6f9DcF6+vuMNqYrm+qlOL4E+CUIbAKd/l/NtWUsYBJPgVtCQELOcn +yWpuDSLhRWq+wZHlfNb3XX8eIeFcZVpMKLYIUeZCCyFhNCadDMM22BMVrHqM +BNWwAg5rOX+bdbxiGAmmm14JRWAnqstlybJIsDTgfxGJ/VB8oELiJAnr3ayU +o7B7/ytrXh1JwlXH23LRy/k/onoFo0hg/BIuWbb+W+u5pWh8Pg1ju5f9fxsI +FlY= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5986424829233534, - 1.5968711170700145`}}, + "PlotRange" -> {{0, 180}, {0.7975167304083299, + 1.2423094455766748`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5986424829233548}, + "AxesOrigin" -> {0, 0.7975167304083317}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -6399,130 +6279,132 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5986424829233534, - 1.5968711170700145`}}, + "PlotRange" -> {{0, 180}, {0.7975167304083299, + 1.2423094455766748`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5986424829233548}, + "AxesOrigin" -> {0, 0.7975167304083317}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{115.12306105754327`, - 253.30690491292427`}, {-15.402138689748952`, 5.769736310251048}}], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK -Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee -8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 -s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP -tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey -E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP -HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay -ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje -fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh -OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n -13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP -WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl -4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ -U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 -tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P -s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 -mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 -t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 -O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy -xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ -Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH -N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv -mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR -gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 -99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA -+m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC -ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ -7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN -v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q -bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 -ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 -KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs -LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW -pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi -ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj -oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O -7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu -/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf -OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 -8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a -z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 -P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg -g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB -KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM -y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx -8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR -3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky -bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD -jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 -wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 -GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB -LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV -Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL -kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN -fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG -xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu -t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 -uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 -PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV -XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H -Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym -mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy -vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ -EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF -DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu -bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG -TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I -9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw -2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 -/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb -7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om -QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD -whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz -9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i -i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== +1:eJwV1Hk4VdsbB3BjRYjMuZSpOoaue8iQar0hrjFJxhTHPtuQoSgdESo0oBDR +7yaVIYRCcgx1S5JQVNJIhsg5hrDNN/ktf+xnP59n7fVd75q2MiPYgcnHw8Mz +hJ/l99HXWzZVtb/eSdZ6v94Vx0E7x3K3MsyKUY/2j6ll92Trp6mZ1SHfgSBf +E2x74tUKEd3n6J/ehc2m2GWs6GeCZq2IrZygb4Z9oVHuSXTRG/Qjd33Kbuzq +9qM3ftHfo0d+bEMLbO7n5sjw2o/oc9B+bUvsdQOq7jOmX5Fj+UyQNbb1z0ij +0NZvSJV+fdEW+/Ev7mpWUS+aGN79yR6787RsxMOgfiTURfE6Yo+tMONO0QdQ +Nl/+CWfsFYlHXHVnB1Gg64Ft7thKEllNR2uH0GKXjNUhbDuFmfwx0xEk5JVp +74tN3lSR0V41hnY5H7IIxI5W3xN3uPUnyvXXSAjB/ijb8dexogn0qaN1/hQ2 +4ebvdyVxEuko56rFYo9f57lVHkShc8ejr1/EXqWiLT5Bn0ZziiahmdhpxDML +cekZZM+kvc3G3nDHNfrP2Rkk+o9U1B1sQ634scDaOSRVOVNXhe2r/62Va/oL +abYMdX7BnmIdFxDeuIiS7o1lDWDH1K7eTlv1G93dNVf2EzsTDO/6tC6hSkuZ +pwLxuL68JrOQIl4YfBMZQccuarzSc1qBD+LXZBftxB7/cTAyJZEPHAsaNlpj +R2pMV9wP4gfpR/IrmNhp95RVf9IFga3A9byO/bl95PHvHEEI71afK8LeMFnl +Jia9AooziK/V2MV6dqnasyugvpKb8BG7ofokb0DtKlgjLHdO/hwHTT97923I +VATGD3NGC7HX2oiIRzwWAcdXuQuPsXU6zEDUSBRSpfq8OrD9v1fe/GuLGGye +6UU85znoCF+rzg4RcRBzmjI6gD2gUjoRNyMBa6ttNqpfwOtDNgu16a4F4sy6 +Lwib7+6gstzRtZAU78t1w96gu96haHgteDbGyqViu5kml7/ukQSVuppygYsc +1OYdEirbIg0JXUvdC9jddy4leK6SgfRd9cYKCRw0MlyUU7hbBm4181HG2MLH ++t8ZP5GB4KrFI1HYZrGOep6VsrC6o7NoZSIH1eTqTxdky8OjQEpaM4mDcgcW +wrYdUwQbl8Kmyssc9Pf+c92hJYqQWr0lqRt7pEHSvGRQEd59TLu5MpmD9HK1 +pDe4KsGlQr4HbtgNjIMVgjvXQ9bQoSSBFA6a/NlzYujsBtDbsyDkk8pBkoFm +DypsVcDrBUnzSeegwVxhX3t/FSi7dfflNWz213aF0XgVSN/dwm7FPmDjcXbj +ExW4JPG/s7pXcX2aYQ7X6KogVBPcIpCBx+feGY+SVYP90y9VH2ZykKPPam2r +XnXwfHBtet91DkJh++nOi+rgZWULl7E14rINCPmNIGXQ0NmMzZOjaxK1dyOI +y/w3aJLFQSXd7s7lTzfCpe64NP0b+H46FZ9ed3sTWHW9V9W6ieszs+3kMmgQ +xoiQsM/loJx9GV9mo2jAviXTkYZ9idHbI/APDUyOB/R9wiZijg8rvaOBUY55 +H5HHQRJ1WTz7TDVA/XxxUFQ+Pj+6Yxq1qppg4j5X/W8BBymoXI5O+K4F3e7m +chElHFR3cYo2z6cNfWruM23YByjXDlJZG/ozo7XVSznoRoMazeSgNrDzp/Pb +sVV8at7OfdCGLXoXGjXv4/kWD6iTLVvA8WJf1WQ5BykqKJEbXHVgsvPzoWds +DtLKOybyH6LDsXCj/ODnHMQgzk5r29FBWs3hn3fYmaqp3Z4H6GDxqavLoJGD ++G/fu9/IokOkkY017wt8325wHVPL6FARe/xFRhP+n2Z6ZtFUdSE+9ZTZuxa8 +vwk2W1xW6EGspott7FsOuhWiZl/ZuhWCoogTr3s4qD0MGcTmGcE6X5rUCD8X +KR98b+cRsANknIW8BjW5iLn0sFQxHKCwxVpcxomLZIfZK2UZJpBITLxVu8BF +x3S3f03VMIPk2q7FZ4+4iDH6q0mSuxt2lGt1TE9zUYlJ6MrsNgvQic1WETYc +RrlT/k+L0yzBzNfcPujkMJrbJfeqIdoaLhhK3Ql/MYy6ePgner1soZxF/6Uu +N4KC/ghOPq26BzI8MkMbfUZQqV/Tk/Q4e7CmaaPm+hF0kpKf1fTbC4EZ6lbT +CqNo2src6cUhB8g7PpGxEDOKjNxTdg3s3QfSAWoMxtAoeiuf5d+g6wi3rJYs +CJsxtC7/bF3B5v0wk/w+nKgbQ+weDRs7USeIuOaUIbD5J1LqGPcJG3UCbUFv +Z6m0n0g3PaU4p8cZxvISUb/gOMoSoLakPnMBnaN2V8t2jqOHu/78HFftCr77 +DHaInRpHmQYXJX4VuYH/lS/pbTXjqO1LXrxuojs8/cbfmj01jiptr6sdiTkA +MXuEhJDuBJoI3McTRHjAft7m2P2BE2janOY7ZnoQ+r381uTkTaCC0U9zofqH +oDnqvebd3gnkcivP20PEE46Pj827yE2iinLrQ/znPEFAt3Cwae8kMlJ4O39h +3hPQ82M5jnGTSLXH5/MbPy+I8bFvTqmcRN9XH95zvd8LbDKKj04OTqL2S3be +FvsZEPuF33lYgkJprOzVx9sZ0MQ6b8LeTqG6x0vz3pbecDX78I8UBoXWHIBz +ujXeoFkos/nLaQptkHrR9kedN9Sr3hp0PUMhnVZbuRWPvUGe39z5I7bDdvfC +j0+9QUH1il3HWZz/R1jLqZfe4Hha40pTHIXWdd1d0/QR968f9r59gUJqB2Uz +D8x6Q7Rrw+11KRQy8hwriNMjYGTu9X35bArlXxsPtdMngN3xaN8pbKl3kztl +DQkonRor7cEe2z3bUWBMQKVIf1L+TQr/v3h4W00I6O64NbLlNoXEZiVc1+4l +oPovcRV6HoW+J20Vyg4kIGaWLsl3l0KXaiP92PkE/PV0i+fzSgoF0jOMWAUE +sOjRctIPKWRTWCZkWETAktbkeQJbOGOwsKqEgIIgmVS+KgrFhdhzHz4g4NCQ +oZkxm0KRNLXDlfUEOPWsWp9dQyH/jJaA8m4CrrLq/XT+pZCl2OD2kB4CeLOF +JE9gb47jEaX3EZDVYRT6CHswZGtJ2QAe7386LpZPKORllz16f4SAwI4TFR5P +KeQiGBp0b4EA+T+S7rCeUcgidN2RYhkmfPeo/vvECwrVZ8dbpcoxIZkQpaqx +t7dOqrHWMSH9uYT5L2wd9ZZPpkpMuBDPNxjdRCH5DxGmX9SZIHXUR+TsSwoN +b+uSEd7KBPHgOC6rhUKX+W4+8tnHhLgdvwpU2vD8/xTJtN3PhJqGI05u2LHu +rBBdZyaccSLvpmCzHthvWnJjwoR2ufUSthfJm3KVwQRWcTfR2U4h3WYG8fwo +E75ZWEyGvqXQhxT11arJTOA35zcJeE+hUiTqO5TChI9r5j+kY8eOTjWUXGFC +7JOVG/7Fpls2RBlmMGEN4doo3on3j8d70vYGE7K76IfvY5sH3/zEKmaCi72w +RO8HCikqntffWcqEwx18jYIfKTTVHHyF/z4TmvT/1dLAvr0R2V6qYEJYQ/Ca +EOzFrq4nOTV4/lc30X5jP7BRKHjdxISj7m8KV36mUMICn2BaMxMSxVtYm7AZ +BVwv11Ym8G7eOW+OLS5Qo/C9jQnODtFicdgBtS6X5zuZcK5q9sIitqrG1TC1 +ASYovdd7+u0LhRY+nHrHGWSCRc6HvAXs9jimzr0hJhgvVBhLf6VQVK8e12iE +CZr1whGW2J8z33nsoZjQf/mVRSl26kqJ3Sd5STAWLJfx68L3d7LL/Rg/CaVu +8ldPY//oKgoJEiRhs5RUxTXs7Q/MbjKEcPueiudN2IOerP+sJEj4/olmq9KN +67fZvXa3JAk2LXVsA2xjg7U0JE3CKtGGpzbYyaLFTrryJIjrKxcfX26v+Vam +oExCRHVlbz02mVfcJK1KQvi+i4bvl79PDv+2Rp0EfXe21g/sQVJSVIBGwvPT +UqNC33C7pIXviA4JeeERr6ywa35LRg/SSQh1eynmhj3A6Unv0SNhft511Bd7 +25OTzzoMSSA8jM7EYX8PKFV6BCRQj0uEa7DFXCK2VpmQULP59dZGbCPTv23K +zEho/6D0+w32Jfm+8Ly/cb1CluQQNlvgXnK2FQlibKUVFHb/z4g712xI6OZX +NF3ENmyUfp9kT8Kr2MQ08R6832V9w+ccSOAELBTIYyddv8d3xpEEI5eLbirY +fSGWOmEuJGi5CKfTsUUPylgccSPhc/6s4jZsQ8t+D/8DJPQE8JrtWu6//lTC +QU8SPiUyfeyw2cJWt10YJCzdeUQ4LudNy1Q7ECT01WkvuS7n9fa32ZAkeHU+ +0D+0nNd6f9DcF6+vuMNqYrm+qlOL4E+CUIbAKd/l/NtWUsYBJPgVtCQELOcn +yWpuDSLhRWq+wZHlfNb3XX8eIeFcZVpMKLYIUeZCCyFhNCadDMM22BMVrHqM +BNWwAg5rOX+bdbxiGAmmm14JRWAnqstlybJIsDTgfxGJ/VB8oELiJAnr3ayU +o7B7/ytrXh1JwlXH23LRy/k/onoFo0hg/BIuWbb+W+u5pWh8Pg1ju5f9fxsI +FlY= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5986424829233534, 1.5968711170700145`}}, + "PlotRange" -> {{0, 180}, {0.7975167304083299, 1.2423094455766748`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5986424829233548}, + "AxesOrigin" -> {0, 0.7975167304083317}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -6532,7 +6414,8 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5986424829233548}, + AxesOrigin->{0, 0.7975167304083317}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -6560,7 +6443,8 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5986424829233534, 1.5968711170700145`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.7975167304083299, 1.2423094455766748`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -6568,9 +6452,8 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991339493274267*^9}, - CellLabel-> - "Out[334]=",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] + CellChangeTimes->{3.991339493274267*^9, 3.994256997890998*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"b31425a1-3286-48ec-873c-8794e91494c9"] }, Open ]], Cell[CellGroupData[{ @@ -6633,262 +6516,159 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849724783457*^9},ExpressionUUID->"6e33cb28-ef1e-1547-b52d-\ -2171e7786920"], + CellChangeTimes->{3.991849724783457*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2261575897868585`*^-267\\\", \ + "\"\\!\\(\\*FractionBox[\\\"7.416013987301949`*^-267\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, 9, + 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339493498577*^9, 3.9942569984084377`*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"23a30e76-6bc4-4a61-b383-73b32a5e567d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.9341717297962375`*^-279\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, + 10, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339493498577*^9, 3.994256998417424*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"bc4028fa-9a8b-48cc-bbb5-ae55d7c68e5c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7484260654050326`*^-291\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 335, - 333, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339493498577*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 95, + 11, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339493498577*^9, 3.994256998425667*^9}, CellLabel-> "During evaluation of \ -In[335]:=",ExpressionUUID->"53d31480-3c5e-ef4a-987b-a232cf0b03f3"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.273330099721687`*^-279\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 335, 334, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339493508564*^9}, - CellLabel-> - "During evaluation of \ -In[335]:=",ExpressionUUID->"b7d94271-16f1-6346-b579-21279019eafb"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.013344112917215`*^-290\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 335, 335, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339493517563*^9}, - CellLabel-> - "During evaluation of \ -In[335]:=",ExpressionUUID->"bfaea4b0-a812-1847-9911-9291b70d2c8f"], +In[95]:=",ExpressionUUID->"1bda2c41-2fb4-4208-9d66-b1b36b5df5b5"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 335, 336, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339493525564*^9}, +during this calculation.\"", 2, 95, 12, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339493498577*^9, 3.994256998434374*^9}, CellLabel-> "During evaluation of \ -In[335]:=",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], +In[95]:=",ExpressionUUID->"25419ce6-70e8-44c6-bb0f-d5c99cbccccf"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S -UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ -f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP -IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w -4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF -SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC -tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S -r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY -IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm -WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE -b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n -cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA -7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc -HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 -uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG -e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW -g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh -tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E -bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb -36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf -HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf -sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 -fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 -4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q -bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH -czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F -fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb -wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 -PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O -f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 -+p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f -7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 -sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK -TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 -tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp -9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv -AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 -vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz -83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw -sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j -76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy -GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih -ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ -miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO -4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH -vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT -/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY -kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 -O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA -OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB -POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR -4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd -ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd -BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na -AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB -SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC -EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C -QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ -FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB -U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ -FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX -dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm -b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT -mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI -RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U -6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e -j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b -6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 -zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC -rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn -uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F -cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk -RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU -XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD -f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 -vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT -pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy -ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR -6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 -wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r -l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY -tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR -k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z -FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO -wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz -hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ -y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq -XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh -KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK -F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO -bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF -9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK -itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN -qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 -iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS -Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 -OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu -x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 -urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM -EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh -7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh -Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q -mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe -XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS -+Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU -25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw -QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T -BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk -uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k -dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP -y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 -LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 -IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 -rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE -AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 -QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 -aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr -rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf -pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f -5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte -W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 -punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh -3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI -IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB -UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 -CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh -ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St -63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K -Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar -5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z -YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 -t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 -wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a -+b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w -7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS -rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN -D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ -HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp -MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j -Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 -hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT -PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke -Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE -TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz -8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 -wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO -zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs -N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO -2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ -+Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR -WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax -kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl -F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY -1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU -4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ -PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d -HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY -RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma -X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ -IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu -h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D -S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 -e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv -DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ -6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 -8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw -nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L -MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 -l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I -nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW -59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op -cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy -la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK -eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 -ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD -1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q -eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY -9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM -8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu -9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR -D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK -06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde -JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK -7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV -dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 -pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr -Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk -9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 -lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o -xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su -YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l -IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i -AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 -A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk4lG0XAHClhb7IFhPZxjwz9jVkGeekUiRSlIooWysKg8j2qpStUCRL +hIZ5sr2SrZQtlSipbCmlhcqSpahe39Nfc/2u+3ru7Zz7nFE84LPdYyEfHx// +Aj6+v78zAw+bGLF5Zo8sV1cF9BqYdWXRgtd1R0HD3CErckYCcGXHAVp3EgzI +7BI9NcMAzraiV/zduTA1Z8d0nVkDoqNSSbOvyiE7eHGg6cwGeFNn4zP1qgFu +ivpUv5i2BwvGyOuJV52gvkKny2bKHWZfGV4af/UOZGNUHM1G/aFx/Y28Z7mT +ECsiUB7z72lY/ab64wH1PyB1/cmO8d+JIHHUpWjpen6MOa1a+N9QCiTpWNTa +OAjgDw1z9+t86dCTpn1vQkQIXWqjF6yOyYLYvPCOhatE0WGUZhZ1MQekUt6f +S84UxxcHbsYO3bgOZ+0tzTpnVmKa8/Tbj9754GeU4/IwioaNjOfWB1VuwIax +uZPe76VRI9+qwiCFC8GbU1Tvf5XGGLaYzIErXCjO0egVn5HG4He/Tp7P4gLN +3tWoWkAGR/vHGZ1cLnytav7BrymDvk/zaOw7XEiOuuB/JUgGw5fvMIn8wIV3 +K5neTUKrcaP1f9739Aoh0tRuv/RaWay/EZ6x/EEhbN6X9d3QXBbvbx4dev64 +EIQjvvzjYC2LDQ3D51OfFkJG4+mCC66yWORbNireWwhVVjVflpyTxeUyvSsG +vxbCuKMSZ7JHFpWfLE5oEy2CfQHT59tC5JDf9oTdJ8ciMC6+UhFWL4/Z/Nre +RH8RbHjV/me0VR4/5G8cvPemCGz4Fm1y6ZRHY/2tjN3vi8Btu3cPfJDH8GRt +6YiRIrAIUQyPWKyA8kquzTd+FoGv/Mz1dWoKaLGWuXqfBA+avLK/NXIUMMvm +ygIvSx5Y/jYSCw1RQP3+1lMZ1jxov9BlsCZCAcXZgo/bbXnQUy0YkXdOAX1p +gj0qO3kw+j9/sdMZCnhwFzRXH+ABrXSzoUWDAk6xtn3HEB4c/TkR0SqkiB+F +7zp9K+SB8XFPyY9iiuhhVcGZJXkgMNLL46cpYvu7ra8WlPIgv6/xpRldET9Z +ah5bWsmDgbuX1G8ZKOJigjXx4T4PbE8bdee4KCInripmvJsHumKRWiFlimjC +PXaZvYgEvtjpprRKRewQjf7euYSEdv7DeyprFXGB8kCGuyAJR6a3n55oVkSF +8DOvQ4VJyOtm9Hn1KqLvtUnJSBoJktmtZ+z56di2WL2kW42EWTWRAQ0HOop+ +EmxusSVhJlM6Um8PHS94SGf325EwtYJgGLnQMa5eZGp0Bwmjk0aHNxyio+4i +QkTQkYR3tW4ze07R8eZjaxlxVxIebbktHJNPx33CnzvDfEh4cOd+WXwRHd8b +psc4HSehSavNPrmEjqty99Qb+JFwV3wwPauajqNe3LK3HBLK+5axbj2hY6im +0K1lYSSkH9kH76bpeJwxeOl2LAmprw+++zRHxz/P3iY4x5OQYut3+ts8HeVl +WlbwJZKQoBfz+KegEu55I8wzTiIh6lfZrhVySrhc2Mn+TBp1P7GLfU0tlDBe +Xbk3MI8EUx557fJlJRwWE5J6UE1CnwIve+NVJbyUFbBipIaEk5cLs6aylTB1 +91LRZXUk3I4syNheqISZ3S466+6SoOt4LU24TgnbV4lNxjaQoLI45cKZQSWs +/uj3OvkRCa0nkxL1PyphlrBy5tnHJHiOX0gYGlHCbZ70Y0FtVHz64uPMp5Rw +1vk+2LWToFB+Nua/JQysP8ete/OMipdLSARHnYEXt+SE+XaTcKsrOJzQYWDo +temT+j0k2FsFhXXpM1Aoj5H4g3KSfkCoLjCwqn/pAr8+EoSW+wSN2jFw2LuU +tmmABDLyWGDmTgY+cs8bnKJs9eMIx3ovA+1FDrVkvyEh5t1B/yJ3BmpKHPzw +9S0Ji6oP+HoGMnDmkvdZ9/ckXNfc77MylIESryXZvyib57l4N0UwcHVkrlji +EAnhiU5H6ecZ6Hc1QL74AwlzHjsPDmQwMLU9u/3hJxKu9Nl7xecwkH116qLl +ZxLW2u3wNC1g4ETW3uAWyhzTbe7pJQxsng+vvD1MwoSYlevOBgZab6bNBn4h +ofso/enhBwx0/5DJG6Z8r2UOwtsYeMvKaInjVxIunOTJc18y0GFhcKXqNxKC +uv5JrOtj4MPUKKFEyq6aTvNP3zJQMuToinHK2u+Wv5kdYaAMUS7JHSWBZvrB +RnicgYcGAmXnKfNdvnOXPk2NP5p4tn2MhA5L76wt8wxsj+q3GKdced1C2HUR +gaafagWMx0nI+iMX5i9IoB6pHhJB2buswzlTnMDB/nx//gkSdv6P+6SMRqD0 +ScU/QNnMI4LdIkugea+EUTBlZr3jzV46gcn8JiollIVW6ciOsQjsibdtH6Q8 +dUIwnl+DQPVcYRXR7yT0tw3+ltIlMHRujTGbchOz5qi6IYH2g+ELPSmTEUn9 +aEqgv87NqFjKKb2HrR3WERjlEFJ7k3LomvV1hywILNtUeLONsnuCjHrYFgLd +L87s/kx5y+fJq0nbCHxjpXSfb5LKd/O2/91wIHBMevz9SsrSGXkhtXsIjDeQ +a2RRXjgT+qXDhcBYVx8XA8ojtg57h9wJNBzOr15HubNQ4/HPQwQuK47utKRc +w7/ERMiHQOtVHUU2lHOdB4oU/QmsUbRcv43yuduV0gbBBJpZ3c74O+4rmnje +KoxATs7A7b/fOx7xmtv3D4En70df+js/NsNhvxgCQzp8DP6uryxP6z0bT6Bn +iOfVv/sTCR63zEgi8Ny8VvPf/f/sbK0uTSVwg0JKxd/zvVXPUWnOILBYbe/h +v+dvPRN8pSeHQO3ZrZ/+3k/pWzvB0QJqP8P66sWU04xVgxeSBH4f6jeKoxyR +snBYsozAW85Col6UvUZ7HdUqCfxsnVRuRtlm87+tUEutr2coL07ZIDd2rf09 +Kr6rWncNUfFdstOUduoRga3ct1qnKI+WSMRc7CCQxs//bAPll4LffuR3EdhU +b7FOkHLBncxX7QME5kcdS4qh8i1BirPp/XsCr3mO+a+nzDluc/vHZwKfej1V ++UXl60Zi/rLCJIFz6pNC+ykPxbnuPLGUiTnepS+XUPnuPaJO117OxJDrKg+K +qffxY9Pst28iTBSOCvu5g/Iy/qTTh6SZeDXLR+Ey9d60gxsrXDWYeMbVL212 +hIrny8QIOV0mBrMf58ZSXr/GybrfgIkHjhyflKa8c2zq/S5koqbxocM61Ps+ +5cEUt93BRI6QSwObqg9LGr8PLHdkYphRuFjNR+o9K9QXPXJi4nn3oGK9j3/r +5S5zC08m+ko0tMlR9eWR3bnj7GAmkv3OlV3vqHpp9rVDLZuJ057QX/+ahGtX +q64OX2diaFuumShlldlorxtcJl5JNf7p0k/V/wrZeXo5NV/piN90Lwluqraa +0s1MtK1NzeGj6m2pZHmcwBcmLvPPCk6j6rGxf5hjyxgT/YuvF9Q/JaHxmRUj +eoqJRrwkg6EOKj5x72vn/1D7VWVFEVQ9/71w5ZcZERbWZAu9jqH6geVYoOUH +AxaKR/JZPaf6xWoduTMCpiy8k1q+pfY+Fe8TTQ1q61jI9OW3unaPeq8zIqYn +trCw91933E/1m4E/hZrzLtR8kgFa9VS/OrG8X3zVORZqsCu+fykhYYNN1DbT +BBZe7OnVyysmQeqCcrxLMgvlXVwid98koU48YElBJgv9bkdsrC2i7ltGeFa3 +nIXVN3QS9uZT/VYFB6z7WPg7bRm/SDoJR498lPZ9y8JO2p2oK1T/hJtxu5I/ +sLCsf0ZOIZXKH+2epz1jLMw+TitjpJCgufZEo+ciZdy9/rnj/xKo+7HI40Zo +KKPREvdM20gSvroJ+FWEU+M9BzbXelDnzdpwpz5aGdf8NOz57kbCWE/E0sfn +lHFYIPI+6wAJ321nrw4mKyO/VEjGuX1UPpqMNAlzlVFAIiBNYxdVbyTaJA89 +VUYb91txPzaRsKopsUZWUQUbg56kprNI6v++1MKzDSqoWVFauusND4YPbOKa +PFDBo8pzLyVf8yAuJ9Bm/LEKNnzX//S8lwfP5brTd79QwScVix9ueskD11VX +9NQ/q6BcQmqR5BMeBAvLeDwTUsV/0jKK7Gp4QP6Ua5XZrYq93pYd5sk8EHvC +TCgdU8XN8ldK1gMP/hvTzn80pYoSi7UWWJryYETMpG5oVhU5z/fSrY140OBo +O0JbpIZVD+S6t+jxwG8o0CKSpoZkdKeODosHXb9a/7Nbp4b8R3i5KcI8SFU9 +4jOZpIZF1wcLWvqKYHVMyTYDA3V0dDWfp/kWQZqakYi4lwbW0Z8BI7kQHkmv +05+8qIlS+2YjY/K4YLy64YLWSy0sMXlaujX+Bgjz5/rvj9LG95mpfJHBBSAX +KW+6m6mDdBPNTybm+SBIOFVuf6CDrUduFa4VyANN9qqSQGddFEy/f3rtm1w4 +MSDWaMWnh3r/2k2IZ+TA2GScg2WaHp7lSPva+l6DTVot6ZYaa3BnsYEbZmbB +3UmTXz/a12B3M0e0zCADvNV1e5956KOudfAZ92XpwB5179otaIBuJlFeWc2p +sJFB2yqUa4Bmtktez929BMoR54MaDA1Rv97QvKo3GVQ9jOqJXkOkFw4YGo5c +BI+7B6Mrjq/FiI8j3I8GF6D+Wpf7xEojLI1QSHj3Ow6muPM/tG4bYSXXwamy +7xy4ETzB9K3GaFWx9eEr5bMwoZpsUD5ujA5hKbFrgqKhKu/X4HSMCa5tiz4R +qh4FezYooYmcKRpuLbIn5CJA5tjZas17plhl/HJdo3YorFx2tGzrLja6c+tv +WT8Mgrz1p06O72Yj/8PjMoM1QaB7KmF9shMbtdyi1oSSQWAzXvqiez8bXcaU +g1sSg+DMy+lZt6NsHP7mLMXbGQQ/c8PNT0ayUejU59/lHwKh1yT5eQGPjQFH +7AVKBQLhYEBehmUxG09LKrGkfnFgpviWx9dSNjJSBeqiv3FAjN79Q6eSjfEp +TujXyYEtArKr79xjo4XbXGhmBgfqugrcn79gI/GlR5zQ5YCVcJUGp5uN9PBr +vO8MDnRvejhD62MjTysgvUWKA1M1X2L2vWWjmWF4QOSfANDI0b45PEKtp352 +xPxhANT1ruPEfWPjRSedRevrAsBKYgdojbPxuK2dh2VJAHieDXjmP83Gax30 +mYOXAmDq3pl0qZ9snJb8qhgVEwBRc6luNXPU/Jf3xOeEBIDImkJ15z9s1L4b +bPDAOwCyjtVMz8+z0fmFvczk/gD4Pylng14= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -6902,221 +6682,115 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S -UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ -f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP -IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w -4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF -SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC -tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S -r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY -IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm -WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE -b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n -cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA -7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc -HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 -uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG -e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW -g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh -tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E -bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb -36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf -HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf -sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 -fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 -4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q -bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH -czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F -fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb -wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 -PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O -f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 -+p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f -7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 -sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK -TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 -tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp -9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv -AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 -vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz -83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw -sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j -76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy -GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih -ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ -miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO -4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH -vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT -/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY -kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 -O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA -OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB -POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR -4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd -ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd -BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na -AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB -SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC -EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C -QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ -FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB -U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ -FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX -dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm -b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT -mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI -RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U -6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e -j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b -6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 -zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC -rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn -uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F -cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk -RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU -XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD -f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 -vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT -pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy -ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR -6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 -wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r -l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY -tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR -k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z -FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO -wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz -hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ -y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq -XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh -KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK -F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO -bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF -9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK -itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN -qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 -iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS -Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 -OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu -x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 -urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM -EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh -7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh -Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q -mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe -XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS -+Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU -25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw -QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T -BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk -uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k -dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP -y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 -LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 -IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 -rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE -AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 -QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 -aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr -rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf -pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f -5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte -W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 -punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh -3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI -IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB -UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 -CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh -ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St -63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K -Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar -5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z -YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 -t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 -wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a -+b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w -7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS -rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN -D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ -HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp -MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j -Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 -hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT -PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke -Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE -TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz -8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 -wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO -zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs -N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO -2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ -+Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR -WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax -kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl -F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY -1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU -4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ -PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d -HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY -RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma -X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ -IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu -h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D -S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 -e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv -DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ -6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 -8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw -nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L -MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 -l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I -nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW -59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op -cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy -la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK -eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 -ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD -1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q -eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY -9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM -8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu -9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR -D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK -06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde -JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK -7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV -dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 -pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr -Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk -9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 -lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o -xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su -YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l -IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i -AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 -A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== +1:eJwV1nk4lG0XAHClhb7IFhPZxjwz9jVkGeekUiRSlIooWysKg8j2qpStUCRL +hIZ5sr2SrZQtlSipbCmlhcqSpahe39Nfc/2u+3ru7Zz7nFE84LPdYyEfHx// +Aj6+v78zAw+bGLF5Zo8sV1cF9BqYdWXRgtd1R0HD3CErckYCcGXHAVp3EgzI +7BI9NcMAzraiV/zduTA1Z8d0nVkDoqNSSbOvyiE7eHGg6cwGeFNn4zP1qgFu +ivpUv5i2BwvGyOuJV52gvkKny2bKHWZfGV4af/UOZGNUHM1G/aFx/Y28Z7mT +ECsiUB7z72lY/ab64wH1PyB1/cmO8d+JIHHUpWjpen6MOa1a+N9QCiTpWNTa +OAjgDw1z9+t86dCTpn1vQkQIXWqjF6yOyYLYvPCOhatE0WGUZhZ1MQekUt6f +S84UxxcHbsYO3bgOZ+0tzTpnVmKa8/Tbj9754GeU4/IwioaNjOfWB1VuwIax +uZPe76VRI9+qwiCFC8GbU1Tvf5XGGLaYzIErXCjO0egVn5HG4He/Tp7P4gLN +3tWoWkAGR/vHGZ1cLnytav7BrymDvk/zaOw7XEiOuuB/JUgGw5fvMIn8wIV3 +K5neTUKrcaP1f9739Aoh0tRuv/RaWay/EZ6x/EEhbN6X9d3QXBbvbx4dev64 +EIQjvvzjYC2LDQ3D51OfFkJG4+mCC66yWORbNireWwhVVjVflpyTxeUyvSsG +vxbCuKMSZ7JHFpWfLE5oEy2CfQHT59tC5JDf9oTdJ8ciMC6+UhFWL4/Z/Nre +RH8RbHjV/me0VR4/5G8cvPemCGz4Fm1y6ZRHY/2tjN3vi8Btu3cPfJDH8GRt +6YiRIrAIUQyPWKyA8kquzTd+FoGv/Mz1dWoKaLGWuXqfBA+avLK/NXIUMMvm +ygIvSx5Y/jYSCw1RQP3+1lMZ1jxov9BlsCZCAcXZgo/bbXnQUy0YkXdOAX1p +gj0qO3kw+j9/sdMZCnhwFzRXH+ABrXSzoUWDAk6xtn3HEB4c/TkR0SqkiB+F +7zp9K+SB8XFPyY9iiuhhVcGZJXkgMNLL46cpYvu7ra8WlPIgv6/xpRldET9Z +ah5bWsmDgbuX1G8ZKOJigjXx4T4PbE8bdee4KCInripmvJsHumKRWiFlimjC +PXaZvYgEvtjpprRKRewQjf7euYSEdv7DeyprFXGB8kCGuyAJR6a3n55oVkSF +8DOvQ4VJyOtm9Hn1KqLvtUnJSBoJktmtZ+z56di2WL2kW42EWTWRAQ0HOop+ +EmxusSVhJlM6Um8PHS94SGf325EwtYJgGLnQMa5eZGp0Bwmjk0aHNxyio+4i +QkTQkYR3tW4ze07R8eZjaxlxVxIebbktHJNPx33CnzvDfEh4cOd+WXwRHd8b +psc4HSehSavNPrmEjqty99Qb+JFwV3wwPauajqNe3LK3HBLK+5axbj2hY6im +0K1lYSSkH9kH76bpeJwxeOl2LAmprw+++zRHxz/P3iY4x5OQYut3+ts8HeVl +WlbwJZKQoBfz+KegEu55I8wzTiIh6lfZrhVySrhc2Mn+TBp1P7GLfU0tlDBe +Xbk3MI8EUx557fJlJRwWE5J6UE1CnwIve+NVJbyUFbBipIaEk5cLs6aylTB1 +91LRZXUk3I4syNheqISZ3S466+6SoOt4LU24TgnbV4lNxjaQoLI45cKZQSWs +/uj3OvkRCa0nkxL1PyphlrBy5tnHJHiOX0gYGlHCbZ70Y0FtVHz64uPMp5Rw +1vk+2LWToFB+Nua/JQysP8ete/OMipdLSARHnYEXt+SE+XaTcKsrOJzQYWDo +temT+j0k2FsFhXXpM1Aoj5H4g3KSfkCoLjCwqn/pAr8+EoSW+wSN2jFw2LuU +tmmABDLyWGDmTgY+cs8bnKJs9eMIx3ovA+1FDrVkvyEh5t1B/yJ3BmpKHPzw +9S0Ji6oP+HoGMnDmkvdZ9/ckXNfc77MylIESryXZvyib57l4N0UwcHVkrlji +EAnhiU5H6ecZ6Hc1QL74AwlzHjsPDmQwMLU9u/3hJxKu9Nl7xecwkH116qLl +ZxLW2u3wNC1g4ETW3uAWyhzTbe7pJQxsng+vvD1MwoSYlevOBgZab6bNBn4h +ofso/enhBwx0/5DJG6Z8r2UOwtsYeMvKaInjVxIunOTJc18y0GFhcKXqNxKC +uv5JrOtj4MPUKKFEyq6aTvNP3zJQMuToinHK2u+Wv5kdYaAMUS7JHSWBZvrB +RnicgYcGAmXnKfNdvnOXPk2NP5p4tn2MhA5L76wt8wxsj+q3GKdced1C2HUR +gaafagWMx0nI+iMX5i9IoB6pHhJB2buswzlTnMDB/nx//gkSdv6P+6SMRqD0 +ScU/QNnMI4LdIkugea+EUTBlZr3jzV46gcn8JiollIVW6ciOsQjsibdtH6Q8 +dUIwnl+DQPVcYRXR7yT0tw3+ltIlMHRujTGbchOz5qi6IYH2g+ELPSmTEUn9 +aEqgv87NqFjKKb2HrR3WERjlEFJ7k3LomvV1hywILNtUeLONsnuCjHrYFgLd +L87s/kx5y+fJq0nbCHxjpXSfb5LKd/O2/91wIHBMevz9SsrSGXkhtXsIjDeQ +a2RRXjgT+qXDhcBYVx8XA8ojtg57h9wJNBzOr15HubNQ4/HPQwQuK47utKRc +w7/ERMiHQOtVHUU2lHOdB4oU/QmsUbRcv43yuduV0gbBBJpZ3c74O+4rmnje +KoxATs7A7b/fOx7xmtv3D4En70df+js/NsNhvxgCQzp8DP6uryxP6z0bT6Bn +iOfVv/sTCR63zEgi8Ny8VvPf/f/sbK0uTSVwg0JKxd/zvVXPUWnOILBYbe/h +v+dvPRN8pSeHQO3ZrZ/+3k/pWzvB0QJqP8P66sWU04xVgxeSBH4f6jeKoxyR +snBYsozAW85Col6UvUZ7HdUqCfxsnVRuRtlm87+tUEutr2coL07ZIDd2rf09 +Kr6rWncNUfFdstOUduoRga3ct1qnKI+WSMRc7CCQxs//bAPll4LffuR3EdhU +b7FOkHLBncxX7QME5kcdS4qh8i1BirPp/XsCr3mO+a+nzDluc/vHZwKfej1V ++UXl60Zi/rLCJIFz6pNC+ykPxbnuPLGUiTnepS+XUPnuPaJO117OxJDrKg+K +qffxY9Pst28iTBSOCvu5g/Iy/qTTh6SZeDXLR+Ey9d60gxsrXDWYeMbVL212 +hIrny8QIOV0mBrMf58ZSXr/GybrfgIkHjhyflKa8c2zq/S5koqbxocM61Ps+ +5cEUt93BRI6QSwObqg9LGr8PLHdkYphRuFjNR+o9K9QXPXJi4nn3oGK9j3/r +5S5zC08m+ko0tMlR9eWR3bnj7GAmkv3OlV3vqHpp9rVDLZuJ057QX/+ahGtX +q64OX2diaFuumShlldlorxtcJl5JNf7p0k/V/wrZeXo5NV/piN90Lwluqraa +0s1MtK1NzeGj6m2pZHmcwBcmLvPPCk6j6rGxf5hjyxgT/YuvF9Q/JaHxmRUj +eoqJRrwkg6EOKj5x72vn/1D7VWVFEVQ9/71w5ZcZERbWZAu9jqH6geVYoOUH +AxaKR/JZPaf6xWoduTMCpiy8k1q+pfY+Fe8TTQ1q61jI9OW3unaPeq8zIqYn +trCw91933E/1m4E/hZrzLtR8kgFa9VS/OrG8X3zVORZqsCu+fykhYYNN1DbT +BBZe7OnVyysmQeqCcrxLMgvlXVwid98koU48YElBJgv9bkdsrC2i7ltGeFa3 +nIXVN3QS9uZT/VYFB6z7WPg7bRm/SDoJR498lPZ9y8JO2p2oK1T/hJtxu5I/ +sLCsf0ZOIZXKH+2epz1jLMw+TitjpJCgufZEo+ciZdy9/rnj/xKo+7HI40Zo +KKPREvdM20gSvroJ+FWEU+M9BzbXelDnzdpwpz5aGdf8NOz57kbCWE/E0sfn +lHFYIPI+6wAJ321nrw4mKyO/VEjGuX1UPpqMNAlzlVFAIiBNYxdVbyTaJA89 +VUYb91txPzaRsKopsUZWUQUbg56kprNI6v++1MKzDSqoWVFauusND4YPbOKa +PFDBo8pzLyVf8yAuJ9Bm/LEKNnzX//S8lwfP5brTd79QwScVix9ueskD11VX +9NQ/q6BcQmqR5BMeBAvLeDwTUsV/0jKK7Gp4QP6Ua5XZrYq93pYd5sk8EHvC +TCgdU8XN8ldK1gMP/hvTzn80pYoSi7UWWJryYETMpG5oVhU5z/fSrY140OBo +O0JbpIZVD+S6t+jxwG8o0CKSpoZkdKeODosHXb9a/7Nbp4b8R3i5KcI8SFU9 +4jOZpIZF1wcLWvqKYHVMyTYDA3V0dDWfp/kWQZqakYi4lwbW0Z8BI7kQHkmv +05+8qIlS+2YjY/K4YLy64YLWSy0sMXlaujX+Bgjz5/rvj9LG95mpfJHBBSAX +KW+6m6mDdBPNTybm+SBIOFVuf6CDrUduFa4VyANN9qqSQGddFEy/f3rtm1w4 +MSDWaMWnh3r/2k2IZ+TA2GScg2WaHp7lSPva+l6DTVot6ZYaa3BnsYEbZmbB +3UmTXz/a12B3M0e0zCADvNV1e5956KOudfAZ92XpwB5179otaIBuJlFeWc2p +sJFB2yqUa4Bmtktez929BMoR54MaDA1Rv97QvKo3GVQ9jOqJXkOkFw4YGo5c +BI+7B6Mrjq/FiI8j3I8GF6D+Wpf7xEojLI1QSHj3Ow6muPM/tG4bYSXXwamy +7xy4ETzB9K3GaFWx9eEr5bMwoZpsUD5ujA5hKbFrgqKhKu/X4HSMCa5tiz4R +qh4FezYooYmcKRpuLbIn5CJA5tjZas17plhl/HJdo3YorFx2tGzrLja6c+tv +WT8Mgrz1p06O72Yj/8PjMoM1QaB7KmF9shMbtdyi1oSSQWAzXvqiez8bXcaU +g1sSg+DMy+lZt6NsHP7mLMXbGQQ/c8PNT0ayUejU59/lHwKh1yT5eQGPjQFH +7AVKBQLhYEBehmUxG09LKrGkfnFgpviWx9dSNjJSBeqiv3FAjN79Q6eSjfEp +TujXyYEtArKr79xjo4XbXGhmBgfqugrcn79gI/GlR5zQ5YCVcJUGp5uN9PBr +vO8MDnRvejhD62MjTysgvUWKA1M1X2L2vWWjmWF4QOSfANDI0b45PEKtp352 +xPxhANT1ruPEfWPjRSedRevrAsBKYgdojbPxuK2dh2VJAHieDXjmP83Gax30 +mYOXAmDq3pl0qZ9snJb8qhgVEwBRc6luNXPU/Jf3xOeEBIDImkJ15z9s1L4b +bPDAOwCyjtVMz8+z0fmFvczk/gD4Pylng14= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "PlotRange" -> {{0, 30}, {0., 0.056543834889967795`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7128,19 +6802,19 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "PlotRange" -> {{0, 30}, {0., 0.056543834889967795`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7154,220 +6828,114 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S -UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ -f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP -IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w -4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF -SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC -tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S -r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY -IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm -WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE -b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n -cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA -7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc -HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 -uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG -e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW -g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh -tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E -bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb -36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf -HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf -sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 -fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 -4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q -bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH -czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F -fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb -wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 -PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O -f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 -+p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f -7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 -sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK -TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 -tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp -9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv -AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 -vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz -83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw -sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j -76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy -GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih -ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ -miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO -4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH -vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT -/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY -kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 -O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA -OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB -POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR -4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd -ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd -BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na -AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB -SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC -EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C -QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ -FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB -U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ -FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX -dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm -b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT -mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI -RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U -6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e -j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b -6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 -zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC -rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn -uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F -cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk -RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU -XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD -f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 -vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT -pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy -ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR -6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 -wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r -l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY -tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR -k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z -FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO -wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz -hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ -y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq -XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh -KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK -F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO -bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF -9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK -itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN -qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 -iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS -Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 -OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu -x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 -urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM -EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh -7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh -Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q -mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe -XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS -+Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU -25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw -QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T -BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk -uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k -dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP -y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 -LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 -IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 -rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE -AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 -QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 -aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr -rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf -pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f -5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte -W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 -punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh -3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI -IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB -UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 -CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh -ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St -63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K -Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar -5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z -YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 -t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 -wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a -+b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w -7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS -rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN -D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ -HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp -MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j -Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 -hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT -PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke -Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE -TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz -8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 -wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO -zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs -N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO -2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ -+Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR -WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax -kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl -F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY -1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU -4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ -PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d -HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY -RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma -X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ -IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu -h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D -S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 -e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv -DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ -6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 -8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw -nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L -MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 -l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I -nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW -59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op -cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy -la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK -eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 -ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD -1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q -eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY -9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM -8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu -9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR -D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK -06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde -JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK -7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV -dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 -pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr -Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk -9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 -lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o -xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su -YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l -IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i -AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 -A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== +1:eJwV1nk4lG0XAHClhb7IFhPZxjwz9jVkGeekUiRSlIooWysKg8j2qpStUCRL +hIZ5sr2SrZQtlSipbCmlhcqSpahe39Nfc/2u+3ru7Zz7nFE84LPdYyEfHx// +Aj6+v78zAw+bGLF5Zo8sV1cF9BqYdWXRgtd1R0HD3CErckYCcGXHAVp3EgzI +7BI9NcMAzraiV/zduTA1Z8d0nVkDoqNSSbOvyiE7eHGg6cwGeFNn4zP1qgFu +ivpUv5i2BwvGyOuJV52gvkKny2bKHWZfGV4af/UOZGNUHM1G/aFx/Y28Z7mT +ECsiUB7z72lY/ab64wH1PyB1/cmO8d+JIHHUpWjpen6MOa1a+N9QCiTpWNTa +OAjgDw1z9+t86dCTpn1vQkQIXWqjF6yOyYLYvPCOhatE0WGUZhZ1MQekUt6f +S84UxxcHbsYO3bgOZ+0tzTpnVmKa8/Tbj9754GeU4/IwioaNjOfWB1VuwIax +uZPe76VRI9+qwiCFC8GbU1Tvf5XGGLaYzIErXCjO0egVn5HG4He/Tp7P4gLN +3tWoWkAGR/vHGZ1cLnytav7BrymDvk/zaOw7XEiOuuB/JUgGw5fvMIn8wIV3 +K5neTUKrcaP1f9739Aoh0tRuv/RaWay/EZ6x/EEhbN6X9d3QXBbvbx4dev64 +EIQjvvzjYC2LDQ3D51OfFkJG4+mCC66yWORbNireWwhVVjVflpyTxeUyvSsG +vxbCuKMSZ7JHFpWfLE5oEy2CfQHT59tC5JDf9oTdJ8ciMC6+UhFWL4/Z/Nre +RH8RbHjV/me0VR4/5G8cvPemCGz4Fm1y6ZRHY/2tjN3vi8Btu3cPfJDH8GRt +6YiRIrAIUQyPWKyA8kquzTd+FoGv/Mz1dWoKaLGWuXqfBA+avLK/NXIUMMvm +ygIvSx5Y/jYSCw1RQP3+1lMZ1jxov9BlsCZCAcXZgo/bbXnQUy0YkXdOAX1p +gj0qO3kw+j9/sdMZCnhwFzRXH+ABrXSzoUWDAk6xtn3HEB4c/TkR0SqkiB+F +7zp9K+SB8XFPyY9iiuhhVcGZJXkgMNLL46cpYvu7ra8WlPIgv6/xpRldET9Z +ah5bWsmDgbuX1G8ZKOJigjXx4T4PbE8bdee4KCInripmvJsHumKRWiFlimjC +PXaZvYgEvtjpprRKRewQjf7euYSEdv7DeyprFXGB8kCGuyAJR6a3n55oVkSF +8DOvQ4VJyOtm9Hn1KqLvtUnJSBoJktmtZ+z56di2WL2kW42EWTWRAQ0HOop+ +EmxusSVhJlM6Um8PHS94SGf325EwtYJgGLnQMa5eZGp0Bwmjk0aHNxyio+4i +QkTQkYR3tW4ze07R8eZjaxlxVxIebbktHJNPx33CnzvDfEh4cOd+WXwRHd8b +psc4HSehSavNPrmEjqty99Qb+JFwV3wwPauajqNe3LK3HBLK+5axbj2hY6im +0K1lYSSkH9kH76bpeJwxeOl2LAmprw+++zRHxz/P3iY4x5OQYut3+ts8HeVl +WlbwJZKQoBfz+KegEu55I8wzTiIh6lfZrhVySrhc2Mn+TBp1P7GLfU0tlDBe +Xbk3MI8EUx557fJlJRwWE5J6UE1CnwIve+NVJbyUFbBipIaEk5cLs6aylTB1 +91LRZXUk3I4syNheqISZ3S466+6SoOt4LU24TgnbV4lNxjaQoLI45cKZQSWs +/uj3OvkRCa0nkxL1PyphlrBy5tnHJHiOX0gYGlHCbZ70Y0FtVHz64uPMp5Rw +1vk+2LWToFB+Nua/JQysP8ete/OMipdLSARHnYEXt+SE+XaTcKsrOJzQYWDo +temT+j0k2FsFhXXpM1Aoj5H4g3KSfkCoLjCwqn/pAr8+EoSW+wSN2jFw2LuU +tmmABDLyWGDmTgY+cs8bnKJs9eMIx3ovA+1FDrVkvyEh5t1B/yJ3BmpKHPzw +9S0Ji6oP+HoGMnDmkvdZ9/ckXNfc77MylIESryXZvyib57l4N0UwcHVkrlji +EAnhiU5H6ecZ6Hc1QL74AwlzHjsPDmQwMLU9u/3hJxKu9Nl7xecwkH116qLl +ZxLW2u3wNC1g4ETW3uAWyhzTbe7pJQxsng+vvD1MwoSYlevOBgZab6bNBn4h +ofso/enhBwx0/5DJG6Z8r2UOwtsYeMvKaInjVxIunOTJc18y0GFhcKXqNxKC +uv5JrOtj4MPUKKFEyq6aTvNP3zJQMuToinHK2u+Wv5kdYaAMUS7JHSWBZvrB +RnicgYcGAmXnKfNdvnOXPk2NP5p4tn2MhA5L76wt8wxsj+q3GKdced1C2HUR +gaafagWMx0nI+iMX5i9IoB6pHhJB2buswzlTnMDB/nx//gkSdv6P+6SMRqD0 +ScU/QNnMI4LdIkugea+EUTBlZr3jzV46gcn8JiollIVW6ciOsQjsibdtH6Q8 +dUIwnl+DQPVcYRXR7yT0tw3+ltIlMHRujTGbchOz5qi6IYH2g+ELPSmTEUn9 +aEqgv87NqFjKKb2HrR3WERjlEFJ7k3LomvV1hywILNtUeLONsnuCjHrYFgLd +L87s/kx5y+fJq0nbCHxjpXSfb5LKd/O2/91wIHBMevz9SsrSGXkhtXsIjDeQ +a2RRXjgT+qXDhcBYVx8XA8ojtg57h9wJNBzOr15HubNQ4/HPQwQuK47utKRc +w7/ERMiHQOtVHUU2lHOdB4oU/QmsUbRcv43yuduV0gbBBJpZ3c74O+4rmnje +KoxATs7A7b/fOx7xmtv3D4En70df+js/NsNhvxgCQzp8DP6uryxP6z0bT6Bn +iOfVv/sTCR63zEgi8Ny8VvPf/f/sbK0uTSVwg0JKxd/zvVXPUWnOILBYbe/h +v+dvPRN8pSeHQO3ZrZ/+3k/pWzvB0QJqP8P66sWU04xVgxeSBH4f6jeKoxyR +snBYsozAW85Col6UvUZ7HdUqCfxsnVRuRtlm87+tUEutr2coL07ZIDd2rf09 +Kr6rWncNUfFdstOUduoRga3ct1qnKI+WSMRc7CCQxs//bAPll4LffuR3EdhU +b7FOkHLBncxX7QME5kcdS4qh8i1BirPp/XsCr3mO+a+nzDluc/vHZwKfej1V ++UXl60Zi/rLCJIFz6pNC+ykPxbnuPLGUiTnepS+XUPnuPaJO117OxJDrKg+K +qffxY9Pst28iTBSOCvu5g/Iy/qTTh6SZeDXLR+Ey9d60gxsrXDWYeMbVL212 +hIrny8QIOV0mBrMf58ZSXr/GybrfgIkHjhyflKa8c2zq/S5koqbxocM61Ps+ +5cEUt93BRI6QSwObqg9LGr8PLHdkYphRuFjNR+o9K9QXPXJi4nn3oGK9j3/r +5S5zC08m+ko0tMlR9eWR3bnj7GAmkv3OlV3vqHpp9rVDLZuJ057QX/+ahGtX +q64OX2diaFuumShlldlorxtcJl5JNf7p0k/V/wrZeXo5NV/piN90Lwluqraa +0s1MtK1NzeGj6m2pZHmcwBcmLvPPCk6j6rGxf5hjyxgT/YuvF9Q/JaHxmRUj +eoqJRrwkg6EOKj5x72vn/1D7VWVFEVQ9/71w5ZcZERbWZAu9jqH6geVYoOUH +AxaKR/JZPaf6xWoduTMCpiy8k1q+pfY+Fe8TTQ1q61jI9OW3unaPeq8zIqYn +trCw91933E/1m4E/hZrzLtR8kgFa9VS/OrG8X3zVORZqsCu+fykhYYNN1DbT +BBZe7OnVyysmQeqCcrxLMgvlXVwid98koU48YElBJgv9bkdsrC2i7ltGeFa3 +nIXVN3QS9uZT/VYFB6z7WPg7bRm/SDoJR498lPZ9y8JO2p2oK1T/hJtxu5I/ +sLCsf0ZOIZXKH+2epz1jLMw+TitjpJCgufZEo+ciZdy9/rnj/xKo+7HI40Zo +KKPREvdM20gSvroJ+FWEU+M9BzbXelDnzdpwpz5aGdf8NOz57kbCWE/E0sfn +lHFYIPI+6wAJ321nrw4mKyO/VEjGuX1UPpqMNAlzlVFAIiBNYxdVbyTaJA89 +VUYb91txPzaRsKopsUZWUQUbg56kprNI6v++1MKzDSqoWVFauusND4YPbOKa +PFDBo8pzLyVf8yAuJ9Bm/LEKNnzX//S8lwfP5brTd79QwScVix9ueskD11VX +9NQ/q6BcQmqR5BMeBAvLeDwTUsV/0jKK7Gp4QP6Ua5XZrYq93pYd5sk8EHvC +TCgdU8XN8ldK1gMP/hvTzn80pYoSi7UWWJryYETMpG5oVhU5z/fSrY140OBo +O0JbpIZVD+S6t+jxwG8o0CKSpoZkdKeODosHXb9a/7Nbp4b8R3i5KcI8SFU9 +4jOZpIZF1wcLWvqKYHVMyTYDA3V0dDWfp/kWQZqakYi4lwbW0Z8BI7kQHkmv +05+8qIlS+2YjY/K4YLy64YLWSy0sMXlaujX+Bgjz5/rvj9LG95mpfJHBBSAX +KW+6m6mDdBPNTybm+SBIOFVuf6CDrUduFa4VyANN9qqSQGddFEy/f3rtm1w4 +MSDWaMWnh3r/2k2IZ+TA2GScg2WaHp7lSPva+l6DTVot6ZYaa3BnsYEbZmbB +3UmTXz/a12B3M0e0zCADvNV1e5956KOudfAZ92XpwB5179otaIBuJlFeWc2p +sJFB2yqUa4Bmtktez929BMoR54MaDA1Rv97QvKo3GVQ9jOqJXkOkFw4YGo5c +BI+7B6Mrjq/FiI8j3I8GF6D+Wpf7xEojLI1QSHj3Ow6muPM/tG4bYSXXwamy +7xy4ETzB9K3GaFWx9eEr5bMwoZpsUD5ujA5hKbFrgqKhKu/X4HSMCa5tiz4R +qh4FezYooYmcKRpuLbIn5CJA5tjZas17plhl/HJdo3YorFx2tGzrLja6c+tv +WT8Mgrz1p06O72Yj/8PjMoM1QaB7KmF9shMbtdyi1oSSQWAzXvqiez8bXcaU +g1sSg+DMy+lZt6NsHP7mLMXbGQQ/c8PNT0ayUejU59/lHwKh1yT5eQGPjQFH +7AVKBQLhYEBehmUxG09LKrGkfnFgpviWx9dSNjJSBeqiv3FAjN79Q6eSjfEp +TujXyYEtArKr79xjo4XbXGhmBgfqugrcn79gI/GlR5zQ5YCVcJUGp5uN9PBr +vO8MDnRvejhD62MjTysgvUWKA1M1X2L2vWWjmWF4QOSfANDI0b45PEKtp352 +xPxhANT1ruPEfWPjRSedRevrAsBKYgdojbPxuK2dh2VJAHieDXjmP83Gax30 +mYOXAmDq3pl0qZ9snJb8qhgVEwBRc6luNXPU/Jf3xOeEBIDImkJ15z9s1L4b +bPDAOwCyjtVMz8+z0fmFvczk/gD4Pylng14= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "PlotRange" -> {{0, 30}, {0., 0.056543834889967795`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7378,6 +6946,7 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -7405,7 +6974,8 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.11602348907445073`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.056543834889967795`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -7413,11 +6983,12 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991340117671425*^9}, - CellLabel-> - "Out[335]=",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] + CellChangeTimes->{3.991340117671425*^9, 3.9942575397525578`*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"2885ccfa-4fe8-4de9-84d5-f60feb6bed87"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", @@ -7486,15 +7057,786 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"30", ",", "0.003631"}], "}"}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, - 3.994084088789774*^9},ExpressionUUID->"2d5a8299-5376-9747-8056-\ -2bd9764114a1"], + 3.994084088789774*^9}, + CellLabel->"In[96]:=",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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->{ + "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.060284}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994257539989181*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"e01e7edc-d43a-4816-9017-75b19e1acef9"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-\ -0ac982b58a3a"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-0ac982b58a3a"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk4lG0XAHClhb7IFhPZxjwz9jVkGeekUiRSlIooWysKg8j2qpStUCRL +hIZ5sr2SrZQtlSipbCmlhcqSpahe39Nfc/2u+3ru7Zz7nFE84LPdYyEfHx// +Aj6+v78zAw+bGLF5Zo8sV1cF9BqYdWXRgtd1R0HD3CErckYCcGXHAVp3EgzI +7BI9NcMAzraiV/zduTA1Z8d0nVkDoqNSSbOvyiE7eHGg6cwGeFNn4zP1qgFu +ivpUv5i2BwvGyOuJV52gvkKny2bKHWZfGV4af/UOZGNUHM1G/aFx/Y28Z7mT +ECsiUB7z72lY/ab64wH1PyB1/cmO8d+JIHHUpWjpen6MOa1a+N9QCiTpWNTa +OAjgDw1z9+t86dCTpn1vQkQIXWqjF6yOyYLYvPCOhatE0WGUZhZ1MQekUt6f +S84UxxcHbsYO3bgOZ+0tzTpnVmKa8/Tbj9754GeU4/IwioaNjOfWB1VuwIax +uZPe76VRI9+qwiCFC8GbU1Tvf5XGGLaYzIErXCjO0egVn5HG4He/Tp7P4gLN +3tWoWkAGR/vHGZ1cLnytav7BrymDvk/zaOw7XEiOuuB/JUgGw5fvMIn8wIV3 +K5neTUKrcaP1f9739Aoh0tRuv/RaWay/EZ6x/EEhbN6X9d3QXBbvbx4dev64 +EIQjvvzjYC2LDQ3D51OfFkJG4+mCC66yWORbNireWwhVVjVflpyTxeUyvSsG +vxbCuKMSZ7JHFpWfLE5oEy2CfQHT59tC5JDf9oTdJ8ciMC6+UhFWL4/Z/Nre +RH8RbHjV/me0VR4/5G8cvPemCGz4Fm1y6ZRHY/2tjN3vi8Btu3cPfJDH8GRt +6YiRIrAIUQyPWKyA8kquzTd+FoGv/Mz1dWoKaLGWuXqfBA+avLK/NXIUMMvm +ygIvSx5Y/jYSCw1RQP3+1lMZ1jxov9BlsCZCAcXZgo/bbXnQUy0YkXdOAX1p +gj0qO3kw+j9/sdMZCnhwFzRXH+ABrXSzoUWDAk6xtn3HEB4c/TkR0SqkiB+F +7zp9K+SB8XFPyY9iiuhhVcGZJXkgMNLL46cpYvu7ra8WlPIgv6/xpRldET9Z +ah5bWsmDgbuX1G8ZKOJigjXx4T4PbE8bdee4KCInripmvJsHumKRWiFlimjC +PXaZvYgEvtjpprRKRewQjf7euYSEdv7DeyprFXGB8kCGuyAJR6a3n55oVkSF +8DOvQ4VJyOtm9Hn1KqLvtUnJSBoJktmtZ+z56di2WL2kW42EWTWRAQ0HOop+ +EmxusSVhJlM6Um8PHS94SGf325EwtYJgGLnQMa5eZGp0Bwmjk0aHNxyio+4i +QkTQkYR3tW4ze07R8eZjaxlxVxIebbktHJNPx33CnzvDfEh4cOd+WXwRHd8b +psc4HSehSavNPrmEjqty99Qb+JFwV3wwPauajqNe3LK3HBLK+5axbj2hY6im +0K1lYSSkH9kH76bpeJwxeOl2LAmprw+++zRHxz/P3iY4x5OQYut3+ts8HeVl +WlbwJZKQoBfz+KegEu55I8wzTiIh6lfZrhVySrhc2Mn+TBp1P7GLfU0tlDBe +Xbk3MI8EUx557fJlJRwWE5J6UE1CnwIve+NVJbyUFbBipIaEk5cLs6aylTB1 +91LRZXUk3I4syNheqISZ3S466+6SoOt4LU24TgnbV4lNxjaQoLI45cKZQSWs +/uj3OvkRCa0nkxL1PyphlrBy5tnHJHiOX0gYGlHCbZ70Y0FtVHz64uPMp5Rw +1vk+2LWToFB+Nua/JQysP8ete/OMipdLSARHnYEXt+SE+XaTcKsrOJzQYWDo +temT+j0k2FsFhXXpM1Aoj5H4g3KSfkCoLjCwqn/pAr8+EoSW+wSN2jFw2LuU +tmmABDLyWGDmTgY+cs8bnKJs9eMIx3ovA+1FDrVkvyEh5t1B/yJ3BmpKHPzw +9S0Ji6oP+HoGMnDmkvdZ9/ckXNfc77MylIESryXZvyib57l4N0UwcHVkrlji +EAnhiU5H6ecZ6Hc1QL74AwlzHjsPDmQwMLU9u/3hJxKu9Nl7xecwkH116qLl +ZxLW2u3wNC1g4ETW3uAWyhzTbe7pJQxsng+vvD1MwoSYlevOBgZab6bNBn4h +ofso/enhBwx0/5DJG6Z8r2UOwtsYeMvKaInjVxIunOTJc18y0GFhcKXqNxKC +uv5JrOtj4MPUKKFEyq6aTvNP3zJQMuToinHK2u+Wv5kdYaAMUS7JHSWBZvrB +RnicgYcGAmXnKfNdvnOXPk2NP5p4tn2MhA5L76wt8wxsj+q3GKdced1C2HUR +gaafagWMx0nI+iMX5i9IoB6pHhJB2buswzlTnMDB/nx//gkSdv6P+6SMRqD0 +ScU/QNnMI4LdIkugea+EUTBlZr3jzV46gcn8JiollIVW6ciOsQjsibdtH6Q8 +dUIwnl+DQPVcYRXR7yT0tw3+ltIlMHRujTGbchOz5qi6IYH2g+ELPSmTEUn9 +aEqgv87NqFjKKb2HrR3WERjlEFJ7k3LomvV1hywILNtUeLONsnuCjHrYFgLd +L87s/kx5y+fJq0nbCHxjpXSfb5LKd/O2/91wIHBMevz9SsrSGXkhtXsIjDeQ +a2RRXjgT+qXDhcBYVx8XA8ojtg57h9wJNBzOr15HubNQ4/HPQwQuK47utKRc +w7/ERMiHQOtVHUU2lHOdB4oU/QmsUbRcv43yuduV0gbBBJpZ3c74O+4rmnje +KoxATs7A7b/fOx7xmtv3D4En70df+js/NsNhvxgCQzp8DP6uryxP6z0bT6Bn +iOfVv/sTCR63zEgi8Ny8VvPf/f/sbK0uTSVwg0JKxd/zvVXPUWnOILBYbe/h +v+dvPRN8pSeHQO3ZrZ/+3k/pWzvB0QJqP8P66sWU04xVgxeSBH4f6jeKoxyR +snBYsozAW85Col6UvUZ7HdUqCfxsnVRuRtlm87+tUEutr2coL07ZIDd2rf09 +Kr6rWncNUfFdstOUduoRga3ct1qnKI+WSMRc7CCQxs//bAPll4LffuR3EdhU +b7FOkHLBncxX7QME5kcdS4qh8i1BirPp/XsCr3mO+a+nzDluc/vHZwKfej1V ++UXl60Zi/rLCJIFz6pNC+ykPxbnuPLGUiTnepS+XUPnuPaJO117OxJDrKg+K +qffxY9Pst28iTBSOCvu5g/Iy/qTTh6SZeDXLR+Ey9d60gxsrXDWYeMbVL212 +hIrny8QIOV0mBrMf58ZSXr/GybrfgIkHjhyflKa8c2zq/S5koqbxocM61Ps+ +5cEUt93BRI6QSwObqg9LGr8PLHdkYphRuFjNR+o9K9QXPXJi4nn3oGK9j3/r +5S5zC08m+ko0tMlR9eWR3bnj7GAmkv3OlV3vqHpp9rVDLZuJ057QX/+ahGtX +q64OX2diaFuumShlldlorxtcJl5JNf7p0k/V/wrZeXo5NV/piN90Lwluqraa +0s1MtK1NzeGj6m2pZHmcwBcmLvPPCk6j6rGxf5hjyxgT/YuvF9Q/JaHxmRUj +eoqJRrwkg6EOKj5x72vn/1D7VWVFEVQ9/71w5ZcZERbWZAu9jqH6geVYoOUH +AxaKR/JZPaf6xWoduTMCpiy8k1q+pfY+Fe8TTQ1q61jI9OW3unaPeq8zIqYn +trCw91933E/1m4E/hZrzLtR8kgFa9VS/OrG8X3zVORZqsCu+fykhYYNN1DbT +BBZe7OnVyysmQeqCcrxLMgvlXVwid98koU48YElBJgv9bkdsrC2i7ltGeFa3 +nIXVN3QS9uZT/VYFB6z7WPg7bRm/SDoJR498lPZ9y8JO2p2oK1T/hJtxu5I/ +sLCsf0ZOIZXKH+2epz1jLMw+TitjpJCgufZEo+ciZdy9/rnj/xKo+7HI40Zo +KKPREvdM20gSvroJ+FWEU+M9BzbXelDnzdpwpz5aGdf8NOz57kbCWE/E0sfn +lHFYIPI+6wAJ321nrw4mKyO/VEjGuX1UPpqMNAlzlVFAIiBNYxdVbyTaJA89 +VUYb91txPzaRsKopsUZWUQUbg56kprNI6v++1MKzDSqoWVFauusND4YPbOKa +PFDBo8pzLyVf8yAuJ9Bm/LEKNnzX//S8lwfP5brTd79QwScVix9ueskD11VX +9NQ/q6BcQmqR5BMeBAvLeDwTUsV/0jKK7Gp4QP6Ua5XZrYq93pYd5sk8EHvC +TCgdU8XN8ldK1gMP/hvTzn80pYoSi7UWWJryYETMpG5oVhU5z/fSrY140OBo +O0JbpIZVD+S6t+jxwG8o0CKSpoZkdKeODosHXb9a/7Nbp4b8R3i5KcI8SFU9 +4jOZpIZF1wcLWvqKYHVMyTYDA3V0dDWfp/kWQZqakYi4lwbW0Z8BI7kQHkmv +05+8qIlS+2YjY/K4YLy64YLWSy0sMXlaujX+Bgjz5/rvj9LG95mpfJHBBSAX +KW+6m6mDdBPNTybm+SBIOFVuf6CDrUduFa4VyANN9qqSQGddFEy/f3rtm1w4 +MSDWaMWnh3r/2k2IZ+TA2GScg2WaHp7lSPva+l6DTVot6ZYaa3BnsYEbZmbB +3UmTXz/a12B3M0e0zCADvNV1e5956KOudfAZ92XpwB5179otaIBuJlFeWc2p +sJFB2yqUa4Bmtktez929BMoR54MaDA1Rv97QvKo3GVQ9jOqJXkOkFw4YGo5c +BI+7B6Mrjq/FiI8j3I8GF6D+Wpf7xEojLI1QSHj3Ow6muPM/tG4bYSXXwamy +7xy4ETzB9K3GaFWx9eEr5bMwoZpsUD5ujA5hKbFrgqKhKu/X4HSMCa5tiz4R +qh4FezYooYmcKRpuLbIn5CJA5tjZas17plhl/HJdo3YorFx2tGzrLja6c+tv +WT8Mgrz1p06O72Yj/8PjMoM1QaB7KmF9shMbtdyi1oSSQWAzXvqiez8bXcaU +g1sSg+DMy+lZt6NsHP7mLMXbGQQ/c8PNT0ayUejU59/lHwKh1yT5eQGPjQFH +7AVKBQLhYEBehmUxG09LKrGkfnFgpviWx9dSNjJSBeqiv3FAjN79Q6eSjfEp +TujXyYEtArKr79xjo4XbXGhmBgfqugrcn79gI/GlR5zQ5YCVcJUGp5uN9PBr +vO8MDnRvejhD62MjTysgvUWKA1M1X2L2vWWjmWF4QOSfANDI0b45PEKtp352 +xPxhANT1ruPEfWPjRSedRevrAsBKYgdojbPxuK2dh2VJAHieDXjmP83Gax30 +mYOXAmDq3pl0qZ9snJb8qhgVEwBRc6luNXPU/Jf3xOeEBIDImkJ15z9s1L4b +bPDAOwCyjtVMz8+z0fmFvczk/gD4Pylng14= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4lG0XAHClhb7IFhPZxjwz9jVkGeekUiRSlIooWysKg8j2qpStUCRL +hIZ5sr2SrZQtlSipbCmlhcqSpahe39Nfc/2u+3ru7Zz7nFE84LPdYyEfHx// +Aj6+v78zAw+bGLF5Zo8sV1cF9BqYdWXRgtd1R0HD3CErckYCcGXHAVp3EgzI +7BI9NcMAzraiV/zduTA1Z8d0nVkDoqNSSbOvyiE7eHGg6cwGeFNn4zP1qgFu +ivpUv5i2BwvGyOuJV52gvkKny2bKHWZfGV4af/UOZGNUHM1G/aFx/Y28Z7mT +ECsiUB7z72lY/ab64wH1PyB1/cmO8d+JIHHUpWjpen6MOa1a+N9QCiTpWNTa +OAjgDw1z9+t86dCTpn1vQkQIXWqjF6yOyYLYvPCOhatE0WGUZhZ1MQekUt6f +S84UxxcHbsYO3bgOZ+0tzTpnVmKa8/Tbj9754GeU4/IwioaNjOfWB1VuwIax +uZPe76VRI9+qwiCFC8GbU1Tvf5XGGLaYzIErXCjO0egVn5HG4He/Tp7P4gLN +3tWoWkAGR/vHGZ1cLnytav7BrymDvk/zaOw7XEiOuuB/JUgGw5fvMIn8wIV3 +K5neTUKrcaP1f9739Aoh0tRuv/RaWay/EZ6x/EEhbN6X9d3QXBbvbx4dev64 +EIQjvvzjYC2LDQ3D51OfFkJG4+mCC66yWORbNireWwhVVjVflpyTxeUyvSsG +vxbCuKMSZ7JHFpWfLE5oEy2CfQHT59tC5JDf9oTdJ8ciMC6+UhFWL4/Z/Nre +RH8RbHjV/me0VR4/5G8cvPemCGz4Fm1y6ZRHY/2tjN3vi8Btu3cPfJDH8GRt +6YiRIrAIUQyPWKyA8kquzTd+FoGv/Mz1dWoKaLGWuXqfBA+avLK/NXIUMMvm +ygIvSx5Y/jYSCw1RQP3+1lMZ1jxov9BlsCZCAcXZgo/bbXnQUy0YkXdOAX1p +gj0qO3kw+j9/sdMZCnhwFzRXH+ABrXSzoUWDAk6xtn3HEB4c/TkR0SqkiB+F +7zp9K+SB8XFPyY9iiuhhVcGZJXkgMNLL46cpYvu7ra8WlPIgv6/xpRldET9Z +ah5bWsmDgbuX1G8ZKOJigjXx4T4PbE8bdee4KCInripmvJsHumKRWiFlimjC +PXaZvYgEvtjpprRKRewQjf7euYSEdv7DeyprFXGB8kCGuyAJR6a3n55oVkSF +8DOvQ4VJyOtm9Hn1KqLvtUnJSBoJktmtZ+z56di2WL2kW42EWTWRAQ0HOop+ +EmxusSVhJlM6Um8PHS94SGf325EwtYJgGLnQMa5eZGp0Bwmjk0aHNxyio+4i +QkTQkYR3tW4ze07R8eZjaxlxVxIebbktHJNPx33CnzvDfEh4cOd+WXwRHd8b +psc4HSehSavNPrmEjqty99Qb+JFwV3wwPauajqNe3LK3HBLK+5axbj2hY6im +0K1lYSSkH9kH76bpeJwxeOl2LAmprw+++zRHxz/P3iY4x5OQYut3+ts8HeVl +WlbwJZKQoBfz+KegEu55I8wzTiIh6lfZrhVySrhc2Mn+TBp1P7GLfU0tlDBe +Xbk3MI8EUx557fJlJRwWE5J6UE1CnwIve+NVJbyUFbBipIaEk5cLs6aylTB1 +91LRZXUk3I4syNheqISZ3S466+6SoOt4LU24TgnbV4lNxjaQoLI45cKZQSWs +/uj3OvkRCa0nkxL1PyphlrBy5tnHJHiOX0gYGlHCbZ70Y0FtVHz64uPMp5Rw +1vk+2LWToFB+Nua/JQysP8ete/OMipdLSARHnYEXt+SE+XaTcKsrOJzQYWDo +temT+j0k2FsFhXXpM1Aoj5H4g3KSfkCoLjCwqn/pAr8+EoSW+wSN2jFw2LuU +tmmABDLyWGDmTgY+cs8bnKJs9eMIx3ovA+1FDrVkvyEh5t1B/yJ3BmpKHPzw +9S0Ji6oP+HoGMnDmkvdZ9/ckXNfc77MylIESryXZvyib57l4N0UwcHVkrlji +EAnhiU5H6ecZ6Hc1QL74AwlzHjsPDmQwMLU9u/3hJxKu9Nl7xecwkH116qLl +ZxLW2u3wNC1g4ETW3uAWyhzTbe7pJQxsng+vvD1MwoSYlevOBgZab6bNBn4h +ofso/enhBwx0/5DJG6Z8r2UOwtsYeMvKaInjVxIunOTJc18y0GFhcKXqNxKC +uv5JrOtj4MPUKKFEyq6aTvNP3zJQMuToinHK2u+Wv5kdYaAMUS7JHSWBZvrB +RnicgYcGAmXnKfNdvnOXPk2NP5p4tn2MhA5L76wt8wxsj+q3GKdced1C2HUR +gaafagWMx0nI+iMX5i9IoB6pHhJB2buswzlTnMDB/nx//gkSdv6P+6SMRqD0 +ScU/QNnMI4LdIkugea+EUTBlZr3jzV46gcn8JiollIVW6ciOsQjsibdtH6Q8 +dUIwnl+DQPVcYRXR7yT0tw3+ltIlMHRujTGbchOz5qi6IYH2g+ELPSmTEUn9 +aEqgv87NqFjKKb2HrR3WERjlEFJ7k3LomvV1hywILNtUeLONsnuCjHrYFgLd +L87s/kx5y+fJq0nbCHxjpXSfb5LKd/O2/91wIHBMevz9SsrSGXkhtXsIjDeQ +a2RRXjgT+qXDhcBYVx8XA8ojtg57h9wJNBzOr15HubNQ4/HPQwQuK47utKRc +w7/ERMiHQOtVHUU2lHOdB4oU/QmsUbRcv43yuduV0gbBBJpZ3c74O+4rmnje +KoxATs7A7b/fOx7xmtv3D4En70df+js/NsNhvxgCQzp8DP6uryxP6z0bT6Bn +iOfVv/sTCR63zEgi8Ny8VvPf/f/sbK0uTSVwg0JKxd/zvVXPUWnOILBYbe/h +v+dvPRN8pSeHQO3ZrZ/+3k/pWzvB0QJqP8P66sWU04xVgxeSBH4f6jeKoxyR +snBYsozAW85Col6UvUZ7HdUqCfxsnVRuRtlm87+tUEutr2coL07ZIDd2rf09 +Kr6rWncNUfFdstOUduoRga3ct1qnKI+WSMRc7CCQxs//bAPll4LffuR3EdhU +b7FOkHLBncxX7QME5kcdS4qh8i1BirPp/XsCr3mO+a+nzDluc/vHZwKfej1V ++UXl60Zi/rLCJIFz6pNC+ykPxbnuPLGUiTnepS+XUPnuPaJO117OxJDrKg+K +qffxY9Pst28iTBSOCvu5g/Iy/qTTh6SZeDXLR+Ey9d60gxsrXDWYeMbVL212 +hIrny8QIOV0mBrMf58ZSXr/GybrfgIkHjhyflKa8c2zq/S5koqbxocM61Ps+ +5cEUt93BRI6QSwObqg9LGr8PLHdkYphRuFjNR+o9K9QXPXJi4nn3oGK9j3/r +5S5zC08m+ko0tMlR9eWR3bnj7GAmkv3OlV3vqHpp9rVDLZuJ057QX/+ahGtX +q64OX2diaFuumShlldlorxtcJl5JNf7p0k/V/wrZeXo5NV/piN90Lwluqraa +0s1MtK1NzeGj6m2pZHmcwBcmLvPPCk6j6rGxf5hjyxgT/YuvF9Q/JaHxmRUj +eoqJRrwkg6EOKj5x72vn/1D7VWVFEVQ9/71w5ZcZERbWZAu9jqH6geVYoOUH +AxaKR/JZPaf6xWoduTMCpiy8k1q+pfY+Fe8TTQ1q61jI9OW3unaPeq8zIqYn +trCw91933E/1m4E/hZrzLtR8kgFa9VS/OrG8X3zVORZqsCu+fykhYYNN1DbT +BBZe7OnVyysmQeqCcrxLMgvlXVwid98koU48YElBJgv9bkdsrC2i7ltGeFa3 +nIXVN3QS9uZT/VYFB6z7WPg7bRm/SDoJR498lPZ9y8JO2p2oK1T/hJtxu5I/ +sLCsf0ZOIZXKH+2epz1jLMw+TitjpJCgufZEo+ciZdy9/rnj/xKo+7HI40Zo +KKPREvdM20gSvroJ+FWEU+M9BzbXelDnzdpwpz5aGdf8NOz57kbCWE/E0sfn +lHFYIPI+6wAJ321nrw4mKyO/VEjGuX1UPpqMNAlzlVFAIiBNYxdVbyTaJA89 +VUYb91txPzaRsKopsUZWUQUbg56kprNI6v++1MKzDSqoWVFauusND4YPbOKa +PFDBo8pzLyVf8yAuJ9Bm/LEKNnzX//S8lwfP5brTd79QwScVix9ueskD11VX +9NQ/q6BcQmqR5BMeBAvLeDwTUsV/0jKK7Gp4QP6Ua5XZrYq93pYd5sk8EHvC +TCgdU8XN8ldK1gMP/hvTzn80pYoSi7UWWJryYETMpG5oVhU5z/fSrY140OBo +O0JbpIZVD+S6t+jxwG8o0CKSpoZkdKeODosHXb9a/7Nbp4b8R3i5KcI8SFU9 +4jOZpIZF1wcLWvqKYHVMyTYDA3V0dDWfp/kWQZqakYi4lwbW0Z8BI7kQHkmv +05+8qIlS+2YjY/K4YLy64YLWSy0sMXlaujX+Bgjz5/rvj9LG95mpfJHBBSAX +KW+6m6mDdBPNTybm+SBIOFVuf6CDrUduFa4VyANN9qqSQGddFEy/f3rtm1w4 +MSDWaMWnh3r/2k2IZ+TA2GScg2WaHp7lSPva+l6DTVot6ZYaa3BnsYEbZmbB +3UmTXz/a12B3M0e0zCADvNV1e5956KOudfAZ92XpwB5179otaIBuJlFeWc2p +sJFB2yqUa4Bmtktez929BMoR54MaDA1Rv97QvKo3GVQ9jOqJXkOkFw4YGo5c +BI+7B6Mrjq/FiI8j3I8GF6D+Wpf7xEojLI1QSHj3Ow6muPM/tG4bYSXXwamy +7xy4ETzB9K3GaFWx9eEr5bMwoZpsUD5ujA5hKbFrgqKhKu/X4HSMCa5tiz4R +qh4FezYooYmcKRpuLbIn5CJA5tjZas17plhl/HJdo3YorFx2tGzrLja6c+tv +WT8Mgrz1p06O72Yj/8PjMoM1QaB7KmF9shMbtdyi1oSSQWAzXvqiez8bXcaU +g1sSg+DMy+lZt6NsHP7mLMXbGQQ/c8PNT0ayUejU59/lHwKh1yT5eQGPjQFH +7AVKBQLhYEBehmUxG09LKrGkfnFgpviWx9dSNjJSBeqiv3FAjN79Q6eSjfEp +TujXyYEtArKr79xjo4XbXGhmBgfqugrcn79gI/GlR5zQ5YCVcJUGp5uN9PBr +vO8MDnRvejhD62MjTysgvUWKA1M1X2L2vWWjmWF4QOSfANDI0b45PEKtp352 +xPxhANT1ruPEfWPjRSedRevrAsBKYgdojbPxuK2dh2VJAHieDXjmP83Gax30 +mYOXAmDq3pl0qZ9snJb8qhgVEwBRc6luNXPU/Jf3xOeEBIDImkJ15z9s1L4b +bPDAOwCyjtVMz8+z0fmFvczk/gD4Pylng14= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.056543834889967795`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.056543834889967795`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4lG0XAHClhb7IFhPZxjwz9jVkGeekUiRSlIooWysKg8j2qpStUCRL +hIZ5sr2SrZQtlSipbCmlhcqSpahe39Nfc/2u+3ru7Zz7nFE84LPdYyEfHx// +Aj6+v78zAw+bGLF5Zo8sV1cF9BqYdWXRgtd1R0HD3CErckYCcGXHAVp3EgzI +7BI9NcMAzraiV/zduTA1Z8d0nVkDoqNSSbOvyiE7eHGg6cwGeFNn4zP1qgFu +ivpUv5i2BwvGyOuJV52gvkKny2bKHWZfGV4af/UOZGNUHM1G/aFx/Y28Z7mT +ECsiUB7z72lY/ab64wH1PyB1/cmO8d+JIHHUpWjpen6MOa1a+N9QCiTpWNTa +OAjgDw1z9+t86dCTpn1vQkQIXWqjF6yOyYLYvPCOhatE0WGUZhZ1MQekUt6f +S84UxxcHbsYO3bgOZ+0tzTpnVmKa8/Tbj9754GeU4/IwioaNjOfWB1VuwIax +uZPe76VRI9+qwiCFC8GbU1Tvf5XGGLaYzIErXCjO0egVn5HG4He/Tp7P4gLN +3tWoWkAGR/vHGZ1cLnytav7BrymDvk/zaOw7XEiOuuB/JUgGw5fvMIn8wIV3 +K5neTUKrcaP1f9739Aoh0tRuv/RaWay/EZ6x/EEhbN6X9d3QXBbvbx4dev64 +EIQjvvzjYC2LDQ3D51OfFkJG4+mCC66yWORbNireWwhVVjVflpyTxeUyvSsG +vxbCuKMSZ7JHFpWfLE5oEy2CfQHT59tC5JDf9oTdJ8ciMC6+UhFWL4/Z/Nre +RH8RbHjV/me0VR4/5G8cvPemCGz4Fm1y6ZRHY/2tjN3vi8Btu3cPfJDH8GRt +6YiRIrAIUQyPWKyA8kquzTd+FoGv/Mz1dWoKaLGWuXqfBA+avLK/NXIUMMvm +ygIvSx5Y/jYSCw1RQP3+1lMZ1jxov9BlsCZCAcXZgo/bbXnQUy0YkXdOAX1p +gj0qO3kw+j9/sdMZCnhwFzRXH+ABrXSzoUWDAk6xtn3HEB4c/TkR0SqkiB+F +7zp9K+SB8XFPyY9iiuhhVcGZJXkgMNLL46cpYvu7ra8WlPIgv6/xpRldET9Z +ah5bWsmDgbuX1G8ZKOJigjXx4T4PbE8bdee4KCInripmvJsHumKRWiFlimjC +PXaZvYgEvtjpprRKRewQjf7euYSEdv7DeyprFXGB8kCGuyAJR6a3n55oVkSF +8DOvQ4VJyOtm9Hn1KqLvtUnJSBoJktmtZ+z56di2WL2kW42EWTWRAQ0HOop+ +EmxusSVhJlM6Um8PHS94SGf325EwtYJgGLnQMa5eZGp0Bwmjk0aHNxyio+4i +QkTQkYR3tW4ze07R8eZjaxlxVxIebbktHJNPx33CnzvDfEh4cOd+WXwRHd8b +psc4HSehSavNPrmEjqty99Qb+JFwV3wwPauajqNe3LK3HBLK+5axbj2hY6im +0K1lYSSkH9kH76bpeJwxeOl2LAmprw+++zRHxz/P3iY4x5OQYut3+ts8HeVl +WlbwJZKQoBfz+KegEu55I8wzTiIh6lfZrhVySrhc2Mn+TBp1P7GLfU0tlDBe +Xbk3MI8EUx557fJlJRwWE5J6UE1CnwIve+NVJbyUFbBipIaEk5cLs6aylTB1 +91LRZXUk3I4syNheqISZ3S466+6SoOt4LU24TgnbV4lNxjaQoLI45cKZQSWs +/uj3OvkRCa0nkxL1PyphlrBy5tnHJHiOX0gYGlHCbZ70Y0FtVHz64uPMp5Rw +1vk+2LWToFB+Nua/JQysP8ete/OMipdLSARHnYEXt+SE+XaTcKsrOJzQYWDo +temT+j0k2FsFhXXpM1Aoj5H4g3KSfkCoLjCwqn/pAr8+EoSW+wSN2jFw2LuU +tmmABDLyWGDmTgY+cs8bnKJs9eMIx3ovA+1FDrVkvyEh5t1B/yJ3BmpKHPzw +9S0Ji6oP+HoGMnDmkvdZ9/ckXNfc77MylIESryXZvyib57l4N0UwcHVkrlji +EAnhiU5H6ecZ6Hc1QL74AwlzHjsPDmQwMLU9u/3hJxKu9Nl7xecwkH116qLl +ZxLW2u3wNC1g4ETW3uAWyhzTbe7pJQxsng+vvD1MwoSYlevOBgZab6bNBn4h +ofso/enhBwx0/5DJG6Z8r2UOwtsYeMvKaInjVxIunOTJc18y0GFhcKXqNxKC +uv5JrOtj4MPUKKFEyq6aTvNP3zJQMuToinHK2u+Wv5kdYaAMUS7JHSWBZvrB +RnicgYcGAmXnKfNdvnOXPk2NP5p4tn2MhA5L76wt8wxsj+q3GKdced1C2HUR +gaafagWMx0nI+iMX5i9IoB6pHhJB2buswzlTnMDB/nx//gkSdv6P+6SMRqD0 +ScU/QNnMI4LdIkugea+EUTBlZr3jzV46gcn8JiollIVW6ciOsQjsibdtH6Q8 +dUIwnl+DQPVcYRXR7yT0tw3+ltIlMHRujTGbchOz5qi6IYH2g+ELPSmTEUn9 +aEqgv87NqFjKKb2HrR3WERjlEFJ7k3LomvV1hywILNtUeLONsnuCjHrYFgLd +L87s/kx5y+fJq0nbCHxjpXSfb5LKd/O2/91wIHBMevz9SsrSGXkhtXsIjDeQ +a2RRXjgT+qXDhcBYVx8XA8ojtg57h9wJNBzOr15HubNQ4/HPQwQuK47utKRc +w7/ERMiHQOtVHUU2lHOdB4oU/QmsUbRcv43yuduV0gbBBJpZ3c74O+4rmnje +KoxATs7A7b/fOx7xmtv3D4En70df+js/NsNhvxgCQzp8DP6uryxP6z0bT6Bn +iOfVv/sTCR63zEgi8Ny8VvPf/f/sbK0uTSVwg0JKxd/zvVXPUWnOILBYbe/h +v+dvPRN8pSeHQO3ZrZ/+3k/pWzvB0QJqP8P66sWU04xVgxeSBH4f6jeKoxyR +snBYsozAW85Col6UvUZ7HdUqCfxsnVRuRtlm87+tUEutr2coL07ZIDd2rf09 +Kr6rWncNUfFdstOUduoRga3ct1qnKI+WSMRc7CCQxs//bAPll4LffuR3EdhU +b7FOkHLBncxX7QME5kcdS4qh8i1BirPp/XsCr3mO+a+nzDluc/vHZwKfej1V ++UXl60Zi/rLCJIFz6pNC+ykPxbnuPLGUiTnepS+XUPnuPaJO117OxJDrKg+K +qffxY9Pst28iTBSOCvu5g/Iy/qTTh6SZeDXLR+Ey9d60gxsrXDWYeMbVL212 +hIrny8QIOV0mBrMf58ZSXr/GybrfgIkHjhyflKa8c2zq/S5koqbxocM61Ps+ +5cEUt93BRI6QSwObqg9LGr8PLHdkYphRuFjNR+o9K9QXPXJi4nn3oGK9j3/r +5S5zC08m+ko0tMlR9eWR3bnj7GAmkv3OlV3vqHpp9rVDLZuJ057QX/+ahGtX +q64OX2diaFuumShlldlorxtcJl5JNf7p0k/V/wrZeXo5NV/piN90Lwluqraa +0s1MtK1NzeGj6m2pZHmcwBcmLvPPCk6j6rGxf5hjyxgT/YuvF9Q/JaHxmRUj +eoqJRrwkg6EOKj5x72vn/1D7VWVFEVQ9/71w5ZcZERbWZAu9jqH6geVYoOUH +AxaKR/JZPaf6xWoduTMCpiy8k1q+pfY+Fe8TTQ1q61jI9OW3unaPeq8zIqYn +trCw91933E/1m4E/hZrzLtR8kgFa9VS/OrG8X3zVORZqsCu+fykhYYNN1DbT +BBZe7OnVyysmQeqCcrxLMgvlXVwid98koU48YElBJgv9bkdsrC2i7ltGeFa3 +nIXVN3QS9uZT/VYFB6z7WPg7bRm/SDoJR498lPZ9y8JO2p2oK1T/hJtxu5I/ +sLCsf0ZOIZXKH+2epz1jLMw+TitjpJCgufZEo+ciZdy9/rnj/xKo+7HI40Zo +KKPREvdM20gSvroJ+FWEU+M9BzbXelDnzdpwpz5aGdf8NOz57kbCWE/E0sfn +lHFYIPI+6wAJ321nrw4mKyO/VEjGuX1UPpqMNAlzlVFAIiBNYxdVbyTaJA89 +VUYb91txPzaRsKopsUZWUQUbg56kprNI6v++1MKzDSqoWVFauusND4YPbOKa +PFDBo8pzLyVf8yAuJ9Bm/LEKNnzX//S8lwfP5brTd79QwScVix9ueskD11VX +9NQ/q6BcQmqR5BMeBAvLeDwTUsV/0jKK7Gp4QP6Ua5XZrYq93pYd5sk8EHvC +TCgdU8XN8ldK1gMP/hvTzn80pYoSi7UWWJryYETMpG5oVhU5z/fSrY140OBo +O0JbpIZVD+S6t+jxwG8o0CKSpoZkdKeODosHXb9a/7Nbp4b8R3i5KcI8SFU9 +4jOZpIZF1wcLWvqKYHVMyTYDA3V0dDWfp/kWQZqakYi4lwbW0Z8BI7kQHkmv +05+8qIlS+2YjY/K4YLy64YLWSy0sMXlaujX+Bgjz5/rvj9LG95mpfJHBBSAX +KW+6m6mDdBPNTybm+SBIOFVuf6CDrUduFa4VyANN9qqSQGddFEy/f3rtm1w4 +MSDWaMWnh3r/2k2IZ+TA2GScg2WaHp7lSPva+l6DTVot6ZYaa3BnsYEbZmbB +3UmTXz/a12B3M0e0zCADvNV1e5956KOudfAZ92XpwB5179otaIBuJlFeWc2p +sJFB2yqUa4Bmtktez929BMoR54MaDA1Rv97QvKo3GVQ9jOqJXkOkFw4YGo5c +BI+7B6Mrjq/FiI8j3I8GF6D+Wpf7xEojLI1QSHj3Ow6muPM/tG4bYSXXwamy +7xy4ETzB9K3GaFWx9eEr5bMwoZpsUD5ujA5hKbFrgqKhKu/X4HSMCa5tiz4R +qh4FezYooYmcKRpuLbIn5CJA5tjZas17plhl/HJdo3YorFx2tGzrLja6c+tv +WT8Mgrz1p06O72Yj/8PjMoM1QaB7KmF9shMbtdyi1oSSQWAzXvqiez8bXcaU +g1sSg+DMy+lZt6NsHP7mLMXbGQQ/c8PNT0ayUejU59/lHwKh1yT5eQGPjQFH +7AVKBQLhYEBehmUxG09LKrGkfnFgpviWx9dSNjJSBeqiv3FAjN79Q6eSjfEp +TujXyYEtArKr79xjo4XbXGhmBgfqugrcn79gI/GlR5zQ5YCVcJUGp5uN9PBr +vO8MDnRvejhD62MjTysgvUWKA1M1X2L2vWWjmWF4QOSfANDI0b45PEKtp352 +xPxhANT1ruPEfWPjRSedRevrAsBKYgdojbPxuK2dh2VJAHieDXjmP83Gax30 +mYOXAmDq3pl0qZ9snJb8qhgVEwBRc6luNXPU/Jf3xOeEBIDImkJ15z9s1L4b +bPDAOwCyjtVMz8+z0fmFvczk/gD4Pylng14= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.056543834889967795`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.056543834889967795`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994257540031559*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"8d225a3f-9689-4a38-b1f4-c2f2022b9184"] +}, Open ]], Cell[CellGroupData[{ @@ -7503,14 +7845,12 @@ Cell[BoxData[ FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.9918497405884743`*^9},ExpressionUUID->"650e43f8-1352-de46-8137-\ -52adca93b0cf"], + CellChangeTimes->{3.9918497405884743`*^9}, + CellLabel->"In[98]:=",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], -Cell[BoxData["12.55365498952246`"], "Output", - CellChangeTimes->{3.991340544411957*^9}, - CellLabel-> - "Out[337]=",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +Cell[BoxData["13.85365041840362`"], "Output", + CellChangeTimes->{3.991340544411957*^9, 3.994257540076261*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"2266310a-22fa-406e-8637-bb34247786d1"] }, Open ]], Cell[CellGroupData[{ @@ -7566,157 +7906,158 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849742961588*^9},ExpressionUUID->"9ad75b45-8f6d-114b-80bd-\ -d2b12a49fd20"], + CellChangeTimes->{3.991849742961588*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 338, 341, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340544611845*^9}, - CellLabel-> - "During evaluation of \ -In[338]:=",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.1195376793511539`*^-262\\\", \ \\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 338, 342, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913405446218624`*^9}, + 2, 99, 13, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340544611845*^9, 3.994257540208971*^9}, CellLabel-> "During evaluation of \ -In[338]:=",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], +In[99]:=",ExpressionUUID->"eada4eba-9e22-49a4-96fd-d7dae60bb8f8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.224084379146686`*^-272\\\", \ \\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 338, 343, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340544630844*^9}, +\"", 2, 99, 14, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340544611845*^9, 3.9942575402189837`*^9}, CellLabel-> "During evaluation of \ -In[338]:=",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], +In[99]:=",ExpressionUUID->"4df9f690-e43e-4548-a3f5-b54bd40f670c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.4183875333531825`*^-282\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 99, 15, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340544611845*^9, 3.99425754022908*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"665bfb04-8444-4537-9b53-a7cc8c56d199"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 338, 344, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340544639845*^9}, +during this calculation.\"", 2, 99, 16, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340544611845*^9, 3.994257540241481*^9}, CellLabel-> "During evaluation of \ -In[338]:=",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], +In[99]:=",ExpressionUUID->"e322a12d-385e-45c9-bfd5-ffdaeee950ed"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk -DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE -i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 -tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM -NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S -RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB -j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd -kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT -u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 -T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j -8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm -bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg -k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl -UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd -5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 -sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 -1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK -Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS -vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH -Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ -Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL -C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf -8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 -oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT -7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW -mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 -6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe -8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 -us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 -0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm -3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v -K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU -+23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY -e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im -r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K -iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac -p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M -knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS -9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq -K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK -Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh -+wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD -LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq -cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl -x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji -J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX -9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d -T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR -GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE -YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q -eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 -nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB -i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 -UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC -4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ -+qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d -UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M -6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l -wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW -ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt -UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry -tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP -3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz -PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP -crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z -fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT -KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 -dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq -RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf -auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY -+xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD -3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause -loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G -+BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu -LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ -KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv -7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw -ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN -RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg -k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp -oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx -8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x -UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ -GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa -jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 -svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 -GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf -aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj -C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1mk4VW0XB3APEj1ICCnTcfY+5pCU4VhLQiRDg1RSkTQoGVKkDJEhkiEq +GUPH2UeptzJHVGigwSyVkkoZyhQq734+7Gtfv0977XXf638tFXefjZ78fHx8 +f+nnv/fk26aHzHP5Zk2Kdx4nRK00a82SCzLvjIAT3b5SE9VSgItb3OU6k+HS +/SUljdWqEOjI7RDozINr7oVNxdUrYNGwbPJ0x21os/Q5k1BtAe+q7H3GO+pA +w2bvYv3qTWDFHOz90fEKPD7ImXdUesB0x6qLox0fIDrLwzLwnj/UW1zPf5k3 +BtZPkqRafCNh2bvyAXetP2CS615oQZ4Hae9d3PkWAuj3Y53v3TspkKxnVWm/ +RRh3ZO7xPnbuEnRd0q39ISGGxSJRJg5dV+FcfmgL/5JFePzoyGrp7ByQTf0Y +m5IphcMduzNzsvMgerON2avJxTgZUzvQ4JwP/ka5u5oi5NB6MC3HbF4hrB2Z +CT7yUR4F+64xHxy4DuGmTnvkVytgbw2Df2EGB9a5Zf1ctUYBy4033urK5oB4 +2LczW+wUMOQnQyo3nwNX66MKL+xWQMUmzhBxgwNlthXfhGIV8J9y/6n5Dzgw +6qIaONalgN/qOtS1Bzjgdmwi7tlJRXyxLPH8jHYRGN+4fOd0jRIGKj7uTf9f +EaztaP4z3KiEuzVqJ21Ki8CeT9B61yslXORYQ05XFIHHxiNd8EkJT2DKU/u6 +IrA6qRIaNk8ZOdbLWB0viuCo0uQ1c01ltHd+utR1qAgeemUP1Qcq46XSqEZD +JhdsfhtJhpxUxgyF7SXnWFxovtBqaBCmjIK/D93o1eBCV7lIWH6sMh7s2zh0 +Qo8Lw/8GSEZdVcaNammB8WZckCtZt8qqThkXvhqvZLlwwfvXj7BGMRWM/V25 +ZXksF4x998kMSKrgYKdS9b54LggPdlMCcip44XxH+ZVELhT01LebMVTwwHiB +/6+LXHh7/6LWXUMVHLie9S0ujwsOUUadubtU8L37FiHRSi7oS4YvP3lLBTMW +3GgP/coFvnMTDy/dU8FwR0XS9jtdv8DB7fcqVfDw5q0LF41w4dDExqgfj1RQ +V73vZuo4F/I7mT1e3Spo2lak4z/HBZnsxrObBRjYwPnHMUGagmlNibfaWxgo +vNO9eJUpBZOZ8uErtjNwfO9YUpwZBeMLCabRLgYKSj837EYKhseMDq49wMBz +VrvrfCwp+FDpMbn9FAPf9Tl98ben4Mn6UvGYAgbeFWmi3u+i4MohN/gwwcBD +d8Kl7cMoSO/d/+HzDAOnwgrijSIoSHXwjxqaY6Bjq3ezSiQF51fEPP0loopm +4sYlX6IpiJi9tXWhoiq6GJpOOiRScOjcvKOmVqrIN8vuisykwJTi5aSlqeLe +SKWouFIKepSpbMsMVaTKSqsnyigITivKGs9WxdhNuNKtgoLS8MKrG4tU8Zqo +/weymgJ9l5xL4lWqyPrCMUuvo0B9XuqFs32qmKoraTv+jILG4OTElQOqeEb/ +7+UVzRTsG71wvn+Qroe7QedoCwX5PQnxa8ZVkVMUQfS9pED5dnTMXyEmvrOx +d8lrp0Bm18mwQC0mDnXJquS9o+Bua1AoocfEgINlH+6+p2Cz7YnTrSuZ+Pll +xvDjPgqSVx4L0QcmDiTcGnj/kQIxUZ8Tw05MXJL3xn38MwWC5e5H9x1nol8C +58PlEQqu6ezxWRzCxH3KEscjRilYk7/ryMMwJrbnCbju/0FBaKKrNyOOiVYj +Oku0xiiY8XTe//YqE88elvBOmaTgh6Ttbuc6Jj7xWvay7zcFnd6MFwcbmOjb +wk28+YeC2sczEPqMifG5PtrBfym4EEwpcdqZaJ/6QliIjwe6H0TfTQ8yccOO +YPtf/DyQM/1kLz7KxOLRNTLFAjzgS6u+z5hgotCisgdugjxosTmStX6Oie/1 +hh6VzePBkVstOzOlCNQLjEqxFuaB87+c57fkCLxK3or5SNvMM4z9WIHATEpl +X4gID8SW6CmMsAicdmO9yV/AA15Y8hs0JdDvK/vRC1EepHYftNtiTuALsXli +m8V4EGJgUXXAisBXo0/MW2mv/zKWkexIoN2j8oCn4jwYdNiyo38vgSyQWHRR +ggevirSf/jpAIOFw7+Uc7QoBIRMxHwLjFAwjvRbxILb0nrxhEIHu6sYPtCV5 +cHRRYpztaQKtLWft4mm7HPKacTtDYEvPwuefaaspyXVHJxAoXX+bd1GKBxJB +ozZXkwlMmwkX+0L716vG8pJ0Av8XRHqukuZB49mgy125BBZkBs4+o13y3klk +uJBASs3LRGoxDy4ZawTx8wjc0HAvwJm213C3i+Y9Anlh/O2vaduv+18jVBJo +eMJ6TkyGB4Z551ZvriXQ1vQU05K24m8Pzv5H9P8F2lgF0RZyNpU79YRAV7uN +nlzawzelY5JaCLzpbhbRSbtdZGiqoJXA6113MgVkeVBYndnR/JbAQ93vXjnS +Pi8baP3xI4HyUp+G/GgH+tqXTn0hMF1EZkEybbenJEt0mMBA22VqN2hbEnNp +ymMEevbmrmugrRXaIbTyF4HzLJ28e2lLd90MtPlDn+fptpRR2r/1YwZ28pOo +9093DZ8cD/rjdzv7zScx6/6CH2K0jwxqMXRFSSxPjk2SpT1lPT00JEFi++fL +VxRphxU8KqcWk/iL1yiqSnuBQHLUAXkSRbWvfWHSTt3t5sRSInGfeKnOf1a4 +r6HwSZXEpo3J75RpFy6d+pKnRqLk1vpZedq6QfV3dmuTqPy684wk7Yr2xDBF +fRKDuvacmE/bwsDV7o0hiWs6hrqm6fqfJanJXTEhsTdFtOgrbeeR8Y9bkcQO +XfuBdtrv7R7cXGxJYpG6RfID2ge5CSdf25B4ZlNIcRHt8fnbrZPsSRTvjVud +SPuUJynlsInE9fZ8Bv/1W6j+51tRFxLtYo7kbKR9QbmG+8SVxLmHXqd1acuf +PhcYs4dE2fTTzf/Szu/ZusZqH4kFXy2T+unz1TFiigseInEBn1NDBe3StNGu +Bz4kPj+2wvc87SdOsb7sIBJl8psZOrQ339zCnj1F4k+bEs0Z+r71ijJEyiNI +dFav5NbTHm2oyDGIJ5GlkyfmQFvG7HuLZjaJWv5Kx63p+5yTUZbx9Rrdv8Lb +5nP0/VefjvS6zqH7s0A1+g5t0zsKc4zbJN6rn42Upe2h4aAj/4jE+3PmO2vo ++fsevXSmo4nET8d8F3rQDvz0+dHFZvr73tbmgrTjcsJ2Luok8UKNEwn0/JbI +3I4X/kbitpC3Qun0vBsHnHZ5PEKiA2nWQNKuf2nLjBwnsSaWIXqHzof2+I+V +c39IbC0dJhroPPnNv/jbpAQLt6n2cFvovLEZOW7zyZCFsarmUQeFeLBMT/Gs +sCkLy+2GxB/TeTbs97BO05yFU+KmFYq0UyclTP3Ws1A5a/ZEA52Hb/8U6czt +YqGq3u3iSTo//UTfSC2JZaGXWRv32QwFa+0jHE3Ps7A/f0fJzDQFshfUEnal +sDCqK7OfoF0ldUyoMJOFDTbcN/5TFAgtFZ/Wv83C19M2jGE636+o41u7HhZK +/CFrXb9T4H1oQP7oexY+VmHJuH2jAIrjt6Z8YmHzXg+O6yAF/bpdL7pGWBgz +9ifS6QsFOqv96vcJqqGC0QtD+X4K6q3yOWHaarhnxXMztR4KvnsI+98JVcNr +2Wn87AZ6H8haW10TqYZlPm3Phx5RMNIVNv9prBqSO8dErj6k4KfDdEZfihp6 +dxp2jj6gYMpk8KE4Rw1tvrX1n6yigF/6mcyBF2roEW0VKneLgiUPEysUVNQx +XcGvxfcSBfJzTwXVSXUMeP3G41UaBcuMhR0MNNXR1EAsSvciBYolYR9tV6qj +/XoH309JFDCv+oqesFHH0pztC/TPUaAbsMntla86TtaFz996iqL3c1n+6Dp1 +9IrIO9NO7ydf3a05Jg3q2EFVnf3XjYL43OP2o0/VsVZfLdzMlYLXip1XtrWp +46KRn25ZLhTsXnJ5hdYXdYxyc3tt6URBkPhSz5diGtj01HWdwRoKeL8UG5du +08BnevG3UxkUSD4nz5eMaGCihEjC+V4u/B3RLXgyroE1FcaGMj1cGJQ0qeqf +1sCt0853Mzq5UOfiMCgnqIl97M1GOa+54N9/3CpcThMJgcSAxCYutM42/nUy +10SVyb+X59/lQrrGIZ+xZE18qryy3DOOC8tibjoaGmrhZbvsWMnlXLikaSQh +5aWNWkfZiYFHi+CJvPnKsSQdDCMDLP5mccB4Wd2F5e3LsXyilWNUeB3EBfIC +9kTookuVmalHcSEohiuZbiP18FqPXIBbUgGIEK73NjboYcKb10ubffJBh73k +5vGd+rinYimxZcc18HsrWW/LtwK72XNrn2nmwchY/BabSytQ2PK6x/2FuWC9 +/PEVG20DlO9UTPk9kQ33x0xmp5oNMDedP3WmIBOOaOl3v/RciSLKSb4FsRnA +Ht7buk3EEC0biKZux8tgyZTbIJZniFbpp49yHdNBLSzuRN2qVSges+li2pGL +oOFpVEN0r8JUx/1NK0JSwPP+/sg7vqvxuLCZa2x9EtTktO79sdgI9x87t771 +nwswzpmbWl5qhIdzT+5wfBIPHgQlcmWDMT5R1/Tc+zsWfmikGN4eNUbP4dSy +IxrRUJY/2zcRY4IvFk7/4VVFwva1qmiiaIrPRheO/YiLgKWHo8t1ak3Ra2vF +3NqdYbB4gfetDVvZaFzbMzB//inItzgVPLqNjUrlz2Wtp0JA/9R5ixRXNq7v +/zQe/zkE7EdL2jr3sHFyl1uxVmMInG2fmPbwZqNJvdr3ytgQ+JUXuiY4nI2m +25dbyomHQLdJyutCio2xPvcOVi89CfuP5V+1ucHGD9Hy8i2iJ2Hyxl3P7yVs +vNzrYvH5TzBIMjqn9O6xsblp5rfG+2BYL6ywrLqWjZXpne/m8oOhqrVw7+s2 +NrYdK5vpXR4MtuJl2oGdbLToPXXWWSUYOq2bJuV62BhQZOnXJhkM4xXfYtze +s/HSyFaPgYkg0M7VLf46yMYXZ16e2lwVBFXd5oHxQ2z8uHKqZ644CGylN8Hy +UTbaLBZNuJUdBPuij70MmGDj1SN+fawzQTBee/aK7C82HgoPDv8eEAQRM+ke +FTNs9Bt/e7h0XxBIGBRp7fzDRlvWTH6MSxBkHa6YmJtjY+hSkthtGwT/Bwy+ +NeE= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7730,116 +8071,114 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk -DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE -i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 -tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM -NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S -RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB -j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd -kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT -u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 -T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j -8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm -bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg -k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl -UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd -5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 -sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 -1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK -Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS -vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH -Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ -Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL -C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf -8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 -oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT -7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW -mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 -6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe -8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 -us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 -0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm -3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v -K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU -+23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY -e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im -r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K -iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac -p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M -knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS -9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq -K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK -Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh -+wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD -LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq -cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl -x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji -J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX -9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d -T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR -GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE -YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q -eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 -nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB -i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 -UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC -4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ -+qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d -UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M -6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l -wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW -ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt -UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry -tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP -3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz -PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP -crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z -fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT -KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 -dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq -RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf -auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY -+xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD -3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause -loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G -+BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu -LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ -KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv -7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw -ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN -RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg -k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp -oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx -8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x -UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ -GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa -jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 -svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 -GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf -aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj -C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== +1:eJwV1mk4VW0XB3APEj1ICCnTcfY+5pCU4VhLQiRDg1RSkTQoGVKkDJEhkiEq +GUPH2UeptzJHVGigwSyVkkoZyhQq734+7Gtfv0977XXf638tFXefjZ78fHx8 +f+nnv/fk26aHzHP5Zk2Kdx4nRK00a82SCzLvjIAT3b5SE9VSgItb3OU6k+HS +/SUljdWqEOjI7RDozINr7oVNxdUrYNGwbPJ0x21os/Q5k1BtAe+q7H3GO+pA +w2bvYv3qTWDFHOz90fEKPD7ImXdUesB0x6qLox0fIDrLwzLwnj/UW1zPf5k3 +BtZPkqRafCNh2bvyAXetP2CS615oQZ4Hae9d3PkWAuj3Y53v3TspkKxnVWm/ +RRh3ZO7xPnbuEnRd0q39ISGGxSJRJg5dV+FcfmgL/5JFePzoyGrp7ByQTf0Y +m5IphcMduzNzsvMgerON2avJxTgZUzvQ4JwP/ka5u5oi5NB6MC3HbF4hrB2Z +CT7yUR4F+64xHxy4DuGmTnvkVytgbw2Df2EGB9a5Zf1ctUYBy4033urK5oB4 +2LczW+wUMOQnQyo3nwNX66MKL+xWQMUmzhBxgwNlthXfhGIV8J9y/6n5Dzgw +6qIaONalgN/qOtS1Bzjgdmwi7tlJRXyxLPH8jHYRGN+4fOd0jRIGKj7uTf9f +EaztaP4z3KiEuzVqJ21Ki8CeT9B61yslXORYQ05XFIHHxiNd8EkJT2DKU/u6 +IrA6qRIaNk8ZOdbLWB0viuCo0uQ1c01ltHd+utR1qAgeemUP1Qcq46XSqEZD +JhdsfhtJhpxUxgyF7SXnWFxovtBqaBCmjIK/D93o1eBCV7lIWH6sMh7s2zh0 +Qo8Lw/8GSEZdVcaNammB8WZckCtZt8qqThkXvhqvZLlwwfvXj7BGMRWM/V25 +ZXksF4x998kMSKrgYKdS9b54LggPdlMCcip44XxH+ZVELhT01LebMVTwwHiB +/6+LXHh7/6LWXUMVHLie9S0ujwsOUUadubtU8L37FiHRSi7oS4YvP3lLBTMW +3GgP/coFvnMTDy/dU8FwR0XS9jtdv8DB7fcqVfDw5q0LF41w4dDExqgfj1RQ +V73vZuo4F/I7mT1e3Spo2lak4z/HBZnsxrObBRjYwPnHMUGagmlNibfaWxgo +vNO9eJUpBZOZ8uErtjNwfO9YUpwZBeMLCabRLgYKSj837EYKhseMDq49wMBz +VrvrfCwp+FDpMbn9FAPf9Tl98ben4Mn6UvGYAgbeFWmi3u+i4MohN/gwwcBD +d8Kl7cMoSO/d/+HzDAOnwgrijSIoSHXwjxqaY6Bjq3ezSiQF51fEPP0loopm +4sYlX6IpiJi9tXWhoiq6GJpOOiRScOjcvKOmVqrIN8vuisykwJTi5aSlqeLe +SKWouFIKepSpbMsMVaTKSqsnyigITivKGs9WxdhNuNKtgoLS8MKrG4tU8Zqo +/weymgJ9l5xL4lWqyPrCMUuvo0B9XuqFs32qmKoraTv+jILG4OTElQOqeEb/ +7+UVzRTsG71wvn+Qroe7QedoCwX5PQnxa8ZVkVMUQfS9pED5dnTMXyEmvrOx +d8lrp0Bm18mwQC0mDnXJquS9o+Bua1AoocfEgINlH+6+p2Cz7YnTrSuZ+Pll +xvDjPgqSVx4L0QcmDiTcGnj/kQIxUZ8Tw05MXJL3xn38MwWC5e5H9x1nol8C +58PlEQqu6ezxWRzCxH3KEscjRilYk7/ryMMwJrbnCbju/0FBaKKrNyOOiVYj +Oku0xiiY8XTe//YqE88elvBOmaTgh6Ttbuc6Jj7xWvay7zcFnd6MFwcbmOjb +wk28+YeC2sczEPqMifG5PtrBfym4EEwpcdqZaJ/6QliIjwe6H0TfTQ8yccOO +YPtf/DyQM/1kLz7KxOLRNTLFAjzgS6u+z5hgotCisgdugjxosTmStX6Oie/1 +hh6VzePBkVstOzOlCNQLjEqxFuaB87+c57fkCLxK3or5SNvMM4z9WIHATEpl +X4gID8SW6CmMsAicdmO9yV/AA15Y8hs0JdDvK/vRC1EepHYftNtiTuALsXli +m8V4EGJgUXXAisBXo0/MW2mv/zKWkexIoN2j8oCn4jwYdNiyo38vgSyQWHRR +ggevirSf/jpAIOFw7+Uc7QoBIRMxHwLjFAwjvRbxILb0nrxhEIHu6sYPtCV5 +cHRRYpztaQKtLWft4mm7HPKacTtDYEvPwuefaaspyXVHJxAoXX+bd1GKBxJB +ozZXkwlMmwkX+0L716vG8pJ0Av8XRHqukuZB49mgy125BBZkBs4+o13y3klk +uJBASs3LRGoxDy4ZawTx8wjc0HAvwJm213C3i+Y9Anlh/O2vaduv+18jVBJo +eMJ6TkyGB4Z551ZvriXQ1vQU05K24m8Pzv5H9P8F2lgF0RZyNpU79YRAV7uN +nlzawzelY5JaCLzpbhbRSbtdZGiqoJXA6113MgVkeVBYndnR/JbAQ93vXjnS +Pi8baP3xI4HyUp+G/GgH+tqXTn0hMF1EZkEybbenJEt0mMBA22VqN2hbEnNp +ymMEevbmrmugrRXaIbTyF4HzLJ28e2lLd90MtPlDn+fptpRR2r/1YwZ28pOo +9093DZ8cD/rjdzv7zScx6/6CH2K0jwxqMXRFSSxPjk2SpT1lPT00JEFi++fL +VxRphxU8KqcWk/iL1yiqSnuBQHLUAXkSRbWvfWHSTt3t5sRSInGfeKnOf1a4 +r6HwSZXEpo3J75RpFy6d+pKnRqLk1vpZedq6QfV3dmuTqPy684wk7Yr2xDBF +fRKDuvacmE/bwsDV7o0hiWs6hrqm6fqfJanJXTEhsTdFtOgrbeeR8Y9bkcQO +XfuBdtrv7R7cXGxJYpG6RfID2ge5CSdf25B4ZlNIcRHt8fnbrZPsSRTvjVud +SPuUJynlsInE9fZ8Bv/1W6j+51tRFxLtYo7kbKR9QbmG+8SVxLmHXqd1acuf +PhcYs4dE2fTTzf/Szu/ZusZqH4kFXy2T+unz1TFiigseInEBn1NDBe3StNGu +Bz4kPj+2wvc87SdOsb7sIBJl8psZOrQ339zCnj1F4k+bEs0Z+r71ijJEyiNI +dFav5NbTHm2oyDGIJ5GlkyfmQFvG7HuLZjaJWv5Kx63p+5yTUZbx9Rrdv8Lb +5nP0/VefjvS6zqH7s0A1+g5t0zsKc4zbJN6rn42Upe2h4aAj/4jE+3PmO2vo ++fsevXSmo4nET8d8F3rQDvz0+dHFZvr73tbmgrTjcsJ2Luok8UKNEwn0/JbI +3I4X/kbitpC3Qun0vBsHnHZ5PEKiA2nWQNKuf2nLjBwnsSaWIXqHzof2+I+V +c39IbC0dJhroPPnNv/jbpAQLt6n2cFvovLEZOW7zyZCFsarmUQeFeLBMT/Gs +sCkLy+2GxB/TeTbs97BO05yFU+KmFYq0UyclTP3Ws1A5a/ZEA52Hb/8U6czt +YqGq3u3iSTo//UTfSC2JZaGXWRv32QwFa+0jHE3Ps7A/f0fJzDQFshfUEnal +sDCqK7OfoF0ldUyoMJOFDTbcN/5TFAgtFZ/Wv83C19M2jGE636+o41u7HhZK +/CFrXb9T4H1oQP7oexY+VmHJuH2jAIrjt6Z8YmHzXg+O6yAF/bpdL7pGWBgz +9ifS6QsFOqv96vcJqqGC0QtD+X4K6q3yOWHaarhnxXMztR4KvnsI+98JVcNr +2Wn87AZ6H8haW10TqYZlPm3Phx5RMNIVNv9prBqSO8dErj6k4KfDdEZfihp6 +dxp2jj6gYMpk8KE4Rw1tvrX1n6yigF/6mcyBF2roEW0VKneLgiUPEysUVNQx +XcGvxfcSBfJzTwXVSXUMeP3G41UaBcuMhR0MNNXR1EAsSvciBYolYR9tV6qj +/XoH309JFDCv+oqesFHH0pztC/TPUaAbsMntla86TtaFz996iqL3c1n+6Dp1 +9IrIO9NO7ydf3a05Jg3q2EFVnf3XjYL43OP2o0/VsVZfLdzMlYLXip1XtrWp +46KRn25ZLhTsXnJ5hdYXdYxyc3tt6URBkPhSz5diGtj01HWdwRoKeL8UG5du +08BnevG3UxkUSD4nz5eMaGCihEjC+V4u/B3RLXgyroE1FcaGMj1cGJQ0qeqf +1sCt0853Mzq5UOfiMCgnqIl97M1GOa+54N9/3CpcThMJgcSAxCYutM42/nUy +10SVyb+X59/lQrrGIZ+xZE18qryy3DOOC8tibjoaGmrhZbvsWMnlXLikaSQh +5aWNWkfZiYFHi+CJvPnKsSQdDCMDLP5mccB4Wd2F5e3LsXyilWNUeB3EBfIC +9kTookuVmalHcSEohiuZbiP18FqPXIBbUgGIEK73NjboYcKb10ubffJBh73k +5vGd+rinYimxZcc18HsrWW/LtwK72XNrn2nmwchY/BabSytQ2PK6x/2FuWC9 +/PEVG20DlO9UTPk9kQ33x0xmp5oNMDedP3WmIBOOaOl3v/RciSLKSb4FsRnA +Ht7buk3EEC0biKZux8tgyZTbIJZniFbpp49yHdNBLSzuRN2qVSges+li2pGL +oOFpVEN0r8JUx/1NK0JSwPP+/sg7vqvxuLCZa2x9EtTktO79sdgI9x87t771 +nwswzpmbWl5qhIdzT+5wfBIPHgQlcmWDMT5R1/Tc+zsWfmikGN4eNUbP4dSy +IxrRUJY/2zcRY4IvFk7/4VVFwva1qmiiaIrPRheO/YiLgKWHo8t1ak3Ra2vF +3NqdYbB4gfetDVvZaFzbMzB//inItzgVPLqNjUrlz2Wtp0JA/9R5ixRXNq7v +/zQe/zkE7EdL2jr3sHFyl1uxVmMInG2fmPbwZqNJvdr3ytgQ+JUXuiY4nI2m +25dbyomHQLdJyutCio2xPvcOVi89CfuP5V+1ucHGD9Hy8i2iJ2Hyxl3P7yVs +vNzrYvH5TzBIMjqn9O6xsblp5rfG+2BYL6ywrLqWjZXpne/m8oOhqrVw7+s2 +NrYdK5vpXR4MtuJl2oGdbLToPXXWWSUYOq2bJuV62BhQZOnXJhkM4xXfYtze +s/HSyFaPgYkg0M7VLf46yMYXZ16e2lwVBFXd5oHxQ2z8uHKqZ644CGylN8Hy +UTbaLBZNuJUdBPuij70MmGDj1SN+fawzQTBee/aK7C82HgoPDv8eEAQRM+ke +FTNs9Bt/e7h0XxBIGBRp7fzDRlvWTH6MSxBkHa6YmJtjY+hSkthtGwT/Bwy+ +NeE= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "PlotRange" -> {{0, 30}, {0., 0.05487170543491446}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7851,19 +8190,19 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "PlotRange" -> {{0, 30}, {0., 0.05487170543491446}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7877,115 +8216,113 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk -DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE -i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 -tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM -NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S -RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB -j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd -kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT -u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 -T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j -8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm -bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg -k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl -UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd -5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 -sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 -1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK -Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS -vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH -Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ -Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL -C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf -8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 -oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT -7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW -mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 -6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe -8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 -us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 -0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm -3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v -K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU -+23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY -e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im -r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K -iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac -p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M -knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS -9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq -K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK -Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh -+wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD -LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq -cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl -x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji -J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX -9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d -T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR -GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE -YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q -eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 -nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB -i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 -UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC -4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ -+qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d -UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M -6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l -wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW -ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt -UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry -tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP -3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz -PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP -crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z -fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT -KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 -dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq -RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf -auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY -+xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD -3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause -loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G -+BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu -LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ -KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv -7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw -ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN -RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg -k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp -oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx -8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x -UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ -GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa -jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 -svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 -GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf -aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj -C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== +1:eJwV1mk4VW0XB3APEj1ICCnTcfY+5pCU4VhLQiRDg1RSkTQoGVKkDJEhkiEq +GUPH2UeptzJHVGigwSyVkkoZyhQq734+7Gtfv0977XXf638tFXefjZ78fHx8 +f+nnv/fk26aHzHP5Zk2Kdx4nRK00a82SCzLvjIAT3b5SE9VSgItb3OU6k+HS +/SUljdWqEOjI7RDozINr7oVNxdUrYNGwbPJ0x21os/Q5k1BtAe+q7H3GO+pA +w2bvYv3qTWDFHOz90fEKPD7ImXdUesB0x6qLox0fIDrLwzLwnj/UW1zPf5k3 +BtZPkqRafCNh2bvyAXetP2CS615oQZ4Hae9d3PkWAuj3Y53v3TspkKxnVWm/ +RRh3ZO7xPnbuEnRd0q39ISGGxSJRJg5dV+FcfmgL/5JFePzoyGrp7ByQTf0Y +m5IphcMduzNzsvMgerON2avJxTgZUzvQ4JwP/ka5u5oi5NB6MC3HbF4hrB2Z +CT7yUR4F+64xHxy4DuGmTnvkVytgbw2Df2EGB9a5Zf1ctUYBy4033urK5oB4 +2LczW+wUMOQnQyo3nwNX66MKL+xWQMUmzhBxgwNlthXfhGIV8J9y/6n5Dzgw +6qIaONalgN/qOtS1Bzjgdmwi7tlJRXyxLPH8jHYRGN+4fOd0jRIGKj7uTf9f +EaztaP4z3KiEuzVqJ21Ki8CeT9B61yslXORYQ05XFIHHxiNd8EkJT2DKU/u6 +IrA6qRIaNk8ZOdbLWB0viuCo0uQ1c01ltHd+utR1qAgeemUP1Qcq46XSqEZD +JhdsfhtJhpxUxgyF7SXnWFxovtBqaBCmjIK/D93o1eBCV7lIWH6sMh7s2zh0 +Qo8Lw/8GSEZdVcaNammB8WZckCtZt8qqThkXvhqvZLlwwfvXj7BGMRWM/V25 +ZXksF4x998kMSKrgYKdS9b54LggPdlMCcip44XxH+ZVELhT01LebMVTwwHiB +/6+LXHh7/6LWXUMVHLie9S0ujwsOUUadubtU8L37FiHRSi7oS4YvP3lLBTMW +3GgP/coFvnMTDy/dU8FwR0XS9jtdv8DB7fcqVfDw5q0LF41w4dDExqgfj1RQ +V73vZuo4F/I7mT1e3Spo2lak4z/HBZnsxrObBRjYwPnHMUGagmlNibfaWxgo +vNO9eJUpBZOZ8uErtjNwfO9YUpwZBeMLCabRLgYKSj837EYKhseMDq49wMBz +VrvrfCwp+FDpMbn9FAPf9Tl98ben4Mn6UvGYAgbeFWmi3u+i4MohN/gwwcBD +d8Kl7cMoSO/d/+HzDAOnwgrijSIoSHXwjxqaY6Bjq3ezSiQF51fEPP0loopm +4sYlX6IpiJi9tXWhoiq6GJpOOiRScOjcvKOmVqrIN8vuisykwJTi5aSlqeLe +SKWouFIKepSpbMsMVaTKSqsnyigITivKGs9WxdhNuNKtgoLS8MKrG4tU8Zqo +/weymgJ9l5xL4lWqyPrCMUuvo0B9XuqFs32qmKoraTv+jILG4OTElQOqeEb/ +7+UVzRTsG71wvn+Qroe7QedoCwX5PQnxa8ZVkVMUQfS9pED5dnTMXyEmvrOx +d8lrp0Bm18mwQC0mDnXJquS9o+Bua1AoocfEgINlH+6+p2Cz7YnTrSuZ+Pll +xvDjPgqSVx4L0QcmDiTcGnj/kQIxUZ8Tw05MXJL3xn38MwWC5e5H9x1nol8C +58PlEQqu6ezxWRzCxH3KEscjRilYk7/ryMMwJrbnCbju/0FBaKKrNyOOiVYj +Oku0xiiY8XTe//YqE88elvBOmaTgh6Ttbuc6Jj7xWvay7zcFnd6MFwcbmOjb +wk28+YeC2sczEPqMifG5PtrBfym4EEwpcdqZaJ/6QliIjwe6H0TfTQ8yccOO +YPtf/DyQM/1kLz7KxOLRNTLFAjzgS6u+z5hgotCisgdugjxosTmStX6Oie/1 +hh6VzePBkVstOzOlCNQLjEqxFuaB87+c57fkCLxK3or5SNvMM4z9WIHATEpl +X4gID8SW6CmMsAicdmO9yV/AA15Y8hs0JdDvK/vRC1EepHYftNtiTuALsXli +m8V4EGJgUXXAisBXo0/MW2mv/zKWkexIoN2j8oCn4jwYdNiyo38vgSyQWHRR +ggevirSf/jpAIOFw7+Uc7QoBIRMxHwLjFAwjvRbxILb0nrxhEIHu6sYPtCV5 +cHRRYpztaQKtLWft4mm7HPKacTtDYEvPwuefaaspyXVHJxAoXX+bd1GKBxJB +ozZXkwlMmwkX+0L716vG8pJ0Av8XRHqukuZB49mgy125BBZkBs4+o13y3klk +uJBASs3LRGoxDy4ZawTx8wjc0HAvwJm213C3i+Y9Anlh/O2vaduv+18jVBJo +eMJ6TkyGB4Z551ZvriXQ1vQU05K24m8Pzv5H9P8F2lgF0RZyNpU79YRAV7uN +nlzawzelY5JaCLzpbhbRSbtdZGiqoJXA6113MgVkeVBYndnR/JbAQ93vXjnS +Pi8baP3xI4HyUp+G/GgH+tqXTn0hMF1EZkEybbenJEt0mMBA22VqN2hbEnNp +ymMEevbmrmugrRXaIbTyF4HzLJ28e2lLd90MtPlDn+fptpRR2r/1YwZ28pOo +9093DZ8cD/rjdzv7zScx6/6CH2K0jwxqMXRFSSxPjk2SpT1lPT00JEFi++fL +VxRphxU8KqcWk/iL1yiqSnuBQHLUAXkSRbWvfWHSTt3t5sRSInGfeKnOf1a4 +r6HwSZXEpo3J75RpFy6d+pKnRqLk1vpZedq6QfV3dmuTqPy684wk7Yr2xDBF +fRKDuvacmE/bwsDV7o0hiWs6hrqm6fqfJanJXTEhsTdFtOgrbeeR8Y9bkcQO +XfuBdtrv7R7cXGxJYpG6RfID2ge5CSdf25B4ZlNIcRHt8fnbrZPsSRTvjVud +SPuUJynlsInE9fZ8Bv/1W6j+51tRFxLtYo7kbKR9QbmG+8SVxLmHXqd1acuf +PhcYs4dE2fTTzf/Szu/ZusZqH4kFXy2T+unz1TFiigseInEBn1NDBe3StNGu +Bz4kPj+2wvc87SdOsb7sIBJl8psZOrQ339zCnj1F4k+bEs0Z+r71ijJEyiNI +dFav5NbTHm2oyDGIJ5GlkyfmQFvG7HuLZjaJWv5Kx63p+5yTUZbx9Rrdv8Lb +5nP0/VefjvS6zqH7s0A1+g5t0zsKc4zbJN6rn42Upe2h4aAj/4jE+3PmO2vo ++fsevXSmo4nET8d8F3rQDvz0+dHFZvr73tbmgrTjcsJ2Luok8UKNEwn0/JbI +3I4X/kbitpC3Qun0vBsHnHZ5PEKiA2nWQNKuf2nLjBwnsSaWIXqHzof2+I+V +c39IbC0dJhroPPnNv/jbpAQLt6n2cFvovLEZOW7zyZCFsarmUQeFeLBMT/Gs +sCkLy+2GxB/TeTbs97BO05yFU+KmFYq0UyclTP3Ws1A5a/ZEA52Hb/8U6czt +YqGq3u3iSTo//UTfSC2JZaGXWRv32QwFa+0jHE3Ps7A/f0fJzDQFshfUEnal +sDCqK7OfoF0ldUyoMJOFDTbcN/5TFAgtFZ/Wv83C19M2jGE636+o41u7HhZK +/CFrXb9T4H1oQP7oexY+VmHJuH2jAIrjt6Z8YmHzXg+O6yAF/bpdL7pGWBgz +9ifS6QsFOqv96vcJqqGC0QtD+X4K6q3yOWHaarhnxXMztR4KvnsI+98JVcNr +2Wn87AZ6H8haW10TqYZlPm3Phx5RMNIVNv9prBqSO8dErj6k4KfDdEZfihp6 +dxp2jj6gYMpk8KE4Rw1tvrX1n6yigF/6mcyBF2roEW0VKneLgiUPEysUVNQx +XcGvxfcSBfJzTwXVSXUMeP3G41UaBcuMhR0MNNXR1EAsSvciBYolYR9tV6qj +/XoH309JFDCv+oqesFHH0pztC/TPUaAbsMntla86TtaFz996iqL3c1n+6Dp1 +9IrIO9NO7ydf3a05Jg3q2EFVnf3XjYL43OP2o0/VsVZfLdzMlYLXip1XtrWp +46KRn25ZLhTsXnJ5hdYXdYxyc3tt6URBkPhSz5diGtj01HWdwRoKeL8UG5du +08BnevG3UxkUSD4nz5eMaGCihEjC+V4u/B3RLXgyroE1FcaGMj1cGJQ0qeqf +1sCt0853Mzq5UOfiMCgnqIl97M1GOa+54N9/3CpcThMJgcSAxCYutM42/nUy +10SVyb+X59/lQrrGIZ+xZE18qryy3DOOC8tibjoaGmrhZbvsWMnlXLikaSQh +5aWNWkfZiYFHi+CJvPnKsSQdDCMDLP5mccB4Wd2F5e3LsXyilWNUeB3EBfIC +9kTookuVmalHcSEohiuZbiP18FqPXIBbUgGIEK73NjboYcKb10ubffJBh73k +5vGd+rinYimxZcc18HsrWW/LtwK72XNrn2nmwchY/BabSytQ2PK6x/2FuWC9 +/PEVG20DlO9UTPk9kQ33x0xmp5oNMDedP3WmIBOOaOl3v/RciSLKSb4FsRnA +Ht7buk3EEC0biKZux8tgyZTbIJZniFbpp49yHdNBLSzuRN2qVSges+li2pGL +oOFpVEN0r8JUx/1NK0JSwPP+/sg7vqvxuLCZa2x9EtTktO79sdgI9x87t771 +nwswzpmbWl5qhIdzT+5wfBIPHgQlcmWDMT5R1/Tc+zsWfmikGN4eNUbP4dSy +IxrRUJY/2zcRY4IvFk7/4VVFwva1qmiiaIrPRheO/YiLgKWHo8t1ak3Ra2vF +3NqdYbB4gfetDVvZaFzbMzB//inItzgVPLqNjUrlz2Wtp0JA/9R5ixRXNq7v +/zQe/zkE7EdL2jr3sHFyl1uxVmMInG2fmPbwZqNJvdr3ytgQ+JUXuiY4nI2m +25dbyomHQLdJyutCio2xPvcOVi89CfuP5V+1ucHGD9Hy8i2iJ2Hyxl3P7yVs +vNzrYvH5TzBIMjqn9O6xsblp5rfG+2BYL6ywrLqWjZXpne/m8oOhqrVw7+s2 +NrYdK5vpXR4MtuJl2oGdbLToPXXWWSUYOq2bJuV62BhQZOnXJhkM4xXfYtze +s/HSyFaPgYkg0M7VLf46yMYXZ16e2lwVBFXd5oHxQ2z8uHKqZ644CGylN8Hy +UTbaLBZNuJUdBPuij70MmGDj1SN+fawzQTBee/aK7C82HgoPDv8eEAQRM+ke +FTNs9Bt/e7h0XxBIGBRp7fzDRlvWTH6MSxBkHa6YmJtjY+hSkthtGwT/Bwy+ +NeE= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "PlotRange" -> {{0, 30}, {0., 0.05487170543491446}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7996,6 +8333,7 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8023,7 +8361,8 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.060553949877372025`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.05487170543491446}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8031,9 +8370,8 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913408819317417`*^9}, - CellLabel-> - "Out[338]=",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] + CellChangeTimes->{3.9913408819317417`*^9, 3.994258310146936*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"b9900aa5-360f-49fb-a7a0-df4d7204fd2a"] }, Open ]], Cell[CellGroupData[{ @@ -8086,66 +8424,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[339]:=",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], + "In[100]:=",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.2264340105931995`*^-182\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 339, 345, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340881982744*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.1871781299097357`*^-174\\\", \ +RowBox[{\\\"182746270923358292188640954459021807938\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"61\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3679745821507584000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 17, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340881982744*^9, 3.994258310317122*^9}, CellLabel-> "During evaluation of \ -In[339]:=",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], +In[100]:=",ExpressionUUID->"72bfca20-4259-4d84-b091-7cffb26f06bc"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 339, 346, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340881991743*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.156853048320675`*^-177\\\", \ +RowBox[{\\\"532888126012512780022077023202507591948\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"64\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0138815516114944000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 18, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340881982744*^9, 3.994258310328642*^9}, CellLabel-> "During evaluation of \ -In[339]:=",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], +In[100]:=",ExpressionUUID->"0547b05a-0199-4a95-9784-db705b5566c2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 339, 347, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340882000746*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.118884223956965`*^-181\\\", \ +RowBox[{\\\"161198658118785115956678299518758546564\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"68\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9916936247705600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 19, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340881982744*^9, 3.994258310340014*^9}, CellLabel-> "During evaluation of \ -In[339]:=",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], +In[100]:=",ExpressionUUID->"05eda47c-e3ca-47f8-82fd-c70a13b7368f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 339, 348, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340882008745*^9}, +during this calculation.\"", 2, 100, 20, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340881982744*^9, 3.994258310351634*^9}, CellLabel-> "During evaluation of \ -In[339]:=",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], +In[100]:=",ExpressionUUID->"af103c8e-c0da-44c7-91b1-3c25f80d066e"], -Cell[BoxData["12.553654989521348`"], "Output", - CellChangeTimes->{3.9913408882266617`*^9}, +Cell[BoxData["13.851572889026304`"], "Output", + CellChangeTimes->{3.9913408882266617`*^9, 3.994258393804768*^9}, CellLabel-> - "Out[339]=",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] + "Out[100]=",ExpressionUUID->"e7b74799-2489-4832-b248-ffbd39fbaf05"] }, Open ]], Cell[CellGroupData[{ @@ -8213,68 +8558,75 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ - 3.9918497473740044`*^9, {3.99184977815234*^9, - 3.991849780845421*^9}},ExpressionUUID->"1d118f77-7d68-dd41-b0af-\ -09454f88e7f1"], + 3.9918497473740044`*^9, {3.99184977815234*^9, 3.991849780845421*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 340, 349, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913408882626343`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.462068556441327`*^-222\\\", \ +RowBox[{\\\"4160735933984357432554811027341847802665\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"13\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3770116038587316426506240000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 21, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913408882626343`*^9, 3.994258393884289*^9}, CellLabel-> "During evaluation of \ -In[340]:=",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], +In[101]:=",ExpressionUUID->"53e6dcf2-42ea-494a-8ae2-c049e9234443"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 340, 350, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913408882726326`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.376710506637635`*^-227\\\", \ +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 22, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913408882626343`*^9, 3.9942583938932543`*^9}, CellLabel-> "During evaluation of \ -In[340]:=",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], +In[101]:=",ExpressionUUID->"32dc15eb-74bb-4563-8848-d63186295a45"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 340, 351, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913408882816315`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.933011004962495`*^-233\\\", \ +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 23, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913408882626343`*^9, 3.9942583939049053`*^9}, CellLabel-> "During evaluation of \ -In[340]:=",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], +In[101]:=",ExpressionUUID->"bd23c129-540a-484d-89de-5efa282aa7b2"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 340, 352, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913408882906322`*^9}, +during this calculation.\"", 2, 101, 24, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913408882626343`*^9, 3.994258393915395*^9}, CellLabel-> "During evaluation of \ -In[340]:=",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], +In[101]:=",ExpressionUUID->"21f02058-ea44-4a81-b491-ef07736fc3fa"], -Cell[BoxData["1.3456729512531673`"], "Output", - CellChangeTimes->{3.991340895263792*^9}, +Cell[BoxData["0.37848066356390064`"], "Output", + CellChangeTimes->{3.991340895263792*^9, 3.9942584049607162`*^9}, CellLabel-> - "Out[340]=",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] + "Out[101]=",ExpressionUUID->"c017c4e5-a143-4dfa-8319-4fe5db4d5f5e"] }, Open ]], Cell[CellGroupData[{ @@ -8295,8 +8647,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8341,68 +8692,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918497892022038`*^9, - 3.991849792285101*^9}},ExpressionUUID->"c8039063-5f4d-134a-b6ba-\ -e19335f7a9f6"], + CellChangeTimes->{{3.9918497892022038`*^9, 3.991849792285101*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 341, 353, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340895297941*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.462068556441327`*^-222\\\", \ +RowBox[{\\\"4160735933984357432554811027341847802665\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"13\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3770116038587316426506240000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 25, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340895297941*^9, 3.994258405012417*^9}, CellLabel-> "During evaluation of \ -In[341]:=",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], +In[102]:=",ExpressionUUID->"f0b02e35-abef-4576-b167-bd06f72e68f9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 341, 354, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340895308939*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.376710506637635`*^-227\\\", \ +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 26, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340895297941*^9, 3.994258405025289*^9}, CellLabel-> "During evaluation of \ -In[341]:=",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], +In[102]:=",ExpressionUUID->"ff4d3366-1a2a-4b6b-a790-e5c59cbafae5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 341, 355, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340895316965*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.933011004962495`*^-233\\\", \ +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 27, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340895297941*^9, 3.994258405036894*^9}, CellLabel-> "During evaluation of \ -In[341]:=",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], +In[102]:=",ExpressionUUID->"8ed22d98-5fa6-4fbc-a1f3-2d524fe8e925"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 341, 356, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340895324953*^9}, +during this calculation.\"", 2, 102, 28, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340895297941*^9, 3.994258405047882*^9}, CellLabel-> "During evaluation of \ -In[341]:=",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], +In[102]:=",ExpressionUUID->"14b0c364-fec9-433f-bede-738afa54cd1c"], -Cell[BoxData["11.729429210875175`"], "Output", - CellChangeTimes->{3.9913409010488796`*^9}, +Cell[BoxData["49.38538329146531`"], "Output", + CellChangeTimes->{3.9913409010488796`*^9, 3.994258415223703*^9}, CellLabel-> - "Out[341]=",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] + "Out[102]=",ExpressionUUID->"5b2fdf84-7f3e-4ad4-8d0d-87988e3fa660"] }, Open ]], Cell[CellGroupData[{ @@ -8423,8 +8781,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8469,68 +8826,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918497964884186`*^9, - 3.9918497998504505`*^9}},ExpressionUUID->"a474307a-af78-3040-90ec-\ -fb8d284b16bb"], + CellChangeTimes->{{3.9918497964884186`*^9, 3.9918497998504505`*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 342, 357, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913409010848827`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.462068556441327`*^-222\\\", \ +RowBox[{\\\"4160735933984357432554811027341847802665\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"13\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3770116038587316426506240000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 29, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913409010848827`*^9, 3.9942584152980433`*^9}, CellLabel-> "During evaluation of \ -In[342]:=",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], +In[103]:=",ExpressionUUID->"4722b0a0-f278-41d1-b43a-2484ef0640ff"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 342, 358, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913409010938797`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.376710506637635`*^-227\\\", \ +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 30, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913409010848827`*^9, 3.9942584153101177`*^9}, CellLabel-> "During evaluation of \ -In[342]:=",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], +In[103]:=",ExpressionUUID->"a1740b5b-25d3-4c07-92d2-d29a6655cd2f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 342, 359, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340901101883*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.933011004962495`*^-233\\\", \ +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 31, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913409010848827`*^9, 3.9942584153198557`*^9}, CellLabel-> "During evaluation of \ -In[342]:=",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], +In[103]:=",ExpressionUUID->"c922dee7-94f4-4f63-98d4-e5074ce24f82"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 342, 360, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913409011098804`*^9}, +during this calculation.\"", 2, 103, 32, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913409010848827`*^9, 3.994258415331956*^9}, CellLabel-> "During evaluation of \ -In[342]:=",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], +In[103]:=",ExpressionUUID->"606df507-1e58-41c4-ab3c-a23ac1399de8"], -Cell[BoxData["21.67464099510054`"], "Output", - CellChangeTimes->{3.991340904517517*^9}, +Cell[BoxData["8.950194620112166`"], "Output", + CellChangeTimes->{3.991340904517517*^9, 3.99425842417705*^9}, CellLabel-> - "Out[342]=",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] + "Out[103]=",ExpressionUUID->"69b5d21f-25b2-4faf-9b92-d6612149ff80"] }, Open ]], Cell[CellGroupData[{ @@ -8539,22 +8903,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991849803549658*^9, - 3.9918498086143265`*^9}},ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-\ -f67bfdbd9bc7"], - -Cell[BoxData["0.0843966342510027`"], "Output", - CellChangeTimes->{3.991340904549515*^9}, + CellChangeTimes->{{3.991849803549658*^9, 3.9918498086143265`*^9}}, CellLabel-> - "Out[343]=",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] + "In[104]:=",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], + +Cell[BoxData["0.01800231027167061`"], "Output", + CellChangeTimes->{3.991340904549515*^9, 3.994258424228236*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"d0d536bb-d3c3-4286-8a3a-88d9a0a39b95"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918501018852215`*^9, 3.991850105557743*^9}, - 3.99192470649716*^9},ExpressionUUID->"d104d373-080a-854b-92ff-\ -e87abbd4c41c"], + 3.99192470649716*^9}, + CellLabel-> + "In[105]:=",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], Cell[CellGroupData[{ @@ -8577,12 +8942,12 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[345]:=",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], + "In[106]:=",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], -Cell[BoxData["19.580504093356314`"], "Output", - CellChangeTimes->{3.9913409045775146`*^9}, +Cell[BoxData["14.366774230577528`"], "Output", + CellChangeTimes->{3.9913409045775146`*^9, 3.994258424250984*^9}, CellLabel-> - "Out[345]=",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] + "Out[106]=",ExpressionUUID->"1f02b76d-9919-48c9-b2f6-d4ac44c60013"] }, Open ]], Cell[CellGroupData[{ @@ -8592,12 +8957,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[347]:=",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], + "In[107]:=",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], -Cell[BoxData["0.8477067309358528`"], "Output", - CellChangeTimes->{3.991340904625164*^9}, +Cell[BoxData["1.7134653673502502`"], "Output", + CellChangeTimes->{3.991340904625164*^9, 3.994258424266477*^9}, CellLabel-> - "Out[347]=",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] + "Out[107]=",ExpressionUUID->"a60aabdf-092d-47cf-b2b1-a43b29718c1b"] }, Open ]], Cell[CellGroupData[{ @@ -8607,12 +8972,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[350]:=",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], + "In[108]:=",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], -Cell[BoxData["16.598525115055164`"], "Output", - CellChangeTimes->{3.9913409046880226`*^9}, +Cell[BoxData["24.616970084634634`"], "Output", + CellChangeTimes->{3.9913409046880226`*^9, 3.9942584242812033`*^9}, CellLabel-> - "Out[350]=",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] + "Out[108]=",ExpressionUUID->"c42e699b-084d-4477-b016-939b9379e6c1"] }, Open ]], Cell[CellGroupData[{ @@ -8802,12 +9167,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[351]:=",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], + "In[109]:=",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], -Cell[BoxData["0.021613768236132463`"], "Output", - CellChangeTimes->{3.9913409047132187`*^9}, +Cell[BoxData["0.004624521397798432`"], "Output", + CellChangeTimes->{3.9913409047132187`*^9, 3.994258424301032*^9}, CellLabel-> - "Out[351]=",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] + "Out[109]=",ExpressionUUID->"1f0cbda9-5188-4fc9-8f05-397c9396bf85"] }, Open ]], Cell[CellGroupData[{ @@ -8821,12 +9186,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[352]:=",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], + "In[110]:=",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], -Cell[BoxData["6.028089553291302`"], "Output", - CellChangeTimes->{3.9913409048112164`*^9}, +Cell[BoxData["13.032014185727112`"], "Output", + CellChangeTimes->{3.9913409048112164`*^9, 3.99425842449975*^9}, CellLabel-> - "Out[352]=",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] + "Out[110]=",ExpressionUUID->"0971b32b-dd15-429c-86ae-78815de80523"] }, Open ]], Cell[CellGroupData[{ @@ -9018,12 +9383,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[353]:=",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], + "In[111]:=",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], -Cell[BoxData["0.010798036798660033`"], "Output", - CellChangeTimes->{3.991340904825058*^9}, +Cell[BoxData["0.035946642990523164`"], "Output", + CellChangeTimes->{3.991340904825058*^9, 3.994258424518865*^9}, CellLabel-> - "Out[353]=",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] + "Out[111]=",ExpressionUUID->"5006944a-8e7f-4a9f-9b3a-78e2c6b46545"] }, Open ]], Cell[CellGroupData[{ @@ -9037,12 +9402,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[354]:=",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], + "In[112]:=",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], -Cell[BoxData["8.5284977476633`"], "Output", - CellChangeTimes->{3.9913409049303207`*^9}, +Cell[BoxData["4.674291273192504`"], "Output", + CellChangeTimes->{3.9913409049303207`*^9, 3.99425842472442*^9}, CellLabel-> - "Out[354]=",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] + "Out[112]=",ExpressionUUID->"8aaeaf26-510d-4831-8daa-4936d652e4f8"] }, Open ]], Cell[CellGroupData[{ @@ -9135,12 +9500,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[355]:=",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], + "In[113]:=",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.991340904948307*^9}, +Cell[BoxData["0.11447062330044823`"], "Output", + CellChangeTimes->{3.991340904948307*^9, 3.994258424740939*^9}, CellLabel-> - "Out[355]=",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] + "Out[113]=",ExpressionUUID->"e6365548-90a7-49aa-99fa-3cb1c9582212"] }, Open ]], Cell[CellGroupData[{ @@ -9230,12 +9595,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[356]:=",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], + "In[114]:=",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.991340904981308*^9}, +Cell[BoxData["0.8855293766995518`"], "Output", + CellChangeTimes->{3.991340904981308*^9, 3.99425842476217*^9}, CellLabel-> - "Out[356]=",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] + "Out[114]=",ExpressionUUID->"cf263a1a-a55f-4e62-84bc-94e927b8c2ac"] }, Open ]], Cell[CellGroupData[{ @@ -9358,12 +9723,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[357]:=",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], + "In[115]:=",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.99134090500931*^9}, +Cell[BoxData["0.1013670997016551`"], "Output", + CellChangeTimes->{3.99134090500931*^9, 3.9942584247783747`*^9}, CellLabel-> - "Out[357]=",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] + "Out[115]=",ExpressionUUID->"ea862e1c-3405-4714-89d1-c12af4cb84fd"] }, Open ]], Cell[CellGroupData[{ @@ -9425,68 +9790,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849824909197*^9},ExpressionUUID->"486d514f-ec65-1e4e-b780-\ -7e9487f745c3"], + CellChangeTimes->{3.991849824909197*^9}, + CellLabel-> + "In[116]:=",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 358, - 361, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340905038307*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.2355745021171625`*^-258\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 116, 33, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340905038307*^9, 3.994258424796115*^9}, CellLabel-> "During evaluation of \ -In[358]:=",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], +In[116]:=",ExpressionUUID->"2e83de5b-4c4f-4469-aba6-03f03df2b9dc"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 358, - 362, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340905047306*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.064238669603053`*^-267\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 116, 34, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340905038307*^9, 3.9942584248066187`*^9}, CellLabel-> "During evaluation of \ -In[358]:=",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], +In[116]:=",ExpressionUUID->"6523d114-305a-4635-8017-8fda9c0925d5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 358, - 363, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340905056307*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.6489998568517514`*^-276\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 116, 35, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340905038307*^9, 3.994258424816676*^9}, CellLabel-> "During evaluation of \ -In[358]:=",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], +In[116]:=",ExpressionUUID->"156b104a-d5e9-46d3-9f89-cba477be9363"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 358, 364, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340905064308*^9}, +during this calculation.\"", 2, 116, 36, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340905038307*^9, 3.9942584248260307`*^9}, CellLabel-> "During evaluation of \ -In[358]:=",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], +In[116]:=",ExpressionUUID->"00739a1b-690e-4226-b4df-a9beaa2a321d"], -Cell[BoxData["6.028089553291301`"], "Output", - CellChangeTimes->{3.991340908920454*^9}, +Cell[BoxData["13.032014185727101`"], "Output", + CellChangeTimes->{3.991340908920454*^9, 3.994258431258829*^9}, CellLabel-> - "Out[358]=",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] + "Out[116]=",ExpressionUUID->"914408e4-7733-4e30-b7e0-49bbf481129d"] }, Open ]], Cell[CellGroupData[{ @@ -9548,68 +9914,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918498299076843`*^9},ExpressionUUID->"c7144ce5-8356-d548-8854-\ -18c538c3321c"], + CellChangeTimes->{3.9918498299076843`*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 359, - 365, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340908954941*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.2355745021171625`*^-258\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 117, 37, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340908954941*^9, 3.9942584313135033`*^9}, CellLabel-> "During evaluation of \ -In[359]:=",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], +In[117]:=",ExpressionUUID->"52044455-34d2-4b82-9362-9dc39ee75454"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 359, - 366, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340908964924*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.064238669603053`*^-267\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 117, 38, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340908954941*^9, 3.994258431323284*^9}, CellLabel-> "During evaluation of \ -In[359]:=",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], +In[117]:=",ExpressionUUID->"6650b674-b15d-40f4-9e07-9338313e3135"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 359, - 367, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913409089739246`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.6489998568517514`*^-276\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 117, 39, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340908954941*^9, 3.994258431333386*^9}, CellLabel-> "During evaluation of \ -In[359]:=",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], +In[117]:=",ExpressionUUID->"a110e44a-c04f-42fa-9022-b5aca1cd29d5"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 359, 368, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340908981924*^9}, +during this calculation.\"", 2, 117, 40, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340908954941*^9, 3.99425843134264*^9}, CellLabel-> "During evaluation of \ -In[359]:=",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], +In[117]:=",ExpressionUUID->"d03d33ec-b20a-4d6b-ab14-b3b737cd5aa4"], -Cell[BoxData["8.528497747663296`"], "Output", - CellChangeTimes->{3.991340912767397*^9}, +Cell[BoxData["4.6742912731925035`"], "Output", + CellChangeTimes->{3.991340912767397*^9, 3.994258437702908*^9}, CellLabel-> - "Out[359]=",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] + "Out[117]=",ExpressionUUID->"887f84bf-85a1-4947-88ec-55676d6d8dd9"] }, Open ]], Cell[CellGroupData[{ @@ -9667,95 +10034,91 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849833066021*^9},ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-\ -a45df2eabf0c"], + CellChangeTimes->{3.991849833066021*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo -kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv -3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 -ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf -W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d -SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 -AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 -E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH -L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx -C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I -QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 -9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U -PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 -h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ -1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK -UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx -taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb -eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN -ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr -RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q -FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d -2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd -kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo -HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu -AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv -Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN -GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U -BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog -f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 -YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca -gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG -G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 -zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 -27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo -/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW -35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 -cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 -SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou -N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH -oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q -u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA -22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG -DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 -sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV -dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A -+fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE -x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT -ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E -2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M -OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh -sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ -CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ -2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f -pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf -/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI -Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc -9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY -/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR -lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j -KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr -q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a -drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L -lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 -KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS -gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ -77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t -On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI -EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS -etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg -2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs -/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX -sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK -Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf -xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 -wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ -IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O -GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia -70x+Lkfh53XZ2uCv/w8uxqIW + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwd1Xk4VdsbB3ARV4YylDHK2E8iOear9ptZpiKFjMc525CZRFyR4TYRKuoS +MpRkToSTiCQpKkqDzEI4UjKW31r9sZ/9fJ61nnd/17ilqP7WdFYWFpZp9OB3 +4EvlHTVdL/fFqX0718QzS+ybyVenGhQTpeGJfzyQrXFF1oBBLFtRz2IfpL3g +4KE8IaJr/BOwK8JON7MbdBD25fdjsc+1ijSeLnpFVOmoRWPXdgVmrar2EG1H +vkZgT35ojwyv7yXerv8Yii02KnPsp/4nQsWQLRDbjBmpHdzRT6iJ0LyxG1Yn +ucOKBgnjqF9U7LcxwhHVfsPE8MlOB+wZDoPJH6qjRBz7h0PYHBcD7CkLYwRj +h4QJtiT/jbbA+nFie/+1vdiW4j9vzehPERJ8OvLYZI60kBLnDCF/wUUU+7Sc +VfzxDiYBWQ+5sXuFu/eEFH0jRJNlZhqRaQ7eXpcvzhF3AxQ/Y89mstys9PtO +fJ86/gKbU1qJ75vqPDHKSLuDfYXWbMy35SfxRCAmDXv7bfvTuxd+Es84889g +a+1KmPGtXyT0Ply2w/bU6O+Y1F8ltLXEVx4h/wg7sZ5L/hfhWNU+iB1dz62r +wPmbeP2x8in2NdC669GxRihTlFKwaQVtBkFF6+AZpV0Mu6j18kCMOCsY6BAr +DTjvF+fIlIusYLY89QE7cuf8vXI/NuAtm0vHvlImJcNUZQdD+duc2B+6php+ +57HDE8rQ0EOcf67GYeMWDpDiOcLALlazTFVa4ADuHeM+2C21p9b51HPCAbPq +FgbyfPOb/nF9HrDIW7WsRxYw5+GLaOABDq1YEWyVbgPg1eaFk/3bBuuQvUfu +5+xR3ghpoRn+2AGsHSp7efggWyczphZ5VLr0W/xPfji/8DS8Bs8P2b6hkyIA +Eo8q1LBZ745JiQQKQOlgxUw1zkvZZl30VQB2mM+7YDvoJ1e+HBCEFZNzmveR +O92DgoWfbwGtksm6SuTPt5MuuHIKgdddXQ/sqa9FeXcMhaDHqUAAmytk+M3f +jULwe6GOrEA2iDus5npfGIorFtjKkevyNeYLs0WhZo4hUIKcP7ocqhMiAUqj +t2NuIZvY/vs5uEQCNHSdRbCnWgSNSsYkYNcP09ICZLX8XVu220tC582md/l4 +PqnO99j3bQO2e6pSechzzIGT47HbQbxLKikbWdDXoOqehTQcLvboSkcey+fy +POgtDeNivRbYDz51iU8nSMP6D1HtaciO5k6x8o3SoHDcv+kqzqcYan1dVQZW +W/oKLuPvT96ejRKWhRP9P00uIR/24FY6MCgHFin2i/HIRKit6tFfcuCzUOWC +vTM+W5MmKg+L/1m1xiGz5FH0og7Jw+NHeimxyCWfjx2tbJIH4bNSkjH4fB4p +jhHL3QGfTj0TjMT5DCzeTlIVYCqB0z8QOc8m/eNClAKkJzs3BCAnUQcH1mco +wCeReR5sWvSJr5JvFIDsGr7th8zPuMFio78TnHiedR/H+4cys7NeRhFC6Qwu +Ellc+tLpCyO7YMIr7Ys9MuP8D4UlViVgiefaiO343b6blFKC3qUsih1yVous +gp6zEvjtVog8giztUfd68Z0SXIptYbXB4y0elSOfK8NSp+yYGbKEuCS53V4F +zhFr7HuRdxWE8KwQqmD5aKJkKzKVFjuvZKkKn3U1y8TxeZVJ/ezqqAo9TU/K +xJDZcsvKW8NUIUfqVqkIPm9Zk4dTK1RBb+lE3mZ8n15zvaEgQ4E4iqsXD17f +C+bKdhxq8DT9NbnCPUvcDJI9eL9DHVxHviu+Q+4KJTTjCrQhUnaqNApZyrnH +0slnL8hmWfWLIdPXqkslwgFsjmb+V8k1Swh/ffCXMFUPbDSaetSRQyi6n1J3 +GkBs1lRv9QaUf3q1TXDSEFRWw9ZUkEv0gv/K7jSGW2vrBq9yov3zw7up+Iop +bOfuDVz9a5ZY3C/youW0GRTM2tpbIPexsH0bdLOAL6T/oescs4TfVv/kGBkr +UO9xeT/JPkuUerU1Xo0/CDn27ro7kE99F11Q9DoEN2Y6PY+vR/fHAaMjT12s +4fMtPs4MtllC+1jK/tFDNrCNccq3nXWWeC16w7uFchgMX/ZsYEcWuxXLKPyf +LagvtA7tWof218BOc0veIxBhPjfsxoL+B92zHqHTR+CMi5W4+hqToFxNKc4b +OArWPH2Z8b+YxI3135VTm+3AyDw1bn6FSVTv3/0hvtYePk4zzpgsM4lrmuf5 +V4scIMjk8es7i0yi82NBAuXiMTjL8cVbeYFJ3LfIlA2IdoS2PT41mfNM4puv +DYsfzQlk8qw9VX4wiXkjBc8ZfWfYa3yr8O0ckyicfr8YrOECQ3nTdb7fmITd +zQJ3Jx5X+N/n5HLFWSZxr9LMhe1fVxg0ruUbmGES2uKvl84tucKVw4tCjGkm +ITPg8eGVlxuM5904WzbFJEa4j1tlDrtB3W07tZtfmURXkqW7sS0V5OYNMmon +mcSVsGzuE11UOCnZu/ftBJNgNKwtuZu6A8Nj5dMm5E2O8C+lzh22TsY3+Y4z +ie2bn3ZuZbiD66O9aseRVTosRDga3OGnbm6hJ7K17rE7vU3u4DEemOaOfGVr +6PN/nrlD+rJKgj2yWN/dTW297rBwwrbaEFnWWfia44I7yI75OGxD1nadKYxX +owFLqVj9uy9M4tb12WBLDRpEbQps6EHe/GZun7AWDXrVjJrfIM8YLnQX/k2D +F0a+rzqR8xVZ1nXo0cB8vGLtKfLGBX57gUM0SH2+O/8B8kii+oZsXxosXn/J +m4F86Klmt4c/DRxeaO6/jtzAopOtEkiDyZMyoenI14P3qT8OoUF37pmRy8iW +9sZuoxE0CHR0f3MRuVbWvlbxPA0KQlqXopCT6iO9HtyiQT9PpxcN2Vc1XTus +kAbKfa96qMjmdyo2aBXRoMvMTN8NmSt97E5NCQ0C3HOlnZHjgw5OVlchc4/M +HUWOVJA9fv8xDVqin703Q/ZOf+5T+ZkGL0/VNakhm24c0w0aoMFPo4eOFOT/ +xbPwqg6h70doL+1BHgtSL6kYpQFrSJbGbmQ3y+zp8ikaDPRvbVZAtmMP9itb +pgFnxC/pbcjGwWIBxUJ0CO9895sL+XF2woFUETr4ssyVbkDW7ZiTDROjg97h +566cyCpyz9/rS9Ihp7H+GTuy6LsI/Y9ydODYlVbOgvxVp0+IS50OWaMGr3+O +MYlLrDkPPWzoQNffTo4gc+3muWZhS4d7hKnlMHLcsbAgylE6nONQ0xpCDqs6 +uGPNgQ67wIp/ANmNXJeSRqWD8sms3o/IlHYq7UkgHSrlyuvfIL9LkeOWSabD +4SLx7hbkUoLXczyFDgkZcWzYcdM/Wkou0yFm80m1ZmRV05YorXQ6nH25+F8T +chKL+5xFFh1UGQGnGpCN/HPehxXToWtCN/YBsoTEWY19pXT4tKj/vAb5R7v/ +ZbZyOvSY9WzGzpUnLJLu0cFnIq34PvKvvr7GvDrUf0/6TCVylbl44cs2OmQK +XWWUIF9YZmW/0k6HV0cNJbCphZNu9h10iIiJPl2MzLe+TnykE7VXpZvcRfap +t7u09BbVyzowXYgsszMtVHaUDvM27dH5yMvv/nkzMUYHJxel5Tzkrni6Stk4 +HbQHxE9gRw2qTWpP0SGEmuGfi/zh2hsnq+90sNWXO5mDnPoXv+GpdSRkr3p3 +ZSIz5vqOhbCRoCH60Rb7S19RkB87Ce6XtfoykHWrDHKoG0jY31L/7T/kMdew +lQP8JJjxjOy5jvObGwoYCpKgyNXYeg35b00BBWILCexF55ywk3mLj1BEScia +GU1Ox+11/RXiUiS0uTRvTEMmC4rbtsiQcHU/772ruH9yeP8mORI0WQztscdI +Qd71CiTE7o66ewW3Cxp7TqmQYMop4nEZue634OkxVRK8E16JYY9ODFwdUCPB +RDC8KxVZp/FUc7cWCRn+qfuxR3xKJR8CCZKtMzopyBvtItRr9EiotxT9nYys +rW9iXmFAwtBG1WbsJNGh8AITEt0/yjbYD9aXJWcfIGGxlV8Se5gZcfu6OQn+ +l4YnLyFrtW7pSTxIggyn9XlsasXQ13+tSbj5aMYROzGzjPXMYRKevAjfgz0U +ZKoSakfCvhWHgSRkXmch4wAHEmK2V9Rha5kOO3k7klBROJ+GnbjtnwvOriTs +nTK1xX7AdSDXjkpCaLG9JvbQvFCtNY2EqPdHxf/UGxzuNCdJsDxhsO5PvY7y +MSNPEpZjtk0k4nw1//wCb7T+6yZeYyfmHtj8tw8JhT9yGrAfJAorqvuRwOFs +XIw9FDayf3cACcH7PmVg89Aq7BSCSDBKd0nE1rSK8pcJISHP61X0n/o6ZgkS +oSQEVe8Jxb4oJ3JDOIwEWlS0L3Y13+g9/lNoPR8/JLEHVyrauSNJSDwz4fan +/peoQfYoNL5HbC7YGq/NFtdOo/kO53HG/j+qnkLR "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -9769,106 +10132,102 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo -kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv -3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 -ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf -W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d -SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 -AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 -E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH -L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx -C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I -QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 -9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U -PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 -h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ -1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK -UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx -taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb -eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN -ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr -RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q -FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d -2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd -kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo -HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu -AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv -Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN -GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U -BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog -f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 -YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca -gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG -G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 -zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 -27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo -/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW -35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 -cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 -SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou -N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH -oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q -u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA -22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG -DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 -sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV -dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A -+fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE -x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT -ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E -2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M -OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh -sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ -CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ -2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f -pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf -/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI -Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc -9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY -/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR -lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j -KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr -q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a -drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L -lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 -KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS -gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ -77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t -On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI -EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS -etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg -2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs -/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX -sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK -Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf -xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 -wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ -IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O -GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia -70x+Lkfh53XZ2uCv/w8uxqIW +1:eJwd1Xk4VdsbB3ARV4YylDHK2E8iOear9ptZpiKFjMc525CZRFyR4TYRKuoS +MpRkToSTiCQpKkqDzEI4UjKW31r9sZ/9fJ61nnd/17ilqP7WdFYWFpZp9OB3 +4EvlHTVdL/fFqX0718QzS+ybyVenGhQTpeGJfzyQrXFF1oBBLFtRz2IfpL3g +4KE8IaJr/BOwK8JON7MbdBD25fdjsc+1ijSeLnpFVOmoRWPXdgVmrar2EG1H +vkZgT35ojwyv7yXerv8Yii02KnPsp/4nQsWQLRDbjBmpHdzRT6iJ0LyxG1Yn +ucOKBgnjqF9U7LcxwhHVfsPE8MlOB+wZDoPJH6qjRBz7h0PYHBcD7CkLYwRj +h4QJtiT/jbbA+nFie/+1vdiW4j9vzehPERJ8OvLYZI60kBLnDCF/wUUU+7Sc +VfzxDiYBWQ+5sXuFu/eEFH0jRJNlZhqRaQ7eXpcvzhF3AxQ/Y89mstys9PtO +fJ86/gKbU1qJ75vqPDHKSLuDfYXWbMy35SfxRCAmDXv7bfvTuxd+Es84889g +a+1KmPGtXyT0Ply2w/bU6O+Y1F8ltLXEVx4h/wg7sZ5L/hfhWNU+iB1dz62r +wPmbeP2x8in2NdC669GxRihTlFKwaQVtBkFF6+AZpV0Mu6j18kCMOCsY6BAr +DTjvF+fIlIusYLY89QE7cuf8vXI/NuAtm0vHvlImJcNUZQdD+duc2B+6php+ +57HDE8rQ0EOcf67GYeMWDpDiOcLALlazTFVa4ADuHeM+2C21p9b51HPCAbPq +FgbyfPOb/nF9HrDIW7WsRxYw5+GLaOABDq1YEWyVbgPg1eaFk/3bBuuQvUfu +5+xR3ghpoRn+2AGsHSp7efggWyczphZ5VLr0W/xPfji/8DS8Bs8P2b6hkyIA +Eo8q1LBZ745JiQQKQOlgxUw1zkvZZl30VQB2mM+7YDvoJ1e+HBCEFZNzmveR +O92DgoWfbwGtksm6SuTPt5MuuHIKgdddXQ/sqa9FeXcMhaDHqUAAmytk+M3f +jULwe6GOrEA2iDus5npfGIorFtjKkevyNeYLs0WhZo4hUIKcP7ocqhMiAUqj +t2NuIZvY/vs5uEQCNHSdRbCnWgSNSsYkYNcP09ICZLX8XVu220tC582md/l4 +PqnO99j3bQO2e6pSechzzIGT47HbQbxLKikbWdDXoOqehTQcLvboSkcey+fy +POgtDeNivRbYDz51iU8nSMP6D1HtaciO5k6x8o3SoHDcv+kqzqcYan1dVQZW +W/oKLuPvT96ejRKWhRP9P00uIR/24FY6MCgHFin2i/HIRKit6tFfcuCzUOWC +vTM+W5MmKg+L/1m1xiGz5FH0og7Jw+NHeimxyCWfjx2tbJIH4bNSkjH4fB4p +jhHL3QGfTj0TjMT5DCzeTlIVYCqB0z8QOc8m/eNClAKkJzs3BCAnUQcH1mco +wCeReR5sWvSJr5JvFIDsGr7th8zPuMFio78TnHiedR/H+4cys7NeRhFC6Qwu +Ellc+tLpCyO7YMIr7Ys9MuP8D4UlViVgiefaiO343b6blFKC3qUsih1yVous +gp6zEvjtVog8giztUfd68Z0SXIptYbXB4y0elSOfK8NSp+yYGbKEuCS53V4F +zhFr7HuRdxWE8KwQqmD5aKJkKzKVFjuvZKkKn3U1y8TxeZVJ/ezqqAo9TU/K +xJDZcsvKW8NUIUfqVqkIPm9Zk4dTK1RBb+lE3mZ8n15zvaEgQ4E4iqsXD17f +C+bKdhxq8DT9NbnCPUvcDJI9eL9DHVxHviu+Q+4KJTTjCrQhUnaqNApZyrnH +0slnL8hmWfWLIdPXqkslwgFsjmb+V8k1Swh/ffCXMFUPbDSaetSRQyi6n1J3 +GkBs1lRv9QaUf3q1TXDSEFRWw9ZUkEv0gv/K7jSGW2vrBq9yov3zw7up+Iop +bOfuDVz9a5ZY3C/youW0GRTM2tpbIPexsH0bdLOAL6T/oescs4TfVv/kGBkr +UO9xeT/JPkuUerU1Xo0/CDn27ro7kE99F11Q9DoEN2Y6PY+vR/fHAaMjT12s +4fMtPs4MtllC+1jK/tFDNrCNccq3nXWWeC16w7uFchgMX/ZsYEcWuxXLKPyf +LagvtA7tWof218BOc0veIxBhPjfsxoL+B92zHqHTR+CMi5W4+hqToFxNKc4b +OArWPH2Z8b+YxI3135VTm+3AyDw1bn6FSVTv3/0hvtYePk4zzpgsM4lrmuf5 +V4scIMjk8es7i0yi82NBAuXiMTjL8cVbeYFJ3LfIlA2IdoS2PT41mfNM4puv +DYsfzQlk8qw9VX4wiXkjBc8ZfWfYa3yr8O0ckyicfr8YrOECQ3nTdb7fmITd +zQJ3Jx5X+N/n5HLFWSZxr9LMhe1fVxg0ruUbmGES2uKvl84tucKVw4tCjGkm +ITPg8eGVlxuM5904WzbFJEa4j1tlDrtB3W07tZtfmURXkqW7sS0V5OYNMmon +mcSVsGzuE11UOCnZu/ftBJNgNKwtuZu6A8Nj5dMm5E2O8C+lzh22TsY3+Y4z +ie2bn3ZuZbiD66O9aseRVTosRDga3OGnbm6hJ7K17rE7vU3u4DEemOaOfGVr +6PN/nrlD+rJKgj2yWN/dTW297rBwwrbaEFnWWfia44I7yI75OGxD1nadKYxX +owFLqVj9uy9M4tb12WBLDRpEbQps6EHe/GZun7AWDXrVjJrfIM8YLnQX/k2D +F0a+rzqR8xVZ1nXo0cB8vGLtKfLGBX57gUM0SH2+O/8B8kii+oZsXxosXn/J +m4F86Klmt4c/DRxeaO6/jtzAopOtEkiDyZMyoenI14P3qT8OoUF37pmRy8iW +9sZuoxE0CHR0f3MRuVbWvlbxPA0KQlqXopCT6iO9HtyiQT9PpxcN2Vc1XTus +kAbKfa96qMjmdyo2aBXRoMvMTN8NmSt97E5NCQ0C3HOlnZHjgw5OVlchc4/M +HUWOVJA9fv8xDVqin703Q/ZOf+5T+ZkGL0/VNakhm24c0w0aoMFPo4eOFOT/ +xbPwqg6h70doL+1BHgtSL6kYpQFrSJbGbmQ3y+zp8ikaDPRvbVZAtmMP9itb +pgFnxC/pbcjGwWIBxUJ0CO9895sL+XF2woFUETr4ssyVbkDW7ZiTDROjg97h +566cyCpyz9/rS9Ihp7H+GTuy6LsI/Y9ydODYlVbOgvxVp0+IS50OWaMGr3+O +MYlLrDkPPWzoQNffTo4gc+3muWZhS4d7hKnlMHLcsbAgylE6nONQ0xpCDqs6 +uGPNgQ67wIp/ANmNXJeSRqWD8sms3o/IlHYq7UkgHSrlyuvfIL9LkeOWSabD +4SLx7hbkUoLXczyFDgkZcWzYcdM/Wkou0yFm80m1ZmRV05YorXQ6nH25+F8T +chKL+5xFFh1UGQGnGpCN/HPehxXToWtCN/YBsoTEWY19pXT4tKj/vAb5R7v/ +ZbZyOvSY9WzGzpUnLJLu0cFnIq34PvKvvr7GvDrUf0/6TCVylbl44cs2OmQK +XWWUIF9YZmW/0k6HV0cNJbCphZNu9h10iIiJPl2MzLe+TnykE7VXpZvcRfap +t7u09BbVyzowXYgsszMtVHaUDvM27dH5yMvv/nkzMUYHJxel5Tzkrni6Stk4 +HbQHxE9gRw2qTWpP0SGEmuGfi/zh2hsnq+90sNWXO5mDnPoXv+GpdSRkr3p3 +ZSIz5vqOhbCRoCH60Rb7S19RkB87Ce6XtfoykHWrDHKoG0jY31L/7T/kMdew +lQP8JJjxjOy5jvObGwoYCpKgyNXYeg35b00BBWILCexF55ywk3mLj1BEScia +GU1Ox+11/RXiUiS0uTRvTEMmC4rbtsiQcHU/772ruH9yeP8mORI0WQztscdI +Qd71CiTE7o66ewW3Cxp7TqmQYMop4nEZue634OkxVRK8E16JYY9ODFwdUCPB +RDC8KxVZp/FUc7cWCRn+qfuxR3xKJR8CCZKtMzopyBvtItRr9EiotxT9nYys +rW9iXmFAwtBG1WbsJNGh8AITEt0/yjbYD9aXJWcfIGGxlV8Se5gZcfu6OQn+ +l4YnLyFrtW7pSTxIggyn9XlsasXQ13+tSbj5aMYROzGzjPXMYRKevAjfgz0U +ZKoSakfCvhWHgSRkXmch4wAHEmK2V9Rha5kOO3k7klBROJ+GnbjtnwvOriTs +nTK1xX7AdSDXjkpCaLG9JvbQvFCtNY2EqPdHxf/UGxzuNCdJsDxhsO5PvY7y +MSNPEpZjtk0k4nw1//wCb7T+6yZeYyfmHtj8tw8JhT9yGrAfJAorqvuRwOFs +XIw9FDayf3cACcH7PmVg89Aq7BSCSDBKd0nE1rSK8pcJISHP61X0n/o6ZgkS +oSQEVe8Jxb4oJ3JDOIwEWlS0L3Y13+g9/lNoPR8/JLEHVyrauSNJSDwz4fan +/peoQfYoNL5HbC7YGq/NFtdOo/kO53HG/j+qnkLR "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "PlotRange" -> {{0, 180}, {0.9968935810937135, 1.003114260517834}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.42228371308737755`}, + "AxesOrigin" -> {0, 0.9968935810937157}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -9880,20 +10239,20 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "PlotRange" -> {{0, 180}, {0.9968935810937135, 1.003114260517834}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.42228371308737755`}, + "AxesOrigin" -> {0, 0.9968935810937157}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -9907,105 +10266,101 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo -kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv -3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 -ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf -W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d -SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 -AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 -E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH -L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx -C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I -QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 -9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U -PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 -h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ -1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK -UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx -taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb -eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN -ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr -RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q -FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d -2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd -kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo -HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu -AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv -Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN -GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U -BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog -f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 -YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca -gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG -G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 -zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 -27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo -/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW -35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 -cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 -SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou -N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH -oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q -u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA -22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG -DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 -sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV -dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A -+fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE -x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT -ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E -2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M -OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh -sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ -CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ -2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f -pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf -/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI -Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc -9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY -/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR -lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j -KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr -q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a -drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L -lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 -KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS -gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ -77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t -On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI -EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS -etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg -2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs -/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX -sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK -Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf -xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 -wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ -IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O -GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia -70x+Lkfh53XZ2uCv/w8uxqIW +1:eJwd1Xk4VdsbB3ARV4YylDHK2E8iOear9ptZpiKFjMc525CZRFyR4TYRKuoS +MpRkToSTiCQpKkqDzEI4UjKW31r9sZ/9fJ61nnd/17ilqP7WdFYWFpZp9OB3 +4EvlHTVdL/fFqX0718QzS+ybyVenGhQTpeGJfzyQrXFF1oBBLFtRz2IfpL3g +4KE8IaJr/BOwK8JON7MbdBD25fdjsc+1ijSeLnpFVOmoRWPXdgVmrar2EG1H +vkZgT35ojwyv7yXerv8Yii02KnPsp/4nQsWQLRDbjBmpHdzRT6iJ0LyxG1Yn +ucOKBgnjqF9U7LcxwhHVfsPE8MlOB+wZDoPJH6qjRBz7h0PYHBcD7CkLYwRj +h4QJtiT/jbbA+nFie/+1vdiW4j9vzehPERJ8OvLYZI60kBLnDCF/wUUU+7Sc +VfzxDiYBWQ+5sXuFu/eEFH0jRJNlZhqRaQ7eXpcvzhF3AxQ/Y89mstys9PtO +fJ86/gKbU1qJ75vqPDHKSLuDfYXWbMy35SfxRCAmDXv7bfvTuxd+Es84889g +a+1KmPGtXyT0Ply2w/bU6O+Y1F8ltLXEVx4h/wg7sZ5L/hfhWNU+iB1dz62r +wPmbeP2x8in2NdC669GxRihTlFKwaQVtBkFF6+AZpV0Mu6j18kCMOCsY6BAr +DTjvF+fIlIusYLY89QE7cuf8vXI/NuAtm0vHvlImJcNUZQdD+duc2B+6php+ +57HDE8rQ0EOcf67GYeMWDpDiOcLALlazTFVa4ADuHeM+2C21p9b51HPCAbPq +FgbyfPOb/nF9HrDIW7WsRxYw5+GLaOABDq1YEWyVbgPg1eaFk/3bBuuQvUfu +5+xR3ghpoRn+2AGsHSp7efggWyczphZ5VLr0W/xPfji/8DS8Bs8P2b6hkyIA +Eo8q1LBZ745JiQQKQOlgxUw1zkvZZl30VQB2mM+7YDvoJ1e+HBCEFZNzmveR +O92DgoWfbwGtksm6SuTPt5MuuHIKgdddXQ/sqa9FeXcMhaDHqUAAmytk+M3f +jULwe6GOrEA2iDus5npfGIorFtjKkevyNeYLs0WhZo4hUIKcP7ocqhMiAUqj +t2NuIZvY/vs5uEQCNHSdRbCnWgSNSsYkYNcP09ICZLX8XVu220tC582md/l4 +PqnO99j3bQO2e6pSechzzIGT47HbQbxLKikbWdDXoOqehTQcLvboSkcey+fy +POgtDeNivRbYDz51iU8nSMP6D1HtaciO5k6x8o3SoHDcv+kqzqcYan1dVQZW +W/oKLuPvT96ejRKWhRP9P00uIR/24FY6MCgHFin2i/HIRKit6tFfcuCzUOWC +vTM+W5MmKg+L/1m1xiGz5FH0og7Jw+NHeimxyCWfjx2tbJIH4bNSkjH4fB4p +jhHL3QGfTj0TjMT5DCzeTlIVYCqB0z8QOc8m/eNClAKkJzs3BCAnUQcH1mco +wCeReR5sWvSJr5JvFIDsGr7th8zPuMFio78TnHiedR/H+4cys7NeRhFC6Qwu +Ellc+tLpCyO7YMIr7Ys9MuP8D4UlViVgiefaiO343b6blFKC3qUsih1yVous +gp6zEvjtVog8giztUfd68Z0SXIptYbXB4y0elSOfK8NSp+yYGbKEuCS53V4F +zhFr7HuRdxWE8KwQqmD5aKJkKzKVFjuvZKkKn3U1y8TxeZVJ/ezqqAo9TU/K +xJDZcsvKW8NUIUfqVqkIPm9Zk4dTK1RBb+lE3mZ8n15zvaEgQ4E4iqsXD17f +C+bKdhxq8DT9NbnCPUvcDJI9eL9DHVxHviu+Q+4KJTTjCrQhUnaqNApZyrnH +0slnL8hmWfWLIdPXqkslwgFsjmb+V8k1Swh/ffCXMFUPbDSaetSRQyi6n1J3 +GkBs1lRv9QaUf3q1TXDSEFRWw9ZUkEv0gv/K7jSGW2vrBq9yov3zw7up+Iop +bOfuDVz9a5ZY3C/youW0GRTM2tpbIPexsH0bdLOAL6T/oescs4TfVv/kGBkr +UO9xeT/JPkuUerU1Xo0/CDn27ro7kE99F11Q9DoEN2Y6PY+vR/fHAaMjT12s +4fMtPs4MtllC+1jK/tFDNrCNccq3nXWWeC16w7uFchgMX/ZsYEcWuxXLKPyf +LagvtA7tWof218BOc0veIxBhPjfsxoL+B92zHqHTR+CMi5W4+hqToFxNKc4b +OArWPH2Z8b+YxI3135VTm+3AyDw1bn6FSVTv3/0hvtYePk4zzpgsM4lrmuf5 +V4scIMjk8es7i0yi82NBAuXiMTjL8cVbeYFJ3LfIlA2IdoS2PT41mfNM4puv +DYsfzQlk8qw9VX4wiXkjBc8ZfWfYa3yr8O0ckyicfr8YrOECQ3nTdb7fmITd +zQJ3Jx5X+N/n5HLFWSZxr9LMhe1fVxg0ruUbmGES2uKvl84tucKVw4tCjGkm +ITPg8eGVlxuM5904WzbFJEa4j1tlDrtB3W07tZtfmURXkqW7sS0V5OYNMmon +mcSVsGzuE11UOCnZu/ftBJNgNKwtuZu6A8Nj5dMm5E2O8C+lzh22TsY3+Y4z +ie2bn3ZuZbiD66O9aseRVTosRDga3OGnbm6hJ7K17rE7vU3u4DEemOaOfGVr +6PN/nrlD+rJKgj2yWN/dTW297rBwwrbaEFnWWfia44I7yI75OGxD1nadKYxX +owFLqVj9uy9M4tb12WBLDRpEbQps6EHe/GZun7AWDXrVjJrfIM8YLnQX/k2D +F0a+rzqR8xVZ1nXo0cB8vGLtKfLGBX57gUM0SH2+O/8B8kii+oZsXxosXn/J +m4F86Klmt4c/DRxeaO6/jtzAopOtEkiDyZMyoenI14P3qT8OoUF37pmRy8iW +9sZuoxE0CHR0f3MRuVbWvlbxPA0KQlqXopCT6iO9HtyiQT9PpxcN2Vc1XTus +kAbKfa96qMjmdyo2aBXRoMvMTN8NmSt97E5NCQ0C3HOlnZHjgw5OVlchc4/M +HUWOVJA9fv8xDVqin703Q/ZOf+5T+ZkGL0/VNakhm24c0w0aoMFPo4eOFOT/ +xbPwqg6h70doL+1BHgtSL6kYpQFrSJbGbmQ3y+zp8ikaDPRvbVZAtmMP9itb +pgFnxC/pbcjGwWIBxUJ0CO9895sL+XF2woFUETr4ssyVbkDW7ZiTDROjg97h +566cyCpyz9/rS9Ihp7H+GTuy6LsI/Y9ydODYlVbOgvxVp0+IS50OWaMGr3+O +MYlLrDkPPWzoQNffTo4gc+3muWZhS4d7hKnlMHLcsbAgylE6nONQ0xpCDqs6 +uGPNgQ67wIp/ANmNXJeSRqWD8sms3o/IlHYq7UkgHSrlyuvfIL9LkeOWSabD +4SLx7hbkUoLXczyFDgkZcWzYcdM/Wkou0yFm80m1ZmRV05YorXQ6nH25+F8T +chKL+5xFFh1UGQGnGpCN/HPehxXToWtCN/YBsoTEWY19pXT4tKj/vAb5R7v/ +ZbZyOvSY9WzGzpUnLJLu0cFnIq34PvKvvr7GvDrUf0/6TCVylbl44cs2OmQK +XWWUIF9YZmW/0k6HV0cNJbCphZNu9h10iIiJPl2MzLe+TnykE7VXpZvcRfap +t7u09BbVyzowXYgsszMtVHaUDvM27dH5yMvv/nkzMUYHJxel5Tzkrni6Stk4 +HbQHxE9gRw2qTWpP0SGEmuGfi/zh2hsnq+90sNWXO5mDnPoXv+GpdSRkr3p3 +ZSIz5vqOhbCRoCH60Rb7S19RkB87Ce6XtfoykHWrDHKoG0jY31L/7T/kMdew +lQP8JJjxjOy5jvObGwoYCpKgyNXYeg35b00BBWILCexF55ywk3mLj1BEScia +GU1Ox+11/RXiUiS0uTRvTEMmC4rbtsiQcHU/772ruH9yeP8mORI0WQztscdI +Qd71CiTE7o66ewW3Cxp7TqmQYMop4nEZue634OkxVRK8E16JYY9ODFwdUCPB +RDC8KxVZp/FUc7cWCRn+qfuxR3xKJR8CCZKtMzopyBvtItRr9EiotxT9nYys +rW9iXmFAwtBG1WbsJNGh8AITEt0/yjbYD9aXJWcfIGGxlV8Se5gZcfu6OQn+ +l4YnLyFrtW7pSTxIggyn9XlsasXQ13+tSbj5aMYROzGzjPXMYRKevAjfgz0U +ZKoSakfCvhWHgSRkXmch4wAHEmK2V9Rha5kOO3k7klBROJ+GnbjtnwvOriTs +nTK1xX7AdSDXjkpCaLG9JvbQvFCtNY2EqPdHxf/UGxzuNCdJsDxhsO5PvY7y +MSNPEpZjtk0k4nw1//wCb7T+6yZeYyfmHtj8tw8JhT9yGrAfJAorqvuRwOFs +XIw9FDayf3cACcH7PmVg89Aq7BSCSDBKd0nE1rSK8pcJISHP61X0n/o6ZgkS +oSQEVe8Jxb4oJ3JDOIwEWlS0L3Y13+g9/lNoPR8/JLEHVyrauSNJSDwz4fan +/peoQfYoNL5HbC7YGq/NFtdOo/kO53HG/j+qnkLR "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "PlotRange" -> {{0, 180}, {0.9968935810937135, 1.003114260517834}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.42228371308737755`}, + "AxesOrigin" -> {0, 0.9968935810937157}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10015,7 +10370,8 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.42228371308737755`}, + AxesOrigin->{0, 0.9968935810937157}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -10043,7 +10399,8 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.4222837130873766, 2.103798844286089}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.9968935810937135, 1.003114260517834}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -10051,9 +10408,9 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913411752988663`*^9}, + CellChangeTimes->{3.9913411752988663`*^9, 3.994259029259178*^9}, CellLabel-> - "Out[360]=",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] + "Out[118]=",ExpressionUUID->"7fc606d6-6ad7-4d53-8148-63df502869f5"] }, Open ]], Cell[CellGroupData[{ @@ -10116,157 +10473,157 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.9918498397477245`*^9, - 3.9918498435341415`*^9}},ExpressionUUID->"92d458c4-bfde-c447-a06c-\ -70a15768b745"], + CellChangeTimes->{{3.9918498397477245`*^9, 3.9918498435341415`*^9}}, + CellLabel-> + "In[119]:=",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.939746899581406`*^-267\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 361, - 369, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913411755393047`*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.971999292840791`*^-282\\\", \ +\\\"40990389067797283140009984000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 119, 41, + 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913411755393047`*^9, 3.994259029481678*^9}, CellLabel-> "During evaluation of \ -In[361]:=",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], +In[119]:=",ExpressionUUID->"c68f7cc2-3c66-4d0e-8a35-a0e0fc4adcfb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.7974258435449576`*^-278\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 361, 370, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913411755492897`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.441200636593641`*^-297\\\", \ +\\\"14797530453474819213543604224000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 119, 42, + 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913411755393047`*^9, 3.9942590294906054`*^9}, CellLabel-> "During evaluation of \ -In[361]:=",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], +In[119]:=",ExpressionUUID->"168183eb-aeb5-4abe-a5ca-ccc4bffca4b3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.87479384448772`*^-289\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 361, 371, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991341175557289*^9}, + "\"\\!\\(\\*SuperscriptBox[\\\"1.5646262699863435`*^-8\\\", \\\"40\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 119, 43, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913411755393047`*^9, 3.994259029500113*^9}, CellLabel-> "During evaluation of \ -In[361]:=",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], +In[119]:=",ExpressionUUID->"3c4ec009-accc-4d56-b6a6-3413e3bca7c4"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 361, 372, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913411755664787`*^9}, +during this calculation.\"", 2, 119, 44, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913411755393047`*^9, 3.9942590295094337`*^9}, CellLabel-> "During evaluation of \ -In[361]:=",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], +In[119]:=",ExpressionUUID->"f7ee9cc1-47fc-4c81-af42-62847ad32f67"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK -FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE -hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux -IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B -8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K -ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS -jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 -CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs -KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC -owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 -9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV -MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 -h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC -Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp -9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ -oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt -GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN -62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw -rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 -M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS -dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ -Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ -bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys -CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp -YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF -Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc -mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn -Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM -PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u -4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K -R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l -F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y -6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q -FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF -0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 -dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG -jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU -s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq -KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g -aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx -0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ -bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 -emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY -+Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix -Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK -ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv -HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt -pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR -URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp -/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K -MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh -VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi -Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i -bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys -Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf -kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 -mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ -emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X -PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC -5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr -ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk -8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr -qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO -6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY -ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 -w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m -Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb -eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo -/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm -N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx -4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq -QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya -LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF -jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm -m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 -d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX -WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D -0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD -uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk -u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT -V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 -ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT -PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 -ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q -bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA -OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC -oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 -YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL -/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nc81e0bB/BKaYg8RtnjnO8xysxKHNdFkiJKRhpGdhk5JKNEIXpUdiEj +yTrn25TR4kGRloysUhpPJYUyS4/f/fvjvM7r/Tqvc5/vue/r/lyX4r4gO68F +8+bN+0Ne/3+fHHjURP1dbDL+JvyEht06k858iQjTnuPA3t+3Y4ftSkDx5/sk +etIgQHdwSsFWCcK2VXTz9RTBQ1O75vm2+vDX91VpM9034N2eYarPxgLe3LUJ +Gu9ugObASjVvG0ewoIZej3W3w3/jzuVca2+Y6TbIHO1+ByITY2lPN4ZB44bS +4hdFP6GPnVfZKX4SZN7U/rtP7Q+sj6gScJ+fCmL+rhWLN/BhziIhL1udLEjT +trhj47AEF7rkTbzOzoXe81r1Y8KCuNxlf+w9zUL4u/jY8wWSf+FgfoLMvJwi +WJXxPik9TxQdw1Ot1zcXw0n7zSbtk+JobbCO4ZxfAiGGF10fHZdA57TWbwc8 +y8B85Fdk4HspHOgWeOnZWQ4Rlhmr/xmWQgmtfG52bzlcuajeJzophff2LlV+ +PFAOEvZuhrVLpJE1YCREfSmH4ZoHU3wa0vh75UQm/acc0o+nhGaHS6MeU9Na +XqkC3okrBTYJyqC7xaL4qNAKiDXe7i61ThZL3Z2WCizmgqVL/g8DM1n0++St +81CAC0IxX084WMtiE31i91FhLlxojC9JcZPFCw1Wl99IcqFmy+2v/Emy2PpL +WjpUjQujO5lhP3tl0chRJuTVNi64HJo49SRKDqMHOYyKLC6wzpnJDMXL4cbE +jS8/5HDJ856lF6fIoYSlbrx0ARciZ1XbzIrlMMDfsvNIKRcyT7iI1z6Rw2TD +6/orarjwJLW54LKsPC5c3bUspIcL669kV0bXySM/746YwUoemHc/+/O9RR7D +Bi8fvi7JA5t5Cze5tstjVUnCbhVZHnjYBfbCR3n8Xn2oRIDigUWU4rGYRQrI +CNK3KtPmwUH5yUumaxTwu93ke0NrHjT5FHxrDFNANYF/xeqiebB51lDkSJQC +9oRfbX4Uy4NnKZ36ujEKWHNebK4tjge9tUtjipMU8ISKw2znKR58FwgVib+g +gKcuWOvdzOKBxDVLA4sGBczYzW5poXngPz0W0yKoiC0dWs+de3mwPth75b8i +ihjW8MJJ/RUPlgz1cfkkFHGKWdg2O8CDy/2NL00YitgnuzDj7AceDNzPVLul +Tz7ndO6PG+GBbbxhz0VXRawN+lnEXUjDWpFYzajrivi27W7djzU0zPt7oul8 +lSIWi1bPmGvQ8Ixv/66qO4pYN5aima5Fw4EJu/ixB4po0pqZwtSjobiH6vfp +I89jM6EjZkLDyoKWBHs+BoqUHvbQs6VhZo3wgLoDAzvFU65EBtIwmScVq7OL +gYV39FrMD9IwvoJFGboy0PNR6V8CHBq+/zTcb+7HwDjXcb3kQzS8u+Mxueso +Ax1+B7e7HaGh1apaKPEyA7diwfMdSTQ03/vn+ukKBjppLKUGT9HQpPnEPv0q +A70TSq7tT6bhvuhgTn4tA/fLXQvlnKXhRv8y5VtPGTjFyqm2z6Qh54ALvJtg +YG20XJlnIQ3nXvu++/SLgSbGRxpvXaQhwzYk/tscAzPLDRT4LtFwRifx8fRS +Jn50VCtMu0zD8d/XnVbIMXHs9lRrXAXZn78XHTS2YGK29kuHqps0+P5ZIWpm +xcSyWY+2x5U0eAdJVW3axsQjNw2yXt+iwW2H5qzdLia+9zbnn6ymwV7aOdEv +kImHKpinft2hwZjLK8zKYmKSZnelXSMN/Qrcgo25TDRdkZYl10RDZFZ5/ngB +E8slnSw/EVfHllywK2fiVRUjuaCH5Hx3Fp4XustEQT7VSzsf0fDiaf65e/VM +fOg4IibQSsPBDXlZ/g+Y6MIx332b+IpGTkbrMyZqmnzyWfGEBtVFGSkJg0y0 +f2Wamv6MhpbItLN6/zLx0hG6Wu05+T+jKWc+DDER27dWNxAX959ONhtnouXu +JPOPbTQo3DiZ+B8/hdHc1NKFHTTUKSecpAUo/EJtLIsjdsmLS9gjTCG/4HjC +/E4achNj425LUpjPuv52jHila1RMmBqFYdF1K+mXNNzqjDjG0qZw4ZC7hFg3 +2a8t4dGdehQ+b/x39jBxmt6hI2uBQk6tWLB+Dw3a3JCowQ3k90//mZ9K3KbA +iUyxpLAALMM/EwsuDwr/vp3CSMnEVWd6aeDFBhzOc6Twzud601fEW6YOhFnv +pvDch3c7lPtoSHznG1rhSeFW4aC1lcTKO31CnP0oDH2mMG+S+OFTL86SQAqN +u7bU6PbTsLB230HvwxSeUrswVEZ8ScM9SPwIhVFfhLwHiM2KXQObYih0ak55 +JvyKhreSLgEh8RRmXm2hkPjY2T3+jFMUivK7+PkTyy3afeDFGQq7yqYvZBLf +jXTeH5NOYf0I1t8h3j3q5Kd5nkIr3puOAeJfXo6+Axco3KAa3fMfcXa/vc/p +ixQmrX74TPo1Deu27/A2LqHw9rB7tR5x98PtXl8rKJygZtOsicOMt3nmXKUw +dx7ucyMWv2HjsbmSwmmqlxVMXKm8dd90DYWCV0MGoont8qzcS+9RCDp3k5OI +x0S2uDk2UPjXPVftVOIef0bb/mYKb940FMwirn/4C449ofCJ6A+nc8RlCh1X +019Q+PaYj0gmcUokV77sJYUV7Aj2WeLwzhNn7/ZT2Ky3uC+e2E1jz1zbWwoN +fo59Die2TNQN+viRQr5LUgd8ibXeLX8zM0Rhm6iHuz2xhPFHG6FRCr1u0U+M +iedl3bvPmKDQ4fxrWpH480imhsEvCk8EvFzER/x8c2C+1RyFD+KPdL0l+1d1 +yULIbSELfV9Uyv5/v/P/yEWHLmVhzxvPN6nEgdef780TZWFS7oN2XWJHgbKn +1yVYqH3MnH8+sYlXDPuhLAvzUrurHpHzF5TUlh1RZqFe8Ou0bcTjnKWn+dRZ +mLKHWS9E/OrJ4OyqteT7N5iBj0h98WLSXqExC3kn523TJc7o22/tYMrC4bnK ++A+kXo/obrjrZ8FCv/YOSCW2+vwzN20bC3VEF298S+p9yNZh9wdPFu639KDt +yX1pL1d/PO3Hwv7CeIUv5H7d5uM3Egxi4Z33Z+QjiZOqq6T0I1gYWir/ILWL +BhV5ib6Tp1m4Z+PrlnPk/gpHjG6+kMbCmbGuW8LE0+0ttdfOsfBHkZN+QjvJ +i4SI7N6LLFwu1j7h/YIGn+99O9dUkf1TaU6aI3liY3mzBe6wMOCTssZeYv2i +v9fZ17OwLrgnoPopDfyOxhJHW1nIP7ey0Z3kUcm9vO5nAyz0r+O+PU3y7EOy +myNnsRJaRgk3m5N8DBxSY2gtV8K5+UaSUQ00TG2a+fZNWAllVhyKu/IPDcv4 +0uL9pJTQdMarfHk9qY+Ixko3dSXs0T5kXnKXhqNeSqK2O5TQ3dE30pbkM3/j +j4HlO5VQJDvpHyeS3ykKdRWte8h6exU19978f945mVl4K+HXNulY1+ukP21P +CmZHKGFHAUvCjCb5ZTL8fE2BEn5aKdZxrJiGwtya3C+XlPCEZ9znXaSfqM7E ++ZSWKWFImu5anSKS95Wyc4wbSmj1psOrv4AGj9W2GlIPlLD1Zp73slwarq28 +kbzkqxLu6+DPeJ9Cw+aRw5s/6ivjuSc9rxMjaZDRlktYYqyMy6IszIfDST/l +NDWsMVXGHTsF4qwPk3qZFDbmWCnj7KeNGXyhNAz8KdeYc1VGSy0LCesAGjjL +X4lKJhFXKlZtciX9URUHrPuVsWe7eN4Y0uB/4F+pg2+VMXPHyYgfpN8DneyU +/lEZTw1FOowak/PQ6m3rHVFGP7dm4ffraNBYx2n0XqiCGRc1qovJ/NBoUVwW +o66C2dbsl9nyNAx7LAmpPKaCV1Obl9j/JvNQvvm9ujgV3OzbYrZghgcjvTGL +Hyep4Ft5y/v0JA9+2M7kDqar4JnO5OjZMR5MGQ01CZWpoGRuzcaIzzxYIPZk +pV+bCtbd/f17tJMHkk1nb8sqquIrU+3jg1wyz1GrFpxsUMXlE3lFAnY8+LJv +U5lRsyomVOm/s7DlQfLFwzajj1XJeTctiCHzXYdcT45zlyr2pXcNfbXggZtk +to7aZ1V02RIQUmHEgwghaa8XgquxzeqHVSOZF3nTci3SzqvxxeTOrQcmuCDy +VOnMtZHVuP547ZlnKVyQSby6TV9fDRsOjjTeyKuA82sMhUV91PHbUKxic0E5 +tEqZ6v1M1cA96wNjPqeWwXqZhhTNl5pYo2V7IXhXKQjxFYW6H9dCRQ2ZhlOr +S0AuVt7YWUkbvYosxJy7i2Epa0+VXbM2XouV1WyJuwQabMmrh/euxSR9rfrC +TUXAGRBp3DJPB1t8T+xsGCuEkZ/JDpvP6+BkgKrygqAC2KT5MGezui46xLSt +6hLLg/s/jX5PPdNF/9OjcuW5ORCotrbvhZceykql/pfocR7Y3z07nZfq42UU +5l5alQUbKYmtgkX6uNgSt29fkQEqMafCGwwMsL7OLLBUPQ1WexnWsfoMUNBP +2nedeQp43feNqwxeh1F6mRw+/dNQV9jpOSZuiNvOnH8TPZgE42VzU5rVhih5 +mRNcOpgAHizu0pyt63Fs+rRPw/Y4GFudrn9jdD1aZ4tdMW2NhZri34MTiUaY +tqb+JcvmGOwyZ6KRnDGqJUlf8T8RBdIBJ2s16o1xQn32iFD7YRBf5n99qxMb +Vx8W/J53PxSKNxyNHHVmo1ii0+nS66Gw9uiZDel72Lj19dfm6uJQsBm91tXj +ThzOzz98KhQSXk7MePizsXlFnM8lp1CYLjpmFhnLxqTivY+tfoRAn1F6RwmX +ja/8hw6GqIWA76HiC5uvsHFqkR3LWiEEJq/c8hq+xsavT6PU14iFgAijZ0q7 +io3DoQyt2d8csFoiK3Ovno2WHaL1Xx5z4G5niWdHFxtNbmwRH/PnwBahGvWw +HjbamG2bUXfnQM+mR5MS/Ww0MLISDHbgwPjtr4kub9m4drnm3aUmHFC/qEV/ +GWLjieXCU3EryHp9pmHJ39ioc5Ih85OPrCe2AzRH2ej53sLVZzoYvE8eehE6 +wcZlRzv19w0Gw3h9Qs6qaTZyYx48/NwVDMd/nfO4/YuNCT+7DxxqDQZh3XK1 +vX/YGPX+OXNJXTDkB9yemJtjY83B4OHCm8HwP87/U9s= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -10280,116 +10637,113 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK -FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE -hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux -IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B -8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K -ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS -jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 -CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs -KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC -owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 -9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV -MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 -h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC -Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp -9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ -oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt -GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN -62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw -rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 -M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS -dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ -Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ -bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys -CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp -YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF -Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc -mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn -Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM -PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u -4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K -R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l -F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y -6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q -FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF -0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 -dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG -jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU -s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq -KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g -aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx -0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ -bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 -emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY -+Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix -Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK -ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv -HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt -pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR -URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp -/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K -MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh -VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi -Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i -bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys -Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf -kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 -mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ -emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X -PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC -5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr -ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk -8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr -qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO -6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY -ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 -w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m -Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb -eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo -/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm -N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx -4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq -QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya -LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF -jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm -m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 -d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX -WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D -0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD -uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk -u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT -V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 -ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT -PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 -ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q -bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA -OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC -oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 -YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL -/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= +1:eJwV1nc81e0bB/BKaYg8RtnjnO8xysxKHNdFkiJKRhpGdhk5JKNEIXpUdiEj +yTrn25TR4kGRloysUhpPJYUyS4/f/fvjvM7r/Tqvc5/vue/r/lyX4r4gO68F +8+bN+0Ne/3+fHHjURP1dbDL+JvyEht06k858iQjTnuPA3t+3Y4ftSkDx5/sk +etIgQHdwSsFWCcK2VXTz9RTBQ1O75vm2+vDX91VpM9034N2eYarPxgLe3LUJ +Gu9ugObASjVvG0ewoIZej3W3w3/jzuVca2+Y6TbIHO1+ByITY2lPN4ZB44bS +4hdFP6GPnVfZKX4SZN7U/rtP7Q+sj6gScJ+fCmL+rhWLN/BhziIhL1udLEjT +trhj47AEF7rkTbzOzoXe81r1Y8KCuNxlf+w9zUL4u/jY8wWSf+FgfoLMvJwi +WJXxPik9TxQdw1Ot1zcXw0n7zSbtk+JobbCO4ZxfAiGGF10fHZdA57TWbwc8 +y8B85Fdk4HspHOgWeOnZWQ4Rlhmr/xmWQgmtfG52bzlcuajeJzophff2LlV+ +PFAOEvZuhrVLpJE1YCREfSmH4ZoHU3wa0vh75UQm/acc0o+nhGaHS6MeU9Na +XqkC3okrBTYJyqC7xaL4qNAKiDXe7i61ThZL3Z2WCizmgqVL/g8DM1n0++St +81CAC0IxX084WMtiE31i91FhLlxojC9JcZPFCw1Wl99IcqFmy+2v/Emy2PpL +WjpUjQujO5lhP3tl0chRJuTVNi64HJo49SRKDqMHOYyKLC6wzpnJDMXL4cbE +jS8/5HDJ856lF6fIoYSlbrx0ARciZ1XbzIrlMMDfsvNIKRcyT7iI1z6Rw2TD +6/orarjwJLW54LKsPC5c3bUspIcL669kV0bXySM/746YwUoemHc/+/O9RR7D +Bi8fvi7JA5t5Cze5tstjVUnCbhVZHnjYBfbCR3n8Xn2oRIDigUWU4rGYRQrI +CNK3KtPmwUH5yUumaxTwu93ke0NrHjT5FHxrDFNANYF/xeqiebB51lDkSJQC +9oRfbX4Uy4NnKZ36ujEKWHNebK4tjge9tUtjipMU8ISKw2znKR58FwgVib+g +gKcuWOvdzOKBxDVLA4sGBczYzW5poXngPz0W0yKoiC0dWs+de3mwPth75b8i +ihjW8MJJ/RUPlgz1cfkkFHGKWdg2O8CDy/2NL00YitgnuzDj7AceDNzPVLul +Tz7ndO6PG+GBbbxhz0VXRawN+lnEXUjDWpFYzajrivi27W7djzU0zPt7oul8 +lSIWi1bPmGvQ8Ixv/66qO4pYN5aima5Fw4EJu/ixB4po0pqZwtSjobiH6vfp +I89jM6EjZkLDyoKWBHs+BoqUHvbQs6VhZo3wgLoDAzvFU65EBtIwmScVq7OL +gYV39FrMD9IwvoJFGboy0PNR6V8CHBq+/zTcb+7HwDjXcb3kQzS8u+Mxueso +Ax1+B7e7HaGh1apaKPEyA7diwfMdSTQ03/vn+ukKBjppLKUGT9HQpPnEPv0q +A70TSq7tT6bhvuhgTn4tA/fLXQvlnKXhRv8y5VtPGTjFyqm2z6Qh54ALvJtg +YG20XJlnIQ3nXvu++/SLgSbGRxpvXaQhwzYk/tscAzPLDRT4LtFwRifx8fRS +Jn50VCtMu0zD8d/XnVbIMXHs9lRrXAXZn78XHTS2YGK29kuHqps0+P5ZIWpm +xcSyWY+2x5U0eAdJVW3axsQjNw2yXt+iwW2H5qzdLia+9zbnn6ymwV7aOdEv +kImHKpinft2hwZjLK8zKYmKSZnelXSMN/Qrcgo25TDRdkZYl10RDZFZ5/ngB +E8slnSw/EVfHllywK2fiVRUjuaCH5Hx3Fp4XustEQT7VSzsf0fDiaf65e/VM +fOg4IibQSsPBDXlZ/g+Y6MIx332b+IpGTkbrMyZqmnzyWfGEBtVFGSkJg0y0 +f2Wamv6MhpbItLN6/zLx0hG6Wu05+T+jKWc+DDER27dWNxAX959ONhtnouXu +JPOPbTQo3DiZ+B8/hdHc1NKFHTTUKSecpAUo/EJtLIsjdsmLS9gjTCG/4HjC +/E4achNj425LUpjPuv52jHila1RMmBqFYdF1K+mXNNzqjDjG0qZw4ZC7hFg3 +2a8t4dGdehQ+b/x39jBxmt6hI2uBQk6tWLB+Dw3a3JCowQ3k90//mZ9K3KbA +iUyxpLAALMM/EwsuDwr/vp3CSMnEVWd6aeDFBhzOc6Twzud601fEW6YOhFnv +pvDch3c7lPtoSHznG1rhSeFW4aC1lcTKO31CnP0oDH2mMG+S+OFTL86SQAqN +u7bU6PbTsLB230HvwxSeUrswVEZ8ScM9SPwIhVFfhLwHiM2KXQObYih0ak55 +JvyKhreSLgEh8RRmXm2hkPjY2T3+jFMUivK7+PkTyy3afeDFGQq7yqYvZBLf +jXTeH5NOYf0I1t8h3j3q5Kd5nkIr3puOAeJfXo6+Axco3KAa3fMfcXa/vc/p +ixQmrX74TPo1Deu27/A2LqHw9rB7tR5x98PtXl8rKJygZtOsicOMt3nmXKUw +dx7ucyMWv2HjsbmSwmmqlxVMXKm8dd90DYWCV0MGoont8qzcS+9RCDp3k5OI +x0S2uDk2UPjXPVftVOIef0bb/mYKb940FMwirn/4C449ofCJ6A+nc8RlCh1X +019Q+PaYj0gmcUokV77sJYUV7Aj2WeLwzhNn7/ZT2Ky3uC+e2E1jz1zbWwoN +fo59Die2TNQN+viRQr5LUgd8ibXeLX8zM0Rhm6iHuz2xhPFHG6FRCr1u0U+M +iedl3bvPmKDQ4fxrWpH480imhsEvCk8EvFzER/x8c2C+1RyFD+KPdL0l+1d1 +yULIbSELfV9Uyv5/v/P/yEWHLmVhzxvPN6nEgdef780TZWFS7oN2XWJHgbKn +1yVYqH3MnH8+sYlXDPuhLAvzUrurHpHzF5TUlh1RZqFe8Ou0bcTjnKWn+dRZ +mLKHWS9E/OrJ4OyqteT7N5iBj0h98WLSXqExC3kn523TJc7o22/tYMrC4bnK ++A+kXo/obrjrZ8FCv/YOSCW2+vwzN20bC3VEF298S+p9yNZh9wdPFu639KDt +yX1pL1d/PO3Hwv7CeIUv5H7d5uM3Egxi4Z33Z+QjiZOqq6T0I1gYWir/ILWL +BhV5ib6Tp1m4Z+PrlnPk/gpHjG6+kMbCmbGuW8LE0+0ttdfOsfBHkZN+QjvJ +i4SI7N6LLFwu1j7h/YIGn+99O9dUkf1TaU6aI3liY3mzBe6wMOCTssZeYv2i +v9fZ17OwLrgnoPopDfyOxhJHW1nIP7ey0Z3kUcm9vO5nAyz0r+O+PU3y7EOy +myNnsRJaRgk3m5N8DBxSY2gtV8K5+UaSUQ00TG2a+fZNWAllVhyKu/IPDcv4 +0uL9pJTQdMarfHk9qY+Ixko3dSXs0T5kXnKXhqNeSqK2O5TQ3dE30pbkM3/j +j4HlO5VQJDvpHyeS3ykKdRWte8h6exU19978f945mVl4K+HXNulY1+ukP21P +CmZHKGFHAUvCjCb5ZTL8fE2BEn5aKdZxrJiGwtya3C+XlPCEZ9znXaSfqM7E ++ZSWKWFImu5anSKS95Wyc4wbSmj1psOrv4AGj9W2GlIPlLD1Zp73slwarq28 +kbzkqxLu6+DPeJ9Cw+aRw5s/6ivjuSc9rxMjaZDRlktYYqyMy6IszIfDST/l +NDWsMVXGHTsF4qwPk3qZFDbmWCnj7KeNGXyhNAz8KdeYc1VGSy0LCesAGjjL +X4lKJhFXKlZtciX9URUHrPuVsWe7eN4Y0uB/4F+pg2+VMXPHyYgfpN8DneyU +/lEZTw1FOowak/PQ6m3rHVFGP7dm4ffraNBYx2n0XqiCGRc1qovJ/NBoUVwW +o66C2dbsl9nyNAx7LAmpPKaCV1Obl9j/JvNQvvm9ujgV3OzbYrZghgcjvTGL +Hyep4Ft5y/v0JA9+2M7kDqar4JnO5OjZMR5MGQ01CZWpoGRuzcaIzzxYIPZk +pV+bCtbd/f17tJMHkk1nb8sqquIrU+3jg1wyz1GrFpxsUMXlE3lFAnY8+LJv +U5lRsyomVOm/s7DlQfLFwzajj1XJeTctiCHzXYdcT45zlyr2pXcNfbXggZtk +to7aZ1V02RIQUmHEgwghaa8XgquxzeqHVSOZF3nTci3SzqvxxeTOrQcmuCDy +VOnMtZHVuP547ZlnKVyQSby6TV9fDRsOjjTeyKuA82sMhUV91PHbUKxic0E5 +tEqZ6v1M1cA96wNjPqeWwXqZhhTNl5pYo2V7IXhXKQjxFYW6H9dCRQ2ZhlOr +S0AuVt7YWUkbvYosxJy7i2Epa0+VXbM2XouV1WyJuwQabMmrh/euxSR9rfrC +TUXAGRBp3DJPB1t8T+xsGCuEkZ/JDpvP6+BkgKrygqAC2KT5MGezui46xLSt +6hLLg/s/jX5PPdNF/9OjcuW5ORCotrbvhZceykql/pfocR7Y3z07nZfq42UU +5l5alQUbKYmtgkX6uNgSt29fkQEqMafCGwwMsL7OLLBUPQ1WexnWsfoMUNBP +2nedeQp43feNqwxeh1F6mRw+/dNQV9jpOSZuiNvOnH8TPZgE42VzU5rVhih5 +mRNcOpgAHizu0pyt63Fs+rRPw/Y4GFudrn9jdD1aZ4tdMW2NhZri34MTiUaY +tqb+JcvmGOwyZ6KRnDGqJUlf8T8RBdIBJ2s16o1xQn32iFD7YRBf5n99qxMb +Vx8W/J53PxSKNxyNHHVmo1ii0+nS66Gw9uiZDel72Lj19dfm6uJQsBm91tXj +ThzOzz98KhQSXk7MePizsXlFnM8lp1CYLjpmFhnLxqTivY+tfoRAn1F6RwmX +ja/8hw6GqIWA76HiC5uvsHFqkR3LWiEEJq/c8hq+xsavT6PU14iFgAijZ0q7 +io3DoQyt2d8csFoiK3Ovno2WHaL1Xx5z4G5niWdHFxtNbmwRH/PnwBahGvWw +HjbamG2bUXfnQM+mR5MS/Ww0MLISDHbgwPjtr4kub9m4drnm3aUmHFC/qEV/ +GWLjieXCU3EryHp9pmHJ39ioc5Ih85OPrCe2AzRH2ej53sLVZzoYvE8eehE6 +wcZlRzv19w0Gw3h9Qs6qaTZyYx48/NwVDMd/nfO4/YuNCT+7DxxqDQZh3XK1 +vX/YGPX+OXNJXTDkB9yemJtjY83B4OHCm8HwP87/U9s= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "PlotRange" -> {{0, 30}, {0., 0.058331231580303816`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -10401,19 +10755,19 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "PlotRange" -> {{0, 30}, {0., 0.058331231580303816`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10427,115 +10781,112 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK -FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE -hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux -IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B -8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K -ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS -jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 -CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs -KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC -owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 -9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV -MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 -h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC -Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp -9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ -oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt -GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN -62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw -rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 -M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS -dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ -Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ -bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys -CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp -YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF -Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc -mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn -Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM -PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u -4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K -R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l -F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y -6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q -FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF -0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 -dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG -jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU -s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq -KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g -aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx -0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ -bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 -emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY -+Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix -Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK -ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv -HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt -pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR -URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp -/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K -MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh -VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi -Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i -bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys -Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf -kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 -mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ -emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X -PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC -5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr -ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk -8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr -qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO -6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY -ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 -w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m -Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb -eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo -/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm -N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx -4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq -QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya -LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF -jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm -m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 -d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX -WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D -0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD -uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk -u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT -V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 -ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT -PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 -ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q -bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA -OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC -oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 -YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL -/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= +1:eJwV1nc81e0bB/BKaYg8RtnjnO8xysxKHNdFkiJKRhpGdhk5JKNEIXpUdiEj +yTrn25TR4kGRloysUhpPJYUyS4/f/fvjvM7r/Tqvc5/vue/r/lyX4r4gO68F +8+bN+0Ne/3+fHHjURP1dbDL+JvyEht06k858iQjTnuPA3t+3Y4ftSkDx5/sk +etIgQHdwSsFWCcK2VXTz9RTBQ1O75vm2+vDX91VpM9034N2eYarPxgLe3LUJ +Gu9ugObASjVvG0ewoIZej3W3w3/jzuVca2+Y6TbIHO1+ByITY2lPN4ZB44bS +4hdFP6GPnVfZKX4SZN7U/rtP7Q+sj6gScJ+fCmL+rhWLN/BhziIhL1udLEjT +trhj47AEF7rkTbzOzoXe81r1Y8KCuNxlf+w9zUL4u/jY8wWSf+FgfoLMvJwi +WJXxPik9TxQdw1Ot1zcXw0n7zSbtk+JobbCO4ZxfAiGGF10fHZdA57TWbwc8 +y8B85Fdk4HspHOgWeOnZWQ4Rlhmr/xmWQgmtfG52bzlcuajeJzophff2LlV+ +PFAOEvZuhrVLpJE1YCREfSmH4ZoHU3wa0vh75UQm/acc0o+nhGaHS6MeU9Na +XqkC3okrBTYJyqC7xaL4qNAKiDXe7i61ThZL3Z2WCizmgqVL/g8DM1n0++St +81CAC0IxX084WMtiE31i91FhLlxojC9JcZPFCw1Wl99IcqFmy+2v/Emy2PpL +WjpUjQujO5lhP3tl0chRJuTVNi64HJo49SRKDqMHOYyKLC6wzpnJDMXL4cbE +jS8/5HDJ856lF6fIoYSlbrx0ARciZ1XbzIrlMMDfsvNIKRcyT7iI1z6Rw2TD +6/orarjwJLW54LKsPC5c3bUspIcL669kV0bXySM/746YwUoemHc/+/O9RR7D +Bi8fvi7JA5t5Cze5tstjVUnCbhVZHnjYBfbCR3n8Xn2oRIDigUWU4rGYRQrI +CNK3KtPmwUH5yUumaxTwu93ke0NrHjT5FHxrDFNANYF/xeqiebB51lDkSJQC +9oRfbX4Uy4NnKZ36ujEKWHNebK4tjge9tUtjipMU8ISKw2znKR58FwgVib+g +gKcuWOvdzOKBxDVLA4sGBczYzW5poXngPz0W0yKoiC0dWs+de3mwPth75b8i +ihjW8MJJ/RUPlgz1cfkkFHGKWdg2O8CDy/2NL00YitgnuzDj7AceDNzPVLul +Tz7ndO6PG+GBbbxhz0VXRawN+lnEXUjDWpFYzajrivi27W7djzU0zPt7oul8 +lSIWi1bPmGvQ8Ixv/66qO4pYN5aima5Fw4EJu/ixB4po0pqZwtSjobiH6vfp +I89jM6EjZkLDyoKWBHs+BoqUHvbQs6VhZo3wgLoDAzvFU65EBtIwmScVq7OL +gYV39FrMD9IwvoJFGboy0PNR6V8CHBq+/zTcb+7HwDjXcb3kQzS8u+Mxueso +Ax1+B7e7HaGh1apaKPEyA7diwfMdSTQ03/vn+ukKBjppLKUGT9HQpPnEPv0q +A70TSq7tT6bhvuhgTn4tA/fLXQvlnKXhRv8y5VtPGTjFyqm2z6Qh54ALvJtg +YG20XJlnIQ3nXvu++/SLgSbGRxpvXaQhwzYk/tscAzPLDRT4LtFwRifx8fRS +Jn50VCtMu0zD8d/XnVbIMXHs9lRrXAXZn78XHTS2YGK29kuHqps0+P5ZIWpm +xcSyWY+2x5U0eAdJVW3axsQjNw2yXt+iwW2H5qzdLia+9zbnn6ymwV7aOdEv +kImHKpinft2hwZjLK8zKYmKSZnelXSMN/Qrcgo25TDRdkZYl10RDZFZ5/ngB +E8slnSw/EVfHllywK2fiVRUjuaCH5Hx3Fp4XustEQT7VSzsf0fDiaf65e/VM +fOg4IibQSsPBDXlZ/g+Y6MIx332b+IpGTkbrMyZqmnzyWfGEBtVFGSkJg0y0 +f2Wamv6MhpbItLN6/zLx0hG6Wu05+T+jKWc+DDER27dWNxAX959ONhtnouXu +JPOPbTQo3DiZ+B8/hdHc1NKFHTTUKSecpAUo/EJtLIsjdsmLS9gjTCG/4HjC +/E4achNj425LUpjPuv52jHila1RMmBqFYdF1K+mXNNzqjDjG0qZw4ZC7hFg3 +2a8t4dGdehQ+b/x39jBxmt6hI2uBQk6tWLB+Dw3a3JCowQ3k90//mZ9K3KbA +iUyxpLAALMM/EwsuDwr/vp3CSMnEVWd6aeDFBhzOc6Twzud601fEW6YOhFnv +pvDch3c7lPtoSHznG1rhSeFW4aC1lcTKO31CnP0oDH2mMG+S+OFTL86SQAqN +u7bU6PbTsLB230HvwxSeUrswVEZ8ScM9SPwIhVFfhLwHiM2KXQObYih0ak55 +JvyKhreSLgEh8RRmXm2hkPjY2T3+jFMUivK7+PkTyy3afeDFGQq7yqYvZBLf +jXTeH5NOYf0I1t8h3j3q5Kd5nkIr3puOAeJfXo6+Axco3KAa3fMfcXa/vc/p +ixQmrX74TPo1Deu27/A2LqHw9rB7tR5x98PtXl8rKJygZtOsicOMt3nmXKUw +dx7ucyMWv2HjsbmSwmmqlxVMXKm8dd90DYWCV0MGoont8qzcS+9RCDp3k5OI +x0S2uDk2UPjXPVftVOIef0bb/mYKb940FMwirn/4C449ofCJ6A+nc8RlCh1X +019Q+PaYj0gmcUokV77sJYUV7Aj2WeLwzhNn7/ZT2Ky3uC+e2E1jz1zbWwoN +fo59Die2TNQN+viRQr5LUgd8ibXeLX8zM0Rhm6iHuz2xhPFHG6FRCr1u0U+M +iedl3bvPmKDQ4fxrWpH480imhsEvCk8EvFzER/x8c2C+1RyFD+KPdL0l+1d1 +yULIbSELfV9Uyv5/v/P/yEWHLmVhzxvPN6nEgdef780TZWFS7oN2XWJHgbKn +1yVYqH3MnH8+sYlXDPuhLAvzUrurHpHzF5TUlh1RZqFe8Ou0bcTjnKWn+dRZ +mLKHWS9E/OrJ4OyqteT7N5iBj0h98WLSXqExC3kn523TJc7o22/tYMrC4bnK ++A+kXo/obrjrZ8FCv/YOSCW2+vwzN20bC3VEF298S+p9yNZh9wdPFu639KDt +yX1pL1d/PO3Hwv7CeIUv5H7d5uM3Egxi4Z33Z+QjiZOqq6T0I1gYWir/ILWL +BhV5ib6Tp1m4Z+PrlnPk/gpHjG6+kMbCmbGuW8LE0+0ttdfOsfBHkZN+QjvJ +i4SI7N6LLFwu1j7h/YIGn+99O9dUkf1TaU6aI3liY3mzBe6wMOCTssZeYv2i +v9fZ17OwLrgnoPopDfyOxhJHW1nIP7ey0Z3kUcm9vO5nAyz0r+O+PU3y7EOy +myNnsRJaRgk3m5N8DBxSY2gtV8K5+UaSUQ00TG2a+fZNWAllVhyKu/IPDcv4 +0uL9pJTQdMarfHk9qY+Ixko3dSXs0T5kXnKXhqNeSqK2O5TQ3dE30pbkM3/j +j4HlO5VQJDvpHyeS3ykKdRWte8h6exU19978f945mVl4K+HXNulY1+ukP21P +CmZHKGFHAUvCjCb5ZTL8fE2BEn5aKdZxrJiGwtya3C+XlPCEZ9znXaSfqM7E ++ZSWKWFImu5anSKS95Wyc4wbSmj1psOrv4AGj9W2GlIPlLD1Zp73slwarq28 +kbzkqxLu6+DPeJ9Cw+aRw5s/6ivjuSc9rxMjaZDRlktYYqyMy6IszIfDST/l +NDWsMVXGHTsF4qwPk3qZFDbmWCnj7KeNGXyhNAz8KdeYc1VGSy0LCesAGjjL +X4lKJhFXKlZtciX9URUHrPuVsWe7eN4Y0uB/4F+pg2+VMXPHyYgfpN8DneyU +/lEZTw1FOowak/PQ6m3rHVFGP7dm4ffraNBYx2n0XqiCGRc1qovJ/NBoUVwW +o66C2dbsl9nyNAx7LAmpPKaCV1Obl9j/JvNQvvm9ujgV3OzbYrZghgcjvTGL +Hyep4Ft5y/v0JA9+2M7kDqar4JnO5OjZMR5MGQ01CZWpoGRuzcaIzzxYIPZk +pV+bCtbd/f17tJMHkk1nb8sqquIrU+3jg1wyz1GrFpxsUMXlE3lFAnY8+LJv +U5lRsyomVOm/s7DlQfLFwzajj1XJeTctiCHzXYdcT45zlyr2pXcNfbXggZtk +to7aZ1V02RIQUmHEgwghaa8XgquxzeqHVSOZF3nTci3SzqvxxeTOrQcmuCDy +VOnMtZHVuP547ZlnKVyQSby6TV9fDRsOjjTeyKuA82sMhUV91PHbUKxic0E5 +tEqZ6v1M1cA96wNjPqeWwXqZhhTNl5pYo2V7IXhXKQjxFYW6H9dCRQ2ZhlOr +S0AuVt7YWUkbvYosxJy7i2Epa0+VXbM2XouV1WyJuwQabMmrh/euxSR9rfrC +TUXAGRBp3DJPB1t8T+xsGCuEkZ/JDpvP6+BkgKrygqAC2KT5MGezui46xLSt +6hLLg/s/jX5PPdNF/9OjcuW5ORCotrbvhZceykql/pfocR7Y3z07nZfq42UU +5l5alQUbKYmtgkX6uNgSt29fkQEqMafCGwwMsL7OLLBUPQ1WexnWsfoMUNBP +2nedeQp43feNqwxeh1F6mRw+/dNQV9jpOSZuiNvOnH8TPZgE42VzU5rVhih5 +mRNcOpgAHizu0pyt63Fs+rRPw/Y4GFudrn9jdD1aZ4tdMW2NhZri34MTiUaY +tqb+JcvmGOwyZ6KRnDGqJUlf8T8RBdIBJ2s16o1xQn32iFD7YRBf5n99qxMb +Vx8W/J53PxSKNxyNHHVmo1ii0+nS66Gw9uiZDel72Lj19dfm6uJQsBm91tXj +ThzOzz98KhQSXk7MePizsXlFnM8lp1CYLjpmFhnLxqTivY+tfoRAn1F6RwmX +ja/8hw6GqIWA76HiC5uvsHFqkR3LWiEEJq/c8hq+xsavT6PU14iFgAijZ0q7 +io3DoQyt2d8csFoiK3Ovno2WHaL1Xx5z4G5niWdHFxtNbmwRH/PnwBahGvWw +HjbamG2bUXfnQM+mR5MS/Ww0MLISDHbgwPjtr4kub9m4drnm3aUmHFC/qEV/ +GWLjieXCU3EryHp9pmHJ39ioc5Ih85OPrCe2AzRH2ej53sLVZzoYvE8eehE6 +wcZlRzv19w0Gw3h9Qs6qaTZyYx48/NwVDMd/nfO4/YuNCT+7DxxqDQZh3XK1 +vX/YGPX+OXNJXTDkB9yemJtjY83B4OHCm8HwP87/U9s= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "PlotRange" -> {{0, 30}, {0., 0.058331231580303816`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10546,6 +10897,7 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -10573,7 +10925,8 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.1261051971575712}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.058331231580303816`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -10581,17 +10934,559 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913414579436264`*^9}, + CellChangeTimes->{3.9913414579436264`*^9, 3.994259379058145*^9}, CellLabel-> - "Out[361]=",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] + "Out[119]=",ExpressionUUID->"3904b62e-9e2d-4eee-bc90-455c657d9efd"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"e1c8585a-8b57-f841-82e1-\ -8e8787fb2589"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nc81e0bB/BKaYg8RtnjnO8xysxKHNdFkiJKRhpGdhk5JKNEIXpUdiEj +yTrn25TR4kGRloysUhpPJYUyS4/f/fvjvM7r/Tqvc5/vue/r/lyX4r4gO68F +8+bN+0Ne/3+fHHjURP1dbDL+JvyEht06k858iQjTnuPA3t+3Y4ftSkDx5/sk +etIgQHdwSsFWCcK2VXTz9RTBQ1O75vm2+vDX91VpM9034N2eYarPxgLe3LUJ +Gu9ugObASjVvG0ewoIZej3W3w3/jzuVca2+Y6TbIHO1+ByITY2lPN4ZB44bS +4hdFP6GPnVfZKX4SZN7U/rtP7Q+sj6gScJ+fCmL+rhWLN/BhziIhL1udLEjT +trhj47AEF7rkTbzOzoXe81r1Y8KCuNxlf+w9zUL4u/jY8wWSf+FgfoLMvJwi +WJXxPik9TxQdw1Ot1zcXw0n7zSbtk+JobbCO4ZxfAiGGF10fHZdA57TWbwc8 +y8B85Fdk4HspHOgWeOnZWQ4Rlhmr/xmWQgmtfG52bzlcuajeJzophff2LlV+ +PFAOEvZuhrVLpJE1YCREfSmH4ZoHU3wa0vh75UQm/acc0o+nhGaHS6MeU9Na +XqkC3okrBTYJyqC7xaL4qNAKiDXe7i61ThZL3Z2WCizmgqVL/g8DM1n0++St +81CAC0IxX084WMtiE31i91FhLlxojC9JcZPFCw1Wl99IcqFmy+2v/Emy2PpL +WjpUjQujO5lhP3tl0chRJuTVNi64HJo49SRKDqMHOYyKLC6wzpnJDMXL4cbE +jS8/5HDJ856lF6fIoYSlbrx0ARciZ1XbzIrlMMDfsvNIKRcyT7iI1z6Rw2TD +6/orarjwJLW54LKsPC5c3bUspIcL669kV0bXySM/746YwUoemHc/+/O9RR7D +Bi8fvi7JA5t5Cze5tstjVUnCbhVZHnjYBfbCR3n8Xn2oRIDigUWU4rGYRQrI +CNK3KtPmwUH5yUumaxTwu93ke0NrHjT5FHxrDFNANYF/xeqiebB51lDkSJQC +9oRfbX4Uy4NnKZ36ujEKWHNebK4tjge9tUtjipMU8ISKw2znKR58FwgVib+g +gKcuWOvdzOKBxDVLA4sGBczYzW5poXngPz0W0yKoiC0dWs+de3mwPth75b8i +ihjW8MJJ/RUPlgz1cfkkFHGKWdg2O8CDy/2NL00YitgnuzDj7AceDNzPVLul +Tz7ndO6PG+GBbbxhz0VXRawN+lnEXUjDWpFYzajrivi27W7djzU0zPt7oul8 +lSIWi1bPmGvQ8Ixv/66qO4pYN5aima5Fw4EJu/ixB4po0pqZwtSjobiH6vfp +I89jM6EjZkLDyoKWBHs+BoqUHvbQs6VhZo3wgLoDAzvFU65EBtIwmScVq7OL +gYV39FrMD9IwvoJFGboy0PNR6V8CHBq+/zTcb+7HwDjXcb3kQzS8u+Mxueso +Ax1+B7e7HaGh1apaKPEyA7diwfMdSTQ03/vn+ukKBjppLKUGT9HQpPnEPv0q +A70TSq7tT6bhvuhgTn4tA/fLXQvlnKXhRv8y5VtPGTjFyqm2z6Qh54ALvJtg +YG20XJlnIQ3nXvu++/SLgSbGRxpvXaQhwzYk/tscAzPLDRT4LtFwRifx8fRS +Jn50VCtMu0zD8d/XnVbIMXHs9lRrXAXZn78XHTS2YGK29kuHqps0+P5ZIWpm +xcSyWY+2x5U0eAdJVW3axsQjNw2yXt+iwW2H5qzdLia+9zbnn6ymwV7aOdEv +kImHKpinft2hwZjLK8zKYmKSZnelXSMN/Qrcgo25TDRdkZYl10RDZFZ5/ngB +E8slnSw/EVfHllywK2fiVRUjuaCH5Hx3Fp4XustEQT7VSzsf0fDiaf65e/VM +fOg4IibQSsPBDXlZ/g+Y6MIx332b+IpGTkbrMyZqmnzyWfGEBtVFGSkJg0y0 +f2Wamv6MhpbItLN6/zLx0hG6Wu05+T+jKWc+DDER27dWNxAX959ONhtnouXu +JPOPbTQo3DiZ+B8/hdHc1NKFHTTUKSecpAUo/EJtLIsjdsmLS9gjTCG/4HjC +/E4achNj425LUpjPuv52jHila1RMmBqFYdF1K+mXNNzqjDjG0qZw4ZC7hFg3 +2a8t4dGdehQ+b/x39jBxmt6hI2uBQk6tWLB+Dw3a3JCowQ3k90//mZ9K3KbA +iUyxpLAALMM/EwsuDwr/vp3CSMnEVWd6aeDFBhzOc6Twzud601fEW6YOhFnv +pvDch3c7lPtoSHznG1rhSeFW4aC1lcTKO31CnP0oDH2mMG+S+OFTL86SQAqN +u7bU6PbTsLB230HvwxSeUrswVEZ8ScM9SPwIhVFfhLwHiM2KXQObYih0ak55 +JvyKhreSLgEh8RRmXm2hkPjY2T3+jFMUivK7+PkTyy3afeDFGQq7yqYvZBLf +jXTeH5NOYf0I1t8h3j3q5Kd5nkIr3puOAeJfXo6+Axco3KAa3fMfcXa/vc/p +ixQmrX74TPo1Deu27/A2LqHw9rB7tR5x98PtXl8rKJygZtOsicOMt3nmXKUw +dx7ucyMWv2HjsbmSwmmqlxVMXKm8dd90DYWCV0MGoont8qzcS+9RCDp3k5OI +x0S2uDk2UPjXPVftVOIef0bb/mYKb940FMwirn/4C449ofCJ6A+nc8RlCh1X +019Q+PaYj0gmcUokV77sJYUV7Aj2WeLwzhNn7/ZT2Ky3uC+e2E1jz1zbWwoN +fo59Die2TNQN+viRQr5LUgd8ibXeLX8zM0Rhm6iHuz2xhPFHG6FRCr1u0U+M +iedl3bvPmKDQ4fxrWpH480imhsEvCk8EvFzER/x8c2C+1RyFD+KPdL0l+1d1 +yULIbSELfV9Uyv5/v/P/yEWHLmVhzxvPN6nEgdef780TZWFS7oN2XWJHgbKn +1yVYqH3MnH8+sYlXDPuhLAvzUrurHpHzF5TUlh1RZqFe8Ou0bcTjnKWn+dRZ +mLKHWS9E/OrJ4OyqteT7N5iBj0h98WLSXqExC3kn523TJc7o22/tYMrC4bnK ++A+kXo/obrjrZ8FCv/YOSCW2+vwzN20bC3VEF298S+p9yNZh9wdPFu639KDt +yX1pL1d/PO3Hwv7CeIUv5H7d5uM3Egxi4Z33Z+QjiZOqq6T0I1gYWir/ILWL +BhV5ib6Tp1m4Z+PrlnPk/gpHjG6+kMbCmbGuW8LE0+0ttdfOsfBHkZN+QjvJ +i4SI7N6LLFwu1j7h/YIGn+99O9dUkf1TaU6aI3liY3mzBe6wMOCTssZeYv2i +v9fZ17OwLrgnoPopDfyOxhJHW1nIP7ey0Z3kUcm9vO5nAyz0r+O+PU3y7EOy +myNnsRJaRgk3m5N8DBxSY2gtV8K5+UaSUQ00TG2a+fZNWAllVhyKu/IPDcv4 +0uL9pJTQdMarfHk9qY+Ixko3dSXs0T5kXnKXhqNeSqK2O5TQ3dE30pbkM3/j +j4HlO5VQJDvpHyeS3ykKdRWte8h6exU19978f945mVl4K+HXNulY1+ukP21P +CmZHKGFHAUvCjCb5ZTL8fE2BEn5aKdZxrJiGwtya3C+XlPCEZ9znXaSfqM7E ++ZSWKWFImu5anSKS95Wyc4wbSmj1psOrv4AGj9W2GlIPlLD1Zp73slwarq28 +kbzkqxLu6+DPeJ9Cw+aRw5s/6ivjuSc9rxMjaZDRlktYYqyMy6IszIfDST/l +NDWsMVXGHTsF4qwPk3qZFDbmWCnj7KeNGXyhNAz8KdeYc1VGSy0LCesAGjjL +X4lKJhFXKlZtciX9URUHrPuVsWe7eN4Y0uB/4F+pg2+VMXPHyYgfpN8DneyU +/lEZTw1FOowak/PQ6m3rHVFGP7dm4ffraNBYx2n0XqiCGRc1qovJ/NBoUVwW +o66C2dbsl9nyNAx7LAmpPKaCV1Obl9j/JvNQvvm9ujgV3OzbYrZghgcjvTGL +Hyep4Ft5y/v0JA9+2M7kDqar4JnO5OjZMR5MGQ01CZWpoGRuzcaIzzxYIPZk +pV+bCtbd/f17tJMHkk1nb8sqquIrU+3jg1wyz1GrFpxsUMXlE3lFAnY8+LJv +U5lRsyomVOm/s7DlQfLFwzajj1XJeTctiCHzXYdcT45zlyr2pXcNfbXggZtk +to7aZ1V02RIQUmHEgwghaa8XgquxzeqHVSOZF3nTci3SzqvxxeTOrQcmuCDy +VOnMtZHVuP547ZlnKVyQSby6TV9fDRsOjjTeyKuA82sMhUV91PHbUKxic0E5 +tEqZ6v1M1cA96wNjPqeWwXqZhhTNl5pYo2V7IXhXKQjxFYW6H9dCRQ2ZhlOr +S0AuVt7YWUkbvYosxJy7i2Epa0+VXbM2XouV1WyJuwQabMmrh/euxSR9rfrC +TUXAGRBp3DJPB1t8T+xsGCuEkZ/JDpvP6+BkgKrygqAC2KT5MGezui46xLSt +6hLLg/s/jX5PPdNF/9OjcuW5ORCotrbvhZceykql/pfocR7Y3z07nZfq42UU +5l5alQUbKYmtgkX6uNgSt29fkQEqMafCGwwMsL7OLLBUPQ1WexnWsfoMUNBP +2nedeQp43feNqwxeh1F6mRw+/dNQV9jpOSZuiNvOnH8TPZgE42VzU5rVhih5 +mRNcOpgAHizu0pyt63Fs+rRPw/Y4GFudrn9jdD1aZ4tdMW2NhZri34MTiUaY +tqb+JcvmGOwyZ6KRnDGqJUlf8T8RBdIBJ2s16o1xQn32iFD7YRBf5n99qxMb +Vx8W/J53PxSKNxyNHHVmo1ii0+nS66Gw9uiZDel72Lj19dfm6uJQsBm91tXj +ThzOzz98KhQSXk7MePizsXlFnM8lp1CYLjpmFhnLxqTivY+tfoRAn1F6RwmX +ja/8hw6GqIWA76HiC5uvsHFqkR3LWiEEJq/c8hq+xsavT6PU14iFgAijZ0q7 +io3DoQyt2d8csFoiK3Ovno2WHaL1Xx5z4G5niWdHFxtNbmwRH/PnwBahGvWw +HjbamG2bUXfnQM+mR5MS/Ww0MLISDHbgwPjtr4kub9m4drnm3aUmHFC/qEV/ +GWLjieXCU3EryHp9pmHJ39ioc5Ih85OPrCe2AzRH2ej53sLVZzoYvE8eehE6 +wcZlRzv19w0Gw3h9Qs6qaTZyYx48/NwVDMd/nfO4/YuNCT+7DxxqDQZh3XK1 +vX/YGPX+OXNJXTDkB9yemJtjY83B4OHCm8HwP87/U9s= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc81e0bB/BKaYg8RtnjnO8xysxKHNdFkiJKRhpGdhk5JKNEIXpUdiEj +yTrn25TR4kGRloysUhpPJYUyS4/f/fvjvM7r/Tqvc5/vue/r/lyX4r4gO68F +8+bN+0Ne/3+fHHjURP1dbDL+JvyEht06k858iQjTnuPA3t+3Y4ftSkDx5/sk +etIgQHdwSsFWCcK2VXTz9RTBQ1O75vm2+vDX91VpM9034N2eYarPxgLe3LUJ +Gu9ugObASjVvG0ewoIZej3W3w3/jzuVca2+Y6TbIHO1+ByITY2lPN4ZB44bS +4hdFP6GPnVfZKX4SZN7U/rtP7Q+sj6gScJ+fCmL+rhWLN/BhziIhL1udLEjT +trhj47AEF7rkTbzOzoXe81r1Y8KCuNxlf+w9zUL4u/jY8wWSf+FgfoLMvJwi +WJXxPik9TxQdw1Ot1zcXw0n7zSbtk+JobbCO4ZxfAiGGF10fHZdA57TWbwc8 +y8B85Fdk4HspHOgWeOnZWQ4Rlhmr/xmWQgmtfG52bzlcuajeJzophff2LlV+ +PFAOEvZuhrVLpJE1YCREfSmH4ZoHU3wa0vh75UQm/acc0o+nhGaHS6MeU9Na +XqkC3okrBTYJyqC7xaL4qNAKiDXe7i61ThZL3Z2WCizmgqVL/g8DM1n0++St +81CAC0IxX084WMtiE31i91FhLlxojC9JcZPFCw1Wl99IcqFmy+2v/Emy2PpL +WjpUjQujO5lhP3tl0chRJuTVNi64HJo49SRKDqMHOYyKLC6wzpnJDMXL4cbE +jS8/5HDJ856lF6fIoYSlbrx0ARciZ1XbzIrlMMDfsvNIKRcyT7iI1z6Rw2TD +6/orarjwJLW54LKsPC5c3bUspIcL669kV0bXySM/746YwUoemHc/+/O9RR7D +Bi8fvi7JA5t5Cze5tstjVUnCbhVZHnjYBfbCR3n8Xn2oRIDigUWU4rGYRQrI +CNK3KtPmwUH5yUumaxTwu93ke0NrHjT5FHxrDFNANYF/xeqiebB51lDkSJQC +9oRfbX4Uy4NnKZ36ujEKWHNebK4tjge9tUtjipMU8ISKw2znKR58FwgVib+g +gKcuWOvdzOKBxDVLA4sGBczYzW5poXngPz0W0yKoiC0dWs+de3mwPth75b8i +ihjW8MJJ/RUPlgz1cfkkFHGKWdg2O8CDy/2NL00YitgnuzDj7AceDNzPVLul +Tz7ndO6PG+GBbbxhz0VXRawN+lnEXUjDWpFYzajrivi27W7djzU0zPt7oul8 +lSIWi1bPmGvQ8Ixv/66qO4pYN5aima5Fw4EJu/ixB4po0pqZwtSjobiH6vfp +I89jM6EjZkLDyoKWBHs+BoqUHvbQs6VhZo3wgLoDAzvFU65EBtIwmScVq7OL +gYV39FrMD9IwvoJFGboy0PNR6V8CHBq+/zTcb+7HwDjXcb3kQzS8u+Mxueso +Ax1+B7e7HaGh1apaKPEyA7diwfMdSTQ03/vn+ukKBjppLKUGT9HQpPnEPv0q +A70TSq7tT6bhvuhgTn4tA/fLXQvlnKXhRv8y5VtPGTjFyqm2z6Qh54ALvJtg +YG20XJlnIQ3nXvu++/SLgSbGRxpvXaQhwzYk/tscAzPLDRT4LtFwRifx8fRS +Jn50VCtMu0zD8d/XnVbIMXHs9lRrXAXZn78XHTS2YGK29kuHqps0+P5ZIWpm +xcSyWY+2x5U0eAdJVW3axsQjNw2yXt+iwW2H5qzdLia+9zbnn6ymwV7aOdEv +kImHKpinft2hwZjLK8zKYmKSZnelXSMN/Qrcgo25TDRdkZYl10RDZFZ5/ngB +E8slnSw/EVfHllywK2fiVRUjuaCH5Hx3Fp4XustEQT7VSzsf0fDiaf65e/VM +fOg4IibQSsPBDXlZ/g+Y6MIx332b+IpGTkbrMyZqmnzyWfGEBtVFGSkJg0y0 +f2Wamv6MhpbItLN6/zLx0hG6Wu05+T+jKWc+DDER27dWNxAX959ONhtnouXu +JPOPbTQo3DiZ+B8/hdHc1NKFHTTUKSecpAUo/EJtLIsjdsmLS9gjTCG/4HjC +/E4achNj425LUpjPuv52jHila1RMmBqFYdF1K+mXNNzqjDjG0qZw4ZC7hFg3 +2a8t4dGdehQ+b/x39jBxmt6hI2uBQk6tWLB+Dw3a3JCowQ3k90//mZ9K3KbA +iUyxpLAALMM/EwsuDwr/vp3CSMnEVWd6aeDFBhzOc6Twzud601fEW6YOhFnv +pvDch3c7lPtoSHznG1rhSeFW4aC1lcTKO31CnP0oDH2mMG+S+OFTL86SQAqN +u7bU6PbTsLB230HvwxSeUrswVEZ8ScM9SPwIhVFfhLwHiM2KXQObYih0ak55 +JvyKhreSLgEh8RRmXm2hkPjY2T3+jFMUivK7+PkTyy3afeDFGQq7yqYvZBLf +jXTeH5NOYf0I1t8h3j3q5Kd5nkIr3puOAeJfXo6+Axco3KAa3fMfcXa/vc/p +ixQmrX74TPo1Deu27/A2LqHw9rB7tR5x98PtXl8rKJygZtOsicOMt3nmXKUw +dx7ucyMWv2HjsbmSwmmqlxVMXKm8dd90DYWCV0MGoont8qzcS+9RCDp3k5OI +x0S2uDk2UPjXPVftVOIef0bb/mYKb940FMwirn/4C449ofCJ6A+nc8RlCh1X +019Q+PaYj0gmcUokV77sJYUV7Aj2WeLwzhNn7/ZT2Ky3uC+e2E1jz1zbWwoN +fo59Die2TNQN+viRQr5LUgd8ibXeLX8zM0Rhm6iHuz2xhPFHG6FRCr1u0U+M +iedl3bvPmKDQ4fxrWpH480imhsEvCk8EvFzER/x8c2C+1RyFD+KPdL0l+1d1 +yULIbSELfV9Uyv5/v/P/yEWHLmVhzxvPN6nEgdef780TZWFS7oN2XWJHgbKn +1yVYqH3MnH8+sYlXDPuhLAvzUrurHpHzF5TUlh1RZqFe8Ou0bcTjnKWn+dRZ +mLKHWS9E/OrJ4OyqteT7N5iBj0h98WLSXqExC3kn523TJc7o22/tYMrC4bnK ++A+kXo/obrjrZ8FCv/YOSCW2+vwzN20bC3VEF298S+p9yNZh9wdPFu639KDt +yX1pL1d/PO3Hwv7CeIUv5H7d5uM3Egxi4Z33Z+QjiZOqq6T0I1gYWir/ILWL +BhV5ib6Tp1m4Z+PrlnPk/gpHjG6+kMbCmbGuW8LE0+0ttdfOsfBHkZN+QjvJ +i4SI7N6LLFwu1j7h/YIGn+99O9dUkf1TaU6aI3liY3mzBe6wMOCTssZeYv2i +v9fZ17OwLrgnoPopDfyOxhJHW1nIP7ey0Z3kUcm9vO5nAyz0r+O+PU3y7EOy +myNnsRJaRgk3m5N8DBxSY2gtV8K5+UaSUQ00TG2a+fZNWAllVhyKu/IPDcv4 +0uL9pJTQdMarfHk9qY+Ixko3dSXs0T5kXnKXhqNeSqK2O5TQ3dE30pbkM3/j +j4HlO5VQJDvpHyeS3ykKdRWte8h6exU19978f945mVl4K+HXNulY1+ukP21P +CmZHKGFHAUvCjCb5ZTL8fE2BEn5aKdZxrJiGwtya3C+XlPCEZ9znXaSfqM7E ++ZSWKWFImu5anSKS95Wyc4wbSmj1psOrv4AGj9W2GlIPlLD1Zp73slwarq28 +kbzkqxLu6+DPeJ9Cw+aRw5s/6ivjuSc9rxMjaZDRlktYYqyMy6IszIfDST/l +NDWsMVXGHTsF4qwPk3qZFDbmWCnj7KeNGXyhNAz8KdeYc1VGSy0LCesAGjjL +X4lKJhFXKlZtciX9URUHrPuVsWe7eN4Y0uB/4F+pg2+VMXPHyYgfpN8DneyU +/lEZTw1FOowak/PQ6m3rHVFGP7dm4ffraNBYx2n0XqiCGRc1qovJ/NBoUVwW +o66C2dbsl9nyNAx7LAmpPKaCV1Obl9j/JvNQvvm9ujgV3OzbYrZghgcjvTGL +Hyep4Ft5y/v0JA9+2M7kDqar4JnO5OjZMR5MGQ01CZWpoGRuzcaIzzxYIPZk +pV+bCtbd/f17tJMHkk1nb8sqquIrU+3jg1wyz1GrFpxsUMXlE3lFAnY8+LJv +U5lRsyomVOm/s7DlQfLFwzajj1XJeTctiCHzXYdcT45zlyr2pXcNfbXggZtk +to7aZ1V02RIQUmHEgwghaa8XgquxzeqHVSOZF3nTci3SzqvxxeTOrQcmuCDy +VOnMtZHVuP547ZlnKVyQSby6TV9fDRsOjjTeyKuA82sMhUV91PHbUKxic0E5 +tEqZ6v1M1cA96wNjPqeWwXqZhhTNl5pYo2V7IXhXKQjxFYW6H9dCRQ2ZhlOr +S0AuVt7YWUkbvYosxJy7i2Epa0+VXbM2XouV1WyJuwQabMmrh/euxSR9rfrC +TUXAGRBp3DJPB1t8T+xsGCuEkZ/JDpvP6+BkgKrygqAC2KT5MGezui46xLSt +6hLLg/s/jX5PPdNF/9OjcuW5ORCotrbvhZceykql/pfocR7Y3z07nZfq42UU +5l5alQUbKYmtgkX6uNgSt29fkQEqMafCGwwMsL7OLLBUPQ1WexnWsfoMUNBP +2nedeQp43feNqwxeh1F6mRw+/dNQV9jpOSZuiNvOnH8TPZgE42VzU5rVhih5 +mRNcOpgAHizu0pyt63Fs+rRPw/Y4GFudrn9jdD1aZ4tdMW2NhZri34MTiUaY +tqb+JcvmGOwyZ6KRnDGqJUlf8T8RBdIBJ2s16o1xQn32iFD7YRBf5n99qxMb +Vx8W/J53PxSKNxyNHHVmo1ii0+nS66Gw9uiZDel72Lj19dfm6uJQsBm91tXj +ThzOzz98KhQSXk7MePizsXlFnM8lp1CYLjpmFhnLxqTivY+tfoRAn1F6RwmX +ja/8hw6GqIWA76HiC5uvsHFqkR3LWiEEJq/c8hq+xsavT6PU14iFgAijZ0q7 +io3DoQyt2d8csFoiK3Ovno2WHaL1Xx5z4G5niWdHFxtNbmwRH/PnwBahGvWw +HjbamG2bUXfnQM+mR5MS/Ww0MLISDHbgwPjtr4kub9m4drnm3aUmHFC/qEV/ +GWLjieXCU3EryHp9pmHJ39ioc5Ih85OPrCe2AzRH2ej53sLVZzoYvE8eehE6 +wcZlRzv19w0Gw3h9Qs6qaTZyYx48/NwVDMd/nfO4/YuNCT+7DxxqDQZh3XK1 +vX/YGPX+OXNJXTDkB9yemJtjY83B4OHCm8HwP87/U9s= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.058331231580303816`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.058331231580303816`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc81e0bB/BKaYg8RtnjnO8xysxKHNdFkiJKRhpGdhk5JKNEIXpUdiEj +yTrn25TR4kGRloysUhpPJYUyS4/f/fvjvM7r/Tqvc5/vue/r/lyX4r4gO68F +8+bN+0Ne/3+fHHjURP1dbDL+JvyEht06k858iQjTnuPA3t+3Y4ftSkDx5/sk +etIgQHdwSsFWCcK2VXTz9RTBQ1O75vm2+vDX91VpM9034N2eYarPxgLe3LUJ +Gu9ugObASjVvG0ewoIZej3W3w3/jzuVca2+Y6TbIHO1+ByITY2lPN4ZB44bS +4hdFP6GPnVfZKX4SZN7U/rtP7Q+sj6gScJ+fCmL+rhWLN/BhziIhL1udLEjT +trhj47AEF7rkTbzOzoXe81r1Y8KCuNxlf+w9zUL4u/jY8wWSf+FgfoLMvJwi +WJXxPik9TxQdw1Ot1zcXw0n7zSbtk+JobbCO4ZxfAiGGF10fHZdA57TWbwc8 +y8B85Fdk4HspHOgWeOnZWQ4Rlhmr/xmWQgmtfG52bzlcuajeJzophff2LlV+ +PFAOEvZuhrVLpJE1YCREfSmH4ZoHU3wa0vh75UQm/acc0o+nhGaHS6MeU9Na +XqkC3okrBTYJyqC7xaL4qNAKiDXe7i61ThZL3Z2WCizmgqVL/g8DM1n0++St +81CAC0IxX084WMtiE31i91FhLlxojC9JcZPFCw1Wl99IcqFmy+2v/Emy2PpL +WjpUjQujO5lhP3tl0chRJuTVNi64HJo49SRKDqMHOYyKLC6wzpnJDMXL4cbE +jS8/5HDJ856lF6fIoYSlbrx0ARciZ1XbzIrlMMDfsvNIKRcyT7iI1z6Rw2TD +6/orarjwJLW54LKsPC5c3bUspIcL669kV0bXySM/746YwUoemHc/+/O9RR7D +Bi8fvi7JA5t5Cze5tstjVUnCbhVZHnjYBfbCR3n8Xn2oRIDigUWU4rGYRQrI +CNK3KtPmwUH5yUumaxTwu93ke0NrHjT5FHxrDFNANYF/xeqiebB51lDkSJQC +9oRfbX4Uy4NnKZ36ujEKWHNebK4tjge9tUtjipMU8ISKw2znKR58FwgVib+g +gKcuWOvdzOKBxDVLA4sGBczYzW5poXngPz0W0yKoiC0dWs+de3mwPth75b8i +ihjW8MJJ/RUPlgz1cfkkFHGKWdg2O8CDy/2NL00YitgnuzDj7AceDNzPVLul +Tz7ndO6PG+GBbbxhz0VXRawN+lnEXUjDWpFYzajrivi27W7djzU0zPt7oul8 +lSIWi1bPmGvQ8Ixv/66qO4pYN5aima5Fw4EJu/ixB4po0pqZwtSjobiH6vfp +I89jM6EjZkLDyoKWBHs+BoqUHvbQs6VhZo3wgLoDAzvFU65EBtIwmScVq7OL +gYV39FrMD9IwvoJFGboy0PNR6V8CHBq+/zTcb+7HwDjXcb3kQzS8u+Mxueso +Ax1+B7e7HaGh1apaKPEyA7diwfMdSTQ03/vn+ukKBjppLKUGT9HQpPnEPv0q +A70TSq7tT6bhvuhgTn4tA/fLXQvlnKXhRv8y5VtPGTjFyqm2z6Qh54ALvJtg +YG20XJlnIQ3nXvu++/SLgSbGRxpvXaQhwzYk/tscAzPLDRT4LtFwRifx8fRS +Jn50VCtMu0zD8d/XnVbIMXHs9lRrXAXZn78XHTS2YGK29kuHqps0+P5ZIWpm +xcSyWY+2x5U0eAdJVW3axsQjNw2yXt+iwW2H5qzdLia+9zbnn6ymwV7aOdEv +kImHKpinft2hwZjLK8zKYmKSZnelXSMN/Qrcgo25TDRdkZYl10RDZFZ5/ngB +E8slnSw/EVfHllywK2fiVRUjuaCH5Hx3Fp4XustEQT7VSzsf0fDiaf65e/VM +fOg4IibQSsPBDXlZ/g+Y6MIx332b+IpGTkbrMyZqmnzyWfGEBtVFGSkJg0y0 +f2Wamv6MhpbItLN6/zLx0hG6Wu05+T+jKWc+DDER27dWNxAX959ONhtnouXu +JPOPbTQo3DiZ+B8/hdHc1NKFHTTUKSecpAUo/EJtLIsjdsmLS9gjTCG/4HjC +/E4achNj425LUpjPuv52jHila1RMmBqFYdF1K+mXNNzqjDjG0qZw4ZC7hFg3 +2a8t4dGdehQ+b/x39jBxmt6hI2uBQk6tWLB+Dw3a3JCowQ3k90//mZ9K3KbA +iUyxpLAALMM/EwsuDwr/vp3CSMnEVWd6aeDFBhzOc6Twzud601fEW6YOhFnv +pvDch3c7lPtoSHznG1rhSeFW4aC1lcTKO31CnP0oDH2mMG+S+OFTL86SQAqN +u7bU6PbTsLB230HvwxSeUrswVEZ8ScM9SPwIhVFfhLwHiM2KXQObYih0ak55 +JvyKhreSLgEh8RRmXm2hkPjY2T3+jFMUivK7+PkTyy3afeDFGQq7yqYvZBLf +jXTeH5NOYf0I1t8h3j3q5Kd5nkIr3puOAeJfXo6+Axco3KAa3fMfcXa/vc/p +ixQmrX74TPo1Deu27/A2LqHw9rB7tR5x98PtXl8rKJygZtOsicOMt3nmXKUw +dx7ucyMWv2HjsbmSwmmqlxVMXKm8dd90DYWCV0MGoont8qzcS+9RCDp3k5OI +x0S2uDk2UPjXPVftVOIef0bb/mYKb940FMwirn/4C449ofCJ6A+nc8RlCh1X +019Q+PaYj0gmcUokV77sJYUV7Aj2WeLwzhNn7/ZT2Ky3uC+e2E1jz1zbWwoN +fo59Die2TNQN+viRQr5LUgd8ibXeLX8zM0Rhm6iHuz2xhPFHG6FRCr1u0U+M +iedl3bvPmKDQ4fxrWpH480imhsEvCk8EvFzER/x8c2C+1RyFD+KPdL0l+1d1 +yULIbSELfV9Uyv5/v/P/yEWHLmVhzxvPN6nEgdef780TZWFS7oN2XWJHgbKn +1yVYqH3MnH8+sYlXDPuhLAvzUrurHpHzF5TUlh1RZqFe8Ou0bcTjnKWn+dRZ +mLKHWS9E/OrJ4OyqteT7N5iBj0h98WLSXqExC3kn523TJc7o22/tYMrC4bnK ++A+kXo/obrjrZ8FCv/YOSCW2+vwzN20bC3VEF298S+p9yNZh9wdPFu639KDt +yX1pL1d/PO3Hwv7CeIUv5H7d5uM3Egxi4Z33Z+QjiZOqq6T0I1gYWir/ILWL +BhV5ib6Tp1m4Z+PrlnPk/gpHjG6+kMbCmbGuW8LE0+0ttdfOsfBHkZN+QjvJ +i4SI7N6LLFwu1j7h/YIGn+99O9dUkf1TaU6aI3liY3mzBe6wMOCTssZeYv2i +v9fZ17OwLrgnoPopDfyOxhJHW1nIP7ey0Z3kUcm9vO5nAyz0r+O+PU3y7EOy +myNnsRJaRgk3m5N8DBxSY2gtV8K5+UaSUQ00TG2a+fZNWAllVhyKu/IPDcv4 +0uL9pJTQdMarfHk9qY+Ixko3dSXs0T5kXnKXhqNeSqK2O5TQ3dE30pbkM3/j +j4HlO5VQJDvpHyeS3ykKdRWte8h6exU19978f945mVl4K+HXNulY1+ukP21P +CmZHKGFHAUvCjCb5ZTL8fE2BEn5aKdZxrJiGwtya3C+XlPCEZ9znXaSfqM7E ++ZSWKWFImu5anSKS95Wyc4wbSmj1psOrv4AGj9W2GlIPlLD1Zp73slwarq28 +kbzkqxLu6+DPeJ9Cw+aRw5s/6ivjuSc9rxMjaZDRlktYYqyMy6IszIfDST/l +NDWsMVXGHTsF4qwPk3qZFDbmWCnj7KeNGXyhNAz8KdeYc1VGSy0LCesAGjjL +X4lKJhFXKlZtciX9URUHrPuVsWe7eN4Y0uB/4F+pg2+VMXPHyYgfpN8DneyU +/lEZTw1FOowak/PQ6m3rHVFGP7dm4ffraNBYx2n0XqiCGRc1qovJ/NBoUVwW +o66C2dbsl9nyNAx7LAmpPKaCV1Obl9j/JvNQvvm9ujgV3OzbYrZghgcjvTGL +Hyep4Ft5y/v0JA9+2M7kDqar4JnO5OjZMR5MGQ01CZWpoGRuzcaIzzxYIPZk +pV+bCtbd/f17tJMHkk1nb8sqquIrU+3jg1wyz1GrFpxsUMXlE3lFAnY8+LJv +U5lRsyomVOm/s7DlQfLFwzajj1XJeTctiCHzXYdcT45zlyr2pXcNfbXggZtk +to7aZ1V02RIQUmHEgwghaa8XgquxzeqHVSOZF3nTci3SzqvxxeTOrQcmuCDy +VOnMtZHVuP547ZlnKVyQSby6TV9fDRsOjjTeyKuA82sMhUV91PHbUKxic0E5 +tEqZ6v1M1cA96wNjPqeWwXqZhhTNl5pYo2V7IXhXKQjxFYW6H9dCRQ2ZhlOr +S0AuVt7YWUkbvYosxJy7i2Epa0+VXbM2XouV1WyJuwQabMmrh/euxSR9rfrC +TUXAGRBp3DJPB1t8T+xsGCuEkZ/JDpvP6+BkgKrygqAC2KT5MGezui46xLSt +6hLLg/s/jX5PPdNF/9OjcuW5ORCotrbvhZceykql/pfocR7Y3z07nZfq42UU +5l5alQUbKYmtgkX6uNgSt29fkQEqMafCGwwMsL7OLLBUPQ1WexnWsfoMUNBP +2nedeQp43feNqwxeh1F6mRw+/dNQV9jpOSZuiNvOnH8TPZgE42VzU5rVhih5 +mRNcOpgAHizu0pyt63Fs+rRPw/Y4GFudrn9jdD1aZ4tdMW2NhZri34MTiUaY +tqb+JcvmGOwyZ6KRnDGqJUlf8T8RBdIBJ2s16o1xQn32iFD7YRBf5n99qxMb +Vx8W/J53PxSKNxyNHHVmo1ii0+nS66Gw9uiZDel72Lj19dfm6uJQsBm91tXj +ThzOzz98KhQSXk7MePizsXlFnM8lp1CYLjpmFhnLxqTivY+tfoRAn1F6RwmX +ja/8hw6GqIWA76HiC5uvsHFqkR3LWiEEJq/c8hq+xsavT6PU14iFgAijZ0q7 +io3DoQyt2d8csFoiK3Ovno2WHaL1Xx5z4G5niWdHFxtNbmwRH/PnwBahGvWw +HjbamG2bUXfnQM+mR5MS/Ww0MLISDHbgwPjtr4kub9m4drnm3aUmHFC/qEV/ +GWLjieXCU3EryHp9pmHJ39ioc5Ih85OPrCe2AzRH2ej53sLVZzoYvE8eehE6 +wcZlRzv19w0Gw3h9Qs6qaTZyYx48/NwVDMd/nfO4/YuNCT+7DxxqDQZh3XK1 +vX/YGPX+OXNJXTDkB9yemJtjY83B4OHCm8HwP87/U9s= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.058331231580303816`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.058331231580303816`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99425937915163*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"b60dc88a-231d-4a98-a45a-280b7b4e710e"] +}, Open ]], Cell[CellGroupData[{ @@ -10643,66 +11538,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[365]:=",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], + "In[121]:=",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 365, 381, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423358439445`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.8554874732757114`*^-162\\\", \ +RowBox[{\\\"505518991860510123640143147290826802026\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"71\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9512072804761600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 45, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423358439445`*^9, 3.9942593792134*^9}, CellLabel-> "During evaluation of \ -In[365]:=",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], +In[121]:=",ExpressionUUID->"d7699f8e-1c1e-4c88-8a41-1d92aa3a0a30"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 365, 382, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342335853943*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.4010144687843454`*^-165\\\", \ +RowBox[{\\\"164243120455479739170682508554789627978\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"75\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4724542670438400000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 46, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423358439445`*^9, 3.9942593792231913`*^9}, CellLabel-> "During evaluation of \ -In[365]:=",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], +In[121]:=",ExpressionUUID->"f8cb9f27-23c9-4472-af29-7e1a7474fdb1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 365, 383, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342335861944*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.106930422512831`*^-168\\\", \ +RowBox[{\\\"552513857212233842570175958778312308519\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"78\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3361543354777600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 47, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423358439445`*^9, 3.9942593792349997`*^9}, CellLabel-> "During evaluation of \ -In[365]:=",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], +In[121]:=",ExpressionUUID->"232e68b8-8ce2-4a45-bbb3-3befd8bc5dc6"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 365, 384, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342335870945*^9}, +during this calculation.\"", 2, 121, 48, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423358439445`*^9, 3.994259379243937*^9}, CellLabel-> "During evaluation of \ -In[365]:=",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], +In[121]:=",ExpressionUUID->"e7a507c4-7d2b-45d2-8af1-33acf82254f2"], -Cell[BoxData["12.5536549879565`"], "Output", - CellChangeTimes->{3.9913423425170345`*^9}, +Cell[BoxData["13.814878100574349`"], "Output", + CellChangeTimes->{3.9913423425170345`*^9, 3.99425946670982*^9}, CellLabel-> - "Out[365]=",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] + "Out[121]=",ExpressionUUID->"b97e6ec3-fdb6-4b17-bb58-9023f554f2e0"] }, Open ]], Cell[CellGroupData[{ @@ -10769,68 +11671,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.99184987967128*^9, - 3.9918498857615337`*^9}},ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-\ -30286a178ca1"], + CellChangeTimes->{{3.99184987967128*^9, 3.9918498857615337`*^9}}, + CellLabel-> + "In[122]:=",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 366, - 385, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423425545177`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.2355745021171625`*^-258\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 122, 49, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423425545177`*^9, 3.994259466764598*^9}, CellLabel-> "During evaluation of \ -In[366]:=",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], +In[122]:=",ExpressionUUID->"278a75b0-4283-479b-83a2-a2aced808abe"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 366, - 386, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342342564516*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.064238669603053`*^-267\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 122, 50, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423425545177`*^9, 3.9942594667744303`*^9}, CellLabel-> "During evaluation of \ -In[366]:=",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], +In[122]:=",ExpressionUUID->"d124b2d7-7821-4530-beb6-5bbc716d79f0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 366, - 387, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423425725136`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.6489998568517514`*^-276\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 122, 51, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423425545177`*^9, 3.994259466783627*^9}, CellLabel-> "During evaluation of \ -In[366]:=",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], +In[122]:=",ExpressionUUID->"678ebcec-2dab-46a5-aac0-e55471bd99ee"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 366, 388, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423425815163`*^9}, +during this calculation.\"", 2, 122, 52, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423425545177`*^9, 3.994259466794392*^9}, CellLabel-> "During evaluation of \ -In[366]:=",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], +In[122]:=",ExpressionUUID->"d81d4980-431b-4c8d-b8be-43326cd0add4"], -Cell[BoxData["2.904399821349581`"], "Output", - CellChangeTimes->{3.9913423499055786`*^9}, +Cell[BoxData["0.00005970925115462555`"], "Output", + CellChangeTimes->{3.9913423499055786`*^9, 3.994259475850409*^9}, CellLabel-> - "Out[366]=",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] + "Out[122]=",ExpressionUUID->"3968d77c-532f-49e5-b131-e8a39eb0c1ec"] }, Open ]], Cell[CellGroupData[{ @@ -10851,8 +11754,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -10897,67 +11799,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849890499424*^9, - 3.9918498944226*^9}},ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], + CellChangeTimes->{{3.991849890499424*^9, 3.9918498944226*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 367, - 389, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423499435787`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.2355745021171625`*^-258\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 123, 53, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423499435787`*^9, 3.9942594759067497`*^9}, CellLabel-> "During evaluation of \ -In[367]:=",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], +In[123]:=",ExpressionUUID->"6dac29c9-6afb-4979-8789-8eec21157677"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 367, - 390, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342349953579*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.064238669603053`*^-267\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 123, 54, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423499435787`*^9, 3.994259475917807*^9}, CellLabel-> "During evaluation of \ -In[367]:=",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], +In[123]:=",ExpressionUUID->"3b36872c-348c-4dc6-b5f7-2c12275573d7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 367, - 391, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423499625797`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.6489998568517514`*^-276\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 123, 55, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423499435787`*^9, 3.9942594759303837`*^9}, CellLabel-> "During evaluation of \ -In[367]:=",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], +In[123]:=",ExpressionUUID->"ce50b023-f9ed-45d4-89a5-237900de6ba2"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 367, 392, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423499715805`*^9}, +during this calculation.\"", 2, 123, 56, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423499435787`*^9, 3.99425947593985*^9}, CellLabel-> "During evaluation of \ -In[367]:=",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], +In[123]:=",ExpressionUUID->"accada3f-1eae-4f99-85f2-239c075430d0"], -Cell[BoxData["9.928941323789857`"], "Output", - CellChangeTimes->{3.991342356382967*^9}, +Cell[BoxData["46.40519918552381`"], "Output", + CellChangeTimes->{3.991342356382967*^9, 3.994259484209043*^9}, CellLabel-> - "Out[367]=",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] + "Out[123]=",ExpressionUUID->"afe69ccf-dc94-4950-a4b3-af993bcc8c69"] }, Open ]], Cell[CellGroupData[{ @@ -10978,8 +11882,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -11024,68 +11927,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918499002266407`*^9, - 3.9918499040814323`*^9}},ExpressionUUID->"935796a8-6280-564a-b4d0-\ -fc6fb6cd41f8"], + CellChangeTimes->{{3.9918499002266407`*^9, 3.9918499040814323`*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 368, - 393, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342356420965*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.2355745021171625`*^-258\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 124, 57, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342356420965*^9, 3.994259484262157*^9}, CellLabel-> "During evaluation of \ -In[368]:=",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], +In[124]:=",ExpressionUUID->"0d2bfc4a-85ed-4aae-9a4a-e7487f30eb58"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 368, - 394, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342356431965*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.064238669603053`*^-267\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 124, 58, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342356420965*^9, 3.994259484271529*^9}, CellLabel-> "During evaluation of \ -In[368]:=",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], +In[124]:=",ExpressionUUID->"e78350ee-e310-411c-91b8-67aac53e20cc"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 368, - 395, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342356441965*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.6489998568517514`*^-276\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 124, 59, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342356420965*^9, 3.994259484281069*^9}, CellLabel-> "During evaluation of \ -In[368]:=",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], +In[124]:=",ExpressionUUID->"096d06ff-edff-45d7-ba8e-4e7e2e3e8b6c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 368, 396, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342356450968*^9}, +during this calculation.\"", 2, 124, 60, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342356420965*^9, 3.994259484289947*^9}, CellLabel-> "During evaluation of \ -In[368]:=",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], +In[124]:=",ExpressionUUID->"40a42eb5-4672-493c-8815-aaafea8dd98e"], -Cell[BoxData["19.874153108015193`"], "Output", - CellChangeTimes->{3.9913423600715523`*^9}, +Cell[BoxData["5.97001051417039`"], "Output", + CellChangeTimes->{3.9913423600715523`*^9, 3.994259491062739*^9}, CellLabel-> - "Out[368]=",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] + "Out[124]=",ExpressionUUID->"5b1c3a27-7239-45b0-ba82-035ca05971b7"] }, Open ]], Cell[CellGroupData[{ @@ -11094,22 +11998,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991849908545643*^9, - 3.9918499133398113`*^9}},ExpressionUUID->"ee52036b-90c5-e14a-aed9-\ -684ff23ed035"], - -Cell[BoxData["0.2067571864462191`"], "Output", - CellChangeTimes->{3.9913423601046352`*^9}, + CellChangeTimes->{{3.991849908545643*^9, 3.9918499133398113`*^9}}, CellLabel-> - "Out[369]=",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] + "In[125]:=",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], + +Cell[BoxData["3.5873252627014452`*^-6"], "Output", + CellChangeTimes->{3.9913423601046352`*^9, 3.994259491110435*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"767349f7-328f-41df-bc52-ef9b269385da"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.991849916273302*^9, 3.9918499185334816`*^9}, - 3.9919247506818066`*^9},ExpressionUUID->"c6d4a146-4cca-7e4e-b483-\ -85227a6e6b51"], + 3.9919247506818066`*^9}, + CellLabel-> + "In[126]:=",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], Cell[CellGroupData[{ @@ -11132,12 +12037,12 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[371]:=",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], + "In[127]:=",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], -Cell[BoxData["29.129739599983825`"], "Output", - CellChangeTimes->{3.9913423601345863`*^9}, +Cell[BoxData["19.912046235472797`"], "Output", + CellChangeTimes->{3.9913423601345863`*^9, 3.9942594911376343`*^9}, CellLabel-> - "Out[371]=",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] + "Out[127]=",ExpressionUUID->"28127554-30d1-4466-8637-d619564e641d"] }, Open ]], Cell[CellGroupData[{ @@ -11147,12 +12052,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[373]:=",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], + "In[128]:=",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], -Cell[BoxData["0.6950071373045505`"], "Output", - CellChangeTimes->{3.9913423601709976`*^9}, +Cell[BoxData["1.4554490882076723`"], "Output", + CellChangeTimes->{3.9913423601709976`*^9, 3.9942594911531487`*^9}, CellLabel-> - "Out[373]=",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] + "Out[128]=",ExpressionUUID->"44ba7d40-e6e4-44f4-af55-406fc382c19e"] }, Open ]], Cell[CellGroupData[{ @@ -11162,12 +12067,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[376]:=",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], + "In[129]:=",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], -Cell[BoxData["20.245376929811762`"], "Output", - CellChangeTimes->{3.9913423602320137`*^9}, +Cell[BoxData["28.980969537767894`"], "Output", + CellChangeTimes->{3.9913423602320137`*^9, 3.994259491169544*^9}, CellLabel-> - "Out[376]=",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] + "Out[129]=",ExpressionUUID->"e5b2cdac-363f-409e-8ae9-0077f0129355"] }, Open ]], Cell[CellGroupData[{ @@ -11357,12 +12262,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[377]:=",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], + "In[130]:=",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], -Cell[BoxData["0.02003459702393596`"], "Output", - CellChangeTimes->{3.991342360260002*^9}, +Cell[BoxData["0.004533038298558012`"], "Output", + CellChangeTimes->{3.991342360260002*^9, 3.994259491189125*^9}, CellLabel-> - "Out[377]=",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] + "Out[130]=",ExpressionUUID->"7bd06dcc-b647-4eed-9b06-1d2175330ec8"] }, Open ]], Cell[CellGroupData[{ @@ -11376,12 +12281,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[378]:=",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], + "In[131]:=",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], -Cell[BoxData["6.261157591052328`"], "Output", - CellChangeTimes->{3.9913423603598785`*^9}, +Cell[BoxData["13.162859525671108`"], "Output", + CellChangeTimes->{3.9913423603598785`*^9, 3.99425949139639*^9}, CellLabel-> - "Out[378]=",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] + "Out[131]=",ExpressionUUID->"e61c49c6-04a0-4d34-8c92-e35d386b9bdf"] }, Open ]], Cell[CellGroupData[{ @@ -11573,12 +12478,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[379]:=",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], + "In[132]:=",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], -Cell[BoxData["0.010388932679900494`"], "Output", - CellChangeTimes->{3.991342360375868*^9}, +Cell[BoxData["0.031072296686638263`"], "Output", + CellChangeTimes->{3.991342360375868*^9, 3.994259491414741*^9}, CellLabel-> - "Out[379]=",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] + "Out[132]=",ExpressionUUID->"8c9b2932-e72b-4049-8b4d-66df97dd3979"] }, Open ]], Cell[CellGroupData[{ @@ -11592,12 +12497,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[380]:=",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], + "In[133]:=",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], -Cell[BoxData["8.694797556550151`"], "Output", - CellChangeTimes->{3.991342360471882*^9}, +Cell[BoxData["5.027571586979337`"], "Output", + CellChangeTimes->{3.991342360471882*^9, 3.994259491617373*^9}, CellLabel-> - "Out[380]=",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] + "Out[133]=",ExpressionUUID->"a333c733-3e74-4b06-b6a8-6ad224bb999c"] }, Open ]], Cell[CellGroupData[{ @@ -11690,12 +12595,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[381]:=",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], + "In[134]:=",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.991342360486868*^9}, +Cell[BoxData["0.11447062330044823`"], "Output", + CellChangeTimes->{3.991342360486868*^9, 3.994259491633336*^9}, CellLabel-> - "Out[381]=",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] + "Out[134]=",ExpressionUUID->"1167b811-4935-4e0e-b1b0-828a11876567"] }, Open ]], Cell[CellGroupData[{ @@ -11785,12 +12690,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[382]:=",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], + "In[135]:=",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.9913423605138645`*^9}, +Cell[BoxData["0.8855293766995518`"], "Output", + CellChangeTimes->{3.9913423605138645`*^9, 3.9942594916492434`*^9}, CellLabel-> - "Out[382]=",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] + "Out[135]=",ExpressionUUID->"107bd491-b382-45a4-8620-23f546d39cfd"] }, Open ]], Cell[CellGroupData[{ @@ -11913,12 +12818,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[383]:=",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], + "In[136]:=",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.9913423605448647`*^9}, +Cell[BoxData["0.1013670997016551`"], "Output", + CellChangeTimes->{3.9913423605448647`*^9, 3.994259491665193*^9}, CellLabel-> - "Out[383]=",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] + "Out[136]=",ExpressionUUID->"96da1930-c615-4099-b627-8012545f165c"] }, Open ]], Cell[CellGroupData[{ @@ -11980,68 +12885,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849936863495*^9},ExpressionUUID->"6b25ec99-ae49-ec4d-9652-\ -65328572e509"], + CellChangeTimes->{3.991849936863495*^9}, + CellLabel-> + "In[137]:=",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 384, 397, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342360571863*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.502326641239652`*^-233\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 137, 61, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342360571863*^9, 3.994259491685628*^9}, CellLabel-> "During evaluation of \ -In[384]:=",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], +In[137]:=",ExpressionUUID->"640f9f6a-9d75-4f23-8b44-7eeb9c74e475"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 384, 398, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423605818653`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.9448892623024527`*^-239\\\", \ +RowBox[{\\\"1894408991562427689427794363373458470910\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8875062955245236398325760000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 137, + 62, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342360571863*^9, 3.994259491694792*^9}, CellLabel-> "During evaluation of \ -In[384]:=",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], +In[137]:=",ExpressionUUID->"77942d02-0e25-45aa-868e-f768c51342d7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 384, - 399, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423605898647`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.87453597223588`*^-246\\\", \ +RowBox[{\\\"2735526583816145583533735060711274031995\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"10\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5590907374121359182397440000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 137, + 63, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342360571863*^9, 3.994259491705791*^9}, CellLabel-> "During evaluation of \ -In[384]:=",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], +In[137]:=",ExpressionUUID->"c6c5bae5-4e26-4fb3-9d55-a39bb3a5359f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 384, 400, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423605988636`*^9}, +during this calculation.\"", 2, 137, 64, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342360571863*^9, 3.994259491715477*^9}, CellLabel-> "During evaluation of \ -In[384]:=",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], +In[137]:=",ExpressionUUID->"1e88ec55-09c2-407b-a5f9-a95308866949"], -Cell[BoxData["6.261157591052324`"], "Output", - CellChangeTimes->{3.9913423642473736`*^9}, +Cell[BoxData["13.162859525671124`"], "Output", + CellChangeTimes->{3.9913423642473736`*^9, 3.994259499089271*^9}, CellLabel-> - "Out[384]=",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] + "Out[137]=",ExpressionUUID->"51504499-60f0-4e66-980e-b2301b8cfcce"] }, Open ]], Cell[CellGroupData[{ @@ -12103,68 +13013,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849940282545*^9},ExpressionUUID->"3e2baf62-fab9-eb41-8de7-\ -aa229443ac14"], + CellChangeTimes->{3.991849940282545*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 385, 401, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342364284378*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.502326641239652`*^-233\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 138, 65, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342364284378*^9, 3.99425949914707*^9}, CellLabel-> "During evaluation of \ -In[385]:=",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], +In[138]:=",ExpressionUUID->"f1926d15-8e7f-4c83-ac89-aaf87abe21b0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 385, 402, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423642935734`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.9448892623024527`*^-239\\\", \ +RowBox[{\\\"1894408991562427689427794363373458470910\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8875062955245236398325760000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 66, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342364284378*^9, 3.9942594991595707`*^9}, CellLabel-> "During evaluation of \ -In[385]:=",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], +In[138]:=",ExpressionUUID->"119de116-a1fa-426c-a3c6-d903d04e6b2b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 385, - 403, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342364302574*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.87453597223588`*^-246\\\", \ +RowBox[{\\\"2735526583816145583533735060711274031995\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"10\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5590907374121359182397440000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 67, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342364284378*^9, 3.9942594991713543`*^9}, CellLabel-> "During evaluation of \ -In[385]:=",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], +In[138]:=",ExpressionUUID->"9ef78fad-9d7e-4674-a7a5-a0644a957651"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 385, 404, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423643105717`*^9}, +during this calculation.\"", 2, 138, 68, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342364284378*^9, 3.994259499179735*^9}, CellLabel-> "During evaluation of \ -In[385]:=",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], +In[138]:=",ExpressionUUID->"fc8e0a81-5430-411e-9d9e-0e365cd7f8ab"], -Cell[BoxData["8.694797556550144`"], "Output", - CellChangeTimes->{3.9913423679416714`*^9}, +Cell[BoxData["5.027571586979342`"], "Output", + CellChangeTimes->{3.9913423679416714`*^9, 3.9942595063599367`*^9}, CellLabel-> - "Out[385]=",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] + "Out[138]=",ExpressionUUID->"d5c1c2cf-e367-4a2e-854c-b810eb563ee2"] }, Open ]], Cell[CellGroupData[{ @@ -12222,95 +13137,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849946138607*^9},ExpressionUUID->"725c3011-bda9-4c42-96ce-\ -9a77a5dc787c"], + CellChangeTimes->{3.991849946138607*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C -qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P -P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC -usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx -y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM -UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 -4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 -LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 -LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ -tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N -AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T -HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF -K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj -T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt -q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US -zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS -fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ -Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa -eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t -r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB -R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX -ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk -7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i -4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr -1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr -rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd -lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc -8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd -VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX -lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc -2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K -BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB -GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c -hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 -DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ -xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr -PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 -qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U -DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 -gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf -7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 -4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG -u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 -xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm -YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U -Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L -3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi -OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb -+yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj -9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw -kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf -sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz -oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb -sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P -iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV -hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy -53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU -hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz -2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 -ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz -5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ -sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh -ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 -TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C -zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf -YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR -raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk -TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ -G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR -p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u -bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT -wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e -y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 -pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF -U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei -Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef -kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= - + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk0lc8fB3CEkn3fS7aiZLmIwnxyRXZJfW2J67mPpVSWZIsWpJRsFZVU +KGRXWetXqIQiqfD9KnuSe91rbe8394/nzHmdmXnPZ2bOmfOsox12pfNwcXEx +8MdpQ19vXl/X89qiXSpCuTydgSyYhUY0qzLUbV+1mePhfONsdatmNNHqT+PY +hXjFL0R5hvpi0uo5ro5KaOWz6kKhIXr6Fdhnn8s9SSh9g4Yv23Zx3NATeuOX +wTu0iz1wthJ7erAjLrqpH9kcHQmqwlaYUPNaov6HTBV8D1Zj28/GmYZ3fUL8 +7/dk1GA//jUtGFU6ggLzWvprsd+flI19eGgM1fjfsXyAzeS3ml4wmEB9Ctzd +D7H5zx/xoCxPotja3uP12GvE89pDm6aQiLKicyO2k+LSHSZ1Bh2QF/N4jE3e +VJXRWcVEmonNGU+wEzSckw50zaKGw59mWrD7Zfv0I0rZ6GJwyup2bMIzOCjr +/BwytBF51YHNus51q+bQPDJCq2teYa9S1RFjGywiX2Fi7C12NtFqIya9hKzv +PNX9gK1y1yNBd3kJPf+UfWMQ22RTMjOk6Rvyu3dtbAQ70PhT1zT1F7LO0RSc +w16IOsq7WvM3UqLoHFjCPtEkaKa16g+SMi1m/MDOAZN7AV1/kXvvDw/eDFxf +UbtVWCk3WPII98hhlz7PGj6pyANtL6qpa7BZn33iMs7zQHrIywE17Djtxdqq +QyvgXoxLiC52duU6tVkDPlgyqdPfiT3YM/P4TwEfnLkzU++ErTJX5ykizQ/z +klm0Pdhlhk6ZOsv8QB/XV/bHbmuI4T7YtArCXlfqnsBebH37aYoqBI7LB14+ +wZZwEBKLfSwE7zwEDTuw9fqsQNhUGOqfrX3xFjt4/MFN/c0ioP29iPyMfYSn +S89cSAwW1RVTxTIZaEK1gp20JA7lRuZBwdgLZIdAN0UCzrxZ8IzE5rk3uU4u +VAJ88uWPnsJWoax1Lf0qAaZXi1WvYXtS02teD0tC+/ou2mvsbv+wcNlOaagL +Low0y2Kgj3fTUn1XyUALc4pphz3ztbSgZIcMWC+kX/TAXh0x9nbbExmQ+bDK +7hi2VaKboe8DWbg2mFhwH7ux0HixOF8epptEpoyzGahw4kfk1ghlUOgWrfG4 +xEA795z5GF6uDKnHRL8cwJ5pk7Qun1SGi791qfHYhoWbpFU81oDj/R7fAuw2 +mk8tn8Va0Podu30We252+NjUaRXQGnp95cJlBpIMsbpf66gKhf9ryRy/wkCT +hasDXYJVocHcfdNP7Pr/ehQZyarwKnphSjyHgbwd9p3WfKIKzmfNOxF24cZI +11wDNeinfqPkYRtO32XFy6pDS5j5JZ9cBnILENSxG9GAskrN9J9XGQhF7jH4 +57cGrH81yyVzjYG0k/K3EPKa0NlplaWHzVVAsYzfpQlX3dKUSOzyj17/1DzV +BPvCU097sfn3lp1UuL0eGIG8bjXXcX1Wju+naVpwdbI969wNBirYfeXf5Xgt +0Gv/TinBTqONDPNe04Jou6zFF9jEiaNf17zVgrEjP//jy2cg8eY8rt1UbfhZ +H292GjuYwtRuUtsIGSfAPPEmAymqXkxIHd8Env9OmOXfZqDmcwta33l0QCjW +5Fcbtve8Rx+5TgfMNO6NTmPfaFPXsvTRAcXKL+pbChhINaCx99sHHQh5fTX+ +DbZ22YQG2bkZ+P6DJOEiBlJWXEOqeOjB1Sv9vbfvMtCmogihn8gAktwEV1iW +MxCNOL2o42QAOeoBzoewc9QyP/p6G8Don6BHV7FX3K6seh5lAOG1+/7MYw/e +mHbLrDaA3KUOyeIK/J7m+OZpqVFAU3p9qkwVvt9Uh83u/Iag2zdzQ6iWgW6F +qbs86DKCAwkWTO8GBuqJRFsSi0wh7qPNht52Blrn885p30FzkArgWe06yED0 +vw8rlKMB3j3fkFo2w0CyX+tXytIsISol+UsTDxNFUMz+y9S2gsCn6rP28kxE +Y/xql5zeASd4o5Uo+kxUbhm+Mr/bBi4zz/aJODJR4ULw07JsW/hUGTr4IpCJ +vm2Xe9WWYA/OQnzm+SlMNMS1gj3i5wj3R/+nc6WEiQ4pHU4/qeYMDhKf37S+ +ZKKKoPYnl5JcYHxoOUeByUQx8/LLG4N2wcbwCTeq+CxatLPe+2K/K+gPPOLP +NplFpl4Z2yd27YaYJ60squ8s6pXPC26juIFAVIKJSvIsUrhzurl4wx6I7d0Y +x6ycRfXD2g5OwnuhLmCpPPnDLFrTxwqIZOwF/RTXvIY/s4hyKaOsYPgfKF03 +4/xUioXyeOc3Z7a6w8gum8SWDSz0cLvuYFKDB+RWP71AWLBQzpZz4r9KPcEr +lt8mbjcLdf9blEw57wU35h+osUkWeuB4Xf3ICW84v/9z0INYFmKH7OY6ROyD +6ipZ8+o0Flq01gpkUn0gNujArQ83WaiYMfAt3Hg/bKJeGmbUspD7rSL/fUK+ +EM0+Nyb1jIVqa+z3rzjjC0svx0uG3rOQqWLv97PffcGvQPfYzUkWUhsOGHwT +5AcOedx5RossNC54wPn6mB9oGwcNflvBRj1pTv42e2hQRBf5WCnGRtlR+YJH +e2jQFXH4x1ZlNmp+/Pe7v60/uKRYBJpuYCNRbzhDafSHIQlRWQt9NlKRetGt +1OwP/9u+LYGGrdflKMf/2B9idPl6krFdzbxK+p/6A0Od2NiNna0U2Xn8pT80 +/Pna7mPARgpD90Tb+/2hqUXmejSFjdR9ZHO8l/2BUjtxLs+IjUx9mcVJhgR8 +XBLrzTNlozu5rHAnYwJ6bY0tG7Gl3s5ZyJoQYCxglfcem7ljua94GwF3FEWl +RLey8fvFxd1lSYCctApvArbIsriHxC4CnlnJznhuY6PxC0YC+SEEOArxd/KY +s9GuF1v6Ag4T4DB3N0sJ+zHX1ny9UALyRaesjbFzwy2MWiIIEFTZGhKE7eRh +4zcRS8A7u6n619gN6h4NG88RcMksxe6SBRulNcUF1d8hYDJSbKcEsFGIwRXT +qGICzs67zGzAdiipFjApxfW4tsUi7NVXJkvqygnwtzLzPoidFOYy/fA+AeKq +5mrPsOO01A88aCGg6dGXF2Hb2Sj4SufBmo8ETHAn7H9syUa2IpNmYcME/NiW +T/Zib0jiEjYYxefDaHCfxJ4MMyqvniCgS77/tzCVjfyc8hlVMwQUN52198Z2 +5ws/VPmDgNDn7vML2DbhCkfKZOhw7eSDIJkdbNSSn2yXKUcH/Xsm1lrYZl1z +6lEKdHAubxEww9bT6BygrqHDmcmxHX7Y8h9iqf9q0OEUsSGzFPvr1iGZ1UZ0 +aN+yMdrEGv838dx8FLCbDtRH6ke32+D96wrlOO6hw2yzmu4u7ESvqDDKP3Rw +uTjf7Ysddd9l/V9POmSm/X2WgO1HcmdcptHhU9WN083YlA4a8SyUDmhfJVV/ +Jxt9yNAQVEunw5CI3auVtmxUgYQDpzLoUOKFUiSxExkLbeVZdFCIUdFZi21g +2xZvcoUO7w1uGxpjp3H5zzneoMNpnZSt/tjWh28ORJXRQQgE1jVgKyunGFtU +0EHWa2dMK/ZCx+GsFVV0SDUnHr3Cvq2JHNNq6SDYv5l7FPv30NCTgkY6bNi5 +HC9gx0b3HRSLX7fTIfDgVVc37NQfPHzZHXS4+QZs92HTiqf9PLroEPn+oRaJ +LcbbqDjeTQejOpHiY9gHm9wvfn9PB69VHldzsdW0L0eqT9DhclOd2wD2jw/H +336ZpMNJJe6pYeyeJLpe5RQdcgdE6FPY8SOG06Yz+PwGIpSWsQdz3u5znqdD +xTGPE5L2bJS5UnxHDDcJvBf+Ku7Ebp4b8opYQcKxI0vcztifh0rDDvGRsCyl +07UH2+y+1U2aAAnyj/cK+2NP+kb9tBMnYZQ7xTIOW8xhh8QOSRL6bYPsTmFv +2yKhhaRJGBxINE7BThcu20uRJ6HYMbApi9Pf+KlacR0Jsee7j5Vgk0Vl7dJq +JHxeGXargjM+PfqTqAYJPaJ2lbWc9UhJYV4tEoryc4494vRL2gTO6JEguv9W +Yzd24x/JhEkDEugvR/j6sCe+DF8aNiTBr2W3UT/21icxrX0mJNTkdsAw9vjB +ijWPgASG9DeBWWwR91ijOku8nlxD5By2KXWnQ7UVCZ7BxS8WsdPkR6OLdpLw +LkNM5hd2PW9ler4dCURTiuRf7LHZ2Lu5DiR8HNRZ5HZgI5Pn0u8uuJBwovU3 +sRKbVj369YwrCcLf1s8LYF+4Xslzyo0E++/H6ULYo2G2epHuJLh6lC2JYQv7 +yNgc8STBcluitCQnz3ZsX7A3CcasZDlpzvy1x1N9fElQ+SHYKYddv9rutjuN +BL7pCzEKnLxFmQZXgoSXo6YiSpy8kbFuB5IElwbRZGVOXlfVpHUgCUd3iI6u +4dRXd/w3BJMgSTNRVeHk37aT2naQhMWZc9brOPkXZDcaHSJh+jm/syonP2p8 +u+4REire3tumhi1EVLtrhZHw53u0kDr2Fuf4w2oRJKSphT7lmLbVPlk5kgRB +8wxPDezzGnJ5slEkKBgPfuD4odhErXgMCd7cDqaa2CM/qzsE4/B9Zk/Gcyz0 +OX6ELx7v53NJMcfGvfbf/ibgepcvPeT4/3YLC+U= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -12324,107 +13238,106 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C -qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P -P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC -usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx -y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM -UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 -4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 -LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 -LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ -tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N -AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T -HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF -K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj -T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt -q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US -zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS -fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ -Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa -eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t -r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB -R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX -ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk -7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i -4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr -1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr -rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd -lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc -8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd -VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX -lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc -2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K -BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB -GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c -hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 -DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ -xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr -PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 -qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U -DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 -gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf -7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 -4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG -u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 -xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm -YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U -Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L -3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi -OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb -+yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj -9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw -kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf -sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz -oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb -sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P -iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV -hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy -53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU -hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz -2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 -ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz -5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ -sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh -ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 -TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C -zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf -YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR -raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk -TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ -G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR -p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u -bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT -wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e -y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 -pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF -U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei -Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef -kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= - +1:eJwV1nk0lc8fB3CEkn3fS7aiZLmIwnxyRXZJfW2J67mPpVSWZIsWpJRsFZVU +KGRXWetXqIQiqfD9KnuSe91rbe8394/nzHmdmXnPZ2bOmfOsox12pfNwcXEx +8MdpQ19vXl/X89qiXSpCuTydgSyYhUY0qzLUbV+1mePhfONsdatmNNHqT+PY +hXjFL0R5hvpi0uo5ro5KaOWz6kKhIXr6Fdhnn8s9SSh9g4Yv23Zx3NATeuOX +wTu0iz1wthJ7erAjLrqpH9kcHQmqwlaYUPNaov6HTBV8D1Zj28/GmYZ3fUL8 +7/dk1GA//jUtGFU6ggLzWvprsd+flI19eGgM1fjfsXyAzeS3ml4wmEB9Ctzd +D7H5zx/xoCxPotja3uP12GvE89pDm6aQiLKicyO2k+LSHSZ1Bh2QF/N4jE3e +VJXRWcVEmonNGU+wEzSckw50zaKGw59mWrD7Zfv0I0rZ6GJwyup2bMIzOCjr +/BwytBF51YHNus51q+bQPDJCq2teYa9S1RFjGywiX2Fi7C12NtFqIya9hKzv +PNX9gK1y1yNBd3kJPf+UfWMQ22RTMjOk6Rvyu3dtbAQ70PhT1zT1F7LO0RSc +w16IOsq7WvM3UqLoHFjCPtEkaKa16g+SMi1m/MDOAZN7AV1/kXvvDw/eDFxf +UbtVWCk3WPII98hhlz7PGj6pyANtL6qpa7BZn33iMs7zQHrIywE17Djtxdqq +QyvgXoxLiC52duU6tVkDPlgyqdPfiT3YM/P4TwEfnLkzU++ErTJX5ykizQ/z +klm0Pdhlhk6ZOsv8QB/XV/bHbmuI4T7YtArCXlfqnsBebH37aYoqBI7LB14+ +wZZwEBKLfSwE7zwEDTuw9fqsQNhUGOqfrX3xFjt4/MFN/c0ioP29iPyMfYSn +S89cSAwW1RVTxTIZaEK1gp20JA7lRuZBwdgLZIdAN0UCzrxZ8IzE5rk3uU4u +VAJ88uWPnsJWoax1Lf0qAaZXi1WvYXtS02teD0tC+/ou2mvsbv+wcNlOaagL +Low0y2Kgj3fTUn1XyUALc4pphz3ztbSgZIcMWC+kX/TAXh0x9nbbExmQ+bDK +7hi2VaKboe8DWbg2mFhwH7ux0HixOF8epptEpoyzGahw4kfk1ghlUOgWrfG4 +xEA795z5GF6uDKnHRL8cwJ5pk7Qun1SGi791qfHYhoWbpFU81oDj/R7fAuw2 +mk8tn8Va0Podu30We252+NjUaRXQGnp95cJlBpIMsbpf66gKhf9ryRy/wkCT +hasDXYJVocHcfdNP7Pr/ehQZyarwKnphSjyHgbwd9p3WfKIKzmfNOxF24cZI +11wDNeinfqPkYRtO32XFy6pDS5j5JZ9cBnILENSxG9GAskrN9J9XGQhF7jH4 +57cGrH81yyVzjYG0k/K3EPKa0NlplaWHzVVAsYzfpQlX3dKUSOzyj17/1DzV +BPvCU097sfn3lp1UuL0eGIG8bjXXcX1Wju+naVpwdbI969wNBirYfeXf5Xgt +0Gv/TinBTqONDPNe04Jou6zFF9jEiaNf17zVgrEjP//jy2cg8eY8rt1UbfhZ +H292GjuYwtRuUtsIGSfAPPEmAymqXkxIHd8Env9OmOXfZqDmcwta33l0QCjW +5Fcbtve8Rx+5TgfMNO6NTmPfaFPXsvTRAcXKL+pbChhINaCx99sHHQh5fTX+ +DbZ22YQG2bkZ+P6DJOEiBlJWXEOqeOjB1Sv9vbfvMtCmogihn8gAktwEV1iW +MxCNOL2o42QAOeoBzoewc9QyP/p6G8Don6BHV7FX3K6seh5lAOG1+/7MYw/e +mHbLrDaA3KUOyeIK/J7m+OZpqVFAU3p9qkwVvt9Uh83u/Iag2zdzQ6iWgW6F +qbs86DKCAwkWTO8GBuqJRFsSi0wh7qPNht52Blrn885p30FzkArgWe06yED0 +vw8rlKMB3j3fkFo2w0CyX+tXytIsISol+UsTDxNFUMz+y9S2gsCn6rP28kxE +Y/xql5zeASd4o5Uo+kxUbhm+Mr/bBi4zz/aJODJR4ULw07JsW/hUGTr4IpCJ +vm2Xe9WWYA/OQnzm+SlMNMS1gj3i5wj3R/+nc6WEiQ4pHU4/qeYMDhKf37S+ +ZKKKoPYnl5JcYHxoOUeByUQx8/LLG4N2wcbwCTeq+CxatLPe+2K/K+gPPOLP +NplFpl4Z2yd27YaYJ60squ8s6pXPC26juIFAVIKJSvIsUrhzurl4wx6I7d0Y +x6ycRfXD2g5OwnuhLmCpPPnDLFrTxwqIZOwF/RTXvIY/s4hyKaOsYPgfKF03 +4/xUioXyeOc3Z7a6w8gum8SWDSz0cLvuYFKDB+RWP71AWLBQzpZz4r9KPcEr +lt8mbjcLdf9blEw57wU35h+osUkWeuB4Xf3ICW84v/9z0INYFmKH7OY6ROyD +6ipZ8+o0Flq01gpkUn0gNujArQ83WaiYMfAt3Hg/bKJeGmbUspD7rSL/fUK+ +EM0+Nyb1jIVqa+z3rzjjC0svx0uG3rOQqWLv97PffcGvQPfYzUkWUhsOGHwT +5AcOedx5RossNC54wPn6mB9oGwcNflvBRj1pTv42e2hQRBf5WCnGRtlR+YJH +e2jQFXH4x1ZlNmp+/Pe7v60/uKRYBJpuYCNRbzhDafSHIQlRWQt9NlKRetGt +1OwP/9u+LYGGrdflKMf/2B9idPl6krFdzbxK+p/6A0Od2NiNna0U2Xn8pT80 +/Pna7mPARgpD90Tb+/2hqUXmejSFjdR9ZHO8l/2BUjtxLs+IjUx9mcVJhgR8 +XBLrzTNlozu5rHAnYwJ6bY0tG7Gl3s5ZyJoQYCxglfcem7ljua94GwF3FEWl +RLey8fvFxd1lSYCctApvArbIsriHxC4CnlnJznhuY6PxC0YC+SEEOArxd/KY +s9GuF1v6Ag4T4DB3N0sJ+zHX1ny9UALyRaesjbFzwy2MWiIIEFTZGhKE7eRh +4zcRS8A7u6n619gN6h4NG88RcMksxe6SBRulNcUF1d8hYDJSbKcEsFGIwRXT +qGICzs67zGzAdiipFjApxfW4tsUi7NVXJkvqygnwtzLzPoidFOYy/fA+AeKq +5mrPsOO01A88aCGg6dGXF2Hb2Sj4SufBmo8ETHAn7H9syUa2IpNmYcME/NiW +T/Zib0jiEjYYxefDaHCfxJ4MMyqvniCgS77/tzCVjfyc8hlVMwQUN52198Z2 +5ws/VPmDgNDn7vML2DbhCkfKZOhw7eSDIJkdbNSSn2yXKUcH/Xsm1lrYZl1z +6lEKdHAubxEww9bT6BygrqHDmcmxHX7Y8h9iqf9q0OEUsSGzFPvr1iGZ1UZ0 +aN+yMdrEGv838dx8FLCbDtRH6ke32+D96wrlOO6hw2yzmu4u7ESvqDDKP3Rw +uTjf7Ysddd9l/V9POmSm/X2WgO1HcmdcptHhU9WN083YlA4a8SyUDmhfJVV/ +Jxt9yNAQVEunw5CI3auVtmxUgYQDpzLoUOKFUiSxExkLbeVZdFCIUdFZi21g +2xZvcoUO7w1uGxpjp3H5zzneoMNpnZSt/tjWh28ORJXRQQgE1jVgKyunGFtU +0EHWa2dMK/ZCx+GsFVV0SDUnHr3Cvq2JHNNq6SDYv5l7FPv30NCTgkY6bNi5 +HC9gx0b3HRSLX7fTIfDgVVc37NQfPHzZHXS4+QZs92HTiqf9PLroEPn+oRaJ +LcbbqDjeTQejOpHiY9gHm9wvfn9PB69VHldzsdW0L0eqT9DhclOd2wD2jw/H +336ZpMNJJe6pYeyeJLpe5RQdcgdE6FPY8SOG06Yz+PwGIpSWsQdz3u5znqdD +xTGPE5L2bJS5UnxHDDcJvBf+Ku7Ebp4b8opYQcKxI0vcztifh0rDDvGRsCyl +07UH2+y+1U2aAAnyj/cK+2NP+kb9tBMnYZQ7xTIOW8xhh8QOSRL6bYPsTmFv +2yKhhaRJGBxINE7BThcu20uRJ6HYMbApi9Pf+KlacR0Jsee7j5Vgk0Vl7dJq +JHxeGXargjM+PfqTqAYJPaJ2lbWc9UhJYV4tEoryc4494vRL2gTO6JEguv9W +Yzd24x/JhEkDEugvR/j6sCe+DF8aNiTBr2W3UT/21icxrX0mJNTkdsAw9vjB +ijWPgASG9DeBWWwR91ijOku8nlxD5By2KXWnQ7UVCZ7BxS8WsdPkR6OLdpLw +LkNM5hd2PW9ler4dCURTiuRf7LHZ2Lu5DiR8HNRZ5HZgI5Pn0u8uuJBwovU3 +sRKbVj369YwrCcLf1s8LYF+4Xslzyo0E++/H6ULYo2G2epHuJLh6lC2JYQv7 +yNgc8STBcluitCQnz3ZsX7A3CcasZDlpzvy1x1N9fElQ+SHYKYddv9rutjuN +BL7pCzEKnLxFmQZXgoSXo6YiSpy8kbFuB5IElwbRZGVOXlfVpHUgCUd3iI6u +4dRXd/w3BJMgSTNRVeHk37aT2naQhMWZc9brOPkXZDcaHSJh+jm/syonP2p8 +u+4REire3tumhi1EVLtrhZHw53u0kDr2Fuf4w2oRJKSphT7lmLbVPlk5kgRB +8wxPDezzGnJ5slEkKBgPfuD4odhErXgMCd7cDqaa2CM/qzsE4/B9Zk/Gcyz0 +OX6ELx7v53NJMcfGvfbf/ibgepcvPeT4/3YLC+U= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5012481131960838, - 1.8440472181603567`}}, + "PlotRange" -> {{0, 180}, {0.9239106726896802, + 1.0810916073091377`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5012481131960849}, + "AxesOrigin" -> {0, 0.9239106726896822}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -12436,21 +13349,21 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5012481131960838, - 1.8440472181603567`}}, + "PlotRange" -> {{0, 180}, {0.9239106726896802, + 1.0810916073091377`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5012481131960849}, + "AxesOrigin" -> {0, 0.9239106726896822}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -12464,105 +13377,104 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C -qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P -P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC -usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx -y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM -UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 -4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 -LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 -LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ -tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N -AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T -HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF -K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj -T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt -q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US -zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS -fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ -Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa -eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t -r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB -R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX -ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk -7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i -4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr -1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr -rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd -lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc -8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd -VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX -lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc -2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K -BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB -GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c -hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 -DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ -xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr -PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 -qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U -DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 -gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf -7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 -4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG -u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 -xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm -YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U -Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L -3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi -OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb -+yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj -9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw -kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf -sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz -oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb -sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P -iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV -hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy -53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU -hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz -2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 -ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz -5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ -sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh -ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 -TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C -zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf -YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR -raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk -TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ -G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR -p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u -bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT -wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e -y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 -pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF -U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei -Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef -kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= - +1:eJwV1nk0lc8fB3CEkn3fS7aiZLmIwnxyRXZJfW2J67mPpVSWZIsWpJRsFZVU +KGRXWetXqIQiqfD9KnuSe91rbe8394/nzHmdmXnPZ2bOmfOsox12pfNwcXEx +8MdpQ19vXl/X89qiXSpCuTydgSyYhUY0qzLUbV+1mePhfONsdatmNNHqT+PY +hXjFL0R5hvpi0uo5ro5KaOWz6kKhIXr6Fdhnn8s9SSh9g4Yv23Zx3NATeuOX +wTu0iz1wthJ7erAjLrqpH9kcHQmqwlaYUPNaov6HTBV8D1Zj28/GmYZ3fUL8 +7/dk1GA//jUtGFU6ggLzWvprsd+flI19eGgM1fjfsXyAzeS3ml4wmEB9Ctzd +D7H5zx/xoCxPotja3uP12GvE89pDm6aQiLKicyO2k+LSHSZ1Bh2QF/N4jE3e +VJXRWcVEmonNGU+wEzSckw50zaKGw59mWrD7Zfv0I0rZ6GJwyup2bMIzOCjr +/BwytBF51YHNus51q+bQPDJCq2teYa9S1RFjGywiX2Fi7C12NtFqIya9hKzv +PNX9gK1y1yNBd3kJPf+UfWMQ22RTMjOk6Rvyu3dtbAQ70PhT1zT1F7LO0RSc +w16IOsq7WvM3UqLoHFjCPtEkaKa16g+SMi1m/MDOAZN7AV1/kXvvDw/eDFxf +UbtVWCk3WPII98hhlz7PGj6pyANtL6qpa7BZn33iMs7zQHrIywE17Djtxdqq +QyvgXoxLiC52duU6tVkDPlgyqdPfiT3YM/P4TwEfnLkzU++ErTJX5ykizQ/z +klm0Pdhlhk6ZOsv8QB/XV/bHbmuI4T7YtArCXlfqnsBebH37aYoqBI7LB14+ +wZZwEBKLfSwE7zwEDTuw9fqsQNhUGOqfrX3xFjt4/MFN/c0ioP29iPyMfYSn +S89cSAwW1RVTxTIZaEK1gp20JA7lRuZBwdgLZIdAN0UCzrxZ8IzE5rk3uU4u +VAJ88uWPnsJWoax1Lf0qAaZXi1WvYXtS02teD0tC+/ou2mvsbv+wcNlOaagL +Low0y2Kgj3fTUn1XyUALc4pphz3ztbSgZIcMWC+kX/TAXh0x9nbbExmQ+bDK +7hi2VaKboe8DWbg2mFhwH7ux0HixOF8epptEpoyzGahw4kfk1ghlUOgWrfG4 +xEA795z5GF6uDKnHRL8cwJ5pk7Qun1SGi791qfHYhoWbpFU81oDj/R7fAuw2 +mk8tn8Va0Podu30We252+NjUaRXQGnp95cJlBpIMsbpf66gKhf9ryRy/wkCT +hasDXYJVocHcfdNP7Pr/ehQZyarwKnphSjyHgbwd9p3WfKIKzmfNOxF24cZI +11wDNeinfqPkYRtO32XFy6pDS5j5JZ9cBnILENSxG9GAskrN9J9XGQhF7jH4 +57cGrH81yyVzjYG0k/K3EPKa0NlplaWHzVVAsYzfpQlX3dKUSOzyj17/1DzV +BPvCU097sfn3lp1UuL0eGIG8bjXXcX1Wju+naVpwdbI969wNBirYfeXf5Xgt +0Gv/TinBTqONDPNe04Jou6zFF9jEiaNf17zVgrEjP//jy2cg8eY8rt1UbfhZ +H292GjuYwtRuUtsIGSfAPPEmAymqXkxIHd8Env9OmOXfZqDmcwta33l0QCjW +5Fcbtve8Rx+5TgfMNO6NTmPfaFPXsvTRAcXKL+pbChhINaCx99sHHQh5fTX+ +DbZ22YQG2bkZ+P6DJOEiBlJWXEOqeOjB1Sv9vbfvMtCmogihn8gAktwEV1iW +MxCNOL2o42QAOeoBzoewc9QyP/p6G8Don6BHV7FX3K6seh5lAOG1+/7MYw/e +mHbLrDaA3KUOyeIK/J7m+OZpqVFAU3p9qkwVvt9Uh83u/Iag2zdzQ6iWgW6F +qbs86DKCAwkWTO8GBuqJRFsSi0wh7qPNht52Blrn885p30FzkArgWe06yED0 +vw8rlKMB3j3fkFo2w0CyX+tXytIsISol+UsTDxNFUMz+y9S2gsCn6rP28kxE +Y/xql5zeASd4o5Uo+kxUbhm+Mr/bBi4zz/aJODJR4ULw07JsW/hUGTr4IpCJ +vm2Xe9WWYA/OQnzm+SlMNMS1gj3i5wj3R/+nc6WEiQ4pHU4/qeYMDhKf37S+ +ZKKKoPYnl5JcYHxoOUeByUQx8/LLG4N2wcbwCTeq+CxatLPe+2K/K+gPPOLP +NplFpl4Z2yd27YaYJ60squ8s6pXPC26juIFAVIKJSvIsUrhzurl4wx6I7d0Y +x6ycRfXD2g5OwnuhLmCpPPnDLFrTxwqIZOwF/RTXvIY/s4hyKaOsYPgfKF03 +4/xUioXyeOc3Z7a6w8gum8SWDSz0cLvuYFKDB+RWP71AWLBQzpZz4r9KPcEr +lt8mbjcLdf9blEw57wU35h+osUkWeuB4Xf3ICW84v/9z0INYFmKH7OY6ROyD +6ipZ8+o0Flq01gpkUn0gNujArQ83WaiYMfAt3Hg/bKJeGmbUspD7rSL/fUK+ +EM0+Nyb1jIVqa+z3rzjjC0svx0uG3rOQqWLv97PffcGvQPfYzUkWUhsOGHwT +5AcOedx5RossNC54wPn6mB9oGwcNflvBRj1pTv42e2hQRBf5WCnGRtlR+YJH +e2jQFXH4x1ZlNmp+/Pe7v60/uKRYBJpuYCNRbzhDafSHIQlRWQt9NlKRetGt +1OwP/9u+LYGGrdflKMf/2B9idPl6krFdzbxK+p/6A0Od2NiNna0U2Xn8pT80 +/Pna7mPARgpD90Tb+/2hqUXmejSFjdR9ZHO8l/2BUjtxLs+IjUx9mcVJhgR8 +XBLrzTNlozu5rHAnYwJ6bY0tG7Gl3s5ZyJoQYCxglfcem7ljua94GwF3FEWl +RLey8fvFxd1lSYCctApvArbIsriHxC4CnlnJznhuY6PxC0YC+SEEOArxd/KY +s9GuF1v6Ag4T4DB3N0sJ+zHX1ny9UALyRaesjbFzwy2MWiIIEFTZGhKE7eRh +4zcRS8A7u6n619gN6h4NG88RcMksxe6SBRulNcUF1d8hYDJSbKcEsFGIwRXT +qGICzs67zGzAdiipFjApxfW4tsUi7NVXJkvqygnwtzLzPoidFOYy/fA+AeKq +5mrPsOO01A88aCGg6dGXF2Hb2Sj4SufBmo8ETHAn7H9syUa2IpNmYcME/NiW +T/Zib0jiEjYYxefDaHCfxJ4MMyqvniCgS77/tzCVjfyc8hlVMwQUN52198Z2 +5ws/VPmDgNDn7vML2DbhCkfKZOhw7eSDIJkdbNSSn2yXKUcH/Xsm1lrYZl1z +6lEKdHAubxEww9bT6BygrqHDmcmxHX7Y8h9iqf9q0OEUsSGzFPvr1iGZ1UZ0 +aN+yMdrEGv838dx8FLCbDtRH6ke32+D96wrlOO6hw2yzmu4u7ESvqDDKP3Rw +uTjf7Ysddd9l/V9POmSm/X2WgO1HcmdcptHhU9WN083YlA4a8SyUDmhfJVV/ +Jxt9yNAQVEunw5CI3auVtmxUgYQDpzLoUOKFUiSxExkLbeVZdFCIUdFZi21g +2xZvcoUO7w1uGxpjp3H5zzneoMNpnZSt/tjWh28ORJXRQQgE1jVgKyunGFtU +0EHWa2dMK/ZCx+GsFVV0SDUnHr3Cvq2JHNNq6SDYv5l7FPv30NCTgkY6bNi5 +HC9gx0b3HRSLX7fTIfDgVVc37NQfPHzZHXS4+QZs92HTiqf9PLroEPn+oRaJ +LcbbqDjeTQejOpHiY9gHm9wvfn9PB69VHldzsdW0L0eqT9DhclOd2wD2jw/H +336ZpMNJJe6pYeyeJLpe5RQdcgdE6FPY8SOG06Yz+PwGIpSWsQdz3u5znqdD +xTGPE5L2bJS5UnxHDDcJvBf+Ku7Ebp4b8opYQcKxI0vcztifh0rDDvGRsCyl +07UH2+y+1U2aAAnyj/cK+2NP+kb9tBMnYZQ7xTIOW8xhh8QOSRL6bYPsTmFv +2yKhhaRJGBxINE7BThcu20uRJ6HYMbApi9Pf+KlacR0Jsee7j5Vgk0Vl7dJq +JHxeGXargjM+PfqTqAYJPaJ2lbWc9UhJYV4tEoryc4494vRL2gTO6JEguv9W +Yzd24x/JhEkDEugvR/j6sCe+DF8aNiTBr2W3UT/21icxrX0mJNTkdsAw9vjB +ijWPgASG9DeBWWwR91ijOku8nlxD5By2KXWnQ7UVCZ7BxS8WsdPkR6OLdpLw +LkNM5hd2PW9ler4dCURTiuRf7LHZ2Lu5DiR8HNRZ5HZgI5Pn0u8uuJBwovU3 +sRKbVj369YwrCcLf1s8LYF+4Xslzyo0E++/H6ULYo2G2epHuJLh6lC2JYQv7 +yNgc8STBcluitCQnz3ZsX7A3CcasZDlpzvy1x1N9fElQ+SHYKYddv9rutjuN +BL7pCzEKnLxFmQZXgoSXo6YiSpy8kbFuB5IElwbRZGVOXlfVpHUgCUd3iI6u +4dRXd/w3BJMgSTNRVeHk37aT2naQhMWZc9brOPkXZDcaHSJh+jm/syonP2p8 +u+4REire3tumhi1EVLtrhZHw53u0kDr2Fuf4w2oRJKSphT7lmLbVPlk5kgRB +8wxPDezzGnJ5slEkKBgPfuD4odhErXgMCd7cDqaa2CM/qzsE4/B9Zk/Gcyz0 +OX6ELx7v53NJMcfGvfbf/ibgepcvPeT4/3YLC+U= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5012481131960838, 1.8440472181603567`}}, + "PlotRange" -> {{0, 180}, {0.9239106726896802, 1.0810916073091377`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5012481131960849}, + "AxesOrigin" -> {0, 0.9239106726896822}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -12572,7 +13484,8 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5012481131960849}, + AxesOrigin->{0, 0.9239106726896822}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -12600,7 +13513,8 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5012481131960838, 1.8440472181603567`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.9239106726896802, 1.0810916073091377`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -12608,9 +13522,9 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991342629715925*^9}, + CellChangeTimes->{3.991342629715925*^9, 3.994260124785214*^9}, CellLabel-> - "Out[386]=",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] + "Out[139]=",ExpressionUUID->"7500640f-0efa-4316-a90d-1ade1e7ddd2a"] }, Open ]], Cell[CellGroupData[{ @@ -12673,156 +13587,160 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.991849950722357*^9, - 3.9918499540026855`*^9}},ExpressionUUID->"1ea503b1-33a1-2744-a92d-\ -2e1269faf5ed"], + CellChangeTimes->{{3.991849950722357*^9, 3.9918499540026855`*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.03396961278019`*^-273\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 387, - 405, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913426299467087`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.8406727674963037`*^-271\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 69, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913426299467087`*^9, 3.994260124973669*^9}, CellLabel-> "During evaluation of \ -In[387]:=",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], +In[140]:=",ExpressionUUID->"f4e20a45-0df5-4044-869b-e2057e349ab3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.366286872093514`*^-285\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 387, 406, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342629956772*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.0988744756148545`*^-284\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 70, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913426299467087`*^9, 3.994260124982298*^9}, CellLabel-> "During evaluation of \ -In[387]:=",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], +In[140]:=",ExpressionUUID->"429ab67d-0c02-4fb4-a7b5-0131ec5a4b7c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.843812508005402`*^-296\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 387, 407, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342629966284*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.769262181902791`*^-297\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 71, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913426299467087`*^9, 3.99426012499096*^9}, CellLabel-> "During evaluation of \ -In[387]:=",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], +In[140]:=",ExpressionUUID->"6ef35734-b3a2-4f08-b011-7f87fc18dc65"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 387, 408, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913426299753895`*^9}, +during this calculation.\"", 2, 140, 72, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913426299467087`*^9, 3.99426012500247*^9}, CellLabel-> "During evaluation of \ -In[387]:=",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], +In[140]:=",ExpressionUUID->"94c375d0-c5d5-4502-b385-5ea0920c65ac"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL -FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg -ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX -BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ -e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL -i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx -lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK -ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR -PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU -6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj -7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ -b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 -uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr -tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY -sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ -FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl -UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN -L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk -3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz -SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt -KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y -9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS -GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS -cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR -kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 -tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 -SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj -Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw -KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx -jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB -dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 -PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm -syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet -/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 -XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx -pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT -fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L -Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm -lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl -xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 -SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs -ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B -Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y -xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK -8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS -k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI -fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M -aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF -hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt -GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi -mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm -LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF -5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF -V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu -DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL -mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl -9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ -04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 -Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv -CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ -Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f -hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo -+ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X -hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l -Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw -qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U -eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi -4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN -ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX -B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M -5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 -cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj -66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 -VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US -FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh -kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 -2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca -+FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG -E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O -x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy -+x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 -2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak -vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo -d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC -Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd -sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj -Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr -ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1mk8VVsbAHBF0yV1yZDZOXsflKFUJOf0PFGkgUKJhGQoRJmKBiRTCRlS +yPwK52zRIEPSNcSNQmQslUoiU0KUvPt+2r//h732s9d6hqVo72HquJCPj2/B +Aj6+/55Tvf/WEFezt2rLLL3D36G9tS1V0m9b5yVYOdvdZtErBijWZC/ZGQuB +i08FsnpJ8N2X38HfmQlfXYdXLO3dBH+PSMTOdNwD2/PpTz683QHvHht7/Oio +gkHLtRs83x4AA2Lw7XjHK2icap+s73GEmQ7thLGOPuCzHKM0XvtAtf6d7JbM +CXhWqbyjJCMUZN6V9turzkGpKd+LKF4MrHKzzV+iz48OfVYm7bUJELveoNz4 +wFJ8UZAp9EM0Gbpurns6vnI5Rqd5alrVpsHV7ICmhav/RvOFJhuT9TNBIv5j +RNxtUSw12aB9/kQ2hJkbbX01JYbNzvt6/XVzwEsnw/bfS5Lo4QOxP+buwPbR +WX/3j1Joctf9nIdbHvjtjF/zzzcp7P8zKph5Og8KMtS6Raek0OvoqyMtvnkg +aW6nU7pUGh0TgrezgvLgW0ntNL+6NIq6bBXLS8iDuEsx3rfOSmOXeXiwyJM8 +6BNjudcsl8Gs3fX3PIXyIYi9/6jUZlns0Cu5fjgtH3bapH7X1pPFX6VBOdLZ ++SAcOBR8YI8syj9u7ezIzYeU6pCcGDtZTAizT9h+Lx9KdpUNLY6QxU7jxBOj +NfkwdojpO9Eli/Zx/1pf+ZoPNj6TVxrPyWEtH8a2aXCBTNSTGQyRwxsvB1ZJ +buTS8UZTS2LkUKvCqchiMxf8f6s062XL4XaNPO0G5EJCsI1YaaMcxn8bPhO8 +nwuN1+vS/icrj00p6ZWbPbmwpeDWg4uV8rjSLMO6uJAL2ztezo3Uy+MPkYGL +7AdcMOYTMLR9JY9eHeLsykdcOGbq3gWf5TF/5nBY2RMuGJxTDAhcpIB5h6ft +wxu5cEp+KmvbWgXsSwd20Bcu1DinDVf7KmB0SN3SASkeGP3WETl/TgH3CTRz +F8jx4GVMm9bGQAX0HLj8TUKRB12lywKzIxRwi6if4RYlHowIeouEpCigt565 +88ENPJAs3KltUKWAP7/v9Pi2iwduP8cD65croqCxxLOYMzzYctpJvF9EEV+B +fvsZfx4sHezm8ksq4hL8/N3qAg/+11PdvpWhiNcT00zFgnnQ+yRB9aGWIvbo +8e5bRfHAJESnM8NWEbvV5tjK2TzQFAnSOFekiI/6hDOaG3nAd3Wy5maxIjbK +GbfrNNHx87tYFZcrolavMSOthQeuk6Yh47WKmCwqyWfTzoPsTqLHuVsRf6+K +fst7xwPxtPpQc34GJgny+0WP82Bm7cpetQMMFJ1NIl1FKJi6LRW0wYqBFXWb +BUxWUfBjBUno2DJQ7PLfazXEKRiZ0HHZfoKBfxcZmH1aTUFf+bEpqwsMXGtf +IMVQpOD57kfC4f9jYHmr9eiQOgV1Ff8UXctnoLLbSET8OgpqNBrN4+4yMO/k +EW8dTQqeiH5ISi1l4BvD9i1nN1Fwr+cvpYcvGBhZ6Z7yry4FSa420DfJwK3t +51iPDSlIfHu878ssAxeKF/9WMaIg3sQrZHiegTm9qmvjd1EQtSG84ecyJlay +FsQd2UvBpV9FFivkmNjpXHO7xpQC16uLTrENmCi++C+5T9YUHJ9bIaq3m4nl +pYblEjYUOHlIFRvuYyK3s7PU0JYCOzON36ZWTHzz0OxtylEKzKUtw0+4M/Gb +u/NLaScK2Fxe+o0bTNxQo/TBzZ2CHgVu2o5kJvYf0lY46EGB/4281B9pTHy0 +oHYb+xQFj4JyUkzzmHih+YT6/GkKNA+l3xR+zER2td1jWx8KWl6kJlY8ZeK+ +fz7JrvOl4JT+7RtutUwkb4g4zdEuUE+Kf/6SifM7r/KizlKgsig+JvQDEwXv +fFWIPEdBvX9s9KZ+Jt7NKnqmf57+n7GYqE+DTMyN8bD4STu751qk3g8mPq37 +rXvoIgUK98LC/ywm0GZHrcJEIAWVSqFhlCCBzz5kqMUGUWBz+3Ko9UoCkxze +q6hfoiA5POhy2WoCtb2qvlsHUyBuey7QV5VAc8fx1wkhFDxs8wsg1xPY71N4 +UiaU3q9dZy+2bSLwYrX1TBrt2E0+5zWBwPSphpHbYRQsF/I4O7KfwMgXhvY+ +ERTwgk6euX2QwBLvwryPtHdNu/ruOUxgYmzhV+MrFIT3HffOdyBQy/b1AZmr +FAiU2p9yOkOgxrjNaGwkBVnqRz3EzhPoVqAm9JW2Xrate00ggWSgNYt9jYKA +aGs3xhUCO28ZHuiiLbfosGtLFIF6ubquzCgKHvtbugTGERhiMR/oQnvW8eDx +3hQCt4NLwSjtWz3mztcy6Hi+76lTi6Zg834zJ3YOgUO6vn3HaXc82+84lE8g +3/xlvgzavux9Dkl3CfwQL8lopy12z/iY0QMCsxqaDZfGUPBAaa/9zxICRfv3 +emrTHhfZZXewisC7ElKdkbQ73RjNLnUE/rozpFZM++mzWQhoJNC6ZljgDe1c +hda7cS0EOrwdPfKHdow/Vz63nUAh/iod2esUnG0Ljn7cQ6DZp423NtO2U7ee +b35PYNPL1Rf20d4ZvtHj82cCDxfo9TvQXtcn9G5mkECu0KXXPrQl2Z+NhccI +/LKSuzuYNt+NiieMSQJ3Blw3ukZ7YDRBXXuWwEcly5rjaDcZuafunifQpWzg +3Q3axVkGwnYCJPrLCvj/59Q5uYvey0i8LK6ZFks71GJ6OFyYxB0+Rvuu0nYv +ajpyW5RErWzFqEDaBwVzXxRJkiifG2vpSXurYyDnmSyJlfI+9+1osyoPUd0M +Em31M1N2016+er3sqBKJpz9NiG2g/cNz2TV+NRKVT25XkKD9pvHDbwlNEmXe +uz+epverhlXmpqpNYnOH8VAbbV5g7Btkk+gQ+pQqoB3f7bLnwDYSVR6mC4TQ +Pr9R//EJA5Ku98YxC9oOUdKqF3eTOJnH8FKivXtgIjl2H4lfvwdGTtDnranX +KHjnAInS/zzjPKYtlZJ9rtyKxOcNrWFBtAdNDhz+5EDi+sO1XxfQfpWn1vDz +BInPNrrxV9D5Vsa/WHe5B4kNEzal3rQjHhVLafmR+F7x/tx/+Xvq7+gruy6S +eDSg51oY7UOuzrM2wSS6p76tWE9bWV6yO+waiU56/AvO0/Ww0m/MKCWWxFC9 +72IytH++qi8tTKS/N7P/ZQldT/Whfre6Mkh8UMynNkDXm/NI96G1xSQa9YSW +y9H1aLzzfj2Uk/iPyLFF2eEUaGVe3Wz+lMS2lp8zJO3FB9mSF56TWNsy3y9P +13dOxe2Ol70ktn+wHxy6TPdnCV/Djx9JFA4eyTpI2/e08aPpARJbuWkrntD9 +ZAc5f0NhgsSWTs0FwXS/+RRpd9BzCQurnM87fw6g82NQlbFOiIVkYfmtbbSn +DWeGh1eysL47eTyJ7md/8ceGnJBi4bdtlmI7LtD57Ff9wE6NhSYnE/XO+FNw +wZElamLGwj/qHz+aedPxVn/vFTrEwoyjq19e8qLrR6Ey/7k1C11CwwYLPP/r +lxZ6Bk4sPPV5a8Ufun8/3x9xmuPHwrLWhPfnT9L9b+u3prVpLLSSnmudcKQg +Pbkk+WsWC1tM/PWmHOj+PHPZ+U4uC3/dVxqbPEbPiwey84x7LAwaOyI0TM+T +Y2tM1KVqWdiUcMi27AgFheL3IpcOsVDg7n2VV+YUGI2eMfqspYT1Y7wNv5EC +mfVyoUvZSpgwy7h9Feh57FlTtXabEvL96RyU2Ern69RKtuduJXyvcVJbiZ6f +vXN56vO2SniqXPmBAj1fPYXeiK6OUEKdw6MbA5Xp+aqCvXt6lLCsR0NzRogC +N9d+qVPvlVD80U5jJUEKgIq0iPushBKJ9z1Nl9Hnsa6ruWtUCa9MynSlLaJA +fbNntZOAMr59ksmW+MODaoPs3EA1ZYzP6bX3G+HBt2NLvR4EKKOKWqq96Av6 +PpW6vaLysjLe6fL4M/KcB6NdgUsaIpRRaILdV1fPg+8mM8kf4pRxn7pZ6Oka +HkzrDtYI5yoja/MOu+xyHixc1Sh+olkZ109/sYrI48HqmugyWUUVxGdFZw7R +9ykDQmJhWJUKDpvsTNyjwYOv9oa5unUquDp6lHNflQeRGWeMxxpUUNCmtU5i +DQ9a5TqTLF+roPK6TRHdBA/sVt/aoDqggiLDeW8N6Puin7C0Y8vyNaj+QDK3 +XIAHvJ9y9dKWazAhJD1dppMLIi9YUYWja7AnaLf/xFkuyITf3aelpYr4dOv0 +zev5cHOtzkpRZzXs0DlsfCI1D55Lbds0cV0dQ+v9ZKikXNgiUxWj0a6B3Z/u +KqacvAPC/JneRy+tw5v1pkKlBjkgFyTPtmStR/GO579O/s6GZaR1sWndenxD +VllnFGWBOmf13TNHNNHsteD1Bv9M8OwVqd7FtwGHdvnkl6/JgNGJyANGNzeg +pdika9PXNDDUeJZkpLYR72xz6Dlz4zY8mdD9Nf1yI87JcrLuM5LBXVWzu8Vx +ExpZNIu1DN8EzohDm+UyLfyWq5mSmHUDdhCSe5dnamFb3YU+dnI8KAdeOVul +rY1FhVnj60piYY2jTiXZrY0KdbduDjbEgOOT45cfnN6Mekl1w4OcKKhMb3MY +F9PBmqS5ozvfXYEfufPTGo90kLk3bqinNQyOkdxlSXu3oGBpUd/CzSEwviZO +697YFtR3MetJz7wEJdm/PkyG6+LFqIamgdOBYLWdibpybDQnVYIn586D9Mmw +UvWnbHS+5Vo9re4HYn+5Fe214GCsf7+VLJ8vZOtf8B+z5GBujkIy9d0HNC9E +6cdZc9Dp2Jug7Z99wHis8HXnUQ4GfDHfEvrcB0LbJ2eOuXHwR3qOtGWCD/zM +DNDzD+Lgy26iaouqD3TrxrXmcDnYticsr9fGG477ZKcYFdDvt2slgqk3TBU8 +dPxWyMFPIgu/5OzwBhFG5/T6Yg6SohbZ4aresHuprEzFUw66FPRb3pz1gsdt +OQ6tr+nvJZc39Sd6wS7hEjXfTg4uHk94y7vqBZ2G/05J9nCQe2X9Wr8AL/hR +NhRu856DwnyrLhDOXqCWsY76OsjBOIlDlbVa9Hrd23wjhzlYsWhFdMUaer1V +ZqAxxsEB/QPXyuW8wCnMp8V7krb2lNDzxfR6T0OTJH5ykFASuNI96wmXZhOP +lc1y8Er3ErXxEU9YuTFP9cgcB8O+dE8s/+gJqSfLJufnOVj14eCbdR2e8H9V +FnNw "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -12836,115 +13754,115 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL -FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg -ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX -BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ -e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL -i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx -lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK -ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR -PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU -6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj -7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ -b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 -uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr -tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY -sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ -FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl -UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN -L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk -3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz -SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt -KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y -9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS -GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS -cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR -kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 -tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 -SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj -Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw -KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx -jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB -dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 -PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm -syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet -/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 -XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx -pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT -fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L -Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm -lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl -xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 -SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs -ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B -Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y -xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK -8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS -k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI -fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M -aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF -hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt -GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi -mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm -LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF -5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF -V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu -DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL -mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl -9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ -04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 -Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv -CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ -Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f -hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo -+ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X -hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l -Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw -qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U -eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi -4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN -ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX -B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M -5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 -cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj -66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 -VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US -FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh -kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 -2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca -+FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG -E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O -x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy -+x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 -2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak -vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo -d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC -Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd -sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj -Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr -ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== +1:eJwV1mk8VVsbAHBF0yV1yZDZOXsflKFUJOf0PFGkgUKJhGQoRJmKBiRTCRlS +yPwK52zRIEPSNcSNQmQslUoiU0KUvPt+2r//h732s9d6hqVo72HquJCPj2/B +Aj6+/55Tvf/WEFezt2rLLL3D36G9tS1V0m9b5yVYOdvdZtErBijWZC/ZGQuB +i08FsnpJ8N2X38HfmQlfXYdXLO3dBH+PSMTOdNwD2/PpTz683QHvHht7/Oio +gkHLtRs83x4AA2Lw7XjHK2icap+s73GEmQ7thLGOPuCzHKM0XvtAtf6d7JbM +CXhWqbyjJCMUZN6V9turzkGpKd+LKF4MrHKzzV+iz48OfVYm7bUJELveoNz4 +wFJ8UZAp9EM0Gbpurns6vnI5Rqd5alrVpsHV7ICmhav/RvOFJhuT9TNBIv5j +RNxtUSw12aB9/kQ2hJkbbX01JYbNzvt6/XVzwEsnw/bfS5Lo4QOxP+buwPbR +WX/3j1Joctf9nIdbHvjtjF/zzzcp7P8zKph5Og8KMtS6Raek0OvoqyMtvnkg +aW6nU7pUGh0TgrezgvLgW0ntNL+6NIq6bBXLS8iDuEsx3rfOSmOXeXiwyJM8 +6BNjudcsl8Gs3fX3PIXyIYi9/6jUZlns0Cu5fjgtH3bapH7X1pPFX6VBOdLZ ++SAcOBR8YI8syj9u7ezIzYeU6pCcGDtZTAizT9h+Lx9KdpUNLY6QxU7jxBOj +NfkwdojpO9Eli/Zx/1pf+ZoPNj6TVxrPyWEtH8a2aXCBTNSTGQyRwxsvB1ZJ +buTS8UZTS2LkUKvCqchiMxf8f6s062XL4XaNPO0G5EJCsI1YaaMcxn8bPhO8 +nwuN1+vS/icrj00p6ZWbPbmwpeDWg4uV8rjSLMO6uJAL2ztezo3Uy+MPkYGL +7AdcMOYTMLR9JY9eHeLsykdcOGbq3gWf5TF/5nBY2RMuGJxTDAhcpIB5h6ft +wxu5cEp+KmvbWgXsSwd20Bcu1DinDVf7KmB0SN3SASkeGP3WETl/TgH3CTRz +F8jx4GVMm9bGQAX0HLj8TUKRB12lywKzIxRwi6if4RYlHowIeouEpCigt565 +88ENPJAs3KltUKWAP7/v9Pi2iwduP8cD65croqCxxLOYMzzYctpJvF9EEV+B +fvsZfx4sHezm8ksq4hL8/N3qAg/+11PdvpWhiNcT00zFgnnQ+yRB9aGWIvbo +8e5bRfHAJESnM8NWEbvV5tjK2TzQFAnSOFekiI/6hDOaG3nAd3Wy5maxIjbK +GbfrNNHx87tYFZcrolavMSOthQeuk6Yh47WKmCwqyWfTzoPsTqLHuVsRf6+K +fst7xwPxtPpQc34GJgny+0WP82Bm7cpetQMMFJ1NIl1FKJi6LRW0wYqBFXWb +BUxWUfBjBUno2DJQ7PLfazXEKRiZ0HHZfoKBfxcZmH1aTUFf+bEpqwsMXGtf +IMVQpOD57kfC4f9jYHmr9eiQOgV1Ff8UXctnoLLbSET8OgpqNBrN4+4yMO/k +EW8dTQqeiH5ISi1l4BvD9i1nN1Fwr+cvpYcvGBhZ6Z7yry4FSa420DfJwK3t +51iPDSlIfHu878ssAxeKF/9WMaIg3sQrZHiegTm9qmvjd1EQtSG84ecyJlay +FsQd2UvBpV9FFivkmNjpXHO7xpQC16uLTrENmCi++C+5T9YUHJ9bIaq3m4nl +pYblEjYUOHlIFRvuYyK3s7PU0JYCOzON36ZWTHzz0OxtylEKzKUtw0+4M/Gb +u/NLaScK2Fxe+o0bTNxQo/TBzZ2CHgVu2o5kJvYf0lY46EGB/4281B9pTHy0 +oHYb+xQFj4JyUkzzmHih+YT6/GkKNA+l3xR+zER2td1jWx8KWl6kJlY8ZeK+ +fz7JrvOl4JT+7RtutUwkb4g4zdEuUE+Kf/6SifM7r/KizlKgsig+JvQDEwXv +fFWIPEdBvX9s9KZ+Jt7NKnqmf57+n7GYqE+DTMyN8bD4STu751qk3g8mPq37 +rXvoIgUK98LC/ywm0GZHrcJEIAWVSqFhlCCBzz5kqMUGUWBz+3Ko9UoCkxze +q6hfoiA5POhy2WoCtb2qvlsHUyBuey7QV5VAc8fx1wkhFDxs8wsg1xPY71N4 +UiaU3q9dZy+2bSLwYrX1TBrt2E0+5zWBwPSphpHbYRQsF/I4O7KfwMgXhvY+ +ERTwgk6euX2QwBLvwryPtHdNu/ruOUxgYmzhV+MrFIT3HffOdyBQy/b1AZmr +FAiU2p9yOkOgxrjNaGwkBVnqRz3EzhPoVqAm9JW2Xrate00ggWSgNYt9jYKA +aGs3xhUCO28ZHuiiLbfosGtLFIF6ubquzCgKHvtbugTGERhiMR/oQnvW8eDx +3hQCt4NLwSjtWz3mztcy6Hi+76lTi6Zg834zJ3YOgUO6vn3HaXc82+84lE8g +3/xlvgzavux9Dkl3CfwQL8lopy12z/iY0QMCsxqaDZfGUPBAaa/9zxICRfv3 +emrTHhfZZXewisC7ElKdkbQ73RjNLnUE/rozpFZM++mzWQhoJNC6ZljgDe1c +hda7cS0EOrwdPfKHdow/Vz63nUAh/iod2esUnG0Ljn7cQ6DZp423NtO2U7ee +b35PYNPL1Rf20d4ZvtHj82cCDxfo9TvQXtcn9G5mkECu0KXXPrQl2Z+NhccI +/LKSuzuYNt+NiieMSQJ3Blw3ukZ7YDRBXXuWwEcly5rjaDcZuafunifQpWzg +3Q3axVkGwnYCJPrLCvj/59Q5uYvey0i8LK6ZFks71GJ6OFyYxB0+Rvuu0nYv +ajpyW5RErWzFqEDaBwVzXxRJkiifG2vpSXurYyDnmSyJlfI+9+1osyoPUd0M +Em31M1N2016+er3sqBKJpz9NiG2g/cNz2TV+NRKVT25XkKD9pvHDbwlNEmXe +uz+epverhlXmpqpNYnOH8VAbbV5g7Btkk+gQ+pQqoB3f7bLnwDYSVR6mC4TQ +Pr9R//EJA5Ku98YxC9oOUdKqF3eTOJnH8FKivXtgIjl2H4lfvwdGTtDnranX +KHjnAInS/zzjPKYtlZJ9rtyKxOcNrWFBtAdNDhz+5EDi+sO1XxfQfpWn1vDz +BInPNrrxV9D5Vsa/WHe5B4kNEzal3rQjHhVLafmR+F7x/tx/+Xvq7+gruy6S +eDSg51oY7UOuzrM2wSS6p76tWE9bWV6yO+waiU56/AvO0/Ww0m/MKCWWxFC9 +72IytH++qi8tTKS/N7P/ZQldT/Whfre6Mkh8UMynNkDXm/NI96G1xSQa9YSW +y9H1aLzzfj2Uk/iPyLFF2eEUaGVe3Wz+lMS2lp8zJO3FB9mSF56TWNsy3y9P +13dOxe2Ol70ktn+wHxy6TPdnCV/Djx9JFA4eyTpI2/e08aPpARJbuWkrntD9 +ZAc5f0NhgsSWTs0FwXS/+RRpd9BzCQurnM87fw6g82NQlbFOiIVkYfmtbbSn +DWeGh1eysL47eTyJ7md/8ceGnJBi4bdtlmI7LtD57Ff9wE6NhSYnE/XO+FNw +wZElamLGwj/qHz+aedPxVn/vFTrEwoyjq19e8qLrR6Ey/7k1C11CwwYLPP/r +lxZ6Bk4sPPV5a8Ufun8/3x9xmuPHwrLWhPfnT9L9b+u3prVpLLSSnmudcKQg +Pbkk+WsWC1tM/PWmHOj+PHPZ+U4uC3/dVxqbPEbPiwey84x7LAwaOyI0TM+T +Y2tM1KVqWdiUcMi27AgFheL3IpcOsVDg7n2VV+YUGI2eMfqspYT1Y7wNv5EC +mfVyoUvZSpgwy7h9Feh57FlTtXabEvL96RyU2Ern69RKtuduJXyvcVJbiZ6f +vXN56vO2SniqXPmBAj1fPYXeiK6OUEKdw6MbA5Xp+aqCvXt6lLCsR0NzRogC +N9d+qVPvlVD80U5jJUEKgIq0iPushBKJ9z1Nl9Hnsa6ruWtUCa9MynSlLaJA +fbNntZOAMr59ksmW+MODaoPs3EA1ZYzP6bX3G+HBt2NLvR4EKKOKWqq96Av6 +PpW6vaLysjLe6fL4M/KcB6NdgUsaIpRRaILdV1fPg+8mM8kf4pRxn7pZ6Oka +HkzrDtYI5yoja/MOu+xyHixc1Sh+olkZ109/sYrI48HqmugyWUUVxGdFZw7R +9ykDQmJhWJUKDpvsTNyjwYOv9oa5unUquDp6lHNflQeRGWeMxxpUUNCmtU5i +DQ9a5TqTLF+roPK6TRHdBA/sVt/aoDqggiLDeW8N6Puin7C0Y8vyNaj+QDK3 +XIAHvJ9y9dKWazAhJD1dppMLIi9YUYWja7AnaLf/xFkuyITf3aelpYr4dOv0 +zev5cHOtzkpRZzXs0DlsfCI1D55Lbds0cV0dQ+v9ZKikXNgiUxWj0a6B3Z/u +KqacvAPC/JneRy+tw5v1pkKlBjkgFyTPtmStR/GO579O/s6GZaR1sWndenxD +VllnFGWBOmf13TNHNNHsteD1Bv9M8OwVqd7FtwGHdvnkl6/JgNGJyANGNzeg +pdika9PXNDDUeJZkpLYR72xz6Dlz4zY8mdD9Nf1yI87JcrLuM5LBXVWzu8Vx +ExpZNIu1DN8EzohDm+UyLfyWq5mSmHUDdhCSe5dnamFb3YU+dnI8KAdeOVul +rY1FhVnj60piYY2jTiXZrY0KdbduDjbEgOOT45cfnN6Mekl1w4OcKKhMb3MY +F9PBmqS5ozvfXYEfufPTGo90kLk3bqinNQyOkdxlSXu3oGBpUd/CzSEwviZO +697YFtR3MetJz7wEJdm/PkyG6+LFqIamgdOBYLWdibpybDQnVYIn586D9Mmw +UvWnbHS+5Vo9re4HYn+5Fe214GCsf7+VLJ8vZOtf8B+z5GBujkIy9d0HNC9E +6cdZc9Dp2Jug7Z99wHis8HXnUQ4GfDHfEvrcB0LbJ2eOuXHwR3qOtGWCD/zM +DNDzD+Lgy26iaouqD3TrxrXmcDnYticsr9fGG477ZKcYFdDvt2slgqk3TBU8 +dPxWyMFPIgu/5OzwBhFG5/T6Yg6SohbZ4aresHuprEzFUw66FPRb3pz1gsdt +OQ6tr+nvJZc39Sd6wS7hEjXfTg4uHk94y7vqBZ2G/05J9nCQe2X9Wr8AL/hR +NhRu856DwnyrLhDOXqCWsY76OsjBOIlDlbVa9Hrd23wjhzlYsWhFdMUaer1V +ZqAxxsEB/QPXyuW8wCnMp8V7krb2lNDzxfR6T0OTJH5ykFASuNI96wmXZhOP +lc1y8Er3ErXxEU9YuTFP9cgcB8O+dE8s/+gJqSfLJufnOVj14eCbdR2e8H9V +FnNw "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "PlotRange" -> {{0, 30}, {0., 0.057751383621838695`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -12956,19 +13874,19 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "PlotRange" -> {{0, 30}, {0., 0.057751383621838695`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -12982,114 +13900,114 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL -FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg -ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX -BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ -e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL -i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx -lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK -ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR -PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU -6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj -7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ -b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 -uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr -tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY -sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ -FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl -UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN -L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk -3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz -SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt -KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y -9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS -GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS -cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR -kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 -tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 -SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj -Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw -KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx -jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB -dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 -PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm -syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet -/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 -XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx -pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT -fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L -Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm -lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl -xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 -SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs -ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B -Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y -xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK -8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS -k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI -fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M -aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF -hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt -GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi -mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm -LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF -5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF -V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu -DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL -mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl -9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ -04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 -Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv -CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ -Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f -hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo -+ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X -hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l -Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw -qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U -eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi -4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN -ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX -B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M -5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 -cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj -66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 -VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US -FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh -kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 -2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca -+FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG -E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O -x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy -+x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 -2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak -vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo -d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC -Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd -sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj -Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr -ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== +1:eJwV1mk8VVsbAHBF0yV1yZDZOXsflKFUJOf0PFGkgUKJhGQoRJmKBiRTCRlS +yPwK52zRIEPSNcSNQmQslUoiU0KUvPt+2r//h732s9d6hqVo72HquJCPj2/B +Aj6+/55Tvf/WEFezt2rLLL3D36G9tS1V0m9b5yVYOdvdZtErBijWZC/ZGQuB +i08FsnpJ8N2X38HfmQlfXYdXLO3dBH+PSMTOdNwD2/PpTz683QHvHht7/Oio +gkHLtRs83x4AA2Lw7XjHK2icap+s73GEmQ7thLGOPuCzHKM0XvtAtf6d7JbM +CXhWqbyjJCMUZN6V9turzkGpKd+LKF4MrHKzzV+iz48OfVYm7bUJELveoNz4 +wFJ8UZAp9EM0Gbpurns6vnI5Rqd5alrVpsHV7ICmhav/RvOFJhuT9TNBIv5j +RNxtUSw12aB9/kQ2hJkbbX01JYbNzvt6/XVzwEsnw/bfS5Lo4QOxP+buwPbR +WX/3j1Joctf9nIdbHvjtjF/zzzcp7P8zKph5Og8KMtS6Raek0OvoqyMtvnkg +aW6nU7pUGh0TgrezgvLgW0ntNL+6NIq6bBXLS8iDuEsx3rfOSmOXeXiwyJM8 +6BNjudcsl8Gs3fX3PIXyIYi9/6jUZlns0Cu5fjgtH3bapH7X1pPFX6VBOdLZ ++SAcOBR8YI8syj9u7ezIzYeU6pCcGDtZTAizT9h+Lx9KdpUNLY6QxU7jxBOj +NfkwdojpO9Eli/Zx/1pf+ZoPNj6TVxrPyWEtH8a2aXCBTNSTGQyRwxsvB1ZJ +buTS8UZTS2LkUKvCqchiMxf8f6s062XL4XaNPO0G5EJCsI1YaaMcxn8bPhO8 +nwuN1+vS/icrj00p6ZWbPbmwpeDWg4uV8rjSLMO6uJAL2ztezo3Uy+MPkYGL +7AdcMOYTMLR9JY9eHeLsykdcOGbq3gWf5TF/5nBY2RMuGJxTDAhcpIB5h6ft +wxu5cEp+KmvbWgXsSwd20Bcu1DinDVf7KmB0SN3SASkeGP3WETl/TgH3CTRz +F8jx4GVMm9bGQAX0HLj8TUKRB12lywKzIxRwi6if4RYlHowIeouEpCigt565 +88ENPJAs3KltUKWAP7/v9Pi2iwduP8cD65croqCxxLOYMzzYctpJvF9EEV+B +fvsZfx4sHezm8ksq4hL8/N3qAg/+11PdvpWhiNcT00zFgnnQ+yRB9aGWIvbo +8e5bRfHAJESnM8NWEbvV5tjK2TzQFAnSOFekiI/6hDOaG3nAd3Wy5maxIjbK +GbfrNNHx87tYFZcrolavMSOthQeuk6Yh47WKmCwqyWfTzoPsTqLHuVsRf6+K +fst7xwPxtPpQc34GJgny+0WP82Bm7cpetQMMFJ1NIl1FKJi6LRW0wYqBFXWb +BUxWUfBjBUno2DJQ7PLfazXEKRiZ0HHZfoKBfxcZmH1aTUFf+bEpqwsMXGtf +IMVQpOD57kfC4f9jYHmr9eiQOgV1Ff8UXctnoLLbSET8OgpqNBrN4+4yMO/k +EW8dTQqeiH5ISi1l4BvD9i1nN1Fwr+cvpYcvGBhZ6Z7yry4FSa420DfJwK3t +51iPDSlIfHu878ssAxeKF/9WMaIg3sQrZHiegTm9qmvjd1EQtSG84ecyJlay +FsQd2UvBpV9FFivkmNjpXHO7xpQC16uLTrENmCi++C+5T9YUHJ9bIaq3m4nl +pYblEjYUOHlIFRvuYyK3s7PU0JYCOzON36ZWTHzz0OxtylEKzKUtw0+4M/Gb +u/NLaScK2Fxe+o0bTNxQo/TBzZ2CHgVu2o5kJvYf0lY46EGB/4281B9pTHy0 +oHYb+xQFj4JyUkzzmHih+YT6/GkKNA+l3xR+zER2td1jWx8KWl6kJlY8ZeK+ +fz7JrvOl4JT+7RtutUwkb4g4zdEuUE+Kf/6SifM7r/KizlKgsig+JvQDEwXv +fFWIPEdBvX9s9KZ+Jt7NKnqmf57+n7GYqE+DTMyN8bD4STu751qk3g8mPq37 +rXvoIgUK98LC/ywm0GZHrcJEIAWVSqFhlCCBzz5kqMUGUWBz+3Ko9UoCkxze +q6hfoiA5POhy2WoCtb2qvlsHUyBuey7QV5VAc8fx1wkhFDxs8wsg1xPY71N4 +UiaU3q9dZy+2bSLwYrX1TBrt2E0+5zWBwPSphpHbYRQsF/I4O7KfwMgXhvY+ +ERTwgk6euX2QwBLvwryPtHdNu/ruOUxgYmzhV+MrFIT3HffOdyBQy/b1AZmr +FAiU2p9yOkOgxrjNaGwkBVnqRz3EzhPoVqAm9JW2Xrate00ggWSgNYt9jYKA +aGs3xhUCO28ZHuiiLbfosGtLFIF6ubquzCgKHvtbugTGERhiMR/oQnvW8eDx +3hQCt4NLwSjtWz3mztcy6Hi+76lTi6Zg834zJ3YOgUO6vn3HaXc82+84lE8g +3/xlvgzavux9Dkl3CfwQL8lopy12z/iY0QMCsxqaDZfGUPBAaa/9zxICRfv3 +emrTHhfZZXewisC7ElKdkbQ73RjNLnUE/rozpFZM++mzWQhoJNC6ZljgDe1c +hda7cS0EOrwdPfKHdow/Vz63nUAh/iod2esUnG0Ljn7cQ6DZp423NtO2U7ee +b35PYNPL1Rf20d4ZvtHj82cCDxfo9TvQXtcn9G5mkECu0KXXPrQl2Z+NhccI +/LKSuzuYNt+NiieMSQJ3Blw3ukZ7YDRBXXuWwEcly5rjaDcZuafunifQpWzg +3Q3axVkGwnYCJPrLCvj/59Q5uYvey0i8LK6ZFks71GJ6OFyYxB0+Rvuu0nYv +ajpyW5RErWzFqEDaBwVzXxRJkiifG2vpSXurYyDnmSyJlfI+9+1osyoPUd0M +Em31M1N2016+er3sqBKJpz9NiG2g/cNz2TV+NRKVT25XkKD9pvHDbwlNEmXe +uz+epverhlXmpqpNYnOH8VAbbV5g7Btkk+gQ+pQqoB3f7bLnwDYSVR6mC4TQ +Pr9R//EJA5Ku98YxC9oOUdKqF3eTOJnH8FKivXtgIjl2H4lfvwdGTtDnranX +KHjnAInS/zzjPKYtlZJ9rtyKxOcNrWFBtAdNDhz+5EDi+sO1XxfQfpWn1vDz +BInPNrrxV9D5Vsa/WHe5B4kNEzal3rQjHhVLafmR+F7x/tx/+Xvq7+gruy6S +eDSg51oY7UOuzrM2wSS6p76tWE9bWV6yO+waiU56/AvO0/Ww0m/MKCWWxFC9 +72IytH++qi8tTKS/N7P/ZQldT/Whfre6Mkh8UMynNkDXm/NI96G1xSQa9YSW +y9H1aLzzfj2Uk/iPyLFF2eEUaGVe3Wz+lMS2lp8zJO3FB9mSF56TWNsy3y9P +13dOxe2Ol70ktn+wHxy6TPdnCV/Djx9JFA4eyTpI2/e08aPpARJbuWkrntD9 +ZAc5f0NhgsSWTs0FwXS/+RRpd9BzCQurnM87fw6g82NQlbFOiIVkYfmtbbSn +DWeGh1eysL47eTyJ7md/8ceGnJBi4bdtlmI7LtD57Ff9wE6NhSYnE/XO+FNw +wZElamLGwj/qHz+aedPxVn/vFTrEwoyjq19e8qLrR6Ey/7k1C11CwwYLPP/r +lxZ6Bk4sPPV5a8Ufun8/3x9xmuPHwrLWhPfnT9L9b+u3prVpLLSSnmudcKQg +Pbkk+WsWC1tM/PWmHOj+PHPZ+U4uC3/dVxqbPEbPiwey84x7LAwaOyI0TM+T +Y2tM1KVqWdiUcMi27AgFheL3IpcOsVDg7n2VV+YUGI2eMfqspYT1Y7wNv5EC +mfVyoUvZSpgwy7h9Feh57FlTtXabEvL96RyU2Ern69RKtuduJXyvcVJbiZ6f +vXN56vO2SniqXPmBAj1fPYXeiK6OUEKdw6MbA5Xp+aqCvXt6lLCsR0NzRogC +N9d+qVPvlVD80U5jJUEKgIq0iPushBKJ9z1Nl9Hnsa6ruWtUCa9MynSlLaJA +fbNntZOAMr59ksmW+MODaoPs3EA1ZYzP6bX3G+HBt2NLvR4EKKOKWqq96Av6 +PpW6vaLysjLe6fL4M/KcB6NdgUsaIpRRaILdV1fPg+8mM8kf4pRxn7pZ6Oka +HkzrDtYI5yoja/MOu+xyHixc1Sh+olkZ109/sYrI48HqmugyWUUVxGdFZw7R +9ykDQmJhWJUKDpvsTNyjwYOv9oa5unUquDp6lHNflQeRGWeMxxpUUNCmtU5i +DQ9a5TqTLF+roPK6TRHdBA/sVt/aoDqggiLDeW8N6Puin7C0Y8vyNaj+QDK3 +XIAHvJ9y9dKWazAhJD1dppMLIi9YUYWja7AnaLf/xFkuyITf3aelpYr4dOv0 +zev5cHOtzkpRZzXs0DlsfCI1D55Lbds0cV0dQ+v9ZKikXNgiUxWj0a6B3Z/u +KqacvAPC/JneRy+tw5v1pkKlBjkgFyTPtmStR/GO579O/s6GZaR1sWndenxD +VllnFGWBOmf13TNHNNHsteD1Bv9M8OwVqd7FtwGHdvnkl6/JgNGJyANGNzeg +pdika9PXNDDUeJZkpLYR72xz6Dlz4zY8mdD9Nf1yI87JcrLuM5LBXVWzu8Vx +ExpZNIu1DN8EzohDm+UyLfyWq5mSmHUDdhCSe5dnamFb3YU+dnI8KAdeOVul +rY1FhVnj60piYY2jTiXZrY0KdbduDjbEgOOT45cfnN6Mekl1w4OcKKhMb3MY +F9PBmqS5ozvfXYEfufPTGo90kLk3bqinNQyOkdxlSXu3oGBpUd/CzSEwviZO +697YFtR3MetJz7wEJdm/PkyG6+LFqIamgdOBYLWdibpybDQnVYIn586D9Mmw +UvWnbHS+5Vo9re4HYn+5Fe214GCsf7+VLJ8vZOtf8B+z5GBujkIy9d0HNC9E +6cdZc9Dp2Jug7Z99wHis8HXnUQ4GfDHfEvrcB0LbJ2eOuXHwR3qOtGWCD/zM +DNDzD+Lgy26iaouqD3TrxrXmcDnYticsr9fGG477ZKcYFdDvt2slgqk3TBU8 +dPxWyMFPIgu/5OzwBhFG5/T6Yg6SohbZ4aresHuprEzFUw66FPRb3pz1gsdt +OQ6tr+nvJZc39Sd6wS7hEjXfTg4uHk94y7vqBZ2G/05J9nCQe2X9Wr8AL/hR +NhRu856DwnyrLhDOXqCWsY76OsjBOIlDlbVa9Hrd23wjhzlYsWhFdMUaer1V +ZqAxxsEB/QPXyuW8wCnMp8V7krb2lNDzxfR6T0OTJH5ykFASuNI96wmXZhOP +lc1y8Er3ErXxEU9YuTFP9cgcB8O+dE8s/+gJqSfLJufnOVj14eCbdR2e8H9V +FnNw "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "PlotRange" -> {{0, 30}, {0., 0.057751383621838695`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13100,6 +14018,7 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -13127,7 +14046,8 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.12141098789525176`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.057751383621838695`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -13135,17 +14055,565 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913429049348164`*^9}, + CellChangeTimes->{3.9913429049348164`*^9, 3.9942605372076*^9}, CellLabel-> - "Out[387]=",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] + "Out[140]=",ExpressionUUID->"1a2eca2c-fca9-4f8e-8572-598ca5d3eb15"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"b530b35f-2a32-0145-82a7-\ -25a7a01bdd8f"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1mk8VVsbAHBF0yV1yZDZOXsflKFUJOf0PFGkgUKJhGQoRJmKBiRTCRlS +yPwK52zRIEPSNcSNQmQslUoiU0KUvPt+2r//h732s9d6hqVo72HquJCPj2/B +Aj6+/55Tvf/WEFezt2rLLL3D36G9tS1V0m9b5yVYOdvdZtErBijWZC/ZGQuB +i08FsnpJ8N2X38HfmQlfXYdXLO3dBH+PSMTOdNwD2/PpTz683QHvHht7/Oio +gkHLtRs83x4AA2Lw7XjHK2icap+s73GEmQ7thLGOPuCzHKM0XvtAtf6d7JbM +CXhWqbyjJCMUZN6V9turzkGpKd+LKF4MrHKzzV+iz48OfVYm7bUJELveoNz4 +wFJ8UZAp9EM0Gbpurns6vnI5Rqd5alrVpsHV7ICmhav/RvOFJhuT9TNBIv5j +RNxtUSw12aB9/kQ2hJkbbX01JYbNzvt6/XVzwEsnw/bfS5Lo4QOxP+buwPbR +WX/3j1Joctf9nIdbHvjtjF/zzzcp7P8zKph5Og8KMtS6Raek0OvoqyMtvnkg +aW6nU7pUGh0TgrezgvLgW0ntNL+6NIq6bBXLS8iDuEsx3rfOSmOXeXiwyJM8 +6BNjudcsl8Gs3fX3PIXyIYi9/6jUZlns0Cu5fjgtH3bapH7X1pPFX6VBOdLZ ++SAcOBR8YI8syj9u7ezIzYeU6pCcGDtZTAizT9h+Lx9KdpUNLY6QxU7jxBOj +NfkwdojpO9Eli/Zx/1pf+ZoPNj6TVxrPyWEtH8a2aXCBTNSTGQyRwxsvB1ZJ +buTS8UZTS2LkUKvCqchiMxf8f6s062XL4XaNPO0G5EJCsI1YaaMcxn8bPhO8 +nwuN1+vS/icrj00p6ZWbPbmwpeDWg4uV8rjSLMO6uJAL2ztezo3Uy+MPkYGL +7AdcMOYTMLR9JY9eHeLsykdcOGbq3gWf5TF/5nBY2RMuGJxTDAhcpIB5h6ft +wxu5cEp+KmvbWgXsSwd20Bcu1DinDVf7KmB0SN3SASkeGP3WETl/TgH3CTRz +F8jx4GVMm9bGQAX0HLj8TUKRB12lywKzIxRwi6if4RYlHowIeouEpCigt565 +88ENPJAs3KltUKWAP7/v9Pi2iwduP8cD65croqCxxLOYMzzYctpJvF9EEV+B +fvsZfx4sHezm8ksq4hL8/N3qAg/+11PdvpWhiNcT00zFgnnQ+yRB9aGWIvbo +8e5bRfHAJESnM8NWEbvV5tjK2TzQFAnSOFekiI/6hDOaG3nAd3Wy5maxIjbK +GbfrNNHx87tYFZcrolavMSOthQeuk6Yh47WKmCwqyWfTzoPsTqLHuVsRf6+K +fst7xwPxtPpQc34GJgny+0WP82Bm7cpetQMMFJ1NIl1FKJi6LRW0wYqBFXWb +BUxWUfBjBUno2DJQ7PLfazXEKRiZ0HHZfoKBfxcZmH1aTUFf+bEpqwsMXGtf +IMVQpOD57kfC4f9jYHmr9eiQOgV1Ff8UXctnoLLbSET8OgpqNBrN4+4yMO/k +EW8dTQqeiH5ISi1l4BvD9i1nN1Fwr+cvpYcvGBhZ6Z7yry4FSa420DfJwK3t +51iPDSlIfHu878ssAxeKF/9WMaIg3sQrZHiegTm9qmvjd1EQtSG84ecyJlay +FsQd2UvBpV9FFivkmNjpXHO7xpQC16uLTrENmCi++C+5T9YUHJ9bIaq3m4nl +pYblEjYUOHlIFRvuYyK3s7PU0JYCOzON36ZWTHzz0OxtylEKzKUtw0+4M/Gb +u/NLaScK2Fxe+o0bTNxQo/TBzZ2CHgVu2o5kJvYf0lY46EGB/4281B9pTHy0 +oHYb+xQFj4JyUkzzmHih+YT6/GkKNA+l3xR+zER2td1jWx8KWl6kJlY8ZeK+ +fz7JrvOl4JT+7RtutUwkb4g4zdEuUE+Kf/6SifM7r/KizlKgsig+JvQDEwXv +fFWIPEdBvX9s9KZ+Jt7NKnqmf57+n7GYqE+DTMyN8bD4STu751qk3g8mPq37 +rXvoIgUK98LC/ywm0GZHrcJEIAWVSqFhlCCBzz5kqMUGUWBz+3Ko9UoCkxze +q6hfoiA5POhy2WoCtb2qvlsHUyBuey7QV5VAc8fx1wkhFDxs8wsg1xPY71N4 +UiaU3q9dZy+2bSLwYrX1TBrt2E0+5zWBwPSphpHbYRQsF/I4O7KfwMgXhvY+ +ERTwgk6euX2QwBLvwryPtHdNu/ruOUxgYmzhV+MrFIT3HffOdyBQy/b1AZmr +FAiU2p9yOkOgxrjNaGwkBVnqRz3EzhPoVqAm9JW2Xrate00ggWSgNYt9jYKA +aGs3xhUCO28ZHuiiLbfosGtLFIF6ubquzCgKHvtbugTGERhiMR/oQnvW8eDx +3hQCt4NLwSjtWz3mztcy6Hi+76lTi6Zg834zJ3YOgUO6vn3HaXc82+84lE8g +3/xlvgzavux9Dkl3CfwQL8lopy12z/iY0QMCsxqaDZfGUPBAaa/9zxICRfv3 +emrTHhfZZXewisC7ElKdkbQ73RjNLnUE/rozpFZM++mzWQhoJNC6ZljgDe1c +hda7cS0EOrwdPfKHdow/Vz63nUAh/iod2esUnG0Ljn7cQ6DZp423NtO2U7ee +b35PYNPL1Rf20d4ZvtHj82cCDxfo9TvQXtcn9G5mkECu0KXXPrQl2Z+NhccI +/LKSuzuYNt+NiieMSQJ3Blw3ukZ7YDRBXXuWwEcly5rjaDcZuafunifQpWzg +3Q3axVkGwnYCJPrLCvj/59Q5uYvey0i8LK6ZFks71GJ6OFyYxB0+Rvuu0nYv +ajpyW5RErWzFqEDaBwVzXxRJkiifG2vpSXurYyDnmSyJlfI+9+1osyoPUd0M +Em31M1N2016+er3sqBKJpz9NiG2g/cNz2TV+NRKVT25XkKD9pvHDbwlNEmXe +uz+epverhlXmpqpNYnOH8VAbbV5g7Btkk+gQ+pQqoB3f7bLnwDYSVR6mC4TQ +Pr9R//EJA5Ku98YxC9oOUdKqF3eTOJnH8FKivXtgIjl2H4lfvwdGTtDnranX +KHjnAInS/zzjPKYtlZJ9rtyKxOcNrWFBtAdNDhz+5EDi+sO1XxfQfpWn1vDz +BInPNrrxV9D5Vsa/WHe5B4kNEzal3rQjHhVLafmR+F7x/tx/+Xvq7+gruy6S +eDSg51oY7UOuzrM2wSS6p76tWE9bWV6yO+waiU56/AvO0/Ww0m/MKCWWxFC9 +72IytH++qi8tTKS/N7P/ZQldT/Whfre6Mkh8UMynNkDXm/NI96G1xSQa9YSW +y9H1aLzzfj2Uk/iPyLFF2eEUaGVe3Wz+lMS2lp8zJO3FB9mSF56TWNsy3y9P +13dOxe2Ol70ktn+wHxy6TPdnCV/Djx9JFA4eyTpI2/e08aPpARJbuWkrntD9 +ZAc5f0NhgsSWTs0FwXS/+RRpd9BzCQurnM87fw6g82NQlbFOiIVkYfmtbbSn +DWeGh1eysL47eTyJ7md/8ceGnJBi4bdtlmI7LtD57Ff9wE6NhSYnE/XO+FNw +wZElamLGwj/qHz+aedPxVn/vFTrEwoyjq19e8qLrR6Ey/7k1C11CwwYLPP/r +lxZ6Bk4sPPV5a8Ufun8/3x9xmuPHwrLWhPfnT9L9b+u3prVpLLSSnmudcKQg +Pbkk+WsWC1tM/PWmHOj+PHPZ+U4uC3/dVxqbPEbPiwey84x7LAwaOyI0TM+T +Y2tM1KVqWdiUcMi27AgFheL3IpcOsVDg7n2VV+YUGI2eMfqspYT1Y7wNv5EC +mfVyoUvZSpgwy7h9Feh57FlTtXabEvL96RyU2Ern69RKtuduJXyvcVJbiZ6f +vXN56vO2SniqXPmBAj1fPYXeiK6OUEKdw6MbA5Xp+aqCvXt6lLCsR0NzRogC +N9d+qVPvlVD80U5jJUEKgIq0iPushBKJ9z1Nl9Hnsa6ruWtUCa9MynSlLaJA +fbNntZOAMr59ksmW+MODaoPs3EA1ZYzP6bX3G+HBt2NLvR4EKKOKWqq96Av6 +PpW6vaLysjLe6fL4M/KcB6NdgUsaIpRRaILdV1fPg+8mM8kf4pRxn7pZ6Oka +HkzrDtYI5yoja/MOu+xyHixc1Sh+olkZ109/sYrI48HqmugyWUUVxGdFZw7R +9ykDQmJhWJUKDpvsTNyjwYOv9oa5unUquDp6lHNflQeRGWeMxxpUUNCmtU5i +DQ9a5TqTLF+roPK6TRHdBA/sVt/aoDqggiLDeW8N6Puin7C0Y8vyNaj+QDK3 +XIAHvJ9y9dKWazAhJD1dppMLIi9YUYWja7AnaLf/xFkuyITf3aelpYr4dOv0 +zev5cHOtzkpRZzXs0DlsfCI1D55Lbds0cV0dQ+v9ZKikXNgiUxWj0a6B3Z/u +KqacvAPC/JneRy+tw5v1pkKlBjkgFyTPtmStR/GO579O/s6GZaR1sWndenxD +VllnFGWBOmf13TNHNNHsteD1Bv9M8OwVqd7FtwGHdvnkl6/JgNGJyANGNzeg +pdika9PXNDDUeJZkpLYR72xz6Dlz4zY8mdD9Nf1yI87JcrLuM5LBXVWzu8Vx +ExpZNIu1DN8EzohDm+UyLfyWq5mSmHUDdhCSe5dnamFb3YU+dnI8KAdeOVul +rY1FhVnj60piYY2jTiXZrY0KdbduDjbEgOOT45cfnN6Mekl1w4OcKKhMb3MY +F9PBmqS5ozvfXYEfufPTGo90kLk3bqinNQyOkdxlSXu3oGBpUd/CzSEwviZO +697YFtR3MetJz7wEJdm/PkyG6+LFqIamgdOBYLWdibpybDQnVYIn586D9Mmw +UvWnbHS+5Vo9re4HYn+5Fe214GCsf7+VLJ8vZOtf8B+z5GBujkIy9d0HNC9E +6cdZc9Dp2Jug7Z99wHis8HXnUQ4GfDHfEvrcB0LbJ2eOuXHwR3qOtGWCD/zM +DNDzD+Lgy26iaouqD3TrxrXmcDnYticsr9fGG477ZKcYFdDvt2slgqk3TBU8 +dPxWyMFPIgu/5OzwBhFG5/T6Yg6SohbZ4aresHuprEzFUw66FPRb3pz1gsdt +OQ6tr+nvJZc39Sd6wS7hEjXfTg4uHk94y7vqBZ2G/05J9nCQe2X9Wr8AL/hR +NhRu856DwnyrLhDOXqCWsY76OsjBOIlDlbVa9Hrd23wjhzlYsWhFdMUaer1V +ZqAxxsEB/QPXyuW8wCnMp8V7krb2lNDzxfR6T0OTJH5ykFASuNI96wmXZhOP +lc1y8Er3ErXxEU9YuTFP9cgcB8O+dE8s/+gJqSfLJufnOVj14eCbdR2e8H9V +FnNw + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1mk8VVsbAHBF0yV1yZDZOXsflKFUJOf0PFGkgUKJhGQoRJmKBiRTCRlS +yPwK52zRIEPSNcSNQmQslUoiU0KUvPt+2r//h732s9d6hqVo72HquJCPj2/B +Aj6+/55Tvf/WEFezt2rLLL3D36G9tS1V0m9b5yVYOdvdZtErBijWZC/ZGQuB +i08FsnpJ8N2X38HfmQlfXYdXLO3dBH+PSMTOdNwD2/PpTz683QHvHht7/Oio +gkHLtRs83x4AA2Lw7XjHK2icap+s73GEmQ7thLGOPuCzHKM0XvtAtf6d7JbM +CXhWqbyjJCMUZN6V9turzkGpKd+LKF4MrHKzzV+iz48OfVYm7bUJELveoNz4 +wFJ8UZAp9EM0Gbpurns6vnI5Rqd5alrVpsHV7ICmhav/RvOFJhuT9TNBIv5j +RNxtUSw12aB9/kQ2hJkbbX01JYbNzvt6/XVzwEsnw/bfS5Lo4QOxP+buwPbR +WX/3j1Joctf9nIdbHvjtjF/zzzcp7P8zKph5Og8KMtS6Raek0OvoqyMtvnkg +aW6nU7pUGh0TgrezgvLgW0ntNL+6NIq6bBXLS8iDuEsx3rfOSmOXeXiwyJM8 +6BNjudcsl8Gs3fX3PIXyIYi9/6jUZlns0Cu5fjgtH3bapH7X1pPFX6VBOdLZ ++SAcOBR8YI8syj9u7ezIzYeU6pCcGDtZTAizT9h+Lx9KdpUNLY6QxU7jxBOj +NfkwdojpO9Eli/Zx/1pf+ZoPNj6TVxrPyWEtH8a2aXCBTNSTGQyRwxsvB1ZJ +buTS8UZTS2LkUKvCqchiMxf8f6s062XL4XaNPO0G5EJCsI1YaaMcxn8bPhO8 +nwuN1+vS/icrj00p6ZWbPbmwpeDWg4uV8rjSLMO6uJAL2ztezo3Uy+MPkYGL +7AdcMOYTMLR9JY9eHeLsykdcOGbq3gWf5TF/5nBY2RMuGJxTDAhcpIB5h6ft +wxu5cEp+KmvbWgXsSwd20Bcu1DinDVf7KmB0SN3SASkeGP3WETl/TgH3CTRz +F8jx4GVMm9bGQAX0HLj8TUKRB12lywKzIxRwi6if4RYlHowIeouEpCigt565 +88ENPJAs3KltUKWAP7/v9Pi2iwduP8cD65croqCxxLOYMzzYctpJvF9EEV+B +fvsZfx4sHezm8ksq4hL8/N3qAg/+11PdvpWhiNcT00zFgnnQ+yRB9aGWIvbo +8e5bRfHAJESnM8NWEbvV5tjK2TzQFAnSOFekiI/6hDOaG3nAd3Wy5maxIjbK +GbfrNNHx87tYFZcrolavMSOthQeuk6Yh47WKmCwqyWfTzoPsTqLHuVsRf6+K +fst7xwPxtPpQc34GJgny+0WP82Bm7cpetQMMFJ1NIl1FKJi6LRW0wYqBFXWb +BUxWUfBjBUno2DJQ7PLfazXEKRiZ0HHZfoKBfxcZmH1aTUFf+bEpqwsMXGtf +IMVQpOD57kfC4f9jYHmr9eiQOgV1Ff8UXctnoLLbSET8OgpqNBrN4+4yMO/k +EW8dTQqeiH5ISi1l4BvD9i1nN1Fwr+cvpYcvGBhZ6Z7yry4FSa420DfJwK3t +51iPDSlIfHu878ssAxeKF/9WMaIg3sQrZHiegTm9qmvjd1EQtSG84ecyJlay +FsQd2UvBpV9FFivkmNjpXHO7xpQC16uLTrENmCi++C+5T9YUHJ9bIaq3m4nl +pYblEjYUOHlIFRvuYyK3s7PU0JYCOzON36ZWTHzz0OxtylEKzKUtw0+4M/Gb +u/NLaScK2Fxe+o0bTNxQo/TBzZ2CHgVu2o5kJvYf0lY46EGB/4281B9pTHy0 +oHYb+xQFj4JyUkzzmHih+YT6/GkKNA+l3xR+zER2td1jWx8KWl6kJlY8ZeK+ +fz7JrvOl4JT+7RtutUwkb4g4zdEuUE+Kf/6SifM7r/KizlKgsig+JvQDEwXv +fFWIPEdBvX9s9KZ+Jt7NKnqmf57+n7GYqE+DTMyN8bD4STu751qk3g8mPq37 +rXvoIgUK98LC/ywm0GZHrcJEIAWVSqFhlCCBzz5kqMUGUWBz+3Ko9UoCkxze +q6hfoiA5POhy2WoCtb2qvlsHUyBuey7QV5VAc8fx1wkhFDxs8wsg1xPY71N4 +UiaU3q9dZy+2bSLwYrX1TBrt2E0+5zWBwPSphpHbYRQsF/I4O7KfwMgXhvY+ +ERTwgk6euX2QwBLvwryPtHdNu/ruOUxgYmzhV+MrFIT3HffOdyBQy/b1AZmr +FAiU2p9yOkOgxrjNaGwkBVnqRz3EzhPoVqAm9JW2Xrate00ggWSgNYt9jYKA +aGs3xhUCO28ZHuiiLbfosGtLFIF6ubquzCgKHvtbugTGERhiMR/oQnvW8eDx +3hQCt4NLwSjtWz3mztcy6Hi+76lTi6Zg834zJ3YOgUO6vn3HaXc82+84lE8g +3/xlvgzavux9Dkl3CfwQL8lopy12z/iY0QMCsxqaDZfGUPBAaa/9zxICRfv3 +emrTHhfZZXewisC7ElKdkbQ73RjNLnUE/rozpFZM++mzWQhoJNC6ZljgDe1c +hda7cS0EOrwdPfKHdow/Vz63nUAh/iod2esUnG0Ljn7cQ6DZp423NtO2U7ee +b35PYNPL1Rf20d4ZvtHj82cCDxfo9TvQXtcn9G5mkECu0KXXPrQl2Z+NhccI +/LKSuzuYNt+NiieMSQJ3Blw3ukZ7YDRBXXuWwEcly5rjaDcZuafunifQpWzg +3Q3axVkGwnYCJPrLCvj/59Q5uYvey0i8LK6ZFks71GJ6OFyYxB0+Rvuu0nYv +ajpyW5RErWzFqEDaBwVzXxRJkiifG2vpSXurYyDnmSyJlfI+9+1osyoPUd0M +Em31M1N2016+er3sqBKJpz9NiG2g/cNz2TV+NRKVT25XkKD9pvHDbwlNEmXe +uz+epverhlXmpqpNYnOH8VAbbV5g7Btkk+gQ+pQqoB3f7bLnwDYSVR6mC4TQ +Pr9R//EJA5Ku98YxC9oOUdKqF3eTOJnH8FKivXtgIjl2H4lfvwdGTtDnranX +KHjnAInS/zzjPKYtlZJ9rtyKxOcNrWFBtAdNDhz+5EDi+sO1XxfQfpWn1vDz +BInPNrrxV9D5Vsa/WHe5B4kNEzal3rQjHhVLafmR+F7x/tx/+Xvq7+gruy6S +eDSg51oY7UOuzrM2wSS6p76tWE9bWV6yO+waiU56/AvO0/Ww0m/MKCWWxFC9 +72IytH++qi8tTKS/N7P/ZQldT/Whfre6Mkh8UMynNkDXm/NI96G1xSQa9YSW +y9H1aLzzfj2Uk/iPyLFF2eEUaGVe3Wz+lMS2lp8zJO3FB9mSF56TWNsy3y9P +13dOxe2Ol70ktn+wHxy6TPdnCV/Djx9JFA4eyTpI2/e08aPpARJbuWkrntD9 +ZAc5f0NhgsSWTs0FwXS/+RRpd9BzCQurnM87fw6g82NQlbFOiIVkYfmtbbSn +DWeGh1eysL47eTyJ7md/8ceGnJBi4bdtlmI7LtD57Ff9wE6NhSYnE/XO+FNw +wZElamLGwj/qHz+aedPxVn/vFTrEwoyjq19e8qLrR6Ey/7k1C11CwwYLPP/r +lxZ6Bk4sPPV5a8Ufun8/3x9xmuPHwrLWhPfnT9L9b+u3prVpLLSSnmudcKQg +Pbkk+WsWC1tM/PWmHOj+PHPZ+U4uC3/dVxqbPEbPiwey84x7LAwaOyI0TM+T +Y2tM1KVqWdiUcMi27AgFheL3IpcOsVDg7n2VV+YUGI2eMfqspYT1Y7wNv5EC +mfVyoUvZSpgwy7h9Feh57FlTtXabEvL96RyU2Ern69RKtuduJXyvcVJbiZ6f +vXN56vO2SniqXPmBAj1fPYXeiK6OUEKdw6MbA5Xp+aqCvXt6lLCsR0NzRogC +N9d+qVPvlVD80U5jJUEKgIq0iPushBKJ9z1Nl9Hnsa6ruWtUCa9MynSlLaJA +fbNntZOAMr59ksmW+MODaoPs3EA1ZYzP6bX3G+HBt2NLvR4EKKOKWqq96Av6 +PpW6vaLysjLe6fL4M/KcB6NdgUsaIpRRaILdV1fPg+8mM8kf4pRxn7pZ6Oka +HkzrDtYI5yoja/MOu+xyHixc1Sh+olkZ109/sYrI48HqmugyWUUVxGdFZw7R +9ykDQmJhWJUKDpvsTNyjwYOv9oa5unUquDp6lHNflQeRGWeMxxpUUNCmtU5i +DQ9a5TqTLF+roPK6TRHdBA/sVt/aoDqggiLDeW8N6Puin7C0Y8vyNaj+QDK3 +XIAHvJ9y9dKWazAhJD1dppMLIi9YUYWja7AnaLf/xFkuyITf3aelpYr4dOv0 +zev5cHOtzkpRZzXs0DlsfCI1D55Lbds0cV0dQ+v9ZKikXNgiUxWj0a6B3Z/u +KqacvAPC/JneRy+tw5v1pkKlBjkgFyTPtmStR/GO579O/s6GZaR1sWndenxD +VllnFGWBOmf13TNHNNHsteD1Bv9M8OwVqd7FtwGHdvnkl6/JgNGJyANGNzeg +pdika9PXNDDUeJZkpLYR72xz6Dlz4zY8mdD9Nf1yI87JcrLuM5LBXVWzu8Vx +ExpZNIu1DN8EzohDm+UyLfyWq5mSmHUDdhCSe5dnamFb3YU+dnI8KAdeOVul +rY1FhVnj60piYY2jTiXZrY0KdbduDjbEgOOT45cfnN6Mekl1w4OcKKhMb3MY +F9PBmqS5ozvfXYEfufPTGo90kLk3bqinNQyOkdxlSXu3oGBpUd/CzSEwviZO +697YFtR3MetJz7wEJdm/PkyG6+LFqIamgdOBYLWdibpybDQnVYIn586D9Mmw +UvWnbHS+5Vo9re4HYn+5Fe214GCsf7+VLJ8vZOtf8B+z5GBujkIy9d0HNC9E +6cdZc9Dp2Jug7Z99wHis8HXnUQ4GfDHfEvrcB0LbJ2eOuXHwR3qOtGWCD/zM +DNDzD+Lgy26iaouqD3TrxrXmcDnYticsr9fGG477ZKcYFdDvt2slgqk3TBU8 +dPxWyMFPIgu/5OzwBhFG5/T6Yg6SohbZ4aresHuprEzFUw66FPRb3pz1gsdt +OQ6tr+nvJZc39Sd6wS7hEjXfTg4uHk94y7vqBZ2G/05J9nCQe2X9Wr8AL/hR +NhRu856DwnyrLhDOXqCWsY76OsjBOIlDlbVa9Hrd23wjhzlYsWhFdMUaer1V +ZqAxxsEB/QPXyuW8wCnMp8V7krb2lNDzxfR6T0OTJH5ykFASuNI96wmXZhOP +lc1y8Er3ErXxEU9YuTFP9cgcB8O+dE8s/+gJqSfLJufnOVj14eCbdR2e8H9V +FnNw + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.057751383621838695`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.057751383621838695`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1mk8VVsbAHBF0yV1yZDZOXsflKFUJOf0PFGkgUKJhGQoRJmKBiRTCRlS +yPwK52zRIEPSNcSNQmQslUoiU0KUvPt+2r//h732s9d6hqVo72HquJCPj2/B +Aj6+/55Tvf/WEFezt2rLLL3D36G9tS1V0m9b5yVYOdvdZtErBijWZC/ZGQuB +i08FsnpJ8N2X38HfmQlfXYdXLO3dBH+PSMTOdNwD2/PpTz683QHvHht7/Oio +gkHLtRs83x4AA2Lw7XjHK2icap+s73GEmQ7thLGOPuCzHKM0XvtAtf6d7JbM +CXhWqbyjJCMUZN6V9turzkGpKd+LKF4MrHKzzV+iz48OfVYm7bUJELveoNz4 +wFJ8UZAp9EM0Gbpurns6vnI5Rqd5alrVpsHV7ICmhav/RvOFJhuT9TNBIv5j +RNxtUSw12aB9/kQ2hJkbbX01JYbNzvt6/XVzwEsnw/bfS5Lo4QOxP+buwPbR +WX/3j1Joctf9nIdbHvjtjF/zzzcp7P8zKph5Og8KMtS6Raek0OvoqyMtvnkg +aW6nU7pUGh0TgrezgvLgW0ntNL+6NIq6bBXLS8iDuEsx3rfOSmOXeXiwyJM8 +6BNjudcsl8Gs3fX3PIXyIYi9/6jUZlns0Cu5fjgtH3bapH7X1pPFX6VBOdLZ ++SAcOBR8YI8syj9u7ezIzYeU6pCcGDtZTAizT9h+Lx9KdpUNLY6QxU7jxBOj +NfkwdojpO9Eli/Zx/1pf+ZoPNj6TVxrPyWEtH8a2aXCBTNSTGQyRwxsvB1ZJ +buTS8UZTS2LkUKvCqchiMxf8f6s062XL4XaNPO0G5EJCsI1YaaMcxn8bPhO8 +nwuN1+vS/icrj00p6ZWbPbmwpeDWg4uV8rjSLMO6uJAL2ztezo3Uy+MPkYGL +7AdcMOYTMLR9JY9eHeLsykdcOGbq3gWf5TF/5nBY2RMuGJxTDAhcpIB5h6ft +wxu5cEp+KmvbWgXsSwd20Bcu1DinDVf7KmB0SN3SASkeGP3WETl/TgH3CTRz +F8jx4GVMm9bGQAX0HLj8TUKRB12lywKzIxRwi6if4RYlHowIeouEpCigt565 +88ENPJAs3KltUKWAP7/v9Pi2iwduP8cD65croqCxxLOYMzzYctpJvF9EEV+B +fvsZfx4sHezm8ksq4hL8/N3qAg/+11PdvpWhiNcT00zFgnnQ+yRB9aGWIvbo +8e5bRfHAJESnM8NWEbvV5tjK2TzQFAnSOFekiI/6hDOaG3nAd3Wy5maxIjbK +GbfrNNHx87tYFZcrolavMSOthQeuk6Yh47WKmCwqyWfTzoPsTqLHuVsRf6+K +fst7xwPxtPpQc34GJgny+0WP82Bm7cpetQMMFJ1NIl1FKJi6LRW0wYqBFXWb +BUxWUfBjBUno2DJQ7PLfazXEKRiZ0HHZfoKBfxcZmH1aTUFf+bEpqwsMXGtf +IMVQpOD57kfC4f9jYHmr9eiQOgV1Ff8UXctnoLLbSET8OgpqNBrN4+4yMO/k +EW8dTQqeiH5ISi1l4BvD9i1nN1Fwr+cvpYcvGBhZ6Z7yry4FSa420DfJwK3t +51iPDSlIfHu878ssAxeKF/9WMaIg3sQrZHiegTm9qmvjd1EQtSG84ecyJlay +FsQd2UvBpV9FFivkmNjpXHO7xpQC16uLTrENmCi++C+5T9YUHJ9bIaq3m4nl +pYblEjYUOHlIFRvuYyK3s7PU0JYCOzON36ZWTHzz0OxtylEKzKUtw0+4M/Gb +u/NLaScK2Fxe+o0bTNxQo/TBzZ2CHgVu2o5kJvYf0lY46EGB/4281B9pTHy0 +oHYb+xQFj4JyUkzzmHih+YT6/GkKNA+l3xR+zER2td1jWx8KWl6kJlY8ZeK+ +fz7JrvOl4JT+7RtutUwkb4g4zdEuUE+Kf/6SifM7r/KizlKgsig+JvQDEwXv +fFWIPEdBvX9s9KZ+Jt7NKnqmf57+n7GYqE+DTMyN8bD4STu751qk3g8mPq37 +rXvoIgUK98LC/ywm0GZHrcJEIAWVSqFhlCCBzz5kqMUGUWBz+3Ko9UoCkxze +q6hfoiA5POhy2WoCtb2qvlsHUyBuey7QV5VAc8fx1wkhFDxs8wsg1xPY71N4 +UiaU3q9dZy+2bSLwYrX1TBrt2E0+5zWBwPSphpHbYRQsF/I4O7KfwMgXhvY+ +ERTwgk6euX2QwBLvwryPtHdNu/ruOUxgYmzhV+MrFIT3HffOdyBQy/b1AZmr +FAiU2p9yOkOgxrjNaGwkBVnqRz3EzhPoVqAm9JW2Xrate00ggWSgNYt9jYKA +aGs3xhUCO28ZHuiiLbfosGtLFIF6ubquzCgKHvtbugTGERhiMR/oQnvW8eDx +3hQCt4NLwSjtWz3mztcy6Hi+76lTi6Zg834zJ3YOgUO6vn3HaXc82+84lE8g +3/xlvgzavux9Dkl3CfwQL8lopy12z/iY0QMCsxqaDZfGUPBAaa/9zxICRfv3 +emrTHhfZZXewisC7ElKdkbQ73RjNLnUE/rozpFZM++mzWQhoJNC6ZljgDe1c +hda7cS0EOrwdPfKHdow/Vz63nUAh/iod2esUnG0Ljn7cQ6DZp423NtO2U7ee +b35PYNPL1Rf20d4ZvtHj82cCDxfo9TvQXtcn9G5mkECu0KXXPrQl2Z+NhccI +/LKSuzuYNt+NiieMSQJ3Blw3ukZ7YDRBXXuWwEcly5rjaDcZuafunifQpWzg +3Q3axVkGwnYCJPrLCvj/59Q5uYvey0i8LK6ZFks71GJ6OFyYxB0+Rvuu0nYv +ajpyW5RErWzFqEDaBwVzXxRJkiifG2vpSXurYyDnmSyJlfI+9+1osyoPUd0M +Em31M1N2016+er3sqBKJpz9NiG2g/cNz2TV+NRKVT25XkKD9pvHDbwlNEmXe +uz+epverhlXmpqpNYnOH8VAbbV5g7Btkk+gQ+pQqoB3f7bLnwDYSVR6mC4TQ +Pr9R//EJA5Ku98YxC9oOUdKqF3eTOJnH8FKivXtgIjl2H4lfvwdGTtDnranX +KHjnAInS/zzjPKYtlZJ9rtyKxOcNrWFBtAdNDhz+5EDi+sO1XxfQfpWn1vDz +BInPNrrxV9D5Vsa/WHe5B4kNEzal3rQjHhVLafmR+F7x/tx/+Xvq7+gruy6S +eDSg51oY7UOuzrM2wSS6p76tWE9bWV6yO+waiU56/AvO0/Ww0m/MKCWWxFC9 +72IytH++qi8tTKS/N7P/ZQldT/Whfre6Mkh8UMynNkDXm/NI96G1xSQa9YSW +y9H1aLzzfj2Uk/iPyLFF2eEUaGVe3Wz+lMS2lp8zJO3FB9mSF56TWNsy3y9P +13dOxe2Ol70ktn+wHxy6TPdnCV/Djx9JFA4eyTpI2/e08aPpARJbuWkrntD9 +ZAc5f0NhgsSWTs0FwXS/+RRpd9BzCQurnM87fw6g82NQlbFOiIVkYfmtbbSn +DWeGh1eysL47eTyJ7md/8ceGnJBi4bdtlmI7LtD57Ff9wE6NhSYnE/XO+FNw +wZElamLGwj/qHz+aedPxVn/vFTrEwoyjq19e8qLrR6Ey/7k1C11CwwYLPP/r +lxZ6Bk4sPPV5a8Ufun8/3x9xmuPHwrLWhPfnT9L9b+u3prVpLLSSnmudcKQg +Pbkk+WsWC1tM/PWmHOj+PHPZ+U4uC3/dVxqbPEbPiwey84x7LAwaOyI0TM+T +Y2tM1KVqWdiUcMi27AgFheL3IpcOsVDg7n2VV+YUGI2eMfqspYT1Y7wNv5EC +mfVyoUvZSpgwy7h9Feh57FlTtXabEvL96RyU2Ern69RKtuduJXyvcVJbiZ6f +vXN56vO2SniqXPmBAj1fPYXeiK6OUEKdw6MbA5Xp+aqCvXt6lLCsR0NzRogC +N9d+qVPvlVD80U5jJUEKgIq0iPushBKJ9z1Nl9Hnsa6ruWtUCa9MynSlLaJA +fbNntZOAMr59ksmW+MODaoPs3EA1ZYzP6bX3G+HBt2NLvR4EKKOKWqq96Av6 +PpW6vaLysjLe6fL4M/KcB6NdgUsaIpRRaILdV1fPg+8mM8kf4pRxn7pZ6Oka +HkzrDtYI5yoja/MOu+xyHixc1Sh+olkZ109/sYrI48HqmugyWUUVxGdFZw7R +9ykDQmJhWJUKDpvsTNyjwYOv9oa5unUquDp6lHNflQeRGWeMxxpUUNCmtU5i +DQ9a5TqTLF+roPK6TRHdBA/sVt/aoDqggiLDeW8N6Puin7C0Y8vyNaj+QDK3 +XIAHvJ9y9dKWazAhJD1dppMLIi9YUYWja7AnaLf/xFkuyITf3aelpYr4dOv0 +zev5cHOtzkpRZzXs0DlsfCI1D55Lbds0cV0dQ+v9ZKikXNgiUxWj0a6B3Z/u +KqacvAPC/JneRy+tw5v1pkKlBjkgFyTPtmStR/GO579O/s6GZaR1sWndenxD +VllnFGWBOmf13TNHNNHsteD1Bv9M8OwVqd7FtwGHdvnkl6/JgNGJyANGNzeg +pdika9PXNDDUeJZkpLYR72xz6Dlz4zY8mdD9Nf1yI87JcrLuM5LBXVWzu8Vx +ExpZNIu1DN8EzohDm+UyLfyWq5mSmHUDdhCSe5dnamFb3YU+dnI8KAdeOVul +rY1FhVnj60piYY2jTiXZrY0KdbduDjbEgOOT45cfnN6Mekl1w4OcKKhMb3MY +F9PBmqS5ozvfXYEfufPTGo90kLk3bqinNQyOkdxlSXu3oGBpUd/CzSEwviZO +697YFtR3MetJz7wEJdm/PkyG6+LFqIamgdOBYLWdibpybDQnVYIn586D9Mmw +UvWnbHS+5Vo9re4HYn+5Fe214GCsf7+VLJ8vZOtf8B+z5GBujkIy9d0HNC9E +6cdZc9Dp2Jug7Z99wHis8HXnUQ4GfDHfEvrcB0LbJ2eOuXHwR3qOtGWCD/zM +DNDzD+Lgy26iaouqD3TrxrXmcDnYticsr9fGG477ZKcYFdDvt2slgqk3TBU8 +dPxWyMFPIgu/5OzwBhFG5/T6Yg6SohbZ4aresHuprEzFUw66FPRb3pz1gsdt +OQ6tr+nvJZc39Sd6wS7hEjXfTg4uHk94y7vqBZ2G/05J9nCQe2X9Wr8AL/hR +NhRu856DwnyrLhDOXqCWsY76OsjBOIlDlbVa9Hrd23wjhzlYsWhFdMUaer1V +ZqAxxsEB/QPXyuW8wCnMp8V7krb2lNDzxfR6T0OTJH5ykFASuNI96wmXZhOP +lc1y8Er3ErXxEU9YuTFP9cgcB8O+dE8s/+gJqSfLJufnOVj14eCbdR2e8H9V +FnNw + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.057751383621838695`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.057751383621838695`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994260537291695*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"0cef87a8-e5fa-4308-ab35-d63f25931a2f"] +}, Open ]], Cell[CellGroupData[{ @@ -13197,66 +14665,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[391]:=",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], + "In[142]:=",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 391, 417, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437636167164`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.2903766126945`*^-167\\\", \ +RowBox[{\\\"161198658118785115956678299518758546564\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"68\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9916936247705600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 73, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437636167164`*^9, 3.994260537346312*^9}, CellLabel-> "During evaluation of \ -In[391]:=",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], +In[142]:=",ExpressionUUID->"5fc69697-6f9c-49e9-ba6d-65d8e9de3b88"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 391, 418, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343763625717*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.1383905468111606`*^-170\\\", \ +RowBox[{\\\"505518991860510123640143147290826802026\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"71\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9512072804761600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 74, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437636167164`*^9, 3.9942605373552923`*^9}, CellLabel-> "During evaluation of \ -In[391]:=",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], +In[142]:=",ExpressionUUID->"08efb50d-055c-4c6a-8895-487f83e4d1fb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 391, 419, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343763634718*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.9964900555423497`*^-173\\\", \ +RowBox[{\\\"164243120455479739170682508554789627978\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"75\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4724542670438400000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 75, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437636167164`*^9, 3.9942605373662043`*^9}, CellLabel-> "During evaluation of \ -In[391]:=",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], +In[142]:=",ExpressionUUID->"c1dc5cef-44d2-406d-9823-b20bd76939c7"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 391, 420, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343763643717*^9}, +during this calculation.\"", 2, 142, 76, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437636167164`*^9, 3.994260537374542*^9}, CellLabel-> "During evaluation of \ -In[391]:=",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], +In[142]:=",ExpressionUUID->"b6e0a737-d4f3-40f6-933d-93926aa8e799"], -Cell[BoxData["12.55365498945131`"], "Output", - CellChangeTimes->{3.991343769962549*^9}, +Cell[BoxData["13.838913256124753`"], "Output", + CellChangeTimes->{3.991343769962549*^9, 3.994260612663313*^9}, CellLabel-> - "Out[391]=",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] + "Out[142]=",ExpressionUUID->"ea2b4407-d33b-4e59-8b0d-c1f54248c6a4"] }, Open ]], Cell[CellGroupData[{ @@ -13323,68 +14798,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918499777649403`*^9, - 3.9918499820026073`*^9}},ExpressionUUID->"97b28b29-5d04-5c42-a0e8-\ -93b70f20e7f6"], + CellChangeTimes->{{3.9918499777649403`*^9, 3.9918499820026073`*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 392, 421, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343769999645*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.502326641239652`*^-233\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 143, 77, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991343769999645*^9, 3.9942606127153387`*^9}, CellLabel-> "During evaluation of \ -In[392]:=",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], +In[143]:=",ExpressionUUID->"29f225f7-8aa6-4bc4-b342-51be74f7ce3c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 392, 422, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437700095463`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.9448892623024527`*^-239\\\", \ +RowBox[{\\\"1894408991562427689427794363373458470910\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8875062955245236398325760000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 78, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991343769999645*^9, 3.994260612723703*^9}, CellLabel-> "During evaluation of \ -In[392]:=",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], +In[143]:=",ExpressionUUID->"02643849-052a-411b-920e-60a57b3b6b1b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 392, - 423, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343770018547*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.87453597223588`*^-246\\\", \ +RowBox[{\\\"2735526583816145583533735060711274031995\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"10\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5590907374121359182397440000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 79, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991343769999645*^9, 3.994260612732541*^9}, CellLabel-> "During evaluation of \ -In[392]:=",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], +In[143]:=",ExpressionUUID->"b3bfafd0-4036-4a13-8632-fab151140569"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 392, 424, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437700265465`*^9}, +during this calculation.\"", 2, 143, 80, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991343769999645*^9, 3.9942606127416058`*^9}, CellLabel-> "During evaluation of \ -In[392]:=",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], +In[143]:=",ExpressionUUID->"dbd45ee4-0d1c-4dc1-9b92-a5938ea13d24"], -Cell[BoxData["2.1234790234082306`"], "Output", - CellChangeTimes->{3.9913437771602173`*^9}, +Cell[BoxData["0.04131716756121437`"], "Output", + CellChangeTimes->{3.9913437771602173`*^9, 3.994260622031806*^9}, CellLabel-> - "Out[392]=",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] + "Out[143]=",ExpressionUUID->"d4ac6eb0-4e4b-41fd-8624-9d31603b2111"] }, Open ]], Cell[CellGroupData[{ @@ -13405,8 +14885,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -13451,68 +14930,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918499862910366`*^9, - 3.991849989300226*^9}},ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-\ -cdce838d9efe"], + CellChangeTimes->{{3.9918499862910366`*^9, 3.991849989300226*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 393, 425, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437771982174`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.502326641239652`*^-233\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 144, 81, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437771982174`*^9, 3.994260622075255*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], +In[144]:=",ExpressionUUID->"462ffa96-a998-4d0e-a62e-501759c242b9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 393, 426, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437772082157`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.9448892623024527`*^-239\\\", \ +RowBox[{\\\"1894408991562427689427794363373458470910\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8875062955245236398325760000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 82, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437771982174`*^9, 3.994260622084951*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], +In[144]:=",ExpressionUUID->"940ada9d-3b05-49fe-b351-86756a73c476"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 393, - 427, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134377721661*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.87453597223588`*^-246\\\", \ +RowBox[{\\\"2735526583816145583533735060711274031995\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"10\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5590907374121359182397440000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 83, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437771982174`*^9, 3.9942606220934763`*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], +In[144]:=",ExpressionUUID->"0cb870b8-3657-4fff-a896-5bbcbbc75e37"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 393, 428, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437772256165`*^9}, +during this calculation.\"", 2, 144, 84, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437771982174`*^9, 3.9942606221029673`*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], +In[144]:=",ExpressionUUID->"3a072c00-9160-4363-8445-cd0d1ffbde1a"], -Cell[BoxData["10.711562421053975`"], "Output", - CellChangeTimes->{3.991343783589731*^9}, +Cell[BoxData["47.341721483098496`"], "Output", + CellChangeTimes->{3.991343783589731*^9, 3.994260630923462*^9}, CellLabel-> - "Out[393]=",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] + "Out[144]=",ExpressionUUID->"65ecfb76-f421-4360-a6e1-e49d57967da2"] }, Open ]], Cell[CellGroupData[{ @@ -13533,8 +15017,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -13579,68 +15062,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849992549782*^9, - 3.9918499952553864`*^9}},ExpressionUUID->"0794d062-69d5-0a45-936e-\ -533b19d33de6"], + CellChangeTimes->{{3.991849992549782*^9, 3.9918499952553864`*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 394, 429, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437836316223`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.502326641239652`*^-233\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 145, 85, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437836316223`*^9, 3.994260630967618*^9}, CellLabel-> "During evaluation of \ -In[394]:=",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], +In[145]:=",ExpressionUUID->"6f129588-5325-48dc-8155-c192a1787fda"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 394, 430, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437836416245`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.9448892623024527`*^-239\\\", \ +RowBox[{\\\"1894408991562427689427794363373458470910\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8875062955245236398325760000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 86, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437836316223`*^9, 3.994260630977707*^9}, CellLabel-> "During evaluation of \ -In[394]:=",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], +In[145]:=",ExpressionUUID->"416a1b9e-7971-4dc8-b83b-ac986d85a5ae"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 394, - 431, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343783649622*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.87453597223588`*^-246\\\", \ +RowBox[{\\\"2735526583816145583533735060711274031995\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"10\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5590907374121359182397440000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 87, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437836316223`*^9, 3.994260630989077*^9}, CellLabel-> "During evaluation of \ -In[394]:=",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], +In[145]:=",ExpressionUUID->"069a3b73-a9a1-4fd9-b8a5-47fb2c6c1528"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 394, 432, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437836576347`*^9}, +during this calculation.\"", 2, 145, 88, 31387659667644541494, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437836316223`*^9, 3.99426063099929*^9}, CellLabel-> "During evaluation of \ -In[394]:=",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], +In[145]:=",ExpressionUUID->"1c6cfd7a-7ff1-4437-b4e9-2ea99717861e"], -Cell[BoxData["20.656774205279326`"], "Output", - CellChangeTimes->{3.9913437870822353`*^9}, +Cell[BoxData["6.906532811745279`"], "Output", + CellChangeTimes->{3.9913437870822353`*^9, 3.9942606377882442`*^9}, CellLabel-> - "Out[394]=",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] + "Out[145]=",ExpressionUUID->"3d903ab9-5740-4f41-93cc-98787318b6ed"] }, Open ]], Cell[CellGroupData[{ @@ -13649,18 +15137,24 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918500011025047`*^9, - 3.9918500053803673`*^9}},ExpressionUUID->"95c56266-e4d3-624e-89c1-\ -cedeeeb0247a"], - -Cell[BoxData["0.14275466609450368`"], "Output", - CellChangeTimes->{3.991343787117275*^9}, + CellChangeTimes->{{3.9918500011025047`*^9, 3.9918500053803673`*^9}}, CellLabel-> - "Out[395]=",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] -}, Open ]] + "In[146]:=",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], + +Cell[BoxData["0.0022849593521948553`"], "Output", + CellChangeTimes->{3.991343787117275*^9, 3.994260637830166*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"11ee435d-114b-4973-a8ad-f2aecadadd3d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellLabel-> + "In[147]:=",ExpressionUUID->"c29726ec-4d1d-47ca-bc6a-71e70e02eb8a"] }, -WindowSize->{714, 288}, -WindowMargins->{{Automatic, 3}, {297, Automatic}}, +Evaluator->"kernel 4", +WindowSize->{714, 170.25}, +WindowMargins->{{Automatic, 3}, {356.25, Automatic}}, CellContext->Notebook, FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", @@ -13678,620 +15172,639 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 357, 7, 36, "Input",ExpressionUUID->"54b36068-9321-438c-a803-bdfeeb693271"], -Cell[936, 31, 232, 5, 41, "Output",ExpressionUUID->"26277989-612d-4624-a7fd-6566daf32958"] +Cell[576, 22, 352, 6, 36, "Input",ExpressionUUID->"54b36068-9321-438c-a803-bdfeeb693271"], +Cell[931, 30, 249, 4, 41, "Output",ExpressionUUID->"9f6f4542-5eda-4deb-9358-c566cfea5d09"] }, Open ]], Cell[CellGroupData[{ -Cell[1205, 41, 250, 5, 36, "Input",ExpressionUUID->"1c421dd2-7ef0-4acf-b3ac-9d06c4aef325"], -Cell[1458, 48, 232, 5, 41, "Output",ExpressionUUID->"47d7e8c2-8ba2-4926-bdf4-ba3f66c667da"] +Cell[1217, 39, 245, 4, 36, "Input",ExpressionUUID->"1c421dd2-7ef0-4acf-b3ac-9d06c4aef325"], +Cell[1465, 45, 251, 4, 41, "Output",ExpressionUUID->"46f55c50-34ea-41fc-a43a-13e8d5b7f4a1"] }, Open ]], Cell[CellGroupData[{ -Cell[1727, 58, 228, 5, 36, "Input",ExpressionUUID->"865b48f4-585d-4a77-9c1a-36035c88fc15"], -Cell[1958, 65, 234, 5, 41, "Output",ExpressionUUID->"3ca5277a-8673-4870-a853-3c078b11a2be"] +Cell[1753, 54, 223, 4, 36, "Input",ExpressionUUID->"865b48f4-585d-4a77-9c1a-36035c88fc15"], +Cell[1979, 60, 251, 4, 41, "Output",ExpressionUUID->"912d2c35-2a4e-4ffa-97a6-05255bd193d6"] }, Open ]], Cell[CellGroupData[{ -Cell[2229, 75, 180, 4, 66, "Input",ExpressionUUID->"0dcece84-756b-4391-883d-ef8e469946e0"], -Cell[2412, 81, 232, 5, 75, "Output",ExpressionUUID->"793de95e-87af-4dee-b866-1ddfb7b0b609"] +Cell[2267, 69, 175, 3, 36, "Input",ExpressionUUID->"0dcece84-756b-4391-883d-ef8e469946e0"], +Cell[2445, 74, 249, 4, 41, "Output",ExpressionUUID->"fc703992-f8f5-4816-859d-93d17418657c"] }, Open ]], Cell[CellGroupData[{ -Cell[2681, 91, 262, 8, 96, "Input",ExpressionUUID->"0276ac51-d7d4-4127-b3d4-8450525062c0"], -Cell[2946, 101, 237, 5, 75, "Output",ExpressionUUID->"804b9073-4dfa-495c-9a56-8907ecfe983c"] +Cell[2731, 83, 257, 7, 54, "Input",ExpressionUUID->"0276ac51-d7d4-4127-b3d4-8450525062c0"], +Cell[2991, 92, 254, 4, 41, "Output",ExpressionUUID->"fda89e85-ba65-4a55-886d-c6bc8f7a222b"] }, Open ]], Cell[CellGroupData[{ -Cell[3220, 111, 136, 3, 66, "Input",ExpressionUUID->"8242da63-2454-42b7-b309-f70f75e9da83"], -Cell[3359, 116, 233, 5, 75, "Output",ExpressionUUID->"2da1f696-2e73-40c1-b6fe-a9f8e9ad8bed"] +Cell[3282, 101, 131, 2, 36, "Input",ExpressionUUID->"8242da63-2454-42b7-b309-f70f75e9da83"], +Cell[3416, 105, 250, 4, 41, "Output",ExpressionUUID->"3aed2250-5304-425a-a32f-af66121acd6f"] }, Open ]], Cell[CellGroupData[{ -Cell[3629, 126, 281, 7, 66, "Input",ExpressionUUID->"aa02b70e-387d-49e9-9573-6e0f1130bf3c"], -Cell[3913, 135, 248, 5, 75, "Output",ExpressionUUID->"6da2d0b7-1d1b-4438-8bdc-523c1f1d27f6"] +Cell[3703, 114, 276, 6, 36, "Input",ExpressionUUID->"aa02b70e-387d-49e9-9573-6e0f1130bf3c"], +Cell[3982, 122, 265, 4, 41, "Output",ExpressionUUID->"e0ad0576-f0df-4150-9cbb-85f335722868"] }, Open ]], Cell[CellGroupData[{ -Cell[4198, 145, 262, 8, 66, "Input",ExpressionUUID->"f50e1dab-1bd4-439a-bc22-a71f7ec2e562"], -Cell[4463, 155, 248, 5, 75, "Output",ExpressionUUID->"d4b9773d-3d85-4f2e-b937-d08b39725edf"] +Cell[4284, 131, 257, 7, 36, "Input",ExpressionUUID->"f50e1dab-1bd4-439a-bc22-a71f7ec2e562"], +Cell[4544, 140, 265, 4, 41, "Output",ExpressionUUID->"24ee74e0-7e12-40f4-8267-12ee4748bfdc"] }, Open ]], Cell[CellGroupData[{ -Cell[4748, 165, 208, 4, 66, "Input",ExpressionUUID->"4454b5e4-85d8-455b-ad0b-a1d17160f221"], -Cell[4959, 171, 218, 4, 75, "Output",ExpressionUUID->"bc37fd4b-6ef9-4a25-9cc2-45208c17c8ba"] +Cell[4846, 149, 203, 3, 36, "Input",ExpressionUUID->"4454b5e4-85d8-455b-ad0b-a1d17160f221"], +Cell[5052, 154, 239, 4, 41, "Output",ExpressionUUID->"d4d7265f-69d5-46d5-b8da-29a550f89d39"] }, Open ]], Cell[CellGroupData[{ -Cell[5214, 180, 210, 4, 66, "Input",ExpressionUUID->"416b70d3-a4e0-4204-a453-6eb1c3b1e9c8"], -Cell[5427, 186, 214, 4, 75, "Output",ExpressionUUID->"9874a41a-46ff-4865-8b55-87d4d4f2aea6"] +Cell[5328, 163, 206, 3, 36, "Input",ExpressionUUID->"416b70d3-a4e0-4204-a453-6eb1c3b1e9c8"], +Cell[5537, 168, 236, 4, 41, "Output",ExpressionUUID->"346a49ad-5933-4dcf-a8a4-65b092d69697"] }, Open ]], Cell[CellGroupData[{ -Cell[5678, 195, 133, 3, 66, "Input",ExpressionUUID->"e788292c-aaa3-41c4-997f-b67346c03039"], -Cell[5814, 200, 232, 5, 75, "Output",ExpressionUUID->"8b770740-6375-4a94-bd8e-753563b43199"] +Cell[5810, 177, 129, 2, 36, "Input",ExpressionUUID->"e788292c-aaa3-41c4-997f-b67346c03039"], +Cell[5942, 181, 250, 4, 41, "Output",ExpressionUUID->"46eeca87-05ec-427b-879d-1e258496dcb0"] }, Open ]], Cell[CellGroupData[{ -Cell[6083, 210, 133, 3, 66, "Input",ExpressionUUID->"ef0cda8d-9d8a-4bb3-bd88-bbfd83e75854"], -Cell[6219, 215, 232, 5, 75, "Output",ExpressionUUID->"607b86d8-b6ac-49ee-a12e-de50d26e0a24"] +Cell[6229, 190, 129, 2, 36, "Input",ExpressionUUID->"ef0cda8d-9d8a-4bb3-bd88-bbfd83e75854"], +Cell[6361, 194, 250, 4, 41, "Output",ExpressionUUID->"0ee28bf2-54f9-42d5-a238-3546b4065180"] }, Open ]], Cell[CellGroupData[{ -Cell[6488, 225, 561, 20, 175, "Input",ExpressionUUID->"43da542d-4f77-420f-9090-54018b5cb4fe"], -Cell[7052, 247, 249, 5, 75, "Output",ExpressionUUID->"1539a043-75f6-4697-9c66-dd6c8abaa5f3"] +Cell[6648, 203, 557, 19, 100, "Input",ExpressionUUID->"43da542d-4f77-420f-9090-54018b5cb4fe"], +Cell[7208, 224, 267, 4, 41, "Output",ExpressionUUID->"2e65e955-42c4-4ac0-99ca-159fecb22852"] }, Open ]], Cell[CellGroupData[{ -Cell[7338, 257, 561, 20, 175, "Input",ExpressionUUID->"1de051a4-9775-42cc-b740-bc991544eec8"], -Cell[7902, 279, 252, 5, 75, "Output",ExpressionUUID->"74ad00f1-d8cd-4d17-bcd4-7955bf5baba7"] +Cell[7512, 233, 557, 19, 100, "Input",ExpressionUUID->"1de051a4-9775-42cc-b740-bc991544eec8"], +Cell[8072, 254, 270, 4, 41, "Output",ExpressionUUID->"093cd5d6-9a91-4ec5-911b-9d1fffcf6f6f"] }, Open ]], Cell[CellGroupData[{ -Cell[8191, 289, 1592, 51, 362, "Input",ExpressionUUID->"84e1d295-8c23-4259-8dd9-7adf7e35d067"], -Cell[9786, 342, 246, 5, 75, "Output",ExpressionUUID->"1b5cee6c-5edd-4ab9-8d56-a1c083877dc5"] +Cell[8379, 263, 1588, 50, 215, "Input",ExpressionUUID->"84e1d295-8c23-4259-8dd9-7adf7e35d067"], +Cell[9970, 315, 264, 4, 41, "Output",ExpressionUUID->"be6d4725-06c9-45cc-9cce-7aa6c973ee81"] }, Open ]], Cell[CellGroupData[{ -Cell[10069, 352, 1426, 47, 362, "Input",ExpressionUUID->"fa45fea8-6386-4332-b153-df368543cf58"], -Cell[11498, 401, 266, 6, 75, "Output",ExpressionUUID->"33fd6a96-3820-4318-a5ad-945d7a94ebe5"] +Cell[10271, 324, 1422, 46, 215, "Input",ExpressionUUID->"fa45fea8-6386-4332-b153-df368543cf58"], +Cell[11696, 372, 286, 5, 41, "Output",ExpressionUUID->"5df06338-285e-4c07-8bc4-87922a31e5ad"] }, Open ]], Cell[CellGroupData[{ -Cell[11801, 412, 1426, 47, 362, "Input",ExpressionUUID->"716610a2-7c9d-4f23-88aa-d470351e90ba"], -Cell[13230, 461, 271, 6, 75, "Output",ExpressionUUID->"91133e04-72bb-4b94-a180-694a0fef273c"] +Cell[12019, 382, 1422, 46, 215, "Input",ExpressionUUID->"716610a2-7c9d-4f23-88aa-d470351e90ba"], +Cell[13444, 430, 289, 5, 41, "Output",ExpressionUUID->"9d07cece-b1a8-4df9-9c49-a82ea50e2857"] }, Open ]], Cell[CellGroupData[{ -Cell[13538, 472, 1592, 51, 362, "Input",ExpressionUUID->"0ac3d858-cb59-4e46-8b73-36d3d79cae0c"], -Cell[15133, 525, 243, 5, 75, "Output",ExpressionUUID->"142c7187-6d38-471d-859c-6e6c99f3569b"] +Cell[13770, 440, 1588, 50, 215, "Input",ExpressionUUID->"0ac3d858-cb59-4e46-8b73-36d3d79cae0c"], +Cell[15361, 492, 261, 4, 41, "Output",ExpressionUUID->"288d6d50-44f9-403a-824d-b834643d81e4"] }, Open ]], Cell[CellGroupData[{ -Cell[15413, 535, 135, 3, 66, "Input",ExpressionUUID->"762bf122-768c-4500-8971-55894b694671"], -Cell[15551, 540, 234, 5, 75, "Output",ExpressionUUID->"e4b902a8-892e-4e78-aaa1-469409eb24f7"] +Cell[15659, 501, 131, 2, 36, "Input",ExpressionUUID->"762bf122-768c-4500-8971-55894b694671"], +Cell[15793, 505, 252, 4, 41, "Output",ExpressionUUID->"4790e059-4bb0-45fb-b98d-40c5a2a3a210"] }, Open ]], Cell[CellGroupData[{ -Cell[15822, 550, 137, 3, 66, "Input",ExpressionUUID->"ca09243d-e621-4101-9ff7-d458cc8f1266"], -Cell[15962, 555, 232, 5, 75, "Output",ExpressionUUID->"96e1ce9f-6f9f-4c45-a7fb-d8b9e6dd3b46"] +Cell[16082, 514, 133, 2, 36, "Input",ExpressionUUID->"ca09243d-e621-4101-9ff7-d458cc8f1266"], +Cell[16218, 518, 250, 4, 41, "Output",ExpressionUUID->"ac446579-1298-432d-b36f-58a6526cdca6"] }, Open ]], Cell[CellGroupData[{ -Cell[16231, 565, 138, 3, 66, "Input",ExpressionUUID->"c6803cf1-3e56-4c42-a419-2641da711aa0"], -Cell[16372, 570, 240, 5, 75, "Output",ExpressionUUID->"2fbb2136-1d41-45c3-bdc0-7482492cb64d"] +Cell[16505, 527, 134, 2, 36, "Input",ExpressionUUID->"c6803cf1-3e56-4c42-a419-2641da711aa0"], +Cell[16642, 531, 258, 4, 41, "Output",ExpressionUUID->"bf533936-ad31-4e3c-a09b-85768a4f09f9"] }, Open ]], Cell[CellGroupData[{ -Cell[16649, 580, 223, 5, 66, "Input",ExpressionUUID->"dae5153f-911a-49cf-9bb4-44d0081c1d49"], -Cell[16875, 587, 247, 6, 75, "Output",ExpressionUUID->"97fb2515-1180-45bf-bb60-d9b69adafd83"] +Cell[16937, 540, 219, 4, 36, "Input",ExpressionUUID->"dae5153f-911a-49cf-9bb4-44d0081c1d49"], +Cell[17159, 546, 265, 5, 41, "Output",ExpressionUUID->"a473fad6-046a-4e3e-a31e-ffc6f290a5f7"] }, Open ]], Cell[CellGroupData[{ -Cell[17159, 598, 138, 3, 66, "Input",ExpressionUUID->"99979b7d-5078-4d3b-ba55-a88f742375b4"], -Cell[17300, 603, 236, 5, 75, "Output",ExpressionUUID->"a6815b56-76f8-46f7-80cd-f9fd64394d65"] +Cell[17461, 556, 134, 2, 36, "Input",ExpressionUUID->"99979b7d-5078-4d3b-ba55-a88f742375b4"], +Cell[17598, 560, 254, 4, 41, "Output",ExpressionUUID->"1956642a-74de-41d8-8662-c55e30d56131"] }, Open ]], Cell[CellGroupData[{ -Cell[17573, 613, 328, 6, 66, "Input",ExpressionUUID->"46780137-b59e-4062-a64f-2b398a29ee35"], -Cell[17904, 621, 232, 5, 75, "Output",ExpressionUUID->"85549d07-7b10-4a40-b965-c3aa798887c5"] +Cell[17889, 569, 324, 5, 36, "Input",ExpressionUUID->"46780137-b59e-4062-a64f-2b398a29ee35"], +Cell[18216, 576, 250, 4, 41, "Output",ExpressionUUID->"a59920c1-df35-4c3a-9617-4456502dba07"] }, Open ]], Cell[CellGroupData[{ -Cell[18173, 631, 301, 6, 66, "Input",ExpressionUUID->"8d50ce28-af85-4d96-85ca-8f8868659214"], -Cell[18477, 639, 235, 5, 75, "Output",ExpressionUUID->"f5d9458a-dd25-4aca-9c76-0c2ef189fc6b"] +Cell[18503, 585, 297, 5, 36, "Input",ExpressionUUID->"8d50ce28-af85-4d96-85ca-8f8868659214"], +Cell[18803, 592, 253, 4, 41, "Output",ExpressionUUID->"e41dc3ec-b8aa-40d7-b247-371eeef92b0d"] }, Open ]], Cell[CellGroupData[{ -Cell[18749, 649, 223, 5, 66, "Input",ExpressionUUID->"9965b835-5d7d-46b8-a269-a30feacd524e"], -Cell[18975, 656, 229, 5, 75, "Output",ExpressionUUID->"9c1aa965-16a3-4b7d-8c56-44f3f002d052"] +Cell[19093, 601, 219, 4, 36, "Input",ExpressionUUID->"9965b835-5d7d-46b8-a269-a30feacd524e"], +Cell[19315, 607, 249, 4, 41, "Output",ExpressionUUID->"74be3f6f-301d-4e89-a2e2-b9f7cb15318e"] }, Open ]], Cell[CellGroupData[{ -Cell[19241, 666, 354, 11, 96, "Input",ExpressionUUID->"92bcc0dd-a8f0-4ab1-a3d9-ee0b74e4ecf5"], -Cell[19598, 679, 251, 5, 75, "Output",ExpressionUUID->"f21ae9bf-2a23-4a0f-8470-c2a3eef714b0"] +Cell[19601, 616, 350, 10, 54, "Input",ExpressionUUID->"92bcc0dd-a8f0-4ab1-a3d9-ee0b74e4ecf5"], +Cell[19954, 628, 269, 4, 41, "Output",ExpressionUUID->"1b468832-bf83-4aed-ad50-b6f1cb60c592"] }, Open ]], Cell[CellGroupData[{ -Cell[19886, 689, 354, 11, 96, "Input",ExpressionUUID->"2bbfcebd-831f-432f-a392-abeb412a5495"], -Cell[20243, 702, 267, 6, 75, "Output",ExpressionUUID->"d1ed5244-bcd3-413f-9e8b-117cd540ca01"] +Cell[20260, 637, 350, 10, 54, "Input",ExpressionUUID->"2bbfcebd-831f-432f-a392-abeb412a5495"], +Cell[20613, 649, 287, 5, 41, "Output",ExpressionUUID->"c795e47a-f328-42c3-8267-e1209a894452"] }, Open ]], Cell[CellGroupData[{ -Cell[20547, 713, 998, 27, 184, "Input",ExpressionUUID->"9b92a6bf-fac6-42f2-a8f7-4ef3d660996e"], -Cell[21548, 742, 246, 5, 75, "Output",ExpressionUUID->"4de7e762-d517-4e21-9ef0-6188b6a598f3"] +Cell[20937, 659, 994, 26, 105, "Input",ExpressionUUID->"9b92a6bf-fac6-42f2-a8f7-4ef3d660996e"], +Cell[21934, 687, 264, 4, 41, "Output",ExpressionUUID->"6b1e2784-92a9-4dbe-8c8f-ac0901476aa8"] }, Open ]], Cell[CellGroupData[{ -Cell[21831, 752, 203, 4, 66, "Input",ExpressionUUID->"184d0590-ce03-4b2e-ac29-4a3dab3130fa"], -Cell[22037, 758, 234, 5, 75, "Output",ExpressionUUID->"cbc1698c-fc06-4e9f-a3ca-f7c5d815ca79"] +Cell[22235, 696, 199, 3, 36, "Input",ExpressionUUID->"184d0590-ce03-4b2e-ac29-4a3dab3130fa"], +Cell[22437, 701, 252, 4, 41, "Output",ExpressionUUID->"548fa01f-a2f2-4a46-bf55-550d922e1c13"] }, Open ]], Cell[CellGroupData[{ -Cell[22308, 768, 333, 6, 66, "Input",ExpressionUUID->"0b570ae3-42d2-4602-82a8-84e3a04649d9"], -Cell[22644, 776, 211, 4, 75, "Output",ExpressionUUID->"d1b15e78-d2be-4f53-9006-7f711ea12201"] +Cell[22726, 710, 329, 5, 36, "Input",ExpressionUUID->"0b570ae3-42d2-4602-82a8-84e3a04649d9"], +Cell[23058, 717, 233, 4, 41, "Output",ExpressionUUID->"51fe370f-8728-469e-a0bd-f3e11734e388"] }, Open ]], -Cell[22870, 783, 177, 3, 66, "Input",ExpressionUUID->"d39bf080-2369-4f01-b27f-465c7b25d1e0"], +Cell[23306, 724, 173, 2, 36, "Input",ExpressionUUID->"d39bf080-2369-4f01-b27f-465c7b25d1e0"], Cell[CellGroupData[{ -Cell[23072, 790, 333, 6, 66, "Input",ExpressionUUID->"1ed9c65d-e67b-44be-bc26-948345b3f4ce"], -Cell[23408, 798, 211, 4, 75, "Output",ExpressionUUID->"99cb3253-9cbc-4baa-9177-c3f88a7491fc"] +Cell[23504, 730, 329, 5, 36, "Input",ExpressionUUID->"1ed9c65d-e67b-44be-bc26-948345b3f4ce"], +Cell[23836, 737, 233, 4, 41, "Output",ExpressionUUID->"acfdf15f-c205-497e-a28c-28125d42548a"] }, Open ]], -Cell[23634, 805, 177, 3, 66, "Input",ExpressionUUID->"295d5529-f7ea-475f-acb4-6eb4486987a6"], +Cell[24084, 744, 173, 2, 36, "Input",ExpressionUUID->"295d5529-f7ea-475f-acb4-6eb4486987a6"], Cell[CellGroupData[{ -Cell[23836, 812, 330, 6, 66, "Input",ExpressionUUID->"7f3ec5f8-41c4-4cf5-a24e-a062c6800394"], -Cell[24169, 820, 205, 4, 75, "Output",ExpressionUUID->"a4cd39fc-e7b7-4abb-ba1d-f3a2c23f4f20"] +Cell[24282, 750, 326, 5, 36, "Input",ExpressionUUID->"7f3ec5f8-41c4-4cf5-a24e-a062c6800394"], +Cell[24611, 757, 227, 4, 41, "Output",ExpressionUUID->"f60cd11a-7caa-4c00-b2c3-17fa2432b121"] }, Open ]], -Cell[24389, 827, 177, 3, 66, "Input",ExpressionUUID->"993979c0-bd2d-4ad1-9b61-552ca76007a0"], +Cell[24853, 764, 173, 2, 36, "Input",ExpressionUUID->"993979c0-bd2d-4ad1-9b61-552ca76007a0"], Cell[CellGroupData[{ -Cell[24591, 834, 356, 6, 66, "Input",ExpressionUUID->"b92b203e-98eb-4a2b-91fa-18cad5b51e15"], -Cell[24950, 842, 209, 4, 75, "Output",ExpressionUUID->"d74f83c4-1e66-4ebe-a4da-fc391dcbf215"] +Cell[25051, 770, 352, 5, 36, "Input",ExpressionUUID->"b92b203e-98eb-4a2b-91fa-18cad5b51e15"], +Cell[25406, 777, 231, 4, 41, "Output",ExpressionUUID->"a9d14b31-8f76-4117-9577-b09ee5260708"] }, Open ]], -Cell[25174, 849, 175, 3, 66, "Input",ExpressionUUID->"fdeb5ba4-fdd2-422d-8ea1-39e77d72f72d"], +Cell[25652, 784, 171, 2, 36, "Input",ExpressionUUID->"fdeb5ba4-fdd2-422d-8ea1-39e77d72f72d"], Cell[CellGroupData[{ -Cell[25374, 856, 303, 6, 66, "Input",ExpressionUUID->"6177caaf-88a9-4637-8e87-257bcca7d7d3"], -Cell[25680, 864, 211, 4, 75, "Output",ExpressionUUID->"afd2c213-33ec-42c1-b499-0c4ac04a4864"] +Cell[25848, 790, 299, 5, 36, "Input",ExpressionUUID->"6177caaf-88a9-4637-8e87-257bcca7d7d3"], +Cell[26150, 797, 233, 4, 41, "Output",ExpressionUUID->"377b7502-7ac2-4f53-8f3d-37fd1a077c26"] }, Open ]], -Cell[25906, 871, 175, 3, 66, "Input",ExpressionUUID->"60b82e3b-67de-44d1-b120-0c9b9d0d3fd4"], +Cell[26398, 804, 171, 2, 109, "Input",ExpressionUUID->"60b82e3b-67de-44d1-b120-0c9b9d0d3fd4"], Cell[CellGroupData[{ -Cell[26106, 878, 309, 6, 66, "Input",ExpressionUUID->"12de3bbc-0879-44cc-b328-21ba423eeb20"], -Cell[26418, 886, 208, 4, 75, "Output",ExpressionUUID->"7b540941-4937-4c6f-acd9-16093a44981a"] +Cell[26594, 810, 305, 5, 36, "Input",ExpressionUUID->"12de3bbc-0879-44cc-b328-21ba423eeb20"], +Cell[26902, 817, 230, 4, 41, "Output",ExpressionUUID->"abcea046-163d-4a88-8619-1f7d14d851b0"] }, Open ]], -Cell[26641, 893, 177, 3, 66, "Input",ExpressionUUID->"00f01e3b-b3db-4685-af30-78576555e0fd"], +Cell[27147, 824, 173, 2, 109, "Input",ExpressionUUID->"00f01e3b-b3db-4685-af30-78576555e0fd"], Cell[CellGroupData[{ -Cell[26843, 900, 310, 6, 66, "Input",ExpressionUUID->"7975ebac-cd08-419a-a96b-d5292747e5f3"], -Cell[27156, 908, 208, 4, 75, "Output",ExpressionUUID->"5a8f3b4c-1fac-4616-8a48-ccca896dcbe8"] +Cell[27345, 830, 306, 5, 36, "Input",ExpressionUUID->"7975ebac-cd08-419a-a96b-d5292747e5f3"], +Cell[27654, 837, 230, 4, 41, "Output",ExpressionUUID->"97e3e379-2c67-4b85-9f32-c73242fce46a"] }, Open ]], -Cell[27379, 915, 176, 3, 66, "Input",ExpressionUUID->"31005cd2-1cb1-4c77-af6e-89c1822b54e1"], +Cell[27899, 844, 172, 2, 109, "Input",ExpressionUUID->"31005cd2-1cb1-4c77-af6e-89c1822b54e1"], Cell[CellGroupData[{ -Cell[27580, 922, 278, 5, 66, "Input",ExpressionUUID->"fd4967a2-2507-4712-a0bb-5a23786cbe57"], -Cell[27861, 929, 207, 4, 75, "Output",ExpressionUUID->"cffe47dc-4dac-4268-b615-804cb50a4a1d"] +Cell[28096, 850, 274, 4, 36, "Input",ExpressionUUID->"fd4967a2-2507-4712-a0bb-5a23786cbe57"], +Cell[28373, 856, 229, 4, 41, "Output",ExpressionUUID->"51cf892d-d75f-4fc5-9e38-9db2bca54dea"] }, Open ]], -Cell[28083, 936, 179, 3, 66, "Input",ExpressionUUID->"2a198cd6-3fbf-4fba-8290-42336a86ac0b"], +Cell[28617, 863, 175, 2, 36, "Input",ExpressionUUID->"2a198cd6-3fbf-4fba-8290-42336a86ac0b"], Cell[CellGroupData[{ -Cell[28287, 943, 19813, 486, 5405, "Input",ExpressionUUID->"a7c8eb5b-277e-43f9-ad0e-c2e582e8c0dc"], -Cell[48103, 1431, 249, 5, 75, "Output",ExpressionUUID->"617f27cb-cd5b-4f7b-9373-fffa46bef6a3"] +Cell[28817, 869, 19809, 485, 3208, "Input",ExpressionUUID->"a7c8eb5b-277e-43f9-ad0e-c2e582e8c0dc"], +Cell[48629, 1356, 266, 4, 41, "Output",ExpressionUUID->"3468940c-2899-45aa-b099-c23462796605"] }, Open ]], Cell[CellGroupData[{ -Cell[48389, 1441, 19752, 490, 5343, "Input",ExpressionUUID->"2b01dd81-5a9e-4651-914a-da7baa693613"], -Cell[68144, 1933, 247, 5, 75, "Output",ExpressionUUID->"03e2f15e-84bb-49ec-bb27-c117b44e4f5c"] +Cell[48932, 1365, 19748, 489, 3138, "Input",ExpressionUUID->"2b01dd81-5a9e-4651-914a-da7baa693613"], +Cell[68683, 1856, 265, 4, 41, "Output",ExpressionUUID->"695d98de-48cf-403f-b026-050e4e19e297"] }, Open ]], Cell[CellGroupData[{ -Cell[68428, 1943, 19752, 484, 5342, "Input",ExpressionUUID->"d3f3bd4a-a9ac-45a8-ac67-3af82fbc74d8"], -Cell[88183, 2429, 265, 6, 75, "Output",ExpressionUUID->"d579e267-8e04-48f3-8b4e-d5022ddfcb63"] +Cell[68985, 1865, 19748, 483, 3198, "Input",ExpressionUUID->"d3f3bd4a-a9ac-45a8-ac67-3af82fbc74d8"], +Cell[88736, 2350, 283, 5, 41, "Output",ExpressionUUID->"c1e055c6-e276-44e6-bc94-d250923aa0c6"] }, Open ]], Cell[CellGroupData[{ -Cell[88485, 2440, 22538, 554, 6074, "Input",ExpressionUUID->"151a3a36-34c7-4b81-aa16-f23e16c0d146"], -Cell[111026, 2996, 267, 6, 75, "Output",ExpressionUUID->"112182d7-e756-486e-89db-5383cac76ed9"] +Cell[89056, 2360, 22534, 553, 3677, "Input",ExpressionUUID->"151a3a36-34c7-4b81-aa16-f23e16c0d146"], +Cell[111593, 2915, 287, 5, 41, "Output",ExpressionUUID->"c43eb0fe-8013-485e-b6e5-7fd0e43e258d"] }, Open ]], Cell[CellGroupData[{ -Cell[111330, 3007, 22539, 554, 6074, "Input",ExpressionUUID->"8f7b1795-a9ef-41e5-8533-b6c6a5bd88b2"], -Cell[133872, 3563, 266, 6, 75, "Output",ExpressionUUID->"9c0df20c-1574-41ef-bf65-e415a8b4a304"] +Cell[111917, 2925, 22535, 553, 3642, "Input",ExpressionUUID->"8f7b1795-a9ef-41e5-8533-b6c6a5bd88b2"], +Cell[134455, 3480, 284, 5, 41, "Output",ExpressionUUID->"91a12b32-eb3b-48d3-96ea-1c322c236254"] }, Open ]], Cell[CellGroupData[{ -Cell[134175, 3574, 25495, 627, 6806, "Input",ExpressionUUID->"05db592d-4708-4ba2-b046-1754a38e3d37"], -Cell[159673, 4203, 265, 6, 75, "Output",ExpressionUUID->"478028f3-f095-4d5d-9214-bd3400febb1f"] +Cell[134776, 3490, 25491, 626, 4121, "Input",ExpressionUUID->"05db592d-4708-4ba2-b046-1754a38e3d37"], +Cell[160270, 4118, 285, 5, 41, "Output",ExpressionUUID->"e25b1228-f30e-4ec5-84c6-c5797f6fbb45"] }, Open ]], Cell[CellGroupData[{ -Cell[159975, 4214, 134, 3, 66, "Input",ExpressionUUID->"e0dbfa19-8141-43bf-86ec-4287e1cbd7e6"], -Cell[160112, 4219, 229, 5, 75, "Output",ExpressionUUID->"8fdcf4fa-2a40-404b-8128-61bd41c8c5ba"] +Cell[160592, 4128, 130, 2, 36, "Input",ExpressionUUID->"e0dbfa19-8141-43bf-86ec-4287e1cbd7e6"], +Cell[160725, 4132, 247, 4, 41, "Output",ExpressionUUID->"9b0c7a1f-fabb-4b5a-ad15-c41b212ee7a7"] }, Open ]], Cell[CellGroupData[{ -Cell[160378, 4229, 134, 3, 66, "Input",ExpressionUUID->"b9584586-114f-42b8-b6f0-f06b1038285d"], -Cell[160515, 4234, 232, 5, 75, "Output",ExpressionUUID->"cd6646a2-1e6c-442c-8a25-10345f39107d"] +Cell[161009, 4141, 130, 2, 36, "Input",ExpressionUUID->"b9584586-114f-42b8-b6f0-f06b1038285d"], +Cell[161142, 4145, 252, 4, 41, "Output",ExpressionUUID->"769017fb-ef54-4364-8580-58be642aceef"] }, Open ]], Cell[CellGroupData[{ -Cell[160784, 4244, 1148, 40, 246, "Input",ExpressionUUID->"abc92f82-3d3e-41cb-a0f0-063081e72ebc"], -Cell[161935, 4286, 246, 5, 75, "Output",ExpressionUUID->"d288d810-0b52-4467-bc9a-5d1a6ba2ecbe"] +Cell[161431, 4154, 1144, 39, 144, "Input",ExpressionUUID->"abc92f82-3d3e-41cb-a0f0-063081e72ebc"], +Cell[162578, 4195, 264, 4, 41, "Output",ExpressionUUID->"dfcf777e-6ee4-46a2-822a-667332d9015d"] }, Open ]], Cell[CellGroupData[{ -Cell[162218, 4296, 1045, 36, 246, "Input",ExpressionUUID->"1fb81d84-4db6-457d-a98d-d3d4a6c111aa"], -Cell[163266, 4334, 262, 6, 75, "Output",ExpressionUUID->"e59afbe2-5db2-425b-9ffc-635915bbaa10"] +Cell[162879, 4204, 1041, 35, 144, "Input",ExpressionUUID->"1fb81d84-4db6-457d-a98d-d3d4a6c111aa"], +Cell[163923, 4241, 280, 5, 41, "Output",ExpressionUUID->"98cb5fe9-d92a-4372-baa5-cb46a33f0fa0"] }, Open ]], Cell[CellGroupData[{ -Cell[163565, 4345, 1148, 40, 246, "Input",ExpressionUUID->"1a9670fb-b623-40cf-91a7-4db9b61d62ec"], -Cell[164716, 4387, 250, 5, 75, "Output",ExpressionUUID->"3ffa7517-e36e-41ea-ab7d-d96fc660a854"] +Cell[164240, 4251, 1144, 39, 144, "Input",ExpressionUUID->"1a9670fb-b623-40cf-91a7-4db9b61d62ec"], +Cell[165387, 4292, 268, 4, 41, "Output",ExpressionUUID->"454a59db-9fe8-4fc0-9df5-2e09543dea87"] }, Open ]], Cell[CellGroupData[{ -Cell[165003, 4397, 112, 2, 66, "Input",ExpressionUUID->"2f5b9bd8-f9ad-4bfd-a8c4-e5f5b660eee5"], -Cell[165118, 4401, 248, 5, 75, "Output",ExpressionUUID->"a5b9a15f-7441-4230-82ca-01dfd277d66a"] +Cell[165692, 4301, 108, 1, 36, "Input",ExpressionUUID->"2f5b9bd8-f9ad-4bfd-a8c4-e5f5b660eee5"], +Cell[165803, 4304, 266, 4, 41, "Output",ExpressionUUID->"a6a80779-9752-4895-999c-c38b89f20fe2"] }, Open ]], Cell[CellGroupData[{ -Cell[165403, 4411, 112, 2, 66, "Input",ExpressionUUID->"ebfb17f3-e95e-4eba-9e50-433992102c8f"], -Cell[165518, 4415, 266, 6, 75, "Output",ExpressionUUID->"3593d402-754f-47fd-a87e-f56000e4cef1"] +Cell[166106, 4313, 108, 1, 36, "Input",ExpressionUUID->"ebfb17f3-e95e-4eba-9e50-433992102c8f"], +Cell[166217, 4316, 284, 5, 41, "Output",ExpressionUUID->"eedb1836-23cb-46ca-8748-4cc0b73e7113"] }, Open ]], Cell[CellGroupData[{ -Cell[165821, 4426, 112, 2, 66, "Input",ExpressionUUID->"5de504fd-f846-40cb-ad8b-4804c3917e14"], -Cell[165936, 4430, 262, 6, 75, "Output",ExpressionUUID->"a1e99dc5-7b24-4bf7-8994-9bb38b933044"] +Cell[166538, 4326, 108, 1, 36, "Input",ExpressionUUID->"5de504fd-f846-40cb-ad8b-4804c3917e14"], +Cell[166649, 4329, 279, 5, 41, "Output",ExpressionUUID->"27deb77b-dbd0-4dbb-a05b-f25ae4bff909"] }, Open ]], Cell[CellGroupData[{ -Cell[166235, 4441, 112, 2, 66, "Input",ExpressionUUID->"6247a7d7-e98d-4926-b82f-4e40f049efb0"], -Cell[166350, 4445, 248, 5, 75, "Output",ExpressionUUID->"100d9dbc-e6cb-4be4-ab5d-6281b95c4887"] +Cell[166965, 4339, 108, 1, 36, "Input",ExpressionUUID->"6247a7d7-e98d-4926-b82f-4e40f049efb0"], +Cell[167076, 4342, 268, 4, 41, "Output",ExpressionUUID->"7654ef93-0f79-4b35-a1be-ae04dbaed044"] }, Open ]], Cell[CellGroupData[{ -Cell[166635, 4455, 111, 2, 66, "Input",ExpressionUUID->"e1b956f3-c906-49b1-aacf-7b546604d57d"], -Cell[166749, 4459, 225, 4, 75, "Output",ExpressionUUID->"94c6bc5b-57ff-46ba-9f60-44006d3d8e43"] +Cell[167381, 4351, 107, 1, 36, "Input",ExpressionUUID->"e1b956f3-c906-49b1-aacf-7b546604d57d"], +Cell[167491, 4354, 249, 4, 41, "Output",ExpressionUUID->"ded30679-f1ee-42b3-92f4-9ba7dfa54d5d"] }, Open ]], Cell[CellGroupData[{ -Cell[167011, 4468, 111, 2, 66, "Input",ExpressionUUID->"69d58b13-133d-4ef2-805c-df6535a39a8f"], -Cell[167125, 4472, 221, 4, 75, "Output",ExpressionUUID->"0f9f6270-e39d-4344-98b2-a4f83ae423c2"] +Cell[167777, 4363, 107, 1, 36, "Input",ExpressionUUID->"69d58b13-133d-4ef2-805c-df6535a39a8f"], +Cell[167887, 4366, 243, 4, 41, "Output",ExpressionUUID->"8ece8815-281d-4bdb-b91c-fd74a8069afb"] }, Open ]], Cell[CellGroupData[{ -Cell[167383, 4481, 501, 17, 125, "Input",ExpressionUUID->"b06349f3-b106-49d9-9e6a-8775f70c91a6"], -Cell[167887, 4500, 238, 5, 75, "Output",ExpressionUUID->"503e7a6a-ec1a-486c-9371-2dd49a43067c"] +Cell[168167, 4375, 497, 16, 71, "Input",ExpressionUUID->"b06349f3-b106-49d9-9e6a-8775f70c91a6"], +Cell[168667, 4393, 260, 5, 41, "Output",ExpressionUUID->"36c243df-67af-495a-8503-0c59f8649bea"] }, Open ]], Cell[CellGroupData[{ -Cell[168162, 4510, 501, 17, 125, "Input",ExpressionUUID->"63085683-6964-4d01-aad9-4fd48996008c"], -Cell[168666, 4529, 238, 5, 75, "Output",ExpressionUUID->"c5cdc95a-179c-4f26-8556-8009a49ee2a5"] +Cell[168964, 4403, 497, 16, 71, "Input",ExpressionUUID->"63085683-6964-4d01-aad9-4fd48996008c"], +Cell[169464, 4421, 260, 5, 41, "Output",ExpressionUUID->"f377fe40-e7bd-41af-b27a-344d9e35a339"] }, Open ]], Cell[CellGroupData[{ -Cell[168941, 4539, 1792, 61, 420, "Input",ExpressionUUID->"f13e102e-2f50-4d77-a269-5e537a06fe7a"], -Cell[170736, 4602, 219, 4, 75, "Output",ExpressionUUID->"112241ee-4b28-4b87-93e2-42bc771a12f8"] +Cell[169761, 4431, 1788, 60, 340, "Input",ExpressionUUID->"f13e102e-2f50-4d77-a269-5e537a06fe7a"], +Cell[171552, 4493, 243, 4, 41, "Output",ExpressionUUID->"a5d337d0-ecec-471d-ab1c-ad3b2cef3c24"] }, Open ]], Cell[CellGroupData[{ -Cell[170992, 4611, 1105, 37, 299, "Input",ExpressionUUID->"072ffdfe-0804-4695-8920-d2fd093cca68"], -Cell[172100, 4650, 238, 5, 75, "Output",ExpressionUUID->"2165d84f-f4db-483e-b290-22f40bc573ed"] +Cell[171832, 4502, 1101, 36, 174, "Input",ExpressionUUID->"072ffdfe-0804-4695-8920-d2fd093cca68"], +Cell[172936, 4540, 260, 5, 41, "Output",ExpressionUUID->"b6e9ca87-3385-4ad5-a264-9eb47347271a"] }, Open ]], Cell[CellGroupData[{ -Cell[172375, 4660, 1822, 62, 420, "Input",ExpressionUUID->"71e2886b-ac9e-4df8-b38c-37ad827d4d8f"], -Cell[174200, 4724, 217, 4, 75, "Output",ExpressionUUID->"46774e83-27aa-45ab-8f4a-08f3fbb5b805"] +Cell[173233, 4550, 1818, 61, 340, "Input",ExpressionUUID->"71e2886b-ac9e-4df8-b38c-37ad827d4d8f"], +Cell[175054, 4613, 239, 4, 41, "Output",ExpressionUUID->"112aec04-d65a-4f01-ae5d-da5e0d4f9ddb"] }, Open ]], Cell[CellGroupData[{ -Cell[174454, 4733, 1635, 54, 368, "Input",ExpressionUUID->"7cd41244-b7a2-466a-993f-28f728f742bc"], -Cell[176092, 4789, 222, 4, 75, "Output",ExpressionUUID->"32c0d37d-a3ca-4fec-96e3-656444c14232"] +Cell[175330, 4622, 1631, 53, 208, "Input",ExpressionUUID->"7cd41244-b7a2-466a-993f-28f728f742bc"], +Cell[176964, 4677, 246, 4, 41, "Output",ExpressionUUID->"84e29656-f525-4096-873a-514762d9db6e"] }, Open ]], Cell[CellGroupData[{ -Cell[176351, 4798, 1635, 54, 208, "Input",ExpressionUUID->"14140c38-699a-42c2-b521-279a6e853eda"], -Cell[177989, 4854, 219, 4, 41, "Output",ExpressionUUID->"ef128e5b-9058-47b1-85b0-30da9d6079f8"] +Cell[177247, 4686, 1631, 53, 208, "Input",ExpressionUUID->"14140c38-699a-42c2-b521-279a6e853eda"], +Cell[178881, 4741, 243, 4, 41, "Output",ExpressionUUID->"0508566d-0599-4d93-b3cd-181a9cced4bd"] }, Open ]], -Cell[178223, 4861, 187, 4, 36, "Input",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], -Cell[178413, 4867, 156, 3, 36, "Input",ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-c82e80965ca9"], -Cell[178572, 4872, 187, 4, 36, "Input",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], -Cell[178762, 4878, 152, 3, 36, "Input",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], Cell[CellGroupData[{ -Cell[178939, 4885, 1301, 43, 174, "Input",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], -Cell[180243, 4930, 176, 3, 41, "Output",ExpressionUUID->"b2b0fbe6-496d-0b4b-a132-3f215e541d44"] +Cell[179161, 4750, 206, 3, 36, "Input",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], +Cell[179370, 4755, 161, 2, 41, "Output",ExpressionUUID->"772a28aa-35c3-40e8-819f-193c59d59bfd"] }, Open ]], +Cell[179546, 4760, 175, 2, 36, "Input",ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-c82e80965ca9"], Cell[CellGroupData[{ -Cell[180456, 4938, 908, 31, 128, "Input",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], -Cell[181367, 4971, 175, 3, 41, "Output",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] +Cell[179746, 4766, 206, 3, 36, "Input",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], +Cell[179955, 4771, 161, 2, 41, "Output",ExpressionUUID->"d1ccf4eb-1887-4064-85cc-698d661e2a11"] }, Open ]], +Cell[180131, 4776, 171, 2, 36, "Input",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], Cell[CellGroupData[{ -Cell[181579, 4979, 887, 30, 128, "Input",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], -Cell[182469, 5011, 177, 3, 41, "Output",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] +Cell[180327, 4782, 1297, 42, 174, "Input",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], +Cell[181627, 4826, 196, 2, 41, "Output",ExpressionUUID->"4c88ca09-9c78-47c2-8905-3d90ec95b913"] }, Open ]], Cell[CellGroupData[{ -Cell[182683, 5019, 558, 19, 66, "Input",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], -Cell[183244, 5040, 172, 3, 41, "Output",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] +Cell[181860, 4833, 927, 30, 128, "Input",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], +Cell[182790, 4865, 196, 2, 41, "Output",ExpressionUUID->"87a24494-6a09-4467-aea2-6331ad192e0d"] }, Open ]], Cell[CellGroupData[{ -Cell[183453, 5048, 651, 22, 66, "Input",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], -Cell[184107, 5072, 170, 3, 41, "Output",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] +Cell[183023, 4872, 906, 29, 128, "Input",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], +Cell[183932, 4903, 198, 2, 41, "Output",ExpressionUUID->"6b924723-f564-4491-847b-cba663fc8e1e"] }, Open ]], Cell[CellGroupData[{ -Cell[184314, 5080, 170, 5, 71, "Input",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], -Cell[184487, 5087, 173, 3, 41, "Output",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +Cell[184167, 4910, 554, 18, 66, "Input",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], +Cell[184724, 4930, 191, 2, 41, "Output",ExpressionUUID->"e2a5d359-6ad4-487c-9b9f-6474a5165ae5"] }, Open ]], Cell[CellGroupData[{ -Cell[184697, 5095, 170, 5, 69, "Input",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], -Cell[184870, 5102, 169, 3, 41, "Output",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +Cell[184952, 4937, 647, 21, 66, "Input",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], +Cell[185602, 4960, 186, 2, 41, "Output",ExpressionUUID->"14b07285-861c-494a-b741-278877e68221"] }, Open ]], Cell[CellGroupData[{ -Cell[185076, 5110, 181, 5, 55, "Input",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], -Cell[185260, 5117, 173, 3, 41, "Output",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +Cell[185825, 4967, 166, 4, 71, "Input",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], +Cell[185994, 4973, 191, 2, 41, "Output",ExpressionUUID->"69bfc78a-0bec-47d2-be09-c23a7710a725"] }, Open ]], Cell[CellGroupData[{ -Cell[185470, 5125, 181, 5, 55, "Input",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], -Cell[185654, 5132, 170, 3, 41, "Output",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +Cell[186222, 4980, 166, 4, 69, "Input",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], +Cell[186391, 4986, 187, 2, 41, "Output",ExpressionUUID->"9fa4b770-1286-4b56-99d4-17741b8723a6"] }, Open ]], Cell[CellGroupData[{ -Cell[185861, 5140, 6055, 185, 831, "Input",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], -Cell[191919, 5327, 174, 3, 41, "Output",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +Cell[186615, 4993, 177, 4, 55, "Input",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], +Cell[186795, 4999, 191, 2, 41, "Output",ExpressionUUID->"723fffe8-d2e0-4dda-99aa-1ac6d5cd23c4"] }, Open ]], Cell[CellGroupData[{ -Cell[192130, 5335, 368, 9, 53, "Input",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], -Cell[192501, 5346, 170, 3, 41, "Output",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +Cell[187023, 5006, 177, 4, 55, "Input",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], +Cell[187203, 5012, 190, 2, 41, "Output",ExpressionUUID->"98f8196c-d83a-481f-a7f7-c869cddd667c"] }, Open ]], Cell[CellGroupData[{ -Cell[192708, 5354, 6122, 187, 900, "Input",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], -Cell[198833, 5543, 174, 3, 41, "Output",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +Cell[187430, 5019, 6051, 184, 831, "Input",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], +Cell[193484, 5205, 194, 2, 41, "Output",ExpressionUUID->"019e8701-a910-42a7-abb0-89819bbade04"] }, Open ]], Cell[CellGroupData[{ -Cell[199044, 5551, 368, 9, 53, "Input",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], -Cell[199415, 5562, 170, 3, 41, "Output",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +Cell[193715, 5212, 364, 8, 53, "Input",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], +Cell[194082, 5222, 189, 2, 41, "Output",ExpressionUUID->"716e1d34-89af-41e0-a655-cb2e6e962a74"] }, Open ]], Cell[CellGroupData[{ -Cell[199622, 5570, 2663, 88, 435, "Input",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], -Cell[202288, 5660, 171, 3, 41, "Output",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +Cell[194308, 5229, 6118, 186, 900, "Input",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], +Cell[200429, 5417, 193, 2, 41, "Output",ExpressionUUID->"cf1f3bcf-e510-4047-91a4-6623c906efea"] }, Open ]], Cell[CellGroupData[{ -Cell[202496, 5668, 2603, 85, 435, "Input",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], -Cell[205102, 5755, 171, 3, 41, "Output",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +Cell[200659, 5424, 364, 8, 53, "Input",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], +Cell[201026, 5434, 190, 2, 41, "Output",ExpressionUUID->"b6d14cd3-43ce-4a2f-b3b3-290991a75be8"] }, Open ]], Cell[CellGroupData[{ -Cell[205310, 5763, 3712, 118, 575, "Input",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], -Cell[209025, 5883, 171, 3, 41, "Output",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] +Cell[201253, 5441, 2659, 87, 435, "Input",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], +Cell[203915, 5530, 190, 2, 41, "Output",ExpressionUUID->"85a48b6e-f80e-4f6a-9a89-985bc857bc5d"] }, Open ]], -Cell[209211, 5889, 138, 3, 36, "Input",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], Cell[CellGroupData[{ -Cell[209374, 5896, 2054, 59, 276, "Input",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], -Cell[211431, 5957, 566, 12, 91, "Message",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], -Cell[212000, 5971, 569, 12, 91, "Message",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], -Cell[212572, 5985, 570, 12, 91, "Message",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], -Cell[213145, 5999, 458, 10, 26, "Message",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], -Cell[213606, 6011, 172, 3, 41, "Output",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +Cell[204142, 5537, 2599, 84, 435, "Input",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], +Cell[206744, 5623, 189, 2, 41, "Output",ExpressionUUID->"a77f6f36-f62c-45a7-9c61-115006c8519f"] }, Open ]], Cell[CellGroupData[{ -Cell[213815, 6019, 2052, 59, 276, "Input",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], -Cell[215870, 6080, 564, 12, 91, "Message",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], -Cell[216437, 6094, 567, 12, 91, "Message",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], -Cell[217007, 6108, 570, 12, 91, "Message",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], -Cell[217580, 6122, 455, 10, 26, "Message",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], -Cell[218038, 6134, 169, 3, 41, "Output",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +Cell[206970, 5630, 3708, 117, 575, "Input",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], +Cell[210681, 5749, 191, 2, 41, "Output",ExpressionUUID->"9dab39a9-5e76-4ddc-ad63-68f623a64d87"] }, Open ]], +Cell[210887, 5754, 160, 3, 109, "Input",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], Cell[CellGroupData[{ -Cell[218244, 6142, 1936, 53, 232, "Input",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], -Cell[220183, 6197, 19983, 375, 295, "Output",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] +Cell[211072, 5761, 2073, 58, 276, "Input",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], +Cell[213148, 5821, 665, 14, 73, "Message",ExpressionUUID->"7cafd016-e5d8-4c5c-86b5-a5f35fab93df"], +Cell[213816, 5837, 665, 14, 73, "Message",ExpressionUUID->"20ceae4d-4478-4cf5-9dbb-b14ef9d66623"], +Cell[214484, 5853, 664, 14, 73, "Message",ExpressionUUID->"52ecdf5b-4d0e-40b2-aac0-29b3faf75ecd"], +Cell[215151, 5869, 492, 11, 32, "Message",ExpressionUUID->"78572f31-64dd-48f4-86a6-c64b1abb4209"], +Cell[215646, 5882, 190, 2, 41, "Output",ExpressionUUID->"26539f58-86f1-451a-8e08-e9684316114f"] }, Open ]], Cell[CellGroupData[{ -Cell[240203, 6577, 2092, 60, 311, "Input",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], -Cell[242298, 6639, 501, 11, 71, "Message",ExpressionUUID->"53d31480-3c5e-ef4a-987b-a232cf0b03f3"], -Cell[242802, 6652, 503, 11, 71, "Message",ExpressionUUID->"b7d94271-16f1-6346-b579-21279019eafb"], -Cell[243308, 6665, 506, 11, 71, "Message",ExpressionUUID->"bfaea4b0-a812-1847-9911-9291b70d2c8f"], -Cell[243817, 6678, 456, 10, 26, "Message",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], -Cell[244276, 6690, 41581, 727, 292, "Output",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] +Cell[215873, 5889, 2071, 58, 276, "Input",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], +Cell[217947, 5949, 665, 14, 73, "Message",ExpressionUUID->"0eddc5e1-b9ba-4e8f-ba51-ca9a723c8d20"], +Cell[218615, 5965, 663, 14, 73, "Message",ExpressionUUID->"f8d134fa-a1a0-4684-8c9d-975cf1a64ba5"], +Cell[219281, 5981, 661, 14, 73, "Message",ExpressionUUID->"081011b2-dead-4f58-ad04-39d251af642f"], +Cell[219945, 5997, 490, 11, 32, "Message",ExpressionUUID->"85410dc1-d10f-4b3b-a9d1-df9a982df3ec"], +Cell[220438, 6010, 187, 2, 41, "Output",ExpressionUUID->"b28f9f28-d719-4b60-b687-e0b3671fcd97"] }, Open ]], -Cell[285872, 7420, 2453, 69, 140, "Input",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], -Cell[288328, 7491, 209, 5, 36, "Input",ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-0ac982b58a3a"], Cell[CellGroupData[{ -Cell[288562, 7500, 217, 7, 61, "Input",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], -Cell[288782, 7509, 170, 3, 41, "Output",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +Cell[220662, 6017, 2047, 54, 232, "Input",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], +Cell[222712, 6073, 20257, 382, 295, "Output",ExpressionUUID->"b31425a1-3286-48ec-873c-8794e91494c9"] }, Open ]], Cell[CellGroupData[{ -Cell[288989, 7517, 1814, 53, 116, "Input",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], -Cell[290806, 7572, 506, 11, 48, "Message",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], -Cell[291315, 7585, 512, 11, 48, "Message",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], -Cell[291830, 7598, 509, 11, 48, "Message",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], -Cell[292342, 7611, 456, 10, 26, "Message",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], -Cell[292801, 7623, 22336, 412, 290, "Output",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] +Cell[243006, 6460, 2111, 59, 311, "Input",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], +Cell[245120, 6521, 531, 12, 71, "Message",ExpressionUUID->"23a30e76-6bc4-4a61-b383-73b32a5e567d"], +Cell[245654, 6535, 533, 12, 71, "Message",ExpressionUUID->"bc4028fa-9a8b-48cc-bbb5-ae55d7c68e5c"], +Cell[246190, 6549, 536, 12, 71, "Message",ExpressionUUID->"1bda2c41-2fb4-4208-9d66-b1b36b5df5b5"], +Cell[246729, 6563, 491, 11, 32, "Message",ExpressionUUID->"25419ce6-70e8-44c6-bb0f-d5c99cbccccf"], +Cell[247223, 6576, 22182, 410, 290, "Output",ExpressionUUID->"2885ccfa-4fe8-4de9-84d5-f60feb6bed87"] }, Open ]], Cell[CellGroupData[{ -Cell[315174, 8040, 1616, 48, 86, "Input",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], -Cell[316793, 8090, 584, 12, 109, "Message",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], -Cell[317380, 8104, 588, 12, 109, "Message",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], -Cell[317971, 8118, 591, 12, 109, "Message",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], -Cell[318565, 8132, 456, 10, 109, "Message",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], -Cell[319024, 8144, 173, 3, 109, "Output",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] +Cell[269442, 6991, 2475, 69, 296, "Input",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], +Cell[271920, 7062, 9492, 222, 298, "Output",ExpressionUUID->"e01e7edc-d43a-4816-9017-75b19e1acef9"] }, Open ]], Cell[CellGroupData[{ -Cell[319234, 8152, 2274, 65, 109, "Input",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], -Cell[321511, 8219, 566, 12, 109, "Message",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], -Cell[322080, 8233, 569, 12, 109, "Message",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], -Cell[322652, 8247, 572, 12, 109, "Message",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], -Cell[323227, 8261, 458, 10, 109, "Message",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], -Cell[323688, 8273, 171, 3, 109, "Output",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] +Cell[281449, 7289, 228, 4, 36, "Input",ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-0ac982b58a3a"], +Cell[281680, 7295, 28542, 542, 290, "Output",ExpressionUUID->"8d225a3f-9689-4a38-b1f4-c2f2022b9184"] }, Open ]], Cell[CellGroupData[{ -Cell[323896, 8281, 2221, 64, 109, "Input",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], -Cell[326120, 8347, 564, 12, 109, "Message",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], -Cell[326687, 8361, 567, 12, 109, "Message",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], -Cell[327257, 8375, 570, 12, 109, "Message",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], -Cell[327830, 8389, 456, 10, 109, "Message",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], -Cell[328289, 8401, 173, 3, 109, "Output",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] +Cell[310259, 7842, 236, 6, 61, "Input",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], +Cell[310498, 7850, 188, 2, 41, "Output",ExpressionUUID->"2266310a-22fa-406e-8637-bb34247786d1"] }, Open ]], Cell[CellGroupData[{ -Cell[328499, 8409, 2223, 64, 109, "Input",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], -Cell[330725, 8475, 566, 12, 109, "Message",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], -Cell[331294, 8489, 569, 12, 109, "Message",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], -Cell[331866, 8503, 570, 12, 109, "Message",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], -Cell[332439, 8517, 458, 10, 109, "Message",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], -Cell[332900, 8529, 170, 3, 109, "Output",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] +Cell[310723, 7857, 1833, 52, 311, "Input",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], +Cell[312559, 7911, 545, 12, 71, "Message",ExpressionUUID->"eada4eba-9e22-49a4-96fd-d7dae60bb8f8"], +Cell[313107, 7925, 546, 12, 71, "Message",ExpressionUUID->"4df9f690-e43e-4548-a3f5-b54bd40f670c"], +Cell[313656, 7939, 547, 12, 71, "Message",ExpressionUUID->"665bfb04-8444-4537-9b53-a7cc8c56d199"], +Cell[314206, 7953, 491, 11, 32, "Message",ExpressionUUID->"e322a12d-385e-45c9-bfd5-ffdaeee950ed"], +Cell[314700, 7966, 21895, 407, 290, "Output",ExpressionUUID->"b9900aa5-360f-49fb-a7a0-df4d7204fd2a"] }, Open ]], Cell[CellGroupData[{ -Cell[333107, 8537, 213, 6, 109, "Input",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], -Cell[333323, 8545, 171, 3, 109, "Output",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] +Cell[336632, 8378, 1616, 48, 132, "Input",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], +Cell[338251, 8428, 666, 14, 73, "Message",ExpressionUUID->"72bfca20-4259-4d84-b091-7cffb26f06bc"], +Cell[338920, 8444, 665, 14, 73, "Message",ExpressionUUID->"0547b05a-0199-4a95-9784-db705b5566c2"], +Cell[339588, 8460, 665, 14, 73, "Message",ExpressionUUID->"05eda47c-e3ca-47f8-82fd-c70a13b7368f"], +Cell[340256, 8476, 493, 11, 32, "Message",ExpressionUUID->"af103c8e-c0da-44c7-91b1-3c25f80d066e"], +Cell[340752, 8489, 195, 3, 41, "Output",ExpressionUUID->"e7b74799-2489-4832-b248-ffbd39fbaf05"] }, Open ]], -Cell[333509, 8551, 244, 5, 109, "Input",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], Cell[CellGroupData[{ -Cell[333778, 8560, 558, 19, 109, "Input",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], -Cell[334339, 8581, 173, 3, 109, "Output",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] +Cell[340984, 8497, 2296, 65, 348, "Input",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], +Cell[343283, 8564, 668, 14, 73, "Message",ExpressionUUID->"53e6dcf2-42ea-494a-8ae2-c049e9234443"], +Cell[343954, 8580, 670, 14, 73, "Message",ExpressionUUID->"32dc15eb-74bb-4563-8848-d63186295a45"], +Cell[344627, 8596, 669, 14, 73, "Message",ExpressionUUID->"bd23c129-540a-484d-89de-5efa282aa7b2"], +Cell[345299, 8612, 495, 11, 32, "Message",ExpressionUUID->"21f02058-ea44-4a81-b491-ef07736fc3fa"], +Cell[345797, 8625, 196, 3, 41, "Output",ExpressionUUID->"c017c4e5-a143-4dfa-8319-4fe5db4d5f5e"] }, Open ]], Cell[CellGroupData[{ -Cell[334549, 8589, 170, 5, 109, "Input",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], -Cell[334722, 8596, 171, 3, 109, "Output",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] +Cell[346030, 8633, 2233, 63, 348, "Input",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], +Cell[348266, 8698, 666, 14, 73, "Message",ExpressionUUID->"f0b02e35-abef-4576-b167-bd06f72e68f9"], +Cell[348935, 8714, 666, 14, 73, "Message",ExpressionUUID->"ff4d3366-1a2a-4b6b-a790-e5c59cbafae5"], +Cell[349604, 8730, 665, 14, 73, "Message",ExpressionUUID->"8ed22d98-5fa6-4fbc-a1f3-2d524fe8e925"], +Cell[350272, 8746, 493, 11, 32, "Message",ExpressionUUID->"14b0c364-fec9-433f-bede-738afa54cd1c"], +Cell[350768, 8759, 194, 3, 41, "Output",ExpressionUUID->"5b2fdf84-7f3e-4ad4-8d0d-87988e3fa660"] }, Open ]], Cell[CellGroupData[{ -Cell[334930, 8604, 181, 5, 109, "Input",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], -Cell[335114, 8611, 173, 3, 109, "Output",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] +Cell[350999, 8767, 2235, 63, 348, "Input",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], +Cell[353237, 8832, 670, 14, 73, "Message",ExpressionUUID->"4722b0a0-f278-41d1-b43a-2484ef0640ff"], +Cell[353910, 8848, 670, 14, 73, "Message",ExpressionUUID->"a1740b5b-25d3-4c07-92d2-d29a6655cd2f"], +Cell[354583, 8864, 669, 14, 73, "Message",ExpressionUUID->"c922dee7-94f4-4f63-98d4-e5074ce24f82"], +Cell[355255, 8880, 495, 11, 32, "Message",ExpressionUUID->"606df507-1e58-41c4-ab3c-a23ac1399de8"], +Cell[355753, 8893, 191, 3, 41, "Output",ExpressionUUID->"69b5d21f-25b2-4faf-9b92-d6612149ff80"] }, Open ]], Cell[CellGroupData[{ -Cell[335324, 8619, 6055, 185, 109, "Input",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], -Cell[341382, 8806, 175, 3, 109, "Output",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] +Cell[355981, 8901, 236, 6, 60, "Input",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], +Cell[356220, 8909, 194, 3, 41, "Output",ExpressionUUID->"d0d536bb-d3c3-4286-8a3a-88d9a0a39b95"] }, Open ]], +Cell[356429, 8915, 270, 6, 36, "Input",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], Cell[CellGroupData[{ -Cell[341594, 8814, 368, 9, 109, "Input",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], -Cell[341965, 8825, 172, 3, 109, "Output",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] +Cell[356724, 8925, 558, 19, 66, "Input",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], +Cell[357285, 8946, 195, 3, 41, "Output",ExpressionUUID->"1f02b76d-9919-48c9-b2f6-d4ac44c60013"] }, Open ]], Cell[CellGroupData[{ -Cell[342174, 8833, 6122, 187, 109, "Input",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], -Cell[348299, 9022, 173, 3, 109, "Output",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] +Cell[357517, 8954, 170, 5, 71, "Input",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], +Cell[357690, 8961, 193, 3, 41, "Output",ExpressionUUID->"a60aabdf-092d-47cf-b2b1-a43b29718c1b"] }, Open ]], Cell[CellGroupData[{ -Cell[348509, 9030, 368, 9, 109, "Input",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], -Cell[348880, 9041, 170, 3, 109, "Output",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] +Cell[357920, 8969, 181, 5, 55, "Input",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], +Cell[358104, 8976, 197, 3, 41, "Output",ExpressionUUID->"c42e699b-084d-4477-b016-939b9379e6c1"] }, Open ]], Cell[CellGroupData[{ -Cell[349087, 9049, 2663, 88, 109, "Input",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], -Cell[351753, 9139, 171, 3, 109, "Output",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] +Cell[358338, 8984, 6055, 185, 831, "Input",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], +Cell[364396, 9171, 197, 3, 41, "Output",ExpressionUUID->"1f0cbda9-5188-4fc9-8f05-397c9396bf85"] }, Open ]], Cell[CellGroupData[{ -Cell[351961, 9147, 2603, 85, 109, "Input",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], -Cell[354567, 9234, 171, 3, 109, "Output",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] +Cell[364630, 9179, 368, 9, 53, "Input",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], +Cell[365001, 9190, 194, 3, 41, "Output",ExpressionUUID->"0971b32b-dd15-429c-86ae-78815de80523"] }, Open ]], Cell[CellGroupData[{ -Cell[354775, 9242, 3712, 118, 109, "Input",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], -Cell[358490, 9362, 170, 3, 109, "Output",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] +Cell[365232, 9198, 6122, 187, 900, "Input",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], +Cell[371357, 9387, 195, 3, 41, "Output",ExpressionUUID->"5006944a-8e7f-4a9f-9b3a-78e2c6b46545"] }, Open ]], Cell[CellGroupData[{ -Cell[358697, 9370, 2052, 59, 109, "Input",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], -Cell[360752, 9431, 573, 12, 109, "Message",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], -Cell[361328, 9445, 577, 12, 109, "Message",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], -Cell[361908, 9459, 580, 12, 109, "Message",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], -Cell[362491, 9473, 456, 10, 109, "Message",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], -Cell[362950, 9485, 170, 3, 109, "Output",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] +Cell[371589, 9395, 368, 9, 53, "Input",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], +Cell[371960, 9406, 193, 3, 41, "Output",ExpressionUUID->"8aaeaf26-510d-4831-8daa-4936d652e4f8"] }, Open ]], Cell[CellGroupData[{ -Cell[363157, 9493, 2054, 59, 109, "Input",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], -Cell[365214, 9554, 573, 12, 109, "Message",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], -Cell[365790, 9568, 577, 12, 109, "Message",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], -Cell[366370, 9582, 582, 12, 109, "Message",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], -Cell[366955, 9596, 456, 10, 109, "Message",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], -Cell[367414, 9608, 170, 3, 109, "Output",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] +Cell[372190, 9414, 2663, 88, 435, "Input",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], +Cell[374856, 9504, 194, 3, 41, "Output",ExpressionUUID->"e6365548-90a7-49aa-99fa-3cb1c9582212"] }, Open ]], Cell[CellGroupData[{ -Cell[367621, 9616, 2028, 55, 109, "Input",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], -Cell[369652, 9673, 20422, 382, 109, "Output",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] +Cell[375087, 9512, 2603, 85, 435, "Input",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], +Cell[377693, 9599, 192, 3, 41, "Output",ExpressionUUID->"cf263a1a-a55f-4e62-84bc-94e927b8c2ac"] }, Open ]], Cell[CellGroupData[{ -Cell[390111, 10060, 2120, 60, 109, "Input",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], -Cell[392234, 10122, 502, 11, 109, "Message",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], -Cell[392739, 10135, 506, 11, 109, "Message",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], -Cell[393248, 10148, 505, 11, 109, "Message",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], -Cell[393756, 10161, 458, 10, 109, "Message",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], -Cell[394217, 10173, 22288, 412, 109, "Output",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] +Cell[377922, 9607, 3712, 118, 575, "Input",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], +Cell[381637, 9727, 194, 3, 41, "Output",ExpressionUUID->"ea862e1c-3405-4714-89d1-c12af4cb84fd"] }, Open ]], -Cell[416520, 10588, 209, 5, 109, "Input",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], Cell[CellGroupData[{ -Cell[416754, 10597, 1616, 48, 109, "Input",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], -Cell[418373, 10647, 595, 12, 109, "Message",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], -Cell[418971, 10661, 595, 12, 109, "Message",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], -Cell[419569, 10675, 599, 12, 109, "Message",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], -Cell[420171, 10689, 456, 10, 109, "Message",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], -Cell[420630, 10701, 171, 3, 109, "Output",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] +Cell[381868, 9735, 2075, 59, 276, "Input",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], +Cell[383946, 9796, 547, 12, 71, "Message",ExpressionUUID->"2e83de5b-4c4f-4469-aba6-03f03df2b9dc"], +Cell[384496, 9810, 551, 12, 71, "Message",ExpressionUUID->"6523d114-305a-4635-8017-8fda9c0925d5"], +Cell[385050, 9824, 553, 12, 71, "Message",ExpressionUUID->"156b104a-d5e9-46d3-9f89-cba477be9363"], +Cell[385606, 9838, 495, 11, 32, "Message",ExpressionUUID->"00739a1b-690e-4226-b4df-a9beaa2a321d"], +Cell[386104, 9851, 193, 3, 41, "Output",ExpressionUUID->"914408e4-7733-4e30-b7e0-49bbf481129d"] }, Open ]], Cell[CellGroupData[{ -Cell[420838, 10709, 2248, 64, 109, "Input",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], -Cell[423089, 10775, 575, 12, 109, "Message",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], -Cell[423667, 10789, 577, 12, 109, "Message",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], -Cell[424247, 10803, 582, 12, 109, "Message",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], -Cell[424832, 10817, 458, 10, 109, "Message",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], -Cell[425293, 10829, 172, 3, 109, "Output",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] +Cell[386334, 9859, 2077, 59, 276, "Input",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], +Cell[388414, 9920, 549, 12, 71, "Message",ExpressionUUID->"52044455-34d2-4b82-9362-9dc39ee75454"], +Cell[388966, 9934, 549, 12, 71, "Message",ExpressionUUID->"6650b674-b15d-40f4-9e07-9338313e3135"], +Cell[389518, 9948, 553, 12, 71, "Message",ExpressionUUID->"a110e44a-c04f-42fa-9022-b5aca1cd29d5"], +Cell[390074, 9962, 492, 11, 32, "Message",ExpressionUUID->"d03d33ec-b20a-4d6b-ab14-b3b737cd5aa4"], +Cell[390569, 9975, 193, 3, 41, "Output",ExpressionUUID->"887f84bf-85a1-4947-88ec-55676d6d8dd9"] }, Open ]], Cell[CellGroupData[{ -Cell[425502, 10837, 2215, 63, 109, "Input",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], -Cell[427720, 10902, 575, 12, 109, "Message",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], -Cell[428298, 10916, 577, 12, 109, "Message",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], -Cell[428878, 10930, 582, 12, 109, "Message",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], -Cell[429463, 10944, 458, 10, 109, "Message",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], -Cell[429924, 10956, 170, 3, 109, "Output",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] +Cell[390799, 9983, 2051, 55, 232, "Input",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], +Cell[392853, 10040, 19787, 372, 285, "Output",ExpressionUUID->"7fc606d6-6ad7-4d53-8148-63df502869f5"] }, Open ]], Cell[CellGroupData[{ -Cell[430131, 10964, 2223, 64, 109, "Input",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], -Cell[432357, 11030, 573, 12, 109, "Message",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], -Cell[432933, 11044, 577, 12, 109, "Message",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], -Cell[433513, 11058, 580, 12, 109, "Message",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], -Cell[434096, 11072, 456, 10, 109, "Message",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], -Cell[434555, 11084, 173, 3, 109, "Output",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] +Cell[412677, 10417, 2143, 60, 311, "Input",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], +Cell[414823, 10479, 523, 12, 71, "Message",ExpressionUUID->"c68f7cc2-3c66-4d0e-8a35-a0e0fc4adcfb"], +Cell[415349, 10493, 528, 12, 71, "Message",ExpressionUUID->"168183eb-aeb5-4abe-a5ca-ccc4bffca4b3"], +Cell[415880, 10507, 491, 11, 53, "Message",ExpressionUUID->"3c4ec009-accc-4d56-b6a6-3413e3bca7c4"], +Cell[416374, 10520, 497, 11, 32, "Message",ExpressionUUID->"f7ee9cc1-47fc-4c81-af42-62847ad32f67"], +Cell[416874, 10533, 21844, 405, 291, "Output",ExpressionUUID->"3904b62e-9e2d-4eee-bc90-455c657d9efd"] }, Open ]], Cell[CellGroupData[{ -Cell[434765, 11092, 213, 6, 109, "Input",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], -Cell[434981, 11100, 173, 3, 109, "Output",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] +Cell[438755, 10943, 232, 5, 36, "Input",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], +Cell[438990, 10950, 28203, 537, 291, "Output",ExpressionUUID->"b60dc88a-231d-4a98-a45a-280b7b4e710e"] }, Open ]], -Cell[435169, 11106, 247, 5, 109, "Input",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], Cell[CellGroupData[{ -Cell[435441, 11115, 558, 19, 109, "Input",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], -Cell[436002, 11136, 173, 3, 109, "Output",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] +Cell[467230, 11492, 1616, 48, 132, "Input",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], +Cell[468849, 11542, 666, 14, 73, "Message",ExpressionUUID->"d7699f8e-1c1e-4c88-8a41-1d92aa3a0a30"], +Cell[469518, 11558, 670, 14, 73, "Message",ExpressionUUID->"f8cb9f27-23c9-4472-af29-7e1a7474fdb1"], +Cell[470191, 11574, 669, 14, 73, "Message",ExpressionUUID->"232e68b8-8ce2-4a45-bbb3-3befd8bc5dc6"], +Cell[470863, 11590, 495, 11, 32, "Message",ExpressionUUID->"e7a507c4-7d2b-45d2-8af1-33acf82254f2"], +Cell[471361, 11603, 194, 3, 41, "Output",ExpressionUUID->"b97e6ec3-fdb6-4b17-bb58-9023f554f2e0"] }, Open ]], Cell[CellGroupData[{ -Cell[436212, 11144, 170, 5, 109, "Input",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], -Cell[436385, 11151, 173, 3, 109, "Output",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] +Cell[471592, 11611, 2271, 64, 348, "Input",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], +Cell[473866, 11677, 549, 12, 71, "Message",ExpressionUUID->"278a75b0-4283-479b-83a2-a2aced808abe"], +Cell[474418, 11691, 553, 12, 71, "Message",ExpressionUUID->"d124b2d7-7821-4530-beb6-5bbc716d79f0"], +Cell[474974, 11705, 555, 12, 71, "Message",ExpressionUUID->"678ebcec-2dab-46a5-aac0-e55471bd99ee"], +Cell[475532, 11719, 495, 11, 32, "Message",ExpressionUUID->"d81d4980-431b-4c8d-b8be-43326cd0add4"], +Cell[476030, 11732, 199, 3, 41, "Output",ExpressionUUID->"3968d77c-532f-49e5-b131-e8a39eb0c1ec"] }, Open ]], Cell[CellGroupData[{ -Cell[436595, 11159, 181, 5, 109, "Input",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], -Cell[436779, 11166, 173, 3, 109, "Output",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] +Cell[476266, 11740, 2229, 63, 348, "Input",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], +Cell[478498, 11805, 551, 12, 71, "Message",ExpressionUUID->"6dac29c9-6afb-4979-8789-8eec21157677"], +Cell[479052, 11819, 551, 12, 71, "Message",ExpressionUUID->"3b36872c-348c-4dc6-b5f7-2c12275573d7"], +Cell[479606, 11833, 557, 12, 71, "Message",ExpressionUUID->"ce50b023-f9ed-45d4-89a5-237900de6ba2"], +Cell[480166, 11847, 494, 11, 32, "Message",ExpressionUUID->"accada3f-1eae-4f99-85f2-239c075430d0"], +Cell[480663, 11860, 192, 3, 41, "Output",ExpressionUUID->"afe69ccf-dc94-4950-a4b3-af993bcc8c69"] }, Open ]], Cell[CellGroupData[{ -Cell[436989, 11174, 6055, 185, 109, "Input",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], -Cell[443047, 11361, 172, 3, 109, "Output",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] +Cell[480892, 11868, 2235, 63, 348, "Input",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], +Cell[483130, 11933, 547, 12, 71, "Message",ExpressionUUID->"0d2bfc4a-85ed-4aae-9a4a-e7487f30eb58"], +Cell[483680, 11947, 549, 12, 71, "Message",ExpressionUUID->"e78350ee-e310-411c-91b8-67aac53e20cc"], +Cell[484232, 11961, 553, 12, 71, "Message",ExpressionUUID->"096d06ff-edff-45d7-ba8e-4e7e2e3e8b6c"], +Cell[484788, 11975, 493, 11, 32, "Message",ExpressionUUID->"40a42eb5-4672-493c-8815-aaafea8dd98e"], +Cell[485284, 11988, 193, 3, 41, "Output",ExpressionUUID->"5b1c3a27-7239-45b0-ba82-035ca05971b7"] }, Open ]], Cell[CellGroupData[{ -Cell[443256, 11369, 368, 9, 109, "Input",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], -Cell[443627, 11380, 172, 3, 109, "Output",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] +Cell[485514, 11996, 236, 6, 60, "Input",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], +Cell[485753, 12004, 199, 3, 41, "Output",ExpressionUUID->"767349f7-328f-41df-bc52-ef9b269385da"] }, Open ]], +Cell[485967, 12010, 273, 6, 109, "Input",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], Cell[CellGroupData[{ -Cell[443836, 11388, 6122, 187, 109, "Input",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], -Cell[449961, 11577, 173, 3, 109, "Output",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] +Cell[486265, 12020, 558, 19, 66, "Input",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], +Cell[486826, 12041, 197, 3, 41, "Output",ExpressionUUID->"28127554-30d1-4466-8637-d619564e641d"] }, Open ]], Cell[CellGroupData[{ -Cell[450171, 11585, 368, 9, 109, "Input",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], -Cell[450542, 11596, 170, 3, 109, "Output",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] +Cell[487060, 12049, 170, 5, 71, "Input",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], +Cell[487233, 12056, 197, 3, 41, "Output",ExpressionUUID->"44ba7d40-e6e4-44f4-af55-406fc382c19e"] }, Open ]], Cell[CellGroupData[{ -Cell[450749, 11604, 2663, 88, 109, "Input",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], -Cell[453415, 11694, 171, 3, 109, "Output",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] +Cell[487467, 12064, 181, 5, 55, "Input",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], +Cell[487651, 12071, 195, 3, 41, "Output",ExpressionUUID->"e5b2cdac-363f-409e-8ae9-0077f0129355"] }, Open ]], Cell[CellGroupData[{ -Cell[453623, 11702, 2603, 85, 109, "Input",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], -Cell[456229, 11789, 173, 3, 109, "Output",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] +Cell[487883, 12079, 6055, 185, 831, "Input",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], +Cell[493941, 12266, 195, 3, 41, "Output",ExpressionUUID->"7bd06dcc-b647-4eed-9b06-1d2175330ec8"] }, Open ]], Cell[CellGroupData[{ -Cell[456439, 11797, 3712, 118, 109, "Input",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], -Cell[460154, 11917, 173, 3, 109, "Output",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] +Cell[494173, 12274, 368, 9, 53, "Input",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], +Cell[494544, 12285, 194, 3, 41, "Output",ExpressionUUID->"e61c49c6-04a0-4d34-8c92-e35d386b9bdf"] }, Open ]], Cell[CellGroupData[{ -Cell[460364, 11925, 2052, 59, 109, "Input",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], -Cell[462419, 11986, 568, 12, 109, "Message",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], -Cell[462990, 12000, 573, 12, 109, "Message",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], -Cell[463566, 12014, 576, 12, 109, "Message",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], -Cell[464145, 12028, 458, 10, 109, "Message",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], -Cell[464606, 12040, 172, 3, 109, "Output",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] +Cell[494775, 12293, 6122, 187, 900, "Input",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], +Cell[500900, 12482, 195, 3, 41, "Output",ExpressionUUID->"8c9b2932-e72b-4049-8b4d-66df97dd3979"] }, Open ]], Cell[CellGroupData[{ -Cell[464815, 12048, 2052, 59, 109, "Input",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], -Cell[466870, 12109, 568, 12, 109, "Message",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], -Cell[467441, 12123, 573, 12, 109, "Message",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], -Cell[468017, 12137, 574, 12, 109, "Message",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], -Cell[468594, 12151, 458, 10, 109, "Message",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], -Cell[469055, 12163, 172, 3, 109, "Output",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] +Cell[501132, 12490, 368, 9, 53, "Input",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], +Cell[501503, 12501, 192, 3, 41, "Output",ExpressionUUID->"a333c733-3e74-4b06-b6a8-6ad224bb999c"] }, Open ]], Cell[CellGroupData[{ -Cell[469264, 12171, 2028, 55, 109, "Input",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], -Cell[471295, 12228, 20375, 384, 109, "Output",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] +Cell[501732, 12509, 2663, 88, 435, "Input",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], +Cell[504398, 12599, 194, 3, 41, "Output",ExpressionUUID->"1167b811-4935-4e0e-b1b0-828a11876567"] }, Open ]], Cell[CellGroupData[{ -Cell[491707, 12617, 2118, 60, 109, "Input",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], -Cell[493828, 12679, 501, 11, 109, "Message",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], -Cell[494332, 12692, 503, 11, 109, "Message",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], -Cell[494838, 12705, 506, 11, 109, "Message",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], -Cell[495347, 12718, 458, 10, 109, "Message",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], -Cell[495808, 12730, 22161, 409, 109, "Output",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] +Cell[504629, 12607, 2603, 85, 435, "Input",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], +Cell[507235, 12694, 197, 3, 41, "Output",ExpressionUUID->"107bd491-b382-45a4-8620-23f546d39cfd"] }, Open ]], -Cell[517984, 13142, 209, 5, 109, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], Cell[CellGroupData[{ -Cell[518218, 13151, 1616, 48, 109, "Input",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], -Cell[519837, 13201, 590, 12, 109, "Message",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], -Cell[520430, 13215, 589, 12, 109, "Message",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], -Cell[521022, 13229, 593, 12, 109, "Message",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], -Cell[521618, 13243, 456, 10, 109, "Message",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], -Cell[522077, 13255, 170, 3, 109, "Output",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] +Cell[507469, 12702, 3712, 118, 575, "Input",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], +Cell[511184, 12822, 195, 3, 41, "Output",ExpressionUUID->"96da1930-c615-4099-b627-8012545f165c"] }, Open ]], Cell[CellGroupData[{ -Cell[522284, 13263, 2251, 64, 109, "Input",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], -Cell[524538, 13329, 568, 12, 109, "Message",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], -Cell[525109, 13343, 573, 12, 109, "Message",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], -Cell[525685, 13357, 574, 12, 109, "Message",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], -Cell[526262, 13371, 458, 10, 109, "Message",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], -Cell[526723, 13383, 173, 3, 109, "Output",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] +Cell[511416, 12830, 2075, 59, 276, "Input",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], +Cell[513494, 12891, 571, 12, 98, "Message",ExpressionUUID->"640f9f6a-9d75-4f23-8b44-7eeb9c74e475"], +Cell[514068, 12905, 666, 14, 73, "Message",ExpressionUUID->"77942d02-0e25-45aa-868e-f768c51342d7"], +Cell[514737, 12921, 665, 14, 73, "Message",ExpressionUUID->"c6c5bae5-4e26-4fb3-9d55-a39bb3a5359f"], +Cell[515405, 12937, 493, 11, 32, "Message",ExpressionUUID->"1e88ec55-09c2-407b-a5f9-a95308866949"], +Cell[515901, 12950, 195, 3, 41, "Output",ExpressionUUID->"51504499-60f0-4e66-980e-b2301b8cfcce"] }, Open ]], Cell[CellGroupData[{ -Cell[526933, 13391, 2221, 64, 109, "Input",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], -Cell[529157, 13457, 570, 12, 109, "Message",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], -Cell[529730, 13471, 573, 12, 109, "Message",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], -Cell[530306, 13485, 573, 12, 109, "Message",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], -Cell[530882, 13499, 458, 10, 109, "Message",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], -Cell[531343, 13511, 171, 3, 109, "Output",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] +Cell[516133, 12958, 2075, 59, 276, "Input",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], +Cell[518211, 13019, 570, 12, 98, "Message",ExpressionUUID->"f1926d15-8e7f-4c83-ac89-aaf87abe21b0"], +Cell[518784, 13033, 668, 14, 73, "Message",ExpressionUUID->"119de116-a1fa-426c-a3c6-d903d04e6b2b"], +Cell[519455, 13049, 667, 14, 73, "Message",ExpressionUUID->"9ef78fad-9d7e-4674-a7a5-a0644a957651"], +Cell[520125, 13065, 493, 11, 32, "Message",ExpressionUUID->"fc8e0a81-5430-411e-9d9e-0e365cd7f8ab"], +Cell[520621, 13078, 196, 3, 41, "Output",ExpressionUUID->"d5c1c2cf-e367-4a2e-854c-b810eb563ee2"] }, Open ]], Cell[CellGroupData[{ -Cell[531551, 13519, 2221, 64, 109, "Input",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], -Cell[533775, 13585, 570, 12, 109, "Message",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], -Cell[534348, 13599, 573, 12, 109, "Message",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], -Cell[534924, 13613, 574, 12, 109, "Message",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], -Cell[535501, 13627, 458, 10, 109, "Message",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], -Cell[535962, 13639, 173, 3, 109, "Output",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] +Cell[520854, 13086, 2051, 55, 232, "Input",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], +Cell[522908, 13143, 20369, 383, 290, "Output",ExpressionUUID->"7500640f-0efa-4316-a90d-1ade1e7ddd2a"] }, Open ]], Cell[CellGroupData[{ -Cell[536172, 13647, 215, 6, 109, "Input",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], -Cell[536390, 13655, 172, 3, 109, "Output",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] -}, Open ]] +Cell[543314, 13531, 2141, 60, 311, "Input",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], +Cell[545458, 13593, 532, 12, 71, "Message",ExpressionUUID->"f4e20a45-0df5-4044-869b-e2057e349ab3"], +Cell[545993, 13607, 535, 12, 71, "Message",ExpressionUUID->"429ab67d-0c02-4fb4-a7b5-0131ec5a4b7c"], +Cell[546531, 13621, 535, 12, 71, "Message",ExpressionUUID->"6ef35734-b3a2-4f08-b011-7f87fc18dc65"], +Cell[547069, 13635, 494, 11, 32, "Message",ExpressionUUID->"94c375d0-c5d5-4502-b385-5ea0920c65ac"], +Cell[547566, 13648, 22088, 411, 293, "Output",ExpressionUUID->"1a2eca2c-fca9-4f8e-8572-598ca5d3eb15"] +}, Open ]], +Cell[CellGroupData[{ +Cell[569691, 14064, 232, 5, 36, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], +Cell[569926, 14071, 28450, 543, 293, "Output",ExpressionUUID->"0cef87a8-e5fa-4308-ab35-d63f25931a2f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[598413, 14619, 1616, 48, 132, "Input",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], +Cell[600032, 14669, 665, 14, 73, "Message",ExpressionUUID->"5fc69697-6f9c-49e9-ba6d-65d8e9de3b88"], +Cell[600700, 14685, 670, 14, 73, "Message",ExpressionUUID->"08efb50d-055c-4c6a-8895-487f83e4d1fb"], +Cell[601373, 14701, 670, 14, 73, "Message",ExpressionUUID->"c1dc5cef-44d2-406d-9823-b20bd76939c7"], +Cell[602046, 14717, 495, 11, 32, "Message",ExpressionUUID->"b6e0a737-d4f3-40f6-933d-93926aa8e799"], +Cell[602544, 14730, 193, 3, 41, "Output",ExpressionUUID->"ea2b4407-d33b-4e59-8b0d-c1f54248c6a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[602774, 14738, 2274, 64, 348, "Input",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], +Cell[605051, 14804, 573, 12, 98, "Message",ExpressionUUID->"29f225f7-8aa6-4bc4-b342-51be74f7ce3c"], +Cell[605627, 14818, 666, 14, 73, "Message",ExpressionUUID->"02643849-052a-411b-920e-60a57b3b6b1b"], +Cell[606296, 14834, 665, 14, 73, "Message",ExpressionUUID->"b3bfafd0-4036-4a13-8632-fab151140569"], +Cell[606964, 14850, 495, 11, 32, "Message",ExpressionUUID->"dbd45ee4-0d1c-4dc1-9b92-a5938ea13d24"], +Cell[607462, 14863, 196, 3, 41, "Output",ExpressionUUID->"d4ac6eb0-4e4b-41fd-8624-9d31603b2111"] +}, Open ]], +Cell[CellGroupData[{ +Cell[607695, 14871, 2233, 63, 348, "Input",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], +Cell[609931, 14936, 573, 12, 98, "Message",ExpressionUUID->"462ffa96-a998-4d0e-a62e-501759c242b9"], +Cell[610507, 14950, 668, 14, 73, "Message",ExpressionUUID->"940ada9d-3b05-49fe-b351-86756a73c476"], +Cell[611178, 14966, 669, 14, 73, "Message",ExpressionUUID->"0cb870b8-3657-4fff-a896-5bbcbbc75e37"], +Cell[611850, 14982, 497, 11, 32, "Message",ExpressionUUID->"3a072c00-9160-4363-8445-cd0d1ffbde1a"], +Cell[612350, 14995, 193, 3, 41, "Output",ExpressionUUID->"65ecfb76-f421-4360-a6e1-e49d57967da2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[612580, 15003, 2233, 63, 348, "Input",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], +Cell[614816, 15068, 573, 12, 98, "Message",ExpressionUUID->"6f129588-5325-48dc-8155-c192a1787fda"], +Cell[615392, 15082, 668, 14, 73, "Message",ExpressionUUID->"416a1b9e-7971-4dc8-b83b-ac986d85a5ae"], +Cell[616063, 15098, 667, 14, 73, "Message",ExpressionUUID->"069a3b73-a9a1-4fd9-b8a5-47fb2c6c1528"], +Cell[616733, 15114, 494, 11, 32, "Message",ExpressionUUID->"1c6cfd7a-7ff1-4437-b4e9-2ea99717861e"], +Cell[617230, 15127, 196, 3, 41, "Output",ExpressionUUID->"3d903ab9-5740-4f41-93cc-98787318b6ed"] +}, Open ]], +Cell[CellGroupData[{ +Cell[617463, 15135, 238, 6, 60, "Input",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], +Cell[617704, 15143, 196, 3, 41, "Output",ExpressionUUID->"11ee435d-114b-4973-a8ad-f2aecadadd3d"] +}, Open ]], +Cell[617915, 15149, 143, 3, 36, "Input",ExpressionUUID->"c29726ec-4d1d-47ca-bc6a-71e70e02eb8a"] } ] *) diff --git a/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_pr_Qw1.nb b/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_pr_Qw1.nb index d9aaccf..9235794 100644 --- a/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_pr_Qw1.nb +++ b/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_pr_Qw1.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 614550, 14919] -NotebookOptionsPosition[ 574738, 14289] -NotebookOutlinePosition[ 575179, 14307] -CellTagsIndexPosition[ 575136, 14304] +NotebookDataLength[ 679717, 16137] +NotebookOptionsPosition[ 639080, 15487] +NotebookOutlinePosition[ 639551, 15506] +CellTagsIndexPosition[ 639508, 15503] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -26,15 +26,13 @@ Cell[BoxData[ 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, 3.9920650045886707`*^9, {3.9940821364341908`*^9, 3.994082136546945*^9}, { 3.99408222505837*^9, 3.9940822566678658`*^9}}, - CellLabel-> - "In[371]:=",ExpressionUUID->"b889bfd4-807d-422d-ac7f-c02fd6ee8510"], + CellLabel->"In[1]:=",ExpressionUUID->"b889bfd4-807d-422d-ac7f-c02fd6ee8510"], Cell[BoxData["1.85`"], "Output", CellChangeTimes->{ 3.991320420900818*^9, 3.9940821397588*^9, {3.9940822104439507`*^9, - 3.994082259420228*^9}}, - CellLabel-> - "Out[371]=",ExpressionUUID->"529ad15b-e6ad-49ce-88cf-317318b34ca1"] + 3.994082259420228*^9}, 3.994256405192892*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"4ecc2b7e-9e89-4387-95ed-66288b9324f9"] }, Open ]], Cell[CellGroupData[{ @@ -43,15 +41,13 @@ Cell[BoxData[ RowBox[{"A", "=", "240"}]], "Input", CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { 3.99407306326154*^9, 3.994073063917366*^9}}, - CellLabel-> - "In[372]:=",ExpressionUUID->"eb80148f-bf35-4e4a-804e-80f97ab5e689"], + CellLabel->"In[2]:=",ExpressionUUID->"eb80148f-bf35-4e4a-804e-80f97ab5e689"], Cell[BoxData["240"], "Output", CellChangeTimes->{ 3.9913196497381973`*^9, 3.994082139815686*^9, {3.994082210466728*^9, - 3.994082259455925*^9}}, - CellLabel-> - "Out[372]=",ExpressionUUID->"fda51582-ce83-4489-be97-bd5107e05d63"] + 3.994082259455925*^9}, 3.994256405313327*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"9bd7d550-6a82-43d7-ba75-c36b7a0af5d9"] }, Open ]], Cell[CellGroupData[{ @@ -60,15 +56,13 @@ Cell[BoxData[ RowBox[{"A1", "=", "166"}]], "Input", CellChangeTimes->{ 3.991798961431202*^9, {3.9940730665357656`*^9, 3.994073067306501*^9}}, - CellLabel-> - "In[373]:=",ExpressionUUID->"ecc38e97-703c-4f0f-9148-92a1d475043c"], + CellLabel->"In[3]:=",ExpressionUUID->"ecc38e97-703c-4f0f-9148-92a1d475043c"], Cell[BoxData["166"], "Output", CellChangeTimes->{ 3.9913196497578354`*^9, 3.994082139825574*^9, {3.9940822104766827`*^9, - 3.994082259466858*^9}}, - CellLabel-> - "Out[373]=",ExpressionUUID->"a5aa4cc3-f462-42ed-9b53-9af90f7caec8"] + 3.994082259466858*^9}, 3.994256405337585*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"f20edad3-1f33-4310-87a7-7a4b3abb9310"] }, Open ]], Cell[CellGroupData[{ @@ -76,15 +70,13 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, - CellLabel-> - "In[374]:=",ExpressionUUID->"99ac952c-1f4e-4d46-9a34-2d251b7c86ce"], + CellLabel->"In[4]:=",ExpressionUUID->"99ac952c-1f4e-4d46-9a34-2d251b7c86ce"], Cell[BoxData["0.55`"], "Output", CellChangeTimes->{ 3.991319649777508*^9, 3.994082139835326*^9, {3.994082210487997*^9, - 3.994082259477521*^9}}, - CellLabel-> - "Out[374]=",ExpressionUUID->"2eee7f80-e49a-4f80-a4e2-65a1d99e56b3"] + 3.994082259477521*^9}, 3.994256405353229*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"f3458fbd-a79e-429c-8b29-899a4261e959"] }, Open ]], Cell[CellGroupData[{ @@ -96,30 +88,26 @@ Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", - CellLabel-> - "In[375]:=",ExpressionUUID->"4436f480-0c5c-458d-8c45-df8a9b6bea6a"], + CellLabel->"In[5]:=",ExpressionUUID->"4436f480-0c5c-458d-8c45-df8a9b6bea6a"], Cell[BoxData["0.54425`"], "Output", CellChangeTimes->{ 3.9913196497965145`*^9, 3.994082139845067*^9, {3.994082210498448*^9, - 3.994082259487831*^9}}, - CellLabel-> - "Out[375]=",ExpressionUUID->"fcc6327d-cdb7-4da5-82fd-259cd5c1bc60"] + 3.994082259487831*^9}, 3.994256405370487*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"2596fb0e-6d65-4fe2-a7ea-da9c5ef07fc5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", - CellLabel-> - "In[376]:=",ExpressionUUID->"cb58f02f-be8b-4d45-bd49-171e1ee7d031"], + CellLabel->"In[6]:=",ExpressionUUID->"cb58f02f-be8b-4d45-bd49-171e1ee7d031"], Cell[BoxData["0.17`"], "Output", CellChangeTimes->{ 3.9913196498144608`*^9, 3.994082139854616*^9, {3.99408221050937*^9, - 3.994082259497772*^9}}, - CellLabel-> - "Out[376]=",ExpressionUUID->"219e5551-d3b6-4536-84b7-b79c4049f1d9"] + 3.994082259497772*^9}, 3.994256405388887*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"0b95d15e-2d58-4e30-8c62-ff60c3e4421f"] }, Open ]], Cell[CellGroupData[{ @@ -130,15 +118,13 @@ Cell[BoxData[ SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}]}]], "Input", CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, - CellLabel-> - "In[377]:=",ExpressionUUID->"e1ac8643-0af0-46b9-836e-2444f6b2fd8a"], + CellLabel->"In[7]:=",ExpressionUUID->"e1ac8643-0af0-46b9-836e-2444f6b2fd8a"], Cell[BoxData["6.3752030057102145`"], "Output", CellChangeTimes->{ 3.9913196498225155`*^9, 3.994082139865213*^9, {3.994082210519739*^9, - 3.994082259507691*^9}}, - CellLabel-> - "Out[377]=",ExpressionUUID->"06e0fc80-6155-4c57-80c9-6ba7a7ac1dcc"] + 3.994082259507691*^9}, 3.994256405409835*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"e54aa1b3-2db0-470a-bc4e-f98ae600dcab"] }, Open ]], Cell[CellGroupData[{ @@ -150,15 +136,13 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", - CellLabel-> - "In[378]:=",ExpressionUUID->"8275e0b6-3618-4c2e-875f-2b7bb8d6856a"], + CellLabel->"In[8]:=",ExpressionUUID->"8275e0b6-3618-4c2e-875f-2b7bb8d6856a"], Cell[BoxData["4.870070286417752`"], "Output", CellChangeTimes->{ 3.9913196498425236`*^9, 3.99408213987599*^9, {3.9940822105302753`*^9, - 3.994082259517621*^9}}, - CellLabel-> - "Out[378]=",ExpressionUUID->"2e96ef34-f020-4371-ad0b-15a99677fdac"] + 3.994082259517621*^9}, 3.9942564054285507`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"7ed5c58a-e41c-4a2c-8335-58318ab1e051"] }, Open ]], Cell[CellGroupData[{ @@ -166,14 +150,13 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"b1", "=", "0.9035518425"}]], "Input", CellChangeTimes->{3.991799283179735*^9, 3.994073090925538*^9}, - CellLabel-> - "In[379]:=",ExpressionUUID->"23b01d0a-5903-4e9c-ad2a-07a68c9459c8"], + CellLabel->"In[9]:=",ExpressionUUID->"23b01d0a-5903-4e9c-ad2a-07a68c9459c8"], Cell[BoxData["0.9035518425`"], "Output", CellChangeTimes->{ - 3.994082139886828*^9, {3.9940822105402517`*^9, 3.9940822595277653`*^9}}, - CellLabel-> - "Out[379]=",ExpressionUUID->"caa2e3a1-909f-4a18-bf6b-f2625b0d33e9"] + 3.994082139886828*^9, {3.9940822105402517`*^9, 3.9940822595277653`*^9}, + 3.994256405447144*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"b7f7f5fe-e291-40ae-a140-2f35bec8697e"] }, Open ]], Cell[CellGroupData[{ @@ -181,44 +164,39 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"b2", "=", "0.3863821951"}]], "Input", CellChangeTimes->{3.991799280663351*^9, 3.9940730962719193`*^9}, - CellLabel-> - "In[380]:=",ExpressionUUID->"df407cf7-6b46-4e5d-809f-24379797fc77"], + CellLabel->"In[10]:=",ExpressionUUID->"df407cf7-6b46-4e5d-809f-24379797fc77"], Cell[BoxData["0.3863821951`"], "Output", CellChangeTimes->{ - 3.994082139897403*^9, {3.994082210550373*^9, 3.994082259537862*^9}}, - CellLabel-> - "Out[380]=",ExpressionUUID->"d1be7809-d837-41e2-8543-bc0cbc18f3e7"] + 3.994082139897403*^9, {3.994082210550373*^9, 3.994082259537862*^9}, + 3.9942564054656553`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"e69ef6bb-16a6-483e-baac-189e0486f68e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", - CellLabel-> - "In[381]:=",ExpressionUUID->"dde34a8a-9eae-4100-bc6d-95e7040a3589"], + CellLabel->"In[11]:=",ExpressionUUID->"dde34a8a-9eae-4100-bc6d-95e7040a3589"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498927155`*^9, 3.994082139910328*^9, {3.994082210560801*^9, - 3.9940822595420103`*^9}}, - CellLabel-> - "Out[381]=",ExpressionUUID->"a189dc1c-a561-40f7-90aa-1d4fa5b3c382"] + 3.9940822595420103`*^9}, 3.994256405484209*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"dc4c6849-effd-449c-bf51-9f93dcd2c912"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", - CellLabel-> - "In[382]:=",ExpressionUUID->"bf5d9094-3dbd-48ef-a41a-221ed590d195"], + CellLabel->"In[12]:=",ExpressionUUID->"bf5d9094-3dbd-48ef-a41a-221ed590d195"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498996067`*^9, 3.9940821399224367`*^9, {3.994082210571288*^9, - 3.994082259554398*^9}}, - CellLabel-> - "Out[382]=",ExpressionUUID->"d9f8261a-f29c-4234-ac75-2f7d6ebe3483"] + 3.994082259554398*^9}, 3.994256405505837*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"0af29986-6d33-465c-b8b9-9fadd30125e6"] }, Open ]], Cell[CellGroupData[{ @@ -242,15 +220,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[383]:=",ExpressionUUID->"3ace4fda-d92d-425c-a2b5-0120c0772e6d"], + CellLabel->"In[13]:=",ExpressionUUID->"3ace4fda-d92d-425c-a2b5-0120c0772e6d"], Cell[BoxData["2.315137197466896`"], "Output", CellChangeTimes->{ 3.9913197863028755`*^9, 3.994082139933848*^9, {3.994082210581699*^9, - 3.9940822595648727`*^9}}, - CellLabel-> - "Out[383]=",ExpressionUUID->"9954528d-0f8d-4638-8c11-834a9aab1fab"] + 3.9940822595648727`*^9}, 3.994256405531248*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"4f0ad6e5-ce81-4374-b09b-7238ce4e57dc"] }, Open ]], Cell[CellGroupData[{ @@ -274,15 +250,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[384]:=",ExpressionUUID->"e291aa18-249e-4d72-a70c-054d52c7448f"], + CellLabel->"In[14]:=",ExpressionUUID->"e291aa18-249e-4d72-a70c-054d52c7448f"], Cell[BoxData["1.4220278650887666`"], "Output", CellChangeTimes->{ 3.9913197864610195`*^9, 3.994082139944078*^9, {3.9940822105866547`*^9, - 3.9940822595749483`*^9}}, - CellLabel-> - "Out[384]=",ExpressionUUID->"59cb48b2-69e7-415b-806d-34aa3aa5097e"] + 3.9940822595749483`*^9}, 3.9942564055519123`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"7808fd06-8392-4616-abb1-b7c0a85de926"] }, Open ]], Cell[CellGroupData[{ @@ -337,15 +311,13 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[385]:=",ExpressionUUID->"f42bf625-e124-4b64-aef5-42e76d046d82"], + CellLabel->"In[15]:=",ExpressionUUID->"f42bf625-e124-4b64-aef5-42e76d046d82"], Cell[BoxData["0.4069661562665162`"], "Output", CellChangeTimes->{ 3.991319786533783*^9, 3.994082139954578*^9, {3.994082210602051*^9, - 3.994082259585372*^9}}, - CellLabel-> - "Out[385]=",ExpressionUUID->"a171f111-bf01-4a12-8132-9a0d7785376c"] + 3.994082259585372*^9}, 3.994256405574795*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"59ff714e-90e8-4865-85dc-e1f849633f5d"] }, Open ]], Cell[CellGroupData[{ @@ -396,16 +368,14 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[386]:=",ExpressionUUID->"f5d5560d-9260-454d-98ce-c06511c83954"], + CellLabel->"In[16]:=",ExpressionUUID->"f5d5560d-9260-454d-98ce-c06511c83954"], Cell[BoxData[ RowBox[{"-", "0.08563504168524437`"}]], "Output", CellChangeTimes->{ 3.991319786540777*^9, 3.9940821399653873`*^9, {3.994082210613337*^9, - 3.994082259596693*^9}}, - CellLabel-> - "Out[386]=",ExpressionUUID->"5f961593-6260-498e-9a54-51d53fde60f5"] + 3.994082259596693*^9}, 3.994256405653192*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"f620726f-538e-43cd-b665-db6c93f12167"] }, Open ]], Cell[CellGroupData[{ @@ -456,16 +426,14 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[387]:=",ExpressionUUID->"d0e7131a-0f25-404d-884d-c03a8244b0ef"], + CellLabel->"In[17]:=",ExpressionUUID->"d0e7131a-0f25-404d-884d-c03a8244b0ef"], Cell[BoxData[ RowBox[{"-", "0.5841673375234483`"}]], "Output", CellChangeTimes->{ 3.9913197865777817`*^9, 3.9940821399780188`*^9, {3.9940822106256943`*^9, - 3.9940822596071453`*^9}}, - CellLabel-> - "Out[387]=",ExpressionUUID->"4bd7832a-a133-4b2f-95a2-c2c53ebe1809"] + 3.9940822596071453`*^9}, 3.994256413778985*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"35d556a9-8818-411e-96c9-ef318312dc55"] }, Open ]], Cell[CellGroupData[{ @@ -520,60 +488,52 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[388]:=",ExpressionUUID->"d63ea0e8-4e6c-4188-b794-6257f62783c1"], + CellLabel->"In[18]:=",ExpressionUUID->"d63ea0e8-4e6c-4188-b794-6257f62783c1"], Cell[BoxData["0.7215005296935654`"], "Output", CellChangeTimes->{ 3.9913197866129*^9, 3.994082139989607*^9, {3.994082210635736*^9, - 3.99408225961747*^9}}, - CellLabel-> - "Out[388]=",ExpressionUUID->"d579c7c6-7fcb-4155-b706-631dc5e4c89a"] + 3.99408225961747*^9}, 3.994256414209342*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"6ca7a394-1d7c-4e49-9122-ccf55e5d9176"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", - CellLabel-> - "In[389]:=",ExpressionUUID->"6aa07b64-4c4c-494a-af1f-a531af9dbe38"], + CellLabel->"In[19]:=",ExpressionUUID->"6aa07b64-4c4c-494a-af1f-a531af9dbe38"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786620775*^9, 3.9940821399995413`*^9, {3.9940822106444807`*^9, - 3.994082259627829*^9}}, - CellLabel-> - "Out[389]=",ExpressionUUID->"0e75f869-022d-46cc-8256-2126aa4a55ba"] + 3.994082259627829*^9}, 3.994256414239294*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"4880ba9a-baf0-4aef-b94e-e9cb153686f9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fin", "=", "0.09"}]], "Input", - CellLabel-> - "In[390]:=",ExpressionUUID->"3c1b38fe-0723-4995-9435-a1f03b92def6"], + CellLabel->"In[20]:=",ExpressionUUID->"3c1b38fe-0723-4995-9435-a1f03b92def6"], Cell[BoxData["0.09`"], "Output", CellChangeTimes->{ 3.991319786657793*^9, 3.994082140010191*^9, {3.994082210653286*^9, - 3.994082259638521*^9}}, - CellLabel-> - "Out[390]=",ExpressionUUID->"0393cca6-c16c-458d-9770-dc405494e428"] + 3.994082259638521*^9}, 3.994256414262493*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"82b81ab5-4df7-423e-a197-eb31517250e4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffin", "=", "0.42"}]], "Input", - CellLabel-> - "In[391]:=",ExpressionUUID->"92e841e4-ada6-4208-9127-dc72dab603ab"], + CellLabel->"In[21]:=",ExpressionUUID->"92e841e4-ada6-4208-9127-dc72dab603ab"], Cell[BoxData["0.42`"], "Output", CellChangeTimes->{ 3.9913197866657925`*^9, 3.9940821400205593`*^9, {3.9940822106620293`*^9, - 3.9940822596489058`*^9}}, - CellLabel-> - "Out[391]=",ExpressionUUID->"3038ed8c-5179-47a4-a818-96fa0d8e72bb"] + 3.9940822596489058`*^9}, 3.994256414282898*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"27655270-70c5-4a35-be5b-9d64c7dfef26"] }, Open ]], Cell[CellGroupData[{ @@ -582,31 +542,27 @@ Cell[BoxData[ RowBox[{"fex", "=", RowBox[{"-", "2.59"}]}]], "Input", CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, - CellLabel-> - "In[392]:=",ExpressionUUID->"716935ef-6633-4892-90bc-9682ac59b90c"], + CellLabel->"In[22]:=",ExpressionUUID->"716935ef-6633-4892-90bc-9682ac59b90c"], Cell[BoxData[ RowBox[{"-", "2.59`"}]], "Output", CellChangeTimes->{ 3.9913197866996*^9, 3.994082140031045*^9, {3.994082210671171*^9, - 3.994082259659958*^9}}, - CellLabel-> - "Out[392]=",ExpressionUUID->"ee044974-221d-4b28-88f4-f24cf19365b1"] + 3.994082259659958*^9}, 3.9942564142991657`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"2e19a6a0-bf8c-4765-86d9-66889788a122"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffex", "=", "0.54"}]], "Input", - CellLabel-> - "In[393]:=",ExpressionUUID->"73f208fc-0b23-4ee4-8d4e-6ab90d717484"], + CellLabel->"In[23]:=",ExpressionUUID->"73f208fc-0b23-4ee4-8d4e-6ab90d717484"], Cell[BoxData["0.54`"], "Output", CellChangeTimes->{ 3.9913197867406044`*^9, 3.994082140043984*^9, {3.9940822106801777`*^9, - 3.994082259671282*^9}}, - CellLabel-> - "Out[393]=",ExpressionUUID->"822d6fac-ac4d-4942-bb34-27ca91e5a9bd"] + 3.994082259671282*^9}, 3.994256414343274*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"8963d690-da54-45a2-a223-002c855cdb54"] }, Open ]], Cell[CellGroupData[{ @@ -616,15 +572,13 @@ Cell[BoxData[ CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { 3.9940731043812733`*^9, 3.994073104508005*^9}}, - CellLabel-> - "In[394]:=",ExpressionUUID->"b4c6186e-42ec-418f-9785-2e4b6041c082"], + CellLabel->"In[24]:=",ExpressionUUID->"b4c6186e-42ec-418f-9785-2e4b6041c082"], Cell[BoxData["66"], "Output", CellChangeTimes->{ 3.9913197867861958`*^9, 3.994082140061471*^9, {3.99408221068924*^9, - 3.9940822596826973`*^9}}, - CellLabel-> - "Out[394]=",ExpressionUUID->"32d9c518-c474-43b6-bcf8-858b8b6c37b3"] + 3.9940822596826973`*^9}, 3.9942564143668423`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"ecd998f4-e34c-4216-bc10-fce1f2e3a889"] }, Open ]], Cell[CellGroupData[{ @@ -634,15 +588,13 @@ Cell[BoxData[ RowBox[{"94", "-", "Z1"}]}]], "Input", CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, 3.9916443064841423`*^9, {3.9940731093077307`*^9, 3.99407311085991*^9}}, - CellLabel-> - "In[395]:=",ExpressionUUID->"8a26d530-4bcb-49ee-be8a-f86bb9292676"], + CellLabel->"In[25]:=",ExpressionUUID->"8a26d530-4bcb-49ee-be8a-f86bb9292676"], Cell[BoxData["28"], "Output", CellChangeTimes->{ 3.9913197867928696`*^9, 3.994082140071866*^9, {3.9940822106985188`*^9, - 3.9940822596930656`*^9}}, - CellLabel-> - "Out[395]=",ExpressionUUID->"7b9e415b-2a16-4adc-a44f-f2f8de8a1803"] + 3.9940822596930656`*^9}, 3.994256414397251*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"6742260c-c66e-41b5-b1d5-1b940243aac8"] }, Open ]], Cell[CellGroupData[{ @@ -651,15 +603,13 @@ Cell[BoxData[ RowBox[{"A2", "=", RowBox[{"A", "-", "A1"}]}]], "Input", CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, - CellLabel-> - "In[396]:=",ExpressionUUID->"f657102f-c0ac-4fbe-b6f4-c4f8ad770408"], + CellLabel->"In[26]:=",ExpressionUUID->"f657102f-c0ac-4fbe-b6f4-c4f8ad770408"], Cell[BoxData["74"], "Output", CellChangeTimes->{ 3.991319786827894*^9, 3.994082140082143*^9, {3.994082210707357*^9, - 3.994082259703759*^9}}, - CellLabel-> - "Out[396]=",ExpressionUUID->"b2966cdc-7db0-44fe-88c3-2efa183fcd7b"] + 3.994082259703759*^9}, 3.99425641443025*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"eefd5081-4190-4c4f-8afe-3df3f8da0625"] }, Open ]], Cell[CellGroupData[{ @@ -674,15 +624,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[397]:=",ExpressionUUID->"876adfcc-624e-4813-82c0-c91b8f56c1b4"], + CellLabel->"In[27]:=",ExpressionUUID->"876adfcc-624e-4813-82c0-c91b8f56c1b4"], Cell[BoxData["0.11092478020188863`"], "Output", CellChangeTimes->{ 3.9913197868648605`*^9, 3.9940821400927267`*^9, {3.994082210716133*^9, - 3.994082259714077*^9}}, - CellLabel-> - "Out[397]=",ExpressionUUID->"027d48c5-687e-4b47-9309-ef4495aacce0"] + 3.994082259714077*^9}, 3.9942564144608383`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"f618dbe0-3423-4c8e-b022-2670ae8cb4d8"] }, Open ]], Cell[CellGroupData[{ @@ -697,16 +645,14 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[398]:=",ExpressionUUID->"6ca1aecf-fd23-4f94-a82e-3abdfa526710"], + CellLabel->"In[28]:=",ExpressionUUID->"6ca1aecf-fd23-4f94-a82e-3abdfa526710"], Cell[BoxData[ RowBox[{"-", "2.5630967111690004`"}]], "Output", CellChangeTimes->{ 3.9913197868718567`*^9, 3.9940821401033173`*^9, {3.994082210725114*^9, - 3.994082259724759*^9}}, - CellLabel-> - "Out[398]=",ExpressionUUID->"014023ac-1e47-4fd2-afd9-47396da74ca6"] + 3.994082259724759*^9}, 3.9942564144898787`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"3d901b53-70e8-4f14-b79d-b5a6b7642671"] }, Open ]], Cell[CellGroupData[{ @@ -737,15 +683,13 @@ Cell[BoxData[ CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, - CellLabel-> - "In[399]:=",ExpressionUUID->"129bd3de-aa55-44ed-abb6-ce76f9724961"], + CellLabel->"In[29]:=",ExpressionUUID->"129bd3de-aa55-44ed-abb6-ce76f9724961"], Cell[BoxData["17.4437013546787`"], "Output", CellChangeTimes->{ 3.9913197869068584`*^9, 3.994082140114669*^9, {3.994082210734028*^9, - 3.994082259736136*^9}}, - CellLabel-> - "Out[399]=",ExpressionUUID->"b1c07d3c-ca7a-4254-a5d6-4e804cb60449"] + 3.994082259736136*^9}, 3.994256414527829*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"4823947b-62ee-4d4c-834e-cd4c4ecbf18e"] }, Open ]], Cell[CellGroupData[{ @@ -753,15 +697,13 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, - CellLabel-> - "In[400]:=",ExpressionUUID->"35c01070-725f-4a07-9122-ceb2bb9c1a81"], + CellLabel->"In[30]:=",ExpressionUUID->"35c01070-725f-4a07-9122-ceb2bb9c1a81"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786940857*^9, 3.994082140125458*^9, {3.9940822107429523`*^9, - 3.9940822597468443`*^9}}, - CellLabel-> - "Out[400]=",ExpressionUUID->"1770695c-941b-4043-96af-95808cda6c39"] + 3.9940822597468443`*^9}, 3.9942564145652847`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"eacc14b6-678e-4e85-ad55-c286cf766a25"] }, Open ]], Cell[CellGroupData[{ @@ -771,20 +713,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { 3.994073141486967*^9, 3.9940731424234343`*^9}}, - CellLabel-> - "In[401]:=",ExpressionUUID->"00393c38-8634-4f0a-8b8e-7299406937c3"], + CellLabel->"In[31]:=",ExpressionUUID->"00393c38-8634-4f0a-8b8e-7299406937c3"], Cell[BoxData["2.185`"], "Output", CellChangeTimes->{ - 3.9940821401363583`*^9, {3.994082210751677*^9, 3.9940822597573833`*^9}}, - CellLabel-> - "Out[401]=",ExpressionUUID->"55e78409-e048-461e-81fd-905d4a79a907"] + 3.9940821401363583`*^9, {3.994082210751677*^9, 3.9940822597573833`*^9}, + 3.994256414596119*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"09077439-a80b-47ee-9aa0-52e2479633f6"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, - CellLabel-> - "In[402]:=",ExpressionUUID->"060cc9c9-d6a9-4dc5-9f63-195bf3f43014"], + CellLabel->"In[32]:=",ExpressionUUID->"060cc9c9-d6a9-4dc5-9f63-195bf3f43014"], Cell[CellGroupData[{ @@ -793,20 +733,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { 3.9940731457645493`*^9, 3.994073146848226*^9}}, - CellLabel-> - "In[403]:=",ExpressionUUID->"7dd9c0b0-4426-4548-9919-206579fb8a7d"], + CellLabel->"In[33]:=",ExpressionUUID->"7dd9c0b0-4426-4548-9919-206579fb8a7d"], Cell[BoxData["0.755`"], "Output", CellChangeTimes->{ - 3.994082140150962*^9, {3.9940822107679367`*^9, 3.9940822597717943`*^9}}, - CellLabel-> - "Out[403]=",ExpressionUUID->"65863f18-c946-4c1e-9076-c3333543e3d0"] + 3.994082140150962*^9, {3.9940822107679367`*^9, 3.9940822597717943`*^9}, + 3.9942564146529083`*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"1a240ae9-4814-43f8-b556-436e80ec1bed"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, - CellLabel-> - "In[404]:=",ExpressionUUID->"27dccaf4-8574-4d6b-a0b8-2304a5033f4a"], + CellLabel->"In[34]:=",ExpressionUUID->"27dccaf4-8574-4d6b-a0b8-2304a5033f4a"], Cell[CellGroupData[{ @@ -815,20 +753,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { 3.994073149619232*^9, 3.994073149893601*^9}}, - CellLabel-> - "In[405]:=",ExpressionUUID->"c741877f-21ae-44ff-a6ae-b13381562db0"], + CellLabel->"In[35]:=",ExpressionUUID->"c741877f-21ae-44ff-a6ae-b13381562db0"], Cell[BoxData["2.5`"], "Output", CellChangeTimes->{ - 3.994082140164228*^9, {3.994082210783918*^9, 3.994082259785039*^9}}, - CellLabel-> - "Out[405]=",ExpressionUUID->"25a5a314-6bd2-4d6d-bd16-0f3da287dcc7"] + 3.994082140164228*^9, {3.994082210783918*^9, 3.994082259785039*^9}, + 3.994256414710251*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"edeb3b17-7386-420f-8212-f64e34af4b53"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, - CellLabel-> - "In[406]:=",ExpressionUUID->"ba3221b0-c202-42a3-883d-e743c638fd9f"], + CellLabel->"In[36]:=",ExpressionUUID->"ba3221b0-c202-42a3-883d-e743c638fd9f"], Cell[CellGroupData[{ @@ -837,20 +773,18 @@ Cell[BoxData[ CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, 3.991799359954439*^9, {3.994073152359264*^9, 3.994073154823225*^9}}, - CellLabel-> - "In[407]:=",ExpressionUUID->"f6f848a0-d478-4bc9-bcbb-b725a33e64d2"], + CellLabel->"In[37]:=",ExpressionUUID->"f6f848a0-d478-4bc9-bcbb-b725a33e64d2"], Cell[BoxData["1.165`"], "Output", CellChangeTimes->{ - 3.994082140177301*^9, {3.994082210799852*^9, 3.9940822597980413`*^9}}, - CellLabel-> - "Out[407]=",ExpressionUUID->"d5ff6518-669c-4598-b485-2a2d37a2effb"] + 3.994082140177301*^9, {3.994082210799852*^9, 3.9940822597980413`*^9}, + 3.994256414772325*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"cfe517a5-6191-44cc-a6fe-6800d46f813e"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, - CellLabel-> - "In[408]:=",ExpressionUUID->"50ff3763-0dcd-4a38-9aea-12b85a4eeeda"], + CellLabel->"In[38]:=",ExpressionUUID->"50ff3763-0dcd-4a38-9aea-12b85a4eeeda"], Cell[CellGroupData[{ @@ -859,20 +793,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, 3.991718016467348*^9, 3.991799361414671*^9, {3.994073158537945*^9, 3.994073159984886*^9}}, - CellLabel-> - "In[409]:=",ExpressionUUID->"cd51b3f2-e7f8-48b8-bb33-4407f1e55a48"], + CellLabel->"In[39]:=",ExpressionUUID->"cd51b3f2-e7f8-48b8-bb33-4407f1e55a48"], Cell[BoxData["1.055`"], "Output", CellChangeTimes->{ - 3.9940821401902237`*^9, {3.9940822108158007`*^9, 3.994082259811191*^9}}, - CellLabel-> - "Out[409]=",ExpressionUUID->"86bdc338-e59e-41ed-a909-5d508995facc"] + 3.9940821401902237`*^9, {3.9940822108158007`*^9, 3.994082259811191*^9}, + 3.9942564148776627`*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"679b4901-afb2-431e-95fa-59c748ed2c68"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, - CellLabel-> - "In[410]:=",ExpressionUUID->"33308d13-78ed-4b52-852a-3765e8739d7c"], + CellLabel->"In[40]:=",ExpressionUUID->"33308d13-78ed-4b52-852a-3765e8739d7c"], Cell[CellGroupData[{ @@ -881,20 +813,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9940731689650297`*^9, 3.994073170525517*^9}}, - CellLabel-> - "In[411]:=",ExpressionUUID->"19ab9d0f-018d-4522-9acb-ede80f71a687"], + CellLabel->"In[41]:=",ExpressionUUID->"19ab9d0f-018d-4522-9acb-ede80f71a687"], Cell[BoxData["0.575`"], "Output", CellChangeTimes->{ - 3.99408214020331*^9, {3.9940822108320093`*^9, 3.994082259824339*^9}}, - CellLabel-> - "Out[411]=",ExpressionUUID->"c5422570-8cdf-47f5-821b-e1edc3a3ac71"] + 3.99408214020331*^9, {3.9940822108320093`*^9, 3.994082259824339*^9}, + 3.994256414949548*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"8e803eac-d6e0-46aa-87ba-a30f60ee7a78"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, - CellLabel-> - "In[412]:=",ExpressionUUID->"d299566e-788a-4060-bd1a-50b1f8dd12a2"], + CellLabel->"In[42]:=",ExpressionUUID->"d299566e-788a-4060-bd1a-50b1f8dd12a2"], Cell[CellGroupData[{ @@ -903,20 +833,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.99407317466329*^9, 3.9940731756907377`*^9}}, - CellLabel-> - "In[413]:=",ExpressionUUID->"ee4c998d-8053-4886-ae9b-cce50c89a029"], + CellLabel->"In[43]:=",ExpressionUUID->"ee4c998d-8053-4886-ae9b-cce50c89a029"], Cell[BoxData["1.51`"], "Output", CellChangeTimes->{ - 3.9940821402169437`*^9, {3.994082210847649*^9, 3.994082259837338*^9}}, - CellLabel-> - "Out[413]=",ExpressionUUID->"e060c47d-0330-4daa-8d55-0d5f210d0841"] + 3.9940821402169437`*^9, {3.994082210847649*^9, 3.994082259837338*^9}, + 3.994256415008418*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"948f9536-f1b6-4180-933d-d96e5357b280"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, - CellLabel-> - "In[414]:=",ExpressionUUID->"064a5061-0671-4ab9-8886-a3d5161dcd2a"], + CellLabel->"In[44]:=",ExpressionUUID->"064a5061-0671-4ab9-8886-a3d5161dcd2a"], Cell[CellGroupData[{ @@ -924,20 +852,18 @@ Cell[BoxData[ RowBox[{"nn2", "=", "0.635"}]], "Input", CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, 3.9917993660901737`*^9, {3.99407317843715*^9, 3.994073182537156*^9}}, - CellLabel-> - "In[415]:=",ExpressionUUID->"c655aeeb-0936-4a16-a83e-6eaac93c4708"], + CellLabel->"In[45]:=",ExpressionUUID->"c655aeeb-0936-4a16-a83e-6eaac93c4708"], Cell[BoxData["0.635`"], "Output", CellChangeTimes->{ - 3.994082140230339*^9, {3.994082210863504*^9, 3.994082259850523*^9}}, - CellLabel-> - "Out[415]=",ExpressionUUID->"04330939-cb6f-4aaa-a57f-0fda5a64c6b8"] + 3.994082140230339*^9, {3.994082210863504*^9, 3.994082259850523*^9}, + 3.994256415053832*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"f38f7e53-5019-45bf-906a-38acd8406530"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, - CellLabel-> - "In[416]:=",ExpressionUUID->"4af259aa-18d3-44c0-8cc2-5eeaaaba1ca6"], + CellLabel->"In[46]:=",ExpressionUUID->"4af259aa-18d3-44c0-8cc2-5eeaaaba1ca6"], Cell[CellGroupData[{ @@ -1426,15 +1352,13 @@ uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== "], - CellLabel-> - "In[417]:=",ExpressionUUID->"d14b3b8a-2cdc-4544-bbb0-d8d46f034c8d"], + CellLabel->"In[47]:=",ExpressionUUID->"d14b3b8a-2cdc-4544-bbb0-d8d46f034c8d"], Cell[BoxData["0.14543451930671605`"], "Output", CellChangeTimes->{ 3.991319787430073*^9, 3.9940821403190203`*^9, {3.994082210903069*^9, - 3.994082259888891*^9}}, - CellLabel-> - "Out[417]=",ExpressionUUID->"e7d5892a-e090-4ef4-b006-d9eb4e925673"] + 3.994082259888891*^9}, 3.9942564152759867`*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"8c6ac410-b4f3-486f-9b7f-85fd2b13130c"] }, Open ]], Cell[CellGroupData[{ @@ -1928,15 +1852,13 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[418]:=",ExpressionUUID->"8de6c3d1-daef-43ec-8c0d-d26918d223d3"], + CellLabel->"In[48]:=",ExpressionUUID->"8de6c3d1-daef-43ec-8c0d-d26918d223d3"], Cell[BoxData["7.609769640822119`"], "Output", CellChangeTimes->{ 3.991319787574972*^9, 3.9940821403533278`*^9, {3.994082210934519*^9, - 3.994082259917639*^9}}, - CellLabel-> - "Out[418]=",ExpressionUUID->"97b04ffc-a9a3-4dd0-b199-cf7213d0b6a4"] + 3.994082259917639*^9}, 3.994256415367076*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"3ad0a536-e95d-4449-973d-d54472e876a0"] }, Open ]], Cell[CellGroupData[{ @@ -2424,16 +2346,14 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[419]:=",ExpressionUUID->"ad5520ec-84d8-45a0-8cc5-e84301e4fbe7"], + CellLabel->"In[49]:=",ExpressionUUID->"ad5520ec-84d8-45a0-8cc5-e84301e4fbe7"], Cell[BoxData[ RowBox[{"-", "15.030827196449275`"}]], "Output", CellChangeTimes->{ 3.991319787641424*^9, 3.994082140383691*^9, {3.9940822109679832`*^9, - 3.994082259945158*^9}}, - CellLabel-> - "Out[419]=",ExpressionUUID->"981c28b2-e938-4f87-a1dc-3525b71b080b"] + 3.994082259945158*^9}, 3.99425641547024*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"d91c11d8-f54e-42f3-aada-cd1b9f55bb49"] }, Open ]], Cell[CellGroupData[{ @@ -2991,16 +2911,14 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[420]:=",ExpressionUUID->"0d9ab4fd-7cde-48ba-8741-da13981efc32"], + CellLabel->"In[50]:=",ExpressionUUID->"0d9ab4fd-7cde-48ba-8741-da13981efc32"], Cell[BoxData[ RowBox[{"-", "19.761827924452415`"}]], "Output", CellChangeTimes->{ 3.991319787711939*^9, 3.9940821404195766`*^9, {3.9940822110021753`*^9, - 3.994082259978429*^9}}, - CellLabel-> - "Out[420]=",ExpressionUUID->"8e954486-23c3-4351-b64e-812100532ebe"] + 3.994082259978429*^9}, 3.994256415576396*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"d314986e-0d67-4db6-b7d7-ce556b7422a0"] }, Open ]], Cell[CellGroupData[{ @@ -3558,16 +3476,14 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[421]:=",ExpressionUUID->"4878baa4-7561-48bb-a697-805dcbd99ccc"], + CellLabel->"In[51]:=",ExpressionUUID->"4878baa4-7561-48bb-a697-805dcbd99ccc"], Cell[BoxData[ RowBox[{"-", "57.66257775030843`"}]], "Output", CellChangeTimes->{ 3.9913197877723045`*^9, 3.9940821404579077`*^9, {3.994082211038884*^9, - 3.994082260011196*^9}}, - CellLabel-> - "Out[421]=",ExpressionUUID->"f47db446-29e4-4c26-810f-f1963ec98e5f"] + 3.994082260011196*^9}, 3.994256415718091*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"b3eb892c-a2cd-49a9-a321-aceca8e918cb"] }, Open ]], Cell[CellGroupData[{ @@ -4198,46 +4114,40 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[422]:=",ExpressionUUID->"b2b2b65f-3302-4b16-b0bc-c3dba064603d"], + CellLabel->"In[52]:=",ExpressionUUID->"b2b2b65f-3302-4b16-b0bc-c3dba064603d"], Cell[BoxData[ RowBox[{"-", "150.68948520646092`"}]], "Output", CellChangeTimes->{ 3.991319787833355*^9, 3.994082140505332*^9, {3.994082211079116*^9, - 3.9940822600491877`*^9}}, - CellLabel-> - "Out[422]=",ExpressionUUID->"f44d17ea-21a8-43b0-a171-49a7ec2c0e79"] + 3.9940822600491877`*^9}, 3.99425641586271*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"92c45840-8c0c-4b8f-b574-9e2c3efe71f9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U21", "=", "0"}]], "Input", - CellLabel-> - "In[423]:=",ExpressionUUID->"84ce8f1f-58d8-4eaa-a930-227c84951e62"], + CellLabel->"In[53]:=",ExpressionUUID->"84ce8f1f-58d8-4eaa-a930-227c84951e62"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210013676`*^9, 3.99408214052183*^9, {3.994082211090176*^9, - 3.994082260062854*^9}}, - CellLabel-> - "Out[423]=",ExpressionUUID->"8a580cce-a966-4fc1-a9ce-da183ca43c66"] + 3.994082260062854*^9}, 3.994256416002049*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"72846901-3f28-4a78-a166-9f99edeca115"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U22", "=", "0"}]], "Input", - CellLabel-> - "In[424]:=",ExpressionUUID->"72b1a9dc-3127-4e48-86c3-45bad88f5e1b"], + CellLabel->"In[54]:=",ExpressionUUID->"72b1a9dc-3127-4e48-86c3-45bad88f5e1b"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210355663`*^9, 3.994082140531746*^9, {3.9940822111011677`*^9, - 3.994082260073297*^9}}, - CellLabel-> - "Out[424]=",ExpressionUUID->"36cdd94d-6809-4166-86ad-ffe81fac9699"] + 3.994082260073297*^9}, 3.99425641602847*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"7e16c86d-4e5e-4e89-971a-f6addd3744cd"] }, Open ]], Cell[CellGroupData[{ @@ -4281,15 +4191,13 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[425]:=",ExpressionUUID->"cd27022c-c099-4bb3-b386-df409e9a7ddc"], + CellLabel->"In[55]:=",ExpressionUUID->"cd27022c-c099-4bb3-b386-df409e9a7ddc"], Cell[BoxData["120.33662547388403`"], "Output", CellChangeTimes->{ 3.991320421068556*^9, 3.994082140542282*^9, {3.994082211112996*^9, - 3.994082260084251*^9}}, - CellLabel-> - "Out[425]=",ExpressionUUID->"cddd5c1e-f917-44ba-8a84-5bc0d8964aec"] + 3.994082260084251*^9}, 3.994256416395484*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"63269b4a-2510-4e01-9451-0d78a2f65268"] }, Open ]], Cell[CellGroupData[{ @@ -4329,16 +4237,14 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[426]:=",ExpressionUUID->"6da541b4-99e0-4eba-bdc7-63250b29f74c"], + CellLabel->"In[56]:=",ExpressionUUID->"6da541b4-99e0-4eba-bdc7-63250b29f74c"], Cell[BoxData[ RowBox[{"-", "107.1121642480161`"}]], "Output", CellChangeTimes->{ 3.991320421098543*^9, 3.994082140552636*^9, {3.994082211122551*^9, - 3.994082260094944*^9}}, - CellLabel-> - "Out[426]=",ExpressionUUID->"38defbdb-68b9-4b0b-8286-cc0ab05cb311"] + 3.994082260094944*^9}, 3.994256416506918*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"4f6acffa-bc55-4e09-b454-232a35e47fe8"] }, Open ]], Cell[CellGroupData[{ @@ -4382,99 +4288,87 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[427]:=",ExpressionUUID->"f53ff4b6-d3f1-4d5e-83aa-78df9bad89af"], + CellLabel->"In[57]:=",ExpressionUUID->"f53ff4b6-d3f1-4d5e-83aa-78df9bad89af"], Cell[BoxData["123.55775944746372`"], "Output", CellChangeTimes->{ 3.9913204211275444`*^9, 3.9940821405632*^9, {3.9940822111320972`*^9, - 3.9940822601055107`*^9}}, - CellLabel-> - "Out[427]=",ExpressionUUID->"895eadde-b7ea-48c2-ae12-e77255ba0edb"] + 3.9940822601055107`*^9}, 3.994256416539315*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"89266eb0-9adb-40e3-9357-626a1d09d3b2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c11"], "Input", - CellLabel-> - "In[428]:=",ExpressionUUID->"e04a089d-3d44-4008-be1b-48d773e92a0d"], + CellLabel->"In[58]:=",ExpressionUUID->"e04a089d-3d44-4008-be1b-48d773e92a0d"], Cell[BoxData["0.4069661562665162`"], "Output", CellChangeTimes->{ 3.9913204211385536`*^9, 3.994082140573392*^9, {3.994082211141264*^9, - 3.994082260116184*^9}}, - CellLabel-> - "Out[428]=",ExpressionUUID->"3f6d0d8c-4818-414c-be61-af3e1de7e772"] + 3.994082260116184*^9}, 3.99425641656975*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"06bfd3b5-e709-4fc4-a79f-6b46e7ee0478"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c12"], "Input", - CellLabel-> - "In[429]:=",ExpressionUUID->"4941bb53-4063-43b1-9e9b-d28f5d3f183a"], + CellLabel->"In[59]:=",ExpressionUUID->"4941bb53-4063-43b1-9e9b-d28f5d3f183a"], Cell[BoxData[ RowBox[{"-", "0.08563504168524437`"}]], "Output", CellChangeTimes->{ 3.9913204211683464`*^9, 3.994082140583559*^9, {3.994082211156444*^9, - 3.994082260127738*^9}}, - CellLabel-> - "Out[429]=",ExpressionUUID->"d9635c64-f3ff-4a9c-b1a2-ec0f530f6e86"] + 3.994082260127738*^9}, 3.994256416597212*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"ec73203e-560d-464c-9087-633bffe7a7c8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c21"], "Input", - CellLabel-> - "In[430]:=",ExpressionUUID->"4fdd5590-d0f9-456e-96ba-3cf8f7bf1e4f"], + CellLabel->"In[60]:=",ExpressionUUID->"4fdd5590-d0f9-456e-96ba-3cf8f7bf1e4f"], Cell[BoxData[ RowBox[{"-", "0.5841673375234483`"}]], "Output", CellChangeTimes->{ 3.991320421199068*^9, 3.994082140593707*^9, {3.994082211166273*^9, - 3.99408226016045*^9}}, - CellLabel-> - "Out[430]=",ExpressionUUID->"49cfb441-c7b0-4ee9-bbfe-1e6b41eda586"] + 3.99408226016045*^9}, 3.994256416635063*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"df4f9143-64bb-428b-a63f-3c5c9b81dde9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c22"], "Input", - CellLabel-> - "In[431]:=",ExpressionUUID->"6adc2de8-b1ec-46b8-92b9-0d15cc7612ed"], + CellLabel->"In[61]:=",ExpressionUUID->"6adc2de8-b1ec-46b8-92b9-0d15cc7612ed"], Cell[BoxData["0.7215005296935654`"], "Output", CellChangeTimes->{ 3.991320421228037*^9, 3.9940821428128853`*^9, {3.994082211175336*^9, - 3.994082260189337*^9}}, - CellLabel-> - "Out[431]=",ExpressionUUID->"793bde36-e10a-4d2f-b7a7-7328fedca048"] + 3.994082260189337*^9}, 3.994256416680326*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"f8b8921d-454b-49c5-b8db-160c116f45bd"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w1"], "Input", - CellLabel-> - "In[432]:=",ExpressionUUID->"65a03490-7d68-44a6-a971-65d7fe7092fb"], + CellLabel->"In[62]:=",ExpressionUUID->"65a03490-7d68-44a6-a971-65d7fe7092fb"], Cell[BoxData["2.315137197466896`"], "Output", CellChangeTimes->{ - 3.9913204212585373`*^9, {3.9940822111841908`*^9, 3.9940822602133617`*^9}}, - CellLabel-> - "Out[432]=",ExpressionUUID->"2033cecb-686f-4d59-9f23-cc1b3e1e77bf"] + 3.9913204212585373`*^9, {3.9940822111841908`*^9, 3.9940822602133617`*^9}, + 3.994256416713851*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"6d97ee93-ac35-44e7-a8be-70d1e4ac6e80"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w2"], "Input", - CellLabel-> - "In[433]:=",ExpressionUUID->"12075aa1-ff44-4038-ace0-d1b39df28f5d"], + CellLabel->"In[63]:=",ExpressionUUID->"12075aa1-ff44-4038-ace0-d1b39df28f5d"], Cell[BoxData["1.4220278650887666`"], "Output", CellChangeTimes->{ - 3.9913204212884274`*^9, {3.994082211193069*^9, 3.99408226021774*^9}}, - CellLabel-> - "Out[433]=",ExpressionUUID->"69932e2f-138d-4cb6-8c35-ed6d20a9228e"] + 3.9913204212884274`*^9, {3.994082211193069*^9, 3.99408226021774*^9}, + 3.994256416756041*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"0f9971db-e82f-474c-a512-18b6d9767495"] }, Open ]], Cell[CellGroupData[{ @@ -4495,15 +4389,14 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", - CellLabel-> - "In[434]:=",ExpressionUUID->"d5fb27b7-b43d-4580-b46d-25ec58e7822d"], + CellLabel->"In[64]:=",ExpressionUUID->"d5fb27b7-b43d-4580-b46d-25ec58e7822d"], Cell[BoxData[ RowBox[{"-", "34.52117430586003`"}]], "Output", CellChangeTimes->{ - 3.9913204213185234`*^9, {3.994082211202162*^9, 3.994082260228716*^9}}, - CellLabel-> - "Out[434]=",ExpressionUUID->"8be15e63-ffce-42e2-be77-78e149ad05d9"] + 3.9913204213185234`*^9, {3.994082211202162*^9, 3.994082260228716*^9}, + 3.99425641679106*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"90dba9f4-4e5a-4c25-aa46-01c479b741c1"] }, Open ]], Cell[CellGroupData[{ @@ -4524,15 +4417,14 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", - CellLabel-> - "In[435]:=",ExpressionUUID->"69447d37-eb3a-4a25-a211-ac123cbb4689"], + CellLabel->"In[65]:=",ExpressionUUID->"69447d37-eb3a-4a25-a211-ac123cbb4689"], Cell[BoxData[ RowBox[{"-", "6.669654351008722`"}]], "Output", CellChangeTimes->{ - 3.991320421349531*^9, {3.9940822112147284`*^9, 3.994082260239593*^9}}, - CellLabel-> - "Out[435]=",ExpressionUUID->"e2f82828-68e3-47e5-9ea9-ea49d28b268b"] + 3.991320421349531*^9, {3.9940822112147284`*^9, 3.994082260239593*^9}, + 3.994256416825801*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"234bc82e-22c3-4563-9841-9adaeafc6e2d"] }, Open ]], Cell[CellGroupData[{ @@ -4597,14 +4489,13 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[436]:=",ExpressionUUID->"7517deda-b264-4489-9a37-527e0691500c"], + CellLabel->"In[66]:=",ExpressionUUID->"7517deda-b264-4489-9a37-527e0691500c"], Cell[BoxData["85.815451168024`"], "Output", CellChangeTimes->{ - 3.9913204213784294`*^9, {3.994082211224436*^9, 3.994082260250916*^9}}, - CellLabel-> - "Out[436]=",ExpressionUUID->"cdf288af-9a6f-4208-940d-233de24acfe4"] + 3.9913204213784294`*^9, {3.994082211224436*^9, 3.994082260250916*^9}, + 3.994256416858955*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"bc5e2279-5a2b-42cf-8b19-48d9371f37ef"] }, Open ]], Cell[CellGroupData[{ @@ -4645,15 +4536,14 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[437]:=",ExpressionUUID->"cd1f08be-0e58-479a-b69a-fcc9497d7ddc"], + CellLabel->"In[67]:=",ExpressionUUID->"cd1f08be-0e58-479a-b69a-fcc9497d7ddc"], Cell[BoxData[ RowBox[{"-", "107.1121642480161`"}]], "Output", CellChangeTimes->{ - 3.9913204213904285`*^9, {3.994082211233815*^9, 3.994082260261983*^9}}, - CellLabel-> - "Out[437]=",ExpressionUUID->"82826ea4-6ed1-483d-abea-5d83919f11b7"] + 3.9913204213904285`*^9, {3.994082211233815*^9, 3.994082260261983*^9}, + 3.994256416892852*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"3c9ef172-0749-41ff-9795-7d1319fbba88"] }, Open ]], Cell[CellGroupData[{ @@ -4719,14 +4609,13 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[438]:=",ExpressionUUID->"a392d378-7274-4661-8402-2eac94b15b8f"], + CellLabel->"In[68]:=",ExpressionUUID->"a392d378-7274-4661-8402-2eac94b15b8f"], Cell[BoxData["116.888105096455`"], "Output", CellChangeTimes->{ - 3.991320421419428*^9, {3.99408221124387*^9, 3.994082260273652*^9}}, - CellLabel-> - "Out[438]=",ExpressionUUID->"fffa7096-3879-424d-ba21-1c5738295d30"] + 3.991320421419428*^9, {3.99408221124387*^9, 3.994082260273652*^9}, + 3.9942564170692863`*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"b5b0c895-e7fa-481d-9bea-92e87c7c6d2a"] }, Open ]], Cell[CellGroupData[{ @@ -4784,14 +4673,13 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[439]:=",ExpressionUUID->"67d7383b-067f-44a8-8b59-1544234b8583"], + CellLabel->"In[69]:=",ExpressionUUID->"67d7383b-067f-44a8-8b59-1544234b8583"], Cell[BoxData["42.180325689118604`"], "Output", CellChangeTimes->{ - 3.9913204214494324`*^9, {3.994082211253778*^9, 3.994082260284829*^9}}, - CellLabel-> - "Out[439]=",ExpressionUUID->"50e4732e-bbc7-457c-abd9-7328f1d30d64"] + 3.9913204214494324`*^9, {3.994082211253778*^9, 3.994082260284829*^9}, + 3.99425641712633*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"4a5c75e6-972d-4563-b350-52d5db4165d5"] }, Open ]], Cell[CellGroupData[{ @@ -4849,37 +4737,46 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[440]:=",ExpressionUUID->"171fd13f-2950-49f7-8085-054b4c769116"], + CellLabel->"In[70]:=",ExpressionUUID->"171fd13f-2950-49f7-8085-054b4c769116"], Cell[BoxData["727.4038074151157`"], "Output", CellChangeTimes->{ - 3.991320421481529*^9, {3.994082211263607*^9, 3.994082260289282*^9}}, - CellLabel-> - "Out[440]=",ExpressionUUID->"b5202487-e867-41f2-a575-d2482b47c6ea"] + 3.991320421481529*^9, {3.994082211263607*^9, 3.994082260289282*^9}, + 3.9942564171985903`*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"1fc327f8-ce87-413f-b346-f9ffbcbdcd47"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"f1", "=", "0.4778829661"}]], "Input", - CellChangeTimes->{3.9918488488187084`*^9, - 3.994083882452469*^9},ExpressionUUID->"bdefbecf-0aaa-4a45-a861-\ -406cf54e52d1"], + CellChangeTimes->{3.9918488488187084`*^9, 3.994083882452469*^9}, + CellLabel->"In[71]:=",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], + +Cell[BoxData["0.4778829661`"], "Output", + CellChangeTimes->{3.994256417259053*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"4e010982-3350-4b11-9c13-77fc66dae383"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991848849725815*^9, - 3.9918488497328167`*^9}},ExpressionUUID->"a5161e25-7247-124f-8601-\ -7bcc4af89c62"], + CellChangeTimes->{{3.991848849725815*^9, 3.9918488497328167`*^9}}, + CellLabel->"In[72]:=",ExpressionUUID->"a5161e25-7247-124f-8601-7bcc4af89c62"], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f2", "=", "0.2179097118"}]], "Input", - CellChangeTimes->{3.9918488509977226`*^9, - 3.994083891070215*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-\ -c079ad464f5d"], + CellChangeTimes->{3.9918488509977226`*^9, 3.994083891070215*^9}, + CellLabel->"In[73]:=",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], + +Cell[BoxData["0.2179097118`"], "Output", + CellChangeTimes->{3.994256417372189*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"b4b6b0e0-2194-471b-87ef-d9c19af2e9ba"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991848851636154*^9, - 3.9918488516427097`*^9}},ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-\ -11f4dcb03e07"], + CellChangeTimes->{{3.991848851636154*^9, 3.9918488516427097`*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], Cell[CellGroupData[{ @@ -4925,13 +4822,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel-> - "In[150]:=",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], + CellLabel->"In[75]:=",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], -Cell[BoxData["2.3793916761039797`*^-53"], "Output", - CellChangeTimes->{3.9913279321052856`*^9}, - CellLabel-> - "Out[150]=",ExpressionUUID->"1658422d-0016-324a-9843-942f5453a9c7"] +Cell[BoxData["1.5199617014106653`*^-53"], "Output", + CellChangeTimes->{3.9913279321052856`*^9, 3.994256417528058*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"b1114c0b-63bb-459d-b6b2-d16b4ea3f72b"] }, Open ]], Cell[CellGroupData[{ @@ -4965,14 +4860,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.9915575644922657`*^9},ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-\ -7221ff813b6d"], + CellChangeTimes->{3.9915575644922657`*^9}, + CellLabel->"In[76]:=",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], -Cell[BoxData["8.839304777809617`*^-55"], "Output", - CellChangeTimes->{3.991327932129387*^9}, - CellLabel-> - "Out[151]=",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] +Cell[BoxData["8.266960334886208`*^-55"], "Output", + CellChangeTimes->{3.991327932129387*^9, 3.994256417564508*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"7eb92830-ec0c-4ff3-ba30-d7860b4d5066"] }, Open ]], Cell[CellGroupData[{ @@ -5005,14 +4898,12 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.9915575683388195`*^9, - 3.991557570173399*^9}},ExpressionUUID->"f22831a7-63b7-f444-8e3a-\ -fa370a62ac27"], + CellChangeTimes->{{3.9915575683388195`*^9, 3.991557570173399*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], -Cell[BoxData["2.0384594858915346`*^-54"], "Output", - CellChangeTimes->{3.991327932138338*^9}, - CellLabel-> - "Out[152]=",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] +Cell[BoxData["1.128682353962926`*^-54"], "Output", + CellChangeTimes->{3.991327932138338*^9, 3.994256417595147*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"6b3cfd19-6b3e-40e6-bcdf-5818ffb105e8"] }, Open ]], Cell[CellGroupData[{ @@ -5035,13 +4926,11 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel-> - "In[153]:=",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], + CellLabel->"In[78]:=",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], -Cell[BoxData["27.24865368249903`"], "Output", - CellChangeTimes->{3.9913279321616154`*^9}, - CellLabel-> - "Out[153]=",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] +Cell[BoxData["15.24771657294994`"], "Output", + CellChangeTimes->{3.9913279321616154`*^9, 3.994256417633572*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"482d527b-a3c0-4caf-bad3-d750db4f6435"] }, Open ]], Cell[CellGroupData[{ @@ -5066,13 +4955,11 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", - CellLabel-> - "In[154]:=",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], + CellLabel->"In[79]:=",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], -Cell[BoxData["37.77192070584817`"], "Output", - CellChangeTimes->{3.9913279321696014`*^9}, - CellLabel-> - "Out[154]=",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] +Cell[BoxData["25.14283436425603`"], "Output", + CellChangeTimes->{3.9913279321696014`*^9, 3.9942564176735697`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"0e180aed-a6a7-4d37-a0de-2555543634e1"] }, Open ]], Cell[CellGroupData[{ @@ -5081,13 +4968,11 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel-> - "In[155]:=",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], + CellLabel->"In[80]:=",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], -Cell[BoxData["0.718596406513947`"], "Output", - CellChangeTimes->{3.9913279321926613`*^9}, - CellLabel-> - "Out[155]=",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +Cell[BoxData["1.6632309544255237`"], "Output", + CellChangeTimes->{3.9913279321926613`*^9, 3.9942564178962297`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"3b6f4787-9153-4ca0-ac5d-eb6a4575ca6c"] }, Open ]], Cell[CellGroupData[{ @@ -5096,13 +4981,11 @@ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", - CellLabel-> - "In[156]:=",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], + CellLabel->"In[81]:=",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], -Cell[BoxData["3.2238916343938024`"], "Output", - CellChangeTimes->{3.991327932200657*^9}, - CellLabel-> - "Out[156]=",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +Cell[BoxData["5.378741438280091`"], "Output", + CellChangeTimes->{3.991327932200657*^9, 3.994256418036551*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"a25f1a40-5cce-44b7-9e07-a09dd43f6ff5"] }, Open ]], Cell[CellGroupData[{ @@ -5111,13 +4994,11 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel-> - "In[157]:=",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], + CellLabel->"In[82]:=",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], -Cell[BoxData["121.77257917856996`"], "Output", - CellChangeTimes->{3.99132793222501*^9}, - CellLabel-> - "Out[157]=",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +Cell[BoxData["135.23680507083657`"], "Output", + CellChangeTimes->{3.99132793222501*^9, 3.994256418072311*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"c186c4af-50a8-408c-bda4-8660d4827970"] }, Open ]], Cell[CellGroupData[{ @@ -5126,13 +5007,11 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[158]:=",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], + CellLabel->"In[83]:=",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], -Cell[BoxData["19.58078461858683`"], "Output", - CellChangeTimes->{3.9913279322642612`*^9}, - CellLabel-> - "Out[158]=",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +Cell[BoxData["25.360474188437404`"], "Output", + CellChangeTimes->{3.9913279322642612`*^9, 3.994256418114148*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"0b82307b-d67e-4237-864a-520b65cd31ff"] }, Open ]], Cell[CellGroupData[{ @@ -5321,13 +5200,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[159]:=",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], + CellLabel->"In[84]:=",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], -Cell[BoxData["0.032550594324745`"], "Output", - CellChangeTimes->{3.9913279322906475`*^9}, - CellLabel-> - "Out[159]=",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +Cell[BoxData["0.007210403920006841`"], "Output", + CellChangeTimes->{3.9913279322906475`*^9, 3.994256418155491*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"3407fc49-7143-4395-ac27-c1123c7c1e68"] }, Open ]], Cell[CellGroupData[{ @@ -5340,13 +5217,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[160]:=",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], + CellLabel->"In[85]:=",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], -Cell[BoxData["4.91208054446651`"], "Output", - CellChangeTimes->{3.9913279323826447`*^9}, - CellLabel-> - "Out[160]=",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +Cell[BoxData["10.43674670812485`"], "Output", + CellChangeTimes->{3.9913279323826447`*^9, 3.994256418473435*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"c79e6059-0fd5-4b44-a34d-a85723e58ce2"] }, Open ]], Cell[CellGroupData[{ @@ -5537,13 +5412,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[161]:=",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], + CellLabel->"In[86]:=",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], -Cell[BoxData["0.012685641417856707`"], "Output", - CellChangeTimes->{3.991327932394655*^9}, - CellLabel-> - "Out[161]=",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +Cell[BoxData["0.03798253467535823`"], "Output", + CellChangeTimes->{3.991327932394655*^9, 3.9942564185174723`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"95656a3b-fc5e-4e22-a8b1-9e1cf8d7b9bc"] }, Open ]], Cell[CellGroupData[{ @@ -5556,13 +5429,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[162]:=",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], + CellLabel->"In[87]:=",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], -Cell[BoxData["7.868441587445692`"], "Output", - CellChangeTimes->{3.991327932491659*^9}, - CellLabel-> - "Out[162]=",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +Cell[BoxData["4.54729332224545`"], "Output", + CellChangeTimes->{3.991327932491659*^9, 3.9942564186442337`*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"2a33cd31-b30f-4672-9469-5781a26e7101"] }, Open ]], Cell[CellGroupData[{ @@ -5654,13 +5525,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[163]:=",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], + CellLabel->"In[88]:=",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.991327932509678*^9}, - CellLabel-> - "Out[163]=",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +Cell[BoxData["0.08457834250906257`"], "Output", + CellChangeTimes->{3.991327932509678*^9, 3.994256418680827*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"a75c1840-7b7a-4a23-bd71-48452a9d2b33"] }, Open ]], Cell[CellGroupData[{ @@ -5749,13 +5618,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[164]:=",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], + CellLabel->"In[89]:=",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.9913279325457134`*^9}, - CellLabel-> - "Out[164]=",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +Cell[BoxData["0.9154216574909375`"], "Output", + CellChangeTimes->{3.9913279325457134`*^9, 3.994256418717353*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"073e92ab-9429-4374-88c1-27a2aaf4b097"] }, Open ]], Cell[CellGroupData[{ @@ -5877,19 +5744,17 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel-> - "In[165]:=",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], + CellLabel->"In[90]:=",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913279325697117`*^9}, - CellLabel-> - "Out[165]=",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] +Cell[BoxData["0.07742484648748227`"], "Output", + CellChangeTimes->{3.9913279325697117`*^9, 3.994256418754815*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"b7131344-d5e5-420b-9363-5336446f75ca"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"714abd93-e0d1-\ -eb45-a9e1-7a2f5d020eb1"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], Cell[CellGroupData[{ @@ -5903,7 +5768,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -5925,8 +5792,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -5950,68 +5816,70 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918488620812244`*^9},ExpressionUUID->"137c38a2-741c-bd43-b6d9-\ -c0135e32eaf8"], + CellChangeTimes->{3.9918488620812244`*^9}, + CellLabel->"In[92]:=",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 166, 109, 24483298974280422597, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279325947113`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.866099989354873`*^-204\\\", \ +RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 92, 1, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279325947113`*^9, 3.994256418820921*^9}, CellLabel-> "During evaluation of \ -In[166]:=",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], +In[92]:=",ExpressionUUID->"a6f420a7-6b27-4697-9908-f89b4d5e54e4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 166, 110, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279326047096`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2941435498891702`*^-208\\\", \ +RowBox[{\\\"7066407765328259371913031\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"58\\\", \\\"\[RightSkeleton]\\\"}], \\\"82006784000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 92, 2, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279325947113`*^9, 3.994256418841076*^9}, CellLabel-> "During evaluation of \ -In[166]:=",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], +In[92]:=",ExpressionUUID->"5e9bd573-343d-4fa7-b9eb-60aa19cc2a2d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 166, 111, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327932612709*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.4392413893132147`*^-213\\\", \ +RowBox[{\\\"1430947572478972522812388\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"62\\\", \\\"\[RightSkeleton]\\\"}], \\\"63737600000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 92, 3, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279325947113`*^9, 3.9942564188517227`*^9}, CellLabel-> "During evaluation of \ -In[166]:=",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], +In[92]:=",ExpressionUUID->"8e0ff4a2-bc72-4bd7-a990-ca323c73c67f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 166, 112, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279326207104`*^9}, +during this calculation.\"", 2, 92, 4, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279325947113`*^9, 3.994256418864435*^9}, CellLabel-> "During evaluation of \ -In[166]:=",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], +In[92]:=",ExpressionUUID->"d12c30f1-8928-4704-81dc-92f5b8be9232"], -Cell[BoxData["4.912080544466506`"], "Output", - CellChangeTimes->{3.9913279359974174`*^9}, - CellLabel-> - "Out[166]=",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +Cell[BoxData["10.43674670812484`"], "Output", + CellChangeTimes->{3.9913279359974174`*^9, 3.994256422533205*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"e052b320-b6b8-4ca6-81a6-b2aac45fc3c0"] }, Open ]], Cell[CellGroupData[{ @@ -6026,7 +5894,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -6048,8 +5918,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -6073,68 +5942,70 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991848865140564*^9},ExpressionUUID->"9b196534-2ca5-e54b-8014-\ -b0ab3cd09ac2"], + CellChangeTimes->{3.991848865140564*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 167, 113, 24483298974280422597, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327936033827*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.866099989354873`*^-204\\\", \ +RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 93, 5, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327936033827*^9, 3.994256422882543*^9}, CellLabel-> "During evaluation of \ -In[167]:=",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], +In[93]:=",ExpressionUUID->"43d99630-5110-433e-b264-ac500d2a7302"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 167, 114, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279360428295`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2941435498891702`*^-208\\\", \ +RowBox[{\\\"7066407765328259371913031\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"58\\\", \\\"\[RightSkeleton]\\\"}], \\\"82006784000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 93, 6, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327936033827*^9, 3.9942564228942347`*^9}, CellLabel-> "During evaluation of \ -In[167]:=",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], +In[93]:=",ExpressionUUID->"4510d1ef-9ba4-4276-846e-5dfb5d321c92"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 167, 115, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327936050829*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.4392413893132147`*^-213\\\", \ +RowBox[{\\\"1430947572478972522812388\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"62\\\", \\\"\[RightSkeleton]\\\"}], \\\"63737600000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 93, 7, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327936033827*^9, 3.994256422903734*^9}, CellLabel-> "During evaluation of \ -In[167]:=",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], +In[93]:=",ExpressionUUID->"bc38d5d3-64b9-439e-b8b1-9b2c2311885f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 167, 116, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279360588284`*^9}, +during this calculation.\"", 2, 93, 8, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327936033827*^9, 3.99425642291505*^9}, CellLabel-> "During evaluation of \ -In[167]:=",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], +In[93]:=",ExpressionUUID->"de5ad173-539d-4979-988b-1bb64dc6ac8d"], -Cell[BoxData["7.868441587445692`"], "Output", - CellChangeTimes->{3.9913279393385086`*^9}, - CellLabel-> - "Out[167]=",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +Cell[BoxData["4.5472933222454435`"], "Output", + CellChangeTimes->{3.9913279393385086`*^9, 3.9942564265783587`*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"5bffb60a-abc9-4a6d-8f0f-1833ae918dd6"] }, Open ]], Cell[CellGroupData[{ @@ -6144,141 +6015,141 @@ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ - FractionBox[ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", RowBox[{ - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", - RowBox[{"Cos", "[", - FractionBox[ - RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], - RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991848869193308*^9},ExpressionUUID->"124cd7db-c537-8943-bef2-\ -1a154ab4a709"], + CellChangeTimes->{3.991848869193308*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl -kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M -c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN -/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 -+orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 -Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD -VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE -TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG -+GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g -LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r -GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO -zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY -r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 -oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh -xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 -OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ -bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 -fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv -vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO -hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD -1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB -4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW -y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ -lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE -9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM -GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN -15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA -LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 -vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw -/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs -WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ -Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 -BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n -LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 -XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 -7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN -5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs -n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO -GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI -llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys -jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw -frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl -L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM -HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq -TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P -feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 -wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T -1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L -h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp -cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 -luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB -LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 -XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd -i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz -1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr -y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW -gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov -KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA -WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 -c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI -HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR -slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc -QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg -n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W -hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 -RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES -bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK -4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV -IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ -kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 -6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV -fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE -lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj -VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 -E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI -2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c -wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H -f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Xk8FesfB3DZyhopa2StiJIt2p6vLSlbZN+Pc8aaLUklkogWSbr4VbiW +SCIqhLotLkIRSpFI5tCRnTPqit/jj3nN6/16Zj7zfdZRoIXYMjg5ODhG8bVy +D3u3fUt1x7v9jePbq7/tJ9H+iQJdmkkpkv3Ty1rxYI5eurJJPTpX1JcwhG1D +f8srqP0v6pnWTPqOXREV+5rHpA2pDfdOD2MnN0q+iC15j94lf37FxH7aEZa9 +qPUB2U2r/zeKzeptiT5V9wmlqX/43xi2NKnkyjb+gk7bdP49gX14MtrgeNsA +8juhLDKD/XyRJRBV8g3VVrWS89gf4yTOVAV/R5bazYq/sSd4TVhzWiQSFJJu +WsLmvRLqrE0xkaz/y04uRCI50TvNYXWjaDHkuSkftpUM++6E8U80v6PWewM2 +kasorrFmAskdesq/ETtWxTohsG0SbX4vLKOE/Umie2dEyTQ6L/A8TAub7hLg +f+PKDHpiIFmzG3vqNsfflcGz6FLLG4Yx9hpFDZFprXnUqqFD2WOn01+biWxg +o6H08V5PbPki59gdFBtpJS2rBGDrqydOHKtbQA+9ts/EYvvpDbSxjBfRrXsv +aQ+x56JOcPNv/oOq1c3jnmGfqxPYq7pmCdmrqa9uxc4E/fu+bcvIw5zXfGSl +vsJmk/CSVfCnTqJQGUhU0nhjME6GE/pyLy7pYE+NeERfv8IJ2s8c/jHFjlab +f/QwmAtMataf9MNOL1dQmtTigdwdm/6pxO7t+Pl8KZ8HGndm2jViy89Uuwhv +4IUxdoR1L3apjlWaBsULQ5ZuZ7kMSdTw9PSqoLo1kBc1V+GCPf+6a2DUWBBq +7o3EbDQi0ToLQZEzzwVB8UbYP/rYmt0mIGQgBGsar5yyxw4YfpK7c7swINMz +LqnYoZxtmvsERSDukGO7gDGJSMWy6QS2KJxZuzZRygSPD9HC1669DtQHdb32 +YXPeZypIhq0DoymOx97Y8tqbbEvG1sH1LcnN97FdjFMr3w2KwUanpEJTUxK1 ++4Qfl2jdAK6R8ZqpB0j0tSjlstcacSA7MgrrsH+OleTfMxWH2nbf9BFs/ojv +XXteiEO/huEAmJHI5MJRHa8nEkC/tlrtF3Ztgd58cY4UMKNoN8+Zk6iA/B25 +O0IWzLN1OlgWJDpof/Hr8QeyMFP7NlPBEuc3iB14wJSF6l3PWp2wdQrUN8g7 +y8G0y93QZuwGmscjnv2bIMqoq6rUikQzk4MnR+PlIfeIll6yDYnEjpk8fmSp +CNo7k4XTjpKIWcDvZxOgCPdDbqp8xK750iEznqgIL4r1iqTtSeRm4R6/+YUi +GNYBqwC7YFukbZaWEtwaexjy3AF/n1U0FSOhDPzXF07xOJPoqK+AxqFvKrDN +Ovn2d3cSoUh7Lcc/KrDAXxWq7UEitYScXXSpzSCeevt+PDZHvrZRzJHNkFOe +a6/iSaIHX10dK19uBvLXm9PHvPD+dCiNk87bAkW7OwREfXB9JpYfWTRVOHn+ +tUuhH4ny7TL6qBhVELaSEOD0J1EK7dsg9y1VyHKIUvTEpp87MSbXpQpb7I4l +SgeQSLT+DoedsRooC4cr/RWI14/2hFqd0jYoa/F7nBtMIhnFa7GXh9XBM7Xq +ANcJEtVfmlP9xakBd/wNPp7Adpt17iYUNKDEM2RgFDu7QVnVyEMDkt5ye3ZE +kkjRt7ZzoUcDrtSaiRVG4f6WkipE63bo1Wu1Y0STSFZGjpB31oSp3+dtDS+Q +SL0wQvA/pAVpAS6GfjdJRKPHz2tYaYHD2f7SSexMpbSvXm5aYP7GNf7kXyTi +yit/2BilBSIOLmFJGXi/ZbOOplVoQffQ+yPlWfg8zfS6o6qkDfpi5ltFs/H8 +XrbY7sSrA+pSXw+qFJHo73BlmydtuvBhadYytZZEHZFo14VCAxDf5tpzgkUi +BY8PVu5B+6Crfk+ShQITMZarymRPAXzaKSZ80ZWJJMZqVkvQjCDwQi8zNo+J +IrT3fklTM4HMw7vL9X8yEW18sVmMZQonTwgHZ+0ZQQ+Mjq/OaTeDxN+aRe+y +RlDBXMDL0nRzOBiw1Ov/awQtGEq+bYg9DI9c/jDS/EdRPwfX9DdvSzgnuZwX +NDiKgjeGpMYpWUNfeeGBbY4/UJl/84ubCTbAjjESKhn8gU7PSlHb/I/AjvUP +Awz8WWj+0AGHJk9bsO50kdPkHUMGrtcNySN2cPey3yPPe2OoU+pOQIP2UVh9 +V4dZbP4TSd+Nry/eag9Fp2XzJDjGUc2gmoWVkAN8t2Qx3CrHkVz3lG/kuAN8 +rcoutPObQNo3r5fmDzpCaWT4h2O6k+gO9+z2tNdOMJJ4tSb7v0lUZbijN+Gp +M3S1pmTfCppCmbsuiS6WuIBvZUtT2Jcp1N5XmKh9xRU+iQ26SJhNoyeWt5VD +z7nBVg7x/Kb6aTR9zI4jmO4OOXq9fJzqM2j+gKrfhLEHXF9I3/YiawYVj39e +OK7nCVmvhgimyCxy+rvQx13QCyZTLXNpsbPoUeVhT66LXiDm/8wvdn4WGch0 +/kr+5QWrvs5G23rPIaVB3973/t7wStVMoKtpDg0LBFrf/u4N/ftTPD3xf6gj +xcrHzJ4Ge5UGxCNT51F6VI7AiQ4a9FUahEdMzqP658u/fMx9YFO91OIlEzZa +6wYXtWt9wMuytefuZTaSX9/UvrHeB3IEbno2X2EjzTZLSd7nPiATIWr44yob +2e51vffppQ8EGimIqKayUfrGyNazb3xAqPlWT246G0n331/b/MkHRvZYd4fe +YSNlD4lMN8oHUg03vU0tYyMDr4niBB06cPqa0V6/Y6O7WVPHrfTocDSTLXuv +nY3Wd83sl9CnQ0vSuT0pHWw0YUp1F++hA2910C2HTjY+vzhWtRnRwTau4MfA +BzYSpkSd1x2hwwGDvozuL2w0fFWXL+cYHe6GmXCZstgopS7av+YuHVRuuVfo +c1HomFaGQVQxHeIMFT5OY1vcq+DTL6EDn1GZUwk3hfgzmPeqH9DBVTktUoqX +QgnhNqyqx3RYPpckOrWGQtGqyoFPXtGhJ66pIEaYQgEZrUGVX+lQsOBwWF6K +QubCzL3hg3R4HJU73IC9NYFDSGuIDlW/nXv8pCnEDNd9UEHS4VR1VnOZDIW8 +rXLGH/6kg9+juo9achRy4jkeXP6bDtymQQkyShQyOy4dWirOgMSW5SPB6hR6 +lZN4KE2SAf/bmcHDr0GhvW0zylHSDLh8/upUAbamSutnYzkGtJ3kCvq0nUJS +PWeM+1QY8CZffF53J4XGdveL8+sy4I91jGarLoWuceY+87VjgMHZTy7u+3H/ +dwhmWtozoEneqGoA+4JrVLi2IwMarzeaeCMKRT222bLswgCRhPzf3oDrJ1Zd +/4vGAIH7RxqdjSik3UKj/xvGgPTO3a8VD1Co57qKgFIqA9aUzl2SsqRQGRLy +G73OAMdARekz2BfG5xoe3GBARdHH2T5sLfOGGP0MBmyUiku8ZUWhFA6fGcts +BmjdvL95nQ2FDoTkfo4qZUBMEjLst6WQrGyS3v4y3P+GmyHadhSaawm5wfWQ +Adax+0aSsPM2I8uURwzodDSo3HmUQn/6+1/k1zKgf/vM49P2FHpsIVP8rpkB +u5e8PViOFLr8m5MnvYUBgh/uS+k6UYhWzPJ2bmOA5Cp92VhsEe5ameF2BoQ3 +fVoUcaZQUJ3TtV8fGVB9KmWjuguFlNT+ilQmGVCi9qUDuVHod8/Zrh9M3N9p +U75Y7I4Ehmb5KAO49/AlP8OO+abDMviJxzvQ10PfnUK9mV3u1rP4+SOSnioe +FEpbLWp6ehUB9RbRD754Uqh+pt81gouApTfJh8W9KDTSXxIezEPA+NglTmvs +vY9Ncml8BDjuVa97hs30ivrvkCgB6br29qneuH4L03WmYgRssfd7+gp7z651 +qmgDASKJf3TnsFOFSh20pQjQ/Hwq6igNt9cOVMgoEKD/3lmB34dCRGFp8wYl +AircZA7qYqemnhpYq0IArWQx0RObSYgJcasScGVq2qJipV3MzO+nJgF8NtEL +5nQK1S6JxTK1CMjwWztwDJv8MXhzUIcAf7OQ/lTs3S9Ov+7WJyDIP1ShG3s4 +qEzuGRDQuiP+X2sGhYSdzuhWGxGg/izBPwjbwPigRYUJAckRoipJ2ClSQ6cK +DxIwoVI0VI9dw12emnOIgJCN+cMfsL9PninKsiCAQ09waRxbv3HDh6s2BCiF +C56UIfB8VwyNXbQlgCc246Mm9tXb5ZznjxJwM/6kpSn2ULi5ZqQTAX2T8nGB +2EIe4mahLgTIaw7uO4utb/7dPcCNgB1Sg6IpK+9vOnvZw4sA1v7U5VLsGv5D +eU40Al4Y6UvVreTNiz+1pRPw7qzIoeaVvG/f2y0IAqyCN6R1r+S1PWQe8COA +6DCeHlipr/rsHwggQCw705e1kp93aP2eIAJM14rOz67kX5XYphtMwL9ZJVmL +K/lRw4Y7QgkwmabZc/tSSJBe4aQaToDvav2tAti7rGNClCIIqBbYuk4Um7b7 +cKJsJAF5gTvFxLGvqEjekYgi4Gqn7TZp7CoR8pHoaQKaVC+7yGJ/+6+iRSAa +j3/m59xNK/kjMd94YvD6jN+3JI+t13l4YTmWgH3XqsIVsP8PZwTTcQ== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -6292,106 +6163,105 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl -kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M -c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN -/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 -+orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 -Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD -VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE -TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG -+GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g -LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r -GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO -zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY -r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 -oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh -xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 -OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ -bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 -fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv -vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO -hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD -1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB -4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW -y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ -lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE -9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM -GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN -15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA -LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 -vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw -/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs -WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ -Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 -BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n -LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 -XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 -7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN -5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs -n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO -GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI -llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys -jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw -frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl -L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM -HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq -TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P -feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 -wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T -1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L -h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp -cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 -luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB -LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 -XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd -i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz -1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr -y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW -gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov -KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA -WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 -c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI -HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR -slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc -QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg -n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W -hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 -RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES -bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK -4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV -IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ -kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 -6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV -fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE -lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj -VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 -E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI -2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c -wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H -f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a +1:eJwV1Xk8FesfB3DZyhopa2StiJIt2p6vLSlbZN+Pc8aaLUklkogWSbr4VbiW +SCIqhLotLkIRSpFI5tCRnTPqit/jj3nN6/16Zj7zfdZRoIXYMjg5ODhG8bVy +D3u3fUt1x7v9jePbq7/tJ9H+iQJdmkkpkv3Ty1rxYI5eurJJPTpX1JcwhG1D +f8srqP0v6pnWTPqOXREV+5rHpA2pDfdOD2MnN0q+iC15j94lf37FxH7aEZa9 +qPUB2U2r/zeKzeptiT5V9wmlqX/43xi2NKnkyjb+gk7bdP49gX14MtrgeNsA +8juhLDKD/XyRJRBV8g3VVrWS89gf4yTOVAV/R5bazYq/sSd4TVhzWiQSFJJu +WsLmvRLqrE0xkaz/y04uRCI50TvNYXWjaDHkuSkftpUM++6E8U80v6PWewM2 +kasorrFmAskdesq/ETtWxTohsG0SbX4vLKOE/Umie2dEyTQ6L/A8TAub7hLg +f+PKDHpiIFmzG3vqNsfflcGz6FLLG4Yx9hpFDZFprXnUqqFD2WOn01+biWxg +o6H08V5PbPki59gdFBtpJS2rBGDrqydOHKtbQA+9ts/EYvvpDbSxjBfRrXsv +aQ+x56JOcPNv/oOq1c3jnmGfqxPYq7pmCdmrqa9uxc4E/fu+bcvIw5zXfGSl +vsJmk/CSVfCnTqJQGUhU0nhjME6GE/pyLy7pYE+NeERfv8IJ2s8c/jHFjlab +f/QwmAtMataf9MNOL1dQmtTigdwdm/6pxO7t+Pl8KZ8HGndm2jViy89Uuwhv +4IUxdoR1L3apjlWaBsULQ5ZuZ7kMSdTw9PSqoLo1kBc1V+GCPf+6a2DUWBBq +7o3EbDQi0ToLQZEzzwVB8UbYP/rYmt0mIGQgBGsar5yyxw4YfpK7c7swINMz +LqnYoZxtmvsERSDukGO7gDGJSMWy6QS2KJxZuzZRygSPD9HC1669DtQHdb32 +YXPeZypIhq0DoymOx97Y8tqbbEvG1sH1LcnN97FdjFMr3w2KwUanpEJTUxK1 ++4Qfl2jdAK6R8ZqpB0j0tSjlstcacSA7MgrrsH+OleTfMxWH2nbf9BFs/ojv +XXteiEO/huEAmJHI5MJRHa8nEkC/tlrtF3Ztgd58cY4UMKNoN8+Zk6iA/B25 +O0IWzLN1OlgWJDpof/Hr8QeyMFP7NlPBEuc3iB14wJSF6l3PWp2wdQrUN8g7 +y8G0y93QZuwGmscjnv2bIMqoq6rUikQzk4MnR+PlIfeIll6yDYnEjpk8fmSp +CNo7k4XTjpKIWcDvZxOgCPdDbqp8xK750iEznqgIL4r1iqTtSeRm4R6/+YUi +GNYBqwC7YFukbZaWEtwaexjy3AF/n1U0FSOhDPzXF07xOJPoqK+AxqFvKrDN +Ovn2d3cSoUh7Lcc/KrDAXxWq7UEitYScXXSpzSCeevt+PDZHvrZRzJHNkFOe +a6/iSaIHX10dK19uBvLXm9PHvPD+dCiNk87bAkW7OwREfXB9JpYfWTRVOHn+ +tUuhH4ny7TL6qBhVELaSEOD0J1EK7dsg9y1VyHKIUvTEpp87MSbXpQpb7I4l +SgeQSLT+DoedsRooC4cr/RWI14/2hFqd0jYoa/F7nBtMIhnFa7GXh9XBM7Xq +ANcJEtVfmlP9xakBd/wNPp7Adpt17iYUNKDEM2RgFDu7QVnVyEMDkt5ye3ZE +kkjRt7ZzoUcDrtSaiRVG4f6WkipE63bo1Wu1Y0STSFZGjpB31oSp3+dtDS+Q +SL0wQvA/pAVpAS6GfjdJRKPHz2tYaYHD2f7SSexMpbSvXm5aYP7GNf7kXyTi +yit/2BilBSIOLmFJGXi/ZbOOplVoQffQ+yPlWfg8zfS6o6qkDfpi5ltFs/H8 +XrbY7sSrA+pSXw+qFJHo73BlmydtuvBhadYytZZEHZFo14VCAxDf5tpzgkUi +BY8PVu5B+6Crfk+ShQITMZarymRPAXzaKSZ80ZWJJMZqVkvQjCDwQi8zNo+J +IrT3fklTM4HMw7vL9X8yEW18sVmMZQonTwgHZ+0ZQQ+Mjq/OaTeDxN+aRe+y +RlDBXMDL0nRzOBiw1Ov/awQtGEq+bYg9DI9c/jDS/EdRPwfX9DdvSzgnuZwX +NDiKgjeGpMYpWUNfeeGBbY4/UJl/84ubCTbAjjESKhn8gU7PSlHb/I/AjvUP +Awz8WWj+0AGHJk9bsO50kdPkHUMGrtcNySN2cPey3yPPe2OoU+pOQIP2UVh9 +V4dZbP4TSd+Nry/eag9Fp2XzJDjGUc2gmoWVkAN8t2Qx3CrHkVz3lG/kuAN8 +rcoutPObQNo3r5fmDzpCaWT4h2O6k+gO9+z2tNdOMJJ4tSb7v0lUZbijN+Gp +M3S1pmTfCppCmbsuiS6WuIBvZUtT2Jcp1N5XmKh9xRU+iQ26SJhNoyeWt5VD +z7nBVg7x/Kb6aTR9zI4jmO4OOXq9fJzqM2j+gKrfhLEHXF9I3/YiawYVj39e +OK7nCVmvhgimyCxy+rvQx13QCyZTLXNpsbPoUeVhT66LXiDm/8wvdn4WGch0 +/kr+5QWrvs5G23rPIaVB3973/t7wStVMoKtpDg0LBFrf/u4N/ftTPD3xf6gj +xcrHzJ4Ge5UGxCNT51F6VI7AiQ4a9FUahEdMzqP658u/fMx9YFO91OIlEzZa +6wYXtWt9wMuytefuZTaSX9/UvrHeB3IEbno2X2EjzTZLSd7nPiATIWr44yob +2e51vffppQ8EGimIqKayUfrGyNazb3xAqPlWT246G0n331/b/MkHRvZYd4fe +YSNlD4lMN8oHUg03vU0tYyMDr4niBB06cPqa0V6/Y6O7WVPHrfTocDSTLXuv +nY3Wd83sl9CnQ0vSuT0pHWw0YUp1F++hA2910C2HTjY+vzhWtRnRwTau4MfA +BzYSpkSd1x2hwwGDvozuL2w0fFWXL+cYHe6GmXCZstgopS7av+YuHVRuuVfo +c1HomFaGQVQxHeIMFT5OY1vcq+DTL6EDn1GZUwk3hfgzmPeqH9DBVTktUoqX +QgnhNqyqx3RYPpckOrWGQtGqyoFPXtGhJ66pIEaYQgEZrUGVX+lQsOBwWF6K +QubCzL3hg3R4HJU73IC9NYFDSGuIDlW/nXv8pCnEDNd9UEHS4VR1VnOZDIW8 +rXLGH/6kg9+juo9achRy4jkeXP6bDtymQQkyShQyOy4dWirOgMSW5SPB6hR6 +lZN4KE2SAf/bmcHDr0GhvW0zylHSDLh8/upUAbamSutnYzkGtJ3kCvq0nUJS +PWeM+1QY8CZffF53J4XGdveL8+sy4I91jGarLoWuceY+87VjgMHZTy7u+3H/ +dwhmWtozoEneqGoA+4JrVLi2IwMarzeaeCMKRT222bLswgCRhPzf3oDrJ1Zd +/4vGAIH7RxqdjSik3UKj/xvGgPTO3a8VD1Co57qKgFIqA9aUzl2SsqRQGRLy +G73OAMdARekz2BfG5xoe3GBARdHH2T5sLfOGGP0MBmyUiku8ZUWhFA6fGcts +BmjdvL95nQ2FDoTkfo4qZUBMEjLst6WQrGyS3v4y3P+GmyHadhSaawm5wfWQ +Adax+0aSsPM2I8uURwzodDSo3HmUQn/6+1/k1zKgf/vM49P2FHpsIVP8rpkB +u5e8PViOFLr8m5MnvYUBgh/uS+k6UYhWzPJ2bmOA5Cp92VhsEe5ameF2BoQ3 +fVoUcaZQUJ3TtV8fGVB9KmWjuguFlNT+ilQmGVCi9qUDuVHod8/Zrh9M3N9p +U75Y7I4Ehmb5KAO49/AlP8OO+abDMviJxzvQ10PfnUK9mV3u1rP4+SOSnioe +FEpbLWp6ehUB9RbRD754Uqh+pt81gouApTfJh8W9KDTSXxIezEPA+NglTmvs +vY9Ncml8BDjuVa97hs30ivrvkCgB6br29qneuH4L03WmYgRssfd7+gp7z651 +qmgDASKJf3TnsFOFSh20pQjQ/Hwq6igNt9cOVMgoEKD/3lmB34dCRGFp8wYl +AircZA7qYqemnhpYq0IArWQx0RObSYgJcasScGVq2qJipV3MzO+nJgF8NtEL +5nQK1S6JxTK1CMjwWztwDJv8MXhzUIcAf7OQ/lTs3S9Ov+7WJyDIP1ShG3s4 +qEzuGRDQuiP+X2sGhYSdzuhWGxGg/izBPwjbwPigRYUJAckRoipJ2ClSQ6cK +DxIwoVI0VI9dw12emnOIgJCN+cMfsL9PninKsiCAQ09waRxbv3HDh6s2BCiF +C56UIfB8VwyNXbQlgCc246Mm9tXb5ZznjxJwM/6kpSn2ULi5ZqQTAX2T8nGB +2EIe4mahLgTIaw7uO4utb/7dPcCNgB1Sg6IpK+9vOnvZw4sA1v7U5VLsGv5D +eU40Al4Y6UvVreTNiz+1pRPw7qzIoeaVvG/f2y0IAqyCN6R1r+S1PWQe8COA +6DCeHlipr/rsHwggQCw705e1kp93aP2eIAJM14rOz67kX5XYphtMwL9ZJVmL +K/lRw4Y7QgkwmabZc/tSSJBe4aQaToDvav2tAti7rGNClCIIqBbYuk4Um7b7 +cKJsJAF5gTvFxLGvqEjekYgi4Gqn7TZp7CoR8pHoaQKaVC+7yGJ/+6+iRSAa +j3/m59xNK/kjMd94YvD6jN+3JI+t13l4YTmWgH3XqsIVsP8PZwTTcQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "PlotRange" -> {{0, 180}, {0.66392598894111, 1.4626783829671262`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.819001000320631}, + "AxesOrigin" -> {0, 0.6639259889411114}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -6403,132 +6273,131 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "PlotRange" -> {{0, 180}, {0.66392598894111, 1.4626783829671262`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.819001000320631}, + "AxesOrigin" -> {0, 0.6639259889411114}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{91.80048673422971, - 202.7475686600987}, {-12.9358605040218, 4.401639495978198}}], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl -kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M -c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN -/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 -+orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 -Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD -VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE -TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG -+GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g -LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r -GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO -zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY -r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 -oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh -xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 -OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ -bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 -fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv -vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO -hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD -1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB -4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW -y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ -lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE -9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM -GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN -15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA -LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 -vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw -/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs -WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ -Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 -BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n -LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 -XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 -7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN -5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs -n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO -GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI -llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys -jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw -frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl -L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM -HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq -TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P -feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 -wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T -1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L -h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp -cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 -luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB -LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 -XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd -i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz -1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr -y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW -gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov -KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA -WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 -c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI -HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR -slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc -QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg -n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W -hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 -RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES -bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK -4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV -IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ -kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 -6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV -fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE -lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj -VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 -E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI -2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c -wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H -f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a +1:eJwV1Xk8FesfB3DZyhopa2StiJIt2p6vLSlbZN+Pc8aaLUklkogWSbr4VbiW +SCIqhLotLkIRSpFI5tCRnTPqit/jj3nN6/16Zj7zfdZRoIXYMjg5ODhG8bVy +D3u3fUt1x7v9jePbq7/tJ9H+iQJdmkkpkv3Ty1rxYI5eurJJPTpX1JcwhG1D +f8srqP0v6pnWTPqOXREV+5rHpA2pDfdOD2MnN0q+iC15j94lf37FxH7aEZa9 +qPUB2U2r/zeKzeptiT5V9wmlqX/43xi2NKnkyjb+gk7bdP49gX14MtrgeNsA +8juhLDKD/XyRJRBV8g3VVrWS89gf4yTOVAV/R5bazYq/sSd4TVhzWiQSFJJu +WsLmvRLqrE0xkaz/y04uRCI50TvNYXWjaDHkuSkftpUM++6E8U80v6PWewM2 +kasorrFmAskdesq/ETtWxTohsG0SbX4vLKOE/Umie2dEyTQ6L/A8TAub7hLg +f+PKDHpiIFmzG3vqNsfflcGz6FLLG4Yx9hpFDZFprXnUqqFD2WOn01+biWxg +o6H08V5PbPki59gdFBtpJS2rBGDrqydOHKtbQA+9ts/EYvvpDbSxjBfRrXsv +aQ+x56JOcPNv/oOq1c3jnmGfqxPYq7pmCdmrqa9uxc4E/fu+bcvIw5zXfGSl +vsJmk/CSVfCnTqJQGUhU0nhjME6GE/pyLy7pYE+NeERfv8IJ2s8c/jHFjlab +f/QwmAtMataf9MNOL1dQmtTigdwdm/6pxO7t+Pl8KZ8HGndm2jViy89Uuwhv +4IUxdoR1L3apjlWaBsULQ5ZuZ7kMSdTw9PSqoLo1kBc1V+GCPf+6a2DUWBBq +7o3EbDQi0ToLQZEzzwVB8UbYP/rYmt0mIGQgBGsar5yyxw4YfpK7c7swINMz +LqnYoZxtmvsERSDukGO7gDGJSMWy6QS2KJxZuzZRygSPD9HC1669DtQHdb32 +YXPeZypIhq0DoymOx97Y8tqbbEvG1sH1LcnN97FdjFMr3w2KwUanpEJTUxK1 ++4Qfl2jdAK6R8ZqpB0j0tSjlstcacSA7MgrrsH+OleTfMxWH2nbf9BFs/ojv +XXteiEO/huEAmJHI5MJRHa8nEkC/tlrtF3Ztgd58cY4UMKNoN8+Zk6iA/B25 +O0IWzLN1OlgWJDpof/Hr8QeyMFP7NlPBEuc3iB14wJSF6l3PWp2wdQrUN8g7 +y8G0y93QZuwGmscjnv2bIMqoq6rUikQzk4MnR+PlIfeIll6yDYnEjpk8fmSp +CNo7k4XTjpKIWcDvZxOgCPdDbqp8xK750iEznqgIL4r1iqTtSeRm4R6/+YUi +GNYBqwC7YFukbZaWEtwaexjy3AF/n1U0FSOhDPzXF07xOJPoqK+AxqFvKrDN +Ovn2d3cSoUh7Lcc/KrDAXxWq7UEitYScXXSpzSCeevt+PDZHvrZRzJHNkFOe +a6/iSaIHX10dK19uBvLXm9PHvPD+dCiNk87bAkW7OwREfXB9JpYfWTRVOHn+ +tUuhH4ny7TL6qBhVELaSEOD0J1EK7dsg9y1VyHKIUvTEpp87MSbXpQpb7I4l +SgeQSLT+DoedsRooC4cr/RWI14/2hFqd0jYoa/F7nBtMIhnFa7GXh9XBM7Xq +ANcJEtVfmlP9xakBd/wNPp7Adpt17iYUNKDEM2RgFDu7QVnVyEMDkt5ye3ZE +kkjRt7ZzoUcDrtSaiRVG4f6WkipE63bo1Wu1Y0STSFZGjpB31oSp3+dtDS+Q +SL0wQvA/pAVpAS6GfjdJRKPHz2tYaYHD2f7SSexMpbSvXm5aYP7GNf7kXyTi +yit/2BilBSIOLmFJGXi/ZbOOplVoQffQ+yPlWfg8zfS6o6qkDfpi5ltFs/H8 +XrbY7sSrA+pSXw+qFJHo73BlmydtuvBhadYytZZEHZFo14VCAxDf5tpzgkUi +BY8PVu5B+6Crfk+ShQITMZarymRPAXzaKSZ80ZWJJMZqVkvQjCDwQi8zNo+J +IrT3fklTM4HMw7vL9X8yEW18sVmMZQonTwgHZ+0ZQQ+Mjq/OaTeDxN+aRe+y +RlDBXMDL0nRzOBiw1Ov/awQtGEq+bYg9DI9c/jDS/EdRPwfX9DdvSzgnuZwX +NDiKgjeGpMYpWUNfeeGBbY4/UJl/84ubCTbAjjESKhn8gU7PSlHb/I/AjvUP +Awz8WWj+0AGHJk9bsO50kdPkHUMGrtcNySN2cPey3yPPe2OoU+pOQIP2UVh9 +V4dZbP4TSd+Nry/eag9Fp2XzJDjGUc2gmoWVkAN8t2Qx3CrHkVz3lG/kuAN8 +rcoutPObQNo3r5fmDzpCaWT4h2O6k+gO9+z2tNdOMJJ4tSb7v0lUZbijN+Gp +M3S1pmTfCppCmbsuiS6WuIBvZUtT2Jcp1N5XmKh9xRU+iQ26SJhNoyeWt5VD +z7nBVg7x/Kb6aTR9zI4jmO4OOXq9fJzqM2j+gKrfhLEHXF9I3/YiawYVj39e +OK7nCVmvhgimyCxy+rvQx13QCyZTLXNpsbPoUeVhT66LXiDm/8wvdn4WGch0 +/kr+5QWrvs5G23rPIaVB3973/t7wStVMoKtpDg0LBFrf/u4N/ftTPD3xf6gj +xcrHzJ4Ge5UGxCNT51F6VI7AiQ4a9FUahEdMzqP658u/fMx9YFO91OIlEzZa +6wYXtWt9wMuytefuZTaSX9/UvrHeB3IEbno2X2EjzTZLSd7nPiATIWr44yob +2e51vffppQ8EGimIqKayUfrGyNazb3xAqPlWT246G0n331/b/MkHRvZYd4fe +YSNlD4lMN8oHUg03vU0tYyMDr4niBB06cPqa0V6/Y6O7WVPHrfTocDSTLXuv +nY3Wd83sl9CnQ0vSuT0pHWw0YUp1F++hA2910C2HTjY+vzhWtRnRwTau4MfA +BzYSpkSd1x2hwwGDvozuL2w0fFWXL+cYHe6GmXCZstgopS7av+YuHVRuuVfo +c1HomFaGQVQxHeIMFT5OY1vcq+DTL6EDn1GZUwk3hfgzmPeqH9DBVTktUoqX +QgnhNqyqx3RYPpckOrWGQtGqyoFPXtGhJ66pIEaYQgEZrUGVX+lQsOBwWF6K +QubCzL3hg3R4HJU73IC9NYFDSGuIDlW/nXv8pCnEDNd9UEHS4VR1VnOZDIW8 +rXLGH/6kg9+juo9achRy4jkeXP6bDtymQQkyShQyOy4dWirOgMSW5SPB6hR6 +lZN4KE2SAf/bmcHDr0GhvW0zylHSDLh8/upUAbamSutnYzkGtJ3kCvq0nUJS +PWeM+1QY8CZffF53J4XGdveL8+sy4I91jGarLoWuceY+87VjgMHZTy7u+3H/ +dwhmWtozoEneqGoA+4JrVLi2IwMarzeaeCMKRT222bLswgCRhPzf3oDrJ1Zd +/4vGAIH7RxqdjSik3UKj/xvGgPTO3a8VD1Co57qKgFIqA9aUzl2SsqRQGRLy +G73OAMdARekz2BfG5xoe3GBARdHH2T5sLfOGGP0MBmyUiku8ZUWhFA6fGcts +BmjdvL95nQ2FDoTkfo4qZUBMEjLst6WQrGyS3v4y3P+GmyHadhSaawm5wfWQ +Adax+0aSsPM2I8uURwzodDSo3HmUQn/6+1/k1zKgf/vM49P2FHpsIVP8rpkB +u5e8PViOFLr8m5MnvYUBgh/uS+k6UYhWzPJ2bmOA5Cp92VhsEe5ameF2BoQ3 +fVoUcaZQUJ3TtV8fGVB9KmWjuguFlNT+ilQmGVCi9qUDuVHod8/Zrh9M3N9p +U75Y7I4Ehmb5KAO49/AlP8OO+abDMviJxzvQ10PfnUK9mV3u1rP4+SOSnioe +FEpbLWp6ehUB9RbRD754Uqh+pt81gouApTfJh8W9KDTSXxIezEPA+NglTmvs +vY9Ncml8BDjuVa97hs30ivrvkCgB6br29qneuH4L03WmYgRssfd7+gp7z651 +qmgDASKJf3TnsFOFSh20pQjQ/Hwq6igNt9cOVMgoEKD/3lmB34dCRGFp8wYl +AircZA7qYqemnhpYq0IArWQx0RObSYgJcasScGVq2qJipV3MzO+nJgF8NtEL +5nQK1S6JxTK1CMjwWztwDJv8MXhzUIcAf7OQ/lTs3S9Ov+7WJyDIP1ShG3s4 +qEzuGRDQuiP+X2sGhYSdzuhWGxGg/izBPwjbwPigRYUJAckRoipJ2ClSQ6cK +DxIwoVI0VI9dw12emnOIgJCN+cMfsL9PninKsiCAQ09waRxbv3HDh6s2BCiF +C56UIfB8VwyNXbQlgCc246Mm9tXb5ZznjxJwM/6kpSn2ULi5ZqQTAX2T8nGB +2EIe4mahLgTIaw7uO4utb/7dPcCNgB1Sg6IpK+9vOnvZw4sA1v7U5VLsGv5D +eU40Al4Y6UvVreTNiz+1pRPw7qzIoeaVvG/f2y0IAqyCN6R1r+S1PWQe8COA +6DCeHlipr/rsHwggQCw705e1kp93aP2eIAJM14rOz67kX5XYphtMwL9ZJVmL +K/lRw4Y7QgkwmabZc/tSSJBe4aQaToDvav2tAti7rGNClCIIqBbYuk4Um7b7 +cKJsJAF5gTvFxLGvqEjekYgi4Gqn7TZp7CoR8pHoaQKaVC+7yGJ/+6+iRSAa +j3/m59xNK/kjMd94YvD6jN+3JI+t13l4YTmWgH3XqsIVsP8PZwTTcQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "PlotRange" -> {{0, 180}, {0.66392598894111, 1.4626783829671262`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.819001000320631}, + "AxesOrigin" -> {0, 0.6639259889411114}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -6538,7 +6407,8 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.819001000320631}, + AxesOrigin->{0, 0.6639259889411114}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -6566,7 +6436,8 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.8190010003206292, 1.212160280392001}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.66392598894111, 1.4626783829671262`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -6574,9 +6445,8 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913281932019863`*^9}, - CellLabel-> - "Out[168]=",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] + CellChangeTimes->{3.9913281932019863`*^9, 3.994256993948332*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"c76aee10-cc7b-447c-9e53-a2f46cda7131"] }, Open ]], Cell[CellGroupData[{ @@ -6591,7 +6461,9 @@ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -6613,8 +6485,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -6639,348 +6510,169 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918488717861137`*^9},ExpressionUUID->"5a7f9400-1446-9746-a463-\ -bade8ae5c530"], + CellChangeTimes->{3.9918488717861137`*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0472568361461936`*^-267\\\", \ -\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 169, - 117, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913281934227676`*^9}, - CellLabel-> - "During evaluation of \ -In[169]:=",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.5836247142456827`*^-279\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.5106142364009294`*^-268\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 169, - 118, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913281934317894`*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 95, 9, + 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913281934227676`*^9, 3.994256994470558*^9}, CellLabel-> "During evaluation of \ -In[169]:=",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], +In[95]:=",ExpressionUUID->"ce0cd186-f7dd-45e3-b19c-487ebbbb5abd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.3739060311364366`*^-291\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.7773412478936875`*^-279\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 169, 119, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913281934409904`*^9}, +to represent as a normalized machine number; precision may be lost.\"", 2, 95, + 10, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913281934227676`*^9, 3.994256994482469*^9}, CellLabel-> "During evaluation of \ -In[169]:=",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], +In[95]:=",ExpressionUUID->"bc4ec35b-b931-4123-879d-b57e0ff497eb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2582346844303593`*^-290\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 95, 11, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913281934227676`*^9, 3.994256994492485*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"602f0330-cc9b-4531-9867-370d2b13cde9"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 169, 120, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99132819344899*^9}, +during this calculation.\"", 2, 95, 12, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913281934227676`*^9, 3.9942569945008574`*^9}, CellLabel-> "During evaluation of \ -In[169]:=",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], +In[95]:=",ExpressionUUID->"799121f2-b0ff-41e3-acb7-fc4e82147645"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr -4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X -RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD -OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV -zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn -l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI -1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p -HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t -nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx -T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq -8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT -gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L -kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR -bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R -rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS -HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y -gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg -bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ -wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 -Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO -1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a -MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC -VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy -Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU -OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr -0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 -WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN -FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 -NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW -uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN -BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs -Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy -O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx -e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k -Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU -/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q -6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 -qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu -/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 -hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC -qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij -bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 -i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ -Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja -ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D -d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr -z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA -MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD -Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g -gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv -eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq -t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 -+PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m -848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 -yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt -633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI -4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De -Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM -E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 -Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r -lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy -uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb -tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT -ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ -8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats -MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ -LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy -rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h -EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys -GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv -8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK -E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 -T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 -uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl -dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt -Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh -dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH -E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD -HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ -aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh -2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I -P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq -UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G -c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd -xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn -l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e -zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L -Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 -6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU -4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 -UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C -zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n -TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 -PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa -/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP -4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP -HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 -56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT -fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU -pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV -YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq -mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 -rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM -b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN -ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li -wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp -fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 -EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM -ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj -ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT -T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e -E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv -C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a -Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ -1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs -eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN -4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y -pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE -1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu -6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc -pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 -Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ -Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP -NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc -mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh -27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 -PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c -ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi -0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U -XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA -VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT -gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn -LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp -PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n -23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw -CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i -L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc -KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN -/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 -v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 -1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb -eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 -tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q -sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 -MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa -mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o -aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv -RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 -UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde -aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK -Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ -jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA -LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O -VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP -6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 -Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl -vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny -ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf -PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo -v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ -QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 -JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv -WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ -q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 -HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC -lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK -THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K -LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r -qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk -TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt -XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx -3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y -NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy -Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R -/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD -9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J -eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl -lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c -to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 -mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib -HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 -Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 -RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH -ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w -tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK -EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF -n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 -Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl -kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 -+f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC -XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf -+xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw -5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn -fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 -GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 -+8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx -f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI -cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU -+tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG -aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL -eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ -00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M -z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf -O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD -mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ -3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA -61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu -+HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY -b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J -EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq -OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw -320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq -T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL -uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP -ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E -mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c -aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 -2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t -HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 -cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl -5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs -bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ -pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl -Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 -RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 -u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW -vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 -JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd -9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f -CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS -GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be -/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT -kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI -8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX -Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne -xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ -EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ -MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 -mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl -kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr -wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z -nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo -Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t -RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO -NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T -6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl -w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL -TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L -7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ -RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr -ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag -gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e -gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW -nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 -ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV -JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu -NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ -wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu -acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik -f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 -Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ -Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 -CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 -ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA -lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu -AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN -SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v -q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi -hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L -ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH -ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn -DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL -8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 -iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA -D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA -V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S -MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD -nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ -MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd -Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4lN/7B3AfKopU9n2eGVtZEoks031L9qWUJUsoplKRspWULVLkKxJp +sYSUMPOIbKkslbWFCkmFNklJWrT4nd9fc72uc8085znnvt/nDHPb3o0cfj4+ +PsZ/fHz///l9qK1FJblwTc7bKxm902vX9F6UOWjWFwcJ2iN0qD8TUPLBNpm+ +dOh1eM2199eF8A1Xnwn0FQAjtXGrrr8ZLJmQTv/1jAZc/D52nr8TvGxw3Pvt +WRM4MFJWRvltBUuVsReTzx5DkHB/rd/WffDrmWHml2fDYHLHMk/EPRaazS8X +PiqYgvtWtRX2n06Bwsvat9u0/sJ8vpLoZJsckNjjc1XQXAClancf44nkQ7qu +Zb2jixAO8uWeMeQvgv7sFbcnFy/Eec2Dq3/4lUByYfQDftkl2FFYNZ+6WgrS +p0eOZ1wQxynTT67H95WDjGbV0Z/F4ngsss9M5FA5yDUlRm/himNLcmNj0tFy +UPqyLEy9WRyrnWsCgrLKQdU+2Lf+vTgeDknxG28oh5Vz/hqMrJTAgx2cd7x5 +FbA+VGpUr10CXxlvKfXMrIBjzjZrHn+XxBazZ9zI9VyQu94tx/+fFHas87S8 +tYkL5eLOP3SFpTBHrGRy1o0LTx97c08xpDAslj8pzJcLKk6hLCdrKTT3HCrR +3ceFJofceQ/PSuGHpb4Bn05x4a/ldHeXqTTy7J5eDn7IhbTiyNK/ltI4XKnn +YNhLvj+PL0nbSRr/fY389+sZF+xbF5id5Eij+ZyZ+JCXXMgxpyrtU6WRqbBK +0nCCC6vRLqvjpTQOTHGX8QnzIMQo36ctTgYHRZv1zprxwDZP9Jtdigw+v1Hr +dWUdD1iCUUndmTL45ZXHkmorHjzsdeX1lMig3MtkuVYHHiwPFhEY6pbBljn7 +r9W68+B9cUTxVzlZ7N/l8PBPMA+8JBw/yVfKYqmwqN/H8zxYeag+9mKDLB5P +3fk5JZcHC4aXSjHvymK3wAIhzQIe1FYIgFq/LBZezx3yuswDKbvatBWzspij +2qqSxSPPj1XRt7CTQ7bOPIPtrTxY93kmMmhEDkMcH5TtHePBQevTGnfG5XDT +u2rB7HEelOdrD4h/l8MP2tJSNyd4IOPsa1QrJI+WPsZOf7/yYLym9YfAcnkM +1Be1dv3Ng4y4tNCzB+Rx9YxeyC5hGu4/X6YyHiuPK5kdK70X0vBHv7lnTbI8 +lvLrlDkuomH7u2m90Qvy6BKe1qEqToOxvefk8mZ5dFcLvHVNjoZhSbWgloUK +2JKwrlNxGQ3Se28pSksr4NVvU/BCgwb7+5u7AigFPO98Y99ZLRqqI5O1Fq1U +wNmv44uFVtBw4uWXMffNCsg2CrRuNKBB70r9js8FCnjFIWcy1ZyGWFOnrXKr +FXFwUblwiwcN1t4XvxquVUR2RI2SkRcNojEf413sFXEkuHP31S00nG9OKE7z +VcTuypjqWF8aamzrPs47roiZNnsYAttp+LJZOXyqXxF3+bzocgqm4UZksOCS +UUVkucl3ndhHw5HzN7OXTygi+JYvvr2fBpFXbvUB/EooXpS2gxFGg/qOFL5X +Gkq4wadyB+8gDd5h0yc6Dylh8eW6DcpxNKhmrVUYS1BCFbnXH6h4mqz//8oE +05SwTrb/sdxRGiL/LHu4tlAJq09bZAkk0pAZ7y1Z26mEJ4KOzZYcp8GrqLT4 +6VMlzNO8onX8BA2sez8Nv70iftxWwUmmgbsgw0NnWgnvKenXi5+kofPUvdwi +RQZ27GD+NU+jIaNSQrdZnYEUXP4y7xQNHk+2Nr3SZWDk5Xy8S/xe5s+ovCUD +7yxd98sogwaBvBUa6UEM/JhTNjqdSUP7ncP1FQcYaPma3XPuDA1pI+32XXEM +TLOZVVmTRYOSOmevUBYD2UlJ0xHZpB7Kz14/couBroek/G7n0LDuWfffifsM +jAvWDsFzNDjyzbHyeczAvbks/5vEfhuD+uENA/uOpn0sO09D0KFLLO4EAwev +RsczL9BwoLBvN/WTgZXvjWZPEVseYkbHzKVQz21uUcBFGjoWNVxavYDCfo+M +hw+JNxS63v8iSiHKvx3Wz6XBsyt5yVYZCn9pDzZOEQczvl8y06TwsLpVgH0+ +DdOVafd/6VDoukTvVQ5xpLXmJ54+hVsfz5i/JU7Y52vAWkNhpZ7Zk5ACGhbM +++0xsJbCyd2Oc6qJ03Iyo9OtKLSv2Kw8TZzT3H6f34lC1q9k/V2XaGBs5nyq +c6Fwd53t0jziwvHZJSEeFHrO6C7qIdaIzTHQ9KHQN0p0jL+QhgrJVZ4jfsSt +ZbU6xPpXH0Sf20mhsvzQEXfiujW7CjcFUjgUH2QcQww9c9qE91N4sXX5p0vE +LTtyPzWHU3ib8zmrhdjmj5FY1CEKd5XEmgwTd6f1GujHUCiUdqPvD7Gz6l7P +8aMUVgz6BUsU0dBfOz+m8DiFZcIeAsuIvR0LC71SKfzoGpRuTDw6vKZNIoPC +oOthSjbEARH9nzqzKGx5YlHiTDwhHCqWcJ7CePWqFVuIQ/JEDdn5FNIPc2q2 +Ef/Uv+I5XUShA92NHOIjbeYxZVfJ+PZl7f7EAt5DhZwKCkXMjrpsJU76eqBN +8TqFL+1rRzyIRY+JTzypIfvjcCnMiThDvlws9SaF828qilgQy3CtDS2bKPzQ +OadkFfGFdSOe/+5SqO+/ylaZmNV/OKa6g7wv4+TUQuKSQJmioIcUyjiNFU6T +9dDmr2xTe0Jh6T9NnwFi+ozDxFA/hXHDusoNxKs134tlDVGosGtwMod4rbOi +l+B7Cr9lFdLrie+9vxFza5zUx+nEYlVi+8MbiyImKZQcziz5SfbbrfjYxLsZ +Ckuudw5kEg8as8TzZsl6STaK+BJve9BguHkOE9dFBW9QJ97zczLm/kImap+u +XFxG6st433apt2JMjK+e/4lDLDQ2UCogw8TZGl0veeKi581P17CY6H3wwo9D +pH5DnVfv8VJnYlWGgZo68dqua/9FajHRz8J+vDuPhqHGTK0qAybeZBeYSxBf +M1zQ9NiEjOvBMx7pl0juEbcvyERaRkzQnliqYEecph0TVQUVMZz02/oEo758 +HyYyCzcYFZD+VfpXFnjLn4nS86mHKsTj4SyBFwFMnK/aLFJI+j1pp/BymVAm +XlH3j8om+XDb7kV8ahITJWN93NxJfqS2OMleO8lEsXwJuEPyxYt9t7wtnYnX +2CFPVYl/La/on3OBiWcWL5V9Q/JJTyxW5xCPictWH15iSvKLL3m6Jbuaif1b +E84eTyf1LrDLo7qeiULS5s97SN7tnt6YMNnKxE0fvqV5k3ws7FN5vmOAiQ06 +P9/bk/yUyr2f6CzAQin3DXtSSR6PSrMV9guxMLLow7KSBFIPaTze/xay8MGJ +8apGkt/r43IG26VZGHwyYs0wyfskzh49My0Wjvy+ZyAQTearuXhI24WF5v1T +n8vCafh+QS52pQcLdfjit+SQ8+PbIlUVIx8Wtm661xEfSvpnymjXugAWtp87 +V+FAzpvher/vHodZOCrZWXMzkOSx3Q3RpCIWlu1d9X2RP6m3m3d4J6+ycF7U +WeGubaT/dTqdMypYeKuszODYVhoaxV/nXKxl4Wk1k56v3mT+zxeoV3WR+d73 +srvsTvJqtzcMT7NwOgc5iY40ZL3YOfxuhoW7I7vDJR1oOL0+JOHTLAsN7lyq +zLcj+7MyqePnfGXkhl28zrOmIe43z22RkjI2LrSZqVhL1jd5brCppTLu6HvZ +pkbOb9PSa3lnziijUe80CsrT8JwqzbU4p4y+0eZ2W2RJfZ25cvFbrjI+f8qY +x5Mm529s8fmNV5RRiNJId5Ig+7s5L1u0QRkdNzNUIsh9ZNnc02mJr5XRPjdi +lcssuS/5HIoJ11LBC6kSjpzXPJgUs/V1bVLBBTeY62XIfatvD+vhrnsq+OKf +5+9Kch+7fXcGojtV0CFd3dYhhwdpkaWMkqcqKDlR++RAJg9WDIu8/DWmgoL6 +3Q8rk3kQxHuw5YK4KipvunqjLoIHY+tdPEf9VVFlS6uXtCMPRlN8XfcLqqHL +QitXzjcu2HyOsHljoI6PYt+8PLCaC+N+QiHXo5fioEZNZuflcvJ/QZr/WNMy +tE7dtn/k9jUQ61JL5X7WQGHVW1OmI1dBIalig4GBFgYqGk+UdJdAtqbRYvEd +2jhaF7mgoa8Y2uXMVk2dWo5/wp+aTHwuBGOFpjSdpzoYNPdpf8P7AhAVKAjd +GrcCW4pa4o5J5INSLMPUXU0XW5sOrjzsexHmq3pVb7yniw51BvHvX+XAcrZs +RcQWPXw5sw4Ce7Ng/5BYsy3fSvze5vnf9dbT8HkqxcUmm/jByNyrS9PBSudu +jo22PnYf7Zv7oOh/0Dhl8vtHtz4OS/uF9EgkQ5CW3sAjzioMLk56d8/yGLAn +/Hvd5xugUbsGzObGg4WKjMPCAgM0NXU7t6ggBpbGnDjQZGiIiWe3yHKoKNDg +GN1SHTDEtJ9h4972EcBp3Hn0+r7VWFQdwyoNDIFbeb3+k5JGyOciESxRvRe+ +lcz+0LlhhKP73IQcHgTAW1fLvOO1Rjhgu3NmRX0A9M05aT1Sb4QBLUUurMsB +UO8rd/bMbSPslZLV0o4OgDiZVcZ/24xQ+4B/9rBOACxO2hXVPmiE2V/2Bt/N +2AlaO57wcfiN8XWYd/Jazg7wUy2dn+NgjLeeu7zK1OZAZKv3LrUNxriOVbRX +V54DaRyxDnqjMR6/ZtY1IMSBhqKDKR1uxujy5vJj11F/kFCzXvR3qzHK3Slh +Tp3zh7tqbyR8w8n4fxlVVQv9QWMpg1LLNcaSxPxgjd/bYFIjw4D+Yox8/2S3 +y/7xhb5OtBCfMkbuqsSij5984XbQxKbQaWO0M2taff+lL6TSNvsMZoxx6Qev +tXnNvqBhzHetTsAEx2xjVnck+8I2m0Bms5QJbg4T3C2o5Au9O6xEek1N8Hvm +3Z1DGd5QU/j79XSSCf4etffeE+UJBuahP2yTTZDeHLHRmeMJVa/HRfJOmuDA +poNuDo6eQCsNGdqmm6CNc9Ku/ZQnXMu+ffLiORN0O+ybcazVA/JSEoysyk0w +al7A114xDzgeuuhUdo8Jpqb59F+v3Qwe65TRRMkURXQE33obuMLfXiHRZsoU +KyqNz51nukIeZ+K5rbIprv26IOajiCu8TayN8Fhqiq+aZkoaRlxgf9v6ioN6 +pij7vUJLM90FTjhGKdVYmuIDs52Vy786Q93mJ3/095pi9zN37pHGTSAfeKx2 ++W3yPOX6uV0JTpA6u31VcpMp9r95q6AQ7gT86Za8dy2mSP8Za4jY7gRj1XOv +5LWZouaDlDBnKyeo4zuaLdZjit5R5wYL5juBx+mYiO9vTLHt40LNlLQNkF1/ +cFWjMBu5nldGyhzXg+SCPTwHNzZCfmuEzIQdFJofjvzizsZ0S+1DsY/sQO9w +qnmGFxu715xqmlNlB45fuE/6trJxMDil3T3KDhKfTv/y20N+r7z5iImIHfws +iF4bGcvGruix8x0rbGHAJKOnuJSNoyMbt6WnWMPOsMLzNuVsdNMUq1cIsYbv +5VWccS4bi9VD+hvdrUGM1fdDt5qNd0UT5GzVrcFOSFHh5m02buw5kB3ZbAUN +vcX+PU/YyN59blaPzwpsRWu0w/vYONn+/tGK95bQZ9X2XeY5G+cGTptaPLSE +b3Ufk7xfsTE0sSqDl2cJ2vkryj6MkfmEWJqfWWsJDQNm4Smf2Jioxx2w1LQE +W4lNoPOFjd+0hg4slLCE7cfCHoVOs9H2xs7YwTcW8O12Yo70TzYuj+i5N9pt +AXEzWX51M2w0bVfq4q+xgMX6V7S2/GXjn6mgaIN8C7gYWDc9O8tGnedTndEn +LOD/AKywKXA= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -6994,307 +6686,125 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr -4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X -RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD -OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV -zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn -l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI -1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p -HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t -nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx -T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq -8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT -gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L -kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR -bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R -rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS -HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y -gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg -bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ -wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 -Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO -1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a -MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC -VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy -Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU -OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr -0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 -WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN -FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 -NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW -uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN -BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs -Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy -O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx -e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k -Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU -/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q -6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 -qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu -/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 -hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC -qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij -bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 -i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ -Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja -ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D -d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr -z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA -MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD -Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g -gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv -eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq -t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 -+PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m -848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 -yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt -633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI -4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De -Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM -E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 -Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r -lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy -uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb -tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT -ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ -8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats -MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ -LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy -rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h -EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys -GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv -8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK -E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 -T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 -uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl -dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt -Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh -dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH -E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD -HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ -aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh -2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I -P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq -UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G -c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd -xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn -l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e -zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L -Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 -6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU -4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 -UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C -zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n -TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 -PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa -/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP -4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP -HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 -56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT -fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU -pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV -YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq -mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 -rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM -b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN -ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li -wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp -fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 -EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM -ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj -ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT -T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e -E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv -C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a -Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ -1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs -eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN -4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y -pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE -1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu -6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc -pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 -Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ -Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP -NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc -mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh -27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 -PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c -ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi -0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U -XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA -VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT -gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn -LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp -PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n -23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw -CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i -L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc -KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN -/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 -v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 -1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb -eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 -tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q -sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 -MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa -mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o -aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv -RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 -UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde -aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK -Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ -jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA -LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O -VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP -6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 -Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl -vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny -ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf -PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo -v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ -QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 -JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv -WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ -q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 -HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC -lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK -THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K -LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r -qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk -TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt -XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx -3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y -NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy -Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R -/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD -9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J -eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl -lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c -to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 -mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib -HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 -Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 -RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH -ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w -tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK -EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF -n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 -Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl -kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 -+f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC -XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf -+xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw -5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn -fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 -GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 -+8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx -f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI -cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU -+tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG -aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL -eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ -00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M -z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf -O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD -mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ -3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA -61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu -+HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY -b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J -EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq -OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw -320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq -T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL -uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP -ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E -mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c -aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 -2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t -HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 -cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl -5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs -bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ -pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl -Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 -RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 -u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW -vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 -JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd -9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f -CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS -GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be -/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT -kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI -8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX -Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne -xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ -EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ -MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 -mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl -kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr -wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z -nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo -Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t -RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO -NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T -6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl -w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL -TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L -7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ -RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr -ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag -gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e -gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW -nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 -ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV -JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu -NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ -wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu -acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik -f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 -Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ -Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 -CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 -ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA -lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu -AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN -SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v -q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi -hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L -ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH -ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn -DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL -8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 -iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA -D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA -V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S -MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD -nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ -MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd -Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== +1:eJwV13k4lN/7B3AfKopU9n2eGVtZEoks031L9qWUJUsoplKRspWULVLkKxJp +sYSUMPOIbKkslbWFCkmFNklJWrT4nd9fc72uc8085znnvt/nDHPb3o0cfj4+ +PsZ/fHz///l9qK1FJblwTc7bKxm902vX9F6UOWjWFwcJ2iN0qD8TUPLBNpm+ +dOh1eM2199eF8A1Xnwn0FQAjtXGrrr8ZLJmQTv/1jAZc/D52nr8TvGxw3Pvt +WRM4MFJWRvltBUuVsReTzx5DkHB/rd/WffDrmWHml2fDYHLHMk/EPRaazS8X +PiqYgvtWtRX2n06Bwsvat9u0/sJ8vpLoZJsckNjjc1XQXAClancf44nkQ7qu +Zb2jixAO8uWeMeQvgv7sFbcnFy/Eec2Dq3/4lUByYfQDftkl2FFYNZ+6WgrS +p0eOZ1wQxynTT67H95WDjGbV0Z/F4ngsss9M5FA5yDUlRm/himNLcmNj0tFy +UPqyLEy9WRyrnWsCgrLKQdU+2Lf+vTgeDknxG28oh5Vz/hqMrJTAgx2cd7x5 +FbA+VGpUr10CXxlvKfXMrIBjzjZrHn+XxBazZ9zI9VyQu94tx/+fFHas87S8 +tYkL5eLOP3SFpTBHrGRy1o0LTx97c08xpDAslj8pzJcLKk6hLCdrKTT3HCrR +3ceFJofceQ/PSuGHpb4Bn05x4a/ldHeXqTTy7J5eDn7IhbTiyNK/ltI4XKnn +YNhLvj+PL0nbSRr/fY389+sZF+xbF5id5Eij+ZyZ+JCXXMgxpyrtU6WRqbBK +0nCCC6vRLqvjpTQOTHGX8QnzIMQo36ctTgYHRZv1zprxwDZP9Jtdigw+v1Hr +dWUdD1iCUUndmTL45ZXHkmorHjzsdeX1lMig3MtkuVYHHiwPFhEY6pbBljn7 +r9W68+B9cUTxVzlZ7N/l8PBPMA+8JBw/yVfKYqmwqN/H8zxYeag+9mKDLB5P +3fk5JZcHC4aXSjHvymK3wAIhzQIe1FYIgFq/LBZezx3yuswDKbvatBWzspij +2qqSxSPPj1XRt7CTQ7bOPIPtrTxY93kmMmhEDkMcH5TtHePBQevTGnfG5XDT +u2rB7HEelOdrD4h/l8MP2tJSNyd4IOPsa1QrJI+WPsZOf7/yYLym9YfAcnkM +1Be1dv3Ng4y4tNCzB+Rx9YxeyC5hGu4/X6YyHiuPK5kdK70X0vBHv7lnTbI8 +lvLrlDkuomH7u2m90Qvy6BKe1qEqToOxvefk8mZ5dFcLvHVNjoZhSbWgloUK +2JKwrlNxGQ3Se28pSksr4NVvU/BCgwb7+5u7AigFPO98Y99ZLRqqI5O1Fq1U +wNmv44uFVtBw4uWXMffNCsg2CrRuNKBB70r9js8FCnjFIWcy1ZyGWFOnrXKr +FXFwUblwiwcN1t4XvxquVUR2RI2SkRcNojEf413sFXEkuHP31S00nG9OKE7z +VcTuypjqWF8aamzrPs47roiZNnsYAttp+LJZOXyqXxF3+bzocgqm4UZksOCS +UUVkucl3ndhHw5HzN7OXTygi+JYvvr2fBpFXbvUB/EooXpS2gxFGg/qOFL5X +Gkq4wadyB+8gDd5h0yc6Dylh8eW6DcpxNKhmrVUYS1BCFbnXH6h4mqz//8oE +05SwTrb/sdxRGiL/LHu4tlAJq09bZAkk0pAZ7y1Z26mEJ4KOzZYcp8GrqLT4 +6VMlzNO8onX8BA2sez8Nv70iftxWwUmmgbsgw0NnWgnvKenXi5+kofPUvdwi +RQZ27GD+NU+jIaNSQrdZnYEUXP4y7xQNHk+2Nr3SZWDk5Xy8S/xe5s+ovCUD +7yxd98sogwaBvBUa6UEM/JhTNjqdSUP7ncP1FQcYaPma3XPuDA1pI+32XXEM +TLOZVVmTRYOSOmevUBYD2UlJ0xHZpB7Kz14/couBroek/G7n0LDuWfffifsM +jAvWDsFzNDjyzbHyeczAvbks/5vEfhuD+uENA/uOpn0sO09D0KFLLO4EAwev +RsczL9BwoLBvN/WTgZXvjWZPEVseYkbHzKVQz21uUcBFGjoWNVxavYDCfo+M +hw+JNxS63v8iSiHKvx3Wz6XBsyt5yVYZCn9pDzZOEQczvl8y06TwsLpVgH0+ +DdOVafd/6VDoukTvVQ5xpLXmJ54+hVsfz5i/JU7Y52vAWkNhpZ7Zk5ACGhbM +++0xsJbCyd2Oc6qJ03Iyo9OtKLSv2Kw8TZzT3H6f34lC1q9k/V2XaGBs5nyq +c6Fwd53t0jziwvHZJSEeFHrO6C7qIdaIzTHQ9KHQN0p0jL+QhgrJVZ4jfsSt +ZbU6xPpXH0Sf20mhsvzQEXfiujW7CjcFUjgUH2QcQww9c9qE91N4sXX5p0vE +LTtyPzWHU3ib8zmrhdjmj5FY1CEKd5XEmgwTd6f1GujHUCiUdqPvD7Gz6l7P +8aMUVgz6BUsU0dBfOz+m8DiFZcIeAsuIvR0LC71SKfzoGpRuTDw6vKZNIoPC +oOthSjbEARH9nzqzKGx5YlHiTDwhHCqWcJ7CePWqFVuIQ/JEDdn5FNIPc2q2 +Ef/Uv+I5XUShA92NHOIjbeYxZVfJ+PZl7f7EAt5DhZwKCkXMjrpsJU76eqBN +8TqFL+1rRzyIRY+JTzypIfvjcCnMiThDvlws9SaF828qilgQy3CtDS2bKPzQ +OadkFfGFdSOe/+5SqO+/ylaZmNV/OKa6g7wv4+TUQuKSQJmioIcUyjiNFU6T +9dDmr2xTe0Jh6T9NnwFi+ozDxFA/hXHDusoNxKs134tlDVGosGtwMod4rbOi +l+B7Cr9lFdLrie+9vxFza5zUx+nEYlVi+8MbiyImKZQcziz5SfbbrfjYxLsZ +Ckuudw5kEg8as8TzZsl6STaK+BJve9BguHkOE9dFBW9QJ97zczLm/kImap+u +XFxG6st433apt2JMjK+e/4lDLDQ2UCogw8TZGl0veeKi581P17CY6H3wwo9D +pH5DnVfv8VJnYlWGgZo68dqua/9FajHRz8J+vDuPhqHGTK0qAybeZBeYSxBf +M1zQ9NiEjOvBMx7pl0juEbcvyERaRkzQnliqYEecph0TVQUVMZz02/oEo758 +HyYyCzcYFZD+VfpXFnjLn4nS86mHKsTj4SyBFwFMnK/aLFJI+j1pp/BymVAm +XlH3j8om+XDb7kV8ahITJWN93NxJfqS2OMleO8lEsXwJuEPyxYt9t7wtnYnX +2CFPVYl/La/on3OBiWcWL5V9Q/JJTyxW5xCPictWH15iSvKLL3m6Jbuaif1b +E84eTyf1LrDLo7qeiULS5s97SN7tnt6YMNnKxE0fvqV5k3ws7FN5vmOAiQ06 +P9/bk/yUyr2f6CzAQin3DXtSSR6PSrMV9guxMLLow7KSBFIPaTze/xay8MGJ +8apGkt/r43IG26VZGHwyYs0wyfskzh49My0Wjvy+ZyAQTearuXhI24WF5v1T +n8vCafh+QS52pQcLdfjit+SQ8+PbIlUVIx8Wtm661xEfSvpnymjXugAWtp87 +V+FAzpvher/vHodZOCrZWXMzkOSx3Q3RpCIWlu1d9X2RP6m3m3d4J6+ycF7U +WeGubaT/dTqdMypYeKuszODYVhoaxV/nXKxl4Wk1k56v3mT+zxeoV3WR+d73 +srvsTvJqtzcMT7NwOgc5iY40ZL3YOfxuhoW7I7vDJR1oOL0+JOHTLAsN7lyq +zLcj+7MyqePnfGXkhl28zrOmIe43z22RkjI2LrSZqVhL1jd5brCppTLu6HvZ +pkbOb9PSa3lnziijUe80CsrT8JwqzbU4p4y+0eZ2W2RJfZ25cvFbrjI+f8qY +x5Mm529s8fmNV5RRiNJId5Ig+7s5L1u0QRkdNzNUIsh9ZNnc02mJr5XRPjdi +lcssuS/5HIoJ11LBC6kSjpzXPJgUs/V1bVLBBTeY62XIfatvD+vhrnsq+OKf +5+9Kch+7fXcGojtV0CFd3dYhhwdpkaWMkqcqKDlR++RAJg9WDIu8/DWmgoL6 +3Q8rk3kQxHuw5YK4KipvunqjLoIHY+tdPEf9VVFlS6uXtCMPRlN8XfcLqqHL +QitXzjcu2HyOsHljoI6PYt+8PLCaC+N+QiHXo5fioEZNZuflcvJ/QZr/WNMy +tE7dtn/k9jUQ61JL5X7WQGHVW1OmI1dBIalig4GBFgYqGk+UdJdAtqbRYvEd +2jhaF7mgoa8Y2uXMVk2dWo5/wp+aTHwuBGOFpjSdpzoYNPdpf8P7AhAVKAjd +GrcCW4pa4o5J5INSLMPUXU0XW5sOrjzsexHmq3pVb7yniw51BvHvX+XAcrZs +RcQWPXw5sw4Ce7Ng/5BYsy3fSvze5vnf9dbT8HkqxcUmm/jByNyrS9PBSudu +jo22PnYf7Zv7oOh/0Dhl8vtHtz4OS/uF9EgkQ5CW3sAjzioMLk56d8/yGLAn +/Hvd5xugUbsGzObGg4WKjMPCAgM0NXU7t6ggBpbGnDjQZGiIiWe3yHKoKNDg +GN1SHTDEtJ9h4972EcBp3Hn0+r7VWFQdwyoNDIFbeb3+k5JGyOciESxRvRe+ +lcz+0LlhhKP73IQcHgTAW1fLvOO1Rjhgu3NmRX0A9M05aT1Sb4QBLUUurMsB +UO8rd/bMbSPslZLV0o4OgDiZVcZ/24xQ+4B/9rBOACxO2hXVPmiE2V/2Bt/N +2AlaO57wcfiN8XWYd/Jazg7wUy2dn+NgjLeeu7zK1OZAZKv3LrUNxriOVbRX +V54DaRyxDnqjMR6/ZtY1IMSBhqKDKR1uxujy5vJj11F/kFCzXvR3qzHK3Slh +Tp3zh7tqbyR8w8n4fxlVVQv9QWMpg1LLNcaSxPxgjd/bYFIjw4D+Yox8/2S3 +y/7xhb5OtBCfMkbuqsSij5984XbQxKbQaWO0M2taff+lL6TSNvsMZoxx6Qev +tXnNvqBhzHetTsAEx2xjVnck+8I2m0Bms5QJbg4T3C2o5Au9O6xEek1N8Hvm +3Z1DGd5QU/j79XSSCf4etffeE+UJBuahP2yTTZDeHLHRmeMJVa/HRfJOmuDA +poNuDo6eQCsNGdqmm6CNc9Ku/ZQnXMu+ffLiORN0O+ybcazVA/JSEoysyk0w +al7A114xDzgeuuhUdo8Jpqb59F+v3Qwe65TRRMkURXQE33obuMLfXiHRZsoU +KyqNz51nukIeZ+K5rbIprv26IOajiCu8TayN8Fhqiq+aZkoaRlxgf9v6ioN6 +pij7vUJLM90FTjhGKdVYmuIDs52Vy786Q93mJ3/095pi9zN37pHGTSAfeKx2 ++W3yPOX6uV0JTpA6u31VcpMp9r95q6AQ7gT86Za8dy2mSP8Za4jY7gRj1XOv +5LWZouaDlDBnKyeo4zuaLdZjit5R5wYL5juBx+mYiO9vTLHt40LNlLQNkF1/ +cFWjMBu5nldGyhzXg+SCPTwHNzZCfmuEzIQdFJofjvzizsZ0S+1DsY/sQO9w +qnmGFxu715xqmlNlB45fuE/6trJxMDil3T3KDhKfTv/y20N+r7z5iImIHfws +iF4bGcvGruix8x0rbGHAJKOnuJSNoyMbt6WnWMPOsMLzNuVsdNMUq1cIsYbv +5VWccS4bi9VD+hvdrUGM1fdDt5qNd0UT5GzVrcFOSFHh5m02buw5kB3ZbAUN +vcX+PU/YyN59blaPzwpsRWu0w/vYONn+/tGK95bQZ9X2XeY5G+cGTptaPLSE +b3Ufk7xfsTE0sSqDl2cJ2vkryj6MkfmEWJqfWWsJDQNm4Smf2Jioxx2w1LQE +W4lNoPOFjd+0hg4slLCE7cfCHoVOs9H2xs7YwTcW8O12Yo70TzYuj+i5N9pt +AXEzWX51M2w0bVfq4q+xgMX6V7S2/GXjn6mgaIN8C7gYWDc9O8tGnedTndEn +LOD/AKywKXA= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "PlotRange" -> {{0, 30}, {0., 0.07283623535358537}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7306,19 +6816,19 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "PlotRange" -> {{0, 30}, {0., 0.07283623535358537}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7332,306 +6842,124 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr -4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X -RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD -OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV -zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn -l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI -1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p -HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t -nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx -T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq -8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT -gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L -kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR -bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R -rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS -HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y -gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg -bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ -wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 -Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO -1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a -MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC -VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy -Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU -OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr -0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 -WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN -FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 -NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW -uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN -BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs -Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy -O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx -e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k -Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU -/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q -6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 -qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu -/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 -hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC -qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij -bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 -i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ -Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja -ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D -d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr -z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA -MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD -Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g -gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv -eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq -t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 -+PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m -848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 -yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt -633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI -4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De -Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM -E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 -Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r -lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy -uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb -tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT -ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ -8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats -MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ -LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy -rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h -EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys -GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv -8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK -E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 -T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 -uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl -dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt -Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh -dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH -E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD -HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ -aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh -2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I -P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq -UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G -c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd -xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn -l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e -zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L -Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 -6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU -4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 -UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C -zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n -TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 -PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa -/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP -4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP -HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 -56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT -fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU -pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV -YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq -mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 -rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM -b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN -ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li -wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp -fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 -EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM -ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj -ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT -T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e -E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv -C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a -Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ -1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs -eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN -4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y -pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE -1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu -6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc -pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 -Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ -Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP -NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc -mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh -27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 -PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c -ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi -0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U -XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA -VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT -gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn -LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp -PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n -23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw -CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i -L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc -KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN -/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 -v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 -1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb -eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 -tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q -sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 -MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa -mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o -aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv -RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 -UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde -aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK -Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ -jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA -LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O -VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP -6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 -Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl -vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny -ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf -PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo -v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ -QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 -JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv -WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ -q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 -HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC -lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK -THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K -LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r -qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk -TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt -XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx -3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y -NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy -Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R -/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD -9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J -eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl -lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c -to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 -mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib -HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 -Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 -RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH -ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w -tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK -EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF -n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 -Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl -kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 -+f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC -XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf -+xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw -5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn -fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 -GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 -+8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx -f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI -cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU -+tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG -aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL -eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ -00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M -z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf -O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD -mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ -3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA -61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu -+HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY -b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J -EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq -OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw -320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq -T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL -uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP -ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E -mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c -aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 -2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t -HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 -cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl -5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs -bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ -pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl -Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 -RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 -u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW -vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 -JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd -9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f -CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS -GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be -/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT -kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI -8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX -Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne -xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ -EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ -MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 -mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl -kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr -wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z -nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo -Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t -RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO -NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T -6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl -w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL -TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L -7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ -RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr -ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag -gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e -gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW -nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 -ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV -JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu -NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ -wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu -acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik -f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 -Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ -Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 -CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 -ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA -lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu -AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN -SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v -q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi -hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L -ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH -ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn -DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL -8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 -iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA -D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA -V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S -MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD -nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ -MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd -Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== +1:eJwV13k4lN/7B3AfKopU9n2eGVtZEoks031L9qWUJUsoplKRspWULVLkKxJp +sYSUMPOIbKkslbWFCkmFNklJWrT4nd9fc72uc8085znnvt/nDHPb3o0cfj4+ +PsZ/fHz///l9qK1FJblwTc7bKxm902vX9F6UOWjWFwcJ2iN0qD8TUPLBNpm+ +dOh1eM2199eF8A1Xnwn0FQAjtXGrrr8ZLJmQTv/1jAZc/D52nr8TvGxw3Pvt +WRM4MFJWRvltBUuVsReTzx5DkHB/rd/WffDrmWHml2fDYHLHMk/EPRaazS8X +PiqYgvtWtRX2n06Bwsvat9u0/sJ8vpLoZJsckNjjc1XQXAClancf44nkQ7qu +Zb2jixAO8uWeMeQvgv7sFbcnFy/Eec2Dq3/4lUByYfQDftkl2FFYNZ+6WgrS +p0eOZ1wQxynTT67H95WDjGbV0Z/F4ngsss9M5FA5yDUlRm/himNLcmNj0tFy +UPqyLEy9WRyrnWsCgrLKQdU+2Lf+vTgeDknxG28oh5Vz/hqMrJTAgx2cd7x5 +FbA+VGpUr10CXxlvKfXMrIBjzjZrHn+XxBazZ9zI9VyQu94tx/+fFHas87S8 +tYkL5eLOP3SFpTBHrGRy1o0LTx97c08xpDAslj8pzJcLKk6hLCdrKTT3HCrR +3ceFJofceQ/PSuGHpb4Bn05x4a/ldHeXqTTy7J5eDn7IhbTiyNK/ltI4XKnn +YNhLvj+PL0nbSRr/fY389+sZF+xbF5id5Eij+ZyZ+JCXXMgxpyrtU6WRqbBK +0nCCC6vRLqvjpTQOTHGX8QnzIMQo36ctTgYHRZv1zprxwDZP9Jtdigw+v1Hr +dWUdD1iCUUndmTL45ZXHkmorHjzsdeX1lMig3MtkuVYHHiwPFhEY6pbBljn7 +r9W68+B9cUTxVzlZ7N/l8PBPMA+8JBw/yVfKYqmwqN/H8zxYeag+9mKDLB5P +3fk5JZcHC4aXSjHvymK3wAIhzQIe1FYIgFq/LBZezx3yuswDKbvatBWzspij +2qqSxSPPj1XRt7CTQ7bOPIPtrTxY93kmMmhEDkMcH5TtHePBQevTGnfG5XDT +u2rB7HEelOdrD4h/l8MP2tJSNyd4IOPsa1QrJI+WPsZOf7/yYLym9YfAcnkM +1Be1dv3Ng4y4tNCzB+Rx9YxeyC5hGu4/X6YyHiuPK5kdK70X0vBHv7lnTbI8 +lvLrlDkuomH7u2m90Qvy6BKe1qEqToOxvefk8mZ5dFcLvHVNjoZhSbWgloUK +2JKwrlNxGQ3Se28pSksr4NVvU/BCgwb7+5u7AigFPO98Y99ZLRqqI5O1Fq1U +wNmv44uFVtBw4uWXMffNCsg2CrRuNKBB70r9js8FCnjFIWcy1ZyGWFOnrXKr +FXFwUblwiwcN1t4XvxquVUR2RI2SkRcNojEf413sFXEkuHP31S00nG9OKE7z +VcTuypjqWF8aamzrPs47roiZNnsYAttp+LJZOXyqXxF3+bzocgqm4UZksOCS +UUVkucl3ndhHw5HzN7OXTygi+JYvvr2fBpFXbvUB/EooXpS2gxFGg/qOFL5X +Gkq4wadyB+8gDd5h0yc6Dylh8eW6DcpxNKhmrVUYS1BCFbnXH6h4mqz//8oE +05SwTrb/sdxRGiL/LHu4tlAJq09bZAkk0pAZ7y1Z26mEJ4KOzZYcp8GrqLT4 +6VMlzNO8onX8BA2sez8Nv70iftxWwUmmgbsgw0NnWgnvKenXi5+kofPUvdwi +RQZ27GD+NU+jIaNSQrdZnYEUXP4y7xQNHk+2Nr3SZWDk5Xy8S/xe5s+ovCUD +7yxd98sogwaBvBUa6UEM/JhTNjqdSUP7ncP1FQcYaPma3XPuDA1pI+32XXEM +TLOZVVmTRYOSOmevUBYD2UlJ0xHZpB7Kz14/couBroek/G7n0LDuWfffifsM +jAvWDsFzNDjyzbHyeczAvbks/5vEfhuD+uENA/uOpn0sO09D0KFLLO4EAwev +RsczL9BwoLBvN/WTgZXvjWZPEVseYkbHzKVQz21uUcBFGjoWNVxavYDCfo+M +hw+JNxS63v8iSiHKvx3Wz6XBsyt5yVYZCn9pDzZOEQczvl8y06TwsLpVgH0+ +DdOVafd/6VDoukTvVQ5xpLXmJ54+hVsfz5i/JU7Y52vAWkNhpZ7Zk5ACGhbM +++0xsJbCyd2Oc6qJ03Iyo9OtKLSv2Kw8TZzT3H6f34lC1q9k/V2XaGBs5nyq +c6Fwd53t0jziwvHZJSEeFHrO6C7qIdaIzTHQ9KHQN0p0jL+QhgrJVZ4jfsSt +ZbU6xPpXH0Sf20mhsvzQEXfiujW7CjcFUjgUH2QcQww9c9qE91N4sXX5p0vE +LTtyPzWHU3ib8zmrhdjmj5FY1CEKd5XEmgwTd6f1GujHUCiUdqPvD7Gz6l7P +8aMUVgz6BUsU0dBfOz+m8DiFZcIeAsuIvR0LC71SKfzoGpRuTDw6vKZNIoPC +oOthSjbEARH9nzqzKGx5YlHiTDwhHCqWcJ7CePWqFVuIQ/JEDdn5FNIPc2q2 +Ef/Uv+I5XUShA92NHOIjbeYxZVfJ+PZl7f7EAt5DhZwKCkXMjrpsJU76eqBN +8TqFL+1rRzyIRY+JTzypIfvjcCnMiThDvlws9SaF828qilgQy3CtDS2bKPzQ +OadkFfGFdSOe/+5SqO+/ylaZmNV/OKa6g7wv4+TUQuKSQJmioIcUyjiNFU6T +9dDmr2xTe0Jh6T9NnwFi+ozDxFA/hXHDusoNxKs134tlDVGosGtwMod4rbOi +l+B7Cr9lFdLrie+9vxFza5zUx+nEYlVi+8MbiyImKZQcziz5SfbbrfjYxLsZ +Ckuudw5kEg8as8TzZsl6STaK+BJve9BguHkOE9dFBW9QJ97zczLm/kImap+u +XFxG6st433apt2JMjK+e/4lDLDQ2UCogw8TZGl0veeKi581P17CY6H3wwo9D +pH5DnVfv8VJnYlWGgZo68dqua/9FajHRz8J+vDuPhqHGTK0qAybeZBeYSxBf +M1zQ9NiEjOvBMx7pl0juEbcvyERaRkzQnliqYEecph0TVQUVMZz02/oEo758 +HyYyCzcYFZD+VfpXFnjLn4nS86mHKsTj4SyBFwFMnK/aLFJI+j1pp/BymVAm +XlH3j8om+XDb7kV8ahITJWN93NxJfqS2OMleO8lEsXwJuEPyxYt9t7wtnYnX +2CFPVYl/La/on3OBiWcWL5V9Q/JJTyxW5xCPictWH15iSvKLL3m6Jbuaif1b +E84eTyf1LrDLo7qeiULS5s97SN7tnt6YMNnKxE0fvqV5k3ws7FN5vmOAiQ06 +P9/bk/yUyr2f6CzAQin3DXtSSR6PSrMV9guxMLLow7KSBFIPaTze/xay8MGJ +8apGkt/r43IG26VZGHwyYs0wyfskzh49My0Wjvy+ZyAQTearuXhI24WF5v1T +n8vCafh+QS52pQcLdfjit+SQ8+PbIlUVIx8Wtm661xEfSvpnymjXugAWtp87 +V+FAzpvher/vHodZOCrZWXMzkOSx3Q3RpCIWlu1d9X2RP6m3m3d4J6+ycF7U +WeGubaT/dTqdMypYeKuszODYVhoaxV/nXKxl4Wk1k56v3mT+zxeoV3WR+d73 +srvsTvJqtzcMT7NwOgc5iY40ZL3YOfxuhoW7I7vDJR1oOL0+JOHTLAsN7lyq +zLcj+7MyqePnfGXkhl28zrOmIe43z22RkjI2LrSZqVhL1jd5brCppTLu6HvZ +pkbOb9PSa3lnziijUe80CsrT8JwqzbU4p4y+0eZ2W2RJfZ25cvFbrjI+f8qY +x5Mm529s8fmNV5RRiNJId5Ig+7s5L1u0QRkdNzNUIsh9ZNnc02mJr5XRPjdi +lcssuS/5HIoJ11LBC6kSjpzXPJgUs/V1bVLBBTeY62XIfatvD+vhrnsq+OKf +5+9Kch+7fXcGojtV0CFd3dYhhwdpkaWMkqcqKDlR++RAJg9WDIu8/DWmgoL6 +3Q8rk3kQxHuw5YK4KipvunqjLoIHY+tdPEf9VVFlS6uXtCMPRlN8XfcLqqHL +QitXzjcu2HyOsHljoI6PYt+8PLCaC+N+QiHXo5fioEZNZuflcvJ/QZr/WNMy +tE7dtn/k9jUQ61JL5X7WQGHVW1OmI1dBIalig4GBFgYqGk+UdJdAtqbRYvEd +2jhaF7mgoa8Y2uXMVk2dWo5/wp+aTHwuBGOFpjSdpzoYNPdpf8P7AhAVKAjd +GrcCW4pa4o5J5INSLMPUXU0XW5sOrjzsexHmq3pVb7yniw51BvHvX+XAcrZs +RcQWPXw5sw4Ce7Ng/5BYsy3fSvze5vnf9dbT8HkqxcUmm/jByNyrS9PBSudu +jo22PnYf7Zv7oOh/0Dhl8vtHtz4OS/uF9EgkQ5CW3sAjzioMLk56d8/yGLAn +/Hvd5xugUbsGzObGg4WKjMPCAgM0NXU7t6ggBpbGnDjQZGiIiWe3yHKoKNDg +GN1SHTDEtJ9h4972EcBp3Hn0+r7VWFQdwyoNDIFbeb3+k5JGyOciESxRvRe+ +lcz+0LlhhKP73IQcHgTAW1fLvOO1Rjhgu3NmRX0A9M05aT1Sb4QBLUUurMsB +UO8rd/bMbSPslZLV0o4OgDiZVcZ/24xQ+4B/9rBOACxO2hXVPmiE2V/2Bt/N +2AlaO57wcfiN8XWYd/Jazg7wUy2dn+NgjLeeu7zK1OZAZKv3LrUNxriOVbRX +V54DaRyxDnqjMR6/ZtY1IMSBhqKDKR1uxujy5vJj11F/kFCzXvR3qzHK3Slh +Tp3zh7tqbyR8w8n4fxlVVQv9QWMpg1LLNcaSxPxgjd/bYFIjw4D+Yox8/2S3 +y/7xhb5OtBCfMkbuqsSij5984XbQxKbQaWO0M2taff+lL6TSNvsMZoxx6Qev +tXnNvqBhzHetTsAEx2xjVnck+8I2m0Bms5QJbg4T3C2o5Au9O6xEek1N8Hvm +3Z1DGd5QU/j79XSSCf4etffeE+UJBuahP2yTTZDeHLHRmeMJVa/HRfJOmuDA +poNuDo6eQCsNGdqmm6CNc9Ku/ZQnXMu+ffLiORN0O+ybcazVA/JSEoysyk0w +al7A114xDzgeuuhUdo8Jpqb59F+v3Qwe65TRRMkURXQE33obuMLfXiHRZsoU +KyqNz51nukIeZ+K5rbIprv26IOajiCu8TayN8Fhqiq+aZkoaRlxgf9v6ioN6 +pij7vUJLM90FTjhGKdVYmuIDs52Vy786Q93mJ3/095pi9zN37pHGTSAfeKx2 ++W3yPOX6uV0JTpA6u31VcpMp9r95q6AQ7gT86Za8dy2mSP8Za4jY7gRj1XOv +5LWZouaDlDBnKyeo4zuaLdZjit5R5wYL5juBx+mYiO9vTLHt40LNlLQNkF1/ +cFWjMBu5nldGyhzXg+SCPTwHNzZCfmuEzIQdFJofjvzizsZ0S+1DsY/sQO9w +qnmGFxu715xqmlNlB45fuE/6trJxMDil3T3KDhKfTv/y20N+r7z5iImIHfws +iF4bGcvGruix8x0rbGHAJKOnuJSNoyMbt6WnWMPOsMLzNuVsdNMUq1cIsYbv +5VWccS4bi9VD+hvdrUGM1fdDt5qNd0UT5GzVrcFOSFHh5m02buw5kB3ZbAUN +vcX+PU/YyN59blaPzwpsRWu0w/vYONn+/tGK95bQZ9X2XeY5G+cGTptaPLSE +b3Ufk7xfsTE0sSqDl2cJ2vkryj6MkfmEWJqfWWsJDQNm4Smf2Jioxx2w1LQE +W4lNoPOFjd+0hg4slLCE7cfCHoVOs9H2xs7YwTcW8O12Yo70TzYuj+i5N9pt +AXEzWX51M2w0bVfq4q+xgMX6V7S2/GXjn6mgaIN8C7gYWDc9O8tGnedTndEn +LOD/AKywKXA= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "PlotRange" -> {{0, 30}, {0., 0.07283623535358537}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7642,6 +6970,7 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -7669,7 +6998,8 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.15475569508294718`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07283623535358537}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -7677,11 +7007,12 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913290128289948`*^9}, - CellLabel-> - "Out[169]=",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] + CellChangeTimes->{3.9913290128289948`*^9, 3.994257682233118*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"faffe7aa-97b0-4f33-94b6-90e4905ad422"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", @@ -7750,15 +7081,816 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"30", ",", "0.003631"}], "}"}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, - 3.994084145070607*^9},ExpressionUUID->"0f83f761-b16d-5343-987d-\ -511095eaf120"], + 3.994084145070607*^9}, + CellLabel->"In[96]:=",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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->{ + "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.060284}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994257682472179*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"dd180697-ec5a-448d-92cb-c007f6b3b062"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"8cdd4baa-f7c9-104e-b978-\ -89d3982ba28f"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4lN/7B3AfKopU9n2eGVtZEoks031L9qWUJUsoplKRspWULVLkKxJp +sYSUMPOIbKkslbWFCkmFNklJWrT4nd9fc72uc8085znnvt/nDHPb3o0cfj4+ +PsZ/fHz///l9qK1FJblwTc7bKxm902vX9F6UOWjWFwcJ2iN0qD8TUPLBNpm+ +dOh1eM2199eF8A1Xnwn0FQAjtXGrrr8ZLJmQTv/1jAZc/D52nr8TvGxw3Pvt +WRM4MFJWRvltBUuVsReTzx5DkHB/rd/WffDrmWHml2fDYHLHMk/EPRaazS8X +PiqYgvtWtRX2n06Bwsvat9u0/sJ8vpLoZJsckNjjc1XQXAClancf44nkQ7qu +Zb2jixAO8uWeMeQvgv7sFbcnFy/Eec2Dq3/4lUByYfQDftkl2FFYNZ+6WgrS +p0eOZ1wQxynTT67H95WDjGbV0Z/F4ngsss9M5FA5yDUlRm/himNLcmNj0tFy +UPqyLEy9WRyrnWsCgrLKQdU+2Lf+vTgeDknxG28oh5Vz/hqMrJTAgx2cd7x5 +FbA+VGpUr10CXxlvKfXMrIBjzjZrHn+XxBazZ9zI9VyQu94tx/+fFHas87S8 +tYkL5eLOP3SFpTBHrGRy1o0LTx97c08xpDAslj8pzJcLKk6hLCdrKTT3HCrR +3ceFJofceQ/PSuGHpb4Bn05x4a/ldHeXqTTy7J5eDn7IhbTiyNK/ltI4XKnn +YNhLvj+PL0nbSRr/fY389+sZF+xbF5id5Eij+ZyZ+JCXXMgxpyrtU6WRqbBK +0nCCC6vRLqvjpTQOTHGX8QnzIMQo36ctTgYHRZv1zprxwDZP9Jtdigw+v1Hr +dWUdD1iCUUndmTL45ZXHkmorHjzsdeX1lMig3MtkuVYHHiwPFhEY6pbBljn7 +r9W68+B9cUTxVzlZ7N/l8PBPMA+8JBw/yVfKYqmwqN/H8zxYeag+9mKDLB5P +3fk5JZcHC4aXSjHvymK3wAIhzQIe1FYIgFq/LBZezx3yuswDKbvatBWzspij +2qqSxSPPj1XRt7CTQ7bOPIPtrTxY93kmMmhEDkMcH5TtHePBQevTGnfG5XDT +u2rB7HEelOdrD4h/l8MP2tJSNyd4IOPsa1QrJI+WPsZOf7/yYLym9YfAcnkM +1Be1dv3Ng4y4tNCzB+Rx9YxeyC5hGu4/X6YyHiuPK5kdK70X0vBHv7lnTbI8 +lvLrlDkuomH7u2m90Qvy6BKe1qEqToOxvefk8mZ5dFcLvHVNjoZhSbWgloUK +2JKwrlNxGQ3Se28pSksr4NVvU/BCgwb7+5u7AigFPO98Y99ZLRqqI5O1Fq1U +wNmv44uFVtBw4uWXMffNCsg2CrRuNKBB70r9js8FCnjFIWcy1ZyGWFOnrXKr +FXFwUblwiwcN1t4XvxquVUR2RI2SkRcNojEf413sFXEkuHP31S00nG9OKE7z +VcTuypjqWF8aamzrPs47roiZNnsYAttp+LJZOXyqXxF3+bzocgqm4UZksOCS +UUVkucl3ndhHw5HzN7OXTygi+JYvvr2fBpFXbvUB/EooXpS2gxFGg/qOFL5X +Gkq4wadyB+8gDd5h0yc6Dylh8eW6DcpxNKhmrVUYS1BCFbnXH6h4mqz//8oE +05SwTrb/sdxRGiL/LHu4tlAJq09bZAkk0pAZ7y1Z26mEJ4KOzZYcp8GrqLT4 +6VMlzNO8onX8BA2sez8Nv70iftxWwUmmgbsgw0NnWgnvKenXi5+kofPUvdwi +RQZ27GD+NU+jIaNSQrdZnYEUXP4y7xQNHk+2Nr3SZWDk5Xy8S/xe5s+ovCUD +7yxd98sogwaBvBUa6UEM/JhTNjqdSUP7ncP1FQcYaPma3XPuDA1pI+32XXEM +TLOZVVmTRYOSOmevUBYD2UlJ0xHZpB7Kz14/couBroek/G7n0LDuWfffifsM +jAvWDsFzNDjyzbHyeczAvbks/5vEfhuD+uENA/uOpn0sO09D0KFLLO4EAwev +RsczL9BwoLBvN/WTgZXvjWZPEVseYkbHzKVQz21uUcBFGjoWNVxavYDCfo+M +hw+JNxS63v8iSiHKvx3Wz6XBsyt5yVYZCn9pDzZOEQczvl8y06TwsLpVgH0+ +DdOVafd/6VDoukTvVQ5xpLXmJ54+hVsfz5i/JU7Y52vAWkNhpZ7Zk5ACGhbM +++0xsJbCyd2Oc6qJ03Iyo9OtKLSv2Kw8TZzT3H6f34lC1q9k/V2XaGBs5nyq +c6Fwd53t0jziwvHZJSEeFHrO6C7qIdaIzTHQ9KHQN0p0jL+QhgrJVZ4jfsSt +ZbU6xPpXH0Sf20mhsvzQEXfiujW7CjcFUjgUH2QcQww9c9qE91N4sXX5p0vE +LTtyPzWHU3ib8zmrhdjmj5FY1CEKd5XEmgwTd6f1GujHUCiUdqPvD7Gz6l7P +8aMUVgz6BUsU0dBfOz+m8DiFZcIeAsuIvR0LC71SKfzoGpRuTDw6vKZNIoPC +oOthSjbEARH9nzqzKGx5YlHiTDwhHCqWcJ7CePWqFVuIQ/JEDdn5FNIPc2q2 +Ef/Uv+I5XUShA92NHOIjbeYxZVfJ+PZl7f7EAt5DhZwKCkXMjrpsJU76eqBN +8TqFL+1rRzyIRY+JTzypIfvjcCnMiThDvlws9SaF828qilgQy3CtDS2bKPzQ +OadkFfGFdSOe/+5SqO+/ylaZmNV/OKa6g7wv4+TUQuKSQJmioIcUyjiNFU6T +9dDmr2xTe0Jh6T9NnwFi+ozDxFA/hXHDusoNxKs134tlDVGosGtwMod4rbOi +l+B7Cr9lFdLrie+9vxFza5zUx+nEYlVi+8MbiyImKZQcziz5SfbbrfjYxLsZ +Ckuudw5kEg8as8TzZsl6STaK+BJve9BguHkOE9dFBW9QJ97zczLm/kImap+u +XFxG6st433apt2JMjK+e/4lDLDQ2UCogw8TZGl0veeKi581P17CY6H3wwo9D +pH5DnVfv8VJnYlWGgZo68dqua/9FajHRz8J+vDuPhqHGTK0qAybeZBeYSxBf +M1zQ9NiEjOvBMx7pl0juEbcvyERaRkzQnliqYEecph0TVQUVMZz02/oEo758 +HyYyCzcYFZD+VfpXFnjLn4nS86mHKsTj4SyBFwFMnK/aLFJI+j1pp/BymVAm +XlH3j8om+XDb7kV8ahITJWN93NxJfqS2OMleO8lEsXwJuEPyxYt9t7wtnYnX +2CFPVYl/La/on3OBiWcWL5V9Q/JJTyxW5xCPictWH15iSvKLL3m6Jbuaif1b +E84eTyf1LrDLo7qeiULS5s97SN7tnt6YMNnKxE0fvqV5k3ws7FN5vmOAiQ06 +P9/bk/yUyr2f6CzAQin3DXtSSR6PSrMV9guxMLLow7KSBFIPaTze/xay8MGJ +8apGkt/r43IG26VZGHwyYs0wyfskzh49My0Wjvy+ZyAQTearuXhI24WF5v1T +n8vCafh+QS52pQcLdfjit+SQ8+PbIlUVIx8Wtm661xEfSvpnymjXugAWtp87 +V+FAzpvher/vHodZOCrZWXMzkOSx3Q3RpCIWlu1d9X2RP6m3m3d4J6+ycF7U +WeGubaT/dTqdMypYeKuszODYVhoaxV/nXKxl4Wk1k56v3mT+zxeoV3WR+d73 +srvsTvJqtzcMT7NwOgc5iY40ZL3YOfxuhoW7I7vDJR1oOL0+JOHTLAsN7lyq +zLcj+7MyqePnfGXkhl28zrOmIe43z22RkjI2LrSZqVhL1jd5brCppTLu6HvZ +pkbOb9PSa3lnziijUe80CsrT8JwqzbU4p4y+0eZ2W2RJfZ25cvFbrjI+f8qY +x5Mm529s8fmNV5RRiNJId5Ig+7s5L1u0QRkdNzNUIsh9ZNnc02mJr5XRPjdi +lcssuS/5HIoJ11LBC6kSjpzXPJgUs/V1bVLBBTeY62XIfatvD+vhrnsq+OKf +5+9Kch+7fXcGojtV0CFd3dYhhwdpkaWMkqcqKDlR++RAJg9WDIu8/DWmgoL6 +3Q8rk3kQxHuw5YK4KipvunqjLoIHY+tdPEf9VVFlS6uXtCMPRlN8XfcLqqHL +QitXzjcu2HyOsHljoI6PYt+8PLCaC+N+QiHXo5fioEZNZuflcvJ/QZr/WNMy +tE7dtn/k9jUQ61JL5X7WQGHVW1OmI1dBIalig4GBFgYqGk+UdJdAtqbRYvEd +2jhaF7mgoa8Y2uXMVk2dWo5/wp+aTHwuBGOFpjSdpzoYNPdpf8P7AhAVKAjd +GrcCW4pa4o5J5INSLMPUXU0XW5sOrjzsexHmq3pVb7yniw51BvHvX+XAcrZs +RcQWPXw5sw4Ce7Ng/5BYsy3fSvze5vnf9dbT8HkqxcUmm/jByNyrS9PBSudu +jo22PnYf7Zv7oOh/0Dhl8vtHtz4OS/uF9EgkQ5CW3sAjzioMLk56d8/yGLAn +/Hvd5xugUbsGzObGg4WKjMPCAgM0NXU7t6ggBpbGnDjQZGiIiWe3yHKoKNDg +GN1SHTDEtJ9h4972EcBp3Hn0+r7VWFQdwyoNDIFbeb3+k5JGyOciESxRvRe+ +lcz+0LlhhKP73IQcHgTAW1fLvOO1Rjhgu3NmRX0A9M05aT1Sb4QBLUUurMsB +UO8rd/bMbSPslZLV0o4OgDiZVcZ/24xQ+4B/9rBOACxO2hXVPmiE2V/2Bt/N +2AlaO57wcfiN8XWYd/Jazg7wUy2dn+NgjLeeu7zK1OZAZKv3LrUNxriOVbRX +V54DaRyxDnqjMR6/ZtY1IMSBhqKDKR1uxujy5vJj11F/kFCzXvR3qzHK3Slh +Tp3zh7tqbyR8w8n4fxlVVQv9QWMpg1LLNcaSxPxgjd/bYFIjw4D+Yox8/2S3 +y/7xhb5OtBCfMkbuqsSij5984XbQxKbQaWO0M2taff+lL6TSNvsMZoxx6Qev +tXnNvqBhzHetTsAEx2xjVnck+8I2m0Bms5QJbg4T3C2o5Au9O6xEek1N8Hvm +3Z1DGd5QU/j79XSSCf4etffeE+UJBuahP2yTTZDeHLHRmeMJVa/HRfJOmuDA +poNuDo6eQCsNGdqmm6CNc9Ku/ZQnXMu+ffLiORN0O+ybcazVA/JSEoysyk0w +al7A114xDzgeuuhUdo8Jpqb59F+v3Qwe65TRRMkURXQE33obuMLfXiHRZsoU +KyqNz51nukIeZ+K5rbIprv26IOajiCu8TayN8Fhqiq+aZkoaRlxgf9v6ioN6 +pij7vUJLM90FTjhGKdVYmuIDs52Vy786Q93mJ3/095pi9zN37pHGTSAfeKx2 ++W3yPOX6uV0JTpA6u31VcpMp9r95q6AQ7gT86Za8dy2mSP8Za4jY7gRj1XOv +5LWZouaDlDBnKyeo4zuaLdZjit5R5wYL5juBx+mYiO9vTLHt40LNlLQNkF1/ +cFWjMBu5nldGyhzXg+SCPTwHNzZCfmuEzIQdFJofjvzizsZ0S+1DsY/sQO9w +qnmGFxu715xqmlNlB45fuE/6trJxMDil3T3KDhKfTv/y20N+r7z5iImIHfws +iF4bGcvGruix8x0rbGHAJKOnuJSNoyMbt6WnWMPOsMLzNuVsdNMUq1cIsYbv +5VWccS4bi9VD+hvdrUGM1fdDt5qNd0UT5GzVrcFOSFHh5m02buw5kB3ZbAUN +vcX+PU/YyN59blaPzwpsRWu0w/vYONn+/tGK95bQZ9X2XeY5G+cGTptaPLSE +b3Ufk7xfsTE0sSqDl2cJ2vkryj6MkfmEWJqfWWsJDQNm4Smf2Jioxx2w1LQE +W4lNoPOFjd+0hg4slLCE7cfCHoVOs9H2xs7YwTcW8O12Yo70TzYuj+i5N9pt +AXEzWX51M2w0bVfq4q+xgMX6V7S2/GXjn6mgaIN8C7gYWDc9O8tGnedTndEn +LOD/AKywKXA= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4lN/7B3AfKopU9n2eGVtZEoks031L9qWUJUsoplKRspWULVLkKxJp +sYSUMPOIbKkslbWFCkmFNklJWrT4nd9fc72uc8085znnvt/nDHPb3o0cfj4+ +PsZ/fHz///l9qK1FJblwTc7bKxm902vX9F6UOWjWFwcJ2iN0qD8TUPLBNpm+ +dOh1eM2199eF8A1Xnwn0FQAjtXGrrr8ZLJmQTv/1jAZc/D52nr8TvGxw3Pvt +WRM4MFJWRvltBUuVsReTzx5DkHB/rd/WffDrmWHml2fDYHLHMk/EPRaazS8X +PiqYgvtWtRX2n06Bwsvat9u0/sJ8vpLoZJsckNjjc1XQXAClancf44nkQ7qu +Zb2jixAO8uWeMeQvgv7sFbcnFy/Eec2Dq3/4lUByYfQDftkl2FFYNZ+6WgrS +p0eOZ1wQxynTT67H95WDjGbV0Z/F4ngsss9M5FA5yDUlRm/himNLcmNj0tFy +UPqyLEy9WRyrnWsCgrLKQdU+2Lf+vTgeDknxG28oh5Vz/hqMrJTAgx2cd7x5 +FbA+VGpUr10CXxlvKfXMrIBjzjZrHn+XxBazZ9zI9VyQu94tx/+fFHas87S8 +tYkL5eLOP3SFpTBHrGRy1o0LTx97c08xpDAslj8pzJcLKk6hLCdrKTT3HCrR +3ceFJofceQ/PSuGHpb4Bn05x4a/ldHeXqTTy7J5eDn7IhbTiyNK/ltI4XKnn +YNhLvj+PL0nbSRr/fY389+sZF+xbF5id5Eij+ZyZ+JCXXMgxpyrtU6WRqbBK +0nCCC6vRLqvjpTQOTHGX8QnzIMQo36ctTgYHRZv1zprxwDZP9Jtdigw+v1Hr +dWUdD1iCUUndmTL45ZXHkmorHjzsdeX1lMig3MtkuVYHHiwPFhEY6pbBljn7 +r9W68+B9cUTxVzlZ7N/l8PBPMA+8JBw/yVfKYqmwqN/H8zxYeag+9mKDLB5P +3fk5JZcHC4aXSjHvymK3wAIhzQIe1FYIgFq/LBZezx3yuswDKbvatBWzspij +2qqSxSPPj1XRt7CTQ7bOPIPtrTxY93kmMmhEDkMcH5TtHePBQevTGnfG5XDT +u2rB7HEelOdrD4h/l8MP2tJSNyd4IOPsa1QrJI+WPsZOf7/yYLym9YfAcnkM +1Be1dv3Ng4y4tNCzB+Rx9YxeyC5hGu4/X6YyHiuPK5kdK70X0vBHv7lnTbI8 +lvLrlDkuomH7u2m90Qvy6BKe1qEqToOxvefk8mZ5dFcLvHVNjoZhSbWgloUK +2JKwrlNxGQ3Se28pSksr4NVvU/BCgwb7+5u7AigFPO98Y99ZLRqqI5O1Fq1U +wNmv44uFVtBw4uWXMffNCsg2CrRuNKBB70r9js8FCnjFIWcy1ZyGWFOnrXKr +FXFwUblwiwcN1t4XvxquVUR2RI2SkRcNojEf413sFXEkuHP31S00nG9OKE7z +VcTuypjqWF8aamzrPs47roiZNnsYAttp+LJZOXyqXxF3+bzocgqm4UZksOCS +UUVkucl3ndhHw5HzN7OXTygi+JYvvr2fBpFXbvUB/EooXpS2gxFGg/qOFL5X +Gkq4wadyB+8gDd5h0yc6Dylh8eW6DcpxNKhmrVUYS1BCFbnXH6h4mqz//8oE +05SwTrb/sdxRGiL/LHu4tlAJq09bZAkk0pAZ7y1Z26mEJ4KOzZYcp8GrqLT4 +6VMlzNO8onX8BA2sez8Nv70iftxWwUmmgbsgw0NnWgnvKenXi5+kofPUvdwi +RQZ27GD+NU+jIaNSQrdZnYEUXP4y7xQNHk+2Nr3SZWDk5Xy8S/xe5s+ovCUD +7yxd98sogwaBvBUa6UEM/JhTNjqdSUP7ncP1FQcYaPma3XPuDA1pI+32XXEM +TLOZVVmTRYOSOmevUBYD2UlJ0xHZpB7Kz14/couBroek/G7n0LDuWfffifsM +jAvWDsFzNDjyzbHyeczAvbks/5vEfhuD+uENA/uOpn0sO09D0KFLLO4EAwev +RsczL9BwoLBvN/WTgZXvjWZPEVseYkbHzKVQz21uUcBFGjoWNVxavYDCfo+M +hw+JNxS63v8iSiHKvx3Wz6XBsyt5yVYZCn9pDzZOEQczvl8y06TwsLpVgH0+ +DdOVafd/6VDoukTvVQ5xpLXmJ54+hVsfz5i/JU7Y52vAWkNhpZ7Zk5ACGhbM +++0xsJbCyd2Oc6qJ03Iyo9OtKLSv2Kw8TZzT3H6f34lC1q9k/V2XaGBs5nyq +c6Fwd53t0jziwvHZJSEeFHrO6C7qIdaIzTHQ9KHQN0p0jL+QhgrJVZ4jfsSt +ZbU6xPpXH0Sf20mhsvzQEXfiujW7CjcFUjgUH2QcQww9c9qE91N4sXX5p0vE +LTtyPzWHU3ib8zmrhdjmj5FY1CEKd5XEmgwTd6f1GujHUCiUdqPvD7Gz6l7P +8aMUVgz6BUsU0dBfOz+m8DiFZcIeAsuIvR0LC71SKfzoGpRuTDw6vKZNIoPC +oOthSjbEARH9nzqzKGx5YlHiTDwhHCqWcJ7CePWqFVuIQ/JEDdn5FNIPc2q2 +Ef/Uv+I5XUShA92NHOIjbeYxZVfJ+PZl7f7EAt5DhZwKCkXMjrpsJU76eqBN +8TqFL+1rRzyIRY+JTzypIfvjcCnMiThDvlws9SaF828qilgQy3CtDS2bKPzQ +OadkFfGFdSOe/+5SqO+/ylaZmNV/OKa6g7wv4+TUQuKSQJmioIcUyjiNFU6T +9dDmr2xTe0Jh6T9NnwFi+ozDxFA/hXHDusoNxKs134tlDVGosGtwMod4rbOi +l+B7Cr9lFdLrie+9vxFza5zUx+nEYlVi+8MbiyImKZQcziz5SfbbrfjYxLsZ +Ckuudw5kEg8as8TzZsl6STaK+BJve9BguHkOE9dFBW9QJ97zczLm/kImap+u +XFxG6st433apt2JMjK+e/4lDLDQ2UCogw8TZGl0veeKi581P17CY6H3wwo9D +pH5DnVfv8VJnYlWGgZo68dqua/9FajHRz8J+vDuPhqHGTK0qAybeZBeYSxBf +M1zQ9NiEjOvBMx7pl0juEbcvyERaRkzQnliqYEecph0TVQUVMZz02/oEo758 +HyYyCzcYFZD+VfpXFnjLn4nS86mHKsTj4SyBFwFMnK/aLFJI+j1pp/BymVAm +XlH3j8om+XDb7kV8ahITJWN93NxJfqS2OMleO8lEsXwJuEPyxYt9t7wtnYnX +2CFPVYl/La/on3OBiWcWL5V9Q/JJTyxW5xCPictWH15iSvKLL3m6Jbuaif1b +E84eTyf1LrDLo7qeiULS5s97SN7tnt6YMNnKxE0fvqV5k3ws7FN5vmOAiQ06 +P9/bk/yUyr2f6CzAQin3DXtSSR6PSrMV9guxMLLow7KSBFIPaTze/xay8MGJ +8apGkt/r43IG26VZGHwyYs0wyfskzh49My0Wjvy+ZyAQTearuXhI24WF5v1T +n8vCafh+QS52pQcLdfjit+SQ8+PbIlUVIx8Wtm661xEfSvpnymjXugAWtp87 +V+FAzpvher/vHodZOCrZWXMzkOSx3Q3RpCIWlu1d9X2RP6m3m3d4J6+ycF7U +WeGubaT/dTqdMypYeKuszODYVhoaxV/nXKxl4Wk1k56v3mT+zxeoV3WR+d73 +srvsTvJqtzcMT7NwOgc5iY40ZL3YOfxuhoW7I7vDJR1oOL0+JOHTLAsN7lyq +zLcj+7MyqePnfGXkhl28zrOmIe43z22RkjI2LrSZqVhL1jd5brCppTLu6HvZ +pkbOb9PSa3lnziijUe80CsrT8JwqzbU4p4y+0eZ2W2RJfZ25cvFbrjI+f8qY +x5Mm529s8fmNV5RRiNJId5Ig+7s5L1u0QRkdNzNUIsh9ZNnc02mJr5XRPjdi +lcssuS/5HIoJ11LBC6kSjpzXPJgUs/V1bVLBBTeY62XIfatvD+vhrnsq+OKf +5+9Kch+7fXcGojtV0CFd3dYhhwdpkaWMkqcqKDlR++RAJg9WDIu8/DWmgoL6 +3Q8rk3kQxHuw5YK4KipvunqjLoIHY+tdPEf9VVFlS6uXtCMPRlN8XfcLqqHL +QitXzjcu2HyOsHljoI6PYt+8PLCaC+N+QiHXo5fioEZNZuflcvJ/QZr/WNMy +tE7dtn/k9jUQ61JL5X7WQGHVW1OmI1dBIalig4GBFgYqGk+UdJdAtqbRYvEd +2jhaF7mgoa8Y2uXMVk2dWo5/wp+aTHwuBGOFpjSdpzoYNPdpf8P7AhAVKAjd +GrcCW4pa4o5J5INSLMPUXU0XW5sOrjzsexHmq3pVb7yniw51BvHvX+XAcrZs +RcQWPXw5sw4Ce7Ng/5BYsy3fSvze5vnf9dbT8HkqxcUmm/jByNyrS9PBSudu +jo22PnYf7Zv7oOh/0Dhl8vtHtz4OS/uF9EgkQ5CW3sAjzioMLk56d8/yGLAn +/Hvd5xugUbsGzObGg4WKjMPCAgM0NXU7t6ggBpbGnDjQZGiIiWe3yHKoKNDg +GN1SHTDEtJ9h4972EcBp3Hn0+r7VWFQdwyoNDIFbeb3+k5JGyOciESxRvRe+ +lcz+0LlhhKP73IQcHgTAW1fLvOO1Rjhgu3NmRX0A9M05aT1Sb4QBLUUurMsB +UO8rd/bMbSPslZLV0o4OgDiZVcZ/24xQ+4B/9rBOACxO2hXVPmiE2V/2Bt/N +2AlaO57wcfiN8XWYd/Jazg7wUy2dn+NgjLeeu7zK1OZAZKv3LrUNxriOVbRX +V54DaRyxDnqjMR6/ZtY1IMSBhqKDKR1uxujy5vJj11F/kFCzXvR3qzHK3Slh +Tp3zh7tqbyR8w8n4fxlVVQv9QWMpg1LLNcaSxPxgjd/bYFIjw4D+Yox8/2S3 +y/7xhb5OtBCfMkbuqsSij5984XbQxKbQaWO0M2taff+lL6TSNvsMZoxx6Qev +tXnNvqBhzHetTsAEx2xjVnck+8I2m0Bms5QJbg4T3C2o5Au9O6xEek1N8Hvm +3Z1DGd5QU/j79XSSCf4etffeE+UJBuahP2yTTZDeHLHRmeMJVa/HRfJOmuDA +poNuDo6eQCsNGdqmm6CNc9Ku/ZQnXMu+ffLiORN0O+ybcazVA/JSEoysyk0w +al7A114xDzgeuuhUdo8Jpqb59F+v3Qwe65TRRMkURXQE33obuMLfXiHRZsoU +KyqNz51nukIeZ+K5rbIprv26IOajiCu8TayN8Fhqiq+aZkoaRlxgf9v6ioN6 +pij7vUJLM90FTjhGKdVYmuIDs52Vy786Q93mJ3/095pi9zN37pHGTSAfeKx2 ++W3yPOX6uV0JTpA6u31VcpMp9r95q6AQ7gT86Za8dy2mSP8Za4jY7gRj1XOv +5LWZouaDlDBnKyeo4zuaLdZjit5R5wYL5juBx+mYiO9vTLHt40LNlLQNkF1/ +cFWjMBu5nldGyhzXg+SCPTwHNzZCfmuEzIQdFJofjvzizsZ0S+1DsY/sQO9w +qnmGFxu715xqmlNlB45fuE/6trJxMDil3T3KDhKfTv/y20N+r7z5iImIHfws +iF4bGcvGruix8x0rbGHAJKOnuJSNoyMbt6WnWMPOsMLzNuVsdNMUq1cIsYbv +5VWccS4bi9VD+hvdrUGM1fdDt5qNd0UT5GzVrcFOSFHh5m02buw5kB3ZbAUN +vcX+PU/YyN59blaPzwpsRWu0w/vYONn+/tGK95bQZ9X2XeY5G+cGTptaPLSE +b3Ufk7xfsTE0sSqDl2cJ2vkryj6MkfmEWJqfWWsJDQNm4Smf2Jioxx2w1LQE +W4lNoPOFjd+0hg4slLCE7cfCHoVOs9H2xs7YwTcW8O12Yo70TzYuj+i5N9pt +AXEzWX51M2w0bVfq4q+xgMX6V7S2/GXjn6mgaIN8C7gYWDc9O8tGnedTndEn +LOD/AKywKXA= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07283623535358537}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07283623535358537}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4lN/7B3AfKopU9n2eGVtZEoks031L9qWUJUsoplKRspWULVLkKxJp +sYSUMPOIbKkslbWFCkmFNklJWrT4nd9fc72uc8085znnvt/nDHPb3o0cfj4+ +PsZ/fHz///l9qK1FJblwTc7bKxm902vX9F6UOWjWFwcJ2iN0qD8TUPLBNpm+ +dOh1eM2199eF8A1Xnwn0FQAjtXGrrr8ZLJmQTv/1jAZc/D52nr8TvGxw3Pvt +WRM4MFJWRvltBUuVsReTzx5DkHB/rd/WffDrmWHml2fDYHLHMk/EPRaazS8X +PiqYgvtWtRX2n06Bwsvat9u0/sJ8vpLoZJsckNjjc1XQXAClancf44nkQ7qu +Zb2jixAO8uWeMeQvgv7sFbcnFy/Eec2Dq3/4lUByYfQDftkl2FFYNZ+6WgrS +p0eOZ1wQxynTT67H95WDjGbV0Z/F4ngsss9M5FA5yDUlRm/himNLcmNj0tFy +UPqyLEy9WRyrnWsCgrLKQdU+2Lf+vTgeDknxG28oh5Vz/hqMrJTAgx2cd7x5 +FbA+VGpUr10CXxlvKfXMrIBjzjZrHn+XxBazZ9zI9VyQu94tx/+fFHas87S8 +tYkL5eLOP3SFpTBHrGRy1o0LTx97c08xpDAslj8pzJcLKk6hLCdrKTT3HCrR +3ceFJofceQ/PSuGHpb4Bn05x4a/ldHeXqTTy7J5eDn7IhbTiyNK/ltI4XKnn +YNhLvj+PL0nbSRr/fY389+sZF+xbF5id5Eij+ZyZ+JCXXMgxpyrtU6WRqbBK +0nCCC6vRLqvjpTQOTHGX8QnzIMQo36ctTgYHRZv1zprxwDZP9Jtdigw+v1Hr +dWUdD1iCUUndmTL45ZXHkmorHjzsdeX1lMig3MtkuVYHHiwPFhEY6pbBljn7 +r9W68+B9cUTxVzlZ7N/l8PBPMA+8JBw/yVfKYqmwqN/H8zxYeag+9mKDLB5P +3fk5JZcHC4aXSjHvymK3wAIhzQIe1FYIgFq/LBZezx3yuswDKbvatBWzspij +2qqSxSPPj1XRt7CTQ7bOPIPtrTxY93kmMmhEDkMcH5TtHePBQevTGnfG5XDT +u2rB7HEelOdrD4h/l8MP2tJSNyd4IOPsa1QrJI+WPsZOf7/yYLym9YfAcnkM +1Be1dv3Ng4y4tNCzB+Rx9YxeyC5hGu4/X6YyHiuPK5kdK70X0vBHv7lnTbI8 +lvLrlDkuomH7u2m90Qvy6BKe1qEqToOxvefk8mZ5dFcLvHVNjoZhSbWgloUK +2JKwrlNxGQ3Se28pSksr4NVvU/BCgwb7+5u7AigFPO98Y99ZLRqqI5O1Fq1U +wNmv44uFVtBw4uWXMffNCsg2CrRuNKBB70r9js8FCnjFIWcy1ZyGWFOnrXKr +FXFwUblwiwcN1t4XvxquVUR2RI2SkRcNojEf413sFXEkuHP31S00nG9OKE7z +VcTuypjqWF8aamzrPs47roiZNnsYAttp+LJZOXyqXxF3+bzocgqm4UZksOCS +UUVkucl3ndhHw5HzN7OXTygi+JYvvr2fBpFXbvUB/EooXpS2gxFGg/qOFL5X +Gkq4wadyB+8gDd5h0yc6Dylh8eW6DcpxNKhmrVUYS1BCFbnXH6h4mqz//8oE +05SwTrb/sdxRGiL/LHu4tlAJq09bZAkk0pAZ7y1Z26mEJ4KOzZYcp8GrqLT4 +6VMlzNO8onX8BA2sez8Nv70iftxWwUmmgbsgw0NnWgnvKenXi5+kofPUvdwi +RQZ27GD+NU+jIaNSQrdZnYEUXP4y7xQNHk+2Nr3SZWDk5Xy8S/xe5s+ovCUD +7yxd98sogwaBvBUa6UEM/JhTNjqdSUP7ncP1FQcYaPma3XPuDA1pI+32XXEM +TLOZVVmTRYOSOmevUBYD2UlJ0xHZpB7Kz14/couBroek/G7n0LDuWfffifsM +jAvWDsFzNDjyzbHyeczAvbks/5vEfhuD+uENA/uOpn0sO09D0KFLLO4EAwev +RsczL9BwoLBvN/WTgZXvjWZPEVseYkbHzKVQz21uUcBFGjoWNVxavYDCfo+M +hw+JNxS63v8iSiHKvx3Wz6XBsyt5yVYZCn9pDzZOEQczvl8y06TwsLpVgH0+ +DdOVafd/6VDoukTvVQ5xpLXmJ54+hVsfz5i/JU7Y52vAWkNhpZ7Zk5ACGhbM +++0xsJbCyd2Oc6qJ03Iyo9OtKLSv2Kw8TZzT3H6f34lC1q9k/V2XaGBs5nyq +c6Fwd53t0jziwvHZJSEeFHrO6C7qIdaIzTHQ9KHQN0p0jL+QhgrJVZ4jfsSt +ZbU6xPpXH0Sf20mhsvzQEXfiujW7CjcFUjgUH2QcQww9c9qE91N4sXX5p0vE +LTtyPzWHU3ib8zmrhdjmj5FY1CEKd5XEmgwTd6f1GujHUCiUdqPvD7Gz6l7P +8aMUVgz6BUsU0dBfOz+m8DiFZcIeAsuIvR0LC71SKfzoGpRuTDw6vKZNIoPC +oOthSjbEARH9nzqzKGx5YlHiTDwhHCqWcJ7CePWqFVuIQ/JEDdn5FNIPc2q2 +Ef/Uv+I5XUShA92NHOIjbeYxZVfJ+PZl7f7EAt5DhZwKCkXMjrpsJU76eqBN +8TqFL+1rRzyIRY+JTzypIfvjcCnMiThDvlws9SaF828qilgQy3CtDS2bKPzQ +OadkFfGFdSOe/+5SqO+/ylaZmNV/OKa6g7wv4+TUQuKSQJmioIcUyjiNFU6T +9dDmr2xTe0Jh6T9NnwFi+ozDxFA/hXHDusoNxKs134tlDVGosGtwMod4rbOi +l+B7Cr9lFdLrie+9vxFza5zUx+nEYlVi+8MbiyImKZQcziz5SfbbrfjYxLsZ +Ckuudw5kEg8as8TzZsl6STaK+BJve9BguHkOE9dFBW9QJ97zczLm/kImap+u +XFxG6st433apt2JMjK+e/4lDLDQ2UCogw8TZGl0veeKi581P17CY6H3wwo9D +pH5DnVfv8VJnYlWGgZo68dqua/9FajHRz8J+vDuPhqHGTK0qAybeZBeYSxBf +M1zQ9NiEjOvBMx7pl0juEbcvyERaRkzQnliqYEecph0TVQUVMZz02/oEo758 +HyYyCzcYFZD+VfpXFnjLn4nS86mHKsTj4SyBFwFMnK/aLFJI+j1pp/BymVAm +XlH3j8om+XDb7kV8ahITJWN93NxJfqS2OMleO8lEsXwJuEPyxYt9t7wtnYnX +2CFPVYl/La/on3OBiWcWL5V9Q/JJTyxW5xCPictWH15iSvKLL3m6Jbuaif1b +E84eTyf1LrDLo7qeiULS5s97SN7tnt6YMNnKxE0fvqV5k3ws7FN5vmOAiQ06 +P9/bk/yUyr2f6CzAQin3DXtSSR6PSrMV9guxMLLow7KSBFIPaTze/xay8MGJ +8apGkt/r43IG26VZGHwyYs0wyfskzh49My0Wjvy+ZyAQTearuXhI24WF5v1T +n8vCafh+QS52pQcLdfjit+SQ8+PbIlUVIx8Wtm661xEfSvpnymjXugAWtp87 +V+FAzpvher/vHodZOCrZWXMzkOSx3Q3RpCIWlu1d9X2RP6m3m3d4J6+ycF7U +WeGubaT/dTqdMypYeKuszODYVhoaxV/nXKxl4Wk1k56v3mT+zxeoV3WR+d73 +srvsTvJqtzcMT7NwOgc5iY40ZL3YOfxuhoW7I7vDJR1oOL0+JOHTLAsN7lyq +zLcj+7MyqePnfGXkhl28zrOmIe43z22RkjI2LrSZqVhL1jd5brCppTLu6HvZ +pkbOb9PSa3lnziijUe80CsrT8JwqzbU4p4y+0eZ2W2RJfZ25cvFbrjI+f8qY +x5Mm529s8fmNV5RRiNJId5Ig+7s5L1u0QRkdNzNUIsh9ZNnc02mJr5XRPjdi +lcssuS/5HIoJ11LBC6kSjpzXPJgUs/V1bVLBBTeY62XIfatvD+vhrnsq+OKf +5+9Kch+7fXcGojtV0CFd3dYhhwdpkaWMkqcqKDlR++RAJg9WDIu8/DWmgoL6 +3Q8rk3kQxHuw5YK4KipvunqjLoIHY+tdPEf9VVFlS6uXtCMPRlN8XfcLqqHL +QitXzjcu2HyOsHljoI6PYt+8PLCaC+N+QiHXo5fioEZNZuflcvJ/QZr/WNMy +tE7dtn/k9jUQ61JL5X7WQGHVW1OmI1dBIalig4GBFgYqGk+UdJdAtqbRYvEd +2jhaF7mgoa8Y2uXMVk2dWo5/wp+aTHwuBGOFpjSdpzoYNPdpf8P7AhAVKAjd +GrcCW4pa4o5J5INSLMPUXU0XW5sOrjzsexHmq3pVb7yniw51BvHvX+XAcrZs +RcQWPXw5sw4Ce7Ng/5BYsy3fSvze5vnf9dbT8HkqxcUmm/jByNyrS9PBSudu +jo22PnYf7Zv7oOh/0Dhl8vtHtz4OS/uF9EgkQ5CW3sAjzioMLk56d8/yGLAn +/Hvd5xugUbsGzObGg4WKjMPCAgM0NXU7t6ggBpbGnDjQZGiIiWe3yHKoKNDg +GN1SHTDEtJ9h4972EcBp3Hn0+r7VWFQdwyoNDIFbeb3+k5JGyOciESxRvRe+ +lcz+0LlhhKP73IQcHgTAW1fLvOO1Rjhgu3NmRX0A9M05aT1Sb4QBLUUurMsB +UO8rd/bMbSPslZLV0o4OgDiZVcZ/24xQ+4B/9rBOACxO2hXVPmiE2V/2Bt/N +2AlaO57wcfiN8XWYd/Jazg7wUy2dn+NgjLeeu7zK1OZAZKv3LrUNxriOVbRX +V54DaRyxDnqjMR6/ZtY1IMSBhqKDKR1uxujy5vJj11F/kFCzXvR3qzHK3Slh +Tp3zh7tqbyR8w8n4fxlVVQv9QWMpg1LLNcaSxPxgjd/bYFIjw4D+Yox8/2S3 +y/7xhb5OtBCfMkbuqsSij5984XbQxKbQaWO0M2taff+lL6TSNvsMZoxx6Qev +tXnNvqBhzHetTsAEx2xjVnck+8I2m0Bms5QJbg4T3C2o5Au9O6xEek1N8Hvm +3Z1DGd5QU/j79XSSCf4etffeE+UJBuahP2yTTZDeHLHRmeMJVa/HRfJOmuDA +poNuDo6eQCsNGdqmm6CNc9Ku/ZQnXMu+ffLiORN0O+ybcazVA/JSEoysyk0w +al7A114xDzgeuuhUdo8Jpqb59F+v3Qwe65TRRMkURXQE33obuMLfXiHRZsoU +KyqNz51nukIeZ+K5rbIprv26IOajiCu8TayN8Fhqiq+aZkoaRlxgf9v6ioN6 +pij7vUJLM90FTjhGKdVYmuIDs52Vy786Q93mJ3/095pi9zN37pHGTSAfeKx2 ++W3yPOX6uV0JTpA6u31VcpMp9r95q6AQ7gT86Za8dy2mSP8Za4jY7gRj1XOv +5LWZouaDlDBnKyeo4zuaLdZjit5R5wYL5juBx+mYiO9vTLHt40LNlLQNkF1/ +cFWjMBu5nldGyhzXg+SCPTwHNzZCfmuEzIQdFJofjvzizsZ0S+1DsY/sQO9w +qnmGFxu715xqmlNlB45fuE/6trJxMDil3T3KDhKfTv/y20N+r7z5iImIHfws +iF4bGcvGruix8x0rbGHAJKOnuJSNoyMbt6WnWMPOsMLzNuVsdNMUq1cIsYbv +5VWccS4bi9VD+hvdrUGM1fdDt5qNd0UT5GzVrcFOSFHh5m02buw5kB3ZbAUN +vcX+PU/YyN59blaPzwpsRWu0w/vYONn+/tGK95bQZ9X2XeY5G+cGTptaPLSE +b3Ufk7xfsTE0sSqDl2cJ2vkryj6MkfmEWJqfWWsJDQNm4Smf2Jioxx2w1LQE +W4lNoPOFjd+0hg4slLCE7cfCHoVOs9H2xs7YwTcW8O12Yo70TzYuj+i5N9pt +AXEzWX51M2w0bVfq4q+xgMX6V7S2/GXjn6mgaIN8C7gYWDc9O8tGnedTndEn +LOD/AKywKXA= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07283623535358537}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07283623535358537}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994257682514538*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"d8431386-4afe-44c6-8ec2-b953f7ff42b5"] +}, Open ]], Cell[CellGroupData[{ @@ -7767,14 +7899,12 @@ Cell[BoxData[ FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.9918488983507824`*^9},ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-\ -3438788b15d6"], + CellChangeTimes->{3.9918488983507824`*^9}, + CellLabel->"In[98]:=",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], -Cell[BoxData["9.779568499633264`"], "Output", - CellChangeTimes->{3.9913294794877434`*^9}, - CellLabel-> - "Out[171]=",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +Cell[BoxData["10.306053479696958`"], "Output", + CellChangeTimes->{3.9913294794877434`*^9, 3.994257682565724*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"fca1a0de-c678-4d67-bd46-c62e3ad5d034"] }, Open ]], Cell[CellGroupData[{ @@ -7830,177 +7960,178 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918488997875195`*^9},ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-\ -0e75880d5d98"], + CellChangeTimes->{3.9918488997875195`*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 172, 125, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913294796838703`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.042168930565255`*^-261\\\", \ +RowBox[{\\\"92956902680071188234494975\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"95542386262016000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 99, 13, + 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913294796838703`*^9, 3.9942576826949797`*^9}, CellLabel-> "During evaluation of \ -In[172]:=",ExpressionUUID->"3a61d965-a130-7645-90c6-a5061b94ec40"], +In[99]:=",ExpressionUUID->"33ec3f7d-e734-4bd2-bae1-6ace9d1772aa"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.19148428074309`*^-272\\\", \ -\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 172, 126, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329479692892*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.993964339407954`*^-271\\\", \ +RowBox[{\\\"78176755153939869305210274\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"10\\\", \\\"\[RightSkeleton]\\\"}], \\\"51146846355456000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 99, 14, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913294796838703`*^9, 3.99425768270492*^9}, CellLabel-> "During evaluation of \ -In[172]:=",ExpressionUUID->"c3c0d10c-aa86-9b43-bfa9-71bc099863f1"], +In[99]:=",ExpressionUUID->"c5c8e464-c054-4ae8-80da-dc3432d1e312"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.652750330712858`*^-282\\\", \ -\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 172, 127, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913294797011433`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.890845302876686`*^-280\\\", \ +RowBox[{\\\"70359079638545882374689246\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"13\\\", \\\"\[RightSkeleton]\\\"}], \\\"32161719910400000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 99, 15, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913294796838703`*^9, 3.994257682716113*^9}, CellLabel-> "During evaluation of \ -In[172]:=",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], +In[99]:=",ExpressionUUID->"a9995334-003a-4d2b-9838-8e63824c970d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 172, 128, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329479709572*^9}, +during this calculation.\"", 2, 99, 16, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913294796838703`*^9, 3.9942576827264433`*^9}, CellLabel-> "During evaluation of \ -In[172]:=",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], +In[99]:=",ExpressionUUID->"72b91135-b5f1-4959-a1a5-55832fab9487"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU -cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u -4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf -U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF -PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur -M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw -2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 -W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh -xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV -SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn -q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf -DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz -jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF -g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla -wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo -vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw -aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ -Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN -Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV -weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy -KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL -typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ -HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy -qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC -ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp -ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u -8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT -5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ -O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y -hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N -8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL -FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 -VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD -QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio -X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa -idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 -98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp -E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi -LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev -FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ -N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F -tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 -2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J -o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe -9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG -mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n -sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi -Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN -QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl -WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 -OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 -jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z -I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 -8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY -kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 -cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR -87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs -dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX -Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P -uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 -uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm -szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl -LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef -fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ -8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW -rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ -5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 -nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J -H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq -4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD -o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ -C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt -1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ -d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY -ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 -/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx -8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu -Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc -OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg -nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG -f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz -m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ -+Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea -Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 -B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG -pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft -R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ -//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL -fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa -H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj -1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw -8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y -PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 -OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g -41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 -j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b -LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m -MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W -9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ -v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U -N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb -be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq -XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl -vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF -7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI -1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg -cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD -wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO -D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VO8XAHDSIlvZZb0ztrJvYTDOQSEklBKyJKEoSgh9QxJRWUpoIU0q +xMzNkqWylFCpZFeoaLVWpEX97u+veT7PnXmfmfOebWg797v4L+Li4tLk5uL6 +/+vcUNsDpVSWeeoVAqvDrMy7LksdtuhLgNc77R9L9dAAxZ/tlOrLhNXWo5VT +3boQ4VTcy9NXCO+DfWJfdluA8KRk5s9eEujjV1lF3c4wXO+4/3tvE3DfJTeJ +d/uCtdLn1zO9neAqaq7+pjMMfvYanZvufQuy13WfybTHQ7PVddaLwm+gP6a7 +mOabCbLDNe93aiyAgYOyn/hMHogFexcvs+LBwetbPVwir0CmrnWdoysvTrjE +5EonXIP+HJ2GmZWCaN01H/n42w1IZR19tmiVMN7JTxWIty4FO4MgEXFFYayQ +i1C+5lIKvA9cXFU1hVGZnvWv0asUEt8pD9pbCKPISODkWEQpxNKfvD8bJIzR +1x2ieopKYV+B1F+VWmG0md3p6rbkFjhf5GjYe4hgWt1c3vP6WyB59l1K1iVR +dMhybVotXg5S6pWJ80WiWPbQ/G+9fDlINyUd3cEWxaAbsYl2q8tBfnrNIdVm +UfQZN9jrbFoOyg6hPnUfRfFHbGeckG856C9eMHynL4ayPYc61pWUw6ZwiVG9 +djEU7PCFjXJscOL/OHT+pRhOOXl/LaaxwaWwpv/PKzE8sLWNsUSFDVufez5r +mRLDxhCZxHItNuzQuFrrLi6OTmFJvwaADXtHtTMSfMRRsa1/5SlfNpzYssG8 +c04cu/Is1noUskG6okN6EbcEpmhmJ+YXsaFMdMsPXX4JTB+xbxguZkNPpxc7 +Q0ECd6Ru/735NhuUnMPpzrYSWCPfeYj/ARuaNuYvfZ4rgS49JjpVo2xYsJ7t +eGomiZ3rutnzdA6kF0WXLFhLYpcmZ7pGhQNKS7mSNZ0lMUKdRyxSjQMOD/ks +TvlLIvOr2+IxXQ7kWRG3HU5Los6My4kzyAFjtD//eFgSiSqeefkdHDjIuOLd +liCFzLqLoypZHLArEPpunyaF6hZHvDWzOUBfFpvccU4KVcw+WerkcuB511bO +yxtS6Fd02Eo9nwNaoQI8Qx1SuOfxdo25Yg58LIos+iq9CuuNx68PN3LAU8xx +Qub2KnzPozfIPcEB/Zi6+Mv1q5CLm5V8booDfG9XS9BaVqHo+rNXlL9yoKac +B1T6V+HWpIsSpj84IGFfk67zbxW+nbUWMeUm4Xm8ksF6e2kM12XFnBEjYd3U +r+h976TxVHpueaoxCYdtz6o1jkujOu32sUITEsquaA6Izkmj3y+byUozEqS2 ++DBqeGXQbOuK5E4kYfzOwx88WjLI+zqu560tCVkJ6eG5UTKY/aFY2ceNhNbB +NUrj8TIYcbomCd1J+GPQ/NI8VQafaQYdk/MkYfeHWb3RSzKYypByfupNgomD +x4xWswzenfhgsziAhLfiKvseCMriyAPV+WfhJEjuvy8nKSmLb/ZKY3QECQ6t +bk+DCFl02tS9hhZFQlV0qsYKfVlEM6fRXTEknBye/rzdTRaDM2y5H8SToHez +LmCqUBYrvr5jvjlFQryZs6+0sRwKv/JafuEqCbZel78aWcrh4ka/vbMsEoTi +vhxzdZBDHUH3j/ZFJFxsPl6U7iOHgV0DaydukHDHrvbL0hQ5ZJdW6HGXkTDt +phjxrV8Ol3zU27K/moTq6NBlwqNyeO5PaG3qHRL+u3g3R2tSDjse6duwakgQ +GNlWF7RIHucd3Xrb6khQDUjjGlGTR0nevg/v75PgdWj25JMYeew9kBET9IgE +5fOWsp+Py2O2Rf4N29b/x//MrWXp8lhtx7NcqY2E6D9rnluy5HGhWyPgWTsJ +5455idc8kcdLUiPs+ackeF4rKerpkUe7vLD0mg6qbz6aN/o+Io+czrXFEc9I +YPNluWvPyuNr8cEzY89JeJLxKP+anALOyMSYZb+k7ve2mG6zqgL62ccuZXSR +4N7t2zSiq4A6A73CfZQ/Sv0ZlbFWQJ8PNtN8PSTwFOioZe5TwPns6TGrPhLa +G4/UlUcpYFzila5Wyunv2h2eJiigG01ewK6fBHlV//285xVwSa7tdosBKh/K +civ+u6+AwxnrTvC8ovK1t2NhslUBDXYO8+2i7Mi12Ma7UwG3uf92a6Ts57Kv +H8YU0Krk87YDr0nYF3OVzp5UwDOC7nwtlKNYfXuJeQU8ejPhpMQQCdYxtKNx +Swg8exd/3KL8eEX9VWM+AhNfRY19p+zE2to6LUTg+fhylvEwCR5PU4V9pQhU +Ld+dW0V5xFfFcJUcgQVB6c+nKe+ea3B/QSNQXpD/leoICaEKc1ct1Anct8Px +YBrl2dvprT+1CdSvbOGqpRxtqz7BMSCwwW7Kf5Qy1+uHwnsYBD74fuUq/xsS +jof5GNLNCVTbWlOrTZlv6W/3AUsCM1+vLHWinJ537mimDYHlDxKj9lEW19Zh +2TkQWLXiK5FCOa+5vXWRM4HP0wyLCigruPlP1LoSeOSlzvJKyqzxf8IH3Qn8 +a9Vg10JZLT7PUN2bev/Sh3u7KJeLr/V450fgYgEiZJiyQfGzoxcCCST5bm/6 +QLnWfA9rcwiBQXE+YuOU4eXiNv4DBMax+esnKD8IyJ9ojiDw2tUcm/8/3/CH +IRIbQ6Cm6nj1/z/fkd5laBBH4LEnXwRHKG9R3u8xnkhg8scjdt2U+2uWx7FS +qHhmpex7RNnLkcXyPE3g3qK56CrKo2/N28SyCHS4dyu0kHJQZP/Ek/MEthrl +OKVSnuQPFzl+kcBgnQKZMMoHC4SMmNSu0Xic3bmZ8rzBTY/ZawRe6KqI0Kf8 +X5tV3K1iAq9H5fKupMzjNcTyLyfwaqp9yifqfpK/RrXJVRD4e/TOz/uUhU6I +TnbfIXBc6rl7FmUptq2RdROB21fUftWhfGndO4+/LdTzayHqv6n8oPcfiat6 +TKD6vTS3Jsqai263qXQT2CLXm2VDmczeODnUT53P++nqEsrG6h9Fzg8RGFCv +X9pA5aPlFjnPZR8JnC22valJ+dHH6rj74wT6Wf/LH6by2+GIy7XIGQLDgx5l +nqa8rejE5IdfBE6+DA59R9VH8PxMXKsgDVUOblMNGqTqK2y3xHsRGl4JivX/ +RdUb7+eBEh4pGt4P/0JLpnxtsLnHnE7D6c4K6VyqPofundOoNKRh3MNE7Qxq +7yo14mvqNKWhQvuxY0spR7P/2zaNNOT3/ecdRdW/RGFAgro9DU9pnK927iZh +03FG3xVvGobW31gy2EnV+99bIfd30fCTx1ijAeXxCDrP6yAa1i0WEE59QcU7 +kF9LKpyGdhu8QzSpftRg//rY6WQaSq60ttpA9TM9kXjtGA4NT4yvTR9qoeon +dfZBThUNhZodZRZR7uDZ415VR8NooR5H+kMS9s66HJ95SMNbE2UVbs1U/vcp +DQYM0PBfjE7hJarfSuS3Jm3hoePrki1mKVT/HpVkyh7gpaNq0tj3yCrqftI5 +nDOCdJypMQ/2q6R+T0Leq3ZJOor7/7moc5v6vv7BehYadIy0LNdiUfPgp/rK +IU1XOvJ5NrrOUPNk7pJ0vL47HQ11oi6T1Lz5vkJZieFNR5u/ewdCC6l8/cbY +sy6IjnShC7qj+dT8q/Obcz9Cxx0R2olFeVT/tK8WSr5Gx/M6YrN5Z6j63usF +b2fp2Pq1csEhkoTzrwPffvhFR3tXweDyQySc3XTw+MQ/OhZ7bPstRM3P0/rJ +j+eXK+LDpCsJD0NJSPjN2bZCXhHjduGOlXuo+KQuCTWzVsT5uN+n5Kn5bFZS +WpCdrYiYu3KzqjkJg0RJ/voLipjR5FLpQu0D0dk3L3/PV8QGwVeNMdS+UB1f +dNHlpiJK/64ZajGk7setIEeoXhF5fPfbWWiTsGbJ2fSkN4popabH3apAxds7 +Ji5CQwnndr2rVv7HgRkRO5+tTUr404uZFVTNgb5g+vM9j5RQg2thuruCAw0t +v+DoEyX0ra2cApLa56JLFG70KGGgV12PwC0O6LwVGP75WQljTzUfPlnIgX2c +ZzsuiSqjgdZ0isQpDnze5OoxuksZxe1dzxzx4cBoms/WA8tU0LRxkDXGxYEN +U5EbxgxV8ZlH+i51EzaM+/EerDi6GhseGb17f7aM+j8huehE0xosjv0Y3ppb +CiJPVU6zp9TQWOJspnpJMcgmlzsZGmrgqw9xQmeTbkCOOmOlaIAmch/O0SES +i6Bd2mLttwwtHDMI9w7IYIGJbFO6do82/ipO5pNJKAQhnsJw3wQdXPo68H7j +jQKQj1cw266ii9/cPpa0JlyC5cqeVS6PdPGZs5/HQ+480GKuKo/coYcHBIWm +Lv3IhgNDIs12XPrYGfliz+BkFkx9S3PdkKOPBVNK+0XdM8BGuyVvg6YB3hr5 +NdAvexrufTP9/aPDAIPUMzhG11Jgn4bewAv/tbjNT3ev4MxxYE7u6tq+3BDT +bGSfNwYkwHolqY2ChYaofbH71CP+o7A67mRUk5ERHm3t9m2VjwY1f8Z95QEj +nBTWHclMPAT+9wITK8KMUWhLt8Lh/jCYDPkcuT7cGP+8au/vaA+DKLngvT0R +xph+WrxCqz4MTsbud5mPMcYoYf1KgfwwYJtEEGZJxtj3N8rdwj8M/lQdq2/O +M0YxXuu65G+hkFl++XtnszFGZ3VtCZYMhfsFXbtmxBn4zaF32au5YBhxoHlH +SDHQ+otaTe1QMHD9DNn+W5qBJ8x5ThS3BIOl8zLHJQQD/xwP2Xw3OxhauE2M +VqkxcFVf160yo2B4sjN/uYU5A9+HFPnfid0LA0p7ytJ3M9DZXxdWi+6B7zf+ +/dCuZqCYzQPPxP0B8H6rdUFKDQMnP5m113sGQN/iU7bv6hgYnOepvsguAOp8 +pHOzGxi4Rfx66W2lAEiQWmuy0MZAbv2DH9kDu2Fl8p7Y9lcMDDvzWV9ow27Q +COjm8l9kgr9dw/4qavuDn3LJ8ryNJqhqKxJoqeAH0Q+99qg4mWD2XdsyLSE/ +SPcXeUy6mGDoFSOD1Qs7of7a4bTH20yQq81nyHJwJ4ip2K5Y8DXBF04xLeI5 +O6FFZUzMJ8IEk2+0PFAT2wlqqxUIlXwTvLjPT6xf3Bdm1LIMyWkTjNSbt5KN +8YK+J7he9JsJluUIPfnq4wUN+yY3h8+aYGNxIM9ray84TW4IM/xlgvcUUzeN +i3iBmglXaS2PKXpEiAjMluyAnRtCaM0SptjflpDHeuMJXQE2Al1mpripV1h3 +jYcH3GH9fjObbIrhtIDjFoluYGgV/sMu1RTfhv+wFdvvBpVvxgUKTpniVQfu +tT+2uwEpP2Rkl2mK87IZOya03aA0p+HU5Qum+MNU4GXuq21QkHacYVNmivxF +18M+G2+DlPAVGTkvTTHq5JNYpQVXcF+niKbyZvhrdXfGAGczLHTxCjUTZpif +KyYwdXkzFPhPDtopmqGvwwxbNG0zvE+qiXRfbYaG/37an9q9GQ60bSo/rGeG +xa2jCSi7GU46xsrfsTbD1Z8kxi6edIFat+4/BvvNcH601HLogDPIhJyo0Wow +wyM+au9Nhhzh9L/da1ObzLD75/DbF42OsCjTmvPhAXUeT/mGuGuO8Llqyc2C +NjP0kq0UVQxxhFquxByRl2Z4tFq447+FjeB+Ni5ybswMJeUPXo6jb4ScusNr +7/EzUerS8TTmEXsQ5wvmbNzGRG6PxCmjA7bAsjoSPb2diTtruELj3GxB78hp +qyxPJjZ82e74xtwWHKfZ3X2+TGw0+NL1hd8Wknpmf/oFMzH9sdMQ7boNzBce +tYyOZ2KnpS7J9dYaBkyzXhaVMJG+uuTQoqD1EHiIdXFDGRMdxfcs1nVZD3Nl +lf7jbCayTnilHjJdDyL0vh+6VUwMrKWagNB6sOeVk73bwMTCwcEVAxXroL6r +aNfLbiZmxt4YXrF0HdgJ3dGM6GNiUduB/eemraDPpm1OapCJc0MqvdqDVvC9 +9kuy1wgTj60Z/lDItgLNKzq3Pn1mIh9oK8V5WkH9gEVE2gQTn3zPTC62sQI7 +sc2gPc3EEU9Txic9K9h94tCL8FkmynUGmlxdTp3XkJQnOc/ElPOZgfKzlpDw +67xf7S8m1kbaXb41YgkrDW5q7FhgopB6XLvTE0u4HFI7++8fE5MJ7VfL7ljC +/wAqf6Ig "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -8014,136 +8145,130 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU -cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u -4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf -U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF -PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur -M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw -2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 -W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh -xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV -SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn -q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf -DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz -jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF -g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla -wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo -vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw -aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ -Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN -Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV -weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy -KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL -typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ -HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy -qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC -ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp -ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u -8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT -5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ -O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y -hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N -8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL -FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 -VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD -QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio -X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa -idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 -98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp -E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi -LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev -FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ -N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F -tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 -2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J -o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe -9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG -mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n -sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi -Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN -QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl -WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 -OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 -jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z -I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 -8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY -kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 -cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR -87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs -dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX -Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P -uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 -uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm -szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl -LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef -fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ -8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW -rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ -5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 -nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J -H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq -4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD -o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ -C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt -1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ -d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY -ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 -/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx -8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu -Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc -OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg -nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG -f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz -m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ -+Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea -Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 -B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG -pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft -R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ -//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL -fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa -H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj -1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw -8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y -PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 -OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g -41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 -j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b -LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m -MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W -9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ -v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U -N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb -be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq -XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl -vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF -7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI -1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg -cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD -wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO -D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK +1:eJwV13k4VO8XAHDSIlvZZb0ztrJvYTDOQSEklBKyJKEoSgh9QxJRWUpoIU0q +xMzNkqWylFCpZFeoaLVWpEX97u+veT7PnXmfmfOebWg797v4L+Li4tLk5uL6 +/+vcUNsDpVSWeeoVAqvDrMy7LksdtuhLgNc77R9L9dAAxZ/tlOrLhNXWo5VT +3boQ4VTcy9NXCO+DfWJfdluA8KRk5s9eEujjV1lF3c4wXO+4/3tvE3DfJTeJ +d/uCtdLn1zO9neAqaq7+pjMMfvYanZvufQuy13WfybTHQ7PVddaLwm+gP6a7 +mOabCbLDNe93aiyAgYOyn/hMHogFexcvs+LBwetbPVwir0CmrnWdoysvTrjE +5EonXIP+HJ2GmZWCaN01H/n42w1IZR19tmiVMN7JTxWIty4FO4MgEXFFYayQ +i1C+5lIKvA9cXFU1hVGZnvWv0asUEt8pD9pbCKPISODkWEQpxNKfvD8bJIzR +1x2ieopKYV+B1F+VWmG0md3p6rbkFjhf5GjYe4hgWt1c3vP6WyB59l1K1iVR +dMhybVotXg5S6pWJ80WiWPbQ/G+9fDlINyUd3cEWxaAbsYl2q8tBfnrNIdVm +UfQZN9jrbFoOyg6hPnUfRfFHbGeckG856C9eMHynL4ayPYc61pWUw6ZwiVG9 +djEU7PCFjXJscOL/OHT+pRhOOXl/LaaxwaWwpv/PKzE8sLWNsUSFDVufez5r +mRLDxhCZxHItNuzQuFrrLi6OTmFJvwaADXtHtTMSfMRRsa1/5SlfNpzYssG8 +c04cu/Is1noUskG6okN6EbcEpmhmJ+YXsaFMdMsPXX4JTB+xbxguZkNPpxc7 +Q0ECd6Ru/735NhuUnMPpzrYSWCPfeYj/ARuaNuYvfZ4rgS49JjpVo2xYsJ7t +eGomiZ3rutnzdA6kF0WXLFhLYpcmZ7pGhQNKS7mSNZ0lMUKdRyxSjQMOD/ks +TvlLIvOr2+IxXQ7kWRG3HU5Los6My4kzyAFjtD//eFgSiSqeefkdHDjIuOLd +liCFzLqLoypZHLArEPpunyaF6hZHvDWzOUBfFpvccU4KVcw+WerkcuB511bO +yxtS6Fd02Eo9nwNaoQI8Qx1SuOfxdo25Yg58LIos+iq9CuuNx68PN3LAU8xx +Qub2KnzPozfIPcEB/Zi6+Mv1q5CLm5V8booDfG9XS9BaVqHo+rNXlL9yoKac +B1T6V+HWpIsSpj84IGFfk67zbxW+nbUWMeUm4Xm8ksF6e2kM12XFnBEjYd3U +r+h976TxVHpueaoxCYdtz6o1jkujOu32sUITEsquaA6Izkmj3y+byUozEqS2 ++DBqeGXQbOuK5E4kYfzOwx88WjLI+zqu560tCVkJ6eG5UTKY/aFY2ceNhNbB +NUrj8TIYcbomCd1J+GPQ/NI8VQafaQYdk/MkYfeHWb3RSzKYypByfupNgomD +x4xWswzenfhgsziAhLfiKvseCMriyAPV+WfhJEjuvy8nKSmLb/ZKY3QECQ6t +bk+DCFl02tS9hhZFQlV0qsYKfVlEM6fRXTEknBye/rzdTRaDM2y5H8SToHez +LmCqUBYrvr5jvjlFQryZs6+0sRwKv/JafuEqCbZel78aWcrh4ka/vbMsEoTi +vhxzdZBDHUH3j/ZFJFxsPl6U7iOHgV0DaydukHDHrvbL0hQ5ZJdW6HGXkTDt +phjxrV8Ol3zU27K/moTq6NBlwqNyeO5PaG3qHRL+u3g3R2tSDjse6duwakgQ +GNlWF7RIHucd3Xrb6khQDUjjGlGTR0nevg/v75PgdWj25JMYeew9kBET9IgE +5fOWsp+Py2O2Rf4N29b/x//MrWXp8lhtx7NcqY2E6D9rnluy5HGhWyPgWTsJ +5455idc8kcdLUiPs+ackeF4rKerpkUe7vLD0mg6qbz6aN/o+Io+czrXFEc9I +YPNluWvPyuNr8cEzY89JeJLxKP+anALOyMSYZb+k7ve2mG6zqgL62ccuZXSR +4N7t2zSiq4A6A73CfZQ/Sv0ZlbFWQJ8PNtN8PSTwFOioZe5TwPns6TGrPhLa +G4/UlUcpYFzila5Wyunv2h2eJiigG01ewK6fBHlV//285xVwSa7tdosBKh/K +civ+u6+AwxnrTvC8ovK1t2NhslUBDXYO8+2i7Mi12Ma7UwG3uf92a6Ts57Kv +H8YU0Krk87YDr0nYF3OVzp5UwDOC7nwtlKNYfXuJeQU8ejPhpMQQCdYxtKNx +Swg8exd/3KL8eEX9VWM+AhNfRY19p+zE2to6LUTg+fhylvEwCR5PU4V9pQhU +Ld+dW0V5xFfFcJUcgQVB6c+nKe+ea3B/QSNQXpD/leoICaEKc1ct1Anct8Px +YBrl2dvprT+1CdSvbOGqpRxtqz7BMSCwwW7Kf5Qy1+uHwnsYBD74fuUq/xsS +jof5GNLNCVTbWlOrTZlv6W/3AUsCM1+vLHWinJ537mimDYHlDxKj9lEW19Zh +2TkQWLXiK5FCOa+5vXWRM4HP0wyLCigruPlP1LoSeOSlzvJKyqzxf8IH3Qn8 +a9Vg10JZLT7PUN2bev/Sh3u7KJeLr/V450fgYgEiZJiyQfGzoxcCCST5bm/6 +QLnWfA9rcwiBQXE+YuOU4eXiNv4DBMax+esnKD8IyJ9ojiDw2tUcm/8/3/CH +IRIbQ6Cm6nj1/z/fkd5laBBH4LEnXwRHKG9R3u8xnkhg8scjdt2U+2uWx7FS +qHhmpex7RNnLkcXyPE3g3qK56CrKo2/N28SyCHS4dyu0kHJQZP/Ek/MEthrl +OKVSnuQPFzl+kcBgnQKZMMoHC4SMmNSu0Xic3bmZ8rzBTY/ZawRe6KqI0Kf8 +X5tV3K1iAq9H5fKupMzjNcTyLyfwaqp9yifqfpK/RrXJVRD4e/TOz/uUhU6I +TnbfIXBc6rl7FmUptq2RdROB21fUftWhfGndO4+/LdTzayHqv6n8oPcfiat6 +TKD6vTS3Jsqai263qXQT2CLXm2VDmczeODnUT53P++nqEsrG6h9Fzg8RGFCv +X9pA5aPlFjnPZR8JnC22valJ+dHH6rj74wT6Wf/LH6by2+GIy7XIGQLDgx5l +nqa8rejE5IdfBE6+DA59R9VH8PxMXKsgDVUOblMNGqTqK2y3xHsRGl4JivX/ +RdUb7+eBEh4pGt4P/0JLpnxtsLnHnE7D6c4K6VyqPofundOoNKRh3MNE7Qxq +7yo14mvqNKWhQvuxY0spR7P/2zaNNOT3/ecdRdW/RGFAgro9DU9pnK927iZh +03FG3xVvGobW31gy2EnV+99bIfd30fCTx1ijAeXxCDrP6yAa1i0WEE59QcU7 +kF9LKpyGdhu8QzSpftRg//rY6WQaSq60ttpA9TM9kXjtGA4NT4yvTR9qoeon +dfZBThUNhZodZRZR7uDZ415VR8NooR5H+kMS9s66HJ95SMNbE2UVbs1U/vcp +DQYM0PBfjE7hJarfSuS3Jm3hoePrki1mKVT/HpVkyh7gpaNq0tj3yCrqftI5 +nDOCdJypMQ/2q6R+T0Leq3ZJOor7/7moc5v6vv7BehYadIy0LNdiUfPgp/rK +IU1XOvJ5NrrOUPNk7pJ0vL47HQ11oi6T1Lz5vkJZieFNR5u/ewdCC6l8/cbY +sy6IjnShC7qj+dT8q/Obcz9Cxx0R2olFeVT/tK8WSr5Gx/M6YrN5Z6j63usF +b2fp2Pq1csEhkoTzrwPffvhFR3tXweDyQySc3XTw+MQ/OhZ7bPstRM3P0/rJ +j+eXK+LDpCsJD0NJSPjN2bZCXhHjduGOlXuo+KQuCTWzVsT5uN+n5Kn5bFZS +WpCdrYiYu3KzqjkJg0RJ/voLipjR5FLpQu0D0dk3L3/PV8QGwVeNMdS+UB1f +dNHlpiJK/64ZajGk7setIEeoXhF5fPfbWWiTsGbJ2fSkN4popabH3apAxds7 +Ji5CQwnndr2rVv7HgRkRO5+tTUr404uZFVTNgb5g+vM9j5RQg2thuruCAw0t +v+DoEyX0ra2cApLa56JLFG70KGGgV12PwC0O6LwVGP75WQljTzUfPlnIgX2c +ZzsuiSqjgdZ0isQpDnze5OoxuksZxe1dzxzx4cBoms/WA8tU0LRxkDXGxYEN +U5EbxgxV8ZlH+i51EzaM+/EerDi6GhseGb17f7aM+j8huehE0xosjv0Y3ppb +CiJPVU6zp9TQWOJspnpJMcgmlzsZGmrgqw9xQmeTbkCOOmOlaIAmch/O0SES +i6Bd2mLttwwtHDMI9w7IYIGJbFO6do82/ipO5pNJKAQhnsJw3wQdXPo68H7j +jQKQj1cw266ii9/cPpa0JlyC5cqeVS6PdPGZs5/HQ+480GKuKo/coYcHBIWm +Lv3IhgNDIs12XPrYGfliz+BkFkx9S3PdkKOPBVNK+0XdM8BGuyVvg6YB3hr5 +NdAvexrufTP9/aPDAIPUMzhG11Jgn4bewAv/tbjNT3ev4MxxYE7u6tq+3BDT +bGSfNwYkwHolqY2ChYaofbH71CP+o7A67mRUk5ERHm3t9m2VjwY1f8Z95QEj +nBTWHclMPAT+9wITK8KMUWhLt8Lh/jCYDPkcuT7cGP+8au/vaA+DKLngvT0R +xph+WrxCqz4MTsbud5mPMcYoYf1KgfwwYJtEEGZJxtj3N8rdwj8M/lQdq2/O +M0YxXuu65G+hkFl++XtnszFGZ3VtCZYMhfsFXbtmxBn4zaF32au5YBhxoHlH +SDHQ+otaTe1QMHD9DNn+W5qBJ8x5ThS3BIOl8zLHJQQD/xwP2Xw3OxhauE2M +VqkxcFVf160yo2B4sjN/uYU5A9+HFPnfid0LA0p7ytJ3M9DZXxdWi+6B7zf+ +/dCuZqCYzQPPxP0B8H6rdUFKDQMnP5m113sGQN/iU7bv6hgYnOepvsguAOp8 +pHOzGxi4Rfx66W2lAEiQWmuy0MZAbv2DH9kDu2Fl8p7Y9lcMDDvzWV9ow27Q +COjm8l9kgr9dw/4qavuDn3LJ8ryNJqhqKxJoqeAH0Q+99qg4mWD2XdsyLSE/ +SPcXeUy6mGDoFSOD1Qs7of7a4bTH20yQq81nyHJwJ4ip2K5Y8DXBF04xLeI5 +O6FFZUzMJ8IEk2+0PFAT2wlqqxUIlXwTvLjPT6xf3Bdm1LIMyWkTjNSbt5KN +8YK+J7he9JsJluUIPfnq4wUN+yY3h8+aYGNxIM9ray84TW4IM/xlgvcUUzeN +i3iBmglXaS2PKXpEiAjMluyAnRtCaM0SptjflpDHeuMJXQE2Al1mpripV1h3 +jYcH3GH9fjObbIrhtIDjFoluYGgV/sMu1RTfhv+wFdvvBpVvxgUKTpniVQfu +tT+2uwEpP2Rkl2mK87IZOya03aA0p+HU5Qum+MNU4GXuq21QkHacYVNmivxF +18M+G2+DlPAVGTkvTTHq5JNYpQVXcF+niKbyZvhrdXfGAGczLHTxCjUTZpif +KyYwdXkzFPhPDtopmqGvwwxbNG0zvE+qiXRfbYaG/37an9q9GQ60bSo/rGeG +xa2jCSi7GU46xsrfsTbD1Z8kxi6edIFat+4/BvvNcH601HLogDPIhJyo0Wow +wyM+au9Nhhzh9L/da1ObzLD75/DbF42OsCjTmvPhAXUeT/mGuGuO8Llqyc2C +NjP0kq0UVQxxhFquxByRl2Z4tFq447+FjeB+Ni5ybswMJeUPXo6jb4ScusNr +7/EzUerS8TTmEXsQ5wvmbNzGRG6PxCmjA7bAsjoSPb2diTtruELj3GxB78hp +qyxPJjZ82e74xtwWHKfZ3X2+TGw0+NL1hd8Wknpmf/oFMzH9sdMQ7boNzBce +tYyOZ2KnpS7J9dYaBkyzXhaVMJG+uuTQoqD1EHiIdXFDGRMdxfcs1nVZD3Nl +lf7jbCayTnilHjJdDyL0vh+6VUwMrKWagNB6sOeVk73bwMTCwcEVAxXroL6r +aNfLbiZmxt4YXrF0HdgJ3dGM6GNiUduB/eemraDPpm1OapCJc0MqvdqDVvC9 +9kuy1wgTj60Z/lDItgLNKzq3Pn1mIh9oK8V5WkH9gEVE2gQTn3zPTC62sQI7 +sc2gPc3EEU9Txic9K9h94tCL8FkmynUGmlxdTp3XkJQnOc/ElPOZgfKzlpDw +67xf7S8m1kbaXb41YgkrDW5q7FhgopB6XLvTE0u4HFI7++8fE5MJ7VfL7ljC +/wAqf6Ig "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "PlotRange" -> {{0, 30}, {0., 0.07375989762266677}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -8155,19 +8280,19 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "PlotRange" -> {{0, 30}, {0., 0.07375989762266677}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8181,135 +8306,129 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU -cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u -4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf -U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF -PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur -M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw -2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 -W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh -xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV -SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn -q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf -DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz -jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF -g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla -wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo -vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw -aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ -Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN -Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV -weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy -KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL -typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ -HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy -qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC -ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp -ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u -8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT -5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ -O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y -hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N -8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL -FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 -VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD -QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio -X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa -idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 -98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp -E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi -LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev -FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ -N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F -tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 -2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J -o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe -9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG -mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n -sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi -Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN -QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl -WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 -OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 -jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z -I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 -8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY -kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 -cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR -87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs -dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX -Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P -uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 -uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm -szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl -LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef -fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ -8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW -rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ -5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 -nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J -H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq -4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD -o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ -C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt -1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ -d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY -ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 -/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx -8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu -Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc -OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg -nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG -f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz -m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ -+Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea -Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 -B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG -pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft -R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ -//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL -fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa -H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj -1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw -8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y -PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 -OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g -41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 -j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b -LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m -MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W -9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ -v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U -N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb -be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq -XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl -vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF -7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI -1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg -cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD -wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO -D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK +1:eJwV13k4VO8XAHDSIlvZZb0ztrJvYTDOQSEklBKyJKEoSgh9QxJRWUpoIU0q +xMzNkqWylFCpZFeoaLVWpEX97u+veT7PnXmfmfOebWg797v4L+Li4tLk5uL6 +/+vcUNsDpVSWeeoVAqvDrMy7LksdtuhLgNc77R9L9dAAxZ/tlOrLhNXWo5VT +3boQ4VTcy9NXCO+DfWJfdluA8KRk5s9eEujjV1lF3c4wXO+4/3tvE3DfJTeJ +d/uCtdLn1zO9neAqaq7+pjMMfvYanZvufQuy13WfybTHQ7PVddaLwm+gP6a7 +mOabCbLDNe93aiyAgYOyn/hMHogFexcvs+LBwetbPVwir0CmrnWdoysvTrjE +5EonXIP+HJ2GmZWCaN01H/n42w1IZR19tmiVMN7JTxWIty4FO4MgEXFFYayQ +i1C+5lIKvA9cXFU1hVGZnvWv0asUEt8pD9pbCKPISODkWEQpxNKfvD8bJIzR +1x2ieopKYV+B1F+VWmG0md3p6rbkFjhf5GjYe4hgWt1c3vP6WyB59l1K1iVR +dMhybVotXg5S6pWJ80WiWPbQ/G+9fDlINyUd3cEWxaAbsYl2q8tBfnrNIdVm +UfQZN9jrbFoOyg6hPnUfRfFHbGeckG856C9eMHynL4ayPYc61pWUw6ZwiVG9 +djEU7PCFjXJscOL/OHT+pRhOOXl/LaaxwaWwpv/PKzE8sLWNsUSFDVufez5r +mRLDxhCZxHItNuzQuFrrLi6OTmFJvwaADXtHtTMSfMRRsa1/5SlfNpzYssG8 +c04cu/Is1noUskG6okN6EbcEpmhmJ+YXsaFMdMsPXX4JTB+xbxguZkNPpxc7 +Q0ECd6Ru/735NhuUnMPpzrYSWCPfeYj/ARuaNuYvfZ4rgS49JjpVo2xYsJ7t +eGomiZ3rutnzdA6kF0WXLFhLYpcmZ7pGhQNKS7mSNZ0lMUKdRyxSjQMOD/ks +TvlLIvOr2+IxXQ7kWRG3HU5Los6My4kzyAFjtD//eFgSiSqeefkdHDjIuOLd +liCFzLqLoypZHLArEPpunyaF6hZHvDWzOUBfFpvccU4KVcw+WerkcuB511bO +yxtS6Fd02Eo9nwNaoQI8Qx1SuOfxdo25Yg58LIos+iq9CuuNx68PN3LAU8xx +Qub2KnzPozfIPcEB/Zi6+Mv1q5CLm5V8booDfG9XS9BaVqHo+rNXlL9yoKac +B1T6V+HWpIsSpj84IGFfk67zbxW+nbUWMeUm4Xm8ksF6e2kM12XFnBEjYd3U +r+h976TxVHpueaoxCYdtz6o1jkujOu32sUITEsquaA6Izkmj3y+byUozEqS2 ++DBqeGXQbOuK5E4kYfzOwx88WjLI+zqu560tCVkJ6eG5UTKY/aFY2ceNhNbB +NUrj8TIYcbomCd1J+GPQ/NI8VQafaQYdk/MkYfeHWb3RSzKYypByfupNgomD +x4xWswzenfhgsziAhLfiKvseCMriyAPV+WfhJEjuvy8nKSmLb/ZKY3QECQ6t +bk+DCFl02tS9hhZFQlV0qsYKfVlEM6fRXTEknBye/rzdTRaDM2y5H8SToHez +LmCqUBYrvr5jvjlFQryZs6+0sRwKv/JafuEqCbZel78aWcrh4ka/vbMsEoTi +vhxzdZBDHUH3j/ZFJFxsPl6U7iOHgV0DaydukHDHrvbL0hQ5ZJdW6HGXkTDt +phjxrV8Ol3zU27K/moTq6NBlwqNyeO5PaG3qHRL+u3g3R2tSDjse6duwakgQ +GNlWF7RIHucd3Xrb6khQDUjjGlGTR0nevg/v75PgdWj25JMYeew9kBET9IgE +5fOWsp+Py2O2Rf4N29b/x//MrWXp8lhtx7NcqY2E6D9rnluy5HGhWyPgWTsJ +5455idc8kcdLUiPs+ackeF4rKerpkUe7vLD0mg6qbz6aN/o+Io+czrXFEc9I +YPNluWvPyuNr8cEzY89JeJLxKP+anALOyMSYZb+k7ve2mG6zqgL62ccuZXSR +4N7t2zSiq4A6A73CfZQ/Sv0ZlbFWQJ8PNtN8PSTwFOioZe5TwPns6TGrPhLa +G4/UlUcpYFzila5Wyunv2h2eJiigG01ewK6fBHlV//285xVwSa7tdosBKh/K +civ+u6+AwxnrTvC8ovK1t2NhslUBDXYO8+2i7Mi12Ma7UwG3uf92a6Ts57Kv +H8YU0Krk87YDr0nYF3OVzp5UwDOC7nwtlKNYfXuJeQU8ejPhpMQQCdYxtKNx +Swg8exd/3KL8eEX9VWM+AhNfRY19p+zE2to6LUTg+fhylvEwCR5PU4V9pQhU +Ld+dW0V5xFfFcJUcgQVB6c+nKe+ea3B/QSNQXpD/leoICaEKc1ct1Anct8Px +YBrl2dvprT+1CdSvbOGqpRxtqz7BMSCwwW7Kf5Qy1+uHwnsYBD74fuUq/xsS +jof5GNLNCVTbWlOrTZlv6W/3AUsCM1+vLHWinJ537mimDYHlDxKj9lEW19Zh +2TkQWLXiK5FCOa+5vXWRM4HP0wyLCigruPlP1LoSeOSlzvJKyqzxf8IH3Qn8 +a9Vg10JZLT7PUN2bev/Sh3u7KJeLr/V450fgYgEiZJiyQfGzoxcCCST5bm/6 +QLnWfA9rcwiBQXE+YuOU4eXiNv4DBMax+esnKD8IyJ9ojiDw2tUcm/8/3/CH +IRIbQ6Cm6nj1/z/fkd5laBBH4LEnXwRHKG9R3u8xnkhg8scjdt2U+2uWx7FS +qHhmpex7RNnLkcXyPE3g3qK56CrKo2/N28SyCHS4dyu0kHJQZP/Ek/MEthrl +OKVSnuQPFzl+kcBgnQKZMMoHC4SMmNSu0Xic3bmZ8rzBTY/ZawRe6KqI0Kf8 +X5tV3K1iAq9H5fKupMzjNcTyLyfwaqp9yifqfpK/RrXJVRD4e/TOz/uUhU6I +TnbfIXBc6rl7FmUptq2RdROB21fUftWhfGndO4+/LdTzayHqv6n8oPcfiat6 +TKD6vTS3Jsqai263qXQT2CLXm2VDmczeODnUT53P++nqEsrG6h9Fzg8RGFCv +X9pA5aPlFjnPZR8JnC22valJ+dHH6rj74wT6Wf/LH6by2+GIy7XIGQLDgx5l +nqa8rejE5IdfBE6+DA59R9VH8PxMXKsgDVUOblMNGqTqK2y3xHsRGl4JivX/ +RdUb7+eBEh4pGt4P/0JLpnxtsLnHnE7D6c4K6VyqPofundOoNKRh3MNE7Qxq +7yo14mvqNKWhQvuxY0spR7P/2zaNNOT3/ecdRdW/RGFAgro9DU9pnK927iZh +03FG3xVvGobW31gy2EnV+99bIfd30fCTx1ijAeXxCDrP6yAa1i0WEE59QcU7 +kF9LKpyGdhu8QzSpftRg//rY6WQaSq60ttpA9TM9kXjtGA4NT4yvTR9qoeon +dfZBThUNhZodZRZR7uDZ415VR8NooR5H+kMS9s66HJ95SMNbE2UVbs1U/vcp +DQYM0PBfjE7hJarfSuS3Jm3hoePrki1mKVT/HpVkyh7gpaNq0tj3yCrqftI5 +nDOCdJypMQ/2q6R+T0Leq3ZJOor7/7moc5v6vv7BehYadIy0LNdiUfPgp/rK +IU1XOvJ5NrrOUPNk7pJ0vL47HQ11oi6T1Lz5vkJZieFNR5u/ewdCC6l8/cbY +sy6IjnShC7qj+dT8q/Obcz9Cxx0R2olFeVT/tK8WSr5Gx/M6YrN5Z6j63usF +b2fp2Pq1csEhkoTzrwPffvhFR3tXweDyQySc3XTw+MQ/OhZ7bPstRM3P0/rJ +j+eXK+LDpCsJD0NJSPjN2bZCXhHjduGOlXuo+KQuCTWzVsT5uN+n5Kn5bFZS +WpCdrYiYu3KzqjkJg0RJ/voLipjR5FLpQu0D0dk3L3/PV8QGwVeNMdS+UB1f +dNHlpiJK/64ZajGk7setIEeoXhF5fPfbWWiTsGbJ2fSkN4popabH3apAxds7 +Ji5CQwnndr2rVv7HgRkRO5+tTUr404uZFVTNgb5g+vM9j5RQg2thuruCAw0t +v+DoEyX0ra2cApLa56JLFG70KGGgV12PwC0O6LwVGP75WQljTzUfPlnIgX2c +ZzsuiSqjgdZ0isQpDnze5OoxuksZxe1dzxzx4cBoms/WA8tU0LRxkDXGxYEN +U5EbxgxV8ZlH+i51EzaM+/EerDi6GhseGb17f7aM+j8huehE0xosjv0Y3ppb +CiJPVU6zp9TQWOJspnpJMcgmlzsZGmrgqw9xQmeTbkCOOmOlaIAmch/O0SES +i6Bd2mLttwwtHDMI9w7IYIGJbFO6do82/ipO5pNJKAQhnsJw3wQdXPo68H7j +jQKQj1cw266ii9/cPpa0JlyC5cqeVS6PdPGZs5/HQ+480GKuKo/coYcHBIWm +Lv3IhgNDIs12XPrYGfliz+BkFkx9S3PdkKOPBVNK+0XdM8BGuyVvg6YB3hr5 +NdAvexrufTP9/aPDAIPUMzhG11Jgn4bewAv/tbjNT3ev4MxxYE7u6tq+3BDT +bGSfNwYkwHolqY2ChYaofbH71CP+o7A67mRUk5ERHm3t9m2VjwY1f8Z95QEj +nBTWHclMPAT+9wITK8KMUWhLt8Lh/jCYDPkcuT7cGP+8au/vaA+DKLngvT0R +xph+WrxCqz4MTsbud5mPMcYoYf1KgfwwYJtEEGZJxtj3N8rdwj8M/lQdq2/O +M0YxXuu65G+hkFl++XtnszFGZ3VtCZYMhfsFXbtmxBn4zaF32au5YBhxoHlH +SDHQ+otaTe1QMHD9DNn+W5qBJ8x5ThS3BIOl8zLHJQQD/xwP2Xw3OxhauE2M +VqkxcFVf160yo2B4sjN/uYU5A9+HFPnfid0LA0p7ytJ3M9DZXxdWi+6B7zf+ +/dCuZqCYzQPPxP0B8H6rdUFKDQMnP5m113sGQN/iU7bv6hgYnOepvsguAOp8 +pHOzGxi4Rfx66W2lAEiQWmuy0MZAbv2DH9kDu2Fl8p7Y9lcMDDvzWV9ow27Q +COjm8l9kgr9dw/4qavuDn3LJ8ryNJqhqKxJoqeAH0Q+99qg4mWD2XdsyLSE/ +SPcXeUy6mGDoFSOD1Qs7of7a4bTH20yQq81nyHJwJ4ip2K5Y8DXBF04xLeI5 +O6FFZUzMJ8IEk2+0PFAT2wlqqxUIlXwTvLjPT6xf3Bdm1LIMyWkTjNSbt5KN +8YK+J7he9JsJluUIPfnq4wUN+yY3h8+aYGNxIM9ray84TW4IM/xlgvcUUzeN +i3iBmglXaS2PKXpEiAjMluyAnRtCaM0SptjflpDHeuMJXQE2Al1mpripV1h3 +jYcH3GH9fjObbIrhtIDjFoluYGgV/sMu1RTfhv+wFdvvBpVvxgUKTpniVQfu +tT+2uwEpP2Rkl2mK87IZOya03aA0p+HU5Qum+MNU4GXuq21QkHacYVNmivxF +18M+G2+DlPAVGTkvTTHq5JNYpQVXcF+niKbyZvhrdXfGAGczLHTxCjUTZpif +KyYwdXkzFPhPDtopmqGvwwxbNG0zvE+qiXRfbYaG/37an9q9GQ60bSo/rGeG +xa2jCSi7GU46xsrfsTbD1Z8kxi6edIFat+4/BvvNcH601HLogDPIhJyo0Wow +wyM+au9Nhhzh9L/da1ObzLD75/DbF42OsCjTmvPhAXUeT/mGuGuO8Llqyc2C +NjP0kq0UVQxxhFquxByRl2Z4tFq447+FjeB+Ni5ybswMJeUPXo6jb4ScusNr +7/EzUerS8TTmEXsQ5wvmbNzGRG6PxCmjA7bAsjoSPb2diTtruELj3GxB78hp +qyxPJjZ82e74xtwWHKfZ3X2+TGw0+NL1hd8Wknpmf/oFMzH9sdMQ7boNzBce +tYyOZ2KnpS7J9dYaBkyzXhaVMJG+uuTQoqD1EHiIdXFDGRMdxfcs1nVZD3Nl +lf7jbCayTnilHjJdDyL0vh+6VUwMrKWagNB6sOeVk73bwMTCwcEVAxXroL6r +aNfLbiZmxt4YXrF0HdgJ3dGM6GNiUduB/eemraDPpm1OapCJc0MqvdqDVvC9 +9kuy1wgTj60Z/lDItgLNKzq3Pn1mIh9oK8V5WkH9gEVE2gQTn3zPTC62sQI7 +sc2gPc3EEU9Txic9K9h94tCL8FkmynUGmlxdTp3XkJQnOc/ElPOZgfKzlpDw +67xf7S8m1kbaXb41YgkrDW5q7FhgopB6XLvTE0u4HFI7++8fE5MJ7VfL7ljC +/wAqf6Ig "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "PlotRange" -> {{0, 30}, {0., 0.07375989762266677}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8320,6 +8439,7 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8347,7 +8467,8 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.07773075306777268}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07375989762266677}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8355,9 +8476,8 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913298974454536`*^9}, - CellLabel-> - "Out[172]=",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] + CellChangeTimes->{3.9913298974454536`*^9, 3.9942586397112226`*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"a4c3ae6d-0b09-40ca-a168-b9cab8307f05"] }, Open ]], Cell[CellGroupData[{ @@ -8410,66 +8530,72 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[173]:=",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], + "In[100]:=",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 173, 129, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913298974999084`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.7286453075528326`*^-162\\\", \ +RowBox[{\\\"5055189918605101236401431\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"99\\\", \\\"\[RightSkeleton]\\\"}], \\\"00000000000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 100, 17, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913298974999084`*^9, 3.994258639882601*^9}, CellLabel-> "During evaluation of \ -In[173]:=",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], +In[100]:=",ExpressionUUID->"39898549-e58f-4ac3-a2cc-662069ef943a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 173, 130, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329897510906*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.5552873909860875`*^-165\\\", \ +RowBox[{\\\"1642431204554797391706825\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"103\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"00000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 18, + 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913298974999084`*^9, 3.99425863989517*^9}, CellLabel-> "During evaluation of \ -In[173]:=",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], +In[100]:=",ExpressionUUID->"6a159dde-22f2-4470-aa7a-c103066b7db5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 173, 131, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913298975189075`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.632360386862016`*^-168\\\", \ +RowBox[{\\\"5525138572122338425701759\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"106\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"00000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 19, + 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913298974999084`*^9, 3.994258639907056*^9}, CellLabel-> "During evaluation of \ -In[173]:=",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], +In[100]:=",ExpressionUUID->"afc0887b-3e98-4bb1-9f65-8f9bbc23fb85"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 173, 132, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329897526905*^9}, +during this calculation.\"", 2, 100, 20, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913298974999084`*^9, 3.994258639917004*^9}, CellLabel-> "During evaluation of \ -In[173]:=",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], +In[100]:=",ExpressionUUID->"fb721369-ec1b-496e-8954-b7ccb407ee97"], -Cell[BoxData["9.77956849963325`"], "Output", - CellChangeTimes->{3.991329904262455*^9}, +Cell[BoxData["10.30572993399417`"], "Output", + CellChangeTimes->{3.991329904262455*^9, 3.994258730602129*^9}, CellLabel-> - "Out[173]=",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] + "Out[100]=",ExpressionUUID->"c211fd26-fa75-4f50-ad46-c433a0bd83c9"] }, Open ]], Cell[CellGroupData[{ @@ -8536,68 +8662,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918489049186344`*^9, - 3.991848908595253*^9}},ExpressionUUID->"eb852908-4d60-c84e-80d9-\ -a57fd4094f56"], + CellChangeTimes->{{3.9918489049186344`*^9, 3.991848908595253*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 174, 133, 24483298974280422597, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329904300501*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.866099989354873`*^-204\\\", \ +RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 101, 21, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329904300501*^9, 3.994258730682625*^9}, CellLabel-> "During evaluation of \ -In[174]:=",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], +In[101]:=",ExpressionUUID->"55cc418c-91da-4d25-a58f-5e3ca4e332b6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 174, 134, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329904310505*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2941435498891702`*^-208\\\", \ +RowBox[{\\\"7066407765328259371913031\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"58\\\", \\\"\[RightSkeleton]\\\"}], \\\"82006784000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 101, 22, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329904300501*^9, 3.9942587306952047`*^9}, CellLabel-> "During evaluation of \ -In[174]:=",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], +In[101]:=",ExpressionUUID->"ee779f72-49e1-4739-a625-905aea521ed7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 174, 135, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299043185062`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.4392413893132147`*^-213\\\", \ +RowBox[{\\\"1430947572478972522812388\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"62\\\", \\\"\[RightSkeleton]\\\"}], \\\"63737600000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 101, 23, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329904300501*^9, 3.9942587307053003`*^9}, CellLabel-> "During evaluation of \ -In[174]:=",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], +In[101]:=",ExpressionUUID->"7ae00822-ab8b-4f6d-8691-3b62a8d4e058"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 174, 136, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299043256874`*^9}, +during this calculation.\"", 2, 101, 24, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329904300501*^9, 3.994258730715746*^9}, CellLabel-> "During evaluation of \ -In[174]:=",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], +In[101]:=",ExpressionUUID->"4887c22c-f4c4-47b1-83ff-b6687565c5fa"], -Cell[BoxData["0.1491428555515254`"], "Output", - CellChangeTimes->{3.9913299110465336`*^9}, +Cell[BoxData["0.7231843969935641`"], "Output", + CellChangeTimes->{3.9913299110465336`*^9, 3.994258742237474*^9}, CellLabel-> - "Out[174]=",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] + "Out[101]=",ExpressionUUID->"365de31f-a4a3-4fa5-b4e4-56c62386b855"] }, Open ]], Cell[CellGroupData[{ @@ -8618,8 +8748,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8664,68 +8793,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918489121661835`*^9, - 3.9918489145264854`*^9}},ExpressionUUID->"d11037f6-09e7-b44f-8a1d-\ -47c1a485c608"], + CellChangeTimes->{{3.9918489121661835`*^9, 3.9918489145264854`*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 175, 137, 24483298974280422597, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329911081766*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.866099989354873`*^-204\\\", \ +RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 102, 25, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329911081766*^9, 3.994258742287957*^9}, CellLabel-> "During evaluation of \ -In[175]:=",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], +In[102]:=",ExpressionUUID->"49832e60-24cd-4b47-9644-03f4e8383f76"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 175, 138, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329911090769*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2941435498891702`*^-208\\\", \ +RowBox[{\\\"7066407765328259371913031\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"58\\\", \\\"\[RightSkeleton]\\\"}], \\\"82006784000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 102, 26, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329911081766*^9, 3.99425874229727*^9}, CellLabel-> "During evaluation of \ -In[175]:=",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], +In[102]:=",ExpressionUUID->"13740a8e-b7ee-4d83-a15c-36f17c29254a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 175, 139, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329911098768*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.4392413893132147`*^-213\\\", \ +RowBox[{\\\"1430947572478972522812388\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"62\\\", \\\"\[RightSkeleton]\\\"}], \\\"63737600000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 102, 27, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329911081766*^9, 3.9942587423075657`*^9}, CellLabel-> "During evaluation of \ -In[175]:=",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], +In[102]:=",ExpressionUUID->"ac2c8139-b290-409c-b129-38e39de0a3b2"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 175, 140, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299111067944`*^9}, +during this calculation.\"", 2, 102, 28, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329911081766*^9, 3.994258742318734*^9}, CellLabel-> "During evaluation of \ -In[175]:=",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], +In[102]:=",ExpressionUUID->"5f76f2f6-03a9-4e66-a7df-0ab36c49654e"], -Cell[BoxData["6.5928699937564845`"], "Output", - CellChangeTimes->{3.9913299163114815`*^9}, +Cell[BoxData["29.762803718539537`"], "Output", + CellChangeTimes->{3.9913299163114815`*^9, 3.9942587533397837`*^9}, CellLabel-> - "Out[175]=",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] + "Out[102]=",ExpressionUUID->"6ea80c51-eab2-4f76-8523-edb446c327e6"] }, Open ]], Cell[CellGroupData[{ @@ -8746,8 +8879,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8792,68 +8924,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918489192162857`*^9, - 3.991848922582632*^9}},ExpressionUUID->"431dd2fa-6331-2449-bc19-\ -0d79e6ed8953"], + CellChangeTimes->{{3.9918489192162857`*^9, 3.991848922582632*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 176, 141, 24483298974280422597, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299163444805`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.866099989354873`*^-204\\\", \ +RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 103, 29, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299163444805`*^9, 3.994258753418214*^9}, CellLabel-> "During evaluation of \ -In[176]:=",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], +In[103]:=",ExpressionUUID->"7ff887a6-eb57-4dcc-9836-2ec4aa35b23a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 176, 142, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329916354479*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2941435498891702`*^-208\\\", \ +RowBox[{\\\"7066407765328259371913031\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"58\\\", \\\"\[RightSkeleton]\\\"}], \\\"82006784000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 103, 30, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299163444805`*^9, 3.9942587534281607`*^9}, CellLabel-> "During evaluation of \ -In[176]:=",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], +In[103]:=",ExpressionUUID->"9e1251c7-6d70-40d1-b5ec-cb6bb15f542d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 176, 143, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299163634796`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.4392413893132147`*^-213\\\", \ +RowBox[{\\\"1430947572478972522812388\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"62\\\", \\\"\[RightSkeleton]\\\"}], \\\"63737600000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 103, 31, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299163444805`*^9, 3.9942587534388723`*^9}, CellLabel-> "During evaluation of \ -In[176]:=",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], +In[103]:=",ExpressionUUID->"c79c133a-b711-4d76-be50-11fb17d2a811"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 176, 144, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329916371479*^9}, +during this calculation.\"", 2, 103, 32, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299163444805`*^9, 3.994258753449835*^9}, CellLabel-> "During evaluation of \ -In[176]:=",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], +In[103]:=",ExpressionUUID->"bb36035c-3571-4ca5-89d0-2e223abd009a"], -Cell[BoxData["16.916908616104454`"], "Output", - CellChangeTimes->{3.9913299193276234`*^9}, +Cell[BoxData["5.650013576944826`"], "Output", + CellChangeTimes->{3.9913299193276234`*^9, 3.9942587625336237`*^9}, CellLabel-> - "Out[176]=",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] + "Out[103]=",ExpressionUUID->"539a8923-1f78-4404-b22f-4d99b7a45c9f"] }, Open ]], Cell[CellGroupData[{ @@ -8862,22 +8998,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991848926103155*^9, - 3.9918489295815735`*^9}},ExpressionUUID->"8c5df121-e0b9-a146-bc34-\ -b231aa8028b9"], - -Cell[BoxData["0.01412227604937243`"], "Output", - CellChangeTimes->{3.99132991935894*^9}, + CellChangeTimes->{{3.991848926103155*^9, 3.9918489295815735`*^9}}, CellLabel-> - "Out[177]=",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] + "In[104]:=",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], + +Cell[BoxData["0.05576829687506779`"], "Output", + CellChangeTimes->{3.99132991935894*^9, 3.9942587625809*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"ffd5c940-c4cb-412e-8f1d-746ffee1feb1"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918489327910748`*^9, 3.991848934830887*^9}, - 3.991924914130762*^9},ExpressionUUID->"831a27fc-89ff-e041-97f1-\ -0ec5d19a7879"], + 3.991924914130762*^9}, + CellLabel-> + "In[105]:=",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], Cell[CellGroupData[{ @@ -8900,12 +9037,12 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[179]:=",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], + "In[106]:=",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], -Cell[BoxData["8.947947137013426`"], "Output", - CellChangeTimes->{3.9913299193849545`*^9}, +Cell[BoxData["6.925133707239257`"], "Output", + CellChangeTimes->{3.9913299193849545`*^9, 3.994258762608425*^9}, CellLabel-> - "Out[179]=",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] + "Out[106]=",ExpressionUUID->"769b606d-8a93-4dbb-bd51-57837bc40dcb"] }, Open ]], Cell[CellGroupData[{ @@ -8915,12 +9052,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[181]:=",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], + "In[107]:=",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], -Cell[BoxData["1.2539951617800844`"], "Output", - CellChangeTimes->{3.9913299194207077`*^9}, +Cell[BoxData["2.4679757206190693`"], "Output", + CellChangeTimes->{3.9913299194207077`*^9, 3.994258762623514*^9}, CellLabel-> - "Out[181]=",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] + "Out[107]=",ExpressionUUID->"5d68ff8d-44d8-4c11-b193-030390d27e55"] }, Open ]], Cell[CellGroupData[{ @@ -8930,12 +9067,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[184]:=",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], + "In[108]:=",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], -Cell[BoxData["11.220682417678793`"], "Output", - CellChangeTimes->{3.9913299194738407`*^9}, +Cell[BoxData["17.091061851507213`"], "Output", + CellChangeTimes->{3.9913299194738407`*^9, 3.994258762639347*^9}, CellLabel-> - "Out[184]=",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] + "Out[108]=",ExpressionUUID->"e3d76d20-650e-4158-9d4a-5052d8a9d186"] }, Open ]], Cell[CellGroupData[{ @@ -9125,12 +9262,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[185]:=",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], + "In[109]:=",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], -Cell[BoxData["0.04472011299838893`"], "Output", - CellChangeTimes->{3.991329919501911*^9}, +Cell[BoxData["0.007667590140190061`"], "Output", + CellChangeTimes->{3.991329919501911*^9, 3.994258762657536*^9}, CellLabel-> - "Out[185]=",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] + "Out[109]=",ExpressionUUID->"e884ad9a-70ef-4bdc-973a-a12ad755f3b9"] }, Open ]], Cell[CellGroupData[{ @@ -9144,12 +9281,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[186]:=",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], + "In[110]:=",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], -Cell[BoxData["4.190766798679958`"], "Output", - CellChangeTimes->{3.991329919596855*^9}, +Cell[BoxData["10.120815213595868`"], "Output", + CellChangeTimes->{3.991329919596855*^9, 3.994258762845478*^9}, CellLabel-> - "Out[186]=",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] + "Out[110]=",ExpressionUUID->"c397386f-772e-44ef-8471-d7f3c1fcee40"] }, Open ]], Cell[CellGroupData[{ @@ -9341,12 +9478,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[187]:=",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], + "In[111]:=",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], -Cell[BoxData["0.014190600885170185`"], "Output", - CellChangeTimes->{3.9913299196126003`*^9}, +Cell[BoxData["0.05537565298444736`"], "Output", + CellChangeTimes->{3.9913299196126003`*^9, 3.9942587628657503`*^9}, CellLabel-> - "Out[187]=",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] + "Out[111]=",ExpressionUUID->"f28e8e5a-f086-4f1b-80e8-9fffda12904a"] }, Open ]], Cell[CellGroupData[{ @@ -9360,12 +9497,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[188]:=",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], + "In[112]:=",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], -Cell[BoxData["7.439513700547701`"], "Output", - CellChangeTimes->{3.9913299197036095`*^9}, +Cell[BoxData["3.7660450470934173`"], "Output", + CellChangeTimes->{3.9913299197036095`*^9, 3.99425876306752*^9}, CellLabel-> - "Out[188]=",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] + "Out[112]=",ExpressionUUID->"03654654-15d4-4fcf-915a-8ebeebb048bf"] }, Open ]], Cell[CellGroupData[{ @@ -9458,12 +9595,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[189]:=",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], + "In[113]:=",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.9913299197165985`*^9}, +Cell[BoxData["0.08457834250906257`"], "Output", + CellChangeTimes->{3.9913299197165985`*^9, 3.994258763081736*^9}, CellLabel-> - "Out[189]=",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] + "Out[113]=",ExpressionUUID->"49f6e7ec-9147-4410-bf34-9a29778b7a48"] }, Open ]], Cell[CellGroupData[{ @@ -9553,12 +9690,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[190]:=",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], + "In[114]:=",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.991329919739599*^9}, +Cell[BoxData["0.9154216574909375`"], "Output", + CellChangeTimes->{3.991329919739599*^9, 3.994258763098372*^9}, CellLabel-> - "Out[190]=",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] + "Out[114]=",ExpressionUUID->"8e28c9be-cbd5-4698-b37a-330403e8a952"] }, Open ]], Cell[CellGroupData[{ @@ -9681,12 +9818,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[191]:=",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], + "In[115]:=",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913299197646008`*^9}, +Cell[BoxData["0.07742484648748227`"], "Output", + CellChangeTimes->{3.9913299197646008`*^9, 3.994258763115271*^9}, CellLabel-> - "Out[191]=",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] + "Out[115]=",ExpressionUUID->"51f6be93-8858-4fed-808d-df34c7eccbb8"] }, Open ]], Cell[CellGroupData[{ @@ -9701,7 +9838,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -9723,8 +9862,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -9748,68 +9886,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991848964116934*^9},ExpressionUUID->"220bdeed-2e17-e94c-a7b0-\ -3e066daf15d7"], + CellChangeTimes->{3.991848964116934*^9}, + CellLabel-> + "In[116]:=",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 192, - 145, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329919788595*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.4521938290642235`*^-214\\\", \ +RowBox[{\\\"1974042190923019415205737\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \\\"06995456000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 116, 33, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329919788595*^9, 3.9942587631375837`*^9}, CellLabel-> "During evaluation of \ -In[192]:=",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], +In[116]:=",ExpressionUUID->"992a4b7a-67ee-4bbb-a457-327ca33e90d4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 192, - 146, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299197985992`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.0118324744392534`*^-219\\\", \ +RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 116, 34, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329919788595*^9, 3.9942587631482887`*^9}, CellLabel-> "During evaluation of \ -In[192]:=",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], +In[116]:=",ExpressionUUID->"be66b0e1-414d-4407-8fdb-1dc054d897ec"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 192, 147, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299198065968`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.6505505630249927`*^-224\\\", \ +RowBox[{\\\"7066407765328259371913031\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"58\\\", \\\"\[RightSkeleton]\\\"}], \\\"82006784000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 116, 35, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329919788595*^9, 3.994258763158183*^9}, CellLabel-> "During evaluation of \ -In[192]:=",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], +In[116]:=",ExpressionUUID->"046216a9-f2fb-4eab-807c-5cbe93f5a13b"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 192, 148, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329919814598*^9}, +during this calculation.\"", 2, 116, 36, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329919788595*^9, 3.994258763168365*^9}, CellLabel-> "During evaluation of \ -In[192]:=",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], +In[116]:=",ExpressionUUID->"dcc63893-7598-4220-a26b-203a5113ba1b"], -Cell[BoxData["4.190766798679958`"], "Output", - CellChangeTimes->{3.991329923627493*^9}, +Cell[BoxData["10.120815213595861`"], "Output", + CellChangeTimes->{3.991329923627493*^9, 3.994258771065731*^9}, CellLabel-> - "Out[192]=",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] + "Out[116]=",ExpressionUUID->"f1e4f586-8882-48f9-8bd8-15e5b5548fa3"] }, Open ]], Cell[CellGroupData[{ @@ -9824,7 +9966,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -9846,8 +9990,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -9871,68 +10014,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918489685110855`*^9},ExpressionUUID->"b8791a07-33fe-8c4f-9c59-\ -dd23af9a4471"], + CellChangeTimes->{3.9918489685110855`*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 193, - 149, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299236609*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.4521938290642235`*^-214\\\", \ +RowBox[{\\\"1974042190923019415205737\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \\\"06995456000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 117, 37, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299236609*^9, 3.9942587711212597`*^9}, CellLabel-> "During evaluation of \ -In[193]:=",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], +In[117]:=",ExpressionUUID->"ba8511f5-f2ec-48fe-aca2-0f29bfc1eaf5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 193, - 150, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329923669897*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.0118324744392534`*^-219\\\", \ +RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 117, 38, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299236609*^9, 3.994258771131868*^9}, CellLabel-> "During evaluation of \ -In[193]:=",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], +In[117]:=",ExpressionUUID->"fc53be17-0f86-4459-9866-f7767f4e5911"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 193, 151, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299236779003`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.6505505630249927`*^-224\\\", \ +RowBox[{\\\"7066407765328259371913031\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"58\\\", \\\"\[RightSkeleton]\\\"}], \\\"82006784000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 117, 39, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299236609*^9, 3.99425877114182*^9}, CellLabel-> "During evaluation of \ -In[193]:=",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], +In[117]:=",ExpressionUUID->"8cd562e1-937c-4f27-a796-02a385b0a4b1"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 193, 152, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299236858997`*^9}, +during this calculation.\"", 2, 117, 40, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299236609*^9, 3.994258771153275*^9}, CellLabel-> "During evaluation of \ -In[193]:=",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], +In[117]:=",ExpressionUUID->"252c8d5a-cbe1-42d6-96e9-a18a85ab0ead"], -Cell[BoxData["7.439513700547696`"], "Output", - CellChangeTimes->{3.9913299274564743`*^9}, +Cell[BoxData["3.7660450470934137`"], "Output", + CellChangeTimes->{3.9913299274564743`*^9, 3.994258778948771*^9}, CellLabel-> - "Out[193]=",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] + "Out[117]=",ExpressionUUID->"e645b5da-20c1-43f6-a49e-c9d10c088921"] }, Open ]], Cell[CellGroupData[{ @@ -9990,92 +10137,93 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991848973885317*^9},ExpressionUUID->"3fe6e7f1-b44a-234f-af77-\ -3cf1fdaf28d9"], + CellChangeTimes->{3.991848973885317*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R -gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj -6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 -eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx -TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY -kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 -AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM -TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ -D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez -H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ -bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 -lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ -rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx -4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW -PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi -4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs -Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw -wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L -k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 -IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB -vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 -Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r -8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 -/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn -edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb -93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG -o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo -GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV -lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he -nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X -vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ -ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN -G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz -Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w -2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF -j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 -ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g -jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz -AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY -1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ -R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n -6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR -Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 -yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA -Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU -9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 -32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn -Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia -EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu -PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG -W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ -eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb -Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU -YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ -t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben -tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 -Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh -fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 -vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz -sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ -3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 -ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa -b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO -dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL -SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR -jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX -XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz -lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy -r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc -IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH -91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 -uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga -BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 -yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl -TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk4lN8XAHDZs2XJlrIrKtQMQnIPQyIkLUhJY+a1JLLkZym+LfStyJJv +qZQiWbLLXiIlRSHaSLZMzdjnVaTid/3xPvf5PPe+5znn3EWNHujM5OXh4fmO +v6Ux6I3euqqON+Y+34Mb6UVsZD5xz5BuVYCqpG2/LXkgwyhV0+oRqvnb4uqF +7cR4LShGfY7Kc7myDOzS8JgmAas21C/drMzEvtCs0BCT34nqTWkhBHZNR9Dt +P5R36I2yn4wPNqfn1cmIuo+o85Hpoi/2qhEN95+0z+icdIWRP/bOyZMmIW39 +aG71p5oA7Po/HNHw/EEk/On+v0HY70/LR1UGDCNtmnJWKPaEoBVnhjKC9rmg +5eHYgvHH3aizLGQrJVIXha0sdaslqO47OuwfXR2D7aj08/4EbQwZTXtd/Reb +uKMupys8gbJXvAtLwI7R2hV7tG0SPaiezEzB/ijfvTk0fxq1Jqp9uYXNOODn +eyWei/KKjcezsKfSee6WBZAobtsvm3xsYXVdyWnKD5R5JmygCjuV0WQjKfsT +ZWtTlZ9gq+a4xejP/kSbV13PacY23hg3caxuDg1Ue956j+1j1N/Gof1B0w19 +K+exZ8JP8Ius/YsM7g4X8xWz0T91omY6wguo9kTKVXHsNDB+4N22iPJaONvV +sRnZLVbB+ctgIf0cdRd2fvOVgdNKvNCU27HBHXvqm8fJ5Hhe2GfyPNAb++T6 +H+UlAXxwIS+n5x/s1GI1jUmKAOTP7TKrwu7pGKtfyBKACo8vyc+xVblVByRk +BeFm40pqN3aBgWOK7qwgvKBEuHKxn9VELvOvEwbT28r6lBI2+tHU1f+dJgYa +Ri9FG7Cl7cUko+rF4OpQXU039qZuKxA3EYcs87QGNrbf14o7m/UkoCJW/NPK +UjY6ztu2aZuYJKx4yDIIxB5RL5qO/SkFHWyDNIMy3B/i1fJ2qjQMR5R1O2Lz +PmCpKQRJw2CUvJ8vtipVxTl/VBrGKdcyMrAP0JLK3gzIQOpnH0PJcjZq9woO +kW+VheQmPTHeh2z0JefyJU9hOag0X/FBDXtsND8rz1oOSM/ueQtskdDhrq0N +crC7W9ThLLbVub0GnhXyYMPRWS1SwUa194x+5GYogkrSDEO7ko3ujcyHmYau +gR4LakZONRvt2Hf+S0jhGmhdyHvQjj32TGZ7IWsNHBu8ITCHbXBvo6yqmzK4 +m3Du2tbgftI9ygXMVaBHwOTkFDZ3cuB/38+qwrACo8q+jo1kjlk9LHdQh+Gr +aDuqZyPWPREfJz91mI2KWxaEXf25Q2k8Th3uFiKRLOyD9ofOrm1QB+NeIX7h +Jzi/DWHO1ykasP3Mt7R32AacnKloeU3YczzLJqaRjfZ6i+raDWqBSsREpdhz +NkJh+yguf7XAmXg/sx17fWzGFobiWuia1zx1Gpsni2oZvXstjLfP+M9iF35x +dylrXAtXRPa/ZDXj+7m/4PSqzHVwVbY7tKsF52fl8J5D14EIRcfUr21slLXn +Wu9stA7sTD6irP2ajS7TBwf4b+oA1buDexSb8c+JUeUuHUi5Ux85gy316BbP +Htp6+Lj7reDydnx+qBPr6zQ2QJHKqRXQyUZK6okxl75uhEaHn/0j79jo0cUZ +nV+8ujD0c+1Wk/e4H6RbN6GmC1G3m8fjsW8/09Sx9NAFgyQnN8MPbKTuXft2 +7oMuPPaKtr34EddbMKJFtOrBqH5tglUvG61RUiZU3TbBC8sdd+cH2GhjdqjY +b0QB16eRb/zH2YjOOPtD15ECahs85t5gp2mkfPE8SIGXkpYBmyfYiC+zuKQ5 +nAKK+cLms9g9tzl7U0opIGgffSxuCr+naZ63dDSosDY4WLScxPt7yV7PVdAA +BFcmmFvPs9HdYE2nijZDkCAtXByEOagjDG05l20C/emMPS/Wc5CaxzvHQ/7b +QF4nUEvAmYOYi5VFayIAFieu+ByN4iD50WoheboluDOixs4UclAo1exzynor +iO5Z5aQyyEH08T8tMhxrUBWr8jRWGEWFliFCGe02YBLvWv7HdRTdm/FrLEi1 +hYdFEQvCN0bRnIXC62cxO6Fqr6nHqZFR1MfDNz14xAEMDl05E2YwhgJWByad +1tgFFY9XeHmeGUNFvi0N/8U6wUvTIo5X7xiKJBVnN/juhsgi0c4Eyjj6Ybd9 +/4vDztBrkXwQ/htHJu7JFiO79wBtpLvIeH4cvVW85feMuhceB/xM7HSfQKvu +n32Uq70PnK/dCJF4OYGqB9bbO4rvh66MnGc/N08i5e4p77Dx/dC5RVbB7OYk +ov6XXJA14ALbRM7ShoSm0C1+Ui+lyRWsE4WPr0NTqNJCvye2xg1UOKopr6Km +UNqWi1J/8g9Asf7hS21VU6i9NzuOGu8Oq7lpH6Ymp1CFQ7rm8X8OQrKkeUXl +xmk0fWwPTwDjECiet/slxpxGP7br+EzQPMBUq+xxxs1plDv+aS7E6DAM68c9 +b343jVzvZnsdEvOEfds0PSpFuKi8bOdhvvOecJBudsTWkotMlN7+uvDLEw4l +AK96KBdpDHj3dPoeAfrm+6zGTC76Knp0V/rwEbCMoEafeMtFHZcdvWz20WFh +76LgzG8uSg3PED3RQQe55vzzNC0SPapf/OVl6wWddbJyLbYkWnEQzlNrvYA/ ++HXtjDeJVFe+aF/9yAuEKuhkgA+JNrU5KAjWe0HBtbKB79jOZu55Hxu9IGWH +6adeXxKlrg5rPfXSCyzaSFR/lESr+h6saPnoBb6Pz3SHBpJI00M+7eCsFzBT +izJyw0hk4jmRG2vAgHnPrWLrzpHo/vWpEEcjBtTfrlA8j72yi2sub8wAo6MT +gyzsCevZ7tytDEgK883MjiXx+8WzrM2SATkp64ZUzpNIYlbKTXo3A6TEp3cL +XSTR1wTD5RnHGBCU2XvrbiKJLted9K2+z4CperODy26Q6Bjlmkl4LgPGPSQo +jtj2eaXLjfMZoNMQ//QGtsg1Vl5VIQM8b/vIUG+SKDbYiVP5kAEa5+NDPNNJ +dFJH82jFUwbkJShrFd0mkd+1Vv+yLwxIdp8Rlc0ika0Eyyx4gAEnaIJabtja +sTzilCEGCL69OZuOzQo2LCwdYQBa0HupcY9ERxwzxkvGGNC0hW+NXjaJXAVC +AornGWA+ORZjmEMim5BVxwvkmOCjMDAn8YBETzPi7FIUmCDU2mC0C9usjasZ +vooJNlkhqonYm7RaP9GUmaDapz0rXkAixQ9RtF4tJhz71FQiVEiiUdM+ORFD +JnBn/mc/WkSiRN47j733MGGWZycruAzXry+W5rCPCdSQc/G52Ofcw4OpLkyo +Kz/e14cd/tBp3eIBJlznt4ixKcf5E8uSr9KZkBXa3yj3kETUV3TG8yAmfJal +mGVXkOhDspaoRhIT9rxu7jhdTaIiJO7zPZkJnWU7hvKwz43PPCu8guvhqcrt +xKbYPos2vsYEh0TaXtUavH88XlyH20zw+3xBqxZ7e+CdT+EFTNDL3l/QX0ui +NWv+NTIvYkJZh6EIXx2JZl4FXuErwe4tWb0WO3MtcrhczgTxVu/DR7H/9vU1 +ZNUy4UmvizsX+6G9Uu6bFiaUirnqcB+R6NI8r0DqKyZc7X7/RvIxiei5nCNu +bUyI4eZr62NL8tcqfW1nwrtxy19+2P51rom/3jPhkPVT8X5sjfVXwzRHmNBd +kslTU0+i+Q+nutgsJlzhZrHfYnfEMjcVf2dCq0x93Bh29KABx2SMCTtN9PuU +n5CoJ63r0C6SCWk6OfMx2ClCUtaRywh48UTlB7UB319un3soHwGXB7Yk7sT+ +1pcfHCBAgJ5l1Cs6ttlDqzv05QQco4VqJmGzPMN/20kRcG5lM5OFLWlvLW0t +Q4DlvTfCv7G3bpHWQbIEPBEasV/RSKIk8YL9VEUCPjXoVhthb63tL1VSI6C3 +omvVaWwiu6BFVoOAdL3J5ylL65Mi+ldoEbBBcFHqHjaLkBHn1yEg3Hoq/vnS +vIyNz9gmAtLyW8X5n5KodkEmhkUhwMbJrEEae4Q98N+AAQH7ey7JqGGbNkQ2 +dRsTsEm8Pt0M+6t/kfJjIEAqTt8kEFvCNcqwypKAs/9z4UZim9B22JdaEeDU +bm8fh31ZcSgiewcBduppQzexq/mLkzLs8PpTHOX72MOTUTnX7QmwWOT9U4xt +3Cz7LsGJAG1WTNpTbHrp0Oh5ZwK2bBh0acVOSC/mPbOXgGv7eau7sIeCbTeF +uRLwtz36wDC2uIeczfEDBLSd+pDOWYpnO3zI7yABFzs5MdNL/6ucuuThSQCj +x0x7YSkfEbtMVzoBtMCIcb4mHO+HXI0zA/fT13/PcmzxweF2e4KAXYMrD0hg +G7eVsLb74HwXgpbJYNOrTv0FPwJc5s7YymMnZNqt3OpPQJC8DUUJuzpBfoNh +AAGR5Y/rlJfih3+10D9OgKsBa0QNW4xR6qoTTMAvqYYSTewtu6IDNUIJsOq2 +W71uKb7pzrg1YbgfMnHaOtjxWgq35MMJuBEW9G49dqXkSLlUJAEXKsU0NmIP +/i59JXqSgLEbLlK6S/G/RQ8KRBNQ/3v3nSUbvd05txhDwHzD7/Yl/x8owh8I "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, @@ -10090,105 +10238,106 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R -gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj -6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 -eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx -TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY -kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 -AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM -TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ -D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez -H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ -bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 -lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ -rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx -4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW -PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi -4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs -Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw -wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L -k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 -IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB -vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 -Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r -8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 -/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn -edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb -93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG -o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo -GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV -lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he -nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X -vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ -ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN -G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz -Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w -2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF -j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 -ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g -jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz -AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY -1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ -R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n -6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR -Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 -yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA -Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU -9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 -32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn -Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia -EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu -PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG -W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ -eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb -Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU -YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ -t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben -tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 -Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh -fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 -vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz -sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ -3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 -ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa -b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO -dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL -SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR -jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX -XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz -lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy -r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc -IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH -91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 -uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga -BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 -yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl -TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== +1:eJwV1Hk4lN8XAHDZs2XJlrIrKtQMQnIPQyIkLUhJY+a1JLLkZym+LfStyJJv +qZQiWbLLXiIlRSHaSLZMzdjnVaTid/3xPvf5PPe+5znn3EWNHujM5OXh4fmO +v6Ux6I3euqqON+Y+34Mb6UVsZD5xz5BuVYCqpG2/LXkgwyhV0+oRqvnb4uqF +7cR4LShGfY7Kc7myDOzS8JgmAas21C/drMzEvtCs0BCT34nqTWkhBHZNR9Dt +P5R36I2yn4wPNqfn1cmIuo+o85Hpoi/2qhEN95+0z+icdIWRP/bOyZMmIW39 +aG71p5oA7Po/HNHw/EEk/On+v0HY70/LR1UGDCNtmnJWKPaEoBVnhjKC9rmg +5eHYgvHH3aizLGQrJVIXha0sdaslqO47OuwfXR2D7aj08/4EbQwZTXtd/Reb +uKMupys8gbJXvAtLwI7R2hV7tG0SPaiezEzB/ijfvTk0fxq1Jqp9uYXNOODn +eyWei/KKjcezsKfSee6WBZAobtsvm3xsYXVdyWnKD5R5JmygCjuV0WQjKfsT +ZWtTlZ9gq+a4xejP/kSbV13PacY23hg3caxuDg1Ue956j+1j1N/Gof1B0w19 +K+exZ8JP8Ius/YsM7g4X8xWz0T91omY6wguo9kTKVXHsNDB+4N22iPJaONvV +sRnZLVbB+ctgIf0cdRd2fvOVgdNKvNCU27HBHXvqm8fJ5Hhe2GfyPNAb++T6 +H+UlAXxwIS+n5x/s1GI1jUmKAOTP7TKrwu7pGKtfyBKACo8vyc+xVblVByRk +BeFm40pqN3aBgWOK7qwgvKBEuHKxn9VELvOvEwbT28r6lBI2+tHU1f+dJgYa +Ri9FG7Cl7cUko+rF4OpQXU039qZuKxA3EYcs87QGNrbf14o7m/UkoCJW/NPK +UjY6ztu2aZuYJKx4yDIIxB5RL5qO/SkFHWyDNIMy3B/i1fJ2qjQMR5R1O2Lz +PmCpKQRJw2CUvJ8vtipVxTl/VBrGKdcyMrAP0JLK3gzIQOpnH0PJcjZq9woO +kW+VheQmPTHeh2z0JefyJU9hOag0X/FBDXtsND8rz1oOSM/ueQtskdDhrq0N +crC7W9ThLLbVub0GnhXyYMPRWS1SwUa194x+5GYogkrSDEO7ko3ujcyHmYau +gR4LakZONRvt2Hf+S0jhGmhdyHvQjj32TGZ7IWsNHBu8ITCHbXBvo6yqmzK4 +m3Du2tbgftI9ygXMVaBHwOTkFDZ3cuB/38+qwrACo8q+jo1kjlk9LHdQh+Gr +aDuqZyPWPREfJz91mI2KWxaEXf25Q2k8Th3uFiKRLOyD9ofOrm1QB+NeIX7h +Jzi/DWHO1ykasP3Mt7R32AacnKloeU3YczzLJqaRjfZ6i+raDWqBSsREpdhz +NkJh+yguf7XAmXg/sx17fWzGFobiWuia1zx1Gpsni2oZvXstjLfP+M9iF35x +dylrXAtXRPa/ZDXj+7m/4PSqzHVwVbY7tKsF52fl8J5D14EIRcfUr21slLXn +Wu9stA7sTD6irP2ajS7TBwf4b+oA1buDexSb8c+JUeUuHUi5Ux85gy316BbP +Htp6+Lj7reDydnx+qBPr6zQ2QJHKqRXQyUZK6okxl75uhEaHn/0j79jo0cUZ +nV+8ujD0c+1Wk/e4H6RbN6GmC1G3m8fjsW8/09Sx9NAFgyQnN8MPbKTuXft2 +7oMuPPaKtr34EddbMKJFtOrBqH5tglUvG61RUiZU3TbBC8sdd+cH2GhjdqjY +b0QB16eRb/zH2YjOOPtD15ECahs85t5gp2mkfPE8SIGXkpYBmyfYiC+zuKQ5 +nAKK+cLms9g9tzl7U0opIGgffSxuCr+naZ63dDSosDY4WLScxPt7yV7PVdAA +BFcmmFvPs9HdYE2nijZDkCAtXByEOagjDG05l20C/emMPS/Wc5CaxzvHQ/7b +QF4nUEvAmYOYi5VFayIAFieu+ByN4iD50WoheboluDOixs4UclAo1exzynor +iO5Z5aQyyEH08T8tMhxrUBWr8jRWGEWFliFCGe02YBLvWv7HdRTdm/FrLEi1 +hYdFEQvCN0bRnIXC62cxO6Fqr6nHqZFR1MfDNz14xAEMDl05E2YwhgJWByad +1tgFFY9XeHmeGUNFvi0N/8U6wUvTIo5X7xiKJBVnN/juhsgi0c4Eyjj6Ybd9 +/4vDztBrkXwQ/htHJu7JFiO79wBtpLvIeH4cvVW85feMuhceB/xM7HSfQKvu +n32Uq70PnK/dCJF4OYGqB9bbO4rvh66MnGc/N08i5e4p77Dx/dC5RVbB7OYk +ov6XXJA14ALbRM7ShoSm0C1+Ui+lyRWsE4WPr0NTqNJCvye2xg1UOKopr6Km +UNqWi1J/8g9Asf7hS21VU6i9NzuOGu8Oq7lpH6Ymp1CFQ7rm8X8OQrKkeUXl +xmk0fWwPTwDjECiet/slxpxGP7br+EzQPMBUq+xxxs1plDv+aS7E6DAM68c9 +b343jVzvZnsdEvOEfds0PSpFuKi8bOdhvvOecJBudsTWkotMlN7+uvDLEw4l +AK96KBdpDHj3dPoeAfrm+6zGTC76Knp0V/rwEbCMoEafeMtFHZcdvWz20WFh +76LgzG8uSg3PED3RQQe55vzzNC0SPapf/OVl6wWddbJyLbYkWnEQzlNrvYA/ ++HXtjDeJVFe+aF/9yAuEKuhkgA+JNrU5KAjWe0HBtbKB79jOZu55Hxu9IGWH +6adeXxKlrg5rPfXSCyzaSFR/lESr+h6saPnoBb6Pz3SHBpJI00M+7eCsFzBT +izJyw0hk4jmRG2vAgHnPrWLrzpHo/vWpEEcjBtTfrlA8j72yi2sub8wAo6MT +gyzsCevZ7tytDEgK883MjiXx+8WzrM2SATkp64ZUzpNIYlbKTXo3A6TEp3cL +XSTR1wTD5RnHGBCU2XvrbiKJLted9K2+z4CperODy26Q6Bjlmkl4LgPGPSQo +jtj2eaXLjfMZoNMQ//QGtsg1Vl5VIQM8b/vIUG+SKDbYiVP5kAEa5+NDPNNJ +dFJH82jFUwbkJShrFd0mkd+1Vv+yLwxIdp8Rlc0ika0Eyyx4gAEnaIJabtja +sTzilCEGCL69OZuOzQo2LCwdYQBa0HupcY9ERxwzxkvGGNC0hW+NXjaJXAVC +AornGWA+ORZjmEMim5BVxwvkmOCjMDAn8YBETzPi7FIUmCDU2mC0C9usjasZ +vooJNlkhqonYm7RaP9GUmaDapz0rXkAixQ9RtF4tJhz71FQiVEiiUdM+ORFD +JnBn/mc/WkSiRN47j733MGGWZycruAzXry+W5rCPCdSQc/G52Ofcw4OpLkyo +Kz/e14cd/tBp3eIBJlznt4ixKcf5E8uSr9KZkBXa3yj3kETUV3TG8yAmfJal +mGVXkOhDspaoRhIT9rxu7jhdTaIiJO7zPZkJnWU7hvKwz43PPCu8guvhqcrt +xKbYPos2vsYEh0TaXtUavH88XlyH20zw+3xBqxZ7e+CdT+EFTNDL3l/QX0ui +NWv+NTIvYkJZh6EIXx2JZl4FXuErwe4tWb0WO3MtcrhczgTxVu/DR7H/9vU1 +ZNUy4UmvizsX+6G9Uu6bFiaUirnqcB+R6NI8r0DqKyZc7X7/RvIxiei5nCNu +bUyI4eZr62NL8tcqfW1nwrtxy19+2P51rom/3jPhkPVT8X5sjfVXwzRHmNBd +kslTU0+i+Q+nutgsJlzhZrHfYnfEMjcVf2dCq0x93Bh29KABx2SMCTtN9PuU +n5CoJ63r0C6SCWk6OfMx2ClCUtaRywh48UTlB7UB319un3soHwGXB7Yk7sT+ +1pcfHCBAgJ5l1Cs6ttlDqzv05QQco4VqJmGzPMN/20kRcG5lM5OFLWlvLW0t +Q4DlvTfCv7G3bpHWQbIEPBEasV/RSKIk8YL9VEUCPjXoVhthb63tL1VSI6C3 +omvVaWwiu6BFVoOAdL3J5ylL65Mi+ldoEbBBcFHqHjaLkBHn1yEg3Hoq/vnS +vIyNz9gmAtLyW8X5n5KodkEmhkUhwMbJrEEae4Q98N+AAQH7ey7JqGGbNkQ2 +dRsTsEm8Pt0M+6t/kfJjIEAqTt8kEFvCNcqwypKAs/9z4UZim9B22JdaEeDU +bm8fh31ZcSgiewcBduppQzexq/mLkzLs8PpTHOX72MOTUTnX7QmwWOT9U4xt +3Cz7LsGJAG1WTNpTbHrp0Oh5ZwK2bBh0acVOSC/mPbOXgGv7eau7sIeCbTeF +uRLwtz36wDC2uIeczfEDBLSd+pDOWYpnO3zI7yABFzs5MdNL/6ucuuThSQCj +x0x7YSkfEbtMVzoBtMCIcb4mHO+HXI0zA/fT13/PcmzxweF2e4KAXYMrD0hg +G7eVsLb74HwXgpbJYNOrTv0FPwJc5s7YymMnZNqt3OpPQJC8DUUJuzpBfoNh +AAGR5Y/rlJfih3+10D9OgKsBa0QNW4xR6qoTTMAvqYYSTewtu6IDNUIJsOq2 +W71uKb7pzrg1YbgfMnHaOtjxWgq35MMJuBEW9G49dqXkSLlUJAEXKsU0NmIP +/i59JXqSgLEbLlK6S/G/RQ8KRBNQ/3v3nSUbvd05txhDwHzD7/Yl/x8owh8I "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5311368545847401, - 1.7610246145622632`}}, + "PlotRange" -> {{0, 180}, {0.8025373247430823, + 1.2351511120178302`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5311368545847414}, + "AxesOrigin" -> {0, 0.802537324743084}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -10200,21 +10349,21 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5311368545847401, - 1.7610246145622632`}}, + "PlotRange" -> {{0, 180}, {0.8025373247430823, + 1.2351511120178302`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5311368545847414}, + "AxesOrigin" -> {0, 0.802537324743084}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10228,103 +10377,104 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R -gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj -6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 -eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx -TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY -kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 -AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM -TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ -D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez -H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ -bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 -lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ -rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx -4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW -PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi -4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs -Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw -wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L -k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 -IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB -vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 -Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r -8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 -/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn -edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb -93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG -o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo -GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV -lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he -nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X -vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ -ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN -G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz -Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w -2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF -j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 -ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g -jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz -AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY -1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ -R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n -6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR -Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 -yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA -Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU -9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 -32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn -Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia -EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu -PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG -W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ -eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb -Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU -YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ -t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben -tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 -Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh -fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 -vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz -sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ -3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 -ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa -b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO -dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL -SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR -jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX -XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz -lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy -r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc -IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH -91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 -uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga -BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 -yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl -TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== +1:eJwV1Hk4lN8XAHDZs2XJlrIrKtQMQnIPQyIkLUhJY+a1JLLkZym+LfStyJJv +qZQiWbLLXiIlRSHaSLZMzdjnVaTid/3xPvf5PPe+5znn3EWNHujM5OXh4fmO +v6Ux6I3euqqON+Y+34Mb6UVsZD5xz5BuVYCqpG2/LXkgwyhV0+oRqvnb4uqF +7cR4LShGfY7Kc7myDOzS8JgmAas21C/drMzEvtCs0BCT34nqTWkhBHZNR9Dt +P5R36I2yn4wPNqfn1cmIuo+o85Hpoi/2qhEN95+0z+icdIWRP/bOyZMmIW39 +aG71p5oA7Po/HNHw/EEk/On+v0HY70/LR1UGDCNtmnJWKPaEoBVnhjKC9rmg +5eHYgvHH3aizLGQrJVIXha0sdaslqO47OuwfXR2D7aj08/4EbQwZTXtd/Reb +uKMupys8gbJXvAtLwI7R2hV7tG0SPaiezEzB/ijfvTk0fxq1Jqp9uYXNOODn +eyWei/KKjcezsKfSee6WBZAobtsvm3xsYXVdyWnKD5R5JmygCjuV0WQjKfsT +ZWtTlZ9gq+a4xejP/kSbV13PacY23hg3caxuDg1Ue956j+1j1N/Gof1B0w19 +K+exZ8JP8Ius/YsM7g4X8xWz0T91omY6wguo9kTKVXHsNDB+4N22iPJaONvV +sRnZLVbB+ctgIf0cdRd2fvOVgdNKvNCU27HBHXvqm8fJ5Hhe2GfyPNAb++T6 +H+UlAXxwIS+n5x/s1GI1jUmKAOTP7TKrwu7pGKtfyBKACo8vyc+xVblVByRk +BeFm40pqN3aBgWOK7qwgvKBEuHKxn9VELvOvEwbT28r6lBI2+tHU1f+dJgYa +Ri9FG7Cl7cUko+rF4OpQXU039qZuKxA3EYcs87QGNrbf14o7m/UkoCJW/NPK +UjY6ztu2aZuYJKx4yDIIxB5RL5qO/SkFHWyDNIMy3B/i1fJ2qjQMR5R1O2Lz +PmCpKQRJw2CUvJ8vtipVxTl/VBrGKdcyMrAP0JLK3gzIQOpnH0PJcjZq9woO +kW+VheQmPTHeh2z0JefyJU9hOag0X/FBDXtsND8rz1oOSM/ueQtskdDhrq0N +crC7W9ThLLbVub0GnhXyYMPRWS1SwUa194x+5GYogkrSDEO7ko3ujcyHmYau +gR4LakZONRvt2Hf+S0jhGmhdyHvQjj32TGZ7IWsNHBu8ITCHbXBvo6yqmzK4 +m3Du2tbgftI9ygXMVaBHwOTkFDZ3cuB/38+qwrACo8q+jo1kjlk9LHdQh+Gr +aDuqZyPWPREfJz91mI2KWxaEXf25Q2k8Th3uFiKRLOyD9ofOrm1QB+NeIX7h +Jzi/DWHO1ykasP3Mt7R32AacnKloeU3YczzLJqaRjfZ6i+raDWqBSsREpdhz +NkJh+yguf7XAmXg/sx17fWzGFobiWuia1zx1Gpsni2oZvXstjLfP+M9iF35x +dylrXAtXRPa/ZDXj+7m/4PSqzHVwVbY7tKsF52fl8J5D14EIRcfUr21slLXn +Wu9stA7sTD6irP2ajS7TBwf4b+oA1buDexSb8c+JUeUuHUi5Ux85gy316BbP +Htp6+Lj7reDydnx+qBPr6zQ2QJHKqRXQyUZK6okxl75uhEaHn/0j79jo0cUZ +nV+8ujD0c+1Wk/e4H6RbN6GmC1G3m8fjsW8/09Sx9NAFgyQnN8MPbKTuXft2 +7oMuPPaKtr34EddbMKJFtOrBqH5tglUvG61RUiZU3TbBC8sdd+cH2GhjdqjY +b0QB16eRb/zH2YjOOPtD15ECahs85t5gp2mkfPE8SIGXkpYBmyfYiC+zuKQ5 +nAKK+cLms9g9tzl7U0opIGgffSxuCr+naZ63dDSosDY4WLScxPt7yV7PVdAA +BFcmmFvPs9HdYE2nijZDkCAtXByEOagjDG05l20C/emMPS/Wc5CaxzvHQ/7b +QF4nUEvAmYOYi5VFayIAFieu+ByN4iD50WoheboluDOixs4UclAo1exzynor +iO5Z5aQyyEH08T8tMhxrUBWr8jRWGEWFliFCGe02YBLvWv7HdRTdm/FrLEi1 +hYdFEQvCN0bRnIXC62cxO6Fqr6nHqZFR1MfDNz14xAEMDl05E2YwhgJWByad +1tgFFY9XeHmeGUNFvi0N/8U6wUvTIo5X7xiKJBVnN/juhsgi0c4Eyjj6Ybd9 +/4vDztBrkXwQ/htHJu7JFiO79wBtpLvIeH4cvVW85feMuhceB/xM7HSfQKvu +n32Uq70PnK/dCJF4OYGqB9bbO4rvh66MnGc/N08i5e4p77Dx/dC5RVbB7OYk +ov6XXJA14ALbRM7ShoSm0C1+Ui+lyRWsE4WPr0NTqNJCvye2xg1UOKopr6Km +UNqWi1J/8g9Asf7hS21VU6i9NzuOGu8Oq7lpH6Ymp1CFQ7rm8X8OQrKkeUXl +xmk0fWwPTwDjECiet/slxpxGP7br+EzQPMBUq+xxxs1plDv+aS7E6DAM68c9 +b343jVzvZnsdEvOEfds0PSpFuKi8bOdhvvOecJBudsTWkotMlN7+uvDLEw4l +AK96KBdpDHj3dPoeAfrm+6zGTC76Knp0V/rwEbCMoEafeMtFHZcdvWz20WFh +76LgzG8uSg3PED3RQQe55vzzNC0SPapf/OVl6wWddbJyLbYkWnEQzlNrvYA/ ++HXtjDeJVFe+aF/9yAuEKuhkgA+JNrU5KAjWe0HBtbKB79jOZu55Hxu9IGWH +6adeXxKlrg5rPfXSCyzaSFR/lESr+h6saPnoBb6Pz3SHBpJI00M+7eCsFzBT +izJyw0hk4jmRG2vAgHnPrWLrzpHo/vWpEEcjBtTfrlA8j72yi2sub8wAo6MT +gyzsCevZ7tytDEgK883MjiXx+8WzrM2SATkp64ZUzpNIYlbKTXo3A6TEp3cL +XSTR1wTD5RnHGBCU2XvrbiKJLted9K2+z4CperODy26Q6Bjlmkl4LgPGPSQo +jtj2eaXLjfMZoNMQ//QGtsg1Vl5VIQM8b/vIUG+SKDbYiVP5kAEa5+NDPNNJ +dFJH82jFUwbkJShrFd0mkd+1Vv+yLwxIdp8Rlc0ika0Eyyx4gAEnaIJabtja +sTzilCEGCL69OZuOzQo2LCwdYQBa0HupcY9ERxwzxkvGGNC0hW+NXjaJXAVC +AornGWA+ORZjmEMim5BVxwvkmOCjMDAn8YBETzPi7FIUmCDU2mC0C9usjasZ +vooJNlkhqonYm7RaP9GUmaDapz0rXkAixQ9RtF4tJhz71FQiVEiiUdM+ORFD +JnBn/mc/WkSiRN47j733MGGWZycruAzXry+W5rCPCdSQc/G52Ofcw4OpLkyo +Kz/e14cd/tBp3eIBJlznt4ixKcf5E8uSr9KZkBXa3yj3kETUV3TG8yAmfJal +mGVXkOhDspaoRhIT9rxu7jhdTaIiJO7zPZkJnWU7hvKwz43PPCu8guvhqcrt +xKbYPos2vsYEh0TaXtUavH88XlyH20zw+3xBqxZ7e+CdT+EFTNDL3l/QX0ui +NWv+NTIvYkJZh6EIXx2JZl4FXuErwe4tWb0WO3MtcrhczgTxVu/DR7H/9vU1 +ZNUy4UmvizsX+6G9Uu6bFiaUirnqcB+R6NI8r0DqKyZc7X7/RvIxiei5nCNu +bUyI4eZr62NL8tcqfW1nwrtxy19+2P51rom/3jPhkPVT8X5sjfVXwzRHmNBd +kslTU0+i+Q+nutgsJlzhZrHfYnfEMjcVf2dCq0x93Bh29KABx2SMCTtN9PuU +n5CoJ63r0C6SCWk6OfMx2ClCUtaRywh48UTlB7UB319un3soHwGXB7Yk7sT+ +1pcfHCBAgJ5l1Cs6ttlDqzv05QQco4VqJmGzPMN/20kRcG5lM5OFLWlvLW0t +Q4DlvTfCv7G3bpHWQbIEPBEasV/RSKIk8YL9VEUCPjXoVhthb63tL1VSI6C3 +omvVaWwiu6BFVoOAdL3J5ylL65Mi+ldoEbBBcFHqHjaLkBHn1yEg3Hoq/vnS +vIyNz9gmAtLyW8X5n5KodkEmhkUhwMbJrEEae4Q98N+AAQH7ey7JqGGbNkQ2 +dRsTsEm8Pt0M+6t/kfJjIEAqTt8kEFvCNcqwypKAs/9z4UZim9B22JdaEeDU +bm8fh31ZcSgiewcBduppQzexq/mLkzLs8PpTHOX72MOTUTnX7QmwWOT9U4xt +3Cz7LsGJAG1WTNpTbHrp0Oh5ZwK2bBh0acVOSC/mPbOXgGv7eau7sIeCbTeF +uRLwtz36wDC2uIeczfEDBLSd+pDOWYpnO3zI7yABFzs5MdNL/6ucuuThSQCj +x0x7YSkfEbtMVzoBtMCIcb4mHO+HXI0zA/fT13/PcmzxweF2e4KAXYMrD0hg +G7eVsLb74HwXgpbJYNOrTv0FPwJc5s7YymMnZNqt3OpPQJC8DUUJuzpBfoNh +AAGR5Y/rlJfih3+10D9OgKsBa0QNW4xR6qoTTMAvqYYSTewtu6IDNUIJsOq2 +W71uKb7pzrg1YbgfMnHaOtjxWgq35MMJuBEW9G49dqXkSLlUJAEXKsU0NmIP +/i59JXqSgLEbLlK6S/G/RQ8KRBNQ/3v3nSUbvd05txhDwHzD7/Yl/x8owh8I "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + "PlotRange" -> {{0, 180}, {0.8025373247430823, 1.2351511120178302`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5311368545847414}, + "AxesOrigin" -> {0, 0.802537324743084}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10334,7 +10484,8 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5311368545847414}, + AxesOrigin->{0, 0.802537324743084}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -10362,7 +10513,8 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.8025373247430823, 1.2351511120178302`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -10370,9 +10522,9 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913301734961166`*^9}, + CellChangeTimes->{3.9913301734961166`*^9, 3.994259365499508*^9}, CellLabel-> - "Out[194]=",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] + "Out[118]=",ExpressionUUID->"152b25ef-25c6-4d4f-be52-b5c396c8d124"] }, Open ]], Cell[CellGroupData[{ @@ -10387,7 +10539,9 @@ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -10409,8 +10563,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -10435,213 +10588,178 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.991848978152012*^9, - 3.99184898469532*^9}},ExpressionUUID->"ab29778f-f183-804b-b871-\ -4070462057d7"], + CellChangeTimes->{{3.991848978152012*^9, 3.99184898469532*^9}}, + CellLabel-> + "In[119]:=",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.47138536392029`*^-264\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 195, - 153, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913301737143345`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.743319689847927`*^-265\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 41, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913301737143345`*^9, 3.994259365701519*^9}, CellLabel-> "During evaluation of \ -In[195]:=",ExpressionUUID->"abf9cb8a-fbbf-7a43-abcd-82efb32ab217"], +In[119]:=",ExpressionUUID->"2eeb6c50-32fe-42f8-9cf0-5131c6d7cae0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.656148098260251`*^-275\\\", \ + "\"\\!\\(\\*FractionBox[\\\"5.371957382135943`*^-277\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 42, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913301737143345`*^9, 3.994259365711561*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"5692cff9-e459-460f-a382-44295ac486fe"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6553433247806773`*^-288\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 195, 154, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991330173723337*^9}, + 119, 43, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913301737143345`*^9, 3.994259365721238*^9}, CellLabel-> "During evaluation of \ -In[195]:=",ExpressionUUID->"8fcd13e3-81e0-3446-8882-6e42ca5c0bd1"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.85074473590452`*^-286\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 195, 155, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991330173731432*^9}, - CellLabel-> - "During evaluation of \ -In[195]:=",ExpressionUUID->"2c23ed60-41ee-5841-90ce-1d26cb02619d"], +In[119]:=",ExpressionUUID->"11e9df55-6b56-4a4f-9970-e9944c56ec7d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 195, 156, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991330173739336*^9}, +during this calculation.\"", 2, 119, 44, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913301737143345`*^9, 3.994259365732833*^9}, CellLabel-> "During evaluation of \ -In[195]:=",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], +In[119]:=",ExpressionUUID->"5c068370-f696-4b6c-957a-a1e032e0ecf6"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR -klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW -lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv -TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc -73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw -RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X -gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 -Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI -PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy -W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx -SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 -V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY -9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw -N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM -vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz -tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 -GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT -0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA -udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF -4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y -Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a -eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl -p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN -TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC -SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw -e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu -HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn -Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l -RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X -udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 -DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM -JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC -PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC -eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn -wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY -XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK -jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb -0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 -GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 -fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN -PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T -MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt -LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH -TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY -565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U -PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F -yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx -3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP -19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 -9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp -zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 -VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP -Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio -aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX -UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo -Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p -ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP -DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo -pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg -5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg -2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW -9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr -BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm -QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF -m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i -o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v -Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH -IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw -kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j -lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO -UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 -w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI -bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc -A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa -l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA -2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug -gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN -VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv -5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l -9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv -r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H -I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp -s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx -NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c -ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc -iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z -pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz -oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv -HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd -Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR -/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI -LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC -eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R -EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM -IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d -JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp -CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe -n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ -QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX -4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM -J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx -baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X -/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby -clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ -SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg -dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs -YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa -LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva -gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i -1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N -ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz -7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ -f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa -wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom -XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ -e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk -XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM -TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD -i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 -LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM -kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj -qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B -uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF -nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 -dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ -kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q -8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 -FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR -CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW -io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU -qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X -B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ -0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r -W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ -zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs -HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB -IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg -FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE -fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC -cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh -DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 -RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d -z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM -rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH -L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8lt0bAHAZmdl7PMuoZO8Hj+tCZCVJskIiaVASIhlFRsloeDUIkf2M +EhIipWhSSb9UaLySeI0k9Lv76/58P+c559znc1/nuq6HGhThHsLNxcVltoKL +6+9zbujhPbWsMquZyuemBWvXW/VfkT9iPZACjqVf1nQdowHKPA2SH8iDJ4cO +Hyk8ZgDRblWveQZKoPDl96Gjx2xAYkIu79drNlQm3Fm58Zg7vG9xjZh53QE+ +X5T+YyYEgb3a2Lup1y/Auv5xlHt8JPx6bXpu8vUwaGs6bB09mAKdthVlz0um +oWO3cdSESD4ov2/6HKS1BDeXQ/cH/HsRpPcFVPHb8qD04Hz4GpkSyNO3v+26 +VQDDfSe3ykE5vCnQa58SX4Wu6TPD3x5UQlZZ4lNuBQmsDWj+clKrFpyMwiRl +VCXwfWVLy7BZLQjcc9+6WlsCBUSvDRjb1cKJEfW3ztYS+BD/fXtvey0cpfV+ +Phsmge18ds9Ss2shvFh+WaNZAoucrsTnTtTC5kssLWdfSRxLSxlrv14HcmdH +MvIvS2FdUNu3DG4myK+7eWK+XAr35i6uDeBngmJHWuJ2phQOvg17rSfCBNLk +2sOrO6XQsTE24aEME9RdDgTe/iqFX9lan5+uYYIh75LJiKE07rkeXKPnyoRN +UbKjBo+ksWnH9WCr80xwE/46dKFPGmeCFROKC5ngXtL0ZvF/0vhd1W9m+QoT +PJ/5Pb3/g5h/rnCJWcGE7VqlzT4yMnilxz/i30Ym7B3VzU0JlMHD9zVjqgeZ +cNLD0erFnAx+lk8/d1CJBYo3nihyr5BF0fCRcA6ZBXVSHj/1hWURn2fOTaqy +4NULf2YuWRbrVULFArRYoLY5irbZQRa7M339+Rks6NhYtPLZP7JocdhKN307 +C5bsZ588tpRDz5k7Yw4XWZBTHle9ZC+H5109BLmKiPkrudK1N8th7PHPT9gl +LHDpErI+HSKHX35lugpXsaDQlsJxyZbD7KZVKumNLDBD5ws97+VQhTv1M7Of +BYfoVwMepsjjpqVv3G2CbHAqFp1xPiWPl23/U7gpwgYa/9H0J+fkUW6IuatC +jA3P+j1Zfdflsaez5mqSDBt0DojwDD2RRz0OFPNR2fC1PKb8P0UFVA8Wf+Nt +ygY/adfvShwFfD6Za6+1gw2G8beTr7QoIP+HfZ6VO9kgNLxGlnpfAS+Kka/S +drGhqZ4HNN4ooODIiq+Ce9kg69yUo/dHAZfU+m2qo4j9k9WM7JwVcTxyaxj9 +JBvW/1iICx9RRD3y66LUSjYccTireXdcEcsfycYmVbOh7qr2oNScIq76mNgc +U8sGeY9AepOAEqbwuST6stgw3tj1k0dHCW+PHZGab2RDfkpO1D+xSki6YdiW ++oAN3W/Xqo0nK6FxpXDYhodsWDTq7LPKUkKG0PHjfD1s2PVl1mD0shIuXJQS +iXnCBnMX3ymdTiXk5t8cq/uSDcMyGuH3VinjZGmo+txHNshFtKnIySljhKOX +eOIIG1y6vR6HUZTRMjbyEO8nNjTEZWmJGSojg39dGe9XNmS+nxzz9lJG0QvK +rYPf2WBQeTv0R4ky9l396jQ0z4ZQ7q1yNjXKSAlP+KmzwIZLvhP3z95URomi +F2pHf7NhpShVw7xbGZ994ecVWWbDYGTa6InvypjF83Z0BQ8Hki0371A0U8GZ +Gp+b9iIccPC/8p+pjQoyNrSFx6zigGjSt+NbXVRQL7xApkyUA5c6U8tzAlXw +ovEXnSlxDjQ6NX9bmaGCrm0L5T4yHEjcx5+glq+CfvTl4T2yHLDP9hC1uayC +1y3kpGLkOND/fEIvgaWCsX+m3Y8rcGDSSzV6+o0K3ojJDNurwoFbcQf4JUZV +8HJTkL8viQPHLt0p0JlQwfZjG1w3kDkg8mHb7TBuEh6w6qFJUTmwOvQU1wdN +Eua3yjTGqXFgIv1N7pIRCSd5S684qXPgRpWGqhKQ8Mfa9JOyGhywmWi389xC +wspw+eCS1RzwPzyb2RtPrJf4OChTkwPqF2yUx1JJOL/+dLT5Og4RH2dq+XNI +uHnJ5uxnwnGLa5/ZlJGQlhIzZaDNgXPH/WWaekl4a+UV10u6HPC7Vl3+6hUx +XnX5sRZxKWgP5k1nPpAwZnuKfxNhplC+j+4sCUUMhJrv63OgN/dB0TUVMh5x +6YxiG3IgnyOt37majBWH84pUjTjg83JHxwd9Mi4qp47mEP4qvziqZE/Gagfh +uwHGHKg3d4ymu5HxB/cdn7uEo/3O82/zIePua08kySYc4CnW08wLJ6Otre/w +E8KP7ibcro8lY67Q8m+KKQdyRh65PE4ho4qbm1kEYdLqkAiBC2SU/x2gwmXG +gU8ObC6Nq8T611y7bQjX7PmTa1tNxpVemwqTCZvX/XPjWBsZi2zmbk0TXv/6 +ydJENxk3DRbeVKVzwJWLd0PACzL6lGRsdyPstZae8/QtGb+V1zCPEN7pHv4G +PpHxZ99EfRHh8PhSGnOCjGkzFn4dhGPLBvZS5smowU5q+Ej47uc0n24uChqc +rWpbImwfT01M4qMg/U9FrKw5B3rEWkrNhCi4yWj38DrCbmWe3ZOiFIx0e7vE +IPzKbGr8uhQF3zj/1+NC2PdxlsQOeQp6/rqy0Yvwhx0aJgoqFKzg6z8eSHjX +XLvPcyrx+7kTESGEv2X6JmZoULBgXblEKOED5LlS63UUTB/U2vt3fJaT0/1L +l4I1EmIJf+fHOaz7zjKi4NWbtg5/1+d61yWxh05B2eSOx3/3Tz0YaEKzoqA4 +7wlRK8JCK3/7DNpQ0L40WViLcE7hucS8DRSMvnCz6+/5ZHT1ypxcKNg5rmi1 +TJy/sPNRN/dmCvKl1B4eJkz2CvnevJWCVIE9+zsJl43/kTjkQ8EdK1w1rhLW +TC40WRdAzG/fdjWecL2Mse/ITgoGhaW9dydsVPU08eJuCrK+v/moQbjZak/Z +lv0UHBbdUvmT+L73Qou+d0ZTcLvBnawzhB0X6ZJH4ylY1cy57kn4SU6/iVES +BfPHBrMVCb9pEkwqy6DgarGnzQVEfPm7lpX5ZVPw39EK7i2ER4etHkrnU1BR +9aGcEOEJ4SjJ1EvE+YGvLpyI10PFoqaMqxQcsTXQVyY8b1TpO3uNgi8We1Lv +E/HO4z9UFlJPwbSAyAoJwvJMB1P7Dgreb/jxbzJxny6vH/Fdvk/BjjsfZWQJ +094kJDX0UHCAt06pwoAD2tychxovKZiXqNjURtxHGw8VP/6vFHyss9m7h7jP +D77eSmobp+DFWZVIe8IuCe7XYqYoKFYdtL9VhwPbyk9OfFmg4IlbTLFrRD7Y +Nz+V1L2KiqM9ErSNRL4wP7hL9rMkFfvlTgiXEPlFYGywmkeeisLTWzyn13Lg +2tvOV1Y0KlrlNspkreHAUOs5rZsmVCT5Je88Q+SvGlOhjhcWVLyo15X4gMhv +ccxj2yaRilzqAwKLqhyQLQlNWedMxSIfk1AfGgc2pdIHrgZQcWrhbMI4kT9J +y7X724Kp2LdWZK0A4fFoGs+7MCq6n+faSCHybfpuYR35KCqWtTjy2itxoN35 +3fHsdCoWLH/zDiXytYFksm48i4op//RNcosR8Zs1e6+ggYrZUeavPxP14QnP +Hp+G21S0E1rj+oCoH3tn3VOnuqgoQWmcThAi4m9A7W3oIBUFhNodOviI9y3q +TvPgoWGDctfh60R9+rVOfEh7Kw3rGVs/zI6yYe6yYrKhDw3Nqi6IRBP1cUZM +XY0eQMOUDz8Upon6OTFN37M+jIbfF4SHRoaI+np755xPAg1tnoJp8QAbHjnf +Ek2/RsPaeIXMVKI+F+71h+FZYr/zJg2r6tlw4d3u4S8LNJTvvbhKm+gHzm46 +lPr9Dw11RQpiHYl+IdswvWdeUBXvXu89c6SCDSm/WdvESKr4TDJ1sqGIDXuz ++A5Y2qtiG2noS8UZNlhW1xSfP6+KumXl2uH72fCWUl1kd1EV7zS03/Am+pe4 +85VXZopU8fBo8ZBNGBtuJZdfcq9URY63KkU0hKjnXsUFoi2q+KnQLSndjw1r ++c7mpH1UxTNspy+rnIn+JyA+KVpLDS+33pkI1mDDlKRToGeHGtqqyrJyX7Fg +YB/t2Z4Hahjc29l5q48F7fcXILFXDT+Ob4l5+4zoF+OqyddfqeGmIc9upR4W +6A2LvP81poYet3LXJ7WxIJz1dPtlKXVssHhkMVjBgrFNW31Hg9WR9tvr3VA0 +C0ZPBXpG8mtgZ7iHeK4oCxx/xDh+MlmNq6p47X+bMmF8p8ChG4lrkEd5rEPh +QB3xf0WO+2THWtx4TO7n6LYakHyskc38oYm9ky+bNDZXgXJ6vZuJiRb29vft +U5S9DgXr6OJSodr4bLnwaSh3OTxStDaeztVB0ok6d1/uMjBX7sjRfaWLI4YX +bfO+XgVRnpKoHSl6aM+2M+YVLAZSMtnSW0Mfz/5JYKowLoGgul+D+wN9nNg3 +ZlvVUgA6DIX6mO0GyGV9wNGs8RxEDkl2OnEZov2ss3R4cx78mD611bHAEFcH ++h7PMsyBDbr3Cx21jdBDR9/ZezILWqctfv98YoStgV/jfYtPQriWweDzEGOM +tdgW+VjqBDAmgvu9BU3wn9KB7PcNSWCnJr9xVYkJ9pVGXsCleFiTlBnbYWqK +xfldUXsDY0AzhN6mPmiKv90vWY0rHIKQ1t0nbhw0Q7Nid7uYgxEwsX8sxi7K +DI9P+L3K9oyAWJV9e19Fm+FU6+2JJosIyDwa4T4fb4bipz9mOq2MAKZ5NMUy +zQx/yltt8LgUDosNx1s6C80QX7CyuHr3Q179lZkXnWZIozuWRNL3QVtxf/CU +DB0XLD5cjnUKgw8u1IBoeTrOdFl9OmkUBly/9nv/VqRj5ueIlApSGNhs5nfl +o9AxYSa7QG56N9xfYW6qoElHTgdqNV/aDb1BRYLWVnSs5rnbyjUdCoNqe+py +dtFRYDEh1716F8xc//NT9xYdt0zOVwg5BsNnT/vijCY6ShevDCaZBcMA72mH +kdt01OPV8rdaHQy3AxX/Od9OxyGfrMkSvmBIkTc2X3r49/3au5c6doJ4+p6j +j/5HRyyXXDMDO0Er9CVXCLc5mpbKaHJsgmCnerVg4UZztMvQyVgOC4S4Lv89 +Gm7m6DoRdLbFJxByQiR72O7meH7pMf9J50BouXbkVM82cxQuOrbSWjsQpDUc +xJZ2mKOXhtxSznAA3Nf4JB0YbY7drl0Jlj/9QXMNmaJRZI5bWhR7vA22w5Rm +vgl70hxj8t6I2457w0Av2klNm6Mh+iUqvfSG9vCJLVGz5qj0TFh7Zas3ZLMd +D5osmKP2srusZI43aJpz1TTzWCBMePVzG3tDkON+aqesBWaoV9QxUrygP3SD +SL+lBWpfaDzyYO02aCz7/XE23QKnBWrGWVUeYGIb9dMpywIDezrnSQUecPPj +uEjxaQvkWRk0WJjqAWzSkKlTngWq6PvNtQZ6QE1B++krFy1QwSAp/pacBxSf +SqVvqLPASWdr5R3pWyAjSiy3oM8CU7Ked7pHuYPPelW0IFmi+j6bF0VRbrDU +LyDaSbHEOf1VHdrBblAcMvHWSdUS7VqkQh5tcYPPaU0xPmsssdRSokDX0A0i +H26qP2JgicndXdNunzZBputRUqO9JdatsOE799UVmr1eLhpFWKJXA5cLP+9G +UNp/skmn3ZK4b95lSxmOkP1nl3FWhyXaLJZfyjzoCNx59qwv9yzRU9OrXMvb +EcYa+CqLH1riwguH+vo1jtDMdaJAss8S30spjtR3O4DP2aSYuU+W6No6tTFL +xAEKbh8xbhVmoGTp4VHbUnsQcfVmKYoycJs7X+DW0/aQ9MFMO0acgVwtloJx +Mfawm29eTU+GgTIyx6oWne3BdFO0dAmJgTaZhvmfZu3g1XDkdKo+A1PrzQ/S +N9qBjNA+1sZtDMyjqXamCa6HMtuEuElvBpJaijoLp23BICHbNt+PgRsPSR65 +984WXCeZLwd2MNDoxdwtL7YtpL2a/bVzHwPDIr2PpvjZwnxJok1cMgPFEx8s +P7phA4MW+X3l1QyMQs8UVpQ17D5cdsmxjoHre5see+2whrm6myHjTAYGHHU9 +I+VqDZK0gZ/6DQwczI3T61xtDc4CKsp32hl4ovbCKsH/IbT0lwf3vWTgN+fW +AxQHBCfRRu3oAQZO+Gfo/jRGGNjwcE7+LQNT7Lq3fVBFmGn+lu7/gRjX1bfv ++wOgfVWv9t8xBmoOtjXVHARoGbSOPvWdgXI1ZYwEVwAn6S2gO8nAa8W3cg6u +A9h18vDzqFkG/nfXRa3rkxXMtKcVys0zUFRhUU2t0wpSFi7sbF5gYNEzw8Pl +xVYgblSptX2JgTkidrPOx6zgyv7m2T9/GBjsUJAq7WcF/weyEZ/P "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -10655,172 +10773,133 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR -klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW -lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv -TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc -73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw -RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X -gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 -Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI -PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy -W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx -SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 -V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY -9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw -N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM -vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz -tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 -GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT -0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA -udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF -4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y -Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a -eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl -p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN -TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC -SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw -e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu -HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn -Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l -RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X -udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 -DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM -JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC -PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC -eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn -wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY -XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK -jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb -0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 -GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 -fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN -PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T -MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt -LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH -TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY -565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U -PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F -yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx -3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP -19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 -9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp -zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 -VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP -Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio -aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX -UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo -Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p -ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP -DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo -pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg -5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg -2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW -9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr -BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm -QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF -m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i -o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v -Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH -IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw -kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j -lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO -UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 -w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI -bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc -A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa -l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA -2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug -gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN -VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv -5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l -9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv -r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H -I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp -s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx -NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c -ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc -iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z -pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz -oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv -HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd -Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR -/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI -LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC -eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R -EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM -IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d -JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp -CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe -n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ -QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX -4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM -J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx -baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X -/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby -clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ -SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg -dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs -YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa -LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva -gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i -1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N -ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz -7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ -f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa -wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom -XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ -e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk -XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM -TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD -i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 -LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM -kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj -qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B -uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF -nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 -dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ -kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q -8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 -FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR -CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW -io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU -qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X -B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ -0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r -W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ -zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs -HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB -IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg -FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE -fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC -cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh -DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 -RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d -z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM -rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH -L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== +1:eJwV13c8lt0bAHAZmdl7PMuoZO8Hj+tCZCVJskIiaVASIhlFRsloeDUIkf2M +EhIipWhSSb9UaLySeI0k9Lv76/58P+c559znc1/nuq6HGhThHsLNxcVltoKL +6+9zbujhPbWsMquZyuemBWvXW/VfkT9iPZACjqVf1nQdowHKPA2SH8iDJ4cO +Hyk8ZgDRblWveQZKoPDl96Gjx2xAYkIu79drNlQm3Fm58Zg7vG9xjZh53QE+ +X5T+YyYEgb3a2Lup1y/Auv5xlHt8JPx6bXpu8vUwaGs6bB09mAKdthVlz0um +oWO3cdSESD4ov2/6HKS1BDeXQ/cH/HsRpPcFVPHb8qD04Hz4GpkSyNO3v+26 +VQDDfSe3ykE5vCnQa58SX4Wu6TPD3x5UQlZZ4lNuBQmsDWj+clKrFpyMwiRl +VCXwfWVLy7BZLQjcc9+6WlsCBUSvDRjb1cKJEfW3ztYS+BD/fXtvey0cpfV+ +Phsmge18ds9Ss2shvFh+WaNZAoucrsTnTtTC5kssLWdfSRxLSxlrv14HcmdH +MvIvS2FdUNu3DG4myK+7eWK+XAr35i6uDeBngmJHWuJ2phQOvg17rSfCBNLk +2sOrO6XQsTE24aEME9RdDgTe/iqFX9lan5+uYYIh75LJiKE07rkeXKPnyoRN +UbKjBo+ksWnH9WCr80xwE/46dKFPGmeCFROKC5ngXtL0ZvF/0vhd1W9m+QoT +PJ/5Pb3/g5h/rnCJWcGE7VqlzT4yMnilxz/i30Ym7B3VzU0JlMHD9zVjqgeZ +cNLD0erFnAx+lk8/d1CJBYo3nihyr5BF0fCRcA6ZBXVSHj/1hWURn2fOTaqy +4NULf2YuWRbrVULFArRYoLY5irbZQRa7M339+Rks6NhYtPLZP7JocdhKN307 +C5bsZ588tpRDz5k7Yw4XWZBTHle9ZC+H5109BLmKiPkrudK1N8th7PHPT9gl +LHDpErI+HSKHX35lugpXsaDQlsJxyZbD7KZVKumNLDBD5ws97+VQhTv1M7Of +BYfoVwMepsjjpqVv3G2CbHAqFp1xPiWPl23/U7gpwgYa/9H0J+fkUW6IuatC +jA3P+j1Zfdflsaez5mqSDBt0DojwDD2RRz0OFPNR2fC1PKb8P0UFVA8Wf+Nt +ygY/adfvShwFfD6Za6+1gw2G8beTr7QoIP+HfZ6VO9kgNLxGlnpfAS+Kka/S +drGhqZ4HNN4ooODIiq+Ce9kg69yUo/dHAZfU+m2qo4j9k9WM7JwVcTxyaxj9 +JBvW/1iICx9RRD3y66LUSjYccTireXdcEcsfycYmVbOh7qr2oNScIq76mNgc +U8sGeY9AepOAEqbwuST6stgw3tj1k0dHCW+PHZGab2RDfkpO1D+xSki6YdiW ++oAN3W/Xqo0nK6FxpXDYhodsWDTq7LPKUkKG0PHjfD1s2PVl1mD0shIuXJQS +iXnCBnMX3ymdTiXk5t8cq/uSDcMyGuH3VinjZGmo+txHNshFtKnIySljhKOX +eOIIG1y6vR6HUZTRMjbyEO8nNjTEZWmJGSojg39dGe9XNmS+nxzz9lJG0QvK +rYPf2WBQeTv0R4ky9l396jQ0z4ZQ7q1yNjXKSAlP+KmzwIZLvhP3z95URomi +F2pHf7NhpShVw7xbGZ994ecVWWbDYGTa6InvypjF83Z0BQ8Hki0371A0U8GZ +Gp+b9iIccPC/8p+pjQoyNrSFx6zigGjSt+NbXVRQL7xApkyUA5c6U8tzAlXw +ovEXnSlxDjQ6NX9bmaGCrm0L5T4yHEjcx5+glq+CfvTl4T2yHLDP9hC1uayC +1y3kpGLkOND/fEIvgaWCsX+m3Y8rcGDSSzV6+o0K3ojJDNurwoFbcQf4JUZV +8HJTkL8viQPHLt0p0JlQwfZjG1w3kDkg8mHb7TBuEh6w6qFJUTmwOvQU1wdN +Eua3yjTGqXFgIv1N7pIRCSd5S684qXPgRpWGqhKQ8Mfa9JOyGhywmWi389xC +wspw+eCS1RzwPzyb2RtPrJf4OChTkwPqF2yUx1JJOL/+dLT5Og4RH2dq+XNI +uHnJ5uxnwnGLa5/ZlJGQlhIzZaDNgXPH/WWaekl4a+UV10u6HPC7Vl3+6hUx +XnX5sRZxKWgP5k1nPpAwZnuKfxNhplC+j+4sCUUMhJrv63OgN/dB0TUVMh5x +6YxiG3IgnyOt37majBWH84pUjTjg83JHxwd9Mi4qp47mEP4qvziqZE/Gagfh +uwHGHKg3d4ymu5HxB/cdn7uEo/3O82/zIePua08kySYc4CnW08wLJ6Otre/w +E8KP7ibcro8lY67Q8m+KKQdyRh65PE4ho4qbm1kEYdLqkAiBC2SU/x2gwmXG +gU8ObC6Nq8T611y7bQjX7PmTa1tNxpVemwqTCZvX/XPjWBsZi2zmbk0TXv/6 +ydJENxk3DRbeVKVzwJWLd0PACzL6lGRsdyPstZae8/QtGb+V1zCPEN7pHv4G +PpHxZ99EfRHh8PhSGnOCjGkzFn4dhGPLBvZS5smowU5q+Ej47uc0n24uChqc +rWpbImwfT01M4qMg/U9FrKw5B3rEWkrNhCi4yWj38DrCbmWe3ZOiFIx0e7vE +IPzKbGr8uhQF3zj/1+NC2PdxlsQOeQp6/rqy0Yvwhx0aJgoqFKzg6z8eSHjX +XLvPcyrx+7kTESGEv2X6JmZoULBgXblEKOED5LlS63UUTB/U2vt3fJaT0/1L +l4I1EmIJf+fHOaz7zjKi4NWbtg5/1+d61yWxh05B2eSOx3/3Tz0YaEKzoqA4 +7wlRK8JCK3/7DNpQ0L40WViLcE7hucS8DRSMvnCz6+/5ZHT1ypxcKNg5rmi1 +TJy/sPNRN/dmCvKl1B4eJkz2CvnevJWCVIE9+zsJl43/kTjkQ8EdK1w1rhLW +TC40WRdAzG/fdjWecL2Mse/ITgoGhaW9dydsVPU08eJuCrK+v/moQbjZak/Z +lv0UHBbdUvmT+L73Qou+d0ZTcLvBnawzhB0X6ZJH4ylY1cy57kn4SU6/iVES +BfPHBrMVCb9pEkwqy6DgarGnzQVEfPm7lpX5ZVPw39EK7i2ER4etHkrnU1BR +9aGcEOEJ4SjJ1EvE+YGvLpyI10PFoqaMqxQcsTXQVyY8b1TpO3uNgi8We1Lv +E/HO4z9UFlJPwbSAyAoJwvJMB1P7Dgreb/jxbzJxny6vH/Fdvk/BjjsfZWQJ +094kJDX0UHCAt06pwoAD2tychxovKZiXqNjURtxHGw8VP/6vFHyss9m7h7jP +D77eSmobp+DFWZVIe8IuCe7XYqYoKFYdtL9VhwPbyk9OfFmg4IlbTLFrRD7Y +Nz+V1L2KiqM9ErSNRL4wP7hL9rMkFfvlTgiXEPlFYGywmkeeisLTWzyn13Lg +2tvOV1Y0KlrlNspkreHAUOs5rZsmVCT5Je88Q+SvGlOhjhcWVLyo15X4gMhv +ccxj2yaRilzqAwKLqhyQLQlNWedMxSIfk1AfGgc2pdIHrgZQcWrhbMI4kT9J +y7X724Kp2LdWZK0A4fFoGs+7MCq6n+faSCHybfpuYR35KCqWtTjy2itxoN35 +3fHsdCoWLH/zDiXytYFksm48i4op//RNcosR8Zs1e6+ggYrZUeavPxP14QnP +Hp+G21S0E1rj+oCoH3tn3VOnuqgoQWmcThAi4m9A7W3oIBUFhNodOviI9y3q +TvPgoWGDctfh60R9+rVOfEh7Kw3rGVs/zI6yYe6yYrKhDw3Nqi6IRBP1cUZM +XY0eQMOUDz8Upon6OTFN37M+jIbfF4SHRoaI+np755xPAg1tnoJp8QAbHjnf +Ek2/RsPaeIXMVKI+F+71h+FZYr/zJg2r6tlw4d3u4S8LNJTvvbhKm+gHzm46 +lPr9Dw11RQpiHYl+IdswvWdeUBXvXu89c6SCDSm/WdvESKr4TDJ1sqGIDXuz ++A5Y2qtiG2noS8UZNlhW1xSfP6+KumXl2uH72fCWUl1kd1EV7zS03/Am+pe4 +85VXZopU8fBo8ZBNGBtuJZdfcq9URY63KkU0hKjnXsUFoi2q+KnQLSndjw1r ++c7mpH1UxTNspy+rnIn+JyA+KVpLDS+33pkI1mDDlKRToGeHGtqqyrJyX7Fg +YB/t2Z4Hahjc29l5q48F7fcXILFXDT+Ob4l5+4zoF+OqyddfqeGmIc9upR4W +6A2LvP81poYet3LXJ7WxIJz1dPtlKXVssHhkMVjBgrFNW31Hg9WR9tvr3VA0 +C0ZPBXpG8mtgZ7iHeK4oCxx/xDh+MlmNq6p47X+bMmF8p8ChG4lrkEd5rEPh +QB3xf0WO+2THWtx4TO7n6LYakHyskc38oYm9ky+bNDZXgXJ6vZuJiRb29vft +U5S9DgXr6OJSodr4bLnwaSh3OTxStDaeztVB0ok6d1/uMjBX7sjRfaWLI4YX +bfO+XgVRnpKoHSl6aM+2M+YVLAZSMtnSW0Mfz/5JYKowLoGgul+D+wN9nNg3 +ZlvVUgA6DIX6mO0GyGV9wNGs8RxEDkl2OnEZov2ss3R4cx78mD611bHAEFcH ++h7PMsyBDbr3Cx21jdBDR9/ZezILWqctfv98YoStgV/jfYtPQriWweDzEGOM +tdgW+VjqBDAmgvu9BU3wn9KB7PcNSWCnJr9xVYkJ9pVGXsCleFiTlBnbYWqK +xfldUXsDY0AzhN6mPmiKv90vWY0rHIKQ1t0nbhw0Q7Nid7uYgxEwsX8sxi7K +DI9P+L3K9oyAWJV9e19Fm+FU6+2JJosIyDwa4T4fb4bipz9mOq2MAKZ5NMUy +zQx/yltt8LgUDosNx1s6C80QX7CyuHr3Q179lZkXnWZIozuWRNL3QVtxf/CU +DB0XLD5cjnUKgw8u1IBoeTrOdFl9OmkUBly/9nv/VqRj5ueIlApSGNhs5nfl +o9AxYSa7QG56N9xfYW6qoElHTgdqNV/aDb1BRYLWVnSs5rnbyjUdCoNqe+py +dtFRYDEh1716F8xc//NT9xYdt0zOVwg5BsNnT/vijCY6ShevDCaZBcMA72mH +kdt01OPV8rdaHQy3AxX/Od9OxyGfrMkSvmBIkTc2X3r49/3au5c6doJ4+p6j +j/5HRyyXXDMDO0Er9CVXCLc5mpbKaHJsgmCnerVg4UZztMvQyVgOC4S4Lv89 +Gm7m6DoRdLbFJxByQiR72O7meH7pMf9J50BouXbkVM82cxQuOrbSWjsQpDUc +xJZ2mKOXhtxSznAA3Nf4JB0YbY7drl0Jlj/9QXMNmaJRZI5bWhR7vA22w5Rm +vgl70hxj8t6I2457w0Av2klNm6Mh+iUqvfSG9vCJLVGz5qj0TFh7Zas3ZLMd +D5osmKP2srusZI43aJpz1TTzWCBMePVzG3tDkON+aqesBWaoV9QxUrygP3SD +SL+lBWpfaDzyYO02aCz7/XE23QKnBWrGWVUeYGIb9dMpywIDezrnSQUecPPj +uEjxaQvkWRk0WJjqAWzSkKlTngWq6PvNtQZ6QE1B++krFy1QwSAp/pacBxSf +SqVvqLPASWdr5R3pWyAjSiy3oM8CU7Ked7pHuYPPelW0IFmi+j6bF0VRbrDU +LyDaSbHEOf1VHdrBblAcMvHWSdUS7VqkQh5tcYPPaU0xPmsssdRSokDX0A0i +H26qP2JgicndXdNunzZBputRUqO9JdatsOE799UVmr1eLhpFWKJXA5cLP+9G +UNp/skmn3ZK4b95lSxmOkP1nl3FWhyXaLJZfyjzoCNx59qwv9yzRU9OrXMvb +EcYa+CqLH1riwguH+vo1jtDMdaJAss8S30spjtR3O4DP2aSYuU+W6No6tTFL +xAEKbh8xbhVmoGTp4VHbUnsQcfVmKYoycJs7X+DW0/aQ9MFMO0acgVwtloJx +Mfawm29eTU+GgTIyx6oWne3BdFO0dAmJgTaZhvmfZu3g1XDkdKo+A1PrzQ/S +N9qBjNA+1sZtDMyjqXamCa6HMtuEuElvBpJaijoLp23BICHbNt+PgRsPSR65 +984WXCeZLwd2MNDoxdwtL7YtpL2a/bVzHwPDIr2PpvjZwnxJok1cMgPFEx8s +P7phA4MW+X3l1QyMQs8UVpQ17D5cdsmxjoHre5see+2whrm6myHjTAYGHHU9 +I+VqDZK0gZ/6DQwczI3T61xtDc4CKsp32hl4ovbCKsH/IbT0lwf3vWTgN+fW +AxQHBCfRRu3oAQZO+Gfo/jRGGNjwcE7+LQNT7Lq3fVBFmGn+lu7/gRjX1bfv ++wOgfVWv9t8xBmoOtjXVHARoGbSOPvWdgXI1ZYwEVwAn6S2gO8nAa8W3cg6u +A9h18vDzqFkG/nfXRa3rkxXMtKcVys0zUFRhUU2t0wpSFi7sbF5gYNEzw8Pl +xVYgblSptX2JgTkidrPOx6zgyv7m2T9/GBjsUJAq7WcF/weyEZ/P "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "PlotRange" -> {{0, 30}, {0., 0.0751099031532888}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -10832,19 +10911,19 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "PlotRange" -> {{0, 30}, {0., 0.0751099031532888}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10858,171 +10937,132 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR -klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW -lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv -TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc -73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw -RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X -gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 -Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI -PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy -W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx -SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 -V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY -9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw -N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM -vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz -tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 -GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT -0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA -udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF -4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y -Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a -eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl -p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN -TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC -SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw -e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu -HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn -Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l -RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X -udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 -DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM -JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC -PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC -eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn -wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY -XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK -jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb -0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 -GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 -fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN -PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T -MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt -LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH -TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY -565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U -PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F -yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx -3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP -19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 -9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp -zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 -VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP -Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio -aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX -UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo -Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p -ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP -DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo -pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg -5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg -2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW -9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr -BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm -QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF -m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i -o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v -Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH -IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw -kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j -lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO -UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 -w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI -bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc -A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa -l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA -2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug -gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN -VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv -5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l -9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv -r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H -I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp -s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx -NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c -ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc -iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z -pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz -oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv -HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd -Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR -/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI -LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC -eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R -EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM -IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d -JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp -CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe -n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ -QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX -4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM -J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx -baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X -/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby -clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ -SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg -dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs -YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa -LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva -gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i -1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N -ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz -7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ -f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa -wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom -XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ -e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk -XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM -TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD -i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 -LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM -kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj -qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B -uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF -nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 -dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ -kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q -8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 -FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR -CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW -io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU -qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X -B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ -0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r -W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ -zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs -HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB -IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg -FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE -fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC -cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh -DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 -RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d -z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM -rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH -L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== +1:eJwV13c8lt0bAHAZmdl7PMuoZO8Hj+tCZCVJskIiaVASIhlFRsloeDUIkf2M +EhIipWhSSb9UaLySeI0k9Lv76/58P+c559znc1/nuq6HGhThHsLNxcVltoKL +6+9zbujhPbWsMquZyuemBWvXW/VfkT9iPZACjqVf1nQdowHKPA2SH8iDJ4cO +Hyk8ZgDRblWveQZKoPDl96Gjx2xAYkIu79drNlQm3Fm58Zg7vG9xjZh53QE+ +X5T+YyYEgb3a2Lup1y/Auv5xlHt8JPx6bXpu8vUwaGs6bB09mAKdthVlz0um +oWO3cdSESD4ov2/6HKS1BDeXQ/cH/HsRpPcFVPHb8qD04Hz4GpkSyNO3v+26 +VQDDfSe3ykE5vCnQa58SX4Wu6TPD3x5UQlZZ4lNuBQmsDWj+clKrFpyMwiRl +VCXwfWVLy7BZLQjcc9+6WlsCBUSvDRjb1cKJEfW3ztYS+BD/fXtvey0cpfV+ +Phsmge18ds9Ss2shvFh+WaNZAoucrsTnTtTC5kssLWdfSRxLSxlrv14HcmdH +MvIvS2FdUNu3DG4myK+7eWK+XAr35i6uDeBngmJHWuJ2phQOvg17rSfCBNLk +2sOrO6XQsTE24aEME9RdDgTe/iqFX9lan5+uYYIh75LJiKE07rkeXKPnyoRN +UbKjBo+ksWnH9WCr80xwE/46dKFPGmeCFROKC5ngXtL0ZvF/0vhd1W9m+QoT +PJ/5Pb3/g5h/rnCJWcGE7VqlzT4yMnilxz/i30Ym7B3VzU0JlMHD9zVjqgeZ +cNLD0erFnAx+lk8/d1CJBYo3nihyr5BF0fCRcA6ZBXVSHj/1hWURn2fOTaqy +4NULf2YuWRbrVULFArRYoLY5irbZQRa7M339+Rks6NhYtPLZP7JocdhKN307 +C5bsZ588tpRDz5k7Yw4XWZBTHle9ZC+H5109BLmKiPkrudK1N8th7PHPT9gl +LHDpErI+HSKHX35lugpXsaDQlsJxyZbD7KZVKumNLDBD5ws97+VQhTv1M7Of +BYfoVwMepsjjpqVv3G2CbHAqFp1xPiWPl23/U7gpwgYa/9H0J+fkUW6IuatC +jA3P+j1Zfdflsaez5mqSDBt0DojwDD2RRz0OFPNR2fC1PKb8P0UFVA8Wf+Nt +ygY/adfvShwFfD6Za6+1gw2G8beTr7QoIP+HfZ6VO9kgNLxGlnpfAS+Kka/S +drGhqZ4HNN4ooODIiq+Ce9kg69yUo/dHAZfU+m2qo4j9k9WM7JwVcTxyaxj9 +JBvW/1iICx9RRD3y66LUSjYccTireXdcEcsfycYmVbOh7qr2oNScIq76mNgc +U8sGeY9AepOAEqbwuST6stgw3tj1k0dHCW+PHZGab2RDfkpO1D+xSki6YdiW ++oAN3W/Xqo0nK6FxpXDYhodsWDTq7LPKUkKG0PHjfD1s2PVl1mD0shIuXJQS +iXnCBnMX3ymdTiXk5t8cq/uSDcMyGuH3VinjZGmo+txHNshFtKnIySljhKOX +eOIIG1y6vR6HUZTRMjbyEO8nNjTEZWmJGSojg39dGe9XNmS+nxzz9lJG0QvK +rYPf2WBQeTv0R4ky9l396jQ0z4ZQ7q1yNjXKSAlP+KmzwIZLvhP3z95URomi +F2pHf7NhpShVw7xbGZ994ecVWWbDYGTa6InvypjF83Z0BQ8Hki0371A0U8GZ +Gp+b9iIccPC/8p+pjQoyNrSFx6zigGjSt+NbXVRQL7xApkyUA5c6U8tzAlXw +ovEXnSlxDjQ6NX9bmaGCrm0L5T4yHEjcx5+glq+CfvTl4T2yHLDP9hC1uayC +1y3kpGLkOND/fEIvgaWCsX+m3Y8rcGDSSzV6+o0K3ojJDNurwoFbcQf4JUZV +8HJTkL8viQPHLt0p0JlQwfZjG1w3kDkg8mHb7TBuEh6w6qFJUTmwOvQU1wdN +Eua3yjTGqXFgIv1N7pIRCSd5S684qXPgRpWGqhKQ8Mfa9JOyGhywmWi389xC +wspw+eCS1RzwPzyb2RtPrJf4OChTkwPqF2yUx1JJOL/+dLT5Og4RH2dq+XNI +uHnJ5uxnwnGLa5/ZlJGQlhIzZaDNgXPH/WWaekl4a+UV10u6HPC7Vl3+6hUx +XnX5sRZxKWgP5k1nPpAwZnuKfxNhplC+j+4sCUUMhJrv63OgN/dB0TUVMh5x +6YxiG3IgnyOt37majBWH84pUjTjg83JHxwd9Mi4qp47mEP4qvziqZE/Gagfh +uwHGHKg3d4ymu5HxB/cdn7uEo/3O82/zIePua08kySYc4CnW08wLJ6Otre/w +E8KP7ibcro8lY67Q8m+KKQdyRh65PE4ho4qbm1kEYdLqkAiBC2SU/x2gwmXG +gU8ObC6Nq8T611y7bQjX7PmTa1tNxpVemwqTCZvX/XPjWBsZi2zmbk0TXv/6 +ydJENxk3DRbeVKVzwJWLd0PACzL6lGRsdyPstZae8/QtGb+V1zCPEN7pHv4G +PpHxZ99EfRHh8PhSGnOCjGkzFn4dhGPLBvZS5smowU5q+Ej47uc0n24uChqc +rWpbImwfT01M4qMg/U9FrKw5B3rEWkrNhCi4yWj38DrCbmWe3ZOiFIx0e7vE +IPzKbGr8uhQF3zj/1+NC2PdxlsQOeQp6/rqy0Yvwhx0aJgoqFKzg6z8eSHjX +XLvPcyrx+7kTESGEv2X6JmZoULBgXblEKOED5LlS63UUTB/U2vt3fJaT0/1L +l4I1EmIJf+fHOaz7zjKi4NWbtg5/1+d61yWxh05B2eSOx3/3Tz0YaEKzoqA4 +7wlRK8JCK3/7DNpQ0L40WViLcE7hucS8DRSMvnCz6+/5ZHT1ypxcKNg5rmi1 +TJy/sPNRN/dmCvKl1B4eJkz2CvnevJWCVIE9+zsJl43/kTjkQ8EdK1w1rhLW +TC40WRdAzG/fdjWecL2Mse/ITgoGhaW9dydsVPU08eJuCrK+v/moQbjZak/Z +lv0UHBbdUvmT+L73Qou+d0ZTcLvBnawzhB0X6ZJH4ylY1cy57kn4SU6/iVES +BfPHBrMVCb9pEkwqy6DgarGnzQVEfPm7lpX5ZVPw39EK7i2ER4etHkrnU1BR +9aGcEOEJ4SjJ1EvE+YGvLpyI10PFoqaMqxQcsTXQVyY8b1TpO3uNgi8We1Lv +E/HO4z9UFlJPwbSAyAoJwvJMB1P7Dgreb/jxbzJxny6vH/Fdvk/BjjsfZWQJ +094kJDX0UHCAt06pwoAD2tychxovKZiXqNjURtxHGw8VP/6vFHyss9m7h7jP +D77eSmobp+DFWZVIe8IuCe7XYqYoKFYdtL9VhwPbyk9OfFmg4IlbTLFrRD7Y +Nz+V1L2KiqM9ErSNRL4wP7hL9rMkFfvlTgiXEPlFYGywmkeeisLTWzyn13Lg +2tvOV1Y0KlrlNspkreHAUOs5rZsmVCT5Je88Q+SvGlOhjhcWVLyo15X4gMhv +ccxj2yaRilzqAwKLqhyQLQlNWedMxSIfk1AfGgc2pdIHrgZQcWrhbMI4kT9J +y7X724Kp2LdWZK0A4fFoGs+7MCq6n+faSCHybfpuYR35KCqWtTjy2itxoN35 +3fHsdCoWLH/zDiXytYFksm48i4op//RNcosR8Zs1e6+ggYrZUeavPxP14QnP +Hp+G21S0E1rj+oCoH3tn3VOnuqgoQWmcThAi4m9A7W3oIBUFhNodOviI9y3q +TvPgoWGDctfh60R9+rVOfEh7Kw3rGVs/zI6yYe6yYrKhDw3Nqi6IRBP1cUZM +XY0eQMOUDz8Upon6OTFN37M+jIbfF4SHRoaI+np755xPAg1tnoJp8QAbHjnf +Ek2/RsPaeIXMVKI+F+71h+FZYr/zJg2r6tlw4d3u4S8LNJTvvbhKm+gHzm46 +lPr9Dw11RQpiHYl+IdswvWdeUBXvXu89c6SCDSm/WdvESKr4TDJ1sqGIDXuz ++A5Y2qtiG2noS8UZNlhW1xSfP6+KumXl2uH72fCWUl1kd1EV7zS03/Am+pe4 +85VXZopU8fBo8ZBNGBtuJZdfcq9URY63KkU0hKjnXsUFoi2q+KnQLSndjw1r ++c7mpH1UxTNspy+rnIn+JyA+KVpLDS+33pkI1mDDlKRToGeHGtqqyrJyX7Fg +YB/t2Z4Hahjc29l5q48F7fcXILFXDT+Ob4l5+4zoF+OqyddfqeGmIc9upR4W +6A2LvP81poYet3LXJ7WxIJz1dPtlKXVssHhkMVjBgrFNW31Hg9WR9tvr3VA0 +C0ZPBXpG8mtgZ7iHeK4oCxx/xDh+MlmNq6p47X+bMmF8p8ChG4lrkEd5rEPh +QB3xf0WO+2THWtx4TO7n6LYakHyskc38oYm9ky+bNDZXgXJ6vZuJiRb29vft +U5S9DgXr6OJSodr4bLnwaSh3OTxStDaeztVB0ok6d1/uMjBX7sjRfaWLI4YX +bfO+XgVRnpKoHSl6aM+2M+YVLAZSMtnSW0Mfz/5JYKowLoGgul+D+wN9nNg3 +ZlvVUgA6DIX6mO0GyGV9wNGs8RxEDkl2OnEZov2ss3R4cx78mD611bHAEFcH ++h7PMsyBDbr3Cx21jdBDR9/ZezILWqctfv98YoStgV/jfYtPQriWweDzEGOM +tdgW+VjqBDAmgvu9BU3wn9KB7PcNSWCnJr9xVYkJ9pVGXsCleFiTlBnbYWqK +xfldUXsDY0AzhN6mPmiKv90vWY0rHIKQ1t0nbhw0Q7Nid7uYgxEwsX8sxi7K +DI9P+L3K9oyAWJV9e19Fm+FU6+2JJosIyDwa4T4fb4bipz9mOq2MAKZ5NMUy +zQx/yltt8LgUDosNx1s6C80QX7CyuHr3Q179lZkXnWZIozuWRNL3QVtxf/CU +DB0XLD5cjnUKgw8u1IBoeTrOdFl9OmkUBly/9nv/VqRj5ueIlApSGNhs5nfl +o9AxYSa7QG56N9xfYW6qoElHTgdqNV/aDb1BRYLWVnSs5rnbyjUdCoNqe+py +dtFRYDEh1716F8xc//NT9xYdt0zOVwg5BsNnT/vijCY6ShevDCaZBcMA72mH +kdt01OPV8rdaHQy3AxX/Od9OxyGfrMkSvmBIkTc2X3r49/3au5c6doJ4+p6j +j/5HRyyXXDMDO0Er9CVXCLc5mpbKaHJsgmCnerVg4UZztMvQyVgOC4S4Lv89 +Gm7m6DoRdLbFJxByQiR72O7meH7pMf9J50BouXbkVM82cxQuOrbSWjsQpDUc +xJZ2mKOXhtxSznAA3Nf4JB0YbY7drl0Jlj/9QXMNmaJRZI5bWhR7vA22w5Rm +vgl70hxj8t6I2457w0Av2klNm6Mh+iUqvfSG9vCJLVGz5qj0TFh7Zas3ZLMd +D5osmKP2srusZI43aJpz1TTzWCBMePVzG3tDkON+aqesBWaoV9QxUrygP3SD +SL+lBWpfaDzyYO02aCz7/XE23QKnBWrGWVUeYGIb9dMpywIDezrnSQUecPPj +uEjxaQvkWRk0WJjqAWzSkKlTngWq6PvNtQZ6QE1B++krFy1QwSAp/pacBxSf +SqVvqLPASWdr5R3pWyAjSiy3oM8CU7Ked7pHuYPPelW0IFmi+j6bF0VRbrDU +LyDaSbHEOf1VHdrBblAcMvHWSdUS7VqkQh5tcYPPaU0xPmsssdRSokDX0A0i +H26qP2JgicndXdNunzZBputRUqO9JdatsOE799UVmr1eLhpFWKJXA5cLP+9G +UNp/skmn3ZK4b95lSxmOkP1nl3FWhyXaLJZfyjzoCNx59qwv9yzRU9OrXMvb +EcYa+CqLH1riwguH+vo1jtDMdaJAss8S30spjtR3O4DP2aSYuU+W6No6tTFL +xAEKbh8xbhVmoGTp4VHbUnsQcfVmKYoycJs7X+DW0/aQ9MFMO0acgVwtloJx +Mfawm29eTU+GgTIyx6oWne3BdFO0dAmJgTaZhvmfZu3g1XDkdKo+A1PrzQ/S +N9qBjNA+1sZtDMyjqXamCa6HMtuEuElvBpJaijoLp23BICHbNt+PgRsPSR65 +984WXCeZLwd2MNDoxdwtL7YtpL2a/bVzHwPDIr2PpvjZwnxJok1cMgPFEx8s +P7phA4MW+X3l1QyMQs8UVpQ17D5cdsmxjoHre5see+2whrm6myHjTAYGHHU9 +I+VqDZK0gZ/6DQwczI3T61xtDc4CKsp32hl4ovbCKsH/IbT0lwf3vWTgN+fW +AxQHBCfRRu3oAQZO+Gfo/jRGGNjwcE7+LQNT7Lq3fVBFmGn+lu7/gRjX1bfv ++wOgfVWv9t8xBmoOtjXVHARoGbSOPvWdgXI1ZYwEVwAn6S2gO8nAa8W3cg6u +A9h18vDzqFkG/nfXRa3rkxXMtKcVys0zUFRhUU2t0wpSFi7sbF5gYNEzw8Pl +xVYgblSptX2JgTkidrPOx6zgyv7m2T9/GBjsUJAq7WcF/weyEZ/P "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "PlotRange" -> {{0, 30}, {0., 0.0751099031532888}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -11033,6 +11073,7 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -11060,7 +11101,8 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.1813924222088017}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.0751099031532888}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -11068,17 +11110,619 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913306567510605`*^9}, + CellChangeTimes->{3.9913306567510605`*^9, 3.994260026327405*^9}, CellLabel-> - "Out[195]=",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] + "Out[119]=",ExpressionUUID->"fdbc39ee-6670-445e-92c4-c39af8b4bcaa"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-\ -6bd251746ea6"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8lt0bAHAZmdl7PMuoZO8Hj+tCZCVJskIiaVASIhlFRsloeDUIkf2M +EhIipWhSSb9UaLySeI0k9Lv76/58P+c559znc1/nuq6HGhThHsLNxcVltoKL +6+9zbujhPbWsMquZyuemBWvXW/VfkT9iPZACjqVf1nQdowHKPA2SH8iDJ4cO +Hyk8ZgDRblWveQZKoPDl96Gjx2xAYkIu79drNlQm3Fm58Zg7vG9xjZh53QE+ +X5T+YyYEgb3a2Lup1y/Auv5xlHt8JPx6bXpu8vUwaGs6bB09mAKdthVlz0um +oWO3cdSESD4ov2/6HKS1BDeXQ/cH/HsRpPcFVPHb8qD04Hz4GpkSyNO3v+26 +VQDDfSe3ykE5vCnQa58SX4Wu6TPD3x5UQlZZ4lNuBQmsDWj+clKrFpyMwiRl +VCXwfWVLy7BZLQjcc9+6WlsCBUSvDRjb1cKJEfW3ztYS+BD/fXtvey0cpfV+ +Phsmge18ds9Ss2shvFh+WaNZAoucrsTnTtTC5kssLWdfSRxLSxlrv14HcmdH +MvIvS2FdUNu3DG4myK+7eWK+XAr35i6uDeBngmJHWuJ2phQOvg17rSfCBNLk +2sOrO6XQsTE24aEME9RdDgTe/iqFX9lan5+uYYIh75LJiKE07rkeXKPnyoRN +UbKjBo+ksWnH9WCr80xwE/46dKFPGmeCFROKC5ngXtL0ZvF/0vhd1W9m+QoT +PJ/5Pb3/g5h/rnCJWcGE7VqlzT4yMnilxz/i30Ym7B3VzU0JlMHD9zVjqgeZ +cNLD0erFnAx+lk8/d1CJBYo3nihyr5BF0fCRcA6ZBXVSHj/1hWURn2fOTaqy +4NULf2YuWRbrVULFArRYoLY5irbZQRa7M339+Rks6NhYtPLZP7JocdhKN307 +C5bsZ588tpRDz5k7Yw4XWZBTHle9ZC+H5109BLmKiPkrudK1N8th7PHPT9gl +LHDpErI+HSKHX35lugpXsaDQlsJxyZbD7KZVKumNLDBD5ws97+VQhTv1M7Of +BYfoVwMepsjjpqVv3G2CbHAqFp1xPiWPl23/U7gpwgYa/9H0J+fkUW6IuatC +jA3P+j1Zfdflsaez5mqSDBt0DojwDD2RRz0OFPNR2fC1PKb8P0UFVA8Wf+Nt +ygY/adfvShwFfD6Za6+1gw2G8beTr7QoIP+HfZ6VO9kgNLxGlnpfAS+Kka/S +drGhqZ4HNN4ooODIiq+Ce9kg69yUo/dHAZfU+m2qo4j9k9WM7JwVcTxyaxj9 +JBvW/1iICx9RRD3y66LUSjYccTireXdcEcsfycYmVbOh7qr2oNScIq76mNgc +U8sGeY9AepOAEqbwuST6stgw3tj1k0dHCW+PHZGab2RDfkpO1D+xSki6YdiW ++oAN3W/Xqo0nK6FxpXDYhodsWDTq7LPKUkKG0PHjfD1s2PVl1mD0shIuXJQS +iXnCBnMX3ymdTiXk5t8cq/uSDcMyGuH3VinjZGmo+txHNshFtKnIySljhKOX +eOIIG1y6vR6HUZTRMjbyEO8nNjTEZWmJGSojg39dGe9XNmS+nxzz9lJG0QvK +rYPf2WBQeTv0R4ky9l396jQ0z4ZQ7q1yNjXKSAlP+KmzwIZLvhP3z95URomi +F2pHf7NhpShVw7xbGZ994ecVWWbDYGTa6InvypjF83Z0BQ8Hki0371A0U8GZ +Gp+b9iIccPC/8p+pjQoyNrSFx6zigGjSt+NbXVRQL7xApkyUA5c6U8tzAlXw +ovEXnSlxDjQ6NX9bmaGCrm0L5T4yHEjcx5+glq+CfvTl4T2yHLDP9hC1uayC +1y3kpGLkOND/fEIvgaWCsX+m3Y8rcGDSSzV6+o0K3ojJDNurwoFbcQf4JUZV +8HJTkL8viQPHLt0p0JlQwfZjG1w3kDkg8mHb7TBuEh6w6qFJUTmwOvQU1wdN +Eua3yjTGqXFgIv1N7pIRCSd5S684qXPgRpWGqhKQ8Mfa9JOyGhywmWi389xC +wspw+eCS1RzwPzyb2RtPrJf4OChTkwPqF2yUx1JJOL/+dLT5Og4RH2dq+XNI +uHnJ5uxnwnGLa5/ZlJGQlhIzZaDNgXPH/WWaekl4a+UV10u6HPC7Vl3+6hUx +XnX5sRZxKWgP5k1nPpAwZnuKfxNhplC+j+4sCUUMhJrv63OgN/dB0TUVMh5x +6YxiG3IgnyOt37majBWH84pUjTjg83JHxwd9Mi4qp47mEP4qvziqZE/Gagfh +uwHGHKg3d4ymu5HxB/cdn7uEo/3O82/zIePua08kySYc4CnW08wLJ6Otre/w +E8KP7ibcro8lY67Q8m+KKQdyRh65PE4ho4qbm1kEYdLqkAiBC2SU/x2gwmXG +gU8ObC6Nq8T611y7bQjX7PmTa1tNxpVemwqTCZvX/XPjWBsZi2zmbk0TXv/6 +ydJENxk3DRbeVKVzwJWLd0PACzL6lGRsdyPstZae8/QtGb+V1zCPEN7pHv4G +PpHxZ99EfRHh8PhSGnOCjGkzFn4dhGPLBvZS5smowU5q+Ej47uc0n24uChqc +rWpbImwfT01M4qMg/U9FrKw5B3rEWkrNhCi4yWj38DrCbmWe3ZOiFIx0e7vE +IPzKbGr8uhQF3zj/1+NC2PdxlsQOeQp6/rqy0Yvwhx0aJgoqFKzg6z8eSHjX +XLvPcyrx+7kTESGEv2X6JmZoULBgXblEKOED5LlS63UUTB/U2vt3fJaT0/1L +l4I1EmIJf+fHOaz7zjKi4NWbtg5/1+d61yWxh05B2eSOx3/3Tz0YaEKzoqA4 +7wlRK8JCK3/7DNpQ0L40WViLcE7hucS8DRSMvnCz6+/5ZHT1ypxcKNg5rmi1 +TJy/sPNRN/dmCvKl1B4eJkz2CvnevJWCVIE9+zsJl43/kTjkQ8EdK1w1rhLW +TC40WRdAzG/fdjWecL2Mse/ITgoGhaW9dydsVPU08eJuCrK+v/moQbjZak/Z +lv0UHBbdUvmT+L73Qou+d0ZTcLvBnawzhB0X6ZJH4ylY1cy57kn4SU6/iVES +BfPHBrMVCb9pEkwqy6DgarGnzQVEfPm7lpX5ZVPw39EK7i2ER4etHkrnU1BR +9aGcEOEJ4SjJ1EvE+YGvLpyI10PFoqaMqxQcsTXQVyY8b1TpO3uNgi8We1Lv +E/HO4z9UFlJPwbSAyAoJwvJMB1P7Dgreb/jxbzJxny6vH/Fdvk/BjjsfZWQJ +094kJDX0UHCAt06pwoAD2tychxovKZiXqNjURtxHGw8VP/6vFHyss9m7h7jP +D77eSmobp+DFWZVIe8IuCe7XYqYoKFYdtL9VhwPbyk9OfFmg4IlbTLFrRD7Y +Nz+V1L2KiqM9ErSNRL4wP7hL9rMkFfvlTgiXEPlFYGywmkeeisLTWzyn13Lg +2tvOV1Y0KlrlNspkreHAUOs5rZsmVCT5Je88Q+SvGlOhjhcWVLyo15X4gMhv +ccxj2yaRilzqAwKLqhyQLQlNWedMxSIfk1AfGgc2pdIHrgZQcWrhbMI4kT9J +y7X724Kp2LdWZK0A4fFoGs+7MCq6n+faSCHybfpuYR35KCqWtTjy2itxoN35 +3fHsdCoWLH/zDiXytYFksm48i4op//RNcosR8Zs1e6+ggYrZUeavPxP14QnP +Hp+G21S0E1rj+oCoH3tn3VOnuqgoQWmcThAi4m9A7W3oIBUFhNodOviI9y3q +TvPgoWGDctfh60R9+rVOfEh7Kw3rGVs/zI6yYe6yYrKhDw3Nqi6IRBP1cUZM +XY0eQMOUDz8Upon6OTFN37M+jIbfF4SHRoaI+np755xPAg1tnoJp8QAbHjnf +Ek2/RsPaeIXMVKI+F+71h+FZYr/zJg2r6tlw4d3u4S8LNJTvvbhKm+gHzm46 +lPr9Dw11RQpiHYl+IdswvWdeUBXvXu89c6SCDSm/WdvESKr4TDJ1sqGIDXuz ++A5Y2qtiG2noS8UZNlhW1xSfP6+KumXl2uH72fCWUl1kd1EV7zS03/Am+pe4 +85VXZopU8fBo8ZBNGBtuJZdfcq9URY63KkU0hKjnXsUFoi2q+KnQLSndjw1r ++c7mpH1UxTNspy+rnIn+JyA+KVpLDS+33pkI1mDDlKRToGeHGtqqyrJyX7Fg +YB/t2Z4Hahjc29l5q48F7fcXILFXDT+Ob4l5+4zoF+OqyddfqeGmIc9upR4W +6A2LvP81poYet3LXJ7WxIJz1dPtlKXVssHhkMVjBgrFNW31Hg9WR9tvr3VA0 +C0ZPBXpG8mtgZ7iHeK4oCxx/xDh+MlmNq6p47X+bMmF8p8ChG4lrkEd5rEPh +QB3xf0WO+2THWtx4TO7n6LYakHyskc38oYm9ky+bNDZXgXJ6vZuJiRb29vft +U5S9DgXr6OJSodr4bLnwaSh3OTxStDaeztVB0ok6d1/uMjBX7sjRfaWLI4YX +bfO+XgVRnpKoHSl6aM+2M+YVLAZSMtnSW0Mfz/5JYKowLoGgul+D+wN9nNg3 +ZlvVUgA6DIX6mO0GyGV9wNGs8RxEDkl2OnEZov2ss3R4cx78mD611bHAEFcH ++h7PMsyBDbr3Cx21jdBDR9/ZezILWqctfv98YoStgV/jfYtPQriWweDzEGOM +tdgW+VjqBDAmgvu9BU3wn9KB7PcNSWCnJr9xVYkJ9pVGXsCleFiTlBnbYWqK +xfldUXsDY0AzhN6mPmiKv90vWY0rHIKQ1t0nbhw0Q7Nid7uYgxEwsX8sxi7K +DI9P+L3K9oyAWJV9e19Fm+FU6+2JJosIyDwa4T4fb4bipz9mOq2MAKZ5NMUy +zQx/yltt8LgUDosNx1s6C80QX7CyuHr3Q179lZkXnWZIozuWRNL3QVtxf/CU +DB0XLD5cjnUKgw8u1IBoeTrOdFl9OmkUBly/9nv/VqRj5ueIlApSGNhs5nfl +o9AxYSa7QG56N9xfYW6qoElHTgdqNV/aDb1BRYLWVnSs5rnbyjUdCoNqe+py +dtFRYDEh1716F8xc//NT9xYdt0zOVwg5BsNnT/vijCY6ShevDCaZBcMA72mH +kdt01OPV8rdaHQy3AxX/Od9OxyGfrMkSvmBIkTc2X3r49/3au5c6doJ4+p6j +j/5HRyyXXDMDO0Er9CVXCLc5mpbKaHJsgmCnerVg4UZztMvQyVgOC4S4Lv89 +Gm7m6DoRdLbFJxByQiR72O7meH7pMf9J50BouXbkVM82cxQuOrbSWjsQpDUc +xJZ2mKOXhtxSznAA3Nf4JB0YbY7drl0Jlj/9QXMNmaJRZI5bWhR7vA22w5Rm +vgl70hxj8t6I2457w0Av2klNm6Mh+iUqvfSG9vCJLVGz5qj0TFh7Zas3ZLMd +D5osmKP2srusZI43aJpz1TTzWCBMePVzG3tDkON+aqesBWaoV9QxUrygP3SD +SL+lBWpfaDzyYO02aCz7/XE23QKnBWrGWVUeYGIb9dMpywIDezrnSQUecPPj +uEjxaQvkWRk0WJjqAWzSkKlTngWq6PvNtQZ6QE1B++krFy1QwSAp/pacBxSf +SqVvqLPASWdr5R3pWyAjSiy3oM8CU7Ked7pHuYPPelW0IFmi+j6bF0VRbrDU +LyDaSbHEOf1VHdrBblAcMvHWSdUS7VqkQh5tcYPPaU0xPmsssdRSokDX0A0i +H26qP2JgicndXdNunzZBputRUqO9JdatsOE799UVmr1eLhpFWKJXA5cLP+9G +UNp/skmn3ZK4b95lSxmOkP1nl3FWhyXaLJZfyjzoCNx59qwv9yzRU9OrXMvb +EcYa+CqLH1riwguH+vo1jtDMdaJAss8S30spjtR3O4DP2aSYuU+W6No6tTFL +xAEKbh8xbhVmoGTp4VHbUnsQcfVmKYoycJs7X+DW0/aQ9MFMO0acgVwtloJx +Mfawm29eTU+GgTIyx6oWne3BdFO0dAmJgTaZhvmfZu3g1XDkdKo+A1PrzQ/S +N9qBjNA+1sZtDMyjqXamCa6HMtuEuElvBpJaijoLp23BICHbNt+PgRsPSR65 +984WXCeZLwd2MNDoxdwtL7YtpL2a/bVzHwPDIr2PpvjZwnxJok1cMgPFEx8s +P7phA4MW+X3l1QyMQs8UVpQ17D5cdsmxjoHre5see+2whrm6myHjTAYGHHU9 +I+VqDZK0gZ/6DQwczI3T61xtDc4CKsp32hl4ovbCKsH/IbT0lwf3vWTgN+fW +AxQHBCfRRu3oAQZO+Gfo/jRGGNjwcE7+LQNT7Lq3fVBFmGn+lu7/gRjX1bfv ++wOgfVWv9t8xBmoOtjXVHARoGbSOPvWdgXI1ZYwEVwAn6S2gO8nAa8W3cg6u +A9h18vDzqFkG/nfXRa3rkxXMtKcVys0zUFRhUU2t0wpSFi7sbF5gYNEzw8Pl +xVYgblSptX2JgTkidrPOx6zgyv7m2T9/GBjsUJAq7WcF/weyEZ/P + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8lt0bAHAZmdl7PMuoZO8Hj+tCZCVJskIiaVASIhlFRsloeDUIkf2M +EhIipWhSSb9UaLySeI0k9Lv76/58P+c559znc1/nuq6HGhThHsLNxcVltoKL +6+9zbujhPbWsMquZyuemBWvXW/VfkT9iPZACjqVf1nQdowHKPA2SH8iDJ4cO +Hyk8ZgDRblWveQZKoPDl96Gjx2xAYkIu79drNlQm3Fm58Zg7vG9xjZh53QE+ +X5T+YyYEgb3a2Lup1y/Auv5xlHt8JPx6bXpu8vUwaGs6bB09mAKdthVlz0um +oWO3cdSESD4ov2/6HKS1BDeXQ/cH/HsRpPcFVPHb8qD04Hz4GpkSyNO3v+26 +VQDDfSe3ykE5vCnQa58SX4Wu6TPD3x5UQlZZ4lNuBQmsDWj+clKrFpyMwiRl +VCXwfWVLy7BZLQjcc9+6WlsCBUSvDRjb1cKJEfW3ztYS+BD/fXtvey0cpfV+ +Phsmge18ds9Ss2shvFh+WaNZAoucrsTnTtTC5kssLWdfSRxLSxlrv14HcmdH +MvIvS2FdUNu3DG4myK+7eWK+XAr35i6uDeBngmJHWuJ2phQOvg17rSfCBNLk +2sOrO6XQsTE24aEME9RdDgTe/iqFX9lan5+uYYIh75LJiKE07rkeXKPnyoRN +UbKjBo+ksWnH9WCr80xwE/46dKFPGmeCFROKC5ngXtL0ZvF/0vhd1W9m+QoT +PJ/5Pb3/g5h/rnCJWcGE7VqlzT4yMnilxz/i30Ym7B3VzU0JlMHD9zVjqgeZ +cNLD0erFnAx+lk8/d1CJBYo3nihyr5BF0fCRcA6ZBXVSHj/1hWURn2fOTaqy +4NULf2YuWRbrVULFArRYoLY5irbZQRa7M339+Rks6NhYtPLZP7JocdhKN307 +C5bsZ588tpRDz5k7Yw4XWZBTHle9ZC+H5109BLmKiPkrudK1N8th7PHPT9gl +LHDpErI+HSKHX35lugpXsaDQlsJxyZbD7KZVKumNLDBD5ws97+VQhTv1M7Of +BYfoVwMepsjjpqVv3G2CbHAqFp1xPiWPl23/U7gpwgYa/9H0J+fkUW6IuatC +jA3P+j1Zfdflsaez5mqSDBt0DojwDD2RRz0OFPNR2fC1PKb8P0UFVA8Wf+Nt +ygY/adfvShwFfD6Za6+1gw2G8beTr7QoIP+HfZ6VO9kgNLxGlnpfAS+Kka/S +drGhqZ4HNN4ooODIiq+Ce9kg69yUo/dHAZfU+m2qo4j9k9WM7JwVcTxyaxj9 +JBvW/1iICx9RRD3y66LUSjYccTireXdcEcsfycYmVbOh7qr2oNScIq76mNgc +U8sGeY9AepOAEqbwuST6stgw3tj1k0dHCW+PHZGab2RDfkpO1D+xSki6YdiW ++oAN3W/Xqo0nK6FxpXDYhodsWDTq7LPKUkKG0PHjfD1s2PVl1mD0shIuXJQS +iXnCBnMX3ymdTiXk5t8cq/uSDcMyGuH3VinjZGmo+txHNshFtKnIySljhKOX +eOIIG1y6vR6HUZTRMjbyEO8nNjTEZWmJGSojg39dGe9XNmS+nxzz9lJG0QvK +rYPf2WBQeTv0R4ky9l396jQ0z4ZQ7q1yNjXKSAlP+KmzwIZLvhP3z95URomi +F2pHf7NhpShVw7xbGZ994ecVWWbDYGTa6InvypjF83Z0BQ8Hki0371A0U8GZ +Gp+b9iIccPC/8p+pjQoyNrSFx6zigGjSt+NbXVRQL7xApkyUA5c6U8tzAlXw +ovEXnSlxDjQ6NX9bmaGCrm0L5T4yHEjcx5+glq+CfvTl4T2yHLDP9hC1uayC +1y3kpGLkOND/fEIvgaWCsX+m3Y8rcGDSSzV6+o0K3ojJDNurwoFbcQf4JUZV +8HJTkL8viQPHLt0p0JlQwfZjG1w3kDkg8mHb7TBuEh6w6qFJUTmwOvQU1wdN +Eua3yjTGqXFgIv1N7pIRCSd5S684qXPgRpWGqhKQ8Mfa9JOyGhywmWi389xC +wspw+eCS1RzwPzyb2RtPrJf4OChTkwPqF2yUx1JJOL/+dLT5Og4RH2dq+XNI +uHnJ5uxnwnGLa5/ZlJGQlhIzZaDNgXPH/WWaekl4a+UV10u6HPC7Vl3+6hUx +XnX5sRZxKWgP5k1nPpAwZnuKfxNhplC+j+4sCUUMhJrv63OgN/dB0TUVMh5x +6YxiG3IgnyOt37majBWH84pUjTjg83JHxwd9Mi4qp47mEP4qvziqZE/Gagfh +uwHGHKg3d4ymu5HxB/cdn7uEo/3O82/zIePua08kySYc4CnW08wLJ6Otre/w +E8KP7ibcro8lY67Q8m+KKQdyRh65PE4ho4qbm1kEYdLqkAiBC2SU/x2gwmXG +gU8ObC6Nq8T611y7bQjX7PmTa1tNxpVemwqTCZvX/XPjWBsZi2zmbk0TXv/6 +ydJENxk3DRbeVKVzwJWLd0PACzL6lGRsdyPstZae8/QtGb+V1zCPEN7pHv4G +PpHxZ99EfRHh8PhSGnOCjGkzFn4dhGPLBvZS5smowU5q+Ej47uc0n24uChqc +rWpbImwfT01M4qMg/U9FrKw5B3rEWkrNhCi4yWj38DrCbmWe3ZOiFIx0e7vE +IPzKbGr8uhQF3zj/1+NC2PdxlsQOeQp6/rqy0Yvwhx0aJgoqFKzg6z8eSHjX +XLvPcyrx+7kTESGEv2X6JmZoULBgXblEKOED5LlS63UUTB/U2vt3fJaT0/1L +l4I1EmIJf+fHOaz7zjKi4NWbtg5/1+d61yWxh05B2eSOx3/3Tz0YaEKzoqA4 +7wlRK8JCK3/7DNpQ0L40WViLcE7hucS8DRSMvnCz6+/5ZHT1ypxcKNg5rmi1 +TJy/sPNRN/dmCvKl1B4eJkz2CvnevJWCVIE9+zsJl43/kTjkQ8EdK1w1rhLW +TC40WRdAzG/fdjWecL2Mse/ITgoGhaW9dydsVPU08eJuCrK+v/moQbjZak/Z +lv0UHBbdUvmT+L73Qou+d0ZTcLvBnawzhB0X6ZJH4ylY1cy57kn4SU6/iVES +BfPHBrMVCb9pEkwqy6DgarGnzQVEfPm7lpX5ZVPw39EK7i2ER4etHkrnU1BR +9aGcEOEJ4SjJ1EvE+YGvLpyI10PFoqaMqxQcsTXQVyY8b1TpO3uNgi8We1Lv +E/HO4z9UFlJPwbSAyAoJwvJMB1P7Dgreb/jxbzJxny6vH/Fdvk/BjjsfZWQJ +094kJDX0UHCAt06pwoAD2tychxovKZiXqNjURtxHGw8VP/6vFHyss9m7h7jP +D77eSmobp+DFWZVIe8IuCe7XYqYoKFYdtL9VhwPbyk9OfFmg4IlbTLFrRD7Y +Nz+V1L2KiqM9ErSNRL4wP7hL9rMkFfvlTgiXEPlFYGywmkeeisLTWzyn13Lg +2tvOV1Y0KlrlNspkreHAUOs5rZsmVCT5Je88Q+SvGlOhjhcWVLyo15X4gMhv +ccxj2yaRilzqAwKLqhyQLQlNWedMxSIfk1AfGgc2pdIHrgZQcWrhbMI4kT9J +y7X724Kp2LdWZK0A4fFoGs+7MCq6n+faSCHybfpuYR35KCqWtTjy2itxoN35 +3fHsdCoWLH/zDiXytYFksm48i4op//RNcosR8Zs1e6+ggYrZUeavPxP14QnP +Hp+G21S0E1rj+oCoH3tn3VOnuqgoQWmcThAi4m9A7W3oIBUFhNodOviI9y3q +TvPgoWGDctfh60R9+rVOfEh7Kw3rGVs/zI6yYe6yYrKhDw3Nqi6IRBP1cUZM +XY0eQMOUDz8Upon6OTFN37M+jIbfF4SHRoaI+np755xPAg1tnoJp8QAbHjnf +Ek2/RsPaeIXMVKI+F+71h+FZYr/zJg2r6tlw4d3u4S8LNJTvvbhKm+gHzm46 +lPr9Dw11RQpiHYl+IdswvWdeUBXvXu89c6SCDSm/WdvESKr4TDJ1sqGIDXuz ++A5Y2qtiG2noS8UZNlhW1xSfP6+KumXl2uH72fCWUl1kd1EV7zS03/Am+pe4 +85VXZopU8fBo8ZBNGBtuJZdfcq9URY63KkU0hKjnXsUFoi2q+KnQLSndjw1r ++c7mpH1UxTNspy+rnIn+JyA+KVpLDS+33pkI1mDDlKRToGeHGtqqyrJyX7Fg +YB/t2Z4Hahjc29l5q48F7fcXILFXDT+Ob4l5+4zoF+OqyddfqeGmIc9upR4W +6A2LvP81poYet3LXJ7WxIJz1dPtlKXVssHhkMVjBgrFNW31Hg9WR9tvr3VA0 +C0ZPBXpG8mtgZ7iHeK4oCxx/xDh+MlmNq6p47X+bMmF8p8ChG4lrkEd5rEPh +QB3xf0WO+2THWtx4TO7n6LYakHyskc38oYm9ky+bNDZXgXJ6vZuJiRb29vft +U5S9DgXr6OJSodr4bLnwaSh3OTxStDaeztVB0ok6d1/uMjBX7sjRfaWLI4YX +bfO+XgVRnpKoHSl6aM+2M+YVLAZSMtnSW0Mfz/5JYKowLoGgul+D+wN9nNg3 +ZlvVUgA6DIX6mO0GyGV9wNGs8RxEDkl2OnEZov2ss3R4cx78mD611bHAEFcH ++h7PMsyBDbr3Cx21jdBDR9/ZezILWqctfv98YoStgV/jfYtPQriWweDzEGOM +tdgW+VjqBDAmgvu9BU3wn9KB7PcNSWCnJr9xVYkJ9pVGXsCleFiTlBnbYWqK +xfldUXsDY0AzhN6mPmiKv90vWY0rHIKQ1t0nbhw0Q7Nid7uYgxEwsX8sxi7K +DI9P+L3K9oyAWJV9e19Fm+FU6+2JJosIyDwa4T4fb4bipz9mOq2MAKZ5NMUy +zQx/yltt8LgUDosNx1s6C80QX7CyuHr3Q179lZkXnWZIozuWRNL3QVtxf/CU +DB0XLD5cjnUKgw8u1IBoeTrOdFl9OmkUBly/9nv/VqRj5ueIlApSGNhs5nfl +o9AxYSa7QG56N9xfYW6qoElHTgdqNV/aDb1BRYLWVnSs5rnbyjUdCoNqe+py +dtFRYDEh1716F8xc//NT9xYdt0zOVwg5BsNnT/vijCY6ShevDCaZBcMA72mH +kdt01OPV8rdaHQy3AxX/Od9OxyGfrMkSvmBIkTc2X3r49/3au5c6doJ4+p6j +j/5HRyyXXDMDO0Er9CVXCLc5mpbKaHJsgmCnerVg4UZztMvQyVgOC4S4Lv89 +Gm7m6DoRdLbFJxByQiR72O7meH7pMf9J50BouXbkVM82cxQuOrbSWjsQpDUc +xJZ2mKOXhtxSznAA3Nf4JB0YbY7drl0Jlj/9QXMNmaJRZI5bWhR7vA22w5Rm +vgl70hxj8t6I2457w0Av2klNm6Mh+iUqvfSG9vCJLVGz5qj0TFh7Zas3ZLMd +D5osmKP2srusZI43aJpz1TTzWCBMePVzG3tDkON+aqesBWaoV9QxUrygP3SD +SL+lBWpfaDzyYO02aCz7/XE23QKnBWrGWVUeYGIb9dMpywIDezrnSQUecPPj +uEjxaQvkWRk0WJjqAWzSkKlTngWq6PvNtQZ6QE1B++krFy1QwSAp/pacBxSf +SqVvqLPASWdr5R3pWyAjSiy3oM8CU7Ked7pHuYPPelW0IFmi+j6bF0VRbrDU +LyDaSbHEOf1VHdrBblAcMvHWSdUS7VqkQh5tcYPPaU0xPmsssdRSokDX0A0i +H26qP2JgicndXdNunzZBputRUqO9JdatsOE799UVmr1eLhpFWKJXA5cLP+9G +UNp/skmn3ZK4b95lSxmOkP1nl3FWhyXaLJZfyjzoCNx59qwv9yzRU9OrXMvb +EcYa+CqLH1riwguH+vo1jtDMdaJAss8S30spjtR3O4DP2aSYuU+W6No6tTFL +xAEKbh8xbhVmoGTp4VHbUnsQcfVmKYoycJs7X+DW0/aQ9MFMO0acgVwtloJx +Mfawm29eTU+GgTIyx6oWne3BdFO0dAmJgTaZhvmfZu3g1XDkdKo+A1PrzQ/S +N9qBjNA+1sZtDMyjqXamCa6HMtuEuElvBpJaijoLp23BICHbNt+PgRsPSR65 +984WXCeZLwd2MNDoxdwtL7YtpL2a/bVzHwPDIr2PpvjZwnxJok1cMgPFEx8s +P7phA4MW+X3l1QyMQs8UVpQ17D5cdsmxjoHre5see+2whrm6myHjTAYGHHU9 +I+VqDZK0gZ/6DQwczI3T61xtDc4CKsp32hl4ovbCKsH/IbT0lwf3vWTgN+fW +AxQHBCfRRu3oAQZO+Gfo/jRGGNjwcE7+LQNT7Lq3fVBFmGn+lu7/gRjX1bfv ++wOgfVWv9t8xBmoOtjXVHARoGbSOPvWdgXI1ZYwEVwAn6S2gO8nAa8W3cg6u +A9h18vDzqFkG/nfXRa3rkxXMtKcVys0zUFRhUU2t0wpSFi7sbF5gYNEzw8Pl +xVYgblSptX2JgTkidrPOx6zgyv7m2T9/GBjsUJAq7WcF/weyEZ/P + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0751099031532888}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0751099031532888}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8lt0bAHAZmdl7PMuoZO8Hj+tCZCVJskIiaVASIhlFRsloeDUIkf2M +EhIipWhSSb9UaLySeI0k9Lv76/58P+c559znc1/nuq6HGhThHsLNxcVltoKL +6+9zbujhPbWsMquZyuemBWvXW/VfkT9iPZACjqVf1nQdowHKPA2SH8iDJ4cO +Hyk8ZgDRblWveQZKoPDl96Gjx2xAYkIu79drNlQm3Fm58Zg7vG9xjZh53QE+ +X5T+YyYEgb3a2Lup1y/Auv5xlHt8JPx6bXpu8vUwaGs6bB09mAKdthVlz0um +oWO3cdSESD4ov2/6HKS1BDeXQ/cH/HsRpPcFVPHb8qD04Hz4GpkSyNO3v+26 +VQDDfSe3ykE5vCnQa58SX4Wu6TPD3x5UQlZZ4lNuBQmsDWj+clKrFpyMwiRl +VCXwfWVLy7BZLQjcc9+6WlsCBUSvDRjb1cKJEfW3ztYS+BD/fXtvey0cpfV+ +Phsmge18ds9Ss2shvFh+WaNZAoucrsTnTtTC5kssLWdfSRxLSxlrv14HcmdH +MvIvS2FdUNu3DG4myK+7eWK+XAr35i6uDeBngmJHWuJ2phQOvg17rSfCBNLk +2sOrO6XQsTE24aEME9RdDgTe/iqFX9lan5+uYYIh75LJiKE07rkeXKPnyoRN +UbKjBo+ksWnH9WCr80xwE/46dKFPGmeCFROKC5ngXtL0ZvF/0vhd1W9m+QoT +PJ/5Pb3/g5h/rnCJWcGE7VqlzT4yMnilxz/i30Ym7B3VzU0JlMHD9zVjqgeZ +cNLD0erFnAx+lk8/d1CJBYo3nihyr5BF0fCRcA6ZBXVSHj/1hWURn2fOTaqy +4NULf2YuWRbrVULFArRYoLY5irbZQRa7M339+Rks6NhYtPLZP7JocdhKN307 +C5bsZ588tpRDz5k7Yw4XWZBTHle9ZC+H5109BLmKiPkrudK1N8th7PHPT9gl +LHDpErI+HSKHX35lugpXsaDQlsJxyZbD7KZVKumNLDBD5ws97+VQhTv1M7Of +BYfoVwMepsjjpqVv3G2CbHAqFp1xPiWPl23/U7gpwgYa/9H0J+fkUW6IuatC +jA3P+j1Zfdflsaez5mqSDBt0DojwDD2RRz0OFPNR2fC1PKb8P0UFVA8Wf+Nt +ygY/adfvShwFfD6Za6+1gw2G8beTr7QoIP+HfZ6VO9kgNLxGlnpfAS+Kka/S +drGhqZ4HNN4ooODIiq+Ce9kg69yUo/dHAZfU+m2qo4j9k9WM7JwVcTxyaxj9 +JBvW/1iICx9RRD3y66LUSjYccTireXdcEcsfycYmVbOh7qr2oNScIq76mNgc +U8sGeY9AepOAEqbwuST6stgw3tj1k0dHCW+PHZGab2RDfkpO1D+xSki6YdiW ++oAN3W/Xqo0nK6FxpXDYhodsWDTq7LPKUkKG0PHjfD1s2PVl1mD0shIuXJQS +iXnCBnMX3ymdTiXk5t8cq/uSDcMyGuH3VinjZGmo+txHNshFtKnIySljhKOX +eOIIG1y6vR6HUZTRMjbyEO8nNjTEZWmJGSojg39dGe9XNmS+nxzz9lJG0QvK +rYPf2WBQeTv0R4ky9l396jQ0z4ZQ7q1yNjXKSAlP+KmzwIZLvhP3z95URomi +F2pHf7NhpShVw7xbGZ994ecVWWbDYGTa6InvypjF83Z0BQ8Hki0371A0U8GZ +Gp+b9iIccPC/8p+pjQoyNrSFx6zigGjSt+NbXVRQL7xApkyUA5c6U8tzAlXw +ovEXnSlxDjQ6NX9bmaGCrm0L5T4yHEjcx5+glq+CfvTl4T2yHLDP9hC1uayC +1y3kpGLkOND/fEIvgaWCsX+m3Y8rcGDSSzV6+o0K3ojJDNurwoFbcQf4JUZV +8HJTkL8viQPHLt0p0JlQwfZjG1w3kDkg8mHb7TBuEh6w6qFJUTmwOvQU1wdN +Eua3yjTGqXFgIv1N7pIRCSd5S684qXPgRpWGqhKQ8Mfa9JOyGhywmWi389xC +wspw+eCS1RzwPzyb2RtPrJf4OChTkwPqF2yUx1JJOL/+dLT5Og4RH2dq+XNI +uHnJ5uxnwnGLa5/ZlJGQlhIzZaDNgXPH/WWaekl4a+UV10u6HPC7Vl3+6hUx +XnX5sRZxKWgP5k1nPpAwZnuKfxNhplC+j+4sCUUMhJrv63OgN/dB0TUVMh5x +6YxiG3IgnyOt37majBWH84pUjTjg83JHxwd9Mi4qp47mEP4qvziqZE/Gagfh +uwHGHKg3d4ymu5HxB/cdn7uEo/3O82/zIePua08kySYc4CnW08wLJ6Otre/w +E8KP7ibcro8lY67Q8m+KKQdyRh65PE4ho4qbm1kEYdLqkAiBC2SU/x2gwmXG +gU8ObC6Nq8T611y7bQjX7PmTa1tNxpVemwqTCZvX/XPjWBsZi2zmbk0TXv/6 +ydJENxk3DRbeVKVzwJWLd0PACzL6lGRsdyPstZae8/QtGb+V1zCPEN7pHv4G +PpHxZ99EfRHh8PhSGnOCjGkzFn4dhGPLBvZS5smowU5q+Ej47uc0n24uChqc +rWpbImwfT01M4qMg/U9FrKw5B3rEWkrNhCi4yWj38DrCbmWe3ZOiFIx0e7vE +IPzKbGr8uhQF3zj/1+NC2PdxlsQOeQp6/rqy0Yvwhx0aJgoqFKzg6z8eSHjX +XLvPcyrx+7kTESGEv2X6JmZoULBgXblEKOED5LlS63UUTB/U2vt3fJaT0/1L +l4I1EmIJf+fHOaz7zjKi4NWbtg5/1+d61yWxh05B2eSOx3/3Tz0YaEKzoqA4 +7wlRK8JCK3/7DNpQ0L40WViLcE7hucS8DRSMvnCz6+/5ZHT1ypxcKNg5rmi1 +TJy/sPNRN/dmCvKl1B4eJkz2CvnevJWCVIE9+zsJl43/kTjkQ8EdK1w1rhLW +TC40WRdAzG/fdjWecL2Mse/ITgoGhaW9dydsVPU08eJuCrK+v/moQbjZak/Z +lv0UHBbdUvmT+L73Qou+d0ZTcLvBnawzhB0X6ZJH4ylY1cy57kn4SU6/iVES +BfPHBrMVCb9pEkwqy6DgarGnzQVEfPm7lpX5ZVPw39EK7i2ER4etHkrnU1BR +9aGcEOEJ4SjJ1EvE+YGvLpyI10PFoqaMqxQcsTXQVyY8b1TpO3uNgi8We1Lv +E/HO4z9UFlJPwbSAyAoJwvJMB1P7Dgreb/jxbzJxny6vH/Fdvk/BjjsfZWQJ +094kJDX0UHCAt06pwoAD2tychxovKZiXqNjURtxHGw8VP/6vFHyss9m7h7jP +D77eSmobp+DFWZVIe8IuCe7XYqYoKFYdtL9VhwPbyk9OfFmg4IlbTLFrRD7Y +Nz+V1L2KiqM9ErSNRL4wP7hL9rMkFfvlTgiXEPlFYGywmkeeisLTWzyn13Lg +2tvOV1Y0KlrlNspkreHAUOs5rZsmVCT5Je88Q+SvGlOhjhcWVLyo15X4gMhv +ccxj2yaRilzqAwKLqhyQLQlNWedMxSIfk1AfGgc2pdIHrgZQcWrhbMI4kT9J +y7X724Kp2LdWZK0A4fFoGs+7MCq6n+faSCHybfpuYR35KCqWtTjy2itxoN35 +3fHsdCoWLH/zDiXytYFksm48i4op//RNcosR8Zs1e6+ggYrZUeavPxP14QnP +Hp+G21S0E1rj+oCoH3tn3VOnuqgoQWmcThAi4m9A7W3oIBUFhNodOviI9y3q +TvPgoWGDctfh60R9+rVOfEh7Kw3rGVs/zI6yYe6yYrKhDw3Nqi6IRBP1cUZM +XY0eQMOUDz8Upon6OTFN37M+jIbfF4SHRoaI+np755xPAg1tnoJp8QAbHjnf +Ek2/RsPaeIXMVKI+F+71h+FZYr/zJg2r6tlw4d3u4S8LNJTvvbhKm+gHzm46 +lPr9Dw11RQpiHYl+IdswvWdeUBXvXu89c6SCDSm/WdvESKr4TDJ1sqGIDXuz ++A5Y2qtiG2noS8UZNlhW1xSfP6+KumXl2uH72fCWUl1kd1EV7zS03/Am+pe4 +85VXZopU8fBo8ZBNGBtuJZdfcq9URY63KkU0hKjnXsUFoi2q+KnQLSndjw1r ++c7mpH1UxTNspy+rnIn+JyA+KVpLDS+33pkI1mDDlKRToGeHGtqqyrJyX7Fg +YB/t2Z4Hahjc29l5q48F7fcXILFXDT+Ob4l5+4zoF+OqyddfqeGmIc9upR4W +6A2LvP81poYet3LXJ7WxIJz1dPtlKXVssHhkMVjBgrFNW31Hg9WR9tvr3VA0 +C0ZPBXpG8mtgZ7iHeK4oCxx/xDh+MlmNq6p47X+bMmF8p8ChG4lrkEd5rEPh +QB3xf0WO+2THWtx4TO7n6LYakHyskc38oYm9ky+bNDZXgXJ6vZuJiRb29vft +U5S9DgXr6OJSodr4bLnwaSh3OTxStDaeztVB0ok6d1/uMjBX7sjRfaWLI4YX +bfO+XgVRnpKoHSl6aM+2M+YVLAZSMtnSW0Mfz/5JYKowLoGgul+D+wN9nNg3 +ZlvVUgA6DIX6mO0GyGV9wNGs8RxEDkl2OnEZov2ss3R4cx78mD611bHAEFcH ++h7PMsyBDbr3Cx21jdBDR9/ZezILWqctfv98YoStgV/jfYtPQriWweDzEGOM +tdgW+VjqBDAmgvu9BU3wn9KB7PcNSWCnJr9xVYkJ9pVGXsCleFiTlBnbYWqK +xfldUXsDY0AzhN6mPmiKv90vWY0rHIKQ1t0nbhw0Q7Nid7uYgxEwsX8sxi7K +DI9P+L3K9oyAWJV9e19Fm+FU6+2JJosIyDwa4T4fb4bipz9mOq2MAKZ5NMUy +zQx/yltt8LgUDosNx1s6C80QX7CyuHr3Q179lZkXnWZIozuWRNL3QVtxf/CU +DB0XLD5cjnUKgw8u1IBoeTrOdFl9OmkUBly/9nv/VqRj5ueIlApSGNhs5nfl +o9AxYSa7QG56N9xfYW6qoElHTgdqNV/aDb1BRYLWVnSs5rnbyjUdCoNqe+py +dtFRYDEh1716F8xc//NT9xYdt0zOVwg5BsNnT/vijCY6ShevDCaZBcMA72mH +kdt01OPV8rdaHQy3AxX/Od9OxyGfrMkSvmBIkTc2X3r49/3au5c6doJ4+p6j +j/5HRyyXXDMDO0Er9CVXCLc5mpbKaHJsgmCnerVg4UZztMvQyVgOC4S4Lv89 +Gm7m6DoRdLbFJxByQiR72O7meH7pMf9J50BouXbkVM82cxQuOrbSWjsQpDUc +xJZ2mKOXhtxSznAA3Nf4JB0YbY7drl0Jlj/9QXMNmaJRZI5bWhR7vA22w5Rm +vgl70hxj8t6I2457w0Av2klNm6Mh+iUqvfSG9vCJLVGz5qj0TFh7Zas3ZLMd +D5osmKP2srusZI43aJpz1TTzWCBMePVzG3tDkON+aqesBWaoV9QxUrygP3SD +SL+lBWpfaDzyYO02aCz7/XE23QKnBWrGWVUeYGIb9dMpywIDezrnSQUecPPj +uEjxaQvkWRk0WJjqAWzSkKlTngWq6PvNtQZ6QE1B++krFy1QwSAp/pacBxSf +SqVvqLPASWdr5R3pWyAjSiy3oM8CU7Ked7pHuYPPelW0IFmi+j6bF0VRbrDU +LyDaSbHEOf1VHdrBblAcMvHWSdUS7VqkQh5tcYPPaU0xPmsssdRSokDX0A0i +H26qP2JgicndXdNunzZBputRUqO9JdatsOE799UVmr1eLhpFWKJXA5cLP+9G +UNp/skmn3ZK4b95lSxmOkP1nl3FWhyXaLJZfyjzoCNx59qwv9yzRU9OrXMvb +EcYa+CqLH1riwguH+vo1jtDMdaJAss8S30spjtR3O4DP2aSYuU+W6No6tTFL +xAEKbh8xbhVmoGTp4VHbUnsQcfVmKYoycJs7X+DW0/aQ9MFMO0acgVwtloJx +Mfawm29eTU+GgTIyx6oWne3BdFO0dAmJgTaZhvmfZu3g1XDkdKo+A1PrzQ/S +N9qBjNA+1sZtDMyjqXamCa6HMtuEuElvBpJaijoLp23BICHbNt+PgRsPSR65 +984WXCeZLwd2MNDoxdwtL7YtpL2a/bVzHwPDIr2PpvjZwnxJok1cMgPFEx8s +P7phA4MW+X3l1QyMQs8UVpQ17D5cdsmxjoHre5see+2whrm6myHjTAYGHHU9 +I+VqDZK0gZ/6DQwczI3T61xtDc4CKsp32hl4ovbCKsH/IbT0lwf3vWTgN+fW +AxQHBCfRRu3oAQZO+Gfo/jRGGNjwcE7+LQNT7Lq3fVBFmGn+lu7/gRjX1bfv ++wOgfVWv9t8xBmoOtjXVHARoGbSOPvWdgXI1ZYwEVwAn6S2gO8nAa8W3cg6u +A9h18vDzqFkG/nfXRa3rkxXMtKcVys0zUFRhUU2t0wpSFi7sbF5gYNEzw8Pl +xVYgblSptX2JgTkidrPOx6zgyv7m2T9/GBjsUJAq7WcF/weyEZ/P + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0751099031532888}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.0751099031532888}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994260026413417*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"ac2e04c9-e38d-4227-86fe-4051f56b32e5"] +}, Open ]], Cell[CellGroupData[{ @@ -11130,66 +11774,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[199]:=",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], + "In[121]:=",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 199, 165, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331752212366*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0105369026250331`*^-150\\\", \ +RowBox[{\\\"1923300736955786005986782\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"110\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"00000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 45, + 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331752212366*^9, 3.994260026476207*^9}, CellLabel-> "During evaluation of \ -In[199]:=",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], +In[121]:=",ExpressionUUID->"cab69902-e520-48ac-bc23-faa234e6a1d6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 199, 166, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133175222237*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.899054980622105`*^-153\\\", \ +RowBox[{\\\"6923882653040829621552417\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"113\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"00000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 46, + 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331752212366*^9, 3.9942600264869423`*^9}, CellLabel-> "During evaluation of \ -In[199]:=",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], +In[121]:=",ExpressionUUID->"7da09d6e-15bd-40c6-850e-4bc99178471c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ -\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ -2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 199, 167, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317522303677`*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.316885567303609`*^-156\\\", \ +RowBox[{\\\"2576376735196492702179654\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"117\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"00000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 47, + 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331752212366*^9, 3.994260026498109*^9}, CellLabel-> "During evaluation of \ -In[199]:=",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], +In[121]:=",ExpressionUUID->"0aa0dccc-b63b-4859-bd07-cbe3d3d2d7d8"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 199, 168, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331752237467*^9}, +during this calculation.\"", 2, 121, 48, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331752212366*^9, 3.994260026507972*^9}, CellLabel-> "During evaluation of \ -In[199]:=",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], +In[121]:=",ExpressionUUID->"b7d44e5f-9ccc-4962-a582-3d67b7876eff"], -Cell[BoxData["9.779568499633264`"], "Output", - CellChangeTimes->{3.991331759108553*^9}, +Cell[BoxData["10.299447204385778`"], "Output", + CellChangeTimes->{3.991331759108553*^9, 3.99426012692627*^9}, CellLabel-> - "Out[199]=",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] + "Out[121]=",ExpressionUUID->"698de743-0789-4221-abd6-96d0f845d615"] }, Open ]], Cell[CellGroupData[{ @@ -11256,68 +11907,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849016830597*^9, - 3.991849020984995*^9}},ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-\ -7a397847208f"], + CellChangeTimes->{{3.991849016830597*^9, 3.991849020984995*^9}}, + CellLabel-> + "In[122]:=",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 200, - 169, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317591425533`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.4521938290642235`*^-214\\\", \ +RowBox[{\\\"1974042190923019415205737\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \\\"06995456000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 122, 49, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317591425533`*^9, 3.994260126988188*^9}, CellLabel-> "During evaluation of \ -In[200]:=",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], +In[122]:=",ExpressionUUID->"b8ff083c-c8bb-4193-abc7-4d4b3241c9a0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 200, - 170, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317591525517`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.0118324744392534`*^-219\\\", \ +RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 122, 50, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317591425533`*^9, 3.994260126997682*^9}, CellLabel-> "During evaluation of \ -In[200]:=",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], +In[122]:=",ExpressionUUID->"51e2ccb0-3664-4ff1-a32c-636ce5641611"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 200, 171, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331759160553*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.6505505630249927`*^-224\\\", \ +RowBox[{\\\"7066407765328259371913031\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"58\\\", \\\"\[RightSkeleton]\\\"}], \\\"82006784000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 122, 51, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317591425533`*^9, 3.994260127006365*^9}, CellLabel-> "During evaluation of \ -In[200]:=",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], +In[122]:=",ExpressionUUID->"d79d1f7e-01c9-4a82-9704-b84f3bb11de4"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 200, 172, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317591685543`*^9}, +during this calculation.\"", 2, 122, 52, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317591425533`*^9, 3.994260127017536*^9}, CellLabel-> "During evaluation of \ -In[200]:=",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], +In[122]:=",ExpressionUUID->"3fa27799-50a6-492c-83fc-bf49de085896"], -Cell[BoxData["1.044718879268698`"], "Output", - CellChangeTimes->{3.991331766558941*^9}, +Cell[BoxData["0.1775378212223371`"], "Output", + CellChangeTimes->{3.991331766558941*^9, 3.994260138397687*^9}, CellLabel-> - "Out[200]=",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] + "Out[122]=",ExpressionUUID->"9976f101-2926-4c7f-b41a-fca64b13d791"] }, Open ]], Cell[CellGroupData[{ @@ -11338,8 +11993,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -11384,68 +12038,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849024657757*^9, - 3.991849027138817*^9}},ExpressionUUID->"22b50200-0b82-dc47-9932-\ -f1f0210d6caf"], + CellChangeTimes->{{3.991849024657757*^9, 3.991849027138817*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 201, - 173, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317665951805`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.4521938290642235`*^-214\\\", \ +RowBox[{\\\"1974042190923019415205737\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \\\"06995456000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 123, 53, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317665951805`*^9, 3.994260138446048*^9}, CellLabel-> "During evaluation of \ -In[201]:=",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], +In[123]:=",ExpressionUUID->"7cb98beb-7ae5-4ff6-9419-1989cd81907c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 201, - 174, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317666041794`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.0118324744392534`*^-219\\\", \ +RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 123, 54, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317665951805`*^9, 3.994260138456511*^9}, CellLabel-> "During evaluation of \ -In[201]:=",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], +In[123]:=",ExpressionUUID->"44b4eb2c-c12a-4dc0-9c4b-32901d8e0e8b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 201, 175, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317666131783`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.6505505630249927`*^-224\\\", \ +RowBox[{\\\"7066407765328259371913031\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"58\\\", \\\"\[RightSkeleton]\\\"}], \\\"82006784000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 123, 55, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317665951805`*^9, 3.994260138465509*^9}, CellLabel-> "During evaluation of \ -In[201]:=",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], +In[123]:=",ExpressionUUID->"7d9e385b-770b-4dbe-bdaf-5b8dc26830c3"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 201, 176, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317666211815`*^9}, +during this calculation.\"", 2, 123, 56, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317665951805`*^9, 3.994260138474238*^9}, CellLabel-> "During evaluation of \ -In[201]:=",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], +In[123]:=",ExpressionUUID->"28394b22-5038-4352-b027-d5d51fb340d6"], -Cell[BoxData["4.7987767072565894`"], "Output", - CellChangeTimes->{3.991331773590704*^9}, +Cell[BoxData["27.988172643410504`"], "Output", + CellChangeTimes->{3.991331773590704*^9, 3.9942601487265787`*^9}, CellLabel-> - "Out[201]=",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] + "Out[123]=",ExpressionUUID->"bc1aa434-352c-4027-9df5-3f9132531212"] }, Open ]], Cell[CellGroupData[{ @@ -11466,8 +12124,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -11512,68 +12169,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849031047804*^9, - 3.9918490341764317`*^9}},ExpressionUUID->"8a5105db-666c-444e-9451-\ -d3e8d1574bcd"], + CellChangeTimes->{{3.991849031047804*^9, 3.9918490341764317`*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 202, - 177, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317736257057`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.4521938290642235`*^-214\\\", \ +RowBox[{\\\"1974042190923019415205737\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \\\"06995456000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 124, 57, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317736257057`*^9, 3.9942601487763863`*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], +In[124]:=",ExpressionUUID->"82e714b9-21c2-41ce-96eb-043345e8b0b7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 202, - 178, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317736361847`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.0118324744392534`*^-219\\\", \ +RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 124, 58, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317736257057`*^9, 3.99426014878474*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], +In[124]:=",ExpressionUUID->"3b385508-fed6-49b9-9981-c4048e23328b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 202, 179, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331773644182*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.6505505630249927`*^-224\\\", \ +RowBox[{\\\"7066407765328259371913031\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"58\\\", \\\"\[RightSkeleton]\\\"}], \\\"82006784000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 124, 59, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317736257057`*^9, 3.994260148792835*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], +In[124]:=",ExpressionUUID->"0762189b-bd9e-4f84-8f59-6ea04b4a16fb"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 202, 180, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331773653183*^9}, +during this calculation.\"", 2, 124, 60, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317736257057`*^9, 3.9942601488018637`*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], +In[124]:=",ExpressionUUID->"d39f936f-1039-4d3a-af11-ff0b1aa7545e"], -Cell[BoxData["15.12281532960454`"], "Output", - CellChangeTimes->{3.991331777337887*^9}, +Cell[BoxData["3.875382501815805`"], "Output", + CellChangeTimes->{3.991331777337887*^9, 3.994260157374134*^9}, CellLabel-> - "Out[202]=",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] + "Out[124]=",ExpressionUUID->"2b7c4378-5176-4836-b86f-0982ae7c9cc9"] }, Open ]], Cell[CellGroupData[{ @@ -11582,22 +12243,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918490375675926`*^9, - 3.991849040901537*^9}},ExpressionUUID->"d0efa798-230b-fa46-b413-\ -76bfd8e40ccb"], - -Cell[BoxData["0.12263596348954131`"], "Output", - CellChangeTimes->{3.9913317773679104`*^9}, + CellChangeTimes->{{3.9918490375675926`*^9, 3.991849040901537*^9}}, CellLabel-> - "Out[203]=",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] + "In[125]:=",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], + +Cell[BoxData["0.017046935846221748`"], "Output", + CellChangeTimes->{3.9913317773679104`*^9, 3.994260157423244*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"3a434e09-608a-46cc-ad20-fcb6d53b2e92"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918490438339844`*^9, 3.991849046673996*^9}, - 3.9919249287922287`*^9},ExpressionUUID->"f842f74e-f562-934a-9011-\ -6604b8708636"], + 3.9919249287922287`*^9}, + CellLabel-> + "In[126]:=",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], Cell[CellGroupData[{ @@ -11620,12 +12282,12 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[205]:=",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], + "In[127]:=",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], -Cell[BoxData["12.368532070745184`"], "Output", - CellChangeTimes->{3.9913317774008274`*^9}, +Cell[BoxData["11.37853269662116`"], "Output", + CellChangeTimes->{3.9913317774008274`*^9, 3.994260157444187*^9}, CellLabel-> - "Out[205]=",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] + "Out[127]=",ExpressionUUID->"c17abcae-67e8-4f5d-89f1-7b3ccf260b7c"] }, Open ]], Cell[CellGroupData[{ @@ -11635,12 +12297,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[207]:=",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], + "In[128]:=",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], -Cell[BoxData["1.0665924029125342`"], "Output", - CellChangeTimes->{3.9913317774358253`*^9}, +Cell[BoxData["1.9253595057512787`"], "Output", + CellChangeTimes->{3.9913317774358253`*^9, 3.9942601574565353`*^9}, CellLabel-> - "Out[207]=",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] + "Out[128]=",ExpressionUUID->"e4e948e0-7acc-4ab1-b9bb-8c888c82ed02"] }, Open ]], Cell[CellGroupData[{ @@ -11650,12 +12312,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[210]:=",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], + "In[129]:=",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], -Cell[BoxData["13.192182341836848`"], "Output", - CellChangeTimes->{3.991331777510603*^9}, +Cell[BoxData["21.907766088941283`"], "Output", + CellChangeTimes->{3.991331777510603*^9, 3.994260157468561*^9}, CellLabel-> - "Out[210]=",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] + "Out[129]=",ExpressionUUID->"c2df5c7d-ae75-4fcc-b3ab-9d04dc57a117"] }, Open ]], Cell[CellGroupData[{ @@ -11845,12 +12507,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[211]:=",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], + "In[130]:=",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], -Cell[BoxData["0.041096786108657246`"], "Output", - CellChangeTimes->{3.991331777537592*^9}, +Cell[BoxData["0.00739449292723`"], "Output", + CellChangeTimes->{3.991331777537592*^9, 3.9942601574848413`*^9}, CellLabel-> - "Out[211]=",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] + "Out[130]=",ExpressionUUID->"ee361062-8635-4e45-881c-91ee1f3f8e33"] }, Open ]], Cell[CellGroupData[{ @@ -11864,12 +12526,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[212]:=",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], + "In[131]:=",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], -Cell[BoxData["4.371605972693579`"], "Output", - CellChangeTimes->{3.9913317776362495`*^9}, +Cell[BoxData["10.306014324144089`"], "Output", + CellChangeTimes->{3.9913317776362495`*^9, 3.994260157668371*^9}, CellLabel-> - "Out[212]=",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] + "Out[131]=",ExpressionUUID->"4d4cf802-87fd-4d0e-b3ff-234e467986ba"] }, Open ]], Cell[CellGroupData[{ @@ -12061,12 +12723,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[213]:=",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], + "In[132]:=",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], -Cell[BoxData["0.013804398425195999`"], "Output", - CellChangeTimes->{3.9913317776511555`*^9}, +Cell[BoxData["0.04371549911282985`"], "Output", + CellChangeTimes->{3.9913317776511555`*^9, 3.9942601576872673`*^9}, CellLabel-> - "Out[213]=",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] + "Out[132]=",ExpressionUUID->"580cb681-8a91-4dc4-89fe-da0bc4ce7527"] }, Open ]], Cell[CellGroupData[{ @@ -12080,12 +12742,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[214]:=",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], + "In[133]:=",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], -Cell[BoxData["7.5428626210616345`"], "Output", - CellChangeTimes->{3.991331777742655*^9}, +Cell[BoxData["4.2386467130968`"], "Output", + CellChangeTimes->{3.991331777742655*^9, 3.99426015787572*^9}, CellLabel-> - "Out[214]=",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] + "Out[133]=",ExpressionUUID->"ebaa5df0-0ec3-437e-bf78-634156cd36ee"] }, Open ]], Cell[CellGroupData[{ @@ -12178,12 +12840,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[215]:=",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], + "In[134]:=",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.9913317777546787`*^9}, +Cell[BoxData["0.08457834250906257`"], "Output", + CellChangeTimes->{3.9913317777546787`*^9, 3.9942601578921337`*^9}, CellLabel-> - "Out[215]=",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] + "Out[134]=",ExpressionUUID->"45bb872f-fcc7-4009-9df6-64d4f5006e0a"] }, Open ]], Cell[CellGroupData[{ @@ -12273,12 +12935,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[216]:=",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], + "In[135]:=",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.991331777779663*^9}, +Cell[BoxData["0.9154216574909375`"], "Output", + CellChangeTimes->{3.991331777779663*^9, 3.994260157910988*^9}, CellLabel-> - "Out[216]=",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] + "Out[135]=",ExpressionUUID->"89573921-0c39-43bb-9fb2-69a0d124e4d2"] }, Open ]], Cell[CellGroupData[{ @@ -12401,12 +13063,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[217]:=",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], + "In[136]:=",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913317778036633`*^9}, +Cell[BoxData["0.07742484648748227`"], "Output", + CellChangeTimes->{3.9913317778036633`*^9, 3.994260157924358*^9}, CellLabel-> - "Out[217]=",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] + "Out[136]=",ExpressionUUID->"021795ef-5cfd-4dcd-b5d0-5d6bf90521c1"] }, Open ]], Cell[CellGroupData[{ @@ -12421,7 +13083,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -12443,8 +13107,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -12468,68 +13131,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918490946810665`*^9},ExpressionUUID->"1dec41a6-6752-2041-9d38-\ -804123b5ccd0"], + CellChangeTimes->{3.9918490946810665`*^9}, + CellLabel-> + "In[137]:=",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 218, 181, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317778296604`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.8151192737804683`*^-208\\\", \ +RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 137, 61, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317778296604`*^9, 3.9942601579481*^9}, CellLabel-> "During evaluation of \ -In[218]:=",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], +In[137]:=",ExpressionUUID->"c3d0ef3a-fef2-401e-a4db-93778f85f701"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 218, - 182, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331777838663*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.195086419825216`*^-213\\\", \ +RowBox[{\\\"7066407765328259371913031\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"58\\\", \\\"\[RightSkeleton]\\\"}], \\\"82006784000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 137, 62, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317778296604`*^9, 3.994260157956636*^9}, CellLabel-> "During evaluation of \ -In[218]:=",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], +In[137]:=",ExpressionUUID->"6affdd54-60eb-4852-94ef-f420d59b3457"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 218, - 183, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317778466587`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.251511342241749`*^-218\\\", \ +RowBox[{\\\"1430947572478972522812388\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"62\\\", \\\"\[RightSkeleton]\\\"}], \\\"63737600000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 137, 63, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317778296604`*^9, 3.994260157965543*^9}, CellLabel-> "During evaluation of \ -In[218]:=",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], +In[137]:=",ExpressionUUID->"cfc22a33-db6d-43f2-a51c-39ebf0ca39e2"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 218, 184, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331777854885*^9}, +during this calculation.\"", 2, 137, 64, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317778296604`*^9, 3.994260157975361*^9}, CellLabel-> "During evaluation of \ -In[218]:=",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], +In[137]:=",ExpressionUUID->"6df728ea-10d6-4cb9-bd03-78709750fdf2"], -Cell[BoxData["4.37160597269358`"], "Output", - CellChangeTimes->{3.991331781456501*^9}, +Cell[BoxData["10.306014324144085`"], "Output", + CellChangeTimes->{3.991331781456501*^9, 3.994260165609097*^9}, CellLabel-> - "Out[218]=",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] + "Out[137]=",ExpressionUUID->"8ef8ba66-c509-4477-8bbe-c1bd6e765625"] }, Open ]], Cell[CellGroupData[{ @@ -12544,7 +13211,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -12566,8 +13235,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -12591,67 +13259,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.99184909912471*^9},ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], + CellChangeTimes->{3.99184909912471*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 219, 185, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331781491499*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.8151192737804683`*^-208\\\", \ +RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 138, 65, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331781491499*^9, 3.99426016566259*^9}, CellLabel-> "During evaluation of \ -In[219]:=",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], +In[138]:=",ExpressionUUID->"5d9a9279-a7cd-470f-9c04-b59beab8bd48"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 219, - 186, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317815004997`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.195086419825216`*^-213\\\", \ +RowBox[{\\\"7066407765328259371913031\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"58\\\", \\\"\[RightSkeleton]\\\"}], \\\"82006784000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 138, 66, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331781491499*^9, 3.994260165672407*^9}, CellLabel-> "During evaluation of \ -In[219]:=",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], +In[138]:=",ExpressionUUID->"ba95c05d-71bd-405d-ad41-acaaa8a2bd7d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 219, - 187, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317815094967`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.251511342241749`*^-218\\\", \ +RowBox[{\\\"1430947572478972522812388\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"62\\\", \\\"\[RightSkeleton]\\\"}], \\\"63737600000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 138, 67, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331781491499*^9, 3.994260165680094*^9}, CellLabel-> "During evaluation of \ -In[219]:=",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], +In[138]:=",ExpressionUUID->"2301dd73-e28e-4927-9903-6a3a9c908948"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 219, 188, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317815164986`*^9}, +during this calculation.\"", 2, 138, 68, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331781491499*^9, 3.994260165688519*^9}, CellLabel-> "During evaluation of \ -In[219]:=",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], +In[138]:=",ExpressionUUID->"8f4bac23-b0ab-4825-aa53-c666f56b1213"], -Cell[BoxData["7.54286262106163`"], "Output", - CellChangeTimes->{3.9913317851500416`*^9}, +Cell[BoxData["4.238646713096796`"], "Output", + CellChangeTimes->{3.9913317851500416`*^9, 3.994260173344081*^9}, CellLabel-> - "Out[219]=",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] + "Out[138]=",ExpressionUUID->"cb61a30e-d612-4219-91ec-60eb9a3dd70e"] }, Open ]], Cell[CellGroupData[{ @@ -12709,93 +13382,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918491043389053`*^9},ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-\ -b799ae260294"], + CellChangeTimes->{3.9918491043389053`*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS -N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS -KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 -CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ -2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ -YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP -oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R -iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx -EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 -ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 -hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF -i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn -tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc -f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 -tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py -d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z -znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw -qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I -gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA -TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge -wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo -+AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg -Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL -IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ -vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj -ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE -7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N -UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h -bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON -R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr -JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ -i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY -nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je -4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J -ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v -x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 -7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX -RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy -e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF -G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI -h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 -8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb -+cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa -5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 -qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL -+sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV -ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 -NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag -mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol -A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO -zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf -1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 -KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr -KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 -4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR -R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x -BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv -fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC -nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q -e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ -sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY -XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 -uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B -CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 -GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl -XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo -+nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb -5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb -4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz -rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw -q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS -xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 -QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI -0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 -r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= - + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk4FV8YB3A7WcqSPWUvQnUvRYvzZqmfLJUkStJ174gkIYkiSlpUSLRJ +hUL2FqKkkoSiEiKyzrVcy8VYSvyOP+aZ5/Oc53znfc85M8+oMY7as/h4eHh6 +8TV/P/bFYHlh3RfTsAsLlLLqSWQ6lGrEsMhCTYWk1bzbk9fGa1q8QhP8IT/n +vYP5WUic/gHFHa2ozMbODwp7L2hRg4TnKuVzsS9WKJSFZX5FuUURFXnYL+uO +3Zuh/UABqWP1Bdj9zVWnTpY0oS01yubPsZV6NPZNmP9CVzf8lSzCth4+ZeJf +8xtVzcWalmCXzvSLBWV2IJUV7dWl2A3h8iEvfLpQ8IeeonfYQ0IW/eO0HhTc +/1DwI7ZQtK8zfZJEb57IF1RjL5VKqjxW0ovOLLMorcO2U554NGTOQX5nyqkW +bOK+upy+yBBak6Kg1okdprU98nDNMLLu0szqxW6Sr18TkMlFxuuJjgls5l4v +z+vRo6gi/s7lWeyRuzwPCnzGkEH8xRtCP0gkoq4vyaVR6NySmEp57Hjm+62S +shPIdTKdq4qt+tg5bNXkBOJTDgnWxTbWOz90pGQKDY1ZPzHFPrT2d02/+Qwq +dUi7eBh7POi4gKj2P2Tw9UreCewzJWIbdURm0QX6mnXnsG+C8ROPmjl0+3aG ++z1sZlqlhV8mL+zt9TBpxM6suN4erswHnqEGriT2CNv1VGw0HxxaUNBJYZ/S +pZ7m+fBD8nKuqFwDrjdXTWOYJggpIk5Ne7Gb6zilsymCsLh04V9vbNXRwr0L +ZYVAse/c6TDsLEO7OP1JIajizX+Qhl3+MpjXu0QEVm6X9pjApt5//91rLg5i ++dvJjEYSSduIS4aUisO00JBkOfbqeguQMJEAha1Lstqwvbqf319jsBAONusa +yjaRyJevZvUmcUnw0VK7HIXdo57DjZyQAr8FvLvDf+L1IaoW1NKloXGs98JD +bL4npJrCMWmINjysX46tSl9mnzkgDVszNleKNJNor3lMwZd2GUgOtLZMxK51 +9/OXr5aFA1Zn939qIVHb46uX3UTkwL74yB0uNmcgMyXDUg7ynOeslH6RSDSg +6/uGMjlAOcrT3tgW5xwM3Z7LA3tmZ7J8K4mKU9dS6cmKUB8RJR7RRqLUnj+B +6wNUwFRG+9iTDhL9tzuqzT9bBb77pq9ow+aUy2zJJlWg7k+omVQniQxT9WRV +nZfCiLdeUhB2OcP1qaDpMiCUU4esu0g0Otx+ovesKrQJsfkEe0gkc8Ti2VNb +dbAJUJ4q6yURmSp6aIeXOpz4ozYzh130q0558Lw6hP+4x0B9JHKx2X9Wu0wd +OBY8e95gp64MtL9F04B7UWdb3/fj5/c/HgmV14RZSGL85pDIwUNMf1uHFny0 +EnR045IIBe6m7fmnBU90+VZnYutGJq9jKmrDrrxPh8axeVLoZqE7taFl8PXE +xVESZbft21PwVhtqmW7nXo7h99MxK1zp4XKo5JZ46E7g+ixsG/oZOvCTe91p +118SpexKbJkM1YEVV64tzMC+yuhoF7ijA1qtERpz2MwzxweWfteBUymOXlkz +JJJ6lcSzy1wXvjm0HhabxeeHPqRborESVl0pQy08bKSsfi3scrceZMhPGL0T +YqNXl8Z1pvn0oUmtW15PmI1cxpzrCTV9yJn57JmAfa9cU8fMVR/EK5P2e4uw +kbpH8bepRn1oSPKKVBFlI92sHi2i2gCUZh81xkuwkYryUkLVeTWUBYUmNC5m +I720APG/iAaPBM7y5WiyEYN5ltK3o4HZf7m8K7XY6KZGXJubCw26R/oY6dj8 +D3PzKoJoMDkdZ52qzUbN9/od4vJpUMgdfn5/BRtdvOmWpKNBh0ODL0ee6LER +ednGwEnIEHSHxyXEjdjogZ/mjuc1RtAYYUuMbWGjukC07lyaCYykaGyX8Gcj +Ndcfdvu9N0EjoVHtm8ZGrLkXOSonAZTVR5K/NbOR/ECRsDzDDMQ/37YrUu5F +AfSNv+J0LSBbiqky4tqLGIMzlTL9ljBwxs9A4XEvyjbzF06u3QqfJn++9Z3p +RanjXm+z4q1Ar9D9ZYl9H5rarPC5PMwaWBoNltcK+1ArDz+346AtvKq/4Tyk +1o98lhyNCdfYDoPmRZMvL/ejHM/KshuRO0DC0lY8RXAABY8pTq703AnGB3ND +FEMHELVti+PHA/YgrcsfVSvMQSb7Yjf37NwFf17PVWgmcNA3xSSvcroDCAbK +2ampDSKlR2dfpa/YDRVH5cadSwdRUbuujZ2EI1i0SRvz7hlCS+tHPAIHHWHy +mX9DI3cI0W/EZqW074G2uxK59ORhlCQwZhD33gkMDCUYleoj6MXmVc2RL52h +jbCXVgsbQTfXXZKaydwLY0ubXB61jKDalrTz9Oh9kGEnKW1K56Lntnc1fc+4 +QMS3mT7adS7iHtnF48PcD633GIHGg1xEbdE5NGTuCqmeEne8LEdR+uDPKf+1 +B6BA2LA+JHUUOT1Ic98v7ga5duUH+WZG0dMC6wP8UW7guMo8bsBpDJkof5u+ +OO0GgnFlfcuzx5BGu0fzV8+D8Ne7V7p4Zgx1ix3efrfrICgWDrhx7MZR3VU7 +9627GbCo4dawTOI4ig9KFjtexwDbgDetkb/H0avSuWl3K3fI6f8+Ja1KoUUu +EEUvdodTWwq6KnZTSHXxx9olr9yhSnaxwgNHCq2usVUQKnWH80sjqoP3UMh+ +476Mprfu8PZtc46eM4XilwRWn/6Ex7v6GJdcKKTU+mRRZZM7nEhQcdF3p5Cm +q/xNl0l3SLk24S/pSyETt6H0SEMmLDd9HWV2gUKPbo34261lgpm1Le8w9uLv +o6byxkwg1nTw3rlIoSHLyfr0DUwIZSUlci9R+PvFw1tjxoRUbx3pW1cotHBS +yll6JxNE2lt0vsZRqPuK0YLkI0ww9W5Q7LlLoaslpzyLHjHBKEmYcyOXQkdo +iSZB6UzYtD8hXDWPQjYZ+QuMM5lAJVvezcQWTSQzCrOZcPP5Y7fX+RSK9NvR +/+IZEzZf5qi3PqXQKR3Nw8/fMeERYX1SsIhCXonV3gVtTLgTM1I79YZCVgvJ +jX7tTLh/+2SrfxmFVkTySNA6mcA963RkCJv0M8rO72FCeu17mc63FDpolzyY +x8HzXwiffP+eQk6C/j65f/B6FJtd9/lIoa3+Sr5Zciw4iTKCWV8o9C75/LY4 +BRaUNn0u+4m9sWZUM0iJBVu8lXxta/F+aVX/NF/KAlGbzwvodRRSbAwxb9Fi +QXir+PLJrxQaWN8qJ2rEgi8uA+OMHxS6xnf/tccuFvSv+mde2YL7XyV+03Y3 +C3jCss/q/ML/NfuC/Oh7WPAys0bnEnbQsx3L5/ay4JiDSIZVK66f4I1NYLDA +6cOOY2/bKESvYjA/HGNBor2nQnwHhRpjtcQ0Ylhwv0178weSQjlI4lBvLAu6 +kx5MS7Bx/uB4efZ1FkS5HNN1xKZZlYcaJ7Kgdq5lvBv7Ko/7qO093M+aoJUz +vRTacvT+z6AsFkRfGFwsNUAhFZULa01zWHDgUoPNTuzxqqPX+fNYUCO6YyYG ++6E2sr36lAV9BRVvF3Io9K+1tSylmAWmS6J6+Acp9MxGOf1LJQuquz6erx+i +0OU/fILxVSwI1IimiQ9TiJHef9C5hgUOsYa7zbElBYqVu2tZwDUWncvF9i5x +ujbdwILOX4VdESMU0tBNCNTsYYGHLtm7cJRCfxpPf+8jWRDz5sTsJuy6SNbq +3F4WHE53vuSNHdph2G/CYcG7XxyBSuzmm9/3bx/D/YkfPhc0RqE4YSnLYF4C +fuT3pb0Zp9Cr0dZ9AfwEnEueie7HZrdm+vkIElAq2vlxMYXPwzOL+4wFBDTt +nTX2wCbdgv5ukyKg6kCIsMAErt/GUtpShoCgjGXROtgb1knrIFkC9h20Y9ph +x0hkOdIVCUgf11mUMD9e/DtfWY2AIdk/tiqTFCLSsiplNQgIM5Dy2YQdE3Py +9yItApScAzpcsElCRkJAhwC3W3zvbs2Py2w9xFlNQOSmcE+xKQoVz8qEkTQC +btiu19DG7ulrv9FuSEDiF9HVgL2+LPh9vTEB/wqbzfywu71zlr4GAq69u23z +BXuhU4hRoRkBwV1+97qwTcz/s8m3IEAgYZ35FPZVxc6Taf8RwLM8IHLZNIWK +BHJjkrcR8EW9S52G3TUc8viWDQGT/XoyFtjGFbI/ruwgIOUTcFjYjPzOgSh7 +AgrW8v84jn3lbi5fhAMBSCVWMhK7089qdaATARUFvGceYEu4ym313UvAO27r +05z5PKuu/V4uBNCrgtaXzM9fdvqyqxsBhXK/0bf5ekS3PXRiEODpkFb6az6P +kntpzySguXRZDDmf19FVa0MQwFli82x4Pq8mj9xyiIAXLitWTs3XV3j6H3gR +EHO9YHxuPv/htsUbvAmQmu2VFP6D86/IrzTyIUCQpypMArszqHvzKl8CwjUd +NstgizPznXT8CGhQOb9bAXvd9tCjGgEExH5wfbUEm7He+rxKID5fS1qPq2JH +aykkyQcR8HEbT4QG9gvJnqdSwQQ8Tv7YroXd8Te/SuwUASWxtLjl8/ns0A7B +UAI6SyFhBfbab9ZTc2EE0Dhczrz/BzUVQeU= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -12809,105 +13483,106 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS -N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS -KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 -CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ -2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ -YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP -oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R -iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx -EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 -ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 -hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF -i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn -tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc -f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 -tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py -d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z -znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw -qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I -gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA -TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge -wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo -+AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg -Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL -IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ -vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj -ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE -7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N -UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h -bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON -R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr -JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ -i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY -nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je -4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J -ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v -x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 -7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX -RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy -e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF -G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI -h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 -8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb -+cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa -5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 -qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL -+sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV -ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 -NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag -mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol -A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO -zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf -1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 -KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr -KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 -4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR -R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x -BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv -fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC -nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q -e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ -sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY -XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 -uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B -CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 -GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl -XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo -+nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb -5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb -4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz -rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw -q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS -xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 -QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI -0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 -r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= - +1:eJwV1nk4FV8YB3A7WcqSPWUvQnUvRYvzZqmfLJUkStJ174gkIYkiSlpUSLRJ +hUL2FqKkkoSiEiKyzrVcy8VYSvyOP+aZ5/Oc53znfc85M8+oMY7as/h4eHh6 +8TV/P/bFYHlh3RfTsAsLlLLqSWQ6lGrEsMhCTYWk1bzbk9fGa1q8QhP8IT/n +vYP5WUic/gHFHa2ozMbODwp7L2hRg4TnKuVzsS9WKJSFZX5FuUURFXnYL+uO +3Zuh/UABqWP1Bdj9zVWnTpY0oS01yubPsZV6NPZNmP9CVzf8lSzCth4+ZeJf +8xtVzcWalmCXzvSLBWV2IJUV7dWl2A3h8iEvfLpQ8IeeonfYQ0IW/eO0HhTc +/1DwI7ZQtK8zfZJEb57IF1RjL5VKqjxW0ovOLLMorcO2U554NGTOQX5nyqkW +bOK+upy+yBBak6Kg1okdprU98nDNMLLu0szqxW6Sr18TkMlFxuuJjgls5l4v +z+vRo6gi/s7lWeyRuzwPCnzGkEH8xRtCP0gkoq4vyaVR6NySmEp57Hjm+62S +shPIdTKdq4qt+tg5bNXkBOJTDgnWxTbWOz90pGQKDY1ZPzHFPrT2d02/+Qwq +dUi7eBh7POi4gKj2P2Tw9UreCewzJWIbdURm0QX6mnXnsG+C8ROPmjl0+3aG ++z1sZlqlhV8mL+zt9TBpxM6suN4erswHnqEGriT2CNv1VGw0HxxaUNBJYZ/S +pZ7m+fBD8nKuqFwDrjdXTWOYJggpIk5Ne7Gb6zilsymCsLh04V9vbNXRwr0L +ZYVAse/c6TDsLEO7OP1JIajizX+Qhl3+MpjXu0QEVm6X9pjApt5//91rLg5i ++dvJjEYSSduIS4aUisO00JBkOfbqeguQMJEAha1Lstqwvbqf319jsBAONusa +yjaRyJevZvUmcUnw0VK7HIXdo57DjZyQAr8FvLvDf+L1IaoW1NKloXGs98JD +bL4npJrCMWmINjysX46tSl9mnzkgDVszNleKNJNor3lMwZd2GUgOtLZMxK51 +9/OXr5aFA1Zn939qIVHb46uX3UTkwL74yB0uNmcgMyXDUg7ynOeslH6RSDSg +6/uGMjlAOcrT3tgW5xwM3Z7LA3tmZ7J8K4mKU9dS6cmKUB8RJR7RRqLUnj+B +6wNUwFRG+9iTDhL9tzuqzT9bBb77pq9ow+aUy2zJJlWg7k+omVQniQxT9WRV +nZfCiLdeUhB2OcP1qaDpMiCUU4esu0g0Otx+ovesKrQJsfkEe0gkc8Ti2VNb +dbAJUJ4q6yURmSp6aIeXOpz4ozYzh130q0558Lw6hP+4x0B9JHKx2X9Wu0wd +OBY8e95gp64MtL9F04B7UWdb3/fj5/c/HgmV14RZSGL85pDIwUNMf1uHFny0 +EnR045IIBe6m7fmnBU90+VZnYutGJq9jKmrDrrxPh8axeVLoZqE7taFl8PXE +xVESZbft21PwVhtqmW7nXo7h99MxK1zp4XKo5JZ46E7g+ixsG/oZOvCTe91p +118SpexKbJkM1YEVV64tzMC+yuhoF7ijA1qtERpz2MwzxweWfteBUymOXlkz +JJJ6lcSzy1wXvjm0HhabxeeHPqRborESVl0pQy08bKSsfi3scrceZMhPGL0T +YqNXl8Z1pvn0oUmtW15PmI1cxpzrCTV9yJn57JmAfa9cU8fMVR/EK5P2e4uw +kbpH8bepRn1oSPKKVBFlI92sHi2i2gCUZh81xkuwkYryUkLVeTWUBYUmNC5m +I720APG/iAaPBM7y5WiyEYN5ltK3o4HZf7m8K7XY6KZGXJubCw26R/oY6dj8 +D3PzKoJoMDkdZ52qzUbN9/od4vJpUMgdfn5/BRtdvOmWpKNBh0ODL0ee6LER +ednGwEnIEHSHxyXEjdjogZ/mjuc1RtAYYUuMbWGjukC07lyaCYykaGyX8Gcj +Ndcfdvu9N0EjoVHtm8ZGrLkXOSonAZTVR5K/NbOR/ECRsDzDDMQ/37YrUu5F +AfSNv+J0LSBbiqky4tqLGIMzlTL9ljBwxs9A4XEvyjbzF06u3QqfJn++9Z3p +RanjXm+z4q1Ar9D9ZYl9H5rarPC5PMwaWBoNltcK+1ArDz+346AtvKq/4Tyk +1o98lhyNCdfYDoPmRZMvL/ejHM/KshuRO0DC0lY8RXAABY8pTq703AnGB3ND +FEMHELVti+PHA/YgrcsfVSvMQSb7Yjf37NwFf17PVWgmcNA3xSSvcroDCAbK +2ampDSKlR2dfpa/YDRVH5cadSwdRUbuujZ2EI1i0SRvz7hlCS+tHPAIHHWHy +mX9DI3cI0W/EZqW074G2uxK59ORhlCQwZhD33gkMDCUYleoj6MXmVc2RL52h +jbCXVgsbQTfXXZKaydwLY0ubXB61jKDalrTz9Oh9kGEnKW1K56Lntnc1fc+4 +QMS3mT7adS7iHtnF48PcD633GIHGg1xEbdE5NGTuCqmeEne8LEdR+uDPKf+1 +B6BA2LA+JHUUOT1Ic98v7ga5duUH+WZG0dMC6wP8UW7guMo8bsBpDJkof5u+ +OO0GgnFlfcuzx5BGu0fzV8+D8Ne7V7p4Zgx1ix3efrfrICgWDrhx7MZR3VU7 +9627GbCo4dawTOI4ig9KFjtexwDbgDetkb/H0avSuWl3K3fI6f8+Ja1KoUUu +EEUvdodTWwq6KnZTSHXxx9olr9yhSnaxwgNHCq2usVUQKnWH80sjqoP3UMh+ +476Mprfu8PZtc46eM4XilwRWn/6Ex7v6GJdcKKTU+mRRZZM7nEhQcdF3p5Cm +q/xNl0l3SLk24S/pSyETt6H0SEMmLDd9HWV2gUKPbo34261lgpm1Le8w9uLv +o6byxkwg1nTw3rlIoSHLyfr0DUwIZSUlci9R+PvFw1tjxoRUbx3pW1cotHBS +yll6JxNE2lt0vsZRqPuK0YLkI0ww9W5Q7LlLoaslpzyLHjHBKEmYcyOXQkdo +iSZB6UzYtD8hXDWPQjYZ+QuMM5lAJVvezcQWTSQzCrOZcPP5Y7fX+RSK9NvR +/+IZEzZf5qi3PqXQKR3Nw8/fMeERYX1SsIhCXonV3gVtTLgTM1I79YZCVgvJ +jX7tTLh/+2SrfxmFVkTySNA6mcA963RkCJv0M8rO72FCeu17mc63FDpolzyY +x8HzXwiffP+eQk6C/j65f/B6FJtd9/lIoa3+Sr5Zciw4iTKCWV8o9C75/LY4 +BRaUNn0u+4m9sWZUM0iJBVu8lXxta/F+aVX/NF/KAlGbzwvodRRSbAwxb9Fi +QXir+PLJrxQaWN8qJ2rEgi8uA+OMHxS6xnf/tccuFvSv+mde2YL7XyV+03Y3 +C3jCss/q/ML/NfuC/Oh7WPAys0bnEnbQsx3L5/ay4JiDSIZVK66f4I1NYLDA +6cOOY2/bKESvYjA/HGNBor2nQnwHhRpjtcQ0Ylhwv0178weSQjlI4lBvLAu6 +kx5MS7Bx/uB4efZ1FkS5HNN1xKZZlYcaJ7Kgdq5lvBv7Ko/7qO093M+aoJUz +vRTacvT+z6AsFkRfGFwsNUAhFZULa01zWHDgUoPNTuzxqqPX+fNYUCO6YyYG ++6E2sr36lAV9BRVvF3Io9K+1tSylmAWmS6J6+Acp9MxGOf1LJQuquz6erx+i +0OU/fILxVSwI1IimiQ9TiJHef9C5hgUOsYa7zbElBYqVu2tZwDUWncvF9i5x +ujbdwILOX4VdESMU0tBNCNTsYYGHLtm7cJRCfxpPf+8jWRDz5sTsJuy6SNbq +3F4WHE53vuSNHdph2G/CYcG7XxyBSuzmm9/3bx/D/YkfPhc0RqE4YSnLYF4C +fuT3pb0Zp9Cr0dZ9AfwEnEueie7HZrdm+vkIElAq2vlxMYXPwzOL+4wFBDTt +nTX2wCbdgv5ukyKg6kCIsMAErt/GUtpShoCgjGXROtgb1knrIFkC9h20Y9ph +x0hkOdIVCUgf11mUMD9e/DtfWY2AIdk/tiqTFCLSsiplNQgIM5Dy2YQdE3Py +9yItApScAzpcsElCRkJAhwC3W3zvbs2Py2w9xFlNQOSmcE+xKQoVz8qEkTQC +btiu19DG7ulrv9FuSEDiF9HVgL2+LPh9vTEB/wqbzfywu71zlr4GAq69u23z +BXuhU4hRoRkBwV1+97qwTcz/s8m3IEAgYZ35FPZVxc6Taf8RwLM8IHLZNIWK +BHJjkrcR8EW9S52G3TUc8viWDQGT/XoyFtjGFbI/ruwgIOUTcFjYjPzOgSh7 +AgrW8v84jn3lbi5fhAMBSCVWMhK7089qdaATARUFvGceYEu4ym313UvAO27r +05z5PKuu/V4uBNCrgtaXzM9fdvqyqxsBhXK/0bf5ekS3PXRiEODpkFb6az6P +kntpzySguXRZDDmf19FVa0MQwFli82x4Pq8mj9xyiIAXLitWTs3XV3j6H3gR +EHO9YHxuPv/htsUbvAmQmu2VFP6D86/IrzTyIUCQpypMArszqHvzKl8CwjUd +NstgizPznXT8CGhQOb9bAXvd9tCjGgEExH5wfbUEm7He+rxKID5fS1qPq2JH +aykkyQcR8HEbT4QG9gvJnqdSwQQ8Tv7YroXd8Te/SuwUASWxtLjl8/ns0A7B +UAI6SyFhBfbab9ZTc2EE0Dhczrz/BzUVQeU= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6044061540843431, - 1.5841467887057727`}}, + "PlotRange" -> {{0, 180}, {0.7134609707393479, + 1.3735741859116044`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6044061540843444}, + "AxesOrigin" -> {0, 0.7134609707393494}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -12919,21 +13594,21 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6044061540843431, - 1.5841467887057727`}}, + "PlotRange" -> {{0, 180}, {0.7134609707393479, + 1.3735741859116044`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6044061540843444}, + "AxesOrigin" -> {0, 0.7134609707393494}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -12947,103 +13622,104 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS -N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS -KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 -CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ -2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ -YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP -oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R -iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx -EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 -ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 -hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF -i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn -tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc -f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 -tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py -d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z -znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw -qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I -gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA -TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge -wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo -+AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg -Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL -IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ -vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj -ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE -7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N -UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h -bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON -R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr -JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ -i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY -nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je -4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J -ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v -x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 -7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX -RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy -e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF -G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI -h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 -8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb -+cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa -5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 -qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL -+sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV -ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 -NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag -mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol -A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO -zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf -1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 -KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr -KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 -4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR -R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x -BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv -fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC -nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q -e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ -sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY -XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 -uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B -CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 -GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl -XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo -+nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb -5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb -4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz -rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw -q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS -xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 -QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI -0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 -r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= - +1:eJwV1nk4FV8YB3A7WcqSPWUvQnUvRYvzZqmfLJUkStJ174gkIYkiSlpUSLRJ +hUL2FqKkkoSiEiKyzrVcy8VYSvyOP+aZ5/Oc53znfc85M8+oMY7as/h4eHh6 +8TV/P/bFYHlh3RfTsAsLlLLqSWQ6lGrEsMhCTYWk1bzbk9fGa1q8QhP8IT/n +vYP5WUic/gHFHa2ozMbODwp7L2hRg4TnKuVzsS9WKJSFZX5FuUURFXnYL+uO +3Zuh/UABqWP1Bdj9zVWnTpY0oS01yubPsZV6NPZNmP9CVzf8lSzCth4+ZeJf +8xtVzcWalmCXzvSLBWV2IJUV7dWl2A3h8iEvfLpQ8IeeonfYQ0IW/eO0HhTc +/1DwI7ZQtK8zfZJEb57IF1RjL5VKqjxW0ovOLLMorcO2U554NGTOQX5nyqkW +bOK+upy+yBBak6Kg1okdprU98nDNMLLu0szqxW6Sr18TkMlFxuuJjgls5l4v +z+vRo6gi/s7lWeyRuzwPCnzGkEH8xRtCP0gkoq4vyaVR6NySmEp57Hjm+62S +shPIdTKdq4qt+tg5bNXkBOJTDgnWxTbWOz90pGQKDY1ZPzHFPrT2d02/+Qwq +dUi7eBh7POi4gKj2P2Tw9UreCewzJWIbdURm0QX6mnXnsG+C8ROPmjl0+3aG ++z1sZlqlhV8mL+zt9TBpxM6suN4erswHnqEGriT2CNv1VGw0HxxaUNBJYZ/S +pZ7m+fBD8nKuqFwDrjdXTWOYJggpIk5Ne7Gb6zilsymCsLh04V9vbNXRwr0L +ZYVAse/c6TDsLEO7OP1JIajizX+Qhl3+MpjXu0QEVm6X9pjApt5//91rLg5i ++dvJjEYSSduIS4aUisO00JBkOfbqeguQMJEAha1Lstqwvbqf319jsBAONusa +yjaRyJevZvUmcUnw0VK7HIXdo57DjZyQAr8FvLvDf+L1IaoW1NKloXGs98JD +bL4npJrCMWmINjysX46tSl9mnzkgDVszNleKNJNor3lMwZd2GUgOtLZMxK51 +9/OXr5aFA1Zn939qIVHb46uX3UTkwL74yB0uNmcgMyXDUg7ynOeslH6RSDSg +6/uGMjlAOcrT3tgW5xwM3Z7LA3tmZ7J8K4mKU9dS6cmKUB8RJR7RRqLUnj+B +6wNUwFRG+9iTDhL9tzuqzT9bBb77pq9ow+aUy2zJJlWg7k+omVQniQxT9WRV +nZfCiLdeUhB2OcP1qaDpMiCUU4esu0g0Otx+ovesKrQJsfkEe0gkc8Ti2VNb +dbAJUJ4q6yURmSp6aIeXOpz4ozYzh130q0558Lw6hP+4x0B9JHKx2X9Wu0wd +OBY8e95gp64MtL9F04B7UWdb3/fj5/c/HgmV14RZSGL85pDIwUNMf1uHFny0 +EnR045IIBe6m7fmnBU90+VZnYutGJq9jKmrDrrxPh8axeVLoZqE7taFl8PXE +xVESZbft21PwVhtqmW7nXo7h99MxK1zp4XKo5JZ46E7g+ixsG/oZOvCTe91p +118SpexKbJkM1YEVV64tzMC+yuhoF7ijA1qtERpz2MwzxweWfteBUymOXlkz +JJJ6lcSzy1wXvjm0HhabxeeHPqRborESVl0pQy08bKSsfi3scrceZMhPGL0T +YqNXl8Z1pvn0oUmtW15PmI1cxpzrCTV9yJn57JmAfa9cU8fMVR/EK5P2e4uw +kbpH8bepRn1oSPKKVBFlI92sHi2i2gCUZh81xkuwkYryUkLVeTWUBYUmNC5m +I720APG/iAaPBM7y5WiyEYN5ltK3o4HZf7m8K7XY6KZGXJubCw26R/oY6dj8 +D3PzKoJoMDkdZ52qzUbN9/od4vJpUMgdfn5/BRtdvOmWpKNBh0ODL0ee6LER +ednGwEnIEHSHxyXEjdjogZ/mjuc1RtAYYUuMbWGjukC07lyaCYykaGyX8Gcj +Ndcfdvu9N0EjoVHtm8ZGrLkXOSonAZTVR5K/NbOR/ECRsDzDDMQ/37YrUu5F +AfSNv+J0LSBbiqky4tqLGIMzlTL9ljBwxs9A4XEvyjbzF06u3QqfJn++9Z3p +RanjXm+z4q1Ar9D9ZYl9H5rarPC5PMwaWBoNltcK+1ArDz+346AtvKq/4Tyk +1o98lhyNCdfYDoPmRZMvL/ejHM/KshuRO0DC0lY8RXAABY8pTq703AnGB3ND +FEMHELVti+PHA/YgrcsfVSvMQSb7Yjf37NwFf17PVWgmcNA3xSSvcroDCAbK +2ampDSKlR2dfpa/YDRVH5cadSwdRUbuujZ2EI1i0SRvz7hlCS+tHPAIHHWHy +mX9DI3cI0W/EZqW074G2uxK59ORhlCQwZhD33gkMDCUYleoj6MXmVc2RL52h +jbCXVgsbQTfXXZKaydwLY0ubXB61jKDalrTz9Oh9kGEnKW1K56Lntnc1fc+4 +QMS3mT7adS7iHtnF48PcD633GIHGg1xEbdE5NGTuCqmeEne8LEdR+uDPKf+1 +B6BA2LA+JHUUOT1Ic98v7ga5duUH+WZG0dMC6wP8UW7guMo8bsBpDJkof5u+ +OO0GgnFlfcuzx5BGu0fzV8+D8Ne7V7p4Zgx1ix3efrfrICgWDrhx7MZR3VU7 +9627GbCo4dawTOI4ig9KFjtexwDbgDetkb/H0avSuWl3K3fI6f8+Ja1KoUUu +EEUvdodTWwq6KnZTSHXxx9olr9yhSnaxwgNHCq2usVUQKnWH80sjqoP3UMh+ +476Mprfu8PZtc46eM4XilwRWn/6Ex7v6GJdcKKTU+mRRZZM7nEhQcdF3p5Cm +q/xNl0l3SLk24S/pSyETt6H0SEMmLDd9HWV2gUKPbo34261lgpm1Le8w9uLv +o6byxkwg1nTw3rlIoSHLyfr0DUwIZSUlci9R+PvFw1tjxoRUbx3pW1cotHBS +yll6JxNE2lt0vsZRqPuK0YLkI0ww9W5Q7LlLoaslpzyLHjHBKEmYcyOXQkdo +iSZB6UzYtD8hXDWPQjYZ+QuMM5lAJVvezcQWTSQzCrOZcPP5Y7fX+RSK9NvR +/+IZEzZf5qi3PqXQKR3Nw8/fMeERYX1SsIhCXonV3gVtTLgTM1I79YZCVgvJ +jX7tTLh/+2SrfxmFVkTySNA6mcA963RkCJv0M8rO72FCeu17mc63FDpolzyY +x8HzXwiffP+eQk6C/j65f/B6FJtd9/lIoa3+Sr5Zciw4iTKCWV8o9C75/LY4 +BRaUNn0u+4m9sWZUM0iJBVu8lXxta/F+aVX/NF/KAlGbzwvodRRSbAwxb9Fi +QXir+PLJrxQaWN8qJ2rEgi8uA+OMHxS6xnf/tccuFvSv+mde2YL7XyV+03Y3 +C3jCss/q/ML/NfuC/Oh7WPAys0bnEnbQsx3L5/ay4JiDSIZVK66f4I1NYLDA +6cOOY2/bKESvYjA/HGNBor2nQnwHhRpjtcQ0Ylhwv0178weSQjlI4lBvLAu6 +kx5MS7Bx/uB4efZ1FkS5HNN1xKZZlYcaJ7Kgdq5lvBv7Ko/7qO093M+aoJUz +vRTacvT+z6AsFkRfGFwsNUAhFZULa01zWHDgUoPNTuzxqqPX+fNYUCO6YyYG ++6E2sr36lAV9BRVvF3Io9K+1tSylmAWmS6J6+Acp9MxGOf1LJQuquz6erx+i +0OU/fILxVSwI1IimiQ9TiJHef9C5hgUOsYa7zbElBYqVu2tZwDUWncvF9i5x +ujbdwILOX4VdESMU0tBNCNTsYYGHLtm7cJRCfxpPf+8jWRDz5sTsJuy6SNbq +3F4WHE53vuSNHdph2G/CYcG7XxyBSuzmm9/3bx/D/YkfPhc0RqE4YSnLYF4C +fuT3pb0Zp9Cr0dZ9AfwEnEueie7HZrdm+vkIElAq2vlxMYXPwzOL+4wFBDTt +nTX2wCbdgv5ukyKg6kCIsMAErt/GUtpShoCgjGXROtgb1knrIFkC9h20Y9ph +x0hkOdIVCUgf11mUMD9e/DtfWY2AIdk/tiqTFCLSsiplNQgIM5Dy2YQdE3Py +9yItApScAzpcsElCRkJAhwC3W3zvbs2Py2w9xFlNQOSmcE+xKQoVz8qEkTQC +btiu19DG7ulrv9FuSEDiF9HVgL2+LPh9vTEB/wqbzfywu71zlr4GAq69u23z +BXuhU4hRoRkBwV1+97qwTcz/s8m3IEAgYZ35FPZVxc6Taf8RwLM8IHLZNIWK +BHJjkrcR8EW9S52G3TUc8viWDQGT/XoyFtjGFbI/ruwgIOUTcFjYjPzOgSh7 +AgrW8v84jn3lbi5fhAMBSCVWMhK7089qdaATARUFvGceYEu4ym313UvAO27r +05z5PKuu/V4uBNCrgtaXzM9fdvqyqxsBhXK/0bf5ekS3PXRiEODpkFb6az6P +kntpzySguXRZDDmf19FVa0MQwFli82x4Pq8mj9xyiIAXLitWTs3XV3j6H3gR +EHO9YHxuPv/htsUbvAmQmu2VFP6D86/IrzTyIUCQpypMArszqHvzKl8CwjUd +NstgizPznXT8CGhQOb9bAXvd9tCjGgEExH5wfbUEm7He+rxKID5fS1qPq2JH +aykkyQcR8HEbT4QG9gvJnqdSwQQ8Tv7YroXd8Te/SuwUASWxtLjl8/ns0A7B +UAI6SyFhBfbab9ZTc2EE0Dhczrz/BzUVQeU= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + "PlotRange" -> {{0, 180}, {0.7134609707393479, 1.3735741859116044`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6044061540843444}, + "AxesOrigin" -> {0, 0.7134609707393494}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13053,7 +13729,8 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.6044061540843444}, + AxesOrigin->{0, 0.7134609707393494}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -13081,7 +13758,8 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.7134609707393479, 1.3735741859116044`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -13089,9 +13767,9 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913320330871353`*^9}, + CellChangeTimes->{3.9913320330871353`*^9, 3.994260677124591*^9}, CellLabel-> - "Out[220]=",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] + "Out[139]=",ExpressionUUID->"2dd30d93-275e-4c67-a64b-5319b4597d3f"] }, Open ]], Cell[CellGroupData[{ @@ -13106,7 +13784,9 @@ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -13128,8 +13808,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -13154,205 +13833,175 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.9918491076725483`*^9, - 3.9918491120260525`*^9}},ExpressionUUID->"cbec275e-4d01-7747-9ece-\ -7fa9a2a651b1"], + CellChangeTimes->{{3.9918491076725483`*^9, 3.9918491120260525`*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2976471457269651`*^-270\\\", \ + "\"\\!\\(\\*FractionBox[\\\"8.935169250748186`*^-271\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 221, - 189, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991332033325203*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 69, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991332033325203*^9, 3.9942606773019238`*^9}, CellLabel-> "During evaluation of \ -In[221]:=",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], +In[140]:=",ExpressionUUID->"2924b317-5fb1-41a4-a587-f2b42d2e22d3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.376858869110442`*^-282\\\", \ + "\"\\!\\(\\*FractionBox[\\\"5.001098396161791`*^-282\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 221, 190, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913320333342056`*^9}, + 140, 70, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991332033325203*^9, 3.994260677310899*^9}, CellLabel-> "During evaluation of \ -In[221]:=",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], +In[140]:=",ExpressionUUID->"2b0729b3-9a59-4d29-b658-0ad37a9f254c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.193593532260836`*^-293\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.7991618811247194`*^-293\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 221, 191, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991332033342205*^9}, + 2, 140, 71, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991332033325203*^9, 3.9942606773192377`*^9}, CellLabel-> "During evaluation of \ -In[221]:=",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], +In[140]:=",ExpressionUUID->"082279f4-fafd-4460-85a6-c56955980f22"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 221, 192, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991332033351204*^9}, +during this calculation.\"", 2, 140, 72, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991332033325203*^9, 3.994260677328083*^9}, CellLabel-> "During evaluation of \ -In[221]:=",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], +In[140]:=",ExpressionUUID->"6669a368-bda4-4908-8519-6bdb51ed65ff"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK -SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx -/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr -12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI -64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs -Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ -g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q -LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o -2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL -6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u -nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr -t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 -MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 -eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M -qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD -y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ -1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh -a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk -LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz -5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 -bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg -PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx -ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg -RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 -Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab -+LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l -8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm -JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 -Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk -7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar -LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 -KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR -zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e -aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ -EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr -xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ -lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh -7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX -jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw -Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 -VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK -wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I -3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h -YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS -a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG -+Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk -30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE -aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ -gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk -pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 -/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 -BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB -DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm -Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU -mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg -srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa -elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp -F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR -vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO -p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe -zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y -c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS -5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD -ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF -aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX -oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD -KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE -ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv -XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y -HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T -SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol -DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN -kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK -J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 -XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw -YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl -49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi -hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV -sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 -NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR -P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy -r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ -sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp -3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L -TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG -cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU -XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB -oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX -flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N -Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j -GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 -8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ -lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr -MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC -ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi -z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq -frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T -VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda -R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a -d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP -cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 -ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ -2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM -uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B -8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 -SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV -rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw -u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B -jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO -FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz -oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE -zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 -hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb -QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe -htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b -gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr -CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d -3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V -Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr -t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS -d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ -TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb -EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK -Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ -KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb -vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU -/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 -JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG -bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD -VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 -0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z -j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ -z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 -dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs -D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ -M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ -3z9DIQ== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c81d8bAHDREKXszedeI0lkz+t5InsUZYaQkZEoISOjaBiRSmkYISXc ++zHKqHxJRZq2IknjJ4msFF+/z/ev+3q/zj3n3s85z3Oe50PzPmTvy87GxrZ1 +BRvbf59zQ22PZVOLDPN3T040hRkbdt0QOba9LwnWbCHKaT00QMFX3iJ95+Hf +hJs5v7tVIWLXnV6OvkJQ11vv8b57O/BOCJ9f6CUh6atCSmW3HXxotD0009sM +i363t0l1e4Gp7NjgVO9b6FRdyTX2NgwWerUvTvaOAPsgo1i2PRFajG8VvSmc +hoUZRV5Fr/Mg8aHui7fSEtjwOhyjT+WCQPC+O2uMObD4ZEqFa2QBnFc1bbB1 +4ERjq95s2aRi6L+8rWlq43oUbYqq6JkuhdSi+Ffsorz4dZWqXrrpXbDUCOAT +lOFF0W4hR5b9XeB8bO+waSsv1nYoqL/0uAsnP8m9s9rOi1y7uzf9irgLsfSO +LxcCeDFATOzBSMldCMkX+Ve+nhefHnhU6bOqHOyusZSs9vKh9eZ88cHGchC+ +8OlM9nV+3DSsG6spWAkiW2pO/i7hx56awLo2qUoQa06Jd2fyo8uVMXRSqASp +yc1HN7XwY+y8oKKHfiXIWYd6NnzjxxSa4w5xr0pQX7mk9UldAO32bcu1K6uE +neFCo2rtAtgh7Vq2W5IJu7i/DeV0CiBPVIEHi8YE+8K6/sX3Angh2b6EW54J +jq/dXj35KYA3TBSnapSZ4K50s95VUBAXOeIPfAQmBI2qZCV5CqJ8pXRCthcT +Tu2xMHw7J4gHyrmLvQqZIFb9Uox9hRAapeycKS5hQgX/nnlVbiEMgSmVL3eY +0PPWg5klLYRZOi8CXauYIGsXTrczF8Ko+IZR3sdMaLbJW/36ihDePxp+vXGU +CUumsy9fGAijwyozkWU6CzJLosuWTIWR27HMqUmeBbKr2U5vtRNG73NJ0XGK +LLBu5dqe7iuMGdb9Ad9VWZBrTFRZZwhjpkXl2EVkgQ5a5Tz/IIwv2BId5dxZ +cES3YF9bkggG3VmlvTWbBZb5PDNWaSLI7SbKUr/EAvqa2NMvL4rgx56abK0r +LHjd5cjqLBXBY5h3XjWPBcqh6ziGXoqgzTHeqMU7LPhWElnyS0wULcQsxj// +wwI3Adsf4lWiuDb+Ew/nDxaoxzQk3mgUxdkXGg1Xf7KAa0RBiPZEFDs6V3Ru ++cWCukoOkO8XxS3jDSbb51kgZFWXuW1ZFDWPlBlsX0HC60RZDRMrMax0F712 +UYCEHT//RId8EsMeZbv6LB0SjplfUPxnXAwnjVekl+qRUFGwdYB/TgyjLBXn +GgxIENnjqVvHKY5Fy3zpfUjC+P3WeQ5lcfyyq6z7mzkJ2UmZ4VeixLFDv1rE +z5mEZ+82y44niuPNwxpRpq4kLGq0dBqmiuPjvbuPyLiR4Pd1Vm30ujgOKw0w +OveRoGe9d0q5RRwn7QyVufxJGBGUD3m8XgJlruu/6Q4nQfjQI0lhYQn0n4sR +ToggwfqZ84sAQgJ7nJKW5aNIqI1OVdqgLoHFpem1gTEknP0wOebiLIFnk9M6 +2hJJULvd4P+zUAJ7Fzv+fEknIdHAzktMRxLPZf25lX+TBHOPG7+0jSRxv+TQ +mr9FJPAkfD/hYC2J1cXMJLsSEq61JJdkekpiQtnI81+lJNy3rP+++owkHjFj +b1pdQcKks0zEdL8kBp/PfRV+j4R70aFreEcl8atvlnrWfRKOX3twWXlCEi/m +cT28XUfCumGnhgB2KVwnetHiVQMJm/zT2IYVpdBMv3XX+CMSPI7Onu2IkUKr +NUfehDwlQS7HSGIsWQpXuQgu2jz7b//Pla/JlML5Sm7XzW0kRC9ufm1UJIV7 +DXdXdbWTcPGEh2BdhxT2OShML70gwa24rKSnRwo5RwxeP3xJAv3pb+2ZYSls +XUr8GvOKBCZXtqvKrBQqXaE/G3tNQkfW07xiSWlkPs0LvNpJnW+VgGrLJmn8 +scCnZthFgmu3V/OwqjTmHh7SG6T8TWRxVNxUGj9uUBDY2EMCR/42xfMh0hjA +EbRs3kdC+z9xDZVR0njZI+77C8qZn9qtXyRJ4yUPF2JnPwlSm3wPceZIo/1J +gwOmA1Q8VFypPv5IGp3KslI531Px2vtyaeKZNBY+L1sXQNmWbaXZvrfU+i4m +zk8o77cP6YfP0vjsrqJ95CAJITE36cwJaRw8zsf+nHJUUV8Q8Vsad/aw4sWH +SDCNocUnrCIww9L5K0n5+YbGmzpcBG7jZe9coLyryPHZJA+BZGXpOcYHEva+ +SOX1EiHw4HO9+AbKw17yWqKSBJbFvaqapew31+T6hkZgU2hVo9IwCaHScze3 +byGw7eBj2yzKs1WZzxZUqHG5gv6HlKPNt/xgaRAYcEzJ4H+U2QZbeQN1CVxA +jNz4kYTkME8tuiGBY8S9VA3KXKv/ug4YEehxJjjagXJm7sX482YEXqwx2HGE +sqDKtiJLawKty1aOpVPObWl/xm5HoKZeYXAxZWln3x/1DgS6/53uqKNcNL7M +e8SVmr+rn/s5ZcXEXK0t+wgc3K+m2E+5UlBz76f9BPbKDyuMUta48yr+6gEC +Fewfc45TrjcMLNp9kMBRn3/aJylD58o27sME/r1Zf+gX5cf+eT9aIggsEL3w ++79xi0VdvtgYAh9cUPP7b/7LzC4tjQQCjUtj6v5bf4/cob3jJwlk3XGY/u/3 +++vWJhSdITC05pZAB2UP26IitwwClYtcpBooj44YtglkE+gjsIf3FuWAyP4f +HTkElvgkTJyjPMEdzpd8jUDB6me1RykfyefRZhQQ2PpROMiZ8m+N23tni6nn +SXNZp0P5eJtxQvkdAkM2Rl8VoMzhMVTkW0ng3Bk/0QnqfE7/imqTrCaw6s26 +U48p85zin+i+T2By3N7POZRFmObaps0EuqxmRmpSvr7j095/nxB4o/5S+TIV +H/T+uITa5wQ6JXztfUJ5K3tVm3w3gWmTmeutKZOXbCaG+gkUNnotxkVZZ8s3 +vpwhAqemTIlWKh6N9ki6rflGoGhhpbAa5aff7iU8GidwZFUG9ygV39Zx9sWR +UwS+TY/9e56yU8mpia9/COy/Htj5lcqP4N9TCc/W0/CgbM/xg++o/ArzE/rC +R0PPrv66f6l84xwbKOMQoWH4avkjaZSL37X0GNJpqMVR7Hudys+hhxeVarRo +OFrx4uBFqu+6q83V/Fafhtv58h5yUY5mHneaRBq+SP6eE0vlv1Chf9IWKxoe +SyP+59BNws5k3b6CfTQU7XJV/PCWyvd/yw8+8qGh3F/3TzqUxyPoHIMBNJyt +s1A594ba7wPcyiLhNPw1SE9Wpe6jJqvBExmnaXg0aKWtDXWfqfElqsSwaHi6 +9VbCyBMqf1JnH1+upWEXexjnasovOQJdaxtoWOBzS0e+lYSgWfvkqVYafjg1 +kOPWQsV/n+w7/wEaZmiuiCqg7luhvGcpezjoWNCtPp9G3d+jwgyJw5x09Ob2 +uhtTS51PJot1bj0d64IcCP8a6nmSct+3C9Mx97uJpUYV9X99g9W2K9GRdXXX +y1tUPVjYsnFoqwMdn3a/75+h6sncdbFEdVc6njNVlq6l6s3MBjlZ3X10zC9v +cAovpOJ1WjdwRwAds8bFSr/mUfWvYf+caxwd6R84ftzOpe5Pq3s8p4vpyC3h +Y3TjHJXfQR4wMkutf3IP/65IEnIGD4x8/UN9f2zzcfIoCRd2Hkn+sUxHB5Wp +tXxU/cxQP/3891oZ7M1WP/sslOqb/7KcNkjJ4AxXvSN/ILU/qatCDUxl0K2S +HkSj6rNB2d38S5dk8NiC6PxmQxLeEWV5JldlMN2Hw9GB6geiL92+MZMng+Vx +6vuOU/3CvcSSa/a3ZfA5y/1omxZ1Ps75l3kaZZAWV9JprELC5lUXMlM+yuCp +t7GH2qWp/d4XkxChJIvFivyTm5ZZMMVn6enYLIufI1I8gu6xoC+Y/jrwqSx2 +vDh/v7eaBU1P/kB8hyzqK16u2k5S/Vx0mXRpjyxWf9DK5ilnwbaRdR8WxmTx +wdXQTWmFLAhhvXK/zi+HZqXLoiLpLBjb6bB31EcOSX6N0eOeLBhN83Q8vEYe +bTXHTnxhY4HFz0iLz1qb8MYD5+AtekwY3895pDpeAQU+aep8vlBBvU8Is59q +3oy1WV56rVfuAt8L+QzmT0VsnN7BtansDkicrtylpaWEkaEfrDNSSuHyFt2N +/P5bsZ67KEb0ZAm0i23XnM5SxvL1Zd/3ZRWBnkRzpkqPCmqacy/xJRUCD0dh +uFfSNjT5892+rjQfpBKlDVzkVbFnhO/AvaTrsFbOrdb+qSpK//28tnpFLigz +RCsj3dWwzLSjL23+Ehwe4muxZFPHosiPve0T2fBzOs3B4rI62lm9OsvhmgVm +Kk9yLbZq4Lh1YU2DRAY8nNb/O/9SA0f3uWaLF5+BECW1gTe+mhjequA6PZkM +jAmfLpe1WpiQpcJ7xz8JTGRFbNYXaqG7vVz4Ne54UEg4G9WsrY1GCulnC6Si +QdFX95HcgDYmrrM4EXryKPg+PHCyOkwHhbxPP3DtD4OJg2ORJuE6yLGof5rZ +HgZRksFBPRE6+GAzHtnYGAZnYw/Z/47RwZD+5osTN8KAqRdBGKTooMjVq3Ey +vmGwWHuisSVXByvOlnsHTYfC+cobM29bdDA/TnnFLuFQeJTf5TMlqIuyG8Id +b80Fw7A1bV+EiC7GrGTIpwwFA9vCQZe/Yrp49VoCX8STYDCyW2O7itDFuM03 +xc9cCoYnK/S0RRV1sTVtxc9o7WDo8M5bu91QF+fM+i4lxwbBgGxgRaafLh5O +Js3n+QJhpnR5XuWeLrbtcpl3POQPXxxN88/U6SK7WMfxc27+0Lcy3fxTgy5V +794vdFn4Q4On2JVLTboocGa8IkXWH5JENPWW2nSxZHWn3ckBP9h4OjC2/b0u +et5tCBgx9wMl/242X3Y9NP7E82RB2Rf2y5WtzbXRQ824h1ri0vshutUjUH6X +Hh54nHZpDc9+yPTle07a6+FzXU6tFUve0Fh8LO25kx4KNSvwS7zzBgF58w1L +Xnpo9/eO588cb3gi/1nAM0IP6/fc3rRKwBsUFaQJ+Tw9nH2ox1Yj6AVTitla +5KQehvcKLvZHe0BfB5rwT+vh/vD7FUxPD2gKmdgdPquHTjapG6+aekAGaRGm +9UcPrbh9WXf4PEBRj+1uPYc+Ls6HCVWXuYO3xUFai5A+Hgqy+uXz0Q26/M3W +dRnoI01TXXDcdS/cL/r7cfa0Po6vHTZfe9IZtIzD5y1T9dHsbbjq+xBnqPk4 +vi4/XR9LecKMHrk4Ayk1pG15Xh+nkyqra1Sc4e7lpvQbV/XxYmVlo/d7J8hP +S9Y1q9DHAbn52GodJzgTviHrcic1v4b/4eSiA7jukEF9KQM8t9eJq4y1G5a6 +OHlaCAPM0Z+/9ejGbsj3nXhnKWOAtapE6GjqbviSUhfpqmCAWUsn7Tz8dsPh +tp2Vx9QMUHdAS4BPYjectY2Vum9qgArR2mcPnbWHeufuRY1DBvjrQDZb1WE7 +ED94qk65yQCtF7/vGh+0hYxlP83UZgPcM5CdcuIfW2A/b8r6+tgA313XkFcr +toWx2lW389sM8FhlrFd3sC3Us528zNdpgB9i+hZVl2zA9UJC5NxnA3warnxG +k24DlxuOaT7kZmCsjU3vbKwVCHIFs2ycGJjbZXd9LswciozjoiddGKivdWsP +OJuDWlyGcbYbA1WNqwPyDc3BdpLZ3efFwJnVhu5l3OaQ0jO7sD+YgcGe/YYj +JWbwuzDeKDqRgY0epo3NH01hQD+7s6SMgS+DO+49PWACB44WXbOoYODt6cGo +OTsTmKuo8R1nMpDZuUJNX98E+Oh986q11Pi19careUzAilNS4kETA9fmNg7n +V++Axq4Sn85uBq5uuaLVt2oHWPLc3xrRx8BvIalz7pPG0GfWNifyjoEy93dk +/B4whpn676c9hhmotqXg3yCmMWwt2Fb+vzEGWjgV/rZwM4bGge0RaT8oD0im +hZsZg6XAblCZZKCPX2NQlZox+J06+iZ8loGb/cPaD66l1mtKyRX+TblGadP/ +Zowg6U/O/vo/DPxRvSc1atgINmrcVnJfYuA5lf7P4h1GcONg/ezyMgNbb9bI +dd4zgv8Datmgfw== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -13366,164 +14015,130 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK -SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx -/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr -12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI -64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs -Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ -g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q -LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o -2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL -6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u -nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr -t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 -MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 -eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M -qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD -y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ -1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh -a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk -LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz -5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 -bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg -PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx -ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg -RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 -Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab -+LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l -8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm -JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 -Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk -7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar -LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 -KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR -zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e -aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ -EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr -xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ -lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh -7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX -jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw -Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 -VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK -wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I -3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h -YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS -a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG -+Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk -30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE -aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ -gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk -pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 -/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 -BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB -DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm -Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU -mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg -srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa -elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp -F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR -vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO -p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe -zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y -c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS -5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD -ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF -aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX -oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD -KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE -ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv -XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y -HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T -SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol -DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN -kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK -J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 -XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw -YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl -49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi -hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV -sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 -NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR -P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy -r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ -sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp -3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L -TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG -cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU -XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB -oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX -flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N -Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j -GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 -8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ -lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr -MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC -ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi -z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq -frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T -VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda -R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a -d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP -cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 -ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ -2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM -uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B -8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 -SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV -rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw -u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B -jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO -FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz -oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE -zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 -hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb -QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe -htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b -gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr -CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d -3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V -Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr -t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS -d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ -TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb -EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK -Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ -KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb -vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU -/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 -JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG -bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD -VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 -0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z -j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ -z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 -dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs -D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ -M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ -3z9DIQ== +1:eJwV13c81d8bAHDREKXszedeI0lkz+t5InsUZYaQkZEoISOjaBiRSmkYISXc ++zHKqHxJRZq2IknjJ4msFF+/z/ev+3q/zj3n3s85z3Oe50PzPmTvy87GxrZ1 +BRvbf59zQ22PZVOLDPN3T040hRkbdt0QOba9LwnWbCHKaT00QMFX3iJ95+Hf +hJs5v7tVIWLXnV6OvkJQ11vv8b57O/BOCJ9f6CUh6atCSmW3HXxotD0009sM +i363t0l1e4Gp7NjgVO9b6FRdyTX2NgwWerUvTvaOAPsgo1i2PRFajG8VvSmc +hoUZRV5Fr/Mg8aHui7fSEtjwOhyjT+WCQPC+O2uMObD4ZEqFa2QBnFc1bbB1 +4ERjq95s2aRi6L+8rWlq43oUbYqq6JkuhdSi+Ffsorz4dZWqXrrpXbDUCOAT +lOFF0W4hR5b9XeB8bO+waSsv1nYoqL/0uAsnP8m9s9rOi1y7uzf9irgLsfSO +LxcCeDFATOzBSMldCMkX+Ve+nhefHnhU6bOqHOyusZSs9vKh9eZ88cHGchC+ +8OlM9nV+3DSsG6spWAkiW2pO/i7hx56awLo2qUoQa06Jd2fyo8uVMXRSqASp +yc1HN7XwY+y8oKKHfiXIWYd6NnzjxxSa4w5xr0pQX7mk9UldAO32bcu1K6uE +neFCo2rtAtgh7Vq2W5IJu7i/DeV0CiBPVIEHi8YE+8K6/sX3Angh2b6EW54J +jq/dXj35KYA3TBSnapSZ4K50s95VUBAXOeIPfAQmBI2qZCV5CqJ8pXRCthcT +Tu2xMHw7J4gHyrmLvQqZIFb9Uox9hRAapeycKS5hQgX/nnlVbiEMgSmVL3eY +0PPWg5klLYRZOi8CXauYIGsXTrczF8Ko+IZR3sdMaLbJW/36ihDePxp+vXGU +CUumsy9fGAijwyozkWU6CzJLosuWTIWR27HMqUmeBbKr2U5vtRNG73NJ0XGK +LLBu5dqe7iuMGdb9Ad9VWZBrTFRZZwhjpkXl2EVkgQ5a5Tz/IIwv2BId5dxZ +cES3YF9bkggG3VmlvTWbBZb5PDNWaSLI7SbKUr/EAvqa2NMvL4rgx56abK0r +LHjd5cjqLBXBY5h3XjWPBcqh6ziGXoqgzTHeqMU7LPhWElnyS0wULcQsxj// +wwI3Adsf4lWiuDb+Ew/nDxaoxzQk3mgUxdkXGg1Xf7KAa0RBiPZEFDs6V3Ru ++cWCukoOkO8XxS3jDSbb51kgZFWXuW1ZFDWPlBlsX0HC60RZDRMrMax0F712 +UYCEHT//RId8EsMeZbv6LB0SjplfUPxnXAwnjVekl+qRUFGwdYB/TgyjLBXn +GgxIENnjqVvHKY5Fy3zpfUjC+P3WeQ5lcfyyq6z7mzkJ2UmZ4VeixLFDv1rE +z5mEZ+82y44niuPNwxpRpq4kLGq0dBqmiuPjvbuPyLiR4Pd1Vm30ujgOKw0w +OveRoGe9d0q5RRwn7QyVufxJGBGUD3m8XgJlruu/6Q4nQfjQI0lhYQn0n4sR +ToggwfqZ84sAQgJ7nJKW5aNIqI1OVdqgLoHFpem1gTEknP0wOebiLIFnk9M6 +2hJJULvd4P+zUAJ7Fzv+fEknIdHAzktMRxLPZf25lX+TBHOPG7+0jSRxv+TQ +mr9FJPAkfD/hYC2J1cXMJLsSEq61JJdkekpiQtnI81+lJNy3rP+++owkHjFj +b1pdQcKks0zEdL8kBp/PfRV+j4R70aFreEcl8atvlnrWfRKOX3twWXlCEi/m +cT28XUfCumGnhgB2KVwnetHiVQMJm/zT2IYVpdBMv3XX+CMSPI7Onu2IkUKr +NUfehDwlQS7HSGIsWQpXuQgu2jz7b//Pla/JlML5Sm7XzW0kRC9ufm1UJIV7 +DXdXdbWTcPGEh2BdhxT2OShML70gwa24rKSnRwo5RwxeP3xJAv3pb+2ZYSls +XUr8GvOKBCZXtqvKrBQqXaE/G3tNQkfW07xiSWlkPs0LvNpJnW+VgGrLJmn8 +scCnZthFgmu3V/OwqjTmHh7SG6T8TWRxVNxUGj9uUBDY2EMCR/42xfMh0hjA +EbRs3kdC+z9xDZVR0njZI+77C8qZn9qtXyRJ4yUPF2JnPwlSm3wPceZIo/1J +gwOmA1Q8VFypPv5IGp3KslI531Px2vtyaeKZNBY+L1sXQNmWbaXZvrfU+i4m +zk8o77cP6YfP0vjsrqJ95CAJITE36cwJaRw8zsf+nHJUUV8Q8Vsad/aw4sWH +SDCNocUnrCIww9L5K0n5+YbGmzpcBG7jZe9coLyryPHZJA+BZGXpOcYHEva+ +SOX1EiHw4HO9+AbKw17yWqKSBJbFvaqapew31+T6hkZgU2hVo9IwCaHScze3 +byGw7eBj2yzKs1WZzxZUqHG5gv6HlKPNt/xgaRAYcEzJ4H+U2QZbeQN1CVxA +jNz4kYTkME8tuiGBY8S9VA3KXKv/ug4YEehxJjjagXJm7sX482YEXqwx2HGE +sqDKtiJLawKty1aOpVPObWl/xm5HoKZeYXAxZWln3x/1DgS6/53uqKNcNL7M +e8SVmr+rn/s5ZcXEXK0t+wgc3K+m2E+5UlBz76f9BPbKDyuMUta48yr+6gEC +Fewfc45TrjcMLNp9kMBRn3/aJylD58o27sME/r1Zf+gX5cf+eT9aIggsEL3w ++79xi0VdvtgYAh9cUPP7b/7LzC4tjQQCjUtj6v5bf4/cob3jJwlk3XGY/u/3 +++vWJhSdITC05pZAB2UP26IitwwClYtcpBooj44YtglkE+gjsIf3FuWAyP4f +HTkElvgkTJyjPMEdzpd8jUDB6me1RykfyefRZhQQ2PpROMiZ8m+N23tni6nn +SXNZp0P5eJtxQvkdAkM2Rl8VoMzhMVTkW0ng3Bk/0QnqfE7/imqTrCaw6s26 +U48p85zin+i+T2By3N7POZRFmObaps0EuqxmRmpSvr7j095/nxB4o/5S+TIV +H/T+uITa5wQ6JXztfUJ5K3tVm3w3gWmTmeutKZOXbCaG+gkUNnotxkVZZ8s3 +vpwhAqemTIlWKh6N9ki6rflGoGhhpbAa5aff7iU8GidwZFUG9ygV39Zx9sWR +UwS+TY/9e56yU8mpia9/COy/Htj5lcqP4N9TCc/W0/CgbM/xg++o/ArzE/rC +R0PPrv66f6l84xwbKOMQoWH4avkjaZSL37X0GNJpqMVR7Hudys+hhxeVarRo +OFrx4uBFqu+6q83V/Fafhtv58h5yUY5mHneaRBq+SP6eE0vlv1Chf9IWKxoe +SyP+59BNws5k3b6CfTQU7XJV/PCWyvd/yw8+8qGh3F/3TzqUxyPoHIMBNJyt +s1A594ba7wPcyiLhNPw1SE9Wpe6jJqvBExmnaXg0aKWtDXWfqfElqsSwaHi6 +9VbCyBMqf1JnH1+upWEXexjnasovOQJdaxtoWOBzS0e+lYSgWfvkqVYafjg1 +kOPWQsV/n+w7/wEaZmiuiCqg7luhvGcpezjoWNCtPp9G3d+jwgyJw5x09Ob2 +uhtTS51PJot1bj0d64IcCP8a6nmSct+3C9Mx97uJpUYV9X99g9W2K9GRdXXX +y1tUPVjYsnFoqwMdn3a/75+h6sncdbFEdVc6njNVlq6l6s3MBjlZ3X10zC9v +cAovpOJ1WjdwRwAds8bFSr/mUfWvYf+caxwd6R84ftzOpe5Pq3s8p4vpyC3h +Y3TjHJXfQR4wMkutf3IP/65IEnIGD4x8/UN9f2zzcfIoCRd2Hkn+sUxHB5Wp +tXxU/cxQP/3891oZ7M1WP/sslOqb/7KcNkjJ4AxXvSN/ILU/qatCDUxl0K2S +HkSj6rNB2d38S5dk8NiC6PxmQxLeEWV5JldlMN2Hw9GB6geiL92+MZMng+Vx +6vuOU/3CvcSSa/a3ZfA5y/1omxZ1Ps75l3kaZZAWV9JprELC5lUXMlM+yuCp +t7GH2qWp/d4XkxChJIvFivyTm5ZZMMVn6enYLIufI1I8gu6xoC+Y/jrwqSx2 +vDh/v7eaBU1P/kB8hyzqK16u2k5S/Vx0mXRpjyxWf9DK5ilnwbaRdR8WxmTx +wdXQTWmFLAhhvXK/zi+HZqXLoiLpLBjb6bB31EcOSX6N0eOeLBhN83Q8vEYe +bTXHTnxhY4HFz0iLz1qb8MYD5+AtekwY3895pDpeAQU+aep8vlBBvU8Is59q +3oy1WV56rVfuAt8L+QzmT0VsnN7BtansDkicrtylpaWEkaEfrDNSSuHyFt2N +/P5bsZ67KEb0ZAm0i23XnM5SxvL1Zd/3ZRWBnkRzpkqPCmqacy/xJRUCD0dh +uFfSNjT5892+rjQfpBKlDVzkVbFnhO/AvaTrsFbOrdb+qSpK//28tnpFLigz +RCsj3dWwzLSjL23+Ehwe4muxZFPHosiPve0T2fBzOs3B4rI62lm9OsvhmgVm +Kk9yLbZq4Lh1YU2DRAY8nNb/O/9SA0f3uWaLF5+BECW1gTe+mhjequA6PZkM +jAmfLpe1WpiQpcJ7xz8JTGRFbNYXaqG7vVz4Ne54UEg4G9WsrY1GCulnC6Si +QdFX95HcgDYmrrM4EXryKPg+PHCyOkwHhbxPP3DtD4OJg2ORJuE6yLGof5rZ +HgZRksFBPRE6+GAzHtnYGAZnYw/Z/47RwZD+5osTN8KAqRdBGKTooMjVq3Ey +vmGwWHuisSVXByvOlnsHTYfC+cobM29bdDA/TnnFLuFQeJTf5TMlqIuyG8Id +b80Fw7A1bV+EiC7GrGTIpwwFA9vCQZe/Yrp49VoCX8STYDCyW2O7itDFuM03 +xc9cCoYnK/S0RRV1sTVtxc9o7WDo8M5bu91QF+fM+i4lxwbBgGxgRaafLh5O +Js3n+QJhpnR5XuWeLrbtcpl3POQPXxxN88/U6SK7WMfxc27+0Lcy3fxTgy5V +794vdFn4Q4On2JVLTboocGa8IkXWH5JENPWW2nSxZHWn3ckBP9h4OjC2/b0u +et5tCBgx9wMl/242X3Y9NP7E82RB2Rf2y5WtzbXRQ824h1ri0vshutUjUH6X +Hh54nHZpDc9+yPTle07a6+FzXU6tFUve0Fh8LO25kx4KNSvwS7zzBgF58w1L +Xnpo9/eO588cb3gi/1nAM0IP6/fc3rRKwBsUFaQJ+Tw9nH2ox1Yj6AVTitla +5KQehvcKLvZHe0BfB5rwT+vh/vD7FUxPD2gKmdgdPquHTjapG6+aekAGaRGm +9UcPrbh9WXf4PEBRj+1uPYc+Ls6HCVWXuYO3xUFai5A+Hgqy+uXz0Q26/M3W +dRnoI01TXXDcdS/cL/r7cfa0Po6vHTZfe9IZtIzD5y1T9dHsbbjq+xBnqPk4 +vi4/XR9LecKMHrk4Ayk1pG15Xh+nkyqra1Sc4e7lpvQbV/XxYmVlo/d7J8hP +S9Y1q9DHAbn52GodJzgTviHrcic1v4b/4eSiA7jukEF9KQM8t9eJq4y1G5a6 +OHlaCAPM0Z+/9ejGbsj3nXhnKWOAtapE6GjqbviSUhfpqmCAWUsn7Tz8dsPh +tp2Vx9QMUHdAS4BPYjectY2Vum9qgArR2mcPnbWHeufuRY1DBvjrQDZb1WE7 +ED94qk65yQCtF7/vGh+0hYxlP83UZgPcM5CdcuIfW2A/b8r6+tgA313XkFcr +toWx2lW389sM8FhlrFd3sC3Us528zNdpgB9i+hZVl2zA9UJC5NxnA3warnxG +k24DlxuOaT7kZmCsjU3vbKwVCHIFs2ycGJjbZXd9LswciozjoiddGKivdWsP +OJuDWlyGcbYbA1WNqwPyDc3BdpLZ3efFwJnVhu5l3OaQ0jO7sD+YgcGe/YYj +JWbwuzDeKDqRgY0epo3NH01hQD+7s6SMgS+DO+49PWACB44WXbOoYODt6cGo +OTsTmKuo8R1nMpDZuUJNX98E+Oh986q11Pi19careUzAilNS4kETA9fmNg7n +V++Axq4Sn85uBq5uuaLVt2oHWPLc3xrRx8BvIalz7pPG0GfWNifyjoEy93dk +/B4whpn676c9hhmotqXg3yCmMWwt2Fb+vzEGWjgV/rZwM4bGge0RaT8oD0im +hZsZg6XAblCZZKCPX2NQlZox+J06+iZ8loGb/cPaD66l1mtKyRX+TblGadP/ +Zowg6U/O/vo/DPxRvSc1atgINmrcVnJfYuA5lf7P4h1GcONg/ezyMgNbb9bI +dd4zgv8Datmgfw== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "PlotRange" -> {{0, 30}, {0., 0.07376017787704818}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -13535,19 +14150,19 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "PlotRange" -> {{0, 30}, {0., 0.07376017787704818}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13561,163 +14176,129 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK -SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx -/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr -12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI -64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs -Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ -g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q -LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o -2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL -6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u -nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr -t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 -MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 -eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M -qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD -y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ -1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh -a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk -LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz -5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 -bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg -PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx -ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg -RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 -Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab -+LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l -8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm -JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 -Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk -7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar -LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 -KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR -zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e -aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ -EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr -xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ -lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh -7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX -jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw -Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 -VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK -wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I -3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h -YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS -a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG -+Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk -30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE -aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ -gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk -pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 -/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 -BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB -DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm -Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU -mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg -srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa -elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp -F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR -vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO -p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe -zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y -c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS -5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD -ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF -aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX -oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD -KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE -ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv -XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y -HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T -SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol -DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN -kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK -J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 -XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw -YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl -49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi -hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV -sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 -NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR -P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy -r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ -sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp -3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L -TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG -cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU -XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB -oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX -flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N -Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j -GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 -8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ -lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr -MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC -ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi -z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq -frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T -VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda -R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a -d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP -cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 -ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ -2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM -uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B -8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 -SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV -rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw -u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B -jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO -FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz -oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE -zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 -hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb -QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe -htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b -gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr -CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d -3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V -Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr -t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS -d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ -TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb -EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK -Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ -KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb -vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU -/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 -JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG -bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD -VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 -0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z -j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ -z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 -dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs -D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ -M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ -3z9DIQ== +1:eJwV13c81d8bAHDREKXszedeI0lkz+t5InsUZYaQkZEoISOjaBiRSmkYISXc ++zHKqHxJRZq2IknjJ4msFF+/z/ev+3q/zj3n3s85z3Oe50PzPmTvy87GxrZ1 +BRvbf59zQ22PZVOLDPN3T040hRkbdt0QOba9LwnWbCHKaT00QMFX3iJ95+Hf +hJs5v7tVIWLXnV6OvkJQ11vv8b57O/BOCJ9f6CUh6atCSmW3HXxotD0009sM +i363t0l1e4Gp7NjgVO9b6FRdyTX2NgwWerUvTvaOAPsgo1i2PRFajG8VvSmc +hoUZRV5Fr/Mg8aHui7fSEtjwOhyjT+WCQPC+O2uMObD4ZEqFa2QBnFc1bbB1 +4ERjq95s2aRi6L+8rWlq43oUbYqq6JkuhdSi+Ffsorz4dZWqXrrpXbDUCOAT +lOFF0W4hR5b9XeB8bO+waSsv1nYoqL/0uAsnP8m9s9rOi1y7uzf9irgLsfSO +LxcCeDFATOzBSMldCMkX+Ve+nhefHnhU6bOqHOyusZSs9vKh9eZ88cHGchC+ +8OlM9nV+3DSsG6spWAkiW2pO/i7hx56awLo2qUoQa06Jd2fyo8uVMXRSqASp +yc1HN7XwY+y8oKKHfiXIWYd6NnzjxxSa4w5xr0pQX7mk9UldAO32bcu1K6uE +neFCo2rtAtgh7Vq2W5IJu7i/DeV0CiBPVIEHi8YE+8K6/sX3Angh2b6EW54J +jq/dXj35KYA3TBSnapSZ4K50s95VUBAXOeIPfAQmBI2qZCV5CqJ8pXRCthcT +Tu2xMHw7J4gHyrmLvQqZIFb9Uox9hRAapeycKS5hQgX/nnlVbiEMgSmVL3eY +0PPWg5klLYRZOi8CXauYIGsXTrczF8Ko+IZR3sdMaLbJW/36ihDePxp+vXGU +CUumsy9fGAijwyozkWU6CzJLosuWTIWR27HMqUmeBbKr2U5vtRNG73NJ0XGK +LLBu5dqe7iuMGdb9Ad9VWZBrTFRZZwhjpkXl2EVkgQ5a5Tz/IIwv2BId5dxZ +cES3YF9bkggG3VmlvTWbBZb5PDNWaSLI7SbKUr/EAvqa2NMvL4rgx56abK0r +LHjd5cjqLBXBY5h3XjWPBcqh6ziGXoqgzTHeqMU7LPhWElnyS0wULcQsxj// +wwI3Adsf4lWiuDb+Ew/nDxaoxzQk3mgUxdkXGg1Xf7KAa0RBiPZEFDs6V3Ru ++cWCukoOkO8XxS3jDSbb51kgZFWXuW1ZFDWPlBlsX0HC60RZDRMrMax0F712 +UYCEHT//RId8EsMeZbv6LB0SjplfUPxnXAwnjVekl+qRUFGwdYB/TgyjLBXn +GgxIENnjqVvHKY5Fy3zpfUjC+P3WeQ5lcfyyq6z7mzkJ2UmZ4VeixLFDv1rE +z5mEZ+82y44niuPNwxpRpq4kLGq0dBqmiuPjvbuPyLiR4Pd1Vm30ujgOKw0w +OveRoGe9d0q5RRwn7QyVufxJGBGUD3m8XgJlruu/6Q4nQfjQI0lhYQn0n4sR +ToggwfqZ84sAQgJ7nJKW5aNIqI1OVdqgLoHFpem1gTEknP0wOebiLIFnk9M6 +2hJJULvd4P+zUAJ7Fzv+fEknIdHAzktMRxLPZf25lX+TBHOPG7+0jSRxv+TQ +mr9FJPAkfD/hYC2J1cXMJLsSEq61JJdkekpiQtnI81+lJNy3rP+++owkHjFj +b1pdQcKks0zEdL8kBp/PfRV+j4R70aFreEcl8atvlnrWfRKOX3twWXlCEi/m +cT28XUfCumGnhgB2KVwnetHiVQMJm/zT2IYVpdBMv3XX+CMSPI7Onu2IkUKr +NUfehDwlQS7HSGIsWQpXuQgu2jz7b//Pla/JlML5Sm7XzW0kRC9ufm1UJIV7 +DXdXdbWTcPGEh2BdhxT2OShML70gwa24rKSnRwo5RwxeP3xJAv3pb+2ZYSls +XUr8GvOKBCZXtqvKrBQqXaE/G3tNQkfW07xiSWlkPs0LvNpJnW+VgGrLJmn8 +scCnZthFgmu3V/OwqjTmHh7SG6T8TWRxVNxUGj9uUBDY2EMCR/42xfMh0hjA +EbRs3kdC+z9xDZVR0njZI+77C8qZn9qtXyRJ4yUPF2JnPwlSm3wPceZIo/1J +gwOmA1Q8VFypPv5IGp3KslI531Px2vtyaeKZNBY+L1sXQNmWbaXZvrfU+i4m +zk8o77cP6YfP0vjsrqJ95CAJITE36cwJaRw8zsf+nHJUUV8Q8Vsad/aw4sWH +SDCNocUnrCIww9L5K0n5+YbGmzpcBG7jZe9coLyryPHZJA+BZGXpOcYHEva+ +SOX1EiHw4HO9+AbKw17yWqKSBJbFvaqapew31+T6hkZgU2hVo9IwCaHScze3 +byGw7eBj2yzKs1WZzxZUqHG5gv6HlKPNt/xgaRAYcEzJ4H+U2QZbeQN1CVxA +jNz4kYTkME8tuiGBY8S9VA3KXKv/ug4YEehxJjjagXJm7sX482YEXqwx2HGE +sqDKtiJLawKty1aOpVPObWl/xm5HoKZeYXAxZWln3x/1DgS6/53uqKNcNL7M +e8SVmr+rn/s5ZcXEXK0t+wgc3K+m2E+5UlBz76f9BPbKDyuMUta48yr+6gEC +Fewfc45TrjcMLNp9kMBRn3/aJylD58o27sME/r1Zf+gX5cf+eT9aIggsEL3w ++79xi0VdvtgYAh9cUPP7b/7LzC4tjQQCjUtj6v5bf4/cob3jJwlk3XGY/u/3 +++vWJhSdITC05pZAB2UP26IitwwClYtcpBooj44YtglkE+gjsIf3FuWAyP4f +HTkElvgkTJyjPMEdzpd8jUDB6me1RykfyefRZhQQ2PpROMiZ8m+N23tni6nn +SXNZp0P5eJtxQvkdAkM2Rl8VoMzhMVTkW0ng3Bk/0QnqfE7/imqTrCaw6s26 +U48p85zin+i+T2By3N7POZRFmObaps0EuqxmRmpSvr7j095/nxB4o/5S+TIV +H/T+uITa5wQ6JXztfUJ5K3tVm3w3gWmTmeutKZOXbCaG+gkUNnotxkVZZ8s3 +vpwhAqemTIlWKh6N9ki6rflGoGhhpbAa5aff7iU8GidwZFUG9ygV39Zx9sWR +UwS+TY/9e56yU8mpia9/COy/Htj5lcqP4N9TCc/W0/CgbM/xg++o/ArzE/rC +R0PPrv66f6l84xwbKOMQoWH4avkjaZSL37X0GNJpqMVR7Hudys+hhxeVarRo +OFrx4uBFqu+6q83V/Fafhtv58h5yUY5mHneaRBq+SP6eE0vlv1Chf9IWKxoe +SyP+59BNws5k3b6CfTQU7XJV/PCWyvd/yw8+8qGh3F/3TzqUxyPoHIMBNJyt +s1A594ba7wPcyiLhNPw1SE9Wpe6jJqvBExmnaXg0aKWtDXWfqfElqsSwaHi6 +9VbCyBMqf1JnH1+upWEXexjnasovOQJdaxtoWOBzS0e+lYSgWfvkqVYafjg1 +kOPWQsV/n+w7/wEaZmiuiCqg7luhvGcpezjoWNCtPp9G3d+jwgyJw5x09Ob2 +uhtTS51PJot1bj0d64IcCP8a6nmSct+3C9Mx97uJpUYV9X99g9W2K9GRdXXX +y1tUPVjYsnFoqwMdn3a/75+h6sncdbFEdVc6njNVlq6l6s3MBjlZ3X10zC9v +cAovpOJ1WjdwRwAds8bFSr/mUfWvYf+caxwd6R84ftzOpe5Pq3s8p4vpyC3h +Y3TjHJXfQR4wMkutf3IP/65IEnIGD4x8/UN9f2zzcfIoCRd2Hkn+sUxHB5Wp +tXxU/cxQP/3891oZ7M1WP/sslOqb/7KcNkjJ4AxXvSN/ILU/qatCDUxl0K2S +HkSj6rNB2d38S5dk8NiC6PxmQxLeEWV5JldlMN2Hw9GB6geiL92+MZMng+Vx +6vuOU/3CvcSSa/a3ZfA5y/1omxZ1Ps75l3kaZZAWV9JprELC5lUXMlM+yuCp +t7GH2qWp/d4XkxChJIvFivyTm5ZZMMVn6enYLIufI1I8gu6xoC+Y/jrwqSx2 +vDh/v7eaBU1P/kB8hyzqK16u2k5S/Vx0mXRpjyxWf9DK5ilnwbaRdR8WxmTx +wdXQTWmFLAhhvXK/zi+HZqXLoiLpLBjb6bB31EcOSX6N0eOeLBhN83Q8vEYe +bTXHTnxhY4HFz0iLz1qb8MYD5+AtekwY3895pDpeAQU+aep8vlBBvU8Is59q +3oy1WV56rVfuAt8L+QzmT0VsnN7BtansDkicrtylpaWEkaEfrDNSSuHyFt2N +/P5bsZ67KEb0ZAm0i23XnM5SxvL1Zd/3ZRWBnkRzpkqPCmqacy/xJRUCD0dh +uFfSNjT5892+rjQfpBKlDVzkVbFnhO/AvaTrsFbOrdb+qSpK//28tnpFLigz +RCsj3dWwzLSjL23+Ehwe4muxZFPHosiPve0T2fBzOs3B4rI62lm9OsvhmgVm +Kk9yLbZq4Lh1YU2DRAY8nNb/O/9SA0f3uWaLF5+BECW1gTe+mhjequA6PZkM +jAmfLpe1WpiQpcJ7xz8JTGRFbNYXaqG7vVz4Ne54UEg4G9WsrY1GCulnC6Si +QdFX95HcgDYmrrM4EXryKPg+PHCyOkwHhbxPP3DtD4OJg2ORJuE6yLGof5rZ +HgZRksFBPRE6+GAzHtnYGAZnYw/Z/47RwZD+5osTN8KAqRdBGKTooMjVq3Ey +vmGwWHuisSVXByvOlnsHTYfC+cobM29bdDA/TnnFLuFQeJTf5TMlqIuyG8Id +b80Fw7A1bV+EiC7GrGTIpwwFA9vCQZe/Yrp49VoCX8STYDCyW2O7itDFuM03 +xc9cCoYnK/S0RRV1sTVtxc9o7WDo8M5bu91QF+fM+i4lxwbBgGxgRaafLh5O +Js3n+QJhpnR5XuWeLrbtcpl3POQPXxxN88/U6SK7WMfxc27+0Lcy3fxTgy5V +794vdFn4Q4On2JVLTboocGa8IkXWH5JENPWW2nSxZHWn3ckBP9h4OjC2/b0u +et5tCBgx9wMl/242X3Y9NP7E82RB2Rf2y5WtzbXRQ824h1ri0vshutUjUH6X +Hh54nHZpDc9+yPTle07a6+FzXU6tFUve0Fh8LO25kx4KNSvwS7zzBgF58w1L +Xnpo9/eO588cb3gi/1nAM0IP6/fc3rRKwBsUFaQJ+Tw9nH2ox1Yj6AVTitla +5KQehvcKLvZHe0BfB5rwT+vh/vD7FUxPD2gKmdgdPquHTjapG6+aekAGaRGm +9UcPrbh9WXf4PEBRj+1uPYc+Ls6HCVWXuYO3xUFai5A+Hgqy+uXz0Q26/M3W +dRnoI01TXXDcdS/cL/r7cfa0Po6vHTZfe9IZtIzD5y1T9dHsbbjq+xBnqPk4 +vi4/XR9LecKMHrk4Ayk1pG15Xh+nkyqra1Sc4e7lpvQbV/XxYmVlo/d7J8hP +S9Y1q9DHAbn52GodJzgTviHrcic1v4b/4eSiA7jukEF9KQM8t9eJq4y1G5a6 +OHlaCAPM0Z+/9ejGbsj3nXhnKWOAtapE6GjqbviSUhfpqmCAWUsn7Tz8dsPh +tp2Vx9QMUHdAS4BPYjectY2Vum9qgArR2mcPnbWHeufuRY1DBvjrQDZb1WE7 +ED94qk65yQCtF7/vGh+0hYxlP83UZgPcM5CdcuIfW2A/b8r6+tgA313XkFcr +toWx2lW389sM8FhlrFd3sC3Us528zNdpgB9i+hZVl2zA9UJC5NxnA3warnxG +k24DlxuOaT7kZmCsjU3vbKwVCHIFs2ycGJjbZXd9LswciozjoiddGKivdWsP +OJuDWlyGcbYbA1WNqwPyDc3BdpLZ3efFwJnVhu5l3OaQ0jO7sD+YgcGe/YYj +JWbwuzDeKDqRgY0epo3NH01hQD+7s6SMgS+DO+49PWACB44WXbOoYODt6cGo +OTsTmKuo8R1nMpDZuUJNX98E+Oh986q11Pi19careUzAilNS4kETA9fmNg7n +V++Axq4Sn85uBq5uuaLVt2oHWPLc3xrRx8BvIalz7pPG0GfWNifyjoEy93dk +/B4whpn676c9hhmotqXg3yCmMWwt2Fb+vzEGWjgV/rZwM4bGge0RaT8oD0im +hZsZg6XAblCZZKCPX2NQlZox+J06+iZ8loGb/cPaD66l1mtKyRX+TblGadP/ +Zowg6U/O/vo/DPxRvSc1atgINmrcVnJfYuA5lf7P4h1GcONg/ezyMgNbb9bI +dd4zgv8Datmgfw== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "PlotRange" -> {{0, 30}, {0., 0.07376017787704818}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13728,6 +14309,7 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -13755,7 +14337,8 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.17388882737814787`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07376017787704818}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -13763,17 +14346,610 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913324679337597`*^9}, + CellChangeTimes->{3.9913324679337597`*^9, 3.994261070235602*^9}, CellLabel-> - "Out[221]=",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] + "Out[140]=",ExpressionUUID->"756c2c88-e3c4-47b6-833e-4ea3f745c1f4"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"f380af60-a605-c546-a4c8-\ -b989835aa113"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c81d8bAHDREKXszedeI0lkz+t5InsUZYaQkZEoISOjaBiRSmkYISXc ++zHKqHxJRZq2IknjJ4msFF+/z/ev+3q/zj3n3s85z3Oe50PzPmTvy87GxrZ1 +BRvbf59zQ22PZVOLDPN3T040hRkbdt0QOba9LwnWbCHKaT00QMFX3iJ95+Hf +hJs5v7tVIWLXnV6OvkJQ11vv8b57O/BOCJ9f6CUh6atCSmW3HXxotD0009sM +i363t0l1e4Gp7NjgVO9b6FRdyTX2NgwWerUvTvaOAPsgo1i2PRFajG8VvSmc +hoUZRV5Fr/Mg8aHui7fSEtjwOhyjT+WCQPC+O2uMObD4ZEqFa2QBnFc1bbB1 +4ERjq95s2aRi6L+8rWlq43oUbYqq6JkuhdSi+Ffsorz4dZWqXrrpXbDUCOAT +lOFF0W4hR5b9XeB8bO+waSsv1nYoqL/0uAsnP8m9s9rOi1y7uzf9irgLsfSO +LxcCeDFATOzBSMldCMkX+Ve+nhefHnhU6bOqHOyusZSs9vKh9eZ88cHGchC+ +8OlM9nV+3DSsG6spWAkiW2pO/i7hx56awLo2qUoQa06Jd2fyo8uVMXRSqASp +yc1HN7XwY+y8oKKHfiXIWYd6NnzjxxSa4w5xr0pQX7mk9UldAO32bcu1K6uE +neFCo2rtAtgh7Vq2W5IJu7i/DeV0CiBPVIEHi8YE+8K6/sX3Angh2b6EW54J +jq/dXj35KYA3TBSnapSZ4K50s95VUBAXOeIPfAQmBI2qZCV5CqJ8pXRCthcT +Tu2xMHw7J4gHyrmLvQqZIFb9Uox9hRAapeycKS5hQgX/nnlVbiEMgSmVL3eY +0PPWg5klLYRZOi8CXauYIGsXTrczF8Ko+IZR3sdMaLbJW/36ihDePxp+vXGU +CUumsy9fGAijwyozkWU6CzJLosuWTIWR27HMqUmeBbKr2U5vtRNG73NJ0XGK +LLBu5dqe7iuMGdb9Ad9VWZBrTFRZZwhjpkXl2EVkgQ5a5Tz/IIwv2BId5dxZ +cES3YF9bkggG3VmlvTWbBZb5PDNWaSLI7SbKUr/EAvqa2NMvL4rgx56abK0r +LHjd5cjqLBXBY5h3XjWPBcqh6ziGXoqgzTHeqMU7LPhWElnyS0wULcQsxj// +wwI3Adsf4lWiuDb+Ew/nDxaoxzQk3mgUxdkXGg1Xf7KAa0RBiPZEFDs6V3Ru ++cWCukoOkO8XxS3jDSbb51kgZFWXuW1ZFDWPlBlsX0HC60RZDRMrMax0F712 +UYCEHT//RId8EsMeZbv6LB0SjplfUPxnXAwnjVekl+qRUFGwdYB/TgyjLBXn +GgxIENnjqVvHKY5Fy3zpfUjC+P3WeQ5lcfyyq6z7mzkJ2UmZ4VeixLFDv1rE +z5mEZ+82y44niuPNwxpRpq4kLGq0dBqmiuPjvbuPyLiR4Pd1Vm30ujgOKw0w +OveRoGe9d0q5RRwn7QyVufxJGBGUD3m8XgJlruu/6Q4nQfjQI0lhYQn0n4sR +ToggwfqZ84sAQgJ7nJKW5aNIqI1OVdqgLoHFpem1gTEknP0wOebiLIFnk9M6 +2hJJULvd4P+zUAJ7Fzv+fEknIdHAzktMRxLPZf25lX+TBHOPG7+0jSRxv+TQ +mr9FJPAkfD/hYC2J1cXMJLsSEq61JJdkekpiQtnI81+lJNy3rP+++owkHjFj +b1pdQcKks0zEdL8kBp/PfRV+j4R70aFreEcl8atvlnrWfRKOX3twWXlCEi/m +cT28XUfCumGnhgB2KVwnetHiVQMJm/zT2IYVpdBMv3XX+CMSPI7Onu2IkUKr +NUfehDwlQS7HSGIsWQpXuQgu2jz7b//Pla/JlML5Sm7XzW0kRC9ufm1UJIV7 +DXdXdbWTcPGEh2BdhxT2OShML70gwa24rKSnRwo5RwxeP3xJAv3pb+2ZYSls +XUr8GvOKBCZXtqvKrBQqXaE/G3tNQkfW07xiSWlkPs0LvNpJnW+VgGrLJmn8 +scCnZthFgmu3V/OwqjTmHh7SG6T8TWRxVNxUGj9uUBDY2EMCR/42xfMh0hjA +EbRs3kdC+z9xDZVR0njZI+77C8qZn9qtXyRJ4yUPF2JnPwlSm3wPceZIo/1J +gwOmA1Q8VFypPv5IGp3KslI531Px2vtyaeKZNBY+L1sXQNmWbaXZvrfU+i4m +zk8o77cP6YfP0vjsrqJ95CAJITE36cwJaRw8zsf+nHJUUV8Q8Vsad/aw4sWH +SDCNocUnrCIww9L5K0n5+YbGmzpcBG7jZe9coLyryPHZJA+BZGXpOcYHEva+ +SOX1EiHw4HO9+AbKw17yWqKSBJbFvaqapew31+T6hkZgU2hVo9IwCaHScze3 +byGw7eBj2yzKs1WZzxZUqHG5gv6HlKPNt/xgaRAYcEzJ4H+U2QZbeQN1CVxA +jNz4kYTkME8tuiGBY8S9VA3KXKv/ug4YEehxJjjagXJm7sX482YEXqwx2HGE +sqDKtiJLawKty1aOpVPObWl/xm5HoKZeYXAxZWln3x/1DgS6/53uqKNcNL7M +e8SVmr+rn/s5ZcXEXK0t+wgc3K+m2E+5UlBz76f9BPbKDyuMUta48yr+6gEC +Fewfc45TrjcMLNp9kMBRn3/aJylD58o27sME/r1Zf+gX5cf+eT9aIggsEL3w ++79xi0VdvtgYAh9cUPP7b/7LzC4tjQQCjUtj6v5bf4/cob3jJwlk3XGY/u/3 +++vWJhSdITC05pZAB2UP26IitwwClYtcpBooj44YtglkE+gjsIf3FuWAyP4f +HTkElvgkTJyjPMEdzpd8jUDB6me1RykfyefRZhQQ2PpROMiZ8m+N23tni6nn +SXNZp0P5eJtxQvkdAkM2Rl8VoMzhMVTkW0ng3Bk/0QnqfE7/imqTrCaw6s26 +U48p85zin+i+T2By3N7POZRFmObaps0EuqxmRmpSvr7j095/nxB4o/5S+TIV +H/T+uITa5wQ6JXztfUJ5K3tVm3w3gWmTmeutKZOXbCaG+gkUNnotxkVZZ8s3 +vpwhAqemTIlWKh6N9ki6rflGoGhhpbAa5aff7iU8GidwZFUG9ygV39Zx9sWR +UwS+TY/9e56yU8mpia9/COy/Htj5lcqP4N9TCc/W0/CgbM/xg++o/ArzE/rC +R0PPrv66f6l84xwbKOMQoWH4avkjaZSL37X0GNJpqMVR7Hudys+hhxeVarRo +OFrx4uBFqu+6q83V/Fafhtv58h5yUY5mHneaRBq+SP6eE0vlv1Chf9IWKxoe +SyP+59BNws5k3b6CfTQU7XJV/PCWyvd/yw8+8qGh3F/3TzqUxyPoHIMBNJyt +s1A594ba7wPcyiLhNPw1SE9Wpe6jJqvBExmnaXg0aKWtDXWfqfElqsSwaHi6 +9VbCyBMqf1JnH1+upWEXexjnasovOQJdaxtoWOBzS0e+lYSgWfvkqVYafjg1 +kOPWQsV/n+w7/wEaZmiuiCqg7luhvGcpezjoWNCtPp9G3d+jwgyJw5x09Ob2 +uhtTS51PJot1bj0d64IcCP8a6nmSct+3C9Mx97uJpUYV9X99g9W2K9GRdXXX +y1tUPVjYsnFoqwMdn3a/75+h6sncdbFEdVc6njNVlq6l6s3MBjlZ3X10zC9v +cAovpOJ1WjdwRwAds8bFSr/mUfWvYf+caxwd6R84ftzOpe5Pq3s8p4vpyC3h +Y3TjHJXfQR4wMkutf3IP/65IEnIGD4x8/UN9f2zzcfIoCRd2Hkn+sUxHB5Wp +tXxU/cxQP/3891oZ7M1WP/sslOqb/7KcNkjJ4AxXvSN/ILU/qatCDUxl0K2S +HkSj6rNB2d38S5dk8NiC6PxmQxLeEWV5JldlMN2Hw9GB6geiL92+MZMng+Vx +6vuOU/3CvcSSa/a3ZfA5y/1omxZ1Ps75l3kaZZAWV9JprELC5lUXMlM+yuCp +t7GH2qWp/d4XkxChJIvFivyTm5ZZMMVn6enYLIufI1I8gu6xoC+Y/jrwqSx2 +vDh/v7eaBU1P/kB8hyzqK16u2k5S/Vx0mXRpjyxWf9DK5ilnwbaRdR8WxmTx +wdXQTWmFLAhhvXK/zi+HZqXLoiLpLBjb6bB31EcOSX6N0eOeLBhN83Q8vEYe +bTXHTnxhY4HFz0iLz1qb8MYD5+AtekwY3895pDpeAQU+aep8vlBBvU8Is59q +3oy1WV56rVfuAt8L+QzmT0VsnN7BtansDkicrtylpaWEkaEfrDNSSuHyFt2N +/P5bsZ67KEb0ZAm0i23XnM5SxvL1Zd/3ZRWBnkRzpkqPCmqacy/xJRUCD0dh +uFfSNjT5892+rjQfpBKlDVzkVbFnhO/AvaTrsFbOrdb+qSpK//28tnpFLigz +RCsj3dWwzLSjL23+Ehwe4muxZFPHosiPve0T2fBzOs3B4rI62lm9OsvhmgVm +Kk9yLbZq4Lh1YU2DRAY8nNb/O/9SA0f3uWaLF5+BECW1gTe+mhjequA6PZkM +jAmfLpe1WpiQpcJ7xz8JTGRFbNYXaqG7vVz4Ne54UEg4G9WsrY1GCulnC6Si +QdFX95HcgDYmrrM4EXryKPg+PHCyOkwHhbxPP3DtD4OJg2ORJuE6yLGof5rZ +HgZRksFBPRE6+GAzHtnYGAZnYw/Z/47RwZD+5osTN8KAqRdBGKTooMjVq3Ey +vmGwWHuisSVXByvOlnsHTYfC+cobM29bdDA/TnnFLuFQeJTf5TMlqIuyG8Id +b80Fw7A1bV+EiC7GrGTIpwwFA9vCQZe/Yrp49VoCX8STYDCyW2O7itDFuM03 +xc9cCoYnK/S0RRV1sTVtxc9o7WDo8M5bu91QF+fM+i4lxwbBgGxgRaafLh5O +Js3n+QJhpnR5XuWeLrbtcpl3POQPXxxN88/U6SK7WMfxc27+0Lcy3fxTgy5V +794vdFn4Q4On2JVLTboocGa8IkXWH5JENPWW2nSxZHWn3ckBP9h4OjC2/b0u +et5tCBgx9wMl/242X3Y9NP7E82RB2Rf2y5WtzbXRQ824h1ri0vshutUjUH6X +Hh54nHZpDc9+yPTle07a6+FzXU6tFUve0Fh8LO25kx4KNSvwS7zzBgF58w1L +Xnpo9/eO588cb3gi/1nAM0IP6/fc3rRKwBsUFaQJ+Tw9nH2ox1Yj6AVTitla +5KQehvcKLvZHe0BfB5rwT+vh/vD7FUxPD2gKmdgdPquHTjapG6+aekAGaRGm +9UcPrbh9WXf4PEBRj+1uPYc+Ls6HCVWXuYO3xUFai5A+Hgqy+uXz0Q26/M3W +dRnoI01TXXDcdS/cL/r7cfa0Po6vHTZfe9IZtIzD5y1T9dHsbbjq+xBnqPk4 +vi4/XR9LecKMHrk4Ayk1pG15Xh+nkyqra1Sc4e7lpvQbV/XxYmVlo/d7J8hP +S9Y1q9DHAbn52GodJzgTviHrcic1v4b/4eSiA7jukEF9KQM8t9eJq4y1G5a6 +OHlaCAPM0Z+/9ejGbsj3nXhnKWOAtapE6GjqbviSUhfpqmCAWUsn7Tz8dsPh +tp2Vx9QMUHdAS4BPYjectY2Vum9qgArR2mcPnbWHeufuRY1DBvjrQDZb1WE7 +ED94qk65yQCtF7/vGh+0hYxlP83UZgPcM5CdcuIfW2A/b8r6+tgA313XkFcr +toWx2lW389sM8FhlrFd3sC3Us528zNdpgB9i+hZVl2zA9UJC5NxnA3warnxG +k24DlxuOaT7kZmCsjU3vbKwVCHIFs2ycGJjbZXd9LswciozjoiddGKivdWsP +OJuDWlyGcbYbA1WNqwPyDc3BdpLZ3efFwJnVhu5l3OaQ0jO7sD+YgcGe/YYj +JWbwuzDeKDqRgY0epo3NH01hQD+7s6SMgS+DO+49PWACB44WXbOoYODt6cGo +OTsTmKuo8R1nMpDZuUJNX98E+Oh986q11Pi19careUzAilNS4kETA9fmNg7n +V++Axq4Sn85uBq5uuaLVt2oHWPLc3xrRx8BvIalz7pPG0GfWNifyjoEy93dk +/B4whpn676c9hhmotqXg3yCmMWwt2Fb+vzEGWjgV/rZwM4bGge0RaT8oD0im +hZsZg6XAblCZZKCPX2NQlZox+J06+iZ8loGb/cPaD66l1mtKyRX+TblGadP/ +Zowg6U/O/vo/DPxRvSc1atgINmrcVnJfYuA5lf7P4h1GcONg/ezyMgNbb9bI +dd4zgv8Datmgfw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c81d8bAHDREKXszedeI0lkz+t5InsUZYaQkZEoISOjaBiRSmkYISXc ++zHKqHxJRZq2IknjJ4msFF+/z/ev+3q/zj3n3s85z3Oe50PzPmTvy87GxrZ1 +BRvbf59zQ22PZVOLDPN3T040hRkbdt0QOba9LwnWbCHKaT00QMFX3iJ95+Hf +hJs5v7tVIWLXnV6OvkJQ11vv8b57O/BOCJ9f6CUh6atCSmW3HXxotD0009sM +i363t0l1e4Gp7NjgVO9b6FRdyTX2NgwWerUvTvaOAPsgo1i2PRFajG8VvSmc +hoUZRV5Fr/Mg8aHui7fSEtjwOhyjT+WCQPC+O2uMObD4ZEqFa2QBnFc1bbB1 +4ERjq95s2aRi6L+8rWlq43oUbYqq6JkuhdSi+Ffsorz4dZWqXrrpXbDUCOAT +lOFF0W4hR5b9XeB8bO+waSsv1nYoqL/0uAsnP8m9s9rOi1y7uzf9irgLsfSO +LxcCeDFATOzBSMldCMkX+Ve+nhefHnhU6bOqHOyusZSs9vKh9eZ88cHGchC+ +8OlM9nV+3DSsG6spWAkiW2pO/i7hx56awLo2qUoQa06Jd2fyo8uVMXRSqASp +yc1HN7XwY+y8oKKHfiXIWYd6NnzjxxSa4w5xr0pQX7mk9UldAO32bcu1K6uE +neFCo2rtAtgh7Vq2W5IJu7i/DeV0CiBPVIEHi8YE+8K6/sX3Angh2b6EW54J +jq/dXj35KYA3TBSnapSZ4K50s95VUBAXOeIPfAQmBI2qZCV5CqJ8pXRCthcT +Tu2xMHw7J4gHyrmLvQqZIFb9Uox9hRAapeycKS5hQgX/nnlVbiEMgSmVL3eY +0PPWg5klLYRZOi8CXauYIGsXTrczF8Ko+IZR3sdMaLbJW/36ihDePxp+vXGU +CUumsy9fGAijwyozkWU6CzJLosuWTIWR27HMqUmeBbKr2U5vtRNG73NJ0XGK +LLBu5dqe7iuMGdb9Ad9VWZBrTFRZZwhjpkXl2EVkgQ5a5Tz/IIwv2BId5dxZ +cES3YF9bkggG3VmlvTWbBZb5PDNWaSLI7SbKUr/EAvqa2NMvL4rgx56abK0r +LHjd5cjqLBXBY5h3XjWPBcqh6ziGXoqgzTHeqMU7LPhWElnyS0wULcQsxj// +wwI3Adsf4lWiuDb+Ew/nDxaoxzQk3mgUxdkXGg1Xf7KAa0RBiPZEFDs6V3Ru ++cWCukoOkO8XxS3jDSbb51kgZFWXuW1ZFDWPlBlsX0HC60RZDRMrMax0F712 +UYCEHT//RId8EsMeZbv6LB0SjplfUPxnXAwnjVekl+qRUFGwdYB/TgyjLBXn +GgxIENnjqVvHKY5Fy3zpfUjC+P3WeQ5lcfyyq6z7mzkJ2UmZ4VeixLFDv1rE +z5mEZ+82y44niuPNwxpRpq4kLGq0dBqmiuPjvbuPyLiR4Pd1Vm30ujgOKw0w +OveRoGe9d0q5RRwn7QyVufxJGBGUD3m8XgJlruu/6Q4nQfjQI0lhYQn0n4sR +ToggwfqZ84sAQgJ7nJKW5aNIqI1OVdqgLoHFpem1gTEknP0wOebiLIFnk9M6 +2hJJULvd4P+zUAJ7Fzv+fEknIdHAzktMRxLPZf25lX+TBHOPG7+0jSRxv+TQ +mr9FJPAkfD/hYC2J1cXMJLsSEq61JJdkekpiQtnI81+lJNy3rP+++owkHjFj +b1pdQcKks0zEdL8kBp/PfRV+j4R70aFreEcl8atvlnrWfRKOX3twWXlCEi/m +cT28XUfCumGnhgB2KVwnetHiVQMJm/zT2IYVpdBMv3XX+CMSPI7Onu2IkUKr +NUfehDwlQS7HSGIsWQpXuQgu2jz7b//Pla/JlML5Sm7XzW0kRC9ufm1UJIV7 +DXdXdbWTcPGEh2BdhxT2OShML70gwa24rKSnRwo5RwxeP3xJAv3pb+2ZYSls +XUr8GvOKBCZXtqvKrBQqXaE/G3tNQkfW07xiSWlkPs0LvNpJnW+VgGrLJmn8 +scCnZthFgmu3V/OwqjTmHh7SG6T8TWRxVNxUGj9uUBDY2EMCR/42xfMh0hjA +EbRs3kdC+z9xDZVR0njZI+77C8qZn9qtXyRJ4yUPF2JnPwlSm3wPceZIo/1J +gwOmA1Q8VFypPv5IGp3KslI531Px2vtyaeKZNBY+L1sXQNmWbaXZvrfU+i4m +zk8o77cP6YfP0vjsrqJ95CAJITE36cwJaRw8zsf+nHJUUV8Q8Vsad/aw4sWH +SDCNocUnrCIww9L5K0n5+YbGmzpcBG7jZe9coLyryPHZJA+BZGXpOcYHEva+ +SOX1EiHw4HO9+AbKw17yWqKSBJbFvaqapew31+T6hkZgU2hVo9IwCaHScze3 +byGw7eBj2yzKs1WZzxZUqHG5gv6HlKPNt/xgaRAYcEzJ4H+U2QZbeQN1CVxA +jNz4kYTkME8tuiGBY8S9VA3KXKv/ug4YEehxJjjagXJm7sX482YEXqwx2HGE +sqDKtiJLawKty1aOpVPObWl/xm5HoKZeYXAxZWln3x/1DgS6/53uqKNcNL7M +e8SVmr+rn/s5ZcXEXK0t+wgc3K+m2E+5UlBz76f9BPbKDyuMUta48yr+6gEC +Fewfc45TrjcMLNp9kMBRn3/aJylD58o27sME/r1Zf+gX5cf+eT9aIggsEL3w ++79xi0VdvtgYAh9cUPP7b/7LzC4tjQQCjUtj6v5bf4/cob3jJwlk3XGY/u/3 +++vWJhSdITC05pZAB2UP26IitwwClYtcpBooj44YtglkE+gjsIf3FuWAyP4f +HTkElvgkTJyjPMEdzpd8jUDB6me1RykfyefRZhQQ2PpROMiZ8m+N23tni6nn +SXNZp0P5eJtxQvkdAkM2Rl8VoMzhMVTkW0ng3Bk/0QnqfE7/imqTrCaw6s26 +U48p85zin+i+T2By3N7POZRFmObaps0EuqxmRmpSvr7j095/nxB4o/5S+TIV +H/T+uITa5wQ6JXztfUJ5K3tVm3w3gWmTmeutKZOXbCaG+gkUNnotxkVZZ8s3 +vpwhAqemTIlWKh6N9ki6rflGoGhhpbAa5aff7iU8GidwZFUG9ygV39Zx9sWR +UwS+TY/9e56yU8mpia9/COy/Htj5lcqP4N9TCc/W0/CgbM/xg++o/ArzE/rC +R0PPrv66f6l84xwbKOMQoWH4avkjaZSL37X0GNJpqMVR7Hudys+hhxeVarRo +OFrx4uBFqu+6q83V/Fafhtv58h5yUY5mHneaRBq+SP6eE0vlv1Chf9IWKxoe +SyP+59BNws5k3b6CfTQU7XJV/PCWyvd/yw8+8qGh3F/3TzqUxyPoHIMBNJyt +s1A594ba7wPcyiLhNPw1SE9Wpe6jJqvBExmnaXg0aKWtDXWfqfElqsSwaHi6 +9VbCyBMqf1JnH1+upWEXexjnasovOQJdaxtoWOBzS0e+lYSgWfvkqVYafjg1 +kOPWQsV/n+w7/wEaZmiuiCqg7luhvGcpezjoWNCtPp9G3d+jwgyJw5x09Ob2 +uhtTS51PJot1bj0d64IcCP8a6nmSct+3C9Mx97uJpUYV9X99g9W2K9GRdXXX +y1tUPVjYsnFoqwMdn3a/75+h6sncdbFEdVc6njNVlq6l6s3MBjlZ3X10zC9v +cAovpOJ1WjdwRwAds8bFSr/mUfWvYf+caxwd6R84ftzOpe5Pq3s8p4vpyC3h +Y3TjHJXfQR4wMkutf3IP/65IEnIGD4x8/UN9f2zzcfIoCRd2Hkn+sUxHB5Wp +tXxU/cxQP/3891oZ7M1WP/sslOqb/7KcNkjJ4AxXvSN/ILU/qatCDUxl0K2S +HkSj6rNB2d38S5dk8NiC6PxmQxLeEWV5JldlMN2Hw9GB6geiL92+MZMng+Vx +6vuOU/3CvcSSa/a3ZfA5y/1omxZ1Ps75l3kaZZAWV9JprELC5lUXMlM+yuCp +t7GH2qWp/d4XkxChJIvFivyTm5ZZMMVn6enYLIufI1I8gu6xoC+Y/jrwqSx2 +vDh/v7eaBU1P/kB8hyzqK16u2k5S/Vx0mXRpjyxWf9DK5ilnwbaRdR8WxmTx +wdXQTWmFLAhhvXK/zi+HZqXLoiLpLBjb6bB31EcOSX6N0eOeLBhN83Q8vEYe +bTXHTnxhY4HFz0iLz1qb8MYD5+AtekwY3895pDpeAQU+aep8vlBBvU8Is59q +3oy1WV56rVfuAt8L+QzmT0VsnN7BtansDkicrtylpaWEkaEfrDNSSuHyFt2N +/P5bsZ67KEb0ZAm0i23XnM5SxvL1Zd/3ZRWBnkRzpkqPCmqacy/xJRUCD0dh +uFfSNjT5892+rjQfpBKlDVzkVbFnhO/AvaTrsFbOrdb+qSpK//28tnpFLigz +RCsj3dWwzLSjL23+Ehwe4muxZFPHosiPve0T2fBzOs3B4rI62lm9OsvhmgVm +Kk9yLbZq4Lh1YU2DRAY8nNb/O/9SA0f3uWaLF5+BECW1gTe+mhjequA6PZkM +jAmfLpe1WpiQpcJ7xz8JTGRFbNYXaqG7vVz4Ne54UEg4G9WsrY1GCulnC6Si +QdFX95HcgDYmrrM4EXryKPg+PHCyOkwHhbxPP3DtD4OJg2ORJuE6yLGof5rZ +HgZRksFBPRE6+GAzHtnYGAZnYw/Z/47RwZD+5osTN8KAqRdBGKTooMjVq3Ey +vmGwWHuisSVXByvOlnsHTYfC+cobM29bdDA/TnnFLuFQeJTf5TMlqIuyG8Id +b80Fw7A1bV+EiC7GrGTIpwwFA9vCQZe/Yrp49VoCX8STYDCyW2O7itDFuM03 +xc9cCoYnK/S0RRV1sTVtxc9o7WDo8M5bu91QF+fM+i4lxwbBgGxgRaafLh5O +Js3n+QJhpnR5XuWeLrbtcpl3POQPXxxN88/U6SK7WMfxc27+0Lcy3fxTgy5V +794vdFn4Q4On2JVLTboocGa8IkXWH5JENPWW2nSxZHWn3ckBP9h4OjC2/b0u +et5tCBgx9wMl/242X3Y9NP7E82RB2Rf2y5WtzbXRQ824h1ri0vshutUjUH6X +Hh54nHZpDc9+yPTle07a6+FzXU6tFUve0Fh8LO25kx4KNSvwS7zzBgF58w1L +Xnpo9/eO588cb3gi/1nAM0IP6/fc3rRKwBsUFaQJ+Tw9nH2ox1Yj6AVTitla +5KQehvcKLvZHe0BfB5rwT+vh/vD7FUxPD2gKmdgdPquHTjapG6+aekAGaRGm +9UcPrbh9WXf4PEBRj+1uPYc+Ls6HCVWXuYO3xUFai5A+Hgqy+uXz0Q26/M3W +dRnoI01TXXDcdS/cL/r7cfa0Po6vHTZfe9IZtIzD5y1T9dHsbbjq+xBnqPk4 +vi4/XR9LecKMHrk4Ayk1pG15Xh+nkyqra1Sc4e7lpvQbV/XxYmVlo/d7J8hP +S9Y1q9DHAbn52GodJzgTviHrcic1v4b/4eSiA7jukEF9KQM8t9eJq4y1G5a6 +OHlaCAPM0Z+/9ejGbsj3nXhnKWOAtapE6GjqbviSUhfpqmCAWUsn7Tz8dsPh +tp2Vx9QMUHdAS4BPYjectY2Vum9qgArR2mcPnbWHeufuRY1DBvjrQDZb1WE7 +ED94qk65yQCtF7/vGh+0hYxlP83UZgPcM5CdcuIfW2A/b8r6+tgA313XkFcr +toWx2lW389sM8FhlrFd3sC3Us528zNdpgB9i+hZVl2zA9UJC5NxnA3warnxG +k24DlxuOaT7kZmCsjU3vbKwVCHIFs2ycGJjbZXd9LswciozjoiddGKivdWsP +OJuDWlyGcbYbA1WNqwPyDc3BdpLZ3efFwJnVhu5l3OaQ0jO7sD+YgcGe/YYj +JWbwuzDeKDqRgY0epo3NH01hQD+7s6SMgS+DO+49PWACB44WXbOoYODt6cGo +OTsTmKuo8R1nMpDZuUJNX98E+Oh986q11Pi19careUzAilNS4kETA9fmNg7n +V++Axq4Sn85uBq5uuaLVt2oHWPLc3xrRx8BvIalz7pPG0GfWNifyjoEy93dk +/B4whpn676c9hhmotqXg3yCmMWwt2Fb+vzEGWjgV/rZwM4bGge0RaT8oD0im +hZsZg6XAblCZZKCPX2NQlZox+J06+iZ8loGb/cPaD66l1mtKyRX+TblGadP/ +Zowg6U/O/vo/DPxRvSc1atgINmrcVnJfYuA5lf7P4h1GcONg/ezyMgNbb9bI +dd4zgv8Datmgfw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07376017787704818}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07376017787704818}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c81d8bAHDREKXszedeI0lkz+t5InsUZYaQkZEoISOjaBiRSmkYISXc ++zHKqHxJRZq2IknjJ4msFF+/z/ev+3q/zj3n3s85z3Oe50PzPmTvy87GxrZ1 +BRvbf59zQ22PZVOLDPN3T040hRkbdt0QOba9LwnWbCHKaT00QMFX3iJ95+Hf +hJs5v7tVIWLXnV6OvkJQ11vv8b57O/BOCJ9f6CUh6atCSmW3HXxotD0009sM +i363t0l1e4Gp7NjgVO9b6FRdyTX2NgwWerUvTvaOAPsgo1i2PRFajG8VvSmc +hoUZRV5Fr/Mg8aHui7fSEtjwOhyjT+WCQPC+O2uMObD4ZEqFa2QBnFc1bbB1 +4ERjq95s2aRi6L+8rWlq43oUbYqq6JkuhdSi+Ffsorz4dZWqXrrpXbDUCOAT +lOFF0W4hR5b9XeB8bO+waSsv1nYoqL/0uAsnP8m9s9rOi1y7uzf9irgLsfSO +LxcCeDFATOzBSMldCMkX+Ve+nhefHnhU6bOqHOyusZSs9vKh9eZ88cHGchC+ +8OlM9nV+3DSsG6spWAkiW2pO/i7hx56awLo2qUoQa06Jd2fyo8uVMXRSqASp +yc1HN7XwY+y8oKKHfiXIWYd6NnzjxxSa4w5xr0pQX7mk9UldAO32bcu1K6uE +neFCo2rtAtgh7Vq2W5IJu7i/DeV0CiBPVIEHi8YE+8K6/sX3Angh2b6EW54J +jq/dXj35KYA3TBSnapSZ4K50s95VUBAXOeIPfAQmBI2qZCV5CqJ8pXRCthcT +Tu2xMHw7J4gHyrmLvQqZIFb9Uox9hRAapeycKS5hQgX/nnlVbiEMgSmVL3eY +0PPWg5klLYRZOi8CXauYIGsXTrczF8Ko+IZR3sdMaLbJW/36ihDePxp+vXGU +CUumsy9fGAijwyozkWU6CzJLosuWTIWR27HMqUmeBbKr2U5vtRNG73NJ0XGK +LLBu5dqe7iuMGdb9Ad9VWZBrTFRZZwhjpkXl2EVkgQ5a5Tz/IIwv2BId5dxZ +cES3YF9bkggG3VmlvTWbBZb5PDNWaSLI7SbKUr/EAvqa2NMvL4rgx56abK0r +LHjd5cjqLBXBY5h3XjWPBcqh6ziGXoqgzTHeqMU7LPhWElnyS0wULcQsxj// +wwI3Adsf4lWiuDb+Ew/nDxaoxzQk3mgUxdkXGg1Xf7KAa0RBiPZEFDs6V3Ru ++cWCukoOkO8XxS3jDSbb51kgZFWXuW1ZFDWPlBlsX0HC60RZDRMrMax0F712 +UYCEHT//RId8EsMeZbv6LB0SjplfUPxnXAwnjVekl+qRUFGwdYB/TgyjLBXn +GgxIENnjqVvHKY5Fy3zpfUjC+P3WeQ5lcfyyq6z7mzkJ2UmZ4VeixLFDv1rE +z5mEZ+82y44niuPNwxpRpq4kLGq0dBqmiuPjvbuPyLiR4Pd1Vm30ujgOKw0w +OveRoGe9d0q5RRwn7QyVufxJGBGUD3m8XgJlruu/6Q4nQfjQI0lhYQn0n4sR +ToggwfqZ84sAQgJ7nJKW5aNIqI1OVdqgLoHFpem1gTEknP0wOebiLIFnk9M6 +2hJJULvd4P+zUAJ7Fzv+fEknIdHAzktMRxLPZf25lX+TBHOPG7+0jSRxv+TQ +mr9FJPAkfD/hYC2J1cXMJLsSEq61JJdkekpiQtnI81+lJNy3rP+++owkHjFj +b1pdQcKks0zEdL8kBp/PfRV+j4R70aFreEcl8atvlnrWfRKOX3twWXlCEi/m +cT28XUfCumGnhgB2KVwnetHiVQMJm/zT2IYVpdBMv3XX+CMSPI7Onu2IkUKr +NUfehDwlQS7HSGIsWQpXuQgu2jz7b//Pla/JlML5Sm7XzW0kRC9ufm1UJIV7 +DXdXdbWTcPGEh2BdhxT2OShML70gwa24rKSnRwo5RwxeP3xJAv3pb+2ZYSls +XUr8GvOKBCZXtqvKrBQqXaE/G3tNQkfW07xiSWlkPs0LvNpJnW+VgGrLJmn8 +scCnZthFgmu3V/OwqjTmHh7SG6T8TWRxVNxUGj9uUBDY2EMCR/42xfMh0hjA +EbRs3kdC+z9xDZVR0njZI+77C8qZn9qtXyRJ4yUPF2JnPwlSm3wPceZIo/1J +gwOmA1Q8VFypPv5IGp3KslI531Px2vtyaeKZNBY+L1sXQNmWbaXZvrfU+i4m +zk8o77cP6YfP0vjsrqJ95CAJITE36cwJaRw8zsf+nHJUUV8Q8Vsad/aw4sWH +SDCNocUnrCIww9L5K0n5+YbGmzpcBG7jZe9coLyryPHZJA+BZGXpOcYHEva+ +SOX1EiHw4HO9+AbKw17yWqKSBJbFvaqapew31+T6hkZgU2hVo9IwCaHScze3 +byGw7eBj2yzKs1WZzxZUqHG5gv6HlKPNt/xgaRAYcEzJ4H+U2QZbeQN1CVxA +jNz4kYTkME8tuiGBY8S9VA3KXKv/ug4YEehxJjjagXJm7sX482YEXqwx2HGE +sqDKtiJLawKty1aOpVPObWl/xm5HoKZeYXAxZWln3x/1DgS6/53uqKNcNL7M +e8SVmr+rn/s5ZcXEXK0t+wgc3K+m2E+5UlBz76f9BPbKDyuMUta48yr+6gEC +Fewfc45TrjcMLNp9kMBRn3/aJylD58o27sME/r1Zf+gX5cf+eT9aIggsEL3w ++79xi0VdvtgYAh9cUPP7b/7LzC4tjQQCjUtj6v5bf4/cob3jJwlk3XGY/u/3 +++vWJhSdITC05pZAB2UP26IitwwClYtcpBooj44YtglkE+gjsIf3FuWAyP4f +HTkElvgkTJyjPMEdzpd8jUDB6me1RykfyefRZhQQ2PpROMiZ8m+N23tni6nn +SXNZp0P5eJtxQvkdAkM2Rl8VoMzhMVTkW0ng3Bk/0QnqfE7/imqTrCaw6s26 +U48p85zin+i+T2By3N7POZRFmObaps0EuqxmRmpSvr7j095/nxB4o/5S+TIV +H/T+uITa5wQ6JXztfUJ5K3tVm3w3gWmTmeutKZOXbCaG+gkUNnotxkVZZ8s3 +vpwhAqemTIlWKh6N9ki6rflGoGhhpbAa5aff7iU8GidwZFUG9ygV39Zx9sWR +UwS+TY/9e56yU8mpia9/COy/Htj5lcqP4N9TCc/W0/CgbM/xg++o/ArzE/rC +R0PPrv66f6l84xwbKOMQoWH4avkjaZSL37X0GNJpqMVR7Hudys+hhxeVarRo +OFrx4uBFqu+6q83V/Fafhtv58h5yUY5mHneaRBq+SP6eE0vlv1Chf9IWKxoe +SyP+59BNws5k3b6CfTQU7XJV/PCWyvd/yw8+8qGh3F/3TzqUxyPoHIMBNJyt +s1A594ba7wPcyiLhNPw1SE9Wpe6jJqvBExmnaXg0aKWtDXWfqfElqsSwaHi6 +9VbCyBMqf1JnH1+upWEXexjnasovOQJdaxtoWOBzS0e+lYSgWfvkqVYafjg1 +kOPWQsV/n+w7/wEaZmiuiCqg7luhvGcpezjoWNCtPp9G3d+jwgyJw5x09Ob2 +uhtTS51PJot1bj0d64IcCP8a6nmSct+3C9Mx97uJpUYV9X99g9W2K9GRdXXX +y1tUPVjYsnFoqwMdn3a/75+h6sncdbFEdVc6njNVlq6l6s3MBjlZ3X10zC9v +cAovpOJ1WjdwRwAds8bFSr/mUfWvYf+caxwd6R84ftzOpe5Pq3s8p4vpyC3h +Y3TjHJXfQR4wMkutf3IP/65IEnIGD4x8/UN9f2zzcfIoCRd2Hkn+sUxHB5Wp +tXxU/cxQP/3891oZ7M1WP/sslOqb/7KcNkjJ4AxXvSN/ILU/qatCDUxl0K2S +HkSj6rNB2d38S5dk8NiC6PxmQxLeEWV5JldlMN2Hw9GB6geiL92+MZMng+Vx +6vuOU/3CvcSSa/a3ZfA5y/1omxZ1Ps75l3kaZZAWV9JprELC5lUXMlM+yuCp +t7GH2qWp/d4XkxChJIvFivyTm5ZZMMVn6enYLIufI1I8gu6xoC+Y/jrwqSx2 +vDh/v7eaBU1P/kB8hyzqK16u2k5S/Vx0mXRpjyxWf9DK5ilnwbaRdR8WxmTx +wdXQTWmFLAhhvXK/zi+HZqXLoiLpLBjb6bB31EcOSX6N0eOeLBhN83Q8vEYe +bTXHTnxhY4HFz0iLz1qb8MYD5+AtekwY3895pDpeAQU+aep8vlBBvU8Is59q +3oy1WV56rVfuAt8L+QzmT0VsnN7BtansDkicrtylpaWEkaEfrDNSSuHyFt2N +/P5bsZ67KEb0ZAm0i23XnM5SxvL1Zd/3ZRWBnkRzpkqPCmqacy/xJRUCD0dh +uFfSNjT5892+rjQfpBKlDVzkVbFnhO/AvaTrsFbOrdb+qSpK//28tnpFLigz +RCsj3dWwzLSjL23+Ehwe4muxZFPHosiPve0T2fBzOs3B4rI62lm9OsvhmgVm +Kk9yLbZq4Lh1YU2DRAY8nNb/O/9SA0f3uWaLF5+BECW1gTe+mhjequA6PZkM +jAmfLpe1WpiQpcJ7xz8JTGRFbNYXaqG7vVz4Ne54UEg4G9WsrY1GCulnC6Si +QdFX95HcgDYmrrM4EXryKPg+PHCyOkwHhbxPP3DtD4OJg2ORJuE6yLGof5rZ +HgZRksFBPRE6+GAzHtnYGAZnYw/Z/47RwZD+5osTN8KAqRdBGKTooMjVq3Ey +vmGwWHuisSVXByvOlnsHTYfC+cobM29bdDA/TnnFLuFQeJTf5TMlqIuyG8Id +b80Fw7A1bV+EiC7GrGTIpwwFA9vCQZe/Yrp49VoCX8STYDCyW2O7itDFuM03 +xc9cCoYnK/S0RRV1sTVtxc9o7WDo8M5bu91QF+fM+i4lxwbBgGxgRaafLh5O +Js3n+QJhpnR5XuWeLrbtcpl3POQPXxxN88/U6SK7WMfxc27+0Lcy3fxTgy5V +794vdFn4Q4On2JVLTboocGa8IkXWH5JENPWW2nSxZHWn3ckBP9h4OjC2/b0u +et5tCBgx9wMl/242X3Y9NP7E82RB2Rf2y5WtzbXRQ824h1ri0vshutUjUH6X +Hh54nHZpDc9+yPTle07a6+FzXU6tFUve0Fh8LO25kx4KNSvwS7zzBgF58w1L +Xnpo9/eO588cb3gi/1nAM0IP6/fc3rRKwBsUFaQJ+Tw9nH2ox1Yj6AVTitla +5KQehvcKLvZHe0BfB5rwT+vh/vD7FUxPD2gKmdgdPquHTjapG6+aekAGaRGm +9UcPrbh9WXf4PEBRj+1uPYc+Ls6HCVWXuYO3xUFai5A+Hgqy+uXz0Q26/M3W +dRnoI01TXXDcdS/cL/r7cfa0Po6vHTZfe9IZtIzD5y1T9dHsbbjq+xBnqPk4 +vi4/XR9LecKMHrk4Ayk1pG15Xh+nkyqra1Sc4e7lpvQbV/XxYmVlo/d7J8hP +S9Y1q9DHAbn52GodJzgTviHrcic1v4b/4eSiA7jukEF9KQM8t9eJq4y1G5a6 +OHlaCAPM0Z+/9ejGbsj3nXhnKWOAtapE6GjqbviSUhfpqmCAWUsn7Tz8dsPh +tp2Vx9QMUHdAS4BPYjectY2Vum9qgArR2mcPnbWHeufuRY1DBvjrQDZb1WE7 +ED94qk65yQCtF7/vGh+0hYxlP83UZgPcM5CdcuIfW2A/b8r6+tgA313XkFcr +toWx2lW389sM8FhlrFd3sC3Us528zNdpgB9i+hZVl2zA9UJC5NxnA3warnxG +k24DlxuOaT7kZmCsjU3vbKwVCHIFs2ycGJjbZXd9LswciozjoiddGKivdWsP +OJuDWlyGcbYbA1WNqwPyDc3BdpLZ3efFwJnVhu5l3OaQ0jO7sD+YgcGe/YYj +JWbwuzDeKDqRgY0epo3NH01hQD+7s6SMgS+DO+49PWACB44WXbOoYODt6cGo +OTsTmKuo8R1nMpDZuUJNX98E+Oh986q11Pi19careUzAilNS4kETA9fmNg7n +V++Axq4Sn85uBq5uuaLVt2oHWPLc3xrRx8BvIalz7pPG0GfWNifyjoEy93dk +/B4whpn676c9hhmotqXg3yCmMWwt2Fb+vzEGWjgV/rZwM4bGge0RaT8oD0im +hZsZg6XAblCZZKCPX2NQlZox+J06+iZ8loGb/cPaD66l1mtKyRX+TblGadP/ +Zowg6U/O/vo/DPxRvSc1atgINmrcVnJfYuA5lf7P4h1GcONg/ezyMgNbb9bI +dd4zgv8Datmgfw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07376017787704818}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07376017787704818}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994261070290419*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"4fe1c608-6b89-4d6a-a62e-a4aadd72131b"] +}, Open ]], Cell[CellGroupData[{ @@ -13825,66 +15001,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[225]:=",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], + "In[142]:=",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5794624625701512`*^-174\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 225, 201, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333512859148*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.260831210454722`*^-158\\\", \ +RowBox[{\\\"1642431204554797391706825\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"103\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"00000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 142, 73, + 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333512859148*^9, 3.994261070328163*^9}, CellLabel-> "During evaluation of \ -In[225]:=",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], +In[142]:=",ExpressionUUID->"86477058-af99-42bd-833c-8491c9da0f01"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.303016475329449`*^-178\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 225, 202, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333512868147*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0931460023425702`*^-160\\\", \ +RowBox[{\\\"5525138572122338425701759\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"106\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"00000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 142, 74, + 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333512859148*^9, 3.9942610703358173`*^9}, CellLabel-> "During evaluation of \ -In[225]:=",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], +In[142]:=",ExpressionUUID->"5aaccc61-5ebe-47cc-b5fe-ab2c43aa6401"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.3647813242367804`*^-181\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 225, 203, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335128761463`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.9086414283811242`*^-163\\\", \ +RowBox[{\\\"1923300736955786005986782\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"110\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"00000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 142, 75, + 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333512859148*^9, 3.9942610703429956`*^9}, CellLabel-> "During evaluation of \ -In[225]:=",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], +In[142]:=",ExpressionUUID->"bd4741f4-f0f5-4de8-8655-911fd077fb9d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 225, 204, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333512885145*^9}, +during this calculation.\"", 2, 142, 76, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333512859148*^9, 3.994261070350247*^9}, CellLabel-> "During evaluation of \ -In[225]:=",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], +In[142]:=",ExpressionUUID->"4c841167-8dfa-4ff6-89b0-17ca603c80ce"], -Cell[BoxData["9.779568499633264`"], "Output", - CellChangeTimes->{3.9913335200445786`*^9}, +Cell[BoxData["10.304937628696205`"], "Output", + CellChangeTimes->{3.9913335200445786`*^9, 3.9942611097438517`*^9}, CellLabel-> - "Out[225]=",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] + "Out[142]=",ExpressionUUID->"8e81df93-f2be-46a9-b626-f5bed2f62576"] }, Open ]], Cell[CellGroupData[{ @@ -13951,68 +15134,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918491385551624`*^9, - 3.991849142620474*^9}},ExpressionUUID->"f2835c98-560f-8e47-bdab-\ -0d2700971836"], + CellChangeTimes->{{3.9918491385551624`*^9, 3.991849142620474*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 226, 205, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335200775414`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.8151192737804683`*^-208\\\", \ +RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 143, 77, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335200775414`*^9, 3.994261109780219*^9}, CellLabel-> "During evaluation of \ -In[226]:=",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], +In[143]:=",ExpressionUUID->"340252c1-48bf-4df6-a74c-5194e31e91a1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 226, - 206, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335200875454`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.195086419825216`*^-213\\\", \ +RowBox[{\\\"7066407765328259371913031\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"58\\\", \\\"\[RightSkeleton]\\\"}], \\\"82006784000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 143, 78, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335200775414`*^9, 3.99426110978789*^9}, CellLabel-> "During evaluation of \ -In[226]:=",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], +In[143]:=",ExpressionUUID->"ec94355b-c1af-4ade-863c-d995d3dac622"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 226, - 207, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335200945435`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.251511342241749`*^-218\\\", \ +RowBox[{\\\"1430947572478972522812388\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"62\\\", \\\"\[RightSkeleton]\\\"}], \\\"63737600000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 143, 79, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335200775414`*^9, 3.99426110979573*^9}, CellLabel-> "During evaluation of \ -In[226]:=",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], +In[143]:=",ExpressionUUID->"ec16bcab-87e5-405f-b7a2-ed4804188fcc"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 226, 208, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335201035423`*^9}, +during this calculation.\"", 2, 143, 80, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335200775414`*^9, 3.994261109802431*^9}, CellLabel-> "During evaluation of \ -In[226]:=",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], +In[143]:=",ExpressionUUID->"3eebe558-d3fc-45eb-9f99-e589c809f7c2"], -Cell[BoxData["0.7348275136088338`"], "Output", - CellChangeTimes->{3.9913335271231823`*^9}, +Cell[BoxData["0.46301006597652833`"], "Output", + CellChangeTimes->{3.9913335271231823`*^9, 3.9942611156243553`*^9}, CellLabel-> - "Out[226]=",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] + "Out[143]=",ExpressionUUID->"c7539442-1e49-4371-b9a9-197f66bd6a41"] }, Open ]], Cell[CellGroupData[{ @@ -14033,8 +15220,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -14079,68 +15265,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849146408966*^9, - 3.9918491485488663`*^9}},ExpressionUUID->"ca837916-250f-4d4e-8368-\ -5a08f479e656"], + CellChangeTimes->{{3.991849146408966*^9, 3.9918491485488663`*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 227, 209, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335271591835`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.8151192737804683`*^-208\\\", \ +RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 144, 81, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335271591835`*^9, 3.9942611156607847`*^9}, CellLabel-> "During evaluation of \ -In[227]:=",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], +In[144]:=",ExpressionUUID->"3194138d-9222-463f-b4d9-7c1dbf13cd88"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 227, - 210, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335271681843`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.195086419825216`*^-213\\\", \ +RowBox[{\\\"7066407765328259371913031\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"58\\\", \\\"\[RightSkeleton]\\\"}], \\\"82006784000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 144, 82, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335271591835`*^9, 3.994261115668715*^9}, CellLabel-> "During evaluation of \ -In[227]:=",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], +In[144]:=",ExpressionUUID->"ee9cc04c-3386-47f6-ad1a-dd2c15623816"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 227, - 211, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333527176182*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.251511342241749`*^-218\\\", \ +RowBox[{\\\"1430947572478972522812388\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"62\\\", \\\"\[RightSkeleton]\\\"}], \\\"63737600000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 144, 83, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335271591835`*^9, 3.9942611156743383`*^9}, CellLabel-> "During evaluation of \ -In[227]:=",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], +In[144]:=",ExpressionUUID->"2f7459b9-3b8c-4065-be6e-49ca0c84884f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 227, 212, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333527184183*^9}, +during this calculation.\"", 2, 144, 84, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335271591835`*^9, 3.9942611156794567`*^9}, CellLabel-> "During evaluation of \ -In[227]:=",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], +In[144]:=",ExpressionUUID->"04627875-ac27-446c-a6d9-712becbfed9d"], -Cell[BoxData["5.221864211842707`"], "Output", - CellChangeTimes->{3.9913335331581306`*^9}, +Cell[BoxData["29.021846219135064`"], "Output", + CellChangeTimes->{3.9913335331581306`*^9, 3.9942611211049213`*^9}, CellLabel-> - "Out[227]=",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] + "Out[144]=",ExpressionUUID->"f30af007-f3e2-4a38-8468-6314a546eef1"] }, Open ]], Cell[CellGroupData[{ @@ -14161,8 +15351,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -14207,68 +15396,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918491518098984`*^9, - 3.9918491543107758`*^9}},ExpressionUUID->"b579991f-985b-234a-94aa-\ -ed18c097f8c0"], + CellChangeTimes->{{3.9918491518098984`*^9, 3.9918491543107758`*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 228, 213, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335331923027`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.8151192737804683`*^-208\\\", \ +RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 145, 85, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335331923027`*^9, 3.994261121138483*^9}, CellLabel-> "During evaluation of \ -In[228]:=",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], +In[145]:=",ExpressionUUID->"029de7ab-36cd-4078-933c-69edae8c940e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 228, - 214, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333533202278*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.195086419825216`*^-213\\\", \ +RowBox[{\\\"7066407765328259371913031\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"58\\\", \\\"\[RightSkeleton]\\\"}], \\\"82006784000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 145, 86, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335331923027`*^9, 3.9942611211440372`*^9}, CellLabel-> "During evaluation of \ -In[228]:=",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], +In[145]:=",ExpressionUUID->"4228fa02-dafb-4e67-9f3b-5edf1a69261e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 228, - 215, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335332102795`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.251511342241749`*^-218\\\", \ +RowBox[{\\\"1430947572478972522812388\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"62\\\", \\\"\[RightSkeleton]\\\"}], \\\"63737600000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 145, 87, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335331923027`*^9, 3.99426112115007*^9}, CellLabel-> "During evaluation of \ -In[228]:=",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], +In[145]:=",ExpressionUUID->"354bc55a-32aa-4c11-b563-c2c54abf179a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 228, 216, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333533218281*^9}, +during this calculation.\"", 2, 145, 88, 31387659661087943970, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335331923027`*^9, 3.994261121157771*^9}, CellLabel-> "During evaluation of \ -In[228]:=",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], +In[145]:=",ExpressionUUID->"f6c552a6-9410-4f2c-a3ee-58334e4d442c"], -Cell[BoxData["15.545902834190647`"], "Output", - CellChangeTimes->{3.9913335366055527`*^9}, +Cell[BoxData["4.9090560775404555`"], "Output", + CellChangeTimes->{3.9913335366055527`*^9, 3.9942611245615063`*^9}, CellLabel-> - "Out[228]=",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] + "Out[145]=",ExpressionUUID->"c4f864d2-0f57-4613-822d-b76e714b3129"] }, Open ]], Cell[CellGroupData[{ @@ -14277,18 +15470,24 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918491594691143`*^9, - 3.9918491632611027`*^9}},ExpressionUUID->"afb7855c-8700-d444-926c-\ -6d96abe14e67"], - -Cell[BoxData["0.08155763943441016`"], "Output", - CellChangeTimes->{3.9913335366395893`*^9}, + CellChangeTimes->{{3.9918491594691143`*^9, 3.9918491632611027`*^9}}, CellLabel-> - "Out[229]=",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] -}, Open ]] + "In[146]:=",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], + +Cell[BoxData["0.03879081622049559`"], "Output", + CellChangeTimes->{3.9913335366395893`*^9, 3.99426112459231*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"6b301d42-66c8-49fc-a089-22ad8c2340a8"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellLabel-> + "In[147]:=",ExpressionUUID->"c807c58a-129c-4478-a7f1-a262f2b7ade3"] }, -WindowSize->{1440, 882}, -WindowMargins->{{0, Automatic}, {0, Automatic}}, +Evaluator->"kernel 2", +WindowSize->{714, 170.25}, +WindowMargins->{{Automatic, 3}, {Automatic, 191.25}}, CellContext->Notebook, Magnification:>1.2 Inherited, FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", @@ -14307,620 +15506,639 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 357, 7, 79, "Input",ExpressionUUID->"b889bfd4-807d-422d-ac7f-c02fd6ee8510"], -Cell[936, 31, 232, 5, 50, "Output",ExpressionUUID->"529ad15b-e6ad-49ce-88cf-317318b34ca1"] +Cell[576, 22, 352, 6, 44, "Input",ExpressionUUID->"b889bfd4-807d-422d-ac7f-c02fd6ee8510"], +Cell[931, 30, 249, 4, 50, "Output",ExpressionUUID->"4ecc2b7e-9e89-4387-95ed-66288b9324f9"] }, Open ]], Cell[CellGroupData[{ -Cell[1205, 41, 250, 5, 44, "Input",ExpressionUUID->"eb80148f-bf35-4e4a-804e-80f97ab5e689"], -Cell[1458, 48, 232, 5, 50, "Output",ExpressionUUID->"fda51582-ce83-4489-be97-bd5107e05d63"] +Cell[1217, 39, 245, 4, 44, "Input",ExpressionUUID->"eb80148f-bf35-4e4a-804e-80f97ab5e689"], +Cell[1465, 45, 249, 4, 50, "Output",ExpressionUUID->"9bd7d550-6a82-43d7-ba75-c36b7a0af5d9"] }, Open ]], Cell[CellGroupData[{ -Cell[1727, 58, 228, 5, 44, "Input",ExpressionUUID->"ecc38e97-703c-4f0f-9148-92a1d475043c"], -Cell[1958, 65, 234, 5, 50, "Output",ExpressionUUID->"a5aa4cc3-f462-42ed-9b53-9af90f7caec8"] +Cell[1751, 54, 223, 4, 44, "Input",ExpressionUUID->"ecc38e97-703c-4f0f-9148-92a1d475043c"], +Cell[1977, 60, 251, 4, 50, "Output",ExpressionUUID->"f20edad3-1f33-4310-87a7-7a4b3abb9310"] }, Open ]], Cell[CellGroupData[{ -Cell[2229, 75, 180, 4, 44, "Input",ExpressionUUID->"99ac952c-1f4e-4d46-9a34-2d251b7c86ce"], -Cell[2412, 81, 232, 5, 50, "Output",ExpressionUUID->"2eee7f80-e49a-4f80-a4e2-65a1d99e56b3"] +Cell[2265, 69, 175, 3, 44, "Input",ExpressionUUID->"99ac952c-1f4e-4d46-9a34-2d251b7c86ce"], +Cell[2443, 74, 249, 4, 50, "Output",ExpressionUUID->"f3458fbd-a79e-429c-8b29-899a4261e959"] }, Open ]], Cell[CellGroupData[{ -Cell[2681, 91, 262, 8, 64, "Input",ExpressionUUID->"4436f480-0c5c-458d-8c45-df8a9b6bea6a"], -Cell[2946, 101, 237, 5, 50, "Output",ExpressionUUID->"fcc6327d-cdb7-4da5-82fd-259cd5c1bc60"] +Cell[2729, 83, 257, 7, 64, "Input",ExpressionUUID->"4436f480-0c5c-458d-8c45-df8a9b6bea6a"], +Cell[2989, 92, 254, 4, 50, "Output",ExpressionUUID->"2596fb0e-6d65-4fe2-a7ea-da9c5ef07fc5"] }, Open ]], Cell[CellGroupData[{ -Cell[3220, 111, 136, 3, 44, "Input",ExpressionUUID->"cb58f02f-be8b-4d45-bd49-171e1ee7d031"], -Cell[3359, 116, 233, 5, 50, "Output",ExpressionUUID->"219e5551-d3b6-4536-84b7-b79c4049f1d9"] +Cell[3280, 101, 131, 2, 44, "Input",ExpressionUUID->"cb58f02f-be8b-4d45-bd49-171e1ee7d031"], +Cell[3414, 105, 250, 4, 50, "Output",ExpressionUUID->"0b95d15e-2d58-4e30-8c62-ff60c3e4421f"] }, Open ]], Cell[CellGroupData[{ -Cell[3629, 126, 281, 7, 44, "Input",ExpressionUUID->"e1ac8643-0af0-46b9-836e-2444f6b2fd8a"], -Cell[3913, 135, 248, 5, 50, "Output",ExpressionUUID->"06e0fc80-6155-4c57-80c9-6ba7a7ac1dcc"] +Cell[3701, 114, 276, 6, 44, "Input",ExpressionUUID->"e1ac8643-0af0-46b9-836e-2444f6b2fd8a"], +Cell[3980, 122, 265, 4, 50, "Output",ExpressionUUID->"e54aa1b3-2db0-470a-bc4e-f98ae600dcab"] }, Open ]], Cell[CellGroupData[{ -Cell[4198, 145, 262, 8, 44, "Input",ExpressionUUID->"8275e0b6-3618-4c2e-875f-2b7bb8d6856a"], -Cell[4463, 155, 248, 5, 50, "Output",ExpressionUUID->"2e96ef34-f020-4371-ad0b-15a99677fdac"] +Cell[4282, 131, 257, 7, 44, "Input",ExpressionUUID->"8275e0b6-3618-4c2e-875f-2b7bb8d6856a"], +Cell[4542, 140, 267, 4, 50, "Output",ExpressionUUID->"7ed5c58a-e41c-4a2c-8335-58318ab1e051"] }, Open ]], Cell[CellGroupData[{ -Cell[4748, 165, 208, 4, 66, "Input",ExpressionUUID->"23b01d0a-5903-4e9c-ad2a-07a68c9459c8"], -Cell[4959, 171, 218, 4, 75, "Output",ExpressionUUID->"caa2e3a1-909f-4a18-bf6b-f2625b0d33e9"] +Cell[4846, 149, 203, 3, 44, "Input",ExpressionUUID->"23b01d0a-5903-4e9c-ad2a-07a68c9459c8"], +Cell[5052, 154, 239, 4, 50, "Output",ExpressionUUID->"b7f7f5fe-e291-40ae-a140-2f35bec8697e"] }, Open ]], Cell[CellGroupData[{ -Cell[5214, 180, 210, 4, 66, "Input",ExpressionUUID->"df407cf7-6b46-4e5d-809f-24379797fc77"], -Cell[5427, 186, 214, 4, 75, "Output",ExpressionUUID->"d1be7809-d837-41e2-8543-bc0cbc18f3e7"] +Cell[5328, 163, 206, 3, 44, "Input",ExpressionUUID->"df407cf7-6b46-4e5d-809f-24379797fc77"], +Cell[5537, 168, 238, 4, 50, "Output",ExpressionUUID->"e69ef6bb-16a6-483e-baac-189e0486f68e"] }, Open ]], Cell[CellGroupData[{ -Cell[5678, 195, 133, 3, 66, "Input",ExpressionUUID->"dde34a8a-9eae-4100-bc6d-95e7040a3589"], -Cell[5814, 200, 232, 5, 75, "Output",ExpressionUUID->"a189dc1c-a561-40f7-90aa-1d4fa5b3c382"] +Cell[5812, 177, 129, 2, 44, "Input",ExpressionUUID->"dde34a8a-9eae-4100-bc6d-95e7040a3589"], +Cell[5944, 181, 250, 4, 50, "Output",ExpressionUUID->"dc4c6849-effd-449c-bf51-9f93dcd2c912"] }, Open ]], Cell[CellGroupData[{ -Cell[6083, 210, 133, 3, 66, "Input",ExpressionUUID->"bf5d9094-3dbd-48ef-a41a-221ed590d195"], -Cell[6219, 215, 232, 5, 75, "Output",ExpressionUUID->"d9f8261a-f29c-4234-ac75-2f7d6ebe3483"] +Cell[6231, 190, 129, 2, 44, "Input",ExpressionUUID->"bf5d9094-3dbd-48ef-a41a-221ed590d195"], +Cell[6363, 194, 250, 4, 50, "Output",ExpressionUUID->"0af29986-6d33-465c-b8b9-9fadd30125e6"] }, Open ]], Cell[CellGroupData[{ -Cell[6488, 225, 561, 20, 175, "Input",ExpressionUUID->"3ace4fda-d92d-425c-a2b5-0120c0772e6d"], -Cell[7052, 247, 249, 5, 75, "Output",ExpressionUUID->"9954528d-0f8d-4638-8c11-834a9aab1fab"] +Cell[6650, 203, 557, 19, 119, "Input",ExpressionUUID->"3ace4fda-d92d-425c-a2b5-0120c0772e6d"], +Cell[7210, 224, 267, 4, 50, "Output",ExpressionUUID->"4f0ad6e5-ce81-4374-b09b-7238ce4e57dc"] }, Open ]], Cell[CellGroupData[{ -Cell[7338, 257, 561, 20, 175, "Input",ExpressionUUID->"e291aa18-249e-4d72-a70c-054d52c7448f"], -Cell[7902, 279, 252, 5, 75, "Output",ExpressionUUID->"59cb48b2-69e7-415b-806d-34aa3aa5097e"] +Cell[7514, 233, 557, 19, 119, "Input",ExpressionUUID->"e291aa18-249e-4d72-a70c-054d52c7448f"], +Cell[8074, 254, 272, 4, 50, "Output",ExpressionUUID->"7808fd06-8392-4616-abb1-b7c0a85de926"] }, Open ]], Cell[CellGroupData[{ -Cell[8191, 289, 1592, 51, 362, "Input",ExpressionUUID->"f42bf625-e124-4b64-aef5-42e76d046d82"], -Cell[9786, 342, 246, 5, 75, "Output",ExpressionUUID->"a171f111-bf01-4a12-8132-9a0d7785376c"] +Cell[8383, 263, 1588, 50, 471, "Input",ExpressionUUID->"f42bf625-e124-4b64-aef5-42e76d046d82"], +Cell[9974, 315, 264, 4, 50, "Output",ExpressionUUID->"59ff714e-90e8-4865-85dc-e1f849633f5d"] }, Open ]], Cell[CellGroupData[{ -Cell[10069, 352, 1426, 47, 362, "Input",ExpressionUUID->"f5d5560d-9260-454d-98ce-c06511c83954"], -Cell[11498, 401, 266, 6, 75, "Output",ExpressionUUID->"5f961593-6260-498e-9a54-51d53fde60f5"] +Cell[10275, 324, 1422, 46, 247, "Input",ExpressionUUID->"f5d5560d-9260-454d-98ce-c06511c83954"], +Cell[11700, 372, 284, 5, 50, "Output",ExpressionUUID->"f620726f-538e-43cd-b665-db6c93f12167"] }, Open ]], Cell[CellGroupData[{ -Cell[11801, 412, 1426, 47, 362, "Input",ExpressionUUID->"d0e7131a-0f25-404d-884d-c03a8244b0ef"], -Cell[13230, 461, 271, 6, 75, "Output",ExpressionUUID->"4bd7832a-a133-4b2f-95a2-c2c53ebe1809"] +Cell[12021, 382, 1422, 46, 247, "Input",ExpressionUUID->"d0e7131a-0f25-404d-884d-c03a8244b0ef"], +Cell[13446, 430, 289, 5, 50, "Output",ExpressionUUID->"35d556a9-8818-411e-96c9-ef318312dc55"] }, Open ]], Cell[CellGroupData[{ -Cell[13538, 472, 1592, 51, 362, "Input",ExpressionUUID->"d63ea0e8-4e6c-4188-b794-6257f62783c1"], -Cell[15133, 525, 243, 5, 75, "Output",ExpressionUUID->"d579c7c6-7fcb-4155-b706-631dc5e4c89a"] +Cell[13772, 440, 1588, 50, 471, "Input",ExpressionUUID->"d63ea0e8-4e6c-4188-b794-6257f62783c1"], +Cell[15363, 492, 261, 4, 50, "Output",ExpressionUUID->"6ca7a394-1d7c-4e49-9122-ccf55e5d9176"] }, Open ]], Cell[CellGroupData[{ -Cell[15413, 535, 135, 3, 66, "Input",ExpressionUUID->"6aa07b64-4c4c-494a-af1f-a531af9dbe38"], -Cell[15551, 540, 234, 5, 75, "Output",ExpressionUUID->"0e75f869-022d-46cc-8256-2126aa4a55ba"] +Cell[15661, 501, 131, 2, 44, "Input",ExpressionUUID->"6aa07b64-4c4c-494a-af1f-a531af9dbe38"], +Cell[15795, 505, 252, 4, 50, "Output",ExpressionUUID->"4880ba9a-baf0-4aef-b94e-e9cb153686f9"] }, Open ]], Cell[CellGroupData[{ -Cell[15822, 550, 137, 3, 66, "Input",ExpressionUUID->"3c1b38fe-0723-4995-9435-a1f03b92def6"], -Cell[15962, 555, 232, 5, 75, "Output",ExpressionUUID->"0393cca6-c16c-458d-9770-dc405494e428"] +Cell[16084, 514, 133, 2, 44, "Input",ExpressionUUID->"3c1b38fe-0723-4995-9435-a1f03b92def6"], +Cell[16220, 518, 250, 4, 50, "Output",ExpressionUUID->"82b81ab5-4df7-423e-a197-eb31517250e4"] }, Open ]], Cell[CellGroupData[{ -Cell[16231, 565, 138, 3, 66, "Input",ExpressionUUID->"92e841e4-ada6-4208-9127-dc72dab603ab"], -Cell[16372, 570, 240, 5, 75, "Output",ExpressionUUID->"3038ed8c-5179-47a4-a818-96fa0d8e72bb"] +Cell[16507, 527, 134, 2, 44, "Input",ExpressionUUID->"92e841e4-ada6-4208-9127-dc72dab603ab"], +Cell[16644, 531, 258, 4, 50, "Output",ExpressionUUID->"27655270-70c5-4a35-be5b-9d64c7dfef26"] }, Open ]], Cell[CellGroupData[{ -Cell[16649, 580, 223, 5, 66, "Input",ExpressionUUID->"716935ef-6633-4892-90bc-9682ac59b90c"], -Cell[16875, 587, 247, 6, 75, "Output",ExpressionUUID->"ee044974-221d-4b28-88f4-f24cf19365b1"] +Cell[16939, 540, 219, 4, 44, "Input",ExpressionUUID->"716935ef-6633-4892-90bc-9682ac59b90c"], +Cell[17161, 546, 267, 5, 50, "Output",ExpressionUUID->"2e19a6a0-bf8c-4765-86d9-66889788a122"] }, Open ]], Cell[CellGroupData[{ -Cell[17159, 598, 138, 3, 66, "Input",ExpressionUUID->"73f208fc-0b23-4ee4-8d4e-6ab90d717484"], -Cell[17300, 603, 236, 5, 75, "Output",ExpressionUUID->"822d6fac-ac4d-4942-bb34-27ca91e5a9bd"] +Cell[17465, 556, 134, 2, 44, "Input",ExpressionUUID->"73f208fc-0b23-4ee4-8d4e-6ab90d717484"], +Cell[17602, 560, 254, 4, 50, "Output",ExpressionUUID->"8963d690-da54-45a2-a223-002c855cdb54"] }, Open ]], Cell[CellGroupData[{ -Cell[17573, 613, 328, 6, 66, "Input",ExpressionUUID->"b4c6186e-42ec-418f-9785-2e4b6041c082"], -Cell[17904, 621, 232, 5, 75, "Output",ExpressionUUID->"32d9c518-c474-43b6-bcf8-858b8b6c37b3"] +Cell[17893, 569, 324, 5, 44, "Input",ExpressionUUID->"b4c6186e-42ec-418f-9785-2e4b6041c082"], +Cell[18220, 576, 252, 4, 50, "Output",ExpressionUUID->"ecd998f4-e34c-4216-bc10-fce1f2e3a889"] }, Open ]], Cell[CellGroupData[{ -Cell[18173, 631, 301, 6, 66, "Input",ExpressionUUID->"8a26d530-4bcb-49ee-be8a-f86bb9292676"], -Cell[18477, 639, 235, 5, 75, "Output",ExpressionUUID->"7b9e415b-2a16-4adc-a44f-f2f8de8a1803"] +Cell[18509, 585, 297, 5, 44, "Input",ExpressionUUID->"8a26d530-4bcb-49ee-be8a-f86bb9292676"], +Cell[18809, 592, 253, 4, 50, "Output",ExpressionUUID->"6742260c-c66e-41b5-b1d5-1b940243aac8"] }, Open ]], Cell[CellGroupData[{ -Cell[18749, 649, 223, 5, 66, "Input",ExpressionUUID->"f657102f-c0ac-4fbe-b6f4-c4f8ad770408"], -Cell[18975, 656, 229, 5, 75, "Output",ExpressionUUID->"b2966cdc-7db0-44fe-88c3-2efa183fcd7b"] +Cell[19099, 601, 219, 4, 44, "Input",ExpressionUUID->"f657102f-c0ac-4fbe-b6f4-c4f8ad770408"], +Cell[19321, 607, 246, 4, 50, "Output",ExpressionUUID->"eefd5081-4190-4c4f-8afe-3df3f8da0625"] }, Open ]], Cell[CellGroupData[{ -Cell[19241, 666, 354, 11, 96, "Input",ExpressionUUID->"876adfcc-624e-4813-82c0-c91b8f56c1b4"], -Cell[19598, 679, 251, 5, 75, "Output",ExpressionUUID->"027d48c5-687e-4b47-9309-ef4495aacce0"] +Cell[19604, 616, 350, 10, 64, "Input",ExpressionUUID->"876adfcc-624e-4813-82c0-c91b8f56c1b4"], +Cell[19957, 628, 271, 4, 50, "Output",ExpressionUUID->"f618dbe0-3423-4c8e-b022-2670ae8cb4d8"] }, Open ]], Cell[CellGroupData[{ -Cell[19886, 689, 354, 11, 96, "Input",ExpressionUUID->"6ca1aecf-fd23-4f94-a82e-3abdfa526710"], -Cell[20243, 702, 267, 6, 75, "Output",ExpressionUUID->"014023ac-1e47-4fd2-afd9-47396da74ca6"] +Cell[20265, 637, 350, 10, 64, "Input",ExpressionUUID->"6ca1aecf-fd23-4f94-a82e-3abdfa526710"], +Cell[20618, 649, 287, 5, 50, "Output",ExpressionUUID->"3d901b53-70e8-4f14-b79d-b5a6b7642671"] }, Open ]], Cell[CellGroupData[{ -Cell[20547, 713, 998, 27, 184, "Input",ExpressionUUID->"129bd3de-aa55-44ed-abb6-ce76f9724961"], -Cell[21548, 742, 246, 5, 75, "Output",ExpressionUUID->"b1c07d3c-ca7a-4254-a5d6-4e804cb60449"] +Cell[20942, 659, 994, 26, 327, "Input",ExpressionUUID->"129bd3de-aa55-44ed-abb6-ce76f9724961"], +Cell[21939, 687, 264, 4, 50, "Output",ExpressionUUID->"4823947b-62ee-4d4c-834e-cd4c4ecbf18e"] }, Open ]], Cell[CellGroupData[{ -Cell[21831, 752, 203, 4, 66, "Input",ExpressionUUID->"35c01070-725f-4a07-9122-ceb2bb9c1a81"], -Cell[22037, 758, 234, 5, 75, "Output",ExpressionUUID->"1770695c-941b-4043-96af-95808cda6c39"] +Cell[22240, 696, 199, 3, 44, "Input",ExpressionUUID->"35c01070-725f-4a07-9122-ceb2bb9c1a81"], +Cell[22442, 701, 254, 4, 50, "Output",ExpressionUUID->"eacc14b6-678e-4e85-ad55-c286cf766a25"] }, Open ]], Cell[CellGroupData[{ -Cell[22308, 768, 333, 6, 66, "Input",ExpressionUUID->"00393c38-8634-4f0a-8b8e-7299406937c3"], -Cell[22644, 776, 211, 4, 75, "Output",ExpressionUUID->"55e78409-e048-461e-81fd-905d4a79a907"] +Cell[22733, 710, 329, 5, 44, "Input",ExpressionUUID->"00393c38-8634-4f0a-8b8e-7299406937c3"], +Cell[23065, 717, 233, 4, 50, "Output",ExpressionUUID->"09077439-a80b-47ee-9aa0-52e2479633f6"] }, Open ]], -Cell[22870, 783, 177, 3, 66, "Input",ExpressionUUID->"060cc9c9-d6a9-4dc5-9f63-195bf3f43014"], +Cell[23313, 724, 173, 2, 109, "Input",ExpressionUUID->"060cc9c9-d6a9-4dc5-9f63-195bf3f43014"], Cell[CellGroupData[{ -Cell[23072, 790, 333, 6, 66, "Input",ExpressionUUID->"7dd9c0b0-4426-4548-9919-206579fb8a7d"], -Cell[23408, 798, 211, 4, 75, "Output",ExpressionUUID->"65863f18-c946-4c1e-9076-c3333543e3d0"] +Cell[23511, 730, 329, 5, 44, "Input",ExpressionUUID->"7dd9c0b0-4426-4548-9919-206579fb8a7d"], +Cell[23843, 737, 235, 4, 50, "Output",ExpressionUUID->"1a240ae9-4814-43f8-b556-436e80ec1bed"] }, Open ]], -Cell[23634, 805, 177, 3, 66, "Input",ExpressionUUID->"27dccaf4-8574-4d6b-a0b8-2304a5033f4a"], +Cell[24093, 744, 173, 2, 109, "Input",ExpressionUUID->"27dccaf4-8574-4d6b-a0b8-2304a5033f4a"], Cell[CellGroupData[{ -Cell[23836, 812, 330, 6, 66, "Input",ExpressionUUID->"c741877f-21ae-44ff-a6ae-b13381562db0"], -Cell[24169, 820, 205, 4, 75, "Output",ExpressionUUID->"25a5a314-6bd2-4d6d-bd16-0f3da287dcc7"] +Cell[24291, 750, 326, 5, 44, "Input",ExpressionUUID->"c741877f-21ae-44ff-a6ae-b13381562db0"], +Cell[24620, 757, 227, 4, 50, "Output",ExpressionUUID->"edeb3b17-7386-420f-8212-f64e34af4b53"] }, Open ]], -Cell[24389, 827, 177, 3, 66, "Input",ExpressionUUID->"ba3221b0-c202-42a3-883d-e743c638fd9f"], +Cell[24862, 764, 173, 2, 44, "Input",ExpressionUUID->"ba3221b0-c202-42a3-883d-e743c638fd9f"], Cell[CellGroupData[{ -Cell[24591, 834, 356, 6, 66, "Input",ExpressionUUID->"f6f848a0-d478-4bc9-bcbb-b725a33e64d2"], -Cell[24950, 842, 209, 4, 75, "Output",ExpressionUUID->"d5ff6518-669c-4598-b485-2a2d37a2effb"] +Cell[25060, 770, 352, 5, 44, "Input",ExpressionUUID->"f6f848a0-d478-4bc9-bcbb-b725a33e64d2"], +Cell[25415, 777, 231, 4, 50, "Output",ExpressionUUID->"cfe517a5-6191-44cc-a6fe-6800d46f813e"] }, Open ]], -Cell[25174, 849, 175, 3, 66, "Input",ExpressionUUID->"50ff3763-0dcd-4a38-9aea-12b85a4eeeda"], +Cell[25661, 784, 171, 2, 44, "Input",ExpressionUUID->"50ff3763-0dcd-4a38-9aea-12b85a4eeeda"], Cell[CellGroupData[{ -Cell[25374, 856, 303, 6, 66, "Input",ExpressionUUID->"cd51b3f2-e7f8-48b8-bb33-4407f1e55a48"], -Cell[25680, 864, 211, 4, 75, "Output",ExpressionUUID->"86bdc338-e59e-41ed-a909-5d508995facc"] +Cell[25857, 790, 299, 5, 44, "Input",ExpressionUUID->"cd51b3f2-e7f8-48b8-bb33-4407f1e55a48"], +Cell[26159, 797, 235, 4, 50, "Output",ExpressionUUID->"679b4901-afb2-431e-95fa-59c748ed2c68"] }, Open ]], -Cell[25906, 871, 175, 3, 66, "Input",ExpressionUUID->"33308d13-78ed-4b52-852a-3765e8739d7c"], +Cell[26409, 804, 171, 2, 44, "Input",ExpressionUUID->"33308d13-78ed-4b52-852a-3765e8739d7c"], Cell[CellGroupData[{ -Cell[26106, 878, 309, 6, 66, "Input",ExpressionUUID->"19ab9d0f-018d-4522-9acb-ede80f71a687"], -Cell[26418, 886, 208, 4, 75, "Output",ExpressionUUID->"c5422570-8cdf-47f5-821b-e1edc3a3ac71"] +Cell[26605, 810, 305, 5, 44, "Input",ExpressionUUID->"19ab9d0f-018d-4522-9acb-ede80f71a687"], +Cell[26913, 817, 230, 4, 50, "Output",ExpressionUUID->"8e803eac-d6e0-46aa-87ba-a30f60ee7a78"] }, Open ]], -Cell[26641, 893, 177, 3, 66, "Input",ExpressionUUID->"d299566e-788a-4060-bd1a-50b1f8dd12a2"], +Cell[27158, 824, 173, 2, 44, "Input",ExpressionUUID->"d299566e-788a-4060-bd1a-50b1f8dd12a2"], Cell[CellGroupData[{ -Cell[26843, 900, 310, 6, 66, "Input",ExpressionUUID->"ee4c998d-8053-4886-ae9b-cce50c89a029"], -Cell[27156, 908, 208, 4, 75, "Output",ExpressionUUID->"e060c47d-0330-4daa-8d55-0d5f210d0841"] +Cell[27356, 830, 306, 5, 44, "Input",ExpressionUUID->"ee4c998d-8053-4886-ae9b-cce50c89a029"], +Cell[27665, 837, 230, 4, 50, "Output",ExpressionUUID->"948f9536-f1b6-4180-933d-d96e5357b280"] }, Open ]], -Cell[27379, 915, 176, 3, 66, "Input",ExpressionUUID->"064a5061-0671-4ab9-8886-a3d5161dcd2a"], +Cell[27910, 844, 172, 2, 44, "Input",ExpressionUUID->"064a5061-0671-4ab9-8886-a3d5161dcd2a"], Cell[CellGroupData[{ -Cell[27580, 922, 278, 5, 66, "Input",ExpressionUUID->"c655aeeb-0936-4a16-a83e-6eaac93c4708"], -Cell[27861, 929, 207, 4, 75, "Output",ExpressionUUID->"04330939-cb6f-4aaa-a57f-0fda5a64c6b8"] +Cell[28107, 850, 274, 4, 44, "Input",ExpressionUUID->"c655aeeb-0936-4a16-a83e-6eaac93c4708"], +Cell[28384, 856, 229, 4, 50, "Output",ExpressionUUID->"f38f7e53-5019-45bf-906a-38acd8406530"] }, Open ]], -Cell[28083, 936, 179, 3, 66, "Input",ExpressionUUID->"4af259aa-18d3-44c0-8cc2-5eeaaaba1ca6"], +Cell[28628, 863, 175, 2, 44, "Input",ExpressionUUID->"4af259aa-18d3-44c0-8cc2-5eeaaaba1ca6"], Cell[CellGroupData[{ -Cell[28287, 943, 19813, 486, 5405, "Input",ExpressionUUID->"d14b3b8a-2cdc-4544-bbb0-d8d46f034c8d"], -Cell[48103, 1431, 249, 5, 75, "Output",ExpressionUUID->"e7d5892a-e090-4ef4-b006-d9eb4e925673"] +Cell[28828, 869, 19809, 485, 3721, "Input",ExpressionUUID->"d14b3b8a-2cdc-4544-bbb0-d8d46f034c8d"], +Cell[48640, 1356, 269, 4, 50, "Output",ExpressionUUID->"8c6ac410-b4f3-486f-9b7f-85fd2b13130c"] }, Open ]], Cell[CellGroupData[{ -Cell[48389, 1441, 19752, 490, 5343, "Input",ExpressionUUID->"8de6c3d1-daef-43ec-8c0d-d26918d223d3"], -Cell[68144, 1933, 247, 5, 75, "Output",ExpressionUUID->"97b04ffc-a9a3-4dd0-b199-cf7213d0b6a4"] +Cell[48946, 1365, 19748, 489, 3905, "Input",ExpressionUUID->"8de6c3d1-daef-43ec-8c0d-d26918d223d3"], +Cell[68697, 1856, 265, 4, 50, "Output",ExpressionUUID->"3ad0a536-e95d-4449-973d-d54472e876a0"] }, Open ]], Cell[CellGroupData[{ -Cell[68428, 1943, 19752, 484, 5342, "Input",ExpressionUUID->"ad5520ec-84d8-45a0-8cc5-e84301e4fbe7"], -Cell[88183, 2429, 265, 6, 75, "Output",ExpressionUUID->"981c28b2-e938-4f87-a1dc-3525b71b080b"] +Cell[68999, 1865, 19748, 483, 3803, "Input",ExpressionUUID->"ad5520ec-84d8-45a0-8cc5-e84301e4fbe7"], +Cell[88750, 2350, 282, 5, 50, "Output",ExpressionUUID->"d91c11d8-f54e-42f3-aada-cd1b9f55bb49"] }, Open ]], Cell[CellGroupData[{ -Cell[88485, 2440, 22538, 554, 6074, "Input",ExpressionUUID->"0d9ab4fd-7cde-48ba-8741-da13981efc32"], -Cell[111026, 2996, 267, 6, 75, "Output",ExpressionUUID->"8e954486-23c3-4351-b64e-812100532ebe"] +Cell[89069, 2360, 22534, 553, 4326, "Input",ExpressionUUID->"0d9ab4fd-7cde-48ba-8741-da13981efc32"], +Cell[111606, 2915, 285, 5, 50, "Output",ExpressionUUID->"d314986e-0d67-4db6-b7d7-ce556b7422a0"] }, Open ]], Cell[CellGroupData[{ -Cell[111330, 3007, 22539, 554, 6074, "Input",ExpressionUUID->"4878baa4-7561-48bb-a697-805dcbd99ccc"], -Cell[133872, 3563, 266, 6, 75, "Output",ExpressionUUID->"f47db446-29e4-4c26-810f-f1963ec98e5f"] +Cell[111928, 2925, 22535, 553, 4326, "Input",ExpressionUUID->"4878baa4-7561-48bb-a697-805dcbd99ccc"], +Cell[134466, 3480, 284, 5, 50, "Output",ExpressionUUID->"b3eb892c-a2cd-49a9-a321-aceca8e918cb"] }, Open ]], Cell[CellGroupData[{ -Cell[134175, 3574, 25495, 627, 6806, "Input",ExpressionUUID->"b2b2b65f-3302-4b16-b0bc-c3dba064603d"], -Cell[159673, 4203, 265, 6, 75, "Output",ExpressionUUID->"f44d17ea-21a8-43b0-a171-49a7ec2c0e79"] +Cell[134787, 3490, 25491, 626, 4849, "Input",ExpressionUUID->"b2b2b65f-3302-4b16-b0bc-c3dba064603d"], +Cell[160281, 4118, 282, 5, 50, "Output",ExpressionUUID->"92c45840-8c0c-4b8f-b574-9e2c3efe71f9"] }, Open ]], Cell[CellGroupData[{ -Cell[159975, 4214, 134, 3, 66, "Input",ExpressionUUID->"84ce8f1f-58d8-4eaa-a930-227c84951e62"], -Cell[160112, 4219, 229, 5, 75, "Output",ExpressionUUID->"8a580cce-a966-4fc1-a9ce-da183ca43c66"] +Cell[160600, 4128, 130, 2, 44, "Input",ExpressionUUID->"84ce8f1f-58d8-4eaa-a930-227c84951e62"], +Cell[160733, 4132, 247, 4, 50, "Output",ExpressionUUID->"72846901-3f28-4a78-a166-9f99edeca115"] }, Open ]], Cell[CellGroupData[{ -Cell[160378, 4229, 134, 3, 66, "Input",ExpressionUUID->"72b1a9dc-3127-4e48-86c3-45bad88f5e1b"], -Cell[160515, 4234, 232, 5, 75, "Output",ExpressionUUID->"36cdd94d-6809-4166-86ad-ffe81fac9699"] +Cell[161017, 4141, 130, 2, 44, "Input",ExpressionUUID->"72b1a9dc-3127-4e48-86c3-45bad88f5e1b"], +Cell[161150, 4145, 249, 4, 50, "Output",ExpressionUUID->"7e16c86d-4e5e-4e89-971a-f6addd3744cd"] }, Open ]], Cell[CellGroupData[{ -Cell[160784, 4244, 1148, 40, 246, "Input",ExpressionUUID->"cd27022c-c099-4bb3-b386-df409e9a7ddc"], -Cell[161935, 4286, 246, 5, 75, "Output",ExpressionUUID->"cddd5c1e-f917-44ba-8a84-5bc0d8964aec"] +Cell[161436, 4154, 1144, 39, 336, "Input",ExpressionUUID->"cd27022c-c099-4bb3-b386-df409e9a7ddc"], +Cell[162583, 4195, 264, 4, 50, "Output",ExpressionUUID->"63269b4a-2510-4e01-9451-0d78a2f65268"] }, Open ]], Cell[CellGroupData[{ -Cell[162218, 4296, 1045, 36, 246, "Input",ExpressionUUID->"6da541b4-99e0-4eba-bdc7-63250b29f74c"], -Cell[163266, 4334, 262, 6, 75, "Output",ExpressionUUID->"38defbdb-68b9-4b0b-8286-cc0ab05cb311"] +Cell[162884, 4204, 1041, 35, 334, "Input",ExpressionUUID->"6da541b4-99e0-4eba-bdc7-63250b29f74c"], +Cell[163928, 4241, 280, 5, 50, "Output",ExpressionUUID->"4f6acffa-bc55-4e09-b454-232a35e47fe8"] }, Open ]], Cell[CellGroupData[{ -Cell[163565, 4345, 1148, 40, 246, "Input",ExpressionUUID->"f53ff4b6-d3f1-4d5e-83aa-78df9bad89af"], -Cell[164716, 4387, 250, 5, 75, "Output",ExpressionUUID->"895eadde-b7ea-48c2-ae12-e77255ba0edb"] +Cell[164245, 4251, 1144, 39, 336, "Input",ExpressionUUID->"f53ff4b6-d3f1-4d5e-83aa-78df9bad89af"], +Cell[165392, 4292, 268, 4, 50, "Output",ExpressionUUID->"89266eb0-9adb-40e3-9357-626a1d09d3b2"] }, Open ]], Cell[CellGroupData[{ -Cell[165003, 4397, 112, 2, 66, "Input",ExpressionUUID->"e04a089d-3d44-4008-be1b-48d773e92a0d"], -Cell[165118, 4401, 248, 5, 75, "Output",ExpressionUUID->"3f6d0d8c-4818-414c-be61-af3e1de7e772"] +Cell[165697, 4301, 108, 1, 44, "Input",ExpressionUUID->"e04a089d-3d44-4008-be1b-48d773e92a0d"], +Cell[165808, 4304, 265, 4, 50, "Output",ExpressionUUID->"06bfd3b5-e709-4fc4-a79f-6b46e7ee0478"] }, Open ]], Cell[CellGroupData[{ -Cell[165403, 4411, 112, 2, 66, "Input",ExpressionUUID->"4941bb53-4063-43b1-9e9b-d28f5d3f183a"], -Cell[165518, 4415, 266, 6, 75, "Output",ExpressionUUID->"d9635c64-f3ff-4a9c-b1a2-ec0f530f6e86"] +Cell[166110, 4313, 108, 1, 44, "Input",ExpressionUUID->"4941bb53-4063-43b1-9e9b-d28f5d3f183a"], +Cell[166221, 4316, 284, 5, 50, "Output",ExpressionUUID->"ec73203e-560d-464c-9087-633bffe7a7c8"] }, Open ]], Cell[CellGroupData[{ -Cell[165821, 4426, 112, 2, 66, "Input",ExpressionUUID->"4fdd5590-d0f9-456e-96ba-3cf8f7bf1e4f"], -Cell[165936, 4430, 262, 6, 75, "Output",ExpressionUUID->"49cfb441-c7b0-4ee9-bbfe-1e6b41eda586"] +Cell[166542, 4326, 108, 1, 44, "Input",ExpressionUUID->"4fdd5590-d0f9-456e-96ba-3cf8f7bf1e4f"], +Cell[166653, 4329, 280, 5, 50, "Output",ExpressionUUID->"df4f9143-64bb-428b-a63f-3c5c9b81dde9"] }, Open ]], Cell[CellGroupData[{ -Cell[166235, 4441, 112, 2, 66, "Input",ExpressionUUID->"6adc2de8-b1ec-46b8-92b9-0d15cc7612ed"], -Cell[166350, 4445, 248, 5, 75, "Output",ExpressionUUID->"793bde36-e10a-4d2f-b7a7-7328fedca048"] +Cell[166970, 4339, 108, 1, 44, "Input",ExpressionUUID->"6adc2de8-b1ec-46b8-92b9-0d15cc7612ed"], +Cell[167081, 4342, 266, 4, 50, "Output",ExpressionUUID->"f8b8921d-454b-49c5-b8db-160c116f45bd"] }, Open ]], Cell[CellGroupData[{ -Cell[166635, 4455, 111, 2, 66, "Input",ExpressionUUID->"65a03490-7d68-44a6-a971-65d7fe7092fb"], -Cell[166749, 4459, 225, 4, 75, "Output",ExpressionUUID->"2033cecb-686f-4d59-9f23-cc1b3e1e77bf"] +Cell[167384, 4351, 107, 1, 44, "Input",ExpressionUUID->"65a03490-7d68-44a6-a971-65d7fe7092fb"], +Cell[167494, 4354, 247, 4, 50, "Output",ExpressionUUID->"6d97ee93-ac35-44e7-a8be-70d1e4ac6e80"] }, Open ]], Cell[CellGroupData[{ -Cell[167011, 4468, 111, 2, 66, "Input",ExpressionUUID->"12075aa1-ff44-4038-ace0-d1b39df28f5d"], -Cell[167125, 4472, 221, 4, 75, "Output",ExpressionUUID->"69932e2f-138d-4cb6-8c35-ed6d20a9228e"] +Cell[167778, 4363, 107, 1, 44, "Input",ExpressionUUID->"12075aa1-ff44-4038-ace0-d1b39df28f5d"], +Cell[167888, 4366, 243, 4, 50, "Output",ExpressionUUID->"0f9971db-e82f-474c-a512-18b6d9767495"] }, Open ]], Cell[CellGroupData[{ -Cell[167383, 4481, 501, 17, 125, "Input",ExpressionUUID->"d5fb27b7-b43d-4580-b46d-25ec58e7822d"], -Cell[167887, 4500, 238, 5, 75, "Output",ExpressionUUID->"8be15e63-ffce-42e2-be77-78e149ad05d9"] +Cell[168168, 4375, 497, 16, 84, "Input",ExpressionUUID->"d5fb27b7-b43d-4580-b46d-25ec58e7822d"], +Cell[168668, 4393, 259, 5, 50, "Output",ExpressionUUID->"90dba9f4-4e5a-4c25-aa46-01c479b741c1"] }, Open ]], Cell[CellGroupData[{ -Cell[168162, 4510, 501, 17, 125, "Input",ExpressionUUID->"69447d37-eb3a-4a25-a211-ac123cbb4689"], -Cell[168666, 4529, 238, 5, 75, "Output",ExpressionUUID->"e2f82828-68e3-47e5-9ea9-ea49d28b268b"] +Cell[168964, 4403, 497, 16, 84, "Input",ExpressionUUID->"69447d37-eb3a-4a25-a211-ac123cbb4689"], +Cell[169464, 4421, 260, 5, 50, "Output",ExpressionUUID->"234bc82e-22c3-4563-9841-9adaeafc6e2d"] }, Open ]], Cell[CellGroupData[{ -Cell[168941, 4539, 1792, 61, 201, "Input",ExpressionUUID->"7517deda-b264-4489-9a37-527e0691500c"], -Cell[170736, 4602, 219, 4, 50, "Output",ExpressionUUID->"cdf288af-9a6f-4208-940d-233de24acfe4"] +Cell[169761, 4431, 1788, 60, 508, "Input",ExpressionUUID->"7517deda-b264-4489-9a37-527e0691500c"], +Cell[171552, 4493, 241, 4, 50, "Output",ExpressionUUID->"bc5e2279-5a2b-42cf-8b19-48d9371f37ef"] }, Open ]], Cell[CellGroupData[{ -Cell[170992, 4611, 1105, 37, 84, "Input",ExpressionUUID->"cd1f08be-0e58-479a-b69a-fcc9497d7ddc"], -Cell[172100, 4650, 238, 5, 50, "Output",ExpressionUUID->"82826ea4-6ed1-483d-abea-5d83919f11b7"] +Cell[171830, 4502, 1101, 36, 367, "Input",ExpressionUUID->"cd1f08be-0e58-479a-b69a-fcc9497d7ddc"], +Cell[172934, 4540, 260, 5, 50, "Output",ExpressionUUID->"3c9ef172-0749-41ff-9795-7d1319fbba88"] }, Open ]], Cell[CellGroupData[{ -Cell[172375, 4660, 1822, 62, 166, "Input",ExpressionUUID->"a392d378-7274-4661-8402-2eac94b15b8f"], -Cell[174200, 4724, 217, 4, 50, "Output",ExpressionUUID->"fffa7096-3879-424d-ba21-1c5738295d30"] +Cell[173231, 4550, 1818, 61, 508, "Input",ExpressionUUID->"a392d378-7274-4661-8402-2eac94b15b8f"], +Cell[175052, 4613, 241, 4, 50, "Output",ExpressionUUID->"b5b0c895-e7fa-481d-9bea-92e87c7c6d2a"] }, Open ]], Cell[CellGroupData[{ -Cell[174454, 4733, 1635, 54, 120, "Input",ExpressionUUID->"67d7383b-067f-44a8-8b59-1544234b8583"], -Cell[176092, 4789, 222, 4, 50, "Output",ExpressionUUID->"50e4732e-bbc7-457c-abd9-7328f1d30d64"] +Cell[175330, 4622, 1631, 53, 287, "Input",ExpressionUUID->"67d7383b-067f-44a8-8b59-1544234b8583"], +Cell[176964, 4677, 243, 4, 50, "Output",ExpressionUUID->"4a5c75e6-972d-4563-b350-52d5db4165d5"] }, Open ]], Cell[CellGroupData[{ -Cell[176351, 4798, 1635, 54, 120, "Input",ExpressionUUID->"171fd13f-2950-49f7-8085-054b4c769116"], -Cell[177989, 4854, 219, 4, 50, "Output",ExpressionUUID->"b5202487-e867-41f2-a575-d2482b47c6ea"] +Cell[177244, 4686, 1631, 53, 287, "Input",ExpressionUUID->"171fd13f-2950-49f7-8085-054b4c769116"], +Cell[178878, 4741, 243, 4, 50, "Output",ExpressionUUID->"1fc327f8-ce87-413f-b346-f9ffbcbdcd47"] }, Open ]], -Cell[178223, 4861, 187, 4, 44, "Input",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], -Cell[178413, 4867, 154, 3, 44, "Input",ExpressionUUID->"a5161e25-7247-124f-8601-7bcc4af89c62"], -Cell[178570, 4872, 187, 4, 44, "Input",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], -Cell[178760, 4878, 154, 3, 44, "Input",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], Cell[CellGroupData[{ -Cell[178939, 4885, 1301, 43, 73, "Input",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], -Cell[180243, 4930, 178, 3, 50, "Output",ExpressionUUID->"1658422d-0016-324a-9843-942f5453a9c7"] +Cell[179158, 4750, 206, 3, 44, "Input",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], +Cell[179367, 4755, 161, 2, 50, "Output",ExpressionUUID->"4e010982-3350-4b11-9c13-77fc66dae383"] }, Open ]], +Cell[179543, 4760, 173, 2, 44, "Input",ExpressionUUID->"a5161e25-7247-124f-8601-7bcc4af89c62"], Cell[CellGroupData[{ -Cell[180458, 4938, 910, 31, 84, "Input",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], -Cell[181371, 4971, 175, 3, 50, "Output",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] +Cell[179741, 4766, 206, 3, 44, "Input",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], +Cell[179950, 4771, 161, 2, 50, "Output",ExpressionUUID->"b4b6b0e0-2194-471b-87ef-d9c19af2e9ba"] }, Open ]], +Cell[180126, 4776, 173, 2, 44, "Input",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], Cell[CellGroupData[{ -Cell[181583, 4979, 887, 30, 84, "Input",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], -Cell[182473, 5011, 176, 3, 50, "Output",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] +Cell[180324, 4782, 1297, 42, 205, "Input",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], +Cell[181624, 4826, 196, 2, 50, "Output",ExpressionUUID->"b1114c0b-63bb-459d-b6b2-d16b4ea3f72b"] }, Open ]], Cell[CellGroupData[{ -Cell[182686, 5019, 558, 19, 79, "Input",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], -Cell[183247, 5040, 172, 3, 50, "Output",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] +Cell[181857, 4833, 929, 30, 205, "Input",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], +Cell[182789, 4865, 193, 2, 50, "Output",ExpressionUUID->"7eb92830-ec0c-4ff3-ba30-d7860b4d5066"] }, Open ]], Cell[CellGroupData[{ -Cell[183456, 5048, 623, 21, 79, "Input",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], -Cell[184082, 5071, 172, 3, 50, "Output",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] +Cell[183019, 4872, 906, 29, 149, "Input",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], +Cell[183928, 4903, 193, 2, 50, "Output",ExpressionUUID->"6b3cfd19-6b3e-40e6-bcdf-5818ffb105e8"] }, Open ]], Cell[CellGroupData[{ -Cell[184291, 5079, 170, 5, 84, "Input",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], -Cell[184464, 5086, 172, 3, 50, "Output",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +Cell[184158, 4910, 554, 18, 79, "Input",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], +Cell[184715, 4930, 190, 2, 50, "Output",ExpressionUUID->"482d527b-a3c0-4caf-bad3-d750db4f6435"] }, Open ]], Cell[CellGroupData[{ -Cell[184673, 5094, 170, 5, 83, "Input",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], -Cell[184846, 5101, 171, 3, 50, "Output",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +Cell[184942, 4937, 619, 20, 79, "Input",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], +Cell[185564, 4959, 192, 2, 50, "Output",ExpressionUUID->"0e180aed-a6a7-4d37-a0de-2555543634e1"] }, Open ]], Cell[CellGroupData[{ -Cell[185054, 5109, 181, 5, 65, "Input",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], -Cell[185238, 5116, 170, 3, 50, "Output",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +Cell[185793, 4966, 166, 4, 84, "Input",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], +Cell[185962, 4972, 193, 2, 50, "Output",ExpressionUUID->"3b6f4787-9153-4ca0-ac5d-eb6a4575ca6c"] }, Open ]], Cell[CellGroupData[{ -Cell[185445, 5124, 181, 5, 65, "Input",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], -Cell[185629, 5131, 172, 3, 50, "Output",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +Cell[186192, 4979, 166, 4, 83, "Input",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], +Cell[186361, 4985, 188, 2, 50, "Output",ExpressionUUID->"a25f1a40-5cce-44b7-9e07-a09dd43f6ff5"] }, Open ]], Cell[CellGroupData[{ -Cell[185838, 5139, 6055, 185, 497, "Input",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], -Cell[191896, 5326, 172, 3, 50, "Output",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +Cell[186586, 4992, 177, 4, 65, "Input",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], +Cell[186766, 4998, 188, 2, 50, "Output",ExpressionUUID->"c186c4af-50a8-408c-bda4-8660d4827970"] }, Open ]], Cell[CellGroupData[{ -Cell[192105, 5334, 368, 9, 63, "Input",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], -Cell[192476, 5345, 171, 3, 50, "Output",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +Cell[186991, 5005, 177, 4, 65, "Input",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], +Cell[187171, 5011, 191, 2, 50, "Output",ExpressionUUID->"0b82307b-d67e-4237-864a-520b65cd31ff"] }, Open ]], Cell[CellGroupData[{ -Cell[192684, 5353, 6122, 187, 497, "Input",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], -Cell[198809, 5542, 173, 3, 50, "Output",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +Cell[187399, 5018, 6051, 184, 1229, "Input",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], +Cell[193453, 5204, 193, 2, 50, "Output",ExpressionUUID->"3407fc49-7143-4395-ac27-c1123c7c1e68"] }, Open ]], Cell[CellGroupData[{ -Cell[199019, 5550, 368, 9, 63, "Input",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], -Cell[199390, 5561, 170, 3, 50, "Output",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +Cell[193683, 5211, 364, 8, 63, "Input",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], +Cell[194050, 5221, 190, 2, 50, "Output",ExpressionUUID->"c79e6059-0fd5-4b44-a34d-a85723e58ce2"] }, Open ]], Cell[CellGroupData[{ -Cell[199597, 5569, 2663, 88, 247, "Input",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], -Cell[202263, 5659, 171, 3, 50, "Output",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +Cell[194277, 5228, 6118, 186, 1292, "Input",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], +Cell[200398, 5416, 192, 2, 50, "Output",ExpressionUUID->"95656a3b-fc5e-4e22-a8b1-9e1cf8d7b9bc"] }, Open ]], Cell[CellGroupData[{ -Cell[202471, 5667, 2603, 85, 247, "Input",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], -Cell[205077, 5754, 173, 3, 50, "Output",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +Cell[200627, 5423, 364, 8, 63, "Input",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], +Cell[200994, 5433, 189, 2, 50, "Output",ExpressionUUID->"2a33cd31-b30f-4672-9469-5781a26e7101"] }, Open ]], Cell[CellGroupData[{ -Cell[205287, 5762, 3712, 118, 364, "Input",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], -Cell[209002, 5882, 174, 3, 50, "Output",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] +Cell[201220, 5440, 2659, 87, 558, "Input",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], +Cell[203882, 5529, 190, 2, 50, "Output",ExpressionUUID->"a75c1840-7b7a-4a23-bd71-48452a9d2b33"] }, Open ]], -Cell[209191, 5888, 138, 3, 44, "Input",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], Cell[CellGroupData[{ -Cell[209354, 5895, 2054, 59, 138, "Input",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], -Cell[211411, 5956, 557, 12, 86, "Message",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], -Cell[211971, 5970, 559, 12, 86, "Message",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], -Cell[212533, 5984, 561, 12, 86, "Message",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], -Cell[213097, 5998, 458, 10, 31, "Message",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], -Cell[213558, 6010, 172, 3, 50, "Output",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +Cell[204109, 5536, 2599, 84, 558, "Input",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], +Cell[206711, 5622, 191, 2, 50, "Output",ExpressionUUID->"073e92ab-9429-4374-88c1-27a2aaf4b097"] }, Open ]], Cell[CellGroupData[{ -Cell[213767, 6018, 2052, 59, 138, "Input",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], -Cell[215822, 6079, 555, 12, 86, "Message",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], -Cell[216380, 6093, 559, 12, 86, "Message",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], -Cell[216942, 6107, 561, 12, 86, "Message",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], -Cell[217506, 6121, 458, 10, 31, "Message",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], -Cell[217967, 6133, 172, 3, 50, "Output",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +Cell[206939, 5629, 3708, 117, 781, "Input",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], +Cell[210650, 5748, 192, 2, 50, "Output",ExpressionUUID->"b7131344-d5e5-420b-9363-5336446f75ca"] }, Open ]], +Cell[210857, 5753, 160, 3, 44, "Input",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], Cell[CellGroupData[{ -Cell[218176, 6141, 1936, 53, 102, "Input",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], -Cell[220115, 6196, 20440, 382, 355, "Output",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] +Cell[211042, 5760, 2099, 59, 409, "Input",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], +Cell[213144, 5821, 632, 13, 89, "Message",ExpressionUUID->"a6f420a7-6b27-4697-9908-f89b4d5e54e4"], +Cell[213779, 5836, 633, 13, 89, "Message",ExpressionUUID->"5e9bd573-343d-4fa7-b9eb-60aa19cc2a2d"], +Cell[214415, 5851, 635, 13, 89, "Message",ExpressionUUID->"8e0ff4a2-bc72-4bd7-a990-ca323c73c67f"], +Cell[215053, 5866, 492, 11, 64, "Message",ExpressionUUID->"d12c30f1-8928-4704-81dc-92f5b8be9232"], +Cell[215548, 5879, 190, 2, 50, "Output",ExpressionUUID->"e052b320-b6b8-4ca6-81a6-b2aac45fc3c0"] }, Open ]], Cell[CellGroupData[{ -Cell[240592, 6583, 2094, 60, 138, "Input",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], -Cell[242689, 6645, 500, 11, 58, "Message",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], -Cell[243192, 6658, 503, 11, 58, "Message",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], -Cell[243698, 6671, 506, 11, 58, "Message",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], -Cell[244207, 6684, 455, 10, 31, "Message",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], -Cell[244665, 6696, 57321, 985, 348, "Output",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] +Cell[215775, 5886, 2097, 59, 409, "Input",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], +Cell[217875, 5947, 630, 13, 89, "Message",ExpressionUUID->"43d99630-5110-433e-b264-ac500d2a7302"], +Cell[218508, 5962, 633, 13, 89, "Message",ExpressionUUID->"4510d1ef-9ba4-4276-846e-5dfb5d321c92"], +Cell[219144, 5977, 631, 13, 89, "Message",ExpressionUUID->"bc38d5d3-64b9-439e-b8b1-9b2c2311885f"], +Cell[219778, 5992, 489, 11, 64, "Message",ExpressionUUID->"de5ad173-539d-4979-988b-1bb64dc6ac8d"], +Cell[220270, 6005, 193, 2, 50, "Output",ExpressionUUID->"5bffb60a-abc9-4a6d-8f0f-1833ae918dd6"] }, Open ]], -Cell[302001, 7684, 2453, 69, 166, "Input",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], -Cell[304457, 7755, 209, 5, 44, "Input",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], Cell[CellGroupData[{ -Cell[304691, 7764, 217, 7, 72, "Input",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], -Cell[304911, 7773, 172, 3, 50, "Output",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +Cell[220500, 6012, 2047, 54, 317, "Input",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], +Cell[222550, 6068, 20380, 380, 334, "Output",ExpressionUUID->"c76aee10-cc7b-447c-9e53-a2f46cda7131"] }, Open ]], Cell[CellGroupData[{ -Cell[305120, 7781, 1816, 53, 138, "Input",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], -Cell[306939, 7836, 508, 11, 58, "Message",ExpressionUUID->"3a61d965-a130-7645-90c6-a5061b94ec40"], -Cell[307450, 7849, 508, 11, 58, "Message",ExpressionUUID->"c3c0d10c-aa86-9b43-bfa9-71bc099863f1"], -Cell[307961, 7862, 511, 11, 58, "Message",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], -Cell[308475, 7875, 456, 10, 31, "Message",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], -Cell[308934, 7887, 26000, 472, 349, "Output",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] +Cell[242967, 6453, 2140, 60, 450, "Input",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], +Cell[245110, 6515, 537, 12, 111, "Message",ExpressionUUID->"ce0cd186-f7dd-45e3-b19c-487ebbbb5abd"], +Cell[245650, 6529, 541, 12, 147, "Message",ExpressionUUID->"bc4ec35b-b931-4123-879d-b57e0ff497eb"], +Cell[246194, 6543, 544, 12, 147, "Message",ExpressionUUID->"602f0330-cc9b-4531-9867-370d2b13cde9"], +Cell[246741, 6557, 495, 11, 64, "Message",ExpressionUUID->"799121f2-b0ff-41e3-acb7-fc4e82147645"], +Cell[247239, 6570, 23932, 440, 329, "Output",ExpressionUUID->"faffe7aa-97b0-4f33-94b6-90e4905ad422"] }, Open ]], Cell[CellGroupData[{ -Cell[334971, 8364, 1616, 48, 164, "Input",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], -Cell[336590, 8414, 584, 12, 164, "Message",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], -Cell[337177, 8428, 588, 12, 164, "Message",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], -Cell[337768, 8442, 592, 12, 164, "Message",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], -Cell[338363, 8456, 456, 10, 164, "Message",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], -Cell[338822, 8468, 169, 3, 164, "Output",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] +Cell[271208, 7015, 2475, 69, 350, "Input",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], +Cell[273686, 7086, 9492, 222, 337, "Output",ExpressionUUID->"dd180697-ec5a-448d-92cb-c007f6b3b062"] }, Open ]], Cell[CellGroupData[{ -Cell[339028, 8476, 2249, 64, 164, "Input",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], -Cell[341280, 8542, 555, 12, 164, "Message",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], -Cell[341838, 8556, 557, 12, 164, "Message",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], -Cell[342398, 8570, 563, 12, 164, "Message",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], -Cell[342964, 8584, 458, 10, 164, "Message",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], -Cell[343425, 8596, 173, 3, 164, "Output",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] +Cell[283215, 7313, 228, 4, 44, "Input",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], +Cell[283446, 7319, 30292, 572, 329, "Output",ExpressionUUID->"d8431386-4afe-44c6-8ec2-b953f7ff42b5"] }, Open ]], Cell[CellGroupData[{ -Cell[343635, 8604, 2223, 64, 164, "Input",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], -Cell[345861, 8670, 555, 12, 164, "Message",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], -Cell[346419, 8684, 557, 12, 164, "Message",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], -Cell[346979, 8698, 561, 12, 164, "Message",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], -Cell[347543, 8712, 458, 10, 164, "Message",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], -Cell[348004, 8724, 173, 3, 164, "Output",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] +Cell[313775, 7896, 236, 6, 72, "Input",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], +Cell[314014, 7904, 191, 2, 50, "Output",ExpressionUUID->"fca1a0de-c678-4d67-bd46-c62e3ad5d034"] }, Open ]], Cell[CellGroupData[{ -Cell[348214, 8732, 2221, 64, 164, "Input",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], -Cell[350438, 8798, 557, 12, 164, "Message",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], -Cell[350998, 8812, 557, 12, 164, "Message",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], -Cell[351558, 8826, 563, 12, 164, "Message",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], -Cell[352124, 8840, 456, 10, 164, "Message",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], -Cell[352583, 8852, 173, 3, 164, "Output",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] +Cell[314242, 7911, 1835, 52, 367, "Input",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], +Cell[316080, 7965, 639, 14, 89, "Message",ExpressionUUID->"33ec3f7d-e734-4bd2-bae1-6ace9d1772aa"], +Cell[316722, 7981, 633, 13, 89, "Message",ExpressionUUID->"c5c8e464-c054-4ae8-80da-dc3432d1e312"], +Cell[317358, 7996, 634, 13, 89, "Message",ExpressionUUID->"a9995334-003a-4d2b-9838-8e63824c970d"], +Cell[317995, 8011, 495, 11, 64, "Message",ExpressionUUID->"72b91135-b5f1-4959-a1a5-55832fab9487"], +Cell[318493, 8024, 24837, 455, 329, "Output",ExpressionUUID->"a4c3ae6d-0b09-40ca-a168-b9cab8307f05"] }, Open ]], Cell[CellGroupData[{ -Cell[352793, 8860, 213, 6, 164, "Input",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], -Cell[353009, 8868, 171, 3, 164, "Output",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] +Cell[343367, 8484, 1616, 48, 247, "Input",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], +Cell[344986, 8534, 636, 13, 89, "Message",ExpressionUUID->"39898549-e58f-4ac3-a2cc-662069ef943a"], +Cell[345625, 8549, 640, 14, 89, "Message",ExpressionUUID->"6a159dde-22f2-4470-aa7a-c103066b7db5"], +Cell[346268, 8565, 640, 14, 89, "Message",ExpressionUUID->"afc0887b-3e98-4bb1-9f65-8f9bbc23fb85"], +Cell[346911, 8581, 495, 11, 64, "Message",ExpressionUUID->"fb721369-ec1b-496e-8954-b7ccb407ee97"], +Cell[347409, 8594, 192, 3, 50, "Output",ExpressionUUID->"c211fd26-fa75-4f50-ad46-c433a0bd83c9"] }, Open ]], -Cell[353195, 8874, 245, 5, 164, "Input",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], Cell[CellGroupData[{ -Cell[353465, 8883, 558, 19, 164, "Input",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], -Cell[354026, 8904, 172, 3, 164, "Output",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] +Cell[347638, 8602, 2272, 64, 501, "Input",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], +Cell[349913, 8668, 633, 13, 89, "Message",ExpressionUUID->"55cc418c-91da-4d25-a58f-5e3ca4e332b6"], +Cell[350549, 8683, 636, 13, 89, "Message",ExpressionUUID->"ee779f72-49e1-4739-a625-905aea521ed7"], +Cell[351188, 8698, 636, 13, 89, "Message",ExpressionUUID->"7ae00822-ab8b-4f6d-8691-3b62a8d4e058"], +Cell[351827, 8713, 493, 11, 64, "Message",ExpressionUUID->"4887c22c-f4c4-47b1-83ff-b6687565c5fa"], +Cell[352323, 8726, 195, 3, 50, "Output",ExpressionUUID->"365de31f-a4a3-4fa5-b4e4-56c62386b855"] }, Open ]], Cell[CellGroupData[{ -Cell[354235, 8912, 170, 5, 164, "Input",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], -Cell[354408, 8919, 173, 3, 164, "Output",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] +Cell[352555, 8734, 2235, 63, 501, "Input",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], +Cell[354793, 8799, 633, 13, 89, "Message",ExpressionUUID->"49832e60-24cd-4b47-9644-03f4e8383f76"], +Cell[355429, 8814, 633, 13, 89, "Message",ExpressionUUID->"13740a8e-b7ee-4d83-a15c-36f17c29254a"], +Cell[356065, 8829, 636, 13, 89, "Message",ExpressionUUID->"ac2c8139-b290-409c-b129-38e39de0a3b2"], +Cell[356704, 8844, 493, 11, 64, "Message",ExpressionUUID->"5f76f2f6-03a9-4e66-a7df-0ab36c49654e"], +Cell[357200, 8857, 197, 3, 50, "Output",ExpressionUUID->"6ea80c51-eab2-4f76-8523-edb446c327e6"] }, Open ]], Cell[CellGroupData[{ -Cell[354618, 8927, 181, 5, 164, "Input",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], -Cell[354802, 8934, 173, 3, 164, "Output",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] +Cell[357434, 8865, 2233, 63, 501, "Input",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], +Cell[359670, 8930, 635, 13, 89, "Message",ExpressionUUID->"7ff887a6-eb57-4dcc-9836-2ec4aa35b23a"], +Cell[360308, 8945, 638, 13, 89, "Message",ExpressionUUID->"9e1251c7-6d70-40d1-b5ec-cb6bb15f542d"], +Cell[360949, 8960, 638, 13, 89, "Message",ExpressionUUID->"c79c133a-b711-4d76-be50-11fb17d2a811"], +Cell[361590, 8975, 495, 11, 64, "Message",ExpressionUUID->"bb36035c-3571-4ca5-89d0-2e223abd009a"], +Cell[362088, 8988, 196, 3, 50, "Output",ExpressionUUID->"539a8923-1f78-4404-b22f-4d99b7a45c9f"] }, Open ]], Cell[CellGroupData[{ -Cell[355012, 8942, 6055, 185, 164, "Input",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], -Cell[361070, 9129, 172, 3, 164, "Output",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] +Cell[362321, 8996, 236, 6, 71, "Input",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], +Cell[362560, 9004, 191, 3, 50, "Output",ExpressionUUID->"ffd5c940-c4cb-412e-8f1d-746ffee1feb1"] }, Open ]], +Cell[362766, 9010, 271, 6, 44, "Input",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], Cell[CellGroupData[{ -Cell[361279, 9137, 368, 9, 164, "Input",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], -Cell[361650, 9148, 170, 3, 164, "Output",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] +Cell[363062, 9020, 558, 19, 79, "Input",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], +Cell[363623, 9041, 194, 3, 50, "Output",ExpressionUUID->"769b606d-8a93-4dbb-bd51-57837bc40dcb"] }, Open ]], Cell[CellGroupData[{ -Cell[361857, 9156, 6122, 187, 164, "Input",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], -Cell[367982, 9345, 175, 3, 164, "Output",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] +Cell[363854, 9049, 170, 5, 84, "Input",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], +Cell[364027, 9056, 195, 3, 50, "Output",ExpressionUUID->"5d68ff8d-44d8-4c11-b193-030390d27e55"] }, Open ]], Cell[CellGroupData[{ -Cell[368194, 9353, 368, 9, 164, "Input",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], -Cell[368565, 9364, 172, 3, 164, "Output",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] +Cell[364259, 9064, 181, 5, 65, "Input",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], +Cell[364443, 9071, 195, 3, 50, "Output",ExpressionUUID->"e3d76d20-650e-4158-9d4a-5052d8a9d186"] }, Open ]], Cell[CellGroupData[{ -Cell[368774, 9372, 2663, 88, 164, "Input",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], -Cell[371440, 9462, 173, 3, 164, "Output",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] +Cell[364675, 9079, 6055, 185, 1229, "Input",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], +Cell[370733, 9266, 195, 3, 50, "Output",ExpressionUUID->"e884ad9a-70ef-4bdc-973a-a12ad755f3b9"] }, Open ]], Cell[CellGroupData[{ -Cell[371650, 9470, 2603, 85, 164, "Input",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], -Cell[374256, 9557, 171, 3, 164, "Output",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] +Cell[370965, 9274, 368, 9, 63, "Input",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], +Cell[371336, 9285, 193, 3, 50, "Output",ExpressionUUID->"c397386f-772e-44ef-8471-d7f3c1fcee40"] }, Open ]], Cell[CellGroupData[{ -Cell[374464, 9565, 3712, 118, 164, "Input",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], -Cell[378179, 9685, 174, 3, 164, "Output",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] +Cell[371566, 9293, 6122, 187, 1292, "Input",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], +Cell[377691, 9482, 198, 3, 50, "Output",ExpressionUUID->"f28e8e5a-f086-4f1b-80e8-9fffda12904a"] }, Open ]], Cell[CellGroupData[{ -Cell[378390, 9693, 2052, 59, 164, "Input",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], -Cell[380445, 9754, 578, 12, 164, "Message",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], -Cell[381026, 9768, 583, 12, 164, "Message",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], -Cell[381612, 9782, 586, 12, 164, "Message",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], -Cell[382201, 9796, 456, 10, 164, "Message",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], -Cell[382660, 9808, 170, 3, 164, "Output",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] +Cell[377926, 9490, 368, 9, 63, "Input",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], +Cell[378297, 9501, 194, 3, 50, "Output",ExpressionUUID->"03654654-15d4-4fcf-915a-8ebeebb048bf"] }, Open ]], Cell[CellGroupData[{ -Cell[382867, 9816, 2054, 59, 164, "Input",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], -Cell[384924, 9877, 576, 12, 164, "Message",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], -Cell[385503, 9891, 581, 12, 164, "Message",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], -Cell[386087, 9905, 586, 12, 164, "Message",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], -Cell[386676, 9919, 458, 10, 164, "Message",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], -Cell[387137, 9931, 172, 3, 164, "Output",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] +Cell[378528, 9509, 2663, 88, 558, "Input",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], +Cell[381194, 9599, 196, 3, 50, "Output",ExpressionUUID->"49f6e7ec-9147-4410-bf34-9a29778b7a48"] }, Open ]], Cell[CellGroupData[{ -Cell[387346, 9939, 2028, 55, 164, "Input",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], -Cell[389377, 9996, 20011, 378, 164, "Output",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] +Cell[381427, 9607, 2603, 85, 558, "Input",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], +Cell[384033, 9694, 193, 3, 50, "Output",ExpressionUUID->"8e28c9be-cbd5-4698-b37a-330403e8a952"] }, Open ]], Cell[CellGroupData[{ -Cell[409425, 10379, 2115, 60, 164, "Input",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], -Cell[411543, 10441, 501, 11, 164, "Message",ExpressionUUID->"abf9cb8a-fbbf-7a43-abcd-82efb32ab217"], -Cell[412047, 10454, 503, 11, 164, "Message",ExpressionUUID->"8fcd13e3-81e0-3446-8882-6e42ca5c0bd1"], -Cell[412553, 10467, 505, 11, 164, "Message",ExpressionUUID->"2c23ed60-41ee-5841-90ce-1d26cb02619d"], -Cell[413061, 10480, 456, 10, 164, "Message",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], -Cell[413520, 10492, 32548, 580, 164, "Output",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] +Cell[384263, 9702, 3712, 118, 781, "Input",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], +Cell[387978, 9822, 196, 3, 50, "Output",ExpressionUUID->"51f6be93-8858-4fed-808d-df34c7eccbb8"] }, Open ]], -Cell[446083, 11075, 209, 5, 164, "Input",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], Cell[CellGroupData[{ -Cell[446317, 11084, 1616, 48, 164, "Input",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], -Cell[447936, 11134, 596, 12, 164, "Message",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], -Cell[448535, 11148, 599, 12, 164, "Message",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], -Cell[449137, 11162, 605, 12, 164, "Message",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], -Cell[449745, 11176, 456, 10, 164, "Message",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], -Cell[450204, 11188, 170, 3, 164, "Output",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] +Cell[388211, 9830, 2101, 60, 409, "Input",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], +Cell[390315, 9892, 636, 13, 89, "Message",ExpressionUUID->"992a4b7a-67ee-4bbb-a457-327ca33e90d4"], +Cell[390954, 9907, 636, 13, 89, "Message",ExpressionUUID->"be66b0e1-414d-4407-8fdb-1dc054d897ec"], +Cell[391593, 9922, 634, 13, 89, "Message",ExpressionUUID->"046216a9-f2fb-4eab-807c-5cbe93f5a13b"], +Cell[392230, 9937, 493, 11, 64, "Message",ExpressionUUID->"dcc63893-7598-4220-a26b-203a5113ba1b"], +Cell[392726, 9950, 193, 3, 50, "Output",ExpressionUUID->"f1e4f586-8882-48f9-8bd8-15e5b5548fa3"] }, Open ]], Cell[CellGroupData[{ -Cell[450411, 11196, 2247, 64, 164, "Input",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], -Cell[452661, 11262, 580, 12, 164, "Message",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], -Cell[453244, 11276, 583, 12, 164, "Message",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], -Cell[453830, 11290, 584, 12, 164, "Message",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], -Cell[454417, 11304, 458, 10, 164, "Message",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], -Cell[454878, 11316, 170, 3, 164, "Output",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] +Cell[392956, 9958, 2103, 60, 409, "Input",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], +Cell[395062, 10020, 634, 13, 89, "Message",ExpressionUUID->"ba8511f5-f2ec-48fe-aca2-0f29bfc1eaf5"], +Cell[395699, 10035, 632, 13, 89, "Message",ExpressionUUID->"fc53be17-0f86-4459-9866-f7767f4e5911"], +Cell[396334, 10050, 631, 13, 89, "Message",ExpressionUUID->"8cd562e1-937c-4f27-a796-02a385b0a4b1"], +Cell[396968, 10065, 491, 11, 64, "Message",ExpressionUUID->"252c8d5a-cbe1-42d6-96e9-a18a85ab0ead"], +Cell[397462, 10078, 195, 3, 50, "Output",ExpressionUUID->"e645b5da-20c1-43f6-a49e-c9d10c088921"] }, Open ]], Cell[CellGroupData[{ -Cell[455085, 11324, 2219, 64, 164, "Input",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], -Cell[457307, 11390, 580, 12, 164, "Message",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], -Cell[457890, 11404, 583, 12, 164, "Message",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], -Cell[458476, 11418, 586, 12, 164, "Message",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], -Cell[459065, 11432, 458, 10, 164, "Message",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], -Cell[459526, 11444, 171, 3, 164, "Output",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] +Cell[397694, 10086, 2051, 55, 317, "Input",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], +Cell[399748, 10143, 20247, 383, 334, "Output",ExpressionUUID->"152b25ef-25c6-4d4f-be52-b5c396c8d124"] }, Open ]], Cell[CellGroupData[{ -Cell[459734, 11452, 2221, 64, 164, "Input",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], -Cell[461958, 11518, 580, 12, 164, "Message",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], -Cell[462541, 11532, 583, 12, 164, "Message",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], -Cell[463127, 11546, 584, 12, 164, "Message",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], -Cell[463714, 11560, 456, 10, 164, "Message",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], -Cell[464173, 11572, 170, 3, 164, "Output",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] +Cell[420032, 10531, 2165, 61, 450, "Input",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], +Cell[422200, 10594, 536, 12, 111, "Message",ExpressionUUID->"2eeb6c50-32fe-42f8-9cf0-5131c6d7cae0"], +Cell[422739, 10608, 539, 12, 111, "Message",ExpressionUUID->"5692cff9-e459-460f-a382-44295ac486fe"], +Cell[423281, 10622, 543, 12, 147, "Message",ExpressionUUID->"11e9df55-6b56-4a4f-9970-e9944c56ec7d"], +Cell[423827, 10636, 495, 11, 64, "Message",ExpressionUUID->"5c068370-f696-4b6c-957a-a1e032e0ecf6"], +Cell[424325, 10649, 25516, 465, 329, "Output",ExpressionUUID->"fdbc39ee-6670-445e-92c4-c39af8b4bcaa"] }, Open ]], Cell[CellGroupData[{ -Cell[464380, 11580, 213, 6, 164, "Input",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], -Cell[464596, 11588, 174, 3, 164, "Output",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] +Cell[449878, 11119, 232, 5, 44, "Input",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], +Cell[450113, 11126, 31876, 597, 329, "Output",ExpressionUUID->"ac2e04c9-e38d-4227-86fe-4051f56b32e5"] }, Open ]], -Cell[464785, 11594, 247, 5, 164, "Input",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], Cell[CellGroupData[{ -Cell[465057, 11603, 558, 19, 164, "Input",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], -Cell[465618, 11624, 173, 3, 164, "Output",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] +Cell[482026, 11728, 1616, 48, 247, "Input",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], +Cell[483645, 11778, 639, 14, 89, "Message",ExpressionUUID->"cab69902-e520-48ac-bc23-faa234e6a1d6"], +Cell[484287, 11794, 640, 14, 89, "Message",ExpressionUUID->"7da09d6e-15bd-40c6-850e-4bc99178471c"], +Cell[484930, 11810, 638, 14, 89, "Message",ExpressionUUID->"0aa0dccc-b63b-4859-bd07-cbe3d3d2d7d8"], +Cell[485571, 11826, 493, 11, 64, "Message",ExpressionUUID->"b7d44e5f-9ccc-4962-a582-3d67b7876eff"], +Cell[486067, 11839, 192, 3, 50, "Output",ExpressionUUID->"698de743-0789-4221-abd6-96d0f845d615"] }, Open ]], Cell[CellGroupData[{ -Cell[465828, 11632, 170, 5, 164, "Input",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], -Cell[466001, 11639, 173, 3, 164, "Output",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] +Cell[486296, 11847, 2270, 64, 501, "Input",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], +Cell[488569, 11913, 636, 13, 89, "Message",ExpressionUUID->"b8ff083c-c8bb-4193-abc7-4d4b3241c9a0"], +Cell[489208, 11928, 636, 13, 89, "Message",ExpressionUUID->"51e2ccb0-3664-4ff1-a32c-636ce5641611"], +Cell[489847, 11943, 636, 13, 89, "Message",ExpressionUUID->"d79d1f7e-01c9-4a82-9704-b84f3bb11de4"], +Cell[490486, 11958, 495, 11, 64, "Message",ExpressionUUID->"3fa27799-50a6-492c-83fc-bf49de085896"], +Cell[490984, 11971, 193, 3, 50, "Output",ExpressionUUID->"9976f101-2926-4c7f-b41a-fca64b13d791"] }, Open ]], Cell[CellGroupData[{ -Cell[466211, 11647, 181, 5, 164, "Input",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], -Cell[466395, 11654, 171, 3, 164, "Output",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] +Cell[491214, 11979, 2231, 63, 501, "Input",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], +Cell[493448, 12044, 636, 13, 89, "Message",ExpressionUUID->"7cb98beb-7ae5-4ff6-9419-1989cd81907c"], +Cell[494087, 12059, 636, 13, 89, "Message",ExpressionUUID->"44b4eb2c-c12a-4dc0-9c4b-32901d8e0e8b"], +Cell[494726, 12074, 636, 13, 89, "Message",ExpressionUUID->"7d9e385b-770b-4dbe-bdaf-5b8dc26830c3"], +Cell[495365, 12089, 495, 11, 64, "Message",ExpressionUUID->"28394b22-5038-4352-b027-d5d51fb340d6"], +Cell[495863, 12102, 195, 3, 50, "Output",ExpressionUUID->"bc1aa434-352c-4027-9df5-3f9132531212"] }, Open ]], Cell[CellGroupData[{ -Cell[466603, 11662, 6055, 185, 164, "Input",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], -Cell[472661, 11849, 173, 3, 164, "Output",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] +Cell[496095, 12110, 2233, 63, 501, "Input",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], +Cell[498331, 12175, 638, 13, 89, "Message",ExpressionUUID->"82e714b9-21c2-41ce-96eb-043345e8b0b7"], +Cell[498972, 12190, 635, 13, 89, "Message",ExpressionUUID->"3b385508-fed6-49b9-9981-c4048e23328b"], +Cell[499610, 12205, 636, 13, 89, "Message",ExpressionUUID->"0762189b-bd9e-4f84-8f59-6ea04b4a16fb"], +Cell[500249, 12220, 497, 11, 64, "Message",ExpressionUUID->"d39f936f-1039-4d3a-af11-ff0b1aa7545e"], +Cell[500749, 12233, 192, 3, 50, "Output",ExpressionUUID->"2b7c4378-5176-4836-b86f-0982ae7c9cc9"] }, Open ]], Cell[CellGroupData[{ -Cell[472871, 11857, 368, 9, 164, "Input",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], -Cell[473242, 11868, 172, 3, 164, "Output",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] +Cell[500978, 12241, 236, 6, 71, "Input",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], +Cell[501217, 12249, 197, 3, 50, "Output",ExpressionUUID->"3a434e09-608a-46cc-ad20-fcb6d53b2e92"] }, Open ]], +Cell[501429, 12255, 273, 6, 44, "Input",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], Cell[CellGroupData[{ -Cell[473451, 11876, 6122, 187, 164, "Input",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], -Cell[479576, 12065, 175, 3, 164, "Output",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] +Cell[501727, 12265, 558, 19, 79, "Input",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], +Cell[502288, 12286, 194, 3, 50, "Output",ExpressionUUID->"c17abcae-67e8-4f5d-89f1-7b3ccf260b7c"] }, Open ]], Cell[CellGroupData[{ -Cell[479788, 12073, 368, 9, 164, "Input",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], -Cell[480159, 12084, 171, 3, 164, "Output",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] +Cell[502519, 12294, 170, 5, 84, "Input",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], +Cell[502692, 12301, 197, 3, 50, "Output",ExpressionUUID->"e4e948e0-7acc-4ab1-b9bb-8c888c82ed02"] }, Open ]], Cell[CellGroupData[{ -Cell[480367, 12092, 2663, 88, 164, "Input",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], -Cell[483033, 12182, 173, 3, 164, "Output",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] +Cell[502926, 12309, 181, 5, 65, "Input",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], +Cell[503110, 12316, 193, 3, 50, "Output",ExpressionUUID->"c2df5c7d-ae75-4fcc-b3ab-9d04dc57a117"] }, Open ]], Cell[CellGroupData[{ -Cell[483243, 12190, 2603, 85, 164, "Input",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], -Cell[485849, 12277, 171, 3, 164, "Output",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] +Cell[503340, 12324, 6055, 185, 1229, "Input",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], +Cell[509398, 12511, 193, 3, 50, "Output",ExpressionUUID->"ee361062-8635-4e45-881c-91ee1f3f8e33"] }, Open ]], Cell[CellGroupData[{ -Cell[486057, 12285, 3712, 118, 164, "Input",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], -Cell[489772, 12405, 174, 3, 164, "Output",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] +Cell[509628, 12519, 368, 9, 63, "Input",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], +Cell[509999, 12530, 195, 3, 50, "Output",ExpressionUUID->"4d4cf802-87fd-4d0e-b3ff-234e467986ba"] }, Open ]], Cell[CellGroupData[{ -Cell[489983, 12413, 2054, 59, 164, "Input",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], -Cell[492040, 12474, 572, 12, 164, "Message",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], -Cell[492615, 12488, 573, 12, 164, "Message",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], -Cell[493191, 12502, 579, 12, 164, "Message",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], -Cell[493773, 12516, 456, 10, 164, "Message",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], -Cell[494232, 12528, 169, 3, 164, "Output",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] +Cell[510231, 12538, 6122, 187, 1292, "Input",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], +Cell[516356, 12727, 198, 3, 50, "Output",ExpressionUUID->"580cb681-8a91-4dc4-89fe-da0bc4ce7527"] }, Open ]], Cell[CellGroupData[{ -Cell[494438, 12536, 2049, 58, 164, "Input",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], -Cell[496490, 12596, 570, 12, 164, "Message",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], -Cell[497063, 12610, 575, 12, 164, "Message",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], -Cell[497641, 12624, 579, 12, 164, "Message",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], -Cell[498223, 12638, 458, 10, 164, "Message",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], -Cell[498684, 12650, 171, 3, 164, "Output",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] +Cell[516591, 12735, 368, 9, 63, "Input",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], +Cell[516962, 12746, 189, 3, 50, "Output",ExpressionUUID->"ebaa5df0-0ec3-437e-bf78-634156cd36ee"] }, Open ]], Cell[CellGroupData[{ -Cell[498892, 12658, 2030, 55, 164, "Input",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], -Cell[500925, 12715, 20011, 378, 164, "Output",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] +Cell[517188, 12754, 2663, 88, 558, "Input",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], +Cell[519854, 12844, 198, 3, 50, "Output",ExpressionUUID->"45bb872f-fcc7-4009-9df6-64d4f5006e0a"] }, Open ]], Cell[CellGroupData[{ -Cell[520973, 13098, 2120, 60, 164, "Input",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], -Cell[523096, 13160, 501, 11, 164, "Message",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], -Cell[523600, 13173, 505, 11, 164, "Message",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], -Cell[524108, 13186, 506, 11, 164, "Message",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], -Cell[524617, 13199, 456, 10, 164, "Message",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], -Cell[525076, 13211, 31008, 556, 164, "Output",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] +Cell[520089, 12852, 2603, 85, 558, "Input",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], +Cell[522695, 12939, 193, 3, 50, "Output",ExpressionUUID->"89573921-0c39-43bb-9fb2-69a0d124e4d2"] }, Open ]], -Cell[556099, 13770, 209, 5, 164, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], Cell[CellGroupData[{ -Cell[556333, 13779, 1616, 48, 164, "Input",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], -Cell[557952, 13829, 593, 12, 164, "Message",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], -Cell[558548, 13843, 595, 12, 164, "Message",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], -Cell[559146, 13857, 602, 12, 164, "Message",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], -Cell[559751, 13871, 456, 10, 164, "Message",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], -Cell[560210, 13883, 172, 3, 164, "Output",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] +Cell[522925, 12947, 3712, 118, 781, "Input",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], +Cell[526640, 13067, 196, 3, 50, "Output",ExpressionUUID->"021795ef-5cfd-4dcd-b5d0-5d6bf90521c1"] }, Open ]], Cell[CellGroupData[{ -Cell[560419, 13891, 2249, 64, 164, "Input",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], -Cell[562671, 13957, 572, 12, 164, "Message",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], -Cell[563246, 13971, 575, 12, 164, "Message",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], -Cell[563824, 13985, 579, 12, 164, "Message",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], -Cell[564406, 13999, 458, 10, 164, "Message",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], -Cell[564867, 14011, 173, 3, 164, "Output",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] +Cell[526873, 13075, 2103, 60, 409, "Input",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], +Cell[528979, 13137, 634, 13, 89, "Message",ExpressionUUID->"c3d0ef3a-fef2-401e-a4db-93778f85f701"], +Cell[529616, 13152, 635, 13, 89, "Message",ExpressionUUID->"6affdd54-60eb-4852-94ef-f420d59b3457"], +Cell[530254, 13167, 635, 13, 89, "Message",ExpressionUUID->"cfc22a33-db6d-43f2-a51c-39ebf0ca39e2"], +Cell[530892, 13182, 495, 11, 64, "Message",ExpressionUUID->"6df728ea-10d6-4cb9-bd03-78709750fdf2"], +Cell[531390, 13195, 193, 3, 50, "Output",ExpressionUUID->"8ef8ba66-c509-4477-8bbe-c1bd6e765625"] }, Open ]], Cell[CellGroupData[{ -Cell[565077, 14019, 2221, 64, 164, "Input",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], -Cell[567301, 14085, 572, 12, 164, "Message",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], -Cell[567876, 14099, 575, 12, 164, "Message",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], -Cell[568454, 14113, 577, 12, 164, "Message",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], -Cell[569034, 14127, 456, 10, 164, "Message",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], -Cell[569493, 14139, 172, 3, 164, "Output",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] +Cell[531620, 13203, 2100, 60, 409, "Input",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], +Cell[533723, 13265, 633, 13, 89, "Message",ExpressionUUID->"5d9a9279-a7cd-470f-9c04-b59beab8bd48"], +Cell[534359, 13280, 633, 13, 89, "Message",ExpressionUUID->"ba95c05d-71bd-405d-ad41-acaaa8a2bd7d"], +Cell[534995, 13295, 633, 13, 89, "Message",ExpressionUUID->"2301dd73-e28e-4927-9903-6a3a9c908948"], +Cell[535631, 13310, 493, 11, 64, "Message",ExpressionUUID->"8f4bac23-b0ab-4825-aa53-c666f56b1213"], +Cell[536127, 13323, 194, 3, 50, "Output",ExpressionUUID->"cb61a30e-d612-4219-91ec-60eb9a3dd70e"] }, Open ]], Cell[CellGroupData[{ -Cell[569702, 14147, 2223, 64, 164, "Input",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], -Cell[571928, 14213, 572, 12, 164, "Message",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], -Cell[572503, 14227, 573, 12, 164, "Message",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], -Cell[573079, 14241, 579, 12, 164, "Message",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], -Cell[573661, 14255, 456, 10, 164, "Message",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], -Cell[574120, 14267, 173, 3, 164, "Output",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] +Cell[536358, 13331, 2053, 55, 317, "Input",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], +Cell[538414, 13388, 20359, 383, 338, "Output",ExpressionUUID->"2dd30d93-275e-4c67-a64b-5319b4597d3f"] }, Open ]], Cell[CellGroupData[{ -Cell[574330, 14275, 215, 6, 164, "Input",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], -Cell[574548, 14283, 174, 3, 164, "Output",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] -}, Open ]] +Cell[558810, 13776, 2170, 61, 450, "Input",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], +Cell[560983, 13839, 539, 12, 111, "Message",ExpressionUUID->"2924b317-5fb1-41a4-a587-f2b42d2e22d3"], +Cell[561525, 13853, 540, 12, 147, "Message",ExpressionUUID->"2b0729b3-9a59-4d29-b658-0ad37a9f254c"], +Cell[562068, 13867, 546, 12, 147, "Message",ExpressionUUID->"082279f4-fafd-4460-85a6-c56955980f22"], +Cell[562617, 13881, 493, 11, 64, "Message",ExpressionUUID->"6669a368-bda4-4908-8519-6bdb51ed65ff"], +Cell[563113, 13894, 24863, 456, 329, "Output",ExpressionUUID->"756c2c88-e3c4-47b6-833e-4ea3f745c1f4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[588013, 14355, 232, 5, 44, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], +Cell[588248, 14362, 31223, 588, 329, "Output",ExpressionUUID->"4fe1c608-6b89-4d6a-a62e-a4aadd72131b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[619508, 14955, 1616, 48, 247, "Input",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], +Cell[621127, 15005, 638, 14, 89, "Message",ExpressionUUID->"86477058-af99-42bd-833c-8491c9da0f01"], +Cell[621768, 15021, 641, 14, 89, "Message",ExpressionUUID->"5aaccc61-5ebe-47cc-b5fe-ab2c43aa6401"], +Cell[622412, 15037, 641, 14, 89, "Message",ExpressionUUID->"bd4741f4-f0f5-4de8-8655-911fd077fb9d"], +Cell[623056, 15053, 493, 11, 64, "Message",ExpressionUUID->"4c841167-8dfa-4ff6-89b0-17ca603c80ce"], +Cell[623552, 15066, 197, 3, 50, "Output",ExpressionUUID->"8e81df93-f2be-46a9-b626-f5bed2f62576"] +}, Open ]], +Cell[CellGroupData[{ +Cell[623786, 15074, 2272, 64, 501, "Input",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], +Cell[626061, 15140, 636, 13, 89, "Message",ExpressionUUID->"340252c1-48bf-4df6-a74c-5194e31e91a1"], +Cell[626700, 15155, 634, 13, 89, "Message",ExpressionUUID->"ec94355b-c1af-4ade-863c-d995d3dac622"], +Cell[627337, 15170, 634, 13, 89, "Message",ExpressionUUID->"ec16bcab-87e5-405f-b7a2-ed4804188fcc"], +Cell[627974, 15185, 495, 11, 64, "Message",ExpressionUUID->"3eebe558-d3fc-45eb-9f99-e589c809f7c2"], +Cell[628472, 15198, 198, 3, 50, "Output",ExpressionUUID->"c7539442-1e49-4371-b9a9-197f66bd6a41"] +}, Open ]], +Cell[CellGroupData[{ +Cell[628707, 15206, 2233, 63, 501, "Input",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], +Cell[630943, 15271, 638, 13, 89, "Message",ExpressionUUID->"3194138d-9222-463f-b4d9-7c1dbf13cd88"], +Cell[631584, 15286, 635, 13, 89, "Message",ExpressionUUID->"ee9cc04c-3386-47f6-ad1a-dd2c15623816"], +Cell[632222, 15301, 637, 13, 89, "Message",ExpressionUUID->"2f7459b9-3b8c-4065-be6e-49ca0c84884f"], +Cell[632862, 15316, 497, 11, 64, "Message",ExpressionUUID->"04627875-ac27-446c-a6d9-712becbfed9d"], +Cell[633362, 15329, 197, 3, 50, "Output",ExpressionUUID->"f30af007-f3e2-4a38-8468-6314a546eef1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[633596, 15337, 2235, 63, 501, "Input",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], +Cell[635834, 15402, 636, 13, 89, "Message",ExpressionUUID->"029de7ab-36cd-4078-933c-69edae8c940e"], +Cell[636473, 15417, 637, 13, 89, "Message",ExpressionUUID->"4228fa02-dafb-4e67-9f3b-5edf1a69261e"], +Cell[637113, 15432, 634, 13, 89, "Message",ExpressionUUID->"354bc55a-32aa-4c11-b563-c2c54abf179a"], +Cell[637750, 15447, 495, 11, 64, "Message",ExpressionUUID->"f6c552a6-9410-4f2c-a3ee-58334e4d442c"], +Cell[638248, 15460, 197, 3, 50, "Output",ExpressionUUID->"c4f864d2-0f57-4613-822d-b76e714b3129"] +}, Open ]], +Cell[CellGroupData[{ +Cell[638482, 15468, 238, 6, 71, "Input",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], +Cell[638723, 15476, 195, 3, 50, "Output",ExpressionUUID->"6b301d42-66c8-49fc-a089-22ad8c2340a8"] +}, Open ]], +Cell[638933, 15482, 143, 3, 44, "Input",ExpressionUUID->"c807c58a-129c-4478-a7f1-a262f2b7ade3"] } ] *) diff --git a/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_pr_Qw2.nb b/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_pr_Qw2.nb index 706ba7a..427a7e5 100644 --- a/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_pr_Qw2.nb +++ b/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_pr_Qw2.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 602379, 14661] -NotebookOptionsPosition[ 563514, 14041] -NotebookOutlinePosition[ 563925, 14058] -CellTagsIndexPosition[ 563882, 14055] +NotebookDataLength[ 669181, 15986] +NotebookOptionsPosition[ 628618, 15338] +NotebookOutlinePosition[ 629032, 15355] +CellTagsIndexPosition[ 628989, 15352] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -26,15 +26,13 @@ Cell[BoxData[ 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, 3.9920650045886707`*^9, {3.9940821364341908`*^9, 3.994082136546945*^9}, { 3.99408222505837*^9, 3.9940822566678658`*^9}}, - CellLabel-> - "In[371]:=",ExpressionUUID->"35973d63-0d9a-456c-add5-8b5e8390b888"], + CellLabel->"In[1]:=",ExpressionUUID->"35973d63-0d9a-456c-add5-8b5e8390b888"], Cell[BoxData["1.85`"], "Output", CellChangeTimes->{ 3.991320420900818*^9, 3.9940821397588*^9, {3.9940822104439507`*^9, - 3.994082259420228*^9}}, - CellLabel-> - "Out[371]=",ExpressionUUID->"fd7b1493-9e6f-41b7-9769-1152ffcfc4a8"] + 3.994082259420228*^9}, 3.994256403931134*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"9f39a432-7ef6-4378-8574-6210e6978c8c"] }, Open ]], Cell[CellGroupData[{ @@ -43,15 +41,13 @@ Cell[BoxData[ RowBox[{"A", "=", "240"}]], "Input", CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { 3.99407306326154*^9, 3.994073063917366*^9}}, - CellLabel-> - "In[372]:=",ExpressionUUID->"dbdfe1d5-8311-4ac7-a46b-901ff8c30623"], + CellLabel->"In[2]:=",ExpressionUUID->"dbdfe1d5-8311-4ac7-a46b-901ff8c30623"], Cell[BoxData["240"], "Output", CellChangeTimes->{ 3.9913196497381973`*^9, 3.994082139815686*^9, {3.994082210466728*^9, - 3.994082259455925*^9}}, - CellLabel-> - "Out[372]=",ExpressionUUID->"8ba2d563-8790-468b-b8c3-3f9a1df82e0c"] + 3.994082259455925*^9}, 3.994256404051462*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"52f905f6-9cd3-43a9-87d8-ada7d69e6de6"] }, Open ]], Cell[CellGroupData[{ @@ -60,15 +56,13 @@ Cell[BoxData[ RowBox[{"A1", "=", "166"}]], "Input", CellChangeTimes->{ 3.991798961431202*^9, {3.9940730665357656`*^9, 3.994073067306501*^9}}, - CellLabel-> - "In[373]:=",ExpressionUUID->"6f811e58-bb01-4804-b737-86b35489b8eb"], + CellLabel->"In[3]:=",ExpressionUUID->"6f811e58-bb01-4804-b737-86b35489b8eb"], Cell[BoxData["166"], "Output", CellChangeTimes->{ 3.9913196497578354`*^9, 3.994082139825574*^9, {3.9940822104766827`*^9, - 3.994082259466858*^9}}, - CellLabel-> - "Out[373]=",ExpressionUUID->"f74e5a76-ee94-4575-a24a-25c0b6bcb454"] + 3.994082259466858*^9}, 3.994256404071373*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"4a721359-de8e-4675-854f-975258af8652"] }, Open ]], Cell[CellGroupData[{ @@ -76,15 +70,13 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, - CellLabel-> - "In[374]:=",ExpressionUUID->"88380dba-6b91-457e-b0fb-d0594f76aca1"], + CellLabel->"In[4]:=",ExpressionUUID->"88380dba-6b91-457e-b0fb-d0594f76aca1"], Cell[BoxData["0.55`"], "Output", CellChangeTimes->{ 3.991319649777508*^9, 3.994082139835326*^9, {3.994082210487997*^9, - 3.994082259477521*^9}}, - CellLabel-> - "Out[374]=",ExpressionUUID->"ca1b3b6e-b7f4-4abd-ac1f-c8daabc3be1a"] + 3.994082259477521*^9}, 3.9942564040846157`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"a932d722-7dc5-4e99-a28b-4918faee2956"] }, Open ]], Cell[CellGroupData[{ @@ -96,30 +88,26 @@ Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", - CellLabel-> - "In[375]:=",ExpressionUUID->"8c4dac5f-46bc-43ac-a4df-6dd5378834d0"], + CellLabel->"In[5]:=",ExpressionUUID->"8c4dac5f-46bc-43ac-a4df-6dd5378834d0"], Cell[BoxData["0.54425`"], "Output", CellChangeTimes->{ 3.9913196497965145`*^9, 3.994082139845067*^9, {3.994082210498448*^9, - 3.994082259487831*^9}}, - CellLabel-> - "Out[375]=",ExpressionUUID->"600c1426-0ce0-4a63-b03b-04a6464ab1e8"] + 3.994082259487831*^9}, 3.9942564041072206`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"5b637388-aead-4c3e-ac4e-acd9ad79c6b3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", - CellLabel-> - "In[376]:=",ExpressionUUID->"88f58631-98c2-423b-b1fa-dc5fa27002e2"], + CellLabel->"In[6]:=",ExpressionUUID->"88f58631-98c2-423b-b1fa-dc5fa27002e2"], Cell[BoxData["0.17`"], "Output", CellChangeTimes->{ 3.9913196498144608`*^9, 3.994082139854616*^9, {3.99408221050937*^9, - 3.994082259497772*^9}}, - CellLabel-> - "Out[376]=",ExpressionUUID->"f40cbbf8-783b-41f3-b625-825cc593e3af"] + 3.994082259497772*^9}, 3.994256404124301*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"3d5ae3a9-a98e-4133-b1aa-34d0a434941f"] }, Open ]], Cell[CellGroupData[{ @@ -130,15 +118,13 @@ Cell[BoxData[ SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}]}]], "Input", CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, - CellLabel-> - "In[377]:=",ExpressionUUID->"adb39ac5-0d3e-44ae-b7f3-8326c2ac749d"], + CellLabel->"In[7]:=",ExpressionUUID->"adb39ac5-0d3e-44ae-b7f3-8326c2ac749d"], Cell[BoxData["6.3752030057102145`"], "Output", CellChangeTimes->{ 3.9913196498225155`*^9, 3.994082139865213*^9, {3.994082210519739*^9, - 3.994082259507691*^9}}, - CellLabel-> - "Out[377]=",ExpressionUUID->"d5dd9a41-5632-4a89-9de1-50da2c817b78"] + 3.994082259507691*^9}, 3.9942564041422358`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"e72ee88f-b2a5-48db-91d8-1f8e4142173b"] }, Open ]], Cell[CellGroupData[{ @@ -150,15 +136,13 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", - CellLabel-> - "In[378]:=",ExpressionUUID->"f149ca1a-9038-4f65-afb4-26e0d1159c8c"], + CellLabel->"In[8]:=",ExpressionUUID->"f149ca1a-9038-4f65-afb4-26e0d1159c8c"], Cell[BoxData["4.870070286417752`"], "Output", CellChangeTimes->{ 3.9913196498425236`*^9, 3.99408213987599*^9, {3.9940822105302753`*^9, - 3.994082259517621*^9}}, - CellLabel-> - "Out[378]=",ExpressionUUID->"5768fe08-2ee1-4690-812a-68499791ca0c"] + 3.994082259517621*^9}, 3.994256404160347*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"df5e4a96-54c8-4404-9786-79bb37e57e95"] }, Open ]], Cell[CellGroupData[{ @@ -166,14 +150,13 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"b1", "=", "0.9035518425"}]], "Input", CellChangeTimes->{3.991799283179735*^9, 3.994073090925538*^9}, - CellLabel-> - "In[379]:=",ExpressionUUID->"9605763a-f9d3-4856-a010-2d3a060ace0f"], + CellLabel->"In[9]:=",ExpressionUUID->"9605763a-f9d3-4856-a010-2d3a060ace0f"], Cell[BoxData["0.9035518425`"], "Output", CellChangeTimes->{ - 3.994082139886828*^9, {3.9940822105402517`*^9, 3.9940822595277653`*^9}}, - CellLabel-> - "Out[379]=",ExpressionUUID->"5c1f2d4f-7f53-43a7-9dff-bb0d958faab9"] + 3.994082139886828*^9, {3.9940822105402517`*^9, 3.9940822595277653`*^9}, + 3.9942564041767607`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"1964a207-c093-4032-a7fa-517147aa1a7a"] }, Open ]], Cell[CellGroupData[{ @@ -181,44 +164,39 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"b2", "=", "0.3863821951"}]], "Input", CellChangeTimes->{3.991799280663351*^9, 3.9940730962719193`*^9}, - CellLabel-> - "In[380]:=",ExpressionUUID->"64836933-25c9-4db5-bd32-fbb116d0de1d"], + CellLabel->"In[10]:=",ExpressionUUID->"64836933-25c9-4db5-bd32-fbb116d0de1d"], Cell[BoxData["0.3863821951`"], "Output", CellChangeTimes->{ - 3.994082139897403*^9, {3.994082210550373*^9, 3.994082259537862*^9}}, - CellLabel-> - "Out[380]=",ExpressionUUID->"d0d2dbc8-8214-41d4-96c4-ff855e3ae0e5"] + 3.994082139897403*^9, {3.994082210550373*^9, 3.994082259537862*^9}, + 3.99425640425238*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"d048e71d-362a-4b71-bfcc-dae59bfe91c0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", - CellLabel-> - "In[381]:=",ExpressionUUID->"419e5362-c0de-4669-abe1-997084eaebaf"], + CellLabel->"In[11]:=",ExpressionUUID->"419e5362-c0de-4669-abe1-997084eaebaf"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498927155`*^9, 3.994082139910328*^9, {3.994082210560801*^9, - 3.9940822595420103`*^9}}, - CellLabel-> - "Out[381]=",ExpressionUUID->"4f79c2d8-8648-41db-a0a4-bb15cdd2e3e6"] + 3.9940822595420103`*^9}, 3.994256404274355*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"b5356f86-6042-4c01-964a-151e5966548c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", - CellLabel-> - "In[382]:=",ExpressionUUID->"872d5066-6306-44a9-bec8-fff8eb67aa28"], + CellLabel->"In[12]:=",ExpressionUUID->"872d5066-6306-44a9-bec8-fff8eb67aa28"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498996067`*^9, 3.9940821399224367`*^9, {3.994082210571288*^9, - 3.994082259554398*^9}}, - CellLabel-> - "Out[382]=",ExpressionUUID->"02ab10b9-0e8a-4686-956a-68ea031bcac6"] + 3.994082259554398*^9}, 3.9942564042915173`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"fd62b4d7-f63f-439c-b1ae-ce03688df9d7"] }, Open ]], Cell[CellGroupData[{ @@ -242,15 +220,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[383]:=",ExpressionUUID->"764cc1f7-0f06-4256-a6a4-65ab16179530"], + CellLabel->"In[13]:=",ExpressionUUID->"764cc1f7-0f06-4256-a6a4-65ab16179530"], Cell[BoxData["2.315137197466896`"], "Output", CellChangeTimes->{ 3.9913197863028755`*^9, 3.994082139933848*^9, {3.994082210581699*^9, - 3.9940822595648727`*^9}}, - CellLabel-> - "Out[383]=",ExpressionUUID->"5b1dbac8-6f2c-4c49-b1cf-0317fbdabcaf"] + 3.9940822595648727`*^9}, 3.994256404307983*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"fb615c3d-9eed-4ee4-bcaa-b0972dd23833"] }, Open ]], Cell[CellGroupData[{ @@ -274,15 +250,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[384]:=",ExpressionUUID->"cd0ecf79-d3ef-4ba6-ae0e-e2874c38a9ba"], + CellLabel->"In[14]:=",ExpressionUUID->"cd0ecf79-d3ef-4ba6-ae0e-e2874c38a9ba"], Cell[BoxData["1.4220278650887666`"], "Output", CellChangeTimes->{ 3.9913197864610195`*^9, 3.994082139944078*^9, {3.9940822105866547`*^9, - 3.9940822595749483`*^9}}, - CellLabel-> - "Out[384]=",ExpressionUUID->"a734bf3d-b563-42e1-a950-8ee8dc581e98"] + 3.9940822595749483`*^9}, 3.9942564043253393`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"a5e1c5ea-e75c-4745-937a-8b1860f2660c"] }, Open ]], Cell[CellGroupData[{ @@ -337,15 +311,13 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[385]:=",ExpressionUUID->"8adb6708-1bda-475c-b18a-d1b195458671"], + CellLabel->"In[15]:=",ExpressionUUID->"8adb6708-1bda-475c-b18a-d1b195458671"], Cell[BoxData["0.4069661562665162`"], "Output", CellChangeTimes->{ 3.991319786533783*^9, 3.994082139954578*^9, {3.994082210602051*^9, - 3.994082259585372*^9}}, - CellLabel-> - "Out[385]=",ExpressionUUID->"898f6483-ca77-4442-ad4d-0621443411c6"] + 3.994082259585372*^9}, 3.99425640434268*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"a418ac4e-b49e-4820-ad9a-a1a504ae2b22"] }, Open ]], Cell[CellGroupData[{ @@ -396,16 +368,14 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[386]:=",ExpressionUUID->"4d151d2d-a479-4f7c-bf52-c1e63afc2115"], + CellLabel->"In[16]:=",ExpressionUUID->"4d151d2d-a479-4f7c-bf52-c1e63afc2115"], Cell[BoxData[ RowBox[{"-", "0.08563504168524437`"}]], "Output", CellChangeTimes->{ 3.991319786540777*^9, 3.9940821399653873`*^9, {3.994082210613337*^9, - 3.994082259596693*^9}}, - CellLabel-> - "Out[386]=",ExpressionUUID->"2771f7c2-c507-44b2-89ea-040da86bb557"] + 3.994082259596693*^9}, 3.9942564043611097`*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"5c144bfa-114b-472a-ad0b-b81ab2bfdc45"] }, Open ]], Cell[CellGroupData[{ @@ -456,16 +426,14 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[387]:=",ExpressionUUID->"63598d16-2d41-4dd4-8df7-aa91cd656229"], + CellLabel->"In[17]:=",ExpressionUUID->"63598d16-2d41-4dd4-8df7-aa91cd656229"], Cell[BoxData[ RowBox[{"-", "0.5841673375234483`"}]], "Output", CellChangeTimes->{ 3.9913197865777817`*^9, 3.9940821399780188`*^9, {3.9940822106256943`*^9, - 3.9940822596071453`*^9}}, - CellLabel-> - "Out[387]=",ExpressionUUID->"a9b614e6-f510-488a-901a-2ed10f310475"] + 3.9940822596071453`*^9}, 3.9942564121764193`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"68171d1c-ebc2-4fe0-ab40-9c298be6e21c"] }, Open ]], Cell[CellGroupData[{ @@ -520,60 +488,52 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[388]:=",ExpressionUUID->"4676fefc-6764-4074-a289-9b1337d33532"], + CellLabel->"In[18]:=",ExpressionUUID->"4676fefc-6764-4074-a289-9b1337d33532"], Cell[BoxData["0.7215005296935654`"], "Output", CellChangeTimes->{ 3.9913197866129*^9, 3.994082139989607*^9, {3.994082210635736*^9, - 3.99408225961747*^9}}, - CellLabel-> - "Out[388]=",ExpressionUUID->"a5c743bc-8301-4ed4-8c12-7b6dfe30c0b3"] + 3.99408225961747*^9}, 3.994256412592121*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"8d4bafbe-55e0-4544-a585-d2ca7965510d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", - CellLabel-> - "In[389]:=",ExpressionUUID->"ef604341-566d-4c22-8f6c-8367d47b5f57"], + CellLabel->"In[19]:=",ExpressionUUID->"ef604341-566d-4c22-8f6c-8367d47b5f57"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786620775*^9, 3.9940821399995413`*^9, {3.9940822106444807`*^9, - 3.994082259627829*^9}}, - CellLabel-> - "Out[389]=",ExpressionUUID->"6d89071e-ca6f-440c-9fad-a38d638ce33a"] + 3.994082259627829*^9}, 3.994256412612423*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"85030f95-ec0d-4891-a435-68e9e63d7e62"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fin", "=", "0.09"}]], "Input", - CellLabel-> - "In[390]:=",ExpressionUUID->"8cd91362-d232-4fbe-bb52-7dd1d83b495b"], + CellLabel->"In[20]:=",ExpressionUUID->"8cd91362-d232-4fbe-bb52-7dd1d83b495b"], Cell[BoxData["0.09`"], "Output", CellChangeTimes->{ 3.991319786657793*^9, 3.994082140010191*^9, {3.994082210653286*^9, - 3.994082259638521*^9}}, - CellLabel-> - "Out[390]=",ExpressionUUID->"77a766c5-be71-481f-8dff-ca18941832cf"] + 3.994082259638521*^9}, 3.9942564126315613`*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"1fee23b8-4695-40af-a53f-e39332955b56"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffin", "=", "0.42"}]], "Input", - CellLabel-> - "In[391]:=",ExpressionUUID->"1ad6203e-5d08-404d-ae4a-b663b1daf515"], + CellLabel->"In[21]:=",ExpressionUUID->"1ad6203e-5d08-404d-ae4a-b663b1daf515"], Cell[BoxData["0.42`"], "Output", CellChangeTimes->{ 3.9913197866657925`*^9, 3.9940821400205593`*^9, {3.9940822106620293`*^9, - 3.9940822596489058`*^9}}, - CellLabel-> - "Out[391]=",ExpressionUUID->"8925ecbe-da2e-48e3-894f-4c833e0e3a6d"] + 3.9940822596489058`*^9}, 3.994256412649214*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"d7664796-0706-4dee-9c74-7574b503c99c"] }, Open ]], Cell[CellGroupData[{ @@ -582,31 +542,27 @@ Cell[BoxData[ RowBox[{"fex", "=", RowBox[{"-", "2.59"}]}]], "Input", CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, - CellLabel-> - "In[392]:=",ExpressionUUID->"988b6766-dabf-49ce-8199-d8633380940a"], + CellLabel->"In[22]:=",ExpressionUUID->"988b6766-dabf-49ce-8199-d8633380940a"], Cell[BoxData[ RowBox[{"-", "2.59`"}]], "Output", CellChangeTimes->{ 3.9913197866996*^9, 3.994082140031045*^9, {3.994082210671171*^9, - 3.994082259659958*^9}}, - CellLabel-> - "Out[392]=",ExpressionUUID->"a35b0dc5-55eb-442a-a8c6-24adb1cbefbe"] + 3.994082259659958*^9}, 3.994256412666751*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"1d3a11e0-235b-4aab-aeb9-1c3dd493aa3b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffex", "=", "0.54"}]], "Input", - CellLabel-> - "In[393]:=",ExpressionUUID->"0c60800f-35d6-4020-a221-04ec0cc10606"], + CellLabel->"In[23]:=",ExpressionUUID->"0c60800f-35d6-4020-a221-04ec0cc10606"], Cell[BoxData["0.54`"], "Output", CellChangeTimes->{ 3.9913197867406044`*^9, 3.994082140043984*^9, {3.9940822106801777`*^9, - 3.994082259671282*^9}}, - CellLabel-> - "Out[393]=",ExpressionUUID->"d2587cea-4db4-4d77-8429-030a1690bef6"] + 3.994082259671282*^9}, 3.9942564126834307`*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"2cb847ca-01fd-4b43-96c3-886001680de3"] }, Open ]], Cell[CellGroupData[{ @@ -616,15 +572,13 @@ Cell[BoxData[ CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { 3.9940731043812733`*^9, 3.994073104508005*^9}}, - CellLabel-> - "In[394]:=",ExpressionUUID->"756422f7-7c28-4212-b2f2-e5b506ee19b1"], + CellLabel->"In[24]:=",ExpressionUUID->"756422f7-7c28-4212-b2f2-e5b506ee19b1"], Cell[BoxData["66"], "Output", CellChangeTimes->{ 3.9913197867861958`*^9, 3.994082140061471*^9, {3.99408221068924*^9, - 3.9940822596826973`*^9}}, - CellLabel-> - "Out[394]=",ExpressionUUID->"d9fa092a-e215-459e-86fd-3d62e849e98a"] + 3.9940822596826973`*^9}, 3.9942564127014*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"affd7ddf-b822-4e51-a1a3-39d2d5d7ee0a"] }, Open ]], Cell[CellGroupData[{ @@ -634,15 +588,13 @@ Cell[BoxData[ RowBox[{"94", "-", "Z1"}]}]], "Input", CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, 3.9916443064841423`*^9, {3.9940731093077307`*^9, 3.99407311085991*^9}}, - CellLabel-> - "In[395]:=",ExpressionUUID->"ea33de80-585b-46ef-acec-553c4b7426f6"], + CellLabel->"In[25]:=",ExpressionUUID->"ea33de80-585b-46ef-acec-553c4b7426f6"], Cell[BoxData["28"], "Output", CellChangeTimes->{ 3.9913197867928696`*^9, 3.994082140071866*^9, {3.9940822106985188`*^9, - 3.9940822596930656`*^9}}, - CellLabel-> - "Out[395]=",ExpressionUUID->"1c808bb8-dbcd-48d5-b662-085176024c1a"] + 3.9940822596930656`*^9}, 3.9942564127175817`*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"02ee6a5f-34c2-4af3-bf9b-d5ba1ad1ed2e"] }, Open ]], Cell[CellGroupData[{ @@ -651,15 +603,13 @@ Cell[BoxData[ RowBox[{"A2", "=", RowBox[{"A", "-", "A1"}]}]], "Input", CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, - CellLabel-> - "In[396]:=",ExpressionUUID->"e223028e-00bb-4320-ab11-a830208e08a4"], + CellLabel->"In[26]:=",ExpressionUUID->"e223028e-00bb-4320-ab11-a830208e08a4"], Cell[BoxData["74"], "Output", CellChangeTimes->{ 3.991319786827894*^9, 3.994082140082143*^9, {3.994082210707357*^9, - 3.994082259703759*^9}}, - CellLabel-> - "Out[396]=",ExpressionUUID->"827bb4b0-7f6e-46ff-a874-d640a4729a0b"] + 3.994082259703759*^9}, 3.994256412733348*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"37f00d6e-cf11-44f4-b455-490caa2bc17b"] }, Open ]], Cell[CellGroupData[{ @@ -674,15 +624,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[397]:=",ExpressionUUID->"dda54ce1-7959-4a8c-b756-f256ef453607"], + CellLabel->"In[27]:=",ExpressionUUID->"dda54ce1-7959-4a8c-b756-f256ef453607"], Cell[BoxData["0.11092478020188863`"], "Output", CellChangeTimes->{ 3.9913197868648605`*^9, 3.9940821400927267`*^9, {3.994082210716133*^9, - 3.994082259714077*^9}}, - CellLabel-> - "Out[397]=",ExpressionUUID->"82ed1f04-853e-4622-8f13-755f19d771e3"] + 3.994082259714077*^9}, 3.9942564127492743`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"ae701f20-31b9-4346-ac10-ed19f8b63297"] }, Open ]], Cell[CellGroupData[{ @@ -697,16 +645,14 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[398]:=",ExpressionUUID->"08b03fa2-34b5-4b3a-87b6-3cfe78c5a1af"], + CellLabel->"In[28]:=",ExpressionUUID->"08b03fa2-34b5-4b3a-87b6-3cfe78c5a1af"], Cell[BoxData[ RowBox[{"-", "2.5630967111690004`"}]], "Output", CellChangeTimes->{ 3.9913197868718567`*^9, 3.9940821401033173`*^9, {3.994082210725114*^9, - 3.994082259724759*^9}}, - CellLabel-> - "Out[398]=",ExpressionUUID->"dd3fad28-0ee5-4a6b-ad11-19f2624cb434"] + 3.994082259724759*^9}, 3.9942564127639217`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"c62d7969-d8ff-4973-a836-b702f7d6f835"] }, Open ]], Cell[CellGroupData[{ @@ -737,15 +683,13 @@ Cell[BoxData[ CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, - CellLabel-> - "In[399]:=",ExpressionUUID->"a5272b68-0b83-4cf7-b097-b53705fbec87"], + CellLabel->"In[29]:=",ExpressionUUID->"a5272b68-0b83-4cf7-b097-b53705fbec87"], Cell[BoxData["17.4437013546787`"], "Output", CellChangeTimes->{ 3.9913197869068584`*^9, 3.994082140114669*^9, {3.994082210734028*^9, - 3.994082259736136*^9}}, - CellLabel-> - "Out[399]=",ExpressionUUID->"10802376-20e8-4767-bcd8-cac6b8547b40"] + 3.994082259736136*^9}, 3.9942564128046713`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"f0c31a2b-1657-4265-a83f-2925614aa5a8"] }, Open ]], Cell[CellGroupData[{ @@ -753,15 +697,13 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, - CellLabel-> - "In[400]:=",ExpressionUUID->"b22ad84e-5801-40b8-bd7c-fae45515558f"], + CellLabel->"In[30]:=",ExpressionUUID->"b22ad84e-5801-40b8-bd7c-fae45515558f"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786940857*^9, 3.994082140125458*^9, {3.9940822107429523`*^9, - 3.9940822597468443`*^9}}, - CellLabel-> - "Out[400]=",ExpressionUUID->"e2ca16d3-e434-427f-a924-ea56631aa1b2"] + 3.9940822597468443`*^9}, 3.994256412820464*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"7a6cfab6-eee8-4373-9a94-f6befdd33686"] }, Open ]], Cell[CellGroupData[{ @@ -771,20 +713,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { 3.994073141486967*^9, 3.9940731424234343`*^9}}, - CellLabel-> - "In[401]:=",ExpressionUUID->"b50f0492-e9e8-4f11-8747-e219459d6ef8"], + CellLabel->"In[31]:=",ExpressionUUID->"b50f0492-e9e8-4f11-8747-e219459d6ef8"], Cell[BoxData["2.185`"], "Output", CellChangeTimes->{ - 3.9940821401363583`*^9, {3.994082210751677*^9, 3.9940822597573833`*^9}}, - CellLabel-> - "Out[401]=",ExpressionUUID->"04a20273-b058-4e34-911f-cb7c8929d4e5"] + 3.9940821401363583`*^9, {3.994082210751677*^9, 3.9940822597573833`*^9}, + 3.9942564128348017`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"f4f6823c-c321-4357-b510-b35d4a3d8a01"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, - CellLabel-> - "In[402]:=",ExpressionUUID->"c6021c6e-7c33-45a8-8c92-05eb0451ec5b"], + CellLabel->"In[32]:=",ExpressionUUID->"c6021c6e-7c33-45a8-8c92-05eb0451ec5b"], Cell[CellGroupData[{ @@ -793,20 +733,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { 3.9940731457645493`*^9, 3.994073146848226*^9}}, - CellLabel-> - "In[403]:=",ExpressionUUID->"af4d14a7-37f4-4d8b-8c46-bf1570896c80"], + CellLabel->"In[33]:=",ExpressionUUID->"af4d14a7-37f4-4d8b-8c46-bf1570896c80"], Cell[BoxData["0.755`"], "Output", CellChangeTimes->{ - 3.994082140150962*^9, {3.9940822107679367`*^9, 3.9940822597717943`*^9}}, - CellLabel-> - "Out[403]=",ExpressionUUID->"b20b9287-cab5-445c-91c2-a2cd3ab02906"] + 3.994082140150962*^9, {3.9940822107679367`*^9, 3.9940822597717943`*^9}, + 3.994256412862105*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"0616f42c-7caf-4a6f-9702-4e8397a653f1"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, - CellLabel-> - "In[404]:=",ExpressionUUID->"7cdd0519-ffcb-4c3f-97f3-953447f63b18"], + CellLabel->"In[34]:=",ExpressionUUID->"7cdd0519-ffcb-4c3f-97f3-953447f63b18"], Cell[CellGroupData[{ @@ -815,20 +753,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { 3.994073149619232*^9, 3.994073149893601*^9}}, - CellLabel-> - "In[405]:=",ExpressionUUID->"87786be5-cb34-407a-82ef-18816e301000"], + CellLabel->"In[35]:=",ExpressionUUID->"87786be5-cb34-407a-82ef-18816e301000"], Cell[BoxData["2.5`"], "Output", CellChangeTimes->{ - 3.994082140164228*^9, {3.994082210783918*^9, 3.994082259785039*^9}}, - CellLabel-> - "Out[405]=",ExpressionUUID->"da586645-f35e-4790-a010-fcbbc09d17fe"] + 3.994082140164228*^9, {3.994082210783918*^9, 3.994082259785039*^9}, + 3.994256412886838*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"f542df6d-daac-4f20-a9f7-403fd31dc105"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, - CellLabel-> - "In[406]:=",ExpressionUUID->"5ee80794-3af3-4d63-a6e8-e0b3a2b14380"], + CellLabel->"In[36]:=",ExpressionUUID->"5ee80794-3af3-4d63-a6e8-e0b3a2b14380"], Cell[CellGroupData[{ @@ -837,20 +773,18 @@ Cell[BoxData[ CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, 3.991799359954439*^9, {3.994073152359264*^9, 3.994073154823225*^9}}, - CellLabel-> - "In[407]:=",ExpressionUUID->"db036076-38f0-40be-b8b2-6dadceaedd49"], + CellLabel->"In[37]:=",ExpressionUUID->"db036076-38f0-40be-b8b2-6dadceaedd49"], Cell[BoxData["1.165`"], "Output", CellChangeTimes->{ - 3.994082140177301*^9, {3.994082210799852*^9, 3.9940822597980413`*^9}}, - CellLabel-> - "Out[407]=",ExpressionUUID->"227d737d-42bf-4f9d-81e2-1f20c4e74171"] + 3.994082140177301*^9, {3.994082210799852*^9, 3.9940822597980413`*^9}, + 3.994256412910571*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"036d32c5-21ba-4cda-896c-fcb8fe8dd3b0"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, - CellLabel-> - "In[408]:=",ExpressionUUID->"7ee14980-9873-4cc8-a19a-61a10ddc5bfb"], + CellLabel->"In[38]:=",ExpressionUUID->"7ee14980-9873-4cc8-a19a-61a10ddc5bfb"], Cell[CellGroupData[{ @@ -859,20 +793,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, 3.991718016467348*^9, 3.991799361414671*^9, {3.994073158537945*^9, 3.994073159984886*^9}}, - CellLabel-> - "In[409]:=",ExpressionUUID->"141fb624-b4b3-456e-a1c1-ab4da7d57631"], + CellLabel->"In[39]:=",ExpressionUUID->"141fb624-b4b3-456e-a1c1-ab4da7d57631"], Cell[BoxData["1.055`"], "Output", CellChangeTimes->{ - 3.9940821401902237`*^9, {3.9940822108158007`*^9, 3.994082259811191*^9}}, - CellLabel-> - "Out[409]=",ExpressionUUID->"751e58f2-ee83-46ea-b676-d22797e24e60"] + 3.9940821401902237`*^9, {3.9940822108158007`*^9, 3.994082259811191*^9}, + 3.99425641293403*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"166783ac-c51b-408b-9acf-a113ce9bf134"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, - CellLabel-> - "In[410]:=",ExpressionUUID->"aab7b163-711b-4a21-babe-fa98c46477ae"], + CellLabel->"In[40]:=",ExpressionUUID->"aab7b163-711b-4a21-babe-fa98c46477ae"], Cell[CellGroupData[{ @@ -881,20 +813,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9940731689650297`*^9, 3.994073170525517*^9}}, - CellLabel-> - "In[411]:=",ExpressionUUID->"79165bba-50b7-4f82-be58-422bb26b7823"], + CellLabel->"In[41]:=",ExpressionUUID->"79165bba-50b7-4f82-be58-422bb26b7823"], Cell[BoxData["0.575`"], "Output", CellChangeTimes->{ - 3.99408214020331*^9, {3.9940822108320093`*^9, 3.994082259824339*^9}}, - CellLabel-> - "Out[411]=",ExpressionUUID->"8acf4cfd-f6cb-4a2a-a53d-daed26debdf8"] + 3.99408214020331*^9, {3.9940822108320093`*^9, 3.994082259824339*^9}, + 3.994256412962529*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"ebabbc7c-faf3-45c1-b67c-2e8492280092"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, - CellLabel-> - "In[412]:=",ExpressionUUID->"51863c77-1834-49f7-bd68-3f839f11e1f6"], + CellLabel->"In[42]:=",ExpressionUUID->"51863c77-1834-49f7-bd68-3f839f11e1f6"], Cell[CellGroupData[{ @@ -903,20 +833,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.99407317466329*^9, 3.9940731756907377`*^9}}, - CellLabel-> - "In[413]:=",ExpressionUUID->"2fca0a10-f9e5-4f2f-954c-d8766ec0b484"], + CellLabel->"In[43]:=",ExpressionUUID->"2fca0a10-f9e5-4f2f-954c-d8766ec0b484"], Cell[BoxData["1.51`"], "Output", CellChangeTimes->{ - 3.9940821402169437`*^9, {3.994082210847649*^9, 3.994082259837338*^9}}, - CellLabel-> - "Out[413]=",ExpressionUUID->"d98c218e-06bc-486e-872b-1218ab1ec32e"] + 3.9940821402169437`*^9, {3.994082210847649*^9, 3.994082259837338*^9}, + 3.994256412989642*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"e6aaf953-5ddd-4b28-8d40-4230a5fa4873"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, - CellLabel-> - "In[414]:=",ExpressionUUID->"eed6014a-7425-47a7-a95a-b11da733c93d"], + CellLabel->"In[44]:=",ExpressionUUID->"eed6014a-7425-47a7-a95a-b11da733c93d"], Cell[CellGroupData[{ @@ -924,20 +852,18 @@ Cell[BoxData[ RowBox[{"nn2", "=", "0.635"}]], "Input", CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, 3.9917993660901737`*^9, {3.99407317843715*^9, 3.994073182537156*^9}}, - CellLabel-> - "In[415]:=",ExpressionUUID->"79010408-3f6a-4fe4-9c6c-ab994ac472e0"], + CellLabel->"In[45]:=",ExpressionUUID->"79010408-3f6a-4fe4-9c6c-ab994ac472e0"], Cell[BoxData["0.635`"], "Output", CellChangeTimes->{ - 3.994082140230339*^9, {3.994082210863504*^9, 3.994082259850523*^9}}, - CellLabel-> - "Out[415]=",ExpressionUUID->"5f10b804-04e2-4e26-a775-45cfa7123f3b"] + 3.994082140230339*^9, {3.994082210863504*^9, 3.994082259850523*^9}, + 3.994256413011861*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"e0bb24cd-d3d0-46be-8fe0-9cd648d73d45"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, - CellLabel-> - "In[416]:=",ExpressionUUID->"992aaabe-b7dc-4836-bfc9-fdcae0db9d41"], + CellLabel->"In[46]:=",ExpressionUUID->"992aaabe-b7dc-4836-bfc9-fdcae0db9d41"], Cell[CellGroupData[{ @@ -1426,15 +1352,13 @@ uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== "], - CellLabel-> - "In[417]:=",ExpressionUUID->"0af209fa-1884-48f4-b14b-10d077942bdb"], + CellLabel->"In[47]:=",ExpressionUUID->"0af209fa-1884-48f4-b14b-10d077942bdb"], Cell[BoxData["0.14543451930671605`"], "Output", CellChangeTimes->{ 3.991319787430073*^9, 3.9940821403190203`*^9, {3.994082210903069*^9, - 3.994082259888891*^9}}, - CellLabel-> - "Out[417]=",ExpressionUUID->"8023304c-1af5-4412-afc5-fba41d234636"] + 3.994082259888891*^9}, 3.994256413205583*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"f59679bb-6454-4e06-bc67-03e7c5aecfbd"] }, Open ]], Cell[CellGroupData[{ @@ -1928,15 +1852,13 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[418]:=",ExpressionUUID->"f45fdfe9-51b6-4196-b64a-eb8a9acc9d27"], + CellLabel->"In[48]:=",ExpressionUUID->"f45fdfe9-51b6-4196-b64a-eb8a9acc9d27"], Cell[BoxData["7.609769640822119`"], "Output", CellChangeTimes->{ 3.991319787574972*^9, 3.9940821403533278`*^9, {3.994082210934519*^9, - 3.994082259917639*^9}}, - CellLabel-> - "Out[418]=",ExpressionUUID->"f7caff3b-610c-4e53-a840-e0b15afa9969"] + 3.994082259917639*^9}, 3.994256413428186*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"0624aa0e-3d43-4898-b8e4-8af50ed28da6"] }, Open ]], Cell[CellGroupData[{ @@ -2424,16 +2346,14 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[419]:=",ExpressionUUID->"7d04a896-c948-4917-8f7a-ffddd03ef629"], + CellLabel->"In[49]:=",ExpressionUUID->"7d04a896-c948-4917-8f7a-ffddd03ef629"], Cell[BoxData[ RowBox[{"-", "15.030827196449275`"}]], "Output", CellChangeTimes->{ 3.991319787641424*^9, 3.994082140383691*^9, {3.9940822109679832`*^9, - 3.994082259945158*^9}}, - CellLabel-> - "Out[419]=",ExpressionUUID->"913ff7b2-ed80-4221-ad52-dd8aa985ab81"] + 3.994082259945158*^9}, 3.9942564135049963`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"985a3e45-6fc6-45be-be1d-96d30570d46b"] }, Open ]], Cell[CellGroupData[{ @@ -2991,16 +2911,14 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[420]:=",ExpressionUUID->"ea6582ec-1a42-47fb-bb76-8e5fb6c396db"], + CellLabel->"In[50]:=",ExpressionUUID->"ea6582ec-1a42-47fb-bb76-8e5fb6c396db"], Cell[BoxData[ RowBox[{"-", "19.761827924452415`"}]], "Output", CellChangeTimes->{ 3.991319787711939*^9, 3.9940821404195766`*^9, {3.9940822110021753`*^9, - 3.994082259978429*^9}}, - CellLabel-> - "Out[420]=",ExpressionUUID->"26b6bf5c-1edb-4424-b958-6821ec8c7cd3"] + 3.994082259978429*^9}, 3.9942564135985622`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"54925fca-def1-4909-96bd-6041f3f09fb0"] }, Open ]], Cell[CellGroupData[{ @@ -3558,16 +3476,14 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[421]:=",ExpressionUUID->"9bc5b782-c107-4109-b23a-b3e64837552f"], + CellLabel->"In[51]:=",ExpressionUUID->"9bc5b782-c107-4109-b23a-b3e64837552f"], Cell[BoxData[ RowBox[{"-", "57.66257775030843`"}]], "Output", CellChangeTimes->{ 3.9913197877723045`*^9, 3.9940821404579077`*^9, {3.994082211038884*^9, - 3.994082260011196*^9}}, - CellLabel-> - "Out[421]=",ExpressionUUID->"40e90a17-8ef8-4b96-b7ba-e2dba694b2d8"] + 3.994082260011196*^9}, 3.994256413716552*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"4a984204-ea04-4fe3-b329-b51115548bfa"] }, Open ]], Cell[CellGroupData[{ @@ -4198,46 +4114,40 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[422]:=",ExpressionUUID->"39450f1b-2cf2-4958-999d-91af8561db12"], + CellLabel->"In[52]:=",ExpressionUUID->"39450f1b-2cf2-4958-999d-91af8561db12"], Cell[BoxData[ RowBox[{"-", "150.68948520646092`"}]], "Output", CellChangeTimes->{ 3.991319787833355*^9, 3.994082140505332*^9, {3.994082211079116*^9, - 3.9940822600491877`*^9}}, - CellLabel-> - "Out[422]=",ExpressionUUID->"32b78379-3bc0-460b-bde3-7931d93da19f"] + 3.9940822600491877`*^9}, 3.994256413834201*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"ad6707c4-a722-4370-8aab-87a9d72573f7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U21", "=", "0"}]], "Input", - CellLabel-> - "In[423]:=",ExpressionUUID->"1f0e4ea8-c6cb-403b-94bc-eda30e02b671"], + CellLabel->"In[53]:=",ExpressionUUID->"1f0e4ea8-c6cb-403b-94bc-eda30e02b671"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210013676`*^9, 3.99408214052183*^9, {3.994082211090176*^9, - 3.994082260062854*^9}}, - CellLabel-> - "Out[423]=",ExpressionUUID->"6aa8a4e5-8f83-4a49-be6e-0655e4c7bc75"] + 3.994082260062854*^9}, 3.99425641385708*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"515220aa-fc3b-4440-acdf-21240f223cba"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U22", "=", "0"}]], "Input", - CellLabel-> - "In[424]:=",ExpressionUUID->"30ce4bd6-03e6-49ff-83d1-863c3c4ec8cb"], + CellLabel->"In[54]:=",ExpressionUUID->"30ce4bd6-03e6-49ff-83d1-863c3c4ec8cb"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210355663`*^9, 3.994082140531746*^9, {3.9940822111011677`*^9, - 3.994082260073297*^9}}, - CellLabel-> - "Out[424]=",ExpressionUUID->"9aadbb21-462e-41f6-b0c1-ce4137afd226"] + 3.994082260073297*^9}, 3.994256413879776*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"d8629bee-7d9b-4605-ae65-79e48f2e1c8f"] }, Open ]], Cell[CellGroupData[{ @@ -4281,15 +4191,13 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[425]:=",ExpressionUUID->"da9a4ccc-9d67-4a3d-b4e9-621b007b6c0e"], + CellLabel->"In[55]:=",ExpressionUUID->"da9a4ccc-9d67-4a3d-b4e9-621b007b6c0e"], Cell[BoxData["120.33662547388403`"], "Output", CellChangeTimes->{ 3.991320421068556*^9, 3.994082140542282*^9, {3.994082211112996*^9, - 3.994082260084251*^9}}, - CellLabel-> - "Out[425]=",ExpressionUUID->"8c1134bc-353d-4040-b8da-7fc381b23a12"] + 3.994082260084251*^9}, 3.994256413898233*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"a8dde3aa-8f37-428e-8298-63a425d2efd6"] }, Open ]], Cell[CellGroupData[{ @@ -4329,16 +4237,14 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[426]:=",ExpressionUUID->"aa39e519-1f4c-49fa-9d35-4962903c69f1"], + CellLabel->"In[56]:=",ExpressionUUID->"aa39e519-1f4c-49fa-9d35-4962903c69f1"], Cell[BoxData[ RowBox[{"-", "107.1121642480161`"}]], "Output", CellChangeTimes->{ 3.991320421098543*^9, 3.994082140552636*^9, {3.994082211122551*^9, - 3.994082260094944*^9}}, - CellLabel-> - "Out[426]=",ExpressionUUID->"534de6e0-7885-43f0-9b39-0070d5fe6167"] + 3.994082260094944*^9}, 3.994256413915691*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"08cbc403-0a15-4bab-9857-2516083fcc30"] }, Open ]], Cell[CellGroupData[{ @@ -4382,99 +4288,87 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[427]:=",ExpressionUUID->"3b9d77d0-c1b5-49e6-9f20-fde03d9ceb23"], + CellLabel->"In[57]:=",ExpressionUUID->"3b9d77d0-c1b5-49e6-9f20-fde03d9ceb23"], Cell[BoxData["123.55775944746372`"], "Output", CellChangeTimes->{ 3.9913204211275444`*^9, 3.9940821405632*^9, {3.9940822111320972`*^9, - 3.9940822601055107`*^9}}, - CellLabel-> - "Out[427]=",ExpressionUUID->"d2713f39-74da-4501-959c-44a2671aa671"] + 3.9940822601055107`*^9}, 3.994256413933886*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"5b3d437c-2d9f-493e-92f9-c7b5e83989f0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c11"], "Input", - CellLabel-> - "In[428]:=",ExpressionUUID->"097fd25f-632d-45c7-977e-ff3c9da7c387"], + CellLabel->"In[58]:=",ExpressionUUID->"097fd25f-632d-45c7-977e-ff3c9da7c387"], Cell[BoxData["0.4069661562665162`"], "Output", CellChangeTimes->{ 3.9913204211385536`*^9, 3.994082140573392*^9, {3.994082211141264*^9, - 3.994082260116184*^9}}, - CellLabel-> - "Out[428]=",ExpressionUUID->"55684397-80b3-4f24-b7de-ee4051d722e5"] + 3.994082260116184*^9}, 3.9942564139518127`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"ac3b3ca4-d505-4c28-8b48-6eace041014c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c12"], "Input", - CellLabel-> - "In[429]:=",ExpressionUUID->"bb0e460c-457a-4afd-a63f-da30feb4a44d"], + CellLabel->"In[59]:=",ExpressionUUID->"bb0e460c-457a-4afd-a63f-da30feb4a44d"], Cell[BoxData[ RowBox[{"-", "0.08563504168524437`"}]], "Output", CellChangeTimes->{ 3.9913204211683464`*^9, 3.994082140583559*^9, {3.994082211156444*^9, - 3.994082260127738*^9}}, - CellLabel-> - "Out[429]=",ExpressionUUID->"44dd8802-b63b-4418-9ca8-1e8622c713e3"] + 3.994082260127738*^9}, 3.9942564139717007`*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"e4635b73-0140-4fa1-8063-076caf415dfb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c21"], "Input", - CellLabel-> - "In[430]:=",ExpressionUUID->"a67c15e8-778f-4016-8487-89ce13f18ccb"], + CellLabel->"In[60]:=",ExpressionUUID->"a67c15e8-778f-4016-8487-89ce13f18ccb"], Cell[BoxData[ RowBox[{"-", "0.5841673375234483`"}]], "Output", CellChangeTimes->{ 3.991320421199068*^9, 3.994082140593707*^9, {3.994082211166273*^9, - 3.99408226016045*^9}}, - CellLabel-> - "Out[430]=",ExpressionUUID->"658150e0-2b99-4f38-a450-2bbcdc135c66"] + 3.99408226016045*^9}, 3.994256413989951*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"1a3741fc-af6b-4f7b-9c16-a2b47002f835"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c22"], "Input", - CellLabel-> - "In[431]:=",ExpressionUUID->"1ec851a9-a51a-49dd-be7f-7093f84bb8b5"], + CellLabel->"In[61]:=",ExpressionUUID->"1ec851a9-a51a-49dd-be7f-7093f84bb8b5"], Cell[BoxData["0.7215005296935654`"], "Output", CellChangeTimes->{ 3.991320421228037*^9, 3.9940821428128853`*^9, {3.994082211175336*^9, - 3.994082260189337*^9}}, - CellLabel-> - "Out[431]=",ExpressionUUID->"8061cf5b-fd65-4c42-8623-833dbe9ded13"] + 3.994082260189337*^9}, 3.994256414181628*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"df1225a7-0d33-4a7d-aafc-df143ef9fde9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w1"], "Input", - CellLabel-> - "In[432]:=",ExpressionUUID->"86a3b821-dc91-454e-96e5-b77a853672da"], + CellLabel->"In[62]:=",ExpressionUUID->"86a3b821-dc91-454e-96e5-b77a853672da"], Cell[BoxData["2.315137197466896`"], "Output", CellChangeTimes->{ - 3.9913204212585373`*^9, {3.9940822111841908`*^9, 3.9940822602133617`*^9}}, - CellLabel-> - "Out[432]=",ExpressionUUID->"09de291e-9257-4864-8f95-35b2b8eb84eb"] + 3.9913204212585373`*^9, {3.9940822111841908`*^9, 3.9940822602133617`*^9}, + 3.9942564141997347`*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"be692a43-26a7-422a-8834-f22fe70e5f74"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w2"], "Input", - CellLabel-> - "In[433]:=",ExpressionUUID->"feab34f0-0487-4946-8ed0-bd275e1baae6"], + CellLabel->"In[63]:=",ExpressionUUID->"feab34f0-0487-4946-8ed0-bd275e1baae6"], Cell[BoxData["1.4220278650887666`"], "Output", CellChangeTimes->{ - 3.9913204212884274`*^9, {3.994082211193069*^9, 3.99408226021774*^9}}, - CellLabel-> - "Out[433]=",ExpressionUUID->"de70b5d8-2aa3-4dbc-9a73-2722905a51ca"] + 3.9913204212884274`*^9, {3.994082211193069*^9, 3.99408226021774*^9}, + 3.994256414230844*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"4272ee20-a42a-44d8-a1d8-1e8bf7959d00"] }, Open ]], Cell[CellGroupData[{ @@ -4495,15 +4389,14 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", - CellLabel-> - "In[434]:=",ExpressionUUID->"32523e67-675f-4078-8dc8-5e193aa113d8"], + CellLabel->"In[64]:=",ExpressionUUID->"32523e67-675f-4078-8dc8-5e193aa113d8"], Cell[BoxData[ RowBox[{"-", "34.52117430586003`"}]], "Output", CellChangeTimes->{ - 3.9913204213185234`*^9, {3.994082211202162*^9, 3.994082260228716*^9}}, - CellLabel-> - "Out[434]=",ExpressionUUID->"932867c6-ed7f-4d49-b34e-495aa5fd0917"] + 3.9913204213185234`*^9, {3.994082211202162*^9, 3.994082260228716*^9}, + 3.9942564143739347`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"facbf2c3-c661-46cc-af13-9cd01bbfe96d"] }, Open ]], Cell[CellGroupData[{ @@ -4524,15 +4417,14 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", - CellLabel-> - "In[435]:=",ExpressionUUID->"f231e10b-ae07-4340-a418-e7a623f7122d"], + CellLabel->"In[65]:=",ExpressionUUID->"f231e10b-ae07-4340-a418-e7a623f7122d"], Cell[BoxData[ RowBox[{"-", "6.669654351008722`"}]], "Output", CellChangeTimes->{ - 3.991320421349531*^9, {3.9940822112147284`*^9, 3.994082260239593*^9}}, - CellLabel-> - "Out[435]=",ExpressionUUID->"2fcdd375-55b9-4030-9f60-5a053ed51c5c"] + 3.991320421349531*^9, {3.9940822112147284`*^9, 3.994082260239593*^9}, + 3.994256414405703*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"2e60e15e-3b9c-4ede-be93-0729378bcad9"] }, Open ]], Cell[CellGroupData[{ @@ -4597,14 +4489,13 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[436]:=",ExpressionUUID->"da29d4c1-690e-4539-b52c-f3e75a081ddb"], + CellLabel->"In[66]:=",ExpressionUUID->"da29d4c1-690e-4539-b52c-f3e75a081ddb"], Cell[BoxData["85.815451168024`"], "Output", CellChangeTimes->{ - 3.9913204213784294`*^9, {3.994082211224436*^9, 3.994082260250916*^9}}, - CellLabel-> - "Out[436]=",ExpressionUUID->"0c61f6b4-d606-4806-81e0-14b13cbd95ee"] + 3.9913204213784294`*^9, {3.994082211224436*^9, 3.994082260250916*^9}, + 3.994256414437889*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"a7ebd529-347b-44f0-83c2-c4fade44c6b7"] }, Open ]], Cell[CellGroupData[{ @@ -4645,15 +4536,14 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[437]:=",ExpressionUUID->"c950e619-5acb-46d4-9e8b-ad7348056105"], + CellLabel->"In[67]:=",ExpressionUUID->"c950e619-5acb-46d4-9e8b-ad7348056105"], Cell[BoxData[ RowBox[{"-", "107.1121642480161`"}]], "Output", CellChangeTimes->{ - 3.9913204213904285`*^9, {3.994082211233815*^9, 3.994082260261983*^9}}, - CellLabel-> - "Out[437]=",ExpressionUUID->"2490215e-07a0-46ae-b531-c0f83eed0322"] + 3.9913204213904285`*^9, {3.994082211233815*^9, 3.994082260261983*^9}, + 3.994256414467852*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"4792741e-6997-4cbb-97d7-91a463767574"] }, Open ]], Cell[CellGroupData[{ @@ -4719,14 +4609,13 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[438]:=",ExpressionUUID->"ee700acb-ae80-48f4-941c-88c081a15dd5"], + CellLabel->"In[68]:=",ExpressionUUID->"ee700acb-ae80-48f4-941c-88c081a15dd5"], Cell[BoxData["116.888105096455`"], "Output", CellChangeTimes->{ - 3.991320421419428*^9, {3.99408221124387*^9, 3.994082260273652*^9}}, - CellLabel-> - "Out[438]=",ExpressionUUID->"2f15d55c-26d3-4d59-b33f-5ae7816e70b5"] + 3.991320421419428*^9, {3.99408221124387*^9, 3.994082260273652*^9}, + 3.994256414499074*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"67754bde-5036-4240-b97c-6f91284126a2"] }, Open ]], Cell[CellGroupData[{ @@ -4784,14 +4673,13 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[439]:=",ExpressionUUID->"c3e7124d-e0f5-435b-bb22-3960dd7a97c2"], + CellLabel->"In[69]:=",ExpressionUUID->"c3e7124d-e0f5-435b-bb22-3960dd7a97c2"], Cell[BoxData["42.180325689118604`"], "Output", CellChangeTimes->{ - 3.9913204214494324`*^9, {3.994082211253778*^9, 3.994082260284829*^9}}, - CellLabel-> - "Out[439]=",ExpressionUUID->"a8ae5637-5cd9-4551-8e6f-1a5029499bfc"] + 3.9913204214494324`*^9, {3.994082211253778*^9, 3.994082260284829*^9}, + 3.994256414537322*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"d472cc59-3d51-41c5-bfd5-96a8efd05165"] }, Open ]], Cell[CellGroupData[{ @@ -4849,38 +4737,47 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[440]:=",ExpressionUUID->"46c7b588-5a55-4e32-95e4-20c36bfed809"], + CellLabel->"In[70]:=",ExpressionUUID->"46c7b588-5a55-4e32-95e4-20c36bfed809"], Cell[BoxData["727.4038074151157`"], "Output", CellChangeTimes->{ - 3.991320421481529*^9, {3.994082211263607*^9, 3.994082260289282*^9}}, - CellLabel-> - "Out[440]=",ExpressionUUID->"3a83ed23-9d71-4672-a7ef-65036f1624d9"] + 3.991320421481529*^9, {3.994082211263607*^9, 3.994082260289282*^9}, + 3.994256414572467*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"2bca4df5-f03d-4e2a-92e6-0c9654c4f86a"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"f1", "=", "0.4778829661"}]], "Input", - CellChangeTimes->{3.9918501413985214`*^9, - 3.994083980470228*^9},ExpressionUUID->"5894836c-9594-0940-b94c-\ -299085c765cc"], + CellChangeTimes->{3.9918501413985214`*^9, 3.994083980470228*^9}, + CellLabel->"In[71]:=",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], + +Cell[BoxData["0.4778829661`"], "Output", + CellChangeTimes->{3.994256414605542*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"55970ebb-5358-4d11-b5ad-239fe9e6e9fb"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918501359768734`*^9, - 3.991850137465685*^9}},ExpressionUUID->"5965eb10-01f8-5545-9b6f-\ -8fab318cd4b7"], + CellChangeTimes->{{3.9918501359768734`*^9, 3.991850137465685*^9}}, + CellLabel->"In[72]:=",ExpressionUUID->"5965eb10-01f8-5545-9b6f-8fab318cd4b7"], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f2", "=", "0.2179097118"}]], "Input", CellChangeTimes->{ - 3.9918501402114105`*^9, {3.9940839858246813`*^9, - 3.994084014357471*^9}},ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-\ -092c5143dcf0"], + 3.9918501402114105`*^9, {3.9940839858246813`*^9, 3.994084014357471*^9}}, + CellLabel->"In[73]:=",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], + +Cell[BoxData["0.2179097118`"], "Output", + CellChangeTimes->{3.994256414661703*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"529fcdd5-86ca-4920-ab10-311fa553adf6"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918501388085117`*^9, - 3.991850138811516*^9}},ExpressionUUID->"6e7c45d7-0298-ce41-ba97-\ -a3c857e6ae57"], + CellChangeTimes->{{3.9918501388085117`*^9, 3.991850138811516*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], Cell[CellGroupData[{ @@ -4926,13 +4823,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel-> - "In[399]:=",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], + CellLabel->"In[75]:=",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], -Cell[BoxData["2.3793916761039797`*^-53"], "Output", - CellChangeTimes->{3.9913437871842365`*^9}, - CellLabel-> - "Out[399]=",ExpressionUUID->"d7904bcf-fc55-b844-b4d2-059d830f1317"] +Cell[BoxData["1.5199617014106653`*^-53"], "Output", + CellChangeTimes->{3.9913437871842365`*^9, 3.994256414719303*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"2f6306de-cba3-48be-9f5b-516f8791ab6c"] }, Open ]], Cell[CellGroupData[{ @@ -4966,14 +4861,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.991557655438551*^9},ExpressionUUID->"f2e6289f-a8bc-6d44-a856-\ -301cf9f22a61"], + CellChangeTimes->{3.991557655438551*^9}, + CellLabel->"In[76]:=",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], -Cell[BoxData["8.839304777809617`*^-55"], "Output", - CellChangeTimes->{3.9913437872132397`*^9}, - CellLabel-> - "Out[400]=",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] +Cell[BoxData["8.266960334886208`*^-55"], "Output", + CellChangeTimes->{3.9913437872132397`*^9, 3.9942564147459793`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"e394e7e8-3b7f-4dee-af24-1700cd5bc166"] }, Open ]], Cell[CellGroupData[{ @@ -5006,14 +4899,12 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.9915576595317745`*^9, - 3.9915576617156334`*^9}},ExpressionUUID->"cdf84d2f-1e96-4c43-9286-\ -fda42549e334"], + CellChangeTimes->{{3.9915576595317745`*^9, 3.9915576617156334`*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], -Cell[BoxData["2.0384594858915346`*^-54"], "Output", - CellChangeTimes->{3.9913437872412376`*^9}, - CellLabel-> - "Out[401]=",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] +Cell[BoxData["1.128682353962926`*^-54"], "Output", + CellChangeTimes->{3.9913437872412376`*^9, 3.994256414781569*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"374a463a-93cf-43a8-a0db-bfa879037d14"] }, Open ]], Cell[CellGroupData[{ @@ -5036,13 +4927,11 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel-> - "In[402]:=",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], + CellLabel->"In[78]:=",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], -Cell[BoxData["27.24865368249903`"], "Output", - CellChangeTimes->{3.9913437872672386`*^9}, - CellLabel-> - "Out[402]=",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] +Cell[BoxData["15.24771657294994`"], "Output", + CellChangeTimes->{3.9913437872672386`*^9, 3.9942564148075113`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"698055e5-a7b5-4957-a3f4-e8556632855d"] }, Open ]], Cell[CellGroupData[{ @@ -5068,13 +4957,11 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Il"}], ")"}], "*", RowBox[{"(", RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", - CellLabel-> - "In[403]:=",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], + CellLabel->"In[79]:=",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], -Cell[BoxData["47.62007062351`"], "Output", - CellChangeTimes->{3.991343787279253*^9}, - CellLabel-> - "Out[403]=",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] +Cell[BoxData["32.02802479389914`"], "Output", + CellChangeTimes->{3.991343787279253*^9, 3.994256414841296*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"02c918a5-5fab-44dd-9562-c5085af04daf"] }, Open ]], Cell[CellGroupData[{ @@ -5083,13 +4970,11 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel-> - "In[404]:=",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], + CellLabel->"In[80]:=",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], -Cell[BoxData["0.718596406513947`"], "Output", - CellChangeTimes->{3.9913437873062572`*^9}, - CellLabel-> - "Out[404]=",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +Cell[BoxData["1.6632309544255237`"], "Output", + CellChangeTimes->{3.9913437873062572`*^9, 3.994256414867283*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"3ca07652-951a-4800-875e-de1e381e6bf1"] }, Open ]], Cell[CellGroupData[{ @@ -5098,13 +4983,11 @@ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", - CellLabel-> - "In[405]:=",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], + CellLabel->"In[81]:=",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], -Cell[BoxData["2.8712430196956706`"], "Output", - CellChangeTimes->{3.9913437873353844`*^9}, - CellLabel-> - "Out[405]=",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +Cell[BoxData["4.765656181542124`"], "Output", + CellChangeTimes->{3.9913437873353844`*^9, 3.994256414907626*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"d39fc28d-f2ce-442a-8262-21274b474a05"] }, Open ]], Cell[CellGroupData[{ @@ -5113,13 +4996,11 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel-> - "In[406]:=",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], + CellLabel->"In[82]:=",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], -Cell[BoxData["136.72879537516795`"], "Output", - CellChangeTimes->{3.991343787361582*^9}, - CellLabel-> - "Out[406]=",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +Cell[BoxData["152.63455434162987`"], "Output", + CellChangeTimes->{3.991343787361582*^9, 3.994256414939929*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"f5fa83ef-d24a-4440-8734-fb7ebef9a9f8"] }, Open ]], Cell[CellGroupData[{ @@ -5128,13 +5009,11 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[407]:=",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], + CellLabel->"In[83]:=",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], -Cell[BoxData["19.58078461858683`"], "Output", - CellChangeTimes->{3.9913437873734856`*^9}, - CellLabel-> - "Out[407]=",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +Cell[BoxData["25.360474188437404`"], "Output", + CellChangeTimes->{3.9913437873734856`*^9, 3.994256414971733*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"9f32b4d8-265c-4293-bbb0-e06c53e2c6b9"] }, Open ]], Cell[CellGroupData[{ @@ -5323,13 +5202,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[408]:=",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], + CellLabel->"In[84]:=",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], -Cell[BoxData["0.03116264120310575`"], "Output", - CellChangeTimes->{3.9913437874002857`*^9}, - CellLabel-> - "Out[408]=",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +Cell[BoxData["0.0065245300417472556`"], "Output", + CellChangeTimes->{3.9913437874002857`*^9, 3.9942564149985037`*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"e477bd9f-197a-43d3-b178-ee111f072a1e"] }, Open ]], Cell[CellGroupData[{ @@ -5342,13 +5219,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[409]:=",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], + CellLabel->"In[85]:=",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], -Cell[BoxData["5.020278507983894`"], "Output", - CellChangeTimes->{3.9913437875033875`*^9}, - CellLabel-> - "Out[409]=",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +Cell[BoxData["10.971609026325687`"], "Output", + CellChangeTimes->{3.9913437875033875`*^9, 3.994256415334408*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"6c1b0509-dc09-45a7-9277-5968a7f790ab"] }, Open ]], Cell[CellGroupData[{ @@ -5539,13 +5414,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[410]:=",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], + CellLabel->"In[86]:=",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], -Cell[BoxData["0.011613560908040731`"], "Output", - CellChangeTimes->{3.9913437875342865`*^9}, - CellLabel-> - "Out[410]=",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +Cell[BoxData["0.037803831950549725`"], "Output", + CellChangeTimes->{3.9913437875342865`*^9, 3.994256415551456*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"4a715c31-b284-49b5-b5c7-13d2351802bc"] }, Open ]], Cell[CellGroupData[{ @@ -5558,13 +5431,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[411]:=",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], + CellLabel->"In[87]:=",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], -Cell[BoxData["8.223604958038852`"], "Output", - CellChangeTimes->{3.9913437876352882`*^9}, - CellLabel-> - "Out[411]=",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +Cell[BoxData["4.558028419729062`"], "Output", + CellChangeTimes->{3.9913437876352882`*^9, 3.994256415708632*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"a89ab109-a0f3-4663-9240-8d868f028eb9"] }, Open ]], Cell[CellGroupData[{ @@ -5656,13 +5527,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[412]:=",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], + CellLabel->"In[88]:=",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.991343787650694*^9}, - CellLabel-> - "Out[412]=",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +Cell[BoxData["0.08457834250906257`"], "Output", + CellChangeTimes->{3.991343787650694*^9, 3.9942564157799263`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"58ba46c2-3bbb-4d9e-9d8d-ca3b1dc1a81b"] }, Open ]], Cell[CellGroupData[{ @@ -5751,13 +5620,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[413]:=",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], + CellLabel->"In[89]:=",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.9913437876776943`*^9}, - CellLabel-> - "Out[413]=",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +Cell[BoxData["0.9154216574909375`"], "Output", + CellChangeTimes->{3.9913437876776943`*^9, 3.994256415854328*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"14173882-98f0-4340-a056-21563fc6b720"] }, Open ]], Cell[CellGroupData[{ @@ -5879,19 +5746,17 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel-> - "In[414]:=",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], + CellLabel->"In[90]:=",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913437877049465`*^9}, - CellLabel-> - "Out[414]=",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] +Cell[BoxData["0.07742484648748227`"], "Output", + CellChangeTimes->{3.9913437877049465`*^9, 3.994256415931922*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"63f3defc-1318-48b8-82c4-f4efe9fb5daa"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"8111b6bb-cdcb-\ -ad40-9440-412e77bed40d"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"8111b6bb-cdcb-ad40-9440-412e77bed40d"], Cell[CellGroupData[{ @@ -5952,68 +5817,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918501532204666`*^9},ExpressionUUID->"fc88a60e-e348-d344-96c4-\ -1f4f66f53217"], + CellChangeTimes->{3.9918501532204666`*^9}, + CellLabel->"In[92]:=",ExpressionUUID->"fc88a60e-e348-d344-96c4-1f4f66f53217"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 415, 433, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437877189426`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.868142499493109`*^-207\\\", \ +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 1, + 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437877189426`*^9, 3.994256416084242*^9}, CellLabel-> "During evaluation of \ -In[415]:=",ExpressionUUID->"0833bd34-3252-a046-9aa3-94c1d6e5cfe9"], +In[92]:=",ExpressionUUID->"d7966b00-204d-4602-9bda-7a8212491018"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 415, 434, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343787730139*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.958784044479573`*^-212\\\", \ +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 2, + 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437877189426`*^9, 3.994256416167869*^9}, CellLabel-> "During evaluation of \ -In[415]:=",ExpressionUUID->"f24a3618-ee43-704a-86fe-493dbed35e8d"], +In[92]:=",ExpressionUUID->"270f41f2-b8da-4c7a-bf1d-e8288d1d612a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 415, 435, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437877381363`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.293769090046458`*^-217\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 3, + 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437877189426`*^9, 3.9942564161782217`*^9}, CellLabel-> "During evaluation of \ -In[415]:=",ExpressionUUID->"86271901-aa3c-5542-ab18-fc06d3fd3f32"], +In[92]:=",ExpressionUUID->"f1d1b777-3c69-4793-8d9b-4d9ef323888c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 415, 436, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343787747137*^9}, +during this calculation.\"", 2, 92, 4, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437877189426`*^9, 3.994256416188246*^9}, CellLabel-> "During evaluation of \ -In[415]:=",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], +In[92]:=",ExpressionUUID->"2eeceea9-185f-4bc6-89c4-145a08992ee4"], -Cell[BoxData["5.020278507983898`"], "Output", - CellChangeTimes->{3.991343791131052*^9}, - CellLabel-> - "Out[415]=",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +Cell[BoxData["10.971609026325668`"], "Output", + CellChangeTimes->{3.991343791131052*^9, 3.994256419752384*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"4e6024f7-91a9-48b5-92de-6646160e86ff"] }, Open ]], Cell[CellGroupData[{ @@ -6075,68 +5945,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918501579408264`*^9},ExpressionUUID->"dca13eb7-7f94-3e45-81a8-\ -b62dad3009d2"], + CellChangeTimes->{3.9918501579408264`*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"dca13eb7-7f94-3e45-81a8-b62dad3009d2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 416, 437, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437911686516`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.868142499493109`*^-207\\\", \ +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 5, + 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437911686516`*^9, 3.994256419959463*^9}, CellLabel-> "During evaluation of \ -In[416]:=",ExpressionUUID->"44f2ed65-5109-0141-bef6-eebaeda3d61d"], +In[93]:=",ExpressionUUID->"7f84f553-bc4b-4245-900c-b5b869d6b2ba"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 416, 438, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134379117865*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.958784044479573`*^-212\\\", \ +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 6, + 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437911686516`*^9, 3.994256419971343*^9}, CellLabel-> "During evaluation of \ -In[416]:=",ExpressionUUID->"ba49f32e-1ff7-b147-9f42-9c90ccc55447"], +In[93]:=",ExpressionUUID->"c93b5c19-fba3-4e75-a532-c2f4c261d3a2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 416, 439, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437911866493`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.293769090046458`*^-217\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 7, + 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437911686516`*^9, 3.9942564199843817`*^9}, CellLabel-> "During evaluation of \ -In[416]:=",ExpressionUUID->"fa95acf1-55b2-c042-9a9f-32e1ebea5c1e"], +In[93]:=",ExpressionUUID->"bf73635c-14b3-46f1-92a8-8fb6203ca75a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 416, 440, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437911946507`*^9}, +during this calculation.\"", 2, 93, 8, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437911686516`*^9, 3.9942564199947*^9}, CellLabel-> "During evaluation of \ -In[416]:=",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], +In[93]:=",ExpressionUUID->"6c514dd5-a1b4-46ef-9dfb-7fbe35d8cbfa"], -Cell[BoxData["8.223604958038848`"], "Output", - CellChangeTimes->{3.991343794599764*^9}, - CellLabel-> - "Out[416]=",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +Cell[BoxData["4.558028419729059`"], "Output", + CellChangeTimes->{3.991343794599764*^9, 3.994256423718217*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"a7531fb0-e2f0-4dc6-a6fd-c90d63fc0350"] }, Open ]], Cell[CellGroupData[{ @@ -6146,140 +6021,141 @@ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ - FractionBox[ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", RowBox[{ - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", - RowBox[{"Cos", "[", - FractionBox[ - RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], - RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918501631488323`*^9},ExpressionUUID->"46451e4d-f5ef-b246-91c6-\ -4265c9fafb97"], + CellChangeTimes->{3.9918501631488323`*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"46451e4d-f5ef-b246-91c6-4265c9fafb97"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK -kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB -QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf -41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 -bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 -urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR -rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 -sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM -w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms -l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo -waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml -Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 -4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d -FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta -CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE -5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv -f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf -FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ -WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C -uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 -3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU -qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 -qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu -Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa -Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k -IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 -hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ -EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ -yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd -Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr -F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa -vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U -HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL -W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs -nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP -wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d -hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz -2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf -81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo -dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF -Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 -CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF -NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ -LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ -ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE -965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz -hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v -DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx -HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px -XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 -z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg -fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e -IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m -fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv -J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu -liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE -f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU -c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc -MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE -M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX -hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv -JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q -12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd -7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB -qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 -3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ -cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ -PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb -tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk -Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv -ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP -cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 -/oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE -EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N -KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af -rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS -8X7ZCUqv+v+2j8xX + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk0VesbB3BDgwyVmaSMhYznmMn7mMqcVDLE5Thnk5Ap9yRThWTKGPem +VJIypglRP90Ut1wplRRC2cbM56AMv9cfe+31Wc9a3/2+zzusLUs76cTg4uDg +GMbP2jukTX13TXubyXxBUbVmGolMJm7p0CzKET3RfGDNfYW6OQoWDejm7M5w +LWxH+n8b+Kkv0eMhfV8KdjUz9sV6i1b00je9nop98ZVEY2zpO/Q5UiZEB7uu +PeTaEuUjklCZvKCHPfrlddTp+s/odtyvVQPsbYPy7mzzbtSSYtZljG07GWUQ +1voNFbk1CwP2s6VRPmZpP0pZSaoyx/50VvzM46Dv6GHyhfL92BMbLEbnKIMo +WeQFrx32htRgV+o8icweGL12xN4heLUlpH4YecdNjx7BdpBi354wH0e6oqKO +3tjEdTkxNZ4J1Cl5PscXO1bxQMKJ1kmU/UrdMAj7s/gHrfDSaRR9B92Nwqa7 ++R/PTp1BvSrFofHYUwUcN+4HzaKsSaurqdg8cmpbpyksdGXKVuwadg79xf6t +omzknVxGL8GWKXGN1ZhnIzlZG5FqbH3VxInA+gW0JGaZ9xLbT/db66j5Elqw +1VedxZ5jnlrHu2sZ3RjOjV/FjqvnM1bmWUE8rtom/Okkygf9Mt/WVSTUrP1x +Fza9uMUitJQTRF/ZZnlhl77K7jsrxQWS/TVzJ7GnhjyjMlO5QEXJtzYWO0qF +9eBeEDccTcvwuY6dUyUrP0lZD78ICWsS+0v7+LOVovWglVTyaAFbZqbGbbPo +BvCuijrPd4lE5doOWWrzG+DhzV9mFOymukjOgHoeuJLreDAem/Wi49uwOT+I +8TeXGWaQSMiOf+uZZ/yQas5tegRb84MFCBgIwJ/MK1bB2P4/Hl3XUt8M5ucG +Kkuwg7laNffyb4X7+3s7pTJJNChXOZ3AFoQoc40CySzcH+L1prdUIUB1cUeN +sLnKSFmJECFwFjBM8MCWoe50Kh0TAtu7Q3pF2G7mGffb+oTBun7fL2o2id76 +hIaJvxEFn7s9s/45JOotSU/x4hGDc3vEP2Vjj4+VFt21FANTzWaVp9i84d87 +jBrFwPBN+h7BXBJZxB/W9nokDnvlupKfYT+5pcu6UygJHGo2z9XzSHRr8FeE +Ybg0iL8pE2X8TSKrIxd6wyqkoex9b0E+9niT8L4KUhp0OFcutGJr31IVlXHd +AR2665N1ruB+0jwfrDfZCboU5738BSSamez7c/i8DLSmcNFar5JIONDi4QN7 +OZBomCrLu0Ei8havn6O/HMQnTt7vxK7tbpf6mSgHWkzOHRI3SXTMzuP8rkY5 ++FefLvM39q09EU5/UeTBPcz2080i/P3RkqkYcQX4N6ZrY3MxiQ778qnZ9CtC +2gfZVLdSEqGII5Sjy4rw1G/8cjG2SkKhHl1yF1QJiXBNY3MUUc1iDu4Cvsq4 +xaQyElX0uh+9/3wXmGQuBjwtx+fTufzstpu7wYTe5KtfhcdnYf9plKYMBfcn +aiIekqjoUN7X+RhlWHng9+4/7HRaf9+6K8pQ7x1mq/gI7++4U2M7OpTBuczU ++yO2YMNVjkPmKvC4ZkbYsAbvH+qESr38Hujwp+SJPiGRlNyl2JQfqmDp0Ccr +2kiihuQ55UUuNWhuCH4ah31s1vUDIasGVluGXo9jX2tSUDbzVINPNpeMXj0n +kZzvk/cLnWowzCMSHvMCz7d8UJF4ow7vcxUt1jWTSFpqByHjqgnSRH4oo41E +qsXh/L8RBcKvpd+I6SURjX6epeZAAb8TNdXL2PnyWb1exyjgmVShGP2NRNw3 +q+69YlKgLZnPILoPn7dro4ezqilwZa5D4NwAvk/zva4qy1Oh89LLkGskXt8U +O3WXDdqgJcXWlpsk0Y1QBcdHrTrA0dNk5Mw5hNojkF58sQFQxgTaNNSHkKzn +RwePgL2wkbdfMsx7CDFWH1dKnwa4Z7xc1Jw3hMTHajeK08xA49Tdnd1dQyic +atydpWIBrk+9o5x3DCPaz6UW4VFLINWX+wZ8h1GFWdjGwrf7gWy8fXji2TC6 +Nef/vDzHGr5SE+pWxUbQgqnEf02xthD+N4wuRI+gHg7u6X5ve1i8LnK5enQE +BW0/mXFW/gDohH+5NOI8iiqPtzTmJjhC79tX+bUdoyhyVnJ+z/GDICSdeVHp +wBhi2exzbv7DCcruy0X6do8hA/dM08GDh6Bx7D/b5KBx9F7yqn8T9TAE/rLp +oS2Po223zzfcUToCQ6YTgYqFP1Ftn4qdg4Az7OnfkOxtPIF2fJjyjfjpDK98 +i8/ydk8gam5meVHfUTDzEGByXppEV9fNqme9cIH3WoXbI6Wn0GNTjS8Jda4w +3hzjwBs9hfL1kgWXSt2g9eU6nuHuKfT2a3EiNdUdepfDnZr1ptEj+wKF4Lhj +0JZU1xl2ZRpNBx7iCKJ7gMKrVJrI4jRi7VP2mzD3BHuj/sXRwzPozs+uhTDd +P6DCXtGdp3YGudwo9vHg94I37Xt1GcKz6MF92z+4L3gB3+CuupjwWWQg9X7x +4qIXLF0Zi7jROovk+3y/vDvuDc5fw+MXd86hH3wnDhR89wbL4YY6pYg51J7u +4LP/CA0CaxWavj+fQznMQr5T7TToXlCfWxFgoYZnq4s+1j4QIm/m13uQhbYc +gwvUJz7gWuBxxyuZhWREmt9ub/CBE0NdR/elsJBmq73Ehmc+cPmDUdyeVBZy +Mna/+/m5D/yW/G04l8ZCOdsj3kT/6wPMC6cOxWay0Laesi0tn31gSUlw5Ew+ +Cyl4iucfm/cBqvLmEIHbLGTgNXEnQZsO7X5xl5L+x0K3/5oKc9Clw8aQEQOT +RhYS6ZgxEdenA7FixZjFnrCc/3DHiA7UD/4mx/5h4fuLg7PVjA6m3TXs3S9Z +aPO8oKvQQTpwbivzKXnNQj/SdDYVBtKh1LfksOVHFkqvjzpee5sOZrnXuOeH +WSiQkmfAvEMHLzpsvjjCQnZ3qzfpl9JhfHdJ3rZRFuLNI+/WVNAhq81jl/EY +CyWEOo4+fkgH2s8yzdM/WShKWeHEo3/o0K8wM/BlmoX8894E3O+lg0L/XWHj +XyxkvZk0Du2jQ1m5avNTbKUEDgHKAB0GI4PYJr9ZiAzVqagepEPbQkczWmIh +b4fCn/fG6cCnVUE1WmEhl/VhQVW/6BCoJrZdkouN9odtCy4XY8DmNP384E1s +9E9hok2WBAMGNlipjmEbt84oMLcxIMcjVpbBy0aaim+6zHcwYClxVf0oHxtJ +dp4x/6rIAI3lsx1UATYaM+wR49VhQMCZLtW3W9noEtf1p76HGNAlUHs6TZyN +eDX48+2PMMBfsJR7DjvenRlKPcqACcv2MVcJNmI+dNy96saAXkefT/KS+D+H +4My8TGOAVtZBoXvb2Ij6mkZ/GcKAxDol4VJpNurMVOSTz2BAvMiJSnl5NqpE +An7DmQzgCbP2DMaO/znXVJHNAIt9SrEN2BTrphj9PAa82VIlfEiBjdI5fGbs +rzGAY69H4mlFNtp38noXs5wBqQ9CEst2s5G0dJKuSSUDInXYaBJ77vXJbO57 +DBjcePs4RYmNbu5C9ukPGCA2dESgBnu5p6ex6AkD9tpdz6lTZqOHdlJ32lpw +feF8ftEeNkr5xbU+5zUDLONlDvRi0+6Meru2YoepnZJQZaOt655I/XjLgFPu +gVtSsAPqXS4tfmJAzwGPM8fV2Ehe5XKEwiADtsyJKPFpsNGvzuiOEZIBy1r9 +7cbY7QkMzaphBlQdjx4OxI7p1x41GGfAJydOehv2l/wOjwOzDNB8vjclSZON +sjYKWkZyEpDwWSy7X4uNGmZ63MO5CUgOMO7YTGGjoZ7S0KD1BDS4t3kYYRs/ +tLhO20TAFsHNTlnYpBfzt40gAeEBg4/0qHj8dpZClsIEWFgfsfoD20hPSBmJ +EiDt+F0hETtDoNyZKkmA14BOw7u1+pNv1VKyBBhG/0Pz0mYjori8RVSegJUh +Dctz2BkZp79tUSQg5t2fIUXYJCEssE6ZgM4AZsn3tbrwfr9xTQJY4ieT3PEa +PVkRjiUpBLjc6q/9E3twpC+3T5uAgSwWJRvbsDHyxQd9ApRUh7lbsH8EVO54 +CgRcLD8goazLRptdzujUmBHQFyOfi7ANzK3sqi0ImFT1dz+CnS45cLrYioDF +FaOmGOzadVUZhTYEMGOeElnY3yfPlPxlR8CLjGtOxdj6r0Q/pjkSsDAfuOFf +bFr1wNgFJwKslw61dWGnFVRxnTtMgOZM0rcR7IFQa80IF9yvwfaejXpsJOAp +tj/YjYCKwe7Xotj61t89/I8R0N+rzCmPnbYzOsXTiwDty5HWRti1vDY3XWgE +6JUz3fdhD7DE6pzoBFT6lz92XMvr//7WjsDz8RV2d1vLa71H7vMj4Ae9zMoH +m1YTvQz+BGy3D409sZZ/00bEKICAEl1iNXQtP018j04QATq0hJbTa/nMH6Ya +wQTwGbV9icXmp1e7KIcSwH8U6SZg6x2IOSkfTsDtiM4vF9fyDW0TpSMImInP +bUnDTlWUuCrOJCAnj7magf146+ADwUgC3k3ExmZj9/+ufs0Xhfcjq9Qqdy1/ +KKZ/fQwB+qaLbpexdd/bLqzGEjCd6f94zf8HEK7tyg== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -6293,105 +6169,105 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK -kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB -QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf -41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 -bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 -urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR -rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 -sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM -w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms -l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo -waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml -Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 -4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d -FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta -CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE -5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv -f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf -FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ -WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C -uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 -3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU -qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 -qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu -Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa -Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k -IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 -hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ -EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ -yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd -Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr -F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa -vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U -HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL -W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs -nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP -wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d -hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz -2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf -81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo -dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF -Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 -CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF -NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ -LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ -ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE -965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz -hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v -DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx -HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px -XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 -z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg -fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e -IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m -fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv -J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu -liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE -f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU -c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc -MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE -M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX -hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv -JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q -12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd -7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB -qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 -3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ -cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ -PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb -tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk -Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv -ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP -cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 -/oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE -EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N -KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af -rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS -8X7ZCUqv+v+2j8xX +1:eJwV1nk0VesbB3BDgwyVmaSMhYznmMn7mMqcVDLE5Thnk5Ap9yRThWTKGPem +VJIypglRP90Ut1wplRRC2cbM56AMv9cfe+31Wc9a3/2+zzusLUs76cTg4uDg +GMbP2jukTX13TXubyXxBUbVmGolMJm7p0CzKET3RfGDNfYW6OQoWDejm7M5w +LWxH+n8b+Kkv0eMhfV8KdjUz9sV6i1b00je9nop98ZVEY2zpO/Q5UiZEB7uu +PeTaEuUjklCZvKCHPfrlddTp+s/odtyvVQPsbYPy7mzzbtSSYtZljG07GWUQ +1voNFbk1CwP2s6VRPmZpP0pZSaoyx/50VvzM46Dv6GHyhfL92BMbLEbnKIMo +WeQFrx32htRgV+o8icweGL12xN4heLUlpH4YecdNjx7BdpBi354wH0e6oqKO +3tjEdTkxNZ4J1Cl5PscXO1bxQMKJ1kmU/UrdMAj7s/gHrfDSaRR9B92Nwqa7 ++R/PTp1BvSrFofHYUwUcN+4HzaKsSaurqdg8cmpbpyksdGXKVuwadg79xf6t +omzknVxGL8GWKXGN1ZhnIzlZG5FqbH3VxInA+gW0JGaZ9xLbT/db66j5Elqw +1VedxZ5jnlrHu2sZ3RjOjV/FjqvnM1bmWUE8rtom/Okkygf9Mt/WVSTUrP1x +Fza9uMUitJQTRF/ZZnlhl77K7jsrxQWS/TVzJ7GnhjyjMlO5QEXJtzYWO0qF +9eBeEDccTcvwuY6dUyUrP0lZD78ICWsS+0v7+LOVovWglVTyaAFbZqbGbbPo +BvCuijrPd4lE5doOWWrzG+DhzV9mFOymukjOgHoeuJLreDAem/Wi49uwOT+I +8TeXGWaQSMiOf+uZZ/yQas5tegRb84MFCBgIwJ/MK1bB2P4/Hl3XUt8M5ucG +Kkuwg7laNffyb4X7+3s7pTJJNChXOZ3AFoQoc40CySzcH+L1prdUIUB1cUeN +sLnKSFmJECFwFjBM8MCWoe50Kh0TAtu7Q3pF2G7mGffb+oTBun7fL2o2id76 +hIaJvxEFn7s9s/45JOotSU/x4hGDc3vEP2Vjj4+VFt21FANTzWaVp9i84d87 +jBrFwPBN+h7BXBJZxB/W9nokDnvlupKfYT+5pcu6UygJHGo2z9XzSHRr8FeE +Ybg0iL8pE2X8TSKrIxd6wyqkoex9b0E+9niT8L4KUhp0OFcutGJr31IVlXHd +AR2665N1ruB+0jwfrDfZCboU5738BSSamez7c/i8DLSmcNFar5JIONDi4QN7 +OZBomCrLu0Ei8havn6O/HMQnTt7vxK7tbpf6mSgHWkzOHRI3SXTMzuP8rkY5 ++FefLvM39q09EU5/UeTBPcz2080i/P3RkqkYcQX4N6ZrY3MxiQ778qnZ9CtC +2gfZVLdSEqGII5Sjy4rw1G/8cjG2SkKhHl1yF1QJiXBNY3MUUc1iDu4Cvsq4 +xaQyElX0uh+9/3wXmGQuBjwtx+fTufzstpu7wYTe5KtfhcdnYf9plKYMBfcn +aiIekqjoUN7X+RhlWHng9+4/7HRaf9+6K8pQ7x1mq/gI7++4U2M7OpTBuczU ++yO2YMNVjkPmKvC4ZkbYsAbvH+qESr38Hujwp+SJPiGRlNyl2JQfqmDp0Ccr +2kiihuQ55UUuNWhuCH4ah31s1vUDIasGVluGXo9jX2tSUDbzVINPNpeMXj0n +kZzvk/cLnWowzCMSHvMCz7d8UJF4ow7vcxUt1jWTSFpqByHjqgnSRH4oo41E +qsXh/L8RBcKvpd+I6SURjX6epeZAAb8TNdXL2PnyWb1exyjgmVShGP2NRNw3 +q+69YlKgLZnPILoPn7dro4ezqilwZa5D4NwAvk/zva4qy1Oh89LLkGskXt8U +O3WXDdqgJcXWlpsk0Y1QBcdHrTrA0dNk5Mw5hNojkF58sQFQxgTaNNSHkKzn +RwePgL2wkbdfMsx7CDFWH1dKnwa4Z7xc1Jw3hMTHajeK08xA49Tdnd1dQyic +atydpWIBrk+9o5x3DCPaz6UW4VFLINWX+wZ8h1GFWdjGwrf7gWy8fXji2TC6 +Nef/vDzHGr5SE+pWxUbQgqnEf02xthD+N4wuRI+gHg7u6X5ve1i8LnK5enQE +BW0/mXFW/gDohH+5NOI8iiqPtzTmJjhC79tX+bUdoyhyVnJ+z/GDICSdeVHp +wBhi2exzbv7DCcruy0X6do8hA/dM08GDh6Bx7D/b5KBx9F7yqn8T9TAE/rLp +oS2Po223zzfcUToCQ6YTgYqFP1Ftn4qdg4Az7OnfkOxtPIF2fJjyjfjpDK98 +i8/ydk8gam5meVHfUTDzEGByXppEV9fNqme9cIH3WoXbI6Wn0GNTjS8Jda4w +3hzjwBs9hfL1kgWXSt2g9eU6nuHuKfT2a3EiNdUdepfDnZr1ptEj+wKF4Lhj +0JZU1xl2ZRpNBx7iCKJ7gMKrVJrI4jRi7VP2mzD3BHuj/sXRwzPozs+uhTDd +P6DCXtGdp3YGudwo9vHg94I37Xt1GcKz6MF92z+4L3gB3+CuupjwWWQg9X7x +4qIXLF0Zi7jROovk+3y/vDvuDc5fw+MXd86hH3wnDhR89wbL4YY6pYg51J7u +4LP/CA0CaxWavj+fQznMQr5T7TToXlCfWxFgoYZnq4s+1j4QIm/m13uQhbYc +gwvUJz7gWuBxxyuZhWREmt9ub/CBE0NdR/elsJBmq73Ehmc+cPmDUdyeVBZy +Mna/+/m5D/yW/G04l8ZCOdsj3kT/6wPMC6cOxWay0Laesi0tn31gSUlw5Ew+ +Cyl4iucfm/cBqvLmEIHbLGTgNXEnQZsO7X5xl5L+x0K3/5oKc9Clw8aQEQOT +RhYS6ZgxEdenA7FixZjFnrCc/3DHiA7UD/4mx/5h4fuLg7PVjA6m3TXs3S9Z +aPO8oKvQQTpwbivzKXnNQj/SdDYVBtKh1LfksOVHFkqvjzpee5sOZrnXuOeH +WSiQkmfAvEMHLzpsvjjCQnZ3qzfpl9JhfHdJ3rZRFuLNI+/WVNAhq81jl/EY +CyWEOo4+fkgH2s8yzdM/WShKWeHEo3/o0K8wM/BlmoX8894E3O+lg0L/XWHj +XyxkvZk0Du2jQ1m5avNTbKUEDgHKAB0GI4PYJr9ZiAzVqagepEPbQkczWmIh +b4fCn/fG6cCnVUE1WmEhl/VhQVW/6BCoJrZdkouN9odtCy4XY8DmNP384E1s +9E9hok2WBAMGNlipjmEbt84oMLcxIMcjVpbBy0aaim+6zHcwYClxVf0oHxtJ +dp4x/6rIAI3lsx1UATYaM+wR49VhQMCZLtW3W9noEtf1p76HGNAlUHs6TZyN +eDX48+2PMMBfsJR7DjvenRlKPcqACcv2MVcJNmI+dNy96saAXkefT/KS+D+H +4My8TGOAVtZBoXvb2Ij6mkZ/GcKAxDol4VJpNurMVOSTz2BAvMiJSnl5NqpE +An7DmQzgCbP2DMaO/znXVJHNAIt9SrEN2BTrphj9PAa82VIlfEiBjdI5fGbs +rzGAY69H4mlFNtp38noXs5wBqQ9CEst2s5G0dJKuSSUDInXYaBJ77vXJbO57 +DBjcePs4RYmNbu5C9ukPGCA2dESgBnu5p6ex6AkD9tpdz6lTZqOHdlJ32lpw +feF8ftEeNkr5xbU+5zUDLONlDvRi0+6Meru2YoepnZJQZaOt655I/XjLgFPu +gVtSsAPqXS4tfmJAzwGPM8fV2Ehe5XKEwiADtsyJKPFpsNGvzuiOEZIBy1r9 +7cbY7QkMzaphBlQdjx4OxI7p1x41GGfAJydOehv2l/wOjwOzDNB8vjclSZON +sjYKWkZyEpDwWSy7X4uNGmZ63MO5CUgOMO7YTGGjoZ7S0KD1BDS4t3kYYRs/ +tLhO20TAFsHNTlnYpBfzt40gAeEBg4/0qHj8dpZClsIEWFgfsfoD20hPSBmJ +EiDt+F0hETtDoNyZKkmA14BOw7u1+pNv1VKyBBhG/0Pz0mYjori8RVSegJUh +Dctz2BkZp79tUSQg5t2fIUXYJCEssE6ZgM4AZsn3tbrwfr9xTQJY4ieT3PEa +PVkRjiUpBLjc6q/9E3twpC+3T5uAgSwWJRvbsDHyxQd9ApRUh7lbsH8EVO54 +CgRcLD8goazLRptdzujUmBHQFyOfi7ANzK3sqi0ImFT1dz+CnS45cLrYioDF +FaOmGOzadVUZhTYEMGOeElnY3yfPlPxlR8CLjGtOxdj6r0Q/pjkSsDAfuOFf +bFr1wNgFJwKslw61dWGnFVRxnTtMgOZM0rcR7IFQa80IF9yvwfaejXpsJOAp +tj/YjYCKwe7Xotj61t89/I8R0N+rzCmPnbYzOsXTiwDty5HWRti1vDY3XWgE +6JUz3fdhD7DE6pzoBFT6lz92XMvr//7WjsDz8RV2d1vLa71H7vMj4Ae9zMoH +m1YTvQz+BGy3D409sZZ/00bEKICAEl1iNXQtP018j04QATq0hJbTa/nMH6Ya +wQTwGbV9icXmp1e7KIcSwH8U6SZg6x2IOSkfTsDtiM4vF9fyDW0TpSMImInP +bUnDTlWUuCrOJCAnj7magf146+ADwUgC3k3ExmZj9/+ufs0Xhfcjq9Qqdy1/ +KKZ/fQwB+qaLbpexdd/bLqzGEjCd6f94zf8HEK7tyg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, + "PlotRange" -> {{0, 180}, {0.7047351331247275, 1.388571465076094}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.7504249066936067}, + "AxesOrigin" -> {0, 0.704735133124729}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -6403,131 +6279,131 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, + "PlotRange" -> {{0, 180}, {0.7047351331247275, 1.388571465076094}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.7504249066936067}, + "AxesOrigin" -> {0, 0.704735133124729}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{115.12306105754324`, - 253.30690491292427`}, {-15.402138689748767`, 5.769736310251233}}], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK -kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB -QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf -41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 -bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 -urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR -rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 -sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM -w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms -l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo -waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml -Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 -4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d -FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta -CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE -5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv -f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf -FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ -WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C -uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 -3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU -qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 -qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu -Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa -Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k -IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 -hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ -EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ -yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd -Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr -F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa -vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U -HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL -W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs -nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP -wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d -hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz -2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf -81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo -dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF -Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 -CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF -NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ -LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ -ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE -965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz -hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v -DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx -HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px -XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 -z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg -fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e -IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m -fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv -J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu -liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE -f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU -c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc -MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE -M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX -hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv -JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q -12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd -7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB -qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 -3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ -cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ -PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb -tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk -Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv -ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP -cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 -/oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE -EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N -KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af -rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS -8X7ZCUqv+v+2j8xX +1:eJwV1nk0VesbB3BDgwyVmaSMhYznmMn7mMqcVDLE5Thnk5Ap9yRThWTKGPem +VJIypglRP90Ut1wplRRC2cbM56AMv9cfe+31Wc9a3/2+zzusLUs76cTg4uDg +GMbP2jukTX13TXubyXxBUbVmGolMJm7p0CzKET3RfGDNfYW6OQoWDejm7M5w +LWxH+n8b+Kkv0eMhfV8KdjUz9sV6i1b00je9nop98ZVEY2zpO/Q5UiZEB7uu +PeTaEuUjklCZvKCHPfrlddTp+s/odtyvVQPsbYPy7mzzbtSSYtZljG07GWUQ +1voNFbk1CwP2s6VRPmZpP0pZSaoyx/50VvzM46Dv6GHyhfL92BMbLEbnKIMo +WeQFrx32htRgV+o8icweGL12xN4heLUlpH4YecdNjx7BdpBi354wH0e6oqKO +3tjEdTkxNZ4J1Cl5PscXO1bxQMKJ1kmU/UrdMAj7s/gHrfDSaRR9B92Nwqa7 ++R/PTp1BvSrFofHYUwUcN+4HzaKsSaurqdg8cmpbpyksdGXKVuwadg79xf6t +omzknVxGL8GWKXGN1ZhnIzlZG5FqbH3VxInA+gW0JGaZ9xLbT/db66j5Elqw +1VedxZ5jnlrHu2sZ3RjOjV/FjqvnM1bmWUE8rtom/Okkygf9Mt/WVSTUrP1x +Fza9uMUitJQTRF/ZZnlhl77K7jsrxQWS/TVzJ7GnhjyjMlO5QEXJtzYWO0qF +9eBeEDccTcvwuY6dUyUrP0lZD78ICWsS+0v7+LOVovWglVTyaAFbZqbGbbPo +BvCuijrPd4lE5doOWWrzG+DhzV9mFOymukjOgHoeuJLreDAem/Wi49uwOT+I +8TeXGWaQSMiOf+uZZ/yQas5tegRb84MFCBgIwJ/MK1bB2P4/Hl3XUt8M5ucG +Kkuwg7laNffyb4X7+3s7pTJJNChXOZ3AFoQoc40CySzcH+L1prdUIUB1cUeN +sLnKSFmJECFwFjBM8MCWoe50Kh0TAtu7Q3pF2G7mGffb+oTBun7fL2o2id76 +hIaJvxEFn7s9s/45JOotSU/x4hGDc3vEP2Vjj4+VFt21FANTzWaVp9i84d87 +jBrFwPBN+h7BXBJZxB/W9nokDnvlupKfYT+5pcu6UygJHGo2z9XzSHRr8FeE +Ybg0iL8pE2X8TSKrIxd6wyqkoex9b0E+9niT8L4KUhp0OFcutGJr31IVlXHd +AR2665N1ruB+0jwfrDfZCboU5738BSSamez7c/i8DLSmcNFar5JIONDi4QN7 +OZBomCrLu0Ei8havn6O/HMQnTt7vxK7tbpf6mSgHWkzOHRI3SXTMzuP8rkY5 ++FefLvM39q09EU5/UeTBPcz2080i/P3RkqkYcQX4N6ZrY3MxiQ778qnZ9CtC +2gfZVLdSEqGII5Sjy4rw1G/8cjG2SkKhHl1yF1QJiXBNY3MUUc1iDu4Cvsq4 +xaQyElX0uh+9/3wXmGQuBjwtx+fTufzstpu7wYTe5KtfhcdnYf9plKYMBfcn +aiIekqjoUN7X+RhlWHng9+4/7HRaf9+6K8pQ7x1mq/gI7++4U2M7OpTBuczU ++yO2YMNVjkPmKvC4ZkbYsAbvH+qESr38Hujwp+SJPiGRlNyl2JQfqmDp0Ccr +2kiihuQ55UUuNWhuCH4ah31s1vUDIasGVluGXo9jX2tSUDbzVINPNpeMXj0n +kZzvk/cLnWowzCMSHvMCz7d8UJF4ow7vcxUt1jWTSFpqByHjqgnSRH4oo41E +qsXh/L8RBcKvpd+I6SURjX6epeZAAb8TNdXL2PnyWb1exyjgmVShGP2NRNw3 +q+69YlKgLZnPILoPn7dro4ezqilwZa5D4NwAvk/zva4qy1Oh89LLkGskXt8U +O3WXDdqgJcXWlpsk0Y1QBcdHrTrA0dNk5Mw5hNojkF58sQFQxgTaNNSHkKzn +RwePgL2wkbdfMsx7CDFWH1dKnwa4Z7xc1Jw3hMTHajeK08xA49Tdnd1dQyic +atydpWIBrk+9o5x3DCPaz6UW4VFLINWX+wZ8h1GFWdjGwrf7gWy8fXji2TC6 +Nef/vDzHGr5SE+pWxUbQgqnEf02xthD+N4wuRI+gHg7u6X5ve1i8LnK5enQE +BW0/mXFW/gDohH+5NOI8iiqPtzTmJjhC79tX+bUdoyhyVnJ+z/GDICSdeVHp +wBhi2exzbv7DCcruy0X6do8hA/dM08GDh6Bx7D/b5KBx9F7yqn8T9TAE/rLp +oS2Po223zzfcUToCQ6YTgYqFP1Ftn4qdg4Az7OnfkOxtPIF2fJjyjfjpDK98 +i8/ydk8gam5meVHfUTDzEGByXppEV9fNqme9cIH3WoXbI6Wn0GNTjS8Jda4w +3hzjwBs9hfL1kgWXSt2g9eU6nuHuKfT2a3EiNdUdepfDnZr1ptEj+wKF4Lhj +0JZU1xl2ZRpNBx7iCKJ7gMKrVJrI4jRi7VP2mzD3BHuj/sXRwzPozs+uhTDd +P6DCXtGdp3YGudwo9vHg94I37Xt1GcKz6MF92z+4L3gB3+CuupjwWWQg9X7x +4qIXLF0Zi7jROovk+3y/vDvuDc5fw+MXd86hH3wnDhR89wbL4YY6pYg51J7u +4LP/CA0CaxWavj+fQznMQr5T7TToXlCfWxFgoYZnq4s+1j4QIm/m13uQhbYc +gwvUJz7gWuBxxyuZhWREmt9ub/CBE0NdR/elsJBmq73Ehmc+cPmDUdyeVBZy +Mna/+/m5D/yW/G04l8ZCOdsj3kT/6wPMC6cOxWay0Laesi0tn31gSUlw5Ew+ +Cyl4iucfm/cBqvLmEIHbLGTgNXEnQZsO7X5xl5L+x0K3/5oKc9Clw8aQEQOT +RhYS6ZgxEdenA7FixZjFnrCc/3DHiA7UD/4mx/5h4fuLg7PVjA6m3TXs3S9Z +aPO8oKvQQTpwbivzKXnNQj/SdDYVBtKh1LfksOVHFkqvjzpee5sOZrnXuOeH +WSiQkmfAvEMHLzpsvjjCQnZ3qzfpl9JhfHdJ3rZRFuLNI+/WVNAhq81jl/EY +CyWEOo4+fkgH2s8yzdM/WShKWeHEo3/o0K8wM/BlmoX8894E3O+lg0L/XWHj +XyxkvZk0Du2jQ1m5avNTbKUEDgHKAB0GI4PYJr9ZiAzVqagepEPbQkczWmIh +b4fCn/fG6cCnVUE1WmEhl/VhQVW/6BCoJrZdkouN9odtCy4XY8DmNP384E1s +9E9hok2WBAMGNlipjmEbt84oMLcxIMcjVpbBy0aaim+6zHcwYClxVf0oHxtJ +dp4x/6rIAI3lsx1UATYaM+wR49VhQMCZLtW3W9noEtf1p76HGNAlUHs6TZyN +eDX48+2PMMBfsJR7DjvenRlKPcqACcv2MVcJNmI+dNy96saAXkefT/KS+D+H +4My8TGOAVtZBoXvb2Ij6mkZ/GcKAxDol4VJpNurMVOSTz2BAvMiJSnl5NqpE +An7DmQzgCbP2DMaO/znXVJHNAIt9SrEN2BTrphj9PAa82VIlfEiBjdI5fGbs +rzGAY69H4mlFNtp38noXs5wBqQ9CEst2s5G0dJKuSSUDInXYaBJ77vXJbO57 +DBjcePs4RYmNbu5C9ukPGCA2dESgBnu5p6ex6AkD9tpdz6lTZqOHdlJ32lpw +feF8ftEeNkr5xbU+5zUDLONlDvRi0+6Meru2YoepnZJQZaOt655I/XjLgFPu +gVtSsAPqXS4tfmJAzwGPM8fV2Ehe5XKEwiADtsyJKPFpsNGvzuiOEZIBy1r9 +7cbY7QkMzaphBlQdjx4OxI7p1x41GGfAJydOehv2l/wOjwOzDNB8vjclSZON +sjYKWkZyEpDwWSy7X4uNGmZ63MO5CUgOMO7YTGGjoZ7S0KD1BDS4t3kYYRs/ +tLhO20TAFsHNTlnYpBfzt40gAeEBg4/0qHj8dpZClsIEWFgfsfoD20hPSBmJ +EiDt+F0hETtDoNyZKkmA14BOw7u1+pNv1VKyBBhG/0Pz0mYjori8RVSegJUh +Dctz2BkZp79tUSQg5t2fIUXYJCEssE6ZgM4AZsn3tbrwfr9xTQJY4ieT3PEa +PVkRjiUpBLjc6q/9E3twpC+3T5uAgSwWJRvbsDHyxQd9ApRUh7lbsH8EVO54 +CgRcLD8goazLRptdzujUmBHQFyOfi7ANzK3sqi0ImFT1dz+CnS45cLrYioDF +FaOmGOzadVUZhTYEMGOeElnY3yfPlPxlR8CLjGtOxdj6r0Q/pjkSsDAfuOFf +bFr1wNgFJwKslw61dWGnFVRxnTtMgOZM0rcR7IFQa80IF9yvwfaejXpsJOAp +tj/YjYCKwe7Xotj61t89/I8R0N+rzCmPnbYzOsXTiwDty5HWRti1vDY3XWgE +6JUz3fdhD7DE6pzoBFT6lz92XMvr//7WjsDz8RV2d1vLa71H7vMj4Ae9zMoH +m1YTvQz+BGy3D409sZZ/00bEKICAEl1iNXQtP018j04QATq0hJbTa/nMH6Ya +wQTwGbV9icXmp1e7KIcSwH8U6SZg6x2IOSkfTsDtiM4vF9fyDW0TpSMImInP +bUnDTlWUuCrOJCAnj7magf146+ADwUgC3k3ExmZj9/+ufs0Xhfcjq9Qqdy1/ +KKZ/fQwB+qaLbpexdd/bLqzGEjCd6f94zf8HEK7tyg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, + "PlotRange" -> {{0, 180}, {0.7047351331247275, 1.388571465076094}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.7504249066936067}, + "AxesOrigin" -> {0, 0.704735133124729}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -6537,7 +6413,8 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.7504249066936067}, + AxesOrigin->{0, 0.704735133124729}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -6565,7 +6442,8 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.7504249066936051, 1.313047485013753}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.7047351331247275, 1.388571465076094}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -6573,9 +6451,8 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913440619685707`*^9}, - CellLabel-> - "Out[417]=",ExpressionUUID->"0e6ef056-d4e3-ac4d-9f2a-df071f8decb1"] + CellChangeTimes->{3.9913440619685707`*^9, 3.9942569921729107`*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"148604cf-7a59-43b3-8520-ee2aa19f2b7d"] }, Open ]], Cell[CellGroupData[{ @@ -6638,340 +6515,161 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918501659425144`*^9},ExpressionUUID->"06bd0169-a5a6-404c-935d-\ -e1a61565f71e"], + CellChangeTimes->{3.9918501659425144`*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"06bd0169-a5a6-404c-935d-e1a61565f71e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.7414575136308495`*^-273\\\", \ + "\"\\!\\(\\*FractionBox[\\\"7.948933009772575`*^-273\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 418, - 441, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913440621885586`*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 95, 9, + 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913440621885586`*^9, 3.994256992661304*^9}, CellLabel-> "During evaluation of \ -In[418]:=",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], +In[95]:=",ExpressionUUID->"a7d0395b-5a95-44ba-9efc-c1a6a6936846"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.133412609607657`*^-284\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.6544473147973135`*^-284\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 418, 442, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913440621975574`*^9}, +to represent as a normalized machine number; precision may be lost.\"", 2, 95, + 10, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913440621885586`*^9, 3.994256992674754*^9}, CellLabel-> "During evaluation of \ -In[418]:=",ExpressionUUID->"637082a9-fe74-7345-8895-dee77343ee6f"], +In[95]:=",ExpressionUUID->"7017c8b4-1076-4c63-9f3c-8812fb650622"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.599262146182568`*^-296\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.6800978395729858`*^-295\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 418, 443, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991344062205559*^9}, + 2, 95, 11, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913440621885586`*^9, 3.994256992683195*^9}, CellLabel-> "During evaluation of \ -In[418]:=",ExpressionUUID->"b2e7262c-7c6d-d94d-a545-ea4b363e579a"], +In[95]:=",ExpressionUUID->"ed15cc4b-a735-43a9-a94d-0821432d7414"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 418, 444, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134406221356*^9}, +during this calculation.\"", 2, 95, 12, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913440621885586`*^9, 3.9942569926931458`*^9}, CellLabel-> "During evaluation of \ -In[418]:=",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], +In[95]:=",ExpressionUUID->"8aec8961-d17e-48ea-88eb-a0cfdf0f2a5f"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ -494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L -A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ -HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq -DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ -bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn -5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ -Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC -H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF -7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ -+1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 -gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq -rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG -C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ -Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe -elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 -df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ -vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB -B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD -TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti -B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 -wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls -L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN -3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI -ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya -zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u -TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X -WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF -ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s -Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff -QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn -t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi -Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV -7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih -Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde -vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA -dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 -BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G -LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD -55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK -+Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM -zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk -rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a -uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 -8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 -ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt -FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK -+fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em -6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 -q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY -Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF -pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU -XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz -qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb -6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 -e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud -zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg -7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY -jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L -EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 -0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e -ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn -9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY -hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy -8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp -Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd -Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM -VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW -w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 -uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj -yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt -r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt -06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 -XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP -R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np -bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe -GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb -bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl -X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq -Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb -Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 -q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E -97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo -JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT -bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr -PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A -kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me -BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF -bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z -+FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 -2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG -lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 -7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U -sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw -pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa -vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW -g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn -hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 -C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 -mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i -3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg -GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ -cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI -hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R -E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ -T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv -+isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 -VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq -LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu -2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY -hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL -bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ -Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo -wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 -uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m -MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV -LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY -esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX -Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS -oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 -2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F -cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 -hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU -s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k -7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe -ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 -H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX -BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ -HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR -XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz -oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 -YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO -8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK -+5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR -T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 -g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn -ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz -95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC -nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf -TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ -MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k -Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH -lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn -0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr -zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD -F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 -GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ -V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu -e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW -zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V -vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 -twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 -uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx -5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 -uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc -0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX -Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO -/joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r -ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht -Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI -W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF -6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU -HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A -9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e -E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V -M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb -IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg -7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf -AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 -oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 -vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC -1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 -P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy -0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg -l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ -riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG -/aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c -4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 -BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st -/KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq -DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp -13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj -mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q -JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI -Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 -1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F -4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk -Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha -+OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl -jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl -dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX -jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 -25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB -dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM -4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 -A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 -VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd -zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo -9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 -NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh -qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq -zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd -ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo -oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I -DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf -lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl -5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL -M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs -h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j -1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv -U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg -75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS -kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG -hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN -RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 -a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x -UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 -ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu -8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX -u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI -RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj -ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC -sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR -i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww -lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou -LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 -Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE -QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK -74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK -nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF -xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH -KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY -uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 -9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr -oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E -iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w -L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U -ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t -Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW -38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs -grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB -TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj -yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL -GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l -TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq -WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw -PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 -/KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx -JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 -qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl -p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx -N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x -hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn -izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE -LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM -rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE -p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 -YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH -FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX -piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz -X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 -+VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO -phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg -9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC -ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU -ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 -HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t -BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF -ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM -mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI -FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM -xZ+NDXq9HfXOhZcGEP8DWaJNdQ== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8Vf8fB3Chb5RRZK97rouszBTu9X6HZJS9KcpoSSopZJbR/ApFNknJ +ugcRCqGhPWwZybchiYyQ6nd+f93H849z7j2f83q/Pp9L7D5k78fJwcHBu4yD +4/+fc4PtbYxzhUYl+0zfyK7bbNSRIx66uScWhvuHJPpC5QBFXu4W70kGcV5X +geRQDQixvdXN1VMAB1p5hXaHAqyZEEte6K6EpUA5A8lQGxi6a31oprsFqn0E +v+qd8AIzxtjAVPcb6NjsMPUo+BAsdG+8PNk9Arf35LbJ7omCVpMbha8LpuFP +iviBVawkkB6q+7hb7TfcDZQQsu1Og7UBXrdWmHBh+OwoK3IxB5K1zBqsnXiQ +pbw0mUFcg950zeap1fyYOf3P6N4tRXCuMOolp8QarPoez23qVgxiqR/OpGQL +43/DjPnQZaUgrnr79HyRMMoPGAWWrCwFyZb4qB1sYRxVXDjRLVwKspPKx5Ra +hVGXo3irnGIpKGwL8m74LIyvc18WH7QsBR3u33ofdNaiteDdOO7kUrAJFh3V +frIWobpQSlimDBIcLYzezIlgn3rT8Qh6OUhWv5DkXCaKrOstO2dUyqFc2PGn +1ipR/Nu3lOOrUw5db3ayL8mJ4rMkXyUt03Jg2AXT7cxFUW5dpVGYXzm0bM/9 +59VVUbS3a2p7WlQOv81mXzxniqF2jvdVf0YFJBWFlfw2E8Oj7garVqhVAOMf +jkR1OzFc3Op1L0+nArY9WLn5gp8YVowJDDcZV0CGCa1q20UxlNylLFDmXQGb +0Crt6ZAYPtHeftE4swKO6ud7tceKo0miiH3JcjZY5gnMWJ0Xx1+yrKhOHjbQ +V5xMfHFZHNUmBqqXVrHhVYcz+famOPZf5NY3FmLD+iA+rsEX4vizdF9+sSwb +PhcdL/ohKYGcKYW9X/TY4LnW+ptUlQQmMnxtNPzYoBPeEJNzVwKnKvd5LO5h +w8qRdaLEQwms5Nt7sGU/G+oquECxVwJ3Fxpcswhig6hVXZLmXwl0tOl10g2n +vj+GobvFShKtoie6wpLYYPp9MSzwgyQOS8wde3aHDaHmqSr3xyWx5E+KjFoD +G8rz1fuE5ySx+UPXl8R7bBB39Nav45HCBbP8Sf0WNozfefCTa70USs48rQt9 +yoaU2KTgqyeksEtezS5ogA0jIoqBbfzS6OA0csTgLxvEDjXJiIlJo5LH0U9G +y0jY9tj1+T6aNI4Idp5GLhJqws6pCepIo898q4HhChLODk2OublKo2Pr+XQB +QRK0ixv2fC+Qxi8N2ubqsiTEMO12SW6SwT+XXnJuMyDBfGfOj43GMigRt1xA +kkmCQPTXU07bZPC9dk37KIuErNa4oiRvGcwRnHQI2kzCHcv6r/+ckcFJ7t57 +XuYkTLrKh0z3yuBOrwDDPCcSasOCVqwZlcHA8bwwfRcSIrPupa+fkMHybv+g +l64k8A27NOzjlMWsf21ipjxIUNpznmNYRRa5E/aZCuwmYeex2bPPwmUxp6GQ +vHWQBIU0Y+mxOFm0NWm5IHiIpNbv37IVSbJ48Fq80uEgEsKWlF8ZF8qiSMTX +yypHSbh8aqdI3TNZ9LrMPhBygoRnlx7lXpeRw+njRfuPxJKQUrVWq1VJDvVa +7DyvnSLBvXNXy7CWHPK5kMKvT5PwWXxpVMpMDp/OkJ30BBK48jRVkgPl0Cnu +2+3ccyQYlF+tjmySwzwpDt+/KSSYdr/4PfFYDgs4CZHxVBKsObi3er2RQxGO +wj+dl0nwsQ/shf/k0Dn73sn8NBLMwomo6OU05I76oC2WSUKQ3Ny1zao0rP/o +OheRT8JsVdLjBQ0aetK69xoVUM9nrvqN1KXhZ8m7UkuU4w5769GNaHhf7q3p +oUISMlqfPOa0o6Hqdp4q3RsktO3J/dYaQsOtQ3YnmKUkWCzpC50Mp6H15lNa +rym/SOrQ042mYbLuUx2fMhJ663ijC8/QcG/We5GochImVgULxWXRMFuY5n2F +TcLRPIGNrHwaFkgsHBYhSZjXLfaYvU7DjQuRry9R5to5WOhXQcPl8Z/DYytJ +EGebbzRroeGR+TsXTapJyDb94PHnIQ1/hobJllGm90ZE1zylIdbc4Fh7mwR1 +zqp2xU4aBlaxG3spV17ZPjHYS8MLJa2Zm2pI2KT6WShtkIbKz9jPUykbO8p4 +rvhMQ8fmi9pbakl49Lk2ummchuN1Df5XKW+LsL9+fIqG25UMf4xRdilKmPi0 +SMPrPuw18XdICJifin7MT2BlquDprDrqfR72F/0oRKCGel/FMGWesb4SLnEC +lf+8u0/Uk3C9v7XLiE6gsN6bzAzKwY6bAjyVCBwm9vu9oWz8vHRZmBqBLdZx +4isaSBhsvKx2W49AsZCrRnsol25c2fLGkMDwSKOqZMph7EiXSSSwcKRxbQNl +c+XpcX4zAm9W/PAZpixasCdW1YrAZ82V+Zx3SRiVfCdmYUvgeGPPC4JyZYpt +mb8TgUNyMM6iHM33wPi0O4EfFO4vOlO2idPvyfcikHvI4FcAZdk/ZQebfAmM +Z5yZiKI8HkLnGthHoHHGmc5/Kdd/v5K+GEigRLkkmUU5ce+q9eLBBNqmScUW +UXZ+H9W6IZTAJacAizLKDPcZV4dIAgMqv60gKf94s3ci6BSBscyYxv+72Wrg +1MVEAuWteAMrKF9ss5MovUBg7q+9Yrcoe7IelrcnE8indbohn7JKjYHppzQC +S1PA4wrlhfUVvdzZBO5Miv6ZQPnxDflD9AICJ1zUL4VQvkJL58YbBF4ZVFPe +Tdn3Kl/GjlICsd+/2ZKytlCMRjhJINejVhdNyhznZtvSawiMeac2KUT5Bdd+ +95oGAreInT/7g1rvrJOD3982E6ik80zpJeUDs/ZxUw8IrC3peXyTskHgI0nB +pwSmNmQHRlHm+WTIVntFYJcHj6QD5cIeRv+ePgIzP8bFTVF5OGJ3NShuiEDp +kJCtdynjE/5/ro1S+Rh8JHSa8kDDnObgBIG8abbtKymX6h54+GuayqP/gZp2 +Kn9hZUMeEgsEegqUs+Moi+Y+jnfkouOKd6GvZqj8joqxpI/w0HGrxfjPG5Qr +k0jyX346tki5abpStonNePdEjI5tbkvdFVT+E/0CtDer0fF3wxkZJjU/zoPD +j3Zq0fHr27FP3dS8MVycdpzUo+OfEP6nQZSbzY0Sa5GO1zckDl2l5nVBdfWg +uhMdq38L7min5nsuWzJGx52Oq5Gws6U8I6jA0PeiY7tKYnQH1QcT0/r7TffR +UWe54uUOqj9GGnzm3CPoqDl6kF1F9cuQeuBV71g6aknNXGVQfpd7gumfQMcy +RuTDZKqPuk5diD18iY5yftHj/lRfPbGqFUi8TsdCx+SEiWJq3u/dJy/couO6 +1IRCC8ptGs8cUyroeLDEia/gJgmNwu8zcuqo69WONFtSfVjZv1Lp9nM62tXH +dYX/vy8P7ISRWTqKPn6QsSOHhLSBvSOfFulYtGQ+cCGbhFSbo3Hf/tLxzGxj +WEMWlV+dxKfzvPKo4Zf9RIDq69hfpIugrDye1V/su0z1+YFzy4OYZvIYrVZc +pJhEArOkNO/KFXn8kSlr4R5FQj+tJHdLpjy6vOK9YhVJvd8rxTkzufKYLR5U +ZRBB7ZcxRVn2xfKY06HnIxRO5dc1L13grjw1D1EVN0JIUF6emhT/nro/vaFl +P7UfinqFR4eoMfBzZL28mxsJtztCoxS0GCh98CvzH2p/dbQ8EdmxgYGuSvEm +pDMJyRuOndQGBvpmlUovcySBn+/QiQk7Bl4YrhVPtCaBu253kP9xBjbxX+HR +NSFhSsjS27mFgeW6q3esVCWhJ4D+av8jBmYybjU4KlP5eLgIUc8Y+Gh3+fMs +JRKSwkrkbnYxsOHJu9WKDBI0R/iGFsYYWPVgg56MDAmB5Msd2cIKuP5fiTW5 +AiSM2Th5jPoqYLBsbf3CdzaMnvd2PrJCEX3OeQbYlbIhcEyNrsmniArfVN5t +usWGn1sXvn1brYis4chLsjep8xtXctw+SUV0CB1/NXqNDZqhrdXe6oqonuTW +7JnJhgg/RWEbB0XUD2jf/usMdZ4zGn+pmquIg6v0zy9S50GL78ct/tNTwv88 +tZksCeo85sNztDpqHb4c2XCBr6mc+j8hxpnQoozTqTc/eSqVgdBzxYvs7yp4 +8XrNr8ILJSCdWGGrp6eG5/eRTr31xZCuqr9aeI86dlh+Slm1eAOeSG7eMH1p +PYr80MvkYBWBgXRLkkaXBu7XHbCo9igEAa6C4F2xmnhi8Lrbx/wCkI2RY7op +auG4rtiT9ld5wKvgWWP/SAsLRe+Klm/IgfUsiYrjO7TxoHG87we1TDgyKNRq +yaGDTgqprd+F0+H79Hkni3Qdqu8P6z3ZdRm2ajzMsFDXxe9/ugVNJ5Khcdrw +188Xuugtkye/LSIJAtW0+177bcA1NslftnSeB9aEb4cbrx7u+DBl+vFhImxh +iG/nL9BDbuqX8frEwbrosydaNm7EhFrZ+0IHYkHFT79JoW8jfpvuVl9kRIFf +497T1Yc3YW2RbYrNyTBoyuvwnRLRx8HrWy94iYXAzM2/PzVq9dGFA/hX7joC +PgolvBnbDbDwdj1j7lkgTKmk6FVOGuCrz1mNl8z3wZ3CX+9nEw3xRu2D+x/G +fMHdVB4NZZl46fih1QPmu+B3B49AK42Jpk2g7WuwC/L8Jvot5Zn4rkVraFZ1 +F3yMrzvuvo6J4t5v728S3AVH2m0qQrWZOH90+rdhlzectT4pe8eMiTejiHlt +f2+od+1c0j3ERNsqIYPDUl4gdTChbn0zE4uiT+eVT3vAxb/+G861MDF1ykoD +BjyAM9mM/NTGxHz36rNDDz1grGZ5cV47E62tl52yyfCAeo7T6UJvmbiSKyr8 +62YPcE+NPj73HxMNBwRurEp1h/SG0A2Nq1jYtib5eLmJG4isDCC3u7Awgjj2 +5fILZyg0iQibdGPhLX56WlGdM2hHXDRJ8WRhXf9HeFzoDNaT7M6eXSxM15x2 +NAp3hviu2QWfABb+FPqwfWadM8wXRBmHxbDQ1ZWVEpHgBH2GKW+LSli4zGeZ +ea2tI+w9VphlUc5ClTSTlNcsR5grv+03zmbh6rrGY79UHEGI3vNTq4aF49Lb +OiOWO4IVj4z0vWYW6gf7vTFscIC7HUW+bztZ+Oqe6tEUZQewFLijHtLDwlWa +zZoFYg7Qs7V9TryfhebZt/qbljvATP3XxJ3DLAxWbX2pNGIP6vmaZV/GWGjY +Ns9fnGkPd/s2h5z/xkKRGH7h9WftwXKtA2hMsjC/Jq7y/gl78E849jp4loXF +c+fS1jrbw0xzfIbYPAu7J7IevzW1h9jFNJ/6RRZ66YsdyNexh9W6xWo7frPw +Xkx7cATdHnIO1s/+/cvC+bqE/j1r7OF/lvSP2Q== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -6985,299 +6683,117 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ -494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L -A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ -HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq -DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ -bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn -5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ -Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC -H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF -7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ -+1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 -gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq -rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG -C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ -Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe -elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 -df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ -vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB -B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD -TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti -B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 -wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls -L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN -3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI -ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya -zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u -TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X -WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF -ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s -Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff -QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn -t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi -Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV -7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih -Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde -vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA -dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 -BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G -LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD -55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK -+Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM -zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk -rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a -uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 -8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 -ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt -FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK -+fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em -6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 -q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY -Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF -pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU -XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz -qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb -6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 -e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud -zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg -7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY -jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L -EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 -0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e -ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn -9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY -hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy -8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp -Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd -Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM -VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW -w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 -uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj -yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt -r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt -06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 -XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP -R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np -bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe -GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb -bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl -X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq -Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb -Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 -q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E -97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo -JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT -bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr -PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A -kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me -BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF -bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z -+FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 -2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG -lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 -7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U -sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw -pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa -vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW -g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn -hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 -C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 -mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i -3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg -GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ -cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI -hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R -E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ -T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv -+isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 -VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq -LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu -2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY -hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL -bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ -Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo -wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 -uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m -MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV -LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY -esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX -Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS -oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 -2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F -cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 -hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU -s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k -7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe -ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 -H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX -BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ -HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR -XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz -oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 -YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO -8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK -+5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR -T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 -g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn -ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz -95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC -nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf -TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ -MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k -Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH -lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn -0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr -zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD -F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 -GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ -V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu -e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW -zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V -vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 -twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 -uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx -5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 -uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc -0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX -Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO -/joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r -ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht -Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI -W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF -6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU -HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A -9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e -E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V -M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb -IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg -7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf -AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 -oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 -vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC -1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 -P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy -0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg -l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ -riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG -/aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c -4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 -BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st -/KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq -DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp -13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj -mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q -JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI -Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 -1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F -4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk -Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha -+OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl -jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl -dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX -jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 -25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB -dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM -4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 -A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 -VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd -zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo -9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 -NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh -qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq -zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd -ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo -oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I -DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf -lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl -5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL -M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs -h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j -1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv -U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg -75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS -kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG -hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN -RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 -a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x -UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 -ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu -8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX -u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI -RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj -ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC -sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR -i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww -lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou -LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 -Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE -QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK -74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK -nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF -xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH -KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY -uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 -9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr -oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E -iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w -L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U -ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t -Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW -38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs -grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB -TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj -yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL -GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l -TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq -WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw -PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 -/KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx -JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 -qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl -p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx -N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x -hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn -izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE -LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM -rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE -p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 -YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH -FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX -piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz -X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 -+VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO -phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg -9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC -ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU -ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 -HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t -BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF -ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM -mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI -FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM -xZ+NDXq9HfXOhZcGEP8DWaJNdQ== +1:eJwV13c8Vf8fB3Chb5RRZK97rouszBTu9X6HZJS9KcpoSSopZJbR/ApFNknJ +ugcRCqGhPWwZybchiYyQ6nd+f93H849z7j2f83q/Pp9L7D5k78fJwcHBu4yD +4/+fc4PtbYxzhUYl+0zfyK7bbNSRIx66uScWhvuHJPpC5QBFXu4W70kGcV5X +geRQDQixvdXN1VMAB1p5hXaHAqyZEEte6K6EpUA5A8lQGxi6a31oprsFqn0E +v+qd8AIzxtjAVPcb6NjsMPUo+BAsdG+8PNk9Arf35LbJ7omCVpMbha8LpuFP +iviBVawkkB6q+7hb7TfcDZQQsu1Og7UBXrdWmHBh+OwoK3IxB5K1zBqsnXiQ +pbw0mUFcg950zeap1fyYOf3P6N4tRXCuMOolp8QarPoez23qVgxiqR/OpGQL +43/DjPnQZaUgrnr79HyRMMoPGAWWrCwFyZb4qB1sYRxVXDjRLVwKspPKx5Ra +hVGXo3irnGIpKGwL8m74LIyvc18WH7QsBR3u33ofdNaiteDdOO7kUrAJFh3V +frIWobpQSlimDBIcLYzezIlgn3rT8Qh6OUhWv5DkXCaKrOstO2dUyqFc2PGn +1ipR/Nu3lOOrUw5db3ayL8mJ4rMkXyUt03Jg2AXT7cxFUW5dpVGYXzm0bM/9 +59VVUbS3a2p7WlQOv81mXzxniqF2jvdVf0YFJBWFlfw2E8Oj7garVqhVAOMf +jkR1OzFc3Op1L0+nArY9WLn5gp8YVowJDDcZV0CGCa1q20UxlNylLFDmXQGb +0Crt6ZAYPtHeftE4swKO6ud7tceKo0miiH3JcjZY5gnMWJ0Xx1+yrKhOHjbQ +V5xMfHFZHNUmBqqXVrHhVYcz+famOPZf5NY3FmLD+iA+rsEX4vizdF9+sSwb +PhcdL/ohKYGcKYW9X/TY4LnW+ptUlQQmMnxtNPzYoBPeEJNzVwKnKvd5LO5h +w8qRdaLEQwms5Nt7sGU/G+oquECxVwJ3Fxpcswhig6hVXZLmXwl0tOl10g2n +vj+GobvFShKtoie6wpLYYPp9MSzwgyQOS8wde3aHDaHmqSr3xyWx5E+KjFoD +G8rz1fuE5ySx+UPXl8R7bBB39Nav45HCBbP8Sf0WNozfefCTa70USs48rQt9 +yoaU2KTgqyeksEtezS5ogA0jIoqBbfzS6OA0csTgLxvEDjXJiIlJo5LH0U9G +y0jY9tj1+T6aNI4Idp5GLhJqws6pCepIo898q4HhChLODk2OublKo2Pr+XQB +QRK0ixv2fC+Qxi8N2ubqsiTEMO12SW6SwT+XXnJuMyDBfGfOj43GMigRt1xA +kkmCQPTXU07bZPC9dk37KIuErNa4oiRvGcwRnHQI2kzCHcv6r/+ckcFJ7t57 +XuYkTLrKh0z3yuBOrwDDPCcSasOCVqwZlcHA8bwwfRcSIrPupa+fkMHybv+g +l64k8A27NOzjlMWsf21ipjxIUNpznmNYRRa5E/aZCuwmYeex2bPPwmUxp6GQ +vHWQBIU0Y+mxOFm0NWm5IHiIpNbv37IVSbJ48Fq80uEgEsKWlF8ZF8qiSMTX +yypHSbh8aqdI3TNZ9LrMPhBygoRnlx7lXpeRw+njRfuPxJKQUrVWq1VJDvVa +7DyvnSLBvXNXy7CWHPK5kMKvT5PwWXxpVMpMDp/OkJ30BBK48jRVkgPl0Cnu +2+3ccyQYlF+tjmySwzwpDt+/KSSYdr/4PfFYDgs4CZHxVBKsObi3er2RQxGO +wj+dl0nwsQ/shf/k0Dn73sn8NBLMwomo6OU05I76oC2WSUKQ3Ny1zao0rP/o +OheRT8JsVdLjBQ0aetK69xoVUM9nrvqN1KXhZ8m7UkuU4w5769GNaHhf7q3p +oUISMlqfPOa0o6Hqdp4q3RsktO3J/dYaQsOtQ3YnmKUkWCzpC50Mp6H15lNa +rym/SOrQ042mYbLuUx2fMhJ663ijC8/QcG/We5GochImVgULxWXRMFuY5n2F +TcLRPIGNrHwaFkgsHBYhSZjXLfaYvU7DjQuRry9R5to5WOhXQcPl8Z/DYytJ +EGebbzRroeGR+TsXTapJyDb94PHnIQ1/hobJllGm90ZE1zylIdbc4Fh7mwR1 +zqp2xU4aBlaxG3spV17ZPjHYS8MLJa2Zm2pI2KT6WShtkIbKz9jPUykbO8p4 +rvhMQ8fmi9pbakl49Lk2ummchuN1Df5XKW+LsL9+fIqG25UMf4xRdilKmPi0 +SMPrPuw18XdICJifin7MT2BlquDprDrqfR72F/0oRKCGel/FMGWesb4SLnEC +lf+8u0/Uk3C9v7XLiE6gsN6bzAzKwY6bAjyVCBwm9vu9oWz8vHRZmBqBLdZx +4isaSBhsvKx2W49AsZCrRnsol25c2fLGkMDwSKOqZMph7EiXSSSwcKRxbQNl +c+XpcX4zAm9W/PAZpixasCdW1YrAZ82V+Zx3SRiVfCdmYUvgeGPPC4JyZYpt +mb8TgUNyMM6iHM33wPi0O4EfFO4vOlO2idPvyfcikHvI4FcAZdk/ZQebfAmM +Z5yZiKI8HkLnGthHoHHGmc5/Kdd/v5K+GEigRLkkmUU5ce+q9eLBBNqmScUW +UXZ+H9W6IZTAJacAizLKDPcZV4dIAgMqv60gKf94s3ci6BSBscyYxv+72Wrg +1MVEAuWteAMrKF9ss5MovUBg7q+9Yrcoe7IelrcnE8indbohn7JKjYHppzQC +S1PA4wrlhfUVvdzZBO5Miv6ZQPnxDflD9AICJ1zUL4VQvkJL58YbBF4ZVFPe +Tdn3Kl/GjlICsd+/2ZKytlCMRjhJINejVhdNyhznZtvSawiMeac2KUT5Bdd+ +95oGAreInT/7g1rvrJOD3982E6ik80zpJeUDs/ZxUw8IrC3peXyTskHgI0nB +pwSmNmQHRlHm+WTIVntFYJcHj6QD5cIeRv+ePgIzP8bFTVF5OGJ3NShuiEDp +kJCtdynjE/5/ro1S+Rh8JHSa8kDDnObgBIG8abbtKymX6h54+GuayqP/gZp2 +Kn9hZUMeEgsEegqUs+Moi+Y+jnfkouOKd6GvZqj8joqxpI/w0HGrxfjPG5Qr +k0jyX346tki5abpStonNePdEjI5tbkvdFVT+E/0CtDer0fF3wxkZJjU/zoPD +j3Zq0fHr27FP3dS8MVycdpzUo+OfEP6nQZSbzY0Sa5GO1zckDl2l5nVBdfWg +uhMdq38L7min5nsuWzJGx52Oq5Gws6U8I6jA0PeiY7tKYnQH1QcT0/r7TffR +UWe54uUOqj9GGnzm3CPoqDl6kF1F9cuQeuBV71g6aknNXGVQfpd7gumfQMcy +RuTDZKqPuk5diD18iY5yftHj/lRfPbGqFUi8TsdCx+SEiWJq3u/dJy/couO6 +1IRCC8ptGs8cUyroeLDEia/gJgmNwu8zcuqo69WONFtSfVjZv1Lp9nM62tXH +dYX/vy8P7ISRWTqKPn6QsSOHhLSBvSOfFulYtGQ+cCGbhFSbo3Hf/tLxzGxj +WEMWlV+dxKfzvPKo4Zf9RIDq69hfpIugrDye1V/su0z1+YFzy4OYZvIYrVZc +pJhEArOkNO/KFXn8kSlr4R5FQj+tJHdLpjy6vOK9YhVJvd8rxTkzufKYLR5U +ZRBB7ZcxRVn2xfKY06HnIxRO5dc1L13grjw1D1EVN0JIUF6emhT/nro/vaFl +P7UfinqFR4eoMfBzZL28mxsJtztCoxS0GCh98CvzH2p/dbQ8EdmxgYGuSvEm +pDMJyRuOndQGBvpmlUovcySBn+/QiQk7Bl4YrhVPtCaBu253kP9xBjbxX+HR +NSFhSsjS27mFgeW6q3esVCWhJ4D+av8jBmYybjU4KlP5eLgIUc8Y+Gh3+fMs +JRKSwkrkbnYxsOHJu9WKDBI0R/iGFsYYWPVgg56MDAmB5Msd2cIKuP5fiTW5 +AiSM2Th5jPoqYLBsbf3CdzaMnvd2PrJCEX3OeQbYlbIhcEyNrsmniArfVN5t +usWGn1sXvn1brYis4chLsjep8xtXctw+SUV0CB1/NXqNDZqhrdXe6oqonuTW +7JnJhgg/RWEbB0XUD2jf/usMdZ4zGn+pmquIg6v0zy9S50GL78ct/tNTwv88 +tZksCeo85sNztDpqHb4c2XCBr6mc+j8hxpnQoozTqTc/eSqVgdBzxYvs7yp4 +8XrNr8ILJSCdWGGrp6eG5/eRTr31xZCuqr9aeI86dlh+Slm1eAOeSG7eMH1p +PYr80MvkYBWBgXRLkkaXBu7XHbCo9igEAa6C4F2xmnhi8Lrbx/wCkI2RY7op +auG4rtiT9ld5wKvgWWP/SAsLRe+Klm/IgfUsiYrjO7TxoHG87we1TDgyKNRq +yaGDTgqprd+F0+H79Hkni3Qdqu8P6z3ZdRm2ajzMsFDXxe9/ugVNJ5Khcdrw +188Xuugtkye/LSIJAtW0+177bcA1NslftnSeB9aEb4cbrx7u+DBl+vFhImxh +iG/nL9BDbuqX8frEwbrosydaNm7EhFrZ+0IHYkHFT79JoW8jfpvuVl9kRIFf +497T1Yc3YW2RbYrNyTBoyuvwnRLRx8HrWy94iYXAzM2/PzVq9dGFA/hX7joC +PgolvBnbDbDwdj1j7lkgTKmk6FVOGuCrz1mNl8z3wZ3CX+9nEw3xRu2D+x/G +fMHdVB4NZZl46fih1QPmu+B3B49AK42Jpk2g7WuwC/L8Jvot5Zn4rkVraFZ1 +F3yMrzvuvo6J4t5v728S3AVH2m0qQrWZOH90+rdhlzectT4pe8eMiTejiHlt +f2+od+1c0j3ERNsqIYPDUl4gdTChbn0zE4uiT+eVT3vAxb/+G861MDF1ykoD +BjyAM9mM/NTGxHz36rNDDz1grGZ5cV47E62tl52yyfCAeo7T6UJvmbiSKyr8 +62YPcE+NPj73HxMNBwRurEp1h/SG0A2Nq1jYtib5eLmJG4isDCC3u7Awgjj2 +5fILZyg0iQibdGPhLX56WlGdM2hHXDRJ8WRhXf9HeFzoDNaT7M6eXSxM15x2 +NAp3hviu2QWfABb+FPqwfWadM8wXRBmHxbDQ1ZWVEpHgBH2GKW+LSli4zGeZ +ea2tI+w9VphlUc5ClTSTlNcsR5grv+03zmbh6rrGY79UHEGI3vNTq4aF49Lb +OiOWO4IVj4z0vWYW6gf7vTFscIC7HUW+bztZ+Oqe6tEUZQewFLijHtLDwlWa +zZoFYg7Qs7V9TryfhebZt/qbljvATP3XxJ3DLAxWbX2pNGIP6vmaZV/GWGjY +Ns9fnGkPd/s2h5z/xkKRGH7h9WftwXKtA2hMsjC/Jq7y/gl78E849jp4loXF +c+fS1jrbw0xzfIbYPAu7J7IevzW1h9jFNJ/6RRZ66YsdyNexh9W6xWo7frPw +Xkx7cATdHnIO1s/+/cvC+bqE/j1r7OF/lvSP2Q== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "PlotRange" -> {{0, 30}, {0., 0.06928549672123732}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7289,19 +6805,19 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "PlotRange" -> {{0, 30}, {0., 0.06928549672123732}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7315,298 +6831,116 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ -494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L -A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ -HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq -DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ -bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn -5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ -Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC -H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF -7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ -+1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 -gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq -rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG -C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ -Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe -elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 -df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ -vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB -B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD -TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti -B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 -wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls -L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN -3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI -ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya -zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u -TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X -WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF -ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s -Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff -QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn -t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi -Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV -7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih -Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde -vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA -dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 -BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G -LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD -55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK -+Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM -zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk -rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a -uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 -8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 -ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt -FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK -+fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em -6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 -q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY -Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF -pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU -XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz -qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb -6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 -e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud -zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg -7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY -jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L -EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 -0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e -ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn -9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY -hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy -8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp -Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd -Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM -VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW -w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 -uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj -yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt -r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt -06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 -XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP -R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np -bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe -GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb -bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl -X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq -Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb -Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 -q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E -97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo -JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT -bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr -PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A -kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me -BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF -bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z -+FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 -2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG -lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 -7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U -sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw -pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa -vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW -g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn -hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 -C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 -mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i -3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg -GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ -cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI -hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R -E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ -T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv -+isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 -VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq -LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu -2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY -hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL -bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ -Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo -wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 -uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m -MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV -LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY -esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX -Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS -oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 -2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F -cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 -hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU -s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k -7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe -ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 -H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX -BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ -HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR -XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz -oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 -YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO -8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK -+5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR -T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 -g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn -ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz -95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC -nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf -TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ -MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k -Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH -lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn -0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr -zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD -F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 -GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ -V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu -e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW -zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V -vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 -twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 -uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx -5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 -uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc -0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX -Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO -/joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r -ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht -Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI -W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF -6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU -HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A -9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e -E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V -M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb -IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg -7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf -AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 -oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 -vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC -1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 -P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy -0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg -l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ -riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG -/aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c -4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 -BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st -/KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq -DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp -13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj -mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q -JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI -Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 -1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F -4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk -Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha -+OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl -jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl -dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX -jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 -25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB -dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM -4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 -A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 -VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd -zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo -9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 -NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh -qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq -zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd -ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo -oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I -DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf -lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl -5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL -M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs -h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j -1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv -U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg -75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS -kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG -hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN -RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 -a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x -UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 -ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu -8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX -u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI -RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj -ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC -sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR -i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww -lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou -LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 -Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE -QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK -74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK -nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF -xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH -KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY -uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 -9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr -oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E -iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w -L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U -ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t -Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW -38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs -grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB -TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj -yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL -GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l -TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq -WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw -PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 -/KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx -JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 -qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl -p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx -N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x -hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn -izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE -LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM -rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE -p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 -YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH -FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX -piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz -X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 -+VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO -phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg -9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC -ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU -ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 -HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t -BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF -ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM -mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI -FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM -xZ+NDXq9HfXOhZcGEP8DWaJNdQ== +1:eJwV13c8Vf8fB3Chb5RRZK97rouszBTu9X6HZJS9KcpoSSopZJbR/ApFNknJ +ugcRCqGhPWwZybchiYyQ6nd+f93H849z7j2f83q/Pp9L7D5k78fJwcHBu4yD +4/+fc4PtbYxzhUYl+0zfyK7bbNSRIx66uScWhvuHJPpC5QBFXu4W70kGcV5X +geRQDQixvdXN1VMAB1p5hXaHAqyZEEte6K6EpUA5A8lQGxi6a31oprsFqn0E +v+qd8AIzxtjAVPcb6NjsMPUo+BAsdG+8PNk9Arf35LbJ7omCVpMbha8LpuFP +iviBVawkkB6q+7hb7TfcDZQQsu1Og7UBXrdWmHBh+OwoK3IxB5K1zBqsnXiQ +pbw0mUFcg950zeap1fyYOf3P6N4tRXCuMOolp8QarPoez23qVgxiqR/OpGQL +43/DjPnQZaUgrnr79HyRMMoPGAWWrCwFyZb4qB1sYRxVXDjRLVwKspPKx5Ra +hVGXo3irnGIpKGwL8m74LIyvc18WH7QsBR3u33ofdNaiteDdOO7kUrAJFh3V +frIWobpQSlimDBIcLYzezIlgn3rT8Qh6OUhWv5DkXCaKrOstO2dUyqFc2PGn +1ipR/Nu3lOOrUw5db3ayL8mJ4rMkXyUt03Jg2AXT7cxFUW5dpVGYXzm0bM/9 +59VVUbS3a2p7WlQOv81mXzxniqF2jvdVf0YFJBWFlfw2E8Oj7garVqhVAOMf +jkR1OzFc3Op1L0+nArY9WLn5gp8YVowJDDcZV0CGCa1q20UxlNylLFDmXQGb +0Crt6ZAYPtHeftE4swKO6ud7tceKo0miiH3JcjZY5gnMWJ0Xx1+yrKhOHjbQ +V5xMfHFZHNUmBqqXVrHhVYcz+famOPZf5NY3FmLD+iA+rsEX4vizdF9+sSwb +PhcdL/ohKYGcKYW9X/TY4LnW+ptUlQQmMnxtNPzYoBPeEJNzVwKnKvd5LO5h +w8qRdaLEQwms5Nt7sGU/G+oquECxVwJ3Fxpcswhig6hVXZLmXwl0tOl10g2n +vj+GobvFShKtoie6wpLYYPp9MSzwgyQOS8wde3aHDaHmqSr3xyWx5E+KjFoD +G8rz1fuE5ySx+UPXl8R7bBB39Nav45HCBbP8Sf0WNozfefCTa70USs48rQt9 +yoaU2KTgqyeksEtezS5ogA0jIoqBbfzS6OA0csTgLxvEDjXJiIlJo5LH0U9G +y0jY9tj1+T6aNI4Idp5GLhJqws6pCepIo898q4HhChLODk2OublKo2Pr+XQB +QRK0ixv2fC+Qxi8N2ubqsiTEMO12SW6SwT+XXnJuMyDBfGfOj43GMigRt1xA +kkmCQPTXU07bZPC9dk37KIuErNa4oiRvGcwRnHQI2kzCHcv6r/+ckcFJ7t57 +XuYkTLrKh0z3yuBOrwDDPCcSasOCVqwZlcHA8bwwfRcSIrPupa+fkMHybv+g +l64k8A27NOzjlMWsf21ipjxIUNpznmNYRRa5E/aZCuwmYeex2bPPwmUxp6GQ +vHWQBIU0Y+mxOFm0NWm5IHiIpNbv37IVSbJ48Fq80uEgEsKWlF8ZF8qiSMTX +yypHSbh8aqdI3TNZ9LrMPhBygoRnlx7lXpeRw+njRfuPxJKQUrVWq1VJDvVa +7DyvnSLBvXNXy7CWHPK5kMKvT5PwWXxpVMpMDp/OkJ30BBK48jRVkgPl0Cnu +2+3ccyQYlF+tjmySwzwpDt+/KSSYdr/4PfFYDgs4CZHxVBKsObi3er2RQxGO +wj+dl0nwsQ/shf/k0Dn73sn8NBLMwomo6OU05I76oC2WSUKQ3Ny1zao0rP/o +OheRT8JsVdLjBQ0aetK69xoVUM9nrvqN1KXhZ8m7UkuU4w5769GNaHhf7q3p +oUISMlqfPOa0o6Hqdp4q3RsktO3J/dYaQsOtQ3YnmKUkWCzpC50Mp6H15lNa +rym/SOrQ042mYbLuUx2fMhJ663ijC8/QcG/We5GochImVgULxWXRMFuY5n2F +TcLRPIGNrHwaFkgsHBYhSZjXLfaYvU7DjQuRry9R5to5WOhXQcPl8Z/DYytJ +EGebbzRroeGR+TsXTapJyDb94PHnIQ1/hobJllGm90ZE1zylIdbc4Fh7mwR1 +zqp2xU4aBlaxG3spV17ZPjHYS8MLJa2Zm2pI2KT6WShtkIbKz9jPUykbO8p4 +rvhMQ8fmi9pbakl49Lk2ummchuN1Df5XKW+LsL9+fIqG25UMf4xRdilKmPi0 +SMPrPuw18XdICJifin7MT2BlquDprDrqfR72F/0oRKCGel/FMGWesb4SLnEC +lf+8u0/Uk3C9v7XLiE6gsN6bzAzKwY6bAjyVCBwm9vu9oWz8vHRZmBqBLdZx +4isaSBhsvKx2W49AsZCrRnsol25c2fLGkMDwSKOqZMph7EiXSSSwcKRxbQNl +c+XpcX4zAm9W/PAZpixasCdW1YrAZ82V+Zx3SRiVfCdmYUvgeGPPC4JyZYpt +mb8TgUNyMM6iHM33wPi0O4EfFO4vOlO2idPvyfcikHvI4FcAZdk/ZQebfAmM +Z5yZiKI8HkLnGthHoHHGmc5/Kdd/v5K+GEigRLkkmUU5ce+q9eLBBNqmScUW +UXZ+H9W6IZTAJacAizLKDPcZV4dIAgMqv60gKf94s3ci6BSBscyYxv+72Wrg +1MVEAuWteAMrKF9ss5MovUBg7q+9Yrcoe7IelrcnE8indbohn7JKjYHppzQC +S1PA4wrlhfUVvdzZBO5Miv6ZQPnxDflD9AICJ1zUL4VQvkJL58YbBF4ZVFPe +Tdn3Kl/GjlICsd+/2ZKytlCMRjhJINejVhdNyhznZtvSawiMeac2KUT5Bdd+ +95oGAreInT/7g1rvrJOD3982E6ik80zpJeUDs/ZxUw8IrC3peXyTskHgI0nB +pwSmNmQHRlHm+WTIVntFYJcHj6QD5cIeRv+ePgIzP8bFTVF5OGJ3NShuiEDp +kJCtdynjE/5/ro1S+Rh8JHSa8kDDnObgBIG8abbtKymX6h54+GuayqP/gZp2 +Kn9hZUMeEgsEegqUs+Moi+Y+jnfkouOKd6GvZqj8joqxpI/w0HGrxfjPG5Qr +k0jyX346tki5abpStonNePdEjI5tbkvdFVT+E/0CtDer0fF3wxkZJjU/zoPD +j3Zq0fHr27FP3dS8MVycdpzUo+OfEP6nQZSbzY0Sa5GO1zckDl2l5nVBdfWg +uhMdq38L7min5nsuWzJGx52Oq5Gws6U8I6jA0PeiY7tKYnQH1QcT0/r7TffR +UWe54uUOqj9GGnzm3CPoqDl6kF1F9cuQeuBV71g6aknNXGVQfpd7gumfQMcy +RuTDZKqPuk5diD18iY5yftHj/lRfPbGqFUi8TsdCx+SEiWJq3u/dJy/couO6 +1IRCC8ptGs8cUyroeLDEia/gJgmNwu8zcuqo69WONFtSfVjZv1Lp9nM62tXH +dYX/vy8P7ISRWTqKPn6QsSOHhLSBvSOfFulYtGQ+cCGbhFSbo3Hf/tLxzGxj +WEMWlV+dxKfzvPKo4Zf9RIDq69hfpIugrDye1V/su0z1+YFzy4OYZvIYrVZc +pJhEArOkNO/KFXn8kSlr4R5FQj+tJHdLpjy6vOK9YhVJvd8rxTkzufKYLR5U +ZRBB7ZcxRVn2xfKY06HnIxRO5dc1L13grjw1D1EVN0JIUF6emhT/nro/vaFl +P7UfinqFR4eoMfBzZL28mxsJtztCoxS0GCh98CvzH2p/dbQ8EdmxgYGuSvEm +pDMJyRuOndQGBvpmlUovcySBn+/QiQk7Bl4YrhVPtCaBu253kP9xBjbxX+HR +NSFhSsjS27mFgeW6q3esVCWhJ4D+av8jBmYybjU4KlP5eLgIUc8Y+Gh3+fMs +JRKSwkrkbnYxsOHJu9WKDBI0R/iGFsYYWPVgg56MDAmB5Msd2cIKuP5fiTW5 +AiSM2Th5jPoqYLBsbf3CdzaMnvd2PrJCEX3OeQbYlbIhcEyNrsmniArfVN5t +usWGn1sXvn1brYis4chLsjep8xtXctw+SUV0CB1/NXqNDZqhrdXe6oqonuTW +7JnJhgg/RWEbB0XUD2jf/usMdZ4zGn+pmquIg6v0zy9S50GL78ct/tNTwv88 +tZksCeo85sNztDpqHb4c2XCBr6mc+j8hxpnQoozTqTc/eSqVgdBzxYvs7yp4 +8XrNr8ILJSCdWGGrp6eG5/eRTr31xZCuqr9aeI86dlh+Slm1eAOeSG7eMH1p +PYr80MvkYBWBgXRLkkaXBu7XHbCo9igEAa6C4F2xmnhi8Lrbx/wCkI2RY7op +auG4rtiT9ld5wKvgWWP/SAsLRe+Klm/IgfUsiYrjO7TxoHG87we1TDgyKNRq +yaGDTgqprd+F0+H79Hkni3Qdqu8P6z3ZdRm2ajzMsFDXxe9/ugVNJ5Khcdrw +188Xuugtkye/LSIJAtW0+177bcA1NslftnSeB9aEb4cbrx7u+DBl+vFhImxh +iG/nL9BDbuqX8frEwbrosydaNm7EhFrZ+0IHYkHFT79JoW8jfpvuVl9kRIFf +497T1Yc3YW2RbYrNyTBoyuvwnRLRx8HrWy94iYXAzM2/PzVq9dGFA/hX7joC +PgolvBnbDbDwdj1j7lkgTKmk6FVOGuCrz1mNl8z3wZ3CX+9nEw3xRu2D+x/G +fMHdVB4NZZl46fih1QPmu+B3B49AK42Jpk2g7WuwC/L8Jvot5Zn4rkVraFZ1 +F3yMrzvuvo6J4t5v728S3AVH2m0qQrWZOH90+rdhlzectT4pe8eMiTejiHlt +f2+od+1c0j3ERNsqIYPDUl4gdTChbn0zE4uiT+eVT3vAxb/+G861MDF1ykoD +BjyAM9mM/NTGxHz36rNDDz1grGZ5cV47E62tl52yyfCAeo7T6UJvmbiSKyr8 +62YPcE+NPj73HxMNBwRurEp1h/SG0A2Nq1jYtib5eLmJG4isDCC3u7Awgjj2 +5fILZyg0iQibdGPhLX56WlGdM2hHXDRJ8WRhXf9HeFzoDNaT7M6eXSxM15x2 +NAp3hviu2QWfABb+FPqwfWadM8wXRBmHxbDQ1ZWVEpHgBH2GKW+LSli4zGeZ +ea2tI+w9VphlUc5ClTSTlNcsR5grv+03zmbh6rrGY79UHEGI3vNTq4aF49Lb +OiOWO4IVj4z0vWYW6gf7vTFscIC7HUW+bztZ+Oqe6tEUZQewFLijHtLDwlWa +zZoFYg7Qs7V9TryfhebZt/qbljvATP3XxJ3DLAxWbX2pNGIP6vmaZV/GWGjY +Ns9fnGkPd/s2h5z/xkKRGH7h9WftwXKtA2hMsjC/Jq7y/gl78E849jp4loXF +c+fS1jrbw0xzfIbYPAu7J7IevzW1h9jFNJ/6RRZ66YsdyNexh9W6xWo7frPw +Xkx7cATdHnIO1s/+/cvC+bqE/j1r7OF/lvSP2Q== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "PlotRange" -> {{0, 30}, {0., 0.06928549672123732}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7617,6 +6951,7 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -7644,7 +6979,8 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.15142054732361562`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06928549672123732}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -7652,11 +6988,12 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.99134491550045*^9}, - CellLabel-> - "Out[418]=",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] + CellChangeTimes->{3.99134491550045*^9, 3.994257577824082*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"ea93db66-4310-42e9-a531-bdbb15ba1d47"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", @@ -7725,15 +7062,792 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"30", ",", "0.003631"}], "}"}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, - 3.994084079302889*^9},ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-\ -b938908ab9a4"], + 3.994084079302889*^9}, + CellLabel->"In[96]:=",ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-b938908ab9a4"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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->{ + "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.060284}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994257578071601*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"bd13faed-18f7-48a1-8ce8-c3ee2dba699b"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"6b0777bb-40fd-b54e-aa03-\ -b6e82cb2e939"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"6b0777bb-40fd-b54e-aa03-b6e82cb2e939"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8Vf8fB3Chb5RRZK97rouszBTu9X6HZJS9KcpoSSopZJbR/ApFNknJ +ugcRCqGhPWwZybchiYyQ6nd+f93H849z7j2f83q/Pp9L7D5k78fJwcHBu4yD +4/+fc4PtbYxzhUYl+0zfyK7bbNSRIx66uScWhvuHJPpC5QBFXu4W70kGcV5X +geRQDQixvdXN1VMAB1p5hXaHAqyZEEte6K6EpUA5A8lQGxi6a31oprsFqn0E +v+qd8AIzxtjAVPcb6NjsMPUo+BAsdG+8PNk9Arf35LbJ7omCVpMbha8LpuFP +iviBVawkkB6q+7hb7TfcDZQQsu1Og7UBXrdWmHBh+OwoK3IxB5K1zBqsnXiQ +pbw0mUFcg950zeap1fyYOf3P6N4tRXCuMOolp8QarPoez23qVgxiqR/OpGQL +43/DjPnQZaUgrnr79HyRMMoPGAWWrCwFyZb4qB1sYRxVXDjRLVwKspPKx5Ra +hVGXo3irnGIpKGwL8m74LIyvc18WH7QsBR3u33ofdNaiteDdOO7kUrAJFh3V +frIWobpQSlimDBIcLYzezIlgn3rT8Qh6OUhWv5DkXCaKrOstO2dUyqFc2PGn +1ipR/Nu3lOOrUw5db3ayL8mJ4rMkXyUt03Jg2AXT7cxFUW5dpVGYXzm0bM/9 +59VVUbS3a2p7WlQOv81mXzxniqF2jvdVf0YFJBWFlfw2E8Oj7garVqhVAOMf +jkR1OzFc3Op1L0+nArY9WLn5gp8YVowJDDcZV0CGCa1q20UxlNylLFDmXQGb +0Crt6ZAYPtHeftE4swKO6ud7tceKo0miiH3JcjZY5gnMWJ0Xx1+yrKhOHjbQ +V5xMfHFZHNUmBqqXVrHhVYcz+famOPZf5NY3FmLD+iA+rsEX4vizdF9+sSwb +PhcdL/ohKYGcKYW9X/TY4LnW+ptUlQQmMnxtNPzYoBPeEJNzVwKnKvd5LO5h +w8qRdaLEQwms5Nt7sGU/G+oquECxVwJ3Fxpcswhig6hVXZLmXwl0tOl10g2n +vj+GobvFShKtoie6wpLYYPp9MSzwgyQOS8wde3aHDaHmqSr3xyWx5E+KjFoD +G8rz1fuE5ySx+UPXl8R7bBB39Nav45HCBbP8Sf0WNozfefCTa70USs48rQt9 +yoaU2KTgqyeksEtezS5ogA0jIoqBbfzS6OA0csTgLxvEDjXJiIlJo5LH0U9G +y0jY9tj1+T6aNI4Idp5GLhJqws6pCepIo898q4HhChLODk2OublKo2Pr+XQB +QRK0ixv2fC+Qxi8N2ubqsiTEMO12SW6SwT+XXnJuMyDBfGfOj43GMigRt1xA +kkmCQPTXU07bZPC9dk37KIuErNa4oiRvGcwRnHQI2kzCHcv6r/+ckcFJ7t57 +XuYkTLrKh0z3yuBOrwDDPCcSasOCVqwZlcHA8bwwfRcSIrPupa+fkMHybv+g +l64k8A27NOzjlMWsf21ipjxIUNpznmNYRRa5E/aZCuwmYeex2bPPwmUxp6GQ +vHWQBIU0Y+mxOFm0NWm5IHiIpNbv37IVSbJ48Fq80uEgEsKWlF8ZF8qiSMTX +yypHSbh8aqdI3TNZ9LrMPhBygoRnlx7lXpeRw+njRfuPxJKQUrVWq1VJDvVa +7DyvnSLBvXNXy7CWHPK5kMKvT5PwWXxpVMpMDp/OkJ30BBK48jRVkgPl0Cnu +2+3ccyQYlF+tjmySwzwpDt+/KSSYdr/4PfFYDgs4CZHxVBKsObi3er2RQxGO +wj+dl0nwsQ/shf/k0Dn73sn8NBLMwomo6OU05I76oC2WSUKQ3Ny1zao0rP/o +OheRT8JsVdLjBQ0aetK69xoVUM9nrvqN1KXhZ8m7UkuU4w5769GNaHhf7q3p +oUISMlqfPOa0o6Hqdp4q3RsktO3J/dYaQsOtQ3YnmKUkWCzpC50Mp6H15lNa +rym/SOrQ042mYbLuUx2fMhJ663ijC8/QcG/We5GochImVgULxWXRMFuY5n2F +TcLRPIGNrHwaFkgsHBYhSZjXLfaYvU7DjQuRry9R5to5WOhXQcPl8Z/DYytJ +EGebbzRroeGR+TsXTapJyDb94PHnIQ1/hobJllGm90ZE1zylIdbc4Fh7mwR1 +zqp2xU4aBlaxG3spV17ZPjHYS8MLJa2Zm2pI2KT6WShtkIbKz9jPUykbO8p4 +rvhMQ8fmi9pbakl49Lk2ummchuN1Df5XKW+LsL9+fIqG25UMf4xRdilKmPi0 +SMPrPuw18XdICJifin7MT2BlquDprDrqfR72F/0oRKCGel/FMGWesb4SLnEC +lf+8u0/Uk3C9v7XLiE6gsN6bzAzKwY6bAjyVCBwm9vu9oWz8vHRZmBqBLdZx +4isaSBhsvKx2W49AsZCrRnsol25c2fLGkMDwSKOqZMph7EiXSSSwcKRxbQNl +c+XpcX4zAm9W/PAZpixasCdW1YrAZ82V+Zx3SRiVfCdmYUvgeGPPC4JyZYpt +mb8TgUNyMM6iHM33wPi0O4EfFO4vOlO2idPvyfcikHvI4FcAZdk/ZQebfAmM +Z5yZiKI8HkLnGthHoHHGmc5/Kdd/v5K+GEigRLkkmUU5ce+q9eLBBNqmScUW +UXZ+H9W6IZTAJacAizLKDPcZV4dIAgMqv60gKf94s3ci6BSBscyYxv+72Wrg +1MVEAuWteAMrKF9ss5MovUBg7q+9Yrcoe7IelrcnE8indbohn7JKjYHppzQC +S1PA4wrlhfUVvdzZBO5Miv6ZQPnxDflD9AICJ1zUL4VQvkJL58YbBF4ZVFPe +Tdn3Kl/GjlICsd+/2ZKytlCMRjhJINejVhdNyhznZtvSawiMeac2KUT5Bdd+ +95oGAreInT/7g1rvrJOD3982E6ik80zpJeUDs/ZxUw8IrC3peXyTskHgI0nB +pwSmNmQHRlHm+WTIVntFYJcHj6QD5cIeRv+ePgIzP8bFTVF5OGJ3NShuiEDp +kJCtdynjE/5/ro1S+Rh8JHSa8kDDnObgBIG8abbtKymX6h54+GuayqP/gZp2 +Kn9hZUMeEgsEegqUs+Moi+Y+jnfkouOKd6GvZqj8joqxpI/w0HGrxfjPG5Qr +k0jyX346tki5abpStonNePdEjI5tbkvdFVT+E/0CtDer0fF3wxkZJjU/zoPD +j3Zq0fHr27FP3dS8MVycdpzUo+OfEP6nQZSbzY0Sa5GO1zckDl2l5nVBdfWg +uhMdq38L7min5nsuWzJGx52Oq5Gws6U8I6jA0PeiY7tKYnQH1QcT0/r7TffR +UWe54uUOqj9GGnzm3CPoqDl6kF1F9cuQeuBV71g6aknNXGVQfpd7gumfQMcy +RuTDZKqPuk5diD18iY5yftHj/lRfPbGqFUi8TsdCx+SEiWJq3u/dJy/couO6 +1IRCC8ptGs8cUyroeLDEia/gJgmNwu8zcuqo69WONFtSfVjZv1Lp9nM62tXH +dYX/vy8P7ISRWTqKPn6QsSOHhLSBvSOfFulYtGQ+cCGbhFSbo3Hf/tLxzGxj +WEMWlV+dxKfzvPKo4Zf9RIDq69hfpIugrDye1V/su0z1+YFzy4OYZvIYrVZc +pJhEArOkNO/KFXn8kSlr4R5FQj+tJHdLpjy6vOK9YhVJvd8rxTkzufKYLR5U +ZRBB7ZcxRVn2xfKY06HnIxRO5dc1L13grjw1D1EVN0JIUF6emhT/nro/vaFl +P7UfinqFR4eoMfBzZL28mxsJtztCoxS0GCh98CvzH2p/dbQ8EdmxgYGuSvEm +pDMJyRuOndQGBvpmlUovcySBn+/QiQk7Bl4YrhVPtCaBu253kP9xBjbxX+HR +NSFhSsjS27mFgeW6q3esVCWhJ4D+av8jBmYybjU4KlP5eLgIUc8Y+Gh3+fMs +JRKSwkrkbnYxsOHJu9WKDBI0R/iGFsYYWPVgg56MDAmB5Msd2cIKuP5fiTW5 +AiSM2Th5jPoqYLBsbf3CdzaMnvd2PrJCEX3OeQbYlbIhcEyNrsmniArfVN5t +usWGn1sXvn1brYis4chLsjep8xtXctw+SUV0CB1/NXqNDZqhrdXe6oqonuTW +7JnJhgg/RWEbB0XUD2jf/usMdZ4zGn+pmquIg6v0zy9S50GL78ct/tNTwv88 +tZksCeo85sNztDpqHb4c2XCBr6mc+j8hxpnQoozTqTc/eSqVgdBzxYvs7yp4 +8XrNr8ILJSCdWGGrp6eG5/eRTr31xZCuqr9aeI86dlh+Slm1eAOeSG7eMH1p +PYr80MvkYBWBgXRLkkaXBu7XHbCo9igEAa6C4F2xmnhi8Lrbx/wCkI2RY7op +auG4rtiT9ld5wKvgWWP/SAsLRe+Klm/IgfUsiYrjO7TxoHG87we1TDgyKNRq +yaGDTgqprd+F0+H79Hkni3Qdqu8P6z3ZdRm2ajzMsFDXxe9/ugVNJ5Khcdrw +188Xuugtkye/LSIJAtW0+177bcA1NslftnSeB9aEb4cbrx7u+DBl+vFhImxh +iG/nL9BDbuqX8frEwbrosydaNm7EhFrZ+0IHYkHFT79JoW8jfpvuVl9kRIFf +497T1Yc3YW2RbYrNyTBoyuvwnRLRx8HrWy94iYXAzM2/PzVq9dGFA/hX7joC +PgolvBnbDbDwdj1j7lkgTKmk6FVOGuCrz1mNl8z3wZ3CX+9nEw3xRu2D+x/G +fMHdVB4NZZl46fih1QPmu+B3B49AK42Jpk2g7WuwC/L8Jvot5Zn4rkVraFZ1 +F3yMrzvuvo6J4t5v728S3AVH2m0qQrWZOH90+rdhlzectT4pe8eMiTejiHlt +f2+od+1c0j3ERNsqIYPDUl4gdTChbn0zE4uiT+eVT3vAxb/+G861MDF1ykoD +BjyAM9mM/NTGxHz36rNDDz1grGZ5cV47E62tl52yyfCAeo7T6UJvmbiSKyr8 +62YPcE+NPj73HxMNBwRurEp1h/SG0A2Nq1jYtib5eLmJG4isDCC3u7Awgjj2 +5fILZyg0iQibdGPhLX56WlGdM2hHXDRJ8WRhXf9HeFzoDNaT7M6eXSxM15x2 +NAp3hviu2QWfABb+FPqwfWadM8wXRBmHxbDQ1ZWVEpHgBH2GKW+LSli4zGeZ +ea2tI+w9VphlUc5ClTSTlNcsR5grv+03zmbh6rrGY79UHEGI3vNTq4aF49Lb +OiOWO4IVj4z0vWYW6gf7vTFscIC7HUW+bztZ+Oqe6tEUZQewFLijHtLDwlWa +zZoFYg7Qs7V9TryfhebZt/qbljvATP3XxJ3DLAxWbX2pNGIP6vmaZV/GWGjY +Ns9fnGkPd/s2h5z/xkKRGH7h9WftwXKtA2hMsjC/Jq7y/gl78E849jp4loXF +c+fS1jrbw0xzfIbYPAu7J7IevzW1h9jFNJ/6RRZ66YsdyNexh9W6xWo7frPw +Xkx7cATdHnIO1s/+/cvC+bqE/j1r7OF/lvSP2Q== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3Chb5RRZK97rouszBTu9X6HZJS9KcpoSSopZJbR/ApFNknJ +ugcRCqGhPWwZybchiYyQ6nd+f93H849z7j2f83q/Pp9L7D5k78fJwcHBu4yD +4/+fc4PtbYxzhUYl+0zfyK7bbNSRIx66uScWhvuHJPpC5QBFXu4W70kGcV5X +geRQDQixvdXN1VMAB1p5hXaHAqyZEEte6K6EpUA5A8lQGxi6a31oprsFqn0E +v+qd8AIzxtjAVPcb6NjsMPUo+BAsdG+8PNk9Arf35LbJ7omCVpMbha8LpuFP +iviBVawkkB6q+7hb7TfcDZQQsu1Og7UBXrdWmHBh+OwoK3IxB5K1zBqsnXiQ +pbw0mUFcg950zeap1fyYOf3P6N4tRXCuMOolp8QarPoez23qVgxiqR/OpGQL +43/DjPnQZaUgrnr79HyRMMoPGAWWrCwFyZb4qB1sYRxVXDjRLVwKspPKx5Ra +hVGXo3irnGIpKGwL8m74LIyvc18WH7QsBR3u33ofdNaiteDdOO7kUrAJFh3V +frIWobpQSlimDBIcLYzezIlgn3rT8Qh6OUhWv5DkXCaKrOstO2dUyqFc2PGn +1ipR/Nu3lOOrUw5db3ayL8mJ4rMkXyUt03Jg2AXT7cxFUW5dpVGYXzm0bM/9 +59VVUbS3a2p7WlQOv81mXzxniqF2jvdVf0YFJBWFlfw2E8Oj7garVqhVAOMf +jkR1OzFc3Op1L0+nArY9WLn5gp8YVowJDDcZV0CGCa1q20UxlNylLFDmXQGb +0Crt6ZAYPtHeftE4swKO6ud7tceKo0miiH3JcjZY5gnMWJ0Xx1+yrKhOHjbQ +V5xMfHFZHNUmBqqXVrHhVYcz+famOPZf5NY3FmLD+iA+rsEX4vizdF9+sSwb +PhcdL/ohKYGcKYW9X/TY4LnW+ptUlQQmMnxtNPzYoBPeEJNzVwKnKvd5LO5h +w8qRdaLEQwms5Nt7sGU/G+oquECxVwJ3Fxpcswhig6hVXZLmXwl0tOl10g2n +vj+GobvFShKtoie6wpLYYPp9MSzwgyQOS8wde3aHDaHmqSr3xyWx5E+KjFoD +G8rz1fuE5ySx+UPXl8R7bBB39Nav45HCBbP8Sf0WNozfefCTa70USs48rQt9 +yoaU2KTgqyeksEtezS5ogA0jIoqBbfzS6OA0csTgLxvEDjXJiIlJo5LH0U9G +y0jY9tj1+T6aNI4Idp5GLhJqws6pCepIo898q4HhChLODk2OublKo2Pr+XQB +QRK0ixv2fC+Qxi8N2ubqsiTEMO12SW6SwT+XXnJuMyDBfGfOj43GMigRt1xA +kkmCQPTXU07bZPC9dk37KIuErNa4oiRvGcwRnHQI2kzCHcv6r/+ckcFJ7t57 +XuYkTLrKh0z3yuBOrwDDPCcSasOCVqwZlcHA8bwwfRcSIrPupa+fkMHybv+g +l64k8A27NOzjlMWsf21ipjxIUNpznmNYRRa5E/aZCuwmYeex2bPPwmUxp6GQ +vHWQBIU0Y+mxOFm0NWm5IHiIpNbv37IVSbJ48Fq80uEgEsKWlF8ZF8qiSMTX +yypHSbh8aqdI3TNZ9LrMPhBygoRnlx7lXpeRw+njRfuPxJKQUrVWq1VJDvVa +7DyvnSLBvXNXy7CWHPK5kMKvT5PwWXxpVMpMDp/OkJ30BBK48jRVkgPl0Cnu +2+3ccyQYlF+tjmySwzwpDt+/KSSYdr/4PfFYDgs4CZHxVBKsObi3er2RQxGO +wj+dl0nwsQ/shf/k0Dn73sn8NBLMwomo6OU05I76oC2WSUKQ3Ny1zao0rP/o +OheRT8JsVdLjBQ0aetK69xoVUM9nrvqN1KXhZ8m7UkuU4w5769GNaHhf7q3p +oUISMlqfPOa0o6Hqdp4q3RsktO3J/dYaQsOtQ3YnmKUkWCzpC50Mp6H15lNa +rym/SOrQ042mYbLuUx2fMhJ663ijC8/QcG/We5GochImVgULxWXRMFuY5n2F +TcLRPIGNrHwaFkgsHBYhSZjXLfaYvU7DjQuRry9R5to5WOhXQcPl8Z/DYytJ +EGebbzRroeGR+TsXTapJyDb94PHnIQ1/hobJllGm90ZE1zylIdbc4Fh7mwR1 +zqp2xU4aBlaxG3spV17ZPjHYS8MLJa2Zm2pI2KT6WShtkIbKz9jPUykbO8p4 +rvhMQ8fmi9pbakl49Lk2ummchuN1Df5XKW+LsL9+fIqG25UMf4xRdilKmPi0 +SMPrPuw18XdICJifin7MT2BlquDprDrqfR72F/0oRKCGel/FMGWesb4SLnEC +lf+8u0/Uk3C9v7XLiE6gsN6bzAzKwY6bAjyVCBwm9vu9oWz8vHRZmBqBLdZx +4isaSBhsvKx2W49AsZCrRnsol25c2fLGkMDwSKOqZMph7EiXSSSwcKRxbQNl +c+XpcX4zAm9W/PAZpixasCdW1YrAZ82V+Zx3SRiVfCdmYUvgeGPPC4JyZYpt +mb8TgUNyMM6iHM33wPi0O4EfFO4vOlO2idPvyfcikHvI4FcAZdk/ZQebfAmM +Z5yZiKI8HkLnGthHoHHGmc5/Kdd/v5K+GEigRLkkmUU5ce+q9eLBBNqmScUW +UXZ+H9W6IZTAJacAizLKDPcZV4dIAgMqv60gKf94s3ci6BSBscyYxv+72Wrg +1MVEAuWteAMrKF9ss5MovUBg7q+9Yrcoe7IelrcnE8indbohn7JKjYHppzQC +S1PA4wrlhfUVvdzZBO5Miv6ZQPnxDflD9AICJ1zUL4VQvkJL58YbBF4ZVFPe +Tdn3Kl/GjlICsd+/2ZKytlCMRjhJINejVhdNyhznZtvSawiMeac2KUT5Bdd+ +95oGAreInT/7g1rvrJOD3982E6ik80zpJeUDs/ZxUw8IrC3peXyTskHgI0nB +pwSmNmQHRlHm+WTIVntFYJcHj6QD5cIeRv+ePgIzP8bFTVF5OGJ3NShuiEDp +kJCtdynjE/5/ro1S+Rh8JHSa8kDDnObgBIG8abbtKymX6h54+GuayqP/gZp2 +Kn9hZUMeEgsEegqUs+Moi+Y+jnfkouOKd6GvZqj8joqxpI/w0HGrxfjPG5Qr +k0jyX346tki5abpStonNePdEjI5tbkvdFVT+E/0CtDer0fF3wxkZJjU/zoPD +j3Zq0fHr27FP3dS8MVycdpzUo+OfEP6nQZSbzY0Sa5GO1zckDl2l5nVBdfWg +uhMdq38L7min5nsuWzJGx52Oq5Gws6U8I6jA0PeiY7tKYnQH1QcT0/r7TffR +UWe54uUOqj9GGnzm3CPoqDl6kF1F9cuQeuBV71g6aknNXGVQfpd7gumfQMcy +RuTDZKqPuk5diD18iY5yftHj/lRfPbGqFUi8TsdCx+SEiWJq3u/dJy/couO6 +1IRCC8ptGs8cUyroeLDEia/gJgmNwu8zcuqo69WONFtSfVjZv1Lp9nM62tXH +dYX/vy8P7ISRWTqKPn6QsSOHhLSBvSOfFulYtGQ+cCGbhFSbo3Hf/tLxzGxj +WEMWlV+dxKfzvPKo4Zf9RIDq69hfpIugrDye1V/su0z1+YFzy4OYZvIYrVZc +pJhEArOkNO/KFXn8kSlr4R5FQj+tJHdLpjy6vOK9YhVJvd8rxTkzufKYLR5U +ZRBB7ZcxRVn2xfKY06HnIxRO5dc1L13grjw1D1EVN0JIUF6emhT/nro/vaFl +P7UfinqFR4eoMfBzZL28mxsJtztCoxS0GCh98CvzH2p/dbQ8EdmxgYGuSvEm +pDMJyRuOndQGBvpmlUovcySBn+/QiQk7Bl4YrhVPtCaBu253kP9xBjbxX+HR +NSFhSsjS27mFgeW6q3esVCWhJ4D+av8jBmYybjU4KlP5eLgIUc8Y+Gh3+fMs +JRKSwkrkbnYxsOHJu9WKDBI0R/iGFsYYWPVgg56MDAmB5Msd2cIKuP5fiTW5 +AiSM2Th5jPoqYLBsbf3CdzaMnvd2PrJCEX3OeQbYlbIhcEyNrsmniArfVN5t +usWGn1sXvn1brYis4chLsjep8xtXctw+SUV0CB1/NXqNDZqhrdXe6oqonuTW +7JnJhgg/RWEbB0XUD2jf/usMdZ4zGn+pmquIg6v0zy9S50GL78ct/tNTwv88 +tZksCeo85sNztDpqHb4c2XCBr6mc+j8hxpnQoozTqTc/eSqVgdBzxYvs7yp4 +8XrNr8ILJSCdWGGrp6eG5/eRTr31xZCuqr9aeI86dlh+Slm1eAOeSG7eMH1p +PYr80MvkYBWBgXRLkkaXBu7XHbCo9igEAa6C4F2xmnhi8Lrbx/wCkI2RY7op +auG4rtiT9ld5wKvgWWP/SAsLRe+Klm/IgfUsiYrjO7TxoHG87we1TDgyKNRq +yaGDTgqprd+F0+H79Hkni3Qdqu8P6z3ZdRm2ajzMsFDXxe9/ugVNJ5Khcdrw +188Xuugtkye/LSIJAtW0+177bcA1NslftnSeB9aEb4cbrx7u+DBl+vFhImxh +iG/nL9BDbuqX8frEwbrosydaNm7EhFrZ+0IHYkHFT79JoW8jfpvuVl9kRIFf +497T1Yc3YW2RbYrNyTBoyuvwnRLRx8HrWy94iYXAzM2/PzVq9dGFA/hX7joC +PgolvBnbDbDwdj1j7lkgTKmk6FVOGuCrz1mNl8z3wZ3CX+9nEw3xRu2D+x/G +fMHdVB4NZZl46fih1QPmu+B3B49AK42Jpk2g7WuwC/L8Jvot5Zn4rkVraFZ1 +F3yMrzvuvo6J4t5v728S3AVH2m0qQrWZOH90+rdhlzectT4pe8eMiTejiHlt +f2+od+1c0j3ERNsqIYPDUl4gdTChbn0zE4uiT+eVT3vAxb/+G861MDF1ykoD +BjyAM9mM/NTGxHz36rNDDz1grGZ5cV47E62tl52yyfCAeo7T6UJvmbiSKyr8 +62YPcE+NPj73HxMNBwRurEp1h/SG0A2Nq1jYtib5eLmJG4isDCC3u7Awgjj2 +5fILZyg0iQibdGPhLX56WlGdM2hHXDRJ8WRhXf9HeFzoDNaT7M6eXSxM15x2 +NAp3hviu2QWfABb+FPqwfWadM8wXRBmHxbDQ1ZWVEpHgBH2GKW+LSli4zGeZ +ea2tI+w9VphlUc5ClTSTlNcsR5grv+03zmbh6rrGY79UHEGI3vNTq4aF49Lb +OiOWO4IVj4z0vWYW6gf7vTFscIC7HUW+bztZ+Oqe6tEUZQewFLijHtLDwlWa +zZoFYg7Qs7V9TryfhebZt/qbljvATP3XxJ3DLAxWbX2pNGIP6vmaZV/GWGjY +Ns9fnGkPd/s2h5z/xkKRGH7h9WftwXKtA2hMsjC/Jq7y/gl78E849jp4loXF +c+fS1jrbw0xzfIbYPAu7J7IevzW1h9jFNJ/6RRZ66YsdyNexh9W6xWo7frPw +Xkx7cATdHnIO1s/+/cvC+bqE/j1r7OF/lvSP2Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06928549672123732}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06928549672123732}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3Chb5RRZK97rouszBTu9X6HZJS9KcpoSSopZJbR/ApFNknJ +ugcRCqGhPWwZybchiYyQ6nd+f93H849z7j2f83q/Pp9L7D5k78fJwcHBu4yD +4/+fc4PtbYxzhUYl+0zfyK7bbNSRIx66uScWhvuHJPpC5QBFXu4W70kGcV5X +geRQDQixvdXN1VMAB1p5hXaHAqyZEEte6K6EpUA5A8lQGxi6a31oprsFqn0E +v+qd8AIzxtjAVPcb6NjsMPUo+BAsdG+8PNk9Arf35LbJ7omCVpMbha8LpuFP +iviBVawkkB6q+7hb7TfcDZQQsu1Og7UBXrdWmHBh+OwoK3IxB5K1zBqsnXiQ +pbw0mUFcg950zeap1fyYOf3P6N4tRXCuMOolp8QarPoez23qVgxiqR/OpGQL +43/DjPnQZaUgrnr79HyRMMoPGAWWrCwFyZb4qB1sYRxVXDjRLVwKspPKx5Ra +hVGXo3irnGIpKGwL8m74LIyvc18WH7QsBR3u33ofdNaiteDdOO7kUrAJFh3V +frIWobpQSlimDBIcLYzezIlgn3rT8Qh6OUhWv5DkXCaKrOstO2dUyqFc2PGn +1ipR/Nu3lOOrUw5db3ayL8mJ4rMkXyUt03Jg2AXT7cxFUW5dpVGYXzm0bM/9 +59VVUbS3a2p7WlQOv81mXzxniqF2jvdVf0YFJBWFlfw2E8Oj7garVqhVAOMf +jkR1OzFc3Op1L0+nArY9WLn5gp8YVowJDDcZV0CGCa1q20UxlNylLFDmXQGb +0Crt6ZAYPtHeftE4swKO6ud7tceKo0miiH3JcjZY5gnMWJ0Xx1+yrKhOHjbQ +V5xMfHFZHNUmBqqXVrHhVYcz+famOPZf5NY3FmLD+iA+rsEX4vizdF9+sSwb +PhcdL/ohKYGcKYW9X/TY4LnW+ptUlQQmMnxtNPzYoBPeEJNzVwKnKvd5LO5h +w8qRdaLEQwms5Nt7sGU/G+oquECxVwJ3Fxpcswhig6hVXZLmXwl0tOl10g2n +vj+GobvFShKtoie6wpLYYPp9MSzwgyQOS8wde3aHDaHmqSr3xyWx5E+KjFoD +G8rz1fuE5ySx+UPXl8R7bBB39Nav45HCBbP8Sf0WNozfefCTa70USs48rQt9 +yoaU2KTgqyeksEtezS5ogA0jIoqBbfzS6OA0csTgLxvEDjXJiIlJo5LH0U9G +y0jY9tj1+T6aNI4Idp5GLhJqws6pCepIo898q4HhChLODk2OublKo2Pr+XQB +QRK0ixv2fC+Qxi8N2ubqsiTEMO12SW6SwT+XXnJuMyDBfGfOj43GMigRt1xA +kkmCQPTXU07bZPC9dk37KIuErNa4oiRvGcwRnHQI2kzCHcv6r/+ckcFJ7t57 +XuYkTLrKh0z3yuBOrwDDPCcSasOCVqwZlcHA8bwwfRcSIrPupa+fkMHybv+g +l64k8A27NOzjlMWsf21ipjxIUNpznmNYRRa5E/aZCuwmYeex2bPPwmUxp6GQ +vHWQBIU0Y+mxOFm0NWm5IHiIpNbv37IVSbJ48Fq80uEgEsKWlF8ZF8qiSMTX +yypHSbh8aqdI3TNZ9LrMPhBygoRnlx7lXpeRw+njRfuPxJKQUrVWq1VJDvVa +7DyvnSLBvXNXy7CWHPK5kMKvT5PwWXxpVMpMDp/OkJ30BBK48jRVkgPl0Cnu +2+3ccyQYlF+tjmySwzwpDt+/KSSYdr/4PfFYDgs4CZHxVBKsObi3er2RQxGO +wj+dl0nwsQ/shf/k0Dn73sn8NBLMwomo6OU05I76oC2WSUKQ3Ny1zao0rP/o +OheRT8JsVdLjBQ0aetK69xoVUM9nrvqN1KXhZ8m7UkuU4w5769GNaHhf7q3p +oUISMlqfPOa0o6Hqdp4q3RsktO3J/dYaQsOtQ3YnmKUkWCzpC50Mp6H15lNa +rym/SOrQ042mYbLuUx2fMhJ663ijC8/QcG/We5GochImVgULxWXRMFuY5n2F +TcLRPIGNrHwaFkgsHBYhSZjXLfaYvU7DjQuRry9R5to5WOhXQcPl8Z/DYytJ +EGebbzRroeGR+TsXTapJyDb94PHnIQ1/hobJllGm90ZE1zylIdbc4Fh7mwR1 +zqp2xU4aBlaxG3spV17ZPjHYS8MLJa2Zm2pI2KT6WShtkIbKz9jPUykbO8p4 +rvhMQ8fmi9pbakl49Lk2ummchuN1Df5XKW+LsL9+fIqG25UMf4xRdilKmPi0 +SMPrPuw18XdICJifin7MT2BlquDprDrqfR72F/0oRKCGel/FMGWesb4SLnEC +lf+8u0/Uk3C9v7XLiE6gsN6bzAzKwY6bAjyVCBwm9vu9oWz8vHRZmBqBLdZx +4isaSBhsvKx2W49AsZCrRnsol25c2fLGkMDwSKOqZMph7EiXSSSwcKRxbQNl +c+XpcX4zAm9W/PAZpixasCdW1YrAZ82V+Zx3SRiVfCdmYUvgeGPPC4JyZYpt +mb8TgUNyMM6iHM33wPi0O4EfFO4vOlO2idPvyfcikHvI4FcAZdk/ZQebfAmM +Z5yZiKI8HkLnGthHoHHGmc5/Kdd/v5K+GEigRLkkmUU5ce+q9eLBBNqmScUW +UXZ+H9W6IZTAJacAizLKDPcZV4dIAgMqv60gKf94s3ci6BSBscyYxv+72Wrg +1MVEAuWteAMrKF9ss5MovUBg7q+9Yrcoe7IelrcnE8indbohn7JKjYHppzQC +S1PA4wrlhfUVvdzZBO5Miv6ZQPnxDflD9AICJ1zUL4VQvkJL58YbBF4ZVFPe +Tdn3Kl/GjlICsd+/2ZKytlCMRjhJINejVhdNyhznZtvSawiMeac2KUT5Bdd+ +95oGAreInT/7g1rvrJOD3982E6ik80zpJeUDs/ZxUw8IrC3peXyTskHgI0nB +pwSmNmQHRlHm+WTIVntFYJcHj6QD5cIeRv+ePgIzP8bFTVF5OGJ3NShuiEDp +kJCtdynjE/5/ro1S+Rh8JHSa8kDDnObgBIG8abbtKymX6h54+GuayqP/gZp2 +Kn9hZUMeEgsEegqUs+Moi+Y+jnfkouOKd6GvZqj8joqxpI/w0HGrxfjPG5Qr +k0jyX346tki5abpStonNePdEjI5tbkvdFVT+E/0CtDer0fF3wxkZJjU/zoPD +j3Zq0fHr27FP3dS8MVycdpzUo+OfEP6nQZSbzY0Sa5GO1zckDl2l5nVBdfWg +uhMdq38L7min5nsuWzJGx52Oq5Gws6U8I6jA0PeiY7tKYnQH1QcT0/r7TffR +UWe54uUOqj9GGnzm3CPoqDl6kF1F9cuQeuBV71g6aknNXGVQfpd7gumfQMcy +RuTDZKqPuk5diD18iY5yftHj/lRfPbGqFUi8TsdCx+SEiWJq3u/dJy/couO6 +1IRCC8ptGs8cUyroeLDEia/gJgmNwu8zcuqo69WONFtSfVjZv1Lp9nM62tXH +dYX/vy8P7ISRWTqKPn6QsSOHhLSBvSOfFulYtGQ+cCGbhFSbo3Hf/tLxzGxj +WEMWlV+dxKfzvPKo4Zf9RIDq69hfpIugrDye1V/su0z1+YFzy4OYZvIYrVZc +pJhEArOkNO/KFXn8kSlr4R5FQj+tJHdLpjy6vOK9YhVJvd8rxTkzufKYLR5U +ZRBB7ZcxRVn2xfKY06HnIxRO5dc1L13grjw1D1EVN0JIUF6emhT/nro/vaFl +P7UfinqFR4eoMfBzZL28mxsJtztCoxS0GCh98CvzH2p/dbQ8EdmxgYGuSvEm +pDMJyRuOndQGBvpmlUovcySBn+/QiQk7Bl4YrhVPtCaBu253kP9xBjbxX+HR +NSFhSsjS27mFgeW6q3esVCWhJ4D+av8jBmYybjU4KlP5eLgIUc8Y+Gh3+fMs +JRKSwkrkbnYxsOHJu9WKDBI0R/iGFsYYWPVgg56MDAmB5Msd2cIKuP5fiTW5 +AiSM2Th5jPoqYLBsbf3CdzaMnvd2PrJCEX3OeQbYlbIhcEyNrsmniArfVN5t +usWGn1sXvn1brYis4chLsjep8xtXctw+SUV0CB1/NXqNDZqhrdXe6oqonuTW +7JnJhgg/RWEbB0XUD2jf/usMdZ4zGn+pmquIg6v0zy9S50GL78ct/tNTwv88 +tZksCeo85sNztDpqHb4c2XCBr6mc+j8hxpnQoozTqTc/eSqVgdBzxYvs7yp4 +8XrNr8ILJSCdWGGrp6eG5/eRTr31xZCuqr9aeI86dlh+Slm1eAOeSG7eMH1p +PYr80MvkYBWBgXRLkkaXBu7XHbCo9igEAa6C4F2xmnhi8Lrbx/wCkI2RY7op +auG4rtiT9ld5wKvgWWP/SAsLRe+Klm/IgfUsiYrjO7TxoHG87we1TDgyKNRq +yaGDTgqprd+F0+H79Hkni3Qdqu8P6z3ZdRm2ajzMsFDXxe9/ugVNJ5Khcdrw +188Xuugtkye/LSIJAtW0+177bcA1NslftnSeB9aEb4cbrx7u+DBl+vFhImxh +iG/nL9BDbuqX8frEwbrosydaNm7EhFrZ+0IHYkHFT79JoW8jfpvuVl9kRIFf +497T1Yc3YW2RbYrNyTBoyuvwnRLRx8HrWy94iYXAzM2/PzVq9dGFA/hX7joC +PgolvBnbDbDwdj1j7lkgTKmk6FVOGuCrz1mNl8z3wZ3CX+9nEw3xRu2D+x/G +fMHdVB4NZZl46fih1QPmu+B3B49AK42Jpk2g7WuwC/L8Jvot5Zn4rkVraFZ1 +F3yMrzvuvo6J4t5v728S3AVH2m0qQrWZOH90+rdhlzectT4pe8eMiTejiHlt +f2+od+1c0j3ERNsqIYPDUl4gdTChbn0zE4uiT+eVT3vAxb/+G861MDF1ykoD +BjyAM9mM/NTGxHz36rNDDz1grGZ5cV47E62tl52yyfCAeo7T6UJvmbiSKyr8 +62YPcE+NPj73HxMNBwRurEp1h/SG0A2Nq1jYtib5eLmJG4isDCC3u7Awgjj2 +5fILZyg0iQibdGPhLX56WlGdM2hHXDRJ8WRhXf9HeFzoDNaT7M6eXSxM15x2 +NAp3hviu2QWfABb+FPqwfWadM8wXRBmHxbDQ1ZWVEpHgBH2GKW+LSli4zGeZ +ea2tI+w9VphlUc5ClTSTlNcsR5grv+03zmbh6rrGY79UHEGI3vNTq4aF49Lb +OiOWO4IVj4z0vWYW6gf7vTFscIC7HUW+bztZ+Oqe6tEUZQewFLijHtLDwlWa +zZoFYg7Qs7V9TryfhebZt/qbljvATP3XxJ3DLAxWbX2pNGIP6vmaZV/GWGjY +Ns9fnGkPd/s2h5z/xkKRGH7h9WftwXKtA2hMsjC/Jq7y/gl78E849jp4loXF +c+fS1jrbw0xzfIbYPAu7J7IevzW1h9jFNJ/6RRZ66YsdyNexh9W6xWo7frPw +Xkx7cATdHnIO1s/+/cvC+bqE/j1r7OF/lvSP2Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06928549672123732}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06928549672123732}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994257578113909*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"7dd96ded-0840-40ff-9361-1188e9f37620"] +}, Open ]], Cell[CellGroupData[{ @@ -7742,14 +7856,12 @@ Cell[BoxData[ FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.9918501819649506`*^9},ExpressionUUID->"1ec1e156-ca0f-9240-857c-\ -ac86e3a0e3fd"], + CellChangeTimes->{3.9918501819649506`*^9}, + CellLabel->"In[98]:=",ExpressionUUID->"1ec1e156-ca0f-9240-857c-ac86e3a0e3fd"], -Cell[BoxData["10.362747935330784`"], "Output", - CellChangeTimes->{3.9913453868532257`*^9}, - CellLabel-> - "Out[420]=",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +Cell[BoxData["10.948922259789047`"], "Output", + CellChangeTimes->{3.9913453868532257`*^9, 3.9942575781623993`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"32faa896-5494-4aa5-9478-675be6216d7f"] }, Open ]], Cell[CellGroupData[{ @@ -7805,171 +7917,165 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991850184857586*^9},ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-\ -da901e49f6f1"], + CellChangeTimes->{3.991850184857586*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-da901e49f6f1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 421, 449, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345387062414*^9}, - CellLabel-> - "During evaluation of \ -In[421]:=",ExpressionUUID->"08a2126f-e71c-b94d-8844-15e292a8f7d1"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.19148428074309`*^-272\\\", \ -\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 421, 450, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345387076412*^9}, - CellLabel-> - "During evaluation of \ -In[421]:=",ExpressionUUID->"1acf7f10-7675-ea41-b478-94e928ef3377"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.652750330712858`*^-282\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.042168930565255`*^-261\\\", \ \\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 421, 451, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345387088339*^9}, +\"", 2, 99, 13, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345387062414*^9, 3.994257578294758*^9}, CellLabel-> "During evaluation of \ -In[421]:=",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], +In[99]:=",ExpressionUUID->"268779a1-b53a-425c-accd-f6d9f57b84a4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.993964339407954`*^-271\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 99, 14, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345387062414*^9, 3.994257578303979*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"d293314f-fb17-46ae-beb6-9deecac7fe24"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.890845302876686`*^-280\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 99, 15, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345387062414*^9, 3.994257578313005*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"7ff59a59-1231-4494-91d1-3c937e34f2a9"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 421, 452, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913453870973415`*^9}, +during this calculation.\"", 2, 99, 16, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345387062414*^9, 3.994257578321475*^9}, CellLabel-> "During evaluation of \ -In[421]:=",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], +In[99]:=",ExpressionUUID->"3f8a0eca-b6bf-4790-bf6f-9ab7b0f711b4"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy -GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi -4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai -bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa -uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk -vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb -hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS -SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP -F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw -2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr -w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD -JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY -/nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH -zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 -8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 -HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX -csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw -uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh -XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e -w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e -caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN -C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ -EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf -hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N -SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z -20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp -HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S -TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC -+3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b -g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW -221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 -88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 -H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH -F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC -akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS -f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp -+zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP -KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR -HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE -Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e -7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso -ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 -Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw -ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL -jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs -6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa -d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn -jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 -TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 -IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv -gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp -OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna -SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 -NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk -Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 -i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov -GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 -6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf -FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL -Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV -ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h -hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi -xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA -2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 -M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK -/HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg -qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ -PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe -HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h -xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy -NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N -hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf -LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 -Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ -497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE -zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf -Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN -kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU -BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS -gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK -Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s -h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg -8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 -BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW -wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS -9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm -oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb -reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu -+7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN -8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc -Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H -OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D -3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh -zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l -sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO -hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP -8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 -vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs -zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz -0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T -7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON -EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ -8VF94vJg1Az+B+ielp4= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4lN0bB3DRIlmyZBnbPGOoLFkjzHTfpWRJIiRlKZT6CZVkqYiUUhKV +pbKFXvs8SLYkW1pIEdpEVF4Vei1Jb/md96/n+lzPmZlznfne9zmH2uNv783P +x8cnOY+P77/ndN+jJnZs9lp+g37D7Sbr1nalyYas642EzIjaoE3XlQGXPdsj +25sAWvnC8nOp2hC0Nb9HoDcL8imDd+2pAOKjMgk/e0phrq7w5JlUW3hfu8V/ +sqcBDlTOOmSmuIM5e+Td954XUGa2Q1zjmj/87DG6Ot7zASy2DfR6xYRDo9nt +7OdZE6Dm05yitCUeFN5Xfdqj+Rv02SvjpcaTQMrXPX+RmQCGqDVGsBnpkKBr +XrPFURADdHmjPINb8CpZp/77UhE8WpanOX9nLsRmhz/jlxPHXyZlXdMBeSBz +ZfBc4k1JfHkzrziGUQiyGndOz+RK4lf99Pf3VAqB0XAm3JUniXEWG65/0ywE +pfGVR5c3SqK99lQRBwpBdXOAR82wJCpI1zFTPAtBf/5vw0F9KbwyLI5WBYVg +Gyg9pPdYCvff8RiMNiyCsw6Wa19ML8OIeTcDNTnFwChvZ/DPk8aO8KNl2RuK +oVjS4YfuEmkUvtQL0jbF0P3CjXdZWRoftsZzP7oWA9sukGVnQcZHJpbphRdD +g036wo4UaRQbM2w9X18Mv82n2ts4Mnjz+duF6mtLID43tOC3uQwqv1Fwfbyx +BNgL+WK07GTQ+x5r2NOmBDY3C6276C2DlbVCqZG7SiDVjFm2OU4Gx4LTdvmF +lsAatE568l4Glyvsfv+nvASOGGe6P4qUxZEtbkYREjywyhCdtL4gi0YV+4ry +lvGAteh4TPtVWawr51veIcuDji4nuvMvWRwscGNLKfNgVYCwQF+7LGp17t8Q +rMGD4dxjuf8w5PC+Nz2PNuPBLqkt3+TL5FCkW7Z/8BAP9MNqTqXVyuHTz50p +RYE8EPqwQppqkcODGg8cAo/xoKpEANReyaFZDat95jgPpK2r4nXm5FBloqX9 +3Vny+6fYBhutGbj/fbag7E0ebBibDfUbZOCW6ZSrNs08CLG4ov7gKwMl2mzc +Ch7yoDhT67XkNANhr/GmhY95IOvgYVwlKI/pUpKhZe08+FrZ/ENglTxmXg7b ++6WHB4mR8YEpwfJ4Jknm8PO/efBhmZpfk4gCHkm4xz22hAYZ//uKMjIKqGl9 +zSJEhIbNrc5t+5kKWFjJHxwsRkNFaKymmL4C8mU4bfSTpOH8+/GRHc4KeNDV +Md1Inga9vJp9Y1kKeOLo+ZPr1Gk4xbHbzVijiJ+eN0Tom9Ng4Zb2j9F6RZwo ++u76ZxMNohFfohw3K+L2/r5PzZY03GiMzo33UMSdn71/W9nQUGlV/WXhOUVM +tAnbpOVAw7izStDEK0VMOtOYY7+bhruhAYvEhxQxX93cd3gPDSdv3EteNaqI +2eONQ6FeNAj3b6/Zz6+EP0I8v13dR8PyfRf4+tWV8Ndfm/dnH6TB7ejU+adh +Slir/tZfJYQG1aT1CiPRSrgjVjT2dChN1u9S0aJ4JWQXhbh/CKMh9N+VHeuz +lVBr6dfVV07ScDXKbVnVUyVsapO63RFFw9PLD9NzFJVRRHKtcNFFGhLLpHQb +lyujr5/jj1dxNLi83N3Qr6uM9nNvbwnE0zAs+++QvLkyNkr5mtkk0CCQoaOe +4KeM4upChVXXaDApTik/eV8ZPXxcsn6k0bChp/33aKsy2pme3NafTsMWvvmb +3F8o43OS9JYMGjzt/V7BR2VcYfMw51wWDeZhVHjEAia+3/JLZCyHhiditbfW +CDEx9NbZIw9yadia7dQ6LsrEprlB8cu3adjZFiu+W5aJApZyv5bn0RCgPH1r +nQYT61MnLhoU0jBVFt/6U5uJRW+DW8eJQy00vtEGTAxsmYH8IhqiD3kYstYy +cbBKaFiqhIbUxset/HZMtGqI1XhE09C0L/1bYxATV0R1zxZV0GD5r7HE8TAm +Ojr6mK+9S0N7fJehQQQZH/u45wnxq6rFEdnnmPjr0ub2vkoaRpcESkTfYGKA +USRjqJqGIxmiRtxMJop0tmW71dAwY5C3cyqHiW8DE0O6iQXc+rK9S5i48Om3 ++XW1NMjyLIzMG5hY6JFX5ltHw80Ngzv/tDBx3Do26zkx69WJiIonTEy4W9Wv +f58GLf6yR2ovmXhh/SGbceLSazajfa+YmHne8IRVPQ1rNIYlkvqY2H2r/k8m +8XoHxV2LhpkoGZD10+IBDQ+H70bc/8rEyXWmgcnEm0/Y5xz7zsQnlLzZR+Lt +uWdHP88ycbGIcX9QAw1vTViSGXNMfM28V1JDvOdZrZHzfArL7aW6fxP7znyP +aBWhcGlX+8rQRpKPQ3ulP0lQuEZzjUIVseDI6wIBWQoDml2/TxJ377FdRylS +6L5LKl+riYacN43da1kU5p/S3eRJHOiwxnfXcjI+JfbRVeL1bYXzQjXJ+9c/ +dZuJ++quat4xpHD22ZFKRjMNhUZCDS9MKXwhpNeLxKG8k9vHkcKosP0DnsQW +Kye+iphTuNFvqiuKWDprX6SGNYXn/9BlGcRDjLcyllspDJU+frKauDRxa9Fe +RwrRT9fwOXGEcPP60y4UHo/lvRkito027s10pzC7vtd/iljpT9HB+14UHtY8 +P8HfQuoziCXwbj+FK6py9okQV49dS571o0j/F2mTIo7xWbJKNpBClZdZbDli +p4HwxtUhFBZqWfkziNkuk87bTlIYvOZzkSzxPy98RgOiKHzT4TYgSVxv/S4q +LoZCkdRrQsLEcU12coUXKaz4E6g+j3gXt6X4UQKFWjoD6ybI/NQrTDZ8TqJw +XLXR7gPxz1Ulr+bfpHD0hsDOduLW2yr+rCwKhWQuuN0lvsZMno+3Kdz32tz1 +JrFXinCqayGFPeNKzhHEehKntMNoMv/lfFs9iPlip5qSKyi8INyzkUvcLnDA +paKGQuY/8SYyxDeO94111lO4aERee5T8f/+bso/+3kzhwod72Q3EJn4PGWJP +KOyQ3y2fSCz42ZSn2UHyYfJLajdxdi/7zb7XFAa+7JT8Lz+H7VICot9T2Fk4 +zfgvX/hYZOGtITJf/sgVYcTvaqZ1+kYppGayXKZJPqXTW884CLCwI+Pr6kck +30MyXIXDgixkdGrGBhGXxtP0JREWOgifH2US20amvn0sQ3wuatCX1E+Mt6/e +Ok3yec1/MgdIPTr19T9002XhU7GrUceI2dsdXY8bspCyMgoTIq63WBtzF1n4 +jhvMW36PrLfG0j4tRxZqMARtgdT/9E3GKX0XForr1HnUk34xKabKNnZn4dVk +04K1xKMTxgc27GchePuM6lXR8KHGc9rlBAu5wzyLWdKf3mv5pXhEsjBRtcnU +m/htejBn71kW1r3d6992h9RX1MXIQ5dZuCbI6sbVchoeW98VjclhYZyryYoF +paT+7z2gL+az8MHKo6Yu//U/7acOiSUs7Ly0KqmQR0Od5EBqWhULXy1malqS +fln6Rmj5nTYWbs3WG95N+mvq/9zgwxQLLehbFyRIv0565/Ph8ywLfbvsMjmk +n1+xPRL9bY6F8/59KuqVTfKpH/NkZrEKPimzm8kn/T/yF71dTEkFt/xsYcmR +/eJ/sQsCOOYquLe+sv5YEg2cgsKMa9dUsNFZNmnjGRreMAvSN15XwUNyFZ90 +okl9X8tLm0xXwejjmxcwTpP99lTuDfs8FTzwcrr04ymST+eMZNFaFTS86P73 +nhM0rFxwJf7MgApWCiZdmDpC8uAeFhGkycb6fWZike403OkKCVfVZWPwmBDf +SjcaHKyCT3atZuPxa2Lv2nbRkLD66HE9YOPq+Dh3cRcaRIT9g0ft2Hhpx18Z +4WT/n1+1J2DvMTaedvH/9NOChu8SVh5ODWw8uefiCl8dGnp9WR0HHrLRf1S9 +omQVyUfLLIQ/ZePt4NXT45o0xIcWKP/VzUbj+WcSfFfSoPNB+P3PETbaVva4 +WbBo8KOfud6UVMW7pv6uieR8M2LruHPISxWffByqDZ/kwdAFD6fDi9RwYkLV +5mcJD/xGNFk6wmq4sDqO+7qIBz82/fz2baka6o5sP1JVQM5/AgnR+xlqyD9q +VXb4Ng90QhrLPbTUUBCPZXWk8eCEt5qk7TY11BoL0TS9SM6Da78+00hXw7k3 +tgde+PDAcuyY5UfD5ag9OFm3UZ6c5zwFj5SHr0D/nOre/PvF5D4iw3+2YSV+ +DFlad59dBBJtanG8MXW0VDkbZRRTAAoxJVsNDTUxyt1TKLc0D5I1jJdK7tPC +QZvfA3Fjt+ExY93qicurcPSQhO9VnVwwUWiI1+7WRqW6jiVxNtkgKpAVuDtS +B+/vf1EclpAFSqeUOTvUdDHCN0nLvT4DFqvuqrB/qItenrPvr0umwSquXMkx +Vz1cMxJtsEHoOhzuk2i04tNHD74Slt33JBibuOBomayPhwKVPhfAVdik3ZJq +qWWAyx5Xdwm1JUDdhOmvH+0GyK8tKO7rGg9+mnqvn3uvxhuFNvuvJ18A7qhX +147Fhjiv6caNJXExsJEtayOSZYjyoWkfhFdFw4qI88ENRkZoo5H3QMQkEtS9 +je+rvjbC9Jr1FRVPToJ3nc/p8kNrcLJndYmhRijcz+jy+r7MGG/ypXl9az8K +k3/N/dC+a4zipr3C95mHwVO1YHGqjQleT97ysdXFD76rJxqWjptgTPPn67+H +fKAy+9fAVIwpGjcF7f2Q6AWGZoE/rGJNcabD/p7DaS+4M/BVOOOiKXLKu02e +B3pBqVKfkVWCKV4ZmLoy7OgFhcn1F9Oum+Jz/2b9eFkvyLgQbbyp2BR5tmsT +6tI94Vyg2OXkTlOkbh/tOXJnD7hsUEFTJQ7Oa5FrUP3tAb+7BEUbmRy8I6hx +7c2oB2R4j76xUuHgAeeqgev9HvDpTNUxlxUcDCnNaTFt8oDDj2xLQvQ4yFO9 +LT8T6wHntxxXqjTnYEzbn2RXRQ+odn75r4E/B/ulbzE8L7mB/MGzVavqOeji +JHbU6/BOiJvbuzq2gYPlKcpLzHbtBP4Ec/pzEwfJzXmzrvlOGKlYkJfxiINS +ypDPYeyEar7TyRKdHBxTkXkt0ugCLlcijk1/5OAu3ZeqCTIukFwTsrpuCRcD +dvvLDD1xhmVCvrTNdi5+SHu1ocXdCbLNToSO7+Di343VjWxrJ9A7EWeWuIuL +sj3Cy64YOsGWcd7L3t1cbAS3eTkiTnCme+qnpy8XU//2aIirdYSZrPD1oae4 +qOajvCBY0RFemyZ25hZw0ct3Jnvbl23gczT7hmUxF8cc8morerfBdPEd7688 +Li5f+sdsZcs2kGD1/tCt4GJyZHYQJ3MbWAsqKtyr56L5x4vIcN4GtV25Xp0v +uWj95IFifqs9WIlWagX1cvFK76DeXIU99G56NC37hosxCh6injn2MFn9Jcat +n4vd1R2jTpH2oJWpU/T3CBeVv6Xrj3Lsofb1uqAL37j4uDVsR6UG+T6pbaA9 +zkVPnthEPMMe9p49+jxwiqzPlyPOB2fsYLL+TKrMDBfnl74RO/TZDiJnkzyr +Z7ko46MuEdVtB0sN8jRdf3ORkjB2vNVsB2kHq6fm5rjoM/9T+/NyO/g/KsTb +eA== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7983,130 +8089,121 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy -GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi -4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai -bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa -uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk -vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb -hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS -SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP -F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw -2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr -w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD -JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY -/nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH -zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 -8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 -HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX -csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw -uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh -XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e -w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e -caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN -C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ -EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf -hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N -SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z -20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp -HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S -TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC -+3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b -g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW -221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 -88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 -H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH -F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC -akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS -f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp -+zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP -KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR -HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE -Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e -7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso -ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 -Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw -ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL -jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs -6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa -d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn -jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 -TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 -IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv -gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp -OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna -SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 -NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk -Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 -i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov -GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 -6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf -FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL -Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV -ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h -hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi -xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA -2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 -M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK -/HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg -qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ -PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe -HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h -xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy -NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N -hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf -LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 -Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ -497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE -zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf -Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN -kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU -BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS -gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK -Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s -h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg -8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 -BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW -wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS -9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm -oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb -reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu -+7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN -8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc -Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H -OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D -3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh -zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l -sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO -hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP -8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 -vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs -zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz -0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T -7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON -EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ -8VF94vJg1Az+B+ielp4= +1:eJwV13k4lN0bB3DRIlmyZBnbPGOoLFkjzHTfpWRJIiRlKZT6CZVkqYiUUhKV +pbKFXvs8SLYkW1pIEdpEVF4Vei1Jb/md96/n+lzPmZlznfne9zmH2uNv783P +x8cnOY+P77/ndN+jJnZs9lp+g37D7Sbr1nalyYas642EzIjaoE3XlQGXPdsj +25sAWvnC8nOp2hC0Nb9HoDcL8imDd+2pAOKjMgk/e0phrq7w5JlUW3hfu8V/ +sqcBDlTOOmSmuIM5e+Td954XUGa2Q1zjmj/87DG6Ot7zASy2DfR6xYRDo9nt +7OdZE6Dm05yitCUeFN5Xfdqj+Rv02SvjpcaTQMrXPX+RmQCGqDVGsBnpkKBr +XrPFURADdHmjPINb8CpZp/77UhE8WpanOX9nLsRmhz/jlxPHXyZlXdMBeSBz +ZfBc4k1JfHkzrziGUQiyGndOz+RK4lf99Pf3VAqB0XAm3JUniXEWG65/0ywE +pfGVR5c3SqK99lQRBwpBdXOAR82wJCpI1zFTPAtBf/5vw0F9KbwyLI5WBYVg +Gyg9pPdYCvff8RiMNiyCsw6Wa19ML8OIeTcDNTnFwChvZ/DPk8aO8KNl2RuK +oVjS4YfuEmkUvtQL0jbF0P3CjXdZWRoftsZzP7oWA9sukGVnQcZHJpbphRdD +g036wo4UaRQbM2w9X18Mv82n2ts4Mnjz+duF6mtLID43tOC3uQwqv1Fwfbyx +BNgL+WK07GTQ+x5r2NOmBDY3C6276C2DlbVCqZG7SiDVjFm2OU4Gx4LTdvmF +lsAatE568l4Glyvsfv+nvASOGGe6P4qUxZEtbkYREjywyhCdtL4gi0YV+4ry +lvGAteh4TPtVWawr51veIcuDji4nuvMvWRwscGNLKfNgVYCwQF+7LGp17t8Q +rMGD4dxjuf8w5PC+Nz2PNuPBLqkt3+TL5FCkW7Z/8BAP9MNqTqXVyuHTz50p +RYE8EPqwQppqkcODGg8cAo/xoKpEANReyaFZDat95jgPpK2r4nXm5FBloqX9 +3Vny+6fYBhutGbj/fbag7E0ebBibDfUbZOCW6ZSrNs08CLG4ov7gKwMl2mzc +Ch7yoDhT67XkNANhr/GmhY95IOvgYVwlKI/pUpKhZe08+FrZ/ENglTxmXg7b ++6WHB4mR8YEpwfJ4Jknm8PO/efBhmZpfk4gCHkm4xz22hAYZ//uKMjIKqGl9 +zSJEhIbNrc5t+5kKWFjJHxwsRkNFaKymmL4C8mU4bfSTpOH8+/GRHc4KeNDV +Md1Inga9vJp9Y1kKeOLo+ZPr1Gk4xbHbzVijiJ+eN0Tom9Ng4Zb2j9F6RZwo ++u76ZxMNohFfohw3K+L2/r5PzZY03GiMzo33UMSdn71/W9nQUGlV/WXhOUVM +tAnbpOVAw7izStDEK0VMOtOYY7+bhruhAYvEhxQxX93cd3gPDSdv3EteNaqI +2eONQ6FeNAj3b6/Zz6+EP0I8v13dR8PyfRf4+tWV8Ndfm/dnH6TB7ejU+adh +Slir/tZfJYQG1aT1CiPRSrgjVjT2dChN1u9S0aJ4JWQXhbh/CKMh9N+VHeuz +lVBr6dfVV07ScDXKbVnVUyVsapO63RFFw9PLD9NzFJVRRHKtcNFFGhLLpHQb +lyujr5/jj1dxNLi83N3Qr6uM9nNvbwnE0zAs+++QvLkyNkr5mtkk0CCQoaOe +4KeM4upChVXXaDApTik/eV8ZPXxcsn6k0bChp/33aKsy2pme3NafTsMWvvmb +3F8o43OS9JYMGjzt/V7BR2VcYfMw51wWDeZhVHjEAia+3/JLZCyHhiditbfW +CDEx9NbZIw9yadia7dQ6LsrEprlB8cu3adjZFiu+W5aJApZyv5bn0RCgPH1r +nQYT61MnLhoU0jBVFt/6U5uJRW+DW8eJQy00vtEGTAxsmYH8IhqiD3kYstYy +cbBKaFiqhIbUxset/HZMtGqI1XhE09C0L/1bYxATV0R1zxZV0GD5r7HE8TAm +Ojr6mK+9S0N7fJehQQQZH/u45wnxq6rFEdnnmPjr0ub2vkoaRpcESkTfYGKA +USRjqJqGIxmiRtxMJop0tmW71dAwY5C3cyqHiW8DE0O6iQXc+rK9S5i48Om3 ++XW1NMjyLIzMG5hY6JFX5ltHw80Ngzv/tDBx3Do26zkx69WJiIonTEy4W9Wv +f58GLf6yR2ovmXhh/SGbceLSazajfa+YmHne8IRVPQ1rNIYlkvqY2H2r/k8m +8XoHxV2LhpkoGZD10+IBDQ+H70bc/8rEyXWmgcnEm0/Y5xz7zsQnlLzZR+Lt +uWdHP88ycbGIcX9QAw1vTViSGXNMfM28V1JDvOdZrZHzfArL7aW6fxP7znyP +aBWhcGlX+8rQRpKPQ3ulP0lQuEZzjUIVseDI6wIBWQoDml2/TxJ377FdRylS +6L5LKl+riYacN43da1kU5p/S3eRJHOiwxnfXcjI+JfbRVeL1bYXzQjXJ+9c/ +dZuJ++quat4xpHD22ZFKRjMNhUZCDS9MKXwhpNeLxKG8k9vHkcKosP0DnsQW +Kye+iphTuNFvqiuKWDprX6SGNYXn/9BlGcRDjLcyllspDJU+frKauDRxa9Fe +RwrRT9fwOXGEcPP60y4UHo/lvRkito027s10pzC7vtd/iljpT9HB+14UHtY8 +P8HfQuoziCXwbj+FK6py9okQV49dS571o0j/F2mTIo7xWbJKNpBClZdZbDli +p4HwxtUhFBZqWfkziNkuk87bTlIYvOZzkSzxPy98RgOiKHzT4TYgSVxv/S4q +LoZCkdRrQsLEcU12coUXKaz4E6g+j3gXt6X4UQKFWjoD6ybI/NQrTDZ8TqJw +XLXR7gPxz1Ulr+bfpHD0hsDOduLW2yr+rCwKhWQuuN0lvsZMno+3Kdz32tz1 +JrFXinCqayGFPeNKzhHEehKntMNoMv/lfFs9iPlip5qSKyi8INyzkUvcLnDA +paKGQuY/8SYyxDeO94111lO4aERee5T8f/+bso/+3kzhwod72Q3EJn4PGWJP +KOyQ3y2fSCz42ZSn2UHyYfJLajdxdi/7zb7XFAa+7JT8Lz+H7VICot9T2Fk4 +zfgvX/hYZOGtITJf/sgVYcTvaqZ1+kYppGayXKZJPqXTW884CLCwI+Pr6kck +30MyXIXDgixkdGrGBhGXxtP0JREWOgifH2US20amvn0sQ3wuatCX1E+Mt6/e +Ok3yec1/MgdIPTr19T9002XhU7GrUceI2dsdXY8bspCyMgoTIq63WBtzF1n4 +jhvMW36PrLfG0j4tRxZqMARtgdT/9E3GKX0XForr1HnUk34xKabKNnZn4dVk +04K1xKMTxgc27GchePuM6lXR8KHGc9rlBAu5wzyLWdKf3mv5pXhEsjBRtcnU +m/htejBn71kW1r3d6992h9RX1MXIQ5dZuCbI6sbVchoeW98VjclhYZyryYoF +paT+7z2gL+az8MHKo6Yu//U/7acOiSUs7Ly0KqmQR0Od5EBqWhULXy1malqS +fln6Rmj5nTYWbs3WG95N+mvq/9zgwxQLLehbFyRIv0565/Ph8ywLfbvsMjmk +n1+xPRL9bY6F8/59KuqVTfKpH/NkZrEKPimzm8kn/T/yF71dTEkFt/xsYcmR +/eJ/sQsCOOYquLe+sv5YEg2cgsKMa9dUsNFZNmnjGRreMAvSN15XwUNyFZ90 +okl9X8tLm0xXwejjmxcwTpP99lTuDfs8FTzwcrr04ymST+eMZNFaFTS86P73 +nhM0rFxwJf7MgApWCiZdmDpC8uAeFhGkycb6fWZike403OkKCVfVZWPwmBDf +SjcaHKyCT3atZuPxa2Lv2nbRkLD66HE9YOPq+Dh3cRcaRIT9g0ft2Hhpx18Z +4WT/n1+1J2DvMTaedvH/9NOChu8SVh5ODWw8uefiCl8dGnp9WR0HHrLRf1S9 +omQVyUfLLIQ/ZePt4NXT45o0xIcWKP/VzUbj+WcSfFfSoPNB+P3PETbaVva4 +WbBo8KOfud6UVMW7pv6uieR8M2LruHPISxWffByqDZ/kwdAFD6fDi9RwYkLV +5mcJD/xGNFk6wmq4sDqO+7qIBz82/fz2baka6o5sP1JVQM5/AgnR+xlqyD9q +VXb4Ng90QhrLPbTUUBCPZXWk8eCEt5qk7TY11BoL0TS9SM6Da78+00hXw7k3 +tgde+PDAcuyY5UfD5ag9OFm3UZ6c5zwFj5SHr0D/nOre/PvF5D4iw3+2YSV+ +DFlad59dBBJtanG8MXW0VDkbZRRTAAoxJVsNDTUxyt1TKLc0D5I1jJdK7tPC +QZvfA3Fjt+ExY93qicurcPSQhO9VnVwwUWiI1+7WRqW6jiVxNtkgKpAVuDtS +B+/vf1EclpAFSqeUOTvUdDHCN0nLvT4DFqvuqrB/qItenrPvr0umwSquXMkx +Vz1cMxJtsEHoOhzuk2i04tNHD74Slt33JBibuOBomayPhwKVPhfAVdik3ZJq +qWWAyx5Xdwm1JUDdhOmvH+0GyK8tKO7rGg9+mnqvn3uvxhuFNvuvJ18A7qhX +147Fhjiv6caNJXExsJEtayOSZYjyoWkfhFdFw4qI88ENRkZoo5H3QMQkEtS9 +je+rvjbC9Jr1FRVPToJ3nc/p8kNrcLJndYmhRijcz+jy+r7MGG/ypXl9az8K +k3/N/dC+a4zipr3C95mHwVO1YHGqjQleT97ysdXFD76rJxqWjptgTPPn67+H +fKAy+9fAVIwpGjcF7f2Q6AWGZoE/rGJNcabD/p7DaS+4M/BVOOOiKXLKu02e +B3pBqVKfkVWCKV4ZmLoy7OgFhcn1F9Oum+Jz/2b9eFkvyLgQbbyp2BR5tmsT +6tI94Vyg2OXkTlOkbh/tOXJnD7hsUEFTJQ7Oa5FrUP3tAb+7BEUbmRy8I6hx +7c2oB2R4j76xUuHgAeeqgev9HvDpTNUxlxUcDCnNaTFt8oDDj2xLQvQ4yFO9 +LT8T6wHntxxXqjTnYEzbn2RXRQ+odn75r4E/B/ulbzE8L7mB/MGzVavqOeji +JHbU6/BOiJvbuzq2gYPlKcpLzHbtBP4Ec/pzEwfJzXmzrvlOGKlYkJfxiINS +ypDPYeyEar7TyRKdHBxTkXkt0ugCLlcijk1/5OAu3ZeqCTIukFwTsrpuCRcD +dvvLDD1xhmVCvrTNdi5+SHu1ocXdCbLNToSO7+Di343VjWxrJ9A7EWeWuIuL +sj3Cy64YOsGWcd7L3t1cbAS3eTkiTnCme+qnpy8XU//2aIirdYSZrPD1oae4 +qOajvCBY0RFemyZ25hZw0ct3Jnvbl23gczT7hmUxF8cc8morerfBdPEd7688 +Li5f+sdsZcs2kGD1/tCt4GJyZHYQJ3MbWAsqKtyr56L5x4vIcN4GtV25Xp0v +uWj95IFifqs9WIlWagX1cvFK76DeXIU99G56NC37hosxCh6injn2MFn9Jcat +n4vd1R2jTpH2oJWpU/T3CBeVv6Xrj3Lsofb1uqAL37j4uDVsR6UG+T6pbaA9 +zkVPnthEPMMe9p49+jxwiqzPlyPOB2fsYLL+TKrMDBfnl74RO/TZDiJnkzyr +Z7ko46MuEdVtB0sN8jRdf3ORkjB2vNVsB2kHq6fm5rjoM/9T+/NyO/g/KsTb +eA== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "PlotRange" -> {{0, 30}, {0., 0.06942906586680547}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -8118,19 +8215,19 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "PlotRange" -> {{0, 30}, {0., 0.06942906586680547}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8144,129 +8241,120 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy -GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi -4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai -bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa -uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk -vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb -hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS -SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP -F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw -2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr -w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD -JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY -/nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH -zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 -8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 -HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX -csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw -uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh -XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e -w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e -caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN -C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ -EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf -hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N -SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z -20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp -HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S -TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC -+3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b -g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW -221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 -88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 -H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH -F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC -akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS -f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp -+zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP -KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR -HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE -Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e -7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso -ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 -Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw -ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL -jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs -6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa -d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn -jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 -TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 -IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv -gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp -OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna -SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 -NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk -Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 -i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov -GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 -6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf -FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL -Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV -ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h -hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi -xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA -2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 -M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK -/HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg -qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ -PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe -HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h -xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy -NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N -hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf -LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 -Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ -497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE -zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf -Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN -kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU -BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS -gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK -Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s -h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg -8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 -BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW -wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS -9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm -oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb -reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu -+7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN -8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc -Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H -OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D -3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh -zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l -sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO -hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP -8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 -vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs -zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz -0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T -7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON -EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ -8VF94vJg1Az+B+ielp4= +1:eJwV13k4lN0bB3DRIlmyZBnbPGOoLFkjzHTfpWRJIiRlKZT6CZVkqYiUUhKV +pbKFXvs8SLYkW1pIEdpEVF4Vei1Jb/md96/n+lzPmZlznfne9zmH2uNv783P +x8cnOY+P77/ndN+jJnZs9lp+g37D7Sbr1nalyYas642EzIjaoE3XlQGXPdsj +25sAWvnC8nOp2hC0Nb9HoDcL8imDd+2pAOKjMgk/e0phrq7w5JlUW3hfu8V/ +sqcBDlTOOmSmuIM5e+Td954XUGa2Q1zjmj/87DG6Ot7zASy2DfR6xYRDo9nt +7OdZE6Dm05yitCUeFN5Xfdqj+Rv02SvjpcaTQMrXPX+RmQCGqDVGsBnpkKBr +XrPFURADdHmjPINb8CpZp/77UhE8WpanOX9nLsRmhz/jlxPHXyZlXdMBeSBz +ZfBc4k1JfHkzrziGUQiyGndOz+RK4lf99Pf3VAqB0XAm3JUniXEWG65/0ywE +pfGVR5c3SqK99lQRBwpBdXOAR82wJCpI1zFTPAtBf/5vw0F9KbwyLI5WBYVg +Gyg9pPdYCvff8RiMNiyCsw6Wa19ML8OIeTcDNTnFwChvZ/DPk8aO8KNl2RuK +oVjS4YfuEmkUvtQL0jbF0P3CjXdZWRoftsZzP7oWA9sukGVnQcZHJpbphRdD +g036wo4UaRQbM2w9X18Mv82n2ts4Mnjz+duF6mtLID43tOC3uQwqv1Fwfbyx +BNgL+WK07GTQ+x5r2NOmBDY3C6276C2DlbVCqZG7SiDVjFm2OU4Gx4LTdvmF +lsAatE568l4Glyvsfv+nvASOGGe6P4qUxZEtbkYREjywyhCdtL4gi0YV+4ry +lvGAteh4TPtVWawr51veIcuDji4nuvMvWRwscGNLKfNgVYCwQF+7LGp17t8Q +rMGD4dxjuf8w5PC+Nz2PNuPBLqkt3+TL5FCkW7Z/8BAP9MNqTqXVyuHTz50p +RYE8EPqwQppqkcODGg8cAo/xoKpEANReyaFZDat95jgPpK2r4nXm5FBloqX9 +3Vny+6fYBhutGbj/fbag7E0ebBibDfUbZOCW6ZSrNs08CLG4ov7gKwMl2mzc +Ch7yoDhT67XkNANhr/GmhY95IOvgYVwlKI/pUpKhZe08+FrZ/ENglTxmXg7b ++6WHB4mR8YEpwfJ4Jknm8PO/efBhmZpfk4gCHkm4xz22hAYZ//uKMjIKqGl9 +zSJEhIbNrc5t+5kKWFjJHxwsRkNFaKymmL4C8mU4bfSTpOH8+/GRHc4KeNDV +Md1Inga9vJp9Y1kKeOLo+ZPr1Gk4xbHbzVijiJ+eN0Tom9Ng4Zb2j9F6RZwo ++u76ZxMNohFfohw3K+L2/r5PzZY03GiMzo33UMSdn71/W9nQUGlV/WXhOUVM +tAnbpOVAw7izStDEK0VMOtOYY7+bhruhAYvEhxQxX93cd3gPDSdv3EteNaqI +2eONQ6FeNAj3b6/Zz6+EP0I8v13dR8PyfRf4+tWV8Ndfm/dnH6TB7ejU+adh +Slir/tZfJYQG1aT1CiPRSrgjVjT2dChN1u9S0aJ4JWQXhbh/CKMh9N+VHeuz +lVBr6dfVV07ScDXKbVnVUyVsapO63RFFw9PLD9NzFJVRRHKtcNFFGhLLpHQb +lyujr5/jj1dxNLi83N3Qr6uM9nNvbwnE0zAs+++QvLkyNkr5mtkk0CCQoaOe +4KeM4upChVXXaDApTik/eV8ZPXxcsn6k0bChp/33aKsy2pme3NafTsMWvvmb +3F8o43OS9JYMGjzt/V7BR2VcYfMw51wWDeZhVHjEAia+3/JLZCyHhiditbfW +CDEx9NbZIw9yadia7dQ6LsrEprlB8cu3adjZFiu+W5aJApZyv5bn0RCgPH1r +nQYT61MnLhoU0jBVFt/6U5uJRW+DW8eJQy00vtEGTAxsmYH8IhqiD3kYstYy +cbBKaFiqhIbUxset/HZMtGqI1XhE09C0L/1bYxATV0R1zxZV0GD5r7HE8TAm +Ojr6mK+9S0N7fJehQQQZH/u45wnxq6rFEdnnmPjr0ub2vkoaRpcESkTfYGKA +USRjqJqGIxmiRtxMJop0tmW71dAwY5C3cyqHiW8DE0O6iQXc+rK9S5i48Om3 ++XW1NMjyLIzMG5hY6JFX5ltHw80Ngzv/tDBx3Do26zkx69WJiIonTEy4W9Wv +f58GLf6yR2ovmXhh/SGbceLSazajfa+YmHne8IRVPQ1rNIYlkvqY2H2r/k8m +8XoHxV2LhpkoGZD10+IBDQ+H70bc/8rEyXWmgcnEm0/Y5xz7zsQnlLzZR+Lt +uWdHP88ycbGIcX9QAw1vTViSGXNMfM28V1JDvOdZrZHzfArL7aW6fxP7znyP +aBWhcGlX+8rQRpKPQ3ulP0lQuEZzjUIVseDI6wIBWQoDml2/TxJ377FdRylS +6L5LKl+riYacN43da1kU5p/S3eRJHOiwxnfXcjI+JfbRVeL1bYXzQjXJ+9c/ +dZuJ++quat4xpHD22ZFKRjMNhUZCDS9MKXwhpNeLxKG8k9vHkcKosP0DnsQW +Kye+iphTuNFvqiuKWDprX6SGNYXn/9BlGcRDjLcyllspDJU+frKauDRxa9Fe +RwrRT9fwOXGEcPP60y4UHo/lvRkito027s10pzC7vtd/iljpT9HB+14UHtY8 +P8HfQuoziCXwbj+FK6py9okQV49dS571o0j/F2mTIo7xWbJKNpBClZdZbDli +p4HwxtUhFBZqWfkziNkuk87bTlIYvOZzkSzxPy98RgOiKHzT4TYgSVxv/S4q +LoZCkdRrQsLEcU12coUXKaz4E6g+j3gXt6X4UQKFWjoD6ybI/NQrTDZ8TqJw +XLXR7gPxz1Ulr+bfpHD0hsDOduLW2yr+rCwKhWQuuN0lvsZMno+3Kdz32tz1 +JrFXinCqayGFPeNKzhHEehKntMNoMv/lfFs9iPlip5qSKyi8INyzkUvcLnDA +paKGQuY/8SYyxDeO94111lO4aERee5T8f/+bso/+3kzhwod72Q3EJn4PGWJP +KOyQ3y2fSCz42ZSn2UHyYfJLajdxdi/7zb7XFAa+7JT8Lz+H7VICot9T2Fk4 +zfgvX/hYZOGtITJf/sgVYcTvaqZ1+kYppGayXKZJPqXTW884CLCwI+Pr6kck +30MyXIXDgixkdGrGBhGXxtP0JREWOgifH2US20amvn0sQ3wuatCX1E+Mt6/e +Ok3yec1/MgdIPTr19T9002XhU7GrUceI2dsdXY8bspCyMgoTIq63WBtzF1n4 +jhvMW36PrLfG0j4tRxZqMARtgdT/9E3GKX0XForr1HnUk34xKabKNnZn4dVk +04K1xKMTxgc27GchePuM6lXR8KHGc9rlBAu5wzyLWdKf3mv5pXhEsjBRtcnU +m/htejBn71kW1r3d6992h9RX1MXIQ5dZuCbI6sbVchoeW98VjclhYZyryYoF +paT+7z2gL+az8MHKo6Yu//U/7acOiSUs7Ly0KqmQR0Od5EBqWhULXy1malqS +fln6Rmj5nTYWbs3WG95N+mvq/9zgwxQLLehbFyRIv0565/Ph8ywLfbvsMjmk +n1+xPRL9bY6F8/59KuqVTfKpH/NkZrEKPimzm8kn/T/yF71dTEkFt/xsYcmR +/eJ/sQsCOOYquLe+sv5YEg2cgsKMa9dUsNFZNmnjGRreMAvSN15XwUNyFZ90 +okl9X8tLm0xXwejjmxcwTpP99lTuDfs8FTzwcrr04ymST+eMZNFaFTS86P73 +nhM0rFxwJf7MgApWCiZdmDpC8uAeFhGkycb6fWZike403OkKCVfVZWPwmBDf +SjcaHKyCT3atZuPxa2Lv2nbRkLD66HE9YOPq+Dh3cRcaRIT9g0ft2Hhpx18Z +4WT/n1+1J2DvMTaedvH/9NOChu8SVh5ODWw8uefiCl8dGnp9WR0HHrLRf1S9 +omQVyUfLLIQ/ZePt4NXT45o0xIcWKP/VzUbj+WcSfFfSoPNB+P3PETbaVva4 +WbBo8KOfud6UVMW7pv6uieR8M2LruHPISxWffByqDZ/kwdAFD6fDi9RwYkLV +5mcJD/xGNFk6wmq4sDqO+7qIBz82/fz2baka6o5sP1JVQM5/AgnR+xlqyD9q +VXb4Ng90QhrLPbTUUBCPZXWk8eCEt5qk7TY11BoL0TS9SM6Da78+00hXw7k3 +tgde+PDAcuyY5UfD5ag9OFm3UZ6c5zwFj5SHr0D/nOre/PvF5D4iw3+2YSV+ +DFlad59dBBJtanG8MXW0VDkbZRRTAAoxJVsNDTUxyt1TKLc0D5I1jJdK7tPC +QZvfA3Fjt+ExY93qicurcPSQhO9VnVwwUWiI1+7WRqW6jiVxNtkgKpAVuDtS +B+/vf1EclpAFSqeUOTvUdDHCN0nLvT4DFqvuqrB/qItenrPvr0umwSquXMkx +Vz1cMxJtsEHoOhzuk2i04tNHD74Slt33JBibuOBomayPhwKVPhfAVdik3ZJq +qWWAyx5Xdwm1JUDdhOmvH+0GyK8tKO7rGg9+mnqvn3uvxhuFNvuvJ18A7qhX +147Fhjiv6caNJXExsJEtayOSZYjyoWkfhFdFw4qI88ENRkZoo5H3QMQkEtS9 +je+rvjbC9Jr1FRVPToJ3nc/p8kNrcLJndYmhRijcz+jy+r7MGG/ypXl9az8K +k3/N/dC+a4zipr3C95mHwVO1YHGqjQleT97ysdXFD76rJxqWjptgTPPn67+H +fKAy+9fAVIwpGjcF7f2Q6AWGZoE/rGJNcabD/p7DaS+4M/BVOOOiKXLKu02e +B3pBqVKfkVWCKV4ZmLoy7OgFhcn1F9Oum+Jz/2b9eFkvyLgQbbyp2BR5tmsT +6tI94Vyg2OXkTlOkbh/tOXJnD7hsUEFTJQ7Oa5FrUP3tAb+7BEUbmRy8I6hx +7c2oB2R4j76xUuHgAeeqgev9HvDpTNUxlxUcDCnNaTFt8oDDj2xLQvQ4yFO9 +LT8T6wHntxxXqjTnYEzbn2RXRQ+odn75r4E/B/ulbzE8L7mB/MGzVavqOeji +JHbU6/BOiJvbuzq2gYPlKcpLzHbtBP4Ec/pzEwfJzXmzrvlOGKlYkJfxiINS +ypDPYeyEar7TyRKdHBxTkXkt0ugCLlcijk1/5OAu3ZeqCTIukFwTsrpuCRcD +dvvLDD1xhmVCvrTNdi5+SHu1ocXdCbLNToSO7+Di343VjWxrJ9A7EWeWuIuL +sj3Cy64YOsGWcd7L3t1cbAS3eTkiTnCme+qnpy8XU//2aIirdYSZrPD1oae4 +qOajvCBY0RFemyZ25hZw0ct3Jnvbl23gczT7hmUxF8cc8morerfBdPEd7688 +Li5f+sdsZcs2kGD1/tCt4GJyZHYQJ3MbWAsqKtyr56L5x4vIcN4GtV25Xp0v +uWj95IFifqs9WIlWagX1cvFK76DeXIU99G56NC37hosxCh6injn2MFn9Jcat +n4vd1R2jTpH2oJWpU/T3CBeVv6Xrj3Lsofb1uqAL37j4uDVsR6UG+T6pbaA9 +zkVPnthEPMMe9p49+jxwiqzPlyPOB2fsYLL+TKrMDBfnl74RO/TZDiJnkzyr +Z7ko46MuEdVtB0sN8jRdf3ORkjB2vNVsB2kHq6fm5rjoM/9T+/NyO/g/KsTb +eA== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "PlotRange" -> {{0, 30}, {0., 0.06942906586680547}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8277,6 +8365,7 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8304,7 +8393,8 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.07335635796919572}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06942906586680547}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8312,9 +8402,8 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913457856953163`*^9}, - CellLabel-> - "Out[421]=",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] + CellChangeTimes->{3.9913457856953163`*^9, 3.994258459676938*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"7206c241-4b51-4b10-a73c-12504949d927"] }, Open ]], Cell[CellGroupData[{ @@ -8367,66 +8456,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[422]:=",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], + "In[100]:=",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 422, 453, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345785749161*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.7286453075528326`*^-162\\\", \ +RowBox[{\\\"505518991860510123640143147290826802026\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"71\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9512072804761600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 17, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345785749161*^9, 3.994258459852302*^9}, CellLabel-> "During evaluation of \ -In[422]:=",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], +In[100]:=",ExpressionUUID->"9a470647-ec97-4c24-8f11-1ae80e54fb6f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 422, 454, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345785759161*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.5552873909860875`*^-165\\\", \ +RowBox[{\\\"164243120455479739170682508554789627978\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"75\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4724542670438400000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 18, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345785749161*^9, 3.9942584598628607`*^9}, CellLabel-> "During evaluation of \ -In[422]:=",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], +In[100]:=",ExpressionUUID->"442d3ee7-8f43-4f63-9c8d-3e9e2c6db1bd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 422, 455, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345785767502*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.632360386862016`*^-168\\\", \ +RowBox[{\\\"552513857212233842570175958778312308519\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"78\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3361543354777600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 19, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345785749161*^9, 3.99425845987325*^9}, CellLabel-> "During evaluation of \ -In[422]:=",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], +In[100]:=",ExpressionUUID->"941f9210-a793-4988-b59b-e0df9c18d95c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 422, 456, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913457857765007`*^9}, +during this calculation.\"", 2, 100, 20, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345785749161*^9, 3.994258459882592*^9}, CellLabel-> "During evaluation of \ -In[422]:=",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], +In[100]:=",ExpressionUUID->"1c2fde78-e5ad-477b-8b68-7643e7c5a284"], -Cell[BoxData["10.362747935330768`"], "Output", - CellChangeTimes->{3.991345792196575*^9}, +Cell[BoxData["10.947808159642054`"], "Output", + CellChangeTimes->{3.991345792196575*^9, 3.994258547380101*^9}, CellLabel-> - "Out[422]=",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] + "Out[100]=",ExpressionUUID->"0e46b145-9512-430c-bdd6-03813d18ba7c"] }, Open ]], Cell[CellGroupData[{ @@ -8493,68 +8589,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918501903071613`*^9, - 3.9918501951272774`*^9}},ExpressionUUID->"0b10f52e-4583-2a4b-993d-\ -96e59dd43e6a"], + CellChangeTimes->{{3.9918501903071613`*^9, 3.9918501951272774`*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"0b10f52e-4583-2a4b-993d-96e59dd43e6a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 423, 457, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345792232563*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.868142499493109`*^-207\\\", \ +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 21, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345792232563*^9, 3.9942585474643173`*^9}, CellLabel-> "During evaluation of \ -In[423]:=",ExpressionUUID->"0e308aaf-a4b5-d740-9882-5c338a63d7a7"], +In[101]:=",ExpressionUUID->"6c71c201-59cc-4e2e-b7ed-9291e96bc994"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 423, 458, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345792242544*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.958784044479573`*^-212\\\", \ +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 22, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345792232563*^9, 3.99425854747538*^9}, CellLabel-> "During evaluation of \ -In[423]:=",ExpressionUUID->"5e35cc91-e340-c74b-b6dd-42063e8a308b"], +In[101]:=",ExpressionUUID->"5d72e84f-d58a-48f8-a55c-43b6b982ea0a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 423, 459, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913457922505417`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.293769090046458`*^-217\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 23, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345792232563*^9, 3.994258547485652*^9}, CellLabel-> "During evaluation of \ -In[423]:=",ExpressionUUID->"c3f5c3a9-ece1-e648-aa3a-3f66f2873ea7"], +In[101]:=",ExpressionUUID->"0cb63562-6ecc-41fa-99a6-852e36ec2bd5"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 423, 460, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913457922595577`*^9}, +during this calculation.\"", 2, 101, 24, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345792232563*^9, 3.994258547495417*^9}, CellLabel-> "During evaluation of \ -In[423]:=",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], +In[101]:=",ExpressionUUID->"35209c04-f50a-423e-b95a-1beb73b8bf55"], -Cell[BoxData["0.32136877427435395`"], "Output", - CellChangeTimes->{3.991345799137081*^9}, +Cell[BoxData["0.5671886314456249`"], "Output", + CellChangeTimes->{3.991345799137081*^9, 3.994258559268751*^9}, CellLabel-> - "Out[423]=",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] + "Out[101]=",ExpressionUUID->"3c9b9624-927a-4676-8eb8-2341830162eb"] }, Open ]], Cell[CellGroupData[{ @@ -8575,8 +8678,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8621,68 +8723,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.99185020477277*^9, - 3.991850207864538*^9}},ExpressionUUID->"a58948c9-6d3d-e847-a269-\ -d2e0cc5d1484"], + CellChangeTimes->{{3.99185020477277*^9, 3.991850207864538*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"a58948c9-6d3d-e847-a269-d2e0cc5d1484"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 424, 461, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913457991730843`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.868142499493109`*^-207\\\", \ +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 25, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913457991730843`*^9, 3.9942585593191557`*^9}, CellLabel-> "During evaluation of \ -In[424]:=",ExpressionUUID->"2247cd70-3ffa-2245-971e-6c6a2bd1ecfc"], +In[102]:=",ExpressionUUID->"8cda67ad-d49a-4609-8ee3-5b451c7bbda3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 424, 462, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913457991830807`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.958784044479573`*^-212\\\", \ +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 26, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913457991730843`*^9, 3.99425855932967*^9}, CellLabel-> "During evaluation of \ -In[424]:=",ExpressionUUID->"d9ae7d5b-4e89-a74f-be53-15700ab2593c"], +In[102]:=",ExpressionUUID->"363f759b-0dd7-4d66-9b81-af11f24be131"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 424, 463, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345799191578*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.293769090046458`*^-217\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 27, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913457991730843`*^9, 3.99425855933949*^9}, CellLabel-> "During evaluation of \ -In[424]:=",ExpressionUUID->"821c7ce3-36cc-9549-9881-1225eb1561cf"], +In[102]:=",ExpressionUUID->"32b700bf-c609-47de-8aff-5f0ac76fb451"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 424, 464, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913457992005787`*^9}, +during this calculation.\"", 2, 102, 28, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913457991730843`*^9, 3.9942585593473377`*^9}, CellLabel-> "During evaluation of \ -In[424]:=",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], +In[102]:=",ExpressionUUID->"39d0527a-3a05-416d-b0cb-8990ec6ca72e"], -Cell[BoxData["6.886509882261309`"], "Output", - CellChangeTimes->{3.991345804559931*^9}, +Cell[BoxData["32.891539349105734`"], "Output", + CellChangeTimes->{3.991345804559931*^9, 3.994258570330591*^9}, CellLabel-> - "Out[424]=",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] + "Out[102]=",ExpressionUUID->"954749c0-a023-4811-be45-11260f2a4ca3"] }, Open ]], Cell[CellGroupData[{ @@ -8703,8 +8812,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8749,68 +8857,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918502122939777`*^9, - 3.991850217343153*^9}},ExpressionUUID->"c817b2d1-7deb-5a45-9938-\ -ca10003188eb"], + CellChangeTimes->{{3.9918502122939777`*^9, 3.991850217343153*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"c817b2d1-7deb-5a45-9938-ca10003188eb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 425, 465, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913458046014442`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.868142499493109`*^-207\\\", \ +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 29, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458046014442`*^9, 3.99425857040637*^9}, CellLabel-> "During evaluation of \ -In[425]:=",ExpressionUUID->"3701f96f-691c-9040-a8a1-ff3958638338"], +In[103]:=",ExpressionUUID->"2f280f68-519e-416c-a4d7-d3d75ca195f8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 425, 466, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913458046114445`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.958784044479573`*^-212\\\", \ +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 30, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458046014442`*^9, 3.994258570417055*^9}, CellLabel-> "During evaluation of \ -In[425]:=",ExpressionUUID->"9e260603-f97f-ac44-8251-869444fbcc24"], +In[103]:=",ExpressionUUID->"53302059-d984-42a4-9dac-bb152bf039a2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 425, 467, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345804619444*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.293769090046458`*^-217\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 31, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458046014442`*^9, 3.994258570426086*^9}, CellLabel-> "During evaluation of \ -In[425]:=",ExpressionUUID->"f34d60ab-6a89-fd45-89b6-5f3b4b17dd22"], +In[103]:=",ExpressionUUID->"f82a40c2-64bb-401a-a843-f17ab96ad15f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 425, 468, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913458046274433`*^9}, +during this calculation.\"", 2, 103, 32, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458046014442`*^9, 3.994258570436062*^9}, CellLabel-> "During evaluation of \ -In[425]:=",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], +In[103]:=",ExpressionUUID->"acadff16-81b8-49e7-80b4-7bc39eaec292"], -Cell[BoxData["18.478556086442907`"], "Output", - CellChangeTimes->{3.991345807954506*^9}, +Cell[BoxData["5.6767217906181395`"], "Output", + CellChangeTimes->{3.991345807954506*^9, 3.994258579757365*^9}, CellLabel-> - "Out[425]=",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] + "Out[103]=",ExpressionUUID->"e51fb624-0e4f-4086-94c1-21b9383defc0"] }, Open ]], Cell[CellGroupData[{ @@ -8819,22 +8934,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991850221900238*^9, - 3.9918502257325497`*^9}},ExpressionUUID->"350334c7-7c47-c24c-8adc-\ -781173809e57"], - -Cell[BoxData["0.028488532115740543`"], "Output", - CellChangeTimes->{3.991345807987507*^9}, + CellChangeTimes->{{3.991850221900238*^9, 3.9918502257325497`*^9}}, CellLabel-> - "Out[426]=",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] + "In[104]:=",ExpressionUUID->"350334c7-7c47-c24c-8adc-781173809e57"], + +Cell[BoxData["0.04150845919163348`"], "Output", + CellChangeTimes->{3.991345807987507*^9, 3.994258579812605*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"dd23eecf-bc8f-4026-befb-28f2e9976d0e"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.991850228782873*^9, 3.991850231287325*^9}, - 3.9919246253575134`*^9},ExpressionUUID->"597921e5-69d3-564d-a8fa-\ -092e912c15e0"], + 3.9919246253575134`*^9}, + CellLabel-> + "In[105]:=",ExpressionUUID->"597921e5-69d3-564d-a8fa-092e912c15e0"], Cell[CellGroupData[{ @@ -8857,12 +8973,12 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[428]:=",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], + "In[106]:=",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], -Cell[BoxData["8.947947137013426`"], "Output", - CellChangeTimes->{3.991345808020666*^9}, +Cell[BoxData["6.925133707239257`"], "Output", + CellChangeTimes->{3.991345808020666*^9, 3.994258579843359*^9}, CellLabel-> - "Out[428]=",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] + "Out[106]=",ExpressionUUID->"12cee30a-5064-427c-aed3-3666bca22668"] }, Open ]], Cell[CellGroupData[{ @@ -8872,12 +8988,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[430]:=",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], + "In[107]:=",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], -Cell[BoxData["1.2539951617800844`"], "Output", - CellChangeTimes->{3.9913458080616665`*^9}, +Cell[BoxData["2.4679757206190693`"], "Output", + CellChangeTimes->{3.9913458080616665`*^9, 3.99425857986335*^9}, CellLabel-> - "Out[430]=",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] + "Out[107]=",ExpressionUUID->"e500e689-cdd9-4dda-a6e9-b4a25a9cf2d2"] }, Open ]], Cell[CellGroupData[{ @@ -8887,12 +9003,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[433]:=",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], + "In[108]:=",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], -Cell[BoxData["11.220682417678793`"], "Output", - CellChangeTimes->{3.991345808188246*^9}, +Cell[BoxData["17.091061851507213`"], "Output", + CellChangeTimes->{3.991345808188246*^9, 3.99425857988056*^9}, CellLabel-> - "Out[433]=",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] + "Out[108]=",ExpressionUUID->"9f581fc5-f8c8-4eb7-86e9-b2d6cd2836ec"] }, Open ]], Cell[CellGroupData[{ @@ -9082,12 +9198,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[434]:=",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], + "In[109]:=",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], -Cell[BoxData["0.04214145338799881`"], "Output", - CellChangeTimes->{3.991345808220566*^9}, +Cell[BoxData["0.006896631076360031`"], "Output", + CellChangeTimes->{3.991345808220566*^9, 3.9942585799049053`*^9}, CellLabel-> - "Out[434]=",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] + "Out[109]=",ExpressionUUID->"7f801a86-2679-4ad1-adf1-b44d785a973f"] }, Open ]], Cell[CellGroupData[{ @@ -9101,12 +9217,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[435]:=",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], + "In[110]:=",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], -Cell[BoxData["4.317080886816563`"], "Output", - CellChangeTimes->{3.9913458083195686`*^9}, +Cell[BoxData["10.671523947625756`"], "Output", + CellChangeTimes->{3.9913458083195686`*^9, 3.9942585801249933`*^9}, CellLabel-> - "Out[435]=",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] + "Out[110]=",ExpressionUUID->"264598d4-387d-44e6-a31a-41cab313ec8b"] }, Open ]], Cell[CellGroupData[{ @@ -9298,12 +9414,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[436]:=",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], + "In[111]:=",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], -Cell[BoxData["0.012862376162526763`"], "Output", - CellChangeTimes->{3.991345808334568*^9}, +Cell[BoxData["0.054996629307130784`"], "Output", + CellChangeTimes->{3.991345808334568*^9, 3.9942585801440353`*^9}, CellLabel-> - "Out[436]=",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] + "Out[111]=",ExpressionUUID->"9cc23128-1b0c-438a-8e9f-14cf7d3f2321"] }, Open ]], Cell[CellGroupData[{ @@ -9317,12 +9433,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[437]:=",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], + "In[112]:=",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], -Cell[BoxData["7.814196669618258`"], "Output", - CellChangeTimes->{3.991345808432392*^9}, +Cell[BoxData["3.7790001076020934`"], "Output", + CellChangeTimes->{3.991345808432392*^9, 3.9942585803401623`*^9}, CellLabel-> - "Out[437]=",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] + "Out[112]=",ExpressionUUID->"4b80daa3-8bb9-4c3d-ad14-f9b06ec4f38e"] }, Open ]], Cell[CellGroupData[{ @@ -9415,12 +9531,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[438]:=",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], + "In[113]:=",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.991345808448488*^9}, +Cell[BoxData["0.08457834250906257`"], "Output", + CellChangeTimes->{3.991345808448488*^9, 3.994258580357813*^9}, CellLabel-> - "Out[438]=",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] + "Out[113]=",ExpressionUUID->"2b15bf29-4a58-4470-991a-8cb8023e51c0"] }, Open ]], Cell[CellGroupData[{ @@ -9510,12 +9626,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[439]:=",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], + "In[114]:=",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.9913458084773808`*^9}, +Cell[BoxData["0.9154216574909375`"], "Output", + CellChangeTimes->{3.9913458084773808`*^9, 3.99425858037521*^9}, CellLabel-> - "Out[439]=",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] + "Out[114]=",ExpressionUUID->"9770ccda-13db-4d41-8a82-7f4a68a62bb4"] }, Open ]], Cell[CellGroupData[{ @@ -9638,12 +9754,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[440]:=",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], + "In[115]:=",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913458085134735`*^9}, +Cell[BoxData["0.07742484648748227`"], "Output", + CellChangeTimes->{3.9913458085134735`*^9, 3.99425858039683*^9}, CellLabel-> - "Out[440]=",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] + "Out[115]=",ExpressionUUID->"bb8769d2-49d3-4832-9594-2ade679977cd"] }, Open ]], Cell[CellGroupData[{ @@ -9705,67 +9821,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.99185025346871*^9},ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], + CellChangeTimes->{3.99185025346871*^9}, + CellLabel-> + "In[116]:=",ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 441, - 469, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913458085463753`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.839274782198996`*^-216\\\", \ +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 116, + 33, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458085463753`*^9, 3.994258580417225*^9}, CellLabel-> "During evaluation of \ -In[441]:=",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], +In[116]:=",ExpressionUUID->"93e4edc2-447e-4c0f-a346-26d948ff7b98"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 441, - 470, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913458085563755`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1602126885561996`*^-221\\\", \ +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 116, + 34, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458085463753`*^9, 3.994258580427944*^9}, CellLabel-> "During evaluation of \ -In[441]:=",ExpressionUUID->"dda5376f-614c-1846-a3e1-09857b4bcae6"], +In[116]:=",ExpressionUUID->"989a650b-cdc5-4290-9f03-b198b3beb33c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 441, 471, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345808564377*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.740976432172818`*^-227\\\", \ +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 116, + 35, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458085463753`*^9, 3.9942585804369698`*^9}, CellLabel-> "During evaluation of \ -In[441]:=",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], +In[116]:=",ExpressionUUID->"33659442-747d-45c6-a7ee-ec009636862e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 441, 472, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913458085733776`*^9}, +during this calculation.\"", 2, 116, 36, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458085463753`*^9, 3.994258580447234*^9}, CellLabel-> "During evaluation of \ -In[441]:=",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], +In[116]:=",ExpressionUUID->"4e7e7040-be72-4657-a75f-543962a378a2"], -Cell[BoxData["4.317080886816564`"], "Output", - CellChangeTimes->{3.9913458125059433`*^9}, +Cell[BoxData["10.671523947625746`"], "Output", + CellChangeTimes->{3.9913458125059433`*^9, 3.9942585891671677`*^9}, CellLabel-> - "Out[441]=",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] + "Out[116]=",ExpressionUUID->"51fc6f5b-ad14-4dfe-b21e-7546a2d0cee2"] }, Open ]], Cell[CellGroupData[{ @@ -9827,68 +9951,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918502579298553`*^9},ExpressionUUID->"baacd3f7-96e4-2949-b9f9-\ -9afb90e551d9"], + CellChangeTimes->{3.9918502579298553`*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"baacd3f7-96e4-2949-b9f9-9afb90e551d9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 442, - 473, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345812542961*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.839274782198996`*^-216\\\", \ +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 37, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345812542961*^9, 3.994258589216796*^9}, CellLabel-> "During evaluation of \ -In[442]:=",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], +In[117]:=",ExpressionUUID->"5991f399-a129-4e6c-b1b2-234369ec25ff"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 442, - 474, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345812552984*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1602126885561996`*^-221\\\", \ +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 38, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345812542961*^9, 3.994258589226507*^9}, CellLabel-> "During evaluation of \ -In[442]:=",ExpressionUUID->"b91abb11-65b8-3b43-a495-4cb1457edd27"], +In[117]:=",ExpressionUUID->"702474a9-3787-41f6-9cbe-c177f5d42595"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 442, 475, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134581256196*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.740976432172818`*^-227\\\", \ +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 39, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345812542961*^9, 3.9942585892366037`*^9}, CellLabel-> "During evaluation of \ -In[442]:=",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], +In[117]:=",ExpressionUUID->"760b37af-c69d-4d81-b868-473fc2318874"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 442, 476, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345812570959*^9}, +during this calculation.\"", 2, 117, 40, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345812542961*^9, 3.994258589246422*^9}, CellLabel-> "During evaluation of \ -In[442]:=",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], +In[117]:=",ExpressionUUID->"207cbd56-7ef0-4b88-b502-e66de17935d8"], -Cell[BoxData["7.8141966696182585`"], "Output", - CellChangeTimes->{3.991345816415531*^9}, +Cell[BoxData["3.7790001076020916`"], "Output", + CellChangeTimes->{3.991345816415531*^9, 3.994258597589683*^9}, CellLabel-> - "Out[442]=",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] + "Out[117]=",ExpressionUUID->"da7ba560-6b9a-4e7a-a8d5-fbebfb42c6c4"] }, Open ]], Cell[CellGroupData[{ @@ -9946,95 +10077,95 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918502605597496`*^9},ExpressionUUID->"ea08a5a9-d446-9147-ba82-\ -e3924f732df2"], + CellChangeTimes->{3.9918502605597496`*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"ea08a5a9-d446-9147-ba82-e3924f732df2"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi -CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 -j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu -7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF -KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 -zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW -kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 -8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 -wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v -lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt -p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t -k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X -HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc -BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ -y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG -gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh -hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB -gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U -1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n -I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq -h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp -Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ -ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a -bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f -hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj -3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx -5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf -t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw -pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD -6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p -ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia -12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 -Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r -jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q -ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 -D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h -tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T -BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth -YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT -NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya -0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv -o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 -MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn -opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS -DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B -Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH -imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L -I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX -7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v -+j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj -3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo -8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g -HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 -uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG -hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj -K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s -RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD -YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R -uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp -voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp -4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn -YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 -r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW -bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw -PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za -oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ -Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL -QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z -PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu -T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN -caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L -V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 -y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K -VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb -KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy -icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F -8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo -5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk4VkscB3ApUihbllCyZk3ebG3zsy9ZorIny3mPJdnpLUIJdSvRcqmI +kC1ky56ISiiKikRkSV7rkVRXueOP85zn88yc7/xmzsxsc/OzprOysLBM4Wfl +HfBaRa6y8/V+R8MXngGyTLR/OkvdTb8Ate1ujVvxYJrGDWn9OlT6u3NkxQeJ +V+xctGco9HxfZCB2CSOyiU2/HVm8+2YXhH3xuXBDZP4bdPXbf37B2NWdAXeX +1N4hmTreZyHYEx9bw0/V9iBDI0W7k9ibR6Ucf+h9Qk3RxvKnsA/MhGsHtX9G +l728tMKw65cmOBn5Q+jEzJWYM9jvzwqFVfgOI1bOCp4o7Gl2/YnvaqNovnio +9xw2+2V/e9riGGru5hmKwd7Cm9oSUDuORj31ZC9iW4j+yJ7Wm0T7sku9E7DJ +dElBZY5ptG7HjNcN7EgZy5jj7TNoakwlJxm7R6h7Z3D+HJJMquy7h004eHtd +v0whLZKlKxt7NoXlXqnvPFriNeMowOaQVOaZU1tAwveYSpXYN4gmI55NP1Co +NRJ7jC2RYx+5Y/EHygi/adKEraUUO32i9iditBk7d2J7anxun9BbQpfWtvhN +YX9nhKxZL/sHbdyjZLmAHVXLuVee4y8KZyb6/MFOBq0HHu3LSFnV1XWDHK7v +fot+YP4q6F3HSaNh5z+/PnhWlBV8J0NZ92HPfnUOT7zMCvvXD280wg5XWCgr +9l0Nh3VrRxyxbzzcJjWjxgbX/cnQC9gfOyfr/2ayQdGqDvUb2BJUpcOGTezQ +aqhBS8cu2GVxTXmRHa4LsIxXYTdXn17lU8sBHEmntaewF5q6Po/rcYEs8T7M +dTsT8Zlx8YTVc8Gz64a+gdiq3frArc0N2YJX86KxvUcepe9U2QDnc3N+Z2P7 +s7ar7uPiAf/cSfY57FHJormYH7wwHOb74po8Xh+ydV0HjQ/Svqgb5WKzPhjb +JhzAB2waHRvrsSVoW63zmXxg0h0SNoHtoJdQ+nqQH/jnYuoMFZiowz0wSKht +Eyw/1R/lUmSigZz4Sy4cgvA4YW5OFnuSmZ+ZZyAIy86eRjrY64OHu/Y0CIJp +e0l7KLb++cO7XB4JQRVkwSh2TZbGQm6aCCRoxLzqUGKirNHfobuDxSHlVldo +nwoTGR+JGwgqFAflSQmDJezJZn7DwjFxkLn11lp8BxPtylLaJGG/Bc7eclFy +wW52cy5j278VwvkFe8axqZnBk+PREnCcxYGXfScT8Z/QLy8zlwS98jR2fxoT +jWWt9zzoLQkxbJoNydhVnzpFp2IloUpKvLoR28nsaLRsgySENr/1FNiF61MM +tb6lJgXK+q+f1GHvmsiZjRCShteZtgdENJjosAensumQDJzmWH67SpuJUOgR +Nds/MvDiNk/UTmyFmDRNQkQWnDi+eLlis2TSdCOsZKGGs3G+EbtwwNG2tFEW +RhNsB2N24/NpU3B2c4YcsFVvExPZi+vTN38/4SYPzJHnQicQE2UeSupbjJCH +pN+CjlnY8W5Dg2vuyIPw8XV9fdhEVAhzS5c8lDi/STgATMRbl8pySE8B7ti/ +6VLWwfuHNq1QK6UIXlwFFX90mUhU8mrkpRElKLJyHW81ZKK6f77L/2JVhrVl +WwQ2GuH1mLfvJrcpw9h7rrhD2HebpeV1nZWBuhCi248t6VHz9ucHZTBSsNz4 +3RjPt2BUhmxTgXUn3y6rHGAicdEtpIS9Kjj6au38aMlESveDuf5DaqDa08Fg +c2AiNyJ6QdlCDfxGuLOPYCdLXRtwcVKDcc5Znmzs1RkPi58z1EDrzO00I0d8 +3u5OHL5Woga6Vk7pV5zwfZrskiovRQOGv5qKzDH8fy+Zqdix7wKD3m6/cwQT +3QuUPvioXR0GmosUF/yYqDMUaZ6/rw1CI33XuS4z0TbndxZHffaB8/whr4UH +TERfrigSPwWQNz8Qe/kVEwkxq9YKuenCqolaU6EfTBRM2/vpmoI+PDWWOPpk +6yRym1pq4Z8wAL9XN3cKmU2iQt2gtWkdRhB1rpPGFTWJsr57NxbcMAGOjndp +XOWT6KeO8KvmyAPgcydKRmZ2EvWzrJ4bcjUHv/YAp5cqU8hXzC/hrJQlvGjj +VjjiM4WKvFoabsYcBJvQRDnb0il0el5kUdHLCnTO8Nvc+DGFFkwNbV4cswb5 +vEyt03rTSNsxUWfU6hD43LOxqE+cRm9FUr2baYdhYXZRaXX/NNqcHV2Xu/0I +fDXZF/FGdQZVDSqYWXDbQH9ySsxA1Aza0j3rETplA743RWqed84g2s3EgsxB +WzBQDD53TGAWpa6ZV7nWZAeMZ5JLn/bNogqdHR9jqu0hRL1ueuvxWZSs+Q/v +Ur4D8FWevZKTNIs6+u7H0i47go7AJYVNjbPokXmKtH+UExAm+jGFU7No7sQh +Fl/iKHz/6PP8peAcWjCU95zWc4awL5aGHvvnUO5U788gjWNwVvjPAOE5h+zu +3Xc/yuUCgvGXU47Hz6Gy0gPHVse5wGYjVkPpijmkLfr218VfLqB/NycvuXcO +SQ16fHzj5QpaacEsqb/n0AjnccuUYVewC/oUgcQo1Blv4W50xA167Z5YuGtT +6AYjjTOk0w2GLm4lTW0oVFe//MvdxB3OzTXsbfCj0EYniKPVuIPG3Ovu6vMU +khB40SFW5w5iTZcKNsRQSLXdXJi93h36PcUs3bGt9zrm9TTi/rLx3zljcb5Y +aNuZl+4gwYh74hBHoc39Dza29LhDx+pYs+mLFJJ2Fkp2WnQHB5U7vybjKaTt +Mp0bs4sAiyQBH8NkCmXfmg2y0CCg92X99AVsgS5qv5AWAWcKh6ENe9pgsTt3 +DwH7SyMPWd6i8P3Fsqpdl4BTP1R3HrlNoQ2LvPZ8VgSU2XC22KZQaOSK+rq0 +EwQcczfYqZVOIasXmt0efgTIydFuBmPXs+xOUw0gIPxJxYti7FtB+9WfBhPQ +s4NI3n6PQhb2Rq6jYQSMxtz+uimDQtXS9tWK/xAQI39b82smheJrw72qsgn4 +tk3On8ih0Am1JG1GLgFBe79evIVtlleyTiufgIgtbkGvsdcnjeVVFhJgLxjw +SDOXQjGBBycqygm4tGS9sDaPQuHy0scfPSVgMFr1WFo+hbyT2nxKBwgAj8Ly +vEIKmWwY2xs4SEB62VxND/b2GBZutS8E2HrrJKwtotBYoHphySgBuuencwhs +V4u0qeJJApYvzf4j9pBCdmxBvg9/E/BbVEU0uphCRkGb/QsE6TCKgnUVyyj0 +NC3W9JowHcriWJNssfe2U9KMzXSIUt5dEo2tKtPWq7eFDvFF8Rp92CIfwvT6 +ZOhQPqp8Pq6cQszd/YLr1elw46Sn7LtHFLrKmv7Y4xAdGN/8XPWr8Px3cCWb +H6ED9TjNxQv7vCMjkGZLhyyWTul4bEb5QbllBzrU521Zeo/tSq5K/NeNDscl +Z0fp1RSitboRzwLowG5pn8GoodCHRBlOqQQ6PDhxNi2gjkJFiNtzPJEOgvOO ++65gn5/63lx4nQ5jH5xzcrHVTJojtJLo8K/Rm88D2PEs7pT5XTrcfcz3xfgx +hQz90nsZBXQoVTkuz19PIXHxCxr7i+iQXu56QRH7e6vf9dXFdOh2sSrTw86Q +RebxZXSgKfKeCML+09/fkFlDB4H2536d2OVmormvW+jgXfXkYdQTCl36zcp2 +o5UOifXrX93EdsudcLVvx+t/XaYiH5tnTY3oSAcd1GQamV3YPrV2V3+9p0PB +GYsRqQYKSSn8Gyo9SodU21aOGuzfH850fRujw5oWli9t2J0xdNWH43SQSxmO +7ceOGNo1oT1Jhxoim8bSSKGPyV1HLefp0MP4JqyHfW0tr8HpVSQEmDbyPMGu +o/odg1eTINHibN2B/bU/P9CXjQTN0gzrz9h7y/XT3daRUPBI4Opf7DEXxn+m +vCRMj7svaj/F9ZsZ8BnwkzC5+EPZGHuPJp882kSCivZWKRvsBO4CG5oICYqk +nEnASnvN5xLRbSR0Lw1GZ2GT9wtaNkmRUDnztah4pX/Cqc8bZUjQVwlJrsMe +I/m518iTINQumtO10s5v5DmpSsIaA5/Sv9g1f/kjx9RIsN3AeMPRRKHRb4M3 +B3eRYJH4p4gPe3fD6aZuLRJClfzvy2CP+BRteQwkDKW8jjTG3mAXpl6pS4Ls +h3PXDmJr6xmbleiTEBuf7W6HHS/y5dR9YxKm1mrpeGBXrXmYkGZKws/8THNf +7OGZsJxbZiQoXTktHIKt9XzTuysHSfimSX47i+1W8oUZZ02CmdKpmTjsKykP +Wc8dxvmV82VXsL8EmqiG2pGwzkqMkYzN7Sxo5O9Awtr3LSdTV/JMho96O5Gg +/rlXPWPl+61nLjm7kHDxrexU/ko9600z7NxI0IlwHStayVsQrLYmSLDa+Te1 +dCVvaLjDjCSB6b7EX7GS1148ZuhJwp0kR+Pqlfoqz/wBb9zfVnRP3Up+hqnA +Hh8SzDX3TNav5F8RUlT3JWHfuxrHxpV8xojODn+8X3puXWzC5iJK7OQDSXCc +/RDyDFvTMsJPKpiEnA/BEi9W8ncfiBUPJWG7lf/FFuzLMsKpQgw8nnxr8Uvs +Cp7RMt7TJLBonPu3FXvov5JWznASPG2Sd7et5H+NGGKLIGFrEFfqijXeHvi5 +HEmCWMTA4xX/DxAqGqc= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -10048,107 +10179,107 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi -CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 -j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu -7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF -KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 -zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW -kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 -8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 -wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v -lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt -p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t -k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X -HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc -BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ -y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG -gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh -hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB -gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U -1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n -I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq -h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp -Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ -ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a -bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f -hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj -3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx -5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf -t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw -pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD -6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p -ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia -12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 -Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r -jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q -ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 -D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h -tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T -BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth -YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT -NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya -0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv -o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 -MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn -opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS -DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B -Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH -imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L -I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX -7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v -+j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj -3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo -8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g -HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 -uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG -hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj -K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s -RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD -YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R -uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp -voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp -4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn -YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 -r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW -bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw -PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za -oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ -Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL -QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z -PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu -T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN -caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L -V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 -y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K -VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb -KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy -icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F -8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo -5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= +1:eJwV1Hk4VkscB3ApUihbllCyZk3ebG3zsy9ZorIny3mPJdnpLUIJdSvRcqmI +kC1ky56ISiiKikRkSV7rkVRXueOP85zn88yc7/xmzsxsc/OzprOysLBM4Wfl +HfBaRa6y8/V+R8MXngGyTLR/OkvdTb8Ate1ujVvxYJrGDWn9OlT6u3NkxQeJ +V+xctGco9HxfZCB2CSOyiU2/HVm8+2YXhH3xuXBDZP4bdPXbf37B2NWdAXeX +1N4hmTreZyHYEx9bw0/V9iBDI0W7k9ibR6Ucf+h9Qk3RxvKnsA/MhGsHtX9G +l728tMKw65cmOBn5Q+jEzJWYM9jvzwqFVfgOI1bOCp4o7Gl2/YnvaqNovnio +9xw2+2V/e9riGGru5hmKwd7Cm9oSUDuORj31ZC9iW4j+yJ7Wm0T7sku9E7DJ +dElBZY5ptG7HjNcN7EgZy5jj7TNoakwlJxm7R6h7Z3D+HJJMquy7h004eHtd +v0whLZKlKxt7NoXlXqnvPFriNeMowOaQVOaZU1tAwveYSpXYN4gmI55NP1Co +NRJ7jC2RYx+5Y/EHygi/adKEraUUO32i9iditBk7d2J7anxun9BbQpfWtvhN +YX9nhKxZL/sHbdyjZLmAHVXLuVee4y8KZyb6/MFOBq0HHu3LSFnV1XWDHK7v +fot+YP4q6F3HSaNh5z+/PnhWlBV8J0NZ92HPfnUOT7zMCvvXD280wg5XWCgr +9l0Nh3VrRxyxbzzcJjWjxgbX/cnQC9gfOyfr/2ayQdGqDvUb2BJUpcOGTezQ +aqhBS8cu2GVxTXmRHa4LsIxXYTdXn17lU8sBHEmntaewF5q6Po/rcYEs8T7M +dTsT8Zlx8YTVc8Gz64a+gdiq3frArc0N2YJX86KxvUcepe9U2QDnc3N+Z2P7 +s7ar7uPiAf/cSfY57FHJormYH7wwHOb74po8Xh+ydV0HjQ/Svqgb5WKzPhjb +JhzAB2waHRvrsSVoW63zmXxg0h0SNoHtoJdQ+nqQH/jnYuoMFZiowz0wSKht +Eyw/1R/lUmSigZz4Sy4cgvA4YW5OFnuSmZ+ZZyAIy86eRjrY64OHu/Y0CIJp +e0l7KLb++cO7XB4JQRVkwSh2TZbGQm6aCCRoxLzqUGKirNHfobuDxSHlVldo +nwoTGR+JGwgqFAflSQmDJezJZn7DwjFxkLn11lp8BxPtylLaJGG/Bc7eclFy +wW52cy5j278VwvkFe8axqZnBk+PREnCcxYGXfScT8Z/QLy8zlwS98jR2fxoT +jWWt9zzoLQkxbJoNydhVnzpFp2IloUpKvLoR28nsaLRsgySENr/1FNiF61MM +tb6lJgXK+q+f1GHvmsiZjRCShteZtgdENJjosAensumQDJzmWH67SpuJUOgR +Nds/MvDiNk/UTmyFmDRNQkQWnDi+eLlis2TSdCOsZKGGs3G+EbtwwNG2tFEW +RhNsB2N24/NpU3B2c4YcsFVvExPZi+vTN38/4SYPzJHnQicQE2UeSupbjJCH +pN+CjlnY8W5Dg2vuyIPw8XV9fdhEVAhzS5c8lDi/STgATMRbl8pySE8B7ti/ +6VLWwfuHNq1QK6UIXlwFFX90mUhU8mrkpRElKLJyHW81ZKK6f77L/2JVhrVl +WwQ2GuH1mLfvJrcpw9h7rrhD2HebpeV1nZWBuhCi248t6VHz9ucHZTBSsNz4 +3RjPt2BUhmxTgXUn3y6rHGAicdEtpIS9Kjj6au38aMlESveDuf5DaqDa08Fg +c2AiNyJ6QdlCDfxGuLOPYCdLXRtwcVKDcc5Znmzs1RkPi58z1EDrzO00I0d8 +3u5OHL5Woga6Vk7pV5zwfZrskiovRQOGv5qKzDH8fy+Zqdix7wKD3m6/cwQT +3QuUPvioXR0GmosUF/yYqDMUaZ6/rw1CI33XuS4z0TbndxZHffaB8/whr4UH +TERfrigSPwWQNz8Qe/kVEwkxq9YKuenCqolaU6EfTBRM2/vpmoI+PDWWOPpk +6yRym1pq4Z8wAL9XN3cKmU2iQt2gtWkdRhB1rpPGFTWJsr57NxbcMAGOjndp +XOWT6KeO8KvmyAPgcydKRmZ2EvWzrJ4bcjUHv/YAp5cqU8hXzC/hrJQlvGjj +VjjiM4WKvFoabsYcBJvQRDnb0il0el5kUdHLCnTO8Nvc+DGFFkwNbV4cswb5 +vEyt03rTSNsxUWfU6hD43LOxqE+cRm9FUr2baYdhYXZRaXX/NNqcHV2Xu/0I +fDXZF/FGdQZVDSqYWXDbQH9ySsxA1Aza0j3rETplA743RWqed84g2s3EgsxB +WzBQDD53TGAWpa6ZV7nWZAeMZ5JLn/bNogqdHR9jqu0hRL1ueuvxWZSs+Q/v +Ur4D8FWevZKTNIs6+u7H0i47go7AJYVNjbPokXmKtH+UExAm+jGFU7No7sQh +Fl/iKHz/6PP8peAcWjCU95zWc4awL5aGHvvnUO5U788gjWNwVvjPAOE5h+zu +3Xc/yuUCgvGXU47Hz6Gy0gPHVse5wGYjVkPpijmkLfr218VfLqB/NycvuXcO +SQ16fHzj5QpaacEsqb/n0AjnccuUYVewC/oUgcQo1Blv4W50xA167Z5YuGtT +6AYjjTOk0w2GLm4lTW0oVFe//MvdxB3OzTXsbfCj0EYniKPVuIPG3Ovu6vMU +khB40SFW5w5iTZcKNsRQSLXdXJi93h36PcUs3bGt9zrm9TTi/rLx3zljcb5Y +aNuZl+4gwYh74hBHoc39Dza29LhDx+pYs+mLFJJ2Fkp2WnQHB5U7vybjKaTt +Mp0bs4sAiyQBH8NkCmXfmg2y0CCg92X99AVsgS5qv5AWAWcKh6ENe9pgsTt3 +DwH7SyMPWd6i8P3Fsqpdl4BTP1R3HrlNoQ2LvPZ8VgSU2XC22KZQaOSK+rq0 +EwQcczfYqZVOIasXmt0efgTIydFuBmPXs+xOUw0gIPxJxYti7FtB+9WfBhPQ +s4NI3n6PQhb2Rq6jYQSMxtz+uimDQtXS9tWK/xAQI39b82smheJrw72qsgn4 +tk3On8ih0Am1JG1GLgFBe79evIVtlleyTiufgIgtbkGvsdcnjeVVFhJgLxjw +SDOXQjGBBycqygm4tGS9sDaPQuHy0scfPSVgMFr1WFo+hbyT2nxKBwgAj8Ly +vEIKmWwY2xs4SEB62VxND/b2GBZutS8E2HrrJKwtotBYoHphySgBuuencwhs +V4u0qeJJApYvzf4j9pBCdmxBvg9/E/BbVEU0uphCRkGb/QsE6TCKgnUVyyj0 +NC3W9JowHcriWJNssfe2U9KMzXSIUt5dEo2tKtPWq7eFDvFF8Rp92CIfwvT6 +ZOhQPqp8Pq6cQszd/YLr1elw46Sn7LtHFLrKmv7Y4xAdGN/8XPWr8Px3cCWb +H6ED9TjNxQv7vCMjkGZLhyyWTul4bEb5QbllBzrU521Zeo/tSq5K/NeNDscl +Z0fp1RSitboRzwLowG5pn8GoodCHRBlOqQQ6PDhxNi2gjkJFiNtzPJEOgvOO ++65gn5/63lx4nQ5jH5xzcrHVTJojtJLo8K/Rm88D2PEs7pT5XTrcfcz3xfgx +hQz90nsZBXQoVTkuz19PIXHxCxr7i+iQXu56QRH7e6vf9dXFdOh2sSrTw86Q +RebxZXSgKfKeCML+09/fkFlDB4H2536d2OVmormvW+jgXfXkYdQTCl36zcp2 +o5UOifXrX93EdsudcLVvx+t/XaYiH5tnTY3oSAcd1GQamV3YPrV2V3+9p0PB +GYsRqQYKSSn8Gyo9SodU21aOGuzfH850fRujw5oWli9t2J0xdNWH43SQSxmO +7ceOGNo1oT1Jhxoim8bSSKGPyV1HLefp0MP4JqyHfW0tr8HpVSQEmDbyPMGu +o/odg1eTINHibN2B/bU/P9CXjQTN0gzrz9h7y/XT3daRUPBI4Opf7DEXxn+m +vCRMj7svaj/F9ZsZ8BnwkzC5+EPZGHuPJp882kSCivZWKRvsBO4CG5oICYqk +nEnASnvN5xLRbSR0Lw1GZ2GT9wtaNkmRUDnztah4pX/Cqc8bZUjQVwlJrsMe +I/m518iTINQumtO10s5v5DmpSsIaA5/Sv9g1f/kjx9RIsN3AeMPRRKHRb4M3 +B3eRYJH4p4gPe3fD6aZuLRJClfzvy2CP+BRteQwkDKW8jjTG3mAXpl6pS4Ls +h3PXDmJr6xmbleiTEBuf7W6HHS/y5dR9YxKm1mrpeGBXrXmYkGZKws/8THNf +7OGZsJxbZiQoXTktHIKt9XzTuysHSfimSX47i+1W8oUZZ02CmdKpmTjsKykP +Wc8dxvmV82VXsL8EmqiG2pGwzkqMkYzN7Sxo5O9Awtr3LSdTV/JMho96O5Gg +/rlXPWPl+61nLjm7kHDxrexU/ko9600z7NxI0IlwHStayVsQrLYmSLDa+Te1 +dCVvaLjDjCSB6b7EX7GS1148ZuhJwp0kR+Pqlfoqz/wBb9zfVnRP3Up+hqnA +Hh8SzDX3TNav5F8RUlT3JWHfuxrHxpV8xojODn+8X3puXWzC5iJK7OQDSXCc +/RDyDFvTMsJPKpiEnA/BEi9W8ncfiBUPJWG7lf/FFuzLMsKpQgw8nnxr8Uvs +Cp7RMt7TJLBonPu3FXvov5JWznASPG2Sd7et5H+NGGKLIGFrEFfqijXeHvi5 +HEmCWMTA4xX/DxAqGqc= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.48341415918018676`, - 1.8971786059380225`}}, + "PlotRange" -> {{0, 180}, {0.8484427496388877, + 1.1728017250787905`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.4834141591801878}, + "AxesOrigin" -> {0, 0.8484427496388895}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -10160,21 +10291,21 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.48341415918018676`, - 1.8971786059380225`}}, + "PlotRange" -> {{0, 180}, {0.8484427496388877, + 1.1728017250787905`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.4834141591801878}, + "AxesOrigin" -> {0, 0.8484427496388895}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10188,105 +10319,105 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi -CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 -j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu -7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF -KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 -zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW -kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 -8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 -wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v -lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt -p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t -k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X -HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc -BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ -y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG -gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh -hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB -gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U -1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n -I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq -h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp -Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ -ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a -bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f -hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj -3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx -5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf -t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw -pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD -6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p -ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia -12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 -Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r -jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q -ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 -D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h -tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T -BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth -YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT -NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya -0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv -o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 -MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn -opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS -DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B -Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH -imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L -I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX -7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v -+j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj -3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo -8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g -HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 -uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG -hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj -K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s -RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD -YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R -uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp -voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp -4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn -YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 -r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW -bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw -PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za -oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ -Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL -QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z -PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu -T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN -caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L -V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 -y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K -VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb -KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy -icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F -8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo -5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= +1:eJwV1Hk4VkscB3ApUihbllCyZk3ebG3zsy9ZorIny3mPJdnpLUIJdSvRcqmI +kC1ky56ISiiKikRkSV7rkVRXueOP85zn88yc7/xmzsxsc/OzprOysLBM4Wfl +HfBaRa6y8/V+R8MXngGyTLR/OkvdTb8Ate1ujVvxYJrGDWn9OlT6u3NkxQeJ +V+xctGco9HxfZCB2CSOyiU2/HVm8+2YXhH3xuXBDZP4bdPXbf37B2NWdAXeX +1N4hmTreZyHYEx9bw0/V9iBDI0W7k9ibR6Ucf+h9Qk3RxvKnsA/MhGsHtX9G +l728tMKw65cmOBn5Q+jEzJWYM9jvzwqFVfgOI1bOCp4o7Gl2/YnvaqNovnio +9xw2+2V/e9riGGru5hmKwd7Cm9oSUDuORj31ZC9iW4j+yJ7Wm0T7sku9E7DJ +dElBZY5ptG7HjNcN7EgZy5jj7TNoakwlJxm7R6h7Z3D+HJJMquy7h004eHtd +v0whLZKlKxt7NoXlXqnvPFriNeMowOaQVOaZU1tAwveYSpXYN4gmI55NP1Co +NRJ7jC2RYx+5Y/EHygi/adKEraUUO32i9iditBk7d2J7anxun9BbQpfWtvhN +YX9nhKxZL/sHbdyjZLmAHVXLuVee4y8KZyb6/MFOBq0HHu3LSFnV1XWDHK7v +fot+YP4q6F3HSaNh5z+/PnhWlBV8J0NZ92HPfnUOT7zMCvvXD280wg5XWCgr +9l0Nh3VrRxyxbzzcJjWjxgbX/cnQC9gfOyfr/2ayQdGqDvUb2BJUpcOGTezQ +aqhBS8cu2GVxTXmRHa4LsIxXYTdXn17lU8sBHEmntaewF5q6Po/rcYEs8T7M +dTsT8Zlx8YTVc8Gz64a+gdiq3frArc0N2YJX86KxvUcepe9U2QDnc3N+Z2P7 +s7ar7uPiAf/cSfY57FHJormYH7wwHOb74po8Xh+ydV0HjQ/Svqgb5WKzPhjb +JhzAB2waHRvrsSVoW63zmXxg0h0SNoHtoJdQ+nqQH/jnYuoMFZiowz0wSKht +Eyw/1R/lUmSigZz4Sy4cgvA4YW5OFnuSmZ+ZZyAIy86eRjrY64OHu/Y0CIJp +e0l7KLb++cO7XB4JQRVkwSh2TZbGQm6aCCRoxLzqUGKirNHfobuDxSHlVldo +nwoTGR+JGwgqFAflSQmDJezJZn7DwjFxkLn11lp8BxPtylLaJGG/Bc7eclFy +wW52cy5j278VwvkFe8axqZnBk+PREnCcxYGXfScT8Z/QLy8zlwS98jR2fxoT +jWWt9zzoLQkxbJoNydhVnzpFp2IloUpKvLoR28nsaLRsgySENr/1FNiF61MM +tb6lJgXK+q+f1GHvmsiZjRCShteZtgdENJjosAensumQDJzmWH67SpuJUOgR +Nds/MvDiNk/UTmyFmDRNQkQWnDi+eLlis2TSdCOsZKGGs3G+EbtwwNG2tFEW +RhNsB2N24/NpU3B2c4YcsFVvExPZi+vTN38/4SYPzJHnQicQE2UeSupbjJCH +pN+CjlnY8W5Dg2vuyIPw8XV9fdhEVAhzS5c8lDi/STgATMRbl8pySE8B7ti/ +6VLWwfuHNq1QK6UIXlwFFX90mUhU8mrkpRElKLJyHW81ZKK6f77L/2JVhrVl +WwQ2GuH1mLfvJrcpw9h7rrhD2HebpeV1nZWBuhCi248t6VHz9ucHZTBSsNz4 +3RjPt2BUhmxTgXUn3y6rHGAicdEtpIS9Kjj6au38aMlESveDuf5DaqDa08Fg +c2AiNyJ6QdlCDfxGuLOPYCdLXRtwcVKDcc5Znmzs1RkPi58z1EDrzO00I0d8 +3u5OHL5Woga6Vk7pV5zwfZrskiovRQOGv5qKzDH8fy+Zqdix7wKD3m6/cwQT +3QuUPvioXR0GmosUF/yYqDMUaZ6/rw1CI33XuS4z0TbndxZHffaB8/whr4UH +TERfrigSPwWQNz8Qe/kVEwkxq9YKuenCqolaU6EfTBRM2/vpmoI+PDWWOPpk +6yRym1pq4Z8wAL9XN3cKmU2iQt2gtWkdRhB1rpPGFTWJsr57NxbcMAGOjndp +XOWT6KeO8KvmyAPgcydKRmZ2EvWzrJ4bcjUHv/YAp5cqU8hXzC/hrJQlvGjj +VjjiM4WKvFoabsYcBJvQRDnb0il0el5kUdHLCnTO8Nvc+DGFFkwNbV4cswb5 +vEyt03rTSNsxUWfU6hD43LOxqE+cRm9FUr2baYdhYXZRaXX/NNqcHV2Xu/0I +fDXZF/FGdQZVDSqYWXDbQH9ySsxA1Aza0j3rETplA743RWqed84g2s3EgsxB +WzBQDD53TGAWpa6ZV7nWZAeMZ5JLn/bNogqdHR9jqu0hRL1ueuvxWZSs+Q/v +Ur4D8FWevZKTNIs6+u7H0i47go7AJYVNjbPokXmKtH+UExAm+jGFU7No7sQh +Fl/iKHz/6PP8peAcWjCU95zWc4awL5aGHvvnUO5U788gjWNwVvjPAOE5h+zu +3Xc/yuUCgvGXU47Hz6Gy0gPHVse5wGYjVkPpijmkLfr218VfLqB/NycvuXcO +SQ16fHzj5QpaacEsqb/n0AjnccuUYVewC/oUgcQo1Blv4W50xA167Z5YuGtT +6AYjjTOk0w2GLm4lTW0oVFe//MvdxB3OzTXsbfCj0EYniKPVuIPG3Ovu6vMU +khB40SFW5w5iTZcKNsRQSLXdXJi93h36PcUs3bGt9zrm9TTi/rLx3zljcb5Y +aNuZl+4gwYh74hBHoc39Dza29LhDx+pYs+mLFJJ2Fkp2WnQHB5U7vybjKaTt +Mp0bs4sAiyQBH8NkCmXfmg2y0CCg92X99AVsgS5qv5AWAWcKh6ENe9pgsTt3 +DwH7SyMPWd6i8P3Fsqpdl4BTP1R3HrlNoQ2LvPZ8VgSU2XC22KZQaOSK+rq0 +EwQcczfYqZVOIasXmt0efgTIydFuBmPXs+xOUw0gIPxJxYti7FtB+9WfBhPQ +s4NI3n6PQhb2Rq6jYQSMxtz+uimDQtXS9tWK/xAQI39b82smheJrw72qsgn4 +tk3On8ih0Am1JG1GLgFBe79evIVtlleyTiufgIgtbkGvsdcnjeVVFhJgLxjw +SDOXQjGBBycqygm4tGS9sDaPQuHy0scfPSVgMFr1WFo+hbyT2nxKBwgAj8Ly +vEIKmWwY2xs4SEB62VxND/b2GBZutS8E2HrrJKwtotBYoHphySgBuuencwhs +V4u0qeJJApYvzf4j9pBCdmxBvg9/E/BbVEU0uphCRkGb/QsE6TCKgnUVyyj0 +NC3W9JowHcriWJNssfe2U9KMzXSIUt5dEo2tKtPWq7eFDvFF8Rp92CIfwvT6 +ZOhQPqp8Pq6cQszd/YLr1elw46Sn7LtHFLrKmv7Y4xAdGN/8XPWr8Px3cCWb +H6ED9TjNxQv7vCMjkGZLhyyWTul4bEb5QbllBzrU521Zeo/tSq5K/NeNDscl +Z0fp1RSitboRzwLowG5pn8GoodCHRBlOqQQ6PDhxNi2gjkJFiNtzPJEOgvOO ++65gn5/63lx4nQ5jH5xzcrHVTJojtJLo8K/Rm88D2PEs7pT5XTrcfcz3xfgx +hQz90nsZBXQoVTkuz19PIXHxCxr7i+iQXu56QRH7e6vf9dXFdOh2sSrTw86Q +RebxZXSgKfKeCML+09/fkFlDB4H2536d2OVmormvW+jgXfXkYdQTCl36zcp2 +o5UOifXrX93EdsudcLVvx+t/XaYiH5tnTY3oSAcd1GQamV3YPrV2V3+9p0PB +GYsRqQYKSSn8Gyo9SodU21aOGuzfH850fRujw5oWli9t2J0xdNWH43SQSxmO +7ceOGNo1oT1Jhxoim8bSSKGPyV1HLefp0MP4JqyHfW0tr8HpVSQEmDbyPMGu +o/odg1eTINHibN2B/bU/P9CXjQTN0gzrz9h7y/XT3daRUPBI4Opf7DEXxn+m +vCRMj7svaj/F9ZsZ8BnwkzC5+EPZGHuPJp882kSCivZWKRvsBO4CG5oICYqk +nEnASnvN5xLRbSR0Lw1GZ2GT9wtaNkmRUDnztah4pX/Cqc8bZUjQVwlJrsMe +I/m518iTINQumtO10s5v5DmpSsIaA5/Sv9g1f/kjx9RIsN3AeMPRRKHRb4M3 +B3eRYJH4p4gPe3fD6aZuLRJClfzvy2CP+BRteQwkDKW8jjTG3mAXpl6pS4Ls +h3PXDmJr6xmbleiTEBuf7W6HHS/y5dR9YxKm1mrpeGBXrXmYkGZKws/8THNf +7OGZsJxbZiQoXTktHIKt9XzTuysHSfimSX47i+1W8oUZZ02CmdKpmTjsKykP +Wc8dxvmV82VXsL8EmqiG2pGwzkqMkYzN7Sxo5O9Awtr3LSdTV/JMho96O5Gg +/rlXPWPl+61nLjm7kHDxrexU/ko9600z7NxI0IlwHStayVsQrLYmSLDa+Te1 +dCVvaLjDjCSB6b7EX7GS1148ZuhJwp0kR+Pqlfoqz/wBb9zfVnRP3Up+hqnA +Hh8SzDX3TNav5F8RUlT3JWHfuxrHxpV8xojODn+8X3puXWzC5iJK7OQDSXCc +/RDyDFvTMsJPKpiEnA/BEi9W8ncfiBUPJWG7lf/FFuzLMsKpQgw8nnxr8Uvs +Cp7RMt7TJLBonPu3FXvov5JWznASPG2Sd7et5H+NGGKLIGFrEFfqijXeHvi5 +HEmCWMTA4xX/DxAqGqc= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.48341415918018676`, 1.8971786059380225`}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.4834141591801878}, + "PlotRange" -> {{0, 180}, {0.8484427496388877, 1.1728017250787905`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8484427496388895}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10296,7 +10427,8 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.4834141591801878}, + AxesOrigin->{0, 0.8484427496388895}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -10324,7 +10456,8 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.48341415918018676`, 1.8971786059380225`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.8484427496388877, 1.1728017250787905`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -10332,9 +10465,9 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913460797739086`*^9}, + CellChangeTimes->{3.9913460797739086`*^9, 3.994259198000042*^9}, CellLabel-> - "Out[443]=",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] + "Out[118]=",ExpressionUUID->"3809af5e-e6c6-4442-b9a8-7f846433de0f"] }, Open ]], Cell[CellGroupData[{ @@ -10397,207 +10530,169 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.9918502644064465`*^9, - 3.9918502684162617`*^9}},ExpressionUUID->"42ddbf41-0bd8-b749-bead-\ -56c89a9b7467"], + CellChangeTimes->{{3.9918502644064465`*^9, 3.9918502684162617`*^9}}, + CellLabel-> + "In[119]:=",ExpressionUUID->"42ddbf41-0bd8-b749-bead-56c89a9b7467"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.7282513679946418`*^-262\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 444, - 477, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991346080016945*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.901603067568851`*^-272\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 41, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991346080016945*^9, 3.994259198206963*^9}, CellLabel-> "During evaluation of \ -In[444]:=",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], +In[119]:=",ExpressionUUID->"fe446117-0ec2-40cb-8463-6dcb9e4d4f5a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.1421038932835147`*^-273\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.9185595515714104`*^-284\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 42, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991346080016945*^9, 3.994259198218553*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"d0c5c7e1-1371-451a-8b26-52c714993a3d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.4793732200688693`*^-296\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 444, 478, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991346080026985*^9}, + 119, 43, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991346080016945*^9, 3.9942591982291117`*^9}, CellLabel-> "During evaluation of \ -In[444]:=",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.655058850000931`*^-284\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 444, 479, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913460800358925`*^9}, - CellLabel-> - "During evaluation of \ -In[444]:=",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], +In[119]:=",ExpressionUUID->"be3efab6-8d35-43c9-ae24-7cb2dd801990"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 444, 480, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991346080043894*^9}, +during this calculation.\"", 2, 119, 44, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991346080016945*^9, 3.994259198237968*^9}, CellLabel-> "During evaluation of \ -In[444]:=",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], +In[119]:=",ExpressionUUID->"174e3b20-2df3-4641-a7e8-5566d8143d07"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW -QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx -/f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu -+ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 -jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D -y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP -Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs -mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f -oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo -7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM -b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv -gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 -Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN -kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla -bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi -mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk -+8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ -8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q -mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L -nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD -F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ -HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd -H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv -40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ -Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw -00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA -3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY -8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj -qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe -zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ -6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW -/AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF -X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU -+iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar -CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma -uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM -LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 -pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY -W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt -yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn -SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW -lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA -ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ -hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc -Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z -tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb -SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 -5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS -hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi -H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 -vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q -3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT -v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir -So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb -3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX -h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP -A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 -JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z -kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv -bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ -oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB -K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq -w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK -UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI -V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV -6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 -CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R -WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z -jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL -c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d -MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE -S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP -nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ -KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT -s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 -PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 -nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV -7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx -yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR -17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J -2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW -jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 -vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j -aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 -OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g -jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN -pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD -c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN -5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR -zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 -Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 -OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv -q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr -YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX -W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh -9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 -Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u -T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb -3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k -yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E -8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt -tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr -fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 -RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 -ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS -FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx -jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH -k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j -I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 -DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh -xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs -GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 -0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu -FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX -SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI -zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 -XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l -tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf -2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 -ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb -My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ -1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 -d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi -t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y -/2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL -HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws -V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt -zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy -yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r -lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX -3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw -sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs -FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 -lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw -OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP -3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC -kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y -MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR -heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VVsUAHBTpUSGzNO9F1fPkJlc91qLIlOiDJGMKQ0olCiRFw2GhCIN +ZuUJ9xwiQ5Ex0vAyN2guTyGZ0vC88/463+873zln77X2Wnsfun/olkA+Hh4e +eV4env+vcyNdbapJReayGTbZlxmW5n3XZKIshuKhM/GyRlUBDVDysb/MUDoI +yZz9lVygC4ed/hrkHyqAiz7ZxuEFCGIT0ukLgyQEhhtn2xc4watGx9CZwRbQ +bCZf9uT7grXq2Mupwadw+lnc7JvcA7AwaHLh6+BbCFQLPYTZcdC6/nrR3wXT +YDTkM1Cqfh4UXtV99Nf6DRds0HOv5iVYvd/nr2Xr+XEp6X1ou1sepOtZNzi6 +CmJaqoAZXb0IhrN1m6dEhXFl/JJLy4OvQ1JR7GM+WTHM3Ebav7nyF0hnvjuT +cVUCH+2zNRx2KwcZzVsnv5dIoFJbjSHLtxzkWhJjd3AlUOe8GlzYUw5KX/84 +pN4qgX7X7YNNj5WDmsMB34ZRCXzdu1SElV8OBgK/jd8ZrMb5a8b+8mPlsDlC +6r1+92oseTPQ4RZZAadcbM2fzkliE/oWR8dWglz1Izk+XilMvl8Ts3iqEiok +XOb1hKRwaYOYcExaJQw89eaeV5bC9yE7NvnnV4KqcwTD2UYK3XYUsvtbKqFl +U+7SJ5ekMGzHiOhaPi78tp599JAtjfKbBY/OIBfSSqLLfltL49Ttmpx7G7ig +upTntLazNH5+e3NFkg0XHNpXWKQESuOBs4HPxJ24kLOeVuWQKo028YL6c95c +WIf2WQ9eSWNH8sVUoWNcCDfN9+mKl8FOMulGaBUX7PJEZuyTZZDeU9GQUsMF +xrJjpx9dkEHGJY+MG3VceNLnRvTekMF1Lj/O9TVxYe2Blfwjj2Twe21K45Ie +LoyWRJZ8k5PFalbcYM87LnitdhyXr5LF8HDeiXFRAgyONpy41iiLMi6JcUUS +BKx4u0aK3iGLBpmMQXcpAuoq+YE5LItzVwaeVMsTIGVfl6a7KItbTz6b38gk +4MkJVUMrezlktvGq9bII2DD5IzrknRxO9DNvxfgREGWTqXHvixy27o3ecS+A +gIp87WcSc3J40+LcOO8uAmRcfE3rBOUx3bW4PWovAV9ut8/zr5XHLmdnzw3h +BGTEp0VcOiKPAh38YHWSgLeSzJA2YQVsq/wnZL6QAOnQJkVpaQWUVms/OFRM +gMP9bQ/30BRQ855LQM11Amqik7RWGSjgnRWlEnvKCDj76uuYxzYFvK3AR5SS +BOiXNuyeLFDA5noVWnYzASfYzn5y6xQx22h0udYzAmy8r30zsVREeaumyQfP +CRCJ+/ynq4MiLsAOq6CXBFxpTShJ81XEh/wjFhdfE3Dbrv7z0jOKqB7UktL5 +kYCv21QOTw8rYgZzw7vYbwTURh9YJvZeEUt+LvJ+mibg+JU72WsnFLFZpz3b +bpaAla/dG/bwKeGCeaHusu8EqO9O5nmtoYSrzA/Iuv0mwPvQ7Nmeo0roXzHj +ZL+MBLUsS4WxBCV0/ixkFC1IUvE7V74sTQnv08/kFC8nIfrXH08si5Rwyl// +y5QQCRf+9Jas61HCYNrHBl9REnrOd+YWKyqjR37U1SwZEjKqVuu1qivjppK2 +96myJHj2+7W81lPGPPJdbbwcCaMyv97LWysj7+cdAr4KJPDn6WqkhyjjKLfR +dkqZBFbFperjTcp4jrBXC2WSsGHw0e+J+8qocr2+nqFOgiOPwEafp8r4RMRh +Wy/lgC0hw/BBGWP2WVdo/kGC9VF6bNwSGnIn+wZua5LwYFVj4boVNPzalHLX +RYsEpyK3+19FaNj1xatqnPL2h0lifjI0bDvS0SG1loQDynOFFpo0VA+/UWKl +S8JsVdr9BR0aLgpPCXZTjrbRHCcMaejvGx5jr0dCwkFfY4Y5DX/dacu10ich +p7X7Pp8zDc+OKr+QMiRBeVvgeL0rDWu5NW//pFz0ZVEs3JOGE3LDPBOUKyWN +tr8LoOHvfZGJdUYktO3OHW89TMORN9CtbUKC7S9T8WNHaVh4ySXvT8qP0vqM +DeNoqHkmImOA8nDd8riiMzSUMCnsDV9HgrdjUZFXKg03b5Rj3KX8/q151+oM +6r5+cNoSUxImhCLEE65Q73t+/HES5fA8ERNOPg0VDpfld1P+bli6fbaYhqn5 +5y4uZVH58R4pCqykocGk3+dDlE9/O9KlWE19P6jVoZSyyCmJif7bNGxWau0d +pizDtTGxbqFhwN4kV30zEq5ueLf93w4axrb0OHtSZgzHxNU8oKHfy6uHYynf +CJYpDnlCw9LuxrZ8ytp8VV3MfhpqW42y71EmL26aGBmmnidfvXpJeZ3mqHjW +CA0jGAEV85TvNMWbbH5HQ8LRoFSETYKli6LXslEaKuWI/c2g3DlaG9f0hYZp +os1MQ8oOMVuKI6doqL+Lt8yS8lOx8S6dORrKzmd7O1J2Lzk18ekHDR902Fm6 +U37BYkjkLdLwTuxztx2U/R83mmwToON4mOhVX8qfAty9RJfT0TqrUtKP8v7v +U3H3hem4+UzsPW/KrIO7pD6K0/GN9VlxD8qCY8/K+GXomHnEQt6J8oD/Zgu6 +Ih2fFBS9WE+5+HnrgDmDjp2a1e7/jzfCZd1+L3U63vE8mEL/f34Pb/JGa9HR +wX3kuBBlUWt6VpYeHUvX/Kv1jYrHyN0LWreM6fizui+7n/JNkxUtT83omNS8 +q/UW5WjucfevSEfGeF15OmWbP6a/CFvTkV3Xt20/ZamC3fGa9nT0ib3bbkn5 +vdwLaVsnOrodip2V/D8fGU7lu1zpGFNG++cDle/NCaZD+T50XOepRTtGWenf +8uCmnXRs0isPtKT85TCD/+UeKl5LzMKX/L9+goTWykTQ0b6wauwEtd7c3sS2 +GkVR84tvcDOjrOo5s23rcTq+PrPi3BS1fpvtX/6ZepqOZV73glwop7Y5y95M +oeP+EYeVvJS9OB0VXelUPL/tivuLqoeFtZXDAlfp2G+eNTJtTIK++AmdowQd +9TptzvtS9cWTNNuWXUPHgdjCwWmq/h7x7/WsaaBjfIHl/P/1uW92S8JUOx0V +19/uyDGg6nVI9fnuZ9T4BjPaC6h6D3O+dCDhFR35DJVnFShjt/DSwvd0lMke +XJpJ9YeXDXO6IxN0PJ64pf+IDhXP3PuJLvwMLF6rZ66oTcVTmqMQJsjA8+mv +rh2n+g+ZRhDnhBkY8K5v7AXVrzbH57zolmbgmyQd2zQNKl6B+/UttBiori+M +T6l+t6ApOqLtykDLWjGFNjoJc1flThh4MnAqKTX1O42EmVVqqqY+DHzlNCun +QXli2nTvhj0MHP22LPGkEglvGwLmPGMYeDRbpl1KnoRu+1qR08UM/DVU/YmQ +oOrlzj0i5S8GOtT/OnFbnOpHOj0uGZUMLFG+YNMoRsJdiTc51+oYGN6yy6dh +FTX+5yvUbz1kYOTq6L4san/I2ecNb2ep+dyv+dDNR0LWy6C3n34wcJNhz9Mi +XhIyN4cnjC8y8F+uweJRHiqfBqcffF+ugkJeD+UY/xIQ/5NwX6WkgtXicrGb +FgjYl7TkANtaBbsZHsKMSQLYZTfzLl5UweuF7I/dQwQ8p5XlWl1WQZVTlx8E +DRIQfbH02kyuCia4xYQIDFD75YmSK1tKVXDL3D9fDXup/XpbXrZIowrWVXkt +OfqQgD+WZKYlvlHBqJxI1yv3qPOJz9G4w1qqeDDzwhjrBgG3+qJi1fRUUVrC +NzG9hAAXuyPH+4xUUYmxlXe0iIB0o0PH9EEVFep+ZSfnEyC8MvTIhLMqCp4J +C27MIUCgzv/ArkhVfJ4ec6U2mYApcTtftxZVHOcKVKiEEjC0n/Fkb6cqLr37 +i1wVTEBzxw+I7aG+d1nWd4E6z6RFlynfGFDFyz6Bt9up847u25WvFsZUcc3s +49OW3gSEEI93XJVQQ7EM248PHQgY2+y6/f1ONbzsR6YYrSHgfbKvW9gyJiZY +kHqXhrgQMqbF0F3JRJvlxRvUB7gwv3FhfFyUicuEba5W9XJhBX96wh45Jo5P +Bqh2PuKCblRrta82Ez9NeJUNt3EhJpApsXkrE7Wrvl0v53JByvzLY81cJq74 +U+iO7Cku2E5G2n4wVsdP2sGZVjpc+BIgGF4duwaPSB6XUGusoP4npPlOtfyB +PzRO3Gv+fhPEHzJTuZMaKOD62MLWtAwUTlc6GRtr4d8flC/lWZRCtqapqMRu +bSxeVyvY7H8duuUsjKbPr8XQD7R7ecnFwFJoSdMZ0MFPr1K2m18oBBH+ggi/ +eF3sL5uxKn2QD0onlNkeTD0UVqpevfZlLixX86rZ0qmHCXe6AssCrsBajmxl +5A59lLrDd8vZ7RKEjYi32vEYIKtz1bHdeBEmp5NdbbMNcORGQvj1rAzYqNOR +Y6ttiP4nab1p+ufh7rTZz/lHhlgpVrNF8WYKhGjpP/s70AirroVJLas+A5yJ +nX0ey42RM5kTYP8iAaxUZTYJFxjjT/MDI+MV8bAm7uyRFhMT9LhRb27zIhY0 +Ak2b1J6ZoNziPrvWwmgIvBt0svrgOkxf6oGsvYehKa9v55SkKbqUqDPGo8Jg +5sbivE6tKRoqCoeu8guBALWy5TmbWJg7vlrqs8YeiG733st0YqHuz7u9ilJ7 +IC1Q/AG5hYWXF8NsfXj3QGNxVPIDdxaa4iu2yFAQrGbarPrtx8IpTA2QTwyC +DuaH1b6HWfjvp9xbn9/vBo01yjRmLgvdpyVWapfvgimNDGPyKwvrT93ii921 +E4Z60EpimoV6qc5NNm47oTlkYmvELAu7Aw/kKVrvhFTS9qDxDxaGnvxVO6q2 +EzRYPDfr+c1QfSUjg/9jAPjbBtNbpcwwrOtwjXVQAPTt3riyj22G7Zfh11CE +P9wu+vlm9rQZFrzbZPrxpi8Yr4+Yt0syw9b85N+pub5w682XlXkpZijk6i5m +ke4LpNKIiV26Gc5WZorfi/SFm9nNKdcum6HcEsN/dNb7Ql5ygunGCjPke5hJ +nq71gTMRq85n95phjEVamI26N3huUEEzJTZe8rmcac/aDr/7BEVaaWzsVRpK +WcXYDnmBE8/tVNgovMCN+bh8O3xMrIv0XMPGwrfhog+HPSGsa3NllD4bX7aK +VhyN9oSzjseUbluz8dbweVOXJg+o39b/yzCUjR737zBz3baBfPCpurXNbNzb +GuUlXucKqYu7jJJa2Mh7WbbubIkr8KVbE5/a2FiTLSAllukKYzVLSvO62Nie +F1i+MdQV6nlOZov3svFGZ//27UxX8MyMi5z7wMYZ8URRySwXyG6IMrorxMGZ +65MHL8RvBckV+4lN7hy8OCPUPR3rDEXrY6K/enDwZ+FgwdsQZ9CPSV2f4cXB +pV2Pt7ze4QyOX7n9Q34cnD54caUg2xkSB2YXAvZzMKiLr3bZghN8L4i1jD7B +wdid4pF3DznBM7OM3pIyDkYUHSWPTztC0KGiK7YVHFQAzt3RPkeYq7gV+IXL +wdAAgb7gGkcQZwzN69VwUP+IVs/9KEewF1RUuNPMwSWmOrVNvI7Q2Feys7ef +g+/lAl7nSm0CO5Hb2oeHOEi2ZsoQCw4wtLFrTuY5B6UO6cq9eOEAM/WfT3u/ +5mCln7hmbKEDaOfrlv8zxsFT9t995vUcoPGZxeHkcQ6aduY39Uk6gN3qraDz +lYMbPWodHizYw65Th/6OmOVgkitPAX+LPcw0J+ZIf+eg/HjjeqsSe4j/kRVQ +/4ODaZPz7bln7UHUsFRrx28OBtikS0qE2sO14PrZxUUOuukfUc7dag//AWla +6G0= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -10611,166 +10706,124 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW -QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx -/f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu -+ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 -jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D -y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP -Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs -mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f -oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo -7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM -b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv -gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 -Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN -kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla -bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi -mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk -+8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ -8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q -mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L -nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD -F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ -HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd -H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv -40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ -Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw -00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA -3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY -8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj -qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe -zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ -6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW -/AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF -X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU -+iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar -CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma -uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM -LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 -pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY -W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt -yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn -SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW -lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA -ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ -hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc -Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z -tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb -SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 -5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS -hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi -H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 -vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q -3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT -v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir -So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb -3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX -h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP -A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 -JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z -kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv -bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ -oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB -K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq -w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK -UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI -V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV -6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 -CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R -WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z -jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL -c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d -MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE -S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP -nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ -KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT -s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 -PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 -nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV -7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx -yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR -17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J -2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW -jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 -vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j -aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 -OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g -jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN -pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD -c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN -5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR -zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 -Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 -OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv -q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr -YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX -W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh -9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 -Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u -T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb -3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k -yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E -8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt -tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr -fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 -RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 -ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS -FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx -jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH -k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j -I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 -DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh -xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs -GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 -0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu -FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX -SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI -zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 -XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l -tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf -2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 -ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb -My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ -1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 -d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi -t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y -/2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL -HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws -V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt -zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy -yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r -lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX -3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw -sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs -FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 -lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw -OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP -3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC -kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y -MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR -heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb +1:eJwV13k4VVsUAHBTpUSGzNO9F1fPkJlc91qLIlOiDJGMKQ0olCiRFw2GhCIN +ZuUJ9xwiQ5Ex0vAyN2guTyGZ0vC88/463+873zln77X2Wnsfun/olkA+Hh4e +eV4env+vcyNdbapJReayGTbZlxmW5n3XZKIshuKhM/GyRlUBDVDysb/MUDoI +yZz9lVygC4ed/hrkHyqAiz7ZxuEFCGIT0ukLgyQEhhtn2xc4watGx9CZwRbQ +bCZf9uT7grXq2Mupwadw+lnc7JvcA7AwaHLh6+BbCFQLPYTZcdC6/nrR3wXT +YDTkM1Cqfh4UXtV99Nf6DRds0HOv5iVYvd/nr2Xr+XEp6X1ou1sepOtZNzi6 +CmJaqoAZXb0IhrN1m6dEhXFl/JJLy4OvQ1JR7GM+WTHM3Ebav7nyF0hnvjuT +cVUCH+2zNRx2KwcZzVsnv5dIoFJbjSHLtxzkWhJjd3AlUOe8GlzYUw5KX/84 +pN4qgX7X7YNNj5WDmsMB34ZRCXzdu1SElV8OBgK/jd8ZrMb5a8b+8mPlsDlC +6r1+92oseTPQ4RZZAadcbM2fzkliE/oWR8dWglz1Izk+XilMvl8Ts3iqEiok +XOb1hKRwaYOYcExaJQw89eaeV5bC9yE7NvnnV4KqcwTD2UYK3XYUsvtbKqFl +U+7SJ5ekMGzHiOhaPi78tp599JAtjfKbBY/OIBfSSqLLfltL49Ttmpx7G7ig +upTntLazNH5+e3NFkg0XHNpXWKQESuOBs4HPxJ24kLOeVuWQKo028YL6c95c +WIf2WQ9eSWNH8sVUoWNcCDfN9+mKl8FOMulGaBUX7PJEZuyTZZDeU9GQUsMF +xrJjpx9dkEHGJY+MG3VceNLnRvTekMF1Lj/O9TVxYe2Blfwjj2Twe21K45Ie +LoyWRJZ8k5PFalbcYM87LnitdhyXr5LF8HDeiXFRAgyONpy41iiLMi6JcUUS +BKx4u0aK3iGLBpmMQXcpAuoq+YE5LItzVwaeVMsTIGVfl6a7KItbTz6b38gk +4MkJVUMrezlktvGq9bII2DD5IzrknRxO9DNvxfgREGWTqXHvixy27o3ecS+A +gIp87WcSc3J40+LcOO8uAmRcfE3rBOUx3bW4PWovAV9ut8/zr5XHLmdnzw3h +BGTEp0VcOiKPAh38YHWSgLeSzJA2YQVsq/wnZL6QAOnQJkVpaQWUVms/OFRM +gMP9bQ/30BRQ855LQM11Amqik7RWGSjgnRWlEnvKCDj76uuYxzYFvK3AR5SS +BOiXNuyeLFDA5noVWnYzASfYzn5y6xQx22h0udYzAmy8r30zsVREeaumyQfP +CRCJ+/ynq4MiLsAOq6CXBFxpTShJ81XEh/wjFhdfE3Dbrv7z0jOKqB7UktL5 +kYCv21QOTw8rYgZzw7vYbwTURh9YJvZeEUt+LvJ+mibg+JU72WsnFLFZpz3b +bpaAla/dG/bwKeGCeaHusu8EqO9O5nmtoYSrzA/Iuv0mwPvQ7Nmeo0roXzHj +ZL+MBLUsS4WxBCV0/ixkFC1IUvE7V74sTQnv08/kFC8nIfrXH08si5Rwyl// +y5QQCRf+9Jas61HCYNrHBl9REnrOd+YWKyqjR37U1SwZEjKqVuu1qivjppK2 +96myJHj2+7W81lPGPPJdbbwcCaMyv97LWysj7+cdAr4KJPDn6WqkhyjjKLfR +dkqZBFbFperjTcp4jrBXC2WSsGHw0e+J+8qocr2+nqFOgiOPwEafp8r4RMRh +Wy/lgC0hw/BBGWP2WVdo/kGC9VF6bNwSGnIn+wZua5LwYFVj4boVNPzalHLX +RYsEpyK3+19FaNj1xatqnPL2h0lifjI0bDvS0SG1loQDynOFFpo0VA+/UWKl +S8JsVdr9BR0aLgpPCXZTjrbRHCcMaejvGx5jr0dCwkFfY4Y5DX/dacu10ich +p7X7Pp8zDc+OKr+QMiRBeVvgeL0rDWu5NW//pFz0ZVEs3JOGE3LDPBOUKyWN +tr8LoOHvfZGJdUYktO3OHW89TMORN9CtbUKC7S9T8WNHaVh4ySXvT8qP0vqM +DeNoqHkmImOA8nDd8riiMzSUMCnsDV9HgrdjUZFXKg03b5Rj3KX8/q151+oM +6r5+cNoSUxImhCLEE65Q73t+/HES5fA8ERNOPg0VDpfld1P+bli6fbaYhqn5 +5y4uZVH58R4pCqykocGk3+dDlE9/O9KlWE19P6jVoZSyyCmJif7bNGxWau0d +pizDtTGxbqFhwN4kV30zEq5ueLf93w4axrb0OHtSZgzHxNU8oKHfy6uHYynf +CJYpDnlCw9LuxrZ8ytp8VV3MfhpqW42y71EmL26aGBmmnidfvXpJeZ3mqHjW +CA0jGAEV85TvNMWbbH5HQ8LRoFSETYKli6LXslEaKuWI/c2g3DlaG9f0hYZp +os1MQ8oOMVuKI6doqL+Lt8yS8lOx8S6dORrKzmd7O1J2Lzk18ekHDR902Fm6 +U37BYkjkLdLwTuxztx2U/R83mmwToON4mOhVX8qfAty9RJfT0TqrUtKP8v7v +U3H3hem4+UzsPW/KrIO7pD6K0/GN9VlxD8qCY8/K+GXomHnEQt6J8oD/Zgu6 +Ih2fFBS9WE+5+HnrgDmDjp2a1e7/jzfCZd1+L3U63vE8mEL/f34Pb/JGa9HR +wX3kuBBlUWt6VpYeHUvX/Kv1jYrHyN0LWreM6fizui+7n/JNkxUtT83omNS8 +q/UW5WjucfevSEfGeF15OmWbP6a/CFvTkV3Xt20/ZamC3fGa9nT0ib3bbkn5 +vdwLaVsnOrodip2V/D8fGU7lu1zpGFNG++cDle/NCaZD+T50XOepRTtGWenf +8uCmnXRs0isPtKT85TCD/+UeKl5LzMKX/L9+goTWykTQ0b6wauwEtd7c3sS2 +GkVR84tvcDOjrOo5s23rcTq+PrPi3BS1fpvtX/6ZepqOZV73glwop7Y5y95M +oeP+EYeVvJS9OB0VXelUPL/tivuLqoeFtZXDAlfp2G+eNTJtTIK++AmdowQd +9TptzvtS9cWTNNuWXUPHgdjCwWmq/h7x7/WsaaBjfIHl/P/1uW92S8JUOx0V +19/uyDGg6nVI9fnuZ9T4BjPaC6h6D3O+dCDhFR35DJVnFShjt/DSwvd0lMke +XJpJ9YeXDXO6IxN0PJ64pf+IDhXP3PuJLvwMLF6rZ66oTcVTmqMQJsjA8+mv +rh2n+g+ZRhDnhBkY8K5v7AXVrzbH57zolmbgmyQd2zQNKl6B+/UttBiori+M +T6l+t6ApOqLtykDLWjGFNjoJc1flThh4MnAqKTX1O42EmVVqqqY+DHzlNCun +QXli2nTvhj0MHP22LPGkEglvGwLmPGMYeDRbpl1KnoRu+1qR08UM/DVU/YmQ +oOrlzj0i5S8GOtT/OnFbnOpHOj0uGZUMLFG+YNMoRsJdiTc51+oYGN6yy6dh +FTX+5yvUbz1kYOTq6L4san/I2ecNb2ep+dyv+dDNR0LWy6C3n34wcJNhz9Mi +XhIyN4cnjC8y8F+uweJRHiqfBqcffF+ugkJeD+UY/xIQ/5NwX6WkgtXicrGb +FgjYl7TkANtaBbsZHsKMSQLYZTfzLl5UweuF7I/dQwQ8p5XlWl1WQZVTlx8E +DRIQfbH02kyuCia4xYQIDFD75YmSK1tKVXDL3D9fDXup/XpbXrZIowrWVXkt +OfqQgD+WZKYlvlHBqJxI1yv3qPOJz9G4w1qqeDDzwhjrBgG3+qJi1fRUUVrC +NzG9hAAXuyPH+4xUUYmxlXe0iIB0o0PH9EEVFep+ZSfnEyC8MvTIhLMqCp4J +C27MIUCgzv/ArkhVfJ4ec6U2mYApcTtftxZVHOcKVKiEEjC0n/Fkb6cqLr37 +i1wVTEBzxw+I7aG+d1nWd4E6z6RFlynfGFDFyz6Bt9up847u25WvFsZUcc3s +49OW3gSEEI93XJVQQ7EM248PHQgY2+y6/f1ONbzsR6YYrSHgfbKvW9gyJiZY +kHqXhrgQMqbF0F3JRJvlxRvUB7gwv3FhfFyUicuEba5W9XJhBX96wh45Jo5P +Bqh2PuKCblRrta82Ez9NeJUNt3EhJpApsXkrE7Wrvl0v53JByvzLY81cJq74 +U+iO7Cku2E5G2n4wVsdP2sGZVjpc+BIgGF4duwaPSB6XUGusoP4npPlOtfyB +PzRO3Gv+fhPEHzJTuZMaKOD62MLWtAwUTlc6GRtr4d8flC/lWZRCtqapqMRu +bSxeVyvY7H8duuUsjKbPr8XQD7R7ecnFwFJoSdMZ0MFPr1K2m18oBBH+ggi/ +eF3sL5uxKn2QD0onlNkeTD0UVqpevfZlLixX86rZ0qmHCXe6AssCrsBajmxl +5A59lLrDd8vZ7RKEjYi32vEYIKtz1bHdeBEmp5NdbbMNcORGQvj1rAzYqNOR +Y6ttiP4nab1p+ufh7rTZz/lHhlgpVrNF8WYKhGjpP/s70AirroVJLas+A5yJ +nX0ey42RM5kTYP8iAaxUZTYJFxjjT/MDI+MV8bAm7uyRFhMT9LhRb27zIhY0 +Ak2b1J6ZoNziPrvWwmgIvBt0svrgOkxf6oGsvYehKa9v55SkKbqUqDPGo8Jg +5sbivE6tKRoqCoeu8guBALWy5TmbWJg7vlrqs8YeiG733st0YqHuz7u9ilJ7 +IC1Q/AG5hYWXF8NsfXj3QGNxVPIDdxaa4iu2yFAQrGbarPrtx8IpTA2QTwyC +DuaH1b6HWfjvp9xbn9/vBo01yjRmLgvdpyVWapfvgimNDGPyKwvrT93ii921 +E4Z60EpimoV6qc5NNm47oTlkYmvELAu7Aw/kKVrvhFTS9qDxDxaGnvxVO6q2 +EzRYPDfr+c1QfSUjg/9jAPjbBtNbpcwwrOtwjXVQAPTt3riyj22G7Zfh11CE +P9wu+vlm9rQZFrzbZPrxpi8Yr4+Yt0syw9b85N+pub5w682XlXkpZijk6i5m +ke4LpNKIiV26Gc5WZorfi/SFm9nNKdcum6HcEsN/dNb7Ql5ygunGCjPke5hJ +nq71gTMRq85n95phjEVamI26N3huUEEzJTZe8rmcac/aDr/7BEVaaWzsVRpK +WcXYDnmBE8/tVNgovMCN+bh8O3xMrIv0XMPGwrfhog+HPSGsa3NllD4bX7aK +VhyN9oSzjseUbluz8dbweVOXJg+o39b/yzCUjR737zBz3baBfPCpurXNbNzb +GuUlXucKqYu7jJJa2Mh7WbbubIkr8KVbE5/a2FiTLSAllukKYzVLSvO62Nie +F1i+MdQV6nlOZov3svFGZ//27UxX8MyMi5z7wMYZ8URRySwXyG6IMrorxMGZ +65MHL8RvBckV+4lN7hy8OCPUPR3rDEXrY6K/enDwZ+FgwdsQZ9CPSV2f4cXB +pV2Pt7ze4QyOX7n9Q34cnD54caUg2xkSB2YXAvZzMKiLr3bZghN8L4i1jD7B +wdid4pF3DznBM7OM3pIyDkYUHSWPTztC0KGiK7YVHFQAzt3RPkeYq7gV+IXL +wdAAgb7gGkcQZwzN69VwUP+IVs/9KEewF1RUuNPMwSWmOrVNvI7Q2Feys7ef +g+/lAl7nSm0CO5Hb2oeHOEi2ZsoQCw4wtLFrTuY5B6UO6cq9eOEAM/WfT3u/ +5mCln7hmbKEDaOfrlv8zxsFT9t995vUcoPGZxeHkcQ6aduY39Uk6gN3qraDz +lYMbPWodHizYw65Th/6OmOVgkitPAX+LPcw0J+ZIf+eg/HjjeqsSe4j/kRVQ +/4ODaZPz7bln7UHUsFRrx28OBtikS0qE2sO14PrZxUUOuukfUc7dag//AWla +6G0= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "PlotRange" -> {{0, 30}, {0., 0.07123381404343573}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -10782,19 +10835,19 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "PlotRange" -> {{0, 30}, {0., 0.07123381404343573}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10808,165 +10861,123 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW -QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx -/f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu -+ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 -jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D -y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP -Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs -mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f -oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo -7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM -b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv -gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 -Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN -kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla -bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi -mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk -+8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ -8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q -mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L -nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD -F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ -HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd -H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv -40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ -Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw -00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA -3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY -8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj -qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe -zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ -6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW -/AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF -X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU -+iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar -CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma -uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM -LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 -pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY -W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt -yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn -SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW -lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA -ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ -hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc -Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z -tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb -SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 -5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS -hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi -H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 -vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q -3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT -v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir -So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb -3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX -h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP -A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 -JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z -kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv -bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ -oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB -K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq -w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK -UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI -V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV -6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 -CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R -WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z -jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL -c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d -MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE -S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP -nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ -KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT -s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 -PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 -nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV -7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx -yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR -17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J -2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW -jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 -vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j -aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 -OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g -jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN -pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD -c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN -5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR -zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 -Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 -OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv -q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr -YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX -W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh -9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 -Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u -T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb -3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k -yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E -8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt -tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr -fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 -RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 -ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS -FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx -jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH -k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j -I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 -DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh -xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs -GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 -0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu -FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX -SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI -zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 -XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l -tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf -2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 -ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb -My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ -1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 -d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi -t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y -/2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL -HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws -V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt -zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy -yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r -lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX -3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw -sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs -FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 -lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw -OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP -3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC -kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y -MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR -heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb +1:eJwV13k4VVsUAHBTpUSGzNO9F1fPkJlc91qLIlOiDJGMKQ0olCiRFw2GhCIN +ZuUJ9xwiQ5Ex0vAyN2guTyGZ0vC88/463+873zln77X2Wnsfun/olkA+Hh4e +eV4env+vcyNdbapJReayGTbZlxmW5n3XZKIshuKhM/GyRlUBDVDysb/MUDoI +yZz9lVygC4ed/hrkHyqAiz7ZxuEFCGIT0ukLgyQEhhtn2xc4watGx9CZwRbQ +bCZf9uT7grXq2Mupwadw+lnc7JvcA7AwaHLh6+BbCFQLPYTZcdC6/nrR3wXT +YDTkM1Cqfh4UXtV99Nf6DRds0HOv5iVYvd/nr2Xr+XEp6X1ou1sepOtZNzi6 +CmJaqoAZXb0IhrN1m6dEhXFl/JJLy4OvQ1JR7GM+WTHM3Ebav7nyF0hnvjuT +cVUCH+2zNRx2KwcZzVsnv5dIoFJbjSHLtxzkWhJjd3AlUOe8GlzYUw5KX/84 +pN4qgX7X7YNNj5WDmsMB34ZRCXzdu1SElV8OBgK/jd8ZrMb5a8b+8mPlsDlC +6r1+92oseTPQ4RZZAadcbM2fzkliE/oWR8dWglz1Izk+XilMvl8Ts3iqEiok +XOb1hKRwaYOYcExaJQw89eaeV5bC9yE7NvnnV4KqcwTD2UYK3XYUsvtbKqFl +U+7SJ5ekMGzHiOhaPi78tp599JAtjfKbBY/OIBfSSqLLfltL49Ttmpx7G7ig +upTntLazNH5+e3NFkg0XHNpXWKQESuOBs4HPxJ24kLOeVuWQKo028YL6c95c +WIf2WQ9eSWNH8sVUoWNcCDfN9+mKl8FOMulGaBUX7PJEZuyTZZDeU9GQUsMF +xrJjpx9dkEHGJY+MG3VceNLnRvTekMF1Lj/O9TVxYe2Blfwjj2Twe21K45Ie +LoyWRJZ8k5PFalbcYM87LnitdhyXr5LF8HDeiXFRAgyONpy41iiLMi6JcUUS +BKx4u0aK3iGLBpmMQXcpAuoq+YE5LItzVwaeVMsTIGVfl6a7KItbTz6b38gk +4MkJVUMrezlktvGq9bII2DD5IzrknRxO9DNvxfgREGWTqXHvixy27o3ecS+A +gIp87WcSc3J40+LcOO8uAmRcfE3rBOUx3bW4PWovAV9ut8/zr5XHLmdnzw3h +BGTEp0VcOiKPAh38YHWSgLeSzJA2YQVsq/wnZL6QAOnQJkVpaQWUVms/OFRM +gMP9bQ/30BRQ855LQM11Amqik7RWGSjgnRWlEnvKCDj76uuYxzYFvK3AR5SS +BOiXNuyeLFDA5noVWnYzASfYzn5y6xQx22h0udYzAmy8r30zsVREeaumyQfP +CRCJ+/ynq4MiLsAOq6CXBFxpTShJ81XEh/wjFhdfE3Dbrv7z0jOKqB7UktL5 +kYCv21QOTw8rYgZzw7vYbwTURh9YJvZeEUt+LvJ+mibg+JU72WsnFLFZpz3b +bpaAla/dG/bwKeGCeaHusu8EqO9O5nmtoYSrzA/Iuv0mwPvQ7Nmeo0roXzHj +ZL+MBLUsS4WxBCV0/ixkFC1IUvE7V74sTQnv08/kFC8nIfrXH08si5Rwyl// +y5QQCRf+9Jas61HCYNrHBl9REnrOd+YWKyqjR37U1SwZEjKqVuu1qivjppK2 +96myJHj2+7W81lPGPPJdbbwcCaMyv97LWysj7+cdAr4KJPDn6WqkhyjjKLfR +dkqZBFbFperjTcp4jrBXC2WSsGHw0e+J+8qocr2+nqFOgiOPwEafp8r4RMRh +Wy/lgC0hw/BBGWP2WVdo/kGC9VF6bNwSGnIn+wZua5LwYFVj4boVNPzalHLX +RYsEpyK3+19FaNj1xatqnPL2h0lifjI0bDvS0SG1loQDynOFFpo0VA+/UWKl +S8JsVdr9BR0aLgpPCXZTjrbRHCcMaejvGx5jr0dCwkFfY4Y5DX/dacu10ich +p7X7Pp8zDc+OKr+QMiRBeVvgeL0rDWu5NW//pFz0ZVEs3JOGE3LDPBOUKyWN +tr8LoOHvfZGJdUYktO3OHW89TMORN9CtbUKC7S9T8WNHaVh4ySXvT8qP0vqM +DeNoqHkmImOA8nDd8riiMzSUMCnsDV9HgrdjUZFXKg03b5Rj3KX8/q151+oM +6r5+cNoSUxImhCLEE65Q73t+/HES5fA8ERNOPg0VDpfld1P+bli6fbaYhqn5 +5y4uZVH58R4pCqykocGk3+dDlE9/O9KlWE19P6jVoZSyyCmJif7bNGxWau0d +pizDtTGxbqFhwN4kV30zEq5ueLf93w4axrb0OHtSZgzHxNU8oKHfy6uHYynf +CJYpDnlCw9LuxrZ8ytp8VV3MfhpqW42y71EmL26aGBmmnidfvXpJeZ3mqHjW +CA0jGAEV85TvNMWbbH5HQ8LRoFSETYKli6LXslEaKuWI/c2g3DlaG9f0hYZp +os1MQ8oOMVuKI6doqL+Lt8yS8lOx8S6dORrKzmd7O1J2Lzk18ekHDR902Fm6 +U37BYkjkLdLwTuxztx2U/R83mmwToON4mOhVX8qfAty9RJfT0TqrUtKP8v7v +U3H3hem4+UzsPW/KrIO7pD6K0/GN9VlxD8qCY8/K+GXomHnEQt6J8oD/Zgu6 +Ih2fFBS9WE+5+HnrgDmDjp2a1e7/jzfCZd1+L3U63vE8mEL/f34Pb/JGa9HR +wX3kuBBlUWt6VpYeHUvX/Kv1jYrHyN0LWreM6fizui+7n/JNkxUtT83omNS8 +q/UW5WjucfevSEfGeF15OmWbP6a/CFvTkV3Xt20/ZamC3fGa9nT0ib3bbkn5 +vdwLaVsnOrodip2V/D8fGU7lu1zpGFNG++cDle/NCaZD+T50XOepRTtGWenf +8uCmnXRs0isPtKT85TCD/+UeKl5LzMKX/L9+goTWykTQ0b6wauwEtd7c3sS2 +GkVR84tvcDOjrOo5s23rcTq+PrPi3BS1fpvtX/6ZepqOZV73glwop7Y5y95M +oeP+EYeVvJS9OB0VXelUPL/tivuLqoeFtZXDAlfp2G+eNTJtTIK++AmdowQd +9TptzvtS9cWTNNuWXUPHgdjCwWmq/h7x7/WsaaBjfIHl/P/1uW92S8JUOx0V +19/uyDGg6nVI9fnuZ9T4BjPaC6h6D3O+dCDhFR35DJVnFShjt/DSwvd0lMke +XJpJ9YeXDXO6IxN0PJ64pf+IDhXP3PuJLvwMLF6rZ66oTcVTmqMQJsjA8+mv +rh2n+g+ZRhDnhBkY8K5v7AXVrzbH57zolmbgmyQd2zQNKl6B+/UttBiori+M +T6l+t6ApOqLtykDLWjGFNjoJc1flThh4MnAqKTX1O42EmVVqqqY+DHzlNCun +QXli2nTvhj0MHP22LPGkEglvGwLmPGMYeDRbpl1KnoRu+1qR08UM/DVU/YmQ +oOrlzj0i5S8GOtT/OnFbnOpHOj0uGZUMLFG+YNMoRsJdiTc51+oYGN6yy6dh +FTX+5yvUbz1kYOTq6L4san/I2ecNb2ep+dyv+dDNR0LWy6C3n34wcJNhz9Mi +XhIyN4cnjC8y8F+uweJRHiqfBqcffF+ugkJeD+UY/xIQ/5NwX6WkgtXicrGb +FgjYl7TkANtaBbsZHsKMSQLYZTfzLl5UweuF7I/dQwQ8p5XlWl1WQZVTlx8E +DRIQfbH02kyuCia4xYQIDFD75YmSK1tKVXDL3D9fDXup/XpbXrZIowrWVXkt +OfqQgD+WZKYlvlHBqJxI1yv3qPOJz9G4w1qqeDDzwhjrBgG3+qJi1fRUUVrC +NzG9hAAXuyPH+4xUUYmxlXe0iIB0o0PH9EEVFep+ZSfnEyC8MvTIhLMqCp4J +C27MIUCgzv/ArkhVfJ4ec6U2mYApcTtftxZVHOcKVKiEEjC0n/Fkb6cqLr37 +i1wVTEBzxw+I7aG+d1nWd4E6z6RFlynfGFDFyz6Bt9up847u25WvFsZUcc3s +49OW3gSEEI93XJVQQ7EM248PHQgY2+y6/f1ONbzsR6YYrSHgfbKvW9gyJiZY +kHqXhrgQMqbF0F3JRJvlxRvUB7gwv3FhfFyUicuEba5W9XJhBX96wh45Jo5P +Bqh2PuKCblRrta82Ez9NeJUNt3EhJpApsXkrE7Wrvl0v53JByvzLY81cJq74 +U+iO7Cku2E5G2n4wVsdP2sGZVjpc+BIgGF4duwaPSB6XUGusoP4npPlOtfyB +PzRO3Gv+fhPEHzJTuZMaKOD62MLWtAwUTlc6GRtr4d8flC/lWZRCtqapqMRu +bSxeVyvY7H8duuUsjKbPr8XQD7R7ecnFwFJoSdMZ0MFPr1K2m18oBBH+ggi/ +eF3sL5uxKn2QD0onlNkeTD0UVqpevfZlLixX86rZ0qmHCXe6AssCrsBajmxl +5A59lLrDd8vZ7RKEjYi32vEYIKtz1bHdeBEmp5NdbbMNcORGQvj1rAzYqNOR +Y6ttiP4nab1p+ufh7rTZz/lHhlgpVrNF8WYKhGjpP/s70AirroVJLas+A5yJ +nX0ey42RM5kTYP8iAaxUZTYJFxjjT/MDI+MV8bAm7uyRFhMT9LhRb27zIhY0 +Ak2b1J6ZoNziPrvWwmgIvBt0svrgOkxf6oGsvYehKa9v55SkKbqUqDPGo8Jg +5sbivE6tKRoqCoeu8guBALWy5TmbWJg7vlrqs8YeiG733st0YqHuz7u9ilJ7 +IC1Q/AG5hYWXF8NsfXj3QGNxVPIDdxaa4iu2yFAQrGbarPrtx8IpTA2QTwyC +DuaH1b6HWfjvp9xbn9/vBo01yjRmLgvdpyVWapfvgimNDGPyKwvrT93ii921 +E4Z60EpimoV6qc5NNm47oTlkYmvELAu7Aw/kKVrvhFTS9qDxDxaGnvxVO6q2 +EzRYPDfr+c1QfSUjg/9jAPjbBtNbpcwwrOtwjXVQAPTt3riyj22G7Zfh11CE +P9wu+vlm9rQZFrzbZPrxpi8Yr4+Yt0syw9b85N+pub5w682XlXkpZijk6i5m +ke4LpNKIiV26Gc5WZorfi/SFm9nNKdcum6HcEsN/dNb7Ql5ygunGCjPke5hJ +nq71gTMRq85n95phjEVamI26N3huUEEzJTZe8rmcac/aDr/7BEVaaWzsVRpK +WcXYDnmBE8/tVNgovMCN+bh8O3xMrIv0XMPGwrfhog+HPSGsa3NllD4bX7aK +VhyN9oSzjseUbluz8dbweVOXJg+o39b/yzCUjR737zBz3baBfPCpurXNbNzb +GuUlXucKqYu7jJJa2Mh7WbbubIkr8KVbE5/a2FiTLSAllukKYzVLSvO62Nie +F1i+MdQV6nlOZov3svFGZ//27UxX8MyMi5z7wMYZ8URRySwXyG6IMrorxMGZ +65MHL8RvBckV+4lN7hy8OCPUPR3rDEXrY6K/enDwZ+FgwdsQZ9CPSV2f4cXB +pV2Pt7ze4QyOX7n9Q34cnD54caUg2xkSB2YXAvZzMKiLr3bZghN8L4i1jD7B +wdid4pF3DznBM7OM3pIyDkYUHSWPTztC0KGiK7YVHFQAzt3RPkeYq7gV+IXL +wdAAgb7gGkcQZwzN69VwUP+IVs/9KEewF1RUuNPMwSWmOrVNvI7Q2Feys7ef +g+/lAl7nSm0CO5Hb2oeHOEi2ZsoQCw4wtLFrTuY5B6UO6cq9eOEAM/WfT3u/ +5mCln7hmbKEDaOfrlv8zxsFT9t995vUcoPGZxeHkcQ6aduY39Uk6gN3qraDz +lYMbPWodHizYw65Th/6OmOVgkitPAX+LPcw0J+ZIf+eg/HjjeqsSe4j/kRVQ +/4ODaZPz7bln7UHUsFRrx28OBtikS0qE2sO14PrZxUUOuukfUc7dag//AWla +6G0= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "PlotRange" -> {{0, 30}, {0., 0.07123381404343573}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10977,6 +10988,7 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -11004,7 +11016,8 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.1760850255633475}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07123381404343573}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -11012,17 +11025,592 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913465524249306`*^9}, + CellChangeTimes->{3.9913465524249306`*^9, 3.9942597639373207`*^9}, CellLabel-> - "Out[444]=",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] + "Out[119]=",ExpressionUUID->"527dbcef-c82b-43b9-b325-f81534d2eb99"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"6883477e-2a54-0a45-979a-\ -ae60c73e9e82"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"6883477e-2a54-0a45-979a-ae60c73e9e82"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VVsUAHBTpUSGzNO9F1fPkJlc91qLIlOiDJGMKQ0olCiRFw2GhCIN +ZuUJ9xwiQ5Ex0vAyN2guTyGZ0vC88/463+873zln77X2Wnsfun/olkA+Hh4e +eV4env+vcyNdbapJReayGTbZlxmW5n3XZKIshuKhM/GyRlUBDVDysb/MUDoI +yZz9lVygC4ed/hrkHyqAiz7ZxuEFCGIT0ukLgyQEhhtn2xc4watGx9CZwRbQ +bCZf9uT7grXq2Mupwadw+lnc7JvcA7AwaHLh6+BbCFQLPYTZcdC6/nrR3wXT +YDTkM1Cqfh4UXtV99Nf6DRds0HOv5iVYvd/nr2Xr+XEp6X1ou1sepOtZNzi6 +CmJaqoAZXb0IhrN1m6dEhXFl/JJLy4OvQ1JR7GM+WTHM3Ebav7nyF0hnvjuT +cVUCH+2zNRx2KwcZzVsnv5dIoFJbjSHLtxzkWhJjd3AlUOe8GlzYUw5KX/84 +pN4qgX7X7YNNj5WDmsMB34ZRCXzdu1SElV8OBgK/jd8ZrMb5a8b+8mPlsDlC +6r1+92oseTPQ4RZZAadcbM2fzkliE/oWR8dWglz1Izk+XilMvl8Ts3iqEiok +XOb1hKRwaYOYcExaJQw89eaeV5bC9yE7NvnnV4KqcwTD2UYK3XYUsvtbKqFl +U+7SJ5ekMGzHiOhaPi78tp599JAtjfKbBY/OIBfSSqLLfltL49Ttmpx7G7ig +upTntLazNH5+e3NFkg0XHNpXWKQESuOBs4HPxJ24kLOeVuWQKo028YL6c95c +WIf2WQ9eSWNH8sVUoWNcCDfN9+mKl8FOMulGaBUX7PJEZuyTZZDeU9GQUsMF +xrJjpx9dkEHGJY+MG3VceNLnRvTekMF1Lj/O9TVxYe2Blfwjj2Twe21K45Ie +LoyWRJZ8k5PFalbcYM87LnitdhyXr5LF8HDeiXFRAgyONpy41iiLMi6JcUUS +BKx4u0aK3iGLBpmMQXcpAuoq+YE5LItzVwaeVMsTIGVfl6a7KItbTz6b38gk +4MkJVUMrezlktvGq9bII2DD5IzrknRxO9DNvxfgREGWTqXHvixy27o3ecS+A +gIp87WcSc3J40+LcOO8uAmRcfE3rBOUx3bW4PWovAV9ut8/zr5XHLmdnzw3h +BGTEp0VcOiKPAh38YHWSgLeSzJA2YQVsq/wnZL6QAOnQJkVpaQWUVms/OFRM +gMP9bQ/30BRQ855LQM11Amqik7RWGSjgnRWlEnvKCDj76uuYxzYFvK3AR5SS +BOiXNuyeLFDA5noVWnYzASfYzn5y6xQx22h0udYzAmy8r30zsVREeaumyQfP +CRCJ+/ynq4MiLsAOq6CXBFxpTShJ81XEh/wjFhdfE3Dbrv7z0jOKqB7UktL5 +kYCv21QOTw8rYgZzw7vYbwTURh9YJvZeEUt+LvJ+mibg+JU72WsnFLFZpz3b +bpaAla/dG/bwKeGCeaHusu8EqO9O5nmtoYSrzA/Iuv0mwPvQ7Nmeo0roXzHj +ZL+MBLUsS4WxBCV0/ixkFC1IUvE7V74sTQnv08/kFC8nIfrXH08si5Rwyl// +y5QQCRf+9Jas61HCYNrHBl9REnrOd+YWKyqjR37U1SwZEjKqVuu1qivjppK2 +96myJHj2+7W81lPGPPJdbbwcCaMyv97LWysj7+cdAr4KJPDn6WqkhyjjKLfR +dkqZBFbFperjTcp4jrBXC2WSsGHw0e+J+8qocr2+nqFOgiOPwEafp8r4RMRh +Wy/lgC0hw/BBGWP2WVdo/kGC9VF6bNwSGnIn+wZua5LwYFVj4boVNPzalHLX +RYsEpyK3+19FaNj1xatqnPL2h0lifjI0bDvS0SG1loQDynOFFpo0VA+/UWKl +S8JsVdr9BR0aLgpPCXZTjrbRHCcMaejvGx5jr0dCwkFfY4Y5DX/dacu10ich +p7X7Pp8zDc+OKr+QMiRBeVvgeL0rDWu5NW//pFz0ZVEs3JOGE3LDPBOUKyWN +tr8LoOHvfZGJdUYktO3OHW89TMORN9CtbUKC7S9T8WNHaVh4ySXvT8qP0vqM +DeNoqHkmImOA8nDd8riiMzSUMCnsDV9HgrdjUZFXKg03b5Rj3KX8/q151+oM +6r5+cNoSUxImhCLEE65Q73t+/HES5fA8ERNOPg0VDpfld1P+bli6fbaYhqn5 +5y4uZVH58R4pCqykocGk3+dDlE9/O9KlWE19P6jVoZSyyCmJif7bNGxWau0d +pizDtTGxbqFhwN4kV30zEq5ueLf93w4axrb0OHtSZgzHxNU8oKHfy6uHYynf +CJYpDnlCw9LuxrZ8ytp8VV3MfhpqW42y71EmL26aGBmmnidfvXpJeZ3mqHjW +CA0jGAEV85TvNMWbbH5HQ8LRoFSETYKli6LXslEaKuWI/c2g3DlaG9f0hYZp +os1MQ8oOMVuKI6doqL+Lt8yS8lOx8S6dORrKzmd7O1J2Lzk18ekHDR902Fm6 +U37BYkjkLdLwTuxztx2U/R83mmwToON4mOhVX8qfAty9RJfT0TqrUtKP8v7v +U3H3hem4+UzsPW/KrIO7pD6K0/GN9VlxD8qCY8/K+GXomHnEQt6J8oD/Zgu6 +Ih2fFBS9WE+5+HnrgDmDjp2a1e7/jzfCZd1+L3U63vE8mEL/f34Pb/JGa9HR +wX3kuBBlUWt6VpYeHUvX/Kv1jYrHyN0LWreM6fizui+7n/JNkxUtT83omNS8 +q/UW5WjucfevSEfGeF15OmWbP6a/CFvTkV3Xt20/ZamC3fGa9nT0ib3bbkn5 +vdwLaVsnOrodip2V/D8fGU7lu1zpGFNG++cDle/NCaZD+T50XOepRTtGWenf +8uCmnXRs0isPtKT85TCD/+UeKl5LzMKX/L9+goTWykTQ0b6wauwEtd7c3sS2 +GkVR84tvcDOjrOo5s23rcTq+PrPi3BS1fpvtX/6ZepqOZV73glwop7Y5y95M +oeP+EYeVvJS9OB0VXelUPL/tivuLqoeFtZXDAlfp2G+eNTJtTIK++AmdowQd +9TptzvtS9cWTNNuWXUPHgdjCwWmq/h7x7/WsaaBjfIHl/P/1uW92S8JUOx0V +19/uyDGg6nVI9fnuZ9T4BjPaC6h6D3O+dCDhFR35DJVnFShjt/DSwvd0lMke +XJpJ9YeXDXO6IxN0PJ64pf+IDhXP3PuJLvwMLF6rZ66oTcVTmqMQJsjA8+mv +rh2n+g+ZRhDnhBkY8K5v7AXVrzbH57zolmbgmyQd2zQNKl6B+/UttBiori+M +T6l+t6ApOqLtykDLWjGFNjoJc1flThh4MnAqKTX1O42EmVVqqqY+DHzlNCun +QXli2nTvhj0MHP22LPGkEglvGwLmPGMYeDRbpl1KnoRu+1qR08UM/DVU/YmQ +oOrlzj0i5S8GOtT/OnFbnOpHOj0uGZUMLFG+YNMoRsJdiTc51+oYGN6yy6dh +FTX+5yvUbz1kYOTq6L4san/I2ecNb2ep+dyv+dDNR0LWy6C3n34wcJNhz9Mi +XhIyN4cnjC8y8F+uweJRHiqfBqcffF+ugkJeD+UY/xIQ/5NwX6WkgtXicrGb +FgjYl7TkANtaBbsZHsKMSQLYZTfzLl5UweuF7I/dQwQ8p5XlWl1WQZVTlx8E +DRIQfbH02kyuCia4xYQIDFD75YmSK1tKVXDL3D9fDXup/XpbXrZIowrWVXkt +OfqQgD+WZKYlvlHBqJxI1yv3qPOJz9G4w1qqeDDzwhjrBgG3+qJi1fRUUVrC +NzG9hAAXuyPH+4xUUYmxlXe0iIB0o0PH9EEVFep+ZSfnEyC8MvTIhLMqCp4J +C27MIUCgzv/ArkhVfJ4ec6U2mYApcTtftxZVHOcKVKiEEjC0n/Fkb6cqLr37 +i1wVTEBzxw+I7aG+d1nWd4E6z6RFlynfGFDFyz6Bt9up847u25WvFsZUcc3s +49OW3gSEEI93XJVQQ7EM248PHQgY2+y6/f1ONbzsR6YYrSHgfbKvW9gyJiZY +kHqXhrgQMqbF0F3JRJvlxRvUB7gwv3FhfFyUicuEba5W9XJhBX96wh45Jo5P +Bqh2PuKCblRrta82Ez9NeJUNt3EhJpApsXkrE7Wrvl0v53JByvzLY81cJq74 +U+iO7Cku2E5G2n4wVsdP2sGZVjpc+BIgGF4duwaPSB6XUGusoP4npPlOtfyB +PzRO3Gv+fhPEHzJTuZMaKOD62MLWtAwUTlc6GRtr4d8flC/lWZRCtqapqMRu +bSxeVyvY7H8duuUsjKbPr8XQD7R7ecnFwFJoSdMZ0MFPr1K2m18oBBH+ggi/ +eF3sL5uxKn2QD0onlNkeTD0UVqpevfZlLixX86rZ0qmHCXe6AssCrsBajmxl +5A59lLrDd8vZ7RKEjYi32vEYIKtz1bHdeBEmp5NdbbMNcORGQvj1rAzYqNOR +Y6ttiP4nab1p+ufh7rTZz/lHhlgpVrNF8WYKhGjpP/s70AirroVJLas+A5yJ +nX0ey42RM5kTYP8iAaxUZTYJFxjjT/MDI+MV8bAm7uyRFhMT9LhRb27zIhY0 +Ak2b1J6ZoNziPrvWwmgIvBt0svrgOkxf6oGsvYehKa9v55SkKbqUqDPGo8Jg +5sbivE6tKRoqCoeu8guBALWy5TmbWJg7vlrqs8YeiG733st0YqHuz7u9ilJ7 +IC1Q/AG5hYWXF8NsfXj3QGNxVPIDdxaa4iu2yFAQrGbarPrtx8IpTA2QTwyC +DuaH1b6HWfjvp9xbn9/vBo01yjRmLgvdpyVWapfvgimNDGPyKwvrT93ii921 +E4Z60EpimoV6qc5NNm47oTlkYmvELAu7Aw/kKVrvhFTS9qDxDxaGnvxVO6q2 +EzRYPDfr+c1QfSUjg/9jAPjbBtNbpcwwrOtwjXVQAPTt3riyj22G7Zfh11CE +P9wu+vlm9rQZFrzbZPrxpi8Yr4+Yt0syw9b85N+pub5w682XlXkpZijk6i5m +ke4LpNKIiV26Gc5WZorfi/SFm9nNKdcum6HcEsN/dNb7Ql5ygunGCjPke5hJ +nq71gTMRq85n95phjEVamI26N3huUEEzJTZe8rmcac/aDr/7BEVaaWzsVRpK +WcXYDnmBE8/tVNgovMCN+bh8O3xMrIv0XMPGwrfhog+HPSGsa3NllD4bX7aK +VhyN9oSzjseUbluz8dbweVOXJg+o39b/yzCUjR737zBz3baBfPCpurXNbNzb +GuUlXucKqYu7jJJa2Mh7WbbubIkr8KVbE5/a2FiTLSAllukKYzVLSvO62Nie +F1i+MdQV6nlOZov3svFGZ//27UxX8MyMi5z7wMYZ8URRySwXyG6IMrorxMGZ +65MHL8RvBckV+4lN7hy8OCPUPR3rDEXrY6K/enDwZ+FgwdsQZ9CPSV2f4cXB +pV2Pt7ze4QyOX7n9Q34cnD54caUg2xkSB2YXAvZzMKiLr3bZghN8L4i1jD7B +wdid4pF3DznBM7OM3pIyDkYUHSWPTztC0KGiK7YVHFQAzt3RPkeYq7gV+IXL +wdAAgb7gGkcQZwzN69VwUP+IVs/9KEewF1RUuNPMwSWmOrVNvI7Q2Feys7ef +g+/lAl7nSm0CO5Hb2oeHOEi2ZsoQCw4wtLFrTuY5B6UO6cq9eOEAM/WfT3u/ +5mCln7hmbKEDaOfrlv8zxsFT9t995vUcoPGZxeHkcQ6aduY39Uk6gN3qraDz +lYMbPWodHizYw65Th/6OmOVgkitPAX+LPcw0J+ZIf+eg/HjjeqsSe4j/kRVQ +/4ODaZPz7bln7UHUsFRrx28OBtikS0qE2sO14PrZxUUOuukfUc7dag//AWla +6G0= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VVsUAHBTpUSGzNO9F1fPkJlc91qLIlOiDJGMKQ0olCiRFw2GhCIN +ZuUJ9xwiQ5Ex0vAyN2guTyGZ0vC88/463+873zln77X2Wnsfun/olkA+Hh4e +eV4env+vcyNdbapJReayGTbZlxmW5n3XZKIshuKhM/GyRlUBDVDysb/MUDoI +yZz9lVygC4ed/hrkHyqAiz7ZxuEFCGIT0ukLgyQEhhtn2xc4watGx9CZwRbQ +bCZf9uT7grXq2Mupwadw+lnc7JvcA7AwaHLh6+BbCFQLPYTZcdC6/nrR3wXT +YDTkM1Cqfh4UXtV99Nf6DRds0HOv5iVYvd/nr2Xr+XEp6X1ou1sepOtZNzi6 +CmJaqoAZXb0IhrN1m6dEhXFl/JJLy4OvQ1JR7GM+WTHM3Ebav7nyF0hnvjuT +cVUCH+2zNRx2KwcZzVsnv5dIoFJbjSHLtxzkWhJjd3AlUOe8GlzYUw5KX/84 +pN4qgX7X7YNNj5WDmsMB34ZRCXzdu1SElV8OBgK/jd8ZrMb5a8b+8mPlsDlC +6r1+92oseTPQ4RZZAadcbM2fzkliE/oWR8dWglz1Izk+XilMvl8Ts3iqEiok +XOb1hKRwaYOYcExaJQw89eaeV5bC9yE7NvnnV4KqcwTD2UYK3XYUsvtbKqFl +U+7SJ5ekMGzHiOhaPi78tp599JAtjfKbBY/OIBfSSqLLfltL49Ttmpx7G7ig +upTntLazNH5+e3NFkg0XHNpXWKQESuOBs4HPxJ24kLOeVuWQKo028YL6c95c +WIf2WQ9eSWNH8sVUoWNcCDfN9+mKl8FOMulGaBUX7PJEZuyTZZDeU9GQUsMF +xrJjpx9dkEHGJY+MG3VceNLnRvTekMF1Lj/O9TVxYe2Blfwjj2Twe21K45Ie +LoyWRJZ8k5PFalbcYM87LnitdhyXr5LF8HDeiXFRAgyONpy41iiLMi6JcUUS +BKx4u0aK3iGLBpmMQXcpAuoq+YE5LItzVwaeVMsTIGVfl6a7KItbTz6b38gk +4MkJVUMrezlktvGq9bII2DD5IzrknRxO9DNvxfgREGWTqXHvixy27o3ecS+A +gIp87WcSc3J40+LcOO8uAmRcfE3rBOUx3bW4PWovAV9ut8/zr5XHLmdnzw3h +BGTEp0VcOiKPAh38YHWSgLeSzJA2YQVsq/wnZL6QAOnQJkVpaQWUVms/OFRM +gMP9bQ/30BRQ855LQM11Amqik7RWGSjgnRWlEnvKCDj76uuYxzYFvK3AR5SS +BOiXNuyeLFDA5noVWnYzASfYzn5y6xQx22h0udYzAmy8r30zsVREeaumyQfP +CRCJ+/ynq4MiLsAOq6CXBFxpTShJ81XEh/wjFhdfE3Dbrv7z0jOKqB7UktL5 +kYCv21QOTw8rYgZzw7vYbwTURh9YJvZeEUt+LvJ+mibg+JU72WsnFLFZpz3b +bpaAla/dG/bwKeGCeaHusu8EqO9O5nmtoYSrzA/Iuv0mwPvQ7Nmeo0roXzHj +ZL+MBLUsS4WxBCV0/ixkFC1IUvE7V74sTQnv08/kFC8nIfrXH08si5Rwyl// +y5QQCRf+9Jas61HCYNrHBl9REnrOd+YWKyqjR37U1SwZEjKqVuu1qivjppK2 +96myJHj2+7W81lPGPPJdbbwcCaMyv97LWysj7+cdAr4KJPDn6WqkhyjjKLfR +dkqZBFbFperjTcp4jrBXC2WSsGHw0e+J+8qocr2+nqFOgiOPwEafp8r4RMRh +Wy/lgC0hw/BBGWP2WVdo/kGC9VF6bNwSGnIn+wZua5LwYFVj4boVNPzalHLX +RYsEpyK3+19FaNj1xatqnPL2h0lifjI0bDvS0SG1loQDynOFFpo0VA+/UWKl +S8JsVdr9BR0aLgpPCXZTjrbRHCcMaejvGx5jr0dCwkFfY4Y5DX/dacu10ich +p7X7Pp8zDc+OKr+QMiRBeVvgeL0rDWu5NW//pFz0ZVEs3JOGE3LDPBOUKyWN +tr8LoOHvfZGJdUYktO3OHW89TMORN9CtbUKC7S9T8WNHaVh4ySXvT8qP0vqM +DeNoqHkmImOA8nDd8riiMzSUMCnsDV9HgrdjUZFXKg03b5Rj3KX8/q151+oM +6r5+cNoSUxImhCLEE65Q73t+/HES5fA8ERNOPg0VDpfld1P+bli6fbaYhqn5 +5y4uZVH58R4pCqykocGk3+dDlE9/O9KlWE19P6jVoZSyyCmJif7bNGxWau0d +pizDtTGxbqFhwN4kV30zEq5ueLf93w4axrb0OHtSZgzHxNU8oKHfy6uHYynf +CJYpDnlCw9LuxrZ8ytp8VV3MfhpqW42y71EmL26aGBmmnidfvXpJeZ3mqHjW +CA0jGAEV85TvNMWbbH5HQ8LRoFSETYKli6LXslEaKuWI/c2g3DlaG9f0hYZp +os1MQ8oOMVuKI6doqL+Lt8yS8lOx8S6dORrKzmd7O1J2Lzk18ekHDR902Fm6 +U37BYkjkLdLwTuxztx2U/R83mmwToON4mOhVX8qfAty9RJfT0TqrUtKP8v7v +U3H3hem4+UzsPW/KrIO7pD6K0/GN9VlxD8qCY8/K+GXomHnEQt6J8oD/Zgu6 +Ih2fFBS9WE+5+HnrgDmDjp2a1e7/jzfCZd1+L3U63vE8mEL/f34Pb/JGa9HR +wX3kuBBlUWt6VpYeHUvX/Kv1jYrHyN0LWreM6fizui+7n/JNkxUtT83omNS8 +q/UW5WjucfevSEfGeF15OmWbP6a/CFvTkV3Xt20/ZamC3fGa9nT0ib3bbkn5 +vdwLaVsnOrodip2V/D8fGU7lu1zpGFNG++cDle/NCaZD+T50XOepRTtGWenf +8uCmnXRs0isPtKT85TCD/+UeKl5LzMKX/L9+goTWykTQ0b6wauwEtd7c3sS2 +GkVR84tvcDOjrOo5s23rcTq+PrPi3BS1fpvtX/6ZepqOZV73glwop7Y5y95M +oeP+EYeVvJS9OB0VXelUPL/tivuLqoeFtZXDAlfp2G+eNTJtTIK++AmdowQd +9TptzvtS9cWTNNuWXUPHgdjCwWmq/h7x7/WsaaBjfIHl/P/1uW92S8JUOx0V +19/uyDGg6nVI9fnuZ9T4BjPaC6h6D3O+dCDhFR35DJVnFShjt/DSwvd0lMke +XJpJ9YeXDXO6IxN0PJ64pf+IDhXP3PuJLvwMLF6rZ66oTcVTmqMQJsjA8+mv +rh2n+g+ZRhDnhBkY8K5v7AXVrzbH57zolmbgmyQd2zQNKl6B+/UttBiori+M +T6l+t6ApOqLtykDLWjGFNjoJc1flThh4MnAqKTX1O42EmVVqqqY+DHzlNCun +QXli2nTvhj0MHP22LPGkEglvGwLmPGMYeDRbpl1KnoRu+1qR08UM/DVU/YmQ +oOrlzj0i5S8GOtT/OnFbnOpHOj0uGZUMLFG+YNMoRsJdiTc51+oYGN6yy6dh +FTX+5yvUbz1kYOTq6L4san/I2ecNb2ep+dyv+dDNR0LWy6C3n34wcJNhz9Mi +XhIyN4cnjC8y8F+uweJRHiqfBqcffF+ugkJeD+UY/xIQ/5NwX6WkgtXicrGb +FgjYl7TkANtaBbsZHsKMSQLYZTfzLl5UweuF7I/dQwQ8p5XlWl1WQZVTlx8E +DRIQfbH02kyuCia4xYQIDFD75YmSK1tKVXDL3D9fDXup/XpbXrZIowrWVXkt +OfqQgD+WZKYlvlHBqJxI1yv3qPOJz9G4w1qqeDDzwhjrBgG3+qJi1fRUUVrC +NzG9hAAXuyPH+4xUUYmxlXe0iIB0o0PH9EEVFep+ZSfnEyC8MvTIhLMqCp4J +C27MIUCgzv/ArkhVfJ4ec6U2mYApcTtftxZVHOcKVKiEEjC0n/Fkb6cqLr37 +i1wVTEBzxw+I7aG+d1nWd4E6z6RFlynfGFDFyz6Bt9up847u25WvFsZUcc3s +49OW3gSEEI93XJVQQ7EM248PHQgY2+y6/f1ONbzsR6YYrSHgfbKvW9gyJiZY +kHqXhrgQMqbF0F3JRJvlxRvUB7gwv3FhfFyUicuEba5W9XJhBX96wh45Jo5P +Bqh2PuKCblRrta82Ez9NeJUNt3EhJpApsXkrE7Wrvl0v53JByvzLY81cJq74 +U+iO7Cku2E5G2n4wVsdP2sGZVjpc+BIgGF4duwaPSB6XUGusoP4npPlOtfyB +PzRO3Gv+fhPEHzJTuZMaKOD62MLWtAwUTlc6GRtr4d8flC/lWZRCtqapqMRu +bSxeVyvY7H8duuUsjKbPr8XQD7R7ecnFwFJoSdMZ0MFPr1K2m18oBBH+ggi/ +eF3sL5uxKn2QD0onlNkeTD0UVqpevfZlLixX86rZ0qmHCXe6AssCrsBajmxl +5A59lLrDd8vZ7RKEjYi32vEYIKtz1bHdeBEmp5NdbbMNcORGQvj1rAzYqNOR +Y6ttiP4nab1p+ufh7rTZz/lHhlgpVrNF8WYKhGjpP/s70AirroVJLas+A5yJ +nX0ey42RM5kTYP8iAaxUZTYJFxjjT/MDI+MV8bAm7uyRFhMT9LhRb27zIhY0 +Ak2b1J6ZoNziPrvWwmgIvBt0svrgOkxf6oGsvYehKa9v55SkKbqUqDPGo8Jg +5sbivE6tKRoqCoeu8guBALWy5TmbWJg7vlrqs8YeiG733st0YqHuz7u9ilJ7 +IC1Q/AG5hYWXF8NsfXj3QGNxVPIDdxaa4iu2yFAQrGbarPrtx8IpTA2QTwyC +DuaH1b6HWfjvp9xbn9/vBo01yjRmLgvdpyVWapfvgimNDGPyKwvrT93ii921 +E4Z60EpimoV6qc5NNm47oTlkYmvELAu7Aw/kKVrvhFTS9qDxDxaGnvxVO6q2 +EzRYPDfr+c1QfSUjg/9jAPjbBtNbpcwwrOtwjXVQAPTt3riyj22G7Zfh11CE +P9wu+vlm9rQZFrzbZPrxpi8Yr4+Yt0syw9b85N+pub5w682XlXkpZijk6i5m +ke4LpNKIiV26Gc5WZorfi/SFm9nNKdcum6HcEsN/dNb7Ql5ygunGCjPke5hJ +nq71gTMRq85n95phjEVamI26N3huUEEzJTZe8rmcac/aDr/7BEVaaWzsVRpK +WcXYDnmBE8/tVNgovMCN+bh8O3xMrIv0XMPGwrfhog+HPSGsa3NllD4bX7aK +VhyN9oSzjseUbluz8dbweVOXJg+o39b/yzCUjR737zBz3baBfPCpurXNbNzb +GuUlXucKqYu7jJJa2Mh7WbbubIkr8KVbE5/a2FiTLSAllukKYzVLSvO62Nie +F1i+MdQV6nlOZov3svFGZ//27UxX8MyMi5z7wMYZ8URRySwXyG6IMrorxMGZ +65MHL8RvBckV+4lN7hy8OCPUPR3rDEXrY6K/enDwZ+FgwdsQZ9CPSV2f4cXB +pV2Pt7ze4QyOX7n9Q34cnD54caUg2xkSB2YXAvZzMKiLr3bZghN8L4i1jD7B +wdid4pF3DznBM7OM3pIyDkYUHSWPTztC0KGiK7YVHFQAzt3RPkeYq7gV+IXL +wdAAgb7gGkcQZwzN69VwUP+IVs/9KEewF1RUuNPMwSWmOrVNvI7Q2Feys7ef +g+/lAl7nSm0CO5Hb2oeHOEi2ZsoQCw4wtLFrTuY5B6UO6cq9eOEAM/WfT3u/ +5mCln7hmbKEDaOfrlv8zxsFT9t995vUcoPGZxeHkcQ6aduY39Uk6gN3qraDz +lYMbPWodHizYw65Th/6OmOVgkitPAX+LPcw0J+ZIf+eg/HjjeqsSe4j/kRVQ +/4ODaZPz7bln7UHUsFRrx28OBtikS0qE2sO14PrZxUUOuukfUc7dag//AWla +6G0= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07123381404343573}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07123381404343573}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VVsUAHBTpUSGzNO9F1fPkJlc91qLIlOiDJGMKQ0olCiRFw2GhCIN +ZuUJ9xwiQ5Ex0vAyN2guTyGZ0vC88/463+873zln77X2Wnsfun/olkA+Hh4e +eV4env+vcyNdbapJReayGTbZlxmW5n3XZKIshuKhM/GyRlUBDVDysb/MUDoI +yZz9lVygC4ed/hrkHyqAiz7ZxuEFCGIT0ukLgyQEhhtn2xc4watGx9CZwRbQ +bCZf9uT7grXq2Mupwadw+lnc7JvcA7AwaHLh6+BbCFQLPYTZcdC6/nrR3wXT +YDTkM1Cqfh4UXtV99Nf6DRds0HOv5iVYvd/nr2Xr+XEp6X1ou1sepOtZNzi6 +CmJaqoAZXb0IhrN1m6dEhXFl/JJLy4OvQ1JR7GM+WTHM3Ebav7nyF0hnvjuT +cVUCH+2zNRx2KwcZzVsnv5dIoFJbjSHLtxzkWhJjd3AlUOe8GlzYUw5KX/84 +pN4qgX7X7YNNj5WDmsMB34ZRCXzdu1SElV8OBgK/jd8ZrMb5a8b+8mPlsDlC +6r1+92oseTPQ4RZZAadcbM2fzkliE/oWR8dWglz1Izk+XilMvl8Ts3iqEiok +XOb1hKRwaYOYcExaJQw89eaeV5bC9yE7NvnnV4KqcwTD2UYK3XYUsvtbKqFl +U+7SJ5ekMGzHiOhaPi78tp599JAtjfKbBY/OIBfSSqLLfltL49Ttmpx7G7ig +upTntLazNH5+e3NFkg0XHNpXWKQESuOBs4HPxJ24kLOeVuWQKo028YL6c95c +WIf2WQ9eSWNH8sVUoWNcCDfN9+mKl8FOMulGaBUX7PJEZuyTZZDeU9GQUsMF +xrJjpx9dkEHGJY+MG3VceNLnRvTekMF1Lj/O9TVxYe2Blfwjj2Twe21K45Ie +LoyWRJZ8k5PFalbcYM87LnitdhyXr5LF8HDeiXFRAgyONpy41iiLMi6JcUUS +BKx4u0aK3iGLBpmMQXcpAuoq+YE5LItzVwaeVMsTIGVfl6a7KItbTz6b38gk +4MkJVUMrezlktvGq9bII2DD5IzrknRxO9DNvxfgREGWTqXHvixy27o3ecS+A +gIp87WcSc3J40+LcOO8uAmRcfE3rBOUx3bW4PWovAV9ut8/zr5XHLmdnzw3h +BGTEp0VcOiKPAh38YHWSgLeSzJA2YQVsq/wnZL6QAOnQJkVpaQWUVms/OFRM +gMP9bQ/30BRQ855LQM11Amqik7RWGSjgnRWlEnvKCDj76uuYxzYFvK3AR5SS +BOiXNuyeLFDA5noVWnYzASfYzn5y6xQx22h0udYzAmy8r30zsVREeaumyQfP +CRCJ+/ynq4MiLsAOq6CXBFxpTShJ81XEh/wjFhdfE3Dbrv7z0jOKqB7UktL5 +kYCv21QOTw8rYgZzw7vYbwTURh9YJvZeEUt+LvJ+mibg+JU72WsnFLFZpz3b +bpaAla/dG/bwKeGCeaHusu8EqO9O5nmtoYSrzA/Iuv0mwPvQ7Nmeo0roXzHj +ZL+MBLUsS4WxBCV0/ixkFC1IUvE7V74sTQnv08/kFC8nIfrXH08si5Rwyl// +y5QQCRf+9Jas61HCYNrHBl9REnrOd+YWKyqjR37U1SwZEjKqVuu1qivjppK2 +96myJHj2+7W81lPGPPJdbbwcCaMyv97LWysj7+cdAr4KJPDn6WqkhyjjKLfR +dkqZBFbFperjTcp4jrBXC2WSsGHw0e+J+8qocr2+nqFOgiOPwEafp8r4RMRh +Wy/lgC0hw/BBGWP2WVdo/kGC9VF6bNwSGnIn+wZua5LwYFVj4boVNPzalHLX +RYsEpyK3+19FaNj1xatqnPL2h0lifjI0bDvS0SG1loQDynOFFpo0VA+/UWKl +S8JsVdr9BR0aLgpPCXZTjrbRHCcMaejvGx5jr0dCwkFfY4Y5DX/dacu10ich +p7X7Pp8zDc+OKr+QMiRBeVvgeL0rDWu5NW//pFz0ZVEs3JOGE3LDPBOUKyWN +tr8LoOHvfZGJdUYktO3OHW89TMORN9CtbUKC7S9T8WNHaVh4ySXvT8qP0vqM +DeNoqHkmImOA8nDd8riiMzSUMCnsDV9HgrdjUZFXKg03b5Rj3KX8/q151+oM +6r5+cNoSUxImhCLEE65Q73t+/HES5fA8ERNOPg0VDpfld1P+bli6fbaYhqn5 +5y4uZVH58R4pCqykocGk3+dDlE9/O9KlWE19P6jVoZSyyCmJif7bNGxWau0d +pizDtTGxbqFhwN4kV30zEq5ueLf93w4axrb0OHtSZgzHxNU8oKHfy6uHYynf +CJYpDnlCw9LuxrZ8ytp8VV3MfhpqW42y71EmL26aGBmmnidfvXpJeZ3mqHjW +CA0jGAEV85TvNMWbbH5HQ8LRoFSETYKli6LXslEaKuWI/c2g3DlaG9f0hYZp +os1MQ8oOMVuKI6doqL+Lt8yS8lOx8S6dORrKzmd7O1J2Lzk18ekHDR902Fm6 +U37BYkjkLdLwTuxztx2U/R83mmwToON4mOhVX8qfAty9RJfT0TqrUtKP8v7v +U3H3hem4+UzsPW/KrIO7pD6K0/GN9VlxD8qCY8/K+GXomHnEQt6J8oD/Zgu6 +Ih2fFBS9WE+5+HnrgDmDjp2a1e7/jzfCZd1+L3U63vE8mEL/f34Pb/JGa9HR +wX3kuBBlUWt6VpYeHUvX/Kv1jYrHyN0LWreM6fizui+7n/JNkxUtT83omNS8 +q/UW5WjucfevSEfGeF15OmWbP6a/CFvTkV3Xt20/ZamC3fGa9nT0ib3bbkn5 +vdwLaVsnOrodip2V/D8fGU7lu1zpGFNG++cDle/NCaZD+T50XOepRTtGWenf +8uCmnXRs0isPtKT85TCD/+UeKl5LzMKX/L9+goTWykTQ0b6wauwEtd7c3sS2 +GkVR84tvcDOjrOo5s23rcTq+PrPi3BS1fpvtX/6ZepqOZV73glwop7Y5y95M +oeP+EYeVvJS9OB0VXelUPL/tivuLqoeFtZXDAlfp2G+eNTJtTIK++AmdowQd +9TptzvtS9cWTNNuWXUPHgdjCwWmq/h7x7/WsaaBjfIHl/P/1uW92S8JUOx0V +19/uyDGg6nVI9fnuZ9T4BjPaC6h6D3O+dCDhFR35DJVnFShjt/DSwvd0lMke +XJpJ9YeXDXO6IxN0PJ64pf+IDhXP3PuJLvwMLF6rZ66oTcVTmqMQJsjA8+mv +rh2n+g+ZRhDnhBkY8K5v7AXVrzbH57zolmbgmyQd2zQNKl6B+/UttBiori+M +T6l+t6ApOqLtykDLWjGFNjoJc1flThh4MnAqKTX1O42EmVVqqqY+DHzlNCun +QXli2nTvhj0MHP22LPGkEglvGwLmPGMYeDRbpl1KnoRu+1qR08UM/DVU/YmQ +oOrlzj0i5S8GOtT/OnFbnOpHOj0uGZUMLFG+YNMoRsJdiTc51+oYGN6yy6dh +FTX+5yvUbz1kYOTq6L4san/I2ecNb2ep+dyv+dDNR0LWy6C3n34wcJNhz9Mi +XhIyN4cnjC8y8F+uweJRHiqfBqcffF+ugkJeD+UY/xIQ/5NwX6WkgtXicrGb +FgjYl7TkANtaBbsZHsKMSQLYZTfzLl5UweuF7I/dQwQ8p5XlWl1WQZVTlx8E +DRIQfbH02kyuCia4xYQIDFD75YmSK1tKVXDL3D9fDXup/XpbXrZIowrWVXkt +OfqQgD+WZKYlvlHBqJxI1yv3qPOJz9G4w1qqeDDzwhjrBgG3+qJi1fRUUVrC +NzG9hAAXuyPH+4xUUYmxlXe0iIB0o0PH9EEVFep+ZSfnEyC8MvTIhLMqCp4J +C27MIUCgzv/ArkhVfJ4ec6U2mYApcTtftxZVHOcKVKiEEjC0n/Fkb6cqLr37 +i1wVTEBzxw+I7aG+d1nWd4E6z6RFlynfGFDFyz6Bt9up847u25WvFsZUcc3s +49OW3gSEEI93XJVQQ7EM248PHQgY2+y6/f1ONbzsR6YYrSHgfbKvW9gyJiZY +kHqXhrgQMqbF0F3JRJvlxRvUB7gwv3FhfFyUicuEba5W9XJhBX96wh45Jo5P +Bqh2PuKCblRrta82Ez9NeJUNt3EhJpApsXkrE7Wrvl0v53JByvzLY81cJq74 +U+iO7Cku2E5G2n4wVsdP2sGZVjpc+BIgGF4duwaPSB6XUGusoP4npPlOtfyB +PzRO3Gv+fhPEHzJTuZMaKOD62MLWtAwUTlc6GRtr4d8flC/lWZRCtqapqMRu +bSxeVyvY7H8duuUsjKbPr8XQD7R7ecnFwFJoSdMZ0MFPr1K2m18oBBH+ggi/ +eF3sL5uxKn2QD0onlNkeTD0UVqpevfZlLixX86rZ0qmHCXe6AssCrsBajmxl +5A59lLrDd8vZ7RKEjYi32vEYIKtz1bHdeBEmp5NdbbMNcORGQvj1rAzYqNOR +Y6ttiP4nab1p+ufh7rTZz/lHhlgpVrNF8WYKhGjpP/s70AirroVJLas+A5yJ +nX0ey42RM5kTYP8iAaxUZTYJFxjjT/MDI+MV8bAm7uyRFhMT9LhRb27zIhY0 +Ak2b1J6ZoNziPrvWwmgIvBt0svrgOkxf6oGsvYehKa9v55SkKbqUqDPGo8Jg +5sbivE6tKRoqCoeu8guBALWy5TmbWJg7vlrqs8YeiG733st0YqHuz7u9ilJ7 +IC1Q/AG5hYWXF8NsfXj3QGNxVPIDdxaa4iu2yFAQrGbarPrtx8IpTA2QTwyC +DuaH1b6HWfjvp9xbn9/vBo01yjRmLgvdpyVWapfvgimNDGPyKwvrT93ii921 +E4Z60EpimoV6qc5NNm47oTlkYmvELAu7Aw/kKVrvhFTS9qDxDxaGnvxVO6q2 +EzRYPDfr+c1QfSUjg/9jAPjbBtNbpcwwrOtwjXVQAPTt3riyj22G7Zfh11CE +P9wu+vlm9rQZFrzbZPrxpi8Yr4+Yt0syw9b85N+pub5w682XlXkpZijk6i5m +ke4LpNKIiV26Gc5WZorfi/SFm9nNKdcum6HcEsN/dNb7Ql5ygunGCjPke5hJ +nq71gTMRq85n95phjEVamI26N3huUEEzJTZe8rmcac/aDr/7BEVaaWzsVRpK +WcXYDnmBE8/tVNgovMCN+bh8O3xMrIv0XMPGwrfhog+HPSGsa3NllD4bX7aK +VhyN9oSzjseUbluz8dbweVOXJg+o39b/yzCUjR737zBz3baBfPCpurXNbNzb +GuUlXucKqYu7jJJa2Mh7WbbubIkr8KVbE5/a2FiTLSAllukKYzVLSvO62Nie +F1i+MdQV6nlOZov3svFGZ//27UxX8MyMi5z7wMYZ8URRySwXyG6IMrorxMGZ +65MHL8RvBckV+4lN7hy8OCPUPR3rDEXrY6K/enDwZ+FgwdsQZ9CPSV2f4cXB +pV2Pt7ze4QyOX7n9Q34cnD54caUg2xkSB2YXAvZzMKiLr3bZghN8L4i1jD7B +wdid4pF3DznBM7OM3pIyDkYUHSWPTztC0KGiK7YVHFQAzt3RPkeYq7gV+IXL +wdAAgb7gGkcQZwzN69VwUP+IVs/9KEewF1RUuNPMwSWmOrVNvI7Q2Feys7ef +g+/lAl7nSm0CO5Hb2oeHOEi2ZsoQCw4wtLFrTuY5B6UO6cq9eOEAM/WfT3u/ +5mCln7hmbKEDaOfrlv8zxsFT9t995vUcoPGZxeHkcQ6aduY39Uk6gN3qraDz +lYMbPWodHizYw65Th/6OmOVgkitPAX+LPcw0J+ZIf+eg/HjjeqsSe4j/kRVQ +/4ODaZPz7bln7UHUsFRrx28OBtikS0qE2sO14PrZxUUOuukfUc7dag//AWla +6G0= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07123381404343573}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07123381404343573}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994259764021247*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"dcb52c76-3873-4028-9b5c-b982eaef6b83"] +}, Open ]], Cell[CellGroupData[{ @@ -11074,66 +11662,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[448]:=",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], + "In[121]:=",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 448, 489, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347571140808*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0105369026250331`*^-150\\\", \ +RowBox[{\\\"192330073695578600598678251250730514595\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"82\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1532417980825600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 45, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347571140808*^9, 3.994259764079317*^9}, CellLabel-> "During evaluation of \ -In[448]:=",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], +In[121]:=",ExpressionUUID->"3b1f8246-6af7-44c0-8b1f-104069523c93"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 448, 490, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475711508217`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.899054980622105`*^-153\\\", \ +RowBox[{\\\"692388265304082962155241704502629852543\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"85\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6704730972160000000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 46, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347571140808*^9, 3.994259764089242*^9}, CellLabel-> "During evaluation of \ -In[448]:=",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], +In[121]:=",ExpressionUUID->"b08dbc8d-a9a6-4f52-b030-11b9e3f831af"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ -\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ -2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 448, 491, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475711592274`*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.316885567303609`*^-156\\\", \ +RowBox[{\\\"257637673519649270217965438245428568131\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"89\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8303947407360000000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 47, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347571140808*^9, 3.9942597640998983`*^9}, CellLabel-> "During evaluation of \ -In[448]:=",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], +In[121]:=",ExpressionUUID->"cfcd9f07-f98d-48c7-bc96-b030aa023ef2"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 448, 492, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475711683846`*^9}, +during this calculation.\"", 2, 121, 48, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347571140808*^9, 3.994259764110161*^9}, CellLabel-> "During evaluation of \ -In[448]:=",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], +In[121]:=",ExpressionUUID->"78384932-b469-41a5-b4c3-ddd0960a9644"], -Cell[BoxData["10.362747935330763`"], "Output", - CellChangeTimes->{3.991347578228073*^9}, +Cell[BoxData["10.932153634568113`"], "Output", + CellChangeTimes->{3.991347578228073*^9, 3.994259859567257*^9}, CellLabel-> - "Out[448]=",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] + "Out[121]=",ExpressionUUID->"173f8f6a-f1ac-4de6-a424-5da85ddc396b"] }, Open ]], Cell[CellGroupData[{ @@ -11200,68 +11795,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918503106317043`*^9, - 3.9918503148567924`*^9}},ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-\ -2a98ba29b602"], + CellChangeTimes->{{3.9918503106317043`*^9, 3.9918503148567924`*^9}}, + CellLabel-> + "In[122]:=",ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-2a98ba29b602"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 449, - 493, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347578265545*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.839274782198996`*^-216\\\", \ +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 49, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347578265545*^9, 3.994259859622303*^9}, CellLabel-> "During evaluation of \ -In[449]:=",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], +In[122]:=",ExpressionUUID->"fb2bd733-3359-4062-a7e2-035d9ab3205f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 449, - 494, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347578275551*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1602126885561996`*^-221\\\", \ +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 50, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347578265545*^9, 3.994259859633605*^9}, CellLabel-> "During evaluation of \ -In[449]:=",ExpressionUUID->"bbc1c804-e094-2b49-bceb-c837038552fa"], +In[122]:=",ExpressionUUID->"31c20502-f82b-4894-bf08-6486d7b96543"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 449, 495, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475782835484`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.740976432172818`*^-227\\\", \ +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 51, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347578265545*^9, 3.9942598596434937`*^9}, CellLabel-> "During evaluation of \ -In[449]:=",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], +In[122]:=",ExpressionUUID->"eb6d1f78-67f6-428b-a3d1-d971ce53d1a5"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 449, 496, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475782930756`*^9}, +during this calculation.\"", 2, 122, 52, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347578265545*^9, 3.994259859658682*^9}, CellLabel-> "During evaluation of \ -In[449]:=",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], +In[122]:=",ExpressionUUID->"f41a397c-bd0e-483f-aa8d-2ed659701d7f"], -Cell[BoxData["1.4359199941844076`"], "Output", - CellChangeTimes->{3.9913475858902473`*^9}, +Cell[BoxData["0.10640876036589081`"], "Output", + CellChangeTimes->{3.9913475858902473`*^9, 3.994259871381299*^9}, CellLabel-> - "Out[449]=",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] + "Out[122]=",ExpressionUUID->"5c50972d-10a3-4ed3-a0c5-642afb2886d2"] }, Open ]], Cell[CellGroupData[{ @@ -11282,8 +11884,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -11328,68 +11929,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850318596199*^9, - 3.991850321359722*^9}},ExpressionUUID->"edfdd675-c60b-304e-9e16-\ -68452b971319"], + CellChangeTimes->{{3.991850318596199*^9, 3.991850321359722*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"edfdd675-c60b-304e-9e16-68452b971319"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 450, - 497, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475859272156`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.839274782198996`*^-216\\\", \ +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 123, + 53, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913475859272156`*^9, 3.994259871444804*^9}, CellLabel-> "During evaluation of \ -In[450]:=",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], +In[123]:=",ExpressionUUID->"82c0482f-eea1-46ff-9049-a8a44ed7030d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 450, - 498, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347585937319*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1602126885561996`*^-221\\\", \ +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 123, + 54, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913475859272156`*^9, 3.9942598714562407`*^9}, CellLabel-> "During evaluation of \ -In[450]:=",ExpressionUUID->"7911ebc5-127d-5841-a246-fcff3e2e3d7f"], +In[123]:=",ExpressionUUID->"64e7ceaf-b5c1-4b3f-9f16-147ea5e8a24d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 450, 499, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475859463177`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.740976432172818`*^-227\\\", \ +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 123, + 55, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913475859272156`*^9, 3.994259871467259*^9}, CellLabel-> "During evaluation of \ -In[450]:=",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], +In[123]:=",ExpressionUUID->"ed5ed810-155c-4c66-b378-946e498aa198"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 450, 500, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475859543304`*^9}, +during this calculation.\"", 2, 123, 56, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913475859272156`*^9, 3.994259871479254*^9}, CellLabel-> "During evaluation of \ -In[450]:=",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], +In[123]:=",ExpressionUUID->"999bb3f8-65ca-40a2-bab0-59e620c3d3ab"], -Cell[BoxData["5.09241659576143`"], "Output", - CellChangeTimes->{3.9913475931276417`*^9}, +Cell[BoxData["31.11690827397669`"], "Output", + CellChangeTimes->{3.9913475931276417`*^9, 3.9942598821455097`*^9}, CellLabel-> - "Out[450]=",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] + "Out[123]=",ExpressionUUID->"0ee96417-6835-42a5-b51d-18ec452976d8"] }, Open ]], Cell[CellGroupData[{ @@ -11410,8 +12018,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -11456,68 +12063,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850325611994*^9, - 3.991850328926569*^9}},ExpressionUUID->"d0469d46-2e74-494a-be85-\ -b41cb2f3fa92"], + CellChangeTimes->{{3.991850325611994*^9, 3.991850328926569*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"d0469d46-2e74-494a-be85-b41cb2f3fa92"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 451, - 501, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134759316485*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.839274782198996`*^-216\\\", \ +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 124, + 57, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99134759316485*^9, 3.994259882206661*^9}, CellLabel-> "During evaluation of \ -In[451]:=",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], +In[124]:=",ExpressionUUID->"48d75006-9d88-48dc-bcec-24f3b83c7af9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 451, - 502, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347593173849*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1602126885561996`*^-221\\\", \ +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 124, + 58, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99134759316485*^9, 3.994259882216156*^9}, CellLabel-> "During evaluation of \ -In[451]:=",ExpressionUUID->"05cc4b97-7653-f04b-8664-f56b3128e201"], +In[124]:=",ExpressionUUID->"1476e88f-01e3-4610-ab9c-f4512ec767f2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 451, 503, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347593182852*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.740976432172818`*^-227\\\", \ +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 124, + 59, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99134759316485*^9, 3.99425988222824*^9}, CellLabel-> "During evaluation of \ -In[451]:=",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], +In[124]:=",ExpressionUUID->"f9b66934-6309-4456-acc5-f4bec908da66"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 451, 504, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475931908703`*^9}, +during this calculation.\"", 2, 124, 60, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99134759316485*^9, 3.99425988223801*^9}, CellLabel-> "During evaluation of \ -In[451]:=",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], +In[124]:=",ExpressionUUID->"d29f4056-6a74-45e9-a9ee-9ed5b4fe393e"], -Cell[BoxData["16.684462799943017`"], "Output", - CellChangeTimes->{3.9913475973006153`*^9}, +Cell[BoxData["3.9020907154891096`"], "Output", + CellChangeTimes->{3.9913475973006153`*^9, 3.99425989144293*^9}, CellLabel-> - "Out[451]=",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] + "Out[124]=",ExpressionUUID->"73aeb9a0-7c13-4430-92b7-32bca17191fc"] }, Open ]], Cell[CellGroupData[{ @@ -11526,22 +12140,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.99185033265069*^9, - 3.9918503366548977`*^9}},ExpressionUUID->"58b5e243-0972-1946-bd17-\ -aca0f3e8a35b"], - -Cell[BoxData["0.15578016747845222`"], "Output", - CellChangeTimes->{3.991347597341627*^9}, + CellChangeTimes->{{3.99185033265069*^9, 3.9918503366548977`*^9}}, CellLabel-> - "Out[452]=",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] + "In[125]:=",ExpressionUUID->"58b5e243-0972-1946-bd17-aca0f3e8a35b"], + +Cell[BoxData["0.009656738768918404`"], "Output", + CellChangeTimes->{3.991347597341627*^9, 3.994259891499318*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"7ac3bec8-c7e8-4f1e-be86-d00632ad90d4"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918503408077297`*^9, 3.99185034363356*^9}, - 3.991924645514969*^9},ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-\ -a3711ba632a4"], + 3.991924645514969*^9}, + CellLabel-> + "In[126]:=",ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-a3711ba632a4"], Cell[CellGroupData[{ @@ -11564,12 +12179,12 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[454]:=",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], + "In[127]:=",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], -Cell[BoxData["12.368532070745184`"], "Output", - CellChangeTimes->{3.991347597372614*^9}, +Cell[BoxData["11.37853269662116`"], "Output", + CellChangeTimes->{3.991347597372614*^9, 3.9942598915210342`*^9}, CellLabel-> - "Out[454]=",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] + "Out[127]=",ExpressionUUID->"9624f9b8-2287-48f4-9d88-2b6ee3ef19a5"] }, Open ]], Cell[CellGroupData[{ @@ -11579,12 +12194,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[456]:=",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], + "In[128]:=",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], -Cell[BoxData["1.0665924029125342`"], "Output", - CellChangeTimes->{3.991347597428034*^9}, +Cell[BoxData["1.9253595057512787`"], "Output", + CellChangeTimes->{3.991347597428034*^9, 3.994259891535253*^9}, CellLabel-> - "Out[456]=",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] + "Out[128]=",ExpressionUUID->"2757d953-d094-40d9-bc4f-0a31de4fc287"] }, Open ]], Cell[CellGroupData[{ @@ -11594,12 +12209,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[459]:=",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], + "In[129]:=",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], -Cell[BoxData["13.192182341836848`"], "Output", - CellChangeTimes->{3.9913475974971066`*^9}, +Cell[BoxData["21.907766088941283`"], "Output", + CellChangeTimes->{3.9913475974971066`*^9, 3.9942598915499487`*^9}, CellLabel-> - "Out[459]=",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] + "Out[129]=",ExpressionUUID->"2bdf21cb-e0db-419b-80b5-ebe16a881f6f"] }, Open ]], Cell[CellGroupData[{ @@ -11789,12 +12404,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[460]:=",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], + "In[130]:=",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], -Cell[BoxData["0.038908834568544604`"], "Output", - CellChangeTimes->{3.991347597528105*^9}, +Cell[BoxData["0.00667489744371596`"], "Output", + CellChangeTimes->{3.991347597528105*^9, 3.994259891567279*^9}, CellLabel-> - "Out[460]=",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] + "Out[130]=",ExpressionUUID->"84861c9d-fa48-49b0-ab4f-2984b572f07e"] }, Open ]], Cell[CellGroupData[{ @@ -11808,12 +12423,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[461]:=",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], + "In[131]:=",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], -Cell[BoxData["4.492838724335521`"], "Output", - CellChangeTimes->{3.9913475976441536`*^9}, +Cell[BoxData["10.847324740527485`"], "Output", + CellChangeTimes->{3.9913475976441536`*^9, 3.9942598917739553`*^9}, CellLabel-> - "Out[461]=",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] + "Out[131]=",ExpressionUUID->"d36a21ff-4117-4637-9a93-b97a5ad324d4"] }, Open ]], Cell[CellGroupData[{ @@ -12005,12 +12620,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[462]:=",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], + "In[132]:=",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], -Cell[BoxData["0.012544276227890849`"], "Output", - CellChangeTimes->{3.991347597671173*^9}, +Cell[BoxData["0.04347894752279158`"], "Output", + CellChangeTimes->{3.991347597671173*^9, 3.994259891791621*^9}, CellLabel-> - "Out[462]=",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] + "Out[132]=",ExpressionUUID->"04f5c1cd-c7bc-4b4e-b818-26f52a9da845"] }, Open ]], Cell[CellGroupData[{ @@ -12024,12 +12639,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[463]:=",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], + "In[133]:=",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], -Cell[BoxData["7.912653285153153`"], "Output", - CellChangeTimes->{3.9913475977705975`*^9}, +Cell[BoxData["4.2501614645759105`"], "Output", + CellChangeTimes->{3.9913475977705975`*^9, 3.994259891998667*^9}, CellLabel-> - "Out[463]=",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] + "Out[133]=",ExpressionUUID->"72038324-c22b-4bbf-96a5-13d69e4c0f09"] }, Open ]], Cell[CellGroupData[{ @@ -12122,12 +12737,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[464]:=",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], + "In[134]:=",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.9913475977856007`*^9}, +Cell[BoxData["0.08457834250906257`"], "Output", + CellChangeTimes->{3.9913475977856007`*^9, 3.9942598920121317`*^9}, CellLabel-> - "Out[464]=",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] + "Out[134]=",ExpressionUUID->"baaec130-434f-4049-9a58-f89d2d902f2d"] }, Open ]], Cell[CellGroupData[{ @@ -12217,12 +12832,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[465]:=",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], + "In[135]:=",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.991347597813669*^9}, +Cell[BoxData["0.9154216574909375`"], "Output", + CellChangeTimes->{3.991347597813669*^9, 3.994259892027273*^9}, CellLabel-> - "Out[465]=",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] + "Out[135]=",ExpressionUUID->"f11d8e1e-f196-4f7f-863e-3f0d6875de56"] }, Open ]], Cell[CellGroupData[{ @@ -12345,12 +12960,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[466]:=",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], + "In[136]:=",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913475978426323`*^9}, +Cell[BoxData["0.07742484648748227`"], "Output", + CellChangeTimes->{3.9913475978426323`*^9, 3.994259892042179*^9}, CellLabel-> - "Out[466]=",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] + "Out[136]=",ExpressionUUID->"b54d7940-774e-4cb9-8440-a5798e396a9c"] }, Open ]], Cell[CellGroupData[{ @@ -12412,68 +13027,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918503626529236`*^9},ExpressionUUID->"ba508068-6b78-254c-87d6-\ -cf1adc0753dd"], + CellChangeTimes->{3.9918503626529236`*^9}, + CellLabel-> + "In[137]:=",ExpressionUUID->"ba508068-6b78-254c-87d6-cf1adc0753dd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.6476402424150632`*^-194\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 467, - 505, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347597872814*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.9498056700061646`*^-212\\\", \ +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 137, + 61, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347597872814*^9, 3.994259892061296*^9}, CellLabel-> "During evaluation of \ -In[467]:=",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], +In[137]:=",ExpressionUUID->"6330e63e-8008-44ff-beb4-1d8d43c7f7a7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2411289608803614`*^-198\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 467, - 506, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475978828144`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.7753207813199458`*^-217\\\", \ +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 137, + 62, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347597872814*^9, 3.994259892071578*^9}, CellLabel-> "During evaluation of \ -In[467]:=",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], +In[137]:=",ExpressionUUID->"3f480548-6e22-4b19-a06c-f42ce589ce3b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.349134949982097`*^-203\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 467, - 507, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347597891815*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.616450257105108`*^-222\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 137, + 63, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347597872814*^9, 3.994259892082048*^9}, CellLabel-> "During evaluation of \ -In[467]:=",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], +In[137]:=",ExpressionUUID->"f5e97d35-d357-4a5f-b02a-2be23418523d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 467, 508, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347597900812*^9}, +during this calculation.\"", 2, 137, 64, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347597872814*^9, 3.9942598920923033`*^9}, CellLabel-> "During evaluation of \ -In[467]:=",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], +In[137]:=",ExpressionUUID->"d7ce355f-da86-4b22-b4e7-a1ad8039c5ce"], -Cell[BoxData["4.492838724335523`"], "Output", - CellChangeTimes->{3.9913476018505497`*^9}, +Cell[BoxData["10.847324740527482`"], "Output", + CellChangeTimes->{3.9913476018505497`*^9, 3.99425990015298*^9}, CellLabel-> - "Out[467]=",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] + "Out[137]=",ExpressionUUID->"b8ceb846-ec42-4763-9df2-0d3847818939"] }, Open ]], Cell[CellGroupData[{ @@ -12535,68 +13157,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918503657638073`*^9},ExpressionUUID->"842e33e4-ae06-f746-ab8b-\ -97489285cc9c"], + CellChangeTimes->{3.9918503657638073`*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"842e33e4-ae06-f746-ab8b-97489285cc9c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.6476402424150632`*^-194\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 468, - 509, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913476018885117`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.9498056700061646`*^-212\\\", \ +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 65, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913476018885117`*^9, 3.994259900206892*^9}, CellLabel-> "During evaluation of \ -In[468]:=",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], +In[138]:=",ExpressionUUID->"09905b38-3979-461a-88bc-2eee79a98310"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2411289608803614`*^-198\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 468, - 510, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134760189851*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.7753207813199458`*^-217\\\", \ +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 66, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913476018885117`*^9, 3.99425990021693*^9}, CellLabel-> "During evaluation of \ -In[468]:=",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], +In[138]:=",ExpressionUUID->"9dfcb1a2-f025-4f0a-b139-d41a267233ea"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.349134949982097`*^-203\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 468, - 511, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913476019065113`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.616450257105108`*^-222\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 67, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913476018885117`*^9, 3.9942599002269583`*^9}, CellLabel-> "During evaluation of \ -In[468]:=",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], +In[138]:=",ExpressionUUID->"eb130156-eb35-4f69-afef-dde5b5a85f64"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 468, 512, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913476019158936`*^9}, +during this calculation.\"", 2, 138, 68, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913476018885117`*^9, 3.994259900237177*^9}, CellLabel-> "During evaluation of \ -In[468]:=",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], +In[138]:=",ExpressionUUID->"48b40f99-f915-422e-acf5-abe8b418abbd"], -Cell[BoxData["7.912653285153152`"], "Output", - CellChangeTimes->{3.9913476058912296`*^9}, +Cell[BoxData["4.250161464575911`"], "Output", + CellChangeTimes->{3.9913476058912296`*^9, 3.9942599082221127`*^9}, CellLabel-> - "Out[468]=",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] + "Out[138]=",ExpressionUUID->"f3b7d1e4-1077-4519-bacc-56fcd7375bc1"] }, Open ]], Cell[CellGroupData[{ @@ -12654,93 +13283,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991850369070572*^9},ExpressionUUID->"b2e314f8-a6f0-6942-a94c-\ -5ac1cacd7190"], + CellChangeTimes->{3.991850369070572*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"b2e314f8-a6f0-6942-a94c-5ac1cacd7190"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK -niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB -QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL -uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV -HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh -GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM -JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI -Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 -YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud -1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 -20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB -bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y -waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D -6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX -YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy -hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj -u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb -bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO -F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu -bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa -Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K -G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl -zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW -Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm -WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 -Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 -5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK -Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez -bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd -bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x -1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl -qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc -oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp -0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb -/FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN -BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn -27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj -O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy -IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO -3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ -+ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC -DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE -1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A -rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 -yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN -C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy -yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP -r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz -MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI -9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl -Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 -80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt -M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 -kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo -7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg -sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W -+uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU -UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n -t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE -z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV -BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH -ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 -TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th -/o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl -lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH -dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP -sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs -t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz -Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE -mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m -ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t -+1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq -k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg -c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu -wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX -wTw= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk4VlsXAHCZSlTmMZmVqVwzyV7mWRrMFK/3HEIyXVcUqaRSirjqZroh +MiSzkK+kEopQmkyFDpkdVLfybX+c5zy/Z5+99tprn7VlGMf2E6wsLCwUftbe +oS93bq/rfmnUkviyNvMPChnN5GszzErRRX3i05qHc3TS5M2a0LKzIpGF7ch8 +wcmj+QQtDPOhbOyKqLjHHGadSObd9pAc7AtPRR/GFb9Co8b+33Kx73eHZv/U +eI0Et/X238KefN9+4njjW2QQ6r+5AFt8TM5j2fQjKkU7MguxbWdP6Id3DiGD +ZP74Yuzmn5PcUcUjKIax/UEZ9pt4kZja4M8ovYV0rMCe4TSbpDXGkFVNt0EN +NuelEDfNlXFkYkKcuI+9jS+rLbSRQkmh8kLN2A4Sy7dnTKdQ53tZuzZsMldW +WG3DDPLewZh8gR2nsDchsHMWWaPOoV7styJ9f0QUzyPPFenuYWyme8CRa5cW +kHMFd8cX7LlMln8rgxeROCkjOYu9QVaNd15jCRV8e/H0N3Ya87Elr9Ay8qKZ +29ZrUEi60C1u18oy6lbc/mILtp7quZmjjd/QxTA1dVlsf52hzknTn2g125TH +FpuO+pN9o+IvdMtMR9IZ+1Qjt6HSht+opu5ggg/2ddAr8etcRWyHhDyOYzML +2szCitfBkFbR1jLs4qfXhuMlWOF/Hf+NN2DPfTl0IuUSK+jOxWx4jn1Ceanq +XjAbJDiw7hvHTiuXkZvV4IDcaOVv8poUet891fw7jwMS08ZitLGlF+rcNwtx +wjmFl84W2KVaDqlqK5xwSW0H/xHs1vvR64IaN8CmU2w5ldhLj3uHKFMe8Loe +yeesRSF+Ox7emGYeoN04xo5iq/eZwSb9TXCjgEfqHHbAaE3uHzs3Q1NVwtM6 +7BDWTvU9PLxg8Xz7ZyltCo3J3p1PWOaDf/49fIBNB9eHbOfq0uQHK53UZBls +1pJxGdFQfijbaqwO2NKaUvuLv/JD9oxgYSy2u+nVypfDAlBilclg0aVQl29Y +uEiHEGwpO8InokehwcLkJO8NwmCw/kz1buypr8V5d8yF4ZGzZLM39saIz727 +HwpD+tY37KXYZmcPannXiMCKt4+3pT6FGvJ1lopyxEAsXNkxxYBC+WM/Ig0i +JOG0+xahsD0UsnJKHAwvk4Se96+NcrGnWgUsysYlwX+CveUltla+qpC02zbg +5c3uUzXC9WQcquIwkoJ7e54qT2MvzA7/RZ2RhuCPe27GAoUEjppVV9nLwlct +vyujphQaz9/o7xggC4759LikGYXqP3ZLTJ+Thfz65QwXbE87rzOKD2VB+rg7 +Zyd2vkrk/hsactAgXip43xyvP1k4FysiD0J1/St5lhQ66MetZjOiAKrJgR+a +bCmEIp00XH4pgCRLABeLHYWUE3J0mWKKcFM/9LIpNkuepknsPkV41XszowO7 +bNDDpfKRIlhHBVcP2eP+dC6NF7+1HcLSQ3lFHXF+ZvZvJhlK0EFaOj0/SKG8 +AxkfVmKV4PFdK3MRJwolM0aG2W8qgYocI4nAZp768+u2XiX48s+QGJszhfia +slgOmCpDopQAmLjg/0dzRrlRTgUaMrsrut0oJCF7JS5pVBW2jrjv3HmYQk0X +aaXvrGqg1bIhMBnbc9Gtj5RRAyum2KZZ7OxWeSWTQ2ow30LEV3hTSNavoedb +vxrsnG5W3s3A+y0dUyA7doJukmC8D0EhSYltpLSbOggOhhj/CKSQakEEz39I +AwR4PXd7RlOIwTyzpOagAbmGIzUvsK/LpQ56e2rAvbHB8yiGQmy3yu89jdKA ++1YWevIncL9lTx5MrdAAm5v9TfMn8X163TtLSU4TDltleGXF4/NNstvpyqkF +RuZKrLoXKPRvmLxjTac2FLhRP8NvUKg7EumeLdAHrs1B4X6PKCRz6LWDV9Ae +6Oep/LgyQyFitfau5HEAl0KqVV5qAol8rV8vwjCB7/y69mluEyhC0/BjqjLu +ycXvQnT6BGJM/2wTmDQH+ozNaMabCVRmEr4+p8sSntTsfd4jO4ny6YBHpWnW +8HMucVfhsUn0zVj0RWucLby7d6xy6/NJNMDCNj/iYw/rF5L6ZbZ/RcFbj12N +l9sLqnP7ZKzOfkV3j7Q9TE9whFaDU8Vqs19R9KLYisqRfbBUu1Li6jqFlmws +nJ8d3g/3U4IOc3RPIX2PFOOxfQcgRv2v9eK206hHLCugVfMgMLqHb1e2TCPx +22eainY4geLB+ps21jOofljZzmGTM/gqeDVZdsygbX1zfpHTzlBn6zQU4jCL +NNNTSvOGXUDFT7wkengWZbEv7kx97Aon02aCJrXnUK3xrvcJ991gQatAqOf0 +HLque5HvZ7E7JO6IfuXXNYe6PhSc07zkgdfLVjkpMo9q7DPlQ055glWJxdNf +xDyaP3qAJZjpBfIo1FyrfB4tWSj5z5gegpsX375PXJ5HRdPvvoXrHIYL3Hp9 +300WkOu/Bb5ePN4wyK0ytHR+AVVV2h5mS/QGPYkQor9nAelL9Hy/8N0bun+9 +Ho8UWkRyw37vXx3xgVfLKunCBxfRKHfg3szPPpAHf7j8lbaIupMdfC2dGMCi +Wx5b37mI0qJyuP/sZgDXcXHpZXYaNTWvfve19oXfbyqSh3RotMUTEjUbfOGt +9m9+Y28aSQs+69ra5AslXAcWKGz1TntRzmZfKFNwCrrqQ6P9hh533j7yBedd +s7sGGTRK2xrZcfK5L3w5fnghgqCR+EDJlra3vpDanmh7JYBG8odErnuu+EJ8 ++71LkRE00veeKUrQYoLgX9NHuBJpdPvGXLiDDhM2f5qru4wt2LtgJKLHhDO/ +XxfynafRjPlKX9FuJoiJLgWJXqDx/cWyrtOECbSy60WZJBptXuFz49/HBPMK +kkX2Co1GL2tz5Rxlwk5uet+Hv2mU3HjiSP1tJrx1ehSlUkCjoxoZ+lFFTDhg +tHwhHdvuTgWXXjETatmsDVexN2aM36krY8I6Y66zr27TKCHMcbK2mglRO1B2 +aBGNTijJB9a04HgC6+ZySmgUkNERVDnIhHaezJzqChpZbx43DBtmwj95vHX8 +lTTakcCySeMTE+66Pjkagj0epl1WMcaE07O19cpVNPJxyJm+N8WEhGStx/9U +08iVIzy4/AfO/0Vatn8djSzDxUNKhQlYVc3ia2yiUUvOOZtUUQIu37b9IvCA +RoadC/JR4gQ0npO3DsJWV+h4Z7qNAN5a4QqJZhqJ9ceYflAgQKzFmvfP/9Ho +q8GA8EZtApDNtd98LTS6wpr7wO8AAQ9MBLXop3j/u3iu2zsRYPhCOszoGY3O +ekSFaboQoFKbaHAeO6racfuqOwH/Te8KEG/D+ZPrUv5mEKAYc9JU/zmNNNsZ +zCehBLTfmerx7qBRf4oCt9xVAmROO/G6dNHoLtrkT6UQYKv6OCkZ++w03Vp2 +jQAd74icJ9ga1q2xehkEJHyPvaLRjc+PxXfBPpsA9jjLlPWvaGRxLPddVCkB +co+CBbN7aCQpeV7H6C4BGufVeLuw6fZj19juETAZWJa3in1LEdknVxFwQ7on +5XAvjX4NDDzMayCgeWLggngfjartJIpethFQzLzz6cRrGiX9YOVIayegdge3 +SyE2o2jSx62TgGONjYxX2LzsDRKjXQRcn59B8m9oFNToeuX7GwKKKijeJ9hy +yn9Hyo8RcDujbv1iP41+9J/snRgnQN2Nb0b4LY26Ewj1coqA+RGXQAPs2BGt +Sf0pXA/2dOVT2O+v93rtXSRgxVi3kfMdjVLX85lHryPB1vKKNMt73L8LAx4R +bCQUsgS+lsb+MlAcFsxBgtWFOU5jbMNqs1wGFwl7PwwNxWGPe0f9Z8NHgsJY +vv8KNq+dOb+5AAkdz+RYBT/QaLcuvxISIuFC41ZRdeyrm0qdNcVIeDJE3ifX +xhuGKiRkSGhbfdb9ApssKG0TkiPhxs3T9uNr3189PrRFgYT93y9b/MYeJwU2 +sSuR8NLwbJnqRzwuYOk/pU6Ch3uowxnsht8CceMaJKg90yzLwB6bGE4f1iJh +u7j8+RJsg4fRj/v0SOidja18hT0adHfbAyBh8ljtW5EB3O+uMdp1JiS8CT4l +ugNb39TKrsKMBP9Zjz5d7GSxT8cLrHA9du1+6IRdz15+NceGBAce/Tlf7M+z +MYU37EgIuG2YGYqt91To9WVHEhIDbPyTsBkVn74m7iehIn7v+Qzsy5nlrKcP +kmCh7iifh/0pzFo90pWEaNvd3fXYmw4JW4a4k/AhQma4ZS2e9WevAE+8v/If +gZ1r86VOJh3yxvWcjl0ZWMtno80tVwYJ8bGKK2Nr8ZaE7+9nkiCn3xA2vRZv +5HOXHUlCX75eAL0Wr/PeuIU/CVWM3IEfa/nVnfwFASR8UZvrZBnE8W/ZCO4O +IiHpg6IeJ3b9ZREV7WASyt1NpbixP0WNGu8KIeFotdnpLdg8zApXpTASurmV +fQSwdffGHpOLIGEia6FRGJthYHtOMpKEx4+yUsWwLymIZolEkeBLKY9JYNfy +jlXxReP5mTeqJLFH/qto5z5BgsDZiV/b1uJ/iR3hiCVB1Uu8VQpbp8f222oc +CVLrVDmlsf8PVDPuyA== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -12754,105 +13384,106 @@ wTw= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK -niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB -QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL -uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV -HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh -GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM -JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI -Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 -YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud -1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 -20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB -bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y -waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D -6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX -YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy -hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj -u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb -bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO -F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu -bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa -Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K -G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl -zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW -Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm -WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 -Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 -5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK -Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez -bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd -bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x -1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl -qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc -oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp -0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb -/FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN -BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn -27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj -O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy -IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO -3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ -+ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC -DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE -1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A -rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 -yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN -C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy -yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP -r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz -MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI -9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl -Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 -80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt -M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 -kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo -7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg -sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W -+uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU -UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n -t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE -z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV -BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH -ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 -TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th -/o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl -lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH -dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP -sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs -t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz -Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE -mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m -ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t -+1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq -k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg -c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu -wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX -wTw= +1:eJwV1Hk4VlsXAHCZSlTmMZmVqVwzyV7mWRrMFK/3HEIyXVcUqaRSirjqZroh +MiSzkK+kEopQmkyFDpkdVLfybX+c5zy/Z5+99tprn7VlGMf2E6wsLCwUftbe +oS93bq/rfmnUkviyNvMPChnN5GszzErRRX3i05qHc3TS5M2a0LKzIpGF7ch8 +wcmj+QQtDPOhbOyKqLjHHGadSObd9pAc7AtPRR/GFb9Co8b+33Kx73eHZv/U +eI0Et/X238KefN9+4njjW2QQ6r+5AFt8TM5j2fQjKkU7MguxbWdP6Id3DiGD +ZP74Yuzmn5PcUcUjKIax/UEZ9pt4kZja4M8ovYV0rMCe4TSbpDXGkFVNt0EN +NuelEDfNlXFkYkKcuI+9jS+rLbSRQkmh8kLN2A4Sy7dnTKdQ53tZuzZsMldW +WG3DDPLewZh8gR2nsDchsHMWWaPOoV7styJ9f0QUzyPPFenuYWyme8CRa5cW +kHMFd8cX7LlMln8rgxeROCkjOYu9QVaNd15jCRV8e/H0N3Ya87Elr9Ay8qKZ +29ZrUEi60C1u18oy6lbc/mILtp7quZmjjd/QxTA1dVlsf52hzknTn2g125TH +FpuO+pN9o+IvdMtMR9IZ+1Qjt6HSht+opu5ggg/2ddAr8etcRWyHhDyOYzML +2szCitfBkFbR1jLs4qfXhuMlWOF/Hf+NN2DPfTl0IuUSK+jOxWx4jn1Ceanq +XjAbJDiw7hvHTiuXkZvV4IDcaOVv8poUet891fw7jwMS08ZitLGlF+rcNwtx +wjmFl84W2KVaDqlqK5xwSW0H/xHs1vvR64IaN8CmU2w5ldhLj3uHKFMe8Loe +yeesRSF+Ox7emGYeoN04xo5iq/eZwSb9TXCjgEfqHHbAaE3uHzs3Q1NVwtM6 +7BDWTvU9PLxg8Xz7ZyltCo3J3p1PWOaDf/49fIBNB9eHbOfq0uQHK53UZBls +1pJxGdFQfijbaqwO2NKaUvuLv/JD9oxgYSy2u+nVypfDAlBilclg0aVQl29Y +uEiHEGwpO8InokehwcLkJO8NwmCw/kz1buypr8V5d8yF4ZGzZLM39saIz727 +HwpD+tY37KXYZmcPannXiMCKt4+3pT6FGvJ1lopyxEAsXNkxxYBC+WM/Ig0i +JOG0+xahsD0UsnJKHAwvk4Se96+NcrGnWgUsysYlwX+CveUltla+qpC02zbg +5c3uUzXC9WQcquIwkoJ7e54qT2MvzA7/RZ2RhuCPe27GAoUEjppVV9nLwlct +vyujphQaz9/o7xggC4759LikGYXqP3ZLTJ+Thfz65QwXbE87rzOKD2VB+rg7 +Zyd2vkrk/hsactAgXip43xyvP1k4FysiD0J1/St5lhQ66MetZjOiAKrJgR+a +bCmEIp00XH4pgCRLABeLHYWUE3J0mWKKcFM/9LIpNkuepknsPkV41XszowO7 +bNDDpfKRIlhHBVcP2eP+dC6NF7+1HcLSQ3lFHXF+ZvZvJhlK0EFaOj0/SKG8 +AxkfVmKV4PFdK3MRJwolM0aG2W8qgYocI4nAZp768+u2XiX48s+QGJszhfia +slgOmCpDopQAmLjg/0dzRrlRTgUaMrsrut0oJCF7JS5pVBW2jrjv3HmYQk0X +aaXvrGqg1bIhMBnbc9Gtj5RRAyum2KZZ7OxWeSWTQ2ow30LEV3hTSNavoedb +vxrsnG5W3s3A+y0dUyA7doJukmC8D0EhSYltpLSbOggOhhj/CKSQakEEz39I +AwR4PXd7RlOIwTyzpOagAbmGIzUvsK/LpQ56e2rAvbHB8yiGQmy3yu89jdKA ++1YWevIncL9lTx5MrdAAm5v9TfMn8X163TtLSU4TDltleGXF4/NNstvpyqkF +RuZKrLoXKPRvmLxjTac2FLhRP8NvUKg7EumeLdAHrs1B4X6PKCRz6LWDV9Ae +6Oep/LgyQyFitfau5HEAl0KqVV5qAol8rV8vwjCB7/y69mluEyhC0/BjqjLu +ycXvQnT6BGJM/2wTmDQH+ozNaMabCVRmEr4+p8sSntTsfd4jO4ny6YBHpWnW +8HMucVfhsUn0zVj0RWucLby7d6xy6/NJNMDCNj/iYw/rF5L6ZbZ/RcFbj12N +l9sLqnP7ZKzOfkV3j7Q9TE9whFaDU8Vqs19R9KLYisqRfbBUu1Li6jqFlmws +nJ8d3g/3U4IOc3RPIX2PFOOxfQcgRv2v9eK206hHLCugVfMgMLqHb1e2TCPx +22eainY4geLB+ps21jOofljZzmGTM/gqeDVZdsygbX1zfpHTzlBn6zQU4jCL +NNNTSvOGXUDFT7wkengWZbEv7kx97Aon02aCJrXnUK3xrvcJ991gQatAqOf0 +HLque5HvZ7E7JO6IfuXXNYe6PhSc07zkgdfLVjkpMo9q7DPlQ055glWJxdNf +xDyaP3qAJZjpBfIo1FyrfB4tWSj5z5gegpsX375PXJ5HRdPvvoXrHIYL3Hp9 +300WkOu/Bb5ePN4wyK0ytHR+AVVV2h5mS/QGPYkQor9nAelL9Hy/8N0bun+9 +Ho8UWkRyw37vXx3xgVfLKunCBxfRKHfg3szPPpAHf7j8lbaIupMdfC2dGMCi +Wx5b37mI0qJyuP/sZgDXcXHpZXYaNTWvfve19oXfbyqSh3RotMUTEjUbfOGt +9m9+Y28aSQs+69ra5AslXAcWKGz1TntRzmZfKFNwCrrqQ6P9hh533j7yBedd +s7sGGTRK2xrZcfK5L3w5fnghgqCR+EDJlra3vpDanmh7JYBG8odErnuu+EJ8 ++71LkRE00veeKUrQYoLgX9NHuBJpdPvGXLiDDhM2f5qru4wt2LtgJKLHhDO/ +XxfynafRjPlKX9FuJoiJLgWJXqDx/cWyrtOECbSy60WZJBptXuFz49/HBPMK +kkX2Co1GL2tz5Rxlwk5uet+Hv2mU3HjiSP1tJrx1ehSlUkCjoxoZ+lFFTDhg +tHwhHdvuTgWXXjETatmsDVexN2aM36krY8I6Y66zr27TKCHMcbK2mglRO1B2 +aBGNTijJB9a04HgC6+ZySmgUkNERVDnIhHaezJzqChpZbx43DBtmwj95vHX8 +lTTakcCySeMTE+66Pjkagj0epl1WMcaE07O19cpVNPJxyJm+N8WEhGStx/9U +08iVIzy4/AfO/0Vatn8djSzDxUNKhQlYVc3ia2yiUUvOOZtUUQIu37b9IvCA +RoadC/JR4gQ0npO3DsJWV+h4Z7qNAN5a4QqJZhqJ9ceYflAgQKzFmvfP/9Ho +q8GA8EZtApDNtd98LTS6wpr7wO8AAQ9MBLXop3j/u3iu2zsRYPhCOszoGY3O +ekSFaboQoFKbaHAeO6racfuqOwH/Te8KEG/D+ZPrUv5mEKAYc9JU/zmNNNsZ +zCehBLTfmerx7qBRf4oCt9xVAmROO/G6dNHoLtrkT6UQYKv6OCkZ++w03Vp2 +jQAd74icJ9ga1q2xehkEJHyPvaLRjc+PxXfBPpsA9jjLlPWvaGRxLPddVCkB +co+CBbN7aCQpeV7H6C4BGufVeLuw6fZj19juETAZWJa3in1LEdknVxFwQ7on +5XAvjX4NDDzMayCgeWLggngfjartJIpethFQzLzz6cRrGiX9YOVIayegdge3 +SyE2o2jSx62TgGONjYxX2LzsDRKjXQRcn59B8m9oFNToeuX7GwKKKijeJ9hy +yn9Hyo8RcDujbv1iP41+9J/snRgnQN2Nb0b4LY26Ewj1coqA+RGXQAPs2BGt +Sf0pXA/2dOVT2O+v93rtXSRgxVi3kfMdjVLX85lHryPB1vKKNMt73L8LAx4R +bCQUsgS+lsb+MlAcFsxBgtWFOU5jbMNqs1wGFwl7PwwNxWGPe0f9Z8NHgsJY +vv8KNq+dOb+5AAkdz+RYBT/QaLcuvxISIuFC41ZRdeyrm0qdNcVIeDJE3ifX +xhuGKiRkSGhbfdb9ApssKG0TkiPhxs3T9uNr3189PrRFgYT93y9b/MYeJwU2 +sSuR8NLwbJnqRzwuYOk/pU6Ch3uowxnsht8CceMaJKg90yzLwB6bGE4f1iJh +u7j8+RJsg4fRj/v0SOidja18hT0adHfbAyBh8ljtW5EB3O+uMdp1JiS8CT4l +ugNb39TKrsKMBP9Zjz5d7GSxT8cLrHA9du1+6IRdz15+NceGBAce/Tlf7M+z +MYU37EgIuG2YGYqt91To9WVHEhIDbPyTsBkVn74m7iehIn7v+Qzsy5nlrKcP +kmCh7iifh/0pzFo90pWEaNvd3fXYmw4JW4a4k/AhQma4ZS2e9WevAE+8v/If +gZ1r86VOJh3yxvWcjl0ZWMtno80tVwYJ8bGKK2Nr8ZaE7+9nkiCn3xA2vRZv +5HOXHUlCX75eAL0Wr/PeuIU/CVWM3IEfa/nVnfwFASR8UZvrZBnE8W/ZCO4O +IiHpg6IeJ3b9ZREV7WASyt1NpbixP0WNGu8KIeFotdnpLdg8zApXpTASurmV +fQSwdffGHpOLIGEia6FRGJthYHtOMpKEx4+yUsWwLymIZolEkeBLKY9JYNfy +jlXxReP5mTeqJLFH/qto5z5BgsDZiV/b1uJ/iR3hiCVB1Uu8VQpbp8f222oc +CVLrVDmlsf8PVDPuyA== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5511670383120075, - 1.7091854080147844`}}, + "PlotRange" -> {{0, 180}, {0.7560561724133026, + 1.3042297593202148`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5511670383120088}, + "AxesOrigin" -> {0, 0.7560561724133043}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -12864,21 +13495,21 @@ wTw= "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5511670383120075, - 1.7091854080147844`}}, + "PlotRange" -> {{0, 180}, {0.7560561724133026, + 1.3042297593202148`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5511670383120088}, + "AxesOrigin" -> {0, 0.7560561724133043}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -12892,103 +13523,104 @@ wTw= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK -niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB -QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL -uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV -HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh -GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM -JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI -Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 -YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud -1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 -20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB -bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y -waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D -6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX -YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy -hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj -u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb -bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO -F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu -bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa -Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K -G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl -zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW -Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm -WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 -Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 -5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK -Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez -bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd -bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x -1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl -qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc -oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp -0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb -/FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN -BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn -27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj -O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy -IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO -3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ -+ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC -DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE -1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A -rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 -yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN -C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy -yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP -r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz -MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI -9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl -Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 -80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt -M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 -kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo -7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg -sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W -+uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU -UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n -t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE -z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV -BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH -ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 -TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th -/o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl -lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH -dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP -sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs -t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz -Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE -mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m -ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t -+1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq -k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg -c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu -wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX -wTw= +1:eJwV1Hk4VlsXAHCZSlTmMZmVqVwzyV7mWRrMFK/3HEIyXVcUqaRSirjqZroh +MiSzkK+kEopQmkyFDpkdVLfybX+c5zy/Z5+99tprn7VlGMf2E6wsLCwUftbe +oS93bq/rfmnUkviyNvMPChnN5GszzErRRX3i05qHc3TS5M2a0LKzIpGF7ch8 +wcmj+QQtDPOhbOyKqLjHHGadSObd9pAc7AtPRR/GFb9Co8b+33Kx73eHZv/U +eI0Et/X238KefN9+4njjW2QQ6r+5AFt8TM5j2fQjKkU7MguxbWdP6Id3DiGD +ZP74Yuzmn5PcUcUjKIax/UEZ9pt4kZja4M8ovYV0rMCe4TSbpDXGkFVNt0EN +NuelEDfNlXFkYkKcuI+9jS+rLbSRQkmh8kLN2A4Sy7dnTKdQ53tZuzZsMldW +WG3DDPLewZh8gR2nsDchsHMWWaPOoV7styJ9f0QUzyPPFenuYWyme8CRa5cW +kHMFd8cX7LlMln8rgxeROCkjOYu9QVaNd15jCRV8e/H0N3Ya87Elr9Ay8qKZ +29ZrUEi60C1u18oy6lbc/mILtp7quZmjjd/QxTA1dVlsf52hzknTn2g125TH +FpuO+pN9o+IvdMtMR9IZ+1Qjt6HSht+opu5ggg/2ddAr8etcRWyHhDyOYzML +2szCitfBkFbR1jLs4qfXhuMlWOF/Hf+NN2DPfTl0IuUSK+jOxWx4jn1Ceanq +XjAbJDiw7hvHTiuXkZvV4IDcaOVv8poUet891fw7jwMS08ZitLGlF+rcNwtx +wjmFl84W2KVaDqlqK5xwSW0H/xHs1vvR64IaN8CmU2w5ldhLj3uHKFMe8Loe +yeesRSF+Ox7emGYeoN04xo5iq/eZwSb9TXCjgEfqHHbAaE3uHzs3Q1NVwtM6 +7BDWTvU9PLxg8Xz7ZyltCo3J3p1PWOaDf/49fIBNB9eHbOfq0uQHK53UZBls +1pJxGdFQfijbaqwO2NKaUvuLv/JD9oxgYSy2u+nVypfDAlBilclg0aVQl29Y +uEiHEGwpO8InokehwcLkJO8NwmCw/kz1buypr8V5d8yF4ZGzZLM39saIz727 +HwpD+tY37KXYZmcPannXiMCKt4+3pT6FGvJ1lopyxEAsXNkxxYBC+WM/Ig0i +JOG0+xahsD0UsnJKHAwvk4Se96+NcrGnWgUsysYlwX+CveUltla+qpC02zbg +5c3uUzXC9WQcquIwkoJ7e54qT2MvzA7/RZ2RhuCPe27GAoUEjppVV9nLwlct +vyujphQaz9/o7xggC4759LikGYXqP3ZLTJ+Thfz65QwXbE87rzOKD2VB+rg7 +Zyd2vkrk/hsactAgXip43xyvP1k4FysiD0J1/St5lhQ66MetZjOiAKrJgR+a +bCmEIp00XH4pgCRLABeLHYWUE3J0mWKKcFM/9LIpNkuepknsPkV41XszowO7 +bNDDpfKRIlhHBVcP2eP+dC6NF7+1HcLSQ3lFHXF+ZvZvJhlK0EFaOj0/SKG8 +AxkfVmKV4PFdK3MRJwolM0aG2W8qgYocI4nAZp768+u2XiX48s+QGJszhfia +slgOmCpDopQAmLjg/0dzRrlRTgUaMrsrut0oJCF7JS5pVBW2jrjv3HmYQk0X +aaXvrGqg1bIhMBnbc9Gtj5RRAyum2KZZ7OxWeSWTQ2ow30LEV3hTSNavoedb +vxrsnG5W3s3A+y0dUyA7doJukmC8D0EhSYltpLSbOggOhhj/CKSQakEEz39I +AwR4PXd7RlOIwTyzpOagAbmGIzUvsK/LpQ56e2rAvbHB8yiGQmy3yu89jdKA ++1YWevIncL9lTx5MrdAAm5v9TfMn8X163TtLSU4TDltleGXF4/NNstvpyqkF +RuZKrLoXKPRvmLxjTac2FLhRP8NvUKg7EumeLdAHrs1B4X6PKCRz6LWDV9Ae +6Oep/LgyQyFitfau5HEAl0KqVV5qAol8rV8vwjCB7/y69mluEyhC0/BjqjLu +ycXvQnT6BGJM/2wTmDQH+ozNaMabCVRmEr4+p8sSntTsfd4jO4ny6YBHpWnW +8HMucVfhsUn0zVj0RWucLby7d6xy6/NJNMDCNj/iYw/rF5L6ZbZ/RcFbj12N +l9sLqnP7ZKzOfkV3j7Q9TE9whFaDU8Vqs19R9KLYisqRfbBUu1Li6jqFlmws +nJ8d3g/3U4IOc3RPIX2PFOOxfQcgRv2v9eK206hHLCugVfMgMLqHb1e2TCPx +22eainY4geLB+ps21jOofljZzmGTM/gqeDVZdsygbX1zfpHTzlBn6zQU4jCL +NNNTSvOGXUDFT7wkengWZbEv7kx97Aon02aCJrXnUK3xrvcJ991gQatAqOf0 +HLque5HvZ7E7JO6IfuXXNYe6PhSc07zkgdfLVjkpMo9q7DPlQ055glWJxdNf +xDyaP3qAJZjpBfIo1FyrfB4tWSj5z5gegpsX375PXJ5HRdPvvoXrHIYL3Hp9 +300WkOu/Bb5ePN4wyK0ytHR+AVVV2h5mS/QGPYkQor9nAelL9Hy/8N0bun+9 +Ho8UWkRyw37vXx3xgVfLKunCBxfRKHfg3szPPpAHf7j8lbaIupMdfC2dGMCi +Wx5b37mI0qJyuP/sZgDXcXHpZXYaNTWvfve19oXfbyqSh3RotMUTEjUbfOGt +9m9+Y28aSQs+69ra5AslXAcWKGz1TntRzmZfKFNwCrrqQ6P9hh533j7yBedd +s7sGGTRK2xrZcfK5L3w5fnghgqCR+EDJlra3vpDanmh7JYBG8odErnuu+EJ8 ++71LkRE00veeKUrQYoLgX9NHuBJpdPvGXLiDDhM2f5qru4wt2LtgJKLHhDO/ +XxfynafRjPlKX9FuJoiJLgWJXqDx/cWyrtOECbSy60WZJBptXuFz49/HBPMK +kkX2Co1GL2tz5Rxlwk5uet+Hv2mU3HjiSP1tJrx1ehSlUkCjoxoZ+lFFTDhg +tHwhHdvuTgWXXjETatmsDVexN2aM36krY8I6Y66zr27TKCHMcbK2mglRO1B2 +aBGNTijJB9a04HgC6+ZySmgUkNERVDnIhHaezJzqChpZbx43DBtmwj95vHX8 +lTTakcCySeMTE+66Pjkagj0epl1WMcaE07O19cpVNPJxyJm+N8WEhGStx/9U +08iVIzy4/AfO/0Vatn8djSzDxUNKhQlYVc3ia2yiUUvOOZtUUQIu37b9IvCA +RoadC/JR4gQ0npO3DsJWV+h4Z7qNAN5a4QqJZhqJ9ceYflAgQKzFmvfP/9Ho +q8GA8EZtApDNtd98LTS6wpr7wO8AAQ9MBLXop3j/u3iu2zsRYPhCOszoGY3O +ekSFaboQoFKbaHAeO6racfuqOwH/Te8KEG/D+ZPrUv5mEKAYc9JU/zmNNNsZ +zCehBLTfmerx7qBRf4oCt9xVAmROO/G6dNHoLtrkT6UQYKv6OCkZ++w03Vp2 +jQAd74icJ9ga1q2xehkEJHyPvaLRjc+PxXfBPpsA9jjLlPWvaGRxLPddVCkB +co+CBbN7aCQpeV7H6C4BGufVeLuw6fZj19juETAZWJa3in1LEdknVxFwQ7on +5XAvjX4NDDzMayCgeWLggngfjartJIpethFQzLzz6cRrGiX9YOVIayegdge3 +SyE2o2jSx62TgGONjYxX2LzsDRKjXQRcn59B8m9oFNToeuX7GwKKKijeJ9hy +yn9Hyo8RcDujbv1iP41+9J/snRgnQN2Nb0b4LY26Ewj1coqA+RGXQAPs2BGt +Sf0pXA/2dOVT2O+v93rtXSRgxVi3kfMdjVLX85lHryPB1vKKNMt73L8LAx4R +bCQUsgS+lsb+MlAcFsxBgtWFOU5jbMNqs1wGFwl7PwwNxWGPe0f9Z8NHgsJY +vv8KNq+dOb+5AAkdz+RYBT/QaLcuvxISIuFC41ZRdeyrm0qdNcVIeDJE3ifX +xhuGKiRkSGhbfdb9ApssKG0TkiPhxs3T9uNr3189PrRFgYT93y9b/MYeJwU2 +sSuR8NLwbJnqRzwuYOk/pU6Ch3uowxnsht8CceMaJKg90yzLwB6bGE4f1iJh +u7j8+RJsg4fRj/v0SOidja18hT0adHfbAyBh8ljtW5EB3O+uMdp1JiS8CT4l +ugNb39TKrsKMBP9Zjz5d7GSxT8cLrHA9du1+6IRdz15+NceGBAce/Tlf7M+z +MYU37EgIuG2YGYqt91To9WVHEhIDbPyTsBkVn74m7iehIn7v+Qzsy5nlrKcP +kmCh7iifh/0pzFo90pWEaNvd3fXYmw4JW4a4k/AhQma4ZS2e9WevAE+8v/If +gZ1r86VOJh3yxvWcjl0ZWMtno80tVwYJ8bGKK2Nr8ZaE7+9nkiCn3xA2vRZv +5HOXHUlCX75eAL0Wr/PeuIU/CVWM3IEfa/nVnfwFASR8UZvrZBnE8W/ZCO4O +IiHpg6IeJ3b9ZREV7WASyt1NpbixP0WNGu8KIeFotdnpLdg8zApXpTASurmV +fQSwdffGHpOLIGEia6FRGJthYHtOMpKEx4+yUsWwLymIZolEkeBLKY9JYNfy +jlXxReP5mTeqJLFH/qto5z5BgsDZiV/b1uJ/iR3hiCVB1Uu8VQpbp8f222oc +CVLrVDmlsf8PVDPuyA== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + "PlotRange" -> {{0, 180}, {0.7560561724133026, 1.3042297593202148`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5511670383120088}, + "AxesOrigin" -> {0, 0.7560561724133043}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -12998,7 +13630,8 @@ wTw= AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5511670383120088}, + AxesOrigin->{0, 0.7560561724133043}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -13026,7 +13659,8 @@ wTw= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.7560561724133026, 1.3042297593202148`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -13034,9 +13668,9 @@ wTw= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991347865018469*^9}, + CellChangeTimes->{3.991347865018469*^9, 3.994260463727036*^9}, CellLabel-> - "Out[469]=",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] + "Out[139]=",ExpressionUUID->"52b2c9f6-0d51-498d-987d-1067672980a0"] }, Open ]], Cell[CellGroupData[{ @@ -13100,199 +13734,165 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ - 3.9918503718899097`*^9, {3.991850469268881*^9, - 3.9918504694651966`*^9}},ExpressionUUID->"497f9779-a3e4-c84e-a207-\ -0aac70483e3c"], + 3.9918503718899097`*^9, {3.991850469268881*^9, 3.9918504694651966`*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"497f9779-a3e4-c84e-a207-0aac70483e3c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.458740908982352`*^-268\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 470, - 513, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913478652482224`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.9146627142053815`*^-264\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 69, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913478652482224`*^9, 3.994260463908753*^9}, CellLabel-> "During evaluation of \ -In[470]:=",ExpressionUUID->"56dc07a7-05cc-424a-8fff-08f056385a44"], +In[140]:=",ExpressionUUID->"c729a759-b3a9-42a1-803c-f95bfc127e58"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.7391049816418008`*^-279\\\", \ + "\"\\!\\(\\*FractionBox[\\\"6.547813366910123`*^-276\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 70, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913478652482224`*^9, 3.994260463918907*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"a4d062c0-0826-4116-8b1b-18a11f24d001"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.239238251718936`*^-287\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 470, 514, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913478652572174`*^9}, + 140, 71, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913478652482224`*^9, 3.994260463927664*^9}, CellLabel-> "During evaluation of \ -In[470]:=",ExpressionUUID->"71ae3883-d346-164c-9764-dc57f6863817"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.230095503809359`*^-290\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 470, 515, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913478652662163`*^9}, - CellLabel-> - "During evaluation of \ -In[470]:=",ExpressionUUID->"16c86d51-9f27-3c48-b312-93c489e538a4"], +In[140]:=",ExpressionUUID->"b00d2f6d-56e7-456e-816f-7f59c3cba5fb"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 470, 516, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347865275215*^9}, +during this calculation.\"", 2, 140, 72, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913478652482224`*^9, 3.994260463936496*^9}, CellLabel-> "During evaluation of \ -In[470]:=",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], +In[140]:=",ExpressionUUID->"5c7e39a1-4b28-47d0-8660-118a83662b66"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ -Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH -/49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a -j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ -HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 -PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L -sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 -y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To -OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA -XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV -WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl -Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw -kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H -JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 -maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt -NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe -vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ -ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv -ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B -1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS -pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk -VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU -Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj -SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs -+TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F -jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL -c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt -t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA -t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 -PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp -cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr -ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe -DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd -dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 -TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU -RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP -Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh -nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 -PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv -Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac -X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU -CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e -N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T -3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T -sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z -bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O -s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 -hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih -Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v -JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O -fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci -vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ -2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL -lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z -Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu -1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl -qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 -B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 -YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 -6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ -T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw -RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w -n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P -r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik -ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 -pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l -HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh -S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 -EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK -rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 -GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu -OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo -lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l -HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 -lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 -dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR -ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX -7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu -fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg -eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn -YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE -9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS -WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ -Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 -85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV -icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ -xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum -j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l -rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ -dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu -hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w -cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH -ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD -69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 -w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme -MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn -PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 -wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G -XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu -6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH -x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD -5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m -zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ -tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u -wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe -Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF -oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl -9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY -caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU -Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo -f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 -3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN -hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf -Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis -j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB -LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 -eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo -qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O -03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 -NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 -cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 -pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu -KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA -YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn -yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me -g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ -V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw -EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg -5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv -fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo -9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c4lu8XAHBf6hsRQl5kvM/rpUVRRsbrnFTKKCO7QsqoJEUDyUrIyCoj +ZYSS9T4VZZVRFNEyEw0qFdK3ECq/+/fXc32u6xnXfe5zzn0eyvWwlRsvDw+P +2D88PP+/Tg48fsCOyTNwZwm9s4vbYNBxRcp/Q08YDP3lNW6WZgIueeoq1ZME +2x+578uVVoPjFje6+XpygVvkXRYtjbB4jJE03X0TCltDTPZJW8Cbmu2Hf3Y3 +gKKKk8+olAsYsb/0f+9+AeyWpnCK4QPT3doXxrvfwxmu16lZkRBo3Hgt73nu +D5iLes47eCkBZN9UfnRV+QO21ZtlX7mkgYSX840FG/lQwWIuTf1GFiSpG1Vv +t+FH9iitFB5zFXrT1Oq+iy7CwZ3Lczm1BRCTF/yUV3oxmv46iZdeFwIjZTA6 ++bI4PmkNuaQXWwxSq8rP/CoQR5OEYxB6oRhkGs4G7+aKY8q+SKy/Ugzy4yuO +LWsUx+u9ljZqdDEomfm4VA+T+49KFrZ0FsO6eX+0BtdJ4J7zIr/H5ErA3E9y +aG2LBFLJRk1jhSUQaW1s8GJyCS7xl72Vwi0FmdvtMrz/SOL8+gWeYpWlUCpu +PaUuKIkS50Q0o+tLoeuFEzdRQRJtR7rFXV+UAtvSj2W5VRLHApJa636UQsO2 +rH+fpUui8DFjd3XNMvhjNNHeps/A85efDvbeLIOEgoCiP0YMDCm5I+RfVQbs +f3miVC0ZuAwrNBc3lIHZw4Ub4twYaPg3O0LleRlkbGTeMotnIM/ZPYtEvpXB +ejRNbX3DwKGlG6/WS3DBVyfH+XGYFFZeH0tPMuOCSbbwT9NYKVTJXe9/15wL +rAWnotovSKGqds7mPisuPOuwpV9el8Lpx7vzGQ5cWO0jxDfQLoUhTwqCDrpx +YbjgRMF/MtL4bEd+UHAQF3ZJbB9deksa+25wttsXcWFdYHXolRppFNhZV7y0 +lAsL3y+XpJqksTH0xmQflwuVZXyg3CuN+/lqzXZUcEHStDJBbU4a7fw388rV +k++HsjU2m8rgChnDdNkuLmz6NhPgPSiDYM1+9eQPF/y3pqysH5HB2ri5ZoqH +htIc1VfikzKoM/uh3peXBilrF51K/qXII2rySngBDSN3H07xrV6Kbjyd2ZQo +DclhCX7pJ5eiFm9/biVFw/slyt4PFskidYh94bYhDYzD9+UYDFmMfTBlVrSJ +BrNH9m37mbKY80dCMsuIhoqAGBWRdbLocUCwP8iEhnNvxr842Mti1sEVm6Ss +aFhbWO3xLVcWV955UVTnQkOovuUemfVyGNhWXvYukIatTlf+0zaUQ32rgPLL +QTQIh3wNtzGTwyyBk5a2wTRkNkYUJLjIYea6mm21YTTcNan6+m+0HOpMjbm6 +RtMwbq94/EevHNYN3nQWuEjDnQCfBYuH5HCNYMFsfCoNpzNr01aPyaHY2XqN +xek0CL21q97PK48HPlqGCGbSsMwjluftSnksdNQ8151Dg9OxiXNPAuWxYcK8 +u62YBqVUQ9kvEfLYUasdIlf6//idL1mQII/z+rF9fxkNAb9XPDPMk8d783p3 +/qJpuBDutKTyiTwmhRqZjVbQ8CSxOStfTgFb70X/1aoj8b4lod64TAHH5ifp +WdbT4Ni5p+GtugLmT1YoezbQMCz1e2ipkQKG6NwViH1AA1+22sokbwVcnnhS +vPgRDbql6bdP31fA7dcV6rY9o2FTd/ufsUcKOBLXPKz4nIbtPPO2OL9QQP0K +Oa0p4r1W3r3wQQH5j0zghZc0GAVSwSHzmbhjykm5rIuGVpGaq+sXMtFxR0i4 +dzcNFnm2j8aFmShadVVgVQ8NO9tiFu+RYmLd3LLkS700+ChMXt2wijzPfn7D +8TUNE7cSHk2vYeKPS9ed+fpJPLauGqU1mPiLl8+wkDjiiIsWy4CJW0zjE0cG +aMhobHnEa8lEY5nNXpbvaFCwdxutsmHiTMSxy4PEeSNzi30dmZgg28Xj+56G +siWaOwf3MtHPPcYlepCGBx5Zo43Hmfg6Oz8l5QMNxr91xE4FMnHFc3VP0Y80 +tCd0aGmEMNFtouloNHFvpUBIXjQTf0LEGt9PNIwJ+olFZDKxXqnZXukzDb7Z +wtqcHCZWxglOniP+pVG4cyKfiTd8dz0dJeZzGshzK2PiKO/N9UVfSD1xt2ob +NTCxtULj17wRGi5vGtz5t4mJQn/eRloTs3qDQipaSbz0m+1ziFV5bz1W7mTi +oeKhurWjNNy8uG1soJeJUr+8HU4Qr181LJY6wMSnvr2alcSG1nK7FgwzsVHj +d43GGA3Nw3dC7o8w0aRYaL83sVmQVf6J70y8fKdkZz6xXUHk2KcZJr7pt2cI +fqPhtS5LPHuOiWYade90iF2f1mjbz6PwZsrRCTdir1/fQx4tojCs2X+2nFj3 +iLvkRzEKrTr8O14T8395VcQnReHRgcgQnnEaulzNN1ByFN6KiuShiPP7GrsM +WBQKme+2MSD2s17vtWsZhT8ixoLtiQ3biv8JUKGw2oEKPUwsakSlpqpT+Lnt +tUM48cC9CyrlWhReqeEXTCEu1l7Y8EKPwk+dcRdyiAO4p+3GkUIqy2amiHjr +ih8ji4wo3HbURPcWsWSuR9gqUwoPB9nZ3iEeknnNMLag8Eu9p/ld4pvJFiXu +NhR2ix9UriAOEXpoeMaRQndps9dcYvMInZ4cZwrVTGaOXCeW/1ty6P4+Ci+M +7RvOJB45zuLr308hQ+EUxhNXfbuYNuNNIbdRLfAUcZSn4GopP/J8sl+6B7Ht +u+BGTX8KE8R0M82J2Y4/7XecptAyxe+MBvF/LzzHfMIpfKYttUOSuM60Pzw+ +iqx/WFpggsQ7/oGldHEche93H772jHgXp6n0cRKFmdIiawqJV1bobvqUSqGE +53j2aeLp1WW98y5TqOQs+NeC+NE1xcOsXApT++23MIkvMtPm4TUKD517ETRC +8mOtWOiaQJrCl+MaFYHEPDETD9IqKHzeJ1FlQNzOd8CxoprCh7YiZX9J/h2c +sIr4/pDCc69MfI4R63o3y4i0UrhPP9pAhZj/kx5X5RmFPwde//OW5HdeD7vP +4xWFUpNNBw2Ij1qm+0S8oZCvy0Xi81casGXRv1eHKJxslaxIIO6vnlQbGKOQ +d/HH4S5ST5JZj85a87HIeZ6/HEi9DTE4skf5WVjTXlLxfJjsZwJNn1/EQs5b +PqM9xOZhGa9bGCzcrXbf6wSp5yg3r7UbVFio4lc4FUz6ge3A22YndRZ+GTEv +mRki+2Fns/uUFgvDB696HSWu22oQdQdZeLs9UciB9JPpVaIDqjYs/By48xsv +6T+Tl2VC1zmyMI5nx4TnWxp+iiixdZxZGNFctPzJG9I/fugc2LSfhRXi6UvP +kX72vnrvpGMQCxc2qJoP9dHQYnpHOCqfhWkL8zrFSH9trq2n426wsJrRomrW +SfrXmifWyWUsTPeYbgzroOGe+LuMK5UsbJe7VfrpBVlv38Jl5W0svKV6+FLC +U9IvDzrB+wkWJhR1NTiT/p/a7/n+0wwLUxPXnjrUTEOKuW/E6BwL1cJ6zpxs +Ivm0Lqr1l4Airs92jzpLzo+wWdpORF4Ro896nAgj58/BmPk++kaK6Hovd3Tm +Dg36RcXZFy8qou7Iz6WTeTT0MYuyNl9SRINau+mHV0k9Xiy88jNLEdv1JbKS +c8n5GlqQaVVI3ufuvGV5Nskv++w04RpFfGZQoaR9iYYV81MSzr5TRGkls7Gv +CWR/nQNDjquw8ZD/Ss+7ATSUd/gHK6mzsW1v08qN/jRYm5w83aHJxlibmI7W +EzQkaR47tRbYyHoS/K7Lj4ZFQodPjlmy0W4D9/dLbxrmVbr6uJ9g43CmqORB +Vxq+i5m42Daw8TBd80J8Kw09XqxnB5rZ2OG+TGc9mU/qmmYg+Akb4xRfbnMk +80tCQJHC9S42XmIwI1ORBrX3Qm+mv7CxJ5jPaXI9Dd70092XxZVw2i273mgF +DV/MbXYO7VPCSotFF/X4SX7GutgeXaCMu6oeCdXd54L3FxWWmpAyGtlou4TX +cmFqy/ToqKgyflAt+bWpmsx7fEkR+2WUUTde7k8Dme/U/Btvu6gqYygP5Xuj +hAtBbsri5juU0WM2XWj5JTL/GYw8XZWljJ5ifg0f/Lhg/O2E8QetZdj9uHCs +UJELI3v5fW8HL8d/EuP/PqkrJf8fDN7IhhXIXR4TbsgoAbE25Xjut5XY1tDT +sNC7CGSjyiy0tFRQ5VR8yvzYQkhbpSMq7qGKP/7d31J+7xq0yGzQ/JG4GnOy +uvSUp/JBV7YhYU3XGhw0iH0fKJQHwny5fnvC1DA7PXrkrWkuyIcq6DsoqyPn +/XpL/2PZIKC0q8KqWR1F1bY6FJ+8DKs50mUndq/FTp5+802HMuDogFijCc86 +XLjxKl+TdSp8+xFrY5y2Dmmvu4zH+SmwZU1ThrGqBj4IMOXGaSfBvR96s1Pt +Gtj22/9vdeZ58FZZ++q5myYahvVxZ6NigDO2r8NBQAs3ZBx5x0qIhM1sqW2L +crXQbFjh2PSGM7A85NzJBm1tDOvr71rhEgor3XTuK73SxjYlX78fEARu9zzP +3D6yHjuv+cpHPDgJ97M79n1fooObUoNk7c77wc/rc1Nr7ujgutD4gv75R2Cv +UpFAxjZdfNvum1To5gXfVyZr3RzXRevgQQWmugfczZt9NxGlh7x9+af5pfaC +1ka/KZMYPbxm13DPTGAvlL8bEcqO00Ov+Rd7M2Zc4ab8gLZJkh4KmXqds+53 +heK0urgrl/Rwc/kRI85VV8iOjdDZUqqHJtFqGW/UXCHaTyQx7SV5X+28jI07 +9oDjJkXUk9fHiOdnEvrcneFPB79wI1Mff2sNbflg6gzZbmN9Jor62BXup8un +7gwfz1aecFyuj48EvmUFzjrB0cfmZf5r9fFCRYvE7kQnOLf9lPxdI308+bRz +urtuN1TZd/7WOKyPwj5Dpg6rd8HSQ5GVq+v0MaSwpGkSHSB+zl0zpkEfBVsa +FVerOABvkhH96YE+fqg1TfJjOMCXivmF2Y/10dw/J3j1mD1U8ZxJE3upjzbl +D7NsMu3BMSXkxOQHffT5Kae0f9YO0qr9Ne8JcnDrxJFgjwe2sGShF73NjoPP +Nv72fBNsDXkbgwLGHTjYtHS2OMXLGtYGxW9M3sXBmKcXBR0drGH7OLezZw8H +1/29/FVinTWc7ZqY3uvFwVDB6d/Gn3bAr9xgw4BQDlaNvL52zWoHvNJLfllQ +xMGvq9WdhjSswPNYXqZxKQdrdy1PjFS0gsnScrcRLgfzrDeH6ohZgRirZ0q9 +goNh2yu9H3+zBFN+OdnaOg5eu8OxTyuyhJqOgn0vOzmY8z5p82clSzARvqt6 +vIeDr6mve32XWELPlseTUn0cZF8TSRecbwk/q75GOb3loPCNYXn3IQtQzVEr ++fyFg3sq9U81XLWAmlcbjseOclD2zlqNmmQLMJHYAWvGOXhW4xXdGG4B7pHH +nvtNkPWeleqa3WsBP+vOZjB+cTDS94anirUFhM2k7q2a4eBx0aG0A5ssQFSj +UGX3Hw5eTXy2q0LDAq4cqpqYm+OgeHbIDRElC/gfp3btYA== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -13306,158 +13906,120 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ -Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH -/49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a -j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ -HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 -PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L -sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 -y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To -OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA -XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV -WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl -Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw -kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H -JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 -maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt -NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe -vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ -ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv -ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B -1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS -pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk -VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU -Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj -SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs -+TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F -jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL -c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt -t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA -t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 -PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp -cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr -ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe -DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd -dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 -TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU -RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP -Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh -nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 -PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv -Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac -X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU -CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e -N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T -3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T -sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z -bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O -s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 -hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih -Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v -JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O -fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci -vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ -2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL -lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z -Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu -1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl -qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 -B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 -YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 -6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ -T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw -RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w -n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P -r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik -ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 -pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l -HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh -S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 -EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK -rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 -GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu -OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo -lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l -HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 -lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 -dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR -ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX -7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu -fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg -eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn -YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE -9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS -WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ -Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 -85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV -icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ -xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum -j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l -rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ -dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu -hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w -cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH -ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD -69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 -w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme -MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn -PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 -wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G -XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu -6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH -x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD -5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m -zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ -tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u -wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe -Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF -oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl -9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY -caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU -Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo -f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 -3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN -hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf -Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis -j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB -LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 -eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo -qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O -03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 -NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 -cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 -pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu -KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA -YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn -yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me -g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ -V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw -EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg -5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv -fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo -9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= +1:eJwV13c4lu8XAHBf6hsRQl5kvM/rpUVRRsbrnFTKKCO7QsqoJEUDyUrIyCoj +ZYSS9T4VZZVRFNEyEw0qFdK3ECq/+/fXc32u6xnXfe5zzn0eyvWwlRsvDw+P +2D88PP+/Tg48fsCOyTNwZwm9s4vbYNBxRcp/Q08YDP3lNW6WZgIueeoq1ZME +2x+578uVVoPjFje6+XpygVvkXRYtjbB4jJE03X0TCltDTPZJW8Cbmu2Hf3Y3 +gKKKk8+olAsYsb/0f+9+AeyWpnCK4QPT3doXxrvfwxmu16lZkRBo3Hgt73nu +D5iLes47eCkBZN9UfnRV+QO21ZtlX7mkgYSX840FG/lQwWIuTf1GFiSpG1Vv +t+FH9iitFB5zFXrT1Oq+iy7CwZ3Lczm1BRCTF/yUV3oxmv46iZdeFwIjZTA6 ++bI4PmkNuaQXWwxSq8rP/CoQR5OEYxB6oRhkGs4G7+aKY8q+SKy/Ugzy4yuO +LWsUx+u9ljZqdDEomfm4VA+T+49KFrZ0FsO6eX+0BtdJ4J7zIr/H5ErA3E9y +aG2LBFLJRk1jhSUQaW1s8GJyCS7xl72Vwi0FmdvtMrz/SOL8+gWeYpWlUCpu +PaUuKIkS50Q0o+tLoeuFEzdRQRJtR7rFXV+UAtvSj2W5VRLHApJa636UQsO2 +rH+fpUui8DFjd3XNMvhjNNHeps/A85efDvbeLIOEgoCiP0YMDCm5I+RfVQbs +f3miVC0ZuAwrNBc3lIHZw4Ub4twYaPg3O0LleRlkbGTeMotnIM/ZPYtEvpXB +ejRNbX3DwKGlG6/WS3DBVyfH+XGYFFZeH0tPMuOCSbbwT9NYKVTJXe9/15wL +rAWnotovSKGqds7mPisuPOuwpV9el8Lpx7vzGQ5cWO0jxDfQLoUhTwqCDrpx +YbjgRMF/MtL4bEd+UHAQF3ZJbB9deksa+25wttsXcWFdYHXolRppFNhZV7y0 +lAsL3y+XpJqksTH0xmQflwuVZXyg3CuN+/lqzXZUcEHStDJBbU4a7fw388rV +k++HsjU2m8rgChnDdNkuLmz6NhPgPSiDYM1+9eQPF/y3pqysH5HB2ri5ZoqH +htIc1VfikzKoM/uh3peXBilrF51K/qXII2rySngBDSN3H07xrV6Kbjyd2ZQo +DclhCX7pJ5eiFm9/biVFw/slyt4PFskidYh94bYhDYzD9+UYDFmMfTBlVrSJ +BrNH9m37mbKY80dCMsuIhoqAGBWRdbLocUCwP8iEhnNvxr842Mti1sEVm6Ss +aFhbWO3xLVcWV955UVTnQkOovuUemfVyGNhWXvYukIatTlf+0zaUQ32rgPLL +QTQIh3wNtzGTwyyBk5a2wTRkNkYUJLjIYea6mm21YTTcNan6+m+0HOpMjbm6 +RtMwbq94/EevHNYN3nQWuEjDnQCfBYuH5HCNYMFsfCoNpzNr01aPyaHY2XqN +xek0CL21q97PK48HPlqGCGbSsMwjluftSnksdNQ8151Dg9OxiXNPAuWxYcK8 +u62YBqVUQ9kvEfLYUasdIlf6//idL1mQII/z+rF9fxkNAb9XPDPMk8d783p3 +/qJpuBDutKTyiTwmhRqZjVbQ8CSxOStfTgFb70X/1aoj8b4lod64TAHH5ifp +WdbT4Ni5p+GtugLmT1YoezbQMCz1e2ipkQKG6NwViH1AA1+22sokbwVcnnhS +vPgRDbql6bdP31fA7dcV6rY9o2FTd/ufsUcKOBLXPKz4nIbtPPO2OL9QQP0K +Oa0p4r1W3r3wQQH5j0zghZc0GAVSwSHzmbhjykm5rIuGVpGaq+sXMtFxR0i4 +dzcNFnm2j8aFmShadVVgVQ8NO9tiFu+RYmLd3LLkS700+ChMXt2wijzPfn7D +8TUNE7cSHk2vYeKPS9ed+fpJPLauGqU1mPiLl8+wkDjiiIsWy4CJW0zjE0cG +aMhobHnEa8lEY5nNXpbvaFCwdxutsmHiTMSxy4PEeSNzi30dmZgg28Xj+56G +siWaOwf3MtHPPcYlepCGBx5Zo43Hmfg6Oz8l5QMNxr91xE4FMnHFc3VP0Y80 +tCd0aGmEMNFtouloNHFvpUBIXjQTf0LEGt9PNIwJ+olFZDKxXqnZXukzDb7Z +wtqcHCZWxglOniP+pVG4cyKfiTd8dz0dJeZzGshzK2PiKO/N9UVfSD1xt2ob +NTCxtULj17wRGi5vGtz5t4mJQn/eRloTs3qDQipaSbz0m+1ziFV5bz1W7mTi +oeKhurWjNNy8uG1soJeJUr+8HU4Qr181LJY6wMSnvr2alcSG1nK7FgwzsVHj +d43GGA3Nw3dC7o8w0aRYaL83sVmQVf6J70y8fKdkZz6xXUHk2KcZJr7pt2cI +fqPhtS5LPHuOiWYade90iF2f1mjbz6PwZsrRCTdir1/fQx4tojCs2X+2nFj3 +iLvkRzEKrTr8O14T8395VcQnReHRgcgQnnEaulzNN1ByFN6KiuShiPP7GrsM +WBQKme+2MSD2s17vtWsZhT8ixoLtiQ3biv8JUKGw2oEKPUwsakSlpqpT+Lnt +tUM48cC9CyrlWhReqeEXTCEu1l7Y8EKPwk+dcRdyiAO4p+3GkUIqy2amiHjr +ih8ji4wo3HbURPcWsWSuR9gqUwoPB9nZ3iEeknnNMLag8Eu9p/ld4pvJFiXu +NhR2ix9UriAOEXpoeMaRQndps9dcYvMInZ4cZwrVTGaOXCeW/1ty6P4+Ci+M +7RvOJB45zuLr308hQ+EUxhNXfbuYNuNNIbdRLfAUcZSn4GopP/J8sl+6B7Ht +u+BGTX8KE8R0M82J2Y4/7XecptAyxe+MBvF/LzzHfMIpfKYttUOSuM60Pzw+ +iqx/WFpggsQ7/oGldHEche93H772jHgXp6n0cRKFmdIiawqJV1bobvqUSqGE +53j2aeLp1WW98y5TqOQs+NeC+NE1xcOsXApT++23MIkvMtPm4TUKD517ETRC +8mOtWOiaQJrCl+MaFYHEPDETD9IqKHzeJ1FlQNzOd8CxoprCh7YiZX9J/h2c +sIr4/pDCc69MfI4R63o3y4i0UrhPP9pAhZj/kx5X5RmFPwde//OW5HdeD7vP +4xWFUpNNBw2Ij1qm+0S8oZCvy0Xi81casGXRv1eHKJxslaxIIO6vnlQbGKOQ +d/HH4S5ST5JZj85a87HIeZ6/HEi9DTE4skf5WVjTXlLxfJjsZwJNn1/EQs5b +PqM9xOZhGa9bGCzcrXbf6wSp5yg3r7UbVFio4lc4FUz6ge3A22YndRZ+GTEv +mRki+2Fns/uUFgvDB696HSWu22oQdQdZeLs9UciB9JPpVaIDqjYs/By48xsv +6T+Tl2VC1zmyMI5nx4TnWxp+iiixdZxZGNFctPzJG9I/fugc2LSfhRXi6UvP +kX72vnrvpGMQCxc2qJoP9dHQYnpHOCqfhWkL8zrFSH9trq2n426wsJrRomrW +SfrXmifWyWUsTPeYbgzroOGe+LuMK5UsbJe7VfrpBVlv38Jl5W0svKV6+FLC +U9IvDzrB+wkWJhR1NTiT/p/a7/n+0wwLUxPXnjrUTEOKuW/E6BwL1cJ6zpxs +Ivm0Lqr1l4Airs92jzpLzo+wWdpORF4Ro896nAgj58/BmPk++kaK6Hovd3Tm +Dg36RcXZFy8qou7Iz6WTeTT0MYuyNl9SRINau+mHV0k9Xiy88jNLEdv1JbKS +c8n5GlqQaVVI3ufuvGV5Nskv++w04RpFfGZQoaR9iYYV81MSzr5TRGkls7Gv +CWR/nQNDjquw8ZD/Ss+7ATSUd/gHK6mzsW1v08qN/jRYm5w83aHJxlibmI7W +EzQkaR47tRbYyHoS/K7Lj4ZFQodPjlmy0W4D9/dLbxrmVbr6uJ9g43CmqORB +Vxq+i5m42Daw8TBd80J8Kw09XqxnB5rZ2OG+TGc9mU/qmmYg+Akb4xRfbnMk +80tCQJHC9S42XmIwI1ORBrX3Qm+mv7CxJ5jPaXI9Dd70092XxZVw2i273mgF +DV/MbXYO7VPCSotFF/X4SX7GutgeXaCMu6oeCdXd54L3FxWWmpAyGtlou4TX +cmFqy/ToqKgyflAt+bWpmsx7fEkR+2WUUTde7k8Dme/U/Btvu6gqYygP5Xuj +hAtBbsri5juU0WM2XWj5JTL/GYw8XZWljJ5ifg0f/Lhg/O2E8QetZdj9uHCs +UJELI3v5fW8HL8d/EuP/PqkrJf8fDN7IhhXIXR4TbsgoAbE25Xjut5XY1tDT +sNC7CGSjyiy0tFRQ5VR8yvzYQkhbpSMq7qGKP/7d31J+7xq0yGzQ/JG4GnOy +uvSUp/JBV7YhYU3XGhw0iH0fKJQHwny5fnvC1DA7PXrkrWkuyIcq6DsoqyPn +/XpL/2PZIKC0q8KqWR1F1bY6FJ+8DKs50mUndq/FTp5+802HMuDogFijCc86 +XLjxKl+TdSp8+xFrY5y2Dmmvu4zH+SmwZU1ThrGqBj4IMOXGaSfBvR96s1Pt +Gtj22/9vdeZ58FZZ++q5myYahvVxZ6NigDO2r8NBQAs3ZBx5x0qIhM1sqW2L +crXQbFjh2PSGM7A85NzJBm1tDOvr71rhEgor3XTuK73SxjYlX78fEARu9zzP +3D6yHjuv+cpHPDgJ97M79n1fooObUoNk7c77wc/rc1Nr7ujgutD4gv75R2Cv +UpFAxjZdfNvum1To5gXfVyZr3RzXRevgQQWmugfczZt9NxGlh7x9+af5pfaC +1ka/KZMYPbxm13DPTGAvlL8bEcqO00Ov+Rd7M2Zc4ab8gLZJkh4KmXqds+53 +heK0urgrl/Rwc/kRI85VV8iOjdDZUqqHJtFqGW/UXCHaTyQx7SV5X+28jI07 +9oDjJkXUk9fHiOdnEvrcneFPB79wI1Mff2sNbflg6gzZbmN9Jor62BXup8un +7gwfz1aecFyuj48EvmUFzjrB0cfmZf5r9fFCRYvE7kQnOLf9lPxdI308+bRz +urtuN1TZd/7WOKyPwj5Dpg6rd8HSQ5GVq+v0MaSwpGkSHSB+zl0zpkEfBVsa +FVerOABvkhH96YE+fqg1TfJjOMCXivmF2Y/10dw/J3j1mD1U8ZxJE3upjzbl +D7NsMu3BMSXkxOQHffT5Kae0f9YO0qr9Ne8JcnDrxJFgjwe2sGShF73NjoPP +Nv72fBNsDXkbgwLGHTjYtHS2OMXLGtYGxW9M3sXBmKcXBR0drGH7OLezZw8H +1/29/FVinTWc7ZqY3uvFwVDB6d/Gn3bAr9xgw4BQDlaNvL52zWoHvNJLfllQ +xMGvq9WdhjSswPNYXqZxKQdrdy1PjFS0gsnScrcRLgfzrDeH6ohZgRirZ0q9 +goNh2yu9H3+zBFN+OdnaOg5eu8OxTyuyhJqOgn0vOzmY8z5p82clSzARvqt6 +vIeDr6mve32XWELPlseTUn0cZF8TSRecbwk/q75GOb3loPCNYXn3IQtQzVEr ++fyFg3sq9U81XLWAmlcbjseOclD2zlqNmmQLMJHYAWvGOXhW4xXdGG4B7pHH +nvtNkPWeleqa3WsBP+vOZjB+cTDS94anirUFhM2k7q2a4eBx0aG0A5ssQFSj +UGX3Hw5eTXy2q0LDAq4cqpqYm+OgeHbIDRElC/gfp3btYA== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "PlotRange" -> {{0, 30}, {0., 0.07007934511853589}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -13469,183 +14031,145 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "PlotRange" -> {{0, 30}, {0., 0.07007934511853589}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{117.9605728938093, - 256.1444167491903}, {-15.489822627663699`, 5.682052372336301}}], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ -Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH -/49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a -j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ -HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 -PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L -sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 -y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To -OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA -XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV -WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl -Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw -kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H -JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 -maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt -NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe -vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ -ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv -ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B -1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS -pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk -VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU -Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj -SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs -+TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F -jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL -c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt -t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA -t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 -PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp -cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr -ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe -DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd -dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 -TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU -RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP -Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh -nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 -PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv -Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac -X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU -CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e -N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T -3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T -sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z -bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O -s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 -hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih -Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v -JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O -fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci -vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ -2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL -lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z -Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu -1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl -qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 -B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 -YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 -6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ -T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw -RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w -n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P -r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik -ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 -pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l -HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh -S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 -EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK -rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 -GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu -OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo -lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l -HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 -lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 -dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR -ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX -7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu -fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg -eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn -YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE -9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS -WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ -Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 -85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV -icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ -xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum -j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l -rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ -dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu -hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w -cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH -ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD -69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 -w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme -MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn -PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 -wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G -XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu -6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH -x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD -5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m -zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ -tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u -wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe -Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF -oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl -9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY -caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU -Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo -f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 -3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN -hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf -Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis -j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB -LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 -eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo -qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O -03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 -NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 -cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 -pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu -KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA -YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn -yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me -g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ -V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw -EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg -5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv -fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo -9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= +1:eJwV13c4lu8XAHBf6hsRQl5kvM/rpUVRRsbrnFTKKCO7QsqoJEUDyUrIyCoj +ZYSS9T4VZZVRFNEyEw0qFdK3ECq/+/fXc32u6xnXfe5zzn0eyvWwlRsvDw+P +2D88PP+/Tg48fsCOyTNwZwm9s4vbYNBxRcp/Q08YDP3lNW6WZgIueeoq1ZME +2x+578uVVoPjFje6+XpygVvkXRYtjbB4jJE03X0TCltDTPZJW8Cbmu2Hf3Y3 +gKKKk8+olAsYsb/0f+9+AeyWpnCK4QPT3doXxrvfwxmu16lZkRBo3Hgt73nu +D5iLes47eCkBZN9UfnRV+QO21ZtlX7mkgYSX840FG/lQwWIuTf1GFiSpG1Vv +t+FH9iitFB5zFXrT1Oq+iy7CwZ3Lczm1BRCTF/yUV3oxmv46iZdeFwIjZTA6 ++bI4PmkNuaQXWwxSq8rP/CoQR5OEYxB6oRhkGs4G7+aKY8q+SKy/Ugzy4yuO +LWsUx+u9ljZqdDEomfm4VA+T+49KFrZ0FsO6eX+0BtdJ4J7zIr/H5ErA3E9y +aG2LBFLJRk1jhSUQaW1s8GJyCS7xl72Vwi0FmdvtMrz/SOL8+gWeYpWlUCpu +PaUuKIkS50Q0o+tLoeuFEzdRQRJtR7rFXV+UAtvSj2W5VRLHApJa636UQsO2 +rH+fpUui8DFjd3XNMvhjNNHeps/A85efDvbeLIOEgoCiP0YMDCm5I+RfVQbs +f3miVC0ZuAwrNBc3lIHZw4Ub4twYaPg3O0LleRlkbGTeMotnIM/ZPYtEvpXB +ejRNbX3DwKGlG6/WS3DBVyfH+XGYFFZeH0tPMuOCSbbwT9NYKVTJXe9/15wL +rAWnotovSKGqds7mPisuPOuwpV9el8Lpx7vzGQ5cWO0jxDfQLoUhTwqCDrpx +YbjgRMF/MtL4bEd+UHAQF3ZJbB9deksa+25wttsXcWFdYHXolRppFNhZV7y0 +lAsL3y+XpJqksTH0xmQflwuVZXyg3CuN+/lqzXZUcEHStDJBbU4a7fw388rV +k++HsjU2m8rgChnDdNkuLmz6NhPgPSiDYM1+9eQPF/y3pqysH5HB2ri5ZoqH +htIc1VfikzKoM/uh3peXBilrF51K/qXII2rySngBDSN3H07xrV6Kbjyd2ZQo +DclhCX7pJ5eiFm9/biVFw/slyt4PFskidYh94bYhDYzD9+UYDFmMfTBlVrSJ +BrNH9m37mbKY80dCMsuIhoqAGBWRdbLocUCwP8iEhnNvxr842Mti1sEVm6Ss +aFhbWO3xLVcWV955UVTnQkOovuUemfVyGNhWXvYukIatTlf+0zaUQ32rgPLL +QTQIh3wNtzGTwyyBk5a2wTRkNkYUJLjIYea6mm21YTTcNan6+m+0HOpMjbm6 +RtMwbq94/EevHNYN3nQWuEjDnQCfBYuH5HCNYMFsfCoNpzNr01aPyaHY2XqN +xek0CL21q97PK48HPlqGCGbSsMwjluftSnksdNQ8151Dg9OxiXNPAuWxYcK8 +u62YBqVUQ9kvEfLYUasdIlf6//idL1mQII/z+rF9fxkNAb9XPDPMk8d783p3 +/qJpuBDutKTyiTwmhRqZjVbQ8CSxOStfTgFb70X/1aoj8b4lod64TAHH5ifp +WdbT4Ni5p+GtugLmT1YoezbQMCz1e2ipkQKG6NwViH1AA1+22sokbwVcnnhS +vPgRDbql6bdP31fA7dcV6rY9o2FTd/ufsUcKOBLXPKz4nIbtPPO2OL9QQP0K +Oa0p4r1W3r3wQQH5j0zghZc0GAVSwSHzmbhjykm5rIuGVpGaq+sXMtFxR0i4 +dzcNFnm2j8aFmShadVVgVQ8NO9tiFu+RYmLd3LLkS700+ChMXt2wijzPfn7D +8TUNE7cSHk2vYeKPS9ed+fpJPLauGqU1mPiLl8+wkDjiiIsWy4CJW0zjE0cG +aMhobHnEa8lEY5nNXpbvaFCwdxutsmHiTMSxy4PEeSNzi30dmZgg28Xj+56G +siWaOwf3MtHPPcYlepCGBx5Zo43Hmfg6Oz8l5QMNxr91xE4FMnHFc3VP0Y80 +tCd0aGmEMNFtouloNHFvpUBIXjQTf0LEGt9PNIwJ+olFZDKxXqnZXukzDb7Z +wtqcHCZWxglOniP+pVG4cyKfiTd8dz0dJeZzGshzK2PiKO/N9UVfSD1xt2ob +NTCxtULj17wRGi5vGtz5t4mJQn/eRloTs3qDQipaSbz0m+1ziFV5bz1W7mTi +oeKhurWjNNy8uG1soJeJUr+8HU4Qr181LJY6wMSnvr2alcSG1nK7FgwzsVHj +d43GGA3Nw3dC7o8w0aRYaL83sVmQVf6J70y8fKdkZz6xXUHk2KcZJr7pt2cI +fqPhtS5LPHuOiWYade90iF2f1mjbz6PwZsrRCTdir1/fQx4tojCs2X+2nFj3 +iLvkRzEKrTr8O14T8395VcQnReHRgcgQnnEaulzNN1ByFN6KiuShiPP7GrsM +WBQKme+2MSD2s17vtWsZhT8ixoLtiQ3biv8JUKGw2oEKPUwsakSlpqpT+Lnt +tUM48cC9CyrlWhReqeEXTCEu1l7Y8EKPwk+dcRdyiAO4p+3GkUIqy2amiHjr +ih8ji4wo3HbURPcWsWSuR9gqUwoPB9nZ3iEeknnNMLag8Eu9p/ld4pvJFiXu +NhR2ix9UriAOEXpoeMaRQndps9dcYvMInZ4cZwrVTGaOXCeW/1ty6P4+Ci+M +7RvOJB45zuLr308hQ+EUxhNXfbuYNuNNIbdRLfAUcZSn4GopP/J8sl+6B7Ht +u+BGTX8KE8R0M82J2Y4/7XecptAyxe+MBvF/LzzHfMIpfKYttUOSuM60Pzw+ +iqx/WFpggsQ7/oGldHEche93H772jHgXp6n0cRKFmdIiawqJV1bobvqUSqGE +53j2aeLp1WW98y5TqOQs+NeC+NE1xcOsXApT++23MIkvMtPm4TUKD517ETRC +8mOtWOiaQJrCl+MaFYHEPDETD9IqKHzeJ1FlQNzOd8CxoprCh7YiZX9J/h2c +sIr4/pDCc69MfI4R63o3y4i0UrhPP9pAhZj/kx5X5RmFPwde//OW5HdeD7vP +4xWFUpNNBw2Ij1qm+0S8oZCvy0Xi81casGXRv1eHKJxslaxIIO6vnlQbGKOQ +d/HH4S5ST5JZj85a87HIeZ6/HEi9DTE4skf5WVjTXlLxfJjsZwJNn1/EQs5b +PqM9xOZhGa9bGCzcrXbf6wSp5yg3r7UbVFio4lc4FUz6ge3A22YndRZ+GTEv +mRki+2Fns/uUFgvDB696HSWu22oQdQdZeLs9UciB9JPpVaIDqjYs/By48xsv +6T+Tl2VC1zmyMI5nx4TnWxp+iiixdZxZGNFctPzJG9I/fugc2LSfhRXi6UvP +kX72vnrvpGMQCxc2qJoP9dHQYnpHOCqfhWkL8zrFSH9trq2n426wsJrRomrW +SfrXmifWyWUsTPeYbgzroOGe+LuMK5UsbJe7VfrpBVlv38Jl5W0svKV6+FLC +U9IvDzrB+wkWJhR1NTiT/p/a7/n+0wwLUxPXnjrUTEOKuW/E6BwL1cJ6zpxs +Ivm0Lqr1l4Airs92jzpLzo+wWdpORF4Ro896nAgj58/BmPk++kaK6Hovd3Tm +Dg36RcXZFy8qou7Iz6WTeTT0MYuyNl9SRINau+mHV0k9Xiy88jNLEdv1JbKS +c8n5GlqQaVVI3ufuvGV5Nskv++w04RpFfGZQoaR9iYYV81MSzr5TRGkls7Gv +CWR/nQNDjquw8ZD/Ss+7ATSUd/gHK6mzsW1v08qN/jRYm5w83aHJxlibmI7W +EzQkaR47tRbYyHoS/K7Lj4ZFQodPjlmy0W4D9/dLbxrmVbr6uJ9g43CmqORB +Vxq+i5m42Daw8TBd80J8Kw09XqxnB5rZ2OG+TGc9mU/qmmYg+Akb4xRfbnMk +80tCQJHC9S42XmIwI1ORBrX3Qm+mv7CxJ5jPaXI9Dd70092XxZVw2i273mgF +DV/MbXYO7VPCSotFF/X4SX7GutgeXaCMu6oeCdXd54L3FxWWmpAyGtlou4TX +cmFqy/ToqKgyflAt+bWpmsx7fEkR+2WUUTde7k8Dme/U/Btvu6gqYygP5Xuj +hAtBbsri5juU0WM2XWj5JTL/GYw8XZWljJ5ifg0f/Lhg/O2E8QetZdj9uHCs +UJELI3v5fW8HL8d/EuP/PqkrJf8fDN7IhhXIXR4TbsgoAbE25Xjut5XY1tDT +sNC7CGSjyiy0tFRQ5VR8yvzYQkhbpSMq7qGKP/7d31J+7xq0yGzQ/JG4GnOy +uvSUp/JBV7YhYU3XGhw0iH0fKJQHwny5fnvC1DA7PXrkrWkuyIcq6DsoqyPn +/XpL/2PZIKC0q8KqWR1F1bY6FJ+8DKs50mUndq/FTp5+802HMuDogFijCc86 +XLjxKl+TdSp8+xFrY5y2Dmmvu4zH+SmwZU1ThrGqBj4IMOXGaSfBvR96s1Pt +Gtj22/9vdeZ58FZZ++q5myYahvVxZ6NigDO2r8NBQAs3ZBx5x0qIhM1sqW2L +crXQbFjh2PSGM7A85NzJBm1tDOvr71rhEgor3XTuK73SxjYlX78fEARu9zzP +3D6yHjuv+cpHPDgJ97M79n1fooObUoNk7c77wc/rc1Nr7ujgutD4gv75R2Cv +UpFAxjZdfNvum1To5gXfVyZr3RzXRevgQQWmugfczZt9NxGlh7x9+af5pfaC +1ka/KZMYPbxm13DPTGAvlL8bEcqO00Ov+Rd7M2Zc4ab8gLZJkh4KmXqds+53 +heK0urgrl/Rwc/kRI85VV8iOjdDZUqqHJtFqGW/UXCHaTyQx7SV5X+28jI07 +9oDjJkXUk9fHiOdnEvrcneFPB79wI1Mff2sNbflg6gzZbmN9Jor62BXup8un +7gwfz1aecFyuj48EvmUFzjrB0cfmZf5r9fFCRYvE7kQnOLf9lPxdI308+bRz +urtuN1TZd/7WOKyPwj5Dpg6rd8HSQ5GVq+v0MaSwpGkSHSB+zl0zpkEfBVsa +FVerOABvkhH96YE+fqg1TfJjOMCXivmF2Y/10dw/J3j1mD1U8ZxJE3upjzbl +D7NsMu3BMSXkxOQHffT5Kae0f9YO0qr9Ne8JcnDrxJFgjwe2sGShF73NjoPP +Nv72fBNsDXkbgwLGHTjYtHS2OMXLGtYGxW9M3sXBmKcXBR0drGH7OLezZw8H +1/29/FVinTWc7ZqY3uvFwVDB6d/Gn3bAr9xgw4BQDlaNvL52zWoHvNJLfllQ +xMGvq9WdhjSswPNYXqZxKQdrdy1PjFS0gsnScrcRLgfzrDeH6ohZgRirZ0q9 +goNh2yu9H3+zBFN+OdnaOg5eu8OxTyuyhJqOgn0vOzmY8z5p82clSzARvqt6 +vIeDr6mve32XWELPlseTUn0cZF8TSRecbwk/q75GOb3loPCNYXn3IQtQzVEr ++fyFg3sq9U81XLWAmlcbjseOclD2zlqNmmQLMJHYAWvGOXhW4xXdGG4B7pHH +nvtNkPWeleqa3WsBP+vOZjB+cTDS94anirUFhM2k7q2a4eBx0aG0A5ssQFSj +UGX3Hw5eTXy2q0LDAq4cqpqYm+OgeHbIDRElC/gfp3btYA== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "PlotRange" -> {{0, 30}, {0., 0.07007934511853589}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13656,6 +14180,7 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -13683,7 +14208,8 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.16919668648256683`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07007934511853589}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -13691,17 +14217,580 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913483238131485`*^9}, + CellChangeTimes->{3.9913483238131485`*^9, 3.99426091386989*^9}, CellLabel-> - "Out[470]=",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] + "Out[140]=",ExpressionUUID->"ffb8be6d-8ec8-4ba1-9678-681f2f17f3e1"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"54d9c986-d109-3d4c-9ee8-\ -76427bb63659"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c4lu8XAHBf6hsRQl5kvM/rpUVRRsbrnFTKKCO7QsqoJEUDyUrIyCoj +ZYSS9T4VZZVRFNEyEw0qFdK3ECq/+/fXc32u6xnXfe5zzn0eyvWwlRsvDw+P +2D88PP+/Tg48fsCOyTNwZwm9s4vbYNBxRcp/Q08YDP3lNW6WZgIueeoq1ZME +2x+578uVVoPjFje6+XpygVvkXRYtjbB4jJE03X0TCltDTPZJW8Cbmu2Hf3Y3 +gKKKk8+olAsYsb/0f+9+AeyWpnCK4QPT3doXxrvfwxmu16lZkRBo3Hgt73nu +D5iLes47eCkBZN9UfnRV+QO21ZtlX7mkgYSX840FG/lQwWIuTf1GFiSpG1Vv +t+FH9iitFB5zFXrT1Oq+iy7CwZ3Lczm1BRCTF/yUV3oxmv46iZdeFwIjZTA6 ++bI4PmkNuaQXWwxSq8rP/CoQR5OEYxB6oRhkGs4G7+aKY8q+SKy/Ugzy4yuO +LWsUx+u9ljZqdDEomfm4VA+T+49KFrZ0FsO6eX+0BtdJ4J7zIr/H5ErA3E9y +aG2LBFLJRk1jhSUQaW1s8GJyCS7xl72Vwi0FmdvtMrz/SOL8+gWeYpWlUCpu +PaUuKIkS50Q0o+tLoeuFEzdRQRJtR7rFXV+UAtvSj2W5VRLHApJa636UQsO2 +rH+fpUui8DFjd3XNMvhjNNHeps/A85efDvbeLIOEgoCiP0YMDCm5I+RfVQbs +f3miVC0ZuAwrNBc3lIHZw4Ub4twYaPg3O0LleRlkbGTeMotnIM/ZPYtEvpXB +ejRNbX3DwKGlG6/WS3DBVyfH+XGYFFZeH0tPMuOCSbbwT9NYKVTJXe9/15wL +rAWnotovSKGqds7mPisuPOuwpV9el8Lpx7vzGQ5cWO0jxDfQLoUhTwqCDrpx +YbjgRMF/MtL4bEd+UHAQF3ZJbB9deksa+25wttsXcWFdYHXolRppFNhZV7y0 +lAsL3y+XpJqksTH0xmQflwuVZXyg3CuN+/lqzXZUcEHStDJBbU4a7fw388rV +k++HsjU2m8rgChnDdNkuLmz6NhPgPSiDYM1+9eQPF/y3pqysH5HB2ri5ZoqH +htIc1VfikzKoM/uh3peXBilrF51K/qXII2rySngBDSN3H07xrV6Kbjyd2ZQo +DclhCX7pJ5eiFm9/biVFw/slyt4PFskidYh94bYhDYzD9+UYDFmMfTBlVrSJ +BrNH9m37mbKY80dCMsuIhoqAGBWRdbLocUCwP8iEhnNvxr842Mti1sEVm6Ss +aFhbWO3xLVcWV955UVTnQkOovuUemfVyGNhWXvYukIatTlf+0zaUQ32rgPLL +QTQIh3wNtzGTwyyBk5a2wTRkNkYUJLjIYea6mm21YTTcNan6+m+0HOpMjbm6 +RtMwbq94/EevHNYN3nQWuEjDnQCfBYuH5HCNYMFsfCoNpzNr01aPyaHY2XqN +xek0CL21q97PK48HPlqGCGbSsMwjluftSnksdNQ8151Dg9OxiXNPAuWxYcK8 +u62YBqVUQ9kvEfLYUasdIlf6//idL1mQII/z+rF9fxkNAb9XPDPMk8d783p3 +/qJpuBDutKTyiTwmhRqZjVbQ8CSxOStfTgFb70X/1aoj8b4lod64TAHH5ifp +WdbT4Ni5p+GtugLmT1YoezbQMCz1e2ipkQKG6NwViH1AA1+22sokbwVcnnhS +vPgRDbql6bdP31fA7dcV6rY9o2FTd/ufsUcKOBLXPKz4nIbtPPO2OL9QQP0K +Oa0p4r1W3r3wQQH5j0zghZc0GAVSwSHzmbhjykm5rIuGVpGaq+sXMtFxR0i4 +dzcNFnm2j8aFmShadVVgVQ8NO9tiFu+RYmLd3LLkS700+ChMXt2wijzPfn7D +8TUNE7cSHk2vYeKPS9ed+fpJPLauGqU1mPiLl8+wkDjiiIsWy4CJW0zjE0cG +aMhobHnEa8lEY5nNXpbvaFCwdxutsmHiTMSxy4PEeSNzi30dmZgg28Xj+56G +siWaOwf3MtHPPcYlepCGBx5Zo43Hmfg6Oz8l5QMNxr91xE4FMnHFc3VP0Y80 +tCd0aGmEMNFtouloNHFvpUBIXjQTf0LEGt9PNIwJ+olFZDKxXqnZXukzDb7Z +wtqcHCZWxglOniP+pVG4cyKfiTd8dz0dJeZzGshzK2PiKO/N9UVfSD1xt2ob +NTCxtULj17wRGi5vGtz5t4mJQn/eRloTs3qDQipaSbz0m+1ziFV5bz1W7mTi +oeKhurWjNNy8uG1soJeJUr+8HU4Qr181LJY6wMSnvr2alcSG1nK7FgwzsVHj +d43GGA3Nw3dC7o8w0aRYaL83sVmQVf6J70y8fKdkZz6xXUHk2KcZJr7pt2cI +fqPhtS5LPHuOiWYade90iF2f1mjbz6PwZsrRCTdir1/fQx4tojCs2X+2nFj3 +iLvkRzEKrTr8O14T8395VcQnReHRgcgQnnEaulzNN1ByFN6KiuShiPP7GrsM +WBQKme+2MSD2s17vtWsZhT8ixoLtiQ3biv8JUKGw2oEKPUwsakSlpqpT+Lnt +tUM48cC9CyrlWhReqeEXTCEu1l7Y8EKPwk+dcRdyiAO4p+3GkUIqy2amiHjr +ih8ji4wo3HbURPcWsWSuR9gqUwoPB9nZ3iEeknnNMLag8Eu9p/ld4pvJFiXu +NhR2ix9UriAOEXpoeMaRQndps9dcYvMInZ4cZwrVTGaOXCeW/1ty6P4+Ci+M +7RvOJB45zuLr308hQ+EUxhNXfbuYNuNNIbdRLfAUcZSn4GopP/J8sl+6B7Ht +u+BGTX8KE8R0M82J2Y4/7XecptAyxe+MBvF/LzzHfMIpfKYttUOSuM60Pzw+ +iqx/WFpggsQ7/oGldHEche93H772jHgXp6n0cRKFmdIiawqJV1bobvqUSqGE +53j2aeLp1WW98y5TqOQs+NeC+NE1xcOsXApT++23MIkvMtPm4TUKD517ETRC +8mOtWOiaQJrCl+MaFYHEPDETD9IqKHzeJ1FlQNzOd8CxoprCh7YiZX9J/h2c +sIr4/pDCc69MfI4R63o3y4i0UrhPP9pAhZj/kx5X5RmFPwde//OW5HdeD7vP +4xWFUpNNBw2Ij1qm+0S8oZCvy0Xi81casGXRv1eHKJxslaxIIO6vnlQbGKOQ +d/HH4S5ST5JZj85a87HIeZ6/HEi9DTE4skf5WVjTXlLxfJjsZwJNn1/EQs5b +PqM9xOZhGa9bGCzcrXbf6wSp5yg3r7UbVFio4lc4FUz6ge3A22YndRZ+GTEv +mRki+2Fns/uUFgvDB696HSWu22oQdQdZeLs9UciB9JPpVaIDqjYs/By48xsv +6T+Tl2VC1zmyMI5nx4TnWxp+iiixdZxZGNFctPzJG9I/fugc2LSfhRXi6UvP +kX72vnrvpGMQCxc2qJoP9dHQYnpHOCqfhWkL8zrFSH9trq2n426wsJrRomrW +SfrXmifWyWUsTPeYbgzroOGe+LuMK5UsbJe7VfrpBVlv38Jl5W0svKV6+FLC +U9IvDzrB+wkWJhR1NTiT/p/a7/n+0wwLUxPXnjrUTEOKuW/E6BwL1cJ6zpxs +Ivm0Lqr1l4Airs92jzpLzo+wWdpORF4Ro896nAgj58/BmPk++kaK6Hovd3Tm +Dg36RcXZFy8qou7Iz6WTeTT0MYuyNl9SRINau+mHV0k9Xiy88jNLEdv1JbKS +c8n5GlqQaVVI3ufuvGV5Nskv++w04RpFfGZQoaR9iYYV81MSzr5TRGkls7Gv +CWR/nQNDjquw8ZD/Ss+7ATSUd/gHK6mzsW1v08qN/jRYm5w83aHJxlibmI7W +EzQkaR47tRbYyHoS/K7Lj4ZFQodPjlmy0W4D9/dLbxrmVbr6uJ9g43CmqORB +Vxq+i5m42Daw8TBd80J8Kw09XqxnB5rZ2OG+TGc9mU/qmmYg+Akb4xRfbnMk +80tCQJHC9S42XmIwI1ORBrX3Qm+mv7CxJ5jPaXI9Dd70092XxZVw2i273mgF +DV/MbXYO7VPCSotFF/X4SX7GutgeXaCMu6oeCdXd54L3FxWWmpAyGtlou4TX +cmFqy/ToqKgyflAt+bWpmsx7fEkR+2WUUTde7k8Dme/U/Btvu6gqYygP5Xuj +hAtBbsri5juU0WM2XWj5JTL/GYw8XZWljJ5ifg0f/Lhg/O2E8QetZdj9uHCs +UJELI3v5fW8HL8d/EuP/PqkrJf8fDN7IhhXIXR4TbsgoAbE25Xjut5XY1tDT +sNC7CGSjyiy0tFRQ5VR8yvzYQkhbpSMq7qGKP/7d31J+7xq0yGzQ/JG4GnOy +uvSUp/JBV7YhYU3XGhw0iH0fKJQHwny5fnvC1DA7PXrkrWkuyIcq6DsoqyPn +/XpL/2PZIKC0q8KqWR1F1bY6FJ+8DKs50mUndq/FTp5+802HMuDogFijCc86 +XLjxKl+TdSp8+xFrY5y2Dmmvu4zH+SmwZU1ThrGqBj4IMOXGaSfBvR96s1Pt +Gtj22/9vdeZ58FZZ++q5myYahvVxZ6NigDO2r8NBQAs3ZBx5x0qIhM1sqW2L +crXQbFjh2PSGM7A85NzJBm1tDOvr71rhEgor3XTuK73SxjYlX78fEARu9zzP +3D6yHjuv+cpHPDgJ97M79n1fooObUoNk7c77wc/rc1Nr7ujgutD4gv75R2Cv +UpFAxjZdfNvum1To5gXfVyZr3RzXRevgQQWmugfczZt9NxGlh7x9+af5pfaC +1ka/KZMYPbxm13DPTGAvlL8bEcqO00Ov+Rd7M2Zc4ab8gLZJkh4KmXqds+53 +heK0urgrl/Rwc/kRI85VV8iOjdDZUqqHJtFqGW/UXCHaTyQx7SV5X+28jI07 +9oDjJkXUk9fHiOdnEvrcneFPB79wI1Mff2sNbflg6gzZbmN9Jor62BXup8un +7gwfz1aecFyuj48EvmUFzjrB0cfmZf5r9fFCRYvE7kQnOLf9lPxdI308+bRz +urtuN1TZd/7WOKyPwj5Dpg6rd8HSQ5GVq+v0MaSwpGkSHSB+zl0zpkEfBVsa +FVerOABvkhH96YE+fqg1TfJjOMCXivmF2Y/10dw/J3j1mD1U8ZxJE3upjzbl +D7NsMu3BMSXkxOQHffT5Kae0f9YO0qr9Ne8JcnDrxJFgjwe2sGShF73NjoPP +Nv72fBNsDXkbgwLGHTjYtHS2OMXLGtYGxW9M3sXBmKcXBR0drGH7OLezZw8H +1/29/FVinTWc7ZqY3uvFwVDB6d/Gn3bAr9xgw4BQDlaNvL52zWoHvNJLfllQ +xMGvq9WdhjSswPNYXqZxKQdrdy1PjFS0gsnScrcRLgfzrDeH6ohZgRirZ0q9 +goNh2yu9H3+zBFN+OdnaOg5eu8OxTyuyhJqOgn0vOzmY8z5p82clSzARvqt6 +vIeDr6mve32XWELPlseTUn0cZF8TSRecbwk/q75GOb3loPCNYXn3IQtQzVEr ++fyFg3sq9U81XLWAmlcbjseOclD2zlqNmmQLMJHYAWvGOXhW4xXdGG4B7pHH +nvtNkPWeleqa3WsBP+vOZjB+cTDS94anirUFhM2k7q2a4eBx0aG0A5ssQFSj +UGX3Hw5eTXy2q0LDAq4cqpqYm+OgeHbIDRElC/gfp3btYA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c4lu8XAHBf6hsRQl5kvM/rpUVRRsbrnFTKKCO7QsqoJEUDyUrIyCoj +ZYSS9T4VZZVRFNEyEw0qFdK3ECq/+/fXc32u6xnXfe5zzn0eyvWwlRsvDw+P +2D88PP+/Tg48fsCOyTNwZwm9s4vbYNBxRcp/Q08YDP3lNW6WZgIueeoq1ZME +2x+578uVVoPjFje6+XpygVvkXRYtjbB4jJE03X0TCltDTPZJW8Cbmu2Hf3Y3 +gKKKk8+olAsYsb/0f+9+AeyWpnCK4QPT3doXxrvfwxmu16lZkRBo3Hgt73nu +D5iLes47eCkBZN9UfnRV+QO21ZtlX7mkgYSX840FG/lQwWIuTf1GFiSpG1Vv +t+FH9iitFB5zFXrT1Oq+iy7CwZ3Lczm1BRCTF/yUV3oxmv46iZdeFwIjZTA6 ++bI4PmkNuaQXWwxSq8rP/CoQR5OEYxB6oRhkGs4G7+aKY8q+SKy/Ugzy4yuO +LWsUx+u9ljZqdDEomfm4VA+T+49KFrZ0FsO6eX+0BtdJ4J7zIr/H5ErA3E9y +aG2LBFLJRk1jhSUQaW1s8GJyCS7xl72Vwi0FmdvtMrz/SOL8+gWeYpWlUCpu +PaUuKIkS50Q0o+tLoeuFEzdRQRJtR7rFXV+UAtvSj2W5VRLHApJa636UQsO2 +rH+fpUui8DFjd3XNMvhjNNHeps/A85efDvbeLIOEgoCiP0YMDCm5I+RfVQbs +f3miVC0ZuAwrNBc3lIHZw4Ub4twYaPg3O0LleRlkbGTeMotnIM/ZPYtEvpXB +ejRNbX3DwKGlG6/WS3DBVyfH+XGYFFZeH0tPMuOCSbbwT9NYKVTJXe9/15wL +rAWnotovSKGqds7mPisuPOuwpV9el8Lpx7vzGQ5cWO0jxDfQLoUhTwqCDrpx +YbjgRMF/MtL4bEd+UHAQF3ZJbB9deksa+25wttsXcWFdYHXolRppFNhZV7y0 +lAsL3y+XpJqksTH0xmQflwuVZXyg3CuN+/lqzXZUcEHStDJBbU4a7fw388rV +k++HsjU2m8rgChnDdNkuLmz6NhPgPSiDYM1+9eQPF/y3pqysH5HB2ri5ZoqH +htIc1VfikzKoM/uh3peXBilrF51K/qXII2rySngBDSN3H07xrV6Kbjyd2ZQo +DclhCX7pJ5eiFm9/biVFw/slyt4PFskidYh94bYhDYzD9+UYDFmMfTBlVrSJ +BrNH9m37mbKY80dCMsuIhoqAGBWRdbLocUCwP8iEhnNvxr842Mti1sEVm6Ss +aFhbWO3xLVcWV955UVTnQkOovuUemfVyGNhWXvYukIatTlf+0zaUQ32rgPLL +QTQIh3wNtzGTwyyBk5a2wTRkNkYUJLjIYea6mm21YTTcNan6+m+0HOpMjbm6 +RtMwbq94/EevHNYN3nQWuEjDnQCfBYuH5HCNYMFsfCoNpzNr01aPyaHY2XqN +xek0CL21q97PK48HPlqGCGbSsMwjluftSnksdNQ8151Dg9OxiXNPAuWxYcK8 +u62YBqVUQ9kvEfLYUasdIlf6//idL1mQII/z+rF9fxkNAb9XPDPMk8d783p3 +/qJpuBDutKTyiTwmhRqZjVbQ8CSxOStfTgFb70X/1aoj8b4lod64TAHH5ifp +WdbT4Ni5p+GtugLmT1YoezbQMCz1e2ipkQKG6NwViH1AA1+22sokbwVcnnhS +vPgRDbql6bdP31fA7dcV6rY9o2FTd/ufsUcKOBLXPKz4nIbtPPO2OL9QQP0K +Oa0p4r1W3r3wQQH5j0zghZc0GAVSwSHzmbhjykm5rIuGVpGaq+sXMtFxR0i4 +dzcNFnm2j8aFmShadVVgVQ8NO9tiFu+RYmLd3LLkS700+ChMXt2wijzPfn7D +8TUNE7cSHk2vYeKPS9ed+fpJPLauGqU1mPiLl8+wkDjiiIsWy4CJW0zjE0cG +aMhobHnEa8lEY5nNXpbvaFCwdxutsmHiTMSxy4PEeSNzi30dmZgg28Xj+56G +siWaOwf3MtHPPcYlepCGBx5Zo43Hmfg6Oz8l5QMNxr91xE4FMnHFc3VP0Y80 +tCd0aGmEMNFtouloNHFvpUBIXjQTf0LEGt9PNIwJ+olFZDKxXqnZXukzDb7Z +wtqcHCZWxglOniP+pVG4cyKfiTd8dz0dJeZzGshzK2PiKO/N9UVfSD1xt2ob +NTCxtULj17wRGi5vGtz5t4mJQn/eRloTs3qDQipaSbz0m+1ziFV5bz1W7mTi +oeKhurWjNNy8uG1soJeJUr+8HU4Qr181LJY6wMSnvr2alcSG1nK7FgwzsVHj +d43GGA3Nw3dC7o8w0aRYaL83sVmQVf6J70y8fKdkZz6xXUHk2KcZJr7pt2cI +fqPhtS5LPHuOiWYade90iF2f1mjbz6PwZsrRCTdir1/fQx4tojCs2X+2nFj3 +iLvkRzEKrTr8O14T8395VcQnReHRgcgQnnEaulzNN1ByFN6KiuShiPP7GrsM +WBQKme+2MSD2s17vtWsZhT8ixoLtiQ3biv8JUKGw2oEKPUwsakSlpqpT+Lnt +tUM48cC9CyrlWhReqeEXTCEu1l7Y8EKPwk+dcRdyiAO4p+3GkUIqy2amiHjr +ih8ji4wo3HbURPcWsWSuR9gqUwoPB9nZ3iEeknnNMLag8Eu9p/ld4pvJFiXu +NhR2ix9UriAOEXpoeMaRQndps9dcYvMInZ4cZwrVTGaOXCeW/1ty6P4+Ci+M +7RvOJB45zuLr308hQ+EUxhNXfbuYNuNNIbdRLfAUcZSn4GopP/J8sl+6B7Ht +u+BGTX8KE8R0M82J2Y4/7XecptAyxe+MBvF/LzzHfMIpfKYttUOSuM60Pzw+ +iqx/WFpggsQ7/oGldHEche93H772jHgXp6n0cRKFmdIiawqJV1bobvqUSqGE +53j2aeLp1WW98y5TqOQs+NeC+NE1xcOsXApT++23MIkvMtPm4TUKD517ETRC +8mOtWOiaQJrCl+MaFYHEPDETD9IqKHzeJ1FlQNzOd8CxoprCh7YiZX9J/h2c +sIr4/pDCc69MfI4R63o3y4i0UrhPP9pAhZj/kx5X5RmFPwde//OW5HdeD7vP +4xWFUpNNBw2Ij1qm+0S8oZCvy0Xi81casGXRv1eHKJxslaxIIO6vnlQbGKOQ +d/HH4S5ST5JZj85a87HIeZ6/HEi9DTE4skf5WVjTXlLxfJjsZwJNn1/EQs5b +PqM9xOZhGa9bGCzcrXbf6wSp5yg3r7UbVFio4lc4FUz6ge3A22YndRZ+GTEv +mRki+2Fns/uUFgvDB696HSWu22oQdQdZeLs9UciB9JPpVaIDqjYs/By48xsv +6T+Tl2VC1zmyMI5nx4TnWxp+iiixdZxZGNFctPzJG9I/fugc2LSfhRXi6UvP +kX72vnrvpGMQCxc2qJoP9dHQYnpHOCqfhWkL8zrFSH9trq2n426wsJrRomrW +SfrXmifWyWUsTPeYbgzroOGe+LuMK5UsbJe7VfrpBVlv38Jl5W0svKV6+FLC +U9IvDzrB+wkWJhR1NTiT/p/a7/n+0wwLUxPXnjrUTEOKuW/E6BwL1cJ6zpxs +Ivm0Lqr1l4Airs92jzpLzo+wWdpORF4Ro896nAgj58/BmPk++kaK6Hovd3Tm +Dg36RcXZFy8qou7Iz6WTeTT0MYuyNl9SRINau+mHV0k9Xiy88jNLEdv1JbKS +c8n5GlqQaVVI3ufuvGV5Nskv++w04RpFfGZQoaR9iYYV81MSzr5TRGkls7Gv +CWR/nQNDjquw8ZD/Ss+7ATSUd/gHK6mzsW1v08qN/jRYm5w83aHJxlibmI7W +EzQkaR47tRbYyHoS/K7Lj4ZFQodPjlmy0W4D9/dLbxrmVbr6uJ9g43CmqORB +Vxq+i5m42Daw8TBd80J8Kw09XqxnB5rZ2OG+TGc9mU/qmmYg+Akb4xRfbnMk +80tCQJHC9S42XmIwI1ORBrX3Qm+mv7CxJ5jPaXI9Dd70092XxZVw2i273mgF +DV/MbXYO7VPCSotFF/X4SX7GutgeXaCMu6oeCdXd54L3FxWWmpAyGtlou4TX +cmFqy/ToqKgyflAt+bWpmsx7fEkR+2WUUTde7k8Dme/U/Btvu6gqYygP5Xuj +hAtBbsri5juU0WM2XWj5JTL/GYw8XZWljJ5ifg0f/Lhg/O2E8QetZdj9uHCs +UJELI3v5fW8HL8d/EuP/PqkrJf8fDN7IhhXIXR4TbsgoAbE25Xjut5XY1tDT +sNC7CGSjyiy0tFRQ5VR8yvzYQkhbpSMq7qGKP/7d31J+7xq0yGzQ/JG4GnOy +uvSUp/JBV7YhYU3XGhw0iH0fKJQHwny5fnvC1DA7PXrkrWkuyIcq6DsoqyPn +/XpL/2PZIKC0q8KqWR1F1bY6FJ+8DKs50mUndq/FTp5+802HMuDogFijCc86 +XLjxKl+TdSp8+xFrY5y2Dmmvu4zH+SmwZU1ThrGqBj4IMOXGaSfBvR96s1Pt +Gtj22/9vdeZ58FZZ++q5myYahvVxZ6NigDO2r8NBQAs3ZBx5x0qIhM1sqW2L +crXQbFjh2PSGM7A85NzJBm1tDOvr71rhEgor3XTuK73SxjYlX78fEARu9zzP +3D6yHjuv+cpHPDgJ97M79n1fooObUoNk7c77wc/rc1Nr7ujgutD4gv75R2Cv +UpFAxjZdfNvum1To5gXfVyZr3RzXRevgQQWmugfczZt9NxGlh7x9+af5pfaC +1ka/KZMYPbxm13DPTGAvlL8bEcqO00Ov+Rd7M2Zc4ab8gLZJkh4KmXqds+53 +heK0urgrl/Rwc/kRI85VV8iOjdDZUqqHJtFqGW/UXCHaTyQx7SV5X+28jI07 +9oDjJkXUk9fHiOdnEvrcneFPB79wI1Mff2sNbflg6gzZbmN9Jor62BXup8un +7gwfz1aecFyuj48EvmUFzjrB0cfmZf5r9fFCRYvE7kQnOLf9lPxdI308+bRz +urtuN1TZd/7WOKyPwj5Dpg6rd8HSQ5GVq+v0MaSwpGkSHSB+zl0zpkEfBVsa +FVerOABvkhH96YE+fqg1TfJjOMCXivmF2Y/10dw/J3j1mD1U8ZxJE3upjzbl +D7NsMu3BMSXkxOQHffT5Kae0f9YO0qr9Ne8JcnDrxJFgjwe2sGShF73NjoPP +Nv72fBNsDXkbgwLGHTjYtHS2OMXLGtYGxW9M3sXBmKcXBR0drGH7OLezZw8H +1/29/FVinTWc7ZqY3uvFwVDB6d/Gn3bAr9xgw4BQDlaNvL52zWoHvNJLfllQ +xMGvq9WdhjSswPNYXqZxKQdrdy1PjFS0gsnScrcRLgfzrDeH6ohZgRirZ0q9 +goNh2yu9H3+zBFN+OdnaOg5eu8OxTyuyhJqOgn0vOzmY8z5p82clSzARvqt6 +vIeDr6mve32XWELPlseTUn0cZF8TSRecbwk/q75GOb3loPCNYXn3IQtQzVEr ++fyFg3sq9U81XLWAmlcbjseOclD2zlqNmmQLMJHYAWvGOXhW4xXdGG4B7pHH +nvtNkPWeleqa3WsBP+vOZjB+cTDS94anirUFhM2k7q2a4eBx0aG0A5ssQFSj +UGX3Hw5eTXy2q0LDAq4cqpqYm+OgeHbIDRElC/gfp3btYA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07007934511853589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07007934511853589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c4lu8XAHBf6hsRQl5kvM/rpUVRRsbrnFTKKCO7QsqoJEUDyUrIyCoj +ZYSS9T4VZZVRFNEyEw0qFdK3ECq/+/fXc32u6xnXfe5zzn0eyvWwlRsvDw+P +2D88PP+/Tg48fsCOyTNwZwm9s4vbYNBxRcp/Q08YDP3lNW6WZgIueeoq1ZME +2x+578uVVoPjFje6+XpygVvkXRYtjbB4jJE03X0TCltDTPZJW8Cbmu2Hf3Y3 +gKKKk8+olAsYsb/0f+9+AeyWpnCK4QPT3doXxrvfwxmu16lZkRBo3Hgt73nu +D5iLes47eCkBZN9UfnRV+QO21ZtlX7mkgYSX840FG/lQwWIuTf1GFiSpG1Vv +t+FH9iitFB5zFXrT1Oq+iy7CwZ3Lczm1BRCTF/yUV3oxmv46iZdeFwIjZTA6 ++bI4PmkNuaQXWwxSq8rP/CoQR5OEYxB6oRhkGs4G7+aKY8q+SKy/Ugzy4yuO +LWsUx+u9ljZqdDEomfm4VA+T+49KFrZ0FsO6eX+0BtdJ4J7zIr/H5ErA3E9y +aG2LBFLJRk1jhSUQaW1s8GJyCS7xl72Vwi0FmdvtMrz/SOL8+gWeYpWlUCpu +PaUuKIkS50Q0o+tLoeuFEzdRQRJtR7rFXV+UAtvSj2W5VRLHApJa636UQsO2 +rH+fpUui8DFjd3XNMvhjNNHeps/A85efDvbeLIOEgoCiP0YMDCm5I+RfVQbs +f3miVC0ZuAwrNBc3lIHZw4Ub4twYaPg3O0LleRlkbGTeMotnIM/ZPYtEvpXB +ejRNbX3DwKGlG6/WS3DBVyfH+XGYFFZeH0tPMuOCSbbwT9NYKVTJXe9/15wL +rAWnotovSKGqds7mPisuPOuwpV9el8Lpx7vzGQ5cWO0jxDfQLoUhTwqCDrpx +YbjgRMF/MtL4bEd+UHAQF3ZJbB9deksa+25wttsXcWFdYHXolRppFNhZV7y0 +lAsL3y+XpJqksTH0xmQflwuVZXyg3CuN+/lqzXZUcEHStDJBbU4a7fw388rV +k++HsjU2m8rgChnDdNkuLmz6NhPgPSiDYM1+9eQPF/y3pqysH5HB2ri5ZoqH +htIc1VfikzKoM/uh3peXBilrF51K/qXII2rySngBDSN3H07xrV6Kbjyd2ZQo +DclhCX7pJ5eiFm9/biVFw/slyt4PFskidYh94bYhDYzD9+UYDFmMfTBlVrSJ +BrNH9m37mbKY80dCMsuIhoqAGBWRdbLocUCwP8iEhnNvxr842Mti1sEVm6Ss +aFhbWO3xLVcWV955UVTnQkOovuUemfVyGNhWXvYukIatTlf+0zaUQ32rgPLL +QTQIh3wNtzGTwyyBk5a2wTRkNkYUJLjIYea6mm21YTTcNan6+m+0HOpMjbm6 +RtMwbq94/EevHNYN3nQWuEjDnQCfBYuH5HCNYMFsfCoNpzNr01aPyaHY2XqN +xek0CL21q97PK48HPlqGCGbSsMwjluftSnksdNQ8151Dg9OxiXNPAuWxYcK8 +u62YBqVUQ9kvEfLYUasdIlf6//idL1mQII/z+rF9fxkNAb9XPDPMk8d783p3 +/qJpuBDutKTyiTwmhRqZjVbQ8CSxOStfTgFb70X/1aoj8b4lod64TAHH5ifp +WdbT4Ni5p+GtugLmT1YoezbQMCz1e2ipkQKG6NwViH1AA1+22sokbwVcnnhS +vPgRDbql6bdP31fA7dcV6rY9o2FTd/ufsUcKOBLXPKz4nIbtPPO2OL9QQP0K +Oa0p4r1W3r3wQQH5j0zghZc0GAVSwSHzmbhjykm5rIuGVpGaq+sXMtFxR0i4 +dzcNFnm2j8aFmShadVVgVQ8NO9tiFu+RYmLd3LLkS700+ChMXt2wijzPfn7D +8TUNE7cSHk2vYeKPS9ed+fpJPLauGqU1mPiLl8+wkDjiiIsWy4CJW0zjE0cG +aMhobHnEa8lEY5nNXpbvaFCwdxutsmHiTMSxy4PEeSNzi30dmZgg28Xj+56G +siWaOwf3MtHPPcYlepCGBx5Zo43Hmfg6Oz8l5QMNxr91xE4FMnHFc3VP0Y80 +tCd0aGmEMNFtouloNHFvpUBIXjQTf0LEGt9PNIwJ+olFZDKxXqnZXukzDb7Z +wtqcHCZWxglOniP+pVG4cyKfiTd8dz0dJeZzGshzK2PiKO/N9UVfSD1xt2ob +NTCxtULj17wRGi5vGtz5t4mJQn/eRloTs3qDQipaSbz0m+1ziFV5bz1W7mTi +oeKhurWjNNy8uG1soJeJUr+8HU4Qr181LJY6wMSnvr2alcSG1nK7FgwzsVHj +d43GGA3Nw3dC7o8w0aRYaL83sVmQVf6J70y8fKdkZz6xXUHk2KcZJr7pt2cI +fqPhtS5LPHuOiWYade90iF2f1mjbz6PwZsrRCTdir1/fQx4tojCs2X+2nFj3 +iLvkRzEKrTr8O14T8395VcQnReHRgcgQnnEaulzNN1ByFN6KiuShiPP7GrsM +WBQKme+2MSD2s17vtWsZhT8ixoLtiQ3biv8JUKGw2oEKPUwsakSlpqpT+Lnt +tUM48cC9CyrlWhReqeEXTCEu1l7Y8EKPwk+dcRdyiAO4p+3GkUIqy2amiHjr +ih8ji4wo3HbURPcWsWSuR9gqUwoPB9nZ3iEeknnNMLag8Eu9p/ld4pvJFiXu +NhR2ix9UriAOEXpoeMaRQndps9dcYvMInZ4cZwrVTGaOXCeW/1ty6P4+Ci+M +7RvOJB45zuLr308hQ+EUxhNXfbuYNuNNIbdRLfAUcZSn4GopP/J8sl+6B7Ht +u+BGTX8KE8R0M82J2Y4/7XecptAyxe+MBvF/LzzHfMIpfKYttUOSuM60Pzw+ +iqx/WFpggsQ7/oGldHEche93H772jHgXp6n0cRKFmdIiawqJV1bobvqUSqGE +53j2aeLp1WW98y5TqOQs+NeC+NE1xcOsXApT++23MIkvMtPm4TUKD517ETRC +8mOtWOiaQJrCl+MaFYHEPDETD9IqKHzeJ1FlQNzOd8CxoprCh7YiZX9J/h2c +sIr4/pDCc69MfI4R63o3y4i0UrhPP9pAhZj/kx5X5RmFPwde//OW5HdeD7vP +4xWFUpNNBw2Ij1qm+0S8oZCvy0Xi81casGXRv1eHKJxslaxIIO6vnlQbGKOQ +d/HH4S5ST5JZj85a87HIeZ6/HEi9DTE4skf5WVjTXlLxfJjsZwJNn1/EQs5b +PqM9xOZhGa9bGCzcrXbf6wSp5yg3r7UbVFio4lc4FUz6ge3A22YndRZ+GTEv +mRki+2Fns/uUFgvDB696HSWu22oQdQdZeLs9UciB9JPpVaIDqjYs/By48xsv +6T+Tl2VC1zmyMI5nx4TnWxp+iiixdZxZGNFctPzJG9I/fugc2LSfhRXi6UvP +kX72vnrvpGMQCxc2qJoP9dHQYnpHOCqfhWkL8zrFSH9trq2n426wsJrRomrW +SfrXmifWyWUsTPeYbgzroOGe+LuMK5UsbJe7VfrpBVlv38Jl5W0svKV6+FLC +U9IvDzrB+wkWJhR1NTiT/p/a7/n+0wwLUxPXnjrUTEOKuW/E6BwL1cJ6zpxs +Ivm0Lqr1l4Airs92jzpLzo+wWdpORF4Ro896nAgj58/BmPk++kaK6Hovd3Tm +Dg36RcXZFy8qou7Iz6WTeTT0MYuyNl9SRINau+mHV0k9Xiy88jNLEdv1JbKS +c8n5GlqQaVVI3ufuvGV5Nskv++w04RpFfGZQoaR9iYYV81MSzr5TRGkls7Gv +CWR/nQNDjquw8ZD/Ss+7ATSUd/gHK6mzsW1v08qN/jRYm5w83aHJxlibmI7W +EzQkaR47tRbYyHoS/K7Lj4ZFQodPjlmy0W4D9/dLbxrmVbr6uJ9g43CmqORB +Vxq+i5m42Daw8TBd80J8Kw09XqxnB5rZ2OG+TGc9mU/qmmYg+Akb4xRfbnMk +80tCQJHC9S42XmIwI1ORBrX3Qm+mv7CxJ5jPaXI9Dd70092XxZVw2i273mgF +DV/MbXYO7VPCSotFF/X4SX7GutgeXaCMu6oeCdXd54L3FxWWmpAyGtlou4TX +cmFqy/ToqKgyflAt+bWpmsx7fEkR+2WUUTde7k8Dme/U/Btvu6gqYygP5Xuj +hAtBbsri5juU0WM2XWj5JTL/GYw8XZWljJ5ifg0f/Lhg/O2E8QetZdj9uHCs +UJELI3v5fW8HL8d/EuP/PqkrJf8fDN7IhhXIXR4TbsgoAbE25Xjut5XY1tDT +sNC7CGSjyiy0tFRQ5VR8yvzYQkhbpSMq7qGKP/7d31J+7xq0yGzQ/JG4GnOy +uvSUp/JBV7YhYU3XGhw0iH0fKJQHwny5fnvC1DA7PXrkrWkuyIcq6DsoqyPn +/XpL/2PZIKC0q8KqWR1F1bY6FJ+8DKs50mUndq/FTp5+802HMuDogFijCc86 +XLjxKl+TdSp8+xFrY5y2Dmmvu4zH+SmwZU1ThrGqBj4IMOXGaSfBvR96s1Pt +Gtj22/9vdeZ58FZZ++q5myYahvVxZ6NigDO2r8NBQAs3ZBx5x0qIhM1sqW2L +crXQbFjh2PSGM7A85NzJBm1tDOvr71rhEgor3XTuK73SxjYlX78fEARu9zzP +3D6yHjuv+cpHPDgJ97M79n1fooObUoNk7c77wc/rc1Nr7ujgutD4gv75R2Cv +UpFAxjZdfNvum1To5gXfVyZr3RzXRevgQQWmugfczZt9NxGlh7x9+af5pfaC +1ka/KZMYPbxm13DPTGAvlL8bEcqO00Ov+Rd7M2Zc4ab8gLZJkh4KmXqds+53 +heK0urgrl/Rwc/kRI85VV8iOjdDZUqqHJtFqGW/UXCHaTyQx7SV5X+28jI07 +9oDjJkXUk9fHiOdnEvrcneFPB79wI1Mff2sNbflg6gzZbmN9Jor62BXup8un +7gwfz1aecFyuj48EvmUFzjrB0cfmZf5r9fFCRYvE7kQnOLf9lPxdI308+bRz +urtuN1TZd/7WOKyPwj5Dpg6rd8HSQ5GVq+v0MaSwpGkSHSB+zl0zpkEfBVsa +FVerOABvkhH96YE+fqg1TfJjOMCXivmF2Y/10dw/J3j1mD1U8ZxJE3upjzbl +D7NsMu3BMSXkxOQHffT5Kae0f9YO0qr9Ne8JcnDrxJFgjwe2sGShF73NjoPP +Nv72fBNsDXkbgwLGHTjYtHS2OMXLGtYGxW9M3sXBmKcXBR0drGH7OLezZw8H +1/29/FVinTWc7ZqY3uvFwVDB6d/Gn3bAr9xgw4BQDlaNvL52zWoHvNJLfllQ +xMGvq9WdhjSswPNYXqZxKQdrdy1PjFS0gsnScrcRLgfzrDeH6ohZgRirZ0q9 +goNh2yu9H3+zBFN+OdnaOg5eu8OxTyuyhJqOgn0vOzmY8z5p82clSzARvqt6 +vIeDr6mve32XWELPlseTUn0cZF8TSRecbwk/q75GOb3loPCNYXn3IQtQzVEr ++fyFg3sq9U81XLWAmlcbjseOclD2zlqNmmQLMJHYAWvGOXhW4xXdGG4B7pHH +nvtNkPWeleqa3WsBP+vOZjB+cTDS94anirUFhM2k7q2a4eBx0aG0A5ssQFSj +UGX3Hw5eTXy2q0LDAq4cqpqYm+OgeHbIDRElC/gfp3btYA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07007934511853589}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN/lm0IcnQttYfwPti/U/IJ1Ovth/IZHC5GXXxm +sX0mlM/hoOy7h9kmcyGUL+Dw/N+rwvtZS6F8EYfXsnntbUdXQPkSDh9+JrZ8 +yFgN5cs4LNSpqV3rvRbKV3CY4t+fK1mwDspXcojf9DGh+y6Mr+Jwqlcpm3cp +jK/mMPNrkob6LZh+DQdZG+FZKtPWQPlaDltecjxI+7gKytdxyEqfcSuIfSWU +r+eQsd5O7te7ZVC+gcN7JlVWsQNLoHxDB6VlLkJ7exZB+UYOJy7KRP5MXQDl +Gzs8Y73hvnzdHCjfxEHzXKD78aszoHxTh6cfPNWFfKZC+WYOlm6b3FdIToLy +zR3YN3Ma6NT3QfkWDi8T/s4/XNMJ5Vs6sEoyivYptEL5Vg4Hu/c1mSQ3QvnW +DilsWo/vp9dA+TYOJ95O9w/jKYfybR2uJLZG200qgvLtHLp7+DwO7cu1BwCC +goL6 + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060284}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07007934511853589}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994260913933835*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"d7c61bf0-6bc5-48a7-aa5e-919daaf674c1"] +}, Open ]], Cell[CellGroupData[{ @@ -13751,18 +14840,75 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], - RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ -UUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[142]:=",ExpressionUUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"9e6d6a70-ad75-9b40-8a0b-ca802f09d5a2"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.260831210454722`*^-158\\\", \ +RowBox[{\\\"164243120455479739170682508554789627978\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"75\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4724542670438400000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 73, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260913972919*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"2877665a-0e93-40d3-9d78-5cede5a90228"], -Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0931460023425702`*^-160\\\", \ +RowBox[{\\\"552513857212233842570175958778312308519\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"78\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3361543354777600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 74, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260913980001*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"9ad56522-3112-4919-a626-0a492cd0371d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9086414283811242`*^-163\\\", \ +RowBox[{\\\"192330073695578600598678251250730514595\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"82\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1532417980825600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 75, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260913987286*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"8a347b03-c9f8-4fa4-b298-476bcce95d75"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 142, 76, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260913993527*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"6424d05b-2792-4171-a412-39d4cd3fd2d6"], + +Cell[BoxData["10.94552325975761`"], "Output", + CellChangeTimes->{3.994260956649316*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"419d8568-4bdf-4654-9f5f-9a56b3c4a223"] }, Open ]], Cell[CellGroupData[{ @@ -13829,27 +14975,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850391956293*^9, - 3.9918503966918755`*^9}},ExpressionUUID->"a3e3d205-e3b4-874a-a36c-\ -53cfa72184b4"], + CellChangeTimes->{{3.991850391956293*^9, 3.9918503966918755`*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"a3e3d205-e3b4-874a-a36c-53cfa72184b4"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"9e9d949e-1d4c-8649-8d0e-b7deecfb3ba4"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9498056700061646`*^-212\\\", \ +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 77, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260956689231*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"8638f74e-ed8d-44c1-8aba-5aef331b8fef"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"76f8ef60-aab6-7442-aeca-4cebad23cb0e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7753207813199458`*^-217\\\", \ +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 78, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260956697403*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"4da0a9dc-859e-4180-85af-0d66e1170f76"], -Cell[BoxData["1.0713232818739324`"], "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.616450257105108`*^-222\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 79, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942609567057467`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"eb5384e6-7d12-4196-8070-15f1ce032397"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 80, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99426095671259*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"a9127502-ed87-486a-868f-15f28692d661"], + +Cell[BoxData["0.3411822030561852`"], "Output", + CellChangeTimes->{3.994260963040731*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"99ad9e83-da1f-4b23-9ac6-5f8bafdd6081"] }, Open ]], Cell[CellGroupData[{ @@ -13870,8 +15064,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -13916,27 +15109,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918504007528324`*^9, - 3.991850403970867*^9}},ExpressionUUID->"6977f025-454e-0e4a-b118-\ -07bad9ba3e82"], + CellChangeTimes->{{3.9918504007528324`*^9, 3.991850403970867*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"6977f025-454e-0e4a-b118-07bad9ba3e82"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"566a849f-fc85-4d42-a545-a46d44cf7346"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9498056700061646`*^-212\\\", \ +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 81, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260963078505*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"d387759e-6af3-40c3-aa63-a43999df4c92"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"fb1cb4d6-a504-e445-bb52-7946e1bca3c6"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7753207813199458`*^-217\\\", \ +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 82, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942609630847187`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"c8050912-62db-4c33-8a12-240fb97fc68d"], -Cell[BoxData["5.515504100347031`"], "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.616450257105108`*^-222\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 83, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260963091539*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"9864f36a-87d7-49da-b37e-2bc3aa02a4df"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 84, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942609630984163`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"1a72227d-b530-4d3f-a351-917200f519f5"], + +Cell[BoxData["32.150581849701275`"], "Output", + CellChangeTimes->{3.9942609689456663`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"d3de55f1-eaab-4e12-959a-2469a2f2a0f8"] }, Open ]], Cell[CellGroupData[{ @@ -13957,8 +15198,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -14003,27 +15243,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918504078476295`*^9, - 3.9918504110344543`*^9}},ExpressionUUID->"df8ecb01-788a-604d-b773-\ -f29bb610eb30"], + CellChangeTimes->{{3.9918504078476295`*^9, 3.9918504110344543`*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"df8ecb01-788a-604d-b773-f29bb610eb30"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"f9e34ec5-1462-b340-b2e7-8e875dd33d28"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9498056700061646`*^-212\\\", \ +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 85, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260968997139*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"1ee80cf9-e375-4c27-9bcf-5af239fda58e"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"19ffb858-7059-2a48-a3db-e2d0dfcf2131"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7753207813199458`*^-217\\\", \ +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 86, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260969003305*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"790e9dea-7a9e-4d8a-a568-19bab8de37bf"], -Cell[BoxData["17.107550304528036`"], "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.616450257105108`*^-222\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 87, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260969009315*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"77737e51-5ac1-48b2-8e77-a3be62b88fc8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 88, 31387659647978113047, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994260969015312*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"06b7ebb2-24e9-4c03-9a66-614c667f433a"], + +Cell[BoxData["4.935764291213768`"], "Output", + CellChangeTimes->{3.994260972933443*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"4486d8ae-367e-4b3f-82da-17c704cdf156"] }, Open ]], Cell[CellGroupData[{ @@ -14032,14 +15320,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918504490520267`*^9, - 3.991850453720993*^9}},ExpressionUUID->"54a5e329-20bd-e742-afe8-\ -d2cfa007cfcf"], + CellChangeTimes->{{3.9918504490520267`*^9, 3.991850453720993*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"54a5e329-20bd-e742-afe8-d2cfa007cfcf"], -Cell[BoxData["0.11028946354837708`"], "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] -}, Open ]] +Cell[BoxData["0.027084120965456277`"], "Output", + CellChangeTimes->{3.9942609729689903`*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"eb29882a-884a-41df-b4ae-02c76d069365"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellChangeTimes->{{3.9942562751407146`*^9, 3.994256283098797*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"c55d6130-3148-4f22-aa4b-9ca340d93948"] }, -WindowSize->{714, 288}, +WindowSize->{714, 170.25}, WindowMargins->{{Automatic, 3}, {Automatic, 15}}, CellContext->Notebook, FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", @@ -14058,611 +15355,639 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 357, 7, 36, "Input",ExpressionUUID->"35973d63-0d9a-456c-add5-8b5e8390b888"], -Cell[936, 31, 232, 5, 41, "Output",ExpressionUUID->"fd7b1493-9e6f-41b7-9769-1152ffcfc4a8"] +Cell[576, 22, 352, 6, 36, "Input",ExpressionUUID->"35973d63-0d9a-456c-add5-8b5e8390b888"], +Cell[931, 30, 249, 4, 41, "Output",ExpressionUUID->"9f39a432-7ef6-4378-8574-6210e6978c8c"] }, Open ]], Cell[CellGroupData[{ -Cell[1205, 41, 250, 5, 36, "Input",ExpressionUUID->"dbdfe1d5-8311-4ac7-a46b-901ff8c30623"], -Cell[1458, 48, 232, 5, 41, "Output",ExpressionUUID->"8ba2d563-8790-468b-b8c3-3f9a1df82e0c"] +Cell[1217, 39, 245, 4, 36, "Input",ExpressionUUID->"dbdfe1d5-8311-4ac7-a46b-901ff8c30623"], +Cell[1465, 45, 249, 4, 41, "Output",ExpressionUUID->"52f905f6-9cd3-43a9-87d8-ada7d69e6de6"] }, Open ]], Cell[CellGroupData[{ -Cell[1727, 58, 228, 5, 36, "Input",ExpressionUUID->"6f811e58-bb01-4804-b737-86b35489b8eb"], -Cell[1958, 65, 234, 5, 41, "Output",ExpressionUUID->"f74e5a76-ee94-4575-a24a-25c0b6bcb454"] +Cell[1751, 54, 223, 4, 36, "Input",ExpressionUUID->"6f811e58-bb01-4804-b737-86b35489b8eb"], +Cell[1977, 60, 251, 4, 41, "Output",ExpressionUUID->"4a721359-de8e-4675-854f-975258af8652"] }, Open ]], Cell[CellGroupData[{ -Cell[2229, 75, 180, 4, 66, "Input",ExpressionUUID->"88380dba-6b91-457e-b0fb-d0594f76aca1"], -Cell[2412, 81, 232, 5, 75, "Output",ExpressionUUID->"ca1b3b6e-b7f4-4abd-ac1f-c8daabc3be1a"] +Cell[2265, 69, 175, 3, 36, "Input",ExpressionUUID->"88380dba-6b91-457e-b0fb-d0594f76aca1"], +Cell[2443, 74, 251, 4, 41, "Output",ExpressionUUID->"a932d722-7dc5-4e99-a28b-4918faee2956"] }, Open ]], Cell[CellGroupData[{ -Cell[2681, 91, 262, 8, 96, "Input",ExpressionUUID->"8c4dac5f-46bc-43ac-a4df-6dd5378834d0"], -Cell[2946, 101, 237, 5, 75, "Output",ExpressionUUID->"600c1426-0ce0-4a63-b03b-04a6464ab1e8"] +Cell[2731, 83, 257, 7, 54, "Input",ExpressionUUID->"8c4dac5f-46bc-43ac-a4df-6dd5378834d0"], +Cell[2991, 92, 256, 4, 41, "Output",ExpressionUUID->"5b637388-aead-4c3e-ac4e-acd9ad79c6b3"] }, Open ]], Cell[CellGroupData[{ -Cell[3220, 111, 136, 3, 66, "Input",ExpressionUUID->"88f58631-98c2-423b-b1fa-dc5fa27002e2"], -Cell[3359, 116, 233, 5, 75, "Output",ExpressionUUID->"f40cbbf8-783b-41f3-b625-825cc593e3af"] +Cell[3284, 101, 131, 2, 36, "Input",ExpressionUUID->"88f58631-98c2-423b-b1fa-dc5fa27002e2"], +Cell[3418, 105, 250, 4, 41, "Output",ExpressionUUID->"3d5ae3a9-a98e-4133-b1aa-34d0a434941f"] }, Open ]], Cell[CellGroupData[{ -Cell[3629, 126, 281, 7, 66, "Input",ExpressionUUID->"adb39ac5-0d3e-44ae-b7f3-8326c2ac749d"], -Cell[3913, 135, 248, 5, 75, "Output",ExpressionUUID->"d5dd9a41-5632-4a89-9de1-50da2c817b78"] +Cell[3705, 114, 276, 6, 36, "Input",ExpressionUUID->"adb39ac5-0d3e-44ae-b7f3-8326c2ac749d"], +Cell[3984, 122, 267, 4, 41, "Output",ExpressionUUID->"e72ee88f-b2a5-48db-91d8-1f8e4142173b"] }, Open ]], Cell[CellGroupData[{ -Cell[4198, 145, 262, 8, 66, "Input",ExpressionUUID->"f149ca1a-9038-4f65-afb4-26e0d1159c8c"], -Cell[4463, 155, 248, 5, 75, "Output",ExpressionUUID->"5768fe08-2ee1-4690-812a-68499791ca0c"] +Cell[4288, 131, 257, 7, 36, "Input",ExpressionUUID->"f149ca1a-9038-4f65-afb4-26e0d1159c8c"], +Cell[4548, 140, 265, 4, 41, "Output",ExpressionUUID->"df5e4a96-54c8-4404-9786-79bb37e57e95"] }, Open ]], Cell[CellGroupData[{ -Cell[4748, 165, 208, 4, 66, "Input",ExpressionUUID->"9605763a-f9d3-4856-a010-2d3a060ace0f"], -Cell[4959, 171, 218, 4, 75, "Output",ExpressionUUID->"5c1f2d4f-7f53-43a7-9dff-bb0d958faab9"] +Cell[4850, 149, 203, 3, 36, "Input",ExpressionUUID->"9605763a-f9d3-4856-a010-2d3a060ace0f"], +Cell[5056, 154, 241, 4, 41, "Output",ExpressionUUID->"1964a207-c093-4032-a7fa-517147aa1a7a"] }, Open ]], Cell[CellGroupData[{ -Cell[5214, 180, 210, 4, 66, "Input",ExpressionUUID->"64836933-25c9-4db5-bd32-fbb116d0de1d"], -Cell[5427, 186, 214, 4, 75, "Output",ExpressionUUID->"d0d2dbc8-8214-41d4-96c4-ff855e3ae0e5"] +Cell[5334, 163, 206, 3, 36, "Input",ExpressionUUID->"64836933-25c9-4db5-bd32-fbb116d0de1d"], +Cell[5543, 168, 235, 4, 41, "Output",ExpressionUUID->"d048e71d-362a-4b71-bfcc-dae59bfe91c0"] }, Open ]], Cell[CellGroupData[{ -Cell[5678, 195, 133, 3, 66, "Input",ExpressionUUID->"419e5362-c0de-4669-abe1-997084eaebaf"], -Cell[5814, 200, 232, 5, 75, "Output",ExpressionUUID->"4f79c2d8-8648-41db-a0a4-bb15cdd2e3e6"] +Cell[5815, 177, 129, 2, 36, "Input",ExpressionUUID->"419e5362-c0de-4669-abe1-997084eaebaf"], +Cell[5947, 181, 250, 4, 41, "Output",ExpressionUUID->"b5356f86-6042-4c01-964a-151e5966548c"] }, Open ]], Cell[CellGroupData[{ -Cell[6083, 210, 133, 3, 66, "Input",ExpressionUUID->"872d5066-6306-44a9-bec8-fff8eb67aa28"], -Cell[6219, 215, 232, 5, 75, "Output",ExpressionUUID->"02ab10b9-0e8a-4686-956a-68ea031bcac6"] +Cell[6234, 190, 129, 2, 36, "Input",ExpressionUUID->"872d5066-6306-44a9-bec8-fff8eb67aa28"], +Cell[6366, 194, 252, 4, 41, "Output",ExpressionUUID->"fd62b4d7-f63f-439c-b1ae-ce03688df9d7"] }, Open ]], Cell[CellGroupData[{ -Cell[6488, 225, 561, 20, 175, "Input",ExpressionUUID->"764cc1f7-0f06-4256-a6a4-65ab16179530"], -Cell[7052, 247, 249, 5, 75, "Output",ExpressionUUID->"5b1dbac8-6f2c-4c49-b1cf-0317fbdabcaf"] +Cell[6655, 203, 557, 19, 100, "Input",ExpressionUUID->"764cc1f7-0f06-4256-a6a4-65ab16179530"], +Cell[7215, 224, 267, 4, 41, "Output",ExpressionUUID->"fb615c3d-9eed-4ee4-bcaa-b0972dd23833"] }, Open ]], Cell[CellGroupData[{ -Cell[7338, 257, 561, 20, 175, "Input",ExpressionUUID->"cd0ecf79-d3ef-4ba6-ae0e-e2874c38a9ba"], -Cell[7902, 279, 252, 5, 75, "Output",ExpressionUUID->"a734bf3d-b563-42e1-a950-8ee8dc581e98"] +Cell[7519, 233, 557, 19, 100, "Input",ExpressionUUID->"cd0ecf79-d3ef-4ba6-ae0e-e2874c38a9ba"], +Cell[8079, 254, 272, 4, 41, "Output",ExpressionUUID->"a5e1c5ea-e75c-4745-937a-8b1860f2660c"] }, Open ]], Cell[CellGroupData[{ -Cell[8191, 289, 1592, 51, 362, "Input",ExpressionUUID->"8adb6708-1bda-475c-b18a-d1b195458671"], -Cell[9786, 342, 246, 5, 75, "Output",ExpressionUUID->"898f6483-ca77-4442-ad4d-0621443411c6"] +Cell[8388, 263, 1588, 50, 215, "Input",ExpressionUUID->"8adb6708-1bda-475c-b18a-d1b195458671"], +Cell[9979, 315, 263, 4, 41, "Output",ExpressionUUID->"a418ac4e-b49e-4820-ad9a-a1a504ae2b22"] }, Open ]], Cell[CellGroupData[{ -Cell[10069, 352, 1426, 47, 362, "Input",ExpressionUUID->"4d151d2d-a479-4f7c-bf52-c1e63afc2115"], -Cell[11498, 401, 266, 6, 75, "Output",ExpressionUUID->"2771f7c2-c507-44b2-89ea-040da86bb557"] +Cell[10279, 324, 1422, 46, 215, "Input",ExpressionUUID->"4d151d2d-a479-4f7c-bf52-c1e63afc2115"], +Cell[11704, 372, 286, 5, 41, "Output",ExpressionUUID->"5c144bfa-114b-472a-ad0b-b81ab2bfdc45"] }, Open ]], Cell[CellGroupData[{ -Cell[11801, 412, 1426, 47, 362, "Input",ExpressionUUID->"63598d16-2d41-4dd4-8df7-aa91cd656229"], -Cell[13230, 461, 271, 6, 75, "Output",ExpressionUUID->"a9b614e6-f510-488a-901a-2ed10f310475"] +Cell[12027, 382, 1422, 46, 215, "Input",ExpressionUUID->"63598d16-2d41-4dd4-8df7-aa91cd656229"], +Cell[13452, 430, 291, 5, 41, "Output",ExpressionUUID->"68171d1c-ebc2-4fe0-ab40-9c298be6e21c"] }, Open ]], Cell[CellGroupData[{ -Cell[13538, 472, 1592, 51, 362, "Input",ExpressionUUID->"4676fefc-6764-4074-a289-9b1337d33532"], -Cell[15133, 525, 243, 5, 75, "Output",ExpressionUUID->"a5c743bc-8301-4ed4-8c12-7b6dfe30c0b3"] +Cell[13780, 440, 1588, 50, 215, "Input",ExpressionUUID->"4676fefc-6764-4074-a289-9b1337d33532"], +Cell[15371, 492, 261, 4, 41, "Output",ExpressionUUID->"8d4bafbe-55e0-4544-a585-d2ca7965510d"] }, Open ]], Cell[CellGroupData[{ -Cell[15413, 535, 135, 3, 66, "Input",ExpressionUUID->"ef604341-566d-4c22-8f6c-8367d47b5f57"], -Cell[15551, 540, 234, 5, 75, "Output",ExpressionUUID->"6d89071e-ca6f-440c-9fad-a38d638ce33a"] +Cell[15669, 501, 131, 2, 36, "Input",ExpressionUUID->"ef604341-566d-4c22-8f6c-8367d47b5f57"], +Cell[15803, 505, 252, 4, 41, "Output",ExpressionUUID->"85030f95-ec0d-4891-a435-68e9e63d7e62"] }, Open ]], Cell[CellGroupData[{ -Cell[15822, 550, 137, 3, 66, "Input",ExpressionUUID->"8cd91362-d232-4fbe-bb52-7dd1d83b495b"], -Cell[15962, 555, 232, 5, 75, "Output",ExpressionUUID->"77a766c5-be71-481f-8dff-ca18941832cf"] +Cell[16092, 514, 133, 2, 36, "Input",ExpressionUUID->"8cd91362-d232-4fbe-bb52-7dd1d83b495b"], +Cell[16228, 518, 252, 4, 41, "Output",ExpressionUUID->"1fee23b8-4695-40af-a53f-e39332955b56"] }, Open ]], Cell[CellGroupData[{ -Cell[16231, 565, 138, 3, 66, "Input",ExpressionUUID->"1ad6203e-5d08-404d-ae4a-b663b1daf515"], -Cell[16372, 570, 240, 5, 75, "Output",ExpressionUUID->"8925ecbe-da2e-48e3-894f-4c833e0e3a6d"] +Cell[16517, 527, 134, 2, 36, "Input",ExpressionUUID->"1ad6203e-5d08-404d-ae4a-b663b1daf515"], +Cell[16654, 531, 258, 4, 41, "Output",ExpressionUUID->"d7664796-0706-4dee-9c74-7574b503c99c"] }, Open ]], Cell[CellGroupData[{ -Cell[16649, 580, 223, 5, 66, "Input",ExpressionUUID->"988b6766-dabf-49ce-8199-d8633380940a"], -Cell[16875, 587, 247, 6, 75, "Output",ExpressionUUID->"a35b0dc5-55eb-442a-a8c6-24adb1cbefbe"] +Cell[16949, 540, 219, 4, 36, "Input",ExpressionUUID->"988b6766-dabf-49ce-8199-d8633380940a"], +Cell[17171, 546, 265, 5, 41, "Output",ExpressionUUID->"1d3a11e0-235b-4aab-aeb9-1c3dd493aa3b"] }, Open ]], Cell[CellGroupData[{ -Cell[17159, 598, 138, 3, 66, "Input",ExpressionUUID->"0c60800f-35d6-4020-a221-04ec0cc10606"], -Cell[17300, 603, 236, 5, 75, "Output",ExpressionUUID->"d2587cea-4db4-4d77-8429-030a1690bef6"] +Cell[17473, 556, 134, 2, 36, "Input",ExpressionUUID->"0c60800f-35d6-4020-a221-04ec0cc10606"], +Cell[17610, 560, 256, 4, 41, "Output",ExpressionUUID->"2cb847ca-01fd-4b43-96c3-886001680de3"] }, Open ]], Cell[CellGroupData[{ -Cell[17573, 613, 328, 6, 66, "Input",ExpressionUUID->"756422f7-7c28-4212-b2f2-e5b506ee19b1"], -Cell[17904, 621, 232, 5, 75, "Output",ExpressionUUID->"d9fa092a-e215-459e-86fd-3d62e849e98a"] +Cell[17903, 569, 324, 5, 36, "Input",ExpressionUUID->"756422f7-7c28-4212-b2f2-e5b506ee19b1"], +Cell[18230, 576, 248, 4, 41, "Output",ExpressionUUID->"affd7ddf-b822-4e51-a1a3-39d2d5d7ee0a"] }, Open ]], Cell[CellGroupData[{ -Cell[18173, 631, 301, 6, 66, "Input",ExpressionUUID->"ea33de80-585b-46ef-acec-553c4b7426f6"], -Cell[18477, 639, 235, 5, 75, "Output",ExpressionUUID->"1c808bb8-dbcd-48d5-b662-085176024c1a"] +Cell[18515, 585, 297, 5, 36, "Input",ExpressionUUID->"ea33de80-585b-46ef-acec-553c4b7426f6"], +Cell[18815, 592, 255, 4, 41, "Output",ExpressionUUID->"02ee6a5f-34c2-4af3-bf9b-d5ba1ad1ed2e"] }, Open ]], Cell[CellGroupData[{ -Cell[18749, 649, 223, 5, 66, "Input",ExpressionUUID->"e223028e-00bb-4320-ab11-a830208e08a4"], -Cell[18975, 656, 229, 5, 75, "Output",ExpressionUUID->"827bb4b0-7f6e-46ff-a874-d640a4729a0b"] +Cell[19107, 601, 219, 4, 36, "Input",ExpressionUUID->"e223028e-00bb-4320-ab11-a830208e08a4"], +Cell[19329, 607, 247, 4, 41, "Output",ExpressionUUID->"37f00d6e-cf11-44f4-b455-490caa2bc17b"] }, Open ]], Cell[CellGroupData[{ -Cell[19241, 666, 354, 11, 96, "Input",ExpressionUUID->"dda54ce1-7959-4a8c-b756-f256ef453607"], -Cell[19598, 679, 251, 5, 75, "Output",ExpressionUUID->"82ed1f04-853e-4622-8f13-755f19d771e3"] +Cell[19613, 616, 350, 10, 54, "Input",ExpressionUUID->"dda54ce1-7959-4a8c-b756-f256ef453607"], +Cell[19966, 628, 271, 4, 41, "Output",ExpressionUUID->"ae701f20-31b9-4346-ac10-ed19f8b63297"] }, Open ]], Cell[CellGroupData[{ -Cell[19886, 689, 354, 11, 96, "Input",ExpressionUUID->"08b03fa2-34b5-4b3a-87b6-3cfe78c5a1af"], -Cell[20243, 702, 267, 6, 75, "Output",ExpressionUUID->"dd3fad28-0ee5-4a6b-ad11-19f2624cb434"] +Cell[20274, 637, 350, 10, 54, "Input",ExpressionUUID->"08b03fa2-34b5-4b3a-87b6-3cfe78c5a1af"], +Cell[20627, 649, 287, 5, 41, "Output",ExpressionUUID->"c62d7969-d8ff-4973-a836-b702f7d6f835"] }, Open ]], Cell[CellGroupData[{ -Cell[20547, 713, 998, 27, 184, "Input",ExpressionUUID->"a5272b68-0b83-4cf7-b097-b53705fbec87"], -Cell[21548, 742, 246, 5, 75, "Output",ExpressionUUID->"10802376-20e8-4767-bcd8-cac6b8547b40"] +Cell[20951, 659, 994, 26, 105, "Input",ExpressionUUID->"a5272b68-0b83-4cf7-b097-b53705fbec87"], +Cell[21948, 687, 266, 4, 41, "Output",ExpressionUUID->"f0c31a2b-1657-4265-a83f-2925614aa5a8"] }, Open ]], Cell[CellGroupData[{ -Cell[21831, 752, 203, 4, 66, "Input",ExpressionUUID->"b22ad84e-5801-40b8-bd7c-fae45515558f"], -Cell[22037, 758, 234, 5, 75, "Output",ExpressionUUID->"e2ca16d3-e434-427f-a924-ea56631aa1b2"] +Cell[22251, 696, 199, 3, 36, "Input",ExpressionUUID->"b22ad84e-5801-40b8-bd7c-fae45515558f"], +Cell[22453, 701, 252, 4, 41, "Output",ExpressionUUID->"7a6cfab6-eee8-4373-9a94-f6befdd33686"] }, Open ]], Cell[CellGroupData[{ -Cell[22308, 768, 333, 6, 66, "Input",ExpressionUUID->"b50f0492-e9e8-4f11-8747-e219459d6ef8"], -Cell[22644, 776, 211, 4, 75, "Output",ExpressionUUID->"04a20273-b058-4e34-911f-cb7c8929d4e5"] +Cell[22742, 710, 329, 5, 36, "Input",ExpressionUUID->"b50f0492-e9e8-4f11-8747-e219459d6ef8"], +Cell[23074, 717, 235, 4, 41, "Output",ExpressionUUID->"f4f6823c-c321-4357-b510-b35d4a3d8a01"] }, Open ]], -Cell[22870, 783, 177, 3, 66, "Input",ExpressionUUID->"c6021c6e-7c33-45a8-8c92-05eb0451ec5b"], +Cell[23324, 724, 173, 2, 36, "Input",ExpressionUUID->"c6021c6e-7c33-45a8-8c92-05eb0451ec5b"], Cell[CellGroupData[{ -Cell[23072, 790, 333, 6, 66, "Input",ExpressionUUID->"af4d14a7-37f4-4d8b-8c46-bf1570896c80"], -Cell[23408, 798, 211, 4, 75, "Output",ExpressionUUID->"b20b9287-cab5-445c-91c2-a2cd3ab02906"] +Cell[23522, 730, 329, 5, 36, "Input",ExpressionUUID->"af4d14a7-37f4-4d8b-8c46-bf1570896c80"], +Cell[23854, 737, 233, 4, 41, "Output",ExpressionUUID->"0616f42c-7caf-4a6f-9702-4e8397a653f1"] }, Open ]], -Cell[23634, 805, 177, 3, 66, "Input",ExpressionUUID->"7cdd0519-ffcb-4c3f-97f3-953447f63b18"], +Cell[24102, 744, 173, 2, 36, "Input",ExpressionUUID->"7cdd0519-ffcb-4c3f-97f3-953447f63b18"], Cell[CellGroupData[{ -Cell[23836, 812, 330, 6, 66, "Input",ExpressionUUID->"87786be5-cb34-407a-82ef-18816e301000"], -Cell[24169, 820, 205, 4, 75, "Output",ExpressionUUID->"da586645-f35e-4790-a010-fcbbc09d17fe"] +Cell[24300, 750, 326, 5, 36, "Input",ExpressionUUID->"87786be5-cb34-407a-82ef-18816e301000"], +Cell[24629, 757, 227, 4, 41, "Output",ExpressionUUID->"f542df6d-daac-4f20-a9f7-403fd31dc105"] }, Open ]], -Cell[24389, 827, 177, 3, 66, "Input",ExpressionUUID->"5ee80794-3af3-4d63-a6e8-e0b3a2b14380"], +Cell[24871, 764, 173, 2, 36, "Input",ExpressionUUID->"5ee80794-3af3-4d63-a6e8-e0b3a2b14380"], Cell[CellGroupData[{ -Cell[24591, 834, 356, 6, 66, "Input",ExpressionUUID->"db036076-38f0-40be-b8b2-6dadceaedd49"], -Cell[24950, 842, 209, 4, 75, "Output",ExpressionUUID->"227d737d-42bf-4f9d-81e2-1f20c4e74171"] +Cell[25069, 770, 352, 5, 36, "Input",ExpressionUUID->"db036076-38f0-40be-b8b2-6dadceaedd49"], +Cell[25424, 777, 231, 4, 41, "Output",ExpressionUUID->"036d32c5-21ba-4cda-896c-fcb8fe8dd3b0"] }, Open ]], -Cell[25174, 849, 175, 3, 66, "Input",ExpressionUUID->"7ee14980-9873-4cc8-a19a-61a10ddc5bfb"], +Cell[25670, 784, 171, 2, 36, "Input",ExpressionUUID->"7ee14980-9873-4cc8-a19a-61a10ddc5bfb"], Cell[CellGroupData[{ -Cell[25374, 856, 303, 6, 66, "Input",ExpressionUUID->"141fb624-b4b3-456e-a1c1-ab4da7d57631"], -Cell[25680, 864, 211, 4, 75, "Output",ExpressionUUID->"751e58f2-ee83-46ea-b676-d22797e24e60"] +Cell[25866, 790, 299, 5, 36, "Input",ExpressionUUID->"141fb624-b4b3-456e-a1c1-ab4da7d57631"], +Cell[26168, 797, 232, 4, 41, "Output",ExpressionUUID->"166783ac-c51b-408b-9acf-a113ce9bf134"] }, Open ]], -Cell[25906, 871, 175, 3, 66, "Input",ExpressionUUID->"aab7b163-711b-4a21-babe-fa98c46477ae"], +Cell[26415, 804, 171, 2, 36, "Input",ExpressionUUID->"aab7b163-711b-4a21-babe-fa98c46477ae"], Cell[CellGroupData[{ -Cell[26106, 878, 309, 6, 66, "Input",ExpressionUUID->"79165bba-50b7-4f82-be58-422bb26b7823"], -Cell[26418, 886, 208, 4, 75, "Output",ExpressionUUID->"8acf4cfd-f6cb-4a2a-a53d-daed26debdf8"] +Cell[26611, 810, 305, 5, 36, "Input",ExpressionUUID->"79165bba-50b7-4f82-be58-422bb26b7823"], +Cell[26919, 817, 230, 4, 41, "Output",ExpressionUUID->"ebabbc7c-faf3-45c1-b67c-2e8492280092"] }, Open ]], -Cell[26641, 893, 177, 3, 66, "Input",ExpressionUUID->"51863c77-1834-49f7-bd68-3f839f11e1f6"], +Cell[27164, 824, 173, 2, 36, "Input",ExpressionUUID->"51863c77-1834-49f7-bd68-3f839f11e1f6"], Cell[CellGroupData[{ -Cell[26843, 900, 310, 6, 66, "Input",ExpressionUUID->"2fca0a10-f9e5-4f2f-954c-d8766ec0b484"], -Cell[27156, 908, 208, 4, 75, "Output",ExpressionUUID->"d98c218e-06bc-486e-872b-1218ab1ec32e"] +Cell[27362, 830, 306, 5, 36, "Input",ExpressionUUID->"2fca0a10-f9e5-4f2f-954c-d8766ec0b484"], +Cell[27671, 837, 230, 4, 41, "Output",ExpressionUUID->"e6aaf953-5ddd-4b28-8d40-4230a5fa4873"] }, Open ]], -Cell[27379, 915, 176, 3, 66, "Input",ExpressionUUID->"eed6014a-7425-47a7-a95a-b11da733c93d"], +Cell[27916, 844, 172, 2, 36, "Input",ExpressionUUID->"eed6014a-7425-47a7-a95a-b11da733c93d"], Cell[CellGroupData[{ -Cell[27580, 922, 278, 5, 66, "Input",ExpressionUUID->"79010408-3f6a-4fe4-9c6c-ab994ac472e0"], -Cell[27861, 929, 207, 4, 75, "Output",ExpressionUUID->"5f10b804-04e2-4e26-a775-45cfa7123f3b"] +Cell[28113, 850, 274, 4, 36, "Input",ExpressionUUID->"79010408-3f6a-4fe4-9c6c-ab994ac472e0"], +Cell[28390, 856, 229, 4, 41, "Output",ExpressionUUID->"e0bb24cd-d3d0-46be-8fe0-9cd648d73d45"] }, Open ]], -Cell[28083, 936, 179, 3, 66, "Input",ExpressionUUID->"992aaabe-b7dc-4836-bfc9-fdcae0db9d41"], +Cell[28634, 863, 175, 2, 36, "Input",ExpressionUUID->"992aaabe-b7dc-4836-bfc9-fdcae0db9d41"], Cell[CellGroupData[{ -Cell[28287, 943, 19813, 486, 5405, "Input",ExpressionUUID->"0af209fa-1884-48f4-b14b-10d077942bdb"], -Cell[48103, 1431, 249, 5, 75, "Output",ExpressionUUID->"8023304c-1af5-4412-afc5-fba41d234636"] +Cell[28834, 869, 19809, 485, 3208, "Input",ExpressionUUID->"0af209fa-1884-48f4-b14b-10d077942bdb"], +Cell[48646, 1356, 267, 4, 41, "Output",ExpressionUUID->"f59679bb-6454-4e06-bc67-03e7c5aecfbd"] }, Open ]], Cell[CellGroupData[{ -Cell[48389, 1441, 19752, 490, 5343, "Input",ExpressionUUID->"f45fdfe9-51b6-4196-b64a-eb8a9acc9d27"], -Cell[68144, 1933, 247, 5, 75, "Output",ExpressionUUID->"f7caff3b-610c-4e53-a840-e0b15afa9969"] +Cell[48950, 1365, 19748, 489, 3138, "Input",ExpressionUUID->"f45fdfe9-51b6-4196-b64a-eb8a9acc9d27"], +Cell[68701, 1856, 265, 4, 41, "Output",ExpressionUUID->"0624aa0e-3d43-4898-b8e4-8af50ed28da6"] }, Open ]], Cell[CellGroupData[{ -Cell[68428, 1943, 19752, 484, 5342, "Input",ExpressionUUID->"7d04a896-c948-4917-8f7a-ffddd03ef629"], -Cell[88183, 2429, 265, 6, 75, "Output",ExpressionUUID->"913ff7b2-ed80-4221-ad52-dd8aa985ab81"] +Cell[69003, 1865, 19748, 483, 3198, "Input",ExpressionUUID->"7d04a896-c948-4917-8f7a-ffddd03ef629"], +Cell[88754, 2350, 285, 5, 41, "Output",ExpressionUUID->"985a3e45-6fc6-45be-be1d-96d30570d46b"] }, Open ]], Cell[CellGroupData[{ -Cell[88485, 2440, 22538, 554, 6074, "Input",ExpressionUUID->"ea6582ec-1a42-47fb-bb76-8e5fb6c396db"], -Cell[111026, 2996, 267, 6, 75, "Output",ExpressionUUID->"26b6bf5c-1edb-4424-b958-6821ec8c7cd3"] +Cell[89076, 2360, 22534, 553, 3677, "Input",ExpressionUUID->"ea6582ec-1a42-47fb-bb76-8e5fb6c396db"], +Cell[111613, 2915, 287, 5, 41, "Output",ExpressionUUID->"54925fca-def1-4909-96bd-6041f3f09fb0"] }, Open ]], Cell[CellGroupData[{ -Cell[111330, 3007, 22539, 554, 6074, "Input",ExpressionUUID->"9bc5b782-c107-4109-b23a-b3e64837552f"], -Cell[133872, 3563, 266, 6, 75, "Output",ExpressionUUID->"40e90a17-8ef8-4b96-b7ba-e2dba694b2d8"] +Cell[111937, 2925, 22535, 553, 3642, "Input",ExpressionUUID->"9bc5b782-c107-4109-b23a-b3e64837552f"], +Cell[134475, 3480, 284, 5, 41, "Output",ExpressionUUID->"4a984204-ea04-4fe3-b329-b51115548bfa"] }, Open ]], Cell[CellGroupData[{ -Cell[134175, 3574, 25495, 627, 6806, "Input",ExpressionUUID->"39450f1b-2cf2-4958-999d-91af8561db12"], -Cell[159673, 4203, 265, 6, 75, "Output",ExpressionUUID->"32b78379-3bc0-460b-bde3-7931d93da19f"] +Cell[134796, 3490, 25491, 626, 4121, "Input",ExpressionUUID->"39450f1b-2cf2-4958-999d-91af8561db12"], +Cell[160290, 4118, 283, 5, 41, "Output",ExpressionUUID->"ad6707c4-a722-4370-8aab-87a9d72573f7"] }, Open ]], Cell[CellGroupData[{ -Cell[159975, 4214, 134, 3, 66, "Input",ExpressionUUID->"1f0e4ea8-c6cb-403b-94bc-eda30e02b671"], -Cell[160112, 4219, 229, 5, 75, "Output",ExpressionUUID->"6aa8a4e5-8f83-4a49-be6e-0655e4c7bc75"] +Cell[160610, 4128, 130, 2, 36, "Input",ExpressionUUID->"1f0e4ea8-c6cb-403b-94bc-eda30e02b671"], +Cell[160743, 4132, 246, 4, 41, "Output",ExpressionUUID->"515220aa-fc3b-4440-acdf-21240f223cba"] }, Open ]], Cell[CellGroupData[{ -Cell[160378, 4229, 134, 3, 66, "Input",ExpressionUUID->"30ce4bd6-03e6-49ff-83d1-863c3c4ec8cb"], -Cell[160515, 4234, 232, 5, 75, "Output",ExpressionUUID->"9aadbb21-462e-41f6-b0c1-ce4137afd226"] +Cell[161026, 4141, 130, 2, 36, "Input",ExpressionUUID->"30ce4bd6-03e6-49ff-83d1-863c3c4ec8cb"], +Cell[161159, 4145, 250, 4, 41, "Output",ExpressionUUID->"d8629bee-7d9b-4605-ae65-79e48f2e1c8f"] }, Open ]], Cell[CellGroupData[{ -Cell[160784, 4244, 1148, 40, 246, "Input",ExpressionUUID->"da9a4ccc-9d67-4a3d-b4e9-621b007b6c0e"], -Cell[161935, 4286, 246, 5, 75, "Output",ExpressionUUID->"8c1134bc-353d-4040-b8da-7fc381b23a12"] +Cell[161446, 4154, 1144, 39, 144, "Input",ExpressionUUID->"da9a4ccc-9d67-4a3d-b4e9-621b007b6c0e"], +Cell[162593, 4195, 264, 4, 41, "Output",ExpressionUUID->"a8dde3aa-8f37-428e-8298-63a425d2efd6"] }, Open ]], Cell[CellGroupData[{ -Cell[162218, 4296, 1045, 36, 246, "Input",ExpressionUUID->"aa39e519-1f4c-49fa-9d35-4962903c69f1"], -Cell[163266, 4334, 262, 6, 75, "Output",ExpressionUUID->"534de6e0-7885-43f0-9b39-0070d5fe6167"] +Cell[162894, 4204, 1041, 35, 144, "Input",ExpressionUUID->"aa39e519-1f4c-49fa-9d35-4962903c69f1"], +Cell[163938, 4241, 280, 5, 41, "Output",ExpressionUUID->"08cbc403-0a15-4bab-9857-2516083fcc30"] }, Open ]], Cell[CellGroupData[{ -Cell[163565, 4345, 1148, 40, 246, "Input",ExpressionUUID->"3b9d77d0-c1b5-49e6-9f20-fde03d9ceb23"], -Cell[164716, 4387, 250, 5, 75, "Output",ExpressionUUID->"d2713f39-74da-4501-959c-44a2671aa671"] +Cell[164255, 4251, 1144, 39, 144, "Input",ExpressionUUID->"3b9d77d0-c1b5-49e6-9f20-fde03d9ceb23"], +Cell[165402, 4292, 268, 4, 41, "Output",ExpressionUUID->"5b3d437c-2d9f-493e-92f9-c7b5e83989f0"] }, Open ]], Cell[CellGroupData[{ -Cell[165003, 4397, 112, 2, 66, "Input",ExpressionUUID->"097fd25f-632d-45c7-977e-ff3c9da7c387"], -Cell[165118, 4401, 248, 5, 75, "Output",ExpressionUUID->"55684397-80b3-4f24-b7de-ee4051d722e5"] +Cell[165707, 4301, 108, 1, 36, "Input",ExpressionUUID->"097fd25f-632d-45c7-977e-ff3c9da7c387"], +Cell[165818, 4304, 268, 4, 41, "Output",ExpressionUUID->"ac3b3ca4-d505-4c28-8b48-6eace041014c"] }, Open ]], Cell[CellGroupData[{ -Cell[165403, 4411, 112, 2, 66, "Input",ExpressionUUID->"bb0e460c-457a-4afd-a63f-da30feb4a44d"], -Cell[165518, 4415, 266, 6, 75, "Output",ExpressionUUID->"44dd8802-b63b-4418-9ca8-1e8622c713e3"] +Cell[166123, 4313, 108, 1, 36, "Input",ExpressionUUID->"bb0e460c-457a-4afd-a63f-da30feb4a44d"], +Cell[166234, 4316, 286, 5, 41, "Output",ExpressionUUID->"e4635b73-0140-4fa1-8063-076caf415dfb"] }, Open ]], Cell[CellGroupData[{ -Cell[165821, 4426, 112, 2, 66, "Input",ExpressionUUID->"a67c15e8-778f-4016-8487-89ce13f18ccb"], -Cell[165936, 4430, 262, 6, 75, "Output",ExpressionUUID->"658150e0-2b99-4f38-a450-2bbcdc135c66"] +Cell[166557, 4326, 108, 1, 36, "Input",ExpressionUUID->"a67c15e8-778f-4016-8487-89ce13f18ccb"], +Cell[166668, 4329, 280, 5, 41, "Output",ExpressionUUID->"1a3741fc-af6b-4f7b-9c16-a2b47002f835"] }, Open ]], Cell[CellGroupData[{ -Cell[166235, 4441, 112, 2, 66, "Input",ExpressionUUID->"1ec851a9-a51a-49dd-be7f-7093f84bb8b5"], -Cell[166350, 4445, 248, 5, 75, "Output",ExpressionUUID->"8061cf5b-fd65-4c42-8623-833dbe9ded13"] +Cell[166985, 4339, 108, 1, 36, "Input",ExpressionUUID->"1ec851a9-a51a-49dd-be7f-7093f84bb8b5"], +Cell[167096, 4342, 266, 4, 41, "Output",ExpressionUUID->"df1225a7-0d33-4a7d-aafc-df143ef9fde9"] }, Open ]], Cell[CellGroupData[{ -Cell[166635, 4455, 111, 2, 66, "Input",ExpressionUUID->"86a3b821-dc91-454e-96e5-b77a853672da"], -Cell[166749, 4459, 225, 4, 75, "Output",ExpressionUUID->"09de291e-9257-4864-8f95-35b2b8eb84eb"] +Cell[167399, 4351, 107, 1, 36, "Input",ExpressionUUID->"86a3b821-dc91-454e-96e5-b77a853672da"], +Cell[167509, 4354, 249, 4, 41, "Output",ExpressionUUID->"be692a43-26a7-422a-8834-f22fe70e5f74"] }, Open ]], Cell[CellGroupData[{ -Cell[167011, 4468, 111, 2, 66, "Input",ExpressionUUID->"feab34f0-0487-4946-8ed0-bd275e1baae6"], -Cell[167125, 4472, 221, 4, 75, "Output",ExpressionUUID->"de70b5d8-2aa3-4dbc-9a73-2722905a51ca"] +Cell[167795, 4363, 107, 1, 36, "Input",ExpressionUUID->"feab34f0-0487-4946-8ed0-bd275e1baae6"], +Cell[167905, 4366, 243, 4, 41, "Output",ExpressionUUID->"4272ee20-a42a-44d8-a1d8-1e8bf7959d00"] }, Open ]], Cell[CellGroupData[{ -Cell[167383, 4481, 501, 17, 125, "Input",ExpressionUUID->"32523e67-675f-4078-8dc8-5e193aa113d8"], -Cell[167887, 4500, 238, 5, 75, "Output",ExpressionUUID->"932867c6-ed7f-4d49-b34e-495aa5fd0917"] +Cell[168185, 4375, 497, 16, 71, "Input",ExpressionUUID->"32523e67-675f-4078-8dc8-5e193aa113d8"], +Cell[168685, 4393, 262, 5, 41, "Output",ExpressionUUID->"facbf2c3-c661-46cc-af13-9cd01bbfe96d"] }, Open ]], Cell[CellGroupData[{ -Cell[168162, 4510, 501, 17, 125, "Input",ExpressionUUID->"f231e10b-ae07-4340-a418-e7a623f7122d"], -Cell[168666, 4529, 238, 5, 75, "Output",ExpressionUUID->"2fcdd375-55b9-4030-9f60-5a053ed51c5c"] +Cell[168984, 4403, 497, 16, 71, "Input",ExpressionUUID->"f231e10b-ae07-4340-a418-e7a623f7122d"], +Cell[169484, 4421, 260, 5, 41, "Output",ExpressionUUID->"2e60e15e-3b9c-4ede-be93-0729378bcad9"] }, Open ]], Cell[CellGroupData[{ -Cell[168941, 4539, 1792, 61, 420, "Input",ExpressionUUID->"da29d4c1-690e-4539-b52c-f3e75a081ddb"], -Cell[170736, 4602, 219, 4, 75, "Output",ExpressionUUID->"0c61f6b4-d606-4806-81e0-14b13cbd95ee"] +Cell[169781, 4431, 1788, 60, 340, "Input",ExpressionUUID->"da29d4c1-690e-4539-b52c-f3e75a081ddb"], +Cell[171572, 4493, 241, 4, 41, "Output",ExpressionUUID->"a7ebd529-347b-44f0-83c2-c4fade44c6b7"] }, Open ]], Cell[CellGroupData[{ -Cell[170992, 4611, 1105, 37, 299, "Input",ExpressionUUID->"c950e619-5acb-46d4-9e8b-ad7348056105"], -Cell[172100, 4650, 238, 5, 75, "Output",ExpressionUUID->"2490215e-07a0-46ae-b531-c0f83eed0322"] +Cell[171850, 4502, 1101, 36, 174, "Input",ExpressionUUID->"c950e619-5acb-46d4-9e8b-ad7348056105"], +Cell[172954, 4540, 260, 5, 41, "Output",ExpressionUUID->"4792741e-6997-4cbb-97d7-91a463767574"] }, Open ]], Cell[CellGroupData[{ -Cell[172375, 4660, 1822, 62, 420, "Input",ExpressionUUID->"ee700acb-ae80-48f4-941c-88c081a15dd5"], -Cell[174200, 4724, 217, 4, 75, "Output",ExpressionUUID->"2f15d55c-26d3-4d59-b33f-5ae7816e70b5"] +Cell[173251, 4550, 1818, 61, 340, "Input",ExpressionUUID->"ee700acb-ae80-48f4-941c-88c081a15dd5"], +Cell[175072, 4613, 239, 4, 41, "Output",ExpressionUUID->"67754bde-5036-4240-b97c-6f91284126a2"] }, Open ]], Cell[CellGroupData[{ -Cell[174454, 4733, 1635, 54, 368, "Input",ExpressionUUID->"c3e7124d-e0f5-435b-bb22-3960dd7a97c2"], -Cell[176092, 4789, 222, 4, 75, "Output",ExpressionUUID->"a8ae5637-5cd9-4551-8e6f-1a5029499bfc"] +Cell[175348, 4622, 1631, 53, 208, "Input",ExpressionUUID->"c3e7124d-e0f5-435b-bb22-3960dd7a97c2"], +Cell[176982, 4677, 244, 4, 41, "Output",ExpressionUUID->"d472cc59-3d51-41c5-bfd5-96a8efd05165"] }, Open ]], Cell[CellGroupData[{ -Cell[176351, 4798, 1635, 54, 208, "Input",ExpressionUUID->"46c7b588-5a55-4e32-95e4-20c36bfed809"], -Cell[177989, 4854, 219, 4, 41, "Output",ExpressionUUID->"3a83ed23-9d71-4672-a7ef-65036f1624d9"] +Cell[177263, 4686, 1631, 53, 208, "Input",ExpressionUUID->"46c7b588-5a55-4e32-95e4-20c36bfed809"], +Cell[178897, 4741, 241, 4, 41, "Output",ExpressionUUID->"2bca4df5-f03d-4e2a-92e6-0c9654c4f86a"] }, Open ]], -Cell[178223, 4861, 187, 4, 36, "Input",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], -Cell[178413, 4867, 154, 3, 36, "Input",ExpressionUUID->"5965eb10-01f8-5545-9b6f-8fab318cd4b7"], -Cell[178570, 4872, 217, 5, 36, "Input",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], -Cell[178790, 4879, 154, 3, 36, "Input",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], Cell[CellGroupData[{ -Cell[178969, 4886, 1301, 43, 174, "Input",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], -Cell[180273, 4931, 178, 3, 41, "Output",ExpressionUUID->"d7904bcf-fc55-b844-b4d2-059d830f1317"] +Cell[179175, 4750, 206, 3, 36, "Input",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], +Cell[179384, 4755, 161, 2, 41, "Output",ExpressionUUID->"55970ebb-5358-4d11-b5ad-239fe9e6e9fb"] }, Open ]], +Cell[179560, 4760, 173, 2, 109, "Input",ExpressionUUID->"5965eb10-01f8-5545-9b6f-8fab318cd4b7"], Cell[CellGroupData[{ -Cell[180488, 4939, 908, 31, 73, "Input",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], -Cell[181399, 4972, 177, 3, 41, "Output",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] +Cell[179758, 4766, 235, 4, 36, "Input",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], +Cell[179996, 4772, 161, 2, 41, "Output",ExpressionUUID->"529fcdd5-86ca-4920-ab10-311fa553adf6"] }, Open ]], +Cell[180172, 4777, 173, 2, 109, "Input",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], Cell[CellGroupData[{ -Cell[181613, 4980, 889, 30, 73, "Input",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], -Cell[182505, 5012, 178, 3, 41, "Output",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] +Cell[180370, 4783, 1297, 42, 174, "Input",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], +Cell[181670, 4827, 196, 2, 41, "Output",ExpressionUUID->"2f6306de-cba3-48be-9f5b-516f8791ab6c"] }, Open ]], Cell[CellGroupData[{ -Cell[182720, 5020, 558, 19, 66, "Input",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], -Cell[183281, 5041, 172, 3, 41, "Output",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] +Cell[181903, 4834, 927, 30, 128, "Input",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], +Cell[182833, 4866, 197, 2, 41, "Output",ExpressionUUID->"e394e7e8-3b7f-4dee-af24-1700cd5bc166"] }, Open ]], Cell[CellGroupData[{ -Cell[183490, 5049, 651, 22, 66, "Input",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], -Cell[184144, 5073, 167, 3, 41, "Output",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] +Cell[183067, 4873, 908, 29, 128, "Input",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], +Cell[183978, 4904, 195, 2, 41, "Output",ExpressionUUID->"374a463a-93cf-43a8-a0db-bfa879037d14"] }, Open ]], Cell[CellGroupData[{ -Cell[184348, 5081, 170, 5, 71, "Input",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], -Cell[184521, 5088, 172, 3, 41, "Output",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +Cell[184210, 4911, 554, 18, 66, "Input",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], +Cell[184767, 4931, 192, 2, 41, "Output",ExpressionUUID->"698055e5-a7b5-4957-a3f4-e8556632855d"] }, Open ]], Cell[CellGroupData[{ -Cell[184730, 5096, 170, 5, 69, "Input",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], -Cell[184903, 5103, 173, 3, 41, "Output",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +Cell[184996, 4938, 647, 21, 66, "Input",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], +Cell[185646, 4961, 188, 2, 41, "Output",ExpressionUUID->"02c918a5-5fab-44dd-9562-c5085af04daf"] }, Open ]], Cell[CellGroupData[{ -Cell[185113, 5111, 181, 5, 55, "Input",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], -Cell[185297, 5118, 171, 3, 41, "Output",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +Cell[185871, 4968, 166, 4, 71, "Input",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], +Cell[186040, 4974, 191, 2, 41, "Output",ExpressionUUID->"3ca07652-951a-4800-875e-de1e381e6bf1"] }, Open ]], Cell[CellGroupData[{ -Cell[185505, 5126, 181, 5, 55, "Input",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], -Cell[185689, 5133, 172, 3, 41, "Output",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +Cell[186268, 4981, 166, 4, 69, "Input",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], +Cell[186437, 4987, 190, 2, 41, "Output",ExpressionUUID->"d39fc28d-f2ce-442a-8262-21274b474a05"] }, Open ]], Cell[CellGroupData[{ -Cell[185898, 5141, 6055, 185, 431, "Input",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], -Cell[191956, 5328, 174, 3, 41, "Output",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +Cell[186664, 4994, 177, 4, 55, "Input",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], +Cell[186844, 5000, 189, 2, 41, "Output",ExpressionUUID->"f5fa83ef-d24a-4440-8734-fb7ebef9a9f8"] }, Open ]], Cell[CellGroupData[{ -Cell[192167, 5336, 368, 9, 53, "Input",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], -Cell[192538, 5347, 172, 3, 41, "Output",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +Cell[187070, 5007, 177, 4, 55, "Input",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], +Cell[187250, 5013, 191, 2, 41, "Output",ExpressionUUID->"9f32b4d8-265c-4293-bbb0-e06c53e2c6b9"] }, Open ]], Cell[CellGroupData[{ -Cell[192747, 5355, 6122, 187, 431, "Input",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], -Cell[198872, 5544, 175, 3, 41, "Output",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +Cell[187478, 5020, 6051, 184, 831, "Input",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], +Cell[193532, 5206, 196, 2, 41, "Output",ExpressionUUID->"e477bd9f-197a-43d3-b178-ee111f072a1e"] }, Open ]], Cell[CellGroupData[{ -Cell[199084, 5552, 368, 9, 53, "Input",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], -Cell[199455, 5563, 172, 3, 41, "Output",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +Cell[193765, 5213, 364, 8, 53, "Input",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], +Cell[194132, 5223, 191, 2, 41, "Output",ExpressionUUID->"6c1b0509-dc09-45a7-9277-5968a7f790ab"] }, Open ]], Cell[CellGroupData[{ -Cell[199664, 5571, 2663, 88, 215, "Input",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], -Cell[202330, 5661, 171, 3, 41, "Output",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +Cell[194360, 5230, 6118, 186, 900, "Input",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], +Cell[200481, 5418, 193, 2, 41, "Output",ExpressionUUID->"4a715c31-b284-49b5-b5c7-13d2351802bc"] }, Open ]], Cell[CellGroupData[{ -Cell[202538, 5669, 2603, 85, 215, "Input",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], -Cell[205144, 5756, 173, 3, 41, "Output",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +Cell[200711, 5425, 364, 8, 53, "Input",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], +Cell[201078, 5435, 190, 2, 41, "Output",ExpressionUUID->"a89ab109-a0f3-4663-9240-8d868f028eb9"] }, Open ]], Cell[CellGroupData[{ -Cell[205354, 5764, 3712, 118, 316, "Input",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], -Cell[209069, 5884, 174, 3, 41, "Output",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] +Cell[201305, 5442, 2659, 87, 435, "Input",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], +Cell[203967, 5531, 192, 2, 41, "Output",ExpressionUUID->"58ba46c2-3bbb-4d9e-9d8d-ca3b1dc1a81b"] }, Open ]], -Cell[209258, 5890, 138, 3, 36, "Input",ExpressionUUID->"8111b6bb-cdcb-ad40-9440-412e77bed40d"], Cell[CellGroupData[{ -Cell[209421, 5897, 2054, 59, 116, "Input",ExpressionUUID->"fc88a60e-e348-d344-96c4-1f4f66f53217"], -Cell[211478, 5958, 559, 12, 71, "Message",ExpressionUUID->"0833bd34-3252-a046-9aa3-94c1d6e5cfe9"], -Cell[212040, 5972, 560, 12, 71, "Message",ExpressionUUID->"f24a3618-ee43-704a-86fe-493dbed35e8d"], -Cell[212603, 5986, 565, 12, 71, "Message",ExpressionUUID->"86271901-aa3c-5542-ab18-fc06d3fd3f32"], -Cell[213171, 6000, 456, 10, 26, "Message",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], -Cell[213630, 6012, 170, 3, 41, "Output",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +Cell[204196, 5538, 2599, 84, 435, "Input",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], +Cell[206798, 5624, 191, 2, 41, "Output",ExpressionUUID->"14173882-98f0-4340-a056-21563fc6b720"] }, Open ]], Cell[CellGroupData[{ -Cell[213837, 6020, 2054, 59, 116, "Input",ExpressionUUID->"dca13eb7-7f94-3e45-81a8-b62dad3009d2"], -Cell[215894, 6081, 559, 12, 71, "Message",ExpressionUUID->"44f2ed65-5109-0141-bef6-eebaeda3d61d"], -Cell[216456, 6095, 559, 12, 71, "Message",ExpressionUUID->"ba49f32e-1ff7-b147-9f42-9c90ccc55447"], -Cell[217018, 6109, 565, 12, 71, "Message",ExpressionUUID->"fa95acf1-55b2-c042-9a9f-32e1ebea5c1e"], -Cell[217586, 6123, 458, 10, 26, "Message",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], -Cell[218047, 6135, 170, 3, 41, "Output",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +Cell[207026, 5631, 3708, 117, 575, "Input",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], +Cell[210737, 5750, 192, 2, 41, "Output",ExpressionUUID->"63f3defc-1318-48b8-82c4-f4efe9fb5daa"] }, Open ]], +Cell[210944, 5755, 160, 3, 36, "Input",ExpressionUUID->"8111b6bb-cdcb-ad40-9440-412e77bed40d"], Cell[CellGroupData[{ -Cell[218254, 6143, 1938, 53, 86, "Input",ExpressionUUID->"46451e4d-f5ef-b246-91c6-4265c9fafb97"], -Cell[220195, 6198, 20196, 379, 295, "Output",ExpressionUUID->"0e6ef056-d4e3-ac4d-9f2a-df071f8decb1"] +Cell[211129, 5762, 2073, 58, 276, "Input",ExpressionUUID->"fc88a60e-e348-d344-96c4-1f4f66f53217"], +Cell[213205, 5822, 664, 14, 73, "Message",ExpressionUUID->"d7966b00-204d-4602-9bda-7a8212491018"], +Cell[213872, 5838, 664, 14, 73, "Message",ExpressionUUID->"270f41f2-b8da-4c7a-bf1d-e8288d1d612a"], +Cell[214539, 5854, 666, 14, 73, "Message",ExpressionUUID->"f1d1b777-3c69-4793-8d9b-4d9ef323888c"], +Cell[215208, 5870, 492, 11, 32, "Message",ExpressionUUID->"2eeceea9-185f-4bc6-89c4-145a08992ee4"], +Cell[215703, 5883, 189, 2, 41, "Output",ExpressionUUID->"4e6024f7-91a9-48b5-92de-6646160e86ff"] }, Open ]], Cell[CellGroupData[{ -Cell[240428, 6582, 2094, 60, 116, "Input",ExpressionUUID->"06bd0169-a5a6-404c-935d-e1a61565f71e"], -Cell[242525, 6644, 503, 11, 48, "Message",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], -Cell[243031, 6657, 505, 11, 48, "Message",ExpressionUUID->"637082a9-fe74-7345-8895-dee77343ee6f"], -Cell[243539, 6670, 506, 11, 48, "Message",ExpressionUUID->"b2e7262c-7c6d-d94d-a545-ea4b363e579a"], -Cell[244048, 6683, 455, 10, 26, "Message",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], -Cell[244506, 6695, 55770, 961, 290, "Output",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] +Cell[215929, 5890, 2073, 58, 276, "Input",ExpressionUUID->"dca13eb7-7f94-3e45-81a8-b62dad3009d2"], +Cell[218005, 5950, 664, 14, 73, "Message",ExpressionUUID->"7f84f553-bc4b-4245-900c-b5b869d6b2ba"], +Cell[218672, 5966, 664, 14, 73, "Message",ExpressionUUID->"c93b5c19-fba3-4e75-a532-c2f4c261d3a2"], +Cell[219339, 5982, 666, 14, 73, "Message",ExpressionUUID->"bf73635c-14b3-46f1-92a8-8fb6203ca75a"], +Cell[220008, 5998, 490, 11, 32, "Message",ExpressionUUID->"6c514dd5-a1b4-46ef-9dfb-7fbe35d8cbfa"], +Cell[220501, 6011, 188, 2, 41, "Output",ExpressionUUID->"a7531fb0-e2f0-4dc6-a6fd-c90d63fc0350"] }, Open ]], -Cell[300291, 7659, 2453, 69, 140, "Input",ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-b938908ab9a4"], -Cell[302747, 7730, 209, 5, 36, "Input",ExpressionUUID->"6b0777bb-40fd-b54e-aa03-b6e82cb2e939"], Cell[CellGroupData[{ -Cell[302981, 7739, 217, 7, 61, "Input",ExpressionUUID->"1ec1e156-ca0f-9240-857c-ac86e3a0e3fd"], -Cell[303201, 7748, 173, 3, 41, "Output",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +Cell[220726, 6018, 2049, 54, 232, "Input",ExpressionUUID->"46451e4d-f5ef-b246-91c6-4265c9fafb97"], +Cell[222778, 6074, 20342, 380, 295, "Output",ExpressionUUID->"148604cf-7a59-43b3-8520-ee2aa19f2b7d"] }, Open ]], Cell[CellGroupData[{ -Cell[303411, 7756, 1814, 53, 116, "Input",ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-da901e49f6f1"], -Cell[305228, 7811, 506, 11, 48, "Message",ExpressionUUID->"08a2126f-e71c-b94d-8844-15e292a8f7d1"], -Cell[305737, 7824, 508, 11, 48, "Message",ExpressionUUID->"1acf7f10-7675-ea41-b478-94e928ef3377"], -Cell[306248, 7837, 509, 11, 48, "Message",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], -Cell[306760, 7850, 458, 10, 26, "Message",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], -Cell[307221, 7862, 24818, 454, 290, "Output",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] +Cell[243157, 6459, 2113, 59, 311, "Input",ExpressionUUID->"06bd0169-a5a6-404c-935d-e1a61565f71e"], +Cell[245273, 6520, 536, 12, 71, "Message",ExpressionUUID->"a7d0395b-5a95-44ba-9efc-c1a6a6936846"], +Cell[245812, 6534, 541, 12, 71, "Message",ExpressionUUID->"7017c8b4-1076-4c63-9f3c-8812fb650622"], +Cell[246356, 6548, 544, 12, 71, "Message",ExpressionUUID->"ed15cc4b-a735-43a9-a94d-0821432d7414"], +Cell[246903, 6562, 495, 11, 32, "Message",ExpressionUUID->"8aec8961-d17e-48ea-88eb-a0cfdf0f2a5f"], +Cell[247401, 6575, 22549, 416, 290, "Output",ExpressionUUID->"ea93db66-4310-42e9-a531-bdbb15ba1d47"] }, Open ]], Cell[CellGroupData[{ -Cell[332076, 8321, 1616, 48, 86, "Input",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], -Cell[333695, 8371, 582, 12, 71, "Message",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], -Cell[334280, 8385, 588, 12, 109, "Message",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], -Cell[334871, 8399, 590, 12, 109, "Message",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], -Cell[335464, 8413, 458, 10, 109, "Message",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], -Cell[335925, 8425, 171, 3, 109, "Output",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] +Cell[269987, 6996, 2475, 69, 296, "Input",ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-b938908ab9a4"], +Cell[272465, 7067, 9492, 222, 298, "Output",ExpressionUUID->"bd13faed-18f7-48a1-8ce8-c3ee2dba699b"] }, Open ]], Cell[CellGroupData[{ -Cell[336133, 8433, 2251, 64, 109, "Input",ExpressionUUID->"0b10f52e-4583-2a4b-993d-96e59dd43e6a"], -Cell[338387, 8499, 557, 12, 109, "Message",ExpressionUUID->"0e308aaf-a4b5-d740-9882-5c338a63d7a7"], -Cell[338947, 8513, 560, 12, 109, "Message",ExpressionUUID->"5e35cc91-e340-c74b-b6dd-42063e8a308b"], -Cell[339510, 8527, 565, 12, 109, "Message",ExpressionUUID->"c3f5c3a9-ece1-e648-aa3a-3f66f2873ea7"], -Cell[340078, 8541, 458, 10, 109, "Message",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], -Cell[340539, 8553, 172, 3, 109, "Output",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] +Cell[281994, 7294, 228, 4, 36, "Input",ExpressionUUID->"6b0777bb-40fd-b54e-aa03-b6e82cb2e939"], +Cell[282225, 7300, 28912, 548, 290, "Output",ExpressionUUID->"7dd96ded-0840-40ff-9361-1188e9f37620"] }, Open ]], Cell[CellGroupData[{ -Cell[340748, 8561, 2218, 64, 109, "Input",ExpressionUUID->"a58948c9-6d3d-e847-a269-d2e0cc5d1484"], -Cell[342969, 8627, 559, 12, 109, "Message",ExpressionUUID->"2247cd70-3ffa-2245-971e-6c6a2bd1ecfc"], -Cell[343531, 8641, 562, 12, 109, "Message",ExpressionUUID->"d9ae7d5b-4e89-a74f-be53-15700ab2593c"], -Cell[344096, 8655, 563, 12, 109, "Message",ExpressionUUID->"821c7ce3-36cc-9549-9881-1225eb1561cf"], -Cell[344662, 8669, 458, 10, 109, "Message",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], -Cell[345123, 8681, 170, 3, 109, "Output",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] +Cell[311174, 7853, 236, 6, 61, "Input",ExpressionUUID->"1ec1e156-ca0f-9240-857c-ac86e3a0e3fd"], +Cell[311413, 7861, 193, 2, 41, "Output",ExpressionUUID->"32faa896-5494-4aa5-9478-675be6216d7f"] }, Open ]], Cell[CellGroupData[{ -Cell[345330, 8689, 2221, 64, 109, "Input",ExpressionUUID->"c817b2d1-7deb-5a45-9938-ca10003188eb"], -Cell[347554, 8755, 559, 12, 109, "Message",ExpressionUUID->"3701f96f-691c-9040-a8a1-ff3958638338"], -Cell[348116, 8769, 562, 12, 109, "Message",ExpressionUUID->"9e260603-f97f-ac44-8251-869444fbcc24"], -Cell[348681, 8783, 563, 12, 109, "Message",ExpressionUUID->"f34d60ab-6a89-fd45-89b6-5f3b4b17dd22"], -Cell[349247, 8797, 458, 10, 109, "Message",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], -Cell[349708, 8809, 171, 3, 109, "Output",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] +Cell[311643, 7868, 1833, 52, 311, "Input",ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-da901e49f6f1"], +Cell[313479, 7922, 544, 12, 71, "Message",ExpressionUUID->"268779a1-b53a-425c-accd-f6d9f57b84a4"], +Cell[314026, 7936, 547, 12, 71, "Message",ExpressionUUID->"d293314f-fb17-46ae-beb6-9deecac7fe24"], +Cell[314576, 7950, 550, 12, 71, "Message",ExpressionUUID->"7ff59a59-1231-4494-91d1-3c937e34f2a9"], +Cell[315129, 7964, 491, 11, 32, "Message",ExpressionUUID->"3f8a0eca-b6bf-4790-bf6f-9ab7b0f711b4"], +Cell[315623, 7977, 23176, 428, 290, "Output",ExpressionUUID->"7206c241-4b51-4b10-a73c-12504949d927"] }, Open ]], Cell[CellGroupData[{ -Cell[349916, 8817, 213, 6, 109, "Input",ExpressionUUID->"350334c7-7c47-c24c-8adc-781173809e57"], -Cell[350132, 8825, 173, 3, 109, "Output",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] +Cell[338836, 8410, 1616, 48, 132, "Input",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], +Cell[340455, 8460, 666, 14, 73, "Message",ExpressionUUID->"9a470647-ec97-4c24-8f11-1ae80e54fb6f"], +Cell[341124, 8476, 668, 14, 73, "Message",ExpressionUUID->"442d3ee7-8f43-4f63-9c8d-3e9e2c6db1bd"], +Cell[341795, 8492, 664, 14, 73, "Message",ExpressionUUID->"941f9210-a793-4988-b59b-e0df9c18d95c"], +Cell[342462, 8508, 493, 11, 32, "Message",ExpressionUUID->"1c2fde78-e5ad-477b-8b68-7643e7c5a284"], +Cell[342958, 8521, 193, 3, 41, "Output",ExpressionUUID->"0e46b145-9512-430c-bdd6-03813d18ba7c"] }, Open ]], -Cell[350320, 8831, 245, 5, 109, "Input",ExpressionUUID->"597921e5-69d3-564d-a8fa-092e912c15e0"], Cell[CellGroupData[{ -Cell[350590, 8840, 558, 19, 109, "Input",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], -Cell[351151, 8861, 170, 3, 109, "Output",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] +Cell[343188, 8529, 2274, 64, 348, "Input",ExpressionUUID->"0b10f52e-4583-2a4b-993d-96e59dd43e6a"], +Cell[345465, 8595, 667, 14, 73, "Message",ExpressionUUID->"6c71c201-59cc-4e2e-b7ed-9291e96bc994"], +Cell[346135, 8611, 664, 14, 73, "Message",ExpressionUUID->"5d72e84f-d58a-48f8-a55c-43b6b982ea0a"], +Cell[346802, 8627, 665, 14, 73, "Message",ExpressionUUID->"0cb63562-6ecc-41fa-99a6-852e36ec2bd5"], +Cell[347470, 8643, 493, 11, 32, "Message",ExpressionUUID->"35209c04-f50a-423e-b95a-1beb73b8bf55"], +Cell[347966, 8656, 193, 3, 41, "Output",ExpressionUUID->"3c9b9624-927a-4676-8eb8-2341830162eb"] }, Open ]], Cell[CellGroupData[{ -Cell[351358, 8869, 170, 5, 109, "Input",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], -Cell[351531, 8876, 173, 3, 109, "Output",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] +Cell[348196, 8664, 2230, 63, 348, "Input",ExpressionUUID->"a58948c9-6d3d-e847-a269-d2e0cc5d1484"], +Cell[350429, 8729, 669, 14, 73, "Message",ExpressionUUID->"8cda67ad-d49a-4609-8ee3-5b451c7bbda3"], +Cell[351101, 8745, 666, 14, 73, "Message",ExpressionUUID->"363f759b-0dd7-4d66-9b81-af11f24be131"], +Cell[351770, 8761, 666, 14, 73, "Message",ExpressionUUID->"32b700bf-c609-47de-8aff-5f0ac76fb451"], +Cell[352439, 8777, 497, 11, 32, "Message",ExpressionUUID->"39d0527a-3a05-416d-b0cb-8990ec6ca72e"], +Cell[352939, 8790, 193, 3, 41, "Output",ExpressionUUID->"954749c0-a023-4811-be45-11260f2a4ca3"] }, Open ]], Cell[CellGroupData[{ -Cell[351741, 8884, 181, 5, 109, "Input",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], -Cell[351925, 8891, 171, 3, 109, "Output",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] +Cell[353169, 8798, 2233, 63, 348, "Input",ExpressionUUID->"c817b2d1-7deb-5a45-9938-ca10003188eb"], +Cell[355405, 8863, 666, 14, 73, "Message",ExpressionUUID->"2f280f68-519e-416c-a4d7-d3d75ca195f8"], +Cell[356074, 8879, 667, 14, 73, "Message",ExpressionUUID->"53302059-d984-42a4-9dac-bb152bf039a2"], +Cell[356744, 8895, 667, 14, 73, "Message",ExpressionUUID->"f82a40c2-64bb-401a-a843-f17ab96ad15f"], +Cell[357414, 8911, 495, 11, 32, "Message",ExpressionUUID->"acadff16-81b8-49e7-80b4-7bc39eaec292"], +Cell[357912, 8924, 193, 3, 41, "Output",ExpressionUUID->"e51fb624-0e4f-4086-94c1-21b9383defc0"] }, Open ]], Cell[CellGroupData[{ -Cell[352133, 8899, 6055, 185, 109, "Input",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], -Cell[358191, 9086, 172, 3, 109, "Output",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] +Cell[358142, 8932, 236, 6, 60, "Input",ExpressionUUID->"350334c7-7c47-c24c-8adc-781173809e57"], +Cell[358381, 8940, 194, 3, 41, "Output",ExpressionUUID->"dd23eecf-bc8f-4026-befb-28f2e9976d0e"] }, Open ]], +Cell[358590, 8946, 271, 6, 109, "Input",ExpressionUUID->"597921e5-69d3-564d-a8fa-092e912c15e0"], Cell[CellGroupData[{ -Cell[358400, 9094, 368, 9, 109, "Input",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], -Cell[358771, 9105, 172, 3, 109, "Output",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] +Cell[358886, 8956, 558, 19, 66, "Input",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], +Cell[359447, 8977, 192, 3, 41, "Output",ExpressionUUID->"12cee30a-5064-427c-aed3-3666bca22668"] }, Open ]], Cell[CellGroupData[{ -Cell[358980, 9113, 6122, 187, 109, "Input",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], -Cell[365105, 9302, 173, 3, 109, "Output",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] +Cell[359676, 8985, 170, 5, 71, "Input",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], +Cell[359849, 8992, 194, 3, 41, "Output",ExpressionUUID->"e500e689-cdd9-4dda-a6e9-b4a25a9cf2d2"] }, Open ]], Cell[CellGroupData[{ -Cell[365315, 9310, 368, 9, 109, "Input",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], -Cell[365686, 9321, 170, 3, 109, "Output",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] +Cell[360080, 9000, 181, 5, 55, "Input",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], +Cell[360264, 9007, 192, 3, 41, "Output",ExpressionUUID->"9f581fc5-f8c8-4eb7-86e9-b2d6cd2836ec"] }, Open ]], Cell[CellGroupData[{ -Cell[365893, 9329, 2663, 88, 109, "Input",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], -Cell[368559, 9419, 171, 3, 109, "Output",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] +Cell[360493, 9015, 6055, 185, 831, "Input",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], +Cell[366551, 9202, 197, 3, 41, "Output",ExpressionUUID->"7f801a86-2679-4ad1-adf1-b44d785a973f"] }, Open ]], Cell[CellGroupData[{ -Cell[368767, 9427, 2603, 85, 109, "Input",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], -Cell[371373, 9514, 173, 3, 109, "Output",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] +Cell[366785, 9210, 368, 9, 53, "Input",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], +Cell[367156, 9221, 197, 3, 41, "Output",ExpressionUUID->"264598d4-387d-44e6-a31a-41cab313ec8b"] }, Open ]], Cell[CellGroupData[{ -Cell[371583, 9522, 3712, 118, 109, "Input",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], -Cell[375298, 9642, 174, 3, 109, "Output",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] +Cell[367390, 9229, 6122, 187, 900, "Input",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], +Cell[373515, 9418, 197, 3, 41, "Output",ExpressionUUID->"9cc23128-1b0c-438a-8e9f-14cf7d3f2321"] }, Open ]], Cell[CellGroupData[{ -Cell[375509, 9650, 2049, 58, 109, "Input",ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], -Cell[377561, 9710, 579, 12, 109, "Message",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], -Cell[378143, 9724, 582, 12, 109, "Message",ExpressionUUID->"dda5376f-614c-1846-a3e1-09857b4bcae6"], -Cell[378728, 9738, 584, 12, 109, "Message",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], -Cell[379315, 9752, 458, 10, 109, "Message",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], -Cell[379776, 9764, 172, 3, 109, "Output",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] +Cell[373749, 9426, 368, 9, 53, "Input",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], +Cell[374120, 9437, 195, 3, 41, "Output",ExpressionUUID->"4b80daa3-8bb9-4c3d-ad14-f9b06ec4f38e"] }, Open ]], Cell[CellGroupData[{ -Cell[379985, 9772, 2054, 59, 109, "Input",ExpressionUUID->"baacd3f7-96e4-2949-b9f9-9afb90e551d9"], -Cell[382042, 9833, 577, 12, 109, "Message",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], -Cell[382622, 9847, 580, 12, 109, "Message",ExpressionUUID->"b91abb11-65b8-3b43-a495-4cb1457edd27"], -Cell[383205, 9861, 583, 12, 109, "Message",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], -Cell[383791, 9875, 456, 10, 109, "Message",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], -Cell[384250, 9887, 171, 3, 109, "Output",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] +Cell[374352, 9445, 2663, 88, 435, "Input",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], +Cell[377018, 9535, 194, 3, 41, "Output",ExpressionUUID->"2b15bf29-4a58-4470-991a-8cb8023e51c0"] }, Open ]], Cell[CellGroupData[{ -Cell[384458, 9895, 2030, 55, 109, "Input",ExpressionUUID->"ea08a5a9-d446-9147-ba82-e3924f732df2"], -Cell[386491, 9952, 20493, 384, 109, "Output",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] +Cell[377249, 9543, 2603, 85, 435, "Input",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], +Cell[379855, 9630, 194, 3, 41, "Output",ExpressionUUID->"9770ccda-13db-4d41-8a82-7f4a68a62bb4"] }, Open ]], Cell[CellGroupData[{ -Cell[407021, 10341, 2120, 60, 109, "Input",ExpressionUUID->"42ddbf41-0bd8-b749-bead-56c89a9b7467"], -Cell[409144, 10403, 501, 11, 109, "Message",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], -Cell[409648, 10416, 504, 11, 109, "Message",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], -Cell[410155, 10429, 508, 11, 109, "Message",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], -Cell[410666, 10442, 456, 10, 109, "Message",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], -Cell[411125, 10454, 31462, 562, 109, "Output",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] +Cell[380086, 9638, 3712, 118, 575, "Input",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], +Cell[383801, 9758, 195, 3, 41, "Output",ExpressionUUID->"bb8769d2-49d3-4832-9594-2ade679977cd"] }, Open ]], -Cell[442602, 11019, 209, 5, 109, "Input",ExpressionUUID->"6883477e-2a54-0a45-979a-ae60c73e9e82"], Cell[CellGroupData[{ -Cell[442836, 11028, 1616, 48, 109, "Input",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], -Cell[444455, 11078, 596, 12, 109, "Message",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], -Cell[445054, 11092, 602, 12, 109, "Message",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], -Cell[445659, 11106, 605, 12, 109, "Message",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], -Cell[446267, 11120, 458, 10, 109, "Message",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], -Cell[446728, 11132, 171, 3, 109, "Output",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] +Cell[384033, 9766, 2074, 59, 276, "Input",ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], +Cell[386110, 9827, 668, 14, 73, "Message",ExpressionUUID->"93e4edc2-447e-4c0f-a346-26d948ff7b98"], +Cell[386781, 9843, 668, 14, 73, "Message",ExpressionUUID->"989a650b-cdc5-4290-9f03-b198b3beb33c"], +Cell[387452, 9859, 669, 14, 73, "Message",ExpressionUUID->"33659442-747d-45c6-a7ee-ec009636862e"], +Cell[388124, 9875, 495, 11, 32, "Message",ExpressionUUID->"4e7e7040-be72-4657-a75f-543962a378a2"], +Cell[388622, 9888, 197, 3, 41, "Output",ExpressionUUID->"51fc6f5b-ad14-4dfe-b21e-7546a2d0cee2"] }, Open ]], Cell[CellGroupData[{ -Cell[446936, 11140, 2251, 64, 109, "Input",ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-2a98ba29b602"], -Cell[449190, 11206, 577, 12, 109, "Message",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], -Cell[449770, 11220, 580, 12, 109, "Message",ExpressionUUID->"bbc1c804-e094-2b49-bceb-c837038552fa"], -Cell[450353, 11234, 586, 12, 109, "Message",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], -Cell[450942, 11248, 458, 10, 109, "Message",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], -Cell[451403, 11260, 173, 3, 109, "Output",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] +Cell[388856, 9896, 2077, 59, 276, "Input",ExpressionUUID->"baacd3f7-96e4-2949-b9f9-9afb90e551d9"], +Cell[390936, 9957, 666, 14, 73, "Message",ExpressionUUID->"5991f399-a129-4e6c-b1b2-234369ec25ff"], +Cell[391605, 9973, 666, 14, 73, "Message",ExpressionUUID->"702474a9-3787-41f6-9cbe-c177f5d42595"], +Cell[392274, 9989, 667, 14, 73, "Message",ExpressionUUID->"760b37af-c69d-4d81-b868-473fc2318874"], +Cell[392944, 10005, 493, 11, 32, "Message",ExpressionUUID->"207cbd56-7ef0-4b88-b502-e66de17935d8"], +Cell[393440, 10018, 193, 3, 41, "Output",ExpressionUUID->"da7ba560-6b9a-4e7a-a8d5-fbebfb42c6c4"] }, Open ]], Cell[CellGroupData[{ -Cell[451613, 11268, 2219, 64, 109, "Input",ExpressionUUID->"edfdd675-c60b-304e-9e16-68452b971319"], -Cell[453835, 11334, 579, 12, 109, "Message",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], -Cell[454417, 11348, 580, 12, 109, "Message",ExpressionUUID->"7911ebc5-127d-5841-a246-fcff3e2e3d7f"], -Cell[455000, 11362, 586, 12, 109, "Message",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], -Cell[455589, 11376, 458, 10, 109, "Message",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], -Cell[456050, 11388, 171, 3, 109, "Output",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] +Cell[393670, 10026, 2053, 55, 232, "Input",ExpressionUUID->"ea08a5a9-d446-9147-ba82-e3924f732df2"], +Cell[395726, 10083, 20494, 386, 290, "Output",ExpressionUUID->"3809af5e-e6c6-4442-b9a8-7f846433de0f"] }, Open ]], Cell[CellGroupData[{ -Cell[456258, 11396, 2219, 64, 109, "Input",ExpressionUUID->"d0469d46-2e74-494a-be85-b41cb2f3fa92"], -Cell[458480, 11462, 576, 12, 109, "Message",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], -Cell[459059, 11476, 580, 12, 109, "Message",ExpressionUUID->"05cc4b97-7653-f04b-8664-f56b3128e201"], -Cell[459642, 11490, 584, 12, 109, "Message",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], -Cell[460229, 11504, 458, 10, 109, "Message",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], -Cell[460690, 11516, 173, 3, 109, "Output",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] +Cell[416257, 10474, 2143, 60, 311, "Input",ExpressionUUID->"42ddbf41-0bd8-b749-bead-56c89a9b7467"], +Cell[418403, 10536, 534, 12, 71, "Message",ExpressionUUID->"fe446117-0ec2-40cb-8463-6dcb9e4d4f5a"], +Cell[418940, 10550, 538, 12, 71, "Message",ExpressionUUID->"d0c5c7e1-1371-451a-8b26-52c714993a3d"], +Cell[419481, 10564, 543, 12, 71, "Message",ExpressionUUID->"be3efab6-8d35-43c9-ae24-7cb2dd801990"], +Cell[420027, 10578, 493, 11, 32, "Message",ExpressionUUID->"174e3b20-2df3-4641-a7e8-5566d8143d07"], +Cell[420523, 10591, 23731, 438, 290, "Output",ExpressionUUID->"527dbcef-c82b-43b9-b325-f81534d2eb99"] }, Open ]], Cell[CellGroupData[{ -Cell[460900, 11524, 212, 6, 109, "Input",ExpressionUUID->"58b5e243-0972-1946-bd17-aca0f3e8a35b"], -Cell[461115, 11532, 172, 3, 109, "Output",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] +Cell[444291, 11034, 232, 5, 36, "Input",ExpressionUUID->"6883477e-2a54-0a45-979a-ae60c73e9e82"], +Cell[444526, 11041, 30089, 570, 290, "Output",ExpressionUUID->"dcb52c76-3873-4028-9b5c-b982eaef6b83"] }, Open ]], -Cell[461302, 11538, 244, 5, 109, "Input",ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-a3711ba632a4"], Cell[CellGroupData[{ -Cell[461571, 11547, 558, 19, 109, "Input",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], -Cell[462132, 11568, 171, 3, 109, "Output",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] +Cell[474652, 11616, 1616, 48, 132, "Input",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], +Cell[476271, 11666, 666, 14, 73, "Message",ExpressionUUID->"3b1f8246-6af7-44c0-8b1f-104069523c93"], +Cell[476940, 11682, 665, 14, 73, "Message",ExpressionUUID->"b08dbc8d-a9a6-4f52-b030-11b9e3f831af"], +Cell[477608, 11698, 667, 14, 73, "Message",ExpressionUUID->"cfcd9f07-f98d-48c7-bc96-b030aa023ef2"], +Cell[478278, 11714, 493, 11, 32, "Message",ExpressionUUID->"78384932-b469-41a5-b4c3-ddd0960a9644"], +Cell[478774, 11727, 193, 3, 41, "Output",ExpressionUUID->"173f8f6a-f1ac-4de6-a424-5da85ddc396b"] }, Open ]], Cell[CellGroupData[{ -Cell[462340, 11576, 170, 5, 109, "Input",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], -Cell[462513, 11583, 171, 3, 109, "Output",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] +Cell[479004, 11735, 2274, 64, 348, "Input",ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-2a98ba29b602"], +Cell[481281, 11801, 666, 14, 73, "Message",ExpressionUUID->"fb2bd733-3359-4062-a7e2-035d9ab3205f"], +Cell[481950, 11817, 666, 14, 73, "Message",ExpressionUUID->"31c20502-f82b-4894-bf08-6486d7b96543"], +Cell[482619, 11833, 667, 14, 73, "Message",ExpressionUUID->"eb6d1f78-67f6-428b-a3d1-d971ce53d1a5"], +Cell[483289, 11849, 493, 11, 32, "Message",ExpressionUUID->"f41a397c-bd0e-483f-aa8d-2ed659701d7f"], +Cell[483785, 11862, 196, 3, 41, "Output",ExpressionUUID->"5c50972d-10a3-4ed3-a0c5-642afb2886d2"] }, Open ]], Cell[CellGroupData[{ -Cell[462721, 11591, 181, 5, 109, "Input",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], -Cell[462905, 11598, 173, 3, 109, "Output",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] +Cell[484018, 11870, 2231, 63, 348, "Input",ExpressionUUID->"edfdd675-c60b-304e-9e16-68452b971319"], +Cell[486252, 11935, 668, 14, 73, "Message",ExpressionUUID->"82c0482f-eea1-46ff-9049-a8a44ed7030d"], +Cell[486923, 11951, 670, 14, 73, "Message",ExpressionUUID->"64e7ceaf-b5c1-4b3f-9f16-147ea5e8a24d"], +Cell[487596, 11967, 667, 14, 73, "Message",ExpressionUUID->"ed5ed810-155c-4c66-b378-946e498aa198"], +Cell[488266, 11983, 495, 11, 32, "Message",ExpressionUUID->"999bb3f8-65ca-40a2-bab0-59e620c3d3ab"], +Cell[488764, 11996, 196, 3, 41, "Output",ExpressionUUID->"0ee96417-6835-42a5-b51d-18ec452976d8"] }, Open ]], Cell[CellGroupData[{ -Cell[463115, 11606, 6055, 185, 109, "Input",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], -Cell[469173, 11793, 173, 3, 109, "Output",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] +Cell[488997, 12004, 2231, 63, 348, "Input",ExpressionUUID->"d0469d46-2e74-494a-be85-b41cb2f3fa92"], +Cell[491231, 12069, 665, 14, 73, "Message",ExpressionUUID->"48d75006-9d88-48dc-bcec-24f3b83c7af9"], +Cell[491899, 12085, 665, 14, 73, "Message",ExpressionUUID->"1476e88f-01e3-4610-ab9c-f4512ec767f2"], +Cell[492567, 12101, 663, 14, 73, "Message",ExpressionUUID->"f9b66934-6309-4456-acc5-f4bec908da66"], +Cell[493233, 12117, 491, 11, 32, "Message",ExpressionUUID->"d29f4056-6a74-45e9-a9ee-9ed5b4fe393e"], +Cell[493727, 12130, 194, 3, 41, "Output",ExpressionUUID->"73aeb9a0-7c13-4430-92b7-32bca17191fc"] }, Open ]], Cell[CellGroupData[{ -Cell[469383, 11801, 368, 9, 109, "Input",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], -Cell[469754, 11812, 172, 3, 109, "Output",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] +Cell[493958, 12138, 235, 6, 60, "Input",ExpressionUUID->"58b5e243-0972-1946-bd17-aca0f3e8a35b"], +Cell[494196, 12146, 195, 3, 41, "Output",ExpressionUUID->"7ac3bec8-c7e8-4f1e-be86-d00632ad90d4"] }, Open ]], +Cell[494406, 12152, 270, 6, 36, "Input",ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-a3711ba632a4"], Cell[CellGroupData[{ -Cell[469963, 11820, 6122, 187, 109, "Input",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], -Cell[476088, 12009, 173, 3, 109, "Output",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] +Cell[494701, 12162, 558, 19, 66, "Input",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], +Cell[495262, 12183, 194, 3, 41, "Output",ExpressionUUID->"9624f9b8-2287-48f4-9d88-2b6ee3ef19a5"] }, Open ]], Cell[CellGroupData[{ -Cell[476298, 12017, 368, 9, 109, "Input",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], -Cell[476669, 12028, 172, 3, 109, "Output",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] +Cell[495493, 12191, 170, 5, 71, "Input",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], +Cell[495666, 12198, 193, 3, 41, "Output",ExpressionUUID->"2757d953-d094-40d9-bc4f-0a31de4fc287"] }, Open ]], Cell[CellGroupData[{ -Cell[476878, 12036, 2663, 88, 109, "Input",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], -Cell[479544, 12126, 173, 3, 109, "Output",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] +Cell[495896, 12206, 181, 5, 55, "Input",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], +Cell[496080, 12213, 197, 3, 41, "Output",ExpressionUUID->"2bdf21cb-e0db-419b-80b5-ebe16a881f6f"] }, Open ]], Cell[CellGroupData[{ -Cell[479754, 12134, 2603, 85, 109, "Input",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], -Cell[482360, 12221, 171, 3, 109, "Output",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] +Cell[496314, 12221, 6055, 185, 831, "Input",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], +Cell[502372, 12408, 194, 3, 41, "Output",ExpressionUUID->"84861c9d-fa48-49b0-ab4f-2984b572f07e"] }, Open ]], Cell[CellGroupData[{ -Cell[482568, 12229, 3712, 118, 109, "Input",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], -Cell[486283, 12349, 174, 3, 109, "Output",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] +Cell[502603, 12416, 368, 9, 53, "Input",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], +Cell[502974, 12427, 197, 3, 41, "Output",ExpressionUUID->"d36a21ff-4117-4637-9a93-b97a5ad324d4"] }, Open ]], Cell[CellGroupData[{ -Cell[486494, 12357, 2054, 59, 109, "Input",ExpressionUUID->"ba508068-6b78-254c-87d6-cf1adc0753dd"], -Cell[488551, 12418, 574, 12, 109, "Message",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], -Cell[489128, 12432, 580, 12, 109, "Message",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], -Cell[489711, 12446, 580, 12, 109, "Message",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], -Cell[490294, 12460, 456, 10, 109, "Message",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], -Cell[490753, 12472, 172, 3, 109, "Output",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] +Cell[503208, 12435, 6122, 187, 900, "Input",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], +Cell[509333, 12624, 194, 3, 41, "Output",ExpressionUUID->"04f5c1cd-c7bc-4b4e-b818-26f52a9da845"] }, Open ]], Cell[CellGroupData[{ -Cell[490962, 12480, 2054, 59, 109, "Input",ExpressionUUID->"842e33e4-ae06-f746-ab8b-97489285cc9c"], -Cell[493019, 12541, 576, 12, 109, "Message",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], -Cell[493598, 12555, 577, 12, 109, "Message",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], -Cell[494178, 12569, 582, 12, 109, "Message",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], -Cell[494763, 12583, 458, 10, 109, "Message",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], -Cell[495224, 12595, 172, 3, 109, "Output",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] +Cell[509564, 12632, 368, 9, 53, "Input",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], +Cell[509935, 12643, 195, 3, 41, "Output",ExpressionUUID->"72038324-c22b-4bbf-96a5-13d69e4c0f09"] }, Open ]], Cell[CellGroupData[{ -Cell[495433, 12603, 2028, 55, 109, "Input",ExpressionUUID->"b2e314f8-a6f0-6942-a94c-5ac1cacd7190"], -Cell[497464, 12660, 20021, 378, 109, "Output",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] +Cell[510167, 12651, 2663, 88, 435, "Input",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], +Cell[512833, 12741, 198, 3, 41, "Output",ExpressionUUID->"baaec130-434f-4049-9a58-f89d2d902f2d"] }, Open ]], Cell[CellGroupData[{ -Cell[517522, 13043, 2146, 61, 109, "Input",ExpressionUUID->"497f9779-a3e4-c84e-a207-0aac70483e3c"], -Cell[519671, 13106, 502, 11, 109, "Message",ExpressionUUID->"56dc07a7-05cc-424a-8fff-08f056385a44"], -Cell[520176, 13119, 506, 11, 109, "Message",ExpressionUUID->"71ae3883-d346-164c-9764-dc57f6863817"], -Cell[520685, 13132, 508, 11, 109, "Message",ExpressionUUID->"16c86d51-9f27-3c48-b312-93c489e538a4"], -Cell[521196, 13145, 456, 10, 109, "Message",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], -Cell[521655, 13157, 30015, 538, 109, "Output",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] +Cell[513068, 12749, 2603, 85, 435, "Input",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], +Cell[515674, 12836, 193, 3, 41, "Output",ExpressionUUID->"f11d8e1e-f196-4f7f-863e-3f0d6875de56"] }, Open ]], -Cell[551685, 13698, 209, 5, 109, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], Cell[CellGroupData[{ -Cell[551919, 13707, 1590, 47, 109, "Input",ExpressionUUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], -Cell[553512, 13756, 342, 6, 109, "Message",ExpressionUUID->"9e6d6a70-ad75-9b40-8a0b-ca802f09d5a2"], -Cell[553857, 13764, 101, 0, 109, "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +Cell[515904, 12844, 3712, 118, 575, "Input",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], +Cell[519619, 12964, 196, 3, 41, "Output",ExpressionUUID->"b54d7940-774e-4cb9-8440-a5798e396a9c"] }, Open ]], Cell[CellGroupData[{ -Cell[553995, 13769, 2249, 64, 109, "Input",ExpressionUUID->"a3e3d205-e3b4-874a-a36c-53cfa72184b4"], -Cell[556247, 13835, 342, 6, 109, "Message",ExpressionUUID->"9e9d949e-1d4c-8649-8d0e-b7deecfb3ba4"], -Cell[556592, 13843, 342, 6, 109, "Message",ExpressionUUID->"76f8ef60-aab6-7442-aeca-4cebad23cb0e"], -Cell[556937, 13851, 101, 0, 109, "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +Cell[519852, 12972, 2077, 59, 276, "Input",ExpressionUUID->"ba508068-6b78-254c-87d6-cf1adc0753dd"], +Cell[521932, 13033, 666, 14, 73, "Message",ExpressionUUID->"6330e63e-8008-44ff-beb4-1d8d43c7f7a7"], +Cell[522601, 13049, 666, 14, 73, "Message",ExpressionUUID->"3f480548-6e22-4b19-a06c-f42ce589ce3b"], +Cell[523270, 13065, 665, 14, 73, "Message",ExpressionUUID->"f5e97d35-d357-4a5f-b02a-2be23418523d"], +Cell[523938, 13081, 495, 11, 32, "Message",ExpressionUUID->"d7ce355f-da86-4b22-b4e7-a1ad8039c5ce"], +Cell[524436, 13094, 194, 3, 41, "Output",ExpressionUUID->"b8ceb846-ec42-4763-9df2-0d3847818939"] }, Open ]], Cell[CellGroupData[{ -Cell[557075, 13856, 2221, 64, 109, "Input",ExpressionUUID->"6977f025-454e-0e4a-b118-07bad9ba3e82"], -Cell[559299, 13922, 342, 6, 109, "Message",ExpressionUUID->"566a849f-fc85-4d42-a545-a46d44cf7346"], -Cell[559644, 13930, 342, 6, 109, "Message",ExpressionUUID->"fb1cb4d6-a504-e445-bb52-7946e1bca3c6"], -Cell[559989, 13938, 100, 0, 109, "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +Cell[524667, 13102, 2077, 59, 276, "Input",ExpressionUUID->"842e33e4-ae06-f746-ab8b-97489285cc9c"], +Cell[526747, 13163, 668, 14, 73, "Message",ExpressionUUID->"09905b38-3979-461a-88bc-2eee79a98310"], +Cell[527418, 13179, 667, 14, 73, "Message",ExpressionUUID->"9dfcb1a2-f025-4f0a-b139-d41a267233ea"], +Cell[528088, 13195, 669, 14, 73, "Message",ExpressionUUID->"eb130156-eb35-4f69-afef-dde5b5a85f64"], +Cell[528760, 13211, 495, 11, 32, "Message",ExpressionUUID->"48b40f99-f915-422e-acf5-abe8b418abbd"], +Cell[529258, 13224, 196, 3, 41, "Output",ExpressionUUID->"f3b7d1e4-1077-4519-bacc-56fcd7375bc1"] }, Open ]], Cell[CellGroupData[{ -Cell[560126, 13943, 2223, 64, 109, "Input",ExpressionUUID->"df8ecb01-788a-604d-b773-f29bb610eb30"], -Cell[562352, 14009, 342, 6, 109, "Message",ExpressionUUID->"f9e34ec5-1462-b340-b2e7-8e875dd33d28"], -Cell[562697, 14017, 342, 6, 109, "Message",ExpressionUUID->"19ffb858-7059-2a48-a3db-e2d0dfcf2131"], -Cell[563042, 14025, 101, 0, 109, "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +Cell[529491, 13232, 2051, 55, 232, "Input",ExpressionUUID->"b2e314f8-a6f0-6942-a94c-5ac1cacd7190"], +Cell[531545, 13289, 20309, 383, 295, "Output",ExpressionUUID->"52b2c9f6-0d51-498d-987d-1067672980a0"] }, Open ]], Cell[CellGroupData[{ -Cell[563180, 14030, 213, 6, 109, "Input",ExpressionUUID->"54a5e329-20bd-e742-afe8-d2cfa007cfcf"], -Cell[563396, 14038, 102, 0, 109, "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] -}, Open ]] +Cell[551891, 13677, 2168, 61, 311, "Input",ExpressionUUID->"497f9779-a3e4-c84e-a207-0aac70483e3c"], +Cell[554062, 13740, 537, 12, 71, "Message",ExpressionUUID->"c729a759-b3a9-42a1-803c-f95bfc127e58"], +Cell[554602, 13754, 539, 12, 71, "Message",ExpressionUUID->"a4d062c0-0826-4116-8b1b-18a11f24d001"], +Cell[555144, 13768, 542, 12, 71, "Message",ExpressionUUID->"b00d2f6d-56e7-456e-816f-7f59c3cba5fb"], +Cell[555689, 13782, 495, 11, 32, "Message",ExpressionUUID->"5c7e39a1-4b28-47d0-8660-118a83662b66"], +Cell[556187, 13795, 23128, 426, 290, "Output",ExpressionUUID->"ffb8be6d-8ec8-4ba1-9678-681f2f17f3e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[579352, 14226, 232, 5, 36, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], +Cell[579587, 14233, 29489, 558, 290, "Output",ExpressionUUID->"d7c61bf0-6bc5-48a7-aa5e-919daaf674c1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[609113, 14796, 1616, 48, 132, "Input",ExpressionUUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], +Cell[610732, 14846, 643, 14, 73, "Message",ExpressionUUID->"2877665a-0e93-40d3-9d78-5cede5a90228"], +Cell[611378, 14862, 644, 14, 73, "Message",ExpressionUUID->"9ad56522-3112-4919-a626-0a492cd0371d"], +Cell[612025, 14878, 644, 14, 73, "Message",ExpressionUUID->"8a347b03-c9f8-4fa4-b298-476bcce95d75"], +Cell[612672, 14894, 471, 11, 32, "Message",ExpressionUUID->"6424d05b-2792-4171-a412-39d4cd3fd2d6"], +Cell[613146, 14907, 170, 3, 41, "Output",ExpressionUUID->"419d8568-4bdf-4654-9f5f-9a56b3c4a223"] +}, Open ]], +Cell[CellGroupData[{ +Cell[613353, 14915, 2272, 64, 348, "Input",ExpressionUUID->"a3e3d205-e3b4-874a-a36c-53cfa72184b4"], +Cell[615628, 14981, 644, 14, 73, "Message",ExpressionUUID->"8638f74e-ed8d-44c1-8aba-5aef331b8fef"], +Cell[616275, 14997, 644, 14, 73, "Message",ExpressionUUID->"4da0a9dc-859e-4180-85af-0d66e1170f76"], +Cell[616922, 15013, 645, 14, 73, "Message",ExpressionUUID->"eb5384e6-7d12-4196-8070-15f1ce032397"], +Cell[617570, 15029, 470, 11, 32, "Message",ExpressionUUID->"a9127502-ed87-486a-868f-15f28692d661"], +Cell[618043, 15042, 171, 3, 41, "Output",ExpressionUUID->"99ad9e83-da1f-4b23-9ac6-5f8bafdd6081"] +}, Open ]], +Cell[CellGroupData[{ +Cell[618251, 15050, 2233, 63, 348, "Input",ExpressionUUID->"6977f025-454e-0e4a-b118-07bad9ba3e82"], +Cell[620487, 15115, 644, 14, 73, "Message",ExpressionUUID->"d387759e-6af3-40c3-aa63-a43999df4c92"], +Cell[621134, 15131, 646, 14, 73, "Message",ExpressionUUID->"c8050912-62db-4c33-8a12-240fb97fc68d"], +Cell[621783, 15147, 643, 14, 73, "Message",ExpressionUUID->"9864f36a-87d7-49da-b37e-2bc3aa02a4df"], +Cell[622429, 15163, 473, 11, 32, "Message",ExpressionUUID->"1a72227d-b530-4d3f-a351-917200f519f5"], +Cell[622905, 15176, 173, 3, 41, "Output",ExpressionUUID->"d3de55f1-eaab-4e12-959a-2469a2f2a0f8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[623115, 15184, 2235, 63, 348, "Input",ExpressionUUID->"df8ecb01-788a-604d-b773-f29bb610eb30"], +Cell[625353, 15249, 644, 14, 73, "Message",ExpressionUUID->"1ee80cf9-e375-4c27-9bcf-5af239fda58e"], +Cell[626000, 15265, 644, 14, 73, "Message",ExpressionUUID->"790e9dea-7a9e-4d8a-a568-19bab8de37bf"], +Cell[626647, 15281, 643, 14, 73, "Message",ExpressionUUID->"77737e51-5ac1-48b2-8e77-a3be62b88fc8"], +Cell[627293, 15297, 471, 11, 32, "Message",ExpressionUUID->"06b7ebb2-24e9-4c03-9a66-614c667f433a"], +Cell[627767, 15310, 170, 3, 41, "Output",ExpressionUUID->"4486d8ae-367e-4b3f-82da-17c704cdf156"] +}, Open ]], +Cell[CellGroupData[{ +Cell[627974, 15318, 236, 6, 60, "Input",ExpressionUUID->"54a5e329-20bd-e742-afe8-d2cfa007cfcf"], +Cell[628213, 15326, 175, 3, 41, "Output",ExpressionUUID->"eb29882a-884a-41df-b4ae-02c76d069365"] +}, Open ]], +Cell[628403, 15332, 211, 4, 36, "Input",ExpressionUUID->"c55d6130-3148-4f22-aa4b-9ca340d93948"] } ] *) diff --git a/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/pattern_for_x.txt b/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/pattern_for_x.txt new file mode 100644 index 0000000..8963b5d --- /dev/null +++ b/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/pattern_for_x.txt @@ -0,0 +1,2 @@ +RowBox[{"x", "=", + RowBox[{"Plot", "[", diff --git a/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_osc_Qw1.nb b/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_osc_Qw1.nb index 3ffad66..a29d924 100644 --- a/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_osc_Qw1.nb +++ b/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_osc_Qw1.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 580315, 14482] -NotebookOptionsPosition[ 538068, 13810] -NotebookOutlinePosition[ 538509, 13828] -CellTagsIndexPosition[ 538466, 13825] +NotebookDataLength[ 584506, 14573] +NotebookOptionsPosition[ 542162, 13900] +NotebookOutlinePosition[ 542596, 13918] +CellTagsIndexPosition[ 542553, 13915] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -13806,10 +13806,100 @@ Cell[BoxData["0.08333108480569339`"], "Output", }, Open ]], Cell[BoxData[ - RowBox[{"NotebookSave", "[", "]"}]], "Input",ExpressionUUID->"527555fe-54f3-44c3-a217-b0e3a0006c5f"] + RowBox[{"NotebookSave", "[", "]"}]], "Input",ExpressionUUID->"527555fe-54f3-44c3-a217-b0e3a0006c5f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"CellPrint", "[", + RowBox[{"ExpressionCell", "[", + RowBox[{ + RowBox[{"Panel", "[", + RowBox[{ + RowBox[{"Row", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"Style", "[", + + RowBox[{"\"\<\:0423\:043f\:0440\:0430\:0432\:043b\:0435\:043d\:0438\ +\:0435 \:043a\:044d\:0448\:0435\:043c \:0433\:0440\:0430\:0444\:0438\:043a\ +\:0430: \>\"", ",", "Bold"}], "]"}], ",", + RowBox[{"Button", "[", + + RowBox[{"\"\<\:0421\:0434\:0435\:043b\:0430\:0442\:044c \:0442\ +\:0430\:0431\:043b\:0438\:0446\:0443 (\:041b\:0438\:043d\:0438\:044f 1)\>\"", + ",", + RowBox[{"Module", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"cell", ",", "pts"}], "}"}], ",", + RowBox[{ + RowBox[{"cell", "=", + RowBox[{"NotebookRead", "[", + RowBox[{"EvaluationNotebook", "[", "]"}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"pts", "=", + RowBox[{"Cases", "[", + RowBox[{"cell", ",", + RowBox[{ + RowBox[{"Line", "[", "p_", "]"}], ":>", "p"}], ",", + "Infinity"}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"If", "[", + RowBox[{ + RowBox[{ + RowBox[{"Length", "[", "pts", "]"}], ">", "0"}], ",", + RowBox[{ + RowBox[{"plotX", "=", + RowBox[{"pts", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"fInterp", "=", + RowBox[{"Interpolation", "[", "plotX", "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"dataX", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"x", ",", + RowBox[{"fInterp", "[", "x", "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30", ",", "1"}], "}"}]}], + "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"SelectionMove", "[", + RowBox[{ + RowBox[{"EvaluationNotebook", "[", "]"}], ",", "After", ",", + "Cell"}], "]"}], ";", "\[IndentingNewLine]", + RowBox[{"CellPrint", "[", + RowBox[{"Cell", "[", + RowBox[{ + RowBox[{"BoxData", "[", + RowBox[{"ToBoxes", "[", + RowBox[{"TableForm", "[", "dataX", "]"}], "]"}], "]"}], + ",", "\"\\""}], "]"}], "]"}]}], ",", + RowBox[{"MessageDialog", "[", + + RowBox[{"\"\<\:041e\:0448\:0438\:0431\:043a\:0430: \:0421\ +\:043d\:0430\:0447\:0430\:043b\:0430 \:0432\:044b\:0434\:0435\:043b\:0438\ +\:0442\:0435 \:043d\:0443\:0436\:043d\:044b\:0439 \:0433\:0440\:0430\:0444\ +\:0438\:043a (\:043a\:043b\:0438\:043a\:043d\:0438\:0442\:0435 \:043f\:043e \ +\:0435\:0433\:043e \:044f\:0447\:0435\:0439\:043a\:0435 \:0441\:043f\:0440\ +\:0430\:0432\:0430)!\>\"", ",", + RowBox[{"WindowFloating", "->", "True"}]}], "]"}]}], + "]"}]}]}], "]"}], ",", + RowBox[{"Background", "->", + RowBox[{"RGBColor", "[", + RowBox[{"0.9", ",", "0.95", ",", "1"}], "]"}]}], ",", + RowBox[{"ImageSize", "->", + RowBox[{"{", + RowBox[{"180", ",", "25"}], "}"}]}]}], "]"}]}], "}"}], "]"}], ",", + RowBox[{"Background", "->", + RowBox[{"GrayLevel", "[", "0.95", "]"}]}], ",", + RowBox[{"FrameMargins", "->", "10"}]}], "]"}], ",", "\"\\""}], + "]"}], "]"}], "\n"}]], "Input", + CellChangeTimes->{{3.9943043996512623`*^9, 3.994304399651291*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"a128aec6-d32e-4b4c-ac3d-b3e8d65a0e32"] }, WindowSize->{1440, 882}, -WindowMargins->{{0, Automatic}, {0, Automatic}}, +WindowMargins->{{0, Automatic}, {0, 18}}, CellContext->Notebook, Magnification:>1.8 Inherited, FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", @@ -14196,7 +14286,7 @@ Cell[227950, 6366, 2075, 59, 484, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8b Cell[230028, 6427, 709, 15, 129, "Message",ExpressionUUID->"00468604-1b8d-4d45-b381-4ffac8adbce7"], Cell[230740, 6444, 711, 15, 129, "Message",ExpressionUUID->"6ee4886b-82ba-4317-96bd-cb63f5c63680"], Cell[231454, 6461, 710, 15, 129, "Message",ExpressionUUID->"319b1807-8cb5-4fc1-9985-bc2e0a059e8a"], -Cell[232167, 6478, 572, 13, 49, "Message",ExpressionUUID->"7e95a6cd-0269-49b0-9a40-d11ed65485ae"], +Cell[232167, 6478, 572, 13, 58, "Message",ExpressionUUID->"7e95a6cd-0269-49b0-9a40-d11ed65485ae"], Cell[232742, 6493, 271, 5, 75, "Output",ExpressionUUID->"ddc17924-7e0a-4f6c-a3a2-9b2a834fd61d"] }, Open ]], Cell[CellGroupData[{ @@ -14204,7 +14294,7 @@ Cell[233050, 6503, 2077, 59, 484, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a7 Cell[235130, 6564, 682, 14, 129, "Message",ExpressionUUID->"4c68f761-ea3f-4c87-876c-62086f5bcc44"], Cell[235815, 6580, 681, 14, 129, "Message",ExpressionUUID->"a89778a4-dcbd-43da-9dd2-fcdc8860506a"], Cell[236499, 6596, 680, 14, 129, "Message",ExpressionUUID->"c60293b6-0417-4ab5-8f7b-df0ce979bf76"], -Cell[237182, 6612, 544, 12, 49, "Message",ExpressionUUID->"e9513b1d-a7ee-41e2-a2f2-0646bf0bb0c6"], +Cell[237182, 6612, 544, 12, 58, "Message",ExpressionUUID->"e9513b1d-a7ee-41e2-a2f2-0646bf0bb0c6"], Cell[237729, 6626, 231, 4, 75, "Output",ExpressionUUID->"1a927ee9-82c8-44e4-a73a-d779472d297e"] }, Open ]], Cell[CellGroupData[{ @@ -14216,13 +14306,13 @@ Cell[240184, 6698, 2094, 60, 546, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac Cell[242281, 6760, 497, 11, 129, "Message",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], Cell[242781, 6773, 501, 11, 129, "Message",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], Cell[243285, 6786, 503, 11, 129, "Message",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], -Cell[243791, 6799, 455, 10, 47, "Message",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], +Cell[243791, 6799, 455, 10, 58, "Message",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], Cell[244249, 6811, 43631, 762, 523, "Output",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] }, Open ]], -Cell[287895, 7576, 2454, 69, 387, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], -Cell[290352, 7647, 209, 5, 66, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], +Cell[287895, 7576, 2454, 69, 109, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], +Cell[290352, 7647, 209, 5, 109, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], Cell[CellGroupData[{ -Cell[290586, 7656, 212, 6, 107, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], +Cell[290586, 7656, 212, 6, 109, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], Cell[290801, 7664, 168, 2, 75, "Output",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] }, Open ]], Cell[CellGroupData[{ @@ -14230,39 +14320,39 @@ Cell[291006, 7671, 1814, 53, 546, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-82 Cell[292823, 7726, 505, 11, 129, "Message",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], Cell[293331, 7739, 509, 11, 129, "Message",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], Cell[293843, 7752, 508, 11, 129, "Message",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], -Cell[294354, 7765, 455, 10, 47, "Message",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], +Cell[294354, 7765, 455, 10, 58, "Message",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], Cell[294812, 7777, 22399, 414, 527, "Output",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] }, Open ]], Cell[CellGroupData[{ Cell[317248, 8196, 1612, 47, 221, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], -Cell[318863, 8245, 581, 12, 166, "Message",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], -Cell[319447, 8259, 584, 12, 166, "Message",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], -Cell[320034, 8273, 590, 12, 166, "Message",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], -Cell[320627, 8287, 455, 10, 47, "Message",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], +Cell[318863, 8245, 581, 12, 178, "Message",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], +Cell[319447, 8259, 584, 12, 178, "Message",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], +Cell[320034, 8273, 590, 12, 178, "Message",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], +Cell[320627, 8287, 455, 10, 58, "Message",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], Cell[321085, 8299, 169, 2, 75, "Output",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] }, Open ]], Cell[CellGroupData[{ Cell[321291, 8306, 2249, 64, 472, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], -Cell[323543, 8372, 557, 12, 166, "Message",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], -Cell[324103, 8386, 560, 12, 166, "Message",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], -Cell[324666, 8400, 560, 12, 166, "Message",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], -Cell[325229, 8414, 455, 10, 47, "Message",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], +Cell[323543, 8372, 557, 12, 178, "Message",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], +Cell[324103, 8386, 560, 12, 109, "Message",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], +Cell[324666, 8400, 560, 12, 109, "Message",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], +Cell[325229, 8414, 455, 10, 109, "Message",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], Cell[325687, 8426, 169, 2, 75, "Output",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] }, Open ]], Cell[CellGroupData[{ Cell[325893, 8433, 2221, 64, 610, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], -Cell[328117, 8499, 554, 12, 166, "Message",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], -Cell[328674, 8513, 560, 12, 166, "Message",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], -Cell[329237, 8527, 560, 12, 166, "Message",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], -Cell[329800, 8541, 455, 10, 47, "Message",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], +Cell[328117, 8499, 554, 12, 178, "Message",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], +Cell[328674, 8513, 560, 12, 178, "Message",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], +Cell[329237, 8527, 560, 12, 178, "Message",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], +Cell[329800, 8541, 455, 10, 58, "Message",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], Cell[330258, 8553, 169, 2, 75, "Output",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] }, Open ]], Cell[CellGroupData[{ Cell[330464, 8560, 2223, 64, 610, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], -Cell[332690, 8626, 555, 12, 166, "Message",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], -Cell[333248, 8640, 558, 12, 166, "Message",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], -Cell[333809, 8654, 560, 12, 166, "Message",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], -Cell[334372, 8668, 453, 10, 47, "Message",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], +Cell[332690, 8626, 555, 12, 178, "Message",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], +Cell[333248, 8640, 558, 12, 178, "Message",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], +Cell[333809, 8654, 560, 12, 178, "Message",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], +Cell[334372, 8668, 453, 10, 58, "Message",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], Cell[334828, 8680, 167, 2, 75, "Output",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] }, Open ]], Cell[CellGroupData[{ @@ -14312,18 +14402,18 @@ Cell[360398, 9507, 171, 3, 75, "Output",ExpressionUUID->"3584cc50-41a2-ae4b-af54 }, Open ]], Cell[CellGroupData[{ Cell[360606, 9515, 2052, 59, 484, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], -Cell[362661, 9576, 572, 12, 166, "Message",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], -Cell[363236, 9590, 573, 12, 166, "Message",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], -Cell[363812, 9604, 578, 12, 166, "Message",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], -Cell[364393, 9618, 457, 10, 47, "Message",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], +Cell[362661, 9576, 572, 12, 178, "Message",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], +Cell[363236, 9590, 573, 12, 178, "Message",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], +Cell[363812, 9604, 578, 12, 178, "Message",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], +Cell[364393, 9618, 457, 10, 58, "Message",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], Cell[364853, 9630, 172, 3, 75, "Output",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] }, Open ]], Cell[CellGroupData[{ Cell[365062, 9638, 2054, 59, 484, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], -Cell[367119, 9699, 572, 12, 166, "Message",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], -Cell[367694, 9713, 575, 12, 166, "Message",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], -Cell[368272, 9727, 576, 12, 166, "Message",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], -Cell[368851, 9741, 457, 10, 47, "Message",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], +Cell[367119, 9699, 572, 12, 178, "Message",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], +Cell[367694, 9713, 575, 12, 178, "Message",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], +Cell[368272, 9727, 576, 12, 178, "Message",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], +Cell[368851, 9741, 457, 10, 58, "Message",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], Cell[369311, 9753, 170, 3, 75, "Output",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] }, Open ]], Cell[CellGroupData[{ @@ -14335,41 +14425,41 @@ Cell[391965, 10207, 2118, 60, 546, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b Cell[394086, 10269, 499, 11, 129, "Message",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], Cell[394588, 10282, 504, 11, 129, "Message",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], Cell[395095, 10295, 507, 11, 129, "Message",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], -Cell[395605, 10308, 455, 10, 47, "Message",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], +Cell[395605, 10308, 455, 10, 58, "Message",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], Cell[396063, 10320, 22381, 415, 528, "Output",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] }, Open ]], Cell[418459, 10738, 174, 3, 66, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], Cell[418636, 10743, 209, 5, 66, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], Cell[CellGroupData[{ Cell[418870, 10752, 1616, 48, 221, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], -Cell[420489, 10802, 594, 12, 166, "Message",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], -Cell[421086, 10816, 594, 12, 166, "Message",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], -Cell[421683, 10830, 598, 12, 166, "Message",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], -Cell[422284, 10844, 457, 10, 47, "Message",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], -Cell[422744, 10856, 171, 3, 75, "Output",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +Cell[420489, 10802, 594, 12, 178, "Message",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], +Cell[421086, 10816, 594, 12, 178, "Message",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], +Cell[421683, 10830, 598, 12, 178, "Message",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], +Cell[422284, 10844, 457, 10, 109, "Message",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], +Cell[422744, 10856, 171, 3, 109, "Output",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] }, Open ]], Cell[CellGroupData[{ -Cell[422952, 10864, 2247, 64, 472, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], -Cell[425202, 10930, 572, 12, 166, "Message",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], -Cell[425777, 10944, 573, 12, 166, "Message",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], -Cell[426353, 10958, 578, 12, 166, "Message",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], -Cell[426934, 10972, 455, 10, 47, "Message",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], +Cell[422952, 10864, 2247, 64, 109, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], +Cell[425202, 10930, 572, 12, 178, "Message",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], +Cell[425777, 10944, 573, 12, 178, "Message",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], +Cell[426353, 10958, 578, 12, 178, "Message",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], +Cell[426934, 10972, 455, 10, 58, "Message",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], Cell[427392, 10984, 172, 3, 75, "Output",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] }, Open ]], Cell[CellGroupData[{ Cell[427601, 10992, 2221, 64, 610, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], -Cell[429825, 11058, 570, 12, 166, "Message",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], -Cell[430398, 11072, 573, 12, 166, "Message",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], -Cell[430974, 11086, 578, 12, 166, "Message",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], -Cell[431555, 11100, 455, 10, 47, "Message",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], +Cell[429825, 11058, 570, 12, 178, "Message",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], +Cell[430398, 11072, 573, 12, 178, "Message",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], +Cell[430974, 11086, 578, 12, 178, "Message",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], +Cell[431555, 11100, 455, 10, 58, "Message",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], Cell[432013, 11112, 172, 3, 75, "Output",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] }, Open ]], Cell[CellGroupData[{ Cell[432222, 11120, 2221, 64, 610, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], -Cell[434446, 11186, 572, 12, 166, "Message",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], -Cell[435021, 11200, 575, 12, 166, "Message",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], -Cell[435599, 11214, 578, 12, 166, "Message",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], -Cell[436180, 11228, 455, 10, 47, "Message",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], +Cell[434446, 11186, 572, 12, 178, "Message",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], +Cell[435021, 11200, 575, 12, 178, "Message",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], +Cell[435599, 11214, 578, 12, 178, "Message",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], +Cell[436180, 11228, 455, 10, 58, "Message",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], Cell[436638, 11240, 173, 3, 75, "Output",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] }, Open ]], Cell[CellGroupData[{ @@ -14419,18 +14509,18 @@ Cell[462237, 12073, 171, 3, 75, "Output",ExpressionUUID->"4304216c-b250-ab48-915 }, Open ]], Cell[CellGroupData[{ Cell[462445, 12081, 2052, 59, 484, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], -Cell[464500, 12142, 568, 12, 166, "Message",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], -Cell[465071, 12156, 572, 12, 166, "Message",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], -Cell[465646, 12170, 574, 12, 166, "Message",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], -Cell[466223, 12184, 457, 10, 47, "Message",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], +Cell[464500, 12142, 568, 12, 178, "Message",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], +Cell[465071, 12156, 572, 12, 178, "Message",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], +Cell[465646, 12170, 574, 12, 178, "Message",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], +Cell[466223, 12184, 457, 10, 58, "Message",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], Cell[466683, 12196, 172, 3, 75, "Output",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] }, Open ]], Cell[CellGroupData[{ Cell[466892, 12204, 2054, 59, 484, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], -Cell[468949, 12265, 568, 12, 166, "Message",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], -Cell[469520, 12279, 572, 12, 166, "Message",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], -Cell[470095, 12293, 574, 12, 166, "Message",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], -Cell[470672, 12307, 457, 10, 47, "Message",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], +Cell[468949, 12265, 568, 12, 178, "Message",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], +Cell[469520, 12279, 572, 12, 178, "Message",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], +Cell[470095, 12293, 574, 12, 178, "Message",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], +Cell[470672, 12307, 457, 10, 58, "Message",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], Cell[471132, 12319, 171, 3, 75, "Output",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] }, Open ]], Cell[CellGroupData[{ @@ -14442,49 +14532,52 @@ Cell[493370, 12764, 2118, 60, 546, "Input",ExpressionUUID->"201ddeed-58e9-7047-8 Cell[495491, 12826, 496, 11, 129, "Message",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], Cell[495990, 12839, 501, 11, 129, "Message",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], Cell[496494, 12852, 505, 11, 129, "Message",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], -Cell[497002, 12865, 455, 10, 47, "Message",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], +Cell[497002, 12865, 455, 10, 58, "Message",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], Cell[497460, 12877, 21721, 403, 523, "Output",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] }, Open ]], Cell[519196, 13283, 181, 3, 66, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], Cell[519380, 13288, 207, 5, 66, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], Cell[CellGroupData[{ Cell[519612, 13297, 1616, 48, 221, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], -Cell[521231, 13347, 589, 12, 166, "Message",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], -Cell[521823, 13361, 588, 12, 166, "Message",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], -Cell[522414, 13375, 594, 12, 166, "Message",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], -Cell[523011, 13389, 455, 10, 47, "Message",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], +Cell[521231, 13347, 589, 12, 178, "Message",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], +Cell[521823, 13361, 588, 12, 178, "Message",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], +Cell[522414, 13375, 594, 12, 178, "Message",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], +Cell[523011, 13389, 455, 10, 58, "Message",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], Cell[523469, 13401, 173, 3, 75, "Output",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] }, Open ]], Cell[CellGroupData[{ Cell[523679, 13409, 2246, 64, 472, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], -Cell[525928, 13475, 566, 12, 166, "Message",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], -Cell[526497, 13489, 570, 12, 166, "Message",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], -Cell[527070, 13503, 574, 12, 166, "Message",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], -Cell[527647, 13517, 456, 10, 47, "Message",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], +Cell[525928, 13475, 566, 12, 178, "Message",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], +Cell[526497, 13489, 570, 12, 178, "Message",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], +Cell[527070, 13503, 574, 12, 178, "Message",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], +Cell[527647, 13517, 456, 10, 58, "Message",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], Cell[528106, 13529, 171, 3, 75, "Output",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] }, Open ]], Cell[CellGroupData[{ Cell[528314, 13537, 2221, 64, 610, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], -Cell[530538, 13603, 569, 12, 166, "Message",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], -Cell[531110, 13617, 571, 12, 166, "Message",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], -Cell[531684, 13631, 575, 12, 166, "Message",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], -Cell[532262, 13645, 458, 10, 47, "Message",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], +Cell[530538, 13603, 569, 12, 178, "Message",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], +Cell[531110, 13617, 571, 12, 178, "Message",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], +Cell[531684, 13631, 575, 12, 178, "Message",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], +Cell[532262, 13645, 458, 10, 58, "Message",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], Cell[532723, 13657, 171, 3, 75, "Output",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] }, Open ]], Cell[CellGroupData[{ Cell[532931, 13665, 2223, 64, 610, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], -Cell[535157, 13731, 567, 12, 166, "Message",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], -Cell[535727, 13745, 571, 12, 166, "Message",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], -Cell[536301, 13759, 573, 12, 166, "Message",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], -Cell[536877, 13773, 456, 10, 47, "Message",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], +Cell[535157, 13731, 567, 12, 178, "Message",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], +Cell[535727, 13745, 571, 12, 178, "Message",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], +Cell[536301, 13759, 573, 12, 178, "Message",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], +Cell[536877, 13773, 456, 10, 58, "Message",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], Cell[537336, 13785, 173, 3, 75, "Output",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] }, Open ]], Cell[CellGroupData[{ Cell[537546, 13793, 211, 6, 106, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], Cell[537760, 13801, 174, 3, 75, "Output",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] }, Open ]], -Cell[537949, 13807, 115, 1, 66, "Input",ExpressionUUID->"527555fe-54f3-44c3-a217-b0e3a0006c5f"] +Cell[537949, 13807, 115, 1, 66, "Input",ExpressionUUID->"527555fe-54f3-44c3-a217-b0e3a0006c5f"], +Cell[538067, 13810, 4091, 88, 801, "Input",ExpressionUUID->"a128aec6-d32e-4b4c-ac3d-b3e8d65a0e32"] } ] *) +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_osc_Qw1.nb b/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_osc_Qw1.nb index e154e6b..b6a0e02 100644 --- a/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_osc_Qw1.nb +++ b/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_osc_Qw1.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 583384, 14535] -NotebookOptionsPosition[ 541163, 13863] -NotebookOutlinePosition[ 541604, 13881] -CellTagsIndexPosition[ 541561, 13878] +NotebookDataLength[ 587523, 14626] +NotebookOptionsPosition[ 545257, 13953] +NotebookOutlinePosition[ 545691, 13971] +CellTagsIndexPosition[ 545648, 13968] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -13859,10 +13859,100 @@ Cell[BoxData["0.08333108480569339`"], "Output", }, Open ]], Cell[BoxData[ - RowBox[{"NotebookSave", "[", "]"}]], "Input",ExpressionUUID->"db19731b-41c3-414b-814d-467835909659"] + RowBox[{"NotebookSave", "[", "]"}]], "Input",ExpressionUUID->"db19731b-41c3-414b-814d-467835909659"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"CellPrint", "[", + RowBox[{"ExpressionCell", "[", + RowBox[{ + RowBox[{"Panel", "[", + RowBox[{ + RowBox[{"Row", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"Style", "[", + + RowBox[{"\"\<\:0423\:043f\:0440\:0430\:0432\:043b\:0435\:043d\:0438\ +\:0435 \:043a\:044d\:0448\:0435\:043c \:0433\:0440\:0430\:0444\:0438\:043a\ +\:0430: \>\"", ",", "Bold"}], "]"}], ",", + RowBox[{"Button", "[", + + RowBox[{"\"\<\:0421\:0434\:0435\:043b\:0430\:0442\:044c \:0442\ +\:0430\:0431\:043b\:0438\:0446\:0443 (\:041b\:0438\:043d\:0438\:044f 1)\>\"", + ",", + RowBox[{"Module", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"cell", ",", "pts"}], "}"}], ",", + RowBox[{ + RowBox[{"cell", "=", + RowBox[{"NotebookRead", "[", + RowBox[{"EvaluationNotebook", "[", "]"}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"pts", "=", + RowBox[{"Cases", "[", + RowBox[{"cell", ",", + RowBox[{ + RowBox[{"Line", "[", "p_", "]"}], ":>", "p"}], ",", + "Infinity"}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"If", "[", + RowBox[{ + RowBox[{ + RowBox[{"Length", "[", "pts", "]"}], ">", "0"}], ",", + RowBox[{ + RowBox[{"plotX", "=", + RowBox[{"pts", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"fInterp", "=", + RowBox[{"Interpolation", "[", "plotX", "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"dataX", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"x", ",", + RowBox[{"fInterp", "[", "x", "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30", ",", "1"}], "}"}]}], + "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"SelectionMove", "[", + RowBox[{ + RowBox[{"EvaluationNotebook", "[", "]"}], ",", "After", ",", + "Cell"}], "]"}], ";", "\[IndentingNewLine]", + RowBox[{"CellPrint", "[", + RowBox[{"Cell", "[", + RowBox[{ + RowBox[{"BoxData", "[", + RowBox[{"ToBoxes", "[", + RowBox[{"TableForm", "[", "dataX", "]"}], "]"}], "]"}], + ",", "\"\\""}], "]"}], "]"}]}], ",", + RowBox[{"MessageDialog", "[", + + RowBox[{"\"\<\:041e\:0448\:0438\:0431\:043a\:0430: \:0421\ +\:043d\:0430\:0447\:0430\:043b\:0430 \:0432\:044b\:0434\:0435\:043b\:0438\ +\:0442\:0435 \:043d\:0443\:0436\:043d\:044b\:0439 \:0433\:0440\:0430\:0444\ +\:0438\:043a (\:043a\:043b\:0438\:043a\:043d\:0438\:0442\:0435 \:043f\:043e \ +\:0435\:0433\:043e \:044f\:0447\:0435\:0439\:043a\:0435 \:0441\:043f\:0440\ +\:0430\:0432\:0430)!\>\"", ",", + RowBox[{"WindowFloating", "->", "True"}]}], "]"}]}], + "]"}]}]}], "]"}], ",", + RowBox[{"Background", "->", + RowBox[{"RGBColor", "[", + RowBox[{"0.9", ",", "0.95", ",", "1"}], "]"}]}], ",", + RowBox[{"ImageSize", "->", + RowBox[{"{", + RowBox[{"180", ",", "25"}], "}"}]}]}], "]"}]}], "}"}], "]"}], ",", + RowBox[{"Background", "->", + RowBox[{"GrayLevel", "[", "0.95", "]"}]}], ",", + RowBox[{"FrameMargins", "->", "10"}]}], "]"}], ",", "\"\\""}], + "]"}], "]"}], "\n"}]], "Input", + CellChangeTimes->{{3.9943043996512623`*^9, 3.994304399651291*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"508b6267-8039-4e78-b3be-315b0a8c82a4"] }, -WindowSize->{714, 435}, -WindowMargins->{{Automatic, 3}, {Automatic, 15}}, +WindowSize->{1440, 882}, +WindowMargins->{{0, Automatic}, {0, 18}}, CellContext->Notebook, Magnification:>1.1 Inherited, FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", @@ -13881,7 +13971,7 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 453, 8, 73, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], +Cell[576, 22, 453, 8, 40, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], Cell[1032, 32, 302, 6, 45, "Output",ExpressionUUID->"fa94cc60-1305-4c6c-94b9-dfec3b3d5e97"] }, Open ]], Cell[CellGroupData[{ @@ -13937,19 +14027,19 @@ Cell[8370, 271, 561, 20, 109, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-1 Cell[8934, 293, 317, 6, 45, "Output",ExpressionUUID->"01775465-9dc7-4028-8481-c09c2c089cda"] }, Open ]], Cell[CellGroupData[{ -Cell[9288, 304, 1496, 49, 264, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], +Cell[9288, 304, 1496, 49, 111, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], Cell[10787, 355, 317, 6, 45, "Output",ExpressionUUID->"3985d0fa-c50c-474c-a5a5-6827471756b9"] }, Open ]], Cell[CellGroupData[{ -Cell[11141, 366, 1335, 45, 231, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], +Cell[11141, 366, 1335, 45, 111, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], Cell[12479, 413, 334, 7, 45, "Output",ExpressionUUID->"adcc8b62-e3dc-424d-936f-9a791c76df39"] }, Open ]], Cell[CellGroupData[{ -Cell[12850, 425, 1335, 45, 231, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], +Cell[12850, 425, 1335, 45, 111, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], Cell[14188, 472, 341, 7, 45, "Output",ExpressionUUID->"de90c3de-d3ca-4aed-a946-1114d56aa2d0"] }, Open ]], Cell[CellGroupData[{ -Cell[14566, 484, 1496, 49, 264, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], +Cell[14566, 484, 1496, 49, 111, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], Cell[16065, 535, 318, 6, 45, "Output",ExpressionUUID->"9774975d-6419-47b6-a5f9-4d8f53da4848"] }, Open ]], Cell[CellGroupData[{ @@ -13966,11 +14056,11 @@ Cell[17518, 583, 304, 6, 45, "Output",ExpressionUUID->"76919cf3-f476-4f2e-97ee-5 }, Open ]], Cell[CellGroupData[{ Cell[17859, 594, 223, 5, 40, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], -Cell[18085, 601, 321, 7, 45, "Output",ExpressionUUID->"37b1aac5-9db8-4caa-818d-10f1d9b2c3ab"] +Cell[18085, 601, 321, 7, 109, "Output",ExpressionUUID->"37b1aac5-9db8-4caa-818d-10f1d9b2c3ab"] }, Open ]], Cell[CellGroupData[{ -Cell[18443, 613, 138, 3, 40, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], -Cell[18584, 618, 303, 6, 45, "Output",ExpressionUUID->"b69578e7-bb0f-4cc2-a4d1-829bda4ca0cc"] +Cell[18443, 613, 138, 3, 109, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], +Cell[18584, 618, 303, 6, 109, "Output",ExpressionUUID->"b69578e7-bb0f-4cc2-a4d1-829bda4ca0cc"] }, Open ]], Cell[CellGroupData[{ Cell[18924, 629, 326, 6, 40, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], @@ -13993,7 +14083,7 @@ Cell[21517, 709, 354, 11, 59, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-9 Cell[21874, 722, 341, 7, 45, "Output",ExpressionUUID->"2ed79cd1-f2d4-43ad-8bd0-2589898aeb4c"] }, Open ]], Cell[CellGroupData[{ -Cell[22252, 734, 998, 27, 201, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], +Cell[22252, 734, 998, 27, 60, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], Cell[23253, 763, 321, 6, 45, "Output",ExpressionUUID->"70b0d530-b9a4-4f64-b884-e3ff28b434fc"] }, Open ]], Cell[CellGroupData[{ @@ -14041,27 +14131,27 @@ Cell[30199, 959, 276, 5, 45, "Output",ExpressionUUID->"805b68e3-0dc1-40ed-ab0d-b }, Open ]], Cell[30490, 967, 179, 3, 40, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ -Cell[30694, 974, 19813, 486, 3372, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], +Cell[30694, 974, 19813, 486, 1845, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], Cell[50510, 1462, 321, 6, 45, "Output",ExpressionUUID->"583f6967-640f-4503-ac67-302dadba9f42"] }, Open ]], Cell[CellGroupData[{ -Cell[50868, 1473, 19752, 490, 3372, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], +Cell[50868, 1473, 19752, 490, 1859, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], Cell[70623, 1965, 317, 6, 45, "Output",ExpressionUUID->"8f54d772-97eb-4307-b464-386a1b728f49"] }, Open ]], Cell[CellGroupData[{ -Cell[70977, 1976, 19752, 484, 3372, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], +Cell[70977, 1976, 19752, 484, 1858, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], Cell[90732, 2462, 339, 7, 45, "Output",ExpressionUUID->"23550e8b-d4c6-4da8-8d5a-830ff5d1b49c"] }, Open ]], Cell[CellGroupData[{ -Cell[91108, 2474, 22538, 554, 3853, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], +Cell[91108, 2474, 22538, 554, 2037, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], Cell[113649, 3030, 335, 7, 45, "Output",ExpressionUUID->"423c727c-a646-4144-a58e-809cb863c915"] }, Open ]], Cell[CellGroupData[{ -Cell[114021, 3042, 22539, 554, 3853, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], +Cell[114021, 3042, 22539, 554, 2037, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], Cell[136563, 3598, 340, 7, 45, "Output",ExpressionUUID->"a0c385e2-8bba-4657-8b21-b3fe7b82988e"] }, Open ]], Cell[CellGroupData[{ -Cell[136940, 3610, 25495, 627, 4334, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], +Cell[136940, 3610, 25495, 627, 2246, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], Cell[162438, 4239, 334, 7, 45, "Output",ExpressionUUID->"0e26e5d1-1aa5-45fe-949a-7bced0e7f8a3"] }, Open ]], Cell[CellGroupData[{ @@ -14073,15 +14163,15 @@ Cell[163284, 4267, 134, 3, 40, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6- Cell[163421, 4272, 301, 6, 45, "Output",ExpressionUUID->"b0064b53-e80b-4d29-9d13-d556198fb072"] }, Open ]], Cell[CellGroupData[{ -Cell[163759, 4283, 1148, 40, 155, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], +Cell[163759, 4283, 1148, 40, 78, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], Cell[164910, 4325, 320, 6, 45, "Output",ExpressionUUID->"0915ec79-a5ac-4fd4-a602-4bf984a7daa9"] }, Open ]], Cell[CellGroupData[{ -Cell[165267, 4336, 1045, 36, 210, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], +Cell[165267, 4336, 1045, 36, 78, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], Cell[166315, 4374, 334, 7, 45, "Output",ExpressionUUID->"60cbf343-82fa-4f2a-86d4-1783b0395be5"] }, Open ]], Cell[CellGroupData[{ -Cell[166686, 4386, 1148, 40, 155, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], +Cell[166686, 4386, 1148, 40, 78, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], Cell[167837, 4428, 319, 6, 45, "Output",ExpressionUUID->"9a3aa6c7-62fb-4aa4-ae5c-15bd1e280f25"] }, Open ]], Cell[CellGroupData[{ @@ -14117,23 +14207,23 @@ Cell[171763, 4556, 501, 17, 77, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336 Cell[172267, 4575, 310, 6, 45, "Output",ExpressionUUID->"bc445076-8fae-4ece-b921-e9d1c3f70b07"] }, Open ]], Cell[CellGroupData[{ -Cell[172614, 4586, 1792, 61, 472, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], +Cell[172614, 4586, 1792, 61, 186, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], Cell[174409, 4649, 291, 5, 45, "Output",ExpressionUUID->"ccf89f1b-f28b-4584-b7b8-0edc0a3401bc"] }, Open ]], Cell[CellGroupData[{ -Cell[174737, 4659, 1105, 37, 240, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], +Cell[174737, 4659, 1105, 37, 78, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], Cell[175845, 4698, 312, 6, 45, "Output",ExpressionUUID->"35d56c82-c6f8-444e-8203-f5d91668e5ec"] }, Open ]], Cell[CellGroupData[{ -Cell[176194, 4709, 1822, 62, 472, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], +Cell[176194, 4709, 1822, 62, 155, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], Cell[178019, 4773, 292, 5, 45, "Output",ExpressionUUID->"784942dc-4f73-427d-9fdf-670525e4f45f"] }, Open ]], Cell[CellGroupData[{ -Cell[178348, 4783, 1635, 54, 227, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], +Cell[178348, 4783, 1635, 54, 111, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], Cell[179986, 4839, 291, 5, 45, "Output",ExpressionUUID->"4bacb163-bb6c-49fa-99ef-8a50240e5d6a"] }, Open ]], Cell[CellGroupData[{ -Cell[180314, 4849, 1635, 54, 227, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], +Cell[180314, 4849, 1635, 54, 111, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], Cell[181952, 4905, 289, 5, 45, "Output",ExpressionUUID->"5af8381f-1a53-4b41-97e5-43d3a1efd56f"] }, Open ]], Cell[CellGroupData[{ @@ -14147,15 +14237,15 @@ Cell[183184, 4942, 264, 5, 45, "Output",ExpressionUUID->"899d4388-5b66-465c-913b }, Open ]], Cell[183463, 4950, 177, 3, 40, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ -Cell[183665, 4957, 1301, 43, 158, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], +Cell[183665, 4957, 1301, 43, 67, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], Cell[184969, 5002, 297, 5, 45, "Output",ExpressionUUID->"e2e96540-ebb2-46ee-bdd8-0564f4811472"] }, Open ]], Cell[CellGroupData[{ -Cell[185303, 5012, 931, 31, 138, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], +Cell[185303, 5012, 931, 31, 78, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], Cell[186237, 5045, 299, 5, 45, "Output",ExpressionUUID->"b2051f55-61c0-4492-a95d-307222f7dc5e"] }, Open ]], Cell[CellGroupData[{ -Cell[186573, 5055, 907, 30, 138, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], +Cell[186573, 5055, 907, 30, 78, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], Cell[187483, 5087, 295, 5, 45, "Output",ExpressionUUID->"ecb528e0-41d9-435b-9fa5-4988320ff6de"] }, Open ]], Cell[CellGroupData[{ @@ -14183,7 +14273,7 @@ Cell[193228, 5242, 181, 5, 60, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c- Cell[193412, 5249, 687, 11, 45, "Output",ExpressionUUID->"9da34343-33f6-4881-86e9-8ffa6701b6e9"] }, Open ]], Cell[CellGroupData[{ -Cell[194136, 5265, 6055, 185, 1092, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], +Cell[194136, 5265, 6055, 185, 464, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], Cell[200194, 5452, 665, 10, 45, "Output",ExpressionUUID->"565968c7-f2a6-4154-b824-8ecc95d43d9f"] }, Open ]], Cell[CellGroupData[{ @@ -14216,7 +14306,7 @@ Cell[205798, 5620, 181, 5, 60, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f- Cell[205982, 5627, 293, 5, 45, "Output",ExpressionUUID->"ef91c62f-36c8-4700-ae81-a69344d90fdd"] }, Open ]], Cell[CellGroupData[{ -Cell[206312, 5637, 6055, 185, 1092, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], +Cell[206312, 5637, 6055, 185, 464, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], Cell[212370, 5824, 301, 5, 45, "Output",ExpressionUUID->"f3eb6687-2274-41a7-9df2-f310f556d96c"] }, Open ]], Cell[CellGroupData[{ @@ -14224,7 +14314,7 @@ Cell[212708, 5834, 410, 10, 80, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc Cell[213121, 5846, 339, 6, 67, "Output",ExpressionUUID->"30edd760-76a8-49bf-9ae2-da9ec7cb0149"] }, Open ]], Cell[CellGroupData[{ -Cell[213497, 5857, 6122, 187, 1092, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], +Cell[213497, 5857, 6122, 187, 464, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], Cell[219622, 6046, 293, 5, 45, "Output",ExpressionUUID->"e1607385-ce10-4cf7-9d7f-17a025004bc8"] }, Open ]], Cell[CellGroupData[{ @@ -14232,90 +14322,90 @@ Cell[219952, 6056, 387, 10, 58, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa Cell[220342, 6068, 311, 6, 45, "Output",ExpressionUUID->"e22961d9-7314-42ad-95cb-daa7b394c85a"] }, Open ]], Cell[CellGroupData[{ -Cell[220690, 6079, 2663, 88, 469, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], +Cell[220690, 6079, 2663, 88, 231, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], Cell[223356, 6169, 295, 5, 45, "Output",ExpressionUUID->"a26ce8ac-2269-4591-951c-a89d328f71df"] }, Open ]], Cell[CellGroupData[{ -Cell[223688, 6179, 2603, 85, 469, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], +Cell[223688, 6179, 2603, 85, 231, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], Cell[226294, 6266, 291, 5, 45, "Output",ExpressionUUID->"3d9834dd-54fa-4d19-9791-ed7bda3baa31"] }, Open ]], Cell[CellGroupData[{ -Cell[226622, 6276, 3712, 118, 619, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], +Cell[226622, 6276, 3712, 118, 340, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], Cell[230337, 6396, 297, 5, 45, "Output",ExpressionUUID->"3ffcdb40-2814-4b1f-bc5b-690a5a109f96"] }, Open ]], Cell[230649, 6404, 164, 4, 40, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ -Cell[230838, 6412, 2075, 59, 291, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], -Cell[232916, 6473, 741, 16, 107, "Message",ExpressionUUID->"fa96e4e0-1824-4022-95b6-5d237e5dc412"], -Cell[233660, 6491, 739, 16, 107, "Message",ExpressionUUID->"ce87c19d-47ac-4429-8951-17671976d0d8"], -Cell[234402, 6509, 739, 16, 107, "Message",ExpressionUUID->"a759d243-bcc4-47cf-b2cd-c3627b191112"], -Cell[235144, 6527, 592, 13, 29, "Message",ExpressionUUID->"563b86f9-b72e-48af-a340-5efcc20f64ea"], +Cell[230838, 6412, 2075, 59, 127, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], +Cell[232916, 6473, 741, 16, 54, "Message",ExpressionUUID->"fa96e4e0-1824-4022-95b6-5d237e5dc412"], +Cell[233660, 6491, 739, 16, 54, "Message",ExpressionUUID->"ce87c19d-47ac-4429-8951-17671976d0d8"], +Cell[234402, 6509, 739, 16, 54, "Message",ExpressionUUID->"a759d243-bcc4-47cf-b2cd-c3627b191112"], +Cell[235144, 6527, 592, 13, 35, "Message",ExpressionUUID->"563b86f9-b72e-48af-a340-5efcc20f64ea"], Cell[235739, 6542, 292, 5, 45, "Output",ExpressionUUID->"20383c24-ed62-4bf7-b689-7c4d58e0a3a9"] }, Open ]], Cell[CellGroupData[{ -Cell[236068, 6552, 2077, 59, 291, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], -Cell[238148, 6613, 695, 15, 107, "Message",ExpressionUUID->"816f1531-6ee6-4a82-9505-bb8aef05e747"], -Cell[238846, 6630, 693, 15, 107, "Message",ExpressionUUID->"0ca1d9d3-d84a-4c28-a629-150c9788c0af"], -Cell[239542, 6647, 693, 15, 107, "Message",ExpressionUUID->"e7d6c14b-d5c2-4db6-95f0-047bf5c02b49"], -Cell[240238, 6664, 548, 12, 29, "Message",ExpressionUUID->"42a43128-060c-42b8-aa62-06747df7c5b7"], +Cell[236068, 6552, 2077, 59, 127, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], +Cell[238148, 6613, 695, 15, 54, "Message",ExpressionUUID->"816f1531-6ee6-4a82-9505-bb8aef05e747"], +Cell[238846, 6630, 693, 15, 54, "Message",ExpressionUUID->"0ca1d9d3-d84a-4c28-a629-150c9788c0af"], +Cell[239542, 6647, 693, 15, 54, "Message",ExpressionUUID->"e7d6c14b-d5c2-4db6-95f0-047bf5c02b49"], +Cell[240238, 6664, 548, 12, 35, "Message",ExpressionUUID->"42a43128-060c-42b8-aa62-06747df7c5b7"], Cell[240789, 6678, 238, 4, 45, "Output",ExpressionUUID->"b6842594-c56a-4a5b-b298-6eeb8591f167"] }, Open ]], Cell[CellGroupData[{ -Cell[241064, 6687, 1961, 53, 292, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], -Cell[243028, 6742, 213, 4, 45, "Output",ExpressionUUID->"7554495c-e131-4bab-93bd-e74ae9ef4b47"] +Cell[241064, 6687, 1961, 53, 94, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], +Cell[243028, 6742, 213, 4, 109, "Output",ExpressionUUID->"7554495c-e131-4bab-93bd-e74ae9ef4b47"] }, Open ]], Cell[CellGroupData[{ -Cell[243278, 6751, 2094, 60, 387, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], -Cell[245375, 6813, 497, 11, 79, "Message",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], -Cell[245875, 6826, 501, 11, 79, "Message",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], -Cell[246379, 6839, 503, 11, 102, "Message",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], -Cell[246885, 6852, 455, 10, 29, "Message",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], +Cell[243278, 6751, 2094, 60, 109, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], +Cell[245375, 6813, 497, 11, 109, "Message",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], +Cell[245875, 6826, 501, 11, 109, "Message",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], +Cell[246379, 6839, 503, 11, 54, "Message",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], +Cell[246885, 6852, 455, 10, 35, "Message",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], Cell[247343, 6864, 43631, 762, 319, "Output",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] }, Open ]], -Cell[290989, 7629, 2455, 69, 323, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], +Cell[290989, 7629, 2455, 69, 153, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], Cell[293447, 7700, 209, 5, 40, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], Cell[CellGroupData[{ Cell[293681, 7709, 212, 6, 66, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], Cell[293896, 7717, 168, 2, 45, "Output",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] }, Open ]], Cell[CellGroupData[{ -Cell[294101, 7724, 1814, 53, 339, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], -Cell[295918, 7779, 505, 11, 102, "Message",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], -Cell[296426, 7792, 509, 11, 102, "Message",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], -Cell[296938, 7805, 508, 11, 105, "Message",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], -Cell[297449, 7818, 455, 10, 29, "Message",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], -Cell[297907, 7830, 22399, 414, 322, "Output",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +Cell[294101, 7724, 1814, 53, 127, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], +Cell[295918, 7779, 505, 11, 54, "Message",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], +Cell[296426, 7792, 509, 11, 109, "Message",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], +Cell[296938, 7805, 508, 11, 109, "Message",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], +Cell[297449, 7818, 455, 10, 109, "Message",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], +Cell[297907, 7830, 22399, 414, 109, "Output",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] }, Open ]], Cell[CellGroupData[{ -Cell[320343, 8249, 1612, 47, 144, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], -Cell[321958, 8298, 581, 12, 128, "Message",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], -Cell[322542, 8312, 584, 12, 128, "Message",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], -Cell[323129, 8326, 590, 12, 128, "Message",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], -Cell[323722, 8340, 455, 10, 29, "Message",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], -Cell[324180, 8352, 169, 2, 45, "Output",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +Cell[320343, 8249, 1612, 47, 109, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], +Cell[321958, 8298, 581, 12, 109, "Message",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], +Cell[322542, 8312, 584, 12, 109, "Message",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], +Cell[323129, 8326, 590, 12, 109, "Message",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], +Cell[323722, 8340, 455, 10, 109, "Message",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], +Cell[324180, 8352, 169, 2, 109, "Output",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] }, Open ]], Cell[CellGroupData[{ -Cell[324386, 8359, 2249, 64, 461, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], -Cell[326638, 8425, 557, 12, 128, "Message",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], -Cell[327198, 8439, 560, 12, 128, "Message",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], -Cell[327761, 8453, 560, 12, 128, "Message",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], -Cell[328324, 8467, 455, 10, 29, "Message",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], +Cell[324386, 8359, 2249, 64, 156, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], +Cell[326638, 8425, 557, 12, 79, "Message",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], +Cell[327198, 8439, 560, 12, 79, "Message",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], +Cell[327761, 8453, 560, 12, 79, "Message",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], +Cell[328324, 8467, 455, 10, 35, "Message",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], Cell[328782, 8479, 169, 2, 45, "Output",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] }, Open ]], Cell[CellGroupData[{ -Cell[328988, 8486, 2221, 64, 461, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], -Cell[331212, 8552, 554, 12, 128, "Message",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], -Cell[331769, 8566, 560, 12, 128, "Message",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], -Cell[332332, 8580, 560, 12, 128, "Message",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], -Cell[332895, 8594, 455, 10, 29, "Message",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], +Cell[328988, 8486, 2221, 64, 122, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], +Cell[331212, 8552, 554, 12, 79, "Message",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], +Cell[331769, 8566, 560, 12, 79, "Message",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], +Cell[332332, 8580, 560, 12, 79, "Message",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], +Cell[332895, 8594, 455, 10, 35, "Message",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], Cell[333353, 8606, 169, 2, 45, "Output",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] }, Open ]], Cell[CellGroupData[{ -Cell[333559, 8613, 2223, 64, 461, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], -Cell[335785, 8679, 555, 12, 128, "Message",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], -Cell[336343, 8693, 558, 12, 128, "Message",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], -Cell[336904, 8707, 560, 12, 128, "Message",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], -Cell[337467, 8721, 453, 10, 29, "Message",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], +Cell[333559, 8613, 2223, 64, 122, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], +Cell[335785, 8679, 555, 12, 109, "Message",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], +Cell[336343, 8693, 558, 12, 109, "Message",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], +Cell[336904, 8707, 560, 12, 109, "Message",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], +Cell[337467, 8721, 453, 10, 35, "Message",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], Cell[337923, 8733, 167, 2, 45, "Output",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] }, Open ]], Cell[CellGroupData[{ @@ -14336,7 +14426,7 @@ Cell[339935, 8802, 181, 5, 60, "Input",ExpressionUUID->"34b5c282-9128-3243-a083- Cell[340119, 8809, 173, 3, 45, "Output",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] }, Open ]], Cell[CellGroupData[{ -Cell[340329, 8817, 6055, 185, 1092, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], +Cell[340329, 8817, 6055, 185, 464, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], Cell[346387, 9004, 172, 3, 45, "Output",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] }, Open ]], Cell[CellGroupData[{ @@ -14344,7 +14434,7 @@ Cell[346596, 9012, 368, 9, 58, "Input",ExpressionUUID->"0fa06165-8277-0942-9840- Cell[346967, 9023, 170, 3, 45, "Output",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] }, Open ]], Cell[CellGroupData[{ -Cell[347174, 9031, 6122, 187, 1092, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], +Cell[347174, 9031, 6122, 187, 464, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], Cell[353299, 9220, 175, 3, 45, "Output",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] }, Open ]], Cell[CellGroupData[{ @@ -14352,77 +14442,77 @@ Cell[353511, 9228, 368, 9, 58, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203- Cell[353882, 9239, 169, 3, 45, "Output",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] }, Open ]], Cell[CellGroupData[{ -Cell[354088, 9247, 2663, 88, 469, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], +Cell[354088, 9247, 2663, 88, 231, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], Cell[356754, 9337, 173, 3, 45, "Output",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] }, Open ]], Cell[CellGroupData[{ -Cell[356964, 9345, 2603, 85, 469, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], +Cell[356964, 9345, 2603, 85, 231, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], Cell[359570, 9432, 171, 3, 45, "Output",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] }, Open ]], Cell[CellGroupData[{ -Cell[359778, 9440, 3712, 118, 619, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], +Cell[359778, 9440, 3712, 118, 340, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], Cell[363493, 9560, 171, 3, 45, "Output",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] }, Open ]], Cell[CellGroupData[{ -Cell[363701, 9568, 2052, 59, 291, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], -Cell[365756, 9629, 572, 12, 128, "Message",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], -Cell[366331, 9643, 573, 12, 128, "Message",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], -Cell[366907, 9657, 578, 12, 128, "Message",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], -Cell[367488, 9671, 457, 10, 29, "Message",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], +Cell[363701, 9568, 2052, 59, 127, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], +Cell[365756, 9629, 572, 12, 79, "Message",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], +Cell[366331, 9643, 573, 12, 79, "Message",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], +Cell[366907, 9657, 578, 12, 79, "Message",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], +Cell[367488, 9671, 457, 10, 35, "Message",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], Cell[367948, 9683, 172, 3, 45, "Output",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] }, Open ]], Cell[CellGroupData[{ -Cell[368157, 9691, 2054, 59, 291, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], -Cell[370214, 9752, 572, 12, 128, "Message",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], -Cell[370789, 9766, 575, 12, 128, "Message",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], -Cell[371367, 9780, 576, 12, 128, "Message",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], -Cell[371946, 9794, 457, 10, 29, "Message",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], +Cell[368157, 9691, 2054, 59, 127, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], +Cell[370214, 9752, 572, 12, 79, "Message",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], +Cell[370789, 9766, 575, 12, 79, "Message",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], +Cell[371367, 9780, 576, 12, 79, "Message",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], +Cell[371946, 9794, 457, 10, 35, "Message",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], Cell[372406, 9806, 170, 3, 45, "Output",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] }, Open ]], Cell[CellGroupData[{ -Cell[372613, 9814, 2030, 55, 292, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], -Cell[374646, 9871, 20377, 384, 325, "Output",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +Cell[372613, 9814, 2030, 55, 69, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], +Cell[374646, 9871, 20377, 384, 109, "Output",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] }, Open ]], Cell[CellGroupData[{ -Cell[395060, 10260, 2118, 60, 387, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], -Cell[397181, 10322, 499, 11, 79, "Message",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], -Cell[397683, 10335, 504, 11, 79, "Message",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], -Cell[398190, 10348, 507, 11, 102, "Message",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], -Cell[398700, 10361, 455, 10, 29, "Message",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], +Cell[395060, 10260, 2118, 60, 109, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], +Cell[397181, 10322, 499, 11, 109, "Message",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], +Cell[397683, 10335, 504, 11, 109, "Message",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], +Cell[398190, 10348, 507, 11, 54, "Message",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], +Cell[398700, 10361, 455, 10, 35, "Message",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], Cell[399158, 10373, 22381, 415, 322, "Output",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] }, Open ]], Cell[421554, 10791, 174, 3, 40, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], Cell[421731, 10796, 209, 5, 40, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], Cell[CellGroupData[{ -Cell[421965, 10805, 1616, 48, 144, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], -Cell[423584, 10855, 594, 12, 128, "Message",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], -Cell[424181, 10869, 594, 12, 128, "Message",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], -Cell[424778, 10883, 598, 12, 128, "Message",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], -Cell[425379, 10897, 457, 10, 29, "Message",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], -Cell[425839, 10909, 171, 3, 45, "Output",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +Cell[421965, 10805, 1616, 48, 94, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], +Cell[423584, 10855, 594, 12, 79, "Message",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], +Cell[424181, 10869, 594, 12, 79, "Message",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], +Cell[424778, 10883, 598, 12, 113, "Message",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], +Cell[425379, 10897, 457, 10, 109, "Message",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], +Cell[425839, 10909, 171, 3, 109, "Output",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] }, Open ]], Cell[CellGroupData[{ -Cell[426047, 10917, 2247, 64, 461, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], -Cell[428297, 10983, 572, 12, 128, "Message",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], -Cell[428872, 10997, 573, 12, 128, "Message",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], -Cell[429448, 11011, 578, 12, 128, "Message",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], -Cell[430029, 11025, 455, 10, 29, "Message",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], +Cell[426047, 10917, 2247, 64, 109, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], +Cell[428297, 10983, 572, 12, 109, "Message",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], +Cell[428872, 10997, 573, 12, 79, "Message",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], +Cell[429448, 11011, 578, 12, 79, "Message",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], +Cell[430029, 11025, 455, 10, 35, "Message",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], Cell[430487, 11037, 172, 3, 45, "Output",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] }, Open ]], Cell[CellGroupData[{ -Cell[430696, 11045, 2221, 64, 461, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], -Cell[432920, 11111, 570, 12, 128, "Message",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], -Cell[433493, 11125, 573, 12, 128, "Message",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], -Cell[434069, 11139, 578, 12, 128, "Message",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], -Cell[434650, 11153, 455, 10, 29, "Message",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], +Cell[430696, 11045, 2221, 64, 122, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], +Cell[432920, 11111, 570, 12, 79, "Message",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], +Cell[433493, 11125, 573, 12, 79, "Message",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], +Cell[434069, 11139, 578, 12, 79, "Message",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], +Cell[434650, 11153, 455, 10, 35, "Message",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], Cell[435108, 11165, 172, 3, 45, "Output",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] }, Open ]], Cell[CellGroupData[{ -Cell[435317, 11173, 2221, 64, 461, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], -Cell[437541, 11239, 572, 12, 128, "Message",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], -Cell[438116, 11253, 575, 12, 128, "Message",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], -Cell[438694, 11267, 578, 12, 128, "Message",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], -Cell[439275, 11281, 455, 10, 29, "Message",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], +Cell[435317, 11173, 2221, 64, 122, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], +Cell[437541, 11239, 572, 12, 79, "Message",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], +Cell[438116, 11253, 575, 12, 79, "Message",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], +Cell[438694, 11267, 578, 12, 79, "Message",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], +Cell[439275, 11281, 455, 10, 35, "Message",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], Cell[439733, 11293, 173, 3, 45, "Output",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] }, Open ]], Cell[CellGroupData[{ @@ -14443,15 +14533,15 @@ Cell[441768, 11368, 181, 5, 60, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf Cell[441952, 11375, 173, 3, 45, "Output",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] }, Open ]], Cell[CellGroupData[{ -Cell[442162, 11383, 6055, 185, 1092, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], -Cell[448220, 11570, 175, 3, 45, "Output",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +Cell[442162, 11383, 6055, 185, 109, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], +Cell[448220, 11570, 175, 3, 109, "Output",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] }, Open ]], Cell[CellGroupData[{ -Cell[448432, 11578, 368, 9, 58, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], -Cell[448803, 11589, 170, 3, 45, "Output",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +Cell[448432, 11578, 368, 9, 109, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], +Cell[448803, 11589, 170, 3, 109, "Output",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] }, Open ]], Cell[CellGroupData[{ -Cell[449010, 11597, 6122, 187, 1092, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], +Cell[449010, 11597, 6122, 187, 464, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], Cell[455135, 11786, 175, 3, 45, "Output",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] }, Open ]], Cell[CellGroupData[{ @@ -14459,85 +14549,88 @@ Cell[455347, 11794, 368, 9, 58, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68 Cell[455718, 11805, 172, 3, 45, "Output",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] }, Open ]], Cell[CellGroupData[{ -Cell[455927, 11813, 2663, 88, 469, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], +Cell[455927, 11813, 2663, 88, 231, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], Cell[458593, 11903, 173, 3, 45, "Output",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] }, Open ]], Cell[CellGroupData[{ -Cell[458803, 11911, 2603, 85, 469, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], +Cell[458803, 11911, 2603, 85, 231, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], Cell[461409, 11998, 171, 3, 45, "Output",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] }, Open ]], Cell[CellGroupData[{ -Cell[461617, 12006, 3712, 118, 619, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], +Cell[461617, 12006, 3712, 118, 340, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], Cell[465332, 12126, 171, 3, 45, "Output",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] }, Open ]], Cell[CellGroupData[{ -Cell[465540, 12134, 2052, 59, 291, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], -Cell[467595, 12195, 568, 12, 128, "Message",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], -Cell[468166, 12209, 572, 12, 128, "Message",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], -Cell[468741, 12223, 574, 12, 128, "Message",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], -Cell[469318, 12237, 457, 10, 29, "Message",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], +Cell[465540, 12134, 2052, 59, 127, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], +Cell[467595, 12195, 568, 12, 79, "Message",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], +Cell[468166, 12209, 572, 12, 79, "Message",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], +Cell[468741, 12223, 574, 12, 79, "Message",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], +Cell[469318, 12237, 457, 10, 35, "Message",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], Cell[469778, 12249, 172, 3, 45, "Output",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] }, Open ]], Cell[CellGroupData[{ -Cell[469987, 12257, 2054, 59, 291, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], -Cell[472044, 12318, 568, 12, 128, "Message",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], -Cell[472615, 12332, 572, 12, 128, "Message",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], -Cell[473190, 12346, 574, 12, 128, "Message",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], -Cell[473767, 12360, 457, 10, 29, "Message",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], +Cell[469987, 12257, 2054, 59, 127, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], +Cell[472044, 12318, 568, 12, 79, "Message",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], +Cell[472615, 12332, 572, 12, 79, "Message",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], +Cell[473190, 12346, 574, 12, 79, "Message",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], +Cell[473767, 12360, 457, 10, 35, "Message",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], Cell[474227, 12372, 171, 3, 45, "Output",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] }, Open ]], Cell[CellGroupData[{ -Cell[474435, 12380, 2030, 55, 292, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], +Cell[474435, 12380, 2030, 55, 69, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], Cell[476468, 12437, 19960, 375, 325, "Output",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] }, Open ]], Cell[CellGroupData[{ -Cell[496465, 12817, 2118, 60, 387, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], -Cell[498586, 12879, 496, 11, 79, "Message",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], -Cell[499085, 12892, 501, 11, 79, "Message",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], -Cell[499589, 12905, 505, 11, 79, "Message",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], -Cell[500097, 12918, 455, 10, 29, "Message",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], +Cell[496465, 12817, 2118, 60, 109, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], +Cell[498586, 12879, 496, 11, 109, "Message",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], +Cell[499085, 12892, 501, 11, 109, "Message",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], +Cell[499589, 12905, 505, 11, 54, "Message",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], +Cell[500097, 12918, 455, 10, 35, "Message",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], Cell[500555, 12930, 21721, 403, 319, "Output",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] }, Open ]], Cell[522291, 13336, 181, 3, 40, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], Cell[522475, 13341, 207, 5, 40, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], Cell[CellGroupData[{ -Cell[522707, 13350, 1616, 48, 144, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], -Cell[524326, 13400, 589, 12, 128, "Message",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], -Cell[524918, 13414, 588, 12, 128, "Message",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], -Cell[525509, 13428, 594, 12, 128, "Message",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], -Cell[526106, 13442, 455, 10, 29, "Message",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], -Cell[526564, 13454, 173, 3, 45, "Output",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +Cell[522707, 13350, 1616, 48, 94, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], +Cell[524326, 13400, 589, 12, 79, "Message",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], +Cell[524918, 13414, 588, 12, 79, "Message",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], +Cell[525509, 13428, 594, 12, 79, "Message",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], +Cell[526106, 13442, 455, 10, 35, "Message",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], +Cell[526564, 13454, 173, 3, 109, "Output",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] }, Open ]], Cell[CellGroupData[{ -Cell[526774, 13462, 2246, 64, 461, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], -Cell[529023, 13528, 566, 12, 128, "Message",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], -Cell[529592, 13542, 570, 12, 128, "Message",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], -Cell[530165, 13556, 574, 12, 128, "Message",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], -Cell[530742, 13570, 456, 10, 29, "Message",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], +Cell[526774, 13462, 2246, 64, 109, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], +Cell[529023, 13528, 566, 12, 109, "Message",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], +Cell[529592, 13542, 570, 12, 109, "Message",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], +Cell[530165, 13556, 574, 12, 79, "Message",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], +Cell[530742, 13570, 456, 10, 35, "Message",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], Cell[531201, 13582, 171, 3, 45, "Output",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] }, Open ]], Cell[CellGroupData[{ -Cell[531409, 13590, 2221, 64, 461, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], -Cell[533633, 13656, 569, 12, 128, "Message",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], -Cell[534205, 13670, 571, 12, 128, "Message",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], -Cell[534779, 13684, 575, 12, 128, "Message",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], -Cell[535357, 13698, 458, 10, 29, "Message",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], +Cell[531409, 13590, 2221, 64, 122, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], +Cell[533633, 13656, 569, 12, 79, "Message",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], +Cell[534205, 13670, 571, 12, 79, "Message",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], +Cell[534779, 13684, 575, 12, 79, "Message",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], +Cell[535357, 13698, 458, 10, 35, "Message",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], Cell[535818, 13710, 171, 3, 45, "Output",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] }, Open ]], Cell[CellGroupData[{ -Cell[536026, 13718, 2223, 64, 461, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], -Cell[538252, 13784, 567, 12, 128, "Message",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], -Cell[538822, 13798, 571, 12, 128, "Message",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], -Cell[539396, 13812, 573, 12, 128, "Message",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], -Cell[539972, 13826, 456, 10, 29, "Message",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], +Cell[536026, 13718, 2223, 64, 122, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], +Cell[538252, 13784, 567, 12, 79, "Message",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], +Cell[538822, 13798, 571, 12, 79, "Message",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], +Cell[539396, 13812, 573, 12, 79, "Message",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], +Cell[539972, 13826, 456, 10, 35, "Message",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], Cell[540431, 13838, 173, 3, 45, "Output",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] }, Open ]], Cell[CellGroupData[{ Cell[540641, 13846, 211, 6, 65, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], Cell[540855, 13854, 174, 3, 45, "Output",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] }, Open ]], -Cell[541044, 13860, 115, 1, 40, "Input",ExpressionUUID->"db19731b-41c3-414b-814d-467835909659"] +Cell[541044, 13860, 115, 1, 40, "Input",ExpressionUUID->"db19731b-41c3-414b-814d-467835909659"], +Cell[541162, 13863, 4091, 88, 436, "Input",ExpressionUUID->"508b6267-8039-4e78-b3be-315b0a8c82a4"] } ] *) +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_osc_Qw1.nb b/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_osc_Qw1.nb index 4f1cf4b..21817a3 100644 --- a/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_osc_Qw1.nb +++ b/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_osc_Qw1.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 599947, 14846] -NotebookOptionsPosition[ 557685, 14174] -NotebookOutlinePosition[ 558126, 14192] -CellTagsIndexPosition[ 558083, 14189] +NotebookDataLength[ 604121, 14937] +NotebookOptionsPosition[ 561779, 14264] +NotebookOutlinePosition[ 562213, 14282] +CellTagsIndexPosition[ 562170, 14279] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -14170,10 +14170,100 @@ Cell[BoxData["0.08333108480569339`"], "Output", }, Open ]], Cell[BoxData[ - RowBox[{"NotebookSave", "[", "]"}]], "Input",ExpressionUUID->"68695c7d-ff3e-440c-830c-d4e196fe93e9"] + RowBox[{"NotebookSave", "[", "]"}]], "Input",ExpressionUUID->"68695c7d-ff3e-440c-830c-d4e196fe93e9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"CellPrint", "[", + RowBox[{"ExpressionCell", "[", + RowBox[{ + RowBox[{"Panel", "[", + RowBox[{ + RowBox[{"Row", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"Style", "[", + + RowBox[{"\"\<\:0423\:043f\:0440\:0430\:0432\:043b\:0435\:043d\:0438\ +\:0435 \:043a\:044d\:0448\:0435\:043c \:0433\:0440\:0430\:0444\:0438\:043a\ +\:0430: \>\"", ",", "Bold"}], "]"}], ",", + RowBox[{"Button", "[", + + RowBox[{"\"\<\:0421\:0434\:0435\:043b\:0430\:0442\:044c \:0442\ +\:0430\:0431\:043b\:0438\:0446\:0443 (\:041b\:0438\:043d\:0438\:044f 1)\>\"", + ",", + RowBox[{"Module", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"cell", ",", "pts"}], "}"}], ",", + RowBox[{ + RowBox[{"cell", "=", + RowBox[{"NotebookRead", "[", + RowBox[{"EvaluationNotebook", "[", "]"}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"pts", "=", + RowBox[{"Cases", "[", + RowBox[{"cell", ",", + RowBox[{ + RowBox[{"Line", "[", "p_", "]"}], ":>", "p"}], ",", + "Infinity"}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"If", "[", + RowBox[{ + RowBox[{ + RowBox[{"Length", "[", "pts", "]"}], ">", "0"}], ",", + RowBox[{ + RowBox[{"plotX", "=", + RowBox[{"pts", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"fInterp", "=", + RowBox[{"Interpolation", "[", "plotX", "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"dataX", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"x", ",", + RowBox[{"fInterp", "[", "x", "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30", ",", "1"}], "}"}]}], + "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"SelectionMove", "[", + RowBox[{ + RowBox[{"EvaluationNotebook", "[", "]"}], ",", "After", ",", + "Cell"}], "]"}], ";", "\[IndentingNewLine]", + RowBox[{"CellPrint", "[", + RowBox[{"Cell", "[", + RowBox[{ + RowBox[{"BoxData", "[", + RowBox[{"ToBoxes", "[", + RowBox[{"TableForm", "[", "dataX", "]"}], "]"}], "]"}], + ",", "\"\\""}], "]"}], "]"}]}], ",", + RowBox[{"MessageDialog", "[", + + RowBox[{"\"\<\:041e\:0448\:0438\:0431\:043a\:0430: \:0421\ +\:043d\:0430\:0447\:0430\:043b\:0430 \:0432\:044b\:0434\:0435\:043b\:0438\ +\:0442\:0435 \:043d\:0443\:0436\:043d\:044b\:0439 \:0433\:0440\:0430\:0444\ +\:0438\:043a (\:043a\:043b\:0438\:043a\:043d\:0438\:0442\:0435 \:043f\:043e \ +\:0435\:0433\:043e \:044f\:0447\:0435\:0439\:043a\:0435 \:0441\:043f\:0440\ +\:0430\:0432\:0430)!\>\"", ",", + RowBox[{"WindowFloating", "->", "True"}]}], "]"}]}], + "]"}]}]}], "]"}], ",", + RowBox[{"Background", "->", + RowBox[{"RGBColor", "[", + RowBox[{"0.9", ",", "0.95", ",", "1"}], "]"}]}], ",", + RowBox[{"ImageSize", "->", + RowBox[{"{", + RowBox[{"180", ",", "25"}], "}"}]}]}], "]"}]}], "}"}], "]"}], ",", + RowBox[{"Background", "->", + RowBox[{"GrayLevel", "[", "0.95", "]"}]}], ",", + RowBox[{"FrameMargins", "->", "10"}]}], "]"}], ",", "\"\\""}], + "]"}], "]"}], "\n"}]], "Input", + CellChangeTimes->{{3.9943043996512623`*^9, 3.994304399651291*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"7fb8cc28-1127-4f1a-ae07-82272a37010d"] }, WindowSize->{1440, 882}, -WindowMargins->{{0, Automatic}, {0, Automatic}}, +WindowMargins->{{0, Automatic}, {0, 18}}, CellContext->Notebook, Magnification:>1.5 Inherited, FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", @@ -14192,7 +14282,7 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 354, 7, 99, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], +Cell[576, 22, 354, 7, 55, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], Cell[933, 31, 260, 5, 62, "Output",ExpressionUUID->"f9762e12-9267-47fa-8806-6002245e3fc8"] }, Open ]], Cell[CellGroupData[{ @@ -14248,19 +14338,19 @@ Cell[7670, 257, 561, 20, 148, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-1 Cell[8234, 279, 271, 5, 62, "Output",ExpressionUUID->"5971dfaa-c94c-45df-8971-a09869eb43d1"] }, Open ]], Cell[CellGroupData[{ -Cell[8542, 289, 1592, 51, 639, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], +Cell[8542, 289, 1592, 51, 211, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], Cell[10137, 342, 272, 5, 62, "Output",ExpressionUUID->"f1a06989-a7de-46c4-b03d-9a750dcf58c8"] }, Open ]], Cell[CellGroupData[{ -Cell[10446, 352, 1426, 47, 561, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], +Cell[10446, 352, 1426, 47, 211, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], Cell[11875, 401, 290, 6, 62, "Output",ExpressionUUID->"5504cb81-c891-481c-8e7a-a777b4cf5f7d"] }, Open ]], Cell[CellGroupData[{ -Cell[12202, 412, 1426, 47, 561, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], +Cell[12202, 412, 1426, 47, 211, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], Cell[13631, 461, 291, 6, 62, "Output",ExpressionUUID->"f6642a88-88c6-46c5-8405-2b16fe6405a5"] }, Open ]], Cell[CellGroupData[{ -Cell[13959, 472, 1592, 51, 639, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], +Cell[13959, 472, 1592, 51, 211, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], Cell[15554, 525, 269, 5, 62, "Output",ExpressionUUID->"e792967f-1e94-4818-8464-1d5064316cbc"] }, Open ]], Cell[CellGroupData[{ @@ -14304,7 +14394,7 @@ Cell[20539, 689, 354, 11, 81, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-9 Cell[20896, 702, 288, 6, 62, "Output",ExpressionUUID->"7df2e02d-ceb9-4e02-b431-c4e3dc07a1ae"] }, Open ]], Cell[CellGroupData[{ -Cell[21221, 713, 998, 27, 488, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], +Cell[21221, 713, 998, 27, 154, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], Cell[22222, 742, 276, 5, 62, "Output",ExpressionUUID->"c90de278-6f4b-43a0-84bb-271f080c496b"] }, Open ]], Cell[CellGroupData[{ @@ -14352,27 +14442,27 @@ Cell[28769, 929, 231, 4, 62, "Output",ExpressionUUID->"63fcce57-2676-49ff-a853-6 }, Open ]], Cell[29015, 936, 179, 3, 55, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ -Cell[29219, 943, 19813, 486, 7166, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], +Cell[29219, 943, 19813, 486, 3214, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], Cell[49035, 1431, 272, 5, 62, "Output",ExpressionUUID->"411a5131-3b33-45a0-894b-111161436c1a"] }, Open ]], Cell[CellGroupData[{ -Cell[49344, 1441, 19752, 490, 7205, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], +Cell[49344, 1441, 19752, 490, 3214, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], Cell[69099, 1933, 271, 5, 62, "Output",ExpressionUUID->"7a2946b6-15b0-4efc-891d-59318f57e0a0"] }, Open ]], Cell[CellGroupData[{ -Cell[69407, 1943, 19752, 484, 7204, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], +Cell[69407, 1943, 19752, 484, 3213, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], Cell[89162, 2429, 289, 6, 62, "Output",ExpressionUUID->"d3db5732-abdb-4f42-bb8e-c94398a97284"] }, Open ]], Cell[CellGroupData[{ -Cell[89488, 2440, 22538, 554, 8281, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], +Cell[89488, 2440, 22538, 554, 3639, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], Cell[112029, 2996, 291, 6, 62, "Output",ExpressionUUID->"e04073d8-5cd1-4a34-a275-873f38cb9eae"] }, Open ]], Cell[CellGroupData[{ -Cell[112357, 3007, 22539, 554, 8281, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], +Cell[112357, 3007, 22539, 554, 3639, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], Cell[134899, 3563, 292, 6, 62, "Output",ExpressionUUID->"ef0001a9-8dc6-4a72-936d-29f33ed46a0c"] }, Open ]], Cell[CellGroupData[{ -Cell[135228, 3574, 25495, 627, 9401, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], +Cell[135228, 3574, 25495, 627, 4065, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], Cell[160726, 4203, 286, 6, 62, "Output",ExpressionUUID->"ada8cea0-0dc8-40e0-96d3-6bceecba2f99"] }, Open ]], Cell[CellGroupData[{ @@ -14384,15 +14474,15 @@ Cell[161477, 4229, 134, 3, 55, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6- Cell[161614, 4234, 254, 5, 62, "Output",ExpressionUUID->"bf992dd7-dd94-4316-9009-1e7e45b14028"] }, Open ]], Cell[CellGroupData[{ -Cell[161905, 4244, 1148, 40, 628, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], +Cell[161905, 4244, 1148, 40, 211, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], Cell[163056, 4286, 271, 5, 62, "Output",ExpressionUUID->"21ada3b5-49c8-4841-bda5-7066b8a0a78e"] }, Open ]], Cell[CellGroupData[{ -Cell[163364, 4296, 1045, 36, 625, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], +Cell[163364, 4296, 1045, 36, 211, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], Cell[164412, 4334, 286, 6, 62, "Output",ExpressionUUID->"7c1e8e4b-9f34-48ad-86dd-7d5290ebb334"] }, Open ]], Cell[CellGroupData[{ -Cell[164735, 4345, 1148, 40, 628, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], +Cell[164735, 4345, 1148, 40, 211, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], Cell[165886, 4387, 271, 5, 62, "Output",ExpressionUUID->"5fbe48ec-cfd4-4745-8e9b-ea52d9558406"] }, Open ]], Cell[CellGroupData[{ @@ -14420,31 +14510,31 @@ Cell[168347, 4469, 111, 2, 55, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748- Cell[168461, 4473, 272, 5, 62, "Output",ExpressionUUID->"b60f3e52-d975-4951-bcab-04f0c8b38840"] }, Open ]], Cell[CellGroupData[{ -Cell[168770, 4483, 501, 17, 182, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], +Cell[168770, 4483, 501, 17, 105, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], Cell[169274, 4502, 287, 6, 62, "Output",ExpressionUUID->"28130a5d-291f-4965-a76d-c2462d9c33db"] }, Open ]], Cell[CellGroupData[{ -Cell[169598, 4513, 501, 17, 182, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], +Cell[169598, 4513, 501, 17, 105, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], Cell[170102, 4532, 286, 6, 62, "Output",ExpressionUUID->"08e67a85-9b14-40f9-847b-4fb28eca4378"] }, Open ]], Cell[CellGroupData[{ -Cell[170425, 4543, 1792, 61, 1100, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], +Cell[170425, 4543, 1792, 61, 358, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], Cell[172220, 4606, 270, 5, 62, "Output",ExpressionUUID->"fc4c009b-4226-4193-8c5c-2b3c3c1cb35b"] }, Open ]], Cell[CellGroupData[{ -Cell[172527, 4616, 1105, 37, 667, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], +Cell[172527, 4616, 1105, 37, 256, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], Cell[173635, 4655, 291, 6, 62, "Output",ExpressionUUID->"619b4bd1-7791-42f4-a5c9-213f0712b905"] }, Open ]], Cell[CellGroupData[{ -Cell[173963, 4666, 1822, 62, 1100, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], +Cell[173963, 4666, 1822, 62, 313, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], Cell[175788, 4730, 269, 5, 62, "Output",ExpressionUUID->"fce4da0b-4d58-49d8-bfa1-3aa854f17c16"] }, Open ]], Cell[CellGroupData[{ -Cell[176094, 4740, 1635, 54, 451, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], +Cell[176094, 4740, 1635, 54, 310, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], Cell[177732, 4796, 273, 5, 62, "Output",ExpressionUUID->"caf71c16-6c0a-4583-8266-aa02b4b5b181"] }, Open ]], Cell[CellGroupData[{ -Cell[178042, 4806, 1635, 54, 451, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], +Cell[178042, 4806, 1635, 54, 310, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], Cell[179680, 4862, 272, 5, 62, "Output",ExpressionUUID->"be7fc9b0-8863-48a4-9c93-e6fa73bf15df"] }, Open ]], Cell[CellGroupData[{ @@ -14458,15 +14548,15 @@ Cell[180865, 4898, 238, 4, 62, "Output",ExpressionUUID->"d6386bd1-b2d0-4b17-ab3b }, Open ]], Cell[181118, 4905, 177, 3, 55, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ -Cell[181320, 4912, 1301, 43, 303, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], +Cell[181320, 4912, 1301, 43, 217, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], Cell[182624, 4957, 275, 5, 62, "Output",ExpressionUUID->"5667e4df-77af-465e-9a0c-eec33bd9d257"] }, Open ]], Cell[CellGroupData[{ -Cell[182936, 4967, 931, 31, 259, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], +Cell[182936, 4967, 931, 31, 107, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], Cell[183870, 5000, 278, 5, 62, "Output",ExpressionUUID->"765d9cd9-e681-4321-872e-28ffe14fdf9d"] }, Open ]], Cell[CellGroupData[{ -Cell[184185, 5010, 907, 30, 259, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], +Cell[184185, 5010, 907, 30, 107, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], Cell[185095, 5042, 278, 5, 62, "Output",ExpressionUUID->"51642a1c-b675-49b6-ad25-93eee018f740"] }, Open ]], Cell[CellGroupData[{ @@ -14494,7 +14584,7 @@ Cell[190720, 5195, 181, 5, 81, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c- Cell[190904, 5202, 664, 10, 62, "Output",ExpressionUUID->"46c51d08-5cc2-4704-9167-2f2e09ec67b9"] }, Open ]], Cell[CellGroupData[{ -Cell[191605, 5217, 6055, 185, 2152, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], +Cell[191605, 5217, 6055, 185, 933, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], Cell[197663, 5404, 647, 10, 62, "Output",ExpressionUUID->"af68c21a-f82e-436e-af66-2a931b1fbb72"] }, Open ]], Cell[CellGroupData[{ @@ -14527,7 +14617,7 @@ Cell[203136, 5572, 181, 5, 81, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f- Cell[203320, 5579, 271, 5, 62, "Output",ExpressionUUID->"80e5fffc-1bbb-46db-a342-5d70545f8ca3"] }, Open ]], Cell[CellGroupData[{ -Cell[203628, 5589, 6055, 185, 2152, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], +Cell[203628, 5589, 6055, 185, 933, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], Cell[209686, 5776, 274, 5, 62, "Output",ExpressionUUID->"a4495230-3d33-4920-8527-ece80fea158d"] }, Open ]], Cell[CellGroupData[{ @@ -14535,7 +14625,7 @@ Cell[209997, 5786, 410, 10, 109, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96c Cell[210410, 5798, 318, 6, 92, "Output",ExpressionUUID->"38fbeeef-09af-4e17-b2ce-56357eaa0c05"] }, Open ]], Cell[CellGroupData[{ -Cell[210765, 5809, 6122, 187, 2152, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], +Cell[210765, 5809, 6122, 187, 976, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], Cell[216890, 5998, 277, 5, 62, "Output",ExpressionUUID->"43ffb152-05c4-4d7a-85e8-9f5c899c8cb6"] }, Open ]], Cell[CellGroupData[{ @@ -14543,90 +14633,90 @@ Cell[217204, 6008, 368, 9, 79, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa- Cell[217575, 6019, 273, 5, 62, "Output",ExpressionUUID->"1dfa5f9c-5715-4737-a920-5b4f3ffdc16f"] }, Open ]], Cell[CellGroupData[{ -Cell[217885, 6029, 2663, 88, 1067, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], +Cell[217885, 6029, 2663, 88, 315, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], Cell[220551, 6119, 273, 5, 62, "Output",ExpressionUUID->"61500c6b-fd21-429f-a8d7-8f81dcf3b6c5"] }, Open ]], Cell[CellGroupData[{ -Cell[220861, 6129, 2603, 85, 967, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], +Cell[220861, 6129, 2603, 85, 315, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], Cell[223467, 6216, 276, 5, 62, "Output",ExpressionUUID->"26a10b34-a614-4bc7-ac45-b38f6f4a1eff"] }, Open ]], Cell[CellGroupData[{ -Cell[223780, 6226, 3712, 118, 1454, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], +Cell[223780, 6226, 3712, 118, 464, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], Cell[227495, 6346, 273, 5, 62, "Output",ExpressionUUID->"46490ee9-2e34-4a9b-b167-aec1b8012b07"] }, Open ]], Cell[227783, 6354, 164, 4, 55, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ -Cell[227972, 6362, 2075, 59, 731, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], -Cell[230050, 6423, 750, 16, 213, "Message",ExpressionUUID->"8fa45948-8bf7-4a54-9ea4-632fb5f04040"], -Cell[230803, 6441, 751, 16, 213, "Message",ExpressionUUID->"397cbaa6-1abf-4588-a667-04d7dcafa3b3"], -Cell[231557, 6459, 752, 16, 213, "Message",ExpressionUUID->"5d56125c-00bf-46a9-87f3-526de5a7aaa6"], -Cell[232312, 6477, 573, 13, 82, "Message",ExpressionUUID->"b95cdd48-c445-42e3-a155-55465a58e2f0"], +Cell[227972, 6362, 2075, 59, 409, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], +Cell[230050, 6423, 750, 16, 109, "Message",ExpressionUUID->"8fa45948-8bf7-4a54-9ea4-632fb5f04040"], +Cell[230803, 6441, 751, 16, 109, "Message",ExpressionUUID->"397cbaa6-1abf-4588-a667-04d7dcafa3b3"], +Cell[231557, 6459, 752, 16, 109, "Message",ExpressionUUID->"5d56125c-00bf-46a9-87f3-526de5a7aaa6"], +Cell[232312, 6477, 573, 13, 48, "Message",ExpressionUUID->"b95cdd48-c445-42e3-a155-55465a58e2f0"], Cell[232888, 6492, 263, 5, 62, "Output",ExpressionUUID->"368bd8e6-f2da-4484-ba61-814264e48140"] }, Open ]], Cell[CellGroupData[{ -Cell[233188, 6502, 2054, 59, 731, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], -Cell[235245, 6563, 556, 12, 245, "Message",ExpressionUUID->"365becfb-66c2-b442-8b7b-c6077e53a212"], -Cell[235804, 6577, 556, 12, 245, "Message",ExpressionUUID->"2b170196-02e0-d544-a5a5-d90722dc10dc"], -Cell[236363, 6591, 559, 12, 245, "Message",ExpressionUUID->"02967e8e-3430-cf4f-b706-b82af40300a2"], -Cell[236925, 6605, 452, 10, 81, "Message",ExpressionUUID->"a8933e75-6bbd-684a-8439-656414d7fe5d"], -Cell[237380, 6617, 166, 2, 62, "Output",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"] +Cell[233188, 6502, 2054, 59, 409, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], +Cell[235245, 6563, 556, 12, 119, "Message",ExpressionUUID->"365becfb-66c2-b442-8b7b-c6077e53a212"], +Cell[235804, 6577, 556, 12, 119, "Message",ExpressionUUID->"2b170196-02e0-d544-a5a5-d90722dc10dc"], +Cell[236363, 6591, 559, 12, 109, "Message",ExpressionUUID->"02967e8e-3430-cf4f-b706-b82af40300a2"], +Cell[236925, 6605, 452, 10, 109, "Message",ExpressionUUID->"a8933e75-6bbd-684a-8439-656414d7fe5d"], +Cell[237380, 6617, 166, 2, 109, "Output",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"] }, Open ]], Cell[CellGroupData[{ -Cell[237583, 6624, 1938, 53, 506, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], -Cell[239524, 6679, 20239, 378, 333, "Output",ExpressionUUID->"5d2ddb35-b7b8-514c-917f-fcc77dc8600c"] +Cell[237583, 6624, 1938, 53, 109, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], +Cell[239524, 6679, 20239, 378, 448, "Output",ExpressionUUID->"5d2ddb35-b7b8-514c-917f-fcc77dc8600c"] }, Open ]], Cell[CellGroupData[{ -Cell[259800, 7062, 2094, 60, 782, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], -Cell[261897, 7124, 497, 11, 182, "Message",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], -Cell[262397, 7137, 501, 11, 182, "Message",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], -Cell[262901, 7150, 503, 11, 182, "Message",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], -Cell[263407, 7163, 455, 10, 81, "Message",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], -Cell[263865, 7175, 43631, 762, 318, "Output",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] +Cell[259800, 7062, 2094, 60, 344, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], +Cell[261897, 7124, 497, 11, 109, "Message",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], +Cell[262397, 7137, 501, 11, 109, "Message",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], +Cell[262901, 7150, 503, 11, 109, "Message",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], +Cell[263407, 7163, 455, 10, 48, "Message",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], +Cell[263865, 7175, 43631, 762, 436, "Output",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] }, Open ]], -Cell[307511, 7940, 2455, 69, 677, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], +Cell[307511, 7940, 2455, 69, 109, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], Cell[309969, 8011, 209, 5, 55, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], Cell[CellGroupData[{ Cell[310203, 8020, 212, 6, 90, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], Cell[310418, 8028, 168, 2, 62, "Output",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] }, Open ]], Cell[CellGroupData[{ -Cell[310623, 8035, 1814, 53, 684, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], -Cell[312440, 8090, 505, 11, 182, "Message",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], -Cell[312948, 8103, 509, 11, 182, "Message",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], -Cell[313460, 8116, 508, 11, 182, "Message",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], -Cell[313971, 8129, 455, 10, 81, "Message",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], -Cell[314429, 8141, 22399, 414, 324, "Output",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +Cell[310623, 8035, 1814, 53, 238, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], +Cell[312440, 8090, 505, 11, 109, "Message",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], +Cell[312948, 8103, 509, 11, 109, "Message",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], +Cell[313460, 8116, 508, 11, 109, "Message",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], +Cell[313971, 8129, 455, 10, 48, "Message",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], +Cell[314429, 8141, 22399, 414, 439, "Output",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] }, Open ]], Cell[CellGroupData[{ -Cell[336865, 8560, 1612, 47, 526, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], -Cell[338480, 8609, 581, 12, 245, "Message",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], -Cell[339064, 8623, 584, 12, 245, "Message",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], -Cell[339651, 8637, 590, 12, 276, "Message",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], -Cell[340244, 8651, 455, 10, 81, "Message",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], +Cell[336865, 8560, 1612, 47, 128, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], +Cell[338480, 8609, 581, 12, 150, "Message",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], +Cell[339064, 8623, 584, 12, 150, "Message",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], +Cell[339651, 8637, 590, 12, 150, "Message",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], +Cell[340244, 8651, 455, 10, 48, "Message",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], Cell[340702, 8663, 169, 2, 62, "Output",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] }, Open ]], Cell[CellGroupData[{ -Cell[340908, 8670, 2249, 64, 731, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], -Cell[343160, 8736, 557, 12, 245, "Message",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], -Cell[343720, 8750, 560, 12, 245, "Message",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], -Cell[344283, 8764, 560, 12, 245, "Message",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], -Cell[344846, 8778, 455, 10, 81, "Message",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], +Cell[340908, 8670, 2249, 64, 399, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], +Cell[343160, 8736, 557, 12, 109, "Message",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], +Cell[343720, 8750, 560, 12, 109, "Message",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], +Cell[344283, 8764, 560, 12, 109, "Message",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], +Cell[344846, 8778, 455, 10, 48, "Message",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], Cell[345304, 8790, 169, 2, 62, "Output",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] }, Open ]], Cell[CellGroupData[{ -Cell[345510, 8797, 2221, 64, 692, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], -Cell[347734, 8863, 554, 12, 245, "Message",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], -Cell[348291, 8877, 560, 12, 245, "Message",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], -Cell[348854, 8891, 560, 12, 245, "Message",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], -Cell[349417, 8905, 455, 10, 81, "Message",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], +Cell[345510, 8797, 2221, 64, 283, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], +Cell[347734, 8863, 554, 12, 119, "Message",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], +Cell[348291, 8877, 560, 12, 119, "Message",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], +Cell[348854, 8891, 560, 12, 119, "Message",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], +Cell[349417, 8905, 455, 10, 48, "Message",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], Cell[349875, 8917, 169, 2, 62, "Output",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] }, Open ]], Cell[CellGroupData[{ -Cell[350081, 8924, 2223, 64, 692, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], -Cell[352307, 8990, 555, 12, 245, "Message",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], -Cell[352865, 9004, 558, 12, 245, "Message",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], -Cell[353426, 9018, 560, 12, 245, "Message",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], -Cell[353989, 9032, 453, 10, 81, "Message",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], +Cell[350081, 8924, 2223, 64, 283, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], +Cell[352307, 8990, 555, 12, 119, "Message",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], +Cell[352865, 9004, 558, 12, 119, "Message",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], +Cell[353426, 9018, 560, 12, 119, "Message",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], +Cell[353989, 9032, 453, 10, 48, "Message",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], Cell[354445, 9044, 167, 2, 62, "Output",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] }, Open ]], Cell[CellGroupData[{ @@ -14647,7 +14737,7 @@ Cell[356457, 9113, 181, 5, 81, "Input",ExpressionUUID->"34b5c282-9128-3243-a083- Cell[356641, 9120, 173, 3, 62, "Output",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] }, Open ]], Cell[CellGroupData[{ -Cell[356851, 9128, 6055, 185, 2152, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], +Cell[356851, 9128, 6055, 185, 933, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], Cell[362909, 9315, 172, 3, 62, "Output",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] }, Open ]], Cell[CellGroupData[{ @@ -14655,7 +14745,7 @@ Cell[363118, 9323, 368, 9, 79, "Input",ExpressionUUID->"0fa06165-8277-0942-9840- Cell[363489, 9334, 170, 3, 62, "Output",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] }, Open ]], Cell[CellGroupData[{ -Cell[363696, 9342, 6122, 187, 2152, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], +Cell[363696, 9342, 6122, 187, 976, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], Cell[369821, 9531, 175, 3, 62, "Output",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] }, Open ]], Cell[CellGroupData[{ @@ -14663,77 +14753,77 @@ Cell[370033, 9539, 368, 9, 79, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203- Cell[370404, 9550, 169, 3, 62, "Output",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] }, Open ]], Cell[CellGroupData[{ -Cell[370610, 9558, 2663, 88, 1067, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], +Cell[370610, 9558, 2663, 88, 315, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], Cell[373276, 9648, 173, 3, 62, "Output",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] }, Open ]], Cell[CellGroupData[{ -Cell[373486, 9656, 2603, 85, 967, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], +Cell[373486, 9656, 2603, 85, 315, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], Cell[376092, 9743, 171, 3, 62, "Output",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] }, Open ]], Cell[CellGroupData[{ -Cell[376300, 9751, 3712, 118, 1454, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], +Cell[376300, 9751, 3712, 118, 464, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], Cell[380015, 9871, 171, 3, 62, "Output",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] }, Open ]], Cell[CellGroupData[{ -Cell[380223, 9879, 2052, 59, 731, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], -Cell[382278, 9940, 572, 12, 245, "Message",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], -Cell[382853, 9954, 573, 12, 245, "Message",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], -Cell[383429, 9968, 578, 12, 245, "Message",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], -Cell[384010, 9982, 457, 10, 81, "Message",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], +Cell[380223, 9879, 2052, 59, 409, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], +Cell[382278, 9940, 572, 12, 119, "Message",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], +Cell[382853, 9954, 573, 12, 150, "Message",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], +Cell[383429, 9968, 578, 12, 150, "Message",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], +Cell[384010, 9982, 457, 10, 48, "Message",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], Cell[384470, 9994, 172, 3, 62, "Output",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] }, Open ]], Cell[CellGroupData[{ -Cell[384679, 10002, 2054, 59, 731, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], -Cell[386736, 10063, 572, 12, 245, "Message",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], -Cell[387311, 10077, 575, 12, 245, "Message",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], -Cell[387889, 10091, 576, 12, 245, "Message",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], -Cell[388468, 10105, 457, 10, 81, "Message",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], +Cell[384679, 10002, 2054, 59, 409, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], +Cell[386736, 10063, 572, 12, 119, "Message",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], +Cell[387311, 10077, 575, 12, 150, "Message",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], +Cell[387889, 10091, 576, 12, 150, "Message",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], +Cell[388468, 10105, 457, 10, 48, "Message",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], Cell[388928, 10117, 170, 3, 62, "Output",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] }, Open ]], Cell[CellGroupData[{ -Cell[389135, 10125, 2030, 55, 506, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], -Cell[391168, 10182, 20377, 384, 327, "Output",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +Cell[389135, 10125, 2030, 55, 149, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], +Cell[391168, 10182, 20377, 384, 443, "Output",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] }, Open ]], Cell[CellGroupData[{ -Cell[411582, 10571, 2118, 60, 782, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], -Cell[413703, 10633, 499, 11, 182, "Message",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], -Cell[414205, 10646, 504, 11, 182, "Message",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], -Cell[414712, 10659, 507, 11, 182, "Message",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], -Cell[415222, 10672, 455, 10, 81, "Message",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], -Cell[415680, 10684, 22381, 415, 325, "Output",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] +Cell[411582, 10571, 2118, 60, 344, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], +Cell[413703, 10633, 499, 11, 109, "Message",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], +Cell[414205, 10646, 504, 11, 109, "Message",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], +Cell[414712, 10659, 507, 11, 109, "Message",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], +Cell[415222, 10672, 455, 10, 48, "Message",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], +Cell[415680, 10684, 22381, 415, 440, "Output",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] }, Open ]], Cell[438076, 11102, 174, 3, 55, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], Cell[438253, 11107, 209, 5, 55, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], Cell[CellGroupData[{ -Cell[438487, 11116, 1616, 48, 526, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], -Cell[440106, 11166, 594, 12, 276, "Message",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], -Cell[440703, 11180, 594, 12, 276, "Message",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], -Cell[441300, 11194, 598, 12, 276, "Message",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], -Cell[441901, 11208, 457, 10, 81, "Message",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], +Cell[438487, 11116, 1616, 48, 128, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], +Cell[440106, 11166, 594, 12, 150, "Message",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], +Cell[440703, 11180, 594, 12, 150, "Message",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], +Cell[441300, 11194, 598, 12, 150, "Message",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], +Cell[441901, 11208, 457, 10, 48, "Message",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], Cell[442361, 11220, 171, 3, 62, "Output",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] }, Open ]], Cell[CellGroupData[{ -Cell[442569, 11228, 2247, 64, 731, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], -Cell[444819, 11294, 572, 12, 245, "Message",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], -Cell[445394, 11308, 573, 12, 245, "Message",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], -Cell[445970, 11322, 578, 12, 245, "Message",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], -Cell[446551, 11336, 455, 10, 81, "Message",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], +Cell[442569, 11228, 2247, 64, 399, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], +Cell[444819, 11294, 572, 12, 119, "Message",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], +Cell[445394, 11308, 573, 12, 150, "Message",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], +Cell[445970, 11322, 578, 12, 150, "Message",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], +Cell[446551, 11336, 455, 10, 48, "Message",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], Cell[447009, 11348, 172, 3, 62, "Output",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] }, Open ]], Cell[CellGroupData[{ -Cell[447218, 11356, 2221, 64, 692, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], -Cell[449442, 11422, 570, 12, 245, "Message",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], -Cell[450015, 11436, 573, 12, 245, "Message",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], -Cell[450591, 11450, 578, 12, 245, "Message",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], -Cell[451172, 11464, 455, 10, 81, "Message",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], +Cell[447218, 11356, 2221, 64, 283, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], +Cell[449442, 11422, 570, 12, 119, "Message",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], +Cell[450015, 11436, 573, 12, 150, "Message",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], +Cell[450591, 11450, 578, 12, 150, "Message",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], +Cell[451172, 11464, 455, 10, 48, "Message",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], Cell[451630, 11476, 172, 3, 62, "Output",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] }, Open ]], Cell[CellGroupData[{ -Cell[451839, 11484, 2221, 64, 692, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], -Cell[454063, 11550, 572, 12, 245, "Message",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], -Cell[454638, 11564, 575, 12, 245, "Message",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], -Cell[455216, 11578, 578, 12, 245, "Message",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], -Cell[455797, 11592, 455, 10, 81, "Message",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], +Cell[451839, 11484, 2221, 64, 283, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], +Cell[454063, 11550, 572, 12, 119, "Message",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], +Cell[454638, 11564, 575, 12, 150, "Message",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], +Cell[455216, 11578, 578, 12, 150, "Message",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], +Cell[455797, 11592, 455, 10, 48, "Message",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], Cell[456255, 11604, 173, 3, 62, "Output",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] }, Open ]], Cell[CellGroupData[{ @@ -14754,7 +14844,7 @@ Cell[458290, 11679, 181, 5, 81, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf Cell[458474, 11686, 173, 3, 62, "Output",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] }, Open ]], Cell[CellGroupData[{ -Cell[458684, 11694, 6055, 185, 2152, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], +Cell[458684, 11694, 6055, 185, 933, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], Cell[464742, 11881, 175, 3, 62, "Output",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] }, Open ]], Cell[CellGroupData[{ @@ -14762,7 +14852,7 @@ Cell[464954, 11889, 368, 9, 79, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706 Cell[465325, 11900, 170, 3, 62, "Output",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] }, Open ]], Cell[CellGroupData[{ -Cell[465532, 11908, 6122, 187, 2152, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], +Cell[465532, 11908, 6122, 187, 976, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], Cell[471657, 12097, 175, 3, 62, "Output",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] }, Open ]], Cell[CellGroupData[{ @@ -14770,75 +14860,75 @@ Cell[471869, 12105, 368, 9, 79, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68 Cell[472240, 12116, 172, 3, 62, "Output",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] }, Open ]], Cell[CellGroupData[{ -Cell[472449, 12124, 2663, 88, 1067, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], +Cell[472449, 12124, 2663, 88, 315, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], Cell[475115, 12214, 173, 3, 62, "Output",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] }, Open ]], Cell[CellGroupData[{ -Cell[475325, 12222, 2603, 85, 967, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], +Cell[475325, 12222, 2603, 85, 315, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], Cell[477931, 12309, 171, 3, 62, "Output",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] }, Open ]], Cell[CellGroupData[{ -Cell[478139, 12317, 3712, 118, 1454, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], +Cell[478139, 12317, 3712, 118, 464, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], Cell[481854, 12437, 171, 3, 62, "Output",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] }, Open ]], Cell[CellGroupData[{ -Cell[482062, 12445, 2052, 59, 731, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], -Cell[484117, 12506, 568, 12, 245, "Message",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], -Cell[484688, 12520, 572, 12, 245, "Message",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], -Cell[485263, 12534, 574, 12, 245, "Message",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], -Cell[485840, 12548, 457, 10, 81, "Message",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], +Cell[482062, 12445, 2052, 59, 409, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], +Cell[484117, 12506, 568, 12, 119, "Message",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], +Cell[484688, 12520, 572, 12, 119, "Message",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], +Cell[485263, 12534, 574, 12, 150, "Message",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], +Cell[485840, 12548, 457, 10, 48, "Message",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], Cell[486300, 12560, 172, 3, 62, "Output",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] }, Open ]], Cell[CellGroupData[{ -Cell[486509, 12568, 2054, 59, 731, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], -Cell[488566, 12629, 568, 12, 245, "Message",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], -Cell[489137, 12643, 572, 12, 245, "Message",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], -Cell[489712, 12657, 574, 12, 245, "Message",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], -Cell[490289, 12671, 457, 10, 81, "Message",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], +Cell[486509, 12568, 2054, 59, 409, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], +Cell[488566, 12629, 568, 12, 119, "Message",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], +Cell[489137, 12643, 572, 12, 119, "Message",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], +Cell[489712, 12657, 574, 12, 150, "Message",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], +Cell[490289, 12671, 457, 10, 48, "Message",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], Cell[490749, 12683, 171, 3, 62, "Output",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] }, Open ]], Cell[CellGroupData[{ -Cell[490957, 12691, 2030, 55, 506, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], -Cell[492990, 12748, 19960, 375, 327, "Output",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +Cell[490957, 12691, 2030, 55, 149, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], +Cell[492990, 12748, 19960, 375, 443, "Output",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] }, Open ]], Cell[CellGroupData[{ -Cell[512987, 13128, 2118, 60, 782, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], -Cell[515108, 13190, 496, 11, 182, "Message",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], -Cell[515607, 13203, 501, 11, 182, "Message",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], -Cell[516111, 13216, 505, 11, 182, "Message",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], -Cell[516619, 13229, 455, 10, 81, "Message",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], -Cell[517077, 13241, 21721, 403, 319, "Output",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +Cell[512987, 13128, 2118, 60, 344, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], +Cell[515108, 13190, 496, 11, 109, "Message",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], +Cell[515607, 13203, 501, 11, 109, "Message",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], +Cell[516111, 13216, 505, 11, 109, "Message",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], +Cell[516619, 13229, 455, 10, 48, "Message",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], +Cell[517077, 13241, 21721, 403, 436, "Output",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] }, Open ]], Cell[538813, 13647, 181, 3, 55, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], Cell[538997, 13652, 207, 5, 55, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], Cell[CellGroupData[{ -Cell[539229, 13661, 1616, 48, 526, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], -Cell[540848, 13711, 589, 12, 245, "Message",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], -Cell[541440, 13725, 588, 12, 276, "Message",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], -Cell[542031, 13739, 594, 12, 276, "Message",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], -Cell[542628, 13753, 455, 10, 81, "Message",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], +Cell[539229, 13661, 1616, 48, 128, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], +Cell[540848, 13711, 589, 12, 150, "Message",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], +Cell[541440, 13725, 588, 12, 150, "Message",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], +Cell[542031, 13739, 594, 12, 150, "Message",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], +Cell[542628, 13753, 455, 10, 48, "Message",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], Cell[543086, 13765, 173, 3, 62, "Output",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] }, Open ]], Cell[CellGroupData[{ -Cell[543296, 13773, 2246, 64, 731, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], -Cell[545545, 13839, 566, 12, 245, "Message",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], -Cell[546114, 13853, 570, 12, 245, "Message",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], -Cell[546687, 13867, 574, 12, 245, "Message",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], -Cell[547264, 13881, 456, 10, 81, "Message",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], +Cell[543296, 13773, 2246, 64, 399, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], +Cell[545545, 13839, 566, 12, 119, "Message",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], +Cell[546114, 13853, 570, 12, 119, "Message",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], +Cell[546687, 13867, 574, 12, 150, "Message",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], +Cell[547264, 13881, 456, 10, 48, "Message",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], Cell[547723, 13893, 171, 3, 62, "Output",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] }, Open ]], Cell[CellGroupData[{ -Cell[547931, 13901, 2221, 64, 692, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], -Cell[550155, 13967, 569, 12, 245, "Message",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], -Cell[550727, 13981, 571, 12, 245, "Message",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], -Cell[551301, 13995, 575, 12, 245, "Message",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], -Cell[551879, 14009, 458, 10, 81, "Message",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], +Cell[547931, 13901, 2221, 64, 283, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], +Cell[550155, 13967, 569, 12, 119, "Message",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], +Cell[550727, 13981, 571, 12, 119, "Message",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], +Cell[551301, 13995, 575, 12, 150, "Message",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], +Cell[551879, 14009, 458, 10, 48, "Message",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], Cell[552340, 14021, 171, 3, 62, "Output",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] }, Open ]], Cell[CellGroupData[{ -Cell[552548, 14029, 2223, 64, 692, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], -Cell[554774, 14095, 567, 12, 245, "Message",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], -Cell[555344, 14109, 571, 12, 245, "Message",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], +Cell[552548, 14029, 2223, 64, 283, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], +Cell[554774, 14095, 567, 12, 119, "Message",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], +Cell[555344, 14109, 571, 12, 119, "Message",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], Cell[555918, 14123, 573, 12, 150, "Message",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], Cell[556494, 14137, 456, 10, 48, "Message",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], Cell[556953, 14149, 173, 3, 62, "Output",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] @@ -14847,8 +14937,11 @@ Cell[CellGroupData[{ Cell[557163, 14157, 211, 6, 88, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], Cell[557377, 14165, 174, 3, 62, "Output",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] }, Open ]], -Cell[557566, 14171, 115, 1, 55, "Input",ExpressionUUID->"68695c7d-ff3e-440c-830c-d4e196fe93e9"] +Cell[557566, 14171, 115, 1, 55, "Input",ExpressionUUID->"68695c7d-ff3e-440c-830c-d4e196fe93e9"], +Cell[557684, 14174, 4091, 88, 677, "Input",ExpressionUUID->"7fb8cc28-1127-4f1a-ae07-82272a37010d"] } ] *) +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_osc_Qw1.nb b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_osc_Qw1.nb index db0e055..b288e8a 100755 --- a/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_osc_Qw1.nb +++ b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_osc_Qw1.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 723226, 16950] -NotebookOptionsPosition[ 680079, 16255] -NotebookOutlinePosition[ 680891, 16283] -CellTagsIndexPosition[ 680811, 16278] +NotebookDataLength[ 731278, 17140] +NotebookOptionsPosition[ 687795, 16440] +NotebookOutlinePosition[ 688600, 16468] +CellTagsIndexPosition[ 688520, 16463] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -16251,14 +16251,199 @@ Cell[BoxData["0.032262445773844434`"], "Output", CellChangeTimes->{3.9913279320452003`*^9, 3.9938287111949377`*^9}, CellLabel-> "Out[157]=",ExpressionUUID->"467871ae-163b-4880-ade2-6002c7fe0a60"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"CellPrint", "[", + RowBox[{"ExpressionCell", "[", + RowBox[{ + RowBox[{"Panel", "[", + RowBox[{ + RowBox[{"Row", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"Style", "[", + + RowBox[{"\"\<\:0423\:043f\:0440\:0430\:0432\:043b\:0435\:043d\:0438\ +\:0435 \:043a\:044d\:0448\:0435\:043c \:0433\:0440\:0430\:0444\:0438\:043a\ +\:0430: \>\"", ",", "Bold"}], "]"}], ",", + RowBox[{"Button", "[", + + RowBox[{"\"\<\:0421\:0434\:0435\:043b\:0430\:0442\:044c \:0442\ +\:0430\:0431\:043b\:0438\:0446\:0443 (\:041b\:0438\:043d\:0438\:044f 1)\>\"", + ",", + RowBox[{"Module", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"cell", ",", "pts"}], "}"}], ",", + RowBox[{ + RowBox[{"cell", "=", + RowBox[{"NotebookRead", "[", + RowBox[{"EvaluationNotebook", "[", "]"}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"pts", "=", + RowBox[{"Cases", "[", + RowBox[{"cell", ",", + RowBox[{ + RowBox[{"Line", "[", "p_", "]"}], ":>", "p"}], ",", + "Infinity"}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"If", "[", + RowBox[{ + RowBox[{ + RowBox[{"Length", "[", "pts", "]"}], ">", "0"}], ",", + RowBox[{ + RowBox[{"plotX", "=", + RowBox[{"pts", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"fInterp", "=", + RowBox[{"Interpolation", "[", "plotX", "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"dataX", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"x", ",", + RowBox[{"fInterp", "[", "x", "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30", ",", "1"}], "}"}]}], + "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"SelectionMove", "[", + RowBox[{ + RowBox[{"EvaluationNotebook", "[", "]"}], ",", "After", ",", + "Cell"}], "]"}], ";", "\[IndentingNewLine]", + RowBox[{"CellPrint", "[", + RowBox[{"Cell", "[", + RowBox[{ + RowBox[{"BoxData", "[", + RowBox[{"ToBoxes", "[", + RowBox[{"TableForm", "[", "dataX", "]"}], "]"}], "]"}], + ",", "\"\\""}], "]"}], "]"}]}], ",", + RowBox[{"MessageDialog", "[", + + RowBox[{"\"\<\:041e\:0448\:0438\:0431\:043a\:0430: \:0421\ +\:043d\:0430\:0447\:0430\:043b\:0430 \:0432\:044b\:0434\:0435\:043b\:0438\ +\:0442\:0435 \:043d\:0443\:0436\:043d\:044b\:0439 \:0433\:0440\:0430\:0444\ +\:0438\:043a (\:043a\:043b\:0438\:043a\:043d\:0438\:0442\:0435 \:043f\:043e \ +\:0435\:0433\:043e \:044f\:0447\:0435\:0439\:043a\:0435 \:0441\:043f\:0440\ +\:0430\:0432\:0430)!\>\"", ",", + RowBox[{"WindowFloating", "->", "True"}]}], "]"}]}], + "]"}]}]}], "]"}], ",", + RowBox[{"Background", "->", + RowBox[{"RGBColor", "[", + RowBox[{"0.9", ",", "0.95", ",", "1"}], "]"}]}], ",", + RowBox[{"ImageSize", "->", + RowBox[{"{", + RowBox[{"180", ",", "25"}], "}"}]}]}], "]"}]}], "}"}], "]"}], ",", + RowBox[{"Background", "->", + RowBox[{"GrayLevel", "[", "0.95", "]"}]}], ",", + RowBox[{"FrameMargins", "->", "10"}]}], "]"}], ",", "\"\\""}], + "]"}], "]"}], "\n"}]], "Input", + CellChangeTimes->{{3.9943043996512623`*^9, 3.994304399651291*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"4c6751bd-4fee-47cf-b582-0c40b9e2d2b0"], + +Cell[BoxData[ + PanelBox[ + TemplateBox[{ + StyleBox[ + "\"\:0423\:043f\:0440\:0430\:0432\:043b\:0435\:043d\:0438\:0435 \:043a\ +\:044d\:0448\:0435\:043c \:0433\:0440\:0430\:0444\:0438\:043a\:0430: \"", + Bold, StripOnInput -> False], + ButtonBox[ + "\"\:0421\:0434\:0435\:043b\:0430\:0442\:044c \:0442\:0430\:0431\:043b\ +\:0438\:0446\:0443 (\:041b\:0438\:043d\:0438\:044f 1)\"", ButtonFunction :> + Module[{$CellContext`cell, $CellContext`pts}, $CellContext`cell = + NotebookRead[ + EvaluationNotebook[]]; $CellContext`pts = + Cases[$CellContext`cell, Line[ + Pattern[$CellContext`p, + Blank[]]] :> $CellContext`p, Infinity]; + If[Length[$CellContext`pts] > + 0, $CellContext`plotX = + Part[$CellContext`pts, 1]; $CellContext`fInterp = + Interpolation[$CellContext`plotX]; $CellContext`dataX = + Table[{$CellContext`x, + $CellContext`fInterp[$CellContext`x]}, {$CellContext`x, 0, 30, + 1}]; SelectionMove[ + EvaluationNotebook[], After, Cell]; CellPrint[ + Cell[ + BoxData[ + ToBoxes[ + TableForm[$CellContext`dataX]]], "Output"]], + MessageDialog[ + "\:041e\:0448\:0438\:0431\:043a\:0430: \ +\:0421\:043d\:0430\:0447\:0430\:043b\:0430 \:0432\:044b\:0434\:0435\:043b\ +\:0438\:0442\:0435 \:043d\:0443\:0436\:043d\:044b\:0439 \:0433\:0440\:0430\ +\:0444\:0438\:043a (\:043a\:043b\:0438\:043a\:043d\:0438\:0442\:0435 \:043f\ +\:043e \:0435\:0433\:043e \:044f\:0447\:0435\:0439\:043a\:0435 \:0441\:043f\ +\:0440\:0430\:0432\:0430)!", WindowFloating -> True]]], Background -> + RGBColor[0.9, 0.95, 1], ImageSize -> {180, 25}, Appearance -> Automatic, + Evaluator -> Automatic, Method -> "Preemptive"]}, + "RowDefault"], + Background->GrayLevel[0.95], + FrameMargins->10]], "Output", + CellChangeTimes->{ + 3.994308220998826*^9},ExpressionUUID->"1013ee2e-0ad8-42f7-bb35-\ +160cb8b703ee"], + +Cell[BoxData[ + TagBox[GridBox[{ + {"0", "0.`"}, + {"1", "0.008695957368400127`"}, + {"2", "0.017165470970746277`"}, + {"3", "0.025192139227959973`"}, + {"4", "0.03257815955085828`"}, + {"5", "0.03915330398538992`"}, + {"6", "0.04478033192009904`"}, + {"7", "0.04936050668299805`"}, + {"8", "0.052835168077591`"}, + {"9", "0.05518664929117867`"}, + {"10", "0.056436074616300604`"}, + {"11", "0.056639790485256684`"}, + {"12", "0.05588422402512224`"}, + {"13", "0.05427967378441246`"}, + {"14", "0.051953496286493484`"}, + {"15", "0.049043067054169505`"}, + {"16", "0.0456891317368465`"}, + {"17", "0.042029616170993066`"}, + {"18", "0.03819437898594007`"}, + {"19", "0.03430103118955785`"}, + {"20", "0.030452165590677337`"}, + {"21", "0.026733050153649317`"}, + {"22", "0.023211279817030892`"}, + {"23", "0.019936987525684496`"}, + {"24", "0.016943545222804057`"}, + {"25", "0.014249551934772496`"}, + {"26", "0.01186069578820324`"}, + {"27", "0.009771967434956083`"}, + {"28", "0.007970130166881691`"}, + {"29", "0.006435773407823808`"}, + {"30", "0.005145490485581835`"} + }, + GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[2.0999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + Function[BoxForm`e$, + TableForm[BoxForm`e$]]]], "Output", + CellChangeTimes->{ + 3.994308256507454*^9},ExpressionUUID->"027b232f-9569-4f84-a5bf-\ +99df05333842"] }, Open ]] }, Evaluator->"kernel 1", -WindowSize->{714, 170.25}, -WindowMargins->{{Automatic, 3}, {179.25, Automatic}}, +WindowSize->{1440, 882}, +WindowMargins->{{0, Automatic}, {0, Automatic}}, CellContext->Notebook, ShowCellTags->True, -Magnification:>0.9 Inherited, +Magnification:>1. Inherited, FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"8af74bcb-cc50-f64a-8d83-c4bf7188d038" @@ -16269,690 +16454,697 @@ ExpressionUUID->"8af74bcb-cc50-f64a-8d83-c4bf7188d038" (*CellTagsOutline CellTagsIndex->{ "evaluate for d"->{ - Cell[242844, 5946, 716, 23, 74, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972", + Cell[242844, 5946, 716, 23, 104, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972", CellTags->"evaluate for d"], - Cell[243563, 5971, 828, 13, 57, "Output",ExpressionUUID->"aafdff16-b87f-4129-ae6c-7af3a28459de", + Cell[243563, 5971, 828, 13, 79, "Output",ExpressionUUID->"aafdff16-b87f-4129-ae6c-7af3a28459de", CellTags->"evaluate for d"]} } *) (*CellTagsIndex CellTagsIndex->{ - {"evaluate for d", 680526, 16270} + {"evaluate for d", 688234, 16455} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 979, 15, 26, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], -Cell[1558, 39, 728, 10, 30, "Output",ExpressionUUID->"acb8d615-2d32-45be-90b2-ccadfcb2920d"] +Cell[576, 22, 979, 15, 36, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], +Cell[1558, 39, 728, 10, 41, "Output",ExpressionUUID->"acb8d615-2d32-45be-90b2-ccadfcb2920d"] }, Open ]], Cell[CellGroupData[{ -Cell[2323, 54, 248, 4, 26, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], -Cell[2574, 60, 833, 12, 30, "Output",ExpressionUUID->"11f63d43-d7d3-4af1-a8c3-5802e2ed73fd"] +Cell[2323, 54, 248, 4, 36, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], +Cell[2574, 60, 833, 12, 41, "Output",ExpressionUUID->"11f63d43-d7d3-4af1-a8c3-5802e2ed73fd"] }, Open ]], Cell[CellGroupData[{ -Cell[3444, 77, 228, 4, 26, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], -Cell[3675, 83, 807, 12, 30, "Output",ExpressionUUID->"dd7952fe-0471-445a-ba61-beecab1af315"] +Cell[3444, 77, 228, 4, 36, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], +Cell[3675, 83, 807, 12, 41, "Output",ExpressionUUID->"dd7952fe-0471-445a-ba61-beecab1af315"] }, Open ]], Cell[CellGroupData[{ -Cell[4519, 100, 175, 3, 26, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], -Cell[4697, 105, 801, 12, 30, "Output",ExpressionUUID->"29965db2-02ca-4f11-8af3-5712ba3d4e76"] +Cell[4519, 100, 175, 3, 36, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], +Cell[4697, 105, 801, 12, 41, "Output",ExpressionUUID->"29965db2-02ca-4f11-8af3-5712ba3d4e76"] }, Open ]], Cell[CellGroupData[{ -Cell[5535, 122, 257, 7, 39, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], -Cell[5795, 131, 805, 12, 30, "Output",ExpressionUUID->"aef1f94e-d0c3-4dc7-bd50-6538744abd69"] +Cell[5535, 122, 257, 7, 54, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], +Cell[5795, 131, 805, 12, 41, "Output",ExpressionUUID->"aef1f94e-d0c3-4dc7-bd50-6538744abd69"] }, Open ]], Cell[CellGroupData[{ -Cell[6637, 148, 131, 2, 26, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], -Cell[6771, 152, 808, 12, 30, "Output",ExpressionUUID->"5c5e5166-12fb-4064-8050-e351c6399bef"] +Cell[6637, 148, 131, 2, 36, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], +Cell[6771, 152, 808, 12, 41, "Output",ExpressionUUID->"5c5e5166-12fb-4064-8050-e351c6399bef"] }, Open ]], Cell[CellGroupData[{ -Cell[7616, 169, 276, 6, 26, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], -Cell[7895, 177, 820, 12, 30, "Output",ExpressionUUID->"0ab4e373-b97a-4c98-af12-978d048ecece"] +Cell[7616, 169, 276, 6, 36, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], +Cell[7895, 177, 820, 12, 41, "Output",ExpressionUUID->"0ab4e373-b97a-4c98-af12-978d048ecece"] }, Open ]], Cell[CellGroupData[{ -Cell[8752, 194, 257, 7, 26, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], -Cell[9012, 203, 818, 12, 30, "Output",ExpressionUUID->"00026760-acd6-4467-90e4-a92a2fc2b22e"] +Cell[8752, 194, 257, 7, 36, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], +Cell[9012, 203, 818, 12, 41, "Output",ExpressionUUID->"00026760-acd6-4467-90e4-a92a2fc2b22e"] }, Open ]], Cell[CellGroupData[{ -Cell[9867, 220, 242, 4, 26, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], -Cell[10112, 226, 818, 12, 30, "Output",ExpressionUUID->"590dc27a-e576-4720-88ab-5f80d7cd78d2"] +Cell[9867, 220, 242, 4, 36, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], +Cell[10112, 226, 818, 12, 41, "Output",ExpressionUUID->"590dc27a-e576-4720-88ab-5f80d7cd78d2"] }, Open ]], Cell[CellGroupData[{ -Cell[10967, 243, 245, 4, 26, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], -Cell[11215, 249, 827, 12, 30, "Output",ExpressionUUID->"6bc4e8b5-97ec-4456-955e-11d80fc81846"] +Cell[10967, 243, 245, 4, 36, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], +Cell[11215, 249, 827, 12, 41, "Output",ExpressionUUID->"6bc4e8b5-97ec-4456-955e-11d80fc81846"] }, Open ]], Cell[CellGroupData[{ -Cell[12079, 266, 129, 2, 26, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], -Cell[12211, 270, 812, 12, 30, "Output",ExpressionUUID->"61169ee3-45e4-4b1a-b8fc-06753c39cdb0"] +Cell[12079, 266, 129, 2, 37, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], +Cell[12211, 270, 812, 12, 42, "Output",ExpressionUUID->"61169ee3-45e4-4b1a-b8fc-06753c39cdb0"] }, Open ]], Cell[CellGroupData[{ -Cell[13060, 287, 129, 2, 26, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], -Cell[13192, 291, 803, 12, 30, "Output",ExpressionUUID->"cb59c3ce-8808-4be4-82ef-04f1f271af26"] +Cell[13060, 287, 129, 2, 37, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], +Cell[13192, 291, 803, 12, 42, "Output",ExpressionUUID->"cb59c3ce-8808-4be4-82ef-04f1f271af26"] }, Open ]], Cell[CellGroupData[{ -Cell[14032, 308, 557, 19, 74, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], -Cell[14592, 329, 829, 12, 30, "Output",ExpressionUUID->"47298fc9-5dac-45f5-90d2-398943f2f34f"] +Cell[14032, 308, 557, 19, 102, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], +Cell[14592, 329, 829, 12, 42, "Output",ExpressionUUID->"47298fc9-5dac-45f5-90d2-398943f2f34f"] }, Open ]], Cell[CellGroupData[{ -Cell[15458, 346, 557, 19, 74, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], -Cell[16018, 367, 824, 12, 30, "Output",ExpressionUUID->"16a54adc-212a-40b3-9f79-806b16bd3631"] +Cell[15458, 346, 557, 19, 102, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], +Cell[16018, 367, 824, 12, 42, "Output",ExpressionUUID->"16a54adc-212a-40b3-9f79-806b16bd3631"] }, Open ]], Cell[CellGroupData[{ -Cell[16879, 384, 1492, 48, 75, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], -Cell[18374, 434, 819, 12, 30, "Output",ExpressionUUID->"8685d217-f9ad-4aff-ad03-69fba9a39608"] +Cell[16879, 384, 1492, 48, 104, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], +Cell[18374, 434, 819, 12, 42, "Output",ExpressionUUID->"8685d217-f9ad-4aff-ad03-69fba9a39608"] }, Open ]], Cell[CellGroupData[{ -Cell[19230, 451, 1331, 44, 75, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], -Cell[20564, 497, 834, 13, 30, "Output",ExpressionUUID->"0530d5b9-b067-47c1-8d8f-3efa49f48563"] +Cell[19230, 451, 1331, 44, 104, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], +Cell[20564, 497, 834, 13, 42, "Output",ExpressionUUID->"0530d5b9-b067-47c1-8d8f-3efa49f48563"] }, Open ]], Cell[CellGroupData[{ -Cell[21435, 515, 1331, 44, 75, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], -Cell[22769, 561, 831, 13, 30, "Output",ExpressionUUID->"02041163-1403-4f35-8c6f-e2cd605bb88b"] +Cell[21435, 515, 1331, 44, 104, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], +Cell[22769, 561, 831, 13, 42, "Output",ExpressionUUID->"02041163-1403-4f35-8c6f-e2cd605bb88b"] }, Open ]], Cell[CellGroupData[{ -Cell[23637, 579, 1492, 48, 75, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], -Cell[25132, 629, 816, 12, 30, "Output",ExpressionUUID->"a32e28e5-96cc-4013-a5e7-baccd4467cb9"] +Cell[23637, 579, 1492, 48, 104, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], +Cell[25132, 629, 816, 12, 42, "Output",ExpressionUUID->"a32e28e5-96cc-4013-a5e7-baccd4467cb9"] }, Open ]], Cell[CellGroupData[{ -Cell[25985, 646, 131, 2, 26, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], -Cell[26119, 650, 805, 12, 30, "Output",ExpressionUUID->"5a756a67-0474-4e61-b1cd-086bff401e2a"] +Cell[25985, 646, 131, 2, 37, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], +Cell[26119, 650, 805, 12, 42, "Output",ExpressionUUID->"5a756a67-0474-4e61-b1cd-086bff401e2a"] }, Open ]], Cell[CellGroupData[{ -Cell[26961, 667, 133, 2, 26, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], -Cell[27097, 671, 815, 12, 30, "Output",ExpressionUUID->"ccfae6d3-b756-496c-8998-1289fb4c0e5b"] +Cell[26961, 667, 133, 2, 37, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], +Cell[27097, 671, 815, 12, 42, "Output",ExpressionUUID->"ccfae6d3-b756-496c-8998-1289fb4c0e5b"] }, Open ]], Cell[CellGroupData[{ -Cell[27949, 688, 134, 2, 26, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], -Cell[28086, 692, 812, 12, 30, "Output",ExpressionUUID->"1648507c-09c6-45d1-b87b-4e9628519ce8"] +Cell[27949, 688, 134, 2, 37, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], +Cell[28086, 692, 812, 12, 42, "Output",ExpressionUUID->"1648507c-09c6-45d1-b87b-4e9628519ce8"] }, Open ]], Cell[CellGroupData[{ -Cell[28935, 709, 219, 4, 26, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], -Cell[29157, 715, 825, 13, 30, "Output",ExpressionUUID->"87619020-7528-45ff-a9d0-862bbc0ab126"] +Cell[28935, 709, 219, 4, 37, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], +Cell[29157, 715, 825, 13, 42, "Output",ExpressionUUID->"87619020-7528-45ff-a9d0-862bbc0ab126"] }, Open ]], Cell[CellGroupData[{ -Cell[30019, 733, 134, 2, 26, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], -Cell[30156, 737, 809, 12, 30, "Output",ExpressionUUID->"b0b63fb9-51ed-45d4-8db0-bcfc0c9bb712"] +Cell[30019, 733, 134, 2, 37, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], +Cell[30156, 737, 809, 12, 42, "Output",ExpressionUUID->"b0b63fb9-51ed-45d4-8db0-bcfc0c9bb712"] }, Open ]], Cell[CellGroupData[{ -Cell[31002, 754, 327, 5, 26, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], -Cell[31332, 761, 803, 12, 30, "Output",ExpressionUUID->"5728bd92-9897-4b41-9201-e82cbc85a06f"] +Cell[31002, 754, 327, 5, 37, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], +Cell[31332, 761, 803, 12, 42, "Output",ExpressionUUID->"5728bd92-9897-4b41-9201-e82cbc85a06f"] }, Open ]], Cell[CellGroupData[{ -Cell[32172, 778, 298, 5, 26, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], -Cell[32473, 785, 838, 12, 30, "Output",ExpressionUUID->"6958804d-97e1-4015-8d67-eac1719d075b"] +Cell[32172, 778, 298, 5, 37, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], +Cell[32473, 785, 838, 12, 42, "Output",ExpressionUUID->"6958804d-97e1-4015-8d67-eac1719d075b"] }, Open ]], Cell[CellGroupData[{ -Cell[33348, 802, 219, 4, 26, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], -Cell[33570, 808, 807, 12, 30, "Output",ExpressionUUID->"ea3c89b8-c589-4905-8990-d325646cde72"] +Cell[33348, 802, 219, 4, 37, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], +Cell[33570, 808, 807, 12, 42, "Output",ExpressionUUID->"ea3c89b8-c589-4905-8990-d325646cde72"] }, Open ]], Cell[CellGroupData[{ -Cell[34414, 825, 350, 10, 39, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], -Cell[34767, 837, 826, 12, 30, "Output",ExpressionUUID->"0451444f-ccfa-4e1f-a350-912a9b86e287"] +Cell[34414, 825, 350, 10, 54, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], +Cell[34767, 837, 826, 12, 42, "Output",ExpressionUUID->"0451444f-ccfa-4e1f-a350-912a9b86e287"] }, Open ]], Cell[CellGroupData[{ -Cell[35630, 854, 350, 10, 39, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], -Cell[35983, 866, 839, 13, 30, "Output",ExpressionUUID->"ab6ca25b-dec6-4555-9776-892fc531bb9c"] +Cell[35630, 854, 350, 10, 54, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], +Cell[35983, 866, 839, 13, 42, "Output",ExpressionUUID->"ab6ca25b-dec6-4555-9776-892fc531bb9c"] }, Open ]], Cell[CellGroupData[{ -Cell[36859, 884, 994, 26, 40, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], -Cell[37856, 912, 820, 12, 30, "Output",ExpressionUUID->"9585d1e9-f88e-45e1-b7d3-b697193820e4"] +Cell[36859, 884, 994, 26, 55, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], +Cell[37856, 912, 820, 12, 42, "Output",ExpressionUUID->"9585d1e9-f88e-45e1-b7d3-b697193820e4"] }, Open ]], Cell[CellGroupData[{ -Cell[38713, 929, 199, 3, 26, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], -Cell[38915, 934, 809, 12, 30, "Output",ExpressionUUID->"62aeb77a-0cb8-4829-8580-7fef555d5630"] +Cell[38713, 929, 199, 3, 37, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], +Cell[38915, 934, 809, 12, 42, "Output",ExpressionUUID->"62aeb77a-0cb8-4829-8580-7fef555d5630"] }, Open ]], Cell[CellGroupData[{ -Cell[39761, 951, 334, 5, 26, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], -Cell[40098, 958, 807, 12, 30, "Output",ExpressionUUID->"98a6d365-3802-483a-bf87-a91e29c41fdb"] +Cell[39761, 951, 334, 5, 37, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], +Cell[40098, 958, 807, 12, 42, "Output",ExpressionUUID->"98a6d365-3802-483a-bf87-a91e29c41fdb"] }, Open ]], -Cell[40920, 973, 173, 2, 26, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], +Cell[40920, 973, 173, 2, 37, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], Cell[CellGroupData[{ -Cell[41118, 979, 333, 5, 26, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], -Cell[41454, 986, 807, 12, 30, "Output",ExpressionUUID->"f5c9e92c-ada1-4cb4-a6f0-03689b9ff82f"] +Cell[41118, 979, 333, 5, 37, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], +Cell[41454, 986, 807, 12, 42, "Output",ExpressionUUID->"f5c9e92c-ada1-4cb4-a6f0-03689b9ff82f"] }, Open ]], -Cell[42276, 1001, 173, 2, 26, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], +Cell[42276, 1001, 173, 2, 37, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], Cell[CellGroupData[{ -Cell[42474, 1007, 337, 5, 26, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], -Cell[42814, 1014, 800, 12, 30, "Output",ExpressionUUID->"f9ccb6b8-bcec-45cc-85b5-bb85cd73ab50"] +Cell[42474, 1007, 337, 5, 37, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], +Cell[42814, 1014, 800, 12, 42, "Output",ExpressionUUID->"f9ccb6b8-bcec-45cc-85b5-bb85cd73ab50"] }, Open ]], -Cell[43629, 1029, 173, 2, 26, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], +Cell[43629, 1029, 173, 2, 37, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], Cell[CellGroupData[{ -Cell[43827, 1035, 360, 5, 26, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], -Cell[44190, 1042, 808, 12, 30, "Output",ExpressionUUID->"593b9352-4cd7-4118-87ec-81f6aa3d6167"] +Cell[43827, 1035, 360, 5, 37, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], +Cell[44190, 1042, 808, 12, 42, "Output",ExpressionUUID->"593b9352-4cd7-4118-87ec-81f6aa3d6167"] }, Open ]], -Cell[45013, 1057, 171, 2, 26, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], +Cell[45013, 1057, 171, 2, 37, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], Cell[CellGroupData[{ -Cell[45209, 1063, 307, 5, 26, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], -Cell[45519, 1070, 812, 12, 30, "Output",ExpressionUUID->"f6f24f32-2d65-4f7e-bf15-4c0bc15b1b5d"] +Cell[45209, 1063, 307, 5, 37, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], +Cell[45519, 1070, 812, 12, 42, "Output",ExpressionUUID->"f6f24f32-2d65-4f7e-bf15-4c0bc15b1b5d"] }, Open ]], -Cell[46346, 1085, 171, 2, 26, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], +Cell[46346, 1085, 171, 2, 37, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], Cell[CellGroupData[{ -Cell[46542, 1091, 313, 5, 26, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], -Cell[46858, 1098, 811, 12, 30, "Output",ExpressionUUID->"dd6d8be5-17fb-4fbb-8a72-d62d958298cf"] +Cell[46542, 1091, 313, 5, 37, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], +Cell[46858, 1098, 811, 12, 42, "Output",ExpressionUUID->"dd6d8be5-17fb-4fbb-8a72-d62d958298cf"] }, Open ]], -Cell[47684, 1113, 173, 2, 26, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], +Cell[47684, 1113, 173, 2, 37, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], Cell[CellGroupData[{ -Cell[47882, 1119, 314, 5, 26, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], -Cell[48199, 1126, 806, 12, 30, "Output",ExpressionUUID->"07ad6615-f699-456e-8d3b-d69664a475c2"] +Cell[47882, 1119, 314, 5, 37, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], +Cell[48199, 1126, 806, 12, 42, "Output",ExpressionUUID->"07ad6615-f699-456e-8d3b-d69664a475c2"] }, Open ]], -Cell[49020, 1141, 172, 2, 26, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], +Cell[49020, 1141, 172, 2, 37, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], Cell[CellGroupData[{ -Cell[49217, 1147, 283, 4, 26, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], -Cell[49503, 1153, 806, 12, 30, "Output",ExpressionUUID->"0954795c-9eb3-4da2-be74-b2334971cfa3"] +Cell[49217, 1147, 283, 4, 37, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], +Cell[49503, 1153, 806, 12, 42, "Output",ExpressionUUID->"0954795c-9eb3-4da2-be74-b2334971cfa3"] }, Open ]], -Cell[50324, 1168, 175, 2, 26, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], +Cell[50324, 1168, 175, 2, 37, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ -Cell[50524, 1174, 19809, 485, 839, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], -Cell[70336, 1661, 827, 12, 30, "Output",ExpressionUUID->"c6037475-0ae3-4e0a-9d06-4ebe817ba224"] +Cell[50524, 1174, 19809, 485, 1495, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], +Cell[70336, 1661, 827, 12, 42, "Output",ExpressionUUID->"c6037475-0ae3-4e0a-9d06-4ebe817ba224"] }, Open ]], Cell[CellGroupData[{ -Cell[71200, 1678, 19748, 489, 839, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], -Cell[90951, 2169, 820, 12, 30, "Output",ExpressionUUID->"e71bdfc2-cef3-4070-b80f-d7f1ba3e473a"] +Cell[71200, 1678, 19748, 489, 1543, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], +Cell[90951, 2169, 820, 12, 42, "Output",ExpressionUUID->"e71bdfc2-cef3-4070-b80f-d7f1ba3e473a"] }, Open ]], Cell[CellGroupData[{ -Cell[91808, 2186, 19748, 483, 838, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], -Cell[111559, 2671, 851, 13, 30, "Output",ExpressionUUID->"5a3457d6-5496-4a8e-bb52-5bbcd5a3c507"] +Cell[91808, 2186, 19748, 483, 1496, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], +Cell[111559, 2671, 851, 13, 42, "Output",ExpressionUUID->"5a3457d6-5496-4a8e-bb52-5bbcd5a3c507"] }, Open ]], Cell[CellGroupData[{ -Cell[112447, 2689, 22534, 553, 942, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], -Cell[134984, 3244, 831, 13, 30, "Output",ExpressionUUID->"8aa38237-a49b-41ca-8e4e-4ece19ecf9b9"] +Cell[112447, 2689, 22534, 553, 1689, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], +Cell[134984, 3244, 831, 13, 42, "Output",ExpressionUUID->"8aa38237-a49b-41ca-8e4e-4ece19ecf9b9"] }, Open ]], Cell[CellGroupData[{ -Cell[135852, 3262, 22535, 553, 942, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], -Cell[158390, 3817, 845, 13, 30, "Output",ExpressionUUID->"910327df-af2a-4d04-8f38-cb0acfb4e4e2"] +Cell[135852, 3262, 22535, 553, 1689, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], +Cell[158390, 3817, 845, 13, 42, "Output",ExpressionUUID->"910327df-af2a-4d04-8f38-cb0acfb4e4e2"] }, Open ]], Cell[CellGroupData[{ -Cell[159272, 3835, 25491, 626, 1047, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], -Cell[184766, 4463, 835, 13, 30, "Output",ExpressionUUID->"08fe4da6-b6f4-46e4-8797-75a9c9697566"] +Cell[159272, 3835, 25491, 626, 1854, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], +Cell[184766, 4463, 835, 13, 42, "Output",ExpressionUUID->"08fe4da6-b6f4-46e4-8797-75a9c9697566"] }, Open ]], Cell[CellGroupData[{ -Cell[185638, 4481, 130, 2, 26, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], -Cell[185771, 4485, 805, 12, 30, "Output",ExpressionUUID->"cb0c6e11-afbb-4239-9f28-d42f9a58e901"] +Cell[185638, 4481, 130, 2, 37, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], +Cell[185771, 4485, 805, 12, 42, "Output",ExpressionUUID->"cb0c6e11-afbb-4239-9f28-d42f9a58e901"] }, Open ]], Cell[CellGroupData[{ -Cell[186613, 4502, 130, 2, 26, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], -Cell[186746, 4506, 800, 12, 30, "Output",ExpressionUUID->"b187cd77-f9bf-4a9a-a35f-64bc72883621"] +Cell[186613, 4502, 130, 2, 37, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], +Cell[186746, 4506, 800, 12, 42, "Output",ExpressionUUID->"b187cd77-f9bf-4a9a-a35f-64bc72883621"] }, Open ]], Cell[CellGroupData[{ -Cell[187583, 4523, 1144, 39, 52, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], -Cell[188730, 4564, 829, 12, 30, "Output",ExpressionUUID->"c0383bf5-b279-4cd3-8b58-4862b3ba30a0"] +Cell[187583, 4523, 1144, 39, 72, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], +Cell[188730, 4564, 829, 12, 42, "Output",ExpressionUUID->"c0383bf5-b279-4cd3-8b58-4862b3ba30a0"] }, Open ]], Cell[CellGroupData[{ -Cell[189596, 4581, 1041, 35, 52, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], -Cell[190640, 4618, 834, 13, 30, "Output",ExpressionUUID->"c94099ed-a3cb-41a2-8c90-4d61af29a1a0"] +Cell[189596, 4581, 1041, 35, 72, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], +Cell[190640, 4618, 834, 13, 42, "Output",ExpressionUUID->"c94099ed-a3cb-41a2-8c90-4d61af29a1a0"] }, Open ]], Cell[CellGroupData[{ -Cell[191511, 4636, 1144, 39, 52, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], -Cell[192658, 4677, 823, 12, 30, "Output",ExpressionUUID->"adc5a205-8904-4dc4-8231-8a29c59e3333"] +Cell[191511, 4636, 1144, 39, 72, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], +Cell[192658, 4677, 823, 12, 42, "Output",ExpressionUUID->"adc5a205-8904-4dc4-8231-8a29c59e3333"] }, Open ]], Cell[CellGroupData[{ -Cell[193518, 4694, 108, 1, 26, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], -Cell[193629, 4697, 823, 12, 30, "Output",ExpressionUUID->"6baf363e-15a6-4b80-b38b-e30c61f31cc4"] +Cell[193518, 4694, 108, 1, 37, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], +Cell[193629, 4697, 823, 12, 42, "Output",ExpressionUUID->"6baf363e-15a6-4b80-b38b-e30c61f31cc4"] }, Open ]], Cell[CellGroupData[{ -Cell[194489, 4714, 108, 1, 26, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], -Cell[194600, 4717, 841, 13, 30, "Output",ExpressionUUID->"2219bd39-bd5d-4bae-8a48-9517ef1e622c"] +Cell[194489, 4714, 108, 1, 37, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], +Cell[194600, 4717, 841, 13, 42, "Output",ExpressionUUID->"2219bd39-bd5d-4bae-8a48-9517ef1e622c"] }, Open ]], Cell[CellGroupData[{ -Cell[195478, 4735, 108, 1, 26, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], -Cell[195589, 4738, 836, 13, 30, "Output",ExpressionUUID->"3cbc47b1-03b4-4a15-b620-3f7b685f1d21"] +Cell[195478, 4735, 108, 1, 37, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], +Cell[195589, 4738, 836, 13, 42, "Output",ExpressionUUID->"3cbc47b1-03b4-4a15-b620-3f7b685f1d21"] }, Open ]], Cell[CellGroupData[{ -Cell[196462, 4756, 108, 1, 26, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], -Cell[196573, 4759, 833, 12, 30, "Output",ExpressionUUID->"ae5e375f-aa27-4a63-8a87-53133a6027e4"] +Cell[196462, 4756, 108, 1, 37, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], +Cell[196573, 4759, 833, 12, 42, "Output",ExpressionUUID->"ae5e375f-aa27-4a63-8a87-53133a6027e4"] }, Open ]], Cell[CellGroupData[{ -Cell[197443, 4776, 107, 1, 26, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], -Cell[197553, 4779, 822, 12, 30, "Output",ExpressionUUID->"8b58da2e-9594-40fa-8561-b83ebbe717b0"] +Cell[197443, 4776, 107, 1, 37, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], +Cell[197553, 4779, 822, 12, 41, "Output",ExpressionUUID->"8b58da2e-9594-40fa-8561-b83ebbe717b0"] }, Open ]], Cell[CellGroupData[{ -Cell[198412, 4796, 107, 1, 26, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], -Cell[198522, 4799, 816, 12, 30, "Output",ExpressionUUID->"d28d43c7-46aa-4659-9e6c-b43d3054c70e"] +Cell[198412, 4796, 107, 1, 36, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], +Cell[198522, 4799, 816, 12, 41, "Output",ExpressionUUID->"d28d43c7-46aa-4659-9e6c-b43d3054c70e"] }, Open ]], Cell[CellGroupData[{ -Cell[199375, 4816, 497, 16, 51, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], -Cell[199875, 4834, 838, 13, 30, "Output",ExpressionUUID->"b094f877-ace6-48cc-9c69-7696f2fcfbfb"] +Cell[199375, 4816, 497, 16, 71, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], +Cell[199875, 4834, 838, 13, 41, "Output",ExpressionUUID->"b094f877-ace6-48cc-9c69-7696f2fcfbfb"] }, Open ]], Cell[CellGroupData[{ -Cell[200750, 4852, 497, 16, 51, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], -Cell[201250, 4870, 837, 13, 30, "Output",ExpressionUUID->"c4ba0b97-b0d4-4155-9194-1cc9ffc1be73"] +Cell[200750, 4852, 497, 16, 71, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], +Cell[201250, 4870, 837, 13, 41, "Output",ExpressionUUID->"c4ba0b97-b0d4-4155-9194-1cc9ffc1be73"] }, Open ]], Cell[CellGroupData[{ -Cell[202124, 4888, 1788, 60, 52, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], -Cell[203915, 4950, 821, 12, 30, "Output",ExpressionUUID->"98949ae3-fac0-431c-a6a2-598f7ed33ca3"] +Cell[202124, 4888, 1788, 60, 142, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], +Cell[203915, 4950, 821, 12, 41, "Output",ExpressionUUID->"98949ae3-fac0-431c-a6a2-598f7ed33ca3"] }, Open ]], Cell[CellGroupData[{ -Cell[204773, 4967, 1101, 36, 52, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], -Cell[205877, 5005, 843, 13, 30, "Output",ExpressionUUID->"df281b97-208c-44fe-9600-1c86d7ed57ae"] +Cell[204773, 4967, 1101, 36, 73, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], +Cell[205877, 5005, 843, 13, 41, "Output",ExpressionUUID->"df281b97-208c-44fe-9600-1c86d7ed57ae"] }, Open ]], Cell[CellGroupData[{ -Cell[206757, 5023, 1818, 61, 104, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], -Cell[208578, 5086, 814, 12, 30, "Output",ExpressionUUID->"ed225333-3b69-4687-8ba3-be5166adfd1b"] +Cell[206757, 5023, 1818, 61, 144, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], +Cell[208578, 5086, 814, 12, 41, "Output",ExpressionUUID->"ed225333-3b69-4687-8ba3-be5166adfd1b"] }, Open ]], Cell[CellGroupData[{ -Cell[209429, 5103, 1631, 53, 75, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], -Cell[211063, 5158, 826, 12, 30, "Output",ExpressionUUID->"7e9071b5-476c-4d53-b3c1-f079846984db"] +Cell[209429, 5103, 1631, 53, 101, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], +Cell[211063, 5158, 826, 12, 41, "Output",ExpressionUUID->"7e9071b5-476c-4d53-b3c1-f079846984db"] }, Open ]], Cell[CellGroupData[{ -Cell[211926, 5175, 1631, 53, 75, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], -Cell[213560, 5230, 817, 12, 30, "Output",ExpressionUUID->"bc7a35b8-572d-40b1-9448-03bf169e950e"] +Cell[211926, 5175, 1631, 53, 101, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], +Cell[213560, 5230, 817, 12, 41, "Output",ExpressionUUID->"bc7a35b8-572d-40b1-9448-03bf169e950e"] }, Open ]], Cell[CellGroupData[{ -Cell[214414, 5247, 262, 5, 26, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], -Cell[214679, 5254, 764, 11, 30, "Output",ExpressionUUID->"ab7f8cf9-2911-4d66-a86f-464154e65084"] +Cell[214414, 5247, 262, 5, 36, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], +Cell[214679, 5254, 764, 11, 41, "Output",ExpressionUUID->"ab7f8cf9-2911-4d66-a86f-464154e65084"] }, Open ]], -Cell[215458, 5268, 172, 2, 26, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], +Cell[215458, 5268, 172, 2, 36, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], Cell[CellGroupData[{ -Cell[215655, 5274, 231, 4, 26, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], -Cell[215889, 5280, 760, 11, 30, "Output",ExpressionUUID->"b1df6735-eff6-4379-a0e0-8d573f6421ea"] +Cell[215655, 5274, 231, 4, 36, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], +Cell[215889, 5280, 760, 11, 41, "Output",ExpressionUUID->"b1df6735-eff6-4379-a0e0-8d573f6421ea"] }, Open ]], -Cell[216664, 5294, 173, 2, 26, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], +Cell[216664, 5294, 173, 2, 36, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ -Cell[216862, 5300, 1297, 42, 44, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], -Cell[218162, 5344, 822, 12, 30, "Output",ExpressionUUID->"91494725-f62a-46e4-ab19-0facc06f3a4a"] +Cell[216862, 5300, 1297, 42, 61, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], +Cell[218162, 5344, 822, 12, 41, "Output",ExpressionUUID->"91494725-f62a-46e4-ab19-0facc06f3a4a"] }, Open ]], Cell[CellGroupData[{ -Cell[219021, 5361, 927, 30, 52, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], -Cell[219951, 5393, 825, 12, 30, "Output",ExpressionUUID->"d0162c8b-55cb-4ee2-93bc-e9d0a5c4e6a0"] +Cell[219021, 5361, 927, 30, 73, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], +Cell[219951, 5393, 825, 12, 41, "Output",ExpressionUUID->"d0162c8b-55cb-4ee2-93bc-e9d0a5c4e6a0"] }, Open ]], Cell[CellGroupData[{ -Cell[220813, 5410, 903, 29, 52, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], -Cell[221719, 5441, 822, 12, 30, "Output",ExpressionUUID->"5cd201f0-e6b7-4c39-80db-0d2f9d9718ec"] +Cell[220813, 5410, 903, 29, 73, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], +Cell[221719, 5441, 822, 12, 41, "Output",ExpressionUUID->"5cd201f0-e6b7-4c39-80db-0d2f9d9718ec"] }, Open ]], Cell[CellGroupData[{ -Cell[222578, 5458, 554, 18, 47, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], -Cell[223135, 5478, 1219, 17, 30, "Output",ExpressionUUID->"5c9c4894-0a7d-4eeb-90d6-6e22f4bc685b"] +Cell[222578, 5458, 554, 18, 66, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], +Cell[223135, 5478, 1219, 17, 41, "Output",ExpressionUUID->"5c9c4894-0a7d-4eeb-90d6-6e22f4bc685b"] }, Open ]], Cell[CellGroupData[{ -Cell[224391, 5500, 661, 21, 47, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], -Cell[225055, 5523, 1197, 17, 30, "Output",ExpressionUUID->"e9bd4141-f6d3-480a-8146-63179c4ca3d1"] +Cell[224391, 5500, 661, 21, 66, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], +Cell[225055, 5523, 1197, 17, 41, "Output",ExpressionUUID->"e9bd4141-f6d3-480a-8146-63179c4ca3d1"] }, Open ]], Cell[CellGroupData[{ -Cell[226289, 5545, 166, 4, 51, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], -Cell[226458, 5551, 1224, 17, 30, "Output",ExpressionUUID->"a0919432-ce02-4699-b5cb-872c85232eb5"] +Cell[226289, 5545, 166, 4, 71, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], +Cell[226458, 5551, 1224, 17, 41, "Output",ExpressionUUID->"a0919432-ce02-4699-b5cb-872c85232eb5"] }, Open ]], Cell[CellGroupData[{ -Cell[227719, 5573, 232, 5, 51, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], -Cell[227954, 5580, 1158, 16, 30, "Output",ExpressionUUID->"cd9bb053-51c5-4215-9685-b336d36bcf4b"] +Cell[227719, 5573, 232, 5, 69, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], +Cell[227954, 5580, 1158, 16, 41, "Output",ExpressionUUID->"cd9bb053-51c5-4215-9685-b336d36bcf4b"] }, Open ]], Cell[CellGroupData[{ -Cell[229149, 5601, 219, 5, 40, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], -Cell[229371, 5608, 1198, 17, 30, "Output",ExpressionUUID->"2f88e732-a4ab-4f46-aecf-e0e5192b792c"] +Cell[229149, 5601, 219, 5, 55, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], +Cell[229371, 5608, 1198, 17, 41, "Output",ExpressionUUID->"2f88e732-a4ab-4f46-aecf-e0e5192b792c"] }, Open ]], Cell[CellGroupData[{ -Cell[230606, 5630, 177, 4, 40, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], -Cell[230786, 5636, 1208, 17, 30, "Output",ExpressionUUID->"24fe837d-146e-4acd-8b76-e5b79907d06f"] +Cell[230606, 5630, 177, 4, 55, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], +Cell[230786, 5636, 1208, 17, 41, "Output",ExpressionUUID->"24fe837d-146e-4acd-8b76-e5b79907d06f"] }, Open ]], Cell[CellGroupData[{ -Cell[232031, 5658, 6051, 184, 177, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], -Cell[238085, 5844, 1197, 17, 30, "Output",ExpressionUUID->"10d6172c-b1a9-449f-b14b-ab525a31f032"] +Cell[232031, 5658, 6051, 184, 431, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], +Cell[238085, 5844, 1197, 17, 41, "Output",ExpressionUUID->"10d6172c-b1a9-449f-b14b-ab525a31f032"] }, Open ]], Cell[CellGroupData[{ -Cell[239319, 5866, 364, 8, 38, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], -Cell[239686, 5876, 1236, 18, 44, "Output",ExpressionUUID->"fec69902-e952-4c61-bbf7-b724285172eb"] +Cell[239319, 5866, 364, 8, 53, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], +Cell[239686, 5876, 1236, 18, 61, "Output",ExpressionUUID->"fec69902-e952-4c61-bbf7-b724285172eb"] }, Open ]], -Cell[240937, 5897, 488, 9, 26, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], +Cell[240937, 5897, 488, 9, 36, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ -Cell[241450, 5910, 554, 18, 47, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], -Cell[242007, 5930, 800, 11, 30, "Output",ExpressionUUID->"681f41ee-453d-4beb-a7d4-37929339457a"] +Cell[241450, 5910, 554, 18, 66, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], +Cell[242007, 5930, 800, 11, 41, "Output",ExpressionUUID->"681f41ee-453d-4beb-a7d4-37929339457a"] }, Open ]], Cell[CellGroupData[{ -Cell[242844, 5946, 716, 23, 74, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972", +Cell[242844, 5946, 716, 23, 104, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972", CellTags->"evaluate for d"], -Cell[243563, 5971, 828, 13, 57, "Output",ExpressionUUID->"aafdff16-b87f-4129-ae6c-7af3a28459de", +Cell[243563, 5971, 828, 13, 79, "Output",ExpressionUUID->"aafdff16-b87f-4129-ae6c-7af3a28459de", CellTags->"evaluate for d"] }, Open ]], Cell[CellGroupData[{ -Cell[244428, 5989, 166, 4, 51, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], -Cell[244597, 5995, 434, 6, 30, "Output",ExpressionUUID->"5084d9cc-b000-49e4-95bd-8b96fcde722c"] +Cell[244428, 5989, 166, 4, 71, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], +Cell[244597, 5995, 434, 6, 41, "Output",ExpressionUUID->"5084d9cc-b000-49e4-95bd-8b96fcde722c"] }, Open ]], Cell[CellGroupData[{ -Cell[245068, 6006, 283, 6, 51, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], -Cell[245354, 6014, 433, 6, 30, "Output",ExpressionUUID->"49d14398-9a85-49ab-883a-275351144e10"] +Cell[245068, 6006, 283, 6, 69, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], +Cell[245354, 6014, 433, 6, 41, "Output",ExpressionUUID->"49d14398-9a85-49ab-883a-275351144e10"] }, Open ]], Cell[CellGroupData[{ -Cell[245824, 6025, 177, 4, 40, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], -Cell[246004, 6031, 433, 6, 30, "Output",ExpressionUUID->"c8bcc095-ace5-4b32-9fc4-8b3c2cf3ef18"] +Cell[245824, 6025, 177, 4, 55, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], +Cell[246004, 6031, 433, 6, 41, "Output",ExpressionUUID->"c8bcc095-ace5-4b32-9fc4-8b3c2cf3ef18"] }, Open ]], Cell[CellGroupData[{ -Cell[246474, 6042, 177, 4, 40, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], -Cell[246654, 6048, 433, 6, 30, "Output",ExpressionUUID->"b2c0fd15-fd81-4a66-aabf-d12851e170f9"] +Cell[246474, 6042, 177, 4, 55, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], +Cell[246654, 6048, 433, 6, 41, "Output",ExpressionUUID->"b2c0fd15-fd81-4a66-aabf-d12851e170f9"] }, Open ]], Cell[CellGroupData[{ -Cell[247124, 6059, 6051, 184, 177, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], -Cell[253178, 6245, 443, 6, 30, "Output",ExpressionUUID->"fbe88276-43a5-4620-9aba-6a41b5ca4ee8"] +Cell[247124, 6059, 6051, 184, 431, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], +Cell[253178, 6245, 443, 6, 41, "Output",ExpressionUUID->"fbe88276-43a5-4620-9aba-6a41b5ca4ee8"] }, Open ]], Cell[CellGroupData[{ -Cell[253658, 6256, 406, 9, 53, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], -Cell[254067, 6267, 518, 8, 44, "Output",ExpressionUUID->"8c75b09c-dde1-4275-a5ff-c1709e390500"] +Cell[253658, 6256, 406, 9, 73, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], +Cell[254067, 6267, 518, 8, 61, "Output",ExpressionUUID->"8c75b09c-dde1-4275-a5ff-c1709e390500"] }, Open ]], Cell[CellGroupData[{ -Cell[254622, 6280, 6118, 186, 177, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], -Cell[260743, 6468, 342, 5, 30, "Output",ExpressionUUID->"f68f3a3c-5d0b-4798-93aa-d02cc8861ea2"] +Cell[254622, 6280, 6118, 186, 431, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], +Cell[260743, 6468, 342, 5, 41, "Output",ExpressionUUID->"f68f3a3c-5d0b-4798-93aa-d02cc8861ea2"] }, Open ]], Cell[CellGroupData[{ -Cell[261122, 6478, 383, 9, 38, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], -Cell[261508, 6489, 356, 6, 30, "Output",ExpressionUUID->"9ca47b9a-2d3d-4acf-9650-1fafa34e40f1"] +Cell[261122, 6478, 383, 9, 53, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], +Cell[261508, 6489, 356, 6, 41, "Output",ExpressionUUID->"9ca47b9a-2d3d-4acf-9650-1fafa34e40f1"] }, Open ]], Cell[CellGroupData[{ -Cell[261901, 6500, 2659, 87, 104, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], -Cell[264563, 6589, 288, 4, 30, "Output",ExpressionUUID->"2807222d-61f0-4504-a9d2-b0e5530cc05e"] +Cell[261901, 6500, 2659, 87, 215, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], +Cell[264563, 6589, 288, 4, 41, "Output",ExpressionUUID->"2807222d-61f0-4504-a9d2-b0e5530cc05e"] }, Open ]], Cell[CellGroupData[{ -Cell[264888, 6598, 2599, 84, 104, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], -Cell[267490, 6684, 284, 4, 30, "Output",ExpressionUUID->"650d6d03-9e77-4691-b8f2-9cb418b42ef4"] +Cell[264888, 6598, 2599, 84, 215, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], +Cell[267490, 6684, 284, 4, 41, "Output",ExpressionUUID->"650d6d03-9e77-4691-b8f2-9cb418b42ef4"] }, Open ]], Cell[CellGroupData[{ -Cell[267811, 6693, 3708, 117, 155, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], -Cell[271522, 6812, 287, 4, 30, "Output",ExpressionUUID->"ce612472-6a26-404c-8b47-c609b9cb5c7d"] +Cell[267811, 6693, 3708, 117, 316, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], +Cell[271522, 6812, 287, 4, 41, "Output",ExpressionUUID->"ce612472-6a26-404c-8b47-c609b9cb5c7d"] }, Open ]], -Cell[271824, 6819, 164, 4, 26, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], +Cell[271824, 6819, 164, 4, 36, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ -Cell[272013, 6827, 2075, 59, 90, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], -Cell[274091, 6888, 692, 15, 36, "Message",ExpressionUUID->"7d9e518d-e003-4f78-b423-bff75d578f89"], -Cell[274786, 6905, 696, 15, 36, "Message",ExpressionUUID->"5c23f0a8-b85f-4c93-b012-d904e389f9ba"], -Cell[275485, 6922, 699, 15, 36, "Message",ExpressionUUID->"1a3087ac-03c7-4aef-af7b-f3bd98370d92"], -Cell[276187, 6939, 591, 13, 23, "Message",ExpressionUUID->"dbd1c291-de03-4fa8-a3ce-1211642255a6"], -Cell[276781, 6954, 293, 5, 30, "Output",ExpressionUUID->"a3b4d42d-9bfc-4f76-af76-63e91759da29"] +Cell[272013, 6827, 2075, 59, 116, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], +Cell[274091, 6888, 692, 15, 71, "Message",ExpressionUUID->"7d9e518d-e003-4f78-b423-bff75d578f89"], +Cell[274786, 6905, 696, 15, 71, "Message",ExpressionUUID->"5c23f0a8-b85f-4c93-b012-d904e389f9ba"], +Cell[275485, 6922, 699, 15, 71, "Message",ExpressionUUID->"1a3087ac-03c7-4aef-af7b-f3bd98370d92"], +Cell[276187, 6939, 591, 13, 32, "Message",ExpressionUUID->"dbd1c291-de03-4fa8-a3ce-1211642255a6"], +Cell[276781, 6954, 293, 5, 41, "Output",ExpressionUUID->"a3b4d42d-9bfc-4f76-af76-63e91759da29"] }, Open ]], Cell[CellGroupData[{ -Cell[277111, 6964, 2077, 59, 90, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], -Cell[279191, 7025, 667, 14, 36, "Message",ExpressionUUID->"a2117334-a917-4b62-829e-e34372e89c90"], -Cell[279861, 7041, 671, 14, 36, "Message",ExpressionUUID->"07191a69-e0ff-4cd3-a604-285a6972ee3e"], -Cell[280535, 7057, 674, 14, 36, "Message",ExpressionUUID->"18bfdf92-5709-4cfa-8f6c-d0d4820a99d4"], -Cell[281212, 7073, 568, 12, 23, "Message",ExpressionUUID->"d8ef8d47-c574-4ed4-b2e6-11179b7819a0"], -Cell[281783, 7087, 263, 4, 30, "Output",ExpressionUUID->"3a66de60-7258-4e7d-a32c-526066f71c62"] +Cell[277111, 6964, 2077, 59, 116, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], +Cell[279191, 7025, 667, 14, 71, "Message",ExpressionUUID->"a2117334-a917-4b62-829e-e34372e89c90"], +Cell[279861, 7041, 671, 14, 71, "Message",ExpressionUUID->"07191a69-e0ff-4cd3-a604-285a6972ee3e"], +Cell[280535, 7057, 674, 14, 71, "Message",ExpressionUUID->"18bfdf92-5709-4cfa-8f6c-d0d4820a99d4"], +Cell[281212, 7073, 568, 12, 32, "Message",ExpressionUUID->"d8ef8d47-c574-4ed4-b2e6-11179b7819a0"], +Cell[281783, 7087, 263, 4, 41, "Output",ExpressionUUID->"3a66de60-7258-4e7d-a32c-526066f71c62"] }, Open ]], Cell[CellGroupData[{ -Cell[282083, 7096, 1961, 53, 95, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], -Cell[284047, 7151, 20564, 387, 212, "Output",ExpressionUUID->"f1978f83-fcdf-43bb-975c-4913e1a7bfdc"] +Cell[282083, 7096, 1961, 53, 86, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], +Cell[284047, 7151, 20564, 387, 295, "Output",ExpressionUUID->"f1978f83-fcdf-43bb-975c-4913e1a7bfdc"] }, Open ]], Cell[CellGroupData[{ -Cell[304648, 7543, 2117, 60, 90, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], -Cell[306768, 7605, 537, 12, 36, "Message",ExpressionUUID->"d7a14792-f25b-4fb7-ba33-d78ee5fb6336"], -Cell[307308, 7619, 541, 12, 36, "Message",ExpressionUUID->"02b2b4da-3178-4e10-b14f-68fe35f4f611"], -Cell[307852, 7633, 544, 12, 36, "Message",ExpressionUUID->"cc7a056a-9b68-43a3-912f-f5a2ed74ca16"], -Cell[308399, 7647, 493, 11, 23, "Message",ExpressionUUID->"51013170-4a78-40bf-a290-b3282ce97405"], -Cell[308895, 7660, 21516, 399, 209, "Output",ExpressionUUID->"51789872-084a-4434-8313-6375a091b817"] +Cell[304648, 7543, 2117, 60, 116, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], +Cell[306768, 7605, 537, 12, 48, "Message",ExpressionUUID->"d7a14792-f25b-4fb7-ba33-d78ee5fb6336"], +Cell[307308, 7619, 541, 12, 48, "Message",ExpressionUUID->"02b2b4da-3178-4e10-b14f-68fe35f4f611"], +Cell[307852, 7633, 544, 12, 48, "Message",ExpressionUUID->"cc7a056a-9b68-43a3-912f-f5a2ed74ca16"], +Cell[308399, 7647, 493, 11, 32, "Message",ExpressionUUID->"51013170-4a78-40bf-a290-b3282ce97405"], +Cell[308895, 7660, 21516, 399, 290, "Output",ExpressionUUID->"51789872-084a-4434-8313-6375a091b817"] }, Open ]], Cell[CellGroupData[{ -Cell[330448, 8064, 2478, 70, 139, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], -Cell[332929, 8136, 9498, 223, 215, "Output",ExpressionUUID->"4a16ab23-3783-4e1c-888a-6afe5ae88fea"] +Cell[330448, 8064, 2478, 70, 140, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], +Cell[332929, 8136, 9498, 223, 298, "Output",ExpressionUUID->"4a16ab23-3783-4e1c-888a-6afe5ae88fea"] }, Open ]], Cell[CellGroupData[{ -Cell[342464, 8364, 232, 5, 26, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], -Cell[342699, 8371, 27874, 531, 209, "Output",ExpressionUUID->"dbbf0568-fbf4-47e6-9d29-f09b7977583d"] +Cell[342464, 8364, 232, 5, 36, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], +Cell[342699, 8371, 27874, 531, 290, "Output",ExpressionUUID->"dbbf0568-fbf4-47e6-9d29-f09b7977583d"] }, Open ]], Cell[CellGroupData[{ -Cell[370610, 8907, 237, 7, 44, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], -Cell[370850, 8916, 195, 3, 30, "Output",ExpressionUUID->"28b5111a-e61a-4197-9f36-9ffd94750a3c"] +Cell[370610, 8907, 237, 7, 61, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], +Cell[370850, 8916, 195, 3, 41, "Output",ExpressionUUID->"28b5111a-e61a-4197-9f36-9ffd94750a3c"] }, Open ]], Cell[CellGroupData[{ -Cell[371082, 8924, 1837, 53, 123, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], -Cell[372922, 8979, 546, 12, 36, "Message",ExpressionUUID->"47dd8687-ded9-433e-899a-bfbc2837ce82"], -Cell[373471, 8993, 548, 12, 36, "Message",ExpressionUUID->"7d6a3f67-2edd-4fb5-830a-30b745dd9ea0"], -Cell[374022, 9007, 547, 12, 36, "Message",ExpressionUUID->"dbfff2b6-8f60-49bf-a519-217cc0c586ae"], -Cell[374572, 9021, 495, 11, 23, "Message",ExpressionUUID->"37080254-dda8-4475-8a0f-17a97d06e765"], -Cell[375070, 9034, 22345, 414, 209, "Output",ExpressionUUID->"6b4b0bcb-9e37-44fd-a5c1-072dc46b0e49"] +Cell[371082, 8924, 1837, 53, 116, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], +Cell[372922, 8979, 546, 12, 48, "Message",ExpressionUUID->"47dd8687-ded9-433e-899a-bfbc2837ce82"], +Cell[373471, 8993, 548, 12, 48, "Message",ExpressionUUID->"7d6a3f67-2edd-4fb5-830a-30b745dd9ea0"], +Cell[374022, 9007, 547, 12, 48, "Message",ExpressionUUID->"dbfff2b6-8f60-49bf-a519-217cc0c586ae"], +Cell[374572, 9021, 495, 11, 32, "Message",ExpressionUUID->"37080254-dda8-4475-8a0f-17a97d06e765"], +Cell[375070, 9034, 22345, 414, 290, "Output",ExpressionUUID->"6b4b0bcb-9e37-44fd-a5c1-072dc46b0e49"] }, Open ]], Cell[CellGroupData[{ -Cell[397452, 9453, 1616, 48, 65, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], -Cell[399071, 9503, 620, 13, 73, "Message",ExpressionUUID->"395f0b50-b7d5-4886-a473-a5678a90ed95"], -Cell[399694, 9518, 625, 13, 73, "Message",ExpressionUUID->"4469f26e-2559-45f1-8a37-9f7a6deb1fdd"], -Cell[400322, 9533, 628, 13, 73, "Message",ExpressionUUID->"53f40c78-9e84-4538-aba8-d1d27f4d05ca"], -Cell[400953, 9548, 493, 11, 23, "Message",ExpressionUUID->"0df81271-e817-4cd8-a025-aaa3fcab2435"], -Cell[401449, 9561, 195, 3, 30, "Output",ExpressionUUID->"8859b022-a0f8-4b03-bf0f-64ce1e6f9e9d"] +Cell[397452, 9453, 1616, 48, 86, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], +Cell[399071, 9503, 620, 13, 71, "Message",ExpressionUUID->"395f0b50-b7d5-4886-a473-a5678a90ed95"], +Cell[399694, 9518, 625, 13, 71, "Message",ExpressionUUID->"4469f26e-2559-45f1-8a37-9f7a6deb1fdd"], +Cell[400322, 9533, 628, 13, 71, "Message",ExpressionUUID->"53f40c78-9e84-4538-aba8-d1d27f4d05ca"], +Cell[400953, 9548, 493, 11, 32, "Message",ExpressionUUID->"0df81271-e817-4cd8-a025-aaa3fcab2435"], +Cell[401449, 9561, 195, 3, 41, "Output",ExpressionUUID->"8859b022-a0f8-4b03-bf0f-64ce1e6f9e9d"] }, Open ]], Cell[CellGroupData[{ -Cell[401681, 9569, 2272, 64, 198, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], -Cell[403956, 9635, 596, 13, 75, "Message",ExpressionUUID->"33ca114b-33ab-4c3a-95ca-1454b839b10a"], -Cell[404555, 9650, 599, 13, 59, "Message",ExpressionUUID->"638e8cae-e152-4e99-8501-6ad8063b5bac"], -Cell[405157, 9665, 603, 13, 59, "Message",ExpressionUUID->"89eabdb2-f1b3-4cc5-8dd7-a2284177f499"], -Cell[405763, 9680, 495, 11, 23, "Message",ExpressionUUID->"64f8ebe5-08a6-4815-abfd-ce1db2473eea"], -Cell[406261, 9693, 197, 3, 30, "Output",ExpressionUUID->"9be105b1-c85d-4141-8c76-381ca49a818f"] +Cell[401681, 9569, 2272, 64, 81, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], +Cell[403956, 9635, 596, 13, 71, "Message",ExpressionUUID->"33ca114b-33ab-4c3a-95ca-1454b839b10a"], +Cell[404555, 9650, 599, 13, 71, "Message",ExpressionUUID->"638e8cae-e152-4e99-8501-6ad8063b5bac"], +Cell[405157, 9665, 603, 13, 71, "Message",ExpressionUUID->"89eabdb2-f1b3-4cc5-8dd7-a2284177f499"], +Cell[405763, 9680, 495, 11, 32, "Message",ExpressionUUID->"64f8ebe5-08a6-4815-abfd-ce1db2473eea"], +Cell[406261, 9693, 197, 3, 41, "Output",ExpressionUUID->"9be105b1-c85d-4141-8c76-381ca49a818f"] }, Open ]], Cell[CellGroupData[{ -Cell[406495, 9701, 2233, 63, 140, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], -Cell[408731, 9766, 593, 13, 75, "Message",ExpressionUUID->"679f513a-a576-4dc3-acc6-6d856702b614"], -Cell[409327, 9781, 596, 13, 59, "Message",ExpressionUUID->"229b7ace-cf5f-418e-9da5-1778a3da5171"], -Cell[409926, 9796, 600, 13, 59, "Message",ExpressionUUID->"0ef86041-8015-452a-98cd-a4cc18bf28d5"], -Cell[410529, 9811, 492, 11, 23, "Message",ExpressionUUID->"f78d7dfa-a918-43d2-82a2-d6a5e5a63d6e"], -Cell[411024, 9824, 194, 3, 30, "Output",ExpressionUUID->"4ed8a400-b10b-45b0-9b73-a01094640f34"] +Cell[406495, 9701, 2233, 63, 81, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], +Cell[408731, 9766, 593, 13, 71, "Message",ExpressionUUID->"679f513a-a576-4dc3-acc6-6d856702b614"], +Cell[409327, 9781, 596, 13, 71, "Message",ExpressionUUID->"229b7ace-cf5f-418e-9da5-1778a3da5171"], +Cell[409926, 9796, 600, 13, 71, "Message",ExpressionUUID->"0ef86041-8015-452a-98cd-a4cc18bf28d5"], +Cell[410529, 9811, 492, 11, 32, "Message",ExpressionUUID->"f78d7dfa-a918-43d2-82a2-d6a5e5a63d6e"], +Cell[411024, 9824, 194, 3, 41, "Output",ExpressionUUID->"4ed8a400-b10b-45b0-9b73-a01094640f34"] }, Open ]], Cell[CellGroupData[{ -Cell[411255, 9832, 2235, 63, 140, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], -Cell[413493, 9897, 594, 13, 75, "Message",ExpressionUUID->"8bb30d48-c36d-4623-863c-a7fa80483462"], -Cell[414090, 9912, 600, 13, 59, "Message",ExpressionUUID->"d9e68f7e-5b7e-4297-b4de-4546ce22ec5c"], -Cell[414693, 9927, 603, 13, 59, "Message",ExpressionUUID->"44946a3e-05bd-4802-b3d3-bf4c60dfdc89"], -Cell[415299, 9942, 495, 11, 23, "Message",ExpressionUUID->"758e6155-52da-4973-acc5-cc49ad068da2"], -Cell[415797, 9955, 193, 3, 30, "Output",ExpressionUUID->"3dba417f-1e91-46a8-940c-6d4c7abb9ed6"] +Cell[411255, 9832, 2235, 63, 81, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], +Cell[413493, 9897, 594, 13, 71, "Message",ExpressionUUID->"8bb30d48-c36d-4623-863c-a7fa80483462"], +Cell[414090, 9912, 600, 13, 71, "Message",ExpressionUUID->"d9e68f7e-5b7e-4297-b4de-4546ce22ec5c"], +Cell[414693, 9927, 603, 13, 71, "Message",ExpressionUUID->"44946a3e-05bd-4802-b3d3-bf4c60dfdc89"], +Cell[415299, 9942, 495, 11, 32, "Message",ExpressionUUID->"758e6155-52da-4973-acc5-cc49ad068da2"], +Cell[415797, 9955, 193, 3, 41, "Output",ExpressionUUID->"3dba417f-1e91-46a8-940c-6d4c7abb9ed6"] }, Open ]], Cell[CellGroupData[{ -Cell[416027, 9963, 236, 6, 43, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], -Cell[416266, 9971, 194, 3, 30, "Output",ExpressionUUID->"ff67df1a-0a5a-498f-af2f-63fcb7a043f2"] +Cell[416027, 9963, 236, 6, 60, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], +Cell[416266, 9971, 194, 3, 41, "Output",ExpressionUUID->"ff67df1a-0a5a-498f-af2f-63fcb7a043f2"] }, Open ]], -Cell[416475, 9977, 273, 6, 26, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], +Cell[416475, 9977, 273, 6, 36, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ -Cell[416773, 9987, 558, 19, 47, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], -Cell[417334, 10008, 193, 3, 30, "Output",ExpressionUUID->"279f3db5-e782-4ef9-bc8c-9c2cf316326b"] +Cell[416773, 9987, 558, 19, 66, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], +Cell[417334, 10008, 193, 3, 41, "Output",ExpressionUUID->"279f3db5-e782-4ef9-bc8c-9c2cf316326b"] }, Open ]], Cell[CellGroupData[{ -Cell[417564, 10016, 170, 5, 51, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], -Cell[417737, 10023, 197, 3, 30, "Output",ExpressionUUID->"7d4d5c39-9a3e-4d7c-9afd-a8c81a71619d"] +Cell[417564, 10016, 170, 5, 71, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], +Cell[417737, 10023, 197, 3, 41, "Output",ExpressionUUID->"7d4d5c39-9a3e-4d7c-9afd-a8c81a71619d"] }, Open ]], Cell[CellGroupData[{ -Cell[417971, 10031, 181, 5, 40, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], -Cell[418155, 10038, 197, 3, 30, "Output",ExpressionUUID->"8dc62179-4268-4af6-85b9-2e61345ce5e1"] +Cell[417971, 10031, 181, 5, 55, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], +Cell[418155, 10038, 197, 3, 41, "Output",ExpressionUUID->"8dc62179-4268-4af6-85b9-2e61345ce5e1"] }, Open ]], Cell[CellGroupData[{ -Cell[418389, 10046, 6055, 185, 458, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], -Cell[424447, 10233, 195, 3, 30, "Output",ExpressionUUID->"1ab40c9e-ceb1-42ef-8eb0-7be5b65d6d0f"] +Cell[418389, 10046, 6055, 185, 431, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], +Cell[424447, 10233, 195, 3, 41, "Output",ExpressionUUID->"1ab40c9e-ceb1-42ef-8eb0-7be5b65d6d0f"] }, Open ]], Cell[CellGroupData[{ -Cell[424679, 10241, 368, 9, 38, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], -Cell[425050, 10252, 195, 3, 30, "Output",ExpressionUUID->"3ef47c74-d6f9-4efd-9588-e48261be3a59"] +Cell[424679, 10241, 368, 9, 53, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], +Cell[425050, 10252, 195, 3, 41, "Output",ExpressionUUID->"3ef47c74-d6f9-4efd-9588-e48261be3a59"] }, Open ]], Cell[CellGroupData[{ -Cell[425282, 10260, 6122, 187, 478, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], -Cell[431407, 10449, 197, 3, 30, "Output",ExpressionUUID->"f17d93e6-488e-4729-ade3-aa9c0fc24a81"] +Cell[425282, 10260, 6122, 187, 431, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], +Cell[431407, 10449, 197, 3, 41, "Output",ExpressionUUID->"f17d93e6-488e-4729-ade3-aa9c0fc24a81"] }, Open ]], Cell[CellGroupData[{ -Cell[431641, 10457, 368, 9, 38, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], -Cell[432012, 10468, 192, 3, 30, "Output",ExpressionUUID->"46a44e38-d7bf-4a88-9501-ce364a4d0d53"] +Cell[431641, 10457, 368, 9, 53, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], +Cell[432012, 10468, 192, 3, 41, "Output",ExpressionUUID->"46a44e38-d7bf-4a88-9501-ce364a4d0d53"] }, Open ]], Cell[CellGroupData[{ -Cell[432241, 10476, 2663, 88, 155, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], -Cell[434907, 10566, 196, 3, 30, "Output",ExpressionUUID->"2f9d7d3b-815c-49ce-98a9-505519bab031"] +Cell[432241, 10476, 2663, 88, 215, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], +Cell[434907, 10566, 196, 3, 41, "Output",ExpressionUUID->"2f9d7d3b-815c-49ce-98a9-505519bab031"] }, Open ]], Cell[CellGroupData[{ -Cell[435140, 10574, 2603, 85, 155, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], -Cell[437746, 10661, 193, 3, 30, "Output",ExpressionUUID->"13a35c05-5732-485e-822e-0c8a7e5fcbdc"] +Cell[435140, 10574, 2603, 85, 215, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], +Cell[437746, 10661, 193, 3, 41, "Output",ExpressionUUID->"13a35c05-5732-485e-822e-0c8a7e5fcbdc"] }, Open ]], Cell[CellGroupData[{ -Cell[437976, 10669, 3712, 118, 228, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], -Cell[441691, 10789, 193, 3, 30, "Output",ExpressionUUID->"8e0a3f21-ef38-478b-b2ee-487e7779d460"] +Cell[437976, 10669, 3712, 118, 316, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], +Cell[441691, 10789, 193, 3, 41, "Output",ExpressionUUID->"8e0a3f21-ef38-478b-b2ee-487e7779d460"] }, Open ]], Cell[CellGroupData[{ -Cell[441921, 10797, 2075, 59, 214, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], -Cell[443999, 10858, 590, 13, 53, "Message",ExpressionUUID->"5ff6c828-4112-4a8e-92e5-3b11b394b378"], -Cell[444592, 10873, 594, 13, 53, "Message",ExpressionUUID->"9f294a3a-c6a4-4b33-86a5-14eb958fd4e8"], -Cell[445189, 10888, 596, 13, 75, "Message",ExpressionUUID->"2c8d1e00-3cb6-411a-b49f-8193cf8ad5a6"], -Cell[445788, 10903, 495, 11, 23, "Message",ExpressionUUID->"7201ff84-cdd2-44f5-8a32-cae82729aee4"], -Cell[446286, 10916, 195, 3, 30, "Output",ExpressionUUID->"0e0d25fd-f421-4d53-939b-49ff1293602a"] +Cell[441921, 10797, 2075, 59, 116, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], +Cell[443999, 10858, 590, 13, 48, "Message",ExpressionUUID->"5ff6c828-4112-4a8e-92e5-3b11b394b378"], +Cell[444592, 10873, 594, 13, 71, "Message",ExpressionUUID->"9f294a3a-c6a4-4b33-86a5-14eb958fd4e8"], +Cell[445189, 10888, 596, 13, 71, "Message",ExpressionUUID->"2c8d1e00-3cb6-411a-b49f-8193cf8ad5a6"], +Cell[445788, 10903, 495, 11, 32, "Message",ExpressionUUID->"7201ff84-cdd2-44f5-8a32-cae82729aee4"], +Cell[446286, 10916, 195, 3, 41, "Output",ExpressionUUID->"0e0d25fd-f421-4d53-939b-49ff1293602a"] }, Open ]], Cell[CellGroupData[{ -Cell[446518, 10924, 2077, 59, 214, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], -Cell[448598, 10985, 592, 13, 53, "Message",ExpressionUUID->"fec2ef22-7c6b-436f-a4dd-1c16c9d1c07a"], -Cell[449193, 11000, 594, 13, 53, "Message",ExpressionUUID->"2ea6647d-bfe5-43ab-a5da-a651abbaa2a1"], -Cell[449790, 11015, 596, 13, 75, "Message",ExpressionUUID->"a1893b93-e642-49ff-98bc-4fce17f3f751"], -Cell[450389, 11030, 495, 11, 23, "Message",ExpressionUUID->"2c7a7301-9244-4408-ba0a-fb668038721e"], -Cell[450887, 11043, 192, 3, 30, "Output",ExpressionUUID->"2fe21f48-52d7-4b38-81f2-71ec9193c239"] +Cell[446518, 10924, 2077, 59, 116, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], +Cell[448598, 10985, 592, 13, 48, "Message",ExpressionUUID->"fec2ef22-7c6b-436f-a4dd-1c16c9d1c07a"], +Cell[449193, 11000, 594, 13, 71, "Message",ExpressionUUID->"2ea6647d-bfe5-43ab-a5da-a651abbaa2a1"], +Cell[449790, 11015, 596, 13, 71, "Message",ExpressionUUID->"a1893b93-e642-49ff-98bc-4fce17f3f751"], +Cell[450389, 11030, 495, 11, 32, "Message",ExpressionUUID->"2c7a7301-9244-4408-ba0a-fb668038721e"], +Cell[450887, 11043, 192, 3, 41, "Output",ExpressionUUID->"2fe21f48-52d7-4b38-81f2-71ec9193c239"] }, Open ]], Cell[CellGroupData[{ -Cell[451116, 11051, 2053, 55, 76, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], -Cell[453172, 11108, 20272, 381, 217, "Output",ExpressionUUID->"55e0a170-a158-45ea-a002-c167aec2e635"] +Cell[451116, 11051, 2053, 55, 63, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], +Cell[453172, 11108, 20272, 381, 302, "Output",ExpressionUUID->"55e0a170-a158-45ea-a002-c167aec2e635"] }, Open ]], Cell[CellGroupData[{ -Cell[473481, 11494, 2141, 60, 175, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], -Cell[475625, 11556, 534, 12, 53, "Message",ExpressionUUID->"14cdeb27-3423-4ccc-9d29-349836a8ab11"], -Cell[476162, 11570, 537, 12, 53, "Message",ExpressionUUID->"f7e05102-d738-4fa3-bddb-4d12b5479c52"], -Cell[476702, 11584, 540, 12, 53, "Message",ExpressionUUID->"04ba4eb1-972c-422c-a4a1-f9cb98129bac"], -Cell[477245, 11598, 493, 11, 23, "Message",ExpressionUUID->"6f76f299-8700-42fd-8ede-b63130bfe153"], -Cell[477741, 11611, 22395, 414, 209, "Output",ExpressionUUID->"cbf08135-e0cb-410b-852e-9f86341f7e83"] +Cell[473481, 11494, 2141, 60, 116, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], +Cell[475625, 11556, 534, 12, 48, "Message",ExpressionUUID->"14cdeb27-3423-4ccc-9d29-349836a8ab11"], +Cell[476162, 11570, 537, 12, 48, "Message",ExpressionUUID->"f7e05102-d738-4fa3-bddb-4d12b5479c52"], +Cell[476702, 11584, 540, 12, 48, "Message",ExpressionUUID->"04ba4eb1-972c-422c-a4a1-f9cb98129bac"], +Cell[477245, 11598, 493, 11, 32, "Message",ExpressionUUID->"6f76f299-8700-42fd-8ede-b63130bfe153"], +Cell[477741, 11611, 22395, 414, 290, "Output",ExpressionUUID->"cbf08135-e0cb-410b-852e-9f86341f7e83"] }, Open ]], -Cell[500151, 12028, 200, 4, 26, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], +Cell[500151, 12028, 200, 4, 36, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], Cell[CellGroupData[{ -Cell[500376, 12036, 232, 5, 26, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], -Cell[500611, 12043, 28757, 546, 209, "Output",ExpressionUUID->"51bc800c-817f-47c7-a327-bb03759b8252"] +Cell[500376, 12036, 232, 5, 36, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], +Cell[500611, 12043, 28757, 546, 290, "Output",ExpressionUUID->"51bc800c-817f-47c7-a327-bb03759b8252"] }, Open ]], Cell[CellGroupData[{ -Cell[529405, 12594, 1616, 48, 65, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], -Cell[531024, 12644, 635, 13, 73, "Message",ExpressionUUID->"f9f2568d-7b78-4381-9fce-ab248535fe70"], -Cell[531662, 12659, 638, 13, 73, "Message",ExpressionUUID->"66de02d1-fa60-451c-97de-ce2db4d90c26"], -Cell[532303, 12674, 641, 13, 73, "Message",ExpressionUUID->"a954e8ac-c961-4163-8499-21c061269cf9"], -Cell[532947, 12689, 495, 11, 23, "Message",ExpressionUUID->"8534d717-39e3-4d1e-af5b-8b46cb1f5485"], -Cell[533445, 12702, 193, 3, 30, "Output",ExpressionUUID->"62e3f952-94a4-4261-bd12-3d5f773787f3"] +Cell[529405, 12594, 1616, 48, 86, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], +Cell[531024, 12644, 635, 13, 71, "Message",ExpressionUUID->"f9f2568d-7b78-4381-9fce-ab248535fe70"], +Cell[531662, 12659, 638, 13, 71, "Message",ExpressionUUID->"66de02d1-fa60-451c-97de-ce2db4d90c26"], +Cell[532303, 12674, 641, 13, 71, "Message",ExpressionUUID->"a954e8ac-c961-4163-8499-21c061269cf9"], +Cell[532947, 12689, 495, 11, 32, "Message",ExpressionUUID->"8534d717-39e3-4d1e-af5b-8b46cb1f5485"], +Cell[533445, 12702, 193, 3, 41, "Output",ExpressionUUID->"62e3f952-94a4-4261-bd12-3d5f773787f3"] }, Open ]], Cell[CellGroupData[{ -Cell[533675, 12710, 2270, 64, 198, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], -Cell[535948, 12776, 592, 13, 53, "Message",ExpressionUUID->"9aeb92e4-4d82-43fb-be1b-cca480812bfd"], -Cell[536543, 12791, 594, 13, 53, "Message",ExpressionUUID->"4b7b9469-a3c9-4869-b764-bee719f92274"], -Cell[537140, 12806, 596, 13, 75, "Message",ExpressionUUID->"43e0e9f9-fc81-466d-99a1-84a8722265ad"], -Cell[537739, 12821, 495, 11, 23, "Message",ExpressionUUID->"051e4a00-abed-49b9-8978-5da82cef2017"], -Cell[538237, 12834, 195, 3, 30, "Output",ExpressionUUID->"a327e1ff-6f12-4ad1-aaf3-6a3b07258672"] +Cell[533675, 12710, 2270, 64, 81, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], +Cell[535948, 12776, 592, 13, 48, "Message",ExpressionUUID->"9aeb92e4-4d82-43fb-be1b-cca480812bfd"], +Cell[536543, 12791, 594, 13, 71, "Message",ExpressionUUID->"4b7b9469-a3c9-4869-b764-bee719f92274"], +Cell[537140, 12806, 596, 13, 71, "Message",ExpressionUUID->"43e0e9f9-fc81-466d-99a1-84a8722265ad"], +Cell[537739, 12821, 495, 11, 32, "Message",ExpressionUUID->"051e4a00-abed-49b9-8978-5da82cef2017"], +Cell[538237, 12834, 195, 3, 41, "Output",ExpressionUUID->"a327e1ff-6f12-4ad1-aaf3-6a3b07258672"] }, Open ]], Cell[CellGroupData[{ -Cell[538469, 12842, 2233, 63, 140, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], -Cell[540705, 12907, 587, 13, 53, "Message",ExpressionUUID->"ae37e26f-cde6-47d8-b22e-8c580a1736f5"], -Cell[541295, 12922, 592, 13, 53, "Message",ExpressionUUID->"2f04021e-438c-40ae-87e4-2420d36ab5c2"], -Cell[541890, 12937, 594, 13, 75, "Message",ExpressionUUID->"62860a5f-e862-4c41-bd0e-eb8c48d9f600"], -Cell[542487, 12952, 493, 11, 23, "Message",ExpressionUUID->"32f2cb68-3d5d-4be7-ba4b-a9297850f810"], -Cell[542983, 12965, 196, 3, 30, "Output",ExpressionUUID->"37446545-e465-43c0-8651-f89254b61cb4"] +Cell[538469, 12842, 2233, 63, 81, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], +Cell[540705, 12907, 587, 13, 48, "Message",ExpressionUUID->"ae37e26f-cde6-47d8-b22e-8c580a1736f5"], +Cell[541295, 12922, 592, 13, 71, "Message",ExpressionUUID->"2f04021e-438c-40ae-87e4-2420d36ab5c2"], +Cell[541890, 12937, 594, 13, 71, "Message",ExpressionUUID->"62860a5f-e862-4c41-bd0e-eb8c48d9f600"], +Cell[542487, 12952, 493, 11, 32, "Message",ExpressionUUID->"32f2cb68-3d5d-4be7-ba4b-a9297850f810"], +Cell[542983, 12965, 196, 3, 41, "Output",ExpressionUUID->"37446545-e465-43c0-8651-f89254b61cb4"] }, Open ]], Cell[CellGroupData[{ -Cell[543216, 12973, 2233, 63, 140, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], -Cell[545452, 13038, 588, 13, 53, "Message",ExpressionUUID->"29f6e2d6-843b-49f2-8ec8-3561963582ef"], -Cell[546043, 13053, 596, 13, 53, "Message",ExpressionUUID->"69cbb3dc-57c2-4770-9243-b6f52f5a09c8"], -Cell[546642, 13068, 596, 13, 75, "Message",ExpressionUUID->"144d74b8-dcc9-440c-80af-f99e6890e802"], -Cell[547241, 13083, 495, 11, 23, "Message",ExpressionUUID->"77f3ef94-790d-493b-aafa-d6456c98a5cf"], -Cell[547739, 13096, 193, 3, 30, "Output",ExpressionUUID->"6f2b0508-d84d-4636-9e48-f8cf3d22d56e"] +Cell[543216, 12973, 2233, 63, 81, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], +Cell[545452, 13038, 588, 13, 48, "Message",ExpressionUUID->"29f6e2d6-843b-49f2-8ec8-3561963582ef"], +Cell[546043, 13053, 596, 13, 71, "Message",ExpressionUUID->"69cbb3dc-57c2-4770-9243-b6f52f5a09c8"], +Cell[546642, 13068, 596, 13, 71, "Message",ExpressionUUID->"144d74b8-dcc9-440c-80af-f99e6890e802"], +Cell[547241, 13083, 495, 11, 32, "Message",ExpressionUUID->"77f3ef94-790d-493b-aafa-d6456c98a5cf"], +Cell[547739, 13096, 193, 3, 41, "Output",ExpressionUUID->"6f2b0508-d84d-4636-9e48-f8cf3d22d56e"] }, Open ]], Cell[CellGroupData[{ -Cell[547969, 13104, 236, 6, 43, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], -Cell[548208, 13112, 194, 3, 30, "Output",ExpressionUUID->"c2166dae-8bee-4ddb-b65c-70893dd09821"] +Cell[547969, 13104, 236, 6, 60, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], +Cell[548208, 13112, 194, 3, 41, "Output",ExpressionUUID->"c2166dae-8bee-4ddb-b65c-70893dd09821"] }, Open ]], -Cell[548417, 13118, 271, 6, 26, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], +Cell[548417, 13118, 271, 6, 36, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ -Cell[548713, 13128, 558, 19, 47, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], -Cell[549274, 13149, 195, 3, 30, "Output",ExpressionUUID->"2972fe0d-f12c-4fd9-be94-e7d4ceddb6e9"] +Cell[548713, 13128, 558, 19, 66, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], +Cell[549274, 13149, 195, 3, 41, "Output",ExpressionUUID->"2972fe0d-f12c-4fd9-be94-e7d4ceddb6e9"] }, Open ]], Cell[CellGroupData[{ -Cell[549506, 13157, 170, 5, 51, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], -Cell[549679, 13164, 192, 3, 30, "Output",ExpressionUUID->"0540d8cc-d612-4575-a603-43b4e11ddb80"] +Cell[549506, 13157, 170, 5, 71, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], +Cell[549679, 13164, 192, 3, 41, "Output",ExpressionUUID->"0540d8cc-d612-4575-a603-43b4e11ddb80"] }, Open ]], Cell[CellGroupData[{ -Cell[549908, 13172, 181, 5, 40, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], -Cell[550092, 13179, 196, 3, 30, "Output",ExpressionUUID->"39662ea8-c7a1-4bfc-aeb3-42b3d7658241"] +Cell[549908, 13172, 181, 5, 55, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], +Cell[550092, 13179, 196, 3, 41, "Output",ExpressionUUID->"39662ea8-c7a1-4bfc-aeb3-42b3d7658241"] }, Open ]], Cell[CellGroupData[{ -Cell[550325, 13187, 6055, 185, 458, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], -Cell[556383, 13374, 197, 3, 30, "Output",ExpressionUUID->"f968a21f-5c22-4beb-b92f-1f869da5638a"] +Cell[550325, 13187, 6055, 185, 431, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], +Cell[556383, 13374, 197, 3, 41, "Output",ExpressionUUID->"f968a21f-5c22-4beb-b92f-1f869da5638a"] }, Open ]], Cell[CellGroupData[{ -Cell[556617, 13382, 368, 9, 38, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], -Cell[556988, 13393, 193, 3, 30, "Output",ExpressionUUID->"81cb0045-73c2-4b31-ad0b-a04478766e0b"] +Cell[556617, 13382, 368, 9, 53, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], +Cell[556988, 13393, 193, 3, 41, "Output",ExpressionUUID->"81cb0045-73c2-4b31-ad0b-a04478766e0b"] }, Open ]], Cell[CellGroupData[{ -Cell[557218, 13401, 6122, 187, 478, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], -Cell[563343, 13590, 196, 3, 30, "Output",ExpressionUUID->"045dd38e-8e5d-498c-be43-612eb8d28851"] +Cell[557218, 13401, 6122, 187, 431, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], +Cell[563343, 13590, 196, 3, 41, "Output",ExpressionUUID->"045dd38e-8e5d-498c-be43-612eb8d28851"] }, Open ]], Cell[CellGroupData[{ -Cell[563576, 13598, 368, 9, 38, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], -Cell[563947, 13609, 194, 3, 30, "Output",ExpressionUUID->"20bc5ffc-f14c-4434-b48c-4693e2320888"] +Cell[563576, 13598, 368, 9, 53, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], +Cell[563947, 13609, 194, 3, 41, "Output",ExpressionUUID->"20bc5ffc-f14c-4434-b48c-4693e2320888"] }, Open ]], Cell[CellGroupData[{ -Cell[564178, 13617, 2663, 88, 155, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], -Cell[566844, 13707, 198, 3, 30, "Output",ExpressionUUID->"45f1d622-26bf-44d1-960d-0870456e1ef9"] +Cell[564178, 13617, 2663, 88, 215, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], +Cell[566844, 13707, 198, 3, 41, "Output",ExpressionUUID->"45f1d622-26bf-44d1-960d-0870456e1ef9"] }, Open ]], Cell[CellGroupData[{ -Cell[567079, 13715, 2603, 85, 155, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], -Cell[569685, 13802, 193, 3, 30, "Output",ExpressionUUID->"359bb0ec-1bac-4833-854a-3b5bba27c11f"] +Cell[567079, 13715, 2603, 85, 215, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], +Cell[569685, 13802, 193, 3, 41, "Output",ExpressionUUID->"359bb0ec-1bac-4833-854a-3b5bba27c11f"] }, Open ]], Cell[CellGroupData[{ -Cell[569915, 13810, 3712, 118, 228, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], -Cell[573630, 13930, 193, 3, 30, "Output",ExpressionUUID->"9b3c80b3-158d-4d89-b1da-09db32e3cf13"] +Cell[569915, 13810, 3712, 118, 316, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], +Cell[573630, 13930, 193, 3, 41, "Output",ExpressionUUID->"9b3c80b3-158d-4d89-b1da-09db32e3cf13"] }, Open ]], Cell[CellGroupData[{ -Cell[573860, 13938, 2075, 59, 214, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], -Cell[575938, 13999, 590, 13, 53, "Message",ExpressionUUID->"90b1978e-c389-4276-a7b3-dd8b5a660454"], -Cell[576531, 14014, 596, 13, 53, "Message",ExpressionUUID->"ddf3be70-c982-41d3-8715-c01008445436"], -Cell[577130, 14029, 598, 13, 75, "Message",ExpressionUUID->"5456d2ff-001b-4af2-aa20-b315098423a5"], -Cell[577731, 14044, 495, 11, 23, "Message",ExpressionUUID->"1ad41e45-cce7-49d9-a36a-e2dce1dcdda7"], -Cell[578229, 14057, 195, 3, 30, "Output",ExpressionUUID->"9c5a8a54-1694-45e4-aed9-6b5283b1c02a"] +Cell[573860, 13938, 2075, 59, 116, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], +Cell[575938, 13999, 590, 13, 48, "Message",ExpressionUUID->"90b1978e-c389-4276-a7b3-dd8b5a660454"], +Cell[576531, 14014, 596, 13, 71, "Message",ExpressionUUID->"ddf3be70-c982-41d3-8715-c01008445436"], +Cell[577130, 14029, 598, 13, 71, "Message",ExpressionUUID->"5456d2ff-001b-4af2-aa20-b315098423a5"], +Cell[577731, 14044, 495, 11, 32, "Message",ExpressionUUID->"1ad41e45-cce7-49d9-a36a-e2dce1dcdda7"], +Cell[578229, 14057, 195, 3, 41, "Output",ExpressionUUID->"9c5a8a54-1694-45e4-aed9-6b5283b1c02a"] }, Open ]], Cell[CellGroupData[{ -Cell[578461, 14065, 2077, 59, 214, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], -Cell[580541, 14126, 590, 13, 53, "Message",ExpressionUUID->"d7f8d528-17c2-481a-81a8-3409dce3b91d"], -Cell[581134, 14141, 596, 13, 53, "Message",ExpressionUUID->"8865c826-5939-47b9-83d1-1d0d9a7c30f6"], -Cell[581733, 14156, 596, 13, 75, "Message",ExpressionUUID->"84286ab2-2751-4fa0-ac88-b09fe5899b9e"], -Cell[582332, 14171, 495, 11, 23, "Message",ExpressionUUID->"2f3197a0-b880-47fc-b217-8b8dda949953"], -Cell[582830, 14184, 194, 3, 30, "Output",ExpressionUUID->"1bfb2363-eedc-4063-b834-bd6585076bb6"] +Cell[578461, 14065, 2077, 59, 116, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], +Cell[580541, 14126, 590, 13, 48, "Message",ExpressionUUID->"d7f8d528-17c2-481a-81a8-3409dce3b91d"], +Cell[581134, 14141, 596, 13, 71, "Message",ExpressionUUID->"8865c826-5939-47b9-83d1-1d0d9a7c30f6"], +Cell[581733, 14156, 596, 13, 71, "Message",ExpressionUUID->"84286ab2-2751-4fa0-ac88-b09fe5899b9e"], +Cell[582332, 14171, 495, 11, 32, "Message",ExpressionUUID->"2f3197a0-b880-47fc-b217-8b8dda949953"], +Cell[582830, 14184, 194, 3, 41, "Output",ExpressionUUID->"1bfb2363-eedc-4063-b834-bd6585076bb6"] }, Open ]], Cell[CellGroupData[{ -Cell[583061, 14192, 2053, 55, 76, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], -Cell[585117, 14249, 20311, 383, 212, "Output",ExpressionUUID->"8ab8c57b-aa6e-4c8f-8174-841641b9cb85"] +Cell[583061, 14192, 2053, 55, 63, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], +Cell[585117, 14249, 20311, 383, 295, "Output",ExpressionUUID->"8ab8c57b-aa6e-4c8f-8174-841641b9cb85"] }, Open ]], Cell[CellGroupData[{ -Cell[605465, 14637, 2141, 60, 175, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], -Cell[607609, 14699, 537, 12, 53, "Message",ExpressionUUID->"96c30f0f-020b-4831-949f-2685d3bad931"], -Cell[608149, 14713, 536, 12, 53, "Message",ExpressionUUID->"0e875ead-4152-48c1-8cde-998f32dac73b"], -Cell[608688, 14727, 542, 12, 53, "Message",ExpressionUUID->"67379e05-9ef5-42d2-a913-1785546a20eb"], -Cell[609233, 14741, 493, 11, 23, "Message",ExpressionUUID->"300004e3-900d-4f52-9ad7-9c5461094ae2"], -Cell[609729, 14754, 22232, 411, 209, "Output",ExpressionUUID->"54805415-da40-4d8b-839c-e5926471a425"] +Cell[605465, 14637, 2141, 60, 116, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], +Cell[607609, 14699, 537, 12, 48, "Message",ExpressionUUID->"96c30f0f-020b-4831-949f-2685d3bad931"], +Cell[608149, 14713, 536, 12, 48, "Message",ExpressionUUID->"0e875ead-4152-48c1-8cde-998f32dac73b"], +Cell[608688, 14727, 542, 12, 48, "Message",ExpressionUUID->"67379e05-9ef5-42d2-a913-1785546a20eb"], +Cell[609233, 14741, 493, 11, 32, "Message",ExpressionUUID->"300004e3-900d-4f52-9ad7-9c5461094ae2"], +Cell[609729, 14754, 22232, 411, 290, "Output",ExpressionUUID->"54805415-da40-4d8b-839c-e5926471a425"] }, Open ]], -Cell[631976, 15168, 207, 4, 26, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], +Cell[631976, 15168, 207, 4, 36, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], Cell[CellGroupData[{ -Cell[632208, 15176, 230, 5, 26, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], -Cell[632441, 15183, 28594, 543, 209, "Output",ExpressionUUID->"ec82d0b8-2f20-43f0-a90a-4d5acfc047c3"] +Cell[632208, 15176, 230, 5, 36, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], +Cell[632441, 15183, 28594, 543, 290, "Output",ExpressionUUID->"ec82d0b8-2f20-43f0-a90a-4d5acfc047c3"] }, Open ]], Cell[CellGroupData[{ -Cell[661072, 15731, 1616, 48, 65, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], -Cell[662691, 15781, 632, 13, 73, "Message",ExpressionUUID->"33160563-3003-4e26-9fa6-e248a504907e"], -Cell[663326, 15796, 637, 13, 73, "Message",ExpressionUUID->"d31d5e15-140e-4790-87e5-68a04a19a1b7"], -Cell[663966, 15811, 639, 13, 73, "Message",ExpressionUUID->"19b1304c-c1f8-4af0-8b84-4caf46d3c9fc"], -Cell[664608, 15826, 495, 11, 23, "Message",ExpressionUUID->"d273d561-8853-4fcc-a5a4-44de7d2837d7"], -Cell[665106, 15839, 193, 3, 30, "Output",ExpressionUUID->"4a06a9cb-c439-4dc6-aa08-b9d9b791ff1e"] +Cell[661072, 15731, 1616, 48, 86, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], +Cell[662691, 15781, 632, 13, 71, "Message",ExpressionUUID->"33160563-3003-4e26-9fa6-e248a504907e"], +Cell[663326, 15796, 637, 13, 71, "Message",ExpressionUUID->"d31d5e15-140e-4790-87e5-68a04a19a1b7"], +Cell[663966, 15811, 639, 13, 71, "Message",ExpressionUUID->"19b1304c-c1f8-4af0-8b84-4caf46d3c9fc"], +Cell[664608, 15826, 495, 11, 32, "Message",ExpressionUUID->"d273d561-8853-4fcc-a5a4-44de7d2837d7"], +Cell[665106, 15839, 193, 3, 41, "Output",ExpressionUUID->"4a06a9cb-c439-4dc6-aa08-b9d9b791ff1e"] }, Open ]], Cell[CellGroupData[{ -Cell[665336, 15847, 2269, 64, 198, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], -Cell[667608, 15913, 588, 13, 53, "Message",ExpressionUUID->"b8e281d6-464c-4c2d-b3aa-4119e4f8a3fb"], -Cell[668199, 15928, 594, 13, 53, "Message",ExpressionUUID->"0574cb3b-fdbb-4c66-a440-4c94192b6ab3"], -Cell[668796, 15943, 594, 13, 75, "Message",ExpressionUUID->"8355ce5e-40f0-4eae-bfb8-c7d65dd8858d"], -Cell[669393, 15958, 493, 11, 23, "Message",ExpressionUUID->"76d0ca2f-6870-4b18-be6c-1b71ae9dfdfe"], -Cell[669889, 15971, 193, 3, 30, "Output",ExpressionUUID->"41c5c4f7-7cee-45ce-a2c4-bda6bf8486b1"] +Cell[665336, 15847, 2269, 64, 81, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], +Cell[667608, 15913, 588, 13, 48, "Message",ExpressionUUID->"b8e281d6-464c-4c2d-b3aa-4119e4f8a3fb"], +Cell[668199, 15928, 594, 13, 71, "Message",ExpressionUUID->"0574cb3b-fdbb-4c66-a440-4c94192b6ab3"], +Cell[668796, 15943, 594, 13, 71, "Message",ExpressionUUID->"8355ce5e-40f0-4eae-bfb8-c7d65dd8858d"], +Cell[669393, 15958, 493, 11, 32, "Message",ExpressionUUID->"76d0ca2f-6870-4b18-be6c-1b71ae9dfdfe"], +Cell[669889, 15971, 193, 3, 41, "Output",ExpressionUUID->"41c5c4f7-7cee-45ce-a2c4-bda6bf8486b1"] }, Open ]], Cell[CellGroupData[{ -Cell[670119, 15979, 2233, 63, 140, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], -Cell[672355, 16044, 590, 13, 53, "Message",ExpressionUUID->"7cf5e9e7-860b-4df2-918d-2a2d79475e43"], -Cell[672948, 16059, 594, 13, 53, "Message",ExpressionUUID->"012e2d40-a9e9-4efd-848b-783b1be42f70"], -Cell[673545, 16074, 596, 13, 75, "Message",ExpressionUUID->"53a889b7-617c-40cb-81f0-9b0d0b9d9722"], -Cell[674144, 16089, 496, 11, 23, "Message",ExpressionUUID->"ea3c07a6-204f-4876-8ed3-a1cc1c968918"], -Cell[674643, 16102, 195, 3, 30, "Output",ExpressionUUID->"1aa863d0-db6e-4576-b2d8-6dd18b19ae49"] +Cell[670119, 15979, 2233, 63, 81, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], +Cell[672355, 16044, 590, 13, 48, "Message",ExpressionUUID->"7cf5e9e7-860b-4df2-918d-2a2d79475e43"], +Cell[672948, 16059, 594, 13, 71, "Message",ExpressionUUID->"012e2d40-a9e9-4efd-848b-783b1be42f70"], +Cell[673545, 16074, 596, 13, 71, "Message",ExpressionUUID->"53a889b7-617c-40cb-81f0-9b0d0b9d9722"], +Cell[674144, 16089, 496, 11, 32, "Message",ExpressionUUID->"ea3c07a6-204f-4876-8ed3-a1cc1c968918"], +Cell[674643, 16102, 195, 3, 41, "Output",ExpressionUUID->"1aa863d0-db6e-4576-b2d8-6dd18b19ae49"] }, Open ]], Cell[CellGroupData[{ -Cell[674875, 16110, 2235, 63, 140, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], -Cell[677113, 16175, 589, 13, 53, "Message",ExpressionUUID->"b14df68f-6c2c-4681-a5b5-2a327e10a04f"], -Cell[677705, 16190, 593, 13, 53, "Message",ExpressionUUID->"7105fd37-866e-4a2b-89e5-c804313f7aad"], -Cell[678301, 16205, 595, 13, 75, "Message",ExpressionUUID->"bf2b31be-9393-4740-8702-c01b1c6a5c83"], -Cell[678899, 16220, 494, 11, 23, "Message",ExpressionUUID->"4efe9378-cc57-487c-b5f6-d869ad89f636"], -Cell[679396, 16233, 194, 3, 30, "Output",ExpressionUUID->"1fe7ecbd-88c1-4357-a1d7-ada51780c7cf"] +Cell[674875, 16110, 2235, 63, 81, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], +Cell[677113, 16175, 589, 13, 48, "Message",ExpressionUUID->"b14df68f-6c2c-4681-a5b5-2a327e10a04f"], +Cell[677705, 16190, 593, 13, 71, "Message",ExpressionUUID->"7105fd37-866e-4a2b-89e5-c804313f7aad"], +Cell[678301, 16205, 595, 13, 53, "Message",ExpressionUUID->"bf2b31be-9393-4740-8702-c01b1c6a5c83"], +Cell[678899, 16220, 494, 11, 32, "Message",ExpressionUUID->"4efe9378-cc57-487c-b5f6-d869ad89f636"], +Cell[679396, 16233, 194, 3, 41, "Output",ExpressionUUID->"1fe7ecbd-88c1-4357-a1d7-ada51780c7cf"] }, Open ]], Cell[CellGroupData[{ -Cell[679627, 16241, 234, 6, 43, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], -Cell[679864, 16249, 199, 3, 30, "Output",ExpressionUUID->"467871ae-163b-4880-ade2-6002c7fe0a60"] +Cell[679627, 16241, 234, 6, 60, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], +Cell[679864, 16249, 199, 3, 41, "Output",ExpressionUUID->"467871ae-163b-4880-ade2-6002c7fe0a60"] +}, Open ]], +Cell[CellGroupData[{ +Cell[680100, 16257, 4091, 88, 373, "Input",ExpressionUUID->"4c6751bd-4fee-47cf-b582-0c40b9e2d2b0"], +Cell[684194, 16347, 1975, 42, 81, "Output",ExpressionUUID->"1013ee2e-0ad8-42f7-bb35-160cb8b703ee"], +Cell[686172, 16391, 1607, 46, 704, "Output",ExpressionUUID->"027b232f-9569-4f84-a5bf-99df05333842"] }, Open ]] } ] *) +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_фитирование.nb b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_фитирование.nb.old similarity index 100% rename from Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_фитирование.nb rename to Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_фитирование.nb.old diff --git a/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_gid_Qw1.nb b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_gid_Qw1.nb index 218cb82..7930fba 100755 --- a/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_gid_Qw1.nb +++ b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_gid_Qw1.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 597858, 14548] -NotebookOptionsPosition[ 558611, 13925] -NotebookOutlinePosition[ 559016, 13942] -CellTagsIndexPosition[ 558973, 13939] +NotebookDataLength[ 678963, 16146] +NotebookOptionsPosition[ 638389, 15498] +NotebookOutlinePosition[ 638800, 15515] +CellTagsIndexPosition[ 638757, 15512] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -25,15 +25,14 @@ Cell[BoxData[ CellChangeTimes->{ 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, 3.9920650045886707`*^9, {3.9940727514461927`*^9, 3.994072775295883*^9}}, - CellLabel-> - "In[104]:=",ExpressionUUID->"4e298ab4-090c-4da0-aea5-ba6d78ef8e18"], + CellLabel->"In[1]:=",ExpressionUUID->"4e298ab4-090c-4da0-aea5-ba6d78ef8e18"], Cell[BoxData["1.6`"], "Output", CellChangeTimes->{ 3.991320420900818*^9, 3.99379974700918*^9, 3.993800338579624*^9, - 3.9938003856877937`*^9, {3.994072756527327*^9, 3.9940727765701942`*^9}}, - CellLabel-> - "Out[104]=",ExpressionUUID->"206d68b1-3695-4924-94b0-a87f9934c78a"] + 3.9938003856877937`*^9, {3.994072756527327*^9, 3.9940727765701942`*^9}, + 3.994250043927586*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"c3b7d690-d5db-4607-b604-6d54e82e5e70"] }, Open ]], Cell[CellGroupData[{ @@ -42,15 +41,14 @@ Cell[BoxData[ RowBox[{"A", "=", "240"}]], "Input", CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { 3.993799082059058*^9, 3.9937990826790457`*^9}}, - CellLabel-> - "In[105]:=",ExpressionUUID->"6473ec2b-5591-4c73-a87a-9b64a1694141"], + CellLabel->"In[2]:=",ExpressionUUID->"6473ec2b-5591-4c73-a87a-9b64a1694141"], Cell[BoxData["240"], "Output", CellChangeTimes->{ 3.9913196497381973`*^9, 3.993799747282215*^9, 3.99380033885446*^9, - 3.993800385764146*^9, {3.994072756590721*^9, 3.994072776647262*^9}}, - CellLabel-> - "Out[105]=",ExpressionUUID->"9cce42cf-8587-43ae-9123-b20b284a241b"] + 3.993800385764146*^9, {3.994072756590721*^9, 3.994072776647262*^9}, + 3.994250044168776*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"be3ea8ea-8a35-411c-9700-3704be202878"] }, Open ]], Cell[CellGroupData[{ @@ -59,15 +57,14 @@ Cell[BoxData[ RowBox[{"A1", "=", " ", "176"}]], "Input", CellChangeTimes->{ 3.991798961431202*^9, {3.993799246718399*^9, 3.993799247496731*^9}}, - CellLabel-> - "In[106]:=",ExpressionUUID->"7d63cd37-a18c-48ac-9ac3-e8b477df1af9"], + CellLabel->"In[3]:=",ExpressionUUID->"7d63cd37-a18c-48ac-9ac3-e8b477df1af9"], Cell[BoxData["176"], "Output", CellChangeTimes->{ 3.9913196497578354`*^9, 3.993799747300477*^9, 3.993800338871715*^9, - 3.993800385779578*^9, {3.994072756603456*^9, 3.9940727766610518`*^9}}, - CellLabel-> - "Out[106]=",ExpressionUUID->"84c9c2e3-8b1a-49d8-9691-4dbcfdeb8300"] + 3.993800385779578*^9, {3.994072756603456*^9, 3.9940727766610518`*^9}, + 3.994250044181119*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"8fba408f-7aa2-4e15-82a2-25914bbbb1e9"] }, Open ]], Cell[CellGroupData[{ @@ -75,15 +72,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, - CellLabel-> - "In[107]:=",ExpressionUUID->"59be669c-29f2-48f3-9246-8922a0283947"], + CellLabel->"In[4]:=",ExpressionUUID->"59be669c-29f2-48f3-9246-8922a0283947"], Cell[BoxData["0.55`"], "Output", CellChangeTimes->{ 3.991319649777508*^9, 3.993799747316929*^9, 3.993800338888788*^9, - 3.993800385794606*^9, {3.994072756615819*^9, 3.994072776674831*^9}}, - CellLabel-> - "Out[107]=",ExpressionUUID->"a4ef0386-515f-4888-91b3-82405acbac04"] + 3.993800385794606*^9, {3.994072756615819*^9, 3.994072776674831*^9}, + 3.994250044193177*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"f6effe4a-d9d3-4b69-83e8-7631e58d5f2f"] }, Open ]], Cell[CellGroupData[{ @@ -95,30 +91,28 @@ Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", - CellLabel-> - "In[108]:=",ExpressionUUID->"fa1e4148-f780-40f5-b87b-7b063d67b4cf"], + CellLabel->"In[5]:=",ExpressionUUID->"fa1e4148-f780-40f5-b87b-7b063d67b4cf"], Cell[BoxData["0.543`"], "Output", CellChangeTimes->{ 3.9913196497965145`*^9, 3.993799747333138*^9, 3.993800338906427*^9, - 3.993800385809697*^9, {3.994072756628705*^9, 3.994072776688608*^9}}, - CellLabel-> - "Out[108]=",ExpressionUUID->"3b17abbc-3dc8-4608-9b6b-2ca6280b8f7c"] + 3.993800385809697*^9, {3.994072756628705*^9, 3.994072776688608*^9}, + 3.994250044205346*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"6389724e-1b4b-4a69-a0b1-292e18eb7b4b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", - CellLabel-> - "In[109]:=",ExpressionUUID->"6e7f445d-fdd7-4be2-8549-0d163192ed17"], + CellLabel->"In[6]:=",ExpressionUUID->"6e7f445d-fdd7-4be2-8549-0d163192ed17"], Cell[BoxData["0.17`"], "Output", CellChangeTimes->{ 3.9913196498144608`*^9, 3.9937997473490753`*^9, 3.993800338928018*^9, - 3.993800385813496*^9, {3.994072756641103*^9, 3.994072776693177*^9}}, - CellLabel-> - "Out[109]=",ExpressionUUID->"43b7eaf2-0d6a-476c-8d05-50e89961c15c"] + 3.993800385813496*^9, {3.994072756641103*^9, 3.994072776693177*^9}, + 3.9942500442173653`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"a9d08476-01d1-468d-9979-ec390216cd80"] }, Open ]], Cell[CellGroupData[{ @@ -129,15 +123,14 @@ Cell[BoxData[ SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}]}]], "Input", CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, - CellLabel-> - "In[110]:=",ExpressionUUID->"a0c2d623-9b24-4b8e-9eb1-105882bc0a9d"], + CellLabel->"In[7]:=",ExpressionUUID->"a0c2d623-9b24-4b8e-9eb1-105882bc0a9d"], Cell[BoxData["6.5007312471204965`"], "Output", CellChangeTimes->{ 3.9913196498225155`*^9, 3.993799747366351*^9, 3.993800338948053*^9, - 3.993800385835421*^9, {3.994072756653392*^9, 3.994072776710863*^9}}, - CellLabel-> - "Out[110]=",ExpressionUUID->"6a07e530-2530-4da5-b9ee-525b013aeb05"] + 3.993800385835421*^9, {3.994072756653392*^9, 3.994072776710863*^9}, + 3.994250044229336*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"b2187dad-7f7d-49ca-9919-7122e0b5bbee"] }, Open ]], Cell[CellGroupData[{ @@ -149,15 +142,14 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", - CellLabel-> - "In[111]:=",ExpressionUUID->"90472dd9-931e-492c-93df-c43e7c0755e9"], + CellLabel->"In[8]:=",ExpressionUUID->"90472dd9-931e-492c-93df-c43e7c0755e9"], Cell[BoxData["4.64`"], "Output", CellChangeTimes->{ 3.9913196498425236`*^9, 3.993799747384128*^9, 3.993800338968402*^9, - 3.993800385850627*^9, {3.9940727566658983`*^9, 3.994072776724451*^9}}, - CellLabel-> - "Out[111]=",ExpressionUUID->"7194280a-3a15-4ef8-8c69-64a4ccf18add"] + 3.993800385850627*^9, {3.9940727566658983`*^9, 3.994072776724451*^9}, + 3.994250044241226*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"dceb61b4-bef8-4694-8752-a237b45ebc88"] }, Open ]], Cell[CellGroupData[{ @@ -168,15 +160,13 @@ Cell[BoxData[ 3.991799283179735*^9, {3.9937993186432753`*^9, 3.993799326240513*^9}, { 3.993799364756247*^9, 3.993799370026516*^9}, {3.993799480203456*^9, 3.993799488443741*^9}}, - CellLabel-> - "In[112]:=",ExpressionUUID->"56576e1d-c32b-44ea-9085-551c6fcb2175"], + CellLabel->"In[9]:=",ExpressionUUID->"56576e1d-c32b-44ea-9085-551c6fcb2175"], Cell[BoxData["0.7654`"], "Output", CellChangeTimes->{ 3.9937997474107447`*^9, 3.993800338988703*^9, 3.9938003858649893`*^9, { - 3.994072756678184*^9, 3.994072776737771*^9}}, - CellLabel-> - "Out[112]=",ExpressionUUID->"f3556d5e-3bf3-4d1d-a440-9665e74a334e"] + 3.994072756678184*^9, 3.994072776737771*^9}, 3.994250044253034*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"5fcfdd62-0290-4e9b-b409-fe171d990259"] }, Open ]], Cell[CellGroupData[{ @@ -185,45 +175,41 @@ Cell[BoxData[ RowBox[{"b2", "=", "0.4513"}]], "Input", CellChangeTimes->{ 3.991799280663351*^9, {3.993799372069343*^9, 3.993799377027832*^9}}, - CellLabel-> - "In[113]:=",ExpressionUUID->"e31cedbb-e428-4119-a831-920ffad8dd12"], + CellLabel->"In[10]:=",ExpressionUUID->"e31cedbb-e428-4119-a831-920ffad8dd12"], Cell[BoxData["0.4513`"], "Output", CellChangeTimes->{ 3.993799747427882*^9, 3.993800339005568*^9, 3.993800385879345*^9, { - 3.9940727566903763`*^9, 3.9940727767497873`*^9}}, - CellLabel-> - "Out[113]=",ExpressionUUID->"8090d2d8-56a2-46bf-a2d1-8b13489eee46"] + 3.9940727566903763`*^9, 3.9940727767497873`*^9}, 3.994250044264852*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"da5720cd-7820-4f2b-9385-70eebbb3ea69"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", - CellLabel-> - "In[114]:=",ExpressionUUID->"918056cc-c05d-4810-b116-998fa8098ec4"], + CellLabel->"In[11]:=",ExpressionUUID->"918056cc-c05d-4810-b116-998fa8098ec4"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498927155`*^9, 3.993799747452092*^9, 3.993800339022945*^9, - 3.993800385893304*^9, {3.994072756702078*^9, 3.9940727767611856`*^9}}, - CellLabel-> - "Out[114]=",ExpressionUUID->"5c0eccf8-631a-4269-b7fb-bf96be1f802e"] + 3.993800385893304*^9, {3.994072756702078*^9, 3.9940727767611856`*^9}, + 3.994250044275758*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"216df189-bbaa-496f-bddb-090c3bcfd06b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", - CellLabel-> - "In[115]:=",ExpressionUUID->"ac10ced6-d951-4da9-a896-f8316432c8e3"], + CellLabel->"In[12]:=",ExpressionUUID->"ac10ced6-d951-4da9-a896-f8316432c8e3"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498996067`*^9, 3.993799747468101*^9, 3.993800339041868*^9, - 3.9938003859074306`*^9, {3.9940727567134666`*^9, 3.994072776772606*^9}}, - CellLabel-> - "Out[115]=",ExpressionUUID->"57a81b2d-1310-4588-9519-161aa2fe281e"] + 3.9938003859074306`*^9, {3.9940727567134666`*^9, 3.994072776772606*^9}, + 3.994250044288887*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"eb98d8b7-4a9c-4e66-8096-57ef3c886e93"] }, Open ]], Cell[CellGroupData[{ @@ -247,15 +233,14 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[116]:=",ExpressionUUID->"d6c3ee5c-86fa-4d04-a777-4822adca9d43"], + CellLabel->"In[13]:=",ExpressionUUID->"d6c3ee5c-86fa-4d04-a777-4822adca9d43"], Cell[BoxData["2.0171665757171935`"], "Output", CellChangeTimes->{ 3.9913197863028755`*^9, 3.9937997474836817`*^9, 3.9938003390596933`*^9, - 3.993800385921398*^9, {3.994072756725263*^9, 3.994072776784317*^9}}, - CellLabel-> - "Out[116]=",ExpressionUUID->"c871e321-70e3-482c-9fb8-9fbba6ad7b79"] + 3.993800385921398*^9, {3.994072756725263*^9, 3.994072776784317*^9}, + 3.994250044303852*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"2e1698c9-c908-40f9-9cfc-40f0cb548a39"] }, Open ]], Cell[CellGroupData[{ @@ -279,15 +264,14 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[117]:=",ExpressionUUID->"408796d0-515b-4b34-a6b5-e3aa98dfd1b8"], + CellLabel->"In[14]:=",ExpressionUUID->"408796d0-515b-4b34-a6b5-e3aa98dfd1b8"], Cell[BoxData["1.5074639495621045`"], "Output", CellChangeTimes->{ 3.9913197864610195`*^9, 3.993799747498741*^9, 3.993800339079308*^9, - 3.993800385933773*^9, {3.994072756739362*^9, 3.994072776796445*^9}}, - CellLabel-> - "Out[117]=",ExpressionUUID->"29520099-73ad-4943-974b-01e47263b244"] + 3.993800385933773*^9, {3.994072756739362*^9, 3.994072776796445*^9}, + 3.9942500443165817`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"531496e7-98fb-4bba-8041-0abc06b23b73"] }, Open ]], Cell[CellGroupData[{ @@ -342,15 +326,14 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[118]:=",ExpressionUUID->"d8c750a6-8362-4fb1-8306-87c9f653c3bc"], + CellLabel->"In[15]:=",ExpressionUUID->"d8c750a6-8362-4fb1-8306-87c9f653c3bc"], Cell[BoxData["0.5126444245586296`"], "Output", CellChangeTimes->{ 3.991319786533783*^9, 3.993799747513342*^9, 3.993800339097157*^9, - 3.993800385946536*^9, {3.994072756750792*^9, 3.9940727768075857`*^9}}, - CellLabel-> - "Out[118]=",ExpressionUUID->"65dfa6fa-c9e8-4ced-bfc8-a1d422b52c37"] + 3.993800385946536*^9, {3.994072756750792*^9, 3.9940727768075857`*^9}, + 3.994250044329817*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"67558fa1-99f9-4caa-b443-006a0de18318"] }, Open ]], Cell[CellGroupData[{ @@ -401,16 +384,15 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[119]:=",ExpressionUUID->"deb05e31-1a99-4582-b1c3-a739e1144c15"], + CellLabel->"In[16]:=",ExpressionUUID->"deb05e31-1a99-4582-b1c3-a739e1144c15"], Cell[BoxData[ RowBox[{"-", "0.12490541136574432`"}]], "Output", CellChangeTimes->{ 3.991319786540777*^9, 3.993799747527933*^9, 3.9938003391147947`*^9, - 3.99380038595966*^9, {3.994072756762456*^9, 3.99407277681929*^9}}, - CellLabel-> - "Out[119]=",ExpressionUUID->"77032548-4f88-49bf-a239-4409a96c56b9"] + 3.99380038595966*^9, {3.994072756762456*^9, 3.99407277681929*^9}, + 3.994250044342374*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"6916aeb7-35df-4ee7-bed4-87a977fe9846"] }, Open ]], Cell[CellGroupData[{ @@ -461,16 +443,15 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[120]:=",ExpressionUUID->"dc419b82-3e31-41ce-8589-70f766ca6f26"], + CellLabel->"In[17]:=",ExpressionUUID->"dc419b82-3e31-41ce-8589-70f766ca6f26"], Cell[BoxData[ RowBox[{"-", "0.47786808677187637`"}]], "Output", CellChangeTimes->{ 3.9913197865777817`*^9, 3.993799747543792*^9, 3.993800339132107*^9, - 3.9938003859736147`*^9, {3.994072756774001*^9, 3.994072776830839*^9}}, - CellLabel-> - "Out[120]=",ExpressionUUID->"a7d81ae2-d9db-4f55-9c43-152551ad884d"] + 3.9938003859736147`*^9, {3.994072756774001*^9, 3.994072776830839*^9}, + 3.9942500443548107`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"331a0ceb-7485-49ae-a878-9edc764545a7"] }, Open ]], Cell[CellGroupData[{ @@ -525,45 +506,42 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[121]:=",ExpressionUUID->"a10d564e-16e0-47f2-b771-9f70a658934f"], + CellLabel->"In[18]:=",ExpressionUUID->"a10d564e-16e0-47f2-b771-9f70a658934f"], Cell[BoxData["0.6637051934091774`"], "Output", CellChangeTimes->{ 3.9913197866129*^9, 3.993799747559553*^9, 3.993800339136161*^9, - 3.993800385987465*^9, {3.994072756786757*^9, 3.994072776842886*^9}}, - CellLabel-> - "Out[121]=",ExpressionUUID->"3e6b4174-a2c3-4a1e-996b-c162b8c2fd48"] + 3.993800385987465*^9, {3.994072756786757*^9, 3.994072776842886*^9}, + 3.994250044366695*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"96c8a9d7-9d09-4e15-8b0c-5d40608eb667"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", - CellLabel-> - "In[122]:=",ExpressionUUID->"9829bcde-f304-448c-aa51-24654c147ae6"], + CellLabel->"In[19]:=",ExpressionUUID->"9829bcde-f304-448c-aa51-24654c147ae6"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786620775*^9, 3.9937997475753107`*^9, 3.993800339165604*^9, - 3.9938003860010223`*^9, {3.99407275679909*^9, 3.994072776854899*^9}}, - CellLabel-> - "Out[122]=",ExpressionUUID->"1c391cdf-80a5-4d9f-a2bf-983a9ee18996"] + 3.9938003860010223`*^9, {3.99407275679909*^9, 3.994072776854899*^9}, + 3.994250044377974*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"7c4dfbbd-37e0-449d-897a-cf6d06dafb50"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fin", "=", "0.09"}]], "Input", - CellLabel-> - "In[123]:=",ExpressionUUID->"c15fb448-666b-4677-826d-b45daf097e27"], + CellLabel->"In[20]:=",ExpressionUUID->"c15fb448-666b-4677-826d-b45daf097e27"], Cell[BoxData["0.09`"], "Output", CellChangeTimes->{ 3.991319786657793*^9, 3.9937997475908947`*^9, 3.993800339182325*^9, - 3.9938003860157137`*^9, {3.9940727568120337`*^9, 3.994072776866831*^9}}, - CellLabel-> - "Out[123]=",ExpressionUUID->"d5f52fdb-646e-4cd0-9a51-d2dc82b67e86"] + 3.9938003860157137`*^9, {3.9940727568120337`*^9, 3.994072776866831*^9}, + 3.994250044390463*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"5a37dc37-c7b8-4655-b8b0-fbe04c3b00f1"] }, Open ]], Cell[CellGroupData[{ @@ -572,15 +550,14 @@ Cell[BoxData[ RowBox[{"ffin", "=", "0.42"}]], "Input", CellChangeTimes->{{3.9938002062742653`*^9, 3.993800206278376*^9}, { 3.99380037453472*^9, 3.993800374695301*^9}}, - CellLabel-> - "In[124]:=",ExpressionUUID->"b5059030-04e0-45de-a22b-5a0196fbe26b"], + CellLabel->"In[21]:=",ExpressionUUID->"b5059030-04e0-45de-a22b-5a0196fbe26b"], Cell[BoxData["0.42`"], "Output", CellChangeTimes->{ 3.9913197866657925`*^9, 3.993799747607007*^9, 3.993800339199224*^9, - 3.9938003860303698`*^9, {3.994072756823955*^9, 3.994072776878458*^9}}, - CellLabel-> - "Out[124]=",ExpressionUUID->"39657914-0ad9-4e3e-b927-9b71eb263190"] + 3.9938003860303698`*^9, {3.994072756823955*^9, 3.994072776878458*^9}, + 3.9942500444026337`*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"1010529a-083d-4df4-aaaf-a29fdaacd73b"] }, Open ]], Cell[CellGroupData[{ @@ -589,31 +566,29 @@ Cell[BoxData[ RowBox[{"fex", "=", RowBox[{"-", "2.59"}]}]], "Input", CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, - CellLabel-> - "In[125]:=",ExpressionUUID->"9206ae1b-d0d5-485d-befe-74340aba3b4b"], + CellLabel->"In[22]:=",ExpressionUUID->"9206ae1b-d0d5-485d-befe-74340aba3b4b"], Cell[BoxData[ RowBox[{"-", "2.59`"}]], "Output", CellChangeTimes->{ 3.9913197866996*^9, 3.993799747623555*^9, 3.9938003392162523`*^9, - 3.993800386045208*^9, {3.994072756835642*^9, 3.994072776890398*^9}}, - CellLabel-> - "Out[125]=",ExpressionUUID->"2a61d991-fa9c-41d7-b417-f7888e1f9d38"] + 3.993800386045208*^9, {3.994072756835642*^9, 3.994072776890398*^9}, + 3.9942500444152317`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"751dff5d-ce3f-4c75-9896-1bb9d89e95a5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffex", "=", "0.54"}]], "Input", - CellLabel-> - "In[126]:=",ExpressionUUID->"36e30e31-a0e4-497e-8845-6e70833c12f4"], + CellLabel->"In[23]:=",ExpressionUUID->"36e30e31-a0e4-497e-8845-6e70833c12f4"], Cell[BoxData["0.54`"], "Output", CellChangeTimes->{ 3.9913197867406044`*^9, 3.9937997476274233`*^9, 3.993800339233366*^9, - 3.993800386060211*^9, {3.994072756847537*^9, 3.994072776902615*^9}}, - CellLabel-> - "Out[126]=",ExpressionUUID->"2764ba7f-262b-4905-9856-f83d7d15792a"] + 3.993800386060211*^9, {3.994072756847537*^9, 3.994072776902615*^9}, + 3.994250044429187*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"ffd279f4-8b42-42e1-82fa-f62a8c75beee"] }, Open ]], Cell[CellGroupData[{ @@ -623,15 +598,13 @@ Cell[BoxData[ CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, 3.993799773981587*^9, {3.993800017055696*^9, 3.993800017126395*^9}}, - CellLabel-> - "In[127]:=",ExpressionUUID->"f58a2dc9-267b-44cb-aa70-c83cc104624e"], + CellLabel->"In[24]:=",ExpressionUUID->"f58a2dc9-267b-44cb-aa70-c83cc104624e"], Cell[BoxData["64"], "Output", CellChangeTimes->{ 3.9913197867861958`*^9, 3.993800339250176*^9, 3.993800386074368*^9, { - 3.994072756859651*^9, 3.994072776915943*^9}}, - CellLabel-> - "Out[127]=",ExpressionUUID->"950ee5f9-b07e-4790-9f55-f00aefcf3762"] + 3.994072756859651*^9, 3.994072776915943*^9}, 3.994250044442988*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"4214e190-7573-44b2-b22f-54db8fe40c7c"] }, Open ]], Cell[CellGroupData[{ @@ -641,15 +614,14 @@ Cell[BoxData[ RowBox[{"92", "-", "Z1"}]}]], "Input", CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, 3.9916443064841423`*^9}, - CellLabel-> - "In[128]:=",ExpressionUUID->"f4f1bc0f-c6f7-4d98-9565-778d4f288687"], + CellLabel->"In[25]:=",ExpressionUUID->"f4f1bc0f-c6f7-4d98-9565-778d4f288687"], Cell[BoxData["28"], "Output", CellChangeTimes->{ 3.9913197867928696`*^9, 3.993799747743443*^9, 3.993800339268099*^9, - 3.993800386088282*^9, {3.994072756878846*^9, 3.994072776927128*^9}}, - CellLabel-> - "Out[128]=",ExpressionUUID->"45a0a746-8f83-4f41-a170-3036123f9992"] + 3.993800386088282*^9, {3.994072756878846*^9, 3.994072776927128*^9}, + 3.994250044456829*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"664c447c-7a78-4f53-b3b8-968d23d04332"] }, Open ]], Cell[CellGroupData[{ @@ -658,15 +630,14 @@ Cell[BoxData[ RowBox[{"A2", "=", RowBox[{"A", "-", "A1"}]}]], "Input", CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, - CellLabel-> - "In[129]:=",ExpressionUUID->"a4efe8aa-fa71-46c4-9048-0ec22c629f6f"], + CellLabel->"In[26]:=",ExpressionUUID->"a4efe8aa-fa71-46c4-9048-0ec22c629f6f"], Cell[BoxData["64"], "Output", CellChangeTimes->{ 3.991319786827894*^9, 3.993799747762579*^9, 3.9938003392862883`*^9, - 3.993800386103376*^9, {3.994072756893341*^9, 3.994072776939496*^9}}, - CellLabel-> - "Out[129]=",ExpressionUUID->"c7684bd7-5c7c-4887-a0b9-4f340818c91c"] + 3.993800386103376*^9, {3.994072756893341*^9, 3.994072776939496*^9}, + 3.99425004447122*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"400a70da-9c65-4745-82be-b60950f4e2c9"] }, Open ]], Cell[CellGroupData[{ @@ -681,15 +652,14 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[130]:=",ExpressionUUID->"0dde3c62-9148-4482-b3c4-b44d95540a37"], + CellLabel->"In[27]:=",ExpressionUUID->"0dde3c62-9148-4482-b3c4-b44d95540a37"], Cell[BoxData["0.10431818181818181`"], "Output", CellChangeTimes->{ 3.9913197868648605`*^9, 3.993799747778633*^9, 3.993800339303063*^9, - 3.993800386118601*^9, {3.9940727569059267`*^9, 3.994072776951536*^9}}, - CellLabel-> - "Out[130]=",ExpressionUUID->"d1672193-3a5d-4dc6-892b-fbd1fa55d324"] + 3.993800386118601*^9, {3.9940727569059267`*^9, 3.994072776951536*^9}, + 3.994250044486864*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"ead1d8bf-54f7-473b-b244-2124e8f73753"] }, Open ]], Cell[CellGroupData[{ @@ -704,16 +674,15 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[131]:=",ExpressionUUID->"1bc74051-3208-4486-bf77-3e5fc10808fd"], + CellLabel->"In[28]:=",ExpressionUUID->"1bc74051-3208-4486-bf77-3e5fc10808fd"], Cell[BoxData[ RowBox[{"-", "2.571590909090909`"}]], "Output", CellChangeTimes->{ 3.9913197868718567`*^9, 3.993799747795951*^9, 3.993800339319376*^9, - 3.993800386134354*^9, {3.9940727569175262`*^9, 3.994072776962891*^9}}, - CellLabel-> - "Out[131]=",ExpressionUUID->"c271d5d8-0c01-4c14-91d1-62017076d35a"] + 3.993800386134354*^9, {3.9940727569175262`*^9, 3.994072776962891*^9}, + 3.994250044500286*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"e2b3105d-0236-4598-950b-7f2b8c8a0479"] }, Open ]], Cell[CellGroupData[{ @@ -744,15 +713,14 @@ Cell[BoxData[ CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, - CellLabel-> - "In[132]:=",ExpressionUUID->"f2337b0a-3c51-463a-b335-a40cd0023421"], + CellLabel->"In[29]:=",ExpressionUUID->"f2337b0a-3c51-463a-b335-a40cd0023421"], Cell[BoxData["16.821909430837295`"], "Output", CellChangeTimes->{ 3.9913197869068584`*^9, 3.993799747812237*^9, 3.993800339336598*^9, - 3.9938003861388483`*^9, {3.994072756929346*^9, 3.994072776974725*^9}}, - CellLabel-> - "Out[132]=",ExpressionUUID->"d1bc2461-14f2-4009-a733-e95b47abe580"] + 3.9938003861388483`*^9, {3.994072756929346*^9, 3.994072776974725*^9}, + 3.994250044514472*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"3cc6bae3-168d-4b18-b290-117b045787ae"] }, Open ]], Cell[CellGroupData[{ @@ -760,15 +728,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, - CellLabel-> - "In[133]:=",ExpressionUUID->"4e7eabde-e885-4dec-bd44-964a6bbdfe90"], + CellLabel->"In[30]:=",ExpressionUUID->"4e7eabde-e885-4dec-bd44-964a6bbdfe90"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786940857*^9, 3.9937997478307247`*^9, 3.993800339353257*^9, - 3.993800386159964*^9, {3.994072756940832*^9, 3.994072776986273*^9}}, - CellLabel-> - "Out[133]=",ExpressionUUID->"0aaf5bfd-7dfb-4062-a48e-fb22d71e5d29"] + 3.993800386159964*^9, {3.994072756940832*^9, 3.994072776986273*^9}, + 3.99425004452772*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"f8cdf6d3-aa08-4d1d-82fd-6b75508cdf71"] }, Open ]], Cell[CellGroupData[{ @@ -778,21 +745,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { 3.9937993902853117`*^9, 3.993799392293758*^9}}, - CellLabel-> - "In[134]:=",ExpressionUUID->"32dcf3af-dbc6-4111-9e0d-2190b02f2eb8"], + CellLabel->"In[31]:=",ExpressionUUID->"32dcf3af-dbc6-4111-9e0d-2190b02f2eb8"], Cell[BoxData["1.25`"], "Output", CellChangeTimes->{ 3.9937997478713713`*^9, 3.993800339369935*^9, 3.9938003861811666`*^9, { - 3.9940727569525537`*^9, 3.9940727769978867`*^9}}, - CellLabel-> - "Out[134]=",ExpressionUUID->"92146900-2115-44ea-a7b0-c935e064cd0f"] + 3.9940727569525537`*^9, 3.9940727769978867`*^9}, 3.994250044540999*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"2826d3af-8be0-4d98-ae9d-b33e6ac897cc"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, - CellLabel-> - "In[135]:=",ExpressionUUID->"98ead765-9367-4a68-bbc0-79720657acb9"], + CellLabel->"In[32]:=",ExpressionUUID->"98ead765-9367-4a68-bbc0-79720657acb9"], Cell[CellGroupData[{ @@ -801,21 +765,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { 3.993799395152514*^9, 3.9937993965162697`*^9}}, - CellLabel-> - "In[136]:=",ExpressionUUID->"cff4a190-6081-441e-8947-137cf2472bb2"], + CellLabel->"In[33]:=",ExpressionUUID->"cff4a190-6081-441e-8947-137cf2472bb2"], Cell[BoxData["0.85`"], "Output", CellChangeTimes->{ 3.993799747898118*^9, 3.993800339418215*^9, 3.993800386208997*^9, { - 3.99407275696742*^9, 3.9940727770129023`*^9}}, - CellLabel-> - "Out[136]=",ExpressionUUID->"88e44316-4b50-481f-a146-57cf56353500"] + 3.99407275696742*^9, 3.9940727770129023`*^9}, 3.9942500445588083`*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"af9a20cf-ddb8-49e0-a9dd-602bdf7c0ef3"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, - CellLabel-> - "In[137]:=",ExpressionUUID->"58354566-7457-4ebe-b47e-50dbc8a8f4f6"], + CellLabel->"In[34]:=",ExpressionUUID->"58354566-7457-4ebe-b47e-50dbc8a8f4f6"], Cell[CellGroupData[{ @@ -824,21 +785,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { 3.993799398824368*^9, 3.9937994002405863`*^9}}, - CellLabel-> - "In[138]:=",ExpressionUUID->"f1b62f12-2724-461e-a307-44ce6b417b09"], + CellLabel->"In[35]:=",ExpressionUUID->"f1b62f12-2724-461e-a307-44ce6b417b09"], Cell[BoxData["2.3`"], "Output", CellChangeTimes->{ 3.993799747923098*^9, 3.993800339511382*^9, 3.993800386234042*^9, { - 3.994072756981262*^9, 3.994072777026493*^9}}, - CellLabel-> - "Out[138]=",ExpressionUUID->"8cb3d60e-8780-4a0a-a85d-141f8714413e"] + 3.994072756981262*^9, 3.994072777026493*^9}, 3.99425004457456*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"6a27e289-944e-4213-8d05-e90a5488ac3e"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, - CellLabel-> - "In[139]:=",ExpressionUUID->"ce06556e-7680-4ae4-928e-dab123b4e6b1"], + CellLabel->"In[36]:=",ExpressionUUID->"ce06556e-7680-4ae4-928e-dab123b4e6b1"], Cell[CellGroupData[{ @@ -847,21 +805,18 @@ Cell[BoxData[ CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, 3.991799359954439*^9, {3.993799403099743*^9, 3.9937994038178663`*^9}}, - CellLabel-> - "In[140]:=",ExpressionUUID->"6016dd93-ebd9-4ae6-be06-a042e10d7d17"], + CellLabel->"In[37]:=",ExpressionUUID->"6016dd93-ebd9-4ae6-be06-a042e10d7d17"], Cell[BoxData["1.1`"], "Output", CellChangeTimes->{ 3.9937997479459248`*^9, 3.99380033956159*^9, 3.9938003862601*^9, { - 3.994072756995009*^9, 3.99407277703996*^9}}, - CellLabel-> - "Out[140]=",ExpressionUUID->"77f82a4b-05fd-4df8-80dd-cf835f972b65"] + 3.994072756995009*^9, 3.99407277703996*^9}, 3.994250044589861*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"8005d2be-8d47-441e-815b-a5364c015aa0"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, - CellLabel-> - "In[141]:=",ExpressionUUID->"b56063ba-90ac-4de2-bb28-2aacf8f18acd"], + CellLabel->"In[38]:=",ExpressionUUID->"b56063ba-90ac-4de2-bb28-2aacf8f18acd"], Cell[CellGroupData[{ @@ -870,21 +825,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, 3.991718016467348*^9, 3.991799361414671*^9, {3.993799407392029*^9, 3.993799410650194*^9}}, - CellLabel-> - "In[142]:=",ExpressionUUID->"1d180ddd-ca1a-4e12-8e0d-fa4b60d755b7"], + CellLabel->"In[39]:=",ExpressionUUID->"1d180ddd-ca1a-4e12-8e0d-fa4b60d755b7"], Cell[BoxData["0.8664`"], "Output", CellChangeTimes->{ 3.993799747968698*^9, 3.993800339671721*^9, 3.9938003862845907`*^9, { - 3.994072757008773*^9, 3.994072777054493*^9}}, - CellLabel-> - "Out[142]=",ExpressionUUID->"9a51680c-d25c-402d-bfa7-82b5f4837ec7"] + 3.994072757008773*^9, 3.994072777054493*^9}, 3.99425004460526*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"4d8d719e-d3c5-4fa7-a0b6-ef49cc6162e9"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, - CellLabel-> - "In[143]:=",ExpressionUUID->"7ce5188c-1911-4e13-9b03-03f04a8bf4f7"], + CellLabel->"In[40]:=",ExpressionUUID->"7ce5188c-1911-4e13-9b03-03f04a8bf4f7"], Cell[CellGroupData[{ @@ -893,21 +845,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9937994136330442`*^9, 3.993799417576207*^9}}, - CellLabel-> - "In[144]:=",ExpressionUUID->"36e30360-eb8f-4c4e-8e08-981c909a8ffa"], + CellLabel->"In[41]:=",ExpressionUUID->"36e30360-eb8f-4c4e-8e08-981c909a8ffa"], Cell[BoxData["0.5924`"], "Output", CellChangeTimes->{ 3.993799747991611*^9, 3.9938003397687387`*^9, 3.993800386310059*^9, { - 3.994072757022612*^9, 3.994072777068264*^9}}, - CellLabel-> - "Out[144]=",ExpressionUUID->"8f5490d9-d586-47bb-bcee-667a8267d076"] + 3.994072757022612*^9, 3.994072777068264*^9}, 3.9942500446202374`*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"d901f6a8-e9c9-4239-a898-bf1f7539e0c4"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, - CellLabel-> - "In[145]:=",ExpressionUUID->"83b05ecb-25d0-43d4-9c7f-ee95a5b6df3f"], + CellLabel->"In[42]:=",ExpressionUUID->"83b05ecb-25d0-43d4-9c7f-ee95a5b6df3f"], Cell[CellGroupData[{ @@ -916,21 +865,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.993799421955809*^9, 3.993799423886447*^9}}, - CellLabel-> - "In[146]:=",ExpressionUUID->"6bc0f20f-6c85-441e-af5b-b5e593833afb"], + CellLabel->"In[43]:=",ExpressionUUID->"6bc0f20f-6c85-441e-af5b-b5e593833afb"], Cell[BoxData["1.888`"], "Output", CellChangeTimes->{ 3.993799748012844*^9, 3.993800339865109*^9, 3.993800386335606*^9, { - 3.9940727570366488`*^9, 3.9940727770819397`*^9}}, - CellLabel-> - "Out[146]=",ExpressionUUID->"4097ec72-e9f2-41a8-a1c8-f21a08d06c65"] + 3.9940727570366488`*^9, 3.9940727770819397`*^9}, 3.994250044634755*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"52847237-b361-4d14-88ea-b5e3ccc77a07"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, - CellLabel-> - "In[147]:=",ExpressionUUID->"a48edea2-1677-41af-b88d-7e30e5319a57"], + CellLabel->"In[44]:=",ExpressionUUID->"a48edea2-1677-41af-b88d-7e30e5319a57"], Cell[CellGroupData[{ @@ -938,21 +884,18 @@ Cell[BoxData[ RowBox[{"nn2", "=", "0.6347"}]], "Input", CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, 3.9917993660901737`*^9, {3.993799431418026*^9, 3.9937994366447783`*^9}}, - CellLabel-> - "In[148]:=",ExpressionUUID->"05049caf-d261-4bfe-ac01-ec8d5f61c0cb"], + CellLabel->"In[45]:=",ExpressionUUID->"05049caf-d261-4bfe-ac01-ec8d5f61c0cb"], Cell[BoxData["0.6347`"], "Output", CellChangeTimes->{ 3.99379974807285*^9, 3.993800339960155*^9, 3.9938003863606977`*^9, { - 3.99407275705245*^9, 3.994072777095529*^9}}, - CellLabel-> - "Out[148]=",ExpressionUUID->"ca96acff-e639-430b-9ad0-bb631beab37d"] + 3.99407275705245*^9, 3.994072777095529*^9}, 3.994250044649074*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"51f5b827-be8d-49be-b8af-910c8a741668"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, - CellLabel-> - "In[149]:=",ExpressionUUID->"378a698f-d006-49fc-972a-f93f03315323"], + CellLabel->"In[46]:=",ExpressionUUID->"378a698f-d006-49fc-972a-f93f03315323"], Cell[CellGroupData[{ @@ -1441,15 +1384,14 @@ uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== "], - CellLabel-> - "In[150]:=",ExpressionUUID->"feb6573d-a1e5-4f96-86c7-0b12af3f7a8b"], + CellLabel->"In[47]:=",ExpressionUUID->"feb6573d-a1e5-4f96-86c7-0b12af3f7a8b"], Cell[BoxData["0.33523276963055626`"], "Output", CellChangeTimes->{ 3.991319787430073*^9, 3.9937997481547623`*^9, 3.993800340061625*^9, - 3.9938003864136953`*^9, {3.994072757136285*^9, 3.994072777132966*^9}}, - CellLabel-> - "Out[150]=",ExpressionUUID->"ae1f2e47-ecd0-466f-a0e0-5e2d721b894c"] + 3.9938003864136953`*^9, {3.994072757136285*^9, 3.994072777132966*^9}, + 3.994250044740923*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"adb6bb61-1572-4b6d-abc7-004ad6dc430a"] }, Open ]], Cell[CellGroupData[{ @@ -1943,15 +1885,14 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[151]:=",ExpressionUUID->"713df860-6921-45d0-b584-81ae496525d7"], + CellLabel->"In[48]:=",ExpressionUUID->"713df860-6921-45d0-b584-81ae496525d7"], Cell[BoxData["10.264944924096582`"], "Output", CellChangeTimes->{ 3.991319787574972*^9, 3.9937997481878023`*^9, 3.993800340089472*^9, - 3.993800386441668*^9, {3.994072757163142*^9, 3.9940727771627817`*^9}}, - CellLabel-> - "Out[151]=",ExpressionUUID->"f0c39272-a23b-4a67-9232-58f1a7f974ef"] + 3.993800386441668*^9, {3.994072757163142*^9, 3.9940727771627817`*^9}, + 3.994250044773567*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"6b606d60-2354-4c92-8fdf-73125372543b"] }, Open ]], Cell[CellGroupData[{ @@ -2439,16 +2380,15 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[152]:=",ExpressionUUID->"28ff244f-310e-447f-95dc-faef88629c4a"], + CellLabel->"In[49]:=",ExpressionUUID->"28ff244f-310e-447f-95dc-faef88629c4a"], Cell[BoxData[ RowBox[{"-", "28.42814742925769`"}]], "Output", CellChangeTimes->{ 3.991319787641424*^9, 3.993799748217864*^9, 3.993800340114811*^9, - 3.993800386467917*^9, {3.99407275718851*^9, 3.994072777190625*^9}}, - CellLabel-> - "Out[152]=",ExpressionUUID->"9f5de033-6e48-4e21-a1eb-6d1602f9286d"] + 3.993800386467917*^9, {3.99407275718851*^9, 3.994072777190625*^9}, + 3.994250044807888*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"4ec9b28a-7ba5-445d-92a0-ef066e90735c"] }, Open ]], Cell[CellGroupData[{ @@ -3006,16 +2946,15 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[153]:=",ExpressionUUID->"aca3a4a0-c90b-4f6c-99c0-82b8c4d30699"], + CellLabel->"In[50]:=",ExpressionUUID->"aca3a4a0-c90b-4f6c-99c0-82b8c4d30699"], Cell[BoxData[ RowBox[{"-", "38.363033654277935`"}]], "Output", CellChangeTimes->{ 3.991319787711939*^9, 3.9937997482559977`*^9, 3.993800340146491*^9, - 3.993800386499661*^9, {3.9940727572190027`*^9, 3.994072777223873*^9}}, - CellLabel-> - "Out[153]=",ExpressionUUID->"732ae70b-fe84-424e-8fcb-2562c3f57601"] + 3.993800386499661*^9, {3.9940727572190027`*^9, 3.994072777223873*^9}, + 3.994250044843498*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"1a0ac251-129c-4c2b-968c-d44e342168f7"] }, Open ]], Cell[CellGroupData[{ @@ -3573,16 +3512,15 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[154]:=",ExpressionUUID->"23f3c795-a6e3-4cac-acc4-dca8261e5c64"], + CellLabel->"In[51]:=",ExpressionUUID->"23f3c795-a6e3-4cac-acc4-dca8261e5c64"], Cell[BoxData[ RowBox[{"-", "84.97316533656249`"}]], "Output", CellChangeTimes->{ 3.9913197877723045`*^9, 3.993799748294525*^9, 3.993800340178175*^9, - 3.9938003865308523`*^9, {3.994072757249708*^9, 3.994072777255313*^9}}, - CellLabel-> - "Out[154]=",ExpressionUUID->"026a6880-0985-49d3-bcff-afb06baa5ef5"] + 3.9938003865308523`*^9, {3.994072757249708*^9, 3.994072777255313*^9}, + 3.994250044882341*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"175d9cc4-c477-4427-815d-16b8f23580c0"] }, Open ]], Cell[CellGroupData[{ @@ -4213,46 +4151,43 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[155]:=",ExpressionUUID->"ef9e9b58-b2a2-49c4-99e3-4d04e09ace42"], + CellLabel->"In[52]:=",ExpressionUUID->"ef9e9b58-b2a2-49c4-99e3-4d04e09ace42"], Cell[BoxData[ RowBox[{"-", "228.76196692780508`"}]], "Output", CellChangeTimes->{ 3.991319787833355*^9, 3.993799748333426*^9, 3.9938003402193203`*^9, - 3.9938003865686073`*^9, {3.9940727572851143`*^9, 3.9940727772935343`*^9}}, - CellLabel-> - "Out[155]=",ExpressionUUID->"4d4c690d-ba97-48ec-9f1f-5ba58b5a7130"] + 3.9938003865686073`*^9, {3.9940727572851143`*^9, 3.9940727772935343`*^9}, + 3.994250044925723*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"6ba77ee9-e8e3-452a-956f-4c19c6f19c21"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U21", "=", "0"}]], "Input", - CellLabel-> - "In[156]:=",ExpressionUUID->"618aaf6c-0129-47a3-b737-fdf297cb1833"], + CellLabel->"In[53]:=",ExpressionUUID->"618aaf6c-0129-47a3-b737-fdf297cb1833"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210013676`*^9, 3.993799748353148*^9, 3.993800340246324*^9, - 3.993800386583934*^9, {3.99407275729825*^9, 3.994072777306653*^9}}, - CellLabel-> - "Out[156]=",ExpressionUUID->"92c85a2e-4d37-47af-a2c5-2f44e9a8f01b"] + 3.993800386583934*^9, {3.99407275729825*^9, 3.994072777306653*^9}, + 3.994250044942465*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"f1047c94-bfa1-4242-b807-74275044fd50"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U22", "=", "0"}]], "Input", - CellLabel-> - "In[157]:=",ExpressionUUID->"8d6179db-3216-4743-8fdf-e38c9385a164"], + CellLabel->"In[54]:=",ExpressionUUID->"8d6179db-3216-4743-8fdf-e38c9385a164"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210355663`*^9, 3.993799748372961*^9, 3.9938003402680492`*^9, - 3.993800386599262*^9, {3.99407275730969*^9, 3.994072777318306*^9}}, - CellLabel-> - "Out[157]=",ExpressionUUID->"751bee02-962b-4aa4-ad8d-7cb303177950"] + 3.993800386599262*^9, {3.99407275730969*^9, 3.994072777318306*^9}, + 3.994250044982613*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"2a717f91-7a4c-4981-ada6-c93317eafd3b"] }, Open ]], Cell[CellGroupData[{ @@ -4296,15 +4231,14 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[158]:=",ExpressionUUID->"3c8e47cf-ea17-49c5-920b-24adfc700b7b"], + CellLabel->"In[55]:=",ExpressionUUID->"3c8e47cf-ea17-49c5-920b-24adfc700b7b"], Cell[BoxData["185.79450939883742`"], "Output", CellChangeTimes->{ 3.991320421068556*^9, 3.9937997483941936`*^9, 3.9938003402909203`*^9, - 3.99380038661649*^9, {3.9940727573211393`*^9, 3.994072777330056*^9}}, - CellLabel-> - "Out[158]=",ExpressionUUID->"2c696448-8d44-4e53-907a-765b97f320a7"] + 3.99380038661649*^9, {3.9940727573211393`*^9, 3.994072777330056*^9}, + 3.9942500449940977`*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"740d873e-8d1c-43fa-afe8-90a7e82c9136"] }, Open ]], Cell[CellGroupData[{ @@ -4344,16 +4278,15 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[159]:=",ExpressionUUID->"47c92268-1e96-44b0-b5ba-61eed40c4875"], + CellLabel->"In[56]:=",ExpressionUUID->"47c92268-1e96-44b0-b5ba-61eed40c4875"], Cell[BoxData[ RowBox[{"-", "142.60312447586276`"}]], "Output", CellChangeTimes->{ 3.991320421098543*^9, 3.9937997484173307`*^9, 3.993800340312326*^9, - 3.993800386633136*^9, {3.99407275733285*^9, 3.994072777341887*^9}}, - CellLabel-> - "Out[159]=",ExpressionUUID->"e5090a0d-d040-4cc9-b937-432ac6942d77"] + 3.993800386633136*^9, {3.99407275733285*^9, 3.994072777341887*^9}, + 3.994250045005568*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"7c1d65f7-e633-4f26-85c2-d8ce300a443c"] }, Open ]], Cell[CellGroupData[{ @@ -4397,101 +4330,94 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[160]:=",ExpressionUUID->"df1ceed3-f349-4e46-9f6c-7cdc2d455d50"], + CellLabel->"In[57]:=",ExpressionUUID->"df1ceed3-f349-4e46-9f6c-7cdc2d455d50"], Cell[BoxData["169.9317606773619`"], "Output", CellChangeTimes->{ 3.9913204211275444`*^9, 3.993799748440692*^9, 3.993800340332926*^9, - 3.99380038664979*^9, {3.994072757344488*^9, 3.994072777353434*^9}}, - CellLabel-> - "Out[160]=",ExpressionUUID->"c9018075-7cdf-4194-85c8-ee30ede4380a"] + 3.99380038664979*^9, {3.994072757344488*^9, 3.994072777353434*^9}, + 3.994250045010187*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"700de2e0-f9b7-4be4-9783-c67c4889cbd5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c11"], "Input", - CellLabel-> - "In[161]:=",ExpressionUUID->"32ef9b79-a288-4661-82d1-91042ec39e12"], + CellLabel->"In[58]:=",ExpressionUUID->"32ef9b79-a288-4661-82d1-91042ec39e12"], Cell[BoxData["0.5126444245586296`"], "Output", CellChangeTimes->{ 3.9913204211385536`*^9, 3.9937997484629087`*^9, 3.9938003403521013`*^9, - 3.9938003866670628`*^9, {3.994072757355731*^9, 3.994072777364881*^9}}, - CellLabel-> - "Out[161]=",ExpressionUUID->"84bbc7f1-2a56-475e-a25f-44cfbe309045"] + 3.9938003866670628`*^9, {3.994072757355731*^9, 3.994072777364881*^9}, + 3.9942500450224533`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"018f99a0-4a21-49e8-8732-4db40d87f842"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c12"], "Input", - CellLabel-> - "In[162]:=",ExpressionUUID->"5f6e3f90-2e5f-417a-bf47-e7d84234b3ef"], + CellLabel->"In[59]:=",ExpressionUUID->"5f6e3f90-2e5f-417a-bf47-e7d84234b3ef"], Cell[BoxData[ RowBox[{"-", "0.12490541136574432`"}]], "Output", CellChangeTimes->{ 3.9913204211683464`*^9, 3.9937997484829597`*^9, 3.993800340372787*^9, - 3.993800386684751*^9, {3.994072759775218*^9, 3.994072777376302*^9}}, - CellLabel-> - "Out[162]=",ExpressionUUID->"59296404-293a-462c-955b-57a7a0589190"] + 3.993800386684751*^9, {3.994072759775218*^9, 3.994072777376302*^9}, + 3.9942500450339193`*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"0a52af67-d9c3-41d9-807b-b41acd932e69"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c21"], "Input", - CellLabel-> - "In[163]:=",ExpressionUUID->"7b79d9ec-93e2-4eb2-9805-db300f7d9431"], + CellLabel->"In[60]:=",ExpressionUUID->"7b79d9ec-93e2-4eb2-9805-db300f7d9431"], Cell[BoxData[ RowBox[{"-", "0.47786808677187637`"}]], "Output", CellChangeTimes->{ 3.991320421199068*^9, 3.993799748505329*^9, 3.9938003403919477`*^9, - 3.9938003866995373`*^9, {3.9940727599543447`*^9, 3.9940727773879633`*^9}}, - CellLabel-> - "Out[163]=",ExpressionUUID->"7929cdc6-5e8a-45db-9360-b6e33f1abe6f"] + 3.9938003866995373`*^9, {3.9940727599543447`*^9, 3.9940727773879633`*^9}, + 3.9942500450451403`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"e9e678b1-a6fa-48e7-be89-9eeded186867"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c22"], "Input", - CellLabel-> - "In[164]:=",ExpressionUUID->"a0500c72-edad-4c97-a345-75c41937b11d"], + CellLabel->"In[61]:=",ExpressionUUID->"a0500c72-edad-4c97-a345-75c41937b11d"], Cell[BoxData["0.6637051934091774`"], "Output", CellChangeTimes->{ 3.991320421228037*^9, 3.99379974852349*^9, 3.993800340409604*^9, - 3.993800386721094*^9, {3.994072759966642*^9, 3.994072777399509*^9}}, - CellLabel-> - "Out[164]=",ExpressionUUID->"2d7a24d6-cee2-4bba-8c42-14b9d00279f4"] + 3.993800386721094*^9, {3.994072759966642*^9, 3.994072777399509*^9}, + 3.99425004505611*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"2315f427-bac5-41a0-b441-7bf81bb58572"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w1"], "Input", - CellLabel-> - "In[165]:=",ExpressionUUID->"6e37d9ff-f531-4680-9243-4038e543187d"], + CellLabel->"In[62]:=",ExpressionUUID->"6e37d9ff-f531-4680-9243-4038e543187d"], Cell[BoxData["2.0171665757171935`"], "Output", CellChangeTimes->{ 3.9913204212585373`*^9, 3.993799748542218*^9, 3.993800340426003*^9, - 3.9938003867354116`*^9, {3.9940727599787703`*^9, 3.9940727774113617`*^9}}, - CellLabel-> - "Out[165]=",ExpressionUUID->"fa53bbc6-53a0-4ce1-a555-cb19dda62705"] + 3.9938003867354116`*^9, {3.9940727599787703`*^9, 3.9940727774113617`*^9}, + 3.994250045067069*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"38f875df-145c-416c-a14a-cf9a365965dd"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w2"], "Input", - CellLabel-> - "In[166]:=",ExpressionUUID->"15967435-43cc-43a8-b2c8-9234cf9dd078"], + CellLabel->"In[63]:=",ExpressionUUID->"15967435-43cc-43a8-b2c8-9234cf9dd078"], Cell[BoxData["1.5074639495621045`"], "Output", CellChangeTimes->{ 3.9913204212884274`*^9, 3.9937997485616417`*^9, 3.99380034044471*^9, - 3.9938003867502003`*^9, {3.9940727599906197`*^9, 3.994072777422779*^9}}, - CellLabel-> - "Out[166]=",ExpressionUUID->"80890838-3b31-4d12-9ea6-b3240d84c880"] + 3.9938003867502003`*^9, {3.9940727599906197`*^9, 3.994072777422779*^9}, + 3.994250045078478*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"52ebcc9d-aa41-490a-b95a-0edfe85c6caa"] }, Open ]], Cell[CellGroupData[{ @@ -4512,16 +4438,15 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", - CellLabel-> - "In[167]:=",ExpressionUUID->"e0199677-b4f5-48f6-a08a-1cfd4d909162"], + CellLabel->"In[64]:=",ExpressionUUID->"e0199677-b4f5-48f6-a08a-1cfd4d909162"], Cell[BoxData[ RowBox[{"-", "30.893583323663808`"}]], "Output", CellChangeTimes->{ 3.9913204213185234`*^9, 3.993799748579701*^9, 3.9938003404617233`*^9, - 3.993800386765017*^9, {3.994072760002514*^9, 3.994072777434401*^9}}, - CellLabel-> - "Out[167]=",ExpressionUUID->"3a22d04a-3158-44e8-8223-6354c9ee634e"] + 3.993800386765017*^9, {3.994072760002514*^9, 3.994072777434401*^9}, + 3.9942500450899067`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"533392a3-fbcd-4dbe-bdd1-13d7dd6e73b3"] }, Open ]], Cell[CellGroupData[{ @@ -4542,16 +4467,15 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", - CellLabel-> - "In[168]:=",ExpressionUUID->"481bfac8-bd39-41a3-ad41-8c2640784a04"], + CellLabel->"In[65]:=",ExpressionUUID->"481bfac8-bd39-41a3-ad41-8c2640784a04"], Cell[BoxData[ RowBox[{"-", "7.926031139913374`"}]], "Output", CellChangeTimes->{ 3.991320421349531*^9, 3.993799748598835*^9, 3.993800340479863*^9, - 3.9938003867807913`*^9, {3.994072760013989*^9, 3.994072777446135*^9}}, - CellLabel-> - "Out[168]=",ExpressionUUID->"8024c42c-512e-4797-b3ed-35701d82d5a6"] + 3.9938003867807913`*^9, {3.994072760013989*^9, 3.994072777446135*^9}, + 3.994250045101429*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"8e0a42a6-c82a-4b08-8ac1-bb5ec0dba5ad"] }, Open ]], Cell[CellGroupData[{ @@ -4616,15 +4540,14 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[169]:=",ExpressionUUID->"9a784517-cbe9-4a65-a3cf-ca497f0c56cd"], + CellLabel->"In[66]:=",ExpressionUUID->"9a784517-cbe9-4a65-a3cf-ca497f0c56cd"], Cell[BoxData["154.9009260751736`"], "Output", CellChangeTimes->{ 3.9913204213784294`*^9, 3.993799748618464*^9, 3.993800340498665*^9, - 3.993800386794903*^9, {3.994072760026211*^9, 3.994072777457891*^9}}, - CellLabel-> - "Out[169]=",ExpressionUUID->"efb5b77c-bf34-4709-bce3-f9c5f0095358"] + 3.993800386794903*^9, {3.994072760026211*^9, 3.994072777457891*^9}, + 3.994250045113586*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"01677124-0316-42e0-9210-77574107c6a9"] }, Open ]], Cell[CellGroupData[{ @@ -4665,16 +4588,15 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[170]:=",ExpressionUUID->"22db1a9e-7685-4543-942e-daa17afc4c92"], + CellLabel->"In[67]:=",ExpressionUUID->"22db1a9e-7685-4543-942e-daa17afc4c92"], Cell[BoxData[ RowBox[{"-", "142.60312447586276`"}]], "Output", CellChangeTimes->{ 3.9913204213904285`*^9, 3.993799748639475*^9, 3.993800340517002*^9, - 3.993800386808839*^9, {3.9940727600400333`*^9, 3.994072777469482*^9}}, - CellLabel-> - "Out[170]=",ExpressionUUID->"51a329d0-7529-43c2-9ba6-9d171105ad4d"] + 3.993800386808839*^9, {3.9940727600400333`*^9, 3.994072777469482*^9}, + 3.994250045124858*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"2abc3631-ddd2-4f78-93b2-ec29fae27079"] }, Open ]], Cell[CellGroupData[{ @@ -4740,15 +4662,14 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[171]:=",ExpressionUUID->"204f3bb0-e116-479b-9f68-9eac077c810b"], + CellLabel->"In[68]:=",ExpressionUUID->"204f3bb0-e116-479b-9f68-9eac077c810b"], Cell[BoxData["162.00572953744853`"], "Output", CellChangeTimes->{ 3.991320421419428*^9, 3.993799748660536*^9, 3.993800340536582*^9, - 3.993800386822714*^9, {3.994072760046308*^9, 3.994072777481387*^9}}, - CellLabel-> - "Out[171]=",ExpressionUUID->"ed1c6461-09b3-4d22-80c4-6cf28b346cb3"] + 3.993800386822714*^9, {3.994072760046308*^9, 3.994072777481387*^9}, + 3.994250045136503*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"cd1c39ee-17ad-417e-bf68-da7b987dba53"] }, Open ]], Cell[CellGroupData[{ @@ -4808,15 +4729,14 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}], ")"}]}], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[172]:=",ExpressionUUID->"90be20b1-59e7-4b91-929e-ad873588b320"], + CellLabel->"In[69]:=",ExpressionUUID->"90be20b1-59e7-4b91-929e-ad873588b320"], Cell[BoxData["110.13261932733474`"], "Output", CellChangeTimes->{ 3.9913204214494324`*^9, 3.993799748682187*^9, 3.9938003405568943`*^9, - 3.993800386836596*^9, {3.994072760058202*^9, 3.994072777493164*^9}}, - CellLabel-> - "Out[172]=",ExpressionUUID->"6fd0c9d6-3b49-47d2-b63e-80fa589e88e2"] + 3.993800386836596*^9, {3.994072760058202*^9, 3.994072777493164*^9}, + 3.994250045147867*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"ad078bca-8887-432b-8742-76691b5cb53c"] }, Open ]], Cell[CellGroupData[{ @@ -4874,38 +4794,47 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[173]:=",ExpressionUUID->"6a49a91a-a1ab-456b-bc89-af267d95feac"], + CellLabel->"In[70]:=",ExpressionUUID->"6a49a91a-a1ab-456b-bc89-af267d95feac"], Cell[BoxData["1014.9570765717414`"], "Output", CellChangeTimes->{ 3.991320421481529*^9, 3.993799748705882*^9, 3.9938003405772467`*^9, - 3.993800386850522*^9, {3.994072760069648*^9, 3.994072777505143*^9}}, - CellLabel-> - "Out[173]=",ExpressionUUID->"125b0ab7-f818-4139-a6ee-d9b781f86d17"] + 3.993800386850522*^9, {3.994072760069648*^9, 3.994072777505143*^9}, + 3.9942500451598043`*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"8774b93f-e90d-4336-b748-75dc7023de78"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"f1", "=", "0.3423643297"}]], "Input", - CellChangeTimes->{3.991849227197853*^9, - 3.994082435964718*^9},ExpressionUUID->"c5bb4ac7-6666-c043-9d96-\ -2dda1d801f63"], + CellChangeTimes->{3.991849227197853*^9, 3.994082435964718*^9}, + CellLabel->"In[71]:=",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], + +Cell[BoxData["0.3423643297`"], "Output", + CellChangeTimes->{3.994250045170911*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"ca24c743-2855-494d-8e3f-bb7f4409e412"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991849227899128*^9, - 3.9918492279041367`*^9}},ExpressionUUID->"93cad80c-1de7-2e4b-9b8c-\ -14a272e65d1f"], + CellChangeTimes->{{3.991849227899128*^9, 3.9918492279041367`*^9}}, + CellLabel->"In[72]:=",ExpressionUUID->"93cad80c-1de7-2e4b-9b8c-14a272e65d1f"], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f2", "=", "0.1470031674"}]], "Input", - CellChangeTimes->{3.9918492290557346`*^9, - 3.994082443635817*^9},ExpressionUUID->"1dc76a14-b094-5f49-81bb-\ -fc37192f9bb8"], + CellChangeTimes->{3.9918492290557346`*^9, 3.994082443635817*^9}, + CellLabel->"In[73]:=",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], + +Cell[BoxData["0.1470031674`"], "Output", + CellChangeTimes->{3.99425004518499*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"c016737e-151b-4d34-8627-6392ed76d5fe"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991849229804535*^9, - 3.991849229809536*^9}},ExpressionUUID->"15fe72e6-19f0-9540-b29f-\ -3056e2e0b957"], + CellChangeTimes->{{3.991849229804535*^9, 3.991849229809536*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"15fe72e6-19f0-9540-b29f-3056e2e0b957"], Cell[CellGroupData[{ @@ -4951,13 +4880,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel-> - "In[233]:=",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], + CellLabel->"In[75]:=",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], -Cell[BoxData["2.3793916761039797`*^-53"], "Output", - CellChangeTimes->{3.9913335367025833`*^9}, - CellLabel-> - "Out[233]=",ExpressionUUID->"1db85c02-7ca3-154e-854d-2c36f89709c4"] +Cell[BoxData["1.3128345860136716`*^-53"], "Output", + CellChangeTimes->{3.9913335367025833`*^9, 3.994250045199279*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"4b40cfc7-ec87-4322-bd9f-f2a4f5d920be"] }, Open ]], Cell[CellGroupData[{ @@ -4991,14 +4918,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.9915575926932735`*^9},ExpressionUUID->"e4db2648-4e1a-2c46-83ab-\ -fcd932c3b663"], + CellChangeTimes->{3.9915575926932735`*^9}, + CellLabel->"In[76]:=",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], -Cell[BoxData["5.020725113795862`*^-55"], "Output", - CellChangeTimes->{3.991333536726557*^9}, - CellLabel-> - "Out[234]=",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] +Cell[BoxData["4.334393130350584`*^-55"], "Output", + CellChangeTimes->{3.991333536726557*^9, 3.994250045211635*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"62294aba-9931-4c42-b98f-b1ecaf15071f"] }, Open ]], Cell[CellGroupData[{ @@ -5031,14 +4956,12 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.991557595005127*^9, - 3.991557596789215*^9}},ExpressionUUID->"e4649c3d-e19e-ca42-95a0-\ -23b66397f1fd"], + CellChangeTimes->{{3.991557595005127*^9, 3.991557596789215*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], -Cell[BoxData["1.871372642785671`*^-54"], "Output", - CellChangeTimes->{3.9913335367515736`*^9}, - CellLabel-> - "Out[235]=",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] +Cell[BoxData["8.640107903234213`*^-55"], "Output", + CellChangeTimes->{3.9913335367515736`*^9, 3.994250045223062*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"991c1a9c-9a77-4ac2-a12b-2d755c204e80"] }, Open ]], Cell[CellGroupData[{ @@ -5061,13 +4984,11 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel-> - "In[236]:=",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], + CellLabel->"In[78]:=",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], -Cell[BoxData["25.178011816139865`"], "Output", - CellChangeTimes->{3.9913335367605553`*^9}, - CellLabel-> - "Out[236]=",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] +Cell[BoxData["11.764668489835826`"], "Output", + CellChangeTimes->{3.9913335367605553`*^9, 3.99425004523458*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"33973faf-c64b-4cd5-8b7f-bd4bf417da7d"] }, Open ]], Cell[CellGroupData[{ @@ -5092,13 +5013,11 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", - CellLabel-> - "In[237]:=",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], + CellLabel->"In[79]:=",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], -Cell[BoxData["31.32034821453639`"], "Output", - CellChangeTimes->{3.991333536783556*^9}, - CellLabel-> - "Out[237]=",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +Cell[BoxData["17.135716707913186`"], "Output", + CellChangeTimes->{3.991333536783556*^9, 3.994250045246047*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"00ddf72e-9ea9-415c-9162-28569b88ff3f"] }, Open ]], Cell[CellGroupData[{ @@ -5107,13 +5026,11 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel-> - "In[238]:=",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], + CellLabel->"In[80]:=",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], -Cell[BoxData["0.7475613664925793`"], "Output", - CellChangeTimes->{3.9913335367915726`*^9}, - CellLabel-> - "Out[238]=",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +Cell[BoxData["3.05962455155033`"], "Output", + CellChangeTimes->{3.9913335367915726`*^9, 3.9942500452572927`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"3c1c6cdf-bebd-43e8-9d4a-4f4cb2be42d6"] }, Open ]], Cell[CellGroupData[{ @@ -5122,13 +5039,11 @@ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", - CellLabel-> - "In[239]:=",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], + CellLabel->"In[81]:=",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], -Cell[BoxData["3.5403946764909393`"], "Output", - CellChangeTimes->{3.99133353681583*^9}, - CellLabel-> - "Out[239]=",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +Cell[BoxData["7.696135424543424`"], "Output", + CellChangeTimes->{3.99133353681583*^9, 3.99425004526847*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"a8696601-7344-4550-bf2e-e19f161fc4eb"] }, Open ]], Cell[CellGroupData[{ @@ -5137,13 +5052,11 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel-> - "In[240]:=",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], + CellLabel->"In[82]:=",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], -Cell[BoxData["110.88639408458714`"], "Output", - CellChangeTimes->{3.991333536826782*^9}, - CellLabel-> - "Out[240]=",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +Cell[BoxData["131.8787963807113`"], "Output", + CellChangeTimes->{3.991333536826782*^9, 3.9942500452796507`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"0341bd24-61d1-41a8-9841-fe45300ce06a"] }, Open ]], Cell[CellGroupData[{ @@ -5152,13 +5065,11 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[241]:=",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], + CellLabel->"In[83]:=",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], -Cell[BoxData["18.822108918839827`"], "Output", - CellChangeTimes->{3.9913335368508377`*^9}, - CellLabel-> - "Out[241]=",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +Cell[BoxData["35.995468552352236`"], "Output", + CellChangeTimes->{3.9913335368508377`*^9, 3.994250045290927*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"08a50a2f-e321-4d23-8a8c-774500b60b20"] }, Open ]], Cell[CellGroupData[{ @@ -5347,13 +5258,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[242]:=",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], + CellLabel->"In[84]:=",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], -Cell[BoxData["0.042044960793272385`"], "Output", - CellChangeTimes->{3.9913335368758316`*^9}, - CellLabel-> - "Out[242]=",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +Cell[BoxData["0.006599543624683421`"], "Output", + CellChangeTimes->{3.9913335368758316`*^9, 3.9942500453034763`*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"bd0cfc13-54dd-4cf6-95c1-0eccc2d48bec"] }, Open ]], Cell[CellGroupData[{ @@ -5366,13 +5275,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[243]:=",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], + CellLabel->"In[85]:=",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], -Cell[BoxData["4.322031867849089`"], "Output", - CellChangeTimes->{3.991333536973074*^9}, - CellLabel-> - "Out[243]=",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +Cell[BoxData["10.909076535707499`"], "Output", + CellChangeTimes->{3.991333536973074*^9, 3.994250045451605*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"555b7ddf-c6f5-4485-8aba-0fd65459a43f"] }, Open ]], Cell[CellGroupData[{ @@ -5563,13 +5470,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[244]:=",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], + CellLabel->"In[86]:=",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], -Cell[BoxData["0.011395075201487413`"], "Output", - CellChangeTimes->{3.9913335369870644`*^9}, - CellLabel-> - "Out[244]=",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +Cell[BoxData["0.027370104991535398`"], "Output", + CellChangeTimes->{3.9913335369870644`*^9, 3.9942500454730177`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"958ef760-a2b3-48b4-8649-79614eddcd78"] }, Open ]], Cell[CellGroupData[{ @@ -5582,13 +5487,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[245]:=",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], + CellLabel->"In[87]:=",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], -Cell[BoxData["8.302069082299768`"], "Output", - CellChangeTimes->{3.9913335370800858`*^9}, - CellLabel-> - "Out[245]=",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +Cell[BoxData["5.3568157514595125`"], "Output", + CellChangeTimes->{3.9913335370800858`*^9, 3.99425004551336*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"b5652896-be6f-43e6-a9f8-eb27973e50db"] }, Open ]], Cell[CellGroupData[{ @@ -5680,13 +5583,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[246]:=",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], + CellLabel->"In[88]:=",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], -Cell[BoxData["0.7884625602161153`"], "Output", - CellChangeTimes->{3.9913335370930634`*^9}, - CellLabel-> - "Out[246]=",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +Cell[BoxData["0.06403372334152496`"], "Output", + CellChangeTimes->{3.9913335370930634`*^9, 3.994250045530497*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"b83fb571-fb62-4e91-a860-e438bae294bc"] }, Open ]], Cell[CellGroupData[{ @@ -5775,13 +5676,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[247]:=",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], + CellLabel->"In[89]:=",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], -Cell[BoxData["0.21153743978388478`"], "Output", - CellChangeTimes->{3.991333537118065*^9}, - CellLabel-> - "Out[247]=",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +Cell[BoxData["0.9359662766584752`"], "Output", + CellChangeTimes->{3.991333537118065*^9, 3.9942500455387783`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"3a14ff92-7e31-4482-b079-e74ebe8c4a06"] }, Open ]], Cell[CellGroupData[{ @@ -5903,19 +5802,17 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel-> - "In[248]:=",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], + CellLabel->"In[90]:=",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], -Cell[BoxData["0.16678935135356415`"], "Output", - CellChangeTimes->{3.9913335371420746`*^9}, - CellLabel-> - "Out[248]=",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] +Cell[BoxData["0.059933405616546`"], "Output", + CellChangeTimes->{3.9913335371420746`*^9, 3.994250045553701*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"cfe51ec8-65a5-4b20-9b96-27530a5528fc"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"ba4a3eff-9e3b-\ -5e47-a896-3a959bbbf44d"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], Cell[CellGroupData[{ @@ -5976,65 +5873,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849241512779*^9},ExpressionUUID->"738a48f3-b38c-f441-aec4-\ -53babaa73a14"], + CellChangeTimes->{3.991849241512779*^9}, + CellLabel->"In[92]:=",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ -\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 249, 217, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335371540604`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.1169035812132835`*^-201\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 1, + 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335371540604`*^9, 3.994250045587254*^9}, CellLabel-> "During evaluation of \ -In[249]:=",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], +In[92]:=",ExpressionUUID->"c4414eab-1161-4f16-9232-d62e4c9b2a2f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ -\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ -\\\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 249, 218, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335371630745`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0915115400938769`*^-205\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 2, + 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335371540604`*^9, 3.9942500456057453`*^9}, CellLabel-> "During evaluation of \ -In[249]:=",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], +In[92]:=",ExpressionUUID->"f9c6c8d6-7b74-4260-9a92-64811d570e48"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ -\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ -000\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 249, 219, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335371710587`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.822375030588354`*^-210\\\", \ +RowBox[{\\\"668859810497440244092067196564426051030\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3165635789279094374400000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 3, + 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335371540604`*^9, 3.994250045610497*^9}, CellLabel-> "During evaluation of \ -In[249]:=",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], +In[92]:=",ExpressionUUID->"196642d1-25b6-439b-9d24-8af817de90d3"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 249, 220, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133353717906*^9}, +during this calculation.\"", 2, 92, 4, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335371540604`*^9, 3.9942500456138067`*^9}, CellLabel-> "During evaluation of \ -In[249]:=",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], +In[92]:=",ExpressionUUID->"f018a22d-f98e-4c21-a386-f899258940e4"], -Cell[BoxData["4.322031867849086`"], "Output", - CellChangeTimes->{3.9913335399194164`*^9}, - CellLabel-> - "Out[249]=",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +Cell[BoxData["10.90907653570749`"], "Output", + CellChangeTimes->{3.9913335399194164`*^9, 3.994250046923027*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"8776225d-f3d9-4346-a18f-88f1a9f5210d"] }, Open ]], Cell[CellGroupData[{ @@ -6096,65 +6001,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918492463930817`*^9},ExpressionUUID->"86c33485-ed26-8f49-b3d0-\ -7d040d3b48f0"], + CellChangeTimes->{3.9918492463930817`*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ -\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 250, 221, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335399544125`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.1169035812132835`*^-201\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 5, + 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335399544125`*^9, 3.994250046996771*^9}, CellLabel-> "During evaluation of \ -In[250]:=",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], +In[93]:=",ExpressionUUID->"a7e6e0db-7d36-4a46-87aa-7c63a6c787b4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ -\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ -\\\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 250, 222, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335399644184`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0915115400938769`*^-205\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 6, + 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335399544125`*^9, 3.994250047000086*^9}, CellLabel-> "During evaluation of \ -In[250]:=",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], +In[93]:=",ExpressionUUID->"47d03fd3-1aab-4196-9fff-ae3c046ffb0e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ -\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ -000\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 250, 223, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333539972414*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.822375030588354`*^-210\\\", \ +RowBox[{\\\"668859810497440244092067196564426051030\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3165635789279094374400000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 7, + 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335399544125`*^9, 3.994250047002874*^9}, CellLabel-> "During evaluation of \ -In[250]:=",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], +In[93]:=",ExpressionUUID->"8edc570e-5ea5-4481-93c7-d09754193098"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 250, 224, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333539979416*^9}, +during this calculation.\"", 2, 93, 8, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335399544125`*^9, 3.994250047005353*^9}, CellLabel-> "During evaluation of \ -In[250]:=",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], +In[93]:=",ExpressionUUID->"ca9d1bd4-b3e9-4903-b29b-b3878a31cd65"], -Cell[BoxData["8.302069082299772`"], "Output", - CellChangeTimes->{3.991333542631773*^9}, - CellLabel-> - "Out[250]=",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +Cell[BoxData["5.356815751459507`"], "Output", + CellChangeTimes->{3.991333542631773*^9, 3.9942500482478237`*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"a698ebcb-21b1-4a5d-ad8c-32a409bb0dfe"] }, Open ]], Cell[CellGroupData[{ @@ -6164,138 +6077,142 @@ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ - FractionBox[ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", RowBox[{ - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", - RowBox[{"Cos", "[", - FractionBox[ - RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], - RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918492535482903`*^9},ExpressionUUID->"f373fe4f-940c-0842-9236-\ -63ec36d318ad"], + CellChangeTimes->{3.9918492535482903`*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX -URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf -Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 -cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF -XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o -Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF -ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w -BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk -L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg -nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 -g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 -wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d -rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V -guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h -Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI -7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 -KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju -0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ -ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j -tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v -r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN -mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln -Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 -dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO -kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw -6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ -4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb -bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 -G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV -hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm -5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm -d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 -N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw -6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs -M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h -CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc -6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r -2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I -zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc -ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW -H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 -367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL -MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX -rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY -lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm -GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap -xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ -A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht -vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF -bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV -iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R -xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj -9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA -nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh -NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 -5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D -gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB -k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq -Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN -BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq -QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L -JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl -IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf -YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix -J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot -/i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb -3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ -X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx -BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu -JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q -PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS -hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w -Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy -qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 -WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1XlcTdsXAPCUkiYqTVKaiUq6jaa1VEppVjQhufeocKPohZSe4qFZyFga +aFIqpYlfFEKvIjNxbpM0aU7dg99+f5zP+Xw/+6y11zl77X3U/YPdOIICAgK9 +5PrvfqDZYMm91uZ1GdXSn08n0LBuKNvE37oQ5nqLLThDTKebpmpZ10LznuGa +/+zC/ldEgvUYlvPr284Sl4RH1QtbNwGzMNYnnvj0E8W6qPyXwO1mbU4krmo9 +cJ0xegPbI1qrk4n7Pj6POFzzHkTn+qSkEi/s1vSZtPoMdrVtHy4Sb/oRYRHa +9BXYzauSrxA/YPrEw/N5YBiVVJlO/DZa4WgFtxNm5N44ZxMPiVj3jRt1QxFP +dGsesUjcfi/WVA/EmOs1FxGrSl9rPFDTCwfDofwusZPy5M0hqwHgupi1PSSm +MjTk9UWHoPTZIrFnxFHazrF7mn5A3NDYnVbi9wqvVx7MH4Fx58NOPGK2d1Dg +ubhR4OUt3dBHPHxV4EYpdwwmvr8oGCMW1dCfP2I0Ab15w41zEmlIZdfbzpeb +BIsToVEyxGq3vKJWTE1C6MRAjgqxud7JoX01P8E6/4mlCXGA6demPisGNi7W +qw0kHg8/NFtM5xcIbzky+hfx8RrxNbqiv6F27HHaSeI0NC/Y3fQHOr28THKI +2TmN1iH5szBVP6HoG3H+k3N0tLIg2jR0saeJh79tj0iOE8Sb+9efFU+iIWLZ +RNkdrhBeH5ZeupI4tVhd84eRMHpEsDKjiT+2Djz4nSWMrKNf3l8gVhu95y0l +J4Jmiy9HFRIXGjul6E+JoIG+ncoH4oaqI7P21ojiaMedS2bJNEzUt33ttZLA +Jq5s2twUGmQcJOYffSCBXKvNJkuJDV9bo6SFJK5LD9hiSxzUVZ6x0kAKlzxV +0TpFvF+wyXCtxHzMVpwelDhHQ7dG0UjspDSGfGxZuzKVfB/q+dwWlgzSVjlK +nsSCBT3qigdkkOUecTiKWI212C2/Xwb7P69+3ELsbZVU2kzLYt0vr/iw8zS0 +7AoJVXghhzelBDo/X6Dhy62Es36i8qgxcURA4iINA/35WXkb5PGgiEHmamKx +g51tq+vk8XrFppCrxNYx7sZ+5Qo4M9i6gZ1GQ3W26URuuhLad0ffl7hMQ3b3 +TNiqgyro8PKS5MNrNGz0OPUl9LYKRiS/O8YQDzTI2tzuUcGeX292ml+nwThb +T07NSxXdPLRjS4gb/LeXCa9bjEOSJyzy0mkY/UH/1XtCDb2X/vItukGD7D7r +u2WOGqjyV0bRvJs09GSLBbgEaWB/VEy6F3Hl51blwZMaaK5eOzub2Ndh2wmd +Og2sur5Kb9UtUt/yMLdLRppo5ys8vCeXzN93azhSQQuXFIU4d+fT4L5bXN+e +p40Tee6pK+7QAGEeRlt/aWPglyjfk8TLYtPN2Eo6uCdM+3w7sUAWyzLSVQeP +t01ujS+h4fYXn62lD3Xw0JC71mgp2Z9bCqMXZi5BHXO99tZyUp+149s+f11c +V2Q601FDQ9bmi5+mInWxuWB7u20tDQn+PHr2FV0c1Xu68jYx+/ihftU2XUzY +e9Dg8H0apGuvCWy2WoaRfsxf8v8j/cMaWlajuRwrvR64Uo9oUNZIjDrbpYex +P/e7+jyjofbMuO60oD5W/qo1fE/sO+b1mlLXx7saXhc8ntNwvUFL13K7Piqm +5467vqBBY3f1q5/v9NGNqvjt8i9538JubeqFASpKgWvASxpUlFUpNS9DTHhR +bMZ8oEEv56AEH4xw7KVpYM0ADf7sExP6Tkb42Sw7xXmQ7FfNlC9+vkaoJb6f +1UUslFl850m4ETLf7D9J/SD77Xqfe0qJEU6V6zwOHCHnaZrfNV1NFi5z9BYz +nSTre9bBwFPEGD+r7c1aKsCDGyFaLuVNJuhQMBIcLseD0i91ZxU/m+ColGml +hTwPHtlve3q03wQrGjoT+cRdGhfWWYqZoo1E5eBxRR7otM3Rb7E1xfGKYXaK +Mg8KWf1zvz8yRd365c6t6jyoHC+pX1RlhmUGbtGVBjxoDQOzmBwLtBssGl9r +zwP17W+ctu1di7f+nlQWPsUDzp+KIpXDiIkHxAqmn/JAob9yjoK/JRb8JahW +q9ABB1lrPqcss8a3XYIqNns6wH+QaZTt24C/X3W6CT3pgNuWoXPSW2xR4vyx +ySdGnZA9HvSwMNUOy8OC1/hkdsLP9Yr/NkRtwpJaIZcWnS5oFxAa4e10xPmR +oc+Ey7uAuyg4KVrTGccOaaWJbiD/hcDGuvOxLqTf/1dtPtQNR8aUppYHumJJ +83AtL60HJuxttjzd4YZrKVWWq983sPBJXt/tuhnjL3tUc1m98ErpWlADyx2b +FNY9vSzyHRbePFGbu9QD54wWzGTwv0MlvczBSXILmuvlqE/86APV18O7wwa3 +4DXek38ODPUD63xyYRa9FWWfjS1IlR2Ea7PHDFLqPVHuTU6Gk8kQVKxf8TG2 +ygtdL+jDxPEfkGZ2RprJ98YAUXwtt3cYWj7lnGTF+eDTLTm+jbIjUO54VWv/ +cV/cdtibm/ByBEb2bRbgsrdhzGmrV+dOj8KEjW7AkNV2XHWh7V2Z1RjkDn74 +GWq6A4OEPBgJ2XHwvJGza5uEH/Z2xUT7vB+HstJNO4RO+eGKlXItL+5MgIXy +q+nT035ovtFaPvLoJGjSuz++DNyJfq41pq9xCrrE9zhf7dyJhSXxWTyZn9Ca +4LTL1sMfjXS4prdaf0JqeLr4oVZ//Li12nJf6jTUPvgzvctuFz4UnX7GtZ2B +eb54ilW9C5uFlo9Uf50BC7+h3FhjNlbv3jlZf4APNy8NhzqZsnHVmsDGmlA+ +LGgbXadgzsYIRsu79BAfhjZMvc5dzUb7OOfqK4f55PwSmNVkycbgP5m+O6L5 +IDUl7SXjysbvtlVZeUl86Io3mZu+j42mHvqqNkV8SKiJCKy8ycY8Vd+3kd18 +2Gd00SI8l41qCvUvlL7xwSGvZK55Pht19sQFlfXyQexiT96922x8tcYxs6Of +D7EhLn0Vd9nYrNA0YDjKhwhdrT3lj9io900wOu43H4Iuvthb+oWNKlJf3dbI +M2An1bMmhGbjjGX8yQIFBpbGCkgadbDRLjzaXUmJgZ4Qk9sl3WyUuL///rAy +Azud0gfvDLDRuH2kIkGdAU/hUG7xDBt38qe7T+oxYBu6cH+hPAeVuDHGnPUM +PEo/aZ+iyMGzDRzlR5YMrGka1QpfSLxYy1HFmgFD7RcfrFQ5uLHeILHZhgGl +d0etPmlz8LmDb9QiBwb6V7XLi5lwcEH0nBucLQwkCmbc372Zg3qxDkl5gQyI +rZBIc/TgYMWXWF5zEAMxPuEhrK0cBLlD3NE9DITfdVnyx5uDo5pVFsZcUj81 +K/mCPweHPd6dzgxhgPXcn/34AAfPuB0r1T3KwLtkbXHNJA5+t7u/9esZBopA +MqA3mYN5m+BKzVmSf3C84fY5Ei8+YnchjgEju4ZI84scXBT84JtNAgMJArtG +Ha9zsPmrgsr5ZAZsgjM+hBdycExAf2X3RQZUVP4xXVfEwXtvvURy0xgYfx58 +TugOB3/H+VoGXmIgUwccE8o4+A9+Hey5zMCv9va6rGoOrkp5L95yjYG7Dsq5 +zY0cDL5hr++WxcDZGUHh1OcctBcMdOMT++f27fRq4mDAu38+ZmYzMH92tXJX +CwcdHftkBnMY2FvjmTj9loObtqupcnMZ0Fx2IUyrm4NOUUeDNW4zMPPuWNv3 +Hg76ARaUELfGcgyLezkYE15tA0UMRPKM+ywGOOiO8656FDPwMa1tm/MYB2kx +xRpuCQMpc6Q3HJlFYUKEX5ZbOQO1o+0+B4UozChAuzfE39rzQ7jCFOb4DXR5 +VJB+uGud4T+XjJ9rYlzukX7zC+fbS1Ooc7c/16CK1O+wQWaDLIUN+dumMohX +m8noghyFUkO/LKSrGUiSLNzCUqLQapH4lX7i1dVfS5TVKex+4f70VC0DVE5h +o5wmhWvbVpR+J05KOvx1njaFXbptiXb3yXyUrORsXQr1sFVD6AEZl7UNGDCk +0Fp9V9a2/zFQ/Vs2qseIwrIMC7Vi4u7v9HnamMJCkfyE38Sr6o7UvzYn7ngJ +F+sY6NpbpHofSb0edT+KHzIg5XnU5J4lhZsCOiaGiS2sNjqUWFMo/P7WwIpH +pF+UOg7nbKQwzaC04BZx5ezipHR7Ej9ZH0oTd/44euuSA4WjX2T0FOoZMH8i +9ybehcLmI+L7Ion9Szr6T7lRmCd/eqKIOP5qseDf7hQqZvXvayfuCLEzDPOk +sF5M2sC4gQHJ7fK2+71J/LuiQ77E5nad24J8KTQ//K3wb+L4xcfObvejsLyp +93sjcaWYfaanP4VxEed+9BJ3TMhXubEp9GWudok8Jvl4nS0OFIWWUT8bNYjN +m+702ARQKL3w8tU1xP73jv3CIAoj6sN2uBPHZ9ovWL2XrJ97jHQQcWW8wnIT +Lok/WVV6jLgjvGv9iv3k+UlJq0RiCXaJp24IhUqaRx5dJzZzjgzWPEjG904Z +Fv6Xf9WmkyphFIrJHU+4RxynrXhNIZxCi/XzPtURV8zvLpM+QuG5qQz5RmIe +v+S5eASFJWpG6//9L/+3SJ5wJIVOp+q8W4lNX236+SeKQrP39rteEv8fJoAZ +Pw== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -6309,104 +6226,107 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX -URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf -Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 -cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF -XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o -Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF -ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w -BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk -L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg -nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 -g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 -wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d -rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V -guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h -Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI -7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 -KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju -0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ -ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j -tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v -r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN -mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln -Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 -dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO -kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw -6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ -4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb -bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 -G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV -hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm -5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm -d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 -N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw -6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs -M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h -CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc -6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r -2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I -zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc -ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW -H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 -367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL -MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX -rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY -lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm -GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap -xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ -A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht -vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF -bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV -iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R -xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj -9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA -nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh -NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 -5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D -gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB -k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq -Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN -BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq -QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L -JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl -IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf -YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix -J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot -/i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb -3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ -X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx -BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu -JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q -PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS -hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w -Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy -qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 -WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= +1:eJwV1XlcTdsXAPCUkiYqTVKaiUq6jaa1VEppVjQhufeocKPohZSe4qFZyFga +aFIqpYlfFEKvIjNxbpM0aU7dg99+f5zP+Xw/+6y11zl77X3U/YPdOIICAgK9 +5PrvfqDZYMm91uZ1GdXSn08n0LBuKNvE37oQ5nqLLThDTKebpmpZ10LznuGa +/+zC/ldEgvUYlvPr284Sl4RH1QtbNwGzMNYnnvj0E8W6qPyXwO1mbU4krmo9 +cJ0xegPbI1qrk4n7Pj6POFzzHkTn+qSkEi/s1vSZtPoMdrVtHy4Sb/oRYRHa +9BXYzauSrxA/YPrEw/N5YBiVVJlO/DZa4WgFtxNm5N44ZxMPiVj3jRt1QxFP +dGsesUjcfi/WVA/EmOs1FxGrSl9rPFDTCwfDofwusZPy5M0hqwHgupi1PSSm +MjTk9UWHoPTZIrFnxFHazrF7mn5A3NDYnVbi9wqvVx7MH4Fx58NOPGK2d1Dg +ubhR4OUt3dBHPHxV4EYpdwwmvr8oGCMW1dCfP2I0Ab15w41zEmlIZdfbzpeb +BIsToVEyxGq3vKJWTE1C6MRAjgqxud7JoX01P8E6/4mlCXGA6demPisGNi7W +qw0kHg8/NFtM5xcIbzky+hfx8RrxNbqiv6F27HHaSeI0NC/Y3fQHOr28THKI +2TmN1iH5szBVP6HoG3H+k3N0tLIg2jR0saeJh79tj0iOE8Sb+9efFU+iIWLZ +RNkdrhBeH5ZeupI4tVhd84eRMHpEsDKjiT+2Djz4nSWMrKNf3l8gVhu95y0l +J4Jmiy9HFRIXGjul6E+JoIG+ncoH4oaqI7P21ojiaMedS2bJNEzUt33ttZLA +Jq5s2twUGmQcJOYffSCBXKvNJkuJDV9bo6SFJK5LD9hiSxzUVZ6x0kAKlzxV +0TpFvF+wyXCtxHzMVpwelDhHQ7dG0UjspDSGfGxZuzKVfB/q+dwWlgzSVjlK +nsSCBT3qigdkkOUecTiKWI212C2/Xwb7P69+3ELsbZVU2kzLYt0vr/iw8zS0 +7AoJVXghhzelBDo/X6Dhy62Es36i8qgxcURA4iINA/35WXkb5PGgiEHmamKx +g51tq+vk8XrFppCrxNYx7sZ+5Qo4M9i6gZ1GQ3W26URuuhLad0ffl7hMQ3b3 +TNiqgyro8PKS5MNrNGz0OPUl9LYKRiS/O8YQDzTI2tzuUcGeX292ml+nwThb +T07NSxXdPLRjS4gb/LeXCa9bjEOSJyzy0mkY/UH/1XtCDb2X/vItukGD7D7r +u2WOGqjyV0bRvJs09GSLBbgEaWB/VEy6F3Hl51blwZMaaK5eOzub2Ndh2wmd +Og2sur5Kb9UtUt/yMLdLRppo5ys8vCeXzN93azhSQQuXFIU4d+fT4L5bXN+e +p40Tee6pK+7QAGEeRlt/aWPglyjfk8TLYtPN2Eo6uCdM+3w7sUAWyzLSVQeP +t01ujS+h4fYXn62lD3Xw0JC71mgp2Z9bCqMXZi5BHXO99tZyUp+149s+f11c +V2Q601FDQ9bmi5+mInWxuWB7u20tDQn+PHr2FV0c1Xu68jYx+/ihftU2XUzY +e9Dg8H0apGuvCWy2WoaRfsxf8v8j/cMaWlajuRwrvR64Uo9oUNZIjDrbpYex +P/e7+jyjofbMuO60oD5W/qo1fE/sO+b1mlLXx7saXhc8ntNwvUFL13K7Piqm +5467vqBBY3f1q5/v9NGNqvjt8i9538JubeqFASpKgWvASxpUlFUpNS9DTHhR +bMZ8oEEv56AEH4xw7KVpYM0ADf7sExP6Tkb42Sw7xXmQ7FfNlC9+vkaoJb6f +1UUslFl850m4ETLf7D9J/SD77Xqfe0qJEU6V6zwOHCHnaZrfNV1NFi5z9BYz +nSTre9bBwFPEGD+r7c1aKsCDGyFaLuVNJuhQMBIcLseD0i91ZxU/m+ColGml +hTwPHtlve3q03wQrGjoT+cRdGhfWWYqZoo1E5eBxRR7otM3Rb7E1xfGKYXaK +Mg8KWf1zvz8yRd365c6t6jyoHC+pX1RlhmUGbtGVBjxoDQOzmBwLtBssGl9r +zwP17W+ctu1di7f+nlQWPsUDzp+KIpXDiIkHxAqmn/JAob9yjoK/JRb8JahW +q9ABB1lrPqcss8a3XYIqNns6wH+QaZTt24C/X3W6CT3pgNuWoXPSW2xR4vyx +ySdGnZA9HvSwMNUOy8OC1/hkdsLP9Yr/NkRtwpJaIZcWnS5oFxAa4e10xPmR +oc+Ey7uAuyg4KVrTGccOaaWJbiD/hcDGuvOxLqTf/1dtPtQNR8aUppYHumJJ +83AtL60HJuxttjzd4YZrKVWWq983sPBJXt/tuhnjL3tUc1m98ErpWlADyx2b +FNY9vSzyHRbePFGbu9QD54wWzGTwv0MlvczBSXILmuvlqE/86APV18O7wwa3 +4DXek38ODPUD63xyYRa9FWWfjS1IlR2Ea7PHDFLqPVHuTU6Gk8kQVKxf8TG2 +ygtdL+jDxPEfkGZ2RprJ98YAUXwtt3cYWj7lnGTF+eDTLTm+jbIjUO54VWv/ +cV/cdtibm/ByBEb2bRbgsrdhzGmrV+dOj8KEjW7AkNV2XHWh7V2Z1RjkDn74 +GWq6A4OEPBgJ2XHwvJGza5uEH/Z2xUT7vB+HstJNO4RO+eGKlXItL+5MgIXy +q+nT035ovtFaPvLoJGjSuz++DNyJfq41pq9xCrrE9zhf7dyJhSXxWTyZn9Ca +4LTL1sMfjXS4prdaf0JqeLr4oVZ//Li12nJf6jTUPvgzvctuFz4UnX7GtZ2B +eb54ilW9C5uFlo9Uf50BC7+h3FhjNlbv3jlZf4APNy8NhzqZsnHVmsDGmlA+ +LGgbXadgzsYIRsu79BAfhjZMvc5dzUb7OOfqK4f55PwSmNVkycbgP5m+O6L5 +IDUl7SXjysbvtlVZeUl86Io3mZu+j42mHvqqNkV8SKiJCKy8ycY8Vd+3kd18 +2Gd00SI8l41qCvUvlL7xwSGvZK55Pht19sQFlfXyQexiT96922x8tcYxs6Of +D7EhLn0Vd9nYrNA0YDjKhwhdrT3lj9io900wOu43H4Iuvthb+oWNKlJf3dbI +M2An1bMmhGbjjGX8yQIFBpbGCkgadbDRLjzaXUmJgZ4Qk9sl3WyUuL///rAy +Azud0gfvDLDRuH2kIkGdAU/hUG7xDBt38qe7T+oxYBu6cH+hPAeVuDHGnPUM +PEo/aZ+iyMGzDRzlR5YMrGka1QpfSLxYy1HFmgFD7RcfrFQ5uLHeILHZhgGl +d0etPmlz8LmDb9QiBwb6V7XLi5lwcEH0nBucLQwkCmbc372Zg3qxDkl5gQyI +rZBIc/TgYMWXWF5zEAMxPuEhrK0cBLlD3NE9DITfdVnyx5uDo5pVFsZcUj81 +K/mCPweHPd6dzgxhgPXcn/34AAfPuB0r1T3KwLtkbXHNJA5+t7u/9esZBopA +MqA3mYN5m+BKzVmSf3C84fY5Ei8+YnchjgEju4ZI84scXBT84JtNAgMJArtG +Ha9zsPmrgsr5ZAZsgjM+hBdycExAf2X3RQZUVP4xXVfEwXtvvURy0xgYfx58 +TugOB3/H+VoGXmIgUwccE8o4+A9+Hey5zMCv9va6rGoOrkp5L95yjYG7Dsq5 +zY0cDL5hr++WxcDZGUHh1OcctBcMdOMT++f27fRq4mDAu38+ZmYzMH92tXJX +CwcdHftkBnMY2FvjmTj9loObtqupcnMZ0Fx2IUyrm4NOUUeDNW4zMPPuWNv3 +Hg76ARaUELfGcgyLezkYE15tA0UMRPKM+ywGOOiO8656FDPwMa1tm/MYB2kx +xRpuCQMpc6Q3HJlFYUKEX5ZbOQO1o+0+B4UozChAuzfE39rzQ7jCFOb4DXR5 +VJB+uGud4T+XjJ9rYlzukX7zC+fbS1Ooc7c/16CK1O+wQWaDLIUN+dumMohX +m8noghyFUkO/LKSrGUiSLNzCUqLQapH4lX7i1dVfS5TVKex+4f70VC0DVE5h +o5wmhWvbVpR+J05KOvx1njaFXbptiXb3yXyUrORsXQr1sFVD6AEZl7UNGDCk +0Fp9V9a2/zFQ/Vs2qseIwrIMC7Vi4u7v9HnamMJCkfyE38Sr6o7UvzYn7ngJ +F+sY6NpbpHofSb0edT+KHzIg5XnU5J4lhZsCOiaGiS2sNjqUWFMo/P7WwIpH +pF+UOg7nbKQwzaC04BZx5ezipHR7Ej9ZH0oTd/44euuSA4WjX2T0FOoZMH8i +9ybehcLmI+L7Ion9Szr6T7lRmCd/eqKIOP5qseDf7hQqZvXvayfuCLEzDPOk +sF5M2sC4gQHJ7fK2+71J/LuiQ77E5nad24J8KTQ//K3wb+L4xcfObvejsLyp +93sjcaWYfaanP4VxEed+9BJ3TMhXubEp9GWudok8Jvl4nS0OFIWWUT8bNYjN +m+702ARQKL3w8tU1xP73jv3CIAoj6sN2uBPHZ9ovWL2XrJ97jHQQcWW8wnIT +Lok/WVV6jLgjvGv9iv3k+UlJq0RiCXaJp24IhUqaRx5dJzZzjgzWPEjG904Z +Fv6Xf9WmkyphFIrJHU+4RxynrXhNIZxCi/XzPtURV8zvLpM+QuG5qQz5RmIe +v+S5eASFJWpG6//9L/+3SJ5wJIVOp+q8W4lNX236+SeKQrP39rteEv8fJoAZ +Pw== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.9887929549829119, - 1.0113097844802965`}}, + "PlotRange" -> {{0, 180}, {0.5173997209766021, + 1.7982953909500006`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.9887929549829141}, + "AxesOrigin" -> {0, 0.5173997209766033}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -6418,130 +6338,133 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.9887929549829119, - 1.0113097844802965`}}, + "PlotRange" -> {{0, 180}, {0.5173997209766021, + 1.7982953909500006`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.9887929549829141}, + "AxesOrigin" -> {0, 0.5173997209766033}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{120.79808473007536`, - 258.9819285854564}, {-15.577506565567944`, 5.594368434432056}}], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX -URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf -Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 -cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF -XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o -Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF -ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w -BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk -L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg -nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 -g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 -wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d -rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V -guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h -Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI -7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 -KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju -0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ -ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j -tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v -r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN -mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln -Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 -dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO -kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw -6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ -4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb -bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 -G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV -hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm -5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm -d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 -N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw -6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs -M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h -CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc -6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r -2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I -zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc -ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW -H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 -367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL -MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX -rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY -lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm -GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap -xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ -A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht -vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF -bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV -iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R -xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj -9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA -nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh -NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 -5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D -gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB -k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq -Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN -BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq -QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L -JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl -IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf -YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix -J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot -/i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb -3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ -X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx -BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu -JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q -PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS -hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w -Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy -qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 -WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= +1:eJwV1XlcTdsXAPCUkiYqTVKaiUq6jaa1VEppVjQhufeocKPohZSe4qFZyFga +aFIqpYlfFEKvIjNxbpM0aU7dg99+f5zP+Xw/+6y11zl77X3U/YPdOIICAgK9 +5PrvfqDZYMm91uZ1GdXSn08n0LBuKNvE37oQ5nqLLThDTKebpmpZ10LznuGa +/+zC/ldEgvUYlvPr284Sl4RH1QtbNwGzMNYnnvj0E8W6qPyXwO1mbU4krmo9 +cJ0xegPbI1qrk4n7Pj6POFzzHkTn+qSkEi/s1vSZtPoMdrVtHy4Sb/oRYRHa +9BXYzauSrxA/YPrEw/N5YBiVVJlO/DZa4WgFtxNm5N44ZxMPiVj3jRt1QxFP +dGsesUjcfi/WVA/EmOs1FxGrSl9rPFDTCwfDofwusZPy5M0hqwHgupi1PSSm +MjTk9UWHoPTZIrFnxFHazrF7mn5A3NDYnVbi9wqvVx7MH4Fx58NOPGK2d1Dg +ubhR4OUt3dBHPHxV4EYpdwwmvr8oGCMW1dCfP2I0Ab15w41zEmlIZdfbzpeb +BIsToVEyxGq3vKJWTE1C6MRAjgqxud7JoX01P8E6/4mlCXGA6demPisGNi7W +qw0kHg8/NFtM5xcIbzky+hfx8RrxNbqiv6F27HHaSeI0NC/Y3fQHOr28THKI +2TmN1iH5szBVP6HoG3H+k3N0tLIg2jR0saeJh79tj0iOE8Sb+9efFU+iIWLZ +RNkdrhBeH5ZeupI4tVhd84eRMHpEsDKjiT+2Djz4nSWMrKNf3l8gVhu95y0l +J4Jmiy9HFRIXGjul6E+JoIG+ncoH4oaqI7P21ojiaMedS2bJNEzUt33ttZLA +Jq5s2twUGmQcJOYffSCBXKvNJkuJDV9bo6SFJK5LD9hiSxzUVZ6x0kAKlzxV +0TpFvF+wyXCtxHzMVpwelDhHQ7dG0UjspDSGfGxZuzKVfB/q+dwWlgzSVjlK +nsSCBT3qigdkkOUecTiKWI212C2/Xwb7P69+3ELsbZVU2kzLYt0vr/iw8zS0 +7AoJVXghhzelBDo/X6Dhy62Es36i8qgxcURA4iINA/35WXkb5PGgiEHmamKx +g51tq+vk8XrFppCrxNYx7sZ+5Qo4M9i6gZ1GQ3W26URuuhLad0ffl7hMQ3b3 +TNiqgyro8PKS5MNrNGz0OPUl9LYKRiS/O8YQDzTI2tzuUcGeX292ml+nwThb +T07NSxXdPLRjS4gb/LeXCa9bjEOSJyzy0mkY/UH/1XtCDb2X/vItukGD7D7r +u2WOGqjyV0bRvJs09GSLBbgEaWB/VEy6F3Hl51blwZMaaK5eOzub2Ndh2wmd +Og2sur5Kb9UtUt/yMLdLRppo5ys8vCeXzN93azhSQQuXFIU4d+fT4L5bXN+e +p40Tee6pK+7QAGEeRlt/aWPglyjfk8TLYtPN2Eo6uCdM+3w7sUAWyzLSVQeP +t01ujS+h4fYXn62lD3Xw0JC71mgp2Z9bCqMXZi5BHXO99tZyUp+149s+f11c +V2Q601FDQ9bmi5+mInWxuWB7u20tDQn+PHr2FV0c1Xu68jYx+/ihftU2XUzY +e9Dg8H0apGuvCWy2WoaRfsxf8v8j/cMaWlajuRwrvR64Uo9oUNZIjDrbpYex +P/e7+jyjofbMuO60oD5W/qo1fE/sO+b1mlLXx7saXhc8ntNwvUFL13K7Piqm +5467vqBBY3f1q5/v9NGNqvjt8i9538JubeqFASpKgWvASxpUlFUpNS9DTHhR +bMZ8oEEv56AEH4xw7KVpYM0ADf7sExP6Tkb42Sw7xXmQ7FfNlC9+vkaoJb6f +1UUslFl850m4ETLf7D9J/SD77Xqfe0qJEU6V6zwOHCHnaZrfNV1NFi5z9BYz +nSTre9bBwFPEGD+r7c1aKsCDGyFaLuVNJuhQMBIcLseD0i91ZxU/m+ColGml +hTwPHtlve3q03wQrGjoT+cRdGhfWWYqZoo1E5eBxRR7otM3Rb7E1xfGKYXaK +Mg8KWf1zvz8yRd365c6t6jyoHC+pX1RlhmUGbtGVBjxoDQOzmBwLtBssGl9r +zwP17W+ctu1di7f+nlQWPsUDzp+KIpXDiIkHxAqmn/JAob9yjoK/JRb8JahW +q9ABB1lrPqcss8a3XYIqNns6wH+QaZTt24C/X3W6CT3pgNuWoXPSW2xR4vyx +ySdGnZA9HvSwMNUOy8OC1/hkdsLP9Yr/NkRtwpJaIZcWnS5oFxAa4e10xPmR +oc+Ey7uAuyg4KVrTGccOaaWJbiD/hcDGuvOxLqTf/1dtPtQNR8aUppYHumJJ +83AtL60HJuxttjzd4YZrKVWWq983sPBJXt/tuhnjL3tUc1m98ErpWlADyx2b +FNY9vSzyHRbePFGbu9QD54wWzGTwv0MlvczBSXILmuvlqE/86APV18O7wwa3 +4DXek38ODPUD63xyYRa9FWWfjS1IlR2Ea7PHDFLqPVHuTU6Gk8kQVKxf8TG2 +ygtdL+jDxPEfkGZ2RprJ98YAUXwtt3cYWj7lnGTF+eDTLTm+jbIjUO54VWv/ +cV/cdtibm/ByBEb2bRbgsrdhzGmrV+dOj8KEjW7AkNV2XHWh7V2Z1RjkDn74 +GWq6A4OEPBgJ2XHwvJGza5uEH/Z2xUT7vB+HstJNO4RO+eGKlXItL+5MgIXy +q+nT035ovtFaPvLoJGjSuz++DNyJfq41pq9xCrrE9zhf7dyJhSXxWTyZn9Ca +4LTL1sMfjXS4prdaf0JqeLr4oVZ//Li12nJf6jTUPvgzvctuFz4UnX7GtZ2B +eb54ilW9C5uFlo9Uf50BC7+h3FhjNlbv3jlZf4APNy8NhzqZsnHVmsDGmlA+ +LGgbXadgzsYIRsu79BAfhjZMvc5dzUb7OOfqK4f55PwSmNVkycbgP5m+O6L5 +IDUl7SXjysbvtlVZeUl86Io3mZu+j42mHvqqNkV8SKiJCKy8ycY8Vd+3kd18 +2Gd00SI8l41qCvUvlL7xwSGvZK55Pht19sQFlfXyQexiT96922x8tcYxs6Of +D7EhLn0Vd9nYrNA0YDjKhwhdrT3lj9io900wOu43H4Iuvthb+oWNKlJf3dbI +M2An1bMmhGbjjGX8yQIFBpbGCkgadbDRLjzaXUmJgZ4Qk9sl3WyUuL///rAy +Azud0gfvDLDRuH2kIkGdAU/hUG7xDBt38qe7T+oxYBu6cH+hPAeVuDHGnPUM +PEo/aZ+iyMGzDRzlR5YMrGka1QpfSLxYy1HFmgFD7RcfrFQ5uLHeILHZhgGl +d0etPmlz8LmDb9QiBwb6V7XLi5lwcEH0nBucLQwkCmbc372Zg3qxDkl5gQyI +rZBIc/TgYMWXWF5zEAMxPuEhrK0cBLlD3NE9DITfdVnyx5uDo5pVFsZcUj81 +K/mCPweHPd6dzgxhgPXcn/34AAfPuB0r1T3KwLtkbXHNJA5+t7u/9esZBopA +MqA3mYN5m+BKzVmSf3C84fY5Ei8+YnchjgEju4ZI84scXBT84JtNAgMJArtG +Ha9zsPmrgsr5ZAZsgjM+hBdycExAf2X3RQZUVP4xXVfEwXtvvURy0xgYfx58 +TugOB3/H+VoGXmIgUwccE8o4+A9+Hey5zMCv9va6rGoOrkp5L95yjYG7Dsq5 +zY0cDL5hr++WxcDZGUHh1OcctBcMdOMT++f27fRq4mDAu38+ZmYzMH92tXJX +CwcdHftkBnMY2FvjmTj9loObtqupcnMZ0Fx2IUyrm4NOUUeDNW4zMPPuWNv3 +Hg76ARaUELfGcgyLezkYE15tA0UMRPKM+ywGOOiO8656FDPwMa1tm/MYB2kx +xRpuCQMpc6Q3HJlFYUKEX5ZbOQO1o+0+B4UozChAuzfE39rzQ7jCFOb4DXR5 +VJB+uGud4T+XjJ9rYlzukX7zC+fbS1Ooc7c/16CK1O+wQWaDLIUN+dumMohX +m8noghyFUkO/LKSrGUiSLNzCUqLQapH4lX7i1dVfS5TVKex+4f70VC0DVE5h +o5wmhWvbVpR+J05KOvx1njaFXbptiXb3yXyUrORsXQr1sFVD6AEZl7UNGDCk +0Fp9V9a2/zFQ/Vs2qseIwrIMC7Vi4u7v9HnamMJCkfyE38Sr6o7UvzYn7ngJ +F+sY6NpbpHofSb0edT+KHzIg5XnU5J4lhZsCOiaGiS2sNjqUWFMo/P7WwIpH +pF+UOg7nbKQwzaC04BZx5ezipHR7Ej9ZH0oTd/44euuSA4WjX2T0FOoZMH8i +9ybehcLmI+L7Ion9Szr6T7lRmCd/eqKIOP5qseDf7hQqZvXvayfuCLEzDPOk +sF5M2sC4gQHJ7fK2+71J/LuiQ77E5nad24J8KTQ//K3wb+L4xcfObvejsLyp +93sjcaWYfaanP4VxEed+9BJ3TMhXubEp9GWudok8Jvl4nS0OFIWWUT8bNYjN +m+702ARQKL3w8tU1xP73jv3CIAoj6sN2uBPHZ9ovWL2XrJ97jHQQcWW8wnIT +Lok/WVV6jLgjvGv9iv3k+UlJq0RiCXaJp24IhUqaRx5dJzZzjgzWPEjG904Z +Fv6Xf9WmkyphFIrJHU+4RxynrXhNIZxCi/XzPtURV8zvLpM+QuG5qQz5RmIe +v+S5eASFJWpG6//9L/+3SJ5wJIVOp+q8W4lNX236+SeKQrP39rteEv8fJoAZ +Pw== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.9887929549829119, 1.0113097844802965`}}, + "PlotRange" -> {{0, 180}, {0.5173997209766021, 1.7982953909500006`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.9887929549829141}, + "AxesOrigin" -> {0, 0.5173997209766033}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -6551,7 +6474,8 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.9887929549829141}, + AxesOrigin->{0, 0.5173997209766033}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -6579,7 +6503,8 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.9887929549829119, 1.0113097844802965`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.5173997209766021, 1.7982953909500006`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -6587,9 +6512,8 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991333813212965*^9}, - CellLabel-> - "Out[251]=",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] + CellChangeTimes->{3.991333813212965*^9, 3.994250385216536*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"29e7b3a9-2b99-4d28-a7f2-5fa8f9e8b22f"] }, Open ]], Cell[CellGroupData[{ @@ -6652,372 +6576,163 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849261714945*^9},ExpressionUUID->"24fa5db0-1063-354a-bd60-\ -c117a27ff3e1"], + CellChangeTimes->{3.991849261714945*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.0784227471040894`*^-281\\\", \ -\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 252, 225, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333813432829*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.187257980322786`*^-262\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, 9, + 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333813432829*^9, 3.994250385776737*^9}, CellLabel-> "During evaluation of \ -In[252]:=",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], +In[95]:=",ExpressionUUID->"1ee73cb9-3cc3-4908-9c81-cd94bb204650"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9214123648785273`*^-295\\\", \ -\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 252, - 226, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333813442087*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.453370991324606`*^-273\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 95, + 10, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333813432829*^9, 3.9942503857866173`*^9}, CellLabel-> "During evaluation of \ -In[252]:=",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], +In[95]:=",ExpressionUUID->"cf91480c-f00a-4348-ac3c-ea78402ef13b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \ -\\\"9.614868462060315`*^-8\\\"}], \\\")\\\"}], \\\"44\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 252, - 227, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333813450123*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2433980155475657`*^-283\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 95, 11, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333813432829*^9, 3.99425038579463*^9}, CellLabel-> "During evaluation of \ -In[252]:=",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], +In[95]:=",ExpressionUUID->"5ac64bf5-b160-4ee1-bf4b-f943c1eb56e2"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 252, 228, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333813469118*^9}, +during this calculation.\"", 2, 95, 12, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333813432829*^9, 3.994250385801771*^9}, CellLabel-> "During evaluation of \ -In[252]:=",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], +In[95]:=",ExpressionUUID->"a1e5c765-015f-46e6-924f-aeaeedbaf17c"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR -X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 -PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s -UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ -x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz -61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv -t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ -EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx -Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 -owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 -9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO -hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR -7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo -RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj -aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz -mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am -pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW -o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK -CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf -6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC -/emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m -5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd -V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ -+65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 -41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR -7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c -FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K -qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq -EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J -iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB -ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 -cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj -uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee -SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU -W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo -vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb -UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz -/lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO -auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS -fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB -J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX -CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb -VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe -pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ -L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ -I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu -GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ -/Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs -j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl -/5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 -ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW -YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH -wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX -BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 -r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss -K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw -dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 -4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 -hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR -4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr -KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk -QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu -CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj -WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn -90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN -2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 -W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga -OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA -8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ -hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h -WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 -bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv -yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV -t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 -K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa -34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK -YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY -X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 -ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX -jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo -a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH -czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa -mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 -NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E -G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ -ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 -SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 -iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR -C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL -0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 -oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md -f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX -62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b -osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH -D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ -/RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp -B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ -Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc -yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc -ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr -JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo -85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq -j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo -AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw -GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi -6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y -B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck -+xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh -uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF -MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK -RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG -FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX -cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj -zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ -mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC -bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN -/WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 -9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l -NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 -8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 -CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA -sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw -FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi -CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj -s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh -OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ -cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O -fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 -8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E -1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU -WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J -XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw -vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV -GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd -KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 -nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu -cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 -yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 -VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P -OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV -HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq -Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 -t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv -pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG -iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V -YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 -fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq -6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 -hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl -t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 -6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp -wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK -rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU -0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O -0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ -H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv -DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE -LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 -NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN -cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB -/jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO -G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M -r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK -4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz -ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa -TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA -1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E -A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ -/UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO -yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY -ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ -CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G -pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 -ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz -KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q -/DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG -invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS -hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV -L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm -1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c -J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx -uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C -Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 -T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP -59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK -DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB -XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB -Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf -VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw -iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n -LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 -BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z -f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC -e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs -6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL -hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd -4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 -cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui -BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU -zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk -ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP -Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd -k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R -PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 -CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj -jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf -vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo -WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN -UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t -0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ -6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe -wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph -whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS -4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r -UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 -+j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P -ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP -O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP -KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw -bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC -ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf -jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS -cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F -3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL -Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 -gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 -/iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l -u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd -PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv -50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 -zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p -HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb -u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr -DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu -xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M -H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W -7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 -GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A -87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp -WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv -tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT -5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 -pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz -yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f -eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa -8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H -vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F -+lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m -Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 -+a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg -y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR -Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 -0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU -F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT -rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c -OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 -R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER -lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g -JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ -fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu -YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ -mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS -F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 -8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz -ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC -9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M -zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD -sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf -Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW -OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV -7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H -vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O -mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 -5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf -X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX -ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh -Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL -IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT -PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc -9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz -uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 -tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU -BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey -Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s -fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs -2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l -thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw -GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s -6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv -/7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq -N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE -43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC -gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr -t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ -MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU -0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q -UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO -2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 -Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 -rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A -b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn -7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi -qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw -18hpWOkpIP0PtXjCHw== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8Vu0bAHCjoTIK2eM5j5Eke8bjupItGREpO0mLpIzKKivjNcp6M0JK +1nMyIpRQpELZKUpaKpGMitfv/P46n+/nfM59zn1f93Vd9yE8fG292FhYWHhY +WVj+f50ffdImHV+kv7srjSPXaad+X65Q8M6hSPC25EkMHZAE3NztITSUCqGs +ewo1BpTgrPXtQfahArC8zjOzagBg05Rg6u/BO7D/5XhBQ78VjDXu8f012AJ+ +7Le39fa5grH05JuZwZfgpfPwq9ULX/g9qHV1enAc1PqZs/atYdC662bRi4JZ +kGTcpDkfTwaxsfqPHgrL8OxRVvWMaCbwH3e9vXYXO66Mx61Vss2DVBXjhj32 +HGhivFc0ZF8hDGcqN89s5MKfrPsjMKIY4ovCutmEN6GhdZLReHYJCF55H5eW +w4ci8h+b+o3LQGhbzaXFYj7sLXP13WRdBiIt0WHOTD7UtBjNMtlfBhLTW89s +aeXDgmSwLzxWBjK7/dwaPvNh9FETI6HkMlBbtaz5Xo0fuRznuRYGy8AqQGBC +tZMfy9T2NoZ7lkOMnZn+y/nNeGBu0STJpwJEqrtE2FgF8FyQSjuHfwVU8Nkt +qGwQwEiLHWHnQypg4KULM0VSAE/HbU63iq8AaZsAuo2pAGoFTxoVlVVAi2Xe +mp4sASzc9Of7mqkKWDae63quJ4i6C7nvSo9VQnJxSOmysSBmKPROWJyuBOk1 +LLHbbQTxva8Tx4eQStj9aP3ORC9BrL21WM52uRKyd9GqdicJYiO7mOfXm5Wg +jRYZT8cEUeWJ459T45VwWue665NIIcyPdzGU28oE83zuXxYJQhiXkeJlrcAE ++trzsV1XhVAQcyLOKDGhp28f2XtLCCczW0pqNZig6MfJPtolhPejBO7yGzDh +c3Fg8U8RYQye9a8EJyYc5N/zXbRKGL9trEuzjmWC2rmGiNxGYWzYcvSDYDwT +1o/LCRCPhdGna0DpdSIT6ivZQXZYGN23DlccSGOCgEV9svKKMCaYR9tr5lLv +j5BWN7IQwfbALFOnKiYY/vgTcvK9CL7aFMTlPMKEYNMr8g+/UZbTPHP3DRMq +rm9/xTcvgr6cdnPcb5kgZOemU88hiuxx/FAzwYRvdY8W2BVFkXcx++/odyak +RSYHZAWJopHSH9WbK0wY3yx7so1LDMPshDI2ECQI+j4QFxQUQ39HcYt1UiTs +7nB87kMTwws/1MVWyZBQGxKvwKMmhkrHvQVm5Ei4PDY9ud9RDA+mp/vdUiZB +taTB+0eBGNbNXfmWACRE6Nm4i2iLo8Sn05WKB0gwdcn9qWUgjouyI0OzB0ng +Dv960X63OEbezLtR40LCtdao4mQ3cbze1CKv5EFCnfm9r2vixNG/XXfq9xES +ph2lzs4Oi2OvTlXV1BkS7ob4rd00IY4X0/cbhAaSEHqtKVNxShzVAkdD1geT +wPnWocGHTQK/L5h8FTpPwhbvBJa38hIoSVce4IokweXM3OVn5ySw29BezzGR +BJkMA7HJKAls+LCYdyeJpNbvn/K1yRIYd5OlZl0yCSFLW3sMiiSQZQznylNJ +uHrRZXP9MwlciRx+3ZVBwrOU9rwb4pKoHGF53/86CWlV/CqtWyTxTFzj2cwC +Epz63Vveqkii1CneL/cKSfgstDQhaiyJuv41y3M3SGDPV5ZPPSmJt9vG5g1v +k7CjIqs69IEkOuyVLDO+Q4LhYNfyVIckdn+9ryVXRcIellUmri8lkTH2fmZN +NQmetieH4YMk+ka2zTbUkGB8jggLX03DzSWaeqvqSXjK01iovZ6GzUK25t2U +rYv2dUxz03D1Ed74jHskHHgev8ldiIa/cnKLJRtJ8JOcL9y5jYbq3QN23A9I +mKtK7vitRMNdHavXtlIOMd32nVSn4ehpmemAZhKiTrlp0vVpGNXp49PzkITs +1s4ONhsa9j9MXnu4jYQ277zvrWdpaFs85sf5hASzJR3e8+do2LT7bP8Vyl3J +fZrq4TQ01RcMEekkYbh+XXhRHA2LbvVHiT8lYWpDAG/UNRoutS7eZXtOwul8 +bi3GdRo+tE7ZfobyonrJgbkbNOQ/yvJ5gjK7y2iRVyUN31b1bW/sIkGIaapl +3ELDBmY2t3kPCTmG7w/895iGn7bINRZTpg9fCK99SkPxqogqlhckbGereiLb +T8P8UcnIMsp30i2nRoep8UJLnP6jrL3tM2/GKA0tVOPCLF+SYGAnfnDtZxpq +1Y8w31Nu/3w3/ME3Gkb+k3lfvpfKpwu2NwJnqO+9AKK+lB2KY6Y+/aHho/Mf +W39Qfr2Dzpe/QkP7aI1NCn0keHQ3ajmuIvBWJifTi/LxxZnwDi4CYxIWJnoo +7zh1WOAjL4FRp9Vj1vSTwDH5qpRdiMAHv9ev0aE84GG1kxCnnGXvcYTyjZHW +AX06gbxFP65doRxgp3384BYCm/RrapsoGzwvYw1RIDDp0EXme8objYmMDBUC +Uye04tcMkDB6/6pCjSaBnu6kiSzlMq31LS91Ccy37v5oQDmEGeowjQTq/jnl +c5Cy6dbZb1zGBH4JDOnxpyxQ4B25zYLAi9WdYtGUJ0ReC5pZE+h6zMgqnfKd +NOvyw/YE1m3pOlJIOZzzkcElJwI3GZodLadsFaUzdN2VwMQv/9pVU5b4r/zE +g0MEOvGUydVR/naWzv7Gh0DOELdP//e9H+mZf04SuHwvP6WWcuyRDYpCAQSW +KtnLkZT3vQtr1QgmkMbqXXaLsrTTL8e9oQRaSjVL5FD++fLIlN9FAp3tLMKT +KDdbvLmYFEuggtivF+cpJ7XZCJclEpjxtJj/COWDjMcVT1IJ7DtnbWZNWb52 +h+GnDALfc435aVD+rVg5vCqHwLdbdyYIUu64KeVLLyDQXf/wtXlqvdNpmavw +JoGDYfoFLymr8kYonSMJHFF/nhpBmSV+ri2zlrr/2TvMjnIX+1Gn2gZq/mah +XtKUj83ZRs08IrD25xTR8P/9cbJdhOcpgXYpan8iKHN80mUq9BD4JLqj24hy +0ZD0iPcrAgO8m8+2UfvP3ybLL2qMQMcSPvMwytjJtaZwgkCxqQwJLcpvGuaV +R6cI5HYQ686h9rdAXke0HTsdJ6v+9TGh8mFCkCHmz0HH/o+L7pNUPt1JJsl/ +uOio13/M8zJlq8js152CdFRdnxb1sJuKh9dx1Z0KdDT9zOPJSeXnvtG37S4q +dHT7q9+cQeWvtIO983lNOnpnpSvSKDeb6sfeRTraGQ4YyD2j1nPbxtHt9tR4 +Y86HN1P1Yj5HJELNiY47/yasxFP15BePjLSOKx3dvTmer3RQ9WNW56ihDx1D +HQc5xtpJGG/wnHe6QMenT3Mlzz8iodPiLnfsDTrSeWRuq1D1rL3pIZl4m45s +7W9XzlH1rk3pmV1aJR2bOJazWu+TcJ/vXXZuPR3T3U7lmTdR8x1Zv6XmOR11 +eglObaqeZh9zgfE5OspxWtqnUPU6482R8U9/6EhedDzBpOr5FavTUd9X6OiU +5PfqGUntJ7XYp4vrpLBfZXXdciUJkX9JBx4JKQzbk5ELZVR841f76RlL4W6D +kXVGRSTolZblp6dLIWvu6UVnqh+N0ErzjP6VQt0LjYX6KVQ+ppfk/sqTwvXC +LqLiVP+6G1F8zbZECo1tbE/3Uv1O1TE/k7tRCssdC8Zk4kjYuvpKcvQ7Kay3 +lAnyCKPi63ou/KyCNNYwOhV2HiWhpi84TEZFGrXjIxTfUP3YzjwotE9DGlNf +nBQJ9CYhVePMeVWQxqC8xuqiQyRwcfoGTdlIIy31B9cnqr+vqvfwOxwojRfX +rWxdt5eEGV5zt30t0ljFqvLyiQ4JQ8fpPUfbpTHFw9+EVZuK9+M/EPaMMtPv +hKYmCckhpZK3BqjvuczsyVIlQXmcc+z3pDTqXb8paLSNhJNkt3MOnwxG6I61 +KoqRMGllf2DikAyCaUycwxITJhLc9vmvlcXyojUHTGqZcHJSga7MKYtXLZfb +xaqZsGDy+/v3jbLYKEIPmSap8xt7apSPiCzeWjK5k1rOBOXg1mq37bLImmiW +3FLEhAtesnxWe2Wxkr1urieVOs/pf+velieLsRUMVuYJJpj9CDT7oLkFi1eC +jKslqPOYJ8fp6jA5ZBau5/BtrqD+JwTZYlq24irtjRLdkuXA+1w2iflDHp8u +T3jbhJaCWGyltaamAqrRwl3GCksgc5vORj7v7Th+o+1T2+ub0CmyU2M2RRGL +RfK4jooUww6xlmSlASWUr5CluagXATd7QYB7pDJe56/7KxRYABIRknr7ZVXQ +WEFa1LAwH9bJHKy1bVfBtdfpWpaDOaDIEK4MdFbFhTD+jbzPs8F/lLfVnEUN +T0b5OGpWZ8CP2QR7s0w1PDcUoBHDfhVMlB5nm21Xx9zG0s0Jqalwf1b370KX +OvaPrL7gKpMMJxVUX73w0kAf1n+FeRQTgDF1qG//Ok1szGzttpGPBSNpIUuu +Ak2MLA5frf3iEsiFXw5q0dJCk6WYFaOJCJD30nkg80oL8xP/y6xRCgWv+0cu +VZ/SRn957pninGB4kN93aGazDj5Yc+tAgfUZ+HVrZUHprg4On9Dd0sM8BZ4y +peuyLXfg4vlze/DKCZiRT9O8M70DD9VcIfm0j0Bd0d93c7G6aPNMoG1lyRM0 +dwUsmMfrYvngjfq2755Q8+4bZ36iLpqqhNaljXrCHYlRLfNUXXypRGuyavaE +sszmxNx/dbHTTsAaLnlCfkKUjkmFLnJO79u0yOUJcQE8KZm9umi8+8RiqZwH +OBlSuSmhh+UGd+zYQtxguY+Du5Wmh8Ev+h6tO+4G+V5TI+ZSenjWNiVe1MUN +PkbXBzrJ6eGQgNqSs4Eb+D+xqgxW1cPQHYKPnTe4weU95yXqjPWQKdxuEqPv +Cvcc+5fUffVQ+3FPyNI1ZxA9EVOv2KyHL3jNIztSnSBp5bBGfIsePtPfxFC6 +4ARsqcbkpzY97Nu1dPiGtxNM1q4uyX+ih64u/71/oOcE91guZfL26mFk6IOo +sk/7welKeOD8B+p5Ns+Eg7gfMhuCNe5vYOBeefVLw0sOsHn9cdLSgYEFIv6D +7vn2ULTrQsj0fgZyHOX+aJJgD6oXknalHWRgVZNDmH6QPeyZZvYPuTMwrSBa +2tnaHqIH5n57Hmfgidm8JRdWe1gsCDMIiWBgTDhj47HDdvBKN623uJSBtsZj +5g56e+HImaJrZhUMfHTwsaCO/F6Yr6jx+sZk4O7FOG55ob3ASx9aUKllYNHw +0h6dX7ZgwSEu1tTMQL4P4j83lNtCY1/xod5+Bk7KpccEEbZgzl23/ewQA83u +31w22WgLQyZP5oVGGOgQeXhOZsUGft37GuvyloFfvuQg1xsb2H5dufzLJAOn +AtllY7NsoPHVzrMJ3xm474V3XGesDZjz7wWlaQbq/3NUTDTIBg7HnHkRMMfA +Qwdu3/q4jxqvOTpbcJGar19RoruxDUT+yfC894eB2XO1wZMaNrBRvUTBeZmB +TmPPPSJkbCD3xL25lRUGloa/0pfdbAP/Azqyuvk= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7031,331 +6746,119 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR -X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 -PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s -UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ -x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz -61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv -t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ -EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx -Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 -owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 -9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO -hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR -7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo -RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj -aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz -mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am -pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW -o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK -CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf -6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC -/emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m -5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd -V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ -+65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 -41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR -7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c -FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K -qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq -EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J -iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB -ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 -cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj -uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee -SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU -W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo -vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb -UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz -/lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO -auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS -fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB -J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX -CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb -VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe -pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ -L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ -I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu -GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ -/Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs -j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl -/5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 -ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW -YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH -wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX -BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 -r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss -K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw -dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 -4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 -hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR -4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr -KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk -QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu -CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj -WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn -90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN -2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 -W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga -OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA -8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ -hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h -WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 -bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv -yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV -t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 -K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa -34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK -YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY -X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 -ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX -jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo -a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH -czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa -mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 -NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E -G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ -ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 -SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 -iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR -C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL -0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 -oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md -f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX -62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b -osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH -D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ -/RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp -B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ -Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc -yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc -ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr -JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo -85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq -j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo -AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw -GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi -6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y -B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck -+xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh -uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF -MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK -RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG -FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX -cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj -zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ -mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC -bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN -/WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 -9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l -NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 -8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 -CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA -sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw -FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi -CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj -s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh -OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ -cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O -fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 -8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E -1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU -WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J -XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw -vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV -GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd -KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 -nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu -cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 -yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 -VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P -OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV -HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq -Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 -t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv -pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG -iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V -YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 -fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq -6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 -hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl -t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 -6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp -wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK -rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU -0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O -0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ -H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv -DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE -LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 -NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN -cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB -/jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO -G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M -r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK -4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz -ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa -TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA -1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E -A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ -/UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO -yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY -ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ -CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G -pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 -ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz -KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q -/DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG -invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS -hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV -L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm -1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c -J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx -uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C -Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 -T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP -59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK -DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB -XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB -Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf -VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw -iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n -LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 -BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z -f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC -e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs -6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL -hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd -4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 -cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui -BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU -zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk -ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP -Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd -k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R -PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 -CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj -jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf -vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo -WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN -UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t -0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ -6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe -wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph -whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS -4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r -UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 -+j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P -ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP -O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP -KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw -bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC -ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf -jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS -cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F -3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL -Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 -gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 -/iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l -u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd -PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv -50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 -zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p -HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb -u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr -DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu -xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M -H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W -7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 -GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A -87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp -WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv -tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT -5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 -pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz -yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f -eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa -8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H -vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F -+lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m -Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 -+a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg -y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR -Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 -0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU -F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT -rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c -OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 -R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER -lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g -JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ -fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu -YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ -mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS -F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 -8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz -ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC -9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M -zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD -sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf -Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW -OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV -7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H -vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O -mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 -5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf -X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX -ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh -Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL -IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT -PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc -9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz -uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 -tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU -BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey -Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s -fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs -2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l -thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw -GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s -6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv -/7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq -N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE -43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC -gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr -t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ -MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU -0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q -UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO -2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 -Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 -rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A -b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn -7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi -qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw -18hpWOkpIP0PtXjCHw== +1:eJwV13c8Vu0bAHCjoTIK2eM5j5Eke8bjupItGREpO0mLpIzKKivjNcp6M0JK +1nMyIpRQpELZKUpaKpGMitfv/P46n+/nfM59zn1f93Vd9yE8fG292FhYWHhY +WVj+f50ffdImHV+kv7srjSPXaad+X65Q8M6hSPC25EkMHZAE3NztITSUCqGs +ewo1BpTgrPXtQfahArC8zjOzagBg05Rg6u/BO7D/5XhBQ78VjDXu8f012AJ+ +7Le39fa5grH05JuZwZfgpfPwq9ULX/g9qHV1enAc1PqZs/atYdC662bRi4JZ +kGTcpDkfTwaxsfqPHgrL8OxRVvWMaCbwH3e9vXYXO66Mx61Vss2DVBXjhj32 +HGhivFc0ZF8hDGcqN89s5MKfrPsjMKIY4ovCutmEN6GhdZLReHYJCF55H5eW +w4ci8h+b+o3LQGhbzaXFYj7sLXP13WRdBiIt0WHOTD7UtBjNMtlfBhLTW89s +aeXDgmSwLzxWBjK7/dwaPvNh9FETI6HkMlBbtaz5Xo0fuRznuRYGy8AqQGBC +tZMfy9T2NoZ7lkOMnZn+y/nNeGBu0STJpwJEqrtE2FgF8FyQSjuHfwVU8Nkt +qGwQwEiLHWHnQypg4KULM0VSAE/HbU63iq8AaZsAuo2pAGoFTxoVlVVAi2Xe +mp4sASzc9Of7mqkKWDae63quJ4i6C7nvSo9VQnJxSOmysSBmKPROWJyuBOk1 +LLHbbQTxva8Tx4eQStj9aP3ORC9BrL21WM52uRKyd9GqdicJYiO7mOfXm5Wg +jRYZT8cEUeWJ459T45VwWue665NIIcyPdzGU28oE83zuXxYJQhiXkeJlrcAE ++trzsV1XhVAQcyLOKDGhp28f2XtLCCczW0pqNZig6MfJPtolhPejBO7yGzDh +c3Fg8U8RYQye9a8EJyYc5N/zXbRKGL9trEuzjmWC2rmGiNxGYWzYcvSDYDwT +1o/LCRCPhdGna0DpdSIT6ivZQXZYGN23DlccSGOCgEV9svKKMCaYR9tr5lLv +j5BWN7IQwfbALFOnKiYY/vgTcvK9CL7aFMTlPMKEYNMr8g+/UZbTPHP3DRMq +rm9/xTcvgr6cdnPcb5kgZOemU88hiuxx/FAzwYRvdY8W2BVFkXcx++/odyak +RSYHZAWJopHSH9WbK0wY3yx7so1LDMPshDI2ECQI+j4QFxQUQ39HcYt1UiTs +7nB87kMTwws/1MVWyZBQGxKvwKMmhkrHvQVm5Ei4PDY9ud9RDA+mp/vdUiZB +taTB+0eBGNbNXfmWACRE6Nm4i2iLo8Sn05WKB0gwdcn9qWUgjouyI0OzB0ng +Dv960X63OEbezLtR40LCtdao4mQ3cbze1CKv5EFCnfm9r2vixNG/XXfq9xES +ph2lzs4Oi2OvTlXV1BkS7ob4rd00IY4X0/cbhAaSEHqtKVNxShzVAkdD1geT +wPnWocGHTQK/L5h8FTpPwhbvBJa38hIoSVce4IokweXM3OVn5ySw29BezzGR +BJkMA7HJKAls+LCYdyeJpNbvn/K1yRIYd5OlZl0yCSFLW3sMiiSQZQznylNJ +uHrRZXP9MwlciRx+3ZVBwrOU9rwb4pKoHGF53/86CWlV/CqtWyTxTFzj2cwC +Epz63Vveqkii1CneL/cKSfgstDQhaiyJuv41y3M3SGDPV5ZPPSmJt9vG5g1v +k7CjIqs69IEkOuyVLDO+Q4LhYNfyVIckdn+9ryVXRcIellUmri8lkTH2fmZN +NQmetieH4YMk+ka2zTbUkGB8jggLX03DzSWaeqvqSXjK01iovZ6GzUK25t2U +rYv2dUxz03D1Ed74jHskHHgev8ldiIa/cnKLJRtJ8JOcL9y5jYbq3QN23A9I +mKtK7vitRMNdHavXtlIOMd32nVSn4ehpmemAZhKiTrlp0vVpGNXp49PzkITs +1s4ONhsa9j9MXnu4jYQ277zvrWdpaFs85sf5hASzJR3e8+do2LT7bP8Vyl3J +fZrq4TQ01RcMEekkYbh+XXhRHA2LbvVHiT8lYWpDAG/UNRoutS7eZXtOwul8 +bi3GdRo+tE7ZfobyonrJgbkbNOQ/yvJ5gjK7y2iRVyUN31b1bW/sIkGIaapl +3ELDBmY2t3kPCTmG7w/895iGn7bINRZTpg9fCK99SkPxqogqlhckbGereiLb +T8P8UcnIMsp30i2nRoep8UJLnP6jrL3tM2/GKA0tVOPCLF+SYGAnfnDtZxpq +1Y8w31Nu/3w3/ME3Gkb+k3lfvpfKpwu2NwJnqO+9AKK+lB2KY6Y+/aHho/Mf +W39Qfr2Dzpe/QkP7aI1NCn0keHQ3ajmuIvBWJifTi/LxxZnwDi4CYxIWJnoo +7zh1WOAjL4FRp9Vj1vSTwDH5qpRdiMAHv9ev0aE84GG1kxCnnGXvcYTyjZHW +AX06gbxFP65doRxgp3384BYCm/RrapsoGzwvYw1RIDDp0EXme8objYmMDBUC +Uye04tcMkDB6/6pCjSaBnu6kiSzlMq31LS91Ccy37v5oQDmEGeowjQTq/jnl +c5Cy6dbZb1zGBH4JDOnxpyxQ4B25zYLAi9WdYtGUJ0ReC5pZE+h6zMgqnfKd +NOvyw/YE1m3pOlJIOZzzkcElJwI3GZodLadsFaUzdN2VwMQv/9pVU5b4r/zE +g0MEOvGUydVR/naWzv7Gh0DOELdP//e9H+mZf04SuHwvP6WWcuyRDYpCAQSW +KtnLkZT3vQtr1QgmkMbqXXaLsrTTL8e9oQRaSjVL5FD++fLIlN9FAp3tLMKT +KDdbvLmYFEuggtivF+cpJ7XZCJclEpjxtJj/COWDjMcVT1IJ7DtnbWZNWb52 +h+GnDALfc435aVD+rVg5vCqHwLdbdyYIUu64KeVLLyDQXf/wtXlqvdNpmavw +JoGDYfoFLymr8kYonSMJHFF/nhpBmSV+ri2zlrr/2TvMjnIX+1Gn2gZq/mah +XtKUj83ZRs08IrD25xTR8P/9cbJdhOcpgXYpan8iKHN80mUq9BD4JLqj24hy +0ZD0iPcrAgO8m8+2UfvP3ybLL2qMQMcSPvMwytjJtaZwgkCxqQwJLcpvGuaV +R6cI5HYQ686h9rdAXke0HTsdJ6v+9TGh8mFCkCHmz0HH/o+L7pNUPt1JJsl/ +uOio13/M8zJlq8js152CdFRdnxb1sJuKh9dx1Z0KdDT9zOPJSeXnvtG37S4q +dHT7q9+cQeWvtIO983lNOnpnpSvSKDeb6sfeRTraGQ4YyD2j1nPbxtHt9tR4 +Y86HN1P1Yj5HJELNiY47/yasxFP15BePjLSOKx3dvTmer3RQ9WNW56ihDx1D +HQc5xtpJGG/wnHe6QMenT3Mlzz8iodPiLnfsDTrSeWRuq1D1rL3pIZl4m45s +7W9XzlH1rk3pmV1aJR2bOJazWu+TcJ/vXXZuPR3T3U7lmTdR8x1Zv6XmOR11 +eglObaqeZh9zgfE5OspxWtqnUPU6482R8U9/6EhedDzBpOr5FavTUd9X6OiU +5PfqGUntJ7XYp4vrpLBfZXXdciUJkX9JBx4JKQzbk5ELZVR841f76RlL4W6D +kXVGRSTolZblp6dLIWvu6UVnqh+N0ErzjP6VQt0LjYX6KVQ+ppfk/sqTwvXC +LqLiVP+6G1F8zbZECo1tbE/3Uv1O1TE/k7tRCssdC8Zk4kjYuvpKcvQ7Kay3 +lAnyCKPi63ou/KyCNNYwOhV2HiWhpi84TEZFGrXjIxTfUP3YzjwotE9DGlNf +nBQJ9CYhVePMeVWQxqC8xuqiQyRwcfoGTdlIIy31B9cnqr+vqvfwOxwojRfX +rWxdt5eEGV5zt30t0ljFqvLyiQ4JQ8fpPUfbpTHFw9+EVZuK9+M/EPaMMtPv +hKYmCckhpZK3BqjvuczsyVIlQXmcc+z3pDTqXb8paLSNhJNkt3MOnwxG6I61 +KoqRMGllf2DikAyCaUycwxITJhLc9vmvlcXyojUHTGqZcHJSga7MKYtXLZfb +xaqZsGDy+/v3jbLYKEIPmSap8xt7apSPiCzeWjK5k1rOBOXg1mq37bLImmiW +3FLEhAtesnxWe2Wxkr1urieVOs/pf+velieLsRUMVuYJJpj9CDT7oLkFi1eC +jKslqPOYJ8fp6jA5ZBau5/BtrqD+JwTZYlq24irtjRLdkuXA+1w2iflDHp8u +T3jbhJaCWGyltaamAqrRwl3GCksgc5vORj7v7Th+o+1T2+ub0CmyU2M2RRGL +RfK4jooUww6xlmSlASWUr5CluagXATd7QYB7pDJe56/7KxRYABIRknr7ZVXQ +WEFa1LAwH9bJHKy1bVfBtdfpWpaDOaDIEK4MdFbFhTD+jbzPs8F/lLfVnEUN +T0b5OGpWZ8CP2QR7s0w1PDcUoBHDfhVMlB5nm21Xx9zG0s0Jqalwf1b370KX +OvaPrL7gKpMMJxVUX73w0kAf1n+FeRQTgDF1qG//Ok1szGzttpGPBSNpIUuu +Ak2MLA5frf3iEsiFXw5q0dJCk6WYFaOJCJD30nkg80oL8xP/y6xRCgWv+0cu +VZ/SRn957pninGB4kN93aGazDj5Yc+tAgfUZ+HVrZUHprg4On9Dd0sM8BZ4y +peuyLXfg4vlze/DKCZiRT9O8M70DD9VcIfm0j0Bd0d93c7G6aPNMoG1lyRM0 +dwUsmMfrYvngjfq2755Q8+4bZ36iLpqqhNaljXrCHYlRLfNUXXypRGuyavaE +sszmxNx/dbHTTsAaLnlCfkKUjkmFLnJO79u0yOUJcQE8KZm9umi8+8RiqZwH +OBlSuSmhh+UGd+zYQtxguY+Du5Wmh8Ev+h6tO+4G+V5TI+ZSenjWNiVe1MUN +PkbXBzrJ6eGQgNqSs4Eb+D+xqgxW1cPQHYKPnTe4weU95yXqjPWQKdxuEqPv +Cvcc+5fUffVQ+3FPyNI1ZxA9EVOv2KyHL3jNIztSnSBp5bBGfIsePtPfxFC6 +4ARsqcbkpzY97Nu1dPiGtxNM1q4uyX+ih64u/71/oOcE91guZfL26mFk6IOo +sk/7welKeOD8B+p5Ns+Eg7gfMhuCNe5vYOBeefVLw0sOsHn9cdLSgYEFIv6D +7vn2ULTrQsj0fgZyHOX+aJJgD6oXknalHWRgVZNDmH6QPeyZZvYPuTMwrSBa +2tnaHqIH5n57Hmfgidm8JRdWe1gsCDMIiWBgTDhj47HDdvBKN623uJSBtsZj +5g56e+HImaJrZhUMfHTwsaCO/F6Yr6jx+sZk4O7FOG55ob3ASx9aUKllYNHw +0h6dX7ZgwSEu1tTMQL4P4j83lNtCY1/xod5+Bk7KpccEEbZgzl23/ewQA83u +31w22WgLQyZP5oVGGOgQeXhOZsUGft37GuvyloFfvuQg1xsb2H5dufzLJAOn +AtllY7NsoPHVzrMJ3xm474V3XGesDZjz7wWlaQbq/3NUTDTIBg7HnHkRMMfA +Qwdu3/q4jxqvOTpbcJGar19RoruxDUT+yfC894eB2XO1wZMaNrBRvUTBeZmB +TmPPPSJkbCD3xL25lRUGloa/0pfdbAP/Azqyuvk= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "PlotRange" -> {{0, 30}, {0., 0.06968265198563744}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7367,19 +6870,19 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "PlotRange" -> {{0, 30}, {0., 0.06968265198563744}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7393,330 +6896,118 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR -X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 -PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s -UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ -x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz -61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv -t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ -EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx -Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 -owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 -9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO -hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR -7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo -RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj -aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz -mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am -pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW -o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK -CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf -6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC -/emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m -5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd -V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ -+65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 -41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR -7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c -FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K -qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq -EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J -iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB -ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 -cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj -uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee -SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU -W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo -vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb -UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz -/lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO -auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS -fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB -J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX -CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb -VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe -pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ -L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ -I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu -GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ -/Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs -j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl -/5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 -ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW -YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH -wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX -BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 -r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss -K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw -dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 -4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 -hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR -4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr -KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk -QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu -CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj -WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn -90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN -2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 -W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga -OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA -8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ -hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h -WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 -bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv -yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV -t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 -K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa -34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK -YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY -X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 -ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX -jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo -a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH -czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa -mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 -NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E -G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ -ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 -SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 -iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR -C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL -0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 -oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md -f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX -62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b -osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH -D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ -/RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp -B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ -Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc -yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc -ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr -JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo -85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq -j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo -AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw -GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi -6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y -B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck -+xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh -uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF -MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK -RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG -FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX -cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj -zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ -mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC -bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN -/WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 -9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l -NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 -8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 -CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA -sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw -FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi -CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj -s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh -OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ -cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O -fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 -8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E -1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU -WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J -XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw -vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV -GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd -KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 -nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu -cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 -yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 -VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P -OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV -HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq -Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 -t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv -pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG -iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V -YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 -fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq -6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 -hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl -t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 -6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp -wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK -rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU -0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O -0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ -H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv -DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE -LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 -NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN -cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB -/jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO -G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M -r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK -4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz -ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa -TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA -1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E -A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ -/UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO -yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY -ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ -CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G -pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 -ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz -KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q -/DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG -invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS -hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV -L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm -1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c -J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx -uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C -Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 -T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP -59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK -DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB -XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB -Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf -VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw -iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n -LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 -BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z -f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC -e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs -6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL -hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd -4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 -cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui -BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU -zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk -ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP -Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd -k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R -PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 -CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj -jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf -vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo -WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN -UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t -0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ -6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe -wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph -whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS -4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r -UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 -+j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P -ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP -O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP -KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw -bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC -ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf -jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS -cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F -3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL -Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 -gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 -/iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l -u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd -PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv -50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 -zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p -HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb -u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr -DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu -xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M -H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W -7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 -GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A -87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp -WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv -tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT -5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 -pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz -yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f -eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa -8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H -vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F -+lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m -Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 -+a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg -y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR -Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 -0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU -F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT -rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c -OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 -R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER -lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g -JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ -fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu -YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ -mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS -F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 -8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz -ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC -9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M -zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD -sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf -Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW -OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV -7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H -vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O -mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 -5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf -X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX -ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh -Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL -IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT -PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc -9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz -uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 -tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU -BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey -Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s -fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs -2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l -thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw -GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s -6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv -/7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq -N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE -43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC -gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr -t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ -MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU -0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q -UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO -2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 -Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 -rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A -b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn -7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi -qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw -18hpWOkpIP0PtXjCHw== +1:eJwV13c8Vu0bAHCjoTIK2eM5j5Eke8bjupItGREpO0mLpIzKKivjNcp6M0JK +1nMyIpRQpELZKUpaKpGMitfv/P46n+/nfM59zn1f93Vd9yE8fG292FhYWHhY +WVj+f50ffdImHV+kv7srjSPXaad+X65Q8M6hSPC25EkMHZAE3NztITSUCqGs +ewo1BpTgrPXtQfahArC8zjOzagBg05Rg6u/BO7D/5XhBQ78VjDXu8f012AJ+ +7Le39fa5grH05JuZwZfgpfPwq9ULX/g9qHV1enAc1PqZs/atYdC662bRi4JZ +kGTcpDkfTwaxsfqPHgrL8OxRVvWMaCbwH3e9vXYXO66Mx61Vss2DVBXjhj32 +HGhivFc0ZF8hDGcqN89s5MKfrPsjMKIY4ovCutmEN6GhdZLReHYJCF55H5eW +w4ci8h+b+o3LQGhbzaXFYj7sLXP13WRdBiIt0WHOTD7UtBjNMtlfBhLTW89s +aeXDgmSwLzxWBjK7/dwaPvNh9FETI6HkMlBbtaz5Xo0fuRznuRYGy8AqQGBC +tZMfy9T2NoZ7lkOMnZn+y/nNeGBu0STJpwJEqrtE2FgF8FyQSjuHfwVU8Nkt +qGwQwEiLHWHnQypg4KULM0VSAE/HbU63iq8AaZsAuo2pAGoFTxoVlVVAi2Xe +mp4sASzc9Of7mqkKWDae63quJ4i6C7nvSo9VQnJxSOmysSBmKPROWJyuBOk1 +LLHbbQTxva8Tx4eQStj9aP3ORC9BrL21WM52uRKyd9GqdicJYiO7mOfXm5Wg +jRYZT8cEUeWJ459T45VwWue665NIIcyPdzGU28oE83zuXxYJQhiXkeJlrcAE ++trzsV1XhVAQcyLOKDGhp28f2XtLCCczW0pqNZig6MfJPtolhPejBO7yGzDh +c3Fg8U8RYQye9a8EJyYc5N/zXbRKGL9trEuzjmWC2rmGiNxGYWzYcvSDYDwT +1o/LCRCPhdGna0DpdSIT6ivZQXZYGN23DlccSGOCgEV9svKKMCaYR9tr5lLv +j5BWN7IQwfbALFOnKiYY/vgTcvK9CL7aFMTlPMKEYNMr8g+/UZbTPHP3DRMq +rm9/xTcvgr6cdnPcb5kgZOemU88hiuxx/FAzwYRvdY8W2BVFkXcx++/odyak +RSYHZAWJopHSH9WbK0wY3yx7so1LDMPshDI2ECQI+j4QFxQUQ39HcYt1UiTs +7nB87kMTwws/1MVWyZBQGxKvwKMmhkrHvQVm5Ei4PDY9ud9RDA+mp/vdUiZB +taTB+0eBGNbNXfmWACRE6Nm4i2iLo8Sn05WKB0gwdcn9qWUgjouyI0OzB0ng +Dv960X63OEbezLtR40LCtdao4mQ3cbze1CKv5EFCnfm9r2vixNG/XXfq9xES +ph2lzs4Oi2OvTlXV1BkS7ob4rd00IY4X0/cbhAaSEHqtKVNxShzVAkdD1geT +wPnWocGHTQK/L5h8FTpPwhbvBJa38hIoSVce4IokweXM3OVn5ySw29BezzGR +BJkMA7HJKAls+LCYdyeJpNbvn/K1yRIYd5OlZl0yCSFLW3sMiiSQZQznylNJ +uHrRZXP9MwlciRx+3ZVBwrOU9rwb4pKoHGF53/86CWlV/CqtWyTxTFzj2cwC +Epz63Vveqkii1CneL/cKSfgstDQhaiyJuv41y3M3SGDPV5ZPPSmJt9vG5g1v +k7CjIqs69IEkOuyVLDO+Q4LhYNfyVIckdn+9ryVXRcIellUmri8lkTH2fmZN +NQmetieH4YMk+ka2zTbUkGB8jggLX03DzSWaeqvqSXjK01iovZ6GzUK25t2U +rYv2dUxz03D1Ed74jHskHHgev8ldiIa/cnKLJRtJ8JOcL9y5jYbq3QN23A9I +mKtK7vitRMNdHavXtlIOMd32nVSn4ehpmemAZhKiTrlp0vVpGNXp49PzkITs +1s4ONhsa9j9MXnu4jYQ277zvrWdpaFs85sf5hASzJR3e8+do2LT7bP8Vyl3J +fZrq4TQ01RcMEekkYbh+XXhRHA2LbvVHiT8lYWpDAG/UNRoutS7eZXtOwul8 +bi3GdRo+tE7ZfobyonrJgbkbNOQ/yvJ5gjK7y2iRVyUN31b1bW/sIkGIaapl +3ELDBmY2t3kPCTmG7w/895iGn7bINRZTpg9fCK99SkPxqogqlhckbGereiLb +T8P8UcnIMsp30i2nRoep8UJLnP6jrL3tM2/GKA0tVOPCLF+SYGAnfnDtZxpq +1Y8w31Nu/3w3/ME3Gkb+k3lfvpfKpwu2NwJnqO+9AKK+lB2KY6Y+/aHho/Mf +W39Qfr2Dzpe/QkP7aI1NCn0keHQ3ajmuIvBWJifTi/LxxZnwDi4CYxIWJnoo +7zh1WOAjL4FRp9Vj1vSTwDH5qpRdiMAHv9ev0aE84GG1kxCnnGXvcYTyjZHW +AX06gbxFP65doRxgp3384BYCm/RrapsoGzwvYw1RIDDp0EXme8objYmMDBUC +Uye04tcMkDB6/6pCjSaBnu6kiSzlMq31LS91Ccy37v5oQDmEGeowjQTq/jnl +c5Cy6dbZb1zGBH4JDOnxpyxQ4B25zYLAi9WdYtGUJ0ReC5pZE+h6zMgqnfKd +NOvyw/YE1m3pOlJIOZzzkcElJwI3GZodLadsFaUzdN2VwMQv/9pVU5b4r/zE +g0MEOvGUydVR/naWzv7Gh0DOELdP//e9H+mZf04SuHwvP6WWcuyRDYpCAQSW +KtnLkZT3vQtr1QgmkMbqXXaLsrTTL8e9oQRaSjVL5FD++fLIlN9FAp3tLMKT +KDdbvLmYFEuggtivF+cpJ7XZCJclEpjxtJj/COWDjMcVT1IJ7DtnbWZNWb52 +h+GnDALfc435aVD+rVg5vCqHwLdbdyYIUu64KeVLLyDQXf/wtXlqvdNpmavw +JoGDYfoFLymr8kYonSMJHFF/nhpBmSV+ri2zlrr/2TvMjnIX+1Gn2gZq/mah +XtKUj83ZRs08IrD25xTR8P/9cbJdhOcpgXYpan8iKHN80mUq9BD4JLqj24hy +0ZD0iPcrAgO8m8+2UfvP3ybLL2qMQMcSPvMwytjJtaZwgkCxqQwJLcpvGuaV +R6cI5HYQ686h9rdAXke0HTsdJ6v+9TGh8mFCkCHmz0HH/o+L7pNUPt1JJsl/ +uOio13/M8zJlq8js152CdFRdnxb1sJuKh9dx1Z0KdDT9zOPJSeXnvtG37S4q +dHT7q9+cQeWvtIO983lNOnpnpSvSKDeb6sfeRTraGQ4YyD2j1nPbxtHt9tR4 +Y86HN1P1Yj5HJELNiY47/yasxFP15BePjLSOKx3dvTmer3RQ9WNW56ihDx1D +HQc5xtpJGG/wnHe6QMenT3Mlzz8iodPiLnfsDTrSeWRuq1D1rL3pIZl4m45s +7W9XzlH1rk3pmV1aJR2bOJazWu+TcJ/vXXZuPR3T3U7lmTdR8x1Zv6XmOR11 +eglObaqeZh9zgfE5OspxWtqnUPU6482R8U9/6EhedDzBpOr5FavTUd9X6OiU +5PfqGUntJ7XYp4vrpLBfZXXdciUJkX9JBx4JKQzbk5ELZVR841f76RlL4W6D +kXVGRSTolZblp6dLIWvu6UVnqh+N0ErzjP6VQt0LjYX6KVQ+ppfk/sqTwvXC +LqLiVP+6G1F8zbZECo1tbE/3Uv1O1TE/k7tRCssdC8Zk4kjYuvpKcvQ7Kay3 +lAnyCKPi63ou/KyCNNYwOhV2HiWhpi84TEZFGrXjIxTfUP3YzjwotE9DGlNf +nBQJ9CYhVePMeVWQxqC8xuqiQyRwcfoGTdlIIy31B9cnqr+vqvfwOxwojRfX +rWxdt5eEGV5zt30t0ljFqvLyiQ4JQ8fpPUfbpTHFw9+EVZuK9+M/EPaMMtPv +hKYmCckhpZK3BqjvuczsyVIlQXmcc+z3pDTqXb8paLSNhJNkt3MOnwxG6I61 +KoqRMGllf2DikAyCaUycwxITJhLc9vmvlcXyojUHTGqZcHJSga7MKYtXLZfb +xaqZsGDy+/v3jbLYKEIPmSap8xt7apSPiCzeWjK5k1rOBOXg1mq37bLImmiW +3FLEhAtesnxWe2Wxkr1urieVOs/pf+velieLsRUMVuYJJpj9CDT7oLkFi1eC +jKslqPOYJ8fp6jA5ZBau5/BtrqD+JwTZYlq24irtjRLdkuXA+1w2iflDHp8u +T3jbhJaCWGyltaamAqrRwl3GCksgc5vORj7v7Th+o+1T2+ub0CmyU2M2RRGL +RfK4jooUww6xlmSlASWUr5CluagXATd7QYB7pDJe56/7KxRYABIRknr7ZVXQ +WEFa1LAwH9bJHKy1bVfBtdfpWpaDOaDIEK4MdFbFhTD+jbzPs8F/lLfVnEUN +T0b5OGpWZ8CP2QR7s0w1PDcUoBHDfhVMlB5nm21Xx9zG0s0Jqalwf1b370KX +OvaPrL7gKpMMJxVUX73w0kAf1n+FeRQTgDF1qG//Ok1szGzttpGPBSNpIUuu +Ak2MLA5frf3iEsiFXw5q0dJCk6WYFaOJCJD30nkg80oL8xP/y6xRCgWv+0cu +VZ/SRn957pninGB4kN93aGazDj5Yc+tAgfUZ+HVrZUHprg4On9Dd0sM8BZ4y +peuyLXfg4vlze/DKCZiRT9O8M70DD9VcIfm0j0Bd0d93c7G6aPNMoG1lyRM0 +dwUsmMfrYvngjfq2755Q8+4bZ36iLpqqhNaljXrCHYlRLfNUXXypRGuyavaE +sszmxNx/dbHTTsAaLnlCfkKUjkmFLnJO79u0yOUJcQE8KZm9umi8+8RiqZwH +OBlSuSmhh+UGd+zYQtxguY+Du5Wmh8Ev+h6tO+4G+V5TI+ZSenjWNiVe1MUN +PkbXBzrJ6eGQgNqSs4Eb+D+xqgxW1cPQHYKPnTe4weU95yXqjPWQKdxuEqPv +Cvcc+5fUffVQ+3FPyNI1ZxA9EVOv2KyHL3jNIztSnSBp5bBGfIsePtPfxFC6 +4ARsqcbkpzY97Nu1dPiGtxNM1q4uyX+ih64u/71/oOcE91guZfL26mFk6IOo +sk/7welKeOD8B+p5Ns+Eg7gfMhuCNe5vYOBeefVLw0sOsHn9cdLSgYEFIv6D +7vn2ULTrQsj0fgZyHOX+aJJgD6oXknalHWRgVZNDmH6QPeyZZvYPuTMwrSBa +2tnaHqIH5n57Hmfgidm8JRdWe1gsCDMIiWBgTDhj47HDdvBKN623uJSBtsZj +5g56e+HImaJrZhUMfHTwsaCO/F6Yr6jx+sZk4O7FOG55ob3ASx9aUKllYNHw +0h6dX7ZgwSEu1tTMQL4P4j83lNtCY1/xod5+Bk7KpccEEbZgzl23/ewQA83u +31w22WgLQyZP5oVGGOgQeXhOZsUGft37GuvyloFfvuQg1xsb2H5dufzLJAOn +AtllY7NsoPHVzrMJ3xm474V3XGesDZjz7wWlaQbq/3NUTDTIBg7HnHkRMMfA +Qwdu3/q4jxqvOTpbcJGar19RoruxDUT+yfC894eB2XO1wZMaNrBRvUTBeZmB +TmPPPSJkbCD3xL25lRUGloa/0pfdbAP/Azqyuvk= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "PlotRange" -> {{0, 30}, {0., 0.06968265198563744}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7727,6 +7018,7 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -7754,7 +7046,8 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.17588335145564066`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06968265198563744}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -7762,11 +7055,12 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991334471589432*^9}, - CellLabel-> - "Out[252]=",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] + CellChangeTimes->{3.991334471589432*^9, 3.994251006443787*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"70039bb9-a4ac-48a7-bbf0-dab5ffa57f6b"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", @@ -7835,15 +7129,798 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"30", ",", "0.007985"}], "}"}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, - 3.9940828090757437`*^9},ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-\ -a8e133e7a081"], + 3.9940828090757437`*^9}, + CellLabel->"In[96]:=",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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->{ + "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.051395}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994251006682539*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"b439e750-e230-49d0-b3c9-4ef08d328783"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"6d3700e1-f504-214a-a332-\ -f16397f0b922"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8Vu0bAHCjoTIK2eM5j5Eke8bjupItGREpO0mLpIzKKivjNcp6M0JK +1nMyIpRQpELZKUpaKpGMitfv/P46n+/nfM59zn1f93Vd9yE8fG292FhYWHhY +WVj+f50ffdImHV+kv7srjSPXaad+X65Q8M6hSPC25EkMHZAE3NztITSUCqGs +ewo1BpTgrPXtQfahArC8zjOzagBg05Rg6u/BO7D/5XhBQ78VjDXu8f012AJ+ +7Le39fa5grH05JuZwZfgpfPwq9ULX/g9qHV1enAc1PqZs/atYdC662bRi4JZ +kGTcpDkfTwaxsfqPHgrL8OxRVvWMaCbwH3e9vXYXO66Mx61Vss2DVBXjhj32 +HGhivFc0ZF8hDGcqN89s5MKfrPsjMKIY4ovCutmEN6GhdZLReHYJCF55H5eW +w4ci8h+b+o3LQGhbzaXFYj7sLXP13WRdBiIt0WHOTD7UtBjNMtlfBhLTW89s +aeXDgmSwLzxWBjK7/dwaPvNh9FETI6HkMlBbtaz5Xo0fuRznuRYGy8AqQGBC +tZMfy9T2NoZ7lkOMnZn+y/nNeGBu0STJpwJEqrtE2FgF8FyQSjuHfwVU8Nkt +qGwQwEiLHWHnQypg4KULM0VSAE/HbU63iq8AaZsAuo2pAGoFTxoVlVVAi2Xe +mp4sASzc9Of7mqkKWDae63quJ4i6C7nvSo9VQnJxSOmysSBmKPROWJyuBOk1 +LLHbbQTxva8Tx4eQStj9aP3ORC9BrL21WM52uRKyd9GqdicJYiO7mOfXm5Wg +jRYZT8cEUeWJ459T45VwWue665NIIcyPdzGU28oE83zuXxYJQhiXkeJlrcAE ++trzsV1XhVAQcyLOKDGhp28f2XtLCCczW0pqNZig6MfJPtolhPejBO7yGzDh +c3Fg8U8RYQye9a8EJyYc5N/zXbRKGL9trEuzjmWC2rmGiNxGYWzYcvSDYDwT +1o/LCRCPhdGna0DpdSIT6ivZQXZYGN23DlccSGOCgEV9svKKMCaYR9tr5lLv +j5BWN7IQwfbALFOnKiYY/vgTcvK9CL7aFMTlPMKEYNMr8g+/UZbTPHP3DRMq +rm9/xTcvgr6cdnPcb5kgZOemU88hiuxx/FAzwYRvdY8W2BVFkXcx++/odyak +RSYHZAWJopHSH9WbK0wY3yx7so1LDMPshDI2ECQI+j4QFxQUQ39HcYt1UiTs +7nB87kMTwws/1MVWyZBQGxKvwKMmhkrHvQVm5Ei4PDY9ud9RDA+mp/vdUiZB +taTB+0eBGNbNXfmWACRE6Nm4i2iLo8Sn05WKB0gwdcn9qWUgjouyI0OzB0ng +Dv960X63OEbezLtR40LCtdao4mQ3cbze1CKv5EFCnfm9r2vixNG/XXfq9xES +ph2lzs4Oi2OvTlXV1BkS7ob4rd00IY4X0/cbhAaSEHqtKVNxShzVAkdD1geT +wPnWocGHTQK/L5h8FTpPwhbvBJa38hIoSVce4IokweXM3OVn5ySw29BezzGR +BJkMA7HJKAls+LCYdyeJpNbvn/K1yRIYd5OlZl0yCSFLW3sMiiSQZQznylNJ +uHrRZXP9MwlciRx+3ZVBwrOU9rwb4pKoHGF53/86CWlV/CqtWyTxTFzj2cwC +Epz63Vveqkii1CneL/cKSfgstDQhaiyJuv41y3M3SGDPV5ZPPSmJt9vG5g1v +k7CjIqs69IEkOuyVLDO+Q4LhYNfyVIckdn+9ryVXRcIellUmri8lkTH2fmZN +NQmetieH4YMk+ka2zTbUkGB8jggLX03DzSWaeqvqSXjK01iovZ6GzUK25t2U +rYv2dUxz03D1Ed74jHskHHgev8ldiIa/cnKLJRtJ8JOcL9y5jYbq3QN23A9I +mKtK7vitRMNdHavXtlIOMd32nVSn4ehpmemAZhKiTrlp0vVpGNXp49PzkITs +1s4ONhsa9j9MXnu4jYQ277zvrWdpaFs85sf5hASzJR3e8+do2LT7bP8Vyl3J +fZrq4TQ01RcMEekkYbh+XXhRHA2LbvVHiT8lYWpDAG/UNRoutS7eZXtOwul8 +bi3GdRo+tE7ZfobyonrJgbkbNOQ/yvJ5gjK7y2iRVyUN31b1bW/sIkGIaapl +3ELDBmY2t3kPCTmG7w/895iGn7bINRZTpg9fCK99SkPxqogqlhckbGereiLb +T8P8UcnIMsp30i2nRoep8UJLnP6jrL3tM2/GKA0tVOPCLF+SYGAnfnDtZxpq +1Y8w31Nu/3w3/ME3Gkb+k3lfvpfKpwu2NwJnqO+9AKK+lB2KY6Y+/aHho/Mf +W39Qfr2Dzpe/QkP7aI1NCn0keHQ3ajmuIvBWJifTi/LxxZnwDi4CYxIWJnoo +7zh1WOAjL4FRp9Vj1vSTwDH5qpRdiMAHv9ev0aE84GG1kxCnnGXvcYTyjZHW +AX06gbxFP65doRxgp3384BYCm/RrapsoGzwvYw1RIDDp0EXme8objYmMDBUC +Uye04tcMkDB6/6pCjSaBnu6kiSzlMq31LS91Ccy37v5oQDmEGeowjQTq/jnl +c5Cy6dbZb1zGBH4JDOnxpyxQ4B25zYLAi9WdYtGUJ0ReC5pZE+h6zMgqnfKd +NOvyw/YE1m3pOlJIOZzzkcElJwI3GZodLadsFaUzdN2VwMQv/9pVU5b4r/zE +g0MEOvGUydVR/naWzv7Gh0DOELdP//e9H+mZf04SuHwvP6WWcuyRDYpCAQSW +KtnLkZT3vQtr1QgmkMbqXXaLsrTTL8e9oQRaSjVL5FD++fLIlN9FAp3tLMKT +KDdbvLmYFEuggtivF+cpJ7XZCJclEpjxtJj/COWDjMcVT1IJ7DtnbWZNWb52 +h+GnDALfc435aVD+rVg5vCqHwLdbdyYIUu64KeVLLyDQXf/wtXlqvdNpmavw +JoGDYfoFLymr8kYonSMJHFF/nhpBmSV+ri2zlrr/2TvMjnIX+1Gn2gZq/mah +XtKUj83ZRs08IrD25xTR8P/9cbJdhOcpgXYpan8iKHN80mUq9BD4JLqj24hy +0ZD0iPcrAgO8m8+2UfvP3ybLL2qMQMcSPvMwytjJtaZwgkCxqQwJLcpvGuaV +R6cI5HYQ686h9rdAXke0HTsdJ6v+9TGh8mFCkCHmz0HH/o+L7pNUPt1JJsl/ +uOio13/M8zJlq8js152CdFRdnxb1sJuKh9dx1Z0KdDT9zOPJSeXnvtG37S4q +dHT7q9+cQeWvtIO983lNOnpnpSvSKDeb6sfeRTraGQ4YyD2j1nPbxtHt9tR4 +Y86HN1P1Yj5HJELNiY47/yasxFP15BePjLSOKx3dvTmer3RQ9WNW56ihDx1D +HQc5xtpJGG/wnHe6QMenT3Mlzz8iodPiLnfsDTrSeWRuq1D1rL3pIZl4m45s +7W9XzlH1rk3pmV1aJR2bOJazWu+TcJ/vXXZuPR3T3U7lmTdR8x1Zv6XmOR11 +eglObaqeZh9zgfE5OspxWtqnUPU6482R8U9/6EhedDzBpOr5FavTUd9X6OiU +5PfqGUntJ7XYp4vrpLBfZXXdciUJkX9JBx4JKQzbk5ELZVR841f76RlL4W6D +kXVGRSTolZblp6dLIWvu6UVnqh+N0ErzjP6VQt0LjYX6KVQ+ppfk/sqTwvXC +LqLiVP+6G1F8zbZECo1tbE/3Uv1O1TE/k7tRCssdC8Zk4kjYuvpKcvQ7Kay3 +lAnyCKPi63ou/KyCNNYwOhV2HiWhpi84TEZFGrXjIxTfUP3YzjwotE9DGlNf +nBQJ9CYhVePMeVWQxqC8xuqiQyRwcfoGTdlIIy31B9cnqr+vqvfwOxwojRfX +rWxdt5eEGV5zt30t0ljFqvLyiQ4JQ8fpPUfbpTHFw9+EVZuK9+M/EPaMMtPv +hKYmCckhpZK3BqjvuczsyVIlQXmcc+z3pDTqXb8paLSNhJNkt3MOnwxG6I61 +KoqRMGllf2DikAyCaUycwxITJhLc9vmvlcXyojUHTGqZcHJSga7MKYtXLZfb +xaqZsGDy+/v3jbLYKEIPmSap8xt7apSPiCzeWjK5k1rOBOXg1mq37bLImmiW +3FLEhAtesnxWe2Wxkr1urieVOs/pf+velieLsRUMVuYJJpj9CDT7oLkFi1eC +jKslqPOYJ8fp6jA5ZBau5/BtrqD+JwTZYlq24irtjRLdkuXA+1w2iflDHp8u +T3jbhJaCWGyltaamAqrRwl3GCksgc5vORj7v7Th+o+1T2+ub0CmyU2M2RRGL +RfK4jooUww6xlmSlASWUr5CluagXATd7QYB7pDJe56/7KxRYABIRknr7ZVXQ +WEFa1LAwH9bJHKy1bVfBtdfpWpaDOaDIEK4MdFbFhTD+jbzPs8F/lLfVnEUN +T0b5OGpWZ8CP2QR7s0w1PDcUoBHDfhVMlB5nm21Xx9zG0s0Jqalwf1b370KX +OvaPrL7gKpMMJxVUX73w0kAf1n+FeRQTgDF1qG//Ok1szGzttpGPBSNpIUuu +Ak2MLA5frf3iEsiFXw5q0dJCk6WYFaOJCJD30nkg80oL8xP/y6xRCgWv+0cu +VZ/SRn957pninGB4kN93aGazDj5Yc+tAgfUZ+HVrZUHprg4On9Dd0sM8BZ4y +peuyLXfg4vlze/DKCZiRT9O8M70DD9VcIfm0j0Bd0d93c7G6aPNMoG1lyRM0 +dwUsmMfrYvngjfq2755Q8+4bZ36iLpqqhNaljXrCHYlRLfNUXXypRGuyavaE +sszmxNx/dbHTTsAaLnlCfkKUjkmFLnJO79u0yOUJcQE8KZm9umi8+8RiqZwH +OBlSuSmhh+UGd+zYQtxguY+Du5Wmh8Ev+h6tO+4G+V5TI+ZSenjWNiVe1MUN +PkbXBzrJ6eGQgNqSs4Eb+D+xqgxW1cPQHYKPnTe4weU95yXqjPWQKdxuEqPv +Cvcc+5fUffVQ+3FPyNI1ZxA9EVOv2KyHL3jNIztSnSBp5bBGfIsePtPfxFC6 +4ARsqcbkpzY97Nu1dPiGtxNM1q4uyX+ih64u/71/oOcE91guZfL26mFk6IOo +sk/7welKeOD8B+p5Ns+Eg7gfMhuCNe5vYOBeefVLw0sOsHn9cdLSgYEFIv6D +7vn2ULTrQsj0fgZyHOX+aJJgD6oXknalHWRgVZNDmH6QPeyZZvYPuTMwrSBa +2tnaHqIH5n57Hmfgidm8JRdWe1gsCDMIiWBgTDhj47HDdvBKN623uJSBtsZj +5g56e+HImaJrZhUMfHTwsaCO/F6Yr6jx+sZk4O7FOG55ob3ASx9aUKllYNHw +0h6dX7ZgwSEu1tTMQL4P4j83lNtCY1/xod5+Bk7KpccEEbZgzl23/ewQA83u +31w22WgLQyZP5oVGGOgQeXhOZsUGft37GuvyloFfvuQg1xsb2H5dufzLJAOn +AtllY7NsoPHVzrMJ3xm474V3XGesDZjz7wWlaQbq/3NUTDTIBg7HnHkRMMfA +Qwdu3/q4jxqvOTpbcJGar19RoruxDUT+yfC894eB2XO1wZMaNrBRvUTBeZmB +TmPPPSJkbCD3xL25lRUGloa/0pfdbAP/Azqyuvk= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vu0bAHCjoTIK2eM5j5Eke8bjupItGREpO0mLpIzKKivjNcp6M0JK +1nMyIpRQpELZKUpaKpGMitfv/P46n+/nfM59zn1f93Vd9yE8fG292FhYWHhY +WVj+f50ffdImHV+kv7srjSPXaad+X65Q8M6hSPC25EkMHZAE3NztITSUCqGs +ewo1BpTgrPXtQfahArC8zjOzagBg05Rg6u/BO7D/5XhBQ78VjDXu8f012AJ+ +7Le39fa5grH05JuZwZfgpfPwq9ULX/g9qHV1enAc1PqZs/atYdC662bRi4JZ +kGTcpDkfTwaxsfqPHgrL8OxRVvWMaCbwH3e9vXYXO66Mx61Vss2DVBXjhj32 +HGhivFc0ZF8hDGcqN89s5MKfrPsjMKIY4ovCutmEN6GhdZLReHYJCF55H5eW +w4ci8h+b+o3LQGhbzaXFYj7sLXP13WRdBiIt0WHOTD7UtBjNMtlfBhLTW89s +aeXDgmSwLzxWBjK7/dwaPvNh9FETI6HkMlBbtaz5Xo0fuRznuRYGy8AqQGBC +tZMfy9T2NoZ7lkOMnZn+y/nNeGBu0STJpwJEqrtE2FgF8FyQSjuHfwVU8Nkt +qGwQwEiLHWHnQypg4KULM0VSAE/HbU63iq8AaZsAuo2pAGoFTxoVlVVAi2Xe +mp4sASzc9Of7mqkKWDae63quJ4i6C7nvSo9VQnJxSOmysSBmKPROWJyuBOk1 +LLHbbQTxva8Tx4eQStj9aP3ORC9BrL21WM52uRKyd9GqdicJYiO7mOfXm5Wg +jRYZT8cEUeWJ459T45VwWue665NIIcyPdzGU28oE83zuXxYJQhiXkeJlrcAE ++trzsV1XhVAQcyLOKDGhp28f2XtLCCczW0pqNZig6MfJPtolhPejBO7yGzDh +c3Fg8U8RYQye9a8EJyYc5N/zXbRKGL9trEuzjmWC2rmGiNxGYWzYcvSDYDwT +1o/LCRCPhdGna0DpdSIT6ivZQXZYGN23DlccSGOCgEV9svKKMCaYR9tr5lLv +j5BWN7IQwfbALFOnKiYY/vgTcvK9CL7aFMTlPMKEYNMr8g+/UZbTPHP3DRMq +rm9/xTcvgr6cdnPcb5kgZOemU88hiuxx/FAzwYRvdY8W2BVFkXcx++/odyak +RSYHZAWJopHSH9WbK0wY3yx7so1LDMPshDI2ECQI+j4QFxQUQ39HcYt1UiTs +7nB87kMTwws/1MVWyZBQGxKvwKMmhkrHvQVm5Ei4PDY9ud9RDA+mp/vdUiZB +taTB+0eBGNbNXfmWACRE6Nm4i2iLo8Sn05WKB0gwdcn9qWUgjouyI0OzB0ng +Dv960X63OEbezLtR40LCtdao4mQ3cbze1CKv5EFCnfm9r2vixNG/XXfq9xES +ph2lzs4Oi2OvTlXV1BkS7ob4rd00IY4X0/cbhAaSEHqtKVNxShzVAkdD1geT +wPnWocGHTQK/L5h8FTpPwhbvBJa38hIoSVce4IokweXM3OVn5ySw29BezzGR +BJkMA7HJKAls+LCYdyeJpNbvn/K1yRIYd5OlZl0yCSFLW3sMiiSQZQznylNJ +uHrRZXP9MwlciRx+3ZVBwrOU9rwb4pKoHGF53/86CWlV/CqtWyTxTFzj2cwC +Epz63Vveqkii1CneL/cKSfgstDQhaiyJuv41y3M3SGDPV5ZPPSmJt9vG5g1v +k7CjIqs69IEkOuyVLDO+Q4LhYNfyVIckdn+9ryVXRcIellUmri8lkTH2fmZN +NQmetieH4YMk+ka2zTbUkGB8jggLX03DzSWaeqvqSXjK01iovZ6GzUK25t2U +rYv2dUxz03D1Ed74jHskHHgev8ldiIa/cnKLJRtJ8JOcL9y5jYbq3QN23A9I +mKtK7vitRMNdHavXtlIOMd32nVSn4ehpmemAZhKiTrlp0vVpGNXp49PzkITs +1s4ONhsa9j9MXnu4jYQ277zvrWdpaFs85sf5hASzJR3e8+do2LT7bP8Vyl3J +fZrq4TQ01RcMEekkYbh+XXhRHA2LbvVHiT8lYWpDAG/UNRoutS7eZXtOwul8 +bi3GdRo+tE7ZfobyonrJgbkbNOQ/yvJ5gjK7y2iRVyUN31b1bW/sIkGIaapl +3ELDBmY2t3kPCTmG7w/895iGn7bINRZTpg9fCK99SkPxqogqlhckbGereiLb +T8P8UcnIMsp30i2nRoep8UJLnP6jrL3tM2/GKA0tVOPCLF+SYGAnfnDtZxpq +1Y8w31Nu/3w3/ME3Gkb+k3lfvpfKpwu2NwJnqO+9AKK+lB2KY6Y+/aHho/Mf +W39Qfr2Dzpe/QkP7aI1NCn0keHQ3ajmuIvBWJifTi/LxxZnwDi4CYxIWJnoo +7zh1WOAjL4FRp9Vj1vSTwDH5qpRdiMAHv9ev0aE84GG1kxCnnGXvcYTyjZHW +AX06gbxFP65doRxgp3384BYCm/RrapsoGzwvYw1RIDDp0EXme8objYmMDBUC +Uye04tcMkDB6/6pCjSaBnu6kiSzlMq31LS91Ccy37v5oQDmEGeowjQTq/jnl +c5Cy6dbZb1zGBH4JDOnxpyxQ4B25zYLAi9WdYtGUJ0ReC5pZE+h6zMgqnfKd +NOvyw/YE1m3pOlJIOZzzkcElJwI3GZodLadsFaUzdN2VwMQv/9pVU5b4r/zE +g0MEOvGUydVR/naWzv7Gh0DOELdP//e9H+mZf04SuHwvP6WWcuyRDYpCAQSW +KtnLkZT3vQtr1QgmkMbqXXaLsrTTL8e9oQRaSjVL5FD++fLIlN9FAp3tLMKT +KDdbvLmYFEuggtivF+cpJ7XZCJclEpjxtJj/COWDjMcVT1IJ7DtnbWZNWb52 +h+GnDALfc435aVD+rVg5vCqHwLdbdyYIUu64KeVLLyDQXf/wtXlqvdNpmavw +JoGDYfoFLymr8kYonSMJHFF/nhpBmSV+ri2zlrr/2TvMjnIX+1Gn2gZq/mah +XtKUj83ZRs08IrD25xTR8P/9cbJdhOcpgXYpan8iKHN80mUq9BD4JLqj24hy +0ZD0iPcrAgO8m8+2UfvP3ybLL2qMQMcSPvMwytjJtaZwgkCxqQwJLcpvGuaV +R6cI5HYQ686h9rdAXke0HTsdJ6v+9TGh8mFCkCHmz0HH/o+L7pNUPt1JJsl/ +uOio13/M8zJlq8js152CdFRdnxb1sJuKh9dx1Z0KdDT9zOPJSeXnvtG37S4q +dHT7q9+cQeWvtIO983lNOnpnpSvSKDeb6sfeRTraGQ4YyD2j1nPbxtHt9tR4 +Y86HN1P1Yj5HJELNiY47/yasxFP15BePjLSOKx3dvTmer3RQ9WNW56ihDx1D +HQc5xtpJGG/wnHe6QMenT3Mlzz8iodPiLnfsDTrSeWRuq1D1rL3pIZl4m45s +7W9XzlH1rk3pmV1aJR2bOJazWu+TcJ/vXXZuPR3T3U7lmTdR8x1Zv6XmOR11 +eglObaqeZh9zgfE5OspxWtqnUPU6482R8U9/6EhedDzBpOr5FavTUd9X6OiU +5PfqGUntJ7XYp4vrpLBfZXXdciUJkX9JBx4JKQzbk5ELZVR841f76RlL4W6D +kXVGRSTolZblp6dLIWvu6UVnqh+N0ErzjP6VQt0LjYX6KVQ+ppfk/sqTwvXC +LqLiVP+6G1F8zbZECo1tbE/3Uv1O1TE/k7tRCssdC8Zk4kjYuvpKcvQ7Kay3 +lAnyCKPi63ou/KyCNNYwOhV2HiWhpi84TEZFGrXjIxTfUP3YzjwotE9DGlNf +nBQJ9CYhVePMeVWQxqC8xuqiQyRwcfoGTdlIIy31B9cnqr+vqvfwOxwojRfX +rWxdt5eEGV5zt30t0ljFqvLyiQ4JQ8fpPUfbpTHFw9+EVZuK9+M/EPaMMtPv +hKYmCckhpZK3BqjvuczsyVIlQXmcc+z3pDTqXb8paLSNhJNkt3MOnwxG6I61 +KoqRMGllf2DikAyCaUycwxITJhLc9vmvlcXyojUHTGqZcHJSga7MKYtXLZfb +xaqZsGDy+/v3jbLYKEIPmSap8xt7apSPiCzeWjK5k1rOBOXg1mq37bLImmiW +3FLEhAtesnxWe2Wxkr1urieVOs/pf+velieLsRUMVuYJJpj9CDT7oLkFi1eC +jKslqPOYJ8fp6jA5ZBau5/BtrqD+JwTZYlq24irtjRLdkuXA+1w2iflDHp8u +T3jbhJaCWGyltaamAqrRwl3GCksgc5vORj7v7Th+o+1T2+ub0CmyU2M2RRGL +RfK4jooUww6xlmSlASWUr5CluagXATd7QYB7pDJe56/7KxRYABIRknr7ZVXQ +WEFa1LAwH9bJHKy1bVfBtdfpWpaDOaDIEK4MdFbFhTD+jbzPs8F/lLfVnEUN +T0b5OGpWZ8CP2QR7s0w1PDcUoBHDfhVMlB5nm21Xx9zG0s0Jqalwf1b370KX +OvaPrL7gKpMMJxVUX73w0kAf1n+FeRQTgDF1qG//Ok1szGzttpGPBSNpIUuu +Ak2MLA5frf3iEsiFXw5q0dJCk6WYFaOJCJD30nkg80oL8xP/y6xRCgWv+0cu +VZ/SRn957pninGB4kN93aGazDj5Yc+tAgfUZ+HVrZUHprg4On9Dd0sM8BZ4y +peuyLXfg4vlze/DKCZiRT9O8M70DD9VcIfm0j0Bd0d93c7G6aPNMoG1lyRM0 +dwUsmMfrYvngjfq2755Q8+4bZ36iLpqqhNaljXrCHYlRLfNUXXypRGuyavaE +sszmxNx/dbHTTsAaLnlCfkKUjkmFLnJO79u0yOUJcQE8KZm9umi8+8RiqZwH +OBlSuSmhh+UGd+zYQtxguY+Du5Wmh8Ev+h6tO+4G+V5TI+ZSenjWNiVe1MUN +PkbXBzrJ6eGQgNqSs4Eb+D+xqgxW1cPQHYKPnTe4weU95yXqjPWQKdxuEqPv +Cvcc+5fUffVQ+3FPyNI1ZxA9EVOv2KyHL3jNIztSnSBp5bBGfIsePtPfxFC6 +4ARsqcbkpzY97Nu1dPiGtxNM1q4uyX+ih64u/71/oOcE91guZfL26mFk6IOo +sk/7welKeOD8B+p5Ns+Eg7gfMhuCNe5vYOBeefVLw0sOsHn9cdLSgYEFIv6D +7vn2ULTrQsj0fgZyHOX+aJJgD6oXknalHWRgVZNDmH6QPeyZZvYPuTMwrSBa +2tnaHqIH5n57Hmfgidm8JRdWe1gsCDMIiWBgTDhj47HDdvBKN623uJSBtsZj +5g56e+HImaJrZhUMfHTwsaCO/F6Yr6jx+sZk4O7FOG55ob3ASx9aUKllYNHw +0h6dX7ZgwSEu1tTMQL4P4j83lNtCY1/xod5+Bk7KpccEEbZgzl23/ewQA83u +31w22WgLQyZP5oVGGOgQeXhOZsUGft37GuvyloFfvuQg1xsb2H5dufzLJAOn +AtllY7NsoPHVzrMJ3xm474V3XGesDZjz7wWlaQbq/3NUTDTIBg7HnHkRMMfA +Qwdu3/q4jxqvOTpbcJGar19RoruxDUT+yfC894eB2XO1wZMaNrBRvUTBeZmB +TmPPPSJkbCD3xL25lRUGloa/0pfdbAP/Azqyuvk= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06968265198563744}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06968265198563744}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vu0bAHCjoTIK2eM5j5Eke8bjupItGREpO0mLpIzKKivjNcp6M0JK +1nMyIpRQpELZKUpaKpGMitfv/P46n+/nfM59zn1f93Vd9yE8fG292FhYWHhY +WVj+f50ffdImHV+kv7srjSPXaad+X65Q8M6hSPC25EkMHZAE3NztITSUCqGs +ewo1BpTgrPXtQfahArC8zjOzagBg05Rg6u/BO7D/5XhBQ78VjDXu8f012AJ+ +7Le39fa5grH05JuZwZfgpfPwq9ULX/g9qHV1enAc1PqZs/atYdC662bRi4JZ +kGTcpDkfTwaxsfqPHgrL8OxRVvWMaCbwH3e9vXYXO66Mx61Vss2DVBXjhj32 +HGhivFc0ZF8hDGcqN89s5MKfrPsjMKIY4ovCutmEN6GhdZLReHYJCF55H5eW +w4ci8h+b+o3LQGhbzaXFYj7sLXP13WRdBiIt0WHOTD7UtBjNMtlfBhLTW89s +aeXDgmSwLzxWBjK7/dwaPvNh9FETI6HkMlBbtaz5Xo0fuRznuRYGy8AqQGBC +tZMfy9T2NoZ7lkOMnZn+y/nNeGBu0STJpwJEqrtE2FgF8FyQSjuHfwVU8Nkt +qGwQwEiLHWHnQypg4KULM0VSAE/HbU63iq8AaZsAuo2pAGoFTxoVlVVAi2Xe +mp4sASzc9Of7mqkKWDae63quJ4i6C7nvSo9VQnJxSOmysSBmKPROWJyuBOk1 +LLHbbQTxva8Tx4eQStj9aP3ORC9BrL21WM52uRKyd9GqdicJYiO7mOfXm5Wg +jRYZT8cEUeWJ459T45VwWue665NIIcyPdzGU28oE83zuXxYJQhiXkeJlrcAE ++trzsV1XhVAQcyLOKDGhp28f2XtLCCczW0pqNZig6MfJPtolhPejBO7yGzDh +c3Fg8U8RYQye9a8EJyYc5N/zXbRKGL9trEuzjmWC2rmGiNxGYWzYcvSDYDwT +1o/LCRCPhdGna0DpdSIT6ivZQXZYGN23DlccSGOCgEV9svKKMCaYR9tr5lLv +j5BWN7IQwfbALFOnKiYY/vgTcvK9CL7aFMTlPMKEYNMr8g+/UZbTPHP3DRMq +rm9/xTcvgr6cdnPcb5kgZOemU88hiuxx/FAzwYRvdY8W2BVFkXcx++/odyak +RSYHZAWJopHSH9WbK0wY3yx7so1LDMPshDI2ECQI+j4QFxQUQ39HcYt1UiTs +7nB87kMTwws/1MVWyZBQGxKvwKMmhkrHvQVm5Ei4PDY9ud9RDA+mp/vdUiZB +taTB+0eBGNbNXfmWACRE6Nm4i2iLo8Sn05WKB0gwdcn9qWUgjouyI0OzB0ng +Dv960X63OEbezLtR40LCtdao4mQ3cbze1CKv5EFCnfm9r2vixNG/XXfq9xES +ph2lzs4Oi2OvTlXV1BkS7ob4rd00IY4X0/cbhAaSEHqtKVNxShzVAkdD1geT +wPnWocGHTQK/L5h8FTpPwhbvBJa38hIoSVce4IokweXM3OVn5ySw29BezzGR +BJkMA7HJKAls+LCYdyeJpNbvn/K1yRIYd5OlZl0yCSFLW3sMiiSQZQznylNJ +uHrRZXP9MwlciRx+3ZVBwrOU9rwb4pKoHGF53/86CWlV/CqtWyTxTFzj2cwC +Epz63Vveqkii1CneL/cKSfgstDQhaiyJuv41y3M3SGDPV5ZPPSmJt9vG5g1v +k7CjIqs69IEkOuyVLDO+Q4LhYNfyVIckdn+9ryVXRcIellUmri8lkTH2fmZN +NQmetieH4YMk+ka2zTbUkGB8jggLX03DzSWaeqvqSXjK01iovZ6GzUK25t2U +rYv2dUxz03D1Ed74jHskHHgev8ldiIa/cnKLJRtJ8JOcL9y5jYbq3QN23A9I +mKtK7vitRMNdHavXtlIOMd32nVSn4ehpmemAZhKiTrlp0vVpGNXp49PzkITs +1s4ONhsa9j9MXnu4jYQ277zvrWdpaFs85sf5hASzJR3e8+do2LT7bP8Vyl3J +fZrq4TQ01RcMEekkYbh+XXhRHA2LbvVHiT8lYWpDAG/UNRoutS7eZXtOwul8 +bi3GdRo+tE7ZfobyonrJgbkbNOQ/yvJ5gjK7y2iRVyUN31b1bW/sIkGIaapl +3ELDBmY2t3kPCTmG7w/895iGn7bINRZTpg9fCK99SkPxqogqlhckbGereiLb +T8P8UcnIMsp30i2nRoep8UJLnP6jrL3tM2/GKA0tVOPCLF+SYGAnfnDtZxpq +1Y8w31Nu/3w3/ME3Gkb+k3lfvpfKpwu2NwJnqO+9AKK+lB2KY6Y+/aHho/Mf +W39Qfr2Dzpe/QkP7aI1NCn0keHQ3ajmuIvBWJifTi/LxxZnwDi4CYxIWJnoo +7zh1WOAjL4FRp9Vj1vSTwDH5qpRdiMAHv9ev0aE84GG1kxCnnGXvcYTyjZHW +AX06gbxFP65doRxgp3384BYCm/RrapsoGzwvYw1RIDDp0EXme8objYmMDBUC +Uye04tcMkDB6/6pCjSaBnu6kiSzlMq31LS91Ccy37v5oQDmEGeowjQTq/jnl +c5Cy6dbZb1zGBH4JDOnxpyxQ4B25zYLAi9WdYtGUJ0ReC5pZE+h6zMgqnfKd +NOvyw/YE1m3pOlJIOZzzkcElJwI3GZodLadsFaUzdN2VwMQv/9pVU5b4r/zE +g0MEOvGUydVR/naWzv7Gh0DOELdP//e9H+mZf04SuHwvP6WWcuyRDYpCAQSW +KtnLkZT3vQtr1QgmkMbqXXaLsrTTL8e9oQRaSjVL5FD++fLIlN9FAp3tLMKT +KDdbvLmYFEuggtivF+cpJ7XZCJclEpjxtJj/COWDjMcVT1IJ7DtnbWZNWb52 +h+GnDALfc435aVD+rVg5vCqHwLdbdyYIUu64KeVLLyDQXf/wtXlqvdNpmavw +JoGDYfoFLymr8kYonSMJHFF/nhpBmSV+ri2zlrr/2TvMjnIX+1Gn2gZq/mah +XtKUj83ZRs08IrD25xTR8P/9cbJdhOcpgXYpan8iKHN80mUq9BD4JLqj24hy +0ZD0iPcrAgO8m8+2UfvP3ybLL2qMQMcSPvMwytjJtaZwgkCxqQwJLcpvGuaV +R6cI5HYQ686h9rdAXke0HTsdJ6v+9TGh8mFCkCHmz0HH/o+L7pNUPt1JJsl/ +uOio13/M8zJlq8js152CdFRdnxb1sJuKh9dx1Z0KdDT9zOPJSeXnvtG37S4q +dHT7q9+cQeWvtIO983lNOnpnpSvSKDeb6sfeRTraGQ4YyD2j1nPbxtHt9tR4 +Y86HN1P1Yj5HJELNiY47/yasxFP15BePjLSOKx3dvTmer3RQ9WNW56ihDx1D +HQc5xtpJGG/wnHe6QMenT3Mlzz8iodPiLnfsDTrSeWRuq1D1rL3pIZl4m45s +7W9XzlH1rk3pmV1aJR2bOJazWu+TcJ/vXXZuPR3T3U7lmTdR8x1Zv6XmOR11 +eglObaqeZh9zgfE5OspxWtqnUPU6482R8U9/6EhedDzBpOr5FavTUd9X6OiU +5PfqGUntJ7XYp4vrpLBfZXXdciUJkX9JBx4JKQzbk5ELZVR841f76RlL4W6D +kXVGRSTolZblp6dLIWvu6UVnqh+N0ErzjP6VQt0LjYX6KVQ+ppfk/sqTwvXC +LqLiVP+6G1F8zbZECo1tbE/3Uv1O1TE/k7tRCssdC8Zk4kjYuvpKcvQ7Kay3 +lAnyCKPi63ou/KyCNNYwOhV2HiWhpi84TEZFGrXjIxTfUP3YzjwotE9DGlNf +nBQJ9CYhVePMeVWQxqC8xuqiQyRwcfoGTdlIIy31B9cnqr+vqvfwOxwojRfX +rWxdt5eEGV5zt30t0ljFqvLyiQ4JQ8fpPUfbpTHFw9+EVZuK9+M/EPaMMtPv +hKYmCckhpZK3BqjvuczsyVIlQXmcc+z3pDTqXb8paLSNhJNkt3MOnwxG6I61 +KoqRMGllf2DikAyCaUycwxITJhLc9vmvlcXyojUHTGqZcHJSga7MKYtXLZfb +xaqZsGDy+/v3jbLYKEIPmSap8xt7apSPiCzeWjK5k1rOBOXg1mq37bLImmiW +3FLEhAtesnxWe2Wxkr1urieVOs/pf+velieLsRUMVuYJJpj9CDT7oLkFi1eC +jKslqPOYJ8fp6jA5ZBau5/BtrqD+JwTZYlq24irtjRLdkuXA+1w2iflDHp8u +T3jbhJaCWGyltaamAqrRwl3GCksgc5vORj7v7Th+o+1T2+ub0CmyU2M2RRGL +RfK4jooUww6xlmSlASWUr5CluagXATd7QYB7pDJe56/7KxRYABIRknr7ZVXQ +WEFa1LAwH9bJHKy1bVfBtdfpWpaDOaDIEK4MdFbFhTD+jbzPs8F/lLfVnEUN +T0b5OGpWZ8CP2QR7s0w1PDcUoBHDfhVMlB5nm21Xx9zG0s0Jqalwf1b370KX +OvaPrL7gKpMMJxVUX73w0kAf1n+FeRQTgDF1qG//Ok1szGzttpGPBSNpIUuu +Ak2MLA5frf3iEsiFXw5q0dJCk6WYFaOJCJD30nkg80oL8xP/y6xRCgWv+0cu +VZ/SRn957pninGB4kN93aGazDj5Yc+tAgfUZ+HVrZUHprg4On9Dd0sM8BZ4y +peuyLXfg4vlze/DKCZiRT9O8M70DD9VcIfm0j0Bd0d93c7G6aPNMoG1lyRM0 +dwUsmMfrYvngjfq2755Q8+4bZ36iLpqqhNaljXrCHYlRLfNUXXypRGuyavaE +sszmxNx/dbHTTsAaLnlCfkKUjkmFLnJO79u0yOUJcQE8KZm9umi8+8RiqZwH +OBlSuSmhh+UGd+zYQtxguY+Du5Wmh8Ev+h6tO+4G+V5TI+ZSenjWNiVe1MUN +PkbXBzrJ6eGQgNqSs4Eb+D+xqgxW1cPQHYKPnTe4weU95yXqjPWQKdxuEqPv +Cvcc+5fUffVQ+3FPyNI1ZxA9EVOv2KyHL3jNIztSnSBp5bBGfIsePtPfxFC6 +4ARsqcbkpzY97Nu1dPiGtxNM1q4uyX+ih64u/71/oOcE91guZfL26mFk6IOo +sk/7welKeOD8B+p5Ns+Eg7gfMhuCNe5vYOBeefVLw0sOsHn9cdLSgYEFIv6D +7vn2ULTrQsj0fgZyHOX+aJJgD6oXknalHWRgVZNDmH6QPeyZZvYPuTMwrSBa +2tnaHqIH5n57Hmfgidm8JRdWe1gsCDMIiWBgTDhj47HDdvBKN623uJSBtsZj +5g56e+HImaJrZhUMfHTwsaCO/F6Yr6jx+sZk4O7FOG55ob3ASx9aUKllYNHw +0h6dX7ZgwSEu1tTMQL4P4j83lNtCY1/xod5+Bk7KpccEEbZgzl23/ewQA83u +31w22WgLQyZP5oVGGOgQeXhOZsUGft37GuvyloFfvuQg1xsb2H5dufzLJAOn +AtllY7NsoPHVzrMJ3xm474V3XGesDZjz7wWlaQbq/3NUTDTIBg7HnHkRMMfA +Qwdu3/q4jxqvOTpbcJGar19RoruxDUT+yfC894eB2XO1wZMaNrBRvUTBeZmB +TmPPPSJkbCD3xL25lRUGloa/0pfdbAP/Azqyuvk= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06968265198563744}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06968265198563744}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9942510067263107`*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"351ed974-2702-419a-931f-5035e99ecea8"] +}, Open ]], Cell[CellGroupData[{ @@ -7852,14 +7929,12 @@ Cell[BoxData[ FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.9918492800964603`*^9},ExpressionUUID->"9051a5e3-bb9f-d941-bcca-\ -598d0b6835be"], + CellChangeTimes->{3.9918492800964603`*^9}, + CellLabel->"In[98]:=",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], -Cell[BoxData["9.33220071900516`"], "Output", - CellChangeTimes->{3.991334803166374*^9}, - CellLabel-> - "Out[254]=",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +Cell[BoxData["10.177296520612765`"], "Output", + CellChangeTimes->{3.991334803166374*^9, 3.9942510067711983`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"f0de39db-32d4-4fd2-966b-483b221f45bb"] }, Open ]], Cell[CellGroupData[{ @@ -7915,191 +7990,175 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918492818821335`*^9},ExpressionUUID->"65a995ff-ff3d-634e-9bad-\ -4a8a16073236"], + CellChangeTimes->{3.9918492818821335`*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.015132160320536`*^-259\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 255, 233, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133480336051*^9}, - CellLabel-> - "During evaluation of \ -In[255]:=",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.802481548114291`*^-269\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 255, 234, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991334803369583*^9}, - CellLabel-> - "During evaluation of \ -In[255]:=",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.803946040382125`*^-279\\\", \ + "\"\\!\\(\\*FractionBox[\\\"8.473592969321407`*^-260\\\", \ \\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 255, 235, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991334803378134*^9}, + 2, 99, 13, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133480336051*^9, 3.994251006894658*^9}, CellLabel-> "During evaluation of \ -In[255]:=",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], +In[99]:=",ExpressionUUID->"59c54670-b1ce-4057-88e2-0da6938974a4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.151844295331309`*^-269\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 99, 14, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133480336051*^9, 3.994251006903421*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"8b729187-04ed-4a15-af05-0a6bccb1db8c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.464546017391152`*^-279\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 99, 15, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133480336051*^9, 3.994251006913477*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"3bd6ae29-177a-42f8-9152-8abd24e2cb02"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 255, 236, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991334803386196*^9}, +during this calculation.\"", 2, 99, 16, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133480336051*^9, 3.994251006923573*^9}, CellLabel-> "During evaluation of \ -In[255]:=",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], +In[99]:=",ExpressionUUID->"fc236fa9-c99d-45ba-bff4-0b6e2dab0564"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK -ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS -Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 -ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN -7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I -q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F -Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E -8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 -BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q -oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox -nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa -eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY -UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq -kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD -Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 -ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU -NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja -6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS -TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr -/i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm -7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc -F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ -tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD -2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM -fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 -dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz -0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj -g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 -+SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI -lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk -t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi -88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH -sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 -q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E -we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ -a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK -c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 -ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV -xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib -PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki -mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs -7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 -6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao -d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT -VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 -FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c -JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm -Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E -0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti -Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX -8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp -I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj -HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 -ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff -tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy -+LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj -Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e -mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc -JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 -qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw -BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc -HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 -p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix -mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD -2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 -o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV -YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld -Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB -T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 -OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR -6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy -dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb -7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 -ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ -qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk -efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB -cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc -I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 -cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T -jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC -luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv -5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP -9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 -ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV -Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm -hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j -9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm -4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq -s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h -Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB -BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj -7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK -idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T -Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop -J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc -HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD -+0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v -+NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy -j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR -8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn -JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N -vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V -SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 -640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP -GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC -DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz -ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 -XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 -9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt -voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX -rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 -bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l -Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 -WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV -YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 -YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT -78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM -V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf -1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are -1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy -7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx -POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB -eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k8VP/3B3CRpRLZxzoz1izZtxnGOSgyJJQUZc1HFKksZckSEiVri1Ro +0iZm7rRY6pMoWiSpZGlRVL59EFkSqd/9/XUfz8d93Pu+yzmvcy89eLdXqKCA +gIDJIgGB/9/OvH/8QDOXY6e4yCwybtzR7tU5ygH7nnTY5bz3xVa2OqDc82BK +TyEEaBZUmLJNIc7j6huhnkpglgfGyrEdQGpMofDXGwL0xoryvrh4wYc77run +3jRD7tWI/nUuweCk+e3dxJsuKDwcxv3ttBd+vbEqGX/zCQaO3bvUwkqHFsdL +nBeVk9BNfalS8KYQVD7Ufwk2WIBbKyNHnMrOgOyugKuijkK4gSKpYDBUAYUm +To3u3mJoMpcXkLC4CnpPGTdNrFiOPHHLJKOsK5DLSXkuqCiFVy9mh2/4XA1s +83BpOQ0pHOdocs5OVIPYAy9vnVVSGB4+4TqwUA0Zg1r9rvZSeCn0R6+7/HVI +Um//Uhwuhc8L1bidTtchqpzyR7uBPF7YZ2No1XXwLOMZuPpJY63i0IWWgBpQ +KB48UnRWBvtLTHOHG2qBon8zY7ZKBiu6Hxw7+qAWlJqzUrZxZdBtTWy+bkct +qI3rxuq0yKAtJ6bA/WMtaLlFBzYOy+CXxdXGlUJcMFu8YDloJosVj0zVvq/k +wvoY+SHTJ7Koknfy/sdoLngsG35/8qUsWoR73XaI5YJXZX3v77ey2FVbqlJ+ +gAubOrc+b/0uiwU3KOYe6VzYZnChwVdODqu2zORkFnFh55BRQXqgHKYQzcmr +b3Lh8EYXu64ZOQx9X/VlxQwXlG50KAkuksd5IafWDXNcqJHZ+NNkmTyybuaF +Ff7hQneXP7eAKo/v5OtGBUV5oOkZo+65Vh53zC77y1XgQfO68yKdp+VRixE/ +jtY8WHCa7nhmq4D1rmFgGMeD/KqEawtOCpifyn40fIA8XkQge5WnAgZwBZad +T+aB28Ol9sdCFfBVjf/dPxk8KHWk8d3yFDD16rGunCIeWKPryacfFPB28Y0r +r2t5sI9REfA4nYIWerp3LD7zgF0uMeV6lILxpeP6JsM8UBdNyu4ooeCmdvi4 +8j8edL7axHt5mYKfK2+pLJ/ggWG0uND7Dgqmysr1Xv7Ng+Gq+KofSor4FA2T +VskQsFXWfVSZr4gHXzh77WIRYJbYmHbujiIut153dRwIWPpppTy9VRGPbXJy +2+NAQH2tEGj3KuIahamoMGcC5F3r843/KqJLPMdCx5OAzjRN8zWuSthSkvt3 +KoSA1d/nEqIGlVBCxOPg0ywCDqwt1rs/ooS9boPOz7MJqKlY1Sczo4Q72rYd +eZ5DAGVjIKNeTBmpfTtjH+YRMFL38KeQoTK2RX+czzpBQFF6fszp/cr4RC9Q +LugiAY/6dTVH0pSRU+NyxOASAb/NW17a5Sqj9gfNxKnLBPzzddp06KwyHlDf +3HegmgCmm9+EYYsyjqzKKPTlE/BJTjvqwXIVdBT74RrTRIDC7nuqCgoqaDD7 +rEu0mQC3R5ufhdNUsCz0xvuTLQTcSsg1kDRTQSFm7uHrrQTkfBj/tmWzCjbX +CenXthNgeqUx7HulCg4MH9cV7yEgTNBbwaFaBbt7rtnu6CWgzG+stfimCtpF +/Hjb1EeAiARdm/lIBYvb9NrC3hHQtzdrKGNUBc2P13oe/URAmq1nkJK1Kg4J +p981HiFgrf+5H1YOqvjAn3slapQAidT/Dnm7qWLXOv+Cy2Pk+Vsyq/IDVfFA +0PpNKyYIqGM3/CdyRBVDwqLaa6cJSNklmqxZpIrPlu+/+myGAKe8jRIOZ1Xx +8nuPnK8/CXj1Ysw4maeKy+a5XpJzBIxv1oib7FXFxbk2qkZ/CLidEC0qNaSK +92sf0lb9JeBg2d1ThmOqeHVxi4GOAB/EB3wawwXV8N5CWpCkIB90wo4KDOip +YU7J6k1cYT74x07ntCeq4SWtq6YW4nzQOumg8i1TDYcG87WnSI/UHb8umk96 +WtekdjkfEn7rdjpw1HBu3jBPUZIPJYf85erb1TDUfjTtnhQftl68VtXdrYZ/ +8lvXBEjzQb1t1mpqQA2jqN905klzlxb5Gk2r4aTNJFtHlg/tBW3nL6pS8Y91 +to6nPB+K+LImLTpU/HRD69cL0r6vg5oHTKgoFzY57q7Ah2HK7yFlJyrqM3R9 +WBQ+1DJd4hgeVHSwOt1WQzpu6wlRH18qhmi7BKso8kGo3FivMIqKa0sylUZI +P7mf3Fi7n4qG2zWY7kp8yB984vYsnYpnmjSyq0mr6YTuFjtJxa9nEvnblPnw +eS0hoF1BxT33Rgu5pKsj/hY4XqMive4n5y9pZs3pGwfvUXHFSrnQQhU+rH7T +sTD2iIpc+rLqF6TdBRY7B3RRkThucGm5Kh826zLyn/dTcczS18eJdIhXVC98 +puKbuti7iaSjEi+oc8eo2F8Y1Hed9H5Oz07aLBUfqC6qfUvaKZGekipMwytj +I+nGanx4KnnngvVSGqbrLs7wJu3B2fRoXIKGbQvbMZ50t/XEyGUZGj4V+llX +QtrvWa5UEIWGJdcqx7ikB4K0LRVVaaho6/npEel/Zpp8X9Bp2No1UvyO9H85 +filHtGlYFxwo+p10NHXmgr0+De1unGQukJ7m5z/6ZURD7e0pRmJUsj7W6o/y +zGkoP7j4qyRpgXcPpSIYNJyKkQ+WJZ25J9BS3Y6GbsYXKuRILxWZ9+1zoOGZ +hdIqGdL5pSUphc40vHtibI8EaTkjYw7bjVwv6/hiEdKlLU8eCXrS8KF2dMAc +uT51c+hogzcNwyoPHfqPNGfkr9Q+Xxr+mbi7p5e0XlqppX4ADU+9ldF/QLpW +zsJvMISGnTMJ3Gukza8+Tzmzg4Zylf8TzCfdYBfB2RBJQ2VxH409pOHl4sfL +9tLQzLBRej3pB2HnR1viaFjeLtGlS9rlN0M6KZGGC7GuwYtId+S/sjRPpeGx +9J0PXpPva6PWbr+RDBqelYn4VUW6t35JKucIDXukHQVjSfu7czhb82hImEx+ +ANJDn+weyxbR8PJwfJEo6bFlMdKZZTQsGphNOUbW075yCStWBQ0NxycbXEnP +ml/xm75Iw/+Z3X8uQlrI/z0ntJaGwyE9OfvI+qRw11o5NdPQz8U9RIes77Or +B/3+tNKwOVnvSDvZD+q9yam3ntJw6fXZ/CjSqwT5j7Vf0/A39Qj7CtlPDhtV +t4oO0/BeQ1z6L7If24Zvp94boWHIWO+rTNJuyV4X4ydoGJpzUEqStE/V4bGv +czTk591fR5Hjw67ZidRHy+l4QqLju7AM2S97/pH/Ik3HfLknbZFkHoh967sm +RKFjffbIki4yPy72t3TbqdNx3VW1ruMr+PD+3xKDm5Z01E1vOTVA5k+11dLm +Lhs6rmiKH9b//zziHvQZRzqOYsD1fWReyVeGpeu70nEoPrBsdikf1mcyeioC +6HioJ8eyR5Ts7z/XI+9tp2Mhz8RHlPRInLrQu3A6Fv+7cdZUhA/ZO5YZUmLo ++GPjw/spi/nQ5PruUF42Hf/MJJ7+TuapqXSaUSKPjurWGeW6vwgQyJ1+cOoW +HZvc5OPoswR0CEX43mqkI602eFCOzO+d016ZEw/pmKRIyZ2aIoDTo9kf1kdH +3wSO9ZFxcl6ff5S1UUgdv+yP2ir1lYBf+iver/JWR+KRyN5LLwiYOauUZuar +jmc2iM3ZdBIwJamlyQhQxzpO1o5nHQSMTTIiVoer46Kjk3++PCXnZ2PIjG+y +Osa9ybaZfkjAE9fbEtkX1XFDWOGalHoCSnf6w6dpdUwP91y38RwBJ9/t+PR1 +Th1/W/0oyS4joHj9vszRv+q4xUdypr6UgDyz7KezSzQwJ19YSPYkAenzPB9J +NQ2ku0wkXjxO3l+ucLStkwYKiM67QioBtteqy0+c0EDh6z/ytwQQ0E+7dn7N +GQ1smz/zZ/M2AhJOXDk3dZ50rqbUJj9yfqVVlXld0cB0CVU9Fx9yXm8uPyVx +RwMdOps8ZNYToCtcnJ/1UQMTC9NKre3I5xWQmBpnoIm+Up1JnUoETEizAzc1 +a+J00nFMe8aDnl3qnRFtmjjrF6h39wkPmlrnIKVdE8+7dt6YaSO/BxOuUS93 +a2LW31IiuJkHxp/EP/z6pokB4HxI7TYPonjPt52V0cLMVEFhnXIefFvv7Te0 +XQvX192bPBzNg6GjgZv2imqj1rftdqNLeeDyPd7ls6UOPrwwF2zH4MJIiNi+ +GykrMfDCybCypBryf0RB8HCzLhaucGz0iqwG6WfaedzveshQPCMxEXkVVLJr +PSwtDfDoMs8GPuMynNJnrJAJW4UV5tZ3jfWr4ImSvcVkgSGWOvQvUTbiAFOl +Od+o2wh71dLDgimVICFUGROUboyHlrjtLGaWg1oa1XaLtgn6WCp7tVeUwRKt +rbe82kxQqHs84w3tNBiyFGvjt5niDF1EdYvSCdj7XrqFLWCGnmut/wxRiuD7 +5FFvl1NmmCHo7JxyLB+cjVpLXVaZo0D5WaE3p4/Cv5M28z87zNGN7t63jpUN +UQamfS9CLbBDIPm5BycDWGPbX21ZYonz3xK0jjHSYI0mZd3ySku86T+zsX04 +CVam5uxvtrJCz4wP3Uyz/aAXyrin1WeFZfoW2cIv90HovzsybuyxRq7GxzGm +XzSMRX6LXxNjjScjzZR2rIuG/aq7dnbHWeOvN1Sd8xANOUm7vWYTrVG85Xan +nmY0cJlxNNssa5wpizi/u383/L516E5LqTXW31TscBbeDYW156a6WqzR78C0 +JIZFwr3yV9sn5BhogIFvVwRHwIAbPSCOwsABBrMz1jUCBH5FbplXYuAQRXXL +f+YR4OAp6i5MI/cbpiwWE4uA1kVMK0U9Bpb4v2wUqQ2H9uDzS+ztGHhCKCRL +SiAc+jQjavL/YaDQ5YHPyjVhMHX570+j2wy0FKQ8ELUOhS+bnMqP1DMw/bFO +Ta52KPQsPrZ2sJGBf/ZFS6rIhUJjoNLpE00M1I7LVg7+sR3SKRbMhccMDGf7 +lKRf3w4rsiOSnrxl4Fp7pUkJ7e1gEPZaIFSQiQNfFcc0aSEQonVtSek6Jr7W +Dl7/xDIIEh76R2h7MHF/mOTUvHYQ5IdKPyW8mPgu13w1UyEI7lw8cPSpDxMj ++pe3vv0ZCLLaayUXgphYLv4soq4+EFq1P8sGxjGx7b6iUgsEgt5KKk37PBP3 +2s+f7b/iDxN6RZbEOBOrqiqTWxz9oKcd18hMMnHP4MTjG/p+0BQ1tiFmmomc +2N1tdTJ+kEe47LGcY6IfdUXV7KAv6DEFqhuEbHDXxdYLmzJ9Idglkt4ib4N1 +Omb2aU+3wKswZ/FXtjbo+WQnBUI3Qx1n/uN0tg1KFn0V/vDUGywdY36yc22w +Xr2/PaPOG25+HBEvP2aDPqcvv2Bc9AZC7b0Vu9AGjz8u3fXioDdUn2o6du6M +DR6JiXh+09Qbyo9mMpxrbHDz92fF7LMb4UiMZMGplzZ4V2Vyf0DyBvBdrYE2 +arbYGhM8SwvzhIVXYhItNFuk1Buu/OHtCeWhY/1sDVs8+VvpYNdqT/iSVR/v +u9IWg0Tmo5rUPWHv4/W1B0xtMVuma6XHBw/IcU9Sq3OyxbqmGBMLPw9o2Pz6 +t/luW9xrRF1e0OgOypGH6w2bbFFS5c7OVAVXyPv7j0Vusy222/8+MLDABsFC +J97XB7b4uT3aY9MQG77dEr5S/pi8PkE3+UM8NjQIZJySfmmLHhsU2B/c2OBb +nBo/89kWa7JHCooPu8CpxgMW/y5j4Tq2WHyW+FqQW7qLt86HhUFLfqg6eq4B +jmNywvgWFrafGPtqxVwDpsl5jkVbWagSK2HhqLEG3Me5r3uCWDjNdhM/O70a +srqnf4XsYuGakopSvzOrYbYyxSEhjYXD26fvTX5zhD6bopdV11joauAkK1nq +ADtiOWUuNSykdDkaczMdYKbmZugIl4VZo54ZoXscQFq956fJLRaW7cnIE3dx +AFcxVZW7TSzcHGXuyP5lD3deVW1/+ZqFt277ycVuswe2RN2quB4WRjPTiz3Z +9tDj/HiG0s/CKueX1vZW9jDV8F+2/wALl/h8ur5Fyh5WVRhf/983FrYIdMRF +tiLc6bOPOzrKQlaBhNtHPgJbdgMYjbNwlUjO/bAKhH8Ox76ImWahgtAZ1+ok +hKmmrFKFWRYm1KZDRARC+tzJkIY5cv2DLoXMzQgrzK8YbFtgYXr/TTNVJ4Rz +kQ3Tf/+y0O7zaRlpc4T/A5I3cJY= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -8113,150 +8172,131 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK -ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS -Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 -ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN -7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I -q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F -Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E -8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 -BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q -oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox -nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa -eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY -UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq -kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD -Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 -ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU -NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja -6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS -TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr -/i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm -7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc -F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ -tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD -2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM -fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 -dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz -0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj -g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 -+SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI -lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk -t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi -88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH -sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 -q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E -we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ -a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK -c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 -ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV -xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib -PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki -mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs -7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 -6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao -d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT -VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 -FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c -JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm -Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E -0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti -Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX -8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp -I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj -HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 -ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff -tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy -+LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj -Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e -mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc -JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 -qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw -BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc -HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 -p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix -mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD -2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 -o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV -YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld -Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB -T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 -OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR -6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy -dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb -7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 -ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ -qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk -efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB -cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc -I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 -cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T -jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC -luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv -5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP -9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 -ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV -Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm -hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j -9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm -4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq -s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h -Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB -BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj -7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK -idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T -Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop -J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc -HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD -+0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v -+NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy -j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR -8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn -JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N -vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V -SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 -640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP -GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC -DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz -ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 -XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 -9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt -voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX -rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 -bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l -Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 -WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV -YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 -YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT -78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM -V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf -1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are -1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy -7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx -POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB -eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe +1:eJwV13k8VP/3B3CRpRLZxzoz1izZtxnGOSgyJJQUZc1HFKksZckSEiVri1Ro +0iZm7rRY6pMoWiSpZGlRVL59EFkSqd/9/XUfz8d93Pu+yzmvcy89eLdXqKCA +gIDJIgGB/9/OvH/8QDOXY6e4yCwybtzR7tU5ygH7nnTY5bz3xVa2OqDc82BK +TyEEaBZUmLJNIc7j6huhnkpglgfGyrEdQGpMofDXGwL0xoryvrh4wYc77run +3jRD7tWI/nUuweCk+e3dxJsuKDwcxv3ttBd+vbEqGX/zCQaO3bvUwkqHFsdL +nBeVk9BNfalS8KYQVD7Ufwk2WIBbKyNHnMrOgOyugKuijkK4gSKpYDBUAYUm +To3u3mJoMpcXkLC4CnpPGTdNrFiOPHHLJKOsK5DLSXkuqCiFVy9mh2/4XA1s +83BpOQ0pHOdocs5OVIPYAy9vnVVSGB4+4TqwUA0Zg1r9rvZSeCn0R6+7/HVI +Um//Uhwuhc8L1bidTtchqpzyR7uBPF7YZ2No1XXwLOMZuPpJY63i0IWWgBpQ +KB48UnRWBvtLTHOHG2qBon8zY7ZKBiu6Hxw7+qAWlJqzUrZxZdBtTWy+bkct +qI3rxuq0yKAtJ6bA/WMtaLlFBzYOy+CXxdXGlUJcMFu8YDloJosVj0zVvq/k +wvoY+SHTJ7Koknfy/sdoLngsG35/8qUsWoR73XaI5YJXZX3v77ey2FVbqlJ+ +gAubOrc+b/0uiwU3KOYe6VzYZnChwVdODqu2zORkFnFh55BRQXqgHKYQzcmr +b3Lh8EYXu64ZOQx9X/VlxQwXlG50KAkuksd5IafWDXNcqJHZ+NNkmTyybuaF +Ff7hQneXP7eAKo/v5OtGBUV5oOkZo+65Vh53zC77y1XgQfO68yKdp+VRixE/ +jtY8WHCa7nhmq4D1rmFgGMeD/KqEawtOCpifyn40fIA8XkQge5WnAgZwBZad +T+aB28Ol9sdCFfBVjf/dPxk8KHWk8d3yFDD16rGunCIeWKPryacfFPB28Y0r +r2t5sI9REfA4nYIWerp3LD7zgF0uMeV6lILxpeP6JsM8UBdNyu4ooeCmdvi4 +8j8edL7axHt5mYKfK2+pLJ/ggWG0uND7Dgqmysr1Xv7Ng+Gq+KofSor4FA2T +VskQsFXWfVSZr4gHXzh77WIRYJbYmHbujiIut153dRwIWPpppTy9VRGPbXJy +2+NAQH2tEGj3KuIahamoMGcC5F3r843/KqJLPMdCx5OAzjRN8zWuSthSkvt3 +KoSA1d/nEqIGlVBCxOPg0ywCDqwt1rs/ooS9boPOz7MJqKlY1Sczo4Q72rYd +eZ5DAGVjIKNeTBmpfTtjH+YRMFL38KeQoTK2RX+czzpBQFF6fszp/cr4RC9Q +LugiAY/6dTVH0pSRU+NyxOASAb/NW17a5Sqj9gfNxKnLBPzzddp06KwyHlDf +3HegmgCmm9+EYYsyjqzKKPTlE/BJTjvqwXIVdBT74RrTRIDC7nuqCgoqaDD7 +rEu0mQC3R5ufhdNUsCz0xvuTLQTcSsg1kDRTQSFm7uHrrQTkfBj/tmWzCjbX +CenXthNgeqUx7HulCg4MH9cV7yEgTNBbwaFaBbt7rtnu6CWgzG+stfimCtpF +/Hjb1EeAiARdm/lIBYvb9NrC3hHQtzdrKGNUBc2P13oe/URAmq1nkJK1Kg4J +p981HiFgrf+5H1YOqvjAn3slapQAidT/Dnm7qWLXOv+Cy2Pk+Vsyq/IDVfFA +0PpNKyYIqGM3/CdyRBVDwqLaa6cJSNklmqxZpIrPlu+/+myGAKe8jRIOZ1Xx +8nuPnK8/CXj1Ysw4maeKy+a5XpJzBIxv1oib7FXFxbk2qkZ/CLidEC0qNaSK +92sf0lb9JeBg2d1ThmOqeHVxi4GOAB/EB3wawwXV8N5CWpCkIB90wo4KDOip +YU7J6k1cYT74x07ntCeq4SWtq6YW4nzQOumg8i1TDYcG87WnSI/UHb8umk96 +WtekdjkfEn7rdjpw1HBu3jBPUZIPJYf85erb1TDUfjTtnhQftl68VtXdrYZ/ +8lvXBEjzQb1t1mpqQA2jqN905klzlxb5Gk2r4aTNJFtHlg/tBW3nL6pS8Y91 +to6nPB+K+LImLTpU/HRD69cL0r6vg5oHTKgoFzY57q7Ah2HK7yFlJyrqM3R9 +WBQ+1DJd4hgeVHSwOt1WQzpu6wlRH18qhmi7BKso8kGo3FivMIqKa0sylUZI +P7mf3Fi7n4qG2zWY7kp8yB984vYsnYpnmjSyq0mr6YTuFjtJxa9nEvnblPnw +eS0hoF1BxT33Rgu5pKsj/hY4XqMive4n5y9pZs3pGwfvUXHFSrnQQhU+rH7T +sTD2iIpc+rLqF6TdBRY7B3RRkThucGm5Kh826zLyn/dTcczS18eJdIhXVC98 +puKbuti7iaSjEi+oc8eo2F8Y1Hed9H5Oz07aLBUfqC6qfUvaKZGekipMwytj +I+nGanx4KnnngvVSGqbrLs7wJu3B2fRoXIKGbQvbMZ50t/XEyGUZGj4V+llX +QtrvWa5UEIWGJdcqx7ikB4K0LRVVaaho6/npEel/Zpp8X9Bp2No1UvyO9H85 +filHtGlYFxwo+p10NHXmgr0+De1unGQukJ7m5z/6ZURD7e0pRmJUsj7W6o/y +zGkoP7j4qyRpgXcPpSIYNJyKkQ+WJZ25J9BS3Y6GbsYXKuRILxWZ9+1zoOGZ +hdIqGdL5pSUphc40vHtibI8EaTkjYw7bjVwv6/hiEdKlLU8eCXrS8KF2dMAc +uT51c+hogzcNwyoPHfqPNGfkr9Q+Xxr+mbi7p5e0XlqppX4ADU+9ldF/QLpW +zsJvMISGnTMJ3Gukza8+Tzmzg4Zylf8TzCfdYBfB2RBJQ2VxH409pOHl4sfL +9tLQzLBRej3pB2HnR1viaFjeLtGlS9rlN0M6KZGGC7GuwYtId+S/sjRPpeGx +9J0PXpPva6PWbr+RDBqelYn4VUW6t35JKucIDXukHQVjSfu7czhb82hImEx+ +ANJDn+weyxbR8PJwfJEo6bFlMdKZZTQsGphNOUbW075yCStWBQ0NxycbXEnP +ml/xm75Iw/+Z3X8uQlrI/z0ntJaGwyE9OfvI+qRw11o5NdPQz8U9RIes77Or +B/3+tNKwOVnvSDvZD+q9yam3ntJw6fXZ/CjSqwT5j7Vf0/A39Qj7CtlPDhtV +t4oO0/BeQ1z6L7If24Zvp94boWHIWO+rTNJuyV4X4ydoGJpzUEqStE/V4bGv +czTk591fR5Hjw67ZidRHy+l4QqLju7AM2S97/pH/Ik3HfLknbZFkHoh967sm +RKFjffbIki4yPy72t3TbqdNx3VW1ruMr+PD+3xKDm5Z01E1vOTVA5k+11dLm +Lhs6rmiKH9b//zziHvQZRzqOYsD1fWReyVeGpeu70nEoPrBsdikf1mcyeioC +6HioJ8eyR5Ts7z/XI+9tp2Mhz8RHlPRInLrQu3A6Fv+7cdZUhA/ZO5YZUmLo ++GPjw/spi/nQ5PruUF42Hf/MJJ7+TuapqXSaUSKPjurWGeW6vwgQyJ1+cOoW +HZvc5OPoswR0CEX43mqkI602eFCOzO+d016ZEw/pmKRIyZ2aIoDTo9kf1kdH +3wSO9ZFxcl6ff5S1UUgdv+yP2ir1lYBf+iver/JWR+KRyN5LLwiYOauUZuar +jmc2iM3ZdBIwJamlyQhQxzpO1o5nHQSMTTIiVoer46Kjk3++PCXnZ2PIjG+y +Osa9ybaZfkjAE9fbEtkX1XFDWOGalHoCSnf6w6dpdUwP91y38RwBJ9/t+PR1 +Th1/W/0oyS4joHj9vszRv+q4xUdypr6UgDyz7KezSzQwJ19YSPYkAenzPB9J +NQ2ku0wkXjxO3l+ucLStkwYKiM67QioBtteqy0+c0EDh6z/ytwQQ0E+7dn7N +GQ1smz/zZ/M2AhJOXDk3dZ50rqbUJj9yfqVVlXld0cB0CVU9Fx9yXm8uPyVx +RwMdOps8ZNYToCtcnJ/1UQMTC9NKre3I5xWQmBpnoIm+Up1JnUoETEizAzc1 +a+J00nFMe8aDnl3qnRFtmjjrF6h39wkPmlrnIKVdE8+7dt6YaSO/BxOuUS93 +a2LW31IiuJkHxp/EP/z6pokB4HxI7TYPonjPt52V0cLMVEFhnXIefFvv7Te0 +XQvX192bPBzNg6GjgZv2imqj1rftdqNLeeDyPd7ls6UOPrwwF2zH4MJIiNi+ +GykrMfDCybCypBryf0RB8HCzLhaucGz0iqwG6WfaedzveshQPCMxEXkVVLJr +PSwtDfDoMs8GPuMynNJnrJAJW4UV5tZ3jfWr4ImSvcVkgSGWOvQvUTbiAFOl +Od+o2wh71dLDgimVICFUGROUboyHlrjtLGaWg1oa1XaLtgn6WCp7tVeUwRKt +rbe82kxQqHs84w3tNBiyFGvjt5niDF1EdYvSCdj7XrqFLWCGnmut/wxRiuD7 +5FFvl1NmmCHo7JxyLB+cjVpLXVaZo0D5WaE3p4/Cv5M28z87zNGN7t63jpUN +UQamfS9CLbBDIPm5BycDWGPbX21ZYonz3xK0jjHSYI0mZd3ySku86T+zsX04 +CVam5uxvtrJCz4wP3Uyz/aAXyrin1WeFZfoW2cIv90HovzsybuyxRq7GxzGm +XzSMRX6LXxNjjScjzZR2rIuG/aq7dnbHWeOvN1Sd8xANOUm7vWYTrVG85Xan +nmY0cJlxNNssa5wpizi/u383/L516E5LqTXW31TscBbeDYW156a6WqzR78C0 +JIZFwr3yV9sn5BhogIFvVwRHwIAbPSCOwsABBrMz1jUCBH5FbplXYuAQRXXL +f+YR4OAp6i5MI/cbpiwWE4uA1kVMK0U9Bpb4v2wUqQ2H9uDzS+ztGHhCKCRL +SiAc+jQjavL/YaDQ5YHPyjVhMHX570+j2wy0FKQ8ELUOhS+bnMqP1DMw/bFO +Ta52KPQsPrZ2sJGBf/ZFS6rIhUJjoNLpE00M1I7LVg7+sR3SKRbMhccMDGf7 +lKRf3w4rsiOSnrxl4Fp7pUkJ7e1gEPZaIFSQiQNfFcc0aSEQonVtSek6Jr7W +Dl7/xDIIEh76R2h7MHF/mOTUvHYQ5IdKPyW8mPgu13w1UyEI7lw8cPSpDxMj ++pe3vv0ZCLLaayUXgphYLv4soq4+EFq1P8sGxjGx7b6iUgsEgt5KKk37PBP3 +2s+f7b/iDxN6RZbEOBOrqiqTWxz9oKcd18hMMnHP4MTjG/p+0BQ1tiFmmomc +2N1tdTJ+kEe47LGcY6IfdUXV7KAv6DEFqhuEbHDXxdYLmzJ9Idglkt4ib4N1 +Omb2aU+3wKswZ/FXtjbo+WQnBUI3Qx1n/uN0tg1KFn0V/vDUGywdY36yc22w +Xr2/PaPOG25+HBEvP2aDPqcvv2Bc9AZC7b0Vu9AGjz8u3fXioDdUn2o6du6M +DR6JiXh+09Qbyo9mMpxrbHDz92fF7LMb4UiMZMGplzZ4V2Vyf0DyBvBdrYE2 +arbYGhM8SwvzhIVXYhItNFuk1Buu/OHtCeWhY/1sDVs8+VvpYNdqT/iSVR/v +u9IWg0Tmo5rUPWHv4/W1B0xtMVuma6XHBw/IcU9Sq3OyxbqmGBMLPw9o2Pz6 +t/luW9xrRF1e0OgOypGH6w2bbFFS5c7OVAVXyPv7j0Vusy222/8+MLDABsFC +J97XB7b4uT3aY9MQG77dEr5S/pi8PkE3+UM8NjQIZJySfmmLHhsU2B/c2OBb +nBo/89kWa7JHCooPu8CpxgMW/y5j4Tq2WHyW+FqQW7qLt86HhUFLfqg6eq4B +jmNywvgWFrafGPtqxVwDpsl5jkVbWagSK2HhqLEG3Me5r3uCWDjNdhM/O70a +srqnf4XsYuGakopSvzOrYbYyxSEhjYXD26fvTX5zhD6bopdV11joauAkK1nq +ADtiOWUuNSykdDkaczMdYKbmZugIl4VZo54ZoXscQFq956fJLRaW7cnIE3dx +AFcxVZW7TSzcHGXuyP5lD3deVW1/+ZqFt277ycVuswe2RN2quB4WRjPTiz3Z +9tDj/HiG0s/CKueX1vZW9jDV8F+2/wALl/h8ur5Fyh5WVRhf/983FrYIdMRF +tiLc6bOPOzrKQlaBhNtHPgJbdgMYjbNwlUjO/bAKhH8Ox76ImWahgtAZ1+ok +hKmmrFKFWRYm1KZDRARC+tzJkIY5cv2DLoXMzQgrzK8YbFtgYXr/TTNVJ4Rz +kQ3Tf/+y0O7zaRlpc4T/A5I3cJY= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "PlotRange" -> {{0, 30}, {0., 0.07469306179263063}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -8268,19 +8308,19 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "PlotRange" -> {{0, 30}, {0., 0.07469306179263063}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8294,149 +8334,130 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK -ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS -Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 -ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN -7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I -q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F -Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E -8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 -BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q -oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox -nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa -eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY -UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq -kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD -Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 -ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU -NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja -6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS -TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr -/i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm -7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc -F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ -tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD -2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM -fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 -dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz -0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj -g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 -+SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI -lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk -t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi -88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH -sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 -q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E -we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ -a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK -c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 -ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV -xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib -PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki -mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs -7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 -6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao -d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT -VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 -FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c -JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm -Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E -0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti -Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX -8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp -I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj -HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 -ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff -tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy -+LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj -Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e -mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc -JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 -qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw -BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc -HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 -p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix -mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD -2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 -o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV -YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld -Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB -T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 -OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR -6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy -dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb -7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 -ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ -qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk -efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB -cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc -I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 -cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T -jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC -luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv -5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP -9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 -ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV -Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm -hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j -9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm -4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq -s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h -Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB -BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj -7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK -idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T -Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop -J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc -HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD -+0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v -+NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy -j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR -8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn -JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N -vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V -SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 -640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP -GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC -DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz -ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 -XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 -9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt -voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX -rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 -bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l -Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 -WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV -YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 -YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT -78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM -V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf -1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are -1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy -7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx -POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB -eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe +1:eJwV13k8VP/3B3CRpRLZxzoz1izZtxnGOSgyJJQUZc1HFKksZckSEiVri1Ro +0iZm7rRY6pMoWiSpZGlRVL59EFkSqd/9/XUfz8d93Pu+yzmvcy89eLdXqKCA +gIDJIgGB/9/OvH/8QDOXY6e4yCwybtzR7tU5ygH7nnTY5bz3xVa2OqDc82BK +TyEEaBZUmLJNIc7j6huhnkpglgfGyrEdQGpMofDXGwL0xoryvrh4wYc77run +3jRD7tWI/nUuweCk+e3dxJsuKDwcxv3ttBd+vbEqGX/zCQaO3bvUwkqHFsdL +nBeVk9BNfalS8KYQVD7Ufwk2WIBbKyNHnMrOgOyugKuijkK4gSKpYDBUAYUm +To3u3mJoMpcXkLC4CnpPGTdNrFiOPHHLJKOsK5DLSXkuqCiFVy9mh2/4XA1s +83BpOQ0pHOdocs5OVIPYAy9vnVVSGB4+4TqwUA0Zg1r9rvZSeCn0R6+7/HVI +Um//Uhwuhc8L1bidTtchqpzyR7uBPF7YZ2No1XXwLOMZuPpJY63i0IWWgBpQ +KB48UnRWBvtLTHOHG2qBon8zY7ZKBiu6Hxw7+qAWlJqzUrZxZdBtTWy+bkct +qI3rxuq0yKAtJ6bA/WMtaLlFBzYOy+CXxdXGlUJcMFu8YDloJosVj0zVvq/k +wvoY+SHTJ7Koknfy/sdoLngsG35/8qUsWoR73XaI5YJXZX3v77ey2FVbqlJ+ +gAubOrc+b/0uiwU3KOYe6VzYZnChwVdODqu2zORkFnFh55BRQXqgHKYQzcmr +b3Lh8EYXu64ZOQx9X/VlxQwXlG50KAkuksd5IafWDXNcqJHZ+NNkmTyybuaF +Ff7hQneXP7eAKo/v5OtGBUV5oOkZo+65Vh53zC77y1XgQfO68yKdp+VRixE/ +jtY8WHCa7nhmq4D1rmFgGMeD/KqEawtOCpifyn40fIA8XkQge5WnAgZwBZad +T+aB28Ol9sdCFfBVjf/dPxk8KHWk8d3yFDD16rGunCIeWKPryacfFPB28Y0r +r2t5sI9REfA4nYIWerp3LD7zgF0uMeV6lILxpeP6JsM8UBdNyu4ooeCmdvi4 +8j8edL7axHt5mYKfK2+pLJ/ggWG0uND7Dgqmysr1Xv7Ng+Gq+KofSor4FA2T +VskQsFXWfVSZr4gHXzh77WIRYJbYmHbujiIut153dRwIWPpppTy9VRGPbXJy +2+NAQH2tEGj3KuIahamoMGcC5F3r843/KqJLPMdCx5OAzjRN8zWuSthSkvt3 +KoSA1d/nEqIGlVBCxOPg0ywCDqwt1rs/ooS9boPOz7MJqKlY1Sczo4Q72rYd +eZ5DAGVjIKNeTBmpfTtjH+YRMFL38KeQoTK2RX+czzpBQFF6fszp/cr4RC9Q +LugiAY/6dTVH0pSRU+NyxOASAb/NW17a5Sqj9gfNxKnLBPzzddp06KwyHlDf +3HegmgCmm9+EYYsyjqzKKPTlE/BJTjvqwXIVdBT74RrTRIDC7nuqCgoqaDD7 +rEu0mQC3R5ufhdNUsCz0xvuTLQTcSsg1kDRTQSFm7uHrrQTkfBj/tmWzCjbX +CenXthNgeqUx7HulCg4MH9cV7yEgTNBbwaFaBbt7rtnu6CWgzG+stfimCtpF +/Hjb1EeAiARdm/lIBYvb9NrC3hHQtzdrKGNUBc2P13oe/URAmq1nkJK1Kg4J +p981HiFgrf+5H1YOqvjAn3slapQAidT/Dnm7qWLXOv+Cy2Pk+Vsyq/IDVfFA +0PpNKyYIqGM3/CdyRBVDwqLaa6cJSNklmqxZpIrPlu+/+myGAKe8jRIOZ1Xx +8nuPnK8/CXj1Ysw4maeKy+a5XpJzBIxv1oib7FXFxbk2qkZ/CLidEC0qNaSK +92sf0lb9JeBg2d1ThmOqeHVxi4GOAB/EB3wawwXV8N5CWpCkIB90wo4KDOip +YU7J6k1cYT74x07ntCeq4SWtq6YW4nzQOumg8i1TDYcG87WnSI/UHb8umk96 +WtekdjkfEn7rdjpw1HBu3jBPUZIPJYf85erb1TDUfjTtnhQftl68VtXdrYZ/ +8lvXBEjzQb1t1mpqQA2jqN905klzlxb5Gk2r4aTNJFtHlg/tBW3nL6pS8Y91 +to6nPB+K+LImLTpU/HRD69cL0r6vg5oHTKgoFzY57q7Ah2HK7yFlJyrqM3R9 +WBQ+1DJd4hgeVHSwOt1WQzpu6wlRH18qhmi7BKso8kGo3FivMIqKa0sylUZI +P7mf3Fi7n4qG2zWY7kp8yB984vYsnYpnmjSyq0mr6YTuFjtJxa9nEvnblPnw +eS0hoF1BxT33Rgu5pKsj/hY4XqMive4n5y9pZs3pGwfvUXHFSrnQQhU+rH7T +sTD2iIpc+rLqF6TdBRY7B3RRkThucGm5Kh826zLyn/dTcczS18eJdIhXVC98 +puKbuti7iaSjEi+oc8eo2F8Y1Hed9H5Oz07aLBUfqC6qfUvaKZGekipMwytj +I+nGanx4KnnngvVSGqbrLs7wJu3B2fRoXIKGbQvbMZ50t/XEyGUZGj4V+llX +QtrvWa5UEIWGJdcqx7ikB4K0LRVVaaho6/npEel/Zpp8X9Bp2No1UvyO9H85 +filHtGlYFxwo+p10NHXmgr0+De1unGQukJ7m5z/6ZURD7e0pRmJUsj7W6o/y +zGkoP7j4qyRpgXcPpSIYNJyKkQ+WJZ25J9BS3Y6GbsYXKuRILxWZ9+1zoOGZ +hdIqGdL5pSUphc40vHtibI8EaTkjYw7bjVwv6/hiEdKlLU8eCXrS8KF2dMAc +uT51c+hogzcNwyoPHfqPNGfkr9Q+Xxr+mbi7p5e0XlqppX4ADU+9ldF/QLpW +zsJvMISGnTMJ3Gukza8+Tzmzg4Zylf8TzCfdYBfB2RBJQ2VxH409pOHl4sfL +9tLQzLBRej3pB2HnR1viaFjeLtGlS9rlN0M6KZGGC7GuwYtId+S/sjRPpeGx +9J0PXpPva6PWbr+RDBqelYn4VUW6t35JKucIDXukHQVjSfu7czhb82hImEx+ +ANJDn+weyxbR8PJwfJEo6bFlMdKZZTQsGphNOUbW075yCStWBQ0NxycbXEnP +ml/xm75Iw/+Z3X8uQlrI/z0ntJaGwyE9OfvI+qRw11o5NdPQz8U9RIes77Or +B/3+tNKwOVnvSDvZD+q9yam3ntJw6fXZ/CjSqwT5j7Vf0/A39Qj7CtlPDhtV +t4oO0/BeQ1z6L7If24Zvp94boWHIWO+rTNJuyV4X4ydoGJpzUEqStE/V4bGv +czTk591fR5Hjw67ZidRHy+l4QqLju7AM2S97/pH/Ik3HfLknbZFkHoh967sm +RKFjffbIki4yPy72t3TbqdNx3VW1ruMr+PD+3xKDm5Z01E1vOTVA5k+11dLm +Lhs6rmiKH9b//zziHvQZRzqOYsD1fWReyVeGpeu70nEoPrBsdikf1mcyeioC +6HioJ8eyR5Ts7z/XI+9tp2Mhz8RHlPRInLrQu3A6Fv+7cdZUhA/ZO5YZUmLo ++GPjw/spi/nQ5PruUF42Hf/MJJ7+TuapqXSaUSKPjurWGeW6vwgQyJ1+cOoW +HZvc5OPoswR0CEX43mqkI602eFCOzO+d016ZEw/pmKRIyZ2aIoDTo9kf1kdH +3wSO9ZFxcl6ff5S1UUgdv+yP2ir1lYBf+iver/JWR+KRyN5LLwiYOauUZuar +jmc2iM3ZdBIwJamlyQhQxzpO1o5nHQSMTTIiVoer46Kjk3++PCXnZ2PIjG+y +Osa9ybaZfkjAE9fbEtkX1XFDWOGalHoCSnf6w6dpdUwP91y38RwBJ9/t+PR1 +Th1/W/0oyS4joHj9vszRv+q4xUdypr6UgDyz7KezSzQwJ19YSPYkAenzPB9J +NQ2ku0wkXjxO3l+ucLStkwYKiM67QioBtteqy0+c0EDh6z/ytwQQ0E+7dn7N +GQ1smz/zZ/M2AhJOXDk3dZ50rqbUJj9yfqVVlXld0cB0CVU9Fx9yXm8uPyVx +RwMdOps8ZNYToCtcnJ/1UQMTC9NKre3I5xWQmBpnoIm+Up1JnUoETEizAzc1 +a+J00nFMe8aDnl3qnRFtmjjrF6h39wkPmlrnIKVdE8+7dt6YaSO/BxOuUS93 +a2LW31IiuJkHxp/EP/z6pokB4HxI7TYPonjPt52V0cLMVEFhnXIefFvv7Te0 +XQvX192bPBzNg6GjgZv2imqj1rftdqNLeeDyPd7ls6UOPrwwF2zH4MJIiNi+ +GykrMfDCybCypBryf0RB8HCzLhaucGz0iqwG6WfaedzveshQPCMxEXkVVLJr +PSwtDfDoMs8GPuMynNJnrJAJW4UV5tZ3jfWr4ImSvcVkgSGWOvQvUTbiAFOl +Od+o2wh71dLDgimVICFUGROUboyHlrjtLGaWg1oa1XaLtgn6WCp7tVeUwRKt +rbe82kxQqHs84w3tNBiyFGvjt5niDF1EdYvSCdj7XrqFLWCGnmut/wxRiuD7 +5FFvl1NmmCHo7JxyLB+cjVpLXVaZo0D5WaE3p4/Cv5M28z87zNGN7t63jpUN +UQamfS9CLbBDIPm5BycDWGPbX21ZYonz3xK0jjHSYI0mZd3ySku86T+zsX04 +CVam5uxvtrJCz4wP3Uyz/aAXyrin1WeFZfoW2cIv90HovzsybuyxRq7GxzGm +XzSMRX6LXxNjjScjzZR2rIuG/aq7dnbHWeOvN1Sd8xANOUm7vWYTrVG85Xan +nmY0cJlxNNssa5wpizi/u383/L516E5LqTXW31TscBbeDYW156a6WqzR78C0 +JIZFwr3yV9sn5BhogIFvVwRHwIAbPSCOwsABBrMz1jUCBH5FbplXYuAQRXXL +f+YR4OAp6i5MI/cbpiwWE4uA1kVMK0U9Bpb4v2wUqQ2H9uDzS+ztGHhCKCRL +SiAc+jQjavL/YaDQ5YHPyjVhMHX570+j2wy0FKQ8ELUOhS+bnMqP1DMw/bFO +Ta52KPQsPrZ2sJGBf/ZFS6rIhUJjoNLpE00M1I7LVg7+sR3SKRbMhccMDGf7 +lKRf3w4rsiOSnrxl4Fp7pUkJ7e1gEPZaIFSQiQNfFcc0aSEQonVtSek6Jr7W +Dl7/xDIIEh76R2h7MHF/mOTUvHYQ5IdKPyW8mPgu13w1UyEI7lw8cPSpDxMj ++pe3vv0ZCLLaayUXgphYLv4soq4+EFq1P8sGxjGx7b6iUgsEgt5KKk37PBP3 +2s+f7b/iDxN6RZbEOBOrqiqTWxz9oKcd18hMMnHP4MTjG/p+0BQ1tiFmmomc +2N1tdTJ+kEe47LGcY6IfdUXV7KAv6DEFqhuEbHDXxdYLmzJ9Idglkt4ib4N1 +Omb2aU+3wKswZ/FXtjbo+WQnBUI3Qx1n/uN0tg1KFn0V/vDUGywdY36yc22w +Xr2/PaPOG25+HBEvP2aDPqcvv2Bc9AZC7b0Vu9AGjz8u3fXioDdUn2o6du6M +DR6JiXh+09Qbyo9mMpxrbHDz92fF7LMb4UiMZMGplzZ4V2Vyf0DyBvBdrYE2 +arbYGhM8SwvzhIVXYhItNFuk1Buu/OHtCeWhY/1sDVs8+VvpYNdqT/iSVR/v +u9IWg0Tmo5rUPWHv4/W1B0xtMVuma6XHBw/IcU9Sq3OyxbqmGBMLPw9o2Pz6 +t/luW9xrRF1e0OgOypGH6w2bbFFS5c7OVAVXyPv7j0Vusy222/8+MLDABsFC +J97XB7b4uT3aY9MQG77dEr5S/pi8PkE3+UM8NjQIZJySfmmLHhsU2B/c2OBb +nBo/89kWa7JHCooPu8CpxgMW/y5j4Tq2WHyW+FqQW7qLt86HhUFLfqg6eq4B +jmNywvgWFrafGPtqxVwDpsl5jkVbWagSK2HhqLEG3Me5r3uCWDjNdhM/O70a +srqnf4XsYuGakopSvzOrYbYyxSEhjYXD26fvTX5zhD6bopdV11joauAkK1nq +ADtiOWUuNSykdDkaczMdYKbmZugIl4VZo54ZoXscQFq956fJLRaW7cnIE3dx +AFcxVZW7TSzcHGXuyP5lD3deVW1/+ZqFt277ycVuswe2RN2quB4WRjPTiz3Z +9tDj/HiG0s/CKueX1vZW9jDV8F+2/wALl/h8ur5Fyh5WVRhf/983FrYIdMRF +tiLc6bOPOzrKQlaBhNtHPgJbdgMYjbNwlUjO/bAKhH8Ox76ImWahgtAZ1+ok +hKmmrFKFWRYm1KZDRARC+tzJkIY5cv2DLoXMzQgrzK8YbFtgYXr/TTNVJ4Rz +kQ3Tf/+y0O7zaRlpc4T/A5I3cJY= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "PlotRange" -> {{0, 30}, {0., 0.07469306179263063}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8447,6 +8468,7 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8474,7 +8496,8 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.08145702771151381}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07469306179263063}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8482,9 +8505,8 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991335257344549*^9}, - CellLabel-> - "Out[255]=",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] + CellChangeTimes->{3.991335257344549*^9, 3.994251909172284*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"153ca13c-c7c0-40b0-823a-71f53a33700a"] }, Open ]], Cell[CellGroupData[{ @@ -8537,66 +8559,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[256]:=",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], + "In[100]:=",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.39639867535232`*^-188\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 256, - 237, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335257395241*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.627289817158398`*^-172\\\", \ +RowBox[{\\\"532888126012512780022077023202507591948\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"64\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0138815516114944000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 17, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335257395241*^9, 3.994251909336877*^9}, CellLabel-> "During evaluation of \ -In[256]:=",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], +In[100]:=",ExpressionUUID->"fadae03d-0030-4b94-8bd1-7b90042b6a88"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.342395211692676`*^-192\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 256, - 238, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352574052296`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.480853067763162`*^-175\\\", \ +RowBox[{\\\"161198658118785115956678299518758546564\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"68\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9916936247705600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 18, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335257395241*^9, 3.994251909349248*^9}, CellLabel-> "During evaluation of \ -In[256]:=",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], +In[100]:=",ExpressionUUID->"1ffbc858-9535-4309-a995-fe306f8aa9df"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1800384500947783`*^-195\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 256, 239, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335257413231*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.0296010539480884`*^-178\\\", \ +RowBox[{\\\"505518991860510123640143147290826802026\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"71\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9512072804761600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 19, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335257395241*^9, 3.9942519093574553`*^9}, CellLabel-> "During evaluation of \ -In[256]:=",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], +In[100]:=",ExpressionUUID->"5d8a7c0f-43a1-43dc-99f0-a8c5095c746c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 256, 240, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352574212303`*^9}, +during this calculation.\"", 2, 100, 20, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335257395241*^9, 3.994251909365448*^9}, CellLabel-> "During evaluation of \ -In[256]:=",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], +In[100]:=",ExpressionUUID->"572eaa93-eacb-464a-8ce8-78ca5a3a176e"], -Cell[BoxData["9.332200719005158`"], "Output", - CellChangeTimes->{3.991335263670042*^9}, +Cell[BoxData["10.177282246200686`"], "Output", + CellChangeTimes->{3.991335263670042*^9, 3.994251990336793*^9}, CellLabel-> - "Out[256]=",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] + "Out[100]=",ExpressionUUID->"fe3f6d10-dbd5-4920-b0cd-f9da4329234d"] }, Open ]], Cell[CellGroupData[{ @@ -8663,65 +8692,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849285445259*^9, - 3.991849289419262*^9}},ExpressionUUID->"6f0ad284-4db3-da47-b8dc-\ -45830eedfe9c"], + CellChangeTimes->{{3.991849285445259*^9, 3.991849289419262*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ -\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 257, 241, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335263710146*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.1169035812132835`*^-201\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 21, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335263710146*^9, 3.994251990421216*^9}, CellLabel-> "During evaluation of \ -In[257]:=",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], +In[101]:=",ExpressionUUID->"c0a91647-feae-41f4-862b-c3533d107ff7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ -\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ -\\\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 257, 242, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352637201557`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0915115400938769`*^-205\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 22, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335263710146*^9, 3.994251990431785*^9}, CellLabel-> "During evaluation of \ -In[257]:=",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], +In[101]:=",ExpressionUUID->"5708444a-1054-40be-ba7d-7787e147c65d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ -\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ -000\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 257, 243, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335263728153*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.822375030588354`*^-210\\\", \ +RowBox[{\\\"668859810497440244092067196564426051030\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3165635789279094374400000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 23, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335263710146*^9, 3.99425199044242*^9}, CellLabel-> "During evaluation of \ -In[257]:=",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], +In[101]:=",ExpressionUUID->"abeee5bc-8b30-438d-bf1a-e1f00a172c7d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 257, 244, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352637361546`*^9}, +during this calculation.\"", 2, 101, 24, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335263710146*^9, 3.994251990452276*^9}, CellLabel-> "During evaluation of \ -In[257]:=",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], +In[101]:=",ExpressionUUID->"dd9f35be-160e-4391-b0f4-3d2c05701ef0"], -Cell[BoxData["0.00046079539931050297`"], "Output", - CellChangeTimes->{3.991335268779545*^9}, +Cell[BoxData["2.1017080896776212`"], "Output", + CellChangeTimes->{3.991335268779545*^9, 3.994252002088379*^9}, CellLabel-> - "Out[257]=",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] + "Out[101]=",ExpressionUUID->"3ef9b3b6-1e84-4a1a-8c96-55733cd0855d"] }, Open ]], Cell[CellGroupData[{ @@ -8742,8 +8781,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8788,65 +8826,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849293744112*^9, - 3.9918492959939384`*^9}},ExpressionUUID->"b2dda819-6f34-5c49-bc62-\ -303d815946e5"], + CellChangeTimes->{{3.991849293744112*^9, 3.9918492959939384`*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ -\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 258, 245, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335268812542*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.1169035812132835`*^-201\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 25, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335268812542*^9, 3.9942520021455593`*^9}, CellLabel-> "During evaluation of \ -In[258]:=",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], +In[102]:=",ExpressionUUID->"f3f78bc4-dc19-4d5c-9bba-34ddea0a2026"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ -\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ -\\\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 258, 246, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335268822542*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0915115400938769`*^-205\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 26, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335268812542*^9, 3.994252002154686*^9}, CellLabel-> "During evaluation of \ -In[258]:=",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], +In[102]:=",ExpressionUUID->"76ed5985-4e25-461a-9f4c-ffe7b05f011e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ -\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ -000\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 258, 247, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335268831545*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.822375030588354`*^-210\\\", \ +RowBox[{\\\"668859810497440244092067196564426051030\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3165635789279094374400000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 27, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335268812542*^9, 3.994252002164391*^9}, CellLabel-> "During evaluation of \ -In[258]:=",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], +In[102]:=",ExpressionUUID->"7c3574eb-8696-400f-917e-eec3012f4e39"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 258, 248, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352688395576`*^9}, +during this calculation.\"", 2, 102, 28, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335268812542*^9, 3.994252002174899*^9}, CellLabel-> "During evaluation of \ -In[258]:=",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], +In[102]:=",ExpressionUUID->"9d80c609-5428-47ef-bdb1-623f59a8437a"], -Cell[BoxData["5.104103620353258`"], "Output", - CellChangeTimes->{3.991335272704685*^9}, +Cell[BoxData["32.51767831337665`"], "Output", + CellChangeTimes->{3.991335272704685*^9, 3.99425201303683*^9}, CellLabel-> - "Out[258]=",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] + "Out[102]=",ExpressionUUID->"b4e5e6e1-d7c8-4505-847a-fa380d6cfd20"] }, Open ]], Cell[CellGroupData[{ @@ -8867,8 +8915,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8913,65 +8960,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918492993108063`*^9, - 3.991849303274454*^9}},ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-\ -1a175f609f7d"], + CellChangeTimes->{{3.9918492993108063`*^9, 3.991849303274454*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ -\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 259, 249, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352727386665`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.1169035812132835`*^-201\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 29, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913352727386665`*^9, 3.994252013116947*^9}, CellLabel-> "During evaluation of \ -In[259]:=",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], +In[103]:=",ExpressionUUID->"74481813-dab7-4fa1-8acb-3260a12cda5d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ -\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ -\\\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 259, 250, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352727476673`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0915115400938769`*^-205\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 30, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913352727386665`*^9, 3.994252013132868*^9}, CellLabel-> "During evaluation of \ -In[259]:=",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], +In[103]:=",ExpressionUUID->"ba170c49-08a2-41b0-9bd1-65cdeb9a1d2a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ -\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ -000\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 259, 251, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352727556705`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.822375030588354`*^-210\\\", \ +RowBox[{\\\"668859810497440244092067196564426051030\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3165635789279094374400000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 31, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913352727386665`*^9, 3.994252013142653*^9}, CellLabel-> "During evaluation of \ -In[259]:=",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], +In[103]:=",ExpressionUUID->"29b69974-5f9c-411d-98fd-98c11a8dd0c0"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 259, 252, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352727636833`*^9}, +during this calculation.\"", 2, 103, 32, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913352727386665`*^9, 3.99425201315147*^9}, CellLabel-> "During evaluation of \ -In[259]:=",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], +In[103]:=",ExpressionUUID->"92250b67-06d2-4fe4-9fad-26dabe742c98"], -Cell[BoxData["18.832858301324727`"], "Output", - CellChangeTimes->{3.991335275154251*^9}, +Cell[BoxData["7.84073852361619`"], "Output", + CellChangeTimes->{3.991335275154251*^9, 3.99425202223678*^9}, CellLabel-> - "Out[259]=",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] + "Out[103]=",ExpressionUUID->"16a4e4ff-b8a2-4e00-9a57-ea4489b66451"] }, Open ]], Cell[CellGroupData[{ @@ -8980,22 +9037,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918493065908413`*^9, - 3.9918493103344364`*^9}},ExpressionUUID->"69dd09d9-152e-3e4d-9517-\ -4de4791db2f4"], - -Cell[BoxData["0.00004699917922538678`"], "Output", - CellChangeTimes->{3.991335275186266*^9}, + CellChangeTimes->{{3.9918493065908413`*^9, 3.9918493103344364`*^9}}, CellLabel-> - "Out[260]=",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] + "In[104]:=",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], + +Cell[BoxData["0.1316237152440309`"], "Output", + CellChangeTimes->{3.991335275186266*^9, 3.9942520223349743`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"0ca64975-13ac-4195-910f-499aac3eff86"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.991849314761318*^9, 3.9918493173333225`*^9}, - 3.991924798063732*^9},ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-\ -749729cd7104"], + 3.991924798063732*^9}, + CellLabel-> + "In[105]:=",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], Cell[CellGroupData[{ @@ -9018,12 +9076,12 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[262]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], + "In[106]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], -Cell[BoxData["5.744985073726737`"], "Output", - CellChangeTimes->{3.9913352752142563`*^9}, +Cell[BoxData["4.188882565491411`"], "Output", + CellChangeTimes->{3.9913352752142563`*^9, 3.994252022374407*^9}, CellLabel-> - "Out[262]=",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] + "Out[106]=",ExpressionUUID->"ab09a554-88cc-4178-8626-b5ded07c01fa"] }, Open ]], Cell[CellGroupData[{ @@ -9033,12 +9091,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[264]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], + "In[107]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], -Cell[BoxData["1.564995573098557`"], "Output", - CellChangeTimes->{3.9913352752482567`*^9}, +Cell[BoxData["5.127538047143245`"], "Output", + CellChangeTimes->{3.9913352752482567`*^9, 3.994252022389968*^9}, CellLabel-> - "Out[264]=",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] + "Out[107]=",ExpressionUUID->"4c4ada29-30f1-41be-873d-6f2a9ae21cff"] }, Open ]], Cell[CellGroupData[{ @@ -9048,12 +9106,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[267]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], + "In[108]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], -Cell[BoxData["8.990876207899632`"], "Output", - CellChangeTimes->{3.9913352753089123`*^9}, +Cell[BoxData["21.478654729572213`"], "Output", + CellChangeTimes->{3.9913352753089123`*^9, 3.994252022408885*^9}, CellLabel-> - "Out[267]=",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] + "Out[108]=",ExpressionUUID->"91c8da3f-26bb-42ae-b15b-cc90d495fa9e"] }, Open ]], Cell[CellGroupData[{ @@ -9243,12 +9301,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[268]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], + "In[109]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], -Cell[BoxData["0.07167004636648908`"], "Output", - CellChangeTimes->{3.9913352753341656`*^9}, +Cell[BoxData["0.007298800427016478`"], "Output", + CellChangeTimes->{3.9913352753341656`*^9, 3.9942520224310207`*^9}, CellLabel-> - "Out[268]=",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] + "Out[109]=",ExpressionUUID->"d911c3d5-0a0a-4e5f-863d-2b00f156c892"] }, Open ]], Cell[CellGroupData[{ @@ -9262,12 +9320,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[269]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], + "In[110]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], -Cell[BoxData["3.3103666491187544`"], "Output", - CellChangeTimes->{3.9913352754296722`*^9}, +Cell[BoxData["10.3733539391621`"], "Output", + CellChangeTimes->{3.9913352754296722`*^9, 3.9942520226171627`*^9}, CellLabel-> - "Out[269]=",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] + "Out[110]=",ExpressionUUID->"429ef308-0148-4a12-89c7-d453691928ff"] }, Open ]], Cell[CellGroupData[{ @@ -9459,12 +9517,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[270]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], + "In[111]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], -Cell[BoxData["0.012832691268660865`"], "Output", - CellChangeTimes->{3.9913352754426765`*^9}, +Cell[BoxData["0.045414498751537205`"], "Output", + CellChangeTimes->{3.9913352754426765`*^9, 3.994252022637597*^9}, CellLabel-> - "Out[270]=",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] + "Out[111]=",ExpressionUUID->"edd403c9-2933-4f53-8031-3d7a00e9404c"] }, Open ]], Cell[CellGroupData[{ @@ -9478,12 +9536,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[271]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], + "In[112]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], -Cell[BoxData["7.823229443917166`"], "Output", - CellChangeTimes->{3.991335275540678*^9}, +Cell[BoxData["4.158605064236157`"], "Output", + CellChangeTimes->{3.991335275540678*^9, 3.994252022822891*^9}, CellLabel-> - "Out[271]=",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] + "Out[112]=",ExpressionUUID->"84716f00-cfb5-4b35-bbbb-91ebb3e91d76"] }, Open ]], Cell[CellGroupData[{ @@ -9576,12 +9634,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[272]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], + "In[113]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], -Cell[BoxData["0.7884625602161153`"], "Output", - CellChangeTimes->{3.9913352755566807`*^9}, +Cell[BoxData["0.06403372334152496`"], "Output", + CellChangeTimes->{3.9913352755566807`*^9, 3.994252022840103*^9}, CellLabel-> - "Out[272]=",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] + "Out[113]=",ExpressionUUID->"c6fa4cc4-3420-4be9-a568-87c0beb478e1"] }, Open ]], Cell[CellGroupData[{ @@ -9671,12 +9729,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[273]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], + "In[114]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], -Cell[BoxData["0.21153743978388478`"], "Output", - CellChangeTimes->{3.991335275581682*^9}, +Cell[BoxData["0.9359662766584752`"], "Output", + CellChangeTimes->{3.991335275581682*^9, 3.994252022856933*^9}, CellLabel-> - "Out[273]=",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] + "Out[114]=",ExpressionUUID->"2fe05764-d3f6-4cf9-b7fa-053283224733"] }, Open ]], Cell[CellGroupData[{ @@ -9799,12 +9857,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[274]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], + "In[115]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], -Cell[BoxData["0.16678935135356415`"], "Output", - CellChangeTimes->{3.9913352756087036`*^9}, +Cell[BoxData["0.059933405616546`"], "Output", + CellChangeTimes->{3.9913352756087036`*^9, 3.994252022873221*^9}, CellLabel-> - "Out[274]=",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] + "Out[115]=",ExpressionUUID->"2178c81e-c526-40c5-afed-233e4157e21c"] }, Open ]], Cell[CellGroupData[{ @@ -9866,68 +9924,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849332835844*^9},ExpressionUUID->"d6aa822f-4140-174a-8e29-\ -c889dba5c0d8"], + CellChangeTimes->{3.991849332835844*^9}, + CellLabel-> + "In[116]:=",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 275, - 253, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335275636673*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.731555954742539`*^-205\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 116, + 33, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335275636673*^9, 3.994252022893072*^9}, CellLabel-> "During evaluation of \ -In[275]:=",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], +In[116]:=",ExpressionUUID->"ca85ab4a-dae4-4ec2-a681-70ca42fc518a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 275, - 254, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352756456738`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.7756766278691338`*^-209\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 116, + 34, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335275636673*^9, 3.9942520229032803`*^9}, CellLabel-> "During evaluation of \ -In[275]:=",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], +In[116]:=",ExpressionUUID->"8e5110ba-ddf0-4bb9-92dc-839dc5c9e4f7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 275, - 255, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352756546745`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.0781280058209105`*^-214\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 116, + 35, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335275636673*^9, 3.994252022914291*^9}, CellLabel-> "During evaluation of \ -In[275]:=",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], +In[116]:=",ExpressionUUID->"17a4a341-d479-4115-bbf9-5b4f23802d9a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 275, 256, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335275662676*^9}, +during this calculation.\"", 2, 116, 36, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335275636673*^9, 3.9942520229233093`*^9}, CellLabel-> "During evaluation of \ -In[275]:=",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], +In[116]:=",ExpressionUUID->"90237bf0-0f95-4434-8931-9da7c2383858"], -Cell[BoxData["3.3103666491187513`"], "Output", - CellChangeTimes->{3.991335279487499*^9}, +Cell[BoxData["10.37335393916209`"], "Output", + CellChangeTimes->{3.991335279487499*^9, 3.9942520308105803`*^9}, CellLabel-> - "Out[275]=",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] + "Out[116]=",ExpressionUUID->"e9891c12-f992-42e6-b2c5-a51b18a2cbb4"] }, Open ]], Cell[CellGroupData[{ @@ -9989,68 +10054,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918493361354027`*^9},ExpressionUUID->"46f3f057-22eb-c143-af7a-\ -23ddab00799c"], + CellChangeTimes->{3.9918493361354027`*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 276, - 257, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335279522499*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.731555954742539`*^-205\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 37, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335279522499*^9, 3.994252030871499*^9}, CellLabel-> "During evaluation of \ -In[276]:=",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], +In[117]:=",ExpressionUUID->"8c04f511-45fb-4d45-a092-65c094aba80b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 276, - 258, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335279532501*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.7756766278691338`*^-209\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 38, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335279522499*^9, 3.994252030881432*^9}, CellLabel-> "During evaluation of \ -In[276]:=",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], +In[117]:=",ExpressionUUID->"817ff87b-5b37-41f6-9c4e-dd76e96110d6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 276, - 259, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352795405006`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.0781280058209105`*^-214\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 39, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335279522499*^9, 3.994252030889575*^9}, CellLabel-> "During evaluation of \ -In[276]:=",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], +In[117]:=",ExpressionUUID->"dbc017c2-8d58-49b6-807f-b9ae4009276a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 276, 260, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352795487957`*^9}, +during this calculation.\"", 2, 117, 40, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335279522499*^9, 3.994252030899438*^9}, CellLabel-> "During evaluation of \ -In[276]:=",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], +In[117]:=",ExpressionUUID->"784361f3-027d-42f6-8613-4c327a624c42"], -Cell[BoxData["7.82322944391716`"], "Output", - CellChangeTimes->{3.991335283631424*^9}, +Cell[BoxData["4.158605064236156`"], "Output", + CellChangeTimes->{3.991335283631424*^9, 3.9942520387121887`*^9}, CellLabel-> - "Out[276]=",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] + "Out[117]=",ExpressionUUID->"f6150fbd-57ce-4188-829e-882db65ef6f3"] }, Open ]], Cell[CellGroupData[{ @@ -10108,94 +10180,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918494105860615`*^9},ExpressionUUID->"0137ed47-cd78-284a-910a-\ -31d165f1571c"], + CellChangeTimes->{3.9918494105860615`*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf -pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg -4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E -17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf -FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 -HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW -tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ -1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 -wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF -0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f -c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz -VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO -acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy -idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm -N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 -/P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 -Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP -/aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d -Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE -/SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS -PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 -alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO -z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs -wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 -td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 -/J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA -c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO -o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp -0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH -zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH -xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid -s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF -8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf -oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg -QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE -GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 -f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ -f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB -ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR -bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB -bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG -kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE -yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer -z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO -zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn -ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo -at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W -YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb -YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 -Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD -TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL -YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk -iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz -xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI -MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ -E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 -s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 -N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG -vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF -dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc -D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy -YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA -KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK -P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK -bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M -NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR -EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp -PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC -C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 -n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V -5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k -I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb -jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF -DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 -d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 -OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs -5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk0VVscB3BjrwxlSKZIhjKkdK+5tH9liowhs3Tde0Qyp2uISqrXIKGo +FIWSlBQNqEcpXhSvNCGZzjXP3KOQt/1x1lmfddb67u/eZ++9lhGym8XHw8PT +h5/Fd9iHjeufNn3YpsQfUP/MgETbRvL0GGZFqDVCZWHRHdn66apmlShyu/3V +59gOzPdLROhvUFXoUFY5dgk74bWgWQP6s2x2SSX2329lqhIK/0NXZGK/vcB+ +3hR2Y472GWncCxKvwh5oeRcXXfEN5X9qLHmFLUeqeHJN25D1nbznb7B3jcYZ +RTT8RCe2Dar/i/1ybkCYXdiJRMpyFxqwvxyTjn0S3I0+a3ww+Q97ZInZwBSN +RJv/Cez+jL3kXKg7neKgy1ejx1qwFcWv14VV9KGPPb+ZHdh28tzbI6ZDaIzt +cmIIm8hRXqW9dATVqm7aNImdoGafdKBhFInwx23/jf1NunlzZOE4itwWmrXM +kERMj8CAtHMTKFlahhTHHsviufkoeBKNyOleksNeqqwtNk6bRmqV/2ppY6cz +X1uKSXGR0JiphAG20h33hE0UF22MoftuxzbccHLkYMUMUu6MoLli79f/2TBg +OodutSc+PIU9xT4kILRuHkmmPfqYjn20QnirxtI/SDXV3esWdiYY3vNvWECG +6hK3Xy72y68zCy/kBacIY8k57MK3aR3H5PmgX9UwTMQI9+31ibt4jg+EOCX6 +CthxmtOPHwbzw9AT+RmEnV68VmWUJggRWt+cz2C3NA29/JMrCMotb0auYytN +PPVYLrUE2Nq6YyXYRbp2qdrUEnC2vqTRil3zPIY3qGIpVL2PjaIZk2j69aef +faYiMK7Fjp7ClrAREYt9KQKaqLtabAuJdJrNQNRIFIbu8p7Qxg7sKcvZvHE5 +jNZ7HdqPHcrXoGMiIgbtyvdEerBJ5QfjSVxxUG27v3xiK14f4t2yRroEUM1f +J6RMSMR3j7NWJkwCpnbUORhjK9HX7C4clICMLt6YE9gepimPPnRIwmHOn2OK +20jU6BceIV0vBZruzIAARKL2O8lnfZeuAoWsnIF07KHBwty75qtAbKCcrMIW +iuz+tKVqFTxRT7GSAxKZnXDW9S2TBm7pYO1H7PI8/emCbFmQr+7P8dhBojzy +d5RxpAIYHef57405iXa6nGqPuK8AGwbmCuawh2okLe5zFCBOMXiQbkEi3bwN +UkruiqAn8KQ4F7uG4fNYcNsaGFVfrn/akkQTox2H+xKVwIJ7ZAvLikSSB81K +H9sqQ9PsrH6ILYk4eUL7HQKVwbUW9j3GftbWJD98EjveiEthe9l4J66rUgbf +MHvf43a4n1bU7is0FVCM3qWXZY/HH7gzFi+tCg+dEnq6HUnk7C+sbd2pBveO +eu9/vYdEKMqF5jqvBnrDek6SriTSTMo2YMquA+dYTp4fNk8ufUe84zoQfvc9 +TtCNRPfbPV0fVa+Dnhi7BVt3fD73FB2Tu7UeSNc8hwlP3M/M9ssAQwPEBsHg +9D4S5TpltFLxGvDyjxQfiZ3M6OwQuKYBbz2kdXcw8P4+emhQ8ZMG5BkWvp/H +Fq+8zuNkqglMa9+v0Uy8f+gjmhUqWnAz9JJlkj+J5JUvJJzt2QD2L2aL+w+S +qPLMlMYvPm0Qtkv09QrG6zHp3kys1QYyqvtMI/aNGlWNHT7aMNZuYvs0hETK +/uUfZ75qQ6Pwh9PnwvB8i0g1on4j0GR5f9oeIpGCvCKh5K4D7/fcV9twhEQb +8iNFZhENvg0OyLglk4jBTJzWtqPBeu8dRT+xM1VS2329aMD5+rTQ/wKJ+G8V +P3zLpsEeV9F+dgo+bzcGnFNLaJCm8OVATiq+TzN9r2uo0CFbO+k8fwb+v2dt +Nrot0YWm+bV75XJIdDNc1aGsQQ9ySj/Szj4mUVMUMjiRbwTKL9rcE7pJtNbn +s513kAnI1szt9JfjINbCkwcK0QAx1aVlpc4cJD347C9pxg5QFewJfHONgyLp +W9tSNc1gJ9IdyyA5iDE8Vyc5YA4CJUtjpPR60f0dEX9lN1pCw+mTjsFpvShv +KrC6KN0KppwemG6a7EUz22Xe1yTsAubSQ2tO+vWhHzz84537bOHX9iuf0lr6 +UPDqkJRjKvZw3PNfx9OO/ehBQF3VpSQHqGvrYe9s7Ucxk7KUVoAj/FOlMyXP +HEDT1hZ7avfuhvMveL4yeQeRkefF7aSjEyTIRJuM5A2ij7LXA2vozpCvUU2l +mQ8huduJlQXqLhAilq4ZNjeEnnVo2tiJ7oGTZZFK64uHkWLzmH/U8B7wGdE3 +zmCNIPqli0W5Ha5gqO7FC/RRdF1gcmPqazdo7+UT4v09ip5s39SS9NwdHgU3 +/7U2aAxlGpwRnyv0gNtGn9c4tI2hxtb8k/RznhBU1LTaznIcldlmqYYe9QL5 +8kP8zBfjaPygE08w0xs4vgLOfNoTaNpCY/+IqQ88DhF4tO7aBCoY/j4Tob8X +sla/56mSmERuN/P9vEV8IW8i61HhsUn0+NGuvfynfKH5I5zbPjOJjOQ//vr7 +ly84bfpy/RRzCql0+Lf8F7APWGt+XGPXT6Ee4QP2Wd37oLVaWeCI/jRqSrbz +s3RhgOW482GeS9MonZ0tfKiJAdbymutDpqZR5cuFX35WfvDt2hP2kBUXrfCC +U/RyP1hida9u70UuUlpZ27i60g96eg8/PZ7KRToNtjJLXvoBvyss5KVx0e6t +nne/VfsB91V1Zu8lLkpfHVV/5F8/6L7JHmJe5SK5H/dW1H3zg9T8nHaUy0Wq +PtKZXpQfKDeK0A+VcpGR70hBki4Tao71qTc1c9HtK2MRdvpM+O1SJfj0Mxet +/DSxTdqQCeIJ5abXv3DRiDnVXLCFCSbxXl3+37j4/uLhbdjBhKS6XfnTrVy0 +nBJ3l3Bkgk5is+xkFxf1nNdbln2QCcJhkomRY1yUXBEX8Ow2E3J0A36eWkah +g7QMI3YBEyqF+0a3C1HI5m7JMsNCJiRrHfCexRbK4Nx9ep8Jb34N2AWJUCgp +3GHgSSkTJOSbTlmsoFCchuqBsldM2Fl9ZnPbSgoFZtQHPWpnwmrtgoNn11DI +ajlna3gHE6JHE7/rKFFIPYlHlNbFhOWr+G58xuaE690vIZlQiPbpKChTaJ9d +9vDDISaQVyUP56lSyE0wIrj4NxMMIidD0jQoZBkhF1q0igWGpiH0CRqFXmWf +tE6VYQFLXqQ4mU6hrQ0Tqmw5Fhx5J7JPU5dCOmr1300VWeCvmO+/V49Csl9j +TVvVWFB7U2v2HwMKDRr/WCWkx4JhQa6851YKXeDLeeHvxALRt6qOM2Z4/ptE +Mm1dWGAiWugca06hE57scLorC8hkizPz2OxSh/ULHixYPWF5dsEC9yd4L15m +sOBazLLOXzspRH/HYL4JY8Gf7uXVtTYU+npRTVglhQW7Z8z/rnWi0AMkur/v +Iguo0YLLGs44f3iq5n4aC7jGhcNnsGlWNfGGGSzoK9Bj73KhUDKP34TtDRb0 +6BjNv95DIYuQnO/sIpyv9bws1Z1CCgqn9bc9wP1Dip36safehaTxP2RB5xUR +Y+RBoVvrkG3yYxYkzj362Yc9/+NHVW45C+ILKs7RvShUaiNf8KEOj9+Z4XPb +h0Jnf/MJpr9jgedgbcw4NqNgYJ97Awu+pNi2b9lLITGBcvmeRhaE58jFfsAO +qnC78OsLC8rahIQGfSmkonk5SpVkQX/AllBePwr9/nrkUz+HBXfulPwG7KYk +lk5xHwtOfk+tT8CO79QdMBpigdtrX5jFbsn85G0/yYIbXS8i+5kUSv1L3DyG +lwChKxnztwgKVU788IzkJ8DhQQynDbv3R2F4sCABd/XX9Ur54/1QapbDWEaA +qMXVTUnYHF/2rLU4AVaO3q1u+3F/G3MJc0kCNpj1Hz2LvcVAQgNJEaC5ud7k +BXaKaNEeuiwBArZe8woB+Hv5zxL5tQS02DukNmMT+UV1UioEsNTXjy9gp6RE +/1yhRoAwOUZoBuLxCElRAQ0CElbqZMRhp0ha7h/SIcBFWmfZqgMUKv8jmcCh +4TytEEVjbLK/41KHLgGXj9pae2MbV8W8bjYkILTkFZmD3RP0QPEFEHBhc6am +QhCFlrvF6j3dQUDr5W+TRthGpjttSswIMJCO/OSCnSzbFZ2/k4C4iRufz2A/ +EyhOybYm4G9tpZlc7O7R2DtXbAgYNu3QqcQ2fCv1+bwDAYYh/GQ/NqOka/DU +bgLGXTx8F7DPZxXzHXcm4GHF13HJgxTqCrfSiXIjoMZZx9UYW9RnlWWoBwES +NrxaNtiGVt3egV4EENY9K72xz685ctbHl4CYix8047CfCVnfcmMQ8Cbl/Z4z +i3nTq57vZhKgLfAhM2Mxr7O70YYgoJHRMJa7mNfwkGOxnwBdxhufYmzG0yPz +EEiACbes6/li/i3rlVuCCKA7Xot7vZh/XlpLL5iA593hGxoW89k92zeFEtDl +ZTzxCVuEWeKmEU6AQuHo+xZsA/v4EJVIAqyplH86FvONd51UiCKg6MHqWhL7 +nJrMdWk2AYPsiz392E/EyMfiMQSom4xID2N3zpa8E47D+Uq0faOL+b3xnYLx +BKw87VU1hq3/cdfMQgIBK6QO6o1j/w8h6+uN "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -10209,106 +10281,106 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf -pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg -4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E -17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf -FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 -HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW -tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ -1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 -wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF -0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f -c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz -VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO -acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy -idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm -N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 -/P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 -Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP -/aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d -Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE -/SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS -PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 -alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO -z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs -wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 -td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 -/J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA -c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO -o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp -0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH -zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH -xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid -s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF -8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf -oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg -QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE -GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 -f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ -f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB -ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR -bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB -bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG -kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE -yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer -z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO -zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn -ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo -at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W -YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb -YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 -Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD -TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL -YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk -iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz -xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI -MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ -E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 -s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 -N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG -vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF -dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc -D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy -YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA -KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK -P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK -bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M -NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR -EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp -PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC -C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 -n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V -5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k -I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb -jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF -DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 -d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 -OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs -5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= +1:eJwV1Hk0VVscB3BjrwxlSKZIhjKkdK+5tH9liowhs3Tde0Qyp2uISqrXIKGo +FIWSlBQNqEcpXhSvNCGZzjXP3KOQt/1x1lmfddb67u/eZ++9lhGym8XHw8PT +h5/Fd9iHjeufNn3YpsQfUP/MgETbRvL0GGZFqDVCZWHRHdn66apmlShyu/3V +59gOzPdLROhvUFXoUFY5dgk74bWgWQP6s2x2SSX2329lqhIK/0NXZGK/vcB+ +3hR2Y472GWncCxKvwh5oeRcXXfEN5X9qLHmFLUeqeHJN25D1nbznb7B3jcYZ +RTT8RCe2Dar/i/1ybkCYXdiJRMpyFxqwvxyTjn0S3I0+a3ww+Q97ZInZwBSN +RJv/Cez+jL3kXKg7neKgy1ejx1qwFcWv14VV9KGPPb+ZHdh28tzbI6ZDaIzt +cmIIm8hRXqW9dATVqm7aNImdoGafdKBhFInwx23/jf1NunlzZOE4itwWmrXM +kERMj8CAtHMTKFlahhTHHsviufkoeBKNyOleksNeqqwtNk6bRmqV/2ppY6cz +X1uKSXGR0JiphAG20h33hE0UF22MoftuxzbccHLkYMUMUu6MoLli79f/2TBg +OodutSc+PIU9xT4kILRuHkmmPfqYjn20QnirxtI/SDXV3esWdiYY3vNvWECG +6hK3Xy72y68zCy/kBacIY8k57MK3aR3H5PmgX9UwTMQI9+31ibt4jg+EOCX6 +CthxmtOPHwbzw9AT+RmEnV68VmWUJggRWt+cz2C3NA29/JMrCMotb0auYytN +PPVYLrUE2Nq6YyXYRbp2qdrUEnC2vqTRil3zPIY3qGIpVL2PjaIZk2j69aef +faYiMK7Fjp7ClrAREYt9KQKaqLtabAuJdJrNQNRIFIbu8p7Qxg7sKcvZvHE5 +jNZ7HdqPHcrXoGMiIgbtyvdEerBJ5QfjSVxxUG27v3xiK14f4t2yRroEUM1f +J6RMSMR3j7NWJkwCpnbUORhjK9HX7C4clICMLt6YE9gepimPPnRIwmHOn2OK +20jU6BceIV0vBZruzIAARKL2O8lnfZeuAoWsnIF07KHBwty75qtAbKCcrMIW +iuz+tKVqFTxRT7GSAxKZnXDW9S2TBm7pYO1H7PI8/emCbFmQr+7P8dhBojzy +d5RxpAIYHef57405iXa6nGqPuK8AGwbmCuawh2okLe5zFCBOMXiQbkEi3bwN +UkruiqAn8KQ4F7uG4fNYcNsaGFVfrn/akkQTox2H+xKVwIJ7ZAvLikSSB81K +H9sqQ9PsrH6ILYk4eUL7HQKVwbUW9j3GftbWJD98EjveiEthe9l4J66rUgbf +MHvf43a4n1bU7is0FVCM3qWXZY/HH7gzFi+tCg+dEnq6HUnk7C+sbd2pBveO +eu9/vYdEKMqF5jqvBnrDek6SriTSTMo2YMquA+dYTp4fNk8ufUe84zoQfvc9 +TtCNRPfbPV0fVa+Dnhi7BVt3fD73FB2Tu7UeSNc8hwlP3M/M9ssAQwPEBsHg +9D4S5TpltFLxGvDyjxQfiZ3M6OwQuKYBbz2kdXcw8P4+emhQ8ZMG5BkWvp/H +Fq+8zuNkqglMa9+v0Uy8f+gjmhUqWnAz9JJlkj+J5JUvJJzt2QD2L2aL+w+S +qPLMlMYvPm0Qtkv09QrG6zHp3kys1QYyqvtMI/aNGlWNHT7aMNZuYvs0hETK +/uUfZ75qQ6Pwh9PnwvB8i0g1on4j0GR5f9oeIpGCvCKh5K4D7/fcV9twhEQb +8iNFZhENvg0OyLglk4jBTJzWtqPBeu8dRT+xM1VS2329aMD5+rTQ/wKJ+G8V +P3zLpsEeV9F+dgo+bzcGnFNLaJCm8OVATiq+TzN9r2uo0CFbO+k8fwb+v2dt +Nrot0YWm+bV75XJIdDNc1aGsQQ9ySj/Szj4mUVMUMjiRbwTKL9rcE7pJtNbn +s513kAnI1szt9JfjINbCkwcK0QAx1aVlpc4cJD347C9pxg5QFewJfHONgyLp +W9tSNc1gJ9IdyyA5iDE8Vyc5YA4CJUtjpPR60f0dEX9lN1pCw+mTjsFpvShv +KrC6KN0KppwemG6a7EUz22Xe1yTsAubSQ2tO+vWhHzz84537bOHX9iuf0lr6 +UPDqkJRjKvZw3PNfx9OO/ehBQF3VpSQHqGvrYe9s7Ucxk7KUVoAj/FOlMyXP +HEDT1hZ7avfuhvMveL4yeQeRkefF7aSjEyTIRJuM5A2ij7LXA2vozpCvUU2l +mQ8huduJlQXqLhAilq4ZNjeEnnVo2tiJ7oGTZZFK64uHkWLzmH/U8B7wGdE3 +zmCNIPqli0W5Ha5gqO7FC/RRdF1gcmPqazdo7+UT4v09ip5s39SS9NwdHgU3 +/7U2aAxlGpwRnyv0gNtGn9c4tI2hxtb8k/RznhBU1LTaznIcldlmqYYe9QL5 +8kP8zBfjaPygE08w0xs4vgLOfNoTaNpCY/+IqQ88DhF4tO7aBCoY/j4Tob8X +sla/56mSmERuN/P9vEV8IW8i61HhsUn0+NGuvfynfKH5I5zbPjOJjOQ//vr7 +ly84bfpy/RRzCql0+Lf8F7APWGt+XGPXT6Ee4QP2Wd37oLVaWeCI/jRqSrbz +s3RhgOW482GeS9MonZ0tfKiJAdbymutDpqZR5cuFX35WfvDt2hP2kBUXrfCC +U/RyP1hida9u70UuUlpZ27i60g96eg8/PZ7KRToNtjJLXvoBvyss5KVx0e6t +nne/VfsB91V1Zu8lLkpfHVV/5F8/6L7JHmJe5SK5H/dW1H3zg9T8nHaUy0Wq +PtKZXpQfKDeK0A+VcpGR70hBki4Tao71qTc1c9HtK2MRdvpM+O1SJfj0Mxet +/DSxTdqQCeIJ5abXv3DRiDnVXLCFCSbxXl3+37j4/uLhbdjBhKS6XfnTrVy0 +nBJ3l3Bkgk5is+xkFxf1nNdbln2QCcJhkomRY1yUXBEX8Ow2E3J0A36eWkah +g7QMI3YBEyqF+0a3C1HI5m7JMsNCJiRrHfCexRbK4Nx9ep8Jb34N2AWJUCgp +3GHgSSkTJOSbTlmsoFCchuqBsldM2Fl9ZnPbSgoFZtQHPWpnwmrtgoNn11DI +ajlna3gHE6JHE7/rKFFIPYlHlNbFhOWr+G58xuaE690vIZlQiPbpKChTaJ9d +9vDDISaQVyUP56lSyE0wIrj4NxMMIidD0jQoZBkhF1q0igWGpiH0CRqFXmWf +tE6VYQFLXqQ4mU6hrQ0Tqmw5Fhx5J7JPU5dCOmr1300VWeCvmO+/V49Csl9j +TVvVWFB7U2v2HwMKDRr/WCWkx4JhQa6851YKXeDLeeHvxALRt6qOM2Z4/ptE +Mm1dWGAiWugca06hE57scLorC8hkizPz2OxSh/ULHixYPWF5dsEC9yd4L15m +sOBazLLOXzspRH/HYL4JY8Gf7uXVtTYU+npRTVglhQW7Z8z/rnWi0AMkur/v +Iguo0YLLGs44f3iq5n4aC7jGhcNnsGlWNfGGGSzoK9Bj73KhUDKP34TtDRb0 +6BjNv95DIYuQnO/sIpyv9bws1Z1CCgqn9bc9wP1Dip36safehaTxP2RB5xUR +Y+RBoVvrkG3yYxYkzj362Yc9/+NHVW45C+ILKs7RvShUaiNf8KEOj9+Z4XPb +h0Jnf/MJpr9jgedgbcw4NqNgYJ97Awu+pNi2b9lLITGBcvmeRhaE58jFfsAO +qnC78OsLC8rahIQGfSmkonk5SpVkQX/AllBePwr9/nrkUz+HBXfulPwG7KYk +lk5xHwtOfk+tT8CO79QdMBpigdtrX5jFbsn85G0/yYIbXS8i+5kUSv1L3DyG +lwChKxnztwgKVU788IzkJ8DhQQynDbv3R2F4sCABd/XX9Ur54/1QapbDWEaA +qMXVTUnYHF/2rLU4AVaO3q1u+3F/G3MJc0kCNpj1Hz2LvcVAQgNJEaC5ud7k +BXaKaNEeuiwBArZe8woB+Hv5zxL5tQS02DukNmMT+UV1UioEsNTXjy9gp6RE +/1yhRoAwOUZoBuLxCElRAQ0CElbqZMRhp0ha7h/SIcBFWmfZqgMUKv8jmcCh +4TytEEVjbLK/41KHLgGXj9pae2MbV8W8bjYkILTkFZmD3RP0QPEFEHBhc6am +QhCFlrvF6j3dQUDr5W+TRthGpjttSswIMJCO/OSCnSzbFZ2/k4C4iRufz2A/ +EyhOybYm4G9tpZlc7O7R2DtXbAgYNu3QqcQ2fCv1+bwDAYYh/GQ/NqOka/DU +bgLGXTx8F7DPZxXzHXcm4GHF13HJgxTqCrfSiXIjoMZZx9UYW9RnlWWoBwES +NrxaNtiGVt3egV4EENY9K72xz685ctbHl4CYix8047CfCVnfcmMQ8Cbl/Z4z +i3nTq57vZhKgLfAhM2Mxr7O70YYgoJHRMJa7mNfwkGOxnwBdxhufYmzG0yPz +EEiACbes6/li/i3rlVuCCKA7Xot7vZh/XlpLL5iA593hGxoW89k92zeFEtDl +ZTzxCVuEWeKmEU6AQuHo+xZsA/v4EJVIAqyplH86FvONd51UiCKg6MHqWhL7 +nJrMdWk2AYPsiz392E/EyMfiMQSom4xID2N3zpa8E47D+Uq0faOL+b3xnYLx +BKw87VU1hq3/cdfMQgIBK6QO6o1j/w8h6+uN "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6152015704378874, - 1.5607999649251942`}}, + "PlotRange" -> {{0, 180}, {0.663051984105639, + 1.4643413626629955`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6152015704378887}, + "AxesOrigin" -> {0, 0.6630519841056405}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -10320,21 +10392,20 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6152015704378874, - 1.5607999649251942`}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6152015704378887}, + "PlotRange" -> {{0, 180}, {0.663051984105639, 1.4643413626629955`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6630519841056405}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10348,104 +10419,104 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf -pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg -4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E -17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf -FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 -HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW -tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ -1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 -wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF -0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f -c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz -VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO -acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy -idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm -N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 -/P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 -Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP -/aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d -Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE -/SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS -PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 -alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO -z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs -wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 -td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 -/J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA -c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO -o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp -0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH -zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH -xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid -s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF -8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf -oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg -QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE -GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 -f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ -f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB -ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR -bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB -bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG -kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE -yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer -z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO -zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn -ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo -at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W -YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb -YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 -Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD -TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL -YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk -iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz -xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI -MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ -E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 -s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 -N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG -vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF -dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc -D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy -YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA -KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK -P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK -bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M -NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR -EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp -PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC -C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 -n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V -5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k -I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb -jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF -DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 -d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 -OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs -5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= +1:eJwV1Hk0VVscB3BjrwxlSKZIhjKkdK+5tH9liowhs3Tde0Qyp2uISqrXIKGo +FIWSlBQNqEcpXhSvNCGZzjXP3KOQt/1x1lmfddb67u/eZ++9lhGym8XHw8PT +h5/Fd9iHjeufNn3YpsQfUP/MgETbRvL0GGZFqDVCZWHRHdn66apmlShyu/3V +59gOzPdLROhvUFXoUFY5dgk74bWgWQP6s2x2SSX2329lqhIK/0NXZGK/vcB+ +3hR2Y472GWncCxKvwh5oeRcXXfEN5X9qLHmFLUeqeHJN25D1nbznb7B3jcYZ +RTT8RCe2Dar/i/1ybkCYXdiJRMpyFxqwvxyTjn0S3I0+a3ww+Q97ZInZwBSN +RJv/Cez+jL3kXKg7neKgy1ejx1qwFcWv14VV9KGPPb+ZHdh28tzbI6ZDaIzt +cmIIm8hRXqW9dATVqm7aNImdoGafdKBhFInwx23/jf1NunlzZOE4itwWmrXM +kERMj8CAtHMTKFlahhTHHsviufkoeBKNyOleksNeqqwtNk6bRmqV/2ppY6cz +X1uKSXGR0JiphAG20h33hE0UF22MoftuxzbccHLkYMUMUu6MoLli79f/2TBg +OodutSc+PIU9xT4kILRuHkmmPfqYjn20QnirxtI/SDXV3esWdiYY3vNvWECG +6hK3Xy72y68zCy/kBacIY8k57MK3aR3H5PmgX9UwTMQI9+31ibt4jg+EOCX6 +CthxmtOPHwbzw9AT+RmEnV68VmWUJggRWt+cz2C3NA29/JMrCMotb0auYytN +PPVYLrUE2Nq6YyXYRbp2qdrUEnC2vqTRil3zPIY3qGIpVL2PjaIZk2j69aef +faYiMK7Fjp7ClrAREYt9KQKaqLtabAuJdJrNQNRIFIbu8p7Qxg7sKcvZvHE5 +jNZ7HdqPHcrXoGMiIgbtyvdEerBJ5QfjSVxxUG27v3xiK14f4t2yRroEUM1f +J6RMSMR3j7NWJkwCpnbUORhjK9HX7C4clICMLt6YE9gepimPPnRIwmHOn2OK +20jU6BceIV0vBZruzIAARKL2O8lnfZeuAoWsnIF07KHBwty75qtAbKCcrMIW +iuz+tKVqFTxRT7GSAxKZnXDW9S2TBm7pYO1H7PI8/emCbFmQr+7P8dhBojzy +d5RxpAIYHef57405iXa6nGqPuK8AGwbmCuawh2okLe5zFCBOMXiQbkEi3bwN +UkruiqAn8KQ4F7uG4fNYcNsaGFVfrn/akkQTox2H+xKVwIJ7ZAvLikSSB81K +H9sqQ9PsrH6ILYk4eUL7HQKVwbUW9j3GftbWJD98EjveiEthe9l4J66rUgbf +MHvf43a4n1bU7is0FVCM3qWXZY/HH7gzFi+tCg+dEnq6HUnk7C+sbd2pBveO +eu9/vYdEKMqF5jqvBnrDek6SriTSTMo2YMquA+dYTp4fNk8ufUe84zoQfvc9 +TtCNRPfbPV0fVa+Dnhi7BVt3fD73FB2Tu7UeSNc8hwlP3M/M9ssAQwPEBsHg +9D4S5TpltFLxGvDyjxQfiZ3M6OwQuKYBbz2kdXcw8P4+emhQ8ZMG5BkWvp/H +Fq+8zuNkqglMa9+v0Uy8f+gjmhUqWnAz9JJlkj+J5JUvJJzt2QD2L2aL+w+S +qPLMlMYvPm0Qtkv09QrG6zHp3kys1QYyqvtMI/aNGlWNHT7aMNZuYvs0hETK +/uUfZ75qQ6Pwh9PnwvB8i0g1on4j0GR5f9oeIpGCvCKh5K4D7/fcV9twhEQb +8iNFZhENvg0OyLglk4jBTJzWtqPBeu8dRT+xM1VS2329aMD5+rTQ/wKJ+G8V +P3zLpsEeV9F+dgo+bzcGnFNLaJCm8OVATiq+TzN9r2uo0CFbO+k8fwb+v2dt +Nrot0YWm+bV75XJIdDNc1aGsQQ9ySj/Szj4mUVMUMjiRbwTKL9rcE7pJtNbn +s513kAnI1szt9JfjINbCkwcK0QAx1aVlpc4cJD347C9pxg5QFewJfHONgyLp +W9tSNc1gJ9IdyyA5iDE8Vyc5YA4CJUtjpPR60f0dEX9lN1pCw+mTjsFpvShv +KrC6KN0KppwemG6a7EUz22Xe1yTsAubSQ2tO+vWhHzz84537bOHX9iuf0lr6 +UPDqkJRjKvZw3PNfx9OO/ehBQF3VpSQHqGvrYe9s7Ucxk7KUVoAj/FOlMyXP +HEDT1hZ7avfuhvMveL4yeQeRkefF7aSjEyTIRJuM5A2ij7LXA2vozpCvUU2l +mQ8huduJlQXqLhAilq4ZNjeEnnVo2tiJ7oGTZZFK64uHkWLzmH/U8B7wGdE3 +zmCNIPqli0W5Ha5gqO7FC/RRdF1gcmPqazdo7+UT4v09ip5s39SS9NwdHgU3 +/7U2aAxlGpwRnyv0gNtGn9c4tI2hxtb8k/RznhBU1LTaznIcldlmqYYe9QL5 +8kP8zBfjaPygE08w0xs4vgLOfNoTaNpCY/+IqQ88DhF4tO7aBCoY/j4Tob8X +sla/56mSmERuN/P9vEV8IW8i61HhsUn0+NGuvfynfKH5I5zbPjOJjOQ//vr7 +ly84bfpy/RRzCql0+Lf8F7APWGt+XGPXT6Ee4QP2Wd37oLVaWeCI/jRqSrbz +s3RhgOW482GeS9MonZ0tfKiJAdbymutDpqZR5cuFX35WfvDt2hP2kBUXrfCC +U/RyP1hida9u70UuUlpZ27i60g96eg8/PZ7KRToNtjJLXvoBvyss5KVx0e6t +nne/VfsB91V1Zu8lLkpfHVV/5F8/6L7JHmJe5SK5H/dW1H3zg9T8nHaUy0Wq +PtKZXpQfKDeK0A+VcpGR70hBki4Tao71qTc1c9HtK2MRdvpM+O1SJfj0Mxet +/DSxTdqQCeIJ5abXv3DRiDnVXLCFCSbxXl3+37j4/uLhbdjBhKS6XfnTrVy0 +nBJ3l3Bkgk5is+xkFxf1nNdbln2QCcJhkomRY1yUXBEX8Ow2E3J0A36eWkah +g7QMI3YBEyqF+0a3C1HI5m7JMsNCJiRrHfCexRbK4Nx9ep8Jb34N2AWJUCgp +3GHgSSkTJOSbTlmsoFCchuqBsldM2Fl9ZnPbSgoFZtQHPWpnwmrtgoNn11DI +ajlna3gHE6JHE7/rKFFIPYlHlNbFhOWr+G58xuaE690vIZlQiPbpKChTaJ9d +9vDDISaQVyUP56lSyE0wIrj4NxMMIidD0jQoZBkhF1q0igWGpiH0CRqFXmWf +tE6VYQFLXqQ4mU6hrQ0Tqmw5Fhx5J7JPU5dCOmr1300VWeCvmO+/V49Csl9j +TVvVWFB7U2v2HwMKDRr/WCWkx4JhQa6851YKXeDLeeHvxALRt6qOM2Z4/ptE +Mm1dWGAiWugca06hE57scLorC8hkizPz2OxSh/ULHixYPWF5dsEC9yd4L15m +sOBazLLOXzspRH/HYL4JY8Gf7uXVtTYU+npRTVglhQW7Z8z/rnWi0AMkur/v +Iguo0YLLGs44f3iq5n4aC7jGhcNnsGlWNfGGGSzoK9Bj73KhUDKP34TtDRb0 +6BjNv95DIYuQnO/sIpyv9bws1Z1CCgqn9bc9wP1Dip36safehaTxP2RB5xUR +Y+RBoVvrkG3yYxYkzj362Yc9/+NHVW45C+ILKs7RvShUaiNf8KEOj9+Z4XPb +h0Jnf/MJpr9jgedgbcw4NqNgYJ97Awu+pNi2b9lLITGBcvmeRhaE58jFfsAO +qnC78OsLC8rahIQGfSmkonk5SpVkQX/AllBePwr9/nrkUz+HBXfulPwG7KYk +lk5xHwtOfk+tT8CO79QdMBpigdtrX5jFbsn85G0/yYIbXS8i+5kUSv1L3DyG +lwChKxnztwgKVU788IzkJ8DhQQynDbv3R2F4sCABd/XX9Ur54/1QapbDWEaA +qMXVTUnYHF/2rLU4AVaO3q1u+3F/G3MJc0kCNpj1Hz2LvcVAQgNJEaC5ud7k +BXaKaNEeuiwBArZe8woB+Hv5zxL5tQS02DukNmMT+UV1UioEsNTXjy9gp6RE +/1yhRoAwOUZoBuLxCElRAQ0CElbqZMRhp0ha7h/SIcBFWmfZqgMUKv8jmcCh +4TytEEVjbLK/41KHLgGXj9pae2MbV8W8bjYkILTkFZmD3RP0QPEFEHBhc6am +QhCFlrvF6j3dQUDr5W+TRthGpjttSswIMJCO/OSCnSzbFZ2/k4C4iRufz2A/ +EyhOybYm4G9tpZlc7O7R2DtXbAgYNu3QqcQ2fCv1+bwDAYYh/GQ/NqOka/DU +bgLGXTx8F7DPZxXzHXcm4GHF13HJgxTqCrfSiXIjoMZZx9UYW9RnlWWoBwES +NrxaNtiGVt3egV4EENY9K72xz685ctbHl4CYix8047CfCVnfcmMQ8Cbl/Z4z +i3nTq57vZhKgLfAhM2Mxr7O70YYgoJHRMJa7mNfwkGOxnwBdxhufYmzG0yPz +EEiACbes6/li/i3rlVuCCKA7Xot7vZh/XlpLL5iA593hGxoW89k92zeFEtDl +ZTzxCVuEWeKmEU6AQuHo+xZsA/v4EJVIAqyplH86FvONd51UiCKg6MHqWhL7 +nJrMdWk2AYPsiz392E/EyMfiMQSom4xID2N3zpa8E47D+Uq0faOL+b3xnYLx +BKw87VU1hq3/cdfMQgIBK6QO6o1j/w8h6+uN "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + "PlotRange" -> {{0, 180}, {0.663051984105639, 1.4643413626629955`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6152015704378887}, + "AxesOrigin" -> {0, 0.6630519841056405}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10455,7 +10526,8 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.6152015704378887}, + AxesOrigin->{0, 0.6630519841056405}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -10483,7 +10555,8 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.663051984105639, 1.4643413626629955`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -10491,11 +10564,13 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913355426284504`*^9}, + CellChangeTimes->{3.9913355426284504`*^9, 3.994252590432291*^9}, CellLabel-> - "Out[277]=",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] + "Out[118]=",ExpressionUUID->"3f8dc9d5-950b-4cf7-8cf6-54721a8e56be"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"x", "=", RowBox[{"Plot", "[", @@ -10555,14 +10630,1122 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ - 3.9918494141657047`*^9, {3.991849451432905*^9, - 3.991849451715925*^9}},ExpressionUUID->"00a32bc3-df79-9e43-8f20-\ -d4884962c12d"], + 3.9918494141657047`*^9, {3.991849451432905*^9, 3.991849451715925*^9}}, + CellLabel-> + "In[119]:=",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.8811873942391112`*^-266\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 41, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994252590617173*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"434226a0-52ff-4291-bc2c-5410129dcf10"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4853467289020977`*^-277\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 119, 42, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942525906277447`*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"89994b9e-493a-44d9-93b8-5b0189b26c8f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1438898334815243`*^-288\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 119, 43, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994252590636465*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"b8ab198c-4424-4d31-b072-4f4df6c37dc1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 119, 44, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942525906451473`*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"34c399a5-4015-413a-82ba-fcff999a29ba"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8Vf0fAHAPFWna1z7XSkaEcHF9PiJlhERKViErI4nHqFBKlIyklIxQ +Rtx7KlmVKFFJZaahjFKPWXbkd35/ndf7dcb3nM/6vg79YKCtJycHB8emfzg4 +/n+c/tz8VC4x3zDccrnIns3Ghu03aOFG3bGw3XxLLO81OqBQ60Fadyokvfhn +4WvmZgi1Ke7i6s6DVXduGjRmGgHfqEjqXBcJhV4bDmdm7oLeWqvAya56uFEU +1LA68wCYyv38NNH1DuLkB4W+ZxyBuS6d9PGuPoho6XLZfzEGGoxv5b/N+w2/ +LKRuT8ilgkRv1beDKovwviIlcFVmJggedi3mNuZCLaWrweOQC6mbTWus7HnQ +Ql494S4UwPsr6nUT69fg4rWALLmi25CYf7KVU5QPE0SczA5MlYC5lg+/kCwf +Zq4L3n3kn1LgeWprv0GVD5ciBnZErCmF0/3yHyyM+PDk/J/hUPlSiJJ59e2S +Dx++Dfb5KGZfCgE5tL8K1Xx4+FPhsVV3S2HXdbaKxX5+1OhUF4vxuQMil/rP +pWUJoPBvCXu7ujKgKd8/PVsogK/mslt6m8tArP7MSWeWAMbrv7nv0VYGUuMb +j21oEMC5e8feOH4rA3nLILeaIQFMFuVaO7uqHDSXLWr3awoi96x2yZR9OViH +CA9ovBBEev2W8amBcrBZNfQ5o00Qm+079e+MlINtXtX7hY+COJUY3uE8XQ57 +3ji1No4J4uapy2EdXCxwVrlZ7SgkhBbGLbvmBVngN6CWEusmhJyKUJSnzYKz +dmaG76aFMDp7SNEvjAVi916Lcf4jjAXZd+vKI1lQJmA3s3mVMI5HBzqOn2RB +5zsXVoq0MJ64o5zqGc8CuV0hMrt2CONDhjIPcZUF9TuzV7y5Kozhl5Uet1ex +YNF06nWLgQiq06I19WdZkFwYUbJoKoJbx04cWvpD3b+CI151lwh2BXKmPl5i +geUzXqMLniLYf7HtrSY3GzKNibuWSSJ4+1fm2H9CbNBFi4yXvSIoEPE0OlOD +DUcZua7NsTSc+eijOe7NBvOctZMW52noYru2548fG2S4o+Jfp9NwvfHiPFcg +G96072G33aah4NrakpXH2LApaDXX59c0tEvnaf4ZzYahwrDCX2Ki6Ga3bI7r +ChucBK1GxO+KItc99eupDWzQjKyJuVErik+di/JUG9nA26coTG8UxSD1Yvln +TWyoKucChfeieMSjO/dHCxuELaqS1ZdEkXVNI4ynm1o/Rk5rm4UY1iv8qMn6 +jw0mY/MRAf1iyBm9iaa4noTwHZeUngyLIeG6U2kHPwlluao9AtNimBIR0ech +SALNzo1RxSOOfzXXm16ikTBc+WyGa5M4Ttt0fX1BkJAWmxxy9V9xfMKKK81Q +J6Hpw0a54RhxHHuYbBSrQcKCVkObYaI4frrlFuOjRcKh71MaA1niOGCRzblJ +lwQ9y/0TmxrEsXEzh9BFIKFPSCHg6RoJ7Dd69py9kwSRwMeSIiISaHnqnIaX +NQmWTXtbfAgJHHB9ulN0FwkVEYkq6zQlMJtQyThqR0JC7/jPfXslMO/ux2iO +/SRoFNV4jeVJYNHzW6uivEiIMdh1QExXEncvO7pu8TgJO1xu/NLZKole4jkh +nidJWBv93yl7S0lMDvy47EU0Cdcb4gqT3SRxUzSt6OwpEirNq/9bcU4SWfoL +/B3xJIzvlQ39/V4So/jCuKpSSXgQEcTNNyCJFZoPfAbSSDhx/eGVTaOSuCtq +ZPnqdBJWf3Go8eGUwnkmvd86g4QNXuc5vihJodsppW3F10hwOTaV8CpSCqus +PlsX3yRBPmOrxM84KUw52RJwNf//8b94hztZCteLv209XUBCxMLGN1vzpbC2 +2HS/zS0S0k+5CFW9ksI/RqfLqotJcCooKezspJ6fe2sysYQEmeezOpNfpJAc +dD21r5QEFm+ao9qUFF5yGDz+4w4Jr1KeZxdISqNbXu/fjywqv3cFNzdskEbx +LmZuMpsEx44D9V82S+Mv0T+pSJIwRFsYEDeVxhsBa7zT75LAlaOulBogjecq +lSb4K0h48eR4Tfm/0vi5k39DEeXk/heWLbHSmOlz+K7+AxKkNngG8mRIIyB/ +m30lVQ9lV++deCyNo5ert7tUk2DS9XpxtEkaW4tbrFopW3Es2+76jrq+YFyZ +WUOCu23AexiURt63wX7rakkIiLwpwxqVRgdrx9ajlP/N7/YjZqnzOw+u7qBs +Gkk/Gb2cwJzdI4JJD0l4ua72pi4vgRwbl74OUrbJ39M0vpbAfCHrRL1HJOxv +SeQ7QCNQrqj1WA/lLwcUtEUlCaxOSK+Uf0zV83Sd41s6gVyzDT3+lIOkp28a +KRP4oOxC3STlqbvJTXNqBD67+DROs47K1w7lEbYWgZVK11QDKXN8esbnyyCQ +1+Rr5S3KcUfctGUMCRTz8VL8RJl3xR/Hnq0Epo/9jVr3hIpfZvrJ1O0E/poM +f2BIObPhRRPnLgIfdRz6mkZZeq/nSLU9gZyvo99VUc4fXuI76ki97/HXpR8p +K8Vkaiu7Ejj2Rf7IAuVyoS37+90JVKh0JkTrSdAqbj15zZvAJ2d31mhQrjb0 +zd/tT2BURstWM8rQtqx5VTCBXyYqHjhRfuqVPdIQSuBN934xf8pmCwz+qEgC +1SNV/SMov05u19aKJnBZfFD5acp28oH7h09T8cyM70uk/L5qZXT+OQIzYmy5 +kym7WOXnOyUR+LSlRCqF8kCfYbNgGoETr4I3XqTsE/Z+5FUGgUWJZxQTKI+u +CuGPu07g5vZGiVjKR3PW6jBzCfytKsgdRnlWq2j/VAGBQx+th7wpn2g2jr5T +TKDI1/1PHChzuXzO9yyn4jkllmZMOf7Xv82S9wh8kxLkokJ57VmB0Y5KAm0G +UY6fcpp4GX/SQ+p8T9DgJBU/GmuHjmk9gd1C3/LaKWeZ9O//20hg3K8zzmzK +Mu+PR1e8JHDhtJ5wIuXb/rSCgDcEtlwZajlAWZXzbrNCB4E+rPC4LZTJyztH +P78n8OKyLuYKyrrKQ/wZnwksP/Vzpo2qh612kk7cQwQ2busNOUT5+dCD6MfD +VP2OZDCUKVsety0ImyAw+8x9rhGq/hwKz45+nyfwxurOEi/Kh2cnopvW0DE8 +740ng6pnvSOHhL/x05FtrrWnl6p/np89JVw0OnYuP9oaQ7ngQ0OnoQwdW1r3 +Hqil+ufzo3SV+9p0PJv7QY6H6r9SHd76d/p0DNHZcCKV6s8I1gmHcaTjNx1B +X1HKwnlescoWdKwRff5XoooE6zhGd64rtV7wUcM/1DyQ+nvH/7EHHR+suGXt +S3k4VIbrkw8ddcmoxY77VD68V22ihdBRLV1a6+Y9EuosPp1KiqejbOKIuhA1 +fzT4Y9Qi2XTU3/M2fi81zzgSp55eqaDj+srZxRRq3r3m8nWsqKGjZKCfXBM1 +D/2mbOMmntHxRG1EglIR1R/dch+8euh4+Zvnl+fUPBXObjpjxyWD+h8Mez1v +UPUnwpQI5pHBRDntlX5ZVH6S2eyLa2Tw9pepucPXqe+Jzfz4QkQG5ZLMtnhl +Uu/reVjDSEUGdyY1MbZcJmFOef1nVXsZxLw2lu4FEqazxGI0HWWofIuHrz9P +wuQ6eTmGqwxWycboDyZQ9fyb4WviI4M2+hz34qj9pa/GfdrxuAz2zIddzaP2 +nxcWD9bGF8igYzHpuTOc6n8/F+ibkkER8d3ZQQdJyPjk3fd9XgbvpXVb/3Qj +4ZL10biRJWp9iQsKB1xJSNKMfzm7UhZJVVVLUycSYv+wHdZJyeLZr6tzRu2p ++CQuDzIwlUUrbtXiyh0kGJSU5ly+LIvtK3YdNFAh4QNRkr3tmiz6n1gzf1yJ +yvflohuT2bK4Tm4LPFSk9r+Ywuu2RdTzZlM6teSp/OzNubK2VhZ5binu55Ei +YePyS8lnvsriJV/hF0brqHi7RkaHqsjh45YfT1aMs2GC39xtT70c2intlZEq +YUP3YZk3vs/l8NZBY9rN22yoa5yHk6/k8Idxe7l8IRuSI0qkb3fKoTef8wvZ +XDao963unfsph+Wr7Hq4MtgQwG51zhKQxxX+U2/sYtnw09p+/4CHPO7Olj2x +zYENA+fd9gRzK+BYeXjuw3kWmI2FmQ1qb8BgXq6+LAYLht15jt47qYhR4Jq2 +J7uM+r8Q4TxbvxG1TE1NispKgb9FIYk1poS5yg/oL5uKQSK+3EZbWwVn1yh7 +BJbehivKjPUCXqpo/MjoziFWIbwQM9ryO2UTnjWvGKutzwc9ifpktU41lKLF +1yY+yIO1XHkhB2LVkcW8IPjsSw5IxUgb7FPYjCE/1MRfT2XBSnmnCtvnm1Ex +/tXM3mOZsIkpWh7mrIElRqFL73wyIPgzf4M5hyZqFmQYvnG+BGO/z9ubXdFE +xlZh7eynKbBdrTHTTFULBS6PuMH3JHj0W//PzGstTJZqvmN2MAECVDR63npu +wYRs/8W0nDPAHPVo37dSG3te7nD9zn0KtsnRdq7J08YusBwLEokGxeiEf+t1 +dJD3ggeelI8EJU/GY/keHfzwZybQxT8UPB95n753RBej2z46ZN8KhlH/n2Hb +QnSxjju+7fSVYPhX8rBfZ6gustUYF0LOBUNCVKDtbKQuXuVKKgz2CwaWXihh +cEYX2+ssB4bUgmGh4lRtQ6YuDjg3K1ZVH4HU8huT7xp00UY7uO9ZVxA8zmn3 +mBBiYJH3S/9ppwD4Ykl3DaUxsGrXtTAekwDgmPPf90eMge7vO3qVlQNg6y5u +q+UEA6WapG8VzvlD4z96OqJKDKy/dY7fL8MfXh3MXmlkyMA5T5/ADZ2HoUfO +tyz5EAMVJj4Yq7n5weTtpRm1Bww8JGWakpDvDd/2mOacq2KgYrWWoGCKN3Qv +u7Cjv4aBZgFHm4qPe0ONm9jVy3UMPJ8hU7S0xxtiaVv0FpsZuC4m8pwprzes +j/eNevGRgX4B/z3cetQLVLw6ODw59dDbV0P0mdUhcJcvWZm5Uw9/9WUohSt5 +QMQzF18FGz10kIhtrKR5QLIn/0vSVg9/R14fXs7tAbUF4edfOujh88HkiqZ+ +dxBU2LFu8YAeVi8/5DSW5Q6NCoOCbqF6yMh9/qZK0B2UFKUJhWw9XC18YIl3 +9UGYUErTJsf1cHIhz3FQ2g26X+E2gd96eHTm+Uvkd4O6gNHdIVN6+Hb9BvvC +ZW6QRJod0Z7XQ/erN9Wl21xBSY+jtJpLHyO3EgH3vFzhoJk/vUFYH8dM9Tek +X3KBdq/tq9sN9HH0hp/bxwUnqMz/83UqXh+nWbeHZ5Y5grZxyIx5oj72vg7+ +1Tq6D+5/HV6dc0EfhWbUr1Z27wNS6rOOeao+Zq23yKkp3QelV+ou3Limj+ir +e+ys/T7IOR/H2F6mj3suh5qrFu+FcyHrUq606aOTkfEaP1cHcDSRRX0pA5zO +P1UeP2MHi+08axsIA+QZuCp0p98OcjxHP5jLGmAAB1O1r9UOvp2pCnNUNEDn +IJGtJ27bQXCzdXm4BnW/73BVlKMdJFhFSVWaGuDoT+178U92Q/XejgWtQAPc +0laQdf6aLYj7n63aVGeAxafOr+iMsoGkpUNbEusNcE7BebDX3wY4U03Z358a +YLy577cpFxv4WbG8KKfZAL3/q1M1NbKBao7TV/jbqPU3cg2FrrABx0vRYdOD +Bsh5xve6rII1XKkJ3/JoFRPTbQIeDvnsBCHew+ydDky0snk866FpDvnGxyPG +9zGxeINIsw7NHDSOJxmnOTHRZGj7hOyiGViNszq6DzBx9NLXme3PzeBM59Sc ++2EmVplH3Kp1MoPZvJNbI2KY+JCzd/n28zugRz+trbCEiY3kzb/2i6bgfSz/ +ulkZE7++/bBbddAUpsvuew6zmNjji0niLabAL9M9s7mCicTIMS+DLFOw4JGU +eFjHxFrbxJwLhqZQ217o0dbBxES+LwvOcdvAfG2lamg3ExPil01kBmyD7u3N +07QPTJxt9bs54rANJqv/i3f5wkRnj+H5NqVtoJqrfufHTyZOTrJP5L01gdoe +o9DzI0xsq0wPSKwxAXPB3aA2zkS/Vw0XzhWYwKGzx96GTDFRd7W7wLNwE5is +O5MpMsvEjJKbezg9TCB2PsO9ep6J7WEtsXZWJrBeq0jFeZGJ9iGeZ2p0TeCG +f/XU0hITabsXrHVkTeB/HemkuA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf0fAHAPFWna1z7XSkaEcHF9PiJlhERKViErI4nHqFBKlIyklIxQ +Rtx7KlmVKFFJZaahjFKPWXbkd35/ndf7dcb3nM/6vg79YKCtJycHB8emfzg4 +/n+c/tz8VC4x3zDccrnIns3Ghu03aOFG3bGw3XxLLO81OqBQ60Fadyokvfhn +4WvmZgi1Ke7i6s6DVXduGjRmGgHfqEjqXBcJhV4bDmdm7oLeWqvAya56uFEU +1LA68wCYyv38NNH1DuLkB4W+ZxyBuS6d9PGuPoho6XLZfzEGGoxv5b/N+w2/ +LKRuT8ilgkRv1beDKovwviIlcFVmJggedi3mNuZCLaWrweOQC6mbTWus7HnQ +Ql494S4UwPsr6nUT69fg4rWALLmi25CYf7KVU5QPE0SczA5MlYC5lg+/kCwf +Zq4L3n3kn1LgeWprv0GVD5ciBnZErCmF0/3yHyyM+PDk/J/hUPlSiJJ59e2S +Dx++Dfb5KGZfCgE5tL8K1Xx4+FPhsVV3S2HXdbaKxX5+1OhUF4vxuQMil/rP +pWUJoPBvCXu7ujKgKd8/PVsogK/mslt6m8tArP7MSWeWAMbrv7nv0VYGUuMb +j21oEMC5e8feOH4rA3nLILeaIQFMFuVaO7uqHDSXLWr3awoi96x2yZR9OViH +CA9ovBBEev2W8amBcrBZNfQ5o00Qm+079e+MlINtXtX7hY+COJUY3uE8XQ57 +3ji1No4J4uapy2EdXCxwVrlZ7SgkhBbGLbvmBVngN6CWEusmhJyKUJSnzYKz +dmaG76aFMDp7SNEvjAVi916Lcf4jjAXZd+vKI1lQJmA3s3mVMI5HBzqOn2RB +5zsXVoq0MJ64o5zqGc8CuV0hMrt2CONDhjIPcZUF9TuzV7y5Kozhl5Uet1ex +YNF06nWLgQiq06I19WdZkFwYUbJoKoJbx04cWvpD3b+CI151lwh2BXKmPl5i +geUzXqMLniLYf7HtrSY3GzKNibuWSSJ4+1fm2H9CbNBFi4yXvSIoEPE0OlOD +DUcZua7NsTSc+eijOe7NBvOctZMW52noYru2548fG2S4o+Jfp9NwvfHiPFcg +G96072G33aah4NrakpXH2LApaDXX59c0tEvnaf4ZzYahwrDCX2Ki6Ga3bI7r +ChucBK1GxO+KItc99eupDWzQjKyJuVErik+di/JUG9nA26coTG8UxSD1Yvln +TWyoKucChfeieMSjO/dHCxuELaqS1ZdEkXVNI4ynm1o/Rk5rm4UY1iv8qMn6 +jw0mY/MRAf1iyBm9iaa4noTwHZeUngyLIeG6U2kHPwlluao9AtNimBIR0ech +SALNzo1RxSOOfzXXm16ikTBc+WyGa5M4Ttt0fX1BkJAWmxxy9V9xfMKKK81Q +J6Hpw0a54RhxHHuYbBSrQcKCVkObYaI4frrlFuOjRcKh71MaA1niOGCRzblJ +lwQ9y/0TmxrEsXEzh9BFIKFPSCHg6RoJ7Dd69py9kwSRwMeSIiISaHnqnIaX +NQmWTXtbfAgJHHB9ulN0FwkVEYkq6zQlMJtQyThqR0JC7/jPfXslMO/ux2iO +/SRoFNV4jeVJYNHzW6uivEiIMdh1QExXEncvO7pu8TgJO1xu/NLZKole4jkh +nidJWBv93yl7S0lMDvy47EU0Cdcb4gqT3SRxUzSt6OwpEirNq/9bcU4SWfoL +/B3xJIzvlQ39/V4So/jCuKpSSXgQEcTNNyCJFZoPfAbSSDhx/eGVTaOSuCtq +ZPnqdBJWf3Go8eGUwnkmvd86g4QNXuc5vihJodsppW3F10hwOTaV8CpSCqus +PlsX3yRBPmOrxM84KUw52RJwNf//8b94hztZCteLv209XUBCxMLGN1vzpbC2 +2HS/zS0S0k+5CFW9ksI/RqfLqotJcCooKezspJ6fe2sysYQEmeezOpNfpJAc +dD21r5QEFm+ao9qUFF5yGDz+4w4Jr1KeZxdISqNbXu/fjywqv3cFNzdskEbx +LmZuMpsEx44D9V82S+Mv0T+pSJIwRFsYEDeVxhsBa7zT75LAlaOulBogjecq +lSb4K0h48eR4Tfm/0vi5k39DEeXk/heWLbHSmOlz+K7+AxKkNngG8mRIIyB/ +m30lVQ9lV++deCyNo5ert7tUk2DS9XpxtEkaW4tbrFopW3Es2+76jrq+YFyZ +WUOCu23AexiURt63wX7rakkIiLwpwxqVRgdrx9ajlP/N7/YjZqnzOw+u7qBs +Gkk/Gb2cwJzdI4JJD0l4ua72pi4vgRwbl74OUrbJ39M0vpbAfCHrRL1HJOxv +SeQ7QCNQrqj1WA/lLwcUtEUlCaxOSK+Uf0zV83Sd41s6gVyzDT3+lIOkp28a +KRP4oOxC3STlqbvJTXNqBD67+DROs47K1w7lEbYWgZVK11QDKXN8esbnyyCQ +1+Rr5S3KcUfctGUMCRTz8VL8RJl3xR/Hnq0Epo/9jVr3hIpfZvrJ1O0E/poM +f2BIObPhRRPnLgIfdRz6mkZZeq/nSLU9gZyvo99VUc4fXuI76ki97/HXpR8p +K8Vkaiu7Ejj2Rf7IAuVyoS37+90JVKh0JkTrSdAqbj15zZvAJ2d31mhQrjb0 +zd/tT2BURstWM8rQtqx5VTCBXyYqHjhRfuqVPdIQSuBN934xf8pmCwz+qEgC +1SNV/SMov05u19aKJnBZfFD5acp28oH7h09T8cyM70uk/L5qZXT+OQIzYmy5 +kym7WOXnOyUR+LSlRCqF8kCfYbNgGoETr4I3XqTsE/Z+5FUGgUWJZxQTKI+u +CuGPu07g5vZGiVjKR3PW6jBzCfytKsgdRnlWq2j/VAGBQx+th7wpn2g2jr5T +TKDI1/1PHChzuXzO9yyn4jkllmZMOf7Xv82S9wh8kxLkokJ57VmB0Y5KAm0G +UY6fcpp4GX/SQ+p8T9DgJBU/GmuHjmk9gd1C3/LaKWeZ9O//20hg3K8zzmzK +Mu+PR1e8JHDhtJ5wIuXb/rSCgDcEtlwZajlAWZXzbrNCB4E+rPC4LZTJyztH +P78n8OKyLuYKyrrKQ/wZnwksP/Vzpo2qh612kk7cQwQ2busNOUT5+dCD6MfD +VP2OZDCUKVsety0ImyAw+8x9rhGq/hwKz45+nyfwxurOEi/Kh2cnopvW0DE8 +740ng6pnvSOHhL/x05FtrrWnl6p/np89JVw0OnYuP9oaQ7ngQ0OnoQwdW1r3 +Hqil+ufzo3SV+9p0PJv7QY6H6r9SHd76d/p0DNHZcCKV6s8I1gmHcaTjNx1B +X1HKwnlescoWdKwRff5XoooE6zhGd64rtV7wUcM/1DyQ+nvH/7EHHR+suGXt +S3k4VIbrkw8ddcmoxY77VD68V22ihdBRLV1a6+Y9EuosPp1KiqejbOKIuhA1 +fzT4Y9Qi2XTU3/M2fi81zzgSp55eqaDj+srZxRRq3r3m8nWsqKGjZKCfXBM1 +D/2mbOMmntHxRG1EglIR1R/dch+8euh4+Zvnl+fUPBXObjpjxyWD+h8Mez1v +UPUnwpQI5pHBRDntlX5ZVH6S2eyLa2Tw9pepucPXqe+Jzfz4QkQG5ZLMtnhl +Uu/reVjDSEUGdyY1MbZcJmFOef1nVXsZxLw2lu4FEqazxGI0HWWofIuHrz9P +wuQ6eTmGqwxWycboDyZQ9fyb4WviI4M2+hz34qj9pa/GfdrxuAz2zIddzaP2 +nxcWD9bGF8igYzHpuTOc6n8/F+ibkkER8d3ZQQdJyPjk3fd9XgbvpXVb/3Qj +4ZL10biRJWp9iQsKB1xJSNKMfzm7UhZJVVVLUycSYv+wHdZJyeLZr6tzRu2p ++CQuDzIwlUUrbtXiyh0kGJSU5ly+LIvtK3YdNFAh4QNRkr3tmiz6n1gzf1yJ +yvflohuT2bK4Tm4LPFSk9r+Ywuu2RdTzZlM6teSp/OzNubK2VhZ5binu55Ei +YePyS8lnvsriJV/hF0brqHi7RkaHqsjh45YfT1aMs2GC39xtT70c2intlZEq +YUP3YZk3vs/l8NZBY9rN22yoa5yHk6/k8Idxe7l8IRuSI0qkb3fKoTef8wvZ +XDao963unfsph+Wr7Hq4MtgQwG51zhKQxxX+U2/sYtnw09p+/4CHPO7Olj2x +zYENA+fd9gRzK+BYeXjuw3kWmI2FmQ1qb8BgXq6+LAYLht15jt47qYhR4Jq2 +J7uM+r8Q4TxbvxG1TE1NispKgb9FIYk1poS5yg/oL5uKQSK+3EZbWwVn1yh7 +BJbehivKjPUCXqpo/MjoziFWIbwQM9ryO2UTnjWvGKutzwc9ifpktU41lKLF +1yY+yIO1XHkhB2LVkcW8IPjsSw5IxUgb7FPYjCE/1MRfT2XBSnmnCtvnm1Ex +/tXM3mOZsIkpWh7mrIElRqFL73wyIPgzf4M5hyZqFmQYvnG+BGO/z9ubXdFE +xlZh7eynKbBdrTHTTFULBS6PuMH3JHj0W//PzGstTJZqvmN2MAECVDR63npu +wYRs/8W0nDPAHPVo37dSG3te7nD9zn0KtsnRdq7J08YusBwLEokGxeiEf+t1 +dJD3ggeelI8EJU/GY/keHfzwZybQxT8UPB95n753RBej2z46ZN8KhlH/n2Hb +QnSxjju+7fSVYPhX8rBfZ6gustUYF0LOBUNCVKDtbKQuXuVKKgz2CwaWXihh +cEYX2+ssB4bUgmGh4lRtQ6YuDjg3K1ZVH4HU8huT7xp00UY7uO9ZVxA8zmn3 +mBBiYJH3S/9ppwD4Ykl3DaUxsGrXtTAekwDgmPPf90eMge7vO3qVlQNg6y5u +q+UEA6WapG8VzvlD4z96OqJKDKy/dY7fL8MfXh3MXmlkyMA5T5/ADZ2HoUfO +tyz5EAMVJj4Yq7n5weTtpRm1Bww8JGWakpDvDd/2mOacq2KgYrWWoGCKN3Qv +u7Cjv4aBZgFHm4qPe0ONm9jVy3UMPJ8hU7S0xxtiaVv0FpsZuC4m8pwprzes +j/eNevGRgX4B/z3cetQLVLw6ODw59dDbV0P0mdUhcJcvWZm5Uw9/9WUohSt5 +QMQzF18FGz10kIhtrKR5QLIn/0vSVg9/R14fXs7tAbUF4edfOujh88HkiqZ+ +dxBU2LFu8YAeVi8/5DSW5Q6NCoOCbqF6yMh9/qZK0B2UFKUJhWw9XC18YIl3 +9UGYUErTJsf1cHIhz3FQ2g26X+E2gd96eHTm+Uvkd4O6gNHdIVN6+Hb9BvvC +ZW6QRJod0Z7XQ/erN9Wl21xBSY+jtJpLHyO3EgH3vFzhoJk/vUFYH8dM9Tek +X3KBdq/tq9sN9HH0hp/bxwUnqMz/83UqXh+nWbeHZ5Y5grZxyIx5oj72vg7+ +1Tq6D+5/HV6dc0EfhWbUr1Z27wNS6rOOeao+Zq23yKkp3QelV+ou3Limj+ir +e+ys/T7IOR/H2F6mj3suh5qrFu+FcyHrUq606aOTkfEaP1cHcDSRRX0pA5zO +P1UeP2MHi+08axsIA+QZuCp0p98OcjxHP5jLGmAAB1O1r9UOvp2pCnNUNEDn +IJGtJ27bQXCzdXm4BnW/73BVlKMdJFhFSVWaGuDoT+178U92Q/XejgWtQAPc +0laQdf6aLYj7n63aVGeAxafOr+iMsoGkpUNbEusNcE7BebDX3wY4U03Z358a +YLy577cpFxv4WbG8KKfZAL3/q1M1NbKBao7TV/jbqPU3cg2FrrABx0vRYdOD +Bsh5xve6rII1XKkJ3/JoFRPTbQIeDvnsBCHew+ydDky0snk866FpDvnGxyPG +9zGxeINIsw7NHDSOJxmnOTHRZGj7hOyiGViNszq6DzBx9NLXme3PzeBM59Sc ++2EmVplH3Kp1MoPZvJNbI2KY+JCzd/n28zugRz+trbCEiY3kzb/2i6bgfSz/ +ulkZE7++/bBbddAUpsvuew6zmNjji0niLabAL9M9s7mCicTIMS+DLFOw4JGU +eFjHxFrbxJwLhqZQ217o0dbBxES+LwvOcdvAfG2lamg3ExPil01kBmyD7u3N +07QPTJxt9bs54rANJqv/i3f5wkRnj+H5NqVtoJqrfufHTyZOTrJP5L01gdoe +o9DzI0xsq0wPSKwxAXPB3aA2zkS/Vw0XzhWYwKGzx96GTDFRd7W7wLNwE5is +O5MpMsvEjJKbezg9TCB2PsO9ep6J7WEtsXZWJrBeq0jFeZGJ9iGeZ2p0TeCG +f/XU0hITabsXrHVkTeB/HemkuA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07328135489279136}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07328135489279136}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf0fAHAPFWna1z7XSkaEcHF9PiJlhERKViErI4nHqFBKlIyklIxQ +Rtx7KlmVKFFJZaahjFKPWXbkd35/ndf7dcb3nM/6vg79YKCtJycHB8emfzg4 +/n+c/tz8VC4x3zDccrnIns3Ghu03aOFG3bGw3XxLLO81OqBQ60Fadyokvfhn +4WvmZgi1Ke7i6s6DVXduGjRmGgHfqEjqXBcJhV4bDmdm7oLeWqvAya56uFEU +1LA68wCYyv38NNH1DuLkB4W+ZxyBuS6d9PGuPoho6XLZfzEGGoxv5b/N+w2/ +LKRuT8ilgkRv1beDKovwviIlcFVmJggedi3mNuZCLaWrweOQC6mbTWus7HnQ +Ql494S4UwPsr6nUT69fg4rWALLmi25CYf7KVU5QPE0SczA5MlYC5lg+/kCwf +Zq4L3n3kn1LgeWprv0GVD5ciBnZErCmF0/3yHyyM+PDk/J/hUPlSiJJ59e2S +Dx++Dfb5KGZfCgE5tL8K1Xx4+FPhsVV3S2HXdbaKxX5+1OhUF4vxuQMil/rP +pWUJoPBvCXu7ujKgKd8/PVsogK/mslt6m8tArP7MSWeWAMbrv7nv0VYGUuMb +j21oEMC5e8feOH4rA3nLILeaIQFMFuVaO7uqHDSXLWr3awoi96x2yZR9OViH +CA9ovBBEev2W8amBcrBZNfQ5o00Qm+079e+MlINtXtX7hY+COJUY3uE8XQ57 +3ji1No4J4uapy2EdXCxwVrlZ7SgkhBbGLbvmBVngN6CWEusmhJyKUJSnzYKz +dmaG76aFMDp7SNEvjAVi916Lcf4jjAXZd+vKI1lQJmA3s3mVMI5HBzqOn2RB +5zsXVoq0MJ64o5zqGc8CuV0hMrt2CONDhjIPcZUF9TuzV7y5Kozhl5Uet1ex +YNF06nWLgQiq06I19WdZkFwYUbJoKoJbx04cWvpD3b+CI151lwh2BXKmPl5i +geUzXqMLniLYf7HtrSY3GzKNibuWSSJ4+1fm2H9CbNBFi4yXvSIoEPE0OlOD +DUcZua7NsTSc+eijOe7NBvOctZMW52noYru2548fG2S4o+Jfp9NwvfHiPFcg +G96072G33aah4NrakpXH2LApaDXX59c0tEvnaf4ZzYahwrDCX2Ki6Ga3bI7r +ChucBK1GxO+KItc99eupDWzQjKyJuVErik+di/JUG9nA26coTG8UxSD1Yvln +TWyoKucChfeieMSjO/dHCxuELaqS1ZdEkXVNI4ynm1o/Rk5rm4UY1iv8qMn6 +jw0mY/MRAf1iyBm9iaa4noTwHZeUngyLIeG6U2kHPwlluao9AtNimBIR0ech +SALNzo1RxSOOfzXXm16ikTBc+WyGa5M4Ttt0fX1BkJAWmxxy9V9xfMKKK81Q +J6Hpw0a54RhxHHuYbBSrQcKCVkObYaI4frrlFuOjRcKh71MaA1niOGCRzblJ +lwQ9y/0TmxrEsXEzh9BFIKFPSCHg6RoJ7Dd69py9kwSRwMeSIiISaHnqnIaX +NQmWTXtbfAgJHHB9ulN0FwkVEYkq6zQlMJtQyThqR0JC7/jPfXslMO/ux2iO +/SRoFNV4jeVJYNHzW6uivEiIMdh1QExXEncvO7pu8TgJO1xu/NLZKole4jkh +nidJWBv93yl7S0lMDvy47EU0Cdcb4gqT3SRxUzSt6OwpEirNq/9bcU4SWfoL +/B3xJIzvlQ39/V4So/jCuKpSSXgQEcTNNyCJFZoPfAbSSDhx/eGVTaOSuCtq +ZPnqdBJWf3Go8eGUwnkmvd86g4QNXuc5vihJodsppW3F10hwOTaV8CpSCqus +PlsX3yRBPmOrxM84KUw52RJwNf//8b94hztZCteLv209XUBCxMLGN1vzpbC2 +2HS/zS0S0k+5CFW9ksI/RqfLqotJcCooKezspJ6fe2sysYQEmeezOpNfpJAc +dD21r5QEFm+ao9qUFF5yGDz+4w4Jr1KeZxdISqNbXu/fjywqv3cFNzdskEbx +LmZuMpsEx44D9V82S+Mv0T+pSJIwRFsYEDeVxhsBa7zT75LAlaOulBogjecq +lSb4K0h48eR4Tfm/0vi5k39DEeXk/heWLbHSmOlz+K7+AxKkNngG8mRIIyB/ +m30lVQ9lV++deCyNo5ert7tUk2DS9XpxtEkaW4tbrFopW3Es2+76jrq+YFyZ +WUOCu23AexiURt63wX7rakkIiLwpwxqVRgdrx9ajlP/N7/YjZqnzOw+u7qBs +Gkk/Gb2cwJzdI4JJD0l4ua72pi4vgRwbl74OUrbJ39M0vpbAfCHrRL1HJOxv +SeQ7QCNQrqj1WA/lLwcUtEUlCaxOSK+Uf0zV83Sd41s6gVyzDT3+lIOkp28a +KRP4oOxC3STlqbvJTXNqBD67+DROs47K1w7lEbYWgZVK11QDKXN8esbnyyCQ +1+Rr5S3KcUfctGUMCRTz8VL8RJl3xR/Hnq0Epo/9jVr3hIpfZvrJ1O0E/poM +f2BIObPhRRPnLgIfdRz6mkZZeq/nSLU9gZyvo99VUc4fXuI76ki97/HXpR8p +K8Vkaiu7Ejj2Rf7IAuVyoS37+90JVKh0JkTrSdAqbj15zZvAJ2d31mhQrjb0 +zd/tT2BURstWM8rQtqx5VTCBXyYqHjhRfuqVPdIQSuBN934xf8pmCwz+qEgC +1SNV/SMov05u19aKJnBZfFD5acp28oH7h09T8cyM70uk/L5qZXT+OQIzYmy5 +kym7WOXnOyUR+LSlRCqF8kCfYbNgGoETr4I3XqTsE/Z+5FUGgUWJZxQTKI+u +CuGPu07g5vZGiVjKR3PW6jBzCfytKsgdRnlWq2j/VAGBQx+th7wpn2g2jr5T +TKDI1/1PHChzuXzO9yyn4jkllmZMOf7Xv82S9wh8kxLkokJ57VmB0Y5KAm0G +UY6fcpp4GX/SQ+p8T9DgJBU/GmuHjmk9gd1C3/LaKWeZ9O//20hg3K8zzmzK +Mu+PR1e8JHDhtJ5wIuXb/rSCgDcEtlwZajlAWZXzbrNCB4E+rPC4LZTJyztH +P78n8OKyLuYKyrrKQ/wZnwksP/Vzpo2qh612kk7cQwQ2busNOUT5+dCD6MfD +VP2OZDCUKVsety0ImyAw+8x9rhGq/hwKz45+nyfwxurOEi/Kh2cnopvW0DE8 +740ng6pnvSOHhL/x05FtrrWnl6p/np89JVw0OnYuP9oaQ7ngQ0OnoQwdW1r3 +Hqil+ufzo3SV+9p0PJv7QY6H6r9SHd76d/p0DNHZcCKV6s8I1gmHcaTjNx1B +X1HKwnlescoWdKwRff5XoooE6zhGd64rtV7wUcM/1DyQ+nvH/7EHHR+suGXt +S3k4VIbrkw8ddcmoxY77VD68V22ihdBRLV1a6+Y9EuosPp1KiqejbOKIuhA1 +fzT4Y9Qi2XTU3/M2fi81zzgSp55eqaDj+srZxRRq3r3m8nWsqKGjZKCfXBM1 +D/2mbOMmntHxRG1EglIR1R/dch+8euh4+Zvnl+fUPBXObjpjxyWD+h8Mez1v +UPUnwpQI5pHBRDntlX5ZVH6S2eyLa2Tw9pepucPXqe+Jzfz4QkQG5ZLMtnhl +Uu/reVjDSEUGdyY1MbZcJmFOef1nVXsZxLw2lu4FEqazxGI0HWWofIuHrz9P +wuQ6eTmGqwxWycboDyZQ9fyb4WviI4M2+hz34qj9pa/GfdrxuAz2zIddzaP2 +nxcWD9bGF8igYzHpuTOc6n8/F+ibkkER8d3ZQQdJyPjk3fd9XgbvpXVb/3Qj +4ZL10biRJWp9iQsKB1xJSNKMfzm7UhZJVVVLUycSYv+wHdZJyeLZr6tzRu2p ++CQuDzIwlUUrbtXiyh0kGJSU5ly+LIvtK3YdNFAh4QNRkr3tmiz6n1gzf1yJ +yvflohuT2bK4Tm4LPFSk9r+Ywuu2RdTzZlM6teSp/OzNubK2VhZ5binu55Ei +YePyS8lnvsriJV/hF0brqHi7RkaHqsjh45YfT1aMs2GC39xtT70c2intlZEq +YUP3YZk3vs/l8NZBY9rN22yoa5yHk6/k8Idxe7l8IRuSI0qkb3fKoTef8wvZ +XDao963unfsph+Wr7Hq4MtgQwG51zhKQxxX+U2/sYtnw09p+/4CHPO7Olj2x +zYENA+fd9gRzK+BYeXjuw3kWmI2FmQ1qb8BgXq6+LAYLht15jt47qYhR4Jq2 +J7uM+r8Q4TxbvxG1TE1NispKgb9FIYk1poS5yg/oL5uKQSK+3EZbWwVn1yh7 +BJbehivKjPUCXqpo/MjoziFWIbwQM9ryO2UTnjWvGKutzwc9ifpktU41lKLF +1yY+yIO1XHkhB2LVkcW8IPjsSw5IxUgb7FPYjCE/1MRfT2XBSnmnCtvnm1Ex +/tXM3mOZsIkpWh7mrIElRqFL73wyIPgzf4M5hyZqFmQYvnG+BGO/z9ubXdFE +xlZh7eynKbBdrTHTTFULBS6PuMH3JHj0W//PzGstTJZqvmN2MAECVDR63npu +wYRs/8W0nDPAHPVo37dSG3te7nD9zn0KtsnRdq7J08YusBwLEokGxeiEf+t1 +dJD3ggeelI8EJU/GY/keHfzwZybQxT8UPB95n753RBej2z46ZN8KhlH/n2Hb +QnSxjju+7fSVYPhX8rBfZ6gustUYF0LOBUNCVKDtbKQuXuVKKgz2CwaWXihh +cEYX2+ssB4bUgmGh4lRtQ6YuDjg3K1ZVH4HU8huT7xp00UY7uO9ZVxA8zmn3 +mBBiYJH3S/9ppwD4Ykl3DaUxsGrXtTAekwDgmPPf90eMge7vO3qVlQNg6y5u +q+UEA6WapG8VzvlD4z96OqJKDKy/dY7fL8MfXh3MXmlkyMA5T5/ADZ2HoUfO +tyz5EAMVJj4Yq7n5weTtpRm1Bww8JGWakpDvDd/2mOacq2KgYrWWoGCKN3Qv +u7Cjv4aBZgFHm4qPe0ONm9jVy3UMPJ8hU7S0xxtiaVv0FpsZuC4m8pwprzes +j/eNevGRgX4B/z3cetQLVLw6ODw59dDbV0P0mdUhcJcvWZm5Uw9/9WUohSt5 +QMQzF18FGz10kIhtrKR5QLIn/0vSVg9/R14fXs7tAbUF4edfOujh88HkiqZ+ +dxBU2LFu8YAeVi8/5DSW5Q6NCoOCbqF6yMh9/qZK0B2UFKUJhWw9XC18YIl3 +9UGYUErTJsf1cHIhz3FQ2g26X+E2gd96eHTm+Uvkd4O6gNHdIVN6+Hb9BvvC +ZW6QRJod0Z7XQ/erN9Wl21xBSY+jtJpLHyO3EgH3vFzhoJk/vUFYH8dM9Tek +X3KBdq/tq9sN9HH0hp/bxwUnqMz/83UqXh+nWbeHZ5Y5grZxyIx5oj72vg7+ +1Tq6D+5/HV6dc0EfhWbUr1Z27wNS6rOOeao+Zq23yKkp3QelV+ou3Limj+ir +e+ys/T7IOR/H2F6mj3suh5qrFu+FcyHrUq606aOTkfEaP1cHcDSRRX0pA5zO +P1UeP2MHi+08axsIA+QZuCp0p98OcjxHP5jLGmAAB1O1r9UOvp2pCnNUNEDn +IJGtJ27bQXCzdXm4BnW/73BVlKMdJFhFSVWaGuDoT+178U92Q/XejgWtQAPc +0laQdf6aLYj7n63aVGeAxafOr+iMsoGkpUNbEusNcE7BebDX3wY4U03Z358a +YLy577cpFxv4WbG8KKfZAL3/q1M1NbKBao7TV/jbqPU3cg2FrrABx0vRYdOD +Bsh5xve6rII1XKkJ3/JoFRPTbQIeDvnsBCHew+ydDky0snk866FpDvnGxyPG +9zGxeINIsw7NHDSOJxmnOTHRZGj7hOyiGViNszq6DzBx9NLXme3PzeBM59Sc ++2EmVplH3Kp1MoPZvJNbI2KY+JCzd/n28zugRz+trbCEiY3kzb/2i6bgfSz/ +ulkZE7++/bBbddAUpsvuew6zmNjji0niLabAL9M9s7mCicTIMS+DLFOw4JGU +eFjHxFrbxJwLhqZQ217o0dbBxES+LwvOcdvAfG2lamg3ExPil01kBmyD7u3N +07QPTJxt9bs54rANJqv/i3f5wkRnj+H5NqVtoJqrfufHTyZOTrJP5L01gdoe +o9DzI0xsq0wPSKwxAXPB3aA2zkS/Vw0XzhWYwKGzx96GTDFRd7W7wLNwE5is +O5MpMsvEjJKbezg9TCB2PsO9ep6J7WEtsXZWJrBeq0jFeZGJ9iGeZ2p0TeCG +f/XU0hITabsXrHVkTeB/HemkuA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07328135489279136}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07328135489279136}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994253263791048*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"b241c70a-dde3-418d-b3bd-d1e0242505d5"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", - RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"344da507-9044-\ -ef47-aa8c-99f282e3d6d3"], + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellLabel-> + "In[120]:=",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8Vf0fAHAPFWna1z7XSkaEcHF9PiJlhERKViErI4nHqFBKlIyklIxQ +Rtx7KlmVKFFJZaahjFKPWXbkd35/ndf7dcb3nM/6vg79YKCtJycHB8emfzg4 +/n+c/tz8VC4x3zDccrnIns3Ghu03aOFG3bGw3XxLLO81OqBQ60Fadyokvfhn +4WvmZgi1Ke7i6s6DVXduGjRmGgHfqEjqXBcJhV4bDmdm7oLeWqvAya56uFEU +1LA68wCYyv38NNH1DuLkB4W+ZxyBuS6d9PGuPoho6XLZfzEGGoxv5b/N+w2/ +LKRuT8ilgkRv1beDKovwviIlcFVmJggedi3mNuZCLaWrweOQC6mbTWus7HnQ +Ql494S4UwPsr6nUT69fg4rWALLmi25CYf7KVU5QPE0SczA5MlYC5lg+/kCwf +Zq4L3n3kn1LgeWprv0GVD5ciBnZErCmF0/3yHyyM+PDk/J/hUPlSiJJ59e2S +Dx++Dfb5KGZfCgE5tL8K1Xx4+FPhsVV3S2HXdbaKxX5+1OhUF4vxuQMil/rP +pWUJoPBvCXu7ujKgKd8/PVsogK/mslt6m8tArP7MSWeWAMbrv7nv0VYGUuMb +j21oEMC5e8feOH4rA3nLILeaIQFMFuVaO7uqHDSXLWr3awoi96x2yZR9OViH +CA9ovBBEev2W8amBcrBZNfQ5o00Qm+079e+MlINtXtX7hY+COJUY3uE8XQ57 +3ji1No4J4uapy2EdXCxwVrlZ7SgkhBbGLbvmBVngN6CWEusmhJyKUJSnzYKz +dmaG76aFMDp7SNEvjAVi916Lcf4jjAXZd+vKI1lQJmA3s3mVMI5HBzqOn2RB +5zsXVoq0MJ64o5zqGc8CuV0hMrt2CONDhjIPcZUF9TuzV7y5Kozhl5Uet1ex +YNF06nWLgQiq06I19WdZkFwYUbJoKoJbx04cWvpD3b+CI151lwh2BXKmPl5i +geUzXqMLniLYf7HtrSY3GzKNibuWSSJ4+1fm2H9CbNBFi4yXvSIoEPE0OlOD +DUcZua7NsTSc+eijOe7NBvOctZMW52noYru2548fG2S4o+Jfp9NwvfHiPFcg +G96072G33aah4NrakpXH2LApaDXX59c0tEvnaf4ZzYahwrDCX2Ki6Ga3bI7r +ChucBK1GxO+KItc99eupDWzQjKyJuVErik+di/JUG9nA26coTG8UxSD1Yvln +TWyoKucChfeieMSjO/dHCxuELaqS1ZdEkXVNI4ynm1o/Rk5rm4UY1iv8qMn6 +jw0mY/MRAf1iyBm9iaa4noTwHZeUngyLIeG6U2kHPwlluao9AtNimBIR0ech +SALNzo1RxSOOfzXXm16ikTBc+WyGa5M4Ttt0fX1BkJAWmxxy9V9xfMKKK81Q +J6Hpw0a54RhxHHuYbBSrQcKCVkObYaI4frrlFuOjRcKh71MaA1niOGCRzblJ +lwQ9y/0TmxrEsXEzh9BFIKFPSCHg6RoJ7Dd69py9kwSRwMeSIiISaHnqnIaX +NQmWTXtbfAgJHHB9ulN0FwkVEYkq6zQlMJtQyThqR0JC7/jPfXslMO/ux2iO +/SRoFNV4jeVJYNHzW6uivEiIMdh1QExXEncvO7pu8TgJO1xu/NLZKole4jkh +nidJWBv93yl7S0lMDvy47EU0Cdcb4gqT3SRxUzSt6OwpEirNq/9bcU4SWfoL +/B3xJIzvlQ39/V4So/jCuKpSSXgQEcTNNyCJFZoPfAbSSDhx/eGVTaOSuCtq +ZPnqdBJWf3Go8eGUwnkmvd86g4QNXuc5vihJodsppW3F10hwOTaV8CpSCqus +PlsX3yRBPmOrxM84KUw52RJwNf//8b94hztZCteLv209XUBCxMLGN1vzpbC2 +2HS/zS0S0k+5CFW9ksI/RqfLqotJcCooKezspJ6fe2sysYQEmeezOpNfpJAc +dD21r5QEFm+ao9qUFF5yGDz+4w4Jr1KeZxdISqNbXu/fjywqv3cFNzdskEbx +LmZuMpsEx44D9V82S+Mv0T+pSJIwRFsYEDeVxhsBa7zT75LAlaOulBogjecq +lSb4K0h48eR4Tfm/0vi5k39DEeXk/heWLbHSmOlz+K7+AxKkNngG8mRIIyB/ +m30lVQ9lV++deCyNo5ert7tUk2DS9XpxtEkaW4tbrFopW3Es2+76jrq+YFyZ +WUOCu23AexiURt63wX7rakkIiLwpwxqVRgdrx9ajlP/N7/YjZqnzOw+u7qBs +Gkk/Gb2cwJzdI4JJD0l4ua72pi4vgRwbl74OUrbJ39M0vpbAfCHrRL1HJOxv +SeQ7QCNQrqj1WA/lLwcUtEUlCaxOSK+Uf0zV83Sd41s6gVyzDT3+lIOkp28a +KRP4oOxC3STlqbvJTXNqBD67+DROs47K1w7lEbYWgZVK11QDKXN8esbnyyCQ +1+Rr5S3KcUfctGUMCRTz8VL8RJl3xR/Hnq0Epo/9jVr3hIpfZvrJ1O0E/poM +f2BIObPhRRPnLgIfdRz6mkZZeq/nSLU9gZyvo99VUc4fXuI76ki97/HXpR8p +K8Vkaiu7Ejj2Rf7IAuVyoS37+90JVKh0JkTrSdAqbj15zZvAJ2d31mhQrjb0 +zd/tT2BURstWM8rQtqx5VTCBXyYqHjhRfuqVPdIQSuBN934xf8pmCwz+qEgC +1SNV/SMov05u19aKJnBZfFD5acp28oH7h09T8cyM70uk/L5qZXT+OQIzYmy5 +kym7WOXnOyUR+LSlRCqF8kCfYbNgGoETr4I3XqTsE/Z+5FUGgUWJZxQTKI+u +CuGPu07g5vZGiVjKR3PW6jBzCfytKsgdRnlWq2j/VAGBQx+th7wpn2g2jr5T +TKDI1/1PHChzuXzO9yyn4jkllmZMOf7Xv82S9wh8kxLkokJ57VmB0Y5KAm0G +UY6fcpp4GX/SQ+p8T9DgJBU/GmuHjmk9gd1C3/LaKWeZ9O//20hg3K8zzmzK +Mu+PR1e8JHDhtJ5wIuXb/rSCgDcEtlwZajlAWZXzbrNCB4E+rPC4LZTJyztH +P78n8OKyLuYKyrrKQ/wZnwksP/Vzpo2qh612kk7cQwQ2busNOUT5+dCD6MfD +VP2OZDCUKVsety0ImyAw+8x9rhGq/hwKz45+nyfwxurOEi/Kh2cnopvW0DE8 +740ng6pnvSOHhL/x05FtrrWnl6p/np89JVw0OnYuP9oaQ7ngQ0OnoQwdW1r3 +Hqil+ufzo3SV+9p0PJv7QY6H6r9SHd76d/p0DNHZcCKV6s8I1gmHcaTjNx1B +X1HKwnlescoWdKwRff5XoooE6zhGd64rtV7wUcM/1DyQ+nvH/7EHHR+suGXt +S3k4VIbrkw8ddcmoxY77VD68V22ihdBRLV1a6+Y9EuosPp1KiqejbOKIuhA1 +fzT4Y9Qi2XTU3/M2fi81zzgSp55eqaDj+srZxRRq3r3m8nWsqKGjZKCfXBM1 +D/2mbOMmntHxRG1EglIR1R/dch+8euh4+Zvnl+fUPBXObjpjxyWD+h8Mez1v +UPUnwpQI5pHBRDntlX5ZVH6S2eyLa2Tw9pepucPXqe+Jzfz4QkQG5ZLMtnhl +Uu/reVjDSEUGdyY1MbZcJmFOef1nVXsZxLw2lu4FEqazxGI0HWWofIuHrz9P +wuQ6eTmGqwxWycboDyZQ9fyb4WviI4M2+hz34qj9pa/GfdrxuAz2zIddzaP2 +nxcWD9bGF8igYzHpuTOc6n8/F+ibkkER8d3ZQQdJyPjk3fd9XgbvpXVb/3Qj +4ZL10biRJWp9iQsKB1xJSNKMfzm7UhZJVVVLUycSYv+wHdZJyeLZr6tzRu2p ++CQuDzIwlUUrbtXiyh0kGJSU5ly+LIvtK3YdNFAh4QNRkr3tmiz6n1gzf1yJ +yvflohuT2bK4Tm4LPFSk9r+Ywuu2RdTzZlM6teSp/OzNubK2VhZ5binu55Ei +YePyS8lnvsriJV/hF0brqHi7RkaHqsjh45YfT1aMs2GC39xtT70c2intlZEq +YUP3YZk3vs/l8NZBY9rN22yoa5yHk6/k8Idxe7l8IRuSI0qkb3fKoTef8wvZ +XDao963unfsph+Wr7Hq4MtgQwG51zhKQxxX+U2/sYtnw09p+/4CHPO7Olj2x +zYENA+fd9gRzK+BYeXjuw3kWmI2FmQ1qb8BgXq6+LAYLht15jt47qYhR4Jq2 +J7uM+r8Q4TxbvxG1TE1NispKgb9FIYk1poS5yg/oL5uKQSK+3EZbWwVn1yh7 +BJbehivKjPUCXqpo/MjoziFWIbwQM9ryO2UTnjWvGKutzwc9ifpktU41lKLF +1yY+yIO1XHkhB2LVkcW8IPjsSw5IxUgb7FPYjCE/1MRfT2XBSnmnCtvnm1Ex +/tXM3mOZsIkpWh7mrIElRqFL73wyIPgzf4M5hyZqFmQYvnG+BGO/z9ubXdFE +xlZh7eynKbBdrTHTTFULBS6PuMH3JHj0W//PzGstTJZqvmN2MAECVDR63npu +wYRs/8W0nDPAHPVo37dSG3te7nD9zn0KtsnRdq7J08YusBwLEokGxeiEf+t1 +dJD3ggeelI8EJU/GY/keHfzwZybQxT8UPB95n753RBej2z46ZN8KhlH/n2Hb +QnSxjju+7fSVYPhX8rBfZ6gustUYF0LOBUNCVKDtbKQuXuVKKgz2CwaWXihh +cEYX2+ssB4bUgmGh4lRtQ6YuDjg3K1ZVH4HU8huT7xp00UY7uO9ZVxA8zmn3 +mBBiYJH3S/9ppwD4Ykl3DaUxsGrXtTAekwDgmPPf90eMge7vO3qVlQNg6y5u +q+UEA6WapG8VzvlD4z96OqJKDKy/dY7fL8MfXh3MXmlkyMA5T5/ADZ2HoUfO +tyz5EAMVJj4Yq7n5weTtpRm1Bww8JGWakpDvDd/2mOacq2KgYrWWoGCKN3Qv +u7Cjv4aBZgFHm4qPe0ONm9jVy3UMPJ8hU7S0xxtiaVv0FpsZuC4m8pwprzes +j/eNevGRgX4B/z3cetQLVLw6ODw59dDbV0P0mdUhcJcvWZm5Uw9/9WUohSt5 +QMQzF18FGz10kIhtrKR5QLIn/0vSVg9/R14fXs7tAbUF4edfOujh88HkiqZ+ +dxBU2LFu8YAeVi8/5DSW5Q6NCoOCbqF6yMh9/qZK0B2UFKUJhWw9XC18YIl3 +9UGYUErTJsf1cHIhz3FQ2g26X+E2gd96eHTm+Uvkd4O6gNHdIVN6+Hb9BvvC +ZW6QRJod0Z7XQ/erN9Wl21xBSY+jtJpLHyO3EgH3vFzhoJk/vUFYH8dM9Tek +X3KBdq/tq9sN9HH0hp/bxwUnqMz/83UqXh+nWbeHZ5Y5grZxyIx5oj72vg7+ +1Tq6D+5/HV6dc0EfhWbUr1Z27wNS6rOOeao+Zq23yKkp3QelV+ou3Limj+ir +e+ys/T7IOR/H2F6mj3suh5qrFu+FcyHrUq606aOTkfEaP1cHcDSRRX0pA5zO +P1UeP2MHi+08axsIA+QZuCp0p98OcjxHP5jLGmAAB1O1r9UOvp2pCnNUNEDn +IJGtJ27bQXCzdXm4BnW/73BVlKMdJFhFSVWaGuDoT+178U92Q/XejgWtQAPc +0laQdf6aLYj7n63aVGeAxafOr+iMsoGkpUNbEusNcE7BebDX3wY4U03Z358a +YLy577cpFxv4WbG8KKfZAL3/q1M1NbKBao7TV/jbqPU3cg2FrrABx0vRYdOD +Bsh5xve6rII1XKkJ3/JoFRPTbQIeDvnsBCHew+ydDky0snk866FpDvnGxyPG +9zGxeINIsw7NHDSOJxmnOTHRZGj7hOyiGViNszq6DzBx9NLXme3PzeBM59Sc ++2EmVplH3Kp1MoPZvJNbI2KY+JCzd/n28zugRz+trbCEiY3kzb/2i6bgfSz/ +ulkZE7++/bBbddAUpsvuew6zmNjji0niLabAL9M9s7mCicTIMS+DLFOw4JGU +eFjHxFrbxJwLhqZQ217o0dbBxES+LwvOcdvAfG2lamg3ExPil01kBmyD7u3N +07QPTJxt9bs54rANJqv/i3f5wkRnj+H5NqVtoJqrfufHTyZOTrJP5L01gdoe +o9DzI0xsq0wPSKwxAXPB3aA2zkS/Vw0XzhWYwKGzx96GTDFRd7W7wLNwE5is +O5MpMsvEjJKbezg9TCB2PsO9ep6J7WEtsXZWJrBeq0jFeZGJ9iGeZ2p0TeCG +f/XU0hITabsXrHVkTeB/HemkuA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf0fAHAPFWna1z7XSkaEcHF9PiJlhERKViErI4nHqFBKlIyklIxQ +Rtx7KlmVKFFJZaahjFKPWXbkd35/ndf7dcb3nM/6vg79YKCtJycHB8emfzg4 +/n+c/tz8VC4x3zDccrnIns3Ghu03aOFG3bGw3XxLLO81OqBQ60Fadyokvfhn +4WvmZgi1Ke7i6s6DVXduGjRmGgHfqEjqXBcJhV4bDmdm7oLeWqvAya56uFEU +1LA68wCYyv38NNH1DuLkB4W+ZxyBuS6d9PGuPoho6XLZfzEGGoxv5b/N+w2/ +LKRuT8ilgkRv1beDKovwviIlcFVmJggedi3mNuZCLaWrweOQC6mbTWus7HnQ +Ql494S4UwPsr6nUT69fg4rWALLmi25CYf7KVU5QPE0SczA5MlYC5lg+/kCwf +Zq4L3n3kn1LgeWprv0GVD5ciBnZErCmF0/3yHyyM+PDk/J/hUPlSiJJ59e2S +Dx++Dfb5KGZfCgE5tL8K1Xx4+FPhsVV3S2HXdbaKxX5+1OhUF4vxuQMil/rP +pWUJoPBvCXu7ujKgKd8/PVsogK/mslt6m8tArP7MSWeWAMbrv7nv0VYGUuMb +j21oEMC5e8feOH4rA3nLILeaIQFMFuVaO7uqHDSXLWr3awoi96x2yZR9OViH +CA9ovBBEev2W8amBcrBZNfQ5o00Qm+079e+MlINtXtX7hY+COJUY3uE8XQ57 +3ji1No4J4uapy2EdXCxwVrlZ7SgkhBbGLbvmBVngN6CWEusmhJyKUJSnzYKz +dmaG76aFMDp7SNEvjAVi916Lcf4jjAXZd+vKI1lQJmA3s3mVMI5HBzqOn2RB +5zsXVoq0MJ64o5zqGc8CuV0hMrt2CONDhjIPcZUF9TuzV7y5Kozhl5Uet1ex +YNF06nWLgQiq06I19WdZkFwYUbJoKoJbx04cWvpD3b+CI151lwh2BXKmPl5i +geUzXqMLniLYf7HtrSY3GzKNibuWSSJ4+1fm2H9CbNBFi4yXvSIoEPE0OlOD +DUcZua7NsTSc+eijOe7NBvOctZMW52noYru2548fG2S4o+Jfp9NwvfHiPFcg +G96072G33aah4NrakpXH2LApaDXX59c0tEvnaf4ZzYahwrDCX2Ki6Ga3bI7r +ChucBK1GxO+KItc99eupDWzQjKyJuVErik+di/JUG9nA26coTG8UxSD1Yvln +TWyoKucChfeieMSjO/dHCxuELaqS1ZdEkXVNI4ynm1o/Rk5rm4UY1iv8qMn6 +jw0mY/MRAf1iyBm9iaa4noTwHZeUngyLIeG6U2kHPwlluao9AtNimBIR0ech +SALNzo1RxSOOfzXXm16ikTBc+WyGa5M4Ttt0fX1BkJAWmxxy9V9xfMKKK81Q +J6Hpw0a54RhxHHuYbBSrQcKCVkObYaI4frrlFuOjRcKh71MaA1niOGCRzblJ +lwQ9y/0TmxrEsXEzh9BFIKFPSCHg6RoJ7Dd69py9kwSRwMeSIiISaHnqnIaX +NQmWTXtbfAgJHHB9ulN0FwkVEYkq6zQlMJtQyThqR0JC7/jPfXslMO/ux2iO +/SRoFNV4jeVJYNHzW6uivEiIMdh1QExXEncvO7pu8TgJO1xu/NLZKole4jkh +nidJWBv93yl7S0lMDvy47EU0Cdcb4gqT3SRxUzSt6OwpEirNq/9bcU4SWfoL +/B3xJIzvlQ39/V4So/jCuKpSSXgQEcTNNyCJFZoPfAbSSDhx/eGVTaOSuCtq +ZPnqdBJWf3Go8eGUwnkmvd86g4QNXuc5vihJodsppW3F10hwOTaV8CpSCqus +PlsX3yRBPmOrxM84KUw52RJwNf//8b94hztZCteLv209XUBCxMLGN1vzpbC2 +2HS/zS0S0k+5CFW9ksI/RqfLqotJcCooKezspJ6fe2sysYQEmeezOpNfpJAc +dD21r5QEFm+ao9qUFF5yGDz+4w4Jr1KeZxdISqNbXu/fjywqv3cFNzdskEbx +LmZuMpsEx44D9V82S+Mv0T+pSJIwRFsYEDeVxhsBa7zT75LAlaOulBogjecq +lSb4K0h48eR4Tfm/0vi5k39DEeXk/heWLbHSmOlz+K7+AxKkNngG8mRIIyB/ +m30lVQ9lV++deCyNo5ert7tUk2DS9XpxtEkaW4tbrFopW3Es2+76jrq+YFyZ +WUOCu23AexiURt63wX7rakkIiLwpwxqVRgdrx9ajlP/N7/YjZqnzOw+u7qBs +Gkk/Gb2cwJzdI4JJD0l4ua72pi4vgRwbl74OUrbJ39M0vpbAfCHrRL1HJOxv +SeQ7QCNQrqj1WA/lLwcUtEUlCaxOSK+Uf0zV83Sd41s6gVyzDT3+lIOkp28a +KRP4oOxC3STlqbvJTXNqBD67+DROs47K1w7lEbYWgZVK11QDKXN8esbnyyCQ +1+Rr5S3KcUfctGUMCRTz8VL8RJl3xR/Hnq0Epo/9jVr3hIpfZvrJ1O0E/poM +f2BIObPhRRPnLgIfdRz6mkZZeq/nSLU9gZyvo99VUc4fXuI76ki97/HXpR8p +K8Vkaiu7Ejj2Rf7IAuVyoS37+90JVKh0JkTrSdAqbj15zZvAJ2d31mhQrjb0 +zd/tT2BURstWM8rQtqx5VTCBXyYqHjhRfuqVPdIQSuBN934xf8pmCwz+qEgC +1SNV/SMov05u19aKJnBZfFD5acp28oH7h09T8cyM70uk/L5qZXT+OQIzYmy5 +kym7WOXnOyUR+LSlRCqF8kCfYbNgGoETr4I3XqTsE/Z+5FUGgUWJZxQTKI+u +CuGPu07g5vZGiVjKR3PW6jBzCfytKsgdRnlWq2j/VAGBQx+th7wpn2g2jr5T +TKDI1/1PHChzuXzO9yyn4jkllmZMOf7Xv82S9wh8kxLkokJ57VmB0Y5KAm0G +UY6fcpp4GX/SQ+p8T9DgJBU/GmuHjmk9gd1C3/LaKWeZ9O//20hg3K8zzmzK +Mu+PR1e8JHDhtJ5wIuXb/rSCgDcEtlwZajlAWZXzbrNCB4E+rPC4LZTJyztH +P78n8OKyLuYKyrrKQ/wZnwksP/Vzpo2qh612kk7cQwQ2busNOUT5+dCD6MfD +VP2OZDCUKVsety0ImyAw+8x9rhGq/hwKz45+nyfwxurOEi/Kh2cnopvW0DE8 +740ng6pnvSOHhL/x05FtrrWnl6p/np89JVw0OnYuP9oaQ7ngQ0OnoQwdW1r3 +Hqil+ufzo3SV+9p0PJv7QY6H6r9SHd76d/p0DNHZcCKV6s8I1gmHcaTjNx1B +X1HKwnlescoWdKwRff5XoooE6zhGd64rtV7wUcM/1DyQ+nvH/7EHHR+suGXt +S3k4VIbrkw8ddcmoxY77VD68V22ihdBRLV1a6+Y9EuosPp1KiqejbOKIuhA1 +fzT4Y9Qi2XTU3/M2fi81zzgSp55eqaDj+srZxRRq3r3m8nWsqKGjZKCfXBM1 +D/2mbOMmntHxRG1EglIR1R/dch+8euh4+Zvnl+fUPBXObjpjxyWD+h8Mez1v +UPUnwpQI5pHBRDntlX5ZVH6S2eyLa2Tw9pepucPXqe+Jzfz4QkQG5ZLMtnhl +Uu/reVjDSEUGdyY1MbZcJmFOef1nVXsZxLw2lu4FEqazxGI0HWWofIuHrz9P +wuQ6eTmGqwxWycboDyZQ9fyb4WviI4M2+hz34qj9pa/GfdrxuAz2zIddzaP2 +nxcWD9bGF8igYzHpuTOc6n8/F+ibkkER8d3ZQQdJyPjk3fd9XgbvpXVb/3Qj +4ZL10biRJWp9iQsKB1xJSNKMfzm7UhZJVVVLUycSYv+wHdZJyeLZr6tzRu2p ++CQuDzIwlUUrbtXiyh0kGJSU5ly+LIvtK3YdNFAh4QNRkr3tmiz6n1gzf1yJ +yvflohuT2bK4Tm4LPFSk9r+Ywuu2RdTzZlM6teSp/OzNubK2VhZ5binu55Ei +YePyS8lnvsriJV/hF0brqHi7RkaHqsjh45YfT1aMs2GC39xtT70c2intlZEq +YUP3YZk3vs/l8NZBY9rN22yoa5yHk6/k8Idxe7l8IRuSI0qkb3fKoTef8wvZ +XDao963unfsph+Wr7Hq4MtgQwG51zhKQxxX+U2/sYtnw09p+/4CHPO7Olj2x +zYENA+fd9gRzK+BYeXjuw3kWmI2FmQ1qb8BgXq6+LAYLht15jt47qYhR4Jq2 +J7uM+r8Q4TxbvxG1TE1NispKgb9FIYk1poS5yg/oL5uKQSK+3EZbWwVn1yh7 +BJbehivKjPUCXqpo/MjoziFWIbwQM9ryO2UTnjWvGKutzwc9ifpktU41lKLF +1yY+yIO1XHkhB2LVkcW8IPjsSw5IxUgb7FPYjCE/1MRfT2XBSnmnCtvnm1Ex +/tXM3mOZsIkpWh7mrIElRqFL73wyIPgzf4M5hyZqFmQYvnG+BGO/z9ubXdFE +xlZh7eynKbBdrTHTTFULBS6PuMH3JHj0W//PzGstTJZqvmN2MAECVDR63npu +wYRs/8W0nDPAHPVo37dSG3te7nD9zn0KtsnRdq7J08YusBwLEokGxeiEf+t1 +dJD3ggeelI8EJU/GY/keHfzwZybQxT8UPB95n753RBej2z46ZN8KhlH/n2Hb +QnSxjju+7fSVYPhX8rBfZ6gustUYF0LOBUNCVKDtbKQuXuVKKgz2CwaWXihh +cEYX2+ssB4bUgmGh4lRtQ6YuDjg3K1ZVH4HU8huT7xp00UY7uO9ZVxA8zmn3 +mBBiYJH3S/9ppwD4Ykl3DaUxsGrXtTAekwDgmPPf90eMge7vO3qVlQNg6y5u +q+UEA6WapG8VzvlD4z96OqJKDKy/dY7fL8MfXh3MXmlkyMA5T5/ADZ2HoUfO +tyz5EAMVJj4Yq7n5weTtpRm1Bww8JGWakpDvDd/2mOacq2KgYrWWoGCKN3Qv +u7Cjv4aBZgFHm4qPe0ONm9jVy3UMPJ8hU7S0xxtiaVv0FpsZuC4m8pwprzes +j/eNevGRgX4B/z3cetQLVLw6ODw59dDbV0P0mdUhcJcvWZm5Uw9/9WUohSt5 +QMQzF18FGz10kIhtrKR5QLIn/0vSVg9/R14fXs7tAbUF4edfOujh88HkiqZ+ +dxBU2LFu8YAeVi8/5DSW5Q6NCoOCbqF6yMh9/qZK0B2UFKUJhWw9XC18YIl3 +9UGYUErTJsf1cHIhz3FQ2g26X+E2gd96eHTm+Uvkd4O6gNHdIVN6+Hb9BvvC +ZW6QRJod0Z7XQ/erN9Wl21xBSY+jtJpLHyO3EgH3vFzhoJk/vUFYH8dM9Tek +X3KBdq/tq9sN9HH0hp/bxwUnqMz/83UqXh+nWbeHZ5Y5grZxyIx5oj72vg7+ +1Tq6D+5/HV6dc0EfhWbUr1Z27wNS6rOOeao+Zq23yKkp3QelV+ou3Limj+ir +e+ys/T7IOR/H2F6mj3suh5qrFu+FcyHrUq606aOTkfEaP1cHcDSRRX0pA5zO +P1UeP2MHi+08axsIA+QZuCp0p98OcjxHP5jLGmAAB1O1r9UOvp2pCnNUNEDn +IJGtJ27bQXCzdXm4BnW/73BVlKMdJFhFSVWaGuDoT+178U92Q/XejgWtQAPc +0laQdf6aLYj7n63aVGeAxafOr+iMsoGkpUNbEusNcE7BebDX3wY4U03Z358a +YLy577cpFxv4WbG8KKfZAL3/q1M1NbKBao7TV/jbqPU3cg2FrrABx0vRYdOD +Bsh5xve6rII1XKkJ3/JoFRPTbQIeDvnsBCHew+ydDky0snk866FpDvnGxyPG +9zGxeINIsw7NHDSOJxmnOTHRZGj7hOyiGViNszq6DzBx9NLXme3PzeBM59Sc ++2EmVplH3Kp1MoPZvJNbI2KY+JCzd/n28zugRz+trbCEiY3kzb/2i6bgfSz/ +ulkZE7++/bBbddAUpsvuew6zmNjji0niLabAL9M9s7mCicTIMS+DLFOw4JGU +eFjHxFrbxJwLhqZQ217o0dbBxES+LwvOcdvAfG2lamg3ExPil01kBmyD7u3N +07QPTJxt9bs54rANJqv/i3f5wkRnj+H5NqVtoJqrfufHTyZOTrJP5L01gdoe +o9DzI0xsq0wPSKwxAXPB3aA2zkS/Vw0XzhWYwKGzx96GTDFRd7W7wLNwE5is +O5MpMsvEjJKbezg9TCB2PsO9ep6J7WEtsXZWJrBeq0jFeZGJ9iGeZ2p0TeCG +f/XU0hITabsXrHVkTeB/HemkuA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07328135489279136}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07328135489279136}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf0fAHAPFWna1z7XSkaEcHF9PiJlhERKViErI4nHqFBKlIyklIxQ +Rtx7KlmVKFFJZaahjFKPWXbkd35/ndf7dcb3nM/6vg79YKCtJycHB8emfzg4 +/n+c/tz8VC4x3zDccrnIns3Ghu03aOFG3bGw3XxLLO81OqBQ60Fadyokvfhn +4WvmZgi1Ke7i6s6DVXduGjRmGgHfqEjqXBcJhV4bDmdm7oLeWqvAya56uFEU +1LA68wCYyv38NNH1DuLkB4W+ZxyBuS6d9PGuPoho6XLZfzEGGoxv5b/N+w2/ +LKRuT8ilgkRv1beDKovwviIlcFVmJggedi3mNuZCLaWrweOQC6mbTWus7HnQ +Ql494S4UwPsr6nUT69fg4rWALLmi25CYf7KVU5QPE0SczA5MlYC5lg+/kCwf +Zq4L3n3kn1LgeWprv0GVD5ciBnZErCmF0/3yHyyM+PDk/J/hUPlSiJJ59e2S +Dx++Dfb5KGZfCgE5tL8K1Xx4+FPhsVV3S2HXdbaKxX5+1OhUF4vxuQMil/rP +pWUJoPBvCXu7ujKgKd8/PVsogK/mslt6m8tArP7MSWeWAMbrv7nv0VYGUuMb +j21oEMC5e8feOH4rA3nLILeaIQFMFuVaO7uqHDSXLWr3awoi96x2yZR9OViH +CA9ovBBEev2W8amBcrBZNfQ5o00Qm+079e+MlINtXtX7hY+COJUY3uE8XQ57 +3ji1No4J4uapy2EdXCxwVrlZ7SgkhBbGLbvmBVngN6CWEusmhJyKUJSnzYKz +dmaG76aFMDp7SNEvjAVi916Lcf4jjAXZd+vKI1lQJmA3s3mVMI5HBzqOn2RB +5zsXVoq0MJ64o5zqGc8CuV0hMrt2CONDhjIPcZUF9TuzV7y5Kozhl5Uet1ex +YNF06nWLgQiq06I19WdZkFwYUbJoKoJbx04cWvpD3b+CI151lwh2BXKmPl5i +geUzXqMLniLYf7HtrSY3GzKNibuWSSJ4+1fm2H9CbNBFi4yXvSIoEPE0OlOD +DUcZua7NsTSc+eijOe7NBvOctZMW52noYru2548fG2S4o+Jfp9NwvfHiPFcg +G96072G33aah4NrakpXH2LApaDXX59c0tEvnaf4ZzYahwrDCX2Ki6Ga3bI7r +ChucBK1GxO+KItc99eupDWzQjKyJuVErik+di/JUG9nA26coTG8UxSD1Yvln +TWyoKucChfeieMSjO/dHCxuELaqS1ZdEkXVNI4ynm1o/Rk5rm4UY1iv8qMn6 +jw0mY/MRAf1iyBm9iaa4noTwHZeUngyLIeG6U2kHPwlluao9AtNimBIR0ech +SALNzo1RxSOOfzXXm16ikTBc+WyGa5M4Ttt0fX1BkJAWmxxy9V9xfMKKK81Q +J6Hpw0a54RhxHHuYbBSrQcKCVkObYaI4frrlFuOjRcKh71MaA1niOGCRzblJ +lwQ9y/0TmxrEsXEzh9BFIKFPSCHg6RoJ7Dd69py9kwSRwMeSIiISaHnqnIaX +NQmWTXtbfAgJHHB9ulN0FwkVEYkq6zQlMJtQyThqR0JC7/jPfXslMO/ux2iO +/SRoFNV4jeVJYNHzW6uivEiIMdh1QExXEncvO7pu8TgJO1xu/NLZKole4jkh +nidJWBv93yl7S0lMDvy47EU0Cdcb4gqT3SRxUzSt6OwpEirNq/9bcU4SWfoL +/B3xJIzvlQ39/V4So/jCuKpSSXgQEcTNNyCJFZoPfAbSSDhx/eGVTaOSuCtq +ZPnqdBJWf3Go8eGUwnkmvd86g4QNXuc5vihJodsppW3F10hwOTaV8CpSCqus +PlsX3yRBPmOrxM84KUw52RJwNf//8b94hztZCteLv209XUBCxMLGN1vzpbC2 +2HS/zS0S0k+5CFW9ksI/RqfLqotJcCooKezspJ6fe2sysYQEmeezOpNfpJAc +dD21r5QEFm+ao9qUFF5yGDz+4w4Jr1KeZxdISqNbXu/fjywqv3cFNzdskEbx +LmZuMpsEx44D9V82S+Mv0T+pSJIwRFsYEDeVxhsBa7zT75LAlaOulBogjecq +lSb4K0h48eR4Tfm/0vi5k39DEeXk/heWLbHSmOlz+K7+AxKkNngG8mRIIyB/ +m30lVQ9lV++deCyNo5ert7tUk2DS9XpxtEkaW4tbrFopW3Es2+76jrq+YFyZ +WUOCu23AexiURt63wX7rakkIiLwpwxqVRgdrx9ajlP/N7/YjZqnzOw+u7qBs +Gkk/Gb2cwJzdI4JJD0l4ua72pi4vgRwbl74OUrbJ39M0vpbAfCHrRL1HJOxv +SeQ7QCNQrqj1WA/lLwcUtEUlCaxOSK+Uf0zV83Sd41s6gVyzDT3+lIOkp28a +KRP4oOxC3STlqbvJTXNqBD67+DROs47K1w7lEbYWgZVK11QDKXN8esbnyyCQ +1+Rr5S3KcUfctGUMCRTz8VL8RJl3xR/Hnq0Epo/9jVr3hIpfZvrJ1O0E/poM +f2BIObPhRRPnLgIfdRz6mkZZeq/nSLU9gZyvo99VUc4fXuI76ki97/HXpR8p +K8Vkaiu7Ejj2Rf7IAuVyoS37+90JVKh0JkTrSdAqbj15zZvAJ2d31mhQrjb0 +zd/tT2BURstWM8rQtqx5VTCBXyYqHjhRfuqVPdIQSuBN934xf8pmCwz+qEgC +1SNV/SMov05u19aKJnBZfFD5acp28oH7h09T8cyM70uk/L5qZXT+OQIzYmy5 +kym7WOXnOyUR+LSlRCqF8kCfYbNgGoETr4I3XqTsE/Z+5FUGgUWJZxQTKI+u +CuGPu07g5vZGiVjKR3PW6jBzCfytKsgdRnlWq2j/VAGBQx+th7wpn2g2jr5T +TKDI1/1PHChzuXzO9yyn4jkllmZMOf7Xv82S9wh8kxLkokJ57VmB0Y5KAm0G +UY6fcpp4GX/SQ+p8T9DgJBU/GmuHjmk9gd1C3/LaKWeZ9O//20hg3K8zzmzK +Mu+PR1e8JHDhtJ5wIuXb/rSCgDcEtlwZajlAWZXzbrNCB4E+rPC4LZTJyztH +P78n8OKyLuYKyrrKQ/wZnwksP/Vzpo2qh612kk7cQwQ2busNOUT5+dCD6MfD +VP2OZDCUKVsety0ImyAw+8x9rhGq/hwKz45+nyfwxurOEi/Kh2cnopvW0DE8 +740ng6pnvSOHhL/x05FtrrWnl6p/np89JVw0OnYuP9oaQ7ngQ0OnoQwdW1r3 +Hqil+ufzo3SV+9p0PJv7QY6H6r9SHd76d/p0DNHZcCKV6s8I1gmHcaTjNx1B +X1HKwnlescoWdKwRff5XoooE6zhGd64rtV7wUcM/1DyQ+nvH/7EHHR+suGXt +S3k4VIbrkw8ddcmoxY77VD68V22ihdBRLV1a6+Y9EuosPp1KiqejbOKIuhA1 +fzT4Y9Qi2XTU3/M2fi81zzgSp55eqaDj+srZxRRq3r3m8nWsqKGjZKCfXBM1 +D/2mbOMmntHxRG1EglIR1R/dch+8euh4+Zvnl+fUPBXObjpjxyWD+h8Mez1v +UPUnwpQI5pHBRDntlX5ZVH6S2eyLa2Tw9pepucPXqe+Jzfz4QkQG5ZLMtnhl +Uu/reVjDSEUGdyY1MbZcJmFOef1nVXsZxLw2lu4FEqazxGI0HWWofIuHrz9P +wuQ6eTmGqwxWycboDyZQ9fyb4WviI4M2+hz34qj9pa/GfdrxuAz2zIddzaP2 +nxcWD9bGF8igYzHpuTOc6n8/F+ibkkER8d3ZQQdJyPjk3fd9XgbvpXVb/3Qj +4ZL10biRJWp9iQsKB1xJSNKMfzm7UhZJVVVLUycSYv+wHdZJyeLZr6tzRu2p ++CQuDzIwlUUrbtXiyh0kGJSU5ly+LIvtK3YdNFAh4QNRkr3tmiz6n1gzf1yJ +yvflohuT2bK4Tm4LPFSk9r+Ywuu2RdTzZlM6teSp/OzNubK2VhZ5binu55Ei +YePyS8lnvsriJV/hF0brqHi7RkaHqsjh45YfT1aMs2GC39xtT70c2intlZEq +YUP3YZk3vs/l8NZBY9rN22yoa5yHk6/k8Idxe7l8IRuSI0qkb3fKoTef8wvZ +XDao963unfsph+Wr7Hq4MtgQwG51zhKQxxX+U2/sYtnw09p+/4CHPO7Olj2x +zYENA+fd9gRzK+BYeXjuw3kWmI2FmQ1qb8BgXq6+LAYLht15jt47qYhR4Jq2 +J7uM+r8Q4TxbvxG1TE1NispKgb9FIYk1poS5yg/oL5uKQSK+3EZbWwVn1yh7 +BJbehivKjPUCXqpo/MjoziFWIbwQM9ryO2UTnjWvGKutzwc9ifpktU41lKLF +1yY+yIO1XHkhB2LVkcW8IPjsSw5IxUgb7FPYjCE/1MRfT2XBSnmnCtvnm1Ex +/tXM3mOZsIkpWh7mrIElRqFL73wyIPgzf4M5hyZqFmQYvnG+BGO/z9ubXdFE +xlZh7eynKbBdrTHTTFULBS6PuMH3JHj0W//PzGstTJZqvmN2MAECVDR63npu +wYRs/8W0nDPAHPVo37dSG3te7nD9zn0KtsnRdq7J08YusBwLEokGxeiEf+t1 +dJD3ggeelI8EJU/GY/keHfzwZybQxT8UPB95n753RBej2z46ZN8KhlH/n2Hb +QnSxjju+7fSVYPhX8rBfZ6gustUYF0LOBUNCVKDtbKQuXuVKKgz2CwaWXihh +cEYX2+ssB4bUgmGh4lRtQ6YuDjg3K1ZVH4HU8huT7xp00UY7uO9ZVxA8zmn3 +mBBiYJH3S/9ppwD4Ykl3DaUxsGrXtTAekwDgmPPf90eMge7vO3qVlQNg6y5u +q+UEA6WapG8VzvlD4z96OqJKDKy/dY7fL8MfXh3MXmlkyMA5T5/ADZ2HoUfO +tyz5EAMVJj4Yq7n5weTtpRm1Bww8JGWakpDvDd/2mOacq2KgYrWWoGCKN3Qv +u7Cjv4aBZgFHm4qPe0ONm9jVy3UMPJ8hU7S0xxtiaVv0FpsZuC4m8pwprzes +j/eNevGRgX4B/z3cetQLVLw6ODw59dDbV0P0mdUhcJcvWZm5Uw9/9WUohSt5 +QMQzF18FGz10kIhtrKR5QLIn/0vSVg9/R14fXs7tAbUF4edfOujh88HkiqZ+ +dxBU2LFu8YAeVi8/5DSW5Q6NCoOCbqF6yMh9/qZK0B2UFKUJhWw9XC18YIl3 +9UGYUErTJsf1cHIhz3FQ2g26X+E2gd96eHTm+Uvkd4O6gNHdIVN6+Hb9BvvC +ZW6QRJod0Z7XQ/erN9Wl21xBSY+jtJpLHyO3EgH3vFzhoJk/vUFYH8dM9Tek +X3KBdq/tq9sN9HH0hp/bxwUnqMz/83UqXh+nWbeHZ5Y5grZxyIx5oj72vg7+ +1Tq6D+5/HV6dc0EfhWbUr1Z27wNS6rOOeao+Zq23yKkp3QelV+ou3Limj+ir +e+ys/T7IOR/H2F6mj3suh5qrFu+FcyHrUq606aOTkfEaP1cHcDSRRX0pA5zO +P1UeP2MHi+08axsIA+QZuCp0p98OcjxHP5jLGmAAB1O1r9UOvp2pCnNUNEDn +IJGtJ27bQXCzdXm4BnW/73BVlKMdJFhFSVWaGuDoT+178U92Q/XejgWtQAPc +0laQdf6aLYj7n63aVGeAxafOr+iMsoGkpUNbEusNcE7BebDX3wY4U03Z358a +YLy577cpFxv4WbG8KKfZAL3/q1M1NbKBao7TV/jbqPU3cg2FrrABx0vRYdOD +Bsh5xve6rII1XKkJ3/JoFRPTbQIeDvnsBCHew+ydDky0snk866FpDvnGxyPG +9zGxeINIsw7NHDSOJxmnOTHRZGj7hOyiGViNszq6DzBx9NLXme3PzeBM59Sc ++2EmVplH3Kp1MoPZvJNbI2KY+JCzd/n28zugRz+trbCEiY3kzb/2i6bgfSz/ +ulkZE7++/bBbddAUpsvuew6zmNjji0niLabAL9M9s7mCicTIMS+DLFOw4JGU +eFjHxFrbxJwLhqZQ217o0dbBxES+LwvOcdvAfG2lamg3ExPil01kBmyD7u3N +07QPTJxt9bs54rANJqv/i3f5wkRnj+H5NqVtoJqrfufHTyZOTrJP5L01gdoe +o9DzI0xsq0wPSKwxAXPB3aA2zkS/Vw0XzhWYwKGzx96GTDFRd7W7wLNwE5is +O5MpMsvEjJKbezg9TCB2PsO9ep6J7WEtsXZWJrBeq0jFeZGJ9iGeZ2p0TeCG +f/XU0hITabsXrHVkTeB/HemkuA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07328135489279136}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07328135489279136}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994253263878336*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"8530d9dd-e113-4725-971e-13b2f6f212e7"] +}, Open ]], Cell[CellGroupData[{ @@ -10614,66 +11797,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[282]:=",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], + "In[121]:=",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.443621462424051`*^-173\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 282, 273, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337269930374*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.496459222797711`*^-156\\\", \ +RowBox[{\\\"164243120455479739170682508554789627978\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"75\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4724542670438400000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 45, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337269930374*^9, 3.994253263936131*^9}, CellLabel-> "During evaluation of \ -In[282]:=",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], +In[121]:=",ExpressionUUID->"feb98b54-e3ea-4be1-bf97-2fae72b62924"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.352709009016139`*^-176\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 282, 274, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372699413757`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4235162586799977`*^-158\\\", \ +RowBox[{\\\"552513857212233842570175958778312308519\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"78\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3361543354777600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 46, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337269930374*^9, 3.994253263946095*^9}, CellLabel-> "During evaluation of \ -In[282]:=",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], +In[121]:=",ExpressionUUID->"ac9f4ffc-6139-4268-9558-945a3f2b3458"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.488155146821548`*^-180\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 282, 275, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337269949375*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.703140880915827`*^-161\\\", \ +RowBox[{\\\"192330073695578600598678251250730514595\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"82\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1532417980825600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 47, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337269930374*^9, 3.994253263956794*^9}, CellLabel-> "During evaluation of \ -In[282]:=",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], +In[121]:=",ExpressionUUID->"5739b397-38d9-43b9-9f70-d53efc198546"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 282, 276, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372699573765`*^9}, +during this calculation.\"", 2, 121, 48, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337269930374*^9, 3.994253263968302*^9}, CellLabel-> "During evaluation of \ -In[282]:=",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], +In[121]:=",ExpressionUUID->"44e3c4e7-2731-494e-82fa-22f41d382034"], -Cell[BoxData["9.332200719005147`"], "Output", - CellChangeTimes->{3.9913372766841774`*^9}, +Cell[BoxData["10.175729543430592`"], "Output", + CellChangeTimes->{3.9913372766841774`*^9, 3.994253354583188*^9}, CellLabel-> - "Out[282]=",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] + "Out[121]=",ExpressionUUID->"1d9ee3c6-1fbc-44d8-8261-2f83239fe7f5"] }, Open ]], Cell[CellGroupData[{ @@ -10740,68 +11930,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918494640512295`*^9, - 3.991849468375696*^9}},ExpressionUUID->"53e25fab-b431-cc42-a467-\ -e4dea0353ed0"], + CellChangeTimes->{{3.9918494640512295`*^9, 3.991849468375696*^9}}, + CellLabel-> + "In[122]:=",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 283, - 277, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372767181473`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.731555954742539`*^-205\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 49, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372767181473`*^9, 3.994253354641409*^9}, CellLabel-> "During evaluation of \ -In[283]:=",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], +In[122]:=",ExpressionUUID->"6aba2b8d-3b2e-4042-91bb-9a9b28534f75"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 283, - 278, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372767281475`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.7756766278691338`*^-209\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 50, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372767181473`*^9, 3.994253354650968*^9}, CellLabel-> "During evaluation of \ -In[283]:=",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], +In[122]:=",ExpressionUUID->"f5b9a8f3-6ef4-473c-8903-9d439868e584"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 283, - 279, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372767351475`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.0781280058209105`*^-214\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 51, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372767181473`*^9, 3.99425335465958*^9}, CellLabel-> "During evaluation of \ -In[283]:=",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], +In[122]:=",ExpressionUUID->"0fe61346-7349-4f1f-ac39-1b01613c838d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 283, 280, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337276743145*^9}, +during this calculation.\"", 2, 122, 52, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372767181473`*^9, 3.994253354669895*^9}, CellLabel-> "During evaluation of \ -In[283]:=",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], +In[122]:=",ExpressionUUID->"ae239768-c9f9-483a-a00a-1255d37db5aa"], -Cell[BoxData["0.5406905105605413`"], "Output", - CellChangeTimes->{3.991337284091696*^9}, +Cell[BoxData["0.6612940410696632`"], "Output", + CellChangeTimes->{3.991337284091696*^9, 3.994253366439458*^9}, CellLabel-> - "Out[283]=",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] + "Out[122]=",ExpressionUUID->"16b32fca-f3e0-4726-b583-0170978eaaa1"] }, Open ]], Cell[CellGroupData[{ @@ -10822,8 +12019,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -10868,68 +12064,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918494737320137`*^9, - 3.9918494774550457`*^9}},ExpressionUUID->"b18c819e-620a-d449-97d6-\ -547e3a6fa152"], + CellChangeTimes->{{3.9918494737320137`*^9, 3.9918494774550457`*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 284, - 281, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337284131695*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.731555954742539`*^-205\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 123, + 53, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337284131695*^9, 3.994253366493844*^9}, CellLabel-> "During evaluation of \ -In[284]:=",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], +In[123]:=",ExpressionUUID->"414c8557-771a-43b2-a4c9-d27346f354e9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 284, - 282, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337284142767*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.7756766278691338`*^-209\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 123, + 54, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337284131695*^9, 3.9942533665064297`*^9}, CellLabel-> "During evaluation of \ -In[284]:=",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], +In[123]:=",ExpressionUUID->"76d7475b-186c-4037-9f9c-04dcb58bc418"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 284, - 283, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337284150778*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.0781280058209105`*^-214\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 123, + 55, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337284131695*^9, 3.994253366517049*^9}, CellLabel-> "During evaluation of \ -In[284]:=",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], +In[123]:=",ExpressionUUID->"2c8d0616-69fa-4f01-98c5-92c03a93d15b"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 284, 284, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372841597614`*^9}, +during this calculation.\"", 2, 123, 56, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337284131695*^9, 3.994253366525673*^9}, CellLabel-> "During evaluation of \ -In[284]:=",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], +In[123]:=",ExpressionUUID->"32da27e7-6df5-4031-b2ee-d8141b4f692b"], -Cell[BoxData["2.9943030245183917`"], "Output", - CellChangeTimes->{3.9913372907074146`*^9}, +Cell[BoxData["29.402343405390816`"], "Output", + CellChangeTimes->{3.9913372907074146`*^9, 3.994253377438746*^9}, CellLabel-> - "Out[284]=",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] + "Out[123]=",ExpressionUUID->"09e2e148-f214-4f34-b83d-2b918921c9f8"] }, Open ]], Cell[CellGroupData[{ @@ -10950,8 +12153,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -10996,68 +12198,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849482271084*^9, - 3.9918494852683945`*^9}},ExpressionUUID->"22ab74c7-5916-9440-9d7d-\ -c3e0f6ab8836"], + CellChangeTimes->{{3.991849482271084*^9, 3.9918494852683945`*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 285, - 285, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337290744484*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.731555954742539`*^-205\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 124, + 57, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337290744484*^9, 3.9942533774959784`*^9}, CellLabel-> "During evaluation of \ -In[285]:=",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], +In[124]:=",ExpressionUUID->"1bf0647f-0ef4-4422-ab30-6a1ae3f9dbf0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 285, - 286, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337290753483*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.7756766278691338`*^-209\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 124, + 58, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337290744484*^9, 3.994253377507716*^9}, CellLabel-> "During evaluation of \ -In[285]:=",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], +In[124]:=",ExpressionUUID->"098f0ee9-168a-4719-aa13-88e4451d47ec"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 285, - 287, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372907615204`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.0781280058209105`*^-214\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 124, + 59, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337290744484*^9, 3.9942533775176697`*^9}, CellLabel-> "During evaluation of \ -In[285]:=",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], +In[124]:=",ExpressionUUID->"f16ade50-b5d1-4b01-877c-feb2e13327b3"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 285, 288, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133729076952*^9}, +during this calculation.\"", 2, 124, 60, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337290744484*^9, 3.994253377529162*^9}, CellLabel-> "During evaluation of \ -In[285]:=",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], +In[124]:=",ExpressionUUID->"cd0ad842-ba55-4148-82be-5efc74ebe604"], -Cell[BoxData["16.72305770548981`"], "Output", - CellChangeTimes->{3.991337294569908*^9}, +Cell[BoxData["4.725403615630287`"], "Output", + CellChangeTimes->{3.991337294569908*^9, 3.9942533866691008`*^9}, CellLabel-> - "Out[285]=",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] + "Out[124]=",ExpressionUUID->"2144f4cf-2b5d-4f64-ba2d-03e043c54ad1"] }, Open ]], Cell[CellGroupData[{ @@ -11066,22 +12275,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918494889040737`*^9, - 3.9918494971484394`*^9}},ExpressionUUID->"f9c66987-c237-7a40-a006-\ -e20e260dbdcb"], - -Cell[BoxData["0.07640873836855284`"], "Output", - CellChangeTimes->{3.9913372946009064`*^9}, + CellChangeTimes->{{3.9918494889040737`*^9, 3.9918494971484394`*^9}}, CellLabel-> - "Out[286]=",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] + "In[125]:=",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], + +Cell[BoxData["0.0561027541547852`"], "Output", + CellChangeTimes->{3.9913372946009064`*^9, 3.994253386717846*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"667e77ea-3549-47ba-b204-aca9827678b7"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918495000311985`*^9, 3.9918495029810333`*^9}, - 3.9919248636163254`*^9},ExpressionUUID->"770a9ed7-7938-9e48-be64-\ -c31719ef3a6b"], + 3.9919248636163254`*^9}, + CellLabel-> + "In[126]:=",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], Cell[CellGroupData[{ @@ -11104,12 +12314,12 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[288]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], + "In[127]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], -Cell[BoxData["7.13574266196526`"], "Output", - CellChangeTimes->{3.991337294629921*^9}, +Cell[BoxData["6.08923637101711`"], "Output", + CellChangeTimes->{3.991337294629921*^9, 3.994253386742804*^9}, CellLabel-> - "Out[288]=",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] + "Out[127]=",ExpressionUUID->"83082145-b80d-4932-942f-6986cefeead2"] }, Open ]], Cell[CellGroupData[{ @@ -11119,12 +12329,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[290]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], + "In[128]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], -Cell[BoxData["1.4042291233212119`"], "Output", - CellChangeTimes->{3.9913372946629753`*^9}, +Cell[BoxData["4.252815751457625`"], "Output", + CellChangeTimes->{3.9913372946629753`*^9, 3.994253386760107*^9}, CellLabel-> - "Out[290]=",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] + "Out[128]=",ExpressionUUID->"62e6c30e-f682-4042-8ad3-58a4095d9af0"] }, Open ]], Cell[CellGroupData[{ @@ -11134,12 +12344,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[293]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], + "In[129]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], -Cell[BoxData["10.020217662457247`"], "Output", - CellChangeTimes->{3.9913372947367725`*^9}, +Cell[BoxData["25.896400353010232`"], "Output", + CellChangeTimes->{3.9913372947367725`*^9, 3.994253386773982*^9}, CellLabel-> - "Out[293]=",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] + "Out[129]=",ExpressionUUID->"b45bb195-3add-4c0a-9b18-d8002f699373"] }, Open ]], Cell[CellGroupData[{ @@ -11329,12 +12539,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[294]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], + "In[130]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], -Cell[BoxData["0.06674599726273667`"], "Output", - CellChangeTimes->{3.9913372947513313`*^9}, +Cell[BoxData["0.007070807584510177`"], "Output", + CellChangeTimes->{3.9913372947513313`*^9, 3.9942533867934923`*^9}, CellLabel-> - "Out[294]=",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] + "Out[130]=",ExpressionUUID->"6848e3c7-327f-4622-8d06-c42a2fe9c279"] }, Open ]], Cell[CellGroupData[{ @@ -11348,12 +12558,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[295]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], + "In[131]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], -Cell[BoxData["3.430301770911147`"], "Output", - CellChangeTimes->{3.9913372948636913`*^9}, +Cell[BoxData["10.539267585849373`"], "Output", + CellChangeTimes->{3.9913372948636913`*^9, 3.9942533869813747`*^9}, CellLabel-> - "Out[295]=",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] + "Out[131]=",ExpressionUUID->"ad56415b-86b5-4a4d-8112-00d51fb4c431"] }, Open ]], Cell[CellGroupData[{ @@ -11545,12 +12755,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[296]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], + "In[132]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], -Cell[BoxData["0.01266539131451536`"], "Output", - CellChangeTimes->{3.991337294877693*^9}, +Cell[BoxData["0.03782556656250388`"], "Output", + CellChangeTimes->{3.991337294877693*^9, 3.994253387002255*^9}, CellLabel-> - "Out[296]=",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] + "Out[132]=",ExpressionUUID->"9e30726b-e7ee-4284-b80a-fa7213c99d86"] }, Open ]], Cell[CellGroupData[{ @@ -11564,12 +12774,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[297]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], + "In[133]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], -Cell[BoxData["7.874729317258519`"], "Output", - CellChangeTimes->{3.991337294976324*^9}, +Cell[BoxData["4.556718707501702`"], "Output", + CellChangeTimes->{3.991337294976324*^9, 3.994253387180296*^9}, CellLabel-> - "Out[297]=",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] + "Out[133]=",ExpressionUUID->"4b673b4a-3f7a-44f1-a202-dd43e9ab2e33"] }, Open ]], Cell[CellGroupData[{ @@ -11662,12 +12872,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[298]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], + "In[134]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], -Cell[BoxData["0.7884625602161153`"], "Output", - CellChangeTimes->{3.9913372950022793`*^9}, +Cell[BoxData["0.06403372334152496`"], "Output", + CellChangeTimes->{3.9913372950022793`*^9, 3.994253387197711*^9}, CellLabel-> - "Out[298]=",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] + "Out[134]=",ExpressionUUID->"a5ad3445-7eb0-4eab-a230-5f90c5da2713"] }, Open ]], Cell[CellGroupData[{ @@ -11757,12 +12967,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[299]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], + "In[135]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], -Cell[BoxData["0.21153743978388478`"], "Output", - CellChangeTimes->{3.991337295013279*^9}, +Cell[BoxData["0.9359662766584752`"], "Output", + CellChangeTimes->{3.991337295013279*^9, 3.9942533872153387`*^9}, CellLabel-> - "Out[299]=",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] + "Out[135]=",ExpressionUUID->"a7c2eeae-74de-49c4-b14b-db19006a1b28"] }, Open ]], Cell[CellGroupData[{ @@ -11885,12 +13095,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[300]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], + "In[136]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], -Cell[BoxData["0.16678935135356415`"], "Output", - CellChangeTimes->{3.991337295041279*^9}, +Cell[BoxData["0.059933405616546`"], "Output", + CellChangeTimes->{3.991337295041279*^9, 3.994253387233609*^9}, CellLabel-> - "Out[300]=",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] + "Out[136]=",ExpressionUUID->"591c7159-dff5-4874-ba33-03b10ec3bc34"] }, Open ]], Cell[CellGroupData[{ @@ -11952,68 +13162,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849517192892*^9},ExpressionUUID->"55d51961-97f2-ed4d-8bf8-\ -8a461d652ab4"], + CellChangeTimes->{3.991849517192892*^9}, + CellLabel-> + "In[137]:=",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 301, 289, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372950662746`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.2173054345055827`*^-201\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 137, + 61, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372950662746`*^9, 3.994253387254847*^9}, CellLabel-> "During evaluation of \ -In[301]:=",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], +In[137]:=",ExpressionUUID->"998189cb-93f5-49b3-b593-17126889868a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 301, - 290, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337295076277*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.929854652394522`*^-206\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 137, + 62, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372950662746`*^9, 3.994253387263427*^9}, CellLabel-> "During evaluation of \ -In[301]:=",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], +In[137]:=",ExpressionUUID->"e2f5eaf3-9126-4f42-afd1-09b8f1b3bd39"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 301, - 291, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372950842743`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.478543170246017`*^-210\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 137, + 63, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372950662746`*^9, 3.994253387271449*^9}, CellLabel-> "During evaluation of \ -In[301]:=",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], +In[137]:=",ExpressionUUID->"6234f0c7-0816-4137-a93f-ebaf9536c20e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 301, 292, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372950922775`*^9}, +during this calculation.\"", 2, 137, 64, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372950662746`*^9, 3.994253387280451*^9}, CellLabel-> "During evaluation of \ -In[301]:=",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], +In[137]:=",ExpressionUUID->"d32c4ea2-44de-4836-8f53-abaf3561b6ec"], -Cell[BoxData["3.430301770911144`"], "Output", - CellChangeTimes->{3.991337298790371*^9}, +Cell[BoxData["10.539267585849364`"], "Output", + CellChangeTimes->{3.991337298790371*^9, 3.9942533951597233`*^9}, CellLabel-> - "Out[301]=",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] + "Out[137]=",ExpressionUUID->"6973f169-d6aa-4212-ba89-815b65a89e92"] }, Open ]], Cell[CellGroupData[{ @@ -12075,68 +13292,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849520751028*^9},ExpressionUUID->"9704b9d3-b449-2144-9970-\ -6a7de047241d"], + CellChangeTimes->{3.991849520751028*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 302, 293, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372988243732`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.2173054345055827`*^-201\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 65, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372988243732`*^9, 3.994253395214199*^9}, CellLabel-> "During evaluation of \ -In[302]:=",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], +In[138]:=",ExpressionUUID->"2569c7bf-67db-4781-9d0e-b80f18a0bb5e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 302, - 294, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372988343716`*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.929854652394522`*^-206\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 66, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372988243732`*^9, 3.994253395223708*^9}, CellLabel-> "During evaluation of \ -In[302]:=",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], +In[138]:=",ExpressionUUID->"92a69396-86fd-406e-befa-16f775eb7c39"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 302, - 295, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372988425922`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.478543170246017`*^-210\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 67, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372988243732`*^9, 3.994253395233029*^9}, CellLabel-> "During evaluation of \ -In[302]:=",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], +In[138]:=",ExpressionUUID->"05874797-15ca-46fc-8b2f-51c3363138bb"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 302, 296, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372988505898`*^9}, +during this calculation.\"", 2, 138, 68, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372988243732`*^9, 3.99425339524162*^9}, CellLabel-> "During evaluation of \ -In[302]:=",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], +In[138]:=",ExpressionUUID->"a6bae652-88e3-4b42-b665-db1c67ebf3a7"], -Cell[BoxData["7.87472931725852`"], "Output", - CellChangeTimes->{3.991337302457178*^9}, +Cell[BoxData["4.556718707501695`"], "Output", + CellChangeTimes->{3.991337302457178*^9, 3.99425340320265*^9}, CellLabel-> - "Out[302]=",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] + "Out[138]=",ExpressionUUID->"9c0bdcde-b1de-42cb-b8cb-b3ee572002b2"] }, Open ]], Cell[CellGroupData[{ @@ -12194,94 +13418,93 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849523511486*^9},ExpressionUUID->"0fd90636-7592-fc40-bf9d-\ -ae1cb915c656"], + CellChangeTimes->{3.991849523511486*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL -ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc -Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 -39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN -PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 -8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk -kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru -nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 -t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 -2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 -N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M -GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV -T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex -5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ -m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm -79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb -ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi -ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T -CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 -EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA -ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey -/ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K -ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk -x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN -DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf -Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 -Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN -+5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai -0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR -fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb -FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW -EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe -0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp -c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI -l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 -6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi -tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh -vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X -ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB -dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 -FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf -//8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq -T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d -f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 -KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif -OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU -01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq -COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o -8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC -6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D -cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz -HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 -eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb -w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq -rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV -bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD -uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS -VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z -NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V -9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD -AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj -HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ -Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B -v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm -+TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA -OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 -0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ -4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC -ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu -vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV -l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj -IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft -YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ -gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu -Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp -yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv -hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk8VFscAHBZSkIheyRbRkhjr17nl62yJZUs8RgzlyQVnqYYlGgTkkqL +lC1kX0rxRHoIoaRVwjXUWMqWO23e6Y/7uZ/vPff8zu/8zrKKcdCFJSggIDCI +nz/vwx0Gq+93dWxKfFrqE3WERJsmsk0Y1oUoV3rdlT/uzzBN1bSuRS8titdH +Yzszny0UN/oPEbY69jHYZezoRhHrdlRjndFyHPtMk0J9dMFzpGArUxGL/aDr +8M2f9B6U4XNSLB6b96418mjNG+RRMtVxGluJq+H5zaoXebh4CyRg23+JtAht +/4hOBTffTMKu+8lbwi4YQHX6BgUXsV8dl4+4F4y/16Wop2FPLLTmzdC5yHb3 +7KJ07IUJh9yN5obRAl1Xj0xsVan0lsM1n1DQsSrFPGwn5W+5E1ZjSC/90MdK +bOKWupy+6ARyEXrGrcGO1toet7/9C0oRp7k3Yr+Rf7kurGASGRID8d3YTI/A +fRcTplDJ4U2be7G/3hC4XR48jVIv3wjgYouq6y+bpM+i3jdevynsVGbjlmWy +31DHm4YgITaJ1O64R6+d+4bW3NfZKoltrhc/caCGQrZiC2y1sANMP7bzrH6i +2h88LzfsGfY/wmLav9DWujBjAjumZslGmuhvFN8jwg7DTgPzu/7t82jgGtim +YDNzWqxDChYANKyZf4Fd0HSx/7iyIIRsEdo0hP11xDvyQoIg5HWPfJ7FjtSd +rSgNFoIQ4/enlY7ifEtWaXyhi0BzzgkyAPtd11jd7ywRiG55e5aDrTZ130NS +diEkfLDOSMEuNHZK0Z9bCNLlHkvrsJ88OLYgqEYU7g7cElc6RqLZxu6Pn6zE +gWTERw5jSzuIL4uoE4cRA5qdcASJDF9ag4SFBDS/lUlTxw4cqrq1zkAStm9u +rvTBPiTYbviX+DJ4J9wzOYjNVS+ejPsmBfEyCpHzkbg+ROviTiNpGEsQ3a7F +IZHg3eFVCoeloa/NK9MeW81opUvBqDSENGxqvYrtYZVc3tEvA2qKsis3RpGo +0y8kVL5NFpw1f/elRZOo707iOR9ROahP/etBE/bYaEFWvo0cEEdFls9ii4WR +3Rvq5cCLbW6/M4ZE1id3GftUycNU1eF62eMkephtOpuXoQjBhcdayk+QKJv7 +PXx9mArsTLzEcIwn0dbdp/pCi1SA2+hrfAp77ImMbdGwCjSmnw9vwDbO1pNV +c1cFA4GlDmancD0Z3hUim1bCiXHhjTqnSTT1pf/Ip1g1cMhaR195lkQyB6wr +KxzVgb76rwTfRBINZ4sFOAeqQ3tW6sF87OreLuXxeHV4euVu4yT2XgevWO16 +dSgw1aqLTcL5rQl3uUrXAMWcnJ+FyXh83p2vUfKaUJXbl7n8Iol2+S/RtxvQ +gu+v9hSZp5EIhe+m7/mlBT8fhfxOwNaNyzBjKmpDcqxn7QC2QJaRZdQObbh3 +Licq4SqJivo895Q3aMMhyziVkWv4fLoWHlfKXA1XqzubS9NxftaOr3gMGjgO +7uNdyiJR1s4r7+eiaOB6uad3DjuRMdAvfJ0GW9KTNnpk4/0d88+oajcN7o/O +W6nlkEiqNl1gp5Uu2MXbh5bl4v1jNKFbo7EGiOcH9nzKJ5GyelL0uSE94Ka0 +7c4rJVHt2RkaX1Af5Dlm4avKcD2m3V8Sq/TB5NEX+evYN59o0iy99aHNxftj +UjmJ1P0fvqBe64O261BUdCWebyFXi2gzgNdl+guPVJNIRVmVUHM3BHNOt19z +PYn0csLEfyA6xEfpDUy8IBGDGTur70QHG85D66hufF41Uvp89tLB7vMBJcmX +JBLKLCltYtOhJdZ7xdoefN5u8nallNFBVFspIvw1vk/TfNJpGkZwryEnX6kX +r+85BwO3hcaQquLJr+aS6HaIpnNVuwkU1ohxnb6TqCscmZ3MsQDeVnk9mv4Q +WuXd4+QV9Bek9Ug4nvQfQqz5e8UqRwHEIgYLMnOGkPxo9SJ5hiWkvdPJTp4c +QmFGG3tTdK2B7WEsVwpcxBj/2SLDs4E0adqQ7mUuKrIMXZTRuQUKd57IFfjJ +RdkzgQ2FqduANOe/aPIbRtRmhWdPou0h/FPK4LK+YfRBQGhywNcRZq+jxY4+ +Iyh4xcHk4xrbgXoxpyFLjqDifS31l+Kc4VB5TKJbxCd0bFpxbs2+HeDkJfEk +TOYzmrWzdW3+2wW+Nl/28W38jCw8L2zm7tgJzjF5MrERPPRCMT3widEuSKqo +ak9bN4qUcmNr83R2Q+nmhp4dgmOoul/XwUnCFVb4ejg+6xxDqi+/+oePu8Ij +yZFpxaxxZHTpQmFW/x6oaHjMWX1xAqULTxukNLoBZ5ydL8L5gu5tXvsu7oE7 +CPAzdnpZfkVpZmelfhZ4wNXFL0JyWr6izvc58UYJnqAUcKOxa9skqnK8oXko +Zi+49Uw53n47iSYP7BQIZnoBR9Wts5kxhWZtaQETVt5w8wb9iO3oFMobf0uF +mv4Ni1xExdtjppHb7Rw/L3Ef+EHxzpaIz6CKcvu/hU75wIM8uW2JWTPIQvkF +/wzfByQ0li6JNJhFGv3+757v84XFOnydjIpZNLRk//YbpC+4CjFqVdE31JXo +5LdlNwNiLHkmqOYbSmVnLPmniwHr1/sQRyzmUG3dPN9vmx+8cY3bbH93Di3d +C6eMHvrBnl8JIj/EKGThM5EXZ8yE09Ez7xtYFMq9+jXUyZQJy1a3M/kEhZZ3 +T22SN2fC3ZHYFYYBFJqwmXuZt4EJIW7B8tcDKXy/CCxot2TCPUG6kf9BCknO +SblL72DC9YuSja/ZFBo6b7I44wATrN9Z7FA4R6HEmsh91blMoHbNKIkWUegA +/YoFO48Jrcn7dYSLKeSQX7bYvIAJ94NO7p3HFrsynH+/iAnD10rMpkspFBfi +zLtXyYQn2XEVXZUUiqRp7q96zISuTSmJjFoKBV5pCyrvY0Jp/CXb/lYKbZMc +3hjSz4S9VNKD+jYK6cQJSNAHmdB9YbXDrXYKDYeYFJVxmRA15t65t4NCvk4Z +46VjTNh2c9HWtucUchMJDS75zoQh1cU9nDcU2hKqdKhQjgXLzZ/9MONS6HFG +vF2KAguifLWviw9TaGP7lCZbiQV97nzdfmxDrba3VqossDiuonzyE4UUX0dY +vddigVkXafpolEKj6z/IiZmwQLeQQxOcolCS4K1//XeyYEorJuTBLzz/teJp +jrtZMJaeUL7/N4VOerJDjPawIGJGo3fFPIXYlc6r5z1Y4NOlMxohwEe+xIIL +lxksOE1KT+sJ8ZFRK4P532EW2I5kRHuI8tHrC1pLNJJZAI9X2wxK8VExkgj4 +dIEFLVJJz/2l+ejk+MyToossOPYwhhjDpm97EmV+hQW7pKLyp2T4KFHAb8rx +Jgu0P9olT8vyke3BW2/ZhSzI1rX+r0mRj1RUTptuKmZBa5lZ20YlPpppPXhR +qJQFS2drX5dhZ2ojx8QKFrT1LxS+qsxHvz58qM96yAJL2QO5nip8VOmgnNfR +woKr+dP8MjU+OvddUCS1lQXWdpWeCqv4iJHH83VvZ0GMn/1jDvYy4YfKQ50s +ML17Od1GnY+CatyS+K9Y8GF08MxTDT7S0L0crsllwZliXc1MbT76/prT/XmY +BejKq2YKuyuOZVjyiQUeS3uDnVbzUdSAMc9iDOe/NL3pG/a7tG6v7dMsMHiX +e20DjY9SFknZHFtAAFNbu/HSGj6qnfrgGSZEQO/0uboh7JEPBSHBIgSkdZ7n +0PX4aGOl9S3GYgLGbgrZtmIP+7B/2EkRMPhW9TdPH+fvYCNtI0PA3YynMoYG +fLTBTJqGZAmo2+c6FoqdLFHoaqRIwI6geu7cn/aHH8uUVxFwozJ17utaPiJy +CltkNQg4vn+Jup4h/j/56MelWji+dKMkgT1MyEgI0wi4rVBo8OpPu8yWgDFD +Ai6jiPg76/jo4W+Z6GE6AaE/xBveYHM/91/qNyYg/M6ef0XpfLS+/ljjS3MC +tLa8/87EHgoqVv0XCJCYWXxa0oiPJN0iTO5bEmDwqKPDBNvCaqtDmTUB13I/ +vPLETlQcPJqzlYBVffm62djVwiXJGXYEvDV2Dm/CJr9E3LnqQMCKKunYEWzz +Jtme884ENF95/FHLGK932eDoKRcChHRvrLXCPn+jRPDELgJ8bALhb+zBkG2G +4W4ENHXVZ1/ElvCW23LIg4DCa+bUXWzzbaRX4F4CIm/Hijf+6b+Sc87bh4Cg +sPAj49jVYnaZbgwC1v+3rEPABMeblXvgwiTg8F4/rjS2xADZ6UAQ8PtowL8a +2ObtpcO2AQTQG5VcjbAZ9zm/IJAAnuU/JZuxz2faLd8QhPvvC33qhF19Xn6N +STDeD+JS2R5/4rOHNq89RECRvx1iYYszy9xoIQTEKa+4Hoxttj3qoEYYrr9B +7P3wP/HX28erhBOwT5yTysFO0FJIl2cT0Bq/iB6LfW8Zt0LqGAGXXqoln8Ie ++FHWuiSSgO0pzcVn/8QfiRoQiSJA8vH38wnYpi/sqfloAjhtD/TPY/8P9PPF +Rw== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -12295,106 +13518,104 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL -ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc -Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 -39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN -PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 -8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk -kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru -nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 -t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 -2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 -N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M -GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV -T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex -5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ -m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm -79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb -ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi -ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T -CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 -EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA -ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey -/ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K -ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk -x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN -DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf -Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 -Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN -+5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai -0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR -fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb -FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW -EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe -0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp -c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI -l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 -6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi -tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh -vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X -ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB -dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 -FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf -//8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq -T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d -f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 -KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif -OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU -01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq -COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o -8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC -6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D -cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz -HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 -eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb -w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq -rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV -bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD -uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS -VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z -NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V -9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD -AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj -HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ -Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B -v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm -+TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA -OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 -0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ -4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC -ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu -vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV -l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj -IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft -YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ -gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu -Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp -yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv -hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc +1:eJwV1Hk8VFscAHBZSkIheyRbRkhjr17nl62yJZUs8RgzlyQVnqYYlGgTkkqL +lC1kX0rxRHoIoaRVwjXUWMqWO23e6Y/7uZ/vPff8zu/8zrKKcdCFJSggIDCI +nz/vwx0Gq+93dWxKfFrqE3WERJsmsk0Y1oUoV3rdlT/uzzBN1bSuRS8titdH +Yzszny0UN/oPEbY69jHYZezoRhHrdlRjndFyHPtMk0J9dMFzpGArUxGL/aDr +8M2f9B6U4XNSLB6b96418mjNG+RRMtVxGluJq+H5zaoXebh4CyRg23+JtAht +/4hOBTffTMKu+8lbwi4YQHX6BgUXsV8dl4+4F4y/16Wop2FPLLTmzdC5yHb3 +7KJ07IUJh9yN5obRAl1Xj0xsVan0lsM1n1DQsSrFPGwn5W+5E1ZjSC/90MdK +bOKWupy+6ARyEXrGrcGO1toet7/9C0oRp7k3Yr+Rf7kurGASGRID8d3YTI/A +fRcTplDJ4U2be7G/3hC4XR48jVIv3wjgYouq6y+bpM+i3jdevynsVGbjlmWy +31DHm4YgITaJ1O64R6+d+4bW3NfZKoltrhc/caCGQrZiC2y1sANMP7bzrH6i +2h88LzfsGfY/wmLav9DWujBjAjumZslGmuhvFN8jwg7DTgPzu/7t82jgGtim +YDNzWqxDChYANKyZf4Fd0HSx/7iyIIRsEdo0hP11xDvyQoIg5HWPfJ7FjtSd +rSgNFoIQ4/enlY7ifEtWaXyhi0BzzgkyAPtd11jd7ywRiG55e5aDrTZ130NS +diEkfLDOSMEuNHZK0Z9bCNLlHkvrsJ88OLYgqEYU7g7cElc6RqLZxu6Pn6zE +gWTERw5jSzuIL4uoE4cRA5qdcASJDF9ag4SFBDS/lUlTxw4cqrq1zkAStm9u +rvTBPiTYbviX+DJ4J9wzOYjNVS+ejPsmBfEyCpHzkbg+ROviTiNpGEsQ3a7F +IZHg3eFVCoeloa/NK9MeW81opUvBqDSENGxqvYrtYZVc3tEvA2qKsis3RpGo +0y8kVL5NFpw1f/elRZOo707iOR9ROahP/etBE/bYaEFWvo0cEEdFls9ii4WR +3Rvq5cCLbW6/M4ZE1id3GftUycNU1eF62eMkephtOpuXoQjBhcdayk+QKJv7 +PXx9mArsTLzEcIwn0dbdp/pCi1SA2+hrfAp77ImMbdGwCjSmnw9vwDbO1pNV +c1cFA4GlDmancD0Z3hUim1bCiXHhjTqnSTT1pf/Ip1g1cMhaR195lkQyB6wr +KxzVgb76rwTfRBINZ4sFOAeqQ3tW6sF87OreLuXxeHV4euVu4yT2XgevWO16 +dSgw1aqLTcL5rQl3uUrXAMWcnJ+FyXh83p2vUfKaUJXbl7n8Iol2+S/RtxvQ +gu+v9hSZp5EIhe+m7/mlBT8fhfxOwNaNyzBjKmpDcqxn7QC2QJaRZdQObbh3 +Licq4SqJivo895Q3aMMhyziVkWv4fLoWHlfKXA1XqzubS9NxftaOr3gMGjgO +7uNdyiJR1s4r7+eiaOB6uad3DjuRMdAvfJ0GW9KTNnpk4/0d88+oajcN7o/O +W6nlkEiqNl1gp5Uu2MXbh5bl4v1jNKFbo7EGiOcH9nzKJ5GyelL0uSE94Ka0 +7c4rJVHt2RkaX1Af5Dlm4avKcD2m3V8Sq/TB5NEX+evYN59o0iy99aHNxftj +UjmJ1P0fvqBe64O261BUdCWebyFXi2gzgNdl+guPVJNIRVmVUHM3BHNOt19z +PYn0csLEfyA6xEfpDUy8IBGDGTur70QHG85D66hufF41Uvp89tLB7vMBJcmX +JBLKLCltYtOhJdZ7xdoefN5u8nallNFBVFspIvw1vk/TfNJpGkZwryEnX6kX +r+85BwO3hcaQquLJr+aS6HaIpnNVuwkU1ohxnb6TqCscmZ3MsQDeVnk9mv4Q +WuXd4+QV9Bek9Ug4nvQfQqz5e8UqRwHEIgYLMnOGkPxo9SJ5hiWkvdPJTp4c +QmFGG3tTdK2B7WEsVwpcxBj/2SLDs4E0adqQ7mUuKrIMXZTRuQUKd57IFfjJ +RdkzgQ2FqduANOe/aPIbRtRmhWdPou0h/FPK4LK+YfRBQGhywNcRZq+jxY4+ +Iyh4xcHk4xrbgXoxpyFLjqDifS31l+Kc4VB5TKJbxCd0bFpxbs2+HeDkJfEk +TOYzmrWzdW3+2wW+Nl/28W38jCw8L2zm7tgJzjF5MrERPPRCMT3widEuSKqo +ak9bN4qUcmNr83R2Q+nmhp4dgmOoul/XwUnCFVb4ejg+6xxDqi+/+oePu8Ij +yZFpxaxxZHTpQmFW/x6oaHjMWX1xAqULTxukNLoBZ5ydL8L5gu5tXvsu7oE7 +CPAzdnpZfkVpZmelfhZ4wNXFL0JyWr6izvc58UYJnqAUcKOxa9skqnK8oXko +Zi+49Uw53n47iSYP7BQIZnoBR9Wts5kxhWZtaQETVt5w8wb9iO3oFMobf0uF +mv4Ni1xExdtjppHb7Rw/L3Ef+EHxzpaIz6CKcvu/hU75wIM8uW2JWTPIQvkF +/wzfByQ0li6JNJhFGv3+757v84XFOnydjIpZNLRk//YbpC+4CjFqVdE31JXo +5LdlNwNiLHkmqOYbSmVnLPmniwHr1/sQRyzmUG3dPN9vmx+8cY3bbH93Di3d +C6eMHvrBnl8JIj/EKGThM5EXZ8yE09Ez7xtYFMq9+jXUyZQJy1a3M/kEhZZ3 +T22SN2fC3ZHYFYYBFJqwmXuZt4EJIW7B8tcDKXy/CCxot2TCPUG6kf9BCknO +SblL72DC9YuSja/ZFBo6b7I44wATrN9Z7FA4R6HEmsh91blMoHbNKIkWUegA +/YoFO48Jrcn7dYSLKeSQX7bYvIAJ94NO7p3HFrsynH+/iAnD10rMpkspFBfi +zLtXyYQn2XEVXZUUiqRp7q96zISuTSmJjFoKBV5pCyrvY0Jp/CXb/lYKbZMc +3hjSz4S9VNKD+jYK6cQJSNAHmdB9YbXDrXYKDYeYFJVxmRA15t65t4NCvk4Z +46VjTNh2c9HWtucUchMJDS75zoQh1cU9nDcU2hKqdKhQjgXLzZ/9MONS6HFG +vF2KAguifLWviw9TaGP7lCZbiQV97nzdfmxDrba3VqossDiuonzyE4UUX0dY +vddigVkXafpolEKj6z/IiZmwQLeQQxOcolCS4K1//XeyYEorJuTBLzz/teJp +jrtZMJaeUL7/N4VOerJDjPawIGJGo3fFPIXYlc6r5z1Y4NOlMxohwEe+xIIL +lxksOE1KT+sJ8ZFRK4P532EW2I5kRHuI8tHrC1pLNJJZAI9X2wxK8VExkgj4 +dIEFLVJJz/2l+ejk+MyToossOPYwhhjDpm97EmV+hQW7pKLyp2T4KFHAb8rx +Jgu0P9olT8vyke3BW2/ZhSzI1rX+r0mRj1RUTptuKmZBa5lZ20YlPpppPXhR +qJQFS2drX5dhZ2ojx8QKFrT1LxS+qsxHvz58qM96yAJL2QO5nip8VOmgnNfR +woKr+dP8MjU+OvddUCS1lQXWdpWeCqv4iJHH83VvZ0GMn/1jDvYy4YfKQ50s +ML17Od1GnY+CatyS+K9Y8GF08MxTDT7S0L0crsllwZliXc1MbT76/prT/XmY +BejKq2YKuyuOZVjyiQUeS3uDnVbzUdSAMc9iDOe/NL3pG/a7tG6v7dMsMHiX +e20DjY9SFknZHFtAAFNbu/HSGj6qnfrgGSZEQO/0uboh7JEPBSHBIgSkdZ7n +0PX4aGOl9S3GYgLGbgrZtmIP+7B/2EkRMPhW9TdPH+fvYCNtI0PA3YynMoYG +fLTBTJqGZAmo2+c6FoqdLFHoaqRIwI6geu7cn/aHH8uUVxFwozJ17utaPiJy +CltkNQg4vn+Jup4h/j/56MelWji+dKMkgT1MyEgI0wi4rVBo8OpPu8yWgDFD +Ai6jiPg76/jo4W+Z6GE6AaE/xBveYHM/91/qNyYg/M6ef0XpfLS+/ljjS3MC +tLa8/87EHgoqVv0XCJCYWXxa0oiPJN0iTO5bEmDwqKPDBNvCaqtDmTUB13I/ +vPLETlQcPJqzlYBVffm62djVwiXJGXYEvDV2Dm/CJr9E3LnqQMCKKunYEWzz +Jtme884ENF95/FHLGK932eDoKRcChHRvrLXCPn+jRPDELgJ8bALhb+zBkG2G +4W4ENHXVZ1/ElvCW23LIg4DCa+bUXWzzbaRX4F4CIm/Hijf+6b+Sc87bh4Cg +sPAj49jVYnaZbgwC1v+3rEPABMeblXvgwiTg8F4/rjS2xADZ6UAQ8PtowL8a +2ObtpcO2AQTQG5VcjbAZ9zm/IJAAnuU/JZuxz2faLd8QhPvvC33qhF19Xn6N +STDeD+JS2R5/4rOHNq89RECRvx1iYYszy9xoIQTEKa+4Hoxttj3qoEYYrr9B +7P3wP/HX28erhBOwT5yTysFO0FJIl2cT0Bq/iB6LfW8Zt0LqGAGXXqoln8Ie ++FHWuiSSgO0pzcVn/8QfiRoQiSJA8vH38wnYpi/sqfloAjhtD/TPY/8P9PPF +Rw== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6639439823901716, - 1.4626441816684523`}}, + "PlotRange" -> {{0, 180}, {0.608336628769665, 1.575574091545348}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.663943982390173}, + "AxesOrigin" -> {0, 0.6083366287696663}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -12406,21 +13627,20 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6639439823901716, - 1.4626441816684523`}}, + "PlotRange" -> {{0, 180}, {0.608336628769665, 1.575574091545348}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.663943982390173}, + "AxesOrigin" -> {0, 0.6083366287696663}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -12434,104 +13654,103 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL -ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc -Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 -39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN -PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 -8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk -kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru -nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 -t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 -2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 -N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M -GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV -T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex -5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ -m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm -79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb -ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi -ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T -CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 -EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA -ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey -/ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K -ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk -x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN -DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf -Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 -Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN -+5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai -0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR -fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb -FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW -EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe -0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp -c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI -l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 -6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi -tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh -vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X -ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB -dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 -FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf -//8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq -T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d -f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 -KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif -OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU -01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq -COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o -8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC -6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D -cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz -HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 -eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb -w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq -rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV -bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD -uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS -VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z -NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V -9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD -AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj -HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ -Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B -v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm -+TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA -OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 -0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ -4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC -ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu -vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV -l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj -IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft -YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ -gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu -Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp -yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv -hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc +1:eJwV1Hk8VFscAHBZSkIheyRbRkhjr17nl62yJZUs8RgzlyQVnqYYlGgTkkqL +lC1kX0rxRHoIoaRVwjXUWMqWO23e6Y/7uZ/vPff8zu/8zrKKcdCFJSggIDCI +nz/vwx0Gq+93dWxKfFrqE3WERJsmsk0Y1oUoV3rdlT/uzzBN1bSuRS8titdH +Yzszny0UN/oPEbY69jHYZezoRhHrdlRjndFyHPtMk0J9dMFzpGArUxGL/aDr +8M2f9B6U4XNSLB6b96418mjNG+RRMtVxGluJq+H5zaoXebh4CyRg23+JtAht +/4hOBTffTMKu+8lbwi4YQHX6BgUXsV8dl4+4F4y/16Wop2FPLLTmzdC5yHb3 +7KJ07IUJh9yN5obRAl1Xj0xsVan0lsM1n1DQsSrFPGwn5W+5E1ZjSC/90MdK +bOKWupy+6ARyEXrGrcGO1toet7/9C0oRp7k3Yr+Rf7kurGASGRID8d3YTI/A +fRcTplDJ4U2be7G/3hC4XR48jVIv3wjgYouq6y+bpM+i3jdevynsVGbjlmWy +31DHm4YgITaJ1O64R6+d+4bW3NfZKoltrhc/caCGQrZiC2y1sANMP7bzrH6i +2h88LzfsGfY/wmLav9DWujBjAjumZslGmuhvFN8jwg7DTgPzu/7t82jgGtim +YDNzWqxDChYANKyZf4Fd0HSx/7iyIIRsEdo0hP11xDvyQoIg5HWPfJ7FjtSd +rSgNFoIQ4/enlY7ifEtWaXyhi0BzzgkyAPtd11jd7ywRiG55e5aDrTZ130NS +diEkfLDOSMEuNHZK0Z9bCNLlHkvrsJ88OLYgqEYU7g7cElc6RqLZxu6Pn6zE +gWTERw5jSzuIL4uoE4cRA5qdcASJDF9ag4SFBDS/lUlTxw4cqrq1zkAStm9u +rvTBPiTYbviX+DJ4J9wzOYjNVS+ejPsmBfEyCpHzkbg+ROviTiNpGEsQ3a7F +IZHg3eFVCoeloa/NK9MeW81opUvBqDSENGxqvYrtYZVc3tEvA2qKsis3RpGo +0y8kVL5NFpw1f/elRZOo707iOR9ROahP/etBE/bYaEFWvo0cEEdFls9ii4WR +3Rvq5cCLbW6/M4ZE1id3GftUycNU1eF62eMkephtOpuXoQjBhcdayk+QKJv7 +PXx9mArsTLzEcIwn0dbdp/pCi1SA2+hrfAp77ImMbdGwCjSmnw9vwDbO1pNV +c1cFA4GlDmancD0Z3hUim1bCiXHhjTqnSTT1pf/Ip1g1cMhaR195lkQyB6wr +KxzVgb76rwTfRBINZ4sFOAeqQ3tW6sF87OreLuXxeHV4euVu4yT2XgevWO16 +dSgw1aqLTcL5rQl3uUrXAMWcnJ+FyXh83p2vUfKaUJXbl7n8Iol2+S/RtxvQ +gu+v9hSZp5EIhe+m7/mlBT8fhfxOwNaNyzBjKmpDcqxn7QC2QJaRZdQObbh3 +Licq4SqJivo895Q3aMMhyziVkWv4fLoWHlfKXA1XqzubS9NxftaOr3gMGjgO +7uNdyiJR1s4r7+eiaOB6uad3DjuRMdAvfJ0GW9KTNnpk4/0d88+oajcN7o/O +W6nlkEiqNl1gp5Uu2MXbh5bl4v1jNKFbo7EGiOcH9nzKJ5GyelL0uSE94Ka0 +7c4rJVHt2RkaX1Af5Dlm4avKcD2m3V8Sq/TB5NEX+evYN59o0iy99aHNxftj +UjmJ1P0fvqBe64O261BUdCWebyFXi2gzgNdl+guPVJNIRVmVUHM3BHNOt19z +PYn0csLEfyA6xEfpDUy8IBGDGTur70QHG85D66hufF41Uvp89tLB7vMBJcmX +JBLKLCltYtOhJdZ7xdoefN5u8nallNFBVFspIvw1vk/TfNJpGkZwryEnX6kX +r+85BwO3hcaQquLJr+aS6HaIpnNVuwkU1ohxnb6TqCscmZ3MsQDeVnk9mv4Q +WuXd4+QV9Bek9Ug4nvQfQqz5e8UqRwHEIgYLMnOGkPxo9SJ5hiWkvdPJTp4c +QmFGG3tTdK2B7WEsVwpcxBj/2SLDs4E0adqQ7mUuKrIMXZTRuQUKd57IFfjJ +RdkzgQ2FqduANOe/aPIbRtRmhWdPou0h/FPK4LK+YfRBQGhywNcRZq+jxY4+ +Iyh4xcHk4xrbgXoxpyFLjqDifS31l+Kc4VB5TKJbxCd0bFpxbs2+HeDkJfEk +TOYzmrWzdW3+2wW+Nl/28W38jCw8L2zm7tgJzjF5MrERPPRCMT3widEuSKqo +ak9bN4qUcmNr83R2Q+nmhp4dgmOoul/XwUnCFVb4ejg+6xxDqi+/+oePu8Ij +yZFpxaxxZHTpQmFW/x6oaHjMWX1xAqULTxukNLoBZ5ydL8L5gu5tXvsu7oE7 +CPAzdnpZfkVpZmelfhZ4wNXFL0JyWr6izvc58UYJnqAUcKOxa9skqnK8oXko +Zi+49Uw53n47iSYP7BQIZnoBR9Wts5kxhWZtaQETVt5w8wb9iO3oFMobf0uF +mv4Ni1xExdtjppHb7Rw/L3Ef+EHxzpaIz6CKcvu/hU75wIM8uW2JWTPIQvkF +/wzfByQ0li6JNJhFGv3+757v84XFOnydjIpZNLRk//YbpC+4CjFqVdE31JXo +5LdlNwNiLHkmqOYbSmVnLPmniwHr1/sQRyzmUG3dPN9vmx+8cY3bbH93Di3d +C6eMHvrBnl8JIj/EKGThM5EXZ8yE09Ez7xtYFMq9+jXUyZQJy1a3M/kEhZZ3 +T22SN2fC3ZHYFYYBFJqwmXuZt4EJIW7B8tcDKXy/CCxot2TCPUG6kf9BCknO +SblL72DC9YuSja/ZFBo6b7I44wATrN9Z7FA4R6HEmsh91blMoHbNKIkWUegA +/YoFO48Jrcn7dYSLKeSQX7bYvIAJ94NO7p3HFrsynH+/iAnD10rMpkspFBfi +zLtXyYQn2XEVXZUUiqRp7q96zISuTSmJjFoKBV5pCyrvY0Jp/CXb/lYKbZMc +3hjSz4S9VNKD+jYK6cQJSNAHmdB9YbXDrXYKDYeYFJVxmRA15t65t4NCvk4Z +46VjTNh2c9HWtucUchMJDS75zoQh1cU9nDcU2hKqdKhQjgXLzZ/9MONS6HFG +vF2KAguifLWviw9TaGP7lCZbiQV97nzdfmxDrba3VqossDiuonzyE4UUX0dY +vddigVkXafpolEKj6z/IiZmwQLeQQxOcolCS4K1//XeyYEorJuTBLzz/teJp +jrtZMJaeUL7/N4VOerJDjPawIGJGo3fFPIXYlc6r5z1Y4NOlMxohwEe+xIIL +lxksOE1KT+sJ8ZFRK4P532EW2I5kRHuI8tHrC1pLNJJZAI9X2wxK8VExkgj4 +dIEFLVJJz/2l+ejk+MyToossOPYwhhjDpm97EmV+hQW7pKLyp2T4KFHAb8rx +Jgu0P9olT8vyke3BW2/ZhSzI1rX+r0mRj1RUTptuKmZBa5lZ20YlPpppPXhR +qJQFS2drX5dhZ2ojx8QKFrT1LxS+qsxHvz58qM96yAJL2QO5nip8VOmgnNfR +woKr+dP8MjU+OvddUCS1lQXWdpWeCqv4iJHH83VvZ0GMn/1jDvYy4YfKQ50s +ML17Od1GnY+CatyS+K9Y8GF08MxTDT7S0L0crsllwZliXc1MbT76/prT/XmY +BejKq2YKuyuOZVjyiQUeS3uDnVbzUdSAMc9iDOe/NL3pG/a7tG6v7dMsMHiX +e20DjY9SFknZHFtAAFNbu/HSGj6qnfrgGSZEQO/0uboh7JEPBSHBIgSkdZ7n +0PX4aGOl9S3GYgLGbgrZtmIP+7B/2EkRMPhW9TdPH+fvYCNtI0PA3YynMoYG +fLTBTJqGZAmo2+c6FoqdLFHoaqRIwI6geu7cn/aHH8uUVxFwozJ17utaPiJy +CltkNQg4vn+Jup4h/j/56MelWji+dKMkgT1MyEgI0wi4rVBo8OpPu8yWgDFD +Ai6jiPg76/jo4W+Z6GE6AaE/xBveYHM/91/qNyYg/M6ef0XpfLS+/ljjS3MC +tLa8/87EHgoqVv0XCJCYWXxa0oiPJN0iTO5bEmDwqKPDBNvCaqtDmTUB13I/ +vPLETlQcPJqzlYBVffm62djVwiXJGXYEvDV2Dm/CJr9E3LnqQMCKKunYEWzz +Jtme884ENF95/FHLGK932eDoKRcChHRvrLXCPn+jRPDELgJ8bALhb+zBkG2G +4W4ENHXVZ1/ElvCW23LIg4DCa+bUXWzzbaRX4F4CIm/Hijf+6b+Sc87bh4Cg +sPAj49jVYnaZbgwC1v+3rEPABMeblXvgwiTg8F4/rjS2xADZ6UAQ8PtowL8a +2ObtpcO2AQTQG5VcjbAZ9zm/IJAAnuU/JZuxz2faLd8QhPvvC33qhF19Xn6N +STDeD+JS2R5/4rOHNq89RECRvx1iYYszy9xoIQTEKa+4Hoxttj3qoEYYrr9B +7P3wP/HX28erhBOwT5yTysFO0FJIl2cT0Bq/iB6LfW8Zt0LqGAGXXqoln8Ie ++FHWuiSSgO0pzcVn/8QfiRoQiSJA8vH38wnYpi/sqfloAjhtD/TPY/8P9PPF +Rw== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, + "PlotRange" -> {{0, 180}, {0.608336628769665, 1.575574091545348}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.663943982390173}, + "AxesOrigin" -> {0, 0.6083366287696663}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -12541,7 +13760,8 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.663943982390173}, + AxesOrigin->{0, 0.6083366287696663}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -12569,7 +13789,8 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.608336628769665, 1.575574091545348}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -12577,9 +13798,9 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991337564416748*^9}, + CellChangeTimes->{3.991337564416748*^9, 3.994253950082303*^9}, CellLabel-> - "Out[303]=",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] + "Out[139]=",ExpressionUUID->"ca8b9b4d-d50d-4473-a9bb-9fb6b9e4bd58"] }, Open ]], Cell[CellGroupData[{ @@ -12643,252 +13864,170 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ - 3.9918495265156612`*^9, {3.991849580574194*^9, - 3.9918495807911797`*^9}},ExpressionUUID->"90696e8b-5a2d-314c-8d58-\ -ac84cb8f4d66"], + 3.9918495265156612`*^9, {3.991849580574194*^9, 3.9918495807911797`*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.976253354341118`*^-271\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.7145287492393227`*^-264\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 304, - 297, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337564646551*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 69, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337564646551*^9, 3.994253950286343*^9}, CellLabel-> "During evaluation of \ -In[304]:=",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], +In[140]:=",ExpressionUUID->"82a2383f-b261-4f89-9e2a-dfbe99a1babd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.718150004511881`*^-282\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.8298606321437383`*^-275\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 304, 298, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913375646565304`*^9}, + 140, 70, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337564646551*^9, 3.994253950296226*^9}, CellLabel-> "During evaluation of \ -In[304]:=",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], +In[140]:=",ExpressionUUID->"0aef643b-2926-4610-9190-f6c51af8b8a4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4847193100774497`*^-293\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.9500926080083066`*^-286\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 304, 299, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913375646656475`*^9}, + 2, 140, 71, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337564646551*^9, 3.994253950307465*^9}, CellLabel-> "During evaluation of \ -In[304]:=",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], +In[140]:=",ExpressionUUID->"a1675139-7b7a-4573-baea-d3f1a9033c87"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 304, 300, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913375646736584`*^9}, +during this calculation.\"", 2, 140, 72, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337564646551*^9, 3.9942539503160686`*^9}, CellLabel-> "During evaluation of \ -In[304]:=",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], +In[140]:=",ExpressionUUID->"dc866c4a-23ad-436a-b84b-d0b0573a7c41"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo -yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ -e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt -CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 -SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr -J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX -du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch -VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU -v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt -EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 -uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi -NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L -I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ -bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A -1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f -CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b -RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf -p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 -c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY -doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm -Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 -784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw -+0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s -GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs -uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL -iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G -ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ -nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU -gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 -XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU -m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l -bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy -I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 -zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ -mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK -vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G -UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ -xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 -fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu -FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu -g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ -l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX -V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ -eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 -3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA -G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN -mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H -L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep -5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj -JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT -+jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs -FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v -HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax -9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L -lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 -Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV -lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E -uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh -RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY -ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ -8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI -MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q -4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD -b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ -sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU -0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK -VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv -vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA -0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES -2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO -EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 -OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb -5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl -Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN -+dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi -yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O -GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ -8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho -q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for -sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl -KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob -v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N -1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB -w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg -d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw -7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF -XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi -teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD -A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD -wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 -HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 -yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 -tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn -y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ -71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB -hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy -C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC -ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ -rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 -1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H -7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 -32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l -Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq -gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij -tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp -MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq -2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 -nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM -D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU -RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb -MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr -fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 -GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h -+tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 -PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN -MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 -75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc -5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU -UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw -El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW -q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH -1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK -3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ -lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf -VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy -Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD -25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O -JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI -w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q -hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR -hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv -ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu -jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S -JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue -2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig -DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 -bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 -3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe -etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk -om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe -tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F -X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau -q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 -D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc -PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE -QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc -IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx -bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN -H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 -sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU -K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 -mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi -z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o -YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h -Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 -aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l -cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo -2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 -Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl -z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO -d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da -A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM -VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl -kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC -H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk -4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x -CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl -rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 -pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs -Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US -R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o -IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe -SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U -EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o -0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm -cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru -YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep -KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F -VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs -76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj -6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 -BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi -JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT -/wN9xxCi + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k8VG8XAHBLQkVZssWYGUMlS5R9xjmWrNmJZF+TJZVStCBKSLJEKiS0 +EDM3FCoiskR+JUuLStojCoXkve9f9/P93Jn7PM89zznnuTS/3Y6BPFxcXFRu +Lq7/X2eGOx4yUksMbx4cqX2Za2zYVyB1yGgwAWR/vVE2EqYBrn7iJzWYCafA +ZlZaWAMO2N8Y4B0shgI7KfdFISMQGZfMnB0gwN1LePK5kAO8uWu7e2qgGTwf +Ww7ZC/mCGePr68mBp2BbHPZh6/I9MDugkzMxMAKtgRk55rzx0GJyteS/4l+w +UUB1Q2DOWZB9U/fRT2UBaNm3nB07z4N4mPcNfhNeLCk4t+JaQxFkapg12LoI +4JF9Z3M/F5XAUN7GpslVQnhPLpHwnrkKqSXHnvBIi6BLFCWnUbMcJLPfn8q6 +JIY9P79c3j51E6Q21CT+KSMtuk2pZ+EmyDSfOObJFkNZ25i9TP5KoEys37+2 +RQz3zKz3XCpTCYpbI30aPovh6FOXHXZQCZuWLGi/3ySOktd856uTK8EuSmJU +s1McZzKrDB9JVMFJZ0vDpzOr8b/DDMMvK9kgU90jw8MtgZwaNFcVZ0OlmPNv +jeUS6LnULilcig39T73YZ+UlMJc/r2CEygaGQxTdwUIC6x4k6xdqsKHZpnBp +73kJZH9SaPZ1ZMOC2XRPN1MSXVu9qgTPsiGjLKZ8wUwST502KHmWTf5/KVey +qoMkbrJLbjmfx4atrcuMTgdKIjPxeJxMERvyTai3tqZLYmxmz9hYJRt00Tq3 +640kynJ/3fmqiw379C57dyRI4VBKU1s/DwesioSnrNOksFWEK2WMjwN0/sPJ +PTlSaO5RO8klyIHevm2cZ9ekUHTevVJuJQfUIlfwDvdIYdT61JdqazjwuSy6 +7KeMNCb2m3OzNTngIW47tuaWNC7xy8xQ9ebAptiG+IK70ui4O/3doC8Hlo2s +k6C1SSOVUj4QF8CBuipeUBqSRua74lttIRyQsK7L2LgojfO7bFWVo8jx4xmb +t1jLoEGptJF9MgdMf8zFRLyXwVWuDmPSlRw4ZJGt/OC7DFLybZ7bsjlQeVn1 +hdiMDNp/SU+OIzgg5eyjVyewBkXPVDu8qOXA9zutv3nV1mBkZWpUcCMHshIy +os4fXIMVUdHqn59wYGS1UsRDIVls9fM0SRrngOTuRjlJSVk8p6i+wnmCA1vb +3bpDqLI47379mvxPDtTGpKqs3CSLba1vPW9OcyDlzcTX7W6yeOjk2ebivxzQ +vN4Q/KNYFgsDzj+YFiQgnungK6Mrh+KH7q4HOgEWXgU/dYzl8E2G0+1HCgQI +x3077rJVDp16H5zbqkjAxZaksgwfObRW3G5jvY6AO1b135aeksPOpRuuy6oR +MOGmcODXkBz2dc5cXKlHwO2YSH6RUTlc8ZaT5qlPwNGL9/LUxuXQf/TywFUD +Ala8dW0I4aGg3tuieA1DAtYGp3G9Vaag5dhLHWkTArz2T6c8jqVglaJwo/5W +AhRzjWW/JlEwt+pQla0NQb6/Mzf5Myh4uLuAz9uWgJi/63uNSyjo5DL8Icqe +gJzjXqvrHlPwY9n3U/udCfAoLS/r76eghMhAQ5gLAfRHf3Sm3lKQMb1uu882 +AtjLstzVpykYvuTHINONgMdnHxWWysljkH41d9cOArJuiWu0rJXHL40JV0o9 +yDr03Lf5rYY8qtdU1B72JOCz1N/RNWby6BRJ20z1JoC3aKNyZoQ8luarX2b6 +EaBfeb76aKM8bpcLmuoKJsB0oGdhvF0eTeYdbPx3EmDLtcTc+6k83ondmfeb +tL9jxBB8kMe/oY/4JXcRYBZLOxbHR0XriW1eGmEEdK28e0V3GRW7LS7uYJO2 +L9nWPiFMxbLTifYq4QTs6E4V8ZWi4nKOAGNNBAGR8jNXjDZQUVvwXFLfbgKm +b2W0z6pT8bpgiZNBJPn+LDaMcTZTMfrAP0oh6aQ9Ptp0Qyo2NsSyPfcQsGzp +vPsLYyqaC4gevEM6Iz/nWKY5Fe2vvYRVewnIb+ls53Gg4j3eP09rScu7BY7V +u1Bx74aHhXz7CCj5viiyz52KRkdrdzuQrlqtteO9PxUniwRk35LefOPJsQs7 +qZjf+mmWHkVAveGuEqdwKk7f+/baj/TD4MKxlgNUrHm7s2GItOVfPdHDsVQ8 +qRtcu2o/AT0Zfdqb46j48V52vSlpZ8XdO74nUtF4oKZ9P+mhOsG4klNUvHDl +zLsrpL1sS0o80qkoMPeJ7wnp0RHDDvEsKhqEJGn/Jh0SPTT2OJccX1s9SvYA +AePLo0STLlLxuPfNRkPS+4qEdViXyfXntEt7kf6z+fqO6VLSaHU8hvTRDpO4 +mzeoeOrI379ZpHm9hksCq6iYTrlx8gbp5J8HO+SqqTh7jcK4T1r4pNj48ztU +/Omi9KyHdNaaStH0e2Q8RdJzXpGWYlvomDVT8WGMQtgn0pdM3+/410ZF7pFq +1x+k6UNH4mq7yPEsRbZPkb4WLlUa0UvFlACBPTOkVXludSg9J+N9blfRNGni +nM348BAVj/4S+DxJWnfDZ9HcYSqKGdZYfCN9rzFBx+49Fb0/G7W8I23sLOfB +/5mKzaIJbs9JP/p8O67xOxWPpVoKtpHeesSxNHqSjG9PWP8t0k9FxjrUZ6iY +zPugqYC0a9nJ8U9zVFTmku04QfqVPl2saJGK/abOE6Gk/Z7c1XFbQsNTC6hj +S/qTv6vHKkEa8nDXF6iSDvszGdcuREPz3ty1y0jr7wmS+ChKwwpO8KG3ZLwE +vr4o55Wi4SihFHGLdL+fnRFNjob1m78tPU669GVLvyGdhvxxj03tSEc564Z5 +rKXht4cj66RIG3dXcMeo0HBe2rz6Nbm/hu/nqNRo0/B+p1+rF+kKnWXNTw1o ++POxvY0M6Rj2UdcJpGGX8lzcU3L/ShQHJ2ywpuFH/pkfuqTtkvQGL3uT90eW +rBgm84Xy72Z4YwANmxT1RY6R/n6Azvs6hIY7itW7ZEkn71yuJhVFw/Pq4762 +ZP41Wb8+np5Mw7y7Y/opZP6mP3SQrjhNQ5VRx6UipD1YbZUdmTSsU6s+k03m ++6xa1dCSSzQckZd+d5asB5qi8eqxHBqGxXsUBpL1gyt1+mFeLQ3zJ9Nin4aQ ++cK7y722gZzvsLI8k3TotGPSZCsNn/pGP+Aj60/JIONl8AsaPvOczdobSMBe +h/ORSW9oOO6u3d0aQAB2Ci29MkpDa54TA6tJv26Y2Tg8Tv5+3DCggqx3EoXt +J5x56ei+LiLuFlkPRyVZsnsF6Fjx+mzAmBe5/zI4nDNCdMy5WKjAIG2XkP+q +U5KOr/bu00km62tyYJimkQodh0z+DSpvJ9e3YdWwqgsduXvlKC8dCJi5JBO/ +yZ2ObU1/+j+R9X5qpSJDz5t8fmzwhUk7Ml9/6e0yDaHj+lUj1n/JfjHS4D/j +foSOhiEXw8ctCei0vi2cXEpHf+u2djMjcj/fe8A5fYOO4mlXexhI1hv1x85Z +VXTMfDT2a5HsT/fF3uUX1NGR1+7W5ZtMcv4vl62t6aZjkWXqzY86ZP0L9YKR +aTo2cV+90qtKQO7rnSOf5ugodMFEN16FgGy7fUlji3SMdiO41DeQ8dyU3PVH +UAEdCC3NBLKfJsxzXFdSFNCcCkx+sv+GpvJFMs0UMC04XuS0JAHM8oqic+cU +0OfDOb6z/zjwklpeuOWCAjY8GFPlX+BAzLnrBVOFCngnn7Uidp4Dt+PLLjpe +V0Dhbxo/dvwh+79bUZ7wXQVsoQSE85DnhfV82Rkn3ilgr32byftR8rzjHRt3 +QIWB/wYObvzbzoGavkPHFDUYOOYfYbThEQecrQ4e7dNioPp5KxW3Vg5kau0/ +rAkMnNG1zC5/wAGhFbsPjjswsCs7olu3ngNL6vwig6IZ2Mxd/2HsBgcmRa18 +tjUzsGSO/1FnCgcGw+i9ux4xcImXlXEKeZ5qapuDY48ZeBfX+pmf4EBGTLn8 +tX4GpqZW5tTHc2DjyIo3s18ZWDA5PZ14kAMRnCeel8QUcXNs+PcbgRz4auey +YzRAEQe9GeZmhhwYTfPZtpdfCcsoJxmrvrDB8ke05Qfttfhv9l6KvxYbvvsL +7Ks+tg49thTztRCV5PeDJM/J5vX4+nyC/NGXFSDarZTO/qGMKyU9PogtLwfZ +5Cp7bW0V9O4+WS/Hex3yNuitEgtWxazGrZfUJK9Cp4yR1q+zarh+weJMiHYp +6Ms2Z6j3q6PIt/KjE1pXQJi3OMo3YSP+2/770/qgy0CJl2duV9LA2ifWwqcF +C0FQ0aPW8ZEGljeUV0mkXQA1lnRVtKcmXupW0L5zNA/2Dou2WHFtwhOlJoRd +WA78+JXmYpm3CQMF9/JVdGSCuXpbvqXqZrRI7NrYFpYB938ZzP/u2YzG/puT +tLXTIEJF88V/gVqoaEVhSbskA2s8oG+7oDauKVRdZ5WXCFsYUjZCxdro86f6 +qVJSPKyLSznYrKODO95ESwzdPQLKgXqNii90sGvKxtLj7kEIvL8zsXqPLgrp +/JS6WhMFjUV9AZOr9bDnnuvHydlImLq2+Fv9th6Kd/QW/nsQCh+3mRWdqtND ++y162c8rQmFwyWmL9w16OHV4t3l9big0+MicP9ekh8caJZ5UhIdCgpSW/kKH +HqoX+ZZqyYTCquRdhztf6eH8wvHjvft3gUrwc65AHn00yr3C91c7BPwVywXz +bfTRad/o4dtvgiCm1WuXkr0+TkvYGJs/DoKMQNEuwlEfJR0fwYc7QXC39FBa +l6s+XtIJb7bODAJxJYuVC776WHJwH2/zliBoU/og7nNAH1ewnAK2VgWC8jp5 +qlKhPvrYJZYVpQXApHKWNjGhj7lbud6fifCDwce4ReyXPk4c5BWO9/aDpohx +p6hp8nkjQV8P2/tBOmG5R3tOH+Wt/hVka/qBsj5XRT2vAbYN37Ix+e0Lfpbh +tBYJAzR+bxqTl+ALfcHmK/qYBvhM3N/8T5EP3CmZfzedbICm5e2v02Y8Qdsk +6rdVqgEKSK2mf3ntCTXvvq8oOm2AYeEx61xbPYGgDOtYZRqgv2Gnw85sT6jI +azpdcMEABffP/vTc5AlFaUl65pUGeJqb7XM6ygNORa08m/fMAC3LHprV8O4A +d1MFNKAwcXmIQvSsoxss9AkIt1CZqFg2oFPHdIOiwPGXVgpMjO/fOZmi5AYf +T9RFu69jolDdHCVgzhX2dthVHdJk4sV5XvHvxa6QYnuYcseMiXqxbrPmv7dB +vdvzv5t3M9Fqcdn+1xUusCb8ZJ1aExPb7/ddX7RwgvTFIK3UZiYynqv+ldR1 +Ap5MM86nh0zcvST8MGutE3yt5bte1EGOJ80zWsXnBPVciXmiz5jIN63mpdHi +CO7ZcdEzH/4/vz3xhegIeQ2HtO4vZ2F1QN2+MVMHWL0sjGPjysIQaFsQfG8L +JSZHYia2s/Ds8TlTiYe2oHkk3STLg4UX9U/YGpbagu0E+/mgLwuPmzY4vQu2 +hRP907P+YSwskZ7sjxy3gT/Fx4xj4llo3JUSeoXLBl4YZD0rK2dhsUpRWZuu +NezcX3LRspKFiaGRi3Q5a5iprAn8zmbhSqMLKXnc1iBKH/ytUcvCtUbKX3o6 +rcBaQE72XhMLx+5/uxzkZQV3+8oCnj1nYcaFt/82pliClfAd1QODLJwd+s9N +MtISBs07ZqRestCvW6Fq9TZLmKr/luz1loWqA/x87nRLUL288eaXr+T6RTW2 +LDZYwN0XRgfSxlgYc0B7z5ViC7ASdwL1CRYuLhXg9T5lAUEn9/8XNc3CvTuL +hWRdLWCq6US+5B8WDiQ7+MoZWkDCXK5//RwLQ8PP92opWsCqzddVPBdYuEV+ +mWXgCgsoCK+fXlxkYY8q3Cn/ZQ7/Ay0/F34= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -12902,211 +14041,125 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo -yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ -e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt -CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 -SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr -J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX -du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch -VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU -v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt -EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 -uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi -NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L -I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ -bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A -1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f -CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b -RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf -p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 -c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY -doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm -Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 -784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw -+0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s -GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs -uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL -iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G -ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ -nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU -gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 -XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU -m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l -bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy -I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 -zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ -mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK -vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G -UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ -xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 -fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu -FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu -g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ -l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX -V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ -eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 -3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA -G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN -mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H -L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep -5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj -JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT -+jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs -FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v -HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax -9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L -lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 -Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV -lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E -uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh -RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY -ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ -8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI -MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q -4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD -b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ -sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU -0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK -VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv -vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA -0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES -2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO -EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 -OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb -5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl -Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN -+dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi -yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O -GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ -8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho -q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for -sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl -KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob -v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N -1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB -w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg -d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw -7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF -XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi -teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD -A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD -wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 -HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 -yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 -tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn -y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ -71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB -hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy -C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC -ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ -rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 -1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H -7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 -32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l -Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq -gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij -tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp -MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq -2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 -nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM -D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU -RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb -MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr -fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 -GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h -+tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 -PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN -MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 -75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc -5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU -UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw -El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW -q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH -1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK -3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ -lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf -VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy -Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD -25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O -JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI -w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q -hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR -hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv -ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu -jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S -JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue -2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig -DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 -bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 -3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe -etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk -om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe -tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F -X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau -q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 -D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc -PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE -QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc -IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx -bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN -H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 -sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU -K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 -mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi -z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o -YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h -Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 -aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l -cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo -2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 -Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl -z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO -d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da -A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM -VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl -kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC -H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk -4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x -CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl -rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 -pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs -Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US -R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o -IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe -SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U -EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o -0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm -cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru -YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep -KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F -VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs -76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj -6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 -BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi -JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT -/wN9xxCi +1:eJwV13k8VG8XAHBLQkVZssWYGUMlS5R9xjmWrNmJZF+TJZVStCBKSLJEKiS0 +EDM3FCoiskR+JUuLStojCoXkve9f9/P93Jn7PM89zznnuTS/3Y6BPFxcXFRu +Lq7/X2eGOx4yUksMbx4cqX2Za2zYVyB1yGgwAWR/vVE2EqYBrn7iJzWYCafA +ZlZaWAMO2N8Y4B0shgI7KfdFISMQGZfMnB0gwN1LePK5kAO8uWu7e2qgGTwf +Ww7ZC/mCGePr68mBp2BbHPZh6/I9MDugkzMxMAKtgRk55rzx0GJyteS/4l+w +UUB1Q2DOWZB9U/fRT2UBaNm3nB07z4N4mPcNfhNeLCk4t+JaQxFkapg12LoI +4JF9Z3M/F5XAUN7GpslVQnhPLpHwnrkKqSXHnvBIi6BLFCWnUbMcJLPfn8q6 +JIY9P79c3j51E6Q21CT+KSMtuk2pZ+EmyDSfOObJFkNZ25i9TP5KoEys37+2 +RQz3zKz3XCpTCYpbI30aPovh6FOXHXZQCZuWLGi/3ySOktd856uTK8EuSmJU +s1McZzKrDB9JVMFJZ0vDpzOr8b/DDMMvK9kgU90jw8MtgZwaNFcVZ0OlmPNv +jeUS6LnULilcig39T73YZ+UlMJc/r2CEygaGQxTdwUIC6x4k6xdqsKHZpnBp +73kJZH9SaPZ1ZMOC2XRPN1MSXVu9qgTPsiGjLKZ8wUwST502KHmWTf5/KVey +qoMkbrJLbjmfx4atrcuMTgdKIjPxeJxMERvyTai3tqZLYmxmz9hYJRt00Tq3 +640kynJ/3fmqiw379C57dyRI4VBKU1s/DwesioSnrNOksFWEK2WMjwN0/sPJ +PTlSaO5RO8klyIHevm2cZ9ekUHTevVJuJQfUIlfwDvdIYdT61JdqazjwuSy6 +7KeMNCb2m3OzNTngIW47tuaWNC7xy8xQ9ebAptiG+IK70ui4O/3doC8Hlo2s +k6C1SSOVUj4QF8CBuipeUBqSRua74lttIRyQsK7L2LgojfO7bFWVo8jx4xmb +t1jLoEGptJF9MgdMf8zFRLyXwVWuDmPSlRw4ZJGt/OC7DFLybZ7bsjlQeVn1 +hdiMDNp/SU+OIzgg5eyjVyewBkXPVDu8qOXA9zutv3nV1mBkZWpUcCMHshIy +os4fXIMVUdHqn59wYGS1UsRDIVls9fM0SRrngOTuRjlJSVk8p6i+wnmCA1vb +3bpDqLI47379mvxPDtTGpKqs3CSLba1vPW9OcyDlzcTX7W6yeOjk2ebivxzQ +vN4Q/KNYFgsDzj+YFiQgnungK6Mrh+KH7q4HOgEWXgU/dYzl8E2G0+1HCgQI +x3077rJVDp16H5zbqkjAxZaksgwfObRW3G5jvY6AO1b135aeksPOpRuuy6oR +MOGmcODXkBz2dc5cXKlHwO2YSH6RUTlc8ZaT5qlPwNGL9/LUxuXQf/TywFUD +Ala8dW0I4aGg3tuieA1DAtYGp3G9Vaag5dhLHWkTArz2T6c8jqVglaJwo/5W +AhRzjWW/JlEwt+pQla0NQb6/Mzf5Myh4uLuAz9uWgJi/63uNSyjo5DL8Icqe +gJzjXqvrHlPwY9n3U/udCfAoLS/r76eghMhAQ5gLAfRHf3Sm3lKQMb1uu882 +AtjLstzVpykYvuTHINONgMdnHxWWysljkH41d9cOArJuiWu0rJXHL40JV0o9 +yDr03Lf5rYY8qtdU1B72JOCz1N/RNWby6BRJ20z1JoC3aKNyZoQ8luarX2b6 +EaBfeb76aKM8bpcLmuoKJsB0oGdhvF0eTeYdbPx3EmDLtcTc+6k83ondmfeb +tL9jxBB8kMe/oY/4JXcRYBZLOxbHR0XriW1eGmEEdK28e0V3GRW7LS7uYJO2 +L9nWPiFMxbLTifYq4QTs6E4V8ZWi4nKOAGNNBAGR8jNXjDZQUVvwXFLfbgKm +b2W0z6pT8bpgiZNBJPn+LDaMcTZTMfrAP0oh6aQ9Ptp0Qyo2NsSyPfcQsGzp +vPsLYyqaC4gevEM6Iz/nWKY5Fe2vvYRVewnIb+ls53Gg4j3eP09rScu7BY7V +u1Bx74aHhXz7CCj5viiyz52KRkdrdzuQrlqtteO9PxUniwRk35LefOPJsQs7 +qZjf+mmWHkVAveGuEqdwKk7f+/baj/TD4MKxlgNUrHm7s2GItOVfPdHDsVQ8 +qRtcu2o/AT0Zfdqb46j48V52vSlpZ8XdO74nUtF4oKZ9P+mhOsG4klNUvHDl +zLsrpL1sS0o80qkoMPeJ7wnp0RHDDvEsKhqEJGn/Jh0SPTT2OJccX1s9SvYA +AePLo0STLlLxuPfNRkPS+4qEdViXyfXntEt7kf6z+fqO6VLSaHU8hvTRDpO4 +mzeoeOrI379ZpHm9hksCq6iYTrlx8gbp5J8HO+SqqTh7jcK4T1r4pNj48ztU +/Omi9KyHdNaaStH0e2Q8RdJzXpGWYlvomDVT8WGMQtgn0pdM3+/410ZF7pFq +1x+k6UNH4mq7yPEsRbZPkb4WLlUa0UvFlACBPTOkVXludSg9J+N9blfRNGni +nM348BAVj/4S+DxJWnfDZ9HcYSqKGdZYfCN9rzFBx+49Fb0/G7W8I23sLOfB +/5mKzaIJbs9JP/p8O67xOxWPpVoKtpHeesSxNHqSjG9PWP8t0k9FxjrUZ6iY +zPugqYC0a9nJ8U9zVFTmku04QfqVPl2saJGK/abOE6Gk/Z7c1XFbQsNTC6hj +S/qTv6vHKkEa8nDXF6iSDvszGdcuREPz3ty1y0jr7wmS+ChKwwpO8KG3ZLwE +vr4o55Wi4SihFHGLdL+fnRFNjob1m78tPU669GVLvyGdhvxxj03tSEc564Z5 +rKXht4cj66RIG3dXcMeo0HBe2rz6Nbm/hu/nqNRo0/B+p1+rF+kKnWXNTw1o ++POxvY0M6Rj2UdcJpGGX8lzcU3L/ShQHJ2ywpuFH/pkfuqTtkvQGL3uT90eW +rBgm84Xy72Z4YwANmxT1RY6R/n6Azvs6hIY7itW7ZEkn71yuJhVFw/Pq4762 +ZP41Wb8+np5Mw7y7Y/opZP6mP3SQrjhNQ5VRx6UipD1YbZUdmTSsU6s+k03m ++6xa1dCSSzQckZd+d5asB5qi8eqxHBqGxXsUBpL1gyt1+mFeLQ3zJ9Nin4aQ ++cK7y722gZzvsLI8k3TotGPSZCsNn/pGP+Aj60/JIONl8AsaPvOczdobSMBe +h/ORSW9oOO6u3d0aQAB2Ci29MkpDa54TA6tJv26Y2Tg8Tv5+3DCggqx3EoXt +J5x56ei+LiLuFlkPRyVZsnsF6Fjx+mzAmBe5/zI4nDNCdMy5WKjAIG2XkP+q +U5KOr/bu00km62tyYJimkQodh0z+DSpvJ9e3YdWwqgsduXvlKC8dCJi5JBO/ +yZ2ObU1/+j+R9X5qpSJDz5t8fmzwhUk7Ml9/6e0yDaHj+lUj1n/JfjHS4D/j +foSOhiEXw8ctCei0vi2cXEpHf+u2djMjcj/fe8A5fYOO4mlXexhI1hv1x85Z +VXTMfDT2a5HsT/fF3uUX1NGR1+7W5ZtMcv4vl62t6aZjkWXqzY86ZP0L9YKR +aTo2cV+90qtKQO7rnSOf5ugodMFEN16FgGy7fUlji3SMdiO41DeQ8dyU3PVH +UAEdCC3NBLKfJsxzXFdSFNCcCkx+sv+GpvJFMs0UMC04XuS0JAHM8oqic+cU +0OfDOb6z/zjwklpeuOWCAjY8GFPlX+BAzLnrBVOFCngnn7Uidp4Dt+PLLjpe +V0Dhbxo/dvwh+79bUZ7wXQVsoQSE85DnhfV82Rkn3ilgr32byftR8rzjHRt3 +QIWB/wYObvzbzoGavkPHFDUYOOYfYbThEQecrQ4e7dNioPp5KxW3Vg5kau0/ +rAkMnNG1zC5/wAGhFbsPjjswsCs7olu3ngNL6vwig6IZ2Mxd/2HsBgcmRa18 +tjUzsGSO/1FnCgcGw+i9ux4xcImXlXEKeZ5qapuDY48ZeBfX+pmf4EBGTLn8 +tX4GpqZW5tTHc2DjyIo3s18ZWDA5PZ14kAMRnCeel8QUcXNs+PcbgRz4auey +YzRAEQe9GeZmhhwYTfPZtpdfCcsoJxmrvrDB8ke05Qfttfhv9l6KvxYbvvsL +7Ks+tg49thTztRCV5PeDJM/J5vX4+nyC/NGXFSDarZTO/qGMKyU9PogtLwfZ +5Cp7bW0V9O4+WS/Hex3yNuitEgtWxazGrZfUJK9Cp4yR1q+zarh+weJMiHYp +6Ms2Z6j3q6PIt/KjE1pXQJi3OMo3YSP+2/770/qgy0CJl2duV9LA2ifWwqcF +C0FQ0aPW8ZEGljeUV0mkXQA1lnRVtKcmXupW0L5zNA/2Dou2WHFtwhOlJoRd +WA78+JXmYpm3CQMF9/JVdGSCuXpbvqXqZrRI7NrYFpYB938ZzP/u2YzG/puT +tLXTIEJF88V/gVqoaEVhSbskA2s8oG+7oDauKVRdZ5WXCFsYUjZCxdro86f6 +qVJSPKyLSznYrKODO95ESwzdPQLKgXqNii90sGvKxtLj7kEIvL8zsXqPLgrp +/JS6WhMFjUV9AZOr9bDnnuvHydlImLq2+Fv9th6Kd/QW/nsQCh+3mRWdqtND ++y162c8rQmFwyWmL9w16OHV4t3l9big0+MicP9ekh8caJZ5UhIdCgpSW/kKH +HqoX+ZZqyYTCquRdhztf6eH8wvHjvft3gUrwc65AHn00yr3C91c7BPwVywXz +bfTRad/o4dtvgiCm1WuXkr0+TkvYGJs/DoKMQNEuwlEfJR0fwYc7QXC39FBa +l6s+XtIJb7bODAJxJYuVC776WHJwH2/zliBoU/og7nNAH1ewnAK2VgWC8jp5 +qlKhPvrYJZYVpQXApHKWNjGhj7lbud6fifCDwce4ReyXPk4c5BWO9/aDpohx +p6hp8nkjQV8P2/tBOmG5R3tOH+Wt/hVka/qBsj5XRT2vAbYN37Ix+e0Lfpbh +tBYJAzR+bxqTl+ALfcHmK/qYBvhM3N/8T5EP3CmZfzedbICm5e2v02Y8Qdsk +6rdVqgEKSK2mf3ntCTXvvq8oOm2AYeEx61xbPYGgDOtYZRqgv2Gnw85sT6jI +azpdcMEABffP/vTc5AlFaUl65pUGeJqb7XM6ygNORa08m/fMAC3LHprV8O4A +d1MFNKAwcXmIQvSsoxss9AkIt1CZqFg2oFPHdIOiwPGXVgpMjO/fOZmi5AYf +T9RFu69jolDdHCVgzhX2dthVHdJk4sV5XvHvxa6QYnuYcseMiXqxbrPmv7dB +vdvzv5t3M9Fqcdn+1xUusCb8ZJ1aExPb7/ddX7RwgvTFIK3UZiYynqv+ldR1 +Ap5MM86nh0zcvST8MGutE3yt5bte1EGOJ80zWsXnBPVciXmiz5jIN63mpdHi +CO7ZcdEzH/4/vz3xhegIeQ2HtO4vZ2F1QN2+MVMHWL0sjGPjysIQaFsQfG8L +JSZHYia2s/Ds8TlTiYe2oHkk3STLg4UX9U/YGpbagu0E+/mgLwuPmzY4vQu2 +hRP907P+YSwskZ7sjxy3gT/Fx4xj4llo3JUSeoXLBl4YZD0rK2dhsUpRWZuu +NezcX3LRspKFiaGRi3Q5a5iprAn8zmbhSqMLKXnc1iBKH/ytUcvCtUbKX3o6 +rcBaQE72XhMLx+5/uxzkZQV3+8oCnj1nYcaFt/82pliClfAd1QODLJwd+s9N +MtISBs07ZqRestCvW6Fq9TZLmKr/luz1loWqA/x87nRLUL288eaXr+T6RTW2 +LDZYwN0XRgfSxlgYc0B7z5ViC7ASdwL1CRYuLhXg9T5lAUEn9/8XNc3CvTuL +hWRdLWCq6US+5B8WDiQ7+MoZWkDCXK5//RwLQ8PP92opWsCqzddVPBdYuEV+ +mWXgCgsoCK+fXlxkYY8q3Cn/ZQ7/Ay0/F34= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "PlotRange" -> {{0, 30}, {0., 0.07212772616948562}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -13118,19 +14171,19 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "PlotRange" -> {{0, 30}, {0., 0.07212772616948562}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13144,210 +14197,124 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo -yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ -e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt -CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 -SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr -J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX -du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch -VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU -v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt -EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 -uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi -NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L -I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ -bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A -1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f -CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b -RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf -p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 -c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY -doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm -Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 -784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw -+0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s -GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs -uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL -iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G -ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ -nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU -gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 -XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU -m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l -bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy -I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 -zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ -mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK -vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G -UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ -xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 -fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu -FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu -g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ -l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX -V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ -eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 -3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA -G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN -mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H -L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep -5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj -JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT -+jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs -FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v -HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax -9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L -lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 -Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV -lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E -uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh -RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY -ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ -8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI -MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q -4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD -b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ -sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU -0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK -VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv -vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA -0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES -2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO -EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 -OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb -5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl -Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN -+dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi -yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O -GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ -8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho -q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for -sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl -KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob -v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N -1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB -w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg -d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw -7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF -XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi -teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD -A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD -wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 -HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 -yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 -tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn -y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ -71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB -hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy -C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC -ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ -rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 -1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H -7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 -32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l -Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq -gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij -tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp -MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq -2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 -nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM -D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU -RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb -MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr -fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 -GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h -+tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 -PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN -MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 -75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc -5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU -UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw -El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW -q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH -1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK -3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ -lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf -VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy -Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD -25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O -JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI -w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q -hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR -hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv -ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu -jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S -JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue -2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig -DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 -bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 -3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe -etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk -om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe -tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F -X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau -q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 -D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc -PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE -QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc -IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx -bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN -H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 -sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU -K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 -mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi -z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o -YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h -Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 -aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l -cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo -2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 -Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl -z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO -d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da -A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM -VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl -kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC -H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk -4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x -CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl -rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 -pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs -Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US -R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o -IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe -SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U -EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o -0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm -cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru -YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep -KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F -VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs -76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj -6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 -BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi -JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT -/wN9xxCi +1:eJwV13k8VG8XAHBLQkVZssWYGUMlS5R9xjmWrNmJZF+TJZVStCBKSLJEKiS0 +EDM3FCoiskR+JUuLStojCoXkve9f9/P93Jn7PM89zznnuTS/3Y6BPFxcXFRu +Lq7/X2eGOx4yUksMbx4cqX2Za2zYVyB1yGgwAWR/vVE2EqYBrn7iJzWYCafA +ZlZaWAMO2N8Y4B0shgI7KfdFISMQGZfMnB0gwN1LePK5kAO8uWu7e2qgGTwf +Ww7ZC/mCGePr68mBp2BbHPZh6/I9MDugkzMxMAKtgRk55rzx0GJyteS/4l+w +UUB1Q2DOWZB9U/fRT2UBaNm3nB07z4N4mPcNfhNeLCk4t+JaQxFkapg12LoI +4JF9Z3M/F5XAUN7GpslVQnhPLpHwnrkKqSXHnvBIi6BLFCWnUbMcJLPfn8q6 +JIY9P79c3j51E6Q21CT+KSMtuk2pZ+EmyDSfOObJFkNZ25i9TP5KoEys37+2 +RQz3zKz3XCpTCYpbI30aPovh6FOXHXZQCZuWLGi/3ySOktd856uTK8EuSmJU +s1McZzKrDB9JVMFJZ0vDpzOr8b/DDMMvK9kgU90jw8MtgZwaNFcVZ0OlmPNv +jeUS6LnULilcig39T73YZ+UlMJc/r2CEygaGQxTdwUIC6x4k6xdqsKHZpnBp +73kJZH9SaPZ1ZMOC2XRPN1MSXVu9qgTPsiGjLKZ8wUwST502KHmWTf5/KVey +qoMkbrJLbjmfx4atrcuMTgdKIjPxeJxMERvyTai3tqZLYmxmz9hYJRt00Tq3 +640kynJ/3fmqiw379C57dyRI4VBKU1s/DwesioSnrNOksFWEK2WMjwN0/sPJ +PTlSaO5RO8klyIHevm2cZ9ekUHTevVJuJQfUIlfwDvdIYdT61JdqazjwuSy6 +7KeMNCb2m3OzNTngIW47tuaWNC7xy8xQ9ebAptiG+IK70ui4O/3doC8Hlo2s +k6C1SSOVUj4QF8CBuipeUBqSRua74lttIRyQsK7L2LgojfO7bFWVo8jx4xmb +t1jLoEGptJF9MgdMf8zFRLyXwVWuDmPSlRw4ZJGt/OC7DFLybZ7bsjlQeVn1 +hdiMDNp/SU+OIzgg5eyjVyewBkXPVDu8qOXA9zutv3nV1mBkZWpUcCMHshIy +os4fXIMVUdHqn59wYGS1UsRDIVls9fM0SRrngOTuRjlJSVk8p6i+wnmCA1vb +3bpDqLI47379mvxPDtTGpKqs3CSLba1vPW9OcyDlzcTX7W6yeOjk2ebivxzQ +vN4Q/KNYFgsDzj+YFiQgnungK6Mrh+KH7q4HOgEWXgU/dYzl8E2G0+1HCgQI +x3077rJVDp16H5zbqkjAxZaksgwfObRW3G5jvY6AO1b135aeksPOpRuuy6oR +MOGmcODXkBz2dc5cXKlHwO2YSH6RUTlc8ZaT5qlPwNGL9/LUxuXQf/TywFUD +Ala8dW0I4aGg3tuieA1DAtYGp3G9Vaag5dhLHWkTArz2T6c8jqVglaJwo/5W +AhRzjWW/JlEwt+pQla0NQb6/Mzf5Myh4uLuAz9uWgJi/63uNSyjo5DL8Icqe +gJzjXqvrHlPwY9n3U/udCfAoLS/r76eghMhAQ5gLAfRHf3Sm3lKQMb1uu882 +AtjLstzVpykYvuTHINONgMdnHxWWysljkH41d9cOArJuiWu0rJXHL40JV0o9 +yDr03Lf5rYY8qtdU1B72JOCz1N/RNWby6BRJ20z1JoC3aKNyZoQ8luarX2b6 +EaBfeb76aKM8bpcLmuoKJsB0oGdhvF0eTeYdbPx3EmDLtcTc+6k83ondmfeb +tL9jxBB8kMe/oY/4JXcRYBZLOxbHR0XriW1eGmEEdK28e0V3GRW7LS7uYJO2 +L9nWPiFMxbLTifYq4QTs6E4V8ZWi4nKOAGNNBAGR8jNXjDZQUVvwXFLfbgKm +b2W0z6pT8bpgiZNBJPn+LDaMcTZTMfrAP0oh6aQ9Ptp0Qyo2NsSyPfcQsGzp +vPsLYyqaC4gevEM6Iz/nWKY5Fe2vvYRVewnIb+ls53Gg4j3eP09rScu7BY7V +u1Bx74aHhXz7CCj5viiyz52KRkdrdzuQrlqtteO9PxUniwRk35LefOPJsQs7 +qZjf+mmWHkVAveGuEqdwKk7f+/baj/TD4MKxlgNUrHm7s2GItOVfPdHDsVQ8 +qRtcu2o/AT0Zfdqb46j48V52vSlpZ8XdO74nUtF4oKZ9P+mhOsG4klNUvHDl +zLsrpL1sS0o80qkoMPeJ7wnp0RHDDvEsKhqEJGn/Jh0SPTT2OJccX1s9SvYA +AePLo0STLlLxuPfNRkPS+4qEdViXyfXntEt7kf6z+fqO6VLSaHU8hvTRDpO4 +mzeoeOrI379ZpHm9hksCq6iYTrlx8gbp5J8HO+SqqTh7jcK4T1r4pNj48ztU +/Omi9KyHdNaaStH0e2Q8RdJzXpGWYlvomDVT8WGMQtgn0pdM3+/410ZF7pFq +1x+k6UNH4mq7yPEsRbZPkb4WLlUa0UvFlACBPTOkVXludSg9J+N9blfRNGni +nM348BAVj/4S+DxJWnfDZ9HcYSqKGdZYfCN9rzFBx+49Fb0/G7W8I23sLOfB +/5mKzaIJbs9JP/p8O67xOxWPpVoKtpHeesSxNHqSjG9PWP8t0k9FxjrUZ6iY +zPugqYC0a9nJ8U9zVFTmku04QfqVPl2saJGK/abOE6Gk/Z7c1XFbQsNTC6hj +S/qTv6vHKkEa8nDXF6iSDvszGdcuREPz3ty1y0jr7wmS+ChKwwpO8KG3ZLwE +vr4o55Wi4SihFHGLdL+fnRFNjob1m78tPU669GVLvyGdhvxxj03tSEc564Z5 +rKXht4cj66RIG3dXcMeo0HBe2rz6Nbm/hu/nqNRo0/B+p1+rF+kKnWXNTw1o ++POxvY0M6Rj2UdcJpGGX8lzcU3L/ShQHJ2ywpuFH/pkfuqTtkvQGL3uT90eW +rBgm84Xy72Z4YwANmxT1RY6R/n6Azvs6hIY7itW7ZEkn71yuJhVFw/Pq4762 +ZP41Wb8+np5Mw7y7Y/opZP6mP3SQrjhNQ5VRx6UipD1YbZUdmTSsU6s+k03m ++6xa1dCSSzQckZd+d5asB5qi8eqxHBqGxXsUBpL1gyt1+mFeLQ3zJ9Nin4aQ ++cK7y722gZzvsLI8k3TotGPSZCsNn/pGP+Aj60/JIONl8AsaPvOczdobSMBe +h/ORSW9oOO6u3d0aQAB2Ci29MkpDa54TA6tJv26Y2Tg8Tv5+3DCggqx3EoXt +J5x56ei+LiLuFlkPRyVZsnsF6Fjx+mzAmBe5/zI4nDNCdMy5WKjAIG2XkP+q +U5KOr/bu00km62tyYJimkQodh0z+DSpvJ9e3YdWwqgsduXvlKC8dCJi5JBO/ +yZ2ObU1/+j+R9X5qpSJDz5t8fmzwhUk7Ml9/6e0yDaHj+lUj1n/JfjHS4D/j +foSOhiEXw8ctCei0vi2cXEpHf+u2djMjcj/fe8A5fYOO4mlXexhI1hv1x85Z +VXTMfDT2a5HsT/fF3uUX1NGR1+7W5ZtMcv4vl62t6aZjkWXqzY86ZP0L9YKR +aTo2cV+90qtKQO7rnSOf5ugodMFEN16FgGy7fUlji3SMdiO41DeQ8dyU3PVH +UAEdCC3NBLKfJsxzXFdSFNCcCkx+sv+GpvJFMs0UMC04XuS0JAHM8oqic+cU +0OfDOb6z/zjwklpeuOWCAjY8GFPlX+BAzLnrBVOFCngnn7Uidp4Dt+PLLjpe +V0Dhbxo/dvwh+79bUZ7wXQVsoQSE85DnhfV82Rkn3ilgr32byftR8rzjHRt3 +QIWB/wYObvzbzoGavkPHFDUYOOYfYbThEQecrQ4e7dNioPp5KxW3Vg5kau0/ +rAkMnNG1zC5/wAGhFbsPjjswsCs7olu3ngNL6vwig6IZ2Mxd/2HsBgcmRa18 +tjUzsGSO/1FnCgcGw+i9ux4xcImXlXEKeZ5qapuDY48ZeBfX+pmf4EBGTLn8 +tX4GpqZW5tTHc2DjyIo3s18ZWDA5PZ14kAMRnCeel8QUcXNs+PcbgRz4auey +YzRAEQe9GeZmhhwYTfPZtpdfCcsoJxmrvrDB8ke05Qfttfhv9l6KvxYbvvsL +7Ks+tg49thTztRCV5PeDJM/J5vX4+nyC/NGXFSDarZTO/qGMKyU9PogtLwfZ +5Cp7bW0V9O4+WS/Hex3yNuitEgtWxazGrZfUJK9Cp4yR1q+zarh+weJMiHYp +6Ms2Z6j3q6PIt/KjE1pXQJi3OMo3YSP+2/770/qgy0CJl2duV9LA2ifWwqcF +C0FQ0aPW8ZEGljeUV0mkXQA1lnRVtKcmXupW0L5zNA/2Dou2WHFtwhOlJoRd +WA78+JXmYpm3CQMF9/JVdGSCuXpbvqXqZrRI7NrYFpYB938ZzP/u2YzG/puT +tLXTIEJF88V/gVqoaEVhSbskA2s8oG+7oDauKVRdZ5WXCFsYUjZCxdro86f6 +qVJSPKyLSznYrKODO95ESwzdPQLKgXqNii90sGvKxtLj7kEIvL8zsXqPLgrp +/JS6WhMFjUV9AZOr9bDnnuvHydlImLq2+Fv9th6Kd/QW/nsQCh+3mRWdqtND ++y162c8rQmFwyWmL9w16OHV4t3l9big0+MicP9ekh8caJZ5UhIdCgpSW/kKH +HqoX+ZZqyYTCquRdhztf6eH8wvHjvft3gUrwc65AHn00yr3C91c7BPwVywXz +bfTRad/o4dtvgiCm1WuXkr0+TkvYGJs/DoKMQNEuwlEfJR0fwYc7QXC39FBa +l6s+XtIJb7bODAJxJYuVC776WHJwH2/zliBoU/og7nNAH1ewnAK2VgWC8jp5 +qlKhPvrYJZYVpQXApHKWNjGhj7lbud6fifCDwce4ReyXPk4c5BWO9/aDpohx +p6hp8nkjQV8P2/tBOmG5R3tOH+Wt/hVka/qBsj5XRT2vAbYN37Ix+e0Lfpbh +tBYJAzR+bxqTl+ALfcHmK/qYBvhM3N/8T5EP3CmZfzedbICm5e2v02Y8Qdsk +6rdVqgEKSK2mf3ntCTXvvq8oOm2AYeEx61xbPYGgDOtYZRqgv2Gnw85sT6jI +azpdcMEABffP/vTc5AlFaUl65pUGeJqb7XM6ygNORa08m/fMAC3LHprV8O4A +d1MFNKAwcXmIQvSsoxss9AkIt1CZqFg2oFPHdIOiwPGXVgpMjO/fOZmi5AYf +T9RFu69jolDdHCVgzhX2dthVHdJk4sV5XvHvxa6QYnuYcseMiXqxbrPmv7dB +vdvzv5t3M9Fqcdn+1xUusCb8ZJ1aExPb7/ddX7RwgvTFIK3UZiYynqv+ldR1 +Ap5MM86nh0zcvST8MGutE3yt5bte1EGOJ80zWsXnBPVciXmiz5jIN63mpdHi +CO7ZcdEzH/4/vz3xhegIeQ2HtO4vZ2F1QN2+MVMHWL0sjGPjysIQaFsQfG8L +JSZHYia2s/Ds8TlTiYe2oHkk3STLg4UX9U/YGpbagu0E+/mgLwuPmzY4vQu2 +hRP907P+YSwskZ7sjxy3gT/Fx4xj4llo3JUSeoXLBl4YZD0rK2dhsUpRWZuu +NezcX3LRspKFiaGRi3Q5a5iprAn8zmbhSqMLKXnc1iBKH/ytUcvCtUbKX3o6 +rcBaQE72XhMLx+5/uxzkZQV3+8oCnj1nYcaFt/82pliClfAd1QODLJwd+s9N +MtISBs07ZqRestCvW6Fq9TZLmKr/luz1loWqA/x87nRLUL288eaXr+T6RTW2 +LDZYwN0XRgfSxlgYc0B7z5ViC7ASdwL1CRYuLhXg9T5lAUEn9/8XNc3CvTuL +hWRdLWCq6US+5B8WDiQ7+MoZWkDCXK5//RwLQ8PP92opWsCqzddVPBdYuEV+ +mWXgCgsoCK+fXlxkYY8q3Cn/ZQ7/Ay0/F34= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "PlotRange" -> {{0, 30}, {0., 0.07212772616948562}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13358,6 +14325,7 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -13385,7 +14353,8 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.22160540372702894`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07212772616948562}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -13393,17 +14362,595 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913381496467495`*^9}, + CellChangeTimes->{3.9913381496467495`*^9, 3.9942545062351*^9}, CellLabel-> - "Out[304]=",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] + "Out[140]=",ExpressionUUID->"669075eb-b8a5-448b-8670-bb0f3c4e4b95"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"ea848967-083d-ea47-bce0-\ -5c3b93725916"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k8VG8XAHBLQkVZssWYGUMlS5R9xjmWrNmJZF+TJZVStCBKSLJEKiS0 +EDM3FCoiskR+JUuLStojCoXkve9f9/P93Jn7PM89zznnuTS/3Y6BPFxcXFRu +Lq7/X2eGOx4yUksMbx4cqX2Za2zYVyB1yGgwAWR/vVE2EqYBrn7iJzWYCafA +ZlZaWAMO2N8Y4B0shgI7KfdFISMQGZfMnB0gwN1LePK5kAO8uWu7e2qgGTwf +Ww7ZC/mCGePr68mBp2BbHPZh6/I9MDugkzMxMAKtgRk55rzx0GJyteS/4l+w +UUB1Q2DOWZB9U/fRT2UBaNm3nB07z4N4mPcNfhNeLCk4t+JaQxFkapg12LoI +4JF9Z3M/F5XAUN7GpslVQnhPLpHwnrkKqSXHnvBIi6BLFCWnUbMcJLPfn8q6 +JIY9P79c3j51E6Q21CT+KSMtuk2pZ+EmyDSfOObJFkNZ25i9TP5KoEys37+2 +RQz3zKz3XCpTCYpbI30aPovh6FOXHXZQCZuWLGi/3ySOktd856uTK8EuSmJU +s1McZzKrDB9JVMFJZ0vDpzOr8b/DDMMvK9kgU90jw8MtgZwaNFcVZ0OlmPNv +jeUS6LnULilcig39T73YZ+UlMJc/r2CEygaGQxTdwUIC6x4k6xdqsKHZpnBp +73kJZH9SaPZ1ZMOC2XRPN1MSXVu9qgTPsiGjLKZ8wUwST502KHmWTf5/KVey +qoMkbrJLbjmfx4atrcuMTgdKIjPxeJxMERvyTai3tqZLYmxmz9hYJRt00Tq3 +640kynJ/3fmqiw379C57dyRI4VBKU1s/DwesioSnrNOksFWEK2WMjwN0/sPJ +PTlSaO5RO8klyIHevm2cZ9ekUHTevVJuJQfUIlfwDvdIYdT61JdqazjwuSy6 +7KeMNCb2m3OzNTngIW47tuaWNC7xy8xQ9ebAptiG+IK70ui4O/3doC8Hlo2s +k6C1SSOVUj4QF8CBuipeUBqSRua74lttIRyQsK7L2LgojfO7bFWVo8jx4xmb +t1jLoEGptJF9MgdMf8zFRLyXwVWuDmPSlRw4ZJGt/OC7DFLybZ7bsjlQeVn1 +hdiMDNp/SU+OIzgg5eyjVyewBkXPVDu8qOXA9zutv3nV1mBkZWpUcCMHshIy +os4fXIMVUdHqn59wYGS1UsRDIVls9fM0SRrngOTuRjlJSVk8p6i+wnmCA1vb +3bpDqLI47379mvxPDtTGpKqs3CSLba1vPW9OcyDlzcTX7W6yeOjk2ebivxzQ +vN4Q/KNYFgsDzj+YFiQgnungK6Mrh+KH7q4HOgEWXgU/dYzl8E2G0+1HCgQI +x3077rJVDp16H5zbqkjAxZaksgwfObRW3G5jvY6AO1b135aeksPOpRuuy6oR +MOGmcODXkBz2dc5cXKlHwO2YSH6RUTlc8ZaT5qlPwNGL9/LUxuXQf/TywFUD +Ala8dW0I4aGg3tuieA1DAtYGp3G9Vaag5dhLHWkTArz2T6c8jqVglaJwo/5W +AhRzjWW/JlEwt+pQla0NQb6/Mzf5Myh4uLuAz9uWgJi/63uNSyjo5DL8Icqe +gJzjXqvrHlPwY9n3U/udCfAoLS/r76eghMhAQ5gLAfRHf3Sm3lKQMb1uu882 +AtjLstzVpykYvuTHINONgMdnHxWWysljkH41d9cOArJuiWu0rJXHL40JV0o9 +yDr03Lf5rYY8qtdU1B72JOCz1N/RNWby6BRJ20z1JoC3aKNyZoQ8luarX2b6 +EaBfeb76aKM8bpcLmuoKJsB0oGdhvF0eTeYdbPx3EmDLtcTc+6k83ondmfeb +tL9jxBB8kMe/oY/4JXcRYBZLOxbHR0XriW1eGmEEdK28e0V3GRW7LS7uYJO2 +L9nWPiFMxbLTifYq4QTs6E4V8ZWi4nKOAGNNBAGR8jNXjDZQUVvwXFLfbgKm +b2W0z6pT8bpgiZNBJPn+LDaMcTZTMfrAP0oh6aQ9Ptp0Qyo2NsSyPfcQsGzp +vPsLYyqaC4gevEM6Iz/nWKY5Fe2vvYRVewnIb+ls53Gg4j3eP09rScu7BY7V +u1Bx74aHhXz7CCj5viiyz52KRkdrdzuQrlqtteO9PxUniwRk35LefOPJsQs7 +qZjf+mmWHkVAveGuEqdwKk7f+/baj/TD4MKxlgNUrHm7s2GItOVfPdHDsVQ8 +qRtcu2o/AT0Zfdqb46j48V52vSlpZ8XdO74nUtF4oKZ9P+mhOsG4klNUvHDl +zLsrpL1sS0o80qkoMPeJ7wnp0RHDDvEsKhqEJGn/Jh0SPTT2OJccX1s9SvYA +AePLo0STLlLxuPfNRkPS+4qEdViXyfXntEt7kf6z+fqO6VLSaHU8hvTRDpO4 +mzeoeOrI379ZpHm9hksCq6iYTrlx8gbp5J8HO+SqqTh7jcK4T1r4pNj48ztU +/Omi9KyHdNaaStH0e2Q8RdJzXpGWYlvomDVT8WGMQtgn0pdM3+/410ZF7pFq +1x+k6UNH4mq7yPEsRbZPkb4WLlUa0UvFlACBPTOkVXludSg9J+N9blfRNGni +nM348BAVj/4S+DxJWnfDZ9HcYSqKGdZYfCN9rzFBx+49Fb0/G7W8I23sLOfB +/5mKzaIJbs9JP/p8O67xOxWPpVoKtpHeesSxNHqSjG9PWP8t0k9FxjrUZ6iY +zPugqYC0a9nJ8U9zVFTmku04QfqVPl2saJGK/abOE6Gk/Z7c1XFbQsNTC6hj +S/qTv6vHKkEa8nDXF6iSDvszGdcuREPz3ty1y0jr7wmS+ChKwwpO8KG3ZLwE +vr4o55Wi4SihFHGLdL+fnRFNjob1m78tPU669GVLvyGdhvxxj03tSEc564Z5 +rKXht4cj66RIG3dXcMeo0HBe2rz6Nbm/hu/nqNRo0/B+p1+rF+kKnWXNTw1o ++POxvY0M6Rj2UdcJpGGX8lzcU3L/ShQHJ2ywpuFH/pkfuqTtkvQGL3uT90eW +rBgm84Xy72Z4YwANmxT1RY6R/n6Azvs6hIY7itW7ZEkn71yuJhVFw/Pq4762 +ZP41Wb8+np5Mw7y7Y/opZP6mP3SQrjhNQ5VRx6UipD1YbZUdmTSsU6s+k03m ++6xa1dCSSzQckZd+d5asB5qi8eqxHBqGxXsUBpL1gyt1+mFeLQ3zJ9Nin4aQ ++cK7y722gZzvsLI8k3TotGPSZCsNn/pGP+Aj60/JIONl8AsaPvOczdobSMBe +h/ORSW9oOO6u3d0aQAB2Ci29MkpDa54TA6tJv26Y2Tg8Tv5+3DCggqx3EoXt +J5x56ei+LiLuFlkPRyVZsnsF6Fjx+mzAmBe5/zI4nDNCdMy5WKjAIG2XkP+q +U5KOr/bu00km62tyYJimkQodh0z+DSpvJ9e3YdWwqgsduXvlKC8dCJi5JBO/ +yZ2ObU1/+j+R9X5qpSJDz5t8fmzwhUk7Ml9/6e0yDaHj+lUj1n/JfjHS4D/j +foSOhiEXw8ctCei0vi2cXEpHf+u2djMjcj/fe8A5fYOO4mlXexhI1hv1x85Z +VXTMfDT2a5HsT/fF3uUX1NGR1+7W5ZtMcv4vl62t6aZjkWXqzY86ZP0L9YKR +aTo2cV+90qtKQO7rnSOf5ugodMFEN16FgGy7fUlji3SMdiO41DeQ8dyU3PVH +UAEdCC3NBLKfJsxzXFdSFNCcCkx+sv+GpvJFMs0UMC04XuS0JAHM8oqic+cU +0OfDOb6z/zjwklpeuOWCAjY8GFPlX+BAzLnrBVOFCngnn7Uidp4Dt+PLLjpe +V0Dhbxo/dvwh+79bUZ7wXQVsoQSE85DnhfV82Rkn3ilgr32byftR8rzjHRt3 +QIWB/wYObvzbzoGavkPHFDUYOOYfYbThEQecrQ4e7dNioPp5KxW3Vg5kau0/ +rAkMnNG1zC5/wAGhFbsPjjswsCs7olu3ngNL6vwig6IZ2Mxd/2HsBgcmRa18 +tjUzsGSO/1FnCgcGw+i9ux4xcImXlXEKeZ5qapuDY48ZeBfX+pmf4EBGTLn8 +tX4GpqZW5tTHc2DjyIo3s18ZWDA5PZ14kAMRnCeel8QUcXNs+PcbgRz4auey +YzRAEQe9GeZmhhwYTfPZtpdfCcsoJxmrvrDB8ke05Qfttfhv9l6KvxYbvvsL +7Ks+tg49thTztRCV5PeDJM/J5vX4+nyC/NGXFSDarZTO/qGMKyU9PogtLwfZ +5Cp7bW0V9O4+WS/Hex3yNuitEgtWxazGrZfUJK9Cp4yR1q+zarh+weJMiHYp +6Ms2Z6j3q6PIt/KjE1pXQJi3OMo3YSP+2/770/qgy0CJl2duV9LA2ifWwqcF +C0FQ0aPW8ZEGljeUV0mkXQA1lnRVtKcmXupW0L5zNA/2Dou2WHFtwhOlJoRd +WA78+JXmYpm3CQMF9/JVdGSCuXpbvqXqZrRI7NrYFpYB938ZzP/u2YzG/puT +tLXTIEJF88V/gVqoaEVhSbskA2s8oG+7oDauKVRdZ5WXCFsYUjZCxdro86f6 +qVJSPKyLSznYrKODO95ESwzdPQLKgXqNii90sGvKxtLj7kEIvL8zsXqPLgrp +/JS6WhMFjUV9AZOr9bDnnuvHydlImLq2+Fv9th6Kd/QW/nsQCh+3mRWdqtND ++y162c8rQmFwyWmL9w16OHV4t3l9big0+MicP9ekh8caJZ5UhIdCgpSW/kKH +HqoX+ZZqyYTCquRdhztf6eH8wvHjvft3gUrwc65AHn00yr3C91c7BPwVywXz +bfTRad/o4dtvgiCm1WuXkr0+TkvYGJs/DoKMQNEuwlEfJR0fwYc7QXC39FBa +l6s+XtIJb7bODAJxJYuVC776WHJwH2/zliBoU/og7nNAH1ewnAK2VgWC8jp5 +qlKhPvrYJZYVpQXApHKWNjGhj7lbud6fifCDwce4ReyXPk4c5BWO9/aDpohx +p6hp8nkjQV8P2/tBOmG5R3tOH+Wt/hVka/qBsj5XRT2vAbYN37Ix+e0Lfpbh +tBYJAzR+bxqTl+ALfcHmK/qYBvhM3N/8T5EP3CmZfzedbICm5e2v02Y8Qdsk +6rdVqgEKSK2mf3ntCTXvvq8oOm2AYeEx61xbPYGgDOtYZRqgv2Gnw85sT6jI +azpdcMEABffP/vTc5AlFaUl65pUGeJqb7XM6ygNORa08m/fMAC3LHprV8O4A +d1MFNKAwcXmIQvSsoxss9AkIt1CZqFg2oFPHdIOiwPGXVgpMjO/fOZmi5AYf +T9RFu69jolDdHCVgzhX2dthVHdJk4sV5XvHvxa6QYnuYcseMiXqxbrPmv7dB +vdvzv5t3M9Fqcdn+1xUusCb8ZJ1aExPb7/ddX7RwgvTFIK3UZiYynqv+ldR1 +Ap5MM86nh0zcvST8MGutE3yt5bte1EGOJ80zWsXnBPVciXmiz5jIN63mpdHi +CO7ZcdEzH/4/vz3xhegIeQ2HtO4vZ2F1QN2+MVMHWL0sjGPjysIQaFsQfG8L +JSZHYia2s/Ds8TlTiYe2oHkk3STLg4UX9U/YGpbagu0E+/mgLwuPmzY4vQu2 +hRP907P+YSwskZ7sjxy3gT/Fx4xj4llo3JUSeoXLBl4YZD0rK2dhsUpRWZuu +NezcX3LRspKFiaGRi3Q5a5iprAn8zmbhSqMLKXnc1iBKH/ytUcvCtUbKX3o6 +rcBaQE72XhMLx+5/uxzkZQV3+8oCnj1nYcaFt/82pliClfAd1QODLJwd+s9N +MtISBs07ZqRestCvW6Fq9TZLmKr/luz1loWqA/x87nRLUL288eaXr+T6RTW2 +LDZYwN0XRgfSxlgYc0B7z5ViC7ASdwL1CRYuLhXg9T5lAUEn9/8XNc3CvTuL +hWRdLWCq6US+5B8WDiQ7+MoZWkDCXK5//RwLQ8PP92opWsCqzddVPBdYuEV+ +mWXgCgsoCK+fXlxkYY8q3Cn/ZQ7/Ay0/F34= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VG8XAHBLQkVZssWYGUMlS5R9xjmWrNmJZF+TJZVStCBKSLJEKiS0 +EDM3FCoiskR+JUuLStojCoXkve9f9/P93Jn7PM89zznnuTS/3Y6BPFxcXFRu +Lq7/X2eGOx4yUksMbx4cqX2Za2zYVyB1yGgwAWR/vVE2EqYBrn7iJzWYCafA +ZlZaWAMO2N8Y4B0shgI7KfdFISMQGZfMnB0gwN1LePK5kAO8uWu7e2qgGTwf +Ww7ZC/mCGePr68mBp2BbHPZh6/I9MDugkzMxMAKtgRk55rzx0GJyteS/4l+w +UUB1Q2DOWZB9U/fRT2UBaNm3nB07z4N4mPcNfhNeLCk4t+JaQxFkapg12LoI +4JF9Z3M/F5XAUN7GpslVQnhPLpHwnrkKqSXHnvBIi6BLFCWnUbMcJLPfn8q6 +JIY9P79c3j51E6Q21CT+KSMtuk2pZ+EmyDSfOObJFkNZ25i9TP5KoEys37+2 +RQz3zKz3XCpTCYpbI30aPovh6FOXHXZQCZuWLGi/3ySOktd856uTK8EuSmJU +s1McZzKrDB9JVMFJZ0vDpzOr8b/DDMMvK9kgU90jw8MtgZwaNFcVZ0OlmPNv +jeUS6LnULilcig39T73YZ+UlMJc/r2CEygaGQxTdwUIC6x4k6xdqsKHZpnBp +73kJZH9SaPZ1ZMOC2XRPN1MSXVu9qgTPsiGjLKZ8wUwST502KHmWTf5/KVey +qoMkbrJLbjmfx4atrcuMTgdKIjPxeJxMERvyTai3tqZLYmxmz9hYJRt00Tq3 +640kynJ/3fmqiw379C57dyRI4VBKU1s/DwesioSnrNOksFWEK2WMjwN0/sPJ +PTlSaO5RO8klyIHevm2cZ9ekUHTevVJuJQfUIlfwDvdIYdT61JdqazjwuSy6 +7KeMNCb2m3OzNTngIW47tuaWNC7xy8xQ9ebAptiG+IK70ui4O/3doC8Hlo2s +k6C1SSOVUj4QF8CBuipeUBqSRua74lttIRyQsK7L2LgojfO7bFWVo8jx4xmb +t1jLoEGptJF9MgdMf8zFRLyXwVWuDmPSlRw4ZJGt/OC7DFLybZ7bsjlQeVn1 +hdiMDNp/SU+OIzgg5eyjVyewBkXPVDu8qOXA9zutv3nV1mBkZWpUcCMHshIy +os4fXIMVUdHqn59wYGS1UsRDIVls9fM0SRrngOTuRjlJSVk8p6i+wnmCA1vb +3bpDqLI47379mvxPDtTGpKqs3CSLba1vPW9OcyDlzcTX7W6yeOjk2ebivxzQ +vN4Q/KNYFgsDzj+YFiQgnungK6Mrh+KH7q4HOgEWXgU/dYzl8E2G0+1HCgQI +x3077rJVDp16H5zbqkjAxZaksgwfObRW3G5jvY6AO1b135aeksPOpRuuy6oR +MOGmcODXkBz2dc5cXKlHwO2YSH6RUTlc8ZaT5qlPwNGL9/LUxuXQf/TywFUD +Ala8dW0I4aGg3tuieA1DAtYGp3G9Vaag5dhLHWkTArz2T6c8jqVglaJwo/5W +AhRzjWW/JlEwt+pQla0NQb6/Mzf5Myh4uLuAz9uWgJi/63uNSyjo5DL8Icqe +gJzjXqvrHlPwY9n3U/udCfAoLS/r76eghMhAQ5gLAfRHf3Sm3lKQMb1uu882 +AtjLstzVpykYvuTHINONgMdnHxWWysljkH41d9cOArJuiWu0rJXHL40JV0o9 +yDr03Lf5rYY8qtdU1B72JOCz1N/RNWby6BRJ20z1JoC3aKNyZoQ8luarX2b6 +EaBfeb76aKM8bpcLmuoKJsB0oGdhvF0eTeYdbPx3EmDLtcTc+6k83ondmfeb +tL9jxBB8kMe/oY/4JXcRYBZLOxbHR0XriW1eGmEEdK28e0V3GRW7LS7uYJO2 +L9nWPiFMxbLTifYq4QTs6E4V8ZWi4nKOAGNNBAGR8jNXjDZQUVvwXFLfbgKm +b2W0z6pT8bpgiZNBJPn+LDaMcTZTMfrAP0oh6aQ9Ptp0Qyo2NsSyPfcQsGzp +vPsLYyqaC4gevEM6Iz/nWKY5Fe2vvYRVewnIb+ls53Gg4j3eP09rScu7BY7V +u1Bx74aHhXz7CCj5viiyz52KRkdrdzuQrlqtteO9PxUniwRk35LefOPJsQs7 +qZjf+mmWHkVAveGuEqdwKk7f+/baj/TD4MKxlgNUrHm7s2GItOVfPdHDsVQ8 +qRtcu2o/AT0Zfdqb46j48V52vSlpZ8XdO74nUtF4oKZ9P+mhOsG4klNUvHDl +zLsrpL1sS0o80qkoMPeJ7wnp0RHDDvEsKhqEJGn/Jh0SPTT2OJccX1s9SvYA +AePLo0STLlLxuPfNRkPS+4qEdViXyfXntEt7kf6z+fqO6VLSaHU8hvTRDpO4 +mzeoeOrI379ZpHm9hksCq6iYTrlx8gbp5J8HO+SqqTh7jcK4T1r4pNj48ztU +/Omi9KyHdNaaStH0e2Q8RdJzXpGWYlvomDVT8WGMQtgn0pdM3+/410ZF7pFq +1x+k6UNH4mq7yPEsRbZPkb4WLlUa0UvFlACBPTOkVXludSg9J+N9blfRNGni +nM348BAVj/4S+DxJWnfDZ9HcYSqKGdZYfCN9rzFBx+49Fb0/G7W8I23sLOfB +/5mKzaIJbs9JP/p8O67xOxWPpVoKtpHeesSxNHqSjG9PWP8t0k9FxjrUZ6iY +zPugqYC0a9nJ8U9zVFTmku04QfqVPl2saJGK/abOE6Gk/Z7c1XFbQsNTC6hj +S/qTv6vHKkEa8nDXF6iSDvszGdcuREPz3ty1y0jr7wmS+ChKwwpO8KG3ZLwE +vr4o55Wi4SihFHGLdL+fnRFNjob1m78tPU669GVLvyGdhvxxj03tSEc564Z5 +rKXht4cj66RIG3dXcMeo0HBe2rz6Nbm/hu/nqNRo0/B+p1+rF+kKnWXNTw1o ++POxvY0M6Rj2UdcJpGGX8lzcU3L/ShQHJ2ywpuFH/pkfuqTtkvQGL3uT90eW +rBgm84Xy72Z4YwANmxT1RY6R/n6Azvs6hIY7itW7ZEkn71yuJhVFw/Pq4762 +ZP41Wb8+np5Mw7y7Y/opZP6mP3SQrjhNQ5VRx6UipD1YbZUdmTSsU6s+k03m ++6xa1dCSSzQckZd+d5asB5qi8eqxHBqGxXsUBpL1gyt1+mFeLQ3zJ9Nin4aQ ++cK7y722gZzvsLI8k3TotGPSZCsNn/pGP+Aj60/JIONl8AsaPvOczdobSMBe +h/ORSW9oOO6u3d0aQAB2Ci29MkpDa54TA6tJv26Y2Tg8Tv5+3DCggqx3EoXt +J5x56ei+LiLuFlkPRyVZsnsF6Fjx+mzAmBe5/zI4nDNCdMy5WKjAIG2XkP+q +U5KOr/bu00km62tyYJimkQodh0z+DSpvJ9e3YdWwqgsduXvlKC8dCJi5JBO/ +yZ2ObU1/+j+R9X5qpSJDz5t8fmzwhUk7Ml9/6e0yDaHj+lUj1n/JfjHS4D/j +foSOhiEXw8ctCei0vi2cXEpHf+u2djMjcj/fe8A5fYOO4mlXexhI1hv1x85Z +VXTMfDT2a5HsT/fF3uUX1NGR1+7W5ZtMcv4vl62t6aZjkWXqzY86ZP0L9YKR +aTo2cV+90qtKQO7rnSOf5ugodMFEN16FgGy7fUlji3SMdiO41DeQ8dyU3PVH +UAEdCC3NBLKfJsxzXFdSFNCcCkx+sv+GpvJFMs0UMC04XuS0JAHM8oqic+cU +0OfDOb6z/zjwklpeuOWCAjY8GFPlX+BAzLnrBVOFCngnn7Uidp4Dt+PLLjpe +V0Dhbxo/dvwh+79bUZ7wXQVsoQSE85DnhfV82Rkn3ilgr32byftR8rzjHRt3 +QIWB/wYObvzbzoGavkPHFDUYOOYfYbThEQecrQ4e7dNioPp5KxW3Vg5kau0/ +rAkMnNG1zC5/wAGhFbsPjjswsCs7olu3ngNL6vwig6IZ2Mxd/2HsBgcmRa18 +tjUzsGSO/1FnCgcGw+i9ux4xcImXlXEKeZ5qapuDY48ZeBfX+pmf4EBGTLn8 +tX4GpqZW5tTHc2DjyIo3s18ZWDA5PZ14kAMRnCeel8QUcXNs+PcbgRz4auey +YzRAEQe9GeZmhhwYTfPZtpdfCcsoJxmrvrDB8ke05Qfttfhv9l6KvxYbvvsL +7Ks+tg49thTztRCV5PeDJM/J5vX4+nyC/NGXFSDarZTO/qGMKyU9PogtLwfZ +5Cp7bW0V9O4+WS/Hex3yNuitEgtWxazGrZfUJK9Cp4yR1q+zarh+weJMiHYp +6Ms2Z6j3q6PIt/KjE1pXQJi3OMo3YSP+2/770/qgy0CJl2duV9LA2ifWwqcF +C0FQ0aPW8ZEGljeUV0mkXQA1lnRVtKcmXupW0L5zNA/2Dou2WHFtwhOlJoRd +WA78+JXmYpm3CQMF9/JVdGSCuXpbvqXqZrRI7NrYFpYB938ZzP/u2YzG/puT +tLXTIEJF88V/gVqoaEVhSbskA2s8oG+7oDauKVRdZ5WXCFsYUjZCxdro86f6 +qVJSPKyLSznYrKODO95ESwzdPQLKgXqNii90sGvKxtLj7kEIvL8zsXqPLgrp +/JS6WhMFjUV9AZOr9bDnnuvHydlImLq2+Fv9th6Kd/QW/nsQCh+3mRWdqtND ++y162c8rQmFwyWmL9w16OHV4t3l9big0+MicP9ekh8caJZ5UhIdCgpSW/kKH +HqoX+ZZqyYTCquRdhztf6eH8wvHjvft3gUrwc65AHn00yr3C91c7BPwVywXz +bfTRad/o4dtvgiCm1WuXkr0+TkvYGJs/DoKMQNEuwlEfJR0fwYc7QXC39FBa +l6s+XtIJb7bODAJxJYuVC776WHJwH2/zliBoU/og7nNAH1ewnAK2VgWC8jp5 +qlKhPvrYJZYVpQXApHKWNjGhj7lbud6fifCDwce4ReyXPk4c5BWO9/aDpohx +p6hp8nkjQV8P2/tBOmG5R3tOH+Wt/hVka/qBsj5XRT2vAbYN37Ix+e0Lfpbh +tBYJAzR+bxqTl+ALfcHmK/qYBvhM3N/8T5EP3CmZfzedbICm5e2v02Y8Qdsk +6rdVqgEKSK2mf3ntCTXvvq8oOm2AYeEx61xbPYGgDOtYZRqgv2Gnw85sT6jI +azpdcMEABffP/vTc5AlFaUl65pUGeJqb7XM6ygNORa08m/fMAC3LHprV8O4A +d1MFNKAwcXmIQvSsoxss9AkIt1CZqFg2oFPHdIOiwPGXVgpMjO/fOZmi5AYf +T9RFu69jolDdHCVgzhX2dthVHdJk4sV5XvHvxa6QYnuYcseMiXqxbrPmv7dB +vdvzv5t3M9Fqcdn+1xUusCb8ZJ1aExPb7/ddX7RwgvTFIK3UZiYynqv+ldR1 +Ap5MM86nh0zcvST8MGutE3yt5bte1EGOJ80zWsXnBPVciXmiz5jIN63mpdHi +CO7ZcdEzH/4/vz3xhegIeQ2HtO4vZ2F1QN2+MVMHWL0sjGPjysIQaFsQfG8L +JSZHYia2s/Ds8TlTiYe2oHkk3STLg4UX9U/YGpbagu0E+/mgLwuPmzY4vQu2 +hRP907P+YSwskZ7sjxy3gT/Fx4xj4llo3JUSeoXLBl4YZD0rK2dhsUpRWZuu +NezcX3LRspKFiaGRi3Q5a5iprAn8zmbhSqMLKXnc1iBKH/ytUcvCtUbKX3o6 +rcBaQE72XhMLx+5/uxzkZQV3+8oCnj1nYcaFt/82pliClfAd1QODLJwd+s9N +MtISBs07ZqRestCvW6Fq9TZLmKr/luz1loWqA/x87nRLUL288eaXr+T6RTW2 +LDZYwN0XRgfSxlgYc0B7z5ViC7ASdwL1CRYuLhXg9T5lAUEn9/8XNc3CvTuL +hWRdLWCq6US+5B8WDiQ7+MoZWkDCXK5//RwLQ8PP92opWsCqzddVPBdYuEV+ +mWXgCgsoCK+fXlxkYY8q3Cn/ZQ7/Ay0/F34= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07212772616948562}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07212772616948562}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VG8XAHBLQkVZssWYGUMlS5R9xjmWrNmJZF+TJZVStCBKSLJEKiS0 +EDM3FCoiskR+JUuLStojCoXkve9f9/P93Jn7PM89zznnuTS/3Y6BPFxcXFRu +Lq7/X2eGOx4yUksMbx4cqX2Za2zYVyB1yGgwAWR/vVE2EqYBrn7iJzWYCafA +ZlZaWAMO2N8Y4B0shgI7KfdFISMQGZfMnB0gwN1LePK5kAO8uWu7e2qgGTwf +Ww7ZC/mCGePr68mBp2BbHPZh6/I9MDugkzMxMAKtgRk55rzx0GJyteS/4l+w +UUB1Q2DOWZB9U/fRT2UBaNm3nB07z4N4mPcNfhNeLCk4t+JaQxFkapg12LoI +4JF9Z3M/F5XAUN7GpslVQnhPLpHwnrkKqSXHnvBIi6BLFCWnUbMcJLPfn8q6 +JIY9P79c3j51E6Q21CT+KSMtuk2pZ+EmyDSfOObJFkNZ25i9TP5KoEys37+2 +RQz3zKz3XCpTCYpbI30aPovh6FOXHXZQCZuWLGi/3ySOktd856uTK8EuSmJU +s1McZzKrDB9JVMFJZ0vDpzOr8b/DDMMvK9kgU90jw8MtgZwaNFcVZ0OlmPNv +jeUS6LnULilcig39T73YZ+UlMJc/r2CEygaGQxTdwUIC6x4k6xdqsKHZpnBp +73kJZH9SaPZ1ZMOC2XRPN1MSXVu9qgTPsiGjLKZ8wUwST502KHmWTf5/KVey +qoMkbrJLbjmfx4atrcuMTgdKIjPxeJxMERvyTai3tqZLYmxmz9hYJRt00Tq3 +640kynJ/3fmqiw379C57dyRI4VBKU1s/DwesioSnrNOksFWEK2WMjwN0/sPJ +PTlSaO5RO8klyIHevm2cZ9ekUHTevVJuJQfUIlfwDvdIYdT61JdqazjwuSy6 +7KeMNCb2m3OzNTngIW47tuaWNC7xy8xQ9ebAptiG+IK70ui4O/3doC8Hlo2s +k6C1SSOVUj4QF8CBuipeUBqSRua74lttIRyQsK7L2LgojfO7bFWVo8jx4xmb +t1jLoEGptJF9MgdMf8zFRLyXwVWuDmPSlRw4ZJGt/OC7DFLybZ7bsjlQeVn1 +hdiMDNp/SU+OIzgg5eyjVyewBkXPVDu8qOXA9zutv3nV1mBkZWpUcCMHshIy +os4fXIMVUdHqn59wYGS1UsRDIVls9fM0SRrngOTuRjlJSVk8p6i+wnmCA1vb +3bpDqLI47379mvxPDtTGpKqs3CSLba1vPW9OcyDlzcTX7W6yeOjk2ebivxzQ +vN4Q/KNYFgsDzj+YFiQgnungK6Mrh+KH7q4HOgEWXgU/dYzl8E2G0+1HCgQI +x3077rJVDp16H5zbqkjAxZaksgwfObRW3G5jvY6AO1b135aeksPOpRuuy6oR +MOGmcODXkBz2dc5cXKlHwO2YSH6RUTlc8ZaT5qlPwNGL9/LUxuXQf/TywFUD +Ala8dW0I4aGg3tuieA1DAtYGp3G9Vaag5dhLHWkTArz2T6c8jqVglaJwo/5W +AhRzjWW/JlEwt+pQla0NQb6/Mzf5Myh4uLuAz9uWgJi/63uNSyjo5DL8Icqe +gJzjXqvrHlPwY9n3U/udCfAoLS/r76eghMhAQ5gLAfRHf3Sm3lKQMb1uu882 +AtjLstzVpykYvuTHINONgMdnHxWWysljkH41d9cOArJuiWu0rJXHL40JV0o9 +yDr03Lf5rYY8qtdU1B72JOCz1N/RNWby6BRJ20z1JoC3aKNyZoQ8luarX2b6 +EaBfeb76aKM8bpcLmuoKJsB0oGdhvF0eTeYdbPx3EmDLtcTc+6k83ondmfeb +tL9jxBB8kMe/oY/4JXcRYBZLOxbHR0XriW1eGmEEdK28e0V3GRW7LS7uYJO2 +L9nWPiFMxbLTifYq4QTs6E4V8ZWi4nKOAGNNBAGR8jNXjDZQUVvwXFLfbgKm +b2W0z6pT8bpgiZNBJPn+LDaMcTZTMfrAP0oh6aQ9Ptp0Qyo2NsSyPfcQsGzp +vPsLYyqaC4gevEM6Iz/nWKY5Fe2vvYRVewnIb+ls53Gg4j3eP09rScu7BY7V +u1Bx74aHhXz7CCj5viiyz52KRkdrdzuQrlqtteO9PxUniwRk35LefOPJsQs7 +qZjf+mmWHkVAveGuEqdwKk7f+/baj/TD4MKxlgNUrHm7s2GItOVfPdHDsVQ8 +qRtcu2o/AT0Zfdqb46j48V52vSlpZ8XdO74nUtF4oKZ9P+mhOsG4klNUvHDl +zLsrpL1sS0o80qkoMPeJ7wnp0RHDDvEsKhqEJGn/Jh0SPTT2OJccX1s9SvYA +AePLo0STLlLxuPfNRkPS+4qEdViXyfXntEt7kf6z+fqO6VLSaHU8hvTRDpO4 +mzeoeOrI379ZpHm9hksCq6iYTrlx8gbp5J8HO+SqqTh7jcK4T1r4pNj48ztU +/Omi9KyHdNaaStH0e2Q8RdJzXpGWYlvomDVT8WGMQtgn0pdM3+/410ZF7pFq +1x+k6UNH4mq7yPEsRbZPkb4WLlUa0UvFlACBPTOkVXludSg9J+N9blfRNGni +nM348BAVj/4S+DxJWnfDZ9HcYSqKGdZYfCN9rzFBx+49Fb0/G7W8I23sLOfB +/5mKzaIJbs9JP/p8O67xOxWPpVoKtpHeesSxNHqSjG9PWP8t0k9FxjrUZ6iY +zPugqYC0a9nJ8U9zVFTmku04QfqVPl2saJGK/abOE6Gk/Z7c1XFbQsNTC6hj +S/qTv6vHKkEa8nDXF6iSDvszGdcuREPz3ty1y0jr7wmS+ChKwwpO8KG3ZLwE +vr4o55Wi4SihFHGLdL+fnRFNjob1m78tPU669GVLvyGdhvxxj03tSEc564Z5 +rKXht4cj66RIG3dXcMeo0HBe2rz6Nbm/hu/nqNRo0/B+p1+rF+kKnWXNTw1o ++POxvY0M6Rj2UdcJpGGX8lzcU3L/ShQHJ2ywpuFH/pkfuqTtkvQGL3uT90eW +rBgm84Xy72Z4YwANmxT1RY6R/n6Azvs6hIY7itW7ZEkn71yuJhVFw/Pq4762 +ZP41Wb8+np5Mw7y7Y/opZP6mP3SQrjhNQ5VRx6UipD1YbZUdmTSsU6s+k03m ++6xa1dCSSzQckZd+d5asB5qi8eqxHBqGxXsUBpL1gyt1+mFeLQ3zJ9Nin4aQ ++cK7y722gZzvsLI8k3TotGPSZCsNn/pGP+Aj60/JIONl8AsaPvOczdobSMBe +h/ORSW9oOO6u3d0aQAB2Ci29MkpDa54TA6tJv26Y2Tg8Tv5+3DCggqx3EoXt +J5x56ei+LiLuFlkPRyVZsnsF6Fjx+mzAmBe5/zI4nDNCdMy5WKjAIG2XkP+q +U5KOr/bu00km62tyYJimkQodh0z+DSpvJ9e3YdWwqgsduXvlKC8dCJi5JBO/ +yZ2ObU1/+j+R9X5qpSJDz5t8fmzwhUk7Ml9/6e0yDaHj+lUj1n/JfjHS4D/j +foSOhiEXw8ctCei0vi2cXEpHf+u2djMjcj/fe8A5fYOO4mlXexhI1hv1x85Z +VXTMfDT2a5HsT/fF3uUX1NGR1+7W5ZtMcv4vl62t6aZjkWXqzY86ZP0L9YKR +aTo2cV+90qtKQO7rnSOf5ugodMFEN16FgGy7fUlji3SMdiO41DeQ8dyU3PVH +UAEdCC3NBLKfJsxzXFdSFNCcCkx+sv+GpvJFMs0UMC04XuS0JAHM8oqic+cU +0OfDOb6z/zjwklpeuOWCAjY8GFPlX+BAzLnrBVOFCngnn7Uidp4Dt+PLLjpe +V0Dhbxo/dvwh+79bUZ7wXQVsoQSE85DnhfV82Rkn3ilgr32byftR8rzjHRt3 +QIWB/wYObvzbzoGavkPHFDUYOOYfYbThEQecrQ4e7dNioPp5KxW3Vg5kau0/ +rAkMnNG1zC5/wAGhFbsPjjswsCs7olu3ngNL6vwig6IZ2Mxd/2HsBgcmRa18 +tjUzsGSO/1FnCgcGw+i9ux4xcImXlXEKeZ5qapuDY48ZeBfX+pmf4EBGTLn8 +tX4GpqZW5tTHc2DjyIo3s18ZWDA5PZ14kAMRnCeel8QUcXNs+PcbgRz4auey +YzRAEQe9GeZmhhwYTfPZtpdfCcsoJxmrvrDB8ke05Qfttfhv9l6KvxYbvvsL +7Ks+tg49thTztRCV5PeDJM/J5vX4+nyC/NGXFSDarZTO/qGMKyU9PogtLwfZ +5Cp7bW0V9O4+WS/Hex3yNuitEgtWxazGrZfUJK9Cp4yR1q+zarh+weJMiHYp +6Ms2Z6j3q6PIt/KjE1pXQJi3OMo3YSP+2/770/qgy0CJl2duV9LA2ifWwqcF +C0FQ0aPW8ZEGljeUV0mkXQA1lnRVtKcmXupW0L5zNA/2Dou2WHFtwhOlJoRd +WA78+JXmYpm3CQMF9/JVdGSCuXpbvqXqZrRI7NrYFpYB938ZzP/u2YzG/puT +tLXTIEJF88V/gVqoaEVhSbskA2s8oG+7oDauKVRdZ5WXCFsYUjZCxdro86f6 +qVJSPKyLSznYrKODO95ESwzdPQLKgXqNii90sGvKxtLj7kEIvL8zsXqPLgrp +/JS6WhMFjUV9AZOr9bDnnuvHydlImLq2+Fv9th6Kd/QW/nsQCh+3mRWdqtND ++y162c8rQmFwyWmL9w16OHV4t3l9big0+MicP9ekh8caJZ5UhIdCgpSW/kKH +HqoX+ZZqyYTCquRdhztf6eH8wvHjvft3gUrwc65AHn00yr3C91c7BPwVywXz +bfTRad/o4dtvgiCm1WuXkr0+TkvYGJs/DoKMQNEuwlEfJR0fwYc7QXC39FBa +l6s+XtIJb7bODAJxJYuVC776WHJwH2/zliBoU/og7nNAH1ewnAK2VgWC8jp5 +qlKhPvrYJZYVpQXApHKWNjGhj7lbud6fifCDwce4ReyXPk4c5BWO9/aDpohx +p6hp8nkjQV8P2/tBOmG5R3tOH+Wt/hVka/qBsj5XRT2vAbYN37Ix+e0Lfpbh +tBYJAzR+bxqTl+ALfcHmK/qYBvhM3N/8T5EP3CmZfzedbICm5e2v02Y8Qdsk +6rdVqgEKSK2mf3ntCTXvvq8oOm2AYeEx61xbPYGgDOtYZRqgv2Gnw85sT6jI +azpdcMEABffP/vTc5AlFaUl65pUGeJqb7XM6ygNORa08m/fMAC3LHprV8O4A +d1MFNKAwcXmIQvSsoxss9AkIt1CZqFg2oFPHdIOiwPGXVgpMjO/fOZmi5AYf +T9RFu69jolDdHCVgzhX2dthVHdJk4sV5XvHvxa6QYnuYcseMiXqxbrPmv7dB +vdvzv5t3M9Fqcdn+1xUusCb8ZJ1aExPb7/ddX7RwgvTFIK3UZiYynqv+ldR1 +Ap5MM86nh0zcvST8MGutE3yt5bte1EGOJ80zWsXnBPVciXmiz5jIN63mpdHi +CO7ZcdEzH/4/vz3xhegIeQ2HtO4vZ2F1QN2+MVMHWL0sjGPjysIQaFsQfG8L +JSZHYia2s/Ds8TlTiYe2oHkk3STLg4UX9U/YGpbagu0E+/mgLwuPmzY4vQu2 +hRP907P+YSwskZ7sjxy3gT/Fx4xj4llo3JUSeoXLBl4YZD0rK2dhsUpRWZuu +NezcX3LRspKFiaGRi3Q5a5iprAn8zmbhSqMLKXnc1iBKH/ytUcvCtUbKX3o6 +rcBaQE72XhMLx+5/uxzkZQV3+8oCnj1nYcaFt/82pliClfAd1QODLJwd+s9N +MtISBs07ZqRestCvW6Fq9TZLmKr/luz1loWqA/x87nRLUL288eaXr+T6RTW2 +LDZYwN0XRgfSxlgYc0B7z5ViC7ASdwL1CRYuLhXg9T5lAUEn9/8XNc3CvTuL +hWRdLWCq6US+5B8WDiQ7+MoZWkDCXK5//RwLQ8PP92opWsCqzddVPBdYuEV+ +mWXgCgsoCK+fXlxkYY8q3Cn/ZQ7/Ay0/F34= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07212772616948562}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07212772616948562}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994254506303916*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"ed903ba7-4db9-4a43-ad8f-2471d89402a0"] +}, Open ]], Cell[CellGroupData[{ @@ -13455,66 +15002,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[308]:=",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], + "In[142]:=",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.611115182999938`*^-175\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 308, 309, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133920579224*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.150138650879285`*^-162\\\", \ +RowBox[{\\\"505518991860510123640143147290826802026\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"71\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9512072804761600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 73, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133920579224*^9, 3.994254506348782*^9}, CellLabel-> "During evaluation of \ -In[308]:=",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], +In[142]:=",ExpressionUUID->"574e4a9f-84f0-486a-b7d3-240f7c32fb96"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.5007447195984937`*^-178\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 308, 310, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392058022385`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.1150135592365783`*^-165\\\", \ +RowBox[{\\\"164243120455479739170682508554789627978\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"75\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4724542670438400000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 74, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133920579224*^9, 3.994254506358625*^9}, CellLabel-> "During evaluation of \ -In[308]:=",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], +In[142]:=",ExpressionUUID->"58162ad5-72f1-429f-869e-08c4c0bceb15"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1145242877114216`*^-181\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 308, 311, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339205811241*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.375425804821119`*^-168\\\", \ +RowBox[{\\\"552513857212233842570175958778312308519\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"78\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3361543354777600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 75, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133920579224*^9, 3.9942545063686047`*^9}, CellLabel-> "During evaluation of \ -In[308]:=",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], +In[142]:=",ExpressionUUID->"99dc6bae-d21d-439f-89e4-1b841ba56a06"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 308, 312, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392058197193`*^9}, +during this calculation.\"", 2, 142, 76, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133920579224*^9, 3.9942545063759403`*^9}, CellLabel-> "During evaluation of \ -In[308]:=",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], +In[142]:=",ExpressionUUID->"d4ec7e46-7398-415f-881e-031acf691a11"], -Cell[BoxData["9.33220071900515`"], "Output", - CellChangeTimes->{3.9913392124888554`*^9}, +Cell[BoxData["10.17698242853711`"], "Output", + CellChangeTimes->{3.9913392124888554`*^9, 3.9942545569953957`*^9}, CellLabel-> - "Out[308]=",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] + "Out[142]=",ExpressionUUID->"316ad851-32ec-4655-a2d0-ff9d2c282cd8"] }, Open ]], Cell[CellGroupData[{ @@ -13581,68 +15135,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849547748472*^9, - 3.9918495528702526`*^9}},ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-\ -0895c02ffd8f"], + CellChangeTimes->{{3.991849547748472*^9, 3.9918495528702526`*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 309, 313, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392125258827`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.2173054345055827`*^-201\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 77, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392125258827`*^9, 3.994254557035939*^9}, CellLabel-> "During evaluation of \ -In[309]:=",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], +In[143]:=",ExpressionUUID->"d02761b1-0ce5-4087-8b62-e221c3933247"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 309, - 314, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339212535879*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.929854652394522`*^-206\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 78, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392125258827`*^9, 3.994254557044239*^9}, CellLabel-> "During evaluation of \ -In[309]:=",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], +In[143]:=",ExpressionUUID->"2fb65f25-99a9-4ab3-b500-fe671440dc06"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 309, - 315, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392125438805`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.478543170246017`*^-210\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 79, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392125258827`*^9, 3.994254557050365*^9}, CellLabel-> "During evaluation of \ -In[309]:=",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], +In[143]:=",ExpressionUUID->"5797160d-a1de-4660-80b9-c115ae69e387"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 309, 316, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392125518837`*^9}, +during this calculation.\"", 2, 143, 80, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392125258827`*^9, 3.99425455705709*^9}, CellLabel-> "During evaluation of \ -In[309]:=",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], +In[143]:=",ExpressionUUID->"f57393ec-2631-402a-93d0-507195d4b0e8"], -Cell[BoxData["0.41157157699018565`"], "Output", - CellChangeTimes->{3.9913392196090164`*^9}, +Cell[BoxData["1.0452837208903258`"], "Output", + CellChangeTimes->{3.9913392196090164`*^9, 3.9942545643551197`*^9}, CellLabel-> - "Out[309]=",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] + "Out[143]=",ExpressionUUID->"c85ba06e-3a62-44cf-b70a-b7bb7ccd3c3f"] }, Open ]], Cell[CellGroupData[{ @@ -13663,8 +15224,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -13709,68 +15269,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918495568340263`*^9, - 3.991849559359928*^9}},ExpressionUUID->"57976ffc-56f1-604b-8519-\ -bead95265db8"], + CellChangeTimes->{{3.9918495568340263`*^9, 3.991849559359928*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 310, 317, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392196440163`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.2173054345055827`*^-201\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 81, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392196440163`*^9, 3.99425456440279*^9}, CellLabel-> "During evaluation of \ -In[310]:=",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], +In[144]:=",ExpressionUUID->"cb7e64ee-9656-4f5c-9aa7-169bc7be052a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 310, - 318, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392196535416`*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.929854652394522`*^-206\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 82, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392196440163`*^9, 3.994254564411961*^9}, CellLabel-> "During evaluation of \ -In[310]:=",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], +In[144]:=",ExpressionUUID->"0c0c2988-f99f-4fe6-a755-be6767e678fe"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 310, - 319, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339219661541*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.478543170246017`*^-210\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 83, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392196440163`*^9, 3.994254564420032*^9}, CellLabel-> "During evaluation of \ -In[310]:=",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], +In[144]:=",ExpressionUUID->"80d45a0d-6f1b-4b00-ab37-3129b7f7786c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 310, 320, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339219670542*^9}, +during this calculation.\"", 2, 144, 84, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392196440163`*^9, 3.994254564425811*^9}, CellLabel-> "During evaluation of \ -In[310]:=",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], +In[144]:=",ExpressionUUID->"6ad4ff91-f44a-46a8-8327-188e1ac7960a"], -Cell[BoxData["3.215201591157595`"], "Output", - CellChangeTimes->{3.9913392268711624`*^9}, +Cell[BoxData["30.350399729823522`"], "Output", + CellChangeTimes->{3.9913392268711624`*^9, 3.994254570803491*^9}, CellLabel-> - "Out[310]=",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] + "Out[144]=",ExpressionUUID->"c98c3aa9-31a4-4329-8ab8-1a814152779b"] }, Open ]], Cell[CellGroupData[{ @@ -13791,8 +15358,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -13837,68 +15403,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849563755764*^9, - 3.991849566543682*^9}},ExpressionUUID->"cfa37210-3ae7-3f49-b290-\ -f19508c6d2f1"], + CellChangeTimes->{{3.991849563755764*^9, 3.991849566543682*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 311, 321, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339226907137*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.2173054345055827`*^-201\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 85, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339226907137*^9, 3.9942545708475847`*^9}, CellLabel-> "During evaluation of \ -In[311]:=",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], +In[145]:=",ExpressionUUID->"87d346e5-16c2-46a1-9d51-0e6b1ffeb677"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 311, - 322, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339226917137*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.929854652394522`*^-206\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 86, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339226907137*^9, 3.994254570856949*^9}, CellLabel-> "During evaluation of \ -In[311]:=",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], +In[145]:=",ExpressionUUID->"47da8b16-180f-4514-bae5-544ba6c23ef3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 311, - 323, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392269251385`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.478543170246017`*^-210\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 87, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339226907137*^9, 3.994254570864339*^9}, CellLabel-> "During evaluation of \ -In[311]:=",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], +In[145]:=",ExpressionUUID->"c0dc235b-0089-423c-b8bf-08ef661838fd"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 311, 324, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392269341373`*^9}, +during this calculation.\"", 2, 145, 88, 31387615646182466478, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339226907137*^9, 3.994254570872593*^9}, CellLabel-> "During evaluation of \ -In[311]:=",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], +In[145]:=",ExpressionUUID->"6c62cba4-d49f-4b5d-83da-86bee00a25f7"], -Cell[BoxData["16.94395627212904`"], "Output", - CellChangeTimes->{3.9913392304284153`*^9}, +Cell[BoxData["5.673459940062993`"], "Output", + CellChangeTimes->{3.9913392304284153`*^9, 3.99425457467588*^9}, CellLabel-> - "Out[311]=",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] + "Out[145]=",ExpressionUUID->"8fe2fcd8-024d-43ec-962a-f947be19151d"] }, Open ]], Cell[CellGroupData[{ @@ -13907,24 +15480,24 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991849569404436*^9, - 3.991849573855135*^9}},ExpressionUUID->"7457b456-6d32-5b44-9679-\ -346c5f5ac532"], - -Cell[BoxData["0.05576142449710889`"], "Output", - CellChangeTimes->{3.9913392304624157`*^9}, + CellChangeTimes->{{3.991849569404436*^9, 3.991849573855135*^9}}, CellLabel-> - "Out[312]=",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] + "In[146]:=",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], + +Cell[BoxData["0.07965774038264657`"], "Output", + CellChangeTimes->{3.9913392304624157`*^9, 3.994254574717758*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"6ca22d38-f104-44a1-be8f-b31395ba0e6f"] }, Open ]], Cell[BoxData[ RowBox[{"NotebookSave", "[", "]"}]], "Input", - CellChangeTimes->{{3.994082582019574*^9, - 3.9940825852694483`*^9}},ExpressionUUID->"2fb7cde2-eacb-466b-a6e4-\ -a63fb5fd0f5b"] + CellChangeTimes->{{3.994082582019574*^9, 3.9940825852694483`*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"2fb7cde2-eacb-466b-a6e4-a63fb5fd0f5b"] }, -WindowSize->{714, 435}, -WindowMargins->{{Automatic, 3}, {444, 15}}, +WindowSize->{714, 876}, +WindowMargins->{{-3, Automatic}, {3, Automatic}}, CellContext->Notebook, FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", @@ -13942,615 +15515,642 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 305, 6, 66, "Input",ExpressionUUID->"4e298ab4-090c-4da0-aea5-ba6d78ef8e18"], -Cell[884, 30, 278, 5, 41, "Output",ExpressionUUID->"206d68b1-3695-4924-94b0-a87f9934c78a"] +Cell[576, 22, 300, 5, 36, "Input",ExpressionUUID->"4e298ab4-090c-4da0-aea5-ba6d78ef8e18"], +Cell[879, 29, 299, 5, 41, "Output",ExpressionUUID->"c3b7d690-d5db-4607-b604-6d54e82e5e70"] }, Open ]], Cell[CellGroupData[{ -Cell[1199, 40, 253, 5, 36, "Input",ExpressionUUID->"6473ec2b-5591-4c73-a87a-9b64a1694141"], -Cell[1455, 47, 275, 5, 41, "Output",ExpressionUUID->"9cce42cf-8587-43ae-9123-b20b284a241b"] +Cell[1215, 39, 248, 4, 36, "Input",ExpressionUUID->"6473ec2b-5591-4c73-a87a-9b64a1694141"], +Cell[1466, 45, 296, 5, 41, "Output",ExpressionUUID->"be3ea8ea-8a35-411c-9700-3704be202878"] }, Open ]], Cell[CellGroupData[{ -Cell[1767, 57, 231, 5, 36, "Input",ExpressionUUID->"7d63cd37-a18c-48ac-9ac3-e8b477df1af9"], -Cell[2001, 64, 278, 5, 41, "Output",ExpressionUUID->"84c9c2e3-8b1a-49d8-9691-4dbcfdeb8300"] +Cell[1799, 55, 226, 4, 36, "Input",ExpressionUUID->"7d63cd37-a18c-48ac-9ac3-e8b477df1af9"], +Cell[2028, 61, 299, 5, 41, "Output",ExpressionUUID->"8fba408f-7aa2-4e15-82a2-25914bbbb1e9"] }, Open ]], Cell[CellGroupData[{ -Cell[2316, 74, 180, 4, 36, "Input",ExpressionUUID->"59be669c-29f2-48f3-9246-8922a0283947"], -Cell[2499, 80, 276, 5, 41, "Output",ExpressionUUID->"a4ef0386-515f-4888-91b3-82405acbac04"] +Cell[2364, 71, 175, 3, 36, "Input",ExpressionUUID->"59be669c-29f2-48f3-9246-8922a0283947"], +Cell[2542, 76, 297, 5, 41, "Output",ExpressionUUID->"f6effe4a-d9d3-4b69-83e8-7631e58d5f2f"] }, Open ]], Cell[CellGroupData[{ -Cell[2812, 90, 262, 8, 54, "Input",ExpressionUUID->"fa1e4148-f780-40f5-b87b-7b063d67b4cf"], -Cell[3077, 100, 279, 5, 41, "Output",ExpressionUUID->"3b17abbc-3dc8-4608-9b6b-2ca6280b8f7c"] +Cell[2876, 86, 257, 7, 54, "Input",ExpressionUUID->"fa1e4148-f780-40f5-b87b-7b063d67b4cf"], +Cell[3136, 95, 300, 5, 41, "Output",ExpressionUUID->"6389724e-1b4b-4a69-a0b1-292e18eb7b4b"] }, Open ]], Cell[CellGroupData[{ -Cell[3393, 110, 136, 3, 36, "Input",ExpressionUUID->"6e7f445d-fdd7-4be2-8549-0d163192ed17"], -Cell[3532, 115, 280, 5, 41, "Output",ExpressionUUID->"43b7eaf2-0d6a-476c-8d05-50e89961c15c"] +Cell[3473, 105, 131, 2, 36, "Input",ExpressionUUID->"6e7f445d-fdd7-4be2-8549-0d163192ed17"], +Cell[3607, 109, 303, 5, 41, "Output",ExpressionUUID->"a9d08476-01d1-468d-9979-ec390216cd80"] }, Open ]], Cell[CellGroupData[{ -Cell[3849, 125, 281, 7, 36, "Input",ExpressionUUID->"a0c2d623-9b24-4b8e-9eb1-105882bc0a9d"], -Cell[4133, 134, 292, 5, 41, "Output",ExpressionUUID->"6a07e530-2530-4da5-b9ee-525b013aeb05"] +Cell[3947, 119, 276, 6, 36, "Input",ExpressionUUID->"a0c2d623-9b24-4b8e-9eb1-105882bc0a9d"], +Cell[4226, 127, 313, 5, 41, "Output",ExpressionUUID->"b2187dad-7f7d-49ca-9919-7122e0b5bbee"] }, Open ]], Cell[CellGroupData[{ -Cell[4462, 144, 262, 8, 36, "Input",ExpressionUUID->"90472dd9-931e-492c-93df-c43e7c0755e9"], -Cell[4727, 154, 280, 5, 41, "Output",ExpressionUUID->"7194280a-3a15-4ef8-8c69-64a4ccf18add"] +Cell[4576, 137, 257, 7, 36, "Input",ExpressionUUID->"90472dd9-931e-492c-93df-c43e7c0755e9"], +Cell[4836, 146, 301, 5, 41, "Output",ExpressionUUID->"dceb61b4-bef8-4694-8752-a237b45ebc88"] }, Open ]], Cell[CellGroupData[{ -Cell[5044, 164, 331, 7, 36, "Input",ExpressionUUID->"56576e1d-c32b-44ea-9085-551c6fcb2175"], -Cell[5378, 173, 260, 5, 41, "Output",ExpressionUUID->"f3556d5e-3bf3-4d1d-a440-9665e74a334e"] +Cell[5174, 156, 326, 6, 36, "Input",ExpressionUUID->"56576e1d-c32b-44ea-9085-551c6fcb2175"], +Cell[5503, 164, 277, 4, 41, "Output",ExpressionUUID->"5fcfdd62-0290-4e9b-b409-fe171d990259"] }, Open ]], Cell[CellGroupData[{ -Cell[5675, 183, 229, 5, 36, "Input",ExpressionUUID->"e31cedbb-e428-4119-a831-920ffad8dd12"], -Cell[5907, 190, 260, 5, 41, "Output",ExpressionUUID->"8090d2d8-56a2-46bf-a2d1-8b13489eee46"] +Cell[5817, 173, 225, 4, 36, "Input",ExpressionUUID->"e31cedbb-e428-4119-a831-920ffad8dd12"], +Cell[6045, 179, 278, 4, 41, "Output",ExpressionUUID->"da5720cd-7820-4f2b-9385-70eebbb3ea69"] }, Open ]], Cell[CellGroupData[{ -Cell[6204, 200, 133, 3, 36, "Input",ExpressionUUID->"918056cc-c05d-4810-b116-998fa8098ec4"], -Cell[6340, 205, 276, 5, 41, "Output",ExpressionUUID->"5c0eccf8-631a-4269-b7fb-bf96be1f802e"] +Cell[6360, 188, 129, 2, 36, "Input",ExpressionUUID->"918056cc-c05d-4810-b116-998fa8098ec4"], +Cell[6492, 192, 298, 5, 41, "Output",ExpressionUUID->"216df189-bbaa-496f-bddb-090c3bcfd06b"] }, Open ]], Cell[CellGroupData[{ -Cell[6653, 215, 133, 3, 36, "Input",ExpressionUUID->"ac10ced6-d951-4da9-a896-f8316432c8e3"], -Cell[6789, 220, 278, 5, 41, "Output",ExpressionUUID->"57a81b2d-1310-4588-9519-161aa2fe281e"] +Cell[6827, 202, 129, 2, 36, "Input",ExpressionUUID->"ac10ced6-d951-4da9-a896-f8316432c8e3"], +Cell[6959, 206, 300, 5, 41, "Output",ExpressionUUID->"eb98d8b7-4a9c-4e66-8096-57ef3c886e93"] }, Open ]], Cell[CellGroupData[{ -Cell[7104, 230, 561, 20, 100, "Input",ExpressionUUID->"d6c3ee5c-86fa-4d04-a777-4822adca9d43"], -Cell[7668, 252, 296, 5, 41, "Output",ExpressionUUID->"c871e321-70e3-482c-9fb8-9fbba6ad7b79"] +Cell[7296, 216, 557, 19, 100, "Input",ExpressionUUID->"d6c3ee5c-86fa-4d04-a777-4822adca9d43"], +Cell[7856, 237, 318, 5, 41, "Output",ExpressionUUID->"2e1698c9-c908-40f9-9cfc-40f0cb548a39"] }, Open ]], Cell[CellGroupData[{ -Cell[8001, 262, 561, 20, 100, "Input",ExpressionUUID->"408796d0-515b-4b34-a6b5-e3aa98dfd1b8"], -Cell[8565, 284, 292, 5, 41, "Output",ExpressionUUID->"29520099-73ad-4943-974b-01e47263b244"] +Cell[8211, 247, 557, 19, 100, "Input",ExpressionUUID->"408796d0-515b-4b34-a6b5-e3aa98dfd1b8"], +Cell[8771, 268, 316, 5, 41, "Output",ExpressionUUID->"531496e7-98fb-4bba-8041-0abc06b23b73"] }, Open ]], Cell[CellGroupData[{ -Cell[8894, 294, 1592, 51, 215, "Input",ExpressionUUID->"d8c750a6-8362-4fb1-8306-87c9f653c3bc"], -Cell[10489, 347, 292, 5, 41, "Output",ExpressionUUID->"65dfa6fa-c9e8-4ced-bfc8-a1d422b52c37"] +Cell[9124, 278, 1588, 50, 215, "Input",ExpressionUUID->"d8c750a6-8362-4fb1-8306-87c9f653c3bc"], +Cell[10715, 330, 314, 5, 41, "Output",ExpressionUUID->"67558fa1-99f9-4caa-b443-006a0de18318"] }, Open ]], Cell[CellGroupData[{ -Cell[10818, 357, 1426, 47, 215, "Input",ExpressionUUID->"deb05e31-1a99-4582-b1c3-a739e1144c15"], -Cell[12247, 406, 308, 6, 41, "Output",ExpressionUUID->"77032548-4f88-49bf-a239-4409a96c56b9"] +Cell[11066, 340, 1422, 46, 215, "Input",ExpressionUUID->"deb05e31-1a99-4582-b1c3-a739e1144c15"], +Cell[12491, 388, 330, 6, 41, "Output",ExpressionUUID->"6916aeb7-35df-4ee7-bed4-87a977fe9846"] }, Open ]], Cell[CellGroupData[{ -Cell[12592, 417, 1426, 47, 215, "Input",ExpressionUUID->"dc419b82-3e31-41ce-8589-70f766ca6f26"], -Cell[14021, 466, 312, 6, 41, "Output",ExpressionUUID->"a7d81ae2-d9db-4f55-9c43-152551ad884d"] +Cell[12858, 399, 1422, 46, 215, "Input",ExpressionUUID->"dc419b82-3e31-41ce-8589-70f766ca6f26"], +Cell[14283, 447, 336, 6, 41, "Output",ExpressionUUID->"331a0ceb-7485-49ae-a878-9edc764545a7"] }, Open ]], Cell[CellGroupData[{ -Cell[14370, 477, 1592, 51, 215, "Input",ExpressionUUID->"a10d564e-16e0-47f2-b771-9f70a658934f"], -Cell[15965, 530, 288, 5, 41, "Output",ExpressionUUID->"3e6b4174-a2c3-4a1e-996b-c162b8c2fd48"] +Cell[14656, 458, 1588, 50, 215, "Input",ExpressionUUID->"a10d564e-16e0-47f2-b771-9f70a658934f"], +Cell[16247, 510, 310, 5, 41, "Output",ExpressionUUID->"96c8a9d7-9d09-4e15-8b0c-5d40608eb667"] }, Open ]], Cell[CellGroupData[{ -Cell[16290, 540, 135, 3, 36, "Input",ExpressionUUID->"9829bcde-f304-448c-aa51-24654c147ae6"], -Cell[16428, 545, 277, 5, 41, "Output",ExpressionUUID->"1c391cdf-80a5-4d9f-a2bf-983a9ee18996"] +Cell[16594, 520, 131, 2, 36, "Input",ExpressionUUID->"9829bcde-f304-448c-aa51-24654c147ae6"], +Cell[16728, 524, 299, 5, 41, "Output",ExpressionUUID->"7c4dfbbd-37e0-449d-897a-cf6d06dafb50"] }, Open ]], Cell[CellGroupData[{ -Cell[16742, 555, 137, 3, 36, "Input",ExpressionUUID->"c15fb448-666b-4677-826d-b45daf097e27"], -Cell[16882, 560, 282, 5, 41, "Output",ExpressionUUID->"d5f52fdb-646e-4cd0-9a51-d2dc82b67e86"] +Cell[17064, 534, 133, 2, 36, "Input",ExpressionUUID->"c15fb448-666b-4677-826d-b45daf097e27"], +Cell[17200, 538, 304, 5, 41, "Output",ExpressionUUID->"5a37dc37-c7b8-4655-b8b0-fbe04c3b00f1"] }, Open ]], Cell[CellGroupData[{ -Cell[17201, 570, 254, 5, 36, "Input",ExpressionUUID->"b5059030-04e0-45de-a22b-5a0196fbe26b"], -Cell[17458, 577, 280, 5, 41, "Output",ExpressionUUID->"39657914-0ad9-4e3e-b927-9b71eb263190"] +Cell[17541, 548, 250, 4, 36, "Input",ExpressionUUID->"b5059030-04e0-45de-a22b-5a0196fbe26b"], +Cell[17794, 554, 304, 5, 41, "Output",ExpressionUUID->"1010529a-083d-4df4-aaaf-a29fdaacd73b"] }, Open ]], Cell[CellGroupData[{ -Cell[17775, 587, 223, 5, 36, "Input",ExpressionUUID->"9206ae1b-d0d5-485d-befe-74340aba3b4b"], -Cell[18001, 594, 293, 6, 41, "Output",ExpressionUUID->"2a61d991-fa9c-41d7-b417-f7888e1f9d38"] +Cell[18135, 564, 219, 4, 36, "Input",ExpressionUUID->"9206ae1b-d0d5-485d-befe-74340aba3b4b"], +Cell[18357, 570, 317, 6, 41, "Output",ExpressionUUID->"751dff5d-ce3f-4c75-9896-1bb9d89e95a5"] }, Open ]], Cell[CellGroupData[{ -Cell[18331, 605, 138, 3, 36, "Input",ExpressionUUID->"36e30e31-a0e4-497e-8845-6e70833c12f4"], -Cell[18472, 610, 280, 5, 41, "Output",ExpressionUUID->"2764ba7f-262b-4905-9856-f83d7d15792a"] +Cell[18711, 581, 134, 2, 36, "Input",ExpressionUUID->"36e30e31-a0e4-497e-8845-6e70833c12f4"], +Cell[18848, 585, 302, 5, 41, "Output",ExpressionUUID->"ffd279f4-8b42-42e1-82fa-f62a8c75beee"] }, Open ]], Cell[CellGroupData[{ -Cell[18789, 620, 353, 6, 36, "Input",ExpressionUUID->"f58a2dc9-267b-44cb-aa70-c83cc104624e"], -Cell[19145, 628, 253, 5, 41, "Output",ExpressionUUID->"950ee5f9-b07e-4790-9f55-f00aefcf3762"] +Cell[19187, 595, 349, 5, 36, "Input",ExpressionUUID->"f58a2dc9-267b-44cb-aa70-c83cc104624e"], +Cell[19539, 602, 271, 4, 41, "Output",ExpressionUUID->"4214e190-7573-44b2-b22f-54db8fe40c7c"] }, Open ]], Cell[CellGroupData[{ -Cell[19435, 638, 254, 6, 36, "Input",ExpressionUUID->"f4f1bc0f-c6f7-4d98-9565-778d4f288687"], -Cell[19692, 646, 275, 5, 41, "Output",ExpressionUUID->"45a0a746-8f83-4f41-a170-3036123f9992"] +Cell[19847, 611, 250, 5, 36, "Input",ExpressionUUID->"f4f1bc0f-c6f7-4d98-9565-778d4f288687"], +Cell[20100, 618, 297, 5, 41, "Output",ExpressionUUID->"664c447c-7a78-4f53-b3b8-968d23d04332"] }, Open ]], Cell[CellGroupData[{ -Cell[20004, 656, 223, 5, 36, "Input",ExpressionUUID->"a4efe8aa-fa71-46c4-9048-0ec22c629f6f"], -Cell[20230, 663, 275, 5, 41, "Output",ExpressionUUID->"c7684bd7-5c7c-4887-a0b9-4f340818c91c"] +Cell[20434, 628, 219, 4, 36, "Input",ExpressionUUID->"a4efe8aa-fa71-46c4-9048-0ec22c629f6f"], +Cell[20656, 634, 296, 5, 41, "Output",ExpressionUUID->"400a70da-9c65-4745-82be-b60950f4e2c9"] }, Open ]], Cell[CellGroupData[{ -Cell[20542, 673, 354, 11, 54, "Input",ExpressionUUID->"0dde3c62-9148-4482-b3c4-b44d95540a37"], -Cell[20899, 686, 295, 5, 41, "Output",ExpressionUUID->"d1672193-3a5d-4dc6-892b-fbd1fa55d324"] +Cell[20989, 644, 350, 10, 54, "Input",ExpressionUUID->"0dde3c62-9148-4482-b3c4-b44d95540a37"], +Cell[21342, 656, 317, 5, 41, "Output",ExpressionUUID->"ead1d8bf-54f7-473b-b244-2124e8f73753"] }, Open ]], Cell[CellGroupData[{ -Cell[21231, 696, 354, 11, 54, "Input",ExpressionUUID->"1bc74051-3208-4486-bf77-3e5fc10808fd"], -Cell[21588, 709, 310, 6, 41, "Output",ExpressionUUID->"c271d5d8-0c01-4c14-91d1-62017076d35a"] +Cell[21696, 666, 350, 10, 54, "Input",ExpressionUUID->"1bc74051-3208-4486-bf77-3e5fc10808fd"], +Cell[22049, 678, 332, 6, 41, "Output",ExpressionUUID->"e2b3105d-0236-4598-950b-7f2b8c8a0479"] }, Open ]], Cell[CellGroupData[{ -Cell[21935, 720, 998, 27, 105, "Input",ExpressionUUID->"f2337b0a-3c51-463a-b335-a40cd0023421"], -Cell[22936, 749, 294, 5, 41, "Output",ExpressionUUID->"d1bc2461-14f2-4009-a733-e95b47abe580"] +Cell[22418, 689, 994, 26, 105, "Input",ExpressionUUID->"f2337b0a-3c51-463a-b335-a40cd0023421"], +Cell[23415, 717, 316, 5, 41, "Output",ExpressionUUID->"3cc6bae3-168d-4b18-b290-117b045787ae"] }, Open ]], Cell[CellGroupData[{ -Cell[23267, 759, 203, 4, 36, "Input",ExpressionUUID->"4e7eabde-e885-4dec-bd44-964a6bbdfe90"], -Cell[23473, 765, 276, 5, 41, "Output",ExpressionUUID->"0aaf5bfd-7dfb-4062-a48e-fb22d71e5d29"] +Cell[23768, 727, 199, 3, 36, "Input",ExpressionUUID->"4e7eabde-e885-4dec-bd44-964a6bbdfe90"], +Cell[23970, 732, 297, 5, 41, "Output",ExpressionUUID->"f8cdf6d3-aa08-4d1d-82fd-6b75508cdf71"] }, Open ]], Cell[CellGroupData[{ -Cell[23786, 775, 332, 6, 36, "Input",ExpressionUUID->"32dcf3af-dbc6-4111-9e0d-2190b02f2eb8"], -Cell[24121, 783, 262, 5, 41, "Output",ExpressionUUID->"92146900-2115-44ea-a7b0-c935e064cd0f"] +Cell[24304, 742, 328, 5, 36, "Input",ExpressionUUID->"32dcf3af-dbc6-4111-9e0d-2190b02f2eb8"], +Cell[24635, 749, 280, 4, 41, "Output",ExpressionUUID->"2826d3af-8be0-4d98-ae9d-b33e6ac897cc"] }, Open ]], -Cell[24398, 791, 177, 3, 36, "Input",ExpressionUUID->"98ead765-9367-4a68-bbc0-79720657acb9"], +Cell[24930, 756, 173, 2, 36, "Input",ExpressionUUID->"98ead765-9367-4a68-bbc0-79720657acb9"], Cell[CellGroupData[{ -Cell[24600, 798, 332, 6, 36, "Input",ExpressionUUID->"cff4a190-6081-441e-8947-137cf2472bb2"], -Cell[24935, 806, 255, 5, 41, "Output",ExpressionUUID->"88e44316-4b50-481f-a146-57cf56353500"] +Cell[25128, 762, 328, 5, 36, "Input",ExpressionUUID->"cff4a190-6081-441e-8947-137cf2472bb2"], +Cell[25459, 769, 275, 4, 41, "Output",ExpressionUUID->"af9a20cf-ddb8-49e0-a9dd-602bdf7c0ef3"] }, Open ]], -Cell[25205, 814, 177, 3, 36, "Input",ExpressionUUID->"58354566-7457-4ebe-b47e-50dbc8a8f4f6"], +Cell[25749, 776, 173, 2, 109, "Input",ExpressionUUID->"58354566-7457-4ebe-b47e-50dbc8a8f4f6"], Cell[CellGroupData[{ -Cell[25407, 821, 332, 6, 36, "Input",ExpressionUUID->"f1b62f12-2724-461e-a307-44ce6b417b09"], -Cell[25742, 829, 253, 5, 41, "Output",ExpressionUUID->"8cb3d60e-8780-4a0a-a85d-141f8714413e"] +Cell[25947, 782, 328, 5, 36, "Input",ExpressionUUID->"f1b62f12-2724-461e-a307-44ce6b417b09"], +Cell[26278, 789, 270, 4, 41, "Output",ExpressionUUID->"6a27e289-944e-4213-8d05-e90a5488ac3e"] }, Open ]], -Cell[26010, 837, 177, 3, 36, "Input",ExpressionUUID->"ce06556e-7680-4ae4-928e-dab123b4e6b1"], +Cell[26563, 796, 173, 2, 109, "Input",ExpressionUUID->"ce06556e-7680-4ae4-928e-dab123b4e6b1"], Cell[CellGroupData[{ -Cell[26212, 844, 356, 6, 36, "Input",ExpressionUUID->"6016dd93-ebd9-4ae6-be06-a042e10d7d17"], -Cell[26571, 852, 251, 5, 41, "Output",ExpressionUUID->"77f82a4b-05fd-4df8-80dd-cf835f972b65"] +Cell[26761, 802, 352, 5, 36, "Input",ExpressionUUID->"6016dd93-ebd9-4ae6-be06-a042e10d7d17"], +Cell[27116, 809, 269, 4, 41, "Output",ExpressionUUID->"8005d2be-8d47-441e-815b-a5364c015aa0"] }, Open ]], -Cell[26837, 860, 175, 3, 36, "Input",ExpressionUUID->"b56063ba-90ac-4de2-bb28-2aacf8f18acd"], +Cell[27400, 816, 171, 2, 109, "Input",ExpressionUUID->"b56063ba-90ac-4de2-bb28-2aacf8f18acd"], Cell[CellGroupData[{ -Cell[27037, 867, 304, 6, 36, "Input",ExpressionUUID->"1d180ddd-ca1a-4e12-8e0d-fa4b60d755b7"], -Cell[27344, 875, 258, 5, 41, "Output",ExpressionUUID->"9a51680c-d25c-402d-bfa7-82b5f4837ec7"] +Cell[27596, 822, 300, 5, 36, "Input",ExpressionUUID->"1d180ddd-ca1a-4e12-8e0d-fa4b60d755b7"], +Cell[27899, 829, 275, 4, 41, "Output",ExpressionUUID->"4d8d719e-d3c5-4fa7-a0b6-ef49cc6162e9"] }, Open ]], -Cell[27617, 883, 175, 3, 36, "Input",ExpressionUUID->"7ce5188c-1911-4e13-9b03-03f04a8bf4f7"], +Cell[28189, 836, 171, 2, 109, "Input",ExpressionUUID->"7ce5188c-1911-4e13-9b03-03f04a8bf4f7"], Cell[CellGroupData[{ -Cell[27817, 890, 310, 6, 36, "Input",ExpressionUUID->"36e30360-eb8f-4c4e-8e08-981c909a8ffa"], -Cell[28130, 898, 258, 5, 41, "Output",ExpressionUUID->"8f5490d9-d586-47bb-bcee-667a8267d076"] +Cell[28385, 842, 306, 5, 36, "Input",ExpressionUUID->"36e30360-eb8f-4c4e-8e08-981c909a8ffa"], +Cell[28694, 849, 278, 4, 41, "Output",ExpressionUUID->"d901f6a8-e9c9-4239-a898-bf1f7539e0c4"] }, Open ]], -Cell[28403, 906, 177, 3, 36, "Input",ExpressionUUID->"83b05ecb-25d0-43d4-9c7f-ee95a5b6df3f"], +Cell[28987, 856, 173, 2, 109, "Input",ExpressionUUID->"83b05ecb-25d0-43d4-9c7f-ee95a5b6df3f"], Cell[CellGroupData[{ -Cell[28605, 913, 310, 6, 36, "Input",ExpressionUUID->"6bc0f20f-6c85-441e-af5b-b5e593833afb"], -Cell[28918, 921, 259, 5, 41, "Output",ExpressionUUID->"4097ec72-e9f2-41a8-a1c8-f21a08d06c65"] +Cell[29185, 862, 306, 5, 36, "Input",ExpressionUUID->"6bc0f20f-6c85-441e-af5b-b5e593833afb"], +Cell[29494, 869, 277, 4, 41, "Output",ExpressionUUID->"52847237-b361-4d14-88ea-b5e3ccc77a07"] }, Open ]], -Cell[29192, 929, 176, 3, 36, "Input",ExpressionUUID->"a48edea2-1677-41af-b88d-7e30e5319a57"], +Cell[29786, 876, 172, 2, 109, "Input",ExpressionUUID->"a48edea2-1677-41af-b88d-7e30e5319a57"], Cell[CellGroupData[{ -Cell[29393, 936, 282, 5, 36, "Input",ExpressionUUID->"05049caf-d261-4bfe-ac01-ec8d5f61c0cb"], -Cell[29678, 943, 256, 5, 41, "Output",ExpressionUUID->"ca96acff-e639-430b-9ad0-bb631beab37d"] +Cell[29983, 882, 278, 4, 36, "Input",ExpressionUUID->"05049caf-d261-4bfe-ac01-ec8d5f61c0cb"], +Cell[30264, 888, 274, 4, 41, "Output",ExpressionUUID->"51f5b827-be8d-49be-b8af-910c8a741668"] }, Open ]], -Cell[29949, 951, 179, 3, 36, "Input",ExpressionUUID->"378a698f-d006-49fc-972a-f93f03315323"], +Cell[30553, 895, 175, 2, 109, "Input",ExpressionUUID->"378a698f-d006-49fc-972a-f93f03315323"], Cell[CellGroupData[{ -Cell[30153, 958, 19813, 486, 3208, "Input",ExpressionUUID->"feb6573d-a1e5-4f96-86c7-0b12af3f7a8b"], -Cell[49969, 1446, 295, 5, 41, "Output",ExpressionUUID->"ae1f2e47-ecd0-466f-a0e0-5e2d721b894c"] +Cell[30753, 901, 19809, 485, 3208, "Input",ExpressionUUID->"feb6573d-a1e5-4f96-86c7-0b12af3f7a8b"], +Cell[50565, 1388, 317, 5, 41, "Output",ExpressionUUID->"adb6bb61-1572-4b6d-abc7-004ad6dc430a"] }, Open ]], Cell[CellGroupData[{ -Cell[50301, 1456, 19752, 490, 3138, "Input",ExpressionUUID->"713df860-6921-45d0-b584-81ae496525d7"], -Cell[70056, 1948, 294, 5, 41, "Output",ExpressionUUID->"f0c39272-a23b-4a67-9232-58f1a7f974ef"] +Cell[50919, 1398, 19748, 489, 3138, "Input",ExpressionUUID->"713df860-6921-45d0-b584-81ae496525d7"], +Cell[70670, 1889, 316, 5, 41, "Output",ExpressionUUID->"6b606d60-2354-4c92-8fdf-73125372543b"] }, Open ]], Cell[CellGroupData[{ -Cell[70387, 1958, 19752, 484, 3198, "Input",ExpressionUUID->"28ff244f-310e-447f-95dc-faef88629c4a"], -Cell[90142, 2444, 305, 6, 41, "Output",ExpressionUUID->"9f5de033-6e48-4e21-a1eb-6d1602f9286d"] +Cell[71023, 1899, 19748, 483, 3198, "Input",ExpressionUUID->"28ff244f-310e-447f-95dc-faef88629c4a"], +Cell[90774, 2384, 327, 6, 41, "Output",ExpressionUUID->"4ec9b28a-7ba5-445d-92a0-ef066e90735c"] }, Open ]], Cell[CellGroupData[{ -Cell[90484, 2455, 22538, 554, 3677, "Input",ExpressionUUID->"aca3a4a0-c90b-4f6c-99c0-82b8c4d30699"], -Cell[113025, 3011, 311, 6, 41, "Output",ExpressionUUID->"732ae70b-fe84-424e-8fcb-2562c3f57601"] +Cell[91138, 2395, 22534, 553, 3677, "Input",ExpressionUUID->"aca3a4a0-c90b-4f6c-99c0-82b8c4d30699"], +Cell[113675, 2950, 333, 6, 41, "Output",ExpressionUUID->"1a0ac251-129c-4c2b-968c-d44e342168f7"] }, Open ]], Cell[CellGroupData[{ -Cell[113373, 3022, 22539, 554, 3642, "Input",ExpressionUUID->"23f3c795-a6e3-4cac-acc4-dca8261e5c64"], -Cell[135915, 3578, 310, 6, 41, "Output",ExpressionUUID->"026a6880-0985-49d3-bcff-afb06baa5ef5"] +Cell[114045, 2961, 22535, 553, 3642, "Input",ExpressionUUID->"23f3c795-a6e3-4cac-acc4-dca8261e5c64"], +Cell[136583, 3516, 332, 6, 41, "Output",ExpressionUUID->"175d9cc4-c477-4427-815d-16b8f23580c0"] }, Open ]], Cell[CellGroupData[{ -Cell[136262, 3589, 25495, 627, 4121, "Input",ExpressionUUID->"ef9e9b58-b2a2-49c4-99e3-4d04e09ace42"], -Cell[161760, 4218, 315, 6, 41, "Output",ExpressionUUID->"4d4c690d-ba97-48ec-9f1f-5ba58b5a7130"] +Cell[136952, 3527, 25491, 626, 4121, "Input",ExpressionUUID->"ef9e9b58-b2a2-49c4-99e3-4d04e09ace42"], +Cell[162446, 4155, 337, 6, 41, "Output",ExpressionUUID->"6ba77ee9-e8e3-452a-956f-4c19c6f19c21"] }, Open ]], Cell[CellGroupData[{ -Cell[162112, 4229, 134, 3, 36, "Input",ExpressionUUID->"618aaf6c-0129-47a3-b737-fdf297cb1833"], -Cell[162249, 4234, 273, 5, 41, "Output",ExpressionUUID->"92c85a2e-4d37-47af-a2c5-2f44e9a8f01b"] +Cell[162820, 4166, 130, 2, 36, "Input",ExpressionUUID->"618aaf6c-0129-47a3-b737-fdf297cb1833"], +Cell[162953, 4170, 295, 5, 41, "Output",ExpressionUUID->"f1047c94-bfa1-4242-b807-74275044fd50"] }, Open ]], Cell[CellGroupData[{ -Cell[162559, 4244, 134, 3, 36, "Input",ExpressionUUID->"8d6179db-3216-4743-8fdf-e38c9385a164"], -Cell[162696, 4249, 275, 5, 41, "Output",ExpressionUUID->"751bee02-962b-4aa4-ad8d-7cb303177950"] +Cell[163285, 4180, 130, 2, 36, "Input",ExpressionUUID->"8d6179db-3216-4743-8fdf-e38c9385a164"], +Cell[163418, 4184, 297, 5, 41, "Output",ExpressionUUID->"2a717f91-7a4c-4981-ada6-c93317eafd3b"] }, Open ]], Cell[CellGroupData[{ -Cell[163008, 4259, 1148, 40, 144, "Input",ExpressionUUID->"3c8e47cf-ea17-49c5-920b-24adfc700b7b"], -Cell[164159, 4301, 295, 5, 41, "Output",ExpressionUUID->"2c696448-8d44-4e53-907a-765b97f320a7"] +Cell[163752, 4194, 1144, 39, 144, "Input",ExpressionUUID->"3c8e47cf-ea17-49c5-920b-24adfc700b7b"], +Cell[164899, 4235, 319, 5, 41, "Output",ExpressionUUID->"740d873e-8d1c-43fa-afe8-90a7e82c9136"] }, Open ]], Cell[CellGroupData[{ -Cell[164491, 4311, 1045, 36, 144, "Input",ExpressionUUID->"47c92268-1e96-44b0-b5ba-61eed40c4875"], -Cell[165539, 4349, 308, 6, 41, "Output",ExpressionUUID->"e5090a0d-d040-4cc9-b937-432ac6942d77"] +Cell[165255, 4245, 1041, 35, 144, "Input",ExpressionUUID->"47c92268-1e96-44b0-b5ba-61eed40c4875"], +Cell[166299, 4282, 330, 6, 41, "Output",ExpressionUUID->"7c1d65f7-e633-4f26-85c2-d8ce300a443c"] }, Open ]], Cell[CellGroupData[{ -Cell[165884, 4360, 1148, 40, 144, "Input",ExpressionUUID->"df1ceed3-f349-4e46-9f6c-7cdc2d455d50"], -Cell[167035, 4402, 290, 5, 41, "Output",ExpressionUUID->"c9018075-7cdf-4194-85c8-ee30ede4380a"] +Cell[166666, 4293, 1144, 39, 144, "Input",ExpressionUUID->"df1ceed3-f349-4e46-9f6c-7cdc2d455d50"], +Cell[167813, 4334, 312, 5, 41, "Output",ExpressionUUID->"700de2e0-f9b7-4be4-9783-c67c4889cbd5"] }, Open ]], Cell[CellGroupData[{ -Cell[167362, 4412, 112, 2, 36, "Input",ExpressionUUID->"32ef9b79-a288-4661-82d1-91042ec39e12"], -Cell[167477, 4416, 298, 5, 41, "Output",ExpressionUUID->"84bbc7f1-2a56-475e-a25f-44cfbe309045"] +Cell[168162, 4344, 108, 1, 36, "Input",ExpressionUUID->"32ef9b79-a288-4661-82d1-91042ec39e12"], +Cell[168273, 4347, 322, 5, 41, "Output",ExpressionUUID->"018f99a0-4a21-49e8-8732-4db40d87f842"] }, Open ]], Cell[CellGroupData[{ -Cell[167812, 4426, 112, 2, 36, "Input",ExpressionUUID->"5f6e3f90-2e5f-417a-bf47-e7d84234b3ef"], -Cell[167927, 4430, 312, 6, 41, "Output",ExpressionUUID->"59296404-293a-462c-955b-57a7a0589190"] +Cell[168632, 4357, 108, 1, 36, "Input",ExpressionUUID->"5f6e3f90-2e5f-417a-bf47-e7d84234b3ef"], +Cell[168743, 4360, 336, 6, 41, "Output",ExpressionUUID->"0a52af67-d9c3-41d9-807b-b41acd932e69"] }, Open ]], Cell[CellGroupData[{ -Cell[168276, 4441, 112, 2, 36, "Input",ExpressionUUID->"7b79d9ec-93e2-4eb2-9805-db300f7d9431"], -Cell[168391, 4445, 316, 6, 41, "Output",ExpressionUUID->"7929cdc6-5e8a-45db-9360-b6e33f1abe6f"] +Cell[169116, 4371, 108, 1, 36, "Input",ExpressionUUID->"7b79d9ec-93e2-4eb2-9805-db300f7d9431"], +Cell[169227, 4374, 340, 6, 41, "Output",ExpressionUUID->"e9e678b1-a6fa-48e7-be89-9eeded186867"] }, Open ]], Cell[CellGroupData[{ -Cell[168744, 4456, 112, 2, 36, "Input",ExpressionUUID->"a0500c72-edad-4c97-a345-75c41937b11d"], -Cell[168859, 4460, 289, 5, 41, "Output",ExpressionUUID->"2d7a24d6-cee2-4bba-8c42-14b9d00279f4"] +Cell[169604, 4385, 108, 1, 36, "Input",ExpressionUUID->"a0500c72-edad-4c97-a345-75c41937b11d"], +Cell[169715, 4388, 310, 5, 41, "Output",ExpressionUUID->"2315f427-bac5-41a0-b441-7bf81bb58572"] }, Open ]], Cell[CellGroupData[{ -Cell[169185, 4470, 111, 2, 36, "Input",ExpressionUUID->"6e37d9ff-f531-4680-9243-4038e543187d"], -Cell[169299, 4474, 298, 5, 41, "Output",ExpressionUUID->"fa53bbc6-53a0-4ce1-a555-cb19dda62705"] +Cell[170062, 4398, 107, 1, 36, "Input",ExpressionUUID->"6e37d9ff-f531-4680-9243-4038e543187d"], +Cell[170172, 4401, 320, 5, 41, "Output",ExpressionUUID->"38f875df-145c-416c-a14a-cf9a365965dd"] }, Open ]], Cell[CellGroupData[{ -Cell[169634, 4484, 111, 2, 36, "Input",ExpressionUUID->"15967435-43cc-43a8-b2c8-9234cf9dd078"], -Cell[169748, 4488, 297, 5, 41, "Output",ExpressionUUID->"80890838-3b31-4d12-9ea6-b3240d84c880"] +Cell[170529, 4411, 107, 1, 36, "Input",ExpressionUUID->"15967435-43cc-43a8-b2c8-9234cf9dd078"], +Cell[170639, 4414, 319, 5, 41, "Output",ExpressionUUID->"52ebcc9d-aa41-490a-b95a-0edfe85c6caa"] }, Open ]], Cell[CellGroupData[{ -Cell[170082, 4498, 501, 17, 71, "Input",ExpressionUUID->"e0199677-b4f5-48f6-a08a-1cfd4d909162"], -Cell[170586, 4517, 311, 6, 41, "Output",ExpressionUUID->"3a22d04a-3158-44e8-8223-6354c9ee634e"] +Cell[170995, 4424, 497, 16, 71, "Input",ExpressionUUID->"e0199677-b4f5-48f6-a08a-1cfd4d909162"], +Cell[171495, 4442, 335, 6, 41, "Output",ExpressionUUID->"533392a3-fbcd-4dbe-bdd1-13d7dd6e73b3"] }, Open ]], Cell[CellGroupData[{ -Cell[170934, 4528, 501, 17, 71, "Input",ExpressionUUID->"481bfac8-bd39-41a3-ad41-8c2640784a04"], -Cell[171438, 4547, 308, 6, 41, "Output",ExpressionUUID->"8024c42c-512e-4797-b3ed-35701d82d5a6"] +Cell[171867, 4453, 497, 16, 71, "Input",ExpressionUUID->"481bfac8-bd39-41a3-ad41-8c2640784a04"], +Cell[172367, 4471, 330, 6, 41, "Output",ExpressionUUID->"8e0a42a6-c82a-4b08-8ac1-bb5ec0dba5ad"] }, Open ]], Cell[CellGroupData[{ -Cell[171783, 4558, 1792, 61, 340, "Input",ExpressionUUID->"9a784517-cbe9-4a65-a3cf-ca497f0c56cd"], -Cell[173578, 4621, 291, 5, 41, "Output",ExpressionUUID->"efb5b77c-bf34-4709-bce3-f9c5f0095358"] +Cell[172734, 4482, 1788, 60, 340, "Input",ExpressionUUID->"9a784517-cbe9-4a65-a3cf-ca497f0c56cd"], +Cell[174525, 4544, 313, 5, 41, "Output",ExpressionUUID->"01677124-0316-42e0-9210-77574107c6a9"] }, Open ]], Cell[CellGroupData[{ -Cell[173906, 4631, 1105, 37, 73, "Input",ExpressionUUID->"22db1a9e-7685-4543-942e-daa17afc4c92"], -Cell[175014, 4670, 311, 6, 41, "Output",ExpressionUUID->"51a329d0-7529-43c2-9ba6-9d171105ad4d"] +Cell[174875, 4554, 1101, 36, 174, "Input",ExpressionUUID->"22db1a9e-7685-4543-942e-daa17afc4c92"], +Cell[175979, 4592, 333, 6, 41, "Output",ExpressionUUID->"2abc3631-ddd2-4f78-93b2-ec29fae27079"] }, Open ]], Cell[CellGroupData[{ -Cell[175362, 4681, 1822, 62, 340, "Input",ExpressionUUID->"204f3bb0-e116-479b-9f68-9eac077c810b"], -Cell[177187, 4745, 290, 5, 41, "Output",ExpressionUUID->"ed1c6461-09b3-4d22-80c4-6cf28b346cb3"] +Cell[176349, 4603, 1818, 61, 340, "Input",ExpressionUUID->"204f3bb0-e116-479b-9f68-9eac077c810b"], +Cell[178170, 4666, 312, 5, 41, "Output",ExpressionUUID->"cd1c39ee-17ad-417e-bf68-da7b987dba53"] }, Open ]], Cell[CellGroupData[{ -Cell[177514, 4755, 1714, 56, 247, "Input",ExpressionUUID->"90be20b1-59e7-4b91-929e-ad873588b320"], -Cell[179231, 4813, 294, 5, 41, "Output",ExpressionUUID->"6fd0c9d6-3b49-47d2-b63e-80fa589e88e2"] +Cell[178519, 4676, 1710, 55, 247, "Input",ExpressionUUID->"90be20b1-59e7-4b91-929e-ad873588b320"], +Cell[180232, 4733, 316, 5, 41, "Output",ExpressionUUID->"ad078bca-8887-432b-8742-76691b5cb53c"] }, Open ]], Cell[CellGroupData[{ -Cell[179562, 4823, 1635, 54, 208, "Input",ExpressionUUID->"6a49a91a-a1ab-456b-bc89-af267d95feac"], -Cell[181200, 4879, 292, 5, 41, "Output",ExpressionUUID->"125b0ab7-f818-4139-a6ee-d9b781f86d17"] +Cell[180585, 4743, 1631, 53, 208, "Input",ExpressionUUID->"6a49a91a-a1ab-456b-bc89-af267d95feac"], +Cell[182219, 4798, 316, 5, 41, "Output",ExpressionUUID->"8774b93f-e90d-4336-b748-75dc7023de78"] }, Open ]], -Cell[181507, 4887, 185, 4, 36, "Input",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], -Cell[181695, 4893, 154, 3, 36, "Input",ExpressionUUID->"93cad80c-1de7-2e4b-9b8c-14a272e65d1f"], -Cell[181852, 4898, 187, 4, 36, "Input",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], -Cell[182042, 4904, 152, 3, 36, "Input",ExpressionUUID->"15fe72e6-19f0-9540-b29f-3056e2e0b957"], Cell[CellGroupData[{ -Cell[182219, 4911, 1301, 43, 174, "Input",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], -Cell[183523, 4956, 178, 3, 41, "Output",ExpressionUUID->"1db85c02-7ca3-154e-854d-2c36f89709c4"] +Cell[182572, 4808, 204, 3, 36, "Input",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], +Cell[182779, 4813, 161, 2, 41, "Output",ExpressionUUID->"ca24c743-2855-494d-8e3f-bb7f4409e412"] }, Open ]], +Cell[182955, 4818, 173, 2, 109, "Input",ExpressionUUID->"93cad80c-1de7-2e4b-9b8c-14a272e65d1f"], Cell[CellGroupData[{ -Cell[183738, 4964, 910, 31, 128, "Input",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], -Cell[184651, 4997, 175, 3, 41, "Output",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] +Cell[183153, 4824, 206, 3, 36, "Input",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], +Cell[183362, 4829, 160, 2, 41, "Output",ExpressionUUID->"c016737e-151b-4d34-8627-6392ed76d5fe"] }, Open ]], +Cell[183537, 4834, 171, 2, 109, "Input",ExpressionUUID->"15fe72e6-19f0-9540-b29f-3056e2e0b957"], Cell[CellGroupData[{ -Cell[184863, 5005, 885, 30, 128, "Input",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], -Cell[185751, 5037, 177, 3, 41, "Output",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] +Cell[183733, 4840, 1297, 42, 174, "Input",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], +Cell[185033, 4884, 196, 2, 41, "Output",ExpressionUUID->"4b40cfc7-ec87-4322-bd9f-f2a4f5d920be"] }, Open ]], Cell[CellGroupData[{ -Cell[185965, 5045, 558, 19, 66, "Input",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], -Cell[186526, 5066, 173, 3, 41, "Output",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] +Cell[185266, 4891, 929, 30, 128, "Input",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], +Cell[186198, 4923, 193, 2, 41, "Output",ExpressionUUID->"62294aba-9931-4c42-b98f-b1ecaf15071f"] }, Open ]], Cell[CellGroupData[{ -Cell[186736, 5074, 623, 21, 66, "Input",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], -Cell[187362, 5097, 170, 3, 41, "Output",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +Cell[186428, 4930, 904, 29, 128, "Input",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], +Cell[187335, 4961, 195, 2, 41, "Output",ExpressionUUID->"991c1a9c-9a77-4ac2-a12b-2d755c204e80"] }, Open ]], Cell[CellGroupData[{ -Cell[187569, 5105, 170, 5, 71, "Input",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], -Cell[187742, 5112, 173, 3, 41, "Output",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +Cell[187567, 4968, 554, 18, 66, "Input",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], +Cell[188124, 4988, 190, 2, 41, "Output",ExpressionUUID->"33973faf-c64b-4cd5-8b7f-bd4bf417da7d"] }, Open ]], Cell[CellGroupData[{ -Cell[187952, 5120, 170, 5, 69, "Input",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], -Cell[188125, 5127, 170, 3, 41, "Output",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +Cell[188351, 4995, 619, 20, 66, "Input",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], +Cell[188973, 5017, 189, 2, 41, "Output",ExpressionUUID->"00ddf72e-9ea9-415c-9162-28569b88ff3f"] }, Open ]], Cell[CellGroupData[{ -Cell[188332, 5135, 181, 5, 55, "Input",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], -Cell[188516, 5142, 171, 3, 41, "Output",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +Cell[189199, 5024, 166, 4, 71, "Input",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], +Cell[189368, 5030, 191, 2, 41, "Output",ExpressionUUID->"3c1c6cdf-bebd-43e8-9d4a-4f4cb2be42d6"] }, Open ]], Cell[CellGroupData[{ -Cell[188724, 5150, 181, 5, 55, "Input",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], -Cell[188908, 5157, 173, 3, 41, "Output",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +Cell[189596, 5037, 166, 4, 69, "Input",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], +Cell[189765, 5043, 186, 2, 41, "Output",ExpressionUUID->"a8696601-7344-4550-bf2e-e19f161fc4eb"] }, Open ]], Cell[CellGroupData[{ -Cell[189118, 5165, 6055, 185, 831, "Input",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], -Cell[195176, 5352, 175, 3, 41, "Output",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +Cell[189988, 5050, 177, 4, 55, "Input",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], +Cell[190168, 5056, 190, 2, 41, "Output",ExpressionUUID->"0341bd24-61d1-41a8-9841-fe45300ce06a"] }, Open ]], Cell[CellGroupData[{ -Cell[195388, 5360, 368, 9, 53, "Input",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], -Cell[195759, 5371, 170, 3, 41, "Output",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +Cell[190395, 5063, 177, 4, 55, "Input",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], +Cell[190575, 5069, 191, 2, 41, "Output",ExpressionUUID->"08a50a2f-e321-4d23-8a8c-774500b60b20"] }, Open ]], Cell[CellGroupData[{ -Cell[195966, 5379, 6122, 187, 900, "Input",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], -Cell[202091, 5568, 175, 3, 41, "Output",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +Cell[190803, 5076, 6051, 184, 831, "Input",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], +Cell[196857, 5262, 195, 2, 41, "Output",ExpressionUUID->"bd0cfc13-54dd-4cf6-95c1-0eccc2d48bec"] }, Open ]], Cell[CellGroupData[{ -Cell[202303, 5576, 368, 9, 53, "Input",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], -Cell[202674, 5587, 172, 3, 41, "Output",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +Cell[197089, 5269, 364, 8, 53, "Input",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], +Cell[197456, 5279, 189, 2, 41, "Output",ExpressionUUID->"555b7ddf-c6f5-4485-8aba-0fd65459a43f"] }, Open ]], Cell[CellGroupData[{ -Cell[202883, 5595, 2663, 88, 435, "Input",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], -Cell[205549, 5685, 173, 3, 41, "Output",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +Cell[197682, 5286, 6118, 186, 900, "Input",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], +Cell[203803, 5474, 195, 2, 41, "Output",ExpressionUUID->"958ef760-a2b3-48b4-8649-79614eddcd78"] }, Open ]], Cell[CellGroupData[{ -Cell[205759, 5693, 2603, 85, 435, "Input",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], -Cell[208365, 5780, 172, 3, 41, "Output",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +Cell[204035, 5481, 364, 8, 53, "Input",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], +Cell[204402, 5491, 190, 2, 41, "Output",ExpressionUUID->"b5652896-be6f-43e6-a9f8-eb27973e50db"] }, Open ]], Cell[CellGroupData[{ -Cell[208574, 5788, 3712, 118, 575, "Input",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], -Cell[212289, 5908, 174, 3, 41, "Output",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] +Cell[204629, 5498, 2659, 87, 435, "Input",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], +Cell[207291, 5587, 192, 2, 41, "Output",ExpressionUUID->"b83fb571-fb62-4e91-a860-e438bae294bc"] }, Open ]], -Cell[212478, 5914, 138, 3, 36, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], Cell[CellGroupData[{ -Cell[212641, 5921, 2052, 59, 116, "Input",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], -Cell[214696, 5982, 524, 11, 48, "Message",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], -Cell[215223, 5995, 526, 11, 48, "Message",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], -Cell[215752, 6008, 530, 11, 48, "Message",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], -Cell[216285, 6021, 455, 10, 32, "Message",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], -Cell[216743, 6033, 172, 3, 41, "Output",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +Cell[207520, 5594, 2599, 84, 435, "Input",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], +Cell[210122, 5680, 191, 2, 41, "Output",ExpressionUUID->"3a14ff92-7e31-4482-b079-e74ebe8c4a06"] }, Open ]], Cell[CellGroupData[{ -Cell[216952, 6041, 2054, 59, 116, "Input",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], -Cell[219009, 6102, 524, 11, 48, "Message",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], -Cell[219536, 6115, 526, 11, 48, "Message",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], -Cell[220065, 6128, 528, 11, 48, "Message",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], -Cell[220596, 6141, 456, 10, 32, "Message",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], -Cell[221055, 6153, 170, 3, 41, "Output",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +Cell[210350, 5687, 3708, 117, 575, "Input",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], +Cell[214061, 5806, 190, 2, 41, "Output",ExpressionUUID->"cfe51ec8-65a5-4b20-9b96-27530a5528fc"] }, Open ]], +Cell[214266, 5811, 160, 3, 109, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], Cell[CellGroupData[{ -Cell[221262, 6161, 1938, 53, 86, "Input",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], -Cell[223203, 6216, 19981, 375, 109, "Output",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +Cell[214451, 5818, 2071, 58, 276, "Input",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], +Cell[216525, 5878, 662, 14, 73, "Message",ExpressionUUID->"c4414eab-1161-4f16-9232-d62e4c9b2a2f"], +Cell[217190, 5894, 664, 14, 73, "Message",ExpressionUUID->"f9c6c8d6-7b74-4260-9a92-64811d570e48"], +Cell[217857, 5910, 661, 14, 73, "Message",ExpressionUUID->"196642d1-25b6-439b-9d24-8af817de90d3"], +Cell[218521, 5926, 491, 11, 32, "Message",ExpressionUUID->"f018a22d-f98e-4c21-a386-f899258940e4"], +Cell[219015, 5939, 190, 2, 41, "Output",ExpressionUUID->"8776225d-f3d9-4346-a18f-88f1a9f5210d"] }, Open ]], Cell[CellGroupData[{ -Cell[243221, 6596, 2092, 60, 109, "Input",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], -Cell[245316, 6658, 490, 11, 71, "Message",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], -Cell[245809, 6671, 493, 11, 71, "Message",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], -Cell[246305, 6684, 508, 11, 56, "Message",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], -Cell[246816, 6697, 456, 10, 32, "Message",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], -Cell[247275, 6709, 61603, 1057, 290, "Output",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] +Cell[219242, 5946, 2073, 58, 276, "Input",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], +Cell[221318, 6006, 662, 14, 73, "Message",ExpressionUUID->"a7e6e0db-7d36-4a46-87aa-7c63a6c787b4"], +Cell[221983, 6022, 662, 14, 73, "Message",ExpressionUUID->"47d03fd3-1aab-4196-9fff-ae3c046ffb0e"], +Cell[222648, 6038, 661, 14, 73, "Message",ExpressionUUID->"8edc570e-5ea5-4481-93c7-d09754193098"], +Cell[223312, 6054, 489, 11, 32, "Message",ExpressionUUID->"ca9d1bd4-b3e9-4903-b29b-b3878a31cd65"], +Cell[223804, 6067, 190, 2, 41, "Output",ExpressionUUID->"a698ebcb-21b1-4a5d-ad8c-32a409bb0dfe"] }, Open ]], -Cell[308893, 7769, 2455, 69, 296, "Input",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], -Cell[311351, 7840, 209, 5, 36, "Input",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], Cell[CellGroupData[{ -Cell[311585, 7849, 217, 7, 61, "Input",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], -Cell[311805, 7858, 169, 3, 41, "Output",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +Cell[224031, 6074, 2049, 54, 232, "Input",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], +Cell[226083, 6130, 20440, 385, 295, "Output",ExpressionUUID->"29e7b3a9-2b99-4d28-a7f2-5fa8f9e8b22f"] }, Open ]], Cell[CellGroupData[{ -Cell[312011, 7866, 1816, 53, 311, "Input",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], -Cell[313830, 7921, 502, 11, 109, "Message",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], -Cell[314335, 7934, 506, 11, 109, "Message",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], -Cell[314844, 7947, 509, 11, 71, "Message",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], -Cell[315356, 7960, 456, 10, 32, "Message",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], -Cell[315815, 7972, 28560, 514, 290, "Output",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +Cell[246560, 6520, 2111, 59, 311, "Input",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], +Cell[248674, 6581, 531, 12, 71, "Message",ExpressionUUID->"1ee73cb9-3cc3-4908-9c81-cd94bb204650"], +Cell[249208, 6595, 537, 12, 71, "Message",ExpressionUUID->"cf91480c-f00a-4348-ac3c-ea78402ef13b"], +Cell[249748, 6609, 538, 12, 71, "Message",ExpressionUUID->"5ac64bf5-b160-4ee1-bf4b-f943c1eb56e2"], +Cell[250289, 6623, 488, 11, 32, "Message",ExpressionUUID->"a1e5c765-015f-46e6-924f-aeaeedbaf17c"], +Cell[250780, 6636, 22916, 422, 290, "Output",ExpressionUUID->"70039bb9-a4ac-48a7-bbf0-dab5ffa57f6b"] }, Open ]], Cell[CellGroupData[{ -Cell[344412, 8491, 1616, 48, 132, "Input",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], -Cell[346031, 8541, 576, 12, 109, "Message",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], -Cell[346610, 8555, 582, 12, 109, "Message",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], -Cell[347195, 8569, 584, 12, 109, "Message",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], -Cell[347782, 8583, 458, 10, 109, "Message",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], -Cell[348243, 8595, 170, 3, 109, "Output",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +Cell[273733, 7063, 2477, 69, 296, "Input",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], +Cell[276213, 7134, 9492, 222, 298, "Output",ExpressionUUID->"b439e750-e230-49d0-b3c9-4ef08d328783"] }, Open ]], Cell[CellGroupData[{ -Cell[348450, 8603, 2247, 64, 348, "Input",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], -Cell[350700, 8669, 522, 11, 98, "Message",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], -Cell[351225, 8682, 526, 11, 98, "Message",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], -Cell[351754, 8695, 528, 11, 98, "Message",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], -Cell[352285, 8708, 458, 10, 32, "Message",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], -Cell[352746, 8720, 175, 3, 41, "Output",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +Cell[285742, 7361, 228, 4, 36, "Input",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], +Cell[285973, 7367, 29280, 554, 290, "Output",ExpressionUUID->"351ed974-2702-419a-931f-5035e99ecea8"] }, Open ]], Cell[CellGroupData[{ -Cell[352958, 8728, 2221, 64, 109, "Input",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], -Cell[355182, 8794, 522, 11, 109, "Message",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], -Cell[355707, 8807, 524, 11, 98, "Message",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], -Cell[356234, 8820, 528, 11, 98, "Message",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], -Cell[356765, 8833, 458, 10, 32, "Message",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], -Cell[357226, 8845, 170, 3, 41, "Output",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +Cell[315290, 7926, 236, 6, 61, "Input",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], +Cell[315529, 7934, 191, 2, 41, "Output",ExpressionUUID->"f0de39db-32d4-4fd2-966b-483b221f45bb"] }, Open ]], Cell[CellGroupData[{ -Cell[357433, 8853, 2221, 64, 348, "Input",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], -Cell[359657, 8919, 524, 11, 109, "Message",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], -Cell[360184, 8932, 526, 11, 98, "Message",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], -Cell[360713, 8945, 530, 11, 98, "Message",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], -Cell[361246, 8958, 458, 10, 32, "Message",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], -Cell[361707, 8970, 171, 3, 41, "Output",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +Cell[315757, 7941, 1835, 52, 311, "Input",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], +Cell[317595, 7995, 540, 12, 71, "Message",ExpressionUUID->"59c54670-b1ce-4057-88e2-0da6938974a4"], +Cell[318138, 8009, 540, 12, 71, "Message",ExpressionUUID->"8b729187-04ed-4a15-af05-0a6bccb1db8c"], +Cell[318681, 8023, 543, 12, 71, "Message",ExpressionUUID->"3bd6ae29-177a-42f8-9152-8abd24e2cb02"], +Cell[319227, 8037, 487, 11, 32, "Message",ExpressionUUID->"fc236fa9-c99d-45ba-bff4-0b6e2dab0564"], +Cell[319717, 8050, 25076, 458, 290, "Output",ExpressionUUID->"153ca13c-c7c0-40b0-823a-71f53a33700a"] }, Open ]], Cell[CellGroupData[{ -Cell[361915, 8978, 215, 6, 60, "Input",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], -Cell[362133, 8986, 175, 3, 41, "Output",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] +Cell[344830, 8513, 1616, 48, 132, "Input",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], +Cell[346449, 8563, 662, 14, 73, "Message",ExpressionUUID->"fadae03d-0030-4b94-8bd1-7b90042b6a88"], +Cell[347114, 8579, 662, 14, 73, "Message",ExpressionUUID->"1ffbc858-9535-4309-a995-fe306f8aa9df"], +Cell[347779, 8595, 665, 14, 73, "Message",ExpressionUUID->"5d8a7c0f-43a1-43dc-99f0-a8c5095c746c"], +Cell[348447, 8611, 490, 11, 32, "Message",ExpressionUUID->"572eaa93-eacb-464a-8ce8-78ca5a3a176e"], +Cell[348940, 8624, 193, 3, 41, "Output",ExpressionUUID->"fe3f6d10-dbd5-4920-b0cd-f9da4329234d"] }, Open ]], -Cell[362323, 8992, 245, 5, 36, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], Cell[CellGroupData[{ -Cell[362593, 9001, 558, 19, 66, "Input",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], -Cell[363154, 9022, 172, 3, 41, "Output",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +Cell[349170, 8632, 2270, 64, 348, "Input",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], +Cell[351443, 8698, 663, 14, 73, "Message",ExpressionUUID->"c0a91647-feae-41f4-862b-c3533d107ff7"], +Cell[352109, 8714, 663, 14, 73, "Message",ExpressionUUID->"5708444a-1054-40be-ba7d-7787e147c65d"], +Cell[352775, 8730, 661, 14, 73, "Message",ExpressionUUID->"abeee5bc-8b30-438d-bf1a-e1f00a172c7d"], +Cell[353439, 8746, 490, 11, 32, "Message",ExpressionUUID->"dd9f35be-160e-4391-b0f4-3d2c05701ef0"], +Cell[353932, 8759, 193, 3, 41, "Output",ExpressionUUID->"3ef9b3b6-1e84-4a1a-8c96-55733cd0855d"] }, Open ]], Cell[CellGroupData[{ -Cell[363363, 9030, 170, 5, 71, "Input",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], -Cell[363536, 9037, 172, 3, 41, "Output",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +Cell[354162, 8767, 2233, 63, 348, "Input",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], +Cell[356398, 8832, 665, 14, 73, "Message",ExpressionUUID->"f3f78bc4-dc19-4d5c-9bba-34ddea0a2026"], +Cell[357066, 8848, 663, 14, 73, "Message",ExpressionUUID->"76ed5985-4e25-461a-9f4c-ffe7b05f011e"], +Cell[357732, 8864, 662, 14, 73, "Message",ExpressionUUID->"7c3574eb-8696-400f-917e-eec3012f4e39"], +Cell[358397, 8880, 490, 11, 32, "Message",ExpressionUUID->"9d80c609-5428-47ef-bdb1-623f59a8437a"], +Cell[358890, 8893, 191, 3, 41, "Output",ExpressionUUID->"b4e5e6e1-d7c8-4505-847a-fa380d6cfd20"] }, Open ]], Cell[CellGroupData[{ -Cell[363745, 9045, 181, 5, 55, "Input",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], -Cell[363929, 9052, 172, 3, 41, "Output",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +Cell[359118, 8901, 2233, 63, 348, "Input",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], +Cell[361354, 8966, 665, 14, 73, "Message",ExpressionUUID->"74481813-dab7-4fa1-8acb-3260a12cda5d"], +Cell[362022, 8982, 665, 14, 73, "Message",ExpressionUUID->"ba170c49-08a2-41b0-9bd1-65cdeb9a1d2a"], +Cell[362690, 8998, 664, 14, 73, "Message",ExpressionUUID->"29b69974-5f9c-411d-98fd-98c11a8dd0c0"], +Cell[363357, 9014, 491, 11, 32, "Message",ExpressionUUID->"92250b67-06d2-4fe4-9fad-26dabe742c98"], +Cell[363851, 9027, 190, 3, 41, "Output",ExpressionUUID->"16a4e4ff-b8a2-4e00-9a57-ea4489b66451"] }, Open ]], Cell[CellGroupData[{ -Cell[364138, 9060, 6055, 185, 831, "Input",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], -Cell[370196, 9247, 174, 3, 41, "Output",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +Cell[364078, 9035, 238, 6, 60, "Input",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], +Cell[364319, 9043, 195, 3, 41, "Output",ExpressionUUID->"0ca64975-13ac-4195-910f-499aac3eff86"] }, Open ]], +Cell[364529, 9049, 271, 6, 109, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], Cell[CellGroupData[{ -Cell[370407, 9255, 368, 9, 53, "Input",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], -Cell[370778, 9266, 173, 3, 41, "Output",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +Cell[364825, 9059, 558, 19, 66, "Input",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], +Cell[365386, 9080, 194, 3, 41, "Output",ExpressionUUID->"ab09a554-88cc-4178-8626-b5ded07c01fa"] }, Open ]], Cell[CellGroupData[{ -Cell[370988, 9274, 6122, 187, 900, "Input",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], -Cell[377113, 9463, 175, 3, 41, "Output",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +Cell[365617, 9088, 170, 5, 71, "Input",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], +Cell[365790, 9095, 194, 3, 41, "Output",ExpressionUUID->"4c4ada29-30f1-41be-873d-6f2a9ae21cff"] }, Open ]], Cell[CellGroupData[{ -Cell[377325, 9471, 368, 9, 53, "Input",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], -Cell[377696, 9482, 170, 3, 41, "Output",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +Cell[366021, 9103, 181, 5, 55, "Input",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], +Cell[366205, 9110, 195, 3, 41, "Output",ExpressionUUID->"91c8da3f-26bb-42ae-b15b-cc90d495fa9e"] }, Open ]], Cell[CellGroupData[{ -Cell[377903, 9490, 2663, 88, 435, "Input",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], -Cell[380569, 9580, 173, 3, 41, "Output",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +Cell[366437, 9118, 6055, 185, 831, "Input",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], +Cell[372495, 9305, 199, 3, 41, "Output",ExpressionUUID->"d911c3d5-0a0a-4e5f-863d-2b00f156c892"] }, Open ]], Cell[CellGroupData[{ -Cell[380779, 9588, 2603, 85, 435, "Input",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], -Cell[383385, 9675, 172, 3, 41, "Output",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +Cell[372731, 9313, 368, 9, 53, "Input",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], +Cell[373102, 9324, 195, 3, 41, "Output",ExpressionUUID->"429ef308-0148-4a12-89c7-d453691928ff"] }, Open ]], Cell[CellGroupData[{ -Cell[383594, 9683, 3712, 118, 575, "Input",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], -Cell[387309, 9803, 174, 3, 41, "Output",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +Cell[373334, 9332, 6122, 187, 900, "Input",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], +Cell[379459, 9521, 197, 3, 41, "Output",ExpressionUUID->"edd403c9-2933-4f53-8031-3d7a00e9404c"] }, Open ]], Cell[CellGroupData[{ -Cell[387520, 9811, 2052, 59, 116, "Input",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], -Cell[389575, 9872, 574, 12, 98, "Message",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], -Cell[390152, 9886, 580, 12, 98, "Message",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], -Cell[390735, 9900, 582, 12, 98, "Message",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], -Cell[391320, 9914, 456, 10, 32, "Message",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], -Cell[391779, 9926, 171, 3, 41, "Output",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +Cell[379693, 9529, 368, 9, 53, "Input",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], +Cell[380064, 9540, 192, 3, 41, "Output",ExpressionUUID->"84716f00-cfb5-4b35-bbbb-91ebb3e91d76"] }, Open ]], Cell[CellGroupData[{ -Cell[391987, 9934, 2054, 59, 276, "Input",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], -Cell[394044, 9995, 574, 12, 98, "Message",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], -Cell[394621, 10009, 578, 12, 98, "Message",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], -Cell[395202, 10023, 582, 12, 98, "Message",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], -Cell[395787, 10037, 458, 10, 32, "Message",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], -Cell[396248, 10049, 169, 3, 41, "Output",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +Cell[380293, 9548, 2663, 88, 435, "Input",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], +Cell[382959, 9638, 196, 3, 41, "Output",ExpressionUUID->"c6fa4cc4-3420-4be9-a568-87c0beb478e1"] }, Open ]], Cell[CellGroupData[{ -Cell[396454, 10057, 2030, 55, 232, "Input",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], -Cell[398487, 10114, 20326, 381, 299, "Output",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] +Cell[383192, 9646, 2603, 85, 435, "Input",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], +Cell[385798, 9733, 193, 3, 41, "Output",ExpressionUUID->"2fe05764-d3f6-4cf9-b7fa-053283224733"] }, Open ]], -Cell[418828, 10498, 2144, 61, 311, "Input",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], -Cell[420975, 10561, 138, 3, 36, "Input",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], Cell[CellGroupData[{ -Cell[421138, 10568, 1616, 48, 132, "Input",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], -Cell[422757, 10618, 592, 12, 118, "Message",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], -Cell[423352, 10632, 597, 12, 118, "Message",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], -Cell[423952, 10646, 599, 12, 109, "Message",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], -Cell[424554, 10660, 458, 10, 109, "Message",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], -Cell[425015, 10672, 172, 3, 109, "Output",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +Cell[386028, 9741, 3712, 118, 575, "Input",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], +Cell[389743, 9861, 194, 3, 41, "Output",ExpressionUUID->"2178c81e-c526-40c5-afed-233e4157e21c"] }, Open ]], Cell[CellGroupData[{ -Cell[425224, 10680, 2249, 64, 109, "Input",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], -Cell[427476, 10746, 576, 12, 109, "Message",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], -Cell[428055, 10760, 580, 12, 109, "Message",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], -Cell[428638, 10774, 582, 12, 109, "Message",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], -Cell[429223, 10788, 456, 10, 109, "Message",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], -Cell[429682, 10800, 171, 3, 109, "Output",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +Cell[389974, 9869, 2075, 59, 276, "Input",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], +Cell[392052, 9930, 662, 14, 73, "Message",ExpressionUUID->"ca85ab4a-dae4-4ec2-a681-70ca42fc518a"], +Cell[392717, 9946, 665, 14, 73, "Message",ExpressionUUID->"8e5110ba-ddf0-4bb9-92dc-839dc5c9e4f7"], +Cell[393385, 9962, 663, 14, 73, "Message",ExpressionUUID->"17a4a341-d479-4115-bbf9-5b4f23802d9a"], +Cell[394051, 9978, 492, 11, 32, "Message",ExpressionUUID->"90237bf0-0f95-4434-8931-9da7c2383858"], +Cell[394546, 9991, 194, 3, 41, "Output",ExpressionUUID->"e9891c12-f992-42e6-b2c5-a51b18a2cbb4"] }, Open ]], Cell[CellGroupData[{ -Cell[429890, 10808, 2223, 64, 109, "Input",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], -Cell[432116, 10874, 574, 12, 98, "Message",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], -Cell[432693, 10888, 578, 12, 98, "Message",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], -Cell[433274, 10902, 580, 12, 98, "Message",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], -Cell[433857, 10916, 458, 10, 32, "Message",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], -Cell[434318, 10928, 173, 3, 41, "Output",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +Cell[394777, 9999, 2077, 59, 276, "Input",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], +Cell[396857, 10060, 662, 14, 73, "Message",ExpressionUUID->"8c04f511-45fb-4d45-a092-65c094aba80b"], +Cell[397522, 10076, 663, 14, 73, "Message",ExpressionUUID->"817ff87b-5b37-41f6-9c4e-dd76e96110d6"], +Cell[398188, 10092, 663, 14, 73, "Message",ExpressionUUID->"dbc017c2-8d58-49b6-807f-b9ae4009276a"], +Cell[398854, 10108, 490, 11, 32, "Message",ExpressionUUID->"784361f3-027d-42f6-8613-4c327a624c42"], +Cell[399347, 10121, 194, 3, 41, "Output",ExpressionUUID->"f6150fbd-57ce-4188-829e-882db65ef6f3"] }, Open ]], Cell[CellGroupData[{ -Cell[434528, 10936, 2221, 64, 348, "Input",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], -Cell[436752, 11002, 574, 12, 98, "Message",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], -Cell[437329, 11016, 578, 12, 98, "Message",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], -Cell[437910, 11030, 582, 12, 98, "Message",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], -Cell[438495, 11044, 455, 10, 32, "Message",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], -Cell[438953, 11056, 170, 3, 41, "Output",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +Cell[399578, 10129, 2053, 55, 232, "Input",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], +Cell[401634, 10186, 20342, 382, 295, "Output",ExpressionUUID->"3f8dc9d5-950b-4cf7-8cf6-54721a8e56be"] }, Open ]], Cell[CellGroupData[{ -Cell[439160, 11064, 215, 6, 60, "Input",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], -Cell[439378, 11072, 174, 3, 41, "Output",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] +Cell[422013, 10573, 2166, 61, 311, "Input",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], +Cell[424182, 10636, 513, 12, 71, "Message",ExpressionUUID->"434226a0-52ff-4291-bc2c-5410129dcf10"], +Cell[424698, 10650, 518, 12, 71, "Message",ExpressionUUID->"89994b9e-493a-44d9-93b8-5b0189b26c8f"], +Cell[425219, 10664, 519, 12, 71, "Message",ExpressionUUID->"b8ab198c-4424-4d31-b072-4f4df6c37dc1"], +Cell[425741, 10678, 470, 11, 32, "Message",ExpressionUUID->"34c399a5-4015-413a-82ba-fcff999a29ba"], +Cell[426214, 10691, 24875, 456, 290, "Output",ExpressionUUID->"b241c70a-dde3-418d-b3bd-d1e0242505d5"] }, Open ]], -Cell[439567, 11078, 249, 5, 36, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], Cell[CellGroupData[{ -Cell[439841, 11087, 558, 19, 66, "Input",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], -Cell[440402, 11108, 169, 3, 41, "Output",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +Cell[451126, 11152, 164, 4, 36, "Input",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], +Cell[451293, 11158, 31259, 588, 290, "Output",ExpressionUUID->"8530d9dd-e113-4725-971e-13b2f6f212e7"] }, Open ]], Cell[CellGroupData[{ -Cell[440608, 11116, 170, 5, 71, "Input",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], -Cell[440781, 11123, 173, 3, 41, "Output",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +Cell[482589, 11751, 1616, 48, 132, "Input",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], +Cell[484208, 11801, 662, 14, 73, "Message",ExpressionUUID->"feb98b54-e3ea-4be1-bf97-2fae72b62924"], +Cell[484873, 11817, 663, 14, 73, "Message",ExpressionUUID->"ac9f4ffc-6139-4268-9558-945a3f2b3458"], +Cell[485539, 11833, 662, 14, 73, "Message",ExpressionUUID->"5739b397-38d9-43b9-9f70-d53efc198546"], +Cell[486204, 11849, 490, 11, 32, "Message",ExpressionUUID->"44e3c4e7-2731-494e-82fa-22f41d382034"], +Cell[486697, 11862, 195, 3, 41, "Output",ExpressionUUID->"1d9ee3c6-1fbc-44d8-8261-2f83239fe7f5"] }, Open ]], Cell[CellGroupData[{ -Cell[440991, 11131, 181, 5, 55, "Input",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], -Cell[441175, 11138, 173, 3, 41, "Output",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +Cell[486929, 11870, 2272, 64, 348, "Input",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], +Cell[489204, 11936, 664, 14, 73, "Message",ExpressionUUID->"6aba2b8d-3b2e-4042-91bb-9a9b28534f75"], +Cell[489871, 11952, 665, 14, 73, "Message",ExpressionUUID->"f5b9a8f3-6ef4-473c-8903-9d439868e584"], +Cell[490539, 11968, 664, 14, 73, "Message",ExpressionUUID->"0fe61346-7349-4f1f-ac39-1b01613c838d"], +Cell[491206, 11984, 492, 11, 32, "Message",ExpressionUUID->"ae239768-c9f9-483a-a00a-1255d37db5aa"], +Cell[491701, 11997, 193, 3, 41, "Output",ExpressionUUID->"16b32fca-f3e0-4726-b583-0170978eaaa1"] }, Open ]], Cell[CellGroupData[{ -Cell[441385, 11146, 6055, 185, 831, "Input",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], -Cell[447443, 11333, 174, 3, 41, "Output",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +Cell[491931, 12005, 2235, 63, 348, "Input",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], +Cell[494169, 12070, 662, 14, 73, "Message",ExpressionUUID->"414c8557-771a-43b2-a4c9-d27346f354e9"], +Cell[494834, 12086, 665, 14, 73, "Message",ExpressionUUID->"76d7475b-186c-4037-9f9c-04dcb58bc418"], +Cell[495502, 12102, 663, 14, 73, "Message",ExpressionUUID->"2c8d0616-69fa-4f01-98c5-92c03a93d15b"], +Cell[496168, 12118, 490, 11, 32, "Message",ExpressionUUID->"32da27e7-6df5-4031-b2ee-d8141b4f692b"], +Cell[496661, 12131, 195, 3, 41, "Output",ExpressionUUID->"09e2e148-f214-4f34-b83d-2b918921c9f8"] }, Open ]], Cell[CellGroupData[{ -Cell[447654, 11341, 368, 9, 53, "Input",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], -Cell[448025, 11352, 172, 3, 41, "Output",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +Cell[496893, 12139, 2233, 63, 348, "Input",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], +Cell[499129, 12204, 664, 14, 73, "Message",ExpressionUUID->"1bf0647f-0ef4-4422-ab30-6a1ae3f9dbf0"], +Cell[499796, 12220, 663, 14, 73, "Message",ExpressionUUID->"098f0ee9-168a-4719-aa13-88e4451d47ec"], +Cell[500462, 12236, 665, 14, 73, "Message",ExpressionUUID->"f16ade50-b5d1-4b01-877c-feb2e13327b3"], +Cell[501130, 12252, 490, 11, 32, "Message",ExpressionUUID->"cd0ad842-ba55-4148-82be-5efc74ebe604"], +Cell[501623, 12265, 194, 3, 41, "Output",ExpressionUUID->"2144f4cf-2b5d-4f64-ba2d-03e043c54ad1"] }, Open ]], Cell[CellGroupData[{ -Cell[448234, 11360, 6122, 187, 900, "Input",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], -Cell[454359, 11549, 172, 3, 41, "Output",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +Cell[501854, 12273, 238, 6, 60, "Input",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], +Cell[502095, 12281, 195, 3, 41, "Output",ExpressionUUID->"667e77ea-3549-47ba-b204-aca9827678b7"] }, Open ]], +Cell[502305, 12287, 275, 6, 109, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], Cell[CellGroupData[{ -Cell[454568, 11557, 368, 9, 53, "Input",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], -Cell[454939, 11568, 170, 3, 41, "Output",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +Cell[502605, 12297, 558, 19, 66, "Input",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], +Cell[503166, 12318, 191, 3, 41, "Output",ExpressionUUID->"83082145-b80d-4932-942f-6986cefeead2"] }, Open ]], Cell[CellGroupData[{ -Cell[455146, 11576, 2663, 88, 435, "Input",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], -Cell[457812, 11666, 173, 3, 41, "Output",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +Cell[503394, 12326, 170, 5, 71, "Input",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], +Cell[503567, 12333, 194, 3, 41, "Output",ExpressionUUID->"62e6c30e-f682-4042-8ad3-58a4095d9af0"] }, Open ]], Cell[CellGroupData[{ -Cell[458022, 11674, 2603, 85, 435, "Input",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], -Cell[460628, 11761, 172, 3, 41, "Output",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +Cell[503798, 12341, 181, 5, 55, "Input",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], +Cell[503982, 12348, 195, 3, 41, "Output",ExpressionUUID->"b45bb195-3add-4c0a-9b18-d8002f699373"] }, Open ]], Cell[CellGroupData[{ -Cell[460837, 11769, 3712, 118, 575, "Input",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], -Cell[464552, 11889, 172, 3, 41, "Output",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +Cell[504214, 12356, 6055, 185, 831, "Input",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], +Cell[510272, 12543, 199, 3, 41, "Output",ExpressionUUID->"6848e3c7-327f-4622-8d06-c42a2fe9c279"] }, Open ]], Cell[CellGroupData[{ -Cell[464761, 11897, 2052, 59, 276, "Input",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], -Cell[466816, 11958, 573, 12, 98, "Message",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], -Cell[467392, 11972, 573, 12, 98, "Message",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], -Cell[467968, 11986, 579, 12, 98, "Message",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], -Cell[468550, 12000, 458, 10, 32, "Message",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], -Cell[469011, 12012, 170, 3, 41, "Output",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +Cell[510508, 12551, 368, 9, 53, "Input",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], +Cell[510879, 12562, 197, 3, 41, "Output",ExpressionUUID->"ad56415b-86b5-4a4d-8112-00d51fb4c431"] }, Open ]], Cell[CellGroupData[{ -Cell[469218, 12020, 2052, 59, 276, "Input",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], -Cell[471273, 12081, 573, 12, 98, "Message",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], -Cell[471849, 12095, 575, 12, 98, "Message",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], -Cell[472427, 12109, 579, 12, 98, "Message",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], -Cell[473009, 12123, 458, 10, 32, "Message",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], -Cell[473470, 12135, 169, 3, 41, "Output",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +Cell[511113, 12570, 6122, 187, 900, "Input",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], +Cell[517238, 12759, 194, 3, 41, "Output",ExpressionUUID->"9e30726b-e7ee-4284-b80a-fa7213c99d86"] }, Open ]], Cell[CellGroupData[{ -Cell[473676, 12143, 2028, 55, 232, "Input",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], -Cell[475707, 12200, 20296, 381, 295, "Output",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +Cell[517469, 12767, 368, 9, 53, "Input",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], +Cell[517840, 12778, 192, 3, 41, "Output",ExpressionUUID->"4b673b4a-3f7a-44f1-a202-dd43e9ab2e33"] }, Open ]], Cell[CellGroupData[{ -Cell[496040, 12586, 2146, 61, 311, "Input",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], -Cell[498189, 12649, 500, 11, 71, "Message",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], -Cell[498692, 12662, 505, 11, 109, "Message",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], -Cell[499200, 12675, 509, 11, 109, "Message",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], -Cell[499712, 12688, 458, 10, 109, "Message",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], -Cell[500173, 12700, 39609, 697, 109, "Output",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] +Cell[518069, 12786, 2663, 88, 435, "Input",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], +Cell[520735, 12876, 196, 3, 41, "Output",ExpressionUUID->"a5ad3445-7eb0-4eab-a230-5f90c5da2713"] }, Open ]], -Cell[539797, 13400, 209, 5, 109, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], Cell[CellGroupData[{ -Cell[540031, 13409, 1616, 48, 132, "Input",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], -Cell[541650, 13459, 589, 12, 118, "Message",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], -Cell[542242, 13473, 595, 12, 118, "Message",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], -Cell[542840, 13487, 596, 12, 118, "Message",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], -Cell[543439, 13501, 458, 10, 109, "Message",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], -Cell[543900, 13513, 171, 3, 109, "Output",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +Cell[520968, 12884, 2603, 85, 435, "Input",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], +Cell[523574, 12971, 195, 3, 41, "Output",ExpressionUUID->"a7c2eeae-74de-49c4-b14b-db19006a1b28"] }, Open ]], Cell[CellGroupData[{ -Cell[544108, 13521, 2249, 64, 109, "Input",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], -Cell[546360, 13587, 573, 12, 109, "Message",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], -Cell[546936, 13601, 573, 12, 109, "Message",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], -Cell[547512, 13615, 579, 12, 98, "Message",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], -Cell[548094, 13629, 458, 10, 32, "Message",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], -Cell[548555, 13641, 174, 3, 41, "Output",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +Cell[523806, 12979, 3712, 118, 575, "Input",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], +Cell[527521, 13099, 192, 3, 41, "Output",ExpressionUUID->"591c7159-dff5-4874-ba33-03b10ec3bc34"] }, Open ]], Cell[CellGroupData[{ -Cell[548766, 13649, 2221, 64, 348, "Input",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], -Cell[550990, 13715, 573, 12, 98, "Message",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], -Cell[551566, 13729, 575, 12, 98, "Message",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], -Cell[552144, 13743, 577, 12, 98, "Message",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], -Cell[552724, 13757, 456, 10, 32, "Message",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], -Cell[553183, 13769, 172, 3, 41, "Output",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +Cell[527750, 13107, 2075, 59, 276, "Input",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], +Cell[529828, 13168, 665, 14, 73, "Message",ExpressionUUID->"998189cb-93f5-49b3-b593-17126889868a"], +Cell[530496, 13184, 664, 14, 73, "Message",ExpressionUUID->"e2f5eaf3-9126-4f42-afd1-09b8f1b3bd39"], +Cell[531163, 13200, 664, 14, 73, "Message",ExpressionUUID->"6234f0c7-0816-4137-a93f-ebaf9536c20e"], +Cell[531830, 13216, 492, 11, 32, "Message",ExpressionUUID->"d32c4ea2-44de-4836-8f53-abaf3561b6ec"], +Cell[532325, 13229, 195, 3, 41, "Output",ExpressionUUID->"6973f169-d6aa-4212-ba89-815b65a89e92"] }, Open ]], Cell[CellGroupData[{ -Cell[553392, 13777, 2219, 64, 348, "Input",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], -Cell[555614, 13843, 571, 12, 98, "Message",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], -Cell[556188, 13857, 573, 12, 98, "Message",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], -Cell[556764, 13871, 579, 12, 98, "Message",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], -Cell[557346, 13885, 458, 10, 32, "Message",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], -Cell[557807, 13897, 172, 3, 41, "Output",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +Cell[532557, 13237, 2075, 59, 276, "Input",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], +Cell[534635, 13298, 665, 14, 73, "Message",ExpressionUUID->"2569c7bf-67db-4781-9d0e-b80f18a0bb5e"], +Cell[535303, 13314, 664, 14, 73, "Message",ExpressionUUID->"92a69396-86fd-406e-befa-16f775eb7c39"], +Cell[535970, 13330, 664, 14, 73, "Message",ExpressionUUID->"05874797-15ca-46fc-8b2f-51c3363138bb"], +Cell[536637, 13346, 491, 11, 32, "Message",ExpressionUUID->"a6bae652-88e3-4b42-b665-db1c67ebf3a7"], +Cell[537131, 13359, 191, 3, 41, "Output",ExpressionUUID->"9c0bdcde-b1de-42cb-b8cb-b3ee572002b2"] }, Open ]], Cell[CellGroupData[{ -Cell[558016, 13905, 211, 6, 60, "Input",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], -Cell[558230, 13913, 174, 3, 41, "Output",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] +Cell[537359, 13367, 2051, 55, 232, "Input",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], +Cell[539413, 13424, 20039, 378, 295, "Output",ExpressionUUID->"ca8b9b4d-d50d-4473-a9bb-9fb6b9e4bd58"] }, Open ]], -Cell[558419, 13919, 188, 4, 36, "Input",ExpressionUUID->"2fb7cde2-eacb-466b-a6e4-a63fb5fd0f5b"] +Cell[CellGroupData[{ +Cell[559489, 13807, 2168, 61, 311, "Input",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], +Cell[561660, 13870, 535, 12, 71, "Message",ExpressionUUID->"82a2383f-b261-4f89-9e2a-dfbe99a1babd"], +Cell[562198, 13884, 538, 12, 71, "Message",ExpressionUUID->"0aef643b-2926-4610-9190-f6c51af8b8a4"], +Cell[562739, 13898, 541, 12, 71, "Message",ExpressionUUID->"a1675139-7b7a-4573-baea-d3f1a9033c87"], +Cell[563283, 13912, 492, 11, 32, "Message",ExpressionUUID->"dc866c4a-23ad-436a-b84b-d0b0573a7c41"], +Cell[563778, 13925, 24006, 441, 290, "Output",ExpressionUUID->"669075eb-b8a5-448b-8670-bb0f3c4e4b95"] +}, Open ]], +Cell[CellGroupData[{ +Cell[587821, 14371, 232, 5, 36, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], +Cell[588056, 14378, 30368, 573, 290, "Output",ExpressionUUID->"ed903ba7-4db9-4a43-ad8f-2471d89402a0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[618461, 14956, 1616, 48, 132, "Input",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], +Cell[620080, 15006, 661, 14, 73, "Message",ExpressionUUID->"574e4a9f-84f0-486a-b7d3-240f7c32fb96"], +Cell[620744, 15022, 662, 14, 73, "Message",ExpressionUUID->"58162ad5-72f1-429f-869e-08c4c0bceb15"], +Cell[621409, 15038, 663, 14, 73, "Message",ExpressionUUID->"99dc6bae-d21d-439f-89e4-1b841ba56a06"], +Cell[622075, 15054, 491, 11, 32, "Message",ExpressionUUID->"d4ec7e46-7398-415f-881e-031acf691a11"], +Cell[622569, 15067, 196, 3, 41, "Output",ExpressionUUID->"316ad851-32ec-4655-a2d0-ff9d2c282cd8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[622802, 15075, 2272, 64, 348, "Input",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], +Cell[625077, 15141, 665, 14, 73, "Message",ExpressionUUID->"d02761b1-0ce5-4087-8b62-e221c3933247"], +Cell[625745, 15157, 664, 14, 73, "Message",ExpressionUUID->"2fb65f25-99a9-4ab3-b500-fe671440dc06"], +Cell[626412, 15173, 664, 14, 73, "Message",ExpressionUUID->"5797160d-a1de-4660-80b9-c115ae69e387"], +Cell[627079, 15189, 491, 11, 32, "Message",ExpressionUUID->"f57393ec-2631-402a-93d0-507195d4b0e8"], +Cell[627573, 15202, 197, 3, 41, "Output",ExpressionUUID->"c85ba06e-3a62-44cf-b70a-b7bb7ccd3c3f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[627807, 15210, 2233, 63, 348, "Input",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], +Cell[630043, 15275, 664, 14, 73, "Message",ExpressionUUID->"cb7e64ee-9656-4f5c-9aa7-169bc7be052a"], +Cell[630710, 15291, 664, 14, 73, "Message",ExpressionUUID->"0c0c2988-f99f-4fe6-a755-be6767e678fe"], +Cell[631377, 15307, 664, 14, 73, "Message",ExpressionUUID->"80d45a0d-6f1b-4b00-ab37-3129b7f7786c"], +Cell[632044, 15323, 492, 11, 32, "Message",ExpressionUUID->"6ad4ff91-f44a-46a8-8327-188e1ac7960a"], +Cell[632539, 15336, 195, 3, 41, "Output",ExpressionUUID->"c98c3aa9-31a4-4329-8ab8-1a814152779b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[632771, 15344, 2231, 63, 348, "Input",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], +Cell[635005, 15409, 665, 14, 73, "Message",ExpressionUUID->"87d346e5-16c2-46a1-9d51-0e6b1ffeb677"], +Cell[635673, 15425, 662, 14, 73, "Message",ExpressionUUID->"47da8b16-180f-4514-bae5-544ba6c23ef3"], +Cell[636338, 15441, 662, 14, 73, "Message",ExpressionUUID->"c0dc235b-0089-423c-b8bf-08ef661838fd"], +Cell[637003, 15457, 490, 11, 32, "Message",ExpressionUUID->"6c62cba4-d49f-4b5d-83da-86bee00a25f7"], +Cell[637496, 15470, 193, 3, 41, "Output",ExpressionUUID->"8fe2fcd8-024d-43ec-962a-f947be19151d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[637726, 15478, 234, 6, 60, "Input",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], +Cell[637963, 15486, 196, 3, 41, "Output",ExpressionUUID->"6ca22d38-f104-44a1-be8f-b31395ba0e6f"] +}, Open ]], +Cell[638174, 15492, 211, 4, 109, "Input",ExpressionUUID->"2fb7cde2-eacb-466b-a6e4-a63fb5fd0f5b"] } ] *) +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_gid_Qw2.nb b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_gid_Qw2.nb index 252928c..e5a3315 100755 --- a/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_gid_Qw2.nb +++ b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_gid_Qw2.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 456991, 13355] -NotebookOptionsPosition[ 418426, 12739] -NotebookOutlinePosition[ 418836, 12756] -CellTagsIndexPosition[ 418793, 12753] +NotebookDataLength[ 668509, 16042] +NotebookOptionsPosition[ 627916, 15393] +NotebookOutlinePosition[ 628345, 15411] +CellTagsIndexPosition[ 628302, 15408] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -25,15 +25,14 @@ Cell[BoxData[ CellChangeTimes->{ 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, 3.9920650045886707`*^9, {3.9940727514461927`*^9, 3.994072775295883*^9}}, - CellLabel-> - "In[104]:=",ExpressionUUID->"c38f06bd-74d1-44ad-9faf-19b29d111ef0"], + CellLabel->"In[1]:=",ExpressionUUID->"c38f06bd-74d1-44ad-9faf-19b29d111ef0"], Cell[BoxData["1.6`"], "Output", CellChangeTimes->{ 3.991320420900818*^9, 3.99379974700918*^9, 3.993800338579624*^9, - 3.9938003856877937`*^9, {3.994072756527327*^9, 3.9940727765701942`*^9}}, - CellLabel-> - "Out[104]=",ExpressionUUID->"5af16a9c-2a96-4996-866b-c621ccc0e90e"] + 3.9938003856877937`*^9, {3.994072756527327*^9, 3.9940727765701942`*^9}, + 3.994250059032288*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"9f8113a9-fe86-4a89-bd34-a64b94d9bf07"] }, Open ]], Cell[CellGroupData[{ @@ -42,15 +41,14 @@ Cell[BoxData[ RowBox[{"A", "=", "240"}]], "Input", CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { 3.993799082059058*^9, 3.9937990826790457`*^9}}, - CellLabel-> - "In[105]:=",ExpressionUUID->"afd78b5b-f0d9-4cb8-b492-13e48b79319d"], + CellLabel->"In[2]:=",ExpressionUUID->"afd78b5b-f0d9-4cb8-b492-13e48b79319d"], Cell[BoxData["240"], "Output", CellChangeTimes->{ 3.9913196497381973`*^9, 3.993799747282215*^9, 3.99380033885446*^9, - 3.993800385764146*^9, {3.994072756590721*^9, 3.994072776647262*^9}}, - CellLabel-> - "Out[105]=",ExpressionUUID->"ec688a6a-93c6-4888-ab9d-b2dcccb020d5"] + 3.993800385764146*^9, {3.994072756590721*^9, 3.994072776647262*^9}, + 3.994250059125301*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"c22728a5-c6db-48b2-9435-d55ad73cb433"] }, Open ]], Cell[CellGroupData[{ @@ -59,15 +57,14 @@ Cell[BoxData[ RowBox[{"A1", "=", " ", "176"}]], "Input", CellChangeTimes->{ 3.991798961431202*^9, {3.993799246718399*^9, 3.993799247496731*^9}}, - CellLabel-> - "In[106]:=",ExpressionUUID->"79ae24c9-993a-47cf-bcff-b044b9053fef"], + CellLabel->"In[3]:=",ExpressionUUID->"79ae24c9-993a-47cf-bcff-b044b9053fef"], Cell[BoxData["176"], "Output", CellChangeTimes->{ 3.9913196497578354`*^9, 3.993799747300477*^9, 3.993800338871715*^9, - 3.993800385779578*^9, {3.994072756603456*^9, 3.9940727766610518`*^9}}, - CellLabel-> - "Out[106]=",ExpressionUUID->"8922d22d-b530-4d90-9156-e7af0d47766f"] + 3.993800385779578*^9, {3.994072756603456*^9, 3.9940727766610518`*^9}, + 3.9942500591406937`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"64ca2e40-5fe2-4af9-a362-102d7a8381fb"] }, Open ]], Cell[CellGroupData[{ @@ -75,15 +72,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, - CellLabel-> - "In[107]:=",ExpressionUUID->"16fbc78b-e4af-4dde-bf1f-cee992cb730c"], + CellLabel->"In[4]:=",ExpressionUUID->"16fbc78b-e4af-4dde-bf1f-cee992cb730c"], Cell[BoxData["0.55`"], "Output", CellChangeTimes->{ 3.991319649777508*^9, 3.993799747316929*^9, 3.993800338888788*^9, - 3.993800385794606*^9, {3.994072756615819*^9, 3.994072776674831*^9}}, - CellLabel-> - "Out[107]=",ExpressionUUID->"42585906-fcc8-410c-81d8-c50db5003892"] + 3.993800385794606*^9, {3.994072756615819*^9, 3.994072776674831*^9}, + 3.9942500591527023`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"bd7a9a53-f2dc-4426-8ec1-2ab444cc917d"] }, Open ]], Cell[CellGroupData[{ @@ -95,30 +91,28 @@ Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", - CellLabel-> - "In[108]:=",ExpressionUUID->"c29af457-6672-42d8-be46-70931c6b097e"], + CellLabel->"In[5]:=",ExpressionUUID->"c29af457-6672-42d8-be46-70931c6b097e"], Cell[BoxData["0.543`"], "Output", CellChangeTimes->{ 3.9913196497965145`*^9, 3.993799747333138*^9, 3.993800338906427*^9, - 3.993800385809697*^9, {3.994072756628705*^9, 3.994072776688608*^9}}, - CellLabel-> - "Out[108]=",ExpressionUUID->"efa8857f-5048-481d-8bd8-29fcf9b0a485"] + 3.993800385809697*^9, {3.994072756628705*^9, 3.994072776688608*^9}, + 3.994250059167136*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"0aedb4a1-7ece-4616-8440-032611302c54"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", - CellLabel-> - "In[109]:=",ExpressionUUID->"f35350ce-e762-4333-b2ea-e4a3fd9c070e"], + CellLabel->"In[6]:=",ExpressionUUID->"f35350ce-e762-4333-b2ea-e4a3fd9c070e"], Cell[BoxData["0.17`"], "Output", CellChangeTimes->{ 3.9913196498144608`*^9, 3.9937997473490753`*^9, 3.993800338928018*^9, - 3.993800385813496*^9, {3.994072756641103*^9, 3.994072776693177*^9}}, - CellLabel-> - "Out[109]=",ExpressionUUID->"93922128-b6ef-4b00-88ce-0b8b4f8da024"] + 3.993800385813496*^9, {3.994072756641103*^9, 3.994072776693177*^9}, + 3.9942500591812897`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"f5acdc3f-a771-4317-8e46-90f18f0029bd"] }, Open ]], Cell[CellGroupData[{ @@ -129,15 +123,14 @@ Cell[BoxData[ SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}]}]], "Input", CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, - CellLabel-> - "In[110]:=",ExpressionUUID->"aa2e889f-9ffd-427b-90f9-c5320db7dde4"], + CellLabel->"In[7]:=",ExpressionUUID->"aa2e889f-9ffd-427b-90f9-c5320db7dde4"], Cell[BoxData["6.5007312471204965`"], "Output", CellChangeTimes->{ 3.9913196498225155`*^9, 3.993799747366351*^9, 3.993800338948053*^9, - 3.993800385835421*^9, {3.994072756653392*^9, 3.994072776710863*^9}}, - CellLabel-> - "Out[110]=",ExpressionUUID->"b517e449-46ec-4753-ae1f-32aa5a514573"] + 3.993800385835421*^9, {3.994072756653392*^9, 3.994072776710863*^9}, + 3.994250059192567*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"fd4618df-4fbc-4449-bde2-1cc8737d3298"] }, Open ]], Cell[CellGroupData[{ @@ -149,15 +142,14 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", - CellLabel-> - "In[111]:=",ExpressionUUID->"4dcde000-4a52-43da-bd3b-b04d1f3d36dc"], + CellLabel->"In[8]:=",ExpressionUUID->"4dcde000-4a52-43da-bd3b-b04d1f3d36dc"], Cell[BoxData["4.64`"], "Output", CellChangeTimes->{ 3.9913196498425236`*^9, 3.993799747384128*^9, 3.993800338968402*^9, - 3.993800385850627*^9, {3.9940727566658983`*^9, 3.994072776724451*^9}}, - CellLabel-> - "Out[111]=",ExpressionUUID->"29bb91f9-b225-4959-8da8-3114085f5143"] + 3.993800385850627*^9, {3.9940727566658983`*^9, 3.994072776724451*^9}, + 3.9942500592044764`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"1a9b54d4-2341-49cc-81a9-36a0724ff126"] }, Open ]], Cell[CellGroupData[{ @@ -168,15 +160,13 @@ Cell[BoxData[ 3.991799283179735*^9, {3.9937993186432753`*^9, 3.993799326240513*^9}, { 3.993799364756247*^9, 3.993799370026516*^9}, {3.993799480203456*^9, 3.993799488443741*^9}}, - CellLabel-> - "In[112]:=",ExpressionUUID->"b577b86a-7023-44fc-a7e0-88ec893185a3"], + CellLabel->"In[9]:=",ExpressionUUID->"b577b86a-7023-44fc-a7e0-88ec893185a3"], Cell[BoxData["0.7654`"], "Output", CellChangeTimes->{ 3.9937997474107447`*^9, 3.993800338988703*^9, 3.9938003858649893`*^9, { - 3.994072756678184*^9, 3.994072776737771*^9}}, - CellLabel-> - "Out[112]=",ExpressionUUID->"75ad98fe-a454-4dd2-973a-60d624ab42fa"] + 3.994072756678184*^9, 3.994072776737771*^9}, 3.9942500592152033`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"8aaa188e-8227-4e35-a87b-b9790de8506b"] }, Open ]], Cell[CellGroupData[{ @@ -185,45 +175,41 @@ Cell[BoxData[ RowBox[{"b2", "=", "0.4513"}]], "Input", CellChangeTimes->{ 3.991799280663351*^9, {3.993799372069343*^9, 3.993799377027832*^9}}, - CellLabel-> - "In[113]:=",ExpressionUUID->"9e64d07f-edc3-4463-ba28-a64831c4d3e4"], + CellLabel->"In[10]:=",ExpressionUUID->"9e64d07f-edc3-4463-ba28-a64831c4d3e4"], Cell[BoxData["0.4513`"], "Output", CellChangeTimes->{ 3.993799747427882*^9, 3.993800339005568*^9, 3.993800385879345*^9, { - 3.9940727566903763`*^9, 3.9940727767497873`*^9}}, - CellLabel-> - "Out[113]=",ExpressionUUID->"43fd0693-5729-4d5c-bac2-3fbfbc79c7fe"] + 3.9940727566903763`*^9, 3.9940727767497873`*^9}, 3.994250059226575*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"01633d3a-273c-488e-865c-b8115e6cb2f8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", - CellLabel-> - "In[114]:=",ExpressionUUID->"0c951bb0-c9ce-4ab7-a821-851d3ea73447"], + CellLabel->"In[11]:=",ExpressionUUID->"0c951bb0-c9ce-4ab7-a821-851d3ea73447"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498927155`*^9, 3.993799747452092*^9, 3.993800339022945*^9, - 3.993800385893304*^9, {3.994072756702078*^9, 3.9940727767611856`*^9}}, - CellLabel-> - "Out[114]=",ExpressionUUID->"ab77ee4f-d3a7-4bb3-b66d-ee01423138df"] + 3.993800385893304*^9, {3.994072756702078*^9, 3.9940727767611856`*^9}, + 3.994250059241212*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"7c188179-29df-40f3-a8b9-315e3c5225e6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", - CellLabel-> - "In[115]:=",ExpressionUUID->"f5d9f999-f620-45c8-9bb7-007979080bea"], + CellLabel->"In[12]:=",ExpressionUUID->"f5d9f999-f620-45c8-9bb7-007979080bea"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498996067`*^9, 3.993799747468101*^9, 3.993800339041868*^9, - 3.9938003859074306`*^9, {3.9940727567134666`*^9, 3.994072776772606*^9}}, - CellLabel-> - "Out[115]=",ExpressionUUID->"033bf110-6df8-4a56-bb2d-dadbdd45a65b"] + 3.9938003859074306`*^9, {3.9940727567134666`*^9, 3.994072776772606*^9}, + 3.994250059255631*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"f2229256-5cb7-41e3-bab2-3af613e4a2ff"] }, Open ]], Cell[CellGroupData[{ @@ -247,15 +233,14 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[116]:=",ExpressionUUID->"a1dcb2c8-b8a6-435b-afe2-4d2b1ba86bb2"], + CellLabel->"In[13]:=",ExpressionUUID->"a1dcb2c8-b8a6-435b-afe2-4d2b1ba86bb2"], Cell[BoxData["2.0171665757171935`"], "Output", CellChangeTimes->{ 3.9913197863028755`*^9, 3.9937997474836817`*^9, 3.9938003390596933`*^9, - 3.993800385921398*^9, {3.994072756725263*^9, 3.994072776784317*^9}}, - CellLabel-> - "Out[116]=",ExpressionUUID->"fa7f438b-24c2-4b33-92b3-77e4f79e9c70"] + 3.993800385921398*^9, {3.994072756725263*^9, 3.994072776784317*^9}, + 3.994250059268001*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"cdd424e4-d989-4387-b408-74462d1c51a6"] }, Open ]], Cell[CellGroupData[{ @@ -279,15 +264,14 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[117]:=",ExpressionUUID->"f32a042b-a381-4268-99ce-efc338059031"], + CellLabel->"In[14]:=",ExpressionUUID->"f32a042b-a381-4268-99ce-efc338059031"], Cell[BoxData["1.5074639495621045`"], "Output", CellChangeTimes->{ 3.9913197864610195`*^9, 3.993799747498741*^9, 3.993800339079308*^9, - 3.993800385933773*^9, {3.994072756739362*^9, 3.994072776796445*^9}}, - CellLabel-> - "Out[117]=",ExpressionUUID->"247d7e07-f0e4-41f6-acd3-0898d8c2b85d"] + 3.993800385933773*^9, {3.994072756739362*^9, 3.994072776796445*^9}, + 3.994250059283168*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"634850f4-dae4-4312-9e49-1c3838dd1eac"] }, Open ]], Cell[CellGroupData[{ @@ -342,15 +326,14 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[118]:=",ExpressionUUID->"b14b50fb-38cd-4662-84ba-67a97264afa3"], + CellLabel->"In[15]:=",ExpressionUUID->"b14b50fb-38cd-4662-84ba-67a97264afa3"], Cell[BoxData["0.5126444245586296`"], "Output", CellChangeTimes->{ 3.991319786533783*^9, 3.993799747513342*^9, 3.993800339097157*^9, - 3.993800385946536*^9, {3.994072756750792*^9, 3.9940727768075857`*^9}}, - CellLabel-> - "Out[118]=",ExpressionUUID->"4fdc402e-9c56-400a-ab65-b16577f389c2"] + 3.993800385946536*^9, {3.994072756750792*^9, 3.9940727768075857`*^9}, + 3.994250059296804*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"a590f0f1-2fe7-48d4-b06e-2cabfb23416f"] }, Open ]], Cell[CellGroupData[{ @@ -401,16 +384,15 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[119]:=",ExpressionUUID->"8016f16a-16e8-4d16-bc4c-923039b7ce67"], + CellLabel->"In[16]:=",ExpressionUUID->"8016f16a-16e8-4d16-bc4c-923039b7ce67"], Cell[BoxData[ RowBox[{"-", "0.12490541136574432`"}]], "Output", CellChangeTimes->{ 3.991319786540777*^9, 3.993799747527933*^9, 3.9938003391147947`*^9, - 3.99380038595966*^9, {3.994072756762456*^9, 3.99407277681929*^9}}, - CellLabel-> - "Out[119]=",ExpressionUUID->"2fd6eb81-f46e-47c2-a81e-28bd02ad1c2f"] + 3.99380038595966*^9, {3.994072756762456*^9, 3.99407277681929*^9}, + 3.994250059308878*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"931b8491-4dde-4c3b-b4ee-083f138c015f"] }, Open ]], Cell[CellGroupData[{ @@ -461,16 +443,15 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[120]:=",ExpressionUUID->"b96d86c5-938e-478a-90c6-3f74e8c37453"], + CellLabel->"In[17]:=",ExpressionUUID->"b96d86c5-938e-478a-90c6-3f74e8c37453"], Cell[BoxData[ RowBox[{"-", "0.47786808677187637`"}]], "Output", CellChangeTimes->{ 3.9913197865777817`*^9, 3.993799747543792*^9, 3.993800339132107*^9, - 3.9938003859736147`*^9, {3.994072756774001*^9, 3.994072776830839*^9}}, - CellLabel-> - "Out[120]=",ExpressionUUID->"3a9bac6c-e012-4ceb-8de4-f6b9508e7822"] + 3.9938003859736147`*^9, {3.994072756774001*^9, 3.994072776830839*^9}, + 3.9942500593209047`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"c7d054ad-d88e-478a-9537-936ca527e048"] }, Open ]], Cell[CellGroupData[{ @@ -525,45 +506,42 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[121]:=",ExpressionUUID->"ea8c1cb5-682b-4b1c-b3b5-acad93d635e7"], + CellLabel->"In[18]:=",ExpressionUUID->"ea8c1cb5-682b-4b1c-b3b5-acad93d635e7"], Cell[BoxData["0.6637051934091774`"], "Output", CellChangeTimes->{ 3.9913197866129*^9, 3.993799747559553*^9, 3.993800339136161*^9, - 3.993800385987465*^9, {3.994072756786757*^9, 3.994072776842886*^9}}, - CellLabel-> - "Out[121]=",ExpressionUUID->"be7f6c6b-834b-4358-9c29-796b8223eecc"] + 3.993800385987465*^9, {3.994072756786757*^9, 3.994072776842886*^9}, + 3.994250059335889*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"e61273d8-22b9-4183-a4ac-5ce1b8ff45de"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", - CellLabel-> - "In[122]:=",ExpressionUUID->"75b49a7c-d616-44bc-9324-eb39800c7562"], + CellLabel->"In[19]:=",ExpressionUUID->"75b49a7c-d616-44bc-9324-eb39800c7562"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786620775*^9, 3.9937997475753107`*^9, 3.993800339165604*^9, - 3.9938003860010223`*^9, {3.99407275679909*^9, 3.994072776854899*^9}}, - CellLabel-> - "Out[122]=",ExpressionUUID->"6ee57074-b8ae-46ea-9086-eff784fbd8fb"] + 3.9938003860010223`*^9, {3.99407275679909*^9, 3.994072776854899*^9}, + 3.9942500593511477`*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"9452c390-1cae-423b-a4bc-53b15a5467ba"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fin", "=", "0.09"}]], "Input", - CellLabel-> - "In[123]:=",ExpressionUUID->"bc72c9a3-c5b0-46ba-a6d9-b78c2dbdb81f"], + CellLabel->"In[20]:=",ExpressionUUID->"bc72c9a3-c5b0-46ba-a6d9-b78c2dbdb81f"], Cell[BoxData["0.09`"], "Output", CellChangeTimes->{ 3.991319786657793*^9, 3.9937997475908947`*^9, 3.993800339182325*^9, - 3.9938003860157137`*^9, {3.9940727568120337`*^9, 3.994072776866831*^9}}, - CellLabel-> - "Out[123]=",ExpressionUUID->"2d182ad6-9b25-4551-860a-a1c2093aa11a"] + 3.9938003860157137`*^9, {3.9940727568120337`*^9, 3.994072776866831*^9}, + 3.9942500593666162`*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"915ff07f-9f2f-4054-bd5c-765c32d044d5"] }, Open ]], Cell[CellGroupData[{ @@ -572,15 +550,14 @@ Cell[BoxData[ RowBox[{"ffin", "=", "0.42"}]], "Input", CellChangeTimes->{{3.9938002062742653`*^9, 3.993800206278376*^9}, { 3.99380037453472*^9, 3.993800374695301*^9}}, - CellLabel-> - "In[124]:=",ExpressionUUID->"447d0e58-8ddf-4214-866b-77f6d8239bf8"], + CellLabel->"In[21]:=",ExpressionUUID->"447d0e58-8ddf-4214-866b-77f6d8239bf8"], Cell[BoxData["0.42`"], "Output", CellChangeTimes->{ 3.9913197866657925`*^9, 3.993799747607007*^9, 3.993800339199224*^9, - 3.9938003860303698`*^9, {3.994072756823955*^9, 3.994072776878458*^9}}, - CellLabel-> - "Out[124]=",ExpressionUUID->"5572f6f5-ac17-4a10-abae-c3d1e8b4aaa4"] + 3.9938003860303698`*^9, {3.994072756823955*^9, 3.994072776878458*^9}, + 3.994250059380542*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"24ce000a-e981-4c38-8303-c6903ff1c381"] }, Open ]], Cell[CellGroupData[{ @@ -589,31 +566,29 @@ Cell[BoxData[ RowBox[{"fex", "=", RowBox[{"-", "2.59"}]}]], "Input", CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, - CellLabel-> - "In[125]:=",ExpressionUUID->"c581d9fe-2738-4459-9369-c0c9c4efed9c"], + CellLabel->"In[22]:=",ExpressionUUID->"c581d9fe-2738-4459-9369-c0c9c4efed9c"], Cell[BoxData[ RowBox[{"-", "2.59`"}]], "Output", CellChangeTimes->{ 3.9913197866996*^9, 3.993799747623555*^9, 3.9938003392162523`*^9, - 3.993800386045208*^9, {3.994072756835642*^9, 3.994072776890398*^9}}, - CellLabel-> - "Out[125]=",ExpressionUUID->"3a1bc198-dd41-4717-9a2b-74bedff19332"] + 3.993800386045208*^9, {3.994072756835642*^9, 3.994072776890398*^9}, + 3.99425005939312*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"2af5660b-0950-4784-81bb-d25a959d7060"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffex", "=", "0.54"}]], "Input", - CellLabel-> - "In[126]:=",ExpressionUUID->"cc3015c8-cbd4-4f2e-a792-825c63ae5ebe"], + CellLabel->"In[23]:=",ExpressionUUID->"cc3015c8-cbd4-4f2e-a792-825c63ae5ebe"], Cell[BoxData["0.54`"], "Output", CellChangeTimes->{ 3.9913197867406044`*^9, 3.9937997476274233`*^9, 3.993800339233366*^9, - 3.993800386060211*^9, {3.994072756847537*^9, 3.994072776902615*^9}}, - CellLabel-> - "Out[126]=",ExpressionUUID->"3cfce95b-b2b2-4c7f-8b59-5c72aa32d310"] + 3.993800386060211*^9, {3.994072756847537*^9, 3.994072776902615*^9}, + 3.994250059405414*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"b03a4dcc-4b9c-4934-9fa4-3007e7d80e30"] }, Open ]], Cell[CellGroupData[{ @@ -623,15 +598,13 @@ Cell[BoxData[ CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, 3.993799773981587*^9, {3.993800017055696*^9, 3.993800017126395*^9}}, - CellLabel-> - "In[127]:=",ExpressionUUID->"e1f365a2-d9d8-4cda-b3a3-e68b31c6a560"], + CellLabel->"In[24]:=",ExpressionUUID->"e1f365a2-d9d8-4cda-b3a3-e68b31c6a560"], Cell[BoxData["64"], "Output", CellChangeTimes->{ 3.9913197867861958`*^9, 3.993800339250176*^9, 3.993800386074368*^9, { - 3.994072756859651*^9, 3.994072776915943*^9}}, - CellLabel-> - "Out[127]=",ExpressionUUID->"29806205-711b-4cc4-acaa-a46456db1a78"] + 3.994072756859651*^9, 3.994072776915943*^9}, 3.994250059419921*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"a1c8efad-27a6-45a5-8511-a87579e89364"] }, Open ]], Cell[CellGroupData[{ @@ -641,15 +614,14 @@ Cell[BoxData[ RowBox[{"92", "-", "Z1"}]}]], "Input", CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, 3.9916443064841423`*^9}, - CellLabel-> - "In[128]:=",ExpressionUUID->"0b81ca95-0a08-4fa3-ad63-7c00f7ffe86d"], + CellLabel->"In[25]:=",ExpressionUUID->"0b81ca95-0a08-4fa3-ad63-7c00f7ffe86d"], Cell[BoxData["28"], "Output", CellChangeTimes->{ 3.9913197867928696`*^9, 3.993799747743443*^9, 3.993800339268099*^9, - 3.993800386088282*^9, {3.994072756878846*^9, 3.994072776927128*^9}}, - CellLabel-> - "Out[128]=",ExpressionUUID->"8b28afdc-aa38-4a47-a3b1-86b4604828c3"] + 3.993800386088282*^9, {3.994072756878846*^9, 3.994072776927128*^9}, + 3.9942500594355*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"bde3ca18-1c99-45bd-9f11-edd28b771872"] }, Open ]], Cell[CellGroupData[{ @@ -658,15 +630,14 @@ Cell[BoxData[ RowBox[{"A2", "=", RowBox[{"A", "-", "A1"}]}]], "Input", CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, - CellLabel-> - "In[129]:=",ExpressionUUID->"9792e723-1517-465f-b393-f9cdb1452b45"], + CellLabel->"In[26]:=",ExpressionUUID->"9792e723-1517-465f-b393-f9cdb1452b45"], Cell[BoxData["64"], "Output", CellChangeTimes->{ 3.991319786827894*^9, 3.993799747762579*^9, 3.9938003392862883`*^9, - 3.993800386103376*^9, {3.994072756893341*^9, 3.994072776939496*^9}}, - CellLabel-> - "Out[129]=",ExpressionUUID->"9ed43bb4-9af7-42ef-91ca-ca98df9d77f9"] + 3.993800386103376*^9, {3.994072756893341*^9, 3.994072776939496*^9}, + 3.994250059448896*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"e001cc23-1078-4aee-bc6a-f85ed770a064"] }, Open ]], Cell[CellGroupData[{ @@ -681,15 +652,14 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[130]:=",ExpressionUUID->"d129cb85-0b12-4ff0-8da3-13df49d7e8f6"], + CellLabel->"In[27]:=",ExpressionUUID->"d129cb85-0b12-4ff0-8da3-13df49d7e8f6"], Cell[BoxData["0.10431818181818181`"], "Output", CellChangeTimes->{ 3.9913197868648605`*^9, 3.993799747778633*^9, 3.993800339303063*^9, - 3.993800386118601*^9, {3.9940727569059267`*^9, 3.994072776951536*^9}}, - CellLabel-> - "Out[130]=",ExpressionUUID->"22cff539-358e-4494-be6c-1d43a033f703"] + 3.993800386118601*^9, {3.9940727569059267`*^9, 3.994072776951536*^9}, + 3.9942500594608297`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"e904d6d3-515e-41fd-a1c5-94bace6fb3a0"] }, Open ]], Cell[CellGroupData[{ @@ -704,16 +674,15 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[131]:=",ExpressionUUID->"1a34dbc5-0170-4999-8a5d-398d58b61037"], + CellLabel->"In[28]:=",ExpressionUUID->"1a34dbc5-0170-4999-8a5d-398d58b61037"], Cell[BoxData[ RowBox[{"-", "2.571590909090909`"}]], "Output", CellChangeTimes->{ 3.9913197868718567`*^9, 3.993799747795951*^9, 3.993800339319376*^9, - 3.993800386134354*^9, {3.9940727569175262`*^9, 3.994072776962891*^9}}, - CellLabel-> - "Out[131]=",ExpressionUUID->"a8989fd7-b8ce-4a00-962c-1a08bbfb2ead"] + 3.993800386134354*^9, {3.9940727569175262`*^9, 3.994072776962891*^9}, + 3.994250059474066*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"39904188-3928-4543-a913-709a1d77204c"] }, Open ]], Cell[CellGroupData[{ @@ -744,15 +713,14 @@ Cell[BoxData[ CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, - CellLabel-> - "In[132]:=",ExpressionUUID->"e4a97bde-72a6-40ff-9081-d4d1dc9478ce"], + CellLabel->"In[29]:=",ExpressionUUID->"e4a97bde-72a6-40ff-9081-d4d1dc9478ce"], Cell[BoxData["16.821909430837295`"], "Output", CellChangeTimes->{ 3.9913197869068584`*^9, 3.993799747812237*^9, 3.993800339336598*^9, - 3.9938003861388483`*^9, {3.994072756929346*^9, 3.994072776974725*^9}}, - CellLabel-> - "Out[132]=",ExpressionUUID->"a204d143-c54b-4a47-a34c-d28fc5fae6b5"] + 3.9938003861388483`*^9, {3.994072756929346*^9, 3.994072776974725*^9}, + 3.9942500594872913`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"cc91b4bf-bee9-4977-bd56-ee6051b524f7"] }, Open ]], Cell[CellGroupData[{ @@ -760,15 +728,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, - CellLabel-> - "In[133]:=",ExpressionUUID->"350e03d0-a9a3-4426-8548-793c5ab9f6a3"], + CellLabel->"In[30]:=",ExpressionUUID->"350e03d0-a9a3-4426-8548-793c5ab9f6a3"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786940857*^9, 3.9937997478307247`*^9, 3.993800339353257*^9, - 3.993800386159964*^9, {3.994072756940832*^9, 3.994072776986273*^9}}, - CellLabel-> - "Out[133]=",ExpressionUUID->"d63b2d79-86f9-461b-bed0-4a63bf27f06b"] + 3.993800386159964*^9, {3.994072756940832*^9, 3.994072776986273*^9}, + 3.994250059499365*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"7a324052-03ca-4c92-9fc5-0e088c65e88f"] }, Open ]], Cell[CellGroupData[{ @@ -778,21 +745,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { 3.9937993902853117`*^9, 3.993799392293758*^9}}, - CellLabel-> - "In[134]:=",ExpressionUUID->"481ec421-0e8e-4829-bccc-f08050fbcebb"], + CellLabel->"In[31]:=",ExpressionUUID->"481ec421-0e8e-4829-bccc-f08050fbcebb"], Cell[BoxData["1.25`"], "Output", CellChangeTimes->{ 3.9937997478713713`*^9, 3.993800339369935*^9, 3.9938003861811666`*^9, { - 3.9940727569525537`*^9, 3.9940727769978867`*^9}}, - CellLabel-> - "Out[134]=",ExpressionUUID->"d3293ad7-2e88-4b22-afc8-6d50121add31"] + 3.9940727569525537`*^9, 3.9940727769978867`*^9}, 3.994250059512166*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"ba0d7550-cf25-4c58-b158-2a91af54d94e"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, - CellLabel-> - "In[135]:=",ExpressionUUID->"21802cf3-c66d-4e8f-b95f-f998fe3e99fc"], + CellLabel->"In[32]:=",ExpressionUUID->"21802cf3-c66d-4e8f-b95f-f998fe3e99fc"], Cell[CellGroupData[{ @@ -801,21 +765,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { 3.993799395152514*^9, 3.9937993965162697`*^9}}, - CellLabel-> - "In[136]:=",ExpressionUUID->"feb7f060-9d53-4587-b6e6-7db8b94cdb65"], + CellLabel->"In[33]:=",ExpressionUUID->"feb7f060-9d53-4587-b6e6-7db8b94cdb65"], Cell[BoxData["0.85`"], "Output", CellChangeTimes->{ 3.993799747898118*^9, 3.993800339418215*^9, 3.993800386208997*^9, { - 3.99407275696742*^9, 3.9940727770129023`*^9}}, - CellLabel-> - "Out[136]=",ExpressionUUID->"69a346bf-ceff-4b7d-acfc-1dc7f5c59d5f"] + 3.99407275696742*^9, 3.9940727770129023`*^9}, 3.994250059536077*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"c5b479c5-d3f3-4160-ad1a-10ac1fd1535c"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, - CellLabel-> - "In[137]:=",ExpressionUUID->"ef889e59-9bea-4de0-b55b-ca1238d824e4"], + CellLabel->"In[34]:=",ExpressionUUID->"ef889e59-9bea-4de0-b55b-ca1238d824e4"], Cell[CellGroupData[{ @@ -824,21 +785,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { 3.993799398824368*^9, 3.9937994002405863`*^9}}, - CellLabel-> - "In[138]:=",ExpressionUUID->"ca9ca022-54dc-48d0-9225-bca8fa9204ed"], + CellLabel->"In[35]:=",ExpressionUUID->"ca9ca022-54dc-48d0-9225-bca8fa9204ed"], Cell[BoxData["2.3`"], "Output", CellChangeTimes->{ 3.993799747923098*^9, 3.993800339511382*^9, 3.993800386234042*^9, { - 3.994072756981262*^9, 3.994072777026493*^9}}, - CellLabel-> - "Out[138]=",ExpressionUUID->"852a4084-4b42-4075-84e3-4df03ba3677f"] + 3.994072756981262*^9, 3.994072777026493*^9}, 3.994250059558996*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"8d6cc437-e4ef-4316-a4fa-7ff13cf535d9"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, - CellLabel-> - "In[139]:=",ExpressionUUID->"e3c627ac-7787-4a32-997a-ce331c786870"], + CellLabel->"In[36]:=",ExpressionUUID->"e3c627ac-7787-4a32-997a-ce331c786870"], Cell[CellGroupData[{ @@ -847,21 +805,18 @@ Cell[BoxData[ CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, 3.991799359954439*^9, {3.993799403099743*^9, 3.9937994038178663`*^9}}, - CellLabel-> - "In[140]:=",ExpressionUUID->"1c407e7a-dc8c-4b18-b06d-b1b9818c7eb8"], + CellLabel->"In[37]:=",ExpressionUUID->"1c407e7a-dc8c-4b18-b06d-b1b9818c7eb8"], Cell[BoxData["1.1`"], "Output", CellChangeTimes->{ 3.9937997479459248`*^9, 3.99380033956159*^9, 3.9938003862601*^9, { - 3.994072756995009*^9, 3.99407277703996*^9}}, - CellLabel-> - "Out[140]=",ExpressionUUID->"cdb4abfa-f666-4e40-8e43-a261804eeee0"] + 3.994072756995009*^9, 3.99407277703996*^9}, 3.994250059580124*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"b1a4872b-33df-46bf-a2a1-da6747b5573c"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, - CellLabel-> - "In[141]:=",ExpressionUUID->"c177eaba-014e-4b6d-bd84-422460cd0578"], + CellLabel->"In[38]:=",ExpressionUUID->"c177eaba-014e-4b6d-bd84-422460cd0578"], Cell[CellGroupData[{ @@ -870,21 +825,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, 3.991718016467348*^9, 3.991799361414671*^9, {3.993799407392029*^9, 3.993799410650194*^9}}, - CellLabel-> - "In[142]:=",ExpressionUUID->"bfe5a85a-5d9e-49f7-b9d8-e0ca962ffb19"], + CellLabel->"In[39]:=",ExpressionUUID->"bfe5a85a-5d9e-49f7-b9d8-e0ca962ffb19"], Cell[BoxData["0.8664`"], "Output", CellChangeTimes->{ 3.993799747968698*^9, 3.993800339671721*^9, 3.9938003862845907`*^9, { - 3.994072757008773*^9, 3.994072777054493*^9}}, - CellLabel-> - "Out[142]=",ExpressionUUID->"f0ab51ff-f487-4f85-9efd-03179c05e869"] + 3.994072757008773*^9, 3.994072777054493*^9}, 3.9942500596007547`*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"9559be83-7fdf-446f-9e86-b5335e9648b5"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, - CellLabel-> - "In[143]:=",ExpressionUUID->"7357cf96-42e8-4230-aa7b-aa787e8d53a4"], + CellLabel->"In[40]:=",ExpressionUUID->"7357cf96-42e8-4230-aa7b-aa787e8d53a4"], Cell[CellGroupData[{ @@ -893,21 +845,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9937994136330442`*^9, 3.993799417576207*^9}}, - CellLabel-> - "In[144]:=",ExpressionUUID->"39968499-04f4-4aaf-969f-47dd9552cbf6"], + CellLabel->"In[41]:=",ExpressionUUID->"39968499-04f4-4aaf-969f-47dd9552cbf6"], Cell[BoxData["0.5924`"], "Output", CellChangeTimes->{ 3.993799747991611*^9, 3.9938003397687387`*^9, 3.993800386310059*^9, { - 3.994072757022612*^9, 3.994072777068264*^9}}, - CellLabel-> - "Out[144]=",ExpressionUUID->"69f114af-ca26-436a-81b2-2407cc9450e9"] + 3.994072757022612*^9, 3.994072777068264*^9}, 3.9942500596235113`*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"213c4da1-509a-4a5c-90ee-fd3373ce5b47"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, - CellLabel-> - "In[145]:=",ExpressionUUID->"d3e8d03f-922c-4529-83f3-834f319f227f"], + CellLabel->"In[42]:=",ExpressionUUID->"d3e8d03f-922c-4529-83f3-834f319f227f"], Cell[CellGroupData[{ @@ -916,21 +865,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.993799421955809*^9, 3.993799423886447*^9}}, - CellLabel-> - "In[146]:=",ExpressionUUID->"42e5f601-68c0-48aa-be8c-ef94de9cfd95"], + CellLabel->"In[43]:=",ExpressionUUID->"42e5f601-68c0-48aa-be8c-ef94de9cfd95"], Cell[BoxData["1.888`"], "Output", CellChangeTimes->{ 3.993799748012844*^9, 3.993800339865109*^9, 3.993800386335606*^9, { - 3.9940727570366488`*^9, 3.9940727770819397`*^9}}, - CellLabel-> - "Out[146]=",ExpressionUUID->"c6f7bafd-9e26-44d5-a29e-9ee44966b3e4"] + 3.9940727570366488`*^9, 3.9940727770819397`*^9}, 3.994250059647669*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"8bc475e2-389e-4448-a4f7-9982e049f744"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, - CellLabel-> - "In[147]:=",ExpressionUUID->"ed21966d-6f60-421a-9734-6562b989ca42"], + CellLabel->"In[44]:=",ExpressionUUID->"ed21966d-6f60-421a-9734-6562b989ca42"], Cell[CellGroupData[{ @@ -938,21 +884,18 @@ Cell[BoxData[ RowBox[{"nn2", "=", "0.6347"}]], "Input", CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, 3.9917993660901737`*^9, {3.993799431418026*^9, 3.9937994366447783`*^9}}, - CellLabel-> - "In[148]:=",ExpressionUUID->"7ef1268d-339d-47a7-b3cf-faa6a79673d4"], + CellLabel->"In[45]:=",ExpressionUUID->"7ef1268d-339d-47a7-b3cf-faa6a79673d4"], Cell[BoxData["0.6347`"], "Output", CellChangeTimes->{ 3.99379974807285*^9, 3.993800339960155*^9, 3.9938003863606977`*^9, { - 3.99407275705245*^9, 3.994072777095529*^9}}, - CellLabel-> - "Out[148]=",ExpressionUUID->"292bceff-de31-49c8-b372-bcdac9985ade"] + 3.99407275705245*^9, 3.994072777095529*^9}, 3.994250059671815*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"d5cf9d4e-3453-46ac-a3bf-9a9bbdde6ed6"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, - CellLabel-> - "In[149]:=",ExpressionUUID->"31910eb0-1db4-4f39-bf09-7dba319f9823"], + CellLabel->"In[46]:=",ExpressionUUID->"31910eb0-1db4-4f39-bf09-7dba319f9823"], Cell[CellGroupData[{ @@ -1441,15 +1384,14 @@ uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== "], - CellLabel-> - "In[150]:=",ExpressionUUID->"283d5454-8e51-49c6-aa3a-6a51d5e5e555"], + CellLabel->"In[47]:=",ExpressionUUID->"283d5454-8e51-49c6-aa3a-6a51d5e5e555"], Cell[BoxData["0.33523276963055626`"], "Output", CellChangeTimes->{ 3.991319787430073*^9, 3.9937997481547623`*^9, 3.993800340061625*^9, - 3.9938003864136953`*^9, {3.994072757136285*^9, 3.994072777132966*^9}}, - CellLabel-> - "Out[150]=",ExpressionUUID->"6988f7b7-848d-4a23-a483-c41283d84606"] + 3.9938003864136953`*^9, {3.994072757136285*^9, 3.994072777132966*^9}, + 3.994250066253241*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"ecde2391-9b2c-4151-b4ed-3c77ef6377af"] }, Open ]], Cell[CellGroupData[{ @@ -1943,15 +1885,14 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[151]:=",ExpressionUUID->"7af6b117-42fc-4eac-a166-c4daf4a1f93b"], + CellLabel->"In[48]:=",ExpressionUUID->"7af6b117-42fc-4eac-a166-c4daf4a1f93b"], Cell[BoxData["10.264944924096582`"], "Output", CellChangeTimes->{ 3.991319787574972*^9, 3.9937997481878023`*^9, 3.993800340089472*^9, - 3.993800386441668*^9, {3.994072757163142*^9, 3.9940727771627817`*^9}}, - CellLabel-> - "Out[151]=",ExpressionUUID->"53af5287-57f7-42ba-af9e-176cb3e1888f"] + 3.993800386441668*^9, {3.994072757163142*^9, 3.9940727771627817`*^9}, + 3.994250066662915*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"9c6f9a1a-acb2-410c-91f2-58cc5c8acad8"] }, Open ]], Cell[CellGroupData[{ @@ -2439,16 +2380,15 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[152]:=",ExpressionUUID->"3ccc2b55-71ba-4056-8693-fbdcffc0f206"], + CellLabel->"In[49]:=",ExpressionUUID->"3ccc2b55-71ba-4056-8693-fbdcffc0f206"], Cell[BoxData[ RowBox[{"-", "28.42814742925769`"}]], "Output", CellChangeTimes->{ 3.991319787641424*^9, 3.993799748217864*^9, 3.993800340114811*^9, - 3.993800386467917*^9, {3.99407275718851*^9, 3.994072777190625*^9}}, - CellLabel-> - "Out[152]=",ExpressionUUID->"98adbb54-c003-472e-ad99-620d5cc2b8da"] + 3.993800386467917*^9, {3.99407275718851*^9, 3.994072777190625*^9}, + 3.9942500667291403`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"e731d561-26d8-4b05-b05a-b0ceb1ebd5b1"] }, Open ]], Cell[CellGroupData[{ @@ -3006,16 +2946,15 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[153]:=",ExpressionUUID->"a1dd8794-cc51-478e-a833-fb04766b2ffc"], + CellLabel->"In[50]:=",ExpressionUUID->"a1dd8794-cc51-478e-a833-fb04766b2ffc"], Cell[BoxData[ RowBox[{"-", "38.363033654277935`"}]], "Output", CellChangeTimes->{ 3.991319787711939*^9, 3.9937997482559977`*^9, 3.993800340146491*^9, - 3.993800386499661*^9, {3.9940727572190027`*^9, 3.994072777223873*^9}}, - CellLabel-> - "Out[153]=",ExpressionUUID->"f891023f-cdb7-4aaa-b377-159de5ab3968"] + 3.993800386499661*^9, {3.9940727572190027`*^9, 3.994072777223873*^9}, + 3.994250066802491*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"95778ff5-11dc-448b-9809-dee09c57a35e"] }, Open ]], Cell[CellGroupData[{ @@ -3573,16 +3512,15 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[154]:=",ExpressionUUID->"94521f07-d62c-4bf4-a121-941b5e1ee3c6"], + CellLabel->"In[51]:=",ExpressionUUID->"94521f07-d62c-4bf4-a121-941b5e1ee3c6"], Cell[BoxData[ RowBox[{"-", "84.97316533656249`"}]], "Output", CellChangeTimes->{ 3.9913197877723045`*^9, 3.993799748294525*^9, 3.993800340178175*^9, - 3.9938003865308523`*^9, {3.994072757249708*^9, 3.994072777255313*^9}}, - CellLabel-> - "Out[154]=",ExpressionUUID->"806796f5-9102-4adb-a2ac-f62cb661e65c"] + 3.9938003865308523`*^9, {3.994072757249708*^9, 3.994072777255313*^9}, + 3.994250066903666*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"315a8281-8ef5-4058-86f8-978013930177"] }, Open ]], Cell[CellGroupData[{ @@ -4213,46 +4151,43 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[155]:=",ExpressionUUID->"dcc7952e-a3a2-4d76-b674-4b42ede27271"], + CellLabel->"In[52]:=",ExpressionUUID->"dcc7952e-a3a2-4d76-b674-4b42ede27271"], Cell[BoxData[ RowBox[{"-", "228.76196692780508`"}]], "Output", CellChangeTimes->{ 3.991319787833355*^9, 3.993799748333426*^9, 3.9938003402193203`*^9, - 3.9938003865686073`*^9, {3.9940727572851143`*^9, 3.9940727772935343`*^9}}, - CellLabel-> - "Out[155]=",ExpressionUUID->"32f94ba7-acc2-47e3-a615-be4dfad3d5c0"] + 3.9938003865686073`*^9, {3.9940727572851143`*^9, 3.9940727772935343`*^9}, + 3.994250067019252*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"5298d4e2-eb80-4225-9c8d-ea99d5a576ae"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U21", "=", "0"}]], "Input", - CellLabel-> - "In[156]:=",ExpressionUUID->"f049700b-5790-40d4-a767-d0963e3b3e89"], + CellLabel->"In[53]:=",ExpressionUUID->"f049700b-5790-40d4-a767-d0963e3b3e89"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210013676`*^9, 3.993799748353148*^9, 3.993800340246324*^9, - 3.993800386583934*^9, {3.99407275729825*^9, 3.994072777306653*^9}}, - CellLabel-> - "Out[156]=",ExpressionUUID->"5ff7e855-3525-4138-9650-5ae73196b0e1"] + 3.993800386583934*^9, {3.99407275729825*^9, 3.994072777306653*^9}, + 3.9942500670422363`*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"b11f7fcb-2fb8-40df-9dc0-b8415437af9c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U22", "=", "0"}]], "Input", - CellLabel-> - "In[157]:=",ExpressionUUID->"7f685872-bb50-46b2-8887-06d96df1a8c2"], + CellLabel->"In[54]:=",ExpressionUUID->"7f685872-bb50-46b2-8887-06d96df1a8c2"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210355663`*^9, 3.993799748372961*^9, 3.9938003402680492`*^9, - 3.993800386599262*^9, {3.99407275730969*^9, 3.994072777318306*^9}}, - CellLabel-> - "Out[157]=",ExpressionUUID->"8f3a94f6-7495-4aa7-a626-7333dcb38894"] + 3.993800386599262*^9, {3.99407275730969*^9, 3.994072777318306*^9}, + 3.994250067058238*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"9478cf43-a6c6-4f4c-a291-fcab528029cd"] }, Open ]], Cell[CellGroupData[{ @@ -4296,15 +4231,14 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[158]:=",ExpressionUUID->"66cde6be-2db1-4fc6-99a1-4fd5ec0fc367"], + CellLabel->"In[55]:=",ExpressionUUID->"66cde6be-2db1-4fc6-99a1-4fd5ec0fc367"], Cell[BoxData["185.79450939883742`"], "Output", CellChangeTimes->{ 3.991320421068556*^9, 3.9937997483941936`*^9, 3.9938003402909203`*^9, - 3.99380038661649*^9, {3.9940727573211393`*^9, 3.994072777330056*^9}}, - CellLabel-> - "Out[158]=",ExpressionUUID->"dcc1948f-eb9b-4b0d-8351-c7c5cc69354d"] + 3.99380038661649*^9, {3.9940727573211393`*^9, 3.994072777330056*^9}, + 3.9942500670759974`*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"3359c25f-70a6-4a10-9435-13b67efa83e6"] }, Open ]], Cell[CellGroupData[{ @@ -4344,16 +4278,15 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[159]:=",ExpressionUUID->"06c42e12-35e7-47a6-9ee0-d1126a4de73c"], + CellLabel->"In[56]:=",ExpressionUUID->"06c42e12-35e7-47a6-9ee0-d1126a4de73c"], Cell[BoxData[ RowBox[{"-", "142.60312447586276`"}]], "Output", CellChangeTimes->{ 3.991320421098543*^9, 3.9937997484173307`*^9, 3.993800340312326*^9, - 3.993800386633136*^9, {3.99407275733285*^9, 3.994072777341887*^9}}, - CellLabel-> - "Out[159]=",ExpressionUUID->"8c68a84b-1dee-4767-a837-7f39a028ef74"] + 3.993800386633136*^9, {3.99407275733285*^9, 3.994072777341887*^9}, + 3.99425006709304*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"aed51f7e-226b-4f36-bda2-2a9d14648e63"] }, Open ]], Cell[CellGroupData[{ @@ -4397,101 +4330,94 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[160]:=",ExpressionUUID->"4fc8cd09-dfb0-4d0b-be5a-7428b1c347ab"], + CellLabel->"In[57]:=",ExpressionUUID->"4fc8cd09-dfb0-4d0b-be5a-7428b1c347ab"], Cell[BoxData["169.9317606773619`"], "Output", CellChangeTimes->{ 3.9913204211275444`*^9, 3.993799748440692*^9, 3.993800340332926*^9, - 3.99380038664979*^9, {3.994072757344488*^9, 3.994072777353434*^9}}, - CellLabel-> - "Out[160]=",ExpressionUUID->"679be1ab-e7bd-42ce-8bfa-dd4d23338f3d"] + 3.99380038664979*^9, {3.994072757344488*^9, 3.994072777353434*^9}, + 3.9942500671074543`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"d9ade1da-71d5-4de3-aba7-47226d156e26"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c11"], "Input", - CellLabel-> - "In[161]:=",ExpressionUUID->"db8d809e-1222-4cf0-9e4f-ef3bfc3b334d"], + CellLabel->"In[58]:=",ExpressionUUID->"db8d809e-1222-4cf0-9e4f-ef3bfc3b334d"], Cell[BoxData["0.5126444245586296`"], "Output", CellChangeTimes->{ 3.9913204211385536`*^9, 3.9937997484629087`*^9, 3.9938003403521013`*^9, - 3.9938003866670628`*^9, {3.994072757355731*^9, 3.994072777364881*^9}}, - CellLabel-> - "Out[161]=",ExpressionUUID->"7c92d47a-6511-46d9-bdf9-53197e4bbe79"] + 3.9938003866670628`*^9, {3.994072757355731*^9, 3.994072777364881*^9}, + 3.994250067123652*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"4cf803e0-bcab-4dcb-96e3-67a37b2a9503"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c12"], "Input", - CellLabel-> - "In[162]:=",ExpressionUUID->"61102ee4-fd56-4f4e-aae9-6e6f85d6ad61"], + CellLabel->"In[59]:=",ExpressionUUID->"61102ee4-fd56-4f4e-aae9-6e6f85d6ad61"], Cell[BoxData[ RowBox[{"-", "0.12490541136574432`"}]], "Output", CellChangeTimes->{ 3.9913204211683464`*^9, 3.9937997484829597`*^9, 3.993800340372787*^9, - 3.993800386684751*^9, {3.994072759775218*^9, 3.994072777376302*^9}}, - CellLabel-> - "Out[162]=",ExpressionUUID->"3ac30277-7408-4f52-85a3-b99862f0dd87"] + 3.993800386684751*^9, {3.994072759775218*^9, 3.994072777376302*^9}, + 3.994250067139782*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"030bb4f8-b21e-497a-b2c1-6be05757352c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c21"], "Input", - CellLabel-> - "In[163]:=",ExpressionUUID->"c1212b5a-b9b3-4efb-b791-b5aef973bee3"], + CellLabel->"In[60]:=",ExpressionUUID->"c1212b5a-b9b3-4efb-b791-b5aef973bee3"], Cell[BoxData[ RowBox[{"-", "0.47786808677187637`"}]], "Output", CellChangeTimes->{ 3.991320421199068*^9, 3.993799748505329*^9, 3.9938003403919477`*^9, - 3.9938003866995373`*^9, {3.9940727599543447`*^9, 3.9940727773879633`*^9}}, - CellLabel-> - "Out[163]=",ExpressionUUID->"9d4b6cea-fad1-4ea1-988b-7212601b2da5"] + 3.9938003866995373`*^9, {3.9940727599543447`*^9, 3.9940727773879633`*^9}, + 3.994250067152307*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"91668a8d-6ce7-43e4-bf3a-61f53c5d53ef"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c22"], "Input", - CellLabel-> - "In[164]:=",ExpressionUUID->"bd0f6c6f-1262-47f5-b928-eaf93d21780f"], + CellLabel->"In[61]:=",ExpressionUUID->"bd0f6c6f-1262-47f5-b928-eaf93d21780f"], Cell[BoxData["0.6637051934091774`"], "Output", CellChangeTimes->{ 3.991320421228037*^9, 3.99379974852349*^9, 3.993800340409604*^9, - 3.993800386721094*^9, {3.994072759966642*^9, 3.994072777399509*^9}}, - CellLabel-> - "Out[164]=",ExpressionUUID->"ac94a248-912d-46b5-bee4-2d4c2086b5fd"] + 3.993800386721094*^9, {3.994072759966642*^9, 3.994072777399509*^9}, + 3.994250067169732*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"33aa6ae1-c842-4591-a052-15de5137ffc2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w1"], "Input", - CellLabel-> - "In[165]:=",ExpressionUUID->"d0bb7e0b-e8c2-4560-9290-f48e0bd1fcbd"], + CellLabel->"In[62]:=",ExpressionUUID->"d0bb7e0b-e8c2-4560-9290-f48e0bd1fcbd"], Cell[BoxData["2.0171665757171935`"], "Output", CellChangeTimes->{ 3.9913204212585373`*^9, 3.993799748542218*^9, 3.993800340426003*^9, - 3.9938003867354116`*^9, {3.9940727599787703`*^9, 3.9940727774113617`*^9}}, - CellLabel-> - "Out[165]=",ExpressionUUID->"6f7dd9fc-9eaf-47f3-a13d-609280d996bc"] + 3.9938003867354116`*^9, {3.9940727599787703`*^9, 3.9940727774113617`*^9}, + 3.994250067186906*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"f20e8f7f-d9fd-4101-93f5-2a33ca65638a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w2"], "Input", - CellLabel-> - "In[166]:=",ExpressionUUID->"95e2a8d5-1951-4102-99f6-ad51c308744b"], + CellLabel->"In[63]:=",ExpressionUUID->"95e2a8d5-1951-4102-99f6-ad51c308744b"], Cell[BoxData["1.5074639495621045`"], "Output", CellChangeTimes->{ 3.9913204212884274`*^9, 3.9937997485616417`*^9, 3.99380034044471*^9, - 3.9938003867502003`*^9, {3.9940727599906197`*^9, 3.994072777422779*^9}}, - CellLabel-> - "Out[166]=",ExpressionUUID->"23453211-1bac-4674-ba6d-3d965c8d2ce2"] + 3.9938003867502003`*^9, {3.9940727599906197`*^9, 3.994072777422779*^9}, + 3.994250067202242*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"d43be2fa-28e4-489c-9b78-c27232b8e0a6"] }, Open ]], Cell[CellGroupData[{ @@ -4512,16 +4438,15 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", - CellLabel-> - "In[167]:=",ExpressionUUID->"5fdf5ad0-f7da-4941-a920-31a470629a9d"], + CellLabel->"In[64]:=",ExpressionUUID->"5fdf5ad0-f7da-4941-a920-31a470629a9d"], Cell[BoxData[ RowBox[{"-", "30.893583323663808`"}]], "Output", CellChangeTimes->{ 3.9913204213185234`*^9, 3.993799748579701*^9, 3.9938003404617233`*^9, - 3.993800386765017*^9, {3.994072760002514*^9, 3.994072777434401*^9}}, - CellLabel-> - "Out[167]=",ExpressionUUID->"07561e06-67bb-4861-b9bc-c99a4674b80d"] + 3.993800386765017*^9, {3.994072760002514*^9, 3.994072777434401*^9}, + 3.9942500672175007`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"0d804e03-cd3c-4bba-b99f-7114fedbf0b0"] }, Open ]], Cell[CellGroupData[{ @@ -4542,16 +4467,15 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", - CellLabel-> - "In[168]:=",ExpressionUUID->"117301c3-7e4a-415b-aa06-a1570cc08ffc"], + CellLabel->"In[65]:=",ExpressionUUID->"117301c3-7e4a-415b-aa06-a1570cc08ffc"], Cell[BoxData[ RowBox[{"-", "7.926031139913374`"}]], "Output", CellChangeTimes->{ 3.991320421349531*^9, 3.993799748598835*^9, 3.993800340479863*^9, - 3.9938003867807913`*^9, {3.994072760013989*^9, 3.994072777446135*^9}}, - CellLabel-> - "Out[168]=",ExpressionUUID->"02d82b2e-123f-4e82-a917-7e75a4170da0"] + 3.9938003867807913`*^9, {3.994072760013989*^9, 3.994072777446135*^9}, + 3.994250067233871*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"76823b21-9b8c-450c-9bbf-d0c633f828cb"] }, Open ]], Cell[CellGroupData[{ @@ -4616,15 +4540,14 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[169]:=",ExpressionUUID->"f29874dc-4ff3-4453-bd9b-b86716b3ff4a"], + CellLabel->"In[66]:=",ExpressionUUID->"f29874dc-4ff3-4453-bd9b-b86716b3ff4a"], Cell[BoxData["154.9009260751736`"], "Output", CellChangeTimes->{ 3.9913204213784294`*^9, 3.993799748618464*^9, 3.993800340498665*^9, - 3.993800386794903*^9, {3.994072760026211*^9, 3.994072777457891*^9}}, - CellLabel-> - "Out[169]=",ExpressionUUID->"ed240888-0b33-4f6c-96bb-73687a4c1683"] + 3.993800386794903*^9, {3.994072760026211*^9, 3.994072777457891*^9}, + 3.994250067251968*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"63e64b51-eb4e-4ded-9393-84e8e08b12b6"] }, Open ]], Cell[CellGroupData[{ @@ -4665,16 +4588,15 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[170]:=",ExpressionUUID->"2d395a23-c156-4ff4-8920-53ed3530d6dd"], + CellLabel->"In[67]:=",ExpressionUUID->"2d395a23-c156-4ff4-8920-53ed3530d6dd"], Cell[BoxData[ RowBox[{"-", "142.60312447586276`"}]], "Output", CellChangeTimes->{ 3.9913204213904285`*^9, 3.993799748639475*^9, 3.993800340517002*^9, - 3.993800386808839*^9, {3.9940727600400333`*^9, 3.994072777469482*^9}}, - CellLabel-> - "Out[170]=",ExpressionUUID->"6fa6afcb-d4bb-43c4-98e8-c2787ff22ec7"] + 3.993800386808839*^9, {3.9940727600400333`*^9, 3.994072777469482*^9}, + 3.994250067267383*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"9236e1d0-894f-4490-aea9-afef90d34fad"] }, Open ]], Cell[CellGroupData[{ @@ -4740,15 +4662,14 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[171]:=",ExpressionUUID->"cebf7a85-b90c-4fd0-b6d2-a6bcf590c115"], + CellLabel->"In[68]:=",ExpressionUUID->"cebf7a85-b90c-4fd0-b6d2-a6bcf590c115"], Cell[BoxData["162.00572953744853`"], "Output", CellChangeTimes->{ 3.991320421419428*^9, 3.993799748660536*^9, 3.993800340536582*^9, - 3.993800386822714*^9, {3.994072760046308*^9, 3.994072777481387*^9}}, - CellLabel-> - "Out[171]=",ExpressionUUID->"cf2d52e0-1ff1-4ae7-b6a0-aedde425cce4"] + 3.993800386822714*^9, {3.994072760046308*^9, 3.994072777481387*^9}, + 3.994250067305608*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"8b0b4a97-136f-42b5-8ff2-5d139ced461d"] }, Open ]], Cell[CellGroupData[{ @@ -4808,15 +4729,14 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}], ")"}]}], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[172]:=",ExpressionUUID->"89b62d0b-e390-4fff-a801-1f0e9b97397a"], + CellLabel->"In[69]:=",ExpressionUUID->"89b62d0b-e390-4fff-a801-1f0e9b97397a"], Cell[BoxData["110.13261932733474`"], "Output", CellChangeTimes->{ 3.9913204214494324`*^9, 3.993799748682187*^9, 3.9938003405568943`*^9, - 3.993800386836596*^9, {3.994072760058202*^9, 3.994072777493164*^9}}, - CellLabel-> - "Out[172]=",ExpressionUUID->"04b7e1fd-1c35-404b-9221-b318563f5666"] + 3.993800386836596*^9, {3.994072760058202*^9, 3.994072777493164*^9}, + 3.994250067322308*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"41764151-36cf-4af3-885d-8ecf7d942b1e"] }, Open ]], Cell[CellGroupData[{ @@ -4874,38 +4794,47 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[173]:=",ExpressionUUID->"89b80508-67f6-42e8-98c7-04677add7ef7"], + CellLabel->"In[70]:=",ExpressionUUID->"89b80508-67f6-42e8-98c7-04677add7ef7"], Cell[BoxData["1014.9570765717414`"], "Output", CellChangeTimes->{ 3.991320421481529*^9, 3.993799748705882*^9, 3.9938003405772467`*^9, - 3.993800386850522*^9, {3.994072760069648*^9, 3.994072777505143*^9}}, - CellLabel-> - "Out[173]=",ExpressionUUID->"4199a712-b184-4b2a-82fb-22c986524e3a"] + 3.993800386850522*^9, {3.994072760069648*^9, 3.994072777505143*^9}, + 3.994250067340131*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"5bc08416-f63e-4504-af84-3b1e50edc1a1"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"f1", "=", "0.3423643297"}]], "Input", - CellChangeTimes->{3.9918505481678543`*^9, - 3.9940826462637444`*^9},ExpressionUUID->"83cccf0d-dccb-fb42-a058-\ -5e950c758893"], + CellChangeTimes->{3.9918505481678543`*^9, 3.9940826462637444`*^9}, + CellLabel->"In[71]:=",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], + +Cell[BoxData["0.3423643297`"], "Output", + CellChangeTimes->{3.994250067355933*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"7b994fba-54b4-4cdf-8141-b06e4d4ffe94"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991850549355442*^9, - 3.991850549360302*^9}},ExpressionUUID->"7730e455-e5f4-194b-b761-\ -e7a6896afd10"], + CellChangeTimes->{{3.991850549355442*^9, 3.991850549360302*^9}}, + CellLabel->"In[72]:=",ExpressionUUID->"7730e455-e5f4-194b-b761-e7a6896afd10"], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f2", "=", "0.1470031674"}]], "Input", - CellChangeTimes->{3.991850550777445*^9, - 3.9940826534958563`*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-\ -5e27a96171a9"], + CellChangeTimes->{3.991850550777445*^9, 3.9940826534958563`*^9}, + CellLabel->"In[73]:=",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], + +Cell[BoxData["0.1470031674`"], "Output", + CellChangeTimes->{3.994250067381749*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"141bc133-24ba-41f8-ab73-97d679ad83e0"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918505524437046`*^9, - 3.991850552447544*^9}},ExpressionUUID->"86df0a71-aa65-aa41-b8f1-\ -8c5c5be10fe8"], + CellChangeTimes->{{3.9918505524437046`*^9, 3.991850552447544*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], Cell[CellGroupData[{ @@ -4950,9 +4879,12 @@ Cell[BoxData[ RowBox[{"1.16", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], - ")"}]}]], "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], + ")"}]}]], "Input", + CellLabel->"In[75]:=",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], -Cell[BoxData["2.3793916761039806`*^-53"], "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] +Cell[BoxData["1.3128345860136716`*^-53"], "Output", + CellChangeTimes->{3.994250067407608*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"37544986-5159-40bb-82b5-c5948267970e"] }, Open ]], Cell[CellGroupData[{ @@ -4986,11 +4918,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.9915577064670105`*^9},ExpressionUUID->"c16f367e-d189-2745-b3b8-\ -a9b137c5e3b6"], + CellChangeTimes->{3.9915577064670105`*^9}, + CellLabel->"In[76]:=",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], -Cell[BoxData["5.0207251137958644`*^-55"], "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] +Cell[BoxData["4.334393130350584`*^-55"], "Output", + CellChangeTimes->{3.994250067425646*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"60b5ced1-2bbf-4257-bb82-20c80d8622e7"] }, Open ]], Cell[CellGroupData[{ @@ -5023,11 +4956,12 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.991557709328657*^9, - 3.991557711123291*^9}},ExpressionUUID->"b7d001ae-480c-4b41-8df9-\ -8010347227f7"], + CellChangeTimes->{{3.991557709328657*^9, 3.991557711123291*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], -Cell[BoxData["1.8713726427856714`*^-54"], "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] +Cell[BoxData["8.640107903234213`*^-55"], "Output", + CellChangeTimes->{3.994250067440537*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"f2f288f0-9151-4b5e-b9b3-a1b8558f6809"] }, Open ]], Cell[CellGroupData[{ @@ -5049,10 +4983,12 @@ Cell[BoxData[ RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Ih", "*", "Ir"}], - RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"d15e5e59-9ad8-\ -e247-a132-b43b2736212a"], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel->"In[78]:=",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], -Cell[BoxData["25.178011816139865`"], "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] +Cell[BoxData["11.764668489835826`"], "Output", + CellChangeTimes->{3.994250067456841*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"0be17b88-a358-4576-912c-a7aa0231b241"] }, Open ]], Cell[CellGroupData[{ @@ -5077,10 +5013,12 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", RowBox[{"(", - RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input",Expre\ -ssionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], -Cell[BoxData["37.88040277230648`"], "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] +Cell[BoxData["20.690063583065662`"], "Output", + CellChangeTimes->{3.994250067471386*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"8b4d0f46-466f-43ad-b4a2-f92fd37c15bf"] }, Open ]], Cell[CellGroupData[{ @@ -5088,10 +5026,12 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ - FractionBox["Kb", "Qb3"]]}]], "Input",ExpressionUUID->"906db7f6-73f3-8a4e-\ -88a4-7c75445a4f32"], + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], -Cell[BoxData["0.7475613664924765`"], "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +Cell[BoxData["3.05962455155033`"], "Output", + CellChangeTimes->{3.994250067486423*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"3d5cbdb0-777a-40ee-a4e0-c1d7f227a593"] }, Open ]], Cell[CellGroupData[{ @@ -5099,10 +5039,12 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ - FractionBox["Kw", "Qw3"]]}]], "Input",ExpressionUUID->"731b68b1-c44a-6c4a-\ -a9f8-bc957ede9a68"], + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], -Cell[BoxData["3.219272026986442`"], "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +Cell[BoxData["7.003948197765582`"], "Output", + CellChangeTimes->{3.9942500675026903`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"8ea62029-06b3-4f50-a36b-a0696ab6096c"] }, Open ]], Cell[CellGroupData[{ @@ -5110,10 +5052,12 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ - RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input",ExpressionUUID->"71af6813-\ -eb8f-4944-8d03-7bcd77a7b4b4"], + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], -Cell[BoxData["121.94732101586592`"], "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +Cell[BoxData["144.91213354426804`"], "Output", + CellChangeTimes->{3.994250067517683*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"485c781f-ec13-4c4e-aebc-8019f6e5d3ea"] }, Open ]], Cell[CellGroupData[{ @@ -5121,10 +5065,12 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ - RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"28815b73-\ -08dc-e64f-8823-2a55ad6b8ca8"], + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[83]:=",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], -Cell[BoxData["18.822108918837237`"], "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +Cell[BoxData["35.995468552352236`"], "Output", + CellChangeTimes->{3.99425006753115*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"60183823-253b-46d3-a888-95de74bd3abf"] }, Open ]], Cell[CellGroupData[{ @@ -5312,10 +5258,12 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"137e8d46-8eff-3c47-\ -bf8f-1350d0b8a0bb"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[84]:=",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], -Cell[BoxData["0.04118782656518991`"], "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +Cell[BoxData["0.0061371056045525525`"], "Output", + CellChangeTimes->{3.994250067546258*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"26a31ecf-7433-4134-b9e1-32e3f7514858"] }, Open ]], Cell[CellGroupData[{ @@ -5327,18 +5275,12 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"65edd566-\ -4493-2440-9c51-9fca28ce324b"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[85]:=",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"b04cf5cc-6c74-f842-9fba-c737c46f5a7b"], - -Cell[BoxData["4.366771860185336`"], "Output",ExpressionUUID->"32922499-707a-964c-90f0-b2630d16ee29"] +Cell[BoxData["11.312618524819133`"], "Output", + CellChangeTimes->{3.994250067812888*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"14abc88e-e5a0-4d3a-ab82-a1d8a0118d17"] }, Open ]], Cell[CellGroupData[{ @@ -5528,10 +5470,12 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"d808e80b-1928-8046-\ -afec-31463f4946cd"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[86]:=",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], -Cell[BoxData["0.010567083454288358`"], "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +Cell[BoxData["0.027330129731499574`"], "Output", + CellChangeTimes->{3.994250067832333*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"b3047c40-a3a4-4b8e-a271-6b6ffa274074"] }, Open ]], Cell[CellGroupData[{ @@ -5543,18 +5487,12 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"56b1717f-\ -bc75-4047-98f0-7a0dede3f8a9"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[87]:=",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"6f900e99-9e38-fb4c-84fd-e99588ed1cc5"], - -Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"e5a93687-7c76-eb48-a79a-098cbe08792a"] +Cell[BoxData["5.360731976103973`"], "Output", + CellChangeTimes->{3.9942500679643927`*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"8bdd68f9-98a3-4574-956e-12193d3056fd"] }, Open ]], Cell[CellGroupData[{ @@ -5645,10 +5583,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-\ -f74418e31aeb"], + ")"}]}]}]], "Input", + CellLabel->"In[88]:=",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], -Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +Cell[BoxData["0.06403372334152496`"], "Output", + CellChangeTimes->{3.99425006798556*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"100521ff-88f8-41a0-af01-522898da21a2"] }, Open ]], Cell[CellGroupData[{ @@ -5736,10 +5676,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-\ -91d5391478d5"], + ")"}]}]}]], "Input", + CellLabel->"In[89]:=",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], -Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +Cell[BoxData["0.9359662766584752`"], "Output", + CellChangeTimes->{3.994250068028407*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"b90ebfd4-d766-46a9-ad03-50f673e7a567"] }, Open ]], Cell[CellGroupData[{ @@ -5860,16 +5802,18 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", - "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"bea639c9-f172-\ -ef4e-9454-9d4e027f5fa2"], + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel->"In[90]:=",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], -Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] +Cell[BoxData["0.059933405616546`"], "Output", + CellChangeTimes->{3.9942500680443983`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"9b33aa90-2168-4fab-a60e-e757dfe43ff3"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"752e2dd5-bee6-\ -2048-8697-fe84d79611fa"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], Cell[CellGroupData[{ @@ -5930,27 +5874,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918505674491863`*^9},ExpressionUUID->"f8b12d93-5bd9-8641-aa98-\ -3d78ebb0f21b"], + CellChangeTimes->{3.9918505674491863`*^9}, + CellLabel->"In[92]:=",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"4105bae1-ec8c-fc46-bc8a-9d70c37ec32c"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.86135584041237`*^-201\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 1, + 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994250068094542*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"af20b25e-0263-4be1-ac68-939f31b75962"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"42c1a263-2456-664a-bb33-c5fe841cb412"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.102465472936997`*^-206\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 2, + 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994250068112207*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"1112805b-9fb2-4da6-93c8-748bb83224e7"], -Cell[BoxData["4.366771860185332`"], "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3987198652325541`*^-210\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 3, + 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994250068121036*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"c747086b-47b8-49a5-baca-afbec0547104"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 92, 4, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942500681281776`*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"79298b0b-4c6e-4bd4-a5e6-2bc9ddf53d2a"], + +Cell[BoxData["11.312618524819115`"], "Output", + CellChangeTimes->{3.994250071706922*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"a198df5b-44a3-40d5-a20a-f08c45c862e6"] }, Open ]], Cell[CellGroupData[{ @@ -6012,26 +6002,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.99185057022003*^9},ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], + CellChangeTimes->{3.99185057022003*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"be4d7bfb-c18e-564a-93ce-3f42607886e7"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.86135584041237`*^-201\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 5, + 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942500718339443`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"b7db8a1f-0074-42d7-b38c-bcb9983c7ef4"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"b768ca5f-6b93-1f43-97bf-08f74ea2facd"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.102465472936997`*^-206\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 6, + 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994250071842084*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"f55843d9-533c-45e1-aa94-d391750b7d3d"], -Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3987198652325541`*^-210\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 7, + 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942500718512*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"bc9073b4-8516-46d3-a398-b12462463aa7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 93, 8, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994250071858569*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"abc677bc-5481-4768-88bc-cbeff441de61"], + +Cell[BoxData["5.360731976103968`"], "Output", + CellChangeTimes->{3.994250074928789*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"5d9500e4-cc69-4964-82a0-2573c9ad7252"] }, Open ]], Cell[CellGroupData[{ @@ -6041,491 +6078,443 @@ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ - FractionBox[ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", RowBox[{ - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", - RowBox[{"Cos", "[", - FractionBox[ - RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], - RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918505747312756`*^9},ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-\ -12d8b19f0936"], + CellChangeTimes->{3.9918505747312756`*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"d3cb6fbc-3803-0541-80d1-8cab47341c44"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"635ef23c-be29-f947-b49d-c0d2f59f2ba8"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"d8687e0f-2f42-0543-a749-78a1ff3c9572"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"b055d243-2255-1f40-80bd-55bc54524667"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.00529101 -2.67879 2.97603 [ -[.15608 .28474 -6 -9 ] -[.15608 .28474 6 0 ] -[.28836 .28474 -6 -9 ] -[.28836 .28474 6 0 ] -[.42063 .28474 -6 -9 ] -[.42063 .28474 6 0 ] -[.55291 .28474 -9 -9 ] -[.55291 .28474 9 0 ] -[.68519 .28474 -9 -9 ] -[.68519 .28474 9 0 ] -[.81746 .28474 -9 -9 ] -[.81746 .28474 9 0 ] -[.94974 .28474 -9 -9 ] -[.94974 .28474 9 0 ] -[.01131 .14844 -24 -4.5 ] -[.01131 .14844 0 4.5 ] -[.01131 .44604 -24 -4.5 ] -[.01131 .44604 0 4.5 ] -[.01131 .59484 -18 -4.5 ] -[.01131 .59484 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.15608 .29724 m -.15608 .30349 L -s -[(25)] .15608 .28474 0 1 Mshowa -.28836 .29724 m -.28836 .30349 L -s -[(50)] .28836 .28474 0 1 Mshowa -.42063 .29724 m -.42063 .30349 L -s -[(75)] .42063 .28474 0 1 Mshowa -.55291 .29724 m -.55291 .30349 L -s -[(100)] .55291 .28474 0 1 Mshowa -.68519 .29724 m -.68519 .30349 L -s -[(125)] .68519 .28474 0 1 Mshowa -.81746 .29724 m -.81746 .30349 L -s -[(150)] .81746 .28474 0 1 Mshowa -.94974 .29724 m -.94974 .30349 L -s -[(175)] .94974 .28474 0 1 Mshowa -.125 Mabswid -.05026 .29724 m -.05026 .30099 L -s -.07672 .29724 m -.07672 .30099 L -s -.10317 .29724 m -.10317 .30099 L -s -.12963 .29724 m -.12963 .30099 L -s -.18254 .29724 m -.18254 .30099 L -s -.20899 .29724 m -.20899 .30099 L -s -.23545 .29724 m -.23545 .30099 L -s -.2619 .29724 m -.2619 .30099 L -s -.31481 .29724 m -.31481 .30099 L -s -.34127 .29724 m -.34127 .30099 L -s -.36772 .29724 m -.36772 .30099 L -s -.39418 .29724 m -.39418 .30099 L -s -.44709 .29724 m -.44709 .30099 L -s -.47354 .29724 m -.47354 .30099 L -s -.5 .29724 m -.5 .30099 L -s -.52646 .29724 m -.52646 .30099 L -s -.57937 .29724 m -.57937 .30099 L -s -.60582 .29724 m -.60582 .30099 L -s -.63228 .29724 m -.63228 .30099 L -s -.65873 .29724 m -.65873 .30099 L -s -.71164 .29724 m -.71164 .30099 L -s -.7381 .29724 m -.7381 .30099 L -s -.76455 .29724 m -.76455 .30099 L -s -.79101 .29724 m -.79101 .30099 L -s -.84392 .29724 m -.84392 .30099 L -s -.87037 .29724 m -.87037 .30099 L -s -.89683 .29724 m -.89683 .30099 L -s -.92328 .29724 m -.92328 .30099 L -s -.97619 .29724 m -.97619 .30099 L -s -.25 Mabswid -0 .29724 m -1 .29724 L -s -.02381 .14844 m -.03006 .14844 L -s -[(0.95)] .01131 .14844 1 0 Mshowa -.02381 .44604 m -.03006 .44604 L -s -[(1.05)] .01131 .44604 1 0 Mshowa -.02381 .59484 m -.03006 .59484 L -s -[(1.1)] .01131 .59484 1 0 Mshowa -.125 Mabswid -.02381 .02939 m -.02756 .02939 L -s -.02381 .05915 m -.02756 .05915 L -s -.02381 .08892 m -.02756 .08892 L -s -.02381 .11868 m -.02756 .11868 L -s -.02381 .1782 m -.02756 .1782 L -s -.02381 .20796 m -.02756 .20796 L -s -.02381 .23772 m -.02756 .23772 L -s -.02381 .26748 m -.02756 .26748 L -s -.02381 .327 m -.02756 .327 L -s -.02381 .35676 m -.02756 .35676 L -s -.02381 .38652 m -.02756 .38652 L -s -.02381 .41628 m -.02756 .41628 L -s -.02381 .4758 m -.02756 .4758 L -s -.02381 .50556 m -.02756 .50556 L -s -.02381 .53532 m -.02756 .53532 L -s -.02381 .56508 m -.02756 .56508 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .01472 m -.02499 .01472 L -.02605 .01472 L -.02729 .01473 L -.02846 .01474 L -.03053 .01478 L -.03279 .01482 L -.03527 .01489 L -.0379 .01499 L -.04262 .0152 L -.04749 .01548 L -.05205 .0158 L -.06244 .01675 L -.07305 .01801 L -.08274 .01944 L -.10458 .02358 L -.12357 .02821 L -.14429 .03435 L -.18493 .04963 L -.22406 .06826 L -.26565 .09204 L -.30571 .11858 L -.34426 .14717 L -.38527 .1805 L -.42475 .215 L -.46273 .24996 L -.50315 .28853 L -.54206 .3264 L -.58342 .36674 L -.62326 .40497 L -.66159 .44044 L -.70238 .47601 L -.74164 .50741 L -.77939 .53432 L -.8196 .55879 L -.85828 .57771 L -.87793 .58543 L -.89942 .59234 L -.91995 .59741 L -.92911 .59917 L -.93905 .60073 L -.94426 .60141 L -.94906 .60194 L -.95356 .60236 L -.95851 .60273 L -.96295 .60299 L -.9671 .60316 L -.96939 .60323 L -.97148 .60328 L -.97264 .6033 L -Mistroke -.9739 .60331 L -.97509 .60332 L -.97619 .60332 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJzVnGdgVUUWgENekkeIRCAEpWhiqAkEkIBUQekGYaUsZRdBmgYQRMSyCkhR -6VKWjgIKSFmpsiIIuLqr0lEUld5xBZQm0pl957yZc++83DPzsuLK/sjk3Zlv -zjn3zNyp907TTv2yuvXq1K97l07Jjfp26pPVvcszyQ2f6huI8uWKiMh1MPCX -mhwRFfgtIiK0YKy4Lg5BEPgtxA1xCILf73c6/vOBbfALrzBc/n+UHhNMDvxa -4opNoNi3eFl5IYwjchpPJkKYm8iJPFkUQj+RY3kyWbd+FE+WhDCayGEuEsFU -PX0oL6mcTg7iyYoQRhE5gCczdPJFnryPLMbrF3iymi7zWZ6sqZN9ebK2rr0P -Tz6gy+zFk/V0mT15soEuM4snG+syH+fJTJ3sGlovHtbTO/OSmunkYzz5iE52 -4MkWOtmeJ1vp5J94srVOtuXJtjrZmidRXSSRf+TJP+syW/LkozrZnCc76uQf -eLKTbmcznuysy3w4tF501dMzQ9Mf19Mb85qydJsa8WR3XWYDnuypy6zPk0/q -MuvyZG9d5oM8+ZQusw5PPq3LrM2TfXWZtXiyny6zJk8+q8uszpPP6zKr8eQL -usz7QuvFi7qkKrykl3RJGTw5QJdZiScH6uS9PPmyrr0CTw7WZZbnySE6mc6T -Q3XtZYNkoiSvXrlKZKJH7ld1PWnB3JH4L1qMGztOlC5dWpQpU0b06NFD3Lh+ -IxALaVHiyuUrombNmqJEiRLiyOEjUTLL0iVLMUvx4sVFlSpVxJLFSyJiMC1G -zJg+Q9StW1eULFlSpKaminr16onPPv0st4ddr+l2pQbtivAjsPqD1eKhhx4S -F36+gDfYs2dPMWL4CDLtx1M/iri44Ehrw+cb/FL+nt17xBNPPCG6dOkiUb9Y -tHCR2L9vv9Irdn69U5QtW1bs+HJHhN/DrmG6t0tLu3wINGrUSHyx/QvpPp84 -d/acSElJkZ4Jxh0/dlzs+m4XXsXKuObNm4sVy1fglXJGwG9gqPRcdkNG6A4q -RYZcu3pNFC1aFMvKJzPWqlVLfPftd3iVT8Zt3LBR1KlTR1MKhtWuXZtVOlJX -WpKUnjxxUlSsWFFmCYYdOnQQaz9ci1e3SXef/um0aNu2LdaQChUqoPsLFiwo -Ll+6TEYsfnex6Nixo2MEDmNG6o4vTqoP7D8gqlevrqnOysoSy5Yu01Q3adJE -TJo4Ce/lzOkzomnTpiI2NlYcPXJU5vND4Ynp06aL69euI7d71240dfOmzZ61 -YYzujxQy6tTJU57+WLd2HV7FybjDhw5jdYMrVWvAl/Hx8VBTZN4YMXfOXLxJ -8Fm5cuVE1apV4SnwenJe1226x1oxVG1UNn3y8SeiRYsWmu2FChXCB95tJ9g0 -dcpULa/bkLG6Icnao9K4cWOxfdt27VGBlsQpMZ84dPCQKF++vKZ0y+YtokGD -BppxNkPG6YYkaW3JmtVrRMOGDcX5c+fxDqGZGzN6TES89DxUk8mTJiMbqCoi -IyMDHp2oMHVP0HXfpbev48eNx8YQ6livXr2waOJlGtTR9u3bYzoU+8r3VlIj -AlqLFCkCVSFwFQxl1dIaG7clf9UtKRa0xKtHmaiTRXlykk4W4ckpOnknT07V -yTt4cppOFuLJ6TqZ6CIRnKE3Lgm8pDd1SQV4cqZO5ufJWTqZjydn6+TtPPmW -Tsbz5Ns6mZcn5+pkHE/O08k8PPmOTsby5HydzM2TC3TSz5MLdTImtF4s0tOj -eUnv6qSPJxfrZCRPLtHJXDy5VCe9oWUE3eCh5QRd56EVBF3jofcIuspDKwm6 -wkPvE3SJh1YRdJGHPiDol9CiXk1JF0KT1lDSz7zoDwk6z0NrCTrHQ+sIOstD -6wk6w0MfEXSahyrIuG7duuFQrHLlyoErCONwEA3DBsniCBo6yLS0NBrC9evX -D4dvwSG638gEHyDveYWyDYZDMO6Cq6gwZMbRTd4ppQdmI2A//kGO/PnzB3rc -4H2NHDGS7tw+y4nGXjU9PR3HITBMOPHDiYgkq55otx7l2cDdeHsVxj6DXh6E -Q4tSpUqhrNatW+MAMNmqK4+my+Ap0y3Z1eiu8xkKy3Q7hj5D1UMYEsPQOTAh -kmriRLVq1TSP7d2zF8ZD4uIv+LDjJHDgwIGiXbt2VA9NTNDUGG4iqcwbPGiw -GD5suHZ3JrG3UVUsIiXAhKJVq1bSu0alyiaYIMIQ/9jRY6hg/jvzRWZmZoqH -xCjWZf5sLgNNs2bOgrkxDaZhzgnz8EsXL0Xw8sNzJWN2cQ+xfta9PquZhqGE -mm0F6jOuPATEkIixr49VkzpSDx4Dz8FVukdcpLwzOavXHtfArF5l+fabb1Ed -XOXxEOO0T4UNlYJRotwy7LVh2Ew5dumT+mRWdPj+6N27t5jz9hy8usdDntfN -RYZpn5c8v8GBblsMY8J7ZRwsK0CFHz1qNM3CApVTrF+33lW8fncc/tnWSsrJ -OGgqYTbqmKPLz+thWyHDA2vTq1wItSIwS9bi+vfvTzNOr2KPMfhk2tRp+ODa -ith9b+Ha4iUvt8F/blsMRVxJxsEDASsgE8ZPIDOhF4PlH6eIY9xx+CdXppTn -3YtSqnRfGfoKPhBu69yi4+kJNpWpbQlM+Qy6TJjbu+NmvjkTfcmVqd/gBFg3 -gBbTVqbuOwrXFlOZennNbYuhTDNk3NkzZ9GswIiE+pFRI0eJfXv3IQstFHQS -zZo1SzMnK4fbFgNVkcOYBR44pwBZ0fmp9BM9vBEVpmLl3aSkJBiLaXEL5i8Q -ffr0YUs/N+suv1i4YKHWoq16fxUuOZ8/d96zS48232xUmGaaKkZ235rNNHTp -lWXcpo2bcMnT8W4Mjmxh+Ar/YXQA3g48H2nmZFU2tgVaZQ0MYr8//n04mgtQ -RSloqCg2xcrbMJbyejQHDBjAVpRYg7u6du2KTTg0xTAih+XwwGTBa3wWbb7P -qDAt9KojsQa3Mha6pwxYO6rIXAUKFIAOVNMv651WhO441Tna1sJVXhjXTJk8 -RSstt7xCVOYJhjK3aVPWy0VxLQ6aYugquTLPY/AGeFQNKUqxBa3fkT9MW0yl -6+U1ty2G1Ug1C9y6ZasYOmSoph629WBbkSsMrwL3y2J33Q7+yf2GNJkFkmBD -zK0Omsf69euz6u6gss8nS1ven/JJjFm3qh0wBVIdqbseq3n13d7So3PoKXcB -lDAZ7F0fbFYmma0M18E5qiZ+8c3Ob3AjBHZxoBuDQS/spga6N3r6wq0izE6Q -qiJvzHiDpjjKWhhfQ4PONUF3UhVRuzpA16hRQ7Rs2VLMnjUbXETb44wBanwC -7SUM2ORAWsybOw92p5IMkqNz4Ca354tbrfV2IWNistXE8N0bZgWpKC3atnUb -diqFCxfGTgWqcKCZVDcNS37Qj8EWWqTcSAPrlJgyYXI+eYdeG3ruCgS9QKD3 -j/DJMCEhAdeD3Hdo01WQKtXtMgfs2GZmZqI//QZL1AogjMRAAxQVNE6BqQu1 -525ZMeE5EYoEVLl3I6GNUwYnsaLDd6yXySkecqNz6Gyb7YZtpi1UDod5aCtB -hpegtxF0kIe2E3SAh74gaD8PfUnQPh7aQdBeHvqKoD089DVBwZ4iWG4CItZD -YNjXivWIy03i8oSZ41aSEpLj1+QNSfVRatRvZv2tJOXmeNKwIXEr3eyt5DKv -HFGU6vvNrL+VpPzmla+aR1xVyljdI7UMpcbnOK+XtkTeuF0kbCcP7Sboax7a -Q9BXPLSXoB08tN8jbjuPH/CI28bjBz3itvL4IbLYAB0maIsLQuYIJW3m8x8l -aBMPHSNoIw8dJ2gDD31P0Oc89G+CPuOhHwj6lIdOEPQvHjpJ0D956BRBn/DQ -jwR9zEM/EfQPHjpN0EehxXqGktaHJp2lpHW86HMEreWh8wR9yEM/E7SGhy4Q -tJqHfiHoAx66SNAqHrpE0Ps8dJmgv/PQFYJW8tBVgt7joWsErQgtseuUtDw0 -6QYlLeNFY5jLI2GxJU+kR8K7ljzO4NBGOj353yxkNJGLLGQMkQstpJ/IBRbS -6UXnW8hYIt+xkE5fPs9COpv6cy2k807InNBqgul5Kf1tiyRnG9LwjSmGtxM5 -20LmI3KWhXR2N960kAlEvmEhnZWMGRYykcjpFtJZkZff1+b4hbBsn7YE1yq8 -X5xSi3M5+LQFQ2fxOLh7TuPm7Fv52b5nUfszzCs3as8tp5+2YOisWE7h7VK5 -3d+yqIUX25sgKq/t+xYMC5M1k3lr1CqY7QUFpdn2kQuGRUjzJLtm2za60uz9 -ZUuIvol2fbbd2UipNaefs2B4F1kywW6JbQ9QvUOVg+9XMLybjBhvN8K2VRXu -BysYJpHmcdR+ABCyr0GfUdn2RXKkPJmUjyXlXovm+aRbmfX2cD9OwfAe0vl6 -UKey2L2sml8+417LsG5tOf0oBcMUsmBM0AK2cS9O5GgLWZLIkRayFJEjLGRp -IodbSGcuPsxCphL5mot0hgdplP6qRVJZymg4kAHDdJI5xEKWJ3KwhaxA5CAL -WZHsHGghK5FMw3EQGGYQ2d9CVibyJQtZhez8i4V01lYMR0xgWI3I5y1kdSKf -86wXNeiyn2d6Lcr/jEXT/UQaDrPAsDapMBxmgeEDJPMpC/kgyexlIeuRzCct -ZH0iDQdkYNiAtHe3kI1IpuEoDQyd8zQMR2lgmEkyu1nIJkRmO3QD052TNzp7 -pjej/J0smh4hsqOFbE4qHrWQLUmm4VAODJ2TOQyHcmDonMxhOJQDw7akvY2F -bEcyDYdyYOiczGE4lAPDR0l7CwvZgWQ+YiEfI9JwKAeGzskc2Q7lwHTnZI5M -iyTnjA7D8RwYZhHZ0EL2INJw6AaGzskbhkM3MMSTN3BYXcdCPk0y77eQz5DM -GhbyOZIpj70I7gn86hmoOtgAhmNKjN/vVxLatGlDEthR1gt0F/IgjbySDGPG -qcbp8gttvGLH7i+Rokq8Iq8pZI604OABj5Yqz2spkBOJg0li2f9CojOVe4Xk -lL5JluHAFI/uSrlJEnGgjQeMFbtJEvHz8niIl98vx8mqFDJxUu/KwVcfUgAo -8No8wxBXhrAixumPFD8vihKdO3fGl4eWL1sO78GxwuXKrTpwIPuMx4ffPsGL -r8WKFfPc4XPLYduF/1E6/v4dDvaLyPUfxyNRZA==\ -\>", "ImageResolution" -> 96., "LightDark" -> \ -"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-19.402618477936908, \ -0.8923747627909967, 0.7099700316630947, \ -0.001262238128389079}},ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], - -Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"e49c1b8d-fabe-b944-a6dd-\ -c578eb57eb6a"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk4VV0XAHARGStkjowVUr1Xpuptr7iIkCJTma57DpFZEkJJCUmShjdR +hmQIlSFDKRq+KJVGIcdwK/NMDvl2f5znPL9n7b3OOnuvvZVY/vsIbi4urp/4 ++fsOfLNxXeXbNzvyil4SS1wotGM4R4fFLEKjedUZf92VqZumyqxFx/+XZMyN +bc1+zSes/Qz5KSBnHuyysOgGXmYzmqt417sU++xz6frogneIt5DZzof98G3g +jXnGR2Qkc8VIALu/7VXksZovyGlds6wwtmyfyoFpo3aUt4RyX4G9eyTSILj5 +Owr99klaHPvRfL9QWAGFXg0XIynsTyekIir8elBOJPlJDnuYj9k/yehDlc1c +HYrYfEkBjtozHJSvddxmLbaCaMbLwJqfqGXym8EGbCu56bxho0FUqmVoZ4BN +ZilLavEPo9DD5kmAHa22J86neQQFF+oydmF/kfrwT0jBGHJfUffaAZvt5H3o +YtI44tJ3aHDHHr3OdfOe3wTa4fV1vQ82v7LWyjHGFFrFSDGKxk5jN5iulJhG +i7wvZs9iK952jN40M42223HkL2Hrbzg97Fszi0I1qcoibC/d7839RvOomWzX +oLAnw44sFVy7gFYV+riOYMfUCG1X5/+DRDN+8fzBvgL6hZ7Ni6hetfz6aldc +X+5LZlDBErgVkSviil3w/GLXCTluCK1ofBKAPfrDJfJCEje0xbX1ncSO1Ji6 +X+rHA8H2w8fzsdNKlFRGGLxw/9jnoVnstreDj/5k80Jae5PScjdc/3il03IJ +PmAE1D9TwS7aYpWqNcMH7cdKnK2xGx+GLzlcww/yz5pe38Weamj9/tNIGMLX +mJXGuFNIzEJ4ZcQjYdjH72mWib35AxNEDETAdheTfITt3Vue9c/G5RD+zFjz +D3YAd/Pmf4VXgsbZ3O5YFoX6lO+OxU2Lgt+3Bf58D7w+5CuBFm0xKG385/sb +bO5CjpJ0oBhEaVgaTGMraq/ZVzAgBoOPjY+ZsCnkZJRy702XOJz0O79+CLvF +IyhYqkkC7j3eaGpDUqjzdnKiG78k6H7Z6XwSe3CgIPuOsSRI8/rNlGELhvS0 +bquXhEiLNVVinhRinrLd4lYuBd1HTX3asKtzdKfyM2VgIbD9v5OHKJTTNxe6 +NUQeYp6G79T1pdCu/Wc6g4vl4Yp/TF4g9mCjuEkxRx6msxSji7G35GyQUHRU +AIdElLjWD68ny+U+7441kDrgvkLBn0LjI11Hf8YqQuHX7FfKgRQS92U+uG+p +DAl/htRjj1CIkyPoZe2tDNwhIoKvsava38oNnVYGt1kLF6lQCh20cI5dW68M +Qk92eBRj52iG7rvKUIHSwYDvnUfx9/tvj0ZJqcL8amaufTiFbD2FtMwpNZC0 +aTibFU0hFLqfYb+gBqtmt2+dwdaIy9Rjy6yFmZoRJ6sYCnFlaxtG7V0LH05J +DC1gF3cesL/3ZC1w3kzZsk7i82lXdEL21jpgVtfqQRyuj2n5qZ+lDpZKzgHW +iRTKtrn8bSZKHT4JXmaUYyezqK6l/6lDyY86QjYJ93fMkQGFVnUQe9CvwMEW +rc3gsjHSAM5Vn46Tybh/tIc1alQ0ITohLOXdBQrJKZ+PTuzdAC7sJLrhCoVq +EybVf3NrgZutdwFcxesx4fiBVNICMUH573XYNxpV1Q1dtKB0RqXt4TUKKXtW +v5/9rAVOeqVSVdfx/xb1qZFNG8E6JLvqdRaF5OUUSEXHzWCu3fPe+Q6FNuSG +CNOIAfMCScnitRRisWOntKwY8OX6Q/I29hWV1E63gwzIZWWVb6ujEM+tktLn +YQz4dbOukniEz9uNftvUMgbcZOhYPa7H9+kVtwx1FW3481ipOf4Z3t9Ei40O +fFsgaGmB5ZEWCt0MUrUub9aBWwFmSRW9FLrXWZ8o3a4DXaLjJkf7KPTU3PlF +xIAO7F0YO6/PoVCvcvoOQ0FdUL228XXtDwqtbV2m1WKqCyec5aeb+vF51h4Q ++PVUF646Ll3OO4b3Z7KsYfVDPeg/kvywe4FCb0OR3qlcA2DnLW7bI9ONlFw+ +Wjkf/hc2VhVate7vRsRixV35YwBzw//w+KV3I6mBqmVSLENQU3a/nd/XjUK0 +t7enajChcplm7Gn9HsQamn8p3m8M+7fuP0ym9qBiw+BlmS2mYPoiXWV8Ad/z +k95PitLMwC8nVlLscC+a3Sn9ujF6NzRY122IH+5FHVw8Y5S7JRQc/dRnFt6H +/Fb7p5xQ2QN3904ERCzjoLuHXtZfirOG6FnfxdEiDgqfkJnRPLQXGtFxfw+b +H2jK3MTuhes+kLS/eXK/xE9kcODCzr69NhDiXNtJUz/Re5kM70ZtW1Csi+rm +u/sLyebF1uav3w/uDS3vpq/2o6ouDQsrETuICp0QdTs1gBQ+jHqGDtlBy5HB +mOyjg0j70oWi7C57ONTE1K1LHkIZSyc2pjY4ANvJUj7k5jCq2LmpLe6hI3j1 +JmmeaxtBV/QSROcLnMDgekj1meRR1PIt97R20gHg0bNw8dAcQ+WW11UDYg7C +0hv1a0Tax9CYrw2XH9sZTp9PZ8WdHkdTJupew0YuMJ/Lo6/AmED5Q19ng3Vd +QSIwTsl2dAI53Mz1cBZ2g8ahdau8cybR/Xu7XXnOuIHS/8SuTXlNIQO597/P +/nYDmWVc76UUp5FKl2fbu0PuYCq/aST+3TTqFfLZc73HHeb77KZPnJtBb5Ot +PEz3s4Drt8OFRN1ZlBaWKXTkLQta1Wu41XtnUe2jxd8eZh7w2FX44baTv9GK +g3BGu9oDPItsFA3455CB23B+3BY2FGxlhJnGz6G8q6PBVrpsmHhwLYErYQ6t +ah3fIaXPhvGouuiqxDk0bDzzIX8bG/wUt69UOz+H7y+uJc2GbEhnB9aOXppD +y2dEHcX2suHe0JqPe7PnUO85HYFMXzb0XvAu0aubQ8k1kYeq8tjQ9uZ/CmFD +c8iXcdkgLJ8Ngqlh853Dc8jiTpmAfgEbxJwaCpmjc0jwMudOZTEbTDLSjgtP +zKG4IOv+igfY/wr1nJudQ5Hqqj7lT9nA4PJwtuehkfflpsP3OtngGtfmyi1N +I7PlnO1BXWwQ6CktNZSh0fo4LhFGNxtiTg4/PyFLI06QTnFZHxuqlLQM51fT +yN0qc6h0kA2TOfmHupVo5MAb7Fcyx4ZEo/VawZo0Mg2WDSiSJMBEJ18u518a +Pc08bZ4qTUCKxKcNH3bQaHvzuGqYLAGFTxsecQONNqs1fTVSIEB51TaPA4Y0 +kvkcYfRNjYAK/u3ZcyY0GtjaISmoQ0B+tWbe6B4anefOqvO0IeDboiNflRuN +BDcJX7HcT4CHvZ9vpTuNTh0IC9K2J4BDipuVs2gU9sB63aITAYPShQeL2Lh+ +csmFdBYBj/b5DpzxopH2Kxb7WSABiZHvDkz60+jzBTUhlRQCsrrFd2Udp9Fd +JOL18wIBAb8qRlyjcP6hycbiiwQ0lujqKkTjm9SsMUr/Mo4zqRvpMTRK5vIY +t7xBwCbZxC+hsTQy8c/6GlZEgKjku5rJeBrJy8fr7rhLQHh8gu6NszSafOV/ +kaeUgF3fsy1MEmh0ay2yTL5PQNp/auapiTRa6Oioz64m4EbSy1MyyTR6YCGX +/+YlAX2uAq97U2mUOMfNm/aKgMyDGzlHL9KIld/v7thMwOovNy8LpNFo5dJq +ud4WAjLaHj1df4lGh2sczv/+RMA13oktdpdppKKRHqraR0Db0zoP3/9oNPf5 +eOsvDgEnHvgM/cJ+G0dsLvlJgIZ3ozBxnUZR1JZ+g0ECEtzbhewzaNR2pdV5 +zwQByRUJyzQyaZS6TNQ4fAkJz4uCPibeolHteMeBEB4SMu7neS1g/+goCPLj +JaFp7KKObzbuhwfMLJYACc0fBiJMc3C/uYXR5qIkXF2cKOfk4votjMWMxUlo +q9sjZp5Ho216YupIgoR+OdnbhdgpIkV22jIknIpnHTt0G8erv5fJKeF45uPa +lnwakblFLyVUSNjBc/aL6h08PuXY9xVqJCQV3dIMw8Z9IrJUnYQ1H5lHZQpw +XNzUa3AzCVLpHVkmhTSq/iMezWHg+ey64HPYfb+6LnVtIYGdQUe+x95aH97w +QR/Pz13HsC+iUe/huwp1QEL6qWDV3cU0Wu4QoVNpSMK+nUdvx2IbGO2yKGOS +MG60yq0aO1mm+1juLhK8vzQGKt+lUdXSkpRMcxIME0pe2WD3jETcvmpBwsqn +lEMstv5ziY/nrEkIqHu/qgObVdY9cGYfCfXIz3BZCY3OXS/hPmlLQsEzwdxN +2N1BZptDHUi4JskvEIEt4iJpGuBEwtqduwVvYOub9Th7HyTh9EZbePx3/prj +iS5uJIy1xJrPY1cJmt9yYJHAdzpVQboU55uSfLiPTYIEj946BrYI1dNiQZJg +JOTJNsfWby7lmHiRsF1K5pMbNqvy+AJ4k6Bvy4w8gn3ulvmqbYdJWJLTZReP +XXVOSlPHjwThDA5x9W/+sN6dmwJIIBL23MnHFmaXOagHkfDER0KpAltvT5S/ +SggJ56cYr5/8zb9192n5ULzfKdnFTdhJatIZUmEk5B7weNqKXbGy775oOAmu +6/2F2rApuuyVUCTOH9UY3/k3/48oijeKhBdX3bdS2Lrvd88uRuPxPsaK3dj/ +B9w++kw= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VV0XAHARGStkjowVUr1Xpuptr7iIkCJTma57DpFZEkJJCUmShjdR +hmQIlSFDKRq+KJVGIcdwK/NMDvl2f5znPL9n7b3OOnuvvZVY/vsIbi4urp/4 ++fsOfLNxXeXbNzvyil4SS1wotGM4R4fFLEKjedUZf92VqZumyqxFx/+XZMyN +bc1+zSes/Qz5KSBnHuyysOgGXmYzmqt417sU++xz6frogneIt5DZzof98G3g +jXnGR2Qkc8VIALu/7VXksZovyGlds6wwtmyfyoFpo3aUt4RyX4G9eyTSILj5 +Owr99klaHPvRfL9QWAGFXg0XIynsTyekIir8elBOJPlJDnuYj9k/yehDlc1c +HYrYfEkBjtozHJSvddxmLbaCaMbLwJqfqGXym8EGbCu56bxho0FUqmVoZ4BN +ZilLavEPo9DD5kmAHa22J86neQQFF+oydmF/kfrwT0jBGHJfUffaAZvt5H3o +YtI44tJ3aHDHHr3OdfOe3wTa4fV1vQ82v7LWyjHGFFrFSDGKxk5jN5iulJhG +i7wvZs9iK952jN40M42223HkL2Hrbzg97Fszi0I1qcoibC/d7839RvOomWzX +oLAnw44sFVy7gFYV+riOYMfUCG1X5/+DRDN+8fzBvgL6hZ7Ni6hetfz6aldc +X+5LZlDBErgVkSviil3w/GLXCTluCK1ofBKAPfrDJfJCEje0xbX1ncSO1Ji6 +X+rHA8H2w8fzsdNKlFRGGLxw/9jnoVnstreDj/5k80Jae5PScjdc/3il03IJ +PmAE1D9TwS7aYpWqNcMH7cdKnK2xGx+GLzlcww/yz5pe38Weamj9/tNIGMLX +mJXGuFNIzEJ4ZcQjYdjH72mWib35AxNEDETAdheTfITt3Vue9c/G5RD+zFjz +D3YAd/Pmf4VXgsbZ3O5YFoX6lO+OxU2Lgt+3Bf58D7w+5CuBFm0xKG385/sb +bO5CjpJ0oBhEaVgaTGMraq/ZVzAgBoOPjY+ZsCnkZJRy702XOJz0O79+CLvF +IyhYqkkC7j3eaGpDUqjzdnKiG78k6H7Z6XwSe3CgIPuOsSRI8/rNlGELhvS0 +bquXhEiLNVVinhRinrLd4lYuBd1HTX3asKtzdKfyM2VgIbD9v5OHKJTTNxe6 +NUQeYp6G79T1pdCu/Wc6g4vl4Yp/TF4g9mCjuEkxRx6msxSji7G35GyQUHRU +AIdElLjWD68ny+U+7441kDrgvkLBn0LjI11Hf8YqQuHX7FfKgRQS92U+uG+p +DAl/htRjj1CIkyPoZe2tDNwhIoKvsava38oNnVYGt1kLF6lQCh20cI5dW68M +Qk92eBRj52iG7rvKUIHSwYDvnUfx9/tvj0ZJqcL8amaufTiFbD2FtMwpNZC0 +aTibFU0hFLqfYb+gBqtmt2+dwdaIy9Rjy6yFmZoRJ6sYCnFlaxtG7V0LH05J +DC1gF3cesL/3ZC1w3kzZsk7i82lXdEL21jpgVtfqQRyuj2n5qZ+lDpZKzgHW +iRTKtrn8bSZKHT4JXmaUYyezqK6l/6lDyY86QjYJ93fMkQGFVnUQe9CvwMEW +rc3gsjHSAM5Vn46Tybh/tIc1alQ0ITohLOXdBQrJKZ+PTuzdAC7sJLrhCoVq +EybVf3NrgZutdwFcxesx4fiBVNICMUH573XYNxpV1Q1dtKB0RqXt4TUKKXtW +v5/9rAVOeqVSVdfx/xb1qZFNG8E6JLvqdRaF5OUUSEXHzWCu3fPe+Q6FNuSG +CNOIAfMCScnitRRisWOntKwY8OX6Q/I29hWV1E63gwzIZWWVb6ujEM+tktLn +YQz4dbOukniEz9uNftvUMgbcZOhYPa7H9+kVtwx1FW3481ipOf4Z3t9Ei40O +fFsgaGmB5ZEWCt0MUrUub9aBWwFmSRW9FLrXWZ8o3a4DXaLjJkf7KPTU3PlF +xIAO7F0YO6/PoVCvcvoOQ0FdUL228XXtDwqtbV2m1WKqCyec5aeb+vF51h4Q ++PVUF646Ll3OO4b3Z7KsYfVDPeg/kvywe4FCb0OR3qlcA2DnLW7bI9ONlFw+ +Wjkf/hc2VhVate7vRsRixV35YwBzw//w+KV3I6mBqmVSLENQU3a/nd/XjUK0 +t7enajChcplm7Gn9HsQamn8p3m8M+7fuP0ym9qBiw+BlmS2mYPoiXWV8Ad/z +k95PitLMwC8nVlLscC+a3Sn9ujF6NzRY122IH+5FHVw8Y5S7JRQc/dRnFt6H +/Fb7p5xQ2QN3904ERCzjoLuHXtZfirOG6FnfxdEiDgqfkJnRPLQXGtFxfw+b +H2jK3MTuhes+kLS/eXK/xE9kcODCzr69NhDiXNtJUz/Re5kM70ZtW1Csi+rm +u/sLyebF1uav3w/uDS3vpq/2o6ouDQsrETuICp0QdTs1gBQ+jHqGDtlBy5HB +mOyjg0j70oWi7C57ONTE1K1LHkIZSyc2pjY4ANvJUj7k5jCq2LmpLe6hI3j1 +JmmeaxtBV/QSROcLnMDgekj1meRR1PIt97R20gHg0bNw8dAcQ+WW11UDYg7C +0hv1a0Tax9CYrw2XH9sZTp9PZ8WdHkdTJupew0YuMJ/Lo6/AmED5Q19ng3Vd +QSIwTsl2dAI53Mz1cBZ2g8ahdau8cybR/Xu7XXnOuIHS/8SuTXlNIQO597/P +/nYDmWVc76UUp5FKl2fbu0PuYCq/aST+3TTqFfLZc73HHeb77KZPnJtBb5Ot +PEz3s4Drt8OFRN1ZlBaWKXTkLQta1Wu41XtnUe2jxd8eZh7w2FX44baTv9GK +g3BGu9oDPItsFA3455CB23B+3BY2FGxlhJnGz6G8q6PBVrpsmHhwLYErYQ6t +ah3fIaXPhvGouuiqxDk0bDzzIX8bG/wUt69UOz+H7y+uJc2GbEhnB9aOXppD +y2dEHcX2suHe0JqPe7PnUO85HYFMXzb0XvAu0aubQ8k1kYeq8tjQ9uZ/CmFD +c8iXcdkgLJ8Ngqlh853Dc8jiTpmAfgEbxJwaCpmjc0jwMudOZTEbTDLSjgtP +zKG4IOv+igfY/wr1nJudQ5Hqqj7lT9nA4PJwtuehkfflpsP3OtngGtfmyi1N +I7PlnO1BXWwQ6CktNZSh0fo4LhFGNxtiTg4/PyFLI06QTnFZHxuqlLQM51fT +yN0qc6h0kA2TOfmHupVo5MAb7Fcyx4ZEo/VawZo0Mg2WDSiSJMBEJ18u518a +Pc08bZ4qTUCKxKcNH3bQaHvzuGqYLAGFTxsecQONNqs1fTVSIEB51TaPA4Y0 +kvkcYfRNjYAK/u3ZcyY0GtjaISmoQ0B+tWbe6B4anefOqvO0IeDboiNflRuN +BDcJX7HcT4CHvZ9vpTuNTh0IC9K2J4BDipuVs2gU9sB63aITAYPShQeL2Lh+ +csmFdBYBj/b5DpzxopH2Kxb7WSABiZHvDkz60+jzBTUhlRQCsrrFd2Udp9Fd +JOL18wIBAb8qRlyjcP6hycbiiwQ0lujqKkTjm9SsMUr/Mo4zqRvpMTRK5vIY +t7xBwCbZxC+hsTQy8c/6GlZEgKjku5rJeBrJy8fr7rhLQHh8gu6NszSafOV/ +kaeUgF3fsy1MEmh0ay2yTL5PQNp/auapiTRa6Oioz64m4EbSy1MyyTR6YCGX +/+YlAX2uAq97U2mUOMfNm/aKgMyDGzlHL9KIld/v7thMwOovNy8LpNFo5dJq +ud4WAjLaHj1df4lGh2sczv/+RMA13oktdpdppKKRHqraR0Db0zoP3/9oNPf5 +eOsvDgEnHvgM/cJ+G0dsLvlJgIZ3ozBxnUZR1JZ+g0ECEtzbhewzaNR2pdV5 +zwQByRUJyzQyaZS6TNQ4fAkJz4uCPibeolHteMeBEB4SMu7neS1g/+goCPLj +JaFp7KKObzbuhwfMLJYACc0fBiJMc3C/uYXR5qIkXF2cKOfk4votjMWMxUlo +q9sjZp5Ho216YupIgoR+OdnbhdgpIkV22jIknIpnHTt0G8erv5fJKeF45uPa +lnwakblFLyVUSNjBc/aL6h08PuXY9xVqJCQV3dIMw8Z9IrJUnYQ1H5lHZQpw +XNzUa3AzCVLpHVkmhTSq/iMezWHg+ey64HPYfb+6LnVtIYGdQUe+x95aH97w +QR/Pz13HsC+iUe/huwp1QEL6qWDV3cU0Wu4QoVNpSMK+nUdvx2IbGO2yKGOS +MG60yq0aO1mm+1juLhK8vzQGKt+lUdXSkpRMcxIME0pe2WD3jETcvmpBwsqn +lEMstv5ziY/nrEkIqHu/qgObVdY9cGYfCfXIz3BZCY3OXS/hPmlLQsEzwdxN +2N1BZptDHUi4JskvEIEt4iJpGuBEwtqduwVvYOub9Th7HyTh9EZbePx3/prj +iS5uJIy1xJrPY1cJmt9yYJHAdzpVQboU55uSfLiPTYIEj946BrYI1dNiQZJg +JOTJNsfWby7lmHiRsF1K5pMbNqvy+AJ4k6Bvy4w8gn3ulvmqbYdJWJLTZReP +XXVOSlPHjwThDA5x9W/+sN6dmwJIIBL23MnHFmaXOagHkfDER0KpAltvT5S/ +SggJ56cYr5/8zb9192n5ULzfKdnFTdhJatIZUmEk5B7weNqKXbGy775oOAmu +6/2F2rApuuyVUCTOH9UY3/k3/48oijeKhBdX3bdS2Lrvd88uRuPxPsaK3dj/ +B9w++kw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5427252757994168, + 1.7306844006149829`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.542725275799418}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5427252757994168, + 1.7306844006149829`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.542725275799418}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VV0XAHARGStkjowVUr1Xpuptr7iIkCJTma57DpFZEkJJCUmShjdR +hmQIlSFDKRq+KJVGIcdwK/NMDvl2f5znPL9n7b3OOnuvvZVY/vsIbi4urp/4 ++fsOfLNxXeXbNzvyil4SS1wotGM4R4fFLEKjedUZf92VqZumyqxFx/+XZMyN +bc1+zSes/Qz5KSBnHuyysOgGXmYzmqt417sU++xz6frogneIt5DZzof98G3g +jXnGR2Qkc8VIALu/7VXksZovyGlds6wwtmyfyoFpo3aUt4RyX4G9eyTSILj5 +Owr99klaHPvRfL9QWAGFXg0XIynsTyekIir8elBOJPlJDnuYj9k/yehDlc1c +HYrYfEkBjtozHJSvddxmLbaCaMbLwJqfqGXym8EGbCu56bxho0FUqmVoZ4BN +ZilLavEPo9DD5kmAHa22J86neQQFF+oydmF/kfrwT0jBGHJfUffaAZvt5H3o +YtI44tJ3aHDHHr3OdfOe3wTa4fV1vQ82v7LWyjHGFFrFSDGKxk5jN5iulJhG +i7wvZs9iK952jN40M42223HkL2Hrbzg97Fszi0I1qcoibC/d7839RvOomWzX +oLAnw44sFVy7gFYV+riOYMfUCG1X5/+DRDN+8fzBvgL6hZ7Ni6hetfz6aldc +X+5LZlDBErgVkSviil3w/GLXCTluCK1ofBKAPfrDJfJCEje0xbX1ncSO1Ji6 +X+rHA8H2w8fzsdNKlFRGGLxw/9jnoVnstreDj/5k80Jae5PScjdc/3il03IJ +PmAE1D9TwS7aYpWqNcMH7cdKnK2xGx+GLzlcww/yz5pe38Weamj9/tNIGMLX +mJXGuFNIzEJ4ZcQjYdjH72mWib35AxNEDETAdheTfITt3Vue9c/G5RD+zFjz +D3YAd/Pmf4VXgsbZ3O5YFoX6lO+OxU2Lgt+3Bf58D7w+5CuBFm0xKG385/sb +bO5CjpJ0oBhEaVgaTGMraq/ZVzAgBoOPjY+ZsCnkZJRy702XOJz0O79+CLvF +IyhYqkkC7j3eaGpDUqjzdnKiG78k6H7Z6XwSe3CgIPuOsSRI8/rNlGELhvS0 +bquXhEiLNVVinhRinrLd4lYuBd1HTX3asKtzdKfyM2VgIbD9v5OHKJTTNxe6 +NUQeYp6G79T1pdCu/Wc6g4vl4Yp/TF4g9mCjuEkxRx6msxSji7G35GyQUHRU +AIdElLjWD68ny+U+7441kDrgvkLBn0LjI11Hf8YqQuHX7FfKgRQS92U+uG+p +DAl/htRjj1CIkyPoZe2tDNwhIoKvsava38oNnVYGt1kLF6lQCh20cI5dW68M +Qk92eBRj52iG7rvKUIHSwYDvnUfx9/tvj0ZJqcL8amaufTiFbD2FtMwpNZC0 +aTibFU0hFLqfYb+gBqtmt2+dwdaIy9Rjy6yFmZoRJ6sYCnFlaxtG7V0LH05J +DC1gF3cesL/3ZC1w3kzZsk7i82lXdEL21jpgVtfqQRyuj2n5qZ+lDpZKzgHW +iRTKtrn8bSZKHT4JXmaUYyezqK6l/6lDyY86QjYJ93fMkQGFVnUQe9CvwMEW +rc3gsjHSAM5Vn46Tybh/tIc1alQ0ITohLOXdBQrJKZ+PTuzdAC7sJLrhCoVq +EybVf3NrgZutdwFcxesx4fiBVNICMUH573XYNxpV1Q1dtKB0RqXt4TUKKXtW +v5/9rAVOeqVSVdfx/xb1qZFNG8E6JLvqdRaF5OUUSEXHzWCu3fPe+Q6FNuSG +CNOIAfMCScnitRRisWOntKwY8OX6Q/I29hWV1E63gwzIZWWVb6ujEM+tktLn +YQz4dbOukniEz9uNftvUMgbcZOhYPa7H9+kVtwx1FW3481ipOf4Z3t9Ei40O +fFsgaGmB5ZEWCt0MUrUub9aBWwFmSRW9FLrXWZ8o3a4DXaLjJkf7KPTU3PlF +xIAO7F0YO6/PoVCvcvoOQ0FdUL228XXtDwqtbV2m1WKqCyec5aeb+vF51h4Q ++PVUF646Ll3OO4b3Z7KsYfVDPeg/kvywe4FCb0OR3qlcA2DnLW7bI9ONlFw+ +Wjkf/hc2VhVate7vRsRixV35YwBzw//w+KV3I6mBqmVSLENQU3a/nd/XjUK0 +t7enajChcplm7Gn9HsQamn8p3m8M+7fuP0ym9qBiw+BlmS2mYPoiXWV8Ad/z +k95PitLMwC8nVlLscC+a3Sn9ujF6NzRY122IH+5FHVw8Y5S7JRQc/dRnFt6H +/Fb7p5xQ2QN3904ERCzjoLuHXtZfirOG6FnfxdEiDgqfkJnRPLQXGtFxfw+b +H2jK3MTuhes+kLS/eXK/xE9kcODCzr69NhDiXNtJUz/Re5kM70ZtW1Csi+rm +u/sLyebF1uav3w/uDS3vpq/2o6ouDQsrETuICp0QdTs1gBQ+jHqGDtlBy5HB +mOyjg0j70oWi7C57ONTE1K1LHkIZSyc2pjY4ANvJUj7k5jCq2LmpLe6hI3j1 +JmmeaxtBV/QSROcLnMDgekj1meRR1PIt97R20gHg0bNw8dAcQ+WW11UDYg7C +0hv1a0Tax9CYrw2XH9sZTp9PZ8WdHkdTJupew0YuMJ/Lo6/AmED5Q19ng3Vd +QSIwTsl2dAI53Mz1cBZ2g8ahdau8cybR/Xu7XXnOuIHS/8SuTXlNIQO597/P +/nYDmWVc76UUp5FKl2fbu0PuYCq/aST+3TTqFfLZc73HHeb77KZPnJtBb5Ot +PEz3s4Drt8OFRN1ZlBaWKXTkLQta1Wu41XtnUe2jxd8eZh7w2FX44baTv9GK +g3BGu9oDPItsFA3455CB23B+3BY2FGxlhJnGz6G8q6PBVrpsmHhwLYErYQ6t +ah3fIaXPhvGouuiqxDk0bDzzIX8bG/wUt69UOz+H7y+uJc2GbEhnB9aOXppD +y2dEHcX2suHe0JqPe7PnUO85HYFMXzb0XvAu0aubQ8k1kYeq8tjQ9uZ/CmFD +c8iXcdkgLJ8Ngqlh853Dc8jiTpmAfgEbxJwaCpmjc0jwMudOZTEbTDLSjgtP +zKG4IOv+igfY/wr1nJudQ5Hqqj7lT9nA4PJwtuehkfflpsP3OtngGtfmyi1N +I7PlnO1BXWwQ6CktNZSh0fo4LhFGNxtiTg4/PyFLI06QTnFZHxuqlLQM51fT +yN0qc6h0kA2TOfmHupVo5MAb7Fcyx4ZEo/VawZo0Mg2WDSiSJMBEJ18u518a +Pc08bZ4qTUCKxKcNH3bQaHvzuGqYLAGFTxsecQONNqs1fTVSIEB51TaPA4Y0 +kvkcYfRNjYAK/u3ZcyY0GtjaISmoQ0B+tWbe6B4anefOqvO0IeDboiNflRuN +BDcJX7HcT4CHvZ9vpTuNTh0IC9K2J4BDipuVs2gU9sB63aITAYPShQeL2Lh+ +csmFdBYBj/b5DpzxopH2Kxb7WSABiZHvDkz60+jzBTUhlRQCsrrFd2Udp9Fd +JOL18wIBAb8qRlyjcP6hycbiiwQ0lujqKkTjm9SsMUr/Mo4zqRvpMTRK5vIY +t7xBwCbZxC+hsTQy8c/6GlZEgKjku5rJeBrJy8fr7rhLQHh8gu6NszSafOV/ +kaeUgF3fsy1MEmh0ay2yTL5PQNp/auapiTRa6Oioz64m4EbSy1MyyTR6YCGX +/+YlAX2uAq97U2mUOMfNm/aKgMyDGzlHL9KIld/v7thMwOovNy8LpNFo5dJq +ud4WAjLaHj1df4lGh2sczv/+RMA13oktdpdppKKRHqraR0Db0zoP3/9oNPf5 +eOsvDgEnHvgM/cJ+G0dsLvlJgIZ3ozBxnUZR1JZ+g0ECEtzbhewzaNR2pdV5 +zwQByRUJyzQyaZS6TNQ4fAkJz4uCPibeolHteMeBEB4SMu7neS1g/+goCPLj +JaFp7KKObzbuhwfMLJYACc0fBiJMc3C/uYXR5qIkXF2cKOfk4votjMWMxUlo +q9sjZp5Ho216YupIgoR+OdnbhdgpIkV22jIknIpnHTt0G8erv5fJKeF45uPa +lnwakblFLyVUSNjBc/aL6h08PuXY9xVqJCQV3dIMw8Z9IrJUnYQ1H5lHZQpw +XNzUa3AzCVLpHVkmhTSq/iMezWHg+ey64HPYfb+6LnVtIYGdQUe+x95aH97w +QR/Pz13HsC+iUe/huwp1QEL6qWDV3cU0Wu4QoVNpSMK+nUdvx2IbGO2yKGOS +MG60yq0aO1mm+1juLhK8vzQGKt+lUdXSkpRMcxIME0pe2WD3jETcvmpBwsqn +lEMstv5ziY/nrEkIqHu/qgObVdY9cGYfCfXIz3BZCY3OXS/hPmlLQsEzwdxN +2N1BZptDHUi4JskvEIEt4iJpGuBEwtqduwVvYOub9Th7HyTh9EZbePx3/prj +iS5uJIy1xJrPY1cJmt9yYJHAdzpVQboU55uSfLiPTYIEj946BrYI1dNiQZJg +JOTJNsfWby7lmHiRsF1K5pMbNqvy+AJ4k6Bvy4w8gn3ulvmqbYdJWJLTZReP +XXVOSlPHjwThDA5x9W/+sN6dmwJIIBL23MnHFmaXOagHkfDER0KpAltvT5S/ +SggJ56cYr5/8zb9192n5ULzfKdnFTdhJatIZUmEk5B7weNqKXbGy775oOAmu +6/2F2rApuuyVUCTOH9UY3/k3/48oijeKhBdX3bdS2Lrvd88uRuPxPsaK3dj/ +B9w++kw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5427252757994168, 1.7306844006149829`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.542725275799418}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.542725275799418}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.5427252757994168, 1.7306844006149829`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9942504507561398`*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"c87a3fe7-807f-430d-b410-6299ece59d21"] }, Open ]], Cell[CellGroupData[{ @@ -6588,444 +6577,488 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918505781608486`*^9},ExpressionUUID->"4b73592e-b155-8f42-b33d-\ -562f8b3faecd"], + CellChangeTimes->{3.9918505781608486`*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"9f5fa53c-8bea-a349-9c29-e4614f56cc98"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.0140031431098285`*^-264\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, 9, + 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994250451302074*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"51ac27a2-36d5-4e9e-8539-2afd38fb4898"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"a2ecd22c-b766-5347-9e03-9d459620be75"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.0736206860708155`*^-275\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 95, + 10, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994250451310915*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"837a36b7-527a-4c51-8952-07d5857338c0"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"45a49c2b-98f0-ca4e-ab79-bb0334e26ffd"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1350029985858436`*^-286\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 95, 11, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994250451318944*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"b2ef0938-62dc-4cf3-9736-3242f650ba95"], Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"258782e2-0da4-1143-8b36-76da0d2ac6df"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.031746 0.0147151 6.72103 [ -[.18254 .00222 -3 -9 ] -[.18254 .00222 3 0 ] -[.34127 .00222 -6 -9 ] -[.34127 .00222 6 0 ] -[.5 .00222 -6 -9 ] -[.5 .00222 6 0 ] -[.65873 .00222 -6 -9 ] -[.65873 .00222 6 0 ] -[.81746 .00222 -6 -9 ] -[.81746 .00222 6 0 ] -[.97619 .00222 -6 -9 ] -[.97619 .00222 6 0 ] -[.01131 .14914 -24 -4.5 ] -[.01131 .14914 0 4.5 ] -[.01131 .28356 -24 -4.5 ] -[.01131 .28356 0 4.5 ] -[.01131 .41798 -24 -4.5 ] -[.01131 .41798 0 4.5 ] -[.01131 .5524 -24 -4.5 ] -[.01131 .5524 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.18254 .01472 m -.18254 .02097 L -s -[(5)] .18254 .00222 0 1 Mshowa -.34127 .01472 m -.34127 .02097 L -s -[(10)] .34127 .00222 0 1 Mshowa -.5 .01472 m -.5 .02097 L -s -[(15)] .5 .00222 0 1 Mshowa -.65873 .01472 m -.65873 .02097 L -s -[(20)] .65873 .00222 0 1 Mshowa -.81746 .01472 m -.81746 .02097 L -s -[(25)] .81746 .00222 0 1 Mshowa -.97619 .01472 m -.97619 .02097 L -s -[(30)] .97619 .00222 0 1 Mshowa -.125 Mabswid -.05556 .01472 m -.05556 .01847 L -s -.0873 .01472 m -.0873 .01847 L -s -.11905 .01472 m -.11905 .01847 L -s -.15079 .01472 m -.15079 .01847 L -s -.21429 .01472 m -.21429 .01847 L -s -.24603 .01472 m -.24603 .01847 L -s -.27778 .01472 m -.27778 .01847 L -s -.30952 .01472 m -.30952 .01847 L -s -.37302 .01472 m -.37302 .01847 L -s -.40476 .01472 m -.40476 .01847 L -s -.43651 .01472 m -.43651 .01847 L -s -.46825 .01472 m -.46825 .01847 L -s -.53175 .01472 m -.53175 .01847 L -s -.56349 .01472 m -.56349 .01847 L -s -.59524 .01472 m -.59524 .01847 L -s -.62698 .01472 m -.62698 .01847 L -s -.69048 .01472 m -.69048 .01847 L -s -.72222 .01472 m -.72222 .01847 L -s -.75397 .01472 m -.75397 .01847 L -s -.78571 .01472 m -.78571 .01847 L -s -.84921 .01472 m -.84921 .01847 L -s -.88095 .01472 m -.88095 .01847 L -s -.9127 .01472 m -.9127 .01847 L -s -.94444 .01472 m -.94444 .01847 L -s -.25 Mabswid -0 .01472 m -1 .01472 L -s -.02381 .14914 m -.03006 .14914 L -s -[(0.02)] .01131 .14914 1 0 Mshowa -.02381 .28356 m -.03006 .28356 L -s -[(0.04)] .01131 .28356 1 0 Mshowa -.02381 .41798 m -.03006 .41798 L -s -[(0.06)] .01131 .41798 1 0 Mshowa -.02381 .5524 m -.03006 .5524 L -s -[(0.08)] .01131 .5524 1 0 Mshowa -.125 Mabswid -.02381 .04832 m -.02756 .04832 L -s -.02381 .08193 m -.02756 .08193 L -s -.02381 .11553 m -.02756 .11553 L -s -.02381 .18274 m -.02756 .18274 L -s -.02381 .21635 m -.02756 .21635 L -s -.02381 .24995 m -.02756 .24995 L -s -.02381 .31716 m -.02756 .31716 L -s -.02381 .35077 m -.02756 .35077 L -s -.02381 .38437 m -.02756 .38437 L -s -.02381 .45158 m -.02756 .45158 L -s -.02381 .48519 m -.02756 .48519 L -s -.02381 .51879 m -.02756 .51879 L -s -.02381 .586 m -.02756 .586 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .01472 m -.06244 .18263 L -.10458 .34796 L -.12507 .41668 L -.14415 .47199 L -.16371 .51906 L -.18221 .55405 L -.192 .56876 L -.20263 .58172 L -.21228 .59082 L -.2212 .59698 L -.22586 .59936 L -.22843 .60043 L -.23087 .60129 L -.23313 .60195 L -.2356 .60252 L -.23669 .60272 L -.23784 .6029 L -.23886 .60304 L -.23993 .60315 L -.24059 .6032 L -.24132 .60325 L -.2426 .60331 L -.24332 .60332 L -.2441 .60332 L -.24483 .6033 L -.2455 .60328 L -.24679 .6032 L -.24752 .60314 L -.24819 .60307 L -.25074 .60272 L -.253 .60228 L -.2555 .60165 L -.26055 .59995 L -.26547 .59774 L -.27064 .59486 L -.2799 .58832 L -.30075 .56765 L -.3205 .54159 L -.33886 .51282 L -.37791 .44198 L -.41941 .36071 L -.45939 .28487 L -.49785 .21945 L -.53877 .16105 L -.57818 .1166 L -.61606 .08416 L -.63714 .07001 L -.6564 .05921 L -.69523 .04269 L -Mistroke -.71425 .03672 L -.73499 .0315 L -.7547 .02757 L -.77569 .0243 L -.79714 .02174 L -.81732 .01991 L -.83744 .01853 L -.85592 .01756 L -.87479 .01681 L -.89546 .0162 L -.91501 .01578 L -.93594 .01545 L -.95662 .01522 L -.97619 .01507 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJzVXGmUFEUSbug5kEFuQRiRWxgYDmFmGJiBEVRuWFhwXcHHcx6HKCCzAquy -gLq8VZBBDmVRkFMRlCcCgoAil7sIrByK3Mdws3LfN+R2RFdFVZaRmd1t43N/ -TE9VVHzxfRmZlVUZVd3tsgf27tkve+Bz3bMrtHgxO6f3c90HVGje/8WAyZ/P -58t3IPCXVMEXE9gWPp/0MUbcFgfhI7AtxB1xED7C3+6P/+LFnt17xPPPPy9q -1KghqlWrJurUqSMGDhworl+77stAn1hx+NBhkZKSgn/gV6xYMV9+2PP5xVsj -3wIv9Mxv+Y8dMxZjVa9eHWPfuX3Hl2qMVdAdS6crDUP5Rc+ePUXJkiUtIcHP -hIQEcevmLcvDJIeLkeCOYZJixYkX27dtR58GDRqIevXqoe/wvw8XN2/cDChQ -64iVe2Pvnr1i0ReLxNUrV5E6ABfDhg0TTz31lK+JJXnL5i2ic+fOVlD4jBPL -li4TrVq1EpcvXUZMnz59xMgRI9MZSEwIVHaGDx08JOrWrSsWLlhoZdMv0tPT -KcP59fSpyjAJ7jD4p5NjJzlvf57YtXMXYS6cv4BJzsnJsZqllGLleZClCNSA -KtjL1OS1RYsWaHczVqpUictrQSa0nYATP58QqampYtrUaVbO/GLM24GT+NZt -KY8KurQQw8QzEmypN67fEJUrV3adGEo6T64CPSBWfLNCmasYywa9mZiYiMPa -HiyZmZli546duJemSZqbw/Y7e+YsjpLcUblWf5g5UhlsAsNhZ2XCuxNE69at -XZ1g5vDL6alVqxYOTFN6Tp44iR3jhPCLbt26ieVfLzemx83RwLJBZzVs2FCM -Hzc+bA43luNIs5TDbFWiRAnRrFkzGFD+EGmsDOVYw2zUW6PEvr37cIjBUH39 -tddF+/btufnMbggIAYFuht69e4v5n89XJitWT9fIgpw/dx7b+s3ybyi0ia4B -g43R09kj7NLFS2LEmyNgwg+5dZ78wfWmefPm+D8pKQldAz2oy9+pk6fYHgoI -N+ZPQZdhQTas34BXOfcpY6JLZ7B+PZ3dXVlZWXTmhUon5S948lpTnK9pBBOY -dcnRJE3myLIm4+LFi0Msml5N8e0B4cJRk93xG1u2AQMGiI9nfRzS5GVzaFKT -ZSXDyrbdzDirn1q2bCk2b9pMrYE5pEqVKmk6lExgt2/j9xvxsu3WffrU6V9c -nhSMqWGF4VP37LPPisWLFodCF6vOWBNrCMB4bNSokejUqZOYPm06tN9np+2r -ZV/h8L544SJeg+HGb3Tu6FQjlMtd8D6zbNmyGBZmG7jQdezYEWYhmpG0lKGE -kKnTLdwPW37AO6uDB3AJIbb9tE1UrVoV8CZqTw7hBjg5ORn+Aj0Hn35MgM1o -TzVrVq/BqzMkJd5K2Lix45AVLk39+vXDgd6A8Y8LkSvVUr5p4ya8HypTpgze -vMN9VSB2rIY2TQ+NCVFBikUx99O5onHjxniBgfwHJkurFTy9lVTVAq+WRQ9r -RpsKPxf8fxyvFLQGDq+Aj3w6K8bKD4ZCTNSEcGxOFOXWvb+W47ew/U7Vx7ht -8FcODPdoFSd4O/kx2nqcIXqUsT3G2HCWKQamxnebqj58FgJTjCoKT48OLeGj -IOw+wx5vBh8FYLe367ifjuNUHg+7L/Cnns/2xKk+DvYHGDxx0oqF/ZcNnnXJ -c4jbM8btSVKT4QMPvWZ2rk6Rh/PONgA2HqLIb5idK5PzSJdzLB2vQAnOZY8/ -SMffdpPFege/k6VEYhwbIqIMcbwTIqI0ISaoUyCNrBKkaiLfy7CXn7HhZ1EK -NikCdGFSOzkCdCFCTzGgndYmEGZayJiCtDtDjfGrVMYR48wI0LHE/ZEB7eiN -IcZZIWOc3dkujF81nd2ho3NCcb9N0T9VK+KAtwg41wBEp5u09ZnaPZaxXSPg -vPCAVwn4eXjAKwScbwCik+OuubVy3C/T1kK1exxjO0/AReEBzxFwsQGITo77 -l6G4n6WtJWr3eMZ2ioBLwwOeJOAy7wjn3H8m968NPOjkuC9XuxdgbMcZm4aR -C3GMsYWp4ijJX2EAopPjvjIU9yO0tUrtfg9jO0jA1eEBDxBwjQGITo77t6G4 -59HWv4LuumdowbkiBlfWGRkZUJ2A52n2IhHKX7B4rF27Ni7CT/x8gi4eR48c -RQWBYz77WRksKIcMGaI8bQsytn2MzWpocAirHsCQeCjRwBM2iLDuu3V21fHY -0WO4SgahEGb2x7NhLW9P/IEIuMa+dPESXfSXLlkatv69jM3KfDBX9kMRYrEe -ilg5DtpArF1Rs21vvvEmdhrsuat28mODOPH+e+9j8RcqP8C3Y/sOKEVxEwfX -gD00YNaSbNMTC3tRDE2zKlwkERL43sT3rM4J2j6c+SH2xZHDR9hTwrnpcdR8 -R2pMTwdsNTVr1hTnzp6T1EydMpW61E7snNlz0BeGM04EeEPK5WYnqVlHavL2 -62vttpry5cvDA11JDTDn5Nhl+KDtg8kfiKZNm2KuuT7jlr47SNd60mWqYdu6 -oB+4LA0dOhT3bA1Q91ry5RLlycDp2k66NhjHkj3cbV2uaqk0lmB4u3WNzh1N -VVqlLtTgqPmPdEJaTNIJCTMf7NnFDHjCAmU378m3e9duyQYlc+thDdn69+8v -ZkyfEYLCbbT1vTTlKaqevsJWzOPHjuMItiunsz6aJdq1a2c/ic/OzhZdu3bF -EwcOQzfC3Hzm9Bl2iHE1rq2MzUqjfUXhaohFrGPwXBRGGqiEfAekUE0XRgT0 -IJwhFStWFG3atIHRwF37OWU/UtI2BvVwF0Sn2OO4bwrF/Qfa2qx250pemxmb -hpELsYm4t4QH3CjL1wBdiZCPahgLq4aCk9/QgRsIuNUFRB+lOzcANIzOBIRb -P4Xivl4+J3n3IoxtLQG3RwD02EzczmUat3ao3Ysytm8JuDMCIHcJCj3EGuLe -ZQA6d8a4tVvtXoyxrWJsGkYuxErGFqaKFSR/rwHorGtwa5/avThjW87Y3Ix4 -hAN+TYz7w2P8ioB5BqBrfSof1TCWYGxLKdiBCIAem0Y0F2IJcWuegZUgJ8f9 -kNq9JGNbzNg0jFyIRcR9OAKgx2aS79RsnDU0734fY1tAwKMRAD22MLnnE/cx -A9BV/2LqEe4TrBTjNI9CHFfzKIEem0ZqKeLhgCZup3rpFIp499KMbS5j+294 -IT4l7hMGoKsuKx81iXYqwbh1Uu1+P2ObTcBTEQA9NhO3UxLHrdNB9ygXcOxj -8NoUvDNdtGhR9Bk8eDC7OPAo8xy1snJXSjX2gqBDhw7iQF5w9ucUlmFsH5Hq -M5bCaBdj4twVEfxbtXIVvGqFr8sGIEWKFMG3N1566aWQZX9Iss+S7MiLMfHu -Ygz+wcIfOvvqlauUgpDS63oqJB910hutMo2dXqjQWUtw/LN0OhUbZ2Q6aTtH -cvKiVKex5Vy5fAWbB+9feuV4clKWsc1gbE4fR6t4Y39DYeI/J2IJwyWUra1z -SqdTMs8bx2C4RRxbH0wOaWlp+P6rUZ/raah81OlssESjrBNjfUJBBd67NXUy -SnMSdkGaDSOs4sRZGuCNzSZNmuCfQkMiY5vK2KyOjLRwY88KXyz8AsOqeouT -M4WSczEogrv6JZITp/5CKECH55La/QHGNpmxaaRyISYR92UDEJ04RpNo11sP -8lENYznGNpGCXY0A6LFdcYXAI+UousNzTc3zIGObwNg0UrkQ7xL39QiAHptJ -PvI4jDfU7uUZ23jGphHNhRhH3DcjAHpsJvnI4zDeUrtXYGxjGJtGNBfibeK+ -HQHQYzPJRx6H8Y7avSJjy2VsGtFciFHELbynWkU65HHKZ6BwMJ6jQg2sxNhG -yLT5I0BzAjTyKxGjh9uvxlRmbG+ouDVt4OL8Q1YRY0Cjp5Jb04YqjG24zB0b -AZpToWlDFWL0cMeFjOEYNcqrMrbXZO74CNCcCncb8HBV4vEwFvB6PsTEHKbi -0ejl4gyVue8xoNFTyV1Aja7G2P4mcxeMAM2p0LSBizNYVpFgQKOnklvThuqM -7WWZu1AEaE6Fpg3VidHDfa8ak8TY/qrittoQ5ZKS/Z0W+Ipw27ZtMRys7lat -XMWuEzjJg+QGB9dId/MVoHiMBM2AdRocztufh9kI/GcLIUkkUZlfq598d/fN -H9s25YMpYtCgQZJt/Ljx4tVXX7Uy8EuZNRjbADn3RagR0XoPyLbBGIOXrNy2 -BfMXiO7duzuCsbbDDZEBqqwXJsHRrUH5cYTDCyduG9RackflcoIxh55sFiVx -ML6iV5GKx7eGYLzC1/ygKgXfP4TvKsL357jxW0OWyGXS6fpoVaTs8hl08eRJ -k/HlGCg7d+nSBV6c4aaHmowtR05qMeMQDbcyZdtmzphJw5F7xakmCfmLKolO -j4M5mm8bXbt6DSffQOJYccmM7QU5c8Utcb+qRGXPuzAYoDPhdzYC2rhX+5SS -uMxZ3Rppncq+RsF8D+8/wVwLf4Gxxp4QyZQaT5KCz4Lp1tn1nWt2TuUuy31V -bbQ6gMNwtj6yspIGNHoquUuo0bUZ23OqOBoVXJzechtKGdDoqeS+T42uw9h6 -ydylXWh0VGI47lIsGqN7eO5Xq6zL2HqoGEuHF6e7rKKMAY2eSm5NGx5mbNky -d9nw0M/I6EQDGj2zVco13PUYWzeZ+4EI0JwKTRvqEaOHu5waU5+xPa3i1rSh -PjE+LXM/qMakMLYuKm5NG1KIsYvMXd57ZqUy6D+rGDXKuThPquKUN8RBvU/K -yiuqMWmM7QkVdwVDHGR8QuaupMY0YGydVNyaNnBx/iirqGxAo6eSW9OGdMbW -QeauYkCjZ0cVt0Z5Q8bWXuauakCjpwfzUMgYTq+GsRFjayNzVzOg0bOtitut -HA9nMJ6tZMbqasYM8vRgktSYTMbWQqVXw51JjC1k7hpqTGPG9piMrmlAoyf3 -rX8TdxPG1kzmTjag0ZP7dQGT8izG9ogqjkZFFql4RFZeW43heLhc4GcwwN0q -bUHVAlZksNqBN6cmvT+JLW05jWsiNzN4n3l3C1rr163Hw9ZP9eHbFfA1nsB6 -nF3/NCWJmbLYupbY36aM1atXL/HJnE8kG/jA7+0F260Y/soJFPcfpkZEu4z1 -yiuvYOrdNvgRJMBrBaM4bqb2ZD26Zax4sfXHrViQtZfxgIERHljOBwcGlrC4 -nDoXcNyvRxLz9kenmGW/EQSVCL/fjwMrPj4eapjsCeb8tolHWn2SFt3SVTwW -R8AXuhy2V69ajfPA/n372dOK+8GWFFlsinFsRlq/ggb07dtXskGd2G4UNzad -6xh3t+zJLpijWdN6Z/w7+KqV2zbvs3miR48eSsGPk2BuUSRlOCpfqIPXI+Gn -BOE3ZeEwjDC4gATOR3YENGdszoIb94Nrg4hLXfZ1ae2/1+ILYvBjh3CGB+ZR -9rRpTuweHcH7e/by69wc1ZYx6WpMS/JMljEN1ZhWjC1JRjcyoNHTg8lQY1qT -ZzUZk6nGODfTVWVMYzWmLXlWljFN1Jh25FlRxmS5MAhxlhblZc9H1NH/QJ7l -ZExTNcZZciXKmGZqTEfyvJ/04pFH1ZhOhLlP5nlcjelM0YvJPM3VmD+RJ06u -MYRpqcZg6QF/CimGtvBIGzWmK3wWIM/2ak/8/J38TJ7pOG4bfgvel+9/Sn8S -OQ==\ -\>", "ImageResolution" -> 96., "LightDark" -> \ -"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-3.233775858153751, \ --0.007969775184554129, 0.11832856225129938, \ -0.0005589111396958131}},ExpressionUUID->"06204099-db57-8e4e-bcc4-\ -fa1ae37c0063"], + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 95, 12, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994250451326201*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"f9776574-e02a-43e5-91b5-c6ba0358455b"], Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-\ -04dec8739bf5"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4FX0UB3AhhbJmzeXeuZaykyVynVOJ0KZUKGuhRZLijQopUSQpu2xJ +idwZFZEQslSWJKFSaZNkyRYt3umveT7P75nl+c7vnDPD8ji42ZOXh4dHaA4P +z7/jZG9TnXJ0rrlGht12Ozaad2TIBq3sCoeMwsfa7mkMQKlWD9mueBA/tiGN +kaYFgZtuvuTryoHlP76vGE3lgPiQTPz0y2IYcxEuIVPXw9uKDQfHX9ZANH8G +40uKM1gqD7wZfdkOz0vGNN4kHoDpl8YJIy/7oHjwU1r9uRNQu/p67rOcMfhr +ZLRuKi4WFN6WffbQ/AMbyh4lrzuSCIt8XG/OW82H1CEL2R0GVyBez/L+hq3z +0dM8Qc9eNAe6k3WrR8UWIiOM/XOHyDWIzg1t5ZUTxziXc2m2fDdA5vKHs5eu +SOLfAB+J94k3IdLe2rx9UgqPOyYtLrhVCPJ3WuR550jjgcYkHsGSQiiStJ/S +E5ZGT81zH9wqC6Gz3YW8qCSNaYWHMv+2FIKy3RHCbq00ivZPd4wOF0LN+kyB +thRptPY22F+iewv+WE60NJvJoO6xtC3Ft27BYZNs16ZwWTSOPuqyLqEIbLJE +xm1jZHFcamAHN60IiHnHo1oSZNHzZ/nEgpwiaOvYRj2/IYtfHy74U1pUBNp+ +C/h6W2RxzvVHm5obiqA/77+8H/JyGFm5uW78ZxHsXLTh++LbcmhndfGbwXYu +LDt2/2RGhRwG/eF7P7CTC0J9S6RZ9XKY3rhjX5oHF8q4fKDaLYcinRLLBw9w +Qdq2LE53Vg6F17rcX3eaC20nlQ3W2MqjRr+PhSDJBYvhmWDfD/L4/ZD1x9I5 +JAStvaz+cFAeeVqnnHX4SSjK1uqRnJTH1s2nVuQKkCBr72ZSNn8xTmwwJ84I +kzB479EUn/ZijNpfk6EuRcKl8LgjKUcXY36AqdOkGgl9Uqq+dQsV0EilSjfF +lgSZg1UMGRkFXHtO1eTBehLWNTo072UqYHe14vXejSSUBEdrii5TwJoqlTty +9iScezsy4OiggEUxfgl+O0nQz7/vPZyjgD1PVsZm+5Bw0szOXX45A13tlSzF +o0lY65Lxw3gVAysrEq8JnidBJOzbqa3rGLh/9Pb031gS0msj8uLcGAjJT8Pe +xZNwz6b8m8BZBqasYYuHppIw4sAOHOtmYGvefX/1fBJKg/3miX9kYF2slumP +mySEpD9I1h5ioGKJ20xJIQkL3m2/v5dXEaOf6noZkySoecfwvFNXxO11t8ck +S0lwCZg49/SYInoI8muY1ZGgkrRKYSBCEQsFn+U8f/Qvvwu35sUpYrmJs+ye +BhKCfy9tW5WriPqK4n8jH5OQcMpFquypIgZ9v/HgahsJTy82ZF5jKGH72aMu +tq9JMC1KuRNSpYTDbUt6nEdJsHjZ8meoUQkL8nl+h/0gYQMPv5VruxJubWad +yx4jYddm3274pIQ7/G4P9kyQYHmMFRo2l4kfdFxfaM+Q4Kc0eXWlBhO7Nxqd +3cFLwcTtuMZpHSZWKPqnb+WjIHitxnfKgImmpxYQ6/kpiDjkZkSYM3Hf3akI +AwEKUmsfN/LaMXGZJH/FR0EK6rwzv9cGMvG6eQvniRgF1r9NJI4fY+L8T5tu +pItT0BLXYWQQxsRaZl/0fgkKussEw3LPMvGH2GjVnEUUDAkfkYhIZ2Jwmmq/ +qAwFh7NEjDnZTLRODFVrpv3TIH/HxDUmvq/+70OkLAV8Lr25nlwmdkzJPp+Q +o0CWXGtsWcPEml0CGbcVKLhi8WHH33omfrU0a93JoIDoPhFW8oSJ+wfqw/gU +KdDivd2k+oKJoxLVXtZKFKyyZ+yc189E8783bEtZFPj8HA1rXMjCy6Jenxer +UmB6yEv6swQL3WLCZW/Qnj/QU8Any8Lffda79dQouPaqttOcYKHNqUO2K5ZQ +0FuZoHnXiIW1SUH7NNUpKDQWqmlfwcK3yWbHs2kHkyHbR5CF71uGCiU1KJDO +8Q7XsGVhj+mzA8O0N0aYdGW7srBj6bmw01oUKP69daBqNwszqQfpfbQHAwm+ +N3tZOM/V/g1Hm4KoPcLaskdYKC56uOUb7W3vQ2sNg1iY1OEWZq5DgbLTuMOW +EBaetzjhGEu72vbNqdgoFk6mSZ1W0aUgts5OrvA8C92F/3T60N7JqS9qimeh +ucHAFor2tDa3m/8KCw9m3mnR06Og8Tr7IJHDQi8lvpYDtBOZyfx4nYWKz01m +8mjrS5zUOUax8KuszWsxfQp4oifqkktYWBmbemkl7Ra+fU4l9+k8/lYHH6Sd +frx3+Hk1C7XSguNTae+f2Bwx+ojOwyriVQ1tU98GedEnLPyRmrmtn/b8LytI +zTYWtr+K4hdeRkGnK7nG5gULi3jnfFanndul/Mq7h4Uy9xp/WdH2t0vxi3jL +wkD7bEsP2vh4ocDVj3Qeb9c1BNEWWR2eVv2VhXxisSGxtN/cn9TtHaLzt1ly +IIt2ocH++l9jLPyQ8/YSl3bwrbc75KZZ6N11dOw+7bWq9qNGf1kY6lAW84i2 +dGbjGXs+AnPMvN2e0v4ow1Hwn0+gho31wTbaxXEUdWEhgS9GVcuf0Q4TVLW6 +JUGgzsbGlf/WN4anvn4sQ3vJpMC/8xV/ifj3KxB4fTBI6N/1Bw+fmidAEFh9 +l7H+3/3LB6fS2WoEhqwpbC2iHeXpo79Sk8BVAqPxmbS39b5rcNEjEITuJZ2n +rbx9q/NxIwJ5hVt6j9L+0dr0I2UFgd/28Ox1p1291jyqFAnMV2cY/8sv9mEx +48UaAst//7D+l+9OU7XbP2wIHNa1yxGiPa0h1qu1lcB95l9Ua+n3M3lF/uQy +JwIfPvGWSqc9LqqibOJKYOvUe09/2kNjJvss9hLI3ftOR4b2N0+LhTa+dF71 +4zc/0fun/+UGcuNhAhOGiWiKdt/9XZNOJwhcvXLsxErab7V8U9zCCQzVUI+f +S/t15lEzr0gCH+3KFWmg92vnqfPhhy4SaJUav3oV7ce2pSJR1wjcpPnothy9 +/xsePKTO3ySwOeoks4mulzqdp/aXuATyPBj+FUC7UvJ9akYZgXm32LyNdL0V +vxJSu9tM5/u902O9JgXc9VKPy9sJ3GMvvLOfrtfCKqUD1S8J9OI//TiMdt5V +g9tP3hOoOJggdJOu99T9LtA3QaDu6FXtXro/JL3Z0/dlhsBd712+7qZ9eePh +iO+zBDJCJZlf6X4SuyzqyU9BNqpntfAP0P0m/Be1XVSRjRNCPrXNyhSEHqiY +WcRm4wXztgCkffxt/RX5JWxsCJtbQLIpCKx99UFFn43dNQ7ZZwm6nqLn+plZ +srHzy8QLBpOCPX9EJVfZsjE/Vb/0ON3/vA7Kl1htYiP1cDnRTfdHty06vzc7 +sXG3kVrKObp/2i92jNrry8a7knbsNnkKzAoKsxIT2fg1NcnvM92/XzELMtek +sZGxJ6xfg3ZwYn7GeCYbHVQK1x6UpKD0ZF765nw2ir6urhum54G+Q1aySAXt +sezqlyIULJ17Oe7MezZetT3hazGf7i/B8RcMP7Pxl/BY7Z559PONxMV+HGCj +wcNrC6Pp+ZP76nzMqnE28gc8DWui5xOzODLqr4AyJgYG/9KaQ9ef67GwQE1l +rHtjOZQwTcLdjqBQFT1lfCnt/yHlJwn2NkdDOgyVcere0u60KRLiDQOO64My +6pk6N6XQ83LhgoNHh+yUcW50VfsJet7yl3n4ef2njGPidSZf+kkYlbBx21aj +jOYhgwMWnSR0+RBt+xqU0bs+q2m4g4Tq+hkIfUpfn3zik/ychLjgAqUbncrI +a0Tyf6Dnu27fgrfTA8roMzOW5PyEBF+q1fmKpArO8l82/lpFwsDGrTs+7lbB +i7PP6t2vk9Cer/Xk514V/JRaAQ3XSCjnE1ix8CC97sHIVM8l4WxpibxRkAqG +LE2S+pZFwhIl2Z7I8yooy+mY3Ux/73gP9TholKigQRn3QVUMCR9j3Lb5z1PF +kYXBFxb50fcf0CR0F6ji4JyAuw6+JExZTX//LqaKhzyrVdLo7y8hvviIvfKq +6Fs50C+/l37+oNo7blqq6BQ+T1LAg4QTnqqSG7eo4qXx6proLSRImw+2amSq +YnNw8y8nQxKsh/+z/mSkhplqP7cH9XNBQU/xzHwzNVyyxupL9wcuDPnX1Wis +VMNtZpy/Rm+5cHlSzMzfVg2Fft5++vkFF3r/5GvPuqphe/WENqOWC/4LXkvK +nVXD+vg24ks6F1KXYu+6V2po8S02h2cDFwZ3zT98J3QJnrsjsvVZXhH9/yLD +G1mzFIsFYnSWmd8CiWbVWHJYHRP6MoM7mwtAIYq7ychIEyO7tkSsUL4JyRom +YpLeWrh5EJZ2RNyAx/IrDccuamPSjkWJaz7ngalCTZxOpw4GHK4Y+6J0DUT4 +co64h+viTDDTzyn4KiieVDJzVNXD1BvaKu/LskFQZWfJ5gY9bC0/NLpANAu0 +OXLc/5z1sctH4bo56wr490rU2vAsw4Kgj5buC1JheCxmq3XyMvQOLI67sC0J +rHTqU621DPD0C95iq+7LUDm24tdUiwFuyfoj3r09Hnw19XueeRpi7yP1QSu9 +OOAM7e5wFDTCJ7sNjS1YMbBGWXb9whwjDBGJVw6IioIlYeeO1hgbo1v6lIqW +YwSoe5pUqfQYY8fM4Y5Dq8LBs3LP6TuHlmNf52qDSa9QqMrq2D0qZYK27jab +Vp4OhvEbs1M6pSboaLjbaXZrIOxSKRBMXW+KflHqfttG/GFU/ZJR8Ygpxs0W +a4mcPAj3cn+9n4hagY4GHjyFu/eBkwUbVyiaodRy98p2KS9YfCCyTLvaDN3H +sb1ksQfEznoZRteY4ePikSUsEQ/gjbekvtSZoXaIxLbLPB4wUDI3P6vJDD/u +cWYlfHKHcp7TyRLPzXBkk/HvWa47OF0O+2/ykxkyY1obAy3dIfl+kGGlMAeX +S0YbNQW5gZSQD7V+OwdPx82rlPzhDLmrTwSPOHJwb92d525dzqB/Inb1pZ0c +fKZ+WvdhpTNsGCFfdLlzMF8uK+5+tDOc6ZyY3uVDrxfvu5qg6gw/c0JXBZ/k +4DxZ6y8drjuhZ8Wl53kFHNykkR6k884J9gTkplsXcbA5A8RbG51gsuiu5yDJ +wWW1J06GUU4gQXRN6ZVwUCxTu0r2lBPYzmcoPKjm4PwnKkcZak5Q0ZG3+/kL +DraXVxj6+juCjcg9rcAuDjJmfFRVdzpCl1XTpOwrDo4u2w3DaxxhvPxblMs7 +Dmab3a28I+cIWtm6t74OcHAg6lGtcI0DVPSsDIz5zsHcab8G20IHsFm0BXRG +OCiQNJWenugAXpEBz45McNCw7V68334HGK8+kyrzk4Ml1nFXxrY6QPhM0q7y +GQ46FRzfGIkOIGaQr+n8h4Olc7uuaGg4QMaB8onZWQ4eF5sT8k7KAf4H9SyC +yQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4FX0UB3AhhbJmzeXeuZaykyVynVOJ0KZUKGuhRZLijQopUSQpu2xJ +idwZFZEQslSWJKFSaZNkyRYt3umveT7P75nl+c7vnDPD8ji42ZOXh4dHaA4P +z7/jZG9TnXJ0rrlGht12Ozaad2TIBq3sCoeMwsfa7mkMQKlWD9mueBA/tiGN +kaYFgZtuvuTryoHlP76vGE3lgPiQTPz0y2IYcxEuIVPXw9uKDQfHX9ZANH8G +40uKM1gqD7wZfdkOz0vGNN4kHoDpl8YJIy/7oHjwU1r9uRNQu/p67rOcMfhr +ZLRuKi4WFN6WffbQ/AMbyh4lrzuSCIt8XG/OW82H1CEL2R0GVyBez/L+hq3z +0dM8Qc9eNAe6k3WrR8UWIiOM/XOHyDWIzg1t5ZUTxziXc2m2fDdA5vKHs5eu +SOLfAB+J94k3IdLe2rx9UgqPOyYtLrhVCPJ3WuR550jjgcYkHsGSQiiStJ/S +E5ZGT81zH9wqC6Gz3YW8qCSNaYWHMv+2FIKy3RHCbq00ivZPd4wOF0LN+kyB +thRptPY22F+iewv+WE60NJvJoO6xtC3Ft27BYZNs16ZwWTSOPuqyLqEIbLJE +xm1jZHFcamAHN60IiHnHo1oSZNHzZ/nEgpwiaOvYRj2/IYtfHy74U1pUBNp+ +C/h6W2RxzvVHm5obiqA/77+8H/JyGFm5uW78ZxHsXLTh++LbcmhndfGbwXYu +LDt2/2RGhRwG/eF7P7CTC0J9S6RZ9XKY3rhjX5oHF8q4fKDaLYcinRLLBw9w +Qdq2LE53Vg6F17rcX3eaC20nlQ3W2MqjRr+PhSDJBYvhmWDfD/L4/ZD1x9I5 +JAStvaz+cFAeeVqnnHX4SSjK1uqRnJTH1s2nVuQKkCBr72ZSNn8xTmwwJ84I +kzB479EUn/ZijNpfk6EuRcKl8LgjKUcXY36AqdOkGgl9Uqq+dQsV0EilSjfF +lgSZg1UMGRkFXHtO1eTBehLWNTo072UqYHe14vXejSSUBEdrii5TwJoqlTty +9iScezsy4OiggEUxfgl+O0nQz7/vPZyjgD1PVsZm+5Bw0szOXX45A13tlSzF +o0lY65Lxw3gVAysrEq8JnidBJOzbqa3rGLh/9Pb031gS0msj8uLcGAjJT8Pe +xZNwz6b8m8BZBqasYYuHppIw4sAOHOtmYGvefX/1fBJKg/3miX9kYF2slumP +mySEpD9I1h5ioGKJ20xJIQkL3m2/v5dXEaOf6noZkySoecfwvFNXxO11t8ck +S0lwCZg49/SYInoI8muY1ZGgkrRKYSBCEQsFn+U8f/Qvvwu35sUpYrmJs+ye +BhKCfy9tW5WriPqK4n8jH5OQcMpFquypIgZ9v/HgahsJTy82ZF5jKGH72aMu +tq9JMC1KuRNSpYTDbUt6nEdJsHjZ8meoUQkL8nl+h/0gYQMPv5VruxJubWad +yx4jYddm3274pIQ7/G4P9kyQYHmMFRo2l4kfdFxfaM+Q4Kc0eXWlBhO7Nxqd +3cFLwcTtuMZpHSZWKPqnb+WjIHitxnfKgImmpxYQ6/kpiDjkZkSYM3Hf3akI +AwEKUmsfN/LaMXGZJH/FR0EK6rwzv9cGMvG6eQvniRgF1r9NJI4fY+L8T5tu +pItT0BLXYWQQxsRaZl/0fgkKussEw3LPMvGH2GjVnEUUDAkfkYhIZ2Jwmmq/ +qAwFh7NEjDnZTLRODFVrpv3TIH/HxDUmvq/+70OkLAV8Lr25nlwmdkzJPp+Q +o0CWXGtsWcPEml0CGbcVKLhi8WHH33omfrU0a93JoIDoPhFW8oSJ+wfqw/gU +KdDivd2k+oKJoxLVXtZKFKyyZ+yc189E8783bEtZFPj8HA1rXMjCy6Jenxer +UmB6yEv6swQL3WLCZW/Qnj/QU8Any8Lffda79dQouPaqttOcYKHNqUO2K5ZQ +0FuZoHnXiIW1SUH7NNUpKDQWqmlfwcK3yWbHs2kHkyHbR5CF71uGCiU1KJDO +8Q7XsGVhj+mzA8O0N0aYdGW7srBj6bmw01oUKP69daBqNwszqQfpfbQHAwm+ +N3tZOM/V/g1Hm4KoPcLaskdYKC56uOUb7W3vQ2sNg1iY1OEWZq5DgbLTuMOW +EBaetzjhGEu72vbNqdgoFk6mSZ1W0aUgts5OrvA8C92F/3T60N7JqS9qimeh +ucHAFor2tDa3m/8KCw9m3mnR06Og8Tr7IJHDQi8lvpYDtBOZyfx4nYWKz01m +8mjrS5zUOUax8KuszWsxfQp4oifqkktYWBmbemkl7Ra+fU4l9+k8/lYHH6Sd +frx3+Hk1C7XSguNTae+f2Bwx+ojOwyriVQ1tU98GedEnLPyRmrmtn/b8LytI +zTYWtr+K4hdeRkGnK7nG5gULi3jnfFanndul/Mq7h4Uy9xp/WdH2t0vxi3jL +wkD7bEsP2vh4ocDVj3Qeb9c1BNEWWR2eVv2VhXxisSGxtN/cn9TtHaLzt1ly +IIt2ocH++l9jLPyQ8/YSl3bwrbc75KZZ6N11dOw+7bWq9qNGf1kY6lAW84i2 +dGbjGXs+AnPMvN2e0v4ow1Hwn0+gho31wTbaxXEUdWEhgS9GVcuf0Q4TVLW6 +JUGgzsbGlf/WN4anvn4sQ3vJpMC/8xV/ifj3KxB4fTBI6N/1Bw+fmidAEFh9 +l7H+3/3LB6fS2WoEhqwpbC2iHeXpo79Sk8BVAqPxmbS39b5rcNEjEITuJZ2n +rbx9q/NxIwJ5hVt6j9L+0dr0I2UFgd/28Ox1p1291jyqFAnMV2cY/8sv9mEx +48UaAst//7D+l+9OU7XbP2wIHNa1yxGiPa0h1qu1lcB95l9Ua+n3M3lF/uQy +JwIfPvGWSqc9LqqibOJKYOvUe09/2kNjJvss9hLI3ftOR4b2N0+LhTa+dF71 +4zc/0fun/+UGcuNhAhOGiWiKdt/9XZNOJwhcvXLsxErab7V8U9zCCQzVUI+f +S/t15lEzr0gCH+3KFWmg92vnqfPhhy4SaJUav3oV7ce2pSJR1wjcpPnothy9 +/xsePKTO3ySwOeoks4mulzqdp/aXuATyPBj+FUC7UvJ9akYZgXm32LyNdL0V +vxJSu9tM5/u902O9JgXc9VKPy9sJ3GMvvLOfrtfCKqUD1S8J9OI//TiMdt5V +g9tP3hOoOJggdJOu99T9LtA3QaDu6FXtXro/JL3Z0/dlhsBd712+7qZ9eePh +iO+zBDJCJZlf6X4SuyzqyU9BNqpntfAP0P0m/Be1XVSRjRNCPrXNyhSEHqiY +WcRm4wXztgCkffxt/RX5JWxsCJtbQLIpCKx99UFFn43dNQ7ZZwm6nqLn+plZ +srHzy8QLBpOCPX9EJVfZsjE/Vb/0ON3/vA7Kl1htYiP1cDnRTfdHty06vzc7 +sXG3kVrKObp/2i92jNrry8a7knbsNnkKzAoKsxIT2fg1NcnvM92/XzELMtek +sZGxJ6xfg3ZwYn7GeCYbHVQK1x6UpKD0ZF765nw2ir6urhum54G+Q1aySAXt +sezqlyIULJ17Oe7MezZetT3hazGf7i/B8RcMP7Pxl/BY7Z559PONxMV+HGCj +wcNrC6Pp+ZP76nzMqnE28gc8DWui5xOzODLqr4AyJgYG/9KaQ9ef67GwQE1l +rHtjOZQwTcLdjqBQFT1lfCnt/yHlJwn2NkdDOgyVcere0u60KRLiDQOO64My +6pk6N6XQ83LhgoNHh+yUcW50VfsJet7yl3n4ef2njGPidSZf+kkYlbBx21aj +jOYhgwMWnSR0+RBt+xqU0bs+q2m4g4Tq+hkIfUpfn3zik/ychLjgAqUbncrI +a0Tyf6Dnu27fgrfTA8roMzOW5PyEBF+q1fmKpArO8l82/lpFwsDGrTs+7lbB +i7PP6t2vk9Cer/Xk514V/JRaAQ3XSCjnE1ix8CC97sHIVM8l4WxpibxRkAqG +LE2S+pZFwhIl2Z7I8yooy+mY3Ux/73gP9TholKigQRn3QVUMCR9j3Lb5z1PF +kYXBFxb50fcf0CR0F6ji4JyAuw6+JExZTX//LqaKhzyrVdLo7y8hvviIvfKq +6Fs50C+/l37+oNo7blqq6BQ+T1LAg4QTnqqSG7eo4qXx6proLSRImw+2amSq +YnNw8y8nQxKsh/+z/mSkhplqP7cH9XNBQU/xzHwzNVyyxupL9wcuDPnX1Wis +VMNtZpy/Rm+5cHlSzMzfVg2Fft5++vkFF3r/5GvPuqphe/WENqOWC/4LXkvK +nVXD+vg24ks6F1KXYu+6V2po8S02h2cDFwZ3zT98J3QJnrsjsvVZXhH9/yLD +G1mzFIsFYnSWmd8CiWbVWHJYHRP6MoM7mwtAIYq7ychIEyO7tkSsUL4JyRom +YpLeWrh5EJZ2RNyAx/IrDccuamPSjkWJaz7ngalCTZxOpw4GHK4Y+6J0DUT4 +co64h+viTDDTzyn4KiieVDJzVNXD1BvaKu/LskFQZWfJ5gY9bC0/NLpANAu0 +OXLc/5z1sctH4bo56wr490rU2vAsw4Kgj5buC1JheCxmq3XyMvQOLI67sC0J +rHTqU621DPD0C95iq+7LUDm24tdUiwFuyfoj3r09Hnw19XueeRpi7yP1QSu9 +OOAM7e5wFDTCJ7sNjS1YMbBGWXb9whwjDBGJVw6IioIlYeeO1hgbo1v6lIqW +YwSoe5pUqfQYY8fM4Y5Dq8LBs3LP6TuHlmNf52qDSa9QqMrq2D0qZYK27jab +Vp4OhvEbs1M6pSboaLjbaXZrIOxSKRBMXW+KflHqfttG/GFU/ZJR8Ygpxs0W +a4mcPAj3cn+9n4hagY4GHjyFu/eBkwUbVyiaodRy98p2KS9YfCCyTLvaDN3H +sb1ksQfEznoZRteY4ePikSUsEQ/gjbekvtSZoXaIxLbLPB4wUDI3P6vJDD/u +cWYlfHKHcp7TyRLPzXBkk/HvWa47OF0O+2/ykxkyY1obAy3dIfl+kGGlMAeX +S0YbNQW5gZSQD7V+OwdPx82rlPzhDLmrTwSPOHJwb92d525dzqB/Inb1pZ0c +fKZ+WvdhpTNsGCFfdLlzMF8uK+5+tDOc6ZyY3uVDrxfvu5qg6gw/c0JXBZ/k +4DxZ6y8drjuhZ8Wl53kFHNykkR6k884J9gTkplsXcbA5A8RbG51gsuiu5yDJ +wWW1J06GUU4gQXRN6ZVwUCxTu0r2lBPYzmcoPKjm4PwnKkcZak5Q0ZG3+/kL +DraXVxj6+juCjcg9rcAuDjJmfFRVdzpCl1XTpOwrDo4u2w3DaxxhvPxblMs7 +Dmab3a28I+cIWtm6t74OcHAg6lGtcI0DVPSsDIz5zsHcab8G20IHsFm0BXRG +OCiQNJWenugAXpEBz45McNCw7V68334HGK8+kyrzk4Ml1nFXxrY6QPhM0q7y +GQ46FRzfGIkOIGaQr+n8h4Olc7uuaGg4QMaB8onZWQ4eF5sT8k7KAf4H9SyC +yQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06719694895486523}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06719694895486523}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4FX0UB3AhhbJmzeXeuZaykyVynVOJ0KZUKGuhRZLijQopUSQpu2xJ +idwZFZEQslSWJKFSaZNkyRYt3umveT7P75nl+c7vnDPD8ji42ZOXh4dHaA4P +z7/jZG9TnXJ0rrlGht12Ozaad2TIBq3sCoeMwsfa7mkMQKlWD9mueBA/tiGN +kaYFgZtuvuTryoHlP76vGE3lgPiQTPz0y2IYcxEuIVPXw9uKDQfHX9ZANH8G +40uKM1gqD7wZfdkOz0vGNN4kHoDpl8YJIy/7oHjwU1r9uRNQu/p67rOcMfhr +ZLRuKi4WFN6WffbQ/AMbyh4lrzuSCIt8XG/OW82H1CEL2R0GVyBez/L+hq3z +0dM8Qc9eNAe6k3WrR8UWIiOM/XOHyDWIzg1t5ZUTxziXc2m2fDdA5vKHs5eu +SOLfAB+J94k3IdLe2rx9UgqPOyYtLrhVCPJ3WuR550jjgcYkHsGSQiiStJ/S +E5ZGT81zH9wqC6Gz3YW8qCSNaYWHMv+2FIKy3RHCbq00ivZPd4wOF0LN+kyB +thRptPY22F+iewv+WE60NJvJoO6xtC3Ft27BYZNs16ZwWTSOPuqyLqEIbLJE +xm1jZHFcamAHN60IiHnHo1oSZNHzZ/nEgpwiaOvYRj2/IYtfHy74U1pUBNp+ +C/h6W2RxzvVHm5obiqA/77+8H/JyGFm5uW78ZxHsXLTh++LbcmhndfGbwXYu +LDt2/2RGhRwG/eF7P7CTC0J9S6RZ9XKY3rhjX5oHF8q4fKDaLYcinRLLBw9w +Qdq2LE53Vg6F17rcX3eaC20nlQ3W2MqjRr+PhSDJBYvhmWDfD/L4/ZD1x9I5 +JAStvaz+cFAeeVqnnHX4SSjK1uqRnJTH1s2nVuQKkCBr72ZSNn8xTmwwJ84I +kzB479EUn/ZijNpfk6EuRcKl8LgjKUcXY36AqdOkGgl9Uqq+dQsV0EilSjfF +lgSZg1UMGRkFXHtO1eTBehLWNTo072UqYHe14vXejSSUBEdrii5TwJoqlTty +9iScezsy4OiggEUxfgl+O0nQz7/vPZyjgD1PVsZm+5Bw0szOXX45A13tlSzF +o0lY65Lxw3gVAysrEq8JnidBJOzbqa3rGLh/9Pb031gS0msj8uLcGAjJT8Pe +xZNwz6b8m8BZBqasYYuHppIw4sAOHOtmYGvefX/1fBJKg/3miX9kYF2slumP +mySEpD9I1h5ioGKJ20xJIQkL3m2/v5dXEaOf6noZkySoecfwvFNXxO11t8ck +S0lwCZg49/SYInoI8muY1ZGgkrRKYSBCEQsFn+U8f/Qvvwu35sUpYrmJs+ye +BhKCfy9tW5WriPqK4n8jH5OQcMpFquypIgZ9v/HgahsJTy82ZF5jKGH72aMu +tq9JMC1KuRNSpYTDbUt6nEdJsHjZ8meoUQkL8nl+h/0gYQMPv5VruxJubWad +yx4jYddm3274pIQ7/G4P9kyQYHmMFRo2l4kfdFxfaM+Q4Kc0eXWlBhO7Nxqd +3cFLwcTtuMZpHSZWKPqnb+WjIHitxnfKgImmpxYQ6/kpiDjkZkSYM3Hf3akI +AwEKUmsfN/LaMXGZJH/FR0EK6rwzv9cGMvG6eQvniRgF1r9NJI4fY+L8T5tu +pItT0BLXYWQQxsRaZl/0fgkKussEw3LPMvGH2GjVnEUUDAkfkYhIZ2Jwmmq/ +qAwFh7NEjDnZTLRODFVrpv3TIH/HxDUmvq/+70OkLAV8Lr25nlwmdkzJPp+Q +o0CWXGtsWcPEml0CGbcVKLhi8WHH33omfrU0a93JoIDoPhFW8oSJ+wfqw/gU +KdDivd2k+oKJoxLVXtZKFKyyZ+yc189E8783bEtZFPj8HA1rXMjCy6Jenxer +UmB6yEv6swQL3WLCZW/Qnj/QU8Any8Lffda79dQouPaqttOcYKHNqUO2K5ZQ +0FuZoHnXiIW1SUH7NNUpKDQWqmlfwcK3yWbHs2kHkyHbR5CF71uGCiU1KJDO +8Q7XsGVhj+mzA8O0N0aYdGW7srBj6bmw01oUKP69daBqNwszqQfpfbQHAwm+ +N3tZOM/V/g1Hm4KoPcLaskdYKC56uOUb7W3vQ2sNg1iY1OEWZq5DgbLTuMOW +EBaetzjhGEu72vbNqdgoFk6mSZ1W0aUgts5OrvA8C92F/3T60N7JqS9qimeh +ucHAFor2tDa3m/8KCw9m3mnR06Og8Tr7IJHDQi8lvpYDtBOZyfx4nYWKz01m +8mjrS5zUOUax8KuszWsxfQp4oifqkktYWBmbemkl7Ra+fU4l9+k8/lYHH6Sd +frx3+Hk1C7XSguNTae+f2Bwx+ojOwyriVQ1tU98GedEnLPyRmrmtn/b8LytI +zTYWtr+K4hdeRkGnK7nG5gULi3jnfFanndul/Mq7h4Uy9xp/WdH2t0vxi3jL +wkD7bEsP2vh4ocDVj3Qeb9c1BNEWWR2eVv2VhXxisSGxtN/cn9TtHaLzt1ly +IIt2ocH++l9jLPyQ8/YSl3bwrbc75KZZ6N11dOw+7bWq9qNGf1kY6lAW84i2 +dGbjGXs+AnPMvN2e0v4ow1Hwn0+gho31wTbaxXEUdWEhgS9GVcuf0Q4TVLW6 +JUGgzsbGlf/WN4anvn4sQ3vJpMC/8xV/ifj3KxB4fTBI6N/1Bw+fmidAEFh9 +l7H+3/3LB6fS2WoEhqwpbC2iHeXpo79Sk8BVAqPxmbS39b5rcNEjEITuJZ2n +rbx9q/NxIwJ5hVt6j9L+0dr0I2UFgd/28Ox1p1291jyqFAnMV2cY/8sv9mEx +48UaAst//7D+l+9OU7XbP2wIHNa1yxGiPa0h1qu1lcB95l9Ua+n3M3lF/uQy +JwIfPvGWSqc9LqqibOJKYOvUe09/2kNjJvss9hLI3ftOR4b2N0+LhTa+dF71 +4zc/0fun/+UGcuNhAhOGiWiKdt/9XZNOJwhcvXLsxErab7V8U9zCCQzVUI+f +S/t15lEzr0gCH+3KFWmg92vnqfPhhy4SaJUav3oV7ce2pSJR1wjcpPnothy9 +/xsePKTO3ySwOeoks4mulzqdp/aXuATyPBj+FUC7UvJ9akYZgXm32LyNdL0V +vxJSu9tM5/u902O9JgXc9VKPy9sJ3GMvvLOfrtfCKqUD1S8J9OI//TiMdt5V +g9tP3hOoOJggdJOu99T9LtA3QaDu6FXtXro/JL3Z0/dlhsBd712+7qZ9eePh +iO+zBDJCJZlf6X4SuyzqyU9BNqpntfAP0P0m/Be1XVSRjRNCPrXNyhSEHqiY +WcRm4wXztgCkffxt/RX5JWxsCJtbQLIpCKx99UFFn43dNQ7ZZwm6nqLn+plZ +srHzy8QLBpOCPX9EJVfZsjE/Vb/0ON3/vA7Kl1htYiP1cDnRTfdHty06vzc7 +sXG3kVrKObp/2i92jNrry8a7knbsNnkKzAoKsxIT2fg1NcnvM92/XzELMtek +sZGxJ6xfg3ZwYn7GeCYbHVQK1x6UpKD0ZF765nw2ir6urhum54G+Q1aySAXt +sezqlyIULJ17Oe7MezZetT3hazGf7i/B8RcMP7Pxl/BY7Z559PONxMV+HGCj +wcNrC6Pp+ZP76nzMqnE28gc8DWui5xOzODLqr4AyJgYG/9KaQ9ef67GwQE1l +rHtjOZQwTcLdjqBQFT1lfCnt/yHlJwn2NkdDOgyVcere0u60KRLiDQOO64My +6pk6N6XQ83LhgoNHh+yUcW50VfsJet7yl3n4ef2njGPidSZf+kkYlbBx21aj +jOYhgwMWnSR0+RBt+xqU0bs+q2m4g4Tq+hkIfUpfn3zik/ychLjgAqUbncrI +a0Tyf6Dnu27fgrfTA8roMzOW5PyEBF+q1fmKpArO8l82/lpFwsDGrTs+7lbB +i7PP6t2vk9Cer/Xk514V/JRaAQ3XSCjnE1ix8CC97sHIVM8l4WxpibxRkAqG +LE2S+pZFwhIl2Z7I8yooy+mY3Ux/73gP9TholKigQRn3QVUMCR9j3Lb5z1PF +kYXBFxb50fcf0CR0F6ji4JyAuw6+JExZTX//LqaKhzyrVdLo7y8hvviIvfKq +6Fs50C+/l37+oNo7blqq6BQ+T1LAg4QTnqqSG7eo4qXx6proLSRImw+2amSq +YnNw8y8nQxKsh/+z/mSkhplqP7cH9XNBQU/xzHwzNVyyxupL9wcuDPnX1Wis +VMNtZpy/Rm+5cHlSzMzfVg2Fft5++vkFF3r/5GvPuqphe/WENqOWC/4LXkvK +nVXD+vg24ks6F1KXYu+6V2po8S02h2cDFwZ3zT98J3QJnrsjsvVZXhH9/yLD +G1mzFIsFYnSWmd8CiWbVWHJYHRP6MoM7mwtAIYq7ychIEyO7tkSsUL4JyRom +YpLeWrh5EJZ2RNyAx/IrDccuamPSjkWJaz7ngalCTZxOpw4GHK4Y+6J0DUT4 +co64h+viTDDTzyn4KiieVDJzVNXD1BvaKu/LskFQZWfJ5gY9bC0/NLpANAu0 +OXLc/5z1sctH4bo56wr490rU2vAsw4Kgj5buC1JheCxmq3XyMvQOLI67sC0J +rHTqU621DPD0C95iq+7LUDm24tdUiwFuyfoj3r09Hnw19XueeRpi7yP1QSu9 +OOAM7e5wFDTCJ7sNjS1YMbBGWXb9whwjDBGJVw6IioIlYeeO1hgbo1v6lIqW +YwSoe5pUqfQYY8fM4Y5Dq8LBs3LP6TuHlmNf52qDSa9QqMrq2D0qZYK27jab +Vp4OhvEbs1M6pSboaLjbaXZrIOxSKRBMXW+KflHqfttG/GFU/ZJR8Ygpxs0W +a4mcPAj3cn+9n4hagY4GHjyFu/eBkwUbVyiaodRy98p2KS9YfCCyTLvaDN3H +sb1ksQfEznoZRteY4ePikSUsEQ/gjbekvtSZoXaIxLbLPB4wUDI3P6vJDD/u +cWYlfHKHcp7TyRLPzXBkk/HvWa47OF0O+2/ykxkyY1obAy3dIfl+kGGlMAeX +S0YbNQW5gZSQD7V+OwdPx82rlPzhDLmrTwSPOHJwb92d525dzqB/Inb1pZ0c +fKZ+WvdhpTNsGCFfdLlzMF8uK+5+tDOc6ZyY3uVDrxfvu5qg6gw/c0JXBZ/k +4DxZ6y8drjuhZ8Wl53kFHNykkR6k884J9gTkplsXcbA5A8RbG51gsuiu5yDJ +wWW1J06GUU4gQXRN6ZVwUCxTu0r2lBPYzmcoPKjm4PwnKkcZak5Q0ZG3+/kL +DraXVxj6+juCjcg9rcAuDjJmfFRVdzpCl1XTpOwrDo4u2w3DaxxhvPxblMs7 +Dmab3a28I+cIWtm6t74OcHAg6lGtcI0DVPSsDIz5zsHcab8G20IHsFm0BXRG +OCiQNJWenugAXpEBz45McNCw7V68334HGK8+kyrzk4Ml1nFXxrY6QPhM0q7y +GQ46FRzfGIkOIGaQr+n8h4Olc7uuaGg4QMaB8onZWQ4eF5sT8k7KAf4H9SyC +yQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06719694895486523}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06719694895486523}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9942510597938643`*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"44d84d58-adec-4db7-8a89-f7796c03c1bb"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", @@ -7094,15 +7127,795 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"30", ",", "0.007985"}], "}"}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, - 3.994082735079891*^9},ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-\ -5e6c7b4b5678"], + 3.994082735079891*^9}, + CellLabel->"In[96]:=",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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->{ + "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.051395}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994251060030795*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"075ccb8a-ee26-4b20-aa2c-43f2b3108239"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"cd9a8165-891b-9245-aca1-\ -3f60fcfd9a79"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4FX0UB3AhhbJmzeXeuZaykyVynVOJ0KZUKGuhRZLijQopUSQpu2xJ +idwZFZEQslSWJKFSaZNkyRYt3umveT7P75nl+c7vnDPD8ji42ZOXh4dHaA4P +z7/jZG9TnXJ0rrlGht12Ozaad2TIBq3sCoeMwsfa7mkMQKlWD9mueBA/tiGN +kaYFgZtuvuTryoHlP76vGE3lgPiQTPz0y2IYcxEuIVPXw9uKDQfHX9ZANH8G +40uKM1gqD7wZfdkOz0vGNN4kHoDpl8YJIy/7oHjwU1r9uRNQu/p67rOcMfhr +ZLRuKi4WFN6WffbQ/AMbyh4lrzuSCIt8XG/OW82H1CEL2R0GVyBez/L+hq3z +0dM8Qc9eNAe6k3WrR8UWIiOM/XOHyDWIzg1t5ZUTxziXc2m2fDdA5vKHs5eu +SOLfAB+J94k3IdLe2rx9UgqPOyYtLrhVCPJ3WuR550jjgcYkHsGSQiiStJ/S +E5ZGT81zH9wqC6Gz3YW8qCSNaYWHMv+2FIKy3RHCbq00ivZPd4wOF0LN+kyB +thRptPY22F+iewv+WE60NJvJoO6xtC3Ft27BYZNs16ZwWTSOPuqyLqEIbLJE +xm1jZHFcamAHN60IiHnHo1oSZNHzZ/nEgpwiaOvYRj2/IYtfHy74U1pUBNp+ +C/h6W2RxzvVHm5obiqA/77+8H/JyGFm5uW78ZxHsXLTh++LbcmhndfGbwXYu +LDt2/2RGhRwG/eF7P7CTC0J9S6RZ9XKY3rhjX5oHF8q4fKDaLYcinRLLBw9w +Qdq2LE53Vg6F17rcX3eaC20nlQ3W2MqjRr+PhSDJBYvhmWDfD/L4/ZD1x9I5 +JAStvaz+cFAeeVqnnHX4SSjK1uqRnJTH1s2nVuQKkCBr72ZSNn8xTmwwJ84I +kzB479EUn/ZijNpfk6EuRcKl8LgjKUcXY36AqdOkGgl9Uqq+dQsV0EilSjfF +lgSZg1UMGRkFXHtO1eTBehLWNTo072UqYHe14vXejSSUBEdrii5TwJoqlTty +9iScezsy4OiggEUxfgl+O0nQz7/vPZyjgD1PVsZm+5Bw0szOXX45A13tlSzF +o0lY65Lxw3gVAysrEq8JnidBJOzbqa3rGLh/9Pb031gS0msj8uLcGAjJT8Pe +xZNwz6b8m8BZBqasYYuHppIw4sAOHOtmYGvefX/1fBJKg/3miX9kYF2slumP +mySEpD9I1h5ioGKJ20xJIQkL3m2/v5dXEaOf6noZkySoecfwvFNXxO11t8ck +S0lwCZg49/SYInoI8muY1ZGgkrRKYSBCEQsFn+U8f/Qvvwu35sUpYrmJs+ye +BhKCfy9tW5WriPqK4n8jH5OQcMpFquypIgZ9v/HgahsJTy82ZF5jKGH72aMu +tq9JMC1KuRNSpYTDbUt6nEdJsHjZ8meoUQkL8nl+h/0gYQMPv5VruxJubWad +yx4jYddm3274pIQ7/G4P9kyQYHmMFRo2l4kfdFxfaM+Q4Kc0eXWlBhO7Nxqd +3cFLwcTtuMZpHSZWKPqnb+WjIHitxnfKgImmpxYQ6/kpiDjkZkSYM3Hf3akI +AwEKUmsfN/LaMXGZJH/FR0EK6rwzv9cGMvG6eQvniRgF1r9NJI4fY+L8T5tu +pItT0BLXYWQQxsRaZl/0fgkKussEw3LPMvGH2GjVnEUUDAkfkYhIZ2Jwmmq/ +qAwFh7NEjDnZTLRODFVrpv3TIH/HxDUmvq/+70OkLAV8Lr25nlwmdkzJPp+Q +o0CWXGtsWcPEml0CGbcVKLhi8WHH33omfrU0a93JoIDoPhFW8oSJ+wfqw/gU +KdDivd2k+oKJoxLVXtZKFKyyZ+yc189E8783bEtZFPj8HA1rXMjCy6Jenxer +UmB6yEv6swQL3WLCZW/Qnj/QU8Any8Lffda79dQouPaqttOcYKHNqUO2K5ZQ +0FuZoHnXiIW1SUH7NNUpKDQWqmlfwcK3yWbHs2kHkyHbR5CF71uGCiU1KJDO +8Q7XsGVhj+mzA8O0N0aYdGW7srBj6bmw01oUKP69daBqNwszqQfpfbQHAwm+ +N3tZOM/V/g1Hm4KoPcLaskdYKC56uOUb7W3vQ2sNg1iY1OEWZq5DgbLTuMOW +EBaetzjhGEu72vbNqdgoFk6mSZ1W0aUgts5OrvA8C92F/3T60N7JqS9qimeh +ucHAFor2tDa3m/8KCw9m3mnR06Og8Tr7IJHDQi8lvpYDtBOZyfx4nYWKz01m +8mjrS5zUOUax8KuszWsxfQp4oifqkktYWBmbemkl7Ra+fU4l9+k8/lYHH6Sd +frx3+Hk1C7XSguNTae+f2Bwx+ojOwyriVQ1tU98GedEnLPyRmrmtn/b8LytI +zTYWtr+K4hdeRkGnK7nG5gULi3jnfFanndul/Mq7h4Uy9xp/WdH2t0vxi3jL +wkD7bEsP2vh4ocDVj3Qeb9c1BNEWWR2eVv2VhXxisSGxtN/cn9TtHaLzt1ly +IIt2ocH++l9jLPyQ8/YSl3bwrbc75KZZ6N11dOw+7bWq9qNGf1kY6lAW84i2 +dGbjGXs+AnPMvN2e0v4ow1Hwn0+gho31wTbaxXEUdWEhgS9GVcuf0Q4TVLW6 +JUGgzsbGlf/WN4anvn4sQ3vJpMC/8xV/ifj3KxB4fTBI6N/1Bw+fmidAEFh9 +l7H+3/3LB6fS2WoEhqwpbC2iHeXpo79Sk8BVAqPxmbS39b5rcNEjEITuJZ2n +rbx9q/NxIwJ5hVt6j9L+0dr0I2UFgd/28Ox1p1291jyqFAnMV2cY/8sv9mEx +48UaAst//7D+l+9OU7XbP2wIHNa1yxGiPa0h1qu1lcB95l9Ua+n3M3lF/uQy +JwIfPvGWSqc9LqqibOJKYOvUe09/2kNjJvss9hLI3ftOR4b2N0+LhTa+dF71 +4zc/0fun/+UGcuNhAhOGiWiKdt/9XZNOJwhcvXLsxErab7V8U9zCCQzVUI+f +S/t15lEzr0gCH+3KFWmg92vnqfPhhy4SaJUav3oV7ce2pSJR1wjcpPnothy9 +/xsePKTO3ySwOeoks4mulzqdp/aXuATyPBj+FUC7UvJ9akYZgXm32LyNdL0V +vxJSu9tM5/u902O9JgXc9VKPy9sJ3GMvvLOfrtfCKqUD1S8J9OI//TiMdt5V +g9tP3hOoOJggdJOu99T9LtA3QaDu6FXtXro/JL3Z0/dlhsBd712+7qZ9eePh +iO+zBDJCJZlf6X4SuyzqyU9BNqpntfAP0P0m/Be1XVSRjRNCPrXNyhSEHqiY +WcRm4wXztgCkffxt/RX5JWxsCJtbQLIpCKx99UFFn43dNQ7ZZwm6nqLn+plZ +srHzy8QLBpOCPX9EJVfZsjE/Vb/0ON3/vA7Kl1htYiP1cDnRTfdHty06vzc7 +sXG3kVrKObp/2i92jNrry8a7knbsNnkKzAoKsxIT2fg1NcnvM92/XzELMtek +sZGxJ6xfg3ZwYn7GeCYbHVQK1x6UpKD0ZF765nw2ir6urhum54G+Q1aySAXt +sezqlyIULJ17Oe7MezZetT3hazGf7i/B8RcMP7Pxl/BY7Z559PONxMV+HGCj +wcNrC6Pp+ZP76nzMqnE28gc8DWui5xOzODLqr4AyJgYG/9KaQ9ef67GwQE1l +rHtjOZQwTcLdjqBQFT1lfCnt/yHlJwn2NkdDOgyVcere0u60KRLiDQOO64My +6pk6N6XQ83LhgoNHh+yUcW50VfsJet7yl3n4ef2njGPidSZf+kkYlbBx21aj +jOYhgwMWnSR0+RBt+xqU0bs+q2m4g4Tq+hkIfUpfn3zik/ychLjgAqUbncrI +a0Tyf6Dnu27fgrfTA8roMzOW5PyEBF+q1fmKpArO8l82/lpFwsDGrTs+7lbB +i7PP6t2vk9Cer/Xk514V/JRaAQ3XSCjnE1ix8CC97sHIVM8l4WxpibxRkAqG +LE2S+pZFwhIl2Z7I8yooy+mY3Ux/73gP9TholKigQRn3QVUMCR9j3Lb5z1PF +kYXBFxb50fcf0CR0F6ji4JyAuw6+JExZTX//LqaKhzyrVdLo7y8hvviIvfKq +6Fs50C+/l37+oNo7blqq6BQ+T1LAg4QTnqqSG7eo4qXx6proLSRImw+2amSq +YnNw8y8nQxKsh/+z/mSkhplqP7cH9XNBQU/xzHwzNVyyxupL9wcuDPnX1Wis +VMNtZpy/Rm+5cHlSzMzfVg2Fft5++vkFF3r/5GvPuqphe/WENqOWC/4LXkvK +nVXD+vg24ks6F1KXYu+6V2po8S02h2cDFwZ3zT98J3QJnrsjsvVZXhH9/yLD +G1mzFIsFYnSWmd8CiWbVWHJYHRP6MoM7mwtAIYq7ychIEyO7tkSsUL4JyRom +YpLeWrh5EJZ2RNyAx/IrDccuamPSjkWJaz7ngalCTZxOpw4GHK4Y+6J0DUT4 +co64h+viTDDTzyn4KiieVDJzVNXD1BvaKu/LskFQZWfJ5gY9bC0/NLpANAu0 +OXLc/5z1sctH4bo56wr490rU2vAsw4Kgj5buC1JheCxmq3XyMvQOLI67sC0J +rHTqU621DPD0C95iq+7LUDm24tdUiwFuyfoj3r09Hnw19XueeRpi7yP1QSu9 +OOAM7e5wFDTCJ7sNjS1YMbBGWXb9whwjDBGJVw6IioIlYeeO1hgbo1v6lIqW +YwSoe5pUqfQYY8fM4Y5Dq8LBs3LP6TuHlmNf52qDSa9QqMrq2D0qZYK27jab +Vp4OhvEbs1M6pSboaLjbaXZrIOxSKRBMXW+KflHqfttG/GFU/ZJR8Ygpxs0W +a4mcPAj3cn+9n4hagY4GHjyFu/eBkwUbVyiaodRy98p2KS9YfCCyTLvaDN3H +sb1ksQfEznoZRteY4ePikSUsEQ/gjbekvtSZoXaIxLbLPB4wUDI3P6vJDD/u +cWYlfHKHcp7TyRLPzXBkk/HvWa47OF0O+2/ykxkyY1obAy3dIfl+kGGlMAeX +S0YbNQW5gZSQD7V+OwdPx82rlPzhDLmrTwSPOHJwb92d525dzqB/Inb1pZ0c +fKZ+WvdhpTNsGCFfdLlzMF8uK+5+tDOc6ZyY3uVDrxfvu5qg6gw/c0JXBZ/k +4DxZ6y8drjuhZ8Wl53kFHNykkR6k884J9gTkplsXcbA5A8RbG51gsuiu5yDJ +wWW1J06GUU4gQXRN6ZVwUCxTu0r2lBPYzmcoPKjm4PwnKkcZak5Q0ZG3+/kL +DraXVxj6+juCjcg9rcAuDjJmfFRVdzpCl1XTpOwrDo4u2w3DaxxhvPxblMs7 +Dmab3a28I+cIWtm6t74OcHAg6lGtcI0DVPSsDIz5zsHcab8G20IHsFm0BXRG +OCiQNJWenugAXpEBz45McNCw7V68334HGK8+kyrzk4Ml1nFXxrY6QPhM0q7y +GQ46FRzfGIkOIGaQr+n8h4Olc7uuaGg4QMaB8onZWQ4eF5sT8k7KAf4H9SyC +yQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4FX0UB3AhhbJmzeXeuZaykyVynVOJ0KZUKGuhRZLijQopUSQpu2xJ +idwZFZEQslSWJKFSaZNkyRYt3umveT7P75nl+c7vnDPD8ji42ZOXh4dHaA4P +z7/jZG9TnXJ0rrlGht12Ozaad2TIBq3sCoeMwsfa7mkMQKlWD9mueBA/tiGN +kaYFgZtuvuTryoHlP76vGE3lgPiQTPz0y2IYcxEuIVPXw9uKDQfHX9ZANH8G +40uKM1gqD7wZfdkOz0vGNN4kHoDpl8YJIy/7oHjwU1r9uRNQu/p67rOcMfhr +ZLRuKi4WFN6WffbQ/AMbyh4lrzuSCIt8XG/OW82H1CEL2R0GVyBez/L+hq3z +0dM8Qc9eNAe6k3WrR8UWIiOM/XOHyDWIzg1t5ZUTxziXc2m2fDdA5vKHs5eu +SOLfAB+J94k3IdLe2rx9UgqPOyYtLrhVCPJ3WuR550jjgcYkHsGSQiiStJ/S +E5ZGT81zH9wqC6Gz3YW8qCSNaYWHMv+2FIKy3RHCbq00ivZPd4wOF0LN+kyB +thRptPY22F+iewv+WE60NJvJoO6xtC3Ft27BYZNs16ZwWTSOPuqyLqEIbLJE +xm1jZHFcamAHN60IiHnHo1oSZNHzZ/nEgpwiaOvYRj2/IYtfHy74U1pUBNp+ +C/h6W2RxzvVHm5obiqA/77+8H/JyGFm5uW78ZxHsXLTh++LbcmhndfGbwXYu +LDt2/2RGhRwG/eF7P7CTC0J9S6RZ9XKY3rhjX5oHF8q4fKDaLYcinRLLBw9w +Qdq2LE53Vg6F17rcX3eaC20nlQ3W2MqjRr+PhSDJBYvhmWDfD/L4/ZD1x9I5 +JAStvaz+cFAeeVqnnHX4SSjK1uqRnJTH1s2nVuQKkCBr72ZSNn8xTmwwJ84I +kzB479EUn/ZijNpfk6EuRcKl8LgjKUcXY36AqdOkGgl9Uqq+dQsV0EilSjfF +lgSZg1UMGRkFXHtO1eTBehLWNTo072UqYHe14vXejSSUBEdrii5TwJoqlTty +9iScezsy4OiggEUxfgl+O0nQz7/vPZyjgD1PVsZm+5Bw0szOXX45A13tlSzF +o0lY65Lxw3gVAysrEq8JnidBJOzbqa3rGLh/9Pb031gS0msj8uLcGAjJT8Pe +xZNwz6b8m8BZBqasYYuHppIw4sAOHOtmYGvefX/1fBJKg/3miX9kYF2slumP +mySEpD9I1h5ioGKJ20xJIQkL3m2/v5dXEaOf6noZkySoecfwvFNXxO11t8ck +S0lwCZg49/SYInoI8muY1ZGgkrRKYSBCEQsFn+U8f/Qvvwu35sUpYrmJs+ye +BhKCfy9tW5WriPqK4n8jH5OQcMpFquypIgZ9v/HgahsJTy82ZF5jKGH72aMu +tq9JMC1KuRNSpYTDbUt6nEdJsHjZ8meoUQkL8nl+h/0gYQMPv5VruxJubWad +yx4jYddm3274pIQ7/G4P9kyQYHmMFRo2l4kfdFxfaM+Q4Kc0eXWlBhO7Nxqd +3cFLwcTtuMZpHSZWKPqnb+WjIHitxnfKgImmpxYQ6/kpiDjkZkSYM3Hf3akI +AwEKUmsfN/LaMXGZJH/FR0EK6rwzv9cGMvG6eQvniRgF1r9NJI4fY+L8T5tu +pItT0BLXYWQQxsRaZl/0fgkKussEw3LPMvGH2GjVnEUUDAkfkYhIZ2Jwmmq/ +qAwFh7NEjDnZTLRODFVrpv3TIH/HxDUmvq/+70OkLAV8Lr25nlwmdkzJPp+Q +o0CWXGtsWcPEml0CGbcVKLhi8WHH33omfrU0a93JoIDoPhFW8oSJ+wfqw/gU +KdDivd2k+oKJoxLVXtZKFKyyZ+yc189E8783bEtZFPj8HA1rXMjCy6Jenxer +UmB6yEv6swQL3WLCZW/Qnj/QU8Any8Lffda79dQouPaqttOcYKHNqUO2K5ZQ +0FuZoHnXiIW1SUH7NNUpKDQWqmlfwcK3yWbHs2kHkyHbR5CF71uGCiU1KJDO +8Q7XsGVhj+mzA8O0N0aYdGW7srBj6bmw01oUKP69daBqNwszqQfpfbQHAwm+ +N3tZOM/V/g1Hm4KoPcLaskdYKC56uOUb7W3vQ2sNg1iY1OEWZq5DgbLTuMOW +EBaetzjhGEu72vbNqdgoFk6mSZ1W0aUgts5OrvA8C92F/3T60N7JqS9qimeh +ucHAFor2tDa3m/8KCw9m3mnR06Og8Tr7IJHDQi8lvpYDtBOZyfx4nYWKz01m +8mjrS5zUOUax8KuszWsxfQp4oifqkktYWBmbemkl7Ra+fU4l9+k8/lYHH6Sd +frx3+Hk1C7XSguNTae+f2Bwx+ojOwyriVQ1tU98GedEnLPyRmrmtn/b8LytI +zTYWtr+K4hdeRkGnK7nG5gULi3jnfFanndul/Mq7h4Uy9xp/WdH2t0vxi3jL +wkD7bEsP2vh4ocDVj3Qeb9c1BNEWWR2eVv2VhXxisSGxtN/cn9TtHaLzt1ly +IIt2ocH++l9jLPyQ8/YSl3bwrbc75KZZ6N11dOw+7bWq9qNGf1kY6lAW84i2 +dGbjGXs+AnPMvN2e0v4ow1Hwn0+gho31wTbaxXEUdWEhgS9GVcuf0Q4TVLW6 +JUGgzsbGlf/WN4anvn4sQ3vJpMC/8xV/ifj3KxB4fTBI6N/1Bw+fmidAEFh9 +l7H+3/3LB6fS2WoEhqwpbC2iHeXpo79Sk8BVAqPxmbS39b5rcNEjEITuJZ2n +rbx9q/NxIwJ5hVt6j9L+0dr0I2UFgd/28Ox1p1291jyqFAnMV2cY/8sv9mEx +48UaAst//7D+l+9OU7XbP2wIHNa1yxGiPa0h1qu1lcB95l9Ua+n3M3lF/uQy +JwIfPvGWSqc9LqqibOJKYOvUe09/2kNjJvss9hLI3ftOR4b2N0+LhTa+dF71 +4zc/0fun/+UGcuNhAhOGiWiKdt/9XZNOJwhcvXLsxErab7V8U9zCCQzVUI+f +S/t15lEzr0gCH+3KFWmg92vnqfPhhy4SaJUav3oV7ce2pSJR1wjcpPnothy9 +/xsePKTO3ySwOeoks4mulzqdp/aXuATyPBj+FUC7UvJ9akYZgXm32LyNdL0V +vxJSu9tM5/u902O9JgXc9VKPy9sJ3GMvvLOfrtfCKqUD1S8J9OI//TiMdt5V +g9tP3hOoOJggdJOu99T9LtA3QaDu6FXtXro/JL3Z0/dlhsBd712+7qZ9eePh +iO+zBDJCJZlf6X4SuyzqyU9BNqpntfAP0P0m/Be1XVSRjRNCPrXNyhSEHqiY +WcRm4wXztgCkffxt/RX5JWxsCJtbQLIpCKx99UFFn43dNQ7ZZwm6nqLn+plZ +srHzy8QLBpOCPX9EJVfZsjE/Vb/0ON3/vA7Kl1htYiP1cDnRTfdHty06vzc7 +sXG3kVrKObp/2i92jNrry8a7knbsNnkKzAoKsxIT2fg1NcnvM92/XzELMtek +sZGxJ6xfg3ZwYn7GeCYbHVQK1x6UpKD0ZF765nw2ir6urhum54G+Q1aySAXt +sezqlyIULJ17Oe7MezZetT3hazGf7i/B8RcMP7Pxl/BY7Z559PONxMV+HGCj +wcNrC6Pp+ZP76nzMqnE28gc8DWui5xOzODLqr4AyJgYG/9KaQ9ef67GwQE1l +rHtjOZQwTcLdjqBQFT1lfCnt/yHlJwn2NkdDOgyVcere0u60KRLiDQOO64My +6pk6N6XQ83LhgoNHh+yUcW50VfsJet7yl3n4ef2njGPidSZf+kkYlbBx21aj +jOYhgwMWnSR0+RBt+xqU0bs+q2m4g4Tq+hkIfUpfn3zik/ychLjgAqUbncrI +a0Tyf6Dnu27fgrfTA8roMzOW5PyEBF+q1fmKpArO8l82/lpFwsDGrTs+7lbB +i7PP6t2vk9Cer/Xk514V/JRaAQ3XSCjnE1ix8CC97sHIVM8l4WxpibxRkAqG +LE2S+pZFwhIl2Z7I8yooy+mY3Ux/73gP9TholKigQRn3QVUMCR9j3Lb5z1PF +kYXBFxb50fcf0CR0F6ji4JyAuw6+JExZTX//LqaKhzyrVdLo7y8hvviIvfKq +6Fs50C+/l37+oNo7blqq6BQ+T1LAg4QTnqqSG7eo4qXx6proLSRImw+2amSq +YnNw8y8nQxKsh/+z/mSkhplqP7cH9XNBQU/xzHwzNVyyxupL9wcuDPnX1Wis +VMNtZpy/Rm+5cHlSzMzfVg2Fft5++vkFF3r/5GvPuqphe/WENqOWC/4LXkvK +nVXD+vg24ks6F1KXYu+6V2po8S02h2cDFwZ3zT98J3QJnrsjsvVZXhH9/yLD +G1mzFIsFYnSWmd8CiWbVWHJYHRP6MoM7mwtAIYq7ychIEyO7tkSsUL4JyRom +YpLeWrh5EJZ2RNyAx/IrDccuamPSjkWJaz7ngalCTZxOpw4GHK4Y+6J0DUT4 +co64h+viTDDTzyn4KiieVDJzVNXD1BvaKu/LskFQZWfJ5gY9bC0/NLpANAu0 +OXLc/5z1sctH4bo56wr490rU2vAsw4Kgj5buC1JheCxmq3XyMvQOLI67sC0J +rHTqU621DPD0C95iq+7LUDm24tdUiwFuyfoj3r09Hnw19XueeRpi7yP1QSu9 +OOAM7e5wFDTCJ7sNjS1YMbBGWXb9whwjDBGJVw6IioIlYeeO1hgbo1v6lIqW +YwSoe5pUqfQYY8fM4Y5Dq8LBs3LP6TuHlmNf52qDSa9QqMrq2D0qZYK27jab +Vp4OhvEbs1M6pSboaLjbaXZrIOxSKRBMXW+KflHqfttG/GFU/ZJR8Ygpxs0W +a4mcPAj3cn+9n4hagY4GHjyFu/eBkwUbVyiaodRy98p2KS9YfCCyTLvaDN3H +sb1ksQfEznoZRteY4ePikSUsEQ/gjbekvtSZoXaIxLbLPB4wUDI3P6vJDD/u +cWYlfHKHcp7TyRLPzXBkk/HvWa47OF0O+2/ykxkyY1obAy3dIfl+kGGlMAeX +S0YbNQW5gZSQD7V+OwdPx82rlPzhDLmrTwSPOHJwb92d525dzqB/Inb1pZ0c +fKZ+WvdhpTNsGCFfdLlzMF8uK+5+tDOc6ZyY3uVDrxfvu5qg6gw/c0JXBZ/k +4DxZ6y8drjuhZ8Wl53kFHNykkR6k884J9gTkplsXcbA5A8RbG51gsuiu5yDJ +wWW1J06GUU4gQXRN6ZVwUCxTu0r2lBPYzmcoPKjm4PwnKkcZak5Q0ZG3+/kL +DraXVxj6+juCjcg9rcAuDjJmfFRVdzpCl1XTpOwrDo4u2w3DaxxhvPxblMs7 +Dmab3a28I+cIWtm6t74OcHAg6lGtcI0DVPSsDIz5zsHcab8G20IHsFm0BXRG +OCiQNJWenugAXpEBz45McNCw7V68334HGK8+kyrzk4Ml1nFXxrY6QPhM0q7y +GQ46FRzfGIkOIGaQr+n8h4Olc7uuaGg4QMaB8onZWQ4eF5sT8k7KAf4H9SyC +yQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06719694895486523}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06719694895486523}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4FX0UB3AhhbJmzeXeuZaykyVynVOJ0KZUKGuhRZLijQopUSQpu2xJ +idwZFZEQslSWJKFSaZNkyRYt3umveT7P75nl+c7vnDPD8ji42ZOXh4dHaA4P +z7/jZG9TnXJ0rrlGht12Ozaad2TIBq3sCoeMwsfa7mkMQKlWD9mueBA/tiGN +kaYFgZtuvuTryoHlP76vGE3lgPiQTPz0y2IYcxEuIVPXw9uKDQfHX9ZANH8G +40uKM1gqD7wZfdkOz0vGNN4kHoDpl8YJIy/7oHjwU1r9uRNQu/p67rOcMfhr +ZLRuKi4WFN6WffbQ/AMbyh4lrzuSCIt8XG/OW82H1CEL2R0GVyBez/L+hq3z +0dM8Qc9eNAe6k3WrR8UWIiOM/XOHyDWIzg1t5ZUTxziXc2m2fDdA5vKHs5eu +SOLfAB+J94k3IdLe2rx9UgqPOyYtLrhVCPJ3WuR550jjgcYkHsGSQiiStJ/S +E5ZGT81zH9wqC6Gz3YW8qCSNaYWHMv+2FIKy3RHCbq00ivZPd4wOF0LN+kyB +thRptPY22F+iewv+WE60NJvJoO6xtC3Ft27BYZNs16ZwWTSOPuqyLqEIbLJE +xm1jZHFcamAHN60IiHnHo1oSZNHzZ/nEgpwiaOvYRj2/IYtfHy74U1pUBNp+ +C/h6W2RxzvVHm5obiqA/77+8H/JyGFm5uW78ZxHsXLTh++LbcmhndfGbwXYu +LDt2/2RGhRwG/eF7P7CTC0J9S6RZ9XKY3rhjX5oHF8q4fKDaLYcinRLLBw9w +Qdq2LE53Vg6F17rcX3eaC20nlQ3W2MqjRr+PhSDJBYvhmWDfD/L4/ZD1x9I5 +JAStvaz+cFAeeVqnnHX4SSjK1uqRnJTH1s2nVuQKkCBr72ZSNn8xTmwwJ84I +kzB479EUn/ZijNpfk6EuRcKl8LgjKUcXY36AqdOkGgl9Uqq+dQsV0EilSjfF +lgSZg1UMGRkFXHtO1eTBehLWNTo072UqYHe14vXejSSUBEdrii5TwJoqlTty +9iScezsy4OiggEUxfgl+O0nQz7/vPZyjgD1PVsZm+5Bw0szOXX45A13tlSzF +o0lY65Lxw3gVAysrEq8JnidBJOzbqa3rGLh/9Pb031gS0msj8uLcGAjJT8Pe +xZNwz6b8m8BZBqasYYuHppIw4sAOHOtmYGvefX/1fBJKg/3miX9kYF2slumP +mySEpD9I1h5ioGKJ20xJIQkL3m2/v5dXEaOf6noZkySoecfwvFNXxO11t8ck +S0lwCZg49/SYInoI8muY1ZGgkrRKYSBCEQsFn+U8f/Qvvwu35sUpYrmJs+ye +BhKCfy9tW5WriPqK4n8jH5OQcMpFquypIgZ9v/HgahsJTy82ZF5jKGH72aMu +tq9JMC1KuRNSpYTDbUt6nEdJsHjZ8meoUQkL8nl+h/0gYQMPv5VruxJubWad +yx4jYddm3274pIQ7/G4P9kyQYHmMFRo2l4kfdFxfaM+Q4Kc0eXWlBhO7Nxqd +3cFLwcTtuMZpHSZWKPqnb+WjIHitxnfKgImmpxYQ6/kpiDjkZkSYM3Hf3akI +AwEKUmsfN/LaMXGZJH/FR0EK6rwzv9cGMvG6eQvniRgF1r9NJI4fY+L8T5tu +pItT0BLXYWQQxsRaZl/0fgkKussEw3LPMvGH2GjVnEUUDAkfkYhIZ2Jwmmq/ +qAwFh7NEjDnZTLRODFVrpv3TIH/HxDUmvq/+70OkLAV8Lr25nlwmdkzJPp+Q +o0CWXGtsWcPEml0CGbcVKLhi8WHH33omfrU0a93JoIDoPhFW8oSJ+wfqw/gU +KdDivd2k+oKJoxLVXtZKFKyyZ+yc189E8783bEtZFPj8HA1rXMjCy6Jenxer +UmB6yEv6swQL3WLCZW/Qnj/QU8Any8Lffda79dQouPaqttOcYKHNqUO2K5ZQ +0FuZoHnXiIW1SUH7NNUpKDQWqmlfwcK3yWbHs2kHkyHbR5CF71uGCiU1KJDO +8Q7XsGVhj+mzA8O0N0aYdGW7srBj6bmw01oUKP69daBqNwszqQfpfbQHAwm+ +N3tZOM/V/g1Hm4KoPcLaskdYKC56uOUb7W3vQ2sNg1iY1OEWZq5DgbLTuMOW +EBaetzjhGEu72vbNqdgoFk6mSZ1W0aUgts5OrvA8C92F/3T60N7JqS9qimeh +ucHAFor2tDa3m/8KCw9m3mnR06Og8Tr7IJHDQi8lvpYDtBOZyfx4nYWKz01m +8mjrS5zUOUax8KuszWsxfQp4oifqkktYWBmbemkl7Ra+fU4l9+k8/lYHH6Sd +frx3+Hk1C7XSguNTae+f2Bwx+ojOwyriVQ1tU98GedEnLPyRmrmtn/b8LytI +zTYWtr+K4hdeRkGnK7nG5gULi3jnfFanndul/Mq7h4Uy9xp/WdH2t0vxi3jL +wkD7bEsP2vh4ocDVj3Qeb9c1BNEWWR2eVv2VhXxisSGxtN/cn9TtHaLzt1ly +IIt2ocH++l9jLPyQ8/YSl3bwrbc75KZZ6N11dOw+7bWq9qNGf1kY6lAW84i2 +dGbjGXs+AnPMvN2e0v4ow1Hwn0+gho31wTbaxXEUdWEhgS9GVcuf0Q4TVLW6 +JUGgzsbGlf/WN4anvn4sQ3vJpMC/8xV/ifj3KxB4fTBI6N/1Bw+fmidAEFh9 +l7H+3/3LB6fS2WoEhqwpbC2iHeXpo79Sk8BVAqPxmbS39b5rcNEjEITuJZ2n +rbx9q/NxIwJ5hVt6j9L+0dr0I2UFgd/28Ox1p1291jyqFAnMV2cY/8sv9mEx +48UaAst//7D+l+9OU7XbP2wIHNa1yxGiPa0h1qu1lcB95l9Ua+n3M3lF/uQy +JwIfPvGWSqc9LqqibOJKYOvUe09/2kNjJvss9hLI3ftOR4b2N0+LhTa+dF71 +4zc/0fun/+UGcuNhAhOGiWiKdt/9XZNOJwhcvXLsxErab7V8U9zCCQzVUI+f +S/t15lEzr0gCH+3KFWmg92vnqfPhhy4SaJUav3oV7ce2pSJR1wjcpPnothy9 +/xsePKTO3ySwOeoks4mulzqdp/aXuATyPBj+FUC7UvJ9akYZgXm32LyNdL0V +vxJSu9tM5/u902O9JgXc9VKPy9sJ3GMvvLOfrtfCKqUD1S8J9OI//TiMdt5V +g9tP3hOoOJggdJOu99T9LtA3QaDu6FXtXro/JL3Z0/dlhsBd712+7qZ9eePh +iO+zBDJCJZlf6X4SuyzqyU9BNqpntfAP0P0m/Be1XVSRjRNCPrXNyhSEHqiY +WcRm4wXztgCkffxt/RX5JWxsCJtbQLIpCKx99UFFn43dNQ7ZZwm6nqLn+plZ +srHzy8QLBpOCPX9EJVfZsjE/Vb/0ON3/vA7Kl1htYiP1cDnRTfdHty06vzc7 +sXG3kVrKObp/2i92jNrry8a7knbsNnkKzAoKsxIT2fg1NcnvM92/XzELMtek +sZGxJ6xfg3ZwYn7GeCYbHVQK1x6UpKD0ZF765nw2ir6urhum54G+Q1aySAXt +sezqlyIULJ17Oe7MezZetT3hazGf7i/B8RcMP7Pxl/BY7Z559PONxMV+HGCj +wcNrC6Pp+ZP76nzMqnE28gc8DWui5xOzODLqr4AyJgYG/9KaQ9ef67GwQE1l +rHtjOZQwTcLdjqBQFT1lfCnt/yHlJwn2NkdDOgyVcere0u60KRLiDQOO64My +6pk6N6XQ83LhgoNHh+yUcW50VfsJet7yl3n4ef2njGPidSZf+kkYlbBx21aj +jOYhgwMWnSR0+RBt+xqU0bs+q2m4g4Tq+hkIfUpfn3zik/ychLjgAqUbncrI +a0Tyf6Dnu27fgrfTA8roMzOW5PyEBF+q1fmKpArO8l82/lpFwsDGrTs+7lbB +i7PP6t2vk9Cer/Xk514V/JRaAQ3XSCjnE1ix8CC97sHIVM8l4WxpibxRkAqG +LE2S+pZFwhIl2Z7I8yooy+mY3Ux/73gP9TholKigQRn3QVUMCR9j3Lb5z1PF +kYXBFxb50fcf0CR0F6ji4JyAuw6+JExZTX//LqaKhzyrVdLo7y8hvviIvfKq +6Fs50C+/l37+oNo7blqq6BQ+T1LAg4QTnqqSG7eo4qXx6proLSRImw+2amSq +YnNw8y8nQxKsh/+z/mSkhplqP7cH9XNBQU/xzHwzNVyyxupL9wcuDPnX1Wis +VMNtZpy/Rm+5cHlSzMzfVg2Fft5++vkFF3r/5GvPuqphe/WENqOWC/4LXkvK +nVXD+vg24ks6F1KXYu+6V2po8S02h2cDFwZ3zT98J3QJnrsjsvVZXhH9/yLD +G1mzFIsFYnSWmd8CiWbVWHJYHRP6MoM7mwtAIYq7ychIEyO7tkSsUL4JyRom +YpLeWrh5EJZ2RNyAx/IrDccuamPSjkWJaz7ngalCTZxOpw4GHK4Y+6J0DUT4 +co64h+viTDDTzyn4KiieVDJzVNXD1BvaKu/LskFQZWfJ5gY9bC0/NLpANAu0 +OXLc/5z1sctH4bo56wr490rU2vAsw4Kgj5buC1JheCxmq3XyMvQOLI67sC0J +rHTqU621DPD0C95iq+7LUDm24tdUiwFuyfoj3r09Hnw19XueeRpi7yP1QSu9 +OOAM7e5wFDTCJ7sNjS1YMbBGWXb9whwjDBGJVw6IioIlYeeO1hgbo1v6lIqW +YwSoe5pUqfQYY8fM4Y5Dq8LBs3LP6TuHlmNf52qDSa9QqMrq2D0qZYK27jab +Vp4OhvEbs1M6pSboaLjbaXZrIOxSKRBMXW+KflHqfttG/GFU/ZJR8Ygpxs0W +a4mcPAj3cn+9n4hagY4GHjyFu/eBkwUbVyiaodRy98p2KS9YfCCyTLvaDN3H +sb1ksQfEznoZRteY4ePikSUsEQ/gjbekvtSZoXaIxLbLPB4wUDI3P6vJDD/u +cWYlfHKHcp7TyRLPzXBkk/HvWa47OF0O+2/ykxkyY1obAy3dIfl+kGGlMAeX +S0YbNQW5gZSQD7V+OwdPx82rlPzhDLmrTwSPOHJwb92d525dzqB/Inb1pZ0c +fKZ+WvdhpTNsGCFfdLlzMF8uK+5+tDOc6ZyY3uVDrxfvu5qg6gw/c0JXBZ/k +4DxZ6y8drjuhZ8Wl53kFHNykkR6k884J9gTkplsXcbA5A8RbG51gsuiu5yDJ +wWW1J06GUU4gQXRN6ZVwUCxTu0r2lBPYzmcoPKjm4PwnKkcZak5Q0ZG3+/kL +DraXVxj6+juCjcg9rcAuDjJmfFRVdzpCl1XTpOwrDo4u2w3DaxxhvPxblMs7 +Dmab3a28I+cIWtm6t74OcHAg6lGtcI0DVPSsDIz5zsHcab8G20IHsFm0BXRG +OCiQNJWenugAXpEBz45McNCw7V68334HGK8+kyrzk4Ml1nFXxrY6QPhM0q7y +GQ46FRzfGIkOIGaQr+n8h4Olc7uuaGg4QMaB8onZWQ4eF5sT8k7KAf4H9SyC +yQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06719694895486523}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06719694895486523}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9942510600736217`*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"080e9f45-33ba-4582-abc6-5056a2520d2b"] +}, Open ]], Cell[CellGroupData[{ @@ -7111,11 +7924,12 @@ Cell[BoxData[ FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.991850610344879*^9},ExpressionUUID->"c213919d-017d-a948-8e46-\ -fe19384187c3"], + CellChangeTimes->{3.991850610344879*^9}, + CellLabel->"In[98]:=",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], -Cell[BoxData["9.786582751762749`"], "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +Cell[BoxData["10.668351491194592`"], "Output", + CellChangeTimes->{3.994251060124502*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"5b43a254-4aae-4dd3-8db8-974311ec98e5"] }, Open ]], Cell[CellGroupData[{ @@ -7171,447 +7985,502 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991850612616415*^9},ExpressionUUID->"3764dfb4-9656-4349-b0a1-\ -77ebd1a3e048"], + CellChangeTimes->{3.991850612616415*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"12d513db-13cc-bc48-b9a3-22b17d8aeb9a"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.473592969321407`*^-260\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 99, 13, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942510602601233`*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"c5897281-7471-4da9-8854-8a2d314efa91"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"05911c33-7605-8b49-a7ba-7fc8c8f30741"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.151844295331309`*^-269\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 99, 14, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994251060269271*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"496473ae-aff0-4676-bab9-77137059c143"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"2192e048-2875-9f4a-aa0c-9cbbd447dfe1"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.464546017391152`*^-279\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 99, 15, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994251060278103*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"b406f811-ebf9-4658-b77c-5d6cce8460d1"], Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"b6990f5f-359f-464b-ac16-44cdfeae3c8e"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.031746 0.0147151 12.2218 [ -[.18254 .00222 -3 -9 ] -[.18254 .00222 3 0 ] -[.34127 .00222 -6 -9 ] -[.34127 .00222 6 0 ] -[.5 .00222 -6 -9 ] -[.5 .00222 6 0 ] -[.65873 .00222 -6 -9 ] -[.65873 .00222 6 0 ] -[.81746 .00222 -6 -9 ] -[.81746 .00222 6 0 ] -[.97619 .00222 -6 -9 ] -[.97619 .00222 6 0 ] -[.01131 .13693 -24 -4.5 ] -[.01131 .13693 0 4.5 ] -[.01131 .25915 -24 -4.5 ] -[.01131 .25915 0 4.5 ] -[.01131 .38137 -24 -4.5 ] -[.01131 .38137 0 4.5 ] -[.01131 .50359 -24 -4.5 ] -[.01131 .50359 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.18254 .01472 m -.18254 .02097 L -s -[(5)] .18254 .00222 0 1 Mshowa -.34127 .01472 m -.34127 .02097 L -s -[(10)] .34127 .00222 0 1 Mshowa -.5 .01472 m -.5 .02097 L -s -[(15)] .5 .00222 0 1 Mshowa -.65873 .01472 m -.65873 .02097 L -s -[(20)] .65873 .00222 0 1 Mshowa -.81746 .01472 m -.81746 .02097 L -s -[(25)] .81746 .00222 0 1 Mshowa -.97619 .01472 m -.97619 .02097 L -s -[(30)] .97619 .00222 0 1 Mshowa -.125 Mabswid -.05556 .01472 m -.05556 .01847 L -s -.0873 .01472 m -.0873 .01847 L -s -.11905 .01472 m -.11905 .01847 L -s -.15079 .01472 m -.15079 .01847 L -s -.21429 .01472 m -.21429 .01847 L -s -.24603 .01472 m -.24603 .01847 L -s -.27778 .01472 m -.27778 .01847 L -s -.30952 .01472 m -.30952 .01847 L -s -.37302 .01472 m -.37302 .01847 L -s -.40476 .01472 m -.40476 .01847 L -s -.43651 .01472 m -.43651 .01847 L -s -.46825 .01472 m -.46825 .01847 L -s -.53175 .01472 m -.53175 .01847 L -s -.56349 .01472 m -.56349 .01847 L -s -.59524 .01472 m -.59524 .01847 L -s -.62698 .01472 m -.62698 .01847 L -s -.69048 .01472 m -.69048 .01847 L -s -.72222 .01472 m -.72222 .01847 L -s -.75397 .01472 m -.75397 .01847 L -s -.78571 .01472 m -.78571 .01847 L -s -.84921 .01472 m -.84921 .01847 L -s -.88095 .01472 m -.88095 .01847 L -s -.9127 .01472 m -.9127 .01847 L -s -.94444 .01472 m -.94444 .01847 L -s -.25 Mabswid -0 .01472 m -1 .01472 L -s -.02381 .13693 m -.03006 .13693 L -s -[(0.01)] .01131 .13693 1 0 Mshowa -.02381 .25915 m -.03006 .25915 L -s -[(0.02)] .01131 .25915 1 0 Mshowa -.02381 .38137 m -.03006 .38137 L -s -[(0.03)] .01131 .38137 1 0 Mshowa -.02381 .50359 m -.03006 .50359 L -s -[(0.04)] .01131 .50359 1 0 Mshowa -.125 Mabswid -.02381 .03916 m -.02756 .03916 L -s -.02381 .0636 m -.02756 .0636 L -s -.02381 .08805 m -.02756 .08805 L -s -.02381 .11249 m -.02756 .11249 L -s -.02381 .16138 m -.02756 .16138 L -s -.02381 .18582 m -.02756 .18582 L -s -.02381 .21026 m -.02756 .21026 L -s -.02381 .23471 m -.02756 .23471 L -s -.02381 .2836 m -.02756 .2836 L -s -.02381 .30804 m -.02756 .30804 L -s -.02381 .33248 m -.02756 .33248 L -s -.02381 .35693 m -.02756 .35693 L -s -.02381 .40581 m -.02756 .40581 L -s -.02381 .43026 m -.02756 .43026 L -s -.02381 .4547 m -.02756 .4547 L -s -.02381 .47914 m -.02756 .47914 L -s -.02381 .52803 m -.02756 .52803 L -s -.02381 .55248 m -.02756 .55248 L -s -.02381 .57692 m -.02756 .57692 L -s -.02381 .60136 m -.02756 .60136 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .01472 m -.06244 .10806 L -.10458 .20681 L -.14415 .29388 L -.18221 .37017 L -.22272 .44131 L -.26171 .49847 L -.30316 .54591 L -.32392 .56431 L -.34309 .5781 L -.36173 .58858 L -.37125 .59283 L -.3815 .59658 L -.3917 .59947 L -.40103 .60141 L -.40552 .6021 L -.40789 .6024 L -.41042 .60267 L -.41284 .60289 L -.41504 .60305 L -.41725 .60317 L -.41834 .60322 L -.41933 .60325 L -.4205 .60328 L -.42174 .60331 L -.4229 .60332 L -.42399 .60332 L -.42526 .60331 L -.42644 .60329 L -.42773 .60326 L -.4291 .60321 L -.43163 .60308 L -.434 .60293 L -.43941 .60241 L -.44405 .60181 L -.4483 .60112 L -.45788 .59913 L -.46769 .59645 L -.47681 .59341 L -.49751 .58461 L -.53655 .56157 L -.57805 .52937 L -.61803 .49268 L -.6565 .45377 L -.69742 .4102 L -.73682 .36757 L -.77471 .32713 L -.81505 .2857 L -.85387 .24819 L -.89515 .21147 L -Mistroke -.93491 .17954 L -.97316 .15219 L -.97619 .15016 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJzdXHd8VUUWDqm7ZJWqCCgl9I5ACklIBJRqkKYroMGIgQhiIiAoP0AQpUtb -aYoEREBlVQQUUMD2c2VVQIoUEWnSi0hVUGbfmTdzzr2POXeS+OJvd//Iy7y5 -33fOd8/MnTtn7tyXljEoK7N/xqBHe2VUaj0gIyfr0V4DK7XKHuCrCisSElJk -v++vVqWQcF9ZhIS4PqaI38UB+PCVhbgmDsBH/svZ8l+U2PPdHtG3b19Ru3Zt -UaNGDdGgQQMxaNAg8esvv4YkSUyEOHTwkGjSpIn8A1yJEiVCQuFbSJiYMH4C -oCQyVOGnTpkqbdWsWVPavvb7tZBYq62iTlteuuKkqTCRmZkpSpcurYT4P6Oj -o8VvV39TCJsck41opw2bFGUnSuz4dofExMfHi0aNGkns6GdHi6tXrvoU8Doi -3K3x/Z7vxcoVK8XlS5elax9djBgxQnTr1i0kRUn+ZvM3omvXrsoofEaKNavX -iLZt24qLFy5KTr9+/cT4ceMTDJTwPLjSET544KBo2LChWP7uchXNMJGQkIAR -DvV2H8uaiXaakX9ecnSQ9/2wT+zetRs5534+J4Ock5OjTouVouL8pFIEakAV -fEv2iGvr1q1lvdNjTEyMKa5FDaZ1AE4cPyFiY2NF7rxcFbMwMWWy7yL+7XdX -HBl3cXk0E2WQoKVe+fWKqFKliuPCYN0FxMrXAmL9uvVsrMJVHbRm+fLlZbfW -nSU5OVns2rlLfovzCJrTh8b9dOYn2UsmTZyk2sPuI9bAjTb40FGZ8eIM0a5d -O0cj2H2EucNTr1492TFt4Tl54qRsGDIRJtLT08XaD9daw+P0Ea/qoLGaNm0q -pk+bnm8fTq7JR5xSDqNVqVKlRIsWLaBDheXRjYpQjupmEydMFHu/3yu7GHTV -USNHiQ4dOpjGM30iIAQEOj1kZWWJZe8sY4MV4e0uUVF+PvuzPNd1a9ehaZu7 -eAM33Nud7mEXzl8Q48aOgwE/z2cXED+437Rq1Ur+r1WrloT6WtArfqdOnjK2 -kE+4NX6MuyRF+fLfX8q7nPOSsblLMHDDvN3p5kpNTcUrL6/uXPHzX7xqiAtp -XoABTN1yPILm9pGqBuOSJUuCLRxebfZ1h3Dw8JSd9pupuoEDB4rFixbnafDS -PjxCk6qCoaKtTzNStVObNm3E5k2b8WxgDKlatWqcF8vtQJ/fxq83ytu2U/fp -U6evuz0xHmPzZcYcuj59+oj3Vr6XF3cRfMRSVBeA/piYmCi6dOki5ufOh/MP -0WH7YM0HsnufP3de3oNh4vfCpBdirVRT7PzzzHLlykmzMNrAja5Tp04wCuGI -5OkyLybcrhMUb8s3W+TM6sB+mUKIb7d/K6pVqwZ8m+uAGMIEuG7duvDnazn4 -DJMB0B71UPPpJ5/KuzMEJUoFbNrUadIr3Jr69+8vO3q8AR+ZR1+xSvmmjZvk -fKhs2bJy8g7zKp/tCA+3cd7U8DwqaKJcLH1zqWjWrJm8wUD8fYOlOguzexVU -LsGrp9xDzqhdyc93/zeOx/hrfYfXw0cRr1ppKxQq/mawGp2fOrLClm74oz7+ -jLr/U/VUig5s+juxdJfBbEtD3Z15xLU0OpWYln+yUwdIrgZdd0GFO48LDVlW -YIiGXQdxqw1F0DtOUITLjku1Eydt+W/EWpMf9HYgKNTgW37+00tbATl0Um/x -yDDO+lILh6x76AjnrL9ZCBxS5KE9grP+hoVD1p06JDCSs/k6bzPSbdPDexRn -fUkhcEiRh/a/cNYXWzhk3UPHXznriwqBQ4o8tBflrL8W2BOKum16eDfdO+Tn -wkLgkKLXeKRp7iE/X7VwyLqHDtN9W34usHDIuoeOGznr8wuBQ4qc2iWwGGcz -l7dZzG3Tw3txzvo8C4ese+gowVl/pRA4pEhp93r44h+zw2VKlpSUBGktPIjR -2QWsm0DWUb9+fZm9nTh+Qt1EIsTw4cPxeU3x4sVFnTp18NnP2Z/OoijTTack -d3Jz/ZL9Iya3ZI+qIamHZzJgZsMXG/Q61ZHDR2RedfjHw9LMksVLIPvTI3fH -jh3F9m3b5TfTeFvSHUUVbzUJUSvjOHVQK+MqJv468K+XVXTd2DFjZQPAN+fS -jV7BisijuFJc5F5GmbZlaj0awamoZQ2UNGzYMDF71uz8S6J4zUUhttVgLcTX -c3SPQSHzXpknxXgKkZNRNiIvoZB9P3gvq2ohFStWhGd3LiGvL3kdHiPlKyKl -7ZJsK5VaEvRjU2zg6su3JGoke2/RHVgLcSyCuXrLnNlz8iXkJi42c1zXmXLn -us5gcIJv+oYHq+ewpBJ4TX23+ztHXYRchFfNquUZpzU3uWOkG8s/FjELWOpe -FymOHjkqO7JeBFv02iKRlpamR8tZM2fJRWxYr4ELj9NwMxce/zWJ52Ra9ymm -jsGzLOg3IAfi6LsOcciENb0xz48RZcqUAQ2sBArDRPiQCCbdNHAm4NcbeE4Z -7lTHIvtGC5s8jkGVxRwcWXEL52c0mihh5JD1Z/FASV5RWc7PM2istIVNHolz -U545w1HlzTynHKdyKBq7xcImj0+jx7I8pzzncTAaK29hk0fi3MpzbuU8DkC9 -txWA/QT6rhjYX251qyRkpUDkbZz1x5FTmdd2m9tPfzQbw3MqcB77orGqFjZ5 -JE41nlOR89gH2dULwM7Es61hYZPeTPxai+dU4jw+jOzaFjZ5JE4dnlOZ85iO -51g3sOdUdvtJx6/1A5ExnPUeyGnAa4tx+yFOQ55ThfN4P7JvLwD778huZGGT -XuI05jlVOY9dkB1rYZNH4sTxnGqcx47IjrewySNxEnhOdc5jGrKbBvac6m4/ -hEzk/dTg/LRDdpKFTR6Jk8xzanIeWyE7pQDsu5CdamGTXuLcwXNqcR5bINu/ -/SDYubqe0EMmDM59x0L0hkiYPeoMy7TMWst9oiS1hV9qoeToerHAZ0FOky+c -v4BT+9WrVnsKrs1FORWlt1TSCzeX1/sGIDWCtBNyPfC3c8dO2FtgWkGu7Q42 -Kb4TFQcrrdchXvjqQtkCPx760ZiJ1OHCmYzi7kJxwU71IesGLHRiSvUDokRC -WqGQYKX6uoPNfXmuaN68uYy6qeHqclFqiuJao7hgJf1aCGxpWPX+KvaKqOuO -F0lqY+1V+U3/tSRfSox7b0yS2If7cSiuresiDd5CgH9flNqRh3XZ2dliwfwF -+Rcci4LbKcFBWCiIEhkZGaJHjx7yioLD0L4wVJ85fcbYAekxd4Cq9n5VBV0w -0Bt3oINAg8IFU7lyZdG+fXvoHKalnfpcqBqhqLv9okxBre8+EeKk8ZwGnMcG -yO5gYZNHkzEPdkPOt2lIuMdhJwzn0uS7Dn7tzHu8nfNoml90stgh3ya2h4pG -nArTfLNLAeyYZspdLXbobEzse3l2Y06FKYe6z2KHVFAOdT/PacL5phy2m4VN -HonTnefEch5p/aJHYE+Ndfsh5AO8nzjOD61YPWhhk0fipPOceM4jrUz2tLDJ -I3Ee4jkJnEd6HpJhYZNH4jzMc5pyHulJZC8LmzwS5xGek8h5pOfHmYH9JdHt -h5C9A5FJnHV61t+H15bk9kOcLJ6TzHmkHRqPWtjkkTh9eU4zziPtq+lnYZNH -4jzGc1I4j6bdTh6+U9y+TWwPFamGumto8XELUYIInh3Yc+4wEK8iPMcIl4cI -9AQvobmh7hckDrAQJYjgA3l4C0PdRSQOshAliOBP8nDTJsJzSBzsJxbKykOU -fF0BcgSohzfU4BkYpC0bv95ofDxImxtJ4RC/wkJccIiSO8TBotIhtm7ZKho3 -bgyzdOO0m/aUnsXSU0pn4a4uaDWQDObOy1Wnd71C07bT06j1adQarHUFreHY -0WOyN8AudVPkaMXsjOEoxTBYSwrh6hPe6KtQoYJ8bW3WzFm0qmAK1ElDHYUs -WIsMWhq8bLFt6za5yd8XdtN1QSubJmlDUVqwlhh0awKve/furp7n9NzaUHcM -tQ6z9rL8rjNoXZBdV69e3VuX1EBqhruuz2AsLGg1kNPD6MapaYMajmBphGtU -+0OrBpGiZ8+e8i0hGBChN/Xu3Rse85t6UltD3SFU9Yxf1R9dNTh+7Lh8lQpu -CYAZPHgwaGP1SN+kYqRfhelm1s5Qtx+JoyxECSL4szy8vaFuLxJHW4gSRPDn -HHCJvhsP7cHS87zNNEPdLiSOsRAlaLfhqIfHDoa6HYY6D98d0PcOLI3j4fcY -6rYhcbyFKEEEn8DD6dnZFixN5OGdDHWbkDjJQpQggr/Awzsb6r5C4uTADtQZ -DxFoCm+9i6FuAxKnWogSRPBpPLyroe5zJE7nifca6j5D4j8sRAki+Is8/D5D -3cdInGEhStAnhqMeHul59EeGox4e7zfUrTXUzbSYkL7XYml2YFfqhoc+wNIc -3mZ3Q90qJL7EE3sY6t5D4ssWogQRfC4PfwBBK7DksWn6QUPdMiTOsxAliOC5 -PDwdQW9jaT4P72moW4pEj639PRFEcOf+fol+CA+9gaWFgaAMg/XFCPd43yED -QQT3eGHjYbdNIprhvQx1C5Do8fpLL3f4ZMnjXZxH3K1K0TLDMw11c5Go3mwK -cpatj8FPJ+h9+IAZOnSocR5Ku6FImXqjq1Cyaz3fg123+/fJeZdRV2/3+CFL -6t23oGfTkc7sVv59/NHH8NMK8udxfJRixYrJt7WHDBliFEub2GZj6S0UW/B0 -OsqZTss/SNCgOS9fuownfl0oZQ5LmmZg6R3UFKxUWgcQdmeotEj+KU2UUmcZ -wjYdhS1DYcFKpLWwSxcvyROF31YJFBYgp6+hbipKfBclBiuh1r85BhvBIa10 -yDMuhNFGS1K13NrL8ptOa1VwqcfFxcnfsfFS1Q+1TMbSCteFGoy0Wq+LQJIL -v5rj0YyPoYxJWFrpGtEKmFlHKg2wgJmSkiL/GA390TPte/f/gkiB82g97qxY -vkK64tqDNg2Pw9L7fteme1Q2gsZgaRUPzzHU0ab51RYiJcqytMYBl2jaJD0S -Sx8GggbgoRFYWss7HoigYVhax8MHIYh2v6/n4U8iaAgK/IiH0151In7Cw4cY -6uj0P7UQQ93R+oyHP4Ug6g6f8/CnEUT9/F88nAJJY8UXga1KjdMH6zbwNocj -nCYwX/Jw6ik04/uKhz+DIJq3fs3DqbPSjH4TDx+FoB54qpt5OL1pQrnbFh7+ -HILuReJWHv48wjsjfDsPp5dqaI1lBw+nIehuJO4MbPrxWGqDpd28zYlok1bA -9/DwSWiTnpHt5eGTEZ6CpR94+FQEJWJpPw+fjiC5MixnRgd5+IsIvx1Lh3n4 -TATVRetHefhsBNXA0nEeLtNx+SMdFbF0iofLNDkSqm7G0tnAppdZaFEoRWLp -Am9TpmY3QtUVHiQ//0t+mMh2XJYtv74bUuQ/PkeLDQ==\ -\>", "ImageResolution" -> 96., "LightDark" -> \ -"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-3.233775858153751, \ --0.0043827503402644324, 0.11832856225129938, \ -0.0003073572253865838}},ExpressionUUID->"899e43aa-c372-6647-a3e4-\ -4952f308ab17"], + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 99, 16, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994251060287488*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"b5bfff97-fe6a-4f71-a6c3-e6238a1d2910"], Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-\ -baecb9a57d9b"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13lYTP8XB/C0ENq0781MC9K+LzOdk2hfEUlaJIokSalQoUSLNpVQaZEk +zR3Vt1UpUSmKooWQ0K9NtFr7XX/N83rufea5c+ac9/lc6r6j23zY2djYpFaw +sf37XBhuf6QQX2ii2sSX5K642aQ3RzzMtP8sDOqdumNcRAEUeb5PvD8Vsr46 +hIgUaUCI453XHP35kJhmUfqrEGHdtFjqj9cs8L+sy95b6Ajv6u2Pzr1uBpvG +J1TnQk8wVxh/++31C+BR8S30yw+EH6/1r8y8HgH9M309rdlR0GJWXNiTPwu6 +A5b5oJwC0u9qPu9T+QP2sYtcG9WvgrC/x51VZhxo5M859MAlD1I1zevsnblR +/04sk025EAayNJq+CfDi9lclORaBxRBfGPmcXWIdrhsrmzmcdwfE0j9eTLsh +hKotcfJprmUgvqny/NItIQyqrMmZ8y4DyebYyL1MISz4605zPFIGsjMbT6xv +EcIVl6xN5iPLQNE20LNuTAiDb3wrXiwsA23OP3oftYUxm+2k2ZupMnAIFh3V +6hDGVJsmHpmIe3Bhh5XJiwUR3BDNw29xrhwkK55Jsq8QxRPrFtk648vhntCO +Rc21oqinKnbbKr0cXr1wZ6bIiaKEW7SgelE5KDgF05wsRfHUBVfMf1wOzXa5 +K7uvimIEm+AtYU4m/DGff9ZFF0MF5TeXBjczIflWeOkfczHUs83LLjZngsJK +tjhVJ/J6d9uPQGsm2LauMU30EcOYCnrRkhMTss0o922TxFDnfUXJkCcTDNAm +8+k7MeS6mKQ7c5oJxw1verSfFcerVRNc2yqZYJ3HN2eTII73gjlnjlYzgbbq +VNyzK+JYvvzxxqU6JnT37iRe3hbHNsO7W6oeMkEtkIdj+Jk4VjTE13/uYsLY +rdBb3yUl8OYHHeu7n5jgJmw/JXVfAl++//NfuyAB2hF10Tn1ErhitHZ1lAgB +a0Y2iFIfSyBXS6+stjgBNeUcoDQggeNezmmXZQgQtalJ1liWwEQ5k2LqBgK6 +oxV0ttpI4n6+lPg7dAK2fP0ZHvBREq33mq5w9CYgzDJd+eGkJD6eLN2e5kPA +vZuqg0ILkmg8tinx5UECxHd4GtZwS6FTo0iVtT8Bk9WtixxqUihLOzAqdIKA +tLPJwVdPSmFGQuKbdbEEjIgoBTzilUavhg+VDUUEiB1tlBETk8a+n/12OcUE +2La5dPlRpPH27PuXESUEVIXHq/BrS+Obl/RS1TICLr2bGd/tIo2VgdyX/SsI +0CqpO/g1Xxq31Lzx39VMQDTdyUvSQAav/s+64eMQAZbuOd/1N8vgxcpUiXNv +CeCLmjjnbCuDDO3JUdl3BFxvibmV7CmDMl9aO2xGCKi2rp1YeVEG67i/vg8f +I2DGRT5kdkAGpd3yStTmCPgvPHDVulEZpBAl2lfmCThzvSFLbVoGj9/l1V1a +IIDn/a46P3ZZ/N4hm3f/BwHrDyawvVeWRYMS7fVsywS4n5i/1Bkhixl1qhEz +3CxQzNwsPR4ji0TKQKPsGhZZv8tlq5Jl0SvELMZqLQvCf2/s3lwoi0EC3enp +vCy4cs5dpKZTFhXLz/SzCbKgM+VJbpGMHE6cMT6nJcmCtPvCmi3r5fCoRg9l +oxQLXPu8mt9ryqGvULaVtDQLxsR/j0qZy+GLrRdgSYYFHHkayqkBcmjw2bk7 +lsoCo3tXK840yqFTwTbF5fUs2PL62Z/pNjnkkjIRYm1ggT0bp4XHCzm8uvsx +976NLPDeFjAAn+Sw9bMsb40yC8wjqJFRXBSsOqOXYKbKgqf89QUGayioJmvV +NkzasXBn2wwfBTVPfRUIVWPBnq74dV7iFNSVjO7IUWdBoNxCgekmCj5sLZzp +0GTB/P3kth/qFIzlYRTYa5H1sNw0RehQsPP85YPPSccc89SjmVBw4ybODW3a +LMhu6Whjd6LgcFd9doYuC+RcfKZqnSmozcGaYtdjQeHk8rrjrhR8E1K1y590 +uYjuno/eFOwyKzqup8+CRwdzp1pCKFhxyGa42IAFVr8NBU9FUFA59vPv36Sf +Jffq6USR998UMnAwZMFAzeqowosU5M/+vnKCtLt9YaFbEgWdr/Be1zFiweiI +SbtwGgWpXQmOEaSn1wYLxlyn4GRPiiSbMQuO5/HpM25SMMoyVtOE9JJOyZ75 +Igq+s6s/FEaaw3240Kecgqafe8y/kI77frJdpoKCArmKExJ0FvBdEJruq6ag +g2ZBhRVpcaalvnkzBfcWr63NI31jy8c9fx9T0EI2cPEJadrA6aiqpxT8lfbN +bZL07SPiRQHdFAyJsp/gZbBAlf1+u1IfBVetMi9QIc3KsJseHiDrOZ8ZY0na +YNOYYOYwBeNbOdO8SDc0ntV3+EjBrCy7zlDSm3fIuK0ao+AnIx2teNJPxv6L +apykoCc1ovUaadvT24pCv1HwhN+n2BLSL9ZNtasvUDCzXy+0gvSuWxemv/wk ++2dIO7Oe9BsjmlDeMgWnY29+eUh63/N6fRdOKo6lb/V7RPqL9y43gdVU9Dvw +Wfqf/Ze+RbXxUvHzChuOf/cbHTsg+lmQisVmb07XkuYeHyzlEKfioc/Z5UzS +r/Y5mFJlqLg0H3u1gHTRUMsrExoVeTxv0tNIB+8w8HdbT8Ws2Ymrkf9+X9fd +FeEqVOT19GP5khYwp2ZmalLxmo7MBXvSww+uqFTqUTHm3VoJTdJ39dc0vzCm +omeZkZ8A6XDmmV0zSEWPtvKT/+pvuXF2ktecikn6QZatpEXzD57dZENF2vDF +gWzSo5JvxKwcqfgwfFnlCGlWmmPZAWfSt96Y0Uk7xBj23/Sgouv2pcZusj9k +/5YdadxPxYSt9uszSE+G0Dje+lGx97bRTpd//eO7Vk08mIohY3z8L8l+3Pkh +skU3jIpN08LX4kkruM65bD9Dxbjqqe9Iusnm7bmkOCpW8+xdk0/2d9IjJ4m7 +iVQc8RLvtCPtxnh8rz2Viml8M3sXyPn4oVY+wHmDilNcFgsM0lqC0eoRBBXt +/7CLF5PzxhY//yirioreI2vCDEk/4zjkWlVHxT77/7HayHk9PL8t5lsrFaVX +Z1S+1SHntV9h6OAgFe9r9YiMkPMe5HQ1MOYdFU2mS9z2kMYO3pUFo1T8oGoe +00Pmxdu6BY3haSqmhNlHVWiQ9cxti93BQcOdL48wnMm8GRVjSAdx0/DYKxVW +JZlHrGSCuMxLwzvFXeuESDuczX7TIUbDqg3bMh5tIuvl469lqkLDIYfhXnYy +735sEhhWdaYh/6CS2hSNBQs3JKO1XWm43lbwPoX0HL+igqEHDT81JDk5kXk6 +PWt4aIsfDQ+sePSuRI4FI3XeC66nyetNXF4GZB532PzHF1dEfv+xjUtPhcl5 +aXhIJN6h4QRncm6PEJlH6p070spp2Ji5ENRL5v0DoQ/ZOTU0FFE8kd8jQD7/ +0Jr1lV00fLpNe+sdHjL/DrvDyDwN12hEFfRxsCDzre/Il580TDg0kXWPnQXp +DsdjppZp2Ffk2XV+Bfl/asc9XVotj611sLSB3E9nfxG7+GXl8cazrlDHnwQc +jucKpJvLY5jme3WZGQLopXfzMjLk8X24p2rVAAFDlNLcrdfk8Xe1s8L2fgLC +M0py5nLl0XT0Rv/UK3JfRt+6vq1EHkvnLU9L95L72iUvi69eHlNC1va6PyNg +I1d6cuwHebQWPpZ3ktzfoh4RUSEqCig00snPTe7/yt6wSEVNBfwduqLanTwf +7LA+eaZXVwF1gA73yfNDqu6JU1qggMcG+b865xPAy3P05LSTAjq/cvgefY0A +zpp9gQdCFbBfXynsRCIB3wStPXc2K6CmnYDSi6ME9PvTug89UUBFbn65hiME +ND3+CZGdCui6INFUdJiA5PBSuduvFLBA4efyUfK8ozHC8+7HuAJaBp/OGXMn +IIB4vveGkCK+53RPP2xHwLiD857R/YqY4i7k1Uyer0YTPHcGrVLCqfGTJpwD +TAgYV6Fp8Chhj5m7c8orJixa/JiaElBCne8/CeleJqzhSI3xk1TCXAGqqdpz +JmiEtVR4qiohm92VfnorE077KAk5bFfCviyRJW6CCaImk8835Sqhx520vT4X +mGD1NdTqk956tFyMFAlSZ8KkN/fxisgNmOHZ9edn3T3yfUKM/ULzRsw8sVwm +s3QXBLuUkphflVFHkXnVxKAUpOPKHfX0VDAj1LhXE0sga5OhgNBBVdQXXXuD +zasYOiRNdWdT1LDhzFqx3EtFYCTdnKz+Sh07B5VTOdIKgI8jP9jrrAaWHCv8 +Zt5+E2Sj5ei7lTTxmnhyqUZ/LqxWdKva9kQTJ6qLm1Pcr4MaQ6I8dK8WHs73 +UdRxugpBw4It1mzaeMM23WWPcQZ8nU1wtsrSRs0QAfmG1DSwUH+cbaWqg2cf +DxzoU02BB7PGvxaf6WDGvs2jCgWJEKCiNdjjo4uO2c7qGaUXgTG9v3f3aj08 +cFbzfnhvDGxVELfjzddDTXsRp9ris7Ah6tLJZn19fN8vIy/1PBKUfQwbFQf1 +8aR46pH/ZYaDzwPf8xXHDHA8YcOFKx4h0JjXu/+biCFyxqnfuhgYBHO3lxfV +/zPENdfMW7IdA8BbsXR1tp0RNhs9rQ+X9oPwVvdDSo5G+LbE5mPlKj9I9hF8 +ytpmhFEzHx4sf/eF+qKwhKe7jNDFXftEY7svCCtZ8v/xMsIadqm/U6G+8Fjp +k7BniBHa/qqNYXt9EJQ3yFGUco0wRNJq1aPcA/BNOU2PNWOEbXZteutc90N/ +J24VmjXC6d1Z4iNW+6EpYHp78LwR7pGlSz8w3A9JLKtjej+NsGeyJTBTYj8o +G7HdreUwRgmP/KJnA96wz+oItUXUGOdmt/yycvOG3oMWPL10Y0wxXZtn7bcP +qgt/fZiPM8bFc9pRKvmeoGcWvGgdb4yzjX7Xh9I9ofLDJE9eojE+ik7jSr/g +CSzZYX3rVGPk/NVaQjniCXezmhJzrhnjw2nV4tsGnpCXEGNocc8Yt0d0dL/N +94CLwfwpWS+NsWZz0qynkDu4bpFHY1k6BiyF+w6t3wN/ern5Wih0jOQIbyzl +3wN5PtND1vJ0dEwVWXV50RU+x9aEum6g42XVffpJT1whqN2hPEyLjsZhhm1H +fF3hkv0p2WpzOq6+HC1VXLYbal36fuscpeNi5E358q0uIHXkQo1aEx0Tx7Tn +LpU4Q9LyAd34ZjqyOgsjeDOdgT3VnPjyiI7VDzz+3jjvDONVXCV57XSk+Xq9 +GPNwhlq281mCL+motlLrgYKYM7imR4UufKJjcfDKZdW4HZBVF6b7YC0DJ1Qr +Wq2Ct4PIGn/CbhcDLZ6b7ukOcoJCs9PhM7sZqM27U7Pdywm0TieZpbkxcPNs +RX+3oxPYzzD7+r0YaF955yiPuhPEvpr/4e3PwIBXKknak46wlB+5OTyagY/8 +emUN/Bxh0Djt5a1SBp7hot7MG7IH3xOF163uMXDaaF5XpsEeFu5V+kwyGTg2 +GNlekWMPgrT+Rc0qBq6453hNZ5892HDLSDc0MdAhIIMVPG4H9b239r/sY+B2 +jkCpT8u2YM1XrRrSz8DWpISN3B9tod+ifUF8iIFSQSsWtjy2hbnaiTj39wzU +tQuMWJtoC6o3Ncr+N87Azg8WIh1StlA/aBqSMMVA6R3136uXbcBaeDuozzDw +evKd700fbeDAhRM9wfMM3PL8LY/0XRuYa4rNFlti4NuJ+2xHk23g7M9M79qf +DPzGptQxGGwDAjolKnv/MHB4Tnynx24byDlSO7+8zEDq31Mpvxk28H8F4OVm + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13lYTP8XB/C0ENq0781MC9K+LzOdk2hfEUlaJIokSalQoUSLNpVQaZEk +zR3Vt1UpUSmKooWQ0K9NtFr7XX/N83rufea5c+ac9/lc6r6j23zY2djYpFaw +sf37XBhuf6QQX2ii2sSX5K642aQ3RzzMtP8sDOqdumNcRAEUeb5PvD8Vsr46 +hIgUaUCI453XHP35kJhmUfqrEGHdtFjqj9cs8L+sy95b6Ajv6u2Pzr1uBpvG +J1TnQk8wVxh/++31C+BR8S30yw+EH6/1r8y8HgH9M309rdlR0GJWXNiTPwu6 +A5b5oJwC0u9qPu9T+QP2sYtcG9WvgrC/x51VZhxo5M859MAlD1I1zevsnblR +/04sk025EAayNJq+CfDi9lclORaBxRBfGPmcXWIdrhsrmzmcdwfE0j9eTLsh +hKotcfJprmUgvqny/NItIQyqrMmZ8y4DyebYyL1MISz4605zPFIGsjMbT6xv +EcIVl6xN5iPLQNE20LNuTAiDb3wrXiwsA23OP3oftYUxm+2k2ZupMnAIFh3V +6hDGVJsmHpmIe3Bhh5XJiwUR3BDNw29xrhwkK55Jsq8QxRPrFtk648vhntCO +Rc21oqinKnbbKr0cXr1wZ6bIiaKEW7SgelE5KDgF05wsRfHUBVfMf1wOzXa5 +K7uvimIEm+AtYU4m/DGff9ZFF0MF5TeXBjczIflWeOkfczHUs83LLjZngsJK +tjhVJ/J6d9uPQGsm2LauMU30EcOYCnrRkhMTss0o922TxFDnfUXJkCcTDNAm +8+k7MeS6mKQ7c5oJxw1verSfFcerVRNc2yqZYJ3HN2eTII73gjlnjlYzgbbq +VNyzK+JYvvzxxqU6JnT37iRe3hbHNsO7W6oeMkEtkIdj+Jk4VjTE13/uYsLY +rdBb3yUl8OYHHeu7n5jgJmw/JXVfAl++//NfuyAB2hF10Tn1ErhitHZ1lAgB +a0Y2iFIfSyBXS6+stjgBNeUcoDQggeNezmmXZQgQtalJ1liWwEQ5k2LqBgK6 +oxV0ttpI4n6+lPg7dAK2fP0ZHvBREq33mq5w9CYgzDJd+eGkJD6eLN2e5kPA +vZuqg0ILkmg8tinx5UECxHd4GtZwS6FTo0iVtT8Bk9WtixxqUihLOzAqdIKA +tLPJwVdPSmFGQuKbdbEEjIgoBTzilUavhg+VDUUEiB1tlBETk8a+n/12OcUE +2La5dPlRpPH27PuXESUEVIXHq/BrS+Obl/RS1TICLr2bGd/tIo2VgdyX/SsI +0CqpO/g1Xxq31Lzx39VMQDTdyUvSQAav/s+64eMQAZbuOd/1N8vgxcpUiXNv +CeCLmjjnbCuDDO3JUdl3BFxvibmV7CmDMl9aO2xGCKi2rp1YeVEG67i/vg8f +I2DGRT5kdkAGpd3yStTmCPgvPHDVulEZpBAl2lfmCThzvSFLbVoGj9/l1V1a +IIDn/a46P3ZZ/N4hm3f/BwHrDyawvVeWRYMS7fVsywS4n5i/1Bkhixl1qhEz +3CxQzNwsPR4ji0TKQKPsGhZZv8tlq5Jl0SvELMZqLQvCf2/s3lwoi0EC3enp +vCy4cs5dpKZTFhXLz/SzCbKgM+VJbpGMHE6cMT6nJcmCtPvCmi3r5fCoRg9l +oxQLXPu8mt9ryqGvULaVtDQLxsR/j0qZy+GLrRdgSYYFHHkayqkBcmjw2bk7 +lsoCo3tXK840yqFTwTbF5fUs2PL62Z/pNjnkkjIRYm1ggT0bp4XHCzm8uvsx +976NLPDeFjAAn+Sw9bMsb40yC8wjqJFRXBSsOqOXYKbKgqf89QUGayioJmvV +NkzasXBn2wwfBTVPfRUIVWPBnq74dV7iFNSVjO7IUWdBoNxCgekmCj5sLZzp +0GTB/P3kth/qFIzlYRTYa5H1sNw0RehQsPP85YPPSccc89SjmVBw4ybODW3a +LMhu6Whjd6LgcFd9doYuC+RcfKZqnSmozcGaYtdjQeHk8rrjrhR8E1K1y590 +uYjuno/eFOwyKzqup8+CRwdzp1pCKFhxyGa42IAFVr8NBU9FUFA59vPv36Sf +Jffq6USR998UMnAwZMFAzeqowosU5M/+vnKCtLt9YaFbEgWdr/Be1zFiweiI +SbtwGgWpXQmOEaSn1wYLxlyn4GRPiiSbMQuO5/HpM25SMMoyVtOE9JJOyZ75 +Igq+s6s/FEaaw3240Kecgqafe8y/kI77frJdpoKCArmKExJ0FvBdEJruq6ag +g2ZBhRVpcaalvnkzBfcWr63NI31jy8c9fx9T0EI2cPEJadrA6aiqpxT8lfbN +bZL07SPiRQHdFAyJsp/gZbBAlf1+u1IfBVetMi9QIc3KsJseHiDrOZ8ZY0na +YNOYYOYwBeNbOdO8SDc0ntV3+EjBrCy7zlDSm3fIuK0ao+AnIx2teNJPxv6L +apykoCc1ovUaadvT24pCv1HwhN+n2BLSL9ZNtasvUDCzXy+0gvSuWxemv/wk ++2dIO7Oe9BsjmlDeMgWnY29+eUh63/N6fRdOKo6lb/V7RPqL9y43gdVU9Dvw +Wfqf/Ze+RbXxUvHzChuOf/cbHTsg+lmQisVmb07XkuYeHyzlEKfioc/Z5UzS +r/Y5mFJlqLg0H3u1gHTRUMsrExoVeTxv0tNIB+8w8HdbT8Ws2Ymrkf9+X9fd +FeEqVOT19GP5khYwp2ZmalLxmo7MBXvSww+uqFTqUTHm3VoJTdJ39dc0vzCm +omeZkZ8A6XDmmV0zSEWPtvKT/+pvuXF2ktecikn6QZatpEXzD57dZENF2vDF +gWzSo5JvxKwcqfgwfFnlCGlWmmPZAWfSt96Y0Uk7xBj23/Sgouv2pcZusj9k +/5YdadxPxYSt9uszSE+G0Dje+lGx97bRTpd//eO7Vk08mIohY3z8L8l+3Pkh +skU3jIpN08LX4kkruM65bD9Dxbjqqe9Iusnm7bmkOCpW8+xdk0/2d9IjJ4m7 +iVQc8RLvtCPtxnh8rz2Viml8M3sXyPn4oVY+wHmDilNcFgsM0lqC0eoRBBXt +/7CLF5PzxhY//yirioreI2vCDEk/4zjkWlVHxT77/7HayHk9PL8t5lsrFaVX +Z1S+1SHntV9h6OAgFe9r9YiMkPMe5HQ1MOYdFU2mS9z2kMYO3pUFo1T8oGoe +00Pmxdu6BY3haSqmhNlHVWiQ9cxti93BQcOdL48wnMm8GRVjSAdx0/DYKxVW +JZlHrGSCuMxLwzvFXeuESDuczX7TIUbDqg3bMh5tIuvl469lqkLDIYfhXnYy +735sEhhWdaYh/6CS2hSNBQs3JKO1XWm43lbwPoX0HL+igqEHDT81JDk5kXk6 +PWt4aIsfDQ+sePSuRI4FI3XeC66nyetNXF4GZB532PzHF1dEfv+xjUtPhcl5 +aXhIJN6h4QRncm6PEJlH6p070spp2Ji5ENRL5v0DoQ/ZOTU0FFE8kd8jQD7/ +0Jr1lV00fLpNe+sdHjL/DrvDyDwN12hEFfRxsCDzre/Il580TDg0kXWPnQXp +DsdjppZp2Ffk2XV+Bfl/asc9XVotj611sLSB3E9nfxG7+GXl8cazrlDHnwQc +jucKpJvLY5jme3WZGQLopXfzMjLk8X24p2rVAAFDlNLcrdfk8Xe1s8L2fgLC +M0py5nLl0XT0Rv/UK3JfRt+6vq1EHkvnLU9L95L72iUvi69eHlNC1va6PyNg +I1d6cuwHebQWPpZ3ktzfoh4RUSEqCig00snPTe7/yt6wSEVNBfwduqLanTwf +7LA+eaZXVwF1gA73yfNDqu6JU1qggMcG+b865xPAy3P05LSTAjq/cvgefY0A +zpp9gQdCFbBfXynsRCIB3wStPXc2K6CmnYDSi6ME9PvTug89UUBFbn65hiME +ND3+CZGdCui6INFUdJiA5PBSuduvFLBA4efyUfK8ozHC8+7HuAJaBp/OGXMn +IIB4vveGkCK+53RPP2xHwLiD857R/YqY4i7k1Uyer0YTPHcGrVLCqfGTJpwD +TAgYV6Fp8Chhj5m7c8orJixa/JiaElBCne8/CeleJqzhSI3xk1TCXAGqqdpz +JmiEtVR4qiohm92VfnorE077KAk5bFfCviyRJW6CCaImk8835Sqhx520vT4X +mGD1NdTqk956tFyMFAlSZ8KkN/fxisgNmOHZ9edn3T3yfUKM/ULzRsw8sVwm +s3QXBLuUkphflVFHkXnVxKAUpOPKHfX0VDAj1LhXE0sga5OhgNBBVdQXXXuD +zasYOiRNdWdT1LDhzFqx3EtFYCTdnKz+Sh07B5VTOdIKgI8jP9jrrAaWHCv8 +Zt5+E2Sj5ei7lTTxmnhyqUZ/LqxWdKva9kQTJ6qLm1Pcr4MaQ6I8dK8WHs73 +UdRxugpBw4It1mzaeMM23WWPcQZ8nU1wtsrSRs0QAfmG1DSwUH+cbaWqg2cf +DxzoU02BB7PGvxaf6WDGvs2jCgWJEKCiNdjjo4uO2c7qGaUXgTG9v3f3aj08 +cFbzfnhvDGxVELfjzddDTXsRp9ris7Ah6tLJZn19fN8vIy/1PBKUfQwbFQf1 +8aR46pH/ZYaDzwPf8xXHDHA8YcOFKx4h0JjXu/+biCFyxqnfuhgYBHO3lxfV +/zPENdfMW7IdA8BbsXR1tp0RNhs9rQ+X9oPwVvdDSo5G+LbE5mPlKj9I9hF8 +ytpmhFEzHx4sf/eF+qKwhKe7jNDFXftEY7svCCtZ8v/xMsIadqm/U6G+8Fjp +k7BniBHa/qqNYXt9EJQ3yFGUco0wRNJq1aPcA/BNOU2PNWOEbXZteutc90N/ +J24VmjXC6d1Z4iNW+6EpYHp78LwR7pGlSz8w3A9JLKtjej+NsGeyJTBTYj8o +G7HdreUwRgmP/KJnA96wz+oItUXUGOdmt/yycvOG3oMWPL10Y0wxXZtn7bcP +qgt/fZiPM8bFc9pRKvmeoGcWvGgdb4yzjX7Xh9I9ofLDJE9eojE+ik7jSr/g +CSzZYX3rVGPk/NVaQjniCXezmhJzrhnjw2nV4tsGnpCXEGNocc8Yt0d0dL/N +94CLwfwpWS+NsWZz0qynkDu4bpFHY1k6BiyF+w6t3wN/ern5Wih0jOQIbyzl +3wN5PtND1vJ0dEwVWXV50RU+x9aEum6g42XVffpJT1whqN2hPEyLjsZhhm1H +fF3hkv0p2WpzOq6+HC1VXLYbal36fuscpeNi5E358q0uIHXkQo1aEx0Tx7Tn +LpU4Q9LyAd34ZjqyOgsjeDOdgT3VnPjyiI7VDzz+3jjvDONVXCV57XSk+Xq9 +GPNwhlq281mCL+motlLrgYKYM7imR4UufKJjcfDKZdW4HZBVF6b7YC0DJ1Qr +Wq2Ct4PIGn/CbhcDLZ6b7ukOcoJCs9PhM7sZqM27U7Pdywm0TieZpbkxcPNs +RX+3oxPYzzD7+r0YaF955yiPuhPEvpr/4e3PwIBXKknak46wlB+5OTyagY/8 +emUN/Bxh0Djt5a1SBp7hot7MG7IH3xOF163uMXDaaF5XpsEeFu5V+kwyGTg2 +GNlekWMPgrT+Rc0qBq6453hNZ5892HDLSDc0MdAhIIMVPG4H9b239r/sY+B2 +jkCpT8u2YM1XrRrSz8DWpISN3B9tod+ifUF8iIFSQSsWtjy2hbnaiTj39wzU +tQuMWJtoC6o3Ncr+N87Azg8WIh1StlA/aBqSMMVA6R3136uXbcBaeDuozzDw +evKd700fbeDAhRM9wfMM3PL8LY/0XRuYa4rNFlti4NuJ+2xHk23g7M9M79qf +DPzGptQxGGwDAjolKnv/MHB4Tnynx24byDlSO7+8zEDq31Mpvxk28H8F4OVm + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07125499315369022}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07125499315369022}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13lYTP8XB/C0ENq0781MC9K+LzOdk2hfEUlaJIokSalQoUSLNpVQaZEk +zR3Vt1UpUSmKooWQ0K9NtFr7XX/N83rufea5c+ac9/lc6r6j23zY2djYpFaw +sf37XBhuf6QQX2ii2sSX5K642aQ3RzzMtP8sDOqdumNcRAEUeb5PvD8Vsr46 +hIgUaUCI453XHP35kJhmUfqrEGHdtFjqj9cs8L+sy95b6Ajv6u2Pzr1uBpvG +J1TnQk8wVxh/++31C+BR8S30yw+EH6/1r8y8HgH9M309rdlR0GJWXNiTPwu6 +A5b5oJwC0u9qPu9T+QP2sYtcG9WvgrC/x51VZhxo5M859MAlD1I1zevsnblR +/04sk025EAayNJq+CfDi9lclORaBxRBfGPmcXWIdrhsrmzmcdwfE0j9eTLsh +hKotcfJprmUgvqny/NItIQyqrMmZ8y4DyebYyL1MISz4605zPFIGsjMbT6xv +EcIVl6xN5iPLQNE20LNuTAiDb3wrXiwsA23OP3oftYUxm+2k2ZupMnAIFh3V +6hDGVJsmHpmIe3Bhh5XJiwUR3BDNw29xrhwkK55Jsq8QxRPrFtk648vhntCO +Rc21oqinKnbbKr0cXr1wZ6bIiaKEW7SgelE5KDgF05wsRfHUBVfMf1wOzXa5 +K7uvimIEm+AtYU4m/DGff9ZFF0MF5TeXBjczIflWeOkfczHUs83LLjZngsJK +tjhVJ/J6d9uPQGsm2LauMU30EcOYCnrRkhMTss0o922TxFDnfUXJkCcTDNAm +8+k7MeS6mKQ7c5oJxw1verSfFcerVRNc2yqZYJ3HN2eTII73gjlnjlYzgbbq +VNyzK+JYvvzxxqU6JnT37iRe3hbHNsO7W6oeMkEtkIdj+Jk4VjTE13/uYsLY +rdBb3yUl8OYHHeu7n5jgJmw/JXVfAl++//NfuyAB2hF10Tn1ErhitHZ1lAgB +a0Y2iFIfSyBXS6+stjgBNeUcoDQggeNezmmXZQgQtalJ1liWwEQ5k2LqBgK6 +oxV0ttpI4n6+lPg7dAK2fP0ZHvBREq33mq5w9CYgzDJd+eGkJD6eLN2e5kPA +vZuqg0ILkmg8tinx5UECxHd4GtZwS6FTo0iVtT8Bk9WtixxqUihLOzAqdIKA +tLPJwVdPSmFGQuKbdbEEjIgoBTzilUavhg+VDUUEiB1tlBETk8a+n/12OcUE +2La5dPlRpPH27PuXESUEVIXHq/BrS+Obl/RS1TICLr2bGd/tIo2VgdyX/SsI +0CqpO/g1Xxq31Lzx39VMQDTdyUvSQAav/s+64eMQAZbuOd/1N8vgxcpUiXNv +CeCLmjjnbCuDDO3JUdl3BFxvibmV7CmDMl9aO2xGCKi2rp1YeVEG67i/vg8f +I2DGRT5kdkAGpd3yStTmCPgvPHDVulEZpBAl2lfmCThzvSFLbVoGj9/l1V1a +IIDn/a46P3ZZ/N4hm3f/BwHrDyawvVeWRYMS7fVsywS4n5i/1Bkhixl1qhEz +3CxQzNwsPR4ji0TKQKPsGhZZv8tlq5Jl0SvELMZqLQvCf2/s3lwoi0EC3enp +vCy4cs5dpKZTFhXLz/SzCbKgM+VJbpGMHE6cMT6nJcmCtPvCmi3r5fCoRg9l +oxQLXPu8mt9ryqGvULaVtDQLxsR/j0qZy+GLrRdgSYYFHHkayqkBcmjw2bk7 +lsoCo3tXK840yqFTwTbF5fUs2PL62Z/pNjnkkjIRYm1ggT0bp4XHCzm8uvsx +976NLPDeFjAAn+Sw9bMsb40yC8wjqJFRXBSsOqOXYKbKgqf89QUGayioJmvV +NkzasXBn2wwfBTVPfRUIVWPBnq74dV7iFNSVjO7IUWdBoNxCgekmCj5sLZzp +0GTB/P3kth/qFIzlYRTYa5H1sNw0RehQsPP85YPPSccc89SjmVBw4ybODW3a +LMhu6Whjd6LgcFd9doYuC+RcfKZqnSmozcGaYtdjQeHk8rrjrhR8E1K1y590 +uYjuno/eFOwyKzqup8+CRwdzp1pCKFhxyGa42IAFVr8NBU9FUFA59vPv36Sf +Jffq6USR998UMnAwZMFAzeqowosU5M/+vnKCtLt9YaFbEgWdr/Be1zFiweiI +SbtwGgWpXQmOEaSn1wYLxlyn4GRPiiSbMQuO5/HpM25SMMoyVtOE9JJOyZ75 +Igq+s6s/FEaaw3240Kecgqafe8y/kI77frJdpoKCArmKExJ0FvBdEJruq6ag +g2ZBhRVpcaalvnkzBfcWr63NI31jy8c9fx9T0EI2cPEJadrA6aiqpxT8lfbN +bZL07SPiRQHdFAyJsp/gZbBAlf1+u1IfBVetMi9QIc3KsJseHiDrOZ8ZY0na +YNOYYOYwBeNbOdO8SDc0ntV3+EjBrCy7zlDSm3fIuK0ao+AnIx2teNJPxv6L +apykoCc1ovUaadvT24pCv1HwhN+n2BLSL9ZNtasvUDCzXy+0gvSuWxemv/wk ++2dIO7Oe9BsjmlDeMgWnY29+eUh63/N6fRdOKo6lb/V7RPqL9y43gdVU9Dvw +Wfqf/Ze+RbXxUvHzChuOf/cbHTsg+lmQisVmb07XkuYeHyzlEKfioc/Z5UzS +r/Y5mFJlqLg0H3u1gHTRUMsrExoVeTxv0tNIB+8w8HdbT8Ws2Ymrkf9+X9fd +FeEqVOT19GP5khYwp2ZmalLxmo7MBXvSww+uqFTqUTHm3VoJTdJ39dc0vzCm +omeZkZ8A6XDmmV0zSEWPtvKT/+pvuXF2ktecikn6QZatpEXzD57dZENF2vDF +gWzSo5JvxKwcqfgwfFnlCGlWmmPZAWfSt96Y0Uk7xBj23/Sgouv2pcZusj9k +/5YdadxPxYSt9uszSE+G0Dje+lGx97bRTpd//eO7Vk08mIohY3z8L8l+3Pkh +skU3jIpN08LX4kkruM65bD9Dxbjqqe9Iusnm7bmkOCpW8+xdk0/2d9IjJ4m7 +iVQc8RLvtCPtxnh8rz2Viml8M3sXyPn4oVY+wHmDilNcFgsM0lqC0eoRBBXt +/7CLF5PzxhY//yirioreI2vCDEk/4zjkWlVHxT77/7HayHk9PL8t5lsrFaVX +Z1S+1SHntV9h6OAgFe9r9YiMkPMe5HQ1MOYdFU2mS9z2kMYO3pUFo1T8oGoe +00Pmxdu6BY3haSqmhNlHVWiQ9cxti93BQcOdL48wnMm8GRVjSAdx0/DYKxVW +JZlHrGSCuMxLwzvFXeuESDuczX7TIUbDqg3bMh5tIuvl469lqkLDIYfhXnYy +735sEhhWdaYh/6CS2hSNBQs3JKO1XWm43lbwPoX0HL+igqEHDT81JDk5kXk6 +PWt4aIsfDQ+sePSuRI4FI3XeC66nyetNXF4GZB532PzHF1dEfv+xjUtPhcl5 +aXhIJN6h4QRncm6PEJlH6p070spp2Ji5ENRL5v0DoQ/ZOTU0FFE8kd8jQD7/ +0Jr1lV00fLpNe+sdHjL/DrvDyDwN12hEFfRxsCDzre/Il580TDg0kXWPnQXp +DsdjppZp2Ffk2XV+Bfl/asc9XVotj611sLSB3E9nfxG7+GXl8cazrlDHnwQc +jucKpJvLY5jme3WZGQLopXfzMjLk8X24p2rVAAFDlNLcrdfk8Xe1s8L2fgLC +M0py5nLl0XT0Rv/UK3JfRt+6vq1EHkvnLU9L95L72iUvi69eHlNC1va6PyNg +I1d6cuwHebQWPpZ3ktzfoh4RUSEqCig00snPTe7/yt6wSEVNBfwduqLanTwf +7LA+eaZXVwF1gA73yfNDqu6JU1qggMcG+b865xPAy3P05LSTAjq/cvgefY0A +zpp9gQdCFbBfXynsRCIB3wStPXc2K6CmnYDSi6ME9PvTug89UUBFbn65hiME +ND3+CZGdCui6INFUdJiA5PBSuduvFLBA4efyUfK8ozHC8+7HuAJaBp/OGXMn +IIB4vveGkCK+53RPP2xHwLiD857R/YqY4i7k1Uyer0YTPHcGrVLCqfGTJpwD +TAgYV6Fp8Chhj5m7c8orJixa/JiaElBCne8/CeleJqzhSI3xk1TCXAGqqdpz +JmiEtVR4qiohm92VfnorE077KAk5bFfCviyRJW6CCaImk8835Sqhx520vT4X +mGD1NdTqk956tFyMFAlSZ8KkN/fxisgNmOHZ9edn3T3yfUKM/ULzRsw8sVwm +s3QXBLuUkphflVFHkXnVxKAUpOPKHfX0VDAj1LhXE0sga5OhgNBBVdQXXXuD +zasYOiRNdWdT1LDhzFqx3EtFYCTdnKz+Sh07B5VTOdIKgI8jP9jrrAaWHCv8 +Zt5+E2Sj5ei7lTTxmnhyqUZ/LqxWdKva9kQTJ6qLm1Pcr4MaQ6I8dK8WHs73 +UdRxugpBw4It1mzaeMM23WWPcQZ8nU1wtsrSRs0QAfmG1DSwUH+cbaWqg2cf +DxzoU02BB7PGvxaf6WDGvs2jCgWJEKCiNdjjo4uO2c7qGaUXgTG9v3f3aj08 +cFbzfnhvDGxVELfjzddDTXsRp9ris7Ah6tLJZn19fN8vIy/1PBKUfQwbFQf1 +8aR46pH/ZYaDzwPf8xXHDHA8YcOFKx4h0JjXu/+biCFyxqnfuhgYBHO3lxfV +/zPENdfMW7IdA8BbsXR1tp0RNhs9rQ+X9oPwVvdDSo5G+LbE5mPlKj9I9hF8 +ytpmhFEzHx4sf/eF+qKwhKe7jNDFXftEY7svCCtZ8v/xMsIadqm/U6G+8Fjp +k7BniBHa/qqNYXt9EJQ3yFGUco0wRNJq1aPcA/BNOU2PNWOEbXZteutc90N/ +J24VmjXC6d1Z4iNW+6EpYHp78LwR7pGlSz8w3A9JLKtjej+NsGeyJTBTYj8o +G7HdreUwRgmP/KJnA96wz+oItUXUGOdmt/yycvOG3oMWPL10Y0wxXZtn7bcP +qgt/fZiPM8bFc9pRKvmeoGcWvGgdb4yzjX7Xh9I9ofLDJE9eojE+ik7jSr/g +CSzZYX3rVGPk/NVaQjniCXezmhJzrhnjw2nV4tsGnpCXEGNocc8Yt0d0dL/N +94CLwfwpWS+NsWZz0qynkDu4bpFHY1k6BiyF+w6t3wN/ern5Wih0jOQIbyzl +3wN5PtND1vJ0dEwVWXV50RU+x9aEum6g42XVffpJT1whqN2hPEyLjsZhhm1H +fF3hkv0p2WpzOq6+HC1VXLYbal36fuscpeNi5E358q0uIHXkQo1aEx0Tx7Tn +LpU4Q9LyAd34ZjqyOgsjeDOdgT3VnPjyiI7VDzz+3jjvDONVXCV57XSk+Xq9 +GPNwhlq281mCL+motlLrgYKYM7imR4UufKJjcfDKZdW4HZBVF6b7YC0DJ1Qr +Wq2Ct4PIGn/CbhcDLZ6b7ukOcoJCs9PhM7sZqM27U7Pdywm0TieZpbkxcPNs +RX+3oxPYzzD7+r0YaF955yiPuhPEvpr/4e3PwIBXKknak46wlB+5OTyagY/8 +emUN/Bxh0Djt5a1SBp7hot7MG7IH3xOF163uMXDaaF5XpsEeFu5V+kwyGTg2 +GNlekWMPgrT+Rc0qBq6453hNZ5892HDLSDc0MdAhIIMVPG4H9b239r/sY+B2 +jkCpT8u2YM1XrRrSz8DWpISN3B9tod+ifUF8iIFSQSsWtjy2hbnaiTj39wzU +tQuMWJtoC6o3Ncr+N87Azg8WIh1StlA/aBqSMMVA6R3136uXbcBaeDuozzDw +evKd700fbeDAhRM9wfMM3PL8LY/0XRuYa4rNFlti4NuJ+2xHk23g7M9M79qf +DPzGptQxGGwDAjolKnv/MHB4Tnynx24byDlSO7+8zEDq31Mpvxk28H8F4OVm + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07125499315369022}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07125499315369022}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994251897968432*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"e77e07a1-a8e7-4b62-85b7-698a148f6a03"] }, Open ]], Cell[CellGroupData[{ @@ -7662,18 +8531,75 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], - RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ -UUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[100]:=",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"d7dfab56-fefd-0149-8a26-6ee16f94ab37"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.627289817158398`*^-172\\\", \ +RowBox[{\\\"532888126012512780022077023202507591948\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"64\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0138815516114944000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 17, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942518981282883`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"5cff19c1-d398-4317-a0e2-c4abe46a83b3"], -Cell[BoxData["15.784298544249623`"], "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.480853067763162`*^-175\\\", \ +RowBox[{\\\"161198658118785115956678299518758546564\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"68\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9916936247705600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 18, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994251898137415*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"8c5a28bd-40b1-4f06-8015-9a27f3998b19"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0296010539480884`*^-178\\\", \ +RowBox[{\\\"505518991860510123640143147290826802026\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"71\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9512072804761600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 19, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994251898147997*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"c5739229-5906-4607-875c-d278523aadae"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 100, 20, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994251898156996*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"d3f9a845-39d6-44b4-a30a-c7dc483a9067"], + +Cell[BoxData["10.668304039580411`"], "Output", + CellChangeTimes->{3.9942519808305407`*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"5db37af7-8158-49ef-8b89-667a3bd61696"] }, Open ]], Cell[CellGroupData[{ @@ -7740,27 +8666,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850595832054*^9, - 3.991850600247154*^9}},ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-\ -8e83e9537fdc"], + CellChangeTimes->{{3.991850595832054*^9, 3.991850600247154*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"56921c73-2b67-0e4a-9808-5f61de992c7e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.86135584041237`*^-201\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 21, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942519809072*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"3a265aa3-a429-41c0-b481-5ef9c6465175"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"8ae663ad-3729-254b-9ec7-7f5d00ef81af"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.102465472936997`*^-206\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 22, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994251980917409*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"00d04de7-cace-41a3-b3fd-b8e38c431897"], -Cell[BoxData["0.009432406283458074`"], "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3987198652325541`*^-210\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 23, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994251980927643*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"9ac19f52-4179-4273-8274-6266a4b18e64"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 101, 24, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994251980938137*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"542adf52-b7a8-4a81-883c-e1d64ae51024"], + +Cell[BoxData["1.911972678050416`"], "Output", + CellChangeTimes->{3.99425199276005*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"ac41db7d-fe04-4645-81b5-a746162791c4"] }, Open ]], Cell[CellGroupData[{ @@ -7781,8 +8755,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -7827,27 +8800,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850617546938*^9, - 3.991850621692934*^9}},ExpressionUUID->"ccaee6a3-c390-0444-bf16-\ -3471356a3614"], + CellChangeTimes->{{3.991850617546938*^9, 3.991850621692934*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"1795c3b9-0182-224c-b986-6414d6712c04"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.86135584041237`*^-201\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 25, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994251992826342*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"e1610611-d6e2-4c75-964d-d761027769c4"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"c3b31753-a67f-9b45-b822-068e1df11f68"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.102465472936997`*^-206\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 26, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994251992838299*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"8ef77d5d-671e-4bd0-89a0-cf4a88514653"], -Cell[BoxData["5.210321944589433`"], "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3987198652325541`*^-210\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 27, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942519928473043`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"257ae527-2381-46a9-a126-b03dd3bdc1d1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 102, 28, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994251992855997*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"edbdecce-5d1a-4e6d-a5ae-bc9c97ac1467"], + +Cell[BoxData["34.967923061867815`"], "Output", + CellChangeTimes->{3.994252004065015*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"cf447fe3-bace-49bd-beea-1cd18d9fa717"] }, Open ]], Cell[CellGroupData[{ @@ -7868,8 +8889,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -7914,27 +8934,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918506254460773`*^9, - 3.991850628958872*^9}},ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-\ -286954db37c5"], + CellChangeTimes->{{3.9918506254460773`*^9, 3.991850628958872*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"32db1bf6-ba11-cb4a-955a-52e174a44e5f"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.86135584041237`*^-201\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 29, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99425200413937*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"1eb043b6-3428-409c-a100-d0f2ef65719d"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"4e2b22f2-1724-7649-93fc-33cd27bb415e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.102465472936997`*^-206\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 30, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994252004148554*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"ac94697e-5f42-441d-9737-ba93f7ae7ed5"], -Cell[BoxData["20.308521034293705`"], "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3987198652325541`*^-210\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 31, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994252004159507*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"edfa7247-75a0-4184-a11c-af30dcb7fd2d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 103, 32, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994252004172186*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"ff8c0fd0-e246-4e40-af4f-edc55caeb793"], + +Cell[BoxData["7.852207022464676`"], "Output", + CellChangeTimes->{3.994252013607542*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"b75de50b-e4b7-4880-ac91-26a721a91f3a"] }, Open ]], Cell[CellGroupData[{ @@ -7943,19 +9011,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918506775260105`*^9, - 3.9918506840946693`*^9}},ExpressionUUID->"7ec678fd-8398-414a-aeba-\ -20e078d734cd"], + CellChangeTimes->{{3.9918506775260105`*^9, 3.9918506840946693`*^9}}, + CellLabel-> + "In[104]:=",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], -Cell[BoxData["0.0009169614351270098`"], "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] +Cell[BoxData["0.1153854086198459`"], "Output", + CellChangeTimes->{3.994252013655387*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"487f6022-d0f7-4e58-a0d7-106998e33c27"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918506873951664`*^9, 3.991850690050791*^9}, - 3.9919245116307106`*^9},ExpressionUUID->"ca329276-48d7-8943-8408-\ -dd2997d3499c"], + 3.9919245116307106`*^9}, + CellLabel-> + "In[105]:=",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], Cell[CellGroupData[{ @@ -7976,10 +9048,14 @@ Cell[BoxData[ RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Il", "*", "Ih"}], - RowBox[{"Il", "+", "Ih"}]]}]}]], "Input",ExpressionUUID->"681c316f-cd82-\ -ae4b-824f-5eb2b3081f6d"], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[106]:=",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], -Cell[BoxData["5.744985073726742`"], "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +Cell[BoxData["4.188882565491411`"], "Output", + CellChangeTimes->{3.994252013681604*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"c0403076-1ad3-4184-b7af-ce33b3948bc9"] }, Open ]], Cell[CellGroupData[{ @@ -7987,10 +9063,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ - FractionBox["Kb", "Qb2"]]}]], "Input",ExpressionUUID->"11e77a67-96b2-a645-\ -89cd-559587f30b91"], + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[107]:=",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], -Cell[BoxData["1.564995573098341`"], "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +Cell[BoxData["5.127538047143245`"], "Output", + CellChangeTimes->{3.9942520136966467`*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"1adeffcb-8be7-44d4-b1df-7b97b87b18a1"] }, Open ]], Cell[CellGroupData[{ @@ -7998,10 +9078,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ - RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"3c5f43e9-\ -afc4-be40-8f37-0116656ecd38"], + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], -Cell[BoxData["8.990876207898397`"], "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +Cell[BoxData["21.478654729572213`"], "Output", + CellChangeTimes->{3.994252013710533*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"8c03a351-90e2-4a10-999f-ec915d8e06f1"] }, Open ]], Cell[CellGroupData[{ @@ -8189,10 +9273,14 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"f07a8476-d7bc-1049-\ -82a6-7cf06f61e28f"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[109]:=",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], -Cell[BoxData["0.06921475857237179`"], "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +Cell[BoxData["0.006737343777711125`"], "Output", + CellChangeTimes->{3.994252013728155*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"713ad561-71af-4e66-ba72-352304cf7057"] }, Open ]], Cell[CellGroupData[{ @@ -8204,18 +9292,14 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"b88b1a94-\ -22d7-2843-88e3-f607b95c8af9"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[110]:=",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"def6b331-c871-b04d-a16e-4fc00b03d009"], - -Cell[BoxData["3.36857007702114`"], "Output",ExpressionUUID->"332f8da7-4eec-ed47-b124-edf7e2bf43d7"] +Cell[BoxData["10.79693748121599`"], "Output", + CellChangeTimes->{3.9942520139092207`*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"def8c335-fe28-4b74-bc1c-2b1994405f1a"] }, Open ]], Cell[CellGroupData[{ @@ -8405,10 +9489,14 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"9d771aab-c0b4-f24c-\ -9b53-9472e00c4d82"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[111]:=",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], -Cell[BoxData["0.01179213875658184`"], "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +Cell[BoxData["0.04530454515472292`"], "Output", + CellChangeTimes->{3.994252013928479*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"ef1ad268-c07e-457e-b36f-0bbd7cbf419c"] }, Open ]], Cell[CellGroupData[{ @@ -8420,18 +9508,14 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"47e2a8e8-\ -6af3-374f-9eea-9c2b6faaaf4a"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[112]:=",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"c6c8676e-4601-144e-b83c-769e22949175"], - -Cell[BoxData["8.161099076568318`"], "Output",ExpressionUUID->"bd9f2dfb-0880-624c-8a61-fa3104084faf"] +Cell[BoxData["4.16364844875615`"], "Output", + CellChangeTimes->{3.9942520141287394`*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"8ccd4c4e-d93e-44c7-8047-fb4e663cf3bc"] }, Open ]], Cell[CellGroupData[{ @@ -8522,10 +9606,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-\ -6b0985b9b3bc"], + ")"}]}]}]], "Input", + CellLabel-> + "In[113]:=",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], -Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +Cell[BoxData["0.06403372334152496`"], "Output", + CellChangeTimes->{3.99425201414711*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"5c291c51-b9de-487b-bede-92fd5cfaedbc"] }, Open ]], Cell[CellGroupData[{ @@ -8613,10 +9701,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-\ -4868d83e9702"], + ")"}]}]}]], "Input", + CellLabel-> + "In[114]:=",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], -Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +Cell[BoxData["0.9359662766584752`"], "Output", + CellChangeTimes->{3.9942520141655903`*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"3bd45807-fbe0-44d1-860c-83363ee023e6"] }, Open ]], Cell[CellGroupData[{ @@ -8737,10 +9829,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", - "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"5caf1614-7e5c-\ -9940-98cd-9460e2c074b2"], + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[115]:=",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], -Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +Cell[BoxData["0.059933405616546`"], "Output", + CellChangeTimes->{3.994252014184532*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"b889cdbb-06ba-4b41-bdaa-6fca69a6c9f9"] }, Open ]], Cell[CellGroupData[{ @@ -8802,27 +9898,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991850710120125*^9},ExpressionUUID->"db0784f6-51d0-fd44-b0e8-\ -05d6af1a6e52"], + CellChangeTimes->{3.991850710120125*^9}, + CellLabel-> + "In[116]:=",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"7fd60dea-f794-4744-8801-bfb1a50a0e07"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.218618370800702`*^-206\\\", \ +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 116, + 33, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942520142049227`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"2ff8ff51-05c1-4c7c-b9d6-12171d943b86"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"0b8c0718-41d2-4542-8afe-212a15805650"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.050640720010351`*^-210\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 116, + 34, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942520142156677`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"5acbcc87-b2bf-45a3-bc8d-1e6f9d14eada"], -Cell[BoxData["3.3685700770211437`"], "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7750661911123814`*^-215\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 116, + 35, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942520142260036`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"058ac3f5-6a2f-407e-8b42-8b48237eccbe"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 116, 36, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994252014235705*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"a017492f-af15-49d1-9593-6666cde964b4"], + +Cell[BoxData["10.796937481215993`"], "Output", + CellChangeTimes->{3.994252022223831*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"ec3a69a6-e6f2-4c0c-b215-b89edc8a4e48"] }, Open ]], Cell[CellGroupData[{ @@ -8884,27 +10028,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918507152152424`*^9},ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-\ -f69c33a31448"], + CellChangeTimes->{3.9918507152152424`*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"b6f0ccc2-ff83-124b-a341-e143319c7670"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.218618370800702`*^-206\\\", \ +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 37, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994252022296051*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"2d914e0d-b47a-423c-b924-8640efa15b35"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"d4b50e17-5ee4-384c-b81f-c2a36a80320e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.050640720010351`*^-210\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 38, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994252022306225*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"5825c294-c38e-44d5-8f42-a209e3378a18"], -Cell[BoxData["8.161099076568323`"], "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7750661911123814`*^-215\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 39, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994252022316881*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"da84102d-05a0-4799-b334-43ed2de776dc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 117, 40, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942520223277197`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"84a234fb-1cdb-4cf0-bbbe-f22f6f409370"], + +Cell[BoxData["4.163648448756145`"], "Output", + CellChangeTimes->{3.994252030187517*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"f380cfab-33f9-4f74-a67a-248c44cb5027"] }, Open ]], Cell[CellGroupData[{ @@ -8962,527 +10154,394 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918507183992805`*^9},ExpressionUUID->"611f92ea-b199-2643-9788-\ -194fae57c34e"], + CellChangeTimes->{3.9918507183992805`*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"7797a546-4085-124a-83da-5f3c472cdc4c"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"bf75ebeb-fc95-1d45-8487-ceed40ec633c"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"ca7472ca-7b27-a54a-84a1-e603fa592207"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"86b3b7d9-f0e9-0a4b-9079-b341ca597ab4"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.00529101 -0.551091 0.817918 [ -[.15608 .25433 -6 -9 ] -[.15608 .25433 6 0 ] -[.28836 .25433 -6 -9 ] -[.28836 .25433 6 0 ] -[.42063 .25433 -6 -9 ] -[.42063 .25433 6 0 ] -[.55291 .25433 -9 -9 ] -[.55291 .25433 9 0 ] -[.68519 .25433 -9 -9 ] -[.68519 .25433 9 0 ] -[.81746 .25433 -9 -9 ] -[.81746 .25433 9 0 ] -[.94974 .25433 -9 -9 ] -[.94974 .25433 9 0 ] -[.01131 .02145 -18 -4.5 ] -[.01131 .02145 0 4.5 ] -[.01131 .10324 -18 -4.5 ] -[.01131 .10324 0 4.5 ] -[.01131 .18504 -18 -4.5 ] -[.01131 .18504 0 4.5 ] -[.01131 .34862 -18 -4.5 ] -[.01131 .34862 0 4.5 ] -[.01131 .43041 -18 -4.5 ] -[.01131 .43041 0 4.5 ] -[.01131 .5122 -18 -4.5 ] -[.01131 .5122 0 4.5 ] -[.01131 .59399 -18 -4.5 ] -[.01131 .59399 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.15608 .26683 m -.15608 .27308 L -s -[(25)] .15608 .25433 0 1 Mshowa -.28836 .26683 m -.28836 .27308 L -s -[(50)] .28836 .25433 0 1 Mshowa -.42063 .26683 m -.42063 .27308 L -s -[(75)] .42063 .25433 0 1 Mshowa -.55291 .26683 m -.55291 .27308 L -s -[(100)] .55291 .25433 0 1 Mshowa -.68519 .26683 m -.68519 .27308 L -s -[(125)] .68519 .25433 0 1 Mshowa -.81746 .26683 m -.81746 .27308 L -s -[(150)] .81746 .25433 0 1 Mshowa -.94974 .26683 m -.94974 .27308 L -s -[(175)] .94974 .25433 0 1 Mshowa -.125 Mabswid -.05026 .26683 m -.05026 .27058 L -s -.07672 .26683 m -.07672 .27058 L -s -.10317 .26683 m -.10317 .27058 L -s -.12963 .26683 m -.12963 .27058 L -s -.18254 .26683 m -.18254 .27058 L -s -.20899 .26683 m -.20899 .27058 L -s -.23545 .26683 m -.23545 .27058 L -s -.2619 .26683 m -.2619 .27058 L -s -.31481 .26683 m -.31481 .27058 L -s -.34127 .26683 m -.34127 .27058 L -s -.36772 .26683 m -.36772 .27058 L -s -.39418 .26683 m -.39418 .27058 L -s -.44709 .26683 m -.44709 .27058 L -s -.47354 .26683 m -.47354 .27058 L -s -.5 .26683 m -.5 .27058 L -s -.52646 .26683 m -.52646 .27058 L -s -.57937 .26683 m -.57937 .27058 L -s -.60582 .26683 m -.60582 .27058 L -s -.63228 .26683 m -.63228 .27058 L -s -.65873 .26683 m -.65873 .27058 L -s -.71164 .26683 m -.71164 .27058 L -s -.7381 .26683 m -.7381 .27058 L -s -.76455 .26683 m -.76455 .27058 L -s -.79101 .26683 m -.79101 .27058 L -s -.84392 .26683 m -.84392 .27058 L -s -.87037 .26683 m -.87037 .27058 L -s -.89683 .26683 m -.89683 .27058 L -s -.92328 .26683 m -.92328 .27058 L -s -.97619 .26683 m -.97619 .27058 L -s -.25 Mabswid -0 .26683 m -1 .26683 L -s -.02381 .02145 m -.03006 .02145 L -s -[(0.7)] .01131 .02145 1 0 Mshowa -.02381 .10324 m -.03006 .10324 L -s -[(0.8)] .01131 .10324 1 0 Mshowa -.02381 .18504 m -.03006 .18504 L -s -[(0.9)] .01131 .18504 1 0 Mshowa -.02381 .34862 m -.03006 .34862 L -s -[(1.1)] .01131 .34862 1 0 Mshowa -.02381 .43041 m -.03006 .43041 L -s -[(1.2)] .01131 .43041 1 0 Mshowa -.02381 .5122 m -.03006 .5122 L -s -[(1.3)] .01131 .5122 1 0 Mshowa -.02381 .59399 m -.03006 .59399 L -s -[(1.4)] .01131 .59399 1 0 Mshowa -.125 Mabswid -.02381 .03781 m -.02756 .03781 L -s -.02381 .05417 m -.02756 .05417 L -s -.02381 .07053 m -.02756 .07053 L -s -.02381 .08689 m -.02756 .08689 L -s -.02381 .1196 m -.02756 .1196 L -s -.02381 .13596 m -.02756 .13596 L -s -.02381 .15232 m -.02756 .15232 L -s -.02381 .16868 m -.02756 .16868 L -s -.02381 .20139 m -.02756 .20139 L -s -.02381 .21775 m -.02756 .21775 L -s -.02381 .23411 m -.02756 .23411 L -s -.02381 .25047 m -.02756 .25047 L -s -.02381 .28319 m -.02756 .28319 L -s -.02381 .29954 m -.02756 .29954 L -s -.02381 .3159 m -.02756 .3159 L -s -.02381 .33226 m -.02756 .33226 L -s -.02381 .36498 m -.02756 .36498 L -s -.02381 .38134 m -.02756 .38134 L -s -.02381 .39769 m -.02756 .39769 L -s -.02381 .41405 m -.02756 .41405 L -s -.02381 .44677 m -.02756 .44677 L -s -.02381 .46313 m -.02756 .46313 L -s -.02381 .47949 m -.02756 .47949 L -s -.02381 .49584 m -.02756 .49584 L -s -.02381 .52856 m -.02756 .52856 L -s -.02381 .54492 m -.02756 .54492 L -s -.02381 .56128 m -.02756 .56128 L -s -.02381 .57764 m -.02756 .57764 L -s -.02381 .00509 m -.02756 .00509 L -s -.02381 .61035 m -.02756 .61035 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .60332 m -.02499 .60331 L -.02605 .6033 L -.02729 .60328 L -.02846 .60326 L -.03053 .60319 L -.03279 .60309 L -.03527 .60295 L -.0379 .60276 L -.04262 .60232 L -.04749 .60174 L -.05205 .60108 L -.06244 .59913 L -.07305 .59653 L -.08274 .59362 L -.10458 .58527 L -.14429 .56405 L -.18248 .53718 L -.22313 .50297 L -.26226 .46595 L -.30384 .4238 L -.34391 .38185 L -.38246 .3414 L -.42346 .29931 L -.46295 .26047 L -.50092 .22522 L -.54134 .19038 L -.58025 .1597 L -.62161 .13033 L -.66146 .10526 L -.69979 .08415 L -.74057 .06487 L -.77984 .04937 L -.81759 .03723 L -.85779 .02721 L -.87627 .0236 L -.89648 .02036 L -.91652 .01788 L -.92745 .01682 L -.93762 .01604 L -.9426 .01572 L -.94801 .01542 L -.95278 .0152 L -.95783 .01501 L -.96238 .01488 L -.96496 .01483 L -.96738 .01478 L -.9696 .01475 L -.97163 .01473 L -.97275 .01473 L -Mistroke -.97397 .01472 L -.97512 .01472 L -.97619 .01472 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJztXHd4VUUWj0leHiEQqkgnQKgh9GJAmiIlWUJvK0UIvUlVuiCudAGVIqgo -RXq3geIKKGB3daUIFoqCBRBcirTZe+beOe+elzl3XhJ2P/b79o93k5n5ze+c -OdPOlHtb9hzVv8+QnqMGpPWMazai57D+A9JGxjV9ZIQVFXFXWNhdP1i/CnFh -kdb/IiyMPOaKm+I4PKz/hbgljsPjP/N/afknAuTCfzIkn29nIN1JzmCuLKSH -yz8+MW/uPFGuXDlRvnx5MXDgQHHr5i0rFtIixbU/r4l69eqJ+Ph4cfLESb9D -OWjQILF0yVIZiubErINHFMTH2ALDZHax460dokWLFuLSvy6J69euS7IZ02eg -zLO/nRUxMTGS8MD+A0rm7vd2i+bNm3vLXAyPgm6ZERLQrFkz8cXnXzhljhAX -L1wUpUqVcixgx/3040/iyOEjMqSE3rxxU5QoUUKcP3eeFzoXHjkhvgQKvXH9 -hihSpIg0ZoST8b777hOHDx2WoVxO3NChQ8XyV5bLUDZ4RmIzmAaP7BCsgLS/ -/vKrqFq1qpPZfnbv3l288/Y7hPb9ve+LVq1a6WgnwyMagtWQ9vvvvhdJSUmE -tn///mLL5i2E1iqNKFOmjPjj4h82rc4cE+CRDeLroIDffv1Nq/eud3bJUG4n -bvjw4WLd2nWkDtIJGIMNq77R3qpClYD9+/aLTp06eQsYBQ8fxN9PWhE0v88/ -+5y0IugZEMrhxJ07ew5LoBRJSEgQVy5fkaEoTugjWKqmpLvs3LFTNG3aFGwu -uyN00Tmz54TldIiOHT0mWrduTQSOGjVKbN2y1VvgIBSYTAeE+fPmy1qGQWHI -kCHSpm5puXLlgsq0QvYTOsjYsWO9pfVDaamu4Skw6PVGm7c1DF89sT13NCC7 -I7KLAfkQIrsakJ0R2cOA7IDIXgZkW0T20dqmNQb7a9NbYv6BBkkpmHGIAdkc -OR8xIJsi5wgD8gHkHGVANkbOxwzIhogcq7VNfQyONzDVQ+REAzIJkY8bkLWx -xFMMyJrI+aQBWR2RTxmQVRE5XWubyhicqU1PhEc4BGcbJCVgxjkGZAVEzrWR -mXBD7OgoOR1ZQ6GoXbu2qFmzpmjUqJHYu2cvOzOVQ9nzbdmZ80jsaL+YNXOW -6Nixo8wGNEe/OSpLcOjgIX5uKYM6POvokDkPRcWBwDOnz8iQyrt40WIxZswY -x0qMIvFYuQtQEZPXoiY58BVO/3SaCF24YKGY9tQ0b6GlsPQLUajJp8nhmHvZ -S8tEhw4d0NygVIUKFcDstrkDPk4JFLMYxZh8nJyOWceNGyeio6NFyZIlRURE -BLgovK9THAUtQUEmX0eV55OPPxGJiYnSJYHJ/aUXXxKNGzcWf179k28+xbDW -XjDWmmoqOVxKbFi/gdRat27dUDG21opgKV8kbdbLH1IOQ7t27aTr7hYKTu/K -FSu9hRbGki4jnZXzh2Ids27csFE0adJEpgP+qy+/kmPKLz//wpu1IAp7hY5K -Ol8ol5MGFVa9enVZ2SARTMG2lAJow+WuETIw1t6NGqw0jKD5MOMqAzIvcq42 -IHMj5xoDMhaR6wzInCh9gwEZg5wbtbbJjkybtenRmL7FIMmPGbcakFHIud2A -jETO1wzICOR8w4AMR+SbRk4r6q1gs9zC/Dv5/DcQ7rFjcB2ZdvGgawh6lwdd -RXF/50FXkGk3D7qMoD3BBb+ESXuDk/7ApA946osI2meD7nZA4BcoUIwm4wXM -uN/OmAm/JtLJsnnTZpmldOnSolatWmLTxk1h2TUyz2PZDtgys7bDAv5Lv379 -RFpamnaz4xwW8SNHXOZcF8Xdpk0bsW3rNhnSjcxnUd7HKM/koah1/ocHPhQN -GzZkuX9D7k+QO1RH5Py586Jz586yiqpUqSKX+/nz5w9M3NIR+Rkr51OUYPJB -lISUlBSx4Dnpl4nfz/8uWrZsKX2SUydPaUvzM5bmc5RlckNUIz5x/ITcoBCu -CRosERsbC7WmlXcG5X1hrBlV60rent17RNu2bYleBQoUkH0BQjqH4DTK+wdp -eaFsyBz/4bioXLkyKR+4Xg8++CDbOn5CeV+SjuXte0TJegI/GLBWXYkaNWpA -S9Q5BadQxD/peKHzOGKdNGgLXbt2lenQ8l7b/pq2p55E8q+DR8ETmHSQHwWP -I+gQD/oBQYd50PcIOsKDvkXQUR50DEHHeNBRBH3Lg75B0HfB1jmCSd/z+Q8j -6AcepDpenz595OBgrU+tEDxj5NgL3cXByoEXmlLFihVxUIEtPBhQEpxG6oXx -Oc1DN9VUdvSALv7NEVn0sMgQOIuhTaIcdmuCkqts+EGOPHnyWI3WLtfMGTOx -5OaJzycHIVj7QMeEDgXOeUmjHJ9bjrKsVRq9VWEwmPz4ZNkJy5YtK7lguQ6D -mllWdiLLw1JZKxI1XYRHZXkVJ4e5HcIwD9OBNeE6YmLEvffeSywGm7vWkKL2 -qqXvMGnSJNGlSxdsh16YSGcYZPwP1RSnTJ4ipk+bTkrnRVsU+5uaQyxvQ7Rv -396xrqdQpRM4IJUqVRI/nvpRClj96mqRnJwcr2GMZE3mT2cykAQbE5ZLhbML -+DSwMXH1ylWskvT8oZkyA2r7WfNGGNWM4RtQNSfOas/SGbVokGLu03PlEZlb -PFgMLAehKpq4cKdkjtdIuqvlNapGcujgISkOQtk1NIWwUeTQ2MLnLUSZBfar -YJgK6EW9yVIsdej2gM2OFctXsHy6woVnQT+/hwHdumTnq7y6EweOLjT42bNm -Y9ezGqd4d9e7rur1u+Pkz+SkJzpxMFSCewahaA1/YFcmp6agqhJN0pThoC1Y -ziKJmzBhgtwt5YwZ5WGJ5xc/L7urqWLdJcqKLtk8rObWxaNiazhx0A1gHfLM -/GdQTZi7YH0SqNgod5z8OSskZXn34kjV6ZNTn5TdwK2dm/oerNNYjzo1LcWU -zWCiBKfYHQfbcmBLUwfRGQEcbhgnTXXqLlFWdMnmYTW3Lu46lVVa0wFd+P2C -VAZ2qdWcAecS3x6TDrAcjWBCSE1NreSdrMxsWqOqigb/BLpZoNpY6kA/zqWx -QWSIgpVN4bjZ8rtI3JrVa8SwYcOMdk5vLr9Yu2YtGb3efONNuX0Blxx007fP -u7CRt0HN9Lb1VtNj+q7lxH304UeiTp06LutGSS8WXFX4C54AWNvqFZW8k1Xd -mDYY1EwODqs6LDJIDgwOuTXWiQxRsLI2+E26Djlx4kS2BqI9zNW7d285cMMA -DN437NJYCwOdL+bzLmfkbdBQZ1ZGQ4/lQW0nLm/evPI41a2J0wJlqIomTk2O -pp0f1RDAm1m0cBGpNzdfwKXL41H7JmlKe2dviMTBUAxTJWfb7B7WANsql6Ic -W+W0RP4s6BLtYTW3Lrn4ylVd5NNPPhVTn5hKxMMeMOwvc5Whq3C/U+2u4sif -s+2W4GSBJNh/dYuDgRLOyDhxgSkit1PbTvmUTaK8ZavWAQsfNZG627FaTcfp -2X0ZtJS7Asp4KaxvD1nUMlQDZ6iZ+MXBrw+KwoULy11OmNDA6YU9emuiw94X -ahNhdkpVE3lh6Qu4sFHagn8NQzs3BAVPDj6Jrlu3rjxjfnnZy2CisChvBZSn -AiMnOGyOIy1WrVwFu7clPZh9GTCT2/LxRm31Jsy0iqGbN8QGUs3R6LNPP5PT -S6FCheT0Ak3YGiZVoWGjD2Y062dJgKd9/K9oKoaIi3BKqNsJdzcgmAXc9xDz -5csnd4HcJTTJyoONKp+TA84nkpOTpT39HpqofT/wyUACVBUMTtbSBY3o5ooK -zYhQJSDKVtV+whinFI5jqUM3bKgq+zJobJPu0XwT+xjr4awLFBE4bNQcDbpB -BzD/77yQ/Qi6wIP2IegiD/oAQX/woPcR9C8etBdBl3jQHgRdtkEF7SRZcOtx -F59Vdzz0/7jQ48Lx9O8OUei/FidLnv22/OexPr3jin3Hx0ViHPy1frrj5TtP -7f/J1pmUhbiAgMSMsMgcdfG/e3jldiHoOg96B0E3eNDbCLrpAknMTky6FZy0 -A5MET/0WBXnMVG9SZDiPfIMiI3jk6xQZySNfo0gfj9xOkVHBZtlG0/0801aK -zMYjt1CkhyO1mSI9DgM2UaRHL9hIkR7bSRsoMmewbdbT9FieaR1FeqxO1lJk -bh65hiLz8MjVFJmXR75Kkfl45CqKzM8jV1Lk3cFWXEHTC/BMyynSYzB5hSIL -2sgMX/tg3tWIlGsKReP3+xWD8y6eBPk0ar1M1Spkq6XWtOmP6tJdblSTo3Mt -TIZ0E+YyKqgwL0g5g+4rjaFKeYlKKcJLyRsi44uUsWgmGKVD8YKG+3bpyHJn -RtsgnqUcd7Gscy/huItj74DooF063MGEE3gnG4jS3eB9ntZeHPLqdncUb69e -veRuDrzhWbp0aR3vYspr7xnhOt29xldb7XAZBU4nihYtqr1rvIgy2jvWrjFp -IU0vHZy+gKbHu9KDJD1HkWV45LMUWZZHPkOR5XjkfIoszyPnUWQFHjmXIisG -2+Zpmp7AM82hyEo8cjZFJvLIWRRZmUfOpMgqPHIGRVblkdMpslqwbaZzfbBq -MHIah6zGS3+Ky1Odz/M3qnFNHvkkRdbikVMpsjaPfIIi6/DIKRR5b7C9JtP0 -JJ7pcYqsyyMnUWQ9G5l1L0LtjsIeuOU9uG7TRoiCBQvivRDd5fGJVCf7VD0j -LoQSfvXKVbnRP378eMwOr1l6CZ9AhdfnhevcCnXkAGeePXr0EH379lX3y8T2 -bdsBp92bGk+lNuClqjkFTjth+If5xrK9btk9jpI25EnV/Dp48GD5xqalssvT -GEN5GvE8akseXlKEq69uM7k1C2JsbGaEXWl4wfPc2XNaxsco4/08Y34nDq7+ -792zl20Ij1LGB7BnCI0Hoa7JQC+AO752yH7CVQJ1/UsnaDQV1AQF6VyKXK4G -Bjv3cGh0+dJlGYY7SSkpKVrPaBQVYr9JofUvcjuKwnXJtLQ0eewBkgYMGABX -H3TkIyl5U364GUGRzVxICRxO05vzTMMosgWPfIQik3nkUIpM4ZFDKPIvPHIw -RbbkkYMoMt1XNwbS9FY80wCKbM0j+1NkGx7ZjyI9vvnRlyLb8cg+FNmeR/am -yA7Btkmj6R2D03vR9E68pJ4U2ZlHPkyRHl8s6UGRf+WR3SnyIR7ZjSI9voLS -lSK7BdvmIU2edMig9C6U82Ee2Zkie9rI2+Vg+OXU/8SUJ2QS3LCCE1841jxz -+ox2IOxE9XG+9JJh58IvX1vY98E+nN7hxj7c0E9KStIK7kgFp/GCdY6FWuHV -r18f77HqJpMOVEpvXoqaWeFeSrFixeRbBbqZtT1l7MMz5nEMBo4P3LeAOzi7 -39sdcCTaUqq+ZiqodLg32aBBA5jmAlStKVV/cznhit6S55cQC7vLGcQ4wMwI -Dh04eBxjK8o4EJu+0HgQyi2B90VGjx7NkqZS0kFI6uUtgBnhxgp8ZQyI4AYM -fIPFCmvbaksqZLAthPcWfPKGU2pqqrylAJcZl7+yXHsUlEKZh/IDRzJFuj9q -JIEtaPownqk5RQ7nkc0o0uPzSA+iHjI8kkc2oZyjeeQDFPkoj2xMpbs/uSRj -G1GmsTxTA8o0jkfWp5wTeOR9FOnxcaa6FPk4j0yiyMk8sg4tkfszTjK2NmWa -Gpxek+b3+LhTDcrk8XGnapRzGo+sQpEzeGQiRc7ikQkU6fHBpwoUOTfYNuVp -iefzTGUp8lkeGU9lPmcjs+4gqOtbMMAqGnglH/5u3LBRN7aWoqo4XzzKgG+g -RjznsrsM6QSVgGfg60eLeUE6X0Btb8AKu3jx4vJ+V7hzywtKCNLXr1uvlVyM -FnEpL1m97QNrZPX6f3iI5StMy/ciL0V9mgfmE7jL6zDI0kQjSwHK97KZD+Yj -WOHr+fJRvhU8n9pugWMv+O6Tw6Wb2iTUh6Svmknh9jC8AetBKg95o5B0HfYO -ofEh1DYOvGgNn3DCQruuoDi/HEi5CSl1HoSihI8jOO9F2JTRSPC6TaDzDpSn -NHLkSBEXFydD7AeX7uhv75rS5f+34cvEYXf9GwRZrOc=\ -\>", "ImageResolution" -> 96., "LightDark" -> \ -"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-14.857966328747292, \ -0.654633287374793, 0.6941460339291473, \ -0.0044903445173959475}},ExpressionUUID->"f3c0c3aa-fd64-8e41-bc0a-\ -ae36b33a37ec"], - -Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"23cfff6f-2c67-ce46-9cc6-\ -49e8ffb5e8c8"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Xk4VdsbB3CJyFCZp2Q4CEUiorrWGxqMIWSIOM7ZJCRTJ0RlqpSEoqto +QLhHGTPWVYb6lUKkAUWyyTydTV3Vb/ljP/v5PGuv737XXsNWoh+3Z3JzcXGN +4Gv5fuKN9saq9jfGJ0OrMnMUSWQ8matPN2MjT13/l8vuzzFIVzGrR+4CiUdu +Y9syXq8S0mtGClz8znewS1kxjbxmrShdZqr8LvaFFumGmKIOtO/IrpBc7Jr2 +E9lLuu8Qd+/UtXzs0U8vo07VfUCyt1avL8SWHaK5Uaa9SK/sAi8b23Iqyiik +9QsK1gqyf4j9ZGlUkFU0gDxoj7nLsbvPSkU+ChxEZFGQZBX25Cqz0XndIWTf +d/FyHfaqS0EuegskiuoW9G3A3iBy68WJuhF0rmIurxnbRo7KnzQdR/P3Fi07 +sInbypJa/JOo+ZdExXvsGNUD8cdap5DV679jPmN/kOraGlo0g5pZPTCBzXD1 +O5p2aRaFlWQYcLCnb3LdKQucQ44S9Vd+YfMra62b0eUgb0Nj/7VKJEpnNO5b +J0GhHObNKWlsxfsuMVsWKCSQ7d2tjG24OWEyoG4RDatrv9mO7WvwpXXUdAkN +/KglCOx5VhiPgNovdOGZL28I9pk6wV0a/L+RQstZvjPYmWD4j0/rHzTTSOln +YTPyXpgFF62ABn5qZzd2UUta/1k5bhDi46OGsKeHPaKuXuIGS4EEMQo7SpNT +XhK4Ei6UtbGklHG9D5VoU7q80Ct2a9wD+1P7+JPf93hBr1zj2Qlsxdkq1zUS +q+BG3cb/4rDZ22xStRZWwe7hUxls7KaaiBX+dfzwxibuFBeNRJzGzi8jpkIg +ROQP1mKLWgmti3wiBAHnItZ1Y+t0mYGwkTCgn4ZlM9h+3ypvb9VeA10qLAdN +FRIFcbfq/CW0Djp2SYrfwR5SfjATT4mAMl/amVxV/H2Il6vb9ERBJCJ4qQWb ++x9SSfqEKIz5WUx8x1bUU7AvGhOFJ8+GtbaqkcjVNKXsTb8YqI3MazZjt3kH +h0i9kgDtZ/slVqqT6PP95CRPfklIOKE9sBl7fKzoXuEeSZAU3qB8CFsgdLBz +Z4MkyLxXWFmMbRbnsM2zUgp+irXv9tAgUW2uAacgRwbSO7jKuzVJlDv0M3xH +qDxwF+8MVNAm0X7HxM8hxfLQfmJwvQP2eJPY3mJSHkTj6rdewN6Wu1lC0WUD +1LXyJc9jN9E9ynmNFSBTWl2kfQuJZqf6T47EKsLsQoPJ31tJJBZgVlFurQyt +Ix7ukfokInMFfG39lOHp0eGueuzq3na5iQRlcK5vK/uNfdjKPVatQRnszVvu +xBrg+jaF29/QpcG9hyyr1O34/aP3p6OlVEBt0af7mRGJHHwEtSwGVCE9LvNF +kDGJULij7qFfqnD+lVP8Y2zN+JztDBk1GK4ryRVAJOK6p2cSbacGG1uNBfOx +iz+7HSp7qgZ3kqiTA4D3pxP7rOzdjZBVHNzhZ4rrM7PuHqVrwKQyV+rz/SS6 +dzCjZyFaAxwOfcxTNCdRMn2gnydLA9onktZHYDPOhI1t6NSApcR4XW0LEonU +3+I6aKoJwu94VmRZ4vWjN6lZR9sEPaSwZqINieSUr8QkfdsMHa/O1xU6kKj+ +4rzGD24tqFib2CrliL/HnEsXoaQFXkvq9gnY2U0qGiYeWqBZ5V3HcCKRsk/t +28X3WjB+l3/VRmc8XvaQKvFKG2wVaqKfupFIXm4DoeiiA02hyWI23iTanBcq +9B/ShRW+38+1hJCIzojlaNnowuE86YT9oXi/0lI/ex7WBY28jKmX2CvvPixp +YelCaFsKpz0M77fsUYfUUl1IDWl8PXASn6eZnrc0aHrASHpdKhmF5zfJStt5 +1Ta4uGvB/XUcie4Eq9hWtupDYPbYYmAGidrD0fa4PCN4u+d5p2sziZQ83tm4 ++/8FtaP7Zb/8IBHzz6MH8qcALI3sYlO2DiOpsWo+KboJqHeyHVzChlGo3q7e +VE0zOJhytT6vbhjRJ5ZeiI3ugWO2XYcN+EZQsUkIX07bPijhPV5a4zmCcuf9 +nrLTzaHsym+6Fz5nF3dLv26KsYRG1uct0arfUR/XypkBL2twe6XuUXjtOwpc +fzzlLO0AdDMUXIJ5R9GDoy8arsXbwplHsb/PJ4yiiDmZhU1H7SDDrmqH16ox +xLHY6/T8iD2Yy8slDWSOISO3q7uH7A7CukD2ilKdcfRW5pZfk54DWBj93Wfb +PI5k82PrC9QdQbrpoMhQwASq7te0shF2gmMyni6rRSfRhq5pn/AJJ3jdXu35 +q3oS6V27yr7Xfwi6G0wiw0On0C2eOe3URmcYLsxDYeLT6NHuLZ/ia1wg0K+2 +a4o1jTK3XxRZKnIFbgW+l5N906itJy9B75Ib3PzQ/uDjXzOo0vqmStCZw3CM +PfHL5P4Mmgk4yBXIcIcL9q9vsARmEWevhu+kqQc0lptuWzg2iwomPi6GGByB +jizXU/R3s8j5Tp63u5AntEsGtD02mEPlZZZHViZ6gsKbM5o+2XPISO7tjws/ +POGnQopB0dIcovX7fOo46gU78sX3zDnOo2+Cxw7cHPSChV7HpYCyedSebOO9 +z5EONTsDfDpWclA6K0cwrJ0O97JcE2sdOaj+yZ8f3ubeUGeW+rw/m4PWHoZE +vVpvSB4u4P/Uw0GK4s/b1td7g993H663vRyk02otveqJN6i/cPf5Xx8H2e9y +K/zw1Btmriqfe/QF568Pf3X6f96gmxo3dGGQg2T7/ln74oM3sCwzt0uMcZCK +h1Tm4QVvyOq2Lq7/wUFGnpMF8dsYUOXbZ2+G/5P5N6ZDbAwYwD1rlscvSSHx +zlljKUMGJBxac7wVe3LPQlfBTgbw9ej72ktT+PziWtFqwoDFUHL8kByF1iyI +uIjaMaC/9KKiuRKFvl3WX50TwIC4dZY7GzdTKLku6mh1PgMYsvd715hQKEA3 +w4hVwAD/29Nv2NhWhaWrDYsY8Cfxm76FKf5PZ5CFVcUMyO1x9oo1o1B8sO3o +owoGyBs7bZraS6EoDZVjlc8YYODAG8K2pJBfxiv/ss8MODCyVuSxA4XM15C7 +gvtx3rsPdHNHCqnHcwnrfmWA1sdB1XfYZLB+cekQA3qdXf6MOlHIyyZnomQc +96ctLq11oZAzb0jgw58MkCzgEUbuFNoXIhvElmSCd0/AOx0mhZ7lJFikSjNh +oUotqhJ7V+usCkuWCakm+04aERTSUX310XQDE5Y2WfkhHwrJvI807VFlgmv2 +XjA9SqGxHX2SAvpMyGs5naYZQKEr3Lcf+xxkQgnLRfZkKB7/FqFMa0cmDCX0 +S5PYcW6sYL1DTJCwj/B1CKMQq8J24x9XJsxLxP/UDsf1EyuuXqczoXib83DP +SQrpvaQzmk8wQZEe3iYeSaH3V1UFaSlMMPBw+ov7LIUeIGHfkatM0KzIM3PE +jpuYbypOYwI7AErvY+uaN0UbZjBBPl661uIcnj8u71nrbCao/b55/kIshfYe +v/2RxWbCZr48wdF4CsnLnzcwfsCEmsgwT70ECs2/PJ62soQJKnG3ZaKw76oh +6+RyJjyhvakWTKTQr76+hnu1TBj5zFNIO0+hCiu5gjcv8HiebtpjcJFCST+5 +edNfMsEy3/pjGDa9YNTLpZUJEwNUewX2Op5auW9tuJ7cB6M6SRTyr3O+8qOb +CTdaGC1KlyhE07werjLEhE72R3HyMoV+vj/d+Z1kwlHzHz1yyRRqj2fqPBxh +gvr0KK8ddvTAtlGjcSbEqsudq8H+lNnpfmCOCX0R12Rjr1AolU9kT8QKAnjJ +hMbFFArVz/a5ha4koJC2tlnjKoWG+4qCA3kJqHFdWuGKvavC7DZ9NQHHZd5r +VWOTnqz/LEQIKFmwszqWiuu32iO6R4yA9M6mjdexd24X1UASBASYmhk3YKcI +s530ZAjYqAfrRdNwe+2XUjklAvpXy2axsYk89gsJGgEdU33WHdgpKae+rFUl +IHHEaycHmyTEhHk0CKh2S2zZkY7bxfb5jusQwPfvkZv12LW/xWJIXQIa6TtU +erCHvvdf69+G8xLSyUXsHQ0RjV2GBGSnFcnqXsP72f/BhsdAwHrxHJSFvcY5 +Ur/KhIDyfyv/Lsc2Mt1vVWpGwEdbKZ1X2MkyX0/l7Scgi5m7ehG7mudhSo4F +7s/dbC18nUKDU5H3b1gRsFgp26qEbdgi8e6yLQG9eXYn92PTS7+OJdoTwBOp +keuKffnmQ+5zDrj9Bk3QH/trsLlOuDMBKQsBiZewhT0k9wW5EqBm++hm1nKe ++aC732ECPqmKjBcu91c4neThSYDB5WnDJuxqAYu7znQC/GoCDdqX8ziSNfYM +Ar5mzAb0LOcNDLZZEQQYBp76MrSc11pC7vUlYEsZV9LUcn1Vp3+BHwH5qxOC +Fpfz71qI7/QnoMiCL4UrA+dfltqkH0gAM/Lcdz7sr6xvu7cEEbDjLSdqDbYQ +o9RZIxivn8ojFuLY2w9EH6eFEnCk/omdDDZ9h2WCfDh+vlgkTR77kqr0LSkW +AUYxh9YoYT9aN1QuEkFApsuVRhr2wH+lLwWjCChOqy5TXc4fjh7gjSaAv/Jt +jxq2wVvLxT8xBPiG9RlvxP4//snjeg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk4VdsbB3CJyFCZp2Q4CEUiorrWGxqMIWSIOM7ZJCRTJ0RlqpSEoqto +QLhHGTPWVYb6lUKkAUWyyTydTV3Vb/ljP/v5PGuv737XXsNWoh+3Z3JzcXGN +4Gv5fuKN9saq9jfGJ0OrMnMUSWQ8matPN2MjT13/l8vuzzFIVzGrR+4CiUdu +Y9syXq8S0mtGClz8znewS1kxjbxmrShdZqr8LvaFFumGmKIOtO/IrpBc7Jr2 +E9lLuu8Qd+/UtXzs0U8vo07VfUCyt1avL8SWHaK5Uaa9SK/sAi8b23Iqyiik +9QsK1gqyf4j9ZGlUkFU0gDxoj7nLsbvPSkU+ChxEZFGQZBX25Cqz0XndIWTf +d/FyHfaqS0EuegskiuoW9G3A3iBy68WJuhF0rmIurxnbRo7KnzQdR/P3Fi07 +sInbypJa/JOo+ZdExXvsGNUD8cdap5DV679jPmN/kOraGlo0g5pZPTCBzXD1 +O5p2aRaFlWQYcLCnb3LdKQucQ44S9Vd+YfMra62b0eUgb0Nj/7VKJEpnNO5b +J0GhHObNKWlsxfsuMVsWKCSQ7d2tjG24OWEyoG4RDatrv9mO7WvwpXXUdAkN +/KglCOx5VhiPgNovdOGZL28I9pk6wV0a/L+RQstZvjPYmWD4j0/rHzTTSOln +YTPyXpgFF62ABn5qZzd2UUta/1k5bhDi46OGsKeHPaKuXuIGS4EEMQo7SpNT +XhK4Ei6UtbGklHG9D5VoU7q80Ct2a9wD+1P7+JPf93hBr1zj2Qlsxdkq1zUS +q+BG3cb/4rDZ22xStRZWwe7hUxls7KaaiBX+dfzwxibuFBeNRJzGzi8jpkIg +ROQP1mKLWgmti3wiBAHnItZ1Y+t0mYGwkTCgn4ZlM9h+3ypvb9VeA10qLAdN +FRIFcbfq/CW0Djp2SYrfwR5SfjATT4mAMl/amVxV/H2Il6vb9ERBJCJ4qQWb ++x9SSfqEKIz5WUx8x1bUU7AvGhOFJ8+GtbaqkcjVNKXsTb8YqI3MazZjt3kH +h0i9kgDtZ/slVqqT6PP95CRPfklIOKE9sBl7fKzoXuEeSZAU3qB8CFsgdLBz +Z4MkyLxXWFmMbRbnsM2zUgp+irXv9tAgUW2uAacgRwbSO7jKuzVJlDv0M3xH +qDxwF+8MVNAm0X7HxM8hxfLQfmJwvQP2eJPY3mJSHkTj6rdewN6Wu1lC0WUD +1LXyJc9jN9E9ynmNFSBTWl2kfQuJZqf6T47EKsLsQoPJ31tJJBZgVlFurQyt +Ix7ukfokInMFfG39lOHp0eGueuzq3na5iQRlcK5vK/uNfdjKPVatQRnszVvu +xBrg+jaF29/QpcG9hyyr1O34/aP3p6OlVEBt0af7mRGJHHwEtSwGVCE9LvNF +kDGJULij7qFfqnD+lVP8Y2zN+JztDBk1GK4ryRVAJOK6p2cSbacGG1uNBfOx +iz+7HSp7qgZ3kqiTA4D3pxP7rOzdjZBVHNzhZ4rrM7PuHqVrwKQyV+rz/SS6 +dzCjZyFaAxwOfcxTNCdRMn2gnydLA9onktZHYDPOhI1t6NSApcR4XW0LEonU +3+I6aKoJwu94VmRZ4vWjN6lZR9sEPaSwZqINieSUr8QkfdsMHa/O1xU6kKj+ +4rzGD24tqFib2CrliL/HnEsXoaQFXkvq9gnY2U0qGiYeWqBZ5V3HcCKRsk/t +28X3WjB+l3/VRmc8XvaQKvFKG2wVaqKfupFIXm4DoeiiA02hyWI23iTanBcq +9B/ShRW+38+1hJCIzojlaNnowuE86YT9oXi/0lI/ex7WBY28jKmX2CvvPixp +YelCaFsKpz0M77fsUYfUUl1IDWl8PXASn6eZnrc0aHrASHpdKhmF5zfJStt5 +1Ta4uGvB/XUcie4Eq9hWtupDYPbYYmAGidrD0fa4PCN4u+d5p2sziZQ83tm4 ++/8FtaP7Zb/8IBHzz6MH8qcALI3sYlO2DiOpsWo+KboJqHeyHVzChlGo3q7e +VE0zOJhytT6vbhjRJ5ZeiI3ugWO2XYcN+EZQsUkIX07bPijhPV5a4zmCcuf9 +nrLTzaHsym+6Fz5nF3dLv26KsYRG1uct0arfUR/XypkBL2twe6XuUXjtOwpc +fzzlLO0AdDMUXIJ5R9GDoy8arsXbwplHsb/PJ4yiiDmZhU1H7SDDrmqH16ox +xLHY6/T8iD2Yy8slDWSOISO3q7uH7A7CukD2ilKdcfRW5pZfk54DWBj93Wfb +PI5k82PrC9QdQbrpoMhQwASq7te0shF2gmMyni6rRSfRhq5pn/AJJ3jdXu35 +q3oS6V27yr7Xfwi6G0wiw0On0C2eOe3URmcYLsxDYeLT6NHuLZ/ia1wg0K+2 +a4o1jTK3XxRZKnIFbgW+l5N906itJy9B75Ib3PzQ/uDjXzOo0vqmStCZw3CM +PfHL5P4Mmgk4yBXIcIcL9q9vsARmEWevhu+kqQc0lptuWzg2iwomPi6GGByB +jizXU/R3s8j5Tp63u5AntEsGtD02mEPlZZZHViZ6gsKbM5o+2XPISO7tjws/ +POGnQopB0dIcovX7fOo46gU78sX3zDnOo2+Cxw7cHPSChV7HpYCyedSebOO9 +z5EONTsDfDpWclA6K0cwrJ0O97JcE2sdOaj+yZ8f3ubeUGeW+rw/m4PWHoZE +vVpvSB4u4P/Uw0GK4s/b1td7g993H663vRyk02otveqJN6i/cPf5Xx8H2e9y +K/zw1Btmriqfe/QF568Pf3X6f96gmxo3dGGQg2T7/ln74oM3sCwzt0uMcZCK +h1Tm4QVvyOq2Lq7/wUFGnpMF8dsYUOXbZ2+G/5P5N6ZDbAwYwD1rlscvSSHx +zlljKUMGJBxac7wVe3LPQlfBTgbw9ej72ktT+PziWtFqwoDFUHL8kByF1iyI +uIjaMaC/9KKiuRKFvl3WX50TwIC4dZY7GzdTKLku6mh1PgMYsvd715hQKEA3 +w4hVwAD/29Nv2NhWhaWrDYsY8Cfxm76FKf5PZ5CFVcUMyO1x9oo1o1B8sO3o +owoGyBs7bZraS6EoDZVjlc8YYODAG8K2pJBfxiv/ss8MODCyVuSxA4XM15C7 +gvtx3rsPdHNHCqnHcwnrfmWA1sdB1XfYZLB+cekQA3qdXf6MOlHIyyZnomQc +96ctLq11oZAzb0jgw58MkCzgEUbuFNoXIhvElmSCd0/AOx0mhZ7lJFikSjNh +oUotqhJ7V+usCkuWCakm+04aERTSUX310XQDE5Y2WfkhHwrJvI807VFlgmv2 +XjA9SqGxHX2SAvpMyGs5naYZQKEr3Lcf+xxkQgnLRfZkKB7/FqFMa0cmDCX0 +S5PYcW6sYL1DTJCwj/B1CKMQq8J24x9XJsxLxP/UDsf1EyuuXqczoXib83DP +SQrpvaQzmk8wQZEe3iYeSaH3V1UFaSlMMPBw+ov7LIUeIGHfkatM0KzIM3PE +jpuYbypOYwI7AErvY+uaN0UbZjBBPl661uIcnj8u71nrbCao/b55/kIshfYe +v/2RxWbCZr48wdF4CsnLnzcwfsCEmsgwT70ECs2/PJ62soQJKnG3ZaKw76oh +6+RyJjyhvakWTKTQr76+hnu1TBj5zFNIO0+hCiu5gjcv8HiebtpjcJFCST+5 +edNfMsEy3/pjGDa9YNTLpZUJEwNUewX2Op5auW9tuJ7cB6M6SRTyr3O+8qOb +CTdaGC1KlyhE07werjLEhE72R3HyMoV+vj/d+Z1kwlHzHz1yyRRqj2fqPBxh +gvr0KK8ddvTAtlGjcSbEqsudq8H+lNnpfmCOCX0R12Rjr1AolU9kT8QKAnjJ +hMbFFArVz/a5ha4koJC2tlnjKoWG+4qCA3kJqHFdWuGKvavC7DZ9NQHHZd5r +VWOTnqz/LEQIKFmwszqWiuu32iO6R4yA9M6mjdexd24X1UASBASYmhk3YKcI +s530ZAjYqAfrRdNwe+2XUjklAvpXy2axsYk89gsJGgEdU33WHdgpKae+rFUl +IHHEaycHmyTEhHk0CKh2S2zZkY7bxfb5jusQwPfvkZv12LW/xWJIXQIa6TtU +erCHvvdf69+G8xLSyUXsHQ0RjV2GBGSnFcnqXsP72f/BhsdAwHrxHJSFvcY5 +Ur/KhIDyfyv/Lsc2Mt1vVWpGwEdbKZ1X2MkyX0/l7Scgi5m7ehG7mudhSo4F +7s/dbC18nUKDU5H3b1gRsFgp26qEbdgi8e6yLQG9eXYn92PTS7+OJdoTwBOp +keuKffnmQ+5zDrj9Bk3QH/trsLlOuDMBKQsBiZewhT0k9wW5EqBm++hm1nKe ++aC732ECPqmKjBcu91c4neThSYDB5WnDJuxqAYu7znQC/GoCDdqX8ziSNfYM +Ar5mzAb0LOcNDLZZEQQYBp76MrSc11pC7vUlYEsZV9LUcn1Vp3+BHwH5qxOC +Fpfz71qI7/QnoMiCL4UrA+dfltqkH0gAM/Lcdz7sr6xvu7cEEbDjLSdqDbYQ +o9RZIxivn8ojFuLY2w9EH6eFEnCk/omdDDZ9h2WCfDh+vlgkTR77kqr0LSkW +AUYxh9YoYT9aN1QuEkFApsuVRhr2wH+lLwWjCChOqy5TXc4fjh7gjSaAv/Jt +jxq2wVvLxT8xBPiG9RlvxP4//snjeg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6914823515650274, + 1.4119026618639854`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6914823515650289}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6914823515650274, + 1.4119026618639854`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6914823515650289}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk4VdsbB3CJyFCZp2Q4CEUiorrWGxqMIWSIOM7ZJCRTJ0RlqpSEoqto +QLhHGTPWVYb6lUKkAUWyyTydTV3Vb/ljP/v5PGuv737XXsNWoh+3Z3JzcXGN +4Gv5fuKN9saq9jfGJ0OrMnMUSWQ8matPN2MjT13/l8vuzzFIVzGrR+4CiUdu +Y9syXq8S0mtGClz8znewS1kxjbxmrShdZqr8LvaFFumGmKIOtO/IrpBc7Jr2 +E9lLuu8Qd+/UtXzs0U8vo07VfUCyt1avL8SWHaK5Uaa9SK/sAi8b23Iqyiik +9QsK1gqyf4j9ZGlUkFU0gDxoj7nLsbvPSkU+ChxEZFGQZBX25Cqz0XndIWTf +d/FyHfaqS0EuegskiuoW9G3A3iBy68WJuhF0rmIurxnbRo7KnzQdR/P3Fi07 +sInbypJa/JOo+ZdExXvsGNUD8cdap5DV679jPmN/kOraGlo0g5pZPTCBzXD1 +O5p2aRaFlWQYcLCnb3LdKQucQ44S9Vd+YfMra62b0eUgb0Nj/7VKJEpnNO5b +J0GhHObNKWlsxfsuMVsWKCSQ7d2tjG24OWEyoG4RDatrv9mO7WvwpXXUdAkN +/KglCOx5VhiPgNovdOGZL28I9pk6wV0a/L+RQstZvjPYmWD4j0/rHzTTSOln +YTPyXpgFF62ABn5qZzd2UUta/1k5bhDi46OGsKeHPaKuXuIGS4EEMQo7SpNT +XhK4Ei6UtbGklHG9D5VoU7q80Ct2a9wD+1P7+JPf93hBr1zj2Qlsxdkq1zUS +q+BG3cb/4rDZ22xStRZWwe7hUxls7KaaiBX+dfzwxibuFBeNRJzGzi8jpkIg +ROQP1mKLWgmti3wiBAHnItZ1Y+t0mYGwkTCgn4ZlM9h+3ypvb9VeA10qLAdN +FRIFcbfq/CW0Djp2SYrfwR5SfjATT4mAMl/amVxV/H2Il6vb9ERBJCJ4qQWb ++x9SSfqEKIz5WUx8x1bUU7AvGhOFJ8+GtbaqkcjVNKXsTb8YqI3MazZjt3kH +h0i9kgDtZ/slVqqT6PP95CRPfklIOKE9sBl7fKzoXuEeSZAU3qB8CFsgdLBz +Z4MkyLxXWFmMbRbnsM2zUgp+irXv9tAgUW2uAacgRwbSO7jKuzVJlDv0M3xH +qDxwF+8MVNAm0X7HxM8hxfLQfmJwvQP2eJPY3mJSHkTj6rdewN6Wu1lC0WUD +1LXyJc9jN9E9ynmNFSBTWl2kfQuJZqf6T47EKsLsQoPJ31tJJBZgVlFurQyt +Ix7ukfokInMFfG39lOHp0eGueuzq3na5iQRlcK5vK/uNfdjKPVatQRnszVvu +xBrg+jaF29/QpcG9hyyr1O34/aP3p6OlVEBt0af7mRGJHHwEtSwGVCE9LvNF +kDGJULij7qFfqnD+lVP8Y2zN+JztDBk1GK4ryRVAJOK6p2cSbacGG1uNBfOx +iz+7HSp7qgZ3kqiTA4D3pxP7rOzdjZBVHNzhZ4rrM7PuHqVrwKQyV+rz/SS6 +dzCjZyFaAxwOfcxTNCdRMn2gnydLA9onktZHYDPOhI1t6NSApcR4XW0LEonU +3+I6aKoJwu94VmRZ4vWjN6lZR9sEPaSwZqINieSUr8QkfdsMHa/O1xU6kKj+ +4rzGD24tqFib2CrliL/HnEsXoaQFXkvq9gnY2U0qGiYeWqBZ5V3HcCKRsk/t +28X3WjB+l3/VRmc8XvaQKvFKG2wVaqKfupFIXm4DoeiiA02hyWI23iTanBcq +9B/ShRW+38+1hJCIzojlaNnowuE86YT9oXi/0lI/ex7WBY28jKmX2CvvPixp +YelCaFsKpz0M77fsUYfUUl1IDWl8PXASn6eZnrc0aHrASHpdKhmF5zfJStt5 +1Ta4uGvB/XUcie4Eq9hWtupDYPbYYmAGidrD0fa4PCN4u+d5p2sziZQ83tm4 ++/8FtaP7Zb/8IBHzz6MH8qcALI3sYlO2DiOpsWo+KboJqHeyHVzChlGo3q7e +VE0zOJhytT6vbhjRJ5ZeiI3ugWO2XYcN+EZQsUkIX07bPijhPV5a4zmCcuf9 +nrLTzaHsym+6Fz5nF3dLv26KsYRG1uct0arfUR/XypkBL2twe6XuUXjtOwpc +fzzlLO0AdDMUXIJ5R9GDoy8arsXbwplHsb/PJ4yiiDmZhU1H7SDDrmqH16ox +xLHY6/T8iD2Yy8slDWSOISO3q7uH7A7CukD2ilKdcfRW5pZfk54DWBj93Wfb +PI5k82PrC9QdQbrpoMhQwASq7te0shF2gmMyni6rRSfRhq5pn/AJJ3jdXu35 +q3oS6V27yr7Xfwi6G0wiw0On0C2eOe3URmcYLsxDYeLT6NHuLZ/ia1wg0K+2 +a4o1jTK3XxRZKnIFbgW+l5N906itJy9B75Ib3PzQ/uDjXzOo0vqmStCZw3CM +PfHL5P4Mmgk4yBXIcIcL9q9vsARmEWevhu+kqQc0lptuWzg2iwomPi6GGByB +jizXU/R3s8j5Tp63u5AntEsGtD02mEPlZZZHViZ6gsKbM5o+2XPISO7tjws/ +POGnQopB0dIcovX7fOo46gU78sX3zDnOo2+Cxw7cHPSChV7HpYCyedSebOO9 +z5EONTsDfDpWclA6K0cwrJ0O97JcE2sdOaj+yZ8f3ubeUGeW+rw/m4PWHoZE +vVpvSB4u4P/Uw0GK4s/b1td7g993H663vRyk02otveqJN6i/cPf5Xx8H2e9y +K/zw1Btmriqfe/QF568Pf3X6f96gmxo3dGGQg2T7/ln74oM3sCwzt0uMcZCK +h1Tm4QVvyOq2Lq7/wUFGnpMF8dsYUOXbZ2+G/5P5N6ZDbAwYwD1rlscvSSHx +zlljKUMGJBxac7wVe3LPQlfBTgbw9ej72ktT+PziWtFqwoDFUHL8kByF1iyI +uIjaMaC/9KKiuRKFvl3WX50TwIC4dZY7GzdTKLku6mh1PgMYsvd715hQKEA3 +w4hVwAD/29Nv2NhWhaWrDYsY8Cfxm76FKf5PZ5CFVcUMyO1x9oo1o1B8sO3o +owoGyBs7bZraS6EoDZVjlc8YYODAG8K2pJBfxiv/ss8MODCyVuSxA4XM15C7 +gvtx3rsPdHNHCqnHcwnrfmWA1sdB1XfYZLB+cekQA3qdXf6MOlHIyyZnomQc +96ctLq11oZAzb0jgw58MkCzgEUbuFNoXIhvElmSCd0/AOx0mhZ7lJFikSjNh +oUotqhJ7V+usCkuWCakm+04aERTSUX310XQDE5Y2WfkhHwrJvI807VFlgmv2 +XjA9SqGxHX2SAvpMyGs5naYZQKEr3Lcf+xxkQgnLRfZkKB7/FqFMa0cmDCX0 +S5PYcW6sYL1DTJCwj/B1CKMQq8J24x9XJsxLxP/UDsf1EyuuXqczoXib83DP +SQrpvaQzmk8wQZEe3iYeSaH3V1UFaSlMMPBw+ov7LIUeIGHfkatM0KzIM3PE +jpuYbypOYwI7AErvY+uaN0UbZjBBPl661uIcnj8u71nrbCao/b55/kIshfYe +v/2RxWbCZr48wdF4CsnLnzcwfsCEmsgwT70ECs2/PJ62soQJKnG3ZaKw76oh +6+RyJjyhvakWTKTQr76+hnu1TBj5zFNIO0+hCiu5gjcv8HiebtpjcJFCST+5 +edNfMsEy3/pjGDa9YNTLpZUJEwNUewX2Op5auW9tuJ7cB6M6SRTyr3O+8qOb +CTdaGC1KlyhE07werjLEhE72R3HyMoV+vj/d+Z1kwlHzHz1yyRRqj2fqPBxh +gvr0KK8ddvTAtlGjcSbEqsudq8H+lNnpfmCOCX0R12Rjr1AolU9kT8QKAnjJ +hMbFFArVz/a5ha4koJC2tlnjKoWG+4qCA3kJqHFdWuGKvavC7DZ9NQHHZd5r +VWOTnqz/LEQIKFmwszqWiuu32iO6R4yA9M6mjdexd24X1UASBASYmhk3YKcI +s530ZAjYqAfrRdNwe+2XUjklAvpXy2axsYk89gsJGgEdU33WHdgpKae+rFUl +IHHEaycHmyTEhHk0CKh2S2zZkY7bxfb5jusQwPfvkZv12LW/xWJIXQIa6TtU +erCHvvdf69+G8xLSyUXsHQ0RjV2GBGSnFcnqXsP72f/BhsdAwHrxHJSFvcY5 +Ur/KhIDyfyv/Lsc2Mt1vVWpGwEdbKZ1X2MkyX0/l7Scgi5m7ehG7mudhSo4F +7s/dbC18nUKDU5H3b1gRsFgp26qEbdgi8e6yLQG9eXYn92PTS7+OJdoTwBOp +keuKffnmQ+5zDrj9Bk3QH/trsLlOuDMBKQsBiZewhT0k9wW5EqBm++hm1nKe ++aC732ECPqmKjBcu91c4neThSYDB5WnDJuxqAYu7znQC/GoCDdqX8ziSNfYM +Ar5mzAb0LOcNDLZZEQQYBp76MrSc11pC7vUlYEsZV9LUcn1Vp3+BHwH5qxOC +Fpfz71qI7/QnoMiCL4UrA+dfltqkH0gAM/Lcdz7sr6xvu7cEEbDjLSdqDbYQ +o9RZIxivn8ojFuLY2w9EH6eFEnCk/omdDDZ9h2WCfDh+vlgkTR77kqr0LSkW +AUYxh9YoYT9aN1QuEkFApsuVRhr2wH+lLwWjCChOqy5TXc4fjh7gjSaAv/Jt +jxq2wVvLxT8xBPiG9RlvxP4//snjeg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6914823515650274, 1.4119026618639854`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6914823515650289}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.6914823515650289}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.6914823515650274, 1.4119026618639854`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994252591342145*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"39568f7c-cb6e-447c-89ee-811a8b53d82d"] }, Open ]], Cell[CellGroupData[{ @@ -9545,465 +10604,1063 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.9918507211663303`*^9, - 3.991850725479061*^9}},ExpressionUUID->"f4c3d53a-1214-a145-beb0-\ -494cdae35e56"], + CellChangeTimes->{{3.9918507211663303`*^9, 3.991850725479061*^9}}, + CellLabel-> + "In[119]:=",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"b9265795-17b8-4e47-bd29-fee31586537e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8175730114849218`*^-269\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 41, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994252591549508*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"f791b692-aa30-474c-ab9c-668acef34d5f"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"072fb53f-7116-0f41-a298-6891351a3192"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1533754235781701`*^-280\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 119, 42, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942525915594893`*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"c1f6fc74-1dae-472a-afed-5aab99e68e45"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"7f686ca7-db7f-0b40-bbd8-c08a80d2c198"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.318962480782628`*^-292\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 119, 43, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994252591567301*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"aa633aac-02d9-4d77-9983-0811907742c0"], Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"3aaeaf29-5b60-ab47-b674-24d071c511f8"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.0634921 0.0147151 5.37313 [ -[.15079 .00222 -3 -9 ] -[.15079 .00222 3 0 ] -[.27778 .00222 -3 -9 ] -[.27778 .00222 3 0 ] -[.40476 .00222 -3 -9 ] -[.40476 .00222 3 0 ] -[.53175 .00222 -3 -9 ] -[.53175 .00222 3 0 ] -[.65873 .00222 -6 -9 ] -[.65873 .00222 6 0 ] -[.78571 .00222 -6 -9 ] -[.78571 .00222 6 0 ] -[.9127 .00222 -6 -9 ] -[.9127 .00222 6 0 ] -[.01131 .12218 -24 -4.5 ] -[.01131 .12218 0 4.5 ] -[.01131 .22964 -24 -4.5 ] -[.01131 .22964 0 4.5 ] -[.01131 .3371 -24 -4.5 ] -[.01131 .3371 0 4.5 ] -[.01131 .44457 -24 -4.5 ] -[.01131 .44457 0 4.5 ] -[.01131 .55203 -18 -4.5 ] -[.01131 .55203 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.15079 .01472 m -.15079 .02097 L -s -[(2)] .15079 .00222 0 1 Mshowa -.27778 .01472 m -.27778 .02097 L -s -[(4)] .27778 .00222 0 1 Mshowa -.40476 .01472 m -.40476 .02097 L -s -[(6)] .40476 .00222 0 1 Mshowa -.53175 .01472 m -.53175 .02097 L -s -[(8)] .53175 .00222 0 1 Mshowa -.65873 .01472 m -.65873 .02097 L -s -[(10)] .65873 .00222 0 1 Mshowa -.78571 .01472 m -.78571 .02097 L -s -[(12)] .78571 .00222 0 1 Mshowa -.9127 .01472 m -.9127 .02097 L -s -[(14)] .9127 .00222 0 1 Mshowa -.125 Mabswid -.05556 .01472 m -.05556 .01847 L -s -.0873 .01472 m -.0873 .01847 L -s -.11905 .01472 m -.11905 .01847 L -s -.18254 .01472 m -.18254 .01847 L -s -.21429 .01472 m -.21429 .01847 L -s -.24603 .01472 m -.24603 .01847 L -s -.30952 .01472 m -.30952 .01847 L -s -.34127 .01472 m -.34127 .01847 L -s -.37302 .01472 m -.37302 .01847 L -s -.43651 .01472 m -.43651 .01847 L -s -.46825 .01472 m -.46825 .01847 L -s -.5 .01472 m -.5 .01847 L -s -.56349 .01472 m -.56349 .01847 L -s -.59524 .01472 m -.59524 .01847 L -s -.62698 .01472 m -.62698 .01847 L -s -.69048 .01472 m -.69048 .01847 L -s -.72222 .01472 m -.72222 .01847 L -s -.75397 .01472 m -.75397 .01847 L -s -.81746 .01472 m -.81746 .01847 L -s -.84921 .01472 m -.84921 .01847 L -s -.88095 .01472 m -.88095 .01847 L -s -.94444 .01472 m -.94444 .01847 L -s -.97619 .01472 m -.97619 .01847 L -s -.25 Mabswid -0 .01472 m -1 .01472 L -s -.02381 .12218 m -.03006 .12218 L -s -[(0.02)] .01131 .12218 1 0 Mshowa -.02381 .22964 m -.03006 .22964 L -s -[(0.04)] .01131 .22964 1 0 Mshowa -.02381 .3371 m -.03006 .3371 L -s -[(0.06)] .01131 .3371 1 0 Mshowa -.02381 .44457 m -.03006 .44457 L -s -[(0.08)] .01131 .44457 1 0 Mshowa -.02381 .55203 m -.03006 .55203 L -s -[(0.1)] .01131 .55203 1 0 Mshowa -.125 Mabswid -.02381 .04158 m -.02756 .04158 L -s -.02381 .06845 m -.02756 .06845 L -s -.02381 .09531 m -.02756 .09531 L -s -.02381 .14904 m -.02756 .14904 L -s -.02381 .17591 m -.02756 .17591 L -s -.02381 .20277 m -.02756 .20277 L -s -.02381 .25651 m -.02756 .25651 L -s -.02381 .28337 m -.02756 .28337 L -s -.02381 .31024 m -.02756 .31024 L -s -.02381 .36397 m -.02756 .36397 L -s -.02381 .39083 m -.02756 .39083 L -s -.02381 .4177 m -.02756 .4177 L -s -.02381 .47143 m -.02756 .47143 L -s -.02381 .4983 m -.02756 .4983 L -s -.02381 .52516 m -.02756 .52516 L -s -.02381 .57889 m -.02756 .57889 L -s -.02381 .60576 m -.02756 .60576 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .01472 m -.06244 .12073 L -.10458 .23188 L -.14415 .32802 L -.18221 .40977 L -.22272 .48259 L -.26171 .53704 L -.28302 .55995 L -.30316 .57709 L -.31285 .58377 L -.32313 .58977 L -.33276 .59437 L -.34157 .59772 L -.35098 .60043 L -.35617 .60154 L -.3611 .60234 L -.3633 .60262 L -.36564 .60287 L -.36785 .60305 L -.36985 .60318 L -.37108 .60323 L -.37222 .60327 L -.37346 .6033 L -.37477 .60332 L -.37591 .60332 L -.37698 .60331 L -.37815 .60328 L -.3794 .60324 L -.38062 .60319 L -.38197 .60311 L -.38469 .60291 L -.38721 .60266 L -.38958 .60237 L -.3949 .60153 L -.40064 .60035 L -.41114 .59744 L -.42077 .59396 L -.43969 .58496 L -.46039 .57209 L -.50095 .53905 L -.54 .49958 L -.58149 .45213 L -.62148 .40358 L -.65994 .3563 L -.70086 .30723 L -.74026 .26259 L -.77815 .22302 L -.81849 .18514 L -.85731 .15313 L -.89859 .12393 L -Mistroke -.93835 .10033 L -.97619 .08171 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJzdXHmcFcURfriXisohiYgk3OxyH8t9ihpuUAQBIRiWS+QQAgJKAEVQETAg -5ieHoKhRMREP5BBFIsagGBWjUcSTUw3KJcihYmeqprtq5lk1szwf/kz+2Lcz -1fV1fV19TFd3z3QpuG7o4JEF110zsKB8uzEFo4deM3Bs+bajxniijCKJRJFt -3l+18olM79okEqGfOeaE2Q4/3rUx35vt8HPy1wX4L8MMHjzYlCpVyjRo0MC7 -83+LFi1qvvv2O9Soj7/ZZsniJZBqqlevbs4991y83vbJNj85yyyYv8DUqFHD -VKtWzQwbNswc+foIQb86+JUZOnQoQho2bGh69OhhdmzfUctCd+7YiUku9xIl -SiROs0xm3j4TtFDzNKs/d85ck5uba/Ly8tDU9ye+T+TG5pUVzMuVOpEplLhK -SrxUD5UP+9sruKlbt65Z8dQK786XNWnShKw3sLI3N79p+vfvH6qDB+5/wHTt -2tUc+uoQWr/xxhvBsX5yjunUqZO5Y/YdVMjVq1ZjnRw7eixRJ5At+N8vop/t -2mfWmg4dOpivD39tvv3mWzN8+HBz+4zbqwuQzEKWIk/Ani6UrILvnAE2ac9/ -9mALue/e+6xbM8ycP3qN/bsTeFfXZnThhReim4EC/EFzKFmyJF5/8vEn9axD -qlatavZ+uZccAtmUKVPGHD923GaVYT7d/Sk2Wv/O/+3du7d5Zs0zeFc7wnHt -2rVDucsfGnrFihUlx2UVsoSS4zILV2rb0AbaHPbv249VMnvWbNuoss20m6eZ -eXfOI8K2KuoHyAEk6It69ephT4A714ignLVr1w7p9ezZ07y88WXVZ67lQAu5 -4IILsNc6bIsWLcx7W95THZAtFKmmakMtZkXfQYMCpWjatCloJvItEnoWlAy6 -guCgjf/YiA3IU6PaO3jgIMq8Gky4hgfNe9bMWUTg6RVPm1q1akHhxZ7onPPF -ni+wNoOOveqqq8y659apzskRilMjwjlKEa1zBgdKBYyfX/e8dY4/8LpSWVTC -jT0bXthgSpcujWPQRx9+ZD7/7HPTq1cvM33adBq+oI23atUK2yx47Pzzz4fu -VzfCIV6zxkIFHQKPkiefeDJ2nAkWQe+ScrGsN4ZY2KubXjWNGzcODMZZMIiY -/Px89GfYG9nYYWBQgUGkbdu2pmXLllAvrpXNv3u+ad++PZYOqnzEiBFmwoQJ -UY748osvxZbhFU51xBkC+2oRjpBKZB1xtYVB1Xk9N+CITHPvknvNLdNvcZB8 -q1q5cmWzfZs/22hoW0m5cuWwwK5fQFYwSHttMbJfaIPG1ve2qqU/U6CsDy4/ -KIYtuHtsv/7a6ziswJ3r+fBoqVSpEt7l21yAabNmzcwLf3sh6IxFCxdhu2Vn -ZGAX+Ob4N6EsoWPu2rkL72raLO3I6EhnW9bQgDa/sZl8Cf3f83mejMoqZDly -ZXiOXLyQk3LMu++8i6V6du2z2NlhvO7WrRv0Lir1Y399DOcw0Lic00AX9MaO -HQuDh3taQbe44YYbXO2Zh/78kGndurWbN0KXAC7du3c3S+9bCjQTzjnAADoe -NGXwMcwTvalRbgQ0qxCFiMKfLhTQ+meAZfXG62/gnAEGPniQw4PfK1wji4QJ -o5sYNbCWIPf69evDtAL/Xnn5FfuUyTZHjxw148ePx0YDj+l+/frBI9x1pBc3 -vGg6duyI5HJsdnfOvdNUqVIFpw4jR47EDlVN0M+OZixBzhBKYad3WgxSy0Ig -rLHN2E9/6n8jvaIv9ZLXw0+RKCnmdRoIzhJyLXoyMs5FvTr7x9r4KWT/p+z5 -qmhy1Teiq8ZCtg01WYqI3J+Peaujd62EmJ4ZTKcsnpRVnFoqKuEynEZKTwSV -skL5hFg/kVxWf5riAL7S4xFKlNPjUbR+KMPfx2IwXJ7l6dDM0Hj8NQbDuUcw -ztRy/8spwDCjCO5ZWu6P/kgMJmeFefwlOT1by2mZbj07nGcEz8Jr5mg8HonB -cO4RjE/Xcl9IWRRNAT2f3HhWDJpZ3k2Yc3TMGZrFeYQungJ6LqFLxqCZ7xzC -lEpuO2dqdmaRyi9FDOc+kxJK64ySMDMIU0bHSA9W/J1O6LIxaLY4nW5/rWOk -iRf+3kQWy6WAnkLoCjFo5juFbv2wK3Jx2x9LMjGQad68OUbWO3fszLYQWAKA -dQ4IAyDm8UIAGqJ379qNNr20hFvdh/n/pEmTUEMaXKTZF/5OJNL+EnnC79/a -+jHxhvgSFtghQy9+caunsPJas2ZN5AjZPPLwIxBMuLHcywFDj8OHDtOTD9ZT -UqJ+PdVRVUvdf/TaFVwyYFdwrWd9GfB0Cw1Odtutt2FVwZ3DBlcxMyzFhQsW -4voVBIxgb8u7W8yqlauksfTscAu5nm7ziHHc2qlrolAquzRA7MBtsEljAo/L -Bx94EGtg185d4pB0jubO64hcdSIXt3bpyMGOxIH9B0LkYO3F1atz8bJHlqEu -NGccoXEal+SlsVSvNYhI3JqhIwKLUbDkFSQCRkePHh1qYIvvWWzatGmDXpcq -7pwwpTF0W4soxa3eOUpQGZJvJk+ejHfOPMTca1avUftBMa3iriVydWJblWvz -jlxgwSnUqqCNB8nBFpRbYlLJsb+YUt1Q17TmQl0TRr5gP59x2wxckkjuhu9v -fT8kswtLIdmoUaPM/UvvV2kW13w4jNpcPUvYHwaVNSfbi7LNZ59+hg3aLori -claXLl0yrfMKCgpM3759aX0U6heG6n1794nNTuV3DTnUX1+jZ4u0+FPMpq1/ -fj22PiAInvdY0I4BNBCoUOgwFSpUwDV+r3FIk67i4bplKv56lvhoLKEVZDCh -G8Wg2SJjGuuYkprFAqraJimg+5PtZjFo5vs7stg8gEHBuZqd31IWLXU7Krov -oVvFoJllHyLVWseU0iz2oszaxKDZImMu0jG/0Cz2IPTFKaAvp9JeEoNmvpfT -bVsd80vN4qWEbpcCuiuh28egmS9jOuiY8zSLHclDHZNb7XlhOx3ptrNup7Rm -px2hu6SAbkvorjFo5suYS3XM+ZrFiwjdLQbNFhlzeaExbei2u44po7FsRege -MWi2yJgrdMwFmsXmhO6ZAroZoXvFoJkvY3ont9Cymp3GhLlSt1M2bIcxfXTM -rzSLDQjdNwV0PqF/G4Nmvozpp2N+rVmsKySkkk9tYtE/Bs3MGeNvN6Y7ZHZp -sFMOe1jFixdHnYkTJ4rzr3Ja4WoQUX/f79SEyW72ddlll8EpM7xTabIXmdxA -Sy7dgXB2MCTFP9gsLlmyZAaEQB6kWLFiuJc4YcIEkXF5zbF5xH0QcU89JM4J -hsT4B5EX1PjRI0fJD3HuVcnmEtnBRDZdIbJzNCyR2PAH/yxZjpaTKp85DSFO -6YqWHacjXx/BMh4+dPgHnJL8VEHzXWXieTXxTFcInWGbL5zBgfAxwFFcRq4Q -dmEVQYWdma5Q2pGEYaJRo0Z4lCmKZEXNk1IC+9SkKczOtL8Q0U69aWpUnatM -pcYw1DL9UfG1O98Dp0jg9Bn8RZHjuuaqH+YTSTWQdgMHHAOEzLVqrKQ5hx+F -w30m0vOyUpg9Y0bomMqaRZ5OjUwBzZPHa2PQzJcxo3SM1P3wl8OO0QE0KlYJ -22HN3+t2qmp2OEwdkwKaw+qxMWjmy5jrdEyuZpEXZMbFoNkiY8brmDzNorRo -HGE7L2xbQkewqKax4P2h61NA837WDTFoZs6YiTqmumaRd0r/kNx+q4ftsOYk -3U4NzQ7vek9OAc27+FNi0MxX2puPsF1Ts11ESIhgUTPMogjd3qRjJNkJAk49 -OeB3BLw5BohKrD5NV68tyI4TcHoMEJVY/RZdvY4gOyrIghYxpQ7lLqlHWJQi -y8OU2W0nBzxEwBkxQFRi9dt19XqC7AABZ8YAUemgkBphsb4g2yfIImxLWewl -PrN9YJrjaHeaHF4R6ty5M2YHc1gvChQnPfWJDzO7w2d2CveXczAn4A3TSkiG -QAiK7/0XI718QbaHGP/RMj6128pOBq+ajRs3LiSDF17ghTC/8Ap/5Mqs5xDr -dG0tOxk0IPcKlZM99eRTZuDAgcwQY1TJr58LMvZwesPoDGy59r05kkG4OHvW -bIkrek5iyN5Mb1Cdg9vP0DbhNDgE1qtWrsIT+/v37RfbqnQwczdxv5N4piuo -dsE/1O49i+7BvVVYQ+vTpw/su0rdns+JMrF5sc3xZANpJ4M3J13Tkw4eNRJk -O4jXXaHOnc6N6WNHj+EA6jlJ54UcmM2fQoNjilGxGzuhpqGmVj69EshIp0Ck -k7/bBJn1UqpBsnumwHAN++DujQevDYltnFfeJTLWSS5Cda+QUHdOUm8iyD4i -A3f7mUlPWAn4IQHnxwBRidUX6OpNBdlWAi4MAFGnKSW9LwAXJKs3E5S2UBaL -dFq8zcLq9+jqzQXZvwm4OAaISqy+RFdvIcjeEmQRFluQHQkYYbulINtMmd0X -A0QlVl+qq7cSZK8R8P4YICqx+gOFVk9KDdrBlNaC0ibK4kFRHZNY6c86mQsF -2UYCPhQDRCVWf1hXbyPIXhJkERZ5j1YCRti+SJBtoMwizlDzTjKrRxzovliQ -rSdgxMn5i0mJ1SOOz18iyNYJsgiLl5CddXQVfIUAtX8jANeS+nJRHZNYKeLl -i7aCbDUBn4gBotIaITXCIh9+WCWkRlhsL8hWUGYR77a1J6UV4StZvYNGC4FP -+8BTFF1CbAETKpi7wI7tooWLxOiyQ7iK8Gqlz+yURpebXtmEyRAFQzLs4MCp -TW/WLM5mOgqy5YLMevUnijOHDBliHl32aEgGOu4jEdJUik/8LE9qwKcizoT3 -g8H1QRm8wQt4jWEnbfBBrquJa3rjzBzz9ltv40qIm4oDBtq1NyX32wTGmOw/ -5rSGOKUrsnQ7jBA+ZGRkYKvJycmBFQSxH3UmLsvo6hlild44MgeDGdCFmoVr -+LoE9PSPP/pY7D1dBNlDxHNtbOtLNawE7vCWelAGazOuPFLr60K8HhZS2acm -zaHmXfPuws3ZoOzx5Y+bQYMGqVy7CrIHif+zlmtajj/DIQv4ZMaHH2A8hE0K -ngleZxOrnA8wMqHnfEKpRqDu2QJfeYFd4jp16mB/9UZAsU9cKsiWEhl/jBAf -nHzck9Wf19UvE2RLCLg+BsixEl79TVfvRkqLhdQIO5cLsoWCLGgbU/jULL/m -t0G3012Q3U3AF2OAHMrj1d919R6C7C4CvhQD5CUjvPqHrn6FIJtLwI06sKcg -myPIImz3JDsSMMI2n8y+g65e0dV7C7KZBNwUA+TNFbx6VVe/kpRm0NU/k9tb -H0q6la5e0/PsK8imEfD1GCBv5uHVG7o6H+ifSlebdfV+gmwKAd+MAfL2LV79 -S1e/ipQm0dVbuvrvSIlfFHxbV+8vyCYQ8N8xQFRi9Xd09QJSGkdX7+rqAwQZ -v9K1JblFDaAkVnpPz30gKY2mq626+iBS4rek3tfVBwuyEYIswiK/PyMBI2wP -IeAwIfUDHXg1AfnqY119KCkx1U98dX/2dlKhphNDaOa+9ehNg91nHuELZs6w -9Eb/NVoDCqxL23V99TOLSpzpJhx2uod30iRE8jb3kO1hCsoHC93ULxgqFtb+ -cEHGA8cO3757Dz0u+it2MkbRAA9pu8Km4oI31RQGYWyAh/LdYQNxkVhhyzKS -DPAj7NOwqbjwqrCmeBDhh/hnhash1ywKa2oUGcA5ESZ+Hm6MygfMzrH9AV6V -dkmeWPqUAY+hPJHcEzaiRCXOyIABA3AxA7amK1WqJBn5PWXN0+kvwgOOHmhk -YDwDzaJs2bLi5xjGkHs4MPzSz14a/vjN6050tVdX50cer+3t19XHkxKvWh7Q -1fn5ezGV4qCuzi/h82r8oYB6Rnju0JJkh/U8/0DqzUj9iK4+mdR5+/CYrj6F -8synq+O6+k2UZ11S/1ZXn0pKeGQOB54Tuvo0UqpKQEwpomNuJc2KYUyGjplB -dvAQcBZhsnTMLNIsFcacrmPwQMcZIMqiK0yJ+FQLhlVnk2aJ5NaD0p/J1+Hi -0vE65ivdiSL/BdTcD9k=\ -\>", "ImageResolution" -> 96., "LightDark" -> \ -"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-1.6168853824798513, \ --0.009969067956413457, 0.059164187941960496, \ -0.0006991192353860321}},ExpressionUUID->"fb5ee406-78d5-a849-9c81-\ -3ea500ee883f"], + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 119, 44, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994252591575758*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"b9397acd-4691-4073-8660-777564639317"], Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-\ -87bc9c72594a"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8Vf8bAHBfV0iRlZVxz3WRnREZt+dJJaNs2TJCU4MUlVVGaSBJIiqU +iHuEEuGLZERLVtHSVwmRlVvyO7+/zuv9Oq/P+czneT6H8DvgEMDNxcUl8g8X +1/+fs4OtTcykvPWrwcvD98GG9V3XpcI39MaCQHLtwHakA6587ifVmwohZSFZ +OrgGwuzu9tB6b0JkEe2aFCKIjEumzveUwUSb65WfYAfva2wOTPc0wFOnT0nh +4APmzJGByZ5X4FNbvJjHOgjzPYaXJ3o+wSeh25meBtHQuPF23subU/DX1v+D +WWMyyL6v+s9PYwEWgwolxq9mgPi+HXf5NtLw1EbJOyJTOZCqY15t48yPKXtU +6oIe3IK+jDX1k8KCGGuQNvd2vACS8qKec0uL4Gx8TcOo6F2QTPt85lK2GHb8 +7PiV+KQYpNQrTv8qEEOBZk5md2cxyDTER3mxxZDTyX1KvrcY5CdUj6g0iuFZ +twmF7JFiUNp60Kf6qxie+vZ4n/OKe6DHs2DwWU8c5zKMnUiXe2AbKjGk2yaO +M6faOoWG7kGCk+X6V7Mr0XJO3VrtewnIlHfKcP8jgec4Zz3uTpVAiZjTnM4y +CbzAer5L8U8JdL/yZqcoUO8DQ8O4BEuBaR/KsLeQQBrWbg7UKoWGbTm8L65K +4Pkp2/n3B0phwXyms8NUEqvuVgXEj5VCckFE0YK5JOL4eCJzhmrPy5WoaS+J +H1r2pVT/KYWtTwQ2nA+QxEelf1VGlrAhcyP9/tYLkng7S9i4V5wN69D6Svt7 +SSyxNwxZqsuGEKMbO1pjpTBBxKWidjcbrHKFpq3PSaHVybcXPu1jA4PvRGLn +ZSn8kChpRTvIhhdd28nXd6TQZ9g2wCSMDVoHl9MGO6VwbkBVIz6WDV8Ljhb8 +lJFG35kf3+Iy2eApbjO26r40NjfVtmu2sEHveHXM9RppTJGqrxlrY4PAp9US +RLM0nt0mc+FuBxuqSmmg3CeNx5LGXsq8ZoOEdVXymkVpPFP8cvDNANV/DFN/ +s7UMShM1EpU/2bDpByci+LMM8iTWhSvIkBBukab276gMLj/VVXlAloSSG5r9 +YrMy2GNfM1MjT4KUk49RFf8qLJ9ICLdRJGH04ZM5mtYqXOHWk7VNg4RLscmh +V4+twpaXXiE1LBI+rVQObhKUxV189mle3iRIHqiTk5SURVlDLw8bHxK2trh2 +7KbLoteyn6qmfiRURiRprNCTxcqvtwaFAkk4+35ixM1VFh+t7i9O3k+CbmF1 +0I+bsnisqFWc9wQJMab2vjLr5DDLpPdvVToJFt7XfxqayaHOK7pFcAYJQtHf +TzlvlcOd3U9kFTJJyGqMK0j2kcMDS/t2h2WT8NDq0XfeM3L4+KN1zu9bJEy4 +KoZN9cmh9QfVdz5sEh5EHOQTGZLDVMEzwoMkCZFZjzO0xuUwYCy5x+U+Ccs/ +uFTv5pbHIuKSwoZKElSCznF9UJNHrsHA/JFqEryPzJx9dlweR2nDv682k6B0 +xUx2JE4erbskMz48/f/6XbzHlyyPciu3PldsJSHij+oLszx5vPZ6Xji3nYTL +p7xXVj2Tx9lxmDzwgoRnKU9z8uUUkMU5dnt/H7Xe98V1GlUUsPfQ53WR/SS4 +v/Ft+KCjgIySsuCktyR8lfoztMpcAfm+clqvDZBAy12jlhqsgB4/Wu3SPpJg +XHK1PLJOATtVXbW/fCVhU0/nwniLAoYsyjeR30iw4eLZsuOVAkp/Dj9yfIQE +f4fgPviigF4BjDW8oySYHyeiopfQUen9kPj8OAntK2purROg4/lLY9klP0iw +y9veMiFEx0AzAQvfCRI8OpJEfKXo2KfR8U/tJAkHFWZvbVCnY7t//SrnaRJm +7ie3zGvTcbNE0eMpyhEW6mOkPh1/HXGJuzhDQtwhHwPGejpORLsl1s6SkNnY +1sJtT0ebjuH9nF8kKLgGjD1ypmMSrd4mdp6EvNFFkRB3Or5I1Xfn45BQunKt +x2d/OmrC/in+3yQ0BeWMNYbR8UlPFo78IcHyj5HoieN0DOV7neCxQEJncpeB +fjT1/Z3Ff1sp91Utjc47Q8fahd6T1/9S+2uTl+d5gY7WEmEJPIskDH1a3yp+ +iY4yYlaNQZTHl4WKxmXR8WCXTpcSVxmE5AoZsm5Q71+l3Y2m/Eu/0GMmn46H +lToqeinTvAfzAkrpuHDRf3/0P2UgxbYwNG+go39zV0gJdxlkb/rs8beZjjUy +SbQpyoy+k9GV7dR894R06NPKQJP7fqvyGzqeeJwmyqZclr5tfLCPjnN1Ghe/ +UV6n/lX0yiDVvrrcgs5TBmZOcp58X+koUul2JI7y068PoutG6Xi9v//bfcpb +TzrkH52kY9ZG8evvKb8SGWvVnqVjSVZVKv+SMnApSBgf5tBRTj+qRYvyO2OG +WO4iHfdwpNGBst/zGkNXHgJHYoBzmPKwv4un8FICt/7Nn0umvO/XZHSLIIHM +TTxGxZSNDwVK/CdKYFBkYEkzZf6R/iKaFIHNHJ4fA5S7/Ww3EHIEWoq2/56k +nP+2sXs9g8Br83lvuHnLINRp3T5PFQJ96qNOClM26yj+J0KDwDQ7y2kZysLm +xJUrOgR2758wZlAerL2sUWFA4L/lOx2UKRcbCjS8MiHQPjPdRIVyBDvSZQIJ +ZOw9OsekbKE6NSpoTmCP1Xy8AmWJm0Gx6tYE7tFb8V2C8pDMO0lLOwLDp4uZ +yyiXXbK7F+hMYInuU/0/1Hijlz8xO+1O4GKgo+wIZds4o94bOwgUH9zyrouy +/N97++t2Epj04NqRGsqjYQzawG4Cvb+Yf8ul/OhHegYnmFovdbN1sZQTdy3T +kgolMEQuwd+H8vaPUY1rwwnUJIT3mVBmuk+7OkZS893T6yBGud564NSFRAJ5 +iiXrqqj9vNBkL118nsCr4mfMEyl7sppLWlMJHLilxXakPK9V2seTTeDQZzGt +j9T5abmteIBxk8CMIKdNtyin0zN48DaBkZVt6EdZVzRG+zhJoMJS/4lu6nxy +Jc00ZVQS+F79XP45yp20Pe6V1QQe2T6/CSjvnXGIm3xC4IHkSvNr1Hk3Dn4q +s6KdQM60WNEmyvzDJmyNFwTaCrxYGKHiI6+X+Taon8Bcv4TDWpQP2189GPee +wGGZ9PR2Kt6wTZD31hCBSvvV7gVQHqieXTM4TmCNrFhlMhWvEjkt8U40Bgpu +c3NqoOJ9SJIle5ifgboaPGpbKJclk+RFQQbaJRRwWqj8YBub+a5NkoEq96RS +Gqn8kRiwT3eDBgN53Z6x06h8M68uPKjpzMBClcyS21MkzGbLxOi5MzB/gP1u +8ScJ0yuUmEY7GMhVflbXmfL4lNGeTbsZuCun1m2Oyoefqv1n3U8ycFyk/b40 +lT/brB8IJeYz8Pnqm3E9wyQ8ffwvef4uAy+bFJRyU27SfuZ0qZSBIiEpour/ +kVAr9jHzehUDp6uPJ4QMUeN/K6BS0cFA9SnnrZ8/UPlxrzd8mmHgv8F1RkDV +iysDuz4NcxgYZRoZtr6XhDTbkLixRQbeKfu4YNxDwgW9xPZfSxXxxYz0pPob +EmJ/ky4r5BXxawDvmTGq/uxNWnLQ1FwRv+/ZFjlB1S/TouLc9HRF9CywT1+g +6uFbelHO5muKmHcrO7SujMrf6YXXp3MUkcYUlYqi6ueDmIIsh0JFNNF2LJsr +oeq5a26GUI0i8vzwtu0sJEF1SVpy/EdFXHtrBa9oDrVfO45Hh2kw8eOEsTUn +gYSKrvAoJR0m8hEfy8PiSXCyOhbZtZaJXkWWtMnTJKSuPXJCF5g4enKPw/sY +EgSXHzg2bs9E+uV13TePk8BT5Xcw8CgTw2uDXJqDSZgUtfLZ3sDEb+v6dsc7 +ktC7j/Fiz1Mmxqk5cTLtSahv5kDUMyYK6qsa3rMlITmiSOFONxOzrupVt1mT +sObT8vfzI0wsi5URHdlIQjD53CtbTAlzFJuVq/VIGLF19hjaqYQFLRaubBHq +vJ3z2X6YTxm3aMsr6z1lQ/CIBmPNcmU0zbQMH25iw9yW+bExYWWUkYsRyWyg +7ne01LjdMsrod+naSs5jNqwJbyz30VRGpr7hufxyNpwMUBazdVTGRiddnaIb +1H1v/ehz9RxlpI8t2oVHsMHyx1HLLwYq+O2ow2cfFTaM+vOHlEetRvErmhyX ++hLqf0OSO6FBFSNLshPCqPu6aIfyBfYPNezYZZ83vKMIZBNL7QwMNFCyfrMY +ebQQMtSNhMWCNNG/qD/XMf82tMlsWDuVooVHhrI45/rywVi2IVm7WxvPL49c +ovH9FgjRbob6xq5BqiwUf1O5CfIxCqZuyjq4+oZmTaRtLixV8qx0eKqDqp2r +7u9VywYtlnTpUS9dLA+ebmfJZ8LhQdFGKy49nH2aish7BX5MnXO2zNDDNo7B +lzeuabBFuznTUlMffxXe5+IdS4HaKZPfc536SGvYIH1W6CIEa+j2vwxYi5PK +v0/4cicBa3xnl9tSA6zgUsMK0QTYzJTaJnjTALN05FvKOk7B6uizxxoMDfHn +KoEKlZloUAswqlPqN0SW5YNuvcgTEFC763T5oXUomr53+6GVx6Aut2vn5Eoj +PN59cPe7qRCYvrM4p/3ACGfyZ4zJEwfBX6loaeY2YzRyTT61K2QvTKpdMiib +MEa9vX8miR2B8DDv98eZRBOMa2pLzfb1A4ONoXNWSSYop87+aeHoBxUfR5fn +njdB8yhf3r+b/KBMftDQKtUEY7er68et9oPijPrz16+ZYA73awm+CV/IPRdn +tKXEBF1prbu7on3hTOiKlIzXJth7w0n9UKEPuG+iYk/eFCu8X09qq3vDQhe/ +UCPdFMfKmix5RLwhN2D8rZWiKTqlx8eMznrBf/FVR91Xm+LhLPcdvxq84HCr +bWm4rikKmQSf/OPhBWdtTsg/NDdF3tZXWUUpnvDI9c0f/QOm+O/gJiP7ZR6w +an9ClVa9KX4zGa9bvdYVLiwGrk1qMMXakCUMfsIVuFPNyeEmU7Sa0LCYXe4K +I5VLCnNbTTGztq3m75ALPOI6nSH62hTvXB3eWnfZBdzToo/OfjFFB5ap2dz8 +dsioDl9bu4yF7/4zEV/S4QwrBfaR21woaytZVF1zhLyNJyMm3FiopjU9IX7G +EXRPXth4yZOFhx5sdI0OcwSbCfabXl8WElserI23d4T47pl5/30svP4lbHor +vyP8uhllFhHDQoPC3b01xxyg3+TS64IiFi6P2qnQv9Medh3Jy7IsYWGQwTMf +KSd7mC2pCBhls3DZCwPegI32IMrondOpZGGDhpmjKsMerPnlZB/Xs7BFvPiV +5wc7qOkq2Pn6DQtlOVJegTvswErooWZYLwsLee/R4m3toHdL66zUWxamZcTv +vg92MP3oe6L3BxY+FMixMqTbgeaNNfe+jbCw/qFnSlOjLdT0bwg7N8ZCTy8i +ZyDPFqzEHUF7glqP0C9nReJtITDhyMvQGao/w/niVgtbmK6Pz5T8xcLTmkXV +29RsIZZzxf8Rh4UbVAm30WW2IKxfqOG1wELzqduH8sds4Pr+RzOLiyyc9boy +eey5DfwP78K/dQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8bAHBfV0iRlZVxz3WRnREZt+dJJaNs2TJCU4MUlVVGaSBJIiqU +iHuEEuGLZERLVtHSVwmRlVvyO7+/zuv9Oq/P+czneT6H8DvgEMDNxcUl8g8X +1/+fs4OtTcykvPWrwcvD98GG9V3XpcI39MaCQHLtwHakA6587ifVmwohZSFZ +OrgGwuzu9tB6b0JkEe2aFCKIjEumzveUwUSb65WfYAfva2wOTPc0wFOnT0nh +4APmzJGByZ5X4FNbvJjHOgjzPYaXJ3o+wSeh25meBtHQuPF23subU/DX1v+D +WWMyyL6v+s9PYwEWgwolxq9mgPi+HXf5NtLw1EbJOyJTOZCqY15t48yPKXtU +6oIe3IK+jDX1k8KCGGuQNvd2vACS8qKec0uL4Gx8TcOo6F2QTPt85lK2GHb8 +7PiV+KQYpNQrTv8qEEOBZk5md2cxyDTER3mxxZDTyX1KvrcY5CdUj6g0iuFZ +twmF7JFiUNp60Kf6qxie+vZ4n/OKe6DHs2DwWU8c5zKMnUiXe2AbKjGk2yaO +M6faOoWG7kGCk+X6V7Mr0XJO3VrtewnIlHfKcP8jgec4Zz3uTpVAiZjTnM4y +CbzAer5L8U8JdL/yZqcoUO8DQ8O4BEuBaR/KsLeQQBrWbg7UKoWGbTm8L65K +4Pkp2/n3B0phwXyms8NUEqvuVgXEj5VCckFE0YK5JOL4eCJzhmrPy5WoaS+J +H1r2pVT/KYWtTwQ2nA+QxEelf1VGlrAhcyP9/tYLkng7S9i4V5wN69D6Svt7 +SSyxNwxZqsuGEKMbO1pjpTBBxKWidjcbrHKFpq3PSaHVybcXPu1jA4PvRGLn +ZSn8kChpRTvIhhdd28nXd6TQZ9g2wCSMDVoHl9MGO6VwbkBVIz6WDV8Ljhb8 +lJFG35kf3+Iy2eApbjO26r40NjfVtmu2sEHveHXM9RppTJGqrxlrY4PAp9US +RLM0nt0mc+FuBxuqSmmg3CeNx5LGXsq8ZoOEdVXymkVpPFP8cvDNANV/DFN/ +s7UMShM1EpU/2bDpByci+LMM8iTWhSvIkBBukab276gMLj/VVXlAloSSG5r9 +YrMy2GNfM1MjT4KUk49RFf8qLJ9ICLdRJGH04ZM5mtYqXOHWk7VNg4RLscmh +V4+twpaXXiE1LBI+rVQObhKUxV189mle3iRIHqiTk5SURVlDLw8bHxK2trh2 +7KbLoteyn6qmfiRURiRprNCTxcqvtwaFAkk4+35ixM1VFh+t7i9O3k+CbmF1 +0I+bsnisqFWc9wQJMab2vjLr5DDLpPdvVToJFt7XfxqayaHOK7pFcAYJQtHf +TzlvlcOd3U9kFTJJyGqMK0j2kcMDS/t2h2WT8NDq0XfeM3L4+KN1zu9bJEy4 +KoZN9cmh9QfVdz5sEh5EHOQTGZLDVMEzwoMkCZFZjzO0xuUwYCy5x+U+Ccs/ +uFTv5pbHIuKSwoZKElSCznF9UJNHrsHA/JFqEryPzJx9dlweR2nDv682k6B0 +xUx2JE4erbskMz48/f/6XbzHlyyPciu3PldsJSHij+oLszx5vPZ6Xji3nYTL +p7xXVj2Tx9lxmDzwgoRnKU9z8uUUkMU5dnt/H7Xe98V1GlUUsPfQ53WR/SS4 +v/Ft+KCjgIySsuCktyR8lfoztMpcAfm+clqvDZBAy12jlhqsgB4/Wu3SPpJg +XHK1PLJOATtVXbW/fCVhU0/nwniLAoYsyjeR30iw4eLZsuOVAkp/Dj9yfIQE +f4fgPviigF4BjDW8oySYHyeiopfQUen9kPj8OAntK2purROg4/lLY9klP0iw +y9veMiFEx0AzAQvfCRI8OpJEfKXo2KfR8U/tJAkHFWZvbVCnY7t//SrnaRJm +7ie3zGvTcbNE0eMpyhEW6mOkPh1/HXGJuzhDQtwhHwPGejpORLsl1s6SkNnY +1sJtT0ebjuH9nF8kKLgGjD1ypmMSrd4mdp6EvNFFkRB3Or5I1Xfn45BQunKt +x2d/OmrC/in+3yQ0BeWMNYbR8UlPFo78IcHyj5HoieN0DOV7neCxQEJncpeB +fjT1/Z3Ff1sp91Utjc47Q8fahd6T1/9S+2uTl+d5gY7WEmEJPIskDH1a3yp+ +iY4yYlaNQZTHl4WKxmXR8WCXTpcSVxmE5AoZsm5Q71+l3Y2m/Eu/0GMmn46H +lToqeinTvAfzAkrpuHDRf3/0P2UgxbYwNG+go39zV0gJdxlkb/rs8beZjjUy +SbQpyoy+k9GV7dR894R06NPKQJP7fqvyGzqeeJwmyqZclr5tfLCPjnN1Ghe/ +UV6n/lX0yiDVvrrcgs5TBmZOcp58X+koUul2JI7y068PoutG6Xi9v//bfcpb +TzrkH52kY9ZG8evvKb8SGWvVnqVjSVZVKv+SMnApSBgf5tBRTj+qRYvyO2OG +WO4iHfdwpNGBst/zGkNXHgJHYoBzmPKwv4un8FICt/7Nn0umvO/XZHSLIIHM +TTxGxZSNDwVK/CdKYFBkYEkzZf6R/iKaFIHNHJ4fA5S7/Ww3EHIEWoq2/56k +nP+2sXs9g8Br83lvuHnLINRp3T5PFQJ96qNOClM26yj+J0KDwDQ7y2kZysLm +xJUrOgR2758wZlAerL2sUWFA4L/lOx2UKRcbCjS8MiHQPjPdRIVyBDvSZQIJ +ZOw9OsekbKE6NSpoTmCP1Xy8AmWJm0Gx6tYE7tFb8V2C8pDMO0lLOwLDp4uZ +yyiXXbK7F+hMYInuU/0/1Hijlz8xO+1O4GKgo+wIZds4o94bOwgUH9zyrouy +/N97++t2Epj04NqRGsqjYQzawG4Cvb+Yf8ul/OhHegYnmFovdbN1sZQTdy3T +kgolMEQuwd+H8vaPUY1rwwnUJIT3mVBmuk+7OkZS893T6yBGud564NSFRAJ5 +iiXrqqj9vNBkL118nsCr4mfMEyl7sppLWlMJHLilxXakPK9V2seTTeDQZzGt +j9T5abmteIBxk8CMIKdNtyin0zN48DaBkZVt6EdZVzRG+zhJoMJS/4lu6nxy +Jc00ZVQS+F79XP45yp20Pe6V1QQe2T6/CSjvnXGIm3xC4IHkSvNr1Hk3Dn4q +s6KdQM60WNEmyvzDJmyNFwTaCrxYGKHiI6+X+Taon8Bcv4TDWpQP2189GPee +wGGZ9PR2Kt6wTZD31hCBSvvV7gVQHqieXTM4TmCNrFhlMhWvEjkt8U40Bgpu +c3NqoOJ9SJIle5ifgboaPGpbKJclk+RFQQbaJRRwWqj8YBub+a5NkoEq96RS +Gqn8kRiwT3eDBgN53Z6x06h8M68uPKjpzMBClcyS21MkzGbLxOi5MzB/gP1u +8ScJ0yuUmEY7GMhVflbXmfL4lNGeTbsZuCun1m2Oyoefqv1n3U8ycFyk/b40 +lT/brB8IJeYz8Pnqm3E9wyQ8ffwvef4uAy+bFJRyU27SfuZ0qZSBIiEpour/ +kVAr9jHzehUDp6uPJ4QMUeN/K6BS0cFA9SnnrZ8/UPlxrzd8mmHgv8F1RkDV +iysDuz4NcxgYZRoZtr6XhDTbkLixRQbeKfu4YNxDwgW9xPZfSxXxxYz0pPob +EmJ/ky4r5BXxawDvmTGq/uxNWnLQ1FwRv+/ZFjlB1S/TouLc9HRF9CywT1+g +6uFbelHO5muKmHcrO7SujMrf6YXXp3MUkcYUlYqi6ueDmIIsh0JFNNF2LJsr +oeq5a26GUI0i8vzwtu0sJEF1SVpy/EdFXHtrBa9oDrVfO45Hh2kw8eOEsTUn +gYSKrvAoJR0m8hEfy8PiSXCyOhbZtZaJXkWWtMnTJKSuPXJCF5g4enKPw/sY +EgSXHzg2bs9E+uV13TePk8BT5Xcw8CgTw2uDXJqDSZgUtfLZ3sDEb+v6dsc7 +ktC7j/Fiz1Mmxqk5cTLtSahv5kDUMyYK6qsa3rMlITmiSOFONxOzrupVt1mT +sObT8vfzI0wsi5URHdlIQjD53CtbTAlzFJuVq/VIGLF19hjaqYQFLRaubBHq +vJ3z2X6YTxm3aMsr6z1lQ/CIBmPNcmU0zbQMH25iw9yW+bExYWWUkYsRyWyg +7ne01LjdMsrod+naSs5jNqwJbyz30VRGpr7hufxyNpwMUBazdVTGRiddnaIb +1H1v/ehz9RxlpI8t2oVHsMHyx1HLLwYq+O2ow2cfFTaM+vOHlEetRvErmhyX ++hLqf0OSO6FBFSNLshPCqPu6aIfyBfYPNezYZZ83vKMIZBNL7QwMNFCyfrMY +ebQQMtSNhMWCNNG/qD/XMf82tMlsWDuVooVHhrI45/rywVi2IVm7WxvPL49c +ovH9FgjRbob6xq5BqiwUf1O5CfIxCqZuyjq4+oZmTaRtLixV8qx0eKqDqp2r +7u9VywYtlnTpUS9dLA+ebmfJZ8LhQdFGKy49nH2aish7BX5MnXO2zNDDNo7B +lzeuabBFuznTUlMffxXe5+IdS4HaKZPfc536SGvYIH1W6CIEa+j2vwxYi5PK +v0/4cicBa3xnl9tSA6zgUsMK0QTYzJTaJnjTALN05FvKOk7B6uizxxoMDfHn +KoEKlZloUAswqlPqN0SW5YNuvcgTEFC763T5oXUomr53+6GVx6Aut2vn5Eoj +PN59cPe7qRCYvrM4p/3ACGfyZ4zJEwfBX6loaeY2YzRyTT61K2QvTKpdMiib +MEa9vX8miR2B8DDv98eZRBOMa2pLzfb1A4ONoXNWSSYop87+aeHoBxUfR5fn +njdB8yhf3r+b/KBMftDQKtUEY7er68et9oPijPrz16+ZYA73awm+CV/IPRdn +tKXEBF1prbu7on3hTOiKlIzXJth7w0n9UKEPuG+iYk/eFCu8X09qq3vDQhe/ +UCPdFMfKmix5RLwhN2D8rZWiKTqlx8eMznrBf/FVR91Xm+LhLPcdvxq84HCr +bWm4rikKmQSf/OPhBWdtTsg/NDdF3tZXWUUpnvDI9c0f/QOm+O/gJiP7ZR6w +an9ClVa9KX4zGa9bvdYVLiwGrk1qMMXakCUMfsIVuFPNyeEmU7Sa0LCYXe4K +I5VLCnNbTTGztq3m75ALPOI6nSH62hTvXB3eWnfZBdzToo/OfjFFB5ap2dz8 +dsioDl9bu4yF7/4zEV/S4QwrBfaR21woaytZVF1zhLyNJyMm3FiopjU9IX7G +EXRPXth4yZOFhx5sdI0OcwSbCfabXl8WElserI23d4T47pl5/30svP4lbHor +vyP8uhllFhHDQoPC3b01xxyg3+TS64IiFi6P2qnQv9Medh3Jy7IsYWGQwTMf +KSd7mC2pCBhls3DZCwPegI32IMrondOpZGGDhpmjKsMerPnlZB/Xs7BFvPiV +5wc7qOkq2Pn6DQtlOVJegTvswErooWZYLwsLee/R4m3toHdL66zUWxamZcTv +vg92MP3oe6L3BxY+FMixMqTbgeaNNfe+jbCw/qFnSlOjLdT0bwg7N8ZCTy8i +ZyDPFqzEHUF7glqP0C9nReJtITDhyMvQGao/w/niVgtbmK6Pz5T8xcLTmkXV +29RsIZZzxf8Rh4UbVAm30WW2IKxfqOG1wELzqduH8sds4Pr+RzOLiyyc9boy +eey5DfwP78K/dQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07040639118950166}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07040639118950166}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8bAHBfV0iRlZVxz3WRnREZt+dJJaNs2TJCU4MUlVVGaSBJIiqU +iHuEEuGLZERLVtHSVwmRlVvyO7+/zuv9Oq/P+czneT6H8DvgEMDNxcUl8g8X +1/+fs4OtTcykvPWrwcvD98GG9V3XpcI39MaCQHLtwHakA6587ifVmwohZSFZ +OrgGwuzu9tB6b0JkEe2aFCKIjEumzveUwUSb65WfYAfva2wOTPc0wFOnT0nh +4APmzJGByZ5X4FNbvJjHOgjzPYaXJ3o+wSeh25meBtHQuPF23subU/DX1v+D +WWMyyL6v+s9PYwEWgwolxq9mgPi+HXf5NtLw1EbJOyJTOZCqY15t48yPKXtU +6oIe3IK+jDX1k8KCGGuQNvd2vACS8qKec0uL4Gx8TcOo6F2QTPt85lK2GHb8 +7PiV+KQYpNQrTv8qEEOBZk5md2cxyDTER3mxxZDTyX1KvrcY5CdUj6g0iuFZ +twmF7JFiUNp60Kf6qxie+vZ4n/OKe6DHs2DwWU8c5zKMnUiXe2AbKjGk2yaO +M6faOoWG7kGCk+X6V7Mr0XJO3VrtewnIlHfKcP8jgec4Zz3uTpVAiZjTnM4y +CbzAer5L8U8JdL/yZqcoUO8DQ8O4BEuBaR/KsLeQQBrWbg7UKoWGbTm8L65K +4Pkp2/n3B0phwXyms8NUEqvuVgXEj5VCckFE0YK5JOL4eCJzhmrPy5WoaS+J +H1r2pVT/KYWtTwQ2nA+QxEelf1VGlrAhcyP9/tYLkng7S9i4V5wN69D6Svt7 +SSyxNwxZqsuGEKMbO1pjpTBBxKWidjcbrHKFpq3PSaHVybcXPu1jA4PvRGLn +ZSn8kChpRTvIhhdd28nXd6TQZ9g2wCSMDVoHl9MGO6VwbkBVIz6WDV8Ljhb8 +lJFG35kf3+Iy2eApbjO26r40NjfVtmu2sEHveHXM9RppTJGqrxlrY4PAp9US +RLM0nt0mc+FuBxuqSmmg3CeNx5LGXsq8ZoOEdVXymkVpPFP8cvDNANV/DFN/ +s7UMShM1EpU/2bDpByci+LMM8iTWhSvIkBBukab276gMLj/VVXlAloSSG5r9 +YrMy2GNfM1MjT4KUk49RFf8qLJ9ICLdRJGH04ZM5mtYqXOHWk7VNg4RLscmh +V4+twpaXXiE1LBI+rVQObhKUxV189mle3iRIHqiTk5SURVlDLw8bHxK2trh2 +7KbLoteyn6qmfiRURiRprNCTxcqvtwaFAkk4+35ixM1VFh+t7i9O3k+CbmF1 +0I+bsnisqFWc9wQJMab2vjLr5DDLpPdvVToJFt7XfxqayaHOK7pFcAYJQtHf +TzlvlcOd3U9kFTJJyGqMK0j2kcMDS/t2h2WT8NDq0XfeM3L4+KN1zu9bJEy4 +KoZN9cmh9QfVdz5sEh5EHOQTGZLDVMEzwoMkCZFZjzO0xuUwYCy5x+U+Ccs/ +uFTv5pbHIuKSwoZKElSCznF9UJNHrsHA/JFqEryPzJx9dlweR2nDv682k6B0 +xUx2JE4erbskMz48/f/6XbzHlyyPciu3PldsJSHij+oLszx5vPZ6Xji3nYTL +p7xXVj2Tx9lxmDzwgoRnKU9z8uUUkMU5dnt/H7Xe98V1GlUUsPfQ53WR/SS4 +v/Ft+KCjgIySsuCktyR8lfoztMpcAfm+clqvDZBAy12jlhqsgB4/Wu3SPpJg +XHK1PLJOATtVXbW/fCVhU0/nwniLAoYsyjeR30iw4eLZsuOVAkp/Dj9yfIQE +f4fgPviigF4BjDW8oySYHyeiopfQUen9kPj8OAntK2purROg4/lLY9klP0iw +y9veMiFEx0AzAQvfCRI8OpJEfKXo2KfR8U/tJAkHFWZvbVCnY7t//SrnaRJm +7ie3zGvTcbNE0eMpyhEW6mOkPh1/HXGJuzhDQtwhHwPGejpORLsl1s6SkNnY +1sJtT0ebjuH9nF8kKLgGjD1ypmMSrd4mdp6EvNFFkRB3Or5I1Xfn45BQunKt +x2d/OmrC/in+3yQ0BeWMNYbR8UlPFo78IcHyj5HoieN0DOV7neCxQEJncpeB +fjT1/Z3Ff1sp91Utjc47Q8fahd6T1/9S+2uTl+d5gY7WEmEJPIskDH1a3yp+ +iY4yYlaNQZTHl4WKxmXR8WCXTpcSVxmE5AoZsm5Q71+l3Y2m/Eu/0GMmn46H +lToqeinTvAfzAkrpuHDRf3/0P2UgxbYwNG+go39zV0gJdxlkb/rs8beZjjUy +SbQpyoy+k9GV7dR894R06NPKQJP7fqvyGzqeeJwmyqZclr5tfLCPjnN1Ghe/ +UV6n/lX0yiDVvrrcgs5TBmZOcp58X+koUul2JI7y068PoutG6Xi9v//bfcpb +TzrkH52kY9ZG8evvKb8SGWvVnqVjSVZVKv+SMnApSBgf5tBRTj+qRYvyO2OG +WO4iHfdwpNGBst/zGkNXHgJHYoBzmPKwv4un8FICt/7Nn0umvO/XZHSLIIHM +TTxGxZSNDwVK/CdKYFBkYEkzZf6R/iKaFIHNHJ4fA5S7/Ww3EHIEWoq2/56k +nP+2sXs9g8Br83lvuHnLINRp3T5PFQJ96qNOClM26yj+J0KDwDQ7y2kZysLm +xJUrOgR2758wZlAerL2sUWFA4L/lOx2UKRcbCjS8MiHQPjPdRIVyBDvSZQIJ +ZOw9OsekbKE6NSpoTmCP1Xy8AmWJm0Gx6tYE7tFb8V2C8pDMO0lLOwLDp4uZ +yyiXXbK7F+hMYInuU/0/1Hijlz8xO+1O4GKgo+wIZds4o94bOwgUH9zyrouy +/N97++t2Epj04NqRGsqjYQzawG4Cvb+Yf8ul/OhHegYnmFovdbN1sZQTdy3T +kgolMEQuwd+H8vaPUY1rwwnUJIT3mVBmuk+7OkZS893T6yBGud564NSFRAJ5 +iiXrqqj9vNBkL118nsCr4mfMEyl7sppLWlMJHLilxXakPK9V2seTTeDQZzGt +j9T5abmteIBxk8CMIKdNtyin0zN48DaBkZVt6EdZVzRG+zhJoMJS/4lu6nxy +Jc00ZVQS+F79XP45yp20Pe6V1QQe2T6/CSjvnXGIm3xC4IHkSvNr1Hk3Dn4q +s6KdQM60WNEmyvzDJmyNFwTaCrxYGKHiI6+X+Taon8Bcv4TDWpQP2189GPee +wGGZ9PR2Kt6wTZD31hCBSvvV7gVQHqieXTM4TmCNrFhlMhWvEjkt8U40Bgpu +c3NqoOJ9SJIle5ifgboaPGpbKJclk+RFQQbaJRRwWqj8YBub+a5NkoEq96RS +Gqn8kRiwT3eDBgN53Z6x06h8M68uPKjpzMBClcyS21MkzGbLxOi5MzB/gP1u +8ScJ0yuUmEY7GMhVflbXmfL4lNGeTbsZuCun1m2Oyoefqv1n3U8ycFyk/b40 +lT/brB8IJeYz8Pnqm3E9wyQ8ffwvef4uAy+bFJRyU27SfuZ0qZSBIiEpour/ +kVAr9jHzehUDp6uPJ4QMUeN/K6BS0cFA9SnnrZ8/UPlxrzd8mmHgv8F1RkDV +iysDuz4NcxgYZRoZtr6XhDTbkLixRQbeKfu4YNxDwgW9xPZfSxXxxYz0pPob +EmJ/ky4r5BXxawDvmTGq/uxNWnLQ1FwRv+/ZFjlB1S/TouLc9HRF9CywT1+g +6uFbelHO5muKmHcrO7SujMrf6YXXp3MUkcYUlYqi6ueDmIIsh0JFNNF2LJsr +oeq5a26GUI0i8vzwtu0sJEF1SVpy/EdFXHtrBa9oDrVfO45Hh2kw8eOEsTUn +gYSKrvAoJR0m8hEfy8PiSXCyOhbZtZaJXkWWtMnTJKSuPXJCF5g4enKPw/sY +EgSXHzg2bs9E+uV13TePk8BT5Xcw8CgTw2uDXJqDSZgUtfLZ3sDEb+v6dsc7 +ktC7j/Fiz1Mmxqk5cTLtSahv5kDUMyYK6qsa3rMlITmiSOFONxOzrupVt1mT +sObT8vfzI0wsi5URHdlIQjD53CtbTAlzFJuVq/VIGLF19hjaqYQFLRaubBHq +vJ3z2X6YTxm3aMsr6z1lQ/CIBmPNcmU0zbQMH25iw9yW+bExYWWUkYsRyWyg +7ne01LjdMsrod+naSs5jNqwJbyz30VRGpr7hufxyNpwMUBazdVTGRiddnaIb +1H1v/ehz9RxlpI8t2oVHsMHyx1HLLwYq+O2ow2cfFTaM+vOHlEetRvErmhyX ++hLqf0OSO6FBFSNLshPCqPu6aIfyBfYPNezYZZ83vKMIZBNL7QwMNFCyfrMY +ebQQMtSNhMWCNNG/qD/XMf82tMlsWDuVooVHhrI45/rywVi2IVm7WxvPL49c +ovH9FgjRbob6xq5BqiwUf1O5CfIxCqZuyjq4+oZmTaRtLixV8qx0eKqDqp2r +7u9VywYtlnTpUS9dLA+ebmfJZ8LhQdFGKy49nH2aish7BX5MnXO2zNDDNo7B +lzeuabBFuznTUlMffxXe5+IdS4HaKZPfc536SGvYIH1W6CIEa+j2vwxYi5PK +v0/4cicBa3xnl9tSA6zgUsMK0QTYzJTaJnjTALN05FvKOk7B6uizxxoMDfHn +KoEKlZloUAswqlPqN0SW5YNuvcgTEFC763T5oXUomr53+6GVx6Aut2vn5Eoj +PN59cPe7qRCYvrM4p/3ACGfyZ4zJEwfBX6loaeY2YzRyTT61K2QvTKpdMiib +MEa9vX8miR2B8DDv98eZRBOMa2pLzfb1A4ONoXNWSSYop87+aeHoBxUfR5fn +njdB8yhf3r+b/KBMftDQKtUEY7er68et9oPijPrz16+ZYA73awm+CV/IPRdn +tKXEBF1prbu7on3hTOiKlIzXJth7w0n9UKEPuG+iYk/eFCu8X09qq3vDQhe/ +UCPdFMfKmix5RLwhN2D8rZWiKTqlx8eMznrBf/FVR91Xm+LhLPcdvxq84HCr +bWm4rikKmQSf/OPhBWdtTsg/NDdF3tZXWUUpnvDI9c0f/QOm+O/gJiP7ZR6w +an9ClVa9KX4zGa9bvdYVLiwGrk1qMMXakCUMfsIVuFPNyeEmU7Sa0LCYXe4K +I5VLCnNbTTGztq3m75ALPOI6nSH62hTvXB3eWnfZBdzToo/OfjFFB5ap2dz8 +dsioDl9bu4yF7/4zEV/S4QwrBfaR21woaytZVF1zhLyNJyMm3FiopjU9IX7G +EXRPXth4yZOFhx5sdI0OcwSbCfabXl8WElserI23d4T47pl5/30svP4lbHor +vyP8uhllFhHDQoPC3b01xxyg3+TS64IiFi6P2qnQv9Medh3Jy7IsYWGQwTMf +KSd7mC2pCBhls3DZCwPegI32IMrondOpZGGDhpmjKsMerPnlZB/Xs7BFvPiV +5wc7qOkq2Pn6DQtlOVJegTvswErooWZYLwsLee/R4m3toHdL66zUWxamZcTv +vg92MP3oe6L3BxY+FMixMqTbgeaNNfe+jbCw/qFnSlOjLdT0bwg7N8ZCTy8i +ZyDPFqzEHUF7glqP0C9nReJtITDhyMvQGao/w/niVgtbmK6Pz5T8xcLTmkXV +29RsIZZzxf8Rh4UbVAm30WW2IKxfqOG1wELzqduH8sds4Pr+RzOLiyyc9boy +eey5DfwP78K/dQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07040639118950166}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07040639118950166}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994253202004375*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"af233ae9-69c5-495c-9a0b-00d37ef702a9"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"2335a158-7588-4c40-bdb5-\ -53b7ef04b97c"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8Vf8bAHBfV0iRlZVxz3WRnREZt+dJJaNs2TJCU4MUlVVGaSBJIiqU +iHuEEuGLZERLVtHSVwmRlVvyO7+/zuv9Oq/P+czneT6H8DvgEMDNxcUl8g8X +1/+fs4OtTcykvPWrwcvD98GG9V3XpcI39MaCQHLtwHakA6587ifVmwohZSFZ +OrgGwuzu9tB6b0JkEe2aFCKIjEumzveUwUSb65WfYAfva2wOTPc0wFOnT0nh +4APmzJGByZ5X4FNbvJjHOgjzPYaXJ3o+wSeh25meBtHQuPF23subU/DX1v+D +WWMyyL6v+s9PYwEWgwolxq9mgPi+HXf5NtLw1EbJOyJTOZCqY15t48yPKXtU +6oIe3IK+jDX1k8KCGGuQNvd2vACS8qKec0uL4Gx8TcOo6F2QTPt85lK2GHb8 +7PiV+KQYpNQrTv8qEEOBZk5md2cxyDTER3mxxZDTyX1KvrcY5CdUj6g0iuFZ +twmF7JFiUNp60Kf6qxie+vZ4n/OKe6DHs2DwWU8c5zKMnUiXe2AbKjGk2yaO +M6faOoWG7kGCk+X6V7Mr0XJO3VrtewnIlHfKcP8jgec4Zz3uTpVAiZjTnM4y +CbzAer5L8U8JdL/yZqcoUO8DQ8O4BEuBaR/KsLeQQBrWbg7UKoWGbTm8L65K +4Pkp2/n3B0phwXyms8NUEqvuVgXEj5VCckFE0YK5JOL4eCJzhmrPy5WoaS+J +H1r2pVT/KYWtTwQ2nA+QxEelf1VGlrAhcyP9/tYLkng7S9i4V5wN69D6Svt7 +SSyxNwxZqsuGEKMbO1pjpTBBxKWidjcbrHKFpq3PSaHVybcXPu1jA4PvRGLn +ZSn8kChpRTvIhhdd28nXd6TQZ9g2wCSMDVoHl9MGO6VwbkBVIz6WDV8Ljhb8 +lJFG35kf3+Iy2eApbjO26r40NjfVtmu2sEHveHXM9RppTJGqrxlrY4PAp9US +RLM0nt0mc+FuBxuqSmmg3CeNx5LGXsq8ZoOEdVXymkVpPFP8cvDNANV/DFN/ +s7UMShM1EpU/2bDpByci+LMM8iTWhSvIkBBukab276gMLj/VVXlAloSSG5r9 +YrMy2GNfM1MjT4KUk49RFf8qLJ9ICLdRJGH04ZM5mtYqXOHWk7VNg4RLscmh +V4+twpaXXiE1LBI+rVQObhKUxV189mle3iRIHqiTk5SURVlDLw8bHxK2trh2 +7KbLoteyn6qmfiRURiRprNCTxcqvtwaFAkk4+35ixM1VFh+t7i9O3k+CbmF1 +0I+bsnisqFWc9wQJMab2vjLr5DDLpPdvVToJFt7XfxqayaHOK7pFcAYJQtHf +TzlvlcOd3U9kFTJJyGqMK0j2kcMDS/t2h2WT8NDq0XfeM3L4+KN1zu9bJEy4 +KoZN9cmh9QfVdz5sEh5EHOQTGZLDVMEzwoMkCZFZjzO0xuUwYCy5x+U+Ccs/ +uFTv5pbHIuKSwoZKElSCznF9UJNHrsHA/JFqEryPzJx9dlweR2nDv682k6B0 +xUx2JE4erbskMz48/f/6XbzHlyyPciu3PldsJSHij+oLszx5vPZ6Xji3nYTL +p7xXVj2Tx9lxmDzwgoRnKU9z8uUUkMU5dnt/H7Xe98V1GlUUsPfQ53WR/SS4 +v/Ft+KCjgIySsuCktyR8lfoztMpcAfm+clqvDZBAy12jlhqsgB4/Wu3SPpJg +XHK1PLJOATtVXbW/fCVhU0/nwniLAoYsyjeR30iw4eLZsuOVAkp/Dj9yfIQE +f4fgPviigF4BjDW8oySYHyeiopfQUen9kPj8OAntK2purROg4/lLY9klP0iw +y9veMiFEx0AzAQvfCRI8OpJEfKXo2KfR8U/tJAkHFWZvbVCnY7t//SrnaRJm +7ie3zGvTcbNE0eMpyhEW6mOkPh1/HXGJuzhDQtwhHwPGejpORLsl1s6SkNnY +1sJtT0ebjuH9nF8kKLgGjD1ypmMSrd4mdp6EvNFFkRB3Or5I1Xfn45BQunKt +x2d/OmrC/in+3yQ0BeWMNYbR8UlPFo78IcHyj5HoieN0DOV7neCxQEJncpeB +fjT1/Z3Ff1sp91Utjc47Q8fahd6T1/9S+2uTl+d5gY7WEmEJPIskDH1a3yp+ +iY4yYlaNQZTHl4WKxmXR8WCXTpcSVxmE5AoZsm5Q71+l3Y2m/Eu/0GMmn46H +lToqeinTvAfzAkrpuHDRf3/0P2UgxbYwNG+go39zV0gJdxlkb/rs8beZjjUy +SbQpyoy+k9GV7dR894R06NPKQJP7fqvyGzqeeJwmyqZclr5tfLCPjnN1Ghe/ +UV6n/lX0yiDVvrrcgs5TBmZOcp58X+koUul2JI7y068PoutG6Xi9v//bfcpb +TzrkH52kY9ZG8evvKb8SGWvVnqVjSVZVKv+SMnApSBgf5tBRTj+qRYvyO2OG +WO4iHfdwpNGBst/zGkNXHgJHYoBzmPKwv4un8FICt/7Nn0umvO/XZHSLIIHM +TTxGxZSNDwVK/CdKYFBkYEkzZf6R/iKaFIHNHJ4fA5S7/Ww3EHIEWoq2/56k +nP+2sXs9g8Br83lvuHnLINRp3T5PFQJ96qNOClM26yj+J0KDwDQ7y2kZysLm +xJUrOgR2758wZlAerL2sUWFA4L/lOx2UKRcbCjS8MiHQPjPdRIVyBDvSZQIJ +ZOw9OsekbKE6NSpoTmCP1Xy8AmWJm0Gx6tYE7tFb8V2C8pDMO0lLOwLDp4uZ +yyiXXbK7F+hMYInuU/0/1Hijlz8xO+1O4GKgo+wIZds4o94bOwgUH9zyrouy +/N97++t2Epj04NqRGsqjYQzawG4Cvb+Yf8ul/OhHegYnmFovdbN1sZQTdy3T +kgolMEQuwd+H8vaPUY1rwwnUJIT3mVBmuk+7OkZS893T6yBGud564NSFRAJ5 +iiXrqqj9vNBkL118nsCr4mfMEyl7sppLWlMJHLilxXakPK9V2seTTeDQZzGt +j9T5abmteIBxk8CMIKdNtyin0zN48DaBkZVt6EdZVzRG+zhJoMJS/4lu6nxy +Jc00ZVQS+F79XP45yp20Pe6V1QQe2T6/CSjvnXGIm3xC4IHkSvNr1Hk3Dn4q +s6KdQM60WNEmyvzDJmyNFwTaCrxYGKHiI6+X+Taon8Bcv4TDWpQP2189GPee +wGGZ9PR2Kt6wTZD31hCBSvvV7gVQHqieXTM4TmCNrFhlMhWvEjkt8U40Bgpu +c3NqoOJ9SJIle5ifgboaPGpbKJclk+RFQQbaJRRwWqj8YBub+a5NkoEq96RS +Gqn8kRiwT3eDBgN53Z6x06h8M68uPKjpzMBClcyS21MkzGbLxOi5MzB/gP1u +8ScJ0yuUmEY7GMhVflbXmfL4lNGeTbsZuCun1m2Oyoefqv1n3U8ycFyk/b40 +lT/brB8IJeYz8Pnqm3E9wyQ8ffwvef4uAy+bFJRyU27SfuZ0qZSBIiEpour/ +kVAr9jHzehUDp6uPJ4QMUeN/K6BS0cFA9SnnrZ8/UPlxrzd8mmHgv8F1RkDV +iysDuz4NcxgYZRoZtr6XhDTbkLixRQbeKfu4YNxDwgW9xPZfSxXxxYz0pPob +EmJ/ky4r5BXxawDvmTGq/uxNWnLQ1FwRv+/ZFjlB1S/TouLc9HRF9CywT1+g +6uFbelHO5muKmHcrO7SujMrf6YXXp3MUkcYUlYqi6ueDmIIsh0JFNNF2LJsr +oeq5a26GUI0i8vzwtu0sJEF1SVpy/EdFXHtrBa9oDrVfO45Hh2kw8eOEsTUn +gYSKrvAoJR0m8hEfy8PiSXCyOhbZtZaJXkWWtMnTJKSuPXJCF5g4enKPw/sY +EgSXHzg2bs9E+uV13TePk8BT5Xcw8CgTw2uDXJqDSZgUtfLZ3sDEb+v6dsc7 +ktC7j/Fiz1Mmxqk5cTLtSahv5kDUMyYK6qsa3rMlITmiSOFONxOzrupVt1mT +sObT8vfzI0wsi5URHdlIQjD53CtbTAlzFJuVq/VIGLF19hjaqYQFLRaubBHq +vJ3z2X6YTxm3aMsr6z1lQ/CIBmPNcmU0zbQMH25iw9yW+bExYWWUkYsRyWyg +7ne01LjdMsrod+naSs5jNqwJbyz30VRGpr7hufxyNpwMUBazdVTGRiddnaIb +1H1v/ehz9RxlpI8t2oVHsMHyx1HLLwYq+O2ow2cfFTaM+vOHlEetRvErmhyX ++hLqf0OSO6FBFSNLshPCqPu6aIfyBfYPNezYZZ83vKMIZBNL7QwMNFCyfrMY +ebQQMtSNhMWCNNG/qD/XMf82tMlsWDuVooVHhrI45/rywVi2IVm7WxvPL49c +ovH9FgjRbob6xq5BqiwUf1O5CfIxCqZuyjq4+oZmTaRtLixV8qx0eKqDqp2r +7u9VywYtlnTpUS9dLA+ebmfJZ8LhQdFGKy49nH2aish7BX5MnXO2zNDDNo7B +lzeuabBFuznTUlMffxXe5+IdS4HaKZPfc536SGvYIH1W6CIEa+j2vwxYi5PK +v0/4cicBa3xnl9tSA6zgUsMK0QTYzJTaJnjTALN05FvKOk7B6uizxxoMDfHn +KoEKlZloUAswqlPqN0SW5YNuvcgTEFC763T5oXUomr53+6GVx6Aut2vn5Eoj +PN59cPe7qRCYvrM4p/3ACGfyZ4zJEwfBX6loaeY2YzRyTT61K2QvTKpdMiib +MEa9vX8miR2B8DDv98eZRBOMa2pLzfb1A4ONoXNWSSYop87+aeHoBxUfR5fn +njdB8yhf3r+b/KBMftDQKtUEY7er68et9oPijPrz16+ZYA73awm+CV/IPRdn +tKXEBF1prbu7on3hTOiKlIzXJth7w0n9UKEPuG+iYk/eFCu8X09qq3vDQhe/ +UCPdFMfKmix5RLwhN2D8rZWiKTqlx8eMznrBf/FVR91Xm+LhLPcdvxq84HCr +bWm4rikKmQSf/OPhBWdtTsg/NDdF3tZXWUUpnvDI9c0f/QOm+O/gJiP7ZR6w +an9ClVa9KX4zGa9bvdYVLiwGrk1qMMXakCUMfsIVuFPNyeEmU7Sa0LCYXe4K +I5VLCnNbTTGztq3m75ALPOI6nSH62hTvXB3eWnfZBdzToo/OfjFFB5ap2dz8 +dsioDl9bu4yF7/4zEV/S4QwrBfaR21woaytZVF1zhLyNJyMm3FiopjU9IX7G +EXRPXth4yZOFhx5sdI0OcwSbCfabXl8WElserI23d4T47pl5/30svP4lbHor +vyP8uhllFhHDQoPC3b01xxyg3+TS64IiFi6P2qnQv9Medh3Jy7IsYWGQwTMf +KSd7mC2pCBhls3DZCwPegI32IMrondOpZGGDhpmjKsMerPnlZB/Xs7BFvPiV +5wc7qOkq2Pn6DQtlOVJegTvswErooWZYLwsLee/R4m3toHdL66zUWxamZcTv +vg92MP3oe6L3BxY+FMixMqTbgeaNNfe+jbCw/qFnSlOjLdT0bwg7N8ZCTy8i +ZyDPFqzEHUF7glqP0C9nReJtITDhyMvQGao/w/niVgtbmK6Pz5T8xcLTmkXV +29RsIZZzxf8Rh4UbVAm30WW2IKxfqOG1wELzqduH8sds4Pr+RzOLiyyc9boy +eey5DfwP78K/dQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8bAHBfV0iRlZVxz3WRnREZt+dJJaNs2TJCU4MUlVVGaSBJIiqU +iHuEEuGLZERLVtHSVwmRlVvyO7+/zuv9Oq/P+czneT6H8DvgEMDNxcUl8g8X +1/+fs4OtTcykvPWrwcvD98GG9V3XpcI39MaCQHLtwHakA6587ifVmwohZSFZ +OrgGwuzu9tB6b0JkEe2aFCKIjEumzveUwUSb65WfYAfva2wOTPc0wFOnT0nh +4APmzJGByZ5X4FNbvJjHOgjzPYaXJ3o+wSeh25meBtHQuPF23subU/DX1v+D +WWMyyL6v+s9PYwEWgwolxq9mgPi+HXf5NtLw1EbJOyJTOZCqY15t48yPKXtU +6oIe3IK+jDX1k8KCGGuQNvd2vACS8qKec0uL4Gx8TcOo6F2QTPt85lK2GHb8 +7PiV+KQYpNQrTv8qEEOBZk5md2cxyDTER3mxxZDTyX1KvrcY5CdUj6g0iuFZ +twmF7JFiUNp60Kf6qxie+vZ4n/OKe6DHs2DwWU8c5zKMnUiXe2AbKjGk2yaO +M6faOoWG7kGCk+X6V7Mr0XJO3VrtewnIlHfKcP8jgec4Zz3uTpVAiZjTnM4y +CbzAer5L8U8JdL/yZqcoUO8DQ8O4BEuBaR/KsLeQQBrWbg7UKoWGbTm8L65K +4Pkp2/n3B0phwXyms8NUEqvuVgXEj5VCckFE0YK5JOL4eCJzhmrPy5WoaS+J +H1r2pVT/KYWtTwQ2nA+QxEelf1VGlrAhcyP9/tYLkng7S9i4V5wN69D6Svt7 +SSyxNwxZqsuGEKMbO1pjpTBBxKWidjcbrHKFpq3PSaHVybcXPu1jA4PvRGLn +ZSn8kChpRTvIhhdd28nXd6TQZ9g2wCSMDVoHl9MGO6VwbkBVIz6WDV8Ljhb8 +lJFG35kf3+Iy2eApbjO26r40NjfVtmu2sEHveHXM9RppTJGqrxlrY4PAp9US +RLM0nt0mc+FuBxuqSmmg3CeNx5LGXsq8ZoOEdVXymkVpPFP8cvDNANV/DFN/ +s7UMShM1EpU/2bDpByci+LMM8iTWhSvIkBBukab276gMLj/VVXlAloSSG5r9 +YrMy2GNfM1MjT4KUk49RFf8qLJ9ICLdRJGH04ZM5mtYqXOHWk7VNg4RLscmh +V4+twpaXXiE1LBI+rVQObhKUxV189mle3iRIHqiTk5SURVlDLw8bHxK2trh2 +7KbLoteyn6qmfiRURiRprNCTxcqvtwaFAkk4+35ixM1VFh+t7i9O3k+CbmF1 +0I+bsnisqFWc9wQJMab2vjLr5DDLpPdvVToJFt7XfxqayaHOK7pFcAYJQtHf +TzlvlcOd3U9kFTJJyGqMK0j2kcMDS/t2h2WT8NDq0XfeM3L4+KN1zu9bJEy4 +KoZN9cmh9QfVdz5sEh5EHOQTGZLDVMEzwoMkCZFZjzO0xuUwYCy5x+U+Ccs/ +uFTv5pbHIuKSwoZKElSCznF9UJNHrsHA/JFqEryPzJx9dlweR2nDv682k6B0 +xUx2JE4erbskMz48/f/6XbzHlyyPciu3PldsJSHij+oLszx5vPZ6Xji3nYTL +p7xXVj2Tx9lxmDzwgoRnKU9z8uUUkMU5dnt/H7Xe98V1GlUUsPfQ53WR/SS4 +v/Ft+KCjgIySsuCktyR8lfoztMpcAfm+clqvDZBAy12jlhqsgB4/Wu3SPpJg +XHK1PLJOATtVXbW/fCVhU0/nwniLAoYsyjeR30iw4eLZsuOVAkp/Dj9yfIQE +f4fgPviigF4BjDW8oySYHyeiopfQUen9kPj8OAntK2purROg4/lLY9klP0iw +y9veMiFEx0AzAQvfCRI8OpJEfKXo2KfR8U/tJAkHFWZvbVCnY7t//SrnaRJm +7ie3zGvTcbNE0eMpyhEW6mOkPh1/HXGJuzhDQtwhHwPGejpORLsl1s6SkNnY +1sJtT0ebjuH9nF8kKLgGjD1ypmMSrd4mdp6EvNFFkRB3Or5I1Xfn45BQunKt +x2d/OmrC/in+3yQ0BeWMNYbR8UlPFo78IcHyj5HoieN0DOV7neCxQEJncpeB +fjT1/Z3Ff1sp91Utjc47Q8fahd6T1/9S+2uTl+d5gY7WEmEJPIskDH1a3yp+ +iY4yYlaNQZTHl4WKxmXR8WCXTpcSVxmE5AoZsm5Q71+l3Y2m/Eu/0GMmn46H +lToqeinTvAfzAkrpuHDRf3/0P2UgxbYwNG+go39zV0gJdxlkb/rs8beZjjUy +SbQpyoy+k9GV7dR894R06NPKQJP7fqvyGzqeeJwmyqZclr5tfLCPjnN1Ghe/ +UV6n/lX0yiDVvrrcgs5TBmZOcp58X+koUul2JI7y068PoutG6Xi9v//bfcpb +TzrkH52kY9ZG8evvKb8SGWvVnqVjSVZVKv+SMnApSBgf5tBRTj+qRYvyO2OG +WO4iHfdwpNGBst/zGkNXHgJHYoBzmPKwv4un8FICt/7Nn0umvO/XZHSLIIHM +TTxGxZSNDwVK/CdKYFBkYEkzZf6R/iKaFIHNHJ4fA5S7/Ww3EHIEWoq2/56k +nP+2sXs9g8Br83lvuHnLINRp3T5PFQJ96qNOClM26yj+J0KDwDQ7y2kZysLm +xJUrOgR2758wZlAerL2sUWFA4L/lOx2UKRcbCjS8MiHQPjPdRIVyBDvSZQIJ +ZOw9OsekbKE6NSpoTmCP1Xy8AmWJm0Gx6tYE7tFb8V2C8pDMO0lLOwLDp4uZ +yyiXXbK7F+hMYInuU/0/1Hijlz8xO+1O4GKgo+wIZds4o94bOwgUH9zyrouy +/N97++t2Epj04NqRGsqjYQzawG4Cvb+Yf8ul/OhHegYnmFovdbN1sZQTdy3T +kgolMEQuwd+H8vaPUY1rwwnUJIT3mVBmuk+7OkZS893T6yBGud564NSFRAJ5 +iiXrqqj9vNBkL118nsCr4mfMEyl7sppLWlMJHLilxXakPK9V2seTTeDQZzGt +j9T5abmteIBxk8CMIKdNtyin0zN48DaBkZVt6EdZVzRG+zhJoMJS/4lu6nxy +Jc00ZVQS+F79XP45yp20Pe6V1QQe2T6/CSjvnXGIm3xC4IHkSvNr1Hk3Dn4q +s6KdQM60WNEmyvzDJmyNFwTaCrxYGKHiI6+X+Taon8Bcv4TDWpQP2189GPee +wGGZ9PR2Kt6wTZD31hCBSvvV7gVQHqieXTM4TmCNrFhlMhWvEjkt8U40Bgpu +c3NqoOJ9SJIle5ifgboaPGpbKJclk+RFQQbaJRRwWqj8YBub+a5NkoEq96RS +Gqn8kRiwT3eDBgN53Z6x06h8M68uPKjpzMBClcyS21MkzGbLxOi5MzB/gP1u +8ScJ0yuUmEY7GMhVflbXmfL4lNGeTbsZuCun1m2Oyoefqv1n3U8ycFyk/b40 +lT/brB8IJeYz8Pnqm3E9wyQ8ffwvef4uAy+bFJRyU27SfuZ0qZSBIiEpour/ +kVAr9jHzehUDp6uPJ4QMUeN/K6BS0cFA9SnnrZ8/UPlxrzd8mmHgv8F1RkDV +iysDuz4NcxgYZRoZtr6XhDTbkLixRQbeKfu4YNxDwgW9xPZfSxXxxYz0pPob +EmJ/ky4r5BXxawDvmTGq/uxNWnLQ1FwRv+/ZFjlB1S/TouLc9HRF9CywT1+g +6uFbelHO5muKmHcrO7SujMrf6YXXp3MUkcYUlYqi6ueDmIIsh0JFNNF2LJsr +oeq5a26GUI0i8vzwtu0sJEF1SVpy/EdFXHtrBa9oDrVfO45Hh2kw8eOEsTUn +gYSKrvAoJR0m8hEfy8PiSXCyOhbZtZaJXkWWtMnTJKSuPXJCF5g4enKPw/sY +EgSXHzg2bs9E+uV13TePk8BT5Xcw8CgTw2uDXJqDSZgUtfLZ3sDEb+v6dsc7 +ktC7j/Fiz1Mmxqk5cTLtSahv5kDUMyYK6qsa3rMlITmiSOFONxOzrupVt1mT +sObT8vfzI0wsi5URHdlIQjD53CtbTAlzFJuVq/VIGLF19hjaqYQFLRaubBHq +vJ3z2X6YTxm3aMsr6z1lQ/CIBmPNcmU0zbQMH25iw9yW+bExYWWUkYsRyWyg +7ne01LjdMsrod+naSs5jNqwJbyz30VRGpr7hufxyNpwMUBazdVTGRiddnaIb +1H1v/ehz9RxlpI8t2oVHsMHyx1HLLwYq+O2ow2cfFTaM+vOHlEetRvErmhyX ++hLqf0OSO6FBFSNLshPCqPu6aIfyBfYPNezYZZ83vKMIZBNL7QwMNFCyfrMY +ebQQMtSNhMWCNNG/qD/XMf82tMlsWDuVooVHhrI45/rywVi2IVm7WxvPL49c +ovH9FgjRbob6xq5BqiwUf1O5CfIxCqZuyjq4+oZmTaRtLixV8qx0eKqDqp2r +7u9VywYtlnTpUS9dLA+ebmfJZ8LhQdFGKy49nH2aish7BX5MnXO2zNDDNo7B +lzeuabBFuznTUlMffxXe5+IdS4HaKZPfc536SGvYIH1W6CIEa+j2vwxYi5PK +v0/4cicBa3xnl9tSA6zgUsMK0QTYzJTaJnjTALN05FvKOk7B6uizxxoMDfHn +KoEKlZloUAswqlPqN0SW5YNuvcgTEFC763T5oXUomr53+6GVx6Aut2vn5Eoj +PN59cPe7qRCYvrM4p/3ACGfyZ4zJEwfBX6loaeY2YzRyTT61K2QvTKpdMiib +MEa9vX8miR2B8DDv98eZRBOMa2pLzfb1A4ONoXNWSSYop87+aeHoBxUfR5fn +njdB8yhf3r+b/KBMftDQKtUEY7er68et9oPijPrz16+ZYA73awm+CV/IPRdn +tKXEBF1prbu7on3hTOiKlIzXJth7w0n9UKEPuG+iYk/eFCu8X09qq3vDQhe/ +UCPdFMfKmix5RLwhN2D8rZWiKTqlx8eMznrBf/FVR91Xm+LhLPcdvxq84HCr +bWm4rikKmQSf/OPhBWdtTsg/NDdF3tZXWUUpnvDI9c0f/QOm+O/gJiP7ZR6w +an9ClVa9KX4zGa9bvdYVLiwGrk1qMMXakCUMfsIVuFPNyeEmU7Sa0LCYXe4K +I5VLCnNbTTGztq3m75ALPOI6nSH62hTvXB3eWnfZBdzToo/OfjFFB5ap2dz8 +dsioDl9bu4yF7/4zEV/S4QwrBfaR21woaytZVF1zhLyNJyMm3FiopjU9IX7G +EXRPXth4yZOFhx5sdI0OcwSbCfabXl8WElserI23d4T47pl5/30svP4lbHor +vyP8uhllFhHDQoPC3b01xxyg3+TS64IiFi6P2qnQv9Medh3Jy7IsYWGQwTMf +KSd7mC2pCBhls3DZCwPegI32IMrondOpZGGDhpmjKsMerPnlZB/Xs7BFvPiV +5wc7qOkq2Pn6DQtlOVJegTvswErooWZYLwsLee/R4m3toHdL66zUWxamZcTv +vg92MP3oe6L3BxY+FMixMqTbgeaNNfe+jbCw/qFnSlOjLdT0bwg7N8ZCTy8i +ZyDPFqzEHUF7glqP0C9nReJtITDhyMvQGao/w/niVgtbmK6Pz5T8xcLTmkXV +29RsIZZzxf8Rh4UbVAm30WW2IKxfqOG1wELzqduH8sds4Pr+RzOLiyyc9boy +eey5DfwP78K/dQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07040639118950166}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07040639118950166}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8bAHBfV0iRlZVxz3WRnREZt+dJJaNs2TJCU4MUlVVGaSBJIiqU +iHuEEuGLZERLVtHSVwmRlVvyO7+/zuv9Oq/P+czneT6H8DvgEMDNxcUl8g8X +1/+fs4OtTcykvPWrwcvD98GG9V3XpcI39MaCQHLtwHakA6587ifVmwohZSFZ +OrgGwuzu9tB6b0JkEe2aFCKIjEumzveUwUSb65WfYAfva2wOTPc0wFOnT0nh +4APmzJGByZ5X4FNbvJjHOgjzPYaXJ3o+wSeh25meBtHQuPF23subU/DX1v+D +WWMyyL6v+s9PYwEWgwolxq9mgPi+HXf5NtLw1EbJOyJTOZCqY15t48yPKXtU +6oIe3IK+jDX1k8KCGGuQNvd2vACS8qKec0uL4Gx8TcOo6F2QTPt85lK2GHb8 +7PiV+KQYpNQrTv8qEEOBZk5md2cxyDTER3mxxZDTyX1KvrcY5CdUj6g0iuFZ +twmF7JFiUNp60Kf6qxie+vZ4n/OKe6DHs2DwWU8c5zKMnUiXe2AbKjGk2yaO +M6faOoWG7kGCk+X6V7Mr0XJO3VrtewnIlHfKcP8jgec4Zz3uTpVAiZjTnM4y +CbzAer5L8U8JdL/yZqcoUO8DQ8O4BEuBaR/KsLeQQBrWbg7UKoWGbTm8L65K +4Pkp2/n3B0phwXyms8NUEqvuVgXEj5VCckFE0YK5JOL4eCJzhmrPy5WoaS+J +H1r2pVT/KYWtTwQ2nA+QxEelf1VGlrAhcyP9/tYLkng7S9i4V5wN69D6Svt7 +SSyxNwxZqsuGEKMbO1pjpTBBxKWidjcbrHKFpq3PSaHVybcXPu1jA4PvRGLn +ZSn8kChpRTvIhhdd28nXd6TQZ9g2wCSMDVoHl9MGO6VwbkBVIz6WDV8Ljhb8 +lJFG35kf3+Iy2eApbjO26r40NjfVtmu2sEHveHXM9RppTJGqrxlrY4PAp9US +RLM0nt0mc+FuBxuqSmmg3CeNx5LGXsq8ZoOEdVXymkVpPFP8cvDNANV/DFN/ +s7UMShM1EpU/2bDpByci+LMM8iTWhSvIkBBukab276gMLj/VVXlAloSSG5r9 +YrMy2GNfM1MjT4KUk49RFf8qLJ9ICLdRJGH04ZM5mtYqXOHWk7VNg4RLscmh +V4+twpaXXiE1LBI+rVQObhKUxV189mle3iRIHqiTk5SURVlDLw8bHxK2trh2 +7KbLoteyn6qmfiRURiRprNCTxcqvtwaFAkk4+35ixM1VFh+t7i9O3k+CbmF1 +0I+bsnisqFWc9wQJMab2vjLr5DDLpPdvVToJFt7XfxqayaHOK7pFcAYJQtHf +TzlvlcOd3U9kFTJJyGqMK0j2kcMDS/t2h2WT8NDq0XfeM3L4+KN1zu9bJEy4 +KoZN9cmh9QfVdz5sEh5EHOQTGZLDVMEzwoMkCZFZjzO0xuUwYCy5x+U+Ccs/ +uFTv5pbHIuKSwoZKElSCznF9UJNHrsHA/JFqEryPzJx9dlweR2nDv682k6B0 +xUx2JE4erbskMz48/f/6XbzHlyyPciu3PldsJSHij+oLszx5vPZ6Xji3nYTL +p7xXVj2Tx9lxmDzwgoRnKU9z8uUUkMU5dnt/H7Xe98V1GlUUsPfQ53WR/SS4 +v/Ft+KCjgIySsuCktyR8lfoztMpcAfm+clqvDZBAy12jlhqsgB4/Wu3SPpJg +XHK1PLJOATtVXbW/fCVhU0/nwniLAoYsyjeR30iw4eLZsuOVAkp/Dj9yfIQE +f4fgPviigF4BjDW8oySYHyeiopfQUen9kPj8OAntK2purROg4/lLY9klP0iw +y9veMiFEx0AzAQvfCRI8OpJEfKXo2KfR8U/tJAkHFWZvbVCnY7t//SrnaRJm +7ie3zGvTcbNE0eMpyhEW6mOkPh1/HXGJuzhDQtwhHwPGejpORLsl1s6SkNnY +1sJtT0ebjuH9nF8kKLgGjD1ypmMSrd4mdp6EvNFFkRB3Or5I1Xfn45BQunKt +x2d/OmrC/in+3yQ0BeWMNYbR8UlPFo78IcHyj5HoieN0DOV7neCxQEJncpeB +fjT1/Z3Ff1sp91Utjc47Q8fahd6T1/9S+2uTl+d5gY7WEmEJPIskDH1a3yp+ +iY4yYlaNQZTHl4WKxmXR8WCXTpcSVxmE5AoZsm5Q71+l3Y2m/Eu/0GMmn46H +lToqeinTvAfzAkrpuHDRf3/0P2UgxbYwNG+go39zV0gJdxlkb/rs8beZjjUy +SbQpyoy+k9GV7dR894R06NPKQJP7fqvyGzqeeJwmyqZclr5tfLCPjnN1Ghe/ +UV6n/lX0yiDVvrrcgs5TBmZOcp58X+koUul2JI7y068PoutG6Xi9v//bfcpb +TzrkH52kY9ZG8evvKb8SGWvVnqVjSVZVKv+SMnApSBgf5tBRTj+qRYvyO2OG +WO4iHfdwpNGBst/zGkNXHgJHYoBzmPKwv4un8FICt/7Nn0umvO/XZHSLIIHM +TTxGxZSNDwVK/CdKYFBkYEkzZf6R/iKaFIHNHJ4fA5S7/Ww3EHIEWoq2/56k +nP+2sXs9g8Br83lvuHnLINRp3T5PFQJ96qNOClM26yj+J0KDwDQ7y2kZysLm +xJUrOgR2758wZlAerL2sUWFA4L/lOx2UKRcbCjS8MiHQPjPdRIVyBDvSZQIJ +ZOw9OsekbKE6NSpoTmCP1Xy8AmWJm0Gx6tYE7tFb8V2C8pDMO0lLOwLDp4uZ +yyiXXbK7F+hMYInuU/0/1Hijlz8xO+1O4GKgo+wIZds4o94bOwgUH9zyrouy +/N97++t2Epj04NqRGsqjYQzawG4Cvb+Yf8ul/OhHegYnmFovdbN1sZQTdy3T +kgolMEQuwd+H8vaPUY1rwwnUJIT3mVBmuk+7OkZS893T6yBGud564NSFRAJ5 +iiXrqqj9vNBkL118nsCr4mfMEyl7sppLWlMJHLilxXakPK9V2seTTeDQZzGt +j9T5abmteIBxk8CMIKdNtyin0zN48DaBkZVt6EdZVzRG+zhJoMJS/4lu6nxy +Jc00ZVQS+F79XP45yp20Pe6V1QQe2T6/CSjvnXGIm3xC4IHkSvNr1Hk3Dn4q +s6KdQM60WNEmyvzDJmyNFwTaCrxYGKHiI6+X+Taon8Bcv4TDWpQP2189GPee +wGGZ9PR2Kt6wTZD31hCBSvvV7gVQHqieXTM4TmCNrFhlMhWvEjkt8U40Bgpu +c3NqoOJ9SJIle5ifgboaPGpbKJclk+RFQQbaJRRwWqj8YBub+a5NkoEq96RS +Gqn8kRiwT3eDBgN53Z6x06h8M68uPKjpzMBClcyS21MkzGbLxOi5MzB/gP1u +8ScJ0yuUmEY7GMhVflbXmfL4lNGeTbsZuCun1m2Oyoefqv1n3U8ycFyk/b40 +lT/brB8IJeYz8Pnqm3E9wyQ8ffwvef4uAy+bFJRyU27SfuZ0qZSBIiEpour/ +kVAr9jHzehUDp6uPJ4QMUeN/K6BS0cFA9SnnrZ8/UPlxrzd8mmHgv8F1RkDV +iysDuz4NcxgYZRoZtr6XhDTbkLixRQbeKfu4YNxDwgW9xPZfSxXxxYz0pPob +EmJ/ky4r5BXxawDvmTGq/uxNWnLQ1FwRv+/ZFjlB1S/TouLc9HRF9CywT1+g +6uFbelHO5muKmHcrO7SujMrf6YXXp3MUkcYUlYqi6ueDmIIsh0JFNNF2LJsr +oeq5a26GUI0i8vzwtu0sJEF1SVpy/EdFXHtrBa9oDrVfO45Hh2kw8eOEsTUn +gYSKrvAoJR0m8hEfy8PiSXCyOhbZtZaJXkWWtMnTJKSuPXJCF5g4enKPw/sY +EgSXHzg2bs9E+uV13TePk8BT5Xcw8CgTw2uDXJqDSZgUtfLZ3sDEb+v6dsc7 +ktC7j/Fiz1Mmxqk5cTLtSahv5kDUMyYK6qsa3rMlITmiSOFONxOzrupVt1mT +sObT8vfzI0wsi5URHdlIQjD53CtbTAlzFJuVq/VIGLF19hjaqYQFLRaubBHq +vJ3z2X6YTxm3aMsr6z1lQ/CIBmPNcmU0zbQMH25iw9yW+bExYWWUkYsRyWyg +7ne01LjdMsrod+naSs5jNqwJbyz30VRGpr7hufxyNpwMUBazdVTGRiddnaIb +1H1v/ehz9RxlpI8t2oVHsMHyx1HLLwYq+O2ow2cfFTaM+vOHlEetRvErmhyX ++hLqf0OSO6FBFSNLshPCqPu6aIfyBfYPNezYZZ83vKMIZBNL7QwMNFCyfrMY +ebQQMtSNhMWCNNG/qD/XMf82tMlsWDuVooVHhrI45/rywVi2IVm7WxvPL49c +ovH9FgjRbob6xq5BqiwUf1O5CfIxCqZuyjq4+oZmTaRtLixV8qx0eKqDqp2r +7u9VywYtlnTpUS9dLA+ebmfJZ8LhQdFGKy49nH2aish7BX5MnXO2zNDDNo7B +lzeuabBFuznTUlMffxXe5+IdS4HaKZPfc536SGvYIH1W6CIEa+j2vwxYi5PK +v0/4cicBa3xnl9tSA6zgUsMK0QTYzJTaJnjTALN05FvKOk7B6uizxxoMDfHn +KoEKlZloUAswqlPqN0SW5YNuvcgTEFC763T5oXUomr53+6GVx6Aut2vn5Eoj +PN59cPe7qRCYvrM4p/3ACGfyZ4zJEwfBX6loaeY2YzRyTT61K2QvTKpdMiib +MEa9vX8miR2B8DDv98eZRBOMa2pLzfb1A4ONoXNWSSYop87+aeHoBxUfR5fn +njdB8yhf3r+b/KBMftDQKtUEY7er68et9oPijPrz16+ZYA73awm+CV/IPRdn +tKXEBF1prbu7on3hTOiKlIzXJth7w0n9UKEPuG+iYk/eFCu8X09qq3vDQhe/ +UCPdFMfKmix5RLwhN2D8rZWiKTqlx8eMznrBf/FVR91Xm+LhLPcdvxq84HCr +bWm4rikKmQSf/OPhBWdtTsg/NDdF3tZXWUUpnvDI9c0f/QOm+O/gJiP7ZR6w +an9ClVa9KX4zGa9bvdYVLiwGrk1qMMXakCUMfsIVuFPNyeEmU7Sa0LCYXe4K +I5VLCnNbTTGztq3m75ALPOI6nSH62hTvXB3eWnfZBdzToo/OfjFFB5ap2dz8 +dsioDl9bu4yF7/4zEV/S4QwrBfaR21woaytZVF1zhLyNJyMm3FiopjU9IX7G +EXRPXth4yZOFhx5sdI0OcwSbCfabXl8WElserI23d4T47pl5/30svP4lbHor +vyP8uhllFhHDQoPC3b01xxyg3+TS64IiFi6P2qnQv9Medh3Jy7IsYWGQwTMf +KSd7mC2pCBhls3DZCwPegI32IMrondOpZGGDhpmjKsMerPnlZB/Xs7BFvPiV +5wc7qOkq2Pn6DQtlOVJegTvswErooWZYLwsLee/R4m3toHdL66zUWxamZcTv +vg92MP3oe6L3BxY+FMixMqTbgeaNNfe+jbCw/qFnSlOjLdT0bwg7N8ZCTy8i +ZyDPFqzEHUF7glqP0C9nReJtITDhyMvQGao/w/niVgtbmK6Pz5T8xcLTmkXV +29RsIZZzxf8Rh4UbVAm30WW2IKxfqOG1wELzqduH8sds4Pr+RzOLiyyc9boy +eey5DfwP78K/dQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07040639118950166}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07040639118950166}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994253202096583*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"ae2ea8e9-4b06-4e80-a5a1-2cf5720d1381"] +}, Open ]], Cell[CellGroupData[{ @@ -10053,18 +11710,75 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], - RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ -UUID->"01995149-3665-fe4e-b326-b20429031afd"], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[121]:=",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"52cff8eb-0c77-c944-a54f-e282b00ce766"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.496459222797711`*^-156\\\", \ +RowBox[{\\\"164243120455479739170682508554789627978\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"75\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4724542670438400000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 45, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994253202154025*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"373e5c97-c255-4fe3-9c5a-eb877beb2e35"], -Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4235162586799977`*^-158\\\", \ +RowBox[{\\\"552513857212233842570175958778312308519\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"78\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3361543354777600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 46, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994253202168853*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"59c450c7-74f7-4068-a5c2-d54e8783adf4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.703140880915827`*^-161\\\", \ +RowBox[{\\\"192330073695578600598678251250730514595\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"82\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1532417980825600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 47, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942532021789217`*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"77b5a71d-41f1-4e1d-a342-aee16769176d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 121, 48, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994253202190646*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"2d8d9b6e-0935-49d2-b417-c0a09aa2701a"], + +Cell[BoxData["10.664689674475703`"], "Output", + CellChangeTimes->{3.994253290797311*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"85a6708f-af3c-48f6-af0b-df78116c6b38"] }, Open ]], Cell[CellGroupData[{ @@ -10131,27 +11845,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918507468132763`*^9, - 3.9918507511809216`*^9}},ExpressionUUID->"11b1e372-f457-5a4d-bcee-\ -062a3c04ed96"], + CellChangeTimes->{{3.9918507468132763`*^9, 3.9918507511809216`*^9}}, + CellLabel-> + "In[122]:=",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"cb5a1193-7562-6446-a279-d9f6295d156e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.218618370800702`*^-206\\\", \ +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 49, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994253290854744*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"e06973e6-83aa-4eb5-bd9b-424855685830"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"566b0ad4-7f4e-b04f-8294-646ce1913fac"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.050640720010351`*^-210\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 50, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942532908630867`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"ae06c714-a59f-4678-80b3-218faa231362"], -Cell[BoxData["0.7273353591556563`"], "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7750661911123814`*^-215\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 51, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994253290873163*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"b0992260-7e8c-4fe7-a903-fe7929f5c1c8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 122, 52, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942532908822403`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"0b0c9684-fd11-4dbf-9c8f-4d84c63ed563"], + +Cell[BoxData["0.5632488037852674`"], "Output", + CellChangeTimes->{3.9942533023392687`*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"1c9875f1-610e-42f2-a53c-4a4e26b79119"] }, Open ]], Cell[CellGroupData[{ @@ -10172,8 +11934,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -10218,27 +11979,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.99185075434021*^9, - 3.9918507570104733`*^9}},ExpressionUUID->"8cb4e371-90a5-d347-adec-\ -3382e7679ba8"], + CellChangeTimes->{{3.99185075434021*^9, 3.9918507570104733`*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"4cd45900-7eb0-6b4b-830a-a339e8117392"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.218618370800702`*^-206\\\", \ +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 123, + 53, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942533023992977`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"8c8fd314-3648-49e3-af29-d59e9661cef3"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"0ddcf174-f6c5-2546-b6d3-f17f46d6e8a3"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.050640720010351`*^-210\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 123, + 54, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994253302408752*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"8618e6e4-632a-45c5-a9e9-3cf0d26819b6"], -Cell[BoxData["3.1005213487548544`"], "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7750661911123814`*^-215\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 123, + 55, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942533024183607`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"987c21a8-fdaa-4602-92b9-9048b53bbfa7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 123, 56, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994253302428022*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"81eaa932-6f5c-44a5-9d19-9e3300febeaa"], + +Cell[BoxData["31.85258815388183`"], "Output", + CellChangeTimes->{3.994253313277356*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"22f7d7ef-2f70-4f4c-8589-df45157b284d"] }, Open ]], Cell[CellGroupData[{ @@ -10259,8 +12068,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -10305,27 +12113,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918507598219967`*^9, - 3.9918507622107697`*^9}},ExpressionUUID->"732b358a-c98a-0347-8b16-\ -2462b23d6249"], + CellChangeTimes->{{3.9918507598219967`*^9, 3.9918507622107697`*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"f702ec8b-e3a1-2f4f-bfef-4278a2688935"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.218618370800702`*^-206\\\", \ +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 124, + 57, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942533133255997`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"525fa722-3204-4bb7-89fb-dcbbb80152d6"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"61220452-df6a-154e-8b5c-fecd0ab287a1"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.050640720010351`*^-210\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 124, + 58, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994253313336692*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"975a3e21-3642-4ba2-a668-b873546904aa"], -Cell[BoxData["18.198720438459198`"], "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7750661911123814`*^-215\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 124, + 59, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994253313346918*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"03750d84-ac28-4502-b6a2-1c7b8585b026"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 124, 60, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994253313357066*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"dae6840c-b8dd-4b6b-a845-e0b3d64e2af5"], + +Cell[BoxData["4.736872114478781`"], "Output", + CellChangeTimes->{3.9942533225536537`*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"9993f5bb-788f-4499-b357-1d08f94542e6"] }, Open ]], Cell[CellGroupData[{ @@ -10334,19 +12190,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918507652122154`*^9, - 3.9918507685850487`*^9}},ExpressionUUID->"3d20548b-905d-0343-8df1-\ -168ec8f367e1"], + CellChangeTimes->{{3.9918507652122154`*^9, 3.9918507685850487`*^9}}, + CellLabel-> + "In[125]:=",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], -Cell[BoxData["0.09682709699983048`"], "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] +Cell[BoxData["0.04585451295820018`"], "Output", + CellChangeTimes->{3.994253322613585*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"e06afca8-1808-4902-a998-65e14da5248d"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918507716362114`*^9, 3.991850773604473*^9}, - 3.9919245563167305`*^9},ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-\ -e661a25a7ba1"], + 3.9919245563167305`*^9}, + CellLabel-> + "In[126]:=",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], Cell[CellGroupData[{ @@ -10367,10 +12227,14 @@ Cell[BoxData[ RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Ir", "*", "Il"}], - RowBox[{"Il", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"601c24ee-3f7b-\ -c74d-891b-10a6d009e34b"], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[127]:=",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], -Cell[BoxData["7.1357426619652635`"], "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +Cell[BoxData["6.08923637101711`"], "Output", + CellChangeTimes->{3.994253322637484*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"d12e3aec-2b33-4c3c-bec8-79eab9bbe847"] }, Open ]], Cell[CellGroupData[{ @@ -10378,10 +12242,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ - FractionBox["Kb", "Qb1"]]}]], "Input",ExpressionUUID->"05949206-8ee0-5646-\ -bb01-e9142212274d"], + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], -Cell[BoxData["1.4042291233210182`"], "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +Cell[BoxData["4.252815751457625`"], "Output", + CellChangeTimes->{3.994253322652006*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"aa4c221f-67f9-49d3-a942-d7c772d3c1b7"] }, Open ]], Cell[CellGroupData[{ @@ -10389,10 +12257,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ - RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"25a02cc2-\ -cb9a-bc4b-93f0-a7873f982a23"], + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], -Cell[BoxData["10.02021766245587`"], "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +Cell[BoxData["25.896400353010232`"], "Output", + CellChangeTimes->{3.994253322667541*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"53cffe27-b293-4d67-b879-13b17c3469c6"] }, Open ]], Cell[CellGroupData[{ @@ -10580,10 +12452,14 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"df51ca6a-83a1-6340-\ -b13c-0185de64c37f"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], -Cell[BoxData["0.06461147402889976`"], "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +Cell[BoxData["0.006542610366830768`"], "Output", + CellChangeTimes->{3.9942533226871147`*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"83b47080-e8f1-452d-8d29-9c904a61b140"] }, Open ]], Cell[CellGroupData[{ @@ -10595,18 +12471,14 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"731f0e35-\ -7798-8b45-a769-075ac4b3983f"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[131]:=",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"4870a5d4-b6fc-9044-ae55-fcbd2b9d41eb"], - -Cell[BoxData["3.486503585502317`"], "Output",ExpressionUUID->"4263cd25-e2b6-5c4b-8834-28c6ca12b863"] +Cell[BoxData["10.956438667390618`"], "Output", + CellChangeTimes->{3.994253322892109*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"3e5ae2a7-bf64-488a-9004-63a8b516371c"] }, Open ]], Cell[CellGroupData[{ @@ -10796,10 +12668,14 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"413c8e7d-149c-5d4a-\ -9ccb-23aebae2e6d5"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[132]:=",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], -Cell[BoxData["0.01165072070943232`"], "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +Cell[BoxData["0.037749259099494156`"], "Output", + CellChangeTimes->{3.9942533229133987`*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"00dae37b-2d3c-4f52-8ab7-a76846e40df9"] }, Open ]], Cell[CellGroupData[{ @@ -10811,18 +12687,14 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"e11d7eb8-\ -00a8-f540-98a0-89164ac4bae9"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[133]:=",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"d6f4e6b1-3d45-7649-b7dd-944c4a1de3e4"], - -Cell[BoxData["8.21047995098231`"], "Output",ExpressionUUID->"27fdf87b-577e-d74b-99f1-6a0486be19bc"] +Cell[BoxData["4.56132192503827`"], "Output", + CellChangeTimes->{3.994253323123497*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"959414c4-3e12-4afb-b453-f8e4d11354e7"] }, Open ]], Cell[CellGroupData[{ @@ -10913,10 +12785,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-\ -1ee89e798d8f"], + ")"}]}]}]], "Input", + CellLabel-> + "In[134]:=",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], -Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +Cell[BoxData["0.06403372334152496`"], "Output", + CellChangeTimes->{3.994253323140531*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"bd163e41-1f97-4ca1-82ec-a086de46846e"] }, Open ]], Cell[CellGroupData[{ @@ -11004,10 +12880,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-\ -f30d036fcdd2"], + ")"}]}]}]], "Input", + CellLabel-> + "In[135]:=",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], -Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +Cell[BoxData["0.9359662766584752`"], "Output", + CellChangeTimes->{3.994253323157791*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"f0ac6f3f-db89-4ebb-8da1-3cbeb259980d"] }, Open ]], Cell[CellGroupData[{ @@ -11128,10 +13008,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", - "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"46af1283-32d6-\ -7240-acd2-307af56b44db"], + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[136]:=",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], -Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +Cell[BoxData["0.059933405616546`"], "Output", + CellChangeTimes->{3.9942533231744833`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"fee8f7e1-b86a-4fe5-a6d9-59e8d5e27a27"] }, Open ]], Cell[CellGroupData[{ @@ -11193,27 +13077,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918507910247746`*^9},ExpressionUUID->"cd516020-ac7f-224d-b1ff-\ -af0307420662"], + CellChangeTimes->{3.9918507910247746`*^9}, + CellLabel-> + "In[137]:=",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"b82c1933-5313-1d4c-a858-68be8f118333"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6194532314661395`*^-206\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 137, + 61, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942533232005863`*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"4068a406-c8f3-4d14-baad-2cec51d3331c"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"3b3475f7-7db7-054a-b7f5-20d8f7d491bf"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.406501633978389`*^-211\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 137, + 62, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99425332321065*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"d33e92b3-5548-447f-9128-4d3b3e55fa39"], -Cell[BoxData["3.486503585502321`"], "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.165537822782164`*^-216\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 137, + 63, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99425332321944*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"31de785e-2b41-4cdf-bc7a-2afea8bebf50"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 137, 64, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942533232300863`*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"d12f72ff-d892-4cde-bac6-c32d45e1f7c6"], + +Cell[BoxData["10.956438667390605`"], "Output", + CellChangeTimes->{3.994253331184409*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"9a9e347a-5af7-4844-9eb6-c969e32dd0f2"] }, Open ]], Cell[CellGroupData[{ @@ -11275,27 +13207,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918507936164455`*^9},ExpressionUUID->"a9d0e817-a1c8-6546-a901-\ -34313c6ec04d"], + CellChangeTimes->{3.9918507936164455`*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"9e0b92f8-7fe2-e84e-89cd-c02c9da3e5b7"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6194532314661395`*^-206\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 65, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994253331258402*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"71b5c400-6877-4a0f-ad2a-962e290b63bf"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"56712e4d-1aa7-524a-8254-bcfd8978eea0"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.406501633978389`*^-211\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 66, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994253331267799*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"8e8cd069-a5de-48c6-9368-aa19f668dc6b"], -Cell[BoxData["8.210479950982325`"], "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.165537822782164`*^-216\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 67, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994253331277433*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"01b56bf3-ddaa-4952-9bdc-b6e36e43a4fa"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 138, 68, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942533312856913`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"98178c6f-8f8d-400e-aed9-dc381c2f7df3"], + +Cell[BoxData["4.561321925038269`"], "Output", + CellChangeTimes->{3.994253339121461*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"afadd6ca-ed9b-4443-b461-70c2993f9755"] }, Open ]], Cell[CellGroupData[{ @@ -11353,527 +13333,394 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918507961174965`*^9},ExpressionUUID->"f68960b0-cff6-3245-b906-\ -ad38cf07d634"], + CellChangeTimes->{3.9918507961174965`*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"9c6ce535-b42f-3c43-a89e-eda48c04121e"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"e2ce6bda-7d9b-6149-bf5b-dd4c91908e28"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"2bed6df2-09cb-4d4d-b247-4fe79fd38fd6"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"64a64e18-e609-d54b-8225-64fa7909a948"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.00529101 -0.551091 0.817918 [ -[.15608 .25433 -6 -9 ] -[.15608 .25433 6 0 ] -[.28836 .25433 -6 -9 ] -[.28836 .25433 6 0 ] -[.42063 .25433 -6 -9 ] -[.42063 .25433 6 0 ] -[.55291 .25433 -9 -9 ] -[.55291 .25433 9 0 ] -[.68519 .25433 -9 -9 ] -[.68519 .25433 9 0 ] -[.81746 .25433 -9 -9 ] -[.81746 .25433 9 0 ] -[.94974 .25433 -9 -9 ] -[.94974 .25433 9 0 ] -[.01131 .02145 -18 -4.5 ] -[.01131 .02145 0 4.5 ] -[.01131 .10324 -18 -4.5 ] -[.01131 .10324 0 4.5 ] -[.01131 .18504 -18 -4.5 ] -[.01131 .18504 0 4.5 ] -[.01131 .34862 -18 -4.5 ] -[.01131 .34862 0 4.5 ] -[.01131 .43041 -18 -4.5 ] -[.01131 .43041 0 4.5 ] -[.01131 .5122 -18 -4.5 ] -[.01131 .5122 0 4.5 ] -[.01131 .59399 -18 -4.5 ] -[.01131 .59399 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.15608 .26683 m -.15608 .27308 L -s -[(25)] .15608 .25433 0 1 Mshowa -.28836 .26683 m -.28836 .27308 L -s -[(50)] .28836 .25433 0 1 Mshowa -.42063 .26683 m -.42063 .27308 L -s -[(75)] .42063 .25433 0 1 Mshowa -.55291 .26683 m -.55291 .27308 L -s -[(100)] .55291 .25433 0 1 Mshowa -.68519 .26683 m -.68519 .27308 L -s -[(125)] .68519 .25433 0 1 Mshowa -.81746 .26683 m -.81746 .27308 L -s -[(150)] .81746 .25433 0 1 Mshowa -.94974 .26683 m -.94974 .27308 L -s -[(175)] .94974 .25433 0 1 Mshowa -.125 Mabswid -.05026 .26683 m -.05026 .27058 L -s -.07672 .26683 m -.07672 .27058 L -s -.10317 .26683 m -.10317 .27058 L -s -.12963 .26683 m -.12963 .27058 L -s -.18254 .26683 m -.18254 .27058 L -s -.20899 .26683 m -.20899 .27058 L -s -.23545 .26683 m -.23545 .27058 L -s -.2619 .26683 m -.2619 .27058 L -s -.31481 .26683 m -.31481 .27058 L -s -.34127 .26683 m -.34127 .27058 L -s -.36772 .26683 m -.36772 .27058 L -s -.39418 .26683 m -.39418 .27058 L -s -.44709 .26683 m -.44709 .27058 L -s -.47354 .26683 m -.47354 .27058 L -s -.5 .26683 m -.5 .27058 L -s -.52646 .26683 m -.52646 .27058 L -s -.57937 .26683 m -.57937 .27058 L -s -.60582 .26683 m -.60582 .27058 L -s -.63228 .26683 m -.63228 .27058 L -s -.65873 .26683 m -.65873 .27058 L -s -.71164 .26683 m -.71164 .27058 L -s -.7381 .26683 m -.7381 .27058 L -s -.76455 .26683 m -.76455 .27058 L -s -.79101 .26683 m -.79101 .27058 L -s -.84392 .26683 m -.84392 .27058 L -s -.87037 .26683 m -.87037 .27058 L -s -.89683 .26683 m -.89683 .27058 L -s -.92328 .26683 m -.92328 .27058 L -s -.97619 .26683 m -.97619 .27058 L -s -.25 Mabswid -0 .26683 m -1 .26683 L -s -.02381 .02145 m -.03006 .02145 L -s -[(0.7)] .01131 .02145 1 0 Mshowa -.02381 .10324 m -.03006 .10324 L -s -[(0.8)] .01131 .10324 1 0 Mshowa -.02381 .18504 m -.03006 .18504 L -s -[(0.9)] .01131 .18504 1 0 Mshowa -.02381 .34862 m -.03006 .34862 L -s -[(1.1)] .01131 .34862 1 0 Mshowa -.02381 .43041 m -.03006 .43041 L -s -[(1.2)] .01131 .43041 1 0 Mshowa -.02381 .5122 m -.03006 .5122 L -s -[(1.3)] .01131 .5122 1 0 Mshowa -.02381 .59399 m -.03006 .59399 L -s -[(1.4)] .01131 .59399 1 0 Mshowa -.125 Mabswid -.02381 .03781 m -.02756 .03781 L -s -.02381 .05417 m -.02756 .05417 L -s -.02381 .07053 m -.02756 .07053 L -s -.02381 .08689 m -.02756 .08689 L -s -.02381 .1196 m -.02756 .1196 L -s -.02381 .13596 m -.02756 .13596 L -s -.02381 .15232 m -.02756 .15232 L -s -.02381 .16868 m -.02756 .16868 L -s -.02381 .20139 m -.02756 .20139 L -s -.02381 .21775 m -.02756 .21775 L -s -.02381 .23411 m -.02756 .23411 L -s -.02381 .25047 m -.02756 .25047 L -s -.02381 .28319 m -.02756 .28319 L -s -.02381 .29954 m -.02756 .29954 L -s -.02381 .3159 m -.02756 .3159 L -s -.02381 .33226 m -.02756 .33226 L -s -.02381 .36498 m -.02756 .36498 L -s -.02381 .38134 m -.02756 .38134 L -s -.02381 .39769 m -.02756 .39769 L -s -.02381 .41405 m -.02756 .41405 L -s -.02381 .44677 m -.02756 .44677 L -s -.02381 .46313 m -.02756 .46313 L -s -.02381 .47949 m -.02756 .47949 L -s -.02381 .49584 m -.02756 .49584 L -s -.02381 .52856 m -.02756 .52856 L -s -.02381 .54492 m -.02756 .54492 L -s -.02381 .56128 m -.02756 .56128 L -s -.02381 .57764 m -.02756 .57764 L -s -.02381 .00509 m -.02756 .00509 L -s -.02381 .61035 m -.02756 .61035 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .60332 m -.02499 .60331 L -.02605 .6033 L -.02729 .60328 L -.02846 .60326 L -.03053 .60319 L -.03279 .60309 L -.03527 .60295 L -.0379 .60276 L -.04262 .60232 L -.04749 .60174 L -.05205 .60108 L -.06244 .59913 L -.07305 .59653 L -.08274 .59362 L -.10458 .58527 L -.14429 .56405 L -.18248 .53718 L -.22313 .50297 L -.26226 .46595 L -.30384 .4238 L -.34391 .38185 L -.38246 .3414 L -.42346 .29931 L -.46295 .26047 L -.50092 .22522 L -.54134 .19038 L -.58025 .1597 L -.62161 .13033 L -.66146 .10526 L -.69979 .08415 L -.74057 .06487 L -.77984 .04937 L -.81759 .03723 L -.85779 .02721 L -.87627 .0236 L -.89648 .02036 L -.91652 .01788 L -.92745 .01682 L -.93762 .01604 L -.9426 .01572 L -.94801 .01542 L -.95278 .0152 L -.95783 .01501 L -.96238 .01488 L -.96496 .01483 L -.96738 .01478 L -.9696 .01475 L -.97163 .01473 L -.97275 .01473 L -Mistroke -.97397 .01472 L -.97512 .01472 L -.97619 .01472 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJztXHd4VUUWj0leHiEQqkgnQKgh9GJAmiIlWUJvK0UIvUlVuiCudAGVIqgo -RXq3geIKKGB3daUIFoqCBRBcirTZe+beOe+elzl3XhJ2P/b79o93k5n5ze+c -OdPOlHtb9hzVv8+QnqMGpPWMazai57D+A9JGxjV9ZIQVFXFXWNhdP1i/CnFh -kdb/IiyMPOaKm+I4PKz/hbgljsPjP/N/afknAuTCfzIkn29nIN1JzmCuLKSH -yz8+MW/uPFGuXDlRvnx5MXDgQHHr5i0rFtIixbU/r4l69eqJ+Ph4cfLESb9D -OWjQILF0yVIZiubErINHFMTH2ALDZHax460dokWLFuLSvy6J69euS7IZ02eg -zLO/nRUxMTGS8MD+A0rm7vd2i+bNm3vLXAyPgm6ZERLQrFkz8cXnXzhljhAX -L1wUpUqVcixgx/3040/iyOEjMqSE3rxxU5QoUUKcP3eeFzoXHjkhvgQKvXH9 -hihSpIg0ZoST8b777hOHDx2WoVxO3NChQ8XyV5bLUDZ4RmIzmAaP7BCsgLS/ -/vKrqFq1qpPZfnbv3l288/Y7hPb9ve+LVq1a6WgnwyMagtWQ9vvvvhdJSUmE -tn///mLL5i2E1iqNKFOmjPjj4h82rc4cE+CRDeLroIDffv1Nq/eud3bJUG4n -bvjw4WLd2nWkDtIJGIMNq77R3qpClYD9+/aLTp06eQsYBQ8fxN9PWhE0v88/ -+5y0IugZEMrhxJ07ew5LoBRJSEgQVy5fkaEoTugjWKqmpLvs3LFTNG3aFGwu -uyN00Tmz54TldIiOHT0mWrduTQSOGjVKbN2y1VvgIBSYTAeE+fPmy1qGQWHI -kCHSpm5puXLlgsq0QvYTOsjYsWO9pfVDaamu4Skw6PVGm7c1DF89sT13NCC7 -I7KLAfkQIrsakJ0R2cOA7IDIXgZkW0T20dqmNQb7a9NbYv6BBkkpmHGIAdkc -OR8xIJsi5wgD8gHkHGVANkbOxwzIhogcq7VNfQyONzDVQ+REAzIJkY8bkLWx -xFMMyJrI+aQBWR2RTxmQVRE5XWubyhicqU1PhEc4BGcbJCVgxjkGZAVEzrWR -mXBD7OgoOR1ZQ6GoXbu2qFmzpmjUqJHYu2cvOzOVQ9nzbdmZ80jsaL+YNXOW -6Nixo8wGNEe/OSpLcOjgIX5uKYM6POvokDkPRcWBwDOnz8iQyrt40WIxZswY -x0qMIvFYuQtQEZPXoiY58BVO/3SaCF24YKGY9tQ0b6GlsPQLUajJp8nhmHvZ -S8tEhw4d0NygVIUKFcDstrkDPk4JFLMYxZh8nJyOWceNGyeio6NFyZIlRURE -BLgovK9THAUtQUEmX0eV55OPPxGJiYnSJYHJ/aUXXxKNGzcWf179k28+xbDW -XjDWmmoqOVxKbFi/gdRat27dUDG21opgKV8kbdbLH1IOQ7t27aTr7hYKTu/K -FSu9hRbGki4jnZXzh2Ids27csFE0adJEpgP+qy+/kmPKLz//wpu1IAp7hY5K -Ol8ol5MGFVa9enVZ2SARTMG2lAJow+WuETIw1t6NGqw0jKD5MOMqAzIvcq42 -IHMj5xoDMhaR6wzInCh9gwEZg5wbtbbJjkybtenRmL7FIMmPGbcakFHIud2A -jETO1wzICOR8w4AMR+SbRk4r6q1gs9zC/Dv5/DcQ7rFjcB2ZdvGgawh6lwdd -RXF/50FXkGk3D7qMoD3BBb+ESXuDk/7ApA946osI2meD7nZA4BcoUIwm4wXM -uN/OmAm/JtLJsnnTZpmldOnSolatWmLTxk1h2TUyz2PZDtgys7bDAv5Lv379 -RFpamnaz4xwW8SNHXOZcF8Xdpk0bsW3rNhnSjcxnUd7HKM/koah1/ocHPhQN -GzZkuX9D7k+QO1RH5Py586Jz586yiqpUqSKX+/nz5w9M3NIR+Rkr51OUYPJB -lISUlBSx4Dnpl4nfz/8uWrZsKX2SUydPaUvzM5bmc5RlckNUIz5x/ITcoBCu -CRosERsbC7WmlXcG5X1hrBlV60rent17RNu2bYleBQoUkH0BQjqH4DTK+wdp -eaFsyBz/4bioXLkyKR+4Xg8++CDbOn5CeV+SjuXte0TJegI/GLBWXYkaNWpA -S9Q5BadQxD/peKHzOGKdNGgLXbt2lenQ8l7b/pq2p55E8q+DR8ETmHSQHwWP -I+gQD/oBQYd50PcIOsKDvkXQUR50DEHHeNBRBH3Lg75B0HfB1jmCSd/z+Q8j -6AcepDpenz595OBgrU+tEDxj5NgL3cXByoEXmlLFihVxUIEtPBhQEpxG6oXx -Oc1DN9VUdvSALv7NEVn0sMgQOIuhTaIcdmuCkqts+EGOPHnyWI3WLtfMGTOx -5OaJzycHIVj7QMeEDgXOeUmjHJ9bjrKsVRq9VWEwmPz4ZNkJy5YtK7lguQ6D -mllWdiLLw1JZKxI1XYRHZXkVJ4e5HcIwD9OBNeE6YmLEvffeSywGm7vWkKL2 -qqXvMGnSJNGlSxdsh16YSGcYZPwP1RSnTJ4ipk+bTkrnRVsU+5uaQyxvQ7Rv -396xrqdQpRM4IJUqVRI/nvpRClj96mqRnJwcr2GMZE3mT2cykAQbE5ZLhbML -+DSwMXH1ylWskvT8oZkyA2r7WfNGGNWM4RtQNSfOas/SGbVokGLu03PlEZlb -PFgMLAehKpq4cKdkjtdIuqvlNapGcujgISkOQtk1NIWwUeTQ2MLnLUSZBfar -YJgK6EW9yVIsdej2gM2OFctXsHy6woVnQT+/hwHdumTnq7y6EweOLjT42bNm -Y9ezGqd4d9e7rur1u+Pkz+SkJzpxMFSCewahaA1/YFcmp6agqhJN0pThoC1Y -ziKJmzBhgtwt5YwZ5WGJ5xc/L7urqWLdJcqKLtk8rObWxaNiazhx0A1gHfLM -/GdQTZi7YH0SqNgod5z8OSskZXn34kjV6ZNTn5TdwK2dm/oerNNYjzo1LcWU -zWCiBKfYHQfbcmBLUwfRGQEcbhgnTXXqLlFWdMnmYTW3Lu46lVVa0wFd+P2C -VAZ2qdWcAecS3x6TDrAcjWBCSE1NreSdrMxsWqOqigb/BLpZoNpY6kA/zqWx -QWSIgpVN4bjZ8rtI3JrVa8SwYcOMdk5vLr9Yu2YtGb3efONNuX0Blxx007fP -u7CRt0HN9Lb1VtNj+q7lxH304UeiTp06LutGSS8WXFX4C54AWNvqFZW8k1Xd -mDYY1EwODqs6LDJIDgwOuTXWiQxRsLI2+E26Djlx4kS2BqI9zNW7d285cMMA -DN437NJYCwOdL+bzLmfkbdBQZ1ZGQ4/lQW0nLm/evPI41a2J0wJlqIomTk2O -pp0f1RDAm1m0cBGpNzdfwKXL41H7JmlKe2dviMTBUAxTJWfb7B7WANsql6Ic -W+W0RP4s6BLtYTW3Lrn4ylVd5NNPPhVTn5hKxMMeMOwvc5Whq3C/U+2u4sif -s+2W4GSBJNh/dYuDgRLOyDhxgSkit1PbTvmUTaK8ZavWAQsfNZG627FaTcfp -2X0ZtJS7Asp4KaxvD1nUMlQDZ6iZ+MXBrw+KwoULy11OmNDA6YU9emuiw94X -ahNhdkpVE3lh6Qu4sFHagn8NQzs3BAVPDj6Jrlu3rjxjfnnZy2CisChvBZSn -AiMnOGyOIy1WrVwFu7clPZh9GTCT2/LxRm31Jsy0iqGbN8QGUs3R6LNPP5PT -S6FCheT0Ak3YGiZVoWGjD2Y062dJgKd9/K9oKoaIi3BKqNsJdzcgmAXc9xDz -5csnd4HcJTTJyoONKp+TA84nkpOTpT39HpqofT/wyUACVBUMTtbSBY3o5ooK -zYhQJSDKVtV+whinFI5jqUM3bKgq+zJobJPu0XwT+xjr4awLFBE4bNQcDbpB -BzD/77yQ/Qi6wIP2IegiD/oAQX/woPcR9C8etBdBl3jQHgRdtkEF7SRZcOtx -F59Vdzz0/7jQ48Lx9O8OUei/FidLnv22/OexPr3jin3Hx0ViHPy1frrj5TtP -7f/J1pmUhbiAgMSMsMgcdfG/e3jldiHoOg96B0E3eNDbCLrpAknMTky6FZy0 -A5MET/0WBXnMVG9SZDiPfIMiI3jk6xQZySNfo0gfj9xOkVHBZtlG0/0801aK -zMYjt1CkhyO1mSI9DgM2UaRHL9hIkR7bSRsoMmewbdbT9FieaR1FeqxO1lJk -bh65hiLz8MjVFJmXR75Kkfl45CqKzM8jV1Lk3cFWXEHTC/BMyynSYzB5hSIL -2sgMX/tg3tWIlGsKReP3+xWD8y6eBPk0ar1M1Spkq6XWtOmP6tJdblSTo3Mt -TIZ0E+YyKqgwL0g5g+4rjaFKeYlKKcJLyRsi44uUsWgmGKVD8YKG+3bpyHJn -RtsgnqUcd7Gscy/huItj74DooF063MGEE3gnG4jS3eB9ntZeHPLqdncUb69e -veRuDrzhWbp0aR3vYspr7xnhOt29xldb7XAZBU4nihYtqr1rvIgy2jvWrjFp -IU0vHZy+gKbHu9KDJD1HkWV45LMUWZZHPkOR5XjkfIoszyPnUWQFHjmXIisG -2+Zpmp7AM82hyEo8cjZFJvLIWRRZmUfOpMgqPHIGRVblkdMpslqwbaZzfbBq -MHIah6zGS3+Ky1Odz/M3qnFNHvkkRdbikVMpsjaPfIIi6/DIKRR5b7C9JtP0 -JJ7pcYqsyyMnUWQ9G5l1L0LtjsIeuOU9uG7TRoiCBQvivRDd5fGJVCf7VD0j -LoQSfvXKVbnRP378eMwOr1l6CZ9AhdfnhevcCnXkAGeePXr0EH379lX3y8T2 -bdsBp92bGk+lNuClqjkFTjth+If5xrK9btk9jpI25EnV/Dp48GD5xqalssvT -GEN5GvE8akseXlKEq69uM7k1C2JsbGaEXWl4wfPc2XNaxsco4/08Y34nDq7+ -792zl20Ij1LGB7BnCI0Hoa7JQC+AO752yH7CVQJ1/UsnaDQV1AQF6VyKXK4G -Bjv3cGh0+dJlGYY7SSkpKVrPaBQVYr9JofUvcjuKwnXJtLQ0eewBkgYMGABX -H3TkIyl5U364GUGRzVxICRxO05vzTMMosgWPfIQik3nkUIpM4ZFDKPIvPHIw -RbbkkYMoMt1XNwbS9FY80wCKbM0j+1NkGx7ZjyI9vvnRlyLb8cg+FNmeR/am -yA7Btkmj6R2D03vR9E68pJ4U2ZlHPkyRHl8s6UGRf+WR3SnyIR7ZjSI9voLS -lSK7BdvmIU2edMig9C6U82Ee2Zkie9rI2+Vg+OXU/8SUJ2QS3LCCE1841jxz -+ox2IOxE9XG+9JJh58IvX1vY98E+nN7hxj7c0E9KStIK7kgFp/GCdY6FWuHV -r18f77HqJpMOVEpvXoqaWeFeSrFixeRbBbqZtT1l7MMz5nEMBo4P3LeAOzi7 -39sdcCTaUqq+ZiqodLg32aBBA5jmAlStKVV/cznhit6S55cQC7vLGcQ4wMwI -Dh04eBxjK8o4EJu+0HgQyi2B90VGjx7NkqZS0kFI6uUtgBnhxgp8ZQyI4AYM -fIPFCmvbaksqZLAthPcWfPKGU2pqqrylAJcZl7+yXHsUlEKZh/IDRzJFuj9q -JIEtaPownqk5RQ7nkc0o0uPzSA+iHjI8kkc2oZyjeeQDFPkoj2xMpbs/uSRj -G1GmsTxTA8o0jkfWp5wTeOR9FOnxcaa6FPk4j0yiyMk8sg4tkfszTjK2NmWa -Gpxek+b3+LhTDcrk8XGnapRzGo+sQpEzeGQiRc7ikQkU6fHBpwoUOTfYNuVp -iefzTGUp8lkeGU9lPmcjs+4gqOtbMMAqGnglH/5u3LBRN7aWoqo4XzzKgG+g -RjznsrsM6QSVgGfg60eLeUE6X0Btb8AKu3jx4vJ+V7hzywtKCNLXr1uvlVyM -FnEpL1m97QNrZPX6f3iI5StMy/ciL0V9mgfmE7jL6zDI0kQjSwHK97KZD+Yj -WOHr+fJRvhU8n9pugWMv+O6Tw6Wb2iTUh6Svmknh9jC8AetBKg95o5B0HfYO -ofEh1DYOvGgNn3DCQruuoDi/HEi5CSl1HoSihI8jOO9F2JTRSPC6TaDzDpSn -NHLkSBEXFydD7AeX7uhv75rS5f+34cvEYXf9GwRZrOc=\ -\>", "ImageResolution" -> 96., "LightDark" -> \ -"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-14.857966328747292, \ -0.654633287374793, 0.6941460339291473, \ -0.0044903445173959475}},ExpressionUUID->"7758daab-adf8-2a49-9166-\ -50457409d355"], - -Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"4f7705b8-e954-b341-ab6d-\ -8b4ad9ffca61"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hc8lV8cB3AjMitkRLIryujerIbzlZvKzN7ius9TZBSlm2iioYQU/Ro0 +1E0IDTMpWhIqUZRRl2Qnt+cpjd/xx3k9r/frvF6f832+Z2ixo1wJESEhoQE8 +pr/bm4wWlbU0WdWnBF2X8uIjq9GrpmxWATIPKvww7Z4cs0xdVjWSskqLl8be +yHkpLsN8jGyXSB6WwS7h7qsTYzUiW4bKb1nso09Uavflv0Luwfc7Z2NXtGy/ ++JvxFnU30Hry2IMdDfG7q96h4KSGjrnYqn06fj9sPqDEm4xfytj2Y/GWMY3d +6IffskQ17Jrfg9Lc/F6UXvGEq4HddkB5z73Iz2jh0ES7DvaoOGtwktGHGtXu +XVqMLX58mw+T6kfpcXPaDLEXyF14tr1qAOWuENnJxHZS+3Ft1GYYNT0omEDY +ZK62kqHEKGr7R7yyxd6n55y0tXEMNZ0pU3XCfqfcumxH/jfkP6w7EoDN8Q0L +PXV8AmXaWseS2OPnhS6VRn5Hg0ZUaBS2hLbhnG8MAbKctSz9IHYmp27dHMUf +KPXh3frj2JrXffYZUz9Q+Z637Cxsi6XJoxFVNIL8L12F2FvMuhsHbX6jv/4h +bd3Yk9ydM6QW/kG+WY2BI9j7q6RX6Uv8Re6prS5T2NlgcXNz4z9U2/Fol4o3 +ri/vGSs6XxhcxxbXeWHnPznVc0BNBM58z8rdgj3+JTA+/bgILN6WP7AbO95A +cLs4UhSuJVSXX8DOvKWlM8YQg8p9PO9B7I6W4Zq/V8TA/YFtyl9szYky31mK +4pBlkbpYwYePCpY7ZRhS4hApPv/Kauz6ijjh8CoJGLCwy87CFtS96R6wkYHu +grJDm3z5SN5BZs6eGhl4UFnMi8c2aWWBrKUs+NJK9v9hh/Hv5i4zmgUvgkwk +2rG3iTSarJaZA6zS+yGefnzUp130LemHHGiap1wK98f9IRskm5nyMPVV9GI6 +tsjNfi2V7fLg80pYpQxbk6nhmj8kD5ozMhNFA/jI1yattKlHAfbnroHL2M0h +0THKLxRBNDjIhgrko67rqSlBEkqwyEp0nu4mPhoeyr9yY60SmAvWh7tgS+34 +/GZlrRKYaTxOKcRmJbovD7qrDPrdlUVbg/io8qqZgJczDw56H0z+F8xHV/t+ +xa7YoQ6qN96fSCL4aL3H4a6YQnUoui+sWIM9XK9gW9ivDk8DBJIU9vKrSxU1 +fRZAkNH61WEk7ic78LaYlQbI7et87rGZjybGenYNHNKErcxH8dahfKQQwbpz +21EbnueX+26N4KP+q1JbNoZpQ7W7IKcEu/xDi9pIsjaMSDi60dj+DgGHFtZq +Q/J/3jMOR+L6lsS6nmXowKJso7QbUXj9wevje5V1QTTGw0U0mo/cN0sb2vXq +QfMZMlVyFx+hWA+G1x89uHfuoMAP2yApx5wzbyFcZDY/KcIWusJcs9dlIfjH +i/M8uHxU2OXnVfpwIXz9yiJ4u/H99Cw4oHp5Edicfv4yOB7Xx3JsG2TrQ+/p +vxG6B/noiltWJ7VXH47L79BKxE5l9/bMOKcPHjGJiI/N2b9zaMEbfTiwJLEq +7xAfyVVfEHKzMYBJV85twyR8fpijBlU6S+BYZ0eeyxE+UtM+uS+FvxS874sU +f03lo+pjk/o/RQyhTsVcOOgk7sd3n1ZSyxDkJcNb2rAv1uvqrwk0BMJ1eOBx +Gh9pb658TbcbQpbrO5H8DPy/BX165AsjuBX0p+voGT5SV1tAavqYQMBoUiDv +Ih8tzdshM4UY4JBYXRVczEdsziGBoRMDWrWzSkews3UyuoL8GWC9LkYlroSP +RC/fKn7CZQAtv3ZZZim+bxcH3TNKGMDT+pT18g5+T7ODLujrMGHNlxurPSrw +/qY4GHmLLwdX9g658kd8dClad+PdRlMwWuan9LKNj1pikXliniUYhBjnb5Lo +Q1qBb50CwlfDRvW4YwzrPkT8u1ekvhsgtXN/9PmEPqQ8VD5Tmb0GJLij2b5P ++9AO5qoPGQYs2O72Ze7cuf2IPfL7mcLgWjA8cu1pK9mPCtfEzMxpXge+Gltl +Vz3vR1cnwx4WZG6Axq0+ms6GXxBtrfKyfp89OBoxUn9d/oI+Col+6w12hLzz +pgO/NQZQ5PyotAM6zsCNOWxmemEAFYU+qz2dtBHOrd5Z/J/RVxT3fR61JNQF +jKdkPLY9+IoEdraeTze5wgNnajiKHESWfunWfS5u4KjYUJc3dwi9nnchrJ7p +DoMS3/q9a4eQ6rVD1bzFHpC2O8F1d+IwKu8xcHCS9YTohazV71gjaEHr+ObY +EU9YOvB+YExyFDFPpxdc6fEC44QlMj8HRtGFGd+NMuq8YbgrUTX44Ri6Z23c +kVThA+HzjrgZ+46jbPNjcr/zfWHiT55S4Ntx1NyZl8w87gfF577EeNt/Q3cd +z+tu2+8Pm066tag3fUPfItyEIjkB4MYfKrexm0ACW/0tozaBMPNVp+v6xxOI +N/KejjHbBLG2+oNR9t+R96W8kACZIPAyNe9kP/uObpfabxI9HAQt+Qk+KU6T +yFLt9c+jP4PA+uOHjmPPJ5FOz+aOV6HBoJ0Q+HXUSoD40ludz38Ohmxe+/2o +CgFqSXUKWefBhi8LjkiJLfyBMrk50jtb2ACLM8wkMn+g6pp/P0M2hIB1mdjF +/h8/0Gx/OMysDAFZd6MTdRsopDn3afP86hDwcXMNUbSnkEmjo4p4TQjoj03F +kQ4Ucl3ld+PdwxCQ5pyLEHemUOb82BcJz0OAa8zwWu1OIdWPN2c/excCuk1s +QXIghXQDlbP9qRAIdPq87HA0hSyDRnlJyznAM5F+ZJBNoWtnx2OczDiQw/aN +Mz9LoblvJqyULThQs314j81/FBpdS7XyVnLAgRzz8TlP4fdLSLhxDQf+7lLY +E59LoVmUnI+8Cwd8GJ4auTwK8U+YSuZEcMA2v5jtV06h1Kr40PJrHNj2RrHr +9FsKRTCyLLk8DggfWP8uso1CDjdKJC3yOWAu9VZxXTuFpLL6b5QVcoCUsPYV +vKNQUvTGwXt3ODA+w1V0wwcKxevrbr37iANFzy2LGj9RKCzrRXhpFwcYIg8M +WWMU2jCrf1V0DwfyqV0rxcYptDhJSJbxiQNEy1TyY+z+aNPCkj4O7DCqbrOZ +oFCwU85I8TAHsgzS3M0FFPIWi4m89YsDw1lH837+otC6GNVtBUoETI78SxwU +o9GjnGS7DBUCzmcqsC6J02hV44QuV5WAmqLbKl4zaWSi9+K9zQICjjh9EK6V +oNG89j02nXoEeDBLmpKlaTS04qOSlCkBgjemBgNzaHRSJPf+ZjcC5hhTpbQq +jaSMZbIdPQjoC/ZpTFejUaIfN5rpRcAx22aB/nwace9sXPTPl4DQI55cL3Ua +BZPC6WfYBFS2HTS/rkEjZgOb83g7AZ8bsuPn6dKoPV1PWieNAJbELs31S2lU +hGS3DKQTUOq4rb4SO3Fksr7wFAFSr9JOLTWkEWND/V6LLAJMXneVyhrRKFUo +ZMLxIgHDgs6Jx8Y0so3Kfc8tICCtIZg9i0kjdfUjZlZFBNjcHCqIwZ5siDol +Woz7cWS21jvsywuRY+ptArQOPku6uJxGfz5+rL1SScDGmQestMxodMdBjdf0 +jIBxoQqfvxY0SvklIpbZQEDTcCjT05JGbN4g7gQB72W8TQux58yoVOM3EyAR +dq7EewWNwqu8T/5sI0CZf/po3koa6RicidXtI8DB4941JSsa/WpPePO1H+9H +87KpIOyWJMLk1gABp/trYvOx9/YuH7QcJqCh6fmnFYhGHdlvApy/E7DwZstx +F6BRxky5tXHCJBx6WKbquYZG1RMf/XaIkvB1UrrzLPaXj/nRkWIkyEi2pnzA +XnWHlcuWJGFzVXRNoA2N+oO4U3ZyJAzVdBOeLFy/w1r5tQokdNg/uZ6OvdJc +Xh8pktCXkPr+BXaabIEncx4Jdsn7ZVavxfOV3SVqWiSIOOsVydvSiMwreKao +Q4KQuEvEWuy0tN3ds/VIkGzoVtuF3U8qyM7QJyFOfMS2fXpeYd2WYRMSAmPW +vjm2jkaVfxX29TNIYJ0Ql7mL3fe153TPchIaWx8wu7BX1MbVtVqQUOc35Gy4 +nkb88KIF94EEad5gRQ32LO89pmVrSAgNMQ7twba0We9QwiIhwlxxpvAGfF7m +fdqdt54E+4MXZyHs8hm30nLsSFg2bMz1x/48tuf6WQcSPrhbtXCxLZ4ovj2x +kYSa6BL7Imx2yaehw64kDJ4Rj3qKfeL8LZGD7iTUZ1Xs78b+FL3BJNabhDSu +epSMHY1kA5XWbfPF/WA9tNfCttjwOSDMn4QldTwlU+wTGgkpgUEknNdYussH +u1zK7rI3m4TdxH2ZMOxPAqUKVw4JLiYJabun83o/NzuQJFybIkWOTOc1Fvfb +biGhKCOWfRqbXZbwB8JI8J/DK740nX/Zbu7KcBJ8uqnhgun8E8pLTCNJkKpk +K5dN53P51sbbSDiZ32dciy3DKfHWjyahW2qv2TNsc+e9UTo7SMhM1F/SPJ2/ +wj5ZPZYELbl+2bfYx/VULihzSbjzs6TrPfa9OX235eJIWN+ecuEjdu9USYN0 +PAkXMqLteqbzv+ztFdtLwioO0deLbfbanv63j4SY1pDIT9j/A4cC234= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hc8lV8cB3AjMitkRLIryujerIbzlZvKzN7ius9TZBSlm2iioYQU/Ro0 +1E0IDTMpWhIqUZRRl2Qnt+cpjd/xx3k9r/frvF6f832+Z2ixo1wJESEhoQE8 +pr/bm4wWlbU0WdWnBF2X8uIjq9GrpmxWATIPKvww7Z4cs0xdVjWSskqLl8be +yHkpLsN8jGyXSB6WwS7h7qsTYzUiW4bKb1nso09Uavflv0Luwfc7Z2NXtGy/ ++JvxFnU30Hry2IMdDfG7q96h4KSGjrnYqn06fj9sPqDEm4xfytj2Y/GWMY3d +6IffskQ17Jrfg9Lc/F6UXvGEq4HddkB5z73Iz2jh0ES7DvaoOGtwktGHGtXu +XVqMLX58mw+T6kfpcXPaDLEXyF14tr1qAOWuENnJxHZS+3Ft1GYYNT0omEDY +ZK62kqHEKGr7R7yyxd6n55y0tXEMNZ0pU3XCfqfcumxH/jfkP6w7EoDN8Q0L +PXV8AmXaWseS2OPnhS6VRn5Hg0ZUaBS2hLbhnG8MAbKctSz9IHYmp27dHMUf +KPXh3frj2JrXffYZUz9Q+Z637Cxsi6XJoxFVNIL8L12F2FvMuhsHbX6jv/4h +bd3Yk9ydM6QW/kG+WY2BI9j7q6RX6Uv8Re6prS5T2NlgcXNz4z9U2/Fol4o3 +ri/vGSs6XxhcxxbXeWHnPznVc0BNBM58z8rdgj3+JTA+/bgILN6WP7AbO95A +cLs4UhSuJVSXX8DOvKWlM8YQg8p9PO9B7I6W4Zq/V8TA/YFtyl9szYky31mK +4pBlkbpYwYePCpY7ZRhS4hApPv/Kauz6ijjh8CoJGLCwy87CFtS96R6wkYHu +grJDm3z5SN5BZs6eGhl4UFnMi8c2aWWBrKUs+NJK9v9hh/Hv5i4zmgUvgkwk +2rG3iTSarJaZA6zS+yGefnzUp130LemHHGiap1wK98f9IRskm5nyMPVV9GI6 +tsjNfi2V7fLg80pYpQxbk6nhmj8kD5ozMhNFA/jI1yattKlHAfbnroHL2M0h +0THKLxRBNDjIhgrko67rqSlBEkqwyEp0nu4mPhoeyr9yY60SmAvWh7tgS+34 +/GZlrRKYaTxOKcRmJbovD7qrDPrdlUVbg/io8qqZgJczDw56H0z+F8xHV/t+ +xa7YoQ6qN96fSCL4aL3H4a6YQnUoui+sWIM9XK9gW9ivDk8DBJIU9vKrSxU1 +fRZAkNH61WEk7ic78LaYlQbI7et87rGZjybGenYNHNKErcxH8dahfKQQwbpz +21EbnueX+26N4KP+q1JbNoZpQ7W7IKcEu/xDi9pIsjaMSDi60dj+DgGHFtZq +Q/J/3jMOR+L6lsS6nmXowKJso7QbUXj9wevje5V1QTTGw0U0mo/cN0sb2vXq +QfMZMlVyFx+hWA+G1x89uHfuoMAP2yApx5wzbyFcZDY/KcIWusJcs9dlIfjH +i/M8uHxU2OXnVfpwIXz9yiJ4u/H99Cw4oHp5Edicfv4yOB7Xx3JsG2TrQ+/p +vxG6B/noiltWJ7VXH47L79BKxE5l9/bMOKcPHjGJiI/N2b9zaMEbfTiwJLEq +7xAfyVVfEHKzMYBJV85twyR8fpijBlU6S+BYZ0eeyxE+UtM+uS+FvxS874sU +f03lo+pjk/o/RQyhTsVcOOgk7sd3n1ZSyxDkJcNb2rAv1uvqrwk0BMJ1eOBx +Gh9pb658TbcbQpbrO5H8DPy/BX165AsjuBX0p+voGT5SV1tAavqYQMBoUiDv +Ih8tzdshM4UY4JBYXRVczEdsziGBoRMDWrWzSkews3UyuoL8GWC9LkYlroSP +RC/fKn7CZQAtv3ZZZim+bxcH3TNKGMDT+pT18g5+T7ODLujrMGHNlxurPSrw +/qY4GHmLLwdX9g658kd8dClad+PdRlMwWuan9LKNj1pikXliniUYhBjnb5Lo +Q1qBb50CwlfDRvW4YwzrPkT8u1ekvhsgtXN/9PmEPqQ8VD5Tmb0GJLij2b5P ++9AO5qoPGQYs2O72Ze7cuf2IPfL7mcLgWjA8cu1pK9mPCtfEzMxpXge+Gltl +Vz3vR1cnwx4WZG6Axq0+ms6GXxBtrfKyfp89OBoxUn9d/oI+Col+6w12hLzz +pgO/NQZQ5PyotAM6zsCNOWxmemEAFYU+qz2dtBHOrd5Z/J/RVxT3fR61JNQF +jKdkPLY9+IoEdraeTze5wgNnajiKHESWfunWfS5u4KjYUJc3dwi9nnchrJ7p +DoMS3/q9a4eQ6rVD1bzFHpC2O8F1d+IwKu8xcHCS9YTohazV71gjaEHr+ObY +EU9YOvB+YExyFDFPpxdc6fEC44QlMj8HRtGFGd+NMuq8YbgrUTX44Ri6Z23c +kVThA+HzjrgZ+46jbPNjcr/zfWHiT55S4Ntx1NyZl8w87gfF577EeNt/Q3cd +z+tu2+8Pm066tag3fUPfItyEIjkB4MYfKrexm0ACW/0tozaBMPNVp+v6xxOI +N/KejjHbBLG2+oNR9t+R96W8kACZIPAyNe9kP/uObpfabxI9HAQt+Qk+KU6T +yFLt9c+jP4PA+uOHjmPPJ5FOz+aOV6HBoJ0Q+HXUSoD40ludz38Ohmxe+/2o +CgFqSXUKWefBhi8LjkiJLfyBMrk50jtb2ACLM8wkMn+g6pp/P0M2hIB1mdjF +/h8/0Gx/OMysDAFZd6MTdRsopDn3afP86hDwcXMNUbSnkEmjo4p4TQjoj03F +kQ4Ucl3ld+PdwxCQ5pyLEHemUOb82BcJz0OAa8zwWu1OIdWPN2c/excCuk1s +QXIghXQDlbP9qRAIdPq87HA0hSyDRnlJyznAM5F+ZJBNoWtnx2OczDiQw/aN +Mz9LoblvJqyULThQs314j81/FBpdS7XyVnLAgRzz8TlP4fdLSLhxDQf+7lLY +E59LoVmUnI+8Cwd8GJ4auTwK8U+YSuZEcMA2v5jtV06h1Kr40PJrHNj2RrHr +9FsKRTCyLLk8DggfWP8uso1CDjdKJC3yOWAu9VZxXTuFpLL6b5QVcoCUsPYV +vKNQUvTGwXt3ODA+w1V0wwcKxevrbr37iANFzy2LGj9RKCzrRXhpFwcYIg8M +WWMU2jCrf1V0DwfyqV0rxcYptDhJSJbxiQNEy1TyY+z+aNPCkj4O7DCqbrOZ +oFCwU85I8TAHsgzS3M0FFPIWi4m89YsDw1lH837+otC6GNVtBUoETI78SxwU +o9GjnGS7DBUCzmcqsC6J02hV44QuV5WAmqLbKl4zaWSi9+K9zQICjjh9EK6V +oNG89j02nXoEeDBLmpKlaTS04qOSlCkBgjemBgNzaHRSJPf+ZjcC5hhTpbQq +jaSMZbIdPQjoC/ZpTFejUaIfN5rpRcAx22aB/nwace9sXPTPl4DQI55cL3Ua +BZPC6WfYBFS2HTS/rkEjZgOb83g7AZ8bsuPn6dKoPV1PWieNAJbELs31S2lU +hGS3DKQTUOq4rb4SO3Fksr7wFAFSr9JOLTWkEWND/V6LLAJMXneVyhrRKFUo +ZMLxIgHDgs6Jx8Y0so3Kfc8tICCtIZg9i0kjdfUjZlZFBNjcHCqIwZ5siDol +Woz7cWS21jvsywuRY+ptArQOPku6uJxGfz5+rL1SScDGmQestMxodMdBjdf0 +jIBxoQqfvxY0SvklIpbZQEDTcCjT05JGbN4g7gQB72W8TQux58yoVOM3EyAR +dq7EewWNwqu8T/5sI0CZf/po3koa6RicidXtI8DB4941JSsa/WpPePO1H+9H +87KpIOyWJMLk1gABp/trYvOx9/YuH7QcJqCh6fmnFYhGHdlvApy/E7DwZstx +F6BRxky5tXHCJBx6WKbquYZG1RMf/XaIkvB1UrrzLPaXj/nRkWIkyEi2pnzA +XnWHlcuWJGFzVXRNoA2N+oO4U3ZyJAzVdBOeLFy/w1r5tQokdNg/uZ6OvdJc +Xh8pktCXkPr+BXaabIEncx4Jdsn7ZVavxfOV3SVqWiSIOOsVydvSiMwreKao +Q4KQuEvEWuy0tN3ds/VIkGzoVtuF3U8qyM7QJyFOfMS2fXpeYd2WYRMSAmPW +vjm2jkaVfxX29TNIYJ0Ql7mL3fe153TPchIaWx8wu7BX1MbVtVqQUOc35Gy4 +nkb88KIF94EEad5gRQ32LO89pmVrSAgNMQ7twba0We9QwiIhwlxxpvAGfF7m +fdqdt54E+4MXZyHs8hm30nLsSFg2bMz1x/48tuf6WQcSPrhbtXCxLZ4ovj2x +kYSa6BL7Imx2yaehw64kDJ4Rj3qKfeL8LZGD7iTUZ1Xs78b+FL3BJNabhDSu +epSMHY1kA5XWbfPF/WA9tNfCttjwOSDMn4QldTwlU+wTGgkpgUEknNdYussH +u1zK7rI3m4TdxH2ZMOxPAqUKVw4JLiYJabun83o/NzuQJFybIkWOTOc1Fvfb +biGhKCOWfRqbXZbwB8JI8J/DK740nX/Zbu7KcBJ8uqnhgun8E8pLTCNJkKpk +K5dN53P51sbbSDiZ32dciy3DKfHWjyahW2qv2TNsc+e9UTo7SMhM1F/SPJ2/ +wj5ZPZYELbl+2bfYx/VULihzSbjzs6TrPfa9OX235eJIWN+ecuEjdu9USYN0 +PAkXMqLteqbzv+ztFdtLwioO0deLbfbanv63j4SY1pDIT9j/A4cC234= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6356251973232863, + 1.5182823478801566`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6356251973232877}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6356251973232863, + 1.5182823478801566`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6356251973232877}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hc8lV8cB3AjMitkRLIryujerIbzlZvKzN7ius9TZBSlm2iioYQU/Ro0 +1E0IDTMpWhIqUZRRl2Qnt+cpjd/xx3k9r/frvF6f832+Z2ixo1wJESEhoQE8 +pr/bm4wWlbU0WdWnBF2X8uIjq9GrpmxWATIPKvww7Z4cs0xdVjWSskqLl8be +yHkpLsN8jGyXSB6WwS7h7qsTYzUiW4bKb1nso09Uavflv0Luwfc7Z2NXtGy/ ++JvxFnU30Hry2IMdDfG7q96h4KSGjrnYqn06fj9sPqDEm4xfytj2Y/GWMY3d +6IffskQ17Jrfg9Lc/F6UXvGEq4HddkB5z73Iz2jh0ES7DvaoOGtwktGHGtXu +XVqMLX58mw+T6kfpcXPaDLEXyF14tr1qAOWuENnJxHZS+3Ft1GYYNT0omEDY +ZK62kqHEKGr7R7yyxd6n55y0tXEMNZ0pU3XCfqfcumxH/jfkP6w7EoDN8Q0L +PXV8AmXaWseS2OPnhS6VRn5Hg0ZUaBS2hLbhnG8MAbKctSz9IHYmp27dHMUf +KPXh3frj2JrXffYZUz9Q+Z637Cxsi6XJoxFVNIL8L12F2FvMuhsHbX6jv/4h +bd3Yk9ydM6QW/kG+WY2BI9j7q6RX6Uv8Re6prS5T2NlgcXNz4z9U2/Fol4o3 +ri/vGSs6XxhcxxbXeWHnPznVc0BNBM58z8rdgj3+JTA+/bgILN6WP7AbO95A +cLs4UhSuJVSXX8DOvKWlM8YQg8p9PO9B7I6W4Zq/V8TA/YFtyl9szYky31mK +4pBlkbpYwYePCpY7ZRhS4hApPv/Kauz6ijjh8CoJGLCwy87CFtS96R6wkYHu +grJDm3z5SN5BZs6eGhl4UFnMi8c2aWWBrKUs+NJK9v9hh/Hv5i4zmgUvgkwk +2rG3iTSarJaZA6zS+yGefnzUp130LemHHGiap1wK98f9IRskm5nyMPVV9GI6 +tsjNfi2V7fLg80pYpQxbk6nhmj8kD5ozMhNFA/jI1yattKlHAfbnroHL2M0h +0THKLxRBNDjIhgrko67rqSlBEkqwyEp0nu4mPhoeyr9yY60SmAvWh7tgS+34 +/GZlrRKYaTxOKcRmJbovD7qrDPrdlUVbg/io8qqZgJczDw56H0z+F8xHV/t+ +xa7YoQ6qN96fSCL4aL3H4a6YQnUoui+sWIM9XK9gW9ivDk8DBJIU9vKrSxU1 +fRZAkNH61WEk7ic78LaYlQbI7et87rGZjybGenYNHNKErcxH8dahfKQQwbpz +21EbnueX+26N4KP+q1JbNoZpQ7W7IKcEu/xDi9pIsjaMSDi60dj+DgGHFtZq +Q/J/3jMOR+L6lsS6nmXowKJso7QbUXj9wevje5V1QTTGw0U0mo/cN0sb2vXq +QfMZMlVyFx+hWA+G1x89uHfuoMAP2yApx5wzbyFcZDY/KcIWusJcs9dlIfjH +i/M8uHxU2OXnVfpwIXz9yiJ4u/H99Cw4oHp5Edicfv4yOB7Xx3JsG2TrQ+/p +vxG6B/noiltWJ7VXH47L79BKxE5l9/bMOKcPHjGJiI/N2b9zaMEbfTiwJLEq +7xAfyVVfEHKzMYBJV85twyR8fpijBlU6S+BYZ0eeyxE+UtM+uS+FvxS874sU +f03lo+pjk/o/RQyhTsVcOOgk7sd3n1ZSyxDkJcNb2rAv1uvqrwk0BMJ1eOBx +Gh9pb658TbcbQpbrO5H8DPy/BX165AsjuBX0p+voGT5SV1tAavqYQMBoUiDv +Ih8tzdshM4UY4JBYXRVczEdsziGBoRMDWrWzSkews3UyuoL8GWC9LkYlroSP +RC/fKn7CZQAtv3ZZZim+bxcH3TNKGMDT+pT18g5+T7ODLujrMGHNlxurPSrw +/qY4GHmLLwdX9g658kd8dClad+PdRlMwWuan9LKNj1pikXliniUYhBjnb5Lo +Q1qBb50CwlfDRvW4YwzrPkT8u1ekvhsgtXN/9PmEPqQ8VD5Tmb0GJLij2b5P ++9AO5qoPGQYs2O72Ze7cuf2IPfL7mcLgWjA8cu1pK9mPCtfEzMxpXge+Gltl +Vz3vR1cnwx4WZG6Axq0+ms6GXxBtrfKyfp89OBoxUn9d/oI+Col+6w12hLzz +pgO/NQZQ5PyotAM6zsCNOWxmemEAFYU+qz2dtBHOrd5Z/J/RVxT3fR61JNQF +jKdkPLY9+IoEdraeTze5wgNnajiKHESWfunWfS5u4KjYUJc3dwi9nnchrJ7p +DoMS3/q9a4eQ6rVD1bzFHpC2O8F1d+IwKu8xcHCS9YTohazV71gjaEHr+ObY +EU9YOvB+YExyFDFPpxdc6fEC44QlMj8HRtGFGd+NMuq8YbgrUTX44Ri6Z23c +kVThA+HzjrgZ+46jbPNjcr/zfWHiT55S4Ntx1NyZl8w87gfF577EeNt/Q3cd +z+tu2+8Pm066tag3fUPfItyEIjkB4MYfKrexm0ACW/0tozaBMPNVp+v6xxOI +N/KejjHbBLG2+oNR9t+R96W8kACZIPAyNe9kP/uObpfabxI9HAQt+Qk+KU6T +yFLt9c+jP4PA+uOHjmPPJ5FOz+aOV6HBoJ0Q+HXUSoD40ludz38Ohmxe+/2o +CgFqSXUKWefBhi8LjkiJLfyBMrk50jtb2ACLM8wkMn+g6pp/P0M2hIB1mdjF +/h8/0Gx/OMysDAFZd6MTdRsopDn3afP86hDwcXMNUbSnkEmjo4p4TQjoj03F +kQ4Ucl3ld+PdwxCQ5pyLEHemUOb82BcJz0OAa8zwWu1OIdWPN2c/excCuk1s +QXIghXQDlbP9qRAIdPq87HA0hSyDRnlJyznAM5F+ZJBNoWtnx2OczDiQw/aN +Mz9LoblvJqyULThQs314j81/FBpdS7XyVnLAgRzz8TlP4fdLSLhxDQf+7lLY +E59LoVmUnI+8Cwd8GJ4auTwK8U+YSuZEcMA2v5jtV06h1Kr40PJrHNj2RrHr +9FsKRTCyLLk8DggfWP8uso1CDjdKJC3yOWAu9VZxXTuFpLL6b5QVcoCUsPYV +vKNQUvTGwXt3ODA+w1V0wwcKxevrbr37iANFzy2LGj9RKCzrRXhpFwcYIg8M +WWMU2jCrf1V0DwfyqV0rxcYptDhJSJbxiQNEy1TyY+z+aNPCkj4O7DCqbrOZ +oFCwU85I8TAHsgzS3M0FFPIWi4m89YsDw1lH837+otC6GNVtBUoETI78SxwU +o9GjnGS7DBUCzmcqsC6J02hV44QuV5WAmqLbKl4zaWSi9+K9zQICjjh9EK6V +oNG89j02nXoEeDBLmpKlaTS04qOSlCkBgjemBgNzaHRSJPf+ZjcC5hhTpbQq +jaSMZbIdPQjoC/ZpTFejUaIfN5rpRcAx22aB/nwace9sXPTPl4DQI55cL3Ua +BZPC6WfYBFS2HTS/rkEjZgOb83g7AZ8bsuPn6dKoPV1PWieNAJbELs31S2lU +hGS3DKQTUOq4rb4SO3Fksr7wFAFSr9JOLTWkEWND/V6LLAJMXneVyhrRKFUo +ZMLxIgHDgs6Jx8Y0so3Kfc8tICCtIZg9i0kjdfUjZlZFBNjcHCqIwZ5siDol +Woz7cWS21jvsywuRY+ptArQOPku6uJxGfz5+rL1SScDGmQestMxodMdBjdf0 +jIBxoQqfvxY0SvklIpbZQEDTcCjT05JGbN4g7gQB72W8TQux58yoVOM3EyAR +dq7EewWNwqu8T/5sI0CZf/po3koa6RicidXtI8DB4941JSsa/WpPePO1H+9H +87KpIOyWJMLk1gABp/trYvOx9/YuH7QcJqCh6fmnFYhGHdlvApy/E7DwZstx +F6BRxky5tXHCJBx6WKbquYZG1RMf/XaIkvB1UrrzLPaXj/nRkWIkyEi2pnzA +XnWHlcuWJGFzVXRNoA2N+oO4U3ZyJAzVdBOeLFy/w1r5tQokdNg/uZ6OvdJc +Xh8pktCXkPr+BXaabIEncx4Jdsn7ZVavxfOV3SVqWiSIOOsVydvSiMwreKao +Q4KQuEvEWuy0tN3ds/VIkGzoVtuF3U8qyM7QJyFOfMS2fXpeYd2WYRMSAmPW +vjm2jkaVfxX29TNIYJ0Ql7mL3fe153TPchIaWx8wu7BX1MbVtVqQUOc35Gy4 +nkb88KIF94EEad5gRQ32LO89pmVrSAgNMQ7twba0We9QwiIhwlxxpvAGfF7m +fdqdt54E+4MXZyHs8hm30nLsSFg2bMz1x/48tuf6WQcSPrhbtXCxLZ4ovj2x +kYSa6BL7Imx2yaehw64kDJ4Rj3qKfeL8LZGD7iTUZ1Xs78b+FL3BJNabhDSu +epSMHY1kA5XWbfPF/WA9tNfCttjwOSDMn4QldTwlU+wTGgkpgUEknNdYussH +u1zK7rI3m4TdxH2ZMOxPAqUKVw4JLiYJabun83o/NzuQJFybIkWOTOc1Fvfb +biGhKCOWfRqbXZbwB8JI8J/DK740nX/Zbu7KcBJ8uqnhgun8E8pLTCNJkKpk +K5dN53P51sbbSDiZ32dciy3DKfHWjyahW2qv2TNsc+e9UTo7SMhM1F/SPJ2/ +wj5ZPZYELbl+2bfYx/VULihzSbjzs6TrPfa9OX235eJIWN+ecuEjdu9USYN0 +PAkXMqLteqbzv+ztFdtLwioO0deLbfbanv63j4SY1pDIT9j/A4cC234= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6356251973232863, 1.5182823478801566`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6356251973232877}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.6356251973232877}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.6356251973232863, 1.5182823478801566`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994253900939023*^9}, + CellLabel-> + "Out[139]=",ExpressionUUID->"0e1f6835-1c62-491f-bd3b-a140b2154e73"] }, Open ]], Cell[CellGroupData[{ @@ -11937,463 +13784,1068 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ - 3.99185079904813*^9, {3.9918508647235966`*^9, - 3.991850864992861*^9}},ExpressionUUID->"d43bf17b-b492-0e4a-af4a-\ -6a3bc399953c"], + 3.99185079904813*^9, {3.9918508647235966`*^9, 3.991850864992861*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"2059be4f-bbb2-da49-9e23-3fc4d150d7a8"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.4979104885403867`*^-267\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 69, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994253901134399*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"a31db12e-c286-47ac-9df3-2ee40c8fcca0"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"71d4e039-c2b8-d74d-819a-80d2051e4273"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.763550385929787`*^-278\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 140, 70, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994253901145054*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"7deb1f03-d14e-4e3b-a749-5e37380a1bea"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"63625e13-15ef-1f45-89dc-998a1b63a626"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.183363685432539`*^-289\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 140, 71, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994253901155518*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"5e7cefb7-ebc7-4987-a550-390e5120c5ea"], Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"ff96fc2b-5ddb-2142-a985-58ccc6f07e00"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.0634921 0.0147151 5.37313 [ -[.15079 .00222 -3 -9 ] -[.15079 .00222 3 0 ] -[.27778 .00222 -3 -9 ] -[.27778 .00222 3 0 ] -[.40476 .00222 -3 -9 ] -[.40476 .00222 3 0 ] -[.53175 .00222 -3 -9 ] -[.53175 .00222 3 0 ] -[.65873 .00222 -6 -9 ] -[.65873 .00222 6 0 ] -[.78571 .00222 -6 -9 ] -[.78571 .00222 6 0 ] -[.9127 .00222 -6 -9 ] -[.9127 .00222 6 0 ] -[.01131 .12218 -24 -4.5 ] -[.01131 .12218 0 4.5 ] -[.01131 .22964 -24 -4.5 ] -[.01131 .22964 0 4.5 ] -[.01131 .3371 -24 -4.5 ] -[.01131 .3371 0 4.5 ] -[.01131 .44457 -24 -4.5 ] -[.01131 .44457 0 4.5 ] -[.01131 .55203 -18 -4.5 ] -[.01131 .55203 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.15079 .01472 m -.15079 .02097 L -s -[(2)] .15079 .00222 0 1 Mshowa -.27778 .01472 m -.27778 .02097 L -s -[(4)] .27778 .00222 0 1 Mshowa -.40476 .01472 m -.40476 .02097 L -s -[(6)] .40476 .00222 0 1 Mshowa -.53175 .01472 m -.53175 .02097 L -s -[(8)] .53175 .00222 0 1 Mshowa -.65873 .01472 m -.65873 .02097 L -s -[(10)] .65873 .00222 0 1 Mshowa -.78571 .01472 m -.78571 .02097 L -s -[(12)] .78571 .00222 0 1 Mshowa -.9127 .01472 m -.9127 .02097 L -s -[(14)] .9127 .00222 0 1 Mshowa -.125 Mabswid -.05556 .01472 m -.05556 .01847 L -s -.0873 .01472 m -.0873 .01847 L -s -.11905 .01472 m -.11905 .01847 L -s -.18254 .01472 m -.18254 .01847 L -s -.21429 .01472 m -.21429 .01847 L -s -.24603 .01472 m -.24603 .01847 L -s -.30952 .01472 m -.30952 .01847 L -s -.34127 .01472 m -.34127 .01847 L -s -.37302 .01472 m -.37302 .01847 L -s -.43651 .01472 m -.43651 .01847 L -s -.46825 .01472 m -.46825 .01847 L -s -.5 .01472 m -.5 .01847 L -s -.56349 .01472 m -.56349 .01847 L -s -.59524 .01472 m -.59524 .01847 L -s -.62698 .01472 m -.62698 .01847 L -s -.69048 .01472 m -.69048 .01847 L -s -.72222 .01472 m -.72222 .01847 L -s -.75397 .01472 m -.75397 .01847 L -s -.81746 .01472 m -.81746 .01847 L -s -.84921 .01472 m -.84921 .01847 L -s -.88095 .01472 m -.88095 .01847 L -s -.94444 .01472 m -.94444 .01847 L -s -.97619 .01472 m -.97619 .01847 L -s -.25 Mabswid -0 .01472 m -1 .01472 L -s -.02381 .12218 m -.03006 .12218 L -s -[(0.02)] .01131 .12218 1 0 Mshowa -.02381 .22964 m -.03006 .22964 L -s -[(0.04)] .01131 .22964 1 0 Mshowa -.02381 .3371 m -.03006 .3371 L -s -[(0.06)] .01131 .3371 1 0 Mshowa -.02381 .44457 m -.03006 .44457 L -s -[(0.08)] .01131 .44457 1 0 Mshowa -.02381 .55203 m -.03006 .55203 L -s -[(0.1)] .01131 .55203 1 0 Mshowa -.125 Mabswid -.02381 .04158 m -.02756 .04158 L -s -.02381 .06845 m -.02756 .06845 L -s -.02381 .09531 m -.02756 .09531 L -s -.02381 .14904 m -.02756 .14904 L -s -.02381 .17591 m -.02756 .17591 L -s -.02381 .20277 m -.02756 .20277 L -s -.02381 .25651 m -.02756 .25651 L -s -.02381 .28337 m -.02756 .28337 L -s -.02381 .31024 m -.02756 .31024 L -s -.02381 .36397 m -.02756 .36397 L -s -.02381 .39083 m -.02756 .39083 L -s -.02381 .4177 m -.02756 .4177 L -s -.02381 .47143 m -.02756 .47143 L -s -.02381 .4983 m -.02756 .4983 L -s -.02381 .52516 m -.02756 .52516 L -s -.02381 .57889 m -.02756 .57889 L -s -.02381 .60576 m -.02756 .60576 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .01472 m -.06244 .12073 L -.10458 .23188 L -.14415 .32802 L -.18221 .40977 L -.22272 .48259 L -.26171 .53704 L -.28302 .55995 L -.30316 .57709 L -.31285 .58377 L -.32313 .58977 L -.33276 .59437 L -.34157 .59772 L -.35098 .60043 L -.35617 .60154 L -.3611 .60234 L -.3633 .60262 L -.36564 .60287 L -.36785 .60305 L -.36985 .60318 L -.37108 .60323 L -.37222 .60327 L -.37346 .6033 L -.37477 .60332 L -.37591 .60332 L -.37698 .60331 L -.37815 .60328 L -.3794 .60324 L -.38062 .60319 L -.38197 .60311 L -.38469 .60291 L -.38721 .60266 L -.38958 .60237 L -.3949 .60153 L -.40064 .60035 L -.41114 .59744 L -.42077 .59396 L -.43969 .58496 L -.46039 .57209 L -.50095 .53905 L -.54 .49958 L -.58149 .45213 L -.62148 .40358 L -.65994 .3563 L -.70086 .30723 L -.74026 .26259 L -.77815 .22302 L -.81849 .18514 L -.85731 .15313 L -.89859 .12393 L -Mistroke -.93835 .10033 L -.97619 .08171 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJzdXHmcFcURfriXisohiYgk3OxyH8t9ihpuUAQBIRiWS+QQAgJKAEVQETAg -5ieHoKhRMREP5BBFIsagGBWjUcSTUw3KJcihYmeqprtq5lk1szwf/kz+2Lcz -1fV1fV19TFd3z3QpuG7o4JEF110zsKB8uzEFo4deM3Bs+bajxniijCKJRJFt -3l+18olM79okEqGfOeaE2Q4/3rUx35vt8HPy1wX4L8MMHjzYlCpVyjRo0MC7 -83+LFi1qvvv2O9Soj7/ZZsniJZBqqlevbs4991y83vbJNj85yyyYv8DUqFHD -VKtWzQwbNswc+foIQb86+JUZOnQoQho2bGh69OhhdmzfUctCd+7YiUku9xIl -SiROs0xm3j4TtFDzNKs/d85ck5uba/Ly8tDU9ye+T+TG5pUVzMuVOpEplLhK -SrxUD5UP+9sruKlbt65Z8dQK786XNWnShKw3sLI3N79p+vfvH6qDB+5/wHTt -2tUc+uoQWr/xxhvBsX5yjunUqZO5Y/YdVMjVq1ZjnRw7eixRJ5At+N8vop/t -2mfWmg4dOpivD39tvv3mWzN8+HBz+4zbqwuQzEKWIk/Ani6UrILvnAE2ac9/ -9mALue/e+6xbM8ycP3qN/bsTeFfXZnThhReim4EC/EFzKFmyJF5/8vEn9axD -qlatavZ+uZccAtmUKVPGHD923GaVYT7d/Sk2Wv/O/+3du7d5Zs0zeFc7wnHt -2rVDucsfGnrFihUlx2UVsoSS4zILV2rb0AbaHPbv249VMnvWbNuoss20m6eZ -eXfOI8K2KuoHyAEk6It69ephT4A714ignLVr1w7p9ezZ07y88WXVZ67lQAu5 -4IILsNc6bIsWLcx7W95THZAtFKmmakMtZkXfQYMCpWjatCloJvItEnoWlAy6 -guCgjf/YiA3IU6PaO3jgIMq8Gky4hgfNe9bMWUTg6RVPm1q1akHhxZ7onPPF -ni+wNoOOveqqq8y659apzskRilMjwjlKEa1zBgdKBYyfX/e8dY4/8LpSWVTC -jT0bXthgSpcujWPQRx9+ZD7/7HPTq1cvM33adBq+oI23atUK2yx47Pzzz4fu -VzfCIV6zxkIFHQKPkiefeDJ2nAkWQe+ScrGsN4ZY2KubXjWNGzcODMZZMIiY -/Px89GfYG9nYYWBQgUGkbdu2pmXLllAvrpXNv3u+ad++PZYOqnzEiBFmwoQJ -UY748osvxZbhFU51xBkC+2oRjpBKZB1xtYVB1Xk9N+CITHPvknvNLdNvcZB8 -q1q5cmWzfZs/22hoW0m5cuWwwK5fQFYwSHttMbJfaIPG1ve2qqU/U6CsDy4/ -KIYtuHtsv/7a6ziswJ3r+fBoqVSpEt7l21yAabNmzcwLf3sh6IxFCxdhu2Vn -ZGAX+Ob4N6EsoWPu2rkL72raLO3I6EhnW9bQgDa/sZl8Cf3f83mejMoqZDly -ZXiOXLyQk3LMu++8i6V6du2z2NlhvO7WrRv0Lir1Y399DOcw0Lic00AX9MaO -HQuDh3taQbe44YYbXO2Zh/78kGndurWbN0KXAC7du3c3S+9bCjQTzjnAADoe -NGXwMcwTvalRbgQ0qxCFiMKfLhTQ+meAZfXG62/gnAEGPniQw4PfK1wji4QJ -o5sYNbCWIPf69evDtAL/Xnn5FfuUyTZHjxw148ePx0YDj+l+/frBI9x1pBc3 -vGg6duyI5HJsdnfOvdNUqVIFpw4jR47EDlVN0M+OZixBzhBKYad3WgxSy0Ig -rLHN2E9/6n8jvaIv9ZLXw0+RKCnmdRoIzhJyLXoyMs5FvTr7x9r4KWT/p+z5 -qmhy1Teiq8ZCtg01WYqI3J+Peaujd62EmJ4ZTKcsnpRVnFoqKuEynEZKTwSV -skL5hFg/kVxWf5riAL7S4xFKlNPjUbR+KMPfx2IwXJ7l6dDM0Hj8NQbDuUcw -ztRy/8spwDCjCO5ZWu6P/kgMJmeFefwlOT1by2mZbj07nGcEz8Jr5mg8HonB -cO4RjE/Xcl9IWRRNAT2f3HhWDJpZ3k2Yc3TMGZrFeYQungJ6LqFLxqCZ7xzC -lEpuO2dqdmaRyi9FDOc+kxJK64ySMDMIU0bHSA9W/J1O6LIxaLY4nW5/rWOk -iRf+3kQWy6WAnkLoCjFo5juFbv2wK3Jx2x9LMjGQad68OUbWO3fszLYQWAKA -dQ4IAyDm8UIAGqJ379qNNr20hFvdh/n/pEmTUEMaXKTZF/5OJNL+EnnC79/a -+jHxhvgSFtghQy9+caunsPJas2ZN5AjZPPLwIxBMuLHcywFDj8OHDtOTD9ZT -UqJ+PdVRVUvdf/TaFVwyYFdwrWd9GfB0Cw1Odtutt2FVwZ3DBlcxMyzFhQsW -4voVBIxgb8u7W8yqlauksfTscAu5nm7ziHHc2qlrolAquzRA7MBtsEljAo/L -Bx94EGtg185d4pB0jubO64hcdSIXt3bpyMGOxIH9B0LkYO3F1atz8bJHlqEu -NGccoXEal+SlsVSvNYhI3JqhIwKLUbDkFSQCRkePHh1qYIvvWWzatGmDXpcq -7pwwpTF0W4soxa3eOUpQGZJvJk+ejHfOPMTca1avUftBMa3iriVydWJblWvz -jlxgwSnUqqCNB8nBFpRbYlLJsb+YUt1Q17TmQl0TRr5gP59x2wxckkjuhu9v -fT8kswtLIdmoUaPM/UvvV2kW13w4jNpcPUvYHwaVNSfbi7LNZ59+hg3aLori -claXLl0yrfMKCgpM3759aX0U6heG6n1794nNTuV3DTnUX1+jZ4u0+FPMpq1/ -fj22PiAInvdY0I4BNBCoUOgwFSpUwDV+r3FIk67i4bplKv56lvhoLKEVZDCh -G8Wg2SJjGuuYkprFAqraJimg+5PtZjFo5vs7stg8gEHBuZqd31IWLXU7Krov -oVvFoJllHyLVWseU0iz2oszaxKDZImMu0jG/0Cz2IPTFKaAvp9JeEoNmvpfT -bVsd80vN4qWEbpcCuiuh28egmS9jOuiY8zSLHclDHZNb7XlhOx3ptrNup7Rm -px2hu6SAbkvorjFo5suYS3XM+ZrFiwjdLQbNFhlzeaExbei2u44po7FsRege -MWi2yJgrdMwFmsXmhO6ZAroZoXvFoJkvY3ont9Cymp3GhLlSt1M2bIcxfXTM -rzSLDQjdNwV0PqF/G4Nmvozpp2N+rVmsKySkkk9tYtE/Bs3MGeNvN6Y7ZHZp -sFMOe1jFixdHnYkTJ4rzr3Ja4WoQUX/f79SEyW72ddlll8EpM7xTabIXmdxA -Sy7dgXB2MCTFP9gsLlmyZAaEQB6kWLFiuJc4YcIEkXF5zbF5xH0QcU89JM4J -hsT4B5EX1PjRI0fJD3HuVcnmEtnBRDZdIbJzNCyR2PAH/yxZjpaTKp85DSFO -6YqWHacjXx/BMh4+dPgHnJL8VEHzXWXieTXxTFcInWGbL5zBgfAxwFFcRq4Q -dmEVQYWdma5Q2pGEYaJRo0Z4lCmKZEXNk1IC+9SkKczOtL8Q0U69aWpUnatM -pcYw1DL9UfG1O98Dp0jg9Bn8RZHjuuaqH+YTSTWQdgMHHAOEzLVqrKQ5hx+F -w30m0vOyUpg9Y0bomMqaRZ5OjUwBzZPHa2PQzJcxo3SM1P3wl8OO0QE0KlYJ -22HN3+t2qmp2OEwdkwKaw+qxMWjmy5jrdEyuZpEXZMbFoNkiY8brmDzNorRo -HGE7L2xbQkewqKax4P2h61NA837WDTFoZs6YiTqmumaRd0r/kNx+q4ftsOYk -3U4NzQ7vek9OAc27+FNi0MxX2puPsF1Ts11ESIhgUTPMogjd3qRjJNkJAk49 -OeB3BLw5BohKrD5NV68tyI4TcHoMEJVY/RZdvY4gOyrIghYxpQ7lLqlHWJQi -y8OU2W0nBzxEwBkxQFRi9dt19XqC7AABZ8YAUemgkBphsb4g2yfIImxLWewl -PrN9YJrjaHeaHF4R6ty5M2YHc1gvChQnPfWJDzO7w2d2CveXczAn4A3TSkiG -QAiK7/0XI718QbaHGP/RMj6128pOBq+ajRs3LiSDF17ghTC/8Ap/5Mqs5xDr -dG0tOxk0IPcKlZM99eRTZuDAgcwQY1TJr58LMvZwesPoDGy59r05kkG4OHvW -bIkrek5iyN5Mb1Cdg9vP0DbhNDgE1qtWrsIT+/v37RfbqnQwczdxv5N4piuo -dsE/1O49i+7BvVVYQ+vTpw/su0rdns+JMrF5sc3xZANpJ4M3J13Tkw4eNRJk -O4jXXaHOnc6N6WNHj+EA6jlJ54UcmM2fQoNjilGxGzuhpqGmVj69EshIp0Ck -k7/bBJn1UqpBsnumwHAN++DujQevDYltnFfeJTLWSS5Cda+QUHdOUm8iyD4i -A3f7mUlPWAn4IQHnxwBRidUX6OpNBdlWAi4MAFGnKSW9LwAXJKs3E5S2UBaL -dFq8zcLq9+jqzQXZvwm4OAaISqy+RFdvIcjeEmQRFluQHQkYYbulINtMmd0X -A0QlVl+qq7cSZK8R8P4YICqx+gOFVk9KDdrBlNaC0ibK4kFRHZNY6c86mQsF -2UYCPhQDRCVWf1hXbyPIXhJkERZ5j1YCRti+SJBtoMwizlDzTjKrRxzovliQ -rSdgxMn5i0mJ1SOOz18iyNYJsgiLl5CddXQVfIUAtX8jANeS+nJRHZNYKeLl -i7aCbDUBn4gBotIaITXCIh9+WCWkRlhsL8hWUGYR77a1J6UV4StZvYNGC4FP -+8BTFF1CbAETKpi7wI7tooWLxOiyQ7iK8Gqlz+yURpebXtmEyRAFQzLs4MCp -TW/WLM5mOgqy5YLMevUnijOHDBliHl32aEgGOu4jEdJUik/8LE9qwKcizoT3 -g8H1QRm8wQt4jWEnbfBBrquJa3rjzBzz9ltv40qIm4oDBtq1NyX32wTGmOw/ -5rSGOKUrsnQ7jBA+ZGRkYKvJycmBFQSxH3UmLsvo6hlild44MgeDGdCFmoVr -+LoE9PSPP/pY7D1dBNlDxHNtbOtLNawE7vCWelAGazOuPFLr60K8HhZS2acm -zaHmXfPuws3ZoOzx5Y+bQYMGqVy7CrIHif+zlmtajj/DIQv4ZMaHH2A8hE0K -ngleZxOrnA8wMqHnfEKpRqDu2QJfeYFd4jp16mB/9UZAsU9cKsiWEhl/jBAf -nHzck9Wf19UvE2RLCLg+BsixEl79TVfvRkqLhdQIO5cLsoWCLGgbU/jULL/m -t0G3012Q3U3AF2OAHMrj1d919R6C7C4CvhQD5CUjvPqHrn6FIJtLwI06sKcg -myPIImz3JDsSMMI2n8y+g65e0dV7C7KZBNwUA+TNFbx6VVe/kpRm0NU/k9tb -H0q6la5e0/PsK8imEfD1GCBv5uHVG7o6H+ifSlebdfV+gmwKAd+MAfL2LV79 -S1e/ipQm0dVbuvrvSIlfFHxbV+8vyCYQ8N8xQFRi9Xd09QJSGkdX7+rqAwQZ -v9K1JblFDaAkVnpPz30gKY2mq626+iBS4rek3tfVBwuyEYIswiK/PyMBI2wP -IeAwIfUDHXg1AfnqY119KCkx1U98dX/2dlKhphNDaOa+9ehNg91nHuELZs6w -9Eb/NVoDCqxL23V99TOLSpzpJhx2uod30iRE8jb3kO1hCsoHC93ULxgqFtb+ -cEHGA8cO3757Dz0u+it2MkbRAA9pu8Km4oI31RQGYWyAh/LdYQNxkVhhyzKS -DPAj7NOwqbjwqrCmeBDhh/hnhash1ywKa2oUGcA5ESZ+Hm6MygfMzrH9AV6V -dkmeWPqUAY+hPJHcEzaiRCXOyIABA3AxA7amK1WqJBn5PWXN0+kvwgOOHmhk -YDwDzaJs2bLi5xjGkHs4MPzSz14a/vjN6050tVdX50cer+3t19XHkxKvWh7Q -1fn5ezGV4qCuzi/h82r8oYB6Rnju0JJkh/U8/0DqzUj9iK4+mdR5+/CYrj6F -8synq+O6+k2UZ11S/1ZXn0pKeGQOB54Tuvo0UqpKQEwpomNuJc2KYUyGjplB -dvAQcBZhsnTMLNIsFcacrmPwQMcZIMqiK0yJ+FQLhlVnk2aJ5NaD0p/J1+Hi -0vE65ivdiSL/BdTcD9k=\ -\>", "ImageResolution" -> 96., "LightDark" -> \ -"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-1.6168853824798513, \ --0.009969067956413457, 0.059164187941960496, \ -0.0006991192353860321}},ExpressionUUID->"a63f48d3-505f-0a45-b944-\ -e872edd94d6c"], + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 140, 72, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994253901164508*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"12095de7-e3f9-4086-974d-1e040d5c04b2"], Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-\ -1872f77ea023"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4FV8YB3BLRbKErFnuXJcU2Xeu902yJlkTJYVUypKdRESKpKQksiRS +4g5RaBFaRFKUpQ0pEkLWNr/5/TXP55l5zsxz3vd8zxlij7+9NwcbG5sIOxvb +/9fZj81NjORCY+Ne/gIrrQ3GnVfEIzZ0x0GULtcBlTRZQJGXe8S7z8G6wWnF +r2dUIXTrjS7O7gK4pTTAVn0GQHBc7NxCVwXMn5Z4eeiMLXy6t8V/uqsB/lpq +bDyZugvMGCMfJrteg8jcF1+RZH9Y6NLNmOgagKiE+Hcu0THQuLG48FXBT5g6 +VOsTZJEGUp9qvu5R/gvxMc8L3w1dhFUHd93g2siJ7Geq3xQI5MI5dbO6LU7c +KHQ8QsBN5Sr0ZKrVT67kQ+9SP+NuhyJILox5ySEhiMK2vG4S+0tA7Pznk+k5 +wtj4MpFdT6gUxJWqjs8XCaOXLznru7oUJBsSY3ayhPEFb09EFqMUZCbWhqxp +FMYPDuHyQzqlIL85wKNuWBjt0p9OGruVguaSvzqfNVfhIYWxPUMFpWAbLDqo +8XwVdpdnyK9SuQUnHC2NX8+KoEuJ8WCRZhlI3m6T5GAXRQ0e3woZozIoE3ac +U18hiomFHK/PmJbB29furLOyotj/oond3akMGHbBdDsLUZwLcua5EVoGDTa5 +y9oviaKydu3fxTtl8Ndspu2FkRgaNJZ9yNEuh7SiyJt/zcTwgx1VQ2Y5MJax +Ja23E8N8d83uLtNy2PyYZ8NpbzFMCSuqmHUoh6yNtMrNqWIY0yU3PRBYDnpo +fbHlkxiWPYlXCikthyD9/F3NceLIJbEz2pifBVZ5/NPWKeKoVDehtk+QBXSu +I0ltGeI4kF/1LXUVC9o7ncmO6+LYsMb2QIckC1QCeDk/tonjiN62Qr01LBgu +CiuakpTAzEXPz0HAgh2rtoytrpTAqqv/FkoPsUAzqu7YlXsSqCbbyggLYAHP +gKIo8UQCbzfvtjcOYkFNOSco9Ehgb3hnVWM4C0Sta9LUFiXwcUJazo146v3H +GFqbrCWxm7VqcjiTBaY/fkX6fZbEypP879c8YkGExfl1j0Yl0e5CnGliIwvK +8tf3Cs9KYkdxUVv/YxaIO3ro13CvxqOqLhZpz1kwevfxHKfKahx/+q/jeQcL +0uPSgi+Fr0anr4Oe1V9YMCCi4NfEJ4UPanqs93GRIOb/UFpMTAr1e08wfJeT +sPmZy4v9NCk88l5dzncFCdWRycoCmlLoa62bvkeAhFOfJka2u0ihv73nRlUx +EjRK6nx+FEihvVKeICqQcMzIbreknjTOXyqYRxMSLNyvTOmaSGP+kf5BXlMS ++GO/xzttlsaS1YFH32wiIbsxoSjNQxrvrZqs3WFJwl2r2u/LTkpj6LcKz41b +SZhwkQv92SONjvTTzYE7SbgTGcAlOCiNbU+G7nDvIuFo9v1MlXFplDJu3J7t +QQJv37a6/RwySMzfrKnxJGGNTwpb3zoZFKo1n23dT4J7yMyp1igZjHnD8cQp +hAT5iyZSIwkyqPBhCXE3lKTm78wtrjQZfDF/R0csnITIP2vbTQpl0K9X9nxL +JAkZ8e4iNa0y+O4KyeCLJaH17NPca9KyiPwDfNMnSUivXKXeuEYWHeS+2tKT +SXB9s7uhT52639TkaJNCwrD4n8HVZrI4t49ZcimVBM48tXXn/GQxTjU+ZUU6 +CQZll24ffSiLMpMltY6XSTDtavs7/kwWo4Mj6o2zSdjCtsR812tZZLJb/pHP +IcHT3q8HvsiicME7sdErJJhFETGxS2n4NS9n1LmAhBaBe1f1eGiYrq7LWneV +hK2Fzs8m+GkYlNp86zdltxfJgrvFaeggMuCScY2EANnZqxuUaPjBzCq6+DoJ +M5VpzxZUaRjmzifrXULNh4XSGKlFQ7PqsX+yN0hICPTQoRvTsEBdPur0TRKy +Gp8/47Cj4Tcxv2DzMhKafHLHGkNpqHc2eVC3kgTLP/pCR6JomJ+mUNJMuS2t +U0crlobWY8W3XW6T0FOzPLbwJA0/zRUV+FWRML4iWCghm4azfHUjEXdICMrj +12Xm03CtQsnsDOV5rRK3mWs03PmCtsX/LjWf7h8LvctpuHiKZ2B7DQniLAtd +swYaqqdHlfHXkZBj+tnt3xMabo3yXhNCmd4THVvdQkOeocKJbsrrOSqbFd7Q +0FLzQmjmPRIqLtiMf+yh4eGLcVrTlPWUhoUufqRhdYL+Jpv7JJg4Su/gGqbh +5Z643XOUnw7fiX04SsOT1Y5+Fg+o9RRtfy1skobeKwLaL1DeVnRifOgXDU1a +uS8qPSThvQFdOG+Rhi0Xnv8JpLzn5T1dlyUEZma411ZRPjg/GfuMj8Ds7BTQ +rqf6I3Cv6FchAsn24vEQytwjvTc5xQnU/V10rJLy2z22GwhpAvWf7lwYo3zt +XeNbYzqB/pV5zvKPSAh21Du4Yw2BOYKbsrZTNnlRyh6pTCD7MuLxKcofH2Qo +V+kQaOT2vuMz5VJdnobXhgReWH2wZkUDVX/W0W0TSOA/1fMn1ShbrP05ymdG +4Jp2lU32lEULfOKUrAm8ziE2FkB5UPK9mOVWAj2zFeNSKFekb72114nAKcCl +1yjH8j42Oe5KIMdOw7BayrYJ+t35uwhsUp3vbqUs8+/WoYdeBFrUOym9pzwa +Suf8sJ/AsX5N/2HKtT8uZP7yI7BOI+jaJOWkfStUxIMJfCM50zZH2bk/plE7 +gsBXLZdHf1FmuE67OBwlkI5Wi/976vW+8YB4AmMMBrnmKddbf4hPTSJww6Yt +XFOUU5vsJEpPE9hOHvr3//t2MJ+UNZ8jcOGi4vj/37Ou2sB06CKBrm+8u15Q +XlAp71mSQ2AbL19dHeVnxXL+9AICq64tyyqifIGWuQSLCQxrMQxJpex1iTdr +Zyn1/MELNkGUNYSOqUaRBGobsjOcKLMlzzRlVhO48YbPgiblNs4DrtV1BIr8 +qGoToJx95OOPjnoCbyx2Fw5T9fKdsU+YfEzgpnMPjjygbOD3VFKghcAWKadt +ZylzDxmylNsJXN+ZrL2bcmE3451PL4HFjlls81S/HLa7FJDwiUCC6fjjAWV8 +zrfs6iCB3GmHv8RR/lA3q/ZxnEDDluvf2SmXavk++f2T6r+K63/vUf0aeeuT +m8QCgXcW30uGUBbNfZboyEnHwKe1ke+p/h8UY0od5qZjxgr7h8mUK9JI8gwf +HVssFoT0KNvGZb1/LkZHX7rb9xPUekryPqixQZmOoN8atYRaf84f+566q9Nx +taKxYza1XhnbnHYe0aGj7rZLG9Up11sYJ92hquu5d6mvfS1VD6WVH9c70dE0 +nDUfSOXDbI7kMU1XOqZXCCxOU/kxLSDP0N9FR4lJfgihPP5T/4DpfjoGqDz2 +P1RNwkCd56xrNB0dD0iUG1H59Gm93yWPODpulo3OKaHy631uuNHeE3ScdMUX +wpTfxp+OCzxLx9y29ulPJAnPre/wJ12j4z67mzHbyql8uP+IPH2Djm65mefL +/s9H1VbH9HI6nv7SMsVB+YFwf9aVGjoK9HOcuVpKzc87njVVL+hox9W8p4nK +3yxfdxiYoaMJn61rApXfFz/sGxj6RccNrwqOkFTen7cNShhbpOPW+Ij53nyq +fzWTWuaXy6Fo6Ws2hTwS4n6T2wRk5NAgyzwwm9pPfJOXBhiZyeGIyZW6FRkk +GN0szbtwQQ7rU8u8fseT8I52M3fTZTn8CrXkcBxV3wslV6Zz5fCljXFbxzFq +Pz5WlG1fIodjlyDiagzVvy55mfz35FDgthJLMYqEtUvPpyX2y+Fp0fkDLYFU +P+yKig1VZiDLvTkgnNrPqzojYuTVGRg8bHiI2EGCo1X40U5tBj59tsX5mSsJ +57RDjmgAAzltVk4JuJDAx+sfPm7HQMVbKgcS7UlYUrMnYG8YAw2UdFQFzUmY +FLLycG5goPb12LJCFRK6D9LbDzxl4OoIMmZEmeqPJ78gppWBpvkFnCpKJKRF +3pS9/paBGfNVimVrSFAb4P20MMJAXTVTnnQaCX7ky505wvLI3K6zYUKQhBFb +J7dBL3n83ErbwP6TBYMpHs6HuRRQ9W1jelMZC/xGlOlqvArIdzu0tLiUBXPm +C2NjKxVwOieD5+QN6nzIeS5hv6QCViQ6XDYrYoFaRONtj/UKWGQepXwrhwXR +3grCtg4KyLnO+rdiCnVeNB59qZRLjfdFtn7AhwWWP8Isv+iswTsuKd+yqPPq +qCd30O0YRdzSGygT+bCM+l8R4zjRsBZrt/Yey5e/BUIvFFJZP9ahZU47jfvU +TZBKKt+qo6OM7Mb/RnZXlUCmkv5KYZ/1uMPkRynvz2J4LrlB++dZFRyu9Rmu +1ioCA6mGNNW3qni+UkbIxL4Q+DkLgnfHqeHyb2F9WRcLQOaYrNF2BXVs/b7n +0evHebBcfke1/VN1zJqtoH+XuQIqTInysJ0a+GpRw+SRyGU4/FGo0YpNE0X8 +Iv60/rkIP36mOFlmamJiYLP1H6sMMFd9kmW5Xgvjvn3346f+2x78NPw916aF +LYLsPn980sBPWaP3lbc2nklkfLtdmgLMca/O7ct1UFh4cUtfXhJsYojb8BXo +YNfs5l2ZkACKsafCG3R10bNb54m5VRys89Z/KN+ri1Gdnx7it6Pg/WDf8duB +elgteOcrj1kkPMzr9JoU0UetssaZga8hMH19cU71jj4uiS3JZdM5DJ7yN5dn +2Rhgvb5zRkKsH0yuS9epmDDA6xNzzoNL98Pdwt/9M0mG2H5ov30uywt0NgbP +WSUbYnmh9XKOfC+o6h/lzTttiGttto76nfWCCpmPulbnDNGQ/zPhc9gLSjPr +T1+5bIicQwE17VpekJeSoG9eZohi8RqCx+s84WSwwNnMDkNUDFTwNW/fA66m +cmgoY4QuQV/EFER3w99Obv5GmhHG+s+HtXLthjzv8XdWckZYQRNwjl7wgK+J +NWGuikYoL5AX9O+9Bxxuti2P0DDCvxp6SdGFHnBqyxGZu2ZGOPLv3f392h5Q +6/Lmj5a/EW4dGlyRd98dVh86UaNSb4T95n+KBXPcIHVxr3ZygxFW9nn6vU10 +A45zZuRQkxFad/WN3Ahwg5HqpSV5zUbo//Ref5ypG9SyHc8U6jBCYodK89io +K7iejw2b/WKE5ae5sovRFTLrIrQfrGBi9Z/tUwd/uoAIz0HSZhsTnWJe/nA+ +7gyFG6MjJ7YzcaDRr/KyvzNoRKduTN/BRLrLb+dJV2fYMsF6072bicnOyitf +qjtD4tuZBc+DTOzNteF16HOC+YIYk8hjTKzi8bQIQifoNUzvKLrJxOucezqe +8DrCvpDCbMsyJsb9/dkj+MsBZsuqvEdZTMxVttp5cMgBhOjdc+rVTPylbVFu +2+AA1tzSUvfrmZh69J1jW7gD3Oss8up4w8Sme3GuBcP2YMV/d31oNxPPTPGr +9r21h27z5lnxd0zc5TbwVvmxPUzXfk9y72Oiwnht6FS+PazPV7v1bYSJ2lMD +net32MO93g2hKWNM3KquSfRbUeOtcgDVCSYKnOUbL9C3h70nQl4FzzCRd7NP +n50YNV59YpbYPBOTDMMmjZfZQ9yvi561v5h44LCGq8GMHazUKlHe+ZeJkUf9 +VpoO2sGVQ7Uzi4tMpBks49nRYQf/AT0Q+jQ= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4FV8YB3BLRbKErFnuXJcU2Xeu902yJlkTJYVUypKdRESKpKQksiRS +4g5RaBFaRFKUpQ0pEkLWNr/5/TXP55l5zsxz3vd8zxlij7+9NwcbG5sIOxvb +/9fZj81NjORCY+Ne/gIrrQ3GnVfEIzZ0x0GULtcBlTRZQJGXe8S7z8G6wWnF +r2dUIXTrjS7O7gK4pTTAVn0GQHBc7NxCVwXMn5Z4eeiMLXy6t8V/uqsB/lpq +bDyZugvMGCMfJrteg8jcF1+RZH9Y6NLNmOgagKiE+Hcu0THQuLG48FXBT5g6 +VOsTZJEGUp9qvu5R/gvxMc8L3w1dhFUHd93g2siJ7Geq3xQI5MI5dbO6LU7c +KHQ8QsBN5Sr0ZKrVT67kQ+9SP+NuhyJILox5ySEhiMK2vG4S+0tA7Pznk+k5 +wtj4MpFdT6gUxJWqjs8XCaOXLznru7oUJBsSY3ayhPEFb09EFqMUZCbWhqxp +FMYPDuHyQzqlIL85wKNuWBjt0p9OGruVguaSvzqfNVfhIYWxPUMFpWAbLDqo +8XwVdpdnyK9SuQUnHC2NX8+KoEuJ8WCRZhlI3m6T5GAXRQ0e3woZozIoE3ac +U18hiomFHK/PmJbB29furLOyotj/oond3akMGHbBdDsLUZwLcua5EVoGDTa5 +y9oviaKydu3fxTtl8Ndspu2FkRgaNJZ9yNEuh7SiyJt/zcTwgx1VQ2Y5MJax +Ja23E8N8d83uLtNy2PyYZ8NpbzFMCSuqmHUoh6yNtMrNqWIY0yU3PRBYDnpo +fbHlkxiWPYlXCikthyD9/F3NceLIJbEz2pifBVZ5/NPWKeKoVDehtk+QBXSu +I0ltGeI4kF/1LXUVC9o7ncmO6+LYsMb2QIckC1QCeDk/tonjiN62Qr01LBgu +CiuakpTAzEXPz0HAgh2rtoytrpTAqqv/FkoPsUAzqu7YlXsSqCbbyggLYAHP +gKIo8UQCbzfvtjcOYkFNOSco9Ehgb3hnVWM4C0Sta9LUFiXwcUJazo146v3H +GFqbrCWxm7VqcjiTBaY/fkX6fZbEypP879c8YkGExfl1j0Yl0e5CnGliIwvK +8tf3Cs9KYkdxUVv/YxaIO3ro13CvxqOqLhZpz1kwevfxHKfKahx/+q/jeQcL +0uPSgi+Fr0anr4Oe1V9YMCCi4NfEJ4UPanqs93GRIOb/UFpMTAr1e08wfJeT +sPmZy4v9NCk88l5dzncFCdWRycoCmlLoa62bvkeAhFOfJka2u0ihv73nRlUx +EjRK6nx+FEihvVKeICqQcMzIbreknjTOXyqYRxMSLNyvTOmaSGP+kf5BXlMS ++GO/xzttlsaS1YFH32wiIbsxoSjNQxrvrZqs3WFJwl2r2u/LTkpj6LcKz41b +SZhwkQv92SONjvTTzYE7SbgTGcAlOCiNbU+G7nDvIuFo9v1MlXFplDJu3J7t +QQJv37a6/RwySMzfrKnxJGGNTwpb3zoZFKo1n23dT4J7yMyp1igZjHnD8cQp +hAT5iyZSIwkyqPBhCXE3lKTm78wtrjQZfDF/R0csnITIP2vbTQpl0K9X9nxL +JAkZ8e4iNa0y+O4KyeCLJaH17NPca9KyiPwDfNMnSUivXKXeuEYWHeS+2tKT +SXB9s7uhT52639TkaJNCwrD4n8HVZrI4t49ZcimVBM48tXXn/GQxTjU+ZUU6 +CQZll24ffSiLMpMltY6XSTDtavs7/kwWo4Mj6o2zSdjCtsR812tZZLJb/pHP +IcHT3q8HvsiicME7sdErJJhFETGxS2n4NS9n1LmAhBaBe1f1eGiYrq7LWneV +hK2Fzs8m+GkYlNp86zdltxfJgrvFaeggMuCScY2EANnZqxuUaPjBzCq6+DoJ +M5VpzxZUaRjmzifrXULNh4XSGKlFQ7PqsX+yN0hICPTQoRvTsEBdPur0TRKy +Gp8/47Cj4Tcxv2DzMhKafHLHGkNpqHc2eVC3kgTLP/pCR6JomJ+mUNJMuS2t +U0crlobWY8W3XW6T0FOzPLbwJA0/zRUV+FWRML4iWCghm4azfHUjEXdICMrj +12Xm03CtQsnsDOV5rRK3mWs03PmCtsX/LjWf7h8LvctpuHiKZ2B7DQniLAtd +swYaqqdHlfHXkZBj+tnt3xMabo3yXhNCmd4THVvdQkOeocKJbsrrOSqbFd7Q +0FLzQmjmPRIqLtiMf+yh4eGLcVrTlPWUhoUufqRhdYL+Jpv7JJg4Su/gGqbh +5Z643XOUnw7fiX04SsOT1Y5+Fg+o9RRtfy1skobeKwLaL1DeVnRifOgXDU1a +uS8qPSThvQFdOG+Rhi0Xnv8JpLzn5T1dlyUEZma411ZRPjg/GfuMj8Ds7BTQ +rqf6I3Cv6FchAsn24vEQytwjvTc5xQnU/V10rJLy2z22GwhpAvWf7lwYo3zt +XeNbYzqB/pV5zvKPSAh21Du4Yw2BOYKbsrZTNnlRyh6pTCD7MuLxKcofH2Qo +V+kQaOT2vuMz5VJdnobXhgReWH2wZkUDVX/W0W0TSOA/1fMn1ShbrP05ymdG +4Jp2lU32lEULfOKUrAm8ziE2FkB5UPK9mOVWAj2zFeNSKFekb72114nAKcCl +1yjH8j42Oe5KIMdOw7BayrYJ+t35uwhsUp3vbqUs8+/WoYdeBFrUOym9pzwa +Suf8sJ/AsX5N/2HKtT8uZP7yI7BOI+jaJOWkfStUxIMJfCM50zZH2bk/plE7 +gsBXLZdHf1FmuE67OBwlkI5Wi/976vW+8YB4AmMMBrnmKddbf4hPTSJww6Yt +XFOUU5vsJEpPE9hOHvr3//t2MJ+UNZ8jcOGi4vj/37Ou2sB06CKBrm+8u15Q +XlAp71mSQ2AbL19dHeVnxXL+9AICq64tyyqifIGWuQSLCQxrMQxJpex1iTdr +Zyn1/MELNkGUNYSOqUaRBGobsjOcKLMlzzRlVhO48YbPgiblNs4DrtV1BIr8 +qGoToJx95OOPjnoCbyx2Fw5T9fKdsU+YfEzgpnMPjjygbOD3VFKghcAWKadt +ZylzDxmylNsJXN+ZrL2bcmE3451PL4HFjlls81S/HLa7FJDwiUCC6fjjAWV8 +zrfs6iCB3GmHv8RR/lA3q/ZxnEDDluvf2SmXavk++f2T6r+K63/vUf0aeeuT +m8QCgXcW30uGUBbNfZboyEnHwKe1ke+p/h8UY0od5qZjxgr7h8mUK9JI8gwf +HVssFoT0KNvGZb1/LkZHX7rb9xPUekryPqixQZmOoN8atYRaf84f+566q9Nx +taKxYza1XhnbnHYe0aGj7rZLG9Up11sYJ92hquu5d6mvfS1VD6WVH9c70dE0 +nDUfSOXDbI7kMU1XOqZXCCxOU/kxLSDP0N9FR4lJfgihPP5T/4DpfjoGqDz2 +P1RNwkCd56xrNB0dD0iUG1H59Gm93yWPODpulo3OKaHy631uuNHeE3ScdMUX +wpTfxp+OCzxLx9y29ulPJAnPre/wJ12j4z67mzHbyql8uP+IPH2Djm65mefL +/s9H1VbH9HI6nv7SMsVB+YFwf9aVGjoK9HOcuVpKzc87njVVL+hox9W8p4nK +3yxfdxiYoaMJn61rApXfFz/sGxj6RccNrwqOkFTen7cNShhbpOPW+Ij53nyq +fzWTWuaXy6Fo6Ws2hTwS4n6T2wRk5NAgyzwwm9pPfJOXBhiZyeGIyZW6FRkk +GN0szbtwQQ7rU8u8fseT8I52M3fTZTn8CrXkcBxV3wslV6Zz5fCljXFbxzFq +Pz5WlG1fIodjlyDiagzVvy55mfz35FDgthJLMYqEtUvPpyX2y+Fp0fkDLYFU +P+yKig1VZiDLvTkgnNrPqzojYuTVGRg8bHiI2EGCo1X40U5tBj59tsX5mSsJ +57RDjmgAAzltVk4JuJDAx+sfPm7HQMVbKgcS7UlYUrMnYG8YAw2UdFQFzUmY +FLLycG5goPb12LJCFRK6D9LbDzxl4OoIMmZEmeqPJ78gppWBpvkFnCpKJKRF +3pS9/paBGfNVimVrSFAb4P20MMJAXTVTnnQaCX7ky505wvLI3K6zYUKQhBFb +J7dBL3n83ErbwP6TBYMpHs6HuRRQ9W1jelMZC/xGlOlqvArIdzu0tLiUBXPm +C2NjKxVwOieD5+QN6nzIeS5hv6QCViQ6XDYrYoFaRONtj/UKWGQepXwrhwXR +3grCtg4KyLnO+rdiCnVeNB59qZRLjfdFtn7AhwWWP8Isv+iswTsuKd+yqPPq +qCd30O0YRdzSGygT+bCM+l8R4zjRsBZrt/Yey5e/BUIvFFJZP9ahZU47jfvU +TZBKKt+qo6OM7Mb/RnZXlUCmkv5KYZ/1uMPkRynvz2J4LrlB++dZFRyu9Rmu +1ioCA6mGNNW3qni+UkbIxL4Q+DkLgnfHqeHyb2F9WRcLQOaYrNF2BXVs/b7n +0evHebBcfke1/VN1zJqtoH+XuQIqTInysJ0a+GpRw+SRyGU4/FGo0YpNE0X8 +Iv60/rkIP36mOFlmamJiYLP1H6sMMFd9kmW5Xgvjvn3346f+2x78NPw916aF +LYLsPn980sBPWaP3lbc2nklkfLtdmgLMca/O7ct1UFh4cUtfXhJsYojb8BXo +YNfs5l2ZkACKsafCG3R10bNb54m5VRys89Z/KN+ri1Gdnx7it6Pg/WDf8duB +elgteOcrj1kkPMzr9JoU0UetssaZga8hMH19cU71jj4uiS3JZdM5DJ7yN5dn +2Rhgvb5zRkKsH0yuS9epmDDA6xNzzoNL98Pdwt/9M0mG2H5ov30uywt0NgbP +WSUbYnmh9XKOfC+o6h/lzTttiGttto76nfWCCpmPulbnDNGQ/zPhc9gLSjPr +T1+5bIicQwE17VpekJeSoG9eZohi8RqCx+s84WSwwNnMDkNUDFTwNW/fA66m +cmgoY4QuQV/EFER3w99Obv5GmhHG+s+HtXLthjzv8XdWckZYQRNwjl7wgK+J +NWGuikYoL5AX9O+9Bxxuti2P0DDCvxp6SdGFHnBqyxGZu2ZGOPLv3f392h5Q +6/Lmj5a/EW4dGlyRd98dVh86UaNSb4T95n+KBXPcIHVxr3ZygxFW9nn6vU10 +A45zZuRQkxFad/WN3Ahwg5HqpSV5zUbo//Ref5ypG9SyHc8U6jBCYodK89io +K7iejw2b/WKE5ae5sovRFTLrIrQfrGBi9Z/tUwd/uoAIz0HSZhsTnWJe/nA+ +7gyFG6MjJ7YzcaDRr/KyvzNoRKduTN/BRLrLb+dJV2fYMsF6072bicnOyitf +qjtD4tuZBc+DTOzNteF16HOC+YIYk8hjTKzi8bQIQifoNUzvKLrJxOucezqe +8DrCvpDCbMsyJsb9/dkj+MsBZsuqvEdZTMxVttp5cMgBhOjdc+rVTPylbVFu +2+AA1tzSUvfrmZh69J1jW7gD3Oss8up4w8Sme3GuBcP2YMV/d31oNxPPTPGr +9r21h27z5lnxd0zc5TbwVvmxPUzXfk9y72Oiwnht6FS+PazPV7v1bYSJ2lMD +net32MO93g2hKWNM3KquSfRbUeOtcgDVCSYKnOUbL9C3h70nQl4FzzCRd7NP +n50YNV59YpbYPBOTDMMmjZfZQ9yvi561v5h44LCGq8GMHazUKlHe+ZeJkUf9 +VpoO2sGVQ7Uzi4tMpBks49nRYQf/AT0Q+jQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06938141567866343}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06938141567866343}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4FV8YB3BLRbKErFnuXJcU2Xeu902yJlkTJYVUypKdRESKpKQksiRS +4g5RaBFaRFKUpQ0pEkLWNr/5/TXP55l5zsxz3vd8zxlij7+9NwcbG5sIOxvb +/9fZj81NjORCY+Ne/gIrrQ3GnVfEIzZ0x0GULtcBlTRZQJGXe8S7z8G6wWnF +r2dUIXTrjS7O7gK4pTTAVn0GQHBc7NxCVwXMn5Z4eeiMLXy6t8V/uqsB/lpq +bDyZugvMGCMfJrteg8jcF1+RZH9Y6NLNmOgagKiE+Hcu0THQuLG48FXBT5g6 +VOsTZJEGUp9qvu5R/gvxMc8L3w1dhFUHd93g2siJ7Geq3xQI5MI5dbO6LU7c +KHQ8QsBN5Sr0ZKrVT67kQ+9SP+NuhyJILox5ySEhiMK2vG4S+0tA7Pznk+k5 +wtj4MpFdT6gUxJWqjs8XCaOXLznru7oUJBsSY3ayhPEFb09EFqMUZCbWhqxp +FMYPDuHyQzqlIL85wKNuWBjt0p9OGruVguaSvzqfNVfhIYWxPUMFpWAbLDqo +8XwVdpdnyK9SuQUnHC2NX8+KoEuJ8WCRZhlI3m6T5GAXRQ0e3woZozIoE3ac +U18hiomFHK/PmJbB29furLOyotj/oond3akMGHbBdDsLUZwLcua5EVoGDTa5 +y9oviaKydu3fxTtl8Ndspu2FkRgaNJZ9yNEuh7SiyJt/zcTwgx1VQ2Y5MJax +Ja23E8N8d83uLtNy2PyYZ8NpbzFMCSuqmHUoh6yNtMrNqWIY0yU3PRBYDnpo +fbHlkxiWPYlXCikthyD9/F3NceLIJbEz2pifBVZ5/NPWKeKoVDehtk+QBXSu +I0ltGeI4kF/1LXUVC9o7ncmO6+LYsMb2QIckC1QCeDk/tonjiN62Qr01LBgu +CiuakpTAzEXPz0HAgh2rtoytrpTAqqv/FkoPsUAzqu7YlXsSqCbbyggLYAHP +gKIo8UQCbzfvtjcOYkFNOSco9Ehgb3hnVWM4C0Sta9LUFiXwcUJazo146v3H +GFqbrCWxm7VqcjiTBaY/fkX6fZbEypP879c8YkGExfl1j0Yl0e5CnGliIwvK +8tf3Cs9KYkdxUVv/YxaIO3ro13CvxqOqLhZpz1kwevfxHKfKahx/+q/jeQcL +0uPSgi+Fr0anr4Oe1V9YMCCi4NfEJ4UPanqs93GRIOb/UFpMTAr1e08wfJeT +sPmZy4v9NCk88l5dzncFCdWRycoCmlLoa62bvkeAhFOfJka2u0ihv73nRlUx +EjRK6nx+FEihvVKeICqQcMzIbreknjTOXyqYRxMSLNyvTOmaSGP+kf5BXlMS ++GO/xzttlsaS1YFH32wiIbsxoSjNQxrvrZqs3WFJwl2r2u/LTkpj6LcKz41b +SZhwkQv92SONjvTTzYE7SbgTGcAlOCiNbU+G7nDvIuFo9v1MlXFplDJu3J7t +QQJv37a6/RwySMzfrKnxJGGNTwpb3zoZFKo1n23dT4J7yMyp1igZjHnD8cQp +hAT5iyZSIwkyqPBhCXE3lKTm78wtrjQZfDF/R0csnITIP2vbTQpl0K9X9nxL +JAkZ8e4iNa0y+O4KyeCLJaH17NPca9KyiPwDfNMnSUivXKXeuEYWHeS+2tKT +SXB9s7uhT52639TkaJNCwrD4n8HVZrI4t49ZcimVBM48tXXn/GQxTjU+ZUU6 +CQZll24ffSiLMpMltY6XSTDtavs7/kwWo4Mj6o2zSdjCtsR812tZZLJb/pHP +IcHT3q8HvsiicME7sdErJJhFETGxS2n4NS9n1LmAhBaBe1f1eGiYrq7LWneV +hK2Fzs8m+GkYlNp86zdltxfJgrvFaeggMuCScY2EANnZqxuUaPjBzCq6+DoJ +M5VpzxZUaRjmzifrXULNh4XSGKlFQ7PqsX+yN0hICPTQoRvTsEBdPur0TRKy +Gp8/47Cj4Tcxv2DzMhKafHLHGkNpqHc2eVC3kgTLP/pCR6JomJ+mUNJMuS2t +U0crlobWY8W3XW6T0FOzPLbwJA0/zRUV+FWRML4iWCghm4azfHUjEXdICMrj +12Xm03CtQsnsDOV5rRK3mWs03PmCtsX/LjWf7h8LvctpuHiKZ2B7DQniLAtd +swYaqqdHlfHXkZBj+tnt3xMabo3yXhNCmd4THVvdQkOeocKJbsrrOSqbFd7Q +0FLzQmjmPRIqLtiMf+yh4eGLcVrTlPWUhoUufqRhdYL+Jpv7JJg4Su/gGqbh +5Z643XOUnw7fiX04SsOT1Y5+Fg+o9RRtfy1skobeKwLaL1DeVnRifOgXDU1a +uS8qPSThvQFdOG+Rhi0Xnv8JpLzn5T1dlyUEZma411ZRPjg/GfuMj8Ds7BTQ +rqf6I3Cv6FchAsn24vEQytwjvTc5xQnU/V10rJLy2z22GwhpAvWf7lwYo3zt +XeNbYzqB/pV5zvKPSAh21Du4Yw2BOYKbsrZTNnlRyh6pTCD7MuLxKcofH2Qo +V+kQaOT2vuMz5VJdnobXhgReWH2wZkUDVX/W0W0TSOA/1fMn1ShbrP05ymdG +4Jp2lU32lEULfOKUrAm8ziE2FkB5UPK9mOVWAj2zFeNSKFekb72114nAKcCl +1yjH8j42Oe5KIMdOw7BayrYJ+t35uwhsUp3vbqUs8+/WoYdeBFrUOym9pzwa +Suf8sJ/AsX5N/2HKtT8uZP7yI7BOI+jaJOWkfStUxIMJfCM50zZH2bk/plE7 +gsBXLZdHf1FmuE67OBwlkI5Wi/976vW+8YB4AmMMBrnmKddbf4hPTSJww6Yt +XFOUU5vsJEpPE9hOHvr3//t2MJ+UNZ8jcOGi4vj/37Ou2sB06CKBrm+8u15Q +XlAp71mSQ2AbL19dHeVnxXL+9AICq64tyyqifIGWuQSLCQxrMQxJpex1iTdr +Zyn1/MELNkGUNYSOqUaRBGobsjOcKLMlzzRlVhO48YbPgiblNs4DrtV1BIr8 +qGoToJx95OOPjnoCbyx2Fw5T9fKdsU+YfEzgpnMPjjygbOD3VFKghcAWKadt +ZylzDxmylNsJXN+ZrL2bcmE3451PL4HFjlls81S/HLa7FJDwiUCC6fjjAWV8 +zrfs6iCB3GmHv8RR/lA3q/ZxnEDDluvf2SmXavk++f2T6r+K63/vUf0aeeuT +m8QCgXcW30uGUBbNfZboyEnHwKe1ke+p/h8UY0od5qZjxgr7h8mUK9JI8gwf +HVssFoT0KNvGZb1/LkZHX7rb9xPUekryPqixQZmOoN8atYRaf84f+566q9Nx +taKxYza1XhnbnHYe0aGj7rZLG9Up11sYJ92hquu5d6mvfS1VD6WVH9c70dE0 +nDUfSOXDbI7kMU1XOqZXCCxOU/kxLSDP0N9FR4lJfgihPP5T/4DpfjoGqDz2 +P1RNwkCd56xrNB0dD0iUG1H59Gm93yWPODpulo3OKaHy631uuNHeE3ScdMUX +wpTfxp+OCzxLx9y29ulPJAnPre/wJ12j4z67mzHbyql8uP+IPH2Djm65mefL +/s9H1VbH9HI6nv7SMsVB+YFwf9aVGjoK9HOcuVpKzc87njVVL+hox9W8p4nK +3yxfdxiYoaMJn61rApXfFz/sGxj6RccNrwqOkFTen7cNShhbpOPW+Ij53nyq +fzWTWuaXy6Fo6Ws2hTwS4n6T2wRk5NAgyzwwm9pPfJOXBhiZyeGIyZW6FRkk +GN0szbtwQQ7rU8u8fseT8I52M3fTZTn8CrXkcBxV3wslV6Zz5fCljXFbxzFq +Pz5WlG1fIodjlyDiagzVvy55mfz35FDgthJLMYqEtUvPpyX2y+Fp0fkDLYFU +P+yKig1VZiDLvTkgnNrPqzojYuTVGRg8bHiI2EGCo1X40U5tBj59tsX5mSsJ +57RDjmgAAzltVk4JuJDAx+sfPm7HQMVbKgcS7UlYUrMnYG8YAw2UdFQFzUmY +FLLycG5goPb12LJCFRK6D9LbDzxl4OoIMmZEmeqPJ78gppWBpvkFnCpKJKRF +3pS9/paBGfNVimVrSFAb4P20MMJAXTVTnnQaCX7ky505wvLI3K6zYUKQhBFb +J7dBL3n83ErbwP6TBYMpHs6HuRRQ9W1jelMZC/xGlOlqvArIdzu0tLiUBXPm +C2NjKxVwOieD5+QN6nzIeS5hv6QCViQ6XDYrYoFaRONtj/UKWGQepXwrhwXR +3grCtg4KyLnO+rdiCnVeNB59qZRLjfdFtn7AhwWWP8Isv+iswTsuKd+yqPPq +qCd30O0YRdzSGygT+bCM+l8R4zjRsBZrt/Yey5e/BUIvFFJZP9ahZU47jfvU +TZBKKt+qo6OM7Mb/RnZXlUCmkv5KYZ/1uMPkRynvz2J4LrlB++dZFRyu9Rmu +1ioCA6mGNNW3qni+UkbIxL4Q+DkLgnfHqeHyb2F9WRcLQOaYrNF2BXVs/b7n +0evHebBcfke1/VN1zJqtoH+XuQIqTInysJ0a+GpRw+SRyGU4/FGo0YpNE0X8 +Iv60/rkIP36mOFlmamJiYLP1H6sMMFd9kmW5Xgvjvn3346f+2x78NPw916aF +LYLsPn980sBPWaP3lbc2nklkfLtdmgLMca/O7ct1UFh4cUtfXhJsYojb8BXo +YNfs5l2ZkACKsafCG3R10bNb54m5VRys89Z/KN+ri1Gdnx7it6Pg/WDf8duB +elgteOcrj1kkPMzr9JoU0UetssaZga8hMH19cU71jj4uiS3JZdM5DJ7yN5dn +2Rhgvb5zRkKsH0yuS9epmDDA6xNzzoNL98Pdwt/9M0mG2H5ov30uywt0NgbP +WSUbYnmh9XKOfC+o6h/lzTttiGttto76nfWCCpmPulbnDNGQ/zPhc9gLSjPr +T1+5bIicQwE17VpekJeSoG9eZohi8RqCx+s84WSwwNnMDkNUDFTwNW/fA66m +cmgoY4QuQV/EFER3w99Obv5GmhHG+s+HtXLthjzv8XdWckZYQRNwjl7wgK+J +NWGuikYoL5AX9O+9Bxxuti2P0DDCvxp6SdGFHnBqyxGZu2ZGOPLv3f392h5Q +6/Lmj5a/EW4dGlyRd98dVh86UaNSb4T95n+KBXPcIHVxr3ZygxFW9nn6vU10 +A45zZuRQkxFad/WN3Ahwg5HqpSV5zUbo//Ref5ypG9SyHc8U6jBCYodK89io +K7iejw2b/WKE5ae5sovRFTLrIrQfrGBi9Z/tUwd/uoAIz0HSZhsTnWJe/nA+ +7gyFG6MjJ7YzcaDRr/KyvzNoRKduTN/BRLrLb+dJV2fYMsF6072bicnOyitf +qjtD4tuZBc+DTOzNteF16HOC+YIYk8hjTKzi8bQIQifoNUzvKLrJxOucezqe +8DrCvpDCbMsyJsb9/dkj+MsBZsuqvEdZTMxVttp5cMgBhOjdc+rVTPylbVFu +2+AA1tzSUvfrmZh69J1jW7gD3Oss8up4w8Sme3GuBcP2YMV/d31oNxPPTPGr +9r21h27z5lnxd0zc5TbwVvmxPUzXfk9y72Oiwnht6FS+PazPV7v1bYSJ2lMD +net32MO93g2hKWNM3KquSfRbUeOtcgDVCSYKnOUbL9C3h70nQl4FzzCRd7NP +n50YNV59YpbYPBOTDMMmjZfZQ9yvi561v5h44LCGq8GMHazUKlHe+ZeJkUf9 +VpoO2sGVQ7Uzi4tMpBks49nRYQf/AT0Q+jQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06938141567866343}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06938141567866343}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994254429113001*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"aebf583a-c329-41d4-99a6-6b40ae8e9601"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", - RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"4ad58a38-0776-\ -5240-aa41-ba7c8ff64fb9"], + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellLabel-> + "In[141]:=",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4FV8YB3BLRbKErFnuXJcU2Xeu902yJlkTJYVUypKdRESKpKQksiRS +4g5RaBFaRFKUpQ0pEkLWNr/5/TXP55l5zsxz3vd8zxlij7+9NwcbG5sIOxvb +/9fZj81NjORCY+Ne/gIrrQ3GnVfEIzZ0x0GULtcBlTRZQJGXe8S7z8G6wWnF +r2dUIXTrjS7O7gK4pTTAVn0GQHBc7NxCVwXMn5Z4eeiMLXy6t8V/uqsB/lpq +bDyZugvMGCMfJrteg8jcF1+RZH9Y6NLNmOgagKiE+Hcu0THQuLG48FXBT5g6 +VOsTZJEGUp9qvu5R/gvxMc8L3w1dhFUHd93g2siJ7Geq3xQI5MI5dbO6LU7c +KHQ8QsBN5Sr0ZKrVT67kQ+9SP+NuhyJILox5ySEhiMK2vG4S+0tA7Pznk+k5 +wtj4MpFdT6gUxJWqjs8XCaOXLznru7oUJBsSY3ayhPEFb09EFqMUZCbWhqxp +FMYPDuHyQzqlIL85wKNuWBjt0p9OGruVguaSvzqfNVfhIYWxPUMFpWAbLDqo +8XwVdpdnyK9SuQUnHC2NX8+KoEuJ8WCRZhlI3m6T5GAXRQ0e3woZozIoE3ac +U18hiomFHK/PmJbB29furLOyotj/oond3akMGHbBdDsLUZwLcua5EVoGDTa5 +y9oviaKydu3fxTtl8Ndspu2FkRgaNJZ9yNEuh7SiyJt/zcTwgx1VQ2Y5MJax +Ja23E8N8d83uLtNy2PyYZ8NpbzFMCSuqmHUoh6yNtMrNqWIY0yU3PRBYDnpo +fbHlkxiWPYlXCikthyD9/F3NceLIJbEz2pifBVZ5/NPWKeKoVDehtk+QBXSu +I0ltGeI4kF/1LXUVC9o7ncmO6+LYsMb2QIckC1QCeDk/tonjiN62Qr01LBgu +CiuakpTAzEXPz0HAgh2rtoytrpTAqqv/FkoPsUAzqu7YlXsSqCbbyggLYAHP +gKIo8UQCbzfvtjcOYkFNOSco9Ehgb3hnVWM4C0Sta9LUFiXwcUJazo146v3H +GFqbrCWxm7VqcjiTBaY/fkX6fZbEypP879c8YkGExfl1j0Yl0e5CnGliIwvK +8tf3Cs9KYkdxUVv/YxaIO3ro13CvxqOqLhZpz1kwevfxHKfKahx/+q/jeQcL +0uPSgi+Fr0anr4Oe1V9YMCCi4NfEJ4UPanqs93GRIOb/UFpMTAr1e08wfJeT +sPmZy4v9NCk88l5dzncFCdWRycoCmlLoa62bvkeAhFOfJka2u0ihv73nRlUx +EjRK6nx+FEihvVKeICqQcMzIbreknjTOXyqYRxMSLNyvTOmaSGP+kf5BXlMS ++GO/xzttlsaS1YFH32wiIbsxoSjNQxrvrZqs3WFJwl2r2u/LTkpj6LcKz41b +SZhwkQv92SONjvTTzYE7SbgTGcAlOCiNbU+G7nDvIuFo9v1MlXFplDJu3J7t +QQJv37a6/RwySMzfrKnxJGGNTwpb3zoZFKo1n23dT4J7yMyp1igZjHnD8cQp +hAT5iyZSIwkyqPBhCXE3lKTm78wtrjQZfDF/R0csnITIP2vbTQpl0K9X9nxL +JAkZ8e4iNa0y+O4KyeCLJaH17NPca9KyiPwDfNMnSUivXKXeuEYWHeS+2tKT +SXB9s7uhT52639TkaJNCwrD4n8HVZrI4t49ZcimVBM48tXXn/GQxTjU+ZUU6 +CQZll24ffSiLMpMltY6XSTDtavs7/kwWo4Mj6o2zSdjCtsR812tZZLJb/pHP +IcHT3q8HvsiicME7sdErJJhFETGxS2n4NS9n1LmAhBaBe1f1eGiYrq7LWneV +hK2Fzs8m+GkYlNp86zdltxfJgrvFaeggMuCScY2EANnZqxuUaPjBzCq6+DoJ +M5VpzxZUaRjmzifrXULNh4XSGKlFQ7PqsX+yN0hICPTQoRvTsEBdPur0TRKy +Gp8/47Cj4Tcxv2DzMhKafHLHGkNpqHc2eVC3kgTLP/pCR6JomJ+mUNJMuS2t +U0crlobWY8W3XW6T0FOzPLbwJA0/zRUV+FWRML4iWCghm4azfHUjEXdICMrj +12Xm03CtQsnsDOV5rRK3mWs03PmCtsX/LjWf7h8LvctpuHiKZ2B7DQniLAtd +swYaqqdHlfHXkZBj+tnt3xMabo3yXhNCmd4THVvdQkOeocKJbsrrOSqbFd7Q +0FLzQmjmPRIqLtiMf+yh4eGLcVrTlPWUhoUufqRhdYL+Jpv7JJg4Su/gGqbh +5Z643XOUnw7fiX04SsOT1Y5+Fg+o9RRtfy1skobeKwLaL1DeVnRifOgXDU1a +uS8qPSThvQFdOG+Rhi0Xnv8JpLzn5T1dlyUEZma411ZRPjg/GfuMj8Ds7BTQ +rqf6I3Cv6FchAsn24vEQytwjvTc5xQnU/V10rJLy2z22GwhpAvWf7lwYo3zt +XeNbYzqB/pV5zvKPSAh21Du4Yw2BOYKbsrZTNnlRyh6pTCD7MuLxKcofH2Qo +V+kQaOT2vuMz5VJdnobXhgReWH2wZkUDVX/W0W0TSOA/1fMn1ShbrP05ymdG +4Jp2lU32lEULfOKUrAm8ziE2FkB5UPK9mOVWAj2zFeNSKFekb72114nAKcCl +1yjH8j42Oe5KIMdOw7BayrYJ+t35uwhsUp3vbqUs8+/WoYdeBFrUOym9pzwa +Suf8sJ/AsX5N/2HKtT8uZP7yI7BOI+jaJOWkfStUxIMJfCM50zZH2bk/plE7 +gsBXLZdHf1FmuE67OBwlkI5Wi/976vW+8YB4AmMMBrnmKddbf4hPTSJww6Yt +XFOUU5vsJEpPE9hOHvr3//t2MJ+UNZ8jcOGi4vj/37Ou2sB06CKBrm+8u15Q +XlAp71mSQ2AbL19dHeVnxXL+9AICq64tyyqifIGWuQSLCQxrMQxJpex1iTdr +Zyn1/MELNkGUNYSOqUaRBGobsjOcKLMlzzRlVhO48YbPgiblNs4DrtV1BIr8 +qGoToJx95OOPjnoCbyx2Fw5T9fKdsU+YfEzgpnMPjjygbOD3VFKghcAWKadt +ZylzDxmylNsJXN+ZrL2bcmE3451PL4HFjlls81S/HLa7FJDwiUCC6fjjAWV8 +zrfs6iCB3GmHv8RR/lA3q/ZxnEDDluvf2SmXavk++f2T6r+K63/vUf0aeeuT +m8QCgXcW30uGUBbNfZboyEnHwKe1ke+p/h8UY0od5qZjxgr7h8mUK9JI8gwf +HVssFoT0KNvGZb1/LkZHX7rb9xPUekryPqixQZmOoN8atYRaf84f+566q9Nx +taKxYza1XhnbnHYe0aGj7rZLG9Up11sYJ92hquu5d6mvfS1VD6WVH9c70dE0 +nDUfSOXDbI7kMU1XOqZXCCxOU/kxLSDP0N9FR4lJfgihPP5T/4DpfjoGqDz2 +P1RNwkCd56xrNB0dD0iUG1H59Gm93yWPODpulo3OKaHy631uuNHeE3ScdMUX +wpTfxp+OCzxLx9y29ulPJAnPre/wJ12j4z67mzHbyql8uP+IPH2Djm65mefL +/s9H1VbH9HI6nv7SMsVB+YFwf9aVGjoK9HOcuVpKzc87njVVL+hox9W8p4nK +3yxfdxiYoaMJn61rApXfFz/sGxj6RccNrwqOkFTen7cNShhbpOPW+Ij53nyq +fzWTWuaXy6Fo6Ws2hTwS4n6T2wRk5NAgyzwwm9pPfJOXBhiZyeGIyZW6FRkk +GN0szbtwQQ7rU8u8fseT8I52M3fTZTn8CrXkcBxV3wslV6Zz5fCljXFbxzFq +Pz5WlG1fIodjlyDiagzVvy55mfz35FDgthJLMYqEtUvPpyX2y+Fp0fkDLYFU +P+yKig1VZiDLvTkgnNrPqzojYuTVGRg8bHiI2EGCo1X40U5tBj59tsX5mSsJ +57RDjmgAAzltVk4JuJDAx+sfPm7HQMVbKgcS7UlYUrMnYG8YAw2UdFQFzUmY +FLLycG5goPb12LJCFRK6D9LbDzxl4OoIMmZEmeqPJ78gppWBpvkFnCpKJKRF +3pS9/paBGfNVimVrSFAb4P20MMJAXTVTnnQaCX7ky505wvLI3K6zYUKQhBFb +J7dBL3n83ErbwP6TBYMpHs6HuRRQ9W1jelMZC/xGlOlqvArIdzu0tLiUBXPm +C2NjKxVwOieD5+QN6nzIeS5hv6QCViQ6XDYrYoFaRONtj/UKWGQepXwrhwXR +3grCtg4KyLnO+rdiCnVeNB59qZRLjfdFtn7AhwWWP8Isv+iswTsuKd+yqPPq +qCd30O0YRdzSGygT+bCM+l8R4zjRsBZrt/Yey5e/BUIvFFJZP9ahZU47jfvU +TZBKKt+qo6OM7Mb/RnZXlUCmkv5KYZ/1uMPkRynvz2J4LrlB++dZFRyu9Rmu +1ioCA6mGNNW3qni+UkbIxL4Q+DkLgnfHqeHyb2F9WRcLQOaYrNF2BXVs/b7n +0evHebBcfke1/VN1zJqtoH+XuQIqTInysJ0a+GpRw+SRyGU4/FGo0YpNE0X8 +Iv60/rkIP36mOFlmamJiYLP1H6sMMFd9kmW5Xgvjvn3346f+2x78NPw916aF +LYLsPn980sBPWaP3lbc2nklkfLtdmgLMca/O7ct1UFh4cUtfXhJsYojb8BXo +YNfs5l2ZkACKsafCG3R10bNb54m5VRys89Z/KN+ri1Gdnx7it6Pg/WDf8duB +elgteOcrj1kkPMzr9JoU0UetssaZga8hMH19cU71jj4uiS3JZdM5DJ7yN5dn +2Rhgvb5zRkKsH0yuS9epmDDA6xNzzoNL98Pdwt/9M0mG2H5ov30uywt0NgbP +WSUbYnmh9XKOfC+o6h/lzTttiGttto76nfWCCpmPulbnDNGQ/zPhc9gLSjPr +T1+5bIicQwE17VpekJeSoG9eZohi8RqCx+s84WSwwNnMDkNUDFTwNW/fA66m +cmgoY4QuQV/EFER3w99Obv5GmhHG+s+HtXLthjzv8XdWckZYQRNwjl7wgK+J +NWGuikYoL5AX9O+9Bxxuti2P0DDCvxp6SdGFHnBqyxGZu2ZGOPLv3f392h5Q +6/Lmj5a/EW4dGlyRd98dVh86UaNSb4T95n+KBXPcIHVxr3ZygxFW9nn6vU10 +A45zZuRQkxFad/WN3Ahwg5HqpSV5zUbo//Ref5ypG9SyHc8U6jBCYodK89io +K7iejw2b/WKE5ae5sovRFTLrIrQfrGBi9Z/tUwd/uoAIz0HSZhsTnWJe/nA+ +7gyFG6MjJ7YzcaDRr/KyvzNoRKduTN/BRLrLb+dJV2fYMsF6072bicnOyitf +qjtD4tuZBc+DTOzNteF16HOC+YIYk8hjTKzi8bQIQifoNUzvKLrJxOucezqe +8DrCvpDCbMsyJsb9/dkj+MsBZsuqvEdZTMxVttp5cMgBhOjdc+rVTPylbVFu +2+AA1tzSUvfrmZh69J1jW7gD3Oss8up4w8Sme3GuBcP2YMV/d31oNxPPTPGr +9r21h27z5lnxd0zc5TbwVvmxPUzXfk9y72Oiwnht6FS+PazPV7v1bYSJ2lMD +net32MO93g2hKWNM3KquSfRbUeOtcgDVCSYKnOUbL9C3h70nQl4FzzCRd7NP +n50YNV59YpbYPBOTDMMmjZfZQ9yvi561v5h44LCGq8GMHazUKlHe+ZeJkUf9 +VpoO2sGVQ7Uzi4tMpBks49nRYQf/AT0Q+jQ= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4FV8YB3BLRbKErFnuXJcU2Xeu902yJlkTJYVUypKdRESKpKQksiRS +4g5RaBFaRFKUpQ0pEkLWNr/5/TXP55l5zsxz3vd8zxlij7+9NwcbG5sIOxvb +/9fZj81NjORCY+Ne/gIrrQ3GnVfEIzZ0x0GULtcBlTRZQJGXe8S7z8G6wWnF +r2dUIXTrjS7O7gK4pTTAVn0GQHBc7NxCVwXMn5Z4eeiMLXy6t8V/uqsB/lpq +bDyZugvMGCMfJrteg8jcF1+RZH9Y6NLNmOgagKiE+Hcu0THQuLG48FXBT5g6 +VOsTZJEGUp9qvu5R/gvxMc8L3w1dhFUHd93g2siJ7Geq3xQI5MI5dbO6LU7c +KHQ8QsBN5Sr0ZKrVT67kQ+9SP+NuhyJILox5ySEhiMK2vG4S+0tA7Pznk+k5 +wtj4MpFdT6gUxJWqjs8XCaOXLznru7oUJBsSY3ayhPEFb09EFqMUZCbWhqxp +FMYPDuHyQzqlIL85wKNuWBjt0p9OGruVguaSvzqfNVfhIYWxPUMFpWAbLDqo +8XwVdpdnyK9SuQUnHC2NX8+KoEuJ8WCRZhlI3m6T5GAXRQ0e3woZozIoE3ac +U18hiomFHK/PmJbB29furLOyotj/oond3akMGHbBdDsLUZwLcua5EVoGDTa5 +y9oviaKydu3fxTtl8Ndspu2FkRgaNJZ9yNEuh7SiyJt/zcTwgx1VQ2Y5MJax +Ja23E8N8d83uLtNy2PyYZ8NpbzFMCSuqmHUoh6yNtMrNqWIY0yU3PRBYDnpo +fbHlkxiWPYlXCikthyD9/F3NceLIJbEz2pifBVZ5/NPWKeKoVDehtk+QBXSu +I0ltGeI4kF/1LXUVC9o7ncmO6+LYsMb2QIckC1QCeDk/tonjiN62Qr01LBgu +CiuakpTAzEXPz0HAgh2rtoytrpTAqqv/FkoPsUAzqu7YlXsSqCbbyggLYAHP +gKIo8UQCbzfvtjcOYkFNOSco9Ehgb3hnVWM4C0Sta9LUFiXwcUJazo146v3H +GFqbrCWxm7VqcjiTBaY/fkX6fZbEypP879c8YkGExfl1j0Yl0e5CnGliIwvK +8tf3Cs9KYkdxUVv/YxaIO3ro13CvxqOqLhZpz1kwevfxHKfKahx/+q/jeQcL +0uPSgi+Fr0anr4Oe1V9YMCCi4NfEJ4UPanqs93GRIOb/UFpMTAr1e08wfJeT +sPmZy4v9NCk88l5dzncFCdWRycoCmlLoa62bvkeAhFOfJka2u0ihv73nRlUx +EjRK6nx+FEihvVKeICqQcMzIbreknjTOXyqYRxMSLNyvTOmaSGP+kf5BXlMS ++GO/xzttlsaS1YFH32wiIbsxoSjNQxrvrZqs3WFJwl2r2u/LTkpj6LcKz41b +SZhwkQv92SONjvTTzYE7SbgTGcAlOCiNbU+G7nDvIuFo9v1MlXFplDJu3J7t +QQJv37a6/RwySMzfrKnxJGGNTwpb3zoZFKo1n23dT4J7yMyp1igZjHnD8cQp +hAT5iyZSIwkyqPBhCXE3lKTm78wtrjQZfDF/R0csnITIP2vbTQpl0K9X9nxL +JAkZ8e4iNa0y+O4KyeCLJaH17NPca9KyiPwDfNMnSUivXKXeuEYWHeS+2tKT +SXB9s7uhT52639TkaJNCwrD4n8HVZrI4t49ZcimVBM48tXXn/GQxTjU+ZUU6 +CQZll24ffSiLMpMltY6XSTDtavs7/kwWo4Mj6o2zSdjCtsR812tZZLJb/pHP +IcHT3q8HvsiicME7sdErJJhFETGxS2n4NS9n1LmAhBaBe1f1eGiYrq7LWneV +hK2Fzs8m+GkYlNp86zdltxfJgrvFaeggMuCScY2EANnZqxuUaPjBzCq6+DoJ +M5VpzxZUaRjmzifrXULNh4XSGKlFQ7PqsX+yN0hICPTQoRvTsEBdPur0TRKy +Gp8/47Cj4Tcxv2DzMhKafHLHGkNpqHc2eVC3kgTLP/pCR6JomJ+mUNJMuS2t +U0crlobWY8W3XW6T0FOzPLbwJA0/zRUV+FWRML4iWCghm4azfHUjEXdICMrj +12Xm03CtQsnsDOV5rRK3mWs03PmCtsX/LjWf7h8LvctpuHiKZ2B7DQniLAtd +swYaqqdHlfHXkZBj+tnt3xMabo3yXhNCmd4THVvdQkOeocKJbsrrOSqbFd7Q +0FLzQmjmPRIqLtiMf+yh4eGLcVrTlPWUhoUufqRhdYL+Jpv7JJg4Su/gGqbh +5Z643XOUnw7fiX04SsOT1Y5+Fg+o9RRtfy1skobeKwLaL1DeVnRifOgXDU1a +uS8qPSThvQFdOG+Rhi0Xnv8JpLzn5T1dlyUEZma411ZRPjg/GfuMj8Ds7BTQ +rqf6I3Cv6FchAsn24vEQytwjvTc5xQnU/V10rJLy2z22GwhpAvWf7lwYo3zt +XeNbYzqB/pV5zvKPSAh21Du4Yw2BOYKbsrZTNnlRyh6pTCD7MuLxKcofH2Qo +V+kQaOT2vuMz5VJdnobXhgReWH2wZkUDVX/W0W0TSOA/1fMn1ShbrP05ymdG +4Jp2lU32lEULfOKUrAm8ziE2FkB5UPK9mOVWAj2zFeNSKFekb72114nAKcCl +1yjH8j42Oe5KIMdOw7BayrYJ+t35uwhsUp3vbqUs8+/WoYdeBFrUOym9pzwa +Suf8sJ/AsX5N/2HKtT8uZP7yI7BOI+jaJOWkfStUxIMJfCM50zZH2bk/plE7 +gsBXLZdHf1FmuE67OBwlkI5Wi/976vW+8YB4AmMMBrnmKddbf4hPTSJww6Yt +XFOUU5vsJEpPE9hOHvr3//t2MJ+UNZ8jcOGi4vj/37Ou2sB06CKBrm+8u15Q +XlAp71mSQ2AbL19dHeVnxXL+9AICq64tyyqifIGWuQSLCQxrMQxJpex1iTdr +Zyn1/MELNkGUNYSOqUaRBGobsjOcKLMlzzRlVhO48YbPgiblNs4DrtV1BIr8 +qGoToJx95OOPjnoCbyx2Fw5T9fKdsU+YfEzgpnMPjjygbOD3VFKghcAWKadt +ZylzDxmylNsJXN+ZrL2bcmE3451PL4HFjlls81S/HLa7FJDwiUCC6fjjAWV8 +zrfs6iCB3GmHv8RR/lA3q/ZxnEDDluvf2SmXavk++f2T6r+K63/vUf0aeeuT +m8QCgXcW30uGUBbNfZboyEnHwKe1ke+p/h8UY0od5qZjxgr7h8mUK9JI8gwf +HVssFoT0KNvGZb1/LkZHX7rb9xPUekryPqixQZmOoN8atYRaf84f+566q9Nx +taKxYza1XhnbnHYe0aGj7rZLG9Up11sYJ92hquu5d6mvfS1VD6WVH9c70dE0 +nDUfSOXDbI7kMU1XOqZXCCxOU/kxLSDP0N9FR4lJfgihPP5T/4DpfjoGqDz2 +P1RNwkCd56xrNB0dD0iUG1H59Gm93yWPODpulo3OKaHy631uuNHeE3ScdMUX +wpTfxp+OCzxLx9y29ulPJAnPre/wJ12j4z67mzHbyql8uP+IPH2Djm65mefL +/s9H1VbH9HI6nv7SMsVB+YFwf9aVGjoK9HOcuVpKzc87njVVL+hox9W8p4nK +3yxfdxiYoaMJn61rApXfFz/sGxj6RccNrwqOkFTen7cNShhbpOPW+Ij53nyq +fzWTWuaXy6Fo6Ws2hTwS4n6T2wRk5NAgyzwwm9pPfJOXBhiZyeGIyZW6FRkk +GN0szbtwQQ7rU8u8fseT8I52M3fTZTn8CrXkcBxV3wslV6Zz5fCljXFbxzFq +Pz5WlG1fIodjlyDiagzVvy55mfz35FDgthJLMYqEtUvPpyX2y+Fp0fkDLYFU +P+yKig1VZiDLvTkgnNrPqzojYuTVGRg8bHiI2EGCo1X40U5tBj59tsX5mSsJ +57RDjmgAAzltVk4JuJDAx+sfPm7HQMVbKgcS7UlYUrMnYG8YAw2UdFQFzUmY +FLLycG5goPb12LJCFRK6D9LbDzxl4OoIMmZEmeqPJ78gppWBpvkFnCpKJKRF +3pS9/paBGfNVimVrSFAb4P20MMJAXTVTnnQaCX7ky505wvLI3K6zYUKQhBFb +J7dBL3n83ErbwP6TBYMpHs6HuRRQ9W1jelMZC/xGlOlqvArIdzu0tLiUBXPm +C2NjKxVwOieD5+QN6nzIeS5hv6QCViQ6XDYrYoFaRONtj/UKWGQepXwrhwXR +3grCtg4KyLnO+rdiCnVeNB59qZRLjfdFtn7AhwWWP8Isv+iswTsuKd+yqPPq +qCd30O0YRdzSGygT+bCM+l8R4zjRsBZrt/Yey5e/BUIvFFJZP9ahZU47jfvU +TZBKKt+qo6OM7Mb/RnZXlUCmkv5KYZ/1uMPkRynvz2J4LrlB++dZFRyu9Rmu +1ioCA6mGNNW3qni+UkbIxL4Q+DkLgnfHqeHyb2F9WRcLQOaYrNF2BXVs/b7n +0evHebBcfke1/VN1zJqtoH+XuQIqTInysJ0a+GpRw+SRyGU4/FGo0YpNE0X8 +Iv60/rkIP36mOFlmamJiYLP1H6sMMFd9kmW5Xgvjvn3346f+2x78NPw916aF +LYLsPn980sBPWaP3lbc2nklkfLtdmgLMca/O7ct1UFh4cUtfXhJsYojb8BXo +YNfs5l2ZkACKsafCG3R10bNb54m5VRys89Z/KN+ri1Gdnx7it6Pg/WDf8duB +elgteOcrj1kkPMzr9JoU0UetssaZga8hMH19cU71jj4uiS3JZdM5DJ7yN5dn +2Rhgvb5zRkKsH0yuS9epmDDA6xNzzoNL98Pdwt/9M0mG2H5ov30uywt0NgbP +WSUbYnmh9XKOfC+o6h/lzTttiGttto76nfWCCpmPulbnDNGQ/zPhc9gLSjPr +T1+5bIicQwE17VpekJeSoG9eZohi8RqCx+s84WSwwNnMDkNUDFTwNW/fA66m +cmgoY4QuQV/EFER3w99Obv5GmhHG+s+HtXLthjzv8XdWckZYQRNwjl7wgK+J +NWGuikYoL5AX9O+9Bxxuti2P0DDCvxp6SdGFHnBqyxGZu2ZGOPLv3f392h5Q +6/Lmj5a/EW4dGlyRd98dVh86UaNSb4T95n+KBXPcIHVxr3ZygxFW9nn6vU10 +A45zZuRQkxFad/WN3Ahwg5HqpSV5zUbo//Ref5ypG9SyHc8U6jBCYodK89io +K7iejw2b/WKE5ae5sovRFTLrIrQfrGBi9Z/tUwd/uoAIz0HSZhsTnWJe/nA+ +7gyFG6MjJ7YzcaDRr/KyvzNoRKduTN/BRLrLb+dJV2fYMsF6072bicnOyitf +qjtD4tuZBc+DTOzNteF16HOC+YIYk8hjTKzi8bQIQifoNUzvKLrJxOucezqe +8DrCvpDCbMsyJsb9/dkj+MsBZsuqvEdZTMxVttp5cMgBhOjdc+rVTPylbVFu +2+AA1tzSUvfrmZh69J1jW7gD3Oss8up4w8Sme3GuBcP2YMV/d31oNxPPTPGr +9r21h27z5lnxd0zc5TbwVvmxPUzXfk9y72Oiwnht6FS+PazPV7v1bYSJ2lMD +net32MO93g2hKWNM3KquSfRbUeOtcgDVCSYKnOUbL9C3h70nQl4FzzCRd7NP +n50YNV59YpbYPBOTDMMmjZfZQ9yvi561v5h44LCGq8GMHazUKlHe+ZeJkUf9 +VpoO2sGVQ7Uzi4tMpBks49nRYQf/AT0Q+jQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06938141567866343}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06938141567866343}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4FV8YB3BLRbKErFnuXJcU2Xeu902yJlkTJYVUypKdRESKpKQksiRS +4g5RaBFaRFKUpQ0pEkLWNr/5/TXP55l5zsxz3vd8zxlij7+9NwcbG5sIOxvb +/9fZj81NjORCY+Ne/gIrrQ3GnVfEIzZ0x0GULtcBlTRZQJGXe8S7z8G6wWnF +r2dUIXTrjS7O7gK4pTTAVn0GQHBc7NxCVwXMn5Z4eeiMLXy6t8V/uqsB/lpq +bDyZugvMGCMfJrteg8jcF1+RZH9Y6NLNmOgagKiE+Hcu0THQuLG48FXBT5g6 +VOsTZJEGUp9qvu5R/gvxMc8L3w1dhFUHd93g2siJ7Geq3xQI5MI5dbO6LU7c +KHQ8QsBN5Sr0ZKrVT67kQ+9SP+NuhyJILox5ySEhiMK2vG4S+0tA7Pznk+k5 +wtj4MpFdT6gUxJWqjs8XCaOXLznru7oUJBsSY3ayhPEFb09EFqMUZCbWhqxp +FMYPDuHyQzqlIL85wKNuWBjt0p9OGruVguaSvzqfNVfhIYWxPUMFpWAbLDqo +8XwVdpdnyK9SuQUnHC2NX8+KoEuJ8WCRZhlI3m6T5GAXRQ0e3woZozIoE3ac +U18hiomFHK/PmJbB29furLOyotj/oond3akMGHbBdDsLUZwLcua5EVoGDTa5 +y9oviaKydu3fxTtl8Ndspu2FkRgaNJZ9yNEuh7SiyJt/zcTwgx1VQ2Y5MJax +Ja23E8N8d83uLtNy2PyYZ8NpbzFMCSuqmHUoh6yNtMrNqWIY0yU3PRBYDnpo +fbHlkxiWPYlXCikthyD9/F3NceLIJbEz2pifBVZ5/NPWKeKoVDehtk+QBXSu +I0ltGeI4kF/1LXUVC9o7ncmO6+LYsMb2QIckC1QCeDk/tonjiN62Qr01LBgu +CiuakpTAzEXPz0HAgh2rtoytrpTAqqv/FkoPsUAzqu7YlXsSqCbbyggLYAHP +gKIo8UQCbzfvtjcOYkFNOSco9Ehgb3hnVWM4C0Sta9LUFiXwcUJazo146v3H +GFqbrCWxm7VqcjiTBaY/fkX6fZbEypP879c8YkGExfl1j0Yl0e5CnGliIwvK +8tf3Cs9KYkdxUVv/YxaIO3ro13CvxqOqLhZpz1kwevfxHKfKahx/+q/jeQcL +0uPSgi+Fr0anr4Oe1V9YMCCi4NfEJ4UPanqs93GRIOb/UFpMTAr1e08wfJeT +sPmZy4v9NCk88l5dzncFCdWRycoCmlLoa62bvkeAhFOfJka2u0ihv73nRlUx +EjRK6nx+FEihvVKeICqQcMzIbreknjTOXyqYRxMSLNyvTOmaSGP+kf5BXlMS ++GO/xzttlsaS1YFH32wiIbsxoSjNQxrvrZqs3WFJwl2r2u/LTkpj6LcKz41b +SZhwkQv92SONjvTTzYE7SbgTGcAlOCiNbU+G7nDvIuFo9v1MlXFplDJu3J7t +QQJv37a6/RwySMzfrKnxJGGNTwpb3zoZFKo1n23dT4J7yMyp1igZjHnD8cQp +hAT5iyZSIwkyqPBhCXE3lKTm78wtrjQZfDF/R0csnITIP2vbTQpl0K9X9nxL +JAkZ8e4iNa0y+O4KyeCLJaH17NPca9KyiPwDfNMnSUivXKXeuEYWHeS+2tKT +SXB9s7uhT52639TkaJNCwrD4n8HVZrI4t49ZcimVBM48tXXn/GQxTjU+ZUU6 +CQZll24ffSiLMpMltY6XSTDtavs7/kwWo4Mj6o2zSdjCtsR812tZZLJb/pHP +IcHT3q8HvsiicME7sdErJJhFETGxS2n4NS9n1LmAhBaBe1f1eGiYrq7LWneV +hK2Fzs8m+GkYlNp86zdltxfJgrvFaeggMuCScY2EANnZqxuUaPjBzCq6+DoJ +M5VpzxZUaRjmzifrXULNh4XSGKlFQ7PqsX+yN0hICPTQoRvTsEBdPur0TRKy +Gp8/47Cj4Tcxv2DzMhKafHLHGkNpqHc2eVC3kgTLP/pCR6JomJ+mUNJMuS2t +U0crlobWY8W3XW6T0FOzPLbwJA0/zRUV+FWRML4iWCghm4azfHUjEXdICMrj +12Xm03CtQsnsDOV5rRK3mWs03PmCtsX/LjWf7h8LvctpuHiKZ2B7DQniLAtd +swYaqqdHlfHXkZBj+tnt3xMabo3yXhNCmd4THVvdQkOeocKJbsrrOSqbFd7Q +0FLzQmjmPRIqLtiMf+yh4eGLcVrTlPWUhoUufqRhdYL+Jpv7JJg4Su/gGqbh +5Z643XOUnw7fiX04SsOT1Y5+Fg+o9RRtfy1skobeKwLaL1DeVnRifOgXDU1a +uS8qPSThvQFdOG+Rhi0Xnv8JpLzn5T1dlyUEZma411ZRPjg/GfuMj8Ds7BTQ +rqf6I3Cv6FchAsn24vEQytwjvTc5xQnU/V10rJLy2z22GwhpAvWf7lwYo3zt +XeNbYzqB/pV5zvKPSAh21Du4Yw2BOYKbsrZTNnlRyh6pTCD7MuLxKcofH2Qo +V+kQaOT2vuMz5VJdnobXhgReWH2wZkUDVX/W0W0TSOA/1fMn1ShbrP05ymdG +4Jp2lU32lEULfOKUrAm8ziE2FkB5UPK9mOVWAj2zFeNSKFekb72114nAKcCl +1yjH8j42Oe5KIMdOw7BayrYJ+t35uwhsUp3vbqUs8+/WoYdeBFrUOym9pzwa +Suf8sJ/AsX5N/2HKtT8uZP7yI7BOI+jaJOWkfStUxIMJfCM50zZH2bk/plE7 +gsBXLZdHf1FmuE67OBwlkI5Wi/976vW+8YB4AmMMBrnmKddbf4hPTSJww6Yt +XFOUU5vsJEpPE9hOHvr3//t2MJ+UNZ8jcOGi4vj/37Ou2sB06CKBrm+8u15Q +XlAp71mSQ2AbL19dHeVnxXL+9AICq64tyyqifIGWuQSLCQxrMQxJpex1iTdr +Zyn1/MELNkGUNYSOqUaRBGobsjOcKLMlzzRlVhO48YbPgiblNs4DrtV1BIr8 +qGoToJx95OOPjnoCbyx2Fw5T9fKdsU+YfEzgpnMPjjygbOD3VFKghcAWKadt +ZylzDxmylNsJXN+ZrL2bcmE3451PL4HFjlls81S/HLa7FJDwiUCC6fjjAWV8 +zrfs6iCB3GmHv8RR/lA3q/ZxnEDDluvf2SmXavk++f2T6r+K63/vUf0aeeuT +m8QCgXcW30uGUBbNfZboyEnHwKe1ke+p/h8UY0od5qZjxgr7h8mUK9JI8gwf +HVssFoT0KNvGZb1/LkZHX7rb9xPUekryPqixQZmOoN8atYRaf84f+566q9Nx +taKxYza1XhnbnHYe0aGj7rZLG9Up11sYJ92hquu5d6mvfS1VD6WVH9c70dE0 +nDUfSOXDbI7kMU1XOqZXCCxOU/kxLSDP0N9FR4lJfgihPP5T/4DpfjoGqDz2 +P1RNwkCd56xrNB0dD0iUG1H59Gm93yWPODpulo3OKaHy631uuNHeE3ScdMUX +wpTfxp+OCzxLx9y29ulPJAnPre/wJ12j4z67mzHbyql8uP+IPH2Djm65mefL +/s9H1VbH9HI6nv7SMsVB+YFwf9aVGjoK9HOcuVpKzc87njVVL+hox9W8p4nK +3yxfdxiYoaMJn61rApXfFz/sGxj6RccNrwqOkFTen7cNShhbpOPW+Ij53nyq +fzWTWuaXy6Fo6Ws2hTwS4n6T2wRk5NAgyzwwm9pPfJOXBhiZyeGIyZW6FRkk +GN0szbtwQQ7rU8u8fseT8I52M3fTZTn8CrXkcBxV3wslV6Zz5fCljXFbxzFq +Pz5WlG1fIodjlyDiagzVvy55mfz35FDgthJLMYqEtUvPpyX2y+Fp0fkDLYFU +P+yKig1VZiDLvTkgnNrPqzojYuTVGRg8bHiI2EGCo1X40U5tBj59tsX5mSsJ +57RDjmgAAzltVk4JuJDAx+sfPm7HQMVbKgcS7UlYUrMnYG8YAw2UdFQFzUmY +FLLycG5goPb12LJCFRK6D9LbDzxl4OoIMmZEmeqPJ78gppWBpvkFnCpKJKRF +3pS9/paBGfNVimVrSFAb4P20MMJAXTVTnnQaCX7ky505wvLI3K6zYUKQhBFb +J7dBL3n83ErbwP6TBYMpHs6HuRRQ9W1jelMZC/xGlOlqvArIdzu0tLiUBXPm +C2NjKxVwOieD5+QN6nzIeS5hv6QCViQ6XDYrYoFaRONtj/UKWGQepXwrhwXR +3grCtg4KyLnO+rdiCnVeNB59qZRLjfdFtn7AhwWWP8Isv+iswTsuKd+yqPPq +qCd30O0YRdzSGygT+bCM+l8R4zjRsBZrt/Yey5e/BUIvFFJZP9ahZU47jfvU +TZBKKt+qo6OM7Mb/RnZXlUCmkv5KYZ/1uMPkRynvz2J4LrlB++dZFRyu9Rmu +1ioCA6mGNNW3qni+UkbIxL4Q+DkLgnfHqeHyb2F9WRcLQOaYrNF2BXVs/b7n +0evHebBcfke1/VN1zJqtoH+XuQIqTInysJ0a+GpRw+SRyGU4/FGo0YpNE0X8 +Iv60/rkIP36mOFlmamJiYLP1H6sMMFd9kmW5Xgvjvn3346f+2x78NPw916aF +LYLsPn980sBPWaP3lbc2nklkfLtdmgLMca/O7ct1UFh4cUtfXhJsYojb8BXo +YNfs5l2ZkACKsafCG3R10bNb54m5VRys89Z/KN+ri1Gdnx7it6Pg/WDf8duB +elgteOcrj1kkPMzr9JoU0UetssaZga8hMH19cU71jj4uiS3JZdM5DJ7yN5dn +2Rhgvb5zRkKsH0yuS9epmDDA6xNzzoNL98Pdwt/9M0mG2H5ov30uywt0NgbP +WSUbYnmh9XKOfC+o6h/lzTttiGttto76nfWCCpmPulbnDNGQ/zPhc9gLSjPr +T1+5bIicQwE17VpekJeSoG9eZohi8RqCx+s84WSwwNnMDkNUDFTwNW/fA66m +cmgoY4QuQV/EFER3w99Obv5GmhHG+s+HtXLthjzv8XdWckZYQRNwjl7wgK+J +NWGuikYoL5AX9O+9Bxxuti2P0DDCvxp6SdGFHnBqyxGZu2ZGOPLv3f392h5Q +6/Lmj5a/EW4dGlyRd98dVh86UaNSb4T95n+KBXPcIHVxr3ZygxFW9nn6vU10 +A45zZuRQkxFad/WN3Ahwg5HqpSV5zUbo//Ref5ypG9SyHc8U6jBCYodK89io +K7iejw2b/WKE5ae5sovRFTLrIrQfrGBi9Z/tUwd/uoAIz0HSZhsTnWJe/nA+ +7gyFG6MjJ7YzcaDRr/KyvzNoRKduTN/BRLrLb+dJV2fYMsF6072bicnOyitf +qjtD4tuZBc+DTOzNteF16HOC+YIYk8hjTKzi8bQIQifoNUzvKLrJxOucezqe +8DrCvpDCbMsyJsb9/dkj+MsBZsuqvEdZTMxVttp5cMgBhOjdc+rVTPylbVFu +2+AA1tzSUvfrmZh69J1jW7gD3Oss8up4w8Sme3GuBcP2YMV/d31oNxPPTPGr +9r21h27z5lnxd0zc5TbwVvmxPUzXfk9y72Oiwnht6FS+PazPV7v1bYSJ2lMD +net32MO93g2hKWNM3KquSfRbUeOtcgDVCSYKnOUbL9C3h70nQl4FzzCRd7NP +n50YNV59YpbYPBOTDMMmjZfZQ9yvi561v5h44LCGq8GMHazUKlHe+ZeJkUf9 +VpoO2sGVQ7Uzi4tMpBks49nRYQf/AT0Q+jQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06938141567866343}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06938141567866343}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994254429197847*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"7eeac140-4e6b-4608-ae3d-23e810ea3aea"] +}, Open ]], Cell[CellGroupData[{ @@ -12443,18 +14895,75 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], - RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ -UUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[142]:=",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"2b38d1a8-4a7e-7b4f-8cdd-5298fced63d9"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.150138650879285`*^-162\\\", \ +RowBox[{\\\"505518991860510123640143147290826802026\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"71\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9512072804761600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 73, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99425442925633*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"7be9e2e9-a4fc-4d2c-bba0-30718166e928"], -Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.1150135592365783`*^-165\\\", \ +RowBox[{\\\"164243120455479739170682508554789627978\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"75\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4724542670438400000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 74, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994254429265582*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"4b317836-7048-40db-9f09-d52559cfc2e1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.375425804821119`*^-168\\\", \ +RowBox[{\\\"552513857212233842570175958778312308519\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"78\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3361543354777600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 75, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942544292746058`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"10e64ccc-abd6-48c9-bf24-d692f043ad0d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 142, 76, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994254429283616*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"526cd230-1f2a-423d-823b-1e34e8052e44"], + +Cell[BoxData["10.667519074822593`"], "Output", + CellChangeTimes->{3.994254492352014*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"9821587a-116c-4122-995a-8b233d5e1bc4"] }, Open ]], Cell[CellGroupData[{ @@ -12521,27 +15030,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850818889292*^9, - 3.9918508230677433`*^9}},ExpressionUUID->"d2148290-3e90-8347-bddd-\ -5dd8190b0268"], + CellChangeTimes->{{3.991850818889292*^9, 3.9918508230677433`*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"905b237c-0e51-ab4b-895d-05994c6f1d5f"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6194532314661395`*^-206\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 77, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994254492406766*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"3574a68a-0e5f-4d86-ad98-19ab88fe4b90"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"7ad8c79e-9570-a44d-b593-07aa87056e21"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.406501633978389`*^-211\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 78, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994254492416095*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"70b8a188-0793-4890-adff-4214fdc96441"], -Cell[BoxData["0.576602516746911`"], "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.165537822782164`*^-216\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 79, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994254492424572*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"e78821b5-263f-4643-9a30-2d651dab9b87"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 80, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994254492434033*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"68179919-4314-4cdf-80b1-95dd3ad5d250"], + +Cell[BoxData["0.9183467779170481`"], "Output", + CellChangeTimes->{3.994254501430173*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"9e578dfd-077c-4d25-a593-bb742e08fd41"] }, Open ]], Cell[CellGroupData[{ @@ -12562,8 +15119,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -12608,27 +15164,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850826380268*^9, - 3.991850829169306*^9}},ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-\ -98d71f8a8458"], + CellChangeTimes->{{3.991850826380268*^9, 3.991850829169306*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"c516c31a-74b4-f24d-a16a-678221cde87e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6194532314661395`*^-206\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 81, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994254501489884*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"5ce7c496-89c2-404f-94b1-cf818930fc72"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"5c50b555-9ebe-f94d-801f-34634555f622"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.406501633978389`*^-211\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 82, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994254501498869*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"9afe6cb7-da22-4d9f-b052-cd63f7b6368d"], -Cell[BoxData["3.32141991539404`"], "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.165537822782164`*^-216\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 83, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942545015069447`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"2201975e-3e41-4e22-8803-e7637a4efa38"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 84, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994254501515382*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"6152d7d1-dcd3-4a21-b729-2aeea509979b"], + +Cell[BoxData["32.800644478314624`"], "Output", + CellChangeTimes->{3.994254510298093*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"61cef55d-42a2-4da1-bdc4-218bbc934ed2"] }, Open ]], Cell[CellGroupData[{ @@ -12649,8 +15253,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -12695,27 +15298,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918508329145336`*^9, - 3.991850837197098*^9}},ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-\ -57c1fe1d0585"], + CellChangeTimes->{{3.9918508329145336`*^9, 3.991850837197098*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"7ca591cf-a5ce-ce41-8101-8edfca50e890"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6194532314661395`*^-206\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 85, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994254510341078*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"3c717312-10fc-4e5c-bcd2-7889af7c8512"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"cbafd11a-4be0-b541-81e4-e62191ae7695"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.406501633978389`*^-211\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 86, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994254510351397*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"cbc5825a-7525-4bc8-a408-2bba30ea9d0d"], -Cell[BoxData["18.419619005098298`"], "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.165537822782164`*^-216\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8005054611040868761600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 87, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994254510359617*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"9fdc4598-cab1-42af-8f82-e6dcafb4eee9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 88, 31387618071697566000, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99425451036695*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"6399cd43-c66f-43fe-ad59-a340c107f765"], + +Cell[BoxData["5.684928438911462`"], "Output", + CellChangeTimes->{3.9942545169219303`*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"1afe9600-b290-4972-be76-dbc5fd4e2b42"] }, Open ]], Cell[CellGroupData[{ @@ -12724,20 +15375,24 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918508397421246`*^9, - 3.9918508449867363`*^9}},ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-\ -1ca469b254bd"], + CellChangeTimes->{{3.9918508397421246`*^9, 3.9918508449867363`*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], -Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] +Cell[BoxData["0.06725166128760912`"], "Output", + CellChangeTimes->{3.994254516967663*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"4e06efd1-0f14-4d18-8243-a680a0dd6173"] }, Open ]], Cell[BoxData[ RowBox[{"NotebookSave", "[", "]"}]], "Input", - CellChangeTimes->{{3.994082741381258*^9, - 3.99408274352462*^9}},ExpressionUUID->"73a1a5fc-e75f-4850-90c9-\ -3c23108da707"] + CellChangeTimes->{{3.994082741381258*^9, 3.99408274352462*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"73a1a5fc-e75f-4850-90c9-3c23108da707"] }, -WindowSize->{714, 288}, +Evaluator->"6", +WindowSize->{714, 170.25}, WindowMargins->{{Automatic, 3}, {3, Automatic}}, CellContext->Notebook, FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", @@ -12756,607 +15411,639 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 305, 6, 36, "Input",ExpressionUUID->"c38f06bd-74d1-44ad-9faf-19b29d111ef0"], -Cell[884, 30, 278, 5, 41, "Output",ExpressionUUID->"5af16a9c-2a96-4996-866b-c621ccc0e90e"] +Cell[576, 22, 300, 5, 36, "Input",ExpressionUUID->"c38f06bd-74d1-44ad-9faf-19b29d111ef0"], +Cell[879, 29, 299, 5, 41, "Output",ExpressionUUID->"9f8113a9-fe86-4a89-bd34-a64b94d9bf07"] }, Open ]], Cell[CellGroupData[{ -Cell[1199, 40, 253, 5, 36, "Input",ExpressionUUID->"afd78b5b-f0d9-4cb8-b492-13e48b79319d"], -Cell[1455, 47, 275, 5, 41, "Output",ExpressionUUID->"ec688a6a-93c6-4888-ab9d-b2dcccb020d5"] +Cell[1215, 39, 248, 4, 36, "Input",ExpressionUUID->"afd78b5b-f0d9-4cb8-b492-13e48b79319d"], +Cell[1466, 45, 296, 5, 41, "Output",ExpressionUUID->"c22728a5-c6db-48b2-9435-d55ad73cb433"] }, Open ]], Cell[CellGroupData[{ -Cell[1767, 57, 231, 5, 36, "Input",ExpressionUUID->"79ae24c9-993a-47cf-bcff-b044b9053fef"], -Cell[2001, 64, 278, 5, 41, "Output",ExpressionUUID->"8922d22d-b530-4d90-9156-e7af0d47766f"] +Cell[1799, 55, 226, 4, 36, "Input",ExpressionUUID->"79ae24c9-993a-47cf-bcff-b044b9053fef"], +Cell[2028, 61, 301, 5, 41, "Output",ExpressionUUID->"64ca2e40-5fe2-4af9-a362-102d7a8381fb"] }, Open ]], Cell[CellGroupData[{ -Cell[2316, 74, 180, 4, 55, "Input",ExpressionUUID->"16fbc78b-e4af-4dde-bf1f-cee992cb730c"], -Cell[2499, 80, 276, 5, 62, "Output",ExpressionUUID->"42585906-fcc8-410c-81d8-c50db5003892"] +Cell[2366, 71, 175, 3, 36, "Input",ExpressionUUID->"16fbc78b-e4af-4dde-bf1f-cee992cb730c"], +Cell[2544, 76, 299, 5, 41, "Output",ExpressionUUID->"bd7a9a53-f2dc-4426-8ec1-2ab444cc917d"] }, Open ]], Cell[CellGroupData[{ -Cell[2812, 90, 262, 8, 81, "Input",ExpressionUUID->"c29af457-6672-42d8-be46-70931c6b097e"], -Cell[3077, 100, 279, 5, 62, "Output",ExpressionUUID->"efa8857f-5048-481d-8bd8-29fcf9b0a485"] +Cell[2880, 86, 257, 7, 54, "Input",ExpressionUUID->"c29af457-6672-42d8-be46-70931c6b097e"], +Cell[3140, 95, 300, 5, 41, "Output",ExpressionUUID->"0aedb4a1-7ece-4616-8440-032611302c54"] }, Open ]], Cell[CellGroupData[{ -Cell[3393, 110, 136, 3, 55, "Input",ExpressionUUID->"f35350ce-e762-4333-b2ea-e4a3fd9c070e"], -Cell[3532, 115, 280, 5, 62, "Output",ExpressionUUID->"93922128-b6ef-4b00-88ce-0b8b4f8da024"] +Cell[3477, 105, 131, 2, 36, "Input",ExpressionUUID->"f35350ce-e762-4333-b2ea-e4a3fd9c070e"], +Cell[3611, 109, 303, 5, 41, "Output",ExpressionUUID->"f5acdc3f-a771-4317-8e46-90f18f0029bd"] }, Open ]], Cell[CellGroupData[{ -Cell[3849, 125, 281, 7, 55, "Input",ExpressionUUID->"aa2e889f-9ffd-427b-90f9-c5320db7dde4"], -Cell[4133, 134, 292, 5, 62, "Output",ExpressionUUID->"b517e449-46ec-4753-ae1f-32aa5a514573"] +Cell[3951, 119, 276, 6, 36, "Input",ExpressionUUID->"aa2e889f-9ffd-427b-90f9-c5320db7dde4"], +Cell[4230, 127, 313, 5, 41, "Output",ExpressionUUID->"fd4618df-4fbc-4449-bde2-1cc8737d3298"] }, Open ]], Cell[CellGroupData[{ -Cell[4462, 144, 262, 8, 55, "Input",ExpressionUUID->"4dcde000-4a52-43da-bd3b-b04d1f3d36dc"], -Cell[4727, 154, 280, 5, 62, "Output",ExpressionUUID->"29bb91f9-b225-4959-8da8-3114085f5143"] +Cell[4580, 137, 257, 7, 36, "Input",ExpressionUUID->"4dcde000-4a52-43da-bd3b-b04d1f3d36dc"], +Cell[4840, 146, 303, 5, 41, "Output",ExpressionUUID->"1a9b54d4-2341-49cc-81a9-36a0724ff126"] }, Open ]], Cell[CellGroupData[{ -Cell[5044, 164, 331, 7, 55, "Input",ExpressionUUID->"b577b86a-7023-44fc-a7e0-88ec893185a3"], -Cell[5378, 173, 260, 5, 62, "Output",ExpressionUUID->"75ad98fe-a454-4dd2-973a-60d624ab42fa"] +Cell[5180, 156, 326, 6, 36, "Input",ExpressionUUID->"b577b86a-7023-44fc-a7e0-88ec893185a3"], +Cell[5509, 164, 279, 4, 41, "Output",ExpressionUUID->"8aaa188e-8227-4e35-a87b-b9790de8506b"] }, Open ]], Cell[CellGroupData[{ -Cell[5675, 183, 229, 5, 55, "Input",ExpressionUUID->"9e64d07f-edc3-4463-ba28-a64831c4d3e4"], -Cell[5907, 190, 260, 5, 62, "Output",ExpressionUUID->"43fd0693-5729-4d5c-bac2-3fbfbc79c7fe"] +Cell[5825, 173, 225, 4, 36, "Input",ExpressionUUID->"9e64d07f-edc3-4463-ba28-a64831c4d3e4"], +Cell[6053, 179, 278, 4, 41, "Output",ExpressionUUID->"01633d3a-273c-488e-865c-b8115e6cb2f8"] }, Open ]], Cell[CellGroupData[{ -Cell[6204, 200, 133, 3, 55, "Input",ExpressionUUID->"0c951bb0-c9ce-4ab7-a821-851d3ea73447"], -Cell[6340, 205, 276, 5, 62, "Output",ExpressionUUID->"ab77ee4f-d3a7-4bb3-b66d-ee01423138df"] +Cell[6368, 188, 129, 2, 36, "Input",ExpressionUUID->"0c951bb0-c9ce-4ab7-a821-851d3ea73447"], +Cell[6500, 192, 298, 5, 41, "Output",ExpressionUUID->"7c188179-29df-40f3-a8b9-315e3c5225e6"] }, Open ]], Cell[CellGroupData[{ -Cell[6653, 215, 133, 3, 55, "Input",ExpressionUUID->"f5d9f999-f620-45c8-9bb7-007979080bea"], -Cell[6789, 220, 278, 5, 62, "Output",ExpressionUUID->"033bf110-6df8-4a56-bb2d-dadbdd45a65b"] +Cell[6835, 202, 129, 2, 36, "Input",ExpressionUUID->"f5d9f999-f620-45c8-9bb7-007979080bea"], +Cell[6967, 206, 300, 5, 41, "Output",ExpressionUUID->"f2229256-5cb7-41e3-bab2-3af613e4a2ff"] }, Open ]], Cell[CellGroupData[{ -Cell[7104, 230, 561, 20, 148, "Input",ExpressionUUID->"a1dcb2c8-b8a6-435b-afe2-4d2b1ba86bb2"], -Cell[7668, 252, 296, 5, 62, "Output",ExpressionUUID->"fa7f438b-24c2-4b33-92b3-77e4f79e9c70"] +Cell[7304, 216, 557, 19, 100, "Input",ExpressionUUID->"a1dcb2c8-b8a6-435b-afe2-4d2b1ba86bb2"], +Cell[7864, 237, 318, 5, 41, "Output",ExpressionUUID->"cdd424e4-d989-4387-b408-74462d1c51a6"] }, Open ]], Cell[CellGroupData[{ -Cell[8001, 262, 561, 20, 148, "Input",ExpressionUUID->"f32a042b-a381-4268-99ce-efc338059031"], -Cell[8565, 284, 292, 5, 62, "Output",ExpressionUUID->"247d7e07-f0e4-41f6-acd3-0898d8c2b85d"] +Cell[8219, 247, 557, 19, 100, "Input",ExpressionUUID->"f32a042b-a381-4268-99ce-efc338059031"], +Cell[8779, 268, 314, 5, 41, "Output",ExpressionUUID->"634850f4-dae4-4312-9e49-1c3838dd1eac"] }, Open ]], Cell[CellGroupData[{ -Cell[8894, 294, 1592, 51, 211, "Input",ExpressionUUID->"b14b50fb-38cd-4662-84ba-67a97264afa3"], -Cell[10489, 347, 292, 5, 62, "Output",ExpressionUUID->"4fdc402e-9c56-400a-ab65-b16577f389c2"] +Cell[9130, 278, 1588, 50, 215, "Input",ExpressionUUID->"b14b50fb-38cd-4662-84ba-67a97264afa3"], +Cell[10721, 330, 314, 5, 41, "Output",ExpressionUUID->"a590f0f1-2fe7-48d4-b06e-2cabfb23416f"] }, Open ]], Cell[CellGroupData[{ -Cell[10818, 357, 1426, 47, 211, "Input",ExpressionUUID->"8016f16a-16e8-4d16-bc4c-923039b7ce67"], -Cell[12247, 406, 308, 6, 62, "Output",ExpressionUUID->"2fd6eb81-f46e-47c2-a81e-28bd02ad1c2f"] +Cell[11072, 340, 1422, 46, 215, "Input",ExpressionUUID->"8016f16a-16e8-4d16-bc4c-923039b7ce67"], +Cell[12497, 388, 330, 6, 41, "Output",ExpressionUUID->"931b8491-4dde-4c3b-b4ee-083f138c015f"] }, Open ]], Cell[CellGroupData[{ -Cell[12592, 417, 1426, 47, 211, "Input",ExpressionUUID->"b96d86c5-938e-478a-90c6-3f74e8c37453"], -Cell[14021, 466, 312, 6, 62, "Output",ExpressionUUID->"3a9bac6c-e012-4ceb-8de4-f6b9508e7822"] +Cell[12864, 399, 1422, 46, 215, "Input",ExpressionUUID->"b96d86c5-938e-478a-90c6-3f74e8c37453"], +Cell[14289, 447, 336, 6, 41, "Output",ExpressionUUID->"c7d054ad-d88e-478a-9537-936ca527e048"] }, Open ]], Cell[CellGroupData[{ -Cell[14370, 477, 1592, 51, 211, "Input",ExpressionUUID->"ea8c1cb5-682b-4b1c-b3b5-acad93d635e7"], -Cell[15965, 530, 288, 5, 62, "Output",ExpressionUUID->"be7f6c6b-834b-4358-9c29-796b8223eecc"] +Cell[14662, 458, 1588, 50, 215, "Input",ExpressionUUID->"ea8c1cb5-682b-4b1c-b3b5-acad93d635e7"], +Cell[16253, 510, 310, 5, 41, "Output",ExpressionUUID->"e61273d8-22b9-4183-a4ac-5ce1b8ff45de"] }, Open ]], Cell[CellGroupData[{ -Cell[16290, 540, 135, 3, 55, "Input",ExpressionUUID->"75b49a7c-d616-44bc-9324-eb39800c7562"], -Cell[16428, 545, 277, 5, 62, "Output",ExpressionUUID->"6ee57074-b8ae-46ea-9086-eff784fbd8fb"] +Cell[16600, 520, 131, 2, 36, "Input",ExpressionUUID->"75b49a7c-d616-44bc-9324-eb39800c7562"], +Cell[16734, 524, 301, 5, 41, "Output",ExpressionUUID->"9452c390-1cae-423b-a4bc-53b15a5467ba"] }, Open ]], Cell[CellGroupData[{ -Cell[16742, 555, 137, 3, 55, "Input",ExpressionUUID->"bc72c9a3-c5b0-46ba-a6d9-b78c2dbdb81f"], -Cell[16882, 560, 282, 5, 62, "Output",ExpressionUUID->"2d182ad6-9b25-4551-860a-a1c2093aa11a"] +Cell[17072, 534, 133, 2, 36, "Input",ExpressionUUID->"bc72c9a3-c5b0-46ba-a6d9-b78c2dbdb81f"], +Cell[17208, 538, 306, 5, 41, "Output",ExpressionUUID->"915ff07f-9f2f-4054-bd5c-765c32d044d5"] }, Open ]], Cell[CellGroupData[{ -Cell[17201, 570, 254, 5, 55, "Input",ExpressionUUID->"447d0e58-8ddf-4214-866b-77f6d8239bf8"], -Cell[17458, 577, 280, 5, 62, "Output",ExpressionUUID->"5572f6f5-ac17-4a10-abae-c3d1e8b4aaa4"] +Cell[17551, 548, 250, 4, 36, "Input",ExpressionUUID->"447d0e58-8ddf-4214-866b-77f6d8239bf8"], +Cell[17804, 554, 302, 5, 41, "Output",ExpressionUUID->"24ce000a-e981-4c38-8303-c6903ff1c381"] }, Open ]], Cell[CellGroupData[{ -Cell[17775, 587, 223, 5, 55, "Input",ExpressionUUID->"c581d9fe-2738-4459-9369-c0c9c4efed9c"], -Cell[18001, 594, 293, 6, 62, "Output",ExpressionUUID->"3a1bc198-dd41-4717-9a2b-74bedff19332"] +Cell[18143, 564, 219, 4, 36, "Input",ExpressionUUID->"c581d9fe-2738-4459-9369-c0c9c4efed9c"], +Cell[18365, 570, 314, 6, 41, "Output",ExpressionUUID->"2af5660b-0950-4784-81bb-d25a959d7060"] }, Open ]], Cell[CellGroupData[{ -Cell[18331, 605, 138, 3, 55, "Input",ExpressionUUID->"cc3015c8-cbd4-4f2e-a792-825c63ae5ebe"], -Cell[18472, 610, 280, 5, 62, "Output",ExpressionUUID->"3cfce95b-b2b2-4c7f-8b59-5c72aa32d310"] +Cell[18716, 581, 134, 2, 36, "Input",ExpressionUUID->"cc3015c8-cbd4-4f2e-a792-825c63ae5ebe"], +Cell[18853, 585, 302, 5, 41, "Output",ExpressionUUID->"b03a4dcc-4b9c-4934-9fa4-3007e7d80e30"] }, Open ]], Cell[CellGroupData[{ -Cell[18789, 620, 353, 6, 55, "Input",ExpressionUUID->"e1f365a2-d9d8-4cda-b3a3-e68b31c6a560"], -Cell[19145, 628, 253, 5, 62, "Output",ExpressionUUID->"29806205-711b-4cc4-acaa-a46456db1a78"] +Cell[19192, 595, 349, 5, 36, "Input",ExpressionUUID->"e1f365a2-d9d8-4cda-b3a3-e68b31c6a560"], +Cell[19544, 602, 271, 4, 41, "Output",ExpressionUUID->"a1c8efad-27a6-45a5-8511-a87579e89364"] }, Open ]], Cell[CellGroupData[{ -Cell[19435, 638, 254, 6, 55, "Input",ExpressionUUID->"0b81ca95-0a08-4fa3-ad63-7c00f7ffe86d"], -Cell[19692, 646, 275, 5, 62, "Output",ExpressionUUID->"8b28afdc-aa38-4a47-a3b1-86b4604828c3"] +Cell[19852, 611, 250, 5, 36, "Input",ExpressionUUID->"0b81ca95-0a08-4fa3-ad63-7c00f7ffe86d"], +Cell[20105, 618, 295, 5, 41, "Output",ExpressionUUID->"bde3ca18-1c99-45bd-9f11-edd28b771872"] }, Open ]], Cell[CellGroupData[{ -Cell[20004, 656, 223, 5, 55, "Input",ExpressionUUID->"9792e723-1517-465f-b393-f9cdb1452b45"], -Cell[20230, 663, 275, 5, 62, "Output",ExpressionUUID->"9ed43bb4-9af7-42ef-91ca-ca98df9d77f9"] +Cell[20437, 628, 219, 4, 36, "Input",ExpressionUUID->"9792e723-1517-465f-b393-f9cdb1452b45"], +Cell[20659, 634, 297, 5, 41, "Output",ExpressionUUID->"e001cc23-1078-4aee-bc6a-f85ed770a064"] }, Open ]], Cell[CellGroupData[{ -Cell[20542, 673, 354, 11, 81, "Input",ExpressionUUID->"d129cb85-0b12-4ff0-8da3-13df49d7e8f6"], -Cell[20899, 686, 295, 5, 62, "Output",ExpressionUUID->"22cff539-358e-4494-be6c-1d43a033f703"] +Cell[20993, 644, 350, 10, 54, "Input",ExpressionUUID->"d129cb85-0b12-4ff0-8da3-13df49d7e8f6"], +Cell[21346, 656, 319, 5, 41, "Output",ExpressionUUID->"e904d6d3-515e-41fd-a1c5-94bace6fb3a0"] }, Open ]], Cell[CellGroupData[{ -Cell[21231, 696, 354, 11, 81, "Input",ExpressionUUID->"1a34dbc5-0170-4999-8a5d-398d58b61037"], -Cell[21588, 709, 310, 6, 62, "Output",ExpressionUUID->"a8989fd7-b8ce-4a00-962c-1a08bbfb2ead"] +Cell[21702, 666, 350, 10, 54, "Input",ExpressionUUID->"1a34dbc5-0170-4999-8a5d-398d58b61037"], +Cell[22055, 678, 332, 6, 41, "Output",ExpressionUUID->"39904188-3928-4543-a913-709a1d77204c"] }, Open ]], Cell[CellGroupData[{ -Cell[21935, 720, 998, 27, 154, "Input",ExpressionUUID->"e4a97bde-72a6-40ff-9081-d4d1dc9478ce"], -Cell[22936, 749, 294, 5, 62, "Output",ExpressionUUID->"a204d143-c54b-4a47-a34c-d28fc5fae6b5"] +Cell[22424, 689, 994, 26, 105, "Input",ExpressionUUID->"e4a97bde-72a6-40ff-9081-d4d1dc9478ce"], +Cell[23421, 717, 318, 5, 41, "Output",ExpressionUUID->"cc91b4bf-bee9-4977-bd56-ee6051b524f7"] }, Open ]], Cell[CellGroupData[{ -Cell[23267, 759, 203, 4, 55, "Input",ExpressionUUID->"350e03d0-a9a3-4426-8548-793c5ab9f6a3"], -Cell[23473, 765, 276, 5, 62, "Output",ExpressionUUID->"d63b2d79-86f9-461b-bed0-4a63bf27f06b"] +Cell[23776, 727, 199, 3, 36, "Input",ExpressionUUID->"350e03d0-a9a3-4426-8548-793c5ab9f6a3"], +Cell[23978, 732, 298, 5, 41, "Output",ExpressionUUID->"7a324052-03ca-4c92-9fc5-0e088c65e88f"] }, Open ]], Cell[CellGroupData[{ -Cell[23786, 775, 332, 6, 55, "Input",ExpressionUUID->"481ec421-0e8e-4829-bccc-f08050fbcebb"], -Cell[24121, 783, 262, 5, 62, "Output",ExpressionUUID->"d3293ad7-2e88-4b22-afc8-6d50121add31"] +Cell[24313, 742, 328, 5, 36, "Input",ExpressionUUID->"481ec421-0e8e-4829-bccc-f08050fbcebb"], +Cell[24644, 749, 280, 4, 41, "Output",ExpressionUUID->"ba0d7550-cf25-4c58-b158-2a91af54d94e"] }, Open ]], -Cell[24398, 791, 177, 3, 55, "Input",ExpressionUUID->"21802cf3-c66d-4e8f-b95f-f998fe3e99fc"], +Cell[24939, 756, 173, 2, 109, "Input",ExpressionUUID->"21802cf3-c66d-4e8f-b95f-f998fe3e99fc"], Cell[CellGroupData[{ -Cell[24600, 798, 332, 6, 55, "Input",ExpressionUUID->"feb7f060-9d53-4587-b6e6-7db8b94cdb65"], -Cell[24935, 806, 255, 5, 62, "Output",ExpressionUUID->"69a346bf-ceff-4b7d-acfc-1dc7f5c59d5f"] +Cell[25137, 762, 328, 5, 36, "Input",ExpressionUUID->"feb7f060-9d53-4587-b6e6-7db8b94cdb65"], +Cell[25468, 769, 273, 4, 41, "Output",ExpressionUUID->"c5b479c5-d3f3-4160-ad1a-10ac1fd1535c"] }, Open ]], -Cell[25205, 814, 177, 3, 55, "Input",ExpressionUUID->"ef889e59-9bea-4de0-b55b-ca1238d824e4"], +Cell[25756, 776, 173, 2, 109, "Input",ExpressionUUID->"ef889e59-9bea-4de0-b55b-ca1238d824e4"], Cell[CellGroupData[{ -Cell[25407, 821, 332, 6, 55, "Input",ExpressionUUID->"ca9ca022-54dc-48d0-9225-bca8fa9204ed"], -Cell[25742, 829, 253, 5, 62, "Output",ExpressionUUID->"852a4084-4b42-4075-84e3-4df03ba3677f"] +Cell[25954, 782, 328, 5, 36, "Input",ExpressionUUID->"ca9ca022-54dc-48d0-9225-bca8fa9204ed"], +Cell[26285, 789, 271, 4, 41, "Output",ExpressionUUID->"8d6cc437-e4ef-4316-a4fa-7ff13cf535d9"] }, Open ]], -Cell[26010, 837, 177, 3, 55, "Input",ExpressionUUID->"e3c627ac-7787-4a32-997a-ce331c786870"], +Cell[26571, 796, 173, 2, 109, "Input",ExpressionUUID->"e3c627ac-7787-4a32-997a-ce331c786870"], Cell[CellGroupData[{ -Cell[26212, 844, 356, 6, 55, "Input",ExpressionUUID->"1c407e7a-dc8c-4b18-b06d-b1b9818c7eb8"], -Cell[26571, 852, 251, 5, 62, "Output",ExpressionUUID->"cdb4abfa-f666-4e40-8e43-a261804eeee0"] +Cell[26769, 802, 352, 5, 36, "Input",ExpressionUUID->"1c407e7a-dc8c-4b18-b06d-b1b9818c7eb8"], +Cell[27124, 809, 269, 4, 41, "Output",ExpressionUUID->"b1a4872b-33df-46bf-a2a1-da6747b5573c"] }, Open ]], -Cell[26837, 860, 175, 3, 55, "Input",ExpressionUUID->"c177eaba-014e-4b6d-bd84-422460cd0578"], +Cell[27408, 816, 171, 2, 109, "Input",ExpressionUUID->"c177eaba-014e-4b6d-bd84-422460cd0578"], Cell[CellGroupData[{ -Cell[27037, 867, 304, 6, 55, "Input",ExpressionUUID->"bfe5a85a-5d9e-49f7-b9d8-e0ca962ffb19"], -Cell[27344, 875, 258, 5, 62, "Output",ExpressionUUID->"f0ab51ff-f487-4f85-9efd-03179c05e869"] +Cell[27604, 822, 300, 5, 36, "Input",ExpressionUUID->"bfe5a85a-5d9e-49f7-b9d8-e0ca962ffb19"], +Cell[27907, 829, 278, 4, 41, "Output",ExpressionUUID->"9559be83-7fdf-446f-9e86-b5335e9648b5"] }, Open ]], -Cell[27617, 883, 175, 3, 55, "Input",ExpressionUUID->"7357cf96-42e8-4230-aa7b-aa787e8d53a4"], +Cell[28200, 836, 171, 2, 109, "Input",ExpressionUUID->"7357cf96-42e8-4230-aa7b-aa787e8d53a4"], Cell[CellGroupData[{ -Cell[27817, 890, 310, 6, 55, "Input",ExpressionUUID->"39968499-04f4-4aaf-969f-47dd9552cbf6"], -Cell[28130, 898, 258, 5, 62, "Output",ExpressionUUID->"69f114af-ca26-436a-81b2-2407cc9450e9"] +Cell[28396, 842, 306, 5, 36, "Input",ExpressionUUID->"39968499-04f4-4aaf-969f-47dd9552cbf6"], +Cell[28705, 849, 278, 4, 41, "Output",ExpressionUUID->"213c4da1-509a-4a5c-90ee-fd3373ce5b47"] }, Open ]], -Cell[28403, 906, 177, 3, 55, "Input",ExpressionUUID->"d3e8d03f-922c-4529-83f3-834f319f227f"], +Cell[28998, 856, 173, 2, 109, "Input",ExpressionUUID->"d3e8d03f-922c-4529-83f3-834f319f227f"], Cell[CellGroupData[{ -Cell[28605, 913, 310, 6, 55, "Input",ExpressionUUID->"42e5f601-68c0-48aa-be8c-ef94de9cfd95"], -Cell[28918, 921, 259, 5, 62, "Output",ExpressionUUID->"c6f7bafd-9e26-44d5-a29e-9ee44966b3e4"] +Cell[29196, 862, 306, 5, 36, "Input",ExpressionUUID->"42e5f601-68c0-48aa-be8c-ef94de9cfd95"], +Cell[29505, 869, 277, 4, 41, "Output",ExpressionUUID->"8bc475e2-389e-4448-a4f7-9982e049f744"] }, Open ]], -Cell[29192, 929, 176, 3, 55, "Input",ExpressionUUID->"ed21966d-6f60-421a-9734-6562b989ca42"], +Cell[29797, 876, 172, 2, 109, "Input",ExpressionUUID->"ed21966d-6f60-421a-9734-6562b989ca42"], Cell[CellGroupData[{ -Cell[29393, 936, 282, 5, 55, "Input",ExpressionUUID->"7ef1268d-339d-47a7-b3cf-faa6a79673d4"], -Cell[29678, 943, 256, 5, 62, "Output",ExpressionUUID->"292bceff-de31-49c8-b372-bcdac9985ade"] +Cell[29994, 882, 278, 4, 36, "Input",ExpressionUUID->"7ef1268d-339d-47a7-b3cf-faa6a79673d4"], +Cell[30275, 888, 274, 4, 41, "Output",ExpressionUUID->"d5cf9d4e-3453-46ac-a3bf-9a9bbdde6ed6"] }, Open ]], -Cell[29949, 951, 179, 3, 55, "Input",ExpressionUUID->"31910eb0-1db4-4f39-bf09-7dba319f9823"], +Cell[30564, 895, 175, 2, 109, "Input",ExpressionUUID->"31910eb0-1db4-4f39-bf09-7dba319f9823"], Cell[CellGroupData[{ -Cell[30153, 958, 19813, 486, 3214, "Input",ExpressionUUID->"283d5454-8e51-49c6-aa3a-6a51d5e5e555"], -Cell[49969, 1446, 295, 5, 62, "Output",ExpressionUUID->"6988f7b7-848d-4a23-a483-c41283d84606"] +Cell[30764, 901, 19809, 485, 3208, "Input",ExpressionUUID->"283d5454-8e51-49c6-aa3a-6a51d5e5e555"], +Cell[50576, 1388, 317, 5, 41, "Output",ExpressionUUID->"ecde2391-9b2c-4151-b4ed-3c77ef6377af"] }, Open ]], Cell[CellGroupData[{ -Cell[50301, 1456, 19752, 490, 3214, "Input",ExpressionUUID->"7af6b117-42fc-4eac-a166-c4daf4a1f93b"], -Cell[70056, 1948, 294, 5, 62, "Output",ExpressionUUID->"53af5287-57f7-42ba-af9e-176cb3e1888f"] +Cell[50930, 1398, 19748, 489, 3138, "Input",ExpressionUUID->"7af6b117-42fc-4eac-a166-c4daf4a1f93b"], +Cell[70681, 1889, 316, 5, 41, "Output",ExpressionUUID->"9c6f9a1a-acb2-410c-91f2-58cc5c8acad8"] }, Open ]], Cell[CellGroupData[{ -Cell[70387, 1958, 19752, 484, 3213, "Input",ExpressionUUID->"3ccc2b55-71ba-4056-8693-fbdcffc0f206"], -Cell[90142, 2444, 305, 6, 62, "Output",ExpressionUUID->"98adbb54-c003-472e-ad99-620d5cc2b8da"] +Cell[71034, 1899, 19748, 483, 3198, "Input",ExpressionUUID->"3ccc2b55-71ba-4056-8693-fbdcffc0f206"], +Cell[90785, 2384, 329, 6, 41, "Output",ExpressionUUID->"e731d561-26d8-4b05-b05a-b0ceb1ebd5b1"] }, Open ]], Cell[CellGroupData[{ -Cell[90484, 2455, 22538, 554, 3639, "Input",ExpressionUUID->"a1dd8794-cc51-478e-a833-fb04766b2ffc"], -Cell[113025, 3011, 311, 6, 62, "Output",ExpressionUUID->"f891023f-cdb7-4aaa-b377-159de5ab3968"] +Cell[91151, 2395, 22534, 553, 3677, "Input",ExpressionUUID->"a1dd8794-cc51-478e-a833-fb04766b2ffc"], +Cell[113688, 2950, 333, 6, 41, "Output",ExpressionUUID->"95778ff5-11dc-448b-9809-dee09c57a35e"] }, Open ]], Cell[CellGroupData[{ -Cell[113373, 3022, 22539, 554, 3639, "Input",ExpressionUUID->"94521f07-d62c-4bf4-a121-941b5e1ee3c6"], -Cell[135915, 3578, 310, 6, 62, "Output",ExpressionUUID->"806796f5-9102-4adb-a2ac-f62cb661e65c"] +Cell[114058, 2961, 22535, 553, 3642, "Input",ExpressionUUID->"94521f07-d62c-4bf4-a121-941b5e1ee3c6"], +Cell[136596, 3516, 332, 6, 41, "Output",ExpressionUUID->"315a8281-8ef5-4058-86f8-978013930177"] }, Open ]], Cell[CellGroupData[{ -Cell[136262, 3589, 25495, 627, 4065, "Input",ExpressionUUID->"dcc7952e-a3a2-4d76-b674-4b42ede27271"], -Cell[161760, 4218, 315, 6, 62, "Output",ExpressionUUID->"32f94ba7-acc2-47e3-a615-be4dfad3d5c0"] +Cell[136965, 3527, 25491, 626, 4121, "Input",ExpressionUUID->"dcc7952e-a3a2-4d76-b674-4b42ede27271"], +Cell[162459, 4155, 337, 6, 41, "Output",ExpressionUUID->"5298d4e2-eb80-4225-9c8d-ea99d5a576ae"] }, Open ]], Cell[CellGroupData[{ -Cell[162112, 4229, 134, 3, 55, "Input",ExpressionUUID->"f049700b-5790-40d4-a767-d0963e3b3e89"], -Cell[162249, 4234, 273, 5, 62, "Output",ExpressionUUID->"5ff7e855-3525-4138-9650-5ae73196b0e1"] +Cell[162833, 4166, 130, 2, 36, "Input",ExpressionUUID->"f049700b-5790-40d4-a767-d0963e3b3e89"], +Cell[162966, 4170, 297, 5, 41, "Output",ExpressionUUID->"b11f7fcb-2fb8-40df-9dc0-b8415437af9c"] }, Open ]], Cell[CellGroupData[{ -Cell[162559, 4244, 134, 3, 55, "Input",ExpressionUUID->"7f685872-bb50-46b2-8887-06d96df1a8c2"], -Cell[162696, 4249, 275, 5, 62, "Output",ExpressionUUID->"8f3a94f6-7495-4aa7-a626-7333dcb38894"] +Cell[163300, 4180, 130, 2, 36, "Input",ExpressionUUID->"7f685872-bb50-46b2-8887-06d96df1a8c2"], +Cell[163433, 4184, 297, 5, 41, "Output",ExpressionUUID->"9478cf43-a6c6-4f4c-a291-fcab528029cd"] }, Open ]], Cell[CellGroupData[{ -Cell[163008, 4259, 1148, 40, 211, "Input",ExpressionUUID->"66cde6be-2db1-4fc6-99a1-4fd5ec0fc367"], -Cell[164159, 4301, 295, 5, 62, "Output",ExpressionUUID->"dcc1948f-eb9b-4b0d-8351-c7c5cc69354d"] +Cell[163767, 4194, 1144, 39, 144, "Input",ExpressionUUID->"66cde6be-2db1-4fc6-99a1-4fd5ec0fc367"], +Cell[164914, 4235, 319, 5, 41, "Output",ExpressionUUID->"3359c25f-70a6-4a10-9435-13b67efa83e6"] }, Open ]], Cell[CellGroupData[{ -Cell[164491, 4311, 1045, 36, 211, "Input",ExpressionUUID->"06c42e12-35e7-47a6-9ee0-d1126a4de73c"], -Cell[165539, 4349, 308, 6, 62, "Output",ExpressionUUID->"8c68a84b-1dee-4767-a837-7f39a028ef74"] +Cell[165270, 4245, 1041, 35, 144, "Input",ExpressionUUID->"06c42e12-35e7-47a6-9ee0-d1126a4de73c"], +Cell[166314, 4282, 329, 6, 41, "Output",ExpressionUUID->"aed51f7e-226b-4f36-bda2-2a9d14648e63"] }, Open ]], Cell[CellGroupData[{ -Cell[165884, 4360, 1148, 40, 211, "Input",ExpressionUUID->"4fc8cd09-dfb0-4d0b-be5a-7428b1c347ab"], -Cell[167035, 4402, 290, 5, 62, "Output",ExpressionUUID->"679be1ab-e7bd-42ce-8bfa-dd4d23338f3d"] +Cell[166680, 4293, 1144, 39, 144, "Input",ExpressionUUID->"4fc8cd09-dfb0-4d0b-be5a-7428b1c347ab"], +Cell[167827, 4334, 314, 5, 41, "Output",ExpressionUUID->"d9ade1da-71d5-4de3-aba7-47226d156e26"] }, Open ]], Cell[CellGroupData[{ -Cell[167362, 4412, 112, 2, 55, "Input",ExpressionUUID->"db8d809e-1222-4cf0-9e4f-ef3bfc3b334d"], -Cell[167477, 4416, 298, 5, 62, "Output",ExpressionUUID->"7c92d47a-6511-46d9-bdf9-53197e4bbe79"] +Cell[168178, 4344, 108, 1, 36, "Input",ExpressionUUID->"db8d809e-1222-4cf0-9e4f-ef3bfc3b334d"], +Cell[168289, 4347, 320, 5, 41, "Output",ExpressionUUID->"4cf803e0-bcab-4dcb-96e3-67a37b2a9503"] }, Open ]], Cell[CellGroupData[{ -Cell[167812, 4426, 112, 2, 55, "Input",ExpressionUUID->"61102ee4-fd56-4f4e-aae9-6e6f85d6ad61"], -Cell[167927, 4430, 312, 6, 62, "Output",ExpressionUUID->"3ac30277-7408-4f52-85a3-b99862f0dd87"] +Cell[168646, 4357, 108, 1, 36, "Input",ExpressionUUID->"61102ee4-fd56-4f4e-aae9-6e6f85d6ad61"], +Cell[168757, 4360, 334, 6, 41, "Output",ExpressionUUID->"030bb4f8-b21e-497a-b2c1-6be05757352c"] }, Open ]], Cell[CellGroupData[{ -Cell[168276, 4441, 112, 2, 55, "Input",ExpressionUUID->"c1212b5a-b9b3-4efb-b791-b5aef973bee3"], -Cell[168391, 4445, 316, 6, 62, "Output",ExpressionUUID->"9d4b6cea-fad1-4ea1-988b-7212601b2da5"] +Cell[169128, 4371, 108, 1, 36, "Input",ExpressionUUID->"c1212b5a-b9b3-4efb-b791-b5aef973bee3"], +Cell[169239, 4374, 338, 6, 41, "Output",ExpressionUUID->"91668a8d-6ce7-43e4-bf3a-61f53c5d53ef"] }, Open ]], Cell[CellGroupData[{ -Cell[168744, 4456, 112, 2, 55, "Input",ExpressionUUID->"bd0f6c6f-1262-47f5-b928-eaf93d21780f"], -Cell[168859, 4460, 289, 5, 62, "Output",ExpressionUUID->"ac94a248-912d-46b5-bee4-2d4c2086b5fd"] +Cell[169614, 4385, 108, 1, 36, "Input",ExpressionUUID->"bd0f6c6f-1262-47f5-b928-eaf93d21780f"], +Cell[169725, 4388, 311, 5, 41, "Output",ExpressionUUID->"33aa6ae1-c842-4591-a052-15de5137ffc2"] }, Open ]], Cell[CellGroupData[{ -Cell[169185, 4470, 111, 2, 55, "Input",ExpressionUUID->"d0bb7e0b-e8c2-4560-9290-f48e0bd1fcbd"], -Cell[169299, 4474, 298, 5, 62, "Output",ExpressionUUID->"6f7dd9fc-9eaf-47f3-a13d-609280d996bc"] +Cell[170073, 4398, 107, 1, 36, "Input",ExpressionUUID->"d0bb7e0b-e8c2-4560-9290-f48e0bd1fcbd"], +Cell[170183, 4401, 320, 5, 41, "Output",ExpressionUUID->"f20e8f7f-d9fd-4101-93f5-2a33ca65638a"] }, Open ]], Cell[CellGroupData[{ -Cell[169634, 4484, 111, 2, 55, "Input",ExpressionUUID->"95e2a8d5-1951-4102-99f6-ad51c308744b"], -Cell[169748, 4488, 297, 5, 62, "Output",ExpressionUUID->"23453211-1bac-4674-ba6d-3d965c8d2ce2"] +Cell[170540, 4411, 107, 1, 36, "Input",ExpressionUUID->"95e2a8d5-1951-4102-99f6-ad51c308744b"], +Cell[170650, 4414, 319, 5, 41, "Output",ExpressionUUID->"d43be2fa-28e4-489c-9b78-c27232b8e0a6"] }, Open ]], Cell[CellGroupData[{ -Cell[170082, 4498, 501, 17, 105, "Input",ExpressionUUID->"5fdf5ad0-f7da-4941-a920-31a470629a9d"], -Cell[170586, 4517, 311, 6, 62, "Output",ExpressionUUID->"07561e06-67bb-4861-b9bc-c99a4674b80d"] +Cell[171006, 4424, 497, 16, 71, "Input",ExpressionUUID->"5fdf5ad0-f7da-4941-a920-31a470629a9d"], +Cell[171506, 4442, 335, 6, 41, "Output",ExpressionUUID->"0d804e03-cd3c-4bba-b99f-7114fedbf0b0"] }, Open ]], Cell[CellGroupData[{ -Cell[170934, 4528, 501, 17, 105, "Input",ExpressionUUID->"117301c3-7e4a-415b-aa06-a1570cc08ffc"], -Cell[171438, 4547, 308, 6, 62, "Output",ExpressionUUID->"02d82b2e-123f-4e82-a917-7e75a4170da0"] +Cell[171878, 4453, 497, 16, 71, "Input",ExpressionUUID->"117301c3-7e4a-415b-aa06-a1570cc08ffc"], +Cell[172378, 4471, 330, 6, 41, "Output",ExpressionUUID->"76823b21-9b8c-450c-9bbf-d0c633f828cb"] }, Open ]], Cell[CellGroupData[{ -Cell[171783, 4558, 1792, 61, 358, "Input",ExpressionUUID->"f29874dc-4ff3-4453-bd9b-b86716b3ff4a"], -Cell[173578, 4621, 291, 5, 62, "Output",ExpressionUUID->"ed240888-0b33-4f6c-96bb-73687a4c1683"] +Cell[172745, 4482, 1788, 60, 340, "Input",ExpressionUUID->"f29874dc-4ff3-4453-bd9b-b86716b3ff4a"], +Cell[174536, 4544, 313, 5, 41, "Output",ExpressionUUID->"63e64b51-eb4e-4ded-9393-84e8e08b12b6"] }, Open ]], Cell[CellGroupData[{ -Cell[173906, 4631, 1105, 37, 256, "Input",ExpressionUUID->"2d395a23-c156-4ff4-8920-53ed3530d6dd"], -Cell[175014, 4670, 311, 6, 62, "Output",ExpressionUUID->"6fa6afcb-d4bb-43c4-98e8-c2787ff22ec7"] +Cell[174886, 4554, 1101, 36, 174, "Input",ExpressionUUID->"2d395a23-c156-4ff4-8920-53ed3530d6dd"], +Cell[175990, 4592, 333, 6, 41, "Output",ExpressionUUID->"9236e1d0-894f-4490-aea9-afef90d34fad"] }, Open ]], Cell[CellGroupData[{ -Cell[175362, 4681, 1822, 62, 313, "Input",ExpressionUUID->"cebf7a85-b90c-4fd0-b6d2-a6bcf590c115"], -Cell[177187, 4745, 290, 5, 62, "Output",ExpressionUUID->"cf2d52e0-1ff1-4ae7-b6a0-aedde425cce4"] +Cell[176360, 4603, 1818, 61, 340, "Input",ExpressionUUID->"cebf7a85-b90c-4fd0-b6d2-a6bcf590c115"], +Cell[178181, 4666, 312, 5, 41, "Output",ExpressionUUID->"8b0b4a97-136f-42b5-8ff2-5d139ced461d"] }, Open ]], Cell[CellGroupData[{ -Cell[177514, 4755, 1714, 56, 260, "Input",ExpressionUUID->"89b62d0b-e390-4fff-a801-1f0e9b97397a"], -Cell[179231, 4813, 294, 5, 62, "Output",ExpressionUUID->"04b7e1fd-1c35-404b-9221-b318563f5666"] +Cell[178530, 4676, 1710, 55, 247, "Input",ExpressionUUID->"89b62d0b-e390-4fff-a801-1f0e9b97397a"], +Cell[180243, 4733, 316, 5, 41, "Output",ExpressionUUID->"41764151-36cf-4af3-885d-8ecf7d942b1e"] }, Open ]], Cell[CellGroupData[{ -Cell[179562, 4823, 1635, 54, 208, "Input",ExpressionUUID->"89b80508-67f6-42e8-98c7-04677add7ef7"], -Cell[181200, 4879, 292, 5, 41, "Output",ExpressionUUID->"4199a712-b184-4b2a-82fb-22c986524e3a"] +Cell[180596, 4743, 1631, 53, 208, "Input",ExpressionUUID->"89b80508-67f6-42e8-98c7-04677add7ef7"], +Cell[182230, 4798, 314, 5, 41, "Output",ExpressionUUID->"5bc08416-f63e-4504-af84-3b1e50edc1a1"] }, Open ]], -Cell[181507, 4887, 189, 4, 36, "Input",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], -Cell[181699, 4893, 152, 3, 36, "Input",ExpressionUUID->"7730e455-e5f4-194b-b761-e7a6896afd10"], -Cell[181854, 4898, 187, 4, 36, "Input",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], -Cell[182044, 4904, 154, 3, 36, "Input",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], Cell[CellGroupData[{ -Cell[182223, 4911, 1273, 41, 174, "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], -Cell[183499, 4954, 106, 0, 41, "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] +Cell[182581, 4808, 208, 3, 36, "Input",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], +Cell[182792, 4813, 161, 2, 41, "Output",ExpressionUUID->"7b994fba-54b4-4cdf-8141-b06e4d4ffe94"] }, Open ]], +Cell[182968, 4818, 171, 2, 109, "Input",ExpressionUUID->"7730e455-e5f4-194b-b761-e7a6896afd10"], Cell[CellGroupData[{ -Cell[183642, 4959, 910, 31, 128, "Input",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], -Cell[184555, 4992, 106, 0, 41, "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] +Cell[183164, 4824, 206, 3, 36, "Input",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], +Cell[183373, 4829, 161, 2, 41, "Output",ExpressionUUID->"141bc133-24ba-41f8-ab73-97d679ad83e0"] }, Open ]], +Cell[183549, 4834, 173, 2, 109, "Input",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], Cell[CellGroupData[{ -Cell[184698, 4997, 885, 30, 128, "Input",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], -Cell[185586, 5029, 106, 0, 41, "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] +Cell[183747, 4840, 1297, 42, 174, "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], +Cell[185047, 4884, 172, 2, 41, "Output",ExpressionUUID->"37544986-5159-40bb-82b5-c5948267970e"] }, Open ]], Cell[CellGroupData[{ -Cell[185729, 5034, 532, 18, 66, "Input",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], -Cell[186264, 5054, 101, 0, 41, "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] +Cell[185256, 4891, 929, 30, 128, "Input",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], +Cell[186188, 4923, 171, 2, 41, "Output",ExpressionUUID->"60b5ced1-2bbf-4257-bb82-20c80d8622e7"] }, Open ]], Cell[CellGroupData[{ -Cell[186402, 5059, 625, 21, 66, "Input",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], -Cell[187030, 5082, 100, 0, 41, "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] +Cell[186396, 4930, 904, 29, 128, "Input",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], +Cell[187303, 4961, 171, 2, 41, "Output",ExpressionUUID->"f2f288f0-9151-4b5e-b9b3-a1b8558f6809"] }, Open ]], Cell[CellGroupData[{ -Cell[187167, 5087, 144, 4, 71, "Input",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], -Cell[187314, 5093, 101, 0, 41, "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +Cell[187511, 4968, 554, 18, 66, "Input",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], +Cell[188068, 4988, 167, 2, 41, "Output",ExpressionUUID->"0be17b88-a358-4576-912c-a7aa0231b241"] }, Open ]], Cell[CellGroupData[{ -Cell[187452, 5098, 144, 4, 69, "Input",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], -Cell[187599, 5104, 100, 0, 41, "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +Cell[188272, 4995, 647, 21, 66, "Input",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], +Cell[188922, 5018, 167, 2, 41, "Output",ExpressionUUID->"8b4d0f46-466f-43ad-b4a2-f92fd37c15bf"] }, Open ]], Cell[CellGroupData[{ -Cell[187736, 5109, 155, 4, 55, "Input",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], -Cell[187894, 5115, 101, 0, 41, "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +Cell[189126, 5025, 166, 4, 71, "Input",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], +Cell[189295, 5031, 165, 2, 41, "Output",ExpressionUUID->"3d5cbdb0-777a-40ee-a4e0-c1d7f227a593"] }, Open ]], Cell[CellGroupData[{ -Cell[188032, 5120, 155, 4, 55, "Input",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], -Cell[188190, 5126, 101, 0, 41, "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +Cell[189497, 5038, 166, 4, 69, "Input",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], +Cell[189666, 5044, 168, 2, 41, "Output",ExpressionUUID->"8ea62029-06b3-4f50-a36b-a0696ab6096c"] }, Open ]], Cell[CellGroupData[{ -Cell[188328, 5131, 6029, 184, 831, "Input",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], -Cell[194360, 5317, 102, 0, 41, "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +Cell[189871, 5051, 177, 4, 55, "Input",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], +Cell[190051, 5057, 167, 2, 41, "Output",ExpressionUUID->"485c781f-ec13-4c4e-aebc-8019f6e5d3ea"] }, Open ]], Cell[CellGroupData[{ -Cell[194499, 5322, 342, 8, 53, "Input",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], -Cell[194844, 5332, 342, 6, 26, "Message",ExpressionUUID->"b04cf5cc-6c74-f842-9fba-c737c46f5a7b"], -Cell[195189, 5340, 100, 0, 41, "Output",ExpressionUUID->"32922499-707a-964c-90f0-b2630d16ee29"] +Cell[190255, 5064, 177, 4, 55, "Input",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], +Cell[190435, 5070, 166, 2, 41, "Output",ExpressionUUID->"60183823-253b-46d3-a888-95de74bd3abf"] }, Open ]], Cell[CellGroupData[{ -Cell[195326, 5345, 6096, 186, 900, "Input",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], -Cell[201425, 5533, 103, 0, 41, "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +Cell[190638, 5077, 6051, 184, 831, "Input",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], +Cell[196692, 5263, 170, 2, 41, "Output",ExpressionUUID->"26a31ecf-7433-4134-b9e1-32e3f7514858"] }, Open ]], Cell[CellGroupData[{ -Cell[201565, 5538, 342, 8, 53, "Input",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], -Cell[201910, 5548, 342, 6, 26, "Message",ExpressionUUID->"6f900e99-9e38-fb4c-84fd-e99588ed1cc5"], -Cell[202255, 5556, 100, 0, 41, "Output",ExpressionUUID->"e5a93687-7c76-eb48-a79a-098cbe08792a"] +Cell[196899, 5270, 364, 8, 53, "Input",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], +Cell[197266, 5280, 167, 2, 41, "Output",ExpressionUUID->"14abc88e-e5a0-4d3a-ab82-a1d8a0118d17"] }, Open ]], Cell[CellGroupData[{ -Cell[202392, 5561, 2637, 87, 435, "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], -Cell[205032, 5650, 101, 0, 41, "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +Cell[197470, 5287, 6118, 186, 900, "Input",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], +Cell[203591, 5475, 169, 2, 41, "Output",ExpressionUUID->"b3047c40-a3a4-4b8e-a271-6b6ffa274074"] }, Open ]], Cell[CellGroupData[{ -Cell[205170, 5655, 2577, 84, 435, "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], -Cell[207750, 5741, 102, 0, 41, "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +Cell[203797, 5482, 364, 8, 53, "Input",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], +Cell[204164, 5492, 168, 2, 41, "Output",ExpressionUUID->"8bdd68f9-98a3-4574-956e-12193d3056fd"] }, Open ]], Cell[CellGroupData[{ -Cell[207889, 5746, 3686, 117, 575, "Input",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], -Cell[211578, 5865, 102, 0, 41, "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] +Cell[204369, 5499, 2659, 87, 435, "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], +Cell[207031, 5588, 167, 2, 41, "Output",ExpressionUUID->"100521ff-88f8-41a0-af01-522898da21a2"] }, Open ]], -Cell[211695, 5868, 138, 3, 36, "Input",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], Cell[CellGroupData[{ -Cell[211858, 5875, 2054, 59, 276, "Input",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], -Cell[213915, 5936, 342, 6, 26, "Message",ExpressionUUID->"4105bae1-ec8c-fc46-bc8a-9d70c37ec32c"], -Cell[214260, 5944, 342, 6, 26, "Message",ExpressionUUID->"42c1a263-2456-664a-bb33-c5fe841cb412"], -Cell[214605, 5952, 100, 0, 41, "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +Cell[207235, 5595, 2599, 84, 435, "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], +Cell[209837, 5681, 167, 2, 41, "Output",ExpressionUUID->"b90ebfd4-d766-46a9-ad03-50f673e7a567"] }, Open ]], Cell[CellGroupData[{ -Cell[214742, 5957, 2049, 58, 276, "Input",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], -Cell[216794, 6017, 342, 6, 26, "Message",ExpressionUUID->"be4d7bfb-c18e-564a-93ce-3f42607886e7"], -Cell[217139, 6025, 342, 6, 26, "Message",ExpressionUUID->"b768ca5f-6b93-1f43-97bf-08f74ea2facd"], -Cell[217484, 6033, 100, 0, 41, "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +Cell[210041, 5688, 3708, 117, 575, "Input",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], +Cell[213752, 5807, 168, 2, 41, "Output",ExpressionUUID->"9b33aa90-2168-4fab-a60e-e757dfe43ff3"] }, Open ]], +Cell[213935, 5812, 160, 3, 109, "Input",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], Cell[CellGroupData[{ -Cell[217621, 6038, 1938, 53, 232, "Input",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], -Cell[219562, 6093, 342, 6, 26, "Message",ExpressionUUID->"d3cb6fbc-3803-0541-80d1-8cab47341c44"], -Cell[219907, 6101, 342, 6, 26, "Message",ExpressionUUID->"635ef23c-be29-f947-b49d-c0d2f59f2ba8"], -Cell[220252, 6109, 342, 6, 26, "Message",ExpressionUUID->"d8687e0f-2f42-0543-a749-78a1ff3c9572"], -Cell[220597, 6117, 407, 7, 48, "Message",ExpressionUUID->"b055d243-2255-1f40-80bd-55bc54524667"], -Cell[221007, 6126, 9852, 394, 232, 4231, 300, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], -Cell[230862, 6522, 191, 5, 41, "Output",ExpressionUUID->"e49c1b8d-fabe-b944-a6dd-c578eb57eb6a"] +Cell[214120, 5819, 2073, 58, 276, "Input",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], +Cell[216196, 5879, 632, 14, 73, "Message",ExpressionUUID->"af20b25e-0263-4be1-ac68-939f31b75962"], +Cell[216831, 5895, 633, 14, 73, "Message",ExpressionUUID->"1112805b-9fb2-4da6-93c8-748bb83224e7"], +Cell[217467, 5911, 634, 14, 73, "Message",ExpressionUUID->"c747086b-47b8-49a5-baca-afbec0547104"], +Cell[218104, 5927, 463, 11, 32, "Message",ExpressionUUID->"79298b0b-4c6e-4bd4-a5e6-2bc9ddf53d2a"], +Cell[218570, 5940, 167, 2, 41, "Output",ExpressionUUID->"a198df5b-44a3-40d5-a20a-f08c45c862e6"] }, Open ]], Cell[CellGroupData[{ -Cell[231090, 6532, 2094, 60, 311, "Input",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], -Cell[233187, 6594, 342, 6, 26, "Message",ExpressionUUID->"9f5fa53c-8bea-a349-9c29-e4614f56cc98"], -Cell[233532, 6602, 342, 6, 26, "Message",ExpressionUUID->"a2ecd22c-b766-5347-9e03-9d459620be75"], -Cell[233877, 6610, 342, 6, 26, "Message",ExpressionUUID->"45a49c2b-98f0-ca4e-ab79-bb0334e26ffd"], -Cell[234222, 6618, 407, 7, 48, "Message",ExpressionUUID->"258782e2-0da4-1143-8b36-76da0d2ac6df"], -Cell[234632, 6627, 10253, 391, 232, 4113, 287, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"06204099-db57-8e4e-bcc4-fa1ae37c0063"], -Cell[244888, 7020, 191, 5, 41, "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-04dec8739bf5"] +Cell[218774, 5947, 2070, 58, 276, "Input",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], +Cell[220847, 6007, 634, 14, 73, "Message",ExpressionUUID->"b7db8a1f-0074-42d7-b38c-bcb9983c7ef4"], +Cell[221484, 6023, 633, 14, 73, "Message",ExpressionUUID->"f55843d9-533c-45e1-aa94-d391750b7d3d"], +Cell[222120, 6039, 632, 14, 73, "Message",ExpressionUUID->"bc9073b4-8516-46d3-a398-b12462463aa7"], +Cell[222755, 6055, 461, 11, 32, "Message",ExpressionUUID->"abc677bc-5481-4768-88bc-cbeff441de61"], +Cell[223219, 6068, 166, 2, 41, "Output",ExpressionUUID->"5d9500e4-cc69-4964-82a0-2573c9ad7252"] }, Open ]], -Cell[245094, 7028, 2453, 69, 296, "Input",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], -Cell[247550, 7099, 209, 5, 36, "Input",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], Cell[CellGroupData[{ -Cell[247784, 7108, 215, 7, 61, "Input",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], -Cell[248002, 7117, 100, 0, 41, "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +Cell[223422, 6075, 2049, 54, 232, "Input",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], +Cell[225474, 6131, 20428, 385, 295, "Output",ExpressionUUID->"c87a3fe7-807f-430d-b410-6299ece59d21"] }, Open ]], Cell[CellGroupData[{ -Cell[248139, 7122, 1814, 53, 311, "Input",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], -Cell[249956, 7177, 342, 6, 26, "Message",ExpressionUUID->"12d513db-13cc-bc48-b9a3-22b17d8aeb9a"], -Cell[250301, 7185, 342, 6, 26, "Message",ExpressionUUID->"05911c33-7605-8b49-a7ba-7fc8c8f30741"], -Cell[250646, 7193, 342, 6, 26, "Message",ExpressionUUID->"2192e048-2875-9f4a-aa0c-9cbbd447dfe1"], -Cell[250991, 7201, 407, 7, 48, "Message",ExpressionUUID->"b6990f5f-359f-464b-ac16-44cdfeae3c8e"], -Cell[251401, 7210, 10062, 396, 232, 4186, 297, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"899e43aa-c372-6647-a3e4-4952f308ab17"], -Cell[261466, 7608, 191, 5, 41, "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-baecb9a57d9b"] +Cell[245939, 6521, 2113, 59, 311, "Input",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], +Cell[248055, 6582, 506, 12, 71, "Message",ExpressionUUID->"51ac27a2-36d5-4e9e-8539-2afd38fb4898"], +Cell[248564, 6596, 510, 12, 71, "Message",ExpressionUUID->"837a36b7-527a-4c51-8952-07d5857338c0"], +Cell[249077, 6610, 513, 12, 71, "Message",ExpressionUUID->"b2ef0938-62dc-4cf3-9736-3242f650ba95"], +Cell[249593, 6624, 462, 11, 32, "Message",ExpressionUUID->"f9776574-e02a-43e5-91b5-c6ba0358455b"], +Cell[250058, 6637, 22605, 419, 294, "Output",ExpressionUUID->"44d84d58-adec-4db7-8a89-f7796c03c1bb"] }, Open ]], Cell[CellGroupData[{ -Cell[261694, 7618, 1590, 47, 132, "Input",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], -Cell[263287, 7667, 342, 6, 26, "Message",ExpressionUUID->"d7dfab56-fefd-0149-8a26-6ee16f94ab37"], -Cell[263632, 7675, 101, 0, 41, "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +Cell[272700, 7061, 2475, 69, 296, "Input",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], +Cell[275178, 7132, 9492, 222, 298, "Output",ExpressionUUID->"075ccb8a-ee26-4b20-aa2c-43f2b3108239"] }, Open ]], Cell[CellGroupData[{ -Cell[263770, 7680, 2247, 64, 348, "Input",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], -Cell[266020, 7746, 342, 6, 26, "Message",ExpressionUUID->"56921c73-2b67-0e4a-9808-5f61de992c7e"], -Cell[266365, 7754, 342, 6, 26, "Message",ExpressionUUID->"8ae663ad-3729-254b-9ec7-7f5d00ef81af"], -Cell[266710, 7762, 103, 0, 41, "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +Cell[284707, 7359, 228, 4, 36, "Input",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], +Cell[284938, 7365, 28989, 551, 294, "Output",ExpressionUUID->"080e9f45-33ba-4582-abc6-5056a2520d2b"] }, Open ]], Cell[CellGroupData[{ -Cell[266850, 7767, 2219, 64, 348, "Input",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], -Cell[269072, 7833, 342, 6, 26, "Message",ExpressionUUID->"1795c3b9-0182-224c-b986-6414d6712c04"], -Cell[269417, 7841, 342, 6, 26, "Message",ExpressionUUID->"c3b31753-a67f-9b45-b822-068e1df11f68"], -Cell[269762, 7849, 100, 0, 41, "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +Cell[313964, 7921, 234, 6, 61, "Input",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], +Cell[314201, 7929, 167, 2, 41, "Output",ExpressionUUID->"5b43a254-4aae-4dd3-8db8-974311ec98e5"] }, Open ]], Cell[CellGroupData[{ -Cell[269899, 7854, 2221, 64, 348, "Input",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], -Cell[272123, 7920, 342, 6, 26, "Message",ExpressionUUID->"32db1bf6-ba11-cb4a-955a-52e174a44e5f"], -Cell[272468, 7928, 342, 6, 26, "Message",ExpressionUUID->"4e2b22f2-1724-7649-93fc-33cd27bb415e"], -Cell[272813, 7936, 101, 0, 41, "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +Cell[314405, 7936, 1833, 52, 311, "Input",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], +Cell[316241, 7990, 517, 12, 71, "Message",ExpressionUUID->"c5897281-7471-4da9-8854-8a2d314efa91"], +Cell[316761, 8004, 515, 12, 71, "Message",ExpressionUUID->"496473ae-aff0-4676-bab9-77137059c143"], +Cell[317279, 8018, 518, 12, 71, "Message",ExpressionUUID->"b406f811-ebf9-4658-b77c-5d6cce8460d1"], +Cell[317800, 8032, 462, 11, 32, "Message",ExpressionUUID->"b5bfff97-fe6a-4f71-a6c3-e6238a1d2910"], +Cell[318265, 8045, 23689, 437, 290, "Output",ExpressionUUID->"e77e07a1-a8e7-4b62-85b7-698a148f6a03"] }, Open ]], Cell[CellGroupData[{ -Cell[272951, 7941, 215, 6, 60, "Input",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], -Cell[273169, 7949, 104, 0, 41, "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] +Cell[341991, 8487, 1616, 48, 132, "Input",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], +Cell[343610, 8537, 638, 14, 73, "Message",ExpressionUUID->"5cff19c1-d398-4317-a0e2-c4abe46a83b3"], +Cell[344251, 8553, 636, 14, 73, "Message",ExpressionUUID->"8c5a28bd-40b1-4f06-8015-9a27f3998b19"], +Cell[344890, 8569, 637, 14, 73, "Message",ExpressionUUID->"c5739229-5906-4607-875c-d278523aadae"], +Cell[345530, 8585, 464, 11, 32, "Message",ExpressionUUID->"d3f9a845-39d6-44b4-a30a-c7dc483a9067"], +Cell[345997, 8598, 173, 3, 41, "Output",ExpressionUUID->"5db37af7-8158-49ef-8b89-667a3bd61696"] }, Open ]], -Cell[273288, 7952, 247, 5, 36, "Input",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], Cell[CellGroupData[{ -Cell[273560, 7961, 532, 18, 66, "Input",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], -Cell[274095, 7981, 100, 0, 41, "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +Cell[346207, 8606, 2270, 64, 348, "Input",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], +Cell[348480, 8672, 633, 14, 73, "Message",ExpressionUUID->"3a265aa3-a429-41c0-b481-5ef9c6465175"], +Cell[349116, 8688, 636, 14, 73, "Message",ExpressionUUID->"00d04de7-cace-41a3-b3fd-b8e38c431897"], +Cell[349755, 8704, 637, 14, 73, "Message",ExpressionUUID->"9ac19f52-4179-4273-8274-6266a4b18e64"], +Cell[350395, 8720, 464, 11, 32, "Message",ExpressionUUID->"542adf52-b7a8-4a81-883c-e1d64ae51024"], +Cell[350862, 8733, 169, 3, 41, "Output",ExpressionUUID->"ac41db7d-fe04-4645-81b5-a746162791c4"] }, Open ]], Cell[CellGroupData[{ -Cell[274232, 7986, 144, 4, 71, "Input",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], -Cell[274379, 7992, 100, 0, 41, "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +Cell[351068, 8741, 2231, 63, 348, "Input",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], +Cell[353302, 8806, 635, 14, 73, "Message",ExpressionUUID->"e1610611-d6e2-4c75-964d-d761027769c4"], +Cell[353940, 8822, 636, 14, 73, "Message",ExpressionUUID->"8ef77d5d-671e-4bd0-89a0-cf4a88514653"], +Cell[354579, 8838, 639, 14, 73, "Message",ExpressionUUID->"257ae527-2381-46a9-a126-b03dd3bdc1d1"], +Cell[355221, 8854, 464, 11, 32, "Message",ExpressionUUID->"edbdecce-5d1a-4e6d-a5ae-bc9c97ac1467"], +Cell[355688, 8867, 171, 3, 41, "Output",ExpressionUUID->"cf447fe3-bace-49bd-beea-1cd18d9fa717"] }, Open ]], Cell[CellGroupData[{ -Cell[274516, 7997, 155, 4, 55, "Input",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], -Cell[274674, 8003, 100, 0, 41, "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +Cell[355896, 8875, 2233, 63, 348, "Input",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], +Cell[358132, 8940, 634, 14, 73, "Message",ExpressionUUID->"1eb043b6-3428-409c-a100-d0f2ef65719d"], +Cell[358769, 8956, 636, 14, 73, "Message",ExpressionUUID->"ac94697e-5f42-441d-9737-ba93f7ae7ed5"], +Cell[359408, 8972, 637, 14, 73, "Message",ExpressionUUID->"edfa7247-75a0-4184-a11c-af30dcb7fd2d"], +Cell[360048, 8988, 464, 11, 32, "Message",ExpressionUUID->"ff8c0fd0-e246-4e40-af4f-edc55caeb793"], +Cell[360515, 9001, 170, 3, 41, "Output",ExpressionUUID->"b75de50b-e4b7-4880-ac91-26a721a91f3a"] }, Open ]], Cell[CellGroupData[{ -Cell[274811, 8008, 6029, 184, 831, "Input",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], -Cell[280843, 8194, 102, 0, 41, "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +Cell[360722, 9009, 238, 6, 60, "Input",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], +Cell[360963, 9017, 171, 3, 41, "Output",ExpressionUUID->"487f6022-d0f7-4e58-a0d7-106998e33c27"] }, Open ]], +Cell[361149, 9023, 273, 6, 109, "Input",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], Cell[CellGroupData[{ -Cell[280982, 8199, 342, 8, 53, "Input",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], -Cell[281327, 8209, 342, 6, 26, "Message",ExpressionUUID->"def6b331-c871-b04d-a16e-4fc00b03d009"], -Cell[281672, 8217, 99, 0, 41, "Output",ExpressionUUID->"332f8da7-4eec-ed47-b124-edf7e2bf43d7"] +Cell[361447, 9033, 558, 19, 66, "Input",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], +Cell[362008, 9054, 170, 3, 41, "Output",ExpressionUUID->"c0403076-1ad3-4184-b7af-ce33b3948bc9"] }, Open ]], Cell[CellGroupData[{ -Cell[281808, 8222, 6096, 186, 900, "Input",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], -Cell[287907, 8410, 102, 0, 41, "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +Cell[362215, 9062, 170, 5, 71, "Input",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], +Cell[362388, 9069, 172, 3, 41, "Output",ExpressionUUID->"1adeffcb-8be7-44d4-b1df-7b97b87b18a1"] }, Open ]], Cell[CellGroupData[{ -Cell[288046, 8415, 342, 8, 53, "Input",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], -Cell[288391, 8425, 342, 6, 26, "Message",ExpressionUUID->"c6c8676e-4601-144e-b83c-769e22949175"], -Cell[288736, 8433, 100, 0, 41, "Output",ExpressionUUID->"bd9f2dfb-0880-624c-8a61-fa3104084faf"] +Cell[362597, 9077, 181, 5, 55, "Input",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], +Cell[362781, 9084, 171, 3, 41, "Output",ExpressionUUID->"8c03a351-90e2-4a10-999f-ec915d8e06f1"] }, Open ]], Cell[CellGroupData[{ -Cell[288873, 8438, 2637, 87, 435, "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], -Cell[291513, 8527, 101, 0, 41, "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +Cell[362989, 9092, 6055, 185, 831, "Input",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], +Cell[369047, 9279, 173, 3, 41, "Output",ExpressionUUID->"713ad561-71af-4e66-ba72-352304cf7057"] }, Open ]], Cell[CellGroupData[{ -Cell[291651, 8532, 2577, 84, 435, "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], -Cell[294231, 8618, 102, 0, 41, "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +Cell[369257, 9287, 368, 9, 53, "Input",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], +Cell[369628, 9298, 172, 3, 41, "Output",ExpressionUUID->"def8c335-fe28-4b74-bc1c-2b1994405f1a"] }, Open ]], Cell[CellGroupData[{ -Cell[294370, 8623, 3686, 117, 575, "Input",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], -Cell[298059, 8742, 102, 0, 41, "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +Cell[369837, 9306, 6122, 187, 900, "Input",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], +Cell[375962, 9495, 172, 3, 41, "Output",ExpressionUUID->"ef1ad268-c07e-457e-b36f-0bbd7cbf419c"] }, Open ]], Cell[CellGroupData[{ -Cell[298198, 8747, 2052, 59, 276, "Input",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], -Cell[300253, 8808, 342, 6, 26, "Message",ExpressionUUID->"7fd60dea-f794-4744-8801-bfb1a50a0e07"], -Cell[300598, 8816, 342, 6, 26, "Message",ExpressionUUID->"0b8c0718-41d2-4542-8afe-212a15805650"], -Cell[300943, 8824, 101, 0, 41, "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +Cell[376171, 9503, 368, 9, 53, "Input",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], +Cell[376542, 9514, 171, 3, 41, "Output",ExpressionUUID->"8ccd4c4e-d93e-44c7-8047-fb4e663cf3bc"] }, Open ]], Cell[CellGroupData[{ -Cell[301081, 8829, 2054, 59, 276, "Input",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], -Cell[303138, 8890, 342, 6, 26, "Message",ExpressionUUID->"b6f0ccc2-ff83-124b-a341-e143319c7670"], -Cell[303483, 8898, 342, 6, 26, "Message",ExpressionUUID->"d4b50e17-5ee4-384c-b81f-c2a36a80320e"], -Cell[303828, 8906, 100, 0, 41, "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +Cell[376750, 9522, 2663, 88, 435, "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], +Cell[379416, 9612, 171, 3, 41, "Output",ExpressionUUID->"5c291c51-b9de-487b-bede-92fd5cfaedbc"] }, Open ]], Cell[CellGroupData[{ -Cell[303965, 8911, 2030, 55, 232, "Input",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], -Cell[305998, 8968, 342, 6, 26, "Message",ExpressionUUID->"7797a546-4085-124a-83da-5f3c472cdc4c"], -Cell[306343, 8976, 342, 6, 26, "Message",ExpressionUUID->"bf75ebeb-fc95-1d45-8487-ceed40ec633c"], -Cell[306688, 8984, 342, 6, 26, "Message",ExpressionUUID->"ca7472ca-7b27-a54a-84a1-e603fa592207"], -Cell[307033, 8992, 407, 7, 48, "Message",ExpressionUUID->"86b3b7d9-f0e9-0a4b-9079-b341ca597ab4"], -Cell[307443, 9001, 11714, 476, 232, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"f3c0c3aa-fd64-8e41-bc0a-ae36b33a37ec"], -Cell[319160, 9479, 191, 5, 41, "Output",ExpressionUUID->"23cfff6f-2c67-ce46-9cc6-49e8ffb5e8c8"] +Cell[379624, 9620, 2603, 85, 435, "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], +Cell[382230, 9707, 173, 3, 41, "Output",ExpressionUUID->"3bd45807-fbe0-44d1-860c-83363ee023e6"] }, Open ]], Cell[CellGroupData[{ -Cell[319388, 9489, 2118, 60, 311, "Input",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], -Cell[321509, 9551, 342, 6, 26, "Message",ExpressionUUID->"b9265795-17b8-4e47-bd29-fee31586537e"], -Cell[321854, 9559, 342, 6, 26, "Message",ExpressionUUID->"072fb53f-7116-0f41-a298-6891351a3192"], -Cell[322199, 9567, 342, 6, 26, "Message",ExpressionUUID->"7f686ca7-db7f-0b40-bbd8-c08a80d2c198"], -Cell[322544, 9575, 407, 7, 48, "Message",ExpressionUUID->"3aaeaf29-5b60-ab47-b674-24d071c511f8"], -Cell[322954, 9584, 10793, 406, 232, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"fb5ee406-78d5-a849-9c81-3ea500ee883f"], -Cell[333750, 9992, 191, 5, 41, "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-87bc9c72594a"] +Cell[382440, 9715, 3712, 118, 575, "Input",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], +Cell[386155, 9835, 170, 3, 41, "Output",ExpressionUUID->"b889cdbb-06ba-4b41-bdaa-6fca69a6c9f9"] }, Open ]], -Cell[333956, 10000, 209, 5, 36, "Input",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], Cell[CellGroupData[{ -Cell[334190, 10009, 1590, 47, 132, "Input",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], -Cell[335783, 10058, 342, 6, 26, "Message",ExpressionUUID->"52cff8eb-0c77-c944-a54f-e282b00ce766"], -Cell[336128, 10066, 101, 0, 41, "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +Cell[386362, 9843, 2075, 59, 276, "Input",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], +Cell[388440, 9904, 638, 14, 73, "Message",ExpressionUUID->"2ff8ff51-05c1-4c7c-b9d6-12171d943b86"], +Cell[389081, 9920, 638, 14, 73, "Message",ExpressionUUID->"5acbcc87-b2bf-45a3-bc8d-1e6f9d14eada"], +Cell[389722, 9936, 639, 14, 73, "Message",ExpressionUUID->"058ac3f5-6a2f-407e-8b42-8b48237eccbe"], +Cell[390364, 9952, 464, 11, 32, "Message",ExpressionUUID->"a017492f-af15-49d1-9593-6666cde964b4"], +Cell[390831, 9965, 171, 3, 41, "Output",ExpressionUUID->"ec3a69a6-e6f2-4c0c-b215-b89edc8a4e48"] }, Open ]], Cell[CellGroupData[{ -Cell[336266, 10071, 2251, 64, 348, "Input",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], -Cell[338520, 10137, 342, 6, 26, "Message",ExpressionUUID->"cb5a1193-7562-6446-a279-d9f6295d156e"], -Cell[338865, 10145, 342, 6, 26, "Message",ExpressionUUID->"566b0ad4-7f4e-b04f-8294-646ce1913fac"], -Cell[339210, 10153, 101, 0, 41, "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +Cell[391039, 9973, 2077, 59, 276, "Input",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], +Cell[393119, 10034, 636, 14, 73, "Message",ExpressionUUID->"2d914e0d-b47a-423c-b924-8640efa15b35"], +Cell[393758, 10050, 636, 14, 73, "Message",ExpressionUUID->"5825c294-c38e-44d5-8f42-a209e3378a18"], +Cell[394397, 10066, 637, 14, 73, "Message",ExpressionUUID->"da84102d-05a0-4799-b334-43ed2de776dc"], +Cell[395037, 10082, 466, 11, 32, "Message",ExpressionUUID->"84a234fb-1cdb-4cf0-bbbe-f22f6f409370"], +Cell[395506, 10095, 170, 3, 41, "Output",ExpressionUUID->"f380cfab-33f9-4f74-a67a-248c44cb5027"] }, Open ]], Cell[CellGroupData[{ -Cell[339348, 10158, 2220, 64, 348, "Input",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], -Cell[341571, 10224, 342, 6, 26, "Message",ExpressionUUID->"4cd45900-7eb0-6b4b-830a-a339e8117392"], -Cell[341916, 10232, 342, 6, 26, "Message",ExpressionUUID->"0ddcf174-f6c5-2546-b6d3-f17f46d6e8a3"], -Cell[342261, 10240, 101, 0, 41, "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +Cell[395713, 10103, 2053, 55, 232, "Input",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], +Cell[397769, 10160, 20323, 383, 295, "Output",ExpressionUUID->"39568f7c-cb6e-447c-89ee-811a8b53d82d"] }, Open ]], Cell[CellGroupData[{ -Cell[342399, 10245, 2223, 64, 348, "Input",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], -Cell[344625, 10311, 342, 6, 26, "Message",ExpressionUUID->"f702ec8b-e3a1-2f4f-bfef-4278a2688935"], -Cell[344970, 10319, 342, 6, 26, "Message",ExpressionUUID->"61220452-df6a-154e-8b5c-fecd0ab287a1"], -Cell[345315, 10327, 101, 0, 41, "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +Cell[418129, 10548, 2141, 60, 311, "Input",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], +Cell[420273, 10610, 509, 12, 71, "Message",ExpressionUUID->"f791b692-aa30-474c-ab9c-668acef34d5f"], +Cell[420785, 10624, 514, 12, 71, "Message",ExpressionUUID->"c1f6fc74-1dae-472a-afed-5aab99e68e45"], +Cell[421302, 10638, 514, 12, 71, "Message",ExpressionUUID->"aa633aac-02d9-4d77-9983-0811907742c0"], +Cell[421819, 10652, 464, 11, 32, "Message",ExpressionUUID->"b9397acd-4691-4073-8660-777564639317"], +Cell[422286, 10665, 23009, 426, 290, "Output",ExpressionUUID->"af233ae9-69c5-495c-9a0b-00d37ef702a9"] }, Open ]], Cell[CellGroupData[{ -Cell[345453, 10332, 215, 6, 60, "Input",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], -Cell[345671, 10340, 102, 0, 41, "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] +Cell[445332, 11096, 232, 5, 36, "Input",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], +Cell[445567, 11103, 29393, 558, 290, "Output",ExpressionUUID->"ae2ea8e9-4b06-4e80-a5a1-2cf5720d1381"] }, Open ]], -Cell[345788, 10343, 247, 5, 36, "Input",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], Cell[CellGroupData[{ -Cell[346060, 10352, 532, 18, 66, "Input",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], -Cell[346595, 10372, 101, 0, 41, "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +Cell[474997, 11666, 1616, 48, 132, "Input",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], +Cell[476616, 11716, 636, 14, 73, "Message",ExpressionUUID->"373e5c97-c255-4fe3-9c5a-eb877beb2e35"], +Cell[477255, 11732, 637, 14, 73, "Message",ExpressionUUID->"59c450c7-74f7-4068-a5c2-d54e8783adf4"], +Cell[477895, 11748, 638, 14, 73, "Message",ExpressionUUID->"77b5a71d-41f1-4e1d-a342-aee16769176d"], +Cell[478536, 11764, 464, 11, 32, "Message",ExpressionUUID->"2d8d9b6e-0935-49d2-b417-c0a09aa2701a"], +Cell[479003, 11777, 171, 3, 41, "Output",ExpressionUUID->"85a6708f-af3c-48f6-af0b-df78116c6b38"] }, Open ]], Cell[CellGroupData[{ -Cell[346733, 10377, 144, 4, 71, "Input",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], -Cell[346880, 10383, 101, 0, 41, "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +Cell[479211, 11785, 2274, 64, 348, "Input",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], +Cell[481488, 11851, 636, 14, 73, "Message",ExpressionUUID->"e06973e6-83aa-4eb5-bd9b-424855685830"], +Cell[482127, 11867, 638, 14, 73, "Message",ExpressionUUID->"ae06c714-a59f-4678-80b3-218faa231362"], +Cell[482768, 11883, 637, 14, 73, "Message",ExpressionUUID->"b0992260-7e8c-4fe7-a903-fe7929f5c1c8"], +Cell[483408, 11899, 466, 11, 32, "Message",ExpressionUUID->"0b0c9684-fd11-4dbf-9c8f-4d84c63ed563"], +Cell[483877, 11912, 173, 3, 41, "Output",ExpressionUUID->"1c9875f1-610e-42f2-a53c-4a4e26b79119"] }, Open ]], Cell[CellGroupData[{ -Cell[347018, 10388, 155, 4, 55, "Input",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], -Cell[347176, 10394, 100, 0, 41, "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +Cell[484087, 11920, 2232, 63, 348, "Input",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], +Cell[486322, 11985, 638, 14, 73, "Message",ExpressionUUID->"8c8fd314-3648-49e3-af29-d59e9661cef3"], +Cell[486963, 12001, 636, 14, 73, "Message",ExpressionUUID->"8618e6e4-632a-45c5-a9e9-3cf0d26819b6"], +Cell[487602, 12017, 639, 14, 73, "Message",ExpressionUUID->"987c21a8-fdaa-4602-92b9-9048b53bbfa7"], +Cell[488244, 12033, 464, 11, 32, "Message",ExpressionUUID->"81eaa932-6f5c-44a5-9d19-9e3300febeaa"], +Cell[488711, 12046, 170, 3, 41, "Output",ExpressionUUID->"22f7d7ef-2f70-4f4c-8589-df45157b284d"] }, Open ]], Cell[CellGroupData[{ -Cell[347313, 10399, 6029, 184, 831, "Input",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], -Cell[353345, 10585, 102, 0, 41, "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +Cell[488918, 12054, 2235, 63, 348, "Input",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], +Cell[491156, 12119, 638, 14, 73, "Message",ExpressionUUID->"525fa722-3204-4bb7-89fb-dcbbb80152d6"], +Cell[491797, 12135, 636, 14, 73, "Message",ExpressionUUID->"975a3e21-3642-4ba2-a668-b873546904aa"], +Cell[492436, 12151, 637, 14, 73, "Message",ExpressionUUID->"03750d84-ac28-4502-b6a2-1c7b8585b026"], +Cell[493076, 12167, 464, 11, 32, "Message",ExpressionUUID->"dae6840c-b8dd-4b6b-a845-e0b3d64e2af5"], +Cell[493543, 12180, 172, 3, 41, "Output",ExpressionUUID->"9993f5bb-788f-4499-b357-1d08f94542e6"] }, Open ]], Cell[CellGroupData[{ -Cell[353484, 10590, 342, 8, 53, "Input",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], -Cell[353829, 10600, 342, 6, 26, "Message",ExpressionUUID->"4870a5d4-b6fc-9044-ae55-fcbd2b9d41eb"], -Cell[354174, 10608, 100, 0, 41, "Output",ExpressionUUID->"4263cd25-e2b6-5c4b-8834-28c6ca12b863"] +Cell[493752, 12188, 238, 6, 60, "Input",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], +Cell[493993, 12196, 172, 3, 41, "Output",ExpressionUUID->"e06afca8-1808-4902-a998-65e14da5248d"] }, Open ]], +Cell[494180, 12202, 273, 6, 109, "Input",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], Cell[CellGroupData[{ -Cell[354311, 10613, 6096, 186, 900, "Input",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], -Cell[360410, 10801, 102, 0, 41, "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +Cell[494478, 12212, 558, 19, 66, "Input",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], +Cell[495039, 12233, 169, 3, 41, "Output",ExpressionUUID->"d12e3aec-2b33-4c3c-bec8-79eab9bbe847"] }, Open ]], Cell[CellGroupData[{ -Cell[360549, 10806, 342, 8, 53, "Input",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], -Cell[360894, 10816, 342, 6, 26, "Message",ExpressionUUID->"d6f4e6b1-3d45-7649-b7dd-944c4a1de3e4"], -Cell[361239, 10824, 99, 0, 41, "Output",ExpressionUUID->"27fdf87b-577e-d74b-99f1-6a0486be19bc"] +Cell[495245, 12241, 170, 5, 71, "Input",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], +Cell[495418, 12248, 170, 3, 41, "Output",ExpressionUUID->"aa4c221f-67f9-49d3-a942-d7c772d3c1b7"] }, Open ]], Cell[CellGroupData[{ -Cell[361375, 10829, 2637, 87, 435, "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], -Cell[364015, 10918, 101, 0, 41, "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +Cell[495625, 12256, 181, 5, 55, "Input",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], +Cell[495809, 12263, 171, 3, 41, "Output",ExpressionUUID->"53cffe27-b293-4d67-b879-13b17c3469c6"] }, Open ]], Cell[CellGroupData[{ -Cell[364153, 10923, 2577, 84, 435, "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], -Cell[366733, 11009, 102, 0, 41, "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +Cell[496017, 12271, 6055, 185, 831, "Input",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], +Cell[502075, 12458, 175, 3, 41, "Output",ExpressionUUID->"83b47080-e8f1-452d-8d29-9c904a61b140"] }, Open ]], Cell[CellGroupData[{ -Cell[366872, 11014, 3686, 117, 575, "Input",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], -Cell[370561, 11133, 102, 0, 41, "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +Cell[502287, 12466, 368, 9, 53, "Input",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], +Cell[502658, 12477, 171, 3, 41, "Output",ExpressionUUID->"3e5ae2a7-bf64-488a-9004-63a8b516371c"] }, Open ]], Cell[CellGroupData[{ -Cell[370700, 11138, 2054, 59, 276, "Input",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], -Cell[372757, 11199, 342, 6, 26, "Message",ExpressionUUID->"b82c1933-5313-1d4c-a858-68be8f118333"], -Cell[373102, 11207, 342, 6, 26, "Message",ExpressionUUID->"3b3475f7-7db7-054a-b7f5-20d8f7d491bf"], -Cell[373447, 11215, 100, 0, 41, "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +Cell[502866, 12485, 6122, 187, 900, "Input",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], +Cell[508991, 12674, 175, 3, 41, "Output",ExpressionUUID->"00dae37b-2d3c-4f52-8ab7-a76846e40df9"] }, Open ]], Cell[CellGroupData[{ -Cell[373584, 11220, 2054, 59, 276, "Input",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], -Cell[375641, 11281, 342, 6, 26, "Message",ExpressionUUID->"9e0b92f8-7fe2-e84e-89cd-c02c9da3e5b7"], -Cell[375986, 11289, 342, 6, 26, "Message",ExpressionUUID->"56712e4d-1aa7-524a-8254-bcfd8978eea0"], -Cell[376331, 11297, 100, 0, 41, "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +Cell[509203, 12682, 368, 9, 53, "Input",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], +Cell[509574, 12693, 169, 3, 41, "Output",ExpressionUUID->"959414c4-3e12-4afb-b453-f8e4d11354e7"] }, Open ]], Cell[CellGroupData[{ -Cell[376468, 11302, 2030, 55, 232, "Input",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], -Cell[378501, 11359, 342, 6, 26, "Message",ExpressionUUID->"9c6ce535-b42f-3c43-a89e-eda48c04121e"], -Cell[378846, 11367, 342, 6, 26, "Message",ExpressionUUID->"e2ce6bda-7d9b-6149-bf5b-dd4c91908e28"], -Cell[379191, 11375, 342, 6, 26, "Message",ExpressionUUID->"2bed6df2-09cb-4d4d-b247-4fe79fd38fd6"], -Cell[379536, 11383, 407, 7, 48, "Message",ExpressionUUID->"64a64e18-e609-d54b-8225-64fa7909a948"], -Cell[379946, 11392, 11714, 476, 232, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"7758daab-adf8-2a49-9166-50457409d355"], -Cell[391663, 11870, 191, 5, 41, "Output",ExpressionUUID->"4f7705b8-e954-b341-ab6d-8b4ad9ffca61"] +Cell[509780, 12701, 2663, 88, 435, "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], +Cell[512446, 12791, 172, 3, 41, "Output",ExpressionUUID->"bd163e41-1f97-4ca1-82ec-a086de46846e"] }, Open ]], Cell[CellGroupData[{ -Cell[391891, 11880, 2143, 61, 311, "Input",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], -Cell[394037, 11943, 342, 6, 26, "Message",ExpressionUUID->"2059be4f-bbb2-da49-9e23-3fc4d150d7a8"], -Cell[394382, 11951, 342, 6, 26, "Message",ExpressionUUID->"71d4e039-c2b8-d74d-819a-80d2051e4273"], -Cell[394727, 11959, 342, 6, 26, "Message",ExpressionUUID->"63625e13-15ef-1f45-89dc-998a1b63a626"], -Cell[395072, 11967, 407, 7, 48, "Message",ExpressionUUID->"ff96fc2b-5ddb-2142-a985-58ccc6f07e00"], -Cell[395482, 11976, 10793, 406, 232, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"a63f48d3-505f-0a45-b944-e872edd94d6c"], -Cell[406278, 12384, 191, 5, 41, "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-1872f77ea023"] +Cell[512655, 12799, 2603, 85, 435, "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], +Cell[515261, 12886, 171, 3, 41, "Output",ExpressionUUID->"f0ac6f3f-db89-4ebb-8da1-3cbeb259980d"] }, Open ]], -Cell[406484, 12392, 138, 3, 36, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], Cell[CellGroupData[{ -Cell[406647, 12399, 1590, 47, 132, "Input",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], -Cell[408240, 12448, 342, 6, 26, "Message",ExpressionUUID->"2b38d1a8-4a7e-7b4f-8cdd-5298fced63d9"], -Cell[408585, 12456, 101, 0, 41, "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +Cell[515469, 12894, 3712, 118, 575, "Input",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], +Cell[519184, 13014, 172, 3, 41, "Output",ExpressionUUID->"fee8f7e1-b86a-4fe5-a6d9-59e8d5e27a27"] }, Open ]], Cell[CellGroupData[{ -Cell[408723, 12461, 2249, 64, 348, "Input",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], -Cell[410975, 12527, 342, 6, 26, "Message",ExpressionUUID->"905b237c-0e51-ab4b-895d-05994c6f1d5f"], -Cell[411320, 12535, 342, 6, 26, "Message",ExpressionUUID->"7ad8c79e-9570-a44d-b593-07aa87056e21"], -Cell[411665, 12543, 100, 0, 41, "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +Cell[519393, 13022, 2077, 59, 276, "Input",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], +Cell[521473, 13083, 639, 14, 73, "Message",ExpressionUUID->"4068a406-c8f3-4d14-baad-2cec51d3331c"], +Cell[522115, 13099, 635, 14, 73, "Message",ExpressionUUID->"d33e92b3-5548-447f-9128-4d3b3e55fa39"], +Cell[522753, 13115, 635, 14, 73, "Message",ExpressionUUID->"31de785e-2b41-4cdf-bc7a-2afea8bebf50"], +Cell[523391, 13131, 466, 11, 32, "Message",ExpressionUUID->"d12f72ff-d892-4cde-bac6-c32d45e1f7c6"], +Cell[523860, 13144, 171, 3, 41, "Output",ExpressionUUID->"9a9e347a-5af7-4844-9eb6-c969e32dd0f2"] }, Open ]], Cell[CellGroupData[{ -Cell[411802, 12548, 2219, 64, 348, "Input",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], -Cell[414024, 12614, 342, 6, 26, "Message",ExpressionUUID->"c516c31a-74b4-f24d-a16a-678221cde87e"], -Cell[414369, 12622, 342, 6, 26, "Message",ExpressionUUID->"5c50b555-9ebe-f94d-801f-34634555f622"], -Cell[414714, 12630, 99, 0, 41, "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +Cell[524068, 13152, 2077, 59, 276, "Input",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], +Cell[526148, 13213, 637, 14, 73, "Message",ExpressionUUID->"71b5c400-6877-4a0f-ad2a-962e290b63bf"], +Cell[526788, 13229, 636, 14, 73, "Message",ExpressionUUID->"8e8cd069-a5de-48c6-9368-aa19f668dc6b"], +Cell[527427, 13245, 636, 14, 73, "Message",ExpressionUUID->"01b56bf3-ddaa-4952-9bdc-b6e36e43a4fa"], +Cell[528066, 13261, 466, 11, 32, "Message",ExpressionUUID->"98178c6f-8f8d-400e-aed9-dc381c2f7df3"], +Cell[528535, 13274, 170, 3, 41, "Output",ExpressionUUID->"afadd6ca-ed9b-4443-b461-70c2993f9755"] }, Open ]], Cell[CellGroupData[{ -Cell[414850, 12635, 2221, 64, 348, "Input",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], -Cell[417074, 12701, 342, 6, 26, "Message",ExpressionUUID->"7ca591cf-a5ce-ce41-8101-8edfca50e890"], -Cell[417419, 12709, 342, 6, 26, "Message",ExpressionUUID->"cbafd11a-4be0-b541-81e4-e62191ae7695"], -Cell[417764, 12717, 101, 0, 41, "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +Cell[528742, 13282, 2053, 55, 232, "Input",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], +Cell[530798, 13339, 20395, 383, 295, "Output",ExpressionUUID->"0e1f6835-1c62-491f-bd3b-a140b2154e73"] }, Open ]], Cell[CellGroupData[{ -Cell[417902, 12722, 215, 6, 60, "Input",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], -Cell[418120, 12730, 102, 0, 41, "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] +Cell[551230, 13727, 2165, 61, 311, "Input",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], +Cell[553398, 13790, 509, 12, 71, "Message",ExpressionUUID->"a31db12e-c286-47ac-9df3-2ee40c8fcca0"], +Cell[553910, 13804, 511, 12, 71, "Message",ExpressionUUID->"7deb1f03-d14e-4e3b-a749-5e37380a1bea"], +Cell[554424, 13818, 514, 12, 71, "Message",ExpressionUUID->"5e7cefb7-ebc7-4987-a550-390e5120c5ea"], +Cell[554941, 13832, 464, 11, 32, "Message",ExpressionUUID->"12095de7-e3f9-4086-974d-1e040d5c04b2"], +Cell[555408, 13845, 23252, 429, 290, "Output",ExpressionUUID->"aebf583a-c329-41d4-99a6-6b40ae8e9601"] }, Open ]], -Cell[418237, 12733, 185, 4, 36, "Input",ExpressionUUID->"73a1a5fc-e75f-4850-90c9-3c23108da707"] +Cell[CellGroupData[{ +Cell[578697, 14279, 164, 4, 36, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], +Cell[578864, 14285, 29636, 561, 290, "Output",ExpressionUUID->"7eeac140-4e6b-4608-ae3d-23e810ea3aea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[608537, 14851, 1616, 48, 132, "Input",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], +Cell[610156, 14901, 635, 14, 73, "Message",ExpressionUUID->"7be9e2e9-a4fc-4d2c-bba0-30718166e928"], +Cell[610794, 14917, 637, 14, 73, "Message",ExpressionUUID->"4b317836-7048-40db-9f09-d52559cfc2e1"], +Cell[611434, 14933, 638, 14, 73, "Message",ExpressionUUID->"10e64ccc-abd6-48c9-bf24-d692f043ad0d"], +Cell[612075, 14949, 464, 11, 32, "Message",ExpressionUUID->"526cd230-1f2a-423d-823b-1e34e8052e44"], +Cell[612542, 14962, 171, 3, 41, "Output",ExpressionUUID->"9821587a-116c-4122-995a-8b233d5e1bc4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[612750, 14970, 2272, 64, 348, "Input",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], +Cell[615025, 15036, 637, 14, 73, "Message",ExpressionUUID->"3574a68a-0e5f-4d86-ad98-19ab88fe4b90"], +Cell[615665, 15052, 636, 14, 73, "Message",ExpressionUUID->"70b8a188-0793-4890-adff-4214fdc96441"], +Cell[616304, 15068, 636, 14, 73, "Message",ExpressionUUID->"e78821b5-263f-4643-9a30-2d651dab9b87"], +Cell[616943, 15084, 464, 11, 32, "Message",ExpressionUUID->"68179919-4314-4cdf-80b1-95dd3ad5d250"], +Cell[617410, 15097, 171, 3, 41, "Output",ExpressionUUID->"9e578dfd-077c-4d25-a593-bb742e08fd41"] +}, Open ]], +Cell[CellGroupData[{ +Cell[617618, 15105, 2231, 63, 348, "Input",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], +Cell[619852, 15170, 637, 14, 73, "Message",ExpressionUUID->"5ce7c496-89c2-404f-94b1-cf818930fc72"], +Cell[620492, 15186, 636, 14, 73, "Message",ExpressionUUID->"9afe6cb7-da22-4d9f-b052-cd63f7b6368d"], +Cell[621131, 15202, 638, 14, 73, "Message",ExpressionUUID->"2201975e-3e41-4e22-8803-e7637a4efa38"], +Cell[621772, 15218, 464, 11, 32, "Message",ExpressionUUID->"6152d7d1-dcd3-4a21-b729-2aeea509979b"], +Cell[622239, 15231, 171, 3, 41, "Output",ExpressionUUID->"61cef55d-42a2-4da1-bdc4-218bbc934ed2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[622447, 15239, 2233, 63, 348, "Input",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], +Cell[624683, 15304, 637, 14, 73, "Message",ExpressionUUID->"3c717312-10fc-4e5c-bcd2-7889af7c8512"], +Cell[625323, 15320, 636, 14, 73, "Message",ExpressionUUID->"cbc5825a-7525-4bc8-a408-2bba30ea9d0d"], +Cell[625962, 15336, 636, 14, 73, "Message",ExpressionUUID->"9fdc4598-cab1-42af-8f82-e6dcafb4eee9"], +Cell[626601, 15352, 463, 11, 32, "Message",ExpressionUUID->"6399cd43-c66f-43fe-ad59-a340c107f765"], +Cell[627067, 15365, 172, 3, 41, "Output",ExpressionUUID->"1afe9600-b290-4972-be76-dbc5fd4e2b42"] +}, Open ]], +Cell[CellGroupData[{ +Cell[627276, 15373, 238, 6, 60, "Input",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], +Cell[627517, 15381, 172, 3, 41, "Output",ExpressionUUID->"4e06efd1-0f14-4d18-8243-a680a0dd6173"] +}, Open ]], +Cell[627704, 15387, 208, 4, 109, "Input",ExpressionUUID->"73a1a5fc-e75f-4850-90c9-3c23108da707"] } ] *) diff --git a/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_osc_Qw1.nb b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_osc_Qw1.nb index d82a4f8..fb85d81 100755 --- a/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_osc_Qw1.nb +++ b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_osc_Qw1.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 582170, 14508] -NotebookOptionsPosition[ 539911, 13836] -NotebookOutlinePosition[ 540351, 13854] -CellTagsIndexPosition[ 540308, 13851] +NotebookDataLength[ 693450, 16633] +NotebookOptionsPosition[ 650438, 15944] +NotebookOutlinePosition[ 650872, 15962] +CellTagsIndexPosition[ 650829, 15959] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -25,15 +25,14 @@ Cell[BoxData[ CellChangeTimes->{ 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, 3.9920650045886707`*^9, {3.9940727514461927`*^9, 3.994072775295883*^9}}, - CellLabel-> - "In[104]:=",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], + CellLabel->"In[1]:=",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], Cell[BoxData["1.6`"], "Output", CellChangeTimes->{ 3.991320420900818*^9, 3.99379974700918*^9, 3.993800338579624*^9, - 3.9938003856877937`*^9, {3.994072756527327*^9, 3.9940727765701942`*^9}}, - CellLabel-> - "Out[104]=",ExpressionUUID->"94e24c15-15ed-42ef-b22d-c99c75b428ac"] + 3.9938003856877937`*^9, {3.994072756527327*^9, 3.9940727765701942`*^9}, + 3.994250056554325*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"e9c5a080-9ac4-4697-817b-253b23018ad7"] }, Open ]], Cell[CellGroupData[{ @@ -42,15 +41,14 @@ Cell[BoxData[ RowBox[{"A", "=", "240"}]], "Input", CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { 3.993799082059058*^9, 3.9937990826790457`*^9}}, - CellLabel-> - "In[105]:=",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], + CellLabel->"In[2]:=",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], Cell[BoxData["240"], "Output", CellChangeTimes->{ 3.9913196497381973`*^9, 3.993799747282215*^9, 3.99380033885446*^9, - 3.993800385764146*^9, {3.994072756590721*^9, 3.994072776647262*^9}}, - CellLabel-> - "Out[105]=",ExpressionUUID->"34c6b4fd-e68f-4625-8550-5e36e44c38a4"] + 3.993800385764146*^9, {3.994072756590721*^9, 3.994072776647262*^9}, + 3.994250056631672*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"397c87df-eebb-4e93-a43a-6c3282e34d8b"] }, Open ]], Cell[CellGroupData[{ @@ -59,15 +57,14 @@ Cell[BoxData[ RowBox[{"A1", "=", " ", "176"}]], "Input", CellChangeTimes->{ 3.991798961431202*^9, {3.993799246718399*^9, 3.993799247496731*^9}}, - CellLabel-> - "In[106]:=",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], + CellLabel->"In[3]:=",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], Cell[BoxData["176"], "Output", CellChangeTimes->{ 3.9913196497578354`*^9, 3.993799747300477*^9, 3.993800338871715*^9, - 3.993800385779578*^9, {3.994072756603456*^9, 3.9940727766610518`*^9}}, - CellLabel-> - "Out[106]=",ExpressionUUID->"dbd2df9c-4020-409c-9867-a0c2d20e2b21"] + 3.993800385779578*^9, {3.994072756603456*^9, 3.9940727766610518`*^9}, + 3.9942500566430807`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"82143f2a-9697-4a23-a3a0-d92d66b1236f"] }, Open ]], Cell[CellGroupData[{ @@ -75,15 +72,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, - CellLabel-> - "In[107]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], + CellLabel->"In[4]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], Cell[BoxData["0.55`"], "Output", CellChangeTimes->{ 3.991319649777508*^9, 3.993799747316929*^9, 3.993800338888788*^9, - 3.993800385794606*^9, {3.994072756615819*^9, 3.994072776674831*^9}}, - CellLabel-> - "Out[107]=",ExpressionUUID->"a5fcbf1b-c156-4184-973f-48b00dea4a67"] + 3.993800385794606*^9, {3.994072756615819*^9, 3.994072776674831*^9}, + 3.994250056653133*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"3b7af1cd-5349-4f47-9747-944f7d781850"] }, Open ]], Cell[CellGroupData[{ @@ -95,30 +91,28 @@ Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", - CellLabel-> - "In[108]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], + CellLabel->"In[5]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], Cell[BoxData["0.543`"], "Output", CellChangeTimes->{ 3.9913196497965145`*^9, 3.993799747333138*^9, 3.993800338906427*^9, - 3.993800385809697*^9, {3.994072756628705*^9, 3.994072776688608*^9}}, - CellLabel-> - "Out[108]=",ExpressionUUID->"47a65611-78e7-4cc4-a917-8162adf1436d"] + 3.993800385809697*^9, {3.994072756628705*^9, 3.994072776688608*^9}, + 3.994250056662374*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"b158c576-0acb-4d12-a05f-b94c9f357e89"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", - CellLabel-> - "In[109]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], + CellLabel->"In[6]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], Cell[BoxData["0.17`"], "Output", CellChangeTimes->{ 3.9913196498144608`*^9, 3.9937997473490753`*^9, 3.993800338928018*^9, - 3.993800385813496*^9, {3.994072756641103*^9, 3.994072776693177*^9}}, - CellLabel-> - "Out[109]=",ExpressionUUID->"97e4329c-dab4-4920-b7ab-321b28675020"] + 3.993800385813496*^9, {3.994072756641103*^9, 3.994072776693177*^9}, + 3.994250056671479*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"0553dcbf-e72e-4ad8-9cf4-5f04833d6bd3"] }, Open ]], Cell[CellGroupData[{ @@ -129,15 +123,14 @@ Cell[BoxData[ SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}]}]], "Input", CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, - CellLabel-> - "In[110]:=",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], + CellLabel->"In[7]:=",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], Cell[BoxData["6.5007312471204965`"], "Output", CellChangeTimes->{ 3.9913196498225155`*^9, 3.993799747366351*^9, 3.993800338948053*^9, - 3.993800385835421*^9, {3.994072756653392*^9, 3.994072776710863*^9}}, - CellLabel-> - "Out[110]=",ExpressionUUID->"1d5eebbe-896a-446a-a0c9-37de0853e4ed"] + 3.993800385835421*^9, {3.994072756653392*^9, 3.994072776710863*^9}, + 3.994250056683416*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"b6a76a61-2f1a-4815-8039-d6b1d7279a6e"] }, Open ]], Cell[CellGroupData[{ @@ -149,15 +142,14 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", - CellLabel-> - "In[111]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], + CellLabel->"In[8]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], Cell[BoxData["4.64`"], "Output", CellChangeTimes->{ 3.9913196498425236`*^9, 3.993799747384128*^9, 3.993800338968402*^9, - 3.993800385850627*^9, {3.9940727566658983`*^9, 3.994072776724451*^9}}, - CellLabel-> - "Out[111]=",ExpressionUUID->"f305b328-93c2-45a6-a12c-167219928195"] + 3.993800385850627*^9, {3.9940727566658983`*^9, 3.994072776724451*^9}, + 3.9942500566968107`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"7d85cde5-4c7b-4082-91c5-62f6d7883edd"] }, Open ]], Cell[CellGroupData[{ @@ -168,15 +160,13 @@ Cell[BoxData[ 3.991799283179735*^9, {3.9937993186432753`*^9, 3.993799326240513*^9}, { 3.993799364756247*^9, 3.993799370026516*^9}, {3.993799480203456*^9, 3.993799488443741*^9}}, - CellLabel-> - "In[112]:=",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], + CellLabel->"In[9]:=",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], Cell[BoxData["0.7654`"], "Output", CellChangeTimes->{ 3.9937997474107447`*^9, 3.993800338988703*^9, 3.9938003858649893`*^9, { - 3.994072756678184*^9, 3.994072776737771*^9}}, - CellLabel-> - "Out[112]=",ExpressionUUID->"1c91a03e-2c2f-4b0b-9a06-57ddd1d05e12"] + 3.994072756678184*^9, 3.994072776737771*^9}, 3.99425005670681*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"c46ea19b-e28b-4b74-8fcd-434603d6b461"] }, Open ]], Cell[CellGroupData[{ @@ -185,45 +175,41 @@ Cell[BoxData[ RowBox[{"b2", "=", "0.4513"}]], "Input", CellChangeTimes->{ 3.991799280663351*^9, {3.993799372069343*^9, 3.993799377027832*^9}}, - CellLabel-> - "In[113]:=",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], + CellLabel->"In[10]:=",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], Cell[BoxData["0.4513`"], "Output", CellChangeTimes->{ 3.993799747427882*^9, 3.993800339005568*^9, 3.993800385879345*^9, { - 3.9940727566903763`*^9, 3.9940727767497873`*^9}}, - CellLabel-> - "Out[113]=",ExpressionUUID->"fda100fe-3b6e-4eeb-bdae-9dc1a4c08b06"] + 3.9940727566903763`*^9, 3.9940727767497873`*^9}, 3.99425005671612*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"a66f543f-ea84-4668-a783-cde4d8a0a1a3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", - CellLabel-> - "In[114]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], + CellLabel->"In[11]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498927155`*^9, 3.993799747452092*^9, 3.993800339022945*^9, - 3.993800385893304*^9, {3.994072756702078*^9, 3.9940727767611856`*^9}}, - CellLabel-> - "Out[114]=",ExpressionUUID->"bfcc5510-7d9d-42e9-8316-4bfaeeff738c"] + 3.993800385893304*^9, {3.994072756702078*^9, 3.9940727767611856`*^9}, + 3.994250056727332*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"beb7c69a-7688-4334-9117-9495b4210290"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", - CellLabel-> - "In[115]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], + CellLabel->"In[12]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498996067`*^9, 3.993799747468101*^9, 3.993800339041868*^9, - 3.9938003859074306`*^9, {3.9940727567134666`*^9, 3.994072776772606*^9}}, - CellLabel-> - "Out[115]=",ExpressionUUID->"ebcd8444-a303-40cb-a71c-f7dde51f0acd"] + 3.9938003859074306`*^9, {3.9940727567134666`*^9, 3.994072776772606*^9}, + 3.994250056738351*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"eee35442-9579-48a0-abf6-71dbc8de24ea"] }, Open ]], Cell[CellGroupData[{ @@ -247,15 +233,14 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[116]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], + CellLabel->"In[13]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], Cell[BoxData["2.0171665757171935`"], "Output", CellChangeTimes->{ 3.9913197863028755`*^9, 3.9937997474836817`*^9, 3.9938003390596933`*^9, - 3.993800385921398*^9, {3.994072756725263*^9, 3.994072776784317*^9}}, - CellLabel-> - "Out[116]=",ExpressionUUID->"85d7efb5-42c6-431e-9f16-87b72ee509e7"] + 3.993800385921398*^9, {3.994072756725263*^9, 3.994072776784317*^9}, + 3.9942500567522097`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"53a8e5a7-1d10-4948-beb9-18e93c5a8232"] }, Open ]], Cell[CellGroupData[{ @@ -279,15 +264,14 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[117]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], + CellLabel->"In[14]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], Cell[BoxData["1.5074639495621045`"], "Output", CellChangeTimes->{ 3.9913197864610195`*^9, 3.993799747498741*^9, 3.993800339079308*^9, - 3.993800385933773*^9, {3.994072756739362*^9, 3.994072776796445*^9}}, - CellLabel-> - "Out[117]=",ExpressionUUID->"bbef0b26-b735-457f-bb33-de7dba0c6d22"] + 3.993800385933773*^9, {3.994072756739362*^9, 3.994072776796445*^9}, + 3.994250056764497*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"7ead129e-3eaa-4028-be44-193c7e06d71b"] }, Open ]], Cell[CellGroupData[{ @@ -342,15 +326,14 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[118]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], + CellLabel->"In[15]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], Cell[BoxData["0.5126444245586296`"], "Output", CellChangeTimes->{ 3.991319786533783*^9, 3.993799747513342*^9, 3.993800339097157*^9, - 3.993800385946536*^9, {3.994072756750792*^9, 3.9940727768075857`*^9}}, - CellLabel-> - "Out[118]=",ExpressionUUID->"de87a81e-2607-4f13-bb01-2c0aba90ce45"] + 3.993800385946536*^9, {3.994072756750792*^9, 3.9940727768075857`*^9}, + 3.99425005677689*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"748931c5-41ac-450d-8360-8c98bdc3f178"] }, Open ]], Cell[CellGroupData[{ @@ -401,16 +384,15 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[119]:=",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], + CellLabel->"In[16]:=",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], Cell[BoxData[ RowBox[{"-", "0.12490541136574432`"}]], "Output", CellChangeTimes->{ 3.991319786540777*^9, 3.993799747527933*^9, 3.9938003391147947`*^9, - 3.99380038595966*^9, {3.994072756762456*^9, 3.99407277681929*^9}}, - CellLabel-> - "Out[119]=",ExpressionUUID->"51aefba2-747a-43b0-af58-703f550cbf74"] + 3.99380038595966*^9, {3.994072756762456*^9, 3.99407277681929*^9}, + 3.994250056790825*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"9bd4cefc-659f-49b0-8917-e64ff30f23cf"] }, Open ]], Cell[CellGroupData[{ @@ -461,16 +443,15 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[120]:=",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], + CellLabel->"In[17]:=",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], Cell[BoxData[ RowBox[{"-", "0.47786808677187637`"}]], "Output", CellChangeTimes->{ 3.9913197865777817`*^9, 3.993799747543792*^9, 3.993800339132107*^9, - 3.9938003859736147`*^9, {3.994072756774001*^9, 3.994072776830839*^9}}, - CellLabel-> - "Out[120]=",ExpressionUUID->"80411b10-a524-4256-ae6d-7eb634128cf9"] + 3.9938003859736147`*^9, {3.994072756774001*^9, 3.994072776830839*^9}, + 3.994250056805367*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"0dadd5fe-45e5-4a5a-a8a5-79396f434551"] }, Open ]], Cell[CellGroupData[{ @@ -525,45 +506,42 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[121]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], + CellLabel->"In[18]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], Cell[BoxData["0.6637051934091774`"], "Output", CellChangeTimes->{ 3.9913197866129*^9, 3.993799747559553*^9, 3.993800339136161*^9, - 3.993800385987465*^9, {3.994072756786757*^9, 3.994072776842886*^9}}, - CellLabel-> - "Out[121]=",ExpressionUUID->"d4dc706f-4aaf-4ee8-8bbe-12917be0a0b0"] + 3.993800385987465*^9, {3.994072756786757*^9, 3.994072776842886*^9}, + 3.994250056816031*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"5fe328d4-6cb2-41ab-85ee-5cec12935119"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", - CellLabel-> - "In[122]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], + CellLabel->"In[19]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786620775*^9, 3.9937997475753107`*^9, 3.993800339165604*^9, - 3.9938003860010223`*^9, {3.99407275679909*^9, 3.994072776854899*^9}}, - CellLabel-> - "Out[122]=",ExpressionUUID->"c9056f02-2308-447f-98bc-d5a9ab415f34"] + 3.9938003860010223`*^9, {3.99407275679909*^9, 3.994072776854899*^9}, + 3.99425005682728*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"776d1d8b-4466-4753-9d6a-dca0a5567da7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fin", "=", "0.09"}]], "Input", - CellLabel-> - "In[123]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], + CellLabel->"In[20]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], Cell[BoxData["0.09`"], "Output", CellChangeTimes->{ 3.991319786657793*^9, 3.9937997475908947`*^9, 3.993800339182325*^9, - 3.9938003860157137`*^9, {3.9940727568120337`*^9, 3.994072776866831*^9}}, - CellLabel-> - "Out[123]=",ExpressionUUID->"a0ecae6a-e825-42e9-8b47-20cd9c952951"] + 3.9938003860157137`*^9, {3.9940727568120337`*^9, 3.994072776866831*^9}, + 3.9942500568381453`*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"85733896-6b42-4e08-bca1-5b14ca1e1d63"] }, Open ]], Cell[CellGroupData[{ @@ -572,15 +550,14 @@ Cell[BoxData[ RowBox[{"ffin", "=", "0.42"}]], "Input", CellChangeTimes->{{3.9938002062742653`*^9, 3.993800206278376*^9}, { 3.99380037453472*^9, 3.993800374695301*^9}}, - CellLabel-> - "In[124]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], + CellLabel->"In[21]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], Cell[BoxData["0.42`"], "Output", CellChangeTimes->{ 3.9913197866657925`*^9, 3.993799747607007*^9, 3.993800339199224*^9, - 3.9938003860303698`*^9, {3.994072756823955*^9, 3.994072776878458*^9}}, - CellLabel-> - "Out[124]=",ExpressionUUID->"6275e6d7-5668-4e2b-8d65-06dfa4463bf8"] + 3.9938003860303698`*^9, {3.994072756823955*^9, 3.994072776878458*^9}, + 3.994250056848845*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"49f054b6-7a6a-400e-b761-6e05c4d3aa12"] }, Open ]], Cell[CellGroupData[{ @@ -589,31 +566,29 @@ Cell[BoxData[ RowBox[{"fex", "=", RowBox[{"-", "2.59"}]}]], "Input", CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, - CellLabel-> - "In[125]:=",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], + CellLabel->"In[22]:=",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], Cell[BoxData[ RowBox[{"-", "2.59`"}]], "Output", CellChangeTimes->{ 3.9913197866996*^9, 3.993799747623555*^9, 3.9938003392162523`*^9, - 3.993800386045208*^9, {3.994072756835642*^9, 3.994072776890398*^9}}, - CellLabel-> - "Out[125]=",ExpressionUUID->"fd202316-b50e-45f0-a696-992c23b345c9"] + 3.993800386045208*^9, {3.994072756835642*^9, 3.994072776890398*^9}, + 3.9942500568606567`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"16c6c675-e4db-4fba-bac8-ae8c5e3b5ee1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffex", "=", "0.54"}]], "Input", - CellLabel-> - "In[126]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], + CellLabel->"In[23]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], Cell[BoxData["0.54`"], "Output", CellChangeTimes->{ 3.9913197867406044`*^9, 3.9937997476274233`*^9, 3.993800339233366*^9, - 3.993800386060211*^9, {3.994072756847537*^9, 3.994072776902615*^9}}, - CellLabel-> - "Out[126]=",ExpressionUUID->"621b7577-60b5-42e9-9252-17b6fd41cda2"] + 3.993800386060211*^9, {3.994072756847537*^9, 3.994072776902615*^9}, + 3.9942500568729467`*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"6cdce950-5468-469c-836d-d0e39cdee157"] }, Open ]], Cell[CellGroupData[{ @@ -623,15 +598,13 @@ Cell[BoxData[ CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, 3.993799773981587*^9, {3.993800017055696*^9, 3.993800017126395*^9}}, - CellLabel-> - "In[127]:=",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], + CellLabel->"In[24]:=",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], Cell[BoxData["64"], "Output", CellChangeTimes->{ 3.9913197867861958`*^9, 3.993800339250176*^9, 3.993800386074368*^9, { - 3.994072756859651*^9, 3.994072776915943*^9}}, - CellLabel-> - "Out[127]=",ExpressionUUID->"6fcfbaf4-17d2-4f89-90bf-ce095803ba59"] + 3.994072756859651*^9, 3.994072776915943*^9}, 3.994250056885191*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"5a0f2e62-6d7b-456a-bb0c-4ad25d006629"] }, Open ]], Cell[CellGroupData[{ @@ -641,15 +614,14 @@ Cell[BoxData[ RowBox[{"92", "-", "Z1"}]}]], "Input", CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, 3.9916443064841423`*^9}, - CellLabel-> - "In[128]:=",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], + CellLabel->"In[25]:=",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], Cell[BoxData["28"], "Output", CellChangeTimes->{ 3.9913197867928696`*^9, 3.993799747743443*^9, 3.993800339268099*^9, - 3.993800386088282*^9, {3.994072756878846*^9, 3.994072776927128*^9}}, - CellLabel-> - "Out[128]=",ExpressionUUID->"bcd6ff18-77da-47f9-a949-6c529fbb0b7f"] + 3.993800386088282*^9, {3.994072756878846*^9, 3.994072776927128*^9}, + 3.994250056894478*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"af77b81b-ecae-46bb-879d-b004c260758d"] }, Open ]], Cell[CellGroupData[{ @@ -658,15 +630,14 @@ Cell[BoxData[ RowBox[{"A2", "=", RowBox[{"A", "-", "A1"}]}]], "Input", CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, - CellLabel-> - "In[129]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], + CellLabel->"In[26]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], Cell[BoxData["64"], "Output", CellChangeTimes->{ 3.991319786827894*^9, 3.993799747762579*^9, 3.9938003392862883`*^9, - 3.993800386103376*^9, {3.994072756893341*^9, 3.994072776939496*^9}}, - CellLabel-> - "Out[129]=",ExpressionUUID->"306d9daa-aba8-4c99-9fcb-3c785ffd21a2"] + 3.993800386103376*^9, {3.994072756893341*^9, 3.994072776939496*^9}, + 3.994250056906168*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"2da0af26-706f-49df-8c41-3d10eb73c76a"] }, Open ]], Cell[CellGroupData[{ @@ -681,15 +652,14 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[130]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], + CellLabel->"In[27]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], Cell[BoxData["0.10431818181818181`"], "Output", CellChangeTimes->{ 3.9913197868648605`*^9, 3.993799747778633*^9, 3.993800339303063*^9, - 3.993800386118601*^9, {3.9940727569059267`*^9, 3.994072776951536*^9}}, - CellLabel-> - "Out[130]=",ExpressionUUID->"824e14a7-cf15-440e-a928-531c177ca4e3"] + 3.993800386118601*^9, {3.9940727569059267`*^9, 3.994072776951536*^9}, + 3.9942500569183598`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"ccf3159e-f96d-4122-b395-ef015946202a"] }, Open ]], Cell[CellGroupData[{ @@ -704,16 +674,15 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[131]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], + CellLabel->"In[28]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], Cell[BoxData[ RowBox[{"-", "2.571590909090909`"}]], "Output", CellChangeTimes->{ 3.9913197868718567`*^9, 3.993799747795951*^9, 3.993800339319376*^9, - 3.993800386134354*^9, {3.9940727569175262`*^9, 3.994072776962891*^9}}, - CellLabel-> - "Out[131]=",ExpressionUUID->"2f69038c-0c9f-4208-9d2e-7081c8d216e5"] + 3.993800386134354*^9, {3.9940727569175262`*^9, 3.994072776962891*^9}, + 3.994250056926898*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"6796db9b-114b-4971-b8f0-fd1e2715bc48"] }, Open ]], Cell[CellGroupData[{ @@ -744,15 +713,14 @@ Cell[BoxData[ CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, - CellLabel-> - "In[132]:=",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], + CellLabel->"In[29]:=",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], Cell[BoxData["16.821909430837295`"], "Output", CellChangeTimes->{ 3.9913197869068584`*^9, 3.993799747812237*^9, 3.993800339336598*^9, - 3.9938003861388483`*^9, {3.994072756929346*^9, 3.994072776974725*^9}}, - CellLabel-> - "Out[132]=",ExpressionUUID->"05103a52-ae49-4d47-9e41-3dea2643cdf0"] + 3.9938003861388483`*^9, {3.994072756929346*^9, 3.994072776974725*^9}, + 3.994250056939205*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"352f4874-c794-4afd-8bfc-bff05210b716"] }, Open ]], Cell[CellGroupData[{ @@ -760,15 +728,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, - CellLabel-> - "In[133]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], + CellLabel->"In[30]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786940857*^9, 3.9937997478307247`*^9, 3.993800339353257*^9, - 3.993800386159964*^9, {3.994072756940832*^9, 3.994072776986273*^9}}, - CellLabel-> - "Out[133]=",ExpressionUUID->"9717cddc-adb7-4646-a989-2f54b642e808"] + 3.993800386159964*^9, {3.994072756940832*^9, 3.994072776986273*^9}, + 3.9942500569488287`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"ed7a5e22-dac5-40d8-b7e9-9e523861f63d"] }, Open ]], Cell[CellGroupData[{ @@ -778,21 +745,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { 3.9937993902853117`*^9, 3.993799392293758*^9}}, - CellLabel-> - "In[134]:=",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], + CellLabel->"In[31]:=",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], Cell[BoxData["1.25`"], "Output", CellChangeTimes->{ 3.9937997478713713`*^9, 3.993800339369935*^9, 3.9938003861811666`*^9, { - 3.9940727569525537`*^9, 3.9940727769978867`*^9}}, - CellLabel-> - "Out[134]=",ExpressionUUID->"a976d659-e2bd-4e09-8b89-1ee26dda7f42"] + 3.9940727569525537`*^9, 3.9940727769978867`*^9}, 3.994250056957513*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"068dc6b7-3502-4730-87e4-341364d119ab"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, - CellLabel-> - "In[135]:=",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], + CellLabel->"In[32]:=",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], Cell[CellGroupData[{ @@ -801,21 +765,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { 3.993799395152514*^9, 3.9937993965162697`*^9}}, - CellLabel-> - "In[136]:=",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], + CellLabel->"In[33]:=",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], Cell[BoxData["0.85`"], "Output", CellChangeTimes->{ 3.993799747898118*^9, 3.993800339418215*^9, 3.993800386208997*^9, { - 3.99407275696742*^9, 3.9940727770129023`*^9}}, - CellLabel-> - "Out[136]=",ExpressionUUID->"75da548b-3511-400e-9d96-35c7d4342106"] + 3.99407275696742*^9, 3.9940727770129023`*^9}, 3.994250056971631*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"9ce70e4a-7fbe-4adb-ae38-fb1ed983e693"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, - CellLabel-> - "In[137]:=",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], + CellLabel->"In[34]:=",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], Cell[CellGroupData[{ @@ -824,21 +785,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { 3.993799398824368*^9, 3.9937994002405863`*^9}}, - CellLabel-> - "In[138]:=",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], + CellLabel->"In[35]:=",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], Cell[BoxData["2.3`"], "Output", CellChangeTimes->{ 3.993799747923098*^9, 3.993800339511382*^9, 3.993800386234042*^9, { - 3.994072756981262*^9, 3.994072777026493*^9}}, - CellLabel-> - "Out[138]=",ExpressionUUID->"686bd0f6-bdc3-4da0-8cca-3b5f77a88873"] + 3.994072756981262*^9, 3.994072777026493*^9}, 3.994250056986658*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"c9f2c44d-6d12-4c43-b3be-0abb40c6886e"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, - CellLabel-> - "In[139]:=",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], + CellLabel->"In[36]:=",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], Cell[CellGroupData[{ @@ -847,21 +805,18 @@ Cell[BoxData[ CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, 3.991799359954439*^9, {3.993799403099743*^9, 3.9937994038178663`*^9}}, - CellLabel-> - "In[140]:=",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], + CellLabel->"In[37]:=",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], Cell[BoxData["1.1`"], "Output", CellChangeTimes->{ 3.9937997479459248`*^9, 3.99380033956159*^9, 3.9938003862601*^9, { - 3.994072756995009*^9, 3.99407277703996*^9}}, - CellLabel-> - "Out[140]=",ExpressionUUID->"c11ba0c3-7772-46e5-ad50-906fbaafbe7b"] + 3.994072756995009*^9, 3.99407277703996*^9}, 3.994250057005291*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"d050c4c0-14fc-4fe8-ab41-e45dde900681"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, - CellLabel-> - "In[141]:=",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], + CellLabel->"In[38]:=",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], Cell[CellGroupData[{ @@ -870,21 +825,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, 3.991718016467348*^9, 3.991799361414671*^9, {3.993799407392029*^9, 3.993799410650194*^9}}, - CellLabel-> - "In[142]:=",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], + CellLabel->"In[39]:=",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], Cell[BoxData["0.8664`"], "Output", CellChangeTimes->{ 3.993799747968698*^9, 3.993800339671721*^9, 3.9938003862845907`*^9, { - 3.994072757008773*^9, 3.994072777054493*^9}}, - CellLabel-> - "Out[142]=",ExpressionUUID->"c647f70a-b688-4a8d-a4dd-df2724b43ebe"] + 3.994072757008773*^9, 3.994072777054493*^9}, 3.994250057022772*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"be66a499-9bb9-4308-9e94-eff8a3177204"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, - CellLabel-> - "In[143]:=",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], + CellLabel->"In[40]:=",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], Cell[CellGroupData[{ @@ -893,21 +845,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9937994136330442`*^9, 3.993799417576207*^9}}, - CellLabel-> - "In[144]:=",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], + CellLabel->"In[41]:=",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], Cell[BoxData["0.5924`"], "Output", CellChangeTimes->{ 3.993799747991611*^9, 3.9938003397687387`*^9, 3.993800386310059*^9, { - 3.994072757022612*^9, 3.994072777068264*^9}}, - CellLabel-> - "Out[144]=",ExpressionUUID->"9e5467f4-e36f-4faf-a4b4-b30d06dfea33"] + 3.994072757022612*^9, 3.994072777068264*^9}, 3.994250057037284*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"14dacf9c-2020-4796-81f8-bc1ac3b08374"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, - CellLabel-> - "In[145]:=",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], + CellLabel->"In[42]:=",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], Cell[CellGroupData[{ @@ -916,21 +865,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.993799421955809*^9, 3.993799423886447*^9}}, - CellLabel-> - "In[146]:=",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], + CellLabel->"In[43]:=",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], Cell[BoxData["1.888`"], "Output", CellChangeTimes->{ 3.993799748012844*^9, 3.993800339865109*^9, 3.993800386335606*^9, { - 3.9940727570366488`*^9, 3.9940727770819397`*^9}}, - CellLabel-> - "Out[146]=",ExpressionUUID->"83451b91-1add-4e1e-8225-c36d23119085"] + 3.9940727570366488`*^9, 3.9940727770819397`*^9}, 3.994250057053808*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"f5deefc2-f9e7-485c-a438-6b49c7bcad08"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, - CellLabel-> - "In[147]:=",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], + CellLabel->"In[44]:=",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], Cell[CellGroupData[{ @@ -938,21 +884,18 @@ Cell[BoxData[ RowBox[{"nn2", "=", "0.6347"}]], "Input", CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, 3.9917993660901737`*^9, {3.993799431418026*^9, 3.9937994366447783`*^9}}, - CellLabel-> - "In[148]:=",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], + CellLabel->"In[45]:=",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], Cell[BoxData["0.6347`"], "Output", CellChangeTimes->{ 3.99379974807285*^9, 3.993800339960155*^9, 3.9938003863606977`*^9, { - 3.99407275705245*^9, 3.994072777095529*^9}}, - CellLabel-> - "Out[148]=",ExpressionUUID->"f16c35f8-b1da-4a2a-81db-e8cd6ce2e9c3"] + 3.99407275705245*^9, 3.994072777095529*^9}, 3.994250057071372*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"e0be9090-de64-4d24-b4f6-4e9f0f6843c3"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, - CellLabel-> - "In[149]:=",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], + CellLabel->"In[46]:=",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ @@ -1441,15 +1384,14 @@ uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== "], - CellLabel-> - "In[150]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], + CellLabel->"In[47]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], Cell[BoxData["0.33523276963055626`"], "Output", CellChangeTimes->{ 3.991319787430073*^9, 3.9937997481547623`*^9, 3.993800340061625*^9, - 3.9938003864136953`*^9, {3.994072757136285*^9, 3.994072777132966*^9}}, - CellLabel-> - "Out[150]=",ExpressionUUID->"24bf1676-9ab3-470d-bab8-a4072821b221"] + 3.9938003864136953`*^9, {3.994072757136285*^9, 3.994072777132966*^9}, + 3.994250057184284*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"aa661d9e-a512-41f3-ad47-89b0d9994b07"] }, Open ]], Cell[CellGroupData[{ @@ -1943,15 +1885,14 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[151]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], + CellLabel->"In[48]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], Cell[BoxData["10.264944924096582`"], "Output", CellChangeTimes->{ 3.991319787574972*^9, 3.9937997481878023`*^9, 3.993800340089472*^9, - 3.993800386441668*^9, {3.994072757163142*^9, 3.9940727771627817`*^9}}, - CellLabel-> - "Out[151]=",ExpressionUUID->"a5a56533-b42d-4c08-b398-413febf46f24"] + 3.993800386441668*^9, {3.994072757163142*^9, 3.9940727771627817`*^9}, + 3.994250057239394*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"e5f78021-a4df-436d-95d1-e8b5b206b480"] }, Open ]], Cell[CellGroupData[{ @@ -2439,16 +2380,15 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[152]:=",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], + CellLabel->"In[49]:=",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], Cell[BoxData[ RowBox[{"-", "28.42814742925769`"}]], "Output", CellChangeTimes->{ 3.991319787641424*^9, 3.993799748217864*^9, 3.993800340114811*^9, - 3.993800386467917*^9, {3.99407275718851*^9, 3.994072777190625*^9}}, - CellLabel-> - "Out[152]=",ExpressionUUID->"7090bf69-d4a2-443b-a14c-e0170b6e974f"] + 3.993800386467917*^9, {3.99407275718851*^9, 3.994072777190625*^9}, + 3.9942500634376574`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"1c89ed84-0986-4bcc-a12a-c3e7173aed7b"] }, Open ]], Cell[CellGroupData[{ @@ -3006,16 +2946,15 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[153]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], + CellLabel->"In[50]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], Cell[BoxData[ RowBox[{"-", "38.363033654277935`"}]], "Output", CellChangeTimes->{ 3.991319787711939*^9, 3.9937997482559977`*^9, 3.993800340146491*^9, - 3.993800386499661*^9, {3.9940727572190027`*^9, 3.994072777223873*^9}}, - CellLabel-> - "Out[153]=",ExpressionUUID->"82f7adc0-ad6a-4da5-b6b8-71696671b25f"] + 3.993800386499661*^9, {3.9940727572190027`*^9, 3.994072777223873*^9}, + 3.9942500638668756`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"a88b89db-b70f-404a-a984-8f7ec24cebb0"] }, Open ]], Cell[CellGroupData[{ @@ -3573,16 +3512,15 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[154]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], + CellLabel->"In[51]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], Cell[BoxData[ RowBox[{"-", "84.97316533656249`"}]], "Output", CellChangeTimes->{ 3.9913197877723045`*^9, 3.993799748294525*^9, 3.993800340178175*^9, - 3.9938003865308523`*^9, {3.994072757249708*^9, 3.994072777255313*^9}}, - CellLabel-> - "Out[154]=",ExpressionUUID->"8d9ff143-d15f-4a08-94a6-4836b6b37e8b"] + 3.9938003865308523`*^9, {3.994072757249708*^9, 3.994072777255313*^9}, + 3.9942500639640217`*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"8569a22c-f0c4-4df1-af15-17fcbc1c0e24"] }, Open ]], Cell[CellGroupData[{ @@ -4213,46 +4151,43 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[155]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], + CellLabel->"In[52]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], Cell[BoxData[ RowBox[{"-", "228.76196692780508`"}]], "Output", CellChangeTimes->{ 3.991319787833355*^9, 3.993799748333426*^9, 3.9938003402193203`*^9, - 3.9938003865686073`*^9, {3.9940727572851143`*^9, 3.9940727772935343`*^9}}, - CellLabel-> - "Out[155]=",ExpressionUUID->"73edef2c-fe9c-4740-9272-e05a31f0b0c1"] + 3.9938003865686073`*^9, {3.9940727572851143`*^9, 3.9940727772935343`*^9}, + 3.994250064067021*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"cf80172e-ebfc-4077-8a84-33097fe4a062"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U21", "=", "0"}]], "Input", - CellLabel-> - "In[156]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], + CellLabel->"In[53]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210013676`*^9, 3.993799748353148*^9, 3.993800340246324*^9, - 3.993800386583934*^9, {3.99407275729825*^9, 3.994072777306653*^9}}, - CellLabel-> - "Out[156]=",ExpressionUUID->"0e7d21aa-f6ea-42a1-8713-c09a58494dce"] + 3.993800386583934*^9, {3.99407275729825*^9, 3.994072777306653*^9}, + 3.994250064094136*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"b175dcf0-323e-4b3f-9d78-5495f1717460"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U22", "=", "0"}]], "Input", - CellLabel-> - "In[157]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], + CellLabel->"In[54]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210355663`*^9, 3.993799748372961*^9, 3.9938003402680492`*^9, - 3.993800386599262*^9, {3.99407275730969*^9, 3.994072777318306*^9}}, - CellLabel-> - "Out[157]=",ExpressionUUID->"8d5e02aa-6813-4889-a666-1b20d97caa96"] + 3.993800386599262*^9, {3.99407275730969*^9, 3.994072777318306*^9}, + 3.994250064110553*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"8d7cc528-7b72-424a-9ded-230b8b6f8408"] }, Open ]], Cell[CellGroupData[{ @@ -4296,15 +4231,14 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[158]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], + CellLabel->"In[55]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], Cell[BoxData["185.79450939883742`"], "Output", CellChangeTimes->{ 3.991320421068556*^9, 3.9937997483941936`*^9, 3.9938003402909203`*^9, - 3.99380038661649*^9, {3.9940727573211393`*^9, 3.994072777330056*^9}}, - CellLabel-> - "Out[158]=",ExpressionUUID->"304f2f9b-7ec3-4527-b6c1-bb96feb7af31"] + 3.99380038661649*^9, {3.9940727573211393`*^9, 3.994072777330056*^9}, + 3.994250064128365*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"edaf601b-a33d-448f-b962-e0066b5d9059"] }, Open ]], Cell[CellGroupData[{ @@ -4344,16 +4278,15 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[159]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], + CellLabel->"In[56]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], Cell[BoxData[ RowBox[{"-", "142.60312447586276`"}]], "Output", CellChangeTimes->{ 3.991320421098543*^9, 3.9937997484173307`*^9, 3.993800340312326*^9, - 3.993800386633136*^9, {3.99407275733285*^9, 3.994072777341887*^9}}, - CellLabel-> - "Out[159]=",ExpressionUUID->"b5727e7d-f109-48b8-9e98-5cb10510018b"] + 3.993800386633136*^9, {3.99407275733285*^9, 3.994072777341887*^9}, + 3.994250064143477*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"cb039a10-5a80-4d53-9448-4ec95a3cc715"] }, Open ]], Cell[CellGroupData[{ @@ -4397,101 +4330,94 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[160]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], + CellLabel->"In[57]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], Cell[BoxData["169.9317606773619`"], "Output", CellChangeTimes->{ 3.9913204211275444`*^9, 3.993799748440692*^9, 3.993800340332926*^9, - 3.99380038664979*^9, {3.994072757344488*^9, 3.994072777353434*^9}}, - CellLabel-> - "Out[160]=",ExpressionUUID->"c5ef29a0-f5f2-4b07-97a1-4d0ad850603c"] + 3.99380038664979*^9, {3.994072757344488*^9, 3.994072777353434*^9}, + 3.9942500641569567`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"c4a69b1f-aa79-4ddf-8df3-3a89aa9fa63c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c11"], "Input", - CellLabel-> - "In[161]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], + CellLabel->"In[58]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], Cell[BoxData["0.5126444245586296`"], "Output", CellChangeTimes->{ 3.9913204211385536`*^9, 3.9937997484629087`*^9, 3.9938003403521013`*^9, - 3.9938003866670628`*^9, {3.994072757355731*^9, 3.994072777364881*^9}}, - CellLabel-> - "Out[161]=",ExpressionUUID->"b2a4a37d-3b40-4b2a-80e4-a18c24971af6"] + 3.9938003866670628`*^9, {3.994072757355731*^9, 3.994072777364881*^9}, + 3.994250064173704*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"80a514ae-7e40-4b29-8538-318112798c8c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c12"], "Input", - CellLabel-> - "In[162]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], + CellLabel->"In[59]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], Cell[BoxData[ RowBox[{"-", "0.12490541136574432`"}]], "Output", CellChangeTimes->{ 3.9913204211683464`*^9, 3.9937997484829597`*^9, 3.993800340372787*^9, - 3.993800386684751*^9, {3.994072759775218*^9, 3.994072777376302*^9}}, - CellLabel-> - "Out[162]=",ExpressionUUID->"1fdd8886-dd02-4a9c-bedb-4c9f675feaf9"] + 3.993800386684751*^9, {3.994072759775218*^9, 3.994072777376302*^9}, + 3.994250064189454*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"40f49008-5b1e-4266-803b-79e7df3565df"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c21"], "Input", - CellLabel-> - "In[163]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], + CellLabel->"In[60]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], Cell[BoxData[ RowBox[{"-", "0.47786808677187637`"}]], "Output", CellChangeTimes->{ 3.991320421199068*^9, 3.993799748505329*^9, 3.9938003403919477`*^9, - 3.9938003866995373`*^9, {3.9940727599543447`*^9, 3.9940727773879633`*^9}}, - CellLabel-> - "Out[163]=",ExpressionUUID->"4ac25051-2951-4324-b55c-ca42548f6236"] + 3.9938003866995373`*^9, {3.9940727599543447`*^9, 3.9940727773879633`*^9}, + 3.994250064201024*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"101dc0cf-3d2b-4a6b-aa6d-bbf7af55b81a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c22"], "Input", - CellLabel-> - "In[164]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], + CellLabel->"In[61]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], Cell[BoxData["0.6637051934091774`"], "Output", CellChangeTimes->{ 3.991320421228037*^9, 3.99379974852349*^9, 3.993800340409604*^9, - 3.993800386721094*^9, {3.994072759966642*^9, 3.994072777399509*^9}}, - CellLabel-> - "Out[164]=",ExpressionUUID->"ac238231-35aa-4022-a65d-a6c0331a1fc9"] + 3.993800386721094*^9, {3.994072759966642*^9, 3.994072777399509*^9}, + 3.9942500642172537`*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"a6509134-2782-4e65-8706-0e4e2817bc54"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w1"], "Input", - CellLabel-> - "In[165]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], + CellLabel->"In[62]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], Cell[BoxData["2.0171665757171935`"], "Output", CellChangeTimes->{ 3.9913204212585373`*^9, 3.993799748542218*^9, 3.993800340426003*^9, - 3.9938003867354116`*^9, {3.9940727599787703`*^9, 3.9940727774113617`*^9}}, - CellLabel-> - "Out[165]=",ExpressionUUID->"87fc3d15-0ac2-40f8-95c1-138b2b1ff3ee"] + 3.9938003867354116`*^9, {3.9940727599787703`*^9, 3.9940727774113617`*^9}, + 3.9942500642343473`*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"5b83d82c-a34d-4957-ba07-67962862fb95"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w2"], "Input", - CellLabel-> - "In[166]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], + CellLabel->"In[63]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], Cell[BoxData["1.5074639495621045`"], "Output", CellChangeTimes->{ 3.9913204212884274`*^9, 3.9937997485616417`*^9, 3.99380034044471*^9, - 3.9938003867502003`*^9, {3.9940727599906197`*^9, 3.994072777422779*^9}}, - CellLabel-> - "Out[166]=",ExpressionUUID->"d53c3899-6850-4495-b82b-ee9c3391dede"] + 3.9938003867502003`*^9, {3.9940727599906197`*^9, 3.994072777422779*^9}, + 3.9942500642511673`*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"6112c26b-aa46-4d0f-ad6b-216afeb0d3b4"] }, Open ]], Cell[CellGroupData[{ @@ -4512,16 +4438,15 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", - CellLabel-> - "In[167]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], + CellLabel->"In[64]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], Cell[BoxData[ RowBox[{"-", "30.893583323663808`"}]], "Output", CellChangeTimes->{ 3.9913204213185234`*^9, 3.993799748579701*^9, 3.9938003404617233`*^9, - 3.993800386765017*^9, {3.994072760002514*^9, 3.994072777434401*^9}}, - CellLabel-> - "Out[167]=",ExpressionUUID->"6d9e1fa3-36a8-4642-a7eb-a0ba0a958bd2"] + 3.993800386765017*^9, {3.994072760002514*^9, 3.994072777434401*^9}, + 3.9942500642683573`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"bd394ce7-3fcc-45ac-922d-17edec164b9e"] }, Open ]], Cell[CellGroupData[{ @@ -4542,16 +4467,15 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", - CellLabel-> - "In[168]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], + CellLabel->"In[65]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], Cell[BoxData[ RowBox[{"-", "7.926031139913374`"}]], "Output", CellChangeTimes->{ 3.991320421349531*^9, 3.993799748598835*^9, 3.993800340479863*^9, - 3.9938003867807913`*^9, {3.994072760013989*^9, 3.994072777446135*^9}}, - CellLabel-> - "Out[168]=",ExpressionUUID->"63d99693-0899-482b-9902-afbfffff917e"] + 3.9938003867807913`*^9, {3.994072760013989*^9, 3.994072777446135*^9}, + 3.9942500642816753`*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"f7811b74-9077-4c54-a55e-d1d9224155b3"] }, Open ]], Cell[CellGroupData[{ @@ -4616,15 +4540,14 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[169]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], + CellLabel->"In[66]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], Cell[BoxData["154.9009260751736`"], "Output", CellChangeTimes->{ 3.9913204213784294`*^9, 3.993799748618464*^9, 3.993800340498665*^9, - 3.993800386794903*^9, {3.994072760026211*^9, 3.994072777457891*^9}}, - CellLabel-> - "Out[169]=",ExpressionUUID->"067911fb-c5c8-429b-990d-d374b4471d63"] + 3.993800386794903*^9, {3.994072760026211*^9, 3.994072777457891*^9}, + 3.994250064294598*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"910d8f99-9cfe-4984-9208-8331b6db502a"] }, Open ]], Cell[CellGroupData[{ @@ -4665,16 +4588,15 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[170]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], + CellLabel->"In[67]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], Cell[BoxData[ RowBox[{"-", "142.60312447586276`"}]], "Output", CellChangeTimes->{ 3.9913204213904285`*^9, 3.993799748639475*^9, 3.993800340517002*^9, - 3.993800386808839*^9, {3.9940727600400333`*^9, 3.994072777469482*^9}}, - CellLabel-> - "Out[170]=",ExpressionUUID->"f68847f9-3ffc-44f5-a197-5818cc33be7f"] + 3.993800386808839*^9, {3.9940727600400333`*^9, 3.994072777469482*^9}, + 3.9942500643061323`*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"72736822-2558-445f-9868-603921abd03d"] }, Open ]], Cell[CellGroupData[{ @@ -4740,15 +4662,14 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[171]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], + CellLabel->"In[68]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], Cell[BoxData["162.00572953744853`"], "Output", CellChangeTimes->{ 3.991320421419428*^9, 3.993799748660536*^9, 3.993800340536582*^9, - 3.993800386822714*^9, {3.994072760046308*^9, 3.994072777481387*^9}}, - CellLabel-> - "Out[171]=",ExpressionUUID->"c766c24b-4933-40c3-a8ce-1636774176f5"] + 3.993800386822714*^9, {3.994072760046308*^9, 3.994072777481387*^9}, + 3.994250064320724*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"bfd3dcb8-8ab8-4185-9d41-59b40a20be40"] }, Open ]], Cell[CellGroupData[{ @@ -4808,15 +4729,14 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}], ")"}]}], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[172]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], + CellLabel->"In[69]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], Cell[BoxData["110.13261932733474`"], "Output", CellChangeTimes->{ 3.9913204214494324`*^9, 3.993799748682187*^9, 3.9938003405568943`*^9, - 3.993800386836596*^9, {3.994072760058202*^9, 3.994072777493164*^9}}, - CellLabel-> - "Out[172]=",ExpressionUUID->"553e3a4b-9a4c-405c-ae56-9dc4bff35cef"] + 3.993800386836596*^9, {3.994072760058202*^9, 3.994072777493164*^9}, + 3.994250064340269*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"825ce429-b5fb-442c-a5be-b7040d7c6ff2"] }, Open ]], Cell[CellGroupData[{ @@ -4874,15 +4794,14 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[173]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], + CellLabel->"In[70]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], Cell[BoxData["1014.9570765717414`"], "Output", CellChangeTimes->{ 3.991320421481529*^9, 3.993799748705882*^9, 3.9938003405772467`*^9, - 3.993800386850522*^9, {3.994072760069648*^9, 3.994072777505143*^9}}, - CellLabel-> - "Out[173]=",ExpressionUUID->"88b47c8f-864f-4741-9959-7c305d37c86d"] + 3.993800386850522*^9, {3.994072760069648*^9, 3.994072777505143*^9}, + 3.994250064365646*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"22d64310-4eb3-419e-9818-a66d795d98f8"] }, Open ]], Cell[CellGroupData[{ @@ -4891,21 +4810,18 @@ Cell[BoxData[ RowBox[{"f1", "=", "0.81753"}]], "Input", CellChangeTimes->{ 3.991799412462593*^9, {3.993799503612987*^9, 3.9937995102520323`*^9}}, - CellLabel-> - "In[174]:=",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], + CellLabel->"In[71]:=",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], Cell[BoxData["0.81753`"], "Output", CellChangeTimes->{ 3.993799748759857*^9, 3.9938003405956182`*^9, 3.993800386864108*^9, { - 3.9940727600826902`*^9, 3.994072777517441*^9}}, - CellLabel-> - "Out[174]=",ExpressionUUID->"00665af3-dfec-4528-89b6-1cab5261eaf4"] + 3.9940727600826902`*^9, 3.994072777517441*^9}, 3.994250064384883*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"faeac522-8a69-4fd3-8c35-8baf2b0453bf"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184866880085*^9, 3.9918486688048573`*^9}}, - CellLabel-> - "In[175]:=",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], + CellLabel->"In[72]:=",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], Cell[CellGroupData[{ @@ -4913,21 +4829,18 @@ Cell[BoxData[ RowBox[{"f2", "=", "0.68254"}]], "Input", CellChangeTimes->{ 3.991799414288656*^9, {3.993799512752862*^9, 3.993799517873982*^9}}, - CellLabel-> - "In[176]:=",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], + CellLabel->"In[73]:=",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], Cell[BoxData["0.68254`"], "Output", CellChangeTimes->{ 3.99379974879753*^9, 3.993800340705077*^9, 3.993800386887023*^9, { - 3.994072760111725*^9, 3.99407277753176*^9}}, - CellLabel-> - "Out[176]=",ExpressionUUID->"c00eaf6f-991f-4cde-a778-0d6c84dab36c"] + 3.994072760111725*^9, 3.99407277753176*^9}, 3.994250064414611*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"706a6116-b890-4f38-a0bc-dc99a348d576"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848669922333*^9, 3.9918486699293537`*^9}}, - CellLabel-> - "In[177]:=",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], + CellLabel->"In[74]:=",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ @@ -4973,15 +4886,14 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel-> - "In[178]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], + CellLabel->"In[75]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], Cell[BoxData["1.3128345860136716`*^-53"], "Output", CellChangeTimes->{ 3.99132042156752*^9, 3.9937997488622103`*^9, 3.993800340782552*^9, - 3.9938003869113693`*^9, {3.994072760139806*^9, 3.994072777549265*^9}}, - CellLabel-> - "Out[178]=",ExpressionUUID->"f580e415-60af-472d-b790-4a936ed06c02"] + 3.9938003869113693`*^9, {3.994072760139806*^9, 3.994072777549265*^9}, + 3.9942500644365587`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"2b4d195e-c2eb-4a68-8333-05d45d428ebe"] }, Open ]], Cell[CellGroupData[{ @@ -5016,15 +4928,14 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", CellChangeTimes->{3.991557471461853*^9}, - CellLabel-> - "In[179]:=",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], + CellLabel->"In[76]:=",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], Cell[BoxData["1.0350074784252596`*^-54"], "Output", CellChangeTimes->{ 3.99132042159643*^9, 3.993799748883677*^9, 3.993800340800537*^9, - 3.9938003869262123`*^9, {3.99407276015436*^9, 3.994072777560671*^9}}, - CellLabel-> - "Out[179]=",ExpressionUUID->"c10d5977-58d7-4636-98a7-548bcfc37c49"] + 3.9938003869262123`*^9, {3.99407276015436*^9, 3.994072777560671*^9}, + 3.994250064451489*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"f693a461-ac6a-492e-8467-9f91b86d5dfa"] }, Open ]], Cell[CellGroupData[{ @@ -5058,15 +4969,14 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", CellChangeTimes->{{3.991557474366678*^9, 3.99155747655138*^9}}, - CellLabel-> - "In[180]:=",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], + CellLabel->"In[77]:=",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], Cell[BoxData["4.011627336047101`*^-54"], "Output", CellChangeTimes->{ 3.9913204216085243`*^9, 3.993799748900865*^9, 3.993800340818081*^9, - 3.993800386942658*^9, {3.99407276016994*^9, 3.994072777573812*^9}}, - CellLabel-> - "Out[180]=",ExpressionUUID->"d6c32bf0-96e6-41b8-a259-dcc51580790f"] + 3.993800386942658*^9, {3.99407276016994*^9, 3.994072777573812*^9}, + 3.9942500644698353`*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"ea80a2db-ea15-4447-93a6-f205c5f43c93"] }, Open ]], Cell[CellGroupData[{ @@ -5089,8 +4999,7 @@ Cell[BoxData[ FractionBox[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", - CellLabel-> - "In[181]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], + CellLabel->"In[78]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], Cell[BoxData["11.93997932982959`"], "Output", CellChangeTimes->{ @@ -5101,9 +5010,8 @@ Cell[BoxData["11.93997932982959`"], "Output", 3.992091446805294*^9}, {3.9920915031404457`*^9, 3.992091522601553*^9}, { 3.9920915619364376`*^9, 3.9920915885645847`*^9}, 3.99379974891636*^9, 3.9938003408364553`*^9, 3.993800386957293*^9, {3.994072760183216*^9, - 3.994072777586576*^9}}, - CellLabel-> - "Out[181]=",ExpressionUUID->"a400bdd4-2d95-4ce2-936d-be09e9b51750"] + 3.994072777586576*^9}, 3.994250064502019*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"c95e3c2c-a48d-4406-8ae3-27be6dd6b516"] }, Open ]], Cell[CellGroupData[{ @@ -5129,8 +5037,7 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", CellChangeTimes->{3.992086162437586*^9}, - CellLabel-> - "In[182]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], + CellLabel->"In[79]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], Cell[BoxData["52.90288002689117`"], "Output", CellChangeTimes->{ @@ -5140,9 +5047,9 @@ Cell[BoxData["52.90288002689117`"], "Output", 3.992091247484524*^9, {3.9920913926676064`*^9, 3.9920914468313007`*^9}, { 3.9920915031479607`*^9, 3.9920915226223583`*^9}, {3.9920915619450817`*^9, 3.992091588571615*^9}, 3.993799748931448*^9, 3.993800340853327*^9, - 3.993800386973589*^9, {3.994072760198311*^9, 3.994072777631235*^9}}, - CellLabel-> - "Out[182]=",ExpressionUUID->"2556238f-af75-4c59-b141-865bdd45989f"] + 3.993800386973589*^9, {3.994072760198311*^9, 3.994072777631235*^9}, + 3.994250064518177*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"e2f08169-1e9e-41b7-8def-b858e47c9909"] }, Open ]], Cell[CellGroupData[{ @@ -5151,8 +5058,7 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", - CellLabel-> - "In[183]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], + CellLabel->"In[80]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], Cell[BoxData["3.0370797540828125`"], "Output", CellChangeTimes->{ @@ -5163,9 +5069,8 @@ Cell[BoxData["3.0370797540828125`"], "Output", 3.992091446837303*^9}, {3.9920915031795254`*^9, 3.992091522629343*^9}, { 3.9920915619686337`*^9, 3.992091588596325*^9}, 3.9937997489478827`*^9, 3.9938003408740177`*^9, 3.993800386990369*^9, {3.994072760211652*^9, - 3.9940727776445312`*^9}}, - CellLabel-> - "Out[183]=",ExpressionUUID->"ea6f35b3-caa2-4aec-a25b-e24c2955bc68"] + 3.9940727776445312`*^9}, 3.9942500645341387`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"1b02cea2-6de6-4731-a3bf-40828d41c346"] }, Open ]], Cell[CellGroupData[{ @@ -5175,8 +5080,7 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kw", "Qw2"]]}]], "Input", CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, - CellLabel-> - "In[184]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], + CellLabel->"In[81]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], Cell[BoxData["4.380101556905071`"], "Output", CellChangeTimes->{ @@ -5186,9 +5090,8 @@ Cell[BoxData["4.380101556905071`"], "Output", 3.992091392715067*^9, 3.9920914468593006`*^9}, {3.992091503202347*^9, 3.992091522636343*^9}, {3.992091561975609*^9, 3.99209158860334*^9}, 3.993799748968643*^9, 3.9938003408952293`*^9, 3.993800387007524*^9, { - 3.994072760225312*^9, 3.9940727776573553`*^9}}, - CellLabel-> - "Out[184]=",ExpressionUUID->"abd832ea-a292-472e-ac47-9cf0981a9ac9"] + 3.994072760225312*^9, 3.9940727776573553`*^9}, 3.9942500645459633`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"8f68c609-33e1-41b6-b66e-bf75f4efc861"] }, Open ]], Cell[CellGroupData[{ @@ -5198,8 +5101,7 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", CellChangeTimes->{3.992086167409481*^9}, - CellLabel-> - "In[185]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], + CellLabel->"In[82]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], Cell[BoxData["231.7199871705482`"], "Output", CellChangeTimes->{ @@ -5209,9 +5111,9 @@ Cell[BoxData["231.7199871705482`"], "Output", 3.992091247547844*^9, {3.9920913927375374`*^9, 3.992091446867302*^9}, { 3.992091503209553*^9, 3.992091522657341*^9}, {3.992091561999613*^9, 3.9920915886284447`*^9}, 3.993799748991139*^9, 3.993800340916945*^9, - 3.9938003870243273`*^9, {3.99407276023936*^9, 3.994072777668295*^9}}, - CellLabel-> - "Out[185]=",ExpressionUUID->"ea483a60-65d0-43c8-8ea6-96bfb64a017b"] + 3.9938003870243273`*^9, {3.99407276023936*^9, 3.994072777668295*^9}, + 3.994250064559229*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"bba843d1-bdb8-42e2-9dee-db93d744360f"] }, Open ]], Cell[CellGroupData[{ @@ -5220,8 +5122,7 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[186]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], + CellLabel->"In[83]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], Cell[BoxData["36.26266948679272`"], "Output", CellChangeTimes->{ @@ -5232,9 +5133,8 @@ Cell[BoxData["36.26266948679272`"], "Output", 3.992091446891386*^9}, {3.9920915032325726`*^9, 3.992091522664852*^9}, { 3.992091562006651*^9, 3.992091588636162*^9}, 3.993799749012632*^9, 3.9938003409388523`*^9, 3.993800387040062*^9, {3.9940727602518797`*^9, - 3.994072777680624*^9}}, - CellLabel-> - "Out[186]=",ExpressionUUID->"4335a909-431f-402c-a120-dad1aa09732f"] + 3.994072777680624*^9}, 3.994250064571579*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"544cc465-845d-464f-8caa-254e7cc7252e"] }, Open ]], Cell[CellGroupData[{ @@ -5423,8 +5323,7 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[187]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], + CellLabel->"In[84]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], Cell[BoxData["0.004613279024601604`"], "Output", CellChangeTimes->{ @@ -5434,9 +5333,9 @@ Cell[BoxData["0.004613279024601604`"], "Output", 3.992091247578861*^9, {3.9920913927664986`*^9, 3.992091446900387*^9}, { 3.992091503241564*^9, 3.9920915226853714`*^9}, {3.9920915620301514`*^9, 3.992091588657053*^9}, 3.993799749035591*^9, 3.993800340962656*^9, - 3.9938003870578623`*^9, {3.9940727602652407`*^9, 3.994072777694236*^9}}, - CellLabel-> - "Out[187]=",ExpressionUUID->"d52042fc-0950-497b-ae60-d435c567627c"] + 3.9938003870578623`*^9, {3.9940727602652407`*^9, 3.994072777694236*^9}, + 3.994250064589848*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"302dbbd4-d620-41f9-adf9-35d1c8b93dbf"] }, Open ]], Cell[CellGroupData[{ @@ -5449,8 +5348,7 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[188]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], + CellLabel->"In[85]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], Cell[BoxData["13.047883767276804`"], "Output", CellChangeTimes->{ @@ -5460,9 +5358,8 @@ Cell[BoxData["13.047883767276804`"], "Output", 3.9920913928462048`*^9, 3.9920914469749584`*^9}, {3.992091503316616*^9, 3.9920915227624416`*^9}, {3.9920915621031647`*^9, 3.9920915887305927`*^9}, 3.9937997555085993`*^9, 3.993800346764615*^9, 3.993800388601677*^9, { - 3.994072760406266*^9, 3.9940727777509747`*^9}}, - CellLabel-> - "Out[188]=",ExpressionUUID->"0d6cb19c-5add-488d-87c0-b20069a053ad"] + 3.994072760406266*^9, 3.9940727777509747`*^9}, 3.9942500648785343`*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"da6f9bbd-2eba-4157-8fc4-0578c4955232"] }, Open ]], Cell[BoxData[ @@ -5474,8 +5371,7 @@ Cell[BoxData[ 3.992086184000986*^9, 3.9920862197077847`*^9}, {3.99208635879986*^9, 3.9920863634349823`*^9}, {3.9920864985362244`*^9, 3.992086501430176*^9}, { 3.9920869541635437`*^9, 3.992086954848522*^9}}, - CellLabel-> - "In[189]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], + CellLabel->"In[86]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ @@ -5497,15 +5393,14 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel-> - "In[190]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], + CellLabel->"In[87]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], Cell[BoxData["44.59250170456702`"], "Output", CellChangeTimes->{ 3.991320421637537*^9, 3.9937997557626143`*^9, 3.993800346919571*^9, - 3.993800388740233*^9, {3.9940727604258347`*^9, 3.994072777774213*^9}}, - CellLabel-> - "Out[190]=",ExpressionUUID->"ecf38020-cc98-4d62-b4e3-b552d463b9a4"] + 3.993800388740233*^9, {3.9940727604258347`*^9, 3.994072777774213*^9}, + 3.994250064899013*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"a44d1dcd-c1c2-4d08-bbf8-a34ec0b09102"] }, Open ]], Cell[CellGroupData[{ @@ -5530,15 +5425,14 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", - CellLabel-> - "In[191]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], + CellLabel->"In[88]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], Cell[BoxData["52.90288002689117`"], "Output", CellChangeTimes->{ 3.9913204216685333`*^9, 3.9937997557815742`*^9, 3.993800346939128*^9, - 3.9938003887588377`*^9, {3.994072760438477*^9, 3.9940727777853527`*^9}}, - CellLabel-> - "Out[191]=",ExpressionUUID->"55be8ae8-711a-4ac5-bd55-c96a0a3f4555"] + 3.9938003887588377`*^9, {3.994072760438477*^9, 3.9940727777853527`*^9}, + 3.994250064910615*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"f17b7cdd-4001-47a2-9d4b-db35253602e0"] }, Open ]], Cell[CellGroupData[{ @@ -5547,15 +5441,14 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel-> - "In[192]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], + CellLabel->"In[89]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], Cell[BoxData["1.5715458834926257`"], "Output", CellChangeTimes->{ 3.991320421698473*^9, 3.993799755801656*^9, 3.9938003469606647`*^9, - 3.9938003887757683`*^9, {3.994072760452375*^9, 3.994072777795869*^9}}, - CellLabel-> - "Out[192]=",ExpressionUUID->"d8bf3b4a-7085-4dad-9429-212f4e3d19eb"] + 3.9938003887757683`*^9, {3.994072760452375*^9, 3.994072777795869*^9}, + 3.994250064922059*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"1e2e76ac-074d-4b71-8119-18d6f1198906"] }, Open ]], Cell[CellGroupData[{ @@ -5564,15 +5457,14 @@ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", - CellLabel-> - "In[193]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], + CellLabel->"In[90]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], Cell[BoxData["4.380101556905071`"], "Output", CellChangeTimes->{ 3.991320421726494*^9, 3.993799755827742*^9, 3.99380034698438*^9, - 3.993800388792529*^9, {3.994072760470807*^9, 3.994072777805552*^9}}, - CellLabel-> - "Out[193]=",ExpressionUUID->"9ea0bdee-7c25-47eb-869c-f00e0e73433d"] + 3.993800388792529*^9, {3.994072760470807*^9, 3.994072777805552*^9}, + 3.994250064938586*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"3bbfceef-a793-42ae-87a7-273463cfac52"] }, Open ]], Cell[CellGroupData[{ @@ -5581,15 +5473,14 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel-> - "In[194]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], + CellLabel->"In[91]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], Cell[BoxData["231.7199871705482`"], "Output", CellChangeTimes->{ 3.9913204217554817`*^9, 3.993799755852556*^9, 3.99380034700836*^9, - 3.993800388809651*^9, {3.994072760485291*^9, 3.994072777815412*^9}}, - CellLabel-> - "Out[194]=",ExpressionUUID->"96610dbf-1da6-41ac-85e6-156c8fdf25b6"] + 3.993800388809651*^9, {3.994072760485291*^9, 3.994072777815412*^9}, + 3.994250064955751*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"5fdfcc09-f1d3-48f9-9892-405603d9dfea"] }, Open ]], Cell[CellGroupData[{ @@ -5598,15 +5489,14 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[195]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], + CellLabel->"In[92]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], Cell[BoxData["70.0791624884502`"], "Output", CellChangeTimes->{ 3.9913204217855225`*^9, 3.993799755876912*^9, 3.993800347031435*^9, - 3.993800388827091*^9, {3.9940727604992247`*^9, 3.994072777825199*^9}}, - CellLabel-> - "Out[195]=",ExpressionUUID->"15100d85-5d60-4144-ad85-85b3979c5b2e"] + 3.993800388827091*^9, {3.9940727604992247`*^9, 3.994072777825199*^9}, + 3.994250064972184*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"f4cad7c8-d6c5-40da-9552-aef72a361617"] }, Open ]], Cell[CellGroupData[{ @@ -5795,15 +5685,14 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[196]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], + CellLabel->"In[93]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], Cell[BoxData["0.003990708822572396`"], "Output", CellChangeTimes->{ 3.9913204218154297`*^9, 3.9937997559029837`*^9, 3.9938003470576553`*^9, - 3.993800388845276*^9, {3.9940727605125093`*^9, 3.994072777835862*^9}}, - CellLabel-> - "Out[196]=",ExpressionUUID->"49b29492-7d3a-4ee9-b57e-981729a14841"] + 3.993800388845276*^9, {3.9940727605125093`*^9, 3.994072777835862*^9}, + 3.994250064987414*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"915140b7-5f25-432f-b1a0-6b468b27c59f"] }, Open ]], Cell[CellGroupData[{ @@ -5817,16 +5706,15 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", Background->RGBColor[0.4, 0.6, 1, 0.33], - CellLabel-> - "In[197]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], + CellLabel->"In[94]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], Cell[BoxData["14.028780499402282`"], "Output", CellChangeTimes->{ 3.991320422776104*^9, 3.993799762193915*^9, 3.993800352792034*^9, - 3.993800390215002*^9, {3.994072760561933*^9, 3.994072777887232*^9}}, + 3.993800390215002*^9, {3.994072760561933*^9, 3.994072777887232*^9}, + 3.9942500650736647`*^9}, Background->RGBColor[0.14, 0.8, 0.14, 0.33], - CellLabel-> - "Out[197]=",ExpressionUUID->"eebb9cb7-a7e8-451d-a69e-baaf17807774"] + CellLabel->"Out[94]=",ExpressionUUID->"6fd8add0-a7fb-4a0f-8beb-40e4ffff8409"] }, Open ]], Cell[CellGroupData[{ @@ -6017,15 +5905,13 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[198]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], + CellLabel->"In[95]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], Cell[BoxData["0.01364753585641689`"], "Output", CellChangeTimes->{ 3.9913204229248886`*^9, 3.993800352823707*^9, 3.993800390265161*^9, { - 3.994072760576092*^9, 3.994072777899271*^9}}, - CellLabel-> - "Out[198]=",ExpressionUUID->"1150aff2-30e0-42c8-84eb-e46163442387"] + 3.994072760576092*^9, 3.994072777899271*^9}, 3.994250065090941*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"e4549287-5efb-4bfe-b69a-19c7502d1868"] }, Open ]], Cell[CellGroupData[{ @@ -6038,15 +5924,13 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[199]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], + CellLabel->"In[96]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], Cell[BoxData["7.586086993647864`"], "Output", CellChangeTimes->{ 3.9913204230053368`*^9, 3.993800358619151*^9, 3.993800391667642*^9, { - 3.994072760615584*^9, 3.994072777954184*^9}}, - CellLabel-> - "Out[199]=",ExpressionUUID->"601daafb-f26d-4041-b887-09519c5ff073"] + 3.994072760615584*^9, 3.994072777954184*^9}, 3.994250065167821*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"8bebc229-9871-4397-97a0-015274925350"] }, Open ]], Cell[CellGroupData[{ @@ -6138,15 +6022,13 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[200]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], + CellLabel->"In[97]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], Cell[BoxData["0.11740730280317517`"], "Output", CellChangeTimes->{ 3.9913204230393543`*^9, 3.9938003586480303`*^9, 3.993800391716969*^9, { - 3.994072760631043*^9, 3.994072777967334*^9}}, - CellLabel-> - "Out[200]=",ExpressionUUID->"f18041aa-3a06-4275-a993-939d5a48acba"] + 3.994072760631043*^9, 3.994072777967334*^9}, 3.9942500651837893`*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"d53e64d9-d879-4d74-aa9b-779253874b20"] }, Open ]], Cell[CellGroupData[{ @@ -6235,15 +6117,13 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[201]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], + CellLabel->"In[98]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], Cell[BoxData["0.8825926971968249`"], "Output", CellChangeTimes->{ 3.9913204230728855`*^9, 3.9938003586681547`*^9, 3.993800391736348*^9, { - 3.9940727606439543`*^9, 3.994072777979229*^9}}, - CellLabel-> - "Out[201]=",ExpressionUUID->"ef046352-13d3-419f-9315-58a7b35b7dd1"] + 3.9940727606439543`*^9, 3.994072777979229*^9}, 3.994250065202395*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"1bcc34ed-3c8c-45b7-8ef2-2faa801944e6"] }, Open ]], Cell[CellGroupData[{ @@ -6365,22 +6245,20 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel-> - "In[202]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], + CellLabel->"In[99]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], Cell[BoxData["0.10362282805165872`"], "Output", CellChangeTimes->{ 3.9913204231038837`*^9, 3.99380035868874*^9, 3.993800391752033*^9, { - 3.994072760657496*^9, 3.99407277799163*^9}}, - CellLabel-> - "Out[202]=",ExpressionUUID->"d5ff4e51-14ce-4047-8956-6b44085f5d0c"] + 3.994072760657496*^9, 3.99407277799163*^9}, 3.994250065220991*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"68408cb6-ea31-414e-8a3c-e4b40d08e0ed"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellLabel-> - "In[203]:=",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], + "In[100]:=",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ @@ -6394,30 +6272,33 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -6443,80 +6324,80 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.991799443370365*^9}, CellLabel-> - "In[204]:=",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], + "In[101]:=",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.358954528219119`*^-209\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 204, 9, 31386456124452082574, - "kernel 2"}, +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 101, 1, 31387618065139166000, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913204231548862`*^9, {3.993800373637882*^9, 3.993800391829084*^9}, { - 3.994072760691328*^9, 3.994072778014902*^9}}, + 3.994072760691328*^9, 3.994072778014902*^9}, 3.994250065264162*^9}, CellLabel-> "During evaluation of \ -In[204]:=",ExpressionUUID->"d6fe44ce-5865-4595-b6ea-c142ebfb7e48"], +In[101]:=",ExpressionUUID->"f727d6aa-6c68-432c-8406-8612a6439c52"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0936864967560232`*^-214\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 204, 10, - 31386456124452082574, "kernel 2"}, +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 101, 2, 31387618065139166000, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913204231548862`*^9, {3.993800373637882*^9, 3.993800391829084*^9}, { - 3.994072760691328*^9, 3.994072778020547*^9}}, + 3.994072760691328*^9, 3.994072778014902*^9}, 3.994250065336933*^9}, CellLabel-> "During evaluation of \ -In[204]:=",ExpressionUUID->"a0197c52-54ff-4f3a-a6b3-3e288a921767"], +In[101]:=",ExpressionUUID->"e3f92db4-4621-45e6-9295-a71b45a70961"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"8.80198806029214`*^-220\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 204, 11, - 31386456124452082574, "kernel 2"}, +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 101, 3, 31387618065139166000, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913204231548862`*^9, {3.993800373637882*^9, 3.993800391829084*^9}, { - 3.994072760691328*^9, 3.994072778024534*^9}}, + 3.994072760691328*^9, 3.994072778014902*^9}, 3.994250065344612*^9}, CellLabel-> "During evaluation of \ -In[204]:=",ExpressionUUID->"dbd00160-448e-47eb-9b54-1b8eee66fc7c"], +In[101]:=",ExpressionUUID->"e8542472-898c-48a0-8e13-4172762310cb"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 204, 12, 31386456124452082574, "kernel 2"}, +during this calculation.\"", 2, 101, 4, 31387618065139166000, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913204231548862`*^9, {3.993800373637882*^9, 3.993800391829084*^9}, { - 3.994072760691328*^9, 3.9940727780271606`*^9}}, + 3.994072760691328*^9, 3.994072778014902*^9}, 3.994250065353413*^9}, CellLabel-> "During evaluation of \ -In[204]:=",ExpressionUUID->"c102fc32-8b95-4a7b-991a-eba57181e676"], +In[101]:=",ExpressionUUID->"88ffcf99-48d3-4071-9ef1-a86e27373c99"], -Cell[BoxData["$Aborted"], "Output", +Cell[BoxData["14.028780499402297`"], "Output", CellChangeTimes->{ 3.9913204260017204`*^9, 3.993800383918827*^9, 3.993800417985188*^9, { - 3.994072761916934*^9, 3.994072779356915*^9}}, + 3.994072761916934*^9, 3.994072779356915*^9}, 3.9942500678620167`*^9}, CellLabel-> - "Out[204]=",ExpressionUUID->"095921fb-61e0-412b-b521-1ced07f6e7e8"] + "Out[101]=",ExpressionUUID->"284ee002-7c3b-4c6e-a119-010cd07383f0"] }, Open ]], Cell[CellGroupData[{ @@ -6531,30 +6412,33 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -6585,70 +6469,70 @@ Cell[BoxData[ Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.179374189077255`*^-218\\\", \ -\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ -9984000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 102, 5, 31386456124452082574, - "kernel 2"}, + "\"\\!\\(\\*FractionBox[\\\"1.358954528219119`*^-209\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 102, 5, 31387618065139166000, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913204262354183`*^9, 3.99380041800856*^9, - 3.9940727619921303`*^9}, + 3.9940727619921303`*^9, 3.9942500679926023`*^9}, CellLabel-> "During evaluation of \ -In[102]:=",ExpressionUUID->"2ff78fd1-c222-4492-8d59-d3870d854f46"], +In[102]:=",ExpressionUUID->"b14d70c3-ef62-4221-89ef-f94281af6f06"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5368767396753836`*^-223\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 102, 6, 31386456124452082574, - "kernel 2"}, + "\"\\!\\(\\*FractionBox[\\\"1.0936864967560232`*^-214\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 102, 6, 31387618065139166000, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913204262354183`*^9, 3.99380041800856*^9, - 3.994072761994965*^9}, + 3.9940727619921303`*^9, 3.994250068000135*^9}, CellLabel-> "During evaluation of \ -In[102]:=",ExpressionUUID->"1742ccdd-53de-4eff-b4f4-4544a686b1f6"], +In[102]:=",ExpressionUUID->"512ead5c-80b5-4907-8cc1-29fa81b149fe"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.651540173474464`*^-229\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 102, 7, - 31386456124452082574, "kernel 2"}, + "\"\\!\\(\\*FractionBox[\\\"8.80198806029214`*^-220\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 102, 7, 31387618065139166000, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913204262354183`*^9, 3.99380041800856*^9, - 3.9940727619978523`*^9}, + 3.9940727619921303`*^9, 3.9942500680071898`*^9}, CellLabel-> "During evaluation of \ -In[102]:=",ExpressionUUID->"e3a375bd-c08e-495a-b8c8-26fd37a27358"], +In[102]:=",ExpressionUUID->"b0fd461b-298a-4e14-b476-fe4c7c2ccfba"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 102, 8, 31386456124452082574, "kernel 2"}, +during this calculation.\"", 2, 102, 8, 31387618065139166000, "kernel 5"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913204262354183`*^9, 3.99380041800856*^9, - 3.994072761999956*^9}, + 3.9940727619921303`*^9, 3.994250068014001*^9}, CellLabel-> "During evaluation of \ -In[102]:=",ExpressionUUID->"83c0e282-a78e-4e38-a9a9-1104e354e1fe"], +In[102]:=",ExpressionUUID->"ede3c720-4d3c-4ae0-ae2c-8e6e1ec3c810"], -Cell[BoxData["9.320255088370518`"], "Output", +Cell[BoxData["7.586086993647866`"], "Output", CellChangeTimes->{3.991320428882721*^9, 3.993800443799769*^9, - 3.994072763163164*^9}, + 3.994072763163164*^9, 3.994250070613765*^9}, CellLabel-> - "Out[102]=",ExpressionUUID->"0bc3e48d-f853-426a-9826-7e6c393860fa"] + "Out[102]=",ExpressionUUID->"6d8bea5c-eb92-4071-a6e9-9c52ebe34728"] }, Open ]], Cell[CellGroupData[{ @@ -6658,391 +6542,143 @@ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ - FractionBox[ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", RowBox[{ - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", - RowBox[{"Cos", "[", - FractionBox[ - RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], - RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{3.9917994505623856`*^9}, CellLabel-> "In[103]:=",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], -Cell[BoxData["$Aborted"], "Output", - CellChangeTimes->{3.9913206956809444`*^9, 3.9938004505744*^9, - 3.9940727711756163`*^9}, - CellLabel-> - "Out[103]=",ExpressionUUID->"29dbe319-c7d0-46c7-9e40-d4bbcca0642c"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"x", "=", - RowBox[{"Plot", "[", - RowBox[{ - RowBox[{ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], - RowBox[{ - RowBox[{"(", - RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", - RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", - FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", - FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", - RowBox[{"{", - RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9917994543716736`*^9},ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-\ -9aed2c391662"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.3559275616020787`*^-274\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 86, 9, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320696298666*^9}, - CellLabel-> - "During evaluation of \ -In[86]:=",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.7743624682465165`*^-285\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, 86, - 10, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320696309664*^9}, - CellLabel-> - "During evaluation of \ -In[86]:=",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.227765210043865`*^-297\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 86, 11, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320696318653*^9}, - CellLabel-> - "During evaluation of \ -In[86]:=",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], - -Cell[BoxData[ - TemplateBox[{ - "General", "stop", - "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ -\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 86, 12, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913206963286114`*^9}, - CellLabel-> - "During evaluation of \ -In[86]:=",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], - Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVmHk4VV8Xx0XGMs9jppCZy3WvYe+lAVEoGdOPZCoylMxFkiEyVkKZMqUS -ShnvFVFUkjmEioyRIhR67/vPOc/nWfvsdfZa37X3OkfKxfeoGz0dHZ017fL/ -++/R9peyCYWo9o3zk23jDqg3RyjEcDAKV7/iO81bQsLA/95FaDANO976fqCv -2AQHWpYNMAwWYB6P5o+3i+0w94Jg2vpAFS7yCdRjLPbEYw3mvssDzXjDfGVq -8l4wNpKd/bQ00I2rp05PX86Ow+sDOjd/DHzBSqcapUVCb+OWfSWFHwp+4W0i -l2uqp0ux2FjtNxflTfyxRT1csrcS0/3yv91+ZBMnBScMDU1V4gkmRVP1oE3M -P5neGv+3Ej9SzXq0+WITR3Ew8rdKV2F0KTTgtu0WfsYeeqrCrwo7ievRd0b9 -w+STMzqWbE/wB5XRpDvzdLBctb7LS+sp5vN2KmPexwCn5ed6504+w4rM99os -bRmg1ziTcfz8MwwF375kejGA8eaT2Zarz7D34FlR5RsM4M1DKnO4/wy/3B+e -aDnJALJOrHPNi89wgHimT2bsdviBjIQDQ57jns5uTaW3jBC5OO+tEFmDp08L -WASMM0LELmfjbSk1eGu7g1fjMiOY/5fR8Dq3Bivqfb5nIc4EgQMe9jLUGhxV -ssgX4MMEk4z3kpk2a7Bm5M7VBi5msJ1y6Lh0oRanaRjVm1uzwMNT+cms9nVY -bdje2MCTBZr3B+Y3udXht9Fne5TCWCCj+uaox7k6zDR4Y44lnwW0ROs7YhLq -cNilr6It8yzw3gFtMTbWYdc3keE60ayAn6YUMInXY6JbvYHkEzb4eUMi609X -Pe7heN/O0cYGJZUFkRXD9div5ov15iAb+JKi1G2+1eOyHWw+Q1tsELqsOOH3 -tx7vqrLLuWG6AwYOe7l9lW3ALP9Wtli+7ICzQ8XH6gMa8Mfb6k1LXOzA6HBL -W5WlEWf1POAM3M0OvP1V2encjdiBQ97pD5kdtHf0v50UacQjV8S36E+xw5rW -zWRLlUY87sOmz1fNDrsT9TPwkUY8vX/iOdGeA3hKvi5fudmI70c4Mdef5YD5 -PcMyz+424jN1QzY0sUA9XYNsX1Ejnlf7sGL8gAPKXOrzPlY34h8iFIL9JgfI -KBUWbfQ24rUfGY/D8jkhWtth/0NOCq5V4v33r5oTSofT9z4UoOBQ9yTz6A5O -SGB6o5IpTsEbw9HfE39xAuFKWS9ZiYIjv9bwv5fmgneODWW3DlBwdGeR1XgA -F3gW0883BVLwhNepMOkILsj0MNlKCafgA6xS91zjueBSiZKyeRQFM+2/83P6 -LhesTu2cSb5OwXG1aalLbVxQelnKQuMeBScURrynF+YGkS93TBY7KNhU6zQP -vww3+NRseV58T8EsL49ay6tww8ST5rT1Hpr/r7uHzQy5oY1vP1/DCAWHS7/9 -duM0N2imp1qc+U7BulXVe0rOc8PjuGXd00sUvGaY6117kRvU/u20tlmh4Asn -z/38lMoNoIv3/N2gYJ88oS25Otp4ettx3x1UrKxOb0h+yQ0Ck/nvxzmoeJY6 -d8WskxtUtJkEgYeKPcYorH5fuOHL5t+WdiEqdpZw469l44FkOU0C224qlig3 -t3vDxwOl4BuxIE/FIwak7E8SPJB9TOLIC0UqtjuxQ4qewANCHEV3NNWp+Mid -SmWz4zww5XP20n5dKuZSzvY94cYD+Vvfcu/qU3FnfXSVry8P7M2nD55EVGw6 -bEu6cYUHrjzsczPcR8UsXoZhxdd54PtEYpz1ASpu+6NIqcnggYWKyTA7Yyre -K7K179MDHhA0FV9UNKNiurKpmMVqHjBQ8A//c4iKKeQP7duaeCDzjuVKjTkV -69kXWsj18oCSs14r/VEq/jN9PY00ygM3dqgpJllRcU1wUJ/pNA90TV66xWJN -xVq3TY/7bvDAeZG8/A5bKv4pr5VzmYkXJiXemPPYU3HFc/HP6Vy8sHiVUfKg -AxX7GDPLFovwAvPOXDHf41SsMvDDvUaWF64arZhFO1LxvPvQ/Q5VXnBNP18d -d4KKy363zI+QeKGPJd05/D8qlhPIOLftMC+kb3zK1HCm4omiyGpeW15QfIh1 -ftG4QPvM2u6TvPC2tVyr8CQtP61WeiQvXtDcNp2534WWH2uDS6YXeIHOq9qn -l8YjE3IvHCN4YcFqoc7qFBVnBXBt943nBR4Iimmmsd32P0aX03lhe7/hR0lX -Kha88TU+/S4vMHYeqvehsZBSdfRaMS8cFgq6VUpjkeaYiBMVvKASraTRS2Mx -e7vQ5lpeGHvEmLZEY4kfey7It/BCz0QZlc6NiiVj//omvuWFuF0dTdtoLC3x -7sxSHy/cXBS9s0wbL1ud42YzxgveF1zsPtJ49yE/5/ppXtA/dnrjMY3lvhoe -l/zJC+1FjMnBNFYI5bW5+pcX5Bf4BQk0VuSetJzdzgfJnFHZY7T1KJc+M7Pg -4ANmpCdzicaqOM7oqSAfqP7Sq+agsXq/vaGwFB8Mfo61S6XFR/Oskv4lRT5o -mlHiY6IxYfsm8SuBD4g70KI3Lb5a2Z0aJgZ8kOnw6UcrLf5EzTzlR0Z8wLas -IclNY1K7vzyPJR8sL3hHmztRsa7zPukgez5IP/Ja9hItn/qrfOIjLnwQuD2W -JY+Wb5T0TdDQmw/o25aJT2l6MGyIZ98RwQcelqTUJzT97LU6zuIXR/N/9MOb -HJq+9s8qM/Sl8sF/9bk+4XZUbCLUtZZTyAeybM1snDZUbBEgMKHZwQe1dAZ+ -aZZUbLljejSjhw8qFd2o3BZUfLSg9uPGCB9Qr3s+uXKYim26HN+3LfIBX9ZS -KTal4hPK9+oc+PkhS9O9UIhWb/+1BFRTJfhh98fYZRVDmr4cjCpkFfiBoYeo -QMRU7Bo3U7Sgyw8SX5UcdulRsdeEWmqUMz+w0T1ot9akYu+wbYlTp/nh/jRJ -kIFW/z48PTGHzvODZdda3D0VKj4HgeECMfxw1HZxvVGBikPuNHiUPeAHimbA -ur0EFcceO4i6f/PDUL7kS21mmt6edorQbxMAwc32sD4GKi7nPbaqsUMApNlF -nrrTUXF/938VqbsEoKmzt/vEOgXLHgmQPmIiAPn3q//lzlJw8+Fcpq5MAQi8 -kj13kbb/2jyS/frvngBM+u+f122j4NmdZVS1cgFo7+OXnn1BwdxvnwYnNwvA -rwT/47tqKdjZtGPWfE4AWvWDTL8VU/Cm0UrnO31B8Oj3OvEjgoJTikMfbBoJ -wmBPolJ/KM0/E12cyhFBiFhVmiu/QMGHWtkMr7sJwvXH333IXhSctU/yyaEk -QdjZu3voiTUFk8As482YIGj9mho3UaDg8+R8p/YoIbjmuPrt4MtGbJrHsWyW -KAQ53VqLApRGLM0cHtd5UwggjX3h4/NG3NVrU9lTKgR37d+sGT5oxKp+OxlG -O4XAP6LuVHYq7bwtDir+KSIMmRMfC8IdG7Ejn/l30SfC8KjF+pvhXAPev/gn -1OerCKjYCTySW6zHISY3FF/Mi0BG1jgs0PqF8nyVId7fIlAgwFpTPlqPhY45 -k2tZRGFjuDBYpLMez9e0rjKoioLYjUOOOQ/rcXpUSkBmsCgYU/8LdPasx1/4 -5XxesovBKaM4cb7hOnxZ/8hJEZI4KLPdeOv+uBbrlmc+vUTdBRdLjG8oz9H6 -t7WlyNfsUqB7IPW+sfpTvK7ENapiLQ0F52Q9KKRKrP/gYd6tWzKwShkuqhl6 -iJd4TJ1tmmUB3hxS1mEsxROJzjbnmOVA7XfOXX2Le/jgYtDBSaI89O7+HsG+ -lIPFNCRiWPTl4YhJXi65OwcvnHvZrGQoD1bjtx+FPsnBN35z6Z8zk4fsjJxU -vcAcPLp5X/WfkzyQmiRcajbu4nM7R3iF4+WhhaIreZf9Ls7aA6OHhuVhI8qh -kgln4/lTLOefRijAFwG+2edjGXghZ38jNVoBzPNsuK+2ZeDFj5HMb+IVILbx -Yanbowz802I9+3O6AvQpFfOeDMvAq3qzLzlKFUBJy+wQCGVger63Aqe7aCzJ -WpptfQsLv0yuE5faA8UBn51zRm/Q+ndB+tjmPSAW8mjOVyENz7gYl+q92gOM -1MtbB/nTcGJ+kPmPN3sgtu3OTQJ9Gu6RGMyy79sDmaOJOtojqdhZOJOgPL0H -1sb2ZS6lpOIQDlG3D+yKUN4wrHNwMwU/XJN4LWqvCE3FxyoSmpOxhY6FT9cJ -RUj/OFbHnJeMf16I4LvqoghaKW1y+ReTMfnXmPOClyIwbwnPKZGTcdv3vPWm -S4pg1sqbm1uZhMe+SCu5FyqCbfdxl18l1zHPO7mkikVFYGRlU5q+n4C3FtWL -OpYVwavz/neHuAQ8y6PXMLGuCHutiGIL7gm42c5iVmi7EtwTuOt/QTYBn58I -MrospAQCa4VzjPnXcO/f11tHDJUg4HN3gHhePM5Q9PL9laYEL0yRWV51LI4+ -fCGG/bYSHDvXEPY3Ixb7+UXclb+rBPsPsFQEhMZik2fpb46XKEGjamVfE46l -9VcN8i/rlcBvj9iPxjcx2MGeffzGhBJMLxWp6M5cxWJxjy2JRGWQdOd+XEGO -xmXlj1rWdZUBFCHNSSoak/oeEBuxMtiM2YTKsUbjY9KlYvsPKoNwRp3QxuAV -nNiQN33EURm+kbo7XoZcwX9/pEaejVKGV8Te6UZqFB6yD6go7FQGEr2w9ajj -ZewZeU7Gs0cZHnwsy/Uxvox/F/vdUhpUhoZrTvN8mpcxz7J3eNVnZfB4oX3o -HvNlbJrkZtK0rAxtacrurU8icW2zzfiwiAoEnqnm5OaKxLeVyFy8HiqgsY9k -U15xEVubvUuheKlA7LXC+M6Ei5jH6yT3GT8VyEgrMeD3uIgTyuJ5XoSoQK5C -ZSW/xEV8ac8Qn2+iCgj6S6WPXQ/HrvJhwm8qVUCMPTbnYkAY1pBplL6yoQL1 -LOU3BE+E4IW9R+6pblMFOQrZ9b1+CC5zmZQZYlQFpeIk/jKxECxbwL5bg1MV -Pv5iffhqJBgLSf0nPyalCpUFecl5/wXjLYl/SnrGqnDB8EVihWcQ7hAx1P6V -qgrnr1+zj7l5AXdJPJbbnqEKBqmagfRBF3C/tLgQ/x1V2Dv9Lvae3QX8WXH9 -D7GYZs+i/LMSu4DXdCubQutUoclLPeJMUQCWOy51iP6rKhiVOAxYUM7jqOxt -p7i11KDaeFKHi+0cjsv1PSZNVoOzHxQOzCz646R7nw4QkBqU/+cs8LXPH2c+ -qFWwNlGDFVOJK6QCf1xR779w21EN4o7+3HLX98ejw59DJK+qQdJXhqvPAv2w -rlhzilq/Gvw8UBYbu90Hf5GRHZ0ZUgPBoYSS6aGzOF4pRqlwTA3cX4ztDK88 -iwd1TduEZtQg7EXMBMnpLA6y7/67bUMN0neMBDI2emMHM3/CLJc6/DHdpGu6 -7IVvxV3OaSCqg3ghMdVX9TQ+k6jZKkxWh/3cp5Ya2E5jlPJ1LlBPHXxtNp4S -pzzxZMYBsgaoQ/4RnqryPE+sVcLaW3RQHRTbn2c/4PfE3a2prMmO6qD2dNSi -itkDczAUBJyMUocq69HkZjY3zLROtVqKVofGwwrrdTOueGvhk+blWHVwYnaV -//zaFS8OCS/lJdKeV71E9yzWFXdVpZ4dv6UO8RVsi2HMrjjN5bK70wN1uP3f -rZtmnKewQLOz3Yledag99+dEJjqJOWou6XzvV4eZv1YPp6RPYqbyOwIXP6rD -YnDHxRPMJ/Fq5mDvnVF1cNj9bJ7S5YwH/S2PjEyrw2N7mX4rN2ecJQWmxzfV -IVmEJVBXyQlLXN6lby+nATc1i9K/Sjvi8vMs0p8UNODO3qipmJXjGLkvMZ9U -0gC2cPObXq+P4xNmLT2e6hrA9LKGsupzHN/h9/AK1tUA4yWeTB6qAxYuK8/K -MNcAgvK1UXYve8zXY7DeF6gBL78kKzD+sMGFrXJj9iG0+d7s24U6bDChhrP1 -U5gG1J9M/VNeaIOP3v2cMhmpAZm7tvbqONjgVI+rCivXNMCqOtp96JU15th4 -a8uXqwFXZA10VB8dw6y7HZ8dfUV733efGLVyjuIzwtj0QbsGbA816duKPIo7 -2KVHGd5qQL/L422/Th3Fib+nGKu7NMA237PYRvEo5nh93lpwiGY3FLjLWHuE -Vu8Jy8PzGpCzRHnb/8kSi1XWabrxaMIxjWnBmVhzHF50t62RTxPOi90PELI1 -x58yIx0EBDXhmrdlepKcOc6JMop6JaoJ75oZKw63HcaSx7o/7NmtCbuH6B6z -sx7Gu1dn/BZ0NEG9V1fFJNsMqxoIPw46oQn5mnm9x36Y4Ccyp//SO2tCReHU -DtOXJpjEVmuc5KIJwxfqOGNum+C9A3bjhR6a4COcPN9laIJt/G9zd/trwoPL -hlIlGcY4okgwQDlGEwK6CTJ0lka4i12A/LlcEw54tAp9+LEPWy+7XfWu1ISf -oHDs29t9eGio+sPqE00owzsqiPf34YkS6zMctZrgMXXaL9ZlH23/v5mt16IJ -hGaFhrGBvVgqkG/r5oAmpGUcFJZ+Z4jPjfK0mNIRgEe6QMyXivHrNsfGMnoC -fI+esqeLx1jicfFzNkYCLBNKtKaOYtwRofuwg5UAhX+tvjyZQlhayuWmKS8B -7m81ierzI/zhVKWHqRwBPAY4mvIj9LH6jMVO00ME0C/7PvIgiYxjPmQylZkT -4Kmemj+PCxmP1H6lYztCgFC/iZImbTKOuxa00m5NgAgtduefn0h4XCl39KAT -AdTNhztzNUg4xWeh4uA5Arg3R4x2TBLx4q9E64O3CfDOPuJxwyUtPDKYb3M3 -iwCHBm1ecB7Xwh2Nz2yX7hAg0XZO4Y6OFi6MHbfPzCfAgpnSI6clAnYQ1fpv -powACcVjCXEeBNy6d9g9vpEABwSubhP9TxNnp+4Jbv9CABmKqJX0OXUcF4hC -xCcJQLik9pzJWh0HHrcK9Z8iwLE6ifciJHVsuftiuPA8AapLf2/lb6phptqu -yNMrBOCz3O8/LKaG/ceD4llZtIB0ivTBzlsFG6u1ZR1U0YIr2cr2Y2aK2I7J -5FiXmhbsFD2zkSikiM98ame31dQC6fKu3IzJPTgp4V2kq44WQOa+qBeRe3D/ -VK97hKEWnKS4y9rWK2DXvK+a1dZa8Pj38V0shvI4invbG8lLWtBnL3Mp55os -vjEdFV0SqQXZjRxqPSdlcTF1O1K9ogUzgc7mVmRZ3HGWpVIvTguo2X1DhBkZ -zN3BmWGTpgWNln/dPQ/J4LwoiVOJxVpwwdY1jSApjSm/9P6udmpBoaHEEcLy -Lpz/9rmL1QctOO/LorTyfBeOLiJ0lPdoQZzcKTap8F34oK1SptugFhz+z0Dl -KeMu3FsnotPzWQuKf/JFV4tL4NnL6+fKl7Xg6XHXm+nOYliA6/msq4g2mEeN -nHdXEcbr05pHm8S0YfuImpraphAeeVFeK7pLG2rSTCzM3wnh/PPFcd0y2hBH -JkRf9xHCygM35UBFGybbPxynqxbEe3MCXERBG0psngI+IoB9lDWHPrhpg1Do -338xLbz4wqrIHydPbZBiunZrLJMXhzcziCyc0YYDFgyR1/x4cYJdnz2bnzag -+t2/eiV4cWl08Me9odqQF6wmqxzBg7+MUAafJGkDnfhjMTdzbjxTUrJmmKoN -yxaTwTl7uPGPcylCXenawPmXQJBi5Mb/WFzs5m9rg7X1j0K6Ri4sps04KHtP -G7AQ2xchdS5sc91s4OZzGudqRocYceATdlqrMnXa8DJTvfkOIwd2lREXrGrQ -hj++s1l7W9nx+doFm84X2rBIV2HOY8SOUyZT+5neasOLa/uDSw7vxB0Gg31B -49rw1Kmmdfg8GzZYcO21ZyXC1/D4R1YCzFig3rigYQcRdqY7tzpPMeGFWEW/ -XRxEYCm3ev2qhgnnSP3YMclDhNHRTs58Rya8dSxsn58YERKMo518SxkxtT61 -KkaNCMkfXgkuW2zHt+MCImc0iKDu1b1uI7cd+1nbmh/SIgJHXZ8u2yYDllwU -m+UmE2Gu0fG20wMGHCldKnV3LxFecO5XeraDARvGU1KeWBNhml55/fbQNixi -k/+fgB0RuHz3MzRVb8M/paOVQxyIUK557b1q6jZc0HDwNXIiwts04eLPJtsw -/Y/ef+2eRPhC9xEl1dPhFps5n/EwIojyownF4//QAVmhw+wFRGD//qpWPeov -evq9Vcq1kGY3U2quPvgXyT4//7uumAj8FVGnS7n/ou2m73M9HxDBZjQ1tKfg -D2r2jfnZ8pQI6WE7tJU61hGqX84IfUWEhld375OV11B5dIH3h3YiPD3bqoD+ -rCJxc0tDhbdEsFw74Fv4ehVtjD+Y7esigkwqITbdfRXVMZ0y0Bgigu3VklvT -xb8R8eiHL1PzRAhYvpw1QFpBxaIRz9EiEZgWh+VKdq4g/knlxJtLRHCbV+95 -N76MloPitPf9JoIL4zCLxLVlVHUXx+X8IwLlsFVyzfgvpDbzSMWaRwckv7RU -mN/9iRQirwU36+iAs5Kz77rFD9SgV8R4SFcH7qp5OeUr/kCWq9S0Pn0duBg+ -5prF+AMF+6w8nDbUgbIwZ50/wYvotaPzZ45DOvD9u8Snb8cXkCeZaHrcWQe2 -TMmBmmgebSxbDky46EDIeog65+YcSqnwcvVx0wHPyT1XQxvmUI18/qXLZ3Tg -ukLy6TX9OcQisPNJSYAOFDDbXfPfP4vu//wsuhynA3hKJu6U9zRC5RulFxN0 -YJErf7WQMI26TwsSmZN0AIwuFJ/6O4X+jB+yFEnXgfXExapjiVPI9P3zaLir -A03O/+JnnnxDsw+uf0+s1IEjTjPx24UnkaIbmbp7SAfuvVe/nab1BSVLm/+5 -MqIDQiNFNy/v/IKWx1y0v4zqgFv2pZCXE58RxSHxQc5XHZC3Cflv363P6Kjl -WIbgdx1w3N/cxrs5jkL0rvqx0pGgNsTqyHTVGBpdy3zgQU+ClrLvbx56j6G9 -z8q/tW4nwY0EOz9G+TG0U2PQMYqVBEZFK9k+d0dRnpzSwb88JCjWWK6jS/2E -XnN/kPq+mwQMfVp9ymnDSOX9pKOZAgmKAphly48No7TEPxn3FUmwmfhbukpw -GDkyy3K4q5Gg4P1nIZQ7hBY3Av+MkkiQZyJQfPDpRyQwLdbTZUaifd8xBVit -DCA3imf0U38SpM3qp1e+7UULZ2eDDgSQILnb4nprZi8KFvf26g8kgateRail -Ry+6Fu57dC2MBMQPI3yvGHpRhW6gpH4MCe5nrDCI7u1BG8+uNLRkkUAyqD48 -qucDinFnrDh2lwSZJoTRpJIPiFMg9t5kLgn69BKf04d/QNIXrl1jLiLB81V5 -krjcB2RMSLUze0wCxrmlou0RXSjtcc5ydwsJlM8V19Re7URiTpLTp9pIMES9 -wrlE7kRFHAXDy69JENO5rDqy8A7VnC1qFugkwUAFIfiVwzv0SelhisMgCVIv -ODe36b5FCqW1yl/mSdB1idNYUKQDUfN6XZf4yeCgE1kjcqgNjR+ScgoUIsPw -cVbBTb42RLd+1v6vCBkyJtzenRxtRXuPMJszSpIhQESw4tG5VtS2TVdHWJEM -yOLCR7X8l+itSy6rIaLZhSjvZ/ha0HeOeYY2IENDKOny2clmxFFP2jLdR4bd -+05ZuTxrRpa83T+PmZBhJf6sQ7Z9M+pp2T7ieZQMaWb1PmpFL9CQ7JnyFHcy -RDYG27JZNqG/Xc9K+U+TQSy2NkhZvgmJXWS4l+VFhjnO18dOblLRib47GYV+ -ZMhb10x9foKKxq++j6wJJcPhe821B+UpaOqbltV4EhkG+3/tSBmpR8ul/1bV -ntPWvyrlW/3yOfpmY5QXX0uGsDderJ6Jz9Hg9usmX+vJILV6KSHr2HNU7yyS -eauJDK1EppXQb89QlJC27mY7GbSkNrN2cD1DXHFnwjtGyFB2tE3xashTRE+s -lJUdI0Ove++uWpOnaPnr6tuLn8lgUD750FHoKRrAV8U1vpGh2GJHy0LNE5Sz -mkvJWCTDtnqfGtl/VUjZo4/OjV4Xeqi73u/MrUQS/GL3Kdt1YfpV5tG3AZWI -q8XliBCzLpgc7Rb+blqJfkn8yH+zQxd2ZopLWKxVoLp+tn2a/LowEijJesm2 -ApkYwdV/8rpQwyuaUna4HJ3a/YA167AuxEVyXrJnKUOhrf+dkbPUBbfN+b3j -LfdRihvPm6qjujA0nCTJF3kfNRSFJL6x1QXxivN54X9KEZ+cCefmSV3AFWbD -MqslqE1uks85UBcqZX6d9OMoRiNtty/MB+uCTT/jjZ29Rein+6H+4DBdOJDz -/bRBVhHaVfIkIzVSF1y0Ax1tFYpQsHyUSMs12nwsDSkHzAqRosIuSblcXfB+ -cVh7rKwAwevuyKp8Xfg47T4rHVKAbDxjPqNCXeiUrhL7ZlyArpR+L7C9rwtn -HhoKffuWj0YUGnbHP9GFRSfHyTLFfJS0x15p/pUu3EhmdopPyUVLiunEqh+6 -kNU1EHikNAsNvoUDvL90QX4Ansi6ZaEmnwWrgBVdGHgxspIlnYWSqg76E//o -woXZlXtncjORoi7dwzoGPXBbZ/t9Nu82cjl4VqpFQA+Impln2ym30ME5EXVZ -YT1w+Pj7gPTVW0j9+mt0VVQPLIPG55gP3UJbXTKOxpJ6sL9hLixg+CbKthu6 -9WaPHnDufHH4Md1N1OthvLNXXw+MQ8RGM0+lo3rWFRFtrAccXPv5lTTTUcGD -gj23DPVgY0O0XXtbOvJb3DSyM9KDzXms9iQvDbEHPb08YqEHisQlPbXJVGQU -I7U64aIH6k4TMehKCqop/Pt5JU4PzAV+W8cLJyLivoBV0wQ9OO1omB7WnYCq -P8/vzLuuByfymxVEExNQlcSojmmaHpQfb2dy3JaAHt5uup6TrQf24VsbNb/i -UV7iVbJxuR78ZpWLSfodiySUtszvVOjBquclt9zaWHS3PdB1qUoPcvCb7gMX -Y1EWk2dy9nM9yOxnGjjMFItuRJpOLjbpwc9KjkrZXTEoPoAz9XaPHlwWlPj0 -+kw0YuGNK/7epwep7/b0pxOjUUwlXcPeQT14x1P1bIw+GkUvLH2bH9GDZxPX -PFfuXEGXPHv1Db/pwUnBMMpqfxQ655g5PbNGi6/SWyOHk5eRw34Z0JPQB7cA -HdFjKRfRZi8LR4ukPkxw2ST5GlxEeW4Lw6Yy+hBycSPHay4cfYupDXJQ0Icd -RS2BGwfD0bl2i8chmvrAMtljvpc7DF0zD5eoMdKH2BA2mbC2YKQydnIeH9SH -xGs+05mRwajL17julZk+aE5eNwjSC0YCqTw2A5b6wMv2tN3tSRAq6Cm9/ttB -Hw4yUj+NPAhEdXZ9G1q++pB+Q1biVmMAOjFT19Hgrw9yNYuPG6MCEF1o3u39 -AfrQHeVAiTEJQEbZXlrHQvRBsnOp9HffedT9aZv3+Sv6sMdDnlly7RyadVEd -rszQByn+J10kO38keja2VrVJH6YqfuXf+uONkv65ayc068PLhbVdPx56I/o0 -o8qpl/rA/uY9E6+zN5p9xng/r10f7o6PEh699kJ1dNG3eXr04RVnAt9mwRnk -cCMy6PekPmTMeSidCfVEnXLOv45O64MqcYM1mOSJ9tZi38ez+jAX/uKnxqoH -Uhzdcvdc1AfMe0L6XqAHWpe/aDO0pg+z6RczD110R7frQ7QpOwxAw8Shx7rU -Fe00t68U4TCAqZ3Zmyf9XFHkOEkliMvg//8HftORXZEn45qsOr8B1LrUxS+9 -OYV0LAL5CiQM4DtQT15Yc0H9X879uqphAHspwtG9Z04ifjbvysO2BmCiUdaz -aXsCFe67GPrD3gAejhv5O205Is2LSfvSHQ0g/B2rW0eRIzL/UdE3eNIArOzO -h1asHkcx/Svrp7wNICwj/4h3iQNaK4jYG3rZAGJ0mOm1tOxQzEjKDvFoA1A5 -c8t7cMYW8QkU9FJjDGD31CdnhzxbpB7/0p0x0QDkfk4vz3PaotO+rAkptwyA -73NkOcu6NRrSS+8pfmAAMlY3DDiXrJDnhcI7B8sNQDpZo8X3iRX6XV7tNl9h -AOJHJZjjA60Qj/TgqsYzA6DLGfD7tHUUmbGIizU2GcD8x6C8XsGjqKG32LWn -jxavQ1PnDpy2RKYcNSqBgwbwwitYbB/REg0at/8WGjaArHOHi4YYLNFy3Vzc -f+MG0G/BXJZnaIFU8tUfzcwagN+GUOShlsOoYcgwMPG7ASRKUUuuuh9GpnxW -WO2HAbwR/xM/wHYYucde+BCwQuOYqPIam0NouSkmS3DNANzDk3MNt8xQ1J+M -U3V/DCDfNaK0v9gMcWndVz6xaQBXhz8+C7A0Qzln61b+/aPli3GwSeivKfof -HbLGog== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1HlUjdsbB/AjzfOgkohGiuh2GpWeJ0VpUiGFaDjnRZI03WjSpfyolCK5 +tzljKiolCkk3oVuZieicRo2nSXkP+W1/7PWuz9rv+u5nj+p+h9zZAgwGY4C0 +39/DrauX32lvtQqXVgw58I4DVqOXjP1sS2CPf9f13+7KMzmnZVsHxllWboHE +rqz/hCWZ/0JW9Zp9B4nLI+MeC9m2wPnWytEg4lNNC+vjil9AzrdnPcHEd9sP +5/4wfAMFjuEOocSDHc+ij9S+By6vYmkE8aJezZ3fbD6BluwJ1hFix7Fo89CW +L3Dyw8DCGOIHPwYlIos5kH+cYxlP/DZeOao6qBsCHIPaE4hHhW0Hpwx7wTos +9dVpYuHkYC/mTB8I22/YmEasJpfTfLh2AHhKaSsyiV1Uv10ZtRkGW5E+iyJi +Kl9DSV90FBy+jgcWE8dpb0440DIGf9udk6ogfq/8+o+w4nEQts7NaSBm7QjY +n5E8AYx24ZTnxLxsRkFF0CSseiwy/JpYVENfdtxwGjIF38wOEJ9jPbaTVfwG +SkcLr0wSL7vqFbdm5hv4FYo3zhGbrUocPVg7C+H5pc5K7zmwz+RLy6DND0ho +dct2IJ6KDBcU1/kJKrqiTzyJj9VKWOqKzkG9yB7fvcRZaHZjb8svGKgc70kg +Zl1utg0pnocunMfLm4mLmzK64lUF0GXThbYPxLz+3dFnkwXwrwL5/iHiaL3p +yltB8zHJXYgt94HUe1Ndc8xQCKUPfc/2Je5oH34wVySEcd16DRHEyybu7JBW +FEbdzVLbk4lLjFzS9WeEMVhssK2GuPHu0XmBtaL4bs/yOaUODkw/fvVlwEYS +K9y+Og8QyztJykY9kEShJRdfCH/kgMFrW5Qyl0Id/+vvtYkDeqry/1gtjaHP +J4PZxMECLQbrJGXxyHjgs0HiXo2y8YRvcqjfPqUh3UnWh3om1saUx1GH2k4j +YoEbfeoLD8ujwrTI4l3Ey5hL3YuH5JF31EqzhHiHTVpFa5cCGlUH7nL/zIE2 +/5BQ5eeKWOjsEn3nCwc+Xz2T5COqhKdtngb3EQ8PFRdd36CEcfzZAcUuDoiH +db+yqFfCyuTjrAhi2xNbjXyqlFFZo+B/6zgcuHfJZPpangreyqdP9nA5cKmX +jlgbtgRD7nyKPt/HAfttJz+Hli7BNKm91e3Ew40KG0v7lqBmsb6/ZD8HjC6t +UlzmpYZOTTFKCcSNfrsrhayW4sLQlJ6oAQ5MjHX9OXB8GT74maceN8gBhYO2 +tyudNTDkRu7aT6Mc6Lskvs81QAOTnjO6tcc4UPOpXXUkUQPvnlr86xDxLifv +4zr1Gtjlkp4uxCP1rYxwv2ioifujJnRMxsn4g1d5scpaSB/+U6x0kgNb90ro +O3C0cfGGxLfjsxyAiG2G239q41qztTb23zmgl5BnylLRwVLD2qV5xIwi5vpY +Nx2Uf2u6woXmQOnnndsrHumgld+VP8v55H56lMQvKlyOf7g/WpAyR+qzdX47 +6KeLR3dGBWYJcqFoy4WPM7G6OPrm8acfxGf8OF2C/+hiKT/+vq8QF1jHwofU +Xuniibnw9lXCXJCry2FssdHDbGanZbMIFwKYo3q1mitRfdtDowUSXFDVSI1L +6lmFhU/bnzHkuVB3ekr3u4A+3pJvlIkh3jXp9ZpS18fmaN6H78S5jVq663fr +47cSxbkpBS5o7L33cvadPrqvOZo4rsgFvZJeber5anQ/KZU3fxEXlqiqUcu8 +DDDr9JpVyRpcWHU5TJIPhugiv+KugTEX/FjHp/VdDFHc+aFQI3GWZvpnn12G ++ITHat5uwoX5hTdvNUUaItf8581jplzoyB3cml5uiGqlm8Xem3PhVJZPjq4m +E7fYMYazrbjQl+S02lPYCA3+ELkZZ8+FghAt16oWY4z0uL3qhjcXKj7XJy38 +ZIz3B8MXH9jNhQYH7ydRQ8Y4nn3+4so9XOjRyLRaL26Cp/M1LMt8uKDzSkS/ +zc4Ed/A/at7z50IJc0jsa4MJFs2tOTW8nws1U+WPF981xUJFN9G6CC60R4Dp +icvm+Nh5Y6doOhfUd79x8Q5ch1SG5hy0coH9q7psyRHEidTZgRjpblAeqhFR +9luP34xz3pt6d0MY0/JTup4tdkhvKIy52Q1+Iz+aFQY3YLHQ28xLoj1Quj5U +JK/NDg8GGrwyDe2BS1MBj0rObULejafja7t6YNZ64X+NcY5Y6VnENPPthU7G +/HGOrzNqv1nhYTrUC0GLD6XFa25GxsOPo8ERfVC2v7n+fIIrMtXSt+9Q6Yej +kyozK/e7odmpBzF0XT9MO2z0eLLHHT1DHC1cowbAfOdZ6163LchYWSrSbPMV +XqrkBDQyt2KY6/3bdhKDsOjK8bprK7ZhZcjGpmPjg1DTpefkIuWB4V5hsY/e +DIHaa97eiBEP/HK7aYF6wzAwz58tKerajr1vg52q2kcgR3BydfpjT8ygGqap +jlGotl7TkXDXC09aPK+yEORBlulpuR/FO9CPx8tl5fGg7ePlRGbyTpxb15U/ +YjwOVc7ZWsHHdmFncY/1/C/jMH5wCyOI5Y2Zzuuf3omfgOmNuvtGbXbjSOv5 +eTLak3Bt5MNsqMke5Lw3Vcr+MAmeBZf9vSV90Pe//nlyJ6agssJxz/yTPmjW ++kMuY900mKu+/H7quw/mt12tG/s6DZpdezte7PdF9q/4rri0b9AjcWBzdrcv +BlxSF4jCGWg/4+Jvt80PZeOqt239PAPnIvMkwtv9cFC8drXMsVmoe/Dru/8m +fxSQDZybkf8OMrvwJPOeP8YJW5tbpX4Hc5/RawlGLMwptC9sEaLhykVeqIsJ +C5MrluexRGhY8GrCStmMhYySirN8URpGN8y8vmbBwhsJMh46kjR5vxjzWtaz +8Nqbps2H5GmQnpHzkndjIS+Qd6VVjYaeFGOxvIMsXHVrbOShCQ1naqP311xh +4XP2C942fxoOGl4wj7zGQvcS36ACFg1O18vFzIpZaPdQ4NUQmwbxC33X75Sy +UCVD2jVmHw0JIa6D1bdZWKkWK5NxkIZoXa0DVQ0sfGK3xOPUnzQEXHgeWPGZ +hZsmlIpyT9OwSbrPMqSLhfMchjybkmhYkcCQMuSyMElOfGg4mYa+EOPS8l4W +njLpKjRJpcHXJW/k1jAL5w7IeNZl0OApFBp0k2bhubGA9LRsGuxCFwWXKLFR +z7pMe0cpDQ15iQ7pC9mY63m/OqSMBsuWCa3IRWxMcRHqPXWTBgPt5x9s1NgY +ublV+XY5DSrvomw+arPx5V/WLTNVNAyt7VQSNyb/Z86oWz6gIVUg//7eLWws +nDijXv0fmf8aySznbWz8JtVaVtBKw4mdkSHM7WyMzkxqTWqjIfK26/JfO9iY +r2nfuPMFqZ+adzbTj43lY47HBl/TwHzmx/r3MBsZiRqzDR9peHdWW0IzjY2h +IV7D3gM0lIHUvoGzbNwlPpst/ZXkj0w1lmaw0fREusgDYsNNjbFmF9j4j9uw +mMoQ2T+G/4RzLhsvy+bffzhCw8ZD+R8iS0i+fX5V2wQNS5b8z8SqjI0hC/4a +PTBJw9SzQxnzb7Gxodfls/AUDYU64Hymko3b101wzKZp+NnZWV90j4118ofD +UmZouO2keq21mY39j+TzZ/k0JNECQueesZGXMmJ47AcNftcGfb1a2GhpNO+o +8E8aZAXvqfa0sbHnMlNLZo6GwFrP1O9v2ajGju2RZfBBUy8zQquXjSUmtyff +zOcD/S7m1dc+Nn7VNq2xF+RDewLb4OYAWQ/XgtX3iGM5RoPmw2zc43jJ4KIQ +HzqyXnlvnmTjOeGnCXYifEgXkdtwdB6FKwomPNnifKib6NwZNp9CXvkFRitx +f2dxSJAQhXLlUULGEnywvG2b7ydGYXv4Xp054j6fSL6DHIWqb+vro6X4IOu0 +QX6DAoXbOh1d3hNbmMrrgiKF0omTpobSfEiTKvFgqlDooaqwlENsce9Luao6 +hTHzpM1XyvKBulzSrKhJoU78VNER4rS0I19ktClkGv/Y30TcRylICepSmLLo +p/BOOdKvYLdv2IBCefPm+GB5PtybU4jrM6RwPOxOQzlx79eu811GFFqdmfQe +J15bf/TxazMKS15OFh5Q4ENPYJnafaSw36uA5bSAD9KeUcZ31lOYPhIXfozY +3MbeqdyWws+Oc18qiM+ocI9ctqfwbWrqI3lFPtQI3kzLc6AwKyPWDIm7x6Ku +XnSiEHL/FQ0kNmtSfJPiSuFoy6KqB8R+5dyhk+4U2s+Jne0lTsm+KfDXVgrX +uyk0iSvxgRuyySDCk8JM63UWrsRSu5XsgndQqNtpExVMbLap2ztgF4XvMg0W +pBKnLI1J2u1DodjqVNcnxDXiDoWefhQq/Bia7PqdN610151FYfBTQd7s7zxO +d5sTReHev9ttZZRJXsutvo37KKyTs5vQJPa7E/MTAyh8GOwza0KcUuiwwCKQ +Qo0LitvtiWtSlFcaB1HoPN9H2pOYG9ljvSaYQrWX5moUsSSr3FM3hELJhzmJ +IcSmm2MPaYZRuFbrpF3M7/y1jolLIsj5oMd9EomTtRfmKEdSWPO+42UKcbVs +b6XcUQr3TVvlZBBz+OXPJKIpnNNaXH/hd35/LEcolpy/jmCLv4lNXjrO/oqj +sGOFpcw/xP8H9bUAVg== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7056,233 +6692,107 @@ HbLGog== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVmHk4VV8Xx0XGMs9jppCZy3WvYe+lAVEoGdOPZCoylMxFkiEyVkKZMqUS -ShnvFVFUkjmEioyRIhR67/vPOc/nWfvsdfZa37X3OkfKxfeoGz0dHZ017fL/ -++/R9peyCYWo9o3zk23jDqg3RyjEcDAKV7/iO81bQsLA/95FaDANO976fqCv -2AQHWpYNMAwWYB6P5o+3i+0w94Jg2vpAFS7yCdRjLPbEYw3mvssDzXjDfGVq -8l4wNpKd/bQ00I2rp05PX86Ow+sDOjd/DHzBSqcapUVCb+OWfSWFHwp+4W0i -l2uqp0ux2FjtNxflTfyxRT1csrcS0/3yv91+ZBMnBScMDU1V4gkmRVP1oE3M -P5neGv+3Ej9SzXq0+WITR3Ew8rdKV2F0KTTgtu0WfsYeeqrCrwo7ievRd0b9 -w+STMzqWbE/wB5XRpDvzdLBctb7LS+sp5vN2KmPexwCn5ed6504+w4rM99os -bRmg1ziTcfz8MwwF375kejGA8eaT2Zarz7D34FlR5RsM4M1DKnO4/wy/3B+e -aDnJALJOrHPNi89wgHimT2bsdviBjIQDQ57jns5uTaW3jBC5OO+tEFmDp08L -WASMM0LELmfjbSk1eGu7g1fjMiOY/5fR8Dq3Bivqfb5nIc4EgQMe9jLUGhxV -ssgX4MMEk4z3kpk2a7Bm5M7VBi5msJ1y6Lh0oRanaRjVm1uzwMNT+cms9nVY -bdje2MCTBZr3B+Y3udXht9Fne5TCWCCj+uaox7k6zDR4Y44lnwW0ROs7YhLq -cNilr6It8yzw3gFtMTbWYdc3keE60ayAn6YUMInXY6JbvYHkEzb4eUMi609X -Pe7heN/O0cYGJZUFkRXD9div5ov15iAb+JKi1G2+1eOyHWw+Q1tsELqsOOH3 -tx7vqrLLuWG6AwYOe7l9lW3ALP9Wtli+7ICzQ8XH6gMa8Mfb6k1LXOzA6HBL -W5WlEWf1POAM3M0OvP1V2encjdiBQ97pD5kdtHf0v50UacQjV8S36E+xw5rW -zWRLlUY87sOmz1fNDrsT9TPwkUY8vX/iOdGeA3hKvi5fudmI70c4Mdef5YD5 -PcMyz+424jN1QzY0sUA9XYNsX1Ejnlf7sGL8gAPKXOrzPlY34h8iFIL9JgfI -KBUWbfQ24rUfGY/D8jkhWtth/0NOCq5V4v33r5oTSofT9z4UoOBQ9yTz6A5O -SGB6o5IpTsEbw9HfE39xAuFKWS9ZiYIjv9bwv5fmgneODWW3DlBwdGeR1XgA -F3gW0883BVLwhNepMOkILsj0MNlKCafgA6xS91zjueBSiZKyeRQFM+2/83P6 -LhesTu2cSb5OwXG1aalLbVxQelnKQuMeBScURrynF+YGkS93TBY7KNhU6zQP -vww3+NRseV58T8EsL49ay6tww8ST5rT1Hpr/r7uHzQy5oY1vP1/DCAWHS7/9 -duM0N2imp1qc+U7BulXVe0rOc8PjuGXd00sUvGaY6117kRvU/u20tlmh4Asn -z/38lMoNoIv3/N2gYJ88oS25Otp4ettx3x1UrKxOb0h+yQ0Ck/nvxzmoeJY6 -d8WskxtUtJkEgYeKPcYorH5fuOHL5t+WdiEqdpZw469l44FkOU0C224qlig3 -t3vDxwOl4BuxIE/FIwak7E8SPJB9TOLIC0UqtjuxQ4qewANCHEV3NNWp+Mid -SmWz4zww5XP20n5dKuZSzvY94cYD+Vvfcu/qU3FnfXSVry8P7M2nD55EVGw6 -bEu6cYUHrjzsczPcR8UsXoZhxdd54PtEYpz1ASpu+6NIqcnggYWKyTA7Yyre -K7K179MDHhA0FV9UNKNiurKpmMVqHjBQ8A//c4iKKeQP7duaeCDzjuVKjTkV -69kXWsj18oCSs14r/VEq/jN9PY00ygM3dqgpJllRcU1wUJ/pNA90TV66xWJN -xVq3TY/7bvDAeZG8/A5bKv4pr5VzmYkXJiXemPPYU3HFc/HP6Vy8sHiVUfKg -AxX7GDPLFovwAvPOXDHf41SsMvDDvUaWF64arZhFO1LxvPvQ/Q5VXnBNP18d -d4KKy363zI+QeKGPJd05/D8qlhPIOLftMC+kb3zK1HCm4omiyGpeW15QfIh1 -ftG4QPvM2u6TvPC2tVyr8CQtP61WeiQvXtDcNp2534WWH2uDS6YXeIHOq9qn -l8YjE3IvHCN4YcFqoc7qFBVnBXBt943nBR4Iimmmsd32P0aX03lhe7/hR0lX -Kha88TU+/S4vMHYeqvehsZBSdfRaMS8cFgq6VUpjkeaYiBMVvKASraTRS2Mx -e7vQ5lpeGHvEmLZEY4kfey7It/BCz0QZlc6NiiVj//omvuWFuF0dTdtoLC3x -7sxSHy/cXBS9s0wbL1ud42YzxgveF1zsPtJ49yE/5/ppXtA/dnrjMY3lvhoe -l/zJC+1FjMnBNFYI5bW5+pcX5Bf4BQk0VuSetJzdzgfJnFHZY7T1KJc+M7Pg -4ANmpCdzicaqOM7oqSAfqP7Sq+agsXq/vaGwFB8Mfo61S6XFR/Oskv4lRT5o -mlHiY6IxYfsm8SuBD4g70KI3Lb5a2Z0aJgZ8kOnw6UcrLf5EzTzlR0Z8wLas -IclNY1K7vzyPJR8sL3hHmztRsa7zPukgez5IP/Ja9hItn/qrfOIjLnwQuD2W -JY+Wb5T0TdDQmw/o25aJT2l6MGyIZ98RwQcelqTUJzT97LU6zuIXR/N/9MOb -HJq+9s8qM/Sl8sF/9bk+4XZUbCLUtZZTyAeybM1snDZUbBEgMKHZwQe1dAZ+ -aZZUbLljejSjhw8qFd2o3BZUfLSg9uPGCB9Qr3s+uXKYim26HN+3LfIBX9ZS -KTal4hPK9+oc+PkhS9O9UIhWb/+1BFRTJfhh98fYZRVDmr4cjCpkFfiBoYeo -QMRU7Bo3U7Sgyw8SX5UcdulRsdeEWmqUMz+w0T1ot9akYu+wbYlTp/nh/jRJ -kIFW/z48PTGHzvODZdda3D0VKj4HgeECMfxw1HZxvVGBikPuNHiUPeAHimbA -ur0EFcceO4i6f/PDUL7kS21mmt6edorQbxMAwc32sD4GKi7nPbaqsUMApNlF -nrrTUXF/938VqbsEoKmzt/vEOgXLHgmQPmIiAPn3q//lzlJw8+Fcpq5MAQi8 -kj13kbb/2jyS/frvngBM+u+f122j4NmdZVS1cgFo7+OXnn1BwdxvnwYnNwvA -rwT/47tqKdjZtGPWfE4AWvWDTL8VU/Cm0UrnO31B8Oj3OvEjgoJTikMfbBoJ -wmBPolJ/KM0/E12cyhFBiFhVmiu/QMGHWtkMr7sJwvXH333IXhSctU/yyaEk -QdjZu3voiTUFk8As482YIGj9mho3UaDg8+R8p/YoIbjmuPrt4MtGbJrHsWyW -KAQ53VqLApRGLM0cHtd5UwggjX3h4/NG3NVrU9lTKgR37d+sGT5oxKp+OxlG -O4XAP6LuVHYq7bwtDir+KSIMmRMfC8IdG7Ejn/l30SfC8KjF+pvhXAPev/gn -1OerCKjYCTySW6zHISY3FF/Mi0BG1jgs0PqF8nyVId7fIlAgwFpTPlqPhY45 -k2tZRGFjuDBYpLMez9e0rjKoioLYjUOOOQ/rcXpUSkBmsCgYU/8LdPasx1/4 -5XxesovBKaM4cb7hOnxZ/8hJEZI4KLPdeOv+uBbrlmc+vUTdBRdLjG8oz9H6 -t7WlyNfsUqB7IPW+sfpTvK7ENapiLQ0F52Q9KKRKrP/gYd6tWzKwShkuqhl6 -iJd4TJ1tmmUB3hxS1mEsxROJzjbnmOVA7XfOXX2Le/jgYtDBSaI89O7+HsG+ -lIPFNCRiWPTl4YhJXi65OwcvnHvZrGQoD1bjtx+FPsnBN35z6Z8zk4fsjJxU -vcAcPLp5X/WfkzyQmiRcajbu4nM7R3iF4+WhhaIreZf9Ls7aA6OHhuVhI8qh -kgln4/lTLOefRijAFwG+2edjGXghZ38jNVoBzPNsuK+2ZeDFj5HMb+IVILbx -Yanbowz802I9+3O6AvQpFfOeDMvAq3qzLzlKFUBJy+wQCGVger63Aqe7aCzJ -WpptfQsLv0yuE5faA8UBn51zRm/Q+ndB+tjmPSAW8mjOVyENz7gYl+q92gOM -1MtbB/nTcGJ+kPmPN3sgtu3OTQJ9Gu6RGMyy79sDmaOJOtojqdhZOJOgPL0H -1sb2ZS6lpOIQDlG3D+yKUN4wrHNwMwU/XJN4LWqvCE3FxyoSmpOxhY6FT9cJ -RUj/OFbHnJeMf16I4LvqoghaKW1y+ReTMfnXmPOClyIwbwnPKZGTcdv3vPWm -S4pg1sqbm1uZhMe+SCu5FyqCbfdxl18l1zHPO7mkikVFYGRlU5q+n4C3FtWL -OpYVwavz/neHuAQ8y6PXMLGuCHutiGIL7gm42c5iVmi7EtwTuOt/QTYBn58I -MrospAQCa4VzjPnXcO/f11tHDJUg4HN3gHhePM5Q9PL9laYEL0yRWV51LI4+ -fCGG/bYSHDvXEPY3Ixb7+UXclb+rBPsPsFQEhMZik2fpb46XKEGjamVfE46l -9VcN8i/rlcBvj9iPxjcx2MGeffzGhBJMLxWp6M5cxWJxjy2JRGWQdOd+XEGO -xmXlj1rWdZUBFCHNSSoak/oeEBuxMtiM2YTKsUbjY9KlYvsPKoNwRp3QxuAV -nNiQN33EURm+kbo7XoZcwX9/pEaejVKGV8Te6UZqFB6yD6go7FQGEr2w9ajj -ZewZeU7Gs0cZHnwsy/Uxvox/F/vdUhpUhoZrTvN8mpcxz7J3eNVnZfB4oX3o -HvNlbJrkZtK0rAxtacrurU8icW2zzfiwiAoEnqnm5OaKxLeVyFy8HiqgsY9k -U15xEVubvUuheKlA7LXC+M6Ei5jH6yT3GT8VyEgrMeD3uIgTyuJ5XoSoQK5C -ZSW/xEV8ac8Qn2+iCgj6S6WPXQ/HrvJhwm8qVUCMPTbnYkAY1pBplL6yoQL1 -LOU3BE+E4IW9R+6pblMFOQrZ9b1+CC5zmZQZYlQFpeIk/jKxECxbwL5bg1MV -Pv5iffhqJBgLSf0nPyalCpUFecl5/wXjLYl/SnrGqnDB8EVihWcQ7hAx1P6V -qgrnr1+zj7l5AXdJPJbbnqEKBqmagfRBF3C/tLgQ/x1V2Dv9Lvae3QX8WXH9 -D7GYZs+i/LMSu4DXdCubQutUoclLPeJMUQCWOy51iP6rKhiVOAxYUM7jqOxt -p7i11KDaeFKHi+0cjsv1PSZNVoOzHxQOzCz646R7nw4QkBqU/+cs8LXPH2c+ -qFWwNlGDFVOJK6QCf1xR779w21EN4o7+3HLX98ejw59DJK+qQdJXhqvPAv2w -rlhzilq/Gvw8UBYbu90Hf5GRHZ0ZUgPBoYSS6aGzOF4pRqlwTA3cX4ztDK88 -iwd1TduEZtQg7EXMBMnpLA6y7/67bUMN0neMBDI2emMHM3/CLJc6/DHdpGu6 -7IVvxV3OaSCqg3ghMdVX9TQ+k6jZKkxWh/3cp5Ya2E5jlPJ1LlBPHXxtNp4S -pzzxZMYBsgaoQ/4RnqryPE+sVcLaW3RQHRTbn2c/4PfE3a2prMmO6qD2dNSi -itkDczAUBJyMUocq69HkZjY3zLROtVqKVofGwwrrdTOueGvhk+blWHVwYnaV -//zaFS8OCS/lJdKeV71E9yzWFXdVpZ4dv6UO8RVsi2HMrjjN5bK70wN1uP3f -rZtmnKewQLOz3Yledag99+dEJjqJOWou6XzvV4eZv1YPp6RPYqbyOwIXP6rD -YnDHxRPMJ/Fq5mDvnVF1cNj9bJ7S5YwH/S2PjEyrw2N7mX4rN2ecJQWmxzfV -IVmEJVBXyQlLXN6lby+nATc1i9K/Sjvi8vMs0p8UNODO3qipmJXjGLkvMZ9U -0gC2cPObXq+P4xNmLT2e6hrA9LKGsupzHN/h9/AK1tUA4yWeTB6qAxYuK8/K -MNcAgvK1UXYve8zXY7DeF6gBL78kKzD+sMGFrXJj9iG0+d7s24U6bDChhrP1 -U5gG1J9M/VNeaIOP3v2cMhmpAZm7tvbqONjgVI+rCivXNMCqOtp96JU15th4 -a8uXqwFXZA10VB8dw6y7HZ8dfUV733efGLVyjuIzwtj0QbsGbA816duKPIo7 -2KVHGd5qQL/L422/Th3Fib+nGKu7NMA237PYRvEo5nh93lpwiGY3FLjLWHuE -Vu8Jy8PzGpCzRHnb/8kSi1XWabrxaMIxjWnBmVhzHF50t62RTxPOi90PELI1 -x58yIx0EBDXhmrdlepKcOc6JMop6JaoJ75oZKw63HcaSx7o/7NmtCbuH6B6z -sx7Gu1dn/BZ0NEG9V1fFJNsMqxoIPw46oQn5mnm9x36Y4Ccyp//SO2tCReHU -DtOXJpjEVmuc5KIJwxfqOGNum+C9A3bjhR6a4COcPN9laIJt/G9zd/trwoPL -hlIlGcY4okgwQDlGEwK6CTJ0lka4i12A/LlcEw54tAp9+LEPWy+7XfWu1ISf -oHDs29t9eGio+sPqE00owzsqiPf34YkS6zMctZrgMXXaL9ZlH23/v5mt16IJ -hGaFhrGBvVgqkG/r5oAmpGUcFJZ+Z4jPjfK0mNIRgEe6QMyXivHrNsfGMnoC -fI+esqeLx1jicfFzNkYCLBNKtKaOYtwRofuwg5UAhX+tvjyZQlhayuWmKS8B -7m81ierzI/zhVKWHqRwBPAY4mvIj9LH6jMVO00ME0C/7PvIgiYxjPmQylZkT -4Kmemj+PCxmP1H6lYztCgFC/iZImbTKOuxa00m5NgAgtduefn0h4XCl39KAT -AdTNhztzNUg4xWeh4uA5Arg3R4x2TBLx4q9E64O3CfDOPuJxwyUtPDKYb3M3 -iwCHBm1ecB7Xwh2Nz2yX7hAg0XZO4Y6OFi6MHbfPzCfAgpnSI6clAnYQ1fpv -powACcVjCXEeBNy6d9g9vpEABwSubhP9TxNnp+4Jbv9CABmKqJX0OXUcF4hC -xCcJQLik9pzJWh0HHrcK9Z8iwLE6ifciJHVsuftiuPA8AapLf2/lb6phptqu -yNMrBOCz3O8/LKaG/ceD4llZtIB0ivTBzlsFG6u1ZR1U0YIr2cr2Y2aK2I7J -5FiXmhbsFD2zkSikiM98ame31dQC6fKu3IzJPTgp4V2kq44WQOa+qBeRe3D/ -VK97hKEWnKS4y9rWK2DXvK+a1dZa8Pj38V0shvI4invbG8lLWtBnL3Mp55os -vjEdFV0SqQXZjRxqPSdlcTF1O1K9ogUzgc7mVmRZ3HGWpVIvTguo2X1DhBkZ -zN3BmWGTpgWNln/dPQ/J4LwoiVOJxVpwwdY1jSApjSm/9P6udmpBoaHEEcLy -Lpz/9rmL1QctOO/LorTyfBeOLiJ0lPdoQZzcKTap8F34oK1SptugFhz+z0Dl -KeMu3FsnotPzWQuKf/JFV4tL4NnL6+fKl7Xg6XHXm+nOYliA6/msq4g2mEeN -nHdXEcbr05pHm8S0YfuImpraphAeeVFeK7pLG2rSTCzM3wnh/PPFcd0y2hBH -JkRf9xHCygM35UBFGybbPxynqxbEe3MCXERBG0psngI+IoB9lDWHPrhpg1Do -338xLbz4wqrIHydPbZBiunZrLJMXhzcziCyc0YYDFgyR1/x4cYJdnz2bnzag -+t2/eiV4cWl08Me9odqQF6wmqxzBg7+MUAafJGkDnfhjMTdzbjxTUrJmmKoN -yxaTwTl7uPGPcylCXenawPmXQJBi5Mb/WFzs5m9rg7X1j0K6Ri4sps04KHtP -G7AQ2xchdS5sc91s4OZzGudqRocYceATdlqrMnXa8DJTvfkOIwd2lREXrGrQ -hj++s1l7W9nx+doFm84X2rBIV2HOY8SOUyZT+5neasOLa/uDSw7vxB0Gg31B -49rw1Kmmdfg8GzZYcO21ZyXC1/D4R1YCzFig3rigYQcRdqY7tzpPMeGFWEW/ -XRxEYCm3ev2qhgnnSP3YMclDhNHRTs58Rya8dSxsn58YERKMo518SxkxtT61 -KkaNCMkfXgkuW2zHt+MCImc0iKDu1b1uI7cd+1nbmh/SIgJHXZ8u2yYDllwU -m+UmE2Gu0fG20wMGHCldKnV3LxFecO5XeraDARvGU1KeWBNhml55/fbQNixi -k/+fgB0RuHz3MzRVb8M/paOVQxyIUK557b1q6jZc0HDwNXIiwts04eLPJtsw -/Y/ef+2eRPhC9xEl1dPhFps5n/EwIojyownF4//QAVmhw+wFRGD//qpWPeov -evq9Vcq1kGY3U2quPvgXyT4//7uumAj8FVGnS7n/ou2m73M9HxDBZjQ1tKfg -D2r2jfnZ8pQI6WE7tJU61hGqX84IfUWEhld375OV11B5dIH3h3YiPD3bqoD+ -rCJxc0tDhbdEsFw74Fv4ehVtjD+Y7esigkwqITbdfRXVMZ0y0Bgigu3VklvT -xb8R8eiHL1PzRAhYvpw1QFpBxaIRz9EiEZgWh+VKdq4g/knlxJtLRHCbV+95 -N76MloPitPf9JoIL4zCLxLVlVHUXx+X8IwLlsFVyzfgvpDbzSMWaRwckv7RU -mN/9iRQirwU36+iAs5Kz77rFD9SgV8R4SFcH7qp5OeUr/kCWq9S0Pn0duBg+ -5prF+AMF+6w8nDbUgbIwZ50/wYvotaPzZ45DOvD9u8Snb8cXkCeZaHrcWQe2 -TMmBmmgebSxbDky46EDIeog65+YcSqnwcvVx0wHPyT1XQxvmUI18/qXLZ3Tg -ukLy6TX9OcQisPNJSYAOFDDbXfPfP4vu//wsuhynA3hKJu6U9zRC5RulFxN0 -YJErf7WQMI26TwsSmZN0AIwuFJ/6O4X+jB+yFEnXgfXExapjiVPI9P3zaLir -A03O/+JnnnxDsw+uf0+s1IEjTjPx24UnkaIbmbp7SAfuvVe/nab1BSVLm/+5 -MqIDQiNFNy/v/IKWx1y0v4zqgFv2pZCXE58RxSHxQc5XHZC3Cflv363P6Kjl -WIbgdx1w3N/cxrs5jkL0rvqx0pGgNsTqyHTVGBpdy3zgQU+ClrLvbx56j6G9 -z8q/tW4nwY0EOz9G+TG0U2PQMYqVBEZFK9k+d0dRnpzSwb88JCjWWK6jS/2E -XnN/kPq+mwQMfVp9ymnDSOX9pKOZAgmKAphly48No7TEPxn3FUmwmfhbukpw -GDkyy3K4q5Gg4P1nIZQ7hBY3Av+MkkiQZyJQfPDpRyQwLdbTZUaifd8xBVit -DCA3imf0U38SpM3qp1e+7UULZ2eDDgSQILnb4nprZi8KFvf26g8kgateRail -Ry+6Fu57dC2MBMQPI3yvGHpRhW6gpH4MCe5nrDCI7u1BG8+uNLRkkUAyqD48 -qucDinFnrDh2lwSZJoTRpJIPiFMg9t5kLgn69BKf04d/QNIXrl1jLiLB81V5 -krjcB2RMSLUze0wCxrmlou0RXSjtcc5ydwsJlM8V19Re7URiTpLTp9pIMES9 -wrlE7kRFHAXDy69JENO5rDqy8A7VnC1qFugkwUAFIfiVwzv0SelhisMgCVIv -ODe36b5FCqW1yl/mSdB1idNYUKQDUfN6XZf4yeCgE1kjcqgNjR+ScgoUIsPw -cVbBTb42RLd+1v6vCBkyJtzenRxtRXuPMJszSpIhQESw4tG5VtS2TVdHWJEM -yOLCR7X8l+itSy6rIaLZhSjvZ/ha0HeOeYY2IENDKOny2clmxFFP2jLdR4bd -+05ZuTxrRpa83T+PmZBhJf6sQ7Z9M+pp2T7ieZQMaWb1PmpFL9CQ7JnyFHcy -RDYG27JZNqG/Xc9K+U+TQSy2NkhZvgmJXWS4l+VFhjnO18dOblLRib47GYV+ -ZMhb10x9foKKxq++j6wJJcPhe821B+UpaOqbltV4EhkG+3/tSBmpR8ul/1bV -ntPWvyrlW/3yOfpmY5QXX0uGsDderJ6Jz9Hg9usmX+vJILV6KSHr2HNU7yyS -eauJDK1EppXQb89QlJC27mY7GbSkNrN2cD1DXHFnwjtGyFB2tE3xashTRE+s -lJUdI0Ove++uWpOnaPnr6tuLn8lgUD750FHoKRrAV8U1vpGh2GJHy0LNE5Sz -mkvJWCTDtnqfGtl/VUjZo4/OjV4Xeqi73u/MrUQS/GL3Kdt1YfpV5tG3AZWI -q8XliBCzLpgc7Rb+blqJfkn8yH+zQxd2ZopLWKxVoLp+tn2a/LowEijJesm2 -ApkYwdV/8rpQwyuaUna4HJ3a/YA167AuxEVyXrJnKUOhrf+dkbPUBbfN+b3j -LfdRihvPm6qjujA0nCTJF3kfNRSFJL6x1QXxivN54X9KEZ+cCefmSV3AFWbD -MqslqE1uks85UBcqZX6d9OMoRiNtty/MB+uCTT/jjZ29Rein+6H+4DBdOJDz -/bRBVhHaVfIkIzVSF1y0Ax1tFYpQsHyUSMs12nwsDSkHzAqRosIuSblcXfB+ -cVh7rKwAwevuyKp8Xfg47T4rHVKAbDxjPqNCXeiUrhL7ZlyArpR+L7C9rwtn -HhoKffuWj0YUGnbHP9GFRSfHyTLFfJS0x15p/pUu3EhmdopPyUVLiunEqh+6 -kNU1EHikNAsNvoUDvL90QX4Ansi6ZaEmnwWrgBVdGHgxspIlnYWSqg76E//o -woXZlXtncjORoi7dwzoGPXBbZ/t9Nu82cjl4VqpFQA+Impln2ym30ME5EXVZ -YT1w+Pj7gPTVW0j9+mt0VVQPLIPG55gP3UJbXTKOxpJ6sL9hLixg+CbKthu6 -9WaPHnDufHH4Md1N1OthvLNXXw+MQ8RGM0+lo3rWFRFtrAccXPv5lTTTUcGD -gj23DPVgY0O0XXtbOvJb3DSyM9KDzXms9iQvDbEHPb08YqEHisQlPbXJVGQU -I7U64aIH6k4TMehKCqop/Pt5JU4PzAV+W8cLJyLivoBV0wQ9OO1omB7WnYCq -P8/vzLuuByfymxVEExNQlcSojmmaHpQfb2dy3JaAHt5uup6TrQf24VsbNb/i -UV7iVbJxuR78ZpWLSfodiySUtszvVOjBquclt9zaWHS3PdB1qUoPcvCb7gMX -Y1EWk2dy9nM9yOxnGjjMFItuRJpOLjbpwc9KjkrZXTEoPoAz9XaPHlwWlPj0 -+kw0YuGNK/7epwep7/b0pxOjUUwlXcPeQT14x1P1bIw+GkUvLH2bH9GDZxPX -PFfuXEGXPHv1Db/pwUnBMMpqfxQ655g5PbNGi6/SWyOHk5eRw34Z0JPQB7cA -HdFjKRfRZi8LR4ukPkxw2ST5GlxEeW4Lw6Yy+hBycSPHay4cfYupDXJQ0Icd -RS2BGwfD0bl2i8chmvrAMtljvpc7DF0zD5eoMdKH2BA2mbC2YKQydnIeH9SH -xGs+05mRwajL17julZk+aE5eNwjSC0YCqTw2A5b6wMv2tN3tSRAq6Cm9/ttB -Hw4yUj+NPAhEdXZ9G1q++pB+Q1biVmMAOjFT19Hgrw9yNYuPG6MCEF1o3u39 -AfrQHeVAiTEJQEbZXlrHQvRBsnOp9HffedT9aZv3+Sv6sMdDnlly7RyadVEd -rszQByn+J10kO38keja2VrVJH6YqfuXf+uONkv65ayc068PLhbVdPx56I/o0 -o8qpl/rA/uY9E6+zN5p9xng/r10f7o6PEh699kJ1dNG3eXr04RVnAt9mwRnk -cCMy6PekPmTMeSidCfVEnXLOv45O64MqcYM1mOSJ9tZi38ez+jAX/uKnxqoH -Uhzdcvdc1AfMe0L6XqAHWpe/aDO0pg+z6RczD110R7frQ7QpOwxAw8Shx7rU -Fe00t68U4TCAqZ3Zmyf9XFHkOEkliMvg//8HftORXZEn45qsOr8B1LrUxS+9 -OYV0LAL5CiQM4DtQT15Yc0H9X879uqphAHspwtG9Z04ifjbvysO2BmCiUdaz -aXsCFe67GPrD3gAejhv5O205Is2LSfvSHQ0g/B2rW0eRIzL/UdE3eNIArOzO -h1asHkcx/Svrp7wNICwj/4h3iQNaK4jYG3rZAGJ0mOm1tOxQzEjKDvFoA1A5 -c8t7cMYW8QkU9FJjDGD31CdnhzxbpB7/0p0x0QDkfk4vz3PaotO+rAkptwyA -73NkOcu6NRrSS+8pfmAAMlY3DDiXrJDnhcI7B8sNQDpZo8X3iRX6XV7tNl9h -AOJHJZjjA60Qj/TgqsYzA6DLGfD7tHUUmbGIizU2GcD8x6C8XsGjqKG32LWn -jxavQ1PnDpy2RKYcNSqBgwbwwitYbB/REg0at/8WGjaArHOHi4YYLNFy3Vzc -f+MG0G/BXJZnaIFU8tUfzcwagN+GUOShlsOoYcgwMPG7ASRKUUuuuh9GpnxW -WO2HAbwR/xM/wHYYucde+BCwQuOYqPIam0NouSkmS3DNANzDk3MNt8xQ1J+M -U3V/DCDfNaK0v9gMcWndVz6xaQBXhz8+C7A0Qzln61b+/aPli3GwSeivKfof -HbLGog== +1:eJwV1HlUjdsbB/AjzfOgkohGiuh2GpWeJ0VpUiGFaDjnRZI03WjSpfyolCK5 +tzljKiolCkk3oVuZieicRo2nSXkP+W1/7PWuz9rv+u5nj+p+h9zZAgwGY4C0 +39/DrauX32lvtQqXVgw58I4DVqOXjP1sS2CPf9f13+7KMzmnZVsHxllWboHE +rqz/hCWZ/0JW9Zp9B4nLI+MeC9m2wPnWytEg4lNNC+vjil9AzrdnPcHEd9sP +5/4wfAMFjuEOocSDHc+ij9S+By6vYmkE8aJezZ3fbD6BluwJ1hFix7Fo89CW +L3Dyw8DCGOIHPwYlIos5kH+cYxlP/DZeOao6qBsCHIPaE4hHhW0Hpwx7wTos +9dVpYuHkYC/mTB8I22/YmEasJpfTfLh2AHhKaSsyiV1Uv10ZtRkGW5E+iyJi +Kl9DSV90FBy+jgcWE8dpb0440DIGf9udk6ogfq/8+o+w4nEQts7NaSBm7QjY +n5E8AYx24ZTnxLxsRkFF0CSseiwy/JpYVENfdtxwGjIF38wOEJ9jPbaTVfwG +SkcLr0wSL7vqFbdm5hv4FYo3zhGbrUocPVg7C+H5pc5K7zmwz+RLy6DND0ho +dct2IJ6KDBcU1/kJKrqiTzyJj9VKWOqKzkG9yB7fvcRZaHZjb8svGKgc70kg +Zl1utg0pnocunMfLm4mLmzK64lUF0GXThbYPxLz+3dFnkwXwrwL5/iHiaL3p +yltB8zHJXYgt94HUe1Ndc8xQCKUPfc/2Je5oH34wVySEcd16DRHEyybu7JBW +FEbdzVLbk4lLjFzS9WeEMVhssK2GuPHu0XmBtaL4bs/yOaUODkw/fvVlwEYS +K9y+Og8QyztJykY9kEShJRdfCH/kgMFrW5Qyl0Id/+vvtYkDeqry/1gtjaHP +J4PZxMECLQbrJGXxyHjgs0HiXo2y8YRvcqjfPqUh3UnWh3om1saUx1GH2k4j +YoEbfeoLD8ujwrTI4l3Ey5hL3YuH5JF31EqzhHiHTVpFa5cCGlUH7nL/zIE2 +/5BQ5eeKWOjsEn3nCwc+Xz2T5COqhKdtngb3EQ8PFRdd36CEcfzZAcUuDoiH +db+yqFfCyuTjrAhi2xNbjXyqlFFZo+B/6zgcuHfJZPpangreyqdP9nA5cKmX +jlgbtgRD7nyKPt/HAfttJz+Hli7BNKm91e3Ew40KG0v7lqBmsb6/ZD8HjC6t +UlzmpYZOTTFKCcSNfrsrhayW4sLQlJ6oAQ5MjHX9OXB8GT74maceN8gBhYO2 +tyudNTDkRu7aT6Mc6Lskvs81QAOTnjO6tcc4UPOpXXUkUQPvnlr86xDxLifv +4zr1Gtjlkp4uxCP1rYxwv2ioifujJnRMxsn4g1d5scpaSB/+U6x0kgNb90ro +O3C0cfGGxLfjsxyAiG2G239q41qztTb23zmgl5BnylLRwVLD2qV5xIwi5vpY +Nx2Uf2u6woXmQOnnndsrHumgld+VP8v55H56lMQvKlyOf7g/WpAyR+qzdX47 +6KeLR3dGBWYJcqFoy4WPM7G6OPrm8acfxGf8OF2C/+hiKT/+vq8QF1jHwofU +Xuniibnw9lXCXJCry2FssdHDbGanZbMIFwKYo3q1mitRfdtDowUSXFDVSI1L +6lmFhU/bnzHkuVB3ekr3u4A+3pJvlIkh3jXp9ZpS18fmaN6H78S5jVq663fr +47cSxbkpBS5o7L33cvadPrqvOZo4rsgFvZJeber5anQ/KZU3fxEXlqiqUcu8 +DDDr9JpVyRpcWHU5TJIPhugiv+KugTEX/FjHp/VdDFHc+aFQI3GWZvpnn12G ++ITHat5uwoX5hTdvNUUaItf8581jplzoyB3cml5uiGqlm8Xem3PhVJZPjq4m +E7fYMYazrbjQl+S02lPYCA3+ELkZZ8+FghAt16oWY4z0uL3qhjcXKj7XJy38 +ZIz3B8MXH9jNhQYH7ydRQ8Y4nn3+4so9XOjRyLRaL26Cp/M1LMt8uKDzSkS/ +zc4Ed/A/at7z50IJc0jsa4MJFs2tOTW8nws1U+WPF981xUJFN9G6CC60R4Dp +icvm+Nh5Y6doOhfUd79x8Q5ch1SG5hy0coH9q7psyRHEidTZgRjpblAeqhFR +9luP34xz3pt6d0MY0/JTup4tdkhvKIy52Q1+Iz+aFQY3YLHQ28xLoj1Quj5U +JK/NDg8GGrwyDe2BS1MBj0rObULejafja7t6YNZ64X+NcY5Y6VnENPPthU7G +/HGOrzNqv1nhYTrUC0GLD6XFa25GxsOPo8ERfVC2v7n+fIIrMtXSt+9Q6Yej +kyozK/e7odmpBzF0XT9MO2z0eLLHHT1DHC1cowbAfOdZ6163LchYWSrSbPMV +XqrkBDQyt2KY6/3bdhKDsOjK8bprK7ZhZcjGpmPjg1DTpefkIuWB4V5hsY/e +DIHaa97eiBEP/HK7aYF6wzAwz58tKerajr1vg52q2kcgR3BydfpjT8ygGqap +jlGotl7TkXDXC09aPK+yEORBlulpuR/FO9CPx8tl5fGg7ePlRGbyTpxb15U/ +YjwOVc7ZWsHHdmFncY/1/C/jMH5wCyOI5Y2Zzuuf3omfgOmNuvtGbXbjSOv5 +eTLak3Bt5MNsqMke5Lw3Vcr+MAmeBZf9vSV90Pe//nlyJ6agssJxz/yTPmjW ++kMuY900mKu+/H7quw/mt12tG/s6DZpdezte7PdF9q/4rri0b9AjcWBzdrcv +BlxSF4jCGWg/4+Jvt80PZeOqt239PAPnIvMkwtv9cFC8drXMsVmoe/Dru/8m +fxSQDZybkf8OMrvwJPOeP8YJW5tbpX4Hc5/RawlGLMwptC9sEaLhykVeqIsJ +C5MrluexRGhY8GrCStmMhYySirN8URpGN8y8vmbBwhsJMh46kjR5vxjzWtaz +8Nqbps2H5GmQnpHzkndjIS+Qd6VVjYaeFGOxvIMsXHVrbOShCQ1naqP311xh +4XP2C942fxoOGl4wj7zGQvcS36ACFg1O18vFzIpZaPdQ4NUQmwbxC33X75Sy +UCVD2jVmHw0JIa6D1bdZWKkWK5NxkIZoXa0DVQ0sfGK3xOPUnzQEXHgeWPGZ +hZsmlIpyT9OwSbrPMqSLhfMchjybkmhYkcCQMuSyMElOfGg4mYa+EOPS8l4W +njLpKjRJpcHXJW/k1jAL5w7IeNZl0OApFBp0k2bhubGA9LRsGuxCFwWXKLFR +z7pMe0cpDQ15iQ7pC9mY63m/OqSMBsuWCa3IRWxMcRHqPXWTBgPt5x9s1NgY +ublV+XY5DSrvomw+arPx5V/WLTNVNAyt7VQSNyb/Z86oWz6gIVUg//7eLWws +nDijXv0fmf8aySznbWz8JtVaVtBKw4mdkSHM7WyMzkxqTWqjIfK26/JfO9iY +r2nfuPMFqZ+adzbTj43lY47HBl/TwHzmx/r3MBsZiRqzDR9peHdWW0IzjY2h +IV7D3gM0lIHUvoGzbNwlPpst/ZXkj0w1lmaw0fREusgDYsNNjbFmF9j4j9uw +mMoQ2T+G/4RzLhsvy+bffzhCw8ZD+R8iS0i+fX5V2wQNS5b8z8SqjI0hC/4a +PTBJw9SzQxnzb7Gxodfls/AUDYU64Hymko3b101wzKZp+NnZWV90j4118ofD +UmZouO2keq21mY39j+TzZ/k0JNECQueesZGXMmJ47AcNftcGfb1a2GhpNO+o +8E8aZAXvqfa0sbHnMlNLZo6GwFrP1O9v2ajGju2RZfBBUy8zQquXjSUmtyff +zOcD/S7m1dc+Nn7VNq2xF+RDewLb4OYAWQ/XgtX3iGM5RoPmw2zc43jJ4KIQ +HzqyXnlvnmTjOeGnCXYifEgXkdtwdB6FKwomPNnifKib6NwZNp9CXvkFRitx +f2dxSJAQhXLlUULGEnywvG2b7ydGYXv4Xp054j6fSL6DHIWqb+vro6X4IOu0 +QX6DAoXbOh1d3hNbmMrrgiKF0omTpobSfEiTKvFgqlDooaqwlENsce9Luao6 +hTHzpM1XyvKBulzSrKhJoU78VNER4rS0I19ktClkGv/Y30TcRylICepSmLLo +p/BOOdKvYLdv2IBCefPm+GB5PtybU4jrM6RwPOxOQzlx79eu811GFFqdmfQe +J15bf/TxazMKS15OFh5Q4ENPYJnafaSw36uA5bSAD9KeUcZ31lOYPhIXfozY +3MbeqdyWws+Oc18qiM+ocI9ctqfwbWrqI3lFPtQI3kzLc6AwKyPWDIm7x6Ku +XnSiEHL/FQ0kNmtSfJPiSuFoy6KqB8R+5dyhk+4U2s+Jne0lTsm+KfDXVgrX +uyk0iSvxgRuyySDCk8JM63UWrsRSu5XsgndQqNtpExVMbLap2ztgF4XvMg0W +pBKnLI1J2u1DodjqVNcnxDXiDoWefhQq/Bia7PqdN610151FYfBTQd7s7zxO +d5sTReHev9ttZZRJXsutvo37KKyTs5vQJPa7E/MTAyh8GOwza0KcUuiwwCKQ +Qo0LitvtiWtSlFcaB1HoPN9H2pOYG9ljvSaYQrWX5moUsSSr3FM3hELJhzmJ +IcSmm2MPaYZRuFbrpF3M7/y1jolLIsj5oMd9EomTtRfmKEdSWPO+42UKcbVs +b6XcUQr3TVvlZBBz+OXPJKIpnNNaXH/hd35/LEcolpy/jmCLv4lNXjrO/oqj +sGOFpcw/xP8H9bUAVg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "PlotRange" -> {{0, 180}, {0.5575463512581808, + 1.6932631106488345`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, - "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> - GoldenRatio^(-1), "DefaultStyle" -> { + "AxesOrigin" -> {0, 0.557546351258182}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7294,19 +6804,21 @@ HbLGog== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, - "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "PlotRange" -> {{0, 180}, {0.5575463512581808, + 1.6932631106488345`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.557546351258182}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7320,232 +6832,105 @@ HbLGog== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVmHk4VV8Xx0XGMs9jppCZy3WvYe+lAVEoGdOPZCoylMxFkiEyVkKZMqUS -ShnvFVFUkjmEioyRIhR67/vPOc/nWfvsdfZa37X3OkfKxfeoGz0dHZ017fL/ -++/R9peyCYWo9o3zk23jDqg3RyjEcDAKV7/iO81bQsLA/95FaDANO976fqCv -2AQHWpYNMAwWYB6P5o+3i+0w94Jg2vpAFS7yCdRjLPbEYw3mvssDzXjDfGVq -8l4wNpKd/bQ00I2rp05PX86Ow+sDOjd/DHzBSqcapUVCb+OWfSWFHwp+4W0i -l2uqp0ux2FjtNxflTfyxRT1csrcS0/3yv91+ZBMnBScMDU1V4gkmRVP1oE3M -P5neGv+3Ej9SzXq0+WITR3Ew8rdKV2F0KTTgtu0WfsYeeqrCrwo7ievRd0b9 -w+STMzqWbE/wB5XRpDvzdLBctb7LS+sp5vN2KmPexwCn5ed6504+w4rM99os -bRmg1ziTcfz8MwwF375kejGA8eaT2Zarz7D34FlR5RsM4M1DKnO4/wy/3B+e -aDnJALJOrHPNi89wgHimT2bsdviBjIQDQ57jns5uTaW3jBC5OO+tEFmDp08L -WASMM0LELmfjbSk1eGu7g1fjMiOY/5fR8Dq3Bivqfb5nIc4EgQMe9jLUGhxV -ssgX4MMEk4z3kpk2a7Bm5M7VBi5msJ1y6Lh0oRanaRjVm1uzwMNT+cms9nVY -bdje2MCTBZr3B+Y3udXht9Fne5TCWCCj+uaox7k6zDR4Y44lnwW0ROs7YhLq -cNilr6It8yzw3gFtMTbWYdc3keE60ayAn6YUMInXY6JbvYHkEzb4eUMi609X -Pe7heN/O0cYGJZUFkRXD9div5ov15iAb+JKi1G2+1eOyHWw+Q1tsELqsOOH3 -tx7vqrLLuWG6AwYOe7l9lW3ALP9Wtli+7ICzQ8XH6gMa8Mfb6k1LXOzA6HBL -W5WlEWf1POAM3M0OvP1V2encjdiBQ97pD5kdtHf0v50UacQjV8S36E+xw5rW -zWRLlUY87sOmz1fNDrsT9TPwkUY8vX/iOdGeA3hKvi5fudmI70c4Mdef5YD5 -PcMyz+424jN1QzY0sUA9XYNsX1Ejnlf7sGL8gAPKXOrzPlY34h8iFIL9JgfI -KBUWbfQ24rUfGY/D8jkhWtth/0NOCq5V4v33r5oTSofT9z4UoOBQ9yTz6A5O -SGB6o5IpTsEbw9HfE39xAuFKWS9ZiYIjv9bwv5fmgneODWW3DlBwdGeR1XgA -F3gW0883BVLwhNepMOkILsj0MNlKCafgA6xS91zjueBSiZKyeRQFM+2/83P6 -LhesTu2cSb5OwXG1aalLbVxQelnKQuMeBScURrynF+YGkS93TBY7KNhU6zQP -vww3+NRseV58T8EsL49ay6tww8ST5rT1Hpr/r7uHzQy5oY1vP1/DCAWHS7/9 -duM0N2imp1qc+U7BulXVe0rOc8PjuGXd00sUvGaY6117kRvU/u20tlmh4Asn -z/38lMoNoIv3/N2gYJ88oS25Otp4ettx3x1UrKxOb0h+yQ0Ck/nvxzmoeJY6 -d8WskxtUtJkEgYeKPcYorH5fuOHL5t+WdiEqdpZw469l44FkOU0C224qlig3 -t3vDxwOl4BuxIE/FIwak7E8SPJB9TOLIC0UqtjuxQ4qewANCHEV3NNWp+Mid -SmWz4zww5XP20n5dKuZSzvY94cYD+Vvfcu/qU3FnfXSVry8P7M2nD55EVGw6 -bEu6cYUHrjzsczPcR8UsXoZhxdd54PtEYpz1ASpu+6NIqcnggYWKyTA7Yyre -K7K179MDHhA0FV9UNKNiurKpmMVqHjBQ8A//c4iKKeQP7duaeCDzjuVKjTkV -69kXWsj18oCSs14r/VEq/jN9PY00ygM3dqgpJllRcU1wUJ/pNA90TV66xWJN -xVq3TY/7bvDAeZG8/A5bKv4pr5VzmYkXJiXemPPYU3HFc/HP6Vy8sHiVUfKg -AxX7GDPLFovwAvPOXDHf41SsMvDDvUaWF64arZhFO1LxvPvQ/Q5VXnBNP18d -d4KKy363zI+QeKGPJd05/D8qlhPIOLftMC+kb3zK1HCm4omiyGpeW15QfIh1 -ftG4QPvM2u6TvPC2tVyr8CQtP61WeiQvXtDcNp2534WWH2uDS6YXeIHOq9qn -l8YjE3IvHCN4YcFqoc7qFBVnBXBt943nBR4Iimmmsd32P0aX03lhe7/hR0lX -Kha88TU+/S4vMHYeqvehsZBSdfRaMS8cFgq6VUpjkeaYiBMVvKASraTRS2Mx -e7vQ5lpeGHvEmLZEY4kfey7It/BCz0QZlc6NiiVj//omvuWFuF0dTdtoLC3x -7sxSHy/cXBS9s0wbL1ud42YzxgveF1zsPtJ49yE/5/ppXtA/dnrjMY3lvhoe -l/zJC+1FjMnBNFYI5bW5+pcX5Bf4BQk0VuSetJzdzgfJnFHZY7T1KJc+M7Pg -4ANmpCdzicaqOM7oqSAfqP7Sq+agsXq/vaGwFB8Mfo61S6XFR/Oskv4lRT5o -mlHiY6IxYfsm8SuBD4g70KI3Lb5a2Z0aJgZ8kOnw6UcrLf5EzTzlR0Z8wLas -IclNY1K7vzyPJR8sL3hHmztRsa7zPukgez5IP/Ja9hItn/qrfOIjLnwQuD2W -JY+Wb5T0TdDQmw/o25aJT2l6MGyIZ98RwQcelqTUJzT97LU6zuIXR/N/9MOb -HJq+9s8qM/Sl8sF/9bk+4XZUbCLUtZZTyAeybM1snDZUbBEgMKHZwQe1dAZ+ -aZZUbLljejSjhw8qFd2o3BZUfLSg9uPGCB9Qr3s+uXKYim26HN+3LfIBX9ZS -KTal4hPK9+oc+PkhS9O9UIhWb/+1BFRTJfhh98fYZRVDmr4cjCpkFfiBoYeo -QMRU7Bo3U7Sgyw8SX5UcdulRsdeEWmqUMz+w0T1ot9akYu+wbYlTp/nh/jRJ -kIFW/z48PTGHzvODZdda3D0VKj4HgeECMfxw1HZxvVGBikPuNHiUPeAHimbA -ur0EFcceO4i6f/PDUL7kS21mmt6edorQbxMAwc32sD4GKi7nPbaqsUMApNlF -nrrTUXF/938VqbsEoKmzt/vEOgXLHgmQPmIiAPn3q//lzlJw8+Fcpq5MAQi8 -kj13kbb/2jyS/frvngBM+u+f122j4NmdZVS1cgFo7+OXnn1BwdxvnwYnNwvA -rwT/47tqKdjZtGPWfE4AWvWDTL8VU/Cm0UrnO31B8Oj3OvEjgoJTikMfbBoJ -wmBPolJ/KM0/E12cyhFBiFhVmiu/QMGHWtkMr7sJwvXH333IXhSctU/yyaEk -QdjZu3voiTUFk8As482YIGj9mho3UaDg8+R8p/YoIbjmuPrt4MtGbJrHsWyW -KAQ53VqLApRGLM0cHtd5UwggjX3h4/NG3NVrU9lTKgR37d+sGT5oxKp+OxlG -O4XAP6LuVHYq7bwtDir+KSIMmRMfC8IdG7Ejn/l30SfC8KjF+pvhXAPev/gn -1OerCKjYCTySW6zHISY3FF/Mi0BG1jgs0PqF8nyVId7fIlAgwFpTPlqPhY45 -k2tZRGFjuDBYpLMez9e0rjKoioLYjUOOOQ/rcXpUSkBmsCgYU/8LdPasx1/4 -5XxesovBKaM4cb7hOnxZ/8hJEZI4KLPdeOv+uBbrlmc+vUTdBRdLjG8oz9H6 -t7WlyNfsUqB7IPW+sfpTvK7ENapiLQ0F52Q9KKRKrP/gYd6tWzKwShkuqhl6 -iJd4TJ1tmmUB3hxS1mEsxROJzjbnmOVA7XfOXX2Le/jgYtDBSaI89O7+HsG+ -lIPFNCRiWPTl4YhJXi65OwcvnHvZrGQoD1bjtx+FPsnBN35z6Z8zk4fsjJxU -vcAcPLp5X/WfkzyQmiRcajbu4nM7R3iF4+WhhaIreZf9Ls7aA6OHhuVhI8qh -kgln4/lTLOefRijAFwG+2edjGXghZ38jNVoBzPNsuK+2ZeDFj5HMb+IVILbx -Yanbowz802I9+3O6AvQpFfOeDMvAq3qzLzlKFUBJy+wQCGVger63Aqe7aCzJ -WpptfQsLv0yuE5faA8UBn51zRm/Q+ndB+tjmPSAW8mjOVyENz7gYl+q92gOM -1MtbB/nTcGJ+kPmPN3sgtu3OTQJ9Gu6RGMyy79sDmaOJOtojqdhZOJOgPL0H -1sb2ZS6lpOIQDlG3D+yKUN4wrHNwMwU/XJN4LWqvCE3FxyoSmpOxhY6FT9cJ -RUj/OFbHnJeMf16I4LvqoghaKW1y+ReTMfnXmPOClyIwbwnPKZGTcdv3vPWm -S4pg1sqbm1uZhMe+SCu5FyqCbfdxl18l1zHPO7mkikVFYGRlU5q+n4C3FtWL -OpYVwavz/neHuAQ8y6PXMLGuCHutiGIL7gm42c5iVmi7EtwTuOt/QTYBn58I -MrospAQCa4VzjPnXcO/f11tHDJUg4HN3gHhePM5Q9PL9laYEL0yRWV51LI4+ -fCGG/bYSHDvXEPY3Ixb7+UXclb+rBPsPsFQEhMZik2fpb46XKEGjamVfE46l -9VcN8i/rlcBvj9iPxjcx2MGeffzGhBJMLxWp6M5cxWJxjy2JRGWQdOd+XEGO -xmXlj1rWdZUBFCHNSSoak/oeEBuxMtiM2YTKsUbjY9KlYvsPKoNwRp3QxuAV -nNiQN33EURm+kbo7XoZcwX9/pEaejVKGV8Te6UZqFB6yD6go7FQGEr2w9ajj -ZewZeU7Gs0cZHnwsy/Uxvox/F/vdUhpUhoZrTvN8mpcxz7J3eNVnZfB4oX3o -HvNlbJrkZtK0rAxtacrurU8icW2zzfiwiAoEnqnm5OaKxLeVyFy8HiqgsY9k -U15xEVubvUuheKlA7LXC+M6Ei5jH6yT3GT8VyEgrMeD3uIgTyuJ5XoSoQK5C -ZSW/xEV8ac8Qn2+iCgj6S6WPXQ/HrvJhwm8qVUCMPTbnYkAY1pBplL6yoQL1 -LOU3BE+E4IW9R+6pblMFOQrZ9b1+CC5zmZQZYlQFpeIk/jKxECxbwL5bg1MV -Pv5iffhqJBgLSf0nPyalCpUFecl5/wXjLYl/SnrGqnDB8EVihWcQ7hAx1P6V -qgrnr1+zj7l5AXdJPJbbnqEKBqmagfRBF3C/tLgQ/x1V2Dv9Lvae3QX8WXH9 -D7GYZs+i/LMSu4DXdCubQutUoclLPeJMUQCWOy51iP6rKhiVOAxYUM7jqOxt -p7i11KDaeFKHi+0cjsv1PSZNVoOzHxQOzCz646R7nw4QkBqU/+cs8LXPH2c+ -qFWwNlGDFVOJK6QCf1xR779w21EN4o7+3HLX98ejw59DJK+qQdJXhqvPAv2w -rlhzilq/Gvw8UBYbu90Hf5GRHZ0ZUgPBoYSS6aGzOF4pRqlwTA3cX4ztDK88 -iwd1TduEZtQg7EXMBMnpLA6y7/67bUMN0neMBDI2emMHM3/CLJc6/DHdpGu6 -7IVvxV3OaSCqg3ghMdVX9TQ+k6jZKkxWh/3cp5Ya2E5jlPJ1LlBPHXxtNp4S -pzzxZMYBsgaoQ/4RnqryPE+sVcLaW3RQHRTbn2c/4PfE3a2prMmO6qD2dNSi -itkDczAUBJyMUocq69HkZjY3zLROtVqKVofGwwrrdTOueGvhk+blWHVwYnaV -//zaFS8OCS/lJdKeV71E9yzWFXdVpZ4dv6UO8RVsi2HMrjjN5bK70wN1uP3f -rZtmnKewQLOz3Yledag99+dEJjqJOWou6XzvV4eZv1YPp6RPYqbyOwIXP6rD -YnDHxRPMJ/Fq5mDvnVF1cNj9bJ7S5YwH/S2PjEyrw2N7mX4rN2ecJQWmxzfV -IVmEJVBXyQlLXN6lby+nATc1i9K/Sjvi8vMs0p8UNODO3qipmJXjGLkvMZ9U -0gC2cPObXq+P4xNmLT2e6hrA9LKGsupzHN/h9/AK1tUA4yWeTB6qAxYuK8/K -MNcAgvK1UXYve8zXY7DeF6gBL78kKzD+sMGFrXJj9iG0+d7s24U6bDChhrP1 -U5gG1J9M/VNeaIOP3v2cMhmpAZm7tvbqONjgVI+rCivXNMCqOtp96JU15th4 -a8uXqwFXZA10VB8dw6y7HZ8dfUV733efGLVyjuIzwtj0QbsGbA816duKPIo7 -2KVHGd5qQL/L422/Th3Fib+nGKu7NMA237PYRvEo5nh93lpwiGY3FLjLWHuE -Vu8Jy8PzGpCzRHnb/8kSi1XWabrxaMIxjWnBmVhzHF50t62RTxPOi90PELI1 -x58yIx0EBDXhmrdlepKcOc6JMop6JaoJ75oZKw63HcaSx7o/7NmtCbuH6B6z -sx7Gu1dn/BZ0NEG9V1fFJNsMqxoIPw46oQn5mnm9x36Y4Ccyp//SO2tCReHU -DtOXJpjEVmuc5KIJwxfqOGNum+C9A3bjhR6a4COcPN9laIJt/G9zd/trwoPL -hlIlGcY4okgwQDlGEwK6CTJ0lka4i12A/LlcEw54tAp9+LEPWy+7XfWu1ISf -oHDs29t9eGio+sPqE00owzsqiPf34YkS6zMctZrgMXXaL9ZlH23/v5mt16IJ -hGaFhrGBvVgqkG/r5oAmpGUcFJZ+Z4jPjfK0mNIRgEe6QMyXivHrNsfGMnoC -fI+esqeLx1jicfFzNkYCLBNKtKaOYtwRofuwg5UAhX+tvjyZQlhayuWmKS8B -7m81ierzI/zhVKWHqRwBPAY4mvIj9LH6jMVO00ME0C/7PvIgiYxjPmQylZkT -4Kmemj+PCxmP1H6lYztCgFC/iZImbTKOuxa00m5NgAgtduefn0h4XCl39KAT -AdTNhztzNUg4xWeh4uA5Arg3R4x2TBLx4q9E64O3CfDOPuJxwyUtPDKYb3M3 -iwCHBm1ecB7Xwh2Nz2yX7hAg0XZO4Y6OFi6MHbfPzCfAgpnSI6clAnYQ1fpv -powACcVjCXEeBNy6d9g9vpEABwSubhP9TxNnp+4Jbv9CABmKqJX0OXUcF4hC -xCcJQLik9pzJWh0HHrcK9Z8iwLE6ifciJHVsuftiuPA8AapLf2/lb6phptqu -yNMrBOCz3O8/LKaG/ceD4llZtIB0ivTBzlsFG6u1ZR1U0YIr2cr2Y2aK2I7J -5FiXmhbsFD2zkSikiM98ame31dQC6fKu3IzJPTgp4V2kq44WQOa+qBeRe3D/ -VK97hKEWnKS4y9rWK2DXvK+a1dZa8Pj38V0shvI4invbG8lLWtBnL3Mp55os -vjEdFV0SqQXZjRxqPSdlcTF1O1K9ogUzgc7mVmRZ3HGWpVIvTguo2X1DhBkZ -zN3BmWGTpgWNln/dPQ/J4LwoiVOJxVpwwdY1jSApjSm/9P6udmpBoaHEEcLy -Lpz/9rmL1QctOO/LorTyfBeOLiJ0lPdoQZzcKTap8F34oK1SptugFhz+z0Dl -KeMu3FsnotPzWQuKf/JFV4tL4NnL6+fKl7Xg6XHXm+nOYliA6/msq4g2mEeN -nHdXEcbr05pHm8S0YfuImpraphAeeVFeK7pLG2rSTCzM3wnh/PPFcd0y2hBH -JkRf9xHCygM35UBFGybbPxynqxbEe3MCXERBG0psngI+IoB9lDWHPrhpg1Do -338xLbz4wqrIHydPbZBiunZrLJMXhzcziCyc0YYDFgyR1/x4cYJdnz2bnzag -+t2/eiV4cWl08Me9odqQF6wmqxzBg7+MUAafJGkDnfhjMTdzbjxTUrJmmKoN -yxaTwTl7uPGPcylCXenawPmXQJBi5Mb/WFzs5m9rg7X1j0K6Ri4sps04KHtP -G7AQ2xchdS5sc91s4OZzGudqRocYceATdlqrMnXa8DJTvfkOIwd2lREXrGrQ -hj++s1l7W9nx+doFm84X2rBIV2HOY8SOUyZT+5neasOLa/uDSw7vxB0Gg31B -49rw1Kmmdfg8GzZYcO21ZyXC1/D4R1YCzFig3rigYQcRdqY7tzpPMeGFWEW/ -XRxEYCm3ev2qhgnnSP3YMclDhNHRTs58Rya8dSxsn58YERKMo518SxkxtT61 -KkaNCMkfXgkuW2zHt+MCImc0iKDu1b1uI7cd+1nbmh/SIgJHXZ8u2yYDllwU -m+UmE2Gu0fG20wMGHCldKnV3LxFecO5XeraDARvGU1KeWBNhml55/fbQNixi -k/+fgB0RuHz3MzRVb8M/paOVQxyIUK557b1q6jZc0HDwNXIiwts04eLPJtsw -/Y/ef+2eRPhC9xEl1dPhFps5n/EwIojyownF4//QAVmhw+wFRGD//qpWPeov -evq9Vcq1kGY3U2quPvgXyT4//7uumAj8FVGnS7n/ou2m73M9HxDBZjQ1tKfg -D2r2jfnZ8pQI6WE7tJU61hGqX84IfUWEhld375OV11B5dIH3h3YiPD3bqoD+ -rCJxc0tDhbdEsFw74Fv4ehVtjD+Y7esigkwqITbdfRXVMZ0y0Bgigu3VklvT -xb8R8eiHL1PzRAhYvpw1QFpBxaIRz9EiEZgWh+VKdq4g/knlxJtLRHCbV+95 -N76MloPitPf9JoIL4zCLxLVlVHUXx+X8IwLlsFVyzfgvpDbzSMWaRwckv7RU -mN/9iRQirwU36+iAs5Kz77rFD9SgV8R4SFcH7qp5OeUr/kCWq9S0Pn0duBg+ -5prF+AMF+6w8nDbUgbIwZ50/wYvotaPzZ45DOvD9u8Snb8cXkCeZaHrcWQe2 -TMmBmmgebSxbDky46EDIeog65+YcSqnwcvVx0wHPyT1XQxvmUI18/qXLZ3Tg -ukLy6TX9OcQisPNJSYAOFDDbXfPfP4vu//wsuhynA3hKJu6U9zRC5RulFxN0 -YJErf7WQMI26TwsSmZN0AIwuFJ/6O4X+jB+yFEnXgfXExapjiVPI9P3zaLir -A03O/+JnnnxDsw+uf0+s1IEjTjPx24UnkaIbmbp7SAfuvVe/nab1BSVLm/+5 -MqIDQiNFNy/v/IKWx1y0v4zqgFv2pZCXE58RxSHxQc5XHZC3Cflv363P6Kjl -WIbgdx1w3N/cxrs5jkL0rvqx0pGgNsTqyHTVGBpdy3zgQU+ClrLvbx56j6G9 -z8q/tW4nwY0EOz9G+TG0U2PQMYqVBEZFK9k+d0dRnpzSwb88JCjWWK6jS/2E -XnN/kPq+mwQMfVp9ymnDSOX9pKOZAgmKAphly48No7TEPxn3FUmwmfhbukpw -GDkyy3K4q5Gg4P1nIZQ7hBY3Av+MkkiQZyJQfPDpRyQwLdbTZUaifd8xBVit -DCA3imf0U38SpM3qp1e+7UULZ2eDDgSQILnb4nprZi8KFvf26g8kgateRail -Ry+6Fu57dC2MBMQPI3yvGHpRhW6gpH4MCe5nrDCI7u1BG8+uNLRkkUAyqD48 -qucDinFnrDh2lwSZJoTRpJIPiFMg9t5kLgn69BKf04d/QNIXrl1jLiLB81V5 -krjcB2RMSLUze0wCxrmlou0RXSjtcc5ydwsJlM8V19Re7URiTpLTp9pIMES9 -wrlE7kRFHAXDy69JENO5rDqy8A7VnC1qFugkwUAFIfiVwzv0SelhisMgCVIv -ODe36b5FCqW1yl/mSdB1idNYUKQDUfN6XZf4yeCgE1kjcqgNjR+ScgoUIsPw -cVbBTb42RLd+1v6vCBkyJtzenRxtRXuPMJszSpIhQESw4tG5VtS2TVdHWJEM -yOLCR7X8l+itSy6rIaLZhSjvZ/ha0HeOeYY2IENDKOny2clmxFFP2jLdR4bd -+05ZuTxrRpa83T+PmZBhJf6sQ7Z9M+pp2T7ieZQMaWb1PmpFL9CQ7JnyFHcy -RDYG27JZNqG/Xc9K+U+TQSy2NkhZvgmJXWS4l+VFhjnO18dOblLRib47GYV+ -ZMhb10x9foKKxq++j6wJJcPhe821B+UpaOqbltV4EhkG+3/tSBmpR8ul/1bV -ntPWvyrlW/3yOfpmY5QXX0uGsDderJ6Jz9Hg9usmX+vJILV6KSHr2HNU7yyS -eauJDK1EppXQb89QlJC27mY7GbSkNrN2cD1DXHFnwjtGyFB2tE3xashTRE+s -lJUdI0Ove++uWpOnaPnr6tuLn8lgUD750FHoKRrAV8U1vpGh2GJHy0LNE5Sz -mkvJWCTDtnqfGtl/VUjZo4/OjV4Xeqi73u/MrUQS/GL3Kdt1YfpV5tG3AZWI -q8XliBCzLpgc7Rb+blqJfkn8yH+zQxd2ZopLWKxVoLp+tn2a/LowEijJesm2 -ApkYwdV/8rpQwyuaUna4HJ3a/YA167AuxEVyXrJnKUOhrf+dkbPUBbfN+b3j -LfdRihvPm6qjujA0nCTJF3kfNRSFJL6x1QXxivN54X9KEZ+cCefmSV3AFWbD -MqslqE1uks85UBcqZX6d9OMoRiNtty/MB+uCTT/jjZ29Rein+6H+4DBdOJDz -/bRBVhHaVfIkIzVSF1y0Ax1tFYpQsHyUSMs12nwsDSkHzAqRosIuSblcXfB+ -cVh7rKwAwevuyKp8Xfg47T4rHVKAbDxjPqNCXeiUrhL7ZlyArpR+L7C9rwtn -HhoKffuWj0YUGnbHP9GFRSfHyTLFfJS0x15p/pUu3EhmdopPyUVLiunEqh+6 -kNU1EHikNAsNvoUDvL90QX4Ansi6ZaEmnwWrgBVdGHgxspIlnYWSqg76E//o -woXZlXtncjORoi7dwzoGPXBbZ/t9Nu82cjl4VqpFQA+Impln2ym30ME5EXVZ -YT1w+Pj7gPTVW0j9+mt0VVQPLIPG55gP3UJbXTKOxpJ6sL9hLixg+CbKthu6 -9WaPHnDufHH4Md1N1OthvLNXXw+MQ8RGM0+lo3rWFRFtrAccXPv5lTTTUcGD -gj23DPVgY0O0XXtbOvJb3DSyM9KDzXms9iQvDbEHPb08YqEHisQlPbXJVGQU -I7U64aIH6k4TMehKCqop/Pt5JU4PzAV+W8cLJyLivoBV0wQ9OO1omB7WnYCq -P8/vzLuuByfymxVEExNQlcSojmmaHpQfb2dy3JaAHt5uup6TrQf24VsbNb/i -UV7iVbJxuR78ZpWLSfodiySUtszvVOjBquclt9zaWHS3PdB1qUoPcvCb7gMX -Y1EWk2dy9nM9yOxnGjjMFItuRJpOLjbpwc9KjkrZXTEoPoAz9XaPHlwWlPj0 -+kw0YuGNK/7epwep7/b0pxOjUUwlXcPeQT14x1P1bIw+GkUvLH2bH9GDZxPX -PFfuXEGXPHv1Db/pwUnBMMpqfxQ655g5PbNGi6/SWyOHk5eRw34Z0JPQB7cA -HdFjKRfRZi8LR4ukPkxw2ST5GlxEeW4Lw6Yy+hBycSPHay4cfYupDXJQ0Icd -RS2BGwfD0bl2i8chmvrAMtljvpc7DF0zD5eoMdKH2BA2mbC2YKQydnIeH9SH -xGs+05mRwajL17julZk+aE5eNwjSC0YCqTw2A5b6wMv2tN3tSRAq6Cm9/ttB -Hw4yUj+NPAhEdXZ9G1q++pB+Q1biVmMAOjFT19Hgrw9yNYuPG6MCEF1o3u39 -AfrQHeVAiTEJQEbZXlrHQvRBsnOp9HffedT9aZv3+Sv6sMdDnlly7RyadVEd -rszQByn+J10kO38keja2VrVJH6YqfuXf+uONkv65ayc068PLhbVdPx56I/o0 -o8qpl/rA/uY9E6+zN5p9xng/r10f7o6PEh699kJ1dNG3eXr04RVnAt9mwRnk -cCMy6PekPmTMeSidCfVEnXLOv45O64MqcYM1mOSJ9tZi38ez+jAX/uKnxqoH -Uhzdcvdc1AfMe0L6XqAHWpe/aDO0pg+z6RczD110R7frQ7QpOwxAw8Shx7rU -Fe00t68U4TCAqZ3Zmyf9XFHkOEkliMvg//8HftORXZEn45qsOr8B1LrUxS+9 -OYV0LAL5CiQM4DtQT15Yc0H9X879uqphAHspwtG9Z04ifjbvysO2BmCiUdaz -aXsCFe67GPrD3gAejhv5O205Is2LSfvSHQ0g/B2rW0eRIzL/UdE3eNIArOzO -h1asHkcx/Svrp7wNICwj/4h3iQNaK4jYG3rZAGJ0mOm1tOxQzEjKDvFoA1A5 -c8t7cMYW8QkU9FJjDGD31CdnhzxbpB7/0p0x0QDkfk4vz3PaotO+rAkptwyA -73NkOcu6NRrSS+8pfmAAMlY3DDiXrJDnhcI7B8sNQDpZo8X3iRX6XV7tNl9h -AOJHJZjjA60Qj/TgqsYzA6DLGfD7tHUUmbGIizU2GcD8x6C8XsGjqKG32LWn -jxavQ1PnDpy2RKYcNSqBgwbwwitYbB/REg0at/8WGjaArHOHi4YYLNFy3Vzc -f+MG0G/BXJZnaIFU8tUfzcwagN+GUOShlsOoYcgwMPG7ASRKUUuuuh9GpnxW -WO2HAbwR/xM/wHYYucde+BCwQuOYqPIam0NouSkmS3DNANzDk3MNt8xQ1J+M -U3V/DCDfNaK0v9gMcWndVz6xaQBXhz8+C7A0Qzln61b+/aPli3GwSeivKfof -HbLGog== +1:eJwV1HlUjdsbB/AjzfOgkohGiuh2GpWeJ0VpUiGFaDjnRZI03WjSpfyolCK5 +tzljKiolCkk3oVuZieicRo2nSXkP+W1/7PWuz9rv+u5nj+p+h9zZAgwGY4C0 +39/DrauX32lvtQqXVgw58I4DVqOXjP1sS2CPf9f13+7KMzmnZVsHxllWboHE +rqz/hCWZ/0JW9Zp9B4nLI+MeC9m2wPnWytEg4lNNC+vjil9AzrdnPcHEd9sP +5/4wfAMFjuEOocSDHc+ij9S+By6vYmkE8aJezZ3fbD6BluwJ1hFix7Fo89CW +L3Dyw8DCGOIHPwYlIos5kH+cYxlP/DZeOao6qBsCHIPaE4hHhW0Hpwx7wTos +9dVpYuHkYC/mTB8I22/YmEasJpfTfLh2AHhKaSsyiV1Uv10ZtRkGW5E+iyJi +Kl9DSV90FBy+jgcWE8dpb0440DIGf9udk6ogfq/8+o+w4nEQts7NaSBm7QjY +n5E8AYx24ZTnxLxsRkFF0CSseiwy/JpYVENfdtxwGjIF38wOEJ9jPbaTVfwG +SkcLr0wSL7vqFbdm5hv4FYo3zhGbrUocPVg7C+H5pc5K7zmwz+RLy6DND0ho +dct2IJ6KDBcU1/kJKrqiTzyJj9VKWOqKzkG9yB7fvcRZaHZjb8svGKgc70kg +Zl1utg0pnocunMfLm4mLmzK64lUF0GXThbYPxLz+3dFnkwXwrwL5/iHiaL3p +yltB8zHJXYgt94HUe1Ndc8xQCKUPfc/2Je5oH34wVySEcd16DRHEyybu7JBW +FEbdzVLbk4lLjFzS9WeEMVhssK2GuPHu0XmBtaL4bs/yOaUODkw/fvVlwEYS +K9y+Og8QyztJykY9kEShJRdfCH/kgMFrW5Qyl0Id/+vvtYkDeqry/1gtjaHP +J4PZxMECLQbrJGXxyHjgs0HiXo2y8YRvcqjfPqUh3UnWh3om1saUx1GH2k4j +YoEbfeoLD8ujwrTI4l3Ey5hL3YuH5JF31EqzhHiHTVpFa5cCGlUH7nL/zIE2 +/5BQ5eeKWOjsEn3nCwc+Xz2T5COqhKdtngb3EQ8PFRdd36CEcfzZAcUuDoiH +db+yqFfCyuTjrAhi2xNbjXyqlFFZo+B/6zgcuHfJZPpangreyqdP9nA5cKmX +jlgbtgRD7nyKPt/HAfttJz+Hli7BNKm91e3Ew40KG0v7lqBmsb6/ZD8HjC6t +UlzmpYZOTTFKCcSNfrsrhayW4sLQlJ6oAQ5MjHX9OXB8GT74maceN8gBhYO2 +tyudNTDkRu7aT6Mc6Lskvs81QAOTnjO6tcc4UPOpXXUkUQPvnlr86xDxLifv +4zr1Gtjlkp4uxCP1rYxwv2ioifujJnRMxsn4g1d5scpaSB/+U6x0kgNb90ro +O3C0cfGGxLfjsxyAiG2G239q41qztTb23zmgl5BnylLRwVLD2qV5xIwi5vpY +Nx2Uf2u6woXmQOnnndsrHumgld+VP8v55H56lMQvKlyOf7g/WpAyR+qzdX47 +6KeLR3dGBWYJcqFoy4WPM7G6OPrm8acfxGf8OF2C/+hiKT/+vq8QF1jHwofU +Xuniibnw9lXCXJCry2FssdHDbGanZbMIFwKYo3q1mitRfdtDowUSXFDVSI1L +6lmFhU/bnzHkuVB3ekr3u4A+3pJvlIkh3jXp9ZpS18fmaN6H78S5jVq663fr +47cSxbkpBS5o7L33cvadPrqvOZo4rsgFvZJeber5anQ/KZU3fxEXlqiqUcu8 +DDDr9JpVyRpcWHU5TJIPhugiv+KugTEX/FjHp/VdDFHc+aFQI3GWZvpnn12G ++ITHat5uwoX5hTdvNUUaItf8581jplzoyB3cml5uiGqlm8Xem3PhVJZPjq4m +E7fYMYazrbjQl+S02lPYCA3+ELkZZ8+FghAt16oWY4z0uL3qhjcXKj7XJy38 +ZIz3B8MXH9jNhQYH7ydRQ8Y4nn3+4so9XOjRyLRaL26Cp/M1LMt8uKDzSkS/ +zc4Ed/A/at7z50IJc0jsa4MJFs2tOTW8nws1U+WPF981xUJFN9G6CC60R4Dp +icvm+Nh5Y6doOhfUd79x8Q5ch1SG5hy0coH9q7psyRHEidTZgRjpblAeqhFR +9luP34xz3pt6d0MY0/JTup4tdkhvKIy52Q1+Iz+aFQY3YLHQ28xLoj1Quj5U +JK/NDg8GGrwyDe2BS1MBj0rObULejafja7t6YNZ64X+NcY5Y6VnENPPthU7G +/HGOrzNqv1nhYTrUC0GLD6XFa25GxsOPo8ERfVC2v7n+fIIrMtXSt+9Q6Yej +kyozK/e7odmpBzF0XT9MO2z0eLLHHT1DHC1cowbAfOdZ6163LchYWSrSbPMV +XqrkBDQyt2KY6/3bdhKDsOjK8bprK7ZhZcjGpmPjg1DTpefkIuWB4V5hsY/e +DIHaa97eiBEP/HK7aYF6wzAwz58tKerajr1vg52q2kcgR3BydfpjT8ygGqap +jlGotl7TkXDXC09aPK+yEORBlulpuR/FO9CPx8tl5fGg7ePlRGbyTpxb15U/ +YjwOVc7ZWsHHdmFncY/1/C/jMH5wCyOI5Y2Zzuuf3omfgOmNuvtGbXbjSOv5 +eTLak3Bt5MNsqMke5Lw3Vcr+MAmeBZf9vSV90Pe//nlyJ6agssJxz/yTPmjW ++kMuY900mKu+/H7quw/mt12tG/s6DZpdezte7PdF9q/4rri0b9AjcWBzdrcv +BlxSF4jCGWg/4+Jvt80PZeOqt239PAPnIvMkwtv9cFC8drXMsVmoe/Dru/8m +fxSQDZybkf8OMrvwJPOeP8YJW5tbpX4Hc5/RawlGLMwptC9sEaLhykVeqIsJ +C5MrluexRGhY8GrCStmMhYySirN8URpGN8y8vmbBwhsJMh46kjR5vxjzWtaz +8Nqbps2H5GmQnpHzkndjIS+Qd6VVjYaeFGOxvIMsXHVrbOShCQ1naqP311xh +4XP2C942fxoOGl4wj7zGQvcS36ACFg1O18vFzIpZaPdQ4NUQmwbxC33X75Sy +UCVD2jVmHw0JIa6D1bdZWKkWK5NxkIZoXa0DVQ0sfGK3xOPUnzQEXHgeWPGZ +hZsmlIpyT9OwSbrPMqSLhfMchjybkmhYkcCQMuSyMElOfGg4mYa+EOPS8l4W +njLpKjRJpcHXJW/k1jAL5w7IeNZl0OApFBp0k2bhubGA9LRsGuxCFwWXKLFR +z7pMe0cpDQ15iQ7pC9mY63m/OqSMBsuWCa3IRWxMcRHqPXWTBgPt5x9s1NgY +ublV+XY5DSrvomw+arPx5V/WLTNVNAyt7VQSNyb/Z86oWz6gIVUg//7eLWws +nDijXv0fmf8aySznbWz8JtVaVtBKw4mdkSHM7WyMzkxqTWqjIfK26/JfO9iY +r2nfuPMFqZ+adzbTj43lY47HBl/TwHzmx/r3MBsZiRqzDR9peHdWW0IzjY2h +IV7D3gM0lIHUvoGzbNwlPpst/ZXkj0w1lmaw0fREusgDYsNNjbFmF9j4j9uw +mMoQ2T+G/4RzLhsvy+bffzhCw8ZD+R8iS0i+fX5V2wQNS5b8z8SqjI0hC/4a +PTBJw9SzQxnzb7Gxodfls/AUDYU64Hymko3b101wzKZp+NnZWV90j4118ofD +UmZouO2keq21mY39j+TzZ/k0JNECQueesZGXMmJ47AcNftcGfb1a2GhpNO+o +8E8aZAXvqfa0sbHnMlNLZo6GwFrP1O9v2ajGju2RZfBBUy8zQquXjSUmtyff +zOcD/S7m1dc+Nn7VNq2xF+RDewLb4OYAWQ/XgtX3iGM5RoPmw2zc43jJ4KIQ +HzqyXnlvnmTjOeGnCXYifEgXkdtwdB6FKwomPNnifKib6NwZNp9CXvkFRitx +f2dxSJAQhXLlUULGEnywvG2b7ydGYXv4Xp054j6fSL6DHIWqb+vro6X4IOu0 +QX6DAoXbOh1d3hNbmMrrgiKF0omTpobSfEiTKvFgqlDooaqwlENsce9Luao6 +hTHzpM1XyvKBulzSrKhJoU78VNER4rS0I19ktClkGv/Y30TcRylICepSmLLo +p/BOOdKvYLdv2IBCefPm+GB5PtybU4jrM6RwPOxOQzlx79eu811GFFqdmfQe +J15bf/TxazMKS15OFh5Q4ENPYJnafaSw36uA5bSAD9KeUcZ31lOYPhIXfozY +3MbeqdyWws+Oc18qiM+ocI9ctqfwbWrqI3lFPtQI3kzLc6AwKyPWDIm7x6Ku +XnSiEHL/FQ0kNmtSfJPiSuFoy6KqB8R+5dyhk+4U2s+Jne0lTsm+KfDXVgrX +uyk0iSvxgRuyySDCk8JM63UWrsRSu5XsgndQqNtpExVMbLap2ztgF4XvMg0W +pBKnLI1J2u1DodjqVNcnxDXiDoWefhQq/Bia7PqdN610151FYfBTQd7s7zxO +d5sTReHev9ttZZRJXsutvo37KKyTs5vQJPa7E/MTAyh8GOwza0KcUuiwwCKQ +Qo0LitvtiWtSlFcaB1HoPN9H2pOYG9ljvSaYQrWX5moUsSSr3FM3hELJhzmJ +IcSmm2MPaYZRuFbrpF3M7/y1jolLIsj5oMd9EomTtRfmKEdSWPO+42UKcbVs +b6XcUQr3TVvlZBBz+OXPJKIpnNNaXH/hd35/LEcolpy/jmCLv4lNXjrO/oqj +sGOFpcw/xP8H9bUAVg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, - "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "PlotRange" -> {{0, 180}, {0.5575463512581808, 1.6932631106488345`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.557546351258182}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7555,7 +6940,8 @@ HbLGog== AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0}, + AxesOrigin->{0, 0.557546351258182}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -7583,7 +6969,8 @@ HbLGog== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.12263499218727081`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.5575463512581808, 1.6932631106488345`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -7591,10 +6978,547 @@ HbLGog== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913218813523655`*^9}, - CellLabel->"Out[86]=",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] + CellChangeTimes->{3.9913206956809444`*^9, 3.9938004505744*^9, + 3.9940727711756163`*^9, 3.9942504425447807`*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"780128e8-1666-4138-ac9f-d3f14c692452"] }, Open ]], +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9917994543716736`*^9}, + CellLabel-> + "In[104]:=",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1203349253832625`*^-265\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 104, + 9, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991320696298666*^9, 3.994250443085939*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"e923c830-531d-4fb1-9d0a-4ba5fe7e5d3d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.386525142269908`*^-277\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 104, + 10, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991320696298666*^9, 3.99425044309496*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"91da87ec-457d-4ddc-ab75-1e87d142dd8b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0236717859440891`*^-288\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 104, 11, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991320696298666*^9, 3.994250443104126*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"b3b2a78f-0490-4925-a0c8-999c821c353f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 104, 12, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991320696298666*^9, 3.9942504431138973`*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"87864d15-2ad8-4f0a-a084-f9f155a105e7"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k8VP0XB3APLeqhhCRZZ7ljkCSRmM4pIipri1YikURKpBFDCyJJRakk +2Wbur1D2pEIlRSkxVAqtlCVbkvy+z1/zer9m7jLfe87ne66Wu7+Tp6SEhMQ/ +/0hI/Pc53PakmhWbsWz8Vm5q6x+jZY2pyiHLxZHg96b8/mlUAJz93F1ZnAin +nwnDdyITghxEzVLidFj/1cPTFhfBrJ45iaPNt+CF194AXbSA9+V2/oPNlWA9 +SXlbIziDFavrXX/zS9i6uT/o5DIPGG02Od/X3AFqPkOffU0PQJVFdkZD+gDc +zHU3utN3FFTfl3521xuHoJGHX9fuPgWKvq6iqRZS+Ew/afu+pWchcaHVHbv1 +0vjonvo7h6FkaLlgcL9fThYHC5dmlulehtiM8OeSc2eh2WT9i4t5aTDnXGfM +2SsKWMFpL7xtlA5R62yWvRyejT5uVR7cT9fhgOk11yeRyvj505t5bvGZYNn7 ++7Bfpwqm7vhnd3dvFkSYO+5QWaKG4T766izNHFi1PfWnyQo1zDvKmtXDyoEZ +gu6j69eo4SuVLeICbg5crjqeleCmhtkWRzqWLMqBEtuy7ikxaugasLNNxSoH ++lyYQQMtavi48iDPak8ObD84dPIZXx3rdjhJmt7OgaU3LxaE3dPA5WePLDxm +KgTL5vrxnhoNVBxUdObxhGAnMcna9aUG/q0dzh5AIXg4+bXAJw38835N98ZV +QrDia4ULJmviR0vLpr8bhLBPY/j6cl1NfH5mzoJHB4RQ7XX1R1WQJrqGpJ9b +SgvB5o+pfChfE2XwlVTKTSHUJzQaGwk0sfvBu4zhfCG0lE4TZMRoouWVA6HZ +JULo+TdQ/vhlTQwH74gvD4WgnLfKxKpSE7N/WnZ8eC8E31/9ghpZLdzX7Klc +OksESwN2KX2W10JZ9fxLE4oikO5qpaWUtXB0VfOrFcoiyHxT1bSMoYWVxUPu +99RF0FZxXq/QWAvv1vj8TdAVgf1xU/E1Vy2cEHaZJVmKwFA+YgE/Xwu7eYxI +bqAIJGKHqi8UaaH4oX7dlGAR1Ev5bC66o4XvJu9+8SFEBHuGnI73P9TCFefH +J06GiyBDzHrj1aqFP5S+Ty05KQKlqzUn1kkx0Oqc/vvANBGM6sq1zV/PwPDH +E72Hn4hg+IpKxKLNDHzJfKv+8akIBmeyWaauDPSaJa9jWy+CngFTH8vdDBx5 +4dUk80oEHXc8hjcfYaCs09c437ciqF1dPCM6k4FRj5IzzveIIGXPdugYYuDd +ULMlCXI0JL/z7vjym4Hf/Y55n5en4Zz9geM/Jhj4TUb/SLIiDfGLop/+msbE +jm+16xKVaYgcy984U52JKtvcHrpr0rAndvI+cysm5m8T9PotoMGc/l9aUhIT +TbKdrhmvpuGNJn115SUm6qVIvi9fQ8PhJGHq4FUmFjMzA9COhuKIrMtOQibG +ne1OAkcaDF3SLswoZ6K0cck3tY00cCefSzjRzsQH/NCBze401BxOPL34MxPj +h2dmFHnQsKsvIf5jFxM3KfnenOlJQ8abU3ErBplYPrOyodSLBs1bUdF/p7Bw +5pymLT2+NCi58gVBeix81hDySBxEQ2FjSDh7IQufNG5fOv0QDetsD4U1Lmbh +nFW2sqYhNCQuPhhqCCz0/nqmIZ5Pg6yM/6EeRxZumh79TkVAw6RS9327glmo +XRfiWBhNw3X9Hf6zQ1kYkhX9vjyGhhUZrn7VAhbu0Fj+8sFJGsJPb/VlnGTh ++W3sL1VxNPz23ODddpmFXmmyLTkJNPTL27ptqGRhgpTRwuFkGsS+jBc+j1n4 +1uHzh88XaLj/6DeEP2OhR0/uicaLNCQcpjVymsj/wRNFWZdoMOiQeT/axUKx +z6pC6ioNyuaf7Gb0sTC2tIw5QSyRdLeCMcRCWa01cY1pNDy38UtdPcHC3O8t +a4PSafDLf77tigIbl0uqXzufScOGf3Pq8pXZWC8t2bs+i4ZlngLeIzU2Rr+e +b6aQTdZj7kK1Xg4bNz04/OJYDg3/EyS+RXM2vtEUj1vQNHTZr9/ycScbx7RK +3hrm0fBSOP/pr91sfJCVZV9FXCY1xUzWn43e0qefOOTTEFNcpGIcQq6HsY3u +t2jQ1lBujTrFxj3j4xs8CmiQC+mzuZzIRin/Y7PeEv96WVOal8xGAfdUs2Mh +qY8TIRdbrrGR+2V/tFERDV49rS66RWy8GVxzqqmYBrtVt2vgDhvj7yUVmJTQ +YJweu2TdfTbmZMV3nyeessFc+UgtGxVnusTZlNLQk6sYfeY5uR+1TSOpxE3T +foxkNrJR/nNHYD9x1t0rzfVtbPTvGRSeKiP9MifIurOTjfmCPPdm4qAAu+KR +r2xct2+LgfodGlayJ5I0B8jxC7tlrhPrhTdPWfyLjWK5qWrtxIotuUE242ys +8xFYqpbT8DHObcP+qRQaVf99E0Ps16XHMJChcMuh8amlxCPWoz9+yFEYFOp6 +4xOxIPNhKT2bwsjczGcz79IwXSrx+G4VCn1tHHeZEJ9z2+7I0aBwsLXz8FZi +tQodtU9MCkPWvp8eTpw1b+RrujaFdR0Pla4SG4RUFbjNp3DESOVqOXFZ02mB +uiGFc4xdM5qJLYy2rnlrTKG2gTKnj/jZGW3lFDMKX1XXcKZUkPrpHezciBRa +/xjMmkv8Yc2D3NkrKRwf1czUIfYRneK/sqEwLrGBYUo8OHWz9Rk7cv+FsZor +iY94Ugr2zhSySxpT7YinVP1sk3Gh0NnKMHU9cYLmPVHtVgrBXUdjM7FKWGxQ +9A4KnXZaMLZW/JcHG1dY7aKw77dUzhZifVPWjEl7KFyrM5DnQlyc1NfywJ9C +0zUXeM7EOFieGR5Ifj+Tb7eauNYxJoAXQmFvCPMjEq/LXc8bO0Lhnc65E4uI +38kwppVGUlgy9vkqi3iXT09jUBQ5vlrhsTxx3+OyNKM4Cr8lcQ/+JetzmB3l ++zOBPC+1W6IvxFJHnZfknaeQ72LiXU8c90Fjkl8KhbWXLG7eIlZa9v257lUK +v8bvOHKOOO1SyaVv1yl8p6fadICYO3rMKzuHQoXqvyUOxOYFahOMWxQyi300 +pIgfzeqq/VBEYb6dTIaY1IeDf1FS6h0K922YUkgTe+jY66s8pNCq1CTMlvh7 +1LzfzU8olOyMMVEiDvr05eH5egqfz/UJf0/q82SaYNssMYVt9bJ3fYjzlG7F +SXdTqPjn6IQHqfelgWEuj3opXDLyyVyVuKrBlnVskMJTIQ6yL//rn7jOOxPj +FFbYRO42Jv4jObt7WI6D9F/U6CD9ecKtvahgNgdVvj6bFEU8s+JG5H4VDra9 +7o3gEjNCrFR6mBy0FVuv9CL9bdMbbPPJmIM3V+yVeETyQHWh+glpc/I9A1zt +iHv2V1fqLufgcaeG3le3Sf0Py5nvX81BRp6BsInkS9u4UH/ClYPa92rOlJE8 +ygOHPQxPDianRJ3VIz4aMZy90oeDwTGT6y7lkjyabKEVF8jBgPsruwJu0rBf +5q3C3BgO3hnW6PxD8s7SLtLBPJ6D0aOqJS7EcxK0T7me5SCnvL82X0RDucLB +KVlXOOjtZXxji5DU87wZo4a3yPVFdSHxJF9TuNi25g0HJ4qPt+8j+ey757PK +vg8c3E0z+tNIfsONuI1nP3GwT15xdX0qyQeDlhctvRwcqtds17xC6nvJ/qpd +k7TR9Zv+/zLJ/lBllZEjmK+N/bHlAfqJ5Pl6SB8oCNdGgbXQZ0UEWZ9Uy7v3 +jmljecyufAbZz3pbBFOfxmjjZO61QIlwGn7aj15qP6uNBfllBwpCSd6YdVXP +yNFGbHzo8zeYBknFZ0q7X2hj/b7gXhU/GuZWny5T0+KiYIfkON+F9OPE00lc +iouh8SnusmQ/V10qbW+ky8Vh/8ztl9fToJ4n6LRdzMXvfE+12040sC4HyByy +4eLrg++eVZF5wSDQefvLAC5mmEzL3Y80mefnSEZVcjG4wmy3DEXDN3frHLPH +XGzGuDF/Fumfa8F2fU+5aFrdFdvAoOGVujhl02sujlNXhfEaNLjNvbhI7yuX +zAunvveReSZkxjzPBlkdvF3urL/hX7J//VKvmbdJB5/bRVzMIfOSfB0Vn9er +g3OP6W0+nyuCv70GmbWDOvil3e6Lww0RdMmblX8c1UE1v1S76bQIKl3su5Qn +6eLb5NjcoCwRHPgYbBWhrItHTZReL74igsaxmr+Oy3UxUn/lUTsy/yXr7PEf +SNRFibGfc/rcRaAanetgbKyHez9xpXVmiOCCrqmcgtd8fPs+8cCTLUKoVVm+ +eOCMPlq7X7msnUTmddXKhAVNC3DW2N20dmE2zJBKD9wRaYAxe/zlFpdngXqE +hvkmaiHeSv8zmkxnwjT21iKnxwuxqj+k2eNcBujz5uYGbzPEveznu8ujr8P+ +NvkqW4lF2F4QO71qRzr0DsStt7mwCF9o+u4tWHMNrBc8SrGZb4Shnw0dW8n7 +TcWA2dhIvREeTnr+2Mk4Ffz0DFsbPBej55+0hg9al4HXs7Nx0zRj1NI6t5nf +exFWspTXyqYbY6FNq7PTQDJoC04eqjQxwY6pUHlIIQl0PE3vsVtNMNv7tluh +1jnwrPA+VhCwBGWlV3QqeifCvbTGnf2zTTFkBPpfXk+AwZyJkQXFphgd8PP2 +pSnx4MGmp6WsXYoDkarifQtioV/nrPGtvqXIDxtVTXCMhpKMsfahaDMUu+1x +W9p8HDZbMtFM3Rzd7SeOzr1wFObtjSrVv2+OaS71XyS2RMDs6b75azfysMyi +NuDixzDIsDhyuG8TD1v4BXsdG8PA8Ei8xdmtPBT1jE2Tqw4Du7681+IdPMxV +UFK/dj0MTjQNjXr48lDVKOyUvEcY/EoPX3E4gofZwdvsF3YegVazs6+yaB7K +3RbvX/c1FLwPZly2uclDjvLye+/EoTB8s9Dzex4PbQKiwvY+CQV5hnhkYREP +64xb7NNEobBaWk317n0errudrui8NxTKG7N2vnrNw2DL/HfdA3ywnVEyP0jM +w5+tY9lvPvJBbP1kWPkNDxNLk+oaXvNhsKw7evsHHqY8qGE1FPNh/jWDG9+6 +ePil2rllXigfyluXB8X94KFDxaZ1y/aS8yk6w4I+Hq6tKFP32s6HXVEHGwKH +eCgdePLSUyTnu38iZc4vcn+bh22nGvIh8neyR9lvHvLpYgsbJh/kjIR628bJ ++rSvPnZGkQ+pe8uGJiZ4qCNt8O+HyXz4P4W3fmk= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VP0XB3APLeqhhCRZZ7ljkCSRmM4pIipri1YikURKpBFDCyJJRakk +2Wbur1D2pEIlRSkxVAqtlCVbkvy+z1/zer9m7jLfe87ne66Wu7+Tp6SEhMQ/ +/0hI/Pc53PakmhWbsWz8Vm5q6x+jZY2pyiHLxZHg96b8/mlUAJz93F1ZnAin +nwnDdyITghxEzVLidFj/1cPTFhfBrJ45iaPNt+CF194AXbSA9+V2/oPNlWA9 +SXlbIziDFavrXX/zS9i6uT/o5DIPGG02Od/X3AFqPkOffU0PQJVFdkZD+gDc +zHU3utN3FFTfl3521xuHoJGHX9fuPgWKvq6iqRZS+Ew/afu+pWchcaHVHbv1 +0vjonvo7h6FkaLlgcL9fThYHC5dmlulehtiM8OeSc2eh2WT9i4t5aTDnXGfM +2SsKWMFpL7xtlA5R62yWvRyejT5uVR7cT9fhgOk11yeRyvj505t5bvGZYNn7 ++7Bfpwqm7vhnd3dvFkSYO+5QWaKG4T766izNHFi1PfWnyQo1zDvKmtXDyoEZ +gu6j69eo4SuVLeICbg5crjqeleCmhtkWRzqWLMqBEtuy7ikxaugasLNNxSoH ++lyYQQMtavi48iDPak8ObD84dPIZXx3rdjhJmt7OgaU3LxaE3dPA5WePLDxm +KgTL5vrxnhoNVBxUdObxhGAnMcna9aUG/q0dzh5AIXg4+bXAJw38835N98ZV +QrDia4ULJmviR0vLpr8bhLBPY/j6cl1NfH5mzoJHB4RQ7XX1R1WQJrqGpJ9b +SgvB5o+pfChfE2XwlVTKTSHUJzQaGwk0sfvBu4zhfCG0lE4TZMRoouWVA6HZ +JULo+TdQ/vhlTQwH74gvD4WgnLfKxKpSE7N/WnZ8eC8E31/9ghpZLdzX7Klc +OksESwN2KX2W10JZ9fxLE4oikO5qpaWUtXB0VfOrFcoiyHxT1bSMoYWVxUPu +99RF0FZxXq/QWAvv1vj8TdAVgf1xU/E1Vy2cEHaZJVmKwFA+YgE/Xwu7eYxI +bqAIJGKHqi8UaaH4oX7dlGAR1Ev5bC66o4XvJu9+8SFEBHuGnI73P9TCFefH +J06GiyBDzHrj1aqFP5S+Ty05KQKlqzUn1kkx0Oqc/vvANBGM6sq1zV/PwPDH +E72Hn4hg+IpKxKLNDHzJfKv+8akIBmeyWaauDPSaJa9jWy+CngFTH8vdDBx5 +4dUk80oEHXc8hjcfYaCs09c437ciqF1dPCM6k4FRj5IzzveIIGXPdugYYuDd +ULMlCXI0JL/z7vjym4Hf/Y55n5en4Zz9geM/Jhj4TUb/SLIiDfGLop/+msbE +jm+16xKVaYgcy984U52JKtvcHrpr0rAndvI+cysm5m8T9PotoMGc/l9aUhIT +TbKdrhmvpuGNJn115SUm6qVIvi9fQ8PhJGHq4FUmFjMzA9COhuKIrMtOQibG +ne1OAkcaDF3SLswoZ6K0cck3tY00cCefSzjRzsQH/NCBze401BxOPL34MxPj +h2dmFHnQsKsvIf5jFxM3KfnenOlJQ8abU3ErBplYPrOyodSLBs1bUdF/p7Bw +5pymLT2+NCi58gVBeix81hDySBxEQ2FjSDh7IQufNG5fOv0QDetsD4U1Lmbh +nFW2sqYhNCQuPhhqCCz0/nqmIZ5Pg6yM/6EeRxZumh79TkVAw6RS9327glmo +XRfiWBhNw3X9Hf6zQ1kYkhX9vjyGhhUZrn7VAhbu0Fj+8sFJGsJPb/VlnGTh ++W3sL1VxNPz23ODddpmFXmmyLTkJNPTL27ptqGRhgpTRwuFkGsS+jBc+j1n4 +1uHzh88XaLj/6DeEP2OhR0/uicaLNCQcpjVymsj/wRNFWZdoMOiQeT/axUKx +z6pC6ioNyuaf7Gb0sTC2tIw5QSyRdLeCMcRCWa01cY1pNDy38UtdPcHC3O8t +a4PSafDLf77tigIbl0uqXzufScOGf3Pq8pXZWC8t2bs+i4ZlngLeIzU2Rr+e +b6aQTdZj7kK1Xg4bNz04/OJYDg3/EyS+RXM2vtEUj1vQNHTZr9/ycScbx7RK +3hrm0fBSOP/pr91sfJCVZV9FXCY1xUzWn43e0qefOOTTEFNcpGIcQq6HsY3u +t2jQ1lBujTrFxj3j4xs8CmiQC+mzuZzIRin/Y7PeEv96WVOal8xGAfdUs2Mh +qY8TIRdbrrGR+2V/tFERDV49rS66RWy8GVxzqqmYBrtVt2vgDhvj7yUVmJTQ +YJweu2TdfTbmZMV3nyeessFc+UgtGxVnusTZlNLQk6sYfeY5uR+1TSOpxE3T +foxkNrJR/nNHYD9x1t0rzfVtbPTvGRSeKiP9MifIurOTjfmCPPdm4qAAu+KR +r2xct2+LgfodGlayJ5I0B8jxC7tlrhPrhTdPWfyLjWK5qWrtxIotuUE242ys +8xFYqpbT8DHObcP+qRQaVf99E0Ps16XHMJChcMuh8amlxCPWoz9+yFEYFOp6 +4xOxIPNhKT2bwsjczGcz79IwXSrx+G4VCn1tHHeZEJ9z2+7I0aBwsLXz8FZi +tQodtU9MCkPWvp8eTpw1b+RrujaFdR0Pla4SG4RUFbjNp3DESOVqOXFZ02mB +uiGFc4xdM5qJLYy2rnlrTKG2gTKnj/jZGW3lFDMKX1XXcKZUkPrpHezciBRa +/xjMmkv8Yc2D3NkrKRwf1czUIfYRneK/sqEwLrGBYUo8OHWz9Rk7cv+FsZor +iY94Ugr2zhSySxpT7YinVP1sk3Gh0NnKMHU9cYLmPVHtVgrBXUdjM7FKWGxQ +9A4KnXZaMLZW/JcHG1dY7aKw77dUzhZifVPWjEl7KFyrM5DnQlyc1NfywJ9C +0zUXeM7EOFieGR5Ifj+Tb7eauNYxJoAXQmFvCPMjEq/LXc8bO0Lhnc65E4uI +38kwppVGUlgy9vkqi3iXT09jUBQ5vlrhsTxx3+OyNKM4Cr8lcQ/+JetzmB3l ++zOBPC+1W6IvxFJHnZfknaeQ72LiXU8c90Fjkl8KhbWXLG7eIlZa9v257lUK +v8bvOHKOOO1SyaVv1yl8p6fadICYO3rMKzuHQoXqvyUOxOYFahOMWxQyi300 +pIgfzeqq/VBEYb6dTIaY1IeDf1FS6h0K922YUkgTe+jY66s8pNCq1CTMlvh7 +1LzfzU8olOyMMVEiDvr05eH5egqfz/UJf0/q82SaYNssMYVt9bJ3fYjzlG7F +SXdTqPjn6IQHqfelgWEuj3opXDLyyVyVuKrBlnVskMJTIQ6yL//rn7jOOxPj +FFbYRO42Jv4jObt7WI6D9F/U6CD9ecKtvahgNgdVvj6bFEU8s+JG5H4VDra9 +7o3gEjNCrFR6mBy0FVuv9CL9bdMbbPPJmIM3V+yVeETyQHWh+glpc/I9A1zt +iHv2V1fqLufgcaeG3le3Sf0Py5nvX81BRp6BsInkS9u4UH/ClYPa92rOlJE8 +ygOHPQxPDianRJ3VIz4aMZy90oeDwTGT6y7lkjyabKEVF8jBgPsruwJu0rBf +5q3C3BgO3hnW6PxD8s7SLtLBPJ6D0aOqJS7EcxK0T7me5SCnvL82X0RDucLB +KVlXOOjtZXxji5DU87wZo4a3yPVFdSHxJF9TuNi25g0HJ4qPt+8j+ey757PK +vg8c3E0z+tNIfsONuI1nP3GwT15xdX0qyQeDlhctvRwcqtds17xC6nvJ/qpd +k7TR9Zv+/zLJ/lBllZEjmK+N/bHlAfqJ5Pl6SB8oCNdGgbXQZ0UEWZ9Uy7v3 +jmljecyufAbZz3pbBFOfxmjjZO61QIlwGn7aj15qP6uNBfllBwpCSd6YdVXP +yNFGbHzo8zeYBknFZ0q7X2hj/b7gXhU/GuZWny5T0+KiYIfkON+F9OPE00lc +iouh8SnusmQ/V10qbW+ky8Vh/8ztl9fToJ4n6LRdzMXvfE+12040sC4HyByy +4eLrg++eVZF5wSDQefvLAC5mmEzL3Y80mefnSEZVcjG4wmy3DEXDN3frHLPH +XGzGuDF/Fumfa8F2fU+5aFrdFdvAoOGVujhl02sujlNXhfEaNLjNvbhI7yuX +zAunvveReSZkxjzPBlkdvF3urL/hX7J//VKvmbdJB5/bRVzMIfOSfB0Vn9er +g3OP6W0+nyuCv70GmbWDOvil3e6Lww0RdMmblX8c1UE1v1S76bQIKl3su5Qn +6eLb5NjcoCwRHPgYbBWhrItHTZReL74igsaxmr+Oy3UxUn/lUTsy/yXr7PEf +SNRFibGfc/rcRaAanetgbKyHez9xpXVmiOCCrqmcgtd8fPs+8cCTLUKoVVm+ +eOCMPlq7X7msnUTmddXKhAVNC3DW2N20dmE2zJBKD9wRaYAxe/zlFpdngXqE +hvkmaiHeSv8zmkxnwjT21iKnxwuxqj+k2eNcBujz5uYGbzPEveznu8ujr8P+ +NvkqW4lF2F4QO71qRzr0DsStt7mwCF9o+u4tWHMNrBc8SrGZb4Shnw0dW8n7 +TcWA2dhIvREeTnr+2Mk4Ffz0DFsbPBej55+0hg9al4HXs7Nx0zRj1NI6t5nf +exFWspTXyqYbY6FNq7PTQDJoC04eqjQxwY6pUHlIIQl0PE3vsVtNMNv7tluh +1jnwrPA+VhCwBGWlV3QqeifCvbTGnf2zTTFkBPpfXk+AwZyJkQXFphgd8PP2 +pSnx4MGmp6WsXYoDkarifQtioV/nrPGtvqXIDxtVTXCMhpKMsfahaDMUu+1x +W9p8HDZbMtFM3Rzd7SeOzr1wFObtjSrVv2+OaS71XyS2RMDs6b75azfysMyi +NuDixzDIsDhyuG8TD1v4BXsdG8PA8Ei8xdmtPBT1jE2Tqw4Du7681+IdPMxV +UFK/dj0MTjQNjXr48lDVKOyUvEcY/EoPX3E4gofZwdvsF3YegVazs6+yaB7K +3RbvX/c1FLwPZly2uclDjvLye+/EoTB8s9Dzex4PbQKiwvY+CQV5hnhkYREP +64xb7NNEobBaWk317n0errudrui8NxTKG7N2vnrNw2DL/HfdA3ywnVEyP0jM +w5+tY9lvPvJBbP1kWPkNDxNLk+oaXvNhsKw7evsHHqY8qGE1FPNh/jWDG9+6 +ePil2rllXigfyluXB8X94KFDxaZ1y/aS8yk6w4I+Hq6tKFP32s6HXVEHGwKH +eCgdePLSUyTnu38iZc4vcn+bh22nGvIh8neyR9lvHvLpYgsbJh/kjIR628bJ ++rSvPnZGkQ+pe8uGJiZ4qCNt8O+HyXz4P4W3fmk= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05418670576336439}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05418670576336439}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VP0XB3APLeqhhCRZZ7ljkCSRmM4pIipri1YikURKpBFDCyJJRakk +2Wbur1D2pEIlRSkxVAqtlCVbkvy+z1/zer9m7jLfe87ne66Wu7+Tp6SEhMQ/ +/0hI/Pc53PakmhWbsWz8Vm5q6x+jZY2pyiHLxZHg96b8/mlUAJz93F1ZnAin +nwnDdyITghxEzVLidFj/1cPTFhfBrJ45iaPNt+CF194AXbSA9+V2/oPNlWA9 +SXlbIziDFavrXX/zS9i6uT/o5DIPGG02Od/X3AFqPkOffU0PQJVFdkZD+gDc +zHU3utN3FFTfl3521xuHoJGHX9fuPgWKvq6iqRZS+Ew/afu+pWchcaHVHbv1 +0vjonvo7h6FkaLlgcL9fThYHC5dmlulehtiM8OeSc2eh2WT9i4t5aTDnXGfM +2SsKWMFpL7xtlA5R62yWvRyejT5uVR7cT9fhgOk11yeRyvj505t5bvGZYNn7 ++7Bfpwqm7vhnd3dvFkSYO+5QWaKG4T766izNHFi1PfWnyQo1zDvKmtXDyoEZ +gu6j69eo4SuVLeICbg5crjqeleCmhtkWRzqWLMqBEtuy7ikxaugasLNNxSoH ++lyYQQMtavi48iDPak8ObD84dPIZXx3rdjhJmt7OgaU3LxaE3dPA5WePLDxm +KgTL5vrxnhoNVBxUdObxhGAnMcna9aUG/q0dzh5AIXg4+bXAJw38835N98ZV +QrDia4ULJmviR0vLpr8bhLBPY/j6cl1NfH5mzoJHB4RQ7XX1R1WQJrqGpJ9b +SgvB5o+pfChfE2XwlVTKTSHUJzQaGwk0sfvBu4zhfCG0lE4TZMRoouWVA6HZ +JULo+TdQ/vhlTQwH74gvD4WgnLfKxKpSE7N/WnZ8eC8E31/9ghpZLdzX7Klc +OksESwN2KX2W10JZ9fxLE4oikO5qpaWUtXB0VfOrFcoiyHxT1bSMoYWVxUPu +99RF0FZxXq/QWAvv1vj8TdAVgf1xU/E1Vy2cEHaZJVmKwFA+YgE/Xwu7eYxI +bqAIJGKHqi8UaaH4oX7dlGAR1Ev5bC66o4XvJu9+8SFEBHuGnI73P9TCFefH +J06GiyBDzHrj1aqFP5S+Ty05KQKlqzUn1kkx0Oqc/vvANBGM6sq1zV/PwPDH +E72Hn4hg+IpKxKLNDHzJfKv+8akIBmeyWaauDPSaJa9jWy+CngFTH8vdDBx5 +4dUk80oEHXc8hjcfYaCs09c437ciqF1dPCM6k4FRj5IzzveIIGXPdugYYuDd +ULMlCXI0JL/z7vjym4Hf/Y55n5en4Zz9geM/Jhj4TUb/SLIiDfGLop/+msbE +jm+16xKVaYgcy984U52JKtvcHrpr0rAndvI+cysm5m8T9PotoMGc/l9aUhIT +TbKdrhmvpuGNJn115SUm6qVIvi9fQ8PhJGHq4FUmFjMzA9COhuKIrMtOQibG +ne1OAkcaDF3SLswoZ6K0cck3tY00cCefSzjRzsQH/NCBze401BxOPL34MxPj +h2dmFHnQsKsvIf5jFxM3KfnenOlJQ8abU3ErBplYPrOyodSLBs1bUdF/p7Bw +5pymLT2+NCi58gVBeix81hDySBxEQ2FjSDh7IQufNG5fOv0QDetsD4U1Lmbh +nFW2sqYhNCQuPhhqCCz0/nqmIZ5Pg6yM/6EeRxZumh79TkVAw6RS9327glmo +XRfiWBhNw3X9Hf6zQ1kYkhX9vjyGhhUZrn7VAhbu0Fj+8sFJGsJPb/VlnGTh ++W3sL1VxNPz23ODddpmFXmmyLTkJNPTL27ptqGRhgpTRwuFkGsS+jBc+j1n4 +1uHzh88XaLj/6DeEP2OhR0/uicaLNCQcpjVymsj/wRNFWZdoMOiQeT/axUKx +z6pC6ioNyuaf7Gb0sTC2tIw5QSyRdLeCMcRCWa01cY1pNDy38UtdPcHC3O8t +a4PSafDLf77tigIbl0uqXzufScOGf3Pq8pXZWC8t2bs+i4ZlngLeIzU2Rr+e +b6aQTdZj7kK1Xg4bNz04/OJYDg3/EyS+RXM2vtEUj1vQNHTZr9/ycScbx7RK +3hrm0fBSOP/pr91sfJCVZV9FXCY1xUzWn43e0qefOOTTEFNcpGIcQq6HsY3u +t2jQ1lBujTrFxj3j4xs8CmiQC+mzuZzIRin/Y7PeEv96WVOal8xGAfdUs2Mh +qY8TIRdbrrGR+2V/tFERDV49rS66RWy8GVxzqqmYBrtVt2vgDhvj7yUVmJTQ +YJweu2TdfTbmZMV3nyeessFc+UgtGxVnusTZlNLQk6sYfeY5uR+1TSOpxE3T +foxkNrJR/nNHYD9x1t0rzfVtbPTvGRSeKiP9MifIurOTjfmCPPdm4qAAu+KR +r2xct2+LgfodGlayJ5I0B8jxC7tlrhPrhTdPWfyLjWK5qWrtxIotuUE242ys +8xFYqpbT8DHObcP+qRQaVf99E0Ps16XHMJChcMuh8amlxCPWoz9+yFEYFOp6 +4xOxIPNhKT2bwsjczGcz79IwXSrx+G4VCn1tHHeZEJ9z2+7I0aBwsLXz8FZi +tQodtU9MCkPWvp8eTpw1b+RrujaFdR0Pla4SG4RUFbjNp3DESOVqOXFZ02mB +uiGFc4xdM5qJLYy2rnlrTKG2gTKnj/jZGW3lFDMKX1XXcKZUkPrpHezciBRa +/xjMmkv8Yc2D3NkrKRwf1czUIfYRneK/sqEwLrGBYUo8OHWz9Rk7cv+FsZor +iY94Ugr2zhSySxpT7YinVP1sk3Gh0NnKMHU9cYLmPVHtVgrBXUdjM7FKWGxQ +9A4KnXZaMLZW/JcHG1dY7aKw77dUzhZifVPWjEl7KFyrM5DnQlyc1NfywJ9C +0zUXeM7EOFieGR5Ifj+Tb7eauNYxJoAXQmFvCPMjEq/LXc8bO0Lhnc65E4uI +38kwppVGUlgy9vkqi3iXT09jUBQ5vlrhsTxx3+OyNKM4Cr8lcQ/+JetzmB3l ++zOBPC+1W6IvxFJHnZfknaeQ72LiXU8c90Fjkl8KhbWXLG7eIlZa9v257lUK +v8bvOHKOOO1SyaVv1yl8p6fadICYO3rMKzuHQoXqvyUOxOYFahOMWxQyi300 +pIgfzeqq/VBEYb6dTIaY1IeDf1FS6h0K922YUkgTe+jY66s8pNCq1CTMlvh7 +1LzfzU8olOyMMVEiDvr05eH5egqfz/UJf0/q82SaYNssMYVt9bJ3fYjzlG7F +SXdTqPjn6IQHqfelgWEuj3opXDLyyVyVuKrBlnVskMJTIQ6yL//rn7jOOxPj +FFbYRO42Jv4jObt7WI6D9F/U6CD9ecKtvahgNgdVvj6bFEU8s+JG5H4VDra9 +7o3gEjNCrFR6mBy0FVuv9CL9bdMbbPPJmIM3V+yVeETyQHWh+glpc/I9A1zt +iHv2V1fqLufgcaeG3le3Sf0Py5nvX81BRp6BsInkS9u4UH/ClYPa92rOlJE8 +ygOHPQxPDianRJ3VIz4aMZy90oeDwTGT6y7lkjyabKEVF8jBgPsruwJu0rBf +5q3C3BgO3hnW6PxD8s7SLtLBPJ6D0aOqJS7EcxK0T7me5SCnvL82X0RDucLB +KVlXOOjtZXxji5DU87wZo4a3yPVFdSHxJF9TuNi25g0HJ4qPt+8j+ey757PK +vg8c3E0z+tNIfsONuI1nP3GwT15xdX0qyQeDlhctvRwcqtds17xC6nvJ/qpd +k7TR9Zv+/zLJ/lBllZEjmK+N/bHlAfqJ5Pl6SB8oCNdGgbXQZ0UEWZ9Uy7v3 +jmljecyufAbZz3pbBFOfxmjjZO61QIlwGn7aj15qP6uNBfllBwpCSd6YdVXP +yNFGbHzo8zeYBknFZ0q7X2hj/b7gXhU/GuZWny5T0+KiYIfkON+F9OPE00lc +iouh8SnusmQ/V10qbW+ky8Vh/8ztl9fToJ4n6LRdzMXvfE+12040sC4HyByy +4eLrg++eVZF5wSDQefvLAC5mmEzL3Y80mefnSEZVcjG4wmy3DEXDN3frHLPH +XGzGuDF/Fumfa8F2fU+5aFrdFdvAoOGVujhl02sujlNXhfEaNLjNvbhI7yuX +zAunvveReSZkxjzPBlkdvF3urL/hX7J//VKvmbdJB5/bRVzMIfOSfB0Vn9er +g3OP6W0+nyuCv70GmbWDOvil3e6Lww0RdMmblX8c1UE1v1S76bQIKl3su5Qn +6eLb5NjcoCwRHPgYbBWhrItHTZReL74igsaxmr+Oy3UxUn/lUTsy/yXr7PEf +SNRFibGfc/rcRaAanetgbKyHez9xpXVmiOCCrqmcgtd8fPs+8cCTLUKoVVm+ +eOCMPlq7X7msnUTmddXKhAVNC3DW2N20dmE2zJBKD9wRaYAxe/zlFpdngXqE +hvkmaiHeSv8zmkxnwjT21iKnxwuxqj+k2eNcBujz5uYGbzPEveznu8ujr8P+ +NvkqW4lF2F4QO71qRzr0DsStt7mwCF9o+u4tWHMNrBc8SrGZb4Shnw0dW8n7 +TcWA2dhIvREeTnr+2Mk4Ffz0DFsbPBej55+0hg9al4HXs7Nx0zRj1NI6t5nf +exFWspTXyqYbY6FNq7PTQDJoC04eqjQxwY6pUHlIIQl0PE3vsVtNMNv7tluh +1jnwrPA+VhCwBGWlV3QqeifCvbTGnf2zTTFkBPpfXk+AwZyJkQXFphgd8PP2 +pSnx4MGmp6WsXYoDkarifQtioV/nrPGtvqXIDxtVTXCMhpKMsfahaDMUu+1x +W9p8HDZbMtFM3Rzd7SeOzr1wFObtjSrVv2+OaS71XyS2RMDs6b75azfysMyi +NuDixzDIsDhyuG8TD1v4BXsdG8PA8Ei8xdmtPBT1jE2Tqw4Du7681+IdPMxV +UFK/dj0MTjQNjXr48lDVKOyUvEcY/EoPX3E4gofZwdvsF3YegVazs6+yaB7K +3RbvX/c1FLwPZly2uclDjvLye+/EoTB8s9Dzex4PbQKiwvY+CQV5hnhkYREP +64xb7NNEobBaWk317n0errudrui8NxTKG7N2vnrNw2DL/HfdA3ywnVEyP0jM +w5+tY9lvPvJBbP1kWPkNDxNLk+oaXvNhsKw7evsHHqY8qGE1FPNh/jWDG9+6 +ePil2rllXigfyluXB8X94KFDxaZ1y/aS8yk6w4I+Hq6tKFP32s6HXVEHGwKH +eCgdePLSUyTnu38iZc4vcn+bh22nGvIh8neyR9lvHvLpYgsbJh/kjIR628bJ ++rSvPnZGkQ+pe8uGJiZ4qCNt8O+HyXz4P4W3fmk= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05418670576336439}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.05418670576336439}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913218813523655`*^9, 3.994250992707395*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"cc915b1d-fcfb-48e7-86de-d2a4bf0037d2"] +}, Open ]], + +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", @@ -7665,517 +7589,747 @@ Cell[BoxData[ CellFrame->{{0, 0}, {0, 0}}, CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, 3.994082822234511*^9}, - Background->RGBColor[ - 0.87, 0.94, 1],ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], - -Cell[BoxData[ - RowBox[{"Show", "[", - RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"39000a9e-1f94-0640-8925-\ -ec28b28907cc"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"L", "=", - FractionBox[ - SqrtBox[ - RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.99179966106703*^9},ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], - -Cell[BoxData["11.27534350842078`"], "Output", - CellChangeTimes->{3.9913229040054893`*^9}, - CellLabel->"Out[88]=",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"L", "=", - RowBox[{"Plot", "[", - RowBox[{ - RowBox[{ - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], - RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", - RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], - ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", - FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - FractionBox["1", "Cb"], ")"}]}]], - RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", - RowBox[{"{", - RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991799666995865*^9},ExpressionUUID->"7116d4f3-8ab8-b741-8264-\ -0a5eeac170a0"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 89, 17, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913229042538757`*^9}, + Background->RGBColor[0.87, 0.94, 1], CellLabel-> - "During evaluation of \ -In[89]:=",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], + "In[105]:=",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ -\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 89, 18, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913229042728806`*^9}, - CellLabel-> - "During evaluation of \ -In[89]:=",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ -\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 89, 19, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913229042938766`*^9}, - CellLabel-> - "During evaluation of \ -In[89]:=",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], - -Cell[BoxData[ - TemplateBox[{ - "General", "stop", - "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ -\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 89, 20, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913229043127804`*^9}, - CellLabel-> - "During evaluation of \ -In[89]:=",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], - -Cell[BoxData[ - GraphicsBox[ - InterpretationBox[{ - TagBox[{{{}, {}, - TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwd13k4VV0XAHAvoQlFpmu699xrKHOmDNdaSQNKJUUy9SpTUhkzlKGEiqQU -RSKUTOeUlChCIqE3MyXRIMlQKE2+0/fXeX7PGfZea++19z6sfw/Y7OXl4eER -/IeH5+91pr+xjnMqx9RRIPNqkSmatl+RClndHQ0VmTo7zzXLAYq3/ivVnQwp -zr82bW5Wh6AtN7v4urNBga8ykWjmwtIxyeTZrlsg0vVmw5tnm+B1pfWBqa4a -OLHVe4n4MydYxxl5Ndn1AngyD7fyNO6H2S6DlImuQaj0EVnxqPII1K65nvNf -9lfIvXvcw7ouEWRfl7//V+03iK7O0ryQdgGW+bjcFFzDhwnHlG9L7cmAZO11 -Fdbb56PnhY3lK9WyoSdVq3pyiRCuWrH4saJmLpzKiWjllV6Kgal9/V7KN0Dy -/FD8uQwxdDhUObTmwU2ItbUwfTEjjr4p71S5HYXAKG1h8P4jgWf8h3SuvCqE -YjHbb9qLJPDW4hqV2XeF0PnCmTyrIIG+t7Z0pM8UAmdrALF1gwQWfwtQuCxZ -BDWbMgWep0mgv9KLQj/7Ivi9brql2UQS7cjzNbEdReBvmOXSGC2FusYHw1kP -isHyqvCU1WkptD8+EHisthgIwfC4lhQp7BJX//26sRiet++g2m5IYfG8mdtx -ncWgcXAxX3+LFL5wf3kvdbwYhvOC874wpNHZr7PnFrMEHJdZf5a5LY1TDxUv -NR8tAZ2wiqgrldKoXv5PdeTxElg4qCLBqpfGRL1z+zROlkB5CR8o9UjjwWmj -bSEpJSBhVZ6kNSeN5im3XJsLSuB5FEd3rRUD+WLmOfh2lYD5+I9Q3yEG3tdu -yLYQJyFkw/kVj0YZmKziOvBQkoTiLPVesRkGHu80CNNmkCBl62pYPl8G5w2W -NwgrkDB67/E3Pg0Z1H9zrzZfhYRz0UkBaYdl0Hf24OrdxiQMiiv51gnJYkxZ -/8NOZxIkD1TJSUrK4msZmYpvriRsbLBv9mLKInNpnISEGwlloafURHRk8YK4 -6ydLDxJOvp4Y2Wkvi9Wk4pKUAySszK/wGM+Wxdlktd0FESREmWzdzVglh2ue -9ci9ySBhg/OVLwZmcpgqeX97RyYJwpGfjm3fKIelTqJh9VkkpNfG5CW5yqF8 -M/tMZi4J9yzvfxKIl8NXgs+G1IpImLBnB33tkcPrhSahpRUk3A09KLj0rRwe -bS24EfyAhKPpD1I1xuSQX22gwaCKhMUDdhVevPLYHdz0uriGBGWP0zwDK+Rx -G2l28HAjCc6B0yefhcljbt5Wt5BOEhQvmsmOxMhjqONQ26Luv/k7UySYJI+p -v32ML/eQEPpr+XOzHHl8fLJtgnxJQsoxZ/HyZ/J4cb/I3N1BEp6dfZKZK6eA -rWEqv3XHSDAqTis9WqWAMv9pbvzMS4F5V8vvsQYF9K8UmV04jwJrnnnrXV4o -YPB06WIlfgrcbHx74J0Cpg+1eNkKUrAujBURyc/E988G+JMXUXBQYebaalUm -flGIlz0rRsH07aSGWU0mMtp+usUsoyB0g+pnSpeJOdtCpYLFKYg55KpPmDKR -Nbn6qY0kBZdqnzbwbmWirhLp+IlBQZ1H5ufaICaehfz0LBYFFr8MRcPDmLjD -4NYHH4KClqR2fd1IJu6ZzM/TY1PQU74gMieeiaWOOtFVHArGFgWIxqQzEWd8 -K0uVKfC/KmzAzWJi9YObt/epUPBdN3/XdC4Tn/yIIJjLKeBz7s/ZW8JEJZsu -z6gVFEiRGwzW1TBx0udIrqI6BRnmQ7v+1DPRrKrOvYE20XMksqyJidHnA695 -alCgznu7UamDiRm1AmezNCkws5VzFBxmYhGj0HJamwKf75ORDUIstO4VuMHR -p8DokLvEe1EW8o3zn86nPX+kt4BPioVOairHVQ0oyO2r7TQlWLh+LuK20ioK -+h+mqN3RZ+Gq2o2sH4YUFBosrHlhzELxMM1yDyM6v+RRuwlk4c7udO8XtCWy -PaJVrVg4crFHNtOYgs0xht1ZLizMTNz2QpxLgfyfov1Ve1jYnvTHwof2aBDB -98qLhWIPmwaqaMd5LtKQCmChp1eer7MpBTveRNTqhbDQLIfwyKfNcZiy33aU -hRXRV6ImaVdbvTqWGMfCBzdCFUKAgsS6rdKFCSzcE7E55x5tR259cWMyCz9K -CFlP057VKOmZl8HCkhQdMXekoOE6+wCRzcKUFgmtS7QvMFPn4XUWZnl3BTTR -XikapRlGsdB/w+fDiqsp4Dk1XZdaxsLDiTWG1rRb+LwdyirofECgYgDt9PD+ -8bZqFuozn5hcpL1v2iZm8jEL0wpCI+/SNvJ9whBpYqGl8LbJdtrzPxiTas9Z -uFxlWdI47U4Xcq1lBwtdTkU7CZpRkNPN6fPoZeGHMDcHWdp+W9MOxrxm4Z+x -8FgN2vhUSODaWxbeOZnyjktbeE305eqP9HjkBgRa0n5VMaPVP8ZC/rWDBra0 -C3X31f/8ykIhhevqu2iHFr3eJT3LwoSLp+1caG9Qsp3U/8PCjmrHMlfaEpkN -J2z5CJxyGLT8e/+tJFfWbz6BGm3D4n/fv5VEUWeECAxZYyL19/uRC5TWF4kS -+P1Qvs3f9jdHX3r5VJLAI89/P/7bP/mfwn7DsgTOhQn6/+3/qP8xQQGCQBmT -lP/Hd3/0WzpbmcD46KAjf+OP2+uzcrUageneYS//5mdH/8ATZ20Cq+4FHO6g -zbHb7hSuT+Bkj47NPdpfWhu/pBkTqDV00juVdvUG07i7SODSsxtrAmknProl -17GWQOb6jQ5baDsaKd/+Ykmgt4izjgrtWdUl/erbCWSYLCpspcd/JoMRpeNA -oKTgfP2rtKdEFDmGLnS8RbVyvrTHvhp6m3sRaPMgbwEv7U97zYUsfennjTxE -Guj5NtxlTW72J3D0rlTQKdqDFW4zDkfo+LfHei2k/VrdN801msCPxoPfHtPz -+WXmYRP3WALXF3mNHKXdeSwh+tBZAqVZODdM18dTq7vCcbkEiovN/skwoeDJ -g0dUwk0Cg+ZnPzanXaf5zPZcCYH3tiz8NkzX30OxN5eulBPYtHB/xnLat/oW -Kt9pJnDPwAeR03Q9l2wSf3r/BYEc7ak18n/ru0phf3UXgdYVQR+L6PrPu6Z7 -u+kNgUp+5qcf0+vDpX3OMDhNYELJyIZOPQouvvIc/PCDwAy9BKYt7fOb/WM+ -zxHowxN5sFWXzrdOXNP3BWy0z24Of6hDQfRPyk5Eno2/A71cjtLr075T/AdN -1rHxob7z0hNqFHj+FhEzs2JjbM6yrj5VCtwPMMrWb2Gj2YguW5O26zbNXzYO -bMywtrJpoddPW5mdcV6+bIy5Kq44rkSBSUHh1QsX2HjPYtyzgklBH7Mgc+1l -NnLWGK/8rkDP9wv5V6Yy2ajuIfNmJe27UXnpNvlsXHHv8pcsObre7a+mCley -UVW4cdad3g+W859POvGGjU+Ou65JoPeXhtDkM3rv2egzJfrohijdv4mkxLcj -bBxXSNKqWUrXa1/CabMpNoaYzhseE6GAeSs27o8AB0300lo0F9P15BIWGaTG -wYTkO8u30PvdnfaQCEVtDrZOV7Os+Oh4LA8fbdfjYPMqtpQ5vT8m6wWGrwQO -Xk1g8GnxUCC0+MDhsa0c1BJePjz+k4R55f8edA/mYKewd/aSryRMilq67qjh -oPVKleN9r0no9iGeez/hINVp7hzeT0J1/Q+IeMbByk/NPxivSEgKLVC40clB -9yNuEVt7SdAaXPx6doSD0mZu7dfaSfClWp0yxBRRi5+R0d9Awsjm7bve7lFE -Sftr+qUlJLzIV2/67qWIciK8/iLFJNznEzAWOqCI/M7u5z0LSYi/W8bQD1HE -jBM3Ti7LJ0FFQao3NkERG2d59mzLJsFjrNdetUwRz7/fW7P/PAlvT7vu8BNU -wveTN+Zkg+n2R9QIrcVKeCx3faBdIAnf1s9+/rxECS8Jhegm+ZOwkC85xouh -hJ991p77RZ+3tEJqS13VlfDOJs/Rak8SjuxVEtu8TQndso6//L6TBAnT0VbV -TCXs2vjTUI0+71mMB1u801fG5xGCRMFkCchqy5+Yb6JMny+GT86MlsCYX12N -6mpl/P6sP8x0uATOzywx8bNSRiWf2rna/hLo/52vMeeijEnhKW25TSXgt/il -mHS8Mn7aZtZcn1MCl5Zj/8Y+ZXywtIJ1xrYERt3m+5dGqGC9p158zc1i+n9E -kje2ZjmKvQ3MYHOLQLRZKZEcX4FFU1F/7BsKQDauZIu+vhqab5KctWTchFRV -wyViHuoI5o9aiMM34Cljtd7Xsxpo2OS5bltHHhjJ1iRpdmqilOTm/MlFuSDM -lx2wO1oLWaSR1bI910A+SsFkp5I25rW9Gc3LyoIFio5lNk+0MatRmTE8kgka -XOmSYKeV2N0mo+Q7mg5+/aK1ljw6qLvU+nhNZxqMfz293SJVB88oNF/kYV2E -9Zr1lyzUdXG2q7E5MOc8PPxq/PNbiy5qcKEgnJMMvmore//bq4eafO5OaXNn -gDu2p33nAn0UPEMFW9SegrUcqU1C2fqoG/9Bp1EzDlQiTx6uMTBAw7XhCYoC -MbBir2GVYq8BrswKsuuejoK9Dz2Plx5ahad/nXJZ1HsUqq6275kUN8S8n9ae -1+eFwtSNuW+adw1Rbt6aiVVDgeCmWLDg0iYjLKJ4huTj/WByxTn9WxNGmH85 -JSjsqS/cy/n5ZjrOGL98GmoRqPUCB3M2GsuboLBXe6dF7F6Q2R9brlFtglYL -h2xMr+6GxDl3vVM1JrhrOX/gaPJu4E1eR32oM0H2cJnttZjdMFLGn3+10QSD -eYONVPfthvs8x1NF20xQ8VSowjX93eBwPjJ45p0JinDbbTVbXSG1IkTv4SIu -igZuHkoTcAXxhT7UJjsuSrwrWh4p4wQ5a46ETuzkojcr9NYOXidYeSRxzTlH -LuqtP2uOHx3BeoLs6N7NxWPR9ds33nWEE53Ts24+XJQWdH63ztYRvmdHmIVG -cfFoz/KzFWd3Qa/xuba8Ai4mwsRzG4YDeAbmpFsUc/HPeo0VAXwOMFN8Z+8o -ycV4/T7566M7QZTo/qZdxsVlTf8Ur67aCVbz5WQfVHOxff9C9Q17d0Jle96e -tg4uWkS2Ljhbag+WwvfUg7q5KH6obrT+ij10r2+ckerjYkj4xgqheHuYuv8p -znmAi1u968abnexBPUur6OMIF8sNiTjJ+fZQ2bs66PRnLjqFOqW1fbEDy2Xb -QHOCi60DfHj1lR24xwb+FzDNxX383cS+23YwVX3ikuR3LjbGl1p4XbGD6B8X -3e7/4GJ29c6+4Hg7WKKbr+b0m4vaAyuaLwTYwZX996fn5rgY1XNmWb2LHfwP -U0FU/w== - "]]}, - Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, - {"WolframDynamicHighlight", <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], - StyleBox[ - DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, - Slot["HighlightElements"], - Slot["LayoutOptions"], - Slot["Meta"], - Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ Annotation[{ Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwd13k4VV0XAHAvoQlFpmu699xrKHOmDNdaSQNKJUUy9SpTUhkzlKGEiqQU -RSKUTOeUlChCIqE3MyXRIMlQKE2+0/fXeX7PGfZea++19z6sfw/Y7OXl4eER -/IeH5+91pr+xjnMqx9RRIPNqkSmatl+RClndHQ0VmTo7zzXLAYq3/ivVnQwp -zr82bW5Wh6AtN7v4urNBga8ykWjmwtIxyeTZrlsg0vVmw5tnm+B1pfWBqa4a -OLHVe4n4MydYxxl5Ndn1AngyD7fyNO6H2S6DlImuQaj0EVnxqPII1K65nvNf -9lfIvXvcw7ouEWRfl7//V+03iK7O0ryQdgGW+bjcFFzDhwnHlG9L7cmAZO11 -Fdbb56PnhY3lK9WyoSdVq3pyiRCuWrH4saJmLpzKiWjllV6Kgal9/V7KN0Dy -/FD8uQwxdDhUObTmwU2ItbUwfTEjjr4p71S5HYXAKG1h8P4jgWf8h3SuvCqE -YjHbb9qLJPDW4hqV2XeF0PnCmTyrIIG+t7Z0pM8UAmdrALF1gwQWfwtQuCxZ -BDWbMgWep0mgv9KLQj/7Ivi9brql2UQS7cjzNbEdReBvmOXSGC2FusYHw1kP -isHyqvCU1WkptD8+EHisthgIwfC4lhQp7BJX//26sRiet++g2m5IYfG8mdtx -ncWgcXAxX3+LFL5wf3kvdbwYhvOC874wpNHZr7PnFrMEHJdZf5a5LY1TDxUv -NR8tAZ2wiqgrldKoXv5PdeTxElg4qCLBqpfGRL1z+zROlkB5CR8o9UjjwWmj -bSEpJSBhVZ6kNSeN5im3XJsLSuB5FEd3rRUD+WLmOfh2lYD5+I9Q3yEG3tdu -yLYQJyFkw/kVj0YZmKziOvBQkoTiLPVesRkGHu80CNNmkCBl62pYPl8G5w2W -NwgrkDB67/E3Pg0Z1H9zrzZfhYRz0UkBaYdl0Hf24OrdxiQMiiv51gnJYkxZ -/8NOZxIkD1TJSUrK4msZmYpvriRsbLBv9mLKInNpnISEGwlloafURHRk8YK4 -6ydLDxJOvp4Y2Wkvi9Wk4pKUAySszK/wGM+Wxdlktd0FESREmWzdzVglh2ue -9ci9ySBhg/OVLwZmcpgqeX97RyYJwpGfjm3fKIelTqJh9VkkpNfG5CW5yqF8 -M/tMZi4J9yzvfxKIl8NXgs+G1IpImLBnB33tkcPrhSahpRUk3A09KLj0rRwe -bS24EfyAhKPpD1I1xuSQX22gwaCKhMUDdhVevPLYHdz0uriGBGWP0zwDK+Rx -G2l28HAjCc6B0yefhcljbt5Wt5BOEhQvmsmOxMhjqONQ26Luv/k7UySYJI+p -v32ML/eQEPpr+XOzHHl8fLJtgnxJQsoxZ/HyZ/J4cb/I3N1BEp6dfZKZK6eA -rWEqv3XHSDAqTis9WqWAMv9pbvzMS4F5V8vvsQYF9K8UmV04jwJrnnnrXV4o -YPB06WIlfgrcbHx74J0Cpg+1eNkKUrAujBURyc/E988G+JMXUXBQYebaalUm -flGIlz0rRsH07aSGWU0mMtp+usUsoyB0g+pnSpeJOdtCpYLFKYg55KpPmDKR -Nbn6qY0kBZdqnzbwbmWirhLp+IlBQZ1H5ufaICaehfz0LBYFFr8MRcPDmLjD -4NYHH4KClqR2fd1IJu6ZzM/TY1PQU74gMieeiaWOOtFVHArGFgWIxqQzEWd8 -K0uVKfC/KmzAzWJi9YObt/epUPBdN3/XdC4Tn/yIIJjLKeBz7s/ZW8JEJZsu -z6gVFEiRGwzW1TBx0udIrqI6BRnmQ7v+1DPRrKrOvYE20XMksqyJidHnA695 -alCgznu7UamDiRm1AmezNCkws5VzFBxmYhGj0HJamwKf75ORDUIstO4VuMHR -p8DokLvEe1EW8o3zn86nPX+kt4BPioVOairHVQ0oyO2r7TQlWLh+LuK20ioK -+h+mqN3RZ+Gq2o2sH4YUFBosrHlhzELxMM1yDyM6v+RRuwlk4c7udO8XtCWy -PaJVrVg4crFHNtOYgs0xht1ZLizMTNz2QpxLgfyfov1Ve1jYnvTHwof2aBDB -98qLhWIPmwaqaMd5LtKQCmChp1eer7MpBTveRNTqhbDQLIfwyKfNcZiy33aU -hRXRV6ImaVdbvTqWGMfCBzdCFUKAgsS6rdKFCSzcE7E55x5tR259cWMyCz9K -CFlP057VKOmZl8HCkhQdMXekoOE6+wCRzcKUFgmtS7QvMFPn4XUWZnl3BTTR -XikapRlGsdB/w+fDiqsp4Dk1XZdaxsLDiTWG1rRb+LwdyirofECgYgDt9PD+ -8bZqFuozn5hcpL1v2iZm8jEL0wpCI+/SNvJ9whBpYqGl8LbJdtrzPxiTas9Z -uFxlWdI47U4Xcq1lBwtdTkU7CZpRkNPN6fPoZeGHMDcHWdp+W9MOxrxm4Z+x -8FgN2vhUSODaWxbeOZnyjktbeE305eqP9HjkBgRa0n5VMaPVP8ZC/rWDBra0 -C3X31f/8ykIhhevqu2iHFr3eJT3LwoSLp+1caG9Qsp3U/8PCjmrHMlfaEpkN -J2z5CJxyGLT8e/+tJFfWbz6BGm3D4n/fv5VEUWeECAxZYyL19/uRC5TWF4kS -+P1Qvs3f9jdHX3r5VJLAI89/P/7bP/mfwn7DsgTOhQn6/+3/qP8xQQGCQBmT -lP/Hd3/0WzpbmcD46KAjf+OP2+uzcrUageneYS//5mdH/8ATZ20Cq+4FHO6g -zbHb7hSuT+Bkj47NPdpfWhu/pBkTqDV00juVdvUG07i7SODSsxtrAmknProl -17GWQOb6jQ5baDsaKd/+Ykmgt4izjgrtWdUl/erbCWSYLCpspcd/JoMRpeNA -oKTgfP2rtKdEFDmGLnS8RbVyvrTHvhp6m3sRaPMgbwEv7U97zYUsfennjTxE -Guj5NtxlTW72J3D0rlTQKdqDFW4zDkfo+LfHei2k/VrdN801msCPxoPfHtPz -+WXmYRP3WALXF3mNHKXdeSwh+tBZAqVZODdM18dTq7vCcbkEiovN/skwoeDJ -g0dUwk0Cg+ZnPzanXaf5zPZcCYH3tiz8NkzX30OxN5eulBPYtHB/xnLat/oW -Kt9pJnDPwAeR03Q9l2wSf3r/BYEc7ak18n/ru0phf3UXgdYVQR+L6PrPu6Z7 -u+kNgUp+5qcf0+vDpX3OMDhNYELJyIZOPQouvvIc/PCDwAy9BKYt7fOb/WM+ -zxHowxN5sFWXzrdOXNP3BWy0z24Of6hDQfRPyk5Eno2/A71cjtLr075T/AdN -1rHxob7z0hNqFHj+FhEzs2JjbM6yrj5VCtwPMMrWb2Gj2YguW5O26zbNXzYO -bMywtrJpoddPW5mdcV6+bIy5Kq44rkSBSUHh1QsX2HjPYtyzgklBH7Mgc+1l -NnLWGK/8rkDP9wv5V6Yy2ajuIfNmJe27UXnpNvlsXHHv8pcsObre7a+mCley -UVW4cdad3g+W859POvGGjU+Ou65JoPeXhtDkM3rv2egzJfrohijdv4mkxLcj -bBxXSNKqWUrXa1/CabMpNoaYzhseE6GAeSs27o8AB0300lo0F9P15BIWGaTG -wYTkO8u30PvdnfaQCEVtDrZOV7Os+Oh4LA8fbdfjYPMqtpQ5vT8m6wWGrwQO -Xk1g8GnxUCC0+MDhsa0c1BJePjz+k4R55f8edA/mYKewd/aSryRMilq67qjh -oPVKleN9r0no9iGeez/hINVp7hzeT0J1/Q+IeMbByk/NPxivSEgKLVC40clB -9yNuEVt7SdAaXPx6doSD0mZu7dfaSfClWp0yxBRRi5+R0d9Awsjm7bve7lFE -Sftr+qUlJLzIV2/67qWIciK8/iLFJNznEzAWOqCI/M7u5z0LSYi/W8bQD1HE -jBM3Ti7LJ0FFQao3NkERG2d59mzLJsFjrNdetUwRz7/fW7P/PAlvT7vu8BNU -wveTN+Zkg+n2R9QIrcVKeCx3faBdIAnf1s9+/rxECS8Jhegm+ZOwkC85xouh -hJ991p77RZ+3tEJqS13VlfDOJs/Rak8SjuxVEtu8TQndso6//L6TBAnT0VbV -TCXs2vjTUI0+71mMB1u801fG5xGCRMFkCchqy5+Yb6JMny+GT86MlsCYX12N -6mpl/P6sP8x0uATOzywx8bNSRiWf2rna/hLo/52vMeeijEnhKW25TSXgt/il -mHS8Mn7aZtZcn1MCl5Zj/8Y+ZXywtIJ1xrYERt3m+5dGqGC9p158zc1i+n9E -kje2ZjmKvQ3MYHOLQLRZKZEcX4FFU1F/7BsKQDauZIu+vhqab5KctWTchFRV -wyViHuoI5o9aiMM34Cljtd7Xsxpo2OS5bltHHhjJ1iRpdmqilOTm/MlFuSDM -lx2wO1oLWaSR1bI910A+SsFkp5I25rW9Gc3LyoIFio5lNk+0MatRmTE8kgka -XOmSYKeV2N0mo+Q7mg5+/aK1ljw6qLvU+nhNZxqMfz293SJVB88oNF/kYV2E -9Zr1lyzUdXG2q7E5MOc8PPxq/PNbiy5qcKEgnJMMvmore//bq4eafO5OaXNn -gDu2p33nAn0UPEMFW9SegrUcqU1C2fqoG/9Bp1EzDlQiTx6uMTBAw7XhCYoC -MbBir2GVYq8BrswKsuuejoK9Dz2Plx5ahad/nXJZ1HsUqq6275kUN8S8n9ae -1+eFwtSNuW+adw1Rbt6aiVVDgeCmWLDg0iYjLKJ4huTj/WByxTn9WxNGmH85 -JSjsqS/cy/n5ZjrOGL98GmoRqPUCB3M2GsuboLBXe6dF7F6Q2R9brlFtglYL -h2xMr+6GxDl3vVM1JrhrOX/gaPJu4E1eR32oM0H2cJnttZjdMFLGn3+10QSD -eYONVPfthvs8x1NF20xQ8VSowjX93eBwPjJ45p0JinDbbTVbXSG1IkTv4SIu -igZuHkoTcAXxhT7UJjsuSrwrWh4p4wQ5a46ETuzkojcr9NYOXidYeSRxzTlH -LuqtP2uOHx3BeoLs6N7NxWPR9ds33nWEE53Ts24+XJQWdH63ztYRvmdHmIVG -cfFoz/KzFWd3Qa/xuba8Ai4mwsRzG4YDeAbmpFsUc/HPeo0VAXwOMFN8Z+8o -ycV4/T7566M7QZTo/qZdxsVlTf8Ur67aCVbz5WQfVHOxff9C9Q17d0Jle96e -tg4uWkS2Ljhbag+WwvfUg7q5KH6obrT+ij10r2+ckerjYkj4xgqheHuYuv8p -znmAi1u968abnexBPUur6OMIF8sNiTjJ+fZQ2bs66PRnLjqFOqW1fbEDy2Xb -QHOCi60DfHj1lR24xwb+FzDNxX383cS+23YwVX3ikuR3LjbGl1p4XbGD6B8X -3e7/4GJ29c6+4Hg7WKKbr+b0m4vaAyuaLwTYwZX996fn5rgY1XNmWb2LHfwP -U0FU/w== - "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, - "Frame" -> {{False, False}, {False, False}}, + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>]]& )[<| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, - "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { - 4.503599627370496*^15, -4.503599627370496*^15}}], - Selectable->False]}, - Annotation[{{{{}, {}, + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ Annotation[{ Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwd13k4VV0XAHAvoQlFpmu699xrKHOmDNdaSQNKJUUy9SpTUhkzlKGEiqQU -RSKUTOeUlChCIqE3MyXRIMlQKE2+0/fXeX7PGfZea++19z6sfw/Y7OXl4eER -/IeH5+91pr+xjnMqx9RRIPNqkSmatl+RClndHQ0VmTo7zzXLAYq3/ivVnQwp -zr82bW5Wh6AtN7v4urNBga8ykWjmwtIxyeTZrlsg0vVmw5tnm+B1pfWBqa4a -OLHVe4n4MydYxxl5Ndn1AngyD7fyNO6H2S6DlImuQaj0EVnxqPII1K65nvNf -9lfIvXvcw7ouEWRfl7//V+03iK7O0ryQdgGW+bjcFFzDhwnHlG9L7cmAZO11 -Fdbb56PnhY3lK9WyoSdVq3pyiRCuWrH4saJmLpzKiWjllV6Kgal9/V7KN0Dy -/FD8uQwxdDhUObTmwU2ItbUwfTEjjr4p71S5HYXAKG1h8P4jgWf8h3SuvCqE -YjHbb9qLJPDW4hqV2XeF0PnCmTyrIIG+t7Z0pM8UAmdrALF1gwQWfwtQuCxZ -BDWbMgWep0mgv9KLQj/7Ivi9brql2UQS7cjzNbEdReBvmOXSGC2FusYHw1kP -isHyqvCU1WkptD8+EHisthgIwfC4lhQp7BJX//26sRiet++g2m5IYfG8mdtx -ncWgcXAxX3+LFL5wf3kvdbwYhvOC874wpNHZr7PnFrMEHJdZf5a5LY1TDxUv -NR8tAZ2wiqgrldKoXv5PdeTxElg4qCLBqpfGRL1z+zROlkB5CR8o9UjjwWmj -bSEpJSBhVZ6kNSeN5im3XJsLSuB5FEd3rRUD+WLmOfh2lYD5+I9Q3yEG3tdu -yLYQJyFkw/kVj0YZmKziOvBQkoTiLPVesRkGHu80CNNmkCBl62pYPl8G5w2W -NwgrkDB67/E3Pg0Z1H9zrzZfhYRz0UkBaYdl0Hf24OrdxiQMiiv51gnJYkxZ -/8NOZxIkD1TJSUrK4msZmYpvriRsbLBv9mLKInNpnISEGwlloafURHRk8YK4 -6ydLDxJOvp4Y2Wkvi9Wk4pKUAySszK/wGM+Wxdlktd0FESREmWzdzVglh2ue -9ci9ySBhg/OVLwZmcpgqeX97RyYJwpGfjm3fKIelTqJh9VkkpNfG5CW5yqF8 -M/tMZi4J9yzvfxKIl8NXgs+G1IpImLBnB33tkcPrhSahpRUk3A09KLj0rRwe -bS24EfyAhKPpD1I1xuSQX22gwaCKhMUDdhVevPLYHdz0uriGBGWP0zwDK+Rx -G2l28HAjCc6B0yefhcljbt5Wt5BOEhQvmsmOxMhjqONQ26Luv/k7UySYJI+p -v32ML/eQEPpr+XOzHHl8fLJtgnxJQsoxZ/HyZ/J4cb/I3N1BEp6dfZKZK6eA -rWEqv3XHSDAqTis9WqWAMv9pbvzMS4F5V8vvsQYF9K8UmV04jwJrnnnrXV4o -YPB06WIlfgrcbHx74J0Cpg+1eNkKUrAujBURyc/E988G+JMXUXBQYebaalUm -flGIlz0rRsH07aSGWU0mMtp+usUsoyB0g+pnSpeJOdtCpYLFKYg55KpPmDKR -Nbn6qY0kBZdqnzbwbmWirhLp+IlBQZ1H5ufaICaehfz0LBYFFr8MRcPDmLjD -4NYHH4KClqR2fd1IJu6ZzM/TY1PQU74gMieeiaWOOtFVHArGFgWIxqQzEWd8 -K0uVKfC/KmzAzWJi9YObt/epUPBdN3/XdC4Tn/yIIJjLKeBz7s/ZW8JEJZsu -z6gVFEiRGwzW1TBx0udIrqI6BRnmQ7v+1DPRrKrOvYE20XMksqyJidHnA695 -alCgznu7UamDiRm1AmezNCkws5VzFBxmYhGj0HJamwKf75ORDUIstO4VuMHR -p8DokLvEe1EW8o3zn86nPX+kt4BPioVOairHVQ0oyO2r7TQlWLh+LuK20ioK -+h+mqN3RZ+Gq2o2sH4YUFBosrHlhzELxMM1yDyM6v+RRuwlk4c7udO8XtCWy -PaJVrVg4crFHNtOYgs0xht1ZLizMTNz2QpxLgfyfov1Ve1jYnvTHwof2aBDB -98qLhWIPmwaqaMd5LtKQCmChp1eer7MpBTveRNTqhbDQLIfwyKfNcZiy33aU -hRXRV6ImaVdbvTqWGMfCBzdCFUKAgsS6rdKFCSzcE7E55x5tR259cWMyCz9K -CFlP057VKOmZl8HCkhQdMXekoOE6+wCRzcKUFgmtS7QvMFPn4XUWZnl3BTTR -XikapRlGsdB/w+fDiqsp4Dk1XZdaxsLDiTWG1rRb+LwdyirofECgYgDt9PD+ -8bZqFuozn5hcpL1v2iZm8jEL0wpCI+/SNvJ9whBpYqGl8LbJdtrzPxiTas9Z -uFxlWdI47U4Xcq1lBwtdTkU7CZpRkNPN6fPoZeGHMDcHWdp+W9MOxrxm4Z+x -8FgN2vhUSODaWxbeOZnyjktbeE305eqP9HjkBgRa0n5VMaPVP8ZC/rWDBra0 -C3X31f/8ykIhhevqu2iHFr3eJT3LwoSLp+1caG9Qsp3U/8PCjmrHMlfaEpkN -J2z5CJxyGLT8e/+tJFfWbz6BGm3D4n/fv5VEUWeECAxZYyL19/uRC5TWF4kS -+P1Qvs3f9jdHX3r5VJLAI89/P/7bP/mfwn7DsgTOhQn6/+3/qP8xQQGCQBmT -lP/Hd3/0WzpbmcD46KAjf+OP2+uzcrUageneYS//5mdH/8ATZ20Cq+4FHO6g -zbHb7hSuT+Bkj47NPdpfWhu/pBkTqDV00juVdvUG07i7SODSsxtrAmknProl -17GWQOb6jQ5baDsaKd/+Ykmgt4izjgrtWdUl/erbCWSYLCpspcd/JoMRpeNA -oKTgfP2rtKdEFDmGLnS8RbVyvrTHvhp6m3sRaPMgbwEv7U97zYUsfennjTxE -Guj5NtxlTW72J3D0rlTQKdqDFW4zDkfo+LfHei2k/VrdN801msCPxoPfHtPz -+WXmYRP3WALXF3mNHKXdeSwh+tBZAqVZODdM18dTq7vCcbkEiovN/skwoeDJ -g0dUwk0Cg+ZnPzanXaf5zPZcCYH3tiz8NkzX30OxN5eulBPYtHB/xnLat/oW -Kt9pJnDPwAeR03Q9l2wSf3r/BYEc7ak18n/ru0phf3UXgdYVQR+L6PrPu6Z7 -u+kNgUp+5qcf0+vDpX3OMDhNYELJyIZOPQouvvIc/PCDwAy9BKYt7fOb/WM+ -zxHowxN5sFWXzrdOXNP3BWy0z24Of6hDQfRPyk5Eno2/A71cjtLr075T/AdN -1rHxob7z0hNqFHj+FhEzs2JjbM6yrj5VCtwPMMrWb2Gj2YguW5O26zbNXzYO -bMywtrJpoddPW5mdcV6+bIy5Kq44rkSBSUHh1QsX2HjPYtyzgklBH7Mgc+1l -NnLWGK/8rkDP9wv5V6Yy2ajuIfNmJe27UXnpNvlsXHHv8pcsObre7a+mCley -UVW4cdad3g+W859POvGGjU+Ou65JoPeXhtDkM3rv2egzJfrohijdv4mkxLcj -bBxXSNKqWUrXa1/CabMpNoaYzhseE6GAeSs27o8AB0300lo0F9P15BIWGaTG -wYTkO8u30PvdnfaQCEVtDrZOV7Os+Oh4LA8fbdfjYPMqtpQ5vT8m6wWGrwQO -Xk1g8GnxUCC0+MDhsa0c1BJePjz+k4R55f8edA/mYKewd/aSryRMilq67qjh -oPVKleN9r0no9iGeez/hINVp7hzeT0J1/Q+IeMbByk/NPxivSEgKLVC40clB -9yNuEVt7SdAaXPx6doSD0mZu7dfaSfClWp0yxBRRi5+R0d9Awsjm7bve7lFE -Sftr+qUlJLzIV2/67qWIciK8/iLFJNznEzAWOqCI/M7u5z0LSYi/W8bQD1HE -jBM3Ti7LJ0FFQao3NkERG2d59mzLJsFjrNdetUwRz7/fW7P/PAlvT7vu8BNU -wveTN+Zkg+n2R9QIrcVKeCx3faBdIAnf1s9+/rxECS8Jhegm+ZOwkC85xouh -hJ991p77RZ+3tEJqS13VlfDOJs/Rak8SjuxVEtu8TQndso6//L6TBAnT0VbV -TCXs2vjTUI0+71mMB1u801fG5xGCRMFkCchqy5+Yb6JMny+GT86MlsCYX12N -6mpl/P6sP8x0uATOzywx8bNSRiWf2rna/hLo/52vMeeijEnhKW25TSXgt/il -mHS8Mn7aZtZcn1MCl5Zj/8Y+ZXywtIJ1xrYERt3m+5dGqGC9p158zc1i+n9E -kje2ZjmKvQ3MYHOLQLRZKZEcX4FFU1F/7BsKQDauZIu+vhqab5KctWTchFRV -wyViHuoI5o9aiMM34Cljtd7Xsxpo2OS5bltHHhjJ1iRpdmqilOTm/MlFuSDM -lx2wO1oLWaSR1bI910A+SsFkp5I25rW9Gc3LyoIFio5lNk+0MatRmTE8kgka -XOmSYKeV2N0mo+Q7mg5+/aK1ljw6qLvU+nhNZxqMfz293SJVB88oNF/kYV2E -9Zr1lyzUdXG2q7E5MOc8PPxq/PNbiy5qcKEgnJMMvmore//bq4eafO5OaXNn -gDu2p33nAn0UPEMFW9SegrUcqU1C2fqoG/9Bp1EzDlQiTx6uMTBAw7XhCYoC -MbBir2GVYq8BrswKsuuejoK9Dz2Plx5ahad/nXJZ1HsUqq6275kUN8S8n9ae -1+eFwtSNuW+adw1Rbt6aiVVDgeCmWLDg0iYjLKJ4huTj/WByxTn9WxNGmH85 -JSjsqS/cy/n5ZjrOGL98GmoRqPUCB3M2GsuboLBXe6dF7F6Q2R9brlFtglYL -h2xMr+6GxDl3vVM1JrhrOX/gaPJu4E1eR32oM0H2cJnttZjdMFLGn3+10QSD -eYONVPfthvs8x1NF20xQ8VSowjX93eBwPjJ45p0JinDbbTVbXSG1IkTv4SIu -igZuHkoTcAXxhT7UJjsuSrwrWh4p4wQ5a46ETuzkojcr9NYOXidYeSRxzTlH -LuqtP2uOHx3BeoLs6N7NxWPR9ds33nWEE53Ts24+XJQWdH63ztYRvmdHmIVG -cfFoz/KzFWd3Qa/xuba8Ai4mwsRzG4YDeAbmpFsUc/HPeo0VAXwOMFN8Z+8o -ycV4/T7566M7QZTo/qZdxsVlTf8Ur67aCVbz5WQfVHOxff9C9Q17d0Jle96e -tg4uWkS2Ljhbag+WwvfUg7q5KH6obrT+ij10r2+ckerjYkj4xgqheHuYuv8p -znmAi1u968abnexBPUur6OMIF8sNiTjJ+fZQ2bs66PRnLjqFOqW1fbEDy2Xb -QHOCi60DfHj1lR24xwb+FzDNxX383cS+23YwVX3ikuR3LjbGl1p4XbGD6B8X -3e7/4GJ29c6+4Hg7WKKbr+b0m4vaAyuaLwTYwZX996fn5rgY1XNmWb2LHfwP -U0FU/w== - "]]}, "Charting`Private`Tag#1"]}}, {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, - "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, - "Primitives" -> {}, "GCFlag" -> False|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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->{ + "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.051395}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9942509929433603`*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"b358725e-4b10-4068-94f0-a95cab98b702"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[106]:=",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k8VP0XB3APLeqhhCRZZ7ljkCSRmM4pIipri1YikURKpBFDCyJJRakk +2Wbur1D2pEIlRSkxVAqtlCVbkvy+z1/zer9m7jLfe87ne66Wu7+Tp6SEhMQ/ +/0hI/Pc53PakmhWbsWz8Vm5q6x+jZY2pyiHLxZHg96b8/mlUAJz93F1ZnAin +nwnDdyITghxEzVLidFj/1cPTFhfBrJ45iaPNt+CF194AXbSA9+V2/oPNlWA9 +SXlbIziDFavrXX/zS9i6uT/o5DIPGG02Od/X3AFqPkOffU0PQJVFdkZD+gDc +zHU3utN3FFTfl3521xuHoJGHX9fuPgWKvq6iqRZS+Ew/afu+pWchcaHVHbv1 +0vjonvo7h6FkaLlgcL9fThYHC5dmlulehtiM8OeSc2eh2WT9i4t5aTDnXGfM +2SsKWMFpL7xtlA5R62yWvRyejT5uVR7cT9fhgOk11yeRyvj505t5bvGZYNn7 ++7Bfpwqm7vhnd3dvFkSYO+5QWaKG4T766izNHFi1PfWnyQo1zDvKmtXDyoEZ +gu6j69eo4SuVLeICbg5crjqeleCmhtkWRzqWLMqBEtuy7ikxaugasLNNxSoH ++lyYQQMtavi48iDPak8ObD84dPIZXx3rdjhJmt7OgaU3LxaE3dPA5WePLDxm +KgTL5vrxnhoNVBxUdObxhGAnMcna9aUG/q0dzh5AIXg4+bXAJw38835N98ZV +QrDia4ULJmviR0vLpr8bhLBPY/j6cl1NfH5mzoJHB4RQ7XX1R1WQJrqGpJ9b +SgvB5o+pfChfE2XwlVTKTSHUJzQaGwk0sfvBu4zhfCG0lE4TZMRoouWVA6HZ +JULo+TdQ/vhlTQwH74gvD4WgnLfKxKpSE7N/WnZ8eC8E31/9ghpZLdzX7Klc +OksESwN2KX2W10JZ9fxLE4oikO5qpaWUtXB0VfOrFcoiyHxT1bSMoYWVxUPu +99RF0FZxXq/QWAvv1vj8TdAVgf1xU/E1Vy2cEHaZJVmKwFA+YgE/Xwu7eYxI +bqAIJGKHqi8UaaH4oX7dlGAR1Ev5bC66o4XvJu9+8SFEBHuGnI73P9TCFefH +J06GiyBDzHrj1aqFP5S+Ty05KQKlqzUn1kkx0Oqc/vvANBGM6sq1zV/PwPDH +E72Hn4hg+IpKxKLNDHzJfKv+8akIBmeyWaauDPSaJa9jWy+CngFTH8vdDBx5 +4dUk80oEHXc8hjcfYaCs09c437ciqF1dPCM6k4FRj5IzzveIIGXPdugYYuDd +ULMlCXI0JL/z7vjym4Hf/Y55n5en4Zz9geM/Jhj4TUb/SLIiDfGLop/+msbE +jm+16xKVaYgcy984U52JKtvcHrpr0rAndvI+cysm5m8T9PotoMGc/l9aUhIT +TbKdrhmvpuGNJn115SUm6qVIvi9fQ8PhJGHq4FUmFjMzA9COhuKIrMtOQibG +ne1OAkcaDF3SLswoZ6K0cck3tY00cCefSzjRzsQH/NCBze401BxOPL34MxPj +h2dmFHnQsKsvIf5jFxM3KfnenOlJQ8abU3ErBplYPrOyodSLBs1bUdF/p7Bw +5pymLT2+NCi58gVBeix81hDySBxEQ2FjSDh7IQufNG5fOv0QDetsD4U1Lmbh +nFW2sqYhNCQuPhhqCCz0/nqmIZ5Pg6yM/6EeRxZumh79TkVAw6RS9327glmo +XRfiWBhNw3X9Hf6zQ1kYkhX9vjyGhhUZrn7VAhbu0Fj+8sFJGsJPb/VlnGTh ++W3sL1VxNPz23ODddpmFXmmyLTkJNPTL27ptqGRhgpTRwuFkGsS+jBc+j1n4 +1uHzh88XaLj/6DeEP2OhR0/uicaLNCQcpjVymsj/wRNFWZdoMOiQeT/axUKx +z6pC6ioNyuaf7Gb0sTC2tIw5QSyRdLeCMcRCWa01cY1pNDy38UtdPcHC3O8t +a4PSafDLf77tigIbl0uqXzufScOGf3Pq8pXZWC8t2bs+i4ZlngLeIzU2Rr+e +b6aQTdZj7kK1Xg4bNz04/OJYDg3/EyS+RXM2vtEUj1vQNHTZr9/ycScbx7RK +3hrm0fBSOP/pr91sfJCVZV9FXCY1xUzWn43e0qefOOTTEFNcpGIcQq6HsY3u +t2jQ1lBujTrFxj3j4xs8CmiQC+mzuZzIRin/Y7PeEv96WVOal8xGAfdUs2Mh +qY8TIRdbrrGR+2V/tFERDV49rS66RWy8GVxzqqmYBrtVt2vgDhvj7yUVmJTQ +YJweu2TdfTbmZMV3nyeessFc+UgtGxVnusTZlNLQk6sYfeY5uR+1TSOpxE3T +foxkNrJR/nNHYD9x1t0rzfVtbPTvGRSeKiP9MifIurOTjfmCPPdm4qAAu+KR +r2xct2+LgfodGlayJ5I0B8jxC7tlrhPrhTdPWfyLjWK5qWrtxIotuUE242ys +8xFYqpbT8DHObcP+qRQaVf99E0Ps16XHMJChcMuh8amlxCPWoz9+yFEYFOp6 +4xOxIPNhKT2bwsjczGcz79IwXSrx+G4VCn1tHHeZEJ9z2+7I0aBwsLXz8FZi +tQodtU9MCkPWvp8eTpw1b+RrujaFdR0Pla4SG4RUFbjNp3DESOVqOXFZ02mB +uiGFc4xdM5qJLYy2rnlrTKG2gTKnj/jZGW3lFDMKX1XXcKZUkPrpHezciBRa +/xjMmkv8Yc2D3NkrKRwf1czUIfYRneK/sqEwLrGBYUo8OHWz9Rk7cv+FsZor +iY94Ugr2zhSySxpT7YinVP1sk3Gh0NnKMHU9cYLmPVHtVgrBXUdjM7FKWGxQ +9A4KnXZaMLZW/JcHG1dY7aKw77dUzhZifVPWjEl7KFyrM5DnQlyc1NfywJ9C +0zUXeM7EOFieGR5Ifj+Tb7eauNYxJoAXQmFvCPMjEq/LXc8bO0Lhnc65E4uI +38kwppVGUlgy9vkqi3iXT09jUBQ5vlrhsTxx3+OyNKM4Cr8lcQ/+JetzmB3l ++zOBPC+1W6IvxFJHnZfknaeQ72LiXU8c90Fjkl8KhbWXLG7eIlZa9v257lUK +v8bvOHKOOO1SyaVv1yl8p6fadICYO3rMKzuHQoXqvyUOxOYFahOMWxQyi300 +pIgfzeqq/VBEYb6dTIaY1IeDf1FS6h0K922YUkgTe+jY66s8pNCq1CTMlvh7 +1LzfzU8olOyMMVEiDvr05eH5egqfz/UJf0/q82SaYNssMYVt9bJ3fYjzlG7F +SXdTqPjn6IQHqfelgWEuj3opXDLyyVyVuKrBlnVskMJTIQ6yL//rn7jOOxPj +FFbYRO42Jv4jObt7WI6D9F/U6CD9ecKtvahgNgdVvj6bFEU8s+JG5H4VDra9 +7o3gEjNCrFR6mBy0FVuv9CL9bdMbbPPJmIM3V+yVeETyQHWh+glpc/I9A1zt +iHv2V1fqLufgcaeG3le3Sf0Py5nvX81BRp6BsInkS9u4UH/ClYPa92rOlJE8 +ygOHPQxPDianRJ3VIz4aMZy90oeDwTGT6y7lkjyabKEVF8jBgPsruwJu0rBf +5q3C3BgO3hnW6PxD8s7SLtLBPJ6D0aOqJS7EcxK0T7me5SCnvL82X0RDucLB +KVlXOOjtZXxji5DU87wZo4a3yPVFdSHxJF9TuNi25g0HJ4qPt+8j+ey757PK +vg8c3E0z+tNIfsONuI1nP3GwT15xdX0qyQeDlhctvRwcqtds17xC6nvJ/qpd +k7TR9Zv+/zLJ/lBllZEjmK+N/bHlAfqJ5Pl6SB8oCNdGgbXQZ0UEWZ9Uy7v3 +jmljecyufAbZz3pbBFOfxmjjZO61QIlwGn7aj15qP6uNBfllBwpCSd6YdVXP +yNFGbHzo8zeYBknFZ0q7X2hj/b7gXhU/GuZWny5T0+KiYIfkON+F9OPE00lc +iouh8SnusmQ/V10qbW+ky8Vh/8ztl9fToJ4n6LRdzMXvfE+12040sC4HyByy +4eLrg++eVZF5wSDQefvLAC5mmEzL3Y80mefnSEZVcjG4wmy3DEXDN3frHLPH +XGzGuDF/Fumfa8F2fU+5aFrdFdvAoOGVujhl02sujlNXhfEaNLjNvbhI7yuX +zAunvveReSZkxjzPBlkdvF3urL/hX7J//VKvmbdJB5/bRVzMIfOSfB0Vn9er +g3OP6W0+nyuCv70GmbWDOvil3e6Lww0RdMmblX8c1UE1v1S76bQIKl3su5Qn +6eLb5NjcoCwRHPgYbBWhrItHTZReL74igsaxmr+Oy3UxUn/lUTsy/yXr7PEf +SNRFibGfc/rcRaAanetgbKyHez9xpXVmiOCCrqmcgtd8fPs+8cCTLUKoVVm+ +eOCMPlq7X7msnUTmddXKhAVNC3DW2N20dmE2zJBKD9wRaYAxe/zlFpdngXqE +hvkmaiHeSv8zmkxnwjT21iKnxwuxqj+k2eNcBujz5uYGbzPEveznu8ujr8P+ +NvkqW4lF2F4QO71qRzr0DsStt7mwCF9o+u4tWHMNrBc8SrGZb4Shnw0dW8n7 +TcWA2dhIvREeTnr+2Mk4Ffz0DFsbPBej55+0hg9al4HXs7Nx0zRj1NI6t5nf +exFWspTXyqYbY6FNq7PTQDJoC04eqjQxwY6pUHlIIQl0PE3vsVtNMNv7tluh +1jnwrPA+VhCwBGWlV3QqeifCvbTGnf2zTTFkBPpfXk+AwZyJkQXFphgd8PP2 +pSnx4MGmp6WsXYoDkarifQtioV/nrPGtvqXIDxtVTXCMhpKMsfahaDMUu+1x +W9p8HDZbMtFM3Rzd7SeOzr1wFObtjSrVv2+OaS71XyS2RMDs6b75azfysMyi +NuDixzDIsDhyuG8TD1v4BXsdG8PA8Ei8xdmtPBT1jE2Tqw4Du7681+IdPMxV +UFK/dj0MTjQNjXr48lDVKOyUvEcY/EoPX3E4gofZwdvsF3YegVazs6+yaB7K +3RbvX/c1FLwPZly2uclDjvLye+/EoTB8s9Dzex4PbQKiwvY+CQV5hnhkYREP +64xb7NNEobBaWk317n0errudrui8NxTKG7N2vnrNw2DL/HfdA3ywnVEyP0jM +w5+tY9lvPvJBbP1kWPkNDxNLk+oaXvNhsKw7evsHHqY8qGE1FPNh/jWDG9+6 +ePil2rllXigfyluXB8X94KFDxaZ1y/aS8yk6w4I+Hq6tKFP32s6HXVEHGwKH +eCgdePLSUyTnu38iZc4vcn+bh22nGvIh8neyR9lvHvLpYgsbJh/kjIR628bJ ++rSvPnZGkQ+pe8uGJiZ4qCNt8O+HyXz4P4W3fmk= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VP0XB3APLeqhhCRZZ7ljkCSRmM4pIipri1YikURKpBFDCyJJRakk +2Wbur1D2pEIlRSkxVAqtlCVbkvy+z1/zer9m7jLfe87ne66Wu7+Tp6SEhMQ/ +/0hI/Pc53PakmhWbsWz8Vm5q6x+jZY2pyiHLxZHg96b8/mlUAJz93F1ZnAin +nwnDdyITghxEzVLidFj/1cPTFhfBrJ45iaPNt+CF194AXbSA9+V2/oPNlWA9 +SXlbIziDFavrXX/zS9i6uT/o5DIPGG02Od/X3AFqPkOffU0PQJVFdkZD+gDc +zHU3utN3FFTfl3521xuHoJGHX9fuPgWKvq6iqRZS+Ew/afu+pWchcaHVHbv1 +0vjonvo7h6FkaLlgcL9fThYHC5dmlulehtiM8OeSc2eh2WT9i4t5aTDnXGfM +2SsKWMFpL7xtlA5R62yWvRyejT5uVR7cT9fhgOk11yeRyvj505t5bvGZYNn7 ++7Bfpwqm7vhnd3dvFkSYO+5QWaKG4T766izNHFi1PfWnyQo1zDvKmtXDyoEZ +gu6j69eo4SuVLeICbg5crjqeleCmhtkWRzqWLMqBEtuy7ikxaugasLNNxSoH ++lyYQQMtavi48iDPak8ObD84dPIZXx3rdjhJmt7OgaU3LxaE3dPA5WePLDxm +KgTL5vrxnhoNVBxUdObxhGAnMcna9aUG/q0dzh5AIXg4+bXAJw38835N98ZV +QrDia4ULJmviR0vLpr8bhLBPY/j6cl1NfH5mzoJHB4RQ7XX1R1WQJrqGpJ9b +SgvB5o+pfChfE2XwlVTKTSHUJzQaGwk0sfvBu4zhfCG0lE4TZMRoouWVA6HZ +JULo+TdQ/vhlTQwH74gvD4WgnLfKxKpSE7N/WnZ8eC8E31/9ghpZLdzX7Klc +OksESwN2KX2W10JZ9fxLE4oikO5qpaWUtXB0VfOrFcoiyHxT1bSMoYWVxUPu +99RF0FZxXq/QWAvv1vj8TdAVgf1xU/E1Vy2cEHaZJVmKwFA+YgE/Xwu7eYxI +bqAIJGKHqi8UaaH4oX7dlGAR1Ev5bC66o4XvJu9+8SFEBHuGnI73P9TCFefH +J06GiyBDzHrj1aqFP5S+Ty05KQKlqzUn1kkx0Oqc/vvANBGM6sq1zV/PwPDH +E72Hn4hg+IpKxKLNDHzJfKv+8akIBmeyWaauDPSaJa9jWy+CngFTH8vdDBx5 +4dUk80oEHXc8hjcfYaCs09c437ciqF1dPCM6k4FRj5IzzveIIGXPdugYYuDd +ULMlCXI0JL/z7vjym4Hf/Y55n5en4Zz9geM/Jhj4TUb/SLIiDfGLop/+msbE +jm+16xKVaYgcy984U52JKtvcHrpr0rAndvI+cysm5m8T9PotoMGc/l9aUhIT +TbKdrhmvpuGNJn115SUm6qVIvi9fQ8PhJGHq4FUmFjMzA9COhuKIrMtOQibG +ne1OAkcaDF3SLswoZ6K0cck3tY00cCefSzjRzsQH/NCBze401BxOPL34MxPj +h2dmFHnQsKsvIf5jFxM3KfnenOlJQ8abU3ErBplYPrOyodSLBs1bUdF/p7Bw +5pymLT2+NCi58gVBeix81hDySBxEQ2FjSDh7IQufNG5fOv0QDetsD4U1Lmbh +nFW2sqYhNCQuPhhqCCz0/nqmIZ5Pg6yM/6EeRxZumh79TkVAw6RS9327glmo +XRfiWBhNw3X9Hf6zQ1kYkhX9vjyGhhUZrn7VAhbu0Fj+8sFJGsJPb/VlnGTh ++W3sL1VxNPz23ODddpmFXmmyLTkJNPTL27ptqGRhgpTRwuFkGsS+jBc+j1n4 +1uHzh88XaLj/6DeEP2OhR0/uicaLNCQcpjVymsj/wRNFWZdoMOiQeT/axUKx +z6pC6ioNyuaf7Gb0sTC2tIw5QSyRdLeCMcRCWa01cY1pNDy38UtdPcHC3O8t +a4PSafDLf77tigIbl0uqXzufScOGf3Pq8pXZWC8t2bs+i4ZlngLeIzU2Rr+e +b6aQTdZj7kK1Xg4bNz04/OJYDg3/EyS+RXM2vtEUj1vQNHTZr9/ycScbx7RK +3hrm0fBSOP/pr91sfJCVZV9FXCY1xUzWn43e0qefOOTTEFNcpGIcQq6HsY3u +t2jQ1lBujTrFxj3j4xs8CmiQC+mzuZzIRin/Y7PeEv96WVOal8xGAfdUs2Mh +qY8TIRdbrrGR+2V/tFERDV49rS66RWy8GVxzqqmYBrtVt2vgDhvj7yUVmJTQ +YJweu2TdfTbmZMV3nyeessFc+UgtGxVnusTZlNLQk6sYfeY5uR+1TSOpxE3T +foxkNrJR/nNHYD9x1t0rzfVtbPTvGRSeKiP9MifIurOTjfmCPPdm4qAAu+KR +r2xct2+LgfodGlayJ5I0B8jxC7tlrhPrhTdPWfyLjWK5qWrtxIotuUE242ys +8xFYqpbT8DHObcP+qRQaVf99E0Ps16XHMJChcMuh8amlxCPWoz9+yFEYFOp6 +4xOxIPNhKT2bwsjczGcz79IwXSrx+G4VCn1tHHeZEJ9z2+7I0aBwsLXz8FZi +tQodtU9MCkPWvp8eTpw1b+RrujaFdR0Pla4SG4RUFbjNp3DESOVqOXFZ02mB +uiGFc4xdM5qJLYy2rnlrTKG2gTKnj/jZGW3lFDMKX1XXcKZUkPrpHezciBRa +/xjMmkv8Yc2D3NkrKRwf1czUIfYRneK/sqEwLrGBYUo8OHWz9Rk7cv+FsZor +iY94Ugr2zhSySxpT7YinVP1sk3Gh0NnKMHU9cYLmPVHtVgrBXUdjM7FKWGxQ +9A4KnXZaMLZW/JcHG1dY7aKw77dUzhZifVPWjEl7KFyrM5DnQlyc1NfywJ9C +0zUXeM7EOFieGR5Ifj+Tb7eauNYxJoAXQmFvCPMjEq/LXc8bO0Lhnc65E4uI +38kwppVGUlgy9vkqi3iXT09jUBQ5vlrhsTxx3+OyNKM4Cr8lcQ/+JetzmB3l ++zOBPC+1W6IvxFJHnZfknaeQ72LiXU8c90Fjkl8KhbWXLG7eIlZa9v257lUK +v8bvOHKOOO1SyaVv1yl8p6fadICYO3rMKzuHQoXqvyUOxOYFahOMWxQyi300 +pIgfzeqq/VBEYb6dTIaY1IeDf1FS6h0K922YUkgTe+jY66s8pNCq1CTMlvh7 +1LzfzU8olOyMMVEiDvr05eH5egqfz/UJf0/q82SaYNssMYVt9bJ3fYjzlG7F +SXdTqPjn6IQHqfelgWEuj3opXDLyyVyVuKrBlnVskMJTIQ6yL//rn7jOOxPj +FFbYRO42Jv4jObt7WI6D9F/U6CD9ecKtvahgNgdVvj6bFEU8s+JG5H4VDra9 +7o3gEjNCrFR6mBy0FVuv9CL9bdMbbPPJmIM3V+yVeETyQHWh+glpc/I9A1zt +iHv2V1fqLufgcaeG3le3Sf0Py5nvX81BRp6BsInkS9u4UH/ClYPa92rOlJE8 +ygOHPQxPDianRJ3VIz4aMZy90oeDwTGT6y7lkjyabKEVF8jBgPsruwJu0rBf +5q3C3BgO3hnW6PxD8s7SLtLBPJ6D0aOqJS7EcxK0T7me5SCnvL82X0RDucLB +KVlXOOjtZXxji5DU87wZo4a3yPVFdSHxJF9TuNi25g0HJ4qPt+8j+ey757PK +vg8c3E0z+tNIfsONuI1nP3GwT15xdX0qyQeDlhctvRwcqtds17xC6nvJ/qpd +k7TR9Zv+/zLJ/lBllZEjmK+N/bHlAfqJ5Pl6SB8oCNdGgbXQZ0UEWZ9Uy7v3 +jmljecyufAbZz3pbBFOfxmjjZO61QIlwGn7aj15qP6uNBfllBwpCSd6YdVXP +yNFGbHzo8zeYBknFZ0q7X2hj/b7gXhU/GuZWny5T0+KiYIfkON+F9OPE00lc +iouh8SnusmQ/V10qbW+ky8Vh/8ztl9fToJ4n6LRdzMXvfE+12040sC4HyByy +4eLrg++eVZF5wSDQefvLAC5mmEzL3Y80mefnSEZVcjG4wmy3DEXDN3frHLPH +XGzGuDF/Fumfa8F2fU+5aFrdFdvAoOGVujhl02sujlNXhfEaNLjNvbhI7yuX +zAunvveReSZkxjzPBlkdvF3urL/hX7J//VKvmbdJB5/bRVzMIfOSfB0Vn9er +g3OP6W0+nyuCv70GmbWDOvil3e6Lww0RdMmblX8c1UE1v1S76bQIKl3su5Qn +6eLb5NjcoCwRHPgYbBWhrItHTZReL74igsaxmr+Oy3UxUn/lUTsy/yXr7PEf +SNRFibGfc/rcRaAanetgbKyHez9xpXVmiOCCrqmcgtd8fPs+8cCTLUKoVVm+ +eOCMPlq7X7msnUTmddXKhAVNC3DW2N20dmE2zJBKD9wRaYAxe/zlFpdngXqE +hvkmaiHeSv8zmkxnwjT21iKnxwuxqj+k2eNcBujz5uYGbzPEveznu8ujr8P+ +NvkqW4lF2F4QO71qRzr0DsStt7mwCF9o+u4tWHMNrBc8SrGZb4Shnw0dW8n7 +TcWA2dhIvREeTnr+2Mk4Ffz0DFsbPBej55+0hg9al4HXs7Nx0zRj1NI6t5nf +exFWspTXyqYbY6FNq7PTQDJoC04eqjQxwY6pUHlIIQl0PE3vsVtNMNv7tluh +1jnwrPA+VhCwBGWlV3QqeifCvbTGnf2zTTFkBPpfXk+AwZyJkQXFphgd8PP2 +pSnx4MGmp6WsXYoDkarifQtioV/nrPGtvqXIDxtVTXCMhpKMsfahaDMUu+1x +W9p8HDZbMtFM3Rzd7SeOzr1wFObtjSrVv2+OaS71XyS2RMDs6b75azfysMyi +NuDixzDIsDhyuG8TD1v4BXsdG8PA8Ei8xdmtPBT1jE2Tqw4Du7681+IdPMxV +UFK/dj0MTjQNjXr48lDVKOyUvEcY/EoPX3E4gofZwdvsF3YegVazs6+yaB7K +3RbvX/c1FLwPZly2uclDjvLye+/EoTB8s9Dzex4PbQKiwvY+CQV5hnhkYREP +64xb7NNEobBaWk317n0errudrui8NxTKG7N2vnrNw2DL/HfdA3ywnVEyP0jM +w5+tY9lvPvJBbP1kWPkNDxNLk+oaXvNhsKw7evsHHqY8qGE1FPNh/jWDG9+6 +ePil2rllXigfyluXB8X94KFDxaZ1y/aS8yk6w4I+Hq6tKFP32s6HXVEHGwKH +eCgdePLSUyTnu38iZc4vcn+bh22nGvIh8neyR9lvHvLpYgsbJh/kjIR628bJ ++rSvPnZGkQ+pe8uGJiZ4qCNt8O+HyXz4P4W3fmk= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05418670576336439}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05418670576336439}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VP0XB3APLeqhhCRZZ7ljkCSRmM4pIipri1YikURKpBFDCyJJRakk +2Wbur1D2pEIlRSkxVAqtlCVbkvy+z1/zer9m7jLfe87ne66Wu7+Tp6SEhMQ/ +/0hI/Pc53PakmhWbsWz8Vm5q6x+jZY2pyiHLxZHg96b8/mlUAJz93F1ZnAin +nwnDdyITghxEzVLidFj/1cPTFhfBrJ45iaPNt+CF194AXbSA9+V2/oPNlWA9 +SXlbIziDFavrXX/zS9i6uT/o5DIPGG02Od/X3AFqPkOffU0PQJVFdkZD+gDc +zHU3utN3FFTfl3521xuHoJGHX9fuPgWKvq6iqRZS+Ew/afu+pWchcaHVHbv1 +0vjonvo7h6FkaLlgcL9fThYHC5dmlulehtiM8OeSc2eh2WT9i4t5aTDnXGfM +2SsKWMFpL7xtlA5R62yWvRyejT5uVR7cT9fhgOk11yeRyvj505t5bvGZYNn7 ++7Bfpwqm7vhnd3dvFkSYO+5QWaKG4T766izNHFi1PfWnyQo1zDvKmtXDyoEZ +gu6j69eo4SuVLeICbg5crjqeleCmhtkWRzqWLMqBEtuy7ikxaugasLNNxSoH ++lyYQQMtavi48iDPak8ObD84dPIZXx3rdjhJmt7OgaU3LxaE3dPA5WePLDxm +KgTL5vrxnhoNVBxUdObxhGAnMcna9aUG/q0dzh5AIXg4+bXAJw38835N98ZV +QrDia4ULJmviR0vLpr8bhLBPY/j6cl1NfH5mzoJHB4RQ7XX1R1WQJrqGpJ9b +SgvB5o+pfChfE2XwlVTKTSHUJzQaGwk0sfvBu4zhfCG0lE4TZMRoouWVA6HZ +JULo+TdQ/vhlTQwH74gvD4WgnLfKxKpSE7N/WnZ8eC8E31/9ghpZLdzX7Klc +OksESwN2KX2W10JZ9fxLE4oikO5qpaWUtXB0VfOrFcoiyHxT1bSMoYWVxUPu +99RF0FZxXq/QWAvv1vj8TdAVgf1xU/E1Vy2cEHaZJVmKwFA+YgE/Xwu7eYxI +bqAIJGKHqi8UaaH4oX7dlGAR1Ev5bC66o4XvJu9+8SFEBHuGnI73P9TCFefH +J06GiyBDzHrj1aqFP5S+Ty05KQKlqzUn1kkx0Oqc/vvANBGM6sq1zV/PwPDH +E72Hn4hg+IpKxKLNDHzJfKv+8akIBmeyWaauDPSaJa9jWy+CngFTH8vdDBx5 +4dUk80oEHXc8hjcfYaCs09c437ciqF1dPCM6k4FRj5IzzveIIGXPdugYYuDd +ULMlCXI0JL/z7vjym4Hf/Y55n5en4Zz9geM/Jhj4TUb/SLIiDfGLop/+msbE +jm+16xKVaYgcy984U52JKtvcHrpr0rAndvI+cysm5m8T9PotoMGc/l9aUhIT +TbKdrhmvpuGNJn115SUm6qVIvi9fQ8PhJGHq4FUmFjMzA9COhuKIrMtOQibG +ne1OAkcaDF3SLswoZ6K0cck3tY00cCefSzjRzsQH/NCBze401BxOPL34MxPj +h2dmFHnQsKsvIf5jFxM3KfnenOlJQ8abU3ErBplYPrOyodSLBs1bUdF/p7Bw +5pymLT2+NCi58gVBeix81hDySBxEQ2FjSDh7IQufNG5fOv0QDetsD4U1Lmbh +nFW2sqYhNCQuPhhqCCz0/nqmIZ5Pg6yM/6EeRxZumh79TkVAw6RS9327glmo +XRfiWBhNw3X9Hf6zQ1kYkhX9vjyGhhUZrn7VAhbu0Fj+8sFJGsJPb/VlnGTh ++W3sL1VxNPz23ODddpmFXmmyLTkJNPTL27ptqGRhgpTRwuFkGsS+jBc+j1n4 +1uHzh88XaLj/6DeEP2OhR0/uicaLNCQcpjVymsj/wRNFWZdoMOiQeT/axUKx +z6pC6ioNyuaf7Gb0sTC2tIw5QSyRdLeCMcRCWa01cY1pNDy38UtdPcHC3O8t +a4PSafDLf77tigIbl0uqXzufScOGf3Pq8pXZWC8t2bs+i4ZlngLeIzU2Rr+e +b6aQTdZj7kK1Xg4bNz04/OJYDg3/EyS+RXM2vtEUj1vQNHTZr9/ycScbx7RK +3hrm0fBSOP/pr91sfJCVZV9FXCY1xUzWn43e0qefOOTTEFNcpGIcQq6HsY3u +t2jQ1lBujTrFxj3j4xs8CmiQC+mzuZzIRin/Y7PeEv96WVOal8xGAfdUs2Mh +qY8TIRdbrrGR+2V/tFERDV49rS66RWy8GVxzqqmYBrtVt2vgDhvj7yUVmJTQ +YJweu2TdfTbmZMV3nyeessFc+UgtGxVnusTZlNLQk6sYfeY5uR+1TSOpxE3T +foxkNrJR/nNHYD9x1t0rzfVtbPTvGRSeKiP9MifIurOTjfmCPPdm4qAAu+KR +r2xct2+LgfodGlayJ5I0B8jxC7tlrhPrhTdPWfyLjWK5qWrtxIotuUE242ys +8xFYqpbT8DHObcP+qRQaVf99E0Ps16XHMJChcMuh8amlxCPWoz9+yFEYFOp6 +4xOxIPNhKT2bwsjczGcz79IwXSrx+G4VCn1tHHeZEJ9z2+7I0aBwsLXz8FZi +tQodtU9MCkPWvp8eTpw1b+RrujaFdR0Pla4SG4RUFbjNp3DESOVqOXFZ02mB +uiGFc4xdM5qJLYy2rnlrTKG2gTKnj/jZGW3lFDMKX1XXcKZUkPrpHezciBRa +/xjMmkv8Yc2D3NkrKRwf1czUIfYRneK/sqEwLrGBYUo8OHWz9Rk7cv+FsZor +iY94Ugr2zhSySxpT7YinVP1sk3Gh0NnKMHU9cYLmPVHtVgrBXUdjM7FKWGxQ +9A4KnXZaMLZW/JcHG1dY7aKw77dUzhZifVPWjEl7KFyrM5DnQlyc1NfywJ9C +0zUXeM7EOFieGR5Ifj+Tb7eauNYxJoAXQmFvCPMjEq/LXc8bO0Lhnc65E4uI +38kwppVGUlgy9vkqi3iXT09jUBQ5vlrhsTxx3+OyNKM4Cr8lcQ/+JetzmB3l ++zOBPC+1W6IvxFJHnZfknaeQ72LiXU8c90Fjkl8KhbWXLG7eIlZa9v257lUK +v8bvOHKOOO1SyaVv1yl8p6fadICYO3rMKzuHQoXqvyUOxOYFahOMWxQyi300 +pIgfzeqq/VBEYb6dTIaY1IeDf1FS6h0K922YUkgTe+jY66s8pNCq1CTMlvh7 +1LzfzU8olOyMMVEiDvr05eH5egqfz/UJf0/q82SaYNssMYVt9bJ3fYjzlG7F +SXdTqPjn6IQHqfelgWEuj3opXDLyyVyVuKrBlnVskMJTIQ6yL//rn7jOOxPj +FFbYRO42Jv4jObt7WI6D9F/U6CD9ecKtvahgNgdVvj6bFEU8s+JG5H4VDra9 +7o3gEjNCrFR6mBy0FVuv9CL9bdMbbPPJmIM3V+yVeETyQHWh+glpc/I9A1zt +iHv2V1fqLufgcaeG3le3Sf0Py5nvX81BRp6BsInkS9u4UH/ClYPa92rOlJE8 +ygOHPQxPDianRJ3VIz4aMZy90oeDwTGT6y7lkjyabKEVF8jBgPsruwJu0rBf +5q3C3BgO3hnW6PxD8s7SLtLBPJ6D0aOqJS7EcxK0T7me5SCnvL82X0RDucLB +KVlXOOjtZXxji5DU87wZo4a3yPVFdSHxJF9TuNi25g0HJ4qPt+8j+ey757PK +vg8c3E0z+tNIfsONuI1nP3GwT15xdX0qyQeDlhctvRwcqtds17xC6nvJ/qpd +k7TR9Zv+/zLJ/lBllZEjmK+N/bHlAfqJ5Pl6SB8oCNdGgbXQZ0UEWZ9Uy7v3 +jmljecyufAbZz3pbBFOfxmjjZO61QIlwGn7aj15qP6uNBfllBwpCSd6YdVXP +yNFGbHzo8zeYBknFZ0q7X2hj/b7gXhU/GuZWny5T0+KiYIfkON+F9OPE00lc +iouh8SnusmQ/V10qbW+ky8Vh/8ztl9fToJ4n6LRdzMXvfE+12040sC4HyByy +4eLrg++eVZF5wSDQefvLAC5mmEzL3Y80mefnSEZVcjG4wmy3DEXDN3frHLPH +XGzGuDF/Fumfa8F2fU+5aFrdFdvAoOGVujhl02sujlNXhfEaNLjNvbhI7yuX +zAunvveReSZkxjzPBlkdvF3urL/hX7J//VKvmbdJB5/bRVzMIfOSfB0Vn9er +g3OP6W0+nyuCv70GmbWDOvil3e6Lww0RdMmblX8c1UE1v1S76bQIKl3su5Qn +6eLb5NjcoCwRHPgYbBWhrItHTZReL74igsaxmr+Oy3UxUn/lUTsy/yXr7PEf +SNRFibGfc/rcRaAanetgbKyHez9xpXVmiOCCrqmcgtd8fPs+8cCTLUKoVVm+ +eOCMPlq7X7msnUTmddXKhAVNC3DW2N20dmE2zJBKD9wRaYAxe/zlFpdngXqE +hvkmaiHeSv8zmkxnwjT21iKnxwuxqj+k2eNcBujz5uYGbzPEveznu8ujr8P+ +NvkqW4lF2F4QO71qRzr0DsStt7mwCF9o+u4tWHMNrBc8SrGZb4Shnw0dW8n7 +TcWA2dhIvREeTnr+2Mk4Ffz0DFsbPBej55+0hg9al4HXs7Nx0zRj1NI6t5nf +exFWspTXyqYbY6FNq7PTQDJoC04eqjQxwY6pUHlIIQl0PE3vsVtNMNv7tluh +1jnwrPA+VhCwBGWlV3QqeifCvbTGnf2zTTFkBPpfXk+AwZyJkQXFphgd8PP2 +pSnx4MGmp6WsXYoDkarifQtioV/nrPGtvqXIDxtVTXCMhpKMsfahaDMUu+1x +W9p8HDZbMtFM3Rzd7SeOzr1wFObtjSrVv2+OaS71XyS2RMDs6b75azfysMyi +NuDixzDIsDhyuG8TD1v4BXsdG8PA8Ei8xdmtPBT1jE2Tqw4Du7681+IdPMxV +UFK/dj0MTjQNjXr48lDVKOyUvEcY/EoPX3E4gofZwdvsF3YegVazs6+yaB7K +3RbvX/c1FLwPZly2uclDjvLye+/EoTB8s9Dzex4PbQKiwvY+CQV5hnhkYREP +64xb7NNEobBaWk317n0errudrui8NxTKG7N2vnrNw2DL/HfdA3ywnVEyP0jM +w5+tY9lvPvJBbP1kWPkNDxNLk+oaXvNhsKw7evsHHqY8qGE1FPNh/jWDG9+6 +ePil2rllXigfyluXB8X94KFDxaZ1y/aS8yk6w4I+Hq6tKFP32s6HXVEHGwKH +eCgdePLSUyTnu38iZc4vcn+bh22nGvIh8neyR9lvHvLpYgsbJh/kjIR628bJ ++rSvPnZGkQ+pe8uGJiZ4qCNt8O+HyXz4P4W3fmk= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05418670576336439}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8203,7 +8357,8 @@ U0FU/w== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.06741909458355917}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.05418670576336439}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8211,8 +8366,559 @@ U0FU/w== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913236646248627`*^9}, - CellLabel->"Out[89]=",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] + CellChangeTimes->{3.9942509929835577`*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"d94c2a67-4a4c-421e-a1f5-0afa0b484842"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{3.99179966106703*^9}, + CellLabel-> + "In[107]:=",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], + +Cell[BoxData["13.490457825671774`"], "Output", + CellChangeTimes->{3.9913229040054893`*^9, 3.9942509930340223`*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"d359548b-9acb-417c-8490-a091a1760764"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.991799666995865*^9}, + CellLabel-> + "In[108]:=",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4177357832034712`*^-266\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 108, 13, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913229042538757`*^9, 3.994250993157571*^9}, + CellLabel-> + "During evaluation of \ +In[108]:=",ExpressionUUID->"13785edc-d46c-4067-9986-59f1e460710d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.446108549491442`*^-277\\\", \ +RowBox[{\\\"1185674779082540666256313\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9254518349824000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 108, 14, + 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913229042538757`*^9, 3.994250993166615*^9}, + CellLabel-> + "During evaluation of \ +In[108]:=",ExpressionUUID->"fdff1a48-7af4-4430-a8bb-a0e94a6ca847"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.031737963797611`*^-287\\\", \ +RowBox[{\\\"9295690268007118823449497\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"9\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5542386262016000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 108, 15, + 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913229042538757`*^9, 3.99425099317618*^9}, + CellLabel-> + "During evaluation of \ +In[108]:=",ExpressionUUID->"b21087ba-7b37-491d-b855-016236c6c8bf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 108, 16, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913229042538757`*^9, 3.994250993187108*^9}, + CellLabel-> + "During evaluation of \ +In[108]:=",ExpressionUUID->"203c85ee-3d48-413d-8feb-a816bf45b20b"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk4lF0bAHClRCKRkuzmmbFmyZIY951KqUjS7g0hLdKCESpbpJKEFElh +MMyT7S1KRLYkhQxZSotWhbz2Sr7z/fVcv3+ec6773JvqvqMOHjOFhIRmzRAS ++v93rOdpDeMi19LtIi/dqMjEUpAqF7CqIwxmSc1wqmhZCCjbtE+uIw5EJKtP +xrYwgGOf+0q4Ix3cE22e+bQYwYKBxXGTr4qAZbIuwr5lDbwtszs68qoKVvzn +wvze7AjWjL43Q69eAkvc9vrBJneYfGV69eerD/A4I8bV+6kvVK/O5rakD4MG +2/VuzKUIUHj74PM+nSkoj7qj7Vl7GRZ6OefOWS2Mgeu9khQeJ0CcgfVDu22i +eLzhwZlcQRJ0XtevHJKSQEHxiKTHtlS4yA1umrlkAZ4YkJCe4ZcGixN6z8ff +lEH9Wj/Om6gMOOdoY/lyTBYbQ1n2UnaZ4GOW5vw0TA5LLmtFms3JhjWDvwK9 +e+WxLTQe9x7nQcD6BK3HP+Qxfo2JYRSHB3lpul0yY/I4N7KOyg/igZyji9kD +0aV41+HggpEIHvy4XzsuvGwplkUPDO1K5kF8WKxv0sml6CKeHX+1igcfZJne +NRIKmNEovKNBKgdCLba4yq9QxKqM/MdLuTmwfm/qf6ZWisgx6HjZy8sByZDv +4ds2KWLsnPyNvDs5kFIdkRXroogTutE+zJIcuL+h9LvIeUVkUcsTx5/mwM+d +6pzhTkUU2uTy+8dADuz1G73QGKSE6c7fFqib5MLKvKS7ZyqUsaBge+S9B7mw +5tWLqYF6Zez20p3tWJ4LdkKz1jm/VMbrtJvTYGUuuDl4d8InZVw0+ileoT4X +rINUg0Nmq6CZK5O1pT0XjimPZazSVkG9yAdv1f7LhRrPW/3VHBWcsh16fIDF +B5s/ZtKnglSwMeXL1nQtPryIFZgYhaigxLRiRYcuHzofiIVwz6vgpMllVQsj +PgyI+0pHpKig1bowuTfIB7mC9abWVSrYbBL/7twuPnhNDIXUS6jiu/rEc6FR +fFh5fP+iz9Kq2Cv1nBl/kQ+ifV18YTlV3Lf3p2xaDB8yu6vbLdVU8Zf4vY+F +CXzoeXRV556JKsIJd5vs23zYHGHWkeasii6lHnvel/DBUDpUL6hQFSegVjuh +lw9CF0drrherokONub7+Z3J/4UO7ix+q4n7jzov1X/lweNQhYqhWFdsCuDYD +/XzgdjC6PbtUMenvgS8SE3xYdKs+0lFYDWOa4/pvitMwqS3Vo7tNDc+Gl+wR +1qdh7KZ86PLdaijVc7pJxZCGkfkUw8xZDd+X2datNKJhYNjs0JqDalj457il ++woaPjx0G9t9Wg1vVTXsu4Q0NGwskYzKVMPkyoHnK+xpeFL+uPBSrhoOJny5 +qeRAQ41eo2N8vhp2anSOCTnS8EjmfXLqAzV0Zq5c+3AHDUXdc1n3npPzbdSc +RZxpSD68Fz6Mkvv5G/WOedFw7c2BD19+qWHQ4QM+md40JGz2ieifVkNXZYN4 ++2M0xCyPejYhpo7/zobwFB8awn4X7pivpI7FjpkG4oE0HL44+5iFtTrq1Efo +rImkwYJP305MVMe6sK+9rBQaulX4t9beUMfsP0fLt96kITAxJ3Xkljq6Wbtl +nUqloSQ0K8UhRx1Nis14tbdpMNx5+7pkmTp2+/r7G2XSoDk7ITbyvTr+ytvE +jbhDQ31g3GXjz+r4wq4iOyyPhv0/Y2M+9qljzdeIx6fyaeB2X4q2GlFHaZdO +swOFNKgUnYv6K8JAga/5BoV7NCxyDgrh6DBw/Ohp+8mHNNwTBARTBgxsi+4Y +fFJGg+OGk2cExgwsEvpMx5fTEGfsd8oQGLjdeTpUrYIGiXlHTw5sYSCLmZSp +WEUDHXrE/+Z2Bp6ZOQRtxBvGD3M27WFgSHHb7/PVNER9OOCb685AoZ3mXX01 +NMx6sO/Yfn8GNi9cDxee0JCxzPWo7CkGSmsIhrXqabDiOnvXhDAw5lvv83ri +4MtOXmoXGDhkFDfy+ykNvzy2H+hJYWCvj5M8NtKQ1O3oeSmNgZuPGYs1EK/Y +snW/RRYD219zVbc8p4FjYe+enM/A+0k7W7a/oGFIeoPL9ioGOmZkrcRmGjq8 +1JoPPWFggWU2o5y4su4XBDcyUNR4SblJCw2xgXxlXjsDRxJE/ii/pOGkIPxy +WTcDl1A9GZeJXZY5TTe/Y2C109s/v4n1P8x7O9nHQClfxdqGVhrkLD7ZSf5k +YJrSQ2NdAQ1CieWP1EYZ2D97ze5o4iYb79SN0wzkcd4+xjYaijOsJV1mUTjD +Y4dIInHqlNIZXzEKt+yKmPGV2Luw6Z+bMhSu9hAohbXTsF2c97xQjkKP485W +DcSWHiHsOkUKnxz2VZ7/irzXEgPFQRaFfraLxC4Tj5wQuySsS6FD3oLFDcSv +G9//WWxIYfugz/sZHeQ9Q+JeowWFjwzt8zyJE7oObdq2ikIdDXbRVeJTRqvL +DlpTeO8Tx6+S2D1mqc6ZjRTOtrk/8YV449fhG3H2FJ4sL7OY10ny2apRPHsb +henmaKVLLJ/CDXq4m0Jjm2mxjcQzx059b3KmMGiiOMGDuG/ztj0f3Smc+5XR +e4r4ZY7us4mDFEZZzRmLJS4VFjGXOErhikcKL9KI0//pyVX1pTA/heGVT3y+ +pFjeJIDCgNye5gfExxZcvrDhDIUtluJTlcQ7D3v+2htO4Rrzw0M1xFgLh3yi +SDzFK/NqiTWU5brOXaJwJveZcTWxVMBPm5Q4Cj+H258rJ554Wf+g4BqFrkUL +uHeJ3+mkadamUHi44mU0j7g+MiCpM43C3dU7rJKIC95tERvIotBrr0dtJPH1 +lVoBM2kKw+5XLjpOHJIw89uiQhLPED3TncSeA107tYspXNDvz7Igtlv/bz08 +JPctdfmqQGySfnGFYyWFytqFgb9IvJX+uPEO1FLoK2rwVkAsst1C7nQDhTdu +8xbRxAP5C6OuNFG45Mk71RDidrH+8UwBhQcE6TO2EGeV33z1ooe8140fq76R +fIhZzFnX20uh5w0xbgEx57hdyfhXCuslut/4Eq+lphNVhincEfSse5jkm07w +KxHjCQoH2sLT8ogXduZzbKYoVHFVt9pP/DHaZfuJOUw03Gu/uPH/+duno6Y/ +j4mi8e6dwcTj6yb7+6WYKJvS8U6feK5wXMRBeSZ+bj1bdYHUh35A9V0XXSYa +F4T3KpJ6Km2/HKJkyMTbBZq9D0m9rTZy2vTahIk2OWG6O4i3D4707kAmphv/ +5UaQ+j3twZTZvJWJHm6zDauaSHyq/+uZt5Ocp6+VvIE4VqUit8GJiWsnvBya +X/y/f+6wst7PxKBx0eJW0j8atpw/zg5govWxdqfSZ6R/Wv5o0r7FxH9ftFbP +If3r9o37N75lMDFKPy/Eo47068mzntk8JrYaVV2vrCXz4K7itFoREym/Q2+8 +Sf9z09q8TL6WiWnBiY38xyQ/FhVFi35noqTn1g/ZpB+v9D2zs26QiaFbrXjd +pTRUt2xgnB1h4nWRd4J5xO3RvQ+np5g4+kHKw/M+DX9myn4fk2Lh0ESp39Rd +GmwG/W0+mbCwoqzjzx0yLxQMlCJFLViYTR/9mEGTfDhRU6W9ioUGy+oaE/mk +vsekLE5sZOGjpJAMnxwaeqZylk07s7B1Z1+4GJk/J+a9lllynoUvJ0a+ZN2g +YY1dmL1FDAv5Oel2R5JpWByrcck5noWCs6dq9ZNoKJPxE8m6ycK2m6lf8hJJ +vJdKThoWsZB7TW5J1BUyfzWxZ1M3C0W48pL5ZF56Hf4sf+wdC/uDnvVbR9AA +d6J3xH9iYfnc4P7ucJI/+p3NnYMshLYh+6kQGpatOFG9f5YGzj5jVKMYROJj +zeWF6Grgsab3lu1kfv9wE/W5G6yBc3RE8nTIPjCQuqa84qwGWg3/U3GC7AuD +nSFznp3XwBGzT1rFZJ/4b/PkjffxGuhZE7jQ2Jbko3lfjSRPA2d2p9rKWJP+ +tLBx0cFmDcwNLDF1MKVhSc3lUkVVTRx9vuvXu8U02f8XzzxXpYm2rrJpQS18 ++LZvHc/8iSa2js1/sb6JD9Fp/nY/n2mi5+rNn2We86FVqSN5V5sm3rkq8Tqj +ng8uS5KW63zVxKm7d0ZyK/gQILnUo0VCCxeY6qZsv8MHekKpfukuLbR9qtOl +eY4P0s+ZMQWDWjjzfREMkX3y76B+ZsOIFgYKtGaIGPKhT9q87OOkFs6Vy46T +0+ND1c7NfXKztFFE3lLLVJMPPh/9rUPltNHY+NvG3Yp8EPyu/7tllTYmMZ7s +MpvNh2tah48Ox2mjk9J+/r7WXFCIyrc3MdFB7iHTr+kHc+G6tpmUjKcuNlIy +ahCbAw3yq4yHryzDZWM1/uKZPFipUBWr166H3LdDinuuZIOkcLqva5g+XtqK +JfyQLFAKVbbYxTTA0dmvnkduygQxyqnY4YkB/svmRW+U5cIy9pJ8/38MEfY5 +F98YSIcTPdLVG4SWo06c7q2sO2kwOBy9zeb6crQxm7JICb8N6/Tqkm10jVBe +j4mZdanwaNj89/gLI7x38oc8Z18KeOsYdrV4GGNbq2LZE9NkYA+4C3aJmeD6 +1Ztk1UeuwVqGnK1EugkenzFfZcbAVdAIuXCyytQUj6lnFleLJYCWh1kF1WWK +zOTw4Ea5OPB4dODs3eMr8JiCqVSWeyxU3Ba4D8maYWvh48Tn2y7BCG96XK/E +DLfeat923OACuFF8sWTblVhvI9KtGHQOhrTiTYp+rkTcK+NkX3cW7nN/vx+N +MkfLLeuMDnLCYPcadTRXssDQv1eq69xCYOmRcw+WVVqgUZX+wRNFp0B2rleh +7Q42ar0NNxxeFQDc1acDf+5io/YTHUvn5QFgeDpmdbwTG+0/fJxqYQSA3c+C +tg5XNg4vko17NicAIttHJ9282Ph6wLVT8sVJmEgPtgoMZWOY8LdVgj0nocs8 +vjWLz8YGrbl7bE/5wwE/bopNHhsVRsRsor39YSzvnsePAjaazhLLb3HxB2m1 +jnGDYjbeqPLuPrrWHzaKKiqUV7KRsTcvZFLSH8oEWe6tbWy0mGx1wAwObJC8 +r8vpYOOAgPv601UOdKx7OibXzUbR5L8VV6I4MFL6PWrvOzYW92Vd/HOEA7pp ++ne+9bFxXobRDCUzDpR1reJE97NRz/m+6pg2+d/CraD3k40XAnyiBUoc2H/O +r8V3lI0Z4r0ruLPI/yojkxdPsDEgs5JzddwPwn5dcyv9xcb5vazx6D4/kDLK +0flnio2RnTr3L7zxg9QjpaPT02w0PNJbEtPsB/8DRKKUXw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4lF0bAHClRCKRkuzmmbFmyZIY951KqUjS7g0hLdKCESpbpJKEFElh +MMyT7S1KRLYkhQxZSotWhbz2Sr7z/fVcv3+ec6773JvqvqMOHjOFhIRmzRAS ++v93rOdpDeMi19LtIi/dqMjEUpAqF7CqIwxmSc1wqmhZCCjbtE+uIw5EJKtP +xrYwgGOf+0q4Ix3cE22e+bQYwYKBxXGTr4qAZbIuwr5lDbwtszs68qoKVvzn +wvze7AjWjL43Q69eAkvc9vrBJneYfGV69eerD/A4I8bV+6kvVK/O5rakD4MG +2/VuzKUIUHj74PM+nSkoj7qj7Vl7GRZ6OefOWS2Mgeu9khQeJ0CcgfVDu22i +eLzhwZlcQRJ0XtevHJKSQEHxiKTHtlS4yA1umrlkAZ4YkJCe4ZcGixN6z8ff +lEH9Wj/Om6gMOOdoY/lyTBYbQ1n2UnaZ4GOW5vw0TA5LLmtFms3JhjWDvwK9 +e+WxLTQe9x7nQcD6BK3HP+Qxfo2JYRSHB3lpul0yY/I4N7KOyg/igZyji9kD +0aV41+HggpEIHvy4XzsuvGwplkUPDO1K5kF8WKxv0sml6CKeHX+1igcfZJne +NRIKmNEovKNBKgdCLba4yq9QxKqM/MdLuTmwfm/qf6ZWisgx6HjZy8sByZDv +4ds2KWLsnPyNvDs5kFIdkRXroogTutE+zJIcuL+h9LvIeUVkUcsTx5/mwM+d +6pzhTkUU2uTy+8dADuz1G73QGKSE6c7fFqib5MLKvKS7ZyqUsaBge+S9B7mw +5tWLqYF6Zez20p3tWJ4LdkKz1jm/VMbrtJvTYGUuuDl4d8InZVw0+ileoT4X +rINUg0Nmq6CZK5O1pT0XjimPZazSVkG9yAdv1f7LhRrPW/3VHBWcsh16fIDF +B5s/ZtKnglSwMeXL1nQtPryIFZgYhaigxLRiRYcuHzofiIVwz6vgpMllVQsj +PgyI+0pHpKig1bowuTfIB7mC9abWVSrYbBL/7twuPnhNDIXUS6jiu/rEc6FR +fFh5fP+iz9Kq2Cv1nBl/kQ+ifV18YTlV3Lf3p2xaDB8yu6vbLdVU8Zf4vY+F +CXzoeXRV556JKsIJd5vs23zYHGHWkeasii6lHnvel/DBUDpUL6hQFSegVjuh +lw9CF0drrherokONub7+Z3J/4UO7ix+q4n7jzov1X/lweNQhYqhWFdsCuDYD +/XzgdjC6PbtUMenvgS8SE3xYdKs+0lFYDWOa4/pvitMwqS3Vo7tNDc+Gl+wR +1qdh7KZ86PLdaijVc7pJxZCGkfkUw8xZDd+X2datNKJhYNjs0JqDalj457il ++woaPjx0G9t9Wg1vVTXsu4Q0NGwskYzKVMPkyoHnK+xpeFL+uPBSrhoOJny5 +qeRAQ41eo2N8vhp2anSOCTnS8EjmfXLqAzV0Zq5c+3AHDUXdc1n3npPzbdSc +RZxpSD68Fz6Mkvv5G/WOedFw7c2BD19+qWHQ4QM+md40JGz2ieifVkNXZYN4 ++2M0xCyPejYhpo7/zobwFB8awn4X7pivpI7FjpkG4oE0HL44+5iFtTrq1Efo +rImkwYJP305MVMe6sK+9rBQaulX4t9beUMfsP0fLt96kITAxJ3Xkljq6Wbtl +nUqloSQ0K8UhRx1Nis14tbdpMNx5+7pkmTp2+/r7G2XSoDk7ITbyvTr+ytvE +jbhDQ31g3GXjz+r4wq4iOyyPhv0/Y2M+9qljzdeIx6fyaeB2X4q2GlFHaZdO +swOFNKgUnYv6K8JAga/5BoV7NCxyDgrh6DBw/Ohp+8mHNNwTBARTBgxsi+4Y +fFJGg+OGk2cExgwsEvpMx5fTEGfsd8oQGLjdeTpUrYIGiXlHTw5sYSCLmZSp +WEUDHXrE/+Z2Bp6ZOQRtxBvGD3M27WFgSHHb7/PVNER9OOCb685AoZ3mXX01 +NMx6sO/Yfn8GNi9cDxee0JCxzPWo7CkGSmsIhrXqabDiOnvXhDAw5lvv83ri +4MtOXmoXGDhkFDfy+ykNvzy2H+hJYWCvj5M8NtKQ1O3oeSmNgZuPGYs1EK/Y +snW/RRYD219zVbc8p4FjYe+enM/A+0k7W7a/oGFIeoPL9ioGOmZkrcRmGjq8 +1JoPPWFggWU2o5y4su4XBDcyUNR4SblJCw2xgXxlXjsDRxJE/ii/pOGkIPxy +WTcDl1A9GZeJXZY5TTe/Y2C109s/v4n1P8x7O9nHQClfxdqGVhrkLD7ZSf5k +YJrSQ2NdAQ1CieWP1EYZ2D97ze5o4iYb79SN0wzkcd4+xjYaijOsJV1mUTjD +Y4dIInHqlNIZXzEKt+yKmPGV2Luw6Z+bMhSu9hAohbXTsF2c97xQjkKP485W +DcSWHiHsOkUKnxz2VZ7/irzXEgPFQRaFfraLxC4Tj5wQuySsS6FD3oLFDcSv +G9//WWxIYfugz/sZHeQ9Q+JeowWFjwzt8zyJE7oObdq2ikIdDXbRVeJTRqvL +DlpTeO8Tx6+S2D1mqc6ZjRTOtrk/8YV449fhG3H2FJ4sL7OY10ny2apRPHsb +henmaKVLLJ/CDXq4m0Jjm2mxjcQzx059b3KmMGiiOMGDuG/ztj0f3Smc+5XR +e4r4ZY7us4mDFEZZzRmLJS4VFjGXOErhikcKL9KI0//pyVX1pTA/heGVT3y+ +pFjeJIDCgNye5gfExxZcvrDhDIUtluJTlcQ7D3v+2htO4Rrzw0M1xFgLh3yi +SDzFK/NqiTWU5brOXaJwJveZcTWxVMBPm5Q4Cj+H258rJ554Wf+g4BqFrkUL +uHeJ3+mkadamUHi44mU0j7g+MiCpM43C3dU7rJKIC95tERvIotBrr0dtJPH1 +lVoBM2kKw+5XLjpOHJIw89uiQhLPED3TncSeA107tYspXNDvz7Igtlv/bz08 +JPctdfmqQGySfnGFYyWFytqFgb9IvJX+uPEO1FLoK2rwVkAsst1C7nQDhTdu +8xbRxAP5C6OuNFG45Mk71RDidrH+8UwBhQcE6TO2EGeV33z1ooe8140fq76R +fIhZzFnX20uh5w0xbgEx57hdyfhXCuslut/4Eq+lphNVhincEfSse5jkm07w +KxHjCQoH2sLT8ogXduZzbKYoVHFVt9pP/DHaZfuJOUw03Gu/uPH/+duno6Y/ +j4mi8e6dwcTj6yb7+6WYKJvS8U6feK5wXMRBeSZ+bj1bdYHUh35A9V0XXSYa +F4T3KpJ6Km2/HKJkyMTbBZq9D0m9rTZy2vTahIk2OWG6O4i3D4707kAmphv/ +5UaQ+j3twZTZvJWJHm6zDauaSHyq/+uZt5Ocp6+VvIE4VqUit8GJiWsnvBya +X/y/f+6wst7PxKBx0eJW0j8atpw/zg5govWxdqfSZ6R/Wv5o0r7FxH9ftFbP +If3r9o37N75lMDFKPy/Eo47068mzntk8JrYaVV2vrCXz4K7itFoREym/Q2+8 +Sf9z09q8TL6WiWnBiY38xyQ/FhVFi35noqTn1g/ZpB+v9D2zs26QiaFbrXjd +pTRUt2xgnB1h4nWRd4J5xO3RvQ+np5g4+kHKw/M+DX9myn4fk2Lh0ESp39Rd +GmwG/W0+mbCwoqzjzx0yLxQMlCJFLViYTR/9mEGTfDhRU6W9ioUGy+oaE/mk +vsekLE5sZOGjpJAMnxwaeqZylk07s7B1Z1+4GJk/J+a9lllynoUvJ0a+ZN2g +YY1dmL1FDAv5Oel2R5JpWByrcck5noWCs6dq9ZNoKJPxE8m6ycK2m6lf8hJJ +vJdKThoWsZB7TW5J1BUyfzWxZ1M3C0W48pL5ZF56Hf4sf+wdC/uDnvVbR9AA +d6J3xH9iYfnc4P7ucJI/+p3NnYMshLYh+6kQGpatOFG9f5YGzj5jVKMYROJj +zeWF6Grgsab3lu1kfv9wE/W5G6yBc3RE8nTIPjCQuqa84qwGWg3/U3GC7AuD +nSFznp3XwBGzT1rFZJ/4b/PkjffxGuhZE7jQ2Jbko3lfjSRPA2d2p9rKWJP+ +tLBx0cFmDcwNLDF1MKVhSc3lUkVVTRx9vuvXu8U02f8XzzxXpYm2rrJpQS18 ++LZvHc/8iSa2js1/sb6JD9Fp/nY/n2mi5+rNn2We86FVqSN5V5sm3rkq8Tqj +ng8uS5KW63zVxKm7d0ZyK/gQILnUo0VCCxeY6qZsv8MHekKpfukuLbR9qtOl +eY4P0s+ZMQWDWjjzfREMkX3y76B+ZsOIFgYKtGaIGPKhT9q87OOkFs6Vy46T +0+ND1c7NfXKztFFE3lLLVJMPPh/9rUPltNHY+NvG3Yp8EPyu/7tllTYmMZ7s +MpvNh2tah48Ox2mjk9J+/r7WXFCIyrc3MdFB7iHTr+kHc+G6tpmUjKcuNlIy +ahCbAw3yq4yHryzDZWM1/uKZPFipUBWr166H3LdDinuuZIOkcLqva5g+XtqK +JfyQLFAKVbbYxTTA0dmvnkduygQxyqnY4YkB/svmRW+U5cIy9pJ8/38MEfY5 +F98YSIcTPdLVG4SWo06c7q2sO2kwOBy9zeb6crQxm7JICb8N6/Tqkm10jVBe +j4mZdanwaNj89/gLI7x38oc8Z18KeOsYdrV4GGNbq2LZE9NkYA+4C3aJmeD6 +1Ztk1UeuwVqGnK1EugkenzFfZcbAVdAIuXCyytQUj6lnFleLJYCWh1kF1WWK +zOTw4Ea5OPB4dODs3eMr8JiCqVSWeyxU3Ba4D8maYWvh48Tn2y7BCG96XK/E +DLfeat923OACuFF8sWTblVhvI9KtGHQOhrTiTYp+rkTcK+NkX3cW7nN/vx+N +MkfLLeuMDnLCYPcadTRXssDQv1eq69xCYOmRcw+WVVqgUZX+wRNFp0B2rleh +7Q42ar0NNxxeFQDc1acDf+5io/YTHUvn5QFgeDpmdbwTG+0/fJxqYQSA3c+C +tg5XNg4vko17NicAIttHJ9282Ph6wLVT8sVJmEgPtgoMZWOY8LdVgj0nocs8 +vjWLz8YGrbl7bE/5wwE/bopNHhsVRsRsor39YSzvnsePAjaazhLLb3HxB2m1 +jnGDYjbeqPLuPrrWHzaKKiqUV7KRsTcvZFLSH8oEWe6tbWy0mGx1wAwObJC8 +r8vpYOOAgPv601UOdKx7OibXzUbR5L8VV6I4MFL6PWrvOzYW92Vd/HOEA7pp ++ne+9bFxXobRDCUzDpR1reJE97NRz/m+6pg2+d/CraD3k40XAnyiBUoc2H/O +r8V3lI0Z4r0ruLPI/yojkxdPsDEgs5JzddwPwn5dcyv9xcb5vazx6D4/kDLK +0flnio2RnTr3L7zxg9QjpaPT02w0PNJbEtPsB/8DRKKUXw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05634897001438912}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05634897001438912}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4lF0bAHClRCKRkuzmmbFmyZIY951KqUjS7g0hLdKCESpbpJKEFElh +MMyT7S1KRLYkhQxZSotWhbz2Sr7z/fVcv3+ec6773JvqvqMOHjOFhIRmzRAS ++v93rOdpDeMi19LtIi/dqMjEUpAqF7CqIwxmSc1wqmhZCCjbtE+uIw5EJKtP +xrYwgGOf+0q4Ix3cE22e+bQYwYKBxXGTr4qAZbIuwr5lDbwtszs68qoKVvzn +wvze7AjWjL43Q69eAkvc9vrBJneYfGV69eerD/A4I8bV+6kvVK/O5rakD4MG +2/VuzKUIUHj74PM+nSkoj7qj7Vl7GRZ6OefOWS2Mgeu9khQeJ0CcgfVDu22i +eLzhwZlcQRJ0XtevHJKSQEHxiKTHtlS4yA1umrlkAZ4YkJCe4ZcGixN6z8ff +lEH9Wj/Om6gMOOdoY/lyTBYbQ1n2UnaZ4GOW5vw0TA5LLmtFms3JhjWDvwK9 +e+WxLTQe9x7nQcD6BK3HP+Qxfo2JYRSHB3lpul0yY/I4N7KOyg/igZyji9kD +0aV41+HggpEIHvy4XzsuvGwplkUPDO1K5kF8WKxv0sml6CKeHX+1igcfZJne +NRIKmNEovKNBKgdCLba4yq9QxKqM/MdLuTmwfm/qf6ZWisgx6HjZy8sByZDv +4ds2KWLsnPyNvDs5kFIdkRXroogTutE+zJIcuL+h9LvIeUVkUcsTx5/mwM+d +6pzhTkUU2uTy+8dADuz1G73QGKSE6c7fFqib5MLKvKS7ZyqUsaBge+S9B7mw +5tWLqYF6Zez20p3tWJ4LdkKz1jm/VMbrtJvTYGUuuDl4d8InZVw0+ileoT4X +rINUg0Nmq6CZK5O1pT0XjimPZazSVkG9yAdv1f7LhRrPW/3VHBWcsh16fIDF +B5s/ZtKnglSwMeXL1nQtPryIFZgYhaigxLRiRYcuHzofiIVwz6vgpMllVQsj +PgyI+0pHpKig1bowuTfIB7mC9abWVSrYbBL/7twuPnhNDIXUS6jiu/rEc6FR +fFh5fP+iz9Kq2Cv1nBl/kQ+ifV18YTlV3Lf3p2xaDB8yu6vbLdVU8Zf4vY+F +CXzoeXRV556JKsIJd5vs23zYHGHWkeasii6lHnvel/DBUDpUL6hQFSegVjuh +lw9CF0drrherokONub7+Z3J/4UO7ix+q4n7jzov1X/lweNQhYqhWFdsCuDYD +/XzgdjC6PbtUMenvgS8SE3xYdKs+0lFYDWOa4/pvitMwqS3Vo7tNDc+Gl+wR +1qdh7KZ86PLdaijVc7pJxZCGkfkUw8xZDd+X2datNKJhYNjs0JqDalj457il ++woaPjx0G9t9Wg1vVTXsu4Q0NGwskYzKVMPkyoHnK+xpeFL+uPBSrhoOJny5 +qeRAQ41eo2N8vhp2anSOCTnS8EjmfXLqAzV0Zq5c+3AHDUXdc1n3npPzbdSc +RZxpSD68Fz6Mkvv5G/WOedFw7c2BD19+qWHQ4QM+md40JGz2ieifVkNXZYN4 ++2M0xCyPejYhpo7/zobwFB8awn4X7pivpI7FjpkG4oE0HL44+5iFtTrq1Efo +rImkwYJP305MVMe6sK+9rBQaulX4t9beUMfsP0fLt96kITAxJ3Xkljq6Wbtl +nUqloSQ0K8UhRx1Nis14tbdpMNx5+7pkmTp2+/r7G2XSoDk7ITbyvTr+ytvE +jbhDQ31g3GXjz+r4wq4iOyyPhv0/Y2M+9qljzdeIx6fyaeB2X4q2GlFHaZdO +swOFNKgUnYv6K8JAga/5BoV7NCxyDgrh6DBw/Ohp+8mHNNwTBARTBgxsi+4Y +fFJGg+OGk2cExgwsEvpMx5fTEGfsd8oQGLjdeTpUrYIGiXlHTw5sYSCLmZSp +WEUDHXrE/+Z2Bp6ZOQRtxBvGD3M27WFgSHHb7/PVNER9OOCb685AoZ3mXX01 +NMx6sO/Yfn8GNi9cDxee0JCxzPWo7CkGSmsIhrXqabDiOnvXhDAw5lvv83ri +4MtOXmoXGDhkFDfy+ykNvzy2H+hJYWCvj5M8NtKQ1O3oeSmNgZuPGYs1EK/Y +snW/RRYD219zVbc8p4FjYe+enM/A+0k7W7a/oGFIeoPL9ioGOmZkrcRmGjq8 +1JoPPWFggWU2o5y4su4XBDcyUNR4SblJCw2xgXxlXjsDRxJE/ii/pOGkIPxy +WTcDl1A9GZeJXZY5TTe/Y2C109s/v4n1P8x7O9nHQClfxdqGVhrkLD7ZSf5k +YJrSQ2NdAQ1CieWP1EYZ2D97ze5o4iYb79SN0wzkcd4+xjYaijOsJV1mUTjD +Y4dIInHqlNIZXzEKt+yKmPGV2Luw6Z+bMhSu9hAohbXTsF2c97xQjkKP485W +DcSWHiHsOkUKnxz2VZ7/irzXEgPFQRaFfraLxC4Tj5wQuySsS6FD3oLFDcSv +G9//WWxIYfugz/sZHeQ9Q+JeowWFjwzt8zyJE7oObdq2ikIdDXbRVeJTRqvL +DlpTeO8Tx6+S2D1mqc6ZjRTOtrk/8YV449fhG3H2FJ4sL7OY10ny2apRPHsb +henmaKVLLJ/CDXq4m0Jjm2mxjcQzx059b3KmMGiiOMGDuG/ztj0f3Smc+5XR +e4r4ZY7us4mDFEZZzRmLJS4VFjGXOErhikcKL9KI0//pyVX1pTA/heGVT3y+ +pFjeJIDCgNye5gfExxZcvrDhDIUtluJTlcQ7D3v+2htO4Rrzw0M1xFgLh3yi +SDzFK/NqiTWU5brOXaJwJveZcTWxVMBPm5Q4Cj+H258rJ554Wf+g4BqFrkUL +uHeJ3+mkadamUHi44mU0j7g+MiCpM43C3dU7rJKIC95tERvIotBrr0dtJPH1 +lVoBM2kKw+5XLjpOHJIw89uiQhLPED3TncSeA107tYspXNDvz7Igtlv/bz08 +JPctdfmqQGySfnGFYyWFytqFgb9IvJX+uPEO1FLoK2rwVkAsst1C7nQDhTdu +8xbRxAP5C6OuNFG45Mk71RDidrH+8UwBhQcE6TO2EGeV33z1ooe8140fq76R +fIhZzFnX20uh5w0xbgEx57hdyfhXCuslut/4Eq+lphNVhincEfSse5jkm07w +KxHjCQoH2sLT8ogXduZzbKYoVHFVt9pP/DHaZfuJOUw03Gu/uPH/+duno6Y/ +j4mi8e6dwcTj6yb7+6WYKJvS8U6feK5wXMRBeSZ+bj1bdYHUh35A9V0XXSYa +F4T3KpJ6Km2/HKJkyMTbBZq9D0m9rTZy2vTahIk2OWG6O4i3D4707kAmphv/ +5UaQ+j3twZTZvJWJHm6zDauaSHyq/+uZt5Ocp6+VvIE4VqUit8GJiWsnvBya +X/y/f+6wst7PxKBx0eJW0j8atpw/zg5govWxdqfSZ6R/Wv5o0r7FxH9ftFbP +If3r9o37N75lMDFKPy/Eo47068mzntk8JrYaVV2vrCXz4K7itFoREym/Q2+8 +Sf9z09q8TL6WiWnBiY38xyQ/FhVFi35noqTn1g/ZpB+v9D2zs26QiaFbrXjd +pTRUt2xgnB1h4nWRd4J5xO3RvQ+np5g4+kHKw/M+DX9myn4fk2Lh0ESp39Rd +GmwG/W0+mbCwoqzjzx0yLxQMlCJFLViYTR/9mEGTfDhRU6W9ioUGy+oaE/mk +vsekLE5sZOGjpJAMnxwaeqZylk07s7B1Z1+4GJk/J+a9lllynoUvJ0a+ZN2g +YY1dmL1FDAv5Oel2R5JpWByrcck5noWCs6dq9ZNoKJPxE8m6ycK2m6lf8hJJ +vJdKThoWsZB7TW5J1BUyfzWxZ1M3C0W48pL5ZF56Hf4sf+wdC/uDnvVbR9AA +d6J3xH9iYfnc4P7ucJI/+p3NnYMshLYh+6kQGpatOFG9f5YGzj5jVKMYROJj +zeWF6Grgsab3lu1kfv9wE/W5G6yBc3RE8nTIPjCQuqa84qwGWg3/U3GC7AuD +nSFznp3XwBGzT1rFZJ/4b/PkjffxGuhZE7jQ2Jbko3lfjSRPA2d2p9rKWJP+ +tLBx0cFmDcwNLDF1MKVhSc3lUkVVTRx9vuvXu8U02f8XzzxXpYm2rrJpQS18 ++LZvHc/8iSa2js1/sb6JD9Fp/nY/n2mi5+rNn2We86FVqSN5V5sm3rkq8Tqj +ng8uS5KW63zVxKm7d0ZyK/gQILnUo0VCCxeY6qZsv8MHekKpfukuLbR9qtOl +eY4P0s+ZMQWDWjjzfREMkX3y76B+ZsOIFgYKtGaIGPKhT9q87OOkFs6Vy46T +0+ND1c7NfXKztFFE3lLLVJMPPh/9rUPltNHY+NvG3Yp8EPyu/7tllTYmMZ7s +MpvNh2tah48Ox2mjk9J+/r7WXFCIyrc3MdFB7iHTr+kHc+G6tpmUjKcuNlIy +ahCbAw3yq4yHryzDZWM1/uKZPFipUBWr166H3LdDinuuZIOkcLqva5g+XtqK +JfyQLFAKVbbYxTTA0dmvnkduygQxyqnY4YkB/svmRW+U5cIy9pJ8/38MEfY5 +F98YSIcTPdLVG4SWo06c7q2sO2kwOBy9zeb6crQxm7JICb8N6/Tqkm10jVBe +j4mZdanwaNj89/gLI7x38oc8Z18KeOsYdrV4GGNbq2LZE9NkYA+4C3aJmeD6 +1Ztk1UeuwVqGnK1EugkenzFfZcbAVdAIuXCyytQUj6lnFleLJYCWh1kF1WWK +zOTw4Ea5OPB4dODs3eMr8JiCqVSWeyxU3Ba4D8maYWvh48Tn2y7BCG96XK/E +DLfeat923OACuFF8sWTblVhvI9KtGHQOhrTiTYp+rkTcK+NkX3cW7nN/vx+N +MkfLLeuMDnLCYPcadTRXssDQv1eq69xCYOmRcw+WVVqgUZX+wRNFp0B2rleh +7Q42ar0NNxxeFQDc1acDf+5io/YTHUvn5QFgeDpmdbwTG+0/fJxqYQSA3c+C +tg5XNg4vko17NicAIttHJ9282Ph6wLVT8sVJmEgPtgoMZWOY8LdVgj0nocs8 +vjWLz8YGrbl7bE/5wwE/bopNHhsVRsRsor39YSzvnsePAjaazhLLb3HxB2m1 +jnGDYjbeqPLuPrrWHzaKKiqUV7KRsTcvZFLSH8oEWe6tbWy0mGx1wAwObJC8 +r8vpYOOAgPv601UOdKx7OibXzUbR5L8VV6I4MFL6PWrvOzYW92Vd/HOEA7pp ++ne+9bFxXobRDCUzDpR1reJE97NRz/m+6pg2+d/CraD3k40XAnyiBUoc2H/O +r8V3lI0Z4r0ruLPI/yojkxdPsDEgs5JzddwPwn5dcyv9xcb5vazx6D4/kDLK +0flnio2RnTr3L7zxg9QjpaPT02w0PNJbEtPsB/8DRKKUXw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05634897001438912}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.05634897001438912}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913236646248627`*^9, 3.9942516804141703`*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"bd6085fb-86d3-4e69-8a49-65575ffbac99"] }, Open ]], Cell[CellGroupData[{ @@ -8224,26 +8930,30 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], - ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -8264,65 +8974,71 @@ Cell[BoxData[ FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", - CellLabel->"In[90]:=",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], + CellLabel-> + "In[109]:=",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.2264340105931995`*^-182\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, 90, - 21, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323664732767*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.558428919644062`*^-187\\\", \ +RowBox[{\\\"370006826113003167605388\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"77\\\", \\\"\[RightSkeleton]\\\"}], \\\"0857600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 109, 17, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323664732767*^9, 3.994251680580154*^9}, CellLabel-> "During evaluation of \ -In[90]:=",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], +In[109]:=",ExpressionUUID->"fb2d4393-7c0b-4b30-af68-d2ac2b7fc777"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 90, 22, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99132366476486*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0402618444998964`*^-190\\\", \ +RowBox[{\\\"925017065282507919013470\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"80\\\", \\\"\[RightSkeleton]\\\"}], \\\"4000000000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 109, 18, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323664732767*^9, 3.994251680590878*^9}, CellLabel-> "During evaluation of \ -In[90]:=",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], +In[109]:=",ExpressionUUID->"e2ef25bb-1686-4a2c-8693-efbc1fdb647b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 90, 23, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236647877655`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.650005997444059`*^-194\\\", \ +RowBox[{\\\"240596938679980309735403\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"84\\\", \\\"\[RightSkeleton]\\\"}], \\\"4000000000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 109, 19, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323664732767*^9, 3.9942516806009827`*^9}, CellLabel-> "During evaluation of \ -In[90]:=",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], +In[109]:=",ExpressionUUID->"346ec239-8a7a-460e-99d9-943054001634"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 90, 24, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236648078594`*^9}, +during this calculation.\"", 2, 109, 20, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323664732767*^9, 3.994251680611566*^9}, CellLabel-> "During evaluation of \ -In[90]:=",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], +In[109]:=",ExpressionUUID->"95e40e76-3ec2-422a-b204-92b1cf0b21bd"], -Cell[BoxData["11.275343508420768`"], "Output", - CellChangeTimes->{3.9913236764669056`*^9}, - CellLabel->"Out[90]=",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +Cell[BoxData["13.490454693806155`"], "Output", + CellChangeTimes->{3.9913236764669056`*^9, 3.994251757149261*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"a3d8db20-24ed-4947-a9fc-e393a23dc1b9"] }, Open ]], Cell[CellGroupData[{ @@ -8389,67 +9105,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9917996753598194`*^9, - 3.991799698091812*^9}},ExpressionUUID->"18d0289f-01fd-a740-8fac-\ -540622282b2c"], + CellChangeTimes->{{3.9917996753598194`*^9, 3.991799698091812*^9}}, + CellLabel-> + "In[110]:=",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 91, 25, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236765399036`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.358954528219119`*^-209\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 110, 21, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913236765399036`*^9, 3.994251757228759*^9}, CellLabel-> "During evaluation of \ -In[91]:=",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], +In[110]:=",ExpressionUUID->"37d8de8c-64ef-4d3c-8840-e4ff163fb00d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 91, 26, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236765679016`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0936864967560232`*^-214\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 110, 22, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913236765399036`*^9, 3.994251757239468*^9}, CellLabel-> "During evaluation of \ -In[91]:=",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], +In[110]:=",ExpressionUUID->"63a15583-c72d-42ac-a2d2-99fc36938b8d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 91, 27, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323676587904*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.80198806029214`*^-220\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 110, 23, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913236765399036`*^9, 3.994251757248137*^9}, CellLabel-> "During evaluation of \ -In[91]:=",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], +In[110]:=",ExpressionUUID->"5ea519a5-a097-4376-b670-67e4bc315fb0"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 91, 28, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236766039066`*^9}, +during this calculation.\"", 2, 110, 24, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913236765399036`*^9, 3.994251757257128*^9}, CellLabel-> "During evaluation of \ -In[91]:=",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], +In[110]:=",ExpressionUUID->"3ae937eb-b6bd-4718-bec8-b9a830a12472"], -Cell[BoxData["0.5376063675902706`"], "Output", - CellChangeTimes->{3.9913236883162384`*^9}, - CellLabel->"Out[91]=",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +Cell[BoxData["3.098097787005029`"], "Output", + CellChangeTimes->{3.9913236883162384`*^9, 3.994251768870027*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"db788793-59b5-42fa-a74d-04e48d0f1f2a"] }, Open ]], Cell[CellGroupData[{ @@ -8470,8 +9191,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8516,67 +9236,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9917997261183853`*^9, - 3.991799730012718*^9}},ExpressionUUID->"33f25e29-8e2f-5249-9603-\ -4bb381db84df"], + CellChangeTimes->{{3.9917997261183853`*^9, 3.991799730012718*^9}}, + CellLabel-> + "In[111]:=",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 92, 29, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99132368839011*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.358954528219119`*^-209\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 111, 25, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99132368839011*^9, 3.994251768925415*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], +In[111]:=",ExpressionUUID->"00d51608-5ee2-483b-99ec-c00db3eba105"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 92, 30, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236884141064`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0936864967560232`*^-214\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 111, 26, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99132368839011*^9, 3.9942517689401693`*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], +In[111]:=",ExpressionUUID->"7f034fb7-67c0-4859-a5fd-90e1271cdf57"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 92, 31, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323688443001*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.80198806029214`*^-220\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 111, 27, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99132368839011*^9, 3.9942517689541473`*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], +In[111]:=",ExpressionUUID->"fe9bf743-cfc4-41a0-b4af-6f664932ff02"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 92, 32, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236884570007`*^9}, +during this calculation.\"", 2, 111, 28, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99132368839011*^9, 3.994251768963993*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], +In[111]:=",ExpressionUUID->"8a21bd0e-07d3-48e3-8af7-673e76ecc0bc"], -Cell[BoxData["10.498798062085507`"], "Output", - CellChangeTimes->{3.9913236988049507`*^9}, - CellLabel->"Out[92]=",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +Cell[BoxData["53.775368272601874`"], "Output", + CellChangeTimes->{3.9913236988049507`*^9, 3.994251779682583*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"30dce9a4-1c27-455c-b1ad-6b79fb4c40ad"] }, Open ]], Cell[CellGroupData[{ @@ -8597,8 +9322,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8643,67 +9367,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9917997336698074`*^9, - 3.9917997367747993`*^9}},ExpressionUUID->"88e14da9-8532-e842-b722-\ -1b0781de8eeb"], + CellChangeTimes->{{3.9917997336698074`*^9, 3.9917997367747993`*^9}}, + CellLabel-> + "In[112]:=",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 93, 33, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323698915848*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.358954528219119`*^-209\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 112, 29, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323698915848*^9, 3.994251779783744*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], +In[112]:=",ExpressionUUID->"0d039349-8be5-46b3-9384-5c75ab9cddfd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 93, 34, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323698943981*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0936864967560232`*^-214\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 112, 30, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323698915848*^9, 3.9942517797951393`*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], +In[112]:=",ExpressionUUID->"42dede76-6660-4acc-af2b-0c64d70c7963"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 93, 35, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323698971981*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.80198806029214`*^-220\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 112, 31, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323698915848*^9, 3.9942517798060627`*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], +In[112]:=",ExpressionUUID->"e3d8f64e-691e-403d-97af-b3868b2e8f49"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 93, 36, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323698986994*^9}, +during this calculation.\"", 2, 112, 32, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323698915848*^9, 3.994251779815711*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], +In[112]:=",ExpressionUUID->"661aedbf-32ea-43d3-baf7-ff16cf039e82"], -Cell[BoxData["18.521732102530788`"], "Output", - CellChangeTimes->{3.991323706795576*^9}, - CellLabel->"Out[93]=",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +Cell[BoxData["15.724584925831056`"], "Output", + CellChangeTimes->{3.991323706795576*^9, 3.994251788835711*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"533b1f37-a4fa-41b1-8e0f-511ddda9cbd1"] }, Open ]], Cell[CellGroupData[{ @@ -8712,21 +9441,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991799742384985*^9, - 3.9917997459840527`*^9}},ExpressionUUID->"fcd1131c-ba92-0b46-817b-\ -e5f89f4ec38f"], + CellChangeTimes->{{3.991799742384985*^9, 3.9917997459840527`*^9}}, + CellLabel-> + "In[113]:=",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], -Cell[BoxData["0.038552612544494616`"], "Output", - CellChangeTimes->{3.991323706858589*^9}, - CellLabel->"Out[94]=",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +Cell[BoxData["0.10654027898310978`"], "Output", + CellChangeTimes->{3.991323706858589*^9, 3.994251788887616*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"030bc7fd-781e-4d7e-920e-92e0ac527f13"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9917997487290344`*^9, 3.991799750684988*^9}, - 3.9919243164025135`*^9},ExpressionUUID->"c771f2bd-f081-e54a-b4e5-\ -bf0dbc996ac3"], + 3.9919243164025135`*^9}, + CellLabel-> + "In[114]:=",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ @@ -8748,11 +9479,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", - CellLabel->"In[96]:=",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], + CellLabel-> + "In[115]:=",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], -Cell[BoxData["19.580504093356314`"], "Output", - CellChangeTimes->{3.991323706886154*^9}, - CellLabel->"Out[96]=",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +Cell[BoxData["11.93997932982959`"], "Output", + CellChangeTimes->{3.991323706886154*^9, 3.9942517889127274`*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"b7effd42-586f-4dc5-80dc-95847186c230"] }, Open ]], Cell[CellGroupData[{ @@ -8761,11 +9494,13 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", - CellLabel->"In[98]:=",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], + CellLabel-> + "In[116]:=",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], -Cell[BoxData["0.8477067309358528`"], "Output", - CellChangeTimes->{3.9913237069236546`*^9}, - CellLabel->"Out[98]=",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +Cell[BoxData["3.0370797540828125`"], "Output", + CellChangeTimes->{3.9913237069236546`*^9, 3.9942517889274282`*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"8c14afe4-449e-4259-bbdf-32b121dcf1d9"] }, Open ]], Cell[CellGroupData[{ @@ -8775,12 +9510,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[101]:=",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], + "In[117]:=",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], -Cell[BoxData["16.598525115055164`"], "Output", - CellChangeTimes->{3.9913237069753113`*^9}, +Cell[BoxData["36.26266948679272`"], "Output", + CellChangeTimes->{3.9913237069753113`*^9, 3.9942517889419403`*^9}, CellLabel-> - "Out[101]=",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] + "Out[117]=",ExpressionUUID->"c88205e1-c3f5-493b-af40-87cb3c113af0"] }, Open ]], Cell[CellGroupData[{ @@ -8970,12 +9705,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[102]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], + "In[118]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], -Cell[BoxData["0.02467166981689615`"], "Output", - CellChangeTimes->{3.991323707000412*^9}, +Cell[BoxData["0.004613279024601604`"], "Output", + CellChangeTimes->{3.991323707000412*^9, 3.9942517889589977`*^9}, CellLabel-> - "Out[102]=",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] + "Out[118]=",ExpressionUUID->"cf44cc6d-c133-47ac-a3eb-0d2ce873d93e"] }, Open ]], Cell[CellGroupData[{ @@ -8989,12 +9724,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[103]:=",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], + "In[119]:=",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], -Cell[BoxData["5.642163519289108`"], "Output", - CellChangeTimes->{3.991323707203314*^9}, +Cell[BoxData["13.047883767276804`"], "Output", + CellChangeTimes->{3.991323707203314*^9, 3.994251789155911*^9}, CellLabel-> - "Out[103]=",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] + "Out[119]=",ExpressionUUID->"5b19cf03-6781-4909-a110-5698163db1e6"] }, Open ]], Cell[CellGroupData[{ @@ -9186,12 +9921,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[104]:=",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], + "In[120]:=",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], -Cell[BoxData["0.012834083028601704`"], "Output", - CellChangeTimes->{3.9913237072224197`*^9}, +Cell[BoxData["0.025344168871564068`"], "Output", + CellChangeTimes->{3.9913237072224197`*^9, 3.994251789176236*^9}, CellLabel-> - "Out[104]=",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] + "Out[120]=",ExpressionUUID->"68be6365-97b0-47b4-9250-b2421e7e9874"] }, Open ]], Cell[CellGroupData[{ @@ -9205,12 +9940,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[105]:=",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], + "In[121]:=",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], -Cell[BoxData["7.82280524717004`"], "Output", - CellChangeTimes->{3.991323707432623*^9}, +Cell[BoxData["5.566803784861548`"], "Output", + CellChangeTimes->{3.991323707432623*^9, 3.994251789376771*^9}, CellLabel-> - "Out[105]=",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] + "Out[121]=",ExpressionUUID->"d68f6365-66ac-458c-8545-ffb992007bcf"] }, Open ]], Cell[CellGroupData[{ @@ -9303,12 +10038,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[106]:=",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], + "In[122]:=",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.9913237074497375`*^9}, +Cell[BoxData["0.11740730280317517`"], "Output", + CellChangeTimes->{3.9913237074497375`*^9, 3.994251789392111*^9}, CellLabel-> - "Out[106]=",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] + "Out[122]=",ExpressionUUID->"ddb31899-736a-4332-8c7b-2133ab14cec4"] }, Open ]], Cell[CellGroupData[{ @@ -9398,12 +10133,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[107]:=",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], + "In[123]:=",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.991323707467621*^9}, +Cell[BoxData["0.8825926971968249`"], "Output", + CellChangeTimes->{3.991323707467621*^9, 3.9942517894080467`*^9}, CellLabel-> - "Out[107]=",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] + "Out[123]=",ExpressionUUID->"1b62aae0-2c06-453d-9432-3ac4ebf5f642"] }, Open ]], Cell[CellGroupData[{ @@ -9526,12 +10261,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[108]:=",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], + "In[124]:=",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.991323707488617*^9}, +Cell[BoxData["0.10362282805165872`"], "Output", + CellChangeTimes->{3.991323707488617*^9, 3.994251789424917*^9}, CellLabel-> - "Out[108]=",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] + "Out[124]=",ExpressionUUID->"1789c5d5-1118-45d5-8516-093cb066d017"] }, Open ]], Cell[CellGroupData[{ @@ -9546,30 +10281,33 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -9593,68 +10331,74 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991799766323864*^9},ExpressionUUID->"ee2d2671-1677-5943-bf7a-\ -6ffa36275fe8"], + CellChangeTimes->{3.991799766323864*^9}, + CellLabel-> + "In[125]:=",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 109, 37, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237075117207`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.927726019409426`*^-222\\\", \ +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 125, 33, + 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237075117207`*^9, 3.994251789448289*^9}, CellLabel-> "During evaluation of \ -In[109]:=",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], +In[125]:=",ExpressionUUID->"15862d1b-e8ad-4ba1-bdf9-ae7a9ad3c832"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 109, - 38, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323707545618*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2600798712396248`*^-227\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 125, 34, + 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237075117207`*^9, 3.9942517894612494`*^9}, CellLabel-> "During evaluation of \ -In[109]:=",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], +In[125]:=",ExpressionUUID->"1123d0ff-517f-4a87-8769-14d43ffbfa91"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 109, - 39, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237075757256`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.678600995903419`*^-233\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 125, 35, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237075117207`*^9, 3.994251789470937*^9}, CellLabel-> "During evaluation of \ -In[109]:=",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], +In[125]:=",ExpressionUUID->"729f4faf-f6f7-4040-a8a6-197d96c0f38d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 109, 40, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237075926247`*^9}, +during this calculation.\"", 2, 125, 36, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237075117207`*^9, 3.994251789483876*^9}, CellLabel-> "During evaluation of \ -In[109]:=",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], +In[125]:=",ExpressionUUID->"f70afa64-e63e-467b-877b-b76f3c6ddf8d"], -Cell[BoxData["5.642163519289105`"], "Output", - CellChangeTimes->{3.9913237161181736`*^9}, +Cell[BoxData["13.047883767276808`"], "Output", + CellChangeTimes->{3.9913237161181736`*^9, 3.994251797006494*^9}, CellLabel-> - "Out[109]=",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] + "Out[125]=",ExpressionUUID->"5dbb04fd-15e4-4966-943f-5f1600914f5d"] }, Open ]], Cell[CellGroupData[{ @@ -9669,30 +10413,33 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -9716,68 +10463,74 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9917997699328365`*^9},ExpressionUUID->"b0b1035a-0fdf-b146-a71f-\ -1ab9142a9a90"], + CellChangeTimes->{3.9917997699328365`*^9}, + CellLabel-> + "In[126]:=",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 110, 41, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237161871567`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.927726019409426`*^-222\\\", \ +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 126, 37, + 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237161871567`*^9, 3.99425179706434*^9}, CellLabel-> "During evaluation of \ -In[110]:=",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], +In[126]:=",ExpressionUUID->"c1e9e27b-26da-4412-87e5-023b2a322690"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 110, - 42, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237162070637`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2600798712396248`*^-227\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 126, 38, + 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237161871567`*^9, 3.9942517970730143`*^9}, CellLabel-> "During evaluation of \ -In[110]:=",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], +In[126]:=",ExpressionUUID->"8408ba37-ccd1-4345-89d9-80aa36b36ce3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 110, - 43, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323716227171*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.678600995903419`*^-233\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 126, 39, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237161871567`*^9, 3.994251797082102*^9}, CellLabel-> "During evaluation of \ -In[110]:=",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], +In[126]:=",ExpressionUUID->"1cfb54a5-912d-41e4-9ae1-c406a4ec5808"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 110, 44, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237162481613`*^9}, +during this calculation.\"", 2, 126, 40, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237161871567`*^9, 3.994251797094716*^9}, CellLabel-> "During evaluation of \ -In[110]:=",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], +In[126]:=",ExpressionUUID->"4735f255-8338-4df3-8cbb-4904ad28f784"], -Cell[BoxData["7.822805247170038`"], "Output", - CellChangeTimes->{3.991323724852854*^9}, +Cell[BoxData["5.566803784861553`"], "Output", + CellChangeTimes->{3.991323724852854*^9, 3.994251804435172*^9}, CellLabel-> - "Out[110]=",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] + "Out[126]=",ExpressionUUID->"cffed716-c0d4-4023-91dc-b16d2559fd5f"] }, Open ]], Cell[CellGroupData[{ @@ -9835,95 +10588,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9917997843341885`*^9},ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-\ -ff25938e6592"], + CellChangeTimes->{3.9917997843341885`*^9}, + CellLabel-> + "In[127]:=",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Hk0VesbB3ARGYvckKkIhURm5XqeMmVMInOGc842JOqQUNFEk0TDTfcq -kgoZkiTykyKJUxTNqW2sZJ6rc/J7/bHXXp/1rP3d3/d913pVgiJdWfx8fHzf -yDP33v1izcqK1hcWf2Lzgtx0eWAxlGsUZFUI8cfcjm4lprOMz6tZVUOjRsh3 -F2IX5nMhcYMncG5DT7ojcWlsYp2gFQdk/JsO2BCfaJCrTSx4CS9yFIssiCtb -d1/h6r+GJk7HMiPi/g9N++MevIN4M6k3msTyvSt8piw/QX1nVYsiscPwfrMo -zhfo9v4ivpC4htsvFlvQCclvjpzmreHBm0Oy++5FdMNt1eItP4iHhKz6J/R7 -oSmf6fWWWChll5fBdB+cZxfnPiJWlrrcuPvBN5Bcfs6ggNhZYerGkOUA5D52 -VowhprJVZXSEh0BTzDTGizhRfXPSDs4wqHyhpdcTv5NtXxtdMAquyZnyP3V4 -wPQOCz2XMgYOqQ1HXhOPZPJdvRMxDlqnPuvdJhZW1ZEc1Z+E84ckPAKIzzPr -bCWXTIFoGrYaES+/6ZWoOz0F8v+7dFqE2HR18tDOBzNwdjOv/dZqHoQYf+H0 -W3JBOYKR8VGbBxOxe+aLavDgis1lw2vEBx+ImWsK/wGthpNLQokz0PRWMGcW -gkXarg9rkX7XG63YBfPQszae/5smDwoaztGHFPgx83ZJw1Xika/b96en8OOF -PMdWL+L9WpNltyMEMDpA7W79KtK3RGXFsL4grv3X8FHSSh58aB2o+XNNEH8b -nSlbS7x8rMJ74RIhZA+uHvhIehUaOp/VmRZCl6ICPW3i+sr4eeEPhDFIYrlo -uRoPJuvavnyzFMdUzUjFGBUeLHYUl9xXI46cYQMx3nIe6LVboYSZBCrP8548 -RBzWU569ds1C/Bp+oTppGQ928XP0/haXxKsGxxT3KPGgV7V4NGlKCkeHx13H -5cj+UE0iLQaL8USku5Q3Mf+tPhW53YuRW5j7okaW9DVY5lrwYzFGjInZHpbh -gbdl2p0XtDQOPV9pPCrNgxYGO0q2eQn6aZ2wi1zIg883U08FCMvg3/0MmXsS -PBj4UXAt31oGc14f6/slzgPR6O629bUyGDLZkZ4gxgOro26GAeWy+Etkq1KE -MA+qco0n87KWYkkH23loHg9ye3/FrItWwrxz8/ftGefCJvdjn6OKlLCj89Lr -02NcGKiXtinqU8KxDfYJuaNcMMxdvWS5lzIWq9o84AxzoT5oe5mgxTJcU9Ey -IDzAhbFheu+3I8txrZ1enF4PF6R3Wt0tc1LFxXoVhRZtXOjLFQ1xCVPFXH+l -PSqvuHD/U6vCYLIqshbN/sP/kgu+jn5HNGpV0bfoybeHL7iQqx3jekl/BSqM -sFs0msj/+2+OJMiq4eujOQI3arngFiymY9+pjnZyvpPhhVyAGHd9D546tord -9Fa9xQWtpCwT5lIN/GzUZvwmnwt81ww2JmzRQKxNdje7yYWizz4edx5p4H9y -caaDV7kgtK3wkHzOShR7Oj0ldpH0s3J60x+kiR49owdXHeSCguqZxFM9qzG9 -0v3wjBMXqk9OaP7k18ErHoPa2o6k/7hXO6Wig8VOFtq+9ly4Uq+muXG7Dk5s -rNeptOGCanDVq5m3OiiYcdTdH0i/wl51qnkNLin6t8lXjwtKCsrUci89FFrx -zzoVKS6svh4t/hv0MVTOUvvn899wla3mUs4xQquEvWELN/yG1hgwOXrdDN0U -oVnh/C9Q2f7a2S/8b6ytLdL9+/1PYM3eK1aKQzTs7i6sU/4Jsj/uL5AN2ojG -0lsuZdjPQLSB+aezWlb4y661VDphGoIGuY3S/dboXDHJlLwzBUUboxZktdii -9liN+ta2ScidCHtUeN4OXUoDLjvPn4SZDXLP6xMd0N/aquedxgR08AmMdgY6 -oUZep4ua6zhEKEamHVqxGa0/lSWuSx+D4tDG2gtJLlhT1jkl+HQU4seXTmuH -bsEDi/4TzJUahUl7m21P/V2xPVCJVeE+AmY+6Rt6t2xF3/yXD/Mdh+HV0sth -9QZuCD2RFUoyQyB/40h13ip3XHM6xa3u7QDcp7UcnSW2YUBd5qLihz9AuX0k -OGZwG+ZUJR8cr+4HgwvphddoD7RI8q/JKf8Ol+ePrzlb54k3P/zSqWv5Bvc2 -6H5IqvTC2FTPC65fv0KGyUkpboE3bhw6HseQ/gotH68nG6T4IPues8h1nz4o -d8pU23XQF+vTQncM5vTC6M6tfBFMP+xxVxROFeiFSRvNkCHL7Sj3ZGSBQFQP -5A2+n4ky9kf87Fd5q6sbPK9eZ/iJB+Cd6ANqhsHdUHbHwV/gWAAmqsVXCwx2 -gZnCq58nfgagVrhgSGBSF6yggz+8DA3EGQlRFy3NLugR27E5szsQIz6vFjBp -6YTWVGeGrXsQzr+abuJ9tBPOx2aJ7WkNwjvPnug+Nu+E6prZnww7BhpcmFr9 -dJaGtY8MTVc6MNAdgssm/tBwoy40pt+RgZL//ilXJU5vbBvb5cLAkZAQ3YNc -GqhXN38c8GBg4I7/RvEnDVJ9mzsussj8v7U334+RuUR2bfMhBlqw/GKC+2hY -5IvHDKoYyF9qWjn6goblfz1tUaxmoFW7S9UaYj2Ok5xQDQPfF8TZhT+nwdXc -J//dIwaeV38o9b2ZhvOKMc0HnjGQkx+86XsjDfIdtxY1vmPgXvkGnF9Hg9p2 -2QzfaQYeF7s/ca2CBrOAobwkQyZ2mZRbH8sh67k0EuVszMTx25Wjo1dp+Ktt -zELWlImx+2Jl/IiHrKfb89Yz8bv972eG2TS5b/jmcTYycXv6+Nvvl2lYOC3l -tXgLE5O4Fclhl2joOW0kkrWTiZlLznx/kkbDlqcm7cGRTOwfs7oExDV867L0 -djPx8Zq9tZVnaLgUZWH0OJqJWnrae0pSaXD2sg3s3cfEMW1OTHYKDZVqXpXa -J5nIaeh+lXGchtQH+0Pv32CiRk9+SddBGnbqXzSLzWOi2G+3CzuJHfNLRUwL -mLharH5gJpEG0Yt9+RVFTBS68GJEkjiJ7dJ/7y4TFcOrHG0O0LBfU21H+WMm -mgvpOjXE0RB2sTn8zmcmrlugZa4QRYPdwj5zNs1EWuCqw102DauS+CT0u5iY -EjLU7ETcxzYqKu1lYsjdEeXDu2kIdM4avD3ARAHhNomRSBo8BaMiSn4xUVlQ -XaQznAbbKPldhTIszHhnsUk2mIbHWcn2Z+VYGDNDd9yjaDDnjKnFyrNwm0Dg -9DZiPfXm95bKLHzj8qk8g0XD0rf7LD+qszB464C/KpOGH+s6ZESNWOh4ZCbQ -OZCGM/zZ/wveykJ+SfkBYV+yfl3xDCd3Fgr7Rw/f96HhqE8s28CDhZ+MOHtC -iWPvuqyc9WahiqaPGMeb9Kfmpf8TxCLnYet10YsGg6Yg5pPdLBQ15t9n40HD -23R1sRVpLOTWxRUJbaWhGCRCvqWzMKejZmOzK8kfnKgvOsfCqpIouzRifbv6 -BNOLLOxapnhLgTiVjzHmdIWFD7yma0y20GATmf0+tpCFus5h6kmbaVBSOm5s -UczCsA2tLS7EE02R5wRus1BmQcgPReIcDXBKLWOh2zXlmHvONPA6OmqvVZG+ -otbvh5xouOuokPeikYXVhXvboh1pOPWLX/B8Ewu9hX3O2BIH5fUHenFYeEF7 -XbU8seT8KoWeFhaOeX4JeexAQ/gDzzM/37CweCpSQpZ4hdY/MWq9LIw1WXro -tR0Nv94eaPvex0JjbTeHEuLWJJZeyTcWnrnrm3yCOKHTsN9sgKxXguMMxB8y -2vw2j7Mwbv2nVbc30XB2gZR1/DwKM9dnzd6wpaF6rMMnWoBCt6BZ86PEXzsK -2BGCFJ48XisURGx+1yo7SITCAX5vWEbcFxD7216KwsO5l6yybUh/R+vF1tIU -agWX9hwiXm+yWBOWUOhXLy3FJE6TKNxmsJTCHv7ihVpz86ovpQoqFGasGs+s -tib30fXCxiUrKCzll8/KIU5Li/uySJ3CbYqxOieI+yhpifmaFNbavhzymJtL -24YM6FHIrKwW4FrRUPVHOrFPn0KbPUHBfcS93+kLtCGFe5fperwkXlcbX9du -SiE/z+hjHnFPeLHy/5BCjfvPorcTL/TcZ1SxkUKpnTFmTsRmlpscS60oTGs0 -P2lOnLq0K+76JrL+cslWReL780vSsuwpvHJM4YkEcffwvpuXHCmMTlxnM2tJ -g2nDktenXSjM6ysZ6CYOKu36ccyVwokpgcVviU9nlvAfdqPQOjK4rom4i22n -F+NJYby/Z1MZscR2Gdtd3sTvu5flz+XZdfuF+VJ442H8vKy575cdOLU9gEIH -76chKcT3Re1zPIMoXMTeN3RkLm9SptKVSSG72oRv/1xeZ3eLI0X6nfh9OXou -j3O7zyaEQmOjhqc75/pVHOBhGIXDKy8eCJ7Lz7H/a304hSJvdj4MnMs/Latt -FEH2r9butO9cfmzPBt1dFKawtb56EIszSz012eR/yYuebyU22ZwQuSKanGf2 -jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc -+bu0SWw/hdXtDxNs5/K/JnQKJlB4L7Cy0IbY+JXDzGwihXdellNz/j8009f0 - + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk4VdsbB/CTqTJlyJQfyZhK6RwKqfWGlDGEiFyOs7e5DOUK0UR1yVw0 +GDJEQkjJVCqVOJXb6EoiU+eY7UxFfssf+9nP51nP/u7vWs+79zrmUTuCh0aj +/cDX0j3ozWaN6rY3u8T8coru/MdBu0bzdZkmJWj58frXS+7O3pamalKP/IRE +d5Zg27BeCwgznqNkrcvTS64Ii37Gb8JG0GH7qxT74gvZxujifxF7lcm+u9g1 +bUFZ8/SPSJPt112Oze1oiTxR145KhF89rcRe06/iMm3ciXTeuIxVYVuMReqH +sL+hnSKqZDX2o3muUFhxD2I/X6dRi/3ptEzEgyO9yIGypzdgjwqYcH/S+9Hn +pIbzjdgC8YHOjJkBNJrhotGErSie2RxU9wPl828Rb8a2lp++NWo8jF5OHn/W +hk3mKEtrrRhF/AQn7iN2tNr+GD/2GDq6NiWrA7td5sPWY8UTSM3ibG4/NuuQ +r09q/CRyKG5NHcIev0G7WXmEQiVaZm8nsFcoa4lN0KcQ8Xev6iJ2GuvZXjGp +aTSlQUMCHRykVOgcvWVmGv1ss80TwdbbFDsaUDeL/L+kmitge2/7xuYaz6Nd +HsmSgP0z7DifoPoCqveyjzbDPlUnZKi54g9Km7XQPYCdAXp3vNiL6FlYe7QX +Nqug2SS4eBm8kSESU7GLX6R2n5bngbb0Fsts7PFBt8jkeB7wlmLZ38GO3DB1 +r/wIL0TV0I2asNPurlMZo/PDKTfDjDnsjrbhR3/y+OF2LCpc/gX3n6w+JCol +AK9poTRp7BId6xStGQGwjo9MZmA31YQv869bAWOWI1rB2FPP3n/7YSwM5Sam +NgvYEpbCYhGPhEG+yjdDvJODtD+YgIi+CKj5PN2uju3bdz9n62ZRSOQVirTB +DuRha+8UFgOXgPk1t7H7lcsmYqbF4cJJ/Urfr/h8yJaVbxkS4Lo8KuAcNs+d +gXWyQRLwLx8VnYWtxFhrVzwkAbOXAorfYx8yTqp80y0Jn+WzpYy6OOitZ3CI +TKsUWE49M9nyjYO6ChPi3FdIQ7LDdLA19vBQcd7tPdLgXugwG4AteKz3/Y5G +aRDUuLaiDNvknL2O+30ZuJLDQPRuDqrN3zZVlC0H/0Qd4bPo4aD8/l+hBscU +YOXfoiMNvRy0z+F8V0ipAhy0+cLoxx5ukjQtHVCAp843Xwj3cZBO/iYpJWdF +uDMo0+aK3cR0u8e/ay3sMCgMpvVz0ORY998/ziqBztZV0w4DHCQZYFJ1z0oZ +yv5wKH0OBw3kC3rb+CqDd5VFjS/2w842+ZFYZeB8utFyHdvV8vBZ9UZleMkj +/O8f7PyNoXZX6SoA21YHNHPx+7mF41EyqlAhG9njM8xB9l5CWuY9akCtEqzp +H+MgFOpAP7igBq4iTp8UxzloQ0z2dpacOjzKvmLohE3LYxhF2arDtZHe3lbs +0i6Xg5VP1CFv8l7mgwn8fTqWnF6TqwHbP79uuErhfiZWn7hMTXBr55ZcmeGg +vAPpX2aiNCEpNGKwHTuB2dPNd10TLr8b9ZWfxfN96viQ4ntNyPwWYXkTW7w+ +k3bAeAPQuevCy+fw/DBGN9SpbITgC9rRnb85SF45MTqubxO8aGnd5Efjovp/ +fmrO8WgBt/HBj3psV8r5A7lOC77L2P0SXcZFWU2qmkZuWqAhnq5Yha3sVftu +9rMWCMqa+vHwctGGkn41snUzpJ1LW32Xn4sU5BVJJWdt2J+ZfXOfEBdtKjgm +/BvRgaFx8u9IGS5iss5OaVnTYVl1eVUndoZKSpe7Kx1mRJ0Md8pyEW/u3fIX +YXT4PfpnwyJ2RxbXPqWCDntV0mNi13DRxQz3TE0VBtTJGW7JU+CigTjLzU4C +OkDsiLZercpFN4NVbe6zdeFDu1zcx61c1BaKtp8r0Af/g8flcw5w0Tq3j9aH +/XfC3VfL/0iGcxGx+KBM4QRAq/r01dxcLpIZerhchmkEHwmv6xXvuegYw7Az +ZYMJeEsEeegLDCHmyHyzJHcPLE4npakbDqFSo5Dl2W/3Qkesru+5iCGU/9P3 +SUmaGSy+9dBUrhtCs7tlXzdFW0BFzKvt/XzD6CuNd6LHwwoETm2MXWU3jI78 +72jSaZX9oPd8d6RG1jAq82luvBxjA673b0QITQ2jcEpuZqOPLTgaLlyRMh9B +U+amji//sgNO6atbdsUjSN8leXe/7QGQ+lPyu1p4FL2Ty/RtYthDYd/Yhed+ +o2jNrbP1ResdwLVn9wvZT6PoYfcGS2sRR+gMsr2kajiGFD+Me4WOOEIQS6Qy +PHcMMS4nl+R1HwT/BY3A9pXjKJOP2pzyzAkcGyVsT6Nx9GD3lo6YGme4+rRI +zDF8HGVs/0d8vvgQ7B1U0jxXNY7efimIZcS7wMfwzNMc7ji6b3VDNfCUK6Q+ +Nk5+ojaBJgIO0I6wDkPz5TcdJq4TaMpU03vU2A0UPTw6BJMnUNHIf7Mh2/4C +Xk/bTztfTSCnmwWeh4XdQXt8dL3b/AS6V2nxF+95d+iUEkrioU8iffl3cxfn +3GFeyd5HljmJVLq9Ov718YDHjt+ThBMnUZ+Q3/4bvR7wppTvBF/DJGpLsPbc +68AEBz1d6fm+SZQWli10vI0JKwx73j0RplD9o8U5TzNPqNE+fmZgC4VWucJ5 +Rq0npBqsrRuxpJDS6pdv/1fvCU7tO8w9rSikzbaSFXjkCWsLW5Lase0MXW63 +P/GEguZfxk+tKZT2v9DWk688gfdeC6TYUGjN1zurmts9oUHpWIyqPYVU3WQy +XGc8wSBjy0txFwrpu48WxeiwgHHhZamQN4VuXR0Psd7Ggnh1TUFv7NXvJ3fJ +6LEgIaxDpQl7dM/Mh6IdLDB7PJ8Q4UPh/xdtGduIBW/2TBkN+lJIdEbcWcKW +BeyUCJnKAAr1XdJdmR3AgsCcYmWpEAol1EX6PLzFAoPZ3EOiJykUQE/XDyti +gekUn54TtuXtipV6xSz4blP57ia2YPrA7epSFjRrtCCdKArFBNtwH1SxgLlp +ZMYhmkKRmqp+95+yYEeIeHv8aQr5prf6V3axIEB1Ua45hkJmogOGwd0syOg+ +kbgylkLrY2gi9O8skGRpPDHHHgjWLa3oZ0Hl6zknNraHdfZI+TALQmzTndnn +KeTEH3Lk7i8W/HS+nf74IoX2hqwJLJEmoFIpui34EoWeZseap8gSICRakViO +bcieVA1bQ0C+4djCCLa2Wut/xooE8OT5DXolUEjuc4TxFzUC4oXJkYOJFBoy ++CotqEuA3KPUhvXJFErkyWnwOkDAf5of6JfS8P63CGdYORCwRyPvaSP2OZew +YMZBAg5pHKX9xA6rstFYPEQAx/tbjPNl3J9clnyFSYDrestqpSsUYrQwWc+D +CCgTbC/NTqfQ52Q1IZUkArruGD/86xqFypCI949kAq6xaQax2OdGfjaVphKw +Syc1pASbbtYUpZdOwKZmFdFZ7ASa56RVFgH0bJ/uuOsUMj2a819YCQGDDw5M +FdygkILChW27ygg42qY4+RL7Z8vRVN5yAq5uDbnFwc5VR1YJ9wgIWH1Ld1Mm +hRa+fm3MqyWgLrB2pBS7ylK+6E0zAbI6I415WRSK+8XDn9aCz2PBUucJNrOI +6+HMJuBBNOXWhS3GVyvf95aAXwf4O2SyKeRf55Q494kAm5F35HlslQ1XQlX7 +cZ8s7menHAr9+nzyPWeAgBuHFhqCsNtiCO27PwioeaLg8g92VI8OV3+YgNbr +4bW12B0Z7w/vpwiI7bcQkb1JoZTl4nvCl5FwOqyQ9hy7fvKryzFeEtI7Wsq+ +YA9+LQ4+wk9CmQJ72SS2YZVJDnMlCXm5zlcUcvG8uYf9NhcnweTozhOB2GKW +eyT2SJJwVm/Y6hz2ju0SmkiKBL21h1+mYyeJlDgy5Eh4HB1W1LC0XvutQn4d +CbyBSIU/j0JkQUmzlAoJzVlFCtLYSUknvq1SI4E1UFevjj1ASorwaZIw1fHx +h+nSuuRe72FtEm65Jcyewa79Ixk9QCdBZ/yPTDJ2P6f7crcOCTOO/J1Z2AaN +4c8+6JEgntNiW4Pd51+m2AAkJFv/pjjYok4RutVGJBRad22fwtY33mdZYUKC +Up6pEi0fz4vc9xMF+0jg18jpWo39kO9uUrY5CbPcS1WK2L1jEYVXLUnw2fRr +83psvRdSHy/Z4LzpveIG2MyK70Pn7UjIiVc/YYR96cZdnjP2JDBrT8aYY38P +NtMOdSLhVGZSnDO2iJv03sBDJFS0m8W4L+WZ9R72dSXBrjpUxWvp+bUn49zc +SUgQ07AKWeojaJ7rxCSh5mJRe9hS3pR0jR2LBP+8qyuilvJ6et9akiTcOTPX +eWYpj10+YOpNwjWXlw7nl/pVn1wAXxK8gnhC4pbyc81X7/AngZQu1klcyr8k +s1H3CAlzdxqupSzlh/Xt3hKI83INCy5jC7MqnDSDSZAIV7fPwN6+P+qoyjES +BhvDC68t5RtYxCqEkjC/Wj/7Bna8mmymTBgJO1U8dmRhPxDrvycejuetcDIi +G7vnd0WLUCQJoQEj7jlL+YNRPfxRJLRY23KXvO2dxexiNAkrdBVlb2L/H+4s +HJA= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -9937,107 +10689,106 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk0VesbB3ARGYvckKkIhURm5XqeMmVMInOGc842JOqQUNFEk0TDTfcq -kgoZkiTykyKJUxTNqW2sZJ6rc/J7/bHXXp/1rP3d3/d913pVgiJdWfx8fHzf -yDP33v1izcqK1hcWf2Lzgtx0eWAxlGsUZFUI8cfcjm4lprOMz6tZVUOjRsh3 -F2IX5nMhcYMncG5DT7ojcWlsYp2gFQdk/JsO2BCfaJCrTSx4CS9yFIssiCtb -d1/h6r+GJk7HMiPi/g9N++MevIN4M6k3msTyvSt8piw/QX1nVYsiscPwfrMo -zhfo9v4ivpC4htsvFlvQCclvjpzmreHBm0Oy++5FdMNt1eItP4iHhKz6J/R7 -oSmf6fWWWChll5fBdB+cZxfnPiJWlrrcuPvBN5Bcfs6ggNhZYerGkOUA5D52 -VowhprJVZXSEh0BTzDTGizhRfXPSDs4wqHyhpdcTv5NtXxtdMAquyZnyP3V4 -wPQOCz2XMgYOqQ1HXhOPZPJdvRMxDlqnPuvdJhZW1ZEc1Z+E84ckPAKIzzPr -bCWXTIFoGrYaES+/6ZWoOz0F8v+7dFqE2HR18tDOBzNwdjOv/dZqHoQYf+H0 -W3JBOYKR8VGbBxOxe+aLavDgis1lw2vEBx+ImWsK/wGthpNLQokz0PRWMGcW -gkXarg9rkX7XG63YBfPQszae/5smDwoaztGHFPgx83ZJw1Xika/b96en8OOF -PMdWL+L9WpNltyMEMDpA7W79KtK3RGXFsL4grv3X8FHSSh58aB2o+XNNEH8b -nSlbS7x8rMJ74RIhZA+uHvhIehUaOp/VmRZCl6ICPW3i+sr4eeEPhDFIYrlo -uRoPJuvavnyzFMdUzUjFGBUeLHYUl9xXI46cYQMx3nIe6LVboYSZBCrP8548 -RBzWU569ds1C/Bp+oTppGQ928XP0/haXxKsGxxT3KPGgV7V4NGlKCkeHx13H -5cj+UE0iLQaL8USku5Q3Mf+tPhW53YuRW5j7okaW9DVY5lrwYzFGjInZHpbh -gbdl2p0XtDQOPV9pPCrNgxYGO0q2eQn6aZ2wi1zIg883U08FCMvg3/0MmXsS -PBj4UXAt31oGc14f6/slzgPR6O629bUyGDLZkZ4gxgOro26GAeWy+Etkq1KE -MA+qco0n87KWYkkH23loHg9ye3/FrItWwrxz8/ftGefCJvdjn6OKlLCj89Lr -02NcGKiXtinqU8KxDfYJuaNcMMxdvWS5lzIWq9o84AxzoT5oe5mgxTJcU9Ey -IDzAhbFheu+3I8txrZ1enF4PF6R3Wt0tc1LFxXoVhRZtXOjLFQ1xCVPFXH+l -PSqvuHD/U6vCYLIqshbN/sP/kgu+jn5HNGpV0bfoybeHL7iQqx3jekl/BSqM -sFs0msj/+2+OJMiq4eujOQI3arngFiymY9+pjnZyvpPhhVyAGHd9D546tord -9Fa9xQWtpCwT5lIN/GzUZvwmnwt81ww2JmzRQKxNdje7yYWizz4edx5p4H9y -caaDV7kgtK3wkHzOShR7Oj0ldpH0s3J60x+kiR49owdXHeSCguqZxFM9qzG9 -0v3wjBMXqk9OaP7k18ErHoPa2o6k/7hXO6Wig8VOFtq+9ly4Uq+muXG7Dk5s -rNeptOGCanDVq5m3OiiYcdTdH0i/wl51qnkNLin6t8lXjwtKCsrUci89FFrx -zzoVKS6svh4t/hv0MVTOUvvn899wla3mUs4xQquEvWELN/yG1hgwOXrdDN0U -oVnh/C9Q2f7a2S/8b6ytLdL9+/1PYM3eK1aKQzTs7i6sU/4Jsj/uL5AN2ojG -0lsuZdjPQLSB+aezWlb4y661VDphGoIGuY3S/dboXDHJlLwzBUUboxZktdii -9liN+ta2ScidCHtUeN4OXUoDLjvPn4SZDXLP6xMd0N/aquedxgR08AmMdgY6 -oUZep4ua6zhEKEamHVqxGa0/lSWuSx+D4tDG2gtJLlhT1jkl+HQU4seXTmuH -bsEDi/4TzJUahUl7m21P/V2xPVCJVeE+AmY+6Rt6t2xF3/yXD/Mdh+HV0sth -9QZuCD2RFUoyQyB/40h13ip3XHM6xa3u7QDcp7UcnSW2YUBd5qLihz9AuX0k -OGZwG+ZUJR8cr+4HgwvphddoD7RI8q/JKf8Ol+ePrzlb54k3P/zSqWv5Bvc2 -6H5IqvTC2FTPC65fv0KGyUkpboE3bhw6HseQ/gotH68nG6T4IPues8h1nz4o -d8pU23XQF+vTQncM5vTC6M6tfBFMP+xxVxROFeiFSRvNkCHL7Sj3ZGSBQFQP -5A2+n4ky9kf87Fd5q6sbPK9eZ/iJB+Cd6ANqhsHdUHbHwV/gWAAmqsVXCwx2 -gZnCq58nfgagVrhgSGBSF6yggz+8DA3EGQlRFy3NLugR27E5szsQIz6vFjBp -6YTWVGeGrXsQzr+abuJ9tBPOx2aJ7WkNwjvPnug+Nu+E6prZnww7BhpcmFr9 -dJaGtY8MTVc6MNAdgssm/tBwoy40pt+RgZL//ilXJU5vbBvb5cLAkZAQ3YNc -GqhXN38c8GBg4I7/RvEnDVJ9mzsussj8v7U334+RuUR2bfMhBlqw/GKC+2hY -5IvHDKoYyF9qWjn6goblfz1tUaxmoFW7S9UaYj2Ok5xQDQPfF8TZhT+nwdXc -J//dIwaeV38o9b2ZhvOKMc0HnjGQkx+86XsjDfIdtxY1vmPgXvkGnF9Hg9p2 -2QzfaQYeF7s/ca2CBrOAobwkQyZ2mZRbH8sh67k0EuVszMTx25Wjo1dp+Ktt -zELWlImx+2Jl/IiHrKfb89Yz8bv972eG2TS5b/jmcTYycXv6+Nvvl2lYOC3l -tXgLE5O4Fclhl2joOW0kkrWTiZlLznx/kkbDlqcm7cGRTOwfs7oExDV867L0 -djPx8Zq9tZVnaLgUZWH0OJqJWnrae0pSaXD2sg3s3cfEMW1OTHYKDZVqXpXa -J5nIaeh+lXGchtQH+0Pv32CiRk9+SddBGnbqXzSLzWOi2G+3CzuJHfNLRUwL -mLharH5gJpEG0Yt9+RVFTBS68GJEkjiJ7dJ/7y4TFcOrHG0O0LBfU21H+WMm -mgvpOjXE0RB2sTn8zmcmrlugZa4QRYPdwj5zNs1EWuCqw102DauS+CT0u5iY -EjLU7ETcxzYqKu1lYsjdEeXDu2kIdM4avD3ARAHhNomRSBo8BaMiSn4xUVlQ -XaQznAbbKPldhTIszHhnsUk2mIbHWcn2Z+VYGDNDd9yjaDDnjKnFyrNwm0Dg -9DZiPfXm95bKLHzj8qk8g0XD0rf7LD+qszB464C/KpOGH+s6ZESNWOh4ZCbQ -OZCGM/zZ/wveykJ+SfkBYV+yfl3xDCd3Fgr7Rw/f96HhqE8s28CDhZ+MOHtC -iWPvuqyc9WahiqaPGMeb9Kfmpf8TxCLnYet10YsGg6Yg5pPdLBQ15t9n40HD -23R1sRVpLOTWxRUJbaWhGCRCvqWzMKejZmOzK8kfnKgvOsfCqpIouzRifbv6 -BNOLLOxapnhLgTiVjzHmdIWFD7yma0y20GATmf0+tpCFus5h6kmbaVBSOm5s -UczCsA2tLS7EE02R5wRus1BmQcgPReIcDXBKLWOh2zXlmHvONPA6OmqvVZG+ -otbvh5xouOuokPeikYXVhXvboh1pOPWLX/B8Ewu9hX3O2BIH5fUHenFYeEF7 -XbU8seT8KoWeFhaOeX4JeexAQ/gDzzM/37CweCpSQpZ4hdY/MWq9LIw1WXro -tR0Nv94eaPvex0JjbTeHEuLWJJZeyTcWnrnrm3yCOKHTsN9sgKxXguMMxB8y -2vw2j7Mwbv2nVbc30XB2gZR1/DwKM9dnzd6wpaF6rMMnWoBCt6BZ86PEXzsK -2BGCFJ48XisURGx+1yo7SITCAX5vWEbcFxD7216KwsO5l6yybUh/R+vF1tIU -agWX9hwiXm+yWBOWUOhXLy3FJE6TKNxmsJTCHv7ihVpz86ovpQoqFGasGs+s -tib30fXCxiUrKCzll8/KIU5Li/uySJ3CbYqxOieI+yhpifmaFNbavhzymJtL -24YM6FHIrKwW4FrRUPVHOrFPn0KbPUHBfcS93+kLtCGFe5fperwkXlcbX9du -SiE/z+hjHnFPeLHy/5BCjfvPorcTL/TcZ1SxkUKpnTFmTsRmlpscS60oTGs0 -P2lOnLq0K+76JrL+cslWReL780vSsuwpvHJM4YkEcffwvpuXHCmMTlxnM2tJ -g2nDktenXSjM6ysZ6CYOKu36ccyVwokpgcVviU9nlvAfdqPQOjK4rom4i22n -F+NJYby/Z1MZscR2Gdtd3sTvu5flz+XZdfuF+VJ442H8vKy575cdOLU9gEIH -76chKcT3Re1zPIMoXMTeN3RkLm9SptKVSSG72oRv/1xeZ3eLI0X6nfh9OXou -j3O7zyaEQmOjhqc75/pVHOBhGIXDKy8eCJ7Lz7H/a304hSJvdj4MnMs/Latt -FEH2r9butO9cfmzPBt1dFKawtb56EIszSz012eR/yYuebyU22ZwQuSKanGf2 -jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc -+bu0SWw/hdXtDxNs5/K/JnQKJlB4L7Cy0IbY+JXDzGwihXdellNz/j8009f0 - +1:eJwV1Hk4VdsbB/CTqTJlyJQfyZhK6RwKqfWGlDGEiFyOs7e5DOUK0UR1yVw0 +GDJEQkjJVCqVOJXb6EoiU+eY7UxFfssf+9nP51nP/u7vWs+79zrmUTuCh0aj +/cDX0j3ozWaN6rY3u8T8coru/MdBu0bzdZkmJWj58frXS+7O3pamalKP/IRE +d5Zg27BeCwgznqNkrcvTS64Ii37Gb8JG0GH7qxT74gvZxujifxF7lcm+u9g1 +bUFZ8/SPSJPt112Oze1oiTxR145KhF89rcRe06/iMm3ciXTeuIxVYVuMReqH +sL+hnSKqZDX2o3muUFhxD2I/X6dRi/3ptEzEgyO9yIGypzdgjwqYcH/S+9Hn +pIbzjdgC8YHOjJkBNJrhotGErSie2RxU9wPl828Rb8a2lp++NWo8jF5OHn/W +hk3mKEtrrRhF/AQn7iN2tNr+GD/2GDq6NiWrA7td5sPWY8UTSM3ibG4/NuuQ +r09q/CRyKG5NHcIev0G7WXmEQiVaZm8nsFcoa4lN0KcQ8Xev6iJ2GuvZXjGp +aTSlQUMCHRykVOgcvWVmGv1ss80TwdbbFDsaUDeL/L+kmitge2/7xuYaz6Nd +HsmSgP0z7DifoPoCqveyjzbDPlUnZKi54g9Km7XQPYCdAXp3vNiL6FlYe7QX +Nqug2SS4eBm8kSESU7GLX6R2n5bngbb0Fsts7PFBt8jkeB7wlmLZ38GO3DB1 +r/wIL0TV0I2asNPurlMZo/PDKTfDjDnsjrbhR3/y+OF2LCpc/gX3n6w+JCol +AK9poTRp7BId6xStGQGwjo9MZmA31YQv869bAWOWI1rB2FPP3n/7YSwM5Sam +NgvYEpbCYhGPhEG+yjdDvJODtD+YgIi+CKj5PN2uju3bdz9n62ZRSOQVirTB +DuRha+8UFgOXgPk1t7H7lcsmYqbF4cJJ/Urfr/h8yJaVbxkS4Lo8KuAcNs+d +gXWyQRLwLx8VnYWtxFhrVzwkAbOXAorfYx8yTqp80y0Jn+WzpYy6OOitZ3CI +TKsUWE49M9nyjYO6ChPi3FdIQ7LDdLA19vBQcd7tPdLgXugwG4AteKz3/Y5G +aRDUuLaiDNvknL2O+30ZuJLDQPRuDqrN3zZVlC0H/0Qd4bPo4aD8/l+hBscU +YOXfoiMNvRy0z+F8V0ipAhy0+cLoxx5ukjQtHVCAp843Xwj3cZBO/iYpJWdF +uDMo0+aK3cR0u8e/ay3sMCgMpvVz0ORY998/ziqBztZV0w4DHCQZYFJ1z0oZ +yv5wKH0OBw3kC3rb+CqDd5VFjS/2w842+ZFYZeB8utFyHdvV8vBZ9UZleMkj +/O8f7PyNoXZX6SoA21YHNHPx+7mF41EyqlAhG9njM8xB9l5CWuY9akCtEqzp +H+MgFOpAP7igBq4iTp8UxzloQ0z2dpacOjzKvmLohE3LYxhF2arDtZHe3lbs +0i6Xg5VP1CFv8l7mgwn8fTqWnF6TqwHbP79uuErhfiZWn7hMTXBr55ZcmeGg +vAPpX2aiNCEpNGKwHTuB2dPNd10TLr8b9ZWfxfN96viQ4ntNyPwWYXkTW7w+ +k3bAeAPQuevCy+fw/DBGN9SpbITgC9rRnb85SF45MTqubxO8aGnd5Efjovp/ +fmrO8WgBt/HBj3psV8r5A7lOC77L2P0SXcZFWU2qmkZuWqAhnq5Yha3sVftu +9rMWCMqa+vHwctGGkn41snUzpJ1LW32Xn4sU5BVJJWdt2J+ZfXOfEBdtKjgm +/BvRgaFx8u9IGS5iss5OaVnTYVl1eVUndoZKSpe7Kx1mRJ0Md8pyEW/u3fIX +YXT4PfpnwyJ2RxbXPqWCDntV0mNi13DRxQz3TE0VBtTJGW7JU+CigTjLzU4C +OkDsiLZercpFN4NVbe6zdeFDu1zcx61c1BaKtp8r0Af/g8flcw5w0Tq3j9aH +/XfC3VfL/0iGcxGx+KBM4QRAq/r01dxcLpIZerhchmkEHwmv6xXvuegYw7Az +ZYMJeEsEeegLDCHmyHyzJHcPLE4npakbDqFSo5Dl2W/3Qkesru+5iCGU/9P3 +SUmaGSy+9dBUrhtCs7tlXzdFW0BFzKvt/XzD6CuNd6LHwwoETm2MXWU3jI78 +72jSaZX9oPd8d6RG1jAq82luvBxjA673b0QITQ2jcEpuZqOPLTgaLlyRMh9B +U+amji//sgNO6atbdsUjSN8leXe/7QGQ+lPyu1p4FL2Ty/RtYthDYd/Yhed+ +o2jNrbP1ResdwLVn9wvZT6PoYfcGS2sRR+gMsr2kajiGFD+Me4WOOEIQS6Qy +PHcMMS4nl+R1HwT/BY3A9pXjKJOP2pzyzAkcGyVsT6Nx9GD3lo6YGme4+rRI +zDF8HGVs/0d8vvgQ7B1U0jxXNY7efimIZcS7wMfwzNMc7ji6b3VDNfCUK6Q+ +Nk5+ojaBJgIO0I6wDkPz5TcdJq4TaMpU03vU2A0UPTw6BJMnUNHIf7Mh2/4C +Xk/bTztfTSCnmwWeh4XdQXt8dL3b/AS6V2nxF+95d+iUEkrioU8iffl3cxfn +3GFeyd5HljmJVLq9Ov718YDHjt+ThBMnUZ+Q3/4bvR7wppTvBF/DJGpLsPbc +68AEBz1d6fm+SZQWli10vI0JKwx73j0RplD9o8U5TzNPqNE+fmZgC4VWucJ5 +Rq0npBqsrRuxpJDS6pdv/1fvCU7tO8w9rSikzbaSFXjkCWsLW5Lase0MXW63 +P/GEguZfxk+tKZT2v9DWk688gfdeC6TYUGjN1zurmts9oUHpWIyqPYVU3WQy +XGc8wSBjy0txFwrpu48WxeiwgHHhZamQN4VuXR0Psd7Ggnh1TUFv7NXvJ3fJ +6LEgIaxDpQl7dM/Mh6IdLDB7PJ8Q4UPh/xdtGduIBW/2TBkN+lJIdEbcWcKW +BeyUCJnKAAr1XdJdmR3AgsCcYmWpEAol1EX6PLzFAoPZ3EOiJykUQE/XDyti +gekUn54TtuXtipV6xSz4blP57ia2YPrA7epSFjRrtCCdKArFBNtwH1SxgLlp +ZMYhmkKRmqp+95+yYEeIeHv8aQr5prf6V3axIEB1Ua45hkJmogOGwd0syOg+ +kbgylkLrY2gi9O8skGRpPDHHHgjWLa3oZ0Hl6zknNraHdfZI+TALQmzTndnn +KeTEH3Lk7i8W/HS+nf74IoX2hqwJLJEmoFIpui34EoWeZseap8gSICRakViO +bcieVA1bQ0C+4djCCLa2Wut/xooE8OT5DXolUEjuc4TxFzUC4oXJkYOJFBoy ++CotqEuA3KPUhvXJFErkyWnwOkDAf5of6JfS8P63CGdYORCwRyPvaSP2OZew +YMZBAg5pHKX9xA6rstFYPEQAx/tbjPNl3J9clnyFSYDrestqpSsUYrQwWc+D +CCgTbC/NTqfQ52Q1IZUkArruGD/86xqFypCI949kAq6xaQax2OdGfjaVphKw +Syc1pASbbtYUpZdOwKZmFdFZ7ASa56RVFgH0bJ/uuOsUMj2a819YCQGDDw5M +FdygkILChW27ygg42qY4+RL7Z8vRVN5yAq5uDbnFwc5VR1YJ9wgIWH1Ld1Mm +hRa+fm3MqyWgLrB2pBS7ylK+6E0zAbI6I415WRSK+8XDn9aCz2PBUucJNrOI +6+HMJuBBNOXWhS3GVyvf95aAXwf4O2SyKeRf55Q494kAm5F35HlslQ1XQlX7 +cZ8s7menHAr9+nzyPWeAgBuHFhqCsNtiCO27PwioeaLg8g92VI8OV3+YgNbr +4bW12B0Z7w/vpwiI7bcQkb1JoZTl4nvCl5FwOqyQ9hy7fvKryzFeEtI7Wsq+ +YA9+LQ4+wk9CmQJ72SS2YZVJDnMlCXm5zlcUcvG8uYf9NhcnweTozhOB2GKW +eyT2SJJwVm/Y6hz2ju0SmkiKBL21h1+mYyeJlDgy5Eh4HB1W1LC0XvutQn4d +CbyBSIU/j0JkQUmzlAoJzVlFCtLYSUknvq1SI4E1UFevjj1ASorwaZIw1fHx +h+nSuuRe72FtEm65Jcyewa79Ixk9QCdBZ/yPTDJ2P6f7crcOCTOO/J1Z2AaN +4c8+6JEgntNiW4Pd51+m2AAkJFv/pjjYok4RutVGJBRad22fwtY33mdZYUKC +Up6pEi0fz4vc9xMF+0jg18jpWo39kO9uUrY5CbPcS1WK2L1jEYVXLUnw2fRr +83psvRdSHy/Z4LzpveIG2MyK70Pn7UjIiVc/YYR96cZdnjP2JDBrT8aYY38P +NtMOdSLhVGZSnDO2iJv03sBDJFS0m8W4L+WZ9R72dSXBrjpUxWvp+bUn49zc +SUgQ07AKWeojaJ7rxCSh5mJRe9hS3pR0jR2LBP+8qyuilvJ6et9akiTcOTPX +eWYpj10+YOpNwjWXlw7nl/pVn1wAXxK8gnhC4pbyc81X7/AngZQu1klcyr8k +s1H3CAlzdxqupSzlh/Xt3hKI83INCy5jC7MqnDSDSZAIV7fPwN6+P+qoyjES +BhvDC68t5RtYxCqEkjC/Wj/7Bna8mmymTBgJO1U8dmRhPxDrvycejuetcDIi +G7vnd0WLUCQJoQEj7jlL+YNRPfxRJLRY23KXvO2dxexiNAkrdBVlb2L/H+4s +HJA= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5082122808512877, - 1.8240550855476267`}}, + "PlotRange" -> {{0, 180}, {0.8078211110581339, + 1.2276926939114805`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5082122808512888}, + "AxesOrigin" -> {0, 0.8078211110581357}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -10049,21 +10800,21 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5082122808512877, - 1.8240550855476267`}}, + "PlotRange" -> {{0, 180}, {0.8078211110581339, + 1.2276926939114805`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5082122808512888}, + "AxesOrigin" -> {0, 0.8078211110581357}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10077,105 +10828,104 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk0VesbB3ARGYvckKkIhURm5XqeMmVMInOGc842JOqQUNFEk0TDTfcq -kgoZkiTykyKJUxTNqW2sZJ6rc/J7/bHXXp/1rP3d3/d913pVgiJdWfx8fHzf -yDP33v1izcqK1hcWf2Lzgtx0eWAxlGsUZFUI8cfcjm4lprOMz6tZVUOjRsh3 -F2IX5nMhcYMncG5DT7ojcWlsYp2gFQdk/JsO2BCfaJCrTSx4CS9yFIssiCtb -d1/h6r+GJk7HMiPi/g9N++MevIN4M6k3msTyvSt8piw/QX1nVYsiscPwfrMo -zhfo9v4ivpC4htsvFlvQCclvjpzmreHBm0Oy++5FdMNt1eItP4iHhKz6J/R7 -oSmf6fWWWChll5fBdB+cZxfnPiJWlrrcuPvBN5Bcfs6ggNhZYerGkOUA5D52 -VowhprJVZXSEh0BTzDTGizhRfXPSDs4wqHyhpdcTv5NtXxtdMAquyZnyP3V4 -wPQOCz2XMgYOqQ1HXhOPZPJdvRMxDlqnPuvdJhZW1ZEc1Z+E84ckPAKIzzPr -bCWXTIFoGrYaES+/6ZWoOz0F8v+7dFqE2HR18tDOBzNwdjOv/dZqHoQYf+H0 -W3JBOYKR8VGbBxOxe+aLavDgis1lw2vEBx+ImWsK/wGthpNLQokz0PRWMGcW -gkXarg9rkX7XG63YBfPQszae/5smDwoaztGHFPgx83ZJw1Xika/b96en8OOF -PMdWL+L9WpNltyMEMDpA7W79KtK3RGXFsL4grv3X8FHSSh58aB2o+XNNEH8b -nSlbS7x8rMJ74RIhZA+uHvhIehUaOp/VmRZCl6ICPW3i+sr4eeEPhDFIYrlo -uRoPJuvavnyzFMdUzUjFGBUeLHYUl9xXI46cYQMx3nIe6LVboYSZBCrP8548 -RBzWU569ds1C/Bp+oTppGQ928XP0/haXxKsGxxT3KPGgV7V4NGlKCkeHx13H -5cj+UE0iLQaL8USku5Q3Mf+tPhW53YuRW5j7okaW9DVY5lrwYzFGjInZHpbh -gbdl2p0XtDQOPV9pPCrNgxYGO0q2eQn6aZ2wi1zIg883U08FCMvg3/0MmXsS -PBj4UXAt31oGc14f6/slzgPR6O629bUyGDLZkZ4gxgOro26GAeWy+Etkq1KE -MA+qco0n87KWYkkH23loHg9ye3/FrItWwrxz8/ftGefCJvdjn6OKlLCj89Lr -02NcGKiXtinqU8KxDfYJuaNcMMxdvWS5lzIWq9o84AxzoT5oe5mgxTJcU9Ey -IDzAhbFheu+3I8txrZ1enF4PF6R3Wt0tc1LFxXoVhRZtXOjLFQ1xCVPFXH+l -PSqvuHD/U6vCYLIqshbN/sP/kgu+jn5HNGpV0bfoybeHL7iQqx3jekl/BSqM -sFs0msj/+2+OJMiq4eujOQI3arngFiymY9+pjnZyvpPhhVyAGHd9D546tord -9Fa9xQWtpCwT5lIN/GzUZvwmnwt81ww2JmzRQKxNdje7yYWizz4edx5p4H9y -caaDV7kgtK3wkHzOShR7Oj0ldpH0s3J60x+kiR49owdXHeSCguqZxFM9qzG9 -0v3wjBMXqk9OaP7k18ErHoPa2o6k/7hXO6Wig8VOFtq+9ly4Uq+muXG7Dk5s -rNeptOGCanDVq5m3OiiYcdTdH0i/wl51qnkNLin6t8lXjwtKCsrUci89FFrx -zzoVKS6svh4t/hv0MVTOUvvn899wla3mUs4xQquEvWELN/yG1hgwOXrdDN0U -oVnh/C9Q2f7a2S/8b6ytLdL9+/1PYM3eK1aKQzTs7i6sU/4Jsj/uL5AN2ojG -0lsuZdjPQLSB+aezWlb4y661VDphGoIGuY3S/dboXDHJlLwzBUUboxZktdii -9liN+ta2ScidCHtUeN4OXUoDLjvPn4SZDXLP6xMd0N/aquedxgR08AmMdgY6 -oUZep4ua6zhEKEamHVqxGa0/lSWuSx+D4tDG2gtJLlhT1jkl+HQU4seXTmuH -bsEDi/4TzJUahUl7m21P/V2xPVCJVeE+AmY+6Rt6t2xF3/yXD/Mdh+HV0sth -9QZuCD2RFUoyQyB/40h13ip3XHM6xa3u7QDcp7UcnSW2YUBd5qLihz9AuX0k -OGZwG+ZUJR8cr+4HgwvphddoD7RI8q/JKf8Ol+ePrzlb54k3P/zSqWv5Bvc2 -6H5IqvTC2FTPC65fv0KGyUkpboE3bhw6HseQ/gotH68nG6T4IPues8h1nz4o -d8pU23XQF+vTQncM5vTC6M6tfBFMP+xxVxROFeiFSRvNkCHL7Sj3ZGSBQFQP -5A2+n4ky9kf87Fd5q6sbPK9eZ/iJB+Cd6ANqhsHdUHbHwV/gWAAmqsVXCwx2 -gZnCq58nfgagVrhgSGBSF6yggz+8DA3EGQlRFy3NLugR27E5szsQIz6vFjBp -6YTWVGeGrXsQzr+abuJ9tBPOx2aJ7WkNwjvPnug+Nu+E6prZnww7BhpcmFr9 -dJaGtY8MTVc6MNAdgssm/tBwoy40pt+RgZL//ilXJU5vbBvb5cLAkZAQ3YNc -GqhXN38c8GBg4I7/RvEnDVJ9mzsussj8v7U334+RuUR2bfMhBlqw/GKC+2hY -5IvHDKoYyF9qWjn6goblfz1tUaxmoFW7S9UaYj2Ok5xQDQPfF8TZhT+nwdXc -J//dIwaeV38o9b2ZhvOKMc0HnjGQkx+86XsjDfIdtxY1vmPgXvkGnF9Hg9p2 -2QzfaQYeF7s/ca2CBrOAobwkQyZ2mZRbH8sh67k0EuVszMTx25Wjo1dp+Ktt -zELWlImx+2Jl/IiHrKfb89Yz8bv972eG2TS5b/jmcTYycXv6+Nvvl2lYOC3l -tXgLE5O4Fclhl2joOW0kkrWTiZlLznx/kkbDlqcm7cGRTOwfs7oExDV867L0 -djPx8Zq9tZVnaLgUZWH0OJqJWnrae0pSaXD2sg3s3cfEMW1OTHYKDZVqXpXa -J5nIaeh+lXGchtQH+0Pv32CiRk9+SddBGnbqXzSLzWOi2G+3CzuJHfNLRUwL -mLharH5gJpEG0Yt9+RVFTBS68GJEkjiJ7dJ/7y4TFcOrHG0O0LBfU21H+WMm -mgvpOjXE0RB2sTn8zmcmrlugZa4QRYPdwj5zNs1EWuCqw102DauS+CT0u5iY -EjLU7ETcxzYqKu1lYsjdEeXDu2kIdM4avD3ARAHhNomRSBo8BaMiSn4xUVlQ -XaQznAbbKPldhTIszHhnsUk2mIbHWcn2Z+VYGDNDd9yjaDDnjKnFyrNwm0Dg -9DZiPfXm95bKLHzj8qk8g0XD0rf7LD+qszB464C/KpOGH+s6ZESNWOh4ZCbQ -OZCGM/zZ/wveykJ+SfkBYV+yfl3xDCd3Fgr7Rw/f96HhqE8s28CDhZ+MOHtC -iWPvuqyc9WahiqaPGMeb9Kfmpf8TxCLnYet10YsGg6Yg5pPdLBQ15t9n40HD -23R1sRVpLOTWxRUJbaWhGCRCvqWzMKejZmOzK8kfnKgvOsfCqpIouzRifbv6 -BNOLLOxapnhLgTiVjzHmdIWFD7yma0y20GATmf0+tpCFus5h6kmbaVBSOm5s -UczCsA2tLS7EE02R5wRus1BmQcgPReIcDXBKLWOh2zXlmHvONPA6OmqvVZG+ -otbvh5xouOuokPeikYXVhXvboh1pOPWLX/B8Ewu9hX3O2BIH5fUHenFYeEF7 -XbU8seT8KoWeFhaOeX4JeexAQ/gDzzM/37CweCpSQpZ4hdY/MWq9LIw1WXro -tR0Nv94eaPvex0JjbTeHEuLWJJZeyTcWnrnrm3yCOKHTsN9sgKxXguMMxB8y -2vw2j7Mwbv2nVbc30XB2gZR1/DwKM9dnzd6wpaF6rMMnWoBCt6BZ86PEXzsK -2BGCFJ48XisURGx+1yo7SITCAX5vWEbcFxD7216KwsO5l6yybUh/R+vF1tIU -agWX9hwiXm+yWBOWUOhXLy3FJE6TKNxmsJTCHv7ihVpz86ovpQoqFGasGs+s -tib30fXCxiUrKCzll8/KIU5Li/uySJ3CbYqxOieI+yhpifmaFNbavhzymJtL -24YM6FHIrKwW4FrRUPVHOrFPn0KbPUHBfcS93+kLtCGFe5fperwkXlcbX9du -SiE/z+hjHnFPeLHy/5BCjfvPorcTL/TcZ1SxkUKpnTFmTsRmlpscS60oTGs0 -P2lOnLq0K+76JrL+cslWReL780vSsuwpvHJM4YkEcffwvpuXHCmMTlxnM2tJ -g2nDktenXSjM6ysZ6CYOKu36ccyVwokpgcVviU9nlvAfdqPQOjK4rom4i22n -F+NJYby/Z1MZscR2Gdtd3sTvu5flz+XZdfuF+VJ442H8vKy575cdOLU9gEIH -76chKcT3Re1zPIMoXMTeN3RkLm9SptKVSSG72oRv/1xeZ3eLI0X6nfh9OXou -j3O7zyaEQmOjhqc75/pVHOBhGIXDKy8eCJ7Lz7H/a304hSJvdj4MnMs/Latt -FEH2r9butO9cfmzPBt1dFKawtb56EIszSz012eR/yYuebyU22ZwQuSKanGf2 -jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc -+bu0SWw/hdXtDxNs5/K/JnQKJlB4L7Cy0IbY+JXDzGwihXdellNz/j8009f0 - +1:eJwV1Hk4VdsbB/CTqTJlyJQfyZhK6RwKqfWGlDGEiFyOs7e5DOUK0UR1yVw0 +GDJEQkjJVCqVOJXb6EoiU+eY7UxFfssf+9nP51nP/u7vWs+79zrmUTuCh0aj +/cDX0j3ozWaN6rY3u8T8coru/MdBu0bzdZkmJWj58frXS+7O3pamalKP/IRE +d5Zg27BeCwgznqNkrcvTS64Ii37Gb8JG0GH7qxT74gvZxujifxF7lcm+u9g1 +bUFZ8/SPSJPt112Oze1oiTxR145KhF89rcRe06/iMm3ciXTeuIxVYVuMReqH +sL+hnSKqZDX2o3muUFhxD2I/X6dRi/3ptEzEgyO9yIGypzdgjwqYcH/S+9Hn +pIbzjdgC8YHOjJkBNJrhotGErSie2RxU9wPl828Rb8a2lp++NWo8jF5OHn/W +hk3mKEtrrRhF/AQn7iN2tNr+GD/2GDq6NiWrA7td5sPWY8UTSM3ibG4/NuuQ +r09q/CRyKG5NHcIev0G7WXmEQiVaZm8nsFcoa4lN0KcQ8Xev6iJ2GuvZXjGp +aTSlQUMCHRykVOgcvWVmGv1ss80TwdbbFDsaUDeL/L+kmitge2/7xuYaz6Nd +HsmSgP0z7DifoPoCqveyjzbDPlUnZKi54g9Km7XQPYCdAXp3vNiL6FlYe7QX +Nqug2SS4eBm8kSESU7GLX6R2n5bngbb0Fsts7PFBt8jkeB7wlmLZ38GO3DB1 +r/wIL0TV0I2asNPurlMZo/PDKTfDjDnsjrbhR3/y+OF2LCpc/gX3n6w+JCol +AK9poTRp7BId6xStGQGwjo9MZmA31YQv869bAWOWI1rB2FPP3n/7YSwM5Sam +NgvYEpbCYhGPhEG+yjdDvJODtD+YgIi+CKj5PN2uju3bdz9n62ZRSOQVirTB +DuRha+8UFgOXgPk1t7H7lcsmYqbF4cJJ/Urfr/h8yJaVbxkS4Lo8KuAcNs+d +gXWyQRLwLx8VnYWtxFhrVzwkAbOXAorfYx8yTqp80y0Jn+WzpYy6OOitZ3CI +TKsUWE49M9nyjYO6ChPi3FdIQ7LDdLA19vBQcd7tPdLgXugwG4AteKz3/Y5G +aRDUuLaiDNvknL2O+30ZuJLDQPRuDqrN3zZVlC0H/0Qd4bPo4aD8/l+hBscU +YOXfoiMNvRy0z+F8V0ipAhy0+cLoxx5ukjQtHVCAp843Xwj3cZBO/iYpJWdF +uDMo0+aK3cR0u8e/ay3sMCgMpvVz0ORY998/ziqBztZV0w4DHCQZYFJ1z0oZ +yv5wKH0OBw3kC3rb+CqDd5VFjS/2w842+ZFYZeB8utFyHdvV8vBZ9UZleMkj +/O8f7PyNoXZX6SoA21YHNHPx+7mF41EyqlAhG9njM8xB9l5CWuY9akCtEqzp +H+MgFOpAP7igBq4iTp8UxzloQ0z2dpacOjzKvmLohE3LYxhF2arDtZHe3lbs +0i6Xg5VP1CFv8l7mgwn8fTqWnF6TqwHbP79uuErhfiZWn7hMTXBr55ZcmeGg +vAPpX2aiNCEpNGKwHTuB2dPNd10TLr8b9ZWfxfN96viQ4ntNyPwWYXkTW7w+ +k3bAeAPQuevCy+fw/DBGN9SpbITgC9rRnb85SF45MTqubxO8aGnd5Efjovp/ +fmrO8WgBt/HBj3psV8r5A7lOC77L2P0SXcZFWU2qmkZuWqAhnq5Yha3sVftu +9rMWCMqa+vHwctGGkn41snUzpJ1LW32Xn4sU5BVJJWdt2J+ZfXOfEBdtKjgm +/BvRgaFx8u9IGS5iss5OaVnTYVl1eVUndoZKSpe7Kx1mRJ0Md8pyEW/u3fIX +YXT4PfpnwyJ2RxbXPqWCDntV0mNi13DRxQz3TE0VBtTJGW7JU+CigTjLzU4C +OkDsiLZercpFN4NVbe6zdeFDu1zcx61c1BaKtp8r0Af/g8flcw5w0Tq3j9aH +/XfC3VfL/0iGcxGx+KBM4QRAq/r01dxcLpIZerhchmkEHwmv6xXvuegYw7Az +ZYMJeEsEeegLDCHmyHyzJHcPLE4npakbDqFSo5Dl2W/3Qkesru+5iCGU/9P3 +SUmaGSy+9dBUrhtCs7tlXzdFW0BFzKvt/XzD6CuNd6LHwwoETm2MXWU3jI78 +72jSaZX9oPd8d6RG1jAq82luvBxjA673b0QITQ2jcEpuZqOPLTgaLlyRMh9B +U+amji//sgNO6atbdsUjSN8leXe/7QGQ+lPyu1p4FL2Ty/RtYthDYd/Yhed+ +o2jNrbP1ResdwLVn9wvZT6PoYfcGS2sRR+gMsr2kajiGFD+Me4WOOEIQS6Qy +PHcMMS4nl+R1HwT/BY3A9pXjKJOP2pzyzAkcGyVsT6Nx9GD3lo6YGme4+rRI +zDF8HGVs/0d8vvgQ7B1U0jxXNY7efimIZcS7wMfwzNMc7ji6b3VDNfCUK6Q+ +Nk5+ojaBJgIO0I6wDkPz5TcdJq4TaMpU03vU2A0UPTw6BJMnUNHIf7Mh2/4C +Xk/bTztfTSCnmwWeh4XdQXt8dL3b/AS6V2nxF+95d+iUEkrioU8iffl3cxfn +3GFeyd5HljmJVLq9Ov718YDHjt+ThBMnUZ+Q3/4bvR7wppTvBF/DJGpLsPbc +68AEBz1d6fm+SZQWli10vI0JKwx73j0RplD9o8U5TzNPqNE+fmZgC4VWucJ5 +Rq0npBqsrRuxpJDS6pdv/1fvCU7tO8w9rSikzbaSFXjkCWsLW5Lase0MXW63 +P/GEguZfxk+tKZT2v9DWk688gfdeC6TYUGjN1zurmts9oUHpWIyqPYVU3WQy +XGc8wSBjy0txFwrpu48WxeiwgHHhZamQN4VuXR0Psd7Ggnh1TUFv7NXvJ3fJ +6LEgIaxDpQl7dM/Mh6IdLDB7PJ8Q4UPh/xdtGduIBW/2TBkN+lJIdEbcWcKW +BeyUCJnKAAr1XdJdmR3AgsCcYmWpEAol1EX6PLzFAoPZ3EOiJykUQE/XDyti +gekUn54TtuXtipV6xSz4blP57ia2YPrA7epSFjRrtCCdKArFBNtwH1SxgLlp +ZMYhmkKRmqp+95+yYEeIeHv8aQr5prf6V3axIEB1Ua45hkJmogOGwd0syOg+ +kbgylkLrY2gi9O8skGRpPDHHHgjWLa3oZ0Hl6zknNraHdfZI+TALQmzTndnn +KeTEH3Lk7i8W/HS+nf74IoX2hqwJLJEmoFIpui34EoWeZseap8gSICRakViO +bcieVA1bQ0C+4djCCLa2Wut/xooE8OT5DXolUEjuc4TxFzUC4oXJkYOJFBoy ++CotqEuA3KPUhvXJFErkyWnwOkDAf5of6JfS8P63CGdYORCwRyPvaSP2OZew +YMZBAg5pHKX9xA6rstFYPEQAx/tbjPNl3J9clnyFSYDrestqpSsUYrQwWc+D +CCgTbC/NTqfQ52Q1IZUkArruGD/86xqFypCI949kAq6xaQax2OdGfjaVphKw +Syc1pASbbtYUpZdOwKZmFdFZ7ASa56RVFgH0bJ/uuOsUMj2a819YCQGDDw5M +FdygkILChW27ygg42qY4+RL7Z8vRVN5yAq5uDbnFwc5VR1YJ9wgIWH1Ld1Mm +hRa+fm3MqyWgLrB2pBS7ylK+6E0zAbI6I415WRSK+8XDn9aCz2PBUucJNrOI +6+HMJuBBNOXWhS3GVyvf95aAXwf4O2SyKeRf55Q494kAm5F35HlslQ1XQlX7 +cZ8s7menHAr9+nzyPWeAgBuHFhqCsNtiCO27PwioeaLg8g92VI8OV3+YgNbr +4bW12B0Z7w/vpwiI7bcQkb1JoZTl4nvCl5FwOqyQ9hy7fvKryzFeEtI7Wsq+ +YA9+LQ4+wk9CmQJ72SS2YZVJDnMlCXm5zlcUcvG8uYf9NhcnweTozhOB2GKW +eyT2SJJwVm/Y6hz2ju0SmkiKBL21h1+mYyeJlDgy5Eh4HB1W1LC0XvutQn4d +CbyBSIU/j0JkQUmzlAoJzVlFCtLYSUknvq1SI4E1UFevjj1ASorwaZIw1fHx +h+nSuuRe72FtEm65Jcyewa79Ixk9QCdBZ/yPTDJ2P6f7crcOCTOO/J1Z2AaN +4c8+6JEgntNiW4Pd51+m2AAkJFv/pjjYok4RutVGJBRad22fwtY33mdZYUKC +Up6pEi0fz4vc9xMF+0jg18jpWo39kO9uUrY5CbPcS1WK2L1jEYVXLUnw2fRr +83psvRdSHy/Z4LzpveIG2MyK70Pn7UjIiVc/YYR96cZdnjP2JDBrT8aYY38P +NtMOdSLhVGZSnDO2iJv03sBDJFS0m8W4L+WZ9R72dSXBrjpUxWvp+bUn49zc +SUgQ07AKWeojaJ7rxCSh5mJRe9hS3pR0jR2LBP+8qyuilvJ6et9akiTcOTPX +eWYpj10+YOpNwjWXlw7nl/pVn1wAXxK8gnhC4pbyc81X7/AngZQu1klcyr8k +s1H3CAlzdxqupSzlh/Xt3hKI83INCy5jC7MqnDSDSZAIV7fPwN6+P+qoyjES +BhvDC68t5RtYxCqEkjC/Wj/7Bna8mmymTBgJO1U8dmRhPxDrvycejuetcDIi +G7vnd0WLUCQJoQEj7jlL+YNRPfxRJLRY23KXvO2dxexiNAkrdBVlb2L/H+4s +HJA= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + "PlotRange" -> {{0, 180}, {0.8078211110581339, 1.2276926939114805`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5082122808512888}, + "AxesOrigin" -> {0, 0.8078211110581357}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10185,7 +10935,8 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5082122808512888}, + AxesOrigin->{0, 0.8078211110581357}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -10213,7 +10964,8 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.8078211110581339, 1.2276926939114805`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -10221,9 +10973,9 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913242457281837`*^9}, + CellChangeTimes->{3.9913242457281837`*^9, 3.994252370054534*^9}, CellLabel-> - "Out[111]=",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] + "Out[127]=",ExpressionUUID->"60e5859a-9c34-407a-9ccd-761203feafcb"] }, Open ]], Cell[CellGroupData[{ @@ -10238,30 +10990,33 @@ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -10286,158 +11041,158 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.9917997871187477`*^9, - 3.991799792469698*^9}},ExpressionUUID->"8faa67fd-f295-ea48-b116-\ -d12d9d52c36b"], + CellChangeTimes->{{3.9917997871187477`*^9, 3.991799792469698*^9}}, + CellLabel-> + "In[128]:=",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.955409411483839`*^-270\\\", \ + "\"\\!\\(\\*FractionBox[\\\"7.063598997749721`*^-267\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 128, + 41, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991324246104725*^9, 3.994252370250325*^9}, + CellLabel-> + "During evaluation of \ +In[128]:=",ExpressionUUID->"f449b639-210c-4062-962c-4ed111c4fd0b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.639680389525189`*^-279\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 128, + 42, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991324246104725*^9, 3.994252370260865*^9}, + CellLabel-> + "During evaluation of \ +In[128]:=",ExpressionUUID->"685d4a25-afda-4131-b1b6-fc135f34176a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.5028030195552674`*^-291\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 112, - 45, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991324246104725*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 128, + 43, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991324246104725*^9, 3.99425237027258*^9}, CellLabel-> "During evaluation of \ -In[112]:=",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.877419838456823`*^-281\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 112, 46, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913242461217346`*^9}, - CellLabel-> - "During evaluation of \ -In[112]:=",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.990320554242227`*^-292\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 112, 47, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913242461427383`*^9}, - CellLabel-> - "During evaluation of \ -In[112]:=",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], +In[128]:=",ExpressionUUID->"ae6cd127-696d-4e6a-8df9-d26543840a23"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 112, 48, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991324246159645*^9}, +during this calculation.\"", 2, 128, 44, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991324246104725*^9, 3.9942523702830057`*^9}, CellLabel-> "During evaluation of \ -In[112]:=",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], +In[128]:=",ExpressionUUID->"5f87e026-feee-4754-8b99-ed70baad5144"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh -pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC -C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe -hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T -4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O -+QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb -dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X -rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd -P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt -SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw -OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB -tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq -YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq -QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h -khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV -JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw -hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq -o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg -PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN -QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS -mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH -hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i -2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv -x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 -GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq -6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY -FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 -jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf -uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en -6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s -jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN -Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld -nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 -kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n -lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 -NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN -cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa -aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu -oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC -gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv -xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb -Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q -pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp -bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE -YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 -Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv -857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG -rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA -vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B -ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 -UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l -49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU -/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj -ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF -vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz -056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm -0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx -4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 -8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ -LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa -D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP -jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU -KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG -Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 -DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x -F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 -yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN -JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa -azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t -c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh -P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa -M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg -5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o -r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D -2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi -ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq -y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt -r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb -32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ -lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M -D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL -QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg -YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY -F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu -Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r -4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH -99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn -4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ -uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs - + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk8VdsXAHAvDVTkkTnTvedeQ6hkiFxrGRIpSSqpFxFNqFChjJlTRIMQ +0k249xBPiohCKJlSlFKofq8QJVN4fvv9cT/38/2cz9mfvddZa+2l4nrM3n2e +gIDALPn99z/e01hLneeaJFVuKlhivs6kI0MmwLQrHD45SXw7bioFKNniKtOV +BJX24QUmpmw4ZZffKdiVDU5aWVeUTPXhz+/SSVOdxdBuObpiEi3hQ4XtsV+d +T8AnXakoAneCJfXt/Y/OdvB9PLytycQDpjoNrox09sGE8YqacYNTUGN+h9uW +PQrP9OttExdFw4oPZV9cNWch9XW1zdh4Iiz3dM5fZC6IAo+6571nXYWkNZYP +bXcI4eq5SRPP2DR4k7K6+oeYCCbsOVm+kZ0F57khLfNk/8R9C6K3eyRkg/Tl +/tjkGxJo1Tyr9/AhF6IdrE3axyVxd1bPB6OkHPA1vOncGC6DN2qW/vlhVy5Y +DP8O9O6XQ5O9k/d49XkQYHVZ4/GgHN7aIL71Y1MeFNzUeisxLocvlY5c+rM9 +D2QcXAzLhOSxbQ1X7Mi7PBh8UDchqC2Pd0IUfvwcyYPk8ES/6/7yyPV2nHaT +zYc+SbZ3rcgK7Lbsc3t8MB/CjLftl1ungD/A2e6v3/lgtS/jp4GZAk4s56rI +zuWDaOjAuR2bFZBZ9fpXqyAP0msicxJdFLA55XCWrggPHmwqH1gYS54/MhBq +UuLBiCPz1OgbBQxy0501suDBvpNjcU1nFJHRvLZOJo4HrGtmK75FKmLmYE+q +w0Ue2W8CvShREQ0kvI/FJ/EgcEa91YyriHGu0pIjqTy4cm6fZFmTIq681b8t +mseDpkv1mbcVlDDi9cDFsec8MCq4XhJcpYSzDUm6bcJ8sOhsnv3eoISHwiQk +t4jwwVZg/kbndiUU9X8YUCfGBzd77zfwWQnDc+pbeNJ8sDyjEhK6QBlvS325 +a8viw3Gl8VumK5WxcXS10xDwofZg5lDNKWV0XGe3IMGHD9YzhuJnzyjjSknZ +1LSTfGhO7NDXDSXvz08q5frz4U2ZcCg3VhnlL66N5gfz4fsSP/HIdGU8VXn/ +fFIcH2TuWhlYPlHGcUVJqwc3+eA5+SO0QUQF50xMPx19wQejEx5SX8RVMB9M +P5q28kHo21ueoIwKXvL/X4vESz7c7q55bcJQwWhJl/O8Lj70PLqieU9fBeMq +68/k9/Nha6Rh101nFfxZnXb+yyQfdMTDVp0pUkG75cofdyvTIHB+rDalVAXX +e32aKmDQ0Cx4xKn0oQoGanSIC7BoODpmH/mjTgW/6PaZX1WngdtFdR98q4LW ++7IKknRokMpsiHIQZKCAxWOhJnMaplaK9WjtYODcpq8iFm40jN+QC1vrxEDr +8Oh9f7rT8GsZizJ0ZqCi4EjvWw8avo8aHrE4zMCD0grnXI/Q0PfQbdwpiIG7 +oueMLU7Q8MzmvmjMbQYaPtOeZx9MQ33l46IL+eR99oOKvhAaalc1OSQXMlDb +0Kn4WBgNjyR6UzPKGJg9KLUtOIKG4u7FqvdeMDC4rveodxwNqUf3Qd8YA8VK +Cy+nXqHh2vtDff/7zcBJu1rz4as0XN7qGzk0x8D+iHkGmELDxbUxzyeFmdi5 +0GnwdSoN4dNFu5YpMtG3W+dWZyaJz/kFx40tmaim2dPIzqPh0OwyCTMbJo6Z +Kc7HfBo8jsmVbrRjYrbQzvgdPBpctq+asXdiokOoYexJmgYH+d0xh72ZuGdz +u2VsEQ3GPH7W1atMTGgqchMoo6FbmZe5IY2J6++/HmghDryal/Erk4ny/paW +6eU03A/LSbfPY2LvCWO/lRU06DhmpYhWMHHVXtlaZhUNbS8yrlVWM7H6L7Xv +b4iPm9+46lnHxEsV09/jq2ko0E69/KyZiQVG+qe/PqZBfcHlxKheJrrWLSg+ +W0tDQ2BSgt4XJqqmQrZsHTnPSOLFT9+YKB3Z5fU3Mbf7QrzZLya6PQi+/v4p +DcrF0TH/LqTw9Au57UsbaahSjYqml1DoNlGvnUi870ZE1F4xCjdkJnwTe0ZD +WkxYRLkshTIlr+YLPyf55Hwm9JQmhe2LNF+9bKLhXkdACGsNhYN3U56YvCDx +2uQf3KFHodSR6cs5xEl6J8/qAIWmG+QGPJtpWMPzPdNrTqEISBx/Ttyq7BOY +aEXhvxNn3rFbaBBZesz/+zYK91bKe3cQ88O8Tt/YSeGdC8mX2a00bJo4emrz +HgrtuTPck8QxfYf88g9QaBetHrW4jQZVx4O+uw+T/U6vcbQjfvrC3UfIm8I8 +wXtSycTzy1yPe5ymUPhE2Z5l7TTc0t5/TPIshU6O5/qtiM24zt61oRQOdzk6 +hRB/lN3n5RtJoY3Hh+pi4pCEvZ6MOAqXfK+Q7idWXLDnaNtFChM7rzmLvaSh +InD3kdBkCgsFpa8bEf9233moJ51C1QVZ/ZHE17sdDl64SeIxNTWWQ7xu23YP +4xwKBb1SZmqJO59ucx/Ip7A8nZr8QHzK2O5AaiGFycZWXyeIJYtt3axLKNzi +T7cu7aChRHWL6+QDCheO/lugSGx/w2b/nUoKvzz9X4QW8Q/xTS47n1DYHSGx +3ZC4y5PReqSewtTixyVmxNVPf0NIE4VzKTHRVsS5yi8Lk9solBu3aNpEnBjI +U8p9TWGHRsc5a2L/jnMJFd0U+hgtL7QgdtHeO9f6kcK1z/ptjYmtYnSPff5M +4T/KjAOriVf3Lf0w9Y3CYHbhsDKxjPFnW9ERCm+7Hf0pQixwtfIRY4zE/491 +Xv+d75/hK9oGvykMbxh3eU/cYu2dYTNHYZhKXHMVcektS1GX+Sysl3hVmkGc +MasY7CfMwqMbHsoFEkftmhiKEWVhw2/l6W3E3kUtf92QYKGg1IAjm3jnktwX +RTIszJGa050g38/EPZTzVIGFHFnzxFpiEdk1CsOqLGzjjtc7EP/yEb4gqMXC +OV+9HGnid029M9I6LCxpNVvUSfKJH5r0Do1ZWHHYe4cN8eW3RzbvMGXh9hoX +CwHis7rmFYctWajyqbGsiOSrzT+jaUl2LJxnW7h+MfG3rTv2fDrAwqGuwnuX +SD2052k9nzzMwlFbzk8N4nLBhetFjrHw/Y2CimpST7H3S+X0A8j+gv/9t5fU +n5qSzNvoCyxc+b1q+zSpV7GAEev0JBKPux2yAcST7Q1ld6+x0KfV+eQoqe+G +qIDrb26yUGcPPfK+gYaD3986rixlYWujuEQc6Q+2Vn83wEMWUrdrMgdJ/9DP +Pr/OoZqFqdM3G22IF+40lgl6xkKJnS8m52poyKm80dncw0KRM9YfgfSnT/Eu +O30WsVFm/PddxYck/t80GauXshES7xXvJv1wYuPU0JAYG+POzm+5RPrlYsGk +yMNybOyTvuM0dZ/kS0BNiYsWG3Vdl766XUJDkDtbYut2st7MUrH/+vHCmp89 +Sx3ZqHbeWjGcT/JTuSr/2V42TiYddIjn/dfvdplZerBR73fu+hTS759tiz3B +CWBj6dyMyMXbpH+ZDLaszGTj1YoFYT/TachKe5D29RYbxXWDfdvTSH+dijh4 +J5eNZeej0wrJfWJcojDHKGZjVV5dwn5y37hpbNWWq2OjW9Q2FW4yDXeliuOF +Btg4e7afz42lwXr4tPVnfVU8rrQ69bovDSvWKEYJGauildfUsXk+5D71qX2y +0lQVvdQPKR86TvJlXMzYx0YVWz51SWp40dAzm6c956yKv4Sv+MaQ+9dn6TsJ +2VhVlHjiIHDXkdyP6tizuVsVIx/rc4uNaPA8+kXu+EdVfHyxTrJsHQ1Ax+9K +/qyKZ0t7oyv0yfdY/ab1zbAqytun+pSTeUB7nU+Nx3w17O9fEpGkQUONJTc3 +VEsNO81Uc0tkaRh0E/ItCVHDFyI6SY1jZB7KsKisilBDIVrvQNAoH4bfhC56 +HquGf18L9Nf+wYefW6fSepPV0FYj1jNmkA8T67/ViuaqIUdFjCtP5pt5y5uk +DreqYXqT397qFj7I1iaUK6ioo66nmPOSO2Seo6TnRT9Rxxlf16GBLXz46rox +d329Og5MS0do2vAh/uZp25Hn6qji+MfMESs+vFTsSt39Sh1/Wock95rxwUX2 ++lrNf9RR3i8j6J4BHwJE5d3bRDTwldIVxpQyH/iTig3yuzWwPO1D5/gPHoi/ +YF+8O6yBM/sbry8g8+yKmEI7fX1NXJL5h8Ke9HxIWWkoJnFQC6e7laWqM/Pg +mZyp3uglbcwKup2jmJwLRiueJK56vQrDKjeHDe69A6KC2X77w1fjYWvDCEXt +HFAMUzLezV6DT4sOuv3xjgvCrL2l9vVrsHf92JxL3C3Q5sgWnv5LB9lKQmdm +tmSDT494zSaBtfi+dOHW1sksGB6N32GdshYPN9uKagZnwsZVT1OttXTxl2tG +yAvqBjwaXT890ayL4UuGvM34qeCtqfO2zV0PrY88+hnilwKc7wc6dgvrY1DI +udSnaldhAyWzRSRbH83MNe8dVb4MaqFx/k8MDJB97HFUgkkSaLgbVrHeGqDY +mFZ4tUMiuD86FFFyYh2aFn7doLDzAlRldRz4IWmIy5oa/e0E4uBX7tzEqvuG +qHPr/qP5c1HgxuIJp24xwtNb9g/c9IqAHxrJ+sUjRrjnZ/6yQ5/C4AF3uncs +Zj0m/3XtoWxICDhZkFlJ0Rir9Q5cEyo6A/Je0WXa1cbYO3Kyd+HMaZBc7Fm0 +ZRcHz/ZMPTL67Adc86DAkd0c1MtJj9Tr8gOdoIvmyXs5yNRY/lX/uR/Yjtx9 +1bWfg8KSN4O2FPlB1OuxKTdPDurYL85sDPKDyewQs8AwDlaVxbRNS/vB2/XJ +L3N4HNzhlXpg3TZfOHSSm25dwMGO8/Gn523whfGCe+6DdzlY91TjY/s6XxBn +dE2sKeXgrMu5vChlX7ARUlhRWc1B1LTpMRzxgYqOnAMvX3HQcpPb+6ZEH9gk ++kDrVBcHXRd9gOkIH+ja2Dgu083Bd0IeHasCfOBX+UDMvo8cjFEpiOPt9wGt +m6vpr984WBvYPjSoQ9Z7a3oqfoiDw3PbszerkvWWb4dVI+Q81uKni+V9wCP6 +ZJvfGAfVy/b5J84n61VHpUpPclD0WUCW0NQJCP99za38Nwcf+Q18iBo6AWK6 +eZp/zXJwwj5Qd0nfCcjwKh+bmyP7FR1Ku/L6BPwfufNcag== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -10451,117 +11206,113 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh -pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC -C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe -hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T -4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O -+QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb -dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X -rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd -P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt -SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw -OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB -tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq -YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq -QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h -khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV -JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw -hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq -o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg -PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN -QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS -mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH -hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i -2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv -x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 -GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq -6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY -FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 -jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf -uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en -6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s -jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN -Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld -nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 -kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n -lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 -NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN -cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa -aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu -oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC -gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv -xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb -Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q -pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp -bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE -YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 -Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv -857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG -rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA -vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B -ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 -UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l -49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU -/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj -ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF -vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz -056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm -0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx -4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 -8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ -LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa -D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP -jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU -KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG -Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 -DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x -F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 -yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN -JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa -azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t -c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh -P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa -M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg -5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o -r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D -2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi -ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq -y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt -r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb -32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ -lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M -D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL -QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg -YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY -F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu -Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r -4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH -99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn -4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ -uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs - +1:eJwV1nk8VdsXAHAvDVTkkTnTvedeQ6hkiFxrGRIpSSqpFxFNqFChjJlTRIMQ +0k249xBPiohCKJlSlFKofq8QJVN4fvv9cT/38/2cz9mfvddZa+2l4nrM3n2e +gIDALPn99z/e01hLneeaJFVuKlhivs6kI0MmwLQrHD45SXw7bioFKNniKtOV +BJX24QUmpmw4ZZffKdiVDU5aWVeUTPXhz+/SSVOdxdBuObpiEi3hQ4XtsV+d +T8AnXakoAneCJfXt/Y/OdvB9PLytycQDpjoNrox09sGE8YqacYNTUGN+h9uW +PQrP9OttExdFw4oPZV9cNWch9XW1zdh4Iiz3dM5fZC6IAo+6571nXYWkNZYP +bXcI4eq5SRPP2DR4k7K6+oeYCCbsOVm+kZ0F57khLfNk/8R9C6K3eyRkg/Tl +/tjkGxJo1Tyr9/AhF6IdrE3axyVxd1bPB6OkHPA1vOncGC6DN2qW/vlhVy5Y +DP8O9O6XQ5O9k/d49XkQYHVZ4/GgHN7aIL71Y1MeFNzUeisxLocvlY5c+rM9 +D2QcXAzLhOSxbQ1X7Mi7PBh8UDchqC2Pd0IUfvwcyYPk8ES/6/7yyPV2nHaT +zYc+SbZ3rcgK7Lbsc3t8MB/CjLftl1ungD/A2e6v3/lgtS/jp4GZAk4s56rI +zuWDaOjAuR2bFZBZ9fpXqyAP0msicxJdFLA55XCWrggPHmwqH1gYS54/MhBq +UuLBiCPz1OgbBQxy0501suDBvpNjcU1nFJHRvLZOJo4HrGtmK75FKmLmYE+q +w0Ue2W8CvShREQ0kvI/FJ/EgcEa91YyriHGu0pIjqTy4cm6fZFmTIq681b8t +mseDpkv1mbcVlDDi9cDFsec8MCq4XhJcpYSzDUm6bcJ8sOhsnv3eoISHwiQk +t4jwwVZg/kbndiUU9X8YUCfGBzd77zfwWQnDc+pbeNJ8sDyjEhK6QBlvS325 +a8viw3Gl8VumK5WxcXS10xDwofZg5lDNKWV0XGe3IMGHD9YzhuJnzyjjSknZ +1LSTfGhO7NDXDSXvz08q5frz4U2ZcCg3VhnlL66N5gfz4fsSP/HIdGU8VXn/ +fFIcH2TuWhlYPlHGcUVJqwc3+eA5+SO0QUQF50xMPx19wQejEx5SX8RVMB9M +P5q28kHo21ueoIwKXvL/X4vESz7c7q55bcJQwWhJl/O8Lj70PLqieU9fBeMq +68/k9/Nha6Rh101nFfxZnXb+yyQfdMTDVp0pUkG75cofdyvTIHB+rDalVAXX +e32aKmDQ0Cx4xKn0oQoGanSIC7BoODpmH/mjTgW/6PaZX1WngdtFdR98q4LW ++7IKknRokMpsiHIQZKCAxWOhJnMaplaK9WjtYODcpq8iFm40jN+QC1vrxEDr +8Oh9f7rT8GsZizJ0ZqCi4EjvWw8avo8aHrE4zMCD0grnXI/Q0PfQbdwpiIG7 +oueMLU7Q8MzmvmjMbQYaPtOeZx9MQ33l46IL+eR99oOKvhAaalc1OSQXMlDb +0Kn4WBgNjyR6UzPKGJg9KLUtOIKG4u7FqvdeMDC4rveodxwNqUf3Qd8YA8VK +Cy+nXqHh2vtDff/7zcBJu1rz4as0XN7qGzk0x8D+iHkGmELDxbUxzyeFmdi5 +0GnwdSoN4dNFu5YpMtG3W+dWZyaJz/kFx40tmaim2dPIzqPh0OwyCTMbJo6Z +Kc7HfBo8jsmVbrRjYrbQzvgdPBpctq+asXdiokOoYexJmgYH+d0xh72ZuGdz +u2VsEQ3GPH7W1atMTGgqchMoo6FbmZe5IY2J6++/HmghDryal/Erk4ny/paW +6eU03A/LSbfPY2LvCWO/lRU06DhmpYhWMHHVXtlaZhUNbS8yrlVWM7H6L7Xv +b4iPm9+46lnHxEsV09/jq2ko0E69/KyZiQVG+qe/PqZBfcHlxKheJrrWLSg+ +W0tDQ2BSgt4XJqqmQrZsHTnPSOLFT9+YKB3Z5fU3Mbf7QrzZLya6PQi+/v4p +DcrF0TH/LqTw9Au57UsbaahSjYqml1DoNlGvnUi870ZE1F4xCjdkJnwTe0ZD +WkxYRLkshTIlr+YLPyf55Hwm9JQmhe2LNF+9bKLhXkdACGsNhYN3U56YvCDx +2uQf3KFHodSR6cs5xEl6J8/qAIWmG+QGPJtpWMPzPdNrTqEISBx/Ttyq7BOY +aEXhvxNn3rFbaBBZesz/+zYK91bKe3cQ88O8Tt/YSeGdC8mX2a00bJo4emrz +HgrtuTPck8QxfYf88g9QaBetHrW4jQZVx4O+uw+T/U6vcbQjfvrC3UfIm8I8 +wXtSycTzy1yPe5ymUPhE2Z5l7TTc0t5/TPIshU6O5/qtiM24zt61oRQOdzk6 +hRB/lN3n5RtJoY3Hh+pi4pCEvZ6MOAqXfK+Q7idWXLDnaNtFChM7rzmLvaSh +InD3kdBkCgsFpa8bEf9233moJ51C1QVZ/ZHE17sdDl64SeIxNTWWQ7xu23YP +4xwKBb1SZmqJO59ucx/Ip7A8nZr8QHzK2O5AaiGFycZWXyeIJYtt3axLKNzi +T7cu7aChRHWL6+QDCheO/lugSGx/w2b/nUoKvzz9X4QW8Q/xTS47n1DYHSGx +3ZC4y5PReqSewtTixyVmxNVPf0NIE4VzKTHRVsS5yi8Lk9solBu3aNpEnBjI +U8p9TWGHRsc5a2L/jnMJFd0U+hgtL7QgdtHeO9f6kcK1z/ptjYmtYnSPff5M +4T/KjAOriVf3Lf0w9Y3CYHbhsDKxjPFnW9ERCm+7Hf0pQixwtfIRY4zE/491 +Xv+d75/hK9oGvykMbxh3eU/cYu2dYTNHYZhKXHMVcektS1GX+Sysl3hVmkGc +MasY7CfMwqMbHsoFEkftmhiKEWVhw2/l6W3E3kUtf92QYKGg1IAjm3jnktwX +RTIszJGa050g38/EPZTzVIGFHFnzxFpiEdk1CsOqLGzjjtc7EP/yEb4gqMXC +OV+9HGnid029M9I6LCxpNVvUSfKJH5r0Do1ZWHHYe4cN8eW3RzbvMGXh9hoX +CwHis7rmFYctWajyqbGsiOSrzT+jaUl2LJxnW7h+MfG3rTv2fDrAwqGuwnuX +SD2052k9nzzMwlFbzk8N4nLBhetFjrHw/Y2CimpST7H3S+X0A8j+gv/9t5fU +n5qSzNvoCyxc+b1q+zSpV7GAEev0JBKPux2yAcST7Q1ld6+x0KfV+eQoqe+G +qIDrb26yUGcPPfK+gYaD3986rixlYWujuEQc6Q+2Vn83wEMWUrdrMgdJ/9DP +Pr/OoZqFqdM3G22IF+40lgl6xkKJnS8m52poyKm80dncw0KRM9YfgfSnT/Eu +O30WsVFm/PddxYck/t80GauXshES7xXvJv1wYuPU0JAYG+POzm+5RPrlYsGk +yMNybOyTvuM0dZ/kS0BNiYsWG3Vdl766XUJDkDtbYut2st7MUrH/+vHCmp89 +Sx3ZqHbeWjGcT/JTuSr/2V42TiYddIjn/dfvdplZerBR73fu+hTS759tiz3B +CWBj6dyMyMXbpH+ZDLaszGTj1YoFYT/TachKe5D29RYbxXWDfdvTSH+dijh4 +J5eNZeej0wrJfWJcojDHKGZjVV5dwn5y37hpbNWWq2OjW9Q2FW4yDXeliuOF +Btg4e7afz42lwXr4tPVnfVU8rrQ69bovDSvWKEYJGauildfUsXk+5D71qX2y +0lQVvdQPKR86TvJlXMzYx0YVWz51SWp40dAzm6c956yKv4Sv+MaQ+9dn6TsJ +2VhVlHjiIHDXkdyP6tizuVsVIx/rc4uNaPA8+kXu+EdVfHyxTrJsHQ1Ax+9K +/qyKZ0t7oyv0yfdY/ab1zbAqytun+pSTeUB7nU+Nx3w17O9fEpGkQUONJTc3 +VEsNO81Uc0tkaRh0E/ItCVHDFyI6SY1jZB7KsKisilBDIVrvQNAoH4bfhC56 +HquGf18L9Nf+wYefW6fSepPV0FYj1jNmkA8T67/ViuaqIUdFjCtP5pt5y5uk +DreqYXqT397qFj7I1iaUK6ioo66nmPOSO2Seo6TnRT9Rxxlf16GBLXz46rox +d329Og5MS0do2vAh/uZp25Hn6qji+MfMESs+vFTsSt39Sh1/Wock95rxwUX2 ++lrNf9RR3i8j6J4BHwJE5d3bRDTwldIVxpQyH/iTig3yuzWwPO1D5/gPHoi/ +YF+8O6yBM/sbry8g8+yKmEI7fX1NXJL5h8Ke9HxIWWkoJnFQC6e7laWqM/Pg +mZyp3uglbcwKup2jmJwLRiueJK56vQrDKjeHDe69A6KC2X77w1fjYWvDCEXt +HFAMUzLezV6DT4sOuv3xjgvCrL2l9vVrsHf92JxL3C3Q5sgWnv5LB9lKQmdm +tmSDT494zSaBtfi+dOHW1sksGB6N32GdshYPN9uKagZnwsZVT1OttXTxl2tG +yAvqBjwaXT890ayL4UuGvM34qeCtqfO2zV0PrY88+hnilwKc7wc6dgvrY1DI +udSnaldhAyWzRSRbH83MNe8dVb4MaqFx/k8MDJB97HFUgkkSaLgbVrHeGqDY +mFZ4tUMiuD86FFFyYh2aFn7doLDzAlRldRz4IWmIy5oa/e0E4uBX7tzEqvuG +qHPr/qP5c1HgxuIJp24xwtNb9g/c9IqAHxrJ+sUjRrjnZ/6yQ5/C4AF3uncs +Zj0m/3XtoWxICDhZkFlJ0Rir9Q5cEyo6A/Je0WXa1cbYO3Kyd+HMaZBc7Fm0 +ZRcHz/ZMPTL67Adc86DAkd0c1MtJj9Tr8gOdoIvmyXs5yNRY/lX/uR/Yjtx9 +1bWfg8KSN4O2FPlB1OuxKTdPDurYL85sDPKDyewQs8AwDlaVxbRNS/vB2/XJ +L3N4HNzhlXpg3TZfOHSSm25dwMGO8/Gn523whfGCe+6DdzlY91TjY/s6XxBn +dE2sKeXgrMu5vChlX7ARUlhRWc1B1LTpMRzxgYqOnAMvX3HQcpPb+6ZEH9gk ++kDrVBcHXRd9gOkIH+ja2Dgu083Bd0IeHasCfOBX+UDMvo8cjFEpiOPt9wGt +m6vpr984WBvYPjSoQ9Z7a3oqfoiDw3PbszerkvWWb4dVI+Q81uKni+V9wCP6 +ZJvfGAfVy/b5J84n61VHpUpPclD0WUCW0NQJCP99za38Nwcf+Q18iBo6AWK6 +eZp/zXJwwj5Qd0nfCcjwKh+bmyP7FR1Ku/L6BPwfufNcag== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "PlotRange" -> {{0, 30}, {0., 0.058260285792567326`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -10573,19 +11324,19 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "PlotRange" -> {{0, 30}, {0., 0.058260285792567326`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10599,116 +11350,112 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh -pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC -C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe -hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T -4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O -+QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb -dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X -rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd -P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt -SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw -OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB -tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq -YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq -QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h -khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV -JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw -hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq -o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg -PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN -QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS -mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH -hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i -2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv -x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 -GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq -6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY -FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 -jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf -uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en -6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s -jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN -Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld -nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 -kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n -lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 -NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN -cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa -aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu -oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC -gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv -xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb -Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q -pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp -bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE -YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 -Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv -857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG -rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA -vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B -ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 -UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l -49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU -/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj -ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF -vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz -056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm -0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx -4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 -8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ -LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa -D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP -jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU -KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG -Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 -DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x -F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 -yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN -JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa -azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t -c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh -P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa -M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg -5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o -r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D -2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi -ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq -y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt -r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb -32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ -lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M -D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL -QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg -YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY -F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu -Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r -4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH -99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn -4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ -uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs - +1:eJwV1nk8VdsXAHAvDVTkkTnTvedeQ6hkiFxrGRIpSSqpFxFNqFChjJlTRIMQ +0k249xBPiohCKJlSlFKofq8QJVN4fvv9cT/38/2cz9mfvddZa+2l4nrM3n2e +gIDALPn99z/e01hLneeaJFVuKlhivs6kI0MmwLQrHD45SXw7bioFKNniKtOV +BJX24QUmpmw4ZZffKdiVDU5aWVeUTPXhz+/SSVOdxdBuObpiEi3hQ4XtsV+d +T8AnXakoAneCJfXt/Y/OdvB9PLytycQDpjoNrox09sGE8YqacYNTUGN+h9uW +PQrP9OttExdFw4oPZV9cNWch9XW1zdh4Iiz3dM5fZC6IAo+6571nXYWkNZYP +bXcI4eq5SRPP2DR4k7K6+oeYCCbsOVm+kZ0F57khLfNk/8R9C6K3eyRkg/Tl +/tjkGxJo1Tyr9/AhF6IdrE3axyVxd1bPB6OkHPA1vOncGC6DN2qW/vlhVy5Y +DP8O9O6XQ5O9k/d49XkQYHVZ4/GgHN7aIL71Y1MeFNzUeisxLocvlY5c+rM9 +D2QcXAzLhOSxbQ1X7Mi7PBh8UDchqC2Pd0IUfvwcyYPk8ES/6/7yyPV2nHaT +zYc+SbZ3rcgK7Lbsc3t8MB/CjLftl1ungD/A2e6v3/lgtS/jp4GZAk4s56rI +zuWDaOjAuR2bFZBZ9fpXqyAP0msicxJdFLA55XCWrggPHmwqH1gYS54/MhBq +UuLBiCPz1OgbBQxy0501suDBvpNjcU1nFJHRvLZOJo4HrGtmK75FKmLmYE+q +w0Ue2W8CvShREQ0kvI/FJ/EgcEa91YyriHGu0pIjqTy4cm6fZFmTIq681b8t +mseDpkv1mbcVlDDi9cDFsec8MCq4XhJcpYSzDUm6bcJ8sOhsnv3eoISHwiQk +t4jwwVZg/kbndiUU9X8YUCfGBzd77zfwWQnDc+pbeNJ8sDyjEhK6QBlvS325 +a8viw3Gl8VumK5WxcXS10xDwofZg5lDNKWV0XGe3IMGHD9YzhuJnzyjjSknZ +1LSTfGhO7NDXDSXvz08q5frz4U2ZcCg3VhnlL66N5gfz4fsSP/HIdGU8VXn/ +fFIcH2TuWhlYPlHGcUVJqwc3+eA5+SO0QUQF50xMPx19wQejEx5SX8RVMB9M +P5q28kHo21ueoIwKXvL/X4vESz7c7q55bcJQwWhJl/O8Lj70PLqieU9fBeMq +68/k9/Nha6Rh101nFfxZnXb+yyQfdMTDVp0pUkG75cofdyvTIHB+rDalVAXX +e32aKmDQ0Cx4xKn0oQoGanSIC7BoODpmH/mjTgW/6PaZX1WngdtFdR98q4LW ++7IKknRokMpsiHIQZKCAxWOhJnMaplaK9WjtYODcpq8iFm40jN+QC1vrxEDr +8Oh9f7rT8GsZizJ0ZqCi4EjvWw8avo8aHrE4zMCD0grnXI/Q0PfQbdwpiIG7 +oueMLU7Q8MzmvmjMbQYaPtOeZx9MQ33l46IL+eR99oOKvhAaalc1OSQXMlDb +0Kn4WBgNjyR6UzPKGJg9KLUtOIKG4u7FqvdeMDC4rveodxwNqUf3Qd8YA8VK +Cy+nXqHh2vtDff/7zcBJu1rz4as0XN7qGzk0x8D+iHkGmELDxbUxzyeFmdi5 +0GnwdSoN4dNFu5YpMtG3W+dWZyaJz/kFx40tmaim2dPIzqPh0OwyCTMbJo6Z +Kc7HfBo8jsmVbrRjYrbQzvgdPBpctq+asXdiokOoYexJmgYH+d0xh72ZuGdz +u2VsEQ3GPH7W1atMTGgqchMoo6FbmZe5IY2J6++/HmghDryal/Erk4ny/paW +6eU03A/LSbfPY2LvCWO/lRU06DhmpYhWMHHVXtlaZhUNbS8yrlVWM7H6L7Xv +b4iPm9+46lnHxEsV09/jq2ko0E69/KyZiQVG+qe/PqZBfcHlxKheJrrWLSg+ +W0tDQ2BSgt4XJqqmQrZsHTnPSOLFT9+YKB3Z5fU3Mbf7QrzZLya6PQi+/v4p +DcrF0TH/LqTw9Au57UsbaahSjYqml1DoNlGvnUi870ZE1F4xCjdkJnwTe0ZD +WkxYRLkshTIlr+YLPyf55Hwm9JQmhe2LNF+9bKLhXkdACGsNhYN3U56YvCDx +2uQf3KFHodSR6cs5xEl6J8/qAIWmG+QGPJtpWMPzPdNrTqEISBx/Ttyq7BOY +aEXhvxNn3rFbaBBZesz/+zYK91bKe3cQ88O8Tt/YSeGdC8mX2a00bJo4emrz +HgrtuTPck8QxfYf88g9QaBetHrW4jQZVx4O+uw+T/U6vcbQjfvrC3UfIm8I8 +wXtSycTzy1yPe5ymUPhE2Z5l7TTc0t5/TPIshU6O5/qtiM24zt61oRQOdzk6 +hRB/lN3n5RtJoY3Hh+pi4pCEvZ6MOAqXfK+Q7idWXLDnaNtFChM7rzmLvaSh +InD3kdBkCgsFpa8bEf9233moJ51C1QVZ/ZHE17sdDl64SeIxNTWWQ7xu23YP +4xwKBb1SZmqJO59ucx/Ip7A8nZr8QHzK2O5AaiGFycZWXyeIJYtt3axLKNzi +T7cu7aChRHWL6+QDCheO/lugSGx/w2b/nUoKvzz9X4QW8Q/xTS47n1DYHSGx +3ZC4y5PReqSewtTixyVmxNVPf0NIE4VzKTHRVsS5yi8Lk9solBu3aNpEnBjI +U8p9TWGHRsc5a2L/jnMJFd0U+hgtL7QgdtHeO9f6kcK1z/ptjYmtYnSPff5M +4T/KjAOriVf3Lf0w9Y3CYHbhsDKxjPFnW9ERCm+7Hf0pQixwtfIRY4zE/491 +Xv+d75/hK9oGvykMbxh3eU/cYu2dYTNHYZhKXHMVcektS1GX+Sysl3hVmkGc +MasY7CfMwqMbHsoFEkftmhiKEWVhw2/l6W3E3kUtf92QYKGg1IAjm3jnktwX +RTIszJGa050g38/EPZTzVIGFHFnzxFpiEdk1CsOqLGzjjtc7EP/yEb4gqMXC +OV+9HGnid029M9I6LCxpNVvUSfKJH5r0Do1ZWHHYe4cN8eW3RzbvMGXh9hoX +CwHis7rmFYctWajyqbGsiOSrzT+jaUl2LJxnW7h+MfG3rTv2fDrAwqGuwnuX +SD2052k9nzzMwlFbzk8N4nLBhetFjrHw/Y2CimpST7H3S+X0A8j+gv/9t5fU +n5qSzNvoCyxc+b1q+zSpV7GAEev0JBKPux2yAcST7Q1ld6+x0KfV+eQoqe+G +qIDrb26yUGcPPfK+gYaD3986rixlYWujuEQc6Q+2Vn83wEMWUrdrMgdJ/9DP +Pr/OoZqFqdM3G22IF+40lgl6xkKJnS8m52poyKm80dncw0KRM9YfgfSnT/Eu +O30WsVFm/PddxYck/t80GauXshES7xXvJv1wYuPU0JAYG+POzm+5RPrlYsGk +yMNybOyTvuM0dZ/kS0BNiYsWG3Vdl766XUJDkDtbYut2st7MUrH/+vHCmp89 +Sx3ZqHbeWjGcT/JTuSr/2V42TiYddIjn/dfvdplZerBR73fu+hTS759tiz3B +CWBj6dyMyMXbpH+ZDLaszGTj1YoFYT/TachKe5D29RYbxXWDfdvTSH+dijh4 +J5eNZeej0wrJfWJcojDHKGZjVV5dwn5y37hpbNWWq2OjW9Q2FW4yDXeliuOF +Btg4e7afz42lwXr4tPVnfVU8rrQ69bovDSvWKEYJGauildfUsXk+5D71qX2y +0lQVvdQPKR86TvJlXMzYx0YVWz51SWp40dAzm6c956yKv4Sv+MaQ+9dn6TsJ +2VhVlHjiIHDXkdyP6tizuVsVIx/rc4uNaPA8+kXu+EdVfHyxTrJsHQ1Ax+9K +/qyKZ0t7oyv0yfdY/ab1zbAqytun+pSTeUB7nU+Nx3w17O9fEpGkQUONJTc3 +VEsNO81Uc0tkaRh0E/ItCVHDFyI6SY1jZB7KsKisilBDIVrvQNAoH4bfhC56 +HquGf18L9Nf+wYefW6fSepPV0FYj1jNmkA8T67/ViuaqIUdFjCtP5pt5y5uk +DreqYXqT397qFj7I1iaUK6ioo66nmPOSO2Seo6TnRT9Rxxlf16GBLXz46rox +d329Og5MS0do2vAh/uZp25Hn6qji+MfMESs+vFTsSt39Sh1/Wock95rxwUX2 ++lrNf9RR3i8j6J4BHwJE5d3bRDTwldIVxpQyH/iTig3yuzWwPO1D5/gPHoi/ +YF+8O6yBM/sbry8g8+yKmEI7fX1NXJL5h8Ke9HxIWWkoJnFQC6e7laWqM/Pg +mZyp3uglbcwKup2jmJwLRiueJK56vQrDKjeHDe69A6KC2X77w1fjYWvDCEXt +HFAMUzLezV6DT4sOuv3xjgvCrL2l9vVrsHf92JxL3C3Q5sgWnv5LB9lKQmdm +tmSDT494zSaBtfi+dOHW1sksGB6N32GdshYPN9uKagZnwsZVT1OttXTxl2tG +yAvqBjwaXT890ayL4UuGvM34qeCtqfO2zV0PrY88+hnilwKc7wc6dgvrY1DI +udSnaldhAyWzRSRbH83MNe8dVb4MaqFx/k8MDJB97HFUgkkSaLgbVrHeGqDY +mFZ4tUMiuD86FFFyYh2aFn7doLDzAlRldRz4IWmIy5oa/e0E4uBX7tzEqvuG +qHPr/qP5c1HgxuIJp24xwtNb9g/c9IqAHxrJ+sUjRrjnZ/6yQ5/C4AF3uncs +Zj0m/3XtoWxICDhZkFlJ0Rir9Q5cEyo6A/Je0WXa1cbYO3Kyd+HMaZBc7Fm0 +ZRcHz/ZMPTL67Adc86DAkd0c1MtJj9Tr8gOdoIvmyXs5yNRY/lX/uR/Yjtx9 +1bWfg8KSN4O2FPlB1OuxKTdPDurYL85sDPKDyewQs8AwDlaVxbRNS/vB2/XJ +L3N4HNzhlXpg3TZfOHSSm25dwMGO8/Gn523whfGCe+6DdzlY91TjY/s6XxBn +dE2sKeXgrMu5vChlX7ARUlhRWc1B1LTpMRzxgYqOnAMvX3HQcpPb+6ZEH9gk ++kDrVBcHXRd9gOkIH+ja2Dgu083Bd0IeHasCfOBX+UDMvo8cjFEpiOPt9wGt +m6vpr984WBvYPjSoQ9Z7a3oqfoiDw3PbszerkvWWb4dVI+Q81uKni+V9wCP6 +ZJvfGAfVy/b5J84n61VHpUpPclD0WUCW0NQJCP99za38Nwcf+Q18iBo6AWK6 +eZp/zXJwwj5Qd0nfCcjwKh+bmyP7FR1Ku/L6BPwfufNcag== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "PlotRange" -> {{0, 30}, {0., 0.058260285792567326`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10719,6 +11466,7 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -10746,7 +11494,8 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.13473082946272152`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.058260285792567326`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -10754,22 +11503,565 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991324915847246*^9}, + CellChangeTimes->{3.991324915847246*^9, 3.994252849323636*^9}, CellLabel-> - "Out[112]=",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] + "Out[128]=",ExpressionUUID->"2018ba22-c4fc-405e-a8de-88c18038f15d"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{3.991799816909994*^9, 3.9918001103050213`*^9, - 3.991924419552084*^9},ExpressionUUID->"c5eb8b00-da53-e74c-9781-\ -4f98a6653ef7"], + 3.991924419552084*^9}, + CellLabel-> + "In[129]:=",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.991799819852022*^9, - 3.9917998213158054`*^9}},ExpressionUUID->"05df483d-64d7-9449-845e-\ -6e6b94590d4b"], + CellChangeTimes->{{3.991799819852022*^9, 3.9917998213158054`*^9}}, + CellLabel-> + "In[130]:=",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk8VdsXAHAvDVTkkTnTvedeQ6hkiFxrGRIpSSqpFxFNqFChjJlTRIMQ +0k249xBPiohCKJlSlFKofq8QJVN4fvv9cT/38/2cz9mfvddZa+2l4nrM3n2e +gIDALPn99z/e01hLneeaJFVuKlhivs6kI0MmwLQrHD45SXw7bioFKNniKtOV +BJX24QUmpmw4ZZffKdiVDU5aWVeUTPXhz+/SSVOdxdBuObpiEi3hQ4XtsV+d +T8AnXakoAneCJfXt/Y/OdvB9PLytycQDpjoNrox09sGE8YqacYNTUGN+h9uW +PQrP9OttExdFw4oPZV9cNWch9XW1zdh4Iiz3dM5fZC6IAo+6571nXYWkNZYP +bXcI4eq5SRPP2DR4k7K6+oeYCCbsOVm+kZ0F57khLfNk/8R9C6K3eyRkg/Tl +/tjkGxJo1Tyr9/AhF6IdrE3axyVxd1bPB6OkHPA1vOncGC6DN2qW/vlhVy5Y +DP8O9O6XQ5O9k/d49XkQYHVZ4/GgHN7aIL71Y1MeFNzUeisxLocvlY5c+rM9 +D2QcXAzLhOSxbQ1X7Mi7PBh8UDchqC2Pd0IUfvwcyYPk8ES/6/7yyPV2nHaT +zYc+SbZ3rcgK7Lbsc3t8MB/CjLftl1ungD/A2e6v3/lgtS/jp4GZAk4s56rI +zuWDaOjAuR2bFZBZ9fpXqyAP0msicxJdFLA55XCWrggPHmwqH1gYS54/MhBq +UuLBiCPz1OgbBQxy0501suDBvpNjcU1nFJHRvLZOJo4HrGtmK75FKmLmYE+q +w0Ue2W8CvShREQ0kvI/FJ/EgcEa91YyriHGu0pIjqTy4cm6fZFmTIq681b8t +mseDpkv1mbcVlDDi9cDFsec8MCq4XhJcpYSzDUm6bcJ8sOhsnv3eoISHwiQk +t4jwwVZg/kbndiUU9X8YUCfGBzd77zfwWQnDc+pbeNJ8sDyjEhK6QBlvS325 +a8viw3Gl8VumK5WxcXS10xDwofZg5lDNKWV0XGe3IMGHD9YzhuJnzyjjSknZ +1LSTfGhO7NDXDSXvz08q5frz4U2ZcCg3VhnlL66N5gfz4fsSP/HIdGU8VXn/ +fFIcH2TuWhlYPlHGcUVJqwc3+eA5+SO0QUQF50xMPx19wQejEx5SX8RVMB9M +P5q28kHo21ueoIwKXvL/X4vESz7c7q55bcJQwWhJl/O8Lj70PLqieU9fBeMq +68/k9/Nha6Rh101nFfxZnXb+yyQfdMTDVp0pUkG75cofdyvTIHB+rDalVAXX +e32aKmDQ0Cx4xKn0oQoGanSIC7BoODpmH/mjTgW/6PaZX1WngdtFdR98q4LW ++7IKknRokMpsiHIQZKCAxWOhJnMaplaK9WjtYODcpq8iFm40jN+QC1vrxEDr +8Oh9f7rT8GsZizJ0ZqCi4EjvWw8avo8aHrE4zMCD0grnXI/Q0PfQbdwpiIG7 +oueMLU7Q8MzmvmjMbQYaPtOeZx9MQ33l46IL+eR99oOKvhAaalc1OSQXMlDb +0Kn4WBgNjyR6UzPKGJg9KLUtOIKG4u7FqvdeMDC4rveodxwNqUf3Qd8YA8VK +Cy+nXqHh2vtDff/7zcBJu1rz4as0XN7qGzk0x8D+iHkGmELDxbUxzyeFmdi5 +0GnwdSoN4dNFu5YpMtG3W+dWZyaJz/kFx40tmaim2dPIzqPh0OwyCTMbJo6Z +Kc7HfBo8jsmVbrRjYrbQzvgdPBpctq+asXdiokOoYexJmgYH+d0xh72ZuGdz +u2VsEQ3GPH7W1atMTGgqchMoo6FbmZe5IY2J6++/HmghDryal/Erk4ny/paW +6eU03A/LSbfPY2LvCWO/lRU06DhmpYhWMHHVXtlaZhUNbS8yrlVWM7H6L7Xv +b4iPm9+46lnHxEsV09/jq2ko0E69/KyZiQVG+qe/PqZBfcHlxKheJrrWLSg+ +W0tDQ2BSgt4XJqqmQrZsHTnPSOLFT9+YKB3Z5fU3Mbf7QrzZLya6PQi+/v4p +DcrF0TH/LqTw9Au57UsbaahSjYqml1DoNlGvnUi870ZE1F4xCjdkJnwTe0ZD +WkxYRLkshTIlr+YLPyf55Hwm9JQmhe2LNF+9bKLhXkdACGsNhYN3U56YvCDx +2uQf3KFHodSR6cs5xEl6J8/qAIWmG+QGPJtpWMPzPdNrTqEISBx/Ttyq7BOY +aEXhvxNn3rFbaBBZesz/+zYK91bKe3cQ88O8Tt/YSeGdC8mX2a00bJo4emrz +HgrtuTPck8QxfYf88g9QaBetHrW4jQZVx4O+uw+T/U6vcbQjfvrC3UfIm8I8 +wXtSycTzy1yPe5ymUPhE2Z5l7TTc0t5/TPIshU6O5/qtiM24zt61oRQOdzk6 +hRB/lN3n5RtJoY3Hh+pi4pCEvZ6MOAqXfK+Q7idWXLDnaNtFChM7rzmLvaSh +InD3kdBkCgsFpa8bEf9233moJ51C1QVZ/ZHE17sdDl64SeIxNTWWQ7xu23YP +4xwKBb1SZmqJO59ucx/Ip7A8nZr8QHzK2O5AaiGFycZWXyeIJYtt3axLKNzi +T7cu7aChRHWL6+QDCheO/lugSGx/w2b/nUoKvzz9X4QW8Q/xTS47n1DYHSGx +3ZC4y5PReqSewtTixyVmxNVPf0NIE4VzKTHRVsS5yi8Lk9solBu3aNpEnBjI +U8p9TWGHRsc5a2L/jnMJFd0U+hgtL7QgdtHeO9f6kcK1z/ptjYmtYnSPff5M +4T/KjAOriVf3Lf0w9Y3CYHbhsDKxjPFnW9ERCm+7Hf0pQixwtfIRY4zE/491 +Xv+d75/hK9oGvykMbxh3eU/cYu2dYTNHYZhKXHMVcektS1GX+Sysl3hVmkGc +MasY7CfMwqMbHsoFEkftmhiKEWVhw2/l6W3E3kUtf92QYKGg1IAjm3jnktwX +RTIszJGa050g38/EPZTzVIGFHFnzxFpiEdk1CsOqLGzjjtc7EP/yEb4gqMXC +OV+9HGnid029M9I6LCxpNVvUSfKJH5r0Do1ZWHHYe4cN8eW3RzbvMGXh9hoX +CwHis7rmFYctWajyqbGsiOSrzT+jaUl2LJxnW7h+MfG3rTv2fDrAwqGuwnuX +SD2052k9nzzMwlFbzk8N4nLBhetFjrHw/Y2CimpST7H3S+X0A8j+gv/9t5fU +n5qSzNvoCyxc+b1q+zSpV7GAEev0JBKPux2yAcST7Q1ld6+x0KfV+eQoqe+G +qIDrb26yUGcPPfK+gYaD3986rixlYWujuEQc6Q+2Vn83wEMWUrdrMgdJ/9DP +Pr/OoZqFqdM3G22IF+40lgl6xkKJnS8m52poyKm80dncw0KRM9YfgfSnT/Eu +O30WsVFm/PddxYck/t80GauXshES7xXvJv1wYuPU0JAYG+POzm+5RPrlYsGk +yMNybOyTvuM0dZ/kS0BNiYsWG3Vdl766XUJDkDtbYut2st7MUrH/+vHCmp89 +Sx3ZqHbeWjGcT/JTuSr/2V42TiYddIjn/dfvdplZerBR73fu+hTS759tiz3B +CWBj6dyMyMXbpH+ZDLaszGTj1YoFYT/TachKe5D29RYbxXWDfdvTSH+dijh4 +J5eNZeej0wrJfWJcojDHKGZjVV5dwn5y37hpbNWWq2OjW9Q2FW4yDXeliuOF +Btg4e7afz42lwXr4tPVnfVU8rrQ69bovDSvWKEYJGauildfUsXk+5D71qX2y +0lQVvdQPKR86TvJlXMzYx0YVWz51SWp40dAzm6c956yKv4Sv+MaQ+9dn6TsJ +2VhVlHjiIHDXkdyP6tizuVsVIx/rc4uNaPA8+kXu+EdVfHyxTrJsHQ1Ax+9K +/qyKZ0t7oyv0yfdY/ab1zbAqytun+pSTeUB7nU+Nx3w17O9fEpGkQUONJTc3 +VEsNO81Uc0tkaRh0E/ItCVHDFyI6SY1jZB7KsKisilBDIVrvQNAoH4bfhC56 +HquGf18L9Nf+wYefW6fSepPV0FYj1jNmkA8T67/ViuaqIUdFjCtP5pt5y5uk +DreqYXqT397qFj7I1iaUK6ioo66nmPOSO2Seo6TnRT9Rxxlf16GBLXz46rox +d329Og5MS0do2vAh/uZp25Hn6qji+MfMESs+vFTsSt39Sh1/Wock95rxwUX2 ++lrNf9RR3i8j6J4BHwJE5d3bRDTwldIVxpQyH/iTig3yuzWwPO1D5/gPHoi/ +YF+8O6yBM/sbry8g8+yKmEI7fX1NXJL5h8Ke9HxIWWkoJnFQC6e7laWqM/Pg +mZyp3uglbcwKup2jmJwLRiueJK56vQrDKjeHDe69A6KC2X77w1fjYWvDCEXt +HFAMUzLezV6DT4sOuv3xjgvCrL2l9vVrsHf92JxL3C3Q5sgWnv5LB9lKQmdm +tmSDT494zSaBtfi+dOHW1sksGB6N32GdshYPN9uKagZnwsZVT1OttXTxl2tG +yAvqBjwaXT890ayL4UuGvM34qeCtqfO2zV0PrY88+hnilwKc7wc6dgvrY1DI +udSnaldhAyWzRSRbH83MNe8dVb4MaqFx/k8MDJB97HFUgkkSaLgbVrHeGqDY +mFZ4tUMiuD86FFFyYh2aFn7doLDzAlRldRz4IWmIy5oa/e0E4uBX7tzEqvuG +qHPr/qP5c1HgxuIJp24xwtNb9g/c9IqAHxrJ+sUjRrjnZ/6yQ5/C4AF3uncs +Zj0m/3XtoWxICDhZkFlJ0Rir9Q5cEyo6A/Je0WXa1cbYO3Kyd+HMaZBc7Fm0 +ZRcHz/ZMPTL67Adc86DAkd0c1MtJj9Tr8gOdoIvmyXs5yNRY/lX/uR/Yjtx9 +1bWfg8KSN4O2FPlB1OuxKTdPDurYL85sDPKDyewQs8AwDlaVxbRNS/vB2/XJ +L3N4HNzhlXpg3TZfOHSSm25dwMGO8/Gn523whfGCe+6DdzlY91TjY/s6XxBn +dE2sKeXgrMu5vChlX7ARUlhRWc1B1LTpMRzxgYqOnAMvX3HQcpPb+6ZEH9gk ++kDrVBcHXRd9gOkIH+ja2Dgu083Bd0IeHasCfOBX+UDMvo8cjFEpiOPt9wGt +m6vpr984WBvYPjSoQ9Z7a3oqfoiDw3PbszerkvWWb4dVI+Q81uKni+V9wCP6 +ZJvfGAfVy/b5J84n61VHpUpPclD0WUCW0NQJCP99za38Nwcf+Q18iBo6AWK6 +eZp/zXJwwj5Qd0nfCcjwKh+bmyP7FR1Ku/L6BPwfufNcag== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VdsXAHAvDVTkkTnTvedeQ6hkiFxrGRIpSSqpFxFNqFChjJlTRIMQ +0k249xBPiohCKJlSlFKofq8QJVN4fvv9cT/38/2cz9mfvddZa+2l4nrM3n2e +gIDALPn99z/e01hLneeaJFVuKlhivs6kI0MmwLQrHD45SXw7bioFKNniKtOV +BJX24QUmpmw4ZZffKdiVDU5aWVeUTPXhz+/SSVOdxdBuObpiEi3hQ4XtsV+d +T8AnXakoAneCJfXt/Y/OdvB9PLytycQDpjoNrox09sGE8YqacYNTUGN+h9uW +PQrP9OttExdFw4oPZV9cNWch9XW1zdh4Iiz3dM5fZC6IAo+6571nXYWkNZYP +bXcI4eq5SRPP2DR4k7K6+oeYCCbsOVm+kZ0F57khLfNk/8R9C6K3eyRkg/Tl +/tjkGxJo1Tyr9/AhF6IdrE3axyVxd1bPB6OkHPA1vOncGC6DN2qW/vlhVy5Y +DP8O9O6XQ5O9k/d49XkQYHVZ4/GgHN7aIL71Y1MeFNzUeisxLocvlY5c+rM9 +D2QcXAzLhOSxbQ1X7Mi7PBh8UDchqC2Pd0IUfvwcyYPk8ES/6/7yyPV2nHaT +zYc+SbZ3rcgK7Lbsc3t8MB/CjLftl1ungD/A2e6v3/lgtS/jp4GZAk4s56rI +zuWDaOjAuR2bFZBZ9fpXqyAP0msicxJdFLA55XCWrggPHmwqH1gYS54/MhBq +UuLBiCPz1OgbBQxy0501suDBvpNjcU1nFJHRvLZOJo4HrGtmK75FKmLmYE+q +w0Ue2W8CvShREQ0kvI/FJ/EgcEa91YyriHGu0pIjqTy4cm6fZFmTIq681b8t +mseDpkv1mbcVlDDi9cDFsec8MCq4XhJcpYSzDUm6bcJ8sOhsnv3eoISHwiQk +t4jwwVZg/kbndiUU9X8YUCfGBzd77zfwWQnDc+pbeNJ8sDyjEhK6QBlvS325 +a8viw3Gl8VumK5WxcXS10xDwofZg5lDNKWV0XGe3IMGHD9YzhuJnzyjjSknZ +1LSTfGhO7NDXDSXvz08q5frz4U2ZcCg3VhnlL66N5gfz4fsSP/HIdGU8VXn/ +fFIcH2TuWhlYPlHGcUVJqwc3+eA5+SO0QUQF50xMPx19wQejEx5SX8RVMB9M +P5q28kHo21ueoIwKXvL/X4vESz7c7q55bcJQwWhJl/O8Lj70PLqieU9fBeMq +68/k9/Nha6Rh101nFfxZnXb+yyQfdMTDVp0pUkG75cofdyvTIHB+rDalVAXX +e32aKmDQ0Cx4xKn0oQoGanSIC7BoODpmH/mjTgW/6PaZX1WngdtFdR98q4LW ++7IKknRokMpsiHIQZKCAxWOhJnMaplaK9WjtYODcpq8iFm40jN+QC1vrxEDr +8Oh9f7rT8GsZizJ0ZqCi4EjvWw8avo8aHrE4zMCD0grnXI/Q0PfQbdwpiIG7 +oueMLU7Q8MzmvmjMbQYaPtOeZx9MQ33l46IL+eR99oOKvhAaalc1OSQXMlDb +0Kn4WBgNjyR6UzPKGJg9KLUtOIKG4u7FqvdeMDC4rveodxwNqUf3Qd8YA8VK +Cy+nXqHh2vtDff/7zcBJu1rz4as0XN7qGzk0x8D+iHkGmELDxbUxzyeFmdi5 +0GnwdSoN4dNFu5YpMtG3W+dWZyaJz/kFx40tmaim2dPIzqPh0OwyCTMbJo6Z +Kc7HfBo8jsmVbrRjYrbQzvgdPBpctq+asXdiokOoYexJmgYH+d0xh72ZuGdz +u2VsEQ3GPH7W1atMTGgqchMoo6FbmZe5IY2J6++/HmghDryal/Erk4ny/paW +6eU03A/LSbfPY2LvCWO/lRU06DhmpYhWMHHVXtlaZhUNbS8yrlVWM7H6L7Xv +b4iPm9+46lnHxEsV09/jq2ko0E69/KyZiQVG+qe/PqZBfcHlxKheJrrWLSg+ +W0tDQ2BSgt4XJqqmQrZsHTnPSOLFT9+YKB3Z5fU3Mbf7QrzZLya6PQi+/v4p +DcrF0TH/LqTw9Au57UsbaahSjYqml1DoNlGvnUi870ZE1F4xCjdkJnwTe0ZD +WkxYRLkshTIlr+YLPyf55Hwm9JQmhe2LNF+9bKLhXkdACGsNhYN3U56YvCDx +2uQf3KFHodSR6cs5xEl6J8/qAIWmG+QGPJtpWMPzPdNrTqEISBx/Ttyq7BOY +aEXhvxNn3rFbaBBZesz/+zYK91bKe3cQ88O8Tt/YSeGdC8mX2a00bJo4emrz +HgrtuTPck8QxfYf88g9QaBetHrW4jQZVx4O+uw+T/U6vcbQjfvrC3UfIm8I8 +wXtSycTzy1yPe5ymUPhE2Z5l7TTc0t5/TPIshU6O5/qtiM24zt61oRQOdzk6 +hRB/lN3n5RtJoY3Hh+pi4pCEvZ6MOAqXfK+Q7idWXLDnaNtFChM7rzmLvaSh +InD3kdBkCgsFpa8bEf9233moJ51C1QVZ/ZHE17sdDl64SeIxNTWWQ7xu23YP +4xwKBb1SZmqJO59ucx/Ip7A8nZr8QHzK2O5AaiGFycZWXyeIJYtt3axLKNzi +T7cu7aChRHWL6+QDCheO/lugSGx/w2b/nUoKvzz9X4QW8Q/xTS47n1DYHSGx +3ZC4y5PReqSewtTixyVmxNVPf0NIE4VzKTHRVsS5yi8Lk9solBu3aNpEnBjI +U8p9TWGHRsc5a2L/jnMJFd0U+hgtL7QgdtHeO9f6kcK1z/ptjYmtYnSPff5M +4T/KjAOriVf3Lf0w9Y3CYHbhsDKxjPFnW9ERCm+7Hf0pQixwtfIRY4zE/491 +Xv+d75/hK9oGvykMbxh3eU/cYu2dYTNHYZhKXHMVcektS1GX+Sysl3hVmkGc +MasY7CfMwqMbHsoFEkftmhiKEWVhw2/l6W3E3kUtf92QYKGg1IAjm3jnktwX +RTIszJGa050g38/EPZTzVIGFHFnzxFpiEdk1CsOqLGzjjtc7EP/yEb4gqMXC +OV+9HGnid029M9I6LCxpNVvUSfKJH5r0Do1ZWHHYe4cN8eW3RzbvMGXh9hoX +CwHis7rmFYctWajyqbGsiOSrzT+jaUl2LJxnW7h+MfG3rTv2fDrAwqGuwnuX +SD2052k9nzzMwlFbzk8N4nLBhetFjrHw/Y2CimpST7H3S+X0A8j+gv/9t5fU +n5qSzNvoCyxc+b1q+zSpV7GAEev0JBKPux2yAcST7Q1ld6+x0KfV+eQoqe+G +qIDrb26yUGcPPfK+gYaD3986rixlYWujuEQc6Q+2Vn83wEMWUrdrMgdJ/9DP +Pr/OoZqFqdM3G22IF+40lgl6xkKJnS8m52poyKm80dncw0KRM9YfgfSnT/Eu +O30WsVFm/PddxYck/t80GauXshES7xXvJv1wYuPU0JAYG+POzm+5RPrlYsGk +yMNybOyTvuM0dZ/kS0BNiYsWG3Vdl766XUJDkDtbYut2st7MUrH/+vHCmp89 +Sx3ZqHbeWjGcT/JTuSr/2V42TiYddIjn/dfvdplZerBR73fu+hTS759tiz3B +CWBj6dyMyMXbpH+ZDLaszGTj1YoFYT/TachKe5D29RYbxXWDfdvTSH+dijh4 +J5eNZeej0wrJfWJcojDHKGZjVV5dwn5y37hpbNWWq2OjW9Q2FW4yDXeliuOF +Btg4e7afz42lwXr4tPVnfVU8rrQ69bovDSvWKEYJGauildfUsXk+5D71qX2y +0lQVvdQPKR86TvJlXMzYx0YVWz51SWp40dAzm6c956yKv4Sv+MaQ+9dn6TsJ +2VhVlHjiIHDXkdyP6tizuVsVIx/rc4uNaPA8+kXu+EdVfHyxTrJsHQ1Ax+9K +/qyKZ0t7oyv0yfdY/ab1zbAqytun+pSTeUB7nU+Nx3w17O9fEpGkQUONJTc3 +VEsNO81Uc0tkaRh0E/ItCVHDFyI6SY1jZB7KsKisilBDIVrvQNAoH4bfhC56 +HquGf18L9Nf+wYefW6fSepPV0FYj1jNmkA8T67/ViuaqIUdFjCtP5pt5y5uk +DreqYXqT397qFj7I1iaUK6ioo66nmPOSO2Seo6TnRT9Rxxlf16GBLXz46rox +d329Og5MS0do2vAh/uZp25Hn6qji+MfMESs+vFTsSt39Sh1/Wock95rxwUX2 ++lrNf9RR3i8j6J4BHwJE5d3bRDTwldIVxpQyH/iTig3yuzWwPO1D5/gPHoi/ +YF+8O6yBM/sbry8g8+yKmEI7fX1NXJL5h8Ke9HxIWWkoJnFQC6e7laWqM/Pg +mZyp3uglbcwKup2jmJwLRiueJK56vQrDKjeHDe69A6KC2X77w1fjYWvDCEXt +HFAMUzLezV6DT4sOuv3xjgvCrL2l9vVrsHf92JxL3C3Q5sgWnv5LB9lKQmdm +tmSDT494zSaBtfi+dOHW1sksGB6N32GdshYPN9uKagZnwsZVT1OttXTxl2tG +yAvqBjwaXT890ayL4UuGvM34qeCtqfO2zV0PrY88+hnilwKc7wc6dgvrY1DI +udSnaldhAyWzRSRbH83MNe8dVb4MaqFx/k8MDJB97HFUgkkSaLgbVrHeGqDY +mFZ4tUMiuD86FFFyYh2aFn7doLDzAlRldRz4IWmIy5oa/e0E4uBX7tzEqvuG +qHPr/qP5c1HgxuIJp24xwtNb9g/c9IqAHxrJ+sUjRrjnZ/6yQ5/C4AF3uncs +Zj0m/3XtoWxICDhZkFlJ0Rir9Q5cEyo6A/Je0WXa1cbYO3Kyd+HMaZBc7Fm0 +ZRcHz/ZMPTL67Adc86DAkd0c1MtJj9Tr8gOdoIvmyXs5yNRY/lX/uR/Yjtx9 +1bWfg8KSN4O2FPlB1OuxKTdPDurYL85sDPKDyewQs8AwDlaVxbRNS/vB2/XJ +L3N4HNzhlXpg3TZfOHSSm25dwMGO8/Gn523whfGCe+6DdzlY91TjY/s6XxBn +dE2sKeXgrMu5vChlX7ARUlhRWc1B1LTpMRzxgYqOnAMvX3HQcpPb+6ZEH9gk ++kDrVBcHXRd9gOkIH+ja2Dgu083Bd0IeHasCfOBX+UDMvo8cjFEpiOPt9wGt +m6vpr984WBvYPjSoQ9Z7a3oqfoiDw3PbszerkvWWb4dVI+Q81uKni+V9wCP6 +ZJvfGAfVy/b5J84n61VHpUpPclD0WUCW0NQJCP99za38Nwcf+Q18iBo6AWK6 +eZp/zXJwwj5Qd0nfCcjwKh+bmyP7FR1Ku/L6BPwfufNcag== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.058260285792567326`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.058260285792567326`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VdsXAHAvDVTkkTnTvedeQ6hkiFxrGRIpSSqpFxFNqFChjJlTRIMQ +0k249xBPiohCKJlSlFKofq8QJVN4fvv9cT/38/2cz9mfvddZa+2l4nrM3n2e +gIDALPn99z/e01hLneeaJFVuKlhivs6kI0MmwLQrHD45SXw7bioFKNniKtOV +BJX24QUmpmw4ZZffKdiVDU5aWVeUTPXhz+/SSVOdxdBuObpiEi3hQ4XtsV+d +T8AnXakoAneCJfXt/Y/OdvB9PLytycQDpjoNrox09sGE8YqacYNTUGN+h9uW +PQrP9OttExdFw4oPZV9cNWch9XW1zdh4Iiz3dM5fZC6IAo+6571nXYWkNZYP +bXcI4eq5SRPP2DR4k7K6+oeYCCbsOVm+kZ0F57khLfNk/8R9C6K3eyRkg/Tl +/tjkGxJo1Tyr9/AhF6IdrE3axyVxd1bPB6OkHPA1vOncGC6DN2qW/vlhVy5Y +DP8O9O6XQ5O9k/d49XkQYHVZ4/GgHN7aIL71Y1MeFNzUeisxLocvlY5c+rM9 +D2QcXAzLhOSxbQ1X7Mi7PBh8UDchqC2Pd0IUfvwcyYPk8ES/6/7yyPV2nHaT +zYc+SbZ3rcgK7Lbsc3t8MB/CjLftl1ungD/A2e6v3/lgtS/jp4GZAk4s56rI +zuWDaOjAuR2bFZBZ9fpXqyAP0msicxJdFLA55XCWrggPHmwqH1gYS54/MhBq +UuLBiCPz1OgbBQxy0501suDBvpNjcU1nFJHRvLZOJo4HrGtmK75FKmLmYE+q +w0Ue2W8CvShREQ0kvI/FJ/EgcEa91YyriHGu0pIjqTy4cm6fZFmTIq681b8t +mseDpkv1mbcVlDDi9cDFsec8MCq4XhJcpYSzDUm6bcJ8sOhsnv3eoISHwiQk +t4jwwVZg/kbndiUU9X8YUCfGBzd77zfwWQnDc+pbeNJ8sDyjEhK6QBlvS325 +a8viw3Gl8VumK5WxcXS10xDwofZg5lDNKWV0XGe3IMGHD9YzhuJnzyjjSknZ +1LSTfGhO7NDXDSXvz08q5frz4U2ZcCg3VhnlL66N5gfz4fsSP/HIdGU8VXn/ +fFIcH2TuWhlYPlHGcUVJqwc3+eA5+SO0QUQF50xMPx19wQejEx5SX8RVMB9M +P5q28kHo21ueoIwKXvL/X4vESz7c7q55bcJQwWhJl/O8Lj70PLqieU9fBeMq +68/k9/Nha6Rh101nFfxZnXb+yyQfdMTDVp0pUkG75cofdyvTIHB+rDalVAXX +e32aKmDQ0Cx4xKn0oQoGanSIC7BoODpmH/mjTgW/6PaZX1WngdtFdR98q4LW ++7IKknRokMpsiHIQZKCAxWOhJnMaplaK9WjtYODcpq8iFm40jN+QC1vrxEDr +8Oh9f7rT8GsZizJ0ZqCi4EjvWw8avo8aHrE4zMCD0grnXI/Q0PfQbdwpiIG7 +oueMLU7Q8MzmvmjMbQYaPtOeZx9MQ33l46IL+eR99oOKvhAaalc1OSQXMlDb +0Kn4WBgNjyR6UzPKGJg9KLUtOIKG4u7FqvdeMDC4rveodxwNqUf3Qd8YA8VK +Cy+nXqHh2vtDff/7zcBJu1rz4as0XN7qGzk0x8D+iHkGmELDxbUxzyeFmdi5 +0GnwdSoN4dNFu5YpMtG3W+dWZyaJz/kFx40tmaim2dPIzqPh0OwyCTMbJo6Z +Kc7HfBo8jsmVbrRjYrbQzvgdPBpctq+asXdiokOoYexJmgYH+d0xh72ZuGdz +u2VsEQ3GPH7W1atMTGgqchMoo6FbmZe5IY2J6++/HmghDryal/Erk4ny/paW +6eU03A/LSbfPY2LvCWO/lRU06DhmpYhWMHHVXtlaZhUNbS8yrlVWM7H6L7Xv +b4iPm9+46lnHxEsV09/jq2ko0E69/KyZiQVG+qe/PqZBfcHlxKheJrrWLSg+ +W0tDQ2BSgt4XJqqmQrZsHTnPSOLFT9+YKB3Z5fU3Mbf7QrzZLya6PQi+/v4p +DcrF0TH/LqTw9Au57UsbaahSjYqml1DoNlGvnUi870ZE1F4xCjdkJnwTe0ZD +WkxYRLkshTIlr+YLPyf55Hwm9JQmhe2LNF+9bKLhXkdACGsNhYN3U56YvCDx +2uQf3KFHodSR6cs5xEl6J8/qAIWmG+QGPJtpWMPzPdNrTqEISBx/Ttyq7BOY +aEXhvxNn3rFbaBBZesz/+zYK91bKe3cQ88O8Tt/YSeGdC8mX2a00bJo4emrz +HgrtuTPck8QxfYf88g9QaBetHrW4jQZVx4O+uw+T/U6vcbQjfvrC3UfIm8I8 +wXtSycTzy1yPe5ymUPhE2Z5l7TTc0t5/TPIshU6O5/qtiM24zt61oRQOdzk6 +hRB/lN3n5RtJoY3Hh+pi4pCEvZ6MOAqXfK+Q7idWXLDnaNtFChM7rzmLvaSh +InD3kdBkCgsFpa8bEf9233moJ51C1QVZ/ZHE17sdDl64SeIxNTWWQ7xu23YP +4xwKBb1SZmqJO59ucx/Ip7A8nZr8QHzK2O5AaiGFycZWXyeIJYtt3axLKNzi +T7cu7aChRHWL6+QDCheO/lugSGx/w2b/nUoKvzz9X4QW8Q/xTS47n1DYHSGx +3ZC4y5PReqSewtTixyVmxNVPf0NIE4VzKTHRVsS5yi8Lk9solBu3aNpEnBjI +U8p9TWGHRsc5a2L/jnMJFd0U+hgtL7QgdtHeO9f6kcK1z/ptjYmtYnSPff5M +4T/KjAOriVf3Lf0w9Y3CYHbhsDKxjPFnW9ERCm+7Hf0pQixwtfIRY4zE/491 +Xv+d75/hK9oGvykMbxh3eU/cYu2dYTNHYZhKXHMVcektS1GX+Sysl3hVmkGc +MasY7CfMwqMbHsoFEkftmhiKEWVhw2/l6W3E3kUtf92QYKGg1IAjm3jnktwX +RTIszJGa050g38/EPZTzVIGFHFnzxFpiEdk1CsOqLGzjjtc7EP/yEb4gqMXC +OV+9HGnid029M9I6LCxpNVvUSfKJH5r0Do1ZWHHYe4cN8eW3RzbvMGXh9hoX +CwHis7rmFYctWajyqbGsiOSrzT+jaUl2LJxnW7h+MfG3rTv2fDrAwqGuwnuX +SD2052k9nzzMwlFbzk8N4nLBhetFjrHw/Y2CimpST7H3S+X0A8j+gv/9t5fU +n5qSzNvoCyxc+b1q+zSpV7GAEev0JBKPux2yAcST7Q1ld6+x0KfV+eQoqe+G +qIDrb26yUGcPPfK+gYaD3986rixlYWujuEQc6Q+2Vn83wEMWUrdrMgdJ/9DP +Pr/OoZqFqdM3G22IF+40lgl6xkKJnS8m52poyKm80dncw0KRM9YfgfSnT/Eu +O30WsVFm/PddxYck/t80GauXshES7xXvJv1wYuPU0JAYG+POzm+5RPrlYsGk +yMNybOyTvuM0dZ/kS0BNiYsWG3Vdl766XUJDkDtbYut2st7MUrH/+vHCmp89 +Sx3ZqHbeWjGcT/JTuSr/2V42TiYddIjn/dfvdplZerBR73fu+hTS759tiz3B +CWBj6dyMyMXbpH+ZDLaszGTj1YoFYT/TachKe5D29RYbxXWDfdvTSH+dijh4 +J5eNZeej0wrJfWJcojDHKGZjVV5dwn5y37hpbNWWq2OjW9Q2FW4yDXeliuOF +Btg4e7afz42lwXr4tPVnfVU8rrQ69bovDSvWKEYJGauildfUsXk+5D71qX2y +0lQVvdQPKR86TvJlXMzYx0YVWz51SWp40dAzm6c956yKv4Sv+MaQ+9dn6TsJ +2VhVlHjiIHDXkdyP6tizuVsVIx/rc4uNaPA8+kXu+EdVfHyxTrJsHQ1Ax+9K +/qyKZ0t7oyv0yfdY/ab1zbAqytun+pSTeUB7nU+Nx3w17O9fEpGkQUONJTc3 +VEsNO81Uc0tkaRh0E/ItCVHDFyI6SY1jZB7KsKisilBDIVrvQNAoH4bfhC56 +HquGf18L9Nf+wYefW6fSepPV0FYj1jNmkA8T67/ViuaqIUdFjCtP5pt5y5uk +DreqYXqT397qFj7I1iaUK6ioo66nmPOSO2Seo6TnRT9Rxxlf16GBLXz46rox +d329Og5MS0do2vAh/uZp25Hn6qji+MfMESs+vFTsSt39Sh1/Wock95rxwUX2 ++lrNf9RR3i8j6J4BHwJE5d3bRDTwldIVxpQyH/iTig3yuzWwPO1D5/gPHoi/ +YF+8O6yBM/sbry8g8+yKmEI7fX1NXJL5h8Ke9HxIWWkoJnFQC6e7laWqM/Pg +mZyp3uglbcwKup2jmJwLRiueJK56vQrDKjeHDe69A6KC2X77w1fjYWvDCEXt +HFAMUzLezV6DT4sOuv3xjgvCrL2l9vVrsHf92JxL3C3Q5sgWnv5LB9lKQmdm +tmSDT494zSaBtfi+dOHW1sksGB6N32GdshYPN9uKagZnwsZVT1OttXTxl2tG +yAvqBjwaXT890ayL4UuGvM34qeCtqfO2zV0PrY88+hnilwKc7wc6dgvrY1DI +udSnaldhAyWzRSRbH83MNe8dVb4MaqFx/k8MDJB97HFUgkkSaLgbVrHeGqDY +mFZ4tUMiuD86FFFyYh2aFn7doLDzAlRldRz4IWmIy5oa/e0E4uBX7tzEqvuG +qHPr/qP5c1HgxuIJp24xwtNb9g/c9IqAHxrJ+sUjRrjnZ/6yQ5/C4AF3uncs +Zj0m/3XtoWxICDhZkFlJ0Rir9Q5cEyo6A/Je0WXa1cbYO3Kyd+HMaZBc7Fm0 +ZRcHz/ZMPTL67Adc86DAkd0c1MtJj9Tr8gOdoIvmyXs5yNRY/lX/uR/Yjtx9 +1bWfg8KSN4O2FPlB1OuxKTdPDurYL85sDPKDyewQs8AwDlaVxbRNS/vB2/XJ +L3N4HNzhlXpg3TZfOHSSm25dwMGO8/Gn523whfGCe+6DdzlY91TjY/s6XxBn +dE2sKeXgrMu5vChlX7ARUlhRWc1B1LTpMRzxgYqOnAMvX3HQcpPb+6ZEH9gk ++kDrVBcHXRd9gOkIH+ja2Dgu083Bd0IeHasCfOBX+UDMvo8cjFEpiOPt9wGt +m6vpr984WBvYPjSoQ9Z7a3oqfoiDw3PbszerkvWWb4dVI+Q81uKni+V9wCP6 +ZJvfGAfVy/b5J84n61VHpUpPclD0WUCW0NQJCP99za38Nwcf+Q18iBo6AWK6 +eZp/zXJwwj5Qd0nfCcjwKh+bmyP7FR1Ku/L6BPwfufNcag== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.058260285792567326`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.058260285792567326`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994252849424733*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"bedb5510-f610-470a-ae1f-10f8a0989265"] +}, Open ]], Cell[CellGroupData[{ @@ -10780,26 +12072,30 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], - ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -10821,66 +12117,70 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[116]:=",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], + "In[131]:=",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 116, 57, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265068365192`*^9}, - CellLabel-> - "During evaluation of \ -In[116]:=",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ + "\"\\!\\(\\*FractionBox[\\\"8.868683353026875`*^-172\\\", \ +RowBox[{\\\"182746270923358292188640\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"91\\\", \\\"\[RightSkeleton]\\\"}], \\\"4000000000000000000000000\\\"}]]\\) \ is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 116, 58, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326506846985*^9}, +lost.\"", 2, 131, 45, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265068365192`*^9, 3.9942528494832983`*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], +In[131]:=",ExpressionUUID->"98d006bd-e94e-4682-95b7-a0ecd89d6cdb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 116, 59, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326506856045*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.25363945878807`*^-175\\\", \ +RowBox[{\\\"532888126012512780022077\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"94\\\", \\\"\[RightSkeleton]\\\"}], \\\"4000000000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 131, 46, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265068365192`*^9, 3.9942528494929037`*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], +In[131]:=",ExpressionUUID->"379e6777-0ab7-4276-9925-e9e9163ccf83"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.112156163915233`*^-178\\\", \ +RowBox[{\\\"161198658118785115956678\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"98\\\", \\\"\[RightSkeleton]\\\"}], \\\"0000000000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 131, 47, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265068365192`*^9, 3.994252849501676*^9}, + CellLabel-> + "During evaluation of \ +In[131]:=",ExpressionUUID->"65d0a308-c4b4-4491-9cec-ba922366cc59"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 116, 60, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265068640423`*^9}, +during this calculation.\"", 2, 131, 48, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265068365192`*^9, 3.9942528495101223`*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], +In[131]:=",ExpressionUUID->"f42d8a18-3a07-4a70-b6b9-8537dc108d75"], -Cell[BoxData["11.275343508404701`"], "Output", - CellChangeTimes->{3.991326513010317*^9}, +Cell[BoxData["13.488403546748364`"], "Output", + CellChangeTimes->{3.991326513010317*^9, 3.994252931250144*^9}, CellLabel-> - "Out[116]=",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] + "Out[131]=",ExpressionUUID->"07af3cda-ecb5-48b1-8752-a3622f30a5a8"] }, Open ]], Cell[CellGroupData[{ @@ -10947,68 +12247,74 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9917998502248*^9, - 3.9917998584727135`*^9}},ExpressionUUID->"df92a918-12ed-ff47-a8a8-\ -122296a3d634"], + CellChangeTimes->{{3.9917998502248*^9, 3.9917998584727135`*^9}}, + CellLabel-> + "In[132]:=",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 117, 61, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265130447063`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.927726019409426`*^-222\\\", \ +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 132, 49, + 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265130447063`*^9, 3.994252931304872*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], +In[132]:=",ExpressionUUID->"de74c07d-2ccc-42e5-a62b-f99e5ce54f5f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 117, - 62, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326513053705*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2600798712396248`*^-227\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 132, 50, + 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265130447063`*^9, 3.994252931314747*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], +In[132]:=",ExpressionUUID->"94dec19c-5da6-4ca6-bbd2-5febb797dee9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 117, - 63, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265130617065`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.678600995903419`*^-233\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 132, 51, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265130447063`*^9, 3.99425293132565*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], +In[132]:=",ExpressionUUID->"f8166b1c-27bb-4854-bf27-262bfb6f6361"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 117, 64, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326513069849*^9}, +during this calculation.\"", 2, 132, 52, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265130447063`*^9, 3.994252931335133*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], +In[132]:=",ExpressionUUID->"e1d24b80-29e1-417f-95b4-c1813cff66a5"], -Cell[BoxData["1.662840304462236`"], "Output", - CellChangeTimes->{3.9913265201819115`*^9}, +Cell[BoxData["0.3190130406590143`"], "Output", + CellChangeTimes->{3.9913265201819115`*^9, 3.994252942237975*^9}, CellLabel-> - "Out[117]=",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] + "Out[132]=",ExpressionUUID->"219e0ea7-9d08-4273-b89e-7b3702c58203"] }, Open ]], Cell[CellGroupData[{ @@ -11029,8 +12335,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -11075,68 +12380,74 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9917998626681576`*^9, - 3.991799866004116*^9}},ExpressionUUID->"1990573a-00f1-b54c-9d39-\ -9c68738afe07"], + CellChangeTimes->{{3.9917998626681576`*^9, 3.991799866004116*^9}}, + CellLabel-> + "In[133]:=",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 118, 65, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326520216116*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.927726019409426`*^-222\\\", \ +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 133, 53, + 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326520216116*^9, 3.9942529422879057`*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], +In[133]:=",ExpressionUUID->"de366e92-9e17-4f5e-b5d9-300ee127681f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 118, - 66, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326520226103*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2600798712396248`*^-227\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 133, 54, + 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326520216116*^9, 3.994252942298415*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], +In[133]:=",ExpressionUUID->"eac23499-d449-4229-80d3-d0735d1edef6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 118, - 67, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265202341022`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.678600995903419`*^-233\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 133, 55, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326520216116*^9, 3.994252942309125*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], +In[133]:=",ExpressionUUID->"2bd5f763-1682-4db6-b321-f2a8a8decf04"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 118, 68, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326520242243*^9}, +during this calculation.\"", 2, 133, 56, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326520216116*^9, 3.994252942318399*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], +In[133]:=",ExpressionUUID->"e71a7b10-2323-4d43-87c5-3e7097c617d6"], -Cell[BoxData["8.698310175000124`"], "Output", - CellChangeTimes->{3.9913265264075394`*^9}, +Cell[BoxData["46.518286766989014`"], "Output", + CellChangeTimes->{3.9913265264075394`*^9, 3.994252952504974*^9}, CellLabel-> - "Out[118]=",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] + "Out[133]=",ExpressionUUID->"0d753db6-b1de-431e-b114-d4aec028cd92"] }, Open ]], Cell[CellGroupData[{ @@ -11157,8 +12468,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -11203,68 +12513,74 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991799871682028*^9, - 3.9917998792226925`*^9}},ExpressionUUID->"586f2005-dac7-8547-be11-\ -766f96e6af5d"], + CellChangeTimes->{{3.991799871682028*^9, 3.9917998792226925`*^9}}, + CellLabel-> + "In[134]:=",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 119, 69, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265264435444`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.927726019409426`*^-222\\\", \ +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 134, 57, + 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265264435444`*^9, 3.994252952555155*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], +In[134]:=",ExpressionUUID->"5155845c-316e-480f-8436-15bf042c3d3c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 119, - 70, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265264535427`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2600798712396248`*^-227\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 134, 58, + 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265264435444`*^9, 3.9942529525652246`*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], +In[134]:=",ExpressionUUID->"ab1f070d-ed1c-4abf-8789-73c308df6585"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 119, - 71, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265264615555`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.678600995903419`*^-233\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 134, 59, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265264435444`*^9, 3.994252952574543*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], +In[134]:=",ExpressionUUID->"4b9043e2-f6b3-43d5-94fd-dba0c04ed22c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 119, 72, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326526468542*^9}, +during this calculation.\"", 2, 134, 60, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265264435444`*^9, 3.994252952583362*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], +In[134]:=",ExpressionUUID->"96ce4b7b-ee46-4450-b0de-1a28efca5a8b"], -Cell[BoxData["16.721244215445346`"], "Output", - CellChangeTimes->{3.9913265299431496`*^9}, +Cell[BoxData["8.467503420218002`"], "Output", + CellChangeTimes->{3.9913265299431496`*^9, 3.9942529612272167`*^9}, CellLabel-> - "Out[119]=",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] + "Out[134]=",ExpressionUUID->"3d0de422-2277-41c3-a6d1-d5628c798fa6"] }, Open ]], Cell[CellGroupData[{ @@ -11273,22 +12589,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9917998836260815`*^9, - 3.991799887334032*^9}},ExpressionUUID->"363f609f-6fd9-cc4c-924f-\ -14ef82ef0962"], - -Cell[BoxData["0.13787921511838797`"], "Output", - CellChangeTimes->{3.991326529975149*^9}, + CellChangeTimes->{{3.9917998836260815`*^9, 3.991799887334032*^9}}, CellLabel-> - "Out[120]=",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] + "In[135]:=",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], + +Cell[BoxData["0.016073812218286684`"], "Output", + CellChangeTimes->{3.991326529975149*^9, 3.994252961272038*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"2660425e-ff3d-46d7-a9f8-78e5d7f896fc"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.991799895862177*^9, 3.9917998977747803`*^9}, - 3.991924340381132*^9},ExpressionUUID->"32c57f0b-017d-d340-92c6-\ -0f56a212e9c3"], + 3.991924340381132*^9}, + CellLabel-> + "In[136]:=",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ @@ -11311,12 +12628,12 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[122]:=",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], + "In[137]:=",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], -Cell[BoxData["29.129739599983825`"], "Output", - CellChangeTimes->{3.9913265300040226`*^9}, +Cell[BoxData["13.92287076648411`"], "Output", + CellChangeTimes->{3.9913265300040226`*^9, 3.9942529613016653`*^9}, CellLabel-> - "Out[122]=",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] + "Out[137]=",ExpressionUUID->"e3b58a8f-d147-408d-9884-99f93988076b"] }, Open ]], Cell[CellGroupData[{ @@ -11326,12 +12643,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[124]:=",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], + "In[138]:=",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], -Cell[BoxData["0.6950071373045505`"], "Output", - CellChangeTimes->{3.991326530052025*^9}, +Cell[BoxData["2.8125068455261015`"], "Output", + CellChangeTimes->{3.991326530052025*^9, 3.994252961316819*^9}, CellLabel-> - "Out[124]=",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] + "Out[138]=",ExpressionUUID->"7dc228ca-c134-4289-a6b1-6c0f3c26f365"] }, Open ]], Cell[CellGroupData[{ @@ -11341,12 +12658,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[127]:=",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], + "In[139]:=",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], -Cell[BoxData["20.245376929811762`"], "Output", - CellChangeTimes->{3.9913265300922585`*^9}, +Cell[BoxData["39.1581693401118`"], "Output", + CellChangeTimes->{3.9913265300922585`*^9, 3.994252961332847*^9}, CellLabel-> - "Out[127]=",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] + "Out[139]=",ExpressionUUID->"21e61be2-6fed-46fa-9e1b-552e3bfb91fd"] }, Open ]], Cell[CellGroupData[{ @@ -11536,12 +12853,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[128]:=",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], + "In[140]:=",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], -Cell[BoxData["0.022635100966331548`"], "Output", - CellChangeTimes->{3.9913265301172295`*^9}, +Cell[BoxData["0.0045524682969484585`"], "Output", + CellChangeTimes->{3.9913265301172295`*^9, 3.994252961353959*^9}, CellLabel-> - "Out[128]=",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] + "Out[140]=",ExpressionUUID->"0e7c9595-d46e-439d-8445-54d239dd1fa4"] }, Open ]], Cell[CellGroupData[{ @@ -11555,12 +12872,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[129]:=",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], + "In[141]:=",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], -Cell[BoxData["5.890521190513567`"], "Output", - CellChangeTimes->{3.991326530210228*^9}, +Cell[BoxData["13.134739855485526`"], "Output", + CellChangeTimes->{3.991326530210228*^9, 3.994252961567964*^9}, CellLabel-> - "Out[129]=",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] + "Out[141]=",ExpressionUUID->"9b5e4e3b-f2b2-4e8e-bfe8-32d7c42097d9"] }, Open ]], Cell[CellGroupData[{ @@ -11752,12 +13069,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[130]:=",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], + "In[142]:=",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], -Cell[BoxData["0.012260254107801566`"], "Output", - CellChangeTimes->{3.9913265302252293`*^9}, +Cell[BoxData["0.02361146429612747`"], "Output", + CellChangeTimes->{3.9913265302252293`*^9, 3.9942529615868807`*^9}, CellLabel-> - "Out[130]=",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] + "Out[142]=",ExpressionUUID->"132f6219-2234-4b1b-8a87-cb2320fd8414"] }, Open ]], Cell[CellGroupData[{ @@ -11771,12 +13088,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[131]:=",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], + "In[143]:=",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], -Cell[BoxData["8.003781147223087`"], "Output", - CellChangeTimes->{3.9913265303172264`*^9}, +Cell[BoxData["5.767445244305597`"], "Output", + CellChangeTimes->{3.9913265303172264`*^9, 3.9942529617780848`*^9}, CellLabel-> - "Out[131]=",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] + "Out[143]=",ExpressionUUID->"b0c265c5-b38c-4385-bce1-c4d2103a3586"] }, Open ]], Cell[CellGroupData[{ @@ -11869,12 +13186,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[132]:=",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], + "In[144]:=",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.9913265303292294`*^9}, +Cell[BoxData["0.11740730280317517`"], "Output", + CellChangeTimes->{3.9913265303292294`*^9, 3.994252961797014*^9}, CellLabel-> - "Out[132]=",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] + "Out[144]=",ExpressionUUID->"9c98a2c3-0298-490b-a38b-c8cfdaef95dc"] }, Open ]], Cell[CellGroupData[{ @@ -11964,12 +13281,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[133]:=",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], + "In[145]:=",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.991326530340416*^9}, +Cell[BoxData["0.8825926971968249`"], "Output", + CellChangeTimes->{3.991326530340416*^9, 3.9942529618133698`*^9}, CellLabel-> - "Out[133]=",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] + "Out[145]=",ExpressionUUID->"68409097-d755-47cc-b6f6-9764e53bc1c2"] }, Open ]], Cell[CellGroupData[{ @@ -12092,12 +13409,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[134]:=",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], + "In[146]:=",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.991326530367384*^9}, +Cell[BoxData["0.10362282805165872`"], "Output", + CellChangeTimes->{3.991326530367384*^9, 3.994252961830249*^9}, CellLabel-> - "Out[134]=",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] + "Out[146]=",ExpressionUUID->"5f597520-4fe6-4af4-91b9-c6564ff3ba88"] }, Open ]], Cell[CellGroupData[{ @@ -12112,30 +13429,33 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -12159,68 +13479,74 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991799912745739*^9},ExpressionUUID->"c3883d3a-8a99-644a-9175-\ -a97b5c6c44f4"], + CellChangeTimes->{3.991799912745739*^9}, + CellLabel-> + "In[147]:=",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 135, 73, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265303923836`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.277628151902863`*^-217\\\", \ +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 147, 61, + 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265303923836`*^9, 3.994252961852004*^9}, CellLabel-> "During evaluation of \ -In[135]:=",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], +In[147]:=",ExpressionUUID->"ff9b5ae1-15a0-4283-85f6-5ea260068be0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 135, 74, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265304013824`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.346678283269262`*^-223\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 147, 62, + 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265303923836`*^9, 3.994252961862253*^9}, CellLabel-> "During evaluation of \ -In[135]:=",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], +In[147]:=",ExpressionUUID->"e238eee5-d803-4ada-8c0f-de81552fdc84"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 135, - 75, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265304095325`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.768520695429108`*^-228\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 147, 63, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265303923836`*^9, 3.99425296187149*^9}, CellLabel-> "During evaluation of \ -In[135]:=",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], +In[147]:=",ExpressionUUID->"ca48b56c-8aba-41d5-b378-ceede777fb46"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 135, 76, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265304175396`*^9}, +during this calculation.\"", 2, 147, 64, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265303923836`*^9, 3.994252961880945*^9}, CellLabel-> "During evaluation of \ -In[135]:=",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], +In[147]:=",ExpressionUUID->"dc8e1308-3fd7-44f2-8cf6-f54b14f56f43"], -Cell[BoxData["5.890521190513565`"], "Output", - CellChangeTimes->{3.9913265339749985`*^9}, +Cell[BoxData["13.134739855485527`"], "Output", + CellChangeTimes->{3.9913265339749985`*^9, 3.9942529695251226`*^9}, CellLabel-> - "Out[135]=",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] + "Out[147]=",ExpressionUUID->"a5700ea4-f157-466c-b03b-346f94f29fd9"] }, Open ]], Cell[CellGroupData[{ @@ -12235,30 +13561,33 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -12282,68 +13611,74 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9917999175346184`*^9},ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-\ -bed1f30b804b"], + CellChangeTimes->{3.9917999175346184`*^9}, + CellLabel-> + "In[148]:=",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 136, 77, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265340092525`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.277628151902863`*^-217\\\", \ +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 148, 65, + 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265340092525`*^9, 3.99425296957472*^9}, CellLabel-> "During evaluation of \ -In[136]:=",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], +In[148]:=",ExpressionUUID->"f7f0abf1-be2f-43ae-8fd6-505b7a21c1eb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 136, 78, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265340202503`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.346678283269262`*^-223\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 148, 66, + 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265340092525`*^9, 3.9942529695854*^9}, CellLabel-> "During evaluation of \ -In[136]:=",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], +In[148]:=",ExpressionUUID->"cdce5180-b3ea-43ea-90dc-d3a2ece75e15"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 136, - 79, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265340282536`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.768520695429108`*^-228\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 148, 67, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265340092525`*^9, 3.9942529695948477`*^9}, CellLabel-> "During evaluation of \ -In[136]:=",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], +In[148]:=",ExpressionUUID->"03a2256c-fead-4266-99c2-ac6aa0b079c5"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 136, 80, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265340354958`*^9}, +during this calculation.\"", 2, 148, 68, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265340092525`*^9, 3.994252969604191*^9}, CellLabel-> "During evaluation of \ -In[136]:=",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], +In[148]:=",ExpressionUUID->"4ed000c4-74af-42a3-9b7a-74f3e5528bc9"], -Cell[BoxData["8.00378114722308`"], "Output", - CellChangeTimes->{3.9913265375649567`*^9}, +Cell[BoxData["5.767445244305597`"], "Output", + CellChangeTimes->{3.9913265375649567`*^9, 3.994252977002226*^9}, CellLabel-> - "Out[136]=",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] + "Out[148]=",ExpressionUUID->"1adad3a4-a330-4d1f-b28d-72bbd1c621b2"] }, Open ]], Cell[CellGroupData[{ @@ -12401,92 +13736,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9917999220519733`*^9},ExpressionUUID->"d5c5d0e8-862b-f245-8b21-\ -eac61b5b75d3"], + CellChangeTimes->{3.9917999220519733`*^9}, + CellLabel-> + "In[149]:=",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nk4VdsbB3AJUYiEEJmLKJFZ1qvjUEKKMibOOXuThEy5iNzS7SZdStOT -UklJKHPhijQoR4RSfly0OeZ5OkfUb/ljP/v5PO/a3/XutZ69nq3CCD5I8PPx -8f3A1/L95Kdtm8uaPllWXpsxpP/BQ5ZjDw0Z1rnoWRbnuTV2d4ZRmrp1Jfog -/E6Fhu3EahASNXiLvmhevQDYBVHxtYLWbNSR69hngf33uw3V8Tmf0YZknrEJ -9sumk3cX9b+gX7/SzuhjD7V/jP2j4hvSild9tRVbvk/Nc47WgSIaM6fVsPeN -x5qGsbvQjzl5JQXsqsWhNVE5Pei51UVLSeyvCbIxpUEU2mU14yKEPSZkPTSj -34fU2Z6+C1E8JHQpxN1gnoNUf9UyR7GVJO/UnawYQPImel5d2I4Kc4/GaCMo -8r7a9mps8p6qjK7wGPIbKRR5hh2vsT/xOHschUcebk/H/ibbuiM8ZxI5nBo9 -EoHN8gg4dvXSFMrUH5bwwZ5I57tfGDSNhEsly/diC6vqSkzqz6KeaxNjcthp -rFpbCek5xDhaEs2HrfzYPX77/BwSqq9Y7DvFQyY658dOVHDRKo8nVB62v1EX -e4i2iL5pft+1A3smKkJgteYS2jIWHbsW+0zFGgst4V9o08/0gpFIHroJJk/9 -2L/Rgsv535nYrKw669CcFSCxaVFbCDvn3dXuBAV+kN2Tq9QRgfvt945NvcQP -7qk6IgXYsdqzRc+DVsKLpI+vXbHTnqmojesLAtfl3Yeb4TzU3jRS9StTEOZa -UASJrTxV5iEuLQS9UUOyBti5Ox2v6M4LgUyDMO1DGA+9eRm9IrBCGD5Xj+8Y -DOWh2dqWrgGaKNwYOxU/H8JD6+xFJWKqRGGFlRkvH1uv1RrETMVAspKyILAD -ekvu7dgmDmXeNqqfgnkohJ+tt0tUAij9r36pQTzUp5o/mTgnCVXnC6Y7j+P1 -IT+KNBqsA4FmU9k/sfmfclQ2nFwHZ49aCGlgKxtsOpgzvA6Kq1Rs/QJ4yIOW -UvipWwrqjdNdO/15qJEZGiZbLw2Lq2ca/iF46L/Hl5N8hGXAjaZTpow9MpyT -+YQuA9lRn048Z/HQ6nCqxbxaBpjO32lsJg9Zn3PZ6VMiCy5C367P+vJQ+UOj -2ewMObhsqcgV9+ahh30LkWbhiuAtyio7coiH9hz667+wPEWIed+T0OyC899I -2eRxFGEOedNtsHc+1JFWdleChTZOmbYzXk+Gd5Gg5SZwRQ77+514aGq8+9TA -WWWwDVvy327PQ1InrIuLHFSB9abDd9GKhzgPV/s7BahCbFDMTSfsFx1NCqPn -VUG2eEdDJvCQl/2Rs5rVqpCsfGuHLcL9bY08eEtfDSQaHIYTLPD8Q48n4mTV -oZs+YffeiIdc/Nbo2vVoAOPpguhVbR5CkYf0XZc0oOLeVWa9Fg9pJ2YYs+Q0 -YX6LWh0/Nl+mwe64A5pwtXqkImgzD+X95+laWKMJsQ1Zzubq+Ps8nJsg/2Az -+HRahTxWxP1ZO3wdYmgBEfGtgb2WhxRU/4lP6tWBhMbbdLdJLqq8OKPF49cF -doxnI5rgIq9p91ZSRRfyVNvtNce56O4bda3d3rqw3cFFfWKEi1T9ypu5bbog -My3ieGqAi7Rz+zTI+m1QrPOqxbmLixQVlEhldz1Aiinjtmwu0skKF/2J9KH7 -bc/x7ZlcdD9U3amEbQiB+0fOONlzUVMkMj6XZQobuzdFxXXPIxXvL45HAnfB -ibfpwqcC5hHxuzRf8Q+Ai1Inz4pPzyHZ4RerZBm7IWS9fOnmY3Mo3MCi44q2 -NfgkMZfkfswixuhindQQHWLehRaZu8+ivN1hqzIabaFvpkuKVjODHs4E1OSm -7YWOba/1k3fMIK7VhoY38ftA0lRyYP21adTJt3Kyx9cBjtbKla9anEJBG4NT -EtT2AxH2ef590BTKP1ZXfS3RCXwn/xeo9m0SRU/LzW89dgAKhk8I5ThOolk7 -m8Pvjx6EE6rsXPa/E8jUM9Wq74Az+Cf1PbHdOYGa5e4EvDFwAZnHO6/onBxH -8o/OVmZvOQSWox1VmcFj6EW3tr2j2GFQZETVPf57FCm1TvhFjh6GGib5kF44 -ggyupeZmdrvC9KOzN9a3DqM7AtPbrtS6Af9ZR76UtcOo1Gp7e+JLd1grbmzh -ZTOEbhpflFzM8YCafOmy7EuDqPF/WecNLnmC1xvzzV2DA6jEIV095IwXvJ6d -rDljPYAmTzjzBbGOwGf7WLpfcT+atdHyH6N5Q9uh4yNJev0oe/Q7N8zoKBwf -O/P736cc5HY/i3lE1AceXfgqZGbKQUWF+46u/MsHTt1ukBF934dMFZp5f/N8 -YFLwu+YFog+pdfu1fz7mCytmztDMxftQ75rj+9MpXzDWO2N3/UUvarrsyLQ9 -xIBEbm74eEgvSovKWBPRxADfjAK6rE4vqqz6zWPuZcIVCZt0g0kKrfWCvwzK -mZDYrN3ZVUMh5fXvGzdWMqHHwzVNFVuP7bBBqIoJ2zyFWohqCh208HzyrYYJ -Z/prOaNVFErbGFl/+gMT2m49JgUqKSTf+XRt3TcmTNCiX9mVUkjdW/am1zwT -jKRGUy2eUsjUZyw7cScLmlbXFhdep9CjWxNhjkYs6Ahvd1HBXt8yZSlrwoLP -79ceS7lGoTH6fGu2OQu8lF6OBqdR+DzgW8HezYJg0s5v5xUKic9Luq87wALH -mevSLckU6k02FMk4wQKXWd8dfokUOvDeuNUvGNej4/b0nqNQFZ9Zht5JFiwd -HWr2xb4VZmn4OpwFJl9uWHmfpZCju61vXwwLfqKMRK8ECr1Ud3+59SILBFo2 -ZQadptDlithjLx6xYNWn2dWDERQ6oX/DNCqbBb0O4x8ise2fFIiY5LDAzF94 -XgB79Q3Ok7I8FlQ2nrutGk6hxFCnodJiFtzTkRVjhlIoVkv9eMlrFnAETC5z -8X9DwI36wML/WMB/X4YT4U+hveIci9BuFpTEMY5KYm9J5BPT/8GCw1b6Nnl+ -FOKEGuYV9LEgYfc+Lw5JIV/HjNHnIywI6O59coSgkJtgWNCzBZzX2vLOh0Eh -2zD5kFwZAoZa/h584UWh1xnn7a5sICBm/n2+B7YFe0o9Sp6AosuOM4ueeP81 -6r/TlAjI5yrz0bDl2mJo/9MgIN5tv/wXdwoNm3XKrDYkYIaZ7CLpSqF/+O/9 -6+dMgHD9x1eDB/D7bxe96XCIAKPetnO3sc95RoUauBLQ7nHrgwN2VLHT5t8e -BGg/3NJc5IT7J1ekXmcQ4LYg0JW4n0IGHxmstycJaEvX7bVyoFBbqsYatRQC -7o0FJMjtpVA+EvMfSCVgXceIZ9cenD868ybvKgFr6o2zsrD1976JM7lBgOsX -xXMG2Jf5mFMOdwm40NwV6mJLIZvge9+jcgkYVJmTfEqnkKLiBSPLfALMzza0 -ncKe+Rh8deVzAuo6rEXp2A80kcPlIgI0hkVquq0ptNTZWZ1ZTkD/y6fuitjF -9grZn+oI+EI/QH+6m0JJC/yCaR8JcHZZPxOHzcge8nVnE/AgzlnSGVtCoFyh -t5GAid5dNxatKBRY4fYP7ysBBo4Xm1yw1bSvR6r3EXDaxmFeDii00Ha6ZZBD -wOKGvksziEJNiYTeswG8X+7tKY3YcT07h0xHCBDV+0qdx26/2XJk/zQBNbeo -kgVLCl1ZJUmPXkHCndJB4fldFKqc6vQMX0mCzmmRX63Y/Z05oUGCJFy6lxJb -hG1RbH2PIYLrag3Sodgcn6ifdpIk5PV8eDFrgfu3p6+jS5GwtGmc24ZtbrxO -C0mT8Kwt8HU5dopY7mEDORJq2wMmE5br5V0FCiokRAvTXslgk1m5ddJqJGws -XNq7ZI7Hp/zRtVaDhDVzK717sTmklJiAFgm3I0dVipfrUrb+I3okKNLE5Dyw -y39JxXP0SbAMXhq1xu4b7L7WvZMENc9t9nrYZtXRta0mJDDuOjwUxu4NzFf6 -F3A/9b61r8zw+eEWY1i2G+eXGv/Ixzal7bEvsCbBL4l+8S72Zbkff2TtISFc -RTAyHvuFwLOUDDsSdMVLXoZgU+Mxj2/Zk1Blfus8A9vknfSXZCcSdov8rLDF -ZhT8GP7rIAkHpE+pm2Mnpz/j/9OFhMNm6jLbsX+E7tWLdCMhgm/ttQ3YYt4y -tiEeJBg67lMVX87bSx0J8CLBQ7zURGD5+U2nk7x9SJC4uX7FlCnuZ7XdAzcG -CQOOq4oGsX/Myrw8yCKBfVBzrAdbrIdqtCdJuLDtZGE7tgn7OcfGn4T1Ef2/ -W7AZZaeXIIAEn5oLXxuwkx/YrTcPJCGr1MWobjk/WXarYRAJk7/tNtUu50f1 -Wm0PISHZ6XhqFbYoq8BNKxTPxyy5VI5tvD8uWC0c7+fSFsmy5XyzfecVI0no -73+rVIx9SWPDHdkoPH4+qaQAu1Sir0gymoQA4Zgvz7B7fhZ8XBNLwp9LV+Ly -l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk8VGsYB/AhpFDZs8tQEdGMtVzvo7GUxp6yN8bMqRQJ151KtFFdkrTQ +IhIlS0iLLZdodyMVlWSfxtg5slS3+/rjfM7n+3nP83uf9z3vOSvY+zy4ohQK +RYCv+fv+N2tXPWp+Y9MWIVZs3yRANiM5Zmy7QuStFvBx3l2Z5hd07apRA4Oz +1QHbjfOvhDT9KYoYUqE6Ypfy4urF7RrRZ8VYu03Yp58tr43Lf4uu1KaUb8au +aN5//SftA3o87B63BVv4+VXMgaqPyOx6Xboztmo/1e874wuyedcp5oa9ZTTG +KrKxEwUlF9Z7YNf8FErx8ruR89tVH7ywW48qH3oY1oteZLhb+WCPSNgJSVo/ +6p/SH/PHlkgK96FP89FAe8ksC1tTNuPF/ioBAg++FxfbRe37rRHGEDo25y+x +D5vI0lEykhxBTrTrvlHYcXqu8XsaR5GaRLLIQeyPyu/XReWPo8SzBxwTsDm+ +IbvPJ02g48w/+UnYY9coN+6FTSL7+1ofz2NL6hgtG6dNoQUXj5RlY1/g1Dsu +U/yOSCWLjHxs7ds+ccbT31G817VP97AtDRNGQqtm0EX1SKcG7F3mnY1Cxk9k +uNtDehCb5P0ptnjlL3SeG5c4hX2kSspaX/I/VLLFL4DSLEDpYFmws/E3+mdE +a1YJm5P7wi4iXwQcPDqWbcLOf3a+66iaKFT5HdPzwh77FhhzLkkUlp1qTWJj +xxhMlZWELQD13UmesdgXildQR2niYGJlXFeB/bl5qOa/m+LAZrjseYmtPfHI +d4miBMQ/UN/1CbvQ1CXVaFoClGae+8xhN1QcFNlbJQmqUj4a8FaApurfdQoY +0sAvCtNrx5ZjSi87VCMNOhX9NePYJu/tQMZKBrwfJVZItghQSN+DrHVrl0B2 +I6fFAjtctNHkD+llEKfrnHoFu1/n7nj8d1mIviO+JeId3h/i1aImuhwkf4yc +TsYWLeCvWL5fDsYV5MQLsbXpWh75g3JgK9bJ+Ibty0i596ZLHu6MV7uy3wtQ +U3BEpPJrRejbczUr5IMAfb2dnMiSVAJbXQXWGeyhwfybd+yVwA/VHCnBXhzV ++25DrRL8N3erfxrb7sRWU9YDZdDX+vePxFYBqswxn8rLVAGNhKOrGtoEKKd/ +Lnp9lAYo34Lu2M8CtMnr5NfIIg3IjD+Ql4891CDvUMTXgCnziIZWbNMcQ0Vt +H02Q3Xdzzrgd7yc7sEzcRgt0Pi9k8bEnRrv+EhzXBuu1I0uCOwRIPtTufpmz +DihF9/662iVA/JzFu9xCdCCK7hjQgl3+pVltOEEHaLOhsou6BcifGXB8Za0O +XJMS5/2FnbMm2uMyjQpqbv423j14fuHtsVhlXeiueV6s3ydAW3dKGTl160HH +ap+V0gIBQtFetO2/9GB6aGPbFmyD+EwLjspKENLyPiViU27SN8a6rwSvsv4W +6QEBKvrqt/1e3UpQTzFOkxPi73Nb4VHV7FVA6CjvNBrC/dk5twrZ+uDZOqub +NSZANz3T2qdj9cFt9rS4EDuZ3d0ldlUfFmletjAdx+f7yJ+Dmu/04eIX05SX +2LLVGRRPhgFUW3PlZybw+aGPGFRR18AYvy6IMyVAajpn4xL7DKHl6Rqtg3MC +VP03qT8ragSXpi57fsD2n/R5T6wwgpm88W8mPwToeoOu/sZAIwhfEWgygK2z +s7Jlps0IDEWNIfAXXm9hvx7xei3UB/3r50sZQBpqmoS2jwlU9LUfvyIxgAxz +o6R/IBrcaL2WsV5hALE5x6eMXGjQGR6negs7nZr6leVPg3Ot40JZxQG0ILu4 +5BmPBky7hAQh9ufrwq2ppTQQ892Xl6k8gE6nszL0qXS4IO+apqI2gPiJzLXe +EqbgNHhlBVNnAN2I0HV70GgGvU0SwoJ1A6g5GlmcyLWCU01zPQe2D6AVgR9c +Avb+AQZUM17ysQHE/f3wrsYBAMvya2eXlQwg5cHyhcrsjaAosSfA7NsAiqJb +f0k1sAPFPvUvGtpCxB7++UJeaA+Mgjq5WX8hKtoYuTCzyREE9AVquTlClEOG +1BVe2AwZfjXFz4aEaMZ2+b8NcVvg2XIPkWwYRB2UBePdQc6QOLFQISN9EIWp +70s5SnWFugLDiqzRQXR394vai/Fu8MGbH8P0HEIHJ1Wm1+x2h2kllTyDB0No +yslh2/MdHhBWNUl10R1GVn7nbPvdPWGx+44e30vDqEUlI6SBvhXaVNZMjoiN +INVbx6vzVnuBpkOp5/KjI6i8y4DpIrMN+B2nKZUzI0jz/djO6OFtwHPUP7Z6 +/yiiXzxXeLNrO9iuySse+j6KMsQm16bWe4Pk28QJrQ1j6KGt8ef4Ch+QHdf7 +YH50DKVb/C37M98X6p6sE33/bAw1tecm0JP8YKY0dIOx5Dh64HxNN/yIP7T/ +cp81ch1H46GelDBOAHxyrRqzPDeOphz0d40wAkE8Se/KrrfjKG/400yk+Q6o +N/0nWFJpAnnfyA0OkGaBNK+9/P7WCVR2b8uOBSdZYCRTduzhpQlkpdYye3qW +BZrrz59UaZlA1K6dn9/uDgKvVYdV3yyaRH1Se1yv9QZBz6tUG3LjJGpOdgl2 +9GKDbc66O6+jJtEFXqbUn81sCHszSz19axJV1/yeDd4cDHH1xP0rLZNoqT+c +pFcGQ1GpX4rS9CTSVnjepF4dDNTaNl4+tkmj83KJmmBQf+Sw0GZmEnlY+935 +WBcMFlevK3Jmcb569OvDL4Phw9kbUwU/JpFqR8HSFx+D4Qz9r7sGFBLpBiqn ++09j/7GY3StJIivWSF68KQdujvmMWauQ6NblsUgXcw7k9msFlmIrvJuwUbbk +gEJBGk9PlUQj9tPv8zZwoNTct0xajcT/L4pI40YOsC7627Spk2jJtKyPnDsH +BgcXXPPXJlHfGbNFmaEcKMg7Ib56FYmSq2J2l9/iQHCEDL2GTqJQWpoVL48D +p3SOR6qZkoh5p3SRZT4HHGttWDzsxWn8O4+KOGDc6GmzzoxE8RFuwof3OTBV +myiVaU6iGH3dPQ+ecGCptnRniBWJQtJe7733lQM9vwLk621ItHkJ3zqiiwPn +FMwbFBGJVsdTZGg9HHh65KXWLmx+hFlRaT8HDGYnW6WAREEumcMlQxzItFe0 +c7Ulkbd4ZFjxHAf63mYsfcYgkWOkanihEheuXHypGbmJRE8yE5xSl3OhN1Xa +oA7bunFCl6fKhWGKV9OSzSQy0Xv9iaHJBYmQJ9/ysFXaDjHa9bhQnZ3n8tGJ +RIPrO5QWm3Ghk5k9QHUm0VnRrMc7Pbkw3VH0O9Qdr99YOt3Ziwu+V+vpxdgn +/HgR9O1cYFqwKGPYvPtuq377cmHxVdHgcA/cPyFy7hKbCw7l/zD3epKI/orN +ebqfCzttx/LcvEjUdk5PiprChS8sT5vX3iS6i2R2Cc7h+je2Uz+wTwyTDUXn +uWBYJe5u6EMi2uaGWMs0LuytHv+eiJ1MCZ5wvs6F+02Xfjj4kshhX9YnXiEX +Flnq9hT4kUhD45S5zV0uXEql97Zik6/2nV9QwoUpiaJTIv4kyl6JnJPLcD39 +aa0X9q+OjtqblVwQs//aN4t9n6mW9+YFFxScYqZNAkmUOCcqfuEVF37W+Vhv +w2bnCYN8GrkwYsXQO4S9TKxSra+JC9//0u2tx95b5X12tpULO2wSl7jvIBHV +4FK0bj8X6LfDtHxZJJprO/xugM+FTJWM7APYzfFck2IBF958SXiZjh3bbSq0 +GuJCnchB0Vbsz+nvAlwnuVCwP0ibGUSi1IWy9gdFCGBWRUuuYpOoeqLDL2oB +AS0X0x4zsL915EeEiRPQ/HH37x3Y1vftstiLCOjoktFPw+azeD+cZAlgXHou +TwnG/TPt5ezlCUh8zDdSwd5gIaePFAm4Lpbyfh12ikzhNroKAbOdYc+D5scr +O0vVVhDQNdq7sRqbyC18oUglYH/up9q388+nHOhcqkfA6GGL13xsPiEvI6ZP +QLShevxSDh6Xd9w1ZELAcQudM37Ylf/Jx/FpBJxaNR4ait0/0HWxy5SAZ0lS +7bHY62sP1r+3JMCZVPTNwu7be1fzMRCge8ZwsAN7ifchs0cbCaj9JrJ2CNuK +sYlZakeAiL/Ur1nsZJWeA7mbCDjJK0EKXBKVixWnZDoRULDZsUwbu3f00O3L +TALWJkiWGWJbPlP8cMaNgAeHRbYzsNmlPYMnPQiwlzb74Yx95lqx6LGtuJ+i +v9d4Y/dEbDaJ9ibgVvkFkz3YMoFKjuG++P3csBePms/b3BsQ4k/AksuyRMx8 +vdbhxEAWAWczyNeJ8/0sdsr2ZhMQ+07ybep83pRShQeHgIkQGvvyfF53bxOT +wPtpFB6XOZ/XWMJ32EXAlx+1q3Pn+3t0+BeEEMB7SQ3Mn8/PdlLYsJeA3qw0 +reL5/DPKa8zCCMi8oRZaNp/P67M1DsfzU4odHmFLc0q99SMImFroXliJbeEa +u48aRUC4ssj1x/P567ckaEQTIJVTo1aLnaS3PEOZR4Ce5Wm9J9gPl/WXyR4k +IDmSVVWP3f2j9JVUDAHBUnYdDfP532K7xWMJsHxFT3yKbd6yZeZ3HAFzZ42f +zvt/ZNH3gg== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -12500,104 +13837,105 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk4VdsbB3AJUYiEEJmLKJFZ1qvjUEKKMibOOXuThEy5iNzS7SZdStOT -UklJKHPhijQoR4RSfly0OeZ5OkfUb/ljP/v5PO/a3/XutZ69nq3CCD5I8PPx -8f3A1/L95Kdtm8uaPllWXpsxpP/BQ5ZjDw0Z1rnoWRbnuTV2d4ZRmrp1Jfog -/E6Fhu3EahASNXiLvmhevQDYBVHxtYLWbNSR69hngf33uw3V8Tmf0YZknrEJ -9sumk3cX9b+gX7/SzuhjD7V/jP2j4hvSild9tRVbvk/Nc47WgSIaM6fVsPeN -x5qGsbvQjzl5JQXsqsWhNVE5Pei51UVLSeyvCbIxpUEU2mU14yKEPSZkPTSj -34fU2Z6+C1E8JHQpxN1gnoNUf9UyR7GVJO/UnawYQPImel5d2I4Kc4/GaCMo -8r7a9mps8p6qjK7wGPIbKRR5hh2vsT/xOHschUcebk/H/ibbuiM8ZxI5nBo9 -EoHN8gg4dvXSFMrUH5bwwZ5I57tfGDSNhEsly/diC6vqSkzqz6KeaxNjcthp -rFpbCek5xDhaEs2HrfzYPX77/BwSqq9Y7DvFQyY658dOVHDRKo8nVB62v1EX -e4i2iL5pft+1A3smKkJgteYS2jIWHbsW+0zFGgst4V9o08/0gpFIHroJJk/9 -2L/Rgsv535nYrKw669CcFSCxaVFbCDvn3dXuBAV+kN2Tq9QRgfvt945NvcQP -7qk6IgXYsdqzRc+DVsKLpI+vXbHTnqmojesLAtfl3Yeb4TzU3jRS9StTEOZa -UASJrTxV5iEuLQS9UUOyBti5Ox2v6M4LgUyDMO1DGA+9eRm9IrBCGD5Xj+8Y -DOWh2dqWrgGaKNwYOxU/H8JD6+xFJWKqRGGFlRkvH1uv1RrETMVAspKyILAD -ekvu7dgmDmXeNqqfgnkohJ+tt0tUAij9r36pQTzUp5o/mTgnCVXnC6Y7j+P1 -IT+KNBqsA4FmU9k/sfmfclQ2nFwHZ49aCGlgKxtsOpgzvA6Kq1Rs/QJ4yIOW -UvipWwrqjdNdO/15qJEZGiZbLw2Lq2ca/iF46L/Hl5N8hGXAjaZTpow9MpyT -+YQuA9lRn048Z/HQ6nCqxbxaBpjO32lsJg9Zn3PZ6VMiCy5C367P+vJQ+UOj -2ewMObhsqcgV9+ahh30LkWbhiuAtyio7coiH9hz667+wPEWIed+T0OyC899I -2eRxFGEOedNtsHc+1JFWdleChTZOmbYzXk+Gd5Gg5SZwRQ77+514aGq8+9TA -WWWwDVvy327PQ1InrIuLHFSB9abDd9GKhzgPV/s7BahCbFDMTSfsFx1NCqPn -VUG2eEdDJvCQl/2Rs5rVqpCsfGuHLcL9bY08eEtfDSQaHIYTLPD8Q48n4mTV -oZs+YffeiIdc/Nbo2vVoAOPpguhVbR5CkYf0XZc0oOLeVWa9Fg9pJ2YYs+Q0 -YX6LWh0/Nl+mwe64A5pwtXqkImgzD+X95+laWKMJsQ1Zzubq+Ps8nJsg/2Az -+HRahTxWxP1ZO3wdYmgBEfGtgb2WhxRU/4lP6tWBhMbbdLdJLqq8OKPF49cF -doxnI5rgIq9p91ZSRRfyVNvtNce56O4bda3d3rqw3cFFfWKEi1T9ypu5bbog -My3ieGqAi7Rz+zTI+m1QrPOqxbmLixQVlEhldz1Aiinjtmwu0skKF/2J9KH7 -bc/x7ZlcdD9U3amEbQiB+0fOONlzUVMkMj6XZQobuzdFxXXPIxXvL45HAnfB -ibfpwqcC5hHxuzRf8Q+Ai1Inz4pPzyHZ4RerZBm7IWS9fOnmY3Mo3MCi44q2 -NfgkMZfkfswixuhindQQHWLehRaZu8+ivN1hqzIabaFvpkuKVjODHs4E1OSm -7YWOba/1k3fMIK7VhoY38ftA0lRyYP21adTJt3Kyx9cBjtbKla9anEJBG4NT -EtT2AxH2ef590BTKP1ZXfS3RCXwn/xeo9m0SRU/LzW89dgAKhk8I5ThOolk7 -m8Pvjx6EE6rsXPa/E8jUM9Wq74Az+Cf1PbHdOYGa5e4EvDFwAZnHO6/onBxH -8o/OVmZvOQSWox1VmcFj6EW3tr2j2GFQZETVPf57FCm1TvhFjh6GGib5kF44 -ggyupeZmdrvC9KOzN9a3DqM7AtPbrtS6Af9ZR76UtcOo1Gp7e+JLd1grbmzh -ZTOEbhpflFzM8YCafOmy7EuDqPF/WecNLnmC1xvzzV2DA6jEIV095IwXvJ6d -rDljPYAmTzjzBbGOwGf7WLpfcT+atdHyH6N5Q9uh4yNJev0oe/Q7N8zoKBwf -O/P736cc5HY/i3lE1AceXfgqZGbKQUWF+46u/MsHTt1ukBF934dMFZp5f/N8 -YFLwu+YFog+pdfu1fz7mCytmztDMxftQ75rj+9MpXzDWO2N3/UUvarrsyLQ9 -xIBEbm74eEgvSovKWBPRxADfjAK6rE4vqqz6zWPuZcIVCZt0g0kKrfWCvwzK -mZDYrN3ZVUMh5fXvGzdWMqHHwzVNFVuP7bBBqIoJ2zyFWohqCh208HzyrYYJ -Z/prOaNVFErbGFl/+gMT2m49JgUqKSTf+XRt3TcmTNCiX9mVUkjdW/am1zwT -jKRGUy2eUsjUZyw7cScLmlbXFhdep9CjWxNhjkYs6Ahvd1HBXt8yZSlrwoLP -79ceS7lGoTH6fGu2OQu8lF6OBqdR+DzgW8HezYJg0s5v5xUKic9Luq87wALH -mevSLckU6k02FMk4wQKXWd8dfokUOvDeuNUvGNej4/b0nqNQFZ9Zht5JFiwd -HWr2xb4VZmn4OpwFJl9uWHmfpZCju61vXwwLfqKMRK8ECr1Ud3+59SILBFo2 -ZQadptDlithjLx6xYNWn2dWDERQ6oX/DNCqbBb0O4x8ise2fFIiY5LDAzF94 -XgB79Q3Ok7I8FlQ2nrutGk6hxFCnodJiFtzTkRVjhlIoVkv9eMlrFnAETC5z -8X9DwI36wML/WMB/X4YT4U+hveIci9BuFpTEMY5KYm9J5BPT/8GCw1b6Nnl+ -FOKEGuYV9LEgYfc+Lw5JIV/HjNHnIywI6O59coSgkJtgWNCzBZzX2vLOh0Eh -2zD5kFwZAoZa/h584UWh1xnn7a5sICBm/n2+B7YFe0o9Sp6AosuOM4ueeP81 -6r/TlAjI5yrz0bDl2mJo/9MgIN5tv/wXdwoNm3XKrDYkYIaZ7CLpSqF/+O/9 -6+dMgHD9x1eDB/D7bxe96XCIAKPetnO3sc95RoUauBLQ7nHrgwN2VLHT5t8e -BGg/3NJc5IT7J1ekXmcQ4LYg0JW4n0IGHxmstycJaEvX7bVyoFBbqsYatRQC -7o0FJMjtpVA+EvMfSCVgXceIZ9cenD868ybvKgFr6o2zsrD1976JM7lBgOsX -xXMG2Jf5mFMOdwm40NwV6mJLIZvge9+jcgkYVJmTfEqnkKLiBSPLfALMzza0 -ncKe+Rh8deVzAuo6rEXp2A80kcPlIgI0hkVquq0ptNTZWZ1ZTkD/y6fuitjF -9grZn+oI+EI/QH+6m0JJC/yCaR8JcHZZPxOHzcge8nVnE/AgzlnSGVtCoFyh -t5GAid5dNxatKBRY4fYP7ysBBo4Xm1yw1bSvR6r3EXDaxmFeDii00Ha6ZZBD -wOKGvksziEJNiYTeswG8X+7tKY3YcT07h0xHCBDV+0qdx26/2XJk/zQBNbeo -kgVLCl1ZJUmPXkHCndJB4fldFKqc6vQMX0mCzmmRX63Y/Z05oUGCJFy6lxJb -hG1RbH2PIYLrag3Sodgcn6ifdpIk5PV8eDFrgfu3p6+jS5GwtGmc24ZtbrxO -C0mT8Kwt8HU5dopY7mEDORJq2wMmE5br5V0FCiokRAvTXslgk1m5ddJqJGws -XNq7ZI7Hp/zRtVaDhDVzK717sTmklJiAFgm3I0dVipfrUrb+I3okKNLE5Dyw -y39JxXP0SbAMXhq1xu4b7L7WvZMENc9t9nrYZtXRta0mJDDuOjwUxu4NzFf6 -F3A/9b61r8zw+eEWY1i2G+eXGv/Ixzal7bEvsCbBL4l+8S72Zbkff2TtISFc -RTAyHvuFwLOUDDsSdMVLXoZgU+Mxj2/Zk1Blfus8A9vknfSXZCcSdov8rLDF -ZhT8GP7rIAkHpE+pm2Mnpz/j/9OFhMNm6jLbsX+E7tWLdCMhgm/ttQ3YYt4y -tiEeJBg67lMVX87bSx0J8CLBQ7zURGD5+U2nk7x9SJC4uX7FlCnuZ7XdAzcG -CQOOq4oGsX/Myrw8yCKBfVBzrAdbrIdqtCdJuLDtZGE7tgn7OcfGn4T1Ef2/ -W7AZZaeXIIAEn5oLXxuwkx/YrTcPJCGr1MWobjk/WXarYRAJk7/tNtUu50f1 -Wm0PISHZ6XhqFbYoq8BNKxTPxyy5VI5tvD8uWC0c7+fSFsmy5XyzfecVI0no -73+rVIx9SWPDHdkoPH4+qaQAu1Sir0gymoQA4Zgvz7B7fhZ8XBNLwp9LV+Ly -l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx +1:eJwV1Hk8VGsYB/AhpFDZs8tQEdGMtVzvo7GUxp6yN8bMqRQJ151KtFFdkrTQ +IhIlS0iLLZdodyMVlWSfxtg5slS3+/rjfM7n+3nP83uf9z3vOSvY+zy4ohQK +RYCv+fv+N2tXPWp+Y9MWIVZs3yRANiM5Zmy7QuStFvBx3l2Z5hd07apRA4Oz +1QHbjfOvhDT9KYoYUqE6Ypfy4urF7RrRZ8VYu03Yp58tr43Lf4uu1KaUb8au +aN5//SftA3o87B63BVv4+VXMgaqPyOx6Xboztmo/1e874wuyedcp5oa9ZTTG +KrKxEwUlF9Z7YNf8FErx8ruR89tVH7ywW48qH3oY1oteZLhb+WCPSNgJSVo/ +6p/SH/PHlkgK96FP89FAe8ksC1tTNuPF/ioBAg++FxfbRe37rRHGEDo25y+x +D5vI0lEykhxBTrTrvlHYcXqu8XsaR5GaRLLIQeyPyu/XReWPo8SzBxwTsDm+ +IbvPJ02g48w/+UnYY9coN+6FTSL7+1ofz2NL6hgtG6dNoQUXj5RlY1/g1Dsu +U/yOSCWLjHxs7ds+ccbT31G817VP97AtDRNGQqtm0EX1SKcG7F3mnY1Cxk9k +uNtDehCb5P0ptnjlL3SeG5c4hX2kSspaX/I/VLLFL4DSLEDpYFmws/E3+mdE +a1YJm5P7wi4iXwQcPDqWbcLOf3a+66iaKFT5HdPzwh77FhhzLkkUlp1qTWJj +xxhMlZWELQD13UmesdgXildQR2niYGJlXFeB/bl5qOa/m+LAZrjseYmtPfHI +d4miBMQ/UN/1CbvQ1CXVaFoClGae+8xhN1QcFNlbJQmqUj4a8FaApurfdQoY +0sAvCtNrx5ZjSi87VCMNOhX9NePYJu/tQMZKBrwfJVZItghQSN+DrHVrl0B2 +I6fFAjtctNHkD+llEKfrnHoFu1/n7nj8d1mIviO+JeId3h/i1aImuhwkf4yc +TsYWLeCvWL5fDsYV5MQLsbXpWh75g3JgK9bJ+Ibty0i596ZLHu6MV7uy3wtQ +U3BEpPJrRejbczUr5IMAfb2dnMiSVAJbXQXWGeyhwfybd+yVwA/VHCnBXhzV ++25DrRL8N3erfxrb7sRWU9YDZdDX+vePxFYBqswxn8rLVAGNhKOrGtoEKKd/ +Lnp9lAYo34Lu2M8CtMnr5NfIIg3IjD+Ql4891CDvUMTXgCnziIZWbNMcQ0Vt +H02Q3Xdzzrgd7yc7sEzcRgt0Pi9k8bEnRrv+EhzXBuu1I0uCOwRIPtTufpmz +DihF9/662iVA/JzFu9xCdCCK7hjQgl3+pVltOEEHaLOhsou6BcifGXB8Za0O +XJMS5/2FnbMm2uMyjQpqbv423j14fuHtsVhlXeiueV6s3ydAW3dKGTl160HH +ap+V0gIBQtFetO2/9GB6aGPbFmyD+EwLjspKENLyPiViU27SN8a6rwSvsv4W +6QEBKvrqt/1e3UpQTzFOkxPi73Nb4VHV7FVA6CjvNBrC/dk5twrZ+uDZOqub +NSZANz3T2qdj9cFt9rS4EDuZ3d0ldlUfFmletjAdx+f7yJ+Dmu/04eIX05SX +2LLVGRRPhgFUW3PlZybw+aGPGFRR18AYvy6IMyVAajpn4xL7DKHl6Rqtg3MC +VP03qT8ragSXpi57fsD2n/R5T6wwgpm88W8mPwToeoOu/sZAIwhfEWgygK2z +s7Jlps0IDEWNIfAXXm9hvx7xei3UB/3r50sZQBpqmoS2jwlU9LUfvyIxgAxz +o6R/IBrcaL2WsV5hALE5x6eMXGjQGR6negs7nZr6leVPg3Ot40JZxQG0ILu4 +5BmPBky7hAQh9ufrwq2ppTQQ892Xl6k8gE6nszL0qXS4IO+apqI2gPiJzLXe +EqbgNHhlBVNnAN2I0HV70GgGvU0SwoJ1A6g5GlmcyLWCU01zPQe2D6AVgR9c +Avb+AQZUM17ysQHE/f3wrsYBAMvya2eXlQwg5cHyhcrsjaAosSfA7NsAiqJb +f0k1sAPFPvUvGtpCxB7++UJeaA+Mgjq5WX8hKtoYuTCzyREE9AVquTlClEOG +1BVe2AwZfjXFz4aEaMZ2+b8NcVvg2XIPkWwYRB2UBePdQc6QOLFQISN9EIWp +70s5SnWFugLDiqzRQXR394vai/Fu8MGbH8P0HEIHJ1Wm1+x2h2kllTyDB0No +yslh2/MdHhBWNUl10R1GVn7nbPvdPWGx+44e30vDqEUlI6SBvhXaVNZMjoiN +INVbx6vzVnuBpkOp5/KjI6i8y4DpIrMN+B2nKZUzI0jz/djO6OFtwHPUP7Z6 +/yiiXzxXeLNrO9iuySse+j6KMsQm16bWe4Pk28QJrQ1j6KGt8ef4Ch+QHdf7 +YH50DKVb/C37M98X6p6sE33/bAw1tecm0JP8YKY0dIOx5Dh64HxNN/yIP7T/ +cp81ch1H46GelDBOAHxyrRqzPDeOphz0d40wAkE8Se/KrrfjKG/400yk+Q6o +N/0nWFJpAnnfyA0OkGaBNK+9/P7WCVR2b8uOBSdZYCRTduzhpQlkpdYye3qW +BZrrz59UaZlA1K6dn9/uDgKvVYdV3yyaRH1Se1yv9QZBz6tUG3LjJGpOdgl2 +9GKDbc66O6+jJtEFXqbUn81sCHszSz19axJV1/yeDd4cDHH1xP0rLZNoqT+c +pFcGQ1GpX4rS9CTSVnjepF4dDNTaNl4+tkmj83KJmmBQf+Sw0GZmEnlY+935 +WBcMFlevK3Jmcb569OvDL4Phw9kbUwU/JpFqR8HSFx+D4Qz9r7sGFBLpBiqn ++09j/7GY3StJIivWSF68KQdujvmMWauQ6NblsUgXcw7k9msFlmIrvJuwUbbk +gEJBGk9PlUQj9tPv8zZwoNTct0xajcT/L4pI40YOsC7627Spk2jJtKyPnDsH +BgcXXPPXJlHfGbNFmaEcKMg7Ib56FYmSq2J2l9/iQHCEDL2GTqJQWpoVL48D +p3SOR6qZkoh5p3SRZT4HHGttWDzsxWn8O4+KOGDc6GmzzoxE8RFuwof3OTBV +myiVaU6iGH3dPQ+ecGCptnRniBWJQtJe7733lQM9vwLk621ItHkJ3zqiiwPn +FMwbFBGJVsdTZGg9HHh65KXWLmx+hFlRaT8HDGYnW6WAREEumcMlQxzItFe0 +c7Ulkbd4ZFjxHAf63mYsfcYgkWOkanihEheuXHypGbmJRE8yE5xSl3OhN1Xa +oA7bunFCl6fKhWGKV9OSzSQy0Xv9iaHJBYmQJ9/ysFXaDjHa9bhQnZ3n8tGJ +RIPrO5QWm3Ghk5k9QHUm0VnRrMc7Pbkw3VH0O9Qdr99YOt3Ziwu+V+vpxdgn +/HgR9O1cYFqwKGPYvPtuq377cmHxVdHgcA/cPyFy7hKbCw7l/zD3epKI/orN +ebqfCzttx/LcvEjUdk5PiprChS8sT5vX3iS6i2R2Cc7h+je2Uz+wTwyTDUXn +uWBYJe5u6EMi2uaGWMs0LuytHv+eiJ1MCZ5wvs6F+02Xfjj4kshhX9YnXiEX +Flnq9hT4kUhD45S5zV0uXEql97Zik6/2nV9QwoUpiaJTIv4kyl6JnJPLcD39 +aa0X9q+OjtqblVwQs//aN4t9n6mW9+YFFxScYqZNAkmUOCcqfuEVF37W+Vhv +w2bnCYN8GrkwYsXQO4S9TKxSra+JC9//0u2tx95b5X12tpULO2wSl7jvIBHV +4FK0bj8X6LfDtHxZJJprO/xugM+FTJWM7APYzfFck2IBF958SXiZjh3bbSq0 +GuJCnchB0Vbsz+nvAlwnuVCwP0ibGUSi1IWy9gdFCGBWRUuuYpOoeqLDL2oB +AS0X0x4zsL915EeEiRPQ/HH37x3Y1vftstiLCOjoktFPw+azeD+cZAlgXHou +TwnG/TPt5ezlCUh8zDdSwd5gIaePFAm4Lpbyfh12ikzhNroKAbOdYc+D5scr +O0vVVhDQNdq7sRqbyC18oUglYH/up9q388+nHOhcqkfA6GGL13xsPiEvI6ZP +QLShevxSDh6Xd9w1ZELAcQudM37Ylf/Jx/FpBJxaNR4ait0/0HWxy5SAZ0lS +7bHY62sP1r+3JMCZVPTNwu7be1fzMRCge8ZwsAN7ifchs0cbCaj9JrJ2CNuK +sYlZakeAiL/Ur1nsZJWeA7mbCDjJK0EKXBKVixWnZDoRULDZsUwbu3f00O3L +TALWJkiWGWJbPlP8cMaNgAeHRbYzsNmlPYMnPQiwlzb74Yx95lqx6LGtuJ+i +v9d4Y/dEbDaJ9ibgVvkFkz3YMoFKjuG++P3csBePms/b3BsQ4k/AksuyRMx8 +vdbhxEAWAWczyNeJ8/0sdsr2ZhMQ+07ybep83pRShQeHgIkQGvvyfF53bxOT +wPtpFB6XOZ/XWMJ32EXAlx+1q3Pn+3t0+BeEEMB7SQ3Mn8/PdlLYsJeA3qw0 +reL5/DPKa8zCCMi8oRZaNp/P67M1DsfzU4odHmFLc0q99SMImFroXliJbeEa +u48aRUC4ssj1x/P567ckaEQTIJVTo1aLnaS3PEOZR4Ce5Wm9J9gPl/WXyR4k +IDmSVVWP3f2j9JVUDAHBUnYdDfP532K7xWMJsHxFT3yKbd6yZeZ3HAFzZ42f +zvt/ZNH3gg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6007907022525464, - 1.5921070201523966`}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6007907022525477}, + "PlotRange" -> {{0, 180}, {0.7753017824466849, 1.274846811539645}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7753017824466867}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -12609,21 +13947,20 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6007907022525464, - 1.5921070201523966`}}, + "PlotRange" -> {{0, 180}, {0.7753017824466849, 1.274846811539645}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6007907022525477}, + "AxesOrigin" -> {0, 0.7753017824466867}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -12637,102 +13974,104 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk4VdsbB3AJUYiEEJmLKJFZ1qvjUEKKMibOOXuThEy5iNzS7SZdStOT -UklJKHPhijQoR4RSfly0OeZ5OkfUb/ljP/v5PO/a3/XutZ69nq3CCD5I8PPx -8f3A1/L95Kdtm8uaPllWXpsxpP/BQ5ZjDw0Z1rnoWRbnuTV2d4ZRmrp1Jfog -/E6Fhu3EahASNXiLvmhevQDYBVHxtYLWbNSR69hngf33uw3V8Tmf0YZknrEJ -9sumk3cX9b+gX7/SzuhjD7V/jP2j4hvSild9tRVbvk/Nc47WgSIaM6fVsPeN -x5qGsbvQjzl5JQXsqsWhNVE5Pei51UVLSeyvCbIxpUEU2mU14yKEPSZkPTSj -34fU2Z6+C1E8JHQpxN1gnoNUf9UyR7GVJO/UnawYQPImel5d2I4Kc4/GaCMo -8r7a9mps8p6qjK7wGPIbKRR5hh2vsT/xOHschUcebk/H/ibbuiM8ZxI5nBo9 -EoHN8gg4dvXSFMrUH5bwwZ5I57tfGDSNhEsly/diC6vqSkzqz6KeaxNjcthp -rFpbCek5xDhaEs2HrfzYPX77/BwSqq9Y7DvFQyY658dOVHDRKo8nVB62v1EX -e4i2iL5pft+1A3smKkJgteYS2jIWHbsW+0zFGgst4V9o08/0gpFIHroJJk/9 -2L/Rgsv535nYrKw669CcFSCxaVFbCDvn3dXuBAV+kN2Tq9QRgfvt945NvcQP -7qk6IgXYsdqzRc+DVsKLpI+vXbHTnqmojesLAtfl3Yeb4TzU3jRS9StTEOZa -UASJrTxV5iEuLQS9UUOyBti5Ox2v6M4LgUyDMO1DGA+9eRm9IrBCGD5Xj+8Y -DOWh2dqWrgGaKNwYOxU/H8JD6+xFJWKqRGGFlRkvH1uv1RrETMVAspKyILAD -ekvu7dgmDmXeNqqfgnkohJ+tt0tUAij9r36pQTzUp5o/mTgnCVXnC6Y7j+P1 -IT+KNBqsA4FmU9k/sfmfclQ2nFwHZ49aCGlgKxtsOpgzvA6Kq1Rs/QJ4yIOW -UvipWwrqjdNdO/15qJEZGiZbLw2Lq2ca/iF46L/Hl5N8hGXAjaZTpow9MpyT -+YQuA9lRn048Z/HQ6nCqxbxaBpjO32lsJg9Zn3PZ6VMiCy5C367P+vJQ+UOj -2ewMObhsqcgV9+ahh30LkWbhiuAtyio7coiH9hz667+wPEWIed+T0OyC899I -2eRxFGEOedNtsHc+1JFWdleChTZOmbYzXk+Gd5Gg5SZwRQ77+514aGq8+9TA -WWWwDVvy327PQ1InrIuLHFSB9abDd9GKhzgPV/s7BahCbFDMTSfsFx1NCqPn -VUG2eEdDJvCQl/2Rs5rVqpCsfGuHLcL9bY08eEtfDSQaHIYTLPD8Q48n4mTV -oZs+YffeiIdc/Nbo2vVoAOPpguhVbR5CkYf0XZc0oOLeVWa9Fg9pJ2YYs+Q0 -YX6LWh0/Nl+mwe64A5pwtXqkImgzD+X95+laWKMJsQ1Zzubq+Ps8nJsg/2Az -+HRahTxWxP1ZO3wdYmgBEfGtgb2WhxRU/4lP6tWBhMbbdLdJLqq8OKPF49cF -doxnI5rgIq9p91ZSRRfyVNvtNce56O4bda3d3rqw3cFFfWKEi1T9ypu5bbog -My3ieGqAi7Rz+zTI+m1QrPOqxbmLixQVlEhldz1Aiinjtmwu0skKF/2J9KH7 -bc/x7ZlcdD9U3amEbQiB+0fOONlzUVMkMj6XZQobuzdFxXXPIxXvL45HAnfB -ibfpwqcC5hHxuzRf8Q+Ai1Inz4pPzyHZ4RerZBm7IWS9fOnmY3Mo3MCi44q2 -NfgkMZfkfswixuhindQQHWLehRaZu8+ivN1hqzIabaFvpkuKVjODHs4E1OSm -7YWOba/1k3fMIK7VhoY38ftA0lRyYP21adTJt3Kyx9cBjtbKla9anEJBG4NT -EtT2AxH2ef590BTKP1ZXfS3RCXwn/xeo9m0SRU/LzW89dgAKhk8I5ThOolk7 -m8Pvjx6EE6rsXPa/E8jUM9Wq74Az+Cf1PbHdOYGa5e4EvDFwAZnHO6/onBxH -8o/OVmZvOQSWox1VmcFj6EW3tr2j2GFQZETVPf57FCm1TvhFjh6GGib5kF44 -ggyupeZmdrvC9KOzN9a3DqM7AtPbrtS6Af9ZR76UtcOo1Gp7e+JLd1grbmzh -ZTOEbhpflFzM8YCafOmy7EuDqPF/WecNLnmC1xvzzV2DA6jEIV095IwXvJ6d -rDljPYAmTzjzBbGOwGf7WLpfcT+atdHyH6N5Q9uh4yNJev0oe/Q7N8zoKBwf -O/P736cc5HY/i3lE1AceXfgqZGbKQUWF+46u/MsHTt1ukBF934dMFZp5f/N8 -YFLwu+YFog+pdfu1fz7mCytmztDMxftQ75rj+9MpXzDWO2N3/UUvarrsyLQ9 -xIBEbm74eEgvSovKWBPRxADfjAK6rE4vqqz6zWPuZcIVCZt0g0kKrfWCvwzK -mZDYrN3ZVUMh5fXvGzdWMqHHwzVNFVuP7bBBqIoJ2zyFWohqCh208HzyrYYJ -Z/prOaNVFErbGFl/+gMT2m49JgUqKSTf+XRt3TcmTNCiX9mVUkjdW/am1zwT -jKRGUy2eUsjUZyw7cScLmlbXFhdep9CjWxNhjkYs6Ahvd1HBXt8yZSlrwoLP -79ceS7lGoTH6fGu2OQu8lF6OBqdR+DzgW8HezYJg0s5v5xUKic9Luq87wALH -mevSLckU6k02FMk4wQKXWd8dfokUOvDeuNUvGNej4/b0nqNQFZ9Zht5JFiwd -HWr2xb4VZmn4OpwFJl9uWHmfpZCju61vXwwLfqKMRK8ECr1Ud3+59SILBFo2 -ZQadptDlithjLx6xYNWn2dWDERQ6oX/DNCqbBb0O4x8ise2fFIiY5LDAzF94 -XgB79Q3Ok7I8FlQ2nrutGk6hxFCnodJiFtzTkRVjhlIoVkv9eMlrFnAETC5z -8X9DwI36wML/WMB/X4YT4U+hveIci9BuFpTEMY5KYm9J5BPT/8GCw1b6Nnl+ -FOKEGuYV9LEgYfc+Lw5JIV/HjNHnIywI6O59coSgkJtgWNCzBZzX2vLOh0Eh -2zD5kFwZAoZa/h584UWh1xnn7a5sICBm/n2+B7YFe0o9Sp6AosuOM4ueeP81 -6r/TlAjI5yrz0bDl2mJo/9MgIN5tv/wXdwoNm3XKrDYkYIaZ7CLpSqF/+O/9 -6+dMgHD9x1eDB/D7bxe96XCIAKPetnO3sc95RoUauBLQ7nHrgwN2VLHT5t8e -BGg/3NJc5IT7J1ekXmcQ4LYg0JW4n0IGHxmstycJaEvX7bVyoFBbqsYatRQC -7o0FJMjtpVA+EvMfSCVgXceIZ9cenD868ybvKgFr6o2zsrD1976JM7lBgOsX -xXMG2Jf5mFMOdwm40NwV6mJLIZvge9+jcgkYVJmTfEqnkKLiBSPLfALMzza0 -ncKe+Rh8deVzAuo6rEXp2A80kcPlIgI0hkVquq0ptNTZWZ1ZTkD/y6fuitjF -9grZn+oI+EI/QH+6m0JJC/yCaR8JcHZZPxOHzcge8nVnE/AgzlnSGVtCoFyh -t5GAid5dNxatKBRY4fYP7ysBBo4Xm1yw1bSvR6r3EXDaxmFeDii00Ha6ZZBD -wOKGvksziEJNiYTeswG8X+7tKY3YcT07h0xHCBDV+0qdx26/2XJk/zQBNbeo -kgVLCl1ZJUmPXkHCndJB4fldFKqc6vQMX0mCzmmRX63Y/Z05oUGCJFy6lxJb -hG1RbH2PIYLrag3Sodgcn6ifdpIk5PV8eDFrgfu3p6+jS5GwtGmc24ZtbrxO -C0mT8Kwt8HU5dopY7mEDORJq2wMmE5br5V0FCiokRAvTXslgk1m5ddJqJGws -XNq7ZI7Hp/zRtVaDhDVzK717sTmklJiAFgm3I0dVipfrUrb+I3okKNLE5Dyw -y39JxXP0SbAMXhq1xu4b7L7WvZMENc9t9nrYZtXRta0mJDDuOjwUxu4NzFf6 -F3A/9b61r8zw+eEWY1i2G+eXGv/Ixzal7bEvsCbBL4l+8S72Zbkff2TtISFc -RTAyHvuFwLOUDDsSdMVLXoZgU+Mxj2/Zk1Blfus8A9vknfSXZCcSdov8rLDF -ZhT8GP7rIAkHpE+pm2Mnpz/j/9OFhMNm6jLbsX+E7tWLdCMhgm/ttQ3YYt4y -tiEeJBg67lMVX87bSx0J8CLBQ7zURGD5+U2nk7x9SJC4uX7FlCnuZ7XdAzcG -CQOOq4oGsX/Myrw8yCKBfVBzrAdbrIdqtCdJuLDtZGE7tgn7OcfGn4T1Ef2/ -W7AZZaeXIIAEn5oLXxuwkx/YrTcPJCGr1MWobjk/WXarYRAJk7/tNtUu50f1 -Wm0PISHZ6XhqFbYoq8BNKxTPxyy5VI5tvD8uWC0c7+fSFsmy5XyzfecVI0no -73+rVIx9SWPDHdkoPH4+qaQAu1Sir0gymoQA4Zgvz7B7fhZ8XBNLwp9LV+Ly -l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx +1:eJwV1Hk8VGsYB/AhpFDZs8tQEdGMtVzvo7GUxp6yN8bMqRQJ151KtFFdkrTQ +IhIlS0iLLZdodyMVlWSfxtg5slS3+/rjfM7n+3nP83uf9z3vOSvY+zy4ohQK +RYCv+fv+N2tXPWp+Y9MWIVZs3yRANiM5Zmy7QuStFvBx3l2Z5hd07apRA4Oz +1QHbjfOvhDT9KYoYUqE6Ypfy4urF7RrRZ8VYu03Yp58tr43Lf4uu1KaUb8au +aN5//SftA3o87B63BVv4+VXMgaqPyOx6Xboztmo/1e874wuyedcp5oa9ZTTG +KrKxEwUlF9Z7YNf8FErx8ruR89tVH7ywW48qH3oY1oteZLhb+WCPSNgJSVo/ +6p/SH/PHlkgK96FP89FAe8ksC1tTNuPF/ioBAg++FxfbRe37rRHGEDo25y+x +D5vI0lEykhxBTrTrvlHYcXqu8XsaR5GaRLLIQeyPyu/XReWPo8SzBxwTsDm+ +IbvPJ02g48w/+UnYY9coN+6FTSL7+1ofz2NL6hgtG6dNoQUXj5RlY1/g1Dsu +U/yOSCWLjHxs7ds+ccbT31G817VP97AtDRNGQqtm0EX1SKcG7F3mnY1Cxk9k +uNtDehCb5P0ptnjlL3SeG5c4hX2kSspaX/I/VLLFL4DSLEDpYFmws/E3+mdE +a1YJm5P7wi4iXwQcPDqWbcLOf3a+66iaKFT5HdPzwh77FhhzLkkUlp1qTWJj +xxhMlZWELQD13UmesdgXildQR2niYGJlXFeB/bl5qOa/m+LAZrjseYmtPfHI +d4miBMQ/UN/1CbvQ1CXVaFoClGae+8xhN1QcFNlbJQmqUj4a8FaApurfdQoY +0sAvCtNrx5ZjSi87VCMNOhX9NePYJu/tQMZKBrwfJVZItghQSN+DrHVrl0B2 +I6fFAjtctNHkD+llEKfrnHoFu1/n7nj8d1mIviO+JeId3h/i1aImuhwkf4yc +TsYWLeCvWL5fDsYV5MQLsbXpWh75g3JgK9bJ+Ibty0i596ZLHu6MV7uy3wtQ +U3BEpPJrRejbczUr5IMAfb2dnMiSVAJbXQXWGeyhwfybd+yVwA/VHCnBXhzV ++25DrRL8N3erfxrb7sRWU9YDZdDX+vePxFYBqswxn8rLVAGNhKOrGtoEKKd/ +Lnp9lAYo34Lu2M8CtMnr5NfIIg3IjD+Ql4891CDvUMTXgCnziIZWbNMcQ0Vt +H02Q3Xdzzrgd7yc7sEzcRgt0Pi9k8bEnRrv+EhzXBuu1I0uCOwRIPtTufpmz +DihF9/662iVA/JzFu9xCdCCK7hjQgl3+pVltOEEHaLOhsou6BcifGXB8Za0O +XJMS5/2FnbMm2uMyjQpqbv423j14fuHtsVhlXeiueV6s3ydAW3dKGTl160HH +ap+V0gIBQtFetO2/9GB6aGPbFmyD+EwLjspKENLyPiViU27SN8a6rwSvsv4W +6QEBKvrqt/1e3UpQTzFOkxPi73Nb4VHV7FVA6CjvNBrC/dk5twrZ+uDZOqub +NSZANz3T2qdj9cFt9rS4EDuZ3d0ldlUfFmletjAdx+f7yJ+Dmu/04eIX05SX +2LLVGRRPhgFUW3PlZybw+aGPGFRR18AYvy6IMyVAajpn4xL7DKHl6Rqtg3MC +VP03qT8ragSXpi57fsD2n/R5T6wwgpm88W8mPwToeoOu/sZAIwhfEWgygK2z +s7Jlps0IDEWNIfAXXm9hvx7xei3UB/3r50sZQBpqmoS2jwlU9LUfvyIxgAxz +o6R/IBrcaL2WsV5hALE5x6eMXGjQGR6negs7nZr6leVPg3Ot40JZxQG0ILu4 +5BmPBky7hAQh9ufrwq2ppTQQ892Xl6k8gE6nszL0qXS4IO+apqI2gPiJzLXe +EqbgNHhlBVNnAN2I0HV70GgGvU0SwoJ1A6g5GlmcyLWCU01zPQe2D6AVgR9c +Avb+AQZUM17ysQHE/f3wrsYBAMvya2eXlQwg5cHyhcrsjaAosSfA7NsAiqJb +f0k1sAPFPvUvGtpCxB7++UJeaA+Mgjq5WX8hKtoYuTCzyREE9AVquTlClEOG +1BVe2AwZfjXFz4aEaMZ2+b8NcVvg2XIPkWwYRB2UBePdQc6QOLFQISN9EIWp +70s5SnWFugLDiqzRQXR394vai/Fu8MGbH8P0HEIHJ1Wm1+x2h2kllTyDB0No +yslh2/MdHhBWNUl10R1GVn7nbPvdPWGx+44e30vDqEUlI6SBvhXaVNZMjoiN +INVbx6vzVnuBpkOp5/KjI6i8y4DpIrMN+B2nKZUzI0jz/djO6OFtwHPUP7Z6 +/yiiXzxXeLNrO9iuySse+j6KMsQm16bWe4Pk28QJrQ1j6KGt8ef4Ch+QHdf7 +YH50DKVb/C37M98X6p6sE33/bAw1tecm0JP8YKY0dIOx5Dh64HxNN/yIP7T/ +cp81ch1H46GelDBOAHxyrRqzPDeOphz0d40wAkE8Se/KrrfjKG/400yk+Q6o +N/0nWFJpAnnfyA0OkGaBNK+9/P7WCVR2b8uOBSdZYCRTduzhpQlkpdYye3qW +BZrrz59UaZlA1K6dn9/uDgKvVYdV3yyaRH1Se1yv9QZBz6tUG3LjJGpOdgl2 +9GKDbc66O6+jJtEFXqbUn81sCHszSz19axJV1/yeDd4cDHH1xP0rLZNoqT+c +pFcGQ1GpX4rS9CTSVnjepF4dDNTaNl4+tkmj83KJmmBQf+Sw0GZmEnlY+935 +WBcMFlevK3Jmcb569OvDL4Phw9kbUwU/JpFqR8HSFx+D4Qz9r7sGFBLpBiqn ++09j/7GY3StJIivWSF68KQdujvmMWauQ6NblsUgXcw7k9msFlmIrvJuwUbbk +gEJBGk9PlUQj9tPv8zZwoNTct0xajcT/L4pI40YOsC7627Spk2jJtKyPnDsH +BgcXXPPXJlHfGbNFmaEcKMg7Ib56FYmSq2J2l9/iQHCEDL2GTqJQWpoVL48D +p3SOR6qZkoh5p3SRZT4HHGttWDzsxWn8O4+KOGDc6GmzzoxE8RFuwof3OTBV +myiVaU6iGH3dPQ+ecGCptnRniBWJQtJe7733lQM9vwLk621ItHkJ3zqiiwPn +FMwbFBGJVsdTZGg9HHh65KXWLmx+hFlRaT8HDGYnW6WAREEumcMlQxzItFe0 +c7Ulkbd4ZFjxHAf63mYsfcYgkWOkanihEheuXHypGbmJRE8yE5xSl3OhN1Xa +oA7bunFCl6fKhWGKV9OSzSQy0Xv9iaHJBYmQJ9/ysFXaDjHa9bhQnZ3n8tGJ +RIPrO5QWm3Ghk5k9QHUm0VnRrMc7Pbkw3VH0O9Qdr99YOt3Ziwu+V+vpxdgn +/HgR9O1cYFqwKGPYvPtuq377cmHxVdHgcA/cPyFy7hKbCw7l/zD3epKI/orN +ebqfCzttx/LcvEjUdk5PiprChS8sT5vX3iS6i2R2Cc7h+je2Uz+wTwyTDUXn +uWBYJe5u6EMi2uaGWMs0LuytHv+eiJ1MCZ5wvs6F+02Xfjj4kshhX9YnXiEX +Flnq9hT4kUhD45S5zV0uXEql97Zik6/2nV9QwoUpiaJTIv4kyl6JnJPLcD39 +aa0X9q+OjtqblVwQs//aN4t9n6mW9+YFFxScYqZNAkmUOCcqfuEVF37W+Vhv +w2bnCYN8GrkwYsXQO4S9TKxSra+JC9//0u2tx95b5X12tpULO2wSl7jvIBHV +4FK0bj8X6LfDtHxZJJprO/xugM+FTJWM7APYzfFck2IBF958SXiZjh3bbSq0 +GuJCnchB0Vbsz+nvAlwnuVCwP0ibGUSi1IWy9gdFCGBWRUuuYpOoeqLDL2oB +AS0X0x4zsL915EeEiRPQ/HH37x3Y1vftstiLCOjoktFPw+azeD+cZAlgXHou +TwnG/TPt5ezlCUh8zDdSwd5gIaePFAm4Lpbyfh12ikzhNroKAbOdYc+D5scr +O0vVVhDQNdq7sRqbyC18oUglYH/up9q388+nHOhcqkfA6GGL13xsPiEvI6ZP +QLShevxSDh6Xd9w1ZELAcQudM37Ylf/Jx/FpBJxaNR4ait0/0HWxy5SAZ0lS +7bHY62sP1r+3JMCZVPTNwu7be1fzMRCge8ZwsAN7ifchs0cbCaj9JrJ2CNuK +sYlZakeAiL/Ur1nsZJWeA7mbCDjJK0EKXBKVixWnZDoRULDZsUwbu3f00O3L +TALWJkiWGWJbPlP8cMaNgAeHRbYzsNmlPYMnPQiwlzb74Yx95lqx6LGtuJ+i +v9d4Y/dEbDaJ9ibgVvkFkz3YMoFKjuG++P3csBePms/b3BsQ4k/AksuyRMx8 +vdbhxEAWAWczyNeJ8/0sdsr2ZhMQ+07ybep83pRShQeHgIkQGvvyfF53bxOT +wPtpFB6XOZ/XWMJ32EXAlx+1q3Pn+3t0+BeEEMB7SQ3Mn8/PdlLYsJeA3qw0 +reL5/DPKa8zCCMi8oRZaNp/P67M1DsfzU4odHmFLc0q99SMImFroXliJbeEa +u48aRUC4ssj1x/P567ckaEQTIJVTo1aLnaS3PEOZR4Ce5Wm9J9gPl/WXyR4k +IDmSVVWP3f2j9JVUDAHBUnYdDfP532K7xWMJsHxFT3yKbd6yZeZ3HAFzZ42f +zvt/ZNH3gg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + "PlotRange" -> {{0, 180}, {0.7753017824466849, 1.274846811539645}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6007907022525477}, + "AxesOrigin" -> {0, 0.7753017824466867}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -12742,7 +14081,8 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.6007907022525477}, + AxesOrigin->{0, 0.7753017824466867}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -12770,7 +14110,8 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.7753017824466849, 1.274846811539645}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -12778,9 +14119,9 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913267728125134`*^9}, + CellChangeTimes->{3.9913267728125134`*^9, 3.994253553938059*^9}, CellLabel-> - "Out[137]=",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] + "Out[149]=",ExpressionUUID->"3f69e0b6-dcf1-44b3-b154-3f219e7ef42a"] }, Open ]], Cell[CellGroupData[{ @@ -12795,30 +14136,33 @@ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -12843,154 +14187,159 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799933259697*^9, - 3.9917999365172615`*^9}},ExpressionUUID->"201ddeed-58e9-7047-8ad4-\ -c179c9adcae7"], + CellChangeTimes->{{3.991799933259697*^9, 3.9917999365172615`*^9}}, + CellLabel-> + "In[150]:=",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.962223088138177`*^-266\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.850951493859871`*^-276\\\", \ \\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 138, - 81, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326773051552*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 150, + 69, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326773051552*^9, 3.994253554125581*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], +In[150]:=",ExpressionUUID->"fcbcfd30-871e-4a35-9064-76eac6144906"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.450949205829742`*^-278\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.983815699777439`*^-288\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 138, - 82, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913267730605392`*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 150, + 70, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326773051552*^9, 3.9942535541359673`*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], +In[150]:=",ExpressionUUID->"cb5df209-80fb-4bda-ac24-75c5bca020c7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4109778485455803`*^-289\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.122871837494662`*^-300\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 138, 83, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913267730685368`*^9}, + 150, 71, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326773051552*^9, 3.9942535541464157`*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], +In[150]:=",ExpressionUUID->"252bead7-9157-4f95-b7a2-e4776364d341"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 138, 84, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326773076536*^9}, +during this calculation.\"", 2, 150, 72, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326773051552*^9, 3.994253554156749*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], +In[150]:=",ExpressionUUID->"d5af02f4-6e9a-4519-9c20-72fc588d5f06"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 -SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh -IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT -QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu -O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt -BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 -di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x -cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc -op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq -1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv -BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 -tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH -U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa -3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu -wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk -M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf -9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K -jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS -ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs -aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL -SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a -z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t -1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF -lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW -9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh -cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF -SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY -6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx -h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld -kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 -arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g -bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa -P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 -tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt -Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ -kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD -j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us -m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q -R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ -L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 -RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN -GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki -fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ -Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c -r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 -RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp -Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ -NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx -kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj -6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W -bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm -GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 -S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN -ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 -HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT -7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ -NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ -k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 -QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd -vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I -e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ -S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS -IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS -qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ -Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O -crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi -Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa -k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws -Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft -jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 -LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV -tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi -+Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt -hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u -+pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 -Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL -gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo -ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw -yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx -0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v -8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 -DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ -+V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 -VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 -g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx -6WkevnFqfy3DCYX/A6WEJbo= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk4VV8XB3ClSEUaRMpw7z33GkJpIHFbq4gQURkSmVMqypQxQxkqIkqG +yJRw7ykKGVJKRTQpZfolNJMoISLvfv84z3k+zzl/7GHt79oMJ8+drjMFBASm +yfP/92jXk4fU2bxNT+e6+ar81NzUkikVsLktAiZHyv6zHJUAlHjhJNWWCFlH +rc3Yo2zwMytqFWzLARUrpdtCo+th4Q/JxPHWm5B5r1K2e2QrvL9j6vm79QFY +zIzK8xyxAH2q793P1legWmVX92DYFcZbNS8OtfYCp//2X+kBX6jTvZbXnDMM +PZTFMqeqKFjxvvKzk8oUKAkn1ifdTYAlh+2LhHUFUbHXYf6ydxchUV2/2tRi +DgZvEF7hvjod2lNW1/4UF8V1aa0Zsp+vwNm80Bczly3E+VOTYn8tckDywofT +SRmLUeHLqiiPkDyI3m246dWoBIb1JS+PNssHb61s+ycRUkh5PzresLgA9AYn +Aj0+SOON/M3XUyIKIWDbBeX736VRbK96U1N0IVzPVu1YPCqNno107t/YQpDa +7aBVOWc5xt6XjDK/VAjfKx6NCaotx86ZznPe8gohKSLBJ9V/OQa7lTzY3FII +vRIcj4eiK7CpXVE9h1kE4TrmjtIbZHBukoppYFkRbNuX+Utziwx6/pQ9pFVV +BGJh/ScttsvgUPJA5u+7RXC5LjI/wUEGF5j5Gtk3FEGFUVW/0GkZvLe+ij+7 +swiGrFl+w+0yuLb+TEjydBHs8x058zRIFg3PtgfXb+UB+9KWFX2RsmjX7rdO +xIhHxhtPCyfI4pIlrtP6pjwInFR6uSVPFhtlZ7wot+TBxZP7JCqfymJt26zd +bm48eHq+/spVGTkscir6MS+GBxuvp5aeuCeH3QuFnZwf80Cv9fnUjwY5zBY2 +lvryhAemArMM7F/J4Q7jEWe3Zzxw3unRDp/kUPVOSbVdCw/0gxihYbPl8W+k +swejlwdH5UZzN6+URx2bksFZUzx46HZloM5PHpvK6qd0VvPBcFJrUXCQPCpv +2BO9ay0fnie0aKwLk8e1S/UK92vwob1SJCzvtDx+sCgpj9Dhw495PosiL8uj +ns77v+e38UGqeJum/gN57HjmYC7qwIfDf36GNYgy8O2vfTb+sXzYeGz/0s+L +GJjFHbTeG8+HOX0dPEEpBlrDL7uNiXy42ln3dhOTgcb+R4K/X+JD192LKmUa +DNRYoLGYkcuHHZFabdn2DLy17UNfUwUf1iwKXxVUwsCesfBo5R4+CJwdeZhS +zsDum6qD5z6Q8Qu625RXM9DPsddt8BMfDo3sjPz5iIGpacNxeX18yGujOt06 +GOh0pPb2+2E+LL3SELVbkIlPUjjvUmfTML5SvEvVgonjG5J85Dk0jGZIh6+1 +YaL5J62Bfwo0/F7AprTsmRg7+LmgXYmGH8Na7noHmWgvr95/UpWG3mrnUZsQ +Ju6KrC7graOh0fi2WMxVJrLghfe2LTTU19wviStiYsqznZb9ujQ8XPV0d9IN +JjYaFJw8s5WGu4t70jIrmei+6G1tzTYabnbOVSh7xkT1sfuvx0xpSDu0D3pH +mLiZeeRVlQ0Nl94d6P0ywcQZlrLZTFsaLuzwjhyYZmLiwpV1UXY0nFsb0/RH +hIUX5yYJ6jnQEPG3xGqBLAs96w9EJrrScOjs7KM6+iz86vlBNMyThgNTCxZv +MWahy4fnlvRRGvZ7SpcbmLFQMMF68u0xGhx2rZrcacPCbwuL7eV8aNi9fE/M +QQ8WWtgFpJzyp0GHx89KTmah+fx5dtlhNHTK865sTWdh3jepo6fCaQhMLsz8 +fYWFkTm3HF0iaLgdnn95ZyEL25ULeqVP0bDGOitF7A4LUyYt3J2iaWh+lnmp +ppaFD07Eh6nE0HBUNyP58CMWpmtfCBgmvq6WdqHxOQvPblNc6n+GBqXZFxKi +elgotbVsjm0cDQ2BifHrP7PwZHaonug5Mp+hhHMf+1jIoHzcqonzOuNit/xm +oWXWElexBBrkb0bH/BOi8HFUl2l8Ig33FKKi6XkUSuZmv1ZIomFfxqkoW3EK +B7pF9WqI02PCT1Uto9CmQLmv6wINS+2DwvxUKFygE793KpmGspaAULY6hW8e +lpiEXCLrZeR/omU9+X9y+eoJ4sT1vsFrgMLBGfINfSk0qPO8g3p0KZxh/OXE +vlQaXsp7BSZso3D3BnPFF8Si8z39f5hTeEn3iMW1NBr44UeOZ1hS+KTcrEMs +nQajsUN+2/dSuNlfa7c3cUzvAZ8iFwoNXkcorb1Mw6xKp6P7j1MYIPLF/VwG +Dblqjp4SwRT+KP1Q8I54S569x8MwCgPf3+9WyqQhNN72MPMMhYz7qVhJLDt7 +76HmcxQmr3x5cJL4TuAe97AkCncGOcbrXKFhwtXyQNdlCp13Ln51izi1c7db +XDaFFfo+Q33EG8x37dfJp/DVeLGoXBYNrY/NXfuLKFRqdFc2I/bTMXNJu0Hh +8lhdgxPEEjdNnQ1LKbxx+p1LIXGpgonTnwoKd0R0nmwm3plh7HithoynqDtv +lPjnIiMHywdkf3gJDVLZNLQdZr50r6cwRmWD50bi2scTEPqUrGctM8mauED+ +9Y2kZgqZc1jrvYkTAnlyBW8pnL91vuUZYv+Wk/F3Oin8bXVzNIPYQc12+mU3 +hTr3v0leJ94Ws87z0ycKTbOiq6qIV/fOfz/eR+GmW47v64ildD6Zig1R6Gpp +Gv2EWCC55i5zhMLpk9StJuKvgxfVNCcovPm62rmR+IWhR6bxNIVmgd9THxGX +5+qLOcxio4FhvGUNceaU7AkfETbuuh6SVkIcZTU2ECPGRolb5/fnEHuUvLDL +WMzGG5NXq+OJLecVPCuRYqNl08W0AOJNrmHcxzJs7BvXmeVAzLlnTXcw2Vg4 +dXx8C7HoMnWZQQU2Zn5iBTGJf3uJxAmqstHZRvbMP7K+/z3tmZRcw8bcjK0K +rcT8sMT/UIeNe88nL/j/fl3ocN9usZmNM++F2m4nDl6ne+egPhtrSpdoSxIb +fx1OTzRjY7x3fXEOqYc1W57Ou2bBxlCvQkNnYunLeUHVNmx0y7t3XJ64b4fF +3o8ubHwbJHkpgdTbq0LVpj8H2Tg8k3lGl7hKUEhb1JONB0J/SQyT+j19u1xa +I4CNGf4hfw2Ijy6MP2N0go2VvrOtBkj9Wx9ym9h3ko2zDvwwjSdWlJPqiI5j +o5z/Kckn5LyIBwwZXk5k49Q1wT4H4j+vGiqLL7HRZijadoSct4aogNT2bPJd +wYi9hNjtR4f1ynI2jq4JsVci59d0260GqGaj/OpvxvnkfGvknN2wu5aNE3E1 +7+WIhSx1pEIa2bgjY+8MEZIP+TUZrc+7yPjlSvRvkTz5GOtg6SXMQbGvRfQB +kk8efSrM1fM5WKWv3HOH5NmYwfjAgDgHJYUvaooRzxVMjDwozUH2lLlZwVlS +fwF1pQ6qHJReGWlQRfIxxJWzeMcuDkoZjv6zIHkrVPera741B+MW2NYGkzxO +kL9X1GjLQc6MoyVZYf/PQ6st+vs5GJzRze4+QfqX+elj3AAOLj1Ge3CDSL5t ++v5i5RUOuvT6anp505CVXpH+LZeD77+8sDjsRfJ3/JTbtQIO/rKYLHYm/UKn +VGaaeZODPdZMhhHpL87KO9SkH3FQLUVcYNSdhuKlN2Pn9HPwXKOob6MjDYaD +xw0/aSigSfGFNYdNaFihLhs1R0cB9/9XZvLLmPRbr4cPVm5WQHrqtpGvEam3 +UXEdL2MF/BD85scxAxq6pgrVpu0VULuh8d/WzTR4zf9v8bLTCvjnWoWWDenH +aUrYtb1TAdOzmxdpS9Fw+NBn6aPdCrhXKC7dfikNQMdaJX1SwB3efOXwJWQ/ +Vre/bB9UQCGJOodqcRrUNnjV7Z+liOOdS03mi9BQp59XEKaqiJ9rXqkyxvnw +3XmOd2moIjIeN+6TayX3pUy9mnunFHHD9B+7ny18GGwPE246rYjbBW/l1r7i +w68d4+k9SYpY5e0obPWcD2PafQ/FChQxeFPHDudHfJi55OnSgy8VMSn7yZeJ +m3xY9jC+SoahhD9z9a3UyP1Kn5KcGf1ACXNO7Vr3ldzXvjkZFGjXK+E/uY9X +t67jQ2z2cdOhJiVMdVeYyFLnw2vZtrQ9b5QQBMpMzVX44LAsda3KVyXk2IbU +pTD4ECC23LVZVBltA59U1M3jA/+PbMPyPcoYumL8fkIXDxY945wrHlRGG5HL +mnCCBytibphpaKigQczeFpcLRZCyUkt8sZsq3uL0dPdnFkKj9Ob1w+fVUO9q +K0cotQA2rniQsOrtKlx1lqF45+A1EBPM8XGMWI1LuJGlfZgPsuFyOns46jit +rber/HceiLBty3fWq6NNcnIgtyAX1LjLbhy3W4Ot4x+l5h7NAa+uRXVGAmtx +/cLKxNuy2TA4HGthmLIW9/R/CWl7cQUMVj1OM1Rdh55x7TICQRlwd1j779jz +dag/+0u1sFA6eKis6Wh2XY9Z/f9mHHiZAtwfLi17RDRwULB/7ePIZNhKSZmI +5migi8lKf8eQC6AYdsb/gaYmLuzuEk9OSwRlV6177A5NNLAXaHh/PQFc7x44 +VXpsA7oIeNjunX0O7mW1uPyU0ELODQb7RcEZ+F0wPbbqthZS11Y2N12JBmc2 +TyTNZCNez3cO9RaKhJ/KSRo3hzbix6shA5PeEVCR97dnJEYb93TKpMvrh4GN +Hgu1ZXWwYywnieIHw/Ij0ZVqtToo+DC87NgHf5CYe7jExIqLjPxP749U+UKe +bkjg0B4u1kRpzpCifWFNyDndJFsu+j/ve9xwxRdMh4rftDlysXSiQ2NTpC9E +vR0Zdz7MxaqizMP+Zr7wJyd0S2A4FxXKVpgofvWBDu2k1/k8LnI+2j3ev8IH +DvjmXTa8zsXUKgv9ngU+MHq9zPV7MRfnfUxlOwn6wCJm25h6OReTOu3G/fq8 +wXiOzIqaWi6aeK2q/F7hDXda8l1ev+EiyzO3VMjKG4zEKlT92rgYv8Sd/dnI +G9oMnoxKdXLx3cnmV02bvOF3VX/Mvm4uTpx821HI8QbV7NX0tz4yP6OZzsWj +XnCnY7Nf7AAXy0qkgu/3eYHRkl2waoiLkpN+tW1dXrA/2rfZZ4SLxWn7Hiyr +94LftVFpkn+4OJ55Pki32gsiJi45V01wcdlXeyvvG14gvq5QxW6Ki17mmbsK +c70g80jVyPQ0F5srGB6fLnnB/wDw6Vjf "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -13004,113 +14353,114 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 -SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh -IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT -QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu -O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt -BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 -di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x -cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc -op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq -1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv -BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 -tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH -U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa -3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu -wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk -M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf -9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K -jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS -ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs -aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL -SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a -z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t -1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF -lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW -9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh -cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF -SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY -6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx -h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld -kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 -arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g -bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa -P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 -tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt -Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ -kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD -j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us -m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q -R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ -L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 -RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN -GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki -fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ -Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c -r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 -RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp -Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ -NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx -kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj -6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W -bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm -GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 -S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN -ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 -HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT -7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ -NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ -k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 -QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd -vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I -e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ -S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS -IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS -qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ -Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O -crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi -Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa -k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws -Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft -jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 -LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV -tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi -+Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt -hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u -+pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 -Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL -gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo -ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw -yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx -0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v -8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 -DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ -+V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 -VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 -g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx -6WkevnFqfy3DCYX/A6WEJbo= +1:eJwV1nk4VV8XB3ClSEUaRMpw7z33GkJpIHFbq4gQURkSmVMqypQxQxkqIkqG +yJRw7ykKGVJKRTQpZfolNJMoISLvfv84z3k+zzl/7GHt79oMJ8+drjMFBASm +yfP/92jXk4fU2bxNT+e6+ar81NzUkikVsLktAiZHyv6zHJUAlHjhJNWWCFlH +rc3Yo2zwMytqFWzLARUrpdtCo+th4Q/JxPHWm5B5r1K2e2QrvL9j6vm79QFY +zIzK8xyxAH2q793P1legWmVX92DYFcZbNS8OtfYCp//2X+kBX6jTvZbXnDMM +PZTFMqeqKFjxvvKzk8oUKAkn1ifdTYAlh+2LhHUFUbHXYf6ydxchUV2/2tRi +DgZvEF7hvjod2lNW1/4UF8V1aa0Zsp+vwNm80Bczly3E+VOTYn8tckDywofT +SRmLUeHLqiiPkDyI3m246dWoBIb1JS+PNssHb61s+ycRUkh5PzresLgA9AYn +Aj0+SOON/M3XUyIKIWDbBeX736VRbK96U1N0IVzPVu1YPCqNno107t/YQpDa +7aBVOWc5xt6XjDK/VAjfKx6NCaotx86ZznPe8gohKSLBJ9V/OQa7lTzY3FII +vRIcj4eiK7CpXVE9h1kE4TrmjtIbZHBukoppYFkRbNuX+Utziwx6/pQ9pFVV +BGJh/ScttsvgUPJA5u+7RXC5LjI/wUEGF5j5Gtk3FEGFUVW/0GkZvLe+ij+7 +swiGrFl+w+0yuLb+TEjydBHs8x058zRIFg3PtgfXb+UB+9KWFX2RsmjX7rdO +xIhHxhtPCyfI4pIlrtP6pjwInFR6uSVPFhtlZ7wot+TBxZP7JCqfymJt26zd +bm48eHq+/spVGTkscir6MS+GBxuvp5aeuCeH3QuFnZwf80Cv9fnUjwY5zBY2 +lvryhAemArMM7F/J4Q7jEWe3Zzxw3unRDp/kUPVOSbVdCw/0gxihYbPl8W+k +swejlwdH5UZzN6+URx2bksFZUzx46HZloM5PHpvK6qd0VvPBcFJrUXCQPCpv +2BO9ay0fnie0aKwLk8e1S/UK92vwob1SJCzvtDx+sCgpj9Dhw495PosiL8uj +ns77v+e38UGqeJum/gN57HjmYC7qwIfDf36GNYgy8O2vfTb+sXzYeGz/0s+L +GJjFHbTeG8+HOX0dPEEpBlrDL7uNiXy42ln3dhOTgcb+R4K/X+JD192LKmUa +DNRYoLGYkcuHHZFabdn2DLy17UNfUwUf1iwKXxVUwsCesfBo5R4+CJwdeZhS +zsDum6qD5z6Q8Qu625RXM9DPsddt8BMfDo3sjPz5iIGpacNxeX18yGujOt06 +GOh0pPb2+2E+LL3SELVbkIlPUjjvUmfTML5SvEvVgonjG5J85Dk0jGZIh6+1 +YaL5J62Bfwo0/F7AprTsmRg7+LmgXYmGH8Na7noHmWgvr95/UpWG3mrnUZsQ +Ju6KrC7graOh0fi2WMxVJrLghfe2LTTU19wviStiYsqznZb9ujQ8XPV0d9IN +JjYaFJw8s5WGu4t70jIrmei+6G1tzTYabnbOVSh7xkT1sfuvx0xpSDu0D3pH +mLiZeeRVlQ0Nl94d6P0ywcQZlrLZTFsaLuzwjhyYZmLiwpV1UXY0nFsb0/RH +hIUX5yYJ6jnQEPG3xGqBLAs96w9EJrrScOjs7KM6+iz86vlBNMyThgNTCxZv +MWahy4fnlvRRGvZ7SpcbmLFQMMF68u0xGhx2rZrcacPCbwuL7eV8aNi9fE/M +QQ8WWtgFpJzyp0GHx89KTmah+fx5dtlhNHTK865sTWdh3jepo6fCaQhMLsz8 +fYWFkTm3HF0iaLgdnn95ZyEL25ULeqVP0bDGOitF7A4LUyYt3J2iaWh+lnmp +ppaFD07Eh6nE0HBUNyP58CMWpmtfCBgmvq6WdqHxOQvPblNc6n+GBqXZFxKi +elgotbVsjm0cDQ2BifHrP7PwZHaonug5Mp+hhHMf+1jIoHzcqonzOuNit/xm +oWXWElexBBrkb0bH/BOi8HFUl2l8Ig33FKKi6XkUSuZmv1ZIomFfxqkoW3EK +B7pF9WqI02PCT1Uto9CmQLmv6wINS+2DwvxUKFygE793KpmGspaAULY6hW8e +lpiEXCLrZeR/omU9+X9y+eoJ4sT1vsFrgMLBGfINfSk0qPO8g3p0KZxh/OXE +vlQaXsp7BSZso3D3BnPFF8Si8z39f5hTeEn3iMW1NBr44UeOZ1hS+KTcrEMs +nQajsUN+2/dSuNlfa7c3cUzvAZ8iFwoNXkcorb1Mw6xKp6P7j1MYIPLF/VwG +Dblqjp4SwRT+KP1Q8I54S569x8MwCgPf3+9WyqQhNN72MPMMhYz7qVhJLDt7 +76HmcxQmr3x5cJL4TuAe97AkCncGOcbrXKFhwtXyQNdlCp13Ln51izi1c7db +XDaFFfo+Q33EG8x37dfJp/DVeLGoXBYNrY/NXfuLKFRqdFc2I/bTMXNJu0Hh +8lhdgxPEEjdNnQ1LKbxx+p1LIXGpgonTnwoKd0R0nmwm3plh7HithoynqDtv +lPjnIiMHywdkf3gJDVLZNLQdZr50r6cwRmWD50bi2scTEPqUrGctM8mauED+ +9Y2kZgqZc1jrvYkTAnlyBW8pnL91vuUZYv+Wk/F3Oin8bXVzNIPYQc12+mU3 +hTr3v0leJ94Ws87z0ycKTbOiq6qIV/fOfz/eR+GmW47v64ildD6Zig1R6Gpp +Gv2EWCC55i5zhMLpk9StJuKvgxfVNCcovPm62rmR+IWhR6bxNIVmgd9THxGX +5+qLOcxio4FhvGUNceaU7AkfETbuuh6SVkIcZTU2ECPGRolb5/fnEHuUvLDL +WMzGG5NXq+OJLecVPCuRYqNl08W0AOJNrmHcxzJs7BvXmeVAzLlnTXcw2Vg4 +dXx8C7HoMnWZQQU2Zn5iBTGJf3uJxAmqstHZRvbMP7K+/z3tmZRcw8bcjK0K +rcT8sMT/UIeNe88nL/j/fl3ocN9usZmNM++F2m4nDl6ne+egPhtrSpdoSxIb +fx1OTzRjY7x3fXEOqYc1W57Ou2bBxlCvQkNnYunLeUHVNmx0y7t3XJ64b4fF +3o8ubHwbJHkpgdTbq0LVpj8H2Tg8k3lGl7hKUEhb1JONB0J/SQyT+j19u1xa +I4CNGf4hfw2Ijy6MP2N0go2VvrOtBkj9Wx9ym9h3ko2zDvwwjSdWlJPqiI5j +o5z/Kckn5LyIBwwZXk5k49Q1wT4H4j+vGiqLL7HRZijadoSct4aogNT2bPJd +wYi9hNjtR4f1ynI2jq4JsVci59d0260GqGaj/OpvxvnkfGvknN2wu5aNE3E1 +7+WIhSx1pEIa2bgjY+8MEZIP+TUZrc+7yPjlSvRvkTz5GOtg6SXMQbGvRfQB +kk8efSrM1fM5WKWv3HOH5NmYwfjAgDgHJYUvaooRzxVMjDwozUH2lLlZwVlS +fwF1pQ6qHJReGWlQRfIxxJWzeMcuDkoZjv6zIHkrVPera741B+MW2NYGkzxO +kL9X1GjLQc6MoyVZYf/PQ6st+vs5GJzRze4+QfqX+elj3AAOLj1Ge3CDSL5t ++v5i5RUOuvT6anp505CVXpH+LZeD77+8sDjsRfJ3/JTbtQIO/rKYLHYm/UKn +VGaaeZODPdZMhhHpL87KO9SkH3FQLUVcYNSdhuKlN2Pn9HPwXKOob6MjDYaD +xw0/aSigSfGFNYdNaFihLhs1R0cB9/9XZvLLmPRbr4cPVm5WQHrqtpGvEam3 +UXEdL2MF/BD85scxAxq6pgrVpu0VULuh8d/WzTR4zf9v8bLTCvjnWoWWDenH +aUrYtb1TAdOzmxdpS9Fw+NBn6aPdCrhXKC7dfikNQMdaJX1SwB3efOXwJWQ/ +Vre/bB9UQCGJOodqcRrUNnjV7Z+liOOdS03mi9BQp59XEKaqiJ9rXqkyxvnw +3XmOd2moIjIeN+6TayX3pUy9mnunFHHD9B+7ny18GGwPE246rYjbBW/l1r7i +w68d4+k9SYpY5e0obPWcD2PafQ/FChQxeFPHDudHfJi55OnSgy8VMSn7yZeJ +m3xY9jC+SoahhD9z9a3UyP1Kn5KcGf1ACXNO7Vr3ldzXvjkZFGjXK+E/uY9X +t67jQ2z2cdOhJiVMdVeYyFLnw2vZtrQ9b5QQBMpMzVX44LAsda3KVyXk2IbU +pTD4ECC23LVZVBltA59U1M3jA/+PbMPyPcoYumL8fkIXDxY945wrHlRGG5HL +mnCCBytibphpaKigQczeFpcLRZCyUkt8sZsq3uL0dPdnFkKj9Ob1w+fVUO9q +K0cotQA2rniQsOrtKlx1lqF45+A1EBPM8XGMWI1LuJGlfZgPsuFyOns46jit +rber/HceiLBty3fWq6NNcnIgtyAX1LjLbhy3W4Ot4x+l5h7NAa+uRXVGAmtx +/cLKxNuy2TA4HGthmLIW9/R/CWl7cQUMVj1OM1Rdh55x7TICQRlwd1j779jz +dag/+0u1sFA6eKis6Wh2XY9Z/f9mHHiZAtwfLi17RDRwULB/7ePIZNhKSZmI +5migi8lKf8eQC6AYdsb/gaYmLuzuEk9OSwRlV6177A5NNLAXaHh/PQFc7x44 +VXpsA7oIeNjunX0O7mW1uPyU0ELODQb7RcEZ+F0wPbbqthZS11Y2N12JBmc2 +TyTNZCNez3cO9RaKhJ/KSRo3hzbix6shA5PeEVCR97dnJEYb93TKpMvrh4GN +Hgu1ZXWwYywnieIHw/Ij0ZVqtToo+DC87NgHf5CYe7jExIqLjPxP749U+UKe +bkjg0B4u1kRpzpCifWFNyDndJFsu+j/ve9xwxRdMh4rftDlysXSiQ2NTpC9E +vR0Zdz7MxaqizMP+Zr7wJyd0S2A4FxXKVpgofvWBDu2k1/k8LnI+2j3ev8IH +DvjmXTa8zsXUKgv9ngU+MHq9zPV7MRfnfUxlOwn6wCJm25h6OReTOu3G/fq8 +wXiOzIqaWi6aeK2q/F7hDXda8l1ev+EiyzO3VMjKG4zEKlT92rgYv8Sd/dnI +G9oMnoxKdXLx3cnmV02bvOF3VX/Mvm4uTpx821HI8QbV7NX0tz4yP6OZzsWj +XnCnY7Nf7AAXy0qkgu/3eYHRkl2waoiLkpN+tW1dXrA/2rfZZ4SLxWn7Hiyr +94LftVFpkn+4OJ55Pki32gsiJi45V01wcdlXeyvvG14gvq5QxW6Ki17mmbsK +c70g80jVyPQ0F5srGB6fLnnB/wDw6Vjf "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "PlotRange" -> {{0, 30}, {0., 0.057875028245923936`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -13122,19 +14472,19 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "PlotRange" -> {{0, 30}, {0., 0.057875028245923936`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13148,112 +14498,113 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 -SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh -IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT -QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu -O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt -BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 -di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x -cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc -op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq -1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv -BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 -tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH -U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa -3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu -wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk -M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf -9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K -jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS -ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs -aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL -SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a -z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t -1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF -lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW -9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh -cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF -SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY -6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx -h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld -kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 -arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g -bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa -P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 -tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt -Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ -kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD -j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us -m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q -R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ -L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 -RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN -GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki -fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ -Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c -r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 -RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp -Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ -NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx -kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj -6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W -bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm -GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 -S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN -ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 -HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT -7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ -NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ -k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 -QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd -vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I -e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ -S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS -IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS -qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ -Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O -crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi -Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa -k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws -Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft -jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 -LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV -tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi -+Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt -hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u -+pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 -Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL -gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo -ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw -yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx -0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v -8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 -DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ -+V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 -VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 -g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx -6WkevnFqfy3DCYX/A6WEJbo= +1:eJwV1nk4VV8XB3ClSEUaRMpw7z33GkJpIHFbq4gQURkSmVMqypQxQxkqIkqG +yJRw7ykKGVJKRTQpZfolNJMoISLvfv84z3k+zzl/7GHt79oMJ8+drjMFBASm +yfP/92jXk4fU2bxNT+e6+ar81NzUkikVsLktAiZHyv6zHJUAlHjhJNWWCFlH +rc3Yo2zwMytqFWzLARUrpdtCo+th4Q/JxPHWm5B5r1K2e2QrvL9j6vm79QFY +zIzK8xyxAH2q793P1legWmVX92DYFcZbNS8OtfYCp//2X+kBX6jTvZbXnDMM +PZTFMqeqKFjxvvKzk8oUKAkn1ifdTYAlh+2LhHUFUbHXYf6ydxchUV2/2tRi +DgZvEF7hvjod2lNW1/4UF8V1aa0Zsp+vwNm80Bczly3E+VOTYn8tckDywofT +SRmLUeHLqiiPkDyI3m246dWoBIb1JS+PNssHb61s+ycRUkh5PzresLgA9AYn +Aj0+SOON/M3XUyIKIWDbBeX736VRbK96U1N0IVzPVu1YPCqNno107t/YQpDa +7aBVOWc5xt6XjDK/VAjfKx6NCaotx86ZznPe8gohKSLBJ9V/OQa7lTzY3FII +vRIcj4eiK7CpXVE9h1kE4TrmjtIbZHBukoppYFkRbNuX+Utziwx6/pQ9pFVV +BGJh/ScttsvgUPJA5u+7RXC5LjI/wUEGF5j5Gtk3FEGFUVW/0GkZvLe+ij+7 +swiGrFl+w+0yuLb+TEjydBHs8x058zRIFg3PtgfXb+UB+9KWFX2RsmjX7rdO +xIhHxhtPCyfI4pIlrtP6pjwInFR6uSVPFhtlZ7wot+TBxZP7JCqfymJt26zd +bm48eHq+/spVGTkscir6MS+GBxuvp5aeuCeH3QuFnZwf80Cv9fnUjwY5zBY2 +lvryhAemArMM7F/J4Q7jEWe3Zzxw3unRDp/kUPVOSbVdCw/0gxihYbPl8W+k +swejlwdH5UZzN6+URx2bksFZUzx46HZloM5PHpvK6qd0VvPBcFJrUXCQPCpv +2BO9ay0fnie0aKwLk8e1S/UK92vwob1SJCzvtDx+sCgpj9Dhw495PosiL8uj +ns77v+e38UGqeJum/gN57HjmYC7qwIfDf36GNYgy8O2vfTb+sXzYeGz/0s+L +GJjFHbTeG8+HOX0dPEEpBlrDL7uNiXy42ln3dhOTgcb+R4K/X+JD192LKmUa +DNRYoLGYkcuHHZFabdn2DLy17UNfUwUf1iwKXxVUwsCesfBo5R4+CJwdeZhS +zsDum6qD5z6Q8Qu625RXM9DPsddt8BMfDo3sjPz5iIGpacNxeX18yGujOt06 +GOh0pPb2+2E+LL3SELVbkIlPUjjvUmfTML5SvEvVgonjG5J85Dk0jGZIh6+1 +YaL5J62Bfwo0/F7AprTsmRg7+LmgXYmGH8Na7noHmWgvr95/UpWG3mrnUZsQ +Ju6KrC7graOh0fi2WMxVJrLghfe2LTTU19wviStiYsqznZb9ujQ8XPV0d9IN +JjYaFJw8s5WGu4t70jIrmei+6G1tzTYabnbOVSh7xkT1sfuvx0xpSDu0D3pH +mLiZeeRVlQ0Nl94d6P0ywcQZlrLZTFsaLuzwjhyYZmLiwpV1UXY0nFsb0/RH +hIUX5yYJ6jnQEPG3xGqBLAs96w9EJrrScOjs7KM6+iz86vlBNMyThgNTCxZv +MWahy4fnlvRRGvZ7SpcbmLFQMMF68u0xGhx2rZrcacPCbwuL7eV8aNi9fE/M +QQ8WWtgFpJzyp0GHx89KTmah+fx5dtlhNHTK865sTWdh3jepo6fCaQhMLsz8 +fYWFkTm3HF0iaLgdnn95ZyEL25ULeqVP0bDGOitF7A4LUyYt3J2iaWh+lnmp +ppaFD07Eh6nE0HBUNyP58CMWpmtfCBgmvq6WdqHxOQvPblNc6n+GBqXZFxKi +elgotbVsjm0cDQ2BifHrP7PwZHaonug5Mp+hhHMf+1jIoHzcqonzOuNit/xm +oWXWElexBBrkb0bH/BOi8HFUl2l8Ig33FKKi6XkUSuZmv1ZIomFfxqkoW3EK +B7pF9WqI02PCT1Uto9CmQLmv6wINS+2DwvxUKFygE793KpmGspaAULY6hW8e +lpiEXCLrZeR/omU9+X9y+eoJ4sT1vsFrgMLBGfINfSk0qPO8g3p0KZxh/OXE +vlQaXsp7BSZso3D3BnPFF8Si8z39f5hTeEn3iMW1NBr44UeOZ1hS+KTcrEMs +nQajsUN+2/dSuNlfa7c3cUzvAZ8iFwoNXkcorb1Mw6xKp6P7j1MYIPLF/VwG +Dblqjp4SwRT+KP1Q8I54S569x8MwCgPf3+9WyqQhNN72MPMMhYz7qVhJLDt7 +76HmcxQmr3x5cJL4TuAe97AkCncGOcbrXKFhwtXyQNdlCp13Ln51izi1c7db +XDaFFfo+Q33EG8x37dfJp/DVeLGoXBYNrY/NXfuLKFRqdFc2I/bTMXNJu0Hh +8lhdgxPEEjdNnQ1LKbxx+p1LIXGpgonTnwoKd0R0nmwm3plh7HithoynqDtv +lPjnIiMHywdkf3gJDVLZNLQdZr50r6cwRmWD50bi2scTEPqUrGctM8mauED+ +9Y2kZgqZc1jrvYkTAnlyBW8pnL91vuUZYv+Wk/F3Oin8bXVzNIPYQc12+mU3 +hTr3v0leJ94Ws87z0ycKTbOiq6qIV/fOfz/eR+GmW47v64ildD6Zig1R6Gpp +Gv2EWCC55i5zhMLpk9StJuKvgxfVNCcovPm62rmR+IWhR6bxNIVmgd9THxGX +5+qLOcxio4FhvGUNceaU7AkfETbuuh6SVkIcZTU2ECPGRolb5/fnEHuUvLDL +WMzGG5NXq+OJLecVPCuRYqNl08W0AOJNrmHcxzJs7BvXmeVAzLlnTXcw2Vg4 +dXx8C7HoMnWZQQU2Zn5iBTGJf3uJxAmqstHZRvbMP7K+/z3tmZRcw8bcjK0K +rcT8sMT/UIeNe88nL/j/fl3ocN9usZmNM++F2m4nDl6ne+egPhtrSpdoSxIb +fx1OTzRjY7x3fXEOqYc1W57Ou2bBxlCvQkNnYunLeUHVNmx0y7t3XJ64b4fF +3o8ubHwbJHkpgdTbq0LVpj8H2Tg8k3lGl7hKUEhb1JONB0J/SQyT+j19u1xa +I4CNGf4hfw2Ijy6MP2N0go2VvrOtBkj9Wx9ym9h3ko2zDvwwjSdWlJPqiI5j +o5z/Kckn5LyIBwwZXk5k49Q1wT4H4j+vGiqLL7HRZijadoSct4aogNT2bPJd +wYi9hNjtR4f1ynI2jq4JsVci59d0260GqGaj/OpvxvnkfGvknN2wu5aNE3E1 +7+WIhSx1pEIa2bgjY+8MEZIP+TUZrc+7yPjlSvRvkTz5GOtg6SXMQbGvRfQB +kk8efSrM1fM5WKWv3HOH5NmYwfjAgDgHJYUvaooRzxVMjDwozUH2lLlZwVlS +fwF1pQ6qHJReGWlQRfIxxJWzeMcuDkoZjv6zIHkrVPera741B+MW2NYGkzxO +kL9X1GjLQc6MoyVZYf/PQ6st+vs5GJzRze4+QfqX+elj3AAOLj1Ge3CDSL5t ++v5i5RUOuvT6anp505CVXpH+LZeD77+8sDjsRfJ3/JTbtQIO/rKYLHYm/UKn +VGaaeZODPdZMhhHpL87KO9SkH3FQLUVcYNSdhuKlN2Pn9HPwXKOob6MjDYaD +xw0/aSigSfGFNYdNaFihLhs1R0cB9/9XZvLLmPRbr4cPVm5WQHrqtpGvEam3 +UXEdL2MF/BD85scxAxq6pgrVpu0VULuh8d/WzTR4zf9v8bLTCvjnWoWWDenH +aUrYtb1TAdOzmxdpS9Fw+NBn6aPdCrhXKC7dfikNQMdaJX1SwB3efOXwJWQ/ +Vre/bB9UQCGJOodqcRrUNnjV7Z+liOOdS03mi9BQp59XEKaqiJ9rXqkyxvnw +3XmOd2moIjIeN+6TayX3pUy9mnunFHHD9B+7ny18GGwPE246rYjbBW/l1r7i +w68d4+k9SYpY5e0obPWcD2PafQ/FChQxeFPHDudHfJi55OnSgy8VMSn7yZeJ +m3xY9jC+SoahhD9z9a3UyP1Kn5KcGf1ACXNO7Vr3ldzXvjkZFGjXK+E/uY9X +t67jQ2z2cdOhJiVMdVeYyFLnw2vZtrQ9b5QQBMpMzVX44LAsda3KVyXk2IbU +pTD4ECC23LVZVBltA59U1M3jA/+PbMPyPcoYumL8fkIXDxY945wrHlRGG5HL +mnCCBytibphpaKigQczeFpcLRZCyUkt8sZsq3uL0dPdnFkKj9Ob1w+fVUO9q +K0cotQA2rniQsOrtKlx1lqF45+A1EBPM8XGMWI1LuJGlfZgPsuFyOns46jit +rber/HceiLBty3fWq6NNcnIgtyAX1LjLbhy3W4Ot4x+l5h7NAa+uRXVGAmtx +/cLKxNuy2TA4HGthmLIW9/R/CWl7cQUMVj1OM1Rdh55x7TICQRlwd1j779jz +dag/+0u1sFA6eKis6Wh2XY9Z/f9mHHiZAtwfLi17RDRwULB/7ePIZNhKSZmI +5migi8lKf8eQC6AYdsb/gaYmLuzuEk9OSwRlV6177A5NNLAXaHh/PQFc7x44 +VXpsA7oIeNjunX0O7mW1uPyU0ELODQb7RcEZ+F0wPbbqthZS11Y2N12JBmc2 +TyTNZCNez3cO9RaKhJ/KSRo3hzbix6shA5PeEVCR97dnJEYb93TKpMvrh4GN +Hgu1ZXWwYywnieIHw/Ij0ZVqtToo+DC87NgHf5CYe7jExIqLjPxP749U+UKe +bkjg0B4u1kRpzpCifWFNyDndJFsu+j/ve9xwxRdMh4rftDlysXSiQ2NTpC9E +vR0Zdz7MxaqizMP+Zr7wJyd0S2A4FxXKVpgofvWBDu2k1/k8LnI+2j3ev8IH +DvjmXTa8zsXUKgv9ngU+MHq9zPV7MRfnfUxlOwn6wCJm25h6OReTOu3G/fq8 +wXiOzIqaWi6aeK2q/F7hDXda8l1ev+EiyzO3VMjKG4zEKlT92rgYv8Sd/dnI +G9oMnoxKdXLx3cnmV02bvOF3VX/Mvm4uTpx821HI8QbV7NX0tz4yP6OZzsWj +XnCnY7Nf7AAXy0qkgu/3eYHRkl2waoiLkpN+tW1dXrA/2rfZZ4SLxWn7Hiyr +94LftVFpkn+4OJ55Pki32gsiJi45V01wcdlXeyvvG14gvq5QxW6Ki17mmbsK +c70g80jVyPQ0F5srGB6fLnnB/wDw6Vjf "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "PlotRange" -> {{0, 30}, {0., 0.057875028245923936`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13264,6 +14615,7 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -13291,7 +14643,8 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.12905028199662316`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.057875028245923936`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -13299,22 +14652,568 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991327033758711*^9}, + CellChangeTimes->{3.991327033758711*^9, 3.99425404086633*^9}, CellLabel-> - "Out[138]=",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] + "Out[150]=",ExpressionUUID->"693c61ad-eebc-4dfe-9924-82f24e023fd3"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9917999433700733`*^9, 3.9917999479698143`*^9}, - 3.9919244033659534`*^9},ExpressionUUID->"d48877eb-e0f2-d842-b248-\ -ea3fc2b4c4a8"], + 3.9919244033659534`*^9}, + CellLabel-> + "In[151]:=",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.991799951845436*^9, - 3.991799954096182*^9}},ExpressionUUID->"eae5aeae-3f12-2d4a-842b-\ -85a3484011b6"], + CellChangeTimes->{{3.991799951845436*^9, 3.991799954096182*^9}}, + CellLabel-> + "In[152]:=",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk4VV8XB3ClSEUaRMpw7z33GkJpIHFbq4gQURkSmVMqypQxQxkqIkqG +yJRw7ykKGVJKRTQpZfolNJMoISLvfv84z3k+zzl/7GHt79oMJ8+drjMFBASm +yfP/92jXk4fU2bxNT+e6+ar81NzUkikVsLktAiZHyv6zHJUAlHjhJNWWCFlH +rc3Yo2zwMytqFWzLARUrpdtCo+th4Q/JxPHWm5B5r1K2e2QrvL9j6vm79QFY +zIzK8xyxAH2q793P1legWmVX92DYFcZbNS8OtfYCp//2X+kBX6jTvZbXnDMM +PZTFMqeqKFjxvvKzk8oUKAkn1ifdTYAlh+2LhHUFUbHXYf6ydxchUV2/2tRi +DgZvEF7hvjod2lNW1/4UF8V1aa0Zsp+vwNm80Bczly3E+VOTYn8tckDywofT +SRmLUeHLqiiPkDyI3m246dWoBIb1JS+PNssHb61s+ycRUkh5PzresLgA9AYn +Aj0+SOON/M3XUyIKIWDbBeX736VRbK96U1N0IVzPVu1YPCqNno107t/YQpDa +7aBVOWc5xt6XjDK/VAjfKx6NCaotx86ZznPe8gohKSLBJ9V/OQa7lTzY3FII +vRIcj4eiK7CpXVE9h1kE4TrmjtIbZHBukoppYFkRbNuX+Utziwx6/pQ9pFVV +BGJh/ScttsvgUPJA5u+7RXC5LjI/wUEGF5j5Gtk3FEGFUVW/0GkZvLe+ij+7 +swiGrFl+w+0yuLb+TEjydBHs8x058zRIFg3PtgfXb+UB+9KWFX2RsmjX7rdO +xIhHxhtPCyfI4pIlrtP6pjwInFR6uSVPFhtlZ7wot+TBxZP7JCqfymJt26zd +bm48eHq+/spVGTkscir6MS+GBxuvp5aeuCeH3QuFnZwf80Cv9fnUjwY5zBY2 +lvryhAemArMM7F/J4Q7jEWe3Zzxw3unRDp/kUPVOSbVdCw/0gxihYbPl8W+k +swejlwdH5UZzN6+URx2bksFZUzx46HZloM5PHpvK6qd0VvPBcFJrUXCQPCpv +2BO9ay0fnie0aKwLk8e1S/UK92vwob1SJCzvtDx+sCgpj9Dhw495PosiL8uj +ns77v+e38UGqeJum/gN57HjmYC7qwIfDf36GNYgy8O2vfTb+sXzYeGz/0s+L +GJjFHbTeG8+HOX0dPEEpBlrDL7uNiXy42ln3dhOTgcb+R4K/X+JD192LKmUa +DNRYoLGYkcuHHZFabdn2DLy17UNfUwUf1iwKXxVUwsCesfBo5R4+CJwdeZhS +zsDum6qD5z6Q8Qu625RXM9DPsddt8BMfDo3sjPz5iIGpacNxeX18yGujOt06 +GOh0pPb2+2E+LL3SELVbkIlPUjjvUmfTML5SvEvVgonjG5J85Dk0jGZIh6+1 +YaL5J62Bfwo0/F7AprTsmRg7+LmgXYmGH8Na7noHmWgvr95/UpWG3mrnUZsQ +Ju6KrC7graOh0fi2WMxVJrLghfe2LTTU19wviStiYsqznZb9ujQ8XPV0d9IN +JjYaFJw8s5WGu4t70jIrmei+6G1tzTYabnbOVSh7xkT1sfuvx0xpSDu0D3pH +mLiZeeRVlQ0Nl94d6P0ywcQZlrLZTFsaLuzwjhyYZmLiwpV1UXY0nFsb0/RH +hIUX5yYJ6jnQEPG3xGqBLAs96w9EJrrScOjs7KM6+iz86vlBNMyThgNTCxZv +MWahy4fnlvRRGvZ7SpcbmLFQMMF68u0xGhx2rZrcacPCbwuL7eV8aNi9fE/M +QQ8WWtgFpJzyp0GHx89KTmah+fx5dtlhNHTK865sTWdh3jepo6fCaQhMLsz8 +fYWFkTm3HF0iaLgdnn95ZyEL25ULeqVP0bDGOitF7A4LUyYt3J2iaWh+lnmp +ppaFD07Eh6nE0HBUNyP58CMWpmtfCBgmvq6WdqHxOQvPblNc6n+GBqXZFxKi +elgotbVsjm0cDQ2BifHrP7PwZHaonug5Mp+hhHMf+1jIoHzcqonzOuNit/xm +oWXWElexBBrkb0bH/BOi8HFUl2l8Ig33FKKi6XkUSuZmv1ZIomFfxqkoW3EK +B7pF9WqI02PCT1Uto9CmQLmv6wINS+2DwvxUKFygE793KpmGspaAULY6hW8e +lpiEXCLrZeR/omU9+X9y+eoJ4sT1vsFrgMLBGfINfSk0qPO8g3p0KZxh/OXE +vlQaXsp7BSZso3D3BnPFF8Si8z39f5hTeEn3iMW1NBr44UeOZ1hS+KTcrEMs +nQajsUN+2/dSuNlfa7c3cUzvAZ8iFwoNXkcorb1Mw6xKp6P7j1MYIPLF/VwG +Dblqjp4SwRT+KP1Q8I54S569x8MwCgPf3+9WyqQhNN72MPMMhYz7qVhJLDt7 +76HmcxQmr3x5cJL4TuAe97AkCncGOcbrXKFhwtXyQNdlCp13Ln51izi1c7db +XDaFFfo+Q33EG8x37dfJp/DVeLGoXBYNrY/NXfuLKFRqdFc2I/bTMXNJu0Hh +8lhdgxPEEjdNnQ1LKbxx+p1LIXGpgonTnwoKd0R0nmwm3plh7HithoynqDtv +lPjnIiMHywdkf3gJDVLZNLQdZr50r6cwRmWD50bi2scTEPqUrGctM8mauED+ +9Y2kZgqZc1jrvYkTAnlyBW8pnL91vuUZYv+Wk/F3Oin8bXVzNIPYQc12+mU3 +hTr3v0leJ94Ws87z0ycKTbOiq6qIV/fOfz/eR+GmW47v64ildD6Zig1R6Gpp +Gv2EWCC55i5zhMLpk9StJuKvgxfVNCcovPm62rmR+IWhR6bxNIVmgd9THxGX +5+qLOcxio4FhvGUNceaU7AkfETbuuh6SVkIcZTU2ECPGRolb5/fnEHuUvLDL +WMzGG5NXq+OJLecVPCuRYqNl08W0AOJNrmHcxzJs7BvXmeVAzLlnTXcw2Vg4 +dXx8C7HoMnWZQQU2Zn5iBTGJf3uJxAmqstHZRvbMP7K+/z3tmZRcw8bcjK0K +rcT8sMT/UIeNe88nL/j/fl3ocN9usZmNM++F2m4nDl6ne+egPhtrSpdoSxIb +fx1OTzRjY7x3fXEOqYc1W57Ou2bBxlCvQkNnYunLeUHVNmx0y7t3XJ64b4fF +3o8ubHwbJHkpgdTbq0LVpj8H2Tg8k3lGl7hKUEhb1JONB0J/SQyT+j19u1xa +I4CNGf4hfw2Ijy6MP2N0go2VvrOtBkj9Wx9ym9h3ko2zDvwwjSdWlJPqiI5j +o5z/Kckn5LyIBwwZXk5k49Q1wT4H4j+vGiqLL7HRZijadoSct4aogNT2bPJd +wYi9hNjtR4f1ynI2jq4JsVci59d0260GqGaj/OpvxvnkfGvknN2wu5aNE3E1 +7+WIhSx1pEIa2bgjY+8MEZIP+TUZrc+7yPjlSvRvkTz5GOtg6SXMQbGvRfQB +kk8efSrM1fM5WKWv3HOH5NmYwfjAgDgHJYUvaooRzxVMjDwozUH2lLlZwVlS +fwF1pQ6qHJReGWlQRfIxxJWzeMcuDkoZjv6zIHkrVPera741B+MW2NYGkzxO +kL9X1GjLQc6MoyVZYf/PQ6st+vs5GJzRze4+QfqX+elj3AAOLj1Ge3CDSL5t ++v5i5RUOuvT6anp505CVXpH+LZeD77+8sDjsRfJ3/JTbtQIO/rKYLHYm/UKn +VGaaeZODPdZMhhHpL87KO9SkH3FQLUVcYNSdhuKlN2Pn9HPwXKOob6MjDYaD +xw0/aSigSfGFNYdNaFihLhs1R0cB9/9XZvLLmPRbr4cPVm5WQHrqtpGvEam3 +UXEdL2MF/BD85scxAxq6pgrVpu0VULuh8d/WzTR4zf9v8bLTCvjnWoWWDenH +aUrYtb1TAdOzmxdpS9Fw+NBn6aPdCrhXKC7dfikNQMdaJX1SwB3efOXwJWQ/ +Vre/bB9UQCGJOodqcRrUNnjV7Z+liOOdS03mi9BQp59XEKaqiJ9rXqkyxvnw +3XmOd2moIjIeN+6TayX3pUy9mnunFHHD9B+7ny18GGwPE246rYjbBW/l1r7i +w68d4+k9SYpY5e0obPWcD2PafQ/FChQxeFPHDudHfJi55OnSgy8VMSn7yZeJ +m3xY9jC+SoahhD9z9a3UyP1Kn5KcGf1ACXNO7Vr3ldzXvjkZFGjXK+E/uY9X +t67jQ2z2cdOhJiVMdVeYyFLnw2vZtrQ9b5QQBMpMzVX44LAsda3KVyXk2IbU +pTD4ECC23LVZVBltA59U1M3jA/+PbMPyPcoYumL8fkIXDxY945wrHlRGG5HL +mnCCBytibphpaKigQczeFpcLRZCyUkt8sZsq3uL0dPdnFkKj9Ob1w+fVUO9q +K0cotQA2rniQsOrtKlx1lqF45+A1EBPM8XGMWI1LuJGlfZgPsuFyOns46jit +rber/HceiLBty3fWq6NNcnIgtyAX1LjLbhy3W4Ot4x+l5h7NAa+uRXVGAmtx +/cLKxNuy2TA4HGthmLIW9/R/CWl7cQUMVj1OM1Rdh55x7TICQRlwd1j779jz +dag/+0u1sFA6eKis6Wh2XY9Z/f9mHHiZAtwfLi17RDRwULB/7ePIZNhKSZmI +5migi8lKf8eQC6AYdsb/gaYmLuzuEk9OSwRlV6177A5NNLAXaHh/PQFc7x44 +VXpsA7oIeNjunX0O7mW1uPyU0ELODQb7RcEZ+F0wPbbqthZS11Y2N12JBmc2 +TyTNZCNez3cO9RaKhJ/KSRo3hzbix6shA5PeEVCR97dnJEYb93TKpMvrh4GN +Hgu1ZXWwYywnieIHw/Ij0ZVqtToo+DC87NgHf5CYe7jExIqLjPxP749U+UKe +bkjg0B4u1kRpzpCifWFNyDndJFsu+j/ve9xwxRdMh4rftDlysXSiQ2NTpC9E +vR0Zdz7MxaqizMP+Zr7wJyd0S2A4FxXKVpgofvWBDu2k1/k8LnI+2j3ev8IH +DvjmXTa8zsXUKgv9ngU+MHq9zPV7MRfnfUxlOwn6wCJm25h6OReTOu3G/fq8 +wXiOzIqaWi6aeK2q/F7hDXda8l1ev+EiyzO3VMjKG4zEKlT92rgYv8Sd/dnI +G9oMnoxKdXLx3cnmV02bvOF3VX/Mvm4uTpx821HI8QbV7NX0tz4yP6OZzsWj +XnCnY7Nf7AAXy0qkgu/3eYHRkl2waoiLkpN+tW1dXrA/2rfZZ4SLxWn7Hiyr +94LftVFpkn+4OJ55Pki32gsiJi45V01wcdlXeyvvG14gvq5QxW6Ki17mmbsK +c70g80jVyPQ0F5srGB6fLnnB/wDw6Vjf + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VV8XB3ClSEUaRMpw7z33GkJpIHFbq4gQURkSmVMqypQxQxkqIkqG +yJRw7ykKGVJKRTQpZfolNJMoISLvfv84z3k+zzl/7GHt79oMJ8+drjMFBASm +yfP/92jXk4fU2bxNT+e6+ar81NzUkikVsLktAiZHyv6zHJUAlHjhJNWWCFlH +rc3Yo2zwMytqFWzLARUrpdtCo+th4Q/JxPHWm5B5r1K2e2QrvL9j6vm79QFY +zIzK8xyxAH2q793P1legWmVX92DYFcZbNS8OtfYCp//2X+kBX6jTvZbXnDMM +PZTFMqeqKFjxvvKzk8oUKAkn1ifdTYAlh+2LhHUFUbHXYf6ydxchUV2/2tRi +DgZvEF7hvjod2lNW1/4UF8V1aa0Zsp+vwNm80Bczly3E+VOTYn8tckDywofT +SRmLUeHLqiiPkDyI3m246dWoBIb1JS+PNssHb61s+ycRUkh5PzresLgA9AYn +Aj0+SOON/M3XUyIKIWDbBeX736VRbK96U1N0IVzPVu1YPCqNno107t/YQpDa +7aBVOWc5xt6XjDK/VAjfKx6NCaotx86ZznPe8gohKSLBJ9V/OQa7lTzY3FII +vRIcj4eiK7CpXVE9h1kE4TrmjtIbZHBukoppYFkRbNuX+Utziwx6/pQ9pFVV +BGJh/ScttsvgUPJA5u+7RXC5LjI/wUEGF5j5Gtk3FEGFUVW/0GkZvLe+ij+7 +swiGrFl+w+0yuLb+TEjydBHs8x058zRIFg3PtgfXb+UB+9KWFX2RsmjX7rdO +xIhHxhtPCyfI4pIlrtP6pjwInFR6uSVPFhtlZ7wot+TBxZP7JCqfymJt26zd +bm48eHq+/spVGTkscir6MS+GBxuvp5aeuCeH3QuFnZwf80Cv9fnUjwY5zBY2 +lvryhAemArMM7F/J4Q7jEWe3Zzxw3unRDp/kUPVOSbVdCw/0gxihYbPl8W+k +swejlwdH5UZzN6+URx2bksFZUzx46HZloM5PHpvK6qd0VvPBcFJrUXCQPCpv +2BO9ay0fnie0aKwLk8e1S/UK92vwob1SJCzvtDx+sCgpj9Dhw495PosiL8uj +ns77v+e38UGqeJum/gN57HjmYC7qwIfDf36GNYgy8O2vfTb+sXzYeGz/0s+L +GJjFHbTeG8+HOX0dPEEpBlrDL7uNiXy42ln3dhOTgcb+R4K/X+JD192LKmUa +DNRYoLGYkcuHHZFabdn2DLy17UNfUwUf1iwKXxVUwsCesfBo5R4+CJwdeZhS +zsDum6qD5z6Q8Qu625RXM9DPsddt8BMfDo3sjPz5iIGpacNxeX18yGujOt06 +GOh0pPb2+2E+LL3SELVbkIlPUjjvUmfTML5SvEvVgonjG5J85Dk0jGZIh6+1 +YaL5J62Bfwo0/F7AprTsmRg7+LmgXYmGH8Na7noHmWgvr95/UpWG3mrnUZsQ +Ju6KrC7graOh0fi2WMxVJrLghfe2LTTU19wviStiYsqznZb9ujQ8XPV0d9IN +JjYaFJw8s5WGu4t70jIrmei+6G1tzTYabnbOVSh7xkT1sfuvx0xpSDu0D3pH +mLiZeeRVlQ0Nl94d6P0ywcQZlrLZTFsaLuzwjhyYZmLiwpV1UXY0nFsb0/RH +hIUX5yYJ6jnQEPG3xGqBLAs96w9EJrrScOjs7KM6+iz86vlBNMyThgNTCxZv +MWahy4fnlvRRGvZ7SpcbmLFQMMF68u0xGhx2rZrcacPCbwuL7eV8aNi9fE/M +QQ8WWtgFpJzyp0GHx89KTmah+fx5dtlhNHTK865sTWdh3jepo6fCaQhMLsz8 +fYWFkTm3HF0iaLgdnn95ZyEL25ULeqVP0bDGOitF7A4LUyYt3J2iaWh+lnmp +ppaFD07Eh6nE0HBUNyP58CMWpmtfCBgmvq6WdqHxOQvPblNc6n+GBqXZFxKi +elgotbVsjm0cDQ2BifHrP7PwZHaonug5Mp+hhHMf+1jIoHzcqonzOuNit/xm +oWXWElexBBrkb0bH/BOi8HFUl2l8Ig33FKKi6XkUSuZmv1ZIomFfxqkoW3EK +B7pF9WqI02PCT1Uto9CmQLmv6wINS+2DwvxUKFygE793KpmGspaAULY6hW8e +lpiEXCLrZeR/omU9+X9y+eoJ4sT1vsFrgMLBGfINfSk0qPO8g3p0KZxh/OXE +vlQaXsp7BSZso3D3BnPFF8Si8z39f5hTeEn3iMW1NBr44UeOZ1hS+KTcrEMs +nQajsUN+2/dSuNlfa7c3cUzvAZ8iFwoNXkcorb1Mw6xKp6P7j1MYIPLF/VwG +Dblqjp4SwRT+KP1Q8I54S569x8MwCgPf3+9WyqQhNN72MPMMhYz7qVhJLDt7 +76HmcxQmr3x5cJL4TuAe97AkCncGOcbrXKFhwtXyQNdlCp13Ln51izi1c7db +XDaFFfo+Q33EG8x37dfJp/DVeLGoXBYNrY/NXfuLKFRqdFc2I/bTMXNJu0Hh +8lhdgxPEEjdNnQ1LKbxx+p1LIXGpgonTnwoKd0R0nmwm3plh7HithoynqDtv +lPjnIiMHywdkf3gJDVLZNLQdZr50r6cwRmWD50bi2scTEPqUrGctM8mauED+ +9Y2kZgqZc1jrvYkTAnlyBW8pnL91vuUZYv+Wk/F3Oin8bXVzNIPYQc12+mU3 +hTr3v0leJ94Ws87z0ycKTbOiq6qIV/fOfz/eR+GmW47v64ildD6Zig1R6Gpp +Gv2EWCC55i5zhMLpk9StJuKvgxfVNCcovPm62rmR+IWhR6bxNIVmgd9THxGX +5+qLOcxio4FhvGUNceaU7AkfETbuuh6SVkIcZTU2ECPGRolb5/fnEHuUvLDL +WMzGG5NXq+OJLecVPCuRYqNl08W0AOJNrmHcxzJs7BvXmeVAzLlnTXcw2Vg4 +dXx8C7HoMnWZQQU2Zn5iBTGJf3uJxAmqstHZRvbMP7K+/z3tmZRcw8bcjK0K +rcT8sMT/UIeNe88nL/j/fl3ocN9usZmNM++F2m4nDl6ne+egPhtrSpdoSxIb +fx1OTzRjY7x3fXEOqYc1W57Ou2bBxlCvQkNnYunLeUHVNmx0y7t3XJ64b4fF +3o8ubHwbJHkpgdTbq0LVpj8H2Tg8k3lGl7hKUEhb1JONB0J/SQyT+j19u1xa +I4CNGf4hfw2Ijy6MP2N0go2VvrOtBkj9Wx9ym9h3ko2zDvwwjSdWlJPqiI5j +o5z/Kckn5LyIBwwZXk5k49Q1wT4H4j+vGiqLL7HRZijadoSct4aogNT2bPJd +wYi9hNjtR4f1ynI2jq4JsVci59d0260GqGaj/OpvxvnkfGvknN2wu5aNE3E1 +7+WIhSx1pEIa2bgjY+8MEZIP+TUZrc+7yPjlSvRvkTz5GOtg6SXMQbGvRfQB +kk8efSrM1fM5WKWv3HOH5NmYwfjAgDgHJYUvaooRzxVMjDwozUH2lLlZwVlS +fwF1pQ6qHJReGWlQRfIxxJWzeMcuDkoZjv6zIHkrVPera741B+MW2NYGkzxO +kL9X1GjLQc6MoyVZYf/PQ6st+vs5GJzRze4+QfqX+elj3AAOLj1Ge3CDSL5t ++v5i5RUOuvT6anp505CVXpH+LZeD77+8sDjsRfJ3/JTbtQIO/rKYLHYm/UKn +VGaaeZODPdZMhhHpL87KO9SkH3FQLUVcYNSdhuKlN2Pn9HPwXKOob6MjDYaD +xw0/aSigSfGFNYdNaFihLhs1R0cB9/9XZvLLmPRbr4cPVm5WQHrqtpGvEam3 +UXEdL2MF/BD85scxAxq6pgrVpu0VULuh8d/WzTR4zf9v8bLTCvjnWoWWDenH +aUrYtb1TAdOzmxdpS9Fw+NBn6aPdCrhXKC7dfikNQMdaJX1SwB3efOXwJWQ/ +Vre/bB9UQCGJOodqcRrUNnjV7Z+liOOdS03mi9BQp59XEKaqiJ9rXqkyxvnw +3XmOd2moIjIeN+6TayX3pUy9mnunFHHD9B+7ny18GGwPE246rYjbBW/l1r7i +w68d4+k9SYpY5e0obPWcD2PafQ/FChQxeFPHDudHfJi55OnSgy8VMSn7yZeJ +m3xY9jC+SoahhD9z9a3UyP1Kn5KcGf1ACXNO7Vr3ldzXvjkZFGjXK+E/uY9X +t67jQ2z2cdOhJiVMdVeYyFLnw2vZtrQ9b5QQBMpMzVX44LAsda3KVyXk2IbU +pTD4ECC23LVZVBltA59U1M3jA/+PbMPyPcoYumL8fkIXDxY945wrHlRGG5HL +mnCCBytibphpaKigQczeFpcLRZCyUkt8sZsq3uL0dPdnFkKj9Ob1w+fVUO9q +K0cotQA2rniQsOrtKlx1lqF45+A1EBPM8XGMWI1LuJGlfZgPsuFyOns46jit +rber/HceiLBty3fWq6NNcnIgtyAX1LjLbhy3W4Ot4x+l5h7NAa+uRXVGAmtx +/cLKxNuy2TA4HGthmLIW9/R/CWl7cQUMVj1OM1Rdh55x7TICQRlwd1j779jz +dag/+0u1sFA6eKis6Wh2XY9Z/f9mHHiZAtwfLi17RDRwULB/7ePIZNhKSZmI +5migi8lKf8eQC6AYdsb/gaYmLuzuEk9OSwRlV6177A5NNLAXaHh/PQFc7x44 +VXpsA7oIeNjunX0O7mW1uPyU0ELODQb7RcEZ+F0wPbbqthZS11Y2N12JBmc2 +TyTNZCNez3cO9RaKhJ/KSRo3hzbix6shA5PeEVCR97dnJEYb93TKpMvrh4GN +Hgu1ZXWwYywnieIHw/Ij0ZVqtToo+DC87NgHf5CYe7jExIqLjPxP749U+UKe +bkjg0B4u1kRpzpCifWFNyDndJFsu+j/ve9xwxRdMh4rftDlysXSiQ2NTpC9E +vR0Zdz7MxaqizMP+Zr7wJyd0S2A4FxXKVpgofvWBDu2k1/k8LnI+2j3ev8IH +DvjmXTa8zsXUKgv9ngU+MHq9zPV7MRfnfUxlOwn6wCJm25h6OReTOu3G/fq8 +wXiOzIqaWi6aeK2q/F7hDXda8l1ev+EiyzO3VMjKG4zEKlT92rgYv8Sd/dnI +G9oMnoxKdXLx3cnmV02bvOF3VX/Mvm4uTpx821HI8QbV7NX0tz4yP6OZzsWj +XnCnY7Nf7AAXy0qkgu/3eYHRkl2waoiLkpN+tW1dXrA/2rfZZ4SLxWn7Hiyr +94LftVFpkn+4OJ55Pki32gsiJi45V01wcdlXeyvvG14gvq5QxW6Ki17mmbsK +c70g80jVyPQ0F5srGB6fLnnB/wDw6Vjf + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.057875028245923936`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.057875028245923936`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VV8XB3ClSEUaRMpw7z33GkJpIHFbq4gQURkSmVMqypQxQxkqIkqG +yJRw7ykKGVJKRTQpZfolNJMoISLvfv84z3k+zzl/7GHt79oMJ8+drjMFBASm +yfP/92jXk4fU2bxNT+e6+ar81NzUkikVsLktAiZHyv6zHJUAlHjhJNWWCFlH +rc3Yo2zwMytqFWzLARUrpdtCo+th4Q/JxPHWm5B5r1K2e2QrvL9j6vm79QFY +zIzK8xyxAH2q793P1legWmVX92DYFcZbNS8OtfYCp//2X+kBX6jTvZbXnDMM +PZTFMqeqKFjxvvKzk8oUKAkn1ifdTYAlh+2LhHUFUbHXYf6ydxchUV2/2tRi +DgZvEF7hvjod2lNW1/4UF8V1aa0Zsp+vwNm80Bczly3E+VOTYn8tckDywofT +SRmLUeHLqiiPkDyI3m246dWoBIb1JS+PNssHb61s+ycRUkh5PzresLgA9AYn +Aj0+SOON/M3XUyIKIWDbBeX736VRbK96U1N0IVzPVu1YPCqNno107t/YQpDa +7aBVOWc5xt6XjDK/VAjfKx6NCaotx86ZznPe8gohKSLBJ9V/OQa7lTzY3FII +vRIcj4eiK7CpXVE9h1kE4TrmjtIbZHBukoppYFkRbNuX+Utziwx6/pQ9pFVV +BGJh/ScttsvgUPJA5u+7RXC5LjI/wUEGF5j5Gtk3FEGFUVW/0GkZvLe+ij+7 +swiGrFl+w+0yuLb+TEjydBHs8x058zRIFg3PtgfXb+UB+9KWFX2RsmjX7rdO +xIhHxhtPCyfI4pIlrtP6pjwInFR6uSVPFhtlZ7wot+TBxZP7JCqfymJt26zd +bm48eHq+/spVGTkscir6MS+GBxuvp5aeuCeH3QuFnZwf80Cv9fnUjwY5zBY2 +lvryhAemArMM7F/J4Q7jEWe3Zzxw3unRDp/kUPVOSbVdCw/0gxihYbPl8W+k +swejlwdH5UZzN6+URx2bksFZUzx46HZloM5PHpvK6qd0VvPBcFJrUXCQPCpv +2BO9ay0fnie0aKwLk8e1S/UK92vwob1SJCzvtDx+sCgpj9Dhw495PosiL8uj +ns77v+e38UGqeJum/gN57HjmYC7qwIfDf36GNYgy8O2vfTb+sXzYeGz/0s+L +GJjFHbTeG8+HOX0dPEEpBlrDL7uNiXy42ln3dhOTgcb+R4K/X+JD192LKmUa +DNRYoLGYkcuHHZFabdn2DLy17UNfUwUf1iwKXxVUwsCesfBo5R4+CJwdeZhS +zsDum6qD5z6Q8Qu625RXM9DPsddt8BMfDo3sjPz5iIGpacNxeX18yGujOt06 +GOh0pPb2+2E+LL3SELVbkIlPUjjvUmfTML5SvEvVgonjG5J85Dk0jGZIh6+1 +YaL5J62Bfwo0/F7AprTsmRg7+LmgXYmGH8Na7noHmWgvr95/UpWG3mrnUZsQ +Ju6KrC7graOh0fi2WMxVJrLghfe2LTTU19wviStiYsqznZb9ujQ8XPV0d9IN +JjYaFJw8s5WGu4t70jIrmei+6G1tzTYabnbOVSh7xkT1sfuvx0xpSDu0D3pH +mLiZeeRVlQ0Nl94d6P0ywcQZlrLZTFsaLuzwjhyYZmLiwpV1UXY0nFsb0/RH +hIUX5yYJ6jnQEPG3xGqBLAs96w9EJrrScOjs7KM6+iz86vlBNMyThgNTCxZv +MWahy4fnlvRRGvZ7SpcbmLFQMMF68u0xGhx2rZrcacPCbwuL7eV8aNi9fE/M +QQ8WWtgFpJzyp0GHx89KTmah+fx5dtlhNHTK865sTWdh3jepo6fCaQhMLsz8 +fYWFkTm3HF0iaLgdnn95ZyEL25ULeqVP0bDGOitF7A4LUyYt3J2iaWh+lnmp +ppaFD07Eh6nE0HBUNyP58CMWpmtfCBgmvq6WdqHxOQvPblNc6n+GBqXZFxKi +elgotbVsjm0cDQ2BifHrP7PwZHaonug5Mp+hhHMf+1jIoHzcqonzOuNit/xm +oWXWElexBBrkb0bH/BOi8HFUl2l8Ig33FKKi6XkUSuZmv1ZIomFfxqkoW3EK +B7pF9WqI02PCT1Uto9CmQLmv6wINS+2DwvxUKFygE793KpmGspaAULY6hW8e +lpiEXCLrZeR/omU9+X9y+eoJ4sT1vsFrgMLBGfINfSk0qPO8g3p0KZxh/OXE +vlQaXsp7BSZso3D3BnPFF8Si8z39f5hTeEn3iMW1NBr44UeOZ1hS+KTcrEMs +nQajsUN+2/dSuNlfa7c3cUzvAZ8iFwoNXkcorb1Mw6xKp6P7j1MYIPLF/VwG +Dblqjp4SwRT+KP1Q8I54S569x8MwCgPf3+9WyqQhNN72MPMMhYz7qVhJLDt7 +76HmcxQmr3x5cJL4TuAe97AkCncGOcbrXKFhwtXyQNdlCp13Ln51izi1c7db +XDaFFfo+Q33EG8x37dfJp/DVeLGoXBYNrY/NXfuLKFRqdFc2I/bTMXNJu0Hh +8lhdgxPEEjdNnQ1LKbxx+p1LIXGpgonTnwoKd0R0nmwm3plh7HithoynqDtv +lPjnIiMHywdkf3gJDVLZNLQdZr50r6cwRmWD50bi2scTEPqUrGctM8mauED+ +9Y2kZgqZc1jrvYkTAnlyBW8pnL91vuUZYv+Wk/F3Oin8bXVzNIPYQc12+mU3 +hTr3v0leJ94Ws87z0ycKTbOiq6qIV/fOfz/eR+GmW47v64ildD6Zig1R6Gpp +Gv2EWCC55i5zhMLpk9StJuKvgxfVNCcovPm62rmR+IWhR6bxNIVmgd9THxGX +5+qLOcxio4FhvGUNceaU7AkfETbuuh6SVkIcZTU2ECPGRolb5/fnEHuUvLDL +WMzGG5NXq+OJLecVPCuRYqNl08W0AOJNrmHcxzJs7BvXmeVAzLlnTXcw2Vg4 +dXx8C7HoMnWZQQU2Zn5iBTGJf3uJxAmqstHZRvbMP7K+/z3tmZRcw8bcjK0K +rcT8sMT/UIeNe88nL/j/fl3ocN9usZmNM++F2m4nDl6ne+egPhtrSpdoSxIb +fx1OTzRjY7x3fXEOqYc1W57Ou2bBxlCvQkNnYunLeUHVNmx0y7t3XJ64b4fF +3o8ubHwbJHkpgdTbq0LVpj8H2Tg8k3lGl7hKUEhb1JONB0J/SQyT+j19u1xa +I4CNGf4hfw2Ijy6MP2N0go2VvrOtBkj9Wx9ym9h3ko2zDvwwjSdWlJPqiI5j +o5z/Kckn5LyIBwwZXk5k49Q1wT4H4j+vGiqLL7HRZijadoSct4aogNT2bPJd +wYi9hNjtR4f1ynI2jq4JsVci59d0260GqGaj/OpvxvnkfGvknN2wu5aNE3E1 +7+WIhSx1pEIa2bgjY+8MEZIP+TUZrc+7yPjlSvRvkTz5GOtg6SXMQbGvRfQB +kk8efSrM1fM5WKWv3HOH5NmYwfjAgDgHJYUvaooRzxVMjDwozUH2lLlZwVlS +fwF1pQ6qHJReGWlQRfIxxJWzeMcuDkoZjv6zIHkrVPera741B+MW2NYGkzxO +kL9X1GjLQc6MoyVZYf/PQ6st+vs5GJzRze4+QfqX+elj3AAOLj1Ge3CDSL5t ++v5i5RUOuvT6anp505CVXpH+LZeD77+8sDjsRfJ3/JTbtQIO/rKYLHYm/UKn +VGaaeZODPdZMhhHpL87KO9SkH3FQLUVcYNSdhuKlN2Pn9HPwXKOob6MjDYaD +xw0/aSigSfGFNYdNaFihLhs1R0cB9/9XZvLLmPRbr4cPVm5WQHrqtpGvEam3 +UXEdL2MF/BD85scxAxq6pgrVpu0VULuh8d/WzTR4zf9v8bLTCvjnWoWWDenH +aUrYtb1TAdOzmxdpS9Fw+NBn6aPdCrhXKC7dfikNQMdaJX1SwB3efOXwJWQ/ +Vre/bB9UQCGJOodqcRrUNnjV7Z+liOOdS03mi9BQp59XEKaqiJ9rXqkyxvnw +3XmOd2moIjIeN+6TayX3pUy9mnunFHHD9B+7ny18GGwPE246rYjbBW/l1r7i +w68d4+k9SYpY5e0obPWcD2PafQ/FChQxeFPHDudHfJi55OnSgy8VMSn7yZeJ +m3xY9jC+SoahhD9z9a3UyP1Kn5KcGf1ACXNO7Vr3ldzXvjkZFGjXK+E/uY9X +t67jQ2z2cdOhJiVMdVeYyFLnw2vZtrQ9b5QQBMpMzVX44LAsda3KVyXk2IbU +pTD4ECC23LVZVBltA59U1M3jA/+PbMPyPcoYumL8fkIXDxY945wrHlRGG5HL +mnCCBytibphpaKigQczeFpcLRZCyUkt8sZsq3uL0dPdnFkKj9Ob1w+fVUO9q +K0cotQA2rniQsOrtKlx1lqF45+A1EBPM8XGMWI1LuJGlfZgPsuFyOns46jit +rber/HceiLBty3fWq6NNcnIgtyAX1LjLbhy3W4Ot4x+l5h7NAa+uRXVGAmtx +/cLKxNuy2TA4HGthmLIW9/R/CWl7cQUMVj1OM1Rdh55x7TICQRlwd1j779jz +dag/+0u1sFA6eKis6Wh2XY9Z/f9mHHiZAtwfLi17RDRwULB/7ePIZNhKSZmI +5migi8lKf8eQC6AYdsb/gaYmLuzuEk9OSwRlV6177A5NNLAXaHh/PQFc7x44 +VXpsA7oIeNjunX0O7mW1uPyU0ELODQb7RcEZ+F0wPbbqthZS11Y2N12JBmc2 +TyTNZCNez3cO9RaKhJ/KSRo3hzbix6shA5PeEVCR97dnJEYb93TKpMvrh4GN +Hgu1ZXWwYywnieIHw/Ij0ZVqtToo+DC87NgHf5CYe7jExIqLjPxP749U+UKe +bkjg0B4u1kRpzpCifWFNyDndJFsu+j/ve9xwxRdMh4rftDlysXSiQ2NTpC9E +vR0Zdz7MxaqizMP+Zr7wJyd0S2A4FxXKVpgofvWBDu2k1/k8LnI+2j3ev8IH +DvjmXTa8zsXUKgv9ngU+MHq9zPV7MRfnfUxlOwn6wCJm25h6OReTOu3G/fq8 +wXiOzIqaWi6aeK2q/F7hDXda8l1ev+EiyzO3VMjKG4zEKlT92rgYv8Sd/dnI +G9oMnoxKdXLx3cnmV02bvOF3VX/Mvm4uTpx821HI8QbV7NX0tz4yP6OZzsWj +XnCnY7Nf7AAXy0qkgu/3eYHRkl2waoiLkpN+tW1dXrA/2rfZZ4SLxWn7Hiyr +94LftVFpkn+4OJ55Pki32gsiJi45V01wcdlXeyvvG14gvq5QxW6Ki17mmbsK +c70g80jVyPQ0F5srGB6fLnnB/wDw6Vjf + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.057875028245923936`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.057875028245923936`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994254040964943*^9}, + CellLabel-> + "Out[152]=",ExpressionUUID->"91ac7c41-8d53-459d-b857-8f11049e7099"] +}, Open ]], Cell[CellGroupData[{ @@ -13325,26 +15224,30 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], - ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -13366,66 +15269,70 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[142]:=",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], + "In[153]:=",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 142, 93, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279097599506`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.5788295987568666`*^-175\\\", \ +RowBox[{\\\"182746270923358292188640\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"91\\\", \\\"\[RightSkeleton]\\\"}], \\\"4000000000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 153, 73, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279097599506`*^9, 3.9942540410267553`*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], +In[153]:=",ExpressionUUID->"573498e1-24c1-468c-9922-38c3bd95efb1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 142, 94, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327909769953*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.310082197760551`*^-178\\\", \ +RowBox[{\\\"532888126012512780022077\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"94\\\", \\\"\[RightSkeleton]\\\"}], \\\"4000000000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 153, 74, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279097599506`*^9, 3.994254041037746*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], +In[153]:=",ExpressionUUID->"5ad43704-6093-46a2-9d02-cc7dc42ff798"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 142, 95, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279097784023`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.655404318751695`*^-182\\\", \ +RowBox[{\\\"161198658118785115956678\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"98\\\", \\\"\[RightSkeleton]\\\"}], \\\"0000000000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 153, 75, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279097599506`*^9, 3.99425404104907*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], +In[153]:=",ExpressionUUID->"8959679d-ea62-4b62-9b32-4ce536c68562"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 142, 96, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327909786396*^9}, +during this calculation.\"", 2, 153, 76, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279097599506`*^9, 3.99425404105993*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], +In[153]:=",ExpressionUUID->"4ebfb762-8ab2-4226-b3b7-96ac6ba64b97"], -Cell[BoxData["11.275343508420296`"], "Output", - CellChangeTimes->{3.9913279159698696`*^9}, +Cell[BoxData["13.48922792050532`"], "Output", + CellChangeTimes->{3.9913279159698696`*^9, 3.994254118511228*^9}, CellLabel-> - "Out[142]=",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] + "Out[153]=",ExpressionUUID->"7be6d832-529c-4ef1-bd3e-a9e8103af873"] }, Open ]], Cell[CellGroupData[{ @@ -13492,68 +15399,74 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.99179998339209*^9, - 3.991799988637089*^9}},ExpressionUUID->"a5e0631c-6c6c-a045-8418-\ -22c641e38d86"], + CellChangeTimes->{{3.99179998339209*^9, 3.991799988637089*^9}}, + CellLabel-> + "In[154]:=",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 143, 97, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327916008396*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.277628151902863`*^-217\\\", \ +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 154, 77, + 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327916008396*^9, 3.9942541185643063`*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], +In[154]:=",ExpressionUUID->"9f443c55-952a-4d18-a6e2-904aa1960ba5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 143, 98, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327916018362*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.346678283269262`*^-223\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 154, 78, + 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327916008396*^9, 3.994254118575008*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], +In[154]:=",ExpressionUUID->"0d7f8883-eec8-46d8-ad45-0e94687872ee"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 143, - 99, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279160263577`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.768520695429108`*^-228\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 154, 79, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327916008396*^9, 3.9942541185843363`*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], +In[154]:=",ExpressionUUID->"58a2474c-1b7d-4a47-8ec0-44deea68597c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 143, 100, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327916034359*^9}, +during this calculation.\"", 2, 154, 80, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327916008396*^9, 3.9942541185931883`*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], +In[154]:=",ExpressionUUID->"725d4ee5-855c-4e23-81c7-1b071b1b3ebb"], -Cell[BoxData["1.0734937398087425`"], "Output", - CellChangeTimes->{3.991327922931429*^9}, +Cell[BoxData["0.46776018239621664`"], "Output", + CellChangeTimes->{3.991327922931429*^9, 3.9942541288765163`*^9}, CellLabel-> - "Out[143]=",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] + "Out[154]=",ExpressionUUID->"3376af37-3e07-4c10-87b0-036fec8b8db1"] }, Open ]], Cell[CellGroupData[{ @@ -13574,8 +15487,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -13620,68 +15532,74 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991799991275097*^9, - 3.9917999948700333`*^9}},ExpressionUUID->"4b6c44e4-d946-0c4d-9992-\ -4f0fc7048689"], + CellChangeTimes->{{3.991799991275097*^9, 3.9917999948700333`*^9}}, + CellLabel-> + "In[155]:=",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 144, 101, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279229664307`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.277628151902863`*^-217\\\", \ +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 155, 81, + 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279229664307`*^9, 3.99425412892865*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], +In[155]:=",ExpressionUUID->"34610efa-c2ff-4c3c-a4c7-c6b50543cf95"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 144, 102, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327922975607*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.346678283269262`*^-223\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 155, 82, + 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279229664307`*^9, 3.9942541289375896`*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], +In[155]:=",ExpressionUUID->"190a46b7-d0f7-4a61-a75f-b973eff80530"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 144, - 103, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279229836063`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.768520695429108`*^-228\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 155, 83, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279229664307`*^9, 3.994254128947929*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], +In[155]:=",ExpressionUUID->"78bacaf0-9a67-4d20-8a07-6336e0f16a77"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 144, 104, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279229916077`*^9}, +during this calculation.\"", 2, 155, 84, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279229664307`*^9, 3.99425412895879*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], +In[155]:=",ExpressionUUID->"2c42fa20-35ee-4685-aa30-486c56ad77c4"], -Cell[BoxData["9.48093127226425`"], "Output", - CellChangeTimes->{3.9913279288200035`*^9}, +Cell[BoxData["47.13966635339338`"], "Output", + CellChangeTimes->{3.9913279288200035`*^9, 3.994254138655994*^9}, CellLabel-> - "Out[144]=",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] + "Out[155]=",ExpressionUUID->"b6b51cb2-1df9-4d6c-8024-72a78d9b23eb"] }, Open ]], Cell[CellGroupData[{ @@ -13702,8 +15620,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -13748,68 +15665,74 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918000011431293`*^9, - 3.9918000068677616`*^9}},ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-\ -32244819d42b"], + CellChangeTimes->{{3.9918000011431293`*^9, 3.9918000068677616`*^9}}, + CellLabel-> + "In[156]:=",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 145, 105, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327928854006*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.277628151902863`*^-217\\\", \ +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 156, 85, + 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327928854006*^9, 3.99425413870728*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], +In[156]:=",ExpressionUUID->"149fe2fa-6536-4a0d-9814-04fa1b18909c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 145, 106, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327928864023*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.346678283269262`*^-223\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 156, 86, + 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327928854006*^9, 3.994254138715761*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], +In[156]:=",ExpressionUUID->"d3b7b084-ba04-47bd-9bbc-b5827e102a6c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 145, - 107, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327928871004*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.768520695429108`*^-228\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 156, 87, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327928854006*^9, 3.994254138725265*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], +In[156]:=",ExpressionUUID->"cbf4d2ea-16e5-4f53-88c1-f4d275671609"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 145, 108, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327928878006*^9}, +during this calculation.\"", 2, 156, 88, 31387618065139166000, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327928854006*^9, 3.9942541387349586`*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], +In[156]:=",ExpressionUUID->"d13f3555-b743-4948-8404-594e17612254"], -Cell[BoxData["17.503865312709518`"], "Output", - CellChangeTimes->{3.9913279320131683`*^9}, +Cell[BoxData["9.088883006622709`"], "Output", + CellChangeTimes->{3.9913279320131683`*^9, 3.9942541470978127`*^9}, CellLabel-> - "Out[145]=",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] + "Out[156]=",ExpressionUUID->"06aa5896-9968-4f1b-b79e-5567fc8ae8fd"] }, Open ]], Cell[CellGroupData[{ @@ -13818,26 +15741,211 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991800029528055*^9, - 3.991800041720209*^9}},ExpressionUUID->"99da2760-e71e-1246-8cc9-\ -f0a7464dc747"], - -Cell[BoxData["0.08333108480569339`"], "Output", - CellChangeTimes->{3.9913279320452003`*^9}, + CellChangeTimes->{{3.991800029528055*^9, 3.991800041720209*^9}}, CellLabel-> - "Out[146]=",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] + "In[157]:=",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], + +Cell[BoxData["0.022598246491861106`"], "Output", + CellChangeTimes->{3.9913279320452003`*^9, 3.994254147146538*^9}, + CellLabel-> + "Out[157]=",ExpressionUUID->"88f796eb-4109-440b-8099-efc795e4a6bf"] }, Open ]], Cell[BoxData[ RowBox[{"NotebookSave", "[", "]"}]], "Input", - CellChangeTimes->{{3.9940825678269567`*^9, - 3.994082575874216*^9}},ExpressionUUID->"42fa5279-2002-432a-99bf-\ -46e883fae322"] + CellChangeTimes->{{3.9940825678269567`*^9, 3.994082575874216*^9}}, + CellLabel-> + "In[158]:=",ExpressionUUID->"42fa5279-2002-432a-99bf-46e883fae322"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"CellPrint", "[", + RowBox[{"ExpressionCell", "[", + RowBox[{ + RowBox[{"Panel", "[", + RowBox[{ + RowBox[{"Row", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"Style", "[", + + RowBox[{"\"\<\:0423\:043f\:0440\:0430\:0432\:043b\:0435\:043d\:0438\ +\:0435 \:043a\:044d\:0448\:0435\:043c \:0433\:0440\:0430\:0444\:0438\:043a\ +\:0430: \>\"", ",", "Bold"}], "]"}], ",", + RowBox[{"Button", "[", + + RowBox[{"\"\<\:0421\:0434\:0435\:043b\:0430\:0442\:044c \:0442\ +\:0430\:0431\:043b\:0438\:0446\:0443 (\:041b\:0438\:043d\:0438\:044f 1)\>\"", + ",", + RowBox[{"Module", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"cell", ",", "pts"}], "}"}], ",", + RowBox[{ + RowBox[{"cell", "=", + RowBox[{"NotebookRead", "[", + RowBox[{"EvaluationNotebook", "[", "]"}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"pts", "=", + RowBox[{"Cases", "[", + RowBox[{"cell", ",", + RowBox[{ + RowBox[{"Line", "[", "p_", "]"}], ":>", "p"}], ",", + "Infinity"}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"If", "[", + RowBox[{ + RowBox[{ + RowBox[{"Length", "[", "pts", "]"}], ">", "0"}], ",", + RowBox[{ + RowBox[{"plotX", "=", + RowBox[{"pts", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"fInterp", "=", + RowBox[{"Interpolation", "[", "plotX", "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"dataX", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"x", ",", + RowBox[{"fInterp", "[", "x", "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30", ",", "1"}], "}"}]}], + "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"SelectionMove", "[", + RowBox[{ + RowBox[{"EvaluationNotebook", "[", "]"}], ",", "After", ",", + "Cell"}], "]"}], ";", "\[IndentingNewLine]", + RowBox[{"CellPrint", "[", + RowBox[{"Cell", "[", + RowBox[{ + RowBox[{"BoxData", "[", + RowBox[{"ToBoxes", "[", + RowBox[{"TableForm", "[", "dataX", "]"}], "]"}], "]"}], + ",", "\"\\""}], "]"}], "]"}]}], ",", + RowBox[{"MessageDialog", "[", + + RowBox[{"\"\<\:041e\:0448\:0438\:0431\:043a\:0430: \:0421\ +\:043d\:0430\:0447\:0430\:043b\:0430 \:0432\:044b\:0434\:0435\:043b\:0438\ +\:0442\:0435 \:043d\:0443\:0436\:043d\:044b\:0439 \:0433\:0440\:0430\:0444\ +\:0438\:043a (\:043a\:043b\:0438\:043a\:043d\:0438\:0442\:0435 \:043f\:043e \ +\:0435\:0433\:043e \:044f\:0447\:0435\:0439\:043a\:0435 \:0441\:043f\:0440\ +\:0430\:0432\:0430)!\>\"", ",", + RowBox[{"WindowFloating", "->", "True"}]}], "]"}]}], + "]"}]}]}], "]"}], ",", + RowBox[{"Background", "->", + RowBox[{"RGBColor", "[", + RowBox[{"0.9", ",", "0.95", ",", "1"}], "]"}]}], ",", + RowBox[{"ImageSize", "->", + RowBox[{"{", + RowBox[{"180", ",", "25"}], "}"}]}]}], "]"}]}], "}"}], "]"}], ",", + RowBox[{"Background", "->", + RowBox[{"GrayLevel", "[", "0.95", "]"}]}], ",", + RowBox[{"FrameMargins", "->", "10"}]}], "]"}], ",", "\"\\""}], + "]"}], "]"}], "\n"}]], "Input", + CellChangeTimes->{{3.9943043996512623`*^9, 3.994304399651291*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"f29f1a69-86ef-4b80-a47d-8f0d911f35df"], + +Cell[BoxData[ + PanelBox[ + TemplateBox[{ + StyleBox[ + "\"\:0423\:043f\:0440\:0430\:0432\:043b\:0435\:043d\:0438\:0435 \:043a\ +\:044d\:0448\:0435\:043c \:0433\:0440\:0430\:0444\:0438\:043a\:0430: \"", + Bold, StripOnInput -> False], + ButtonBox[ + "\"\:0421\:0434\:0435\:043b\:0430\:0442\:044c \:0442\:0430\:0431\:043b\ +\:0438\:0446\:0443 (\:041b\:0438\:043d\:0438\:044f 1)\"", ButtonFunction :> + Module[{$CellContext`cell, $CellContext`pts}, $CellContext`cell = + NotebookRead[ + EvaluationNotebook[]]; $CellContext`pts = + Cases[$CellContext`cell, Line[ + Pattern[$CellContext`p, + Blank[]]] :> $CellContext`p, Infinity]; + If[Length[$CellContext`pts] > + 0, $CellContext`plotX = + Part[$CellContext`pts, 1]; $CellContext`fInterp = + Interpolation[$CellContext`plotX]; $CellContext`dataX = + Table[{$CellContext`x, + $CellContext`fInterp[$CellContext`x]}, {$CellContext`x, 0, 30, + 1}]; SelectionMove[ + EvaluationNotebook[], After, Cell]; CellPrint[ + Cell[ + BoxData[ + ToBoxes[ + TableForm[$CellContext`dataX]]], "Output"]], + MessageDialog[ + "\:041e\:0448\:0438\:0431\:043a\:0430: \ +\:0421\:043d\:0430\:0447\:0430\:043b\:0430 \:0432\:044b\:0434\:0435\:043b\ +\:0438\:0442\:0435 \:043d\:0443\:0436\:043d\:044b\:0439 \:0433\:0440\:0430\ +\:0444\:0438\:043a (\:043a\:043b\:0438\:043a\:043d\:0438\:0442\:0435 \:043f\ +\:043e \:0435\:0433\:043e \:044f\:0447\:0435\:0439\:043a\:0435 \:0441\:043f\ +\:0440\:0430\:0432\:0430)!", WindowFloating -> True]]], Background -> + RGBColor[0.9, 0.95, 1], ImageSize -> {180, 25}, Appearance -> Automatic, + Evaluator -> Automatic, Method -> "Preemptive"]}, + "RowDefault"], + Background->GrayLevel[0.95], + FrameMargins->10]], "Output", + CellChangeTimes->{ + 3.994306597865827*^9},ExpressionUUID->"64e644b8-af9a-4771-9ee8-\ +fe8ab1a55fe6"], + +Cell[BoxData[ + TagBox[GridBox[{ + {"0", "0.`"}, + {"1", "0.007949641186594875`"}, + {"2", "0.015710009097940673`"}, + {"3", "0.02309950761121679`"}, + {"4", "0.029950796181589634`"}, + {"5", "0.0361177661616938`"}, + {"6", "0.04147987394879064`"}, + {"7", "0.0459466858003774`"}, + {"8", "0.04945940452553569`"}, + {"9", "0.05199217405598415`"}, + {"10", "0.05355077430152477`"}, + {"11", "0.05417044966964856`"}, + {"12", "0.053912406344696`"}, + {"13", "0.05285940283432995`"}, + {"14", "0.051110730585914727`"}, + {"15", "0.048776893731153854`"}, + {"16", "0.04597434136884766`"}, + {"17", "0.042820414471040916`"}, + {"18", "0.03942889470603504`"}, + {"19", "0.03590617000181761`"}, + {"20", "0.03234844063862198`"}, + {"21", "0.02883924802425565`"}, + {"22", "0.025448474866577846`"}, + {"23", "0.022231872017945593`"}, + {"24", "0.019230989768190626`"}, + {"25", "0.016474272535025883`"}, + {"26", "0.013978149383450728`"}, + {"27", "0.011748514053665102`"}, + {"28", "0.009782605474339295`"}, + {"29", "0.008070581741297411`"}, + {"30", "0.006597399041889021`"} + }, + GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[2.0999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + Function[BoxForm`e$, + TableForm[BoxForm`e$]]]], "Output", + CellChangeTimes->{ + 3.9943066159342422`*^9},ExpressionUUID->"6501891d-86e9-4d35-871e-\ +9b4ce4fc408a"] +}, Open ]] }, -WindowSize->{714, 435}, -WindowMargins->{{Automatic, 3}, {3, Automatic}}, +WindowSize->{1440, 882}, +WindowMargins->{{0, Automatic}, {0, 18}}, CellContext->Notebook, -Magnification:>1.5 Inherited, +Magnification:>0.8 Inherited, FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"8af74bcb-cc50-f64a-8d83-c4bf7188d038" @@ -13854,663 +15962,682 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 305, 6, 99, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], -Cell[884, 30, 278, 5, 62, "Output",ExpressionUUID->"94e24c15-15ed-42ef-b22d-c99c75b428ac"] +Cell[576, 22, 300, 5, 29, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], +Cell[879, 29, 299, 5, 33, "Output",ExpressionUUID->"e9c5a080-9ac4-4697-817b-253b23018ad7"] }, Open ]], Cell[CellGroupData[{ -Cell[1199, 40, 253, 5, 55, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], -Cell[1455, 47, 275, 5, 62, "Output",ExpressionUUID->"34c6b4fd-e68f-4625-8550-5e36e44c38a4"] +Cell[1215, 39, 248, 4, 29, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], +Cell[1466, 45, 296, 5, 33, "Output",ExpressionUUID->"397c87df-eebb-4e93-a43a-6c3282e34d8b"] }, Open ]], Cell[CellGroupData[{ -Cell[1767, 57, 231, 5, 55, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], -Cell[2001, 64, 278, 5, 62, "Output",ExpressionUUID->"dbd2df9c-4020-409c-9867-a0c2d20e2b21"] +Cell[1799, 55, 226, 4, 29, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], +Cell[2028, 61, 301, 5, 33, "Output",ExpressionUUID->"82143f2a-9697-4a23-a3a0-d92d66b1236f"] }, Open ]], Cell[CellGroupData[{ -Cell[2316, 74, 180, 4, 55, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], -Cell[2499, 80, 276, 5, 62, "Output",ExpressionUUID->"a5fcbf1b-c156-4184-973f-48b00dea4a67"] +Cell[2366, 71, 175, 3, 29, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], +Cell[2544, 76, 297, 5, 33, "Output",ExpressionUUID->"3b7af1cd-5349-4f47-9747-944f7d781850"] }, Open ]], Cell[CellGroupData[{ -Cell[2812, 90, 262, 8, 81, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], -Cell[3077, 100, 279, 5, 62, "Output",ExpressionUUID->"47a65611-78e7-4cc4-a917-8162adf1436d"] +Cell[2878, 86, 257, 7, 42, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], +Cell[3138, 95, 300, 5, 33, "Output",ExpressionUUID->"b158c576-0acb-4d12-a05f-b94c9f357e89"] }, Open ]], Cell[CellGroupData[{ -Cell[3393, 110, 136, 3, 55, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], -Cell[3532, 115, 280, 5, 62, "Output",ExpressionUUID->"97e4329c-dab4-4920-b7ab-321b28675020"] +Cell[3475, 105, 131, 2, 29, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], +Cell[3609, 109, 301, 5, 33, "Output",ExpressionUUID->"0553dcbf-e72e-4ad8-9cf4-5f04833d6bd3"] }, Open ]], Cell[CellGroupData[{ -Cell[3849, 125, 281, 7, 55, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], -Cell[4133, 134, 292, 5, 62, "Output",ExpressionUUID->"1d5eebbe-896a-446a-a0c9-37de0853e4ed"] +Cell[3947, 119, 276, 6, 29, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], +Cell[4226, 127, 313, 5, 33, "Output",ExpressionUUID->"b6a76a61-2f1a-4815-8039-d6b1d7279a6e"] }, Open ]], Cell[CellGroupData[{ -Cell[4462, 144, 262, 8, 55, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], -Cell[4727, 154, 280, 5, 62, "Output",ExpressionUUID->"f305b328-93c2-45a6-a12c-167219928195"] +Cell[4576, 137, 257, 7, 29, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], +Cell[4836, 146, 303, 5, 33, "Output",ExpressionUUID->"7d85cde5-4c7b-4082-91c5-62f6d7883edd"] }, Open ]], Cell[CellGroupData[{ -Cell[5044, 164, 331, 7, 55, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], -Cell[5378, 173, 260, 5, 62, "Output",ExpressionUUID->"1c91a03e-2c2f-4b0b-9a06-57ddd1d05e12"] +Cell[5176, 156, 326, 6, 29, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], +Cell[5505, 164, 276, 4, 33, "Output",ExpressionUUID->"c46ea19b-e28b-4b74-8fcd-434603d6b461"] }, Open ]], Cell[CellGroupData[{ -Cell[5675, 183, 229, 5, 55, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], -Cell[5907, 190, 260, 5, 62, "Output",ExpressionUUID->"fda100fe-3b6e-4eeb-bdae-9dc1a4c08b06"] +Cell[5818, 173, 225, 4, 29, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], +Cell[6046, 179, 277, 4, 33, "Output",ExpressionUUID->"a66f543f-ea84-4668-a783-cde4d8a0a1a3"] }, Open ]], Cell[CellGroupData[{ -Cell[6204, 200, 133, 3, 55, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], -Cell[6340, 205, 276, 5, 62, "Output",ExpressionUUID->"bfcc5510-7d9d-42e9-8316-4bfaeeff738c"] +Cell[6360, 188, 129, 2, 29, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], +Cell[6492, 192, 298, 5, 33, "Output",ExpressionUUID->"beb7c69a-7688-4334-9117-9495b4210290"] }, Open ]], Cell[CellGroupData[{ -Cell[6653, 215, 133, 3, 55, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], -Cell[6789, 220, 278, 5, 62, "Output",ExpressionUUID->"ebcd8444-a303-40cb-a71c-f7dde51f0acd"] +Cell[6827, 202, 129, 2, 29, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], +Cell[6959, 206, 300, 5, 33, "Output",ExpressionUUID->"eee35442-9579-48a0-abf6-71dbc8de24ea"] }, Open ]], Cell[CellGroupData[{ -Cell[7104, 230, 561, 20, 148, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], -Cell[7668, 252, 296, 5, 62, "Output",ExpressionUUID->"85d7efb5-42c6-431e-9f16-87b72ee509e7"] +Cell[7296, 216, 557, 19, 79, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], +Cell[7856, 237, 320, 5, 33, "Output",ExpressionUUID->"53a8e5a7-1d10-4948-beb9-18e93c5a8232"] }, Open ]], Cell[CellGroupData[{ -Cell[8001, 262, 561, 20, 148, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], -Cell[8565, 284, 292, 5, 62, "Output",ExpressionUUID->"bbef0b26-b735-457f-bb33-de7dba0c6d22"] +Cell[8213, 247, 557, 19, 78, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], +Cell[8773, 268, 314, 5, 33, "Output",ExpressionUUID->"7ead129e-3eaa-4028-be44-193c7e06d71b"] }, Open ]], Cell[CellGroupData[{ -Cell[8894, 294, 1592, 51, 639, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], -Cell[10489, 347, 292, 5, 62, "Output",ExpressionUUID->"de87a81e-2607-4f13-bb01-2c0aba90ce45"] +Cell[9124, 278, 1588, 50, 112, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], +Cell[10715, 330, 313, 5, 33, "Output",ExpressionUUID->"748931c5-41ac-450d-8360-8c98bdc3f178"] }, Open ]], Cell[CellGroupData[{ -Cell[10818, 357, 1426, 47, 561, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], -Cell[12247, 406, 308, 6, 62, "Output",ExpressionUUID->"51aefba2-747a-43b0-af58-703f550cbf74"] +Cell[11065, 340, 1422, 46, 112, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], +Cell[12490, 388, 330, 6, 33, "Output",ExpressionUUID->"9bd4cefc-659f-49b0-8917-e64ff30f23cf"] }, Open ]], Cell[CellGroupData[{ -Cell[12592, 417, 1426, 47, 561, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], -Cell[14021, 466, 312, 6, 62, "Output",ExpressionUUID->"80411b10-a524-4256-ae6d-7eb634128cf9"] +Cell[12857, 399, 1422, 46, 112, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], +Cell[14282, 447, 334, 6, 33, "Output",ExpressionUUID->"0dadd5fe-45e5-4a5a-a8a5-79396f434551"] }, Open ]], Cell[CellGroupData[{ -Cell[14370, 477, 1592, 51, 639, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], -Cell[15965, 530, 288, 5, 62, "Output",ExpressionUUID->"d4dc706f-4aaf-4ee8-8bbe-12917be0a0b0"] +Cell[14653, 458, 1588, 50, 112, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], +Cell[16244, 510, 310, 5, 33, "Output",ExpressionUUID->"5fe328d4-6cb2-41ab-85ee-5cec12935119"] }, Open ]], Cell[CellGroupData[{ -Cell[16290, 540, 135, 3, 55, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], -Cell[16428, 545, 277, 5, 62, "Output",ExpressionUUID->"c9056f02-2308-447f-98bc-d5a9ab415f34"] +Cell[16591, 520, 131, 2, 29, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], +Cell[16725, 524, 298, 5, 33, "Output",ExpressionUUID->"776d1d8b-4466-4753-9d6a-dca0a5567da7"] }, Open ]], Cell[CellGroupData[{ -Cell[16742, 555, 137, 3, 55, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], -Cell[16882, 560, 282, 5, 62, "Output",ExpressionUUID->"a0ecae6a-e825-42e9-8b47-20cd9c952951"] +Cell[17060, 534, 133, 2, 29, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], +Cell[17196, 538, 306, 5, 33, "Output",ExpressionUUID->"85733896-6b42-4e08-bca1-5b14ca1e1d63"] }, Open ]], Cell[CellGroupData[{ -Cell[17201, 570, 254, 5, 55, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], -Cell[17458, 577, 280, 5, 62, "Output",ExpressionUUID->"6275e6d7-5668-4e2b-8d65-06dfa4463bf8"] +Cell[17539, 548, 250, 4, 29, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], +Cell[17792, 554, 302, 5, 33, "Output",ExpressionUUID->"49f054b6-7a6a-400e-b761-6e05c4d3aa12"] }, Open ]], Cell[CellGroupData[{ -Cell[17775, 587, 223, 5, 55, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], -Cell[18001, 594, 293, 6, 62, "Output",ExpressionUUID->"fd202316-b50e-45f0-a696-992c23b345c9"] +Cell[18131, 564, 219, 4, 29, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], +Cell[18353, 570, 317, 6, 33, "Output",ExpressionUUID->"16c6c675-e4db-4fba-bac8-ae8c5e3b5ee1"] }, Open ]], Cell[CellGroupData[{ -Cell[18331, 605, 138, 3, 55, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], -Cell[18472, 610, 280, 5, 62, "Output",ExpressionUUID->"621b7577-60b5-42e9-9252-17b6fd41cda2"] +Cell[18707, 581, 134, 2, 29, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], +Cell[18844, 585, 304, 5, 33, "Output",ExpressionUUID->"6cdce950-5468-469c-836d-d0e39cdee157"] }, Open ]], Cell[CellGroupData[{ -Cell[18789, 620, 353, 6, 55, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], -Cell[19145, 628, 253, 5, 62, "Output",ExpressionUUID->"6fcfbaf4-17d2-4f89-90bf-ce095803ba59"] +Cell[19185, 595, 349, 5, 29, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], +Cell[19537, 602, 271, 4, 33, "Output",ExpressionUUID->"5a0f2e62-6d7b-456a-bb0c-4ad25d006629"] }, Open ]], Cell[CellGroupData[{ -Cell[19435, 638, 254, 6, 55, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], -Cell[19692, 646, 275, 5, 62, "Output",ExpressionUUID->"bcd6ff18-77da-47f9-a949-6c529fbb0b7f"] +Cell[19845, 611, 250, 5, 29, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], +Cell[20098, 618, 297, 5, 33, "Output",ExpressionUUID->"af77b81b-ecae-46bb-879d-b004c260758d"] }, Open ]], Cell[CellGroupData[{ -Cell[20004, 656, 223, 5, 55, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], -Cell[20230, 663, 275, 5, 62, "Output",ExpressionUUID->"306d9daa-aba8-4c99-9fcb-3c785ffd21a2"] +Cell[20432, 628, 219, 4, 29, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], +Cell[20654, 634, 297, 5, 33, "Output",ExpressionUUID->"2da0af26-706f-49df-8c41-3d10eb73c76a"] }, Open ]], Cell[CellGroupData[{ -Cell[20542, 673, 354, 11, 81, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], -Cell[20899, 686, 295, 5, 62, "Output",ExpressionUUID->"824e14a7-cf15-440e-a928-531c177ca4e3"] +Cell[20988, 644, 350, 10, 43, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], +Cell[21341, 656, 319, 5, 33, "Output",ExpressionUUID->"ccf3159e-f96d-4122-b395-ef015946202a"] }, Open ]], Cell[CellGroupData[{ -Cell[21231, 696, 354, 11, 81, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], -Cell[21588, 709, 310, 6, 62, "Output",ExpressionUUID->"2f69038c-0c9f-4208-9d2e-7081c8d216e5"] +Cell[21697, 666, 350, 10, 43, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], +Cell[22050, 678, 332, 6, 33, "Output",ExpressionUUID->"6796db9b-114b-4971-b8f0-fd1e2715bc48"] }, Open ]], Cell[CellGroupData[{ -Cell[21935, 720, 998, 27, 488, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], -Cell[22936, 749, 294, 5, 62, "Output",ExpressionUUID->"05103a52-ae49-4d47-9e41-3dea2643cdf0"] +Cell[22419, 689, 994, 26, 82, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], +Cell[23416, 717, 316, 5, 33, "Output",ExpressionUUID->"352f4874-c794-4afd-8bfc-bff05210b716"] }, Open ]], Cell[CellGroupData[{ -Cell[23267, 759, 203, 4, 55, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], -Cell[23473, 765, 276, 5, 62, "Output",ExpressionUUID->"9717cddc-adb7-4646-a989-2f54b642e808"] +Cell[23769, 727, 199, 3, 29, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], +Cell[23971, 732, 300, 5, 33, "Output",ExpressionUUID->"ed7a5e22-dac5-40d8-b7e9-9e523861f63d"] }, Open ]], Cell[CellGroupData[{ -Cell[23786, 775, 332, 6, 55, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], -Cell[24121, 783, 262, 5, 62, "Output",ExpressionUUID->"a976d659-e2bd-4e09-8b89-1ee26dda7f42"] +Cell[24308, 742, 328, 5, 29, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], +Cell[24639, 749, 280, 4, 33, "Output",ExpressionUUID->"068dc6b7-3502-4730-87e4-341364d119ab"] }, Open ]], -Cell[24398, 791, 177, 3, 55, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], +Cell[24934, 756, 173, 2, 29, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], Cell[CellGroupData[{ -Cell[24600, 798, 332, 6, 55, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], -Cell[24935, 806, 255, 5, 62, "Output",ExpressionUUID->"75da548b-3511-400e-9d96-35c7d4342106"] +Cell[25132, 762, 328, 5, 29, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], +Cell[25463, 769, 273, 4, 33, "Output",ExpressionUUID->"9ce70e4a-7fbe-4adb-ae38-fb1ed983e693"] }, Open ]], -Cell[25205, 814, 177, 3, 55, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], +Cell[25751, 776, 173, 2, 29, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], Cell[CellGroupData[{ -Cell[25407, 821, 332, 6, 55, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], -Cell[25742, 829, 253, 5, 62, "Output",ExpressionUUID->"686bd0f6-bdc3-4da0-8cca-3b5f77a88873"] +Cell[25949, 782, 328, 5, 29, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], +Cell[26280, 789, 271, 4, 33, "Output",ExpressionUUID->"c9f2c44d-6d12-4c43-b3be-0abb40c6886e"] }, Open ]], -Cell[26010, 837, 177, 3, 55, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], +Cell[26566, 796, 173, 2, 29, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], Cell[CellGroupData[{ -Cell[26212, 844, 356, 6, 55, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], -Cell[26571, 852, 251, 5, 62, "Output",ExpressionUUID->"c11ba0c3-7772-46e5-ad50-906fbaafbe7b"] +Cell[26764, 802, 352, 5, 29, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], +Cell[27119, 809, 269, 4, 33, "Output",ExpressionUUID->"d050c4c0-14fc-4fe8-ab41-e45dde900681"] }, Open ]], -Cell[26837, 860, 175, 3, 55, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], +Cell[27403, 816, 171, 2, 29, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], Cell[CellGroupData[{ -Cell[27037, 867, 304, 6, 55, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], -Cell[27344, 875, 258, 5, 62, "Output",ExpressionUUID->"c647f70a-b688-4a8d-a4dd-df2724b43ebe"] +Cell[27599, 822, 300, 5, 29, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], +Cell[27902, 829, 276, 4, 33, "Output",ExpressionUUID->"be66a499-9bb9-4308-9e94-eff8a3177204"] }, Open ]], -Cell[27617, 883, 175, 3, 55, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], +Cell[28193, 836, 171, 2, 29, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], Cell[CellGroupData[{ -Cell[27817, 890, 310, 6, 55, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], -Cell[28130, 898, 258, 5, 62, "Output",ExpressionUUID->"9e5467f4-e36f-4faf-a4b4-b30d06dfea33"] +Cell[28389, 842, 306, 5, 29, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], +Cell[28698, 849, 276, 4, 33, "Output",ExpressionUUID->"14dacf9c-2020-4796-81f8-bc1ac3b08374"] }, Open ]], -Cell[28403, 906, 177, 3, 55, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], +Cell[28989, 856, 173, 2, 29, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], Cell[CellGroupData[{ -Cell[28605, 913, 310, 6, 55, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], -Cell[28918, 921, 259, 5, 62, "Output",ExpressionUUID->"83451b91-1add-4e1e-8225-c36d23119085"] +Cell[29187, 862, 306, 5, 29, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], +Cell[29496, 869, 277, 4, 33, "Output",ExpressionUUID->"f5deefc2-f9e7-485c-a438-6b49c7bcad08"] }, Open ]], -Cell[29192, 929, 176, 3, 55, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], +Cell[29788, 876, 172, 2, 29, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], Cell[CellGroupData[{ -Cell[29393, 936, 282, 5, 55, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], -Cell[29678, 943, 256, 5, 62, "Output",ExpressionUUID->"f16c35f8-b1da-4a2a-81db-e8cd6ce2e9c3"] +Cell[29985, 882, 278, 4, 29, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], +Cell[30266, 888, 274, 4, 33, "Output",ExpressionUUID->"e0be9090-de64-4d24-b4f6-4e9f0f6843c3"] }, Open ]], -Cell[29949, 951, 179, 3, 55, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], +Cell[30555, 895, 175, 2, 29, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ -Cell[30153, 958, 19813, 486, 7166, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], -Cell[49969, 1446, 295, 5, 62, "Output",ExpressionUUID->"24bf1676-9ab3-470d-bab8-a4072821b221"] +Cell[30755, 901, 19809, 485, 1714, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], +Cell[50567, 1388, 317, 5, 33, "Output",ExpressionUUID->"aa661d9e-a512-41f3-ad47-89b0d9994b07"] }, Open ]], Cell[CellGroupData[{ -Cell[50301, 1456, 19752, 490, 7205, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], -Cell[70056, 1948, 294, 5, 62, "Output",ExpressionUUID->"a5a56533-b42d-4c08-b398-413febf46f24"] +Cell[50921, 1398, 19748, 489, 1714, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], +Cell[70672, 1889, 316, 5, 33, "Output",ExpressionUUID->"e5f78021-a4df-436d-95d1-e8b5b206b480"] }, Open ]], Cell[CellGroupData[{ -Cell[70387, 1958, 19752, 484, 7204, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], -Cell[90142, 2444, 305, 6, 62, "Output",ExpressionUUID->"7090bf69-d4a2-443b-a14c-e0170b6e974f"] +Cell[71025, 1899, 19748, 483, 1713, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], +Cell[90776, 2384, 329, 6, 33, "Output",ExpressionUUID->"1c89ed84-0986-4bcc-a12a-c3e7173aed7b"] }, Open ]], Cell[CellGroupData[{ -Cell[90484, 2455, 22538, 554, 8281, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], -Cell[113025, 3011, 311, 6, 62, "Output",ExpressionUUID->"82f7adc0-ad6a-4da5-b6b8-71696671b25f"] +Cell[91142, 2395, 22534, 553, 1941, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], +Cell[113679, 2950, 335, 6, 33, "Output",ExpressionUUID->"a88b89db-b70f-404a-a984-8f7ec24cebb0"] }, Open ]], Cell[CellGroupData[{ -Cell[113373, 3022, 22539, 554, 8281, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], -Cell[135915, 3578, 310, 6, 62, "Output",ExpressionUUID->"8d9ff143-d15f-4a08-94a6-4836b6b37e8b"] +Cell[114051, 2961, 22535, 553, 1941, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], +Cell[136589, 3516, 334, 6, 33, "Output",ExpressionUUID->"8569a22c-f0c4-4df1-af15-17fcbc1c0e24"] }, Open ]], Cell[CellGroupData[{ -Cell[136262, 3589, 25495, 627, 9401, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], -Cell[161760, 4218, 315, 6, 62, "Output",ExpressionUUID->"73edef2c-fe9c-4740-9272-e05a31f0b0c1"] +Cell[136960, 3527, 25491, 626, 2168, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], +Cell[162454, 4155, 337, 6, 33, "Output",ExpressionUUID->"cf80172e-ebfc-4077-8a84-33097fe4a062"] }, Open ]], Cell[CellGroupData[{ -Cell[162112, 4229, 134, 3, 55, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], -Cell[162249, 4234, 273, 5, 62, "Output",ExpressionUUID->"0e7d21aa-f6ea-42a1-8713-c09a58494dce"] +Cell[162828, 4166, 130, 2, 29, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], +Cell[162961, 4170, 295, 5, 33, "Output",ExpressionUUID->"b175dcf0-323e-4b3f-9d78-5495f1717460"] }, Open ]], Cell[CellGroupData[{ -Cell[162559, 4244, 134, 3, 55, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], -Cell[162696, 4249, 275, 5, 62, "Output",ExpressionUUID->"8d5e02aa-6813-4889-a666-1b20d97caa96"] +Cell[163293, 4180, 130, 2, 29, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], +Cell[163426, 4184, 297, 5, 33, "Output",ExpressionUUID->"8d7cc528-7b72-424a-9ded-230b8b6f8408"] }, Open ]], Cell[CellGroupData[{ -Cell[163008, 4259, 1148, 40, 628, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], -Cell[164159, 4301, 295, 5, 62, "Output",ExpressionUUID->"304f2f9b-7ec3-4527-b6c1-bb96feb7af31"] +Cell[163760, 4194, 1144, 39, 112, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], +Cell[164907, 4235, 317, 5, 33, "Output",ExpressionUUID->"edaf601b-a33d-448f-b962-e0066b5d9059"] }, Open ]], Cell[CellGroupData[{ -Cell[164491, 4311, 1045, 36, 625, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], -Cell[165539, 4349, 308, 6, 62, "Output",ExpressionUUID->"b5727e7d-f109-48b8-9e98-5cb10510018b"] +Cell[165261, 4245, 1041, 35, 112, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], +Cell[166305, 4282, 330, 6, 33, "Output",ExpressionUUID->"cb039a10-5a80-4d53-9448-4ec95a3cc715"] }, Open ]], Cell[CellGroupData[{ -Cell[165884, 4360, 1148, 40, 628, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], -Cell[167035, 4402, 290, 5, 62, "Output",ExpressionUUID->"c5ef29a0-f5f2-4b07-97a1-4d0ad850603c"] +Cell[166672, 4293, 1144, 39, 112, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], +Cell[167819, 4334, 314, 5, 33, "Output",ExpressionUUID->"c4a69b1f-aa79-4ddf-8df3-3a89aa9fa63c"] }, Open ]], Cell[CellGroupData[{ -Cell[167362, 4412, 112, 2, 55, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], -Cell[167477, 4416, 298, 5, 62, "Output",ExpressionUUID->"b2a4a37d-3b40-4b2a-80e4-a18c24971af6"] +Cell[168170, 4344, 108, 1, 29, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], +Cell[168281, 4347, 320, 5, 33, "Output",ExpressionUUID->"80a514ae-7e40-4b29-8538-318112798c8c"] }, Open ]], Cell[CellGroupData[{ -Cell[167812, 4426, 112, 2, 55, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], -Cell[167927, 4430, 312, 6, 62, "Output",ExpressionUUID->"1fdd8886-dd02-4a9c-bedb-4c9f675feaf9"] +Cell[168638, 4357, 108, 1, 29, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], +Cell[168749, 4360, 334, 6, 33, "Output",ExpressionUUID->"40f49008-5b1e-4266-803b-79e7df3565df"] }, Open ]], Cell[CellGroupData[{ -Cell[168276, 4441, 112, 2, 55, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], -Cell[168391, 4445, 316, 6, 62, "Output",ExpressionUUID->"4ac25051-2951-4324-b55c-ca42548f6236"] +Cell[169120, 4371, 108, 1, 29, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], +Cell[169231, 4374, 338, 6, 33, "Output",ExpressionUUID->"101dc0cf-3d2b-4a6b-aa6d-bbf7af55b81a"] }, Open ]], Cell[CellGroupData[{ -Cell[168744, 4456, 112, 2, 55, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], -Cell[168859, 4460, 289, 5, 62, "Output",ExpressionUUID->"ac238231-35aa-4022-a65d-a6c0331a1fc9"] +Cell[169606, 4385, 108, 1, 29, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], +Cell[169717, 4388, 313, 5, 33, "Output",ExpressionUUID->"a6509134-2782-4e65-8706-0e4e2817bc54"] }, Open ]], Cell[CellGroupData[{ -Cell[169185, 4470, 111, 2, 55, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], -Cell[169299, 4474, 298, 5, 62, "Output",ExpressionUUID->"87fc3d15-0ac2-40f8-95c1-138b2b1ff3ee"] +Cell[170067, 4398, 107, 1, 29, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], +Cell[170177, 4401, 322, 5, 33, "Output",ExpressionUUID->"5b83d82c-a34d-4957-ba07-67962862fb95"] }, Open ]], Cell[CellGroupData[{ -Cell[169634, 4484, 111, 2, 55, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], -Cell[169748, 4488, 297, 5, 62, "Output",ExpressionUUID->"d53c3899-6850-4495-b82b-ee9c3391dede"] +Cell[170536, 4411, 107, 1, 29, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], +Cell[170646, 4414, 321, 5, 33, "Output",ExpressionUUID->"6112c26b-aa46-4d0f-ad6b-216afeb0d3b4"] }, Open ]], Cell[CellGroupData[{ -Cell[170082, 4498, 501, 17, 182, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], -Cell[170586, 4517, 311, 6, 62, "Output",ExpressionUUID->"6d9e1fa3-36a8-4642-a7eb-a0ba0a958bd2"] +Cell[171004, 4424, 497, 16, 56, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], +Cell[171504, 4442, 335, 6, 33, "Output",ExpressionUUID->"bd394ce7-3fcc-45ac-922d-17edec164b9e"] }, Open ]], Cell[CellGroupData[{ -Cell[170934, 4528, 501, 17, 182, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], -Cell[171438, 4547, 308, 6, 62, "Output",ExpressionUUID->"63d99693-0899-482b-9902-afbfffff917e"] +Cell[171876, 4453, 497, 16, 56, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], +Cell[172376, 4471, 332, 6, 33, "Output",ExpressionUUID->"f7811b74-9077-4c54-a55e-d1d9224155b3"] }, Open ]], Cell[CellGroupData[{ -Cell[171783, 4558, 1792, 61, 1100, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], -Cell[173578, 4621, 291, 5, 62, "Output",ExpressionUUID->"067911fb-c5c8-429b-990d-d374b4471d63"] +Cell[172745, 4482, 1788, 60, 191, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], +Cell[174536, 4544, 313, 5, 33, "Output",ExpressionUUID->"910d8f99-9cfe-4984-9208-8331b6db502a"] }, Open ]], Cell[CellGroupData[{ -Cell[173906, 4631, 1105, 37, 667, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], -Cell[175014, 4670, 311, 6, 62, "Output",ExpressionUUID->"f68847f9-3ffc-44f5-a197-5818cc33be7f"] +Cell[174886, 4554, 1101, 36, 136, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], +Cell[175990, 4592, 335, 6, 33, "Output",ExpressionUUID->"72736822-2558-445f-9868-603921abd03d"] }, Open ]], Cell[CellGroupData[{ -Cell[175362, 4681, 1822, 62, 1100, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], -Cell[177187, 4745, 290, 5, 62, "Output",ExpressionUUID->"c766c24b-4933-40c3-a8ce-1636774176f5"] +Cell[176362, 4603, 1818, 61, 167, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], +Cell[178183, 4666, 312, 5, 33, "Output",ExpressionUUID->"bfd3dcb8-8ab8-4185-9d41-59b40a20be40"] }, Open ]], Cell[CellGroupData[{ -Cell[177514, 4755, 1714, 56, 758, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], -Cell[179231, 4813, 294, 5, 62, "Output",ExpressionUUID->"553e3a4b-9a4c-405c-ae56-9dc4bff35cef"] +Cell[178532, 4676, 1710, 55, 139, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], +Cell[180245, 4733, 316, 5, 33, "Output",ExpressionUUID->"825ce429-b5fb-442c-a5be-b7040d7c6ff2"] }, Open ]], Cell[CellGroupData[{ -Cell[179562, 4823, 1635, 54, 451, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], -Cell[181200, 4879, 292, 5, 62, "Output",ExpressionUUID->"88b47c8f-864f-4741-9959-7c305d37c86d"] +Cell[180598, 4743, 1631, 53, 165, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], +Cell[182232, 4798, 314, 5, 33, "Output",ExpressionUUID->"22d64310-4eb3-419e-9818-a66d795d98f8"] }, Open ]], Cell[CellGroupData[{ -Cell[181529, 4889, 232, 5, 55, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], -Cell[181764, 4896, 261, 5, 62, "Output",ExpressionUUID->"00665af3-dfec-4528-89b6-1cab5261eaf4"] +Cell[182583, 4808, 228, 4, 29, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], +Cell[182814, 4814, 279, 4, 33, "Output",ExpressionUUID->"faeac522-8a69-4fd3-8c35-8baf2b0453bf"] }, Open ]], -Cell[182040, 4904, 176, 3, 55, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], +Cell[183108, 4821, 172, 2, 29, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], Cell[CellGroupData[{ -Cell[182241, 4911, 230, 5, 55, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], -Cell[182474, 4918, 255, 5, 62, "Output",ExpressionUUID->"c00eaf6f-991f-4cde-a778-0d6c84dab36c"] +Cell[183305, 4827, 226, 4, 29, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], +Cell[183534, 4833, 273, 4, 33, "Output",ExpressionUUID->"706a6116-b890-4f38-a0bc-dc99a348d576"] }, Open ]], -Cell[182744, 4926, 177, 3, 55, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], +Cell[183822, 4840, 173, 2, 29, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ -Cell[182946, 4933, 1301, 43, 303, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], -Cell[184250, 4978, 298, 5, 62, "Output",ExpressionUUID->"f580e415-60af-472d-b790-4a936ed06c02"] +Cell[184020, 4846, 1297, 42, 115, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], +Cell[185320, 4890, 322, 5, 33, "Output",ExpressionUUID->"2b4d195e-c2eb-4a68-8333-05d45d428ebe"] }, Open ]], Cell[CellGroupData[{ -Cell[184585, 4988, 931, 31, 259, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], -Cell[185519, 5021, 295, 5, 62, "Output",ExpressionUUID->"c10d5977-58d7-4636-98a7-548bcfc37c49"] +Cell[185679, 4900, 927, 30, 57, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], +Cell[186609, 4932, 317, 5, 33, "Output",ExpressionUUID->"f693a461-ac6a-492e-8467-9f91b86d5dfa"] }, Open ]], Cell[CellGroupData[{ -Cell[185851, 5031, 907, 30, 259, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], -Cell[186761, 5063, 295, 5, 62, "Output",ExpressionUUID->"d6c32bf0-96e6-41b8-a259-dcc51580790f"] +Cell[186963, 4942, 903, 29, 57, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], +Cell[187869, 4973, 319, 5, 33, "Output",ExpressionUUID->"ea80a2db-ea15-4447-93a6-f205c5f43c93"] }, Open ]], Cell[CellGroupData[{ -Cell[187093, 5073, 558, 19, 100, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], -Cell[187654, 5094, 687, 11, 62, "Output",ExpressionUUID->"a400bdd4-2d95-4ce2-936d-be09e9b51750"] +Cell[188225, 4983, 554, 18, 53, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], +Cell[188782, 5003, 705, 10, 33, "Output",ExpressionUUID->"c95e3c2c-a48d-4406-8ae3-27be6dd6b516"] }, Open ]], Cell[CellGroupData[{ -Cell[188378, 5110, 665, 22, 100, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], -Cell[189046, 5134, 669, 10, 62, "Output",ExpressionUUID->"2556238f-af75-4c59-b141-865bdd45989f"] +Cell[189524, 5018, 661, 21, 53, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], +Cell[190188, 5041, 691, 10, 33, "Output",ExpressionUUID->"e2f08169-1e9e-41b7-8def-b858e47c9909"] }, Open ]], Cell[CellGroupData[{ -Cell[189752, 5149, 170, 5, 105, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], -Cell[189925, 5156, 704, 11, 62, "Output",ExpressionUUID->"ea6f35b3-caa2-4aec-a25b-e24c2955bc68"] +Cell[190916, 5056, 166, 4, 56, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], +Cell[191085, 5062, 724, 10, 33, "Output",ExpressionUUID->"1b02cea2-6de6-4731-a3bf-40828d41c346"] }, Open ]], Cell[CellGroupData[{ -Cell[190666, 5172, 236, 6, 104, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], -Cell[190905, 5180, 639, 10, 62, "Output",ExpressionUUID->"abd832ea-a292-472e-ac47-9cf0981a9ac9"] +Cell[191846, 5077, 232, 5, 55, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], +Cell[192081, 5084, 659, 9, 33, "Output",ExpressionUUID->"8f68c609-33e1-41b6-b66e-bf75f4efc861"] }, Open ]], Cell[CellGroupData[{ -Cell[191581, 5195, 223, 6, 81, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], -Cell[191807, 5203, 666, 10, 62, "Output",ExpressionUUID->"ea483a60-65d0-43c8-8ea6-96bfb64a017b"] +Cell[192777, 5098, 219, 5, 43, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], +Cell[192999, 5105, 688, 10, 33, "Output",ExpressionUUID->"bba843d1-bdb8-42e2-9dee-db93d744360f"] }, Open ]], Cell[CellGroupData[{ -Cell[192510, 5218, 181, 5, 81, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], -Cell[192694, 5225, 691, 11, 62, "Output",ExpressionUUID->"4335a909-431f-402c-a120-dad1aa09732f"] +Cell[193724, 5120, 177, 4, 43, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], +Cell[193904, 5126, 709, 10, 33, "Output",ExpressionUUID->"544cc465-845d-464f-8caa-254e7cc7252e"] }, Open ]], Cell[CellGroupData[{ -Cell[193422, 5241, 6055, 185, 2152, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], -Cell[199480, 5428, 668, 10, 62, "Output",ExpressionUUID->"d52042fc-0950-497b-ae60-d435c567627c"] +Cell[194650, 5141, 6051, 184, 498, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], +Cell[200704, 5327, 690, 10, 33, "Output",ExpressionUUID->"302dbbd4-d620-41f9-adf9-35d1c8b93dbf"] }, Open ]], Cell[CellGroupData[{ -Cell[200185, 5443, 368, 9, 79, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], -Cell[200556, 5454, 645, 10, 62, "Output",ExpressionUUID->"0d6cb19c-5add-488d-87c0-b20069a053ad"] +Cell[201431, 5342, 364, 8, 42, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], +Cell[201798, 5352, 665, 9, 33, "Output",ExpressionUUID->"da6f9bbd-2eba-4157-8fc4-0578c4955232"] }, Open ]], -Cell[201216, 5467, 492, 10, 55, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], +Cell[202478, 5364, 488, 9, 29, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ -Cell[201733, 5481, 558, 19, 100, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], -Cell[202294, 5502, 293, 5, 62, "Output",ExpressionUUID->"ecf38020-cc98-4d62-b4e3-b552d463b9a4"] +Cell[202991, 5377, 554, 18, 53, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], +Cell[203548, 5397, 315, 5, 33, "Output",ExpressionUUID->"a44d1dcd-c1c2-4d08-bbf8-a34ec0b09102"] }, Open ]], Cell[CellGroupData[{ -Cell[202624, 5512, 623, 21, 100, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], -Cell[203250, 5535, 297, 5, 62, "Output",ExpressionUUID->"55be8ae8-711a-4ac5-bd55-c96a0a3f4555"] +Cell[203900, 5407, 619, 20, 53, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], +Cell[204522, 5429, 319, 5, 33, "Output",ExpressionUUID->"f17b7cdd-4001-47a2-9d4b-db35253602e0"] }, Open ]], Cell[CellGroupData[{ -Cell[203584, 5545, 170, 5, 105, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], -Cell[203757, 5552, 294, 5, 62, "Output",ExpressionUUID->"d8bf3b4a-7085-4dad-9429-212f4e3d19eb"] +Cell[204878, 5439, 166, 4, 56, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], +Cell[205047, 5445, 316, 5, 33, "Output",ExpressionUUID->"1e2e76ac-074d-4b71-8119-18d6f1198906"] }, Open ]], Cell[CellGroupData[{ -Cell[204088, 5562, 170, 5, 104, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], -Cell[204261, 5569, 288, 5, 62, "Output",ExpressionUUID->"9ea0bdee-7c25-47eb-869c-f00e0e73433d"] +Cell[205400, 5455, 166, 4, 55, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], +Cell[205569, 5461, 310, 5, 33, "Output",ExpressionUUID->"3bbfceef-a793-42ae-87a7-273463cfac52"] }, Open ]], Cell[CellGroupData[{ -Cell[204586, 5579, 181, 5, 81, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], -Cell[204770, 5586, 290, 5, 62, "Output",ExpressionUUID->"96610dbf-1da6-41ac-85e6-156c8fdf25b6"] +Cell[205916, 5471, 177, 4, 43, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], +Cell[206096, 5477, 312, 5, 33, "Output",ExpressionUUID->"5fdfcc09-f1d3-48f9-9892-405603d9dfea"] }, Open ]], Cell[CellGroupData[{ -Cell[205097, 5596, 181, 5, 81, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], -Cell[205281, 5603, 292, 5, 62, "Output",ExpressionUUID->"15100d85-5d60-4144-ad85-85b3979c5b2e"] +Cell[206445, 5487, 177, 4, 43, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], +Cell[206625, 5493, 314, 5, 33, "Output",ExpressionUUID->"f4cad7c8-d6c5-40da-9552-aef72a361617"] }, Open ]], Cell[CellGroupData[{ -Cell[205610, 5613, 6055, 185, 2152, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], -Cell[211668, 5800, 300, 5, 62, "Output",ExpressionUUID->"49b29492-7d3a-4ee9-b57e-981729a14841"] +Cell[206976, 5503, 6051, 184, 498, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], +Cell[213030, 5689, 322, 5, 33, "Output",ExpressionUUID->"915140b7-5f25-432f-b1a0-6b468b27c59f"] }, Open ]], Cell[CellGroupData[{ -Cell[212005, 5810, 410, 10, 109, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], -Cell[212418, 5822, 336, 6, 92, "Output",ExpressionUUID->"eebb9cb7-a7e8-451d-a69e-baaf17807774"] +Cell[213389, 5699, 406, 9, 58, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], +Cell[213798, 5710, 360, 6, 49, "Output",ExpressionUUID->"6fd8add0-a7fb-4a0f-8beb-40e4ffff8409"] }, Open ]], Cell[CellGroupData[{ -Cell[212791, 5833, 6122, 187, 2152, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], -Cell[218916, 6022, 271, 5, 62, "Output",ExpressionUUID->"1150aff2-30e0-42c8-84eb-e46163442387"] +Cell[214195, 5721, 6118, 186, 520, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], +Cell[220316, 5909, 289, 4, 33, "Output",ExpressionUUID->"e4549287-5efb-4bfe-b69a-19c7502d1868"] }, Open ]], Cell[CellGroupData[{ -Cell[219224, 6032, 368, 9, 79, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], -Cell[219595, 6043, 269, 5, 62, "Output",ExpressionUUID->"601daafb-f26d-4041-b887-09519c5ff073"] +Cell[220642, 5918, 364, 8, 42, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], +Cell[221009, 5928, 287, 4, 33, "Output",ExpressionUUID->"8bebc229-9871-4397-97a0-015274925350"] }, Open ]], Cell[CellGroupData[{ -Cell[219901, 6053, 2663, 88, 1067, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], -Cell[222567, 6143, 273, 5, 62, "Output",ExpressionUUID->"f18041aa-3a06-4275-a993-939d5a48acba"] +Cell[221333, 5937, 2659, 87, 168, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], +Cell[223995, 6026, 293, 4, 33, "Output",ExpressionUUID->"d53e64d9-d879-4d74-aa9b-779253874b20"] }, Open ]], Cell[CellGroupData[{ -Cell[222877, 6153, 2603, 85, 967, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], -Cell[225483, 6240, 274, 5, 62, "Output",ExpressionUUID->"ef046352-13d3-419f-9315-58a7b35b7dd1"] +Cell[224325, 6035, 2599, 84, 168, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], +Cell[226927, 6121, 292, 4, 33, "Output",ExpressionUUID->"1bcc34ed-3c8c-45b7-8ef2-2faa801944e6"] }, Open ]], Cell[CellGroupData[{ -Cell[225794, 6250, 3712, 118, 1454, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], -Cell[229509, 6370, 269, 5, 62, "Output",ExpressionUUID->"d5ff4e51-14ce-4047-8956-6b44085f5d0c"] +Cell[227256, 6130, 3708, 117, 247, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], +Cell[230967, 6249, 287, 4, 33, "Output",ExpressionUUID->"68408cb6-ea31-414e-8a3c-e4b40d08e0ed"] }, Open ]], -Cell[229793, 6378, 164, 4, 55, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], +Cell[231269, 6256, 164, 4, 29, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ -Cell[229982, 6386, 2075, 59, 731, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], -Cell[232060, 6447, 669, 15, 245, "Message",ExpressionUUID->"d6fe44ce-5865-4595-b6ea-c142ebfb7e48"], -Cell[232732, 6464, 674, 15, 245, "Message",ExpressionUUID->"a0197c52-54ff-4f3a-a6b3-3e288a921767"], -Cell[233409, 6481, 675, 15, 245, "Message",ExpressionUUID->"dbd00160-448e-47eb-9b54-1b8eee66fc7c"], -Cell[234087, 6498, 574, 13, 81, "Message",ExpressionUUID->"c102fc32-8b95-4a7b-991a-eba57181e676"], -Cell[234664, 6513, 259, 5, 62, "Output",ExpressionUUID->"095921fb-61e0-412b-b521-1ced07f6e7e8"] +Cell[231458, 6264, 2211, 62, 151, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], +Cell[233672, 6328, 731, 15, 58, "Message",ExpressionUUID->"f727d6aa-6c68-432c-8406-8612a6439c52"], +Cell[234406, 6345, 732, 15, 58, "Message",ExpressionUUID->"e3f92db4-4621-45e6-9295-a71b45a70961"], +Cell[235141, 6362, 730, 15, 58, "Message",ExpressionUUID->"e8542472-898c-48a0-8e13-4172762310cb"], +Cell[235874, 6379, 593, 13, 22, "Message",ExpressionUUID->"88ffcf99-48d3-4071-9ef1-a86e27373c99"], +Cell[236470, 6394, 294, 5, 33, "Output",ExpressionUUID->"284ee002-7c3b-4c6e-a119-010cd07383f0"] }, Open ]], Cell[CellGroupData[{ -Cell[234960, 6523, 2077, 59, 731, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], -Cell[237040, 6584, 614, 14, 213, "Message",ExpressionUUID->"2ff78fd1-c222-4492-8d59-d3870d854f46"], -Cell[237657, 6600, 617, 14, 245, "Message",ExpressionUUID->"1742ccdd-53de-4eff-b4f4-4544a686b1f6"], -Cell[238277, 6616, 621, 14, 245, "Message",ExpressionUUID->"e3a375bd-c08e-495a-b8c8-26fd37a27358"], -Cell[238901, 6632, 518, 12, 81, "Message",ExpressionUUID->"83c0e282-a78e-4e38-a9a9-1104e354e1fe"], -Cell[239422, 6646, 217, 4, 62, "Output",ExpressionUUID->"0bc3e48d-f853-426a-9826-7e6c393860fa"] +Cell[236801, 6404, 2213, 62, 151, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], +Cell[239017, 6468, 682, 14, 58, "Message",ExpressionUUID->"b14d70c3-ef62-4221-89ef-f94281af6f06"], +Cell[239702, 6484, 681, 14, 58, "Message",ExpressionUUID->"512ead5c-80b5-4907-8cc1-29fa81b149fe"], +Cell[240386, 6500, 681, 14, 58, "Message",ExpressionUUID->"b0fd461b-298a-4e14-b476-fe4c7c2ccfba"], +Cell[241070, 6516, 542, 12, 22, "Message",ExpressionUUID->"ede3c720-4d3c-4ae0-ae2c-8e6e1ec3c810"], +Cell[241615, 6530, 239, 4, 33, "Output",ExpressionUUID->"6d8bea5c-eb92-4071-a6e9-9c52ebe34728"] }, Open ]], Cell[CellGroupData[{ -Cell[239676, 6655, 1961, 53, 506, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], -Cell[241640, 6710, 209, 4, 62, "Output",ExpressionUUID->"29dbe319-c7d0-46c7-9e40-d4bbcca0642c"] +Cell[241891, 6539, 2053, 55, 79, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], +Cell[243947, 6596, 20539, 387, 236, "Output",ExpressionUUID->"780128e8-1666-4138-ac9f-d3f14c692452"] }, Open ]], Cell[CellGroupData[{ -Cell[241886, 6719, 2094, 60, 782, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], -Cell[243983, 6781, 497, 11, 182, "Message",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], -Cell[244483, 6794, 501, 11, 182, "Message",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], -Cell[244987, 6807, 503, 11, 182, "Message",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], -Cell[245493, 6820, 455, 10, 81, "Message",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], -Cell[245951, 6832, 43631, 762, 318, "Output",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] +Cell[264523, 6988, 2253, 63, 64, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], +Cell[266779, 7053, 534, 12, 40, "Message",ExpressionUUID->"e923c830-531d-4fb1-9d0a-4ba5fe7e5d3d"], +Cell[267316, 7067, 536, 12, 40, "Message",ExpressionUUID->"91da87ec-457d-4ddc-ab75-1e87d142dd8b"], +Cell[267855, 7081, 541, 12, 40, "Message",ExpressionUUID->"b3b2a78f-0490-4925-a0c8-999c821c353f"], +Cell[268399, 7095, 495, 11, 22, "Message",ExpressionUUID->"87864d15-2ad8-4f0a-a084-f9f155a105e7"], +Cell[268897, 7108, 22007, 408, 232, "Output",ExpressionUUID->"cc915b1d-fcfb-48e7-86de-d2a4bf0037d2"] }, Open ]], -Cell[289597, 7597, 2522, 71, 707, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], -Cell[292122, 7670, 209, 5, 55, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], Cell[CellGroupData[{ -Cell[292356, 7679, 212, 6, 90, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], -Cell[292571, 7687, 168, 2, 62, "Output",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +Cell[290941, 7521, 2547, 72, 105, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], +Cell[293491, 7595, 9498, 223, 239, "Output",ExpressionUUID->"b358725e-4b10-4068-94f0-a95cab98b702"] }, Open ]], Cell[CellGroupData[{ -Cell[292776, 7694, 1814, 53, 684, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], -Cell[294593, 7749, 505, 11, 182, "Message",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], -Cell[295101, 7762, 509, 11, 182, "Message",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], -Cell[295613, 7775, 508, 11, 109, "Message",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], -Cell[296124, 7788, 455, 10, 109, "Message",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], -Cell[296582, 7800, 22399, 414, 109, "Output",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +Cell[303026, 7823, 232, 5, 29, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], +Cell[303261, 7830, 28369, 540, 232, "Output",ExpressionUUID->"d94c2a67-4a4c-421e-a1f5-0afa0b484842"] }, Open ]], Cell[CellGroupData[{ -Cell[319018, 8219, 1612, 47, 109, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], -Cell[320633, 8268, 581, 12, 245, "Message",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], -Cell[321217, 8282, 584, 12, 245, "Message",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], -Cell[321804, 8296, 590, 12, 276, "Message",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], -Cell[322397, 8310, 455, 10, 81, "Message",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], -Cell[322855, 8322, 169, 2, 62, "Output",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +Cell[331667, 8375, 237, 7, 47, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], +Cell[331907, 8384, 197, 3, 33, "Output",ExpressionUUID->"d359548b-9acb-417c-8490-a091a1760764"] }, Open ]], Cell[CellGroupData[{ -Cell[323061, 8329, 2249, 64, 731, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], -Cell[325313, 8395, 557, 12, 109, "Message",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], -Cell[325873, 8409, 560, 12, 109, "Message",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], -Cell[326436, 8423, 560, 12, 245, "Message",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], -Cell[326999, 8437, 455, 10, 81, "Message",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], -Cell[327457, 8449, 169, 2, 62, "Output",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +Cell[332141, 8392, 1972, 56, 64, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], +Cell[334116, 8450, 546, 12, 40, "Message",ExpressionUUID->"13785edc-d46c-4067-9986-59f1e460710d"], +Cell[334665, 8464, 637, 14, 40, "Message",ExpressionUUID->"fdff1a48-7af4-4430-a8bb-a0e94a6ca847"], +Cell[335305, 8480, 636, 14, 40, "Message",ExpressionUUID->"b21087ba-7b37-491d-b855-016236c6c8bf"], +Cell[335944, 8496, 495, 11, 26, "Message",ExpressionUUID->"203c85ee-3d48-413d-8feb-a816bf45b20b"], +Cell[336442, 8509, 22216, 411, 232, "Output",ExpressionUUID->"bd6085fb-86d3-4e69-8a49-65575ffbac99"] }, Open ]], Cell[CellGroupData[{ -Cell[327663, 8456, 2221, 64, 692, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], -Cell[329887, 8522, 554, 12, 245, "Message",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], -Cell[330444, 8536, 560, 12, 245, "Message",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], -Cell[331007, 8550, 560, 12, 109, "Message",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], -Cell[331570, 8564, 455, 10, 109, "Message",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], -Cell[332028, 8576, 169, 2, 109, "Output",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +Cell[358695, 8925, 1750, 52, 64, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], +Cell[360448, 8979, 631, 13, 40, "Message",ExpressionUUID->"fb2d4393-7c0b-4b30-af68-d2ac2b7fc777"], +Cell[361082, 8994, 632, 13, 40, "Message",ExpressionUUID->"e2ef25bb-1686-4a2c-8693-efbc1fdb647b"], +Cell[361717, 9009, 633, 13, 40, "Message",ExpressionUUID->"346ec239-8a7a-460e-99d9-943054001634"], +Cell[362353, 9024, 493, 11, 26, "Message",ExpressionUUID->"95e40e76-3ec2-422a-b204-92b1cf0b21bd"], +Cell[362849, 9037, 195, 3, 33, "Output",ExpressionUUID->"a3d8db20-24ed-4947-a9fc-e393a23dc1b9"] }, Open ]], Cell[CellGroupData[{ -Cell[332234, 8583, 2223, 64, 109, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], -Cell[334460, 8649, 555, 12, 245, "Message",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], -Cell[335018, 8663, 558, 12, 245, "Message",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], -Cell[335579, 8677, 560, 12, 245, "Message",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], -Cell[336142, 8691, 453, 10, 81, "Message",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], -Cell[336598, 8703, 167, 2, 62, "Output",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +Cell[363081, 9045, 2272, 64, 64, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], +Cell[365356, 9111, 633, 13, 40, "Message",ExpressionUUID->"37d8de8c-64ef-4d3c-8840-e4ff163fb00d"], +Cell[365992, 9126, 634, 13, 40, "Message",ExpressionUUID->"63a15583-c72d-42ac-a2d2-99fc36938b8d"], +Cell[366629, 9141, 632, 13, 40, "Message",ExpressionUUID->"5ea519a5-a097-4376-b670-67e4bc315fb0"], +Cell[367264, 9156, 495, 11, 26, "Message",ExpressionUUID->"3ae937eb-b6bd-4718-bec8-b9a830a12472"], +Cell[367762, 9169, 194, 3, 33, "Output",ExpressionUUID->"db788793-59b5-42fa-a74d-04e48d0f1f2a"] }, Open ]], Cell[CellGroupData[{ -Cell[336802, 8710, 213, 6, 88, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], -Cell[337018, 8718, 169, 2, 62, "Output",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +Cell[367993, 9177, 2233, 63, 64, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], +Cell[370229, 9242, 630, 13, 40, "Message",ExpressionUUID->"00d51608-5ee2-483b-99ec-c00db3eba105"], +Cell[370862, 9257, 633, 13, 40, "Message",ExpressionUUID->"7f034fb7-67c0-4859-a5fd-90e1271cdf57"], +Cell[371498, 9272, 631, 13, 40, "Message",ExpressionUUID->"fe9bf743-cfc4-41a0-b4af-6f664932ff02"], +Cell[372132, 9287, 492, 11, 26, "Message",ExpressionUUID->"8a21bd0e-07d3-48e3-8af7-673e76ecc0bc"], +Cell[372627, 9300, 195, 3, 33, "Output",ExpressionUUID->"30dce9a4-1c27-455c-b1ad-6b79fb4c40ad"] }, Open ]], -Cell[337202, 8723, 247, 5, 55, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ -Cell[337474, 8732, 554, 18, 100, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], -Cell[338031, 8752, 167, 2, 62, "Output",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +Cell[372859, 9308, 2235, 63, 64, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], +Cell[375097, 9373, 631, 13, 40, "Message",ExpressionUUID->"0d039349-8be5-46b3-9384-5c75ab9cddfd"], +Cell[375731, 9388, 634, 13, 40, "Message",ExpressionUUID->"42dede76-6660-4acc-af2b-0c64d70c7963"], +Cell[376368, 9403, 632, 13, 40, "Message",ExpressionUUID->"e3d8f64e-691e-403d-97af-b3868b2e8f49"], +Cell[377003, 9418, 493, 11, 26, "Message",ExpressionUUID->"661aedbf-32ea-43d3-baf7-ff16cf039e82"], +Cell[377499, 9431, 193, 3, 33, "Output",ExpressionUUID->"533b1f37-a4fa-41b1-8e0f-511ddda9cbd1"] }, Open ]], Cell[CellGroupData[{ -Cell[338235, 8759, 166, 4, 105, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], -Cell[338404, 8765, 169, 2, 62, "Output",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +Cell[377729, 9439, 236, 6, 46, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], +Cell[377968, 9447, 194, 3, 33, "Output",ExpressionUUID->"030bc7fd-781e-4d7e-920e-92e0ac527f13"] }, Open ]], +Cell[378177, 9453, 273, 6, 29, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ -Cell[338610, 8772, 181, 5, 81, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], -Cell[338794, 8779, 173, 3, 62, "Output",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] +Cell[378475, 9463, 558, 19, 51, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], +Cell[379036, 9484, 194, 3, 33, "Output",ExpressionUUID->"b7effd42-586f-4dc5-80dc-95847186c230"] }, Open ]], Cell[CellGroupData[{ -Cell[339004, 8787, 6055, 185, 2152, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], -Cell[345062, 8974, 172, 3, 62, "Output",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] +Cell[379267, 9492, 170, 5, 55, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], +Cell[379440, 9499, 197, 3, 33, "Output",ExpressionUUID->"8c14afe4-449e-4259-bbdf-32b121dcf1d9"] }, Open ]], Cell[CellGroupData[{ -Cell[345271, 8982, 368, 9, 79, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], -Cell[345642, 8993, 170, 3, 62, "Output",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] +Cell[379674, 9507, 181, 5, 43, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], +Cell[379858, 9514, 196, 3, 33, "Output",ExpressionUUID->"c88205e1-c3f5-493b-af40-87cb3c113af0"] }, Open ]], Cell[CellGroupData[{ -Cell[345849, 9001, 6122, 187, 2152, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], -Cell[351974, 9190, 175, 3, 109, "Output",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] +Cell[380091, 9522, 6055, 185, 183, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], +Cell[386149, 9709, 197, 3, 33, "Output",ExpressionUUID->"cf44cc6d-c133-47ac-a3eb-0d2ce873d93e"] }, Open ]], Cell[CellGroupData[{ -Cell[352186, 9198, 368, 9, 79, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], -Cell[352557, 9209, 169, 3, 62, "Output",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] +Cell[386383, 9717, 368, 9, 41, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], +Cell[386754, 9728, 193, 3, 33, "Output",ExpressionUUID->"5b19cf03-6781-4909-a110-5698163db1e6"] }, Open ]], Cell[CellGroupData[{ -Cell[352763, 9217, 2663, 88, 1067, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], -Cell[355429, 9307, 173, 3, 62, "Output",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] +Cell[386984, 9736, 6122, 187, 183, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], +Cell[393109, 9925, 197, 3, 33, "Output",ExpressionUUID->"68be6365-97b0-47b4-9250-b2421e7e9874"] }, Open ]], Cell[CellGroupData[{ -Cell[355639, 9315, 2603, 85, 967, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], -Cell[358245, 9402, 171, 3, 109, "Output",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] +Cell[393343, 9933, 368, 9, 41, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], +Cell[393714, 9944, 192, 3, 33, "Output",ExpressionUUID->"d68f6365-66ac-458c-8545-ffb992007bcf"] }, Open ]], Cell[CellGroupData[{ -Cell[358453, 9410, 3712, 118, 1454, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], -Cell[362168, 9530, 171, 3, 62, "Output",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] +Cell[393943, 9952, 2663, 88, 107, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], +Cell[396609, 10042, 196, 3, 33, "Output",ExpressionUUID->"ddb31899-736a-4332-8c7b-2133ab14cec4"] }, Open ]], Cell[CellGroupData[{ -Cell[362376, 9538, 2052, 59, 731, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], -Cell[364431, 9599, 572, 12, 245, "Message",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], -Cell[365006, 9613, 573, 12, 245, "Message",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], -Cell[365582, 9627, 578, 12, 150, "Message",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], -Cell[366163, 9641, 457, 10, 81, "Message",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], -Cell[366623, 9653, 172, 3, 62, "Output",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] +Cell[396842, 10050, 2603, 85, 107, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], +Cell[399448, 10137, 195, 3, 33, "Output",ExpressionUUID->"1b62aae0-2c06-453d-9432-3ac4ebf5f642"] }, Open ]], Cell[CellGroupData[{ -Cell[366832, 9661, 2054, 59, 731, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], -Cell[368889, 9722, 572, 12, 109, "Message",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], -Cell[369464, 9736, 575, 12, 109, "Message",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], -Cell[370042, 9750, 576, 12, 109, "Message",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], -Cell[370621, 9764, 457, 10, 81, "Message",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], -Cell[371081, 9776, 170, 3, 62, "Output",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] +Cell[399680, 10145, 3712, 118, 160, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], +Cell[403395, 10265, 194, 3, 33, "Output",ExpressionUUID->"1789c5d5-1118-45d5-8516-093cb066d017"] }, Open ]], Cell[CellGroupData[{ -Cell[371288, 9784, 2030, 55, 506, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], -Cell[373321, 9841, 20377, 384, 109, "Output",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +Cell[403626, 10273, 2211, 62, 64, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], +Cell[405840, 10337, 638, 14, 40, "Message",ExpressionUUID->"15862d1b-e8ad-4ba1-bdf9-ae7a9ad3c832"], +Cell[406481, 10353, 641, 14, 40, "Message",ExpressionUUID->"1123d0ff-517f-4a87-8769-14d43ffbfa91"], +Cell[407125, 10369, 633, 13, 40, "Message",ExpressionUUID->"729f4faf-f6f7-4040-a8a6-197d96c0f38d"], +Cell[407761, 10384, 495, 11, 26, "Message",ExpressionUUID->"f70afa64-e63e-467b-877b-b76f3c6ddf8d"], +Cell[408259, 10397, 195, 3, 33, "Output",ExpressionUUID->"5dbb04fd-15e4-4966-943f-5f1600914f5d"] }, Open ]], Cell[CellGroupData[{ -Cell[393735, 10230, 2118, 60, 109, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], -Cell[395856, 10292, 499, 11, 182, "Message",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], -Cell[396358, 10305, 504, 11, 182, "Message",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], -Cell[396865, 10318, 507, 11, 182, "Message",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], -Cell[397375, 10331, 455, 10, 81, "Message",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], -Cell[397833, 10343, 22381, 415, 325, "Output",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] +Cell[408491, 10405, 2213, 62, 64, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], +Cell[410707, 10469, 637, 14, 40, "Message",ExpressionUUID->"c1e9e27b-26da-4412-87e5-023b2a322690"], +Cell[411347, 10485, 641, 14, 40, "Message",ExpressionUUID->"8408ba37-ccd1-4345-89d9-80aa36b36ce3"], +Cell[411991, 10501, 633, 13, 40, "Message",ExpressionUUID->"1cfb54a5-912d-41e4-9ae1-c406a4ec5808"], +Cell[412627, 10516, 495, 11, 26, "Message",ExpressionUUID->"4735f255-8338-4df3-8cbb-4904ad28f784"], +Cell[413125, 10529, 192, 3, 33, "Output",ExpressionUUID->"cffed716-c0d4-4023-91dc-b16d2559fd5f"] }, Open ]], -Cell[420229, 10761, 174, 3, 55, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], -Cell[420406, 10766, 209, 5, 55, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], Cell[CellGroupData[{ -Cell[420640, 10775, 1616, 48, 526, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], -Cell[422259, 10825, 594, 12, 276, "Message",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], -Cell[422856, 10839, 594, 12, 276, "Message",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], -Cell[423453, 10853, 598, 12, 276, "Message",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], -Cell[424054, 10867, 457, 10, 81, "Message",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], -Cell[424514, 10879, 171, 3, 62, "Output",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +Cell[413354, 10537, 2053, 55, 53, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], +Cell[415410, 10594, 20263, 383, 236, "Output",ExpressionUUID->"60e5859a-9c34-407a-9ccd-761203feafcb"] }, Open ]], Cell[CellGroupData[{ -Cell[424722, 10887, 2247, 64, 731, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], -Cell[426972, 10953, 572, 12, 245, "Message",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], -Cell[427547, 10967, 573, 12, 245, "Message",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], -Cell[428123, 10981, 578, 12, 245, "Message",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], -Cell[428704, 10995, 455, 10, 81, "Message",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], -Cell[429162, 11007, 172, 3, 62, "Output",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] +Cell[435710, 10982, 2277, 63, 64, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], +Cell[437990, 11047, 532, 12, 40, "Message",ExpressionUUID->"f449b639-210c-4062-962c-4ed111c4fd0b"], +Cell[438525, 11061, 534, 12, 40, "Message",ExpressionUUID->"685d4a25-afda-4131-b1b6-fc135f34176a"], +Cell[439062, 11075, 537, 12, 40, "Message",ExpressionUUID->"ae6cd127-696d-4e6a-8df9-d26543840a23"], +Cell[439602, 11089, 495, 11, 26, "Message",ExpressionUUID->"5f87e026-feee-4754-8b99-ed70baad5144"], +Cell[440100, 11102, 21854, 405, 233, "Output",ExpressionUUID->"2018ba22-c4fc-405e-a8de-88c18038f15d"] }, Open ]], +Cell[461969, 11510, 200, 4, 29, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], Cell[CellGroupData[{ -Cell[429371, 11015, 2221, 64, 692, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], -Cell[431595, 11081, 570, 12, 245, "Message",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], -Cell[432168, 11095, 573, 12, 245, "Message",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], -Cell[432744, 11109, 578, 12, 245, "Message",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], -Cell[433325, 11123, 455, 10, 81, "Message",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], -Cell[433783, 11135, 172, 3, 62, "Output",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] +Cell[462194, 11518, 232, 5, 29, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], +Cell[462429, 11525, 28216, 537, 233, "Output",ExpressionUUID->"bedb5510-f610-470a-ae1f-10f8a0989265"] }, Open ]], Cell[CellGroupData[{ -Cell[433992, 11143, 2221, 64, 692, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], -Cell[436216, 11209, 572, 12, 245, "Message",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], -Cell[436791, 11223, 575, 12, 245, "Message",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], -Cell[437369, 11237, 578, 12, 245, "Message",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], -Cell[437950, 11251, 455, 10, 81, "Message",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], -Cell[438408, 11263, 173, 3, 62, "Output",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] +Cell[490682, 12067, 1750, 52, 64, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], +Cell[492435, 12121, 635, 13, 40, "Message",ExpressionUUID->"98d006bd-e94e-4682-95b7-a0ecd89d6cdb"], +Cell[493073, 12136, 634, 13, 40, "Message",ExpressionUUID->"379e6777-0ab7-4276-9925-e9e9163ccf83"], +Cell[493710, 12151, 633, 13, 40, "Message",ExpressionUUID->"65d0a308-c4b4-4491-9cec-ba922366cc59"], +Cell[494346, 12166, 497, 11, 26, "Message",ExpressionUUID->"f42d8a18-3a07-4a70-b6b9-8537dc108d75"], +Cell[494846, 12179, 193, 3, 33, "Output",ExpressionUUID->"07af3cda-ecb5-48b1-8752-a3622f30a5a8"] }, Open ]], Cell[CellGroupData[{ -Cell[438618, 11271, 213, 6, 88, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], -Cell[438834, 11279, 172, 3, 62, "Output",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] +Cell[495076, 12187, 2270, 64, 64, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], +Cell[497349, 12253, 638, 14, 40, "Message",ExpressionUUID->"de74c07d-2ccc-42e5-a62b-f99e5ce54f5f"], +Cell[497990, 12269, 639, 14, 40, "Message",ExpressionUUID->"94dec19c-5da6-4ca6-bbd2-5febb797dee9"], +Cell[498632, 12285, 632, 13, 40, "Message",ExpressionUUID->"f8166b1c-27bb-4854-bf27-262bfb6f6361"], +Cell[499267, 12300, 495, 11, 26, "Message",ExpressionUUID->"e1d24b80-29e1-417f-95b4-c1813cff66a5"], +Cell[499765, 12313, 195, 3, 33, "Output",ExpressionUUID->"219e0ea7-9d08-4273-b89e-7b3702c58203"] }, Open ]], -Cell[439021, 11285, 245, 5, 55, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ -Cell[439291, 11294, 558, 19, 100, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], -Cell[439852, 11315, 173, 3, 62, "Output",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] +Cell[499997, 12321, 2233, 63, 64, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], +Cell[502233, 12386, 638, 14, 40, "Message",ExpressionUUID->"de366e92-9e17-4f5e-b5d9-300ee127681f"], +Cell[502874, 12402, 637, 14, 40, "Message",ExpressionUUID->"eac23499-d449-4229-80d3-d0735d1edef6"], +Cell[503514, 12418, 631, 13, 40, "Message",ExpressionUUID->"2bd5f763-1682-4db6-b321-f2a8a8decf04"], +Cell[504148, 12433, 493, 11, 26, "Message",ExpressionUUID->"e71a7b10-2323-4d43-87c5-3e7097c617d6"], +Cell[504644, 12446, 195, 3, 33, "Output",ExpressionUUID->"0d753db6-b1de-431e-b114-d4aec028cd92"] }, Open ]], Cell[CellGroupData[{ -Cell[440062, 11323, 170, 5, 105, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], -Cell[440235, 11330, 171, 3, 62, "Output",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] +Cell[504876, 12454, 2233, 63, 64, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], +Cell[507112, 12519, 638, 14, 40, "Message",ExpressionUUID->"5155845c-316e-480f-8436-15bf042c3d3c"], +Cell[507753, 12535, 641, 14, 40, "Message",ExpressionUUID->"ab1f070d-ed1c-4abf-8789-73c308df6585"], +Cell[508397, 12551, 633, 13, 40, "Message",ExpressionUUID->"4b9043e2-f6b3-43d5-94fd-dba0c04ed22c"], +Cell[509033, 12566, 495, 11, 26, "Message",ExpressionUUID->"96ce4b7b-ee46-4450-b0de-1a28efca5a8b"], +Cell[509531, 12579, 196, 3, 33, "Output",ExpressionUUID->"3d0de422-2277-41c3-a6d1-d5628c798fa6"] }, Open ]], Cell[CellGroupData[{ -Cell[440443, 11338, 181, 5, 81, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], -Cell[440627, 11345, 173, 3, 62, "Output",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] +Cell[509764, 12587, 236, 6, 46, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], +Cell[510003, 12595, 195, 3, 33, "Output",ExpressionUUID->"2660425e-ff3d-46d7-a9f8-78e5d7f896fc"] }, Open ]], +Cell[510213, 12601, 271, 6, 29, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ -Cell[440837, 11353, 6055, 185, 2152, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], -Cell[446895, 11540, 175, 3, 109, "Output",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +Cell[510509, 12611, 558, 19, 51, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], +Cell[511070, 12632, 196, 3, 33, "Output",ExpressionUUID->"e3b58a8f-d147-408d-9884-99f93988076b"] }, Open ]], Cell[CellGroupData[{ -Cell[447107, 11548, 368, 9, 79, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], -Cell[447478, 11559, 170, 3, 62, "Output",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +Cell[511303, 12640, 170, 5, 55, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], +Cell[511476, 12647, 193, 3, 33, "Output",ExpressionUUID->"7dc228ca-c134-4289-a6b1-6c0f3c26f365"] }, Open ]], Cell[CellGroupData[{ -Cell[447685, 11567, 6122, 187, 2152, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], -Cell[453810, 11756, 175, 3, 109, "Output",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] +Cell[511706, 12655, 181, 5, 43, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], +Cell[511890, 12662, 193, 3, 33, "Output",ExpressionUUID->"21e61be2-6fed-46fa-9e1b-552e3bfb91fd"] }, Open ]], Cell[CellGroupData[{ -Cell[454022, 11764, 368, 9, 79, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], -Cell[454393, 11775, 172, 3, 62, "Output",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +Cell[512120, 12670, 6055, 185, 183, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], +Cell[518178, 12857, 198, 3, 33, "Output",ExpressionUUID->"0e7c9595-d46e-439d-8445-54d239dd1fa4"] }, Open ]], Cell[CellGroupData[{ -Cell[454602, 11783, 2663, 88, 1067, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], -Cell[457268, 11873, 173, 3, 62, "Output",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +Cell[518413, 12865, 368, 9, 41, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], +Cell[518784, 12876, 193, 3, 33, "Output",ExpressionUUID->"9b5e4e3b-f2b2-4e8e-bfe8-32d7c42097d9"] }, Open ]], Cell[CellGroupData[{ -Cell[457478, 11881, 2603, 85, 967, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], -Cell[460084, 11968, 171, 3, 62, "Output",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +Cell[519014, 12884, 6122, 187, 183, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], +Cell[525139, 13073, 198, 3, 33, "Output",ExpressionUUID->"132f6219-2234-4b1b-8a87-cb2320fd8414"] }, Open ]], Cell[CellGroupData[{ -Cell[460292, 11976, 3712, 118, 1454, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], -Cell[464007, 12096, 171, 3, 62, "Output",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +Cell[525374, 13081, 368, 9, 41, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], +Cell[525745, 13092, 196, 3, 33, "Output",ExpressionUUID->"b0c265c5-b38c-4385-bce1-c4d2103a3586"] }, Open ]], Cell[CellGroupData[{ -Cell[464215, 12104, 2052, 59, 731, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], -Cell[466270, 12165, 568, 12, 245, "Message",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], -Cell[466841, 12179, 572, 12, 245, "Message",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], -Cell[467416, 12193, 574, 12, 245, "Message",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], -Cell[467993, 12207, 457, 10, 81, "Message",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], -Cell[468453, 12219, 172, 3, 62, "Output",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +Cell[525978, 13100, 2663, 88, 107, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], +Cell[528644, 13190, 196, 3, 33, "Output",ExpressionUUID->"9c98a2c3-0298-490b-a38b-c8cfdaef95dc"] }, Open ]], Cell[CellGroupData[{ -Cell[468662, 12227, 2054, 59, 409, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], -Cell[470719, 12288, 568, 12, 245, "Message",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], -Cell[471290, 12302, 572, 12, 245, "Message",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], -Cell[471865, 12316, 574, 12, 245, "Message",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], -Cell[472442, 12330, 457, 10, 109, "Message",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], -Cell[472902, 12342, 171, 3, 109, "Output",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +Cell[528877, 13198, 2603, 85, 107, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], +Cell[531483, 13285, 195, 3, 33, "Output",ExpressionUUID->"68409097-d755-47cc-b6f6-9764e53bc1c2"] }, Open ]], Cell[CellGroupData[{ -Cell[473110, 12350, 2030, 55, 109, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], -Cell[475143, 12407, 19960, 375, 109, "Output",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +Cell[531715, 13293, 3712, 118, 160, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], +Cell[535430, 13413, 194, 3, 33, "Output",ExpressionUUID->"5f597520-4fe6-4af4-91b9-c6564ff3ba88"] }, Open ]], Cell[CellGroupData[{ -Cell[495140, 12787, 2118, 60, 109, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], -Cell[497261, 12849, 496, 11, 182, "Message",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], -Cell[497760, 12862, 501, 11, 182, "Message",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], -Cell[498264, 12875, 505, 11, 182, "Message",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], -Cell[498772, 12888, 455, 10, 81, "Message",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], -Cell[499230, 12900, 21721, 403, 319, "Output",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +Cell[535661, 13421, 2211, 62, 64, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], +Cell[537875, 13485, 638, 14, 40, "Message",ExpressionUUID->"ff9b5ae1-15a0-4283-85f6-5ea260068be0"], +Cell[538516, 13501, 638, 14, 40, "Message",ExpressionUUID->"e238eee5-d803-4ada-8c0f-de81552fdc84"], +Cell[539157, 13517, 632, 13, 40, "Message",ExpressionUUID->"ca48b56c-8aba-41d5-b378-ceede777fb46"], +Cell[539792, 13532, 495, 11, 26, "Message",ExpressionUUID->"dc8e1308-3fd7-44f2-8cf6-f54b14f56f43"], +Cell[540290, 13545, 197, 3, 33, "Output",ExpressionUUID->"a5700ea4-f157-466c-b03b-346f94f29fd9"] }, Open ]], -Cell[520966, 13306, 181, 3, 55, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], -Cell[521150, 13311, 207, 5, 55, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], Cell[CellGroupData[{ -Cell[521382, 13320, 1616, 48, 526, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], -Cell[523001, 13370, 589, 12, 245, "Message",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], -Cell[523593, 13384, 588, 12, 276, "Message",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], -Cell[524184, 13398, 594, 12, 276, "Message",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], -Cell[524781, 13412, 455, 10, 81, "Message",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], -Cell[525239, 13424, 173, 3, 62, "Output",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +Cell[540524, 13553, 2213, 62, 64, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], +Cell[542740, 13617, 637, 14, 40, "Message",ExpressionUUID->"f7f0abf1-be2f-43ae-8fd6-505b7a21c1eb"], +Cell[543380, 13633, 636, 14, 40, "Message",ExpressionUUID->"cdce5180-b3ea-43ea-90dc-d3a2ece75e15"], +Cell[544019, 13649, 635, 13, 40, "Message",ExpressionUUID->"03a2256c-fead-4266-99c2-ac6aa0b079c5"], +Cell[544657, 13664, 495, 11, 26, "Message",ExpressionUUID->"4ed000c4-74af-42a3-9b7a-74f3e5528bc9"], +Cell[545155, 13677, 194, 3, 33, "Output",ExpressionUUID->"1adad3a4-a330-4d1f-b28d-72bbd1c621b2"] }, Open ]], Cell[CellGroupData[{ -Cell[525449, 13432, 2246, 64, 731, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], -Cell[527698, 13498, 566, 12, 245, "Message",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], -Cell[528267, 13512, 570, 12, 245, "Message",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], -Cell[528840, 13526, 574, 12, 109, "Message",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], -Cell[529417, 13540, 456, 10, 109, "Message",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], -Cell[529876, 13552, 171, 3, 109, "Output",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +Cell[545386, 13685, 2053, 55, 53, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], +Cell[547442, 13742, 20252, 381, 240, "Output",ExpressionUUID->"3f69e0b6-dcf1-44b3-b154-3f219e7ef42a"] }, Open ]], Cell[CellGroupData[{ -Cell[530084, 13560, 2221, 64, 109, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], -Cell[532308, 13626, 569, 12, 109, "Message",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], -Cell[532880, 13640, 571, 12, 245, "Message",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], -Cell[533454, 13654, 575, 12, 245, "Message",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], -Cell[534032, 13668, 458, 10, 81, "Message",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], -Cell[534493, 13680, 171, 3, 62, "Output",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +Cell[567731, 14128, 2277, 63, 64, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], +Cell[570011, 14193, 534, 12, 40, "Message",ExpressionUUID->"fcbcfd30-871e-4a35-9064-76eac6144906"], +Cell[570548, 14207, 539, 12, 40, "Message",ExpressionUUID->"cb5df209-80fb-4bda-ac24-75c5bca020c7"], +Cell[571090, 14221, 542, 12, 40, "Message",ExpressionUUID->"252bead7-9157-4f95-b7a2-e4776364d341"], +Cell[571635, 14235, 493, 11, 26, "Message",ExpressionUUID->"d5af02f4-6e9a-4519-9c20-72fc588d5f06"], +Cell[572131, 14248, 21988, 408, 234, "Output",ExpressionUUID->"693c61ad-eebc-4dfe-9924-82f24e023fd3"] }, Open ]], +Cell[594134, 14659, 207, 4, 29, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], Cell[CellGroupData[{ -Cell[534701, 13688, 2223, 64, 692, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], -Cell[536927, 13754, 567, 12, 245, "Message",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], -Cell[537497, 13768, 571, 12, 245, "Message",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], -Cell[538071, 13782, 573, 12, 245, "Message",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], -Cell[538647, 13796, 456, 10, 81, "Message",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], -Cell[539106, 13808, 173, 3, 62, "Output",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +Cell[594366, 14667, 230, 5, 29, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], +Cell[594599, 14674, 28351, 540, 234, "Output",ExpressionUUID->"91ac7c41-8d53-459d-b857-8f11049e7099"] }, Open ]], Cell[CellGroupData[{ -Cell[539316, 13816, 211, 6, 88, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], -Cell[539530, 13824, 174, 3, 62, "Output",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] +Cell[622987, 15219, 1750, 52, 64, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], +Cell[624740, 15273, 636, 13, 40, "Message",ExpressionUUID->"573498e1-24c1-468c-9922-38c3bd95efb1"], +Cell[625379, 15288, 633, 13, 40, "Message",ExpressionUUID->"5ad43704-6093-46a2-9d02-cc7dc42ff798"], +Cell[626015, 15303, 632, 13, 40, "Message",ExpressionUUID->"8959679d-ea62-4b62-9b32-4ce536c68562"], +Cell[626650, 15318, 494, 11, 26, "Message",ExpressionUUID->"4ebfb762-8ab2-4226-b3b7-96ac6ba64b97"], +Cell[627147, 15331, 194, 3, 33, "Output",ExpressionUUID->"7be6d832-529c-4ef1-bd3e-a9e8103af873"] }, Open ]], -Cell[539719, 13830, 188, 4, 55, "Input",ExpressionUUID->"42fa5279-2002-432a-99bf-46e883fae322"] +Cell[CellGroupData[{ +Cell[627378, 15339, 2269, 64, 64, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], +Cell[629650, 15405, 638, 14, 40, "Message",ExpressionUUID->"9f443c55-952a-4d18-a6e2-904aa1960ba5"], +Cell[630291, 15421, 636, 14, 40, "Message",ExpressionUUID->"0d7f8883-eec8-46d8-ad45-0e94687872ee"], +Cell[630930, 15437, 633, 13, 40, "Message",ExpressionUUID->"58a2474c-1b7d-4a47-8ec0-44deea68597c"], +Cell[631566, 15452, 495, 11, 26, "Message",ExpressionUUID->"725d4ee5-855c-4e23-81c7-1b071b1b3ebb"], +Cell[632064, 15465, 196, 3, 33, "Output",ExpressionUUID->"3376af37-3e07-4c10-87b0-036fec8b8db1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[632297, 15473, 2233, 63, 64, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], +Cell[634533, 15538, 637, 14, 40, "Message",ExpressionUUID->"34610efa-c2ff-4c3c-a4c7-c6b50543cf95"], +Cell[635173, 15554, 640, 14, 40, "Message",ExpressionUUID->"190a46b7-d0f7-4a61-a75f-b973eff80530"], +Cell[635816, 15570, 633, 13, 40, "Message",ExpressionUUID->"78bacaf0-9a67-4d20-8a07-6336e0f16a77"], +Cell[636452, 15585, 494, 11, 26, "Message",ExpressionUUID->"2c42fa20-35ee-4685-aa30-486c56ad77c4"], +Cell[636949, 15598, 194, 3, 33, "Output",ExpressionUUID->"b6b51cb2-1df9-4d6c-8024-72a78d9b23eb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[637180, 15606, 2235, 63, 64, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], +Cell[639418, 15671, 635, 14, 40, "Message",ExpressionUUID->"149fe2fa-6536-4a0d-9814-04fa1b18909c"], +Cell[640056, 15687, 636, 14, 40, "Message",ExpressionUUID->"d3b7b084-ba04-47bd-9bbc-b5827e102a6c"], +Cell[640695, 15703, 631, 13, 40, "Message",ExpressionUUID->"cbf4d2ea-16e5-4f53-88c1-f4d275671609"], +Cell[641329, 15718, 495, 11, 26, "Message",ExpressionUUID->"d13f3555-b743-4948-8404-594e17612254"], +Cell[641827, 15731, 196, 3, 33, "Output",ExpressionUUID->"06aa5896-9968-4f1b-b79e-5567fc8ae8fd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[642060, 15739, 234, 6, 46, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], +Cell[642297, 15747, 197, 3, 33, "Output",ExpressionUUID->"88f796eb-4109-440b-8099-efc795e4a6bf"] +}, Open ]], +Cell[642509, 15753, 211, 4, 29, "Input",ExpressionUUID->"42fa5279-2002-432a-99bf-46e883fae322"], +Cell[CellGroupData[{ +Cell[642745, 15761, 4091, 88, 220, "Input",ExpressionUUID->"f29f1a69-86ef-4b80-a47d-8f0d911f35df"], +Cell[646839, 15851, 1975, 42, 66, "Output",ExpressionUUID->"64e644b8-af9a-4771-9ee8-fe8ab1a55fe6"], +Cell[648817, 15895, 1605, 46, 521, "Output",ExpressionUUID->"6501891d-86e9-4d35-871e-9b4ce4fc408a"] +}, Open ]] } ] *) +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_osc_Qw2.nb b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_osc_Qw2.nb index 7274dfd..3a21df2 100755 --- a/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_osc_Qw2.nb +++ b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_osc_Qw2.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 579845, 14323] -NotebookOptionsPosition[ 540066, 13693] -NotebookOutlinePosition[ 540478, 13710] -CellTagsIndexPosition[ 540435, 13707] +NotebookDataLength[ 665404, 15909] +NotebookOptionsPosition[ 624800, 15260] +NotebookOutlinePosition[ 625241, 15278] +CellTagsIndexPosition[ 625198, 15275] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -25,15 +25,14 @@ Cell[BoxData[ CellChangeTimes->{ 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, 3.9920650045886707`*^9, {3.9940727514461927`*^9, 3.994072775295883*^9}}, - CellLabel-> - "In[104]:=",ExpressionUUID->"fe8f6cf0-b6a8-40e3-a99b-ddc3b879c463"], + CellLabel->"In[1]:=",ExpressionUUID->"fe8f6cf0-b6a8-40e3-a99b-ddc3b879c463"], Cell[BoxData["1.6`"], "Output", CellChangeTimes->{ 3.991320420900818*^9, 3.99379974700918*^9, 3.993800338579624*^9, - 3.9938003856877937`*^9, {3.994072756527327*^9, 3.9940727765701942`*^9}}, - CellLabel-> - "Out[104]=",ExpressionUUID->"375d2b5a-bc90-49a8-8335-2375c3c60798"] + 3.9938003856877937`*^9, {3.994072756527327*^9, 3.9940727765701942`*^9}, + 3.9942500545262403`*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"3de09fa5-1ae1-4b59-957b-3997afed48d6"] }, Open ]], Cell[CellGroupData[{ @@ -42,15 +41,14 @@ Cell[BoxData[ RowBox[{"A", "=", "240"}]], "Input", CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { 3.993799082059058*^9, 3.9937990826790457`*^9}}, - CellLabel-> - "In[105]:=",ExpressionUUID->"e622a70e-4541-4e15-a3f1-c619e3ebd07c"], + CellLabel->"In[2]:=",ExpressionUUID->"e622a70e-4541-4e15-a3f1-c619e3ebd07c"], Cell[BoxData["240"], "Output", CellChangeTimes->{ 3.9913196497381973`*^9, 3.993799747282215*^9, 3.99380033885446*^9, - 3.993800385764146*^9, {3.994072756590721*^9, 3.994072776647262*^9}}, - CellLabel-> - "Out[105]=",ExpressionUUID->"0ff42655-fb02-4303-bcfc-1c554cf4c2c2"] + 3.993800385764146*^9, {3.994072756590721*^9, 3.994072776647262*^9}, + 3.994250054605487*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"3995f930-6d69-43ae-b304-94c5a6de6fd5"] }, Open ]], Cell[CellGroupData[{ @@ -59,15 +57,14 @@ Cell[BoxData[ RowBox[{"A1", "=", " ", "176"}]], "Input", CellChangeTimes->{ 3.991798961431202*^9, {3.993799246718399*^9, 3.993799247496731*^9}}, - CellLabel-> - "In[106]:=",ExpressionUUID->"c1edf9c2-0959-4038-9c59-2235a4e4a95d"], + CellLabel->"In[3]:=",ExpressionUUID->"c1edf9c2-0959-4038-9c59-2235a4e4a95d"], Cell[BoxData["176"], "Output", CellChangeTimes->{ 3.9913196497578354`*^9, 3.993799747300477*^9, 3.993800338871715*^9, - 3.993800385779578*^9, {3.994072756603456*^9, 3.9940727766610518`*^9}}, - CellLabel-> - "Out[106]=",ExpressionUUID->"ed52261d-0652-4713-b1a3-3640de775074"] + 3.993800385779578*^9, {3.994072756603456*^9, 3.9940727766610518`*^9}, + 3.994250054622973*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"1dc241f4-3926-4aca-80c8-8ceca7b3719f"] }, Open ]], Cell[CellGroupData[{ @@ -75,15 +72,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, - CellLabel-> - "In[107]:=",ExpressionUUID->"c11dba24-3a38-493c-a1dc-4d37283099a6"], + CellLabel->"In[4]:=",ExpressionUUID->"c11dba24-3a38-493c-a1dc-4d37283099a6"], Cell[BoxData["0.55`"], "Output", CellChangeTimes->{ 3.991319649777508*^9, 3.993799747316929*^9, 3.993800338888788*^9, - 3.993800385794606*^9, {3.994072756615819*^9, 3.994072776674831*^9}}, - CellLabel-> - "Out[107]=",ExpressionUUID->"48d8a4c3-79ce-401c-bf8d-324148f87185"] + 3.993800385794606*^9, {3.994072756615819*^9, 3.994072776674831*^9}, + 3.9942500546374073`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"49af2699-8ccf-4345-9b5a-6e3f013ff1be"] }, Open ]], Cell[CellGroupData[{ @@ -95,30 +91,28 @@ Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", - CellLabel-> - "In[108]:=",ExpressionUUID->"5cf8258a-2104-453b-8d8b-4f4de287cdca"], + CellLabel->"In[5]:=",ExpressionUUID->"5cf8258a-2104-453b-8d8b-4f4de287cdca"], Cell[BoxData["0.543`"], "Output", CellChangeTimes->{ 3.9913196497965145`*^9, 3.993799747333138*^9, 3.993800338906427*^9, - 3.993800385809697*^9, {3.994072756628705*^9, 3.994072776688608*^9}}, - CellLabel-> - "Out[108]=",ExpressionUUID->"2db95ea4-4afd-4b51-bfbd-332f611dda79"] + 3.993800385809697*^9, {3.994072756628705*^9, 3.994072776688608*^9}, + 3.994250054652134*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"a92625cf-00f4-405c-9765-ff65effe8eb4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", - CellLabel-> - "In[109]:=",ExpressionUUID->"36d77f2d-8ccf-47e2-8bf4-c9a016908a14"], + CellLabel->"In[6]:=",ExpressionUUID->"36d77f2d-8ccf-47e2-8bf4-c9a016908a14"], Cell[BoxData["0.17`"], "Output", CellChangeTimes->{ 3.9913196498144608`*^9, 3.9937997473490753`*^9, 3.993800338928018*^9, - 3.993800385813496*^9, {3.994072756641103*^9, 3.994072776693177*^9}}, - CellLabel-> - "Out[109]=",ExpressionUUID->"b538a64c-68f7-4226-8e93-d26e9a6c4489"] + 3.993800385813496*^9, {3.994072756641103*^9, 3.994072776693177*^9}, + 3.9942500546683083`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"eca49c7c-8cc5-4a20-b7fd-21416d4c12cf"] }, Open ]], Cell[CellGroupData[{ @@ -129,15 +123,14 @@ Cell[BoxData[ SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}]}]], "Input", CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, - CellLabel-> - "In[110]:=",ExpressionUUID->"ccd38b67-1148-4c15-88ad-b124fe24d3f9"], + CellLabel->"In[7]:=",ExpressionUUID->"ccd38b67-1148-4c15-88ad-b124fe24d3f9"], Cell[BoxData["6.5007312471204965`"], "Output", CellChangeTimes->{ 3.9913196498225155`*^9, 3.993799747366351*^9, 3.993800338948053*^9, - 3.993800385835421*^9, {3.994072756653392*^9, 3.994072776710863*^9}}, - CellLabel-> - "Out[110]=",ExpressionUUID->"c8bfd761-1509-4190-80c4-909ca835959b"] + 3.993800385835421*^9, {3.994072756653392*^9, 3.994072776710863*^9}, + 3.994250054682639*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"8ffc60fa-8b33-412e-86b5-fbf8556d2779"] }, Open ]], Cell[CellGroupData[{ @@ -149,15 +142,14 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", - CellLabel-> - "In[111]:=",ExpressionUUID->"09f65c4d-6e9c-4e12-abab-c0adb48f91c6"], + CellLabel->"In[8]:=",ExpressionUUID->"09f65c4d-6e9c-4e12-abab-c0adb48f91c6"], Cell[BoxData["4.64`"], "Output", CellChangeTimes->{ 3.9913196498425236`*^9, 3.993799747384128*^9, 3.993800338968402*^9, - 3.993800385850627*^9, {3.9940727566658983`*^9, 3.994072776724451*^9}}, - CellLabel-> - "Out[111]=",ExpressionUUID->"eb11b715-7eab-437a-a754-145682bb7a15"] + 3.993800385850627*^9, {3.9940727566658983`*^9, 3.994072776724451*^9}, + 3.994250054697178*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"fbb122e7-f3e2-4c9b-8726-ef6686d0672a"] }, Open ]], Cell[CellGroupData[{ @@ -168,15 +160,13 @@ Cell[BoxData[ 3.991799283179735*^9, {3.9937993186432753`*^9, 3.993799326240513*^9}, { 3.993799364756247*^9, 3.993799370026516*^9}, {3.993799480203456*^9, 3.993799488443741*^9}}, - CellLabel-> - "In[112]:=",ExpressionUUID->"a15a9985-b284-47d1-94f8-d6c7ae7334e0"], + CellLabel->"In[9]:=",ExpressionUUID->"a15a9985-b284-47d1-94f8-d6c7ae7334e0"], Cell[BoxData["0.7654`"], "Output", CellChangeTimes->{ 3.9937997474107447`*^9, 3.993800338988703*^9, 3.9938003858649893`*^9, { - 3.994072756678184*^9, 3.994072776737771*^9}}, - CellLabel-> - "Out[112]=",ExpressionUUID->"16be0bb9-e171-491f-80c9-bea8caaaaa6e"] + 3.994072756678184*^9, 3.994072776737771*^9}, 3.994250054712071*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"755525bb-bd9a-428d-84fd-d354a74286b0"] }, Open ]], Cell[CellGroupData[{ @@ -185,45 +175,41 @@ Cell[BoxData[ RowBox[{"b2", "=", "0.4513"}]], "Input", CellChangeTimes->{ 3.991799280663351*^9, {3.993799372069343*^9, 3.993799377027832*^9}}, - CellLabel-> - "In[113]:=",ExpressionUUID->"c76ae353-f510-4258-a8a1-f80d8717e36e"], + CellLabel->"In[10]:=",ExpressionUUID->"c76ae353-f510-4258-a8a1-f80d8717e36e"], Cell[BoxData["0.4513`"], "Output", CellChangeTimes->{ 3.993799747427882*^9, 3.993800339005568*^9, 3.993800385879345*^9, { - 3.9940727566903763`*^9, 3.9940727767497873`*^9}}, - CellLabel-> - "Out[113]=",ExpressionUUID->"f2982ef5-4983-4e6a-8600-892fb8d13ea8"] + 3.9940727566903763`*^9, 3.9940727767497873`*^9}, 3.994250054726799*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"96df4b8e-d150-4b1f-ae49-a92e362c9d55"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", - CellLabel-> - "In[114]:=",ExpressionUUID->"1203c142-4f76-42e6-b08f-3b16bfc279f7"], + CellLabel->"In[11]:=",ExpressionUUID->"1203c142-4f76-42e6-b08f-3b16bfc279f7"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498927155`*^9, 3.993799747452092*^9, 3.993800339022945*^9, - 3.993800385893304*^9, {3.994072756702078*^9, 3.9940727767611856`*^9}}, - CellLabel-> - "Out[114]=",ExpressionUUID->"49f81da7-99e9-4f1c-9cba-ea1c842b9816"] + 3.993800385893304*^9, {3.994072756702078*^9, 3.9940727767611856`*^9}, + 3.9942500547413797`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"5d3743ac-6067-4e97-bcaf-dbd6ddb92694"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", - CellLabel-> - "In[115]:=",ExpressionUUID->"48cfdc9b-1a95-4532-b41b-75beb24a094c"], + CellLabel->"In[12]:=",ExpressionUUID->"48cfdc9b-1a95-4532-b41b-75beb24a094c"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498996067`*^9, 3.993799747468101*^9, 3.993800339041868*^9, - 3.9938003859074306`*^9, {3.9940727567134666`*^9, 3.994072776772606*^9}}, - CellLabel-> - "Out[115]=",ExpressionUUID->"9d7bd47b-3f79-453e-afca-b2f4ec238c7e"] + 3.9938003859074306`*^9, {3.9940727567134666`*^9, 3.994072776772606*^9}, + 3.994250054756549*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"57649c71-a878-443b-a2f1-5993cd0e1c4d"] }, Open ]], Cell[CellGroupData[{ @@ -247,15 +233,14 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[116]:=",ExpressionUUID->"180aaab2-4468-4e28-92e8-93d34fc68a80"], + CellLabel->"In[13]:=",ExpressionUUID->"180aaab2-4468-4e28-92e8-93d34fc68a80"], Cell[BoxData["2.0171665757171935`"], "Output", CellChangeTimes->{ 3.9913197863028755`*^9, 3.9937997474836817`*^9, 3.9938003390596933`*^9, - 3.993800385921398*^9, {3.994072756725263*^9, 3.994072776784317*^9}}, - CellLabel-> - "Out[116]=",ExpressionUUID->"3db7e763-ea9c-45af-8701-4ed3d1cbd7e6"] + 3.993800385921398*^9, {3.994072756725263*^9, 3.994072776784317*^9}, + 3.994250054772723*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"69e3bb8f-76e3-49ff-ace9-398353862109"] }, Open ]], Cell[CellGroupData[{ @@ -279,15 +264,14 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[117]:=",ExpressionUUID->"665b6da9-7158-4e34-9166-10238b69365d"], + CellLabel->"In[14]:=",ExpressionUUID->"665b6da9-7158-4e34-9166-10238b69365d"], Cell[BoxData["1.5074639495621045`"], "Output", CellChangeTimes->{ 3.9913197864610195`*^9, 3.993799747498741*^9, 3.993800339079308*^9, - 3.993800385933773*^9, {3.994072756739362*^9, 3.994072776796445*^9}}, - CellLabel-> - "Out[117]=",ExpressionUUID->"9be2a748-d2ac-413c-b6c5-94bf959364e4"] + 3.993800385933773*^9, {3.994072756739362*^9, 3.994072776796445*^9}, + 3.99425005483414*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"e2c8580e-64be-48d7-818d-ec01258f4c98"] }, Open ]], Cell[CellGroupData[{ @@ -342,15 +326,14 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[118]:=",ExpressionUUID->"03b05be2-c9c1-4531-aa89-8beafcec0737"], + CellLabel->"In[15]:=",ExpressionUUID->"03b05be2-c9c1-4531-aa89-8beafcec0737"], Cell[BoxData["0.5126444245586296`"], "Output", CellChangeTimes->{ 3.991319786533783*^9, 3.993799747513342*^9, 3.993800339097157*^9, - 3.993800385946536*^9, {3.994072756750792*^9, 3.9940727768075857`*^9}}, - CellLabel-> - "Out[118]=",ExpressionUUID->"d708987f-0da2-4a94-aba5-4c3655d71938"] + 3.993800385946536*^9, {3.994072756750792*^9, 3.9940727768075857`*^9}, + 3.9942500548726797`*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"e15a9508-508b-4b3c-929c-5fa992e01fa1"] }, Open ]], Cell[CellGroupData[{ @@ -401,16 +384,15 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[119]:=",ExpressionUUID->"1e56577d-7be0-4db4-a1a7-c97b2ed19508"], + CellLabel->"In[16]:=",ExpressionUUID->"1e56577d-7be0-4db4-a1a7-c97b2ed19508"], Cell[BoxData[ RowBox[{"-", "0.12490541136574432`"}]], "Output", CellChangeTimes->{ 3.991319786540777*^9, 3.993799747527933*^9, 3.9938003391147947`*^9, - 3.99380038595966*^9, {3.994072756762456*^9, 3.99407277681929*^9}}, - CellLabel-> - "Out[119]=",ExpressionUUID->"62ccb9fd-c81f-451c-a867-4ce499a841bb"] + 3.99380038595966*^9, {3.994072756762456*^9, 3.99407277681929*^9}, + 3.9942500548844748`*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"8219babc-9433-4af2-b687-566dc2713998"] }, Open ]], Cell[CellGroupData[{ @@ -461,16 +443,15 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[120]:=",ExpressionUUID->"0ef46f2a-a017-4817-b57d-b1ca70a555fe"], + CellLabel->"In[17]:=",ExpressionUUID->"0ef46f2a-a017-4817-b57d-b1ca70a555fe"], Cell[BoxData[ RowBox[{"-", "0.47786808677187637`"}]], "Output", CellChangeTimes->{ 3.9913197865777817`*^9, 3.993799747543792*^9, 3.993800339132107*^9, - 3.9938003859736147`*^9, {3.994072756774001*^9, 3.994072776830839*^9}}, - CellLabel-> - "Out[120]=",ExpressionUUID->"26b9e4e6-b447-44db-84e5-c3a7fb5ad07c"] + 3.9938003859736147`*^9, {3.994072756774001*^9, 3.994072776830839*^9}, + 3.994250054927916*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"e2239fd8-71be-4b94-ae07-ee84efef9de2"] }, Open ]], Cell[CellGroupData[{ @@ -525,45 +506,42 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[121]:=",ExpressionUUID->"fc9e0805-57ef-440e-9149-773f661f1765"], + CellLabel->"In[18]:=",ExpressionUUID->"fc9e0805-57ef-440e-9149-773f661f1765"], Cell[BoxData["0.6637051934091774`"], "Output", CellChangeTimes->{ 3.9913197866129*^9, 3.993799747559553*^9, 3.993800339136161*^9, - 3.993800385987465*^9, {3.994072756786757*^9, 3.994072776842886*^9}}, - CellLabel-> - "Out[121]=",ExpressionUUID->"084077b2-14ec-43d9-8866-6b9d8b2dbec8"] + 3.993800385987465*^9, {3.994072756786757*^9, 3.994072776842886*^9}, + 3.994250054992517*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"5fd6823b-9df8-48c9-8c6e-4a27022dc66d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", - CellLabel-> - "In[122]:=",ExpressionUUID->"3532766b-e461-41c2-a4c3-2deac0ca2c8d"], + CellLabel->"In[19]:=",ExpressionUUID->"3532766b-e461-41c2-a4c3-2deac0ca2c8d"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786620775*^9, 3.9937997475753107`*^9, 3.993800339165604*^9, - 3.9938003860010223`*^9, {3.99407275679909*^9, 3.994072776854899*^9}}, - CellLabel-> - "Out[122]=",ExpressionUUID->"cf5be228-eb52-4750-96f6-16bd014c339e"] + 3.9938003860010223`*^9, {3.99407275679909*^9, 3.994072776854899*^9}, + 3.994250055003196*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"b94f8142-187b-4e88-bdbd-62c08194dc9c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fin", "=", "0.09"}]], "Input", - CellLabel-> - "In[123]:=",ExpressionUUID->"1de672d4-a854-4e0b-9639-6bb0b383d2a5"], + CellLabel->"In[20]:=",ExpressionUUID->"1de672d4-a854-4e0b-9639-6bb0b383d2a5"], Cell[BoxData["0.09`"], "Output", CellChangeTimes->{ 3.991319786657793*^9, 3.9937997475908947`*^9, 3.993800339182325*^9, - 3.9938003860157137`*^9, {3.9940727568120337`*^9, 3.994072776866831*^9}}, - CellLabel-> - "Out[123]=",ExpressionUUID->"b04a943d-0adc-4ff3-954b-d0b5df2d1501"] + 3.9938003860157137`*^9, {3.9940727568120337`*^9, 3.994072776866831*^9}, + 3.994250055011239*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"e7c56ee6-4a58-4c07-a455-4e5b324bbc7a"] }, Open ]], Cell[CellGroupData[{ @@ -572,15 +550,14 @@ Cell[BoxData[ RowBox[{"ffin", "=", "0.42"}]], "Input", CellChangeTimes->{{3.9938002062742653`*^9, 3.993800206278376*^9}, { 3.99380037453472*^9, 3.993800374695301*^9}}, - CellLabel-> - "In[124]:=",ExpressionUUID->"46aec20a-01d8-4c1d-acd5-090c9972971a"], + CellLabel->"In[21]:=",ExpressionUUID->"46aec20a-01d8-4c1d-acd5-090c9972971a"], Cell[BoxData["0.42`"], "Output", CellChangeTimes->{ 3.9913197866657925`*^9, 3.993799747607007*^9, 3.993800339199224*^9, - 3.9938003860303698`*^9, {3.994072756823955*^9, 3.994072776878458*^9}}, - CellLabel-> - "Out[124]=",ExpressionUUID->"2c98d28d-baa0-4028-8e96-d8ba44a72638"] + 3.9938003860303698`*^9, {3.994072756823955*^9, 3.994072776878458*^9}, + 3.994250055024008*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"bc637815-51bf-48c2-9199-8d76f2249e33"] }, Open ]], Cell[CellGroupData[{ @@ -589,31 +566,29 @@ Cell[BoxData[ RowBox[{"fex", "=", RowBox[{"-", "2.59"}]}]], "Input", CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, - CellLabel-> - "In[125]:=",ExpressionUUID->"f55dd3d9-76bd-41ca-936e-f304a0902414"], + CellLabel->"In[22]:=",ExpressionUUID->"f55dd3d9-76bd-41ca-936e-f304a0902414"], Cell[BoxData[ RowBox[{"-", "2.59`"}]], "Output", CellChangeTimes->{ 3.9913197866996*^9, 3.993799747623555*^9, 3.9938003392162523`*^9, - 3.993800386045208*^9, {3.994072756835642*^9, 3.994072776890398*^9}}, - CellLabel-> - "Out[125]=",ExpressionUUID->"df0bbb86-270c-45e4-9c46-7542236f3dfb"] + 3.993800386045208*^9, {3.994072756835642*^9, 3.994072776890398*^9}, + 3.9942500550366163`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"d0f95437-ae7b-424f-9c2e-72e441de16c9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffex", "=", "0.54"}]], "Input", - CellLabel-> - "In[126]:=",ExpressionUUID->"4fcc235b-6449-42a3-abcd-292d7e7caa03"], + CellLabel->"In[23]:=",ExpressionUUID->"4fcc235b-6449-42a3-abcd-292d7e7caa03"], Cell[BoxData["0.54`"], "Output", CellChangeTimes->{ 3.9913197867406044`*^9, 3.9937997476274233`*^9, 3.993800339233366*^9, - 3.993800386060211*^9, {3.994072756847537*^9, 3.994072776902615*^9}}, - CellLabel-> - "Out[126]=",ExpressionUUID->"c10ecde1-df80-42e2-976a-2edb946a73ab"] + 3.993800386060211*^9, {3.994072756847537*^9, 3.994072776902615*^9}, + 3.994250055050898*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"99602f4a-7f5f-4ed3-ba07-19d182dab2e0"] }, Open ]], Cell[CellGroupData[{ @@ -623,15 +598,13 @@ Cell[BoxData[ CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, 3.993799773981587*^9, {3.993800017055696*^9, 3.993800017126395*^9}}, - CellLabel-> - "In[127]:=",ExpressionUUID->"0707be3a-2591-495e-be90-e0cea4aff250"], + CellLabel->"In[24]:=",ExpressionUUID->"0707be3a-2591-495e-be90-e0cea4aff250"], Cell[BoxData["64"], "Output", CellChangeTimes->{ 3.9913197867861958`*^9, 3.993800339250176*^9, 3.993800386074368*^9, { - 3.994072756859651*^9, 3.994072776915943*^9}}, - CellLabel-> - "Out[127]=",ExpressionUUID->"a77ab9e8-a9b9-4ebe-82cc-630a5cea6fb1"] + 3.994072756859651*^9, 3.994072776915943*^9}, 3.9942500550660477`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"d8fad641-8039-4348-8327-47f4ccb5c0b3"] }, Open ]], Cell[CellGroupData[{ @@ -641,15 +614,14 @@ Cell[BoxData[ RowBox[{"92", "-", "Z1"}]}]], "Input", CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, 3.9916443064841423`*^9}, - CellLabel-> - "In[128]:=",ExpressionUUID->"1328e9fc-31b4-4c8e-ad67-4771dee536dc"], + CellLabel->"In[25]:=",ExpressionUUID->"1328e9fc-31b4-4c8e-ad67-4771dee536dc"], Cell[BoxData["28"], "Output", CellChangeTimes->{ 3.9913197867928696`*^9, 3.993799747743443*^9, 3.993800339268099*^9, - 3.993800386088282*^9, {3.994072756878846*^9, 3.994072776927128*^9}}, - CellLabel-> - "Out[128]=",ExpressionUUID->"968a92b7-1ef8-404a-af70-dda94076bcaa"] + 3.993800386088282*^9, {3.994072756878846*^9, 3.994072776927128*^9}, + 3.99425005507866*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"abc147e6-433e-436d-8c16-f2adff7a2108"] }, Open ]], Cell[CellGroupData[{ @@ -658,15 +630,14 @@ Cell[BoxData[ RowBox[{"A2", "=", RowBox[{"A", "-", "A1"}]}]], "Input", CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, - CellLabel-> - "In[129]:=",ExpressionUUID->"25330b40-6368-4419-9853-2ac470e4e95c"], + CellLabel->"In[26]:=",ExpressionUUID->"25330b40-6368-4419-9853-2ac470e4e95c"], Cell[BoxData["64"], "Output", CellChangeTimes->{ 3.991319786827894*^9, 3.993799747762579*^9, 3.9938003392862883`*^9, - 3.993800386103376*^9, {3.994072756893341*^9, 3.994072776939496*^9}}, - CellLabel-> - "Out[129]=",ExpressionUUID->"d3f05094-5bdc-46ee-a020-80e868fbf3fb"] + 3.993800386103376*^9, {3.994072756893341*^9, 3.994072776939496*^9}, + 3.994250055090601*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"37888659-ebe1-4c7f-82e3-6bc8b7a42a27"] }, Open ]], Cell[CellGroupData[{ @@ -681,15 +652,14 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[130]:=",ExpressionUUID->"a257a6be-e927-419d-88da-b3f35bb4a9d0"], + CellLabel->"In[27]:=",ExpressionUUID->"a257a6be-e927-419d-88da-b3f35bb4a9d0"], Cell[BoxData["0.10431818181818181`"], "Output", CellChangeTimes->{ 3.9913197868648605`*^9, 3.993799747778633*^9, 3.993800339303063*^9, - 3.993800386118601*^9, {3.9940727569059267`*^9, 3.994072776951536*^9}}, - CellLabel-> - "Out[130]=",ExpressionUUID->"eadbb4ff-3c01-481e-9cf9-9023a9b58754"] + 3.993800386118601*^9, {3.9940727569059267`*^9, 3.994072776951536*^9}, + 3.994250055101355*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"f7592fe1-ce08-49aa-bd1a-43ef65d5198e"] }, Open ]], Cell[CellGroupData[{ @@ -704,16 +674,15 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[131]:=",ExpressionUUID->"e361233a-b44d-48d9-80cc-d764e0281054"], + CellLabel->"In[28]:=",ExpressionUUID->"e361233a-b44d-48d9-80cc-d764e0281054"], Cell[BoxData[ RowBox[{"-", "2.571590909090909`"}]], "Output", CellChangeTimes->{ 3.9913197868718567`*^9, 3.993799747795951*^9, 3.993800339319376*^9, - 3.993800386134354*^9, {3.9940727569175262`*^9, 3.994072776962891*^9}}, - CellLabel-> - "Out[131]=",ExpressionUUID->"e7bf4854-be55-435f-8192-71b35b606a61"] + 3.993800386134354*^9, {3.9940727569175262`*^9, 3.994072776962891*^9}, + 3.994250055111745*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"06d6db2a-050a-4ae5-912e-7b56d5cbde54"] }, Open ]], Cell[CellGroupData[{ @@ -744,15 +713,14 @@ Cell[BoxData[ CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, - CellLabel-> - "In[132]:=",ExpressionUUID->"c38ee153-3592-49ec-b684-4bf99412ea8b"], + CellLabel->"In[29]:=",ExpressionUUID->"c38ee153-3592-49ec-b684-4bf99412ea8b"], Cell[BoxData["16.821909430837295`"], "Output", CellChangeTimes->{ 3.9913197869068584`*^9, 3.993799747812237*^9, 3.993800339336598*^9, - 3.9938003861388483`*^9, {3.994072756929346*^9, 3.994072776974725*^9}}, - CellLabel-> - "Out[132]=",ExpressionUUID->"7c625020-01fe-4e5a-918a-dbe1f765d086"] + 3.9938003861388483`*^9, {3.994072756929346*^9, 3.994072776974725*^9}, + 3.994250055123667*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"9e7688c1-21f1-4dfe-9405-5df82a09519e"] }, Open ]], Cell[CellGroupData[{ @@ -760,15 +728,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, - CellLabel-> - "In[133]:=",ExpressionUUID->"13c16bf8-feb4-4c36-9aa4-e64b7fd043b7"], + CellLabel->"In[30]:=",ExpressionUUID->"13c16bf8-feb4-4c36-9aa4-e64b7fd043b7"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786940857*^9, 3.9937997478307247`*^9, 3.993800339353257*^9, - 3.993800386159964*^9, {3.994072756940832*^9, 3.994072776986273*^9}}, - CellLabel-> - "Out[133]=",ExpressionUUID->"9d41d51e-8bfe-44d1-a28f-802d5f176b6a"] + 3.993800386159964*^9, {3.994072756940832*^9, 3.994072776986273*^9}, + 3.994250055136931*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"af4b17e7-8a20-4624-ab28-d73cdcfb5210"] }, Open ]], Cell[CellGroupData[{ @@ -778,21 +745,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { 3.9937993902853117`*^9, 3.993799392293758*^9}}, - CellLabel-> - "In[134]:=",ExpressionUUID->"d36ad0b3-3a75-48a1-bbc1-2685f4fe15ba"], + CellLabel->"In[31]:=",ExpressionUUID->"d36ad0b3-3a75-48a1-bbc1-2685f4fe15ba"], Cell[BoxData["1.25`"], "Output", CellChangeTimes->{ 3.9937997478713713`*^9, 3.993800339369935*^9, 3.9938003861811666`*^9, { - 3.9940727569525537`*^9, 3.9940727769978867`*^9}}, - CellLabel-> - "Out[134]=",ExpressionUUID->"197ffe84-0eac-4cc1-ab19-72f57c1a7092"] + 3.9940727569525537`*^9, 3.9940727769978867`*^9}, 3.994250055147902*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"326dc61b-4adb-46dc-8f3b-800d03806d7c"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, - CellLabel-> - "In[135]:=",ExpressionUUID->"1b15c44e-4ab0-4c50-8ce7-4dd8f830fc9c"], + CellLabel->"In[32]:=",ExpressionUUID->"1b15c44e-4ab0-4c50-8ce7-4dd8f830fc9c"], Cell[CellGroupData[{ @@ -801,21 +765,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { 3.993799395152514*^9, 3.9937993965162697`*^9}}, - CellLabel-> - "In[136]:=",ExpressionUUID->"36d4f68d-a298-44c2-bb49-54d9a4d245cc"], + CellLabel->"In[33]:=",ExpressionUUID->"36d4f68d-a298-44c2-bb49-54d9a4d245cc"], Cell[BoxData["0.85`"], "Output", CellChangeTimes->{ 3.993799747898118*^9, 3.993800339418215*^9, 3.993800386208997*^9, { - 3.99407275696742*^9, 3.9940727770129023`*^9}}, - CellLabel-> - "Out[136]=",ExpressionUUID->"e5754b6a-4d41-4522-9562-0cf3dc2f3960"] + 3.99407275696742*^9, 3.9940727770129023`*^9}, 3.994250055164935*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"b773d766-3402-442a-b6e1-8fba88f7de3d"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, - CellLabel-> - "In[137]:=",ExpressionUUID->"2f84cfb5-8ad5-4471-9085-6c0102af242b"], + CellLabel->"In[34]:=",ExpressionUUID->"2f84cfb5-8ad5-4471-9085-6c0102af242b"], Cell[CellGroupData[{ @@ -824,21 +785,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { 3.993799398824368*^9, 3.9937994002405863`*^9}}, - CellLabel-> - "In[138]:=",ExpressionUUID->"238223e0-ed8e-42e3-b2f7-106d26b96850"], + CellLabel->"In[35]:=",ExpressionUUID->"238223e0-ed8e-42e3-b2f7-106d26b96850"], Cell[BoxData["2.3`"], "Output", CellChangeTimes->{ 3.993799747923098*^9, 3.993800339511382*^9, 3.993800386234042*^9, { - 3.994072756981262*^9, 3.994072777026493*^9}}, - CellLabel-> - "Out[138]=",ExpressionUUID->"f3cc8ea5-c927-45e4-9270-b49987cc817d"] + 3.994072756981262*^9, 3.994072777026493*^9}, 3.994250055181233*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"7e355288-8bac-40f2-a312-cfaaca0d7eaf"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, - CellLabel-> - "In[139]:=",ExpressionUUID->"9862b35e-f275-4561-b8cc-971e2be23716"], + CellLabel->"In[36]:=",ExpressionUUID->"9862b35e-f275-4561-b8cc-971e2be23716"], Cell[CellGroupData[{ @@ -847,21 +805,18 @@ Cell[BoxData[ CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, 3.991799359954439*^9, {3.993799403099743*^9, 3.9937994038178663`*^9}}, - CellLabel-> - "In[140]:=",ExpressionUUID->"8e2ccf30-ae77-4ebf-9552-85b682a13b89"], + CellLabel->"In[37]:=",ExpressionUUID->"8e2ccf30-ae77-4ebf-9552-85b682a13b89"], Cell[BoxData["1.1`"], "Output", CellChangeTimes->{ 3.9937997479459248`*^9, 3.99380033956159*^9, 3.9938003862601*^9, { - 3.994072756995009*^9, 3.99407277703996*^9}}, - CellLabel-> - "Out[140]=",ExpressionUUID->"7158ed01-a4e3-4481-a2e0-f029a73025da"] + 3.994072756995009*^9, 3.99407277703996*^9}, 3.9942500614846573`*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"c0db1c63-cee0-49a2-bd0a-9c7659cfc099"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, - CellLabel-> - "In[141]:=",ExpressionUUID->"b7eaffb6-f9e6-4ee7-8f58-e8bf88c1ce14"], + CellLabel->"In[38]:=",ExpressionUUID->"b7eaffb6-f9e6-4ee7-8f58-e8bf88c1ce14"], Cell[CellGroupData[{ @@ -870,21 +825,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, 3.991718016467348*^9, 3.991799361414671*^9, {3.993799407392029*^9, 3.993799410650194*^9}}, - CellLabel-> - "In[142]:=",ExpressionUUID->"6244dde3-9605-4f26-99f5-0cdfa79312ef"], + CellLabel->"In[39]:=",ExpressionUUID->"6244dde3-9605-4f26-99f5-0cdfa79312ef"], Cell[BoxData["0.8664`"], "Output", CellChangeTimes->{ 3.993799747968698*^9, 3.993800339671721*^9, 3.9938003862845907`*^9, { - 3.994072757008773*^9, 3.994072777054493*^9}}, - CellLabel-> - "Out[142]=",ExpressionUUID->"b241d884-e660-43fc-a5a7-4f84fc459818"] + 3.994072757008773*^9, 3.994072777054493*^9}, 3.994250061508108*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"749b2f06-ea40-4c29-87ac-37252219c828"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, - CellLabel-> - "In[143]:=",ExpressionUUID->"277deec6-0434-46a4-b267-bb474b1a9e55"], + CellLabel->"In[40]:=",ExpressionUUID->"277deec6-0434-46a4-b267-bb474b1a9e55"], Cell[CellGroupData[{ @@ -893,21 +845,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9937994136330442`*^9, 3.993799417576207*^9}}, - CellLabel-> - "In[144]:=",ExpressionUUID->"f06b791e-98df-4e8c-aaea-be4a1b03420f"], + CellLabel->"In[41]:=",ExpressionUUID->"f06b791e-98df-4e8c-aaea-be4a1b03420f"], Cell[BoxData["0.5924`"], "Output", CellChangeTimes->{ 3.993799747991611*^9, 3.9938003397687387`*^9, 3.993800386310059*^9, { - 3.994072757022612*^9, 3.994072777068264*^9}}, - CellLabel-> - "Out[144]=",ExpressionUUID->"c0e1c784-c678-49ae-a632-399662116372"] + 3.994072757022612*^9, 3.994072777068264*^9}, 3.994250061527288*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"ba2ffbb7-c786-48ae-ab43-94cbf158c240"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, - CellLabel-> - "In[145]:=",ExpressionUUID->"3c428497-d831-4fd7-9229-97217b1e1897"], + CellLabel->"In[42]:=",ExpressionUUID->"3c428497-d831-4fd7-9229-97217b1e1897"], Cell[CellGroupData[{ @@ -916,21 +865,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.993799421955809*^9, 3.993799423886447*^9}}, - CellLabel-> - "In[146]:=",ExpressionUUID->"d97a17ba-0434-453c-b0f8-fef5c0347dfe"], + CellLabel->"In[43]:=",ExpressionUUID->"d97a17ba-0434-453c-b0f8-fef5c0347dfe"], Cell[BoxData["1.888`"], "Output", CellChangeTimes->{ 3.993799748012844*^9, 3.993800339865109*^9, 3.993800386335606*^9, { - 3.9940727570366488`*^9, 3.9940727770819397`*^9}}, - CellLabel-> - "Out[146]=",ExpressionUUID->"e846e95d-954a-48dc-80ae-91a4eba073e4"] + 3.9940727570366488`*^9, 3.9940727770819397`*^9}, 3.994250061551929*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"dffc5550-7e19-4d0c-9bf0-ab05d6803fc7"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, - CellLabel-> - "In[147]:=",ExpressionUUID->"e323b8e5-b165-42fd-bd1d-f72a0311710a"], + CellLabel->"In[44]:=",ExpressionUUID->"e323b8e5-b165-42fd-bd1d-f72a0311710a"], Cell[CellGroupData[{ @@ -938,21 +884,18 @@ Cell[BoxData[ RowBox[{"nn2", "=", "0.6347"}]], "Input", CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, 3.9917993660901737`*^9, {3.993799431418026*^9, 3.9937994366447783`*^9}}, - CellLabel-> - "In[148]:=",ExpressionUUID->"ef937faa-6526-4c6d-b9fd-abd440b044d7"], + CellLabel->"In[45]:=",ExpressionUUID->"ef937faa-6526-4c6d-b9fd-abd440b044d7"], Cell[BoxData["0.6347`"], "Output", CellChangeTimes->{ 3.99379974807285*^9, 3.993800339960155*^9, 3.9938003863606977`*^9, { - 3.99407275705245*^9, 3.994072777095529*^9}}, - CellLabel-> - "Out[148]=",ExpressionUUID->"9491fca3-be3b-4ef5-b141-de4713014317"] + 3.99407275705245*^9, 3.994072777095529*^9}, 3.994250061573483*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"36bb83d0-bd96-4462-a14f-c3d357284956"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, - CellLabel-> - "In[149]:=",ExpressionUUID->"775a1f2a-6613-4b5e-a2b7-9ef32d347ccc"], + CellLabel->"In[46]:=",ExpressionUUID->"775a1f2a-6613-4b5e-a2b7-9ef32d347ccc"], Cell[CellGroupData[{ @@ -1441,15 +1384,14 @@ uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== "], - CellLabel-> - "In[150]:=",ExpressionUUID->"33dcf5de-30c1-4086-a032-fdc16d3793ff"], + CellLabel->"In[47]:=",ExpressionUUID->"33dcf5de-30c1-4086-a032-fdc16d3793ff"], Cell[BoxData["0.33523276963055626`"], "Output", CellChangeTimes->{ 3.991319787430073*^9, 3.9937997481547623`*^9, 3.993800340061625*^9, - 3.9938003864136953`*^9, {3.994072757136285*^9, 3.994072777132966*^9}}, - CellLabel-> - "Out[150]=",ExpressionUUID->"554e9553-9a47-4e8e-ae78-f9d896bff6da"] + 3.9938003864136953`*^9, {3.994072757136285*^9, 3.994072777132966*^9}, + 3.994250061712865*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"72baf27d-17d8-4fcf-81ea-2c8f16abf966"] }, Open ]], Cell[CellGroupData[{ @@ -1943,15 +1885,14 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[151]:=",ExpressionUUID->"37157007-87f9-433a-934e-afcd7d837681"], + CellLabel->"In[48]:=",ExpressionUUID->"37157007-87f9-433a-934e-afcd7d837681"], Cell[BoxData["10.264944924096582`"], "Output", CellChangeTimes->{ 3.991319787574972*^9, 3.9937997481878023`*^9, 3.993800340089472*^9, - 3.993800386441668*^9, {3.994072757163142*^9, 3.9940727771627817`*^9}}, - CellLabel-> - "Out[151]=",ExpressionUUID->"f9042548-d4f1-4633-b8fe-325515204124"] + 3.993800386441668*^9, {3.994072757163142*^9, 3.9940727771627817`*^9}, + 3.994250061777731*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"9ec0d7b6-c4e8-4e96-a112-f48b8a973024"] }, Open ]], Cell[CellGroupData[{ @@ -2439,16 +2380,15 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[152]:=",ExpressionUUID->"cbce29c6-d5f0-4079-b69a-316750619c33"], + CellLabel->"In[49]:=",ExpressionUUID->"cbce29c6-d5f0-4079-b69a-316750619c33"], Cell[BoxData[ RowBox[{"-", "28.42814742925769`"}]], "Output", CellChangeTimes->{ 3.991319787641424*^9, 3.993799748217864*^9, 3.993800340114811*^9, - 3.993800386467917*^9, {3.99407275718851*^9, 3.994072777190625*^9}}, - CellLabel-> - "Out[152]=",ExpressionUUID->"ec803f19-77a4-451a-a497-3aff1ab4ad81"] + 3.993800386467917*^9, {3.99407275718851*^9, 3.994072777190625*^9}, + 3.994250061836837*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"86fefbed-554e-4a60-a345-bd23f49f92ab"] }, Open ]], Cell[CellGroupData[{ @@ -3006,16 +2946,15 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[153]:=",ExpressionUUID->"5e6efd56-b9fc-4cb9-a2bf-8dbec57046f4"], + CellLabel->"In[50]:=",ExpressionUUID->"5e6efd56-b9fc-4cb9-a2bf-8dbec57046f4"], Cell[BoxData[ RowBox[{"-", "38.363033654277935`"}]], "Output", CellChangeTimes->{ 3.991319787711939*^9, 3.9937997482559977`*^9, 3.993800340146491*^9, - 3.993800386499661*^9, {3.9940727572190027`*^9, 3.994072777223873*^9}}, - CellLabel-> - "Out[153]=",ExpressionUUID->"f0cd64da-9066-49d7-ad54-3c194a27ca05"] + 3.993800386499661*^9, {3.9940727572190027`*^9, 3.994072777223873*^9}, + 3.994250061914803*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"b1122b62-ff52-47ac-834d-0f70789faeef"] }, Open ]], Cell[CellGroupData[{ @@ -3573,16 +3512,15 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[154]:=",ExpressionUUID->"e446c689-203e-44f7-88e0-59b47e73a184"], + CellLabel->"In[51]:=",ExpressionUUID->"e446c689-203e-44f7-88e0-59b47e73a184"], Cell[BoxData[ RowBox[{"-", "84.97316533656249`"}]], "Output", CellChangeTimes->{ 3.9913197877723045`*^9, 3.993799748294525*^9, 3.993800340178175*^9, - 3.9938003865308523`*^9, {3.994072757249708*^9, 3.994072777255313*^9}}, - CellLabel-> - "Out[154]=",ExpressionUUID->"86c0e4c3-e912-44b5-8fb7-e6f6f34c496a"] + 3.9938003865308523`*^9, {3.994072757249708*^9, 3.994072777255313*^9}, + 3.994250061999448*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"ee3474c2-e520-450c-805e-90deb30615c3"] }, Open ]], Cell[CellGroupData[{ @@ -4213,46 +4151,43 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[155]:=",ExpressionUUID->"1fbefbe3-e232-48fa-ae3b-37a17b8f8ea4"], + CellLabel->"In[52]:=",ExpressionUUID->"1fbefbe3-e232-48fa-ae3b-37a17b8f8ea4"], Cell[BoxData[ RowBox[{"-", "228.76196692780508`"}]], "Output", CellChangeTimes->{ 3.991319787833355*^9, 3.993799748333426*^9, 3.9938003402193203`*^9, - 3.9938003865686073`*^9, {3.9940727572851143`*^9, 3.9940727772935343`*^9}}, - CellLabel-> - "Out[155]=",ExpressionUUID->"645c3cfb-98bd-4e97-8e01-c84d8e183548"] + 3.9938003865686073`*^9, {3.9940727572851143`*^9, 3.9940727772935343`*^9}, + 3.994250062098936*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"0c38468e-f693-4a87-b914-a95e6267195f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U21", "=", "0"}]], "Input", - CellLabel-> - "In[156]:=",ExpressionUUID->"1ea0b391-7051-41c6-b267-ad38df240b25"], + CellLabel->"In[53]:=",ExpressionUUID->"1ea0b391-7051-41c6-b267-ad38df240b25"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210013676`*^9, 3.993799748353148*^9, 3.993800340246324*^9, - 3.993800386583934*^9, {3.99407275729825*^9, 3.994072777306653*^9}}, - CellLabel-> - "Out[156]=",ExpressionUUID->"e2025780-6d30-45a7-859a-1252b5386a47"] + 3.993800386583934*^9, {3.99407275729825*^9, 3.994072777306653*^9}, + 3.994250062126047*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"351439bf-0ef2-4afb-ab87-dd574898455c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U22", "=", "0"}]], "Input", - CellLabel-> - "In[157]:=",ExpressionUUID->"bc0759f8-5808-4896-a886-6130d342c500"], + CellLabel->"In[54]:=",ExpressionUUID->"bc0759f8-5808-4896-a886-6130d342c500"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210355663`*^9, 3.993799748372961*^9, 3.9938003402680492`*^9, - 3.993800386599262*^9, {3.99407275730969*^9, 3.994072777318306*^9}}, - CellLabel-> - "Out[157]=",ExpressionUUID->"7ca2b40b-2b31-4ab8-b4e1-dff179fa8e08"] + 3.993800386599262*^9, {3.99407275730969*^9, 3.994072777318306*^9}, + 3.99425006214202*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"699cbe30-925d-48cb-9c70-c937613c6f5a"] }, Open ]], Cell[CellGroupData[{ @@ -4296,15 +4231,14 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[158]:=",ExpressionUUID->"2fc25094-c27a-4aea-ba6c-c1a9dd39eb17"], + CellLabel->"In[55]:=",ExpressionUUID->"2fc25094-c27a-4aea-ba6c-c1a9dd39eb17"], Cell[BoxData["185.79450939883742`"], "Output", CellChangeTimes->{ 3.991320421068556*^9, 3.9937997483941936`*^9, 3.9938003402909203`*^9, - 3.99380038661649*^9, {3.9940727573211393`*^9, 3.994072777330056*^9}}, - CellLabel-> - "Out[158]=",ExpressionUUID->"7bd1b904-1357-40b2-953c-9286ed57fce2"] + 3.99380038661649*^9, {3.9940727573211393`*^9, 3.994072777330056*^9}, + 3.994250062160152*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"534edbe6-82f8-491c-a75b-4bd9fdc9ad05"] }, Open ]], Cell[CellGroupData[{ @@ -4344,16 +4278,15 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[159]:=",ExpressionUUID->"952e94b7-ae20-4a86-b69f-95dc94aca03f"], + CellLabel->"In[56]:=",ExpressionUUID->"952e94b7-ae20-4a86-b69f-95dc94aca03f"], Cell[BoxData[ RowBox[{"-", "142.60312447586276`"}]], "Output", CellChangeTimes->{ 3.991320421098543*^9, 3.9937997484173307`*^9, 3.993800340312326*^9, - 3.993800386633136*^9, {3.99407275733285*^9, 3.994072777341887*^9}}, - CellLabel-> - "Out[159]=",ExpressionUUID->"8f00a4d2-9c6f-4248-a658-3f7dad19dcac"] + 3.993800386633136*^9, {3.99407275733285*^9, 3.994072777341887*^9}, + 3.994250062177204*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"dd5ee609-79e1-4c9c-ab67-d54170c9c2b3"] }, Open ]], Cell[CellGroupData[{ @@ -4397,101 +4330,94 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[160]:=",ExpressionUUID->"f1116627-b3ef-4e77-b1d2-9cd33c412513"], + CellLabel->"In[57]:=",ExpressionUUID->"f1116627-b3ef-4e77-b1d2-9cd33c412513"], Cell[BoxData["169.9317606773619`"], "Output", CellChangeTimes->{ 3.9913204211275444`*^9, 3.993799748440692*^9, 3.993800340332926*^9, - 3.99380038664979*^9, {3.994072757344488*^9, 3.994072777353434*^9}}, - CellLabel-> - "Out[160]=",ExpressionUUID->"ffaedbbb-6d60-4892-998a-ea8bb02af8e3"] + 3.99380038664979*^9, {3.994072757344488*^9, 3.994072777353434*^9}, + 3.994250062236772*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"17567946-c623-4934-82ef-4de423ec6836"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c11"], "Input", - CellLabel-> - "In[161]:=",ExpressionUUID->"c0f5426f-7a9c-4959-85bb-7bc993820ff6"], + CellLabel->"In[58]:=",ExpressionUUID->"c0f5426f-7a9c-4959-85bb-7bc993820ff6"], Cell[BoxData["0.5126444245586296`"], "Output", CellChangeTimes->{ 3.9913204211385536`*^9, 3.9937997484629087`*^9, 3.9938003403521013`*^9, - 3.9938003866670628`*^9, {3.994072757355731*^9, 3.994072777364881*^9}}, - CellLabel-> - "Out[161]=",ExpressionUUID->"b3aa29c5-9dbf-42c0-bae0-23c6a9df3e8a"] + 3.9938003866670628`*^9, {3.994072757355731*^9, 3.994072777364881*^9}, + 3.994250062252656*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"88ded308-bb63-4971-804f-32899061bb92"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c12"], "Input", - CellLabel-> - "In[162]:=",ExpressionUUID->"6fc4fd42-1a69-43a0-9534-52e20defb714"], + CellLabel->"In[59]:=",ExpressionUUID->"6fc4fd42-1a69-43a0-9534-52e20defb714"], Cell[BoxData[ RowBox[{"-", "0.12490541136574432`"}]], "Output", CellChangeTimes->{ 3.9913204211683464`*^9, 3.9937997484829597`*^9, 3.993800340372787*^9, - 3.993800386684751*^9, {3.994072759775218*^9, 3.994072777376302*^9}}, - CellLabel-> - "Out[162]=",ExpressionUUID->"498cd0ff-6197-4a1c-b7ee-992974ad6dfa"] + 3.993800386684751*^9, {3.994072759775218*^9, 3.994072777376302*^9}, + 3.994250062265952*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"24db7546-ce1f-47b8-81c5-f0979ccd1b61"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c21"], "Input", - CellLabel-> - "In[163]:=",ExpressionUUID->"6d885b64-9c4e-4f98-9fa1-af62a3068ed9"], + CellLabel->"In[60]:=",ExpressionUUID->"6d885b64-9c4e-4f98-9fa1-af62a3068ed9"], Cell[BoxData[ RowBox[{"-", "0.47786808677187637`"}]], "Output", CellChangeTimes->{ 3.991320421199068*^9, 3.993799748505329*^9, 3.9938003403919477`*^9, - 3.9938003866995373`*^9, {3.9940727599543447`*^9, 3.9940727773879633`*^9}}, - CellLabel-> - "Out[163]=",ExpressionUUID->"facae4c2-0f81-4164-a649-a08dd288d0d8"] + 3.9938003866995373`*^9, {3.9940727599543447`*^9, 3.9940727773879633`*^9}, + 3.994250062277645*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"34ed6513-7488-42ea-b511-bf699c0aef12"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c22"], "Input", - CellLabel-> - "In[164]:=",ExpressionUUID->"fd9f54e2-fa04-4a66-914c-d953be1f87db"], + CellLabel->"In[61]:=",ExpressionUUID->"fd9f54e2-fa04-4a66-914c-d953be1f87db"], Cell[BoxData["0.6637051934091774`"], "Output", CellChangeTimes->{ 3.991320421228037*^9, 3.99379974852349*^9, 3.993800340409604*^9, - 3.993800386721094*^9, {3.994072759966642*^9, 3.994072777399509*^9}}, - CellLabel-> - "Out[164]=",ExpressionUUID->"5bbef036-2753-426a-8a81-a4cb4cf2d05d"] + 3.993800386721094*^9, {3.994072759966642*^9, 3.994072777399509*^9}, + 3.994250062289627*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"a855257e-90da-4d69-8c40-2c3b3508d963"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w1"], "Input", - CellLabel-> - "In[165]:=",ExpressionUUID->"ea5c33f4-98dc-43a4-bbd2-08ba8cace152"], + CellLabel->"In[62]:=",ExpressionUUID->"ea5c33f4-98dc-43a4-bbd2-08ba8cace152"], Cell[BoxData["2.0171665757171935`"], "Output", CellChangeTimes->{ 3.9913204212585373`*^9, 3.993799748542218*^9, 3.993800340426003*^9, - 3.9938003867354116`*^9, {3.9940727599787703`*^9, 3.9940727774113617`*^9}}, - CellLabel-> - "Out[165]=",ExpressionUUID->"8c5f615a-d20c-4013-9c91-6b386265fe6f"] + 3.9938003867354116`*^9, {3.9940727599787703`*^9, 3.9940727774113617`*^9}, + 3.994250062302855*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"dece97d6-0308-4620-95f9-9d38e75eadc5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w2"], "Input", - CellLabel-> - "In[166]:=",ExpressionUUID->"ca50af90-ab4d-4174-8461-c4aedcc44cca"], + CellLabel->"In[63]:=",ExpressionUUID->"ca50af90-ab4d-4174-8461-c4aedcc44cca"], Cell[BoxData["1.5074639495621045`"], "Output", CellChangeTimes->{ 3.9913204212884274`*^9, 3.9937997485616417`*^9, 3.99380034044471*^9, - 3.9938003867502003`*^9, {3.9940727599906197`*^9, 3.994072777422779*^9}}, - CellLabel-> - "Out[166]=",ExpressionUUID->"57ed2d89-539c-4aff-b653-59f438fa4d11"] + 3.9938003867502003`*^9, {3.9940727599906197`*^9, 3.994072777422779*^9}, + 3.99425006231584*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"4cc70d1c-5b67-4980-afde-93c8582d50f5"] }, Open ]], Cell[CellGroupData[{ @@ -4512,16 +4438,15 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", - CellLabel-> - "In[167]:=",ExpressionUUID->"8f0170f3-c84b-4dd3-a038-308f947cfa90"], + CellLabel->"In[64]:=",ExpressionUUID->"8f0170f3-c84b-4dd3-a038-308f947cfa90"], Cell[BoxData[ RowBox[{"-", "30.893583323663808`"}]], "Output", CellChangeTimes->{ 3.9913204213185234`*^9, 3.993799748579701*^9, 3.9938003404617233`*^9, - 3.993800386765017*^9, {3.994072760002514*^9, 3.994072777434401*^9}}, - CellLabel-> - "Out[167]=",ExpressionUUID->"1bc5ea38-4211-467a-bd42-7548ba7918e2"] + 3.993800386765017*^9, {3.994072760002514*^9, 3.994072777434401*^9}, + 3.994250062331781*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"f55e5888-e4ce-4e1b-9b60-632a83a97efa"] }, Open ]], Cell[CellGroupData[{ @@ -4542,16 +4467,15 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", - CellLabel-> - "In[168]:=",ExpressionUUID->"e62bac68-407c-40d4-a100-927a3414f6a3"], + CellLabel->"In[65]:=",ExpressionUUID->"e62bac68-407c-40d4-a100-927a3414f6a3"], Cell[BoxData[ RowBox[{"-", "7.926031139913374`"}]], "Output", CellChangeTimes->{ 3.991320421349531*^9, 3.993799748598835*^9, 3.993800340479863*^9, - 3.9938003867807913`*^9, {3.994072760013989*^9, 3.994072777446135*^9}}, - CellLabel-> - "Out[168]=",ExpressionUUID->"2854754e-4887-40ae-958b-faea877e1549"] + 3.9938003867807913`*^9, {3.994072760013989*^9, 3.994072777446135*^9}, + 3.994250062347278*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"679dce03-70e6-4425-b203-2d288e2cac6c"] }, Open ]], Cell[CellGroupData[{ @@ -4616,15 +4540,14 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[169]:=",ExpressionUUID->"db672236-3860-410a-9ac6-1ba0968cab8b"], + CellLabel->"In[66]:=",ExpressionUUID->"db672236-3860-410a-9ac6-1ba0968cab8b"], Cell[BoxData["154.9009260751736`"], "Output", CellChangeTimes->{ 3.9913204213784294`*^9, 3.993799748618464*^9, 3.993800340498665*^9, - 3.993800386794903*^9, {3.994072760026211*^9, 3.994072777457891*^9}}, - CellLabel-> - "Out[169]=",ExpressionUUID->"18d21d9f-8f5e-4ca8-bb46-a0b904002054"] + 3.993800386794903*^9, {3.994072760026211*^9, 3.994072777457891*^9}, + 3.994250062364954*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"459fff9a-6957-406c-8723-69dc8c8a060b"] }, Open ]], Cell[CellGroupData[{ @@ -4665,16 +4588,15 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[170]:=",ExpressionUUID->"b7ab66c3-3a24-4b45-9b4e-c1f45443ebd1"], + CellLabel->"In[67]:=",ExpressionUUID->"b7ab66c3-3a24-4b45-9b4e-c1f45443ebd1"], Cell[BoxData[ RowBox[{"-", "142.60312447586276`"}]], "Output", CellChangeTimes->{ 3.9913204213904285`*^9, 3.993799748639475*^9, 3.993800340517002*^9, - 3.993800386808839*^9, {3.9940727600400333`*^9, 3.994072777469482*^9}}, - CellLabel-> - "Out[170]=",ExpressionUUID->"c8c2a64c-1d02-49eb-9d38-24668121b742"] + 3.993800386808839*^9, {3.9940727600400333`*^9, 3.994072777469482*^9}, + 3.994250062381529*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"7617e0ac-acdd-47c6-9f4e-f7a247ba2ce8"] }, Open ]], Cell[CellGroupData[{ @@ -4740,15 +4662,14 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[171]:=",ExpressionUUID->"adfe5acb-c44b-4e72-99e7-52a72e1d2c01"], + CellLabel->"In[68]:=",ExpressionUUID->"adfe5acb-c44b-4e72-99e7-52a72e1d2c01"], Cell[BoxData["162.00572953744853`"], "Output", CellChangeTimes->{ 3.991320421419428*^9, 3.993799748660536*^9, 3.993800340536582*^9, - 3.993800386822714*^9, {3.994072760046308*^9, 3.994072777481387*^9}}, - CellLabel-> - "Out[171]=",ExpressionUUID->"d3c41d97-b455-4c31-9e1f-ebfdf06c97b3"] + 3.993800386822714*^9, {3.994072760046308*^9, 3.994072777481387*^9}, + 3.9942500623977613`*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"5a8ba0d2-da70-43d4-b3d6-629ee20b688b"] }, Open ]], Cell[CellGroupData[{ @@ -4808,15 +4729,14 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}], ")"}]}], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[172]:=",ExpressionUUID->"e546c35a-9feb-4bb0-aae2-578736342716"], + CellLabel->"In[69]:=",ExpressionUUID->"e546c35a-9feb-4bb0-aae2-578736342716"], Cell[BoxData["110.13261932733474`"], "Output", CellChangeTimes->{ 3.9913204214494324`*^9, 3.993799748682187*^9, 3.9938003405568943`*^9, - 3.993800386836596*^9, {3.994072760058202*^9, 3.994072777493164*^9}}, - CellLabel-> - "Out[172]=",ExpressionUUID->"03f41608-426f-4195-9be8-043baf64bf82"] + 3.993800386836596*^9, {3.994072760058202*^9, 3.994072777493164*^9}, + 3.9942500624101667`*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"f9178990-0daa-4328-bdc7-6dc2eefbc334"] }, Open ]], Cell[CellGroupData[{ @@ -4874,38 +4794,47 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[173]:=",ExpressionUUID->"fb659a8d-2ca5-4096-a57c-86fd22aec0db"], + CellLabel->"In[70]:=",ExpressionUUID->"fb659a8d-2ca5-4096-a57c-86fd22aec0db"], Cell[BoxData["1014.9570765717414`"], "Output", CellChangeTimes->{ 3.991320421481529*^9, 3.993799748705882*^9, 3.9938003405772467`*^9, - 3.993800386850522*^9, {3.994072760069648*^9, 3.994072777505143*^9}}, - CellLabel-> - "Out[173]=",ExpressionUUID->"497ac604-6e52-4a5e-9bd2-bde145db5644"] + 3.993800386850522*^9, {3.994072760069648*^9, 3.994072777505143*^9}, + 3.994250062422676*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"1908ada1-7e66-4ef7-a6c3-a8397f834f67"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"f1", "=", "0.8175322239"}]], "Input", - CellChangeTimes->{3.9918496921150837`*^9, - 3.9940826242947817`*^9},ExpressionUUID->"ede64bc2-06f7-8743-a0a6-\ -6f058773310c"], + CellChangeTimes->{3.9918496921150837`*^9, 3.9940826242947817`*^9}, + CellLabel->"In[71]:=",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], + +Cell[BoxData["0.8175322239`"], "Output", + CellChangeTimes->{3.9942500624335423`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"0e2ddb0c-a467-4fc7-96f1-a2f379180ba3"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918496892276516`*^9, - 3.9918496892324924`*^9}},ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-\ -c82e80965ca9"], + CellChangeTimes->{{3.9918496892276516`*^9, 3.9918496892324924`*^9}}, + CellLabel->"In[72]:=",ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-c82e80965ca9"], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f2", "=", "0.6825411178"}]], "Input", - CellChangeTimes->{3.991849690724144*^9, - 3.9940826304235287`*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ -7dc8ec78e5b4"], + CellChangeTimes->{3.991849690724144*^9, 3.9940826304235287`*^9}, + CellLabel->"In[73]:=",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], + +Cell[BoxData["0.6825411178`"], "Output", + CellChangeTimes->{3.9942500624520273`*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"07238160-a807-4be4-93a7-1cd7845b788b"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991849693382303*^9, - 3.991849693386299*^9}},ExpressionUUID->"b3364ab6-86a4-7a46-ae33-\ -623392314869"], + CellChangeTimes->{{3.991849693382303*^9, 3.991849693386299*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], Cell[CellGroupData[{ @@ -4951,13 +4880,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel-> - "In[316]:=",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], + CellLabel->"In[75]:=",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], -Cell[BoxData["2.3793916761039797`*^-53"], "Output", - CellChangeTimes->{3.991339230528511*^9}, - CellLabel-> - "Out[316]=",ExpressionUUID->"b2b0fbe6-496d-0b4b-a132-3f215e541d44"] +Cell[BoxData["1.3128345860136716`*^-53"], "Output", + CellChangeTimes->{3.991339230528511*^9, 3.994250062475832*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"6a36a924-088e-4df0-b166-c54e176d4b20"] }, Open ]], Cell[CellGroupData[{ @@ -4991,14 +4918,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.991557615205345*^9},ExpressionUUID->"35e76fc7-2f05-694a-b379-\ -67189aa511ad"], + CellChangeTimes->{3.991557615205345*^9}, + CellLabel->"In[76]:=",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], -Cell[BoxData["2.192147584896785`*^-54"], "Output", - CellChangeTimes->{3.991339230554512*^9}, - CellLabel-> - "Out[317]=",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] +Cell[BoxData["1.0350102939220992`*^-54"], "Output", + CellChangeTimes->{3.991339230554512*^9, 3.994250062490329*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"e53ad6ca-4e92-4392-820e-238393d84fd5"] }, Open ]], Cell[CellGroupData[{ @@ -5031,14 +4956,12 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.991557618917984*^9, - 3.9915576208320503`*^9}},ExpressionUUID->"a10e19cd-f567-6b4d-a841-\ -5f01117db38b"], + CellChangeTimes->{{3.991557618917984*^9, 3.9915576208320503`*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], -Cell[BoxData["3.508823705223133`*^-54"], "Output", - CellChangeTimes->{3.9913392305796223`*^9}, - CellLabel-> - "Out[318]=",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] +Cell[BoxData["4.011633905914121`*^-54"], "Output", + CellChangeTimes->{3.9913392305796223`*^9, 3.9942500625058613`*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"526bccfc-d39c-4e5f-bf54-021b1619f841"] }, Open ]], Cell[CellGroupData[{ @@ -5061,13 +4984,11 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel-> - "In[319]:=",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], + CellLabel->"In[78]:=",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], -Cell[BoxData["44.37747929594205`"], "Output", - CellChangeTimes->{3.9913392305906105`*^9}, - CellLabel-> - "Out[319]=",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] +Cell[BoxData["44.5925576413569`"], "Output", + CellChangeTimes->{3.9913392305906105`*^9, 3.994250062520545*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"cc52b2c2-ab5a-4e3f-8faa-bd4650ded3db"] }, Open ]], Cell[CellGroupData[{ @@ -5093,13 +5014,11 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Il"}], ")"}], "*", RowBox[{"(", RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", - CellLabel-> - "In[320]:=",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], + CellLabel->"In[79]:=",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], -Cell[BoxData["102.55835649176893`"], "Output", - CellChangeTimes->{3.99133923061561*^9}, - CellLabel-> - "Out[320]=",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] +Cell[BoxData["101.39306327109246`"], "Output", + CellChangeTimes->{3.99133923061561*^9, 3.994250062536873*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"0632710e-c031-447d-bc2e-d28c31239ce6"] }, Open ]], Cell[CellGroupData[{ @@ -5108,13 +5027,11 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel-> - "In[321]:=",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], + CellLabel->"In[80]:=",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], -Cell[BoxData["0.5630879721742558`"], "Output", - CellChangeTimes->{3.9913392306426105`*^9}, - CellLabel-> - "Out[321]=",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +Cell[BoxData["1.571544897820755`"], "Output", + CellChangeTimes->{3.9913392306426105`*^9, 3.9942500625485783`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"d47956e8-efda-49d4-bffb-dbd5c2b68cc8"] }, Open ]], Cell[CellGroupData[{ @@ -5123,13 +5040,11 @@ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", - CellLabel-> - "In[322]:=",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], + CellLabel->"In[81]:=",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], -Cell[BoxData["1.956498159343112`"], "Output", - CellChangeTimes->{3.99133923065361*^9}, - CellLabel-> - "Out[322]=",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +Cell[BoxData["3.163877907419795`"], "Output", + CellChangeTimes->{3.99133923065361*^9, 3.994250062559721*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"46a314d6-7655-4f61-ba5b-97c06c3100ed"] }, Open ]], Cell[CellGroupData[{ @@ -5138,13 +5053,11 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel-> - "In[323]:=",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], + CellLabel->"In[82]:=",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], -Cell[BoxData["200.65523570140064`"], "Output", - CellChangeTimes->{3.9913392306776104`*^9}, - CellLabel-> - "Out[323]=",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +Cell[BoxData["320.7952728490269`"], "Output", + CellChangeTimes->{3.9913392306776104`*^9, 3.9942500625767593`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"d5b65a6b-8ef8-484c-9466-1bf26a67ea82"] }, Open ]], Cell[CellGroupData[{ @@ -5153,13 +5066,11 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[324]:=",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], + CellLabel->"In[83]:=",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], -Cell[BoxData["24.98842482695703`"], "Output", - CellChangeTimes->{3.991339230703802*^9}, - CellLabel-> - "Out[324]=",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +Cell[BoxData["70.07920644205235`"], "Output", + CellChangeTimes->{3.991339230703802*^9, 3.994250062592094*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"0d225614-1eac-4aca-acf7-88a1ab596d98"] }, Open ]], Cell[CellGroupData[{ @@ -5348,13 +5259,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[325]:=",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], + CellLabel->"In[84]:=",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], -Cell[BoxData["0.01829601703069907`"], "Output", - CellChangeTimes->{3.9913392307297993`*^9}, - CellLabel-> - "Out[325]=",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +Cell[BoxData["0.0031253015752159955`"], "Output", + CellChangeTimes->{3.9913392307297993`*^9, 3.994250062611906*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"4955db75-32a4-4eae-b3f8-31f213e06ef8"] }, Open ]], Cell[CellGroupData[{ @@ -5367,13 +5276,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[326]:=",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], + CellLabel->"In[85]:=",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], -Cell[BoxData["6.551890985609901`"], "Output", - CellChangeTimes->{3.991339230837267*^9}, - CellLabel-> - "Out[326]=",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +Cell[BoxData["15.852544291362566`"], "Output", + CellChangeTimes->{3.991339230837267*^9, 3.994250062848249*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"5e9cbbc6-aad1-47ab-a959-a712b9cf9984"] }, Open ]], Cell[CellGroupData[{ @@ -5564,13 +5471,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[327]:=",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], + CellLabel->"In[86]:=",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], -Cell[BoxData["0.00990105610750653`"], "Output", - CellChangeTimes->{3.9913392308522797`*^9}, - CellLabel-> - "Out[327]=",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +Cell[BoxData["0.01342260397064843`"], "Output", + CellChangeTimes->{3.9913392308522797`*^9, 3.994250062864612*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"58db69d4-b3f7-4d06-b99f-402422969499"] }, Open ]], Cell[CellGroupData[{ @@ -5583,13 +5488,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[328]:=",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], + CellLabel->"In[87]:=",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], -Cell[BoxData["8.906440683949702`"], "Output", - CellChangeTimes->{3.991339230966341*^9}, - CellLabel-> - "Out[328]=",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +Cell[BoxData["7.649385571905782`"], "Output", + CellChangeTimes->{3.991339230966341*^9, 3.994250062939207*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"35279e0d-1f51-4cdf-b15a-c44b6e83fae5"] }, Open ]], Cell[CellGroupData[{ @@ -5681,13 +5584,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[329]:=",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], + CellLabel->"In[88]:=",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.991339230988348*^9}, - CellLabel-> - "Out[329]=",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +Cell[BoxData["0.11740719062544083`"], "Output", + CellChangeTimes->{3.991339230988348*^9, 3.9942500629550533`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"4891f087-ef30-484b-918d-43bc828a77ee"] }, Open ]], Cell[CellGroupData[{ @@ -5776,13 +5677,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[330]:=",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], + CellLabel->"In[89]:=",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.991339231030445*^9}, - CellLabel-> - "Out[330]=",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +Cell[BoxData["0.8825928093745592`"], "Output", + CellChangeTimes->{3.991339231030445*^9, 3.994250062969652*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"62c5a839-f289-4e7a-9ec2-fa222943beb7"] }, Open ]], Cell[CellGroupData[{ @@ -5904,19 +5803,17 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel-> - "In[331]:=",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], + CellLabel->"In[90]:=",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.991339231060343*^9}, - CellLabel-> - "Out[331]=",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] +Cell[BoxData["0.10362274221488223`"], "Output", + CellChangeTimes->{3.991339231060343*^9, 3.994250062986413*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"6c57c661-d18a-44e8-9195-c3df5e3c3fcf"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"0055f95b-c532-\ -e24d-bdc4-544ea2d2fbd9"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], Cell[CellGroupData[{ @@ -5977,68 +5874,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918497046469917`*^9},ExpressionUUID->"574b810b-aa4a-d545-b080-\ -c44fbe83a713"], + CellChangeTimes->{3.9918497046469917`*^9}, + CellLabel->"In[92]:=",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 332, 325, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392310873375`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.35690539777802`*^-218\\\", \ +RowBox[{\\\"4160735933984357432554811027341847802665\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"13\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3770116038587316426506240000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 1, + 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392310873375`*^9, 3.994250063025969*^9}, CellLabel-> "During evaluation of \ -In[332]:=",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], +In[92]:=",ExpressionUUID->"0f323f44-3ab0-4d46-8bd7-68dc8bf68f2f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 332, 326, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392310973415`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4383364589432824`*^-223\\\", \ +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 2, + 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392310873375`*^9, 3.994250063047864*^9}, CellLabel-> "During evaluation of \ -In[332]:=",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], +In[92]:=",ExpressionUUID->"19663d0a-b4a3-4f76-877e-bd552bc45507"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 332, 327, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339231105339*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.861953152996911`*^-229\\\", \ +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 3, + 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392310873375`*^9, 3.9942500630560303`*^9}, CellLabel-> "During evaluation of \ -In[332]:=",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], +In[92]:=",ExpressionUUID->"b7a2220e-ea35-4c20-90a6-f0baa4cc28cf"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 332, 328, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392311143417`*^9}, +during this calculation.\"", 2, 92, 4, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392310873375`*^9, 3.994250063064185*^9}, CellLabel-> "During evaluation of \ -In[332]:=",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], +In[92]:=",ExpressionUUID->"03cfeb2f-58b0-42ef-90f2-abd644c04bb3"], -Cell[BoxData["6.551890985609901`"], "Output", - CellChangeTimes->{3.9913392346332226`*^9}, - CellLabel-> - "Out[332]=",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +Cell[BoxData["15.852544291362573`"], "Output", + CellChangeTimes->{3.9913392346332226`*^9, 3.9942500655849247`*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"f025a112-1e41-4ae2-b26e-1440feab8758"] }, Open ]], Cell[CellGroupData[{ @@ -6100,68 +6002,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849710877041*^9},ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-\ -656c90598e75"], + CellChangeTimes->{3.991849710877041*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 333, 329, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339234667631*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.35690539777802`*^-218\\\", \ +RowBox[{\\\"4160735933984357432554811027341847802665\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"13\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3770116038587316426506240000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 5, + 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339234667631*^9, 3.994250065704913*^9}, CellLabel-> "During evaluation of \ -In[333]:=",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], +In[93]:=",ExpressionUUID->"f53f2077-cd85-4b11-b5bd-600f1107965b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 333, 330, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339234676628*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4383364589432824`*^-223\\\", \ +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 6, + 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339234667631*^9, 3.994250065713448*^9}, CellLabel-> "During evaluation of \ -In[333]:=",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], +In[93]:=",ExpressionUUID->"58afb364-84d4-4f9d-b69b-bf8a3c05ee34"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 333, 331, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339234685627*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.861953152996911`*^-229\\\", \ +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 7, + 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339234667631*^9, 3.994250065721469*^9}, CellLabel-> "During evaluation of \ -In[333]:=",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], +In[93]:=",ExpressionUUID->"88829e2e-7b04-4480-b515-ae3f9a42a2cd"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 333, 332, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133923469363*^9}, +during this calculation.\"", 2, 93, 8, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339234667631*^9, 3.994250065729555*^9}, CellLabel-> "During evaluation of \ -In[333]:=",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], +In[93]:=",ExpressionUUID->"0547cd7b-f846-447f-bd0f-b1732001f7dd"], -Cell[BoxData["8.906440683949707`"], "Output", - CellChangeTimes->{3.99133923819088*^9}, - CellLabel-> - "Out[333]=",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +Cell[BoxData["7.649385571905775`"], "Output", + CellChangeTimes->{3.99133923819088*^9, 3.994250068074842*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"4be0d77a-116f-4562-8cab-e8edc61d3d42"] }, Open ]], Cell[CellGroupData[{ @@ -6171,138 +6078,141 @@ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ - FractionBox[ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", RowBox[{ - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", - RowBox[{"Cos", "[", - FractionBox[ - RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], - RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849713921898*^9},ExpressionUUID->"9c540ba7-8bb4-ef46-919c-\ -62296271f174"], + CellChangeTimes->{3.991849713921898*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK -Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee -8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 -s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP -tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey -E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP -HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay -ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje -fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh -OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n -13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP -WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl -4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ -U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 -tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P -s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 -mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 -t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 -O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy -xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ -Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH -N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv -mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR -gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 -99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA -+m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC -ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ -7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN -v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q -bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 -ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 -KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs -LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW -pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi -ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj -oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O -7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu -/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf -OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 -8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a -z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 -P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg -g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB -KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM -y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx -8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR -3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky -bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD -jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 -wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 -GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB -LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV -Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL -kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN -fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG -xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu -t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 -uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 -PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV -XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H -Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym -mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy -vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ -EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF -DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu -bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG -TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I -9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw -2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 -/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb -7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om -QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD -whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz -9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i -i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk4VtsXB3CZGpCQKUMZu5SSV0phrUIakJKSSrzDqVQqyZVEMjQYMjX+ +KgqRDMkYUkquyk2zcjM7r1nG85rSb/vjPOf5POvs71l777OPBvvYdp6wkJBQ +B7mm7yfeL1tc+OG9xT3ps3HccBos+pJXsq0yQIV3qXLaTQkm8dpWpZDak76f +R+zA/VdckvUaXqY3u1LEOb6Br8SsqqHogUHFAeJLlUovAtM/wmRX1JVDxE8/ +nLg7afQV8kPEyg8Td9W99T9d8h0sQ2KcPYkX0Fp7GMuf8HLSaOcJ4i2//E1P +VjfCKdGup97EZZNdEr7pzeCYVxDsS/wtSPFMgWcrRP91M9efuE/cqmvYiAb5 +czGbgojFI47vZgn4MPAzwTqMWF3mTtWJkg74w6lIDSe2V2Ee9Fn2wIo4h7vX +ialETQWDWX0gEl9kdJc4UGdr6OHqX7D6+CqDFOLvil9WeKcPQE6E3448Yq6L +x6G4iEHQN4egUuL+20L3nngOQexDlfmviWdpGswbMBoB5ULVI7XE8dxXNvPk +GZBsWreimXhR6u7A5QIG7n0J3NtNvHppWN/RklH418GGFoqg4aBJY3WX5ST0 +hEu9MCQe9j0lOkf3N5QMzSgwJz5XImGmN2sKDL/IyG4hvoGrHx2o/gPfI0Mn +KWJuSpWVV/oM3Hms6lYScXplXFOQijAel0suzyXub3f1j4kQRvVbd+0riP31 +R3Ife4rgfLPBW3zi+GwNrV9GYmg2qPF7eSQNdR96yqaSxJCfL+xkSbxosNBl +rrw4xpwXl9tFnGFsH2sgEEff86fLA4krnvrNOFIyC01r1Dq+Eo+8+tzYYSmJ +hY19e69G0SBrKznvTJkkvpzLWOcQG36xQilTKUzhzk/9l9ijLT9xxbK56MS5 +9XHmFRqOC1cbmkvOQ8Ok9n+CiGnNrIFQRgZlDb3XREST9aHezq5hyeJyc4+U +bGLhR3wNpROyaPbi4sXPxItYC7end8vix9lWhaoxNLhYRj953ySH/oXfCvKI +azheJxXfyeOwRixMxNLQkBoV7jZLAXt2pRvoxtHQ052e9NBaAU1cheK3Ec/x +bv289oUCLn5++M1DYquQHcZu+Yp4q+9Q7f54GoqTTUbSEpSRmssOarlKQzI9 +7rPGWw03OIkqr79Jw0anCw0nM9VwfFuliS9xT4Xchky+GoquinyWRWycvFR+ +0W51dNIxFFe7RdaT7ZorZrEQM/RHg6eIB381/d0RvAgnAmeyvt6mQe6oVV6u +nSb+Xe1z+GMiDfzkOQcdPDTxn+f6mfPv0VD084NKb5gmvspVdXYm3mu7L1j3 +hSbmX3rZ2UScvMRn+00jLXSYbT/J3Cfv70rtD1DUxoixZU0mKTTsOCBhsLlZ +B5/dmP1ELJ0G8HEy2vVbB+VFHlzeQawfmrCKq6yLlHpGVRKxUBJrfcA2Xcy1 +nPK2fERDZsOeXU/KdfFc62jUhQxyPndmBC24vxir9a3famaT/qzsvnWx9dCh +Nc8zJY+GJMfr/wkC9LCwWXRMKJ+GKHZzk+j/9DA4dk7nXmLuuVPd6p/1sNJi +3bh8AQ0ypXeEHC31ceHzpOaIQvL9sPr0S7SWoMF4aGVkMQ0qmlcCw9uWovT9 +qIn/XtBQenlYb0zYAIXl+1Xtysl6DO3+QmkYYNwmqqCM+G6Ftt56VwM0y0jY +lvSSBs0DxZ9Gaw0wWzpLz6uCzDeD1qHeLcOQf89zdKtoUFNRpxbtNsS0t7LK +nTU0LE3xlpwAI/QbunjsexMNbG7wiIG9ESrvrNFwbSbnVSu2wW2vEbKFY8zb +iEXuZz+u9DXChKn4nIEWct7udu2IzTFCz/MzI2Ro8j+94XZHT4uFz7sapHid +ZH/DbZc5ixsjfFR12zNIwz0vbYf86pXIKVmoFibGhw8+sCokxRR3TKUKvzXm +g4brV/t9R8yRp+Ro2eLBB96fgiy104hGimqOtsl8UOwumqnIXo/BVaZHLLr4 +4M0y+xmrb4XWT4zhp1E7sHsnq+S6rFEn+duIUFA7ZK4/OTOhxgbrPxp3ZNe3 +Q/KwR3lG/CYUDjlrk7W2A0bXKf1bEbgFz2a56dY/7IB6IZGBZnc7ZH5khYep +d4Kn6rHoIK2tSK9nuU3EdkLWoaoXV0MdcNuFz5vzlLvAb0hZsOTQNqx/M0i5 +J3TByOYNO//Zvx2nju8Ra1zdDaZ7YtbR2xxxuwznldX3bvikfMejgrUDzd9p +3U/z7oEFD4JL0/5ywnun8+u8dHuhqEnf1l5qJzaIyrUJPveC+pf+Az69OzF2 +y263xpA+YF2NyUhq2oU2yT9dRGx/wR3RoWWxr5zx4MvZokri/VCwbnld6NPd +6LnvYpz7iX64seqyzGS6C0r1vS4Pqe+Hmv9SwlgRezA0zd4jwGoA8u1uax8/ +txdFk19qj+YPwMBRRyFP7j6s155ZJa0xCCMb9A72WbqiR6ro4vjLg5DW+2P0 +pMl+dAh0jxufHATneymcfZJueGrOeZdOaghyn2zZL3LBDdvnjOoJfR8CU5VP +Y5fG3LB0SvuMMgyDVtOBuo+H3PE0Z+rWZOIwtEkc3nq71R2nlmHJbfER+BBl +z7FxYuP7dWY3wW0E4n0TJE59YKNbS+qDlOIRKC37M8bZxMG2sjfDFyUYkN6L +F1jFHLx06W227FYGFs3/p0a1lIN52h7ROg4MGFbbKYmXcTAl2uLTqm0MbDfb +8/B7OQcbV97wdXFkIF7V593ZNxzc9yN+041dDCyofyRd9Z2DJmFr3ozsZ0Db +VfHGXgEHX//oTzM5zoCpW19aqDEXueoQ/yqKgQc3+0/am3BRwvBNyJ0rDMz/ +PGihuJqL1rXFDT7RDPRZC76kreXiPN0l7xfHMuT/JTSjej0X5boSr52/ysBc +gcxu2W1cPDC29qHKbQbaIlfOTjjKxYqeNfl1aQxElfgfKnrARRHx3LLgFwwc +Nbpu6pvGxRVnwmxY5QzYPsyZvTqdi7WXDU1aiOdc5z8szOSiVmWQlcUrBkK9 +HLoK8rhokXBM49drBvz1tA/nv+Tij08Xn7PeMeBx/d2RJw1cfK30Jt3mKwOb +5vLNvJq4eFdvRXYr8V+hQlJGLVzsXeEpH/iNAb7XyswcmoufzfvE82oZcLdP +6H3cw8VQ6TI/hToGnMVOemaPc7Fusij8WQMDNicXHM9Q4GGB9K9Lce0MvEwI +2xyrxMPua5qKizsYMKse1PZdwMM124fop8SGOu9+WKrzULSgzaa+kwHl2jOW +/+nwsOu8i7JKDwPda+oV5qzkIYgVfPXqZ+CKcOKzA448dMoe+RozSua/XPKG +nRMPS5xXOEuNMRCyx9eLtYuHUqCmdJHYN89h8R8XHirvj3M4M076p2bEXGPz +MLO8OdF5kgHWWzb39Qkehl2vf9D3h4HaGB0JrWgeBtXLR18QF0AWSB3siOGh +ZvO6iVbikN7hisw4Ur/kUQwzBWC0qSJg9XUeXqqljEeIo4Q4g3Z3eWjjLC7v +PFsAG44l/vDN4GFvjN7p3xICUFO7aGKRxcM4oQSVrZICGH57LE7kMQ89hobn +JRLf1wW7qFwemqgIDYOUAH7X179IKubhYcl3N/+eK4A8W5W091U8dJzJ2Vk5 +TwDh48Ji8W95OOjOXSglIwB2Wpf77moesoZs1zgSzxMtVmmr4eEx41u8euIj +Jc5Xxr7xkL/xVnSnrAC09K/5aNM89Eu1W9o8XwDjtWc/d/J52LHAXkpNXgAf +QnmG2R08DC7bD87EAc3GXaY9PHQYCL1WTVx34/O+rUM8PL09RjpTQQCxM2Ws +/WZQuLcuV9NOSQClg/V7vEUoVHO+lhdM3F6f7uUpRqG86u3DT4nN8qwS2bMp +nH+0bqOmsgD4br4Tm2XI88syyzqJ59lay1rLUcjexvJVXiCAtatk9UCewqJd +3js3EkdLZexkKVMYLSY4lzRdL27MUdGgUGSsOGKrigColIwqeS0K/5R98vAl +jo4+3SitQ+GE1JajicR8Sk5KVI/CCzbGjb3TdTmbgz2GFD4K/nYqQFUAxVNy +gXwjClvcG04lEtOdTVebjMn8QsdvlhOveeH36stqCq0e2dnPUBNA25Es9WdI +4UnzAMqHeK7zmZWF6yn0DbEOiyE2tdxom2NFoU9fy5tHxFHKLadTNlK4wT60 +tJ64SDQ7OmEzyeOcPTxC3PrrTOpNWwqv/1hhIakugNWV8l8jHSgMulFkv4qY +ndPSfWE7hYqVgRFbiCNvZwuf30HhmHpvrytxi9cmQx9nCs0iH6gEE0u5Ktgc +d6HwjV1ne9x03qbWfR57KVwY/bw2aXr8wrPhrm6kX3cFzXLiojmb7zuzKUT2 +Ff/303kjCk+3cymkqiLG66bzmltrbCkKf7pI3OZP51U/5m84SPZDeZb7wHR/ +hWd/owcZb35u08R0/v3N89ceoTB01Qkn0YUkP1JxyUpPChuefA+RJG7xbVu3 +/DiFxbF5tXLEktwcZz0vCp2HhO0XEK/aGnBMy5vCHr2X7QuJ2Wu2hKn5kP2r +6E/WJo7QUbqj6Euh4eXI0L+IC+bRuTJ+FJb6Xb+0hLh5IuethD+FM2qkcgym +89sDmsUCSH3018QyYpNPW0b/BFJ47r65x3Li/wNZV+/4 "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -6316,104 +6226,106 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK -Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee -8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 -s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP -tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey -E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP -HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay -ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje -fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh -OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n -13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP -WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl -4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ -U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 -tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P -s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 -mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 -t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 -O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy -xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ -Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH -N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv -mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR -gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 -99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA -+m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC -ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ -7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN -v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q -bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 -ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 -KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs -LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW -pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi -ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj -oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O -7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu -/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf -OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 -8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a -z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 -P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg -g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB -KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM -y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx -8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR -3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky -bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD -jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 -wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 -GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB -LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV -Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL -kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN -fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG -xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu -t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 -uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 -PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV -XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H -Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym -mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy -vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ -EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF -DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu -bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG -TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I -9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw -2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 -/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb -7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om -QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD -whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz -9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i -i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== +1:eJwV1Hk4VtsXB3CZGpCQKUMZu5SSV0phrUIakJKSSrzDqVQqyZVEMjQYMjX+ +KgqRDMkYUkquyk2zcjM7r1nG85rSb/vjPOf5POvs71l777OPBvvYdp6wkJBQ +B7mm7yfeL1tc+OG9xT3ps3HccBos+pJXsq0yQIV3qXLaTQkm8dpWpZDak76f +R+zA/VdckvUaXqY3u1LEOb6Br8SsqqHogUHFAeJLlUovAtM/wmRX1JVDxE8/ +nLg7afQV8kPEyg8Td9W99T9d8h0sQ2KcPYkX0Fp7GMuf8HLSaOcJ4i2//E1P +VjfCKdGup97EZZNdEr7pzeCYVxDsS/wtSPFMgWcrRP91M9efuE/cqmvYiAb5 +czGbgojFI47vZgn4MPAzwTqMWF3mTtWJkg74w6lIDSe2V2Ee9Fn2wIo4h7vX +ialETQWDWX0gEl9kdJc4UGdr6OHqX7D6+CqDFOLvil9WeKcPQE6E3448Yq6L +x6G4iEHQN4egUuL+20L3nngOQexDlfmviWdpGswbMBoB5ULVI7XE8dxXNvPk +GZBsWreimXhR6u7A5QIG7n0J3NtNvHppWN/RklH418GGFoqg4aBJY3WX5ST0 +hEu9MCQe9j0lOkf3N5QMzSgwJz5XImGmN2sKDL/IyG4hvoGrHx2o/gPfI0Mn +KWJuSpWVV/oM3Hms6lYScXplXFOQijAel0suzyXub3f1j4kQRvVbd+0riP31 +R3Ife4rgfLPBW3zi+GwNrV9GYmg2qPF7eSQNdR96yqaSxJCfL+xkSbxosNBl +rrw4xpwXl9tFnGFsH2sgEEff86fLA4krnvrNOFIyC01r1Dq+Eo+8+tzYYSmJ +hY19e69G0SBrKznvTJkkvpzLWOcQG36xQilTKUzhzk/9l9ijLT9xxbK56MS5 +9XHmFRqOC1cbmkvOQ8Ok9n+CiGnNrIFQRgZlDb3XREST9aHezq5hyeJyc4+U +bGLhR3wNpROyaPbi4sXPxItYC7end8vix9lWhaoxNLhYRj953ySH/oXfCvKI +azheJxXfyeOwRixMxNLQkBoV7jZLAXt2pRvoxtHQ052e9NBaAU1cheK3Ec/x +bv289oUCLn5++M1DYquQHcZu+Yp4q+9Q7f54GoqTTUbSEpSRmssOarlKQzI9 +7rPGWw03OIkqr79Jw0anCw0nM9VwfFuliS9xT4Xchky+GoquinyWRWycvFR+ +0W51dNIxFFe7RdaT7ZorZrEQM/RHg6eIB381/d0RvAgnAmeyvt6mQe6oVV6u +nSb+Xe1z+GMiDfzkOQcdPDTxn+f6mfPv0VD084NKb5gmvspVdXYm3mu7L1j3 +hSbmX3rZ2UScvMRn+00jLXSYbT/J3Cfv70rtD1DUxoixZU0mKTTsOCBhsLlZ +B5/dmP1ELJ0G8HEy2vVbB+VFHlzeQawfmrCKq6yLlHpGVRKxUBJrfcA2Xcy1 +nPK2fERDZsOeXU/KdfFc62jUhQxyPndmBC24vxir9a3famaT/qzsvnWx9dCh +Nc8zJY+GJMfr/wkC9LCwWXRMKJ+GKHZzk+j/9DA4dk7nXmLuuVPd6p/1sNJi +3bh8AQ0ypXeEHC31ceHzpOaIQvL9sPr0S7SWoMF4aGVkMQ0qmlcCw9uWovT9 +qIn/XtBQenlYb0zYAIXl+1Xtysl6DO3+QmkYYNwmqqCM+G6Ftt56VwM0y0jY +lvSSBs0DxZ9Gaw0wWzpLz6uCzDeD1qHeLcOQf89zdKtoUFNRpxbtNsS0t7LK +nTU0LE3xlpwAI/QbunjsexMNbG7wiIG9ESrvrNFwbSbnVSu2wW2vEbKFY8zb +iEXuZz+u9DXChKn4nIEWct7udu2IzTFCz/MzI2Ro8j+94XZHT4uFz7sapHid +ZH/DbZc5ixsjfFR12zNIwz0vbYf86pXIKVmoFibGhw8+sCokxRR3TKUKvzXm +g4brV/t9R8yRp+Ro2eLBB96fgiy104hGimqOtsl8UOwumqnIXo/BVaZHLLr4 +4M0y+xmrb4XWT4zhp1E7sHsnq+S6rFEn+duIUFA7ZK4/OTOhxgbrPxp3ZNe3 +Q/KwR3lG/CYUDjlrk7W2A0bXKf1bEbgFz2a56dY/7IB6IZGBZnc7ZH5khYep +d4Kn6rHoIK2tSK9nuU3EdkLWoaoXV0MdcNuFz5vzlLvAb0hZsOTQNqx/M0i5 +J3TByOYNO//Zvx2nju8Ra1zdDaZ7YtbR2xxxuwznldX3bvikfMejgrUDzd9p +3U/z7oEFD4JL0/5ywnun8+u8dHuhqEnf1l5qJzaIyrUJPveC+pf+Az69OzF2 +y263xpA+YF2NyUhq2oU2yT9dRGx/wR3RoWWxr5zx4MvZokri/VCwbnld6NPd +6LnvYpz7iX64seqyzGS6C0r1vS4Pqe+Hmv9SwlgRezA0zd4jwGoA8u1uax8/ +txdFk19qj+YPwMBRRyFP7j6s155ZJa0xCCMb9A72WbqiR6ro4vjLg5DW+2P0 +pMl+dAh0jxufHATneymcfZJueGrOeZdOaghyn2zZL3LBDdvnjOoJfR8CU5VP +Y5fG3LB0SvuMMgyDVtOBuo+H3PE0Z+rWZOIwtEkc3nq71R2nlmHJbfER+BBl +z7FxYuP7dWY3wW0E4n0TJE59YKNbS+qDlOIRKC37M8bZxMG2sjfDFyUYkN6L +F1jFHLx06W227FYGFs3/p0a1lIN52h7ROg4MGFbbKYmXcTAl2uLTqm0MbDfb +8/B7OQcbV97wdXFkIF7V593ZNxzc9yN+041dDCyofyRd9Z2DJmFr3ozsZ0Db +VfHGXgEHX//oTzM5zoCpW19aqDEXueoQ/yqKgQc3+0/am3BRwvBNyJ0rDMz/ +PGihuJqL1rXFDT7RDPRZC76kreXiPN0l7xfHMuT/JTSjej0X5boSr52/ysBc +gcxu2W1cPDC29qHKbQbaIlfOTjjKxYqeNfl1aQxElfgfKnrARRHx3LLgFwwc +Nbpu6pvGxRVnwmxY5QzYPsyZvTqdi7WXDU1aiOdc5z8szOSiVmWQlcUrBkK9 +HLoK8rhokXBM49drBvz1tA/nv+Tij08Xn7PeMeBx/d2RJw1cfK30Jt3mKwOb +5vLNvJq4eFdvRXYr8V+hQlJGLVzsXeEpH/iNAb7XyswcmoufzfvE82oZcLdP +6H3cw8VQ6TI/hToGnMVOemaPc7Fusij8WQMDNicXHM9Q4GGB9K9Lce0MvEwI +2xyrxMPua5qKizsYMKse1PZdwMM124fop8SGOu9+WKrzULSgzaa+kwHl2jOW +/+nwsOu8i7JKDwPda+oV5qzkIYgVfPXqZ+CKcOKzA448dMoe+RozSua/XPKG +nRMPS5xXOEuNMRCyx9eLtYuHUqCmdJHYN89h8R8XHirvj3M4M076p2bEXGPz +MLO8OdF5kgHWWzb39Qkehl2vf9D3h4HaGB0JrWgeBtXLR18QF0AWSB3siOGh +ZvO6iVbikN7hisw4Ur/kUQwzBWC0qSJg9XUeXqqljEeIo4Q4g3Z3eWjjLC7v +PFsAG44l/vDN4GFvjN7p3xICUFO7aGKRxcM4oQSVrZICGH57LE7kMQ89hobn +JRLf1wW7qFwemqgIDYOUAH7X179IKubhYcl3N/+eK4A8W5W091U8dJzJ2Vk5 +TwDh48Ji8W95OOjOXSglIwB2Wpf77moesoZs1zgSzxMtVmmr4eEx41u8euIj +Jc5Xxr7xkL/xVnSnrAC09K/5aNM89Eu1W9o8XwDjtWc/d/J52LHAXkpNXgAf +QnmG2R08DC7bD87EAc3GXaY9PHQYCL1WTVx34/O+rUM8PL09RjpTQQCxM2Ws +/WZQuLcuV9NOSQClg/V7vEUoVHO+lhdM3F6f7uUpRqG86u3DT4nN8qwS2bMp +nH+0bqOmsgD4br4Tm2XI88syyzqJ59lay1rLUcjexvJVXiCAtatk9UCewqJd +3js3EkdLZexkKVMYLSY4lzRdL27MUdGgUGSsOGKrigColIwqeS0K/5R98vAl +jo4+3SitQ+GE1JajicR8Sk5KVI/CCzbGjb3TdTmbgz2GFD4K/nYqQFUAxVNy +gXwjClvcG04lEtOdTVebjMn8QsdvlhOveeH36stqCq0e2dnPUBNA25Es9WdI +4UnzAMqHeK7zmZWF6yn0DbEOiyE2tdxom2NFoU9fy5tHxFHKLadTNlK4wT60 +tJ64SDQ7OmEzyeOcPTxC3PrrTOpNWwqv/1hhIakugNWV8l8jHSgMulFkv4qY +ndPSfWE7hYqVgRFbiCNvZwuf30HhmHpvrytxi9cmQx9nCs0iH6gEE0u5Ktgc +d6HwjV1ne9x03qbWfR57KVwY/bw2aXr8wrPhrm6kX3cFzXLiojmb7zuzKUT2 +Ff/303kjCk+3cymkqiLG66bzmltrbCkKf7pI3OZP51U/5m84SPZDeZb7wHR/ +hWd/owcZb35u08R0/v3N89ceoTB01Qkn0YUkP1JxyUpPChuefA+RJG7xbVu3 +/DiFxbF5tXLEktwcZz0vCp2HhO0XEK/aGnBMy5vCHr2X7QuJ2Wu2hKn5kP2r +6E/WJo7QUbqj6Euh4eXI0L+IC+bRuTJ+FJb6Xb+0hLh5IuethD+FM2qkcgym +89sDmsUCSH3018QyYpNPW0b/BFJ47r65x3Li/wNZV+/4 "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5986424829233534, - 1.5968711170700145`}}, + "PlotRange" -> {{0, 180}, {0.6732657318720962, + 1.4451135778455466`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5986424829233548}, + "AxesOrigin" -> {0, 0.6732657318720976}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -6425,21 +6337,21 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5986424829233534, - 1.5968711170700145`}}, + "PlotRange" -> {{0, 180}, {0.6732657318720962, + 1.4451135778455466`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5986424829233548}, + "AxesOrigin" -> {0, 0.6732657318720976}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -6453,102 +6365,104 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK -Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee -8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 -s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP -tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey -E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP -HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay -ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje -fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh -OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n -13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP -WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl -4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ -U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 -tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P -s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 -mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 -t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 -O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy -xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ -Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH -N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv -mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR -gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 -99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA -+m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC -ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ -7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN -v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q -bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 -ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 -KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs -LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW -pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi -ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj -oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O -7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu -/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf -OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 -8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a -z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 -P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg -g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB -KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM -y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx -8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR -3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky -bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD -jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 -wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 -GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB -LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV -Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL -kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN -fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG -xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu -t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 -uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 -PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV -XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H -Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym -mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy -vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ -EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF -DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu -bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG -TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I -9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw -2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 -/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb -7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om -QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD -whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz -9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i -i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== +1:eJwV1Hk4VtsXB3CZGpCQKUMZu5SSV0phrUIakJKSSrzDqVQqyZVEMjQYMjX+ +KgqRDMkYUkquyk2zcjM7r1nG85rSb/vjPOf5POvs71l777OPBvvYdp6wkJBQ +B7mm7yfeL1tc+OG9xT3ps3HccBos+pJXsq0yQIV3qXLaTQkm8dpWpZDak76f +R+zA/VdckvUaXqY3u1LEOb6Br8SsqqHogUHFAeJLlUovAtM/wmRX1JVDxE8/ +nLg7afQV8kPEyg8Td9W99T9d8h0sQ2KcPYkX0Fp7GMuf8HLSaOcJ4i2//E1P +VjfCKdGup97EZZNdEr7pzeCYVxDsS/wtSPFMgWcrRP91M9efuE/cqmvYiAb5 +czGbgojFI47vZgn4MPAzwTqMWF3mTtWJkg74w6lIDSe2V2Ee9Fn2wIo4h7vX +ialETQWDWX0gEl9kdJc4UGdr6OHqX7D6+CqDFOLvil9WeKcPQE6E3448Yq6L +x6G4iEHQN4egUuL+20L3nngOQexDlfmviWdpGswbMBoB5ULVI7XE8dxXNvPk +GZBsWreimXhR6u7A5QIG7n0J3NtNvHppWN/RklH418GGFoqg4aBJY3WX5ST0 +hEu9MCQe9j0lOkf3N5QMzSgwJz5XImGmN2sKDL/IyG4hvoGrHx2o/gPfI0Mn +KWJuSpWVV/oM3Hms6lYScXplXFOQijAel0suzyXub3f1j4kQRvVbd+0riP31 +R3Ife4rgfLPBW3zi+GwNrV9GYmg2qPF7eSQNdR96yqaSxJCfL+xkSbxosNBl +rrw4xpwXl9tFnGFsH2sgEEff86fLA4krnvrNOFIyC01r1Dq+Eo+8+tzYYSmJ +hY19e69G0SBrKznvTJkkvpzLWOcQG36xQilTKUzhzk/9l9ijLT9xxbK56MS5 +9XHmFRqOC1cbmkvOQ8Ok9n+CiGnNrIFQRgZlDb3XREST9aHezq5hyeJyc4+U +bGLhR3wNpROyaPbi4sXPxItYC7end8vix9lWhaoxNLhYRj953ySH/oXfCvKI +azheJxXfyeOwRixMxNLQkBoV7jZLAXt2pRvoxtHQ052e9NBaAU1cheK3Ec/x +bv289oUCLn5++M1DYquQHcZu+Yp4q+9Q7f54GoqTTUbSEpSRmssOarlKQzI9 +7rPGWw03OIkqr79Jw0anCw0nM9VwfFuliS9xT4Xchky+GoquinyWRWycvFR+ +0W51dNIxFFe7RdaT7ZorZrEQM/RHg6eIB381/d0RvAgnAmeyvt6mQe6oVV6u +nSb+Xe1z+GMiDfzkOQcdPDTxn+f6mfPv0VD084NKb5gmvspVdXYm3mu7L1j3 +hSbmX3rZ2UScvMRn+00jLXSYbT/J3Cfv70rtD1DUxoixZU0mKTTsOCBhsLlZ +B5/dmP1ELJ0G8HEy2vVbB+VFHlzeQawfmrCKq6yLlHpGVRKxUBJrfcA2Xcy1 +nPK2fERDZsOeXU/KdfFc62jUhQxyPndmBC24vxir9a3famaT/qzsvnWx9dCh +Nc8zJY+GJMfr/wkC9LCwWXRMKJ+GKHZzk+j/9DA4dk7nXmLuuVPd6p/1sNJi +3bh8AQ0ypXeEHC31ceHzpOaIQvL9sPr0S7SWoMF4aGVkMQ0qmlcCw9uWovT9 +qIn/XtBQenlYb0zYAIXl+1Xtysl6DO3+QmkYYNwmqqCM+G6Ftt56VwM0y0jY +lvSSBs0DxZ9Gaw0wWzpLz6uCzDeD1qHeLcOQf89zdKtoUFNRpxbtNsS0t7LK +nTU0LE3xlpwAI/QbunjsexMNbG7wiIG9ESrvrNFwbSbnVSu2wW2vEbKFY8zb +iEXuZz+u9DXChKn4nIEWct7udu2IzTFCz/MzI2Ro8j+94XZHT4uFz7sapHid +ZH/DbZc5ixsjfFR12zNIwz0vbYf86pXIKVmoFibGhw8+sCokxRR3TKUKvzXm +g4brV/t9R8yRp+Ro2eLBB96fgiy104hGimqOtsl8UOwumqnIXo/BVaZHLLr4 +4M0y+xmrb4XWT4zhp1E7sHsnq+S6rFEn+duIUFA7ZK4/OTOhxgbrPxp3ZNe3 +Q/KwR3lG/CYUDjlrk7W2A0bXKf1bEbgFz2a56dY/7IB6IZGBZnc7ZH5khYep +d4Kn6rHoIK2tSK9nuU3EdkLWoaoXV0MdcNuFz5vzlLvAb0hZsOTQNqx/M0i5 +J3TByOYNO//Zvx2nju8Ra1zdDaZ7YtbR2xxxuwznldX3bvikfMejgrUDzd9p +3U/z7oEFD4JL0/5ywnun8+u8dHuhqEnf1l5qJzaIyrUJPveC+pf+Az69OzF2 +y263xpA+YF2NyUhq2oU2yT9dRGx/wR3RoWWxr5zx4MvZokri/VCwbnld6NPd +6LnvYpz7iX64seqyzGS6C0r1vS4Pqe+Hmv9SwlgRezA0zd4jwGoA8u1uax8/ +txdFk19qj+YPwMBRRyFP7j6s155ZJa0xCCMb9A72WbqiR6ro4vjLg5DW+2P0 +pMl+dAh0jxufHATneymcfZJueGrOeZdOaghyn2zZL3LBDdvnjOoJfR8CU5VP +Y5fG3LB0SvuMMgyDVtOBuo+H3PE0Z+rWZOIwtEkc3nq71R2nlmHJbfER+BBl +z7FxYuP7dWY3wW0E4n0TJE59YKNbS+qDlOIRKC37M8bZxMG2sjfDFyUYkN6L +F1jFHLx06W227FYGFs3/p0a1lIN52h7ROg4MGFbbKYmXcTAl2uLTqm0MbDfb +8/B7OQcbV97wdXFkIF7V593ZNxzc9yN+041dDCyofyRd9Z2DJmFr3ozsZ0Db +VfHGXgEHX//oTzM5zoCpW19aqDEXueoQ/yqKgQc3+0/am3BRwvBNyJ0rDMz/ +PGihuJqL1rXFDT7RDPRZC76kreXiPN0l7xfHMuT/JTSjej0X5boSr52/ysBc +gcxu2W1cPDC29qHKbQbaIlfOTjjKxYqeNfl1aQxElfgfKnrARRHx3LLgFwwc +Nbpu6pvGxRVnwmxY5QzYPsyZvTqdi7WXDU1aiOdc5z8szOSiVmWQlcUrBkK9 +HLoK8rhokXBM49drBvz1tA/nv+Tij08Xn7PeMeBx/d2RJw1cfK30Jt3mKwOb +5vLNvJq4eFdvRXYr8V+hQlJGLVzsXeEpH/iNAb7XyswcmoufzfvE82oZcLdP +6H3cw8VQ6TI/hToGnMVOemaPc7Fusij8WQMDNicXHM9Q4GGB9K9Lce0MvEwI +2xyrxMPua5qKizsYMKse1PZdwMM124fop8SGOu9+WKrzULSgzaa+kwHl2jOW +/+nwsOu8i7JKDwPda+oV5qzkIYgVfPXqZ+CKcOKzA448dMoe+RozSua/XPKG +nRMPS5xXOEuNMRCyx9eLtYuHUqCmdJHYN89h8R8XHirvj3M4M076p2bEXGPz +MLO8OdF5kgHWWzb39Qkehl2vf9D3h4HaGB0JrWgeBtXLR18QF0AWSB3siOGh +ZvO6iVbikN7hisw4Ur/kUQwzBWC0qSJg9XUeXqqljEeIo4Q4g3Z3eWjjLC7v +PFsAG44l/vDN4GFvjN7p3xICUFO7aGKRxcM4oQSVrZICGH57LE7kMQ89hobn +JRLf1wW7qFwemqgIDYOUAH7X179IKubhYcl3N/+eK4A8W5W091U8dJzJ2Vk5 +TwDh48Ji8W95OOjOXSglIwB2Wpf77moesoZs1zgSzxMtVmmr4eEx41u8euIj +Jc5Xxr7xkL/xVnSnrAC09K/5aNM89Eu1W9o8XwDjtWc/d/J52LHAXkpNXgAf +QnmG2R08DC7bD87EAc3GXaY9PHQYCL1WTVx34/O+rUM8PL09RjpTQQCxM2Ws +/WZQuLcuV9NOSQClg/V7vEUoVHO+lhdM3F6f7uUpRqG86u3DT4nN8qwS2bMp +nH+0bqOmsgD4br4Tm2XI88syyzqJ59lay1rLUcjexvJVXiCAtatk9UCewqJd +3js3EkdLZexkKVMYLSY4lzRdL27MUdGgUGSsOGKrigColIwqeS0K/5R98vAl +jo4+3SitQ+GE1JajicR8Sk5KVI/CCzbGjb3TdTmbgz2GFD4K/nYqQFUAxVNy +gXwjClvcG04lEtOdTVebjMn8QsdvlhOveeH36stqCq0e2dnPUBNA25Es9WdI +4UnzAMqHeK7zmZWF6yn0DbEOiyE2tdxom2NFoU9fy5tHxFHKLadTNlK4wT60 +tJ64SDQ7OmEzyeOcPTxC3PrrTOpNWwqv/1hhIakugNWV8l8jHSgMulFkv4qY +ndPSfWE7hYqVgRFbiCNvZwuf30HhmHpvrytxi9cmQx9nCs0iH6gEE0u5Ktgc +d6HwjV1ne9x03qbWfR57KVwY/bw2aXr8wrPhrm6kX3cFzXLiojmb7zuzKUT2 +Ff/303kjCk+3cymkqiLG66bzmltrbCkKf7pI3OZP51U/5m84SPZDeZb7wHR/ +hWd/owcZb35u08R0/v3N89ceoTB01Qkn0YUkP1JxyUpPChuefA+RJG7xbVu3 +/DiFxbF5tXLEktwcZz0vCp2HhO0XEK/aGnBMy5vCHr2X7QuJ2Wu2hKn5kP2r +6E/WJo7QUbqj6Euh4eXI0L+IC+bRuTJ+FJb6Xb+0hLh5IuethD+FM2qkcgym +89sDmsUCSH3018QyYpNPW0b/BFJ47r65x3Li/wNZV+/4 "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5986424829233534, 1.5968711170700145`}}, + "PlotRange" -> {{0, 180}, {0.6732657318720962, 1.4451135778455466`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5986424829233548}, + "AxesOrigin" -> {0, 0.6732657318720976}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -6558,7 +6472,8 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5986424829233548}, + AxesOrigin->{0, 0.6732657318720976}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -6586,7 +6501,8 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5986424829233534, 1.5968711170700145`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.6732657318720962, 1.4451135778455466`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -6594,9 +6510,8 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991339493274267*^9}, - CellLabel-> - "Out[334]=",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] + CellChangeTimes->{3.991339493274267*^9, 3.994250446255261*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"eadfa944-26fd-4ae4-942e-187866f4abea"] }, Open ]], Cell[CellGroupData[{ @@ -6659,262 +6574,160 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849724783457*^9},ExpressionUUID->"6e33cb28-ef1e-1547-b52d-\ -2171e7786920"], + CellChangeTimes->{3.991849724783457*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2261575897868585`*^-267\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.214214405520255`*^-276\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, 9, + 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339493498577*^9, 3.994250446795974*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"9206d99a-3017-483a-a915-878a738aa955"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2245045342781197`*^-288\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 335, - 333, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339493498577*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 95, + 10, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339493498577*^9, 3.9942504468048687`*^9}, CellLabel-> "During evaluation of \ -In[335]:=",ExpressionUUID->"53d31480-3c5e-ef4a-987b-a232cf0b03f3"], +In[95]:=",ExpressionUUID->"be2e999f-3685-4fe6-9f19-a2203a171554"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.273330099721687`*^-279\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.2348818690099647`*^-300\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 335, 334, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339493508564*^9}, +to represent as a normalized machine number; precision may be lost.\"", 2, 95, + 11, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339493498577*^9, 3.9942504468128023`*^9}, CellLabel-> "During evaluation of \ -In[335]:=",ExpressionUUID->"b7d94271-16f1-6346-b579-21279019eafb"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.013344112917215`*^-290\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 335, 335, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339493517563*^9}, - CellLabel-> - "During evaluation of \ -In[335]:=",ExpressionUUID->"bfaea4b0-a812-1847-9911-9291b70d2c8f"], +In[95]:=",ExpressionUUID->"fef2ba21-f9e1-4b97-82b7-348add69f0c8"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 335, 336, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339493525564*^9}, +during this calculation.\"", 2, 95, 12, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339493498577*^9, 3.9942504468206*^9}, CellLabel-> "During evaluation of \ -In[335]:=",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], +In[95]:=",ExpressionUUID->"b1f76376-9a50-4783-af24-2d70ab85ba8b"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S -UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ -f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP -IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w -4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF -SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC -tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S -r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY -IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm -WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE -b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n -cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA -7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc -HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 -uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG -e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW -g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh -tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E -bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb -36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf -HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf -sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 -fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 -4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q -bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH -czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F -fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb -wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 -PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O -f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 -+p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f -7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 -sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK -TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 -tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp -9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv -AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 -vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz -83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw -sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j -76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy -GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih -ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ -miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO -4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH -vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT -/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY -kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 -O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA -OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB -POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR -4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd -ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd -BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na -AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB -SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC -EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C -QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ -FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB -U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ -FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX -dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm -b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT -mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI -RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U -6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e -j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b -6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 -zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC -rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn -uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F -cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk -RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU -XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD -f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 -vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT -pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy -ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR -6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 -wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r -l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY -tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR -k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z -FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO -wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz -hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ -y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq -XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh -KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK -F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO -bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF -9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK -itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN -qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 -iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS -Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 -OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu -x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 -urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM -EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh -7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh -Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q -mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe -XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS -+Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU -25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw -QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T -BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk -uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k -dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP -y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 -LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 -IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 -rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE -AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 -QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 -aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr -rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf -pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f -5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte -W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 -punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh -3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI -IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB -UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 -CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh -ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St -63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K -Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar -5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z -YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 -t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 -wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a -+b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w -7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS -rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN -D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ -HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp -MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j -Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 -hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT -PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke -Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE -TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz -8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 -wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO -zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs -N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO -2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ -+Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR -WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax -kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl -F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY -1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU -4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ -PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d -HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY -RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma -X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ -IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu -h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D -S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 -e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv -DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ -6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 -8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw -nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L -MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 -l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I -nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW -59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op -cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy -la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK -eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 -ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD -1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q -eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY -9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM -8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu -9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR -D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK -06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde -JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK -7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV -dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 -pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr -Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk -9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 -lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o -xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su -YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l -IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i -AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 -A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk8VdsXAHDRoEJlyFCRyx3Ovdec2W0tEklIRZQyJQ0SikgvQ+lSUigZ +IoR7FCVPkSjR8PAqlYxpol6ZMnOVn9/pr/P5fs757LPX3nuttVW9Dm/xERUR +EVkwR0Tkz3PiQ/0T9XN5ay3nJCRUHNZe25ylEGbeFg3106+3nmdKAcq98lJo +S4KBMQ+xjUxlCNl8o1WsLRe0WXVdNKYmLBuUTxK2loLh+kgnIWMtfKyyPzzW +WgsbLaKr4hn2YKXe2zXc+gaYnFhiUn03CFsNLw+1fgHXwjnLSpT9oW6dIO91 +7ijot89m/FgfASs/3v/mxZ2B80XO1TGKfJD1c7+xYJ0YVuYUram2TIAkHasH +9k7iaMk9bfflRxK0p2rXDC+VRDMnM/fyzSlwLi/ilajiMpz7qsyA3ZoG8pe6 +45IzZXCRsHRvzKpM4G+zWftmQg5jrWiKFr+vwRHjHPf6aAUMm2iY8gvIAcuf +08f9u5XQTu41bbQ4F6LMHD2VjFZhsccBBd/662ByK63s5CMV7Gqf8TnzPg/8 +poYj/5FUxaG7do591flgErh3+TdpVRyxap8JfZwP4r0dN8UUVFFOvHvv3Kf5 +kN9Z17KWpopvXg4dkv03Hz48vMy9a6CKYYvjNil25INDjHFbjrsqbjVK0Lk3 +ng+60lFa4XdUsX/Y/IMppwCEnKUfNJxoaNctuTroQgFMZCpF6e2gYYHiKhOP +pAIYW0JXN3anoVr7u9WbLhfA4KjxAcv9NEx2YG5blVEAXx54T+z4i4bPLC47 +5hcUQINtuVRsPg1H81det60ugPSDu+HLOA3HphgXhr8XgNnNouyUFDUs6yle +fd1YAJ2rb15bn6GGE6Dj22kqgOMphVlj19Sw/H7sk2VrBVAeVXB1S6Ea7jbs +qQu1EICuS3aqVJUa6vQWtWjZCoCYd+nimc9qWLx7u4uFmwCWu4dHhnDV8WTG +oKHwhADuNodF0HXUsVhMIXjspAC2bQw92ayvjo650o0DkQJI0g8+oQvqGDzT ++LjjtAAkJQ6HDjqqo2rIxfeZ8QKYe98rYO8xdbQLMO34J0MAw9IbPZxr1XF0 +eV9aaYUA2vxoTQeeq+Nex9QXKZUCqHk2DRH/qqPl0ZLnoVUCuHj8pgrZoo7+ +J0uWGNQIQPuLxEdhrzoqVvaNXH4uAP87r3ZlytBRfMMGZt87AfQ6OO3s2UPH +8c0tHv1DAnhTqNE4tZ+OgZuDi+NGBFApNt9U8jAd391Le6o+JoC48ntKBmF0 +9JXgum6bFABLRaGDf56OIo7p0mkzAvAd7HDh3KNj8v5/pioWktAT7+EctICB +tvKZY1tXk+Dfy6VpSzDQQ2ye9SVVEiathQMDSxn4danx329oJCwSS4rZr8TA +Cqfqdhs6CdphdWUeGgzMWbNxjyqbhL98GDIOWxnIJtpTg/VImF838kHChYFu +1xdmXVlDwsXVj240uDFQo1ykplyfhLzO7RZWexkYHbFw54ghCQ2OcYG8MAZe +2CM6utmMhOVr+19xrjHQocyk9W9LErIzKjJ+XGdgduzVmvL1JBDC074CkoHF +qr/q71uRYFa2apZWSs3H+DSvYgMJ3mwHTaWnDBTtKyzO2kRCyfLSePE+Bup4 +qX5Zto0Em5/HbL4aMLGBcZqR7EnCSh3lM+JmTBT+fKfm50XCYNCTWo45ExXn +949beJNwaWKpWZAtEx0Ppin27iHhw0yh5qw7EyN0Q32V95EQJPFeRjGOiUaz +xl4q/iRY2kdvNktgYodiYtM7yvIXWefdk5n4/US2wtnDJFTJBM8vyGRi/wkt +w/4Aar1WSAl1S5k4FiJdnnKEhHQCP2zqZCJIiy6OCSXB7+A3pYBPTAz5/s5U +MYwEKI7fnvyVib07c2xvUu7Rbm9q/8nEVZJhC+uPk6BpFFS3dy4L003uLOg7 +QYLIcQWRswtZOJ321Nj/LxLePnhoVizFwoyv8XY/KYfC4nujCiyMtbuyou8k +CXVWeWSkBgvNwz121keSkBK78et1XRbKu73KM40iYV/DkOpzQxZWX3z45iZl +KXtehqQFC49Ox3XFRJPg4tRyPt2Zhb5RbRWrT5PAvnKioXonC/urbbWjKc+0 +0RZ89mDh6fPKFz5TznU7HMk8yML9ddvnpseQ0O8tfqQsgoWXBlxbh89Q+5Fl +Wf3oNAvD9p1Ybc4n4Wd75ILGOBYa+Wv5JlAecRBmfE5m4T2tkkFaLAmjZ/W/ +9aeysGG5nvYBymNPA7WnMlmo9rEk4DblSdPeJ1IkC63Zi4b04kiYCmEsUSpm +YWvrVa0jlKfveLnSS1nY9yD1cAnl38zOAdMqFv5nyBtRP0uCqOy/y/c3sXDc +crfEBOW5DuKeR9+x8JDWblf6ORLmnbW8GdHBwpa224VbKIuLVENKDwsHtj12 +ElBeZCqMy/nBwmzjtaUvKS8O0W8uGmSh1By+zBhlqf7ifXVTLBRdIPxqFE/C +UmZv6csZFl62/rzdhfIyL8ZMuyiBD/xlmoIpS2d6WX9dQGD0lZ/2iZRl27IS +hyQIdFNqab5BWU6ms/PXMgLnnWd61VJebi/PWCBPva+1nGylrBC3NUB6JYGb +GhIu9VFWfHKhcpUqgQXDe01mKCvNNs4lGAT+fqz5Q+I8lS8m4g5rOARenrMh +R4nyqmDLNNAm0PRvWW8GZeWSyO6N+gTSl09qalNe3Vel4WxC4Nt8x3lGlFUZ +wmOeQOCYIv8bjzLNU7/Wz5JA473Tb8wpq18NlAi1IXBDpVTjOsqM1mLnU/YE +XolivvpjpnRvdsJWAs28yY9/vmfZMfrSXAj8aj7++8947Fgv/fxdBBaZBjH/ +/I9blxVR4kXgQOEp9z/z0fhfR/0DXwItVBPy/8xX01he9rkfFX/ghPBPPNpH +t+5+E0hgap7qLknKurcvkF0hBEaJBL/6sx56vY0j38MJVJzn7NhPeQ1dnDcW +SeCIH7u7jbKBhyV/NobAFRouMXWUDTMiXy86R+CPo+uNiigbtVStWH6RwE/F +Lr+TKJtu0i/hUkkf++Dc/R2UzfiB04bXCFwcE/a3KeW1tcWW6/IIVCGIGiXK +aMRod71FYPweP5m31HmxOOKl5vM3gczqVzuKKK+7lXUooILAxKBL905RtlKX +F+XXEljf213EpfzDy5o0fU5gOT306BzK8TnH7IcaqXgjUhKbqfP8Vrkt3fUd +gXZ3n78IpuyhmKbH/U6gdJTH9jwqH8Rc6ts/9RN4/SPZfJByQYow4vIwgY+E +nBs6lPtldvz7v2kCO9/w3CuofAuTWuHzWpKN+XsUf92h8nWlne3iM9Js5D15 +tM6Pcs258Dsm8myMFHP7T53y/IXvZ66vZuOO+hZMpPI/SSwzJUSPjUeWnrJy +pupD0ZTyPytc2ej5tLA3kao3DoYO/k272Oha7iyhS3kkOEI2xouNz24lJDRR +9cl49KPH4EE2lp1YdE+c8rOBbGHNSTYWDdIzfCJI+PiFxtmbx0b/kKVSb8JJ +iFbd+lqpkI0Ob9d5u1BmeJw69qqYjU9tHyl3UfXVr6u7zqicjYMMsYbPVP2d +as1zW9zAxuFFk79aj1H5+IKRUPKTjU+cmlRCqXr+v5/a+Q1jbKS/GLjQFkRC +r7RpVY+QjfFHPeiGlGtdHHoV5nIwYxO3dpDqB0d6jllFKXAwe0llkzXVP5p/ +/fM/R3MO+l3RLc6h+k2N8ls5PysOitatLOrxpdbDvIt7xpaDM41SbXTKMfzh +HZVOHNT7b6Yi14c6jzJK5bQDHPxPWFl0hupvV9gHD48mcXC9Xk/95E4STtsF +n5FM5eB7e8PmVZQDAiIymZkclGgKlrHYQcKGe8mNOwUcXOFWphvjQsVrXsV8 +8oCD42ye6ATVT3e4Sn661MNBejY6R9tR+xt7e7OBARdnvTw8bXgk3LhVXCc0 +4aKsF229DdXfjd7dNKgGLgb/7i6wNiVhG41caWnDxRZVhW9gTJ3Hquzvjm5c +TJki3JWp+8KvocTIQ9FclLGKy0jmktDherQk7yUXw6X10EuJ6keRQWr73nKR +HDleoatIwkRBQAqnjYv3mQlVcxSo/RjzO1H6mYvnmlr3Z8iRsDHBZ0PNGBfV +FK19qpeScL/W+VOnkgZ++bDfomo+Cakc46Uyvhqo7bCwlBwWgJPti4sPD2og +b9m23Vuo+5j0Qc9lBwI0kLshqXR6UADnbsRJPw7TQFH5zG3W/QI4SXTIHo7X +wDKvrrNN3wSwhxmu2HhHA5NSulSudwpAR62aduq3BppXKf+0fSKABiVz/dFE +TQyZLox+kiiAJuXbjLlXNNF356JjkxcE0EJbpSB3VRPz/fdMshIE8JktnDYo +0MSA5E1Z/LMCmDK5U3O8UhMfB365pHdKAIydqptEuzXRX0Ul3+qoAKIz5ngv +W6OFxQ0ezrucBGCysvaiVosWpnBSfQ7JCEBKLPeoZ7Q2emYvOpl4tgCUo1TM +XBk6OOEjlvG+Ox8W0t3ubXmug49yz5uNaOWDJk/x9rFdunhDsj75bngeBH2Q +rtsooodVS4Zow0XX4edovJNNqh4esTFWdurOBWutZ+k2Gmuw2PfZyVD5XHg4 +avpr8uUafPzgfg7q54A/V7fjtY8+9nyw0jV1zwbe4J5m14UGWKEa8qqoLwvW +qyvYSeYaIO91V8gOo0xgRZ4NrTU0RI8ub9mGixnA9jF+RO8wxDun0l+WNqaB +z8N9p8sCjfDpoEmpnEYqPMpu3jMsZ4z20trflhxLgTFydlKr3BjjkwuuHWy5 +BN70mwvT7UwwXWXW0MQ9GYbZyQalQyao17QkyL8tESryfn0ejzXFJJlnGVnh +F2GHpRqaKptheB39ZcOBBFhxiH9fs8YMgxbLRZk3ngO5RX537LbzMC5uUcHu +8DjIW/fX8SFXHvI8P4e7BMaB7l8J65LdeJi+bMvYNt84sB8qedfmyUPvTSov +nLbGwZmWcaG3Hw/vT9NUjnHiYCo3wuJ4FA99/WRtjN7HQodp8tuCmzzkR554 +WAaxsC8476rNLR6+CAoaEDWIhYlbd336S3iY9kz60VZuLEjT2iZ17vFwzMxg +44xCLNiKr1pZXcPD5SbE7OERPlQ1F+x5+46Hu422db7N58NGqQqNkDYefg8s +0950lQ9t1vUTCp083F6ixHqexIexyr7Y3Z94WPmj5veTCD5o5GgX/+jlodj8 +N6afXKnxOsxD4gd4qKZed+3QZmo82a2gNcTDisi1+TNWfNjLD359dJyHVdPn +L9HXUOPVnEmXn+Khq8Tak9VsPkRPX/GunKbWa732QhdVPixdU8jdNcPDqURH +/XF5PmQdqhyfneUheSRB9LIUH/4PZ+pnPA== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -6928,221 +6741,116 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S -UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ -f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP -IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w -4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF -SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC -tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S -r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY -IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm -WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE -b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n -cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA -7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc -HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 -uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG -e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW -g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh -tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E -bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb -36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf -HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf -sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 -fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 -4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q -bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH -czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F -fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb -wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 -PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O -f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 -+p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f -7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 -sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK -TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 -tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp -9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv -AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 -vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz -83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw -sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j -76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy -GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih -ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ -miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO -4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH -vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT -/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY -kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 -O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA -OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB -POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR -4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd -ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd -BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na -AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB -SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC -EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C -QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ -FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB -U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ -FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX -dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm -b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT -mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI -RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U -6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e -j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b -6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 -zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC -rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn -uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F -cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk -RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU -XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD -f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 -vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT -pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy -ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR -6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 -wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r -l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY -tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR -k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z -FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO -wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz -hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ -y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq -XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh -KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK -F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO -bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF -9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK -itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN -qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 -iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS -Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 -OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu -x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 -urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM -EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh -7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh -Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q -mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe -XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS -+Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU -25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw -QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T -BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk -uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k -dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP -y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 -LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 -IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 -rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE -AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 -QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 -aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr -rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf -pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f -5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte -W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 -punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh -3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI -IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB -UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 -CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh -ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St -63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K -Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar -5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z -YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 -t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 -wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a -+b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w -7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS -rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN -D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ -HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp -MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j -Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 -hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT -PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke -Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE -TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz -8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 -wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO -zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs -N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO -2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ -+Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR -WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax -kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl -F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY -1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU -4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ -PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d -HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY -RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma -X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ -IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu -h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D -S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 -e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv -DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ -6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 -8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw -nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L -MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 -l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I -nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW -59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op -cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy -la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK -eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 -ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD -1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q -eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY -9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM -8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu -9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR -D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK -06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde -JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK -7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV -dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 -pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr -Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk -9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 -lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o -xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su -YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l -IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i -AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 -A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== +1:eJwV1nk8VdsXAHDRoEJlyFCRyx3Ovdec2W0tEklIRZQyJQ0SikgvQ+lSUigZ +IoR7FCVPkSjR8PAqlYxpol6ZMnOVn9/pr/P5fs757LPX3nuttVW9Dm/xERUR +EVkwR0Tkz3PiQ/0T9XN5ay3nJCRUHNZe25ylEGbeFg3106+3nmdKAcq98lJo +S4KBMQ+xjUxlCNl8o1WsLRe0WXVdNKYmLBuUTxK2loLh+kgnIWMtfKyyPzzW +WgsbLaKr4hn2YKXe2zXc+gaYnFhiUn03CFsNLw+1fgHXwjnLSpT9oW6dIO91 +7ijot89m/FgfASs/3v/mxZ2B80XO1TGKfJD1c7+xYJ0YVuYUram2TIAkHasH +9k7iaMk9bfflRxK0p2rXDC+VRDMnM/fyzSlwLi/ilajiMpz7qsyA3ZoG8pe6 +45IzZXCRsHRvzKpM4G+zWftmQg5jrWiKFr+vwRHjHPf6aAUMm2iY8gvIAcuf +08f9u5XQTu41bbQ4F6LMHD2VjFZhsccBBd/662ByK63s5CMV7Gqf8TnzPg/8 +poYj/5FUxaG7do591flgErh3+TdpVRyxap8JfZwP4r0dN8UUVFFOvHvv3Kf5 +kN9Z17KWpopvXg4dkv03Hz48vMy9a6CKYYvjNil25INDjHFbjrsqbjVK0Lk3 +ng+60lFa4XdUsX/Y/IMppwCEnKUfNJxoaNctuTroQgFMZCpF6e2gYYHiKhOP +pAIYW0JXN3anoVr7u9WbLhfA4KjxAcv9NEx2YG5blVEAXx54T+z4i4bPLC47 +5hcUQINtuVRsPg1H81det60ugPSDu+HLOA3HphgXhr8XgNnNouyUFDUs6yle +fd1YAJ2rb15bn6GGE6Dj22kqgOMphVlj19Sw/H7sk2VrBVAeVXB1S6Ea7jbs +qQu1EICuS3aqVJUa6vQWtWjZCoCYd+nimc9qWLx7u4uFmwCWu4dHhnDV8WTG +oKHwhADuNodF0HXUsVhMIXjspAC2bQw92ayvjo650o0DkQJI0g8+oQvqGDzT ++LjjtAAkJQ6HDjqqo2rIxfeZ8QKYe98rYO8xdbQLMO34J0MAw9IbPZxr1XF0 +eV9aaYUA2vxoTQeeq+Nex9QXKZUCqHk2DRH/qqPl0ZLnoVUCuHj8pgrZoo7+ +J0uWGNQIQPuLxEdhrzoqVvaNXH4uAP87r3ZlytBRfMMGZt87AfQ6OO3s2UPH +8c0tHv1DAnhTqNE4tZ+OgZuDi+NGBFApNt9U8jAd391Le6o+JoC48ntKBmF0 +9JXgum6bFABLRaGDf56OIo7p0mkzAvAd7HDh3KNj8v5/pioWktAT7+EctICB +tvKZY1tXk+Dfy6VpSzDQQ2ye9SVVEiathQMDSxn4danx329oJCwSS4rZr8TA +Cqfqdhs6CdphdWUeGgzMWbNxjyqbhL98GDIOWxnIJtpTg/VImF838kHChYFu +1xdmXVlDwsXVj240uDFQo1ykplyfhLzO7RZWexkYHbFw54ghCQ2OcYG8MAZe +2CM6utmMhOVr+19xrjHQocyk9W9LErIzKjJ+XGdgduzVmvL1JBDC074CkoHF +qr/q71uRYFa2apZWSs3H+DSvYgMJ3mwHTaWnDBTtKyzO2kRCyfLSePE+Bup4 +qX5Zto0Em5/HbL4aMLGBcZqR7EnCSh3lM+JmTBT+fKfm50XCYNCTWo45ExXn +949beJNwaWKpWZAtEx0Ppin27iHhw0yh5qw7EyN0Q32V95EQJPFeRjGOiUaz +xl4q/iRY2kdvNktgYodiYtM7yvIXWefdk5n4/US2wtnDJFTJBM8vyGRi/wkt +w/4Aar1WSAl1S5k4FiJdnnKEhHQCP2zqZCJIiy6OCSXB7+A3pYBPTAz5/s5U +MYwEKI7fnvyVib07c2xvUu7Rbm9q/8nEVZJhC+uPk6BpFFS3dy4L003uLOg7 +QYLIcQWRswtZOJ321Nj/LxLePnhoVizFwoyv8XY/KYfC4nujCiyMtbuyou8k +CXVWeWSkBgvNwz121keSkBK78et1XRbKu73KM40iYV/DkOpzQxZWX3z45iZl +KXtehqQFC49Ox3XFRJPg4tRyPt2Zhb5RbRWrT5PAvnKioXonC/urbbWjKc+0 +0RZ89mDh6fPKFz5TznU7HMk8yML9ddvnpseQ0O8tfqQsgoWXBlxbh89Q+5Fl +Wf3oNAvD9p1Ybc4n4Wd75ILGOBYa+Wv5JlAecRBmfE5m4T2tkkFaLAmjZ/W/ +9aeysGG5nvYBymNPA7WnMlmo9rEk4DblSdPeJ1IkC63Zi4b04kiYCmEsUSpm +YWvrVa0jlKfveLnSS1nY9yD1cAnl38zOAdMqFv5nyBtRP0uCqOy/y/c3sXDc +crfEBOW5DuKeR9+x8JDWblf6ORLmnbW8GdHBwpa224VbKIuLVENKDwsHtj12 +ElBeZCqMy/nBwmzjtaUvKS8O0W8uGmSh1By+zBhlqf7ifXVTLBRdIPxqFE/C +UmZv6csZFl62/rzdhfIyL8ZMuyiBD/xlmoIpS2d6WX9dQGD0lZ/2iZRl27IS +hyQIdFNqab5BWU6ms/PXMgLnnWd61VJebi/PWCBPva+1nGylrBC3NUB6JYGb +GhIu9VFWfHKhcpUqgQXDe01mKCvNNs4lGAT+fqz5Q+I8lS8m4g5rOARenrMh +R4nyqmDLNNAm0PRvWW8GZeWSyO6N+gTSl09qalNe3Vel4WxC4Nt8x3lGlFUZ +wmOeQOCYIv8bjzLNU7/Wz5JA473Tb8wpq18NlAi1IXBDpVTjOsqM1mLnU/YE +XolivvpjpnRvdsJWAs28yY9/vmfZMfrSXAj8aj7++8947Fgv/fxdBBaZBjH/ +/I9blxVR4kXgQOEp9z/z0fhfR/0DXwItVBPy/8xX01he9rkfFX/ghPBPPNpH +t+5+E0hgap7qLknKurcvkF0hBEaJBL/6sx56vY0j38MJVJzn7NhPeQ1dnDcW +SeCIH7u7jbKBhyV/NobAFRouMXWUDTMiXy86R+CPo+uNiigbtVStWH6RwE/F +Lr+TKJtu0i/hUkkf++Dc/R2UzfiB04bXCFwcE/a3KeW1tcWW6/IIVCGIGiXK +aMRod71FYPweP5m31HmxOOKl5vM3gczqVzuKKK+7lXUooILAxKBL905RtlKX +F+XXEljf213EpfzDy5o0fU5gOT306BzK8TnH7IcaqXgjUhKbqfP8Vrkt3fUd +gXZ3n78IpuyhmKbH/U6gdJTH9jwqH8Rc6ts/9RN4/SPZfJByQYow4vIwgY+E +nBs6lPtldvz7v2kCO9/w3CuofAuTWuHzWpKN+XsUf92h8nWlne3iM9Js5D15 +tM6Pcs258Dsm8myMFHP7T53y/IXvZ66vZuOO+hZMpPI/SSwzJUSPjUeWnrJy +pupD0ZTyPytc2ej5tLA3kao3DoYO/k272Oha7iyhS3kkOEI2xouNz24lJDRR +9cl49KPH4EE2lp1YdE+c8rOBbGHNSTYWDdIzfCJI+PiFxtmbx0b/kKVSb8JJ +iFbd+lqpkI0Ob9d5u1BmeJw69qqYjU9tHyl3UfXVr6u7zqicjYMMsYbPVP2d +as1zW9zAxuFFk79aj1H5+IKRUPKTjU+cmlRCqXr+v5/a+Q1jbKS/GLjQFkRC +r7RpVY+QjfFHPeiGlGtdHHoV5nIwYxO3dpDqB0d6jllFKXAwe0llkzXVP5p/ +/fM/R3MO+l3RLc6h+k2N8ls5PysOitatLOrxpdbDvIt7xpaDM41SbXTKMfzh +HZVOHNT7b6Yi14c6jzJK5bQDHPxPWFl0hupvV9gHD48mcXC9Xk/95E4STtsF +n5FM5eB7e8PmVZQDAiIymZkclGgKlrHYQcKGe8mNOwUcXOFWphvjQsVrXsV8 +8oCD42ye6ATVT3e4Sn661MNBejY6R9tR+xt7e7OBARdnvTw8bXgk3LhVXCc0 +4aKsF229DdXfjd7dNKgGLgb/7i6wNiVhG41caWnDxRZVhW9gTJ3Hquzvjm5c +TJki3JWp+8KvocTIQ9FclLGKy0jmktDherQk7yUXw6X10EuJ6keRQWr73nKR +HDleoatIwkRBQAqnjYv3mQlVcxSo/RjzO1H6mYvnmlr3Z8iRsDHBZ0PNGBfV +FK19qpeScL/W+VOnkgZ++bDfomo+Cakc46Uyvhqo7bCwlBwWgJPti4sPD2og +b9m23Vuo+5j0Qc9lBwI0kLshqXR6UADnbsRJPw7TQFH5zG3W/QI4SXTIHo7X +wDKvrrNN3wSwhxmu2HhHA5NSulSudwpAR62aduq3BppXKf+0fSKABiVz/dFE +TQyZLox+kiiAJuXbjLlXNNF356JjkxcE0EJbpSB3VRPz/fdMshIE8JktnDYo +0MSA5E1Z/LMCmDK5U3O8UhMfB365pHdKAIydqptEuzXRX0Ul3+qoAKIz5ngv +W6OFxQ0ezrucBGCysvaiVosWpnBSfQ7JCEBKLPeoZ7Q2emYvOpl4tgCUo1TM +XBk6OOEjlvG+Ox8W0t3ubXmug49yz5uNaOWDJk/x9rFdunhDsj75bngeBH2Q +rtsooodVS4Zow0XX4edovJNNqh4esTFWdurOBWutZ+k2Gmuw2PfZyVD5XHg4 +avpr8uUafPzgfg7q54A/V7fjtY8+9nyw0jV1zwbe4J5m14UGWKEa8qqoLwvW +qyvYSeYaIO91V8gOo0xgRZ4NrTU0RI8ub9mGixnA9jF+RO8wxDun0l+WNqaB +z8N9p8sCjfDpoEmpnEYqPMpu3jMsZ4z20trflhxLgTFydlKr3BjjkwuuHWy5 +BN70mwvT7UwwXWXW0MQ9GYbZyQalQyao17QkyL8tESryfn0ejzXFJJlnGVnh +F2GHpRqaKptheB39ZcOBBFhxiH9fs8YMgxbLRZk3ngO5RX537LbzMC5uUcHu +8DjIW/fX8SFXHvI8P4e7BMaB7l8J65LdeJi+bMvYNt84sB8qedfmyUPvTSov +nLbGwZmWcaG3Hw/vT9NUjnHiYCo3wuJ4FA99/WRtjN7HQodp8tuCmzzkR554 +WAaxsC8476rNLR6+CAoaEDWIhYlbd336S3iY9kz60VZuLEjT2iZ17vFwzMxg +44xCLNiKr1pZXcPD5SbE7OERPlQ1F+x5+46Hu422db7N58NGqQqNkDYefg8s +0950lQ9t1vUTCp083F6ixHqexIexyr7Y3Z94WPmj5veTCD5o5GgX/+jlodj8 +N6afXKnxOsxD4gd4qKZed+3QZmo82a2gNcTDisi1+TNWfNjLD359dJyHVdPn +L9HXUOPVnEmXn+Khq8Tak9VsPkRPX/GunKbWa732QhdVPixdU8jdNcPDqURH +/XF5PmQdqhyfneUheSRB9LIUH/4PZ+pnPA== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "PlotRange" -> {{0, 30}, {0., 0.04795276550044319}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7154,19 +6862,19 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "PlotRange" -> {{0, 30}, {0., 0.04795276550044319}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7180,220 +6888,115 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S -UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ -f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP -IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w -4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF -SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC -tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S -r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY -IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm -WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE -b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n -cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA -7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc -HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 -uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG -e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW -g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh -tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E -bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb -36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf -HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf -sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 -fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 -4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q -bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH -czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F -fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb -wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 -PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O -f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 -+p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f -7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 -sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK -TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 -tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp -9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv -AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 -vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz -83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw -sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j -76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy -GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih -ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ -miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO -4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH -vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT -/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY -kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 -O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA -OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB -POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR -4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd -ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd -BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na -AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB -SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC -EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C -QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ -FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB -U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ -FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX -dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm -b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT -mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI -RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U -6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e -j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b -6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 -zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC -rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn -uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F -cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk -RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU -XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD -f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 -vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT -pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy -ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR -6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 -wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r -l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY -tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR -k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z -FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO -wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz -hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ -y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq -XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh -KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK -F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO -bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF -9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK -itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN -qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 -iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS -Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 -OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu -x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 -urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM -EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh -7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh -Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q -mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe -XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS -+Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU -25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw -QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T -BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk -uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k -dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP -y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 -LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 -IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 -rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE -AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 -QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 -aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr -rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf -pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f -5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte -W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 -punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh -3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI -IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB -UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 -CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh -ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St -63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K -Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar -5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z -YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 -t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 -wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a -+b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w -7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS -rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN -D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ -HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp -MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j -Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 -hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT -PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke -Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE -TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz -8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 -wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO -zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs -N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO -2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ -+Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR -WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax -kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl -F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY -1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU -4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ -PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d -HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY -RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma -X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ -IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu -h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D -S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 -e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv -DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ -6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 -8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw -nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L -MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 -l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I -nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW -59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op -cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy -la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK -eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 -ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD -1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q -eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY -9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM -8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu -9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR -D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK -06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde -JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK -7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV -dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 -pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr -Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk -9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 -lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o -xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su -YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l -IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i -AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 -A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== +1:eJwV1nk8VdsXAHDRoEJlyFCRyx3Ovdec2W0tEklIRZQyJQ0SikgvQ+lSUigZ +IoR7FCVPkSjR8PAqlYxpol6ZMnOVn9/pr/P5fs757LPX3nuttVW9Dm/xERUR +EVkwR0Tkz3PiQ/0T9XN5ay3nJCRUHNZe25ylEGbeFg3106+3nmdKAcq98lJo +S4KBMQ+xjUxlCNl8o1WsLRe0WXVdNKYmLBuUTxK2loLh+kgnIWMtfKyyPzzW +WgsbLaKr4hn2YKXe2zXc+gaYnFhiUn03CFsNLw+1fgHXwjnLSpT9oW6dIO91 +7ijot89m/FgfASs/3v/mxZ2B80XO1TGKfJD1c7+xYJ0YVuYUram2TIAkHasH +9k7iaMk9bfflRxK0p2rXDC+VRDMnM/fyzSlwLi/ilajiMpz7qsyA3ZoG8pe6 +45IzZXCRsHRvzKpM4G+zWftmQg5jrWiKFr+vwRHjHPf6aAUMm2iY8gvIAcuf +08f9u5XQTu41bbQ4F6LMHD2VjFZhsccBBd/662ByK63s5CMV7Gqf8TnzPg/8 +poYj/5FUxaG7do591flgErh3+TdpVRyxap8JfZwP4r0dN8UUVFFOvHvv3Kf5 +kN9Z17KWpopvXg4dkv03Hz48vMy9a6CKYYvjNil25INDjHFbjrsqbjVK0Lk3 +ng+60lFa4XdUsX/Y/IMppwCEnKUfNJxoaNctuTroQgFMZCpF6e2gYYHiKhOP +pAIYW0JXN3anoVr7u9WbLhfA4KjxAcv9NEx2YG5blVEAXx54T+z4i4bPLC47 +5hcUQINtuVRsPg1H81det60ugPSDu+HLOA3HphgXhr8XgNnNouyUFDUs6yle +fd1YAJ2rb15bn6GGE6Dj22kqgOMphVlj19Sw/H7sk2VrBVAeVXB1S6Ea7jbs +qQu1EICuS3aqVJUa6vQWtWjZCoCYd+nimc9qWLx7u4uFmwCWu4dHhnDV8WTG +oKHwhADuNodF0HXUsVhMIXjspAC2bQw92ayvjo650o0DkQJI0g8+oQvqGDzT ++LjjtAAkJQ6HDjqqo2rIxfeZ8QKYe98rYO8xdbQLMO34J0MAw9IbPZxr1XF0 +eV9aaYUA2vxoTQeeq+Nex9QXKZUCqHk2DRH/qqPl0ZLnoVUCuHj8pgrZoo7+ +J0uWGNQIQPuLxEdhrzoqVvaNXH4uAP87r3ZlytBRfMMGZt87AfQ6OO3s2UPH +8c0tHv1DAnhTqNE4tZ+OgZuDi+NGBFApNt9U8jAd391Le6o+JoC48ntKBmF0 +9JXgum6bFABLRaGDf56OIo7p0mkzAvAd7HDh3KNj8v5/pioWktAT7+EctICB +tvKZY1tXk+Dfy6VpSzDQQ2ye9SVVEiathQMDSxn4danx329oJCwSS4rZr8TA +Cqfqdhs6CdphdWUeGgzMWbNxjyqbhL98GDIOWxnIJtpTg/VImF838kHChYFu +1xdmXVlDwsXVj240uDFQo1ykplyfhLzO7RZWexkYHbFw54ghCQ2OcYG8MAZe +2CM6utmMhOVr+19xrjHQocyk9W9LErIzKjJ+XGdgduzVmvL1JBDC074CkoHF +qr/q71uRYFa2apZWSs3H+DSvYgMJ3mwHTaWnDBTtKyzO2kRCyfLSePE+Bup4 +qX5Zto0Em5/HbL4aMLGBcZqR7EnCSh3lM+JmTBT+fKfm50XCYNCTWo45ExXn +949beJNwaWKpWZAtEx0Ppin27iHhw0yh5qw7EyN0Q32V95EQJPFeRjGOiUaz +xl4q/iRY2kdvNktgYodiYtM7yvIXWefdk5n4/US2wtnDJFTJBM8vyGRi/wkt +w/4Aar1WSAl1S5k4FiJdnnKEhHQCP2zqZCJIiy6OCSXB7+A3pYBPTAz5/s5U +MYwEKI7fnvyVib07c2xvUu7Rbm9q/8nEVZJhC+uPk6BpFFS3dy4L003uLOg7 +QYLIcQWRswtZOJ321Nj/LxLePnhoVizFwoyv8XY/KYfC4nujCiyMtbuyou8k +CXVWeWSkBgvNwz121keSkBK78et1XRbKu73KM40iYV/DkOpzQxZWX3z45iZl +KXtehqQFC49Ox3XFRJPg4tRyPt2Zhb5RbRWrT5PAvnKioXonC/urbbWjKc+0 +0RZ89mDh6fPKFz5TznU7HMk8yML9ddvnpseQ0O8tfqQsgoWXBlxbh89Q+5Fl +Wf3oNAvD9p1Ybc4n4Wd75ILGOBYa+Wv5JlAecRBmfE5m4T2tkkFaLAmjZ/W/ +9aeysGG5nvYBymNPA7WnMlmo9rEk4DblSdPeJ1IkC63Zi4b04kiYCmEsUSpm +YWvrVa0jlKfveLnSS1nY9yD1cAnl38zOAdMqFv5nyBtRP0uCqOy/y/c3sXDc +crfEBOW5DuKeR9+x8JDWblf6ORLmnbW8GdHBwpa224VbKIuLVENKDwsHtj12 +ElBeZCqMy/nBwmzjtaUvKS8O0W8uGmSh1By+zBhlqf7ifXVTLBRdIPxqFE/C +UmZv6csZFl62/rzdhfIyL8ZMuyiBD/xlmoIpS2d6WX9dQGD0lZ/2iZRl27IS +hyQIdFNqab5BWU6ms/PXMgLnnWd61VJebi/PWCBPva+1nGylrBC3NUB6JYGb +GhIu9VFWfHKhcpUqgQXDe01mKCvNNs4lGAT+fqz5Q+I8lS8m4g5rOARenrMh +R4nyqmDLNNAm0PRvWW8GZeWSyO6N+gTSl09qalNe3Vel4WxC4Nt8x3lGlFUZ +wmOeQOCYIv8bjzLNU7/Wz5JA473Tb8wpq18NlAi1IXBDpVTjOsqM1mLnU/YE +XolivvpjpnRvdsJWAs28yY9/vmfZMfrSXAj8aj7++8947Fgv/fxdBBaZBjH/ +/I9blxVR4kXgQOEp9z/z0fhfR/0DXwItVBPy/8xX01he9rkfFX/ghPBPPNpH +t+5+E0hgap7qLknKurcvkF0hBEaJBL/6sx56vY0j38MJVJzn7NhPeQ1dnDcW +SeCIH7u7jbKBhyV/NobAFRouMXWUDTMiXy86R+CPo+uNiigbtVStWH6RwE/F +Lr+TKJtu0i/hUkkf++Dc/R2UzfiB04bXCFwcE/a3KeW1tcWW6/IIVCGIGiXK +aMRod71FYPweP5m31HmxOOKl5vM3gczqVzuKKK+7lXUooILAxKBL905RtlKX +F+XXEljf213EpfzDy5o0fU5gOT306BzK8TnH7IcaqXgjUhKbqfP8Vrkt3fUd +gXZ3n78IpuyhmKbH/U6gdJTH9jwqH8Rc6ts/9RN4/SPZfJByQYow4vIwgY+E +nBs6lPtldvz7v2kCO9/w3CuofAuTWuHzWpKN+XsUf92h8nWlne3iM9Js5D15 +tM6Pcs258Dsm8myMFHP7T53y/IXvZ66vZuOO+hZMpPI/SSwzJUSPjUeWnrJy +pupD0ZTyPytc2ej5tLA3kao3DoYO/k272Oha7iyhS3kkOEI2xouNz24lJDRR +9cl49KPH4EE2lp1YdE+c8rOBbGHNSTYWDdIzfCJI+PiFxtmbx0b/kKVSb8JJ +iFbd+lqpkI0Ob9d5u1BmeJw69qqYjU9tHyl3UfXVr6u7zqicjYMMsYbPVP2d +as1zW9zAxuFFk79aj1H5+IKRUPKTjU+cmlRCqXr+v5/a+Q1jbKS/GLjQFkRC +r7RpVY+QjfFHPeiGlGtdHHoV5nIwYxO3dpDqB0d6jllFKXAwe0llkzXVP5p/ +/fM/R3MO+l3RLc6h+k2N8ls5PysOitatLOrxpdbDvIt7xpaDM41SbXTKMfzh +HZVOHNT7b6Yi14c6jzJK5bQDHPxPWFl0hupvV9gHD48mcXC9Xk/95E4STtsF +n5FM5eB7e8PmVZQDAiIymZkclGgKlrHYQcKGe8mNOwUcXOFWphvjQsVrXsV8 +8oCD42ye6ATVT3e4Sn661MNBejY6R9tR+xt7e7OBARdnvTw8bXgk3LhVXCc0 +4aKsF229DdXfjd7dNKgGLgb/7i6wNiVhG41caWnDxRZVhW9gTJ3Hquzvjm5c +TJki3JWp+8KvocTIQ9FclLGKy0jmktDherQk7yUXw6X10EuJ6keRQWr73nKR +HDleoatIwkRBQAqnjYv3mQlVcxSo/RjzO1H6mYvnmlr3Z8iRsDHBZ0PNGBfV +FK19qpeScL/W+VOnkgZ++bDfomo+Cakc46Uyvhqo7bCwlBwWgJPti4sPD2og +b9m23Vuo+5j0Qc9lBwI0kLshqXR6UADnbsRJPw7TQFH5zG3W/QI4SXTIHo7X +wDKvrrNN3wSwhxmu2HhHA5NSulSudwpAR62aduq3BppXKf+0fSKABiVz/dFE +TQyZLox+kiiAJuXbjLlXNNF356JjkxcE0EJbpSB3VRPz/fdMshIE8JktnDYo +0MSA5E1Z/LMCmDK5U3O8UhMfB365pHdKAIydqptEuzXRX0Ul3+qoAKIz5ngv +W6OFxQ0ezrucBGCysvaiVosWpnBSfQ7JCEBKLPeoZ7Q2emYvOpl4tgCUo1TM +XBk6OOEjlvG+Ox8W0t3ubXmug49yz5uNaOWDJk/x9rFdunhDsj75bngeBH2Q +rtsooodVS4Zow0XX4edovJNNqh4esTFWdurOBWutZ+k2Gmuw2PfZyVD5XHg4 +avpr8uUafPzgfg7q54A/V7fjtY8+9nyw0jV1zwbe4J5m14UGWKEa8qqoLwvW +qyvYSeYaIO91V8gOo0xgRZ4NrTU0RI8ub9mGixnA9jF+RO8wxDun0l+WNqaB +z8N9p8sCjfDpoEmpnEYqPMpu3jMsZ4z20trflhxLgTFydlKr3BjjkwuuHWy5 +BN70mwvT7UwwXWXW0MQ9GYbZyQalQyao17QkyL8tESryfn0ejzXFJJlnGVnh +F2GHpRqaKptheB39ZcOBBFhxiH9fs8YMgxbLRZk3ngO5RX537LbzMC5uUcHu +8DjIW/fX8SFXHvI8P4e7BMaB7l8J65LdeJi+bMvYNt84sB8qedfmyUPvTSov +nLbGwZmWcaG3Hw/vT9NUjnHiYCo3wuJ4FA99/WRtjN7HQodp8tuCmzzkR554 +WAaxsC8476rNLR6+CAoaEDWIhYlbd336S3iY9kz60VZuLEjT2iZ17vFwzMxg +44xCLNiKr1pZXcPD5SbE7OERPlQ1F+x5+46Hu422db7N58NGqQqNkDYefg8s +0950lQ9t1vUTCp083F6ixHqexIexyr7Y3Z94WPmj5veTCD5o5GgX/+jlodj8 +N6afXKnxOsxD4gd4qKZed+3QZmo82a2gNcTDisi1+TNWfNjLD359dJyHVdPn +L9HXUOPVnEmXn+Khq8Tak9VsPkRPX/GunKbWa732QhdVPixdU8jdNcPDqURH +/XF5PmQdqhyfneUheSRB9LIUH/4PZ+pnPA== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "PlotRange" -> {{0, 30}, {0., 0.04795276550044319}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7404,6 +7007,7 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -7431,7 +7035,8 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.11602348907445073`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.04795276550044319}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -7439,11 +7044,12 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991340117671425*^9}, - CellLabel-> - "Out[335]=",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] + CellChangeTimes->{3.991340117671425*^9, 3.994250964571887*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"680c550a-4dd6-4fa9-87a2-9092f543a896"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", @@ -7512,15 +7118,789 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"30", ",", "0.007985"}], "}"}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, - 3.994082726121962*^9},ExpressionUUID->"2d5a8299-5376-9747-8056-\ -2bd9764114a1"], + 3.994082726121962*^9}, + CellLabel->"In[96]:=",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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->{ + "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.051395}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994250964842113*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"24ed2fd4-3ce6-4b0f-addd-e6dc5fb74395"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-\ -0ac982b58a3a"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-0ac982b58a3a"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk8VdsXAHDRoEJlyFCRyx3Ovdec2W0tEklIRZQyJQ0SikgvQ+lSUigZ +IoR7FCVPkSjR8PAqlYxpol6ZMnOVn9/pr/P5fs757LPX3nuttVW9Dm/xERUR +EVkwR0Tkz3PiQ/0T9XN5ay3nJCRUHNZe25ylEGbeFg3106+3nmdKAcq98lJo +S4KBMQ+xjUxlCNl8o1WsLRe0WXVdNKYmLBuUTxK2loLh+kgnIWMtfKyyPzzW +WgsbLaKr4hn2YKXe2zXc+gaYnFhiUn03CFsNLw+1fgHXwjnLSpT9oW6dIO91 +7ijot89m/FgfASs/3v/mxZ2B80XO1TGKfJD1c7+xYJ0YVuYUram2TIAkHasH +9k7iaMk9bfflRxK0p2rXDC+VRDMnM/fyzSlwLi/ilajiMpz7qsyA3ZoG8pe6 +45IzZXCRsHRvzKpM4G+zWftmQg5jrWiKFr+vwRHjHPf6aAUMm2iY8gvIAcuf +08f9u5XQTu41bbQ4F6LMHD2VjFZhsccBBd/662ByK63s5CMV7Gqf8TnzPg/8 +poYj/5FUxaG7do591flgErh3+TdpVRyxap8JfZwP4r0dN8UUVFFOvHvv3Kf5 +kN9Z17KWpopvXg4dkv03Hz48vMy9a6CKYYvjNil25INDjHFbjrsqbjVK0Lk3 +ng+60lFa4XdUsX/Y/IMppwCEnKUfNJxoaNctuTroQgFMZCpF6e2gYYHiKhOP +pAIYW0JXN3anoVr7u9WbLhfA4KjxAcv9NEx2YG5blVEAXx54T+z4i4bPLC47 +5hcUQINtuVRsPg1H81det60ugPSDu+HLOA3HphgXhr8XgNnNouyUFDUs6yle +fd1YAJ2rb15bn6GGE6Dj22kqgOMphVlj19Sw/H7sk2VrBVAeVXB1S6Ea7jbs +qQu1EICuS3aqVJUa6vQWtWjZCoCYd+nimc9qWLx7u4uFmwCWu4dHhnDV8WTG +oKHwhADuNodF0HXUsVhMIXjspAC2bQw92ayvjo650o0DkQJI0g8+oQvqGDzT ++LjjtAAkJQ6HDjqqo2rIxfeZ8QKYe98rYO8xdbQLMO34J0MAw9IbPZxr1XF0 +eV9aaYUA2vxoTQeeq+Nex9QXKZUCqHk2DRH/qqPl0ZLnoVUCuHj8pgrZoo7+ +J0uWGNQIQPuLxEdhrzoqVvaNXH4uAP87r3ZlytBRfMMGZt87AfQ6OO3s2UPH +8c0tHv1DAnhTqNE4tZ+OgZuDi+NGBFApNt9U8jAd391Le6o+JoC48ntKBmF0 +9JXgum6bFABLRaGDf56OIo7p0mkzAvAd7HDh3KNj8v5/pioWktAT7+EctICB +tvKZY1tXk+Dfy6VpSzDQQ2ye9SVVEiathQMDSxn4danx329oJCwSS4rZr8TA +Cqfqdhs6CdphdWUeGgzMWbNxjyqbhL98GDIOWxnIJtpTg/VImF838kHChYFu +1xdmXVlDwsXVj240uDFQo1ykplyfhLzO7RZWexkYHbFw54ghCQ2OcYG8MAZe +2CM6utmMhOVr+19xrjHQocyk9W9LErIzKjJ+XGdgduzVmvL1JBDC074CkoHF +qr/q71uRYFa2apZWSs3H+DSvYgMJ3mwHTaWnDBTtKyzO2kRCyfLSePE+Bup4 +qX5Zto0Em5/HbL4aMLGBcZqR7EnCSh3lM+JmTBT+fKfm50XCYNCTWo45ExXn +949beJNwaWKpWZAtEx0Ppin27iHhw0yh5qw7EyN0Q32V95EQJPFeRjGOiUaz +xl4q/iRY2kdvNktgYodiYtM7yvIXWefdk5n4/US2wtnDJFTJBM8vyGRi/wkt +w/4Aar1WSAl1S5k4FiJdnnKEhHQCP2zqZCJIiy6OCSXB7+A3pYBPTAz5/s5U +MYwEKI7fnvyVib07c2xvUu7Rbm9q/8nEVZJhC+uPk6BpFFS3dy4L003uLOg7 +QYLIcQWRswtZOJ321Nj/LxLePnhoVizFwoyv8XY/KYfC4nujCiyMtbuyou8k +CXVWeWSkBgvNwz121keSkBK78et1XRbKu73KM40iYV/DkOpzQxZWX3z45iZl +KXtehqQFC49Ox3XFRJPg4tRyPt2Zhb5RbRWrT5PAvnKioXonC/urbbWjKc+0 +0RZ89mDh6fPKFz5TznU7HMk8yML9ddvnpseQ0O8tfqQsgoWXBlxbh89Q+5Fl +Wf3oNAvD9p1Ybc4n4Wd75ILGOBYa+Wv5JlAecRBmfE5m4T2tkkFaLAmjZ/W/ +9aeysGG5nvYBymNPA7WnMlmo9rEk4DblSdPeJ1IkC63Zi4b04kiYCmEsUSpm +YWvrVa0jlKfveLnSS1nY9yD1cAnl38zOAdMqFv5nyBtRP0uCqOy/y/c3sXDc +crfEBOW5DuKeR9+x8JDWblf6ORLmnbW8GdHBwpa224VbKIuLVENKDwsHtj12 +ElBeZCqMy/nBwmzjtaUvKS8O0W8uGmSh1By+zBhlqf7ifXVTLBRdIPxqFE/C +UmZv6csZFl62/rzdhfIyL8ZMuyiBD/xlmoIpS2d6WX9dQGD0lZ/2iZRl27IS +hyQIdFNqab5BWU6ms/PXMgLnnWd61VJebi/PWCBPva+1nGylrBC3NUB6JYGb +GhIu9VFWfHKhcpUqgQXDe01mKCvNNs4lGAT+fqz5Q+I8lS8m4g5rOARenrMh +R4nyqmDLNNAm0PRvWW8GZeWSyO6N+gTSl09qalNe3Vel4WxC4Nt8x3lGlFUZ +wmOeQOCYIv8bjzLNU7/Wz5JA473Tb8wpq18NlAi1IXBDpVTjOsqM1mLnU/YE +XolivvpjpnRvdsJWAs28yY9/vmfZMfrSXAj8aj7++8947Fgv/fxdBBaZBjH/ +/I9blxVR4kXgQOEp9z/z0fhfR/0DXwItVBPy/8xX01he9rkfFX/ghPBPPNpH +t+5+E0hgap7qLknKurcvkF0hBEaJBL/6sx56vY0j38MJVJzn7NhPeQ1dnDcW +SeCIH7u7jbKBhyV/NobAFRouMXWUDTMiXy86R+CPo+uNiigbtVStWH6RwE/F +Lr+TKJtu0i/hUkkf++Dc/R2UzfiB04bXCFwcE/a3KeW1tcWW6/IIVCGIGiXK +aMRod71FYPweP5m31HmxOOKl5vM3gczqVzuKKK+7lXUooILAxKBL905RtlKX +F+XXEljf213EpfzDy5o0fU5gOT306BzK8TnH7IcaqXgjUhKbqfP8Vrkt3fUd +gXZ3n78IpuyhmKbH/U6gdJTH9jwqH8Rc6ts/9RN4/SPZfJByQYow4vIwgY+E +nBs6lPtldvz7v2kCO9/w3CuofAuTWuHzWpKN+XsUf92h8nWlne3iM9Js5D15 +tM6Pcs258Dsm8myMFHP7T53y/IXvZ66vZuOO+hZMpPI/SSwzJUSPjUeWnrJy +pupD0ZTyPytc2ej5tLA3kao3DoYO/k272Oha7iyhS3kkOEI2xouNz24lJDRR +9cl49KPH4EE2lp1YdE+c8rOBbGHNSTYWDdIzfCJI+PiFxtmbx0b/kKVSb8JJ +iFbd+lqpkI0Ob9d5u1BmeJw69qqYjU9tHyl3UfXVr6u7zqicjYMMsYbPVP2d +as1zW9zAxuFFk79aj1H5+IKRUPKTjU+cmlRCqXr+v5/a+Q1jbKS/GLjQFkRC +r7RpVY+QjfFHPeiGlGtdHHoV5nIwYxO3dpDqB0d6jllFKXAwe0llkzXVP5p/ +/fM/R3MO+l3RLc6h+k2N8ls5PysOitatLOrxpdbDvIt7xpaDM41SbXTKMfzh +HZVOHNT7b6Yi14c6jzJK5bQDHPxPWFl0hupvV9gHD48mcXC9Xk/95E4STtsF +n5FM5eB7e8PmVZQDAiIymZkclGgKlrHYQcKGe8mNOwUcXOFWphvjQsVrXsV8 +8oCD42ye6ATVT3e4Sn661MNBejY6R9tR+xt7e7OBARdnvTw8bXgk3LhVXCc0 +4aKsF229DdXfjd7dNKgGLgb/7i6wNiVhG41caWnDxRZVhW9gTJ3Hquzvjm5c +TJki3JWp+8KvocTIQ9FclLGKy0jmktDherQk7yUXw6X10EuJ6keRQWr73nKR +HDleoatIwkRBQAqnjYv3mQlVcxSo/RjzO1H6mYvnmlr3Z8iRsDHBZ0PNGBfV +FK19qpeScL/W+VOnkgZ++bDfomo+Cakc46Uyvhqo7bCwlBwWgJPti4sPD2og +b9m23Vuo+5j0Qc9lBwI0kLshqXR6UADnbsRJPw7TQFH5zG3W/QI4SXTIHo7X +wDKvrrNN3wSwhxmu2HhHA5NSulSudwpAR62aduq3BppXKf+0fSKABiVz/dFE +TQyZLox+kiiAJuXbjLlXNNF356JjkxcE0EJbpSB3VRPz/fdMshIE8JktnDYo +0MSA5E1Z/LMCmDK5U3O8UhMfB365pHdKAIydqptEuzXRX0Ul3+qoAKIz5ngv +W6OFxQ0ezrucBGCysvaiVosWpnBSfQ7JCEBKLPeoZ7Q2emYvOpl4tgCUo1TM +XBk6OOEjlvG+Ox8W0t3ubXmug49yz5uNaOWDJk/x9rFdunhDsj75bngeBH2Q +rtsooodVS4Zow0XX4edovJNNqh4esTFWdurOBWutZ+k2Gmuw2PfZyVD5XHg4 +avpr8uUafPzgfg7q54A/V7fjtY8+9nyw0jV1zwbe4J5m14UGWKEa8qqoLwvW +qyvYSeYaIO91V8gOo0xgRZ4NrTU0RI8ub9mGixnA9jF+RO8wxDun0l+WNqaB +z8N9p8sCjfDpoEmpnEYqPMpu3jMsZ4z20trflhxLgTFydlKr3BjjkwuuHWy5 +BN70mwvT7UwwXWXW0MQ9GYbZyQalQyao17QkyL8tESryfn0ejzXFJJlnGVnh +F2GHpRqaKptheB39ZcOBBFhxiH9fs8YMgxbLRZk3ngO5RX537LbzMC5uUcHu +8DjIW/fX8SFXHvI8P4e7BMaB7l8J65LdeJi+bMvYNt84sB8qedfmyUPvTSov +nLbGwZmWcaG3Hw/vT9NUjnHiYCo3wuJ4FA99/WRtjN7HQodp8tuCmzzkR554 +WAaxsC8476rNLR6+CAoaEDWIhYlbd336S3iY9kz60VZuLEjT2iZ17vFwzMxg +44xCLNiKr1pZXcPD5SbE7OERPlQ1F+x5+46Hu422db7N58NGqQqNkDYefg8s +0950lQ9t1vUTCp083F6ixHqexIexyr7Y3Z94WPmj5veTCD5o5GgX/+jlodj8 +N6afXKnxOsxD4gd4qKZed+3QZmo82a2gNcTDisi1+TNWfNjLD359dJyHVdPn +L9HXUOPVnEmXn+Khq8Tak9VsPkRPX/GunKbWa732QhdVPixdU8jdNcPDqURH +/XF5PmQdqhyfneUheSRB9LIUH/4PZ+pnPA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VdsXAHDRoEJlyFCRyx3Ovdec2W0tEklIRZQyJQ0SikgvQ+lSUigZ +IoR7FCVPkSjR8PAqlYxpol6ZMnOVn9/pr/P5fs757LPX3nuttVW9Dm/xERUR +EVkwR0Tkz3PiQ/0T9XN5ay3nJCRUHNZe25ylEGbeFg3106+3nmdKAcq98lJo +S4KBMQ+xjUxlCNl8o1WsLRe0WXVdNKYmLBuUTxK2loLh+kgnIWMtfKyyPzzW +WgsbLaKr4hn2YKXe2zXc+gaYnFhiUn03CFsNLw+1fgHXwjnLSpT9oW6dIO91 +7ijot89m/FgfASs/3v/mxZ2B80XO1TGKfJD1c7+xYJ0YVuYUram2TIAkHasH +9k7iaMk9bfflRxK0p2rXDC+VRDMnM/fyzSlwLi/ilajiMpz7qsyA3ZoG8pe6 +45IzZXCRsHRvzKpM4G+zWftmQg5jrWiKFr+vwRHjHPf6aAUMm2iY8gvIAcuf +08f9u5XQTu41bbQ4F6LMHD2VjFZhsccBBd/662ByK63s5CMV7Gqf8TnzPg/8 +poYj/5FUxaG7do591flgErh3+TdpVRyxap8JfZwP4r0dN8UUVFFOvHvv3Kf5 +kN9Z17KWpopvXg4dkv03Hz48vMy9a6CKYYvjNil25INDjHFbjrsqbjVK0Lk3 +ng+60lFa4XdUsX/Y/IMppwCEnKUfNJxoaNctuTroQgFMZCpF6e2gYYHiKhOP +pAIYW0JXN3anoVr7u9WbLhfA4KjxAcv9NEx2YG5blVEAXx54T+z4i4bPLC47 +5hcUQINtuVRsPg1H81det60ugPSDu+HLOA3HphgXhr8XgNnNouyUFDUs6yle +fd1YAJ2rb15bn6GGE6Dj22kqgOMphVlj19Sw/H7sk2VrBVAeVXB1S6Ea7jbs +qQu1EICuS3aqVJUa6vQWtWjZCoCYd+nimc9qWLx7u4uFmwCWu4dHhnDV8WTG +oKHwhADuNodF0HXUsVhMIXjspAC2bQw92ayvjo650o0DkQJI0g8+oQvqGDzT ++LjjtAAkJQ6HDjqqo2rIxfeZ8QKYe98rYO8xdbQLMO34J0MAw9IbPZxr1XF0 +eV9aaYUA2vxoTQeeq+Nex9QXKZUCqHk2DRH/qqPl0ZLnoVUCuHj8pgrZoo7+ +J0uWGNQIQPuLxEdhrzoqVvaNXH4uAP87r3ZlytBRfMMGZt87AfQ6OO3s2UPH +8c0tHv1DAnhTqNE4tZ+OgZuDi+NGBFApNt9U8jAd391Le6o+JoC48ntKBmF0 +9JXgum6bFABLRaGDf56OIo7p0mkzAvAd7HDh3KNj8v5/pioWktAT7+EctICB +tvKZY1tXk+Dfy6VpSzDQQ2ye9SVVEiathQMDSxn4danx329oJCwSS4rZr8TA +Cqfqdhs6CdphdWUeGgzMWbNxjyqbhL98GDIOWxnIJtpTg/VImF838kHChYFu +1xdmXVlDwsXVj240uDFQo1ykplyfhLzO7RZWexkYHbFw54ghCQ2OcYG8MAZe +2CM6utmMhOVr+19xrjHQocyk9W9LErIzKjJ+XGdgduzVmvL1JBDC074CkoHF +qr/q71uRYFa2apZWSs3H+DSvYgMJ3mwHTaWnDBTtKyzO2kRCyfLSePE+Bup4 +qX5Zto0Em5/HbL4aMLGBcZqR7EnCSh3lM+JmTBT+fKfm50XCYNCTWo45ExXn +949beJNwaWKpWZAtEx0Ppin27iHhw0yh5qw7EyN0Q32V95EQJPFeRjGOiUaz +xl4q/iRY2kdvNktgYodiYtM7yvIXWefdk5n4/US2wtnDJFTJBM8vyGRi/wkt +w/4Aar1WSAl1S5k4FiJdnnKEhHQCP2zqZCJIiy6OCSXB7+A3pYBPTAz5/s5U +MYwEKI7fnvyVib07c2xvUu7Rbm9q/8nEVZJhC+uPk6BpFFS3dy4L003uLOg7 +QYLIcQWRswtZOJ321Nj/LxLePnhoVizFwoyv8XY/KYfC4nujCiyMtbuyou8k +CXVWeWSkBgvNwz121keSkBK78et1XRbKu73KM40iYV/DkOpzQxZWX3z45iZl +KXtehqQFC49Ox3XFRJPg4tRyPt2Zhb5RbRWrT5PAvnKioXonC/urbbWjKc+0 +0RZ89mDh6fPKFz5TznU7HMk8yML9ddvnpseQ0O8tfqQsgoWXBlxbh89Q+5Fl +Wf3oNAvD9p1Ybc4n4Wd75ILGOBYa+Wv5JlAecRBmfE5m4T2tkkFaLAmjZ/W/ +9aeysGG5nvYBymNPA7WnMlmo9rEk4DblSdPeJ1IkC63Zi4b04kiYCmEsUSpm +YWvrVa0jlKfveLnSS1nY9yD1cAnl38zOAdMqFv5nyBtRP0uCqOy/y/c3sXDc +crfEBOW5DuKeR9+x8JDWblf6ORLmnbW8GdHBwpa224VbKIuLVENKDwsHtj12 +ElBeZCqMy/nBwmzjtaUvKS8O0W8uGmSh1By+zBhlqf7ifXVTLBRdIPxqFE/C +UmZv6csZFl62/rzdhfIyL8ZMuyiBD/xlmoIpS2d6WX9dQGD0lZ/2iZRl27IS +hyQIdFNqab5BWU6ms/PXMgLnnWd61VJebi/PWCBPva+1nGylrBC3NUB6JYGb +GhIu9VFWfHKhcpUqgQXDe01mKCvNNs4lGAT+fqz5Q+I8lS8m4g5rOARenrMh +R4nyqmDLNNAm0PRvWW8GZeWSyO6N+gTSl09qalNe3Vel4WxC4Nt8x3lGlFUZ +wmOeQOCYIv8bjzLNU7/Wz5JA473Tb8wpq18NlAi1IXBDpVTjOsqM1mLnU/YE +XolivvpjpnRvdsJWAs28yY9/vmfZMfrSXAj8aj7++8947Fgv/fxdBBaZBjH/ +/I9blxVR4kXgQOEp9z/z0fhfR/0DXwItVBPy/8xX01he9rkfFX/ghPBPPNpH +t+5+E0hgap7qLknKurcvkF0hBEaJBL/6sx56vY0j38MJVJzn7NhPeQ1dnDcW +SeCIH7u7jbKBhyV/NobAFRouMXWUDTMiXy86R+CPo+uNiigbtVStWH6RwE/F +Lr+TKJtu0i/hUkkf++Dc/R2UzfiB04bXCFwcE/a3KeW1tcWW6/IIVCGIGiXK +aMRod71FYPweP5m31HmxOOKl5vM3gczqVzuKKK+7lXUooILAxKBL905RtlKX +F+XXEljf213EpfzDy5o0fU5gOT306BzK8TnH7IcaqXgjUhKbqfP8Vrkt3fUd +gXZ3n78IpuyhmKbH/U6gdJTH9jwqH8Rc6ts/9RN4/SPZfJByQYow4vIwgY+E +nBs6lPtldvz7v2kCO9/w3CuofAuTWuHzWpKN+XsUf92h8nWlne3iM9Js5D15 +tM6Pcs258Dsm8myMFHP7T53y/IXvZ66vZuOO+hZMpPI/SSwzJUSPjUeWnrJy +pupD0ZTyPytc2ej5tLA3kao3DoYO/k272Oha7iyhS3kkOEI2xouNz24lJDRR +9cl49KPH4EE2lp1YdE+c8rOBbGHNSTYWDdIzfCJI+PiFxtmbx0b/kKVSb8JJ +iFbd+lqpkI0Ob9d5u1BmeJw69qqYjU9tHyl3UfXVr6u7zqicjYMMsYbPVP2d +as1zW9zAxuFFk79aj1H5+IKRUPKTjU+cmlRCqXr+v5/a+Q1jbKS/GLjQFkRC +r7RpVY+QjfFHPeiGlGtdHHoV5nIwYxO3dpDqB0d6jllFKXAwe0llkzXVP5p/ +/fM/R3MO+l3RLc6h+k2N8ls5PysOitatLOrxpdbDvIt7xpaDM41SbXTKMfzh +HZVOHNT7b6Yi14c6jzJK5bQDHPxPWFl0hupvV9gHD48mcXC9Xk/95E4STtsF +n5FM5eB7e8PmVZQDAiIymZkclGgKlrHYQcKGe8mNOwUcXOFWphvjQsVrXsV8 +8oCD42ye6ATVT3e4Sn661MNBejY6R9tR+xt7e7OBARdnvTw8bXgk3LhVXCc0 +4aKsF229DdXfjd7dNKgGLgb/7i6wNiVhG41caWnDxRZVhW9gTJ3Hquzvjm5c +TJki3JWp+8KvocTIQ9FclLGKy0jmktDherQk7yUXw6X10EuJ6keRQWr73nKR +HDleoatIwkRBQAqnjYv3mQlVcxSo/RjzO1H6mYvnmlr3Z8iRsDHBZ0PNGBfV +FK19qpeScL/W+VOnkgZ++bDfomo+Cakc46Uyvhqo7bCwlBwWgJPti4sPD2og +b9m23Vuo+5j0Qc9lBwI0kLshqXR6UADnbsRJPw7TQFH5zG3W/QI4SXTIHo7X +wDKvrrNN3wSwhxmu2HhHA5NSulSudwpAR62aduq3BppXKf+0fSKABiVz/dFE +TQyZLox+kiiAJuXbjLlXNNF356JjkxcE0EJbpSB3VRPz/fdMshIE8JktnDYo +0MSA5E1Z/LMCmDK5U3O8UhMfB365pHdKAIydqptEuzXRX0Ul3+qoAKIz5ngv +W6OFxQ0ezrucBGCysvaiVosWpnBSfQ7JCEBKLPeoZ7Q2emYvOpl4tgCUo1TM +XBk6OOEjlvG+Ox8W0t3ubXmug49yz5uNaOWDJk/x9rFdunhDsj75bngeBH2Q +rtsooodVS4Zow0XX4edovJNNqh4esTFWdurOBWutZ+k2Gmuw2PfZyVD5XHg4 +avpr8uUafPzgfg7q54A/V7fjtY8+9nyw0jV1zwbe4J5m14UGWKEa8qqoLwvW +qyvYSeYaIO91V8gOo0xgRZ4NrTU0RI8ub9mGixnA9jF+RO8wxDun0l+WNqaB +z8N9p8sCjfDpoEmpnEYqPMpu3jMsZ4z20trflhxLgTFydlKr3BjjkwuuHWy5 +BN70mwvT7UwwXWXW0MQ9GYbZyQalQyao17QkyL8tESryfn0ejzXFJJlnGVnh +F2GHpRqaKptheB39ZcOBBFhxiH9fs8YMgxbLRZk3ngO5RX537LbzMC5uUcHu +8DjIW/fX8SFXHvI8P4e7BMaB7l8J65LdeJi+bMvYNt84sB8qedfmyUPvTSov +nLbGwZmWcaG3Hw/vT9NUjnHiYCo3wuJ4FA99/WRtjN7HQodp8tuCmzzkR554 +WAaxsC8476rNLR6+CAoaEDWIhYlbd336S3iY9kz60VZuLEjT2iZ17vFwzMxg +44xCLNiKr1pZXcPD5SbE7OERPlQ1F+x5+46Hu422db7N58NGqQqNkDYefg8s +0950lQ9t1vUTCp083F6ixHqexIexyr7Y3Z94WPmj5veTCD5o5GgX/+jlodj8 +N6afXKnxOsxD4gd4qKZed+3QZmo82a2gNcTDisi1+TNWfNjLD359dJyHVdPn +L9HXUOPVnEmXn+Khq8Tak9VsPkRPX/GunKbWa732QhdVPixdU8jdNcPDqURH +/XF5PmQdqhyfneUheSRB9LIUH/4PZ+pnPA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.04795276550044319}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.04795276550044319}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VdsXAHDRoEJlyFCRyx3Ovdec2W0tEklIRZQyJQ0SikgvQ+lSUigZ +IoR7FCVPkSjR8PAqlYxpol6ZMnOVn9/pr/P5fs757LPX3nuttVW9Dm/xERUR +EVkwR0Tkz3PiQ/0T9XN5ay3nJCRUHNZe25ylEGbeFg3106+3nmdKAcq98lJo +S4KBMQ+xjUxlCNl8o1WsLRe0WXVdNKYmLBuUTxK2loLh+kgnIWMtfKyyPzzW +WgsbLaKr4hn2YKXe2zXc+gaYnFhiUn03CFsNLw+1fgHXwjnLSpT9oW6dIO91 +7ijot89m/FgfASs/3v/mxZ2B80XO1TGKfJD1c7+xYJ0YVuYUram2TIAkHasH +9k7iaMk9bfflRxK0p2rXDC+VRDMnM/fyzSlwLi/ilajiMpz7qsyA3ZoG8pe6 +45IzZXCRsHRvzKpM4G+zWftmQg5jrWiKFr+vwRHjHPf6aAUMm2iY8gvIAcuf +08f9u5XQTu41bbQ4F6LMHD2VjFZhsccBBd/662ByK63s5CMV7Gqf8TnzPg/8 +poYj/5FUxaG7do591flgErh3+TdpVRyxap8JfZwP4r0dN8UUVFFOvHvv3Kf5 +kN9Z17KWpopvXg4dkv03Hz48vMy9a6CKYYvjNil25INDjHFbjrsqbjVK0Lk3 +ng+60lFa4XdUsX/Y/IMppwCEnKUfNJxoaNctuTroQgFMZCpF6e2gYYHiKhOP +pAIYW0JXN3anoVr7u9WbLhfA4KjxAcv9NEx2YG5blVEAXx54T+z4i4bPLC47 +5hcUQINtuVRsPg1H81det60ugPSDu+HLOA3HphgXhr8XgNnNouyUFDUs6yle +fd1YAJ2rb15bn6GGE6Dj22kqgOMphVlj19Sw/H7sk2VrBVAeVXB1S6Ea7jbs +qQu1EICuS3aqVJUa6vQWtWjZCoCYd+nimc9qWLx7u4uFmwCWu4dHhnDV8WTG +oKHwhADuNodF0HXUsVhMIXjspAC2bQw92ayvjo650o0DkQJI0g8+oQvqGDzT ++LjjtAAkJQ6HDjqqo2rIxfeZ8QKYe98rYO8xdbQLMO34J0MAw9IbPZxr1XF0 +eV9aaYUA2vxoTQeeq+Nex9QXKZUCqHk2DRH/qqPl0ZLnoVUCuHj8pgrZoo7+ +J0uWGNQIQPuLxEdhrzoqVvaNXH4uAP87r3ZlytBRfMMGZt87AfQ6OO3s2UPH +8c0tHv1DAnhTqNE4tZ+OgZuDi+NGBFApNt9U8jAd391Le6o+JoC48ntKBmF0 +9JXgum6bFABLRaGDf56OIo7p0mkzAvAd7HDh3KNj8v5/pioWktAT7+EctICB +tvKZY1tXk+Dfy6VpSzDQQ2ye9SVVEiathQMDSxn4danx329oJCwSS4rZr8TA +Cqfqdhs6CdphdWUeGgzMWbNxjyqbhL98GDIOWxnIJtpTg/VImF838kHChYFu +1xdmXVlDwsXVj240uDFQo1ykplyfhLzO7RZWexkYHbFw54ghCQ2OcYG8MAZe +2CM6utmMhOVr+19xrjHQocyk9W9LErIzKjJ+XGdgduzVmvL1JBDC074CkoHF +qr/q71uRYFa2apZWSs3H+DSvYgMJ3mwHTaWnDBTtKyzO2kRCyfLSePE+Bup4 +qX5Zto0Em5/HbL4aMLGBcZqR7EnCSh3lM+JmTBT+fKfm50XCYNCTWo45ExXn +949beJNwaWKpWZAtEx0Ppin27iHhw0yh5qw7EyN0Q32V95EQJPFeRjGOiUaz +xl4q/iRY2kdvNktgYodiYtM7yvIXWefdk5n4/US2wtnDJFTJBM8vyGRi/wkt +w/4Aar1WSAl1S5k4FiJdnnKEhHQCP2zqZCJIiy6OCSXB7+A3pYBPTAz5/s5U +MYwEKI7fnvyVib07c2xvUu7Rbm9q/8nEVZJhC+uPk6BpFFS3dy4L003uLOg7 +QYLIcQWRswtZOJ321Nj/LxLePnhoVizFwoyv8XY/KYfC4nujCiyMtbuyou8k +CXVWeWSkBgvNwz121keSkBK78et1XRbKu73KM40iYV/DkOpzQxZWX3z45iZl +KXtehqQFC49Ox3XFRJPg4tRyPt2Zhb5RbRWrT5PAvnKioXonC/urbbWjKc+0 +0RZ89mDh6fPKFz5TznU7HMk8yML9ddvnpseQ0O8tfqQsgoWXBlxbh89Q+5Fl +Wf3oNAvD9p1Ybc4n4Wd75ILGOBYa+Wv5JlAecRBmfE5m4T2tkkFaLAmjZ/W/ +9aeysGG5nvYBymNPA7WnMlmo9rEk4DblSdPeJ1IkC63Zi4b04kiYCmEsUSpm +YWvrVa0jlKfveLnSS1nY9yD1cAnl38zOAdMqFv5nyBtRP0uCqOy/y/c3sXDc +crfEBOW5DuKeR9+x8JDWblf6ORLmnbW8GdHBwpa224VbKIuLVENKDwsHtj12 +ElBeZCqMy/nBwmzjtaUvKS8O0W8uGmSh1By+zBhlqf7ifXVTLBRdIPxqFE/C +UmZv6csZFl62/rzdhfIyL8ZMuyiBD/xlmoIpS2d6WX9dQGD0lZ/2iZRl27IS +hyQIdFNqab5BWU6ms/PXMgLnnWd61VJebi/PWCBPva+1nGylrBC3NUB6JYGb +GhIu9VFWfHKhcpUqgQXDe01mKCvNNs4lGAT+fqz5Q+I8lS8m4g5rOARenrMh +R4nyqmDLNNAm0PRvWW8GZeWSyO6N+gTSl09qalNe3Vel4WxC4Nt8x3lGlFUZ +wmOeQOCYIv8bjzLNU7/Wz5JA473Tb8wpq18NlAi1IXBDpVTjOsqM1mLnU/YE +XolivvpjpnRvdsJWAs28yY9/vmfZMfrSXAj8aj7++8947Fgv/fxdBBaZBjH/ +/I9blxVR4kXgQOEp9z/z0fhfR/0DXwItVBPy/8xX01he9rkfFX/ghPBPPNpH +t+5+E0hgap7qLknKurcvkF0hBEaJBL/6sx56vY0j38MJVJzn7NhPeQ1dnDcW +SeCIH7u7jbKBhyV/NobAFRouMXWUDTMiXy86R+CPo+uNiigbtVStWH6RwE/F +Lr+TKJtu0i/hUkkf++Dc/R2UzfiB04bXCFwcE/a3KeW1tcWW6/IIVCGIGiXK +aMRod71FYPweP5m31HmxOOKl5vM3gczqVzuKKK+7lXUooILAxKBL905RtlKX +F+XXEljf213EpfzDy5o0fU5gOT306BzK8TnH7IcaqXgjUhKbqfP8Vrkt3fUd +gXZ3n78IpuyhmKbH/U6gdJTH9jwqH8Rc6ts/9RN4/SPZfJByQYow4vIwgY+E +nBs6lPtldvz7v2kCO9/w3CuofAuTWuHzWpKN+XsUf92h8nWlne3iM9Js5D15 +tM6Pcs258Dsm8myMFHP7T53y/IXvZ66vZuOO+hZMpPI/SSwzJUSPjUeWnrJy +pupD0ZTyPytc2ej5tLA3kao3DoYO/k272Oha7iyhS3kkOEI2xouNz24lJDRR +9cl49KPH4EE2lp1YdE+c8rOBbGHNSTYWDdIzfCJI+PiFxtmbx0b/kKVSb8JJ +iFbd+lqpkI0Ob9d5u1BmeJw69qqYjU9tHyl3UfXVr6u7zqicjYMMsYbPVP2d +as1zW9zAxuFFk79aj1H5+IKRUPKTjU+cmlRCqXr+v5/a+Q1jbKS/GLjQFkRC +r7RpVY+QjfFHPeiGlGtdHHoV5nIwYxO3dpDqB0d6jllFKXAwe0llkzXVP5p/ +/fM/R3MO+l3RLc6h+k2N8ls5PysOitatLOrxpdbDvIt7xpaDM41SbXTKMfzh +HZVOHNT7b6Yi14c6jzJK5bQDHPxPWFl0hupvV9gHD48mcXC9Xk/95E4STtsF +n5FM5eB7e8PmVZQDAiIymZkclGgKlrHYQcKGe8mNOwUcXOFWphvjQsVrXsV8 +8oCD42ye6ATVT3e4Sn661MNBejY6R9tR+xt7e7OBARdnvTw8bXgk3LhVXCc0 +4aKsF229DdXfjd7dNKgGLgb/7i6wNiVhG41caWnDxRZVhW9gTJ3Hquzvjm5c +TJki3JWp+8KvocTIQ9FclLGKy0jmktDherQk7yUXw6X10EuJ6keRQWr73nKR +HDleoatIwkRBQAqnjYv3mQlVcxSo/RjzO1H6mYvnmlr3Z8iRsDHBZ0PNGBfV +FK19qpeScL/W+VOnkgZ++bDfomo+Cakc46Uyvhqo7bCwlBwWgJPti4sPD2og +b9m23Vuo+5j0Qc9lBwI0kLshqXR6UADnbsRJPw7TQFH5zG3W/QI4SXTIHo7X +wDKvrrNN3wSwhxmu2HhHA5NSulSudwpAR62aduq3BppXKf+0fSKABiVz/dFE +TQyZLox+kiiAJuXbjLlXNNF356JjkxcE0EJbpSB3VRPz/fdMshIE8JktnDYo +0MSA5E1Z/LMCmDK5U3O8UhMfB365pHdKAIydqptEuzXRX0Ul3+qoAKIz5ngv +W6OFxQ0ezrucBGCysvaiVosWpnBSfQ7JCEBKLPeoZ7Q2emYvOpl4tgCUo1TM +XBk6OOEjlvG+Ox8W0t3ubXmug49yz5uNaOWDJk/x9rFdunhDsj75bngeBH2Q +rtsooodVS4Zow0XX4edovJNNqh4esTFWdurOBWutZ+k2Gmuw2PfZyVD5XHg4 +avpr8uUafPzgfg7q54A/V7fjtY8+9nyw0jV1zwbe4J5m14UGWKEa8qqoLwvW +qyvYSeYaIO91V8gOo0xgRZ4NrTU0RI8ub9mGixnA9jF+RO8wxDun0l+WNqaB +z8N9p8sCjfDpoEmpnEYqPMpu3jMsZ4z20trflhxLgTFydlKr3BjjkwuuHWy5 +BN70mwvT7UwwXWXW0MQ9GYbZyQalQyao17QkyL8tESryfn0ejzXFJJlnGVnh +F2GHpRqaKptheB39ZcOBBFhxiH9fs8YMgxbLRZk3ngO5RX537LbzMC5uUcHu +8DjIW/fX8SFXHvI8P4e7BMaB7l8J65LdeJi+bMvYNt84sB8qedfmyUPvTSov +nLbGwZmWcaG3Hw/vT9NUjnHiYCo3wuJ4FA99/WRtjN7HQodp8tuCmzzkR554 +WAaxsC8476rNLR6+CAoaEDWIhYlbd336S3iY9kz60VZuLEjT2iZ17vFwzMxg +44xCLNiKr1pZXcPD5SbE7OERPlQ1F+x5+46Hu422db7N58NGqQqNkDYefg8s +0950lQ9t1vUTCp083F6ixHqexIexyr7Y3Z94WPmj5veTCD5o5GgX/+jlodj8 +N6afXKnxOsxD4gd4qKZed+3QZmo82a2gNcTDisi1+TNWfNjLD359dJyHVdPn +L9HXUOPVnEmXn+Khq8Tak9VsPkRPX/GunKbWa732QhdVPixdU8jdNcPDqURH +/XF5PmQdqhyfneUheSRB9LIUH/4PZ+pnPA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.04795276550044319}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.04795276550044319}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994250964886286*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"fdad88eb-720e-4575-b237-f98d499af98a"] +}, Open ]], Cell[CellGroupData[{ @@ -7529,14 +7909,12 @@ Cell[BoxData[ FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.9918497405884743`*^9},ExpressionUUID->"650e43f8-1352-de46-8137-\ -52adca93b0cf"], + CellChangeTimes->{3.9918497405884743`*^9}, + CellLabel->"In[98]:=",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], -Cell[BoxData["12.55365498952246`"], "Output", - CellChangeTimes->{3.991340544411957*^9}, - CellLabel-> - "Out[337]=",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +Cell[BoxData["15.872996507345707`"], "Output", + CellChangeTimes->{3.991340544411957*^9, 3.994250964933691*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"e7029744-da41-4995-a057-0b4a968dfb83"] }, Open ]], Cell[CellGroupData[{ @@ -7592,157 +7970,159 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849742961588*^9},ExpressionUUID->"9ad75b45-8f6d-114b-80bd-\ -d2b12a49fd20"], + CellChangeTimes->{3.991849742961588*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.4176989152621756`*^-266\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 338, 341, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340544611845*^9}, + 2, 99, 13, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340544611845*^9, 3.994250965059628*^9}, CellLabel-> "During evaluation of \ -In[338]:=",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], +In[99]:=",ExpressionUUID->"05aeb4df-a0fd-4840-8ba5-c70157624877"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ + "\"\\!\\(\\*FractionBox[\\\"8.445880462538181`*^-277\\\", \ \\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 338, 342, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913405446218624`*^9}, + 2, 99, 14, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340544611845*^9, 3.994250965068177*^9}, CellLabel-> "During evaluation of \ -In[338]:=",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], +In[99]:=",ExpressionUUID->"7799160d-adb8-4fd8-bca6-d1c3d8f89d10"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ + "\"\\!\\(\\*FractionBox[\\\"5.031597049243174`*^-287\\\", \ \\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 338, 343, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340544630844*^9}, +\"", 2, 99, 15, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340544611845*^9, 3.994250965076776*^9}, CellLabel-> "During evaluation of \ -In[338]:=",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], +In[99]:=",ExpressionUUID->"38bfa911-f93e-4f0a-9f01-a8416c4e852e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 338, 344, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340544639845*^9}, +during this calculation.\"", 2, 99, 16, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340544611845*^9, 3.994250965085428*^9}, CellLabel-> "During evaluation of \ -In[338]:=",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], +In[99]:=",ExpressionUUID->"91404033-5769-4d8e-b1c7-40af0ee010c2"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk -DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE -i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 -tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM -NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S -RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB -j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd -kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT -u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 -T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j -8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm -bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg -k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl -UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd -5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 -sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 -1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK -Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS -vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH -Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ -Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL -C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf -8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 -oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT -7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW -mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 -6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe -8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 -us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 -0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm -3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v -K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU -+23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY -e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im -r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K -iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac -p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M -knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS -9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq -K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK -Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh -+wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD -LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq -cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl -x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji -J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX -9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d -T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR -GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE -YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q -eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 -nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB -i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 -UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC -4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ -+qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d -UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M -6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l -wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW -ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt -UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry -tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP -3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz -PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP -crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z -fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT -KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 -dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq -RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf -auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY -+xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD -3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause -loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G -+BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu -LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ -KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv -7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw -ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN -RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg -k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp -oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx -8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x -UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ -GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa -jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 -svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 -GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf -aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj -C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k8VF0fAHClRYow9uTJYGbujH3fxu+nvCq9kUqlxRpRQrKUerKEsVeU +SlGyzG0hlIqIaHnaHokkkkoiypIllLzn/et+vp9zP+fec85vuVfNM3C992wR +EZG5s0RE/n8df//kgUZyvnXZvMGITzv1rJtzFA/atMYAHrg0fpUhCSjX4KnY +mg46qVlNvgxVCFt35Y1o6yVYOffbMxuGDkgPKKRPvikDQUByoCLDGjqrHAJH +39RB0X62+zUZB7DT6OsYfvMKcpNiPyhKu8LkG9NTQ28+wbq45eJt4gFQv0KY +33hpBBie5y136keCSmfFF0+tabi8zy1sv7gAZP3drsxfIYrDRWb9GvppkK5v +d9fBWQzrcp4YPOpIh7dn9GqHpSTQU0IofX55JiTnRzbMVpLGkPtd25UenwWF +k12JGdkMjDw13ly/MBsEG1dbvxqXQ92NK7TZXy/AfvNctycxiugyHWZm55ML +toNTEQFdylh/MjTPNe8SRFs5eSibLcXkG3Y8wb08sCg+e/NIzV84r7aHcbAx +H/wnhqP+kVDD0+ZZ916XFYDFPh/5LzJqOP8uHPO6VQBifW1XRRXVcPB9vepg +RQEUtNe3WDPVcPmdLwdnagvg/b1TWuUmatjVzVw6t6EAHOPMW3Pd1BC7labz ++grAQCZa91CpGq6Ocdypu6wQJnlS77WdmTgy5bLkQGwhjGcrRxtuZWJs6z/9 +PoJCGF2sqWHuxkQPtkLyhqRCGBgx323rx8St/YYmrOOF8Omu1/jWv5m4Z0Mx +v/RcITxdc1syoYCJoytfLHItK4SsPa7waYyJlmuWnZZ5XwhWV69dzMxUR5ea +b609OkJoX3b1wn/OqeOLJXb2avpCiMi8nDN6QR2Lf9o1bzEUwu3owvPrL6uj +X/legzpTIRhsuXhGskodfQ3zFI+gEKi5J4/Hf1THDhXmmSwnIci7HYoK09LA +iaZVz32ChVDefDBSU18DdzZ92OsVIoSN9geONBtrIEOwmOsaJoR049DDBqCB +zLLIH2sjhCCxKPDAgJMG/orrfCgfI4Q5FZ5BPuEaeIkrlbj2hBCGZezdN9Vp +4PidcrV1xUJo9We+3P1YA/vSUmRNSoRQ+2gKIp9r4ImnjQ1KZUI4HnH1L7pF +A4UjhhfbyoWg92lR52SfBoajzTWbaiEElDbsyGZookhN74mCZ0Loc3Te9nmn +Jh7bLkE//CKEV5e1n034aeJG19kjO3uFUCk6z1IiUBNjVfcsnN0nhMTbt5RN +Dmqi516HAuPvQuD8pdgmSNVETTf/mJgRIewaaNvCu6WJRoKTC2/MCOFzivum +4PksnFPSeCtInoaAPi2m3iIW+kv1Lr2hQMPPlZPfv0uxsCvA++KIIg3ioulx +fsos7I6znwhYQoPewfqb7tosFB+pnXBYRsPf3iyG4wYWvpxn6X2TokHe+lsD +7wILT6IA5C1puHjuzrmveSw8X/AgUMWKBmoydpeQZuGZibj7y/g0WN1cOsMs +Y2Fl+K6n6kCDF9dRR/khC6V+h4czVtBQIl+WItbPQgUp1YCz9jSsHgxf3W3C +xi0DdzfYbKFBRV81XsyKjZrjTr9VXGgYCH5Qx7Nhoxfb7dA48clxKavgNWxc +93Pxn0vbaHg/fVlnxo2Nr68ZqH5ypSF40TuGUiIbv3wtlZjcSYOtQ8w6qzQ2 +2syVW17mTYPCcU6qWwYbxbJfO/n50FDFCJ1XmM3GWO0bcxp30TBvieSkQRkb +y3Of1cbvpiGLwvf/bWejeNyDtuRAGvz3fFEO+sDG02uO9TODaICilM0Z3WxM ++9777jbxZ723L98OsvGFzgXP9n006JgF1/vM4aBUbKzoghAaRCIURZIWcPD5 +bH3mMeKmu/esiiQ5eO3UMg1GKA0HYOGtEUUOrtvPaZINo6HeLp+O0uZgHlvQ +8yechswE++48Aw6O+IxTIQdo8H06pPbYlIPmUwHre4glHfjnJJZz8ErC502P +D9KwxbklNWsTB00qn5kGHKKBe/rw0+ptHLRaEnDzFfF0K3P+R3cODrcMKxkf +puHS9sAo9h4OPsmSzB0h/uYltv9mJBm3eXh58xFyHjm21TWxHBwqrhq7TDz4 +Nmr+s0QOpkWX4hTxD8fJcx8zOOgzPtF8MpKGkSTjL9/OcHCR2IxqJ/How316 +E9kc/LjDz48dReLTsu+BJM3BzOBmkTLiiTDWYuUiDqbkJDmMEk+VerpolnHw +dO/iHKNoGn6z279bVpFxv7EV14lnyz6X93vJwehes/KUGBrmOIp5hLzmoD9j +/5Ia4rlJtlcj28jzunbEDxKLiVRD5mcOundU7rE/SvLBcjIx9ysHC517v4QQ +Lwwzbr42wME6ab5vNrHktyLf+gkOnjz/+kgvsRS7r+zfaQ7+oltkF8bSIO3J +mn47m0KHkINlPGKZbM+V3fMp/GGydIs9sWxrzomhRRQG+qjN20Usx2hv/yVN +4YHy7qpoYnkHBdZ8BQpzGU8PZxErJm4IklGhcFuRjl0psdKDY5VL1Sj83L9f +6RGx8syzORSLOGRqvJVYxULM0YhH4TmueudX4qWhtmdBj8JCnuOrCWLVkqgu +e2MKX7zqfDk3joZl/VXamywonLhl0i5FrMaaDPcACsWvlg8rETM9jOv8bSl8 +Un1PVo1Y4/y+RQdWU1hkftOWRcx6U7TpqAOFH/MnoilitkzfxbQNFPbXDjzn +EnPWsvrPbqGwPWlS8//mJngaF+wg91scTmUTa9XnRJZ4Uuhk2yaqTqz9p+3J +3V0UZjqHJ6oQ65gryD72p7Bn821VWWK9kA2ur/ZRiIF/6hcQG1w/RneEUQhT +JQenyfoM+5796D1E4cJ0QxwkNtIU449GUagr3q/QSWzibiuYiaNwX5DVrBfE +pueiGsWTKaxelPr7DrFZS9US+eMUzrgvF88jtvyvcYkWSfrMrcGu+4itBPum +TC9QWKNRUeBMbF1XZLsin8K1Q79FzIjRjPXWpZjC1LXyY+MkPpbv91T3vkGh +dUNFWhPxiuKcvUF3KFxkMM4vJrbTUJgtqKOw4vub9zuIv3qupC0fU3gxfckD +Y+KU3HCHoWcUPnQem1lI3KTamuXymkJt73uHb5D4DdshZiPZRuH8G5vvxRIr +nzfrqXtPoQWzffNGYnels4ZavRSmW4xnDJD8EN3y5O2Hb2S/zMxNK4gLMycj +Tw1TqC9SbRhD/I2x9fmfKQpv+XSaLyY+KLnEu1GCi7m/RGPlSP6prF2zMF6G +i6rptVOvSP7WJh8qtVDgYuhf+1+kEc9b8G46bxkXbZ4oJMwiThfNzgwz5GL9 +rIltTX/TcG1C9Z8lLlw8DG7POKTeOJo6BrzcwUWj/ifc5xGkXoRGysZ5ctGl +9Eb/XmLzkU73gT1cbN/sn3GN1K9H3y9O1h7hou0qp1h5Ut86PzF5PvlcdKrZ +aZlN6meM2oZG5ctcrIm36mARs9yPhjcUcfGtt+2X4v2kXnd01Zvd5uLeSWfd +ymBSX97kb1/4lIuXbucJq0m9lnnBSisZ5GLS3KiYA/40/BnUK3g6ysVPh++f +ereHhj4Zy6rPk1wsDtnaYE1ct8WxT3EOD/unQm9P+9Gw/3O4XbQiDzmLT/p6 +k/7R/OufP042PLR4KF/xzoPsl2qTnL8dD4/Jvd6tTnzNpkMrfg0PM6dS7X3d +aYgTDG+tdObhgHjnqW+kf5kwlG8zd/MwIOuUXyfpb6e5ewJH0nkY33ItOMCZ +hti1ofESZ3jYsSzJ+sxGGoKCIrPZ2TzM7jDG2g00rLqV8WybkIeVyqNfxNeT +9dpUsR/cJe9XMdaQ5EDDVheJDyc/89ArdTTSeCU534Tr60xMtLDx6LoP5qY0 +XCkuqp+00EIL73hXvgnJj9dXTapBC+fu89kGxjRsZNIqtqu1cHq46ZW1IYnX +qou9Ttu1UO+H4QOeLg2/hk5E7Y3RQmbT18X3WDS0uYSU5P+rhWUpqasey5J+ +FRWs7tukhSHXJQLPMWgYLwzK5LVqYa50n1qADDmPUf/DZR+10PRiqM5iKRrs +07xX1Y5qIfeA1CAspKGibtOHdmVtdOGEBW2fRcMZnrkUY5c29nwpTYr9JgTn +NS+O39ujjX+7Dn3S7xeCzB4P6d1B2ugx+1RXx1chJF9JlLl/UBvtX97v1O8R +whGqTTYwRRubr8Q1PPkohJ3sQ0rPSsl8y7v6K1qEoK9ezTz6WxvHu6bkcmqE +8FTZxnjkhA6mn+r2TksVwkvV66w5p3UwYqwi4GGyEFqYSxXlzuvgw94W0V+J +QvjInZwyKdTBtde1X3vEC2HCorQ2olIHPWS5GqqRQmBtU/vv7C4drNYQ/HAK +EkLMuVle0ka6WPKoweEK+f61UKk7rtuii+uX+1paSwlBUvRSiEeMHq6hq8a3 +JBSCavRfVi4sfSwouLK16FMBLNDcfmv9Y32U1m7QrNMtAB2+0vXwHQb4k7GN +6X84H4Lfy9Tbixii8rtJo9PFeTA4kuK8+owh9qTllf3bTf7bdB9lrdY2wjcd +3T43lS/BvRHLXz//NcJ/Z7SswTwXArQM2hq9jXEwolq10+si8Ad2NrssMEEZ +KcNA4/Ec+I+G4lqJSybYM/1Bom9FNnCikg7UmZri7ZyULLPsc8D1Nq/RbDNF +oz6Xud9az4L3Pd/Ym/vMUGe7dn2PxRmoudi8c1jOHCcSIv+4x2XCKD3zU/e2 +Of4QDrxkdJ8EL82rC7LWWqCv2/NyRkAGDHMzTMqGLHDiZ8DV7T0n4E7+r49j +CZbY6OhNH006Dltt1dFS1QoFub8/OCWkwZK9ggqdWivskZ5r4NCbDHLi/qVr +N/Px8i/50w2nEyF/xd8RQy58vNIt5vkoNREM/k5bkbGdj3a1b5/XHE0Eh6GS +160efMzbzo+pDEyE+JaxSS9/PkZ6jvk3rEyEiUuRyyOi+Xjibu/K8IkEaLPM +aCq8ykeLd6lUzbYE8A3NP7+6mI/rvBMmF6xPgPHicu9vJXxcGkb7bV6VADLM +1p/6t/jYfGoFd8ooAdaILVWpruXjx8fGWm6SCVDVXLiz6TUf5ycpaAnvC8Be +8o52WCsfLa9MTC25I4DWlU/GFdv5yOsI9csoFsBoZX+C6wc+vnsvo5l0TgDa +uXpFX/v4+PKXl9zpUAFUtdmEpXzn41nP8s5l/mQ+2Q2gO8THVUeMVhd5CsBH +ENoYMsbH+8mHJ184kvlq47MUJvjo9FQDPe0EEDN12qtyio83NldoTloJQMro +staOaT7GPedcSTcUQM7eyrGZGT7edPZ4ocMVwP8AZpZv0Q== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7756,116 +8136,115 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk -DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE -i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 -tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM -NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S -RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB -j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd -kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT -u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 -T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j -8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm -bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg -k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl -UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd -5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 -sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 -1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK -Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS -vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH -Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ -Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL -C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf -8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 -oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT -7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW -mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 -6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe -8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 -us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 -0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm -3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v -K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU -+23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY -e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im -r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K -iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac -p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M -knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS -9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq -K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK -Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh -+wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD -LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq -cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl -x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji -J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX -9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d -T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR -GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE -YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q -eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 -nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB -i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 -UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC -4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ -+qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d -UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M -6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l -wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW -ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt -UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry -tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP -3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz -PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP -crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z -fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT -KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 -dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq -RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf -auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY -+xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD -3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause -loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G -+BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu -LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ -KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv -7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw -ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN -RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg -k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp -oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx -8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x -UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ -GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa -jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 -svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 -GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf -aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj -C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== +1:eJwV13k8VF0fAHClRYow9uTJYGbujH3fxu+nvCq9kUqlxRpRQrKUerKEsVeU +SlGyzG0hlIqIaHnaHokkkkoiypIllLzn/et+vp9zP+fec85vuVfNM3C992wR +EZG5s0RE/n8df//kgUZyvnXZvMGITzv1rJtzFA/atMYAHrg0fpUhCSjX4KnY +mg46qVlNvgxVCFt35Y1o6yVYOffbMxuGDkgPKKRPvikDQUByoCLDGjqrHAJH +39RB0X62+zUZB7DT6OsYfvMKcpNiPyhKu8LkG9NTQ28+wbq45eJt4gFQv0KY +33hpBBie5y136keCSmfFF0+tabi8zy1sv7gAZP3drsxfIYrDRWb9GvppkK5v +d9fBWQzrcp4YPOpIh7dn9GqHpSTQU0IofX55JiTnRzbMVpLGkPtd25UenwWF +k12JGdkMjDw13ly/MBsEG1dbvxqXQ92NK7TZXy/AfvNctycxiugyHWZm55ML +toNTEQFdylh/MjTPNe8SRFs5eSibLcXkG3Y8wb08sCg+e/NIzV84r7aHcbAx +H/wnhqP+kVDD0+ZZ916XFYDFPh/5LzJqOP8uHPO6VQBifW1XRRXVcPB9vepg +RQEUtNe3WDPVcPmdLwdnagvg/b1TWuUmatjVzVw6t6EAHOPMW3Pd1BC7labz ++grAQCZa91CpGq6Ocdypu6wQJnlS77WdmTgy5bLkQGwhjGcrRxtuZWJs6z/9 +PoJCGF2sqWHuxkQPtkLyhqRCGBgx323rx8St/YYmrOOF8Omu1/jWv5m4Z0Mx +v/RcITxdc1syoYCJoytfLHItK4SsPa7waYyJlmuWnZZ5XwhWV69dzMxUR5ea +b609OkJoX3b1wn/OqeOLJXb2avpCiMi8nDN6QR2Lf9o1bzEUwu3owvPrL6uj +X/legzpTIRhsuXhGskodfQ3zFI+gEKi5J4/Hf1THDhXmmSwnIci7HYoK09LA +iaZVz32ChVDefDBSU18DdzZ92OsVIoSN9geONBtrIEOwmOsaJoR049DDBqCB +zLLIH2sjhCCxKPDAgJMG/orrfCgfI4Q5FZ5BPuEaeIkrlbj2hBCGZezdN9Vp +4PidcrV1xUJo9We+3P1YA/vSUmRNSoRQ+2gKIp9r4ImnjQ1KZUI4HnH1L7pF +A4UjhhfbyoWg92lR52SfBoajzTWbaiEElDbsyGZookhN74mCZ0Loc3Te9nmn +Jh7bLkE//CKEV5e1n034aeJG19kjO3uFUCk6z1IiUBNjVfcsnN0nhMTbt5RN +Dmqi516HAuPvQuD8pdgmSNVETTf/mJgRIewaaNvCu6WJRoKTC2/MCOFzivum +4PksnFPSeCtInoaAPi2m3iIW+kv1Lr2hQMPPlZPfv0uxsCvA++KIIg3ioulx +fsos7I6znwhYQoPewfqb7tosFB+pnXBYRsPf3iyG4wYWvpxn6X2TokHe+lsD +7wILT6IA5C1puHjuzrmveSw8X/AgUMWKBmoydpeQZuGZibj7y/g0WN1cOsMs +Y2Fl+K6n6kCDF9dRR/khC6V+h4czVtBQIl+WItbPQgUp1YCz9jSsHgxf3W3C +xi0DdzfYbKFBRV81XsyKjZrjTr9VXGgYCH5Qx7Nhoxfb7dA48clxKavgNWxc +93Pxn0vbaHg/fVlnxo2Nr68ZqH5ypSF40TuGUiIbv3wtlZjcSYOtQ8w6qzQ2 +2syVW17mTYPCcU6qWwYbxbJfO/n50FDFCJ1XmM3GWO0bcxp30TBvieSkQRkb +y3Of1cbvpiGLwvf/bWejeNyDtuRAGvz3fFEO+sDG02uO9TODaICilM0Z3WxM ++9777jbxZ723L98OsvGFzgXP9n006JgF1/vM4aBUbKzoghAaRCIURZIWcPD5 +bH3mMeKmu/esiiQ5eO3UMg1GKA0HYOGtEUUOrtvPaZINo6HeLp+O0uZgHlvQ +8yechswE++48Aw6O+IxTIQdo8H06pPbYlIPmUwHre4glHfjnJJZz8ErC502P +D9KwxbklNWsTB00qn5kGHKKBe/rw0+ptHLRaEnDzFfF0K3P+R3cODrcMKxkf +puHS9sAo9h4OPsmSzB0h/uYltv9mJBm3eXh58xFyHjm21TWxHBwqrhq7TDz4 +Nmr+s0QOpkWX4hTxD8fJcx8zOOgzPtF8MpKGkSTjL9/OcHCR2IxqJ/How316 +E9kc/LjDz48dReLTsu+BJM3BzOBmkTLiiTDWYuUiDqbkJDmMEk+VerpolnHw +dO/iHKNoGn6z279bVpFxv7EV14lnyz6X93vJwehes/KUGBrmOIp5hLzmoD9j +/5Ia4rlJtlcj28jzunbEDxKLiVRD5mcOundU7rE/SvLBcjIx9ysHC517v4QQ +Lwwzbr42wME6ab5vNrHktyLf+gkOnjz/+kgvsRS7r+zfaQ7+oltkF8bSIO3J +mn47m0KHkINlPGKZbM+V3fMp/GGydIs9sWxrzomhRRQG+qjN20Usx2hv/yVN +4YHy7qpoYnkHBdZ8BQpzGU8PZxErJm4IklGhcFuRjl0psdKDY5VL1Sj83L9f +6RGx8syzORSLOGRqvJVYxULM0YhH4TmueudX4qWhtmdBj8JCnuOrCWLVkqgu +e2MKX7zqfDk3joZl/VXamywonLhl0i5FrMaaDPcACsWvlg8rETM9jOv8bSl8 +Un1PVo1Y4/y+RQdWU1hkftOWRcx6U7TpqAOFH/MnoilitkzfxbQNFPbXDjzn +EnPWsvrPbqGwPWlS8//mJngaF+wg91scTmUTa9XnRJZ4Uuhk2yaqTqz9p+3J +3V0UZjqHJ6oQ65gryD72p7Bn821VWWK9kA2ur/ZRiIF/6hcQG1w/RneEUQhT +JQenyfoM+5796D1E4cJ0QxwkNtIU449GUagr3q/QSWzibiuYiaNwX5DVrBfE +pueiGsWTKaxelPr7DrFZS9US+eMUzrgvF88jtvyvcYkWSfrMrcGu+4itBPum +TC9QWKNRUeBMbF1XZLsin8K1Q79FzIjRjPXWpZjC1LXyY+MkPpbv91T3vkGh +dUNFWhPxiuKcvUF3KFxkMM4vJrbTUJgtqKOw4vub9zuIv3qupC0fU3gxfckD +Y+KU3HCHoWcUPnQem1lI3KTamuXymkJt73uHb5D4DdshZiPZRuH8G5vvxRIr +nzfrqXtPoQWzffNGYnels4ZavRSmW4xnDJD8EN3y5O2Hb2S/zMxNK4gLMycj +Tw1TqC9SbRhD/I2x9fmfKQpv+XSaLyY+KLnEu1GCi7m/RGPlSP6prF2zMF6G +i6rptVOvSP7WJh8qtVDgYuhf+1+kEc9b8G46bxkXbZ4oJMwiThfNzgwz5GL9 +rIltTX/TcG1C9Z8lLlw8DG7POKTeOJo6BrzcwUWj/ifc5xGkXoRGysZ5ctGl +9Eb/XmLzkU73gT1cbN/sn3GN1K9H3y9O1h7hou0qp1h5Ut86PzF5PvlcdKrZ +aZlN6meM2oZG5ctcrIm36mARs9yPhjcUcfGtt+2X4v2kXnd01Zvd5uLeSWfd +ymBSX97kb1/4lIuXbucJq0m9lnnBSisZ5GLS3KiYA/40/BnUK3g6ysVPh++f +ereHhj4Zy6rPk1wsDtnaYE1ct8WxT3EOD/unQm9P+9Gw/3O4XbQiDzmLT/p6 +k/7R/OufP042PLR4KF/xzoPsl2qTnL8dD4/Jvd6tTnzNpkMrfg0PM6dS7X3d +aYgTDG+tdObhgHjnqW+kf5kwlG8zd/MwIOuUXyfpb6e5ewJH0nkY33ItOMCZ +hti1ofESZ3jYsSzJ+sxGGoKCIrPZ2TzM7jDG2g00rLqV8WybkIeVyqNfxNeT +9dpUsR/cJe9XMdaQ5EDDVheJDyc/89ArdTTSeCU534Tr60xMtLDx6LoP5qY0 +XCkuqp+00EIL73hXvgnJj9dXTapBC+fu89kGxjRsZNIqtqu1cHq46ZW1IYnX +qou9Ttu1UO+H4QOeLg2/hk5E7Y3RQmbT18X3WDS0uYSU5P+rhWUpqasey5J+ +FRWs7tukhSHXJQLPMWgYLwzK5LVqYa50n1qADDmPUf/DZR+10PRiqM5iKRrs +07xX1Y5qIfeA1CAspKGibtOHdmVtdOGEBW2fRcMZnrkUY5c29nwpTYr9JgTn +NS+O39ujjX+7Dn3S7xeCzB4P6d1B2ugx+1RXx1chJF9JlLl/UBvtX97v1O8R +whGqTTYwRRubr8Q1PPkohJ3sQ0rPSsl8y7v6K1qEoK9ezTz6WxvHu6bkcmqE +8FTZxnjkhA6mn+r2TksVwkvV66w5p3UwYqwi4GGyEFqYSxXlzuvgw94W0V+J +QvjInZwyKdTBtde1X3vEC2HCorQ2olIHPWS5GqqRQmBtU/vv7C4drNYQ/HAK +EkLMuVle0ka6WPKoweEK+f61UKk7rtuii+uX+1paSwlBUvRSiEeMHq6hq8a3 +JBSCavRfVi4sfSwouLK16FMBLNDcfmv9Y32U1m7QrNMtAB2+0vXwHQb4k7GN +6X84H4Lfy9Tbixii8rtJo9PFeTA4kuK8+owh9qTllf3bTf7bdB9lrdY2wjcd +3T43lS/BvRHLXz//NcJ/Z7SswTwXArQM2hq9jXEwolq10+si8Ad2NrssMEEZ +KcNA4/Ec+I+G4lqJSybYM/1Bom9FNnCikg7UmZri7ZyULLPsc8D1Nq/RbDNF +oz6Xud9az4L3Pd/Ym/vMUGe7dn2PxRmoudi8c1jOHCcSIv+4x2XCKD3zU/e2 +Of4QDrxkdJ8EL82rC7LWWqCv2/NyRkAGDHMzTMqGLHDiZ8DV7T0n4E7+r49j +CZbY6OhNH006Dltt1dFS1QoFub8/OCWkwZK9ggqdWivskZ5r4NCbDHLi/qVr +N/Px8i/50w2nEyF/xd8RQy58vNIt5vkoNREM/k5bkbGdj3a1b5/XHE0Eh6GS +160efMzbzo+pDEyE+JaxSS9/PkZ6jvk3rEyEiUuRyyOi+Xjibu/K8IkEaLPM +aCq8ykeLd6lUzbYE8A3NP7+6mI/rvBMmF6xPgPHicu9vJXxcGkb7bV6VADLM +1p/6t/jYfGoFd8ooAdaILVWpruXjx8fGWm6SCVDVXLiz6TUf5ycpaAnvC8Be +8o52WCsfLa9MTC25I4DWlU/GFdv5yOsI9csoFsBoZX+C6wc+vnsvo5l0TgDa +uXpFX/v4+PKXl9zpUAFUtdmEpXzn41nP8s5l/mQ+2Q2gO8THVUeMVhd5CsBH +ENoYMsbH+8mHJ184kvlq47MUJvjo9FQDPe0EEDN12qtyio83NldoTloJQMro +staOaT7GPedcSTcUQM7eyrGZGT7edPZ4ocMVwP8AZpZv0Q== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "PlotRange" -> {{0, 30}, {0., 0.04789098502749475}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7877,19 +8256,19 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "PlotRange" -> {{0, 30}, {0., 0.04789098502749475}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7903,115 +8282,114 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk -DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE -i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 -tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM -NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S -RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB -j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd -kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT -u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 -T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j -8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm -bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg -k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl -UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd -5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 -sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 -1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK -Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS -vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH -Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ -Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL -C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf -8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 -oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT -7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW -mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 -6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe -8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 -us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 -0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm -3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v -K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU -+23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY -e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im -r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K -iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac -p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M -knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS -9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq -K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK -Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh -+wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD -LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq -cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl -x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji -J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX -9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d -T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR -GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE -YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q -eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 -nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB -i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 -UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC -4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ -+qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d -UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M -6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l -wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW -ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt -UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry -tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP -3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz -PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP -crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z -fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT -KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 -dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq -RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf -auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY -+xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD -3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause -loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G -+BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu -LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ -KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv -7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw -ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN -RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg -k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp -oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx -8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x -UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ -GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa -jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 -svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 -GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf -aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj -C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== +1:eJwV13k8VF0fAHClRYow9uTJYGbujH3fxu+nvCq9kUqlxRpRQrKUerKEsVeU +SlGyzG0hlIqIaHnaHokkkkoiypIllLzn/et+vp9zP+fec85vuVfNM3C992wR +EZG5s0RE/n8df//kgUZyvnXZvMGITzv1rJtzFA/atMYAHrg0fpUhCSjX4KnY +mg46qVlNvgxVCFt35Y1o6yVYOffbMxuGDkgPKKRPvikDQUByoCLDGjqrHAJH +39RB0X62+zUZB7DT6OsYfvMKcpNiPyhKu8LkG9NTQ28+wbq45eJt4gFQv0KY +33hpBBie5y136keCSmfFF0+tabi8zy1sv7gAZP3drsxfIYrDRWb9GvppkK5v +d9fBWQzrcp4YPOpIh7dn9GqHpSTQU0IofX55JiTnRzbMVpLGkPtd25UenwWF +k12JGdkMjDw13ly/MBsEG1dbvxqXQ92NK7TZXy/AfvNctycxiugyHWZm55ML +toNTEQFdylh/MjTPNe8SRFs5eSibLcXkG3Y8wb08sCg+e/NIzV84r7aHcbAx +H/wnhqP+kVDD0+ZZ916XFYDFPh/5LzJqOP8uHPO6VQBifW1XRRXVcPB9vepg +RQEUtNe3WDPVcPmdLwdnagvg/b1TWuUmatjVzVw6t6EAHOPMW3Pd1BC7labz ++grAQCZa91CpGq6Ocdypu6wQJnlS77WdmTgy5bLkQGwhjGcrRxtuZWJs6z/9 +PoJCGF2sqWHuxkQPtkLyhqRCGBgx323rx8St/YYmrOOF8Omu1/jWv5m4Z0Mx +v/RcITxdc1syoYCJoytfLHItK4SsPa7waYyJlmuWnZZ5XwhWV69dzMxUR5ea +b609OkJoX3b1wn/OqeOLJXb2avpCiMi8nDN6QR2Lf9o1bzEUwu3owvPrL6uj +X/legzpTIRhsuXhGskodfQ3zFI+gEKi5J4/Hf1THDhXmmSwnIci7HYoK09LA +iaZVz32ChVDefDBSU18DdzZ92OsVIoSN9geONBtrIEOwmOsaJoR049DDBqCB +zLLIH2sjhCCxKPDAgJMG/orrfCgfI4Q5FZ5BPuEaeIkrlbj2hBCGZezdN9Vp +4PidcrV1xUJo9We+3P1YA/vSUmRNSoRQ+2gKIp9r4ImnjQ1KZUI4HnH1L7pF +A4UjhhfbyoWg92lR52SfBoajzTWbaiEElDbsyGZookhN74mCZ0Loc3Te9nmn +Jh7bLkE//CKEV5e1n034aeJG19kjO3uFUCk6z1IiUBNjVfcsnN0nhMTbt5RN +Dmqi516HAuPvQuD8pdgmSNVETTf/mJgRIewaaNvCu6WJRoKTC2/MCOFzivum +4PksnFPSeCtInoaAPi2m3iIW+kv1Lr2hQMPPlZPfv0uxsCvA++KIIg3ioulx +fsos7I6znwhYQoPewfqb7tosFB+pnXBYRsPf3iyG4wYWvpxn6X2TokHe+lsD +7wILT6IA5C1puHjuzrmveSw8X/AgUMWKBmoydpeQZuGZibj7y/g0WN1cOsMs +Y2Fl+K6n6kCDF9dRR/khC6V+h4czVtBQIl+WItbPQgUp1YCz9jSsHgxf3W3C +xi0DdzfYbKFBRV81XsyKjZrjTr9VXGgYCH5Qx7Nhoxfb7dA48clxKavgNWxc +93Pxn0vbaHg/fVlnxo2Nr68ZqH5ypSF40TuGUiIbv3wtlZjcSYOtQ8w6qzQ2 +2syVW17mTYPCcU6qWwYbxbJfO/n50FDFCJ1XmM3GWO0bcxp30TBvieSkQRkb +y3Of1cbvpiGLwvf/bWejeNyDtuRAGvz3fFEO+sDG02uO9TODaICilM0Z3WxM ++9777jbxZ723L98OsvGFzgXP9n006JgF1/vM4aBUbKzoghAaRCIURZIWcPD5 +bH3mMeKmu/esiiQ5eO3UMg1GKA0HYOGtEUUOrtvPaZINo6HeLp+O0uZgHlvQ +8yechswE++48Aw6O+IxTIQdo8H06pPbYlIPmUwHre4glHfjnJJZz8ErC502P +D9KwxbklNWsTB00qn5kGHKKBe/rw0+ptHLRaEnDzFfF0K3P+R3cODrcMKxkf +puHS9sAo9h4OPsmSzB0h/uYltv9mJBm3eXh58xFyHjm21TWxHBwqrhq7TDz4 +Nmr+s0QOpkWX4hTxD8fJcx8zOOgzPtF8MpKGkSTjL9/OcHCR2IxqJ/How316 +E9kc/LjDz48dReLTsu+BJM3BzOBmkTLiiTDWYuUiDqbkJDmMEk+VerpolnHw +dO/iHKNoGn6z279bVpFxv7EV14lnyz6X93vJwehes/KUGBrmOIp5hLzmoD9j +/5Ia4rlJtlcj28jzunbEDxKLiVRD5mcOundU7rE/SvLBcjIx9ysHC517v4QQ +Lwwzbr42wME6ab5vNrHktyLf+gkOnjz/+kgvsRS7r+zfaQ7+oltkF8bSIO3J +mn47m0KHkINlPGKZbM+V3fMp/GGydIs9sWxrzomhRRQG+qjN20Usx2hv/yVN +4YHy7qpoYnkHBdZ8BQpzGU8PZxErJm4IklGhcFuRjl0psdKDY5VL1Sj83L9f +6RGx8syzORSLOGRqvJVYxULM0YhH4TmueudX4qWhtmdBj8JCnuOrCWLVkqgu +e2MKX7zqfDk3joZl/VXamywonLhl0i5FrMaaDPcACsWvlg8rETM9jOv8bSl8 +Un1PVo1Y4/y+RQdWU1hkftOWRcx6U7TpqAOFH/MnoilitkzfxbQNFPbXDjzn +EnPWsvrPbqGwPWlS8//mJngaF+wg91scTmUTa9XnRJZ4Uuhk2yaqTqz9p+3J +3V0UZjqHJ6oQ65gryD72p7Bn821VWWK9kA2ur/ZRiIF/6hcQG1w/RneEUQhT +JQenyfoM+5796D1E4cJ0QxwkNtIU449GUagr3q/QSWzibiuYiaNwX5DVrBfE +pueiGsWTKaxelPr7DrFZS9US+eMUzrgvF88jtvyvcYkWSfrMrcGu+4itBPum +TC9QWKNRUeBMbF1XZLsin8K1Q79FzIjRjPXWpZjC1LXyY+MkPpbv91T3vkGh +dUNFWhPxiuKcvUF3KFxkMM4vJrbTUJgtqKOw4vub9zuIv3qupC0fU3gxfckD +Y+KU3HCHoWcUPnQem1lI3KTamuXymkJt73uHb5D4DdshZiPZRuH8G5vvxRIr +nzfrqXtPoQWzffNGYnels4ZavRSmW4xnDJD8EN3y5O2Hb2S/zMxNK4gLMycj +Tw1TqC9SbRhD/I2x9fmfKQpv+XSaLyY+KLnEu1GCi7m/RGPlSP6prF2zMF6G +i6rptVOvSP7WJh8qtVDgYuhf+1+kEc9b8G46bxkXbZ4oJMwiThfNzgwz5GL9 +rIltTX/TcG1C9Z8lLlw8DG7POKTeOJo6BrzcwUWj/ifc5xGkXoRGysZ5ctGl +9Eb/XmLzkU73gT1cbN/sn3GN1K9H3y9O1h7hou0qp1h5Ut86PzF5PvlcdKrZ +aZlN6meM2oZG5ctcrIm36mARs9yPhjcUcfGtt+2X4v2kXnd01Zvd5uLeSWfd +ymBSX97kb1/4lIuXbucJq0m9lnnBSisZ5GLS3KiYA/40/BnUK3g6ysVPh++f +ereHhj4Zy6rPk1wsDtnaYE1ct8WxT3EOD/unQm9P+9Gw/3O4XbQiDzmLT/p6 +k/7R/OufP042PLR4KF/xzoPsl2qTnL8dD4/Jvd6tTnzNpkMrfg0PM6dS7X3d +aYgTDG+tdObhgHjnqW+kf5kwlG8zd/MwIOuUXyfpb6e5ewJH0nkY33ItOMCZ +hti1ofESZ3jYsSzJ+sxGGoKCIrPZ2TzM7jDG2g00rLqV8WybkIeVyqNfxNeT +9dpUsR/cJe9XMdaQ5EDDVheJDyc/89ArdTTSeCU534Tr60xMtLDx6LoP5qY0 +XCkuqp+00EIL73hXvgnJj9dXTapBC+fu89kGxjRsZNIqtqu1cHq46ZW1IYnX +qou9Ttu1UO+H4QOeLg2/hk5E7Y3RQmbT18X3WDS0uYSU5P+rhWUpqasey5J+ +FRWs7tukhSHXJQLPMWgYLwzK5LVqYa50n1qADDmPUf/DZR+10PRiqM5iKRrs +07xX1Y5qIfeA1CAspKGibtOHdmVtdOGEBW2fRcMZnrkUY5c29nwpTYr9JgTn +NS+O39ujjX+7Dn3S7xeCzB4P6d1B2ugx+1RXx1chJF9JlLl/UBvtX97v1O8R +whGqTTYwRRubr8Q1PPkohJ3sQ0rPSsl8y7v6K1qEoK9ezTz6WxvHu6bkcmqE +8FTZxnjkhA6mn+r2TksVwkvV66w5p3UwYqwi4GGyEFqYSxXlzuvgw94W0V+J +QvjInZwyKdTBtde1X3vEC2HCorQ2olIHPWS5GqqRQmBtU/vv7C4drNYQ/HAK +EkLMuVle0ka6WPKoweEK+f61UKk7rtuii+uX+1paSwlBUvRSiEeMHq6hq8a3 +JBSCavRfVi4sfSwouLK16FMBLNDcfmv9Y32U1m7QrNMtAB2+0vXwHQb4k7GN +6X84H4Lfy9Tbixii8rtJo9PFeTA4kuK8+owh9qTllf3bTf7bdB9lrdY2wjcd +3T43lS/BvRHLXz//NcJ/Z7SswTwXArQM2hq9jXEwolq10+si8Ad2NrssMEEZ +KcNA4/Ec+I+G4lqJSybYM/1Bom9FNnCikg7UmZri7ZyULLPsc8D1Nq/RbDNF +oz6Xud9az4L3Pd/Ym/vMUGe7dn2PxRmoudi8c1jOHCcSIv+4x2XCKD3zU/e2 +Of4QDrxkdJ8EL82rC7LWWqCv2/NyRkAGDHMzTMqGLHDiZ8DV7T0n4E7+r49j +CZbY6OhNH006Dltt1dFS1QoFub8/OCWkwZK9ggqdWivskZ5r4NCbDHLi/qVr +N/Px8i/50w2nEyF/xd8RQy58vNIt5vkoNREM/k5bkbGdj3a1b5/XHE0Eh6GS +160efMzbzo+pDEyE+JaxSS9/PkZ6jvk3rEyEiUuRyyOi+Xjibu/K8IkEaLPM +aCq8ykeLd6lUzbYE8A3NP7+6mI/rvBMmF6xPgPHicu9vJXxcGkb7bV6VADLM +1p/6t/jYfGoFd8ooAdaILVWpruXjx8fGWm6SCVDVXLiz6TUf5ycpaAnvC8Be +8o52WCsfLa9MTC25I4DWlU/GFdv5yOsI9csoFsBoZX+C6wc+vnsvo5l0TgDa +uXpFX/v4+PKXl9zpUAFUtdmEpXzn41nP8s5l/mQ+2Q2gO8THVUeMVhd5CsBH +ENoYMsbH+8mHJ184kvlq47MUJvjo9FQDPe0EEDN12qtyio83NldoTloJQMro +staOaT7GPedcSTcUQM7eyrGZGT7edPZ4ocMVwP8AZpZv0Q== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "PlotRange" -> {{0, 30}, {0., 0.04789098502749475}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8022,6 +8400,7 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8049,7 +8428,8 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.060553949877372025`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.04789098502749475}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8057,9 +8437,8 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913408819317417`*^9}, - CellLabel-> - "Out[338]=",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] + CellChangeTimes->{3.9913408819317417`*^9, 3.994251670367873*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"372ccbe7-c8ea-4210-998e-7e24bda81d36"] }, Open ]], Cell[CellGroupData[{ @@ -8112,66 +8491,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[339]:=",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], + "In[100]:=",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.2264340105931995`*^-182\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 339, 345, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340881982744*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.558107500944892`*^-187\\\", \ +RowBox[{\\\"370006826113003167605388289294353472939\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"47\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3285256179286120857600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 17, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340881982744*^9, 3.994251670529894*^9}, CellLabel-> "During evaluation of \ -In[339]:=",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], +In[100]:=",ExpressionUUID->"da4932fd-31fc-454e-ab58-e4328459d973"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 339, 346, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340881991743*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0402098224214533`*^-190\\\", \ +RowBox[{\\\"925017065282507919013470723235883682349\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"50\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3140448215302144000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 18, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340881982744*^9, 3.994251670540078*^9}, CellLabel-> "During evaluation of \ -In[339]:=",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], +In[100]:=",ExpressionUUID->"dd286864-7221-4fc8-a67b-8df71a65ac06"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 339, 347, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340882000746*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.649921832641767`*^-194\\\", \ +RowBox[{\\\"240596938679980309735403735113653345779\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"54\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8305808000876544000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 19, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340881982744*^9, 3.994251670550548*^9}, CellLabel-> "During evaluation of \ -In[339]:=",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], +In[100]:=",ExpressionUUID->"9eb080f7-abd2-466a-8b78-cf238fb05de1"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 339, 348, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340882008745*^9}, +during this calculation.\"", 2, 100, 20, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340881982744*^9, 3.994251670560001*^9}, CellLabel-> "During evaluation of \ -In[339]:=",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], +In[100]:=",ExpressionUUID->"8b69d875-2b45-4e43-b48e-f93e304a0f83"], -Cell[BoxData["12.553654989521348`"], "Output", - CellChangeTimes->{3.9913408882266617`*^9}, +Cell[BoxData["15.872787281232945`"], "Output", + CellChangeTimes->{3.9913408882266617`*^9, 3.994251748769414*^9}, CellLabel-> - "Out[339]=",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] + "Out[100]=",ExpressionUUID->"fba56b73-da4a-4a8e-b4bb-df205b684c4d"] }, Open ]], Cell[CellGroupData[{ @@ -8239,68 +8625,75 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ - 3.9918497473740044`*^9, {3.99184977815234*^9, - 3.991849780845421*^9}},ExpressionUUID->"1d118f77-7d68-dd41-b0af-\ -09454f88e7f1"], + 3.9918497473740044`*^9, {3.99184977815234*^9, 3.991849780845421*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 340, 349, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913408882626343`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.35690539777802`*^-218\\\", \ +RowBox[{\\\"4160735933984357432554811027341847802665\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"13\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3770116038587316426506240000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 21, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913408882626343`*^9, 3.9942517488432713`*^9}, CellLabel-> "During evaluation of \ -In[340]:=",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], +In[101]:=",ExpressionUUID->"a6ace31b-0f9e-4187-839a-b78c3331c445"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 340, 350, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913408882726326`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4383364589432824`*^-223\\\", \ +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 22, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913408882626343`*^9, 3.994251748855832*^9}, CellLabel-> "During evaluation of \ -In[340]:=",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], +In[101]:=",ExpressionUUID->"8602a33c-0d3c-4687-8452-ede89facfff0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 340, 351, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913408882816315`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.861953152996911`*^-229\\\", \ +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 23, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913408882626343`*^9, 3.994251748867858*^9}, CellLabel-> "During evaluation of \ -In[340]:=",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], +In[101]:=",ExpressionUUID->"1ef16a60-02e4-4b4d-b059-56e009cd33aa"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 340, 352, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913408882906322`*^9}, +during this calculation.\"", 2, 101, 24, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913408882626343`*^9, 3.994251748877577*^9}, CellLabel-> "During evaluation of \ -In[340]:=",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], +In[101]:=",ExpressionUUID->"e5d4d2da-8e45-4b65-b5a1-bf49d69bcd11"], -Cell[BoxData["1.3456729512531673`"], "Output", - CellChangeTimes->{3.991340895263792*^9}, +Cell[BoxData["1.73196797917456`"], "Output", + CellChangeTimes->{3.991340895263792*^9, 3.9942517599432087`*^9}, CellLabel-> - "Out[340]=",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] + "Out[101]=",ExpressionUUID->"74dc83bf-1792-47b4-961d-5d458d0af21e"] }, Open ]], Cell[CellGroupData[{ @@ -8321,8 +8714,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8367,68 +8759,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918497892022038`*^9, - 3.991849792285101*^9}},ExpressionUUID->"c8039063-5f4d-134a-b6ba-\ -e19335f7a9f6"], + CellChangeTimes->{{3.9918497892022038`*^9, 3.991849792285101*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 341, 353, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340895297941*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.35690539777802`*^-218\\\", \ +RowBox[{\\\"4160735933984357432554811027341847802665\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"13\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3770116038587316426506240000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 25, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340895297941*^9, 3.9942517599912252`*^9}, CellLabel-> "During evaluation of \ -In[341]:=",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], +In[102]:=",ExpressionUUID->"33752325-ba54-44ce-972b-88f851b03547"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 341, 354, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340895308939*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4383364589432824`*^-223\\\", \ +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 26, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340895297941*^9, 3.9942517600003233`*^9}, CellLabel-> "During evaluation of \ -In[341]:=",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], +In[102]:=",ExpressionUUID->"87b5ffea-7afc-4e30-a5a8-612e7da92338"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 341, 355, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340895316965*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.861953152996911`*^-229\\\", \ +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 27, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340895297941*^9, 3.994251760010149*^9}, CellLabel-> "During evaluation of \ -In[341]:=",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], +In[102]:=",ExpressionUUID->"179f7fd6-cfb1-4773-919a-a3f8faf3788d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 341, 356, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340895324953*^9}, +during this calculation.\"", 2, 102, 28, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340895297941*^9, 3.994251760019099*^9}, CellLabel-> "During evaluation of \ -In[341]:=",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], +In[102]:=",ExpressionUUID->"e6311296-ed61-43b0-b60d-dd1f346b8b95"], -Cell[BoxData["11.729429210875175`"], "Output", - CellChangeTimes->{3.9913409010488796`*^9}, +Cell[BoxData["68.66596116815354`"], "Output", + CellChangeTimes->{3.9913409010488796`*^9, 3.9942517703667593`*^9}, CellLabel-> - "Out[341]=",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] + "Out[102]=",ExpressionUUID->"44df2662-e374-42a1-bd93-2e976e7a1594"] }, Open ]], Cell[CellGroupData[{ @@ -8449,8 +8848,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8495,68 +8893,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918497964884186`*^9, - 3.9918497998504505`*^9}},ExpressionUUID->"a474307a-af78-3040-90ec-\ -fb8d284b16bb"], + CellChangeTimes->{{3.9918497964884186`*^9, 3.9918497998504505`*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 342, 357, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913409010848827`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.35690539777802`*^-218\\\", \ +RowBox[{\\\"4160735933984357432554811027341847802665\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"13\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3770116038587316426506240000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 29, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913409010848827`*^9, 3.994251770441184*^9}, CellLabel-> "During evaluation of \ -In[342]:=",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], +In[103]:=",ExpressionUUID->"2e9ad321-ca35-41db-82e7-84073d446f5e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 342, 358, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913409010938797`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4383364589432824`*^-223\\\", \ +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 30, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913409010848827`*^9, 3.994251770451318*^9}, CellLabel-> "During evaluation of \ -In[342]:=",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], +In[103]:=",ExpressionUUID->"e66cea00-8406-4233-bf50-3701b189e249"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 342, 359, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340901101883*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.861953152996911`*^-229\\\", \ +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 31, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913409010848827`*^9, 3.9942517704608297`*^9}, CellLabel-> "During evaluation of \ -In[342]:=",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], +In[103]:=",ExpressionUUID->"2d33378e-cc31-47d2-95f2-74a57c1c5d26"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 342, 360, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913409011098804`*^9}, +during this calculation.\"", 2, 103, 32, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913409010848827`*^9, 3.994251770469124*^9}, CellLabel-> "During evaluation of \ -In[342]:=",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], +In[103]:=",ExpressionUUID->"0a17b75b-ccb2-4cfc-964b-1dec932cd009"], -Cell[BoxData["21.67464099510054`"], "Output", - CellChangeTimes->{3.991340904517517*^9}, +Cell[BoxData["15.98809270331053`"], "Output", + CellChangeTimes->{3.991340904517517*^9, 3.994251779118379*^9}, CellLabel-> - "Out[342]=",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] + "Out[103]=",ExpressionUUID->"f6cbb29a-2346-48e3-854f-55ad45fd7aba"] }, Open ]], Cell[CellGroupData[{ @@ -8565,22 +8970,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991849803549658*^9, - 3.9918498086143265`*^9}},ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-\ -f67bfdbd9bc7"], - -Cell[BoxData["0.0843966342510027`"], "Output", - CellChangeTimes->{3.991340904549515*^9}, + CellChangeTimes->{{3.991849803549658*^9, 3.9918498086143265`*^9}}, CellLabel-> - "Out[343]=",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] + "In[104]:=",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], + +Cell[BoxData["0.05227219988014976`"], "Output", + CellChangeTimes->{3.991340904549515*^9, 3.994251779166093*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"edde5c62-6b1a-4213-9bbb-88529e60a119"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918501018852215`*^9, 3.991850105557743*^9}, - 3.99192470649716*^9},ExpressionUUID->"d104d373-080a-854b-92ff-\ -e87abbd4c41c"], + 3.99192470649716*^9}, + CellLabel-> + "In[105]:=",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], Cell[CellGroupData[{ @@ -8603,12 +9009,12 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[345]:=",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], + "In[106]:=",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], -Cell[BoxData["19.580504093356314`"], "Output", - CellChangeTimes->{3.9913409045775146`*^9}, +Cell[BoxData["11.940009158835242`"], "Output", + CellChangeTimes->{3.9913409045775146`*^9, 3.9942517791919737`*^9}, CellLabel-> - "Out[345]=",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] + "Out[106]=",ExpressionUUID->"6eb76f78-065f-4650-b0d9-bc16be1a103d"] }, Open ]], Cell[CellGroupData[{ @@ -8618,12 +9024,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[347]:=",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], + "In[107]:=",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], -Cell[BoxData["0.8477067309358528`"], "Output", - CellChangeTimes->{3.991340904625164*^9}, +Cell[BoxData["3.0370759604037407`"], "Output", + CellChangeTimes->{3.991340904625164*^9, 3.994251779207582*^9}, CellLabel-> - "Out[347]=",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] + "Out[107]=",ExpressionUUID->"0f3f47ed-db81-43bf-b416-21c606e84186"] }, Open ]], Cell[CellGroupData[{ @@ -8633,12 +9039,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[350]:=",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], + "In[108]:=",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], -Cell[BoxData["16.598525115055164`"], "Output", - CellChangeTimes->{3.9913409046880226`*^9}, +Cell[BoxData["36.262714783299`"], "Output", + CellChangeTimes->{3.9913409046880226`*^9, 3.994251779222101*^9}, CellLabel-> - "Out[350]=",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] + "Out[108]=",ExpressionUUID->"361a079e-a291-4be7-9f24-db832ad83c03"] }, Open ]], Cell[CellGroupData[{ @@ -8828,12 +9234,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[351]:=",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], + "In[109]:=",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], -Cell[BoxData["0.021613768236132463`"], "Output", - CellChangeTimes->{3.9913409047132187`*^9}, +Cell[BoxData["0.0034946385078954492`"], "Output", + CellChangeTimes->{3.9913409047132187`*^9, 3.994251779240038*^9}, CellLabel-> - "Out[351]=",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] + "Out[109]=",ExpressionUUID->"9eee9968-b782-44d1-a66a-b5476c2bd188"] }, Open ]], Cell[CellGroupData[{ @@ -8847,12 +9253,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[352]:=",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], + "In[110]:=",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], -Cell[BoxData["6.028089553291302`"], "Output", - CellChangeTimes->{3.9913409048112164`*^9}, +Cell[BoxData["14.991455902222505`"], "Output", + CellChangeTimes->{3.9913409048112164`*^9, 3.99425177943079*^9}, CellLabel-> - "Out[352]=",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] + "Out[110]=",ExpressionUUID->"c81f66fa-ea38-4c5c-842b-ce915d9fd7c2"] }, Open ]], Cell[CellGroupData[{ @@ -9044,12 +9450,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[353]:=",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], + "In[111]:=",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], -Cell[BoxData["0.010798036798660033`"], "Output", - CellChangeTimes->{3.991340904825058*^9}, +Cell[BoxData["0.024579264034806633`"], "Output", + CellChangeTimes->{3.991340904825058*^9, 3.994251779448597*^9}, CellLabel-> - "Out[353]=",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] + "Out[111]=",ExpressionUUID->"a2be0c53-6d1b-4dd6-b733-9df850d82337"] }, Open ]], Cell[CellGroupData[{ @@ -9063,12 +9469,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[354]:=",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], + "In[112]:=",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], -Cell[BoxData["8.5284977476633`"], "Output", - CellChangeTimes->{3.9913409049303207`*^9}, +Cell[BoxData["5.652759431140713`"], "Output", + CellChangeTimes->{3.9913409049303207`*^9, 3.994251779642489*^9}, CellLabel-> - "Out[354]=",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] + "Out[112]=",ExpressionUUID->"b2d15396-d178-412a-b4c3-4694e75981b6"] }, Open ]], Cell[CellGroupData[{ @@ -9161,12 +9567,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[355]:=",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], + "In[113]:=",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.991340904948307*^9}, +Cell[BoxData["0.11740719062544083`"], "Output", + CellChangeTimes->{3.991340904948307*^9, 3.994251779657814*^9}, CellLabel-> - "Out[355]=",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] + "Out[113]=",ExpressionUUID->"b5752162-ce2c-4b84-99fa-d18893fa529f"] }, Open ]], Cell[CellGroupData[{ @@ -9256,12 +9662,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[356]:=",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], + "In[114]:=",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.991340904981308*^9}, +Cell[BoxData["0.8825928093745592`"], "Output", + CellChangeTimes->{3.991340904981308*^9, 3.99425177967452*^9}, CellLabel-> - "Out[356]=",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] + "Out[114]=",ExpressionUUID->"014d11b1-8158-4bff-9b50-275713e031dc"] }, Open ]], Cell[CellGroupData[{ @@ -9384,12 +9790,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[357]:=",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], + "In[115]:=",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.99134090500931*^9}, +Cell[BoxData["0.10362274221488223`"], "Output", + CellChangeTimes->{3.99134090500931*^9, 3.9942517796977873`*^9}, CellLabel-> - "Out[357]=",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] + "Out[115]=",ExpressionUUID->"bf5a12ab-16b7-4b21-be20-1430e9b24555"] }, Open ]], Cell[CellGroupData[{ @@ -9451,68 +9857,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849824909197*^9},ExpressionUUID->"486d514f-ec65-1e4e-b780-\ -7e9487f745c3"], + CellChangeTimes->{3.991849824909197*^9}, + CellLabel-> + "In[116]:=",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 358, - 361, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340905038307*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.26358172021042`*^-237\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 116, 33, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340905038307*^9, 3.994251779716474*^9}, CellLabel-> "During evaluation of \ -In[358]:=",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], +In[116]:=",ExpressionUUID->"4c17bede-0fd0-4f6a-b94d-d6db60bf5f22"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 358, - 362, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340905047306*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.5266145441136233`*^-244\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 116, 34, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340905038307*^9, 3.994251779726367*^9}, CellLabel-> "During evaluation of \ -In[358]:=",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], +In[116]:=",ExpressionUUID->"4b55bee0-de60-4a11-8c2d-6404966f412d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 358, - 363, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340905056307*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0295859634714676`*^-251\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 116, 35, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340905038307*^9, 3.994251779737035*^9}, CellLabel-> "During evaluation of \ -In[358]:=",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], +In[116]:=",ExpressionUUID->"ec060d96-a0b0-4771-a550-339a790095a4"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 358, 364, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340905064308*^9}, +during this calculation.\"", 2, 116, 36, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340905038307*^9, 3.994251779746462*^9}, CellLabel-> "During evaluation of \ -In[358]:=",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], +In[116]:=",ExpressionUUID->"65013923-62b2-47a3-89d8-ab4927ab2080"], -Cell[BoxData["6.028089553291301`"], "Output", - CellChangeTimes->{3.991340908920454*^9}, +Cell[BoxData["14.991455902222501`"], "Output", + CellChangeTimes->{3.991340908920454*^9, 3.994251786676512*^9}, CellLabel-> - "Out[358]=",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] + "Out[116]=",ExpressionUUID->"fd032494-87a5-4179-af01-33eee2995479"] }, Open ]], Cell[CellGroupData[{ @@ -9574,68 +9981,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918498299076843`*^9},ExpressionUUID->"c7144ce5-8356-d548-8854-\ -18c538c3321c"], + CellChangeTimes->{3.9918498299076843`*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 359, - 365, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340908954941*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.26358172021042`*^-237\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 117, 37, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340908954941*^9, 3.994251786726892*^9}, CellLabel-> "During evaluation of \ -In[359]:=",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], +In[117]:=",ExpressionUUID->"d178d4bc-c666-4a09-a3d1-d536c87954dc"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 359, - 366, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340908964924*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.5266145441136233`*^-244\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 117, 38, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340908954941*^9, 3.994251786735421*^9}, CellLabel-> "During evaluation of \ -In[359]:=",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], +In[117]:=",ExpressionUUID->"6e239200-b803-401c-bd72-f8dce1f399ea"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 359, - 367, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913409089739246`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0295859634714676`*^-251\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 117, 39, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340908954941*^9, 3.994251786743307*^9}, CellLabel-> "During evaluation of \ -In[359]:=",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], +In[117]:=",ExpressionUUID->"d16e47ee-8357-47a7-ad09-10d3ee271bd2"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 359, 368, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340908981924*^9}, +during this calculation.\"", 2, 117, 40, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340908954941*^9, 3.994251786751853*^9}, CellLabel-> "During evaluation of \ -In[359]:=",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], +In[117]:=",ExpressionUUID->"0b051fda-8c4a-4703-8432-5e287296f814"], -Cell[BoxData["8.528497747663296`"], "Output", - CellChangeTimes->{3.991340912767397*^9}, +Cell[BoxData["5.65275943114071`"], "Output", + CellChangeTimes->{3.991340912767397*^9, 3.994251793673119*^9}, CellLabel-> - "Out[359]=",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] + "Out[117]=",ExpressionUUID->"3fd57e1b-bf14-4535-bd39-5d65f965adb4"] }, Open ]], Cell[CellGroupData[{ @@ -9693,95 +10101,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849833066021*^9},ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-\ -a45df2eabf0c"], + CellChangeTimes->{3.991849833066021*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo -kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv -3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 -ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf -W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d -SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 -AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 -E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH -L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx -C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I -QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 -9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U -PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 -h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ -1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK -UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx -taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb -eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN -ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr -RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q -FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d -2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd -kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo -HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu -AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv -Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN -GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U -BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog -f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 -YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca -gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG -G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 -zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 -27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo -/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW -35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 -cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 -SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou -N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH -oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q -u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA -22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG -DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 -sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV -dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A -+fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE -x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT -ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E -2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M -OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh -sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ -CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ -2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f -pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf -/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI -Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc -9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY -/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR -lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j -KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr -q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a -drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L -lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 -KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS -gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ -77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t -On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI -EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS -etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg -2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs -/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX -sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK -Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf -xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 -wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ -IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O -GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia -70x+Lkfh53XZ2uCv/w8uxqIW + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV03k4VdsbB3CZypj5kAyZilI6hqhu6zVHSBkyx3H2NlQIuacUdYuUkqJS +GSoUMocyXD+iEopQSdQxXoljy9Tst84f+9nP51lrv+u71rvXGkboXoKXh4dn +Cj/c9+FXG9c+6ny1o4puMPIng4N2cHIMGRaFKKUpiMM1O8soVcOiDqU1CYkt +YTsyXwqK6j9F4ptlgOsyVmyTgEU7Ehc+d5brc8/kG2ILXqOHtoHDXFd3Hs78 +RX+DEjhlTjyZHDTR13r8aG0vOkcRvVyvGlX3XDDvR4M2Zw4vw941fdwkov0T +CpkVVeHFrv81IcIqGETNI0tsrt+eokVXhQyjdBnvR3zYHEGLiTn6KMpmadzl +xxa8EOauvziG/ARc7whgK0tmtByuHUfFxTMVgtgOigv3OOaTqFA1QEEIm7yt +Jqe7goM62iBYGDtWc3fcgfZplOd2pkMEu5fWszmyYAbVdu58J47N9AgOSrnw +Fb259uKoBDaVznOnPGQWpc8+1JPCXqGmKzFDn0c1ik8/yGKnMpusJWQX0I/q +Lx00bNX77rGbFheQW2p0rwK28YZ4zqHab+jftLdaytiBRp/aJ8x/oXXDUY/X +Ys+xjvALa/1G60NGdutgn6wV2a694g/i31PzcwN2Ghg/CGhfQiE3M5Pp3Hy5 +LRbhBcuAybAs2YFd8CyFfUqRFwz6Zz6bcvP+53P88gVeYJ8XMLHEPq4z/7A0 +hA9mh/xk7Lh5S9aoT9MFYHnL5/95YPd1Ttb/yRYA721tGT7c/F8feYjLCgJx +SiqZgV1o4HBFd1EQ3J+8LgvGbq4+tuxg7QrwiBebiMaeb+r+NG4uCtJOtrp3 +saXsRCWi60Wh9atU431svR4LEDMRA7/8zoNF2MEjlbc3bxQHCUkd0WrsMN52 +vb9EJUAmalfwa+xRteKZuAVJ4I/5ni2Yhc+HbBXq0JeCBcGJKjFs3gdja+QP +S0H5pxeDMtiq+ip7C75IgR/bJVYd28M8ufwVWxpWBaa8N8Xu8A+PoLXJwsUj +ZsKnsT/eT0r0XSEHa2zmbiViT34pyM63lAMz2yTLVGzhyOHubQ1yENbPYudi +W5xxNvCtpIHghlWGrdg1OUbzeVkKIO8q7067zUE5oz+itkYqwdVzUglN2Dtd +zn6MKFKCiEtLjq+wJ5ulrYrGlOBpQsXG99gGORtkVd2VQXRj5Lpp7GaGz0OB +HSrQOLdVdvUdDvo6zf57/LQqRN0J7D6KLX3IouKhvRpIP1b5aHGXg8ZyhAMd +g9WgP2lyx17sx/2dilPxavBRM6RiP7aXnfdprQY1aBu/MHAMO2d91N4bdHWg +9WquK8c2mLhPxdA0gH1PJ1Mjm4OcA0R0bQc1IUs7coVCDgehKBf6vt+a4DGm +WrwOWycuawtTQQuGV2YGGGPzZOubxezRgoJ8QTk37KKPnvvKG7XgT320bxq2 +oGvhqVV318LZKzsfrM7F+Szs304wtKF6uFvK4B4HZTtd/7AYow2npFdstsJO +Ygyy+W9pQ0v/V4YbNvPkkS/K3dpwv2F82QlsyboMHidzHSBN/9rwHDtYn6NT +q74eiMzGzfvvc5Ci2qXYxJEN8D7hxfeMPA6qOz+n/Z1XF26oB9hVYHvNuveQ +a3SBVJCpasXObNbQNvPRBRfh668WsdUCarq+vdOFBB8lGad8vN/CUU2ybSNU +hQlTYgUcpKSoTKq668GMrNxQ6gMO2pAbKfoT0eFKlKrvf8UcxGCentd1oEO/ +6rfEZSX4vqpf+ejrRQdd22ttith8d0tKn7HokD+lGu+I3Zc54XyljA7VIrvG +a7DPpflmaKvrw9xS2/6UUtzfRLuNboIGMG9Lk3Iq56A74RqOle2GYFpoZihW +xUGdUWjLmVwTONF9+bPO/zhojc8bB++Df8Hu7ko26wUHEUtVxUpHAfTk7STN +eziI9uXxchrDDCie6t8GgxwUqb+9/4qOBYh3WCQd4OD8U79apCcsgX8h+IL/ +L9xPs4jlWR3WYJf0IP6O6DTKmQtuLEy1gV1HLL40rJ5G30zlXzbH7oKrLec6 +jDdNowEevplBP3t4qlfQZ2M2jUJWhyafUt8NKr/DjrxznkbFQS0NV+McQai1 +5e/aoGl0bFZhcX3QHohSsSMHT0yjeVsr1+f798KD5FI+19RpZOJ52XR0jxNE +/gx6OlkwjboUMoKb9Z3hZVf6WbJhGq26d7oub50LdI70zC/vnUaP2Tp2DmKu +sOOthIALZxop91ABUVOu4LBWsVOHl0L6Vy8XZrP3gffJptdrxCmUwT+78UqT +G2wXqOmxVqBQlemmvrhqdxiXPCK8S5NCaVvOS/4q8ICy4pHgBT0KdXzIjde/ +4AmvT3ixSrdRqNI+XSPspBfcuiDqqWBNoZlDTjwhTG+YFVkXELOHQvNW2oEc +cx8gtboTSU8K5U29/xZhtB86nGM3vSAo5HYn199b1BekztKEaaEUeli+az/f +WV8IqDP1qmRRyESx6/u5774gWG/uZ3iKQursgL7XQX7QPLHvqtg5Co2IHNid +PuwHM+s2XP2eTKHOJAd/axcGZKo+MWu5TqFUVpbIkU4GbDGgd0RnUqiufum7 +v40/3O8aP+aWQ6GVXnBWv8YfKmfXhWrmU0hV5nnH6jp/YBcVtRtj67XbywvW ++8Nz1xwlO+y92z3zexv9QaOXfSMcO3V1VNuJF/6gnhj4sx571cCDlS29/lBR +aunnUkAhDR9amteiPyBFwSLWA7wfX05enAEThsxSOGlFFLp3g4pwMGKCvMhN +oTxsme6vO2jGTGiI81B4hM2xXOzJ28aECXF+2hvsnPU8y9rNmFAp2HdeophC +4ouS7lJ7mKA/n+YUhz1y0VAo6xATRnte+JElFNrzfEtPQCgTxGbGJCOx63m2 +ZukdZoLp1ltVp7BvROwwfBLJBNj2dCAd28Hd2m80mgmS0bzZXdjVGu7V688z +IbcbVmwvpVBS7fGgx/eYcCaCMhIso9Ah+nUTVh4TiJK/t0ph2+WXCRkXMKF1 +6DNdGVv4+lj+oyImZNQk8hphx4U7TlRVMKFHvWg1gX1cW+NA5RMmpKjlb2vE +Dr7edrD8IxPyHjcqHy6nkI342PZwNhPmZoXqo7HXxfGI0YeYoPNHbW889li4 +YVHZKBNehDa73cL2c8iaKp1kQsLZkk/N2G4CESElP/D62rHdsg8pZB2xKqxQ +jgCHU7P2JdhPsuJtr8gT0DvUb1+Nvb39qwZrFQGWIyehCVtPs+29uTIBRxnz +v99iK7yLNv+gSUDKS9b739hftg7ICRsSQFu1WcqmgkKXeG//G+BEgFwe+8wb +bOFNomn2LgQMNSb1DWCf8WSF6+8jYPPJj2pj2KwKx7VLHgQ0yvkmLmD7kcsu +X2MQkKDWWytXie9rK4P59DABIWv5bjpjv7usKaKeTMB71zqrZ9jFSCxw/DIB +Io+bTrRjn5maay5KIWCSkM3vwqbbNMcYXyfAuOtq/0fsJB7/r/aZBJy0+lO1 +gG0Vevs9q5CAaUsRE40qCikpJRjtKCaA3/ifCm3sudbQFL5SAg7GbdfYhH1X +C9knPSTAL/Uo2wT798BAQ3YNAXUM4XYH7Ao7xbxXLQS0ZuiFRmEn/uAVSG0l +YFtq8cZobEbehJ97OwEj3UFDsdgS/DWKIx0EfGi5pnUO+2Ct26Xvbwn4TDWs +uYWtrnMtSmOUACFn0eE67B/vTnR/HsPnUWs01oDdGUfolYwT8MbkxkAzdsyg +wYTJJAFN9gL57dh9ad3eu2cJkHhyuPwD9pXlkpbHlpHg+ZfPpUXsuq8DnpF8 +JBCbCox+Yv83UBAeIkBC2D9mHX+wt1dY3GYIkVC/4Noj8Aj/b76sn7aSJNhJ +C26Uxpaws5SylCbhzZ8H++Wwt22R0kayJDg+vfWPAnayWKGrvgIJtJp96Src +8ZpPZYprSHgbaqKyHpvMLWyRVSfhb1etD7rc+clHP63UJCH8s0eCHnc9UlqM +X5sEKdrNKkPuuLR14KQeCU5UEANh1/yRjh2jk7Dv0sU8U+zRz+yrbAMSrvEt +fjLH3tpwrKnHmATDmzfVdmKPHCxW/hfwuKTK4m5scbdow0dmJMQPHXi+B9vE +fKddmQUJmkK/E5ywkxSGjubuJCG/7MsnV+zH/CXJWbYkyI/sPOKGPTwdff+G +HQnWLz//dMc2fib75qIjCTIGC/1e2IyyoS9n95Kw4ZDfFh/si+klvP84k7C8 +Z+Xp/dhD4TZ6UW4k8JcZcvywxXzkrMM8SLg1VSjmz61nM+wd7EVC/wipzOR+ +r3Ii0ceXBKusu9IkN4+w7V03Bgl9+hrfuB6al6veyyRhTHP8ZQC33uBwhx1J +wkU/Tmogt1576ZhVIO5Pj5F9EDffoxO/IZgE4UONC1xfvGsrs+0gCT8Vky4H +c+tfpK03DCHhf13pSge49VkjppvCSHA+M3WTa1FmmZt2OAkrNU8KHcTesjsm +VD2ShIIC5yCuGVt3xStFkWAqeqCG6wua8hk0Fj4vs6ZfXFdJjD6UPEbCZStv +vUPYgz/LWkWOk+AqY+LCteh/MYMCMbgfea4HuDbq2vVtKZaEmaXKcK7/D5E9 +M8w= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -9795,106 +10202,106 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo -kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv -3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 -ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf -W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d -SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 -AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 -E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH -L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx -C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I -QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 -9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U -PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 -h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ -1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK -UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx -taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb -eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN -ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr -RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q -FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d -2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd -kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo -HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu -AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv -Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN -GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U -BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog -f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 -YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca -gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG -G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 -zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 -27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo -/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW -35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 -cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 -SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou -N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH -oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q -u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA -22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG -DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 -sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV -dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A -+fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE -x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT -ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E -2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M -OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh -sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ -CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ -2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f -pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf -/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI -Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc -9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY -/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR -lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j -KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr -q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a -drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L -lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 -KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS -gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ -77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t -On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI -EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS -etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg -2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs -/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX -sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK -Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf -xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 -wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ -IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O -GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia -70x+Lkfh53XZ2uCv/w8uxqIW +1:eJwV03k4VdsbB3CZypj5kAyZilI6hqhu6zVHSBkyx3H2NlQIuacUdYuUkqJS +GSoUMocyXD+iEopQSdQxXoljy9Tst84f+9nP51lrv+u71rvXGkboXoKXh4dn +Cj/c9+FXG9c+6ny1o4puMPIng4N2cHIMGRaFKKUpiMM1O8soVcOiDqU1CYkt +YTsyXwqK6j9F4ptlgOsyVmyTgEU7Ehc+d5brc8/kG2ILXqOHtoHDXFd3Hs78 +RX+DEjhlTjyZHDTR13r8aG0vOkcRvVyvGlX3XDDvR4M2Zw4vw941fdwkov0T +CpkVVeHFrv81IcIqGETNI0tsrt+eokVXhQyjdBnvR3zYHEGLiTn6KMpmadzl +xxa8EOauvziG/ARc7whgK0tmtByuHUfFxTMVgtgOigv3OOaTqFA1QEEIm7yt +Jqe7goM62iBYGDtWc3fcgfZplOd2pkMEu5fWszmyYAbVdu58J47N9AgOSrnw +Fb259uKoBDaVznOnPGQWpc8+1JPCXqGmKzFDn0c1ik8/yGKnMpusJWQX0I/q +Lx00bNX77rGbFheQW2p0rwK28YZ4zqHab+jftLdaytiBRp/aJ8x/oXXDUY/X +Ys+xjvALa/1G60NGdutgn6wV2a694g/i31PzcwN2Ghg/CGhfQiE3M5Pp3Hy5 +LRbhBcuAybAs2YFd8CyFfUqRFwz6Zz6bcvP+53P88gVeYJ8XMLHEPq4z/7A0 +hA9mh/xk7Lh5S9aoT9MFYHnL5/95YPd1Ttb/yRYA721tGT7c/F8feYjLCgJx +SiqZgV1o4HBFd1EQ3J+8LgvGbq4+tuxg7QrwiBebiMaeb+r+NG4uCtJOtrp3 +saXsRCWi60Wh9atU431svR4LEDMRA7/8zoNF2MEjlbc3bxQHCUkd0WrsMN52 +vb9EJUAmalfwa+xRteKZuAVJ4I/5ni2Yhc+HbBXq0JeCBcGJKjFs3gdja+QP +S0H5pxeDMtiq+ip7C75IgR/bJVYd28M8ufwVWxpWBaa8N8Xu8A+PoLXJwsUj +ZsKnsT/eT0r0XSEHa2zmbiViT34pyM63lAMz2yTLVGzhyOHubQ1yENbPYudi +W5xxNvCtpIHghlWGrdg1OUbzeVkKIO8q7067zUE5oz+itkYqwdVzUglN2Dtd +zn6MKFKCiEtLjq+wJ5ulrYrGlOBpQsXG99gGORtkVd2VQXRj5Lpp7GaGz0OB +HSrQOLdVdvUdDvo6zf57/LQqRN0J7D6KLX3IouKhvRpIP1b5aHGXg8ZyhAMd +g9WgP2lyx17sx/2dilPxavBRM6RiP7aXnfdprQY1aBu/MHAMO2d91N4bdHWg +9WquK8c2mLhPxdA0gH1PJ1Mjm4OcA0R0bQc1IUs7coVCDgehKBf6vt+a4DGm +WrwOWycuawtTQQuGV2YGGGPzZOubxezRgoJ8QTk37KKPnvvKG7XgT320bxq2 +oGvhqVV318LZKzsfrM7F+Szs304wtKF6uFvK4B4HZTtd/7AYow2npFdstsJO +Ygyy+W9pQ0v/V4YbNvPkkS/K3dpwv2F82QlsyboMHidzHSBN/9rwHDtYn6NT +q74eiMzGzfvvc5Ci2qXYxJEN8D7hxfeMPA6qOz+n/Z1XF26oB9hVYHvNuveQ +a3SBVJCpasXObNbQNvPRBRfh668WsdUCarq+vdOFBB8lGad8vN/CUU2ybSNU +hQlTYgUcpKSoTKq668GMrNxQ6gMO2pAbKfoT0eFKlKrvf8UcxGCentd1oEO/ +6rfEZSX4vqpf+ejrRQdd22ttith8d0tKn7HokD+lGu+I3Zc54XyljA7VIrvG +a7DPpflmaKvrw9xS2/6UUtzfRLuNboIGMG9Lk3Iq56A74RqOle2GYFpoZihW +xUGdUWjLmVwTONF9+bPO/zhojc8bB++Df8Hu7ko26wUHEUtVxUpHAfTk7STN +eziI9uXxchrDDCie6t8GgxwUqb+9/4qOBYh3WCQd4OD8U79apCcsgX8h+IL/ +L9xPs4jlWR3WYJf0IP6O6DTKmQtuLEy1gV1HLL40rJ5G30zlXzbH7oKrLec6 +jDdNowEevplBP3t4qlfQZ2M2jUJWhyafUt8NKr/DjrxznkbFQS0NV+McQai1 +5e/aoGl0bFZhcX3QHohSsSMHT0yjeVsr1+f798KD5FI+19RpZOJ52XR0jxNE +/gx6OlkwjboUMoKb9Z3hZVf6WbJhGq26d7oub50LdI70zC/vnUaP2Tp2DmKu +sOOthIALZxop91ABUVOu4LBWsVOHl0L6Vy8XZrP3gffJptdrxCmUwT+78UqT +G2wXqOmxVqBQlemmvrhqdxiXPCK8S5NCaVvOS/4q8ICy4pHgBT0KdXzIjde/ +4AmvT3ixSrdRqNI+XSPspBfcuiDqqWBNoZlDTjwhTG+YFVkXELOHQvNW2oEc +cx8gtboTSU8K5U29/xZhtB86nGM3vSAo5HYn199b1BekztKEaaEUeli+az/f +WV8IqDP1qmRRyESx6/u5774gWG/uZ3iKQursgL7XQX7QPLHvqtg5Co2IHNid +PuwHM+s2XP2eTKHOJAd/axcGZKo+MWu5TqFUVpbIkU4GbDGgd0RnUqiufum7 +v40/3O8aP+aWQ6GVXnBWv8YfKmfXhWrmU0hV5nnH6jp/YBcVtRtj67XbywvW ++8Nz1xwlO+y92z3zexv9QaOXfSMcO3V1VNuJF/6gnhj4sx571cCDlS29/lBR +aunnUkAhDR9amteiPyBFwSLWA7wfX05enAEThsxSOGlFFLp3g4pwMGKCvMhN +oTxsme6vO2jGTGiI81B4hM2xXOzJ28aECXF+2hvsnPU8y9rNmFAp2HdeophC +4ouS7lJ7mKA/n+YUhz1y0VAo6xATRnte+JElFNrzfEtPQCgTxGbGJCOx63m2 +ZukdZoLp1ltVp7BvROwwfBLJBNj2dCAd28Hd2m80mgmS0bzZXdjVGu7V688z +IbcbVmwvpVBS7fGgx/eYcCaCMhIso9Ah+nUTVh4TiJK/t0ph2+WXCRkXMKF1 +6DNdGVv4+lj+oyImZNQk8hphx4U7TlRVMKFHvWg1gX1cW+NA5RMmpKjlb2vE +Dr7edrD8IxPyHjcqHy6nkI342PZwNhPmZoXqo7HXxfGI0YeYoPNHbW889li4 +YVHZKBNehDa73cL2c8iaKp1kQsLZkk/N2G4CESElP/D62rHdsg8pZB2xKqxQ +jgCHU7P2JdhPsuJtr8gT0DvUb1+Nvb39qwZrFQGWIyehCVtPs+29uTIBRxnz +v99iK7yLNv+gSUDKS9b739hftg7ICRsSQFu1WcqmgkKXeG//G+BEgFwe+8wb +bOFNomn2LgQMNSb1DWCf8WSF6+8jYPPJj2pj2KwKx7VLHgQ0yvkmLmD7kcsu +X2MQkKDWWytXie9rK4P59DABIWv5bjpjv7usKaKeTMB71zqrZ9jFSCxw/DIB +Io+bTrRjn5maay5KIWCSkM3vwqbbNMcYXyfAuOtq/0fsJB7/r/aZBJy0+lO1 +gG0Vevs9q5CAaUsRE40qCikpJRjtKCaA3/ifCm3sudbQFL5SAg7GbdfYhH1X +C9knPSTAL/Uo2wT798BAQ3YNAXUM4XYH7Ao7xbxXLQS0ZuiFRmEn/uAVSG0l +YFtq8cZobEbehJ97OwEj3UFDsdgS/DWKIx0EfGi5pnUO+2Ct26Xvbwn4TDWs +uYWtrnMtSmOUACFn0eE67B/vTnR/HsPnUWs01oDdGUfolYwT8MbkxkAzdsyg +wYTJJAFN9gL57dh9ad3eu2cJkHhyuPwD9pXlkpbHlpHg+ZfPpUXsuq8DnpF8 +JBCbCox+Yv83UBAeIkBC2D9mHX+wt1dY3GYIkVC/4Noj8Aj/b76sn7aSJNhJ +C26Uxpaws5SylCbhzZ8H++Wwt22R0kayJDg+vfWPAnayWKGrvgIJtJp96Src +8ZpPZYprSHgbaqKyHpvMLWyRVSfhb1etD7rc+clHP63UJCH8s0eCHnc9UlqM +X5sEKdrNKkPuuLR14KQeCU5UEANh1/yRjh2jk7Dv0sU8U+zRz+yrbAMSrvEt +fjLH3tpwrKnHmATDmzfVdmKPHCxW/hfwuKTK4m5scbdow0dmJMQPHXi+B9vE +fKddmQUJmkK/E5ywkxSGjubuJCG/7MsnV+zH/CXJWbYkyI/sPOKGPTwdff+G +HQnWLz//dMc2fib75qIjCTIGC/1e2IyyoS9n95Kw4ZDfFh/si+klvP84k7C8 +Z+Xp/dhD4TZ6UW4k8JcZcvywxXzkrMM8SLg1VSjmz61nM+wd7EVC/wipzOR+ +r3Ii0ceXBKusu9IkN4+w7V03Bgl9+hrfuB6al6veyyRhTHP8ZQC33uBwhx1J +wkU/Tmogt1576ZhVIO5Pj5F9EDffoxO/IZgE4UONC1xfvGsrs+0gCT8Vky4H +c+tfpK03DCHhf13pSge49VkjppvCSHA+M3WTa1FmmZt2OAkrNU8KHcTesjsm +VD2ShIIC5yCuGVt3xStFkWAqeqCG6wua8hk0Fj4vs6ZfXFdJjD6UPEbCZStv +vUPYgz/LWkWOk+AqY+LCteh/MYMCMbgfea4HuDbq2vVtKZaEmaXKcK7/D5E9 +M8w= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.42228371308737755`}, + "PlotRange" -> {{0, 180}, {0.9567865807635687, + 1.0447821122070275`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9567865807635708}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -9906,20 +10313,21 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "PlotRange" -> {{0, 180}, {0.9567865807635687, + 1.0447821122070275`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.42228371308737755`}, + "AxesOrigin" -> {0, 0.9567865807635708}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -9933,105 +10341,104 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo -kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv -3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 -ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf -W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d -SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 -AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 -E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH -L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx -C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I -QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 -9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U -PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 -h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ -1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK -UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx -taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb -eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN -ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr -RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q -FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d -2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd -kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo -HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu -AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv -Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN -GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U -BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog -f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 -YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca -gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG -G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 -zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 -27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo -/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW -35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 -cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 -SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou -N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH -oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q -u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA -22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG -DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 -sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV -dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A -+fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE -x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT -ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E -2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M -OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh -sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ -CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ -2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f -pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf -/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI -Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc -9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY -/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR -lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j -KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr -q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a -drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L -lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 -KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS -gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ -77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t -On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI -EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS -etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg -2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs -/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX -sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK -Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf -xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 -wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ -IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O -GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia -70x+Lkfh53XZ2uCv/w8uxqIW +1:eJwV03k4VdsbB3CZypj5kAyZilI6hqhu6zVHSBkyx3H2NlQIuacUdYuUkqJS +GSoUMocyXD+iEopQSdQxXoljy9Tst84f+9nP51lrv+u71rvXGkboXoKXh4dn +Cj/c9+FXG9c+6ny1o4puMPIng4N2cHIMGRaFKKUpiMM1O8soVcOiDqU1CYkt +YTsyXwqK6j9F4ptlgOsyVmyTgEU7Ehc+d5brc8/kG2ILXqOHtoHDXFd3Hs78 +RX+DEjhlTjyZHDTR13r8aG0vOkcRvVyvGlX3XDDvR4M2Zw4vw941fdwkov0T +CpkVVeHFrv81IcIqGETNI0tsrt+eokVXhQyjdBnvR3zYHEGLiTn6KMpmadzl +xxa8EOauvziG/ARc7whgK0tmtByuHUfFxTMVgtgOigv3OOaTqFA1QEEIm7yt +Jqe7goM62iBYGDtWc3fcgfZplOd2pkMEu5fWszmyYAbVdu58J47N9AgOSrnw +Fb259uKoBDaVznOnPGQWpc8+1JPCXqGmKzFDn0c1ik8/yGKnMpusJWQX0I/q +Lx00bNX77rGbFheQW2p0rwK28YZ4zqHab+jftLdaytiBRp/aJ8x/oXXDUY/X +Ys+xjvALa/1G60NGdutgn6wV2a694g/i31PzcwN2Ghg/CGhfQiE3M5Pp3Hy5 +LRbhBcuAybAs2YFd8CyFfUqRFwz6Zz6bcvP+53P88gVeYJ8XMLHEPq4z/7A0 +hA9mh/xk7Lh5S9aoT9MFYHnL5/95YPd1Ttb/yRYA721tGT7c/F8feYjLCgJx +SiqZgV1o4HBFd1EQ3J+8LgvGbq4+tuxg7QrwiBebiMaeb+r+NG4uCtJOtrp3 +saXsRCWi60Wh9atU431svR4LEDMRA7/8zoNF2MEjlbc3bxQHCUkd0WrsMN52 +vb9EJUAmalfwa+xRteKZuAVJ4I/5ni2Yhc+HbBXq0JeCBcGJKjFs3gdja+QP +S0H5pxeDMtiq+ip7C75IgR/bJVYd28M8ufwVWxpWBaa8N8Xu8A+PoLXJwsUj +ZsKnsT/eT0r0XSEHa2zmbiViT34pyM63lAMz2yTLVGzhyOHubQ1yENbPYudi +W5xxNvCtpIHghlWGrdg1OUbzeVkKIO8q7067zUE5oz+itkYqwdVzUglN2Dtd +zn6MKFKCiEtLjq+wJ5ulrYrGlOBpQsXG99gGORtkVd2VQXRj5Lpp7GaGz0OB +HSrQOLdVdvUdDvo6zf57/LQqRN0J7D6KLX3IouKhvRpIP1b5aHGXg8ZyhAMd +g9WgP2lyx17sx/2dilPxavBRM6RiP7aXnfdprQY1aBu/MHAMO2d91N4bdHWg +9WquK8c2mLhPxdA0gH1PJ1Mjm4OcA0R0bQc1IUs7coVCDgehKBf6vt+a4DGm +WrwOWycuawtTQQuGV2YGGGPzZOubxezRgoJ8QTk37KKPnvvKG7XgT320bxq2 +oGvhqVV318LZKzsfrM7F+Szs304wtKF6uFvK4B4HZTtd/7AYow2npFdstsJO +Ygyy+W9pQ0v/V4YbNvPkkS/K3dpwv2F82QlsyboMHidzHSBN/9rwHDtYn6NT +q74eiMzGzfvvc5Ci2qXYxJEN8D7hxfeMPA6qOz+n/Z1XF26oB9hVYHvNuveQ +a3SBVJCpasXObNbQNvPRBRfh668WsdUCarq+vdOFBB8lGad8vN/CUU2ybSNU +hQlTYgUcpKSoTKq668GMrNxQ6gMO2pAbKfoT0eFKlKrvf8UcxGCentd1oEO/ +6rfEZSX4vqpf+ejrRQdd22ttith8d0tKn7HokD+lGu+I3Zc54XyljA7VIrvG +a7DPpflmaKvrw9xS2/6UUtzfRLuNboIGMG9Lk3Iq56A74RqOle2GYFpoZihW +xUGdUWjLmVwTONF9+bPO/zhojc8bB++Df8Hu7ko26wUHEUtVxUpHAfTk7STN +eziI9uXxchrDDCie6t8GgxwUqb+9/4qOBYh3WCQd4OD8U79apCcsgX8h+IL/ +L9xPs4jlWR3WYJf0IP6O6DTKmQtuLEy1gV1HLL40rJ5G30zlXzbH7oKrLec6 +jDdNowEevplBP3t4qlfQZ2M2jUJWhyafUt8NKr/DjrxznkbFQS0NV+McQai1 +5e/aoGl0bFZhcX3QHohSsSMHT0yjeVsr1+f798KD5FI+19RpZOJ52XR0jxNE +/gx6OlkwjboUMoKb9Z3hZVf6WbJhGq26d7oub50LdI70zC/vnUaP2Tp2DmKu +sOOthIALZxop91ABUVOu4LBWsVOHl0L6Vy8XZrP3gffJptdrxCmUwT+78UqT +G2wXqOmxVqBQlemmvrhqdxiXPCK8S5NCaVvOS/4q8ICy4pHgBT0KdXzIjde/ +4AmvT3ixSrdRqNI+XSPspBfcuiDqqWBNoZlDTjwhTG+YFVkXELOHQvNW2oEc +cx8gtboTSU8K5U29/xZhtB86nGM3vSAo5HYn199b1BekztKEaaEUeli+az/f +WV8IqDP1qmRRyESx6/u5774gWG/uZ3iKQursgL7XQX7QPLHvqtg5Co2IHNid +PuwHM+s2XP2eTKHOJAd/axcGZKo+MWu5TqFUVpbIkU4GbDGgd0RnUqiufum7 +v40/3O8aP+aWQ6GVXnBWv8YfKmfXhWrmU0hV5nnH6jp/YBcVtRtj67XbywvW ++8Nz1xwlO+y92z3zexv9QaOXfSMcO3V1VNuJF/6gnhj4sx571cCDlS29/lBR +aunnUkAhDR9amteiPyBFwSLWA7wfX05enAEThsxSOGlFFLp3g4pwMGKCvMhN +oTxsme6vO2jGTGiI81B4hM2xXOzJ28aECXF+2hvsnPU8y9rNmFAp2HdeophC +4ouS7lJ7mKA/n+YUhz1y0VAo6xATRnte+JElFNrzfEtPQCgTxGbGJCOx63m2 +ZukdZoLp1ltVp7BvROwwfBLJBNj2dCAd28Hd2m80mgmS0bzZXdjVGu7V688z +IbcbVmwvpVBS7fGgx/eYcCaCMhIso9Ah+nUTVh4TiJK/t0ph2+WXCRkXMKF1 +6DNdGVv4+lj+oyImZNQk8hphx4U7TlRVMKFHvWg1gX1cW+NA5RMmpKjlb2vE +Dr7edrD8IxPyHjcqHy6nkI342PZwNhPmZoXqo7HXxfGI0YeYoPNHbW889li4 +YVHZKBNehDa73cL2c8iaKp1kQsLZkk/N2G4CESElP/D62rHdsg8pZB2xKqxQ +jgCHU7P2JdhPsuJtr8gT0DvUb1+Nvb39qwZrFQGWIyehCVtPs+29uTIBRxnz +v99iK7yLNv+gSUDKS9b739hftg7ICRsSQFu1WcqmgkKXeG//G+BEgFwe+8wb +bOFNomn2LgQMNSb1DWCf8WSF6+8jYPPJj2pj2KwKx7VLHgQ0yvkmLmD7kcsu +X2MQkKDWWytXie9rK4P59DABIWv5bjpjv7usKaKeTMB71zqrZ9jFSCxw/DIB +Io+bTrRjn5maay5KIWCSkM3vwqbbNMcYXyfAuOtq/0fsJB7/r/aZBJy0+lO1 +gG0Vevs9q5CAaUsRE40qCikpJRjtKCaA3/ifCm3sudbQFL5SAg7GbdfYhH1X +C9knPSTAL/Uo2wT798BAQ3YNAXUM4XYH7Ao7xbxXLQS0ZuiFRmEn/uAVSG0l +YFtq8cZobEbehJ97OwEj3UFDsdgS/DWKIx0EfGi5pnUO+2Ct26Xvbwn4TDWs +uYWtrnMtSmOUACFn0eE67B/vTnR/HsPnUWs01oDdGUfolYwT8MbkxkAzdsyg +wYTJJAFN9gL57dh9ad3eu2cJkHhyuPwD9pXlkpbHlpHg+ZfPpUXsuq8DnpF8 +JBCbCox+Yv83UBAeIkBC2D9mHX+wt1dY3GYIkVC/4Noj8Aj/b76sn7aSJNhJ +C26Uxpaws5SylCbhzZ8H++Wwt22R0kayJDg+vfWPAnayWKGrvgIJtJp96Src +8ZpPZYprSHgbaqKyHpvMLWyRVSfhb1etD7rc+clHP63UJCH8s0eCHnc9UlqM +X5sEKdrNKkPuuLR14KQeCU5UEANh1/yRjh2jk7Dv0sU8U+zRz+yrbAMSrvEt +fjLH3tpwrKnHmATDmzfVdmKPHCxW/hfwuKTK4m5scbdow0dmJMQPHXi+B9vE +fKddmQUJmkK/E5ywkxSGjubuJCG/7MsnV+zH/CXJWbYkyI/sPOKGPTwdff+G +HQnWLz//dMc2fib75qIjCTIGC/1e2IyyoS9n95Kw4ZDfFh/si+klvP84k7C8 +Z+Xp/dhD4TZ6UW4k8JcZcvywxXzkrMM8SLg1VSjmz61nM+wd7EVC/wipzOR+ +r3Ii0ceXBKusu9IkN4+w7V03Bgl9+hrfuB6al6veyyRhTHP8ZQC33uBwhx1J +wkU/Tmogt1576ZhVIO5Pj5F9EDffoxO/IZgE4UONC1xfvGsrs+0gCT8Vky4H +c+tfpK03DCHhf13pSge49VkjppvCSHA+M3WTa1FmmZt2OAkrNU8KHcTesjsm +VD2ShIIC5yCuGVt3xStFkWAqeqCG6wua8hk0Fj4vs6ZfXFdJjD6UPEbCZStv +vUPYgz/LWkWOk+AqY+LCteh/MYMCMbgfea4HuDbq2vVtKZaEmaXKcK7/D5E9 +M8w= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "PlotRange" -> {{0, 180}, {0.9567865807635687, 1.0447821122070275`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.42228371308737755`}, + "AxesOrigin" -> {0, 0.9567865807635708}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10041,7 +10448,8 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.42228371308737755`}, + AxesOrigin->{0, 0.9567865807635708}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -10069,7 +10477,8 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.4222837130873766, 2.103798844286089}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.9567865807635687, 1.0447821122070275`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -10077,9 +10486,9 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913411752988663`*^9}, + CellChangeTimes->{3.9913411752988663`*^9, 3.994252368745957*^9}, CellLabel-> - "Out[360]=",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] + "Out[118]=",ExpressionUUID->"b956cd4e-6f8c-4d62-8fa0-73ed7a28fed5"] }, Open ]], Cell[CellGroupData[{ @@ -10142,157 +10551,162 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.9918498397477245`*^9, - 3.9918498435341415`*^9}},ExpressionUUID->"92d458c4-bfde-c447-a06c-\ -70a15768b745"], + CellChangeTimes->{{3.9918498397477245`*^9, 3.9918498435341415`*^9}}, + CellLabel-> + "In[119]:=",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.939746899581406`*^-267\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 361, - 369, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913411755393047`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1831353681625274`*^-272\\\", \ +\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 119, 41, + 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913411755393047`*^9, 3.994252368942212*^9}, CellLabel-> "During evaluation of \ -In[361]:=",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], +In[119]:=",ExpressionUUID->"5e0f7989-d1c6-4136-b217-c9154d7086fa"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.7974258435449576`*^-278\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 361, 370, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913411755492897`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.9969959705126774`*^-286\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 42, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913411755393047`*^9, 3.994252368951438*^9}, CellLabel-> "During evaluation of \ -In[361]:=",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], +In[119]:=",ExpressionUUID->"2f6fede8-1d41-4bb8-a786-72274937576a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.87479384448772`*^-289\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 361, 371, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991341175557289*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.591679776439049`*^-300\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 43, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913411755393047`*^9, 3.994252368959585*^9}, CellLabel-> "During evaluation of \ -In[361]:=",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], +In[119]:=",ExpressionUUID->"be2c1d75-8e25-4cc8-97fa-4b3a8a820761"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 361, 372, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913411755664787`*^9}, +during this calculation.\"", 2, 119, 44, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913411755393047`*^9, 3.994252368969007*^9}, CellLabel-> "During evaluation of \ -In[361]:=",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], +In[119]:=",ExpressionUUID->"7d471036-d71f-4b3d-9f76-78b04ad29255"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK -FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE -hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux -IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B -8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K -ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS -jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 -CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs -KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC -owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 -9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV -MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 -h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC -Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp -9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ -oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt -GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN -62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw -rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 -M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS -dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ -Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ -bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys -CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp -YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF -Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc -mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn -Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM -PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u -4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K -R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l -F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y -6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q -FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF -0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 -dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG -jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU -s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq -KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g -aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx -0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ -bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 -emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY -+Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix -Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK -ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv -HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt -pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR -URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp -/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K -MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh -VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi -Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i -bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys -Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf -kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 -mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ -emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X -PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC -5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr -ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk -8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr -qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO -6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY -ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 -w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m -Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb -eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo -/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm -N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx -4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq -QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya -LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF -jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm -m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 -d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX -WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D -0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD -uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk -u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT -V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 -ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT -PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 -ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q -bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA -OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC -oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 -YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL -/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k8VN8bB3CFUiHZsiSMMXfsS5EwPU8R0UKLpCh7i0KFwreskQghZamU +ba4iJJW0UUoqS7KWihSyJkLid35/zev9mjlz77nnPJ/nXEVnr21uc3l4eBbM +4eH5/+d4R/VzZnTWmp/V7h6TjrprGq9K+a9tCYXCVzPCve0igBK1zlItCSBp +M3dbZbsC+FnnNfO23IBPF3/y5bdrw5LBpQmTzcVQXiPGTGpH+Fy+xet3cwU0 +2sjVWLdbgxmz79NIcwOoTIec2d7mCJPNqy4ON3eC4LeJRfubvKHSJDer/sYo +fBg8mHvGPwSWfX7w3Vn9H5TIlyO8iQLxw/vy5pvwYsmMU8B4Zzwk6Jg93GIj +gEd9TpWni12E1svaT0dEhHDRkp2FzxovQ3RWUO1c6SXobGdcon4nHZYmdUUl +XhHDy0oS77czMiByh8WahnEJbDFaWL/u9nU4vvr6vupQKZR5O2ptYpQJpkNT +AZ5dMvjyj/VE/LksCDHe6iRjIIe8P5jGgUXZYFiQUnL6iTwaud1pt3qdA6bN +7/4NvpLHeUdloqXf5cAWHj7zfQ3yeF9Ha+xLfQ64bPNshW55rLWvnTjQmgNm +gYpBwfwKGDvz74FDTw54y49nrlVTwMg5ffxt/LnwfP+1gUo/BVTwZX9fBrlw +eGIk+JWQIi7tPCxSlZcLhkfdJb+LKmL1yJ+4dQW5INDXdpNXShFFemQdyoty +Ibu9smkNQxG3RvR/zr2fCx2PL6rf1VfEy1kzZ/ZW5YLVmdUt1/cpIj0+bW75 +NRd0RUO0AosU8dMq+72yElzgiR57frlUEUu6QwPWSnHhHe+h3aUPFXE2k9Xl +KssFj7FtZ0ZeKOKkeldKpiIXslqY7fvbFFFbinOFR5MLktdeRezgZeCG4hP/ +DMy4MKkm0qFhw8BAm77NmT5cGL8iE7JiNwOL/SU+u53gwu/FyszV+xiY0Xqj +STmAC4Ojqw+ZHmSguq/c5JUgLnQ+dBnffYqBh3cbCXmd48LrjfeEz2Yz0Ijn +Y3DSNS6keuyFzjEGJqdSSgMvuXDp04HOH1MM7OIty7J/zYUkq+NnBmYZOOG9 +Na76DRdiV5ytmVighC4b52Sk1XMh9G+R7eLlSqilm1as0E7mF83vbWymhF/v +Nt8rGOCC8c1bGcnJStiVaKDbLkJDu8LNa+vTlHDcS/nue1EaApLpq7+vKeH0 +2zV/q8VpuBeSk76NVkJgBtfflqJBd1fGZeFyJdxeKZznqECDCn9SfMRXJaTm +j6naatEguS8w2E+diS9CXP0vb6ThbqN/kLIOEyPrtuRZbKZhh+XJ0416TExO +tsic2EJDgp7vf7pArMAYtNpGg5Cg18nBrUyserSxv2sXDXwPnL3dTzBRcKq3 ++LobDSOilo47K5gor1BR7nuKhpbDjLpDL5m4crdLx8xpGp5WTUHQGyYOybM9 +zgTTEB9wU57bxMS1kjovz4XRoN0p+Hmyj4kMp954vygaPItqHa6IKaOHaBLd +kETDzkXct0VSyrgl8/5V3WQa1rgFc6rklLHnWRhv/CVyf9I6ckOUMho+M5Yz +SaXhVnDCRzRWxuKVqSnnrtHQZ2Wz55urMj7vt5u6StPQQGvUTBxURomqdcJN +eTSU8c4jC6+Mcw4/Sl54i4aoe6Uy+v7K6DdWOO9wAQ1seam2yPPKGC6f7SFy +h4b9g2271EqVcVtZQeLnhzR8i3HceWw+CyuDjJ6m1JD771NnaAuycPrx/Grv +NzT8MZ8cGBBhoU1tV+b6tzQs5E04c1CGhYJCs3U978j8/StLHDVY+KXQaIlE +Aw2n3FhiVttZGDsn2pO/hYZ5lb86BHex0O7WZPkD4niFJ3mv7Vno0LW/06OV +hqx223Vm7iysf332TnUbDa+3Rh3l+LNQ52/jCY9PZP3X9NeqXWOh83nTevNO +GjLS7qf1ZrLQPN2ztJVYZTJ8fy6XhVo1tScOdtFgXCI3yyhmYbpYXHzoNxpc +VK00ZV6w8OceX6W07zT0R8pONVezcP7516OyP2jw6/7x4uI7Ft7mF8pMJT6X +EeywpIWFu+aVXbvQQ0OhZHGMwE8Wjn12lXXvo8HQ5/SuqiEWLud73/+BuLLe +khn+m4U87WPXTH7S0BTT9XD2HwuDD1bckuqnYXquxM9xEQoPObgcogdoiHD8 +WloiQeHgeaftAoM0LH6cH3pMhkK5rn4FN2KGv5nMoBKFanrLPKSGaLAYOmHR +rU+hQAFfldswDct0lkcIGFMY2DFvUxnx4LHnFWprKdRTl7UXHKEhaVzE+NhG +ClNzdi+jid0N7p28aE2h/pTf21Hi1QEOd+/bUJhxP3Kh8S8aOv7RmrP7KNzM +Paz6grgQrD0YbhTaNa4UnjdKQ1jIeO76QxQecGwNMiVm85soxvhQGHcoU7iM +eMqs1+G2P5lf0RP1EeK3Z+NSG05T6NKb3ab8m4Zjgh/FpKMojEl49iOS2HRL +qLVxLIVRScPmd4mXxrPP70uk8CP34+ovxH3176pDL1P4x4f3scAYDeVivvNy +rlC4Z7yzUZM41kbWpPoGhV6hk6e3ETtdehbUn0uhVdWL8uPEK1v3ly/OpzC9 +qio2gXierPCkbjGFmz4HjhUQt9iX6O28R55fpevIK+KbV3cf8y+n0ODUnLAv +xKe/8NxOf0aud6Qhb4zYmpH780kVGb9x10GBcbI+rpvZXTUUtjHFn0gRj2WP +us6rp1B8b+QtFvGrHynXVZooHC9coatLnKqCHZvaKXTWSLM2Ij7s8V3G+wsZ +b4AC64ghP8Y2sZtCm9hsOzNi0SHdpNI+CoXWbFm/gfibdmtd6xCFlvmPasyJ +S48FCf37TaFx8okBU+KoEmVLhSkKn8znuQnE9uM1ESazFK50a+czINY0OFbp +zsdGK/fYvxrEPAFSPOcWsLFV8mqcIvH7h4+N84XZmNwU90yUOOefq3+dGBvn +2vVemEN8EhaVjkqxkcrWnjNInsfGkKJfksvZ6CbRv7iFeHmlrZahEht32N54 +/IR4mG/Gw4HNxpMebULZxJVmWdxgDTaqZsvORBInn7XsztQlv88biDtAfOD1 +sOLLVWw0O95SaUYsvIWTJrSOjfQbafFpsh++xHU1a5uzkb8nROc98Z36KPEd +m9iY9lF5NJd4l03T+dSdbPTrMXezJFa99N/rR3vYqCLZJilF/K+FMf+rIxsj +LOo8u8j+vGHvFUx5sLHCXVz8OHG/i8DxkiA2Kl5YY+JH9v/gVdNHT8LJ97J7 +T+sSD7UGz6+JItf3rfHvJ/Xzy2oy7WsiG3Xrc+7YEf8x6nsuzGXjpi+i66RJ +PU74sRbL5LMxNGZrbCWp36kiZzvlYjau/yl2zYN4mmofMCon48VMRe6Sep8r +/kbyYB0bf86aoAbJBz4rASefD2xcYhj/5AXJD/5zpjeD2tgYspg7355YgOcR +JH9jo0iVy+8QkjfC/fkHKifYmLrTyOpOLw3Sz+PK5BRVMNi+NvxWNw0yszV8 +KiwVvMA1bFAkXmYoYLVSTQWVZvVGkkg+Li8M7rLUI7ZYmuND8pOZflTwpIUK +RgWo/5X+SvLdZ/vehqMquPPVo7rpdtKvb8dxP/mpIPyNDbAiXtFX86snUAUb +XCZmrpH81nc0jZw9o4L8HztSDEm+G23SK1QnRaBwU4K9s4km592lcyMrVPCg +bRNF1dHQ62zONXqpgrdkvj10q6Uh5vqJLcM1Kih3p8n/Bukv75e3pNp9UEHn +8u2+kqT/OEqnrFDvUUHxOqmTPdU0+AvLutULqaKYf6WUXiXpnxPLX8naqaJa +X7SWTwkNVqusPOscVHFvbNrwSdL/fvkGiZ9xVsWA7To/A4tJHo5+dhz0UEWX +/sHY/wppqBrImHx6WhXXb31w9QDpp587GWruWarYtmGTdX8mqc+3rNjCIVUU +zPoWlX2Bhpkh7ezXv1WRu2EoYlc8yS9Ro/Jvk6o49XgkeEEcDRW7rPqk+NRQ +Ylm4p1sMDce/nTALkVJDwcnj6/gjaWj8+2pm61o1HKz64NwdSMMlVQ+v0QQ1 +PFJfYqjuSkP4Zt8IoctquPt5DyPDmQZv76Ar1BU1XKSaLSfqRMOG0sSaPblq ++EfWb/OwA9l/a8up5w/VMNK2jL5oS8NuO6EvSd/U0D3aayjckqz/2dvW+vrq +yEx4dH5Kk4a8gvzKSUN1DHQP8rHWoMHgw039R6CO3k4BT7PUyPmKwV1maqGO +krYHz21gk/Upz+jZaq+OWcXW4/8p0vB3+ELwkVB1LApouJ0iRkObnU9h1jt1 +nPk19TBnnAuX1VaLiO3XwDvHnjO173PBZuPb+MceGljcPbNOs5QLoh5OSw55 +a+Aa+etTqiVciM6LEn3mT1ztaKBQyIXTKm3iXjEa+NX/1r/JXC64UoHSNUUa ++HtfoabHJS7oKD1ihE1rYJHXQvYGX3L+lVmrN3pBEz/2H0gX1OCC4bKKeK0m +LRQdbDF0C8oFYd4bPk6h2niyeDrlEnk/WR4ib2zH0sGOkqYE6bFsWKBsX7rt +pQ5umzFcnC+eDZoc6dsnHHQxWtVzIdcgC451iFZa8qxAjUOzyWJrM2FoNMbG +4vIKfLrgx9cf22+AuVZVqoXGSrwuVfG3cf91eDxq9PfPu5VYUL1IoMMtAzzV +ddvq3fSQ8WzD5nd9V4Ez6Npot0AfdcN/n/vYnQ7rmVKbhW7o406tDS6xC9OA +HXzuZMWqVdiRWTdisC4FVN1WP1FuW4Vm/AHShY6XwO3xgfCSowaY/2ZxJV/B +RXiS0eg6IrEajUUvJAj1JsJv7uwfrXurMXlu8yHABHBRvrkgdbMhGluMiH+u +iocR1UT94mFDbH59R8c2IhbuZ/39OnbWCHnDndWb2qNht6kSGi03RqrrQuwS +9yiQPRL5QPOpMcbXhlz88T0CJBYeLtpsy8HwHZb3ox+GQ5bJqYBhOw6ONQ0v +0SsOB91TsSaJ9hzsHur1+coNhy3DhR9anDjodKrIxiQ5HCKaxiZdDnMwrzkm +QO1oOEzcCFoXEMLBSOFni89T4dBmlPg+5yYHzxwxM01MDoMDvlnpFgUcXPAj +bMWV82EwXnDXrb+QgxofdRh54WEgymj5o1PKweP7I6ffHAuDjQJyyx495aDB +gvQ0faswKG/McX3/gYOGe1brpwiEgaXwfQ2/Fg4WCLmMNsyGQot59bhUOwet +PbzzFv8Jhd9lP8/u/cLBIM8XfAndoaBxXTu/t4+Dv6w1HcsqQqG8ba1fzAAH +HV5s7lxUFgqW4ttBa5iDS7Pc9jgWhYJ7pG+9zxgHBbvn6IhmkP97GpG6dIKD +HdNVMV6XQiF06pJL2RQHn/bxd9TGhoLISlrd4R8H5ZbvZa6ICIWrR8rGZmc5 +WM713JdyKhT+B5azxOQ= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -10306,116 +10720,117 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK -FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE -hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux -IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B -8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K -ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS -jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 -CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs -KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC -owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 -9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV -MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 -h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC -Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp -9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ -oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt -GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN -62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw -rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 -M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS -dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ -Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ -bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys -CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp -YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF -Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc -mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn -Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM -PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u -4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K -R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l -F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y -6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q -FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF -0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 -dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG -jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU -s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq -KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g -aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx -0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ -bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 -emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY -+Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix -Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK -ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv -HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt -pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR -URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp -/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K -MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh -VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi -Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i -bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys -Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf -kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 -mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ -emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X -PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC -5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr -ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk -8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr -qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO -6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY -ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 -w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m -Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb -eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo -/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm -N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx -4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq -QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya -LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF -jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm -m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 -d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX -WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D -0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD -uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk -u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT -V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 -ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT -PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 -ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q -bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA -OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC -oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 -YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL -/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= +1:eJwV13k8VN8bB3CFUiHZsiSMMXfsS5EwPU8R0UKLpCh7i0KFwreskQghZamU +ba4iJJW0UUoqS7KWihSyJkLid35/zev9mjlz77nnPJ/nXEVnr21uc3l4eBbM +4eH5/+d4R/VzZnTWmp/V7h6TjrprGq9K+a9tCYXCVzPCve0igBK1zlItCSBp +M3dbZbsC+FnnNfO23IBPF3/y5bdrw5LBpQmTzcVQXiPGTGpH+Fy+xet3cwU0 +2sjVWLdbgxmz79NIcwOoTIec2d7mCJPNqy4ON3eC4LeJRfubvKHSJDer/sYo +fBg8mHvGPwSWfX7w3Vn9H5TIlyO8iQLxw/vy5pvwYsmMU8B4Zzwk6Jg93GIj +gEd9TpWni12E1svaT0dEhHDRkp2FzxovQ3RWUO1c6SXobGdcon4nHZYmdUUl +XhHDy0oS77czMiByh8WahnEJbDFaWL/u9nU4vvr6vupQKZR5O2ptYpQJpkNT +AZ5dMvjyj/VE/LksCDHe6iRjIIe8P5jGgUXZYFiQUnL6iTwaud1pt3qdA6bN +7/4NvpLHeUdloqXf5cAWHj7zfQ3yeF9Ha+xLfQ64bPNshW55rLWvnTjQmgNm +gYpBwfwKGDvz74FDTw54y49nrlVTwMg5ffxt/LnwfP+1gUo/BVTwZX9fBrlw +eGIk+JWQIi7tPCxSlZcLhkfdJb+LKmL1yJ+4dQW5INDXdpNXShFFemQdyoty +Ibu9smkNQxG3RvR/zr2fCx2PL6rf1VfEy1kzZ/ZW5YLVmdUt1/cpIj0+bW75 +NRd0RUO0AosU8dMq+72yElzgiR57frlUEUu6QwPWSnHhHe+h3aUPFXE2k9Xl +KssFj7FtZ0ZeKOKkeldKpiIXslqY7fvbFFFbinOFR5MLktdeRezgZeCG4hP/ +DMy4MKkm0qFhw8BAm77NmT5cGL8iE7JiNwOL/SU+u53gwu/FyszV+xiY0Xqj +STmAC4Ojqw+ZHmSguq/c5JUgLnQ+dBnffYqBh3cbCXmd48LrjfeEz2Yz0Ijn +Y3DSNS6keuyFzjEGJqdSSgMvuXDp04HOH1MM7OIty7J/zYUkq+NnBmYZOOG9 +Na76DRdiV5ytmVighC4b52Sk1XMh9G+R7eLlSqilm1as0E7mF83vbWymhF/v +Nt8rGOCC8c1bGcnJStiVaKDbLkJDu8LNa+vTlHDcS/nue1EaApLpq7+vKeH0 +2zV/q8VpuBeSk76NVkJgBtfflqJBd1fGZeFyJdxeKZznqECDCn9SfMRXJaTm +j6naatEguS8w2E+diS9CXP0vb6ThbqN/kLIOEyPrtuRZbKZhh+XJ0416TExO +tsic2EJDgp7vf7pArMAYtNpGg5Cg18nBrUyserSxv2sXDXwPnL3dTzBRcKq3 ++LobDSOilo47K5gor1BR7nuKhpbDjLpDL5m4crdLx8xpGp5WTUHQGyYOybM9 +zgTTEB9wU57bxMS1kjovz4XRoN0p+Hmyj4kMp954vygaPItqHa6IKaOHaBLd +kETDzkXct0VSyrgl8/5V3WQa1rgFc6rklLHnWRhv/CVyf9I6ckOUMho+M5Yz +SaXhVnDCRzRWxuKVqSnnrtHQZ2Wz55urMj7vt5u6StPQQGvUTBxURomqdcJN +eTSU8c4jC6+Mcw4/Sl54i4aoe6Uy+v7K6DdWOO9wAQ1seam2yPPKGC6f7SFy +h4b9g2271EqVcVtZQeLnhzR8i3HceWw+CyuDjJ6m1JD771NnaAuycPrx/Grv +NzT8MZ8cGBBhoU1tV+b6tzQs5E04c1CGhYJCs3U978j8/StLHDVY+KXQaIlE +Aw2n3FhiVttZGDsn2pO/hYZ5lb86BHex0O7WZPkD4niFJ3mv7Vno0LW/06OV +hqx223Vm7iysf332TnUbDa+3Rh3l+LNQ52/jCY9PZP3X9NeqXWOh83nTevNO +GjLS7qf1ZrLQPN2ztJVYZTJ8fy6XhVo1tScOdtFgXCI3yyhmYbpYXHzoNxpc +VK00ZV6w8OceX6W07zT0R8pONVezcP7516OyP2jw6/7x4uI7Ft7mF8pMJT6X +EeywpIWFu+aVXbvQQ0OhZHGMwE8Wjn12lXXvo8HQ5/SuqiEWLud73/+BuLLe +khn+m4U87WPXTH7S0BTT9XD2HwuDD1bckuqnYXquxM9xEQoPObgcogdoiHD8 +WloiQeHgeaftAoM0LH6cH3pMhkK5rn4FN2KGv5nMoBKFanrLPKSGaLAYOmHR +rU+hQAFfldswDct0lkcIGFMY2DFvUxnx4LHnFWprKdRTl7UXHKEhaVzE+NhG +ClNzdi+jid0N7p28aE2h/pTf21Hi1QEOd+/bUJhxP3Kh8S8aOv7RmrP7KNzM +Paz6grgQrD0YbhTaNa4UnjdKQ1jIeO76QxQecGwNMiVm85soxvhQGHcoU7iM +eMqs1+G2P5lf0RP1EeK3Z+NSG05T6NKb3ab8m4Zjgh/FpKMojEl49iOS2HRL +qLVxLIVRScPmd4mXxrPP70uk8CP34+ovxH3176pDL1P4x4f3scAYDeVivvNy +rlC4Z7yzUZM41kbWpPoGhV6hk6e3ETtdehbUn0uhVdWL8uPEK1v3ly/OpzC9 +qio2gXierPCkbjGFmz4HjhUQt9iX6O28R55fpevIK+KbV3cf8y+n0ODUnLAv +xKe/8NxOf0aud6Qhb4zYmpH780kVGb9x10GBcbI+rpvZXTUUtjHFn0gRj2WP +us6rp1B8b+QtFvGrHynXVZooHC9coatLnKqCHZvaKXTWSLM2Ij7s8V3G+wsZ +b4AC64ghP8Y2sZtCm9hsOzNi0SHdpNI+CoXWbFm/gfibdmtd6xCFlvmPasyJ +S48FCf37TaFx8okBU+KoEmVLhSkKn8znuQnE9uM1ESazFK50a+czINY0OFbp +zsdGK/fYvxrEPAFSPOcWsLFV8mqcIvH7h4+N84XZmNwU90yUOOefq3+dGBvn +2vVemEN8EhaVjkqxkcrWnjNInsfGkKJfksvZ6CbRv7iFeHmlrZahEht32N54 +/IR4mG/Gw4HNxpMebULZxJVmWdxgDTaqZsvORBInn7XsztQlv88biDtAfOD1 +sOLLVWw0O95SaUYsvIWTJrSOjfQbafFpsh++xHU1a5uzkb8nROc98Z36KPEd +m9iY9lF5NJd4l03T+dSdbPTrMXezJFa99N/rR3vYqCLZJilF/K+FMf+rIxsj +LOo8u8j+vGHvFUx5sLHCXVz8OHG/i8DxkiA2Kl5YY+JH9v/gVdNHT8LJ97J7 +T+sSD7UGz6+JItf3rfHvJ/Xzy2oy7WsiG3Xrc+7YEf8x6nsuzGXjpi+i66RJ +PU74sRbL5LMxNGZrbCWp36kiZzvlYjau/yl2zYN4mmofMCon48VMRe6Sep8r +/kbyYB0bf86aoAbJBz4rASefD2xcYhj/5AXJD/5zpjeD2tgYspg7355YgOcR +JH9jo0iVy+8QkjfC/fkHKifYmLrTyOpOLw3Sz+PK5BRVMNi+NvxWNw0yszV8 +KiwVvMA1bFAkXmYoYLVSTQWVZvVGkkg+Li8M7rLUI7ZYmuND8pOZflTwpIUK +RgWo/5X+SvLdZ/vehqMquPPVo7rpdtKvb8dxP/mpIPyNDbAiXtFX86snUAUb +XCZmrpH81nc0jZw9o4L8HztSDEm+G23SK1QnRaBwU4K9s4km592lcyMrVPCg +bRNF1dHQ62zONXqpgrdkvj10q6Uh5vqJLcM1Kih3p8n/Bukv75e3pNp9UEHn +8u2+kqT/OEqnrFDvUUHxOqmTPdU0+AvLutULqaKYf6WUXiXpnxPLX8naqaJa +X7SWTwkNVqusPOscVHFvbNrwSdL/fvkGiZ9xVsWA7To/A4tJHo5+dhz0UEWX +/sHY/wppqBrImHx6WhXXb31w9QDpp587GWruWarYtmGTdX8mqc+3rNjCIVUU +zPoWlX2Bhpkh7ezXv1WRu2EoYlc8yS9Ro/Jvk6o49XgkeEEcDRW7rPqk+NRQ +Ylm4p1sMDce/nTALkVJDwcnj6/gjaWj8+2pm61o1HKz64NwdSMMlVQ+v0QQ1 +PFJfYqjuSkP4Zt8IoctquPt5DyPDmQZv76Ar1BU1XKSaLSfqRMOG0sSaPblq ++EfWb/OwA9l/a8up5w/VMNK2jL5oS8NuO6EvSd/U0D3aayjckqz/2dvW+vrq +yEx4dH5Kk4a8gvzKSUN1DHQP8rHWoMHgw039R6CO3k4BT7PUyPmKwV1maqGO +krYHz21gk/Upz+jZaq+OWcXW4/8p0vB3+ELwkVB1LApouJ0iRkObnU9h1jt1 +nPk19TBnnAuX1VaLiO3XwDvHnjO173PBZuPb+MceGljcPbNOs5QLoh5OSw55 +a+Aa+etTqiVciM6LEn3mT1ztaKBQyIXTKm3iXjEa+NX/1r/JXC64UoHSNUUa ++HtfoabHJS7oKD1ihE1rYJHXQvYGX3L+lVmrN3pBEz/2H0gX1OCC4bKKeK0m +LRQdbDF0C8oFYd4bPk6h2niyeDrlEnk/WR4ib2zH0sGOkqYE6bFsWKBsX7rt +pQ5umzFcnC+eDZoc6dsnHHQxWtVzIdcgC451iFZa8qxAjUOzyWJrM2FoNMbG +4vIKfLrgx9cf22+AuVZVqoXGSrwuVfG3cf91eDxq9PfPu5VYUL1IoMMtAzzV +ddvq3fSQ8WzD5nd9V4Ez6Npot0AfdcN/n/vYnQ7rmVKbhW7o406tDS6xC9OA +HXzuZMWqVdiRWTdisC4FVN1WP1FuW4Vm/AHShY6XwO3xgfCSowaY/2ZxJV/B +RXiS0eg6IrEajUUvJAj1JsJv7uwfrXurMXlu8yHABHBRvrkgdbMhGluMiH+u +iocR1UT94mFDbH59R8c2IhbuZ/39OnbWCHnDndWb2qNht6kSGi03RqrrQuwS +9yiQPRL5QPOpMcbXhlz88T0CJBYeLtpsy8HwHZb3ox+GQ5bJqYBhOw6ONQ0v +0SsOB91TsSaJ9hzsHur1+coNhy3DhR9anDjodKrIxiQ5HCKaxiZdDnMwrzkm +QO1oOEzcCFoXEMLBSOFni89T4dBmlPg+5yYHzxwxM01MDoMDvlnpFgUcXPAj +bMWV82EwXnDXrb+QgxofdRh54WEgymj5o1PKweP7I6ffHAuDjQJyyx495aDB +gvQ0faswKG/McX3/gYOGe1brpwiEgaXwfQ2/Fg4WCLmMNsyGQot59bhUOwet +PbzzFv8Jhd9lP8/u/cLBIM8XfAndoaBxXTu/t4+Dv6w1HcsqQqG8ba1fzAAH +HV5s7lxUFgqW4ttBa5iDS7Pc9jgWhYJ7pG+9zxgHBbvn6IhmkP97GpG6dIKD +HdNVMV6XQiF06pJL2RQHn/bxd9TGhoLISlrd4R8H5ZbvZa6ICIWrR8rGZmc5 +WM713JdyKhT+B5azxOQ= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "PlotRange" -> {{0, 30}, {0., 0.05070710989013714}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -10427,19 +10842,19 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "PlotRange" -> {{0, 30}, {0., 0.05070710989013714}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10453,115 +10868,116 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK -FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE -hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux -IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B -8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K -ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS -jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 -CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs -KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC -owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 -9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV -MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 -h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC -Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp -9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ -oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt -GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN -62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw -rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 -M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS -dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ -Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ -bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys -CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp -YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF -Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc -mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn -Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM -PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u -4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K -R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l -F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y -6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q -FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF -0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 -dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG -jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU -s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq -KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g -aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx -0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ -bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 -emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY -+Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix -Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK -ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv -HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt -pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR -URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp -/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K -MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh -VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi -Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i -bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys -Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf -kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 -mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ -emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X -PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC -5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr -ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk -8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr -qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO -6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY -ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 -w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m -Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb -eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo -/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm -N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx -4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq -QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya -LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF -jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm -m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 -d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX -WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D -0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD -uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk -u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT -V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 -ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT -PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 -ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q -bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA -OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC -oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 -YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL -/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= +1:eJwV13k8VN8bB3CFUiHZsiSMMXfsS5EwPU8R0UKLpCh7i0KFwreskQghZamU +ba4iJJW0UUoqS7KWihSyJkLid35/zev9mjlz77nnPJ/nXEVnr21uc3l4eBbM +4eH5/+d4R/VzZnTWmp/V7h6TjrprGq9K+a9tCYXCVzPCve0igBK1zlItCSBp +M3dbZbsC+FnnNfO23IBPF3/y5bdrw5LBpQmTzcVQXiPGTGpH+Fy+xet3cwU0 +2sjVWLdbgxmz79NIcwOoTIec2d7mCJPNqy4ON3eC4LeJRfubvKHSJDer/sYo +fBg8mHvGPwSWfX7w3Vn9H5TIlyO8iQLxw/vy5pvwYsmMU8B4Zzwk6Jg93GIj +gEd9TpWni12E1svaT0dEhHDRkp2FzxovQ3RWUO1c6SXobGdcon4nHZYmdUUl +XhHDy0oS77czMiByh8WahnEJbDFaWL/u9nU4vvr6vupQKZR5O2ptYpQJpkNT +AZ5dMvjyj/VE/LksCDHe6iRjIIe8P5jGgUXZYFiQUnL6iTwaud1pt3qdA6bN +7/4NvpLHeUdloqXf5cAWHj7zfQ3yeF9Ha+xLfQ64bPNshW55rLWvnTjQmgNm +gYpBwfwKGDvz74FDTw54y49nrlVTwMg5ffxt/LnwfP+1gUo/BVTwZX9fBrlw +eGIk+JWQIi7tPCxSlZcLhkfdJb+LKmL1yJ+4dQW5INDXdpNXShFFemQdyoty +Ibu9smkNQxG3RvR/zr2fCx2PL6rf1VfEy1kzZ/ZW5YLVmdUt1/cpIj0+bW75 +NRd0RUO0AosU8dMq+72yElzgiR57frlUEUu6QwPWSnHhHe+h3aUPFXE2k9Xl +KssFj7FtZ0ZeKOKkeldKpiIXslqY7fvbFFFbinOFR5MLktdeRezgZeCG4hP/ +DMy4MKkm0qFhw8BAm77NmT5cGL8iE7JiNwOL/SU+u53gwu/FyszV+xiY0Xqj +STmAC4Ojqw+ZHmSguq/c5JUgLnQ+dBnffYqBh3cbCXmd48LrjfeEz2Yz0Ijn +Y3DSNS6keuyFzjEGJqdSSgMvuXDp04HOH1MM7OIty7J/zYUkq+NnBmYZOOG9 +Na76DRdiV5ytmVighC4b52Sk1XMh9G+R7eLlSqilm1as0E7mF83vbWymhF/v +Nt8rGOCC8c1bGcnJStiVaKDbLkJDu8LNa+vTlHDcS/nue1EaApLpq7+vKeH0 +2zV/q8VpuBeSk76NVkJgBtfflqJBd1fGZeFyJdxeKZznqECDCn9SfMRXJaTm +j6naatEguS8w2E+diS9CXP0vb6ThbqN/kLIOEyPrtuRZbKZhh+XJ0416TExO +tsic2EJDgp7vf7pArMAYtNpGg5Cg18nBrUyserSxv2sXDXwPnL3dTzBRcKq3 ++LobDSOilo47K5gor1BR7nuKhpbDjLpDL5m4crdLx8xpGp5WTUHQGyYOybM9 +zgTTEB9wU57bxMS1kjovz4XRoN0p+Hmyj4kMp954vygaPItqHa6IKaOHaBLd +kETDzkXct0VSyrgl8/5V3WQa1rgFc6rklLHnWRhv/CVyf9I6ckOUMho+M5Yz +SaXhVnDCRzRWxuKVqSnnrtHQZ2Wz55urMj7vt5u6StPQQGvUTBxURomqdcJN +eTSU8c4jC6+Mcw4/Sl54i4aoe6Uy+v7K6DdWOO9wAQ1seam2yPPKGC6f7SFy +h4b9g2271EqVcVtZQeLnhzR8i3HceWw+CyuDjJ6m1JD771NnaAuycPrx/Grv +NzT8MZ8cGBBhoU1tV+b6tzQs5E04c1CGhYJCs3U978j8/StLHDVY+KXQaIlE +Aw2n3FhiVttZGDsn2pO/hYZ5lb86BHex0O7WZPkD4niFJ3mv7Vno0LW/06OV +hqx223Vm7iysf332TnUbDa+3Rh3l+LNQ52/jCY9PZP3X9NeqXWOh83nTevNO +GjLS7qf1ZrLQPN2ztJVYZTJ8fy6XhVo1tScOdtFgXCI3yyhmYbpYXHzoNxpc +VK00ZV6w8OceX6W07zT0R8pONVezcP7516OyP2jw6/7x4uI7Ft7mF8pMJT6X +EeywpIWFu+aVXbvQQ0OhZHGMwE8Wjn12lXXvo8HQ5/SuqiEWLud73/+BuLLe +khn+m4U87WPXTH7S0BTT9XD2HwuDD1bckuqnYXquxM9xEQoPObgcogdoiHD8 +WloiQeHgeaftAoM0LH6cH3pMhkK5rn4FN2KGv5nMoBKFanrLPKSGaLAYOmHR +rU+hQAFfldswDct0lkcIGFMY2DFvUxnx4LHnFWprKdRTl7UXHKEhaVzE+NhG +ClNzdi+jid0N7p28aE2h/pTf21Hi1QEOd+/bUJhxP3Kh8S8aOv7RmrP7KNzM +Paz6grgQrD0YbhTaNa4UnjdKQ1jIeO76QxQecGwNMiVm85soxvhQGHcoU7iM +eMqs1+G2P5lf0RP1EeK3Z+NSG05T6NKb3ab8m4Zjgh/FpKMojEl49iOS2HRL +qLVxLIVRScPmd4mXxrPP70uk8CP34+ovxH3176pDL1P4x4f3scAYDeVivvNy +rlC4Z7yzUZM41kbWpPoGhV6hk6e3ETtdehbUn0uhVdWL8uPEK1v3ly/OpzC9 +qio2gXierPCkbjGFmz4HjhUQt9iX6O28R55fpevIK+KbV3cf8y+n0ODUnLAv +xKe/8NxOf0aud6Qhb4zYmpH780kVGb9x10GBcbI+rpvZXTUUtjHFn0gRj2WP +us6rp1B8b+QtFvGrHynXVZooHC9coatLnKqCHZvaKXTWSLM2Ij7s8V3G+wsZ +b4AC64ghP8Y2sZtCm9hsOzNi0SHdpNI+CoXWbFm/gfibdmtd6xCFlvmPasyJ +S48FCf37TaFx8okBU+KoEmVLhSkKn8znuQnE9uM1ESazFK50a+czINY0OFbp +zsdGK/fYvxrEPAFSPOcWsLFV8mqcIvH7h4+N84XZmNwU90yUOOefq3+dGBvn +2vVemEN8EhaVjkqxkcrWnjNInsfGkKJfksvZ6CbRv7iFeHmlrZahEht32N54 +/IR4mG/Gw4HNxpMebULZxJVmWdxgDTaqZsvORBInn7XsztQlv88biDtAfOD1 +sOLLVWw0O95SaUYsvIWTJrSOjfQbafFpsh++xHU1a5uzkb8nROc98Z36KPEd +m9iY9lF5NJd4l03T+dSdbPTrMXezJFa99N/rR3vYqCLZJilF/K+FMf+rIxsj +LOo8u8j+vGHvFUx5sLHCXVz8OHG/i8DxkiA2Kl5YY+JH9v/gVdNHT8LJ97J7 +T+sSD7UGz6+JItf3rfHvJ/Xzy2oy7WsiG3Xrc+7YEf8x6nsuzGXjpi+i66RJ +PU74sRbL5LMxNGZrbCWp36kiZzvlYjau/yl2zYN4mmofMCon48VMRe6Sep8r +/kbyYB0bf86aoAbJBz4rASefD2xcYhj/5AXJD/5zpjeD2tgYspg7355YgOcR +JH9jo0iVy+8QkjfC/fkHKifYmLrTyOpOLw3Sz+PK5BRVMNi+NvxWNw0yszV8 +KiwVvMA1bFAkXmYoYLVSTQWVZvVGkkg+Li8M7rLUI7ZYmuND8pOZflTwpIUK +RgWo/5X+SvLdZ/vehqMquPPVo7rpdtKvb8dxP/mpIPyNDbAiXtFX86snUAUb +XCZmrpH81nc0jZw9o4L8HztSDEm+G23SK1QnRaBwU4K9s4km592lcyMrVPCg +bRNF1dHQ62zONXqpgrdkvj10q6Uh5vqJLcM1Kih3p8n/Bukv75e3pNp9UEHn +8u2+kqT/OEqnrFDvUUHxOqmTPdU0+AvLutULqaKYf6WUXiXpnxPLX8naqaJa +X7SWTwkNVqusPOscVHFvbNrwSdL/fvkGiZ9xVsWA7To/A4tJHo5+dhz0UEWX +/sHY/wppqBrImHx6WhXXb31w9QDpp587GWruWarYtmGTdX8mqc+3rNjCIVUU +zPoWlX2Bhpkh7ezXv1WRu2EoYlc8yS9Ro/Jvk6o49XgkeEEcDRW7rPqk+NRQ +Ylm4p1sMDce/nTALkVJDwcnj6/gjaWj8+2pm61o1HKz64NwdSMMlVQ+v0QQ1 +PFJfYqjuSkP4Zt8IoctquPt5DyPDmQZv76Ar1BU1XKSaLSfqRMOG0sSaPblq ++EfWb/OwA9l/a8up5w/VMNK2jL5oS8NuO6EvSd/U0D3aayjckqz/2dvW+vrq +yEx4dH5Kk4a8gvzKSUN1DHQP8rHWoMHgw039R6CO3k4BT7PUyPmKwV1maqGO +krYHz21gk/Upz+jZaq+OWcXW4/8p0vB3+ELwkVB1LApouJ0iRkObnU9h1jt1 +nPk19TBnnAuX1VaLiO3XwDvHnjO173PBZuPb+MceGljcPbNOs5QLoh5OSw55 +a+Aa+etTqiVciM6LEn3mT1ztaKBQyIXTKm3iXjEa+NX/1r/JXC64UoHSNUUa ++HtfoabHJS7oKD1ihE1rYJHXQvYGX3L+lVmrN3pBEz/2H0gX1OCC4bKKeK0m +LRQdbDF0C8oFYd4bPk6h2niyeDrlEnk/WR4ib2zH0sGOkqYE6bFsWKBsX7rt +pQ5umzFcnC+eDZoc6dsnHHQxWtVzIdcgC451iFZa8qxAjUOzyWJrM2FoNMbG +4vIKfLrgx9cf22+AuVZVqoXGSrwuVfG3cf91eDxq9PfPu5VYUL1IoMMtAzzV +ddvq3fSQ8WzD5nd9V4Ez6Npot0AfdcN/n/vYnQ7rmVKbhW7o406tDS6xC9OA +HXzuZMWqVdiRWTdisC4FVN1WP1FuW4Vm/AHShY6XwO3xgfCSowaY/2ZxJV/B +RXiS0eg6IrEajUUvJAj1JsJv7uwfrXurMXlu8yHABHBRvrkgdbMhGluMiH+u +iocR1UT94mFDbH59R8c2IhbuZ/39OnbWCHnDndWb2qNht6kSGi03RqrrQuwS +9yiQPRL5QPOpMcbXhlz88T0CJBYeLtpsy8HwHZb3ox+GQ5bJqYBhOw6ONQ0v +0SsOB91TsSaJ9hzsHur1+coNhy3DhR9anDjodKrIxiQ5HCKaxiZdDnMwrzkm +QO1oOEzcCFoXEMLBSOFni89T4dBmlPg+5yYHzxwxM01MDoMDvlnpFgUcXPAj +bMWV82EwXnDXrb+QgxofdRh54WEgymj5o1PKweP7I6ffHAuDjQJyyx495aDB +gvQ0faswKG/McX3/gYOGe1brpwiEgaXwfQ2/Fg4WCLmMNsyGQot59bhUOwet +PbzzFv8Jhd9lP8/u/cLBIM8XfAndoaBxXTu/t4+Dv6w1HcsqQqG8ba1fzAAH +HV5s7lxUFgqW4ttBa5iDS7Pc9jgWhYJ7pG+9zxgHBbvn6IhmkP97GpG6dIKD +HdNVMV6XQiF06pJL2RQHn/bxd9TGhoLISlrd4R8H5ZbvZa6ICIWrR8rGZmc5 +WM713JdyKhT+B5azxOQ= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "PlotRange" -> {{0, 30}, {0., 0.05070710989013714}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10572,6 +10988,7 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -10599,7 +11016,8 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.1261051971575712}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.05070710989013714}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -10607,17 +11025,571 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913414579436264`*^9}, + CellChangeTimes->{3.9913414579436264`*^9, 3.9942527992106447`*^9}, CellLabel-> - "Out[361]=",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] + "Out[119]=",ExpressionUUID->"3b16520f-d1d4-4fe6-9259-a2e664174762"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"e1c8585a-8b57-f841-82e1-\ -8e8787fb2589"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k8VN8bB3CFUiHZsiSMMXfsS5EwPU8R0UKLpCh7i0KFwreskQghZamU +ba4iJJW0UUoqS7KWihSyJkLid35/zev9mjlz77nnPJ/nXEVnr21uc3l4eBbM +4eH5/+d4R/VzZnTWmp/V7h6TjrprGq9K+a9tCYXCVzPCve0igBK1zlItCSBp +M3dbZbsC+FnnNfO23IBPF3/y5bdrw5LBpQmTzcVQXiPGTGpH+Fy+xet3cwU0 +2sjVWLdbgxmz79NIcwOoTIec2d7mCJPNqy4ON3eC4LeJRfubvKHSJDer/sYo +fBg8mHvGPwSWfX7w3Vn9H5TIlyO8iQLxw/vy5pvwYsmMU8B4Zzwk6Jg93GIj +gEd9TpWni12E1svaT0dEhHDRkp2FzxovQ3RWUO1c6SXobGdcon4nHZYmdUUl +XhHDy0oS77czMiByh8WahnEJbDFaWL/u9nU4vvr6vupQKZR5O2ptYpQJpkNT +AZ5dMvjyj/VE/LksCDHe6iRjIIe8P5jGgUXZYFiQUnL6iTwaud1pt3qdA6bN +7/4NvpLHeUdloqXf5cAWHj7zfQ3yeF9Ha+xLfQ64bPNshW55rLWvnTjQmgNm +gYpBwfwKGDvz74FDTw54y49nrlVTwMg5ffxt/LnwfP+1gUo/BVTwZX9fBrlw +eGIk+JWQIi7tPCxSlZcLhkfdJb+LKmL1yJ+4dQW5INDXdpNXShFFemQdyoty +Ibu9smkNQxG3RvR/zr2fCx2PL6rf1VfEy1kzZ/ZW5YLVmdUt1/cpIj0+bW75 +NRd0RUO0AosU8dMq+72yElzgiR57frlUEUu6QwPWSnHhHe+h3aUPFXE2k9Xl +KssFj7FtZ0ZeKOKkeldKpiIXslqY7fvbFFFbinOFR5MLktdeRezgZeCG4hP/ +DMy4MKkm0qFhw8BAm77NmT5cGL8iE7JiNwOL/SU+u53gwu/FyszV+xiY0Xqj +STmAC4Ojqw+ZHmSguq/c5JUgLnQ+dBnffYqBh3cbCXmd48LrjfeEz2Yz0Ijn +Y3DSNS6keuyFzjEGJqdSSgMvuXDp04HOH1MM7OIty7J/zYUkq+NnBmYZOOG9 +Na76DRdiV5ytmVighC4b52Sk1XMh9G+R7eLlSqilm1as0E7mF83vbWymhF/v +Nt8rGOCC8c1bGcnJStiVaKDbLkJDu8LNa+vTlHDcS/nue1EaApLpq7+vKeH0 +2zV/q8VpuBeSk76NVkJgBtfflqJBd1fGZeFyJdxeKZznqECDCn9SfMRXJaTm +j6naatEguS8w2E+diS9CXP0vb6ThbqN/kLIOEyPrtuRZbKZhh+XJ0416TExO +tsic2EJDgp7vf7pArMAYtNpGg5Cg18nBrUyserSxv2sXDXwPnL3dTzBRcKq3 ++LobDSOilo47K5gor1BR7nuKhpbDjLpDL5m4crdLx8xpGp5WTUHQGyYOybM9 +zgTTEB9wU57bxMS1kjovz4XRoN0p+Hmyj4kMp954vygaPItqHa6IKaOHaBLd +kETDzkXct0VSyrgl8/5V3WQa1rgFc6rklLHnWRhv/CVyf9I6ckOUMho+M5Yz +SaXhVnDCRzRWxuKVqSnnrtHQZ2Wz55urMj7vt5u6StPQQGvUTBxURomqdcJN +eTSU8c4jC6+Mcw4/Sl54i4aoe6Uy+v7K6DdWOO9wAQ1seam2yPPKGC6f7SFy +h4b9g2271EqVcVtZQeLnhzR8i3HceWw+CyuDjJ6m1JD771NnaAuycPrx/Grv +NzT8MZ8cGBBhoU1tV+b6tzQs5E04c1CGhYJCs3U978j8/StLHDVY+KXQaIlE +Aw2n3FhiVttZGDsn2pO/hYZ5lb86BHex0O7WZPkD4niFJ3mv7Vno0LW/06OV +hqx223Vm7iysf332TnUbDa+3Rh3l+LNQ52/jCY9PZP3X9NeqXWOh83nTevNO +GjLS7qf1ZrLQPN2ztJVYZTJ8fy6XhVo1tScOdtFgXCI3yyhmYbpYXHzoNxpc +VK00ZV6w8OceX6W07zT0R8pONVezcP7516OyP2jw6/7x4uI7Ft7mF8pMJT6X +EeywpIWFu+aVXbvQQ0OhZHGMwE8Wjn12lXXvo8HQ5/SuqiEWLud73/+BuLLe +khn+m4U87WPXTH7S0BTT9XD2HwuDD1bckuqnYXquxM9xEQoPObgcogdoiHD8 +WloiQeHgeaftAoM0LH6cH3pMhkK5rn4FN2KGv5nMoBKFanrLPKSGaLAYOmHR +rU+hQAFfldswDct0lkcIGFMY2DFvUxnx4LHnFWprKdRTl7UXHKEhaVzE+NhG +ClNzdi+jid0N7p28aE2h/pTf21Hi1QEOd+/bUJhxP3Kh8S8aOv7RmrP7KNzM +Paz6grgQrD0YbhTaNa4UnjdKQ1jIeO76QxQecGwNMiVm85soxvhQGHcoU7iM +eMqs1+G2P5lf0RP1EeK3Z+NSG05T6NKb3ab8m4Zjgh/FpKMojEl49iOS2HRL +qLVxLIVRScPmd4mXxrPP70uk8CP34+ovxH3176pDL1P4x4f3scAYDeVivvNy +rlC4Z7yzUZM41kbWpPoGhV6hk6e3ETtdehbUn0uhVdWL8uPEK1v3ly/OpzC9 +qio2gXierPCkbjGFmz4HjhUQt9iX6O28R55fpevIK+KbV3cf8y+n0ODUnLAv +xKe/8NxOf0aud6Qhb4zYmpH780kVGb9x10GBcbI+rpvZXTUUtjHFn0gRj2WP +us6rp1B8b+QtFvGrHynXVZooHC9coatLnKqCHZvaKXTWSLM2Ij7s8V3G+wsZ +b4AC64ghP8Y2sZtCm9hsOzNi0SHdpNI+CoXWbFm/gfibdmtd6xCFlvmPasyJ +S48FCf37TaFx8okBU+KoEmVLhSkKn8znuQnE9uM1ESazFK50a+czINY0OFbp +zsdGK/fYvxrEPAFSPOcWsLFV8mqcIvH7h4+N84XZmNwU90yUOOefq3+dGBvn +2vVemEN8EhaVjkqxkcrWnjNInsfGkKJfksvZ6CbRv7iFeHmlrZahEht32N54 +/IR4mG/Gw4HNxpMebULZxJVmWdxgDTaqZsvORBInn7XsztQlv88biDtAfOD1 +sOLLVWw0O95SaUYsvIWTJrSOjfQbafFpsh++xHU1a5uzkb8nROc98Z36KPEd +m9iY9lF5NJd4l03T+dSdbPTrMXezJFa99N/rR3vYqCLZJilF/K+FMf+rIxsj +LOo8u8j+vGHvFUx5sLHCXVz8OHG/i8DxkiA2Kl5YY+JH9v/gVdNHT8LJ97J7 +T+sSD7UGz6+JItf3rfHvJ/Xzy2oy7WsiG3Xrc+7YEf8x6nsuzGXjpi+i66RJ +PU74sRbL5LMxNGZrbCWp36kiZzvlYjau/yl2zYN4mmofMCon48VMRe6Sep8r +/kbyYB0bf86aoAbJBz4rASefD2xcYhj/5AXJD/5zpjeD2tgYspg7355YgOcR +JH9jo0iVy+8QkjfC/fkHKifYmLrTyOpOLw3Sz+PK5BRVMNi+NvxWNw0yszV8 +KiwVvMA1bFAkXmYoYLVSTQWVZvVGkkg+Li8M7rLUI7ZYmuND8pOZflTwpIUK +RgWo/5X+SvLdZ/vehqMquPPVo7rpdtKvb8dxP/mpIPyNDbAiXtFX86snUAUb +XCZmrpH81nc0jZw9o4L8HztSDEm+G23SK1QnRaBwU4K9s4km592lcyMrVPCg +bRNF1dHQ62zONXqpgrdkvj10q6Uh5vqJLcM1Kih3p8n/Bukv75e3pNp9UEHn +8u2+kqT/OEqnrFDvUUHxOqmTPdU0+AvLutULqaKYf6WUXiXpnxPLX8naqaJa +X7SWTwkNVqusPOscVHFvbNrwSdL/fvkGiZ9xVsWA7To/A4tJHo5+dhz0UEWX +/sHY/wppqBrImHx6WhXXb31w9QDpp587GWruWarYtmGTdX8mqc+3rNjCIVUU +zPoWlX2Bhpkh7ezXv1WRu2EoYlc8yS9Ro/Jvk6o49XgkeEEcDRW7rPqk+NRQ +Ylm4p1sMDce/nTALkVJDwcnj6/gjaWj8+2pm61o1HKz64NwdSMMlVQ+v0QQ1 +PFJfYqjuSkP4Zt8IoctquPt5DyPDmQZv76Ar1BU1XKSaLSfqRMOG0sSaPblq ++EfWb/OwA9l/a8up5w/VMNK2jL5oS8NuO6EvSd/U0D3aayjckqz/2dvW+vrq +yEx4dH5Kk4a8gvzKSUN1DHQP8rHWoMHgw039R6CO3k4BT7PUyPmKwV1maqGO +krYHz21gk/Upz+jZaq+OWcXW4/8p0vB3+ELwkVB1LApouJ0iRkObnU9h1jt1 +nPk19TBnnAuX1VaLiO3XwDvHnjO173PBZuPb+MceGljcPbNOs5QLoh5OSw55 +a+Aa+etTqiVciM6LEn3mT1ztaKBQyIXTKm3iXjEa+NX/1r/JXC64UoHSNUUa ++HtfoabHJS7oKD1ihE1rYJHXQvYGX3L+lVmrN3pBEz/2H0gX1OCC4bKKeK0m +LRQdbDF0C8oFYd4bPk6h2niyeDrlEnk/WR4ib2zH0sGOkqYE6bFsWKBsX7rt +pQ5umzFcnC+eDZoc6dsnHHQxWtVzIdcgC451iFZa8qxAjUOzyWJrM2FoNMbG +4vIKfLrgx9cf22+AuVZVqoXGSrwuVfG3cf91eDxq9PfPu5VYUL1IoMMtAzzV +ddvq3fSQ8WzD5nd9V4Ez6Npot0AfdcN/n/vYnQ7rmVKbhW7o406tDS6xC9OA +HXzuZMWqVdiRWTdisC4FVN1WP1FuW4Vm/AHShY6XwO3xgfCSowaY/2ZxJV/B +RXiS0eg6IrEajUUvJAj1JsJv7uwfrXurMXlu8yHABHBRvrkgdbMhGluMiH+u +iocR1UT94mFDbH59R8c2IhbuZ/39OnbWCHnDndWb2qNht6kSGi03RqrrQuwS +9yiQPRL5QPOpMcbXhlz88T0CJBYeLtpsy8HwHZb3ox+GQ5bJqYBhOw6ONQ0v +0SsOB91TsSaJ9hzsHur1+coNhy3DhR9anDjodKrIxiQ5HCKaxiZdDnMwrzkm +QO1oOEzcCFoXEMLBSOFni89T4dBmlPg+5yYHzxwxM01MDoMDvlnpFgUcXPAj +bMWV82EwXnDXrb+QgxofdRh54WEgymj5o1PKweP7I6ffHAuDjQJyyx495aDB +gvQ0faswKG/McX3/gYOGe1brpwiEgaXwfQ2/Fg4WCLmMNsyGQot59bhUOwet +PbzzFv8Jhd9lP8/u/cLBIM8XfAndoaBxXTu/t4+Dv6w1HcsqQqG8ba1fzAAH +HV5s7lxUFgqW4ttBa5iDS7Pc9jgWhYJ7pG+9zxgHBbvn6IhmkP97GpG6dIKD +HdNVMV6XQiF06pJL2RQHn/bxd9TGhoLISlrd4R8H5ZbvZa6ICIWrR8rGZmc5 +WM713JdyKhT+B5azxOQ= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VN8bB3CFUiHZsiSMMXfsS5EwPU8R0UKLpCh7i0KFwreskQghZamU +ba4iJJW0UUoqS7KWihSyJkLid35/zev9mjlz77nnPJ/nXEVnr21uc3l4eBbM +4eH5/+d4R/VzZnTWmp/V7h6TjrprGq9K+a9tCYXCVzPCve0igBK1zlItCSBp +M3dbZbsC+FnnNfO23IBPF3/y5bdrw5LBpQmTzcVQXiPGTGpH+Fy+xet3cwU0 +2sjVWLdbgxmz79NIcwOoTIec2d7mCJPNqy4ON3eC4LeJRfubvKHSJDer/sYo +fBg8mHvGPwSWfX7w3Vn9H5TIlyO8iQLxw/vy5pvwYsmMU8B4Zzwk6Jg93GIj +gEd9TpWni12E1svaT0dEhHDRkp2FzxovQ3RWUO1c6SXobGdcon4nHZYmdUUl +XhHDy0oS77czMiByh8WahnEJbDFaWL/u9nU4vvr6vupQKZR5O2ptYpQJpkNT +AZ5dMvjyj/VE/LksCDHe6iRjIIe8P5jGgUXZYFiQUnL6iTwaud1pt3qdA6bN +7/4NvpLHeUdloqXf5cAWHj7zfQ3yeF9Ha+xLfQ64bPNshW55rLWvnTjQmgNm +gYpBwfwKGDvz74FDTw54y49nrlVTwMg5ffxt/LnwfP+1gUo/BVTwZX9fBrlw +eGIk+JWQIi7tPCxSlZcLhkfdJb+LKmL1yJ+4dQW5INDXdpNXShFFemQdyoty +Ibu9smkNQxG3RvR/zr2fCx2PL6rf1VfEy1kzZ/ZW5YLVmdUt1/cpIj0+bW75 +NRd0RUO0AosU8dMq+72yElzgiR57frlUEUu6QwPWSnHhHe+h3aUPFXE2k9Xl +KssFj7FtZ0ZeKOKkeldKpiIXslqY7fvbFFFbinOFR5MLktdeRezgZeCG4hP/ +DMy4MKkm0qFhw8BAm77NmT5cGL8iE7JiNwOL/SU+u53gwu/FyszV+xiY0Xqj +STmAC4Ojqw+ZHmSguq/c5JUgLnQ+dBnffYqBh3cbCXmd48LrjfeEz2Yz0Ijn +Y3DSNS6keuyFzjEGJqdSSgMvuXDp04HOH1MM7OIty7J/zYUkq+NnBmYZOOG9 +Na76DRdiV5ytmVighC4b52Sk1XMh9G+R7eLlSqilm1as0E7mF83vbWymhF/v +Nt8rGOCC8c1bGcnJStiVaKDbLkJDu8LNa+vTlHDcS/nue1EaApLpq7+vKeH0 +2zV/q8VpuBeSk76NVkJgBtfflqJBd1fGZeFyJdxeKZznqECDCn9SfMRXJaTm +j6naatEguS8w2E+diS9CXP0vb6ThbqN/kLIOEyPrtuRZbKZhh+XJ0416TExO +tsic2EJDgp7vf7pArMAYtNpGg5Cg18nBrUyserSxv2sXDXwPnL3dTzBRcKq3 ++LobDSOilo47K5gor1BR7nuKhpbDjLpDL5m4crdLx8xpGp5WTUHQGyYOybM9 +zgTTEB9wU57bxMS1kjovz4XRoN0p+Hmyj4kMp954vygaPItqHa6IKaOHaBLd +kETDzkXct0VSyrgl8/5V3WQa1rgFc6rklLHnWRhv/CVyf9I6ckOUMho+M5Yz +SaXhVnDCRzRWxuKVqSnnrtHQZ2Wz55urMj7vt5u6StPQQGvUTBxURomqdcJN +eTSU8c4jC6+Mcw4/Sl54i4aoe6Uy+v7K6DdWOO9wAQ1seam2yPPKGC6f7SFy +h4b9g2271EqVcVtZQeLnhzR8i3HceWw+CyuDjJ6m1JD771NnaAuycPrx/Grv +NzT8MZ8cGBBhoU1tV+b6tzQs5E04c1CGhYJCs3U978j8/StLHDVY+KXQaIlE +Aw2n3FhiVttZGDsn2pO/hYZ5lb86BHex0O7WZPkD4niFJ3mv7Vno0LW/06OV +hqx223Vm7iysf332TnUbDa+3Rh3l+LNQ52/jCY9PZP3X9NeqXWOh83nTevNO +GjLS7qf1ZrLQPN2ztJVYZTJ8fy6XhVo1tScOdtFgXCI3yyhmYbpYXHzoNxpc +VK00ZV6w8OceX6W07zT0R8pONVezcP7516OyP2jw6/7x4uI7Ft7mF8pMJT6X +EeywpIWFu+aVXbvQQ0OhZHGMwE8Wjn12lXXvo8HQ5/SuqiEWLud73/+BuLLe +khn+m4U87WPXTH7S0BTT9XD2HwuDD1bckuqnYXquxM9xEQoPObgcogdoiHD8 +WloiQeHgeaftAoM0LH6cH3pMhkK5rn4FN2KGv5nMoBKFanrLPKSGaLAYOmHR +rU+hQAFfldswDct0lkcIGFMY2DFvUxnx4LHnFWprKdRTl7UXHKEhaVzE+NhG +ClNzdi+jid0N7p28aE2h/pTf21Hi1QEOd+/bUJhxP3Kh8S8aOv7RmrP7KNzM +Paz6grgQrD0YbhTaNa4UnjdKQ1jIeO76QxQecGwNMiVm85soxvhQGHcoU7iM +eMqs1+G2P5lf0RP1EeK3Z+NSG05T6NKb3ab8m4Zjgh/FpKMojEl49iOS2HRL +qLVxLIVRScPmd4mXxrPP70uk8CP34+ovxH3176pDL1P4x4f3scAYDeVivvNy +rlC4Z7yzUZM41kbWpPoGhV6hk6e3ETtdehbUn0uhVdWL8uPEK1v3ly/OpzC9 +qio2gXierPCkbjGFmz4HjhUQt9iX6O28R55fpevIK+KbV3cf8y+n0ODUnLAv +xKe/8NxOf0aud6Qhb4zYmpH780kVGb9x10GBcbI+rpvZXTUUtjHFn0gRj2WP +us6rp1B8b+QtFvGrHynXVZooHC9coatLnKqCHZvaKXTWSLM2Ij7s8V3G+wsZ +b4AC64ghP8Y2sZtCm9hsOzNi0SHdpNI+CoXWbFm/gfibdmtd6xCFlvmPasyJ +S48FCf37TaFx8okBU+KoEmVLhSkKn8znuQnE9uM1ESazFK50a+czINY0OFbp +zsdGK/fYvxrEPAFSPOcWsLFV8mqcIvH7h4+N84XZmNwU90yUOOefq3+dGBvn +2vVemEN8EhaVjkqxkcrWnjNInsfGkKJfksvZ6CbRv7iFeHmlrZahEht32N54 +/IR4mG/Gw4HNxpMebULZxJVmWdxgDTaqZsvORBInn7XsztQlv88biDtAfOD1 +sOLLVWw0O95SaUYsvIWTJrSOjfQbafFpsh++xHU1a5uzkb8nROc98Z36KPEd +m9iY9lF5NJd4l03T+dSdbPTrMXezJFa99N/rR3vYqCLZJilF/K+FMf+rIxsj +LOo8u8j+vGHvFUx5sLHCXVz8OHG/i8DxkiA2Kl5YY+JH9v/gVdNHT8LJ97J7 +T+sSD7UGz6+JItf3rfHvJ/Xzy2oy7WsiG3Xrc+7YEf8x6nsuzGXjpi+i66RJ +PU74sRbL5LMxNGZrbCWp36kiZzvlYjau/yl2zYN4mmofMCon48VMRe6Sep8r +/kbyYB0bf86aoAbJBz4rASefD2xcYhj/5AXJD/5zpjeD2tgYspg7355YgOcR +JH9jo0iVy+8QkjfC/fkHKifYmLrTyOpOLw3Sz+PK5BRVMNi+NvxWNw0yszV8 +KiwVvMA1bFAkXmYoYLVSTQWVZvVGkkg+Li8M7rLUI7ZYmuND8pOZflTwpIUK +RgWo/5X+SvLdZ/vehqMquPPVo7rpdtKvb8dxP/mpIPyNDbAiXtFX86snUAUb +XCZmrpH81nc0jZw9o4L8HztSDEm+G23SK1QnRaBwU4K9s4km592lcyMrVPCg +bRNF1dHQ62zONXqpgrdkvj10q6Uh5vqJLcM1Kih3p8n/Bukv75e3pNp9UEHn +8u2+kqT/OEqnrFDvUUHxOqmTPdU0+AvLutULqaKYf6WUXiXpnxPLX8naqaJa +X7SWTwkNVqusPOscVHFvbNrwSdL/fvkGiZ9xVsWA7To/A4tJHo5+dhz0UEWX +/sHY/wppqBrImHx6WhXXb31w9QDpp587GWruWarYtmGTdX8mqc+3rNjCIVUU +zPoWlX2Bhpkh7ezXv1WRu2EoYlc8yS9Ro/Jvk6o49XgkeEEcDRW7rPqk+NRQ +Ylm4p1sMDce/nTALkVJDwcnj6/gjaWj8+2pm61o1HKz64NwdSMMlVQ+v0QQ1 +PFJfYqjuSkP4Zt8IoctquPt5DyPDmQZv76Ar1BU1XKSaLSfqRMOG0sSaPblq ++EfWb/OwA9l/a8up5w/VMNK2jL5oS8NuO6EvSd/U0D3aayjckqz/2dvW+vrq +yEx4dH5Kk4a8gvzKSUN1DHQP8rHWoMHgw039R6CO3k4BT7PUyPmKwV1maqGO +krYHz21gk/Upz+jZaq+OWcXW4/8p0vB3+ELwkVB1LApouJ0iRkObnU9h1jt1 +nPk19TBnnAuX1VaLiO3XwDvHnjO173PBZuPb+MceGljcPbNOs5QLoh5OSw55 +a+Aa+etTqiVciM6LEn3mT1ztaKBQyIXTKm3iXjEa+NX/1r/JXC64UoHSNUUa ++HtfoabHJS7oKD1ihE1rYJHXQvYGX3L+lVmrN3pBEz/2H0gX1OCC4bKKeK0m +LRQdbDF0C8oFYd4bPk6h2niyeDrlEnk/WR4ib2zH0sGOkqYE6bFsWKBsX7rt +pQ5umzFcnC+eDZoc6dsnHHQxWtVzIdcgC451iFZa8qxAjUOzyWJrM2FoNMbG +4vIKfLrgx9cf22+AuVZVqoXGSrwuVfG3cf91eDxq9PfPu5VYUL1IoMMtAzzV +ddvq3fSQ8WzD5nd9V4Ez6Npot0AfdcN/n/vYnQ7rmVKbhW7o406tDS6xC9OA +HXzuZMWqVdiRWTdisC4FVN1WP1FuW4Vm/AHShY6XwO3xgfCSowaY/2ZxJV/B +RXiS0eg6IrEajUUvJAj1JsJv7uwfrXurMXlu8yHABHBRvrkgdbMhGluMiH+u +iocR1UT94mFDbH59R8c2IhbuZ/39OnbWCHnDndWb2qNht6kSGi03RqrrQuwS +9yiQPRL5QPOpMcbXhlz88T0CJBYeLtpsy8HwHZb3ox+GQ5bJqYBhOw6ONQ0v +0SsOB91TsSaJ9hzsHur1+coNhy3DhR9anDjodKrIxiQ5HCKaxiZdDnMwrzkm +QO1oOEzcCFoXEMLBSOFni89T4dBmlPg+5yYHzxwxM01MDoMDvlnpFgUcXPAj +bMWV82EwXnDXrb+QgxofdRh54WEgymj5o1PKweP7I6ffHAuDjQJyyx495aDB +gvQ0faswKG/McX3/gYOGe1brpwiEgaXwfQ2/Fg4WCLmMNsyGQot59bhUOwet +PbzzFv8Jhd9lP8/u/cLBIM8XfAndoaBxXTu/t4+Dv6w1HcsqQqG8ba1fzAAH +HV5s7lxUFgqW4ttBa5iDS7Pc9jgWhYJ7pG+9zxgHBbvn6IhmkP97GpG6dIKD +HdNVMV6XQiF06pJL2RQHn/bxd9TGhoLISlrd4R8H5ZbvZa6ICIWrR8rGZmc5 +WM713JdyKhT+B5azxOQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05070710989013714}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05070710989013714}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VN8bB3CFUiHZsiSMMXfsS5EwPU8R0UKLpCh7i0KFwreskQghZamU +ba4iJJW0UUoqS7KWihSyJkLid35/zev9mjlz77nnPJ/nXEVnr21uc3l4eBbM +4eH5/+d4R/VzZnTWmp/V7h6TjrprGq9K+a9tCYXCVzPCve0igBK1zlItCSBp +M3dbZbsC+FnnNfO23IBPF3/y5bdrw5LBpQmTzcVQXiPGTGpH+Fy+xet3cwU0 +2sjVWLdbgxmz79NIcwOoTIec2d7mCJPNqy4ON3eC4LeJRfubvKHSJDer/sYo +fBg8mHvGPwSWfX7w3Vn9H5TIlyO8iQLxw/vy5pvwYsmMU8B4Zzwk6Jg93GIj +gEd9TpWni12E1svaT0dEhHDRkp2FzxovQ3RWUO1c6SXobGdcon4nHZYmdUUl +XhHDy0oS77czMiByh8WahnEJbDFaWL/u9nU4vvr6vupQKZR5O2ptYpQJpkNT +AZ5dMvjyj/VE/LksCDHe6iRjIIe8P5jGgUXZYFiQUnL6iTwaud1pt3qdA6bN +7/4NvpLHeUdloqXf5cAWHj7zfQ3yeF9Ha+xLfQ64bPNshW55rLWvnTjQmgNm +gYpBwfwKGDvz74FDTw54y49nrlVTwMg5ffxt/LnwfP+1gUo/BVTwZX9fBrlw +eGIk+JWQIi7tPCxSlZcLhkfdJb+LKmL1yJ+4dQW5INDXdpNXShFFemQdyoty +Ibu9smkNQxG3RvR/zr2fCx2PL6rf1VfEy1kzZ/ZW5YLVmdUt1/cpIj0+bW75 +NRd0RUO0AosU8dMq+72yElzgiR57frlUEUu6QwPWSnHhHe+h3aUPFXE2k9Xl +KssFj7FtZ0ZeKOKkeldKpiIXslqY7fvbFFFbinOFR5MLktdeRezgZeCG4hP/ +DMy4MKkm0qFhw8BAm77NmT5cGL8iE7JiNwOL/SU+u53gwu/FyszV+xiY0Xqj +STmAC4Ojqw+ZHmSguq/c5JUgLnQ+dBnffYqBh3cbCXmd48LrjfeEz2Yz0Ijn +Y3DSNS6keuyFzjEGJqdSSgMvuXDp04HOH1MM7OIty7J/zYUkq+NnBmYZOOG9 +Na76DRdiV5ytmVighC4b52Sk1XMh9G+R7eLlSqilm1as0E7mF83vbWymhF/v +Nt8rGOCC8c1bGcnJStiVaKDbLkJDu8LNa+vTlHDcS/nue1EaApLpq7+vKeH0 +2zV/q8VpuBeSk76NVkJgBtfflqJBd1fGZeFyJdxeKZznqECDCn9SfMRXJaTm +j6naatEguS8w2E+diS9CXP0vb6ThbqN/kLIOEyPrtuRZbKZhh+XJ0416TExO +tsic2EJDgp7vf7pArMAYtNpGg5Cg18nBrUyserSxv2sXDXwPnL3dTzBRcKq3 ++LobDSOilo47K5gor1BR7nuKhpbDjLpDL5m4crdLx8xpGp5WTUHQGyYOybM9 +zgTTEB9wU57bxMS1kjovz4XRoN0p+Hmyj4kMp954vygaPItqHa6IKaOHaBLd +kETDzkXct0VSyrgl8/5V3WQa1rgFc6rklLHnWRhv/CVyf9I6ckOUMho+M5Yz +SaXhVnDCRzRWxuKVqSnnrtHQZ2Wz55urMj7vt5u6StPQQGvUTBxURomqdcJN +eTSU8c4jC6+Mcw4/Sl54i4aoe6Uy+v7K6DdWOO9wAQ1seam2yPPKGC6f7SFy +h4b9g2271EqVcVtZQeLnhzR8i3HceWw+CyuDjJ6m1JD771NnaAuycPrx/Grv +NzT8MZ8cGBBhoU1tV+b6tzQs5E04c1CGhYJCs3U978j8/StLHDVY+KXQaIlE +Aw2n3FhiVttZGDsn2pO/hYZ5lb86BHex0O7WZPkD4niFJ3mv7Vno0LW/06OV +hqx223Vm7iysf332TnUbDa+3Rh3l+LNQ52/jCY9PZP3X9NeqXWOh83nTevNO +GjLS7qf1ZrLQPN2ztJVYZTJ8fy6XhVo1tScOdtFgXCI3yyhmYbpYXHzoNxpc +VK00ZV6w8OceX6W07zT0R8pONVezcP7516OyP2jw6/7x4uI7Ft7mF8pMJT6X +EeywpIWFu+aVXbvQQ0OhZHGMwE8Wjn12lXXvo8HQ5/SuqiEWLud73/+BuLLe +khn+m4U87WPXTH7S0BTT9XD2HwuDD1bckuqnYXquxM9xEQoPObgcogdoiHD8 +WloiQeHgeaftAoM0LH6cH3pMhkK5rn4FN2KGv5nMoBKFanrLPKSGaLAYOmHR +rU+hQAFfldswDct0lkcIGFMY2DFvUxnx4LHnFWprKdRTl7UXHKEhaVzE+NhG +ClNzdi+jid0N7p28aE2h/pTf21Hi1QEOd+/bUJhxP3Kh8S8aOv7RmrP7KNzM +Paz6grgQrD0YbhTaNa4UnjdKQ1jIeO76QxQecGwNMiVm85soxvhQGHcoU7iM +eMqs1+G2P5lf0RP1EeK3Z+NSG05T6NKb3ab8m4Zjgh/FpKMojEl49iOS2HRL +qLVxLIVRScPmd4mXxrPP70uk8CP34+ovxH3176pDL1P4x4f3scAYDeVivvNy +rlC4Z7yzUZM41kbWpPoGhV6hk6e3ETtdehbUn0uhVdWL8uPEK1v3ly/OpzC9 +qio2gXierPCkbjGFmz4HjhUQt9iX6O28R55fpevIK+KbV3cf8y+n0ODUnLAv +xKe/8NxOf0aud6Qhb4zYmpH780kVGb9x10GBcbI+rpvZXTUUtjHFn0gRj2WP +us6rp1B8b+QtFvGrHynXVZooHC9coatLnKqCHZvaKXTWSLM2Ij7s8V3G+wsZ +b4AC64ghP8Y2sZtCm9hsOzNi0SHdpNI+CoXWbFm/gfibdmtd6xCFlvmPasyJ +S48FCf37TaFx8okBU+KoEmVLhSkKn8znuQnE9uM1ESazFK50a+czINY0OFbp +zsdGK/fYvxrEPAFSPOcWsLFV8mqcIvH7h4+N84XZmNwU90yUOOefq3+dGBvn +2vVemEN8EhaVjkqxkcrWnjNInsfGkKJfksvZ6CbRv7iFeHmlrZahEht32N54 +/IR4mG/Gw4HNxpMebULZxJVmWdxgDTaqZsvORBInn7XsztQlv88biDtAfOD1 +sOLLVWw0O95SaUYsvIWTJrSOjfQbafFpsh++xHU1a5uzkb8nROc98Z36KPEd +m9iY9lF5NJd4l03T+dSdbPTrMXezJFa99N/rR3vYqCLZJilF/K+FMf+rIxsj +LOo8u8j+vGHvFUx5sLHCXVz8OHG/i8DxkiA2Kl5YY+JH9v/gVdNHT8LJ97J7 +T+sSD7UGz6+JItf3rfHvJ/Xzy2oy7WsiG3Xrc+7YEf8x6nsuzGXjpi+i66RJ +PU74sRbL5LMxNGZrbCWp36kiZzvlYjau/yl2zYN4mmofMCon48VMRe6Sep8r +/kbyYB0bf86aoAbJBz4rASefD2xcYhj/5AXJD/5zpjeD2tgYspg7355YgOcR +JH9jo0iVy+8QkjfC/fkHKifYmLrTyOpOLw3Sz+PK5BRVMNi+NvxWNw0yszV8 +KiwVvMA1bFAkXmYoYLVSTQWVZvVGkkg+Li8M7rLUI7ZYmuND8pOZflTwpIUK +RgWo/5X+SvLdZ/vehqMquPPVo7rpdtKvb8dxP/mpIPyNDbAiXtFX86snUAUb +XCZmrpH81nc0jZw9o4L8HztSDEm+G23SK1QnRaBwU4K9s4km592lcyMrVPCg +bRNF1dHQ62zONXqpgrdkvj10q6Uh5vqJLcM1Kih3p8n/Bukv75e3pNp9UEHn +8u2+kqT/OEqnrFDvUUHxOqmTPdU0+AvLutULqaKYf6WUXiXpnxPLX8naqaJa +X7SWTwkNVqusPOscVHFvbNrwSdL/fvkGiZ9xVsWA7To/A4tJHo5+dhz0UEWX +/sHY/wppqBrImHx6WhXXb31w9QDpp587GWruWarYtmGTdX8mqc+3rNjCIVUU +zPoWlX2Bhpkh7ezXv1WRu2EoYlc8yS9Ro/Jvk6o49XgkeEEcDRW7rPqk+NRQ +Ylm4p1sMDce/nTALkVJDwcnj6/gjaWj8+2pm61o1HKz64NwdSMMlVQ+v0QQ1 +PFJfYqjuSkP4Zt8IoctquPt5DyPDmQZv76Ar1BU1XKSaLSfqRMOG0sSaPblq ++EfWb/OwA9l/a8up5w/VMNK2jL5oS8NuO6EvSd/U0D3aayjckqz/2dvW+vrq +yEx4dH5Kk4a8gvzKSUN1DHQP8rHWoMHgw039R6CO3k4BT7PUyPmKwV1maqGO +krYHz21gk/Upz+jZaq+OWcXW4/8p0vB3+ELwkVB1LApouJ0iRkObnU9h1jt1 +nPk19TBnnAuX1VaLiO3XwDvHnjO173PBZuPb+MceGljcPbNOs5QLoh5OSw55 +a+Aa+etTqiVciM6LEn3mT1ztaKBQyIXTKm3iXjEa+NX/1r/JXC64UoHSNUUa ++HtfoabHJS7oKD1ihE1rYJHXQvYGX3L+lVmrN3pBEz/2H0gX1OCC4bKKeK0m +LRQdbDF0C8oFYd4bPk6h2niyeDrlEnk/WR4ib2zH0sGOkqYE6bFsWKBsX7rt +pQ5umzFcnC+eDZoc6dsnHHQxWtVzIdcgC451iFZa8qxAjUOzyWJrM2FoNMbG +4vIKfLrgx9cf22+AuVZVqoXGSrwuVfG3cf91eDxq9PfPu5VYUL1IoMMtAzzV +ddvq3fSQ8WzD5nd9V4Ez6Npot0AfdcN/n/vYnQ7rmVKbhW7o406tDS6xC9OA +HXzuZMWqVdiRWTdisC4FVN1WP1FuW4Vm/AHShY6XwO3xgfCSowaY/2ZxJV/B +RXiS0eg6IrEajUUvJAj1JsJv7uwfrXurMXlu8yHABHBRvrkgdbMhGluMiH+u +iocR1UT94mFDbH59R8c2IhbuZ/39OnbWCHnDndWb2qNht6kSGi03RqrrQuwS +9yiQPRL5QPOpMcbXhlz88T0CJBYeLtpsy8HwHZb3ox+GQ5bJqYBhOw6ONQ0v +0SsOB91TsSaJ9hzsHur1+coNhy3DhR9anDjodKrIxiQ5HCKaxiZdDnMwrzkm +QO1oOEzcCFoXEMLBSOFni89T4dBmlPg+5yYHzxwxM01MDoMDvlnpFgUcXPAj +bMWV82EwXnDXrb+QgxofdRh54WEgymj5o1PKweP7I6ffHAuDjQJyyx495aDB +gvQ0faswKG/McX3/gYOGe1brpwiEgaXwfQ2/Fg4WCLmMNsyGQot59bhUOwet +PbzzFv8Jhd9lP8/u/cLBIM8XfAndoaBxXTu/t4+Dv6w1HcsqQqG8ba1fzAAH +HV5s7lxUFgqW4ttBa5iDS7Pc9jgWhYJ7pG+9zxgHBbvn6IhmkP97GpG6dIKD +HdNVMV6XQiF06pJL2RQHn/bxd9TGhoLISlrd4R8H5ZbvZa6ICIWrR8rGZmc5 +WM713JdyKhT+B5azxOQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05070710989013714}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.05070710989013714}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994252799291444*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"f0a837c7-bc2d-4ae0-b7b1-671d7fe3c60f"] +}, Open ]], Cell[CellGroupData[{ @@ -10669,66 +11641,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[365]:=",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], + "In[121]:=",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 365, 381, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423358439445`*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.867628625552069`*^-172\\\", \ +RowBox[{\\\"182746270923358292188640954459021807938\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"61\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3679745821507584000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 45, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423358439445`*^9, 3.994252799349391*^9}, CellLabel-> "During evaluation of \ -In[365]:=",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], +In[121]:=",ExpressionUUID->"f6738cec-6f58-491e-b5fe-1eaf22c3bffd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 365, 382, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342335853943*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.253002870303697`*^-175\\\", \ +RowBox[{\\\"532888126012512780022077023202507591948\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"64\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0138815516114944000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 46, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423358439445`*^9, 3.994252799360292*^9}, CellLabel-> "During evaluation of \ -In[365]:=",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], +In[121]:=",ExpressionUUID->"023af4ae-371c-4ab3-8351-0006b2703f12"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 365, 383, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342335861944*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.111772078039742`*^-178\\\", \ +RowBox[{\\\"161198658118785115956678299518758546564\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"68\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9916936247705600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 47, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423358439445`*^9, 3.994252799371706*^9}, CellLabel-> "During evaluation of \ -In[365]:=",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], +In[121]:=",ExpressionUUID->"c057ff48-17fb-45f9-a6c1-141e922954d8"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 365, 384, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342335870945*^9}, +during this calculation.\"", 2, 121, 48, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423358439445`*^9, 3.994252799379614*^9}, CellLabel-> "During evaluation of \ -In[365]:=",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], +In[121]:=",ExpressionUUID->"e65e466d-b6a1-4e4d-a84b-19ceca3b3269"], -Cell[BoxData["12.5536549879565`"], "Output", - CellChangeTimes->{3.9913423425170345`*^9}, +Cell[BoxData["15.843781890896446`"], "Output", + CellChangeTimes->{3.9913423425170345`*^9, 3.9942528800105963`*^9}, CellLabel-> - "Out[365]=",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] + "Out[121]=",ExpressionUUID->"410af060-582d-47a4-a614-eb31053d954a"] }, Open ]], Cell[CellGroupData[{ @@ -10795,68 +11774,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.99184987967128*^9, - 3.9918498857615337`*^9}},ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-\ -30286a178ca1"], + CellChangeTimes->{{3.99184987967128*^9, 3.9918498857615337`*^9}}, + CellLabel-> + "In[122]:=",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 366, - 385, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423425545177`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.26358172021042`*^-237\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 122, 49, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423425545177`*^9, 3.994252880065743*^9}, CellLabel-> "During evaluation of \ -In[366]:=",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], +In[122]:=",ExpressionUUID->"de9a378e-b4b1-40fc-a724-65ae1f5a4223"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 366, - 386, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342342564516*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.5266145441136233`*^-244\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 122, 50, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423425545177`*^9, 3.994252880074559*^9}, CellLabel-> "During evaluation of \ -In[366]:=",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], +In[122]:=",ExpressionUUID->"a7270248-5157-4c0d-b2d9-5f102f980714"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 366, - 387, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423425725136`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0295859634714676`*^-251\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 122, 51, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423425545177`*^9, 3.994252880084296*^9}, CellLabel-> "During evaluation of \ -In[366]:=",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], +In[122]:=",ExpressionUUID->"1951af1c-b8cf-4230-ab0e-1aca11f2bfdd"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 366, 388, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423425815163`*^9}, +during this calculation.\"", 2, 122, 52, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423425545177`*^9, 3.9942528800940237`*^9}, CellLabel-> "During evaluation of \ -In[366]:=",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], +In[122]:=",ExpressionUUID->"1f109dbd-9326-480e-a751-f509e88530b1"], -Cell[BoxData["2.904399821349581`"], "Output", - CellChangeTimes->{3.9913423499055786`*^9}, +Cell[BoxData["0.016609115481987426`"], "Output", + CellChangeTimes->{3.9913423499055786`*^9, 3.994252889844184*^9}, CellLabel-> - "Out[366]=",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] + "Out[122]=",ExpressionUUID->"618ac322-19c0-401e-aeb3-4fdf94c9054e"] }, Open ]], Cell[CellGroupData[{ @@ -10877,8 +11857,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -10923,67 +11902,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849890499424*^9, - 3.9918498944226*^9}},ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], + CellChangeTimes->{{3.991849890499424*^9, 3.9918498944226*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 367, - 389, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423499435787`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.26358172021042`*^-237\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 123, 53, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423499435787`*^9, 3.994252889896236*^9}, CellLabel-> "During evaluation of \ -In[367]:=",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], +In[123]:=",ExpressionUUID->"33a9b624-3e40-462d-a366-3f3dd59e9a0d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 367, - 390, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342349953579*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.5266145441136233`*^-244\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 123, 54, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423499435787`*^9, 3.994252889907126*^9}, CellLabel-> "During evaluation of \ -In[367]:=",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], +In[123]:=",ExpressionUUID->"1b313c29-5ad3-4f76-a153-d393fe2fa30e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 367, - 391, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423499625797`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0295859634714676`*^-251\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 123, 55, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423499435787`*^9, 3.994252889920093*^9}, CellLabel-> "During evaluation of \ -In[367]:=",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], +In[123]:=",ExpressionUUID->"38099869-8fe9-41f2-80ff-513229161c24"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 367, 392, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423499715805`*^9}, +during this calculation.\"", 2, 123, 56, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423499435787`*^9, 3.994252889929762*^9}, CellLabel-> "During evaluation of \ -In[367]:=",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], +In[123]:=",ExpressionUUID->"3c43676a-746c-4ab6-8417-a31331de7343"], -Cell[BoxData["9.928941323789857`"], "Output", - CellChangeTimes->{3.991342356382967*^9}, +Cell[BoxData["61.40887995073038`"], "Output", + CellChangeTimes->{3.991342356382967*^9, 3.9942528990706787`*^9}, CellLabel-> - "Out[367]=",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] + "Out[123]=",ExpressionUUID->"90bf5d8b-307d-4e04-be32-72c033b2cd83"] }, Open ]], Cell[CellGroupData[{ @@ -11004,8 +11985,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -11050,68 +12030,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918499002266407`*^9, - 3.9918499040814323`*^9}},ExpressionUUID->"935796a8-6280-564a-b4d0-\ -fc6fb6cd41f8"], + CellChangeTimes->{{3.9918499002266407`*^9, 3.9918499040814323`*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 368, - 393, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342356420965*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.26358172021042`*^-237\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 124, 57, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342356420965*^9, 3.994252899120412*^9}, CellLabel-> "During evaluation of \ -In[368]:=",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], +In[124]:=",ExpressionUUID->"c9d8e52f-ce5d-4a26-9130-8d41a9961ce3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 368, - 394, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342356431965*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.5266145441136233`*^-244\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 124, 58, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342356420965*^9, 3.994252899131447*^9}, CellLabel-> "During evaluation of \ -In[368]:=",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], +In[124]:=",ExpressionUUID->"05af3048-d0d6-4094-acc5-35c2c0862db0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 368, - 395, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342356441965*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0295859634714676`*^-251\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 124, 59, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342356420965*^9, 3.9942528991414223`*^9}, CellLabel-> "During evaluation of \ -In[368]:=",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], +In[124]:=",ExpressionUUID->"1fda6fe4-961f-4349-904d-18de5cdacdd6"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 368, 396, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342356450968*^9}, +during this calculation.\"", 2, 124, 60, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342356420965*^9, 3.994252899150226*^9}, CellLabel-> "During evaluation of \ -In[368]:=",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], +In[124]:=",ExpressionUUID->"a375c5e9-010a-43cb-abf8-6ce96c5aa36f"], -Cell[BoxData["19.874153108015193`"], "Output", - CellChangeTimes->{3.9913423600715523`*^9}, +Cell[BoxData["8.731011485887235`"], "Output", + CellChangeTimes->{3.9913423600715523`*^9, 3.994252906940435*^9}, CellLabel-> - "Out[368]=",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] + "Out[124]=",ExpressionUUID->"9a844228-9977-4395-b499-35116f63dae4"] }, Open ]], Cell[CellGroupData[{ @@ -11120,22 +12101,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991849908545643*^9, - 3.9918499133398113`*^9}},ExpressionUUID->"ee52036b-90c5-e14a-aed9-\ -684ff23ed035"], - -Cell[BoxData["0.2067571864462191`"], "Output", - CellChangeTimes->{3.9913423601046352`*^9}, + CellChangeTimes->{{3.991849908545643*^9, 3.9918499133398113`*^9}}, CellLabel-> - "Out[369]=",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] + "In[125]:=",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], + +Cell[BoxData["0.0007172963762741314`"], "Output", + CellChangeTimes->{3.9913423601046352`*^9, 3.994252906989203*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"3795ce20-bf4b-4f6a-b98f-278f193557e7"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.991849916273302*^9, 3.9918499185334816`*^9}, - 3.9919247506818066`*^9},ExpressionUUID->"c6d4a146-4cca-7e4e-b483-\ -85227a6e6b51"], + 3.9919247506818066`*^9}, + CellLabel-> + "In[126]:=",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], Cell[CellGroupData[{ @@ -11158,12 +12140,12 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[371]:=",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], + "In[127]:=",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], -Cell[BoxData["29.129739599983825`"], "Output", - CellChangeTimes->{3.9913423601345863`*^9}, +Cell[BoxData["13.922905872713134`"], "Output", + CellChangeTimes->{3.9913423601345863`*^9, 3.994252907012343*^9}, CellLabel-> - "Out[371]=",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] + "Out[127]=",ExpressionUUID->"bc9d2bcd-409d-4901-b05e-008080e8d836"] }, Open ]], Cell[CellGroupData[{ @@ -11173,12 +12155,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[373]:=",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], + "In[128]:=",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], -Cell[BoxData["0.6950071373045505`"], "Output", - CellChangeTimes->{3.9913423601709976`*^9}, +Cell[BoxData["2.812503299694053`"], "Output", + CellChangeTimes->{3.9913423601709976`*^9, 3.994252907026814*^9}, CellLabel-> - "Out[373]=",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] + "Out[128]=",ExpressionUUID->"59861813-9960-42b8-b64f-657a831b5d75"] }, Open ]], Cell[CellGroupData[{ @@ -11188,12 +12170,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[376]:=",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], + "In[129]:=",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], -Cell[BoxData["20.245376929811762`"], "Output", - CellChangeTimes->{3.9913423602320137`*^9}, +Cell[BoxData["39.1582187083354`"], "Output", + CellChangeTimes->{3.9913423602320137`*^9, 3.994252907041945*^9}, CellLabel-> - "Out[376]=",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] + "Out[129]=",ExpressionUUID->"7176c8b4-0681-4a23-9c7c-b88535eccafb"] }, Open ]], Cell[CellGroupData[{ @@ -11383,12 +12365,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[377]:=",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], + "In[130]:=",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], -Cell[BoxData["0.02003459702393596`"], "Output", - CellChangeTimes->{3.991342360260002*^9}, +Cell[BoxData["0.0034596313989474522`"], "Output", + CellChangeTimes->{3.991342360260002*^9, 3.994252907059091*^9}, CellLabel-> - "Out[377]=",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] + "Out[130]=",ExpressionUUID->"90ef3382-3d27-4f55-b2a5-496101f287ee"] }, Open ]], Cell[CellGroupData[{ @@ -11402,12 +12384,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[378]:=",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], + "In[131]:=",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], -Cell[BoxData["6.261157591052328`"], "Output", - CellChangeTimes->{3.9913423603598785`*^9}, +Cell[BoxData["15.067112315673354`"], "Output", + CellChangeTimes->{3.9913423603598785`*^9, 3.994252907247568*^9}, CellLabel-> - "Out[378]=",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] + "Out[131]=",ExpressionUUID->"e623d4c8-3a3a-406f-8736-f2c30dfbb7d6"] }, Open ]], Cell[CellGroupData[{ @@ -11599,12 +12581,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[379]:=",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], + "In[132]:=",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], -Cell[BoxData["0.010388932679900494`"], "Output", - CellChangeTimes->{3.991342360375868*^9}, +Cell[BoxData["0.022946197918092243`"], "Output", + CellChangeTimes->{3.991342360375868*^9, 3.994252907270239*^9}, CellLabel-> - "Out[379]=",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] + "Out[132]=",ExpressionUUID->"84208eae-d877-459f-bb3a-6aba8dbe9c42"] }, Open ]], Cell[CellGroupData[{ @@ -11618,12 +12600,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[380]:=",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], + "In[133]:=",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], -Cell[BoxData["8.694797556550151`"], "Output", - CellChangeTimes->{3.991342360471882*^9}, +Cell[BoxData["5.850454055129731`"], "Output", + CellChangeTimes->{3.991342360471882*^9, 3.994252907474141*^9}, CellLabel-> - "Out[380]=",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] + "Out[133]=",ExpressionUUID->"c796ce30-4a92-421f-94ad-98c7afed130c"] }, Open ]], Cell[CellGroupData[{ @@ -11716,12 +12698,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[381]:=",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], + "In[134]:=",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.991342360486868*^9}, +Cell[BoxData["0.11740719062544083`"], "Output", + CellChangeTimes->{3.991342360486868*^9, 3.994252907491761*^9}, CellLabel-> - "Out[381]=",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] + "Out[134]=",ExpressionUUID->"dac5dffc-f2ef-43d1-8ec9-6becdecbf1d6"] }, Open ]], Cell[CellGroupData[{ @@ -11811,12 +12793,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[382]:=",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], + "In[135]:=",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.9913423605138645`*^9}, +Cell[BoxData["0.8825928093745592`"], "Output", + CellChangeTimes->{3.9913423605138645`*^9, 3.994252907507482*^9}, CellLabel-> - "Out[382]=",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] + "Out[135]=",ExpressionUUID->"c62480ea-7823-4ead-97fe-0d6138340bcc"] }, Open ]], Cell[CellGroupData[{ @@ -11939,12 +12921,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[383]:=",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], + "In[136]:=",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.9913423605448647`*^9}, +Cell[BoxData["0.10362274221488223`"], "Output", + CellChangeTimes->{3.9913423605448647`*^9, 3.994252907527062*^9}, CellLabel-> - "Out[383]=",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] + "Out[136]=",ExpressionUUID->"64745efa-99e5-40ea-856b-717a4c831597"] }, Open ]], Cell[CellGroupData[{ @@ -12006,68 +12988,71 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849936863495*^9},ExpressionUUID->"6b25ec99-ae49-ec4d-9652-\ -65328572e509"], + CellChangeTimes->{3.991849936863495*^9}, + CellLabel-> + "In[137]:=",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 384, 397, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342360571863*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2916577431760988`*^-233\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 137, 61, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342360571863*^9, 3.9942529075486507`*^9}, CellLabel-> "During evaluation of \ -In[384]:=",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], +In[137]:=",ExpressionUUID->"43ce2f58-d825-4520-82bd-c38c85e027b5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 384, 398, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423605818653`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.8653668762486043`*^-240\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 137, 62, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342360571863*^9, 3.994252907562222*^9}, CellLabel-> "During evaluation of \ -In[384]:=",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], +In[137]:=",ExpressionUUID->"150e7cfb-acab-47a3-993d-eee6d6475364"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 384, - 399, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423605898647`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.356426366720058`*^-247\\\", \ +RowBox[{\\\"1894408991562427689427794363373458470910\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8875062955245236398325760000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 137, + 63, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342360571863*^9, 3.994252907571724*^9}, CellLabel-> "During evaluation of \ -In[384]:=",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], +In[137]:=",ExpressionUUID->"6e7a2e68-adda-4681-b557-d8acbc338480"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 384, 400, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423605988636`*^9}, +during this calculation.\"", 2, 137, 64, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342360571863*^9, 3.9942529075828648`*^9}, CellLabel-> "During evaluation of \ -In[384]:=",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], +In[137]:=",ExpressionUUID->"9f5ca981-4e58-4d16-92d6-c4ff0b7d2c34"], -Cell[BoxData["6.261157591052324`"], "Output", - CellChangeTimes->{3.9913423642473736`*^9}, +Cell[BoxData["15.06711231567333`"], "Output", + CellChangeTimes->{3.9913423642473736`*^9, 3.994252914699844*^9}, CellLabel-> - "Out[384]=",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] + "Out[137]=",ExpressionUUID->"337dbac4-f712-4bf9-a0a8-dff2a563fec4"] }, Open ]], Cell[CellGroupData[{ @@ -12129,68 +13114,71 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849940282545*^9},ExpressionUUID->"3e2baf62-fab9-eb41-8de7-\ -aa229443ac14"], + CellChangeTimes->{3.991849940282545*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 385, 401, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342364284378*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2916577431760988`*^-233\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 138, 65, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342364284378*^9, 3.994252914753924*^9}, CellLabel-> "During evaluation of \ -In[385]:=",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], +In[138]:=",ExpressionUUID->"5a1c3ed4-7383-4784-a003-826d071773f2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 385, 402, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423642935734`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.8653668762486043`*^-240\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 138, 66, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342364284378*^9, 3.994252914763651*^9}, CellLabel-> "During evaluation of \ -In[385]:=",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], +In[138]:=",ExpressionUUID->"dbe42c9d-1e3a-4aa5-8812-ce456b6b38bb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 385, - 403, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342364302574*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.356426366720058`*^-247\\\", \ +RowBox[{\\\"1894408991562427689427794363373458470910\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8875062955245236398325760000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 67, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342364284378*^9, 3.9942529147748137`*^9}, CellLabel-> "During evaluation of \ -In[385]:=",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], +In[138]:=",ExpressionUUID->"4fb5ff58-a387-487f-b7c7-7d57fc43c6e0"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 385, 404, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423643105717`*^9}, +during this calculation.\"", 2, 138, 68, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342364284378*^9, 3.9942529147847757`*^9}, CellLabel-> "During evaluation of \ -In[385]:=",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], +In[138]:=",ExpressionUUID->"de3af782-8ade-4e19-9569-05bae5a8842c"], -Cell[BoxData["8.694797556550144`"], "Output", - CellChangeTimes->{3.9913423679416714`*^9}, +Cell[BoxData["5.850454055129731`"], "Output", + CellChangeTimes->{3.9913423679416714`*^9, 3.99425292183111*^9}, CellLabel-> - "Out[385]=",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] + "Out[138]=",ExpressionUUID->"0c2cc90e-bae6-46be-843e-940c5ce10611"] }, Open ]], Cell[CellGroupData[{ @@ -12248,95 +13236,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849946138607*^9},ExpressionUUID->"725c3011-bda9-4c42-96ce-\ -9a77a5dc787c"], + CellChangeTimes->{3.991849946138607*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C -qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P -P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC -usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx -y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM -UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 -4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 -LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 -LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ -tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N -AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T -HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF -K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj -T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt -q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US -zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS -fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ -Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa -eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t -r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB -R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX -ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk -7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i -4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr -1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr -rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd -lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc -8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd -VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX -lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc -2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K -BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB -GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c -hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 -DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ -xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr -PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 -qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U -DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 -gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf -7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 -4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG -u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 -xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm -YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U -Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L -3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi -OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb -+yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj -9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw -kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf -sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz -oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb -sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P -iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV -hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy -53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU -hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz -2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 -ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz -5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ -sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh -ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 -TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C -zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf -YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR -raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk -TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ -G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR -p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u -bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT -wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e -y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 -pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF -U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei -Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef -kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= - + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk8VF8UAHBLJEtZQohkqSiRsZZf98Sg7BHZw8w8RVmGNJUoW4soEiqS +LUvKUrImoQ1F0R7ZE2bM2Err784f73M/38+579xzz333rfULdqTx8fDwMPHD +HUNfbl5f0/1y+92T+t3xwUy0nVWg70cuQw8XzYa4HsgxSFMjN6IkjaBVCdgO +1BeCoqTH6KXYPTrXlYzoVgFyJyLypTlcn32yqjm69BXaPZp66TR2XXfo9d+6 +b9DNFxvdz2BPfGyPPNrwHvXuGSCfxZYfVfVYMPuM1tMrnM5hW09HGod1fkFe +ClkJidhNvydEGKWDiEXO7zuP/faU7PH7QcNo6dBj12RsliB5Yk53FHmM8P+4 +gC14PsSN9H0MOZl4NaRgK0lkPwttGEciH17lXcK2U1i4yTKbQqrpov0Z2MQN +FRktIRZqTnq95Sp2tLp9fGDnNGpi3C3Jwn4v27slvJSD4p49FsjDproHHLh0 +fgb1Li58K8BmZ/HkVgXNIkqN6UwRtpCKljhHdx4F+WoE38FOo7ZaiksvoOQV +bcOV2MpFbtHa3xeQ/QtGZDW20aYE1qGGHyhvUlv+AfZ+gy+dE2a/UUJ6t+BL +7DnG4SXC6/6gt2WGWa+xTzaImGgI/UWrMmuc32FngtEt/85/yNuAV3+QW1/h +MzK9lBfWk+8XLGCXPrk0cEqBD74+6Hf/za33q3dkynk+0D+upM8XwkSRmvN3 +K4L4IbdvyHk5dlr5WtVpXQEQe8zYuQH7Y/dU0998AWgd27NGG1t5psZ9ubQg +VFIs5A2wy/TsUrW+C4Kn7/5IMnZb3THegw1C8O3BDY4f9nxrz5dxM1GYU8jN +uYktaSMqfrxJFCY9NpyowNbpJYOYsRh0XZGMr8cOGKm+sWXzcjhuuXxlF3YI +X6fOf6LiMJd4efNP7FGVO5z4BQmQvBLh7BqK+0O0L+siScLQobn3VGy+W2Nr +V4VKgvrOFwmh2MqkNY6lk5Kw2Jnkm4jtbnax6uWAFIixjaUeYXdR6GGyHdKw +oF1D6NGZqL8oOdFHSAbmfmVfMMOemizNLzGXgZ+zb4YcsYXDh3u2NctAf7mB +EB2bHLdHz6daFn6NFNlVYdcXGMwX58jB7tii51vDmKhg9GfE1nBFEKsopQeG +M9FO59P9YbcVwSxj7Zko7Kk2KYvbY4pg5e/fkoKtV7BJWtlNCRKfehbWYrf5 +ed8V2L4G5Hw+qAkdZqKZ6YEj47HKID0XuOwOttQh8r27tirw1XEbRfoIE40V +CO93CFAB+jSfhBZ27eduBWaCCnwaiRomY3vaeMWua1aBb+svLoRjF2yMcLyi +qwoRfX9632LrTRSxo2TVwOuhNj2XwUR7/EW0rAbVwYSYXud4jIlQhLPu3j/q +UGku9+kQtmZ8jiFVbh28DQysOovNk08yjdq9Djp849ofYd/u99hb9QjH4wNv +kI7j++lSdko+bz2IvlAaUozE9ZFt3074acDgD6dq0SgmynfK+PQ9SgM6FA90 +bsJO9hscWHJNA6bLYgRtsaknD08q9WhAoF7TcBK2RGM2j5OZJhBP9EwlovH3 +Q2JpNqhuBPcTwslKJ5lIQeVCdOLIJtC7RXN1imGixnNzGot8WpClD2PHsD1n +3XqJtVqw5aRSdh729TY1DVNvLQiy+RI/g63iX//6xzstCJYDs7RYvN+yUXWi +YzMky00GfoljIkUFJULZTQeSq8b9004z0abCcNFfSBeObaZkMZKYyI8aO69l +pwuBAgtCRdiZqqn9Pp66IGfSk/kGmz+vvOIJQxdkz9BUSMn4vl2f2JNaqQva +p+9/nsY+m+mTraFKgo6nB6eCL+LzTbTZ7CqoB8rBswHnLjFRLl3NobpTH6T3 +MQ9vuMpE3RHIMK7QGGLTGac8S5lorfcbO6+D/4G4V6x5dSMT0f7dv6N4FIBR +fGzrXBcTyU7WLpX1MwXoy42T/cpE4SSTz6maZEiMI0HrX1w/8/czqQlzyJz+ +dPO9LAvdNg1bmtNlCeV2Gx7J6LNQwVzAo7K0XeDwoa1B15GFfuxY9aIt2hoE +/2vJLQhjoT4efs6gry0ISt3r2JnOQkGrgy+eUrUHuvCDw/K1LHTnwLPmy/EO +oNT4Jcyhn4WOzcp933hgN6w1n02x4Z9G81YWLk/3OcLQtbZtZZumkbFHyo7R +3U5QlBj3INxlGr2Wyw5oI+0Bb4sZcI6aRvI3YxuLNzgDNennYb/SaVQ7oGlj +J+YCn2tC2Wt6p5FSL9s/gukCvrNzhkf+TCPS5ZSy/IG9EKT7e8ZWmo2yl8xu +Tm11hdLBgbeBmmx0f4f2x/g6N8jZHeRD3sFGmYbnJH6XukNjd2Vk0l426vpU +mEA67wFUMW0PpYNsVG2bpRZy0hNk1tH1VsawEeeQE08Q1QsmHwWlaqSz0byF +xn6WmTecVkxV2FfCRsXMDz/CDPaBtZJIStoDNnLNLaR4ifpAk3f8iYddbHS3 +ynof/2kfeOVpdiFjiI2MFV4vnl30gYQDDU42s2ykOuD/8dUBX6hbn5LXwsdB +IyKB9lnDvnD2237JQEkO6k62o1g6+8GZNtbJ8TUclMbIETnc7QeBJCELIy0O +amz6t0jZRYHxlaKvho04aIUnnCbVUyAiTGzpEVMOUl75tGt1IwXab18qz8bW +6bRdJdhEgWZ5W9SG7WjiUfL+EQV22VutlDDD+VdHdJx4TgHH7/xpJdjyfbdW +PHtPgW/nNL++IXOQmrdspud3Ctj/Dm1RsOQgYx9WcbweFZa1rk7wsOagm1fY +YXYGVIgp7607ir2yZ2a7rBEVKK2a7zKwWebfe4u3UWHn1M2XPdgFG3l4O02p +8OZIeoWVDQct/y7hJrmbClQrye16trgfSfrLcg5RIbqw/9CCHQftfmrY6x9M +BeQV1C1hz0FNPFtzdEKpwN5ks1oL+0rYdv2WcCrcTxkPpmDbuVn6jh6nQoa1 +n2AXdp2aW93Gc3j9YjtWrgMHJTdEHqi9SQWjx3JXDRw56JBuhjGjmAoCj+pu +2mHblFQuMyqlgsIJcjaBLZwxVlJzmwpWmpI707Hj6Q4T9+9RwTLQJW0OO1JD +LbC6hQpdks8FbjtxUEBGx8GqfiqMiUxuF3PmoF3Lx0zoA1TIv78mXgV7QzyP +mO4QFfJM+KoNscfo+rcrR6lQUPv8lS+2r10Os2KKCg5TOv/uYbsKhAWV/8T9 +0vm4fq8LB1mGyYeUydDgv9XPC87t5aCWnASr1FU0ME8XvXMd26RzRo0hT4PP +D9qzqrB11Ds+mCnR4O3Gcs2P2HLvjpt9UqdBXvng0g2uHDS5tU9GWB/Hd6In +TdgX+G488HeiQeyFefP3bnj/2qKZts40yG6Z+DmOHefBoJP20uChvfLlRWzG +PYf1/9xpUNpnflTeHddP8Kak+9GgT8WWxwOb1O5HfRxKA903X5e+w36Xoi6i +epEGiXLVM/UeHHQHie0fT6GB59PF/U+x45hzbbcv0eDxqfanPdi6u9qijDJo +sPy1CJrCTuahzNhep4GgFVtqtScHWQTf+MAoo4F4orvLEWxFxTMG2+/QIPzk +8J4Y7Ln24Ev8FTS4Sh7floSdtw7ZJt+lwYcQ39Y87D99fc359TS45fCjphP7 +no1C8ctnNMi9wjJY7cVBiT/5BNLaaRBg9LRRHduveMLXrZMG0yFiG7WxxZfU +K4x00YBy4EvzDuyDDa4XFt/S4ARv7CsatqpmeoTaKA2sXykklGD/fHei59sY +DWpWhaRWYnfH03TKx2nQ06V+ug47alBvwniKBhbtVRrPsT9m9njZz9Jg5Qpw ++oqdulTC/BgvAfrnMwzXeOP/wUyfRzg/AZl2nYnrsL/2ldKDBAh4cSW+RQvb +5B75ht8yAi6Xxbzbhj3mw/hlJUFAa35Kjgu2uI25pLkUAecj3iz1wt5mKKmB +pAn4N57hSMG+KFbmQpIjQGn+8oVgbrz+S6XCWgLcXahFCdhEYdkzaVUCiMZz +que58y8e/bJCnYCrhZoxKdz1CCmxJRoECFf0jl3jxqUs90/pECCu1GJbjl3/ +Vyp6TJcACZ7CvrvYo98GLg/oEZAi/ce+Fntr87HWXiMC5NjCn5uxRw7eUXoA +BHBKLqZ0Yy93Pa5fY0rAFldx/V5sY7OdNpVkAvbW8Da8w06WGzpauBPP5zcK +6seuXVJ+MceKgK2GkdcGsYenjxddsSFgRZHOrRFsoyfSb5IcCLCZHA+dwPar +HJo87UgAac3UBiZ2UlY5X8weAm7YebdMYw/Rd+lEuBKwOyY5aw5bzFvGMsSd +gIf/rPsWuPl2DXsFeBKwJPAIzyL3/TUnEr19CKhQlmX95tYjbJXn6kcA+8+5 +2r/cfPMydY5UAqpYgTSefTjf4HCXDYH721Y3x4tt1FkxZrGfgGqncIIf26/m +xB8IICAq/Fr9EuykPKuV2w7i8+fV5ghg1ybJbtQPImDmw2bhpdhDjJEd2iEE ++PdfFRDCFqVWumrQCRiapQ9zbWgfFawaToADX03+Mm7+rdYJihEEdM0RFsLY +59VXZcsy8Pp1MR1c3xcfvStxjIBUU2GSCPbgr8p2kUgC1sX9ieRa9GvUoEAU +AQciPEu4Nnht/eNfNAGJK9fXcv0/110S6A== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -12350,107 +13337,106 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C -qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P -P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC -usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx -y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM -UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 -4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 -LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 -LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ -tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N -AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T -HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF -K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj -T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt -q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US -zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS -fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ -Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa -eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t -r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB -R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX -ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk -7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i -4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr -1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr -rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd -lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc -8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd -VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX -lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc -2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K -BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB -GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c -hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 -DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ -xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr -PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 -qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U -DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 -gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf -7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 -4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG -u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 -xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm -YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U -Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L -3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi -OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb -+yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj -9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw -kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf -sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz -oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb -sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P -iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV -hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy -53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU -hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz -2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 -ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz -5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ -sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh -ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 -TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C -zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf -YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR -raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk -TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ -G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR -p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u -bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT -wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e -y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 -pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF -U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei -Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef -kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= - +1:eJwV1Hk8VF8UAHBLJEtZQohkqSiRsZZf98Sg7BHZw8w8RVmGNJUoW4soEiqS +LUvKUrImoQ1F0R7ZE2bM2Err784f73M/38+579xzz333rfULdqTx8fDwMPHD +HUNfbl5f0/1y+92T+t3xwUy0nVWg70cuQw8XzYa4HsgxSFMjN6IkjaBVCdgO +1BeCoqTH6KXYPTrXlYzoVgFyJyLypTlcn32yqjm69BXaPZp66TR2XXfo9d+6 +b9DNFxvdz2BPfGyPPNrwHvXuGSCfxZYfVfVYMPuM1tMrnM5hW09HGod1fkFe +ClkJidhNvydEGKWDiEXO7zuP/faU7PH7QcNo6dBj12RsliB5Yk53FHmM8P+4 +gC14PsSN9H0MOZl4NaRgK0lkPwttGEciH17lXcK2U1i4yTKbQqrpov0Z2MQN +FRktIRZqTnq95Sp2tLp9fGDnNGpi3C3Jwn4v27slvJSD4p49FsjDproHHLh0 +fgb1Li58K8BmZ/HkVgXNIkqN6UwRtpCKljhHdx4F+WoE38FOo7ZaiksvoOQV +bcOV2MpFbtHa3xeQ/QtGZDW20aYE1qGGHyhvUlv+AfZ+gy+dE2a/UUJ6t+BL +7DnG4SXC6/6gt2WGWa+xTzaImGgI/UWrMmuc32FngtEt/85/yNuAV3+QW1/h +MzK9lBfWk+8XLGCXPrk0cEqBD74+6Hf/za33q3dkynk+0D+upM8XwkSRmvN3 +K4L4IbdvyHk5dlr5WtVpXQEQe8zYuQH7Y/dU0998AWgd27NGG1t5psZ9ubQg +VFIs5A2wy/TsUrW+C4Kn7/5IMnZb3THegw1C8O3BDY4f9nxrz5dxM1GYU8jN +uYktaSMqfrxJFCY9NpyowNbpJYOYsRh0XZGMr8cOGKm+sWXzcjhuuXxlF3YI +X6fOf6LiMJd4efNP7FGVO5z4BQmQvBLh7BqK+0O0L+siScLQobn3VGy+W2Nr +V4VKgvrOFwmh2MqkNY6lk5Kw2Jnkm4jtbnax6uWAFIixjaUeYXdR6GGyHdKw +oF1D6NGZqL8oOdFHSAbmfmVfMMOemizNLzGXgZ+zb4YcsYXDh3u2NctAf7mB +EB2bHLdHz6daFn6NFNlVYdcXGMwX58jB7tii51vDmKhg9GfE1nBFEKsopQeG +M9FO59P9YbcVwSxj7Zko7Kk2KYvbY4pg5e/fkoKtV7BJWtlNCRKfehbWYrf5 +ed8V2L4G5Hw+qAkdZqKZ6YEj47HKID0XuOwOttQh8r27tirw1XEbRfoIE40V +CO93CFAB+jSfhBZ27eduBWaCCnwaiRomY3vaeMWua1aBb+svLoRjF2yMcLyi +qwoRfX9632LrTRSxo2TVwOuhNj2XwUR7/EW0rAbVwYSYXud4jIlQhLPu3j/q +UGku9+kQtmZ8jiFVbh28DQysOovNk08yjdq9Djp849ofYd/u99hb9QjH4wNv +kI7j++lSdko+bz2IvlAaUozE9ZFt3074acDgD6dq0SgmynfK+PQ9SgM6FA90 +bsJO9hscWHJNA6bLYgRtsaknD08q9WhAoF7TcBK2RGM2j5OZJhBP9EwlovH3 +Q2JpNqhuBPcTwslKJ5lIQeVCdOLIJtC7RXN1imGixnNzGot8WpClD2PHsD1n +3XqJtVqw5aRSdh729TY1DVNvLQiy+RI/g63iX//6xzstCJYDs7RYvN+yUXWi +YzMky00GfoljIkUFJULZTQeSq8b9004z0abCcNFfSBeObaZkMZKYyI8aO69l +pwuBAgtCRdiZqqn9Pp66IGfSk/kGmz+vvOIJQxdkz9BUSMn4vl2f2JNaqQva +p+9/nsY+m+mTraFKgo6nB6eCL+LzTbTZ7CqoB8rBswHnLjFRLl3NobpTH6T3 +MQ9vuMpE3RHIMK7QGGLTGac8S5lorfcbO6+D/4G4V6x5dSMT0f7dv6N4FIBR +fGzrXBcTyU7WLpX1MwXoy42T/cpE4SSTz6maZEiMI0HrX1w/8/czqQlzyJz+ +dPO9LAvdNg1bmtNlCeV2Gx7J6LNQwVzAo7K0XeDwoa1B15GFfuxY9aIt2hoE +/2vJLQhjoT4efs6gry0ISt3r2JnOQkGrgy+eUrUHuvCDw/K1LHTnwLPmy/EO +oNT4Jcyhn4WOzcp933hgN6w1n02x4Z9G81YWLk/3OcLQtbZtZZumkbFHyo7R +3U5QlBj3INxlGr2Wyw5oI+0Bb4sZcI6aRvI3YxuLNzgDNennYb/SaVQ7oGlj +J+YCn2tC2Wt6p5FSL9s/gukCvrNzhkf+TCPS5ZSy/IG9EKT7e8ZWmo2yl8xu +Tm11hdLBgbeBmmx0f4f2x/g6N8jZHeRD3sFGmYbnJH6XukNjd2Vk0l426vpU +mEA67wFUMW0PpYNsVG2bpRZy0hNk1tH1VsawEeeQE08Q1QsmHwWlaqSz0byF +xn6WmTecVkxV2FfCRsXMDz/CDPaBtZJIStoDNnLNLaR4ifpAk3f8iYddbHS3 +ynof/2kfeOVpdiFjiI2MFV4vnl30gYQDDU42s2ykOuD/8dUBX6hbn5LXwsdB +IyKB9lnDvnD2237JQEkO6k62o1g6+8GZNtbJ8TUclMbIETnc7QeBJCELIy0O +amz6t0jZRYHxlaKvho04aIUnnCbVUyAiTGzpEVMOUl75tGt1IwXab18qz8bW +6bRdJdhEgWZ5W9SG7WjiUfL+EQV22VutlDDD+VdHdJx4TgHH7/xpJdjyfbdW +PHtPgW/nNL++IXOQmrdspud3Ctj/Dm1RsOQgYx9WcbweFZa1rk7wsOagm1fY +YXYGVIgp7607ir2yZ2a7rBEVKK2a7zKwWebfe4u3UWHn1M2XPdgFG3l4O02p +8OZIeoWVDQct/y7hJrmbClQrye16trgfSfrLcg5RIbqw/9CCHQftfmrY6x9M +BeQV1C1hz0FNPFtzdEKpwN5ks1oL+0rYdv2WcCrcTxkPpmDbuVn6jh6nQoa1 +n2AXdp2aW93Gc3j9YjtWrgMHJTdEHqi9SQWjx3JXDRw56JBuhjGjmAoCj+pu +2mHblFQuMyqlgsIJcjaBLZwxVlJzmwpWmpI707Hj6Q4T9+9RwTLQJW0OO1JD +LbC6hQpdks8FbjtxUEBGx8GqfiqMiUxuF3PmoF3Lx0zoA1TIv78mXgV7QzyP +mO4QFfJM+KoNscfo+rcrR6lQUPv8lS+2r10Os2KKCg5TOv/uYbsKhAWV/8T9 +0vm4fq8LB1mGyYeUydDgv9XPC87t5aCWnASr1FU0ME8XvXMd26RzRo0hT4PP +D9qzqrB11Ds+mCnR4O3Gcs2P2HLvjpt9UqdBXvng0g2uHDS5tU9GWB/Hd6In +TdgX+G488HeiQeyFefP3bnj/2qKZts40yG6Z+DmOHefBoJP20uChvfLlRWzG +PYf1/9xpUNpnflTeHddP8Kak+9GgT8WWxwOb1O5HfRxKA903X5e+w36Xoi6i +epEGiXLVM/UeHHQHie0fT6GB59PF/U+x45hzbbcv0eDxqfanPdi6u9qijDJo +sPy1CJrCTuahzNhep4GgFVtqtScHWQTf+MAoo4F4orvLEWxFxTMG2+/QIPzk +8J4Y7Ln24Ev8FTS4Sh7floSdtw7ZJt+lwYcQ39Y87D99fc359TS45fCjphP7 +no1C8ctnNMi9wjJY7cVBiT/5BNLaaRBg9LRRHduveMLXrZMG0yFiG7WxxZfU +K4x00YBy4EvzDuyDDa4XFt/S4ARv7CsatqpmeoTaKA2sXykklGD/fHei59sY +DWpWhaRWYnfH03TKx2nQ06V+ug47alBvwniKBhbtVRrPsT9m9njZz9Jg5Qpw ++oqdulTC/BgvAfrnMwzXeOP/wUyfRzg/AZl2nYnrsL/2ldKDBAh4cSW+RQvb +5B75ht8yAi6Xxbzbhj3mw/hlJUFAa35Kjgu2uI25pLkUAecj3iz1wt5mKKmB +pAn4N57hSMG+KFbmQpIjQGn+8oVgbrz+S6XCWgLcXahFCdhEYdkzaVUCiMZz +que58y8e/bJCnYCrhZoxKdz1CCmxJRoECFf0jl3jxqUs90/pECCu1GJbjl3/ +Vyp6TJcACZ7CvrvYo98GLg/oEZAi/ce+Fntr87HWXiMC5NjCn5uxRw7eUXoA +BHBKLqZ0Yy93Pa5fY0rAFldx/V5sY7OdNpVkAvbW8Da8w06WGzpauBPP5zcK +6seuXVJ+MceKgK2GkdcGsYenjxddsSFgRZHOrRFsoyfSb5IcCLCZHA+dwPar +HJo87UgAac3UBiZ2UlY5X8weAm7YebdMYw/Rd+lEuBKwOyY5aw5bzFvGMsSd +gIf/rPsWuPl2DXsFeBKwJPAIzyL3/TUnEr19CKhQlmX95tYjbJXn6kcA+8+5 +2r/cfPMydY5UAqpYgTSefTjf4HCXDYH721Y3x4tt1FkxZrGfgGqncIIf26/m +xB8IICAq/Fr9EuykPKuV2w7i8+fV5ghg1ybJbtQPImDmw2bhpdhDjJEd2iEE ++PdfFRDCFqVWumrQCRiapQ9zbWgfFawaToADX03+Mm7+rdYJihEEdM0RFsLY +59VXZcsy8Pp1MR1c3xcfvStxjIBUU2GSCPbgr8p2kUgC1sX9ieRa9GvUoEAU +AQciPEu4Nnht/eNfNAGJK9fXcv0/110S6A== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5012481131960838, - 1.8440472181603567`}}, + "PlotRange" -> {{0, 180}, {0.9198636118490157, + 1.0857045358145878`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5012481131960849}, + "AxesOrigin" -> {0, 0.9198636118490177}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -12462,21 +13448,21 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5012481131960838, - 1.8440472181603567`}}, + "PlotRange" -> {{0, 180}, {0.9198636118490157, + 1.0857045358145878`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5012481131960849}, + "AxesOrigin" -> {0, 0.9198636118490177}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -12490,105 +13476,104 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C -qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P -P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC -usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx -y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM -UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 -4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 -LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 -LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ -tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N -AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T -HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF -K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj -T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt -q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US -zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS -fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ -Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa -eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t -r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB -R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX -ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk -7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i -4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr -1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr -rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd -lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc -8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd -VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX -lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc -2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K -BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB -GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c -hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 -DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ -xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr -PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 -qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U -DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 -gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf -7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 -4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG -u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 -xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm -YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U -Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L -3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi -OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb -+yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj -9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw -kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf -sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz -oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb -sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P -iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV -hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy -53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU -hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz -2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 -ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz -5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ -sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh -ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 -TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C -zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf -YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR -raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk -TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ -G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR -p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u -bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT -wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e -y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 -pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF -U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei -Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef -kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= - +1:eJwV1Hk8VF8UAHBLJEtZQohkqSiRsZZf98Sg7BHZw8w8RVmGNJUoW4soEiqS +LUvKUrImoQ1F0R7ZE2bM2Err784f73M/38+579xzz333rfULdqTx8fDwMPHD +HUNfbl5f0/1y+92T+t3xwUy0nVWg70cuQw8XzYa4HsgxSFMjN6IkjaBVCdgO +1BeCoqTH6KXYPTrXlYzoVgFyJyLypTlcn32yqjm69BXaPZp66TR2XXfo9d+6 +b9DNFxvdz2BPfGyPPNrwHvXuGSCfxZYfVfVYMPuM1tMrnM5hW09HGod1fkFe +ClkJidhNvydEGKWDiEXO7zuP/faU7PH7QcNo6dBj12RsliB5Yk53FHmM8P+4 +gC14PsSN9H0MOZl4NaRgK0lkPwttGEciH17lXcK2U1i4yTKbQqrpov0Z2MQN +FRktIRZqTnq95Sp2tLp9fGDnNGpi3C3Jwn4v27slvJSD4p49FsjDproHHLh0 +fgb1Li58K8BmZ/HkVgXNIkqN6UwRtpCKljhHdx4F+WoE38FOo7ZaiksvoOQV +bcOV2MpFbtHa3xeQ/QtGZDW20aYE1qGGHyhvUlv+AfZ+gy+dE2a/UUJ6t+BL +7DnG4SXC6/6gt2WGWa+xTzaImGgI/UWrMmuc32FngtEt/85/yNuAV3+QW1/h +MzK9lBfWk+8XLGCXPrk0cEqBD74+6Hf/za33q3dkynk+0D+upM8XwkSRmvN3 +K4L4IbdvyHk5dlr5WtVpXQEQe8zYuQH7Y/dU0998AWgd27NGG1t5psZ9ubQg +VFIs5A2wy/TsUrW+C4Kn7/5IMnZb3THegw1C8O3BDY4f9nxrz5dxM1GYU8jN +uYktaSMqfrxJFCY9NpyowNbpJYOYsRh0XZGMr8cOGKm+sWXzcjhuuXxlF3YI +X6fOf6LiMJd4efNP7FGVO5z4BQmQvBLh7BqK+0O0L+siScLQobn3VGy+W2Nr +V4VKgvrOFwmh2MqkNY6lk5Kw2Jnkm4jtbnax6uWAFIixjaUeYXdR6GGyHdKw +oF1D6NGZqL8oOdFHSAbmfmVfMMOemizNLzGXgZ+zb4YcsYXDh3u2NctAf7mB +EB2bHLdHz6daFn6NFNlVYdcXGMwX58jB7tii51vDmKhg9GfE1nBFEKsopQeG +M9FO59P9YbcVwSxj7Zko7Kk2KYvbY4pg5e/fkoKtV7BJWtlNCRKfehbWYrf5 +ed8V2L4G5Hw+qAkdZqKZ6YEj47HKID0XuOwOttQh8r27tirw1XEbRfoIE40V +CO93CFAB+jSfhBZ27eduBWaCCnwaiRomY3vaeMWua1aBb+svLoRjF2yMcLyi +qwoRfX9632LrTRSxo2TVwOuhNj2XwUR7/EW0rAbVwYSYXud4jIlQhLPu3j/q +UGku9+kQtmZ8jiFVbh28DQysOovNk08yjdq9Djp849ofYd/u99hb9QjH4wNv +kI7j++lSdko+bz2IvlAaUozE9ZFt3074acDgD6dq0SgmynfK+PQ9SgM6FA90 +bsJO9hscWHJNA6bLYgRtsaknD08q9WhAoF7TcBK2RGM2j5OZJhBP9EwlovH3 +Q2JpNqhuBPcTwslKJ5lIQeVCdOLIJtC7RXN1imGixnNzGot8WpClD2PHsD1n +3XqJtVqw5aRSdh729TY1DVNvLQiy+RI/g63iX//6xzstCJYDs7RYvN+yUXWi +YzMky00GfoljIkUFJULZTQeSq8b9004z0abCcNFfSBeObaZkMZKYyI8aO69l +pwuBAgtCRdiZqqn9Pp66IGfSk/kGmz+vvOIJQxdkz9BUSMn4vl2f2JNaqQva +p+9/nsY+m+mTraFKgo6nB6eCL+LzTbTZ7CqoB8rBswHnLjFRLl3NobpTH6T3 +MQ9vuMpE3RHIMK7QGGLTGac8S5lorfcbO6+D/4G4V6x5dSMT0f7dv6N4FIBR +fGzrXBcTyU7WLpX1MwXoy42T/cpE4SSTz6maZEiMI0HrX1w/8/czqQlzyJz+ +dPO9LAvdNg1bmtNlCeV2Gx7J6LNQwVzAo7K0XeDwoa1B15GFfuxY9aIt2hoE +/2vJLQhjoT4efs6gry0ISt3r2JnOQkGrgy+eUrUHuvCDw/K1LHTnwLPmy/EO +oNT4Jcyhn4WOzcp933hgN6w1n02x4Z9G81YWLk/3OcLQtbZtZZumkbFHyo7R +3U5QlBj3INxlGr2Wyw5oI+0Bb4sZcI6aRvI3YxuLNzgDNennYb/SaVQ7oGlj +J+YCn2tC2Wt6p5FSL9s/gukCvrNzhkf+TCPS5ZSy/IG9EKT7e8ZWmo2yl8xu +Tm11hdLBgbeBmmx0f4f2x/g6N8jZHeRD3sFGmYbnJH6XukNjd2Vk0l426vpU +mEA67wFUMW0PpYNsVG2bpRZy0hNk1tH1VsawEeeQE08Q1QsmHwWlaqSz0byF +xn6WmTecVkxV2FfCRsXMDz/CDPaBtZJIStoDNnLNLaR4ifpAk3f8iYddbHS3 +ynof/2kfeOVpdiFjiI2MFV4vnl30gYQDDU42s2ykOuD/8dUBX6hbn5LXwsdB +IyKB9lnDvnD2237JQEkO6k62o1g6+8GZNtbJ8TUclMbIETnc7QeBJCELIy0O +amz6t0jZRYHxlaKvho04aIUnnCbVUyAiTGzpEVMOUl75tGt1IwXab18qz8bW +6bRdJdhEgWZ5W9SG7WjiUfL+EQV22VutlDDD+VdHdJx4TgHH7/xpJdjyfbdW +PHtPgW/nNL++IXOQmrdspud3Ctj/Dm1RsOQgYx9WcbweFZa1rk7wsOagm1fY +YXYGVIgp7607ir2yZ2a7rBEVKK2a7zKwWebfe4u3UWHn1M2XPdgFG3l4O02p +8OZIeoWVDQct/y7hJrmbClQrye16trgfSfrLcg5RIbqw/9CCHQftfmrY6x9M +BeQV1C1hz0FNPFtzdEKpwN5ks1oL+0rYdv2WcCrcTxkPpmDbuVn6jh6nQoa1 +n2AXdp2aW93Gc3j9YjtWrgMHJTdEHqi9SQWjx3JXDRw56JBuhjGjmAoCj+pu +2mHblFQuMyqlgsIJcjaBLZwxVlJzmwpWmpI707Hj6Q4T9+9RwTLQJW0OO1JD +LbC6hQpdks8FbjtxUEBGx8GqfiqMiUxuF3PmoF3Lx0zoA1TIv78mXgV7QzyP +mO4QFfJM+KoNscfo+rcrR6lQUPv8lS+2r10Os2KKCg5TOv/uYbsKhAWV/8T9 +0vm4fq8LB1mGyYeUydDgv9XPC87t5aCWnASr1FU0ME8XvXMd26RzRo0hT4PP +D9qzqrB11Ds+mCnR4O3Gcs2P2HLvjpt9UqdBXvng0g2uHDS5tU9GWB/Hd6In +TdgX+G488HeiQeyFefP3bnj/2qKZts40yG6Z+DmOHefBoJP20uChvfLlRWzG +PYf1/9xpUNpnflTeHddP8Kak+9GgT8WWxwOb1O5HfRxKA903X5e+w36Xoi6i +epEGiXLVM/UeHHQHie0fT6GB59PF/U+x45hzbbcv0eDxqfanPdi6u9qijDJo +sPy1CJrCTuahzNhep4GgFVtqtScHWQTf+MAoo4F4orvLEWxFxTMG2+/QIPzk +8J4Y7Ln24Ev8FTS4Sh7floSdtw7ZJt+lwYcQ39Y87D99fc359TS45fCjphP7 +no1C8ctnNMi9wjJY7cVBiT/5BNLaaRBg9LRRHduveMLXrZMG0yFiG7WxxZfU +K4x00YBy4EvzDuyDDa4XFt/S4ARv7CsatqpmeoTaKA2sXykklGD/fHei59sY +DWpWhaRWYnfH03TKx2nQ06V+ug47alBvwniKBhbtVRrPsT9m9njZz9Jg5Qpw ++oqdulTC/BgvAfrnMwzXeOP/wUyfRzg/AZl2nYnrsL/2ldKDBAh4cSW+RQvb +5B75ht8yAi6Xxbzbhj3mw/hlJUFAa35Kjgu2uI25pLkUAecj3iz1wt5mKKmB +pAn4N57hSMG+KFbmQpIjQGn+8oVgbrz+S6XCWgLcXahFCdhEYdkzaVUCiMZz +que58y8e/bJCnYCrhZoxKdz1CCmxJRoECFf0jl3jxqUs90/pECCu1GJbjl3/ +Vyp6TJcACZ7CvrvYo98GLg/oEZAi/ce+Fntr87HWXiMC5NjCn5uxRw7eUXoA +BHBKLqZ0Yy93Pa5fY0rAFldx/V5sY7OdNpVkAvbW8Da8w06WGzpauBPP5zcK +6seuXVJ+MceKgK2GkdcGsYenjxddsSFgRZHOrRFsoyfSb5IcCLCZHA+dwPar +HJo87UgAac3UBiZ2UlY5X8weAm7YebdMYw/Rd+lEuBKwOyY5aw5bzFvGMsSd +gIf/rPsWuPl2DXsFeBKwJPAIzyL3/TUnEr19CKhQlmX95tYjbJXn6kcA+8+5 +2r/cfPMydY5UAqpYgTSefTjf4HCXDYH721Y3x4tt1FkxZrGfgGqncIIf26/m +xB8IICAq/Fr9EuykPKuV2w7i8+fV5ghg1ybJbtQPImDmw2bhpdhDjJEd2iEE ++PdfFRDCFqVWumrQCRiapQ9zbWgfFawaToADX03+Mm7+rdYJihEEdM0RFsLY +59VXZcsy8Pp1MR1c3xcfvStxjIBUU2GSCPbgr8p2kUgC1sX9ieRa9GvUoEAU +AQciPEu4Nnht/eNfNAGJK9fXcv0/110S6A== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5012481131960838, 1.8440472181603567`}}, + "PlotRange" -> {{0, 180}, {0.9198636118490157, 1.0857045358145878`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5012481131960849}, + "AxesOrigin" -> {0, 0.9198636118490177}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -12598,7 +13583,8 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5012481131960849}, + AxesOrigin->{0, 0.9198636118490177}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -12626,7 +13612,8 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5012481131960838, 1.8440472181603567`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.9198636118490157, 1.0857045358145878`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -12634,9 +13621,9 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991342629715925*^9}, + CellChangeTimes->{3.991342629715925*^9, 3.9942535159220123`*^9}, CellLabel-> - "Out[386]=",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] + "Out[139]=",ExpressionUUID->"2f250fd7-1839-4389-931a-9886de7df465"] }, Open ]], Cell[CellGroupData[{ @@ -12699,156 +13686,162 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.991849950722357*^9, - 3.9918499540026855`*^9}},ExpressionUUID->"1ea503b1-33a1-2744-a92d-\ -2e1269faf5ed"], + CellChangeTimes->{{3.991849950722357*^9, 3.9918499540026855`*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.03396961278019`*^-273\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 387, - 405, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913426299467087`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.1665916359268585`*^-275\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 69, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913426299467087`*^9, 3.994253516117855*^9}, CellLabel-> "During evaluation of \ -In[387]:=",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], +In[140]:=",ExpressionUUID->"87858d52-5756-4fbc-a471-e5676a7da724"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.366286872093514`*^-285\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 387, 406, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342629956772*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.8052125782461683`*^-288\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 70, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913426299467087`*^9, 3.994253516127431*^9}, CellLabel-> "During evaluation of \ -In[387]:=",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], +In[140]:=",ExpressionUUID->"6104b9e3-6e6f-465f-b19c-00feb5aff361"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.843812508005402`*^-296\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 387, 407, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342629966284*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.5041101417637847`*^-301\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 71, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913426299467087`*^9, 3.994253516136372*^9}, CellLabel-> "During evaluation of \ -In[387]:=",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], +In[140]:=",ExpressionUUID->"f252fe02-faeb-4967-aa38-a6af4a362135"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 387, 408, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913426299753895`*^9}, +during this calculation.\"", 2, 140, 72, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913426299467087`*^9, 3.994253516146285*^9}, CellLabel-> "During evaluation of \ -In[387]:=",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], +In[140]:=",ExpressionUUID->"13157156-8e61-4b56-be16-714c81e2d9a2"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL -FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg -ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX -BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ -e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL -i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx -lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK -ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR -PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU -6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj -7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ -b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 -uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr -tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY -sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ -FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl -UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN -L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk -3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz -SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt -KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y -9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS -GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS -cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR -kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 -tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 -SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj -Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw -KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx -jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB -dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 -PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm -syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet -/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 -XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx -pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT -fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L -Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm -lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl -xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 -SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs -ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B -Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y -xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK -8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS -k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI -fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M -aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF -hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt -GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi -mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm -LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF -5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF -V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu -DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL -mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl -9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ -04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 -Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv -CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ -Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f -hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo -+ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X -hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l -Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw -qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U -eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi -4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN -ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX -B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M -5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 -cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj -66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 -VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US -FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh -kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 -2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca -+FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG -E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O -x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy -+x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 -2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak -vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo -d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC -Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd -sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj -Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr -ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nc81e8XAHBJpWFkZWTc4d5rXKEocZ3jmxQlUVZFSlrK6GuEb/YsLalU +kmTcDylKKokQJWmQEWW3bBmh5Pf8/vq83n98zjPOc87z0PZ62rgJCggILJoj +IPD/70Rb9XPmqXRjZn98WZOOrvGHFNkAk+ZwSKCP0XLzxAGl3+6VbU4AawWj +lzF5KuC3NbtpbnMaxK3ZVOKdpw1LB5clTDXdg24vqfWOeQjtxVs8x5rKYak0 +fc2yvK1gxuz9PNJUB1X1ElNKd11gqmn1xeGmLsjcVRZqluMFFeuy0t+njUJN +l6b1yOYwWN7++OtezRkomXB9+/FkHEgd2Z29YN1c7LlVVx/96Bwk6Jg92WIr +jNvS3/ZatCfCxyTtZyPiIsjo9a/8czkJTqWHvBWUW4pFlxZcXeuRDMsSu+Mu +XJfENX/N619N3oCY7ebGdRPSGNN7NCk9+ib8a3Bzd3W4LNZ5dIvuFL8FpkPT +gR7d8njnlZI/zTkdwoys98ivUcR060oOLTID1t65UhBcqoyugrb/pSRngmnT +m5nBl8oYmE/jHkzNhC0CQht21ymjqcvozRXpmeBq4/ERvihjRbtY08OcTDAL +ooWEzlNB3j2Oe25RJngpT9wy0VDBn796FLjNmfD8wI2BCj8VnKztLTqxNAuO +TI6EvhShYVV56ZTTiSxY671f5qsEDTNCPKc/hWaBcG9LzlxZGvqoOG1zjMyC +jNaKRmM6DTW6+CIWp7KgreSi5gN9Gjo8UkxbfCULrKIMmm/upqGM86iRWEEW +6EqErQjKp+FKj/xvy75ngcCp8edJhTTU1x1oMOnLgjdzD+8ofELDMO4ShUOD +WeA+bhM1UknDa4t+UHfHsiC9mdl6oIWGBdqDH5fP4YPMjZfR2+fSkX3fIMJf +jg9TGuJtXFs6KojxpbQ28mHiunzYyh10lK6y4Y9b8GFMTJVpsJuOsQuVbhdZ +8mFw1OCw6SE6GgytF+Jt40PXE9eJHSfoeKjDZJLuzIdXmx6KxmbQUaP67O9/ +/+XDVXdn6Bqn46rYi33qyXy4/Plg17dpOvpl5KelpvAh0erfqIFZOj7+g68l +b/LhzMrYmsmFDHTKUfH/mcGH8N/59mJKDPxh+lbr/F0+uJ+a52VkxkAThWzj +7eV8MMq5nXrpEgM/dFLFI1/40KqSc2P9NQZ6hOoqjXzjQ+AlKmXsBgP1a2st +Bn/w4WFYZrINxUC9P0/mdQ3wQdchNUm0mIFDCvPm3x3ng9q8xHPRnQykO1Za +tgtRILM7KNRPk4kMnv7EFRoFDz4EhKjqMPFN6fMZGwYF2y2OB3/QY6LgqekP +C1UpSNDz/U8XmJhiPHfUi0OByBLP44PWTKwQ5v5krqBA6PFer/3+TNQYE2Aw +jSgYkbBwsStn4uvVQWdDt1PQfIT+7vALJgbEP1gpaUfBs6ppCHnNxBCJ5E23 +7Ck4F5ijzG9kosgun6YnOyjQ7lrSPtXLRHP7y/vfuFDgkf/W6bqkKh4AdkrA +EQrsFvNr82VVsaG4Irn7KAXGbqG8KkVV3CZjJ7nJk8xPTkdxiK2KZW3/HZI4 +RsHt0IRPaKSKnIzXZeH+FPRa2e7s2aeKTennXXvDKKijuDWTh1RxQTlXSDOC +gqK58w1FPFXx2ktPmnskBXEPC+X1A1TxsbNyfWc0BRxl2ZaY06r4gNakkH+K +ggODLQ4ahap4tP6fuKZECnriXeyOLWBhyG8RRbMMMv9eTbr2Ehb6XC/7zs6k +4NeGqYEBcRYmOjNOL8iiYNHchKhD8iyUmCO75xmfrD+gosCFy8KH33t4srcp +OOHGkrTaxsKM9T+X7LlHwfyKn21LHFhY8jgrWuU+2T+V0uxXu1jY+KXq82fi +9Fb7f8z2s9B3UZCqzQMKXlnHefMCWMjztmPQHpH8G/e/1bjBwrZNN5Qcn1KQ +eu3RtR+3WGg/ykycIFabijyQxWehRpZM//kSCowKFGfp91joZB5rWl5Kgau6 +lZZ8JQs3LytKXVhOQX+MwnRTNVnf5/u6l4j9vnyrvPiGhefrCiiVCgpOpoY6 +LW1m4bl+pY0rnlOQJ3MvXriPhQbqX6xWVlGw1ifYoWqIhfsbDkjeJa54b8GM +HGPhzobrJZwXFDTGdz+ZnWFh1dfgWumXFPwRlO6bEGfj6+M3GxurKYh26Sws +kGZj0HLzTpNXFIiV5IYfk2fj/rl7GrOJ6QFm8oMMNn4XWB/mV0OB+ZC/+Rd9 +Nq4avdU99pqC5TpK0cJGbDw0VVJmV0vB4LHn5RombHQtLdAuJE6cEDc6tomN +V7bPlh99Q8H+NQ+PX9zKRrlDRt8qiQ0CnR48smXjuRfMFIW3FLTNUFqzu9nI +eF5TWUqcB1vd6W5szPH2XS36joKIsIms9YfZyI9J5e0g5sxbR4v3YaNl6/aF +fcTHlnySlItjY/awcc7QewpMt4RvNTrDRlXT6Vr1OgqWneOc3n2Bjbdfj8a6 +EhdL+s7PvM7GyT3R1bXEZ2wV1lWnsTG+SGLrLPGey2Uh/VlsPNpe4aVVT86P +guiU7j02en4ODo8ibt5VoGf3kI1PHgT75BLnpOw4FlDMRmOHs4L1xMEdAneT +y9iock2TO0G8lZ7VV1rFRsnsujGZD2R/91lyumvYqDT/r6Me8XjG6L7579no +HqXhZE388tuVm2qNbFTe1vz3MPFVNWzb3MpG7lAYhBMfcf8q79XBRkWtTOXL +xJAbb3/hCxu711TcoIglhnQTC3vZWBxv/+wxcY/2x3cfh9j4bboz7AVx4bEQ +kZkxsl5+Z08dcVyBqoXKNBtDRRt/tBLvmqiJXjdL4k8Zn+8i1lpzrGK/EAeX +xia3fiUWCJQVOLmQg9pantXfieuflBjlinJwXf7qnf935sy+gHeSHGxQ8z// +hfg4LC4clSX/z717pIN4U1j+TxklDkZNuww0EytV2K9Yy+DgL2UxqbfEw0J/ +3Z04HDRqMOwsJ64wS+eHcjk4W3vItoD4UqzFl1u6HLwittz7FvHBV8O0F6s5 +2D7csOocseGSy869Rhzsl1O4GUgsuoV3TeQfDgpFehbuJe44292kvYGDGwLs +fTcS338fJ7V9MwczEu3bNIgdbBtPX7XjYKthQV4fyZ/65f9ePd3JweizCgov +iWea6Qs6XTiYkJSnk0actsszlO3Owezq/9ysiH1SpJ9aeJH5ri6LoBNv6Hgy +ddSXg33fLLeOkvPV7yr8b0EI2Q8B54nTxIMppk9LIzl4f3NynQPx0MfQBTVx +HNxzO8mHRvzTaupa5wUOyjLeL75NzvfoSb2v/UkcvH5HXNCDeKzSW3vyOgfz +9aSfcYl/GfY+F+VzMMzA/2ImqY9JP5aYfC4H17q35O4mns7f66h6j4N6gqLn +ZIj/sFsHDIs56PFp7P4JUn+CUq9lDr3jYIGufqwOqVchK+E9Pg0cvHby7Ewz +qe95J01zQlo4aHfsMwYTCws8hUs9HAwCj5XlpD+I9ucerJjkoLe2TNMK0j/k +np8tUqSp4SKF8TNppD/Jz9YIqbHUMPhHJ51NvHytsNUqDTVsKoPTFOlnSnmh +3RZ6aijxx+9bViUFzGTvJcfN1fAyZ+bZSdIftX22Odd5q+ENtzPhP0i/1b17 +lv/ZTw0Ffr4v2US8srfm5/cgNbTXNWvJIf1Z38U0ZjZKDSdvTeW5FZPzsVkv +T5MUFUuJM1D6mCLv32WCMeXkfzUbJbECCn7s3cA3fKGG6jXvgnaR+yH+pv+W +4RpShD/H5vPJfVKv1HzVsUENrWyE+Qb5FLjIXVmp+Z2MN+xM33CHggBRBbf3 +IuqYYxvispjcT7cnlV4qOKqj+h93a6OrFFittvJ456SOvl2vN2+9QvLrGyIV +tVcdeftmIvcmkf442u4y6K6Of0ef5oZdoqBqIHXqWbA6SlzaOZidQEF7F11j +f7o6uj+KvEKdJPVeyzqTN6SO30OaFu8MoODvkHbGqzF1rM5+Oa50nNzfEobF +PVPqaPpgTkeHHwXlDla9skIauGlL20NnHwr+7fE3C5PVQK6Ddcw/5D3w4ffL +v9YmGmics0E/Zx8Fl9XdPUcTNHD5WvbBeVsoiLT0jRZJIu6Yl3JyMwVeXiHX +2dc1MDiI+UNkEwUbCy/U7MzSwEyH2jLRjeT8mRSznz/RwDDjk2enTCjY4SjS +kdijgd0nNFb66JH8x97dqq+viUF98xwEFSjIvpNbMbVWE9tGFe8elKNgTUOO +/lPQxCEP86O1y8h7i85fbmquiXP6ZGkJUiQ/xanfrXdp4q2+bX7CohT8Hj4f +ejRcEyXcjthSAhS0OPrkpb/RxCsyRZ9Le/iQpGEgLnmAi4c2V3Nd+Hyw3VR7 +rsSdi0s+hz/zyOSDhPuepYe9uOhZED4QlM6HU9lxEmUBXJy/4JRsQiofgtVa +pDzjuZhlZViem8SHfewguZp8LtbXretIi+WDDuMpPeIPF2OnGJqxB8h7WN5E +b/S8Fvqzv7k50/iwdnn5uRWNKzBJxTRG93gWiM5N89kTro3hCg1+US8yQSlM +2ciRpYPnckfE9k5kwELVXYU2L3Qw38htq5h8Bmjx5O76O+kiPay/O9skHY61 +SVRYCKzEkc2r9Z9b3oKh0Xhb86SVGDfUmlzumgYbVlRdNeeuQn39RS4RgTeh +ZNTw9683qzC3bazLPCgVPDR1W9676WG67eMUZfkbwBvc98FxoT7ayv6SsJG7 +DuuZspYiafroPihVp29yDTihJ4+Xr16NdoGMd25BV0DdzaBUtWU1wu7LO/uu +XQa3koORBd5rMH3sU/rZ3otQmvph34i0AdY2MPmurEQY48/+WvHQALs6AqMr +TySAq2rOwquWa7HlM+OStNB5GFG/oH9veC02Nui/oc2egUfpvzvHYw3xTVKP +zGabeNhhykBDJSMMKT4+m/gxDhSOxjzWemaERh6JWhftYkB60ZF8S3setjs4 +7GOyoyB93YnAYUce+v9pP12kGAW6J86su7CLhxeHOx9tk4qCLcN5Dc17ePiY +YS1xdk4URDeOT7ke4eGBwOwatU+RMJkW8k9gGA//imxUHDofCS2GF+ozc3jI +sUuyfDgbAQd905PN7/AwNNpPJXciAibuPHDrz+Oh51R7X8ZABEjQm3/pFPJw +TrW8e2prBGwSVlz+9BkPU10iBR8/jIDiD5n76ht4GDwSsOW4VwRYiD7i+jXz +0KrSM/L6gQho3lA9IdvKQzPx1txK5wgYK+qLde7gIa+h5KOSZQRwb2rn/ujl +od2C3fFjaiRei4lf/AAP/QyytuvQSDypbbBimIx3vEDEWzYC9sf4vvcZ5+Fk +dsnWqfkk3rPoq8smSfzRRS0mf8MhfPqya9E0D4+MFtmcHg8H8VWUptMMD7+5 ++Ra19odDytGi8dlZHt7L6BDn9oTD/wDhm75F "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -12862,115 +13855,117 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL -FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg -ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX -BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ -e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL -i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx -lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK -ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR -PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU -6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj -7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ -b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 -uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr -tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY -sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ -FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl -UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN -L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk -3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz -SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt -KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y -9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS -GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS -cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR -kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 -tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 -SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj -Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw -KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx -jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB -dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 -PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm -syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet -/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 -XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx -pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT -fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L -Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm -lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl -xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 -SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs -ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B -Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y -xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK -8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS -k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI -fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M -aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF -hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt -GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi -mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm -LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF -5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF -V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu -DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL -mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl -9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ -04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 -Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv -CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ -Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f -hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo -+ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X -hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l -Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw -qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U -eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi -4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN -ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX -B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M -5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 -cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj -66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 -VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US -FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh -kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 -2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca -+FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG -E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O -x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy -+x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 -2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak -vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo -d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC -Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd -sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj -Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr -ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== +1:eJwV1nc81e8XAHBJpWFkZWTc4d5rXKEocZ3jmxQlUVZFSlrK6GuEb/YsLalU +kmTcDylKKokQJWmQEWW3bBmh5Pf8/vq83n98zjPOc87z0PZ62rgJCggILJoj +IPD/70Rb9XPmqXRjZn98WZOOrvGHFNkAk+ZwSKCP0XLzxAGl3+6VbU4AawWj +lzF5KuC3NbtpbnMaxK3ZVOKdpw1LB5clTDXdg24vqfWOeQjtxVs8x5rKYak0 +fc2yvK1gxuz9PNJUB1X1ElNKd11gqmn1xeGmLsjcVRZqluMFFeuy0t+njUJN +l6b1yOYwWN7++OtezRkomXB9+/FkHEgd2Z29YN1c7LlVVx/96Bwk6Jg92WIr +jNvS3/ZatCfCxyTtZyPiIsjo9a/8czkJTqWHvBWUW4pFlxZcXeuRDMsSu+Mu +XJfENX/N619N3oCY7ebGdRPSGNN7NCk9+ib8a3Bzd3W4LNZ5dIvuFL8FpkPT +gR7d8njnlZI/zTkdwoys98ivUcR060oOLTID1t65UhBcqoyugrb/pSRngmnT +m5nBl8oYmE/jHkzNhC0CQht21ymjqcvozRXpmeBq4/ERvihjRbtY08OcTDAL +ooWEzlNB3j2Oe25RJngpT9wy0VDBn796FLjNmfD8wI2BCj8VnKztLTqxNAuO +TI6EvhShYVV56ZTTiSxY671f5qsEDTNCPKc/hWaBcG9LzlxZGvqoOG1zjMyC +jNaKRmM6DTW6+CIWp7KgreSi5gN9Gjo8UkxbfCULrKIMmm/upqGM86iRWEEW +6EqErQjKp+FKj/xvy75ngcCp8edJhTTU1x1oMOnLgjdzD+8ofELDMO4ShUOD +WeA+bhM1UknDa4t+UHfHsiC9mdl6oIWGBdqDH5fP4YPMjZfR2+fSkX3fIMJf +jg9TGuJtXFs6KojxpbQ28mHiunzYyh10lK6y4Y9b8GFMTJVpsJuOsQuVbhdZ +8mFw1OCw6SE6GgytF+Jt40PXE9eJHSfoeKjDZJLuzIdXmx6KxmbQUaP67O9/ +/+XDVXdn6Bqn46rYi33qyXy4/Plg17dpOvpl5KelpvAh0erfqIFZOj7+g68l +b/LhzMrYmsmFDHTKUfH/mcGH8N/59mJKDPxh+lbr/F0+uJ+a52VkxkAThWzj +7eV8MMq5nXrpEgM/dFLFI1/40KqSc2P9NQZ6hOoqjXzjQ+AlKmXsBgP1a2st +Bn/w4WFYZrINxUC9P0/mdQ3wQdchNUm0mIFDCvPm3x3ng9q8xHPRnQykO1Za +tgtRILM7KNRPk4kMnv7EFRoFDz4EhKjqMPFN6fMZGwYF2y2OB3/QY6LgqekP +C1UpSNDz/U8XmJhiPHfUi0OByBLP44PWTKwQ5v5krqBA6PFer/3+TNQYE2Aw +jSgYkbBwsStn4uvVQWdDt1PQfIT+7vALJgbEP1gpaUfBs6ppCHnNxBCJ5E23 +7Ck4F5ijzG9kosgun6YnOyjQ7lrSPtXLRHP7y/vfuFDgkf/W6bqkKh4AdkrA +EQrsFvNr82VVsaG4Irn7KAXGbqG8KkVV3CZjJ7nJk8xPTkdxiK2KZW3/HZI4 +RsHt0IRPaKSKnIzXZeH+FPRa2e7s2aeKTennXXvDKKijuDWTh1RxQTlXSDOC +gqK58w1FPFXx2ktPmnskBXEPC+X1A1TxsbNyfWc0BRxl2ZaY06r4gNakkH+K +ggODLQ4ahap4tP6fuKZECnriXeyOLWBhyG8RRbMMMv9eTbr2Ehb6XC/7zs6k +4NeGqYEBcRYmOjNOL8iiYNHchKhD8iyUmCO75xmfrD+gosCFy8KH33t4srcp +OOHGkrTaxsKM9T+X7LlHwfyKn21LHFhY8jgrWuU+2T+V0uxXu1jY+KXq82fi +9Fb7f8z2s9B3UZCqzQMKXlnHefMCWMjztmPQHpH8G/e/1bjBwrZNN5Qcn1KQ +eu3RtR+3WGg/ykycIFabijyQxWehRpZM//kSCowKFGfp91joZB5rWl5Kgau6 +lZZ8JQs3LytKXVhOQX+MwnRTNVnf5/u6l4j9vnyrvPiGhefrCiiVCgpOpoY6 +LW1m4bl+pY0rnlOQJ3MvXriPhQbqX6xWVlGw1ifYoWqIhfsbDkjeJa54b8GM +HGPhzobrJZwXFDTGdz+ZnWFh1dfgWumXFPwRlO6bEGfj6+M3GxurKYh26Sws +kGZj0HLzTpNXFIiV5IYfk2fj/rl7GrOJ6QFm8oMMNn4XWB/mV0OB+ZC/+Rd9 +Nq4avdU99pqC5TpK0cJGbDw0VVJmV0vB4LHn5RombHQtLdAuJE6cEDc6tomN +V7bPlh99Q8H+NQ+PX9zKRrlDRt8qiQ0CnR48smXjuRfMFIW3FLTNUFqzu9nI +eF5TWUqcB1vd6W5szPH2XS36joKIsIms9YfZyI9J5e0g5sxbR4v3YaNl6/aF +fcTHlnySlItjY/awcc7QewpMt4RvNTrDRlXT6Vr1OgqWneOc3n2Bjbdfj8a6 +EhdL+s7PvM7GyT3R1bXEZ2wV1lWnsTG+SGLrLPGey2Uh/VlsPNpe4aVVT86P +guiU7j02en4ODo8ibt5VoGf3kI1PHgT75BLnpOw4FlDMRmOHs4L1xMEdAneT +y9iock2TO0G8lZ7VV1rFRsnsujGZD2R/91lyumvYqDT/r6Me8XjG6L7579no +HqXhZE388tuVm2qNbFTe1vz3MPFVNWzb3MpG7lAYhBMfcf8q79XBRkWtTOXL +xJAbb3/hCxu711TcoIglhnQTC3vZWBxv/+wxcY/2x3cfh9j4bboz7AVx4bEQ +kZkxsl5+Z08dcVyBqoXKNBtDRRt/tBLvmqiJXjdL4k8Zn+8i1lpzrGK/EAeX +xia3fiUWCJQVOLmQg9pantXfieuflBjlinJwXf7qnf935sy+gHeSHGxQ8z// +hfg4LC4clSX/z717pIN4U1j+TxklDkZNuww0EytV2K9Yy+DgL2UxqbfEw0J/ +3Z04HDRqMOwsJ64wS+eHcjk4W3vItoD4UqzFl1u6HLwittz7FvHBV8O0F6s5 +2D7csOocseGSy869Rhzsl1O4GUgsuoV3TeQfDgpFehbuJe44292kvYGDGwLs +fTcS338fJ7V9MwczEu3bNIgdbBtPX7XjYKthQV4fyZ/65f9ePd3JweizCgov +iWea6Qs6XTiYkJSnk0actsszlO3Owezq/9ysiH1SpJ9aeJH5ri6LoBNv6Hgy +ddSXg33fLLeOkvPV7yr8b0EI2Q8B54nTxIMppk9LIzl4f3NynQPx0MfQBTVx +HNxzO8mHRvzTaupa5wUOyjLeL75NzvfoSb2v/UkcvH5HXNCDeKzSW3vyOgfz +9aSfcYl/GfY+F+VzMMzA/2ImqY9JP5aYfC4H17q35O4mns7f66h6j4N6gqLn +ZIj/sFsHDIs56PFp7P4JUn+CUq9lDr3jYIGufqwOqVchK+E9Pg0cvHby7Ewz +qe95J01zQlo4aHfsMwYTCws8hUs9HAwCj5XlpD+I9ucerJjkoLe2TNMK0j/k +np8tUqSp4SKF8TNppD/Jz9YIqbHUMPhHJ51NvHytsNUqDTVsKoPTFOlnSnmh +3RZ6aijxx+9bViUFzGTvJcfN1fAyZ+bZSdIftX22Odd5q+ENtzPhP0i/1b17 +lv/ZTw0Ffr4v2US8srfm5/cgNbTXNWvJIf1Z38U0ZjZKDSdvTeW5FZPzsVkv +T5MUFUuJM1D6mCLv32WCMeXkfzUbJbECCn7s3cA3fKGG6jXvgnaR+yH+pv+W +4RpShD/H5vPJfVKv1HzVsUENrWyE+Qb5FLjIXVmp+Z2MN+xM33CHggBRBbf3 +IuqYYxvispjcT7cnlV4qOKqj+h93a6OrFFittvJ456SOvl2vN2+9QvLrGyIV +tVcdeftmIvcmkf442u4y6K6Of0ef5oZdoqBqIHXqWbA6SlzaOZidQEF7F11j +f7o6uj+KvEKdJPVeyzqTN6SO30OaFu8MoODvkHbGqzF1rM5+Oa50nNzfEobF +PVPqaPpgTkeHHwXlDla9skIauGlL20NnHwr+7fE3C5PVQK6Ddcw/5D3w4ffL +v9YmGmics0E/Zx8Fl9XdPUcTNHD5WvbBeVsoiLT0jRZJIu6Yl3JyMwVeXiHX +2dc1MDiI+UNkEwUbCy/U7MzSwEyH2jLRjeT8mRSznz/RwDDjk2enTCjY4SjS +kdijgd0nNFb66JH8x97dqq+viUF98xwEFSjIvpNbMbVWE9tGFe8elKNgTUOO +/lPQxCEP86O1y8h7i85fbmquiXP6ZGkJUiQ/xanfrXdp4q2+bX7CohT8Hj4f +ejRcEyXcjthSAhS0OPrkpb/RxCsyRZ9Le/iQpGEgLnmAi4c2V3Nd+Hyw3VR7 +rsSdi0s+hz/zyOSDhPuepYe9uOhZED4QlM6HU9lxEmUBXJy/4JRsQiofgtVa +pDzjuZhlZViem8SHfewguZp8LtbXretIi+WDDuMpPeIPF2OnGJqxB8h7WN5E +b/S8Fvqzv7k50/iwdnn5uRWNKzBJxTRG93gWiM5N89kTro3hCg1+US8yQSlM +2ciRpYPnckfE9k5kwELVXYU2L3Qw38htq5h8Bmjx5O76O+kiPay/O9skHY61 +SVRYCKzEkc2r9Z9b3oKh0Xhb86SVGDfUmlzumgYbVlRdNeeuQn39RS4RgTeh +ZNTw9683qzC3bazLPCgVPDR1W9676WG67eMUZfkbwBvc98FxoT7ayv6SsJG7 +DuuZspYiafroPihVp29yDTihJ4+Xr16NdoGMd25BV0DdzaBUtWU1wu7LO/uu +XQa3koORBd5rMH3sU/rZ3otQmvph34i0AdY2MPmurEQY48/+WvHQALs6AqMr +TySAq2rOwquWa7HlM+OStNB5GFG/oH9veC02Nui/oc2egUfpvzvHYw3xTVKP +zGabeNhhykBDJSMMKT4+m/gxDhSOxjzWemaERh6JWhftYkB60ZF8S3setjs4 +7GOyoyB93YnAYUce+v9pP12kGAW6J86su7CLhxeHOx9tk4qCLcN5Dc17ePiY +YS1xdk4URDeOT7ke4eGBwOwatU+RMJkW8k9gGA//imxUHDofCS2GF+ozc3jI +sUuyfDgbAQd905PN7/AwNNpPJXciAibuPHDrz+Oh51R7X8ZABEjQm3/pFPJw +TrW8e2prBGwSVlz+9BkPU10iBR8/jIDiD5n76ht4GDwSsOW4VwRYiD7i+jXz +0KrSM/L6gQho3lA9IdvKQzPx1txK5wgYK+qLde7gIa+h5KOSZQRwb2rn/ujl +od2C3fFjaiRei4lf/AAP/QyytuvQSDypbbBimIx3vEDEWzYC9sf4vvcZ5+Fk +dsnWqfkk3rPoq8smSfzRRS0mf8MhfPqya9E0D4+MFtmcHg8H8VWUptMMD7+5 ++Ra19odDytGi8dlZHt7L6BDn9oTD/wDhm75F "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "PlotRange" -> {{0, 30}, {0., 0.050452494229457634`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -12982,19 +13977,19 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "PlotRange" -> {{0, 30}, {0., 0.050452494229457634`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13008,114 +14003,116 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL -FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg -ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX -BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ -e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL -i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx -lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK -ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR -PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU -6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj -7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ -b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 -uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr -tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY -sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ -FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl -UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN -L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk -3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz -SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt -KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y -9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS -GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS -cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR -kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 -tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 -SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj -Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw -KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx -jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB -dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 -PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm -syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet -/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 -XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx -pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT -fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L -Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm -lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl -xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 -SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs -ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B -Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y -xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK -8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS -k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI -fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M -aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF -hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt -GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi -mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm -LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF -5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF -V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu -DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL -mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl -9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ -04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 -Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv -CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ -Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f -hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo -+ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X -hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l -Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw -qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U -eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi -4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN -ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX -B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M -5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 -cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj -66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 -VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US -FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh -kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 -2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca -+FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG -E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O -x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy -+x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 -2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak -vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo -d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC -Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd -sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj -Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr -ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== +1:eJwV1nc81e8XAHBJpWFkZWTc4d5rXKEocZ3jmxQlUVZFSlrK6GuEb/YsLalU +kmTcDylKKokQJWmQEWW3bBmh5Pf8/vq83n98zjPOc87z0PZ62rgJCggILJoj +IPD/70Rb9XPmqXRjZn98WZOOrvGHFNkAk+ZwSKCP0XLzxAGl3+6VbU4AawWj +lzF5KuC3NbtpbnMaxK3ZVOKdpw1LB5clTDXdg24vqfWOeQjtxVs8x5rKYak0 +fc2yvK1gxuz9PNJUB1X1ElNKd11gqmn1xeGmLsjcVRZqluMFFeuy0t+njUJN +l6b1yOYwWN7++OtezRkomXB9+/FkHEgd2Z29YN1c7LlVVx/96Bwk6Jg92WIr +jNvS3/ZatCfCxyTtZyPiIsjo9a/8czkJTqWHvBWUW4pFlxZcXeuRDMsSu+Mu +XJfENX/N619N3oCY7ebGdRPSGNN7NCk9+ib8a3Bzd3W4LNZ5dIvuFL8FpkPT +gR7d8njnlZI/zTkdwoys98ivUcR060oOLTID1t65UhBcqoyugrb/pSRngmnT +m5nBl8oYmE/jHkzNhC0CQht21ymjqcvozRXpmeBq4/ERvihjRbtY08OcTDAL +ooWEzlNB3j2Oe25RJngpT9wy0VDBn796FLjNmfD8wI2BCj8VnKztLTqxNAuO +TI6EvhShYVV56ZTTiSxY671f5qsEDTNCPKc/hWaBcG9LzlxZGvqoOG1zjMyC +jNaKRmM6DTW6+CIWp7KgreSi5gN9Gjo8UkxbfCULrKIMmm/upqGM86iRWEEW +6EqErQjKp+FKj/xvy75ngcCp8edJhTTU1x1oMOnLgjdzD+8ofELDMO4ShUOD +WeA+bhM1UknDa4t+UHfHsiC9mdl6oIWGBdqDH5fP4YPMjZfR2+fSkX3fIMJf +jg9TGuJtXFs6KojxpbQ28mHiunzYyh10lK6y4Y9b8GFMTJVpsJuOsQuVbhdZ +8mFw1OCw6SE6GgytF+Jt40PXE9eJHSfoeKjDZJLuzIdXmx6KxmbQUaP67O9/ +/+XDVXdn6Bqn46rYi33qyXy4/Plg17dpOvpl5KelpvAh0erfqIFZOj7+g68l +b/LhzMrYmsmFDHTKUfH/mcGH8N/59mJKDPxh+lbr/F0+uJ+a52VkxkAThWzj +7eV8MMq5nXrpEgM/dFLFI1/40KqSc2P9NQZ6hOoqjXzjQ+AlKmXsBgP1a2st +Bn/w4WFYZrINxUC9P0/mdQ3wQdchNUm0mIFDCvPm3x3ng9q8xHPRnQykO1Za +tgtRILM7KNRPk4kMnv7EFRoFDz4EhKjqMPFN6fMZGwYF2y2OB3/QY6LgqekP +C1UpSNDz/U8XmJhiPHfUi0OByBLP44PWTKwQ5v5krqBA6PFer/3+TNQYE2Aw +jSgYkbBwsStn4uvVQWdDt1PQfIT+7vALJgbEP1gpaUfBs6ppCHnNxBCJ5E23 +7Ck4F5ijzG9kosgun6YnOyjQ7lrSPtXLRHP7y/vfuFDgkf/W6bqkKh4AdkrA +EQrsFvNr82VVsaG4Irn7KAXGbqG8KkVV3CZjJ7nJk8xPTkdxiK2KZW3/HZI4 +RsHt0IRPaKSKnIzXZeH+FPRa2e7s2aeKTennXXvDKKijuDWTh1RxQTlXSDOC +gqK58w1FPFXx2ktPmnskBXEPC+X1A1TxsbNyfWc0BRxl2ZaY06r4gNakkH+K +ggODLQ4ahap4tP6fuKZECnriXeyOLWBhyG8RRbMMMv9eTbr2Ehb6XC/7zs6k +4NeGqYEBcRYmOjNOL8iiYNHchKhD8iyUmCO75xmfrD+gosCFy8KH33t4srcp +OOHGkrTaxsKM9T+X7LlHwfyKn21LHFhY8jgrWuU+2T+V0uxXu1jY+KXq82fi +9Fb7f8z2s9B3UZCqzQMKXlnHefMCWMjztmPQHpH8G/e/1bjBwrZNN5Qcn1KQ +eu3RtR+3WGg/ykycIFabijyQxWehRpZM//kSCowKFGfp91joZB5rWl5Kgau6 +lZZ8JQs3LytKXVhOQX+MwnRTNVnf5/u6l4j9vnyrvPiGhefrCiiVCgpOpoY6 +LW1m4bl+pY0rnlOQJ3MvXriPhQbqX6xWVlGw1ifYoWqIhfsbDkjeJa54b8GM +HGPhzobrJZwXFDTGdz+ZnWFh1dfgWumXFPwRlO6bEGfj6+M3GxurKYh26Sws +kGZj0HLzTpNXFIiV5IYfk2fj/rl7GrOJ6QFm8oMMNn4XWB/mV0OB+ZC/+Rd9 +Nq4avdU99pqC5TpK0cJGbDw0VVJmV0vB4LHn5RombHQtLdAuJE6cEDc6tomN +V7bPlh99Q8H+NQ+PX9zKRrlDRt8qiQ0CnR48smXjuRfMFIW3FLTNUFqzu9nI +eF5TWUqcB1vd6W5szPH2XS36joKIsIms9YfZyI9J5e0g5sxbR4v3YaNl6/aF +fcTHlnySlItjY/awcc7QewpMt4RvNTrDRlXT6Vr1OgqWneOc3n2Bjbdfj8a6 +EhdL+s7PvM7GyT3R1bXEZ2wV1lWnsTG+SGLrLPGey2Uh/VlsPNpe4aVVT86P +guiU7j02en4ODo8ibt5VoGf3kI1PHgT75BLnpOw4FlDMRmOHs4L1xMEdAneT +y9iock2TO0G8lZ7VV1rFRsnsujGZD2R/91lyumvYqDT/r6Me8XjG6L7579no +HqXhZE388tuVm2qNbFTe1vz3MPFVNWzb3MpG7lAYhBMfcf8q79XBRkWtTOXL +xJAbb3/hCxu711TcoIglhnQTC3vZWBxv/+wxcY/2x3cfh9j4bboz7AVx4bEQ +kZkxsl5+Z08dcVyBqoXKNBtDRRt/tBLvmqiJXjdL4k8Zn+8i1lpzrGK/EAeX +xia3fiUWCJQVOLmQg9pantXfieuflBjlinJwXf7qnf935sy+gHeSHGxQ8z// +hfg4LC4clSX/z717pIN4U1j+TxklDkZNuww0EytV2K9Yy+DgL2UxqbfEw0J/ +3Z04HDRqMOwsJ64wS+eHcjk4W3vItoD4UqzFl1u6HLwittz7FvHBV8O0F6s5 +2D7csOocseGSy869Rhzsl1O4GUgsuoV3TeQfDgpFehbuJe44292kvYGDGwLs +fTcS338fJ7V9MwczEu3bNIgdbBtPX7XjYKthQV4fyZ/65f9ePd3JweizCgov +iWea6Qs6XTiYkJSnk0actsszlO3Owezq/9ysiH1SpJ9aeJH5ri6LoBNv6Hgy +ddSXg33fLLeOkvPV7yr8b0EI2Q8B54nTxIMppk9LIzl4f3NynQPx0MfQBTVx +HNxzO8mHRvzTaupa5wUOyjLeL75NzvfoSb2v/UkcvH5HXNCDeKzSW3vyOgfz +9aSfcYl/GfY+F+VzMMzA/2ImqY9JP5aYfC4H17q35O4mns7f66h6j4N6gqLn +ZIj/sFsHDIs56PFp7P4JUn+CUq9lDr3jYIGufqwOqVchK+E9Pg0cvHby7Ewz +qe95J01zQlo4aHfsMwYTCws8hUs9HAwCj5XlpD+I9ucerJjkoLe2TNMK0j/k +np8tUqSp4SKF8TNppD/Jz9YIqbHUMPhHJ51NvHytsNUqDTVsKoPTFOlnSnmh +3RZ6aijxx+9bViUFzGTvJcfN1fAyZ+bZSdIftX22Odd5q+ENtzPhP0i/1b17 +lv/ZTw0Ffr4v2US8srfm5/cgNbTXNWvJIf1Z38U0ZjZKDSdvTeW5FZPzsVkv +T5MUFUuJM1D6mCLv32WCMeXkfzUbJbECCn7s3cA3fKGG6jXvgnaR+yH+pv+W +4RpShD/H5vPJfVKv1HzVsUENrWyE+Qb5FLjIXVmp+Z2MN+xM33CHggBRBbf3 +IuqYYxvispjcT7cnlV4qOKqj+h93a6OrFFittvJ456SOvl2vN2+9QvLrGyIV +tVcdeftmIvcmkf442u4y6K6Of0ef5oZdoqBqIHXqWbA6SlzaOZidQEF7F11j +f7o6uj+KvEKdJPVeyzqTN6SO30OaFu8MoODvkHbGqzF1rM5+Oa50nNzfEobF +PVPqaPpgTkeHHwXlDla9skIauGlL20NnHwr+7fE3C5PVQK6Ddcw/5D3w4ffL +v9YmGmics0E/Zx8Fl9XdPUcTNHD5WvbBeVsoiLT0jRZJIu6Yl3JyMwVeXiHX +2dc1MDiI+UNkEwUbCy/U7MzSwEyH2jLRjeT8mRSznz/RwDDjk2enTCjY4SjS +kdijgd0nNFb66JH8x97dqq+viUF98xwEFSjIvpNbMbVWE9tGFe8elKNgTUOO +/lPQxCEP86O1y8h7i85fbmquiXP6ZGkJUiQ/xanfrXdp4q2+bX7CohT8Hj4f +ejRcEyXcjthSAhS0OPrkpb/RxCsyRZ9Le/iQpGEgLnmAi4c2V3Nd+Hyw3VR7 +rsSdi0s+hz/zyOSDhPuepYe9uOhZED4QlM6HU9lxEmUBXJy/4JRsQiofgtVa +pDzjuZhlZViem8SHfewguZp8LtbXretIi+WDDuMpPeIPF2OnGJqxB8h7WN5E +b/S8Fvqzv7k50/iwdnn5uRWNKzBJxTRG93gWiM5N89kTro3hCg1+US8yQSlM +2ciRpYPnckfE9k5kwELVXYU2L3Qw38htq5h8Bmjx5O76O+kiPay/O9skHY61 +SVRYCKzEkc2r9Z9b3oKh0Xhb86SVGDfUmlzumgYbVlRdNeeuQn39RS4RgTeh +ZNTw9683qzC3bazLPCgVPDR1W9676WG67eMUZfkbwBvc98FxoT7ayv6SsJG7 +DuuZspYiafroPihVp29yDTihJ4+Xr16NdoGMd25BV0DdzaBUtWU1wu7LO/uu +XQa3koORBd5rMH3sU/rZ3otQmvph34i0AdY2MPmurEQY48/+WvHQALs6AqMr +TySAq2rOwquWa7HlM+OStNB5GFG/oH9veC02Nui/oc2egUfpvzvHYw3xTVKP +zGabeNhhykBDJSMMKT4+m/gxDhSOxjzWemaERh6JWhftYkB60ZF8S3setjs4 +7GOyoyB93YnAYUce+v9pP12kGAW6J86su7CLhxeHOx9tk4qCLcN5Dc17ePiY +YS1xdk4URDeOT7ke4eGBwOwatU+RMJkW8k9gGA//imxUHDofCS2GF+ozc3jI +sUuyfDgbAQd905PN7/AwNNpPJXciAibuPHDrz+Oh51R7X8ZABEjQm3/pFPJw +TrW8e2prBGwSVlz+9BkPU10iBR8/jIDiD5n76ht4GDwSsOW4VwRYiD7i+jXz +0KrSM/L6gQho3lA9IdvKQzPx1txK5wgYK+qLde7gIa+h5KOSZQRwb2rn/ujl +od2C3fFjaiRei4lf/AAP/QyytuvQSDypbbBimIx3vEDEWzYC9sf4vvcZ5+Fk +dsnWqfkk3rPoq8smSfzRRS0mf8MhfPqya9E0D4+MFtmcHg8H8VWUptMMD7+5 ++Ra19odDytGi8dlZHt7L6BDn9oTD/wDhm75F "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "PlotRange" -> {{0, 30}, {0., 0.050452494229457634`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13126,6 +14123,7 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -13153,7 +14151,8 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.12141098789525176`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.050452494229457634`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -13161,17 +14160,571 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913429049348164`*^9}, + CellChangeTimes->{3.9913429049348164`*^9, 3.9942539575853*^9}, CellLabel-> - "Out[387]=",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] + "Out[140]=",ExpressionUUID->"c9762919-0bbd-4f56-8213-b113d9b2a155"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"b530b35f-2a32-0145-82a7-\ -25a7a01bdd8f"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nc81e8XAHBJpWFkZWTc4d5rXKEocZ3jmxQlUVZFSlrK6GuEb/YsLalU +kmTcDylKKokQJWmQEWW3bBmh5Pf8/vq83n98zjPOc87z0PZ62rgJCggILJoj +IPD/70Rb9XPmqXRjZn98WZOOrvGHFNkAk+ZwSKCP0XLzxAGl3+6VbU4AawWj +lzF5KuC3NbtpbnMaxK3ZVOKdpw1LB5clTDXdg24vqfWOeQjtxVs8x5rKYak0 +fc2yvK1gxuz9PNJUB1X1ElNKd11gqmn1xeGmLsjcVRZqluMFFeuy0t+njUJN +l6b1yOYwWN7++OtezRkomXB9+/FkHEgd2Z29YN1c7LlVVx/96Bwk6Jg92WIr +jNvS3/ZatCfCxyTtZyPiIsjo9a/8czkJTqWHvBWUW4pFlxZcXeuRDMsSu+Mu +XJfENX/N619N3oCY7ebGdRPSGNN7NCk9+ib8a3Bzd3W4LNZ5dIvuFL8FpkPT +gR7d8njnlZI/zTkdwoys98ivUcR060oOLTID1t65UhBcqoyugrb/pSRngmnT +m5nBl8oYmE/jHkzNhC0CQht21ymjqcvozRXpmeBq4/ERvihjRbtY08OcTDAL +ooWEzlNB3j2Oe25RJngpT9wy0VDBn796FLjNmfD8wI2BCj8VnKztLTqxNAuO +TI6EvhShYVV56ZTTiSxY671f5qsEDTNCPKc/hWaBcG9LzlxZGvqoOG1zjMyC +jNaKRmM6DTW6+CIWp7KgreSi5gN9Gjo8UkxbfCULrKIMmm/upqGM86iRWEEW +6EqErQjKp+FKj/xvy75ngcCp8edJhTTU1x1oMOnLgjdzD+8ofELDMO4ShUOD +WeA+bhM1UknDa4t+UHfHsiC9mdl6oIWGBdqDH5fP4YPMjZfR2+fSkX3fIMJf +jg9TGuJtXFs6KojxpbQ28mHiunzYyh10lK6y4Y9b8GFMTJVpsJuOsQuVbhdZ +8mFw1OCw6SE6GgytF+Jt40PXE9eJHSfoeKjDZJLuzIdXmx6KxmbQUaP67O9/ +/+XDVXdn6Bqn46rYi33qyXy4/Plg17dpOvpl5KelpvAh0erfqIFZOj7+g68l +b/LhzMrYmsmFDHTKUfH/mcGH8N/59mJKDPxh+lbr/F0+uJ+a52VkxkAThWzj +7eV8MMq5nXrpEgM/dFLFI1/40KqSc2P9NQZ6hOoqjXzjQ+AlKmXsBgP1a2st +Bn/w4WFYZrINxUC9P0/mdQ3wQdchNUm0mIFDCvPm3x3ng9q8xHPRnQykO1Za +tgtRILM7KNRPk4kMnv7EFRoFDz4EhKjqMPFN6fMZGwYF2y2OB3/QY6LgqekP +C1UpSNDz/U8XmJhiPHfUi0OByBLP44PWTKwQ5v5krqBA6PFer/3+TNQYE2Aw +jSgYkbBwsStn4uvVQWdDt1PQfIT+7vALJgbEP1gpaUfBs6ppCHnNxBCJ5E23 +7Ck4F5ijzG9kosgun6YnOyjQ7lrSPtXLRHP7y/vfuFDgkf/W6bqkKh4AdkrA +EQrsFvNr82VVsaG4Irn7KAXGbqG8KkVV3CZjJ7nJk8xPTkdxiK2KZW3/HZI4 +RsHt0IRPaKSKnIzXZeH+FPRa2e7s2aeKTennXXvDKKijuDWTh1RxQTlXSDOC +gqK58w1FPFXx2ktPmnskBXEPC+X1A1TxsbNyfWc0BRxl2ZaY06r4gNakkH+K +ggODLQ4ahap4tP6fuKZECnriXeyOLWBhyG8RRbMMMv9eTbr2Ehb6XC/7zs6k +4NeGqYEBcRYmOjNOL8iiYNHchKhD8iyUmCO75xmfrD+gosCFy8KH33t4srcp +OOHGkrTaxsKM9T+X7LlHwfyKn21LHFhY8jgrWuU+2T+V0uxXu1jY+KXq82fi +9Fb7f8z2s9B3UZCqzQMKXlnHefMCWMjztmPQHpH8G/e/1bjBwrZNN5Qcn1KQ +eu3RtR+3WGg/ykycIFabijyQxWehRpZM//kSCowKFGfp91joZB5rWl5Kgau6 +lZZ8JQs3LytKXVhOQX+MwnRTNVnf5/u6l4j9vnyrvPiGhefrCiiVCgpOpoY6 +LW1m4bl+pY0rnlOQJ3MvXriPhQbqX6xWVlGw1ifYoWqIhfsbDkjeJa54b8GM +HGPhzobrJZwXFDTGdz+ZnWFh1dfgWumXFPwRlO6bEGfj6+M3GxurKYh26Sws +kGZj0HLzTpNXFIiV5IYfk2fj/rl7GrOJ6QFm8oMMNn4XWB/mV0OB+ZC/+Rd9 +Nq4avdU99pqC5TpK0cJGbDw0VVJmV0vB4LHn5RombHQtLdAuJE6cEDc6tomN +V7bPlh99Q8H+NQ+PX9zKRrlDRt8qiQ0CnR48smXjuRfMFIW3FLTNUFqzu9nI +eF5TWUqcB1vd6W5szPH2XS36joKIsIms9YfZyI9J5e0g5sxbR4v3YaNl6/aF +fcTHlnySlItjY/awcc7QewpMt4RvNTrDRlXT6Vr1OgqWneOc3n2Bjbdfj8a6 +EhdL+s7PvM7GyT3R1bXEZ2wV1lWnsTG+SGLrLPGey2Uh/VlsPNpe4aVVT86P +guiU7j02en4ODo8ibt5VoGf3kI1PHgT75BLnpOw4FlDMRmOHs4L1xMEdAneT +y9iock2TO0G8lZ7VV1rFRsnsujGZD2R/91lyumvYqDT/r6Me8XjG6L7579no +HqXhZE388tuVm2qNbFTe1vz3MPFVNWzb3MpG7lAYhBMfcf8q79XBRkWtTOXL +xJAbb3/hCxu711TcoIglhnQTC3vZWBxv/+wxcY/2x3cfh9j4bboz7AVx4bEQ +kZkxsl5+Z08dcVyBqoXKNBtDRRt/tBLvmqiJXjdL4k8Zn+8i1lpzrGK/EAeX +xia3fiUWCJQVOLmQg9pantXfieuflBjlinJwXf7qnf935sy+gHeSHGxQ8z// +hfg4LC4clSX/z717pIN4U1j+TxklDkZNuww0EytV2K9Yy+DgL2UxqbfEw0J/ +3Z04HDRqMOwsJ64wS+eHcjk4W3vItoD4UqzFl1u6HLwittz7FvHBV8O0F6s5 +2D7csOocseGSy869Rhzsl1O4GUgsuoV3TeQfDgpFehbuJe44292kvYGDGwLs +fTcS338fJ7V9MwczEu3bNIgdbBtPX7XjYKthQV4fyZ/65f9ePd3JweizCgov +iWea6Qs6XTiYkJSnk0actsszlO3Owezq/9ysiH1SpJ9aeJH5ri6LoBNv6Hgy +ddSXg33fLLeOkvPV7yr8b0EI2Q8B54nTxIMppk9LIzl4f3NynQPx0MfQBTVx +HNxzO8mHRvzTaupa5wUOyjLeL75NzvfoSb2v/UkcvH5HXNCDeKzSW3vyOgfz +9aSfcYl/GfY+F+VzMMzA/2ImqY9JP5aYfC4H17q35O4mns7f66h6j4N6gqLn +ZIj/sFsHDIs56PFp7P4JUn+CUq9lDr3jYIGufqwOqVchK+E9Pg0cvHby7Ewz +qe95J01zQlo4aHfsMwYTCws8hUs9HAwCj5XlpD+I9ucerJjkoLe2TNMK0j/k +np8tUqSp4SKF8TNppD/Jz9YIqbHUMPhHJ51NvHytsNUqDTVsKoPTFOlnSnmh +3RZ6aijxx+9bViUFzGTvJcfN1fAyZ+bZSdIftX22Odd5q+ENtzPhP0i/1b17 +lv/ZTw0Ffr4v2US8srfm5/cgNbTXNWvJIf1Z38U0ZjZKDSdvTeW5FZPzsVkv +T5MUFUuJM1D6mCLv32WCMeXkfzUbJbECCn7s3cA3fKGG6jXvgnaR+yH+pv+W +4RpShD/H5vPJfVKv1HzVsUENrWyE+Qb5FLjIXVmp+Z2MN+xM33CHggBRBbf3 +IuqYYxvispjcT7cnlV4qOKqj+h93a6OrFFittvJ456SOvl2vN2+9QvLrGyIV +tVcdeftmIvcmkf442u4y6K6Of0ef5oZdoqBqIHXqWbA6SlzaOZidQEF7F11j +f7o6uj+KvEKdJPVeyzqTN6SO30OaFu8MoODvkHbGqzF1rM5+Oa50nNzfEobF +PVPqaPpgTkeHHwXlDla9skIauGlL20NnHwr+7fE3C5PVQK6Ddcw/5D3w4ffL +v9YmGmics0E/Zx8Fl9XdPUcTNHD5WvbBeVsoiLT0jRZJIu6Yl3JyMwVeXiHX +2dc1MDiI+UNkEwUbCy/U7MzSwEyH2jLRjeT8mRSznz/RwDDjk2enTCjY4SjS +kdijgd0nNFb66JH8x97dqq+viUF98xwEFSjIvpNbMbVWE9tGFe8elKNgTUOO +/lPQxCEP86O1y8h7i85fbmquiXP6ZGkJUiQ/xanfrXdp4q2+bX7CohT8Hj4f +ejRcEyXcjthSAhS0OPrkpb/RxCsyRZ9Le/iQpGEgLnmAi4c2V3Nd+Hyw3VR7 +rsSdi0s+hz/zyOSDhPuepYe9uOhZED4QlM6HU9lxEmUBXJy/4JRsQiofgtVa +pDzjuZhlZViem8SHfewguZp8LtbXretIi+WDDuMpPeIPF2OnGJqxB8h7WN5E +b/S8Fvqzv7k50/iwdnn5uRWNKzBJxTRG93gWiM5N89kTro3hCg1+US8yQSlM +2ciRpYPnckfE9k5kwELVXYU2L3Qw38htq5h8Bmjx5O76O+kiPay/O9skHY61 +SVRYCKzEkc2r9Z9b3oKh0Xhb86SVGDfUmlzumgYbVlRdNeeuQn39RS4RgTeh +ZNTw9683qzC3bazLPCgVPDR1W9676WG67eMUZfkbwBvc98FxoT7ayv6SsJG7 +DuuZspYiafroPihVp29yDTihJ4+Xr16NdoGMd25BV0DdzaBUtWU1wu7LO/uu +XQa3koORBd5rMH3sU/rZ3otQmvph34i0AdY2MPmurEQY48/+WvHQALs6AqMr +TySAq2rOwquWa7HlM+OStNB5GFG/oH9veC02Nui/oc2egUfpvzvHYw3xTVKP +zGabeNhhykBDJSMMKT4+m/gxDhSOxjzWemaERh6JWhftYkB60ZF8S3setjs4 +7GOyoyB93YnAYUce+v9pP12kGAW6J86su7CLhxeHOx9tk4qCLcN5Dc17ePiY +YS1xdk4URDeOT7ke4eGBwOwatU+RMJkW8k9gGA//imxUHDofCS2GF+ozc3jI +sUuyfDgbAQd905PN7/AwNNpPJXciAibuPHDrz+Oh51R7X8ZABEjQm3/pFPJw +TrW8e2prBGwSVlz+9BkPU10iBR8/jIDiD5n76ht4GDwSsOW4VwRYiD7i+jXz +0KrSM/L6gQho3lA9IdvKQzPx1txK5wgYK+qLde7gIa+h5KOSZQRwb2rn/ujl +od2C3fFjaiRei4lf/AAP/QyytuvQSDypbbBimIx3vEDEWzYC9sf4vvcZ5+Fk +dsnWqfkk3rPoq8smSfzRRS0mf8MhfPqya9E0D4+MFtmcHg8H8VWUptMMD7+5 ++Ra19odDytGi8dlZHt7L6BDn9oTD/wDhm75F + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc81e8XAHBJpWFkZWTc4d5rXKEocZ3jmxQlUVZFSlrK6GuEb/YsLalU +kmTcDylKKokQJWmQEWW3bBmh5Pf8/vq83n98zjPOc87z0PZ62rgJCggILJoj +IPD/70Rb9XPmqXRjZn98WZOOrvGHFNkAk+ZwSKCP0XLzxAGl3+6VbU4AawWj +lzF5KuC3NbtpbnMaxK3ZVOKdpw1LB5clTDXdg24vqfWOeQjtxVs8x5rKYak0 +fc2yvK1gxuz9PNJUB1X1ElNKd11gqmn1xeGmLsjcVRZqluMFFeuy0t+njUJN +l6b1yOYwWN7++OtezRkomXB9+/FkHEgd2Z29YN1c7LlVVx/96Bwk6Jg92WIr +jNvS3/ZatCfCxyTtZyPiIsjo9a/8czkJTqWHvBWUW4pFlxZcXeuRDMsSu+Mu +XJfENX/N619N3oCY7ebGdRPSGNN7NCk9+ib8a3Bzd3W4LNZ5dIvuFL8FpkPT +gR7d8njnlZI/zTkdwoys98ivUcR060oOLTID1t65UhBcqoyugrb/pSRngmnT +m5nBl8oYmE/jHkzNhC0CQht21ymjqcvozRXpmeBq4/ERvihjRbtY08OcTDAL +ooWEzlNB3j2Oe25RJngpT9wy0VDBn796FLjNmfD8wI2BCj8VnKztLTqxNAuO +TI6EvhShYVV56ZTTiSxY671f5qsEDTNCPKc/hWaBcG9LzlxZGvqoOG1zjMyC +jNaKRmM6DTW6+CIWp7KgreSi5gN9Gjo8UkxbfCULrKIMmm/upqGM86iRWEEW +6EqErQjKp+FKj/xvy75ngcCp8edJhTTU1x1oMOnLgjdzD+8ofELDMO4ShUOD +WeA+bhM1UknDa4t+UHfHsiC9mdl6oIWGBdqDH5fP4YPMjZfR2+fSkX3fIMJf +jg9TGuJtXFs6KojxpbQ28mHiunzYyh10lK6y4Y9b8GFMTJVpsJuOsQuVbhdZ +8mFw1OCw6SE6GgytF+Jt40PXE9eJHSfoeKjDZJLuzIdXmx6KxmbQUaP67O9/ +/+XDVXdn6Bqn46rYi33qyXy4/Plg17dpOvpl5KelpvAh0erfqIFZOj7+g68l +b/LhzMrYmsmFDHTKUfH/mcGH8N/59mJKDPxh+lbr/F0+uJ+a52VkxkAThWzj +7eV8MMq5nXrpEgM/dFLFI1/40KqSc2P9NQZ6hOoqjXzjQ+AlKmXsBgP1a2st +Bn/w4WFYZrINxUC9P0/mdQ3wQdchNUm0mIFDCvPm3x3ng9q8xHPRnQykO1Za +tgtRILM7KNRPk4kMnv7EFRoFDz4EhKjqMPFN6fMZGwYF2y2OB3/QY6LgqekP +C1UpSNDz/U8XmJhiPHfUi0OByBLP44PWTKwQ5v5krqBA6PFer/3+TNQYE2Aw +jSgYkbBwsStn4uvVQWdDt1PQfIT+7vALJgbEP1gpaUfBs6ppCHnNxBCJ5E23 +7Ck4F5ijzG9kosgun6YnOyjQ7lrSPtXLRHP7y/vfuFDgkf/W6bqkKh4AdkrA +EQrsFvNr82VVsaG4Irn7KAXGbqG8KkVV3CZjJ7nJk8xPTkdxiK2KZW3/HZI4 +RsHt0IRPaKSKnIzXZeH+FPRa2e7s2aeKTennXXvDKKijuDWTh1RxQTlXSDOC +gqK58w1FPFXx2ktPmnskBXEPC+X1A1TxsbNyfWc0BRxl2ZaY06r4gNakkH+K +ggODLQ4ahap4tP6fuKZECnriXeyOLWBhyG8RRbMMMv9eTbr2Ehb6XC/7zs6k +4NeGqYEBcRYmOjNOL8iiYNHchKhD8iyUmCO75xmfrD+gosCFy8KH33t4srcp +OOHGkrTaxsKM9T+X7LlHwfyKn21LHFhY8jgrWuU+2T+V0uxXu1jY+KXq82fi +9Fb7f8z2s9B3UZCqzQMKXlnHefMCWMjztmPQHpH8G/e/1bjBwrZNN5Qcn1KQ +eu3RtR+3WGg/ykycIFabijyQxWehRpZM//kSCowKFGfp91joZB5rWl5Kgau6 +lZZ8JQs3LytKXVhOQX+MwnRTNVnf5/u6l4j9vnyrvPiGhefrCiiVCgpOpoY6 +LW1m4bl+pY0rnlOQJ3MvXriPhQbqX6xWVlGw1ifYoWqIhfsbDkjeJa54b8GM +HGPhzobrJZwXFDTGdz+ZnWFh1dfgWumXFPwRlO6bEGfj6+M3GxurKYh26Sws +kGZj0HLzTpNXFIiV5IYfk2fj/rl7GrOJ6QFm8oMMNn4XWB/mV0OB+ZC/+Rd9 +Nq4avdU99pqC5TpK0cJGbDw0VVJmV0vB4LHn5RombHQtLdAuJE6cEDc6tomN +V7bPlh99Q8H+NQ+PX9zKRrlDRt8qiQ0CnR48smXjuRfMFIW3FLTNUFqzu9nI +eF5TWUqcB1vd6W5szPH2XS36joKIsIms9YfZyI9J5e0g5sxbR4v3YaNl6/aF +fcTHlnySlItjY/awcc7QewpMt4RvNTrDRlXT6Vr1OgqWneOc3n2Bjbdfj8a6 +EhdL+s7PvM7GyT3R1bXEZ2wV1lWnsTG+SGLrLPGey2Uh/VlsPNpe4aVVT86P +guiU7j02en4ODo8ibt5VoGf3kI1PHgT75BLnpOw4FlDMRmOHs4L1xMEdAneT +y9iock2TO0G8lZ7VV1rFRsnsujGZD2R/91lyumvYqDT/r6Me8XjG6L7579no +HqXhZE388tuVm2qNbFTe1vz3MPFVNWzb3MpG7lAYhBMfcf8q79XBRkWtTOXL +xJAbb3/hCxu711TcoIglhnQTC3vZWBxv/+wxcY/2x3cfh9j4bboz7AVx4bEQ +kZkxsl5+Z08dcVyBqoXKNBtDRRt/tBLvmqiJXjdL4k8Zn+8i1lpzrGK/EAeX +xia3fiUWCJQVOLmQg9pantXfieuflBjlinJwXf7qnf935sy+gHeSHGxQ8z// +hfg4LC4clSX/z717pIN4U1j+TxklDkZNuww0EytV2K9Yy+DgL2UxqbfEw0J/ +3Z04HDRqMOwsJ64wS+eHcjk4W3vItoD4UqzFl1u6HLwittz7FvHBV8O0F6s5 +2D7csOocseGSy869Rhzsl1O4GUgsuoV3TeQfDgpFehbuJe44292kvYGDGwLs +fTcS338fJ7V9MwczEu3bNIgdbBtPX7XjYKthQV4fyZ/65f9ePd3JweizCgov +iWea6Qs6XTiYkJSnk0actsszlO3Owezq/9ysiH1SpJ9aeJH5ri6LoBNv6Hgy +ddSXg33fLLeOkvPV7yr8b0EI2Q8B54nTxIMppk9LIzl4f3NynQPx0MfQBTVx +HNxzO8mHRvzTaupa5wUOyjLeL75NzvfoSb2v/UkcvH5HXNCDeKzSW3vyOgfz +9aSfcYl/GfY+F+VzMMzA/2ImqY9JP5aYfC4H17q35O4mns7f66h6j4N6gqLn +ZIj/sFsHDIs56PFp7P4JUn+CUq9lDr3jYIGufqwOqVchK+E9Pg0cvHby7Ewz +qe95J01zQlo4aHfsMwYTCws8hUs9HAwCj5XlpD+I9ucerJjkoLe2TNMK0j/k +np8tUqSp4SKF8TNppD/Jz9YIqbHUMPhHJ51NvHytsNUqDTVsKoPTFOlnSnmh +3RZ6aijxx+9bViUFzGTvJcfN1fAyZ+bZSdIftX22Odd5q+ENtzPhP0i/1b17 +lv/ZTw0Ffr4v2US8srfm5/cgNbTXNWvJIf1Z38U0ZjZKDSdvTeW5FZPzsVkv +T5MUFUuJM1D6mCLv32WCMeXkfzUbJbECCn7s3cA3fKGG6jXvgnaR+yH+pv+W +4RpShD/H5vPJfVKv1HzVsUENrWyE+Qb5FLjIXVmp+Z2MN+xM33CHggBRBbf3 +IuqYYxvispjcT7cnlV4qOKqj+h93a6OrFFittvJ456SOvl2vN2+9QvLrGyIV +tVcdeftmIvcmkf442u4y6K6Of0ef5oZdoqBqIHXqWbA6SlzaOZidQEF7F11j +f7o6uj+KvEKdJPVeyzqTN6SO30OaFu8MoODvkHbGqzF1rM5+Oa50nNzfEobF +PVPqaPpgTkeHHwXlDla9skIauGlL20NnHwr+7fE3C5PVQK6Ddcw/5D3w4ffL +v9YmGmics0E/Zx8Fl9XdPUcTNHD5WvbBeVsoiLT0jRZJIu6Yl3JyMwVeXiHX +2dc1MDiI+UNkEwUbCy/U7MzSwEyH2jLRjeT8mRSznz/RwDDjk2enTCjY4SjS +kdijgd0nNFb66JH8x97dqq+viUF98xwEFSjIvpNbMbVWE9tGFe8elKNgTUOO +/lPQxCEP86O1y8h7i85fbmquiXP6ZGkJUiQ/xanfrXdp4q2+bX7CohT8Hj4f +ejRcEyXcjthSAhS0OPrkpb/RxCsyRZ9Le/iQpGEgLnmAi4c2V3Nd+Hyw3VR7 +rsSdi0s+hz/zyOSDhPuepYe9uOhZED4QlM6HU9lxEmUBXJy/4JRsQiofgtVa +pDzjuZhlZViem8SHfewguZp8LtbXretIi+WDDuMpPeIPF2OnGJqxB8h7WN5E +b/S8Fvqzv7k50/iwdnn5uRWNKzBJxTRG93gWiM5N89kTro3hCg1+US8yQSlM +2ciRpYPnckfE9k5kwELVXYU2L3Qw38htq5h8Bmjx5O76O+kiPay/O9skHY61 +SVRYCKzEkc2r9Z9b3oKh0Xhb86SVGDfUmlzumgYbVlRdNeeuQn39RS4RgTeh +ZNTw9683qzC3bazLPCgVPDR1W9676WG67eMUZfkbwBvc98FxoT7ayv6SsJG7 +DuuZspYiafroPihVp29yDTihJ4+Xr16NdoGMd25BV0DdzaBUtWU1wu7LO/uu +XQa3koORBd5rMH3sU/rZ3otQmvph34i0AdY2MPmurEQY48/+WvHQALs6AqMr +TySAq2rOwquWa7HlM+OStNB5GFG/oH9veC02Nui/oc2egUfpvzvHYw3xTVKP +zGabeNhhykBDJSMMKT4+m/gxDhSOxjzWemaERh6JWhftYkB60ZF8S3setjs4 +7GOyoyB93YnAYUce+v9pP12kGAW6J86su7CLhxeHOx9tk4qCLcN5Dc17ePiY +YS1xdk4URDeOT7ke4eGBwOwatU+RMJkW8k9gGA//imxUHDofCS2GF+ozc3jI +sUuyfDgbAQd905PN7/AwNNpPJXciAibuPHDrz+Oh51R7X8ZABEjQm3/pFPJw +TrW8e2prBGwSVlz+9BkPU10iBR8/jIDiD5n76ht4GDwSsOW4VwRYiD7i+jXz +0KrSM/L6gQho3lA9IdvKQzPx1txK5wgYK+qLde7gIa+h5KOSZQRwb2rn/ujl +od2C3fFjaiRei4lf/AAP/QyytuvQSDypbbBimIx3vEDEWzYC9sf4vvcZ5+Fk +dsnWqfkk3rPoq8smSfzRRS0mf8MhfPqya9E0D4+MFtmcHg8H8VWUptMMD7+5 ++Ra19odDytGi8dlZHt7L6BDn9oTD/wDhm75F + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.050452494229457634`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.050452494229457634`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc81e8XAHBJpWFkZWTc4d5rXKEocZ3jmxQlUVZFSlrK6GuEb/YsLalU +kmTcDylKKokQJWmQEWW3bBmh5Pf8/vq83n98zjPOc87z0PZ62rgJCggILJoj +IPD/70Rb9XPmqXRjZn98WZOOrvGHFNkAk+ZwSKCP0XLzxAGl3+6VbU4AawWj +lzF5KuC3NbtpbnMaxK3ZVOKdpw1LB5clTDXdg24vqfWOeQjtxVs8x5rKYak0 +fc2yvK1gxuz9PNJUB1X1ElNKd11gqmn1xeGmLsjcVRZqluMFFeuy0t+njUJN +l6b1yOYwWN7++OtezRkomXB9+/FkHEgd2Z29YN1c7LlVVx/96Bwk6Jg92WIr +jNvS3/ZatCfCxyTtZyPiIsjo9a/8czkJTqWHvBWUW4pFlxZcXeuRDMsSu+Mu +XJfENX/N619N3oCY7ebGdRPSGNN7NCk9+ib8a3Bzd3W4LNZ5dIvuFL8FpkPT +gR7d8njnlZI/zTkdwoys98ivUcR060oOLTID1t65UhBcqoyugrb/pSRngmnT +m5nBl8oYmE/jHkzNhC0CQht21ymjqcvozRXpmeBq4/ERvihjRbtY08OcTDAL +ooWEzlNB3j2Oe25RJngpT9wy0VDBn796FLjNmfD8wI2BCj8VnKztLTqxNAuO +TI6EvhShYVV56ZTTiSxY671f5qsEDTNCPKc/hWaBcG9LzlxZGvqoOG1zjMyC +jNaKRmM6DTW6+CIWp7KgreSi5gN9Gjo8UkxbfCULrKIMmm/upqGM86iRWEEW +6EqErQjKp+FKj/xvy75ngcCp8edJhTTU1x1oMOnLgjdzD+8ofELDMO4ShUOD +WeA+bhM1UknDa4t+UHfHsiC9mdl6oIWGBdqDH5fP4YPMjZfR2+fSkX3fIMJf +jg9TGuJtXFs6KojxpbQ28mHiunzYyh10lK6y4Y9b8GFMTJVpsJuOsQuVbhdZ +8mFw1OCw6SE6GgytF+Jt40PXE9eJHSfoeKjDZJLuzIdXmx6KxmbQUaP67O9/ +/+XDVXdn6Bqn46rYi33qyXy4/Plg17dpOvpl5KelpvAh0erfqIFZOj7+g68l +b/LhzMrYmsmFDHTKUfH/mcGH8N/59mJKDPxh+lbr/F0+uJ+a52VkxkAThWzj +7eV8MMq5nXrpEgM/dFLFI1/40KqSc2P9NQZ6hOoqjXzjQ+AlKmXsBgP1a2st +Bn/w4WFYZrINxUC9P0/mdQ3wQdchNUm0mIFDCvPm3x3ng9q8xHPRnQykO1Za +tgtRILM7KNRPk4kMnv7EFRoFDz4EhKjqMPFN6fMZGwYF2y2OB3/QY6LgqekP +C1UpSNDz/U8XmJhiPHfUi0OByBLP44PWTKwQ5v5krqBA6PFer/3+TNQYE2Aw +jSgYkbBwsStn4uvVQWdDt1PQfIT+7vALJgbEP1gpaUfBs6ppCHnNxBCJ5E23 +7Ck4F5ijzG9kosgun6YnOyjQ7lrSPtXLRHP7y/vfuFDgkf/W6bqkKh4AdkrA +EQrsFvNr82VVsaG4Irn7KAXGbqG8KkVV3CZjJ7nJk8xPTkdxiK2KZW3/HZI4 +RsHt0IRPaKSKnIzXZeH+FPRa2e7s2aeKTennXXvDKKijuDWTh1RxQTlXSDOC +gqK58w1FPFXx2ktPmnskBXEPC+X1A1TxsbNyfWc0BRxl2ZaY06r4gNakkH+K +ggODLQ4ahap4tP6fuKZECnriXeyOLWBhyG8RRbMMMv9eTbr2Ehb6XC/7zs6k +4NeGqYEBcRYmOjNOL8iiYNHchKhD8iyUmCO75xmfrD+gosCFy8KH33t4srcp +OOHGkrTaxsKM9T+X7LlHwfyKn21LHFhY8jgrWuU+2T+V0uxXu1jY+KXq82fi +9Fb7f8z2s9B3UZCqzQMKXlnHefMCWMjztmPQHpH8G/e/1bjBwrZNN5Qcn1KQ +eu3RtR+3WGg/ykycIFabijyQxWehRpZM//kSCowKFGfp91joZB5rWl5Kgau6 +lZZ8JQs3LytKXVhOQX+MwnRTNVnf5/u6l4j9vnyrvPiGhefrCiiVCgpOpoY6 +LW1m4bl+pY0rnlOQJ3MvXriPhQbqX6xWVlGw1ifYoWqIhfsbDkjeJa54b8GM +HGPhzobrJZwXFDTGdz+ZnWFh1dfgWumXFPwRlO6bEGfj6+M3GxurKYh26Sws +kGZj0HLzTpNXFIiV5IYfk2fj/rl7GrOJ6QFm8oMMNn4XWB/mV0OB+ZC/+Rd9 +Nq4avdU99pqC5TpK0cJGbDw0VVJmV0vB4LHn5RombHQtLdAuJE6cEDc6tomN +V7bPlh99Q8H+NQ+PX9zKRrlDRt8qiQ0CnR48smXjuRfMFIW3FLTNUFqzu9nI +eF5TWUqcB1vd6W5szPH2XS36joKIsIms9YfZyI9J5e0g5sxbR4v3YaNl6/aF +fcTHlnySlItjY/awcc7QewpMt4RvNTrDRlXT6Vr1OgqWneOc3n2Bjbdfj8a6 +EhdL+s7PvM7GyT3R1bXEZ2wV1lWnsTG+SGLrLPGey2Uh/VlsPNpe4aVVT86P +guiU7j02en4ODo8ibt5VoGf3kI1PHgT75BLnpOw4FlDMRmOHs4L1xMEdAneT +y9iock2TO0G8lZ7VV1rFRsnsujGZD2R/91lyumvYqDT/r6Me8XjG6L7579no +HqXhZE388tuVm2qNbFTe1vz3MPFVNWzb3MpG7lAYhBMfcf8q79XBRkWtTOXL +xJAbb3/hCxu711TcoIglhnQTC3vZWBxv/+wxcY/2x3cfh9j4bboz7AVx4bEQ +kZkxsl5+Z08dcVyBqoXKNBtDRRt/tBLvmqiJXjdL4k8Zn+8i1lpzrGK/EAeX +xia3fiUWCJQVOLmQg9pantXfieuflBjlinJwXf7qnf935sy+gHeSHGxQ8z// +hfg4LC4clSX/z717pIN4U1j+TxklDkZNuww0EytV2K9Yy+DgL2UxqbfEw0J/ +3Z04HDRqMOwsJ64wS+eHcjk4W3vItoD4UqzFl1u6HLwittz7FvHBV8O0F6s5 +2D7csOocseGSy869Rhzsl1O4GUgsuoV3TeQfDgpFehbuJe44292kvYGDGwLs +fTcS338fJ7V9MwczEu3bNIgdbBtPX7XjYKthQV4fyZ/65f9ePd3JweizCgov +iWea6Qs6XTiYkJSnk0actsszlO3Owezq/9ysiH1SpJ9aeJH5ri6LoBNv6Hgy +ddSXg33fLLeOkvPV7yr8b0EI2Q8B54nTxIMppk9LIzl4f3NynQPx0MfQBTVx +HNxzO8mHRvzTaupa5wUOyjLeL75NzvfoSb2v/UkcvH5HXNCDeKzSW3vyOgfz +9aSfcYl/GfY+F+VzMMzA/2ImqY9JP5aYfC4H17q35O4mns7f66h6j4N6gqLn +ZIj/sFsHDIs56PFp7P4JUn+CUq9lDr3jYIGufqwOqVchK+E9Pg0cvHby7Ewz +qe95J01zQlo4aHfsMwYTCws8hUs9HAwCj5XlpD+I9ucerJjkoLe2TNMK0j/k +np8tUqSp4SKF8TNppD/Jz9YIqbHUMPhHJ51NvHytsNUqDTVsKoPTFOlnSnmh +3RZ6aijxx+9bViUFzGTvJcfN1fAyZ+bZSdIftX22Odd5q+ENtzPhP0i/1b17 +lv/ZTw0Ffr4v2US8srfm5/cgNbTXNWvJIf1Z38U0ZjZKDSdvTeW5FZPzsVkv +T5MUFUuJM1D6mCLv32WCMeXkfzUbJbECCn7s3cA3fKGG6jXvgnaR+yH+pv+W +4RpShD/H5vPJfVKv1HzVsUENrWyE+Qb5FLjIXVmp+Z2MN+xM33CHggBRBbf3 +IuqYYxvispjcT7cnlV4qOKqj+h93a6OrFFittvJ456SOvl2vN2+9QvLrGyIV +tVcdeftmIvcmkf442u4y6K6Of0ef5oZdoqBqIHXqWbA6SlzaOZidQEF7F11j +f7o6uj+KvEKdJPVeyzqTN6SO30OaFu8MoODvkHbGqzF1rM5+Oa50nNzfEobF +PVPqaPpgTkeHHwXlDla9skIauGlL20NnHwr+7fE3C5PVQK6Ddcw/5D3w4ffL +v9YmGmics0E/Zx8Fl9XdPUcTNHD5WvbBeVsoiLT0jRZJIu6Yl3JyMwVeXiHX +2dc1MDiI+UNkEwUbCy/U7MzSwEyH2jLRjeT8mRSznz/RwDDjk2enTCjY4SjS +kdijgd0nNFb66JH8x97dqq+viUF98xwEFSjIvpNbMbVWE9tGFe8elKNgTUOO +/lPQxCEP86O1y8h7i85fbmquiXP6ZGkJUiQ/xanfrXdp4q2+bX7CohT8Hj4f +ejRcEyXcjthSAhS0OPrkpb/RxCsyRZ9Le/iQpGEgLnmAi4c2V3Nd+Hyw3VR7 +rsSdi0s+hz/zyOSDhPuepYe9uOhZED4QlM6HU9lxEmUBXJy/4JRsQiofgtVa +pDzjuZhlZViem8SHfewguZp8LtbXretIi+WDDuMpPeIPF2OnGJqxB8h7WN5E +b/S8Fvqzv7k50/iwdnn5uRWNKzBJxTRG93gWiM5N89kTro3hCg1+US8yQSlM +2ciRpYPnckfE9k5kwELVXYU2L3Qw38htq5h8Bmjx5O76O+kiPay/O9skHY61 +SVRYCKzEkc2r9Z9b3oKh0Xhb86SVGDfUmlzumgYbVlRdNeeuQn39RS4RgTeh +ZNTw9683qzC3bazLPCgVPDR1W9676WG67eMUZfkbwBvc98FxoT7ayv6SsJG7 +DuuZspYiafroPihVp29yDTihJ4+Xr16NdoGMd25BV0DdzaBUtWU1wu7LO/uu +XQa3koORBd5rMH3sU/rZ3otQmvph34i0AdY2MPmurEQY48/+WvHQALs6AqMr +TySAq2rOwquWa7HlM+OStNB5GFG/oH9veC02Nui/oc2egUfpvzvHYw3xTVKP +zGabeNhhykBDJSMMKT4+m/gxDhSOxjzWemaERh6JWhftYkB60ZF8S3setjs4 +7GOyoyB93YnAYUce+v9pP12kGAW6J86su7CLhxeHOx9tk4qCLcN5Dc17ePiY +YS1xdk4URDeOT7ke4eGBwOwatU+RMJkW8k9gGA//imxUHDofCS2GF+ozc3jI +sUuyfDgbAQd905PN7/AwNNpPJXciAibuPHDrz+Oh51R7X8ZABEjQm3/pFPJw +TrW8e2prBGwSVlz+9BkPU10iBR8/jIDiD5n76ht4GDwSsOW4VwRYiD7i+jXz +0KrSM/L6gQho3lA9IdvKQzPx1txK5wgYK+qLde7gIa+h5KOSZQRwb2rn/ujl +od2C3fFjaiRei4lf/AAP/QyytuvQSDypbbBimIx3vEDEWzYC9sf4vvcZ5+Fk +dsnWqfkk3rPoq8smSfzRRS0mf8MhfPqya9E0D4+MFtmcHg8H8VWUptMMD7+5 ++Ra19odDytGi8dlZHt7L6BDn9oTD/wDhm75F + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.050452494229457634`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.050452494229457634`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9942539576710253`*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"f3a9063e-de7d-408e-89b8-10a20b3f0731"] +}, Open ]], Cell[CellGroupData[{ @@ -13223,66 +14776,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[391]:=",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], + "In[142]:=",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 391, 417, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437636167164`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.5785197307545845`*^-175\\\", \ +RowBox[{\\\"182746270923358292188640954459021807938\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"61\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3679745821507584000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 73, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437636167164`*^9, 3.994253957730359*^9}, CellLabel-> "During evaluation of \ -In[391]:=",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], +In[142]:=",ExpressionUUID->"9f0066aa-cfee-43f9-a5d9-b7e3cf1f5c3b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 391, 418, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343763625717*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.3099218104410822`*^-178\\\", \ +RowBox[{\\\"532888126012512780022077023202507591948\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"64\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0138815516114944000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 74, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437636167164`*^9, 3.994253957741061*^9}, CellLabel-> "During evaluation of \ -In[391]:=",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], +In[142]:=",ExpressionUUID->"c1527066-87db-4ed7-b967-f07c49d71307"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 391, 419, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343763634718*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.654574440534141`*^-182\\\", \ +RowBox[{\\\"161198658118785115956678299518758546564\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"68\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9916936247705600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 75, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437636167164`*^9, 3.994253957750517*^9}, CellLabel-> "During evaluation of \ -In[391]:=",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], +In[142]:=",ExpressionUUID->"83c81b43-e3f1-4089-b083-254abe81933c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 391, 420, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343763643717*^9}, +during this calculation.\"", 2, 142, 76, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437636167164`*^9, 3.994253957758803*^9}, CellLabel-> "During evaluation of \ -In[391]:=",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], +In[142]:=",ExpressionUUID->"5436cd24-fe71-4cf1-a639-f84b3a425111"], -Cell[BoxData["12.55365498945131`"], "Output", - CellChangeTimes->{3.991343769962549*^9}, +Cell[BoxData["15.853154232876223`"], "Output", + CellChangeTimes->{3.991343769962549*^9, 3.994254037014181*^9}, CellLabel-> - "Out[391]=",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] + "Out[142]=",ExpressionUUID->"df10edac-0a02-467d-9b19-25230dc7015a"] }, Open ]], Cell[CellGroupData[{ @@ -13349,68 +14909,71 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918499777649403`*^9, - 3.9918499820026073`*^9}},ExpressionUUID->"97b28b29-5d04-5c42-a0e8-\ -93b70f20e7f6"], + CellChangeTimes->{{3.9918499777649403`*^9, 3.9918499820026073`*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 392, 421, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343769999645*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2916577431760988`*^-233\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 143, 77, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991343769999645*^9, 3.994254037075973*^9}, CellLabel-> "During evaluation of \ -In[392]:=",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], +In[143]:=",ExpressionUUID->"bb592131-3301-462d-bade-631b185a2946"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 392, 422, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437700095463`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.8653668762486043`*^-240\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 143, 78, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991343769999645*^9, 3.994254037087503*^9}, CellLabel-> "During evaluation of \ -In[392]:=",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], +In[143]:=",ExpressionUUID->"7a05989d-fcdd-4d92-845e-40f8d448a949"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 392, - 423, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343770018547*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.356426366720058`*^-247\\\", \ +RowBox[{\\\"1894408991562427689427794363373458470910\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8875062955245236398325760000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 79, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991343769999645*^9, 3.9942540370967617`*^9}, CellLabel-> "During evaluation of \ -In[392]:=",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], +In[143]:=",ExpressionUUID->"c9d13b39-bc62-46ad-907b-8d92b94cb05e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 392, 424, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437700265465`*^9}, +during this calculation.\"", 2, 143, 80, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991343769999645*^9, 3.994254037105476*^9}, CellLabel-> "During evaluation of \ -In[392]:=",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], +In[143]:=",ExpressionUUID->"fc2f9cf4-3702-4b55-b73b-72fc9bd57890"], -Cell[BoxData["2.1234790234082306`"], "Output", - CellChangeTimes->{3.9913437771602173`*^9}, +Cell[BoxData["0.06125058027974628`"], "Output", + CellChangeTimes->{3.9913437771602173`*^9, 3.9942540473573103`*^9}, CellLabel-> - "Out[392]=",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] + "Out[143]=",ExpressionUUID->"ce983bf6-9d17-4c65-b17c-8ff315b40ca8"] }, Open ]], Cell[CellGroupData[{ @@ -13431,8 +14994,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -13477,68 +15039,71 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918499862910366`*^9, - 3.991849989300226*^9}},ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-\ -cdce838d9efe"], + CellChangeTimes->{{3.9918499862910366`*^9, 3.991849989300226*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 393, 425, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437771982174`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2916577431760988`*^-233\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 144, 81, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437771982174`*^9, 3.994254047411611*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], +In[144]:=",ExpressionUUID->"42b84338-029b-4707-9550-c1475e20a461"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 393, 426, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437772082157`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.8653668762486043`*^-240\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 144, 82, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437771982174`*^9, 3.994254047421534*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], +In[144]:=",ExpressionUUID->"8b92911c-84e1-40f8-bea1-2c1d5794988e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 393, - 427, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134377721661*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.356426366720058`*^-247\\\", \ +RowBox[{\\\"1894408991562427689427794363373458470910\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8875062955245236398325760000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 83, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437771982174`*^9, 3.994254047432764*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], +In[144]:=",ExpressionUUID->"0f11440e-9bf5-4687-81d0-6b4d742efcc1"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 393, 428, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437772256165`*^9}, +during this calculation.\"", 2, 144, 84, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437771982174`*^9, 3.994254047443177*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], +In[144]:=",ExpressionUUID->"b26ad105-95e7-413b-a398-69abb47304fd"], -Cell[BoxData["10.711562421053975`"], "Output", - CellChangeTimes->{3.991343783589731*^9}, +Cell[BoxData["62.03026041093365`"], "Output", + CellChangeTimes->{3.991343783589731*^9, 3.9942540571361313`*^9}, CellLabel-> - "Out[393]=",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] + "Out[144]=",ExpressionUUID->"05802342-b87e-419a-aa70-8b26d7186919"] }, Open ]], Cell[CellGroupData[{ @@ -13559,8 +15124,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -13605,68 +15169,71 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849992549782*^9, - 3.9918499952553864`*^9}},ExpressionUUID->"0794d062-69d5-0a45-936e-\ -533b19d33de6"], + CellChangeTimes->{{3.991849992549782*^9, 3.9918499952553864`*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 394, 429, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437836316223`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2916577431760988`*^-233\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 145, 85, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437836316223`*^9, 3.994254057192451*^9}, CellLabel-> "During evaluation of \ -In[394]:=",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], +In[145]:=",ExpressionUUID->"f659f9e9-fbb0-4248-8619-08c0e681e752"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 394, 430, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437836416245`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.8653668762486043`*^-240\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 145, 86, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437836316223`*^9, 3.994254057202322*^9}, CellLabel-> "During evaluation of \ -In[394]:=",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], +In[145]:=",ExpressionUUID->"f6c6a28f-b727-4680-95fe-ee19b63fe913"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 394, - 431, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343783649622*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.356426366720058`*^-247\\\", \ +RowBox[{\\\"1894408991562427689427794363373458470910\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8875062955245236398325760000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 87, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437836316223`*^9, 3.994254057214383*^9}, CellLabel-> "During evaluation of \ -In[394]:=",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], +In[145]:=",ExpressionUUID->"6c69638b-58ed-4255-93b3-db3bbf60c844"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 394, 432, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437836576347`*^9}, +during this calculation.\"", 2, 145, 88, 31387618052028054436, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437836316223`*^9, 3.994254057225688*^9}, CellLabel-> "During evaluation of \ -In[394]:=",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], +In[145]:=",ExpressionUUID->"657a120c-0995-497b-984a-d2244599ae96"], -Cell[BoxData["20.656774205279326`"], "Output", - CellChangeTimes->{3.9913437870822353`*^9}, +Cell[BoxData["9.352391946089954`"], "Output", + CellChangeTimes->{3.9913437870822353`*^9, 3.994254066067466*^9}, CellLabel-> - "Out[394]=",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] + "Out[145]=",ExpressionUUID->"6928f81e-3e38-47d8-9af9-3eb0cdead909"] }, Open ]], Cell[CellGroupData[{ @@ -13675,24 +15242,25 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918500011025047`*^9, - 3.9918500053803673`*^9}},ExpressionUUID->"95c56266-e4d3-624e-89c1-\ -cedeeeb0247a"], - -Cell[BoxData["0.14275466609450368`"], "Output", - CellChangeTimes->{3.991343787117275*^9}, + CellChangeTimes->{{3.9918500011025047`*^9, 3.9918500053803673`*^9}}, CellLabel-> - "Out[395]=",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] + "In[146]:=",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], + +Cell[BoxData["0.002543004072584911`"], "Output", + CellChangeTimes->{3.991343787117275*^9, 3.994254066115806*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"cbf9ddde-8a97-4308-ba30-82f7aea3fdb5"] }, Open ]], Cell[BoxData[ RowBox[{"NotebookSave", "[", "]"}]], "Input", - CellChangeTimes->{{3.9940827488618402`*^9, - 3.994082750958427*^9}},ExpressionUUID->"0f666ac4-b3f5-4ded-99eb-\ -a215694c157c"] + CellChangeTimes->{{3.9940827488618402`*^9, 3.994082750958427*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"0f666ac4-b3f5-4ded-99eb-a215694c157c"] }, -WindowSize->{714, 288}, -WindowMargins->{{Automatic, 3}, {297, Automatic}}, +Evaluator->"kernel 4", +WindowSize->{714, 170.25}, +WindowMargins->{{Automatic, 3}, {356.25, Automatic}}, CellContext->Notebook, FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", @@ -13710,621 +15278,639 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 305, 6, 36, "Input",ExpressionUUID->"fe8f6cf0-b6a8-40e3-a99b-ddc3b879c463"], -Cell[884, 30, 278, 5, 41, "Output",ExpressionUUID->"375d2b5a-bc90-49a8-8335-2375c3c60798"] +Cell[576, 22, 300, 5, 36, "Input",ExpressionUUID->"fe8f6cf0-b6a8-40e3-a99b-ddc3b879c463"], +Cell[879, 29, 301, 5, 41, "Output",ExpressionUUID->"3de09fa5-1ae1-4b59-957b-3997afed48d6"] }, Open ]], Cell[CellGroupData[{ -Cell[1199, 40, 253, 5, 36, "Input",ExpressionUUID->"e622a70e-4541-4e15-a3f1-c619e3ebd07c"], -Cell[1455, 47, 275, 5, 41, "Output",ExpressionUUID->"0ff42655-fb02-4303-bcfc-1c554cf4c2c2"] +Cell[1217, 39, 248, 4, 36, "Input",ExpressionUUID->"e622a70e-4541-4e15-a3f1-c619e3ebd07c"], +Cell[1468, 45, 296, 5, 41, "Output",ExpressionUUID->"3995f930-6d69-43ae-b304-94c5a6de6fd5"] }, Open ]], Cell[CellGroupData[{ -Cell[1767, 57, 231, 5, 36, "Input",ExpressionUUID->"c1edf9c2-0959-4038-9c59-2235a4e4a95d"], -Cell[2001, 64, 278, 5, 41, "Output",ExpressionUUID->"ed52261d-0652-4713-b1a3-3640de775074"] +Cell[1801, 55, 226, 4, 36, "Input",ExpressionUUID->"c1edf9c2-0959-4038-9c59-2235a4e4a95d"], +Cell[2030, 61, 299, 5, 41, "Output",ExpressionUUID->"1dc241f4-3926-4aca-80c8-8ceca7b3719f"] }, Open ]], Cell[CellGroupData[{ -Cell[2316, 74, 180, 4, 55, "Input",ExpressionUUID->"c11dba24-3a38-493c-a1dc-4d37283099a6"], -Cell[2499, 80, 276, 5, 62, "Output",ExpressionUUID->"48d8a4c3-79ce-401c-bf8d-324148f87185"] +Cell[2366, 71, 175, 3, 36, "Input",ExpressionUUID->"c11dba24-3a38-493c-a1dc-4d37283099a6"], +Cell[2544, 76, 299, 5, 41, "Output",ExpressionUUID->"49af2699-8ccf-4345-9b5a-6e3f013ff1be"] }, Open ]], Cell[CellGroupData[{ -Cell[2812, 90, 262, 8, 81, "Input",ExpressionUUID->"5cf8258a-2104-453b-8d8b-4f4de287cdca"], -Cell[3077, 100, 279, 5, 62, "Output",ExpressionUUID->"2db95ea4-4afd-4b51-bfbd-332f611dda79"] +Cell[2880, 86, 257, 7, 54, "Input",ExpressionUUID->"5cf8258a-2104-453b-8d8b-4f4de287cdca"], +Cell[3140, 95, 300, 5, 41, "Output",ExpressionUUID->"a92625cf-00f4-405c-9765-ff65effe8eb4"] }, Open ]], Cell[CellGroupData[{ -Cell[3393, 110, 136, 3, 55, "Input",ExpressionUUID->"36d77f2d-8ccf-47e2-8bf4-c9a016908a14"], -Cell[3532, 115, 280, 5, 62, "Output",ExpressionUUID->"b538a64c-68f7-4226-8e93-d26e9a6c4489"] +Cell[3477, 105, 131, 2, 36, "Input",ExpressionUUID->"36d77f2d-8ccf-47e2-8bf4-c9a016908a14"], +Cell[3611, 109, 303, 5, 41, "Output",ExpressionUUID->"eca49c7c-8cc5-4a20-b7fd-21416d4c12cf"] }, Open ]], Cell[CellGroupData[{ -Cell[3849, 125, 281, 7, 55, "Input",ExpressionUUID->"ccd38b67-1148-4c15-88ad-b124fe24d3f9"], -Cell[4133, 134, 292, 5, 62, "Output",ExpressionUUID->"c8bfd761-1509-4190-80c4-909ca835959b"] +Cell[3951, 119, 276, 6, 36, "Input",ExpressionUUID->"ccd38b67-1148-4c15-88ad-b124fe24d3f9"], +Cell[4230, 127, 313, 5, 41, "Output",ExpressionUUID->"8ffc60fa-8b33-412e-86b5-fbf8556d2779"] }, Open ]], Cell[CellGroupData[{ -Cell[4462, 144, 262, 8, 55, "Input",ExpressionUUID->"09f65c4d-6e9c-4e12-abab-c0adb48f91c6"], -Cell[4727, 154, 280, 5, 62, "Output",ExpressionUUID->"eb11b715-7eab-437a-a754-145682bb7a15"] +Cell[4580, 137, 257, 7, 36, "Input",ExpressionUUID->"09f65c4d-6e9c-4e12-abab-c0adb48f91c6"], +Cell[4840, 146, 301, 5, 41, "Output",ExpressionUUID->"fbb122e7-f3e2-4c9b-8726-ef6686d0672a"] }, Open ]], Cell[CellGroupData[{ -Cell[5044, 164, 331, 7, 55, "Input",ExpressionUUID->"a15a9985-b284-47d1-94f8-d6c7ae7334e0"], -Cell[5378, 173, 260, 5, 62, "Output",ExpressionUUID->"16be0bb9-e171-491f-80c9-bea8caaaaa6e"] +Cell[5178, 156, 326, 6, 36, "Input",ExpressionUUID->"a15a9985-b284-47d1-94f8-d6c7ae7334e0"], +Cell[5507, 164, 277, 4, 41, "Output",ExpressionUUID->"755525bb-bd9a-428d-84fd-d354a74286b0"] }, Open ]], Cell[CellGroupData[{ -Cell[5675, 183, 229, 5, 55, "Input",ExpressionUUID->"c76ae353-f510-4258-a8a1-f80d8717e36e"], -Cell[5907, 190, 260, 5, 62, "Output",ExpressionUUID->"f2982ef5-4983-4e6a-8600-892fb8d13ea8"] +Cell[5821, 173, 225, 4, 36, "Input",ExpressionUUID->"c76ae353-f510-4258-a8a1-f80d8717e36e"], +Cell[6049, 179, 278, 4, 41, "Output",ExpressionUUID->"96df4b8e-d150-4b1f-ae49-a92e362c9d55"] }, Open ]], Cell[CellGroupData[{ -Cell[6204, 200, 133, 3, 55, "Input",ExpressionUUID->"1203c142-4f76-42e6-b08f-3b16bfc279f7"], -Cell[6340, 205, 276, 5, 62, "Output",ExpressionUUID->"49f81da7-99e9-4f1c-9cba-ea1c842b9816"] +Cell[6364, 188, 129, 2, 36, "Input",ExpressionUUID->"1203c142-4f76-42e6-b08f-3b16bfc279f7"], +Cell[6496, 192, 300, 5, 41, "Output",ExpressionUUID->"5d3743ac-6067-4e97-bcaf-dbd6ddb92694"] }, Open ]], Cell[CellGroupData[{ -Cell[6653, 215, 133, 3, 55, "Input",ExpressionUUID->"48cfdc9b-1a95-4532-b41b-75beb24a094c"], -Cell[6789, 220, 278, 5, 62, "Output",ExpressionUUID->"9d7bd47b-3f79-453e-afca-b2f4ec238c7e"] +Cell[6833, 202, 129, 2, 36, "Input",ExpressionUUID->"48cfdc9b-1a95-4532-b41b-75beb24a094c"], +Cell[6965, 206, 300, 5, 41, "Output",ExpressionUUID->"57649c71-a878-443b-a2f1-5993cd0e1c4d"] }, Open ]], Cell[CellGroupData[{ -Cell[7104, 230, 561, 20, 148, "Input",ExpressionUUID->"180aaab2-4468-4e28-92e8-93d34fc68a80"], -Cell[7668, 252, 296, 5, 62, "Output",ExpressionUUID->"3db7e763-ea9c-45af-8701-4ed3d1cbd7e6"] +Cell[7302, 216, 557, 19, 100, "Input",ExpressionUUID->"180aaab2-4468-4e28-92e8-93d34fc68a80"], +Cell[7862, 237, 318, 5, 41, "Output",ExpressionUUID->"69e3bb8f-76e3-49ff-ace9-398353862109"] }, Open ]], Cell[CellGroupData[{ -Cell[8001, 262, 561, 20, 148, "Input",ExpressionUUID->"665b6da9-7158-4e34-9166-10238b69365d"], -Cell[8565, 284, 292, 5, 62, "Output",ExpressionUUID->"9be2a748-d2ac-413c-b6c5-94bf959364e4"] +Cell[8217, 247, 557, 19, 100, "Input",ExpressionUUID->"665b6da9-7158-4e34-9166-10238b69365d"], +Cell[8777, 268, 313, 5, 41, "Output",ExpressionUUID->"e2c8580e-64be-48d7-818d-ec01258f4c98"] }, Open ]], Cell[CellGroupData[{ -Cell[8894, 294, 1592, 51, 211, "Input",ExpressionUUID->"03b05be2-c9c1-4531-aa89-8beafcec0737"], -Cell[10489, 347, 292, 5, 62, "Output",ExpressionUUID->"d708987f-0da2-4a94-aba5-4c3655d71938"] +Cell[9127, 278, 1588, 50, 215, "Input",ExpressionUUID->"03b05be2-c9c1-4531-aa89-8beafcec0737"], +Cell[10718, 330, 316, 5, 41, "Output",ExpressionUUID->"e15a9508-508b-4b3c-929c-5fa992e01fa1"] }, Open ]], Cell[CellGroupData[{ -Cell[10818, 357, 1426, 47, 211, "Input",ExpressionUUID->"1e56577d-7be0-4db4-a1a7-c97b2ed19508"], -Cell[12247, 406, 308, 6, 62, "Output",ExpressionUUID->"62ccb9fd-c81f-451c-a867-4ce499a841bb"] +Cell[11071, 340, 1422, 46, 215, "Input",ExpressionUUID->"1e56577d-7be0-4db4-a1a7-c97b2ed19508"], +Cell[12496, 388, 332, 6, 41, "Output",ExpressionUUID->"8219babc-9433-4af2-b687-566dc2713998"] }, Open ]], Cell[CellGroupData[{ -Cell[12592, 417, 1426, 47, 211, "Input",ExpressionUUID->"0ef46f2a-a017-4817-b57d-b1ca70a555fe"], -Cell[14021, 466, 312, 6, 62, "Output",ExpressionUUID->"26b9e4e6-b447-44db-84e5-c3a7fb5ad07c"] +Cell[12865, 399, 1422, 46, 215, "Input",ExpressionUUID->"0ef46f2a-a017-4817-b57d-b1ca70a555fe"], +Cell[14290, 447, 334, 6, 41, "Output",ExpressionUUID->"e2239fd8-71be-4b94-ae07-ee84efef9de2"] }, Open ]], Cell[CellGroupData[{ -Cell[14370, 477, 1592, 51, 211, "Input",ExpressionUUID->"fc9e0805-57ef-440e-9149-773f661f1765"], -Cell[15965, 530, 288, 5, 62, "Output",ExpressionUUID->"084077b2-14ec-43d9-8866-6b9d8b2dbec8"] +Cell[14661, 458, 1588, 50, 215, "Input",ExpressionUUID->"fc9e0805-57ef-440e-9149-773f661f1765"], +Cell[16252, 510, 310, 5, 41, "Output",ExpressionUUID->"5fd6823b-9df8-48c9-8c6e-4a27022dc66d"] }, Open ]], Cell[CellGroupData[{ -Cell[16290, 540, 135, 3, 55, "Input",ExpressionUUID->"3532766b-e461-41c2-a4c3-2deac0ca2c8d"], -Cell[16428, 545, 277, 5, 62, "Output",ExpressionUUID->"cf5be228-eb52-4750-96f6-16bd014c339e"] +Cell[16599, 520, 131, 2, 36, "Input",ExpressionUUID->"3532766b-e461-41c2-a4c3-2deac0ca2c8d"], +Cell[16733, 524, 299, 5, 41, "Output",ExpressionUUID->"b94f8142-187b-4e88-bdbd-62c08194dc9c"] }, Open ]], Cell[CellGroupData[{ -Cell[16742, 555, 137, 3, 55, "Input",ExpressionUUID->"1de672d4-a854-4e0b-9639-6bb0b383d2a5"], -Cell[16882, 560, 282, 5, 62, "Output",ExpressionUUID->"b04a943d-0adc-4ff3-954b-d0b5df2d1501"] +Cell[17069, 534, 133, 2, 36, "Input",ExpressionUUID->"1de672d4-a854-4e0b-9639-6bb0b383d2a5"], +Cell[17205, 538, 304, 5, 41, "Output",ExpressionUUID->"e7c56ee6-4a58-4c07-a455-4e5b324bbc7a"] }, Open ]], Cell[CellGroupData[{ -Cell[17201, 570, 254, 5, 55, "Input",ExpressionUUID->"46aec20a-01d8-4c1d-acd5-090c9972971a"], -Cell[17458, 577, 280, 5, 62, "Output",ExpressionUUID->"2c98d28d-baa0-4028-8e96-d8ba44a72638"] +Cell[17546, 548, 250, 4, 36, "Input",ExpressionUUID->"46aec20a-01d8-4c1d-acd5-090c9972971a"], +Cell[17799, 554, 302, 5, 41, "Output",ExpressionUUID->"bc637815-51bf-48c2-9199-8d76f2249e33"] }, Open ]], Cell[CellGroupData[{ -Cell[17775, 587, 223, 5, 55, "Input",ExpressionUUID->"f55dd3d9-76bd-41ca-936e-f304a0902414"], -Cell[18001, 594, 293, 6, 62, "Output",ExpressionUUID->"df0bbb86-270c-45e4-9c46-7542236f3dfb"] +Cell[18138, 564, 219, 4, 36, "Input",ExpressionUUID->"f55dd3d9-76bd-41ca-936e-f304a0902414"], +Cell[18360, 570, 317, 6, 41, "Output",ExpressionUUID->"d0f95437-ae7b-424f-9c2e-72e441de16c9"] }, Open ]], Cell[CellGroupData[{ -Cell[18331, 605, 138, 3, 55, "Input",ExpressionUUID->"4fcc235b-6449-42a3-abcd-292d7e7caa03"], -Cell[18472, 610, 280, 5, 62, "Output",ExpressionUUID->"c10ecde1-df80-42e2-976a-2edb946a73ab"] +Cell[18714, 581, 134, 2, 36, "Input",ExpressionUUID->"4fcc235b-6449-42a3-abcd-292d7e7caa03"], +Cell[18851, 585, 302, 5, 41, "Output",ExpressionUUID->"99602f4a-7f5f-4ed3-ba07-19d182dab2e0"] }, Open ]], Cell[CellGroupData[{ -Cell[18789, 620, 353, 6, 55, "Input",ExpressionUUID->"0707be3a-2591-495e-be90-e0cea4aff250"], -Cell[19145, 628, 253, 5, 62, "Output",ExpressionUUID->"a77ab9e8-a9b9-4ebe-82cc-630a5cea6fb1"] +Cell[19190, 595, 349, 5, 36, "Input",ExpressionUUID->"0707be3a-2591-495e-be90-e0cea4aff250"], +Cell[19542, 602, 273, 4, 41, "Output",ExpressionUUID->"d8fad641-8039-4348-8327-47f4ccb5c0b3"] }, Open ]], Cell[CellGroupData[{ -Cell[19435, 638, 254, 6, 55, "Input",ExpressionUUID->"1328e9fc-31b4-4c8e-ad67-4771dee536dc"], -Cell[19692, 646, 275, 5, 62, "Output",ExpressionUUID->"968a92b7-1ef8-404a-af70-dda94076bcaa"] +Cell[19852, 611, 250, 5, 36, "Input",ExpressionUUID->"1328e9fc-31b4-4c8e-ad67-4771dee536dc"], +Cell[20105, 618, 296, 5, 41, "Output",ExpressionUUID->"abc147e6-433e-436d-8c16-f2adff7a2108"] }, Open ]], Cell[CellGroupData[{ -Cell[20004, 656, 223, 5, 55, "Input",ExpressionUUID->"25330b40-6368-4419-9853-2ac470e4e95c"], -Cell[20230, 663, 275, 5, 62, "Output",ExpressionUUID->"d3f05094-5bdc-46ee-a020-80e868fbf3fb"] +Cell[20438, 628, 219, 4, 36, "Input",ExpressionUUID->"25330b40-6368-4419-9853-2ac470e4e95c"], +Cell[20660, 634, 297, 5, 41, "Output",ExpressionUUID->"37888659-ebe1-4c7f-82e3-6bc8b7a42a27"] }, Open ]], Cell[CellGroupData[{ -Cell[20542, 673, 354, 11, 81, "Input",ExpressionUUID->"a257a6be-e927-419d-88da-b3f35bb4a9d0"], -Cell[20899, 686, 295, 5, 62, "Output",ExpressionUUID->"eadbb4ff-3c01-481e-9cf9-9023a9b58754"] +Cell[20994, 644, 350, 10, 54, "Input",ExpressionUUID->"a257a6be-e927-419d-88da-b3f35bb4a9d0"], +Cell[21347, 656, 317, 5, 41, "Output",ExpressionUUID->"f7592fe1-ce08-49aa-bd1a-43ef65d5198e"] }, Open ]], Cell[CellGroupData[{ -Cell[21231, 696, 354, 11, 81, "Input",ExpressionUUID->"e361233a-b44d-48d9-80cc-d764e0281054"], -Cell[21588, 709, 310, 6, 62, "Output",ExpressionUUID->"e7bf4854-be55-435f-8192-71b35b606a61"] +Cell[21701, 666, 350, 10, 54, "Input",ExpressionUUID->"e361233a-b44d-48d9-80cc-d764e0281054"], +Cell[22054, 678, 332, 6, 41, "Output",ExpressionUUID->"06d6db2a-050a-4ae5-912e-7b56d5cbde54"] }, Open ]], Cell[CellGroupData[{ -Cell[21935, 720, 998, 27, 154, "Input",ExpressionUUID->"c38ee153-3592-49ec-b684-4bf99412ea8b"], -Cell[22936, 749, 294, 5, 62, "Output",ExpressionUUID->"7c625020-01fe-4e5a-918a-dbe1f765d086"] +Cell[22423, 689, 994, 26, 105, "Input",ExpressionUUID->"c38ee153-3592-49ec-b684-4bf99412ea8b"], +Cell[23420, 717, 316, 5, 41, "Output",ExpressionUUID->"9e7688c1-21f1-4dfe-9405-5df82a09519e"] }, Open ]], Cell[CellGroupData[{ -Cell[23267, 759, 203, 4, 55, "Input",ExpressionUUID->"13c16bf8-feb4-4c36-9aa4-e64b7fd043b7"], -Cell[23473, 765, 276, 5, 62, "Output",ExpressionUUID->"9d41d51e-8bfe-44d1-a28f-802d5f176b6a"] +Cell[23773, 727, 199, 3, 36, "Input",ExpressionUUID->"13c16bf8-feb4-4c36-9aa4-e64b7fd043b7"], +Cell[23975, 732, 298, 5, 41, "Output",ExpressionUUID->"af4b17e7-8a20-4624-ab28-d73cdcfb5210"] }, Open ]], Cell[CellGroupData[{ -Cell[23786, 775, 332, 6, 55, "Input",ExpressionUUID->"d36ad0b3-3a75-48a1-bbc1-2685f4fe15ba"], -Cell[24121, 783, 262, 5, 62, "Output",ExpressionUUID->"197ffe84-0eac-4cc1-ab19-72f57c1a7092"] +Cell[24310, 742, 328, 5, 36, "Input",ExpressionUUID->"d36ad0b3-3a75-48a1-bbc1-2685f4fe15ba"], +Cell[24641, 749, 280, 4, 41, "Output",ExpressionUUID->"326dc61b-4adb-46dc-8f3b-800d03806d7c"] }, Open ]], -Cell[24398, 791, 177, 3, 55, "Input",ExpressionUUID->"1b15c44e-4ab0-4c50-8ce7-4dd8f830fc9c"], +Cell[24936, 756, 173, 2, 109, "Input",ExpressionUUID->"1b15c44e-4ab0-4c50-8ce7-4dd8f830fc9c"], Cell[CellGroupData[{ -Cell[24600, 798, 332, 6, 55, "Input",ExpressionUUID->"36d4f68d-a298-44c2-bb49-54d9a4d245cc"], -Cell[24935, 806, 255, 5, 62, "Output",ExpressionUUID->"e5754b6a-4d41-4522-9562-0cf3dc2f3960"] +Cell[25134, 762, 328, 5, 36, "Input",ExpressionUUID->"36d4f68d-a298-44c2-bb49-54d9a4d245cc"], +Cell[25465, 769, 273, 4, 41, "Output",ExpressionUUID->"b773d766-3402-442a-b6e1-8fba88f7de3d"] }, Open ]], -Cell[25205, 814, 177, 3, 55, "Input",ExpressionUUID->"2f84cfb5-8ad5-4471-9085-6c0102af242b"], +Cell[25753, 776, 173, 2, 109, "Input",ExpressionUUID->"2f84cfb5-8ad5-4471-9085-6c0102af242b"], Cell[CellGroupData[{ -Cell[25407, 821, 332, 6, 55, "Input",ExpressionUUID->"238223e0-ed8e-42e3-b2f7-106d26b96850"], -Cell[25742, 829, 253, 5, 62, "Output",ExpressionUUID->"f3cc8ea5-c927-45e4-9270-b49987cc817d"] +Cell[25951, 782, 328, 5, 36, "Input",ExpressionUUID->"238223e0-ed8e-42e3-b2f7-106d26b96850"], +Cell[26282, 789, 271, 4, 41, "Output",ExpressionUUID->"7e355288-8bac-40f2-a312-cfaaca0d7eaf"] }, Open ]], -Cell[26010, 837, 177, 3, 55, "Input",ExpressionUUID->"9862b35e-f275-4561-b8cc-971e2be23716"], +Cell[26568, 796, 173, 2, 109, "Input",ExpressionUUID->"9862b35e-f275-4561-b8cc-971e2be23716"], Cell[CellGroupData[{ -Cell[26212, 844, 356, 6, 55, "Input",ExpressionUUID->"8e2ccf30-ae77-4ebf-9552-85b682a13b89"], -Cell[26571, 852, 251, 5, 62, "Output",ExpressionUUID->"7158ed01-a4e3-4481-a2e0-f029a73025da"] +Cell[26766, 802, 352, 5, 36, "Input",ExpressionUUID->"8e2ccf30-ae77-4ebf-9552-85b682a13b89"], +Cell[27121, 809, 271, 4, 41, "Output",ExpressionUUID->"c0db1c63-cee0-49a2-bd0a-9c7659cfc099"] }, Open ]], -Cell[26837, 860, 175, 3, 55, "Input",ExpressionUUID->"b7eaffb6-f9e6-4ee7-8f58-e8bf88c1ce14"], +Cell[27407, 816, 171, 2, 109, "Input",ExpressionUUID->"b7eaffb6-f9e6-4ee7-8f58-e8bf88c1ce14"], Cell[CellGroupData[{ -Cell[27037, 867, 304, 6, 55, "Input",ExpressionUUID->"6244dde3-9605-4f26-99f5-0cdfa79312ef"], -Cell[27344, 875, 258, 5, 62, "Output",ExpressionUUID->"b241d884-e660-43fc-a5a7-4f84fc459818"] +Cell[27603, 822, 300, 5, 36, "Input",ExpressionUUID->"6244dde3-9605-4f26-99f5-0cdfa79312ef"], +Cell[27906, 829, 276, 4, 41, "Output",ExpressionUUID->"749b2f06-ea40-4c29-87ac-37252219c828"] }, Open ]], -Cell[27617, 883, 175, 3, 55, "Input",ExpressionUUID->"277deec6-0434-46a4-b267-bb474b1a9e55"], +Cell[28197, 836, 171, 2, 109, "Input",ExpressionUUID->"277deec6-0434-46a4-b267-bb474b1a9e55"], Cell[CellGroupData[{ -Cell[27817, 890, 310, 6, 55, "Input",ExpressionUUID->"f06b791e-98df-4e8c-aaea-be4a1b03420f"], -Cell[28130, 898, 258, 5, 62, "Output",ExpressionUUID->"c0e1c784-c678-49ae-a632-399662116372"] +Cell[28393, 842, 306, 5, 36, "Input",ExpressionUUID->"f06b791e-98df-4e8c-aaea-be4a1b03420f"], +Cell[28702, 849, 276, 4, 41, "Output",ExpressionUUID->"ba2ffbb7-c786-48ae-ab43-94cbf158c240"] }, Open ]], -Cell[28403, 906, 177, 3, 55, "Input",ExpressionUUID->"3c428497-d831-4fd7-9229-97217b1e1897"], +Cell[28993, 856, 173, 2, 109, "Input",ExpressionUUID->"3c428497-d831-4fd7-9229-97217b1e1897"], Cell[CellGroupData[{ -Cell[28605, 913, 310, 6, 55, "Input",ExpressionUUID->"d97a17ba-0434-453c-b0f8-fef5c0347dfe"], -Cell[28918, 921, 259, 5, 62, "Output",ExpressionUUID->"e846e95d-954a-48dc-80ae-91a4eba073e4"] +Cell[29191, 862, 306, 5, 36, "Input",ExpressionUUID->"d97a17ba-0434-453c-b0f8-fef5c0347dfe"], +Cell[29500, 869, 277, 4, 41, "Output",ExpressionUUID->"dffc5550-7e19-4d0c-9bf0-ab05d6803fc7"] }, Open ]], -Cell[29192, 929, 176, 3, 55, "Input",ExpressionUUID->"e323b8e5-b165-42fd-bd1d-f72a0311710a"], +Cell[29792, 876, 172, 2, 109, "Input",ExpressionUUID->"e323b8e5-b165-42fd-bd1d-f72a0311710a"], Cell[CellGroupData[{ -Cell[29393, 936, 282, 5, 55, "Input",ExpressionUUID->"ef937faa-6526-4c6d-b9fd-abd440b044d7"], -Cell[29678, 943, 256, 5, 62, "Output",ExpressionUUID->"9491fca3-be3b-4ef5-b141-de4713014317"] +Cell[29989, 882, 278, 4, 36, "Input",ExpressionUUID->"ef937faa-6526-4c6d-b9fd-abd440b044d7"], +Cell[30270, 888, 274, 4, 41, "Output",ExpressionUUID->"36bb83d0-bd96-4462-a14f-c3d357284956"] }, Open ]], -Cell[29949, 951, 179, 3, 55, "Input",ExpressionUUID->"775a1f2a-6613-4b5e-a2b7-9ef32d347ccc"], +Cell[30559, 895, 175, 2, 109, "Input",ExpressionUUID->"775a1f2a-6613-4b5e-a2b7-9ef32d347ccc"], Cell[CellGroupData[{ -Cell[30153, 958, 19813, 486, 3214, "Input",ExpressionUUID->"33dcf5de-30c1-4086-a032-fdc16d3793ff"], -Cell[49969, 1446, 295, 5, 62, "Output",ExpressionUUID->"554e9553-9a47-4e8e-ae78-f9d896bff6da"] +Cell[30759, 901, 19809, 485, 3208, "Input",ExpressionUUID->"33dcf5de-30c1-4086-a032-fdc16d3793ff"], +Cell[50571, 1388, 317, 5, 41, "Output",ExpressionUUID->"72baf27d-17d8-4fcf-81ea-2c8f16abf966"] }, Open ]], Cell[CellGroupData[{ -Cell[50301, 1456, 19752, 490, 3214, "Input",ExpressionUUID->"37157007-87f9-433a-934e-afcd7d837681"], -Cell[70056, 1948, 294, 5, 62, "Output",ExpressionUUID->"f9042548-d4f1-4633-b8fe-325515204124"] +Cell[50925, 1398, 19748, 489, 3138, "Input",ExpressionUUID->"37157007-87f9-433a-934e-afcd7d837681"], +Cell[70676, 1889, 316, 5, 41, "Output",ExpressionUUID->"9ec0d7b6-c4e8-4e96-a112-f48b8a973024"] }, Open ]], Cell[CellGroupData[{ -Cell[70387, 1958, 19752, 484, 3213, "Input",ExpressionUUID->"cbce29c6-d5f0-4079-b69a-316750619c33"], -Cell[90142, 2444, 305, 6, 62, "Output",ExpressionUUID->"ec803f19-77a4-451a-a497-3aff1ab4ad81"] +Cell[71029, 1899, 19748, 483, 3198, "Input",ExpressionUUID->"cbce29c6-d5f0-4079-b69a-316750619c33"], +Cell[90780, 2384, 327, 6, 41, "Output",ExpressionUUID->"86fefbed-554e-4a60-a345-bd23f49f92ab"] }, Open ]], Cell[CellGroupData[{ -Cell[90484, 2455, 22538, 554, 3639, "Input",ExpressionUUID->"5e6efd56-b9fc-4cb9-a2bf-8dbec57046f4"], -Cell[113025, 3011, 311, 6, 62, "Output",ExpressionUUID->"f0cd64da-9066-49d7-ad54-3c194a27ca05"] +Cell[91144, 2395, 22534, 553, 3677, "Input",ExpressionUUID->"5e6efd56-b9fc-4cb9-a2bf-8dbec57046f4"], +Cell[113681, 2950, 333, 6, 41, "Output",ExpressionUUID->"b1122b62-ff52-47ac-834d-0f70789faeef"] }, Open ]], Cell[CellGroupData[{ -Cell[113373, 3022, 22539, 554, 3639, "Input",ExpressionUUID->"e446c689-203e-44f7-88e0-59b47e73a184"], -Cell[135915, 3578, 310, 6, 62, "Output",ExpressionUUID->"86c0e4c3-e912-44b5-8fb7-e6f6f34c496a"] +Cell[114051, 2961, 22535, 553, 3642, "Input",ExpressionUUID->"e446c689-203e-44f7-88e0-59b47e73a184"], +Cell[136589, 3516, 332, 6, 41, "Output",ExpressionUUID->"ee3474c2-e520-450c-805e-90deb30615c3"] }, Open ]], Cell[CellGroupData[{ -Cell[136262, 3589, 25495, 627, 4065, "Input",ExpressionUUID->"1fbefbe3-e232-48fa-ae3b-37a17b8f8ea4"], -Cell[161760, 4218, 315, 6, 62, "Output",ExpressionUUID->"645c3cfb-98bd-4e97-8e01-c84d8e183548"] +Cell[136958, 3527, 25491, 626, 4121, "Input",ExpressionUUID->"1fbefbe3-e232-48fa-ae3b-37a17b8f8ea4"], +Cell[162452, 4155, 337, 6, 41, "Output",ExpressionUUID->"0c38468e-f693-4a87-b914-a95e6267195f"] }, Open ]], Cell[CellGroupData[{ -Cell[162112, 4229, 134, 3, 55, "Input",ExpressionUUID->"1ea0b391-7051-41c6-b267-ad38df240b25"], -Cell[162249, 4234, 273, 5, 62, "Output",ExpressionUUID->"e2025780-6d30-45a7-859a-1252b5386a47"] +Cell[162826, 4166, 130, 2, 36, "Input",ExpressionUUID->"1ea0b391-7051-41c6-b267-ad38df240b25"], +Cell[162959, 4170, 295, 5, 41, "Output",ExpressionUUID->"351439bf-0ef2-4afb-ab87-dd574898455c"] }, Open ]], Cell[CellGroupData[{ -Cell[162559, 4244, 134, 3, 55, "Input",ExpressionUUID->"bc0759f8-5808-4896-a886-6130d342c500"], -Cell[162696, 4249, 275, 5, 62, "Output",ExpressionUUID->"7ca2b40b-2b31-4ab8-b4e1-dff179fa8e08"] +Cell[163291, 4180, 130, 2, 36, "Input",ExpressionUUID->"bc0759f8-5808-4896-a886-6130d342c500"], +Cell[163424, 4184, 296, 5, 41, "Output",ExpressionUUID->"699cbe30-925d-48cb-9c70-c937613c6f5a"] }, Open ]], Cell[CellGroupData[{ -Cell[163008, 4259, 1148, 40, 211, "Input",ExpressionUUID->"2fc25094-c27a-4aea-ba6c-c1a9dd39eb17"], -Cell[164159, 4301, 295, 5, 62, "Output",ExpressionUUID->"7bd1b904-1357-40b2-953c-9286ed57fce2"] +Cell[163757, 4194, 1144, 39, 144, "Input",ExpressionUUID->"2fc25094-c27a-4aea-ba6c-c1a9dd39eb17"], +Cell[164904, 4235, 317, 5, 41, "Output",ExpressionUUID->"534edbe6-82f8-491c-a75b-4bd9fdc9ad05"] }, Open ]], Cell[CellGroupData[{ -Cell[164491, 4311, 1045, 36, 211, "Input",ExpressionUUID->"952e94b7-ae20-4a86-b69f-95dc94aca03f"], -Cell[165539, 4349, 308, 6, 62, "Output",ExpressionUUID->"8f00a4d2-9c6f-4248-a658-3f7dad19dcac"] +Cell[165258, 4245, 1041, 35, 144, "Input",ExpressionUUID->"952e94b7-ae20-4a86-b69f-95dc94aca03f"], +Cell[166302, 4282, 330, 6, 41, "Output",ExpressionUUID->"dd5ee609-79e1-4c9c-ab67-d54170c9c2b3"] }, Open ]], Cell[CellGroupData[{ -Cell[165884, 4360, 1148, 40, 211, "Input",ExpressionUUID->"f1116627-b3ef-4e77-b1d2-9cd33c412513"], -Cell[167035, 4402, 290, 5, 62, "Output",ExpressionUUID->"ffaedbbb-6d60-4892-998a-ea8bb02af8e3"] +Cell[166669, 4293, 1144, 39, 144, "Input",ExpressionUUID->"f1116627-b3ef-4e77-b1d2-9cd33c412513"], +Cell[167816, 4334, 312, 5, 41, "Output",ExpressionUUID->"17567946-c623-4934-82ef-4de423ec6836"] }, Open ]], Cell[CellGroupData[{ -Cell[167362, 4412, 112, 2, 55, "Input",ExpressionUUID->"c0f5426f-7a9c-4959-85bb-7bc993820ff6"], -Cell[167477, 4416, 298, 5, 62, "Output",ExpressionUUID->"b3aa29c5-9dbf-42c0-bae0-23c6a9df3e8a"] +Cell[168165, 4344, 108, 1, 36, "Input",ExpressionUUID->"c0f5426f-7a9c-4959-85bb-7bc993820ff6"], +Cell[168276, 4347, 320, 5, 41, "Output",ExpressionUUID->"88ded308-bb63-4971-804f-32899061bb92"] }, Open ]], Cell[CellGroupData[{ -Cell[167812, 4426, 112, 2, 55, "Input",ExpressionUUID->"6fc4fd42-1a69-43a0-9534-52e20defb714"], -Cell[167927, 4430, 312, 6, 62, "Output",ExpressionUUID->"498cd0ff-6197-4a1c-b7ee-992974ad6dfa"] +Cell[168633, 4357, 108, 1, 36, "Input",ExpressionUUID->"6fc4fd42-1a69-43a0-9534-52e20defb714"], +Cell[168744, 4360, 334, 6, 41, "Output",ExpressionUUID->"24db7546-ce1f-47b8-81c5-f0979ccd1b61"] }, Open ]], Cell[CellGroupData[{ -Cell[168276, 4441, 112, 2, 55, "Input",ExpressionUUID->"6d885b64-9c4e-4f98-9fa1-af62a3068ed9"], -Cell[168391, 4445, 316, 6, 62, "Output",ExpressionUUID->"facae4c2-0f81-4164-a649-a08dd288d0d8"] +Cell[169115, 4371, 108, 1, 36, "Input",ExpressionUUID->"6d885b64-9c4e-4f98-9fa1-af62a3068ed9"], +Cell[169226, 4374, 338, 6, 41, "Output",ExpressionUUID->"34ed6513-7488-42ea-b511-bf699c0aef12"] }, Open ]], Cell[CellGroupData[{ -Cell[168744, 4456, 112, 2, 55, "Input",ExpressionUUID->"fd9f54e2-fa04-4a66-914c-d953be1f87db"], -Cell[168859, 4460, 289, 5, 62, "Output",ExpressionUUID->"5bbef036-2753-426a-8a81-a4cb4cf2d05d"] +Cell[169601, 4385, 108, 1, 36, "Input",ExpressionUUID->"fd9f54e2-fa04-4a66-914c-d953be1f87db"], +Cell[169712, 4388, 311, 5, 41, "Output",ExpressionUUID->"a855257e-90da-4d69-8c40-2c3b3508d963"] }, Open ]], Cell[CellGroupData[{ -Cell[169185, 4470, 111, 2, 55, "Input",ExpressionUUID->"ea5c33f4-98dc-43a4-bbd2-08ba8cace152"], -Cell[169299, 4474, 298, 5, 62, "Output",ExpressionUUID->"8c5f615a-d20c-4013-9c91-6b386265fe6f"] +Cell[170060, 4398, 107, 1, 36, "Input",ExpressionUUID->"ea5c33f4-98dc-43a4-bbd2-08ba8cace152"], +Cell[170170, 4401, 320, 5, 41, "Output",ExpressionUUID->"dece97d6-0308-4620-95f9-9d38e75eadc5"] }, Open ]], Cell[CellGroupData[{ -Cell[169634, 4484, 111, 2, 55, "Input",ExpressionUUID->"ca50af90-ab4d-4174-8461-c4aedcc44cca"], -Cell[169748, 4488, 297, 5, 62, "Output",ExpressionUUID->"57ed2d89-539c-4aff-b653-59f438fa4d11"] +Cell[170527, 4411, 107, 1, 36, "Input",ExpressionUUID->"ca50af90-ab4d-4174-8461-c4aedcc44cca"], +Cell[170637, 4414, 318, 5, 41, "Output",ExpressionUUID->"4cc70d1c-5b67-4980-afde-93c8582d50f5"] }, Open ]], Cell[CellGroupData[{ -Cell[170082, 4498, 501, 17, 105, "Input",ExpressionUUID->"8f0170f3-c84b-4dd3-a038-308f947cfa90"], -Cell[170586, 4517, 311, 6, 62, "Output",ExpressionUUID->"1bc5ea38-4211-467a-bd42-7548ba7918e2"] +Cell[170992, 4424, 497, 16, 71, "Input",ExpressionUUID->"8f0170f3-c84b-4dd3-a038-308f947cfa90"], +Cell[171492, 4442, 333, 6, 41, "Output",ExpressionUUID->"f55e5888-e4ce-4e1b-9b60-632a83a97efa"] }, Open ]], Cell[CellGroupData[{ -Cell[170934, 4528, 501, 17, 105, "Input",ExpressionUUID->"e62bac68-407c-40d4-a100-927a3414f6a3"], -Cell[171438, 4547, 308, 6, 62, "Output",ExpressionUUID->"2854754e-4887-40ae-958b-faea877e1549"] +Cell[171862, 4453, 497, 16, 71, "Input",ExpressionUUID->"e62bac68-407c-40d4-a100-927a3414f6a3"], +Cell[172362, 4471, 330, 6, 41, "Output",ExpressionUUID->"679dce03-70e6-4425-b203-2d288e2cac6c"] }, Open ]], Cell[CellGroupData[{ -Cell[171783, 4558, 1792, 61, 358, "Input",ExpressionUUID->"db672236-3860-410a-9ac6-1ba0968cab8b"], -Cell[173578, 4621, 291, 5, 62, "Output",ExpressionUUID->"18d21d9f-8f5e-4ca8-bb46-a0b904002054"] +Cell[172729, 4482, 1788, 60, 340, "Input",ExpressionUUID->"db672236-3860-410a-9ac6-1ba0968cab8b"], +Cell[174520, 4544, 313, 5, 41, "Output",ExpressionUUID->"459fff9a-6957-406c-8723-69dc8c8a060b"] }, Open ]], Cell[CellGroupData[{ -Cell[173906, 4631, 1105, 37, 256, "Input",ExpressionUUID->"b7ab66c3-3a24-4b45-9b4e-c1f45443ebd1"], -Cell[175014, 4670, 311, 6, 62, "Output",ExpressionUUID->"c8c2a64c-1d02-49eb-9d38-24668121b742"] +Cell[174870, 4554, 1101, 36, 174, "Input",ExpressionUUID->"b7ab66c3-3a24-4b45-9b4e-c1f45443ebd1"], +Cell[175974, 4592, 333, 6, 41, "Output",ExpressionUUID->"7617e0ac-acdd-47c6-9f4e-f7a247ba2ce8"] }, Open ]], Cell[CellGroupData[{ -Cell[175362, 4681, 1822, 62, 313, "Input",ExpressionUUID->"adfe5acb-c44b-4e72-99e7-52a72e1d2c01"], -Cell[177187, 4745, 290, 5, 62, "Output",ExpressionUUID->"d3c41d97-b455-4c31-9e1f-ebfdf06c97b3"] +Cell[176344, 4603, 1818, 61, 340, "Input",ExpressionUUID->"adfe5acb-c44b-4e72-99e7-52a72e1d2c01"], +Cell[178165, 4666, 314, 5, 41, "Output",ExpressionUUID->"5a8ba0d2-da70-43d4-b3d6-629ee20b688b"] }, Open ]], Cell[CellGroupData[{ -Cell[177514, 4755, 1714, 56, 260, "Input",ExpressionUUID->"e546c35a-9feb-4bb0-aae2-578736342716"], -Cell[179231, 4813, 294, 5, 62, "Output",ExpressionUUID->"03f41608-426f-4195-9be8-043baf64bf82"] +Cell[178516, 4676, 1710, 55, 247, "Input",ExpressionUUID->"e546c35a-9feb-4bb0-aae2-578736342716"], +Cell[180229, 4733, 318, 5, 41, "Output",ExpressionUUID->"f9178990-0daa-4328-bdc7-6dc2eefbc334"] }, Open ]], Cell[CellGroupData[{ -Cell[179562, 4823, 1635, 54, 208, "Input",ExpressionUUID->"fb659a8d-2ca5-4096-a57c-86fd22aec0db"], -Cell[181200, 4879, 292, 5, 41, "Output",ExpressionUUID->"497ac604-6e52-4a5e-9bd2-bde145db5644"] +Cell[180584, 4743, 1631, 53, 208, "Input",ExpressionUUID->"fb659a8d-2ca5-4096-a57c-86fd22aec0db"], +Cell[182218, 4798, 314, 5, 41, "Output",ExpressionUUID->"1908ada1-7e66-4ef7-a6c3-a8397f834f67"] }, Open ]], -Cell[181507, 4887, 189, 4, 36, "Input",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], -Cell[181699, 4893, 156, 3, 36, "Input",ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-c82e80965ca9"], -Cell[181858, 4898, 187, 4, 36, "Input",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], -Cell[182048, 4904, 152, 3, 36, "Input",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], Cell[CellGroupData[{ -Cell[182225, 4911, 1301, 43, 174, "Input",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], -Cell[183529, 4956, 176, 3, 41, "Output",ExpressionUUID->"b2b0fbe6-496d-0b4b-a132-3f215e541d44"] +Cell[182569, 4808, 208, 3, 36, "Input",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], +Cell[182780, 4813, 163, 2, 41, "Output",ExpressionUUID->"0e2ddb0c-a467-4fc7-96f1-a2f379180ba3"] }, Open ]], +Cell[182958, 4818, 175, 2, 109, "Input",ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-c82e80965ca9"], Cell[CellGroupData[{ -Cell[183742, 4964, 908, 31, 128, "Input",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], -Cell[184653, 4997, 175, 3, 41, "Output",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] +Cell[183158, 4824, 206, 3, 36, "Input",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], +Cell[183367, 4829, 163, 2, 41, "Output",ExpressionUUID->"07238160-a807-4be4-93a7-1cd7845b788b"] }, Open ]], +Cell[183545, 4834, 171, 2, 109, "Input",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], Cell[CellGroupData[{ -Cell[184865, 5005, 887, 30, 128, "Input",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], -Cell[185755, 5037, 177, 3, 41, "Output",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] +Cell[183741, 4840, 1297, 42, 174, "Input",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], +Cell[185041, 4884, 194, 2, 41, "Output",ExpressionUUID->"6a36a924-088e-4df0-b166-c54e176d4b20"] }, Open ]], Cell[CellGroupData[{ -Cell[185969, 5045, 558, 19, 66, "Input",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], -Cell[186530, 5066, 172, 3, 41, "Output",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] +Cell[185272, 4891, 927, 30, 128, "Input",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], +Cell[186202, 4923, 194, 2, 41, "Output",ExpressionUUID->"e53ad6ca-4e92-4392-820e-238393d84fd5"] }, Open ]], Cell[CellGroupData[{ -Cell[186739, 5074, 651, 22, 66, "Input",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], -Cell[187393, 5098, 170, 3, 41, "Output",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] +Cell[186433, 4930, 906, 29, 128, "Input",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], +Cell[187342, 4961, 197, 2, 41, "Output",ExpressionUUID->"526bccfc-d39c-4e5f-bf54-021b1619f841"] }, Open ]], Cell[CellGroupData[{ -Cell[187600, 5106, 170, 5, 71, "Input",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], -Cell[187773, 5113, 173, 3, 41, "Output",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +Cell[187576, 4968, 554, 18, 66, "Input",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], +Cell[188133, 4988, 189, 2, 41, "Output",ExpressionUUID->"cc52b2c2-ab5a-4e3f-8faa-bd4650ded3db"] }, Open ]], Cell[CellGroupData[{ -Cell[187983, 5121, 170, 5, 69, "Input",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], -Cell[188156, 5128, 169, 3, 41, "Output",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +Cell[188359, 4995, 647, 21, 66, "Input",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], +Cell[189009, 5018, 188, 2, 41, "Output",ExpressionUUID->"0632710e-c031-447d-bc2e-d28c31239ce6"] }, Open ]], Cell[CellGroupData[{ -Cell[188362, 5136, 181, 5, 55, "Input",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], -Cell[188546, 5143, 173, 3, 41, "Output",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +Cell[189234, 5025, 166, 4, 71, "Input",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], +Cell[189403, 5031, 192, 2, 41, "Output",ExpressionUUID->"d47956e8-efda-49d4-bffb-dbd5c2b68cc8"] }, Open ]], Cell[CellGroupData[{ -Cell[188756, 5151, 181, 5, 55, "Input",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], -Cell[188940, 5158, 170, 3, 41, "Output",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +Cell[189632, 5038, 166, 4, 69, "Input",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], +Cell[189801, 5044, 187, 2, 41, "Output",ExpressionUUID->"46a314d6-7655-4f61-ba5b-97c06c3100ed"] }, Open ]], Cell[CellGroupData[{ -Cell[189147, 5166, 6055, 185, 831, "Input",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], -Cell[195205, 5353, 174, 3, 41, "Output",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +Cell[190025, 5051, 177, 4, 55, "Input",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], +Cell[190205, 5057, 192, 2, 41, "Output",ExpressionUUID->"d5b65a6b-8ef8-484c-9466-1bf26a67ea82"] }, Open ]], Cell[CellGroupData[{ -Cell[195416, 5361, 368, 9, 53, "Input",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], -Cell[195787, 5372, 170, 3, 41, "Output",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +Cell[190434, 5064, 177, 4, 55, "Input",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], +Cell[190614, 5070, 188, 2, 41, "Output",ExpressionUUID->"0d225614-1eac-4aca-acf7-88a1ab596d98"] }, Open ]], Cell[CellGroupData[{ -Cell[195994, 5380, 6122, 187, 900, "Input",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], -Cell[202119, 5569, 174, 3, 41, "Output",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +Cell[190839, 5077, 6051, 184, 831, "Input",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], +Cell[196893, 5263, 194, 2, 41, "Output",ExpressionUUID->"4955db75-32a4-4eae-b3f8-31f213e06ef8"] }, Open ]], Cell[CellGroupData[{ -Cell[202330, 5577, 368, 9, 53, "Input",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], -Cell[202701, 5588, 170, 3, 41, "Output",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +Cell[197124, 5270, 364, 8, 53, "Input",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], +Cell[197491, 5280, 189, 2, 41, "Output",ExpressionUUID->"5e9cbbc6-aad1-47ab-a959-a712b9cf9984"] }, Open ]], Cell[CellGroupData[{ -Cell[202908, 5596, 2663, 88, 435, "Input",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], -Cell[205574, 5686, 171, 3, 41, "Output",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +Cell[197717, 5287, 6118, 186, 900, "Input",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], +Cell[203838, 5475, 192, 2, 41, "Output",ExpressionUUID->"58db69d4-b3f7-4d06-b99f-402422969499"] }, Open ]], Cell[CellGroupData[{ -Cell[205782, 5694, 2603, 85, 435, "Input",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], -Cell[208388, 5781, 171, 3, 41, "Output",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +Cell[204067, 5482, 364, 8, 53, "Input",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], +Cell[204434, 5492, 188, 2, 41, "Output",ExpressionUUID->"35279e0d-1f51-4cdf-b15a-c44b6e83fae5"] }, Open ]], Cell[CellGroupData[{ -Cell[208596, 5789, 3712, 118, 575, "Input",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], -Cell[212311, 5909, 171, 3, 41, "Output",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] +Cell[204659, 5499, 2659, 87, 435, "Input",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], +Cell[207321, 5588, 192, 2, 41, "Output",ExpressionUUID->"4891f087-ef30-484b-918d-43bc828a77ee"] }, Open ]], -Cell[212497, 5915, 138, 3, 36, "Input",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], Cell[CellGroupData[{ -Cell[212660, 5922, 2054, 59, 276, "Input",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], -Cell[214717, 5983, 566, 12, 98, "Message",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], -Cell[215286, 5997, 569, 12, 98, "Message",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], -Cell[215858, 6011, 570, 12, 98, "Message",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], -Cell[216431, 6025, 458, 10, 32, "Message",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], -Cell[216892, 6037, 172, 3, 41, "Output",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +Cell[207550, 5595, 2599, 84, 435, "Input",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], +Cell[210152, 5681, 189, 2, 41, "Output",ExpressionUUID->"62c5a839-f289-4e7a-9ec2-fa222943beb7"] }, Open ]], Cell[CellGroupData[{ -Cell[217101, 6045, 2052, 59, 276, "Input",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], -Cell[219156, 6106, 564, 12, 98, "Message",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], -Cell[219723, 6120, 567, 12, 98, "Message",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], -Cell[220293, 6134, 570, 12, 98, "Message",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], -Cell[220866, 6148, 455, 10, 32, "Message",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], -Cell[221324, 6160, 169, 3, 41, "Output",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +Cell[210378, 5688, 3708, 117, 575, "Input",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], +Cell[214089, 5807, 190, 2, 41, "Output",ExpressionUUID->"6c57c661-d18a-44e8-9195-c3df5e3c3fcf"] }, Open ]], +Cell[214294, 5812, 160, 3, 109, "Input",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], Cell[CellGroupData[{ -Cell[221530, 6168, 1936, 53, 232, "Input",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], -Cell[223469, 6223, 19994, 375, 295, "Output",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] +Cell[214479, 5819, 2073, 58, 276, "Input",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], +Cell[216555, 5879, 664, 14, 73, "Message",ExpressionUUID->"0f323f44-3ab0-4d46-8bd7-68dc8bf68f2f"], +Cell[217222, 5895, 666, 14, 73, "Message",ExpressionUUID->"19663d0a-b4a3-4f76-877e-bd552bc45507"], +Cell[217891, 5911, 666, 14, 73, "Message",ExpressionUUID->"b7a2220e-ea35-4c20-90a6-f0baa4cc28cf"], +Cell[218560, 5927, 492, 11, 32, "Message",ExpressionUUID->"03cfeb2f-58b0-42ef-90f2-abd644c04bb3"], +Cell[219055, 5940, 193, 2, 41, "Output",ExpressionUUID->"f025a112-1e41-4ae2-b26e-1440feab8758"] }, Open ]], Cell[CellGroupData[{ -Cell[243500, 6603, 2092, 60, 311, "Input",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], -Cell[245595, 6665, 501, 11, 71, "Message",ExpressionUUID->"53d31480-3c5e-ef4a-987b-a232cf0b03f3"], -Cell[246099, 6678, 503, 11, 71, "Message",ExpressionUUID->"b7d94271-16f1-6346-b579-21279019eafb"], -Cell[246605, 6691, 506, 11, 71, "Message",ExpressionUUID->"bfaea4b0-a812-1847-9911-9291b70d2c8f"], -Cell[247114, 6704, 456, 10, 32, "Message",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], -Cell[247573, 6716, 41581, 727, 292, "Output",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] +Cell[219285, 5947, 2071, 58, 276, "Input",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], +Cell[221359, 6007, 662, 14, 73, "Message",ExpressionUUID->"f53f2077-cd85-4b11-b5bd-600f1107965b"], +Cell[222024, 6023, 664, 14, 73, "Message",ExpressionUUID->"58afb364-84d4-4f9d-b69b-bf8a3c05ee34"], +Cell[222691, 6039, 662, 14, 73, "Message",ExpressionUUID->"88829e2e-7b04-4480-b515-ae3f9a42a2cd"], +Cell[223356, 6055, 490, 11, 32, "Message",ExpressionUUID->"0547cd7b-f846-447f-bd0f-b1732001f7dd"], +Cell[223849, 6068, 187, 2, 41, "Output",ExpressionUUID->"4be0d77a-116f-4562-8cab-e8edc61d3d42"] }, Open ]], -Cell[289169, 7446, 2453, 69, 296, "Input",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], -Cell[291625, 7517, 209, 5, 36, "Input",ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-0ac982b58a3a"], Cell[CellGroupData[{ -Cell[291859, 7526, 217, 7, 61, "Input",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], -Cell[292079, 7535, 170, 3, 41, "Output",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +Cell[224073, 6075, 2047, 54, 232, "Input",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], +Cell[226123, 6131, 20377, 382, 295, "Output",ExpressionUUID->"eadfa944-26fd-4ae4-942e-187866f4abea"] }, Open ]], Cell[CellGroupData[{ -Cell[292286, 7543, 1814, 53, 311, "Input",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], -Cell[294103, 7598, 506, 11, 71, "Message",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], -Cell[294612, 7611, 512, 11, 71, "Message",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], -Cell[295127, 7624, 509, 11, 71, "Message",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], -Cell[295639, 7637, 456, 10, 32, "Message",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], -Cell[296098, 7649, 22336, 412, 290, "Output",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] +Cell[246537, 6518, 2111, 59, 311, "Input",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], +Cell[248651, 6579, 531, 12, 71, "Message",ExpressionUUID->"9206d99a-3017-483a-a915-878a738aa955"], +Cell[249185, 6593, 538, 12, 71, "Message",ExpressionUUID->"be2e999f-3685-4fe6-9f19-a2203a171554"], +Cell[249726, 6607, 541, 12, 71, "Message",ExpressionUUID->"fef2ba21-f9e1-4b97-82b7-348add69f0c8"], +Cell[250270, 6621, 489, 11, 32, "Message",ExpressionUUID->"b1f76376-9a50-4783-af24-2d70ab85ba8b"], +Cell[250762, 6634, 22355, 413, 294, "Output",ExpressionUUID->"680c550a-4dd6-4fa9-87a2-9092f543a896"] }, Open ]], Cell[CellGroupData[{ -Cell[318471, 8066, 1616, 48, 132, "Input",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], -Cell[320090, 8116, 584, 12, 118, "Message",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], -Cell[320677, 8130, 588, 12, 118, "Message",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], -Cell[321268, 8144, 591, 12, 118, "Message",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], -Cell[321862, 8158, 456, 10, 32, "Message",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], -Cell[322321, 8170, 173, 3, 41, "Output",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] +Cell[273154, 7052, 2475, 69, 296, "Input",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], +Cell[275632, 7123, 9492, 222, 298, "Output",ExpressionUUID->"24ed2fd4-3ce6-4b0f-addd-e6dc5fb74395"] }, Open ]], Cell[CellGroupData[{ -Cell[322531, 8178, 2274, 65, 348, "Input",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], -Cell[324808, 8245, 566, 12, 98, "Message",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], -Cell[325377, 8259, 569, 12, 98, "Message",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], -Cell[325949, 8273, 572, 12, 98, "Message",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], -Cell[326524, 8287, 458, 10, 32, "Message",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], -Cell[326985, 8299, 171, 3, 41, "Output",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] +Cell[285161, 7350, 228, 4, 36, "Input",ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-0ac982b58a3a"], +Cell[285392, 7356, 28717, 545, 294, "Output",ExpressionUUID->"fdad88eb-720e-4575-b237-f98d499af98a"] }, Open ]], Cell[CellGroupData[{ -Cell[327193, 8307, 2221, 64, 348, "Input",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], -Cell[329417, 8373, 564, 12, 109, "Message",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], -Cell[329984, 8387, 567, 12, 109, "Message",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], -Cell[330554, 8401, 570, 12, 98, "Message",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], -Cell[331127, 8415, 456, 10, 32, "Message",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], -Cell[331586, 8427, 173, 3, 41, "Output",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] +Cell[314146, 7906, 236, 6, 61, "Input",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], +Cell[314385, 7914, 189, 2, 41, "Output",ExpressionUUID->"e7029744-da41-4995-a057-0b4a968dfb83"] }, Open ]], Cell[CellGroupData[{ -Cell[331796, 8435, 2223, 64, 348, "Input",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], -Cell[334022, 8501, 566, 12, 98, "Message",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], -Cell[334591, 8515, 569, 12, 98, "Message",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], -Cell[335163, 8529, 570, 12, 98, "Message",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], -Cell[335736, 8543, 458, 10, 32, "Message",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], -Cell[336197, 8555, 170, 3, 41, "Output",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] +Cell[314611, 7921, 1833, 52, 311, "Input",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], +Cell[316447, 7975, 542, 12, 71, "Message",ExpressionUUID->"05aeb4df-a0fd-4840-8ba5-c70157624877"], +Cell[316992, 7989, 544, 12, 71, "Message",ExpressionUUID->"7799160d-adb8-4fd8-bca6-d1c3d8f89d10"], +Cell[317539, 8003, 544, 12, 71, "Message",ExpressionUUID->"38bfa911-f93e-4f0a-9f01-a8416c4e852e"], +Cell[318086, 8017, 491, 11, 32, "Message",ExpressionUUID->"91404033-5769-4d8e-b1c7-40af0ee010c2"], +Cell[318580, 8030, 22210, 410, 294, "Output",ExpressionUUID->"372ccbe7-c8ea-4210-998e-7e24bda81d36"] }, Open ]], Cell[CellGroupData[{ -Cell[336404, 8563, 213, 6, 60, "Input",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], -Cell[336620, 8571, 171, 3, 41, "Output",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] +Cell[340827, 8445, 1616, 48, 132, "Input",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], +Cell[342446, 8495, 665, 14, 73, "Message",ExpressionUUID->"da4932fd-31fc-454e-ab58-e4328459d973"], +Cell[343114, 8511, 666, 14, 73, "Message",ExpressionUUID->"dd286864-7221-4fc8-a67b-8df71a65ac06"], +Cell[343783, 8527, 665, 14, 73, "Message",ExpressionUUID->"9eb080f7-abd2-466a-8b78-cf238fb05de1"], +Cell[344451, 8543, 493, 11, 32, "Message",ExpressionUUID->"8b69d875-2b45-4e43-b48e-f93e304a0f83"], +Cell[344947, 8556, 195, 3, 41, "Output",ExpressionUUID->"fba56b73-da4a-4a8e-b4bb-df205b684c4d"] }, Open ]], -Cell[336806, 8577, 244, 5, 36, "Input",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], Cell[CellGroupData[{ -Cell[337075, 8586, 558, 19, 66, "Input",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], -Cell[337636, 8607, 173, 3, 41, "Output",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] +Cell[345179, 8564, 2296, 65, 348, "Input",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], +Cell[347478, 8631, 669, 14, 73, "Message",ExpressionUUID->"a6ace31b-0f9e-4187-839a-b78c3331c445"], +Cell[348150, 8647, 669, 14, 73, "Message",ExpressionUUID->"8602a33c-0d3c-4687-8452-ede89facfff0"], +Cell[348822, 8663, 667, 14, 73, "Message",ExpressionUUID->"1ef16a60-02e4-4b4d-b059-56e009cd33aa"], +Cell[349492, 8679, 495, 11, 32, "Message",ExpressionUUID->"e5d4d2da-8e45-4b65-b5a1-bf49d69bcd11"], +Cell[349990, 8692, 193, 3, 41, "Output",ExpressionUUID->"74dc83bf-1792-47b4-961d-5d458d0af21e"] }, Open ]], Cell[CellGroupData[{ -Cell[337846, 8615, 170, 5, 71, "Input",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], -Cell[338019, 8622, 171, 3, 41, "Output",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] +Cell[350220, 8700, 2233, 63, 348, "Input",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], +Cell[352456, 8765, 667, 14, 73, "Message",ExpressionUUID->"33752325-ba54-44ce-972b-88f851b03547"], +Cell[353126, 8781, 669, 14, 73, "Message",ExpressionUUID->"87b5ffea-7afc-4e30-a5a8-612e7da92338"], +Cell[353798, 8797, 665, 14, 73, "Message",ExpressionUUID->"179f7fd6-cfb1-4773-919a-a3f8faf3788d"], +Cell[354466, 8813, 493, 11, 32, "Message",ExpressionUUID->"e6311296-ed61-43b0-b60d-dd1f346b8b95"], +Cell[354962, 8826, 196, 3, 41, "Output",ExpressionUUID->"44df2662-e374-42a1-bd93-2e976e7a1594"] }, Open ]], Cell[CellGroupData[{ -Cell[338227, 8630, 181, 5, 55, "Input",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], -Cell[338411, 8637, 173, 3, 41, "Output",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] +Cell[355195, 8834, 2235, 63, 348, "Input",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], +Cell[357433, 8899, 667, 14, 73, "Message",ExpressionUUID->"2e9ad321-ca35-41db-82e7-84073d446f5e"], +Cell[358103, 8915, 669, 14, 73, "Message",ExpressionUUID->"e66cea00-8406-4233-bf50-3701b189e249"], +Cell[358775, 8931, 669, 14, 73, "Message",ExpressionUUID->"2d33378e-cc31-47d2-95f2-74a57c1c5d26"], +Cell[359447, 8947, 495, 11, 32, "Message",ExpressionUUID->"0a17b75b-ccb2-4cfc-964b-1dec932cd009"], +Cell[359945, 8960, 192, 3, 41, "Output",ExpressionUUID->"f6cbb29a-2346-48e3-854f-55ad45fd7aba"] }, Open ]], Cell[CellGroupData[{ -Cell[338621, 8645, 6055, 185, 831, "Input",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], -Cell[344679, 8832, 175, 3, 41, "Output",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] +Cell[360174, 8968, 236, 6, 60, "Input",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], +Cell[360413, 8976, 194, 3, 41, "Output",ExpressionUUID->"edde5c62-6b1a-4213-9bbb-88529e60a119"] }, Open ]], +Cell[360622, 8982, 270, 6, 109, "Input",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], Cell[CellGroupData[{ -Cell[344891, 8840, 368, 9, 53, "Input",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], -Cell[345262, 8851, 172, 3, 41, "Output",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] +Cell[360917, 8992, 558, 19, 66, "Input",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], +Cell[361478, 9013, 197, 3, 41, "Output",ExpressionUUID->"6eb76f78-065f-4650-b0d9-bc16be1a103d"] }, Open ]], Cell[CellGroupData[{ -Cell[345471, 8859, 6122, 187, 900, "Input",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], -Cell[351596, 9048, 173, 3, 41, "Output",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] +Cell[361712, 9021, 170, 5, 71, "Input",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], +Cell[361885, 9028, 193, 3, 41, "Output",ExpressionUUID->"0f3f47ed-db81-43bf-b416-21c606e84186"] }, Open ]], Cell[CellGroupData[{ -Cell[351806, 9056, 368, 9, 53, "Input",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], -Cell[352177, 9067, 170, 3, 41, "Output",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] +Cell[362115, 9036, 181, 5, 55, "Input",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], +Cell[362299, 9043, 192, 3, 41, "Output",ExpressionUUID->"361a079e-a291-4be7-9f24-db832ad83c03"] }, Open ]], Cell[CellGroupData[{ -Cell[352384, 9075, 2663, 88, 435, "Input",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], -Cell[355050, 9165, 171, 3, 41, "Output",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] +Cell[362528, 9051, 6055, 185, 831, "Input",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], +Cell[368586, 9238, 198, 3, 41, "Output",ExpressionUUID->"9eee9968-b782-44d1-a66a-b5476c2bd188"] }, Open ]], Cell[CellGroupData[{ -Cell[355258, 9173, 2603, 85, 435, "Input",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], -Cell[357864, 9260, 171, 3, 41, "Output",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] +Cell[368821, 9246, 368, 9, 53, "Input",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], +Cell[369192, 9257, 194, 3, 41, "Output",ExpressionUUID->"c81f66fa-ea38-4c5c-842b-ce915d9fd7c2"] }, Open ]], Cell[CellGroupData[{ -Cell[358072, 9268, 3712, 118, 575, "Input",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], -Cell[361787, 9388, 170, 3, 41, "Output",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] +Cell[369423, 9265, 6122, 187, 900, "Input",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], +Cell[375548, 9454, 195, 3, 41, "Output",ExpressionUUID->"a2be0c53-6d1b-4dd6-b733-9df850d82337"] }, Open ]], Cell[CellGroupData[{ -Cell[361994, 9396, 2052, 59, 276, "Input",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], -Cell[364049, 9457, 573, 12, 109, "Message",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], -Cell[364625, 9471, 577, 12, 98, "Message",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], -Cell[365205, 9485, 580, 12, 98, "Message",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], -Cell[365788, 9499, 456, 10, 32, "Message",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], -Cell[366247, 9511, 170, 3, 41, "Output",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] +Cell[375780, 9462, 368, 9, 53, "Input",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], +Cell[376151, 9473, 194, 3, 41, "Output",ExpressionUUID->"b2d15396-d178-412a-b4c3-4694e75981b6"] }, Open ]], Cell[CellGroupData[{ -Cell[366454, 9519, 2054, 59, 276, "Input",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], -Cell[368511, 9580, 573, 12, 98, "Message",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], -Cell[369087, 9594, 577, 12, 98, "Message",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], -Cell[369667, 9608, 582, 12, 98, "Message",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], -Cell[370252, 9622, 456, 10, 32, "Message",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], -Cell[370711, 9634, 170, 3, 41, "Output",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] +Cell[376382, 9481, 2663, 88, 435, "Input",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], +Cell[379048, 9571, 194, 3, 41, "Output",ExpressionUUID->"b5752162-ce2c-4b84-99fa-d18893fa529f"] }, Open ]], Cell[CellGroupData[{ -Cell[370918, 9642, 2028, 55, 232, "Input",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], -Cell[372949, 9699, 20422, 382, 109, "Output",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] +Cell[379279, 9579, 2603, 85, 435, "Input",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], +Cell[381885, 9666, 192, 3, 41, "Output",ExpressionUUID->"014d11b1-8158-4bff-9b50-275713e031dc"] }, Open ]], Cell[CellGroupData[{ -Cell[393408, 10086, 2120, 60, 109, "Input",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], -Cell[395531, 10148, 502, 11, 109, "Message",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], -Cell[396036, 10161, 506, 11, 71, "Message",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], -Cell[396545, 10174, 505, 11, 71, "Message",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], -Cell[397053, 10187, 458, 10, 32, "Message",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], -Cell[397514, 10199, 22288, 412, 290, "Output",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] +Cell[382114, 9674, 3712, 118, 575, "Input",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], +Cell[385829, 9794, 195, 3, 41, "Output",ExpressionUUID->"bf5a12ab-16b7-4b21-be20-1430e9b24555"] }, Open ]], -Cell[419817, 10614, 209, 5, 36, "Input",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], Cell[CellGroupData[{ -Cell[420051, 10623, 1616, 48, 132, "Input",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], -Cell[421670, 10673, 595, 12, 118, "Message",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], -Cell[422268, 10687, 595, 12, 118, "Message",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], -Cell[422866, 10701, 599, 12, 118, "Message",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], -Cell[423468, 10715, 456, 10, 32, "Message",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], -Cell[423927, 10727, 171, 3, 41, "Output",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] +Cell[386061, 9802, 2075, 59, 276, "Input",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], +Cell[388139, 9863, 560, 12, 98, "Message",ExpressionUUID->"4c17bede-0fd0-4f6a-b94d-d6db60bf5f22"], +Cell[388702, 9877, 565, 12, 98, "Message",ExpressionUUID->"4b55bee0-de60-4a11-8c2d-6404966f412d"], +Cell[389270, 9891, 569, 12, 98, "Message",ExpressionUUID->"ec060d96-a0b0-4771-a550-339a790095a4"], +Cell[389842, 9905, 493, 11, 32, "Message",ExpressionUUID->"65013923-62b2-47a3-89d8-ab4927ab2080"], +Cell[390338, 9918, 193, 3, 41, "Output",ExpressionUUID->"fd032494-87a5-4179-af01-33eee2995479"] }, Open ]], Cell[CellGroupData[{ -Cell[424135, 10735, 2248, 64, 348, "Input",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], -Cell[426386, 10801, 575, 12, 98, "Message",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], -Cell[426964, 10815, 577, 12, 98, "Message",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], -Cell[427544, 10829, 582, 12, 98, "Message",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], -Cell[428129, 10843, 458, 10, 32, "Message",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], -Cell[428590, 10855, 172, 3, 41, "Output",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] +Cell[390568, 9926, 2077, 59, 276, "Input",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], +Cell[392648, 9987, 560, 12, 98, "Message",ExpressionUUID->"d178d4bc-c666-4a09-a3d1-d536c87954dc"], +Cell[393211, 10001, 565, 12, 98, "Message",ExpressionUUID->"6e239200-b803-401c-bd72-f8dce1f399ea"], +Cell[393779, 10015, 569, 12, 98, "Message",ExpressionUUID->"d16e47ee-8357-47a7-ad09-10d3ee271bd2"], +Cell[394351, 10029, 493, 11, 32, "Message",ExpressionUUID->"0b051fda-8c4a-4703-8432-5e287296f814"], +Cell[394847, 10042, 191, 3, 41, "Output",ExpressionUUID->"3fd57e1b-bf14-4535-bd39-5d65f965adb4"] }, Open ]], Cell[CellGroupData[{ -Cell[428799, 10863, 2215, 63, 348, "Input",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], -Cell[431017, 10928, 575, 12, 98, "Message",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], -Cell[431595, 10942, 577, 12, 98, "Message",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], -Cell[432175, 10956, 582, 12, 98, "Message",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], -Cell[432760, 10970, 458, 10, 32, "Message",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], -Cell[433221, 10982, 170, 3, 41, "Output",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] +Cell[395075, 10050, 2051, 55, 232, "Input",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], +Cell[397129, 10107, 20263, 383, 290, "Output",ExpressionUUID->"b956cd4e-6f8c-4d62-8fa0-73ed7a28fed5"] }, Open ]], Cell[CellGroupData[{ -Cell[433428, 10990, 2223, 64, 348, "Input",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], -Cell[435654, 11056, 573, 12, 71, "Message",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], -Cell[436230, 11070, 577, 12, 71, "Message",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], -Cell[436810, 11084, 580, 12, 98, "Message",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], -Cell[437393, 11098, 456, 10, 32, "Message",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], -Cell[437852, 11110, 173, 3, 41, "Output",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] +Cell[417429, 10495, 2143, 60, 311, "Input",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], +Cell[419575, 10557, 529, 12, 71, "Message",ExpressionUUID->"5e0f7989-d1c6-4136-b217-c9154d7086fa"], +Cell[420107, 10571, 532, 12, 71, "Message",ExpressionUUID->"2f6fede8-1d41-4bb8-a786-72274937576a"], +Cell[420642, 10585, 534, 12, 71, "Message",ExpressionUUID->"be2c1d75-8e25-4cc8-97fa-4b3a8a820761"], +Cell[421179, 10599, 495, 11, 32, "Message",ExpressionUUID->"7d471036-d71f-4b3d-9f76-78b04ad29255"], +Cell[421677, 10612, 22498, 417, 290, "Output",ExpressionUUID->"3b16520f-d1d4-4fe6-9259-a2e664174762"] }, Open ]], Cell[CellGroupData[{ -Cell[438062, 11118, 213, 6, 60, "Input",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], -Cell[438278, 11126, 173, 3, 41, "Output",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] +Cell[444212, 11034, 232, 5, 36, "Input",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], +Cell[444447, 11041, 28856, 549, 290, "Output",ExpressionUUID->"f0a837c7-bc2d-4ae0-b7b1-671d7fe3c60f"] }, Open ]], -Cell[438466, 11132, 247, 5, 36, "Input",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], Cell[CellGroupData[{ -Cell[438738, 11141, 558, 19, 66, "Input",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], -Cell[439299, 11162, 173, 3, 41, "Output",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] +Cell[473340, 11595, 1616, 48, 132, "Input",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], +Cell[474959, 11645, 667, 14, 73, "Message",ExpressionUUID->"f6738cec-6f58-491e-b5fe-1eaf22c3bffd"], +Cell[475629, 11661, 667, 14, 73, "Message",ExpressionUUID->"023af4ae-371c-4ab3-8351-0006b2703f12"], +Cell[476299, 11677, 667, 14, 73, "Message",ExpressionUUID->"c057ff48-17fb-45f9-a6c1-141e922954d8"], +Cell[476969, 11693, 495, 11, 32, "Message",ExpressionUUID->"e65e466d-b6a1-4e4d-a84b-19ceca3b3269"], +Cell[477467, 11706, 197, 3, 41, "Output",ExpressionUUID->"410af060-582d-47a4-a614-eb31053d954a"] }, Open ]], Cell[CellGroupData[{ -Cell[439509, 11170, 170, 5, 71, "Input",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], -Cell[439682, 11177, 173, 3, 41, "Output",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] +Cell[477701, 11714, 2271, 64, 348, "Input",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], +Cell[479975, 11780, 562, 12, 98, "Message",ExpressionUUID->"de9a378e-b4b1-40fc-a724-65ae1f5a4223"], +Cell[480540, 11794, 567, 12, 98, "Message",ExpressionUUID->"a7270248-5157-4c0d-b2d9-5f102f980714"], +Cell[481110, 11808, 571, 12, 98, "Message",ExpressionUUID->"1951af1c-b8cf-4230-ab0e-1aca11f2bfdd"], +Cell[481684, 11822, 497, 11, 32, "Message",ExpressionUUID->"1f109dbd-9326-480e-a751-f509e88530b1"], +Cell[482184, 11835, 197, 3, 41, "Output",ExpressionUUID->"618ac322-19c0-401e-aeb3-4fdf94c9054e"] }, Open ]], Cell[CellGroupData[{ -Cell[439892, 11185, 181, 5, 55, "Input",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], -Cell[440076, 11192, 173, 3, 41, "Output",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] +Cell[482418, 11843, 2229, 63, 348, "Input",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], +Cell[484650, 11908, 562, 12, 98, "Message",ExpressionUUID->"33a9b624-3e40-462d-a366-3f3dd59e9a0d"], +Cell[485215, 11922, 567, 12, 98, "Message",ExpressionUUID->"1b313c29-5ad3-4f76-a153-d393fe2fa30e"], +Cell[485785, 11936, 571, 12, 98, "Message",ExpressionUUID->"38099869-8fe9-41f2-80ff-513229161c24"], +Cell[486359, 11950, 495, 11, 32, "Message",ExpressionUUID->"3c43676a-746c-4ab6-8417-a31331de7343"], +Cell[486857, 11963, 194, 3, 41, "Output",ExpressionUUID->"90bf5d8b-307d-4e04-be32-72c033b2cd83"] }, Open ]], Cell[CellGroupData[{ -Cell[440286, 11200, 6055, 185, 831, "Input",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], -Cell[446344, 11387, 172, 3, 41, "Output",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] +Cell[487088, 11971, 2235, 63, 348, "Input",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], +Cell[489326, 12036, 560, 12, 98, "Message",ExpressionUUID->"c9d8e52f-ce5d-4a26-9130-8d41a9961ce3"], +Cell[489889, 12050, 565, 12, 98, "Message",ExpressionUUID->"05af3048-d0d6-4094-acc5-35c2c0862db0"], +Cell[490457, 12064, 571, 12, 98, "Message",ExpressionUUID->"1fda6fe4-961f-4349-904d-18de5cdacdd6"], +Cell[491031, 12078, 493, 11, 32, "Message",ExpressionUUID->"a375c5e9-010a-43cb-abf8-6ce96c5aa36f"], +Cell[491527, 12091, 194, 3, 41, "Output",ExpressionUUID->"9a844228-9977-4395-b499-35116f63dae4"] }, Open ]], Cell[CellGroupData[{ -Cell[446553, 11395, 368, 9, 53, "Input",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], -Cell[446924, 11406, 172, 3, 41, "Output",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] +Cell[491758, 12099, 236, 6, 60, "Input",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], +Cell[491997, 12107, 198, 3, 41, "Output",ExpressionUUID->"3795ce20-bf4b-4f6a-b98f-278f193557e7"] }, Open ]], +Cell[492210, 12113, 273, 6, 109, "Input",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], Cell[CellGroupData[{ -Cell[447133, 11414, 6122, 187, 900, "Input",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], -Cell[453258, 11603, 173, 3, 41, "Output",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] +Cell[492508, 12123, 558, 19, 66, "Input",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], +Cell[493069, 12144, 195, 3, 41, "Output",ExpressionUUID->"bc9d2bcd-409d-4901-b05e-008080e8d836"] }, Open ]], Cell[CellGroupData[{ -Cell[453468, 11611, 368, 9, 53, "Input",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], -Cell[453839, 11622, 170, 3, 41, "Output",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] +Cell[493301, 12152, 170, 5, 71, "Input",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], +Cell[493474, 12159, 194, 3, 41, "Output",ExpressionUUID->"59861813-9960-42b8-b64f-657a831b5d75"] }, Open ]], Cell[CellGroupData[{ -Cell[454046, 11630, 2663, 88, 435, "Input",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], -Cell[456712, 11720, 171, 3, 41, "Output",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] +Cell[493705, 12167, 181, 5, 55, "Input",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], +Cell[493889, 12174, 193, 3, 41, "Output",ExpressionUUID->"7176c8b4-0681-4a23-9c7c-b88535eccafb"] }, Open ]], Cell[CellGroupData[{ -Cell[456920, 11728, 2603, 85, 435, "Input",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], -Cell[459526, 11815, 173, 3, 109, "Output",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] +Cell[494119, 12182, 6055, 185, 831, "Input",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], +Cell[500177, 12369, 196, 3, 41, "Output",ExpressionUUID->"90ef3382-3d27-4f55-b2a5-496101f287ee"] }, Open ]], Cell[CellGroupData[{ -Cell[459736, 11823, 3712, 118, 109, "Input",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], -Cell[463451, 11943, 173, 3, 109, "Output",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] +Cell[500410, 12377, 368, 9, 53, "Input",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], +Cell[500781, 12388, 195, 3, 41, "Output",ExpressionUUID->"e623d4c8-3a3a-406f-8736-f2c30dfbb7d6"] }, Open ]], Cell[CellGroupData[{ -Cell[463661, 11951, 2052, 59, 276, "Input",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], -Cell[465716, 12012, 568, 12, 98, "Message",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], -Cell[466287, 12026, 573, 12, 98, "Message",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], -Cell[466863, 12040, 576, 12, 98, "Message",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], -Cell[467442, 12054, 458, 10, 32, "Message",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], -Cell[467903, 12066, 172, 3, 41, "Output",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] +Cell[501013, 12396, 6122, 187, 900, "Input",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], +Cell[507138, 12585, 195, 3, 41, "Output",ExpressionUUID->"84208eae-d877-459f-bb3a-6aba8dbe9c42"] }, Open ]], Cell[CellGroupData[{ -Cell[468112, 12074, 2052, 59, 276, "Input",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], -Cell[470167, 12135, 568, 12, 98, "Message",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], -Cell[470738, 12149, 573, 12, 98, "Message",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], -Cell[471314, 12163, 574, 12, 98, "Message",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], -Cell[471891, 12177, 458, 10, 32, "Message",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], -Cell[472352, 12189, 172, 3, 41, "Output",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] +Cell[507370, 12593, 368, 9, 53, "Input",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], +Cell[507741, 12604, 192, 3, 41, "Output",ExpressionUUID->"c796ce30-4a92-421f-94ad-98c7afed130c"] }, Open ]], Cell[CellGroupData[{ -Cell[472561, 12197, 2028, 55, 232, "Input",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], -Cell[474592, 12254, 20375, 384, 295, "Output",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] +Cell[507970, 12612, 2663, 88, 435, "Input",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], +Cell[510636, 12702, 194, 3, 41, "Output",ExpressionUUID->"dac5dffc-f2ef-43d1-8ec9-6becdecbf1d6"] }, Open ]], Cell[CellGroupData[{ -Cell[495004, 12643, 2118, 60, 311, "Input",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], -Cell[497125, 12705, 501, 11, 109, "Message",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], -Cell[497629, 12718, 503, 11, 109, "Message",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], -Cell[498135, 12731, 506, 11, 109, "Message",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], -Cell[498644, 12744, 458, 10, 32, "Message",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], -Cell[499105, 12756, 22161, 409, 290, "Output",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] +Cell[510867, 12710, 2603, 85, 435, "Input",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], +Cell[513473, 12797, 195, 3, 41, "Output",ExpressionUUID->"c62480ea-7823-4ead-97fe-0d6138340bcc"] }, Open ]], -Cell[521281, 13168, 209, 5, 109, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], Cell[CellGroupData[{ -Cell[521515, 13177, 1616, 48, 132, "Input",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], -Cell[523134, 13227, 590, 12, 118, "Message",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], -Cell[523727, 13241, 589, 12, 118, "Message",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], -Cell[524319, 13255, 593, 12, 109, "Message",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], -Cell[524915, 13269, 456, 10, 32, "Message",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], -Cell[525374, 13281, 170, 3, 41, "Output",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] +Cell[513705, 12805, 3712, 118, 575, "Input",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], +Cell[517420, 12925, 196, 3, 41, "Output",ExpressionUUID->"64745efa-99e5-40ea-856b-717a4c831597"] }, Open ]], Cell[CellGroupData[{ -Cell[525581, 13289, 2251, 64, 348, "Input",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], -Cell[527835, 13355, 568, 12, 109, "Message",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], -Cell[528406, 13369, 573, 12, 109, "Message",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], -Cell[528982, 13383, 574, 12, 109, "Message",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], -Cell[529559, 13397, 458, 10, 32, "Message",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], -Cell[530020, 13409, 173, 3, 41, "Output",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] +Cell[517653, 12933, 2075, 59, 276, "Input",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], +Cell[519731, 12994, 571, 12, 98, "Message",ExpressionUUID->"43ce2f58-d825-4520-82bd-c38c85e027b5"], +Cell[520305, 13008, 572, 12, 98, "Message",ExpressionUUID->"150e7cfb-acab-47a3-993d-eee6d6475364"], +Cell[520880, 13022, 665, 14, 73, "Message",ExpressionUUID->"6e7a2e68-adda-4681-b557-d8acbc338480"], +Cell[521548, 13038, 495, 11, 32, "Message",ExpressionUUID->"9f5ca981-4e58-4d16-92d6-c4ff0b7d2c34"], +Cell[522046, 13051, 194, 3, 41, "Output",ExpressionUUID->"337dbac4-f712-4bf9-a0a8-dff2a563fec4"] }, Open ]], Cell[CellGroupData[{ -Cell[530230, 13417, 2221, 64, 348, "Input",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], -Cell[532454, 13483, 570, 12, 98, "Message",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], -Cell[533027, 13497, 573, 12, 98, "Message",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], -Cell[533603, 13511, 573, 12, 98, "Message",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], -Cell[534179, 13525, 458, 10, 32, "Message",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], -Cell[534640, 13537, 171, 3, 41, "Output",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] +Cell[522277, 13059, 2075, 59, 276, "Input",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], +Cell[524355, 13120, 569, 12, 98, "Message",ExpressionUUID->"5a1c3ed4-7383-4784-a003-826d071773f2"], +Cell[524927, 13134, 572, 12, 98, "Message",ExpressionUUID->"dbe42c9d-1e3a-4aa5-8812-ce456b6b38bb"], +Cell[525502, 13148, 667, 14, 73, "Message",ExpressionUUID->"4fb5ff58-a387-487f-b7c7-7d57fc43c6e0"], +Cell[526172, 13164, 495, 11, 32, "Message",ExpressionUUID->"de3af782-8ade-4e19-9569-05bae5a8842c"], +Cell[526670, 13177, 193, 3, 41, "Output",ExpressionUUID->"0c2cc90e-bae6-46be-843e-940c5ce10611"] }, Open ]], Cell[CellGroupData[{ -Cell[534848, 13545, 2221, 64, 348, "Input",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], -Cell[537072, 13611, 570, 12, 98, "Message",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], -Cell[537645, 13625, 573, 12, 98, "Message",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], -Cell[538221, 13639, 574, 12, 98, "Message",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], -Cell[538798, 13653, 458, 10, 32, "Message",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], -Cell[539259, 13665, 173, 3, 41, "Output",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] +Cell[526900, 13185, 2051, 55, 232, "Input",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], +Cell[528954, 13242, 20359, 383, 290, "Output",ExpressionUUID->"2f250fd7-1839-4389-931a-9886de7df465"] }, Open ]], Cell[CellGroupData[{ -Cell[539469, 13673, 215, 6, 60, "Input",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], -Cell[539687, 13681, 172, 3, 41, "Output",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] +Cell[549350, 13630, 2141, 60, 311, "Input",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], +Cell[551494, 13692, 532, 12, 71, "Message",ExpressionUUID->"87858d52-5756-4fbc-a471-e5676a7da724"], +Cell[552029, 13706, 535, 12, 71, "Message",ExpressionUUID->"6104b9e3-6e6f-465f-b19c-00feb5aff361"], +Cell[552567, 13720, 537, 12, 71, "Message",ExpressionUUID->"f252fe02-faeb-4967-aa38-a6af4a362135"], +Cell[553107, 13734, 495, 11, 32, "Message",ExpressionUUID->"13157156-8e61-4b56-be16-714c81e2d9a2"], +Cell[553605, 13747, 22550, 417, 290, "Output",ExpressionUUID->"c9762919-0bbd-4f56-8213-b113d9b2a155"] }, Open ]], -Cell[539874, 13687, 188, 4, 36, "Input",ExpressionUUID->"0f666ac4-b3f5-4ded-99eb-a215694c157c"] +Cell[CellGroupData[{ +Cell[576192, 14169, 232, 5, 36, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], +Cell[576427, 14176, 28914, 549, 290, "Output",ExpressionUUID->"f3a9063e-de7d-408e-89b8-10a20b3f0731"] +}, Open ]], +Cell[CellGroupData[{ +Cell[605378, 14730, 1616, 48, 132, "Input",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], +Cell[606997, 14780, 668, 14, 73, "Message",ExpressionUUID->"9f0066aa-cfee-43f9-a5d9-b7e3cf1f5c3b"], +Cell[607668, 14796, 668, 14, 73, "Message",ExpressionUUID->"c1527066-87db-4ed7-b967-f07c49d71307"], +Cell[608339, 14812, 667, 14, 73, "Message",ExpressionUUID->"83c81b43-e3f1-4089-b083-254abe81933c"], +Cell[609009, 14828, 495, 11, 32, "Message",ExpressionUUID->"5436cd24-fe71-4cf1-a639-f84b3a425111"], +Cell[609507, 14841, 193, 3, 41, "Output",ExpressionUUID->"df10edac-0a02-467d-9b19-25230dc7015a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[609737, 14849, 2274, 64, 348, "Input",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], +Cell[612014, 14915, 569, 12, 98, "Message",ExpressionUUID->"bb592131-3301-462d-bade-631b185a2946"], +Cell[612586, 14929, 572, 12, 98, "Message",ExpressionUUID->"7a05989d-fcdd-4d92-845e-40f8d448a949"], +Cell[613161, 14943, 667, 14, 73, "Message",ExpressionUUID->"c9d13b39-bc62-46ad-907b-8d92b94cb05e"], +Cell[613831, 14959, 493, 11, 32, "Message",ExpressionUUID->"fc2f9cf4-3702-4b55-b73b-72fc9bd57890"], +Cell[614327, 14972, 198, 3, 41, "Output",ExpressionUUID->"ce983bf6-9d17-4c65-b17c-8ff315b40ca8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[614562, 14980, 2233, 63, 348, "Input",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], +Cell[616798, 15045, 571, 12, 98, "Message",ExpressionUUID->"42b84338-029b-4707-9550-c1475e20a461"], +Cell[617372, 15059, 574, 12, 98, "Message",ExpressionUUID->"8b92911c-84e1-40f8-bea1-2c1d5794988e"], +Cell[617949, 15073, 667, 14, 73, "Message",ExpressionUUID->"0f11440e-9bf5-4687-81d0-6b4d742efcc1"], +Cell[618619, 15089, 495, 11, 32, "Message",ExpressionUUID->"b26ad105-95e7-413b-a398-69abb47304fd"], +Cell[619117, 15102, 194, 3, 41, "Output",ExpressionUUID->"05802342-b87e-419a-aa70-8b26d7186919"] +}, Open ]], +Cell[CellGroupData[{ +Cell[619348, 15110, 2233, 63, 348, "Input",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], +Cell[621584, 15175, 571, 12, 98, "Message",ExpressionUUID->"f659f9e9-fbb0-4248-8619-08c0e681e752"], +Cell[622158, 15189, 574, 12, 98, "Message",ExpressionUUID->"f6c6a28f-b727-4680-95fe-ee19b63fe913"], +Cell[622735, 15203, 667, 14, 73, "Message",ExpressionUUID->"6c69638b-58ed-4255-93b3-db3bbf60c844"], +Cell[623405, 15219, 495, 11, 32, "Message",ExpressionUUID->"657a120c-0995-497b-984a-d2244599ae96"], +Cell[623903, 15232, 194, 3, 41, "Output",ExpressionUUID->"6928f81e-3e38-47d8-9af9-3eb0cdead909"] +}, Open ]], +Cell[CellGroupData[{ +Cell[624134, 15240, 238, 6, 60, "Input",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], +Cell[624375, 15248, 195, 3, 41, "Output",ExpressionUUID->"cbf9ddde-8a97-4308-ba30-82f7aea3fdb5"] +}, Open ]], +Cell[624585, 15254, 211, 4, 109, "Input",ExpressionUUID->"0f666ac4-b3f5-4ded-99eb-a215694c157c"] } ] *) diff --git a/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_pr_Qw1.nb b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_pr_Qw1.nb index 34532cd..0041ab5 100755 --- a/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_pr_Qw1.nb +++ b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_pr_Qw1.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 618148, 14951] -NotebookOptionsPosition[ 578273, 14320] -NotebookOutlinePosition[ 578714, 14338] -CellTagsIndexPosition[ 578671, 14335] +NotebookDataLength[ 666710, 15941] +NotebookOptionsPosition[ 625986, 15291] +NotebookOutlinePosition[ 626457, 15310] +CellTagsIndexPosition[ 626414, 15307] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -25,15 +25,14 @@ Cell[BoxData[ CellChangeTimes->{ 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, 3.9920650045886707`*^9, {3.9940727514461927`*^9, 3.994072775295883*^9}}, - CellLabel-> - "In[104]:=",ExpressionUUID->"46ee9baf-ea38-4cdd-b8d2-6697866c6380"], + CellLabel->"In[1]:=",ExpressionUUID->"46ee9baf-ea38-4cdd-b8d2-6697866c6380"], Cell[BoxData["1.6`"], "Output", CellChangeTimes->{ 3.991320420900818*^9, 3.99379974700918*^9, 3.993800338579624*^9, - 3.9938003856877937`*^9, {3.994072756527327*^9, 3.9940727765701942`*^9}}, - CellLabel-> - "Out[104]=",ExpressionUUID->"df56cd66-dc52-488f-a7e2-222800609c30"] + 3.9938003856877937`*^9, {3.994072756527327*^9, 3.9940727765701942`*^9}, + 3.994250051134872*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"7c6d31a3-aef3-446e-b058-8b87069b95ad"] }, Open ]], Cell[CellGroupData[{ @@ -42,15 +41,14 @@ Cell[BoxData[ RowBox[{"A", "=", "240"}]], "Input", CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { 3.993799082059058*^9, 3.9937990826790457`*^9}}, - CellLabel-> - "In[105]:=",ExpressionUUID->"37e66f91-f187-4f59-b4a8-68f043f59aad"], + CellLabel->"In[2]:=",ExpressionUUID->"37e66f91-f187-4f59-b4a8-68f043f59aad"], Cell[BoxData["240"], "Output", CellChangeTimes->{ 3.9913196497381973`*^9, 3.993799747282215*^9, 3.99380033885446*^9, - 3.993800385764146*^9, {3.994072756590721*^9, 3.994072776647262*^9}}, - CellLabel-> - "Out[105]=",ExpressionUUID->"80289892-ad7a-4dda-9db0-5d8fd6fd36c1"] + 3.993800385764146*^9, {3.994072756590721*^9, 3.994072776647262*^9}, + 3.99425005119064*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"6146afe2-a264-4a9f-bb04-5293e504484d"] }, Open ]], Cell[CellGroupData[{ @@ -59,15 +57,14 @@ Cell[BoxData[ RowBox[{"A1", "=", " ", "176"}]], "Input", CellChangeTimes->{ 3.991798961431202*^9, {3.993799246718399*^9, 3.993799247496731*^9}}, - CellLabel-> - "In[106]:=",ExpressionUUID->"66487090-f3d0-45cc-8f44-1b72ce709401"], + CellLabel->"In[3]:=",ExpressionUUID->"66487090-f3d0-45cc-8f44-1b72ce709401"], Cell[BoxData["176"], "Output", CellChangeTimes->{ 3.9913196497578354`*^9, 3.993799747300477*^9, 3.993800338871715*^9, - 3.993800385779578*^9, {3.994072756603456*^9, 3.9940727766610518`*^9}}, - CellLabel-> - "Out[106]=",ExpressionUUID->"13b33187-561d-453c-85bf-2150480479a5"] + 3.993800385779578*^9, {3.994072756603456*^9, 3.9940727766610518`*^9}, + 3.994250051200102*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"cefcb43a-df0d-46d8-b7a1-8d76be3d20de"] }, Open ]], Cell[CellGroupData[{ @@ -75,15 +72,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, - CellLabel-> - "In[107]:=",ExpressionUUID->"1f84ddca-d27e-4c21-96b3-9e46c8babde5"], + CellLabel->"In[4]:=",ExpressionUUID->"1f84ddca-d27e-4c21-96b3-9e46c8babde5"], Cell[BoxData["0.55`"], "Output", CellChangeTimes->{ 3.991319649777508*^9, 3.993799747316929*^9, 3.993800338888788*^9, - 3.993800385794606*^9, {3.994072756615819*^9, 3.994072776674831*^9}}, - CellLabel-> - "Out[107]=",ExpressionUUID->"f56080e6-6be5-4a3d-b5a2-336475d5a07b"] + 3.993800385794606*^9, {3.994072756615819*^9, 3.994072776674831*^9}, + 3.994250051209621*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"e35ff867-62f7-4e21-a3af-c4f170c22a45"] }, Open ]], Cell[CellGroupData[{ @@ -95,30 +91,28 @@ Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", - CellLabel-> - "In[108]:=",ExpressionUUID->"b024573c-0436-4fef-9078-b2f1f93edb5d"], + CellLabel->"In[5]:=",ExpressionUUID->"b024573c-0436-4fef-9078-b2f1f93edb5d"], Cell[BoxData["0.543`"], "Output", CellChangeTimes->{ 3.9913196497965145`*^9, 3.993799747333138*^9, 3.993800338906427*^9, - 3.993800385809697*^9, {3.994072756628705*^9, 3.994072776688608*^9}}, - CellLabel-> - "Out[108]=",ExpressionUUID->"a660b1ad-54ea-4a28-b59b-6c0b305309e7"] + 3.993800385809697*^9, {3.994072756628705*^9, 3.994072776688608*^9}, + 3.994250051219442*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"b1c24273-3133-4438-94d6-051897cb1a2d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", - CellLabel-> - "In[109]:=",ExpressionUUID->"ff07b2d7-60f7-4b14-8455-33dcc579fa48"], + CellLabel->"In[6]:=",ExpressionUUID->"ff07b2d7-60f7-4b14-8455-33dcc579fa48"], Cell[BoxData["0.17`"], "Output", CellChangeTimes->{ 3.9913196498144608`*^9, 3.9937997473490753`*^9, 3.993800338928018*^9, - 3.993800385813496*^9, {3.994072756641103*^9, 3.994072776693177*^9}}, - CellLabel-> - "Out[109]=",ExpressionUUID->"528b833e-8779-486a-9378-d5459997c832"] + 3.993800385813496*^9, {3.994072756641103*^9, 3.994072776693177*^9}, + 3.9942500512291117`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"710875e0-bf3c-4af8-b055-ebc0122a716f"] }, Open ]], Cell[CellGroupData[{ @@ -129,15 +123,14 @@ Cell[BoxData[ SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}]}]], "Input", CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, - CellLabel-> - "In[110]:=",ExpressionUUID->"d7eebc84-1507-4b94-aeb0-06ba1a7fe2af"], + CellLabel->"In[7]:=",ExpressionUUID->"d7eebc84-1507-4b94-aeb0-06ba1a7fe2af"], Cell[BoxData["6.5007312471204965`"], "Output", CellChangeTimes->{ 3.9913196498225155`*^9, 3.993799747366351*^9, 3.993800338948053*^9, - 3.993800385835421*^9, {3.994072756653392*^9, 3.994072776710863*^9}}, - CellLabel-> - "Out[110]=",ExpressionUUID->"4b57dd02-8a7a-44f5-8ce9-89033fbea820"] + 3.993800385835421*^9, {3.994072756653392*^9, 3.994072776710863*^9}, + 3.994250051240222*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"0a20a5e7-f3cf-4a23-a16c-35d86a236ce4"] }, Open ]], Cell[CellGroupData[{ @@ -149,15 +142,14 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", - CellLabel-> - "In[111]:=",ExpressionUUID->"5bba16fc-7492-444a-8c47-d0fef0e9e724"], + CellLabel->"In[8]:=",ExpressionUUID->"5bba16fc-7492-444a-8c47-d0fef0e9e724"], Cell[BoxData["4.64`"], "Output", CellChangeTimes->{ 3.9913196498425236`*^9, 3.993799747384128*^9, 3.993800338968402*^9, - 3.993800385850627*^9, {3.9940727566658983`*^9, 3.994072776724451*^9}}, - CellLabel-> - "Out[111]=",ExpressionUUID->"6e178369-8370-45c7-bfdf-7b5d6ca8aa48"] + 3.993800385850627*^9, {3.9940727566658983`*^9, 3.994072776724451*^9}, + 3.99425005124977*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"b3867591-909f-4574-b2cf-78eaae4215d1"] }, Open ]], Cell[CellGroupData[{ @@ -168,15 +160,13 @@ Cell[BoxData[ 3.991799283179735*^9, {3.9937993186432753`*^9, 3.993799326240513*^9}, { 3.993799364756247*^9, 3.993799370026516*^9}, {3.993799480203456*^9, 3.993799488443741*^9}}, - CellLabel-> - "In[112]:=",ExpressionUUID->"f5ec54d2-0635-437c-8011-be47e7aaa732"], + CellLabel->"In[9]:=",ExpressionUUID->"f5ec54d2-0635-437c-8011-be47e7aaa732"], Cell[BoxData["0.7654`"], "Output", CellChangeTimes->{ 3.9937997474107447`*^9, 3.993800338988703*^9, 3.9938003858649893`*^9, { - 3.994072756678184*^9, 3.994072776737771*^9}}, - CellLabel-> - "Out[112]=",ExpressionUUID->"ad273ec8-234e-45cc-825c-983eaeddaf50"] + 3.994072756678184*^9, 3.994072776737771*^9}, 3.9942500512594137`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"a456e39a-5c9c-4497-bd4b-7c9502e50cbe"] }, Open ]], Cell[CellGroupData[{ @@ -185,45 +175,41 @@ Cell[BoxData[ RowBox[{"b2", "=", "0.4513"}]], "Input", CellChangeTimes->{ 3.991799280663351*^9, {3.993799372069343*^9, 3.993799377027832*^9}}, - CellLabel-> - "In[113]:=",ExpressionUUID->"97c238e9-73d4-4a7e-b299-f9076851a055"], + CellLabel->"In[10]:=",ExpressionUUID->"97c238e9-73d4-4a7e-b299-f9076851a055"], Cell[BoxData["0.4513`"], "Output", CellChangeTimes->{ 3.993799747427882*^9, 3.993800339005568*^9, 3.993800385879345*^9, { - 3.9940727566903763`*^9, 3.9940727767497873`*^9}}, - CellLabel-> - "Out[113]=",ExpressionUUID->"4e786fe9-6e71-4124-8dd7-0b9e0be89510"] + 3.9940727566903763`*^9, 3.9940727767497873`*^9}, 3.994250051269306*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"a39ea077-2d60-4683-845b-409b0380b605"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", - CellLabel-> - "In[114]:=",ExpressionUUID->"341b1781-3c4d-4fab-9834-3fa9294df147"], + CellLabel->"In[11]:=",ExpressionUUID->"341b1781-3c4d-4fab-9834-3fa9294df147"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498927155`*^9, 3.993799747452092*^9, 3.993800339022945*^9, - 3.993800385893304*^9, {3.994072756702078*^9, 3.9940727767611856`*^9}}, - CellLabel-> - "Out[114]=",ExpressionUUID->"08d7eff9-1330-47c5-9b66-42679ccfe862"] + 3.993800385893304*^9, {3.994072756702078*^9, 3.9940727767611856`*^9}, + 3.9942500512792883`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"0b97c715-d96f-4dee-903f-f945d721552f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", - CellLabel-> - "In[115]:=",ExpressionUUID->"ee4af430-f24b-40e7-8410-6ff671c99c26"], + CellLabel->"In[12]:=",ExpressionUUID->"ee4af430-f24b-40e7-8410-6ff671c99c26"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498996067`*^9, 3.993799747468101*^9, 3.993800339041868*^9, - 3.9938003859074306`*^9, {3.9940727567134666`*^9, 3.994072776772606*^9}}, - CellLabel-> - "Out[115]=",ExpressionUUID->"fc90407e-40a6-4f53-8642-55423744de78"] + 3.9938003859074306`*^9, {3.9940727567134666`*^9, 3.994072776772606*^9}, + 3.994250051288867*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"01d2f41f-b2a3-4188-ae79-2b99df0dd7b8"] }, Open ]], Cell[CellGroupData[{ @@ -247,15 +233,14 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[116]:=",ExpressionUUID->"da9439a2-f2d1-45a8-aed2-4190ad60d48d"], + CellLabel->"In[13]:=",ExpressionUUID->"da9439a2-f2d1-45a8-aed2-4190ad60d48d"], Cell[BoxData["2.0171665757171935`"], "Output", CellChangeTimes->{ 3.9913197863028755`*^9, 3.9937997474836817`*^9, 3.9938003390596933`*^9, - 3.993800385921398*^9, {3.994072756725263*^9, 3.994072776784317*^9}}, - CellLabel-> - "Out[116]=",ExpressionUUID->"43b3c043-cc77-4c18-9594-2ea9e11f530c"] + 3.993800385921398*^9, {3.994072756725263*^9, 3.994072776784317*^9}, + 3.994250051302024*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"9802d7dd-1963-4f71-9447-0367d36ea25d"] }, Open ]], Cell[CellGroupData[{ @@ -279,15 +264,14 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[117]:=",ExpressionUUID->"f68c0082-03f1-4227-af6e-881d491ef838"], + CellLabel->"In[14]:=",ExpressionUUID->"f68c0082-03f1-4227-af6e-881d491ef838"], Cell[BoxData["1.5074639495621045`"], "Output", CellChangeTimes->{ 3.9913197864610195`*^9, 3.993799747498741*^9, 3.993800339079308*^9, - 3.993800385933773*^9, {3.994072756739362*^9, 3.994072776796445*^9}}, - CellLabel-> - "Out[117]=",ExpressionUUID->"adb8d0d7-df23-4f23-8552-c65056c1d528"] + 3.993800385933773*^9, {3.994072756739362*^9, 3.994072776796445*^9}, + 3.9942500513137093`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"3f541f1a-5605-418e-ac9a-09a465cd9b80"] }, Open ]], Cell[CellGroupData[{ @@ -342,15 +326,14 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[118]:=",ExpressionUUID->"ac163cda-e1c1-4ff2-9d93-f7846cecb903"], + CellLabel->"In[15]:=",ExpressionUUID->"ac163cda-e1c1-4ff2-9d93-f7846cecb903"], Cell[BoxData["0.5126444245586296`"], "Output", CellChangeTimes->{ 3.991319786533783*^9, 3.993799747513342*^9, 3.993800339097157*^9, - 3.993800385946536*^9, {3.994072756750792*^9, 3.9940727768075857`*^9}}, - CellLabel-> - "Out[118]=",ExpressionUUID->"5976bcbe-cfd0-4eb4-89f8-dd787c639744"] + 3.993800385946536*^9, {3.994072756750792*^9, 3.9940727768075857`*^9}, + 3.994250051324823*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"7c58441d-e776-4d5c-8d65-59e38d2ee72b"] }, Open ]], Cell[CellGroupData[{ @@ -401,16 +384,15 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[119]:=",ExpressionUUID->"58ce9701-481d-4806-942d-ceabd604b5a4"], + CellLabel->"In[16]:=",ExpressionUUID->"58ce9701-481d-4806-942d-ceabd604b5a4"], Cell[BoxData[ RowBox[{"-", "0.12490541136574432`"}]], "Output", CellChangeTimes->{ 3.991319786540777*^9, 3.993799747527933*^9, 3.9938003391147947`*^9, - 3.99380038595966*^9, {3.994072756762456*^9, 3.99407277681929*^9}}, - CellLabel-> - "Out[119]=",ExpressionUUID->"2be0b447-5e01-47ea-b7fe-6436648450ad"] + 3.99380038595966*^9, {3.994072756762456*^9, 3.99407277681929*^9}, + 3.9942500513352947`*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"01653b4d-2a3d-4d5e-9365-659b4b7c243d"] }, Open ]], Cell[CellGroupData[{ @@ -461,16 +443,15 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[120]:=",ExpressionUUID->"60ec0657-420d-4193-b80a-8c10a90b449e"], + CellLabel->"In[17]:=",ExpressionUUID->"60ec0657-420d-4193-b80a-8c10a90b449e"], Cell[BoxData[ RowBox[{"-", "0.47786808677187637`"}]], "Output", CellChangeTimes->{ 3.9913197865777817`*^9, 3.993799747543792*^9, 3.993800339132107*^9, - 3.9938003859736147`*^9, {3.994072756774001*^9, 3.994072776830839*^9}}, - CellLabel-> - "Out[120]=",ExpressionUUID->"f67510b9-cf52-4561-8ace-0072dfc2631b"] + 3.9938003859736147`*^9, {3.994072756774001*^9, 3.994072776830839*^9}, + 3.994250051375792*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"7b5ac5d1-a7ef-4bce-90fb-390b3d316cab"] }, Open ]], Cell[CellGroupData[{ @@ -525,45 +506,42 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[121]:=",ExpressionUUID->"6fe94587-552b-4a80-b06b-b7b8c7d2d37a"], + CellLabel->"In[18]:=",ExpressionUUID->"6fe94587-552b-4a80-b06b-b7b8c7d2d37a"], Cell[BoxData["0.6637051934091774`"], "Output", CellChangeTimes->{ 3.9913197866129*^9, 3.993799747559553*^9, 3.993800339136161*^9, - 3.993800385987465*^9, {3.994072756786757*^9, 3.994072776842886*^9}}, - CellLabel-> - "Out[121]=",ExpressionUUID->"6edcd110-ea30-4836-ac18-549cc719ad4a"] + 3.993800385987465*^9, {3.994072756786757*^9, 3.994072776842886*^9}, + 3.994250051403899*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"4f1ed146-72a7-4a6a-9262-fa545eab8c89"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", - CellLabel-> - "In[122]:=",ExpressionUUID->"54a67b2e-154c-4864-a645-9c792d6d55d0"], + CellLabel->"In[19]:=",ExpressionUUID->"54a67b2e-154c-4864-a645-9c792d6d55d0"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786620775*^9, 3.9937997475753107`*^9, 3.993800339165604*^9, - 3.9938003860010223`*^9, {3.99407275679909*^9, 3.994072776854899*^9}}, - CellLabel-> - "Out[122]=",ExpressionUUID->"fff2c29b-f3cb-4044-a513-bd745a9be60e"] + 3.9938003860010223`*^9, {3.99407275679909*^9, 3.994072776854899*^9}, + 3.9942500514113283`*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"85028614-4f71-4e56-9e63-54bc4045b72d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fin", "=", "0.09"}]], "Input", - CellLabel-> - "In[123]:=",ExpressionUUID->"2f513acc-5c81-4d84-8006-bfc6b6b68105"], + CellLabel->"In[20]:=",ExpressionUUID->"2f513acc-5c81-4d84-8006-bfc6b6b68105"], Cell[BoxData["0.09`"], "Output", CellChangeTimes->{ 3.991319786657793*^9, 3.9937997475908947`*^9, 3.993800339182325*^9, - 3.9938003860157137`*^9, {3.9940727568120337`*^9, 3.994072776866831*^9}}, - CellLabel-> - "Out[123]=",ExpressionUUID->"33b81d31-e158-440a-8768-657a31575826"] + 3.9938003860157137`*^9, {3.9940727568120337`*^9, 3.994072776866831*^9}, + 3.994250051418488*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"31adcbbb-b999-4a6c-bdfe-fc37ad447506"] }, Open ]], Cell[CellGroupData[{ @@ -572,15 +550,14 @@ Cell[BoxData[ RowBox[{"ffin", "=", "0.42"}]], "Input", CellChangeTimes->{{3.9938002062742653`*^9, 3.993800206278376*^9}, { 3.99380037453472*^9, 3.993800374695301*^9}}, - CellLabel-> - "In[124]:=",ExpressionUUID->"8341a2c8-1bd2-4e26-bf07-4be012293a6c"], + CellLabel->"In[21]:=",ExpressionUUID->"8341a2c8-1bd2-4e26-bf07-4be012293a6c"], Cell[BoxData["0.42`"], "Output", CellChangeTimes->{ 3.9913197866657925`*^9, 3.993799747607007*^9, 3.993800339199224*^9, - 3.9938003860303698`*^9, {3.994072756823955*^9, 3.994072776878458*^9}}, - CellLabel-> - "Out[124]=",ExpressionUUID->"8b193aee-7e4a-467d-b7df-22091dddf8b4"] + 3.9938003860303698`*^9, {3.994072756823955*^9, 3.994072776878458*^9}, + 3.994250051425688*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"c02057c9-5616-4c55-bd92-9646a99b764b"] }, Open ]], Cell[CellGroupData[{ @@ -589,31 +566,29 @@ Cell[BoxData[ RowBox[{"fex", "=", RowBox[{"-", "2.59"}]}]], "Input", CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, - CellLabel-> - "In[125]:=",ExpressionUUID->"4c658e0e-3d02-4e4d-bf06-55837f481290"], + CellLabel->"In[22]:=",ExpressionUUID->"4c658e0e-3d02-4e4d-bf06-55837f481290"], Cell[BoxData[ RowBox[{"-", "2.59`"}]], "Output", CellChangeTimes->{ 3.9913197866996*^9, 3.993799747623555*^9, 3.9938003392162523`*^9, - 3.993800386045208*^9, {3.994072756835642*^9, 3.994072776890398*^9}}, - CellLabel-> - "Out[125]=",ExpressionUUID->"79ce8ec0-9529-45c8-b716-39154dc32772"] + 3.993800386045208*^9, {3.994072756835642*^9, 3.994072776890398*^9}, + 3.9942500514354887`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"fd137846-d6b8-493e-8d66-2952a666da4a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffex", "=", "0.54"}]], "Input", - CellLabel-> - "In[126]:=",ExpressionUUID->"0401ee42-b9d5-4435-95f3-6329a31df7f2"], + CellLabel->"In[23]:=",ExpressionUUID->"0401ee42-b9d5-4435-95f3-6329a31df7f2"], Cell[BoxData["0.54`"], "Output", CellChangeTimes->{ 3.9913197867406044`*^9, 3.9937997476274233`*^9, 3.993800339233366*^9, - 3.993800386060211*^9, {3.994072756847537*^9, 3.994072776902615*^9}}, - CellLabel-> - "Out[126]=",ExpressionUUID->"bc4ae10b-97f4-4f7d-8ad1-96650b9b5e44"] + 3.993800386060211*^9, {3.994072756847537*^9, 3.994072776902615*^9}, + 3.994250051443185*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"028623d8-556b-49b1-96fe-9fe8bd1bcf5a"] }, Open ]], Cell[CellGroupData[{ @@ -623,15 +598,13 @@ Cell[BoxData[ CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, 3.993799773981587*^9, {3.993800017055696*^9, 3.993800017126395*^9}}, - CellLabel-> - "In[127]:=",ExpressionUUID->"be9d00c9-0554-4293-a4d1-51d3cd6850d4"], + CellLabel->"In[24]:=",ExpressionUUID->"be9d00c9-0554-4293-a4d1-51d3cd6850d4"], Cell[BoxData["64"], "Output", CellChangeTimes->{ 3.9913197867861958`*^9, 3.993800339250176*^9, 3.993800386074368*^9, { - 3.994072756859651*^9, 3.994072776915943*^9}}, - CellLabel-> - "Out[127]=",ExpressionUUID->"03af3daa-a42e-4867-984b-aea10f183605"] + 3.994072756859651*^9, 3.994072776915943*^9}, 3.994250051451427*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"2f3bfa98-0e63-4491-a8e5-1fa1799c9516"] }, Open ]], Cell[CellGroupData[{ @@ -641,15 +614,14 @@ Cell[BoxData[ RowBox[{"92", "-", "Z1"}]}]], "Input", CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, 3.9916443064841423`*^9}, - CellLabel-> - "In[128]:=",ExpressionUUID->"8860ca16-13f9-415e-8f31-fcafc37a00d5"], + CellLabel->"In[25]:=",ExpressionUUID->"8860ca16-13f9-415e-8f31-fcafc37a00d5"], Cell[BoxData["28"], "Output", CellChangeTimes->{ 3.9913197867928696`*^9, 3.993799747743443*^9, 3.993800339268099*^9, - 3.993800386088282*^9, {3.994072756878846*^9, 3.994072776927128*^9}}, - CellLabel-> - "Out[128]=",ExpressionUUID->"95cbaa16-e7c2-4da0-bd6b-d02533f16603"] + 3.993800386088282*^9, {3.994072756878846*^9, 3.994072776927128*^9}, + 3.99425005145829*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"3dfbbcad-a6ba-436a-baae-815cdf33e026"] }, Open ]], Cell[CellGroupData[{ @@ -658,15 +630,14 @@ Cell[BoxData[ RowBox[{"A2", "=", RowBox[{"A", "-", "A1"}]}]], "Input", CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, - CellLabel-> - "In[129]:=",ExpressionUUID->"39a929b0-c2db-44a8-a971-430f57fa7c6d"], + CellLabel->"In[26]:=",ExpressionUUID->"39a929b0-c2db-44a8-a971-430f57fa7c6d"], Cell[BoxData["64"], "Output", CellChangeTimes->{ 3.991319786827894*^9, 3.993799747762579*^9, 3.9938003392862883`*^9, - 3.993800386103376*^9, {3.994072756893341*^9, 3.994072776939496*^9}}, - CellLabel-> - "Out[129]=",ExpressionUUID->"d9f8ca63-e98a-4bbd-87d1-b341c5291d88"] + 3.993800386103376*^9, {3.994072756893341*^9, 3.994072776939496*^9}, + 3.994250051463544*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"eb1a8917-75ac-4bdf-ac59-b5907e217192"] }, Open ]], Cell[CellGroupData[{ @@ -681,15 +652,14 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[130]:=",ExpressionUUID->"d7a5d73b-2b59-407a-8051-5d9d16656c7a"], + CellLabel->"In[27]:=",ExpressionUUID->"d7a5d73b-2b59-407a-8051-5d9d16656c7a"], Cell[BoxData["0.10431818181818181`"], "Output", CellChangeTimes->{ 3.9913197868648605`*^9, 3.993799747778633*^9, 3.993800339303063*^9, - 3.993800386118601*^9, {3.9940727569059267`*^9, 3.994072776951536*^9}}, - CellLabel-> - "Out[130]=",ExpressionUUID->"1abd978d-22fd-477a-9d5c-63c2be3334a8"] + 3.993800386118601*^9, {3.9940727569059267`*^9, 3.994072776951536*^9}, + 3.994250051472231*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"293dbd94-f394-491f-b3a3-4800a100ddfe"] }, Open ]], Cell[CellGroupData[{ @@ -704,16 +674,15 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[131]:=",ExpressionUUID->"17018113-577e-47d8-a7af-9b0c2d31300d"], + CellLabel->"In[28]:=",ExpressionUUID->"17018113-577e-47d8-a7af-9b0c2d31300d"], Cell[BoxData[ RowBox[{"-", "2.571590909090909`"}]], "Output", CellChangeTimes->{ 3.9913197868718567`*^9, 3.993799747795951*^9, 3.993800339319376*^9, - 3.993800386134354*^9, {3.9940727569175262`*^9, 3.994072776962891*^9}}, - CellLabel-> - "Out[131]=",ExpressionUUID->"a0176ae0-0612-423c-913a-09e6d59b7e7a"] + 3.993800386134354*^9, {3.9940727569175262`*^9, 3.994072776962891*^9}, + 3.994250051480665*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"d88123f8-ce9b-4f45-9730-f22b07e95fe1"] }, Open ]], Cell[CellGroupData[{ @@ -744,15 +713,14 @@ Cell[BoxData[ CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, - CellLabel-> - "In[132]:=",ExpressionUUID->"2446f182-7cd4-43d4-ad6e-32e05dadb042"], + CellLabel->"In[29]:=",ExpressionUUID->"2446f182-7cd4-43d4-ad6e-32e05dadb042"], Cell[BoxData["16.821909430837295`"], "Output", CellChangeTimes->{ 3.9913197869068584`*^9, 3.993799747812237*^9, 3.993800339336598*^9, - 3.9938003861388483`*^9, {3.994072756929346*^9, 3.994072776974725*^9}}, - CellLabel-> - "Out[132]=",ExpressionUUID->"76a28c02-4b29-4207-8eed-188b7aaa9c7c"] + 3.9938003861388483`*^9, {3.994072756929346*^9, 3.994072776974725*^9}, + 3.994250051489036*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"300bd504-7d43-40c5-ae6e-5de629579985"] }, Open ]], Cell[CellGroupData[{ @@ -760,15 +728,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, - CellLabel-> - "In[133]:=",ExpressionUUID->"8127b2ee-382a-4abf-a064-b74a76aabc24"], + CellLabel->"In[30]:=",ExpressionUUID->"8127b2ee-382a-4abf-a064-b74a76aabc24"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786940857*^9, 3.9937997478307247`*^9, 3.993800339353257*^9, - 3.993800386159964*^9, {3.994072756940832*^9, 3.994072776986273*^9}}, - CellLabel-> - "Out[133]=",ExpressionUUID->"0b4654ae-a7f4-4d6c-be8c-4f4d72225713"] + 3.993800386159964*^9, {3.994072756940832*^9, 3.994072776986273*^9}, + 3.994250051496159*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"28d16ddf-7b9c-4bc7-bd2b-88a9cded3152"] }, Open ]], Cell[CellGroupData[{ @@ -778,21 +745,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { 3.9937993902853117`*^9, 3.993799392293758*^9}}, - CellLabel-> - "In[134]:=",ExpressionUUID->"de983083-5236-41af-87ee-cb92112ec7ed"], + CellLabel->"In[31]:=",ExpressionUUID->"de983083-5236-41af-87ee-cb92112ec7ed"], Cell[BoxData["1.25`"], "Output", CellChangeTimes->{ 3.9937997478713713`*^9, 3.993800339369935*^9, 3.9938003861811666`*^9, { - 3.9940727569525537`*^9, 3.9940727769978867`*^9}}, - CellLabel-> - "Out[134]=",ExpressionUUID->"bb261691-73f1-4d8b-9a07-9f8b7038484c"] + 3.9940727569525537`*^9, 3.9940727769978867`*^9}, 3.994250051505278*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"898ffb6b-205e-435e-80e7-0bdc132af616"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, - CellLabel-> - "In[135]:=",ExpressionUUID->"c164eff1-4a6e-4e0f-96b4-50747e3c9aa4"], + CellLabel->"In[32]:=",ExpressionUUID->"c164eff1-4a6e-4e0f-96b4-50747e3c9aa4"], Cell[CellGroupData[{ @@ -801,21 +765,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { 3.993799395152514*^9, 3.9937993965162697`*^9}}, - CellLabel-> - "In[136]:=",ExpressionUUID->"593cb70e-8547-4c0c-82b1-ae66acf94cab"], + CellLabel->"In[33]:=",ExpressionUUID->"593cb70e-8547-4c0c-82b1-ae66acf94cab"], Cell[BoxData["0.85`"], "Output", CellChangeTimes->{ 3.993799747898118*^9, 3.993800339418215*^9, 3.993800386208997*^9, { - 3.99407275696742*^9, 3.9940727770129023`*^9}}, - CellLabel-> - "Out[136]=",ExpressionUUID->"6a1ae5f3-dd75-4986-b6e3-c16d4415b47c"] + 3.99407275696742*^9, 3.9940727770129023`*^9}, 3.994250051521144*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"abaea188-8939-4ef5-9e53-feaf12d7a4fc"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, - CellLabel-> - "In[137]:=",ExpressionUUID->"117c190d-fb54-4f07-9373-18e88054d2a2"], + CellLabel->"In[34]:=",ExpressionUUID->"117c190d-fb54-4f07-9373-18e88054d2a2"], Cell[CellGroupData[{ @@ -824,21 +785,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { 3.993799398824368*^9, 3.9937994002405863`*^9}}, - CellLabel-> - "In[138]:=",ExpressionUUID->"b5eaa0a8-22e9-48c7-a113-1562d7bf655f"], + CellLabel->"In[35]:=",ExpressionUUID->"b5eaa0a8-22e9-48c7-a113-1562d7bf655f"], Cell[BoxData["2.3`"], "Output", CellChangeTimes->{ 3.993799747923098*^9, 3.993800339511382*^9, 3.993800386234042*^9, { - 3.994072756981262*^9, 3.994072777026493*^9}}, - CellLabel-> - "Out[138]=",ExpressionUUID->"ad7d7bbc-0e78-49b5-b1f0-7353ce16922a"] + 3.994072756981262*^9, 3.994072777026493*^9}, 3.9942500515350637`*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"24259011-74a6-42e2-9bec-60f6f72c2f4f"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, - CellLabel-> - "In[139]:=",ExpressionUUID->"ba67e9a2-b20e-4129-a3a9-d47cd96e2fe8"], + CellLabel->"In[36]:=",ExpressionUUID->"ba67e9a2-b20e-4129-a3a9-d47cd96e2fe8"], Cell[CellGroupData[{ @@ -847,21 +805,18 @@ Cell[BoxData[ CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, 3.991799359954439*^9, {3.993799403099743*^9, 3.9937994038178663`*^9}}, - CellLabel-> - "In[140]:=",ExpressionUUID->"9bfaf618-816c-4ce6-b0d7-cc5be285b598"], + CellLabel->"In[37]:=",ExpressionUUID->"9bfaf618-816c-4ce6-b0d7-cc5be285b598"], Cell[BoxData["1.1`"], "Output", CellChangeTimes->{ 3.9937997479459248`*^9, 3.99380033956159*^9, 3.9938003862601*^9, { - 3.994072756995009*^9, 3.99407277703996*^9}}, - CellLabel-> - "Out[140]=",ExpressionUUID->"0a372bca-0c4a-4cbd-984b-9a047d8b2d3f"] + 3.994072756995009*^9, 3.99407277703996*^9}, 3.994250051547389*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"9ad0afb9-b414-420d-918d-82facb52c635"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, - CellLabel-> - "In[141]:=",ExpressionUUID->"3b391916-83c1-4822-8db6-6d087142d483"], + CellLabel->"In[38]:=",ExpressionUUID->"3b391916-83c1-4822-8db6-6d087142d483"], Cell[CellGroupData[{ @@ -870,21 +825,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, 3.991718016467348*^9, 3.991799361414671*^9, {3.993799407392029*^9, 3.993799410650194*^9}}, - CellLabel-> - "In[142]:=",ExpressionUUID->"e5ff2d12-564a-4e06-a9af-82867595a7fc"], + CellLabel->"In[39]:=",ExpressionUUID->"e5ff2d12-564a-4e06-a9af-82867595a7fc"], Cell[BoxData["0.8664`"], "Output", CellChangeTimes->{ 3.993799747968698*^9, 3.993800339671721*^9, 3.9938003862845907`*^9, { - 3.994072757008773*^9, 3.994072777054493*^9}}, - CellLabel-> - "Out[142]=",ExpressionUUID->"ce20665e-0d17-4596-8b5a-ea8de4b3dc5b"] + 3.994072757008773*^9, 3.994072777054493*^9}, 3.994250051612938*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"457e1187-e364-429c-a387-accc263a0027"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, - CellLabel-> - "In[143]:=",ExpressionUUID->"cee6ce0a-2c7a-41a3-a9c3-ca400d88247e"], + CellLabel->"In[40]:=",ExpressionUUID->"cee6ce0a-2c7a-41a3-a9c3-ca400d88247e"], Cell[CellGroupData[{ @@ -893,21 +845,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9937994136330442`*^9, 3.993799417576207*^9}}, - CellLabel-> - "In[144]:=",ExpressionUUID->"437ae41f-a8e2-40d0-b72f-06a6954e0db7"], + CellLabel->"In[41]:=",ExpressionUUID->"437ae41f-a8e2-40d0-b72f-06a6954e0db7"], Cell[BoxData["0.5924`"], "Output", CellChangeTimes->{ 3.993799747991611*^9, 3.9938003397687387`*^9, 3.993800386310059*^9, { - 3.994072757022612*^9, 3.994072777068264*^9}}, - CellLabel-> - "Out[144]=",ExpressionUUID->"f359c36e-4f1a-47ff-8a1f-7ca8dfdb72de"] + 3.994072757022612*^9, 3.994072777068264*^9}, 3.994250051626008*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"d32687a8-dd12-4baa-9b3c-c83263dbef91"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, - CellLabel-> - "In[145]:=",ExpressionUUID->"e308565d-68e5-4fd7-a842-22ecc7f68d40"], + CellLabel->"In[42]:=",ExpressionUUID->"e308565d-68e5-4fd7-a842-22ecc7f68d40"], Cell[CellGroupData[{ @@ -916,21 +865,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.993799421955809*^9, 3.993799423886447*^9}}, - CellLabel-> - "In[146]:=",ExpressionUUID->"00627439-4a18-4f7a-8faa-b888aceb263f"], + CellLabel->"In[43]:=",ExpressionUUID->"00627439-4a18-4f7a-8faa-b888aceb263f"], Cell[BoxData["1.888`"], "Output", CellChangeTimes->{ 3.993799748012844*^9, 3.993800339865109*^9, 3.993800386335606*^9, { - 3.9940727570366488`*^9, 3.9940727770819397`*^9}}, - CellLabel-> - "Out[146]=",ExpressionUUID->"c237c864-5525-4bea-bac2-43c2d712c99d"] + 3.9940727570366488`*^9, 3.9940727770819397`*^9}, 3.994250051637813*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"8bd8f2e2-2cad-4fd1-88fd-2f166a83a148"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, - CellLabel-> - "In[147]:=",ExpressionUUID->"49286e54-260b-4511-b13e-44ef0fd1186d"], + CellLabel->"In[44]:=",ExpressionUUID->"49286e54-260b-4511-b13e-44ef0fd1186d"], Cell[CellGroupData[{ @@ -938,21 +884,18 @@ Cell[BoxData[ RowBox[{"nn2", "=", "0.6347"}]], "Input", CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, 3.9917993660901737`*^9, {3.993799431418026*^9, 3.9937994366447783`*^9}}, - CellLabel-> - "In[148]:=",ExpressionUUID->"18a6f425-c577-4036-886c-93340e3eb7d7"], + CellLabel->"In[45]:=",ExpressionUUID->"18a6f425-c577-4036-886c-93340e3eb7d7"], Cell[BoxData["0.6347`"], "Output", CellChangeTimes->{ 3.99379974807285*^9, 3.993800339960155*^9, 3.9938003863606977`*^9, { - 3.99407275705245*^9, 3.994072777095529*^9}}, - CellLabel-> - "Out[148]=",ExpressionUUID->"845798e1-f7dc-408d-adf4-08a2a7d14c59"] + 3.99407275705245*^9, 3.994072777095529*^9}, 3.994250051650766*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"a8141dfa-ecd0-43d6-9304-7f7fc0a64a4e"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, - CellLabel-> - "In[149]:=",ExpressionUUID->"a0c8fde8-b575-42d2-8b39-ef7141a4db7f"], + CellLabel->"In[46]:=",ExpressionUUID->"a0c8fde8-b575-42d2-8b39-ef7141a4db7f"], Cell[CellGroupData[{ @@ -1441,15 +1384,14 @@ uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== "], - CellLabel-> - "In[150]:=",ExpressionUUID->"47aa838b-a52b-4efd-862e-f0bd51c69cbf"], + CellLabel->"In[47]:=",ExpressionUUID->"47aa838b-a52b-4efd-862e-f0bd51c69cbf"], Cell[BoxData["0.33523276963055626`"], "Output", CellChangeTimes->{ 3.991319787430073*^9, 3.9937997481547623`*^9, 3.993800340061625*^9, - 3.9938003864136953`*^9, {3.994072757136285*^9, 3.994072777132966*^9}}, - CellLabel-> - "Out[150]=",ExpressionUUID->"d7b67e4e-d0d4-41f0-9b75-4cd8c4c6a944"] + 3.9938003864136953`*^9, {3.994072757136285*^9, 3.994072777132966*^9}, + 3.994250051730336*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"b622b387-b1c5-4382-8871-7b18574db46e"] }, Open ]], Cell[CellGroupData[{ @@ -1943,15 +1885,14 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[151]:=",ExpressionUUID->"234f4524-0def-4ff5-bea8-480a5b7c9661"], + CellLabel->"In[48]:=",ExpressionUUID->"234f4524-0def-4ff5-bea8-480a5b7c9661"], Cell[BoxData["10.264944924096582`"], "Output", CellChangeTimes->{ 3.991319787574972*^9, 3.9937997481878023`*^9, 3.993800340089472*^9, - 3.993800386441668*^9, {3.994072757163142*^9, 3.9940727771627817`*^9}}, - CellLabel-> - "Out[151]=",ExpressionUUID->"31eb9017-7100-46de-bbc1-07cd8d2dd124"] + 3.993800386441668*^9, {3.994072757163142*^9, 3.9940727771627817`*^9}, + 3.994250051768416*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"5924ef8e-f987-4cbf-8570-4b94c205092d"] }, Open ]], Cell[CellGroupData[{ @@ -2439,16 +2380,15 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[152]:=",ExpressionUUID->"47c18f6b-3b32-4b94-bfe5-9ff6556ee0e1"], + CellLabel->"In[49]:=",ExpressionUUID->"47c18f6b-3b32-4b94-bfe5-9ff6556ee0e1"], Cell[BoxData[ RowBox[{"-", "28.42814742925769`"}]], "Output", CellChangeTimes->{ 3.991319787641424*^9, 3.993799748217864*^9, 3.993800340114811*^9, - 3.993800386467917*^9, {3.99407275718851*^9, 3.994072777190625*^9}}, - CellLabel-> - "Out[152]=",ExpressionUUID->"35921106-03a3-4c73-951f-c70ff8094557"] + 3.993800386467917*^9, {3.99407275718851*^9, 3.994072777190625*^9}, + 3.9942500518052*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"28962ec5-9fb9-4d91-b882-b01e82ba4f47"] }, Open ]], Cell[CellGroupData[{ @@ -3006,16 +2946,15 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[153]:=",ExpressionUUID->"4eb9645d-d6fe-45a3-8de9-b5c23cc07269"], + CellLabel->"In[50]:=",ExpressionUUID->"4eb9645d-d6fe-45a3-8de9-b5c23cc07269"], Cell[BoxData[ RowBox[{"-", "38.363033654277935`"}]], "Output", CellChangeTimes->{ 3.991319787711939*^9, 3.9937997482559977`*^9, 3.993800340146491*^9, - 3.993800386499661*^9, {3.9940727572190027`*^9, 3.994072777223873*^9}}, - CellLabel-> - "Out[153]=",ExpressionUUID->"d2c7fb2b-a0b9-4d15-a6ac-adde1fc297e4"] + 3.993800386499661*^9, {3.9940727572190027`*^9, 3.994072777223873*^9}, + 3.994250051852284*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"8fb3c8c3-b895-4d4e-b357-886e02c30a04"] }, Open ]], Cell[CellGroupData[{ @@ -3573,16 +3512,15 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[154]:=",ExpressionUUID->"f0be3295-346c-4258-9c55-daf5fdf477c4"], + CellLabel->"In[51]:=",ExpressionUUID->"f0be3295-346c-4258-9c55-daf5fdf477c4"], Cell[BoxData[ RowBox[{"-", "84.97316533656249`"}]], "Output", CellChangeTimes->{ 3.9913197877723045`*^9, 3.993799748294525*^9, 3.993800340178175*^9, - 3.9938003865308523`*^9, {3.994072757249708*^9, 3.994072777255313*^9}}, - CellLabel-> - "Out[154]=",ExpressionUUID->"674d2fa6-6b87-4ec9-b49a-5d3b74bd4e3a"] + 3.9938003865308523`*^9, {3.994072757249708*^9, 3.994072777255313*^9}, + 3.99425005726473*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"0cbb4fcc-82c3-4a92-86d1-fb6730b68071"] }, Open ]], Cell[CellGroupData[{ @@ -4213,46 +4151,43 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[155]:=",ExpressionUUID->"3f2f2d2d-48a0-4d8d-a000-9b730dd74a56"], + CellLabel->"In[52]:=",ExpressionUUID->"3f2f2d2d-48a0-4d8d-a000-9b730dd74a56"], Cell[BoxData[ RowBox[{"-", "228.76196692780508`"}]], "Output", CellChangeTimes->{ 3.991319787833355*^9, 3.993799748333426*^9, 3.9938003402193203`*^9, - 3.9938003865686073`*^9, {3.9940727572851143`*^9, 3.9940727772935343`*^9}}, - CellLabel-> - "Out[155]=",ExpressionUUID->"b54527dd-b76e-465a-bc10-bdce5827f4d4"] + 3.9938003865686073`*^9, {3.9940727572851143`*^9, 3.9940727772935343`*^9}, + 3.994250057624036*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"09c80c70-acc5-462e-a2cb-47a1fc455c0e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U21", "=", "0"}]], "Input", - CellLabel-> - "In[156]:=",ExpressionUUID->"30776b29-6c07-4adf-9310-f7e6db2b3278"], + CellLabel->"In[53]:=",ExpressionUUID->"30776b29-6c07-4adf-9310-f7e6db2b3278"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210013676`*^9, 3.993799748353148*^9, 3.993800340246324*^9, - 3.993800386583934*^9, {3.99407275729825*^9, 3.994072777306653*^9}}, - CellLabel-> - "Out[156]=",ExpressionUUID->"71f13eb1-ce13-4e70-9769-7819cd3942ff"] + 3.993800386583934*^9, {3.99407275729825*^9, 3.994072777306653*^9}, + 3.994250057644237*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"8da6f07f-091f-4b2b-afb5-bb1a3e3015c8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U22", "=", "0"}]], "Input", - CellLabel-> - "In[157]:=",ExpressionUUID->"1dbb6e9f-e397-4d26-a577-32961d6f4256"], + CellLabel->"In[54]:=",ExpressionUUID->"1dbb6e9f-e397-4d26-a577-32961d6f4256"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210355663`*^9, 3.993799748372961*^9, 3.9938003402680492`*^9, - 3.993800386599262*^9, {3.99407275730969*^9, 3.994072777318306*^9}}, - CellLabel-> - "Out[157]=",ExpressionUUID->"7b97e034-d207-4315-923e-b524c2e07739"] + 3.993800386599262*^9, {3.99407275730969*^9, 3.994072777318306*^9}, + 3.994250057658358*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"0ad31506-a4e7-4e9b-9539-fa2e9cd25d1d"] }, Open ]], Cell[CellGroupData[{ @@ -4296,15 +4231,14 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[158]:=",ExpressionUUID->"c7c4a410-54e6-4538-9085-92cacdc46841"], + CellLabel->"In[55]:=",ExpressionUUID->"c7c4a410-54e6-4538-9085-92cacdc46841"], Cell[BoxData["185.79450939883742`"], "Output", CellChangeTimes->{ 3.991320421068556*^9, 3.9937997483941936`*^9, 3.9938003402909203`*^9, - 3.99380038661649*^9, {3.9940727573211393`*^9, 3.994072777330056*^9}}, - CellLabel-> - "Out[158]=",ExpressionUUID->"c4dbdb89-4923-42dc-9c35-cb1fa47580a8"] + 3.99380038661649*^9, {3.9940727573211393`*^9, 3.994072777330056*^9}, + 3.9942500576688967`*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"40175019-0e54-48f3-bf71-1b066f91e888"] }, Open ]], Cell[CellGroupData[{ @@ -4344,16 +4278,15 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[159]:=",ExpressionUUID->"ad215961-7d84-4562-ad89-4f5edd191601"], + CellLabel->"In[56]:=",ExpressionUUID->"ad215961-7d84-4562-ad89-4f5edd191601"], Cell[BoxData[ RowBox[{"-", "142.60312447586276`"}]], "Output", CellChangeTimes->{ 3.991320421098543*^9, 3.9937997484173307`*^9, 3.993800340312326*^9, - 3.993800386633136*^9, {3.99407275733285*^9, 3.994072777341887*^9}}, - CellLabel-> - "Out[159]=",ExpressionUUID->"074514b1-9dfa-4b7a-9634-371e6999d5e8"] + 3.993800386633136*^9, {3.99407275733285*^9, 3.994072777341887*^9}, + 3.994250057680668*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"7cc35e95-1f1f-4166-8310-ce9dfd231a4c"] }, Open ]], Cell[CellGroupData[{ @@ -4397,101 +4330,94 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[160]:=",ExpressionUUID->"d4a9ce26-a31e-45fb-9327-c3c276da9451"], + CellLabel->"In[57]:=",ExpressionUUID->"d4a9ce26-a31e-45fb-9327-c3c276da9451"], Cell[BoxData["169.9317606773619`"], "Output", CellChangeTimes->{ 3.9913204211275444`*^9, 3.993799748440692*^9, 3.993800340332926*^9, - 3.99380038664979*^9, {3.994072757344488*^9, 3.994072777353434*^9}}, - CellLabel-> - "Out[160]=",ExpressionUUID->"608c2e85-8f10-4b3f-958e-41d00cf6084e"] + 3.99380038664979*^9, {3.994072757344488*^9, 3.994072777353434*^9}, + 3.994250057690591*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"d0de5268-1502-4c28-b65b-265d9cf55c66"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c11"], "Input", - CellLabel-> - "In[161]:=",ExpressionUUID->"df7fd3c4-8909-4036-af2f-eba46922c214"], + CellLabel->"In[58]:=",ExpressionUUID->"df7fd3c4-8909-4036-af2f-eba46922c214"], Cell[BoxData["0.5126444245586296`"], "Output", CellChangeTimes->{ 3.9913204211385536`*^9, 3.9937997484629087`*^9, 3.9938003403521013`*^9, - 3.9938003866670628`*^9, {3.994072757355731*^9, 3.994072777364881*^9}}, - CellLabel-> - "Out[161]=",ExpressionUUID->"d90a4236-559c-4f29-a298-c5a608e5fd30"] + 3.9938003866670628`*^9, {3.994072757355731*^9, 3.994072777364881*^9}, + 3.994250057702854*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"e4acce24-d0fb-469e-98b9-17bafa78a853"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c12"], "Input", - CellLabel-> - "In[162]:=",ExpressionUUID->"c9ba7fa7-cf4a-43d6-94c7-a2d36119d56f"], + CellLabel->"In[59]:=",ExpressionUUID->"c9ba7fa7-cf4a-43d6-94c7-a2d36119d56f"], Cell[BoxData[ RowBox[{"-", "0.12490541136574432`"}]], "Output", CellChangeTimes->{ 3.9913204211683464`*^9, 3.9937997484829597`*^9, 3.993800340372787*^9, - 3.993800386684751*^9, {3.994072759775218*^9, 3.994072777376302*^9}}, - CellLabel-> - "Out[162]=",ExpressionUUID->"018585c4-8503-4248-bf8e-eeae350f2a3e"] + 3.993800386684751*^9, {3.994072759775218*^9, 3.994072777376302*^9}, + 3.99425005771644*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"ac4869ef-1316-4782-92bd-caf5f33290af"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c21"], "Input", - CellLabel-> - "In[163]:=",ExpressionUUID->"423057bf-e0e4-49f6-8fa6-a39a5435d404"], + CellLabel->"In[60]:=",ExpressionUUID->"423057bf-e0e4-49f6-8fa6-a39a5435d404"], Cell[BoxData[ RowBox[{"-", "0.47786808677187637`"}]], "Output", CellChangeTimes->{ 3.991320421199068*^9, 3.993799748505329*^9, 3.9938003403919477`*^9, - 3.9938003866995373`*^9, {3.9940727599543447`*^9, 3.9940727773879633`*^9}}, - CellLabel-> - "Out[163]=",ExpressionUUID->"5d32031b-9576-4b9e-8678-a0cb1eefa590"] + 3.9938003866995373`*^9, {3.9940727599543447`*^9, 3.9940727773879633`*^9}, + 3.994250057730207*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"76bae730-a26c-4f6b-a2a4-b96e281a629e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c22"], "Input", - CellLabel-> - "In[164]:=",ExpressionUUID->"fe54588b-bd36-4428-a80c-48ca368ab726"], + CellLabel->"In[61]:=",ExpressionUUID->"fe54588b-bd36-4428-a80c-48ca368ab726"], Cell[BoxData["0.6637051934091774`"], "Output", CellChangeTimes->{ 3.991320421228037*^9, 3.99379974852349*^9, 3.993800340409604*^9, - 3.993800386721094*^9, {3.994072759966642*^9, 3.994072777399509*^9}}, - CellLabel-> - "Out[164]=",ExpressionUUID->"250dd489-76b9-43a0-854b-eaba76272690"] + 3.993800386721094*^9, {3.994072759966642*^9, 3.994072777399509*^9}, + 3.994250057740548*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"68a6b6cd-2ed3-41ad-88d2-6c43aa25d253"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w1"], "Input", - CellLabel-> - "In[165]:=",ExpressionUUID->"df4f346b-67c7-4ef1-b26f-e00b950ea088"], + CellLabel->"In[62]:=",ExpressionUUID->"df4f346b-67c7-4ef1-b26f-e00b950ea088"], Cell[BoxData["2.0171665757171935`"], "Output", CellChangeTimes->{ 3.9913204212585373`*^9, 3.993799748542218*^9, 3.993800340426003*^9, - 3.9938003867354116`*^9, {3.9940727599787703`*^9, 3.9940727774113617`*^9}}, - CellLabel-> - "Out[165]=",ExpressionUUID->"1d038270-697a-4e92-ac23-46117016a939"] + 3.9938003867354116`*^9, {3.9940727599787703`*^9, 3.9940727774113617`*^9}, + 3.994250057751758*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"301cc04e-79d7-40f1-9abd-5e2472af6e4d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w2"], "Input", - CellLabel-> - "In[166]:=",ExpressionUUID->"47c86b3a-e683-4b32-bf88-88e029c0fd6f"], + CellLabel->"In[63]:=",ExpressionUUID->"47c86b3a-e683-4b32-bf88-88e029c0fd6f"], Cell[BoxData["1.5074639495621045`"], "Output", CellChangeTimes->{ 3.9913204212884274`*^9, 3.9937997485616417`*^9, 3.99380034044471*^9, - 3.9938003867502003`*^9, {3.9940727599906197`*^9, 3.994072777422779*^9}}, - CellLabel-> - "Out[166]=",ExpressionUUID->"819ef6b7-19fe-43f1-aa86-3e18e7243c5c"] + 3.9938003867502003`*^9, {3.9940727599906197`*^9, 3.994072777422779*^9}, + 3.99425005776294*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"187e3485-e868-41ee-bcda-eedd5b74a318"] }, Open ]], Cell[CellGroupData[{ @@ -4512,16 +4438,15 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", - CellLabel-> - "In[167]:=",ExpressionUUID->"077fc7c8-cb4a-4d7e-bfce-557bfb6b839e"], + CellLabel->"In[64]:=",ExpressionUUID->"077fc7c8-cb4a-4d7e-bfce-557bfb6b839e"], Cell[BoxData[ RowBox[{"-", "30.893583323663808`"}]], "Output", CellChangeTimes->{ 3.9913204213185234`*^9, 3.993799748579701*^9, 3.9938003404617233`*^9, - 3.993800386765017*^9, {3.994072760002514*^9, 3.994072777434401*^9}}, - CellLabel-> - "Out[167]=",ExpressionUUID->"5a1f1778-a566-4dbb-b263-ca94c5aee4d9"] + 3.993800386765017*^9, {3.994072760002514*^9, 3.994072777434401*^9}, + 3.994250057772839*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"0c188ec0-4758-4d02-af46-274a0d007cae"] }, Open ]], Cell[CellGroupData[{ @@ -4542,16 +4467,15 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", - CellLabel-> - "In[168]:=",ExpressionUUID->"7c5da625-d577-4bfc-8b40-b5d1e0106c80"], + CellLabel->"In[65]:=",ExpressionUUID->"7c5da625-d577-4bfc-8b40-b5d1e0106c80"], Cell[BoxData[ RowBox[{"-", "7.926031139913374`"}]], "Output", CellChangeTimes->{ 3.991320421349531*^9, 3.993799748598835*^9, 3.993800340479863*^9, - 3.9938003867807913`*^9, {3.994072760013989*^9, 3.994072777446135*^9}}, - CellLabel-> - "Out[168]=",ExpressionUUID->"94008485-336c-4c9e-b9df-c4e414acccc3"] + 3.9938003867807913`*^9, {3.994072760013989*^9, 3.994072777446135*^9}, + 3.99425005778288*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"0db0a96c-5487-4f8f-98ad-2dad80687a64"] }, Open ]], Cell[CellGroupData[{ @@ -4616,15 +4540,14 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[169]:=",ExpressionUUID->"4449b7a5-11bd-4513-9ae9-69d3171bd40e"], + CellLabel->"In[66]:=",ExpressionUUID->"4449b7a5-11bd-4513-9ae9-69d3171bd40e"], Cell[BoxData["154.9009260751736`"], "Output", CellChangeTimes->{ 3.9913204213784294`*^9, 3.993799748618464*^9, 3.993800340498665*^9, - 3.993800386794903*^9, {3.994072760026211*^9, 3.994072777457891*^9}}, - CellLabel-> - "Out[169]=",ExpressionUUID->"92401a1d-768d-439c-bb5a-306f54e21608"] + 3.993800386794903*^9, {3.994072760026211*^9, 3.994072777457891*^9}, + 3.994250057795576*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"760f5f04-65e1-44e0-933b-61269b3a7dc6"] }, Open ]], Cell[CellGroupData[{ @@ -4665,16 +4588,15 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[170]:=",ExpressionUUID->"f93161ec-a0b1-4878-b6e6-7d05eb0baf83"], + CellLabel->"In[67]:=",ExpressionUUID->"f93161ec-a0b1-4878-b6e6-7d05eb0baf83"], Cell[BoxData[ RowBox[{"-", "142.60312447586276`"}]], "Output", CellChangeTimes->{ 3.9913204213904285`*^9, 3.993799748639475*^9, 3.993800340517002*^9, - 3.993800386808839*^9, {3.9940727600400333`*^9, 3.994072777469482*^9}}, - CellLabel-> - "Out[170]=",ExpressionUUID->"e0f59c46-d252-42f3-a5eb-11f282b531e5"] + 3.993800386808839*^9, {3.9940727600400333`*^9, 3.994072777469482*^9}, + 3.994250057806632*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"3392d036-e5df-4935-bc63-4fcea27e7b2e"] }, Open ]], Cell[CellGroupData[{ @@ -4740,15 +4662,14 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[171]:=",ExpressionUUID->"ea1a516b-645f-4cc6-8301-e5d46b198d3d"], + CellLabel->"In[68]:=",ExpressionUUID->"ea1a516b-645f-4cc6-8301-e5d46b198d3d"], Cell[BoxData["162.00572953744853`"], "Output", CellChangeTimes->{ 3.991320421419428*^9, 3.993799748660536*^9, 3.993800340536582*^9, - 3.993800386822714*^9, {3.994072760046308*^9, 3.994072777481387*^9}}, - CellLabel-> - "Out[171]=",ExpressionUUID->"d7d1fcbd-0d2c-40af-9e1f-84de7aa4da87"] + 3.993800386822714*^9, {3.994072760046308*^9, 3.994072777481387*^9}, + 3.994250057817384*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"6d536e58-583d-42ab-8010-b7911d4061ba"] }, Open ]], Cell[CellGroupData[{ @@ -4808,15 +4729,14 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}], ")"}]}], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[172]:=",ExpressionUUID->"db382234-9f26-450e-a668-667d07445395"], + CellLabel->"In[69]:=",ExpressionUUID->"db382234-9f26-450e-a668-667d07445395"], Cell[BoxData["110.13261932733474`"], "Output", CellChangeTimes->{ 3.9913204214494324`*^9, 3.993799748682187*^9, 3.9938003405568943`*^9, - 3.993800386836596*^9, {3.994072760058202*^9, 3.994072777493164*^9}}, - CellLabel-> - "Out[172]=",ExpressionUUID->"ab840852-b91a-428e-b52e-bf4e042034d7"] + 3.993800386836596*^9, {3.994072760058202*^9, 3.994072777493164*^9}, + 3.994250057829166*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"dd59e3a7-d5f4-4c47-bd4a-9e9068383f1c"] }, Open ]], Cell[CellGroupData[{ @@ -4874,38 +4794,48 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[173]:=",ExpressionUUID->"53f34036-74f2-433b-a5f3-57b3019bc920"], + CellLabel->"In[70]:=",ExpressionUUID->"53f34036-74f2-433b-a5f3-57b3019bc920"], Cell[BoxData["1014.9570765717414`"], "Output", CellChangeTimes->{ 3.991320421481529*^9, 3.993799748705882*^9, 3.9938003405772467`*^9, - 3.993800386850522*^9, {3.994072760069648*^9, 3.994072777505143*^9}}, - CellLabel-> - "Out[173]=",ExpressionUUID->"2ea0e49b-98d6-4a0c-8288-6e2fbe1cb463"] + 3.993800386850522*^9, {3.994072760069648*^9, 3.994072777505143*^9}, + 3.994250057839864*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"833df01e-d026-4778-9673-abd42c98c48b"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"f1", "=", "0.417057434"}]], "Input", - CellChangeTimes->{3.9918488488187084`*^9, - 3.9940824136461287`*^9},ExpressionUUID->"bdefbecf-0aaa-4a45-a861-\ -406cf54e52d1"], + CellChangeTimes->{3.9918488488187084`*^9, 3.9940824136461287`*^9}, + CellLabel->"In[71]:=",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], + +Cell[BoxData["0.417057434`"], "Output", + CellChangeTimes->{3.994250057850301*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"53014386-3305-48d6-ab7d-3b55c2666f1a"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991848849725815*^9, - 3.9918488497328167`*^9}},ExpressionUUID->"a5161e25-7247-124f-8601-\ -7bcc4af89c62"], + CellChangeTimes->{{3.991848849725815*^9, 3.9918488497328167`*^9}}, + CellLabel->"In[72]:=",ExpressionUUID->"a5161e25-7247-124f-8601-7bcc4af89c62"], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f2", "=", "0.285081564"}]], "Input", CellChangeTimes->{3.9918488509977226`*^9, 3.994082421009307*^9, - 3.994082475563402*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-\ -c079ad464f5d"], + 3.994082475563402*^9}, + CellLabel->"In[73]:=",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], + +Cell[BoxData["0.285081564`"], "Output", + CellChangeTimes->{3.994250057865947*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"3d38baa3-e32c-44f2-b2a0-cb98fc7bbc0b"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991848851636154*^9, - 3.9918488516427097`*^9}},ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-\ -11f4dcb03e07"], + CellChangeTimes->{{3.991848851636154*^9, 3.9918488516427097`*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], Cell[CellGroupData[{ @@ -4951,13 +4881,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel-> - "In[150]:=",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], + CellLabel->"In[75]:=",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], -Cell[BoxData["2.3793916761039797`*^-53"], "Output", - CellChangeTimes->{3.9913279321052856`*^9}, - CellLabel-> - "Out[150]=",ExpressionUUID->"1658422d-0016-324a-9843-942f5453a9c7"] +Cell[BoxData["1.3128345860136716`*^-53"], "Output", + CellChangeTimes->{3.9913279321052856`*^9, 3.9942500578838263`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"a5e022c6-501a-45b4-962c-487decb441a2"] }, Open ]], Cell[CellGroupData[{ @@ -4991,14 +4919,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.9915575644922657`*^9},ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-\ -7221ff813b6d"], + CellChangeTimes->{3.9915575644922657`*^9}, + CellLabel->"In[76]:=",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], -Cell[BoxData["8.839304777809617`*^-55"], "Output", - CellChangeTimes->{3.991327932129387*^9}, - CellLabel-> - "Out[151]=",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] +Cell[BoxData["5.280021077181867`*^-55"], "Output", + CellChangeTimes->{3.991327932129387*^9, 3.9942500578975067`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"8b4a8b7e-cea8-4bec-acad-99b07b5cefe1"] }, Open ]], Cell[CellGroupData[{ @@ -5031,14 +4957,12 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.9915575683388195`*^9, - 3.991557570173399*^9}},ExpressionUUID->"f22831a7-63b7-f444-8e3a-\ -fa370a62ac27"], + CellChangeTimes->{{3.9915575683388195`*^9, 3.991557570173399*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], -Cell[BoxData["2.0384594858915346`*^-54"], "Output", - CellChangeTimes->{3.991327932138338*^9}, - CellLabel-> - "Out[152]=",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] +Cell[BoxData["1.6755662600660195`*^-54"], "Output", + CellChangeTimes->{3.991327932138338*^9, 3.994250057908413*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"45b72961-e582-4bb5-8672-71a0f680d49b"] }, Open ]], Cell[CellGroupData[{ @@ -5061,13 +4985,11 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel-> - "In[153]:=",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], + CellLabel->"In[78]:=",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], -Cell[BoxData["27.24865368249903`"], "Output", - CellChangeTimes->{3.9913279321616154`*^9}, - CellLabel-> - "Out[153]=",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] +Cell[BoxData["21.564356467709583`"], "Output", + CellChangeTimes->{3.9913279321616154`*^9, 3.994250057919704*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"8c5897c5-87b9-47ce-92c2-7f06f8ab3e13"] }, Open ]], Cell[CellGroupData[{ @@ -5092,13 +5014,11 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", - CellLabel-> - "In[154]:=",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], + CellLabel->"In[79]:=",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], -Cell[BoxData["37.77192070584817`"], "Output", - CellChangeTimes->{3.9913279321696014`*^9}, - CellLabel-> - "Out[154]=",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] +Cell[BoxData["27.383032537049505`"], "Output", + CellChangeTimes->{3.9913279321696014`*^9, 3.9942500579303627`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"cd968f42-b68c-44f4-b56a-49f4251867ea"] }, Open ]], Cell[CellGroupData[{ @@ -5107,13 +5027,11 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel-> - "In[155]:=",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], + CellLabel->"In[80]:=",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], -Cell[BoxData["0.718596406513947`"], "Output", - CellChangeTimes->{3.9913279321926613`*^9}, - CellLabel-> - "Out[155]=",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +Cell[BoxData["2.2599026584106374`"], "Output", + CellChangeTimes->{3.9913279321926613`*^9, 3.994250057940695*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"a7873a9a-7c10-4e90-b4b9-487705584a67"] }, Open ]], Cell[CellGroupData[{ @@ -5122,13 +5040,11 @@ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", - CellLabel-> - "In[156]:=",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], + CellLabel->"In[81]:=",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], -Cell[BoxData["3.2238916343938024`"], "Output", - CellChangeTimes->{3.991327932200657*^9}, - CellLabel-> - "Out[156]=",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +Cell[BoxData["6.0881180756658955`"], "Output", + CellChangeTimes->{3.991327932200657*^9, 3.994250057950432*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"140a0b23-d784-439d-8ff8-d2d285e75e1e"] }, Open ]], Cell[CellGroupData[{ @@ -5137,13 +5053,11 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel-> - "In[157]:=",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], + CellLabel->"In[82]:=",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], -Cell[BoxData["121.77257917856996`"], "Output", - CellChangeTimes->{3.99132793222501*^9}, - CellLabel-> - "Out[157]=",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +Cell[BoxData["166.71113535535844`"], "Output", + CellChangeTimes->{3.99132793222501*^9, 3.99425005796185*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"ca7d3df5-12d8-41ef-9949-cb6f0982512a"] }, Open ]], Cell[CellGroupData[{ @@ -5152,13 +5066,11 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[158]:=",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], + CellLabel->"In[83]:=",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], -Cell[BoxData["19.58078461858683`"], "Output", - CellChangeTimes->{3.9913279322642612`*^9}, - CellLabel-> - "Out[158]=",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +Cell[BoxData["48.73334650829151`"], "Output", + CellChangeTimes->{3.9913279322642612`*^9, 3.994250057975477*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"cfd744e2-2289-4f0d-a6ec-4fefa6c0603a"] }, Open ]], Cell[CellGroupData[{ @@ -5347,13 +5259,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[159]:=",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], + CellLabel->"In[84]:=",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], -Cell[BoxData["0.032550594324745`"], "Output", - CellChangeTimes->{3.9913279322906475`*^9}, - CellLabel-> - "Out[159]=",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +Cell[BoxData["0.005425788799566639`"], "Output", + CellChangeTimes->{3.9913279322906475`*^9, 3.994250057987884*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"9d7d5f57-0d75-4d7b-8746-ca577031d0df"] }, Open ]], Cell[CellGroupData[{ @@ -5366,13 +5276,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[160]:=",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], + CellLabel->"In[85]:=",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], -Cell[BoxData["4.91208054446651`"], "Output", - CellChangeTimes->{3.9913279323826447`*^9}, - CellLabel-> - "Out[160]=",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +Cell[BoxData["12.031326104134607`"], "Output", + CellChangeTimes->{3.9913279323826447`*^9, 3.994250058189932*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"ff9fcf2e-6894-4f75-b0e1-631e3a425689"] }, Open ]], Cell[CellGroupData[{ @@ -5563,13 +5471,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[161]:=",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], + CellLabel->"In[86]:=",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], -Cell[BoxData["0.012685641417856707`"], "Output", - CellChangeTimes->{3.991327932394655*^9}, - CellLabel-> - "Out[161]=",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +Cell[BoxData["0.019864313984494113`"], "Output", + CellChangeTimes->{3.991327932394655*^9, 3.994250058205263*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"49390200-9193-46e0-9667-597ade77500b"] }, Open ]], Cell[CellGroupData[{ @@ -5582,13 +5488,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[162]:=",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], + CellLabel->"In[87]:=",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], -Cell[BoxData["7.868441587445692`"], "Output", - CellChangeTimes->{3.991327932491659*^9}, - CellLabel-> - "Out[162]=",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +Cell[BoxData["6.2879366130871555`"], "Output", + CellChangeTimes->{3.991327932491659*^9, 3.994250058275486*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"1ea4af3c-2096-41d4-8d76-73a17fffa76e"] }, Open ]], Cell[CellGroupData[{ @@ -5680,13 +5584,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[163]:=",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], + CellLabel->"In[88]:=",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.991327932509678*^9}, - CellLabel-> - "Out[163]=",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +Cell[BoxData["0.09821679951903568`"], "Output", + CellChangeTimes->{3.991327932509678*^9, 3.994250058374691*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"5367aa68-961c-4f73-8ee4-a448dd739228"] }, Open ]], Cell[CellGroupData[{ @@ -5775,13 +5677,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[164]:=",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], + CellLabel->"In[89]:=",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.9913279325457134`*^9}, - CellLabel-> - "Out[164]=",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +Cell[BoxData["0.9017832004809644`"], "Output", + CellChangeTimes->{3.9913279325457134`*^9, 3.994250058390377*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"5660dd43-7f25-412d-ac16-7ba474ecd4e1"] }, Open ]], Cell[CellGroupData[{ @@ -5903,19 +5803,17 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel-> - "In[165]:=",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], + CellLabel->"In[90]:=",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913279325697117`*^9}, - CellLabel-> - "Out[165]=",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] +Cell[BoxData["0.08857025981127323`"], "Output", + CellChangeTimes->{3.9913279325697117`*^9, 3.994250058413509*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"8eb28060-f156-4842-b33e-5a2e1de84de5"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"714abd93-e0d1-\ -eb45-a9e1-7a2f5d020eb1"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], Cell[CellGroupData[{ @@ -5929,30 +5827,33 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -5976,68 +5877,70 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918488620812244`*^9},ExpressionUUID->"137c38a2-741c-bd43-b6d9-\ -c0135e32eaf8"], + CellChangeTimes->{3.9918488620812244`*^9}, + CellLabel->"In[92]:=",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 166, 109, 24483298974280422597, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279325947113`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.689510505513958`*^-205\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 92, 1, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279325947113`*^9, 3.994250058458227*^9}, CellLabel-> "During evaluation of \ -In[166]:=",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], +In[92]:=",ExpressionUUID->"b2221fa5-7e25-4e5d-9151-fda8c42ec73c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 166, 110, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279326047096`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.7013630057003245`*^-210\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 92, 2, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279325947113`*^9, 3.9942500585323*^9}, CellLabel-> "During evaluation of \ -In[166]:=",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], +In[92]:=",ExpressionUUID->"e0d8cad5-4a0c-405b-8ebe-bdaa6de31179"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 166, 111, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327932612709*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.218154963906268`*^-215\\\", \ +RowBox[{\\\"143094757247897252281238\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"64\\\", \\\"\[RightSkeleton]\\\"}], \\\"3737600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 92, 3, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279325947113`*^9, 3.994250058539336*^9}, CellLabel-> "During evaluation of \ -In[166]:=",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], +In[92]:=",ExpressionUUID->"373524bc-310b-4408-a2ad-1a6eb6288f6f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 166, 112, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279326207104`*^9}, +during this calculation.\"", 2, 92, 4, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279325947113`*^9, 3.994250058544435*^9}, CellLabel-> "During evaluation of \ -In[166]:=",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], +In[92]:=",ExpressionUUID->"5f1da751-6bc1-48fc-8665-2869bfe0c71f"], -Cell[BoxData["4.912080544466506`"], "Output", - CellChangeTimes->{3.9913279359974174`*^9}, - CellLabel-> - "Out[166]=",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +Cell[BoxData["12.0313261041346`"], "Output", + CellChangeTimes->{3.9913279359974174`*^9, 3.994250060976193*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"5ce3d232-6d8d-480a-9be8-72df61d9b677"] }, Open ]], Cell[CellGroupData[{ @@ -6052,30 +5955,33 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -6099,68 +6005,70 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991848865140564*^9},ExpressionUUID->"9b196534-2ca5-e54b-8014-\ -b0ab3cd09ac2"], + CellChangeTimes->{3.991848865140564*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 167, 113, 24483298974280422597, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327936033827*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.689510505513958`*^-205\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 93, 5, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327936033827*^9, 3.9942500610302877`*^9}, CellLabel-> "During evaluation of \ -In[167]:=",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], +In[93]:=",ExpressionUUID->"f0358d18-b124-476d-97b6-16836afcffc3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 167, 114, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279360428295`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.7013630057003245`*^-210\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 93, 6, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327936033827*^9, 3.994250061097424*^9}, CellLabel-> "During evaluation of \ -In[167]:=",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], +In[93]:=",ExpressionUUID->"c17d8d4a-06a5-4185-92ef-cd609574e0bf"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 167, 115, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327936050829*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.218154963906268`*^-215\\\", \ +RowBox[{\\\"143094757247897252281238\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"64\\\", \\\"\[RightSkeleton]\\\"}], \\\"3737600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 93, 7, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327936033827*^9, 3.994250061103855*^9}, CellLabel-> "During evaluation of \ -In[167]:=",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], +In[93]:=",ExpressionUUID->"2cc30891-1c40-4b93-9001-2131988c21a6"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 167, 116, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279360588284`*^9}, +during this calculation.\"", 2, 93, 8, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327936033827*^9, 3.9942500611106253`*^9}, CellLabel-> "During evaluation of \ -In[167]:=",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], +In[93]:=",ExpressionUUID->"eb51ef05-90be-4559-a3f5-acefff56dbca"], -Cell[BoxData["7.868441587445692`"], "Output", - CellChangeTimes->{3.9913279393385086`*^9}, - CellLabel-> - "Out[167]=",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +Cell[BoxData["6.287936613087153`"], "Output", + CellChangeTimes->{3.9913279393385086`*^9, 3.9942500643575363`*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"7013e498-db1e-48a8-a6d8-e049b72101ae"] }, Open ]], Cell[CellGroupData[{ @@ -6170,141 +6078,142 @@ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ - FractionBox[ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", RowBox[{ - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", - RowBox[{"Cos", "[", - FractionBox[ - RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], - RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991848869193308*^9},ExpressionUUID->"124cd7db-c537-8943-bef2-\ -1a154ab4a709"], + CellChangeTimes->{3.991848869193308*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl -kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M -c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN -/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 -+orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 -Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD -VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE -TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG -+GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g -LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r -GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO -zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY -r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 -oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh -xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 -OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ -bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 -fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv -vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO -hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD -1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB -4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW -y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ -lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE -9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM -GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN -15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA -LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 -vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw -/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs -WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ -Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 -BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n -LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 -XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 -7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN -5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs -n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO -GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI -llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys -jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw -frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl -L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM -HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq -TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P -feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 -wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T -1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L -h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp -cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 -luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB -LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 -XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd -i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz -1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr -y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW -gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov -KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA -WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 -c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI -HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR -slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc -QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg -n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W -hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 -RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES -bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK -4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV -IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ -kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 -6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV -fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE -lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj -VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 -E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI -2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c -wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H -f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk4VV0XAHBzJQqFJJKpiMg1pre94iKSJIoMcd17QiXdJFHUGypkJsqU +OSmRKdQnUSovSrPIEZJ5Hu4pvt0f59nP71nnrLP2tDYxTtmweLi4uAbw83c8 +3bJtc2Vby66nT9/5mR0j0a7RHB0GvQj5Pah/8NfdGboJivRaxCyJOrQH25r5 +n4AQrRHVv9X1Nscu8Q9+zk9vRpFyNTMW2NdfrKsLLnyLwsulRyyxH7edTv+t +9QH5FNvb7sce/Pr6wvmazyiGxt5qg72+T8Fx1vgb0vb2YNth7x27YHCm+Tuy +ijNUccB++ntwpX8hHr8M7XfG/nhZMrDC+weSCz3f74Y9KkAfnNbqQ586eocJ +bIFIHwfaXD9SU9vmfgJbVjSt6XTNABJ7Y2fOxraSns0bNR5G4167WcHYRKa8 +hPryUTSsJ3A7DDtYaX/o8eYxdG+oEKKwP0u+3+5bOIECBhM70rGZR7w84yMn +0aReZ1s+9ngq151S7ymkeVpAtwR7uby6yITWDKqd5bJuxE5gPjcTEZ9Fw4Ht +fG3YcvkOwRpzs6jEJVylA1tfLWz0ZM08ilvIr5/E9tD93jxo/BtZqVbSNnuQ +aNr/LJ+g8h80KfrsmA72pZqVO1WWLyKXy+Ur6djJoH/vWPMSqrvhls3AZuY2 +0dmF3GA/2y2ai134Ir77sjQPtIQ6NFZgj/90uRAbyQOpAQ0DTdgXVGcePfTm +BXU+v+BR7ITiTQpjWvzwW9FjeJcnib62DT9dzOaHzzsTNtpiy01WHlklLgB8 +e2vrPbGLtK3i1OcEYGcCv0MSdsPjAO4TNcsBHLMbp7Fnnrd/HzAWAn/pQ5kv +vEgkZikkEvhUCD6dt9bvw9Z8TwdhA2EIEee35TtOIq/e8szt21bB+4lcCTq2 +D0+z5j9CIuD7UuDVK+w++QcTobOisGq5R+/ICbw+xOsVrTQx+Oin9HjtSRLx +3OvftO60GDhJNYruxJajbbQpHBIDMaiwisQ+YhxT2tK9BipES+a0vEnU6s4+ +I/lGHOwjipennCJRV35UhOtyCaDPzGxowh4eKsy+ayIBzPH95XPYgr4/2g3r +JIDH0JJt70Mieoittmu5JKxNeCkjd5pE1Tm6MwUZUjDwauqfJjaJcvo4fjt8 +ZUDzs/vTQD8S7bG72nXmvgzQW1ZtqsQeblhjer9fBtrnrOYmsbVz1MTlHGRh +XUva4vFzeD0ZLo/4d22EXr/v/u7+JJoc6z43cEUOoosdNnoEkGjNSXrZo33y +IKf7xbopiET9OYIe1l7y8DZrUF0smERV39qkR8LkwVNDItgJ28nS+YpynTzk +KbVcnMTO2epnk6KlAHIh9BGFy/j/g/njQZKK4Hc+IDn1Colsj61UtyCVwObn +olHfNRIhPzutw3+U4G1+2ZjhdRKphmboMaWUIVgqTSgemyubZhR0QBnedqy/ +aRROovtdjodLnylD5nensbwIfD8PFV1en7UZvKoKSkKicH30fR8HGSoQvEk1 +JyGBRNkHb3bMBalAZGWj2wJ2FIPs5rutAtaUaYxLIj7fl84OybarQHq+GKgm +kUi0No3roLEq2L/0H3pxE58f2qhqjcJWCAn96Sd+m0TS8tHBEb1qEKfWH7ks +i0S14dMqCzzqsPp/ZToh2E5TDu+JTepQ62bF5M4mUXqDooqRizoMd/If/IMt +f6z63fwndWjounCOysXzLepTIt5sA9l4Rq8I7ksy0rKEnIMmfKq8F5VZSiK1 +XF8hCmnBtSC7PXaNJGIwr8yoW2lBYevudb+wkxXiulydtOCq7jeXiy9IxJtV +/PCFvxbY0JB1/kt839IHbeNKtCB2rLqB6zXup8muaSoKNPCMvPb7VQve3wjL +bfYC2qAX8GOg/DOJ7rAVrcubdUDUr+LjzAiJSrvqItZ90wF6Ik9oxSiJ6i2c +XwYO6UCUSeKzc2Mk6pVP2mUkqAvFnIY+apxEyu3L1FvNdCHZoKVDcBrfZ9rQ +il/1ujBVdC/cmIP3Z7rk+YbHerDxYMEhuWU9qM0P6YXkGsAHu+7v4fI9aJPL +ByvnE/+A5eonwoJHexBrqeKBzHmAR/qbq9IzepDkUNUySYYRhCrmt7aN9iBf +2s5vcap0cN7Jds/Z/QMxRn43rRk0AWLaIfXc7R/ovtGZZRmtZmCZIr5qUqAX +5Ux7PStKMIcQQz/OH99eNL973X8NwXth5sbDfQ5zvaiTi3eCdNsH1Q8Nazn/ +9iHvDadiLivsh/+ta+1ZJtKPHng21SWGWoOIbyy/VXk/CpiSmtvqeQB+nQhM +jXD8iWYsTA+9PGoDGQXB9wxkBpCBY+zuvgMHIa2F/SHm1wB6J5Xm1UCzBXBv +YZiU/0Lr867UFmyxg7v8GbJNmYOoqlvV0kr4EFhfNKTVhA8h2ffjx/xGDsGk ++NfR8xeHES0xtii7+zAYL1oOj8aPoDS+qW1xz+2h1vTz19ncUVSxW+Nr6GMH +EIvfpWbQNYaS9cJFfxceAaW7TlX90eOotSM3jBbpCLvcz4SYqk2g8n2pij6X +nIAp5eDu+G0CTZw8yOXNdIa7ZbcKd4RNohlTFY9RYxeYjI9y19w+hQpGvsyf +0T0KafG2U3mjU8j+Tq67s5ArhH2YyP1zZxo9Kt17lPeqK3DfmmXeZ80gA+l3 +C9cXXEHURzZpXnoWKXQf+/rW0w3Ag3tlTPMs6l15fH/qDzfYeTs/NfnqHGqL +snI3s2PA8Q96zGca8yjBP2Pl2TYGGDlVhZ/6No9qny4tuJu7gx13h+id8wto +tRNcpVW74/6cp/F1cQEZuI4WhGozwdzzue2WIA7KSxk/Y6XLhNV5R151BXPQ +2vbJXZL6TFhI3SKfcJmDRk3m3hcYMiH29LkgKoSD+xcXd7MRE5Iybd/XRnDQ +qjlRB7EDTAgo87m+IoWDem/orMg4iX19qullKQdF1VzwrMpjgnbxh4knPRx0 +UuumgX8B9nhxjnwvB1neLVmhX8iElqWPqmF9HCR4s/9u5X0mGKw4V2w+wEGh +bOvBijImZPcvRtWPcNAFFcXj5fVMaEvYYB04z0FeN9+cKO1ignW61nYBYQqZ +r+rfye5mwuEnG6Ppqyi0JZRLWKuHCU+vG5VdXk2hfrbO/ZI+JmyxqraZF6WQ +m1XGyMNhJuzoCvz4UYJC9vxnvIs5THBaSi60l6OQ2Zn1PkUSLKj6FCZ3UotC +9RlhFnHrWLD8Oa/dbRqFdjZPKvqvZ4F+xCWhJm0KaSq9+WIsywL2vq88MnoU +kvoUaNyhxAIX6f+4yw0pNLSjU0JQhwWn1baPp9IpFM2T+eTYQRbUSev2mttR +SFBDKHmfHQvWxQVWmR2iUIijP5t2mAX1S8W89MMU8i+z3rx0BDs75I+eA66f +4I5NYrDAM+XAWWFnCtFeM5iNp1mwNvW1qjeTQp9ilVYqxLAgK/8dm49NoQdI +2GMglgV238sG67FDRqYb7sezwKsuhffSGdxJzRuC9G+yQCDpX8lZXwpFcblP +7ktnQSnv9Wdvz1HI9FTmF/8iFgyfDxkxvUghGZlrursesMC9XtZxDHv69al4 +3ocs6LtlRiQFUShLGe2LesQCupefbXcwhf50dtZlV7NAuetxuPu/FCqzlC5o +aWLB3eJ62uarFIrg8PAnvGbBhehRxmNsRsGgm0MzC3gOZqhZXKOQCF+1dG8r +C+Y7O6KOXafQiRr76IWPLDDZPXY9NoJCCqpJfop9LIh7fFgnK5pCnE8X23/1 +s+AB5M3LxFCoLZSlWTzAgpGUbweTsYNI7UGDYRaYXfV4ey2WQl+T2533T7Eg +pm+o1z6eQnHLRE0CuAlI+XzZqjyJQrWTnY6+vASkEolqyjcp9LOzkO3NTwDT +iGaWiL2zjJ7JWEFAi5Pbdu9kfN5c/SkLUQKiE2feC97C9VuaiJmsIeDinsa4 +k9iGemIqSJyAzNlPES3YMcJFh2hSBIwlaWhE3Mbx6u8l0psI6I4s1h1LpRCR +W9QkrkBA1XTKa+M0/H7M+e+rlQhgt99LTsLuJ9YI86kQsGjU2KObjuNrzDyG +NQlIyvLZysigUPXimuB+LQKyCmg3CrD7fnUndmsT8Kx425YR7B11Ac/f6xPQ +psxYcTqTQr0nHsg+AQJIU+qs+x0KrbIP1Kk0IkBSuCL9NraB8R7LEjqef3bf +0lvsKKme87l7CFD5aHXcIItCVXzFMRkWBBzlHD3rhf1jLDA/xZIAncWEyhRs +/RfiH25YExBwZFPvJDajpGfoqg0Bcm/sWjZkU+hGajHPv7YECFh6jNOxe9jm +mn72BEjb/+qIxhZ2kTDzOYLjUTtyS7H1zX84ezkR8E5FI6/97/cbL0a4uBIw +Hd9qJZKD6xG0yLJnEKB/x312K3bPjMRjGyYBDnHHP5hgC5M/Wi0JArxMOoec +sfWbH/abehBwZG+xgS82o/LiH/AioOLn56fXsG9kWaw1PEHAnIhN4O2/+W9I +btXxJuCAz5pTRX/z+/fu1vAhoNdN4lYNthCzxF6FTUDetO3vJmy9/UGnFHwJ +8Bx8lfj+b/4de8Nk/AhYqvQhurAjldalSfoTIBVq4t2PXSHS90g0gAB7NZP7 +w9gkVfJ65QUCbAxPKkz8zf8ziOQPIiB3sqZtClv33d75pWACmkw0y6ex/w9S +rhar "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -6318,106 +6227,107 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl -kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M -c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN -/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 -+orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 -Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD -VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE -TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG -+GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g -LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r -GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO -zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY -r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 -oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh -xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 -OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ -bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 -fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv -vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO -hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD -1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB -4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW -y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ -lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE -9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM -GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN -15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA -LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 -vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw -/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs -WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ -Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 -BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n -LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 -XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 -7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN -5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs -n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO -GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI -llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys -jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw -frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl -L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM -HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq -TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P -feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 -wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T -1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L -h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp -cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 -luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB -LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 -XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd -i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz -1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr -y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW -gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov -KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA -WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 -c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI -HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR -slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc -QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg -n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W -hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 -RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES -bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK -4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV -IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ -kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 -6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV -fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE -lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj -VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 -E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI -2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c -wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H -f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a +1:eJwV1Hk4VV0XAHBzJQqFJJKpiMg1pre94iKSJIoMcd17QiXdJFHUGypkJsqU +OSmRKdQnUSovSrPIEZJ5Hu4pvt0f59nP71nnrLP2tDYxTtmweLi4uAbw83c8 +3bJtc2Vby66nT9/5mR0j0a7RHB0GvQj5Pah/8NfdGboJivRaxCyJOrQH25r5 +n4AQrRHVv9X1Nscu8Q9+zk9vRpFyNTMW2NdfrKsLLnyLwsulRyyxH7edTv+t +9QH5FNvb7sce/Pr6wvmazyiGxt5qg72+T8Fx1vgb0vb2YNth7x27YHCm+Tuy +ijNUccB++ntwpX8hHr8M7XfG/nhZMrDC+weSCz3f74Y9KkAfnNbqQ586eocJ +bIFIHwfaXD9SU9vmfgJbVjSt6XTNABJ7Y2fOxraSns0bNR5G4167WcHYRKa8 +hPryUTSsJ3A7DDtYaX/o8eYxdG+oEKKwP0u+3+5bOIECBhM70rGZR7w84yMn +0aReZ1s+9ngq151S7ymkeVpAtwR7uby6yITWDKqd5bJuxE5gPjcTEZ9Fw4Ht +fG3YcvkOwRpzs6jEJVylA1tfLWz0ZM08ilvIr5/E9tD93jxo/BtZqVbSNnuQ +aNr/LJ+g8h80KfrsmA72pZqVO1WWLyKXy+Ur6djJoH/vWPMSqrvhls3AZuY2 +0dmF3GA/2y2ai134Ir77sjQPtIQ6NFZgj/90uRAbyQOpAQ0DTdgXVGcePfTm +BXU+v+BR7ITiTQpjWvzwW9FjeJcnib62DT9dzOaHzzsTNtpiy01WHlklLgB8 +e2vrPbGLtK3i1OcEYGcCv0MSdsPjAO4TNcsBHLMbp7Fnnrd/HzAWAn/pQ5kv +vEgkZikkEvhUCD6dt9bvw9Z8TwdhA2EIEee35TtOIq/e8szt21bB+4lcCTq2 +D0+z5j9CIuD7UuDVK+w++QcTobOisGq5R+/ICbw+xOsVrTQx+Oin9HjtSRLx +3OvftO60GDhJNYruxJajbbQpHBIDMaiwisQ+YhxT2tK9BipES+a0vEnU6s4+ +I/lGHOwjipennCJRV35UhOtyCaDPzGxowh4eKsy+ayIBzPH95XPYgr4/2g3r +JIDH0JJt70Mieoittmu5JKxNeCkjd5pE1Tm6MwUZUjDwauqfJjaJcvo4fjt8 +ZUDzs/vTQD8S7bG72nXmvgzQW1ZtqsQeblhjer9fBtrnrOYmsbVz1MTlHGRh +XUva4vFzeD0ZLo/4d22EXr/v/u7+JJoc6z43cEUOoosdNnoEkGjNSXrZo33y +IKf7xbopiET9OYIe1l7y8DZrUF0smERV39qkR8LkwVNDItgJ28nS+YpynTzk +KbVcnMTO2epnk6KlAHIh9BGFy/j/g/njQZKK4Hc+IDn1Colsj61UtyCVwObn +olHfNRIhPzutw3+U4G1+2ZjhdRKphmboMaWUIVgqTSgemyubZhR0QBnedqy/ +aRROovtdjodLnylD5nensbwIfD8PFV1en7UZvKoKSkKicH30fR8HGSoQvEk1 +JyGBRNkHb3bMBalAZGWj2wJ2FIPs5rutAtaUaYxLIj7fl84OybarQHq+GKgm +kUi0No3roLEq2L/0H3pxE58f2qhqjcJWCAn96Sd+m0TS8tHBEb1qEKfWH7ks +i0S14dMqCzzqsPp/ZToh2E5TDu+JTepQ62bF5M4mUXqDooqRizoMd/If/IMt +f6z63fwndWjounCOysXzLepTIt5sA9l4Rq8I7ksy0rKEnIMmfKq8F5VZSiK1 +XF8hCmnBtSC7PXaNJGIwr8yoW2lBYevudb+wkxXiulydtOCq7jeXiy9IxJtV +/PCFvxbY0JB1/kt839IHbeNKtCB2rLqB6zXup8muaSoKNPCMvPb7VQve3wjL +bfYC2qAX8GOg/DOJ7rAVrcubdUDUr+LjzAiJSrvqItZ90wF6Ik9oxSiJ6i2c +XwYO6UCUSeKzc2Mk6pVP2mUkqAvFnIY+apxEyu3L1FvNdCHZoKVDcBrfZ9rQ +il/1ujBVdC/cmIP3Z7rk+YbHerDxYMEhuWU9qM0P6YXkGsAHu+7v4fI9aJPL +ByvnE/+A5eonwoJHexBrqeKBzHmAR/qbq9IzepDkUNUySYYRhCrmt7aN9iBf +2s5vcap0cN7Jds/Z/QMxRn43rRk0AWLaIfXc7R/ovtGZZRmtZmCZIr5qUqAX +5Ux7PStKMIcQQz/OH99eNL973X8NwXth5sbDfQ5zvaiTi3eCdNsH1Q8Nazn/ +9iHvDadiLivsh/+ta+1ZJtKPHng21SWGWoOIbyy/VXk/CpiSmtvqeQB+nQhM +jXD8iWYsTA+9PGoDGQXB9wxkBpCBY+zuvgMHIa2F/SHm1wB6J5Xm1UCzBXBv +YZiU/0Lr867UFmyxg7v8GbJNmYOoqlvV0kr4EFhfNKTVhA8h2ffjx/xGDsGk ++NfR8xeHES0xtii7+zAYL1oOj8aPoDS+qW1xz+2h1vTz19ncUVSxW+Nr6GMH +EIvfpWbQNYaS9cJFfxceAaW7TlX90eOotSM3jBbpCLvcz4SYqk2g8n2pij6X +nIAp5eDu+G0CTZw8yOXNdIa7ZbcKd4RNohlTFY9RYxeYjI9y19w+hQpGvsyf +0T0KafG2U3mjU8j+Tq67s5ArhH2YyP1zZxo9Kt17lPeqK3DfmmXeZ80gA+l3 +C9cXXEHURzZpXnoWKXQf+/rW0w3Ag3tlTPMs6l15fH/qDzfYeTs/NfnqHGqL +snI3s2PA8Q96zGca8yjBP2Pl2TYGGDlVhZ/6No9qny4tuJu7gx13h+id8wto +tRNcpVW74/6cp/F1cQEZuI4WhGozwdzzue2WIA7KSxk/Y6XLhNV5R151BXPQ +2vbJXZL6TFhI3SKfcJmDRk3m3hcYMiH29LkgKoSD+xcXd7MRE5Iybd/XRnDQ +qjlRB7EDTAgo87m+IoWDem/orMg4iX19qullKQdF1VzwrMpjgnbxh4knPRx0 +UuumgX8B9nhxjnwvB1neLVmhX8iElqWPqmF9HCR4s/9u5X0mGKw4V2w+wEGh +bOvBijImZPcvRtWPcNAFFcXj5fVMaEvYYB04z0FeN9+cKO1ignW61nYBYQqZ +r+rfye5mwuEnG6Ppqyi0JZRLWKuHCU+vG5VdXk2hfrbO/ZI+JmyxqraZF6WQ +m1XGyMNhJuzoCvz4UYJC9vxnvIs5THBaSi60l6OQ2Zn1PkUSLKj6FCZ3UotC +9RlhFnHrWLD8Oa/dbRqFdjZPKvqvZ4F+xCWhJm0KaSq9+WIsywL2vq88MnoU +kvoUaNyhxAIX6f+4yw0pNLSjU0JQhwWn1baPp9IpFM2T+eTYQRbUSev2mttR +SFBDKHmfHQvWxQVWmR2iUIijP5t2mAX1S8W89MMU8i+z3rx0BDs75I+eA66f +4I5NYrDAM+XAWWFnCtFeM5iNp1mwNvW1qjeTQp9ilVYqxLAgK/8dm49NoQdI +2GMglgV238sG67FDRqYb7sezwKsuhffSGdxJzRuC9G+yQCDpX8lZXwpFcblP +7ktnQSnv9Wdvz1HI9FTmF/8iFgyfDxkxvUghGZlrursesMC9XtZxDHv69al4 +3ocs6LtlRiQFUShLGe2LesQCupefbXcwhf50dtZlV7NAuetxuPu/FCqzlC5o +aWLB3eJ62uarFIrg8PAnvGbBhehRxmNsRsGgm0MzC3gOZqhZXKOQCF+1dG8r +C+Y7O6KOXafQiRr76IWPLDDZPXY9NoJCCqpJfop9LIh7fFgnK5pCnE8X23/1 +s+AB5M3LxFCoLZSlWTzAgpGUbweTsYNI7UGDYRaYXfV4ey2WQl+T2533T7Eg +pm+o1z6eQnHLRE0CuAlI+XzZqjyJQrWTnY6+vASkEolqyjcp9LOzkO3NTwDT +iGaWiL2zjJ7JWEFAi5Pbdu9kfN5c/SkLUQKiE2feC97C9VuaiJmsIeDinsa4 +k9iGemIqSJyAzNlPES3YMcJFh2hSBIwlaWhE3Mbx6u8l0psI6I4s1h1LpRCR +W9QkrkBA1XTKa+M0/H7M+e+rlQhgt99LTsLuJ9YI86kQsGjU2KObjuNrzDyG +NQlIyvLZysigUPXimuB+LQKyCmg3CrD7fnUndmsT8Kx425YR7B11Ac/f6xPQ +psxYcTqTQr0nHsg+AQJIU+qs+x0KrbIP1Kk0IkBSuCL9NraB8R7LEjqef3bf +0lvsKKme87l7CFD5aHXcIItCVXzFMRkWBBzlHD3rhf1jLDA/xZIAncWEyhRs +/RfiH25YExBwZFPvJDajpGfoqg0Bcm/sWjZkU+hGajHPv7YECFh6jNOxe9jm +mn72BEjb/+qIxhZ2kTDzOYLjUTtyS7H1zX84ezkR8E5FI6/97/cbL0a4uBIw +Hd9qJZKD6xG0yLJnEKB/x312K3bPjMRjGyYBDnHHP5hgC5M/Wi0JArxMOoec +sfWbH/abehBwZG+xgS82o/LiH/AioOLn56fXsG9kWaw1PEHAnIhN4O2/+W9I +btXxJuCAz5pTRX/z+/fu1vAhoNdN4lYNthCzxF6FTUDetO3vJmy9/UGnFHwJ +8Bx8lfj+b/4de8Nk/AhYqvQhurAjldalSfoTIBVq4t2PXSHS90g0gAB7NZP7 +w9gkVfJ65QUCbAxPKkz8zf8ziOQPIiB3sqZtClv33d75pWACmkw0y6ex/w9S +rhar "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.819001000320631}, + "PlotRange" -> {{0, 180}, {0.5438573189512323, + 1.7277724340132057`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5438573189512336}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -6429,20 +6339,21 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "PlotRange" -> {{0, 180}, {0.5438573189512323, + 1.7277724340132057`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.819001000320631}, + "AxesOrigin" -> {0, 0.5438573189512336}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -6456,105 +6367,105 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl -kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M -c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN -/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 -+orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 -Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD -VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE -TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG -+GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g -LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r -GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO -zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY -r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 -oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh -xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 -OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ -bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 -fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv -vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO -hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD -1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB -4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW -y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ -lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE -9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM -GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN -15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA -LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 -vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw -/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs -WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ -Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 -BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n -LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 -XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 -7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN -5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs -n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO -GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI -llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys -jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw -frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl -L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM -HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq -TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P -feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 -wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T -1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L -h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp -cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 -luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB -LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 -XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd -i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz -1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr -y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW -gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov -KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA -WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 -c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI -HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR -slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc -QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg -n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W -hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 -RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES -bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK -4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV -IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ -kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 -6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV -fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE -lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj -VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 -E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI -2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c -wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H -f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a +1:eJwV1Hk4VV0XAHBzJQqFJJKpiMg1pre94iKSJIoMcd17QiXdJFHUGypkJsqU +OSmRKdQnUSovSrPIEZJ5Hu4pvt0f59nP71nnrLP2tDYxTtmweLi4uAbw83c8 +3bJtc2Vby66nT9/5mR0j0a7RHB0GvQj5Pah/8NfdGboJivRaxCyJOrQH25r5 +n4AQrRHVv9X1Nscu8Q9+zk9vRpFyNTMW2NdfrKsLLnyLwsulRyyxH7edTv+t +9QH5FNvb7sce/Pr6wvmazyiGxt5qg72+T8Fx1vgb0vb2YNth7x27YHCm+Tuy +ijNUccB++ntwpX8hHr8M7XfG/nhZMrDC+weSCz3f74Y9KkAfnNbqQ586eocJ +bIFIHwfaXD9SU9vmfgJbVjSt6XTNABJ7Y2fOxraSns0bNR5G4167WcHYRKa8 +hPryUTSsJ3A7DDtYaX/o8eYxdG+oEKKwP0u+3+5bOIECBhM70rGZR7w84yMn +0aReZ1s+9ngq151S7ymkeVpAtwR7uby6yITWDKqd5bJuxE5gPjcTEZ9Fw4Ht +fG3YcvkOwRpzs6jEJVylA1tfLWz0ZM08ilvIr5/E9tD93jxo/BtZqVbSNnuQ +aNr/LJ+g8h80KfrsmA72pZqVO1WWLyKXy+Ur6djJoH/vWPMSqrvhls3AZuY2 +0dmF3GA/2y2ai134Ir77sjQPtIQ6NFZgj/90uRAbyQOpAQ0DTdgXVGcePfTm +BXU+v+BR7ITiTQpjWvzwW9FjeJcnib62DT9dzOaHzzsTNtpiy01WHlklLgB8 +e2vrPbGLtK3i1OcEYGcCv0MSdsPjAO4TNcsBHLMbp7Fnnrd/HzAWAn/pQ5kv +vEgkZikkEvhUCD6dt9bvw9Z8TwdhA2EIEee35TtOIq/e8szt21bB+4lcCTq2 +D0+z5j9CIuD7UuDVK+w++QcTobOisGq5R+/ICbw+xOsVrTQx+Oin9HjtSRLx +3OvftO60GDhJNYruxJajbbQpHBIDMaiwisQ+YhxT2tK9BipES+a0vEnU6s4+ +I/lGHOwjipennCJRV35UhOtyCaDPzGxowh4eKsy+ayIBzPH95XPYgr4/2g3r +JIDH0JJt70Mieoittmu5JKxNeCkjd5pE1Tm6MwUZUjDwauqfJjaJcvo4fjt8 +ZUDzs/vTQD8S7bG72nXmvgzQW1ZtqsQeblhjer9fBtrnrOYmsbVz1MTlHGRh +XUva4vFzeD0ZLo/4d22EXr/v/u7+JJoc6z43cEUOoosdNnoEkGjNSXrZo33y +IKf7xbopiET9OYIe1l7y8DZrUF0smERV39qkR8LkwVNDItgJ28nS+YpynTzk +KbVcnMTO2epnk6KlAHIh9BGFy/j/g/njQZKK4Hc+IDn1Colsj61UtyCVwObn +olHfNRIhPzutw3+U4G1+2ZjhdRKphmboMaWUIVgqTSgemyubZhR0QBnedqy/ +aRROovtdjodLnylD5nensbwIfD8PFV1en7UZvKoKSkKicH30fR8HGSoQvEk1 +JyGBRNkHb3bMBalAZGWj2wJ2FIPs5rutAtaUaYxLIj7fl84OybarQHq+GKgm +kUi0No3roLEq2L/0H3pxE58f2qhqjcJWCAn96Sd+m0TS8tHBEb1qEKfWH7ks +i0S14dMqCzzqsPp/ZToh2E5TDu+JTepQ62bF5M4mUXqDooqRizoMd/If/IMt +f6z63fwndWjounCOysXzLepTIt5sA9l4Rq8I7ksy0rKEnIMmfKq8F5VZSiK1 +XF8hCmnBtSC7PXaNJGIwr8yoW2lBYevudb+wkxXiulydtOCq7jeXiy9IxJtV +/PCFvxbY0JB1/kt839IHbeNKtCB2rLqB6zXup8muaSoKNPCMvPb7VQve3wjL +bfYC2qAX8GOg/DOJ7rAVrcubdUDUr+LjzAiJSrvqItZ90wF6Ik9oxSiJ6i2c +XwYO6UCUSeKzc2Mk6pVP2mUkqAvFnIY+apxEyu3L1FvNdCHZoKVDcBrfZ9rQ +il/1ujBVdC/cmIP3Z7rk+YbHerDxYMEhuWU9qM0P6YXkGsAHu+7v4fI9aJPL +ByvnE/+A5eonwoJHexBrqeKBzHmAR/qbq9IzepDkUNUySYYRhCrmt7aN9iBf +2s5vcap0cN7Jds/Z/QMxRn43rRk0AWLaIfXc7R/ovtGZZRmtZmCZIr5qUqAX +5Ux7PStKMIcQQz/OH99eNL973X8NwXth5sbDfQ5zvaiTi3eCdNsH1Q8Nazn/ +9iHvDadiLivsh/+ta+1ZJtKPHng21SWGWoOIbyy/VXk/CpiSmtvqeQB+nQhM +jXD8iWYsTA+9PGoDGQXB9wxkBpCBY+zuvgMHIa2F/SHm1wB6J5Xm1UCzBXBv +YZiU/0Lr867UFmyxg7v8GbJNmYOoqlvV0kr4EFhfNKTVhA8h2ffjx/xGDsGk ++NfR8xeHES0xtii7+zAYL1oOj8aPoDS+qW1xz+2h1vTz19ncUVSxW+Nr6GMH +EIvfpWbQNYaS9cJFfxceAaW7TlX90eOotSM3jBbpCLvcz4SYqk2g8n2pij6X +nIAp5eDu+G0CTZw8yOXNdIa7ZbcKd4RNohlTFY9RYxeYjI9y19w+hQpGvsyf +0T0KafG2U3mjU8j+Tq67s5ArhH2YyP1zZxo9Kt17lPeqK3DfmmXeZ80gA+l3 +C9cXXEHURzZpXnoWKXQf+/rW0w3Ag3tlTPMs6l15fH/qDzfYeTs/NfnqHGqL +snI3s2PA8Q96zGca8yjBP2Pl2TYGGDlVhZ/6No9qny4tuJu7gx13h+id8wto +tRNcpVW74/6cp/F1cQEZuI4WhGozwdzzue2WIA7KSxk/Y6XLhNV5R151BXPQ +2vbJXZL6TFhI3SKfcJmDRk3m3hcYMiH29LkgKoSD+xcXd7MRE5Iybd/XRnDQ +qjlRB7EDTAgo87m+IoWDem/orMg4iX19qullKQdF1VzwrMpjgnbxh4knPRx0 +UuumgX8B9nhxjnwvB1neLVmhX8iElqWPqmF9HCR4s/9u5X0mGKw4V2w+wEGh +bOvBijImZPcvRtWPcNAFFcXj5fVMaEvYYB04z0FeN9+cKO1ignW61nYBYQqZ +r+rfye5mwuEnG6Ppqyi0JZRLWKuHCU+vG5VdXk2hfrbO/ZI+JmyxqraZF6WQ +m1XGyMNhJuzoCvz4UYJC9vxnvIs5THBaSi60l6OQ2Zn1PkUSLKj6FCZ3UotC +9RlhFnHrWLD8Oa/dbRqFdjZPKvqvZ4F+xCWhJm0KaSq9+WIsywL2vq88MnoU +kvoUaNyhxAIX6f+4yw0pNLSjU0JQhwWn1baPp9IpFM2T+eTYQRbUSev2mttR +SFBDKHmfHQvWxQVWmR2iUIijP5t2mAX1S8W89MMU8i+z3rx0BDs75I+eA66f +4I5NYrDAM+XAWWFnCtFeM5iNp1mwNvW1qjeTQp9ilVYqxLAgK/8dm49NoQdI +2GMglgV238sG67FDRqYb7sezwKsuhffSGdxJzRuC9G+yQCDpX8lZXwpFcblP +7ktnQSnv9Wdvz1HI9FTmF/8iFgyfDxkxvUghGZlrursesMC9XtZxDHv69al4 +3ocs6LtlRiQFUShLGe2LesQCupefbXcwhf50dtZlV7NAuetxuPu/FCqzlC5o +aWLB3eJ62uarFIrg8PAnvGbBhehRxmNsRsGgm0MzC3gOZqhZXKOQCF+1dG8r +C+Y7O6KOXafQiRr76IWPLDDZPXY9NoJCCqpJfop9LIh7fFgnK5pCnE8X23/1 +s+AB5M3LxFCoLZSlWTzAgpGUbweTsYNI7UGDYRaYXfV4ey2WQl+T2533T7Eg +pm+o1z6eQnHLRE0CuAlI+XzZqjyJQrWTnY6+vASkEolqyjcp9LOzkO3NTwDT +iGaWiL2zjJ7JWEFAi5Pbdu9kfN5c/SkLUQKiE2feC97C9VuaiJmsIeDinsa4 +k9iGemIqSJyAzNlPES3YMcJFh2hSBIwlaWhE3Mbx6u8l0psI6I4s1h1LpRCR +W9QkrkBA1XTKa+M0/H7M+e+rlQhgt99LTsLuJ9YI86kQsGjU2KObjuNrzDyG +NQlIyvLZysigUPXimuB+LQKyCmg3CrD7fnUndmsT8Kx425YR7B11Ac/f6xPQ +psxYcTqTQr0nHsg+AQJIU+qs+x0KrbIP1Kk0IkBSuCL9NraB8R7LEjqef3bf +0lvsKKme87l7CFD5aHXcIItCVXzFMRkWBBzlHD3rhf1jLDA/xZIAncWEyhRs +/RfiH25YExBwZFPvJDajpGfoqg0Bcm/sWjZkU+hGajHPv7YECFh6jNOxe9jm +mn72BEjb/+qIxhZ2kTDzOYLjUTtyS7H1zX84ezkR8E5FI6/97/cbL0a4uBIw +Hd9qJZKD6xG0yLJnEKB/x312K3bPjMRjGyYBDnHHP5hgC5M/Wi0JArxMOoec +sfWbH/abehBwZG+xgS82o/LiH/AioOLn56fXsG9kWaw1PEHAnIhN4O2/+W9I +btXxJuCAz5pTRX/z+/fu1vAhoNdN4lYNthCzxF6FTUDetO3vJmy9/UGnFHwJ +8Bx8lfj+b/4de8Nk/AhYqvQhurAjldalSfoTIBVq4t2PXSHS90g0gAB7NZP7 +w9gkVfJ65QUCbAxPKkz8zf8ziOQPIiB3sqZtClv33d75pWACmkw0y6ex/w9S +rhar "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "PlotRange" -> {{0, 180}, {0.5438573189512323, 1.7277724340132057`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.819001000320631}, + "AxesOrigin" -> {0, 0.5438573189512336}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -6564,7 +6475,8 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.819001000320631}, + AxesOrigin->{0, 0.5438573189512336}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -6592,7 +6504,8 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.8190010003206292, 1.212160280392001}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.5438573189512323, 1.7277724340132057`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -6600,9 +6513,8 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913281932019863`*^9}, - CellLabel-> - "Out[168]=",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] + CellChangeTimes->{3.9913281932019863`*^9, 3.994250433412674*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"c61e6157-5720-4694-abdc-cb9716a7572b"] }, Open ]], Cell[CellGroupData[{ @@ -6617,30 +6529,33 @@ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -6665,348 +6580,160 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918488717861137`*^9},ExpressionUUID->"5a7f9400-1446-9746-a463-\ -bade8ae5c530"], + CellChangeTimes->{3.9918488717861137`*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0472568361461936`*^-267\\\", \ -\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 169, - 117, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913281934227676`*^9}, - CellLabel-> - "During evaluation of \ -In[169]:=",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.5836247142456827`*^-279\\\", \ + "\"\\!\\(\\*FractionBox[\\\"4.115826680767803`*^-269\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 169, - 118, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913281934317894`*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 95, 9, + 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913281934227676`*^9, 3.9942504339490623`*^9}, CellLabel-> "During evaluation of \ -In[169]:=",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], +In[95]:=",ExpressionUUID->"2ab5415e-7aa4-4ae0-8afa-c31b9ed9d8f1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.3739060311364366`*^-291\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.702253718095312`*^-280\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 169, 119, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913281934409904`*^9}, +to represent as a normalized machine number; precision may be lost.\"", 2, 95, + 10, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913281934227676`*^9, 3.9942504339597187`*^9}, CellLabel-> "During evaluation of \ -In[169]:=",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], +In[95]:=",ExpressionUUID->"ceb0a3e3-dbef-4828-b255-a434ba650a1a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7741697411800942`*^-291\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 95, 11, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913281934227676`*^9, 3.994250433969494*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"fc72447b-2a6a-450f-baa8-0c0beb14e977"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 169, 120, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99132819344899*^9}, +during this calculation.\"", 2, 95, 12, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913281934227676`*^9, 3.9942504339782143`*^9}, CellLabel-> "During evaluation of \ -In[169]:=",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], +In[95]:=",ExpressionUUID->"5f49c87d-1756-4b90-bac9-7e5eac8a7043"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr -4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X -RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD -OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV -zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn -l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI -1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p -HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t -nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx -T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq -8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT -gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L -kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR -bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R -rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS -HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y -gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg -bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ -wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 -Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO -1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a -MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC -VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy -Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU -OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr -0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 -WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN -FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 -NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW -uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN -BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs -Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy -O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx -e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k -Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU -/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q -6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 -qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu -/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 -hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC -qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij -bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 -i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ -Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja -ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D -d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr -z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA -MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD -Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g -gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv -eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq -t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 -+PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m -848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 -yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt -633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI -4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De -Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM -E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 -Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r -lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy -uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb -tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT -ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ -8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats -MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ -LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy -rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h -EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys -GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv -8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK -E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 -T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 -uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl -dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt -Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh -dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH -E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD -HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ -aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh -2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I -P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq -UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G -c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd -xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn -l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e -zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L -Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 -6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU -4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 -UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C -zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n -TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 -PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa -/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP -4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP -HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 -56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT -fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU -pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV -YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq -mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 -rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM -b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN -ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li -wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp -fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 -EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM -ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj -ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT -T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e -E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv -C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a -Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ -1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs -eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN -4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y -pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE -1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu -6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc -pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 -Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ -Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP -NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc -mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh -27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 -PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c -ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi -0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U -XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA -VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT -gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn -LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp -PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n -23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw -CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i -L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc -KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN -/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 -v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 -1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb -eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 -tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q -sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 -MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa -mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o -aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv -RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 -UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde -aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK -Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ -jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA -LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O -VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP -6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 -Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl -vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny -ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf -PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo -v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ -QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 -JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv -WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ -q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 -HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC -lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK -THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K -LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r -qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk -TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt -XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx -3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y -NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy -Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R -/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD -9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J -eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl -lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c -to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 -mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib -HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 -Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 -RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH -ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w -tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK -EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF -n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 -Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl -kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 -+f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC -XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf -+xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw -5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn -fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 -GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 -+8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx -f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI -cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU -+tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG -aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL -eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ -00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M -z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf -O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD -mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ -3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA -61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu -+HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY -b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J -EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq -OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw -320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq -T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL -uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP -ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E -mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c -aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 -2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t -HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 -cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl -5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs -bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ -pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl -Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 -RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 -u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW -vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 -JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd -9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f -CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS -GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be -/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT -kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI -8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX -Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne -xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ -EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ -MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 -mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl -kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr -wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z -nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo -Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t -RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO -NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T -6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl -w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL -TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L -7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ -RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr -ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag -gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e -gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW -nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 -ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV -JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu -NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ -wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu -acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik -f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 -Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ -Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 -CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 -ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA -lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu -AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN -SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v -q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi -hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L -ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH -ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn -DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL -8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 -iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA -D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA -V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S -MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD -nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ -MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd -Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k8VO8XB3ClUBHZyTZzzSBLkbWMc7SKshWikrJLaJNEtiaKishW1uwy +M0qUJJWkTSohSlGplDVL9C2/5/fXvN5/zL33vO5zPudc2t5Ae8+5fHx88+bw +8f3/d7LncaNqfIGZ9XWBoYk4U7O2bNlj5p3R8Dn5/r0vWvKAUi/2ynZegLyw +SvsyrWUQbFvWwd+ZD917WA4ntVbBkiGZC9Md1+CEvBTYalnChzrrwPGO++C0 +Lq2zUtMFNqgOvB/teAWyxebOdhp+MN1hdHGkow/mNVN/3iuHwoO1xQUv83/B +iY5i00CReFD4cKt/r9ZfUPSvXi3ZnwyS/rvLBNfyY5BW2lGVwQy4oLvhtrWD +EDqZrJo+JJ4Lb9NXNIyKieA/Q4MjZ5/kQ3xBxIu5cktQ7I3+9KeoQpBJ+XQ6 +OUsCA0a7I+9/L4bYbZvMXk1K4WO1qwqHvpaCfFWL/Nw50rg/W3juqeFS4Ehs +m9JdJI3141MCKVOl0P7KlZekLI0+Hpf25QmWgardYbqdhTQu8s1hR6mVwf0t +OQKtGdLISxzQdvQqg78bJlqem8pgXsJvDauPZXDIJG/342hZlKyeV2j0sBws +cxePWyXIYpq9TGfa03KgC4bFtVyUxUFfRu6vl+XQ2uZY+bpEFg8KbhvM6ikH +nSBh/p4WWXz6cmngnaly+FZ0tGhMXg53flSvUNO4CjslrQeXXpdDv4kzhkVx +V2Hd8ExowCd5tHhxeY/xqgo4ZpGy7N5PebQptfNzgwrg5Gl3SUzK45fAfuWT +6ypAdpubyS2hpRiZypdUb10BP28+nOLXWYrGT7xPze6tgOToxMMZIUvxl8TE +5cozFdAnxQxoFFHA9fP8i9+0V4BM4F1FGRkFbHWYu+hQdwVsbt7+3FdFAVNc +/5MR/lgB1aHxWqIrFVA6YVRb93sFnPkwMuC8XQGjb/2y2PinAvRKb3sP5ytg +qrOd0RUlDkSZ2u2RN1bE3sLxhfJ7OWDhmj1mtEYRdV+7C7C9OLA48keMw2ZF +fLmK9nXAjwOXH7CLEt0UMczl9/biQxy4aVn7Q+C0IgpsjJrz6SQHRrZTwb/e +KqJTdwfbs4gDrkcmzjw7roRmW7/kp3/hACNtjcIAWwkjO7ZkuH3nkPrPVwgm +KmEme+VxapADof9ptK4pUEL75rS5meMcuBjjKnXrmRIq2U6rWfJz4VnSo5xC +RWUML9CXqFHmwipORtWJu8rYH2Da93AbF9Z1tPwdalbGuGgDZrUTF6z55m3c +/UoZ29gTgvkuXHC3D3gLX5Sx5LVZkb8bFzYcp0VEzlfBkz92bn++jwtBypNX +zDVVkD6x4ntdFBcavXMGHwSrYIrPuStOZVzY9J+JeNhxFVSuZ3nXXeVCS2Kb +oX6kCmrq6LUrcLnw9taCyILTKpjo0lXTep0LQ4sOi7Mvq6Brys+0eXe4IMuz +MNpwXwW5f+1Ms1q44P97NLJZhIaaH2paLw6Reg54SfeL0zCvRet6+ggXhAa6 +yvllaVhniMmpY1wo7H7QbkanYbOsnU3MJBd66i9q3TCk4XmRR89U/nHBhm3S +mbebhtt9DDcaCvBA6V/F/rseNFwiEdsmKsiDn8F0/ve+NNybuuhrP3GczyId +2cM0FL7kmnV2AQ8arN7HnIujYUigxI47wjzQE49afryShnL7Px8vEucBX/xE +Y3o1Db2W0xK3S/Cghd/Ppfo2DWubE1cISfJg34Q9e/QhDeHrOxk3KR4UdKp2 +e3fRMGOV7NkxGR4ctMsIYn+g4aW5HaJJsjzAJyICVz7TkBsbSdeW48H725Mr +eoZo6FYVOr1LngfSOc2ntvHT8bpE2PF8BR58lmEpHBSi46zR3zPaijy4llhZ +eV6Ejj8erdepJraJznz3RIaOTy2Zeg1KpD5Pfz1zLTp6sSRZNSo8cOz5+MhV +l45t6nW/dWg8UHVy2BVmSMeTjlqbC4gbLMziapCOZWFBdbF0HkxrivVoO9Ax +mm+8VVeVB5NZ8lErXeiob60el0I8LspQNdlNx/HRw6PjxEO/TPzW+dIxJd/x +HYfBg77b7pMu4XQc5G6lCarx4IN2QIZbNB3j1HcfdSJ+lxNi6hVLx4I352IK +idtjzkYfSKLjdhO/hlXqPHhiVbM4rpCOG56md23S4MGjO/cqz5bRcVrUciSW +uHH5s23JXDpqrbRqeEBcL9GbmX2LjgImO5P0l/HgNvsHq6CejoGfw5J9iW9O +TXwsfUBH29nF9peJr3UvVLvxnI7iXhyBP8TcLVJPal/Rca5T61+mJg+u3lXe +39BBnp/v7HVb4lLdZWJN7+h471ugeghx0RX960976bhXZP6uLOIrUuD4sp+O +fl877RqIc2M3Tbf/oOMbnxDBXuLMfa7QN0HH+lO2NUu1eJD23qfv6wypz73w +mgFxis0h9uAsHYu9/gVtIU66F67+ax6FUu8HxvYSn1sZ9/T3AgrXnpkxDiaO +L7wQ8G8xhfKld9bGEsfJZC2ZJ0mh549GiVRi9uniqgVyFEYcyyvNJ47+U+kk +qkTh/LHP8yuII/bXzUhSFLJ9aRo3iMM+NGXJq1Oo4/dd4jbxMbuXqKJNYfiv +F031xMEPuj8x9Cj8ccxnTQPxIYP+U5pGFJb0b4i9SxxUPKKha0qhcdrsxTri +ALk/zwzNKVy2Sy2whnhf/Pwg0w0UtoZvleAR+/wVlVhjRWFnpVxMEbFXoHz1 +RlsKlzDE7mYSu/eqOm9xoFAi+PmjBGK3rcv/s3ehsOvGt6ww4l0PTXK276Yw +yXva3I/YxWjdGlcPCg0i06ociJ1Krb+4+1Jo6rVj0ox421LnON8ACjeOvhdk +EtudddcMPERhu+/N7wuJrWf3txwOoXA47uTlQfK+rA6EHAgNp7Dl6DuVFmKL +T9GSkdEUnnvhcvQq8XqHszXsWAr70jNz44jXPEpziU+g8JaVUdZeYtPyq7mp +qRT2Hp0SFyPuVinPWX+Jwgy7rux+ct5CU0uzx3MozK7lWdwmrokqumxfSqFd +m9FvV2LHqYJLczgU+qt8/6dNPO5/JZN3jUKW3nnGH3Le9bbnpi+uo7DOs77t +PPHL59lpdxooXHzd0tWJOGhtVqr/Qwo/KrxaoEjM0clMedJCzsvSd835pL80 +5qcknuqlcKHJyok00n/NoRfOG/RTaFHy87ItsddI4rnPAxS+Fbzj9//+Leg+ +m7BmnELa/urQQCYPVK7Fxv0TUMWYj8WhGqTfpXcfjwzWUkX//zyD1pP8uNF2 +LIKhq4rKO2JufiT5ss0y5ESbgSrqWi5bHkp8weBImB6o4vs/q8uKST6JCAeG +DNmpYqtgUv9Pkl/zbu0N8jpKbCM0prKU9JfOnkCpMFUc6htyzyH5uKZgd0Bj +JPk/U1FEgTji/E5/+hlV9IMzgmIkT2c8HX16LqtibJ3F1T5pHoyKW7o53ldF +xUDrlStJnnf601v9HqliiWnvYOwSkn9NMxDxTBXXpHZldInxIDG0XLmkXRWn +xgabj4nyYEWf8IfpAVXM62Km55D5EFD5YleWBAO3FMTnnibzxnFRyfNKWQY6 +jAo/uTOfB2aekawmRQbyjr0aGZ5H6pPTVRxWY+CDUW0Ta36SL5EX3qEpA5FZ +nPJllgsDNg47Pnsw0NO+VvfWKBdelWo//e3LwGXCpz/1DnOhll9gtUggAzM7 +rEoEyLw8XVMtb3iMgU/ZH4LWDXBBXVm2K/YsAz8rNmgk9XHBe6hru2Y1AzfX +hKUHveLC5wQ3x4OCTNTfmBdqT+Z1wIAWfYUwE98sbF6vXsGFqY3Tg4NiTNyk +fODlDJn3C/kvsH3lmdgSkbQ8tYgLK449qHLTZqKHsZRWURYXwj2ZEjZbmTgz ++sJGK54L0mY/X2jmMPHE4cUFXe5cyL1089L3K0wcu5AhZbWHCxrTJ72LS5h4 +Y0v+wZuuXDCtUpylX2Mie0nh+Glnsp8ss9GRf8jEV1UtZkI2XOBJX0sQ+sHE +eyceKx8yIfvH8NFNXwzV0HXh/qZFwlxQ0FU6JWSqhp5JXM/3QmTfONh4X9Nc +DWtPeV4qn8+FlEkx04NWaph2x+Ela5YDPX9LdWZ3q+E/h5gMkzEOHBR+JyF3 +Wg3XzdHXSezgQKYG9mzuVkMzZyGpphyyn7kLHaqKUMeZrKdWt5kcGMped+fu +SXXckxjs/5rOgeG3kYJPT6tjoLVY1TeyT47ZTF/qTVbHxCSVuwtlODC1eqBx +cYk6qkXrTmoJcmCu5DNp31ZyvbHUwz/6K0Cu8XytIk0DTb8pKO8qqCDfLzJz +Y+9roC/bazZYpgLEnzPP8YaXoXFoTWIk2ccV4ri2hoZa+EKxw4+eWwbpmiZi +Et7a+DuyfSjBohSeyJsb/ErSQaaHbULb12JYpXA/cXn7ctRvLJT021UEi/nz +D++JXoHs3GM/E78WgFKUsqkzUxe/1dhERdldgQWMndX2j3SxpzH7TG9THuiw +5LhHd+nhge6SXeCaCwd7xB9Y8q3EElGxc7UPs2D4V4LDpvSV+NPe0nVE4RJs +XN6UuUlbH9t3tzWxc9Kh/tfqP1Mt+ui9amyz4JJUCNDS63rpaYDXZdcn3nid +DKwhjzbnBYaou2O/LS8xCdarym4RyTfEzaul9MNNzoN65JmQ+0ZG2Pel+FxT +ZTws8zS5y+gywiMCM+FqenHgWe9zsuqAMfIVZo/zVrPhbm6bx6iUCY4YD0YM +OUbDeMns1PIaE3Rdz3gfcykC3BnlCzK3rMIQn6j2YvfjMLos2fDayCqc05Za +b+54FG4W/OmdiFuNts8CBhvmHAaXdRSuVjLF/PDgJR20A7B0f+wtnQZT3Nwa +JHr2lT9ILfSv3OLEwpsdr+dn7vOBgrXhoSPOLGwIf/7Y3tkH9MLPrU3eyUKD +em8DmY0+YD3Ce9O5h4WP9/b9vE/3gVPtE9Pu/izslho3K+zyht/5EWtCo1g4 +sKcpJnGzN3StTn5dVM7CZGPLI13GXuBzpODyJg4Ly0O+2P1V84JJzg3PnzwW +GupWUZoyXiBO75zSrSb3/zqZWDzhCVZCigp3GliYN1T6m37dE+raijxev2Fh +SIyoofIKT7BcfFM7uJOF4bl87UPKntC58fGkbDcLT5SOSDwW9YTx2h9xrh9Z +2LVBd1vWsAdo562o+D7AwqZSM5tGrgfUdZkHJwyysNZczeJbjgdYSm6F5SMs +dHD+c1060QO8Yo+8PDzBwnuxUy0XgjxgvOFUpsxvFh6c2Xfoo5sHRM+kudfO +sFCpyOOIsZ0HiOmXau36y8Jxp/gXmeYekL2/dmJ2loUudvFhgnoe8D9avU7p + "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7020,307 +6747,116 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr -4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X -RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD -OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV -zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn -l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI -1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p -HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t -nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx -T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq -8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT -gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L -kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR -bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R -rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS -HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y -gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg -bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ -wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 -Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO -1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a -MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC -VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy -Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU -OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr -0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 -WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN -FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 -NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW -uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN -BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs -Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy -O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx -e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k -Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU -/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q -6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 -qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu -/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 -hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC -qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij -bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 -i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ -Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja -ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D -d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr -z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA -MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD -Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g -gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv -eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq -t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 -+PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m -848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 -yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt -633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI -4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De -Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM -E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 -Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r -lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy -uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb -tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT -ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ -8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats -MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ -LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy -rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h -EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys -GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv -8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK -E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 -T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 -uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl -dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt -Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh -dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH -E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD -HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ -aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh -2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I -P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq -UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G -c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd -xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn -l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e -zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L -Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 -6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU -4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 -UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C -zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n -TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 -PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa -/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP -4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP -HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 -56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT -fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU -pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV -YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq -mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 -rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM -b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN -ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li -wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp -fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 -EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM -ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj -ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT -T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e -E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv -C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a -Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ -1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs -eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN -4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y -pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE -1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu -6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc -pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 -Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ -Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP -NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc -mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh -27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 -PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c -ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi -0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U -XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA -VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT -gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn -LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp -PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n -23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw -CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i -L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc -KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN -/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 -v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 -1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb -eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 -tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q -sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 -MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa -mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o -aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv -RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 -UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde -aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK -Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ -jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA -LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O -VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP -6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 -Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl -vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny -ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf -PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo -v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ -QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 -JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv -WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ -q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 -HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC -lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK -THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K -LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r -qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk -TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt -XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx -3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y -NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy -Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R -/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD -9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J -eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl -lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c -to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 -mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib -HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 -Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 -RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH -ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w -tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK -EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF -n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 -Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl -kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 -+f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC -XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf -+xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw -5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn -fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 -GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 -+8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx -f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI -cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU -+tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG -aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL -eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ -00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M -z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf -O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD -mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ -3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA -61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu -+HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY -b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J -EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq -OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw -320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq -T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL -uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP -ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E -mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c -aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 -2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t -HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 -cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl -5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs -bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ -pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl -Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 -RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 -u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW -vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 -JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd -9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f -CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS -GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be -/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT -kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI -8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX -Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne -xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ -EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ -MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 -mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl -kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr -wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z -nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo -Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t -RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO -NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T -6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl -w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL -TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L -7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ -RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr -ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag -gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e -gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW -nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 -ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV -JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu -NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ -wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu -acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik -f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 -Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ -Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 -CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 -ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA -lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu -AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN -SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v -q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi -hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L -ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH -ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn -DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL -8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 -iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA -D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA -V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S -MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD -nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ -MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd -Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== +1:eJwV13k8VO8XB3ClUBHZyTZzzSBLkbWMc7SKshWikrJLaJNEtiaKishW1uwy +M0qUJJWkTSohSlGplDVL9C2/5/fXvN5/zL33vO5zPudc2t5Ae8+5fHx88+bw +8f3/d7LncaNqfIGZ9XWBoYk4U7O2bNlj5p3R8Dn5/r0vWvKAUi/2ynZegLyw +SvsyrWUQbFvWwd+ZD917WA4ntVbBkiGZC9Md1+CEvBTYalnChzrrwPGO++C0 +Lq2zUtMFNqgOvB/teAWyxebOdhp+MN1hdHGkow/mNVN/3iuHwoO1xQUv83/B +iY5i00CReFD4cKt/r9ZfUPSvXi3ZnwyS/rvLBNfyY5BW2lGVwQy4oLvhtrWD +EDqZrJo+JJ4Lb9NXNIyKieA/Q4MjZ5/kQ3xBxIu5cktQ7I3+9KeoQpBJ+XQ6 +OUsCA0a7I+9/L4bYbZvMXk1K4WO1qwqHvpaCfFWL/Nw50rg/W3juqeFS4Ehs +m9JdJI3141MCKVOl0P7KlZekLI0+Hpf25QmWgardYbqdhTQu8s1hR6mVwf0t +OQKtGdLISxzQdvQqg78bJlqem8pgXsJvDauPZXDIJG/342hZlKyeV2j0sBws +cxePWyXIYpq9TGfa03KgC4bFtVyUxUFfRu6vl+XQ2uZY+bpEFg8KbhvM6ikH +nSBh/p4WWXz6cmngnaly+FZ0tGhMXg53flSvUNO4CjslrQeXXpdDv4kzhkVx +V2Hd8ExowCd5tHhxeY/xqgo4ZpGy7N5PebQptfNzgwrg5Gl3SUzK45fAfuWT +6ypAdpubyS2hpRiZypdUb10BP28+nOLXWYrGT7xPze6tgOToxMMZIUvxl8TE +5cozFdAnxQxoFFHA9fP8i9+0V4BM4F1FGRkFbHWYu+hQdwVsbt7+3FdFAVNc +/5MR/lgB1aHxWqIrFVA6YVRb93sFnPkwMuC8XQGjb/2y2PinAvRKb3sP5ytg +qrOd0RUlDkSZ2u2RN1bE3sLxhfJ7OWDhmj1mtEYRdV+7C7C9OLA48keMw2ZF +fLmK9nXAjwOXH7CLEt0UMczl9/biQxy4aVn7Q+C0IgpsjJrz6SQHRrZTwb/e +KqJTdwfbs4gDrkcmzjw7roRmW7/kp3/hACNtjcIAWwkjO7ZkuH3nkPrPVwgm +KmEme+VxapADof9ptK4pUEL75rS5meMcuBjjKnXrmRIq2U6rWfJz4VnSo5xC +RWUML9CXqFHmwipORtWJu8rYH2Da93AbF9Z1tPwdalbGuGgDZrUTF6z55m3c +/UoZ29gTgvkuXHC3D3gLX5Sx5LVZkb8bFzYcp0VEzlfBkz92bn++jwtBypNX +zDVVkD6x4ntdFBcavXMGHwSrYIrPuStOZVzY9J+JeNhxFVSuZ3nXXeVCS2Kb +oX6kCmrq6LUrcLnw9taCyILTKpjo0lXTep0LQ4sOi7Mvq6Brys+0eXe4IMuz +MNpwXwW5f+1Ms1q44P97NLJZhIaaH2paLw6Reg54SfeL0zCvRet6+ggXhAa6 +yvllaVhniMmpY1wo7H7QbkanYbOsnU3MJBd66i9q3TCk4XmRR89U/nHBhm3S +mbebhtt9DDcaCvBA6V/F/rseNFwiEdsmKsiDn8F0/ve+NNybuuhrP3GczyId +2cM0FL7kmnV2AQ8arN7HnIujYUigxI47wjzQE49afryShnL7Px8vEucBX/xE +Y3o1Db2W0xK3S/Cghd/Ppfo2DWubE1cISfJg34Q9e/QhDeHrOxk3KR4UdKp2 +e3fRMGOV7NkxGR4ctMsIYn+g4aW5HaJJsjzAJyICVz7TkBsbSdeW48H725Mr +eoZo6FYVOr1LngfSOc2ntvHT8bpE2PF8BR58lmEpHBSi46zR3zPaijy4llhZ +eV6Ejj8erdepJraJznz3RIaOTy2Zeg1KpD5Pfz1zLTp6sSRZNSo8cOz5+MhV +l45t6nW/dWg8UHVy2BVmSMeTjlqbC4gbLMziapCOZWFBdbF0HkxrivVoO9Ax +mm+8VVeVB5NZ8lErXeiob60el0I8LspQNdlNx/HRw6PjxEO/TPzW+dIxJd/x +HYfBg77b7pMu4XQc5G6lCarx4IN2QIZbNB3j1HcfdSJ+lxNi6hVLx4I352IK +idtjzkYfSKLjdhO/hlXqPHhiVbM4rpCOG56md23S4MGjO/cqz5bRcVrUciSW +uHH5s23JXDpqrbRqeEBcL9GbmX2LjgImO5P0l/HgNvsHq6CejoGfw5J9iW9O +TXwsfUBH29nF9peJr3UvVLvxnI7iXhyBP8TcLVJPal/Rca5T61+mJg+u3lXe +39BBnp/v7HVb4lLdZWJN7+h471ugeghx0RX960976bhXZP6uLOIrUuD4sp+O +fl877RqIc2M3Tbf/oOMbnxDBXuLMfa7QN0HH+lO2NUu1eJD23qfv6wypz73w +mgFxis0h9uAsHYu9/gVtIU66F67+ax6FUu8HxvYSn1sZ9/T3AgrXnpkxDiaO +L7wQ8G8xhfKld9bGEsfJZC2ZJ0mh549GiVRi9uniqgVyFEYcyyvNJ47+U+kk +qkTh/LHP8yuII/bXzUhSFLJ9aRo3iMM+NGXJq1Oo4/dd4jbxMbuXqKJNYfiv +F031xMEPuj8x9Cj8ccxnTQPxIYP+U5pGFJb0b4i9SxxUPKKha0qhcdrsxTri +ALk/zwzNKVy2Sy2whnhf/Pwg0w0UtoZvleAR+/wVlVhjRWFnpVxMEbFXoHz1 +RlsKlzDE7mYSu/eqOm9xoFAi+PmjBGK3rcv/s3ehsOvGt6ww4l0PTXK276Yw +yXva3I/YxWjdGlcPCg0i06ociJ1Krb+4+1Jo6rVj0ox421LnON8ACjeOvhdk +EtudddcMPERhu+/N7wuJrWf3txwOoXA47uTlQfK+rA6EHAgNp7Dl6DuVFmKL +T9GSkdEUnnvhcvQq8XqHszXsWAr70jNz44jXPEpziU+g8JaVUdZeYtPyq7mp +qRT2Hp0SFyPuVinPWX+Jwgy7rux+ct5CU0uzx3MozK7lWdwmrokqumxfSqFd +m9FvV2LHqYJLczgU+qt8/6dNPO5/JZN3jUKW3nnGH3Le9bbnpi+uo7DOs77t +PPHL59lpdxooXHzd0tWJOGhtVqr/Qwo/KrxaoEjM0clMedJCzsvSd835pL80 +5qcknuqlcKHJyok00n/NoRfOG/RTaFHy87ItsddI4rnPAxS+Fbzj9//+Leg+ +m7BmnELa/urQQCYPVK7Fxv0TUMWYj8WhGqTfpXcfjwzWUkX//zyD1pP8uNF2 +LIKhq4rKO2JufiT5ss0y5ESbgSrqWi5bHkp8weBImB6o4vs/q8uKST6JCAeG +DNmpYqtgUv9Pkl/zbu0N8jpKbCM0prKU9JfOnkCpMFUc6htyzyH5uKZgd0Bj +JPk/U1FEgTji/E5/+hlV9IMzgmIkT2c8HX16LqtibJ3F1T5pHoyKW7o53ldF +xUDrlStJnnf601v9HqliiWnvYOwSkn9NMxDxTBXXpHZldInxIDG0XLmkXRWn +xgabj4nyYEWf8IfpAVXM62Km55D5EFD5YleWBAO3FMTnnibzxnFRyfNKWQY6 +jAo/uTOfB2aekawmRQbyjr0aGZ5H6pPTVRxWY+CDUW0Ta36SL5EX3qEpA5FZ +nPJllgsDNg47Pnsw0NO+VvfWKBdelWo//e3LwGXCpz/1DnOhll9gtUggAzM7 +rEoEyLw8XVMtb3iMgU/ZH4LWDXBBXVm2K/YsAz8rNmgk9XHBe6hru2Y1AzfX +hKUHveLC5wQ3x4OCTNTfmBdqT+Z1wIAWfYUwE98sbF6vXsGFqY3Tg4NiTNyk +fODlDJn3C/kvsH3lmdgSkbQ8tYgLK449qHLTZqKHsZRWURYXwj2ZEjZbmTgz ++sJGK54L0mY/X2jmMPHE4cUFXe5cyL1089L3K0wcu5AhZbWHCxrTJ72LS5h4 +Y0v+wZuuXDCtUpylX2Mie0nh+Glnsp8ss9GRf8jEV1UtZkI2XOBJX0sQ+sHE +eyceKx8yIfvH8NFNXwzV0HXh/qZFwlxQ0FU6JWSqhp5JXM/3QmTfONh4X9Nc +DWtPeV4qn8+FlEkx04NWaph2x+Ela5YDPX9LdWZ3q+E/h5gMkzEOHBR+JyF3 +Wg3XzdHXSezgQKYG9mzuVkMzZyGpphyyn7kLHaqKUMeZrKdWt5kcGMped+fu +SXXckxjs/5rOgeG3kYJPT6tjoLVY1TeyT47ZTF/qTVbHxCSVuwtlODC1eqBx +cYk6qkXrTmoJcmCu5DNp31ZyvbHUwz/6K0Cu8XytIk0DTb8pKO8qqCDfLzJz +Y+9roC/bazZYpgLEnzPP8YaXoXFoTWIk2ccV4ri2hoZa+EKxw4+eWwbpmiZi +Et7a+DuyfSjBohSeyJsb/ErSQaaHbULb12JYpXA/cXn7ctRvLJT021UEi/nz +D++JXoHs3GM/E78WgFKUsqkzUxe/1dhERdldgQWMndX2j3SxpzH7TG9THuiw +5LhHd+nhge6SXeCaCwd7xB9Y8q3EElGxc7UPs2D4V4LDpvSV+NPe0nVE4RJs +XN6UuUlbH9t3tzWxc9Kh/tfqP1Mt+ui9amyz4JJUCNDS63rpaYDXZdcn3nid +DKwhjzbnBYaou2O/LS8xCdarym4RyTfEzaul9MNNzoN65JmQ+0ZG2Pel+FxT +ZTws8zS5y+gywiMCM+FqenHgWe9zsuqAMfIVZo/zVrPhbm6bx6iUCY4YD0YM +OUbDeMns1PIaE3Rdz3gfcykC3BnlCzK3rMIQn6j2YvfjMLos2fDayCqc05Za +b+54FG4W/OmdiFuNts8CBhvmHAaXdRSuVjLF/PDgJR20A7B0f+wtnQZT3Nwa +JHr2lT9ILfSv3OLEwpsdr+dn7vOBgrXhoSPOLGwIf/7Y3tkH9MLPrU3eyUKD +em8DmY0+YD3Ce9O5h4WP9/b9vE/3gVPtE9Pu/izslho3K+zyht/5EWtCo1g4 +sKcpJnGzN3StTn5dVM7CZGPLI13GXuBzpODyJg4Ly0O+2P1V84JJzg3PnzwW +GupWUZoyXiBO75zSrSb3/zqZWDzhCVZCigp3GliYN1T6m37dE+raijxev2Fh +SIyoofIKT7BcfFM7uJOF4bl87UPKntC58fGkbDcLT5SOSDwW9YTx2h9xrh9Z +2LVBd1vWsAdo562o+D7AwqZSM5tGrgfUdZkHJwyysNZczeJbjgdYSm6F5SMs +dHD+c1060QO8Yo+8PDzBwnuxUy0XgjxgvOFUpsxvFh6c2Xfoo5sHRM+kudfO +sFCpyOOIsZ0HiOmXau36y8Jxp/gXmeYekL2/dmJ2loUudvFhgnoe8D9avU7p + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "PlotRange" -> {{0, 30}, {0., 0.06318284627238994}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7332,19 +6868,19 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "PlotRange" -> {{0, 30}, {0., 0.06318284627238994}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7358,306 +6894,115 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr -4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X -RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD -OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV -zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn -l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI -1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p -HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t -nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx -T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq -8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT -gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L -kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR -bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R -rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS -HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y -gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg -bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ -wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 -Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO -1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a -MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC -VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy -Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU -OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr -0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 -WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN -FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 -NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW -uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN -BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs -Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy -O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx -e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k -Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU -/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q -6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 -qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu -/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 -hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC -qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij -bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 -i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ -Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja -ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D -d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr -z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA -MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD -Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g -gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv -eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq -t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 -+PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m -848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 -yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt -633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI -4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De -Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM -E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 -Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r -lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy -uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb -tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT -ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ -8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats -MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ -LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy -rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h -EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys -GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv -8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK -E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 -T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 -uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl -dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt -Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh -dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH -E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD -HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ -aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh -2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I -P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq -UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G -c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd -xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn -l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e -zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L -Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 -6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU -4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 -UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C -zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n -TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 -PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa -/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP -4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP -HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 -56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT -fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU -pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV -YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq -mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 -rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM -b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN -ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li -wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp -fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 -EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM -ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj -ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT -T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e -E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv -C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a -Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ -1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs -eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN -4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y -pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE -1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu -6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc -pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 -Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ -Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP -NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc -mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh -27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 -PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c -ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi -0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U -XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA -VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT -gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn -LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp -PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n -23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw -CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i -L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc -KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN -/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 -v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 -1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb -eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 -tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q -sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 -MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa -mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o -aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv -RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 -UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde -aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK -Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ -jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA -LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O -VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP -6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 -Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl -vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny -ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf -PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo -v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ -QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 -JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv -WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ -q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 -HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC -lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK -THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K -LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r -qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk -TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt -XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx -3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y -NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy -Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R -/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD -9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J -eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl -lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c -to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 -mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib -HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 -Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 -RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH -ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w -tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK -EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF -n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 -Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl -kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 -+f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC -XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf -+xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw -5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn -fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 -GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 -+8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx -f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI -cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU -+tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG -aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL -eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ -00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M -z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf -O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD -mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ -3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA -61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu -+HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY -b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J -EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq -OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw -320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq -T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL -uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP -ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E -mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c -aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 -2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t -HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 -cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl -5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs -bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ -pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl -Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 -RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 -u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW -vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 -JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd -9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f -CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS -GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be -/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT -kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI -8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX -Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne -xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ -EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ -MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 -mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl -kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr -wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z -nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo -Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t -RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO -NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T -6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl -w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL -TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L -7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ -RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr -ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag -gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e -gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW -nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 -ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV -JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu -NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ -wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu -acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik -f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 -Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ -Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 -CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 -ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA -lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu -AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN -SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v -q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi -hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L -ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH -ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn -DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL -8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 -iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA -D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA -V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S -MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD -nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ -MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd -Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== +1:eJwV13k8VO8XB3ClUBHZyTZzzSBLkbWMc7SKshWikrJLaJNEtiaKishW1uwy +M0qUJJWkTSohSlGplDVL9C2/5/fXvN5/zL33vO5zPudc2t5Ae8+5fHx88+bw +8f3/d7LncaNqfIGZ9XWBoYk4U7O2bNlj5p3R8Dn5/r0vWvKAUi/2ynZegLyw +SvsyrWUQbFvWwd+ZD917WA4ntVbBkiGZC9Md1+CEvBTYalnChzrrwPGO++C0 +Lq2zUtMFNqgOvB/teAWyxebOdhp+MN1hdHGkow/mNVN/3iuHwoO1xQUv83/B +iY5i00CReFD4cKt/r9ZfUPSvXi3ZnwyS/rvLBNfyY5BW2lGVwQy4oLvhtrWD +EDqZrJo+JJ4Lb9NXNIyKieA/Q4MjZ5/kQ3xBxIu5cktQ7I3+9KeoQpBJ+XQ6 +OUsCA0a7I+9/L4bYbZvMXk1K4WO1qwqHvpaCfFWL/Nw50rg/W3juqeFS4Ehs +m9JdJI3141MCKVOl0P7KlZekLI0+Hpf25QmWgardYbqdhTQu8s1hR6mVwf0t +OQKtGdLISxzQdvQqg78bJlqem8pgXsJvDauPZXDIJG/342hZlKyeV2j0sBws +cxePWyXIYpq9TGfa03KgC4bFtVyUxUFfRu6vl+XQ2uZY+bpEFg8KbhvM6ikH +nSBh/p4WWXz6cmngnaly+FZ0tGhMXg53flSvUNO4CjslrQeXXpdDv4kzhkVx +V2Hd8ExowCd5tHhxeY/xqgo4ZpGy7N5PebQptfNzgwrg5Gl3SUzK45fAfuWT +6ypAdpubyS2hpRiZypdUb10BP28+nOLXWYrGT7xPze6tgOToxMMZIUvxl8TE +5cozFdAnxQxoFFHA9fP8i9+0V4BM4F1FGRkFbHWYu+hQdwVsbt7+3FdFAVNc +/5MR/lgB1aHxWqIrFVA6YVRb93sFnPkwMuC8XQGjb/2y2PinAvRKb3sP5ytg +qrOd0RUlDkSZ2u2RN1bE3sLxhfJ7OWDhmj1mtEYRdV+7C7C9OLA48keMw2ZF +fLmK9nXAjwOXH7CLEt0UMczl9/biQxy4aVn7Q+C0IgpsjJrz6SQHRrZTwb/e +KqJTdwfbs4gDrkcmzjw7roRmW7/kp3/hACNtjcIAWwkjO7ZkuH3nkPrPVwgm +KmEme+VxapADof9ptK4pUEL75rS5meMcuBjjKnXrmRIq2U6rWfJz4VnSo5xC +RWUML9CXqFHmwipORtWJu8rYH2Da93AbF9Z1tPwdalbGuGgDZrUTF6z55m3c +/UoZ29gTgvkuXHC3D3gLX5Sx5LVZkb8bFzYcp0VEzlfBkz92bn++jwtBypNX +zDVVkD6x4ntdFBcavXMGHwSrYIrPuStOZVzY9J+JeNhxFVSuZ3nXXeVCS2Kb +oX6kCmrq6LUrcLnw9taCyILTKpjo0lXTep0LQ4sOi7Mvq6Brys+0eXe4IMuz +MNpwXwW5f+1Ms1q44P97NLJZhIaaH2paLw6Reg54SfeL0zCvRet6+ggXhAa6 +yvllaVhniMmpY1wo7H7QbkanYbOsnU3MJBd66i9q3TCk4XmRR89U/nHBhm3S +mbebhtt9DDcaCvBA6V/F/rseNFwiEdsmKsiDn8F0/ve+NNybuuhrP3GczyId +2cM0FL7kmnV2AQ8arN7HnIujYUigxI47wjzQE49afryShnL7Px8vEucBX/xE +Y3o1Db2W0xK3S/Cghd/Ppfo2DWubE1cISfJg34Q9e/QhDeHrOxk3KR4UdKp2 +e3fRMGOV7NkxGR4ctMsIYn+g4aW5HaJJsjzAJyICVz7TkBsbSdeW48H725Mr +eoZo6FYVOr1LngfSOc2ntvHT8bpE2PF8BR58lmEpHBSi46zR3zPaijy4llhZ +eV6Ejj8erdepJraJznz3RIaOTy2Zeg1KpD5Pfz1zLTp6sSRZNSo8cOz5+MhV +l45t6nW/dWg8UHVy2BVmSMeTjlqbC4gbLMziapCOZWFBdbF0HkxrivVoO9Ax +mm+8VVeVB5NZ8lErXeiob60el0I8LspQNdlNx/HRw6PjxEO/TPzW+dIxJd/x +HYfBg77b7pMu4XQc5G6lCarx4IN2QIZbNB3j1HcfdSJ+lxNi6hVLx4I352IK +idtjzkYfSKLjdhO/hlXqPHhiVbM4rpCOG56md23S4MGjO/cqz5bRcVrUciSW +uHH5s23JXDpqrbRqeEBcL9GbmX2LjgImO5P0l/HgNvsHq6CejoGfw5J9iW9O +TXwsfUBH29nF9peJr3UvVLvxnI7iXhyBP8TcLVJPal/Rca5T61+mJg+u3lXe +39BBnp/v7HVb4lLdZWJN7+h471ugeghx0RX960976bhXZP6uLOIrUuD4sp+O +fl877RqIc2M3Tbf/oOMbnxDBXuLMfa7QN0HH+lO2NUu1eJD23qfv6wypz73w +mgFxis0h9uAsHYu9/gVtIU66F67+ax6FUu8HxvYSn1sZ9/T3AgrXnpkxDiaO +L7wQ8G8xhfKld9bGEsfJZC2ZJ0mh549GiVRi9uniqgVyFEYcyyvNJ47+U+kk +qkTh/LHP8yuII/bXzUhSFLJ9aRo3iMM+NGXJq1Oo4/dd4jbxMbuXqKJNYfiv +F031xMEPuj8x9Cj8ccxnTQPxIYP+U5pGFJb0b4i9SxxUPKKha0qhcdrsxTri +ALk/zwzNKVy2Sy2whnhf/Pwg0w0UtoZvleAR+/wVlVhjRWFnpVxMEbFXoHz1 +RlsKlzDE7mYSu/eqOm9xoFAi+PmjBGK3rcv/s3ehsOvGt6ww4l0PTXK276Yw +yXva3I/YxWjdGlcPCg0i06ociJ1Krb+4+1Jo6rVj0ox421LnON8ACjeOvhdk +EtudddcMPERhu+/N7wuJrWf3txwOoXA47uTlQfK+rA6EHAgNp7Dl6DuVFmKL +T9GSkdEUnnvhcvQq8XqHszXsWAr70jNz44jXPEpziU+g8JaVUdZeYtPyq7mp +qRT2Hp0SFyPuVinPWX+Jwgy7rux+ct5CU0uzx3MozK7lWdwmrokqumxfSqFd +m9FvV2LHqYJLczgU+qt8/6dNPO5/JZN3jUKW3nnGH3Le9bbnpi+uo7DOs77t +PPHL59lpdxooXHzd0tWJOGhtVqr/Qwo/KrxaoEjM0clMedJCzsvSd835pL80 +5qcknuqlcKHJyok00n/NoRfOG/RTaFHy87ItsddI4rnPAxS+Fbzj9//+Leg+ +m7BmnELa/urQQCYPVK7Fxv0TUMWYj8WhGqTfpXcfjwzWUkX//zyD1pP8uNF2 +LIKhq4rKO2JufiT5ss0y5ESbgSrqWi5bHkp8weBImB6o4vs/q8uKST6JCAeG +DNmpYqtgUv9Pkl/zbu0N8jpKbCM0prKU9JfOnkCpMFUc6htyzyH5uKZgd0Bj +JPk/U1FEgTji/E5/+hlV9IMzgmIkT2c8HX16LqtibJ3F1T5pHoyKW7o53ldF +xUDrlStJnnf601v9HqliiWnvYOwSkn9NMxDxTBXXpHZldInxIDG0XLmkXRWn +xgabj4nyYEWf8IfpAVXM62Km55D5EFD5YleWBAO3FMTnnibzxnFRyfNKWQY6 +jAo/uTOfB2aekawmRQbyjr0aGZ5H6pPTVRxWY+CDUW0Ta36SL5EX3qEpA5FZ +nPJllgsDNg47Pnsw0NO+VvfWKBdelWo//e3LwGXCpz/1DnOhll9gtUggAzM7 +rEoEyLw8XVMtb3iMgU/ZH4LWDXBBXVm2K/YsAz8rNmgk9XHBe6hru2Y1AzfX +hKUHveLC5wQ3x4OCTNTfmBdqT+Z1wIAWfYUwE98sbF6vXsGFqY3Tg4NiTNyk +fODlDJn3C/kvsH3lmdgSkbQ8tYgLK449qHLTZqKHsZRWURYXwj2ZEjZbmTgz ++sJGK54L0mY/X2jmMPHE4cUFXe5cyL1089L3K0wcu5AhZbWHCxrTJ72LS5h4 +Y0v+wZuuXDCtUpylX2Mie0nh+Glnsp8ss9GRf8jEV1UtZkI2XOBJX0sQ+sHE +eyceKx8yIfvH8NFNXwzV0HXh/qZFwlxQ0FU6JWSqhp5JXM/3QmTfONh4X9Nc +DWtPeV4qn8+FlEkx04NWaph2x+Ela5YDPX9LdWZ3q+E/h5gMkzEOHBR+JyF3 +Wg3XzdHXSezgQKYG9mzuVkMzZyGpphyyn7kLHaqKUMeZrKdWt5kcGMped+fu +SXXckxjs/5rOgeG3kYJPT6tjoLVY1TeyT47ZTF/qTVbHxCSVuwtlODC1eqBx +cYk6qkXrTmoJcmCu5DNp31ZyvbHUwz/6K0Cu8XytIk0DTb8pKO8qqCDfLzJz +Y+9roC/bazZYpgLEnzPP8YaXoXFoTWIk2ccV4ri2hoZa+EKxw4+eWwbpmiZi +Et7a+DuyfSjBohSeyJsb/ErSQaaHbULb12JYpXA/cXn7ctRvLJT021UEi/nz +D++JXoHs3GM/E78WgFKUsqkzUxe/1dhERdldgQWMndX2j3SxpzH7TG9THuiw +5LhHd+nhge6SXeCaCwd7xB9Y8q3EElGxc7UPs2D4V4LDpvSV+NPe0nVE4RJs +XN6UuUlbH9t3tzWxc9Kh/tfqP1Mt+ui9amyz4JJUCNDS63rpaYDXZdcn3nid +DKwhjzbnBYaou2O/LS8xCdarym4RyTfEzaul9MNNzoN65JmQ+0ZG2Pel+FxT +ZTws8zS5y+gywiMCM+FqenHgWe9zsuqAMfIVZo/zVrPhbm6bx6iUCY4YD0YM +OUbDeMns1PIaE3Rdz3gfcykC3BnlCzK3rMIQn6j2YvfjMLos2fDayCqc05Za +b+54FG4W/OmdiFuNts8CBhvmHAaXdRSuVjLF/PDgJR20A7B0f+wtnQZT3Nwa +JHr2lT9ILfSv3OLEwpsdr+dn7vOBgrXhoSPOLGwIf/7Y3tkH9MLPrU3eyUKD +em8DmY0+YD3Ce9O5h4WP9/b9vE/3gVPtE9Pu/izslho3K+zyht/5EWtCo1g4 +sKcpJnGzN3StTn5dVM7CZGPLI13GXuBzpODyJg4Ly0O+2P1V84JJzg3PnzwW +GupWUZoyXiBO75zSrSb3/zqZWDzhCVZCigp3GliYN1T6m37dE+raijxev2Fh +SIyoofIKT7BcfFM7uJOF4bl87UPKntC58fGkbDcLT5SOSDwW9YTx2h9xrh9Z +2LVBd1vWsAdo562o+D7AwqZSM5tGrgfUdZkHJwyysNZczeJbjgdYSm6F5SMs +dHD+c1060QO8Yo+8PDzBwnuxUy0XgjxgvOFUpsxvFh6c2Xfoo5sHRM+kudfO +sFCpyOOIsZ0HiOmXau36y8Jxp/gXmeYekL2/dmJ2loUudvFhgnoe8D9avU7p + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "PlotRange" -> {{0, 30}, {0., 0.06318284627238994}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7668,6 +7013,7 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -7695,7 +7041,8 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.15475569508294718`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06318284627238994}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -7703,11 +7050,12 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913290128289948`*^9}, - CellLabel-> - "Out[169]=",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] + CellChangeTimes->{3.9913290128289948`*^9, 3.9942510021189003`*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"66e7c35f-6207-412a-99df-60a89f19e1bb"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", @@ -7776,576 +7124,750 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"30", ",", "0.007985"}], "}"}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, - 3.9940828018827744`*^9},ExpressionUUID->"0f83f761-b16d-5343-987d-\ -511095eaf120"], + 3.9940828018827744`*^9}, + CellLabel->"In[96]:=",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], Cell[BoxData[ - RowBox[{"Show", "[", - RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"8cdd4baa-f7c9-104e-b978-\ -89d3982ba28f"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"L", "=", - FractionBox[ - SqrtBox[ - RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.9918488983507824`*^9},ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-\ -3438788b15d6"], - -Cell[BoxData["9.779568499633264`"], "Output", - CellChangeTimes->{3.9913294794877434`*^9}, - CellLabel-> - "Out[171]=",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"L", "=", - RowBox[{"Plot", "[", - RowBox[{ - RowBox[{ - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], - RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", - RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], - ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", - FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - FractionBox["1", "Cb"], ")"}]}]], - RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", - RowBox[{"{", - RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918488997875195`*^9},ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-\ -0e75880d5d98"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 172, 125, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913294796838703`*^9}, - CellLabel-> - "During evaluation of \ -In[172]:=",ExpressionUUID->"3a61d965-a130-7645-90c6-a5061b94ec40"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.19148428074309`*^-272\\\", \ -\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 172, 126, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329479692892*^9}, - CellLabel-> - "During evaluation of \ -In[172]:=",ExpressionUUID->"c3c0d10c-aa86-9b43-bfa9-71bc099863f1"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.652750330712858`*^-282\\\", \ -\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 172, 127, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913294797011433`*^9}, - CellLabel-> - "During evaluation of \ -In[172]:=",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], - -Cell[BoxData[ - TemplateBox[{ - "General", "stop", - "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ -\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 172, 128, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329479709572*^9}, - CellLabel-> - "During evaluation of \ -In[172]:=",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], - -Cell[BoxData[ - GraphicsBox[ - InterpretationBox[{ - TagBox[{{{}, {}, - TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU -cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u -4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf -U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF -PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur -M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw -2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 -W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh -xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV -SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn -q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf -DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz -jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF -g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla -wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo -vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw -aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ -Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN -Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV -weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy -KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL -typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ -HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy -qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC -ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp -ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u -8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT -5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ -O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y -hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N -8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL -FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 -VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD -QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio -X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa -idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 -98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp -E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi -LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev -FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ -N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F -tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 -2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J -o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe -9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG -mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n -sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi -Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN -QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl -WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 -OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 -jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z -I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 -8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY -kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 -cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR -87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs -dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX -Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P -uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 -uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm -szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl -LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef -fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ -8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW -rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ -5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 -nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J -H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq -4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD -o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ -C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt -1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ -d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY -ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 -/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx -8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu -Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc -OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg -nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG -f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz -m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ -+Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea -Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 -B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG -pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft -R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ -//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL -fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa -H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj -1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw -8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y -PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 -OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g -41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 -j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b -LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m -MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W -9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ -v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U -N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb -be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq -XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl -vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF -7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI -1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg -cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD -wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO -D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK - "]]}, - Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, - {"WolframDynamicHighlight", <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], - StyleBox[ - DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, - Slot["HighlightElements"], - Slot["LayoutOptions"], - Slot["Meta"], - Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ Annotation[{ Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU -cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u -4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf -U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF -PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur -M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw -2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 -W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh -xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV -SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn -q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf -DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz -jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF -g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla -wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo -vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw -aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ -Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN -Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV -weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy -KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL -typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ -HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy -qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC -ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp -ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u -8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT -5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ -O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y -hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N -8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL -FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 -VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD -QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio -X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa -idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 -98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp -E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi -LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev -FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ -N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F -tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 -2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J -o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe -9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG -mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n -sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi -Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN -QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl -WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 -OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 -jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z -I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 -8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY -kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 -cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR -87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs -dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX -Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P -uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 -uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm -szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl -LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef -fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ -8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW -rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ -5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 -nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J -H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq -4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD -o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ -C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt -1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ -d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY -ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 -/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx -8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu -Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc -OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg -nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG -f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz -m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ -+Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea -Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 -B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG -pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft -R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ -//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL -fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa -H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj -1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw -8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y -PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 -OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g -41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 -j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b -LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m -MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W -9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ -v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U -N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb -be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq -XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl -vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF -7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI -1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg -cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD -wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO -D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK - "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, - "Frame" -> {{False, False}, {False, False}}, + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>]]& )[<| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, - "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { - 4.503599627370496*^15, -4.503599627370496*^15}}], - Selectable->False]}, - Annotation[{{{{}, {}, + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ Annotation[{ Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU -cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u -4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf -U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF -PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur -M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw -2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 -W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh -xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV -SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn -q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf -DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz -jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF -g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla -wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo -vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw -aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ -Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN -Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV -weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy -KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL -typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ -HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy -qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC -ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp -ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u -8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT -5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ -O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y -hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N -8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL -FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 -VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD -QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio -X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa -idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 -98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp -E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi -LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev -FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ -N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F -tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 -2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J -o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe -9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG -mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n -sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi -Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN -QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl -WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 -OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 -jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z -I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 -8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY -kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 -cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR -87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs -dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX -Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P -uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 -uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm -szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl -LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef -fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ -8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW -rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ -5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 -nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J -H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq -4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD -o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ -C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt -1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ -d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY -ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 -/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx -8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu -Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc -OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg -nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG -f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz -m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ -+Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea -Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 -B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG -pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft -R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ -//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL -fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa -H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj -1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw -8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y -PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 -OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g -41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 -j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b -LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m -MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W -9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ -v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U -N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb -be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq -XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl -vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF -7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI -1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg -cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD -wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO -D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK - "]]}, "Charting`Private`Tag#1"]}}, {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, - "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, - "Primitives" -> {}, "GCFlag" -> False|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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->{ + "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.051395}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994251002359949*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"70bd2aa5-1967-45b8-bb26-f2b0890f90f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k8VO8XB3ClUBHZyTZzzSBLkbWMc7SKshWikrJLaJNEtiaKishW1uwy +M0qUJJWkTSohSlGplDVL9C2/5/fXvN5/zL33vO5zPudc2t5Ae8+5fHx88+bw +8f3/d7LncaNqfIGZ9XWBoYk4U7O2bNlj5p3R8Dn5/r0vWvKAUi/2ynZegLyw +SvsyrWUQbFvWwd+ZD917WA4ntVbBkiGZC9Md1+CEvBTYalnChzrrwPGO++C0 +Lq2zUtMFNqgOvB/teAWyxebOdhp+MN1hdHGkow/mNVN/3iuHwoO1xQUv83/B +iY5i00CReFD4cKt/r9ZfUPSvXi3ZnwyS/rvLBNfyY5BW2lGVwQy4oLvhtrWD +EDqZrJo+JJ4Lb9NXNIyKieA/Q4MjZ5/kQ3xBxIu5cktQ7I3+9KeoQpBJ+XQ6 +OUsCA0a7I+9/L4bYbZvMXk1K4WO1qwqHvpaCfFWL/Nw50rg/W3juqeFS4Ehs +m9JdJI3141MCKVOl0P7KlZekLI0+Hpf25QmWgardYbqdhTQu8s1hR6mVwf0t +OQKtGdLISxzQdvQqg78bJlqem8pgXsJvDauPZXDIJG/342hZlKyeV2j0sBws +cxePWyXIYpq9TGfa03KgC4bFtVyUxUFfRu6vl+XQ2uZY+bpEFg8KbhvM6ikH +nSBh/p4WWXz6cmngnaly+FZ0tGhMXg53flSvUNO4CjslrQeXXpdDv4kzhkVx +V2Hd8ExowCd5tHhxeY/xqgo4ZpGy7N5PebQptfNzgwrg5Gl3SUzK45fAfuWT +6ypAdpubyS2hpRiZypdUb10BP28+nOLXWYrGT7xPze6tgOToxMMZIUvxl8TE +5cozFdAnxQxoFFHA9fP8i9+0V4BM4F1FGRkFbHWYu+hQdwVsbt7+3FdFAVNc +/5MR/lgB1aHxWqIrFVA6YVRb93sFnPkwMuC8XQGjb/2y2PinAvRKb3sP5ytg +qrOd0RUlDkSZ2u2RN1bE3sLxhfJ7OWDhmj1mtEYRdV+7C7C9OLA48keMw2ZF +fLmK9nXAjwOXH7CLEt0UMczl9/biQxy4aVn7Q+C0IgpsjJrz6SQHRrZTwb/e +KqJTdwfbs4gDrkcmzjw7roRmW7/kp3/hACNtjcIAWwkjO7ZkuH3nkPrPVwgm +KmEme+VxapADof9ptK4pUEL75rS5meMcuBjjKnXrmRIq2U6rWfJz4VnSo5xC +RWUML9CXqFHmwipORtWJu8rYH2Da93AbF9Z1tPwdalbGuGgDZrUTF6z55m3c +/UoZ29gTgvkuXHC3D3gLX5Sx5LVZkb8bFzYcp0VEzlfBkz92bn++jwtBypNX +zDVVkD6x4ntdFBcavXMGHwSrYIrPuStOZVzY9J+JeNhxFVSuZ3nXXeVCS2Kb +oX6kCmrq6LUrcLnw9taCyILTKpjo0lXTep0LQ4sOi7Mvq6Brys+0eXe4IMuz +MNpwXwW5f+1Ms1q44P97NLJZhIaaH2paLw6Reg54SfeL0zCvRet6+ggXhAa6 +yvllaVhniMmpY1wo7H7QbkanYbOsnU3MJBd66i9q3TCk4XmRR89U/nHBhm3S +mbebhtt9DDcaCvBA6V/F/rseNFwiEdsmKsiDn8F0/ve+NNybuuhrP3GczyId +2cM0FL7kmnV2AQ8arN7HnIujYUigxI47wjzQE49afryShnL7Px8vEucBX/xE +Y3o1Db2W0xK3S/Cghd/Ppfo2DWubE1cISfJg34Q9e/QhDeHrOxk3KR4UdKp2 +e3fRMGOV7NkxGR4ctMsIYn+g4aW5HaJJsjzAJyICVz7TkBsbSdeW48H725Mr +eoZo6FYVOr1LngfSOc2ntvHT8bpE2PF8BR58lmEpHBSi46zR3zPaijy4llhZ +eV6Ejj8erdepJraJznz3RIaOTy2Zeg1KpD5Pfz1zLTp6sSRZNSo8cOz5+MhV +l45t6nW/dWg8UHVy2BVmSMeTjlqbC4gbLMziapCOZWFBdbF0HkxrivVoO9Ax +mm+8VVeVB5NZ8lErXeiob60el0I8LspQNdlNx/HRw6PjxEO/TPzW+dIxJd/x +HYfBg77b7pMu4XQc5G6lCarx4IN2QIZbNB3j1HcfdSJ+lxNi6hVLx4I352IK +idtjzkYfSKLjdhO/hlXqPHhiVbM4rpCOG56md23S4MGjO/cqz5bRcVrUciSW +uHH5s23JXDpqrbRqeEBcL9GbmX2LjgImO5P0l/HgNvsHq6CejoGfw5J9iW9O +TXwsfUBH29nF9peJr3UvVLvxnI7iXhyBP8TcLVJPal/Rca5T61+mJg+u3lXe +39BBnp/v7HVb4lLdZWJN7+h471ugeghx0RX960976bhXZP6uLOIrUuD4sp+O +fl877RqIc2M3Tbf/oOMbnxDBXuLMfa7QN0HH+lO2NUu1eJD23qfv6wypz73w +mgFxis0h9uAsHYu9/gVtIU66F67+ax6FUu8HxvYSn1sZ9/T3AgrXnpkxDiaO +L7wQ8G8xhfKld9bGEsfJZC2ZJ0mh549GiVRi9uniqgVyFEYcyyvNJ47+U+kk +qkTh/LHP8yuII/bXzUhSFLJ9aRo3iMM+NGXJq1Oo4/dd4jbxMbuXqKJNYfiv +F031xMEPuj8x9Cj8ccxnTQPxIYP+U5pGFJb0b4i9SxxUPKKha0qhcdrsxTri +ALk/zwzNKVy2Sy2whnhf/Pwg0w0UtoZvleAR+/wVlVhjRWFnpVxMEbFXoHz1 +RlsKlzDE7mYSu/eqOm9xoFAi+PmjBGK3rcv/s3ehsOvGt6ww4l0PTXK276Yw +yXva3I/YxWjdGlcPCg0i06ociJ1Krb+4+1Jo6rVj0ox421LnON8ACjeOvhdk +EtudddcMPERhu+/N7wuJrWf3txwOoXA47uTlQfK+rA6EHAgNp7Dl6DuVFmKL +T9GSkdEUnnvhcvQq8XqHszXsWAr70jNz44jXPEpziU+g8JaVUdZeYtPyq7mp +qRT2Hp0SFyPuVinPWX+Jwgy7rux+ct5CU0uzx3MozK7lWdwmrokqumxfSqFd +m9FvV2LHqYJLczgU+qt8/6dNPO5/JZN3jUKW3nnGH3Le9bbnpi+uo7DOs77t +PPHL59lpdxooXHzd0tWJOGhtVqr/Qwo/KrxaoEjM0clMedJCzsvSd835pL80 +5qcknuqlcKHJyok00n/NoRfOG/RTaFHy87ItsddI4rnPAxS+Fbzj9//+Leg+ +m7BmnELa/urQQCYPVK7Fxv0TUMWYj8WhGqTfpXcfjwzWUkX//zyD1pP8uNF2 +LIKhq4rKO2JufiT5ss0y5ESbgSrqWi5bHkp8weBImB6o4vs/q8uKST6JCAeG +DNmpYqtgUv9Pkl/zbu0N8jpKbCM0prKU9JfOnkCpMFUc6htyzyH5uKZgd0Bj +JPk/U1FEgTji/E5/+hlV9IMzgmIkT2c8HX16LqtibJ3F1T5pHoyKW7o53ldF +xUDrlStJnnf601v9HqliiWnvYOwSkn9NMxDxTBXXpHZldInxIDG0XLmkXRWn +xgabj4nyYEWf8IfpAVXM62Km55D5EFD5YleWBAO3FMTnnibzxnFRyfNKWQY6 +jAo/uTOfB2aekawmRQbyjr0aGZ5H6pPTVRxWY+CDUW0Ta36SL5EX3qEpA5FZ +nPJllgsDNg47Pnsw0NO+VvfWKBdelWo//e3LwGXCpz/1DnOhll9gtUggAzM7 +rEoEyLw8XVMtb3iMgU/ZH4LWDXBBXVm2K/YsAz8rNmgk9XHBe6hru2Y1AzfX +hKUHveLC5wQ3x4OCTNTfmBdqT+Z1wIAWfYUwE98sbF6vXsGFqY3Tg4NiTNyk +fODlDJn3C/kvsH3lmdgSkbQ8tYgLK449qHLTZqKHsZRWURYXwj2ZEjZbmTgz ++sJGK54L0mY/X2jmMPHE4cUFXe5cyL1089L3K0wcu5AhZbWHCxrTJ72LS5h4 +Y0v+wZuuXDCtUpylX2Mie0nh+Glnsp8ss9GRf8jEV1UtZkI2XOBJX0sQ+sHE +eyceKx8yIfvH8NFNXwzV0HXh/qZFwlxQ0FU6JWSqhp5JXM/3QmTfONh4X9Nc +DWtPeV4qn8+FlEkx04NWaph2x+Ela5YDPX9LdWZ3q+E/h5gMkzEOHBR+JyF3 +Wg3XzdHXSezgQKYG9mzuVkMzZyGpphyyn7kLHaqKUMeZrKdWt5kcGMped+fu +SXXckxjs/5rOgeG3kYJPT6tjoLVY1TeyT47ZTF/qTVbHxCSVuwtlODC1eqBx +cYk6qkXrTmoJcmCu5DNp31ZyvbHUwz/6K0Cu8XytIk0DTb8pKO8qqCDfLzJz +Y+9roC/bazZYpgLEnzPP8YaXoXFoTWIk2ccV4ri2hoZa+EKxw4+eWwbpmiZi +Et7a+DuyfSjBohSeyJsb/ErSQaaHbULb12JYpXA/cXn7ctRvLJT021UEi/nz +D++JXoHs3GM/E78WgFKUsqkzUxe/1dhERdldgQWMndX2j3SxpzH7TG9THuiw +5LhHd+nhge6SXeCaCwd7xB9Y8q3EElGxc7UPs2D4V4LDpvSV+NPe0nVE4RJs +XN6UuUlbH9t3tzWxc9Kh/tfqP1Mt+ui9amyz4JJUCNDS63rpaYDXZdcn3nid +DKwhjzbnBYaou2O/LS8xCdarym4RyTfEzaul9MNNzoN65JmQ+0ZG2Pel+FxT +ZTws8zS5y+gywiMCM+FqenHgWe9zsuqAMfIVZo/zVrPhbm6bx6iUCY4YD0YM +OUbDeMns1PIaE3Rdz3gfcykC3BnlCzK3rMIQn6j2YvfjMLos2fDayCqc05Za +b+54FG4W/OmdiFuNts8CBhvmHAaXdRSuVjLF/PDgJR20A7B0f+wtnQZT3Nwa +JHr2lT9ILfSv3OLEwpsdr+dn7vOBgrXhoSPOLGwIf/7Y3tkH9MLPrU3eyUKD +em8DmY0+YD3Ce9O5h4WP9/b9vE/3gVPtE9Pu/izslho3K+zyht/5EWtCo1g4 +sKcpJnGzN3StTn5dVM7CZGPLI13GXuBzpODyJg4Ly0O+2P1V84JJzg3PnzwW +GupWUZoyXiBO75zSrSb3/zqZWDzhCVZCigp3GliYN1T6m37dE+raijxev2Fh +SIyoofIKT7BcfFM7uJOF4bl87UPKntC58fGkbDcLT5SOSDwW9YTx2h9xrh9Z +2LVBd1vWsAdo562o+D7AwqZSM5tGrgfUdZkHJwyysNZczeJbjgdYSm6F5SMs +dHD+c1060QO8Yo+8PDzBwnuxUy0XgjxgvOFUpsxvFh6c2Xfoo5sHRM+kudfO +sFCpyOOIsZ0HiOmXau36y8Jxp/gXmeYekL2/dmJ2loUudvFhgnoe8D9avU7p + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VO8XB3ClUBHZyTZzzSBLkbWMc7SKshWikrJLaJNEtiaKishW1uwy +M0qUJJWkTSohSlGplDVL9C2/5/fXvN5/zL33vO5zPudc2t5Ae8+5fHx88+bw +8f3/d7LncaNqfIGZ9XWBoYk4U7O2bNlj5p3R8Dn5/r0vWvKAUi/2ynZegLyw +SvsyrWUQbFvWwd+ZD917WA4ntVbBkiGZC9Md1+CEvBTYalnChzrrwPGO++C0 +Lq2zUtMFNqgOvB/teAWyxebOdhp+MN1hdHGkow/mNVN/3iuHwoO1xQUv83/B +iY5i00CReFD4cKt/r9ZfUPSvXi3ZnwyS/rvLBNfyY5BW2lGVwQy4oLvhtrWD +EDqZrJo+JJ4Lb9NXNIyKieA/Q4MjZ5/kQ3xBxIu5cktQ7I3+9KeoQpBJ+XQ6 +OUsCA0a7I+9/L4bYbZvMXk1K4WO1qwqHvpaCfFWL/Nw50rg/W3juqeFS4Ehs +m9JdJI3141MCKVOl0P7KlZekLI0+Hpf25QmWgardYbqdhTQu8s1hR6mVwf0t +OQKtGdLISxzQdvQqg78bJlqem8pgXsJvDauPZXDIJG/342hZlKyeV2j0sBws +cxePWyXIYpq9TGfa03KgC4bFtVyUxUFfRu6vl+XQ2uZY+bpEFg8KbhvM6ikH +nSBh/p4WWXz6cmngnaly+FZ0tGhMXg53flSvUNO4CjslrQeXXpdDv4kzhkVx +V2Hd8ExowCd5tHhxeY/xqgo4ZpGy7N5PebQptfNzgwrg5Gl3SUzK45fAfuWT +6ypAdpubyS2hpRiZypdUb10BP28+nOLXWYrGT7xPze6tgOToxMMZIUvxl8TE +5cozFdAnxQxoFFHA9fP8i9+0V4BM4F1FGRkFbHWYu+hQdwVsbt7+3FdFAVNc +/5MR/lgB1aHxWqIrFVA6YVRb93sFnPkwMuC8XQGjb/2y2PinAvRKb3sP5ytg +qrOd0RUlDkSZ2u2RN1bE3sLxhfJ7OWDhmj1mtEYRdV+7C7C9OLA48keMw2ZF +fLmK9nXAjwOXH7CLEt0UMczl9/biQxy4aVn7Q+C0IgpsjJrz6SQHRrZTwb/e +KqJTdwfbs4gDrkcmzjw7roRmW7/kp3/hACNtjcIAWwkjO7ZkuH3nkPrPVwgm +KmEme+VxapADof9ptK4pUEL75rS5meMcuBjjKnXrmRIq2U6rWfJz4VnSo5xC +RWUML9CXqFHmwipORtWJu8rYH2Da93AbF9Z1tPwdalbGuGgDZrUTF6z55m3c +/UoZ29gTgvkuXHC3D3gLX5Sx5LVZkb8bFzYcp0VEzlfBkz92bn++jwtBypNX +zDVVkD6x4ntdFBcavXMGHwSrYIrPuStOZVzY9J+JeNhxFVSuZ3nXXeVCS2Kb +oX6kCmrq6LUrcLnw9taCyILTKpjo0lXTep0LQ4sOi7Mvq6Brys+0eXe4IMuz +MNpwXwW5f+1Ms1q44P97NLJZhIaaH2paLw6Reg54SfeL0zCvRet6+ggXhAa6 +yvllaVhniMmpY1wo7H7QbkanYbOsnU3MJBd66i9q3TCk4XmRR89U/nHBhm3S +mbebhtt9DDcaCvBA6V/F/rseNFwiEdsmKsiDn8F0/ve+NNybuuhrP3GczyId +2cM0FL7kmnV2AQ8arN7HnIujYUigxI47wjzQE49afryShnL7Px8vEucBX/xE +Y3o1Db2W0xK3S/Cghd/Ppfo2DWubE1cISfJg34Q9e/QhDeHrOxk3KR4UdKp2 +e3fRMGOV7NkxGR4ctMsIYn+g4aW5HaJJsjzAJyICVz7TkBsbSdeW48H725Mr +eoZo6FYVOr1LngfSOc2ntvHT8bpE2PF8BR58lmEpHBSi46zR3zPaijy4llhZ +eV6Ejj8erdepJraJznz3RIaOTy2Zeg1KpD5Pfz1zLTp6sSRZNSo8cOz5+MhV +l45t6nW/dWg8UHVy2BVmSMeTjlqbC4gbLMziapCOZWFBdbF0HkxrivVoO9Ax +mm+8VVeVB5NZ8lErXeiob60el0I8LspQNdlNx/HRw6PjxEO/TPzW+dIxJd/x +HYfBg77b7pMu4XQc5G6lCarx4IN2QIZbNB3j1HcfdSJ+lxNi6hVLx4I352IK +idtjzkYfSKLjdhO/hlXqPHhiVbM4rpCOG56md23S4MGjO/cqz5bRcVrUciSW +uHH5s23JXDpqrbRqeEBcL9GbmX2LjgImO5P0l/HgNvsHq6CejoGfw5J9iW9O +TXwsfUBH29nF9peJr3UvVLvxnI7iXhyBP8TcLVJPal/Rca5T61+mJg+u3lXe +39BBnp/v7HVb4lLdZWJN7+h471ugeghx0RX960976bhXZP6uLOIrUuD4sp+O +fl877RqIc2M3Tbf/oOMbnxDBXuLMfa7QN0HH+lO2NUu1eJD23qfv6wypz73w +mgFxis0h9uAsHYu9/gVtIU66F67+ax6FUu8HxvYSn1sZ9/T3AgrXnpkxDiaO +L7wQ8G8xhfKld9bGEsfJZC2ZJ0mh549GiVRi9uniqgVyFEYcyyvNJ47+U+kk +qkTh/LHP8yuII/bXzUhSFLJ9aRo3iMM+NGXJq1Oo4/dd4jbxMbuXqKJNYfiv +F031xMEPuj8x9Cj8ccxnTQPxIYP+U5pGFJb0b4i9SxxUPKKha0qhcdrsxTri +ALk/zwzNKVy2Sy2whnhf/Pwg0w0UtoZvleAR+/wVlVhjRWFnpVxMEbFXoHz1 +RlsKlzDE7mYSu/eqOm9xoFAi+PmjBGK3rcv/s3ehsOvGt6ww4l0PTXK276Yw +yXva3I/YxWjdGlcPCg0i06ociJ1Krb+4+1Jo6rVj0ox421LnON8ACjeOvhdk +EtudddcMPERhu+/N7wuJrWf3txwOoXA47uTlQfK+rA6EHAgNp7Dl6DuVFmKL +T9GSkdEUnnvhcvQq8XqHszXsWAr70jNz44jXPEpziU+g8JaVUdZeYtPyq7mp +qRT2Hp0SFyPuVinPWX+Jwgy7rux+ct5CU0uzx3MozK7lWdwmrokqumxfSqFd +m9FvV2LHqYJLczgU+qt8/6dNPO5/JZN3jUKW3nnGH3Le9bbnpi+uo7DOs77t +PPHL59lpdxooXHzd0tWJOGhtVqr/Qwo/KrxaoEjM0clMedJCzsvSd835pL80 +5qcknuqlcKHJyok00n/NoRfOG/RTaFHy87ItsddI4rnPAxS+Fbzj9//+Leg+ +m7BmnELa/urQQCYPVK7Fxv0TUMWYj8WhGqTfpXcfjwzWUkX//zyD1pP8uNF2 +LIKhq4rKO2JufiT5ss0y5ESbgSrqWi5bHkp8weBImB6o4vs/q8uKST6JCAeG +DNmpYqtgUv9Pkl/zbu0N8jpKbCM0prKU9JfOnkCpMFUc6htyzyH5uKZgd0Bj +JPk/U1FEgTji/E5/+hlV9IMzgmIkT2c8HX16LqtibJ3F1T5pHoyKW7o53ldF +xUDrlStJnnf601v9HqliiWnvYOwSkn9NMxDxTBXXpHZldInxIDG0XLmkXRWn +xgabj4nyYEWf8IfpAVXM62Km55D5EFD5YleWBAO3FMTnnibzxnFRyfNKWQY6 +jAo/uTOfB2aekawmRQbyjr0aGZ5H6pPTVRxWY+CDUW0Ta36SL5EX3qEpA5FZ +nPJllgsDNg47Pnsw0NO+VvfWKBdelWo//e3LwGXCpz/1DnOhll9gtUggAzM7 +rEoEyLw8XVMtb3iMgU/ZH4LWDXBBXVm2K/YsAz8rNmgk9XHBe6hru2Y1AzfX +hKUHveLC5wQ3x4OCTNTfmBdqT+Z1wIAWfYUwE98sbF6vXsGFqY3Tg4NiTNyk +fODlDJn3C/kvsH3lmdgSkbQ8tYgLK449qHLTZqKHsZRWURYXwj2ZEjZbmTgz ++sJGK54L0mY/X2jmMPHE4cUFXe5cyL1089L3K0wcu5AhZbWHCxrTJ72LS5h4 +Y0v+wZuuXDCtUpylX2Mie0nh+Glnsp8ss9GRf8jEV1UtZkI2XOBJX0sQ+sHE +eyceKx8yIfvH8NFNXwzV0HXh/qZFwlxQ0FU6JWSqhp5JXM/3QmTfONh4X9Nc +DWtPeV4qn8+FlEkx04NWaph2x+Ela5YDPX9LdWZ3q+E/h5gMkzEOHBR+JyF3 +Wg3XzdHXSezgQKYG9mzuVkMzZyGpphyyn7kLHaqKUMeZrKdWt5kcGMped+fu +SXXckxjs/5rOgeG3kYJPT6tjoLVY1TeyT47ZTF/qTVbHxCSVuwtlODC1eqBx +cYk6qkXrTmoJcmCu5DNp31ZyvbHUwz/6K0Cu8XytIk0DTb8pKO8qqCDfLzJz +Y+9roC/bazZYpgLEnzPP8YaXoXFoTWIk2ccV4ri2hoZa+EKxw4+eWwbpmiZi +Et7a+DuyfSjBohSeyJsb/ErSQaaHbULb12JYpXA/cXn7ctRvLJT021UEi/nz +D++JXoHs3GM/E78WgFKUsqkzUxe/1dhERdldgQWMndX2j3SxpzH7TG9THuiw +5LhHd+nhge6SXeCaCwd7xB9Y8q3EElGxc7UPs2D4V4LDpvSV+NPe0nVE4RJs +XN6UuUlbH9t3tzWxc9Kh/tfqP1Mt+ui9amyz4JJUCNDS63rpaYDXZdcn3nid +DKwhjzbnBYaou2O/LS8xCdarym4RyTfEzaul9MNNzoN65JmQ+0ZG2Pel+FxT +ZTws8zS5y+gywiMCM+FqenHgWe9zsuqAMfIVZo/zVrPhbm6bx6iUCY4YD0YM +OUbDeMns1PIaE3Rdz3gfcykC3BnlCzK3rMIQn6j2YvfjMLos2fDayCqc05Za +b+54FG4W/OmdiFuNts8CBhvmHAaXdRSuVjLF/PDgJR20A7B0f+wtnQZT3Nwa +JHr2lT9ILfSv3OLEwpsdr+dn7vOBgrXhoSPOLGwIf/7Y3tkH9MLPrU3eyUKD +em8DmY0+YD3Ce9O5h4WP9/b9vE/3gVPtE9Pu/izslho3K+zyht/5EWtCo1g4 +sKcpJnGzN3StTn5dVM7CZGPLI13GXuBzpODyJg4Ly0O+2P1V84JJzg3PnzwW +GupWUZoyXiBO75zSrSb3/zqZWDzhCVZCigp3GliYN1T6m37dE+raijxev2Fh +SIyoofIKT7BcfFM7uJOF4bl87UPKntC58fGkbDcLT5SOSDwW9YTx2h9xrh9Z +2LVBd1vWsAdo562o+D7AwqZSM5tGrgfUdZkHJwyysNZczeJbjgdYSm6F5SMs +dHD+c1060QO8Yo+8PDzBwnuxUy0XgjxgvOFUpsxvFh6c2Xfoo5sHRM+kudfO +sFCpyOOIsZ0HiOmXau36y8Jxp/gXmeYekL2/dmJ2loUudvFhgnoe8D9avU7p + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06318284627238994}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06318284627238994}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VO8XB3ClUBHZyTZzzSBLkbWMc7SKshWikrJLaJNEtiaKishW1uwy +M0qUJJWkTSohSlGplDVL9C2/5/fXvN5/zL33vO5zPudc2t5Ae8+5fHx88+bw +8f3/d7LncaNqfIGZ9XWBoYk4U7O2bNlj5p3R8Dn5/r0vWvKAUi/2ynZegLyw +SvsyrWUQbFvWwd+ZD917WA4ntVbBkiGZC9Md1+CEvBTYalnChzrrwPGO++C0 +Lq2zUtMFNqgOvB/teAWyxebOdhp+MN1hdHGkow/mNVN/3iuHwoO1xQUv83/B +iY5i00CReFD4cKt/r9ZfUPSvXi3ZnwyS/rvLBNfyY5BW2lGVwQy4oLvhtrWD +EDqZrJo+JJ4Lb9NXNIyKieA/Q4MjZ5/kQ3xBxIu5cktQ7I3+9KeoQpBJ+XQ6 +OUsCA0a7I+9/L4bYbZvMXk1K4WO1qwqHvpaCfFWL/Nw50rg/W3juqeFS4Ehs +m9JdJI3141MCKVOl0P7KlZekLI0+Hpf25QmWgardYbqdhTQu8s1hR6mVwf0t +OQKtGdLISxzQdvQqg78bJlqem8pgXsJvDauPZXDIJG/342hZlKyeV2j0sBws +cxePWyXIYpq9TGfa03KgC4bFtVyUxUFfRu6vl+XQ2uZY+bpEFg8KbhvM6ikH +nSBh/p4WWXz6cmngnaly+FZ0tGhMXg53flSvUNO4CjslrQeXXpdDv4kzhkVx +V2Hd8ExowCd5tHhxeY/xqgo4ZpGy7N5PebQptfNzgwrg5Gl3SUzK45fAfuWT +6ypAdpubyS2hpRiZypdUb10BP28+nOLXWYrGT7xPze6tgOToxMMZIUvxl8TE +5cozFdAnxQxoFFHA9fP8i9+0V4BM4F1FGRkFbHWYu+hQdwVsbt7+3FdFAVNc +/5MR/lgB1aHxWqIrFVA6YVRb93sFnPkwMuC8XQGjb/2y2PinAvRKb3sP5ytg +qrOd0RUlDkSZ2u2RN1bE3sLxhfJ7OWDhmj1mtEYRdV+7C7C9OLA48keMw2ZF +fLmK9nXAjwOXH7CLEt0UMczl9/biQxy4aVn7Q+C0IgpsjJrz6SQHRrZTwb/e +KqJTdwfbs4gDrkcmzjw7roRmW7/kp3/hACNtjcIAWwkjO7ZkuH3nkPrPVwgm +KmEme+VxapADof9ptK4pUEL75rS5meMcuBjjKnXrmRIq2U6rWfJz4VnSo5xC +RWUML9CXqFHmwipORtWJu8rYH2Da93AbF9Z1tPwdalbGuGgDZrUTF6z55m3c +/UoZ29gTgvkuXHC3D3gLX5Sx5LVZkb8bFzYcp0VEzlfBkz92bn++jwtBypNX +zDVVkD6x4ntdFBcavXMGHwSrYIrPuStOZVzY9J+JeNhxFVSuZ3nXXeVCS2Kb +oX6kCmrq6LUrcLnw9taCyILTKpjo0lXTep0LQ4sOi7Mvq6Brys+0eXe4IMuz +MNpwXwW5f+1Ms1q44P97NLJZhIaaH2paLw6Reg54SfeL0zCvRet6+ggXhAa6 +yvllaVhniMmpY1wo7H7QbkanYbOsnU3MJBd66i9q3TCk4XmRR89U/nHBhm3S +mbebhtt9DDcaCvBA6V/F/rseNFwiEdsmKsiDn8F0/ve+NNybuuhrP3GczyId +2cM0FL7kmnV2AQ8arN7HnIujYUigxI47wjzQE49afryShnL7Px8vEucBX/xE +Y3o1Db2W0xK3S/Cghd/Ppfo2DWubE1cISfJg34Q9e/QhDeHrOxk3KR4UdKp2 +e3fRMGOV7NkxGR4ctMsIYn+g4aW5HaJJsjzAJyICVz7TkBsbSdeW48H725Mr +eoZo6FYVOr1LngfSOc2ntvHT8bpE2PF8BR58lmEpHBSi46zR3zPaijy4llhZ +eV6Ejj8erdepJraJznz3RIaOTy2Zeg1KpD5Pfz1zLTp6sSRZNSo8cOz5+MhV +l45t6nW/dWg8UHVy2BVmSMeTjlqbC4gbLMziapCOZWFBdbF0HkxrivVoO9Ax +mm+8VVeVB5NZ8lErXeiob60el0I8LspQNdlNx/HRw6PjxEO/TPzW+dIxJd/x +HYfBg77b7pMu4XQc5G6lCarx4IN2QIZbNB3j1HcfdSJ+lxNi6hVLx4I352IK +idtjzkYfSKLjdhO/hlXqPHhiVbM4rpCOG56md23S4MGjO/cqz5bRcVrUciSW +uHH5s23JXDpqrbRqeEBcL9GbmX2LjgImO5P0l/HgNvsHq6CejoGfw5J9iW9O +TXwsfUBH29nF9peJr3UvVLvxnI7iXhyBP8TcLVJPal/Rca5T61+mJg+u3lXe +39BBnp/v7HVb4lLdZWJN7+h471ugeghx0RX960976bhXZP6uLOIrUuD4sp+O +fl877RqIc2M3Tbf/oOMbnxDBXuLMfa7QN0HH+lO2NUu1eJD23qfv6wypz73w +mgFxis0h9uAsHYu9/gVtIU66F67+ax6FUu8HxvYSn1sZ9/T3AgrXnpkxDiaO +L7wQ8G8xhfKld9bGEsfJZC2ZJ0mh549GiVRi9uniqgVyFEYcyyvNJ47+U+kk +qkTh/LHP8yuII/bXzUhSFLJ9aRo3iMM+NGXJq1Oo4/dd4jbxMbuXqKJNYfiv +F031xMEPuj8x9Cj8ccxnTQPxIYP+U5pGFJb0b4i9SxxUPKKha0qhcdrsxTri +ALk/zwzNKVy2Sy2whnhf/Pwg0w0UtoZvleAR+/wVlVhjRWFnpVxMEbFXoHz1 +RlsKlzDE7mYSu/eqOm9xoFAi+PmjBGK3rcv/s3ehsOvGt6ww4l0PTXK276Yw +yXva3I/YxWjdGlcPCg0i06ociJ1Krb+4+1Jo6rVj0ox421LnON8ACjeOvhdk +EtudddcMPERhu+/N7wuJrWf3txwOoXA47uTlQfK+rA6EHAgNp7Dl6DuVFmKL +T9GSkdEUnnvhcvQq8XqHszXsWAr70jNz44jXPEpziU+g8JaVUdZeYtPyq7mp +qRT2Hp0SFyPuVinPWX+Jwgy7rux+ct5CU0uzx3MozK7lWdwmrokqumxfSqFd +m9FvV2LHqYJLczgU+qt8/6dNPO5/JZN3jUKW3nnGH3Le9bbnpi+uo7DOs77t +PPHL59lpdxooXHzd0tWJOGhtVqr/Qwo/KrxaoEjM0clMedJCzsvSd835pL80 +5qcknuqlcKHJyok00n/NoRfOG/RTaFHy87ItsddI4rnPAxS+Fbzj9//+Leg+ +m7BmnELa/urQQCYPVK7Fxv0TUMWYj8WhGqTfpXcfjwzWUkX//zyD1pP8uNF2 +LIKhq4rKO2JufiT5ss0y5ESbgSrqWi5bHkp8weBImB6o4vs/q8uKST6JCAeG +DNmpYqtgUv9Pkl/zbu0N8jpKbCM0prKU9JfOnkCpMFUc6htyzyH5uKZgd0Bj +JPk/U1FEgTji/E5/+hlV9IMzgmIkT2c8HX16LqtibJ3F1T5pHoyKW7o53ldF +xUDrlStJnnf601v9HqliiWnvYOwSkn9NMxDxTBXXpHZldInxIDG0XLmkXRWn +xgabj4nyYEWf8IfpAVXM62Km55D5EFD5YleWBAO3FMTnnibzxnFRyfNKWQY6 +jAo/uTOfB2aekawmRQbyjr0aGZ5H6pPTVRxWY+CDUW0Ta36SL5EX3qEpA5FZ +nPJllgsDNg47Pnsw0NO+VvfWKBdelWo//e3LwGXCpz/1DnOhll9gtUggAzM7 +rEoEyLw8XVMtb3iMgU/ZH4LWDXBBXVm2K/YsAz8rNmgk9XHBe6hru2Y1AzfX +hKUHveLC5wQ3x4OCTNTfmBdqT+Z1wIAWfYUwE98sbF6vXsGFqY3Tg4NiTNyk +fODlDJn3C/kvsH3lmdgSkbQ8tYgLK449qHLTZqKHsZRWURYXwj2ZEjZbmTgz ++sJGK54L0mY/X2jmMPHE4cUFXe5cyL1089L3K0wcu5AhZbWHCxrTJ72LS5h4 +Y0v+wZuuXDCtUpylX2Mie0nh+Glnsp8ss9GRf8jEV1UtZkI2XOBJX0sQ+sHE +eyceKx8yIfvH8NFNXwzV0HXh/qZFwlxQ0FU6JWSqhp5JXM/3QmTfONh4X9Nc +DWtPeV4qn8+FlEkx04NWaph2x+Ela5YDPX9LdWZ3q+E/h5gMkzEOHBR+JyF3 +Wg3XzdHXSezgQKYG9mzuVkMzZyGpphyyn7kLHaqKUMeZrKdWt5kcGMped+fu +SXXckxjs/5rOgeG3kYJPT6tjoLVY1TeyT47ZTF/qTVbHxCSVuwtlODC1eqBx +cYk6qkXrTmoJcmCu5DNp31ZyvbHUwz/6K0Cu8XytIk0DTb8pKO8qqCDfLzJz +Y+9roC/bazZYpgLEnzPP8YaXoXFoTWIk2ccV4ri2hoZa+EKxw4+eWwbpmiZi +Et7a+DuyfSjBohSeyJsb/ErSQaaHbULb12JYpXA/cXn7ctRvLJT021UEi/nz +D++JXoHs3GM/E78WgFKUsqkzUxe/1dhERdldgQWMndX2j3SxpzH7TG9THuiw +5LhHd+nhge6SXeCaCwd7xB9Y8q3EElGxc7UPs2D4V4LDpvSV+NPe0nVE4RJs +XN6UuUlbH9t3tzWxc9Kh/tfqP1Mt+ui9amyz4JJUCNDS63rpaYDXZdcn3nid +DKwhjzbnBYaou2O/LS8xCdarym4RyTfEzaul9MNNzoN65JmQ+0ZG2Pel+FxT +ZTws8zS5y+gywiMCM+FqenHgWe9zsuqAMfIVZo/zVrPhbm6bx6iUCY4YD0YM +OUbDeMns1PIaE3Rdz3gfcykC3BnlCzK3rMIQn6j2YvfjMLos2fDayCqc05Za +b+54FG4W/OmdiFuNts8CBhvmHAaXdRSuVjLF/PDgJR20A7B0f+wtnQZT3Nwa +JHr2lT9ILfSv3OLEwpsdr+dn7vOBgrXhoSPOLGwIf/7Y3tkH9MLPrU3eyUKD +em8DmY0+YD3Ce9O5h4WP9/b9vE/3gVPtE9Pu/izslho3K+zyht/5EWtCo1g4 +sKcpJnGzN3StTn5dVM7CZGPLI13GXuBzpODyJg4Ly0O+2P1V84JJzg3PnzwW +GupWUZoyXiBO75zSrSb3/zqZWDzhCVZCigp3GliYN1T6m37dE+raijxev2Fh +SIyoofIKT7BcfFM7uJOF4bl87UPKntC58fGkbDcLT5SOSDwW9YTx2h9xrh9Z +2LVBd1vWsAdo562o+D7AwqZSM5tGrgfUdZkHJwyysNZczeJbjgdYSm6F5SMs +dHD+c1060QO8Yo+8PDzBwnuxUy0XgjxgvOFUpsxvFh6c2Xfoo5sHRM+kudfO +sFCpyOOIsZ0HiOmXau36y8Jxp/gXmeYekL2/dmJ2loUudvFhgnoe8D9avU7p + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06318284627238994}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8373,7 +7895,8 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.07773075306777268}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06318284627238994}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8381,9 +7904,548 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913298974454536`*^9}, + CellChangeTimes->{3.994251002399269*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"843472c3-727d-409a-9e94-6d2f96ba41c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{3.9918488983507824`*^9}, + CellLabel->"In[98]:=",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], + +Cell[BoxData["11.442666626534303`"], "Output", + CellChangeTimes->{3.9913294794877434`*^9, 3.994251002451502*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"d90eceff-6d1a-4cca-8ada-ba8263315d6d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9918488997875195`*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.9347080399653425`*^-258\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 99, 13, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913294796838703`*^9, 3.994251002581909*^9}, CellLabel-> - "Out[172]=",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] + "During evaluation of \ +In[99]:=",ExpressionUUID->"ea134136-7379-4a78-8d0a-b3beedb9b7b8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.91863716787082`*^-268\\\", \ +RowBox[{\\\"1185674779082540666256313\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9254518349824000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 99, 14, + 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913294796838703`*^9, 3.994251002593235*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"9be92465-0a4c-4fc7-8b8a-efad5ab83d55"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.147014243046984`*^-277\\\", \ +RowBox[{\\\"9295690268007118823449497\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"9\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5542386262016000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 99, 15, + 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913294796838703`*^9, 3.994251002603153*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"17945219-7e77-456f-9077-726d0413effc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 99, 16, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913294796838703`*^9, 3.994251002611836*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"ff67d218-96f9-479c-b2db-e88ac87d1692"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k0VVscB3ClQQN5ZjLdc02FpKTI9fupzJWUCpnL9JImU6gMz1giDQ9F +kpRw70EUMoQohZKMz5RSjzLENTR5+/1x1lmftc86e5+zz++792G4HN/rupCH +h+c3Of4/T/e+qFW4kKl/TWFP0+AF0G9Nkzhj0BEGkSNrrwuPSwOKNrtIdCRC +0c66lDdjauC350E7b0cGOMXGhmSN6cEfo+KJc+0F0GGfHOoxthP6nuw+PtVe +Deg7XH5v1A6MFIZ7JtpbwFIsPKBqxAvm2jdfG29/D0EPnIS1+oOhZvu9zDcZ +kyBd09FcNBAH0n0lQy5qv2CfbUPX7NQ1EPFyfLB0Oy+GuRod2Xb5JiRqGpXt +3s+H/vFzgXdyb0Nn0vqqCUF+TDNpuq+RlgkXMs83L5T8Azf7Ww+mRN0D8auD +MVdShdHkZ2jBduEHEGVlqt8yLYqHvm5KalbMBamHTVILF4jhsdUnexjrcoEt +bDWjuUIMuyr9bL21c6GtxYG+LCeGovx8s1yjXFCw9KEsTcRwy/LKrEr3XKje +dWvJ62QxtF3Rskjvfi78MuI2NeqJYwduLW9RyIPTOrcdX4RJ4Mw/NXa7V7LB +LF1gyvyiBGrmfBgoFGIDtTQ4uumaBEJSvpaIJBtetx7If3tfAosNnxk8U2TD +uhMreXubJHBkwG7ssz4bPmf5Z32TkkSBpqOm2ifYYCey++vqQkmseqHfPNTE +ho1BZaFpTyRRc1Oq291WNix/ryLGqJPEsxcZ1Q5dbCjh8IJSpyS22TTWPv3I +BjHzkoT185Jo4Wc3afKT9B+qoGVoLoX8T3ybD6lwYMfY90DvQSk8khOWnhjM +gTMmV9c+/SKFvzUL++JDOcC+rd4lPC2F90rZwtGRHJCwctIp4VuNcrMTNp4J +HPjy+NkM77rVODbl5Dh2hwNXwhJ8kgNWY0rymMWyBg68F1XyruWXRgvFM5d0 +l9EgfrxSRlxcGu2mxMI8VtCw87l1o6e8NLqKLJm4wk9DceAFtVUbpdFRi2Ew ++AcNsX3jwzbW0qjpcCz3sBQNG7LL3McypHGjeGz1yFoaQvUsnaW2yKBoSdo9 +STMaTBzSvm3eJoOpSu4cuZ00CISMhO/fKYPsKftaajcNN2sishKcZNC77IaY +/F4aHpuVjiyJkUHfIyPOMzY0jFsz/SY7ZfDgC6MaCU8aHHy5sa+CZHFX4Tdr +lQgaFP/eJj0cIYu8+hJ+ryNp8vzxeUsTZDE3ZeN932gaAn+ueb0tUxavjgTv +fHSBhmvhDqIlr2SxZkl/qngiDa8u19+6KyOHcucaHuxMo0GXnfzwXKUc8sRP +NcU+pGFHe9Ov0edyGJcdK1FVRMNunkXGji1y6GlqM/CtmIbDe7074aMcsqNG +JvaU0GAUxDgfslgedSxEJcbKaTghN33HQFUe++zmagrraOAWJjyf0yDtKSpr +ntaT8Zmofs3Xksc/0hcKv3pOQ8RJJ21KXx5tRFX8uhpoSKlpeL7QUh6vhZ34 +q7OJhlr3W19r/OTR+t9kEec2Gkx/6ggFB8njXplP40btNDQltGprhcijveDQ +wbUdNHSWLAvJjJHH4oFL9f920jC6wkco4qY8XvCv2WLeQ4MEbbLZqFoe3UJN +KpIGaUjdMXjod508UpNH/A5+oIHqPBtS/FIeNXMbKoU/0qC+sPCF0jt5VN2g +yhcxRMM2Kxm7pZ/lcar5eJDZvzR4zU6EPOdnYAmvqYXzKHmfJ93EhoQYmHmU +ml08RgPfcFcOrwQDW8wqGu8R3+2uadOnGChfdGPB4DgNvRXX1Iq0yfWz2Tc3 +T9KQu3l5dctWBjoX737yjDiQPndwHBlY7BjBbzlFg1iGe5iqOQOthmWMHbk0 +WETodNx2ZKCHiq2K7QwNsr/zjlUeYaBgyKePb4i/+FG8PZ4M9NVb1GU0S0O0 +x4p1Ej4MdJcM8FCZo6HKvCf8UjQDp9cZrW/4TsOlWkvJ3DgGLv3L6KHqDxrs +WHXsF4kMzOjh8YklnlvH6VyUysAVikbZ8JPUg1CoRlA+AxtYOb+if9HAc4Fb +m1TMwDOiq061Ejfx/mlbXMbAkLZwZZnfNBzl7o2YeMZAoUBr6yxiXe96qVUv +GRgEYu+GiPk+baXVXjOQWZh+TWGehswOhW73LgbWNvV++Jv4lGXyiYg+Bm5+ +xPVpJMYG/iV3PjBwtPGWOQ9PPghsD7tR9S8Dy+0SPNcT95RNr+8dZeDXA0HN +9sS5WkfrfkwysMBa9Fw0cWBe3yHJOQY2Zgn70cRit55HWvFS+CRM1HCW+IM4 +S/oUH4Ve/ZEyEgvyoSAhPz+en0KjNVu2bSIOWaZknCdE4Z2PA4UWxBZhKf80 +iBNvZ512J5b9IXDqszSFOWKLQoOJv5wOX7qEonCsbbznEnHpl5mbTGUKeW5X +xKYRR7t6bTBQo9By05roHOIDvf31DpoUVs98aSsiVji43z5Ym0LGWJ1/OfG3 +5hffkreS9lqfo9XEVSb60Y+QwqmahwW1xJeeFsi8M6Twbqfh7v9tp6tc+M2M +wqorn/SfEq8tvGEiuIfCbnnbiDLiOVXBXvX9FOZbOFCFxNOpUqEbbSn80zhi +z33iqVWKCjqOFPq5OI+lEE+EatTrH6Gw6dWD+Vji0UmdP3d4knZDqbAA4hHX +Hfxm3hTOy3j6Hyb+3L6btjhNoZyuZb858UdTm337AyjcsSquXJP4fdnhaduz +FFKZ7atEifvUvZOdwig0T/jSziXz8c+tAD23KAoLf0SJtRJ3/hHed/QihTvT +3F5xiNvC48JOXqYwptLw+//z+5b7t6L/dQqXaw+mOxK/ds94HnyDQn73X1Ub +iRvMHwlE36XQzCrzRCv5nurLn+bHPSDznU4vuE1cq/HK6gqHwoV1W1YdJa4Q +HkhJK6HwxounGTPkey2LGGFlVlBof8NobSnx4xluf3YNhYrqFpqBxAXdy5WL +GilUOjlX9Y3UA2eXaENpC4VtXkzzHOLcSrljVe0UXisdOOhMnHVHq/DlAIUP +ajV/PiP1lXLUAd5zKXx+uyviJKm/v3s83n/6TmFeoIOuGPFVi9MRX+cpbLTN +93/8f/1ujH45u4yJY+Ej8VxS32E/8g+ukmWi+5OBnXtJ/Z8/9uS7CJOJxR7L +HQZJPgT31aVKqTBRb63D75PEfjXdg4obmBh9v2IsaprU64XFJ/SMmHh+aHHu +dZI/Hr9WCW8zZ+Iwj9IuEWK341LFxnuY2J3/NTye5JXTPo2fe22ZKBddVnTu +Gw1Wq22iPb2Z6LXDxQBJ3unl5KZfv87EVQY/C/aM0NAtn3PL8AYTBzi6YYXD +JO+uZ6dN3WLinTzt7SLEj0Kzbu7NZmIi/5rU5s8kb6zTkwSeMNFg9ECtOsnj +NYuvJkQOMHGxIzcoup+G54GJ8ZuGmHjmon9pQx8Z33jCpQ/DTOQKDnGXE2d2 +x13cNsVE01uObhFkPZAviIr+vUQBNUrLDFy6SL46BoX4qSlg2cu+sCdvaShq +PXNeUVMBX06LDPW2kOcxCzjXukkBfZaWWs6/oSFxk2/wBlBATisY6r6mgX/l +8YBRSwVcr1+Zn/SKhkUlLifc/BVwklNkOFtLw4SQmdOBagW0DbRINCbrbYcX +9frPegXkGrh5ihSSPK77Dudfkf4HbFb25dOQEJgjd79NAQ+eeFpyjEPD+vcr +++aGFVC0f3nTiQc0eOc326cKK6LT6ZASgXQahi32H/pwRBEPB6lep2NoaMlW +fznrqYj1lu9at5D9QSnvkq38xxXx8tX98xVk/xDzqFhK+4wi2haPrn4WToOK +nERXVJwihv9Yk/D4LA3uo13WqsWKGJjNNWOdpOHDRacDp5Yq4eKaRLNnB0j/ +w2rU+pVKGBNV7rF2Pw0zxnNfvwoqoVqFamvcPhqW8yZGeEopYbK7wXWLPWT8 +Z2oeOqkrYYXLkb4KUxrOuioJW+xTwqTkR0a79Mj71//SrHpLCR8rKQZryJP1 +fszf9KO2Mi5x/6jlW8cBaU3ZSD49ZbykxZ6VqebA6KnaalUDZQw7ytleU86B +q9OCeqfMlXFksV8AbxEHen9lr5t3VMbhBf03bcn+8NTKf4QlY5SxpM31tet5 +DqSswd6d3cq4Rqrx87wW2U8e5jv98LwKCrjEFNVcZ5P/C/GFUdVrcF9jo9Fe +yAOhRqVL9NharOj+00qnNwekozl7tLXV8Fv2lMDiHQ8gSVVHUNhdHSf+2r4h +t+A+NEgZbJq8vA4/Qd7Iedl7oCtdnaDRpoHTbtqN1S53QYA3w8c5bD2+52a/ +8H52B2RD5fRslDSxdnH3Vp6VGbBM0a54b70mahV8rt3slg7rWJIcf/sN+PzR +AucX71LhVK9QjRnPRmyJTuJxqk2BscmL+02TNqLu3SY+rkASGGvUpZiqa2Hn +XGpVYfw1qJjc+mOmSQurkugTr5ddAW+1DV1vXDdhVn9tBfQkAGv0SKvNMm2M +DOBNHfWIA0MFiV38GdponzTyIKYiBlRCYgOqN29GocJFqY7BkbDWVadSsWsz +CpgsNZuwCAfXCo+/Hp7cgs6bAiKlc0OgMr31yISoDr5hOq34bRwMU/fnZzQe +6aB/dU/hna/+cFgxZ1nKLl0sP5c7t8LJBybWXtEuGNfFl++Zky1LTsLjzB8D +3OitOHSx95nZfS+w3cHErbJ6GJN8MDFKzANWH4sqWVelh/0/4uMPdx4G0eVe ++bsOsrD1s1XVlbNOkLn9bOC4DQtlvGQV6487wYazl7ZfsWOh75Kr1xe5OMHu +cfpdhzMLfw0ujE41coLINu7cYS8Wso0HeIwFnWA24/y2wFAWJtuYuAyZOULX +1itvs3JYOLTN0FGQbQ8evpk3TdksvJkW1jd41R6m2UWuX2gWKnmpLmsIsgch +qmNGs5iFeSoDqk2m9mDOJyNdXsXCzOYy34dDdvCkNevI23ekXd3aaYxpB2YC +j9X9Olg4ELxF//MKO+gwfjEt0c1C7Y4FIpOTh2CqdCTaoZ+FAqJRQfq1h0D9 +9vq8f4dZWLzpLV+O6yF40mXgd/ErC7sX7PfZsPsQmInsA41xFjoP3Qp5qX0I +3KJ83/hwWRjbs2/PBj5yv6rIFPFZFk7tXPN7ftwWwr7/fbj0OwuL4tMZfZ22 +IKiVrWb/i4VxVd85zdW2kHaslDs/z8JrNmfT3uTYwn+JlGC2 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0VVscB3ClQQN5ZjLdc02FpKTI9fupzJWUCpnL9JImU6gMz1giDQ9F +kpRw70EUMoQohZKMz5RSjzLENTR5+/1x1lmftc86e5+zz++792G4HN/rupCH +h+c3Of4/T/e+qFW4kKl/TWFP0+AF0G9Nkzhj0BEGkSNrrwuPSwOKNrtIdCRC +0c66lDdjauC350E7b0cGOMXGhmSN6cEfo+KJc+0F0GGfHOoxthP6nuw+PtVe +Deg7XH5v1A6MFIZ7JtpbwFIsPKBqxAvm2jdfG29/D0EPnIS1+oOhZvu9zDcZ +kyBd09FcNBAH0n0lQy5qv2CfbUPX7NQ1EPFyfLB0Oy+GuRod2Xb5JiRqGpXt +3s+H/vFzgXdyb0Nn0vqqCUF+TDNpuq+RlgkXMs83L5T8Azf7Ww+mRN0D8auD +MVdShdHkZ2jBduEHEGVlqt8yLYqHvm5KalbMBamHTVILF4jhsdUnexjrcoEt +bDWjuUIMuyr9bL21c6GtxYG+LCeGovx8s1yjXFCw9KEsTcRwy/LKrEr3XKje +dWvJ62QxtF3Rskjvfi78MuI2NeqJYwduLW9RyIPTOrcdX4RJ4Mw/NXa7V7LB +LF1gyvyiBGrmfBgoFGIDtTQ4uumaBEJSvpaIJBtetx7If3tfAosNnxk8U2TD +uhMreXubJHBkwG7ssz4bPmf5Z32TkkSBpqOm2ifYYCey++vqQkmseqHfPNTE +ho1BZaFpTyRRc1Oq291WNix/ryLGqJPEsxcZ1Q5dbCjh8IJSpyS22TTWPv3I +BjHzkoT185Jo4Wc3afKT9B+qoGVoLoX8T3ybD6lwYMfY90DvQSk8khOWnhjM +gTMmV9c+/SKFvzUL++JDOcC+rd4lPC2F90rZwtGRHJCwctIp4VuNcrMTNp4J +HPjy+NkM77rVODbl5Dh2hwNXwhJ8kgNWY0rymMWyBg68F1XyruWXRgvFM5d0 +l9EgfrxSRlxcGu2mxMI8VtCw87l1o6e8NLqKLJm4wk9DceAFtVUbpdFRi2Ew ++AcNsX3jwzbW0qjpcCz3sBQNG7LL3McypHGjeGz1yFoaQvUsnaW2yKBoSdo9 +STMaTBzSvm3eJoOpSu4cuZ00CISMhO/fKYPsKftaajcNN2sishKcZNC77IaY +/F4aHpuVjiyJkUHfIyPOMzY0jFsz/SY7ZfDgC6MaCU8aHHy5sa+CZHFX4Tdr +lQgaFP/eJj0cIYu8+hJ+ryNp8vzxeUsTZDE3ZeN932gaAn+ueb0tUxavjgTv +fHSBhmvhDqIlr2SxZkl/qngiDa8u19+6KyOHcucaHuxMo0GXnfzwXKUc8sRP +NcU+pGFHe9Ov0edyGJcdK1FVRMNunkXGji1y6GlqM/CtmIbDe7074aMcsqNG +JvaU0GAUxDgfslgedSxEJcbKaTghN33HQFUe++zmagrraOAWJjyf0yDtKSpr +ntaT8Zmofs3Xksc/0hcKv3pOQ8RJJ21KXx5tRFX8uhpoSKlpeL7QUh6vhZ34 +q7OJhlr3W19r/OTR+t9kEec2Gkx/6ggFB8njXplP40btNDQltGprhcijveDQ +wbUdNHSWLAvJjJHH4oFL9f920jC6wkco4qY8XvCv2WLeQ4MEbbLZqFoe3UJN +KpIGaUjdMXjod508UpNH/A5+oIHqPBtS/FIeNXMbKoU/0qC+sPCF0jt5VN2g +yhcxRMM2Kxm7pZ/lcar5eJDZvzR4zU6EPOdnYAmvqYXzKHmfJ93EhoQYmHmU +ml08RgPfcFcOrwQDW8wqGu8R3+2uadOnGChfdGPB4DgNvRXX1Iq0yfWz2Tc3 +T9KQu3l5dctWBjoX737yjDiQPndwHBlY7BjBbzlFg1iGe5iqOQOthmWMHbk0 +WETodNx2ZKCHiq2K7QwNsr/zjlUeYaBgyKePb4i/+FG8PZ4M9NVb1GU0S0O0 +x4p1Ej4MdJcM8FCZo6HKvCf8UjQDp9cZrW/4TsOlWkvJ3DgGLv3L6KHqDxrs +WHXsF4kMzOjh8YklnlvH6VyUysAVikbZ8JPUg1CoRlA+AxtYOb+if9HAc4Fb +m1TMwDOiq061Ejfx/mlbXMbAkLZwZZnfNBzl7o2YeMZAoUBr6yxiXe96qVUv +GRgEYu+GiPk+baXVXjOQWZh+TWGehswOhW73LgbWNvV++Jv4lGXyiYg+Bm5+ +xPVpJMYG/iV3PjBwtPGWOQ9PPghsD7tR9S8Dy+0SPNcT95RNr+8dZeDXA0HN +9sS5WkfrfkwysMBa9Fw0cWBe3yHJOQY2Zgn70cRit55HWvFS+CRM1HCW+IM4 +S/oUH4Ve/ZEyEgvyoSAhPz+en0KjNVu2bSIOWaZknCdE4Z2PA4UWxBZhKf80 +iBNvZ512J5b9IXDqszSFOWKLQoOJv5wOX7qEonCsbbznEnHpl5mbTGUKeW5X +xKYRR7t6bTBQo9By05roHOIDvf31DpoUVs98aSsiVji43z5Ym0LGWJ1/OfG3 +5hffkreS9lqfo9XEVSb60Y+QwqmahwW1xJeeFsi8M6Twbqfh7v9tp6tc+M2M +wqorn/SfEq8tvGEiuIfCbnnbiDLiOVXBXvX9FOZbOFCFxNOpUqEbbSn80zhi +z33iqVWKCjqOFPq5OI+lEE+EatTrH6Gw6dWD+Vji0UmdP3d4knZDqbAA4hHX +Hfxm3hTOy3j6Hyb+3L6btjhNoZyuZb858UdTm337AyjcsSquXJP4fdnhaduz +FFKZ7atEifvUvZOdwig0T/jSziXz8c+tAD23KAoLf0SJtRJ3/hHed/QihTvT +3F5xiNvC48JOXqYwptLw+//z+5b7t6L/dQqXaw+mOxK/ds94HnyDQn73X1Ub +iRvMHwlE36XQzCrzRCv5nurLn+bHPSDznU4vuE1cq/HK6gqHwoV1W1YdJa4Q +HkhJK6HwxounGTPkey2LGGFlVlBof8NobSnx4xluf3YNhYrqFpqBxAXdy5WL +GilUOjlX9Y3UA2eXaENpC4VtXkzzHOLcSrljVe0UXisdOOhMnHVHq/DlAIUP +ajV/PiP1lXLUAd5zKXx+uyviJKm/v3s83n/6TmFeoIOuGPFVi9MRX+cpbLTN +93/8f/1ujH45u4yJY+Ej8VxS32E/8g+ukmWi+5OBnXtJ/Z8/9uS7CJOJxR7L +HQZJPgT31aVKqTBRb63D75PEfjXdg4obmBh9v2IsaprU64XFJ/SMmHh+aHHu +dZI/Hr9WCW8zZ+Iwj9IuEWK341LFxnuY2J3/NTye5JXTPo2fe22ZKBddVnTu +Gw1Wq22iPb2Z6LXDxQBJ3unl5KZfv87EVQY/C/aM0NAtn3PL8AYTBzi6YYXD +JO+uZ6dN3WLinTzt7SLEj0Kzbu7NZmIi/5rU5s8kb6zTkwSeMNFg9ECtOsnj +NYuvJkQOMHGxIzcoup+G54GJ8ZuGmHjmon9pQx8Z33jCpQ/DTOQKDnGXE2d2 +x13cNsVE01uObhFkPZAviIr+vUQBNUrLDFy6SL46BoX4qSlg2cu+sCdvaShq +PXNeUVMBX06LDPW2kOcxCzjXukkBfZaWWs6/oSFxk2/wBlBATisY6r6mgX/l +8YBRSwVcr1+Zn/SKhkUlLifc/BVwklNkOFtLw4SQmdOBagW0DbRINCbrbYcX +9frPegXkGrh5ihSSPK77Dudfkf4HbFb25dOQEJgjd79NAQ+eeFpyjEPD+vcr +++aGFVC0f3nTiQc0eOc326cKK6LT6ZASgXQahi32H/pwRBEPB6lep2NoaMlW +fznrqYj1lu9at5D9QSnvkq38xxXx8tX98xVk/xDzqFhK+4wi2haPrn4WToOK +nERXVJwihv9Yk/D4LA3uo13WqsWKGJjNNWOdpOHDRacDp5Yq4eKaRLNnB0j/ +w2rU+pVKGBNV7rF2Pw0zxnNfvwoqoVqFamvcPhqW8yZGeEopYbK7wXWLPWT8 +Z2oeOqkrYYXLkb4KUxrOuioJW+xTwqTkR0a79Mj71//SrHpLCR8rKQZryJP1 +fszf9KO2Mi5x/6jlW8cBaU3ZSD49ZbykxZ6VqebA6KnaalUDZQw7ytleU86B +q9OCeqfMlXFksV8AbxEHen9lr5t3VMbhBf03bcn+8NTKf4QlY5SxpM31tet5 +DqSswd6d3cq4Rqrx87wW2U8e5jv98LwKCrjEFNVcZ5P/C/GFUdVrcF9jo9Fe +yAOhRqVL9NharOj+00qnNwekozl7tLXV8Fv2lMDiHQ8gSVVHUNhdHSf+2r4h +t+A+NEgZbJq8vA4/Qd7Iedl7oCtdnaDRpoHTbtqN1S53QYA3w8c5bD2+52a/ +8H52B2RD5fRslDSxdnH3Vp6VGbBM0a54b70mahV8rt3slg7rWJIcf/sN+PzR +AucX71LhVK9QjRnPRmyJTuJxqk2BscmL+02TNqLu3SY+rkASGGvUpZiqa2Hn +XGpVYfw1qJjc+mOmSQurkugTr5ddAW+1DV1vXDdhVn9tBfQkAGv0SKvNMm2M +DOBNHfWIA0MFiV38GdponzTyIKYiBlRCYgOqN29GocJFqY7BkbDWVadSsWsz +CpgsNZuwCAfXCo+/Hp7cgs6bAiKlc0OgMr31yISoDr5hOq34bRwMU/fnZzQe +6aB/dU/hna/+cFgxZ1nKLl0sP5c7t8LJBybWXtEuGNfFl++Zky1LTsLjzB8D +3OitOHSx95nZfS+w3cHErbJ6GJN8MDFKzANWH4sqWVelh/0/4uMPdx4G0eVe ++bsOsrD1s1XVlbNOkLn9bOC4DQtlvGQV6487wYazl7ZfsWOh75Kr1xe5OMHu +cfpdhzMLfw0ujE41coLINu7cYS8Wso0HeIwFnWA24/y2wFAWJtuYuAyZOULX +1itvs3JYOLTN0FGQbQ8evpk3TdksvJkW1jd41R6m2UWuX2gWKnmpLmsIsgch +qmNGs5iFeSoDqk2m9mDOJyNdXsXCzOYy34dDdvCkNevI23ekXd3aaYxpB2YC +j9X9Olg4ELxF//MKO+gwfjEt0c1C7Y4FIpOTh2CqdCTaoZ+FAqJRQfq1h0D9 +9vq8f4dZWLzpLV+O6yF40mXgd/ErC7sX7PfZsPsQmInsA41xFjoP3Qp5qX0I +3KJ83/hwWRjbs2/PBj5yv6rIFPFZFk7tXPN7ftwWwr7/fbj0OwuL4tMZfZ22 +IKiVrWb/i4VxVd85zdW2kHaslDs/z8JrNmfT3uTYwn+JlGC2 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06643323290769826}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06643323290769826}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0VVscB3ClQQN5ZjLdc02FpKTI9fupzJWUCpnL9JImU6gMz1giDQ9F +kpRw70EUMoQohZKMz5RSjzLENTR5+/1x1lmftc86e5+zz++792G4HN/rupCH +h+c3Of4/T/e+qFW4kKl/TWFP0+AF0G9Nkzhj0BEGkSNrrwuPSwOKNrtIdCRC +0c66lDdjauC350E7b0cGOMXGhmSN6cEfo+KJc+0F0GGfHOoxthP6nuw+PtVe +Deg7XH5v1A6MFIZ7JtpbwFIsPKBqxAvm2jdfG29/D0EPnIS1+oOhZvu9zDcZ +kyBd09FcNBAH0n0lQy5qv2CfbUPX7NQ1EPFyfLB0Oy+GuRod2Xb5JiRqGpXt +3s+H/vFzgXdyb0Nn0vqqCUF+TDNpuq+RlgkXMs83L5T8Azf7Ww+mRN0D8auD +MVdShdHkZ2jBduEHEGVlqt8yLYqHvm5KalbMBamHTVILF4jhsdUnexjrcoEt +bDWjuUIMuyr9bL21c6GtxYG+LCeGovx8s1yjXFCw9KEsTcRwy/LKrEr3XKje +dWvJ62QxtF3Rskjvfi78MuI2NeqJYwduLW9RyIPTOrcdX4RJ4Mw/NXa7V7LB +LF1gyvyiBGrmfBgoFGIDtTQ4uumaBEJSvpaIJBtetx7If3tfAosNnxk8U2TD +uhMreXubJHBkwG7ssz4bPmf5Z32TkkSBpqOm2ifYYCey++vqQkmseqHfPNTE +ho1BZaFpTyRRc1Oq291WNix/ryLGqJPEsxcZ1Q5dbCjh8IJSpyS22TTWPv3I +BjHzkoT185Jo4Wc3afKT9B+qoGVoLoX8T3ybD6lwYMfY90DvQSk8khOWnhjM +gTMmV9c+/SKFvzUL++JDOcC+rd4lPC2F90rZwtGRHJCwctIp4VuNcrMTNp4J +HPjy+NkM77rVODbl5Dh2hwNXwhJ8kgNWY0rymMWyBg68F1XyruWXRgvFM5d0 +l9EgfrxSRlxcGu2mxMI8VtCw87l1o6e8NLqKLJm4wk9DceAFtVUbpdFRi2Ew ++AcNsX3jwzbW0qjpcCz3sBQNG7LL3McypHGjeGz1yFoaQvUsnaW2yKBoSdo9 +STMaTBzSvm3eJoOpSu4cuZ00CISMhO/fKYPsKftaajcNN2sishKcZNC77IaY +/F4aHpuVjiyJkUHfIyPOMzY0jFsz/SY7ZfDgC6MaCU8aHHy5sa+CZHFX4Tdr +lQgaFP/eJj0cIYu8+hJ+ryNp8vzxeUsTZDE3ZeN932gaAn+ueb0tUxavjgTv +fHSBhmvhDqIlr2SxZkl/qngiDa8u19+6KyOHcucaHuxMo0GXnfzwXKUc8sRP +NcU+pGFHe9Ov0edyGJcdK1FVRMNunkXGji1y6GlqM/CtmIbDe7074aMcsqNG +JvaU0GAUxDgfslgedSxEJcbKaTghN33HQFUe++zmagrraOAWJjyf0yDtKSpr +ntaT8Zmofs3Xksc/0hcKv3pOQ8RJJ21KXx5tRFX8uhpoSKlpeL7QUh6vhZ34 +q7OJhlr3W19r/OTR+t9kEec2Gkx/6ggFB8njXplP40btNDQltGprhcijveDQ +wbUdNHSWLAvJjJHH4oFL9f920jC6wkco4qY8XvCv2WLeQ4MEbbLZqFoe3UJN +KpIGaUjdMXjod508UpNH/A5+oIHqPBtS/FIeNXMbKoU/0qC+sPCF0jt5VN2g +yhcxRMM2Kxm7pZ/lcar5eJDZvzR4zU6EPOdnYAmvqYXzKHmfJ93EhoQYmHmU +ml08RgPfcFcOrwQDW8wqGu8R3+2uadOnGChfdGPB4DgNvRXX1Iq0yfWz2Tc3 +T9KQu3l5dctWBjoX737yjDiQPndwHBlY7BjBbzlFg1iGe5iqOQOthmWMHbk0 +WETodNx2ZKCHiq2K7QwNsr/zjlUeYaBgyKePb4i/+FG8PZ4M9NVb1GU0S0O0 +x4p1Ej4MdJcM8FCZo6HKvCf8UjQDp9cZrW/4TsOlWkvJ3DgGLv3L6KHqDxrs +WHXsF4kMzOjh8YklnlvH6VyUysAVikbZ8JPUg1CoRlA+AxtYOb+if9HAc4Fb +m1TMwDOiq061Ejfx/mlbXMbAkLZwZZnfNBzl7o2YeMZAoUBr6yxiXe96qVUv +GRgEYu+GiPk+baXVXjOQWZh+TWGehswOhW73LgbWNvV++Jv4lGXyiYg+Bm5+ +xPVpJMYG/iV3PjBwtPGWOQ9PPghsD7tR9S8Dy+0SPNcT95RNr+8dZeDXA0HN +9sS5WkfrfkwysMBa9Fw0cWBe3yHJOQY2Zgn70cRit55HWvFS+CRM1HCW+IM4 +S/oUH4Ve/ZEyEgvyoSAhPz+en0KjNVu2bSIOWaZknCdE4Z2PA4UWxBZhKf80 +iBNvZ512J5b9IXDqszSFOWKLQoOJv5wOX7qEonCsbbznEnHpl5mbTGUKeW5X +xKYRR7t6bTBQo9By05roHOIDvf31DpoUVs98aSsiVji43z5Ym0LGWJ1/OfG3 +5hffkreS9lqfo9XEVSb60Y+QwqmahwW1xJeeFsi8M6Twbqfh7v9tp6tc+M2M +wqorn/SfEq8tvGEiuIfCbnnbiDLiOVXBXvX9FOZbOFCFxNOpUqEbbSn80zhi +z33iqVWKCjqOFPq5OI+lEE+EatTrH6Gw6dWD+Vji0UmdP3d4knZDqbAA4hHX +Hfxm3hTOy3j6Hyb+3L6btjhNoZyuZb858UdTm337AyjcsSquXJP4fdnhaduz +FFKZ7atEifvUvZOdwig0T/jSziXz8c+tAD23KAoLf0SJtRJ3/hHed/QihTvT +3F5xiNvC48JOXqYwptLw+//z+5b7t6L/dQqXaw+mOxK/ds94HnyDQn73X1Ub +iRvMHwlE36XQzCrzRCv5nurLn+bHPSDznU4vuE1cq/HK6gqHwoV1W1YdJa4Q +HkhJK6HwxounGTPkey2LGGFlVlBof8NobSnx4xluf3YNhYrqFpqBxAXdy5WL +GilUOjlX9Y3UA2eXaENpC4VtXkzzHOLcSrljVe0UXisdOOhMnHVHq/DlAIUP +ajV/PiP1lXLUAd5zKXx+uyviJKm/v3s83n/6TmFeoIOuGPFVi9MRX+cpbLTN +93/8f/1ujH45u4yJY+Ej8VxS32E/8g+ukmWi+5OBnXtJ/Z8/9uS7CJOJxR7L +HQZJPgT31aVKqTBRb63D75PEfjXdg4obmBh9v2IsaprU64XFJ/SMmHh+aHHu +dZI/Hr9WCW8zZ+Iwj9IuEWK341LFxnuY2J3/NTye5JXTPo2fe22ZKBddVnTu +Gw1Wq22iPb2Z6LXDxQBJ3unl5KZfv87EVQY/C/aM0NAtn3PL8AYTBzi6YYXD +JO+uZ6dN3WLinTzt7SLEj0Kzbu7NZmIi/5rU5s8kb6zTkwSeMNFg9ECtOsnj +NYuvJkQOMHGxIzcoup+G54GJ8ZuGmHjmon9pQx8Z33jCpQ/DTOQKDnGXE2d2 +x13cNsVE01uObhFkPZAviIr+vUQBNUrLDFy6SL46BoX4qSlg2cu+sCdvaShq +PXNeUVMBX06LDPW2kOcxCzjXukkBfZaWWs6/oSFxk2/wBlBATisY6r6mgX/l +8YBRSwVcr1+Zn/SKhkUlLifc/BVwklNkOFtLw4SQmdOBagW0DbRINCbrbYcX +9frPegXkGrh5ihSSPK77Dudfkf4HbFb25dOQEJgjd79NAQ+eeFpyjEPD+vcr +++aGFVC0f3nTiQc0eOc326cKK6LT6ZASgXQahi32H/pwRBEPB6lep2NoaMlW +fznrqYj1lu9at5D9QSnvkq38xxXx8tX98xVk/xDzqFhK+4wi2haPrn4WToOK +nERXVJwihv9Yk/D4LA3uo13WqsWKGJjNNWOdpOHDRacDp5Yq4eKaRLNnB0j/ +w2rU+pVKGBNV7rF2Pw0zxnNfvwoqoVqFamvcPhqW8yZGeEopYbK7wXWLPWT8 +Z2oeOqkrYYXLkb4KUxrOuioJW+xTwqTkR0a79Mj71//SrHpLCR8rKQZryJP1 +fszf9KO2Mi5x/6jlW8cBaU3ZSD49ZbykxZ6VqebA6KnaalUDZQw7ytleU86B +q9OCeqfMlXFksV8AbxEHen9lr5t3VMbhBf03bcn+8NTKf4QlY5SxpM31tet5 +DqSswd6d3cq4Rqrx87wW2U8e5jv98LwKCrjEFNVcZ5P/C/GFUdVrcF9jo9Fe +yAOhRqVL9NharOj+00qnNwekozl7tLXV8Fv2lMDiHQ8gSVVHUNhdHSf+2r4h +t+A+NEgZbJq8vA4/Qd7Iedl7oCtdnaDRpoHTbtqN1S53QYA3w8c5bD2+52a/ +8H52B2RD5fRslDSxdnH3Vp6VGbBM0a54b70mahV8rt3slg7rWJIcf/sN+PzR +AucX71LhVK9QjRnPRmyJTuJxqk2BscmL+02TNqLu3SY+rkASGGvUpZiqa2Hn +XGpVYfw1qJjc+mOmSQurkugTr5ddAW+1DV1vXDdhVn9tBfQkAGv0SKvNMm2M +DOBNHfWIA0MFiV38GdponzTyIKYiBlRCYgOqN29GocJFqY7BkbDWVadSsWsz +CpgsNZuwCAfXCo+/Hp7cgs6bAiKlc0OgMr31yISoDr5hOq34bRwMU/fnZzQe +6aB/dU/hna/+cFgxZ1nKLl0sP5c7t8LJBybWXtEuGNfFl++Zky1LTsLjzB8D +3OitOHSx95nZfS+w3cHErbJ6GJN8MDFKzANWH4sqWVelh/0/4uMPdx4G0eVe ++bsOsrD1s1XVlbNOkLn9bOC4DQtlvGQV6487wYazl7ZfsWOh75Kr1xe5OMHu +cfpdhzMLfw0ujE41coLINu7cYS8Wso0HeIwFnWA24/y2wFAWJtuYuAyZOULX +1itvs3JYOLTN0FGQbQ8evpk3TdksvJkW1jd41R6m2UWuX2gWKnmpLmsIsgch +qmNGs5iFeSoDqk2m9mDOJyNdXsXCzOYy34dDdvCkNevI23ekXd3aaYxpB2YC +j9X9Olg4ELxF//MKO+gwfjEt0c1C7Y4FIpOTh2CqdCTaoZ+FAqJRQfq1h0D9 +9vq8f4dZWLzpLV+O6yF40mXgd/ErC7sX7PfZsPsQmInsA41xFjoP3Qp5qX0I +3KJ83/hwWRjbs2/PBj5yv6rIFPFZFk7tXPN7ftwWwr7/fbj0OwuL4tMZfZ22 +IKiVrWb/i4VxVd85zdW2kHaslDs/z8JrNmfT3uTYwn+JlGC2 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06643323290769826}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06643323290769826}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913298974454536`*^9, 3.994251723339732*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"670a73a0-c84c-499a-b376-1f8d8e9edafc"] }, Open ]], Cell[CellGroupData[{ @@ -8395,26 +8457,30 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], - ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -8436,66 +8502,70 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[173]:=",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], + "In[100]:=",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 173, 129, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913298974999084`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.828699418657412`*^-177\\\", \ +RowBox[{\\\"240596938679980309735403\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"84\\\", \\\"\[RightSkeleton]\\\"}], \\\"4000000000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 100, 17, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913298974999084`*^9, 3.994251723501779*^9}, CellLabel-> "During evaluation of \ -In[173]:=",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], +In[100]:=",ExpressionUUID->"8e215057-3515-42bf-9a80-1e0ac659794a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 173, 130, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329897510906*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.261727114208004`*^-181\\\", \ +RowBox[{\\\"650574122190666757524531\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"87\\\", \\\"\[RightSkeleton]\\\"}], \\\"6000000000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 100, 18, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913298974999084`*^9, 3.9942517235119867`*^9}, CellLabel-> "During evaluation of \ -In[173]:=",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], +In[100]:=",ExpressionUUID->"2e94e76c-b7c9-4c6e-ba12-dbbb4db34227"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 173, 131, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913298975189075`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.1441044959479576`*^-184\\\", \ +RowBox[{\\\"182746270923358292188640\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"91\\\", \\\"\[RightSkeleton]\\\"}], \\\"4000000000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 100, 19, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913298974999084`*^9, 3.9942517235216703`*^9}, CellLabel-> "During evaluation of \ -In[173]:=",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], +In[100]:=",ExpressionUUID->"20ce9531-2792-455b-8058-38678e6aebd3"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 173, 132, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329897526905*^9}, +during this calculation.\"", 2, 100, 20, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913298974999084`*^9, 3.994251723530699*^9}, CellLabel-> "During evaluation of \ -In[173]:=",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], +In[100]:=",ExpressionUUID->"bd15d206-bf8a-427b-9fcc-79033baaa46b"], -Cell[BoxData["9.77956849963325`"], "Output", - CellChangeTimes->{3.991329904262455*^9}, +Cell[BoxData["11.442662364702151`"], "Output", + CellChangeTimes->{3.991329904262455*^9, 3.994251802436492*^9}, CellLabel-> - "Out[173]=",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] + "Out[100]=",ExpressionUUID->"82a89ff7-85cb-4d90-b13d-dbf1f151d52e"] }, Open ]], Cell[CellGroupData[{ @@ -8562,68 +8632,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918489049186344`*^9, - 3.991848908595253*^9}},ExpressionUUID->"eb852908-4d60-c84e-80d9-\ -a57fd4094f56"], + CellChangeTimes->{{3.9918489049186344`*^9, 3.991848908595253*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 174, 133, 24483298974280422597, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329904300501*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.689510505513958`*^-205\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 101, 21, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329904300501*^9, 3.994251802511354*^9}, CellLabel-> "During evaluation of \ -In[174]:=",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], +In[101]:=",ExpressionUUID->"d9580d45-fc0f-45c8-a3e2-fa72f16d2f5b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 174, 134, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329904310505*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.7013630057003245`*^-210\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 101, 22, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329904300501*^9, 3.994251802521882*^9}, CellLabel-> "During evaluation of \ -In[174]:=",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], +In[101]:=",ExpressionUUID->"f21b6339-2fa7-4560-9078-d0ea95c72aef"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 174, 135, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299043185062`*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.218154963906268`*^-215\\\", \ +RowBox[{\\\"143094757247897252281238\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"64\\\", \\\"\[RightSkeleton]\\\"}], \\\"3737600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 101, 23, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329904300501*^9, 3.994251802531454*^9}, CellLabel-> "During evaluation of \ -In[174]:=",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], +In[101]:=",ExpressionUUID->"dc98fcaa-8794-4f04-889c-c1039dc22427"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 174, 136, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299043256874`*^9}, +during this calculation.\"", 2, 101, 24, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329904300501*^9, 3.994251802541667*^9}, CellLabel-> "During evaluation of \ -In[174]:=",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], +In[101]:=",ExpressionUUID->"cac73a18-321b-4dcd-ac21-bf6bf25186cc"], -Cell[BoxData["0.1491428555515254`"], "Output", - CellChangeTimes->{3.9913299110465336`*^9}, +Cell[BoxData["2.3708401043227783`"], "Output", + CellChangeTimes->{3.9913299110465336`*^9, 3.994251814035767*^9}, CellLabel-> - "Out[174]=",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] + "Out[101]=",ExpressionUUID->"8ebb6a38-383e-4c91-a8d2-34d3d31f5c70"] }, Open ]], Cell[CellGroupData[{ @@ -8644,8 +8718,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8690,68 +8763,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918489121661835`*^9, - 3.9918489145264854`*^9}},ExpressionUUID->"d11037f6-09e7-b44f-8a1d-\ -47c1a485c608"], + CellChangeTimes->{{3.9918489121661835`*^9, 3.9918489145264854`*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 175, 137, 24483298974280422597, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329911081766*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.689510505513958`*^-205\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 102, 25, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329911081766*^9, 3.9942518140903063`*^9}, CellLabel-> "During evaluation of \ -In[175]:=",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], +In[102]:=",ExpressionUUID->"445f4324-f47c-4f9b-83c0-772440b6e46d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 175, 138, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329911090769*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.7013630057003245`*^-210\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 102, 26, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329911081766*^9, 3.9942518141029263`*^9}, CellLabel-> "During evaluation of \ -In[175]:=",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], +In[102]:=",ExpressionUUID->"fe6fb6f4-c27e-4278-a6b1-d7c3e5b80e3c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 175, 139, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329911098768*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.218154963906268`*^-215\\\", \ +RowBox[{\\\"143094757247897252281238\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"64\\\", \\\"\[RightSkeleton]\\\"}], \\\"3737600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 102, 27, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329911081766*^9, 3.994251814114208*^9}, CellLabel-> "During evaluation of \ -In[175]:=",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], +In[102]:=",ExpressionUUID->"4828f25b-b1a9-419d-a9dc-11377693c0b8"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 175, 140, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299111067944`*^9}, +during this calculation.\"", 2, 102, 28, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329911081766*^9, 3.994251814124861*^9}, CellLabel-> "During evaluation of \ -In[175]:=",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], +In[102]:=",ExpressionUUID->"3d0b0eb0-deef-4a53-a646-6492472bad9b"], -Cell[BoxData["6.5928699937564845`"], "Output", - CellChangeTimes->{3.9913299163114815`*^9}, +Cell[BoxData["39.552191308974706`"], "Output", + CellChangeTimes->{3.9913299163114815`*^9, 3.994251824912529*^9}, CellLabel-> - "Out[175]=",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] + "Out[102]=",ExpressionUUID->"3c24641d-af42-4a8f-9ec5-80b16901e87b"] }, Open ]], Cell[CellGroupData[{ @@ -8772,8 +8849,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8818,68 +8894,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918489192162857`*^9, - 3.991848922582632*^9}},ExpressionUUID->"431dd2fa-6331-2449-bc19-\ -0d79e6ed8953"], + CellChangeTimes->{{3.9918489192162857`*^9, 3.991848922582632*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 176, 141, 24483298974280422597, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299163444805`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.689510505513958`*^-205\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 103, 29, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299163444805`*^9, 3.994251824980805*^9}, CellLabel-> "During evaluation of \ -In[176]:=",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], +In[103]:=",ExpressionUUID->"067b2b99-2c22-4f93-9c55-271d17c61f00"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 176, 142, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329916354479*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.7013630057003245`*^-210\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 103, 30, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299163444805`*^9, 3.994251824990749*^9}, CellLabel-> "During evaluation of \ -In[176]:=",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], +In[103]:=",ExpressionUUID->"8887b464-e6c8-4d4a-89a4-0fca65c701b6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 176, 143, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299163634796`*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.218154963906268`*^-215\\\", \ +RowBox[{\\\"143094757247897252281238\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"64\\\", \\\"\[RightSkeleton]\\\"}], \\\"3737600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 103, 31, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299163444805`*^9, 3.994251825000812*^9}, CellLabel-> "During evaluation of \ -In[176]:=",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], +In[103]:=",ExpressionUUID->"dc93013a-c6c7-4e2d-9063-6eb08e12916f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 176, 144, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329916371479*^9}, +during this calculation.\"", 2, 103, 32, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299163444805`*^9, 3.994251825009212*^9}, CellLabel-> "During evaluation of \ -In[176]:=",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], +In[103]:=",ExpressionUUID->"47d2463c-0ffb-4347-ac11-3a631212a8d6"], -Cell[BoxData["16.916908616104454`"], "Output", - CellChangeTimes->{3.9913299193276234`*^9}, +Cell[BoxData["10.803385245021177`"], "Output", + CellChangeTimes->{3.9913299193276234`*^9, 3.994251833999941*^9}, CellLabel-> - "Out[176]=",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] + "Out[103]=",ExpressionUUID->"f9f4a5d7-c3ac-4a45-a629-97afa86c7b71"] }, Open ]], Cell[CellGroupData[{ @@ -8888,22 +8968,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991848926103155*^9, - 3.9918489295815735`*^9}},ExpressionUUID->"8c5df121-e0b9-a146-bc34-\ -b231aa8028b9"], - -Cell[BoxData["0.01412227604937243`"], "Output", - CellChangeTimes->{3.99132991935894*^9}, + CellChangeTimes->{{3.991848926103155*^9, 3.9918489295815735`*^9}}, CellLabel-> - "Out[177]=",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] + "In[104]:=",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], + +Cell[BoxData["0.11469303854128836`"], "Output", + CellChangeTimes->{3.99132991935894*^9, 3.9942518340504503`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"25e9f2c8-b9ae-4c3f-b1ce-87666f180840"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918489327910748`*^9, 3.991848934830887*^9}, - 3.991924914130762*^9},ExpressionUUID->"831a27fc-89ff-e041-97f1-\ -0ec5d19a7879"], + 3.991924914130762*^9}, + CellLabel-> + "In[105]:=",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], Cell[CellGroupData[{ @@ -8926,12 +9007,12 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[179]:=",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], + "In[106]:=",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], -Cell[BoxData["8.947947137013426`"], "Output", - CellChangeTimes->{3.9913299193849545`*^9}, +Cell[BoxData["5.82655858930626`"], "Output", + CellChangeTimes->{3.9913299193849545`*^9, 3.994251834075673*^9}, CellLabel-> - "Out[179]=",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] + "Out[106]=",ExpressionUUID->"d440e024-8d72-4e45-b7ca-6538341b1228"] }, Open ]], Cell[CellGroupData[{ @@ -8941,12 +9022,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[181]:=",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], + "In[107]:=",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], -Cell[BoxData["1.2539951617800844`"], "Output", - CellChangeTimes->{3.9913299194207077`*^9}, +Cell[BoxData["4.347623476662995`"], "Output", + CellChangeTimes->{3.9913299194207077`*^9, 3.994251834090582*^9}, CellLabel-> - "Out[181]=",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] + "Out[107]=",ExpressionUUID->"56682dde-915d-4cef-954d-81a91075f90a"] }, Open ]], Cell[CellGroupData[{ @@ -8956,12 +9037,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[184]:=",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], + "In[108]:=",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], -Cell[BoxData["11.220682417678793`"], "Output", - CellChangeTimes->{3.9913299194738407`*^9}, +Cell[BoxData["25.331682911020316`"], "Output", + CellChangeTimes->{3.9913299194738407`*^9, 3.994251834105626*^9}, CellLabel-> - "Out[184]=",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] + "Out[108]=",ExpressionUUID->"80f591e1-cd3e-46b2-afea-824ee901a281"] }, Open ]], Cell[CellGroupData[{ @@ -9151,12 +9232,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[185]:=",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], + "In[109]:=",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], -Cell[BoxData["0.04472011299838893`"], "Output", - CellChangeTimes->{3.991329919501911*^9}, +Cell[BoxData["0.006214911559604771`"], "Output", + CellChangeTimes->{3.991329919501911*^9, 3.994251834124625*^9}, CellLabel-> - "Out[185]=",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] + "Out[109]=",ExpressionUUID->"53b903cd-7fcc-49a5-b896-23e768970ee1"] }, Open ]], Cell[CellGroupData[{ @@ -9170,12 +9251,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[186]:=",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], + "In[110]:=",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], -Cell[BoxData["4.190766798679958`"], "Output", - CellChangeTimes->{3.991329919596855*^9}, +Cell[BoxData["11.241582816235853`"], "Output", + CellChangeTimes->{3.991329919596855*^9, 3.994251834325431*^9}, CellLabel-> - "Out[186]=",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] + "Out[110]=",ExpressionUUID->"50ccc7ba-e666-495f-bc49-11cad28463ab"] }, Open ]], Cell[CellGroupData[{ @@ -9367,12 +9448,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[187]:=",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], + "In[111]:=",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], -Cell[BoxData["0.014190600885170185`"], "Output", - CellChangeTimes->{3.9913299196126003`*^9}, +Cell[BoxData["0.037119706062263204`"], "Output", + CellChangeTimes->{3.9913299196126003`*^9, 3.994251834342659*^9}, CellLabel-> - "Out[187]=",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] + "Out[111]=",ExpressionUUID->"97da76e4-d087-4d36-8d3f-b91d3ec467ce"] }, Open ]], Cell[CellGroupData[{ @@ -9386,12 +9467,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[188]:=",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], + "In[112]:=",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], -Cell[BoxData["7.439513700547701`"], "Output", - CellChangeTimes->{3.9913299197036095`*^9}, +Cell[BoxData["4.599839479857992`"], "Output", + CellChangeTimes->{3.9913299197036095`*^9, 3.994251834527719*^9}, CellLabel-> - "Out[188]=",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] + "Out[112]=",ExpressionUUID->"a2731960-75d4-4c58-9627-97c641384299"] }, Open ]], Cell[CellGroupData[{ @@ -9484,12 +9565,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[189]:=",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], + "In[113]:=",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.9913299197165985`*^9}, +Cell[BoxData["0.09821679951903568`"], "Output", + CellChangeTimes->{3.9913299197165985`*^9, 3.994251834542708*^9}, CellLabel-> - "Out[189]=",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] + "Out[113]=",ExpressionUUID->"964742df-94dd-40c3-babc-2da06c6fd03c"] }, Open ]], Cell[CellGroupData[{ @@ -9579,12 +9660,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[190]:=",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], + "In[114]:=",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.991329919739599*^9}, +Cell[BoxData["0.9017832004809644`"], "Output", + CellChangeTimes->{3.991329919739599*^9, 3.994251834558631*^9}, CellLabel-> - "Out[190]=",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] + "Out[114]=",ExpressionUUID->"97665a3f-c980-4c51-8b15-0a67a70591f3"] }, Open ]], Cell[CellGroupData[{ @@ -9707,12 +9788,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[191]:=",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], + "In[115]:=",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913299197646008`*^9}, +Cell[BoxData["0.08857025981127323`"], "Output", + CellChangeTimes->{3.9913299197646008`*^9, 3.99425183457787*^9}, CellLabel-> - "Out[191]=",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] + "Out[115]=",ExpressionUUID->"77d5a5d6-beea-46ee-ada1-44214ee8163b"] }, Open ]], Cell[CellGroupData[{ @@ -9727,30 +9808,33 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -9774,68 +9858,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991848964116934*^9},ExpressionUUID->"220bdeed-2e17-e94c-a7b0-\ -3e066daf15d7"], + CellChangeTimes->{3.991848964116934*^9}, + CellLabel-> + "In[116]:=",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 192, - 145, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329919788595*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.562847661786641`*^-214\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 116, 33, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329919788595*^9, 3.9942518346008587`*^9}, CellLabel-> "During evaluation of \ -In[192]:=",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], +In[116]:=",ExpressionUUID->"0009f3c8-829e-4e98-adeb-754648f70bb8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 192, - 146, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299197985992`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.856292636930497`*^-219\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 116, 34, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329919788595*^9, 3.994251834611343*^9}, CellLabel-> "During evaluation of \ -In[192]:=",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], +In[116]:=",ExpressionUUID->"ab8ef3af-abca-445e-9ff4-8b00599f2949"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 192, 147, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299198065968`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.7880078916745698`*^-224\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 116, 35, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329919788595*^9, 3.9942518346199512`*^9}, CellLabel-> "During evaluation of \ -In[192]:=",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], +In[116]:=",ExpressionUUID->"e3ce1a38-bb42-463e-8466-2d59a3836ee7"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 192, 148, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329919814598*^9}, +during this calculation.\"", 2, 116, 36, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329919788595*^9, 3.994251834629006*^9}, CellLabel-> "During evaluation of \ -In[192]:=",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], +In[116]:=",ExpressionUUID->"bc72ed68-8cd0-4faa-9ebd-02d1cefde747"], -Cell[BoxData["4.190766798679958`"], "Output", - CellChangeTimes->{3.991329923627493*^9}, +Cell[BoxData["11.241582816235836`"], "Output", + CellChangeTimes->{3.991329923627493*^9, 3.994251842959427*^9}, CellLabel-> - "Out[192]=",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] + "Out[116]=",ExpressionUUID->"9cd894b1-dc78-44df-94bd-30db4309563f"] }, Open ]], Cell[CellGroupData[{ @@ -9850,30 +9938,33 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -9897,68 +9988,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918489685110855`*^9},ExpressionUUID->"b8791a07-33fe-8c4f-9c59-\ -dd23af9a4471"], + CellChangeTimes->{3.9918489685110855`*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 193, - 149, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299236609*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.562847661786641`*^-214\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 117, 37, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299236609*^9, 3.9942518430158577`*^9}, CellLabel-> "During evaluation of \ -In[193]:=",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], +In[117]:=",ExpressionUUID->"7442ef00-a588-404e-af2e-02da03f302fd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 193, - 150, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329923669897*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.856292636930497`*^-219\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 117, 38, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299236609*^9, 3.994251843025159*^9}, CellLabel-> "During evaluation of \ -In[193]:=",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], +In[117]:=",ExpressionUUID->"aaca2a3a-b3d7-4f38-8d26-be83085966dd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 193, 151, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299236779003`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.7880078916745698`*^-224\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 117, 39, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299236609*^9, 3.9942518430353937`*^9}, CellLabel-> "During evaluation of \ -In[193]:=",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], +In[117]:=",ExpressionUUID->"0f66b000-2046-453e-b7be-4f03533d7305"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 193, 152, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299236858997`*^9}, +during this calculation.\"", 2, 117, 40, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299236609*^9, 3.994251843042742*^9}, CellLabel-> "During evaluation of \ -In[193]:=",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], +In[117]:=",ExpressionUUID->"0159ef3d-36f3-4e71-b38e-cb2b09e09e06"], -Cell[BoxData["7.439513700547696`"], "Output", - CellChangeTimes->{3.9913299274564743`*^9}, +Cell[BoxData["4.599839479857989`"], "Output", + CellChangeTimes->{3.9913299274564743`*^9, 3.9942518512831078`*^9}, CellLabel-> - "Out[193]=",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] + "Out[117]=",ExpressionUUID->"85266473-c2c6-4291-8627-1f2dbe111096"] }, Open ]], Cell[CellGroupData[{ @@ -10016,93 +10111,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991848973885317*^9},ExpressionUUID->"3fe6e7f1-b44a-234f-af77-\ -3cf1fdaf28d9"], + CellChangeTimes->{3.991848973885317*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R -gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj -6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 -eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx -TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY -kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 -AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM -TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ -D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez -H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ -bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 -lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ -rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx -4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW -PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi -4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs -Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw -wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L -k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 -IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB -vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 -Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r -8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 -/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn -edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb -93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG -o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo -GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV -lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he -nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X -vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ -ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN -G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz -Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w -2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF -j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 -ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g -jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz -AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY -1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ -R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n -6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR -Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 -yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA -Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU -9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 -32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn -Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia -EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu -PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG -W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ -eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb -Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU -YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ -t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben -tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 -Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh -fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 -vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz -sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ -3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 -ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa -b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO -dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL -SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR -jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX -XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz -lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy -r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc -IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH -91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 -uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga -BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 -yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl -TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== - + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk4VdsbB3CRBlOGECJjXURyEFLrDQ1mkTLlcpy9SUime0LUz9AtkqRw +byIpkumQCHVlKCJkalJR6JiOaQtF/ZY/9rOfz7P2833ftfZaS4F+yo7g5uLi +YuNn5X26TXNbRUfb3l0bzdtD89loLydHl25agByMNBZX3J+pl6JsWoPM33eF +/oVty3i1RoDWiC5w9hxiYrOYUfW8pq2o5sxJvzPYF59vqo3Kf43WnnUdDsN+ +3HH61pJ2D6pcFC6LwB59/zLiTPVbFDD9d1cktvSQkst3kz6kQTYcPI9tMRlh +ENT6GYk612+IwX66NMrPzB9Ate2x6hewe89Lhj/y/4q+NfP/ewmbs8Z0lNIe +Qj0WDm6J2GsSApxo88Ooy5EekowtJ5LRdLqajUop7f4b2NYy3+9xTMaRzYgc +KwubzFKU0FjHQQvmhpL3sKNUbGJPtk4iGyup1w+w30p27wzOn0aqZopQic1w +9jlxLWEGrba2nHuKPXWT63ap/yxS4TP81Yi9TlFDeFp7DgnUufP3YKcw6g8K +i39HmS3pGz5iy+c6Re2Y/47qc294DWHrb4/j+FUvoPDvH0Tnsb31PreOmiwh +5+7rR+UesBHFDFnNt3UZMY9xFv7APlfNb6S67hdanOabpGGngf4Dr9bfyO96 +Uq85NuNuk2lg/iqgPW1LjsDOf36t/7wMNxxWMuu6iD31zS3iagI3RM1f8ErF +jlCbKyvx54FQOfv4MuyUYgWlSW1e8OyQr53Eft8x/vTXHV6oEq+99RtbfqbC +WUh8DfjrKL/eUMBGBTrWyRrza8BJf/fOndgNj8NW+Vavg7bV9z79hT1X3/WZ +bSIAlrMRnI2FbCRqKSAc/lQApCqqutSxtbpNQdBAEIym/WRMsH0Gy7N2agoB +qabbGYgdwN2qtUdAGBqDzT72Yg8pFk3HfheBb61ZJ1hFeH3Il+vbaaJwHBmH +tmFzPxhW2HRaFLr7nIfGsOVpW+zyx0RBTWxmdFsxGzmbJJW29YtBwofqaznY +7Z6BQZIt4sAT+c6lpISNPuUmxruvk4C+mqUrXdjjY/l37u+XgGXD9K3z2HzB +X7t210rAUtzecMRiI9OYIzru5ZJw3m9vXTd2VY7eXF6mFERL6b4QKWOjnKEf +oYbBsrB9aXNRTzkbHXK48CmoUBbkbqSv436E8xvEDhQOy4JG7FylJrZOznZx +eSc5uPnTQuYidgPdrYx37xaYuvDX8L4KNpqZ7P+LHS0Pmm1jN+or2UjMz/Rh +mZUi9Bv4eKytYaPhHD5vWx9FSKa2MPdiV/Z1yEzEKUK3YdVgCLar5fHorbWK +0CmX8d8Qdo56qF26thKs2qcQ0fwE1x/NnYqUVAamr4Xw7f/Y6IgXv4b5gAqc +uBd8L6mejVCog/axZRVY9C3TfI2tFpu5iyG1FVKt4taLNrAR1x2aceThrTAq +M/IoBbvwk8ux0mdb4Ypa3lRGIz6fRwvOS2dvA/cTev3/vcD9mVr1jtJVwWX3 +eMm+Vja6Y5/6YT5SFXy+CiQkYCfSB/pX/6sKG7tePH6DzTgXMibXpQqkg6Dg +qVdsJFKTwWVvogYoqi/5dhvePzSOWrWSOsT7VspIvGYjGcUrUfGD2yG197XS +nl42qrlEqS5ya8CnL+WJ6dius07dpIIGmDG6nb9j32pQVjV20wB65zMJ1hs2 +UvSq6lx4owEyZYSs+js834IhFbJFE24gAXJnHxvJysiR8k5aEJd8fzjuCxtt +vxss8BNpg4HYrTKHKTaiM6LnNKy1oWv63e067DSl5E/urtpwwLBrcMc0G/Fk +F5c8Z2qDXMcvb/4ZfN5ujR5JZmlDfBjyeT6L79M09wxVJRqEpVy1tZzH/zfe +UtNxjQ7ImjQWpv5io9uByrblrbrg07rh4XahEdQRinbF3DWAJ7t53kXqjCAF +tx7r4757wLZkSm+7+wgifj8qkj0DYFyXS7NLHEGSY5VrJenGIPJQjW/f8xEU +TDPqS1YzBVZ6yMLy7xFEn1hqEhvdD9LeRGPtnlFUaBy0NrP9IGxieHpEx42i +HMrnWUGKGTjmZj2obx9FC/s2vWqIsgBjmW8HKeUx9JGLZ3rAwwq2NWtmuEWO +If/Np5LOK9kAWZNb2ts7hopONNVej7WFGh7CTN9oHIXNSs2rnzgMCcvFc+2Z +42jO/MDRF3/agVDIeMl34Qlk4HJ139Bhe/Bx0AlSip1AnVIZPg20I/B7nq+g +Z24CSd+Lrsn7wwHaKhbmA4I5qLJfzdJa8ChY5xh2RnI4SK57yit04ijstNKP +8T8xiWjXrxbc6T8GfMI+GUIzkyhj9axmcr0jDEY0vZMwnEKP9u14H/vYCYTe +p12vOz+F0nZdElnKdwbFxVVLS01TqP3D3ThaggtkWBzTHuafRuVWN5UDzrnC +7/oKg6wj02jaz57Ln3EczhxqenY4bRrNHVD15pi4AWEqGa7yfhrlTbxbCNL7 +E7hc3S8nyc8gx9t3PY8LuEPxQZuzI+4zqKzU4k+eC+6g1lcnXpkzgwxkOhcv +LrrDf35l354NzCClfq/3r094gPTGqs18MrNokP+kzc2vHkA9qvLqcZhFHYnW +ngcd6PBm2GhK4eIsSmFm8od00EHi8ilVp5pZVPP096KnmSfslDEfeDIyiza4 +wgValSfwHasvddhAIfmNL9o313jCdUcXeQ62VqvVpjVPPUGq/cjOOGEK2Rm5 +3H/7zBPom9bvKRehUMrm0JazzZ6Q3d6wILSRQtIfH2xoeusJw4T8eMkmCim7 +Saa5znvCr6k2qSIFChm4c/JidRhgpb6D+bc2he6lTwVZ6zHgU7TzWS4ahTZ2 +zeyV1Mdm121nYnP2z3fn7WaApTvvJVKHwvcX16pWYwa4a/oZIT0KCc2LOIke +ZsAgo+10vwGFBi/rrs/0Y0Azx+X+AFAosTriROU9Bri86W38YEUhP+1UA2Ye +A6Lbfo7ttqaQ5X3Wev18Boy7fa7+F5svdfh+RSED8sYfODrbUCg20Hb00UMG +/Mjpj+mypVCEqvLJ8joGJCYK3iy3p5BPaotv6ScGLDlG+ug7UchMaNgosJ8B +FtU/ii5j/xHLJaj9hQGV79L+/YI9HKhbyBrCeXXr/eKdKeRhnTlRMs6Ahe1+ +k29dKOTIG+Rf/IMBfgNvvTzdKHQwSDqgQIKA2mZWr64nheoy48yTNxHweXCr +XRy2UeuMMlOaALOWSEYvtpZKyzsTOQJuvsyyCmFQSOpNuMkHFQJ+rtXTKiIo +NGb4UYJPl4DL2QrqAt4UusKd9cTLngCbKN9Mpi+e/w6BNCsHAli+xp+qsWNc +mIG0YwTksnxKf2EzH9pu++1MQF5zjHS0H+6fXHX1Bp2A0sYcdpw/hWgv6YzG +0wR0DvwIDAug0JurKvxKSQTcrxr4LhxMoSIk6M2+SoBgpqKuCXbMBNVQeI0A +qwoP8RBsbbOGSP1UAiJ7aqrfYCdyec5Y3SLgB790ZloIhQ6cynrHLCBg7O2u +qnV/UUhW9m+9vUUE9On+2qiLTb08dY2nhAB/ezsRD+zsrcgqsYwAj/SLnArs +5Y8fa+9UEWD/IcrQg0mhh5YyeW1NBDDcxMWyz1Ao/gc3b8pLAsJ166KbsOl5 +ox5OrQSs3f/PdQ628OoqmcF2Ah45lN80CKOQb7XjlcVeAq6a/9zVgq2kdiNU +eYiAtC3it/rCKfTjzdmukWECvkiNyC1jd8QSWsVs/H37NZCNoFDkgM6owTgB +mkbOpCv2+7Su4zazBET3bdvdi528VmR/2CoSInre81aepVDNzEeXYB4SwrpU +s3uwv33MD/TnJUGIEf9iBtvooWkWfT0J9PiAQvVIvN/cmT/NRUiY4ewYSsUW +ttwvul+MBIWvUc0s7N27RFWROAl+Bx7rtWAnCRYcpUmR8MSv58HSynjVZ5aM +Agmy2TQu5ygKkXcLmsSVSGjttVYPwE5KOvN5gwoJdV92fI7FHibFBFerktDt +TBsoXhkXO+g9rkWCRnaX1S/sql9iUcPaJCy2lDwVPkehoZH+6/06JJxr0K1U +xDasDavv1ifhboPq/v3Yg75Fck8A1zvq8TwGW8gxXLfCGNcrVoq4hm1gcsiS +ZUqCsUdI1W3sRKkvZ+4eIqHRsKajBrtydXFSpjkJIocL8pqxv06G56Zb4no3 +Fdb3Yus/F++5bEuC6N1kzwlsOuvL2AU7EhDPpeML2JdvFnP/7wgJGW+XP3Of +p9CXQDOtUEcSFuTtIyWwBd0kDgY4k9DxTeufLdj6Zl+P+7ji/l9F7/0D+/KW +s/Fu7iTIpPxPXh+7ks8825FOQkK4uhtayZuTeGzHIOH+FRPlAyt5A1/bLUmc +F98caLmS11oyfMCbhIf7aszssOkVZ5fBB/efLn3/2Ep+tvnG3b4kFF39muS6 +kn9ZUl3XnwQVJLHKYyWfObhvRwAJ6q9YiwxsAQbLUTWQhJNny8O8sXfZRJ5S +CiZhOlc+5uRKvqFFnGwoCTurZ8T9sRNUNmVIMklYZaSuFYD9SHioTCSMhH8a +mztPYw/8ZL3kj8Drs75tOXAl/1vkAG8kCQIdu1hB2HqdFgu/o0g4PL9mYsX/ +B8sbGgI= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -10116,105 +10212,106 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R -gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj -6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 -eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx -TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY -kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 -AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM -TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ -D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez -H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ -bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 -lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ -rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx -4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW -PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi -4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs -Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw -wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L -k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 -IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB -vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 -Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r -8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 -/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn -edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb -93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG -o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo -GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV -lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he -nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X -vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ -ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN -G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz -Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w -2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF -j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 -ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g -jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz -AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY -1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ -R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n -6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR -Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 -yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA -Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU -9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 -32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn -Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia -EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu -PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG -W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ -eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb -Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU -YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ -t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben -tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 -Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh -fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 -vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz -sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ -3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 -ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa -b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO -dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL -SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR -jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX -XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz -lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy -r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc -IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH -91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 -uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga -BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 -yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl -TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== - +1:eJwV1Hk4VdsbB3CRBlOGECJjXURyEFLrDQ1mkTLlcpy9SUime0LUz9AtkqRw +byIpkumQCHVlKCJkalJR6JiOaQtF/ZY/9rOfz7P2833ftfZaS4F+yo7g5uLi +YuNn5X26TXNbRUfb3l0bzdtD89loLydHl25agByMNBZX3J+pl6JsWoPM33eF +/oVty3i1RoDWiC5w9hxiYrOYUfW8pq2o5sxJvzPYF59vqo3Kf43WnnUdDsN+ +3HH61pJ2D6pcFC6LwB59/zLiTPVbFDD9d1cktvSQkst3kz6kQTYcPI9tMRlh +ENT6GYk612+IwX66NMrPzB9Ate2x6hewe89Lhj/y/4q+NfP/ewmbs8Z0lNIe +Qj0WDm6J2GsSApxo88Ooy5EekowtJ5LRdLqajUop7f4b2NYy3+9xTMaRzYgc +KwubzFKU0FjHQQvmhpL3sKNUbGJPtk4iGyup1w+w30p27wzOn0aqZopQic1w +9jlxLWEGrba2nHuKPXWT63ap/yxS4TP81Yi9TlFDeFp7DgnUufP3YKcw6g8K +i39HmS3pGz5iy+c6Re2Y/47qc294DWHrb4/j+FUvoPDvH0Tnsb31PreOmiwh +5+7rR+UesBHFDFnNt3UZMY9xFv7APlfNb6S67hdanOabpGGngf4Dr9bfyO96 +Uq85NuNuk2lg/iqgPW1LjsDOf36t/7wMNxxWMuu6iD31zS3iagI3RM1f8ErF +jlCbKyvx54FQOfv4MuyUYgWlSW1e8OyQr53Eft8x/vTXHV6oEq+99RtbfqbC +WUh8DfjrKL/eUMBGBTrWyRrza8BJf/fOndgNj8NW+Vavg7bV9z79hT1X3/WZ +bSIAlrMRnI2FbCRqKSAc/lQApCqqutSxtbpNQdBAEIym/WRMsH0Gy7N2agoB +qabbGYgdwN2qtUdAGBqDzT72Yg8pFk3HfheBb61ZJ1hFeH3Il+vbaaJwHBmH +tmFzPxhW2HRaFLr7nIfGsOVpW+zyx0RBTWxmdFsxGzmbJJW29YtBwofqaznY +7Z6BQZIt4sAT+c6lpISNPuUmxruvk4C+mqUrXdjjY/l37u+XgGXD9K3z2HzB +X7t210rAUtzecMRiI9OYIzru5ZJw3m9vXTd2VY7eXF6mFERL6b4QKWOjnKEf +oYbBsrB9aXNRTzkbHXK48CmoUBbkbqSv436E8xvEDhQOy4JG7FylJrZOznZx +eSc5uPnTQuYidgPdrYx37xaYuvDX8L4KNpqZ7P+LHS0Pmm1jN+or2UjMz/Rh +mZUi9Bv4eKytYaPhHD5vWx9FSKa2MPdiV/Z1yEzEKUK3YdVgCLar5fHorbWK +0CmX8d8Qdo56qF26thKs2qcQ0fwE1x/NnYqUVAamr4Xw7f/Y6IgXv4b5gAqc +uBd8L6mejVCog/axZRVY9C3TfI2tFpu5iyG1FVKt4taLNrAR1x2aceThrTAq +M/IoBbvwk8ux0mdb4Ypa3lRGIz6fRwvOS2dvA/cTev3/vcD9mVr1jtJVwWX3 +eMm+Vja6Y5/6YT5SFXy+CiQkYCfSB/pX/6sKG7tePH6DzTgXMibXpQqkg6Dg +qVdsJFKTwWVvogYoqi/5dhvePzSOWrWSOsT7VspIvGYjGcUrUfGD2yG197XS +nl42qrlEqS5ya8CnL+WJ6dius07dpIIGmDG6nb9j32pQVjV20wB65zMJ1hs2 +UvSq6lx4owEyZYSs+js834IhFbJFE24gAXJnHxvJysiR8k5aEJd8fzjuCxtt +vxss8BNpg4HYrTKHKTaiM6LnNKy1oWv63e067DSl5E/urtpwwLBrcMc0G/Fk +F5c8Z2qDXMcvb/4ZfN5ujR5JZmlDfBjyeT6L79M09wxVJRqEpVy1tZzH/zfe +UtNxjQ7ImjQWpv5io9uByrblrbrg07rh4XahEdQRinbF3DWAJ7t53kXqjCAF +tx7r4757wLZkSm+7+wgifj8qkj0DYFyXS7NLHEGSY5VrJenGIPJQjW/f8xEU +TDPqS1YzBVZ6yMLy7xFEn1hqEhvdD9LeRGPtnlFUaBy0NrP9IGxieHpEx42i +HMrnWUGKGTjmZj2obx9FC/s2vWqIsgBjmW8HKeUx9JGLZ3rAwwq2NWtmuEWO +If/Np5LOK9kAWZNb2ts7hopONNVej7WFGh7CTN9oHIXNSs2rnzgMCcvFc+2Z +42jO/MDRF3/agVDIeMl34Qlk4HJ139Bhe/Bx0AlSip1AnVIZPg20I/B7nq+g +Z24CSd+Lrsn7wwHaKhbmA4I5qLJfzdJa8ChY5xh2RnI4SK57yit04ijstNKP +8T8xiWjXrxbc6T8GfMI+GUIzkyhj9axmcr0jDEY0vZMwnEKP9u14H/vYCYTe +p12vOz+F0nZdElnKdwbFxVVLS01TqP3D3ThaggtkWBzTHuafRuVWN5UDzrnC +7/oKg6wj02jaz57Ln3EczhxqenY4bRrNHVD15pi4AWEqGa7yfhrlTbxbCNL7 +E7hc3S8nyc8gx9t3PY8LuEPxQZuzI+4zqKzU4k+eC+6g1lcnXpkzgwxkOhcv +LrrDf35l354NzCClfq/3r094gPTGqs18MrNokP+kzc2vHkA9qvLqcZhFHYnW +ngcd6PBm2GhK4eIsSmFm8od00EHi8ilVp5pZVPP096KnmSfslDEfeDIyiza4 +wgValSfwHasvddhAIfmNL9o313jCdUcXeQ62VqvVpjVPPUGq/cjOOGEK2Rm5 +3H/7zBPom9bvKRehUMrm0JazzZ6Q3d6wILSRQtIfH2xoeusJw4T8eMkmCim7 +Saa5znvCr6k2qSIFChm4c/JidRhgpb6D+bc2he6lTwVZ6zHgU7TzWS4ahTZ2 +zeyV1Mdm121nYnP2z3fn7WaApTvvJVKHwvcX16pWYwa4a/oZIT0KCc2LOIke +ZsAgo+10vwGFBi/rrs/0Y0Azx+X+AFAosTriROU9Bri86W38YEUhP+1UA2Ye +A6Lbfo7ttqaQ5X3Wev18Boy7fa7+F5svdfh+RSED8sYfODrbUCg20Hb00UMG +/Mjpj+mypVCEqvLJ8joGJCYK3iy3p5BPaotv6ScGLDlG+ug7UchMaNgosJ8B +FtU/ii5j/xHLJaj9hQGV79L+/YI9HKhbyBrCeXXr/eKdKeRhnTlRMs6Ahe1+ +k29dKOTIG+Rf/IMBfgNvvTzdKHQwSDqgQIKA2mZWr64nheoy48yTNxHweXCr +XRy2UeuMMlOaALOWSEYvtpZKyzsTOQJuvsyyCmFQSOpNuMkHFQJ+rtXTKiIo +NGb4UYJPl4DL2QrqAt4UusKd9cTLngCbKN9Mpi+e/w6BNCsHAli+xp+qsWNc +mIG0YwTksnxKf2EzH9pu++1MQF5zjHS0H+6fXHX1Bp2A0sYcdpw/hWgv6YzG +0wR0DvwIDAug0JurKvxKSQTcrxr4LhxMoSIk6M2+SoBgpqKuCXbMBNVQeI0A +qwoP8RBsbbOGSP1UAiJ7aqrfYCdyec5Y3SLgB790ZloIhQ6cynrHLCBg7O2u +qnV/UUhW9m+9vUUE9On+2qiLTb08dY2nhAB/ezsRD+zsrcgqsYwAj/SLnArs +5Y8fa+9UEWD/IcrQg0mhh5YyeW1NBDDcxMWyz1Ao/gc3b8pLAsJ166KbsOl5 +ox5OrQSs3f/PdQ628OoqmcF2Ah45lN80CKOQb7XjlcVeAq6a/9zVgq2kdiNU +eYiAtC3it/rCKfTjzdmukWECvkiNyC1jd8QSWsVs/H37NZCNoFDkgM6owTgB +mkbOpCv2+7Su4zazBET3bdvdi528VmR/2CoSInre81aepVDNzEeXYB4SwrpU +s3uwv33MD/TnJUGIEf9iBtvooWkWfT0J9PiAQvVIvN/cmT/NRUiY4ewYSsUW +ttwvul+MBIWvUc0s7N27RFWROAl+Bx7rtWAnCRYcpUmR8MSv58HSynjVZ5aM +Agmy2TQu5ygKkXcLmsSVSGjttVYPwE5KOvN5gwoJdV92fI7FHibFBFerktDt +TBsoXhkXO+g9rkWCRnaX1S/sql9iUcPaJCy2lDwVPkehoZH+6/06JJxr0K1U +xDasDavv1ifhboPq/v3Yg75Fck8A1zvq8TwGW8gxXLfCGNcrVoq4hm1gcsiS +ZUqCsUdI1W3sRKkvZ+4eIqHRsKajBrtydXFSpjkJIocL8pqxv06G56Zb4no3 +Fdb3Yus/F++5bEuC6N1kzwlsOuvL2AU7EhDPpeML2JdvFnP/7wgJGW+XP3Of +p9CXQDOtUEcSFuTtIyWwBd0kDgY4k9DxTeufLdj6Zl+P+7ji/l9F7/0D+/KW +s/Fu7iTIpPxPXh+7ks8825FOQkK4uhtayZuTeGzHIOH+FRPlAyt5A1/bLUmc +F98caLmS11oyfMCbhIf7aszssOkVZ5fBB/efLn3/2Ep+tvnG3b4kFF39muS6 +kn9ZUl3XnwQVJLHKYyWfObhvRwAJ6q9YiwxsAQbLUTWQhJNny8O8sXfZRJ5S +CiZhOlc+5uRKvqFFnGwoCTurZ8T9sRNUNmVIMklYZaSuFYD9SHioTCSMhH8a +mztPYw/8ZL3kj8Drs75tOXAl/1vkAG8kCQIdu1hB2HqdFgu/o0g4PL9mYsX/ +B8sbGgI= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5311368545847401, - 1.7610246145622632`}}, + "PlotRange" -> {{0, 180}, {0.7708086060162093, + 1.2816046961665573`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5311368545847414}, + "AxesOrigin" -> {0, 0.7708086060162109}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -10226,21 +10323,21 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5311368545847401, - 1.7610246145622632`}}, + "PlotRange" -> {{0, 180}, {0.7708086060162093, + 1.2816046961665573`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5311368545847414}, + "AxesOrigin" -> {0, 0.7708086060162109}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10254,103 +10351,104 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R -gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj -6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 -eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx -TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY -kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 -AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM -TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ -D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez -H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ -bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 -lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ -rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx -4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW -PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi -4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs -Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw -wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L -k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 -IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB -vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 -Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r -8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 -/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn -edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb -93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG -o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo -GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV -lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he -nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X -vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ -ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN -G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz -Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w -2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF -j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 -ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g -jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz -AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY -1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ -R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n -6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR -Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 -yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA -Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU -9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 -32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn -Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia -EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu -PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG -W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ -eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb -Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU -YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ -t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben -tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 -Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh -fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 -vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz -sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ -3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 -ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa -b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO -dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL -SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR -jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX -XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz -lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy -r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc -IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH -91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 -uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga -BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 -yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl -TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== - +1:eJwV1Hk4VdsbB3CRBlOGECJjXURyEFLrDQ1mkTLlcpy9SUime0LUz9AtkqRw +byIpkumQCHVlKCJkalJR6JiOaQtF/ZY/9rOfz7P2833ftfZaS4F+yo7g5uLi +YuNn5X26TXNbRUfb3l0bzdtD89loLydHl25agByMNBZX3J+pl6JsWoPM33eF +/oVty3i1RoDWiC5w9hxiYrOYUfW8pq2o5sxJvzPYF59vqo3Kf43WnnUdDsN+ +3HH61pJ2D6pcFC6LwB59/zLiTPVbFDD9d1cktvSQkst3kz6kQTYcPI9tMRlh +ENT6GYk612+IwX66NMrPzB9Ate2x6hewe89Lhj/y/4q+NfP/ewmbs8Z0lNIe +Qj0WDm6J2GsSApxo88Ooy5EekowtJ5LRdLqajUop7f4b2NYy3+9xTMaRzYgc +KwubzFKU0FjHQQvmhpL3sKNUbGJPtk4iGyup1w+w30p27wzOn0aqZopQic1w +9jlxLWEGrba2nHuKPXWT63ap/yxS4TP81Yi9TlFDeFp7DgnUufP3YKcw6g8K +i39HmS3pGz5iy+c6Re2Y/47qc294DWHrb4/j+FUvoPDvH0Tnsb31PreOmiwh +5+7rR+UesBHFDFnNt3UZMY9xFv7APlfNb6S67hdanOabpGGngf4Dr9bfyO96 +Uq85NuNuk2lg/iqgPW1LjsDOf36t/7wMNxxWMuu6iD31zS3iagI3RM1f8ErF +jlCbKyvx54FQOfv4MuyUYgWlSW1e8OyQr53Eft8x/vTXHV6oEq+99RtbfqbC +WUh8DfjrKL/eUMBGBTrWyRrza8BJf/fOndgNj8NW+Vavg7bV9z79hT1X3/WZ +bSIAlrMRnI2FbCRqKSAc/lQApCqqutSxtbpNQdBAEIym/WRMsH0Gy7N2agoB +qabbGYgdwN2qtUdAGBqDzT72Yg8pFk3HfheBb61ZJ1hFeH3Il+vbaaJwHBmH +tmFzPxhW2HRaFLr7nIfGsOVpW+zyx0RBTWxmdFsxGzmbJJW29YtBwofqaznY +7Z6BQZIt4sAT+c6lpISNPuUmxruvk4C+mqUrXdjjY/l37u+XgGXD9K3z2HzB +X7t210rAUtzecMRiI9OYIzru5ZJw3m9vXTd2VY7eXF6mFERL6b4QKWOjnKEf +oYbBsrB9aXNRTzkbHXK48CmoUBbkbqSv436E8xvEDhQOy4JG7FylJrZOznZx +eSc5uPnTQuYidgPdrYx37xaYuvDX8L4KNpqZ7P+LHS0Pmm1jN+or2UjMz/Rh +mZUi9Bv4eKytYaPhHD5vWx9FSKa2MPdiV/Z1yEzEKUK3YdVgCLar5fHorbWK +0CmX8d8Qdo56qF26thKs2qcQ0fwE1x/NnYqUVAamr4Xw7f/Y6IgXv4b5gAqc +uBd8L6mejVCog/axZRVY9C3TfI2tFpu5iyG1FVKt4taLNrAR1x2aceThrTAq +M/IoBbvwk8ux0mdb4Ypa3lRGIz6fRwvOS2dvA/cTev3/vcD9mVr1jtJVwWX3 +eMm+Vja6Y5/6YT5SFXy+CiQkYCfSB/pX/6sKG7tePH6DzTgXMibXpQqkg6Dg +qVdsJFKTwWVvogYoqi/5dhvePzSOWrWSOsT7VspIvGYjGcUrUfGD2yG197XS +nl42qrlEqS5ya8CnL+WJ6dius07dpIIGmDG6nb9j32pQVjV20wB65zMJ1hs2 +UvSq6lx4owEyZYSs+js834IhFbJFE24gAXJnHxvJysiR8k5aEJd8fzjuCxtt +vxss8BNpg4HYrTKHKTaiM6LnNKy1oWv63e067DSl5E/urtpwwLBrcMc0G/Fk +F5c8Z2qDXMcvb/4ZfN5ujR5JZmlDfBjyeT6L79M09wxVJRqEpVy1tZzH/zfe +UtNxjQ7ImjQWpv5io9uByrblrbrg07rh4XahEdQRinbF3DWAJ7t53kXqjCAF +tx7r4757wLZkSm+7+wgifj8qkj0DYFyXS7NLHEGSY5VrJenGIPJQjW/f8xEU +TDPqS1YzBVZ6yMLy7xFEn1hqEhvdD9LeRGPtnlFUaBy0NrP9IGxieHpEx42i +HMrnWUGKGTjmZj2obx9FC/s2vWqIsgBjmW8HKeUx9JGLZ3rAwwq2NWtmuEWO +If/Np5LOK9kAWZNb2ts7hopONNVej7WFGh7CTN9oHIXNSs2rnzgMCcvFc+2Z +42jO/MDRF3/agVDIeMl34Qlk4HJ139Bhe/Bx0AlSip1AnVIZPg20I/B7nq+g +Z24CSd+Lrsn7wwHaKhbmA4I5qLJfzdJa8ChY5xh2RnI4SK57yit04ijstNKP +8T8xiWjXrxbc6T8GfMI+GUIzkyhj9axmcr0jDEY0vZMwnEKP9u14H/vYCYTe +p12vOz+F0nZdElnKdwbFxVVLS01TqP3D3ThaggtkWBzTHuafRuVWN5UDzrnC +7/oKg6wj02jaz57Ln3EczhxqenY4bRrNHVD15pi4AWEqGa7yfhrlTbxbCNL7 +E7hc3S8nyc8gx9t3PY8LuEPxQZuzI+4zqKzU4k+eC+6g1lcnXpkzgwxkOhcv +LrrDf35l354NzCClfq/3r094gPTGqs18MrNokP+kzc2vHkA9qvLqcZhFHYnW +ngcd6PBm2GhK4eIsSmFm8od00EHi8ilVp5pZVPP096KnmSfslDEfeDIyiza4 +wgValSfwHasvddhAIfmNL9o313jCdUcXeQ62VqvVpjVPPUGq/cjOOGEK2Rm5 +3H/7zBPom9bvKRehUMrm0JazzZ6Q3d6wILSRQtIfH2xoeusJw4T8eMkmCim7 +Saa5znvCr6k2qSIFChm4c/JidRhgpb6D+bc2he6lTwVZ6zHgU7TzWS4ahTZ2 +zeyV1Mdm121nYnP2z3fn7WaApTvvJVKHwvcX16pWYwa4a/oZIT0KCc2LOIke +ZsAgo+10vwGFBi/rrs/0Y0Azx+X+AFAosTriROU9Bri86W38YEUhP+1UA2Ye +A6Lbfo7ttqaQ5X3Wev18Boy7fa7+F5svdfh+RSED8sYfODrbUCg20Hb00UMG +/Mjpj+mypVCEqvLJ8joGJCYK3iy3p5BPaotv6ScGLDlG+ug7UchMaNgosJ8B +FtU/ii5j/xHLJaj9hQGV79L+/YI9HKhbyBrCeXXr/eKdKeRhnTlRMs6Ahe1+ +k29dKOTIG+Rf/IMBfgNvvTzdKHQwSDqgQIKA2mZWr64nheoy48yTNxHweXCr +XRy2UeuMMlOaALOWSEYvtpZKyzsTOQJuvsyyCmFQSOpNuMkHFQJ+rtXTKiIo +NGb4UYJPl4DL2QrqAt4UusKd9cTLngCbKN9Mpi+e/w6BNCsHAli+xp+qsWNc +mIG0YwTksnxKf2EzH9pu++1MQF5zjHS0H+6fXHX1Bp2A0sYcdpw/hWgv6YzG +0wR0DvwIDAug0JurKvxKSQTcrxr4LhxMoSIk6M2+SoBgpqKuCXbMBNVQeI0A +qwoP8RBsbbOGSP1UAiJ7aqrfYCdyec5Y3SLgB790ZloIhQ6cynrHLCBg7O2u +qnV/UUhW9m+9vUUE9On+2qiLTb08dY2nhAB/ezsRD+zsrcgqsYwAj/SLnArs +5Y8fa+9UEWD/IcrQg0mhh5YyeW1NBDDcxMWyz1Ao/gc3b8pLAsJ166KbsOl5 +ox5OrQSs3f/PdQ628OoqmcF2Ah45lN80CKOQb7XjlcVeAq6a/9zVgq2kdiNU +eYiAtC3it/rCKfTjzdmukWECvkiNyC1jd8QSWsVs/H37NZCNoFDkgM6owTgB +mkbOpCv2+7Su4zazBET3bdvdi528VmR/2CoSInre81aepVDNzEeXYB4SwrpU +s3uwv33MD/TnJUGIEf9iBtvooWkWfT0J9PiAQvVIvN/cmT/NRUiY4ewYSsUW +ttwvul+MBIWvUc0s7N27RFWROAl+Bx7rtWAnCRYcpUmR8MSv58HSynjVZ5aM +Agmy2TQu5ygKkXcLmsSVSGjttVYPwE5KOvN5gwoJdV92fI7FHibFBFerktDt +TBsoXhkXO+g9rkWCRnaX1S/sql9iUcPaJCy2lDwVPkehoZH+6/06JJxr0K1U +xDasDavv1ifhboPq/v3Yg75Fck8A1zvq8TwGW8gxXLfCGNcrVoq4hm1gcsiS +ZUqCsUdI1W3sRKkvZ+4eIqHRsKajBrtydXFSpjkJIocL8pqxv06G56Zb4no3 +Fdb3Yus/F++5bEuC6N1kzwlsOuvL2AU7EhDPpeML2JdvFnP/7wgJGW+XP3Of +p9CXQDOtUEcSFuTtIyWwBd0kDgY4k9DxTeufLdj6Zl+P+7ji/l9F7/0D+/KW +s/Fu7iTIpPxPXh+7ks8825FOQkK4uhtayZuTeGzHIOH+FRPlAyt5A1/bLUmc +F98caLmS11oyfMCbhIf7aszssOkVZ5fBB/efLn3/2Ep+tvnG3b4kFF39muS6 +kn9ZUl3XnwQVJLHKYyWfObhvRwAJ6q9YiwxsAQbLUTWQhJNny8O8sXfZRJ5S +CiZhOlc+5uRKvqFFnGwoCTurZ8T9sRNUNmVIMklYZaSuFYD9SHioTCSMhH8a +mztPYw/8ZL3kj8Drs75tOXAl/1vkAG8kCQIdu1hB2HqdFgu/o0g4PL9mYsX/ +B8sbGgI= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + "PlotRange" -> {{0, 180}, {0.7708086060162093, 1.2816046961665573`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5311368545847414}, + "AxesOrigin" -> {0, 0.7708086060162109}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10360,7 +10458,8 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5311368545847414}, + AxesOrigin->{0, 0.7708086060162109}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -10388,7 +10487,8 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.7708086060162093, 1.2816046961665573`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -10396,9 +10496,9 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913301734961166`*^9}, + CellChangeTimes->{3.9913301734961166`*^9, 3.9942524090756607`*^9}, CellLabel-> - "Out[194]=",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] + "Out[118]=",ExpressionUUID->"0343e45e-10d5-44e1-b2a5-241ae6e04e42"] }, Open ]], Cell[CellGroupData[{ @@ -10413,30 +10513,33 @@ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -10461,213 +10564,160 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.991848978152012*^9, - 3.99184898469532*^9}},ExpressionUUID->"ab29778f-f183-804b-b871-\ -4070462057d7"], + CellChangeTimes->{{3.991848978152012*^9, 3.99184898469532*^9}}, + CellLabel-> + "In[119]:=",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.47138536392029`*^-264\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 195, - 153, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913301737143345`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.4638606480915934`*^-268\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 41, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913301737143345`*^9, 3.994252409283669*^9}, CellLabel-> "During evaluation of \ -In[195]:=",ExpressionUUID->"abf9cb8a-fbbf-7a43-abcd-82efb32ab217"], +In[119]:=",ExpressionUUID->"7044afce-ca67-4528-9b7d-4bfe4e5119db"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.656148098260251`*^-275\\\", \ + "\"\\!\\(\\*FractionBox[\\\"8.144147811076533`*^-280\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 42, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913301737143345`*^9, 3.9942524092930098`*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"1f8cb54f-aec4-41f4-8ae0-e9a2c93f45fb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9148329077616168`*^-291\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 195, 154, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991330173723337*^9}, + 119, 43, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913301737143345`*^9, 3.994252409302308*^9}, CellLabel-> "During evaluation of \ -In[195]:=",ExpressionUUID->"8fcd13e3-81e0-3446-8882-6e42ca5c0bd1"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.85074473590452`*^-286\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 195, 155, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991330173731432*^9}, - CellLabel-> - "During evaluation of \ -In[195]:=",ExpressionUUID->"2c23ed60-41ee-5841-90ce-1d26cb02619d"], +In[119]:=",ExpressionUUID->"c8dc7b90-b715-4c59-a30e-37207e451f4b"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 195, 156, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991330173739336*^9}, +during this calculation.\"", 2, 119, 44, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913301737143345`*^9, 3.994252409311657*^9}, CellLabel-> "During evaluation of \ -In[195]:=",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], +In[119]:=",ExpressionUUID->"cbdfb06b-e0bf-4d80-9b92-0c29bc2eefb5"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR -klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW -lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv -TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc -73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw -RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X -gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 -Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI -PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy -W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx -SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 -V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY -9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw -N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM -vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz -tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 -GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT -0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA -udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF -4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y -Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a -eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl -p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN -TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC -SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw -e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu -HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn -Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l -RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X -udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 -DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM -JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC -PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC -eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn -wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY -XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK -jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb -0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 -GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 -fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN -PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T -MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt -LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH -TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY -565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U -PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F -yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx -3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP -19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 -9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp -zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 -VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP -Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio -aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX -UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo -Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p -ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP -DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo -pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg -5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg -2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW -9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr -BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm -QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF -m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i -o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v -Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH -IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw -kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j -lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO -UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 -w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI -bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc -A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa -l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA -2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug -gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN -VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv -5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l -9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv -r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H -I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp -s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx -NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c -ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc -iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z -pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz -oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv -HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd -Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR -/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI -LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC -eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R -EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM -IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d -JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp -CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe -n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ -QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX -4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM -J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx -baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X -/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby -clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ -SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg -dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs -YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa -LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva -gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i -1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N -ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz -7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ -f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa -wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom -XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ -e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk -XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM -TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD -i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 -LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM -kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj -qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B -uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF -nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 -dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ -kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q -8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 -FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR -CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW -io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU -qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X -B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ -0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r -W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ -zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs -HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB -IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg -FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE -fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC -cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh -DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 -RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d -z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM -rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH -L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4Fd8bAHBRiUKR7druHddV9r0st/eVXUWW7EUJaZE2ZSlLRCmJSAsi +tNhmUkpUQtlKvi1IIdoka0JI/eb3xzzzfJ4zz8ycM+9yhrVtr6MfLw8PD+88 ++qDPk92NdezEvDXOjJ11lCuueZMlFWraEQNexrOhR2blAMVfbpPqSIHPU8bz +9GbVIWTjrXa+jlyI+C4+sHCWC8uGJVOm229DenjteN3MBuipstv7q70GOj0E +HCanN4Mle6BrrP0VVNg8Se2Y3APT7avSRtv7YGdSPOvAwFGoNbue91/uOARJ +BE9wx5NAtqfi6za1OUgLlb9UWJkOy3d73+I340O+yhdzFWczIUXbstJu0yIc +2vqOJ9UyF95laFWPLRVCg1gfRakN+ZCYF/mSV3oZ6uUkyvla3wDJ859OpmaK +IRTFHrL9eAukVO/G/i4QQ+LUJ1W777eAUXMicjMphq+zhr+u/3kL5EdXHlKu +FcNNS6L9jecXgtL6YJ/KfjHUF9bZ/UG5EHTnzxl80l2O97vyLqsHFYL9QYnP +Ok3L8U5hiMqCqUKId7ZZ82pSHF+sC1zuNF0EjDstDN55Eliw0b+nfF4xlIg5 +T2kvlkBMzYxfLlgMba+2kOcUJFAsbnDXQ0YxsB0OEg7WEli24mPgU+NiqNmQ +vbD1ogSu4WsMLo4ohjnLiZYXJpL4X/7ZhvbpYjhgmOPdGCOFdzsxfU9vCdhe +Ff617rQU9n93OdHyrQQI/oiEljQpLJP8O7lyuARa37hQr29IoaXWNbfWmRLQ +CF7C190ihTd/Si9/L1YK/QWHC34ypHG75CnlfvNS8FpuNyRTJo3S6SM/u3NL +QTe8MjqrShqDG8/sPHujFAT7Vkiwnkkj48ZnD6OSUqgo5QPOO2ncNaCaH1lR +ChLrKpK1/knjssS4D/UvS6E1mq1nsY6BfrEVj+xmS8F8ZCYs6BMDO9QlxxnK +JIRan1d5MshA7oV4yaSVJJTkqHeKTTLwkblK6l9VEqScfQwrFsng0xPM5HYt +EgbvP53i05BBXpvSnEAjElJjkg9ePCKDSS+y1YQ3kNAnzgmqE5LFmhhDB/dg +EiT3PpaTlJTFQ4dnDh3eT8L6BrcXgUxZ9I2V/JVykITysEQ1EV1ZXCrY+efJ +ERJO9YwOuLvJolDYGzOeaBJ0blYGjOTKYs7XyLq5ZBKiTRy2MlbLocs18vJc +CQnWW7J+rlorhx3VL6aGSBKEo34c37ReDp+Sr43e3ybhSm1cQbKPHEqvzgop +Kifhvu2DHwtPyqE4T+TzlY9IGHVTDBl/J4f8z+c0kp+TcC8smH/ZZzmcXiPM +sG8h4diVhxkaw3KYNBczKthKwpKPrpWBvPJoo9PhE/qaBOWA0zwfVeSRf0TG +TbuThC2HJk49D5dHoaCNP4S+kaB0Ya3sQJw8/pL+WHa5///rd7aYP1keZ26v +2sMZICHsz8rWtXnyWPS8vExniIS041vEK57L4/rBoEuccRKen6vPzpdTwMLG +MKWIvyQYlVy8c+yxAlrSU+gVpcC8vWVuuEEBm3XU7k2LUWDHM9/K+5UCyoi0 +PRARp8DXMegdfFHAor6hfl1JCizDWZFRC5g41yH7w0uGgmCFyWumqkzcz8fT +q61IwURZcsO0JhOlx91bmGwKwqxVhyg9Jobf/6IopERB3D4fA2INE3PTLAS6 +ORRcqm1q4HVg4uk6tUYfFQrqArKHakOYKD7SHDmgRYHNH0PRiHAmJllHsElt +ClqS3xjoRTEx5nzw6gM6FLyrEIjKO8lE9bK/pWO6FAwvPigad4WJotxnAy8N +KDhwVXgVN4eJN1Zcl4heRcFvvZueE/lM7O9Kuqu5mgK+Ld15fqVMjLP3tosz +pECKtF5lWcNE1qvM6WUmFGSaf/L8+4yJn3fZNpfQJt4djSpvZmKr51cxGy4F +6rxljZy3TLye+mNxyBoK1jrLefH3M7FMwCqfQgrq++9FPR5kYshAnImRKQXr +jzrmHx5jonPtE7tq2q4F8cPfZph4U2jt17q1FOz+PRbVIMRCqws8o6XmFBjt +85f4KspCX++TUhoWFCwa6Czkk2Khdr76xpu089/Xtq0hWMhbEjOSbklB96M0 +tbsGLOx6lz3P3pqColWCNa+MWRhrg+V3aYeRx1xHkYWqqrGR0jYUSOQGxKiu +o8fvNDh20LaPM+zI8WbhTRmtpbrrKJD/W7zn8XYWlvC/OhpDezCE4OsKZOGm +5pcLXtJO2LFYQ+ogC8cNGgO811Pg0htZqx/KQr+vxmbXaLM9frk5HWPh9vDf +xp9pV6/rOp6UwELTMIuEzRsoSKpzkC46w8L+RseuNNpe3GcljSkspBqvOTbT +Vik3Mv92gYU/H/7un6M9rVH6bn4mCy3yRHPU7ShouK64l8hlIY9uWbgH7XRm +xny8zsLKjiuhsbR1RKM1wykW3q1w63tJmydxoi6jnIVV/mV2Y7Rb+HZ6lFfS +8xHa0StiT8GViO6R19UszCs2uaxKe9eEY9zYUxZO/pmKMKdtFFTPEGlmIfht +jfegveibManWysKL800r99Bu8yYtbN+y8HGRt/Qx2nkd7PcBnSyM6zuRm0h7 +v8PF4LgeFrp0Rbmm08YmoYXXPrOw+ISUYRZtYbOYy9XfWXg+VNr6Gu2uykmt +7mEWyvBujMunXaS369nsOAvbZE+O5dEOK+7xlJ5moVNIypkc2tYc5zGDv/T7 +7DTyuExbIrvhhDMfgVnzN7ql0P4syZXdv4jA+rnchBO0bydT1FkhAjc95Bs8 +TDtKgGNVLErgmKvZcX/a9jGXPjRJEih6Vtfekbb8rPD+flkCT7YWbDSmPXjg +OP9CgsB+/eAEFu0Hg1NXFJUJFIj1nZpPO8Fvt46pGoHHVDZlfaHX26X7Y/0W +bQIXmzGO1dJmu27aHGFAIPtcwoUs2j9fNv68aEygd3TIjxDa1dZrEu4hgT9W +VIatp5305LbcWwsCl1hoWCrQ9jJSLvtpS2CG0Q27kf/Hh+rSbvVNBObHizPi +aU9mMqJ1PQi8mG0zaE/7l4gS29CbwJ2ZAVIStIfHDXeaBxJ4XTAn+hIdnz/8 +zIVsgwg0a99c7Ua7v92OtD9AoIyZlddy2n2VvpMeRwl01P9ecpyO/x71oIs+ +MQR6vbIKWEX7Q/YRE/94AqeNFKL6bel4OH4mZt85AlkCiW1raTetuyeckE+g +HbdCvYPOx/qHT6gztwhUqzWZd5h2neZz59RSAhnWQ8ZitB+J9V7KqiDQ0MJo +wMyK/l7vBZXvviCwxdl/7Qk6/0s3iDc9eEVgqIJWwFLaRY8V9lS3E8iz59/0 +Bbp+FFzTK2vuJXB2m9KebDO63u7aAn0TBOqoDOWcpevPha4dfd9mCKy8xLVf +QPu8/YG4oX/0+m07u+8IXb+SdBOafwsoorLyYylXoCBmlnIVkVfEpjSO4CRd +D3clLgg2sVREM5d400q6vu6YExFbu04R87Rmbi6i7b+XUW61URGnJpvTnOh6 +7OOk+cfRQxHlbunP9upR4CzjnhAYpIiF23okeun6blJYdDU9XRFfvJfaGqhK +wXtmYbbFZUWsOfdHO4vuD2HpN7N+ZSuig6ng19aVFNyLLrjieFMRRebdndFc +Qee729UM4SpFLBJo+/GG7j8rF5xPPtGriAExHy49kKPzwTs8KkSNjdMBF27N +CFFw901opJI2G/8svus7tIR+H9sjx97oszF4SkO6ezEFKfqHInSAjUXNByIq +BCgQWrL3yLADG83rp4zcFlAwv2JbsP9hNv7MvGxn8IeEMVFbH5caNi5euDMt +jO7XHbuJ1p31bJycOI+idD+vfjYDkc/ZGP7Xs+j6FxKSwwoVbrSxUVxduKm5 +jwStviU90wP0ONvSZPoDCUHUy82ZYkp4YInNyHd6/zBgv8nz83YlDCypMVa5 +R8Ln0z4u+/k5eOpa8rvtR+nrB9QIrSUcvH6/Jzg9nIQpq+mhoaUc/JDIdHgW +SoIgX0pcIIODA80Go8wQ+nmhtXd81DnIOzZT8ySIhKN+HDF7Jw5WWmacue1N +gsSawZeq2Rzc1c7Z5Iok2IwctvlioIyr82uVnk2XwqDvogN3IlegQOXy2GUl +JfT/gyRvfM1K7Knie9RH74dFX3CSyBEVXLHGaUSkthBkE0o3GhiooW7Gh/lT +S29BhqrhUrEAdUy+nd4RsOsGNDFM9cfPaaDP0ZWM608LwEi2JlmzTRM9W7oL +zkzngTBf7sGtMVoY3Sgikml/DeSjFUzcOdqo6PTfyX2JOSCg5FXuWK+N3h6H +u5dVZYMGV7r08GYdXJIrl6JVdQX2d4vW2vLoYr1M3KsP+RdhZPz0JpsMXeRZ +f0fAeDQdrDSfXbJR10MnecF3uw+eh0fjxrNTLXqYGNyr1DFxDoLUdDr/89PH +hCrDmvb8s8Ad3v7GXcAAfQS8PqsEJYIFW2qDUK4BJvQHJKX2xMOKqFNHalat +woEQzWCiMhZU/AwfK3Wuwt6wtJAqMhr8Hu2IvbNvNXYZB79d5nkMHl99s31M +3BBNGzefbTsXCr9u/JvSvGeIzlahapIRh8BXqVDg0gYj3IvD7cfU9sOYSqrB +7VEjdNn7XK6XEwT382Z7JxKM8a1xTrG3TiB4mCuisbwJmpeveNHP7wcye+Ir +NKpN6Pm/f7JUZysk/fPXT6wxwWSHeJ4/7K3Am2JJfaszQeOu719GJLfCQPmC +m1cbTTBn6GjK2JwPPOCJzRB9bYLZnv0/PZt8wON81OHJLyZo8fHN24btPpBR +Gar/aDEX9Xdr69eDN4gL7qY2uHJRgm8mep2XF+SZHQ0bdefir82alZlmXqBz +NMks1YuLDf6Mp7yqXmA3Sr7t2MpFWScb2QUznnCibWLadzcXfWSvnPue4Qm/ +cyPXhkVzcZmF9UHlTg/oNE59XVDIxefNepOcne6w41DeFZsSLvqauk9VObnD +ZMldv0GSi1MhQl7bue4gSnRMaZdzscDhieK3pe6wbpGc7MNqLu5puxFSed8N +qt4UbH/9losWrIbTaYvdwFb4vnpIBxf1bDiZJpOu0GHVOCn1notuL6itvz66 +wq8HPxK2fOTigy3MD2nlrqCeo1X8fYCLxeXLA7O3uUJVp2nI6SEu3tI9NNS0 +wRVslzuB5igXA5rkWxcauoJ//KH/Dk5wcZ57eVypCH2/6hOXJH9zcW3ndjPZ +WReImbng+2CGi7XxXXoXv7rAUr2bapvnuMjKP23PeeUCWXseTPz7x8VR008J +tQ9d4H+MeEYs "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -10681,172 +10731,115 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR -klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW -lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv -TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc -73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw -RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X -gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 -Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI -PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy -W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx -SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 -V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY -9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw -N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM -vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz -tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 -GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT -0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA -udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF -4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y -Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a -eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl -p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN -TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC -SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw -e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu -HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn -Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l -RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X -udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 -DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM -JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC -PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC -eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn -wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY -XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK -jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb -0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 -GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 -fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN -PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T -MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt -LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH -TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY -565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U -PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F -yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx -3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP -19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 -9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp -zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 -VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP -Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio -aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX -UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo -Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p -ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP -DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo -pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg -5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg -2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW -9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr -BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm -QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF -m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i -o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v -Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH -IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw -kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j -lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO -UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 -w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI -bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc -A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa -l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA -2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug -gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN -VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv -5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l -9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv -r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H -I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp -s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx -NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c -ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc -iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z -pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz -oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv -HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd -Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR -/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI -LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC -eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R -EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM -IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d -JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp -CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe -n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ -QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX -4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM -J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx -baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X -/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby -clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ -SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg -dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs -YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa -LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva -gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i -1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N -ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz -7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ -f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa -wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom -XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ -e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk -XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM -TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD -i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 -LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM -kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj -qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B -uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF -nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 -dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ -kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q -8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 -FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR -CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW -io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU -qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X -B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ -0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r -W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ -zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs -HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB -IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg -FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE -fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC -cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh -DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 -RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d -z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM -rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH -L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== +1:eJwV13k4Fd8bAHBRiUKR7druHddV9r0st/eVXUWW7EUJaZE2ZSlLRCmJSAsi +tNhmUkpUQtlKvi1IIdoka0JI/eb3xzzzfJ4zz8ycM+9yhrVtr6MfLw8PD+88 ++qDPk92NdezEvDXOjJ11lCuueZMlFWraEQNexrOhR2blAMVfbpPqSIHPU8bz +9GbVIWTjrXa+jlyI+C4+sHCWC8uGJVOm229DenjteN3MBuipstv7q70GOj0E +HCanN4Mle6BrrP0VVNg8Se2Y3APT7avSRtv7YGdSPOvAwFGoNbue91/uOARJ +BE9wx5NAtqfi6za1OUgLlb9UWJkOy3d73+I340O+yhdzFWczIUXbstJu0yIc +2vqOJ9UyF95laFWPLRVCg1gfRakN+ZCYF/mSV3oZ6uUkyvla3wDJ859OpmaK +IRTFHrL9eAukVO/G/i4QQ+LUJ1W777eAUXMicjMphq+zhr+u/3kL5EdXHlKu +FcNNS6L9jecXgtL6YJ/KfjHUF9bZ/UG5EHTnzxl80l2O97vyLqsHFYL9QYnP +Ok3L8U5hiMqCqUKId7ZZ82pSHF+sC1zuNF0EjDstDN55Eliw0b+nfF4xlIg5 +T2kvlkBMzYxfLlgMba+2kOcUJFAsbnDXQ0YxsB0OEg7WEli24mPgU+NiqNmQ +vbD1ogSu4WsMLo4ohjnLiZYXJpL4X/7ZhvbpYjhgmOPdGCOFdzsxfU9vCdhe +Ff617rQU9n93OdHyrQQI/oiEljQpLJP8O7lyuARa37hQr29IoaXWNbfWmRLQ +CF7C190ihTd/Si9/L1YK/QWHC34ypHG75CnlfvNS8FpuNyRTJo3S6SM/u3NL +QTe8MjqrShqDG8/sPHujFAT7Vkiwnkkj48ZnD6OSUqgo5QPOO2ncNaCaH1lR +ChLrKpK1/knjssS4D/UvS6E1mq1nsY6BfrEVj+xmS8F8ZCYs6BMDO9QlxxnK +JIRan1d5MshA7oV4yaSVJJTkqHeKTTLwkblK6l9VEqScfQwrFsng0xPM5HYt +EgbvP53i05BBXpvSnEAjElJjkg9ePCKDSS+y1YQ3kNAnzgmqE5LFmhhDB/dg +EiT3PpaTlJTFQ4dnDh3eT8L6BrcXgUxZ9I2V/JVykITysEQ1EV1ZXCrY+efJ +ERJO9YwOuLvJolDYGzOeaBJ0blYGjOTKYs7XyLq5ZBKiTRy2MlbLocs18vJc +CQnWW7J+rlorhx3VL6aGSBKEo34c37ReDp+Sr43e3ybhSm1cQbKPHEqvzgop +Kifhvu2DHwtPyqE4T+TzlY9IGHVTDBl/J4f8z+c0kp+TcC8smH/ZZzmcXiPM +sG8h4diVhxkaw3KYNBczKthKwpKPrpWBvPJoo9PhE/qaBOWA0zwfVeSRf0TG +TbuThC2HJk49D5dHoaCNP4S+kaB0Ya3sQJw8/pL+WHa5///rd7aYP1keZ26v +2sMZICHsz8rWtXnyWPS8vExniIS041vEK57L4/rBoEuccRKen6vPzpdTwMLG +MKWIvyQYlVy8c+yxAlrSU+gVpcC8vWVuuEEBm3XU7k2LUWDHM9/K+5UCyoi0 +PRARp8DXMegdfFHAor6hfl1JCizDWZFRC5g41yH7w0uGgmCFyWumqkzcz8fT +q61IwURZcsO0JhOlx91bmGwKwqxVhyg9Jobf/6IopERB3D4fA2INE3PTLAS6 +ORRcqm1q4HVg4uk6tUYfFQrqArKHakOYKD7SHDmgRYHNH0PRiHAmJllHsElt +ClqS3xjoRTEx5nzw6gM6FLyrEIjKO8lE9bK/pWO6FAwvPigad4WJotxnAy8N +KDhwVXgVN4eJN1Zcl4heRcFvvZueE/lM7O9Kuqu5mgK+Ld15fqVMjLP3tosz +pECKtF5lWcNE1qvM6WUmFGSaf/L8+4yJn3fZNpfQJt4djSpvZmKr51cxGy4F +6rxljZy3TLye+mNxyBoK1jrLefH3M7FMwCqfQgrq++9FPR5kYshAnImRKQXr +jzrmHx5jonPtE7tq2q4F8cPfZph4U2jt17q1FOz+PRbVIMRCqws8o6XmFBjt +85f4KspCX++TUhoWFCwa6Czkk2Khdr76xpu089/Xtq0hWMhbEjOSbklB96M0 +tbsGLOx6lz3P3pqColWCNa+MWRhrg+V3aYeRx1xHkYWqqrGR0jYUSOQGxKiu +o8fvNDh20LaPM+zI8WbhTRmtpbrrKJD/W7zn8XYWlvC/OhpDezCE4OsKZOGm +5pcLXtJO2LFYQ+ogC8cNGgO811Pg0htZqx/KQr+vxmbXaLM9frk5HWPh9vDf +xp9pV6/rOp6UwELTMIuEzRsoSKpzkC46w8L+RseuNNpe3GcljSkspBqvOTbT +Vik3Mv92gYU/H/7un6M9rVH6bn4mCy3yRHPU7ShouK64l8hlIY9uWbgH7XRm +xny8zsLKjiuhsbR1RKM1wykW3q1w63tJmydxoi6jnIVV/mV2Y7Rb+HZ6lFfS +8xHa0StiT8GViO6R19UszCs2uaxKe9eEY9zYUxZO/pmKMKdtFFTPEGlmIfht +jfegveibManWysKL800r99Bu8yYtbN+y8HGRt/Qx2nkd7PcBnSyM6zuRm0h7 +v8PF4LgeFrp0Rbmm08YmoYXXPrOw+ISUYRZtYbOYy9XfWXg+VNr6Gu2uykmt +7mEWyvBujMunXaS369nsOAvbZE+O5dEOK+7xlJ5moVNIypkc2tYc5zGDv/T7 +7DTyuExbIrvhhDMfgVnzN7ql0P4syZXdv4jA+rnchBO0bydT1FkhAjc95Bs8 +TDtKgGNVLErgmKvZcX/a9jGXPjRJEih6Vtfekbb8rPD+flkCT7YWbDSmPXjg +OP9CgsB+/eAEFu0Hg1NXFJUJFIj1nZpPO8Fvt46pGoHHVDZlfaHX26X7Y/0W +bQIXmzGO1dJmu27aHGFAIPtcwoUs2j9fNv68aEygd3TIjxDa1dZrEu4hgT9W +VIatp5305LbcWwsCl1hoWCrQ9jJSLvtpS2CG0Q27kf/Hh+rSbvVNBObHizPi +aU9mMqJ1PQi8mG0zaE/7l4gS29CbwJ2ZAVIStIfHDXeaBxJ4XTAn+hIdnz/8 +zIVsgwg0a99c7Ua7v92OtD9AoIyZlddy2n2VvpMeRwl01P9ecpyO/x71oIs+ +MQR6vbIKWEX7Q/YRE/94AqeNFKL6bel4OH4mZt85AlkCiW1raTetuyeckE+g +HbdCvYPOx/qHT6gztwhUqzWZd5h2neZz59RSAhnWQ8ZitB+J9V7KqiDQ0MJo +wMyK/l7vBZXvviCwxdl/7Qk6/0s3iDc9eEVgqIJWwFLaRY8V9lS3E8iz59/0 +Bbp+FFzTK2vuJXB2m9KebDO63u7aAn0TBOqoDOWcpevPha4dfd9mCKy8xLVf +QPu8/YG4oX/0+m07u+8IXb+SdBOafwsoorLyYylXoCBmlnIVkVfEpjSO4CRd +D3clLgg2sVREM5d400q6vu6YExFbu04R87Rmbi6i7b+XUW61URGnJpvTnOh6 +7OOk+cfRQxHlbunP9upR4CzjnhAYpIiF23okeun6blJYdDU9XRFfvJfaGqhK +wXtmYbbFZUWsOfdHO4vuD2HpN7N+ZSuig6ng19aVFNyLLrjieFMRRebdndFc +Qee729UM4SpFLBJo+/GG7j8rF5xPPtGriAExHy49kKPzwTs8KkSNjdMBF27N +CFFw901opJI2G/8svus7tIR+H9sjx97oszF4SkO6ezEFKfqHInSAjUXNByIq +BCgQWrL3yLADG83rp4zcFlAwv2JbsP9hNv7MvGxn8IeEMVFbH5caNi5euDMt +jO7XHbuJ1p31bJycOI+idD+vfjYDkc/ZGP7Xs+j6FxKSwwoVbrSxUVxduKm5 +jwStviU90wP0ONvSZPoDCUHUy82ZYkp4YInNyHd6/zBgv8nz83YlDCypMVa5 +R8Ln0z4u+/k5eOpa8rvtR+nrB9QIrSUcvH6/Jzg9nIQpq+mhoaUc/JDIdHgW +SoIgX0pcIIODA80Go8wQ+nmhtXd81DnIOzZT8ySIhKN+HDF7Jw5WWmacue1N +gsSawZeq2Rzc1c7Z5Iok2IwctvlioIyr82uVnk2XwqDvogN3IlegQOXy2GUl +JfT/gyRvfM1K7Knie9RH74dFX3CSyBEVXLHGaUSkthBkE0o3GhiooW7Gh/lT +S29BhqrhUrEAdUy+nd4RsOsGNDFM9cfPaaDP0ZWM608LwEi2JlmzTRM9W7oL +zkzngTBf7sGtMVoY3Sgikml/DeSjFUzcOdqo6PTfyX2JOSCg5FXuWK+N3h6H +u5dVZYMGV7r08GYdXJIrl6JVdQX2d4vW2vLoYr1M3KsP+RdhZPz0JpsMXeRZ +f0fAeDQdrDSfXbJR10MnecF3uw+eh0fjxrNTLXqYGNyr1DFxDoLUdDr/89PH +hCrDmvb8s8Ad3v7GXcAAfQS8PqsEJYIFW2qDUK4BJvQHJKX2xMOKqFNHalat +woEQzWCiMhZU/AwfK3Wuwt6wtJAqMhr8Hu2IvbNvNXYZB79d5nkMHl99s31M +3BBNGzefbTsXCr9u/JvSvGeIzlahapIRh8BXqVDg0gYj3IvD7cfU9sOYSqrB +7VEjdNn7XK6XEwT382Z7JxKM8a1xTrG3TiB4mCuisbwJmpeveNHP7wcye+Ir +NKpN6Pm/f7JUZysk/fPXT6wxwWSHeJ4/7K3Am2JJfaszQeOu719GJLfCQPmC +m1cbTTBn6GjK2JwPPOCJzRB9bYLZnv0/PZt8wON81OHJLyZo8fHN24btPpBR +Gar/aDEX9Xdr69eDN4gL7qY2uHJRgm8mep2XF+SZHQ0bdefir82alZlmXqBz +NMks1YuLDf6Mp7yqXmA3Sr7t2MpFWScb2QUznnCibWLadzcXfWSvnPue4Qm/ +cyPXhkVzcZmF9UHlTg/oNE59XVDIxefNepOcne6w41DeFZsSLvqauk9VObnD +ZMldv0GSi1MhQl7bue4gSnRMaZdzscDhieK3pe6wbpGc7MNqLu5puxFSed8N +qt4UbH/9losWrIbTaYvdwFb4vnpIBxf1bDiZJpOu0GHVOCn1notuL6itvz66 +wq8HPxK2fOTigy3MD2nlrqCeo1X8fYCLxeXLA7O3uUJVp2nI6SEu3tI9NNS0 +wRVslzuB5igXA5rkWxcauoJ//KH/Dk5wcZ57eVypCH2/6hOXJH9zcW3ndjPZ +WReImbng+2CGi7XxXXoXv7rAUr2bapvnuMjKP23PeeUCWXseTPz7x8VR008J +tQ9d4H+MeEYs "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "PlotRange" -> {{0, 30}, {0., 0.0676215601415681}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -10858,19 +10851,19 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "PlotRange" -> {{0, 30}, {0., 0.0676215601415681}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10884,171 +10877,114 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR -klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW -lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv -TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc -73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw -RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X -gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 -Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI -PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy -W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx -SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 -V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY -9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw -N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM -vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz -tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 -GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT -0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA -udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF -4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y -Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a -eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl -p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN -TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC -SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw -e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu -HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn -Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l -RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X -udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 -DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM -JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC -PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC -eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn -wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY -XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK -jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb -0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 -GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 -fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN -PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T -MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt -LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH -TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY -565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U -PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F -yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx -3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP -19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 -9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp -zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 -VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP -Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio -aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX -UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo -Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p -ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP -DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo -pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg -5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg -2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW -9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr -BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm -QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF -m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i -o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v -Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH -IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw -kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j -lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO -UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 -w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI -bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc -A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa -l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA -2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug -gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN -VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv -5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l -9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv -r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H -I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp -s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx -NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c -ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc -iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z -pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz -oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv -HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd -Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR -/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI -LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC -eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R -EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM -IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d -JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp -CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe -n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ -QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX -4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM -J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx -baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X -/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby -clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ -SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg -dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs -YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa -LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva -gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i -1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N -ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz -7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ -f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa -wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom -XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ -e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk -XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM -TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD -i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 -LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM -kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj -qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B -uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF -nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 -dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ -kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q -8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 -FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR -CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW -io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU -qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X -B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ -0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r -W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ -zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs -HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB -IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg -FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE -fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC -cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh -DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 -RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d -z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM -rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH -L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== +1:eJwV13k4Fd8bAHBRiUKR7druHddV9r0st/eVXUWW7EUJaZE2ZSlLRCmJSAsi +tNhmUkpUQtlKvi1IIdoka0JI/eb3xzzzfJ4zz8ycM+9yhrVtr6MfLw8PD+88 ++qDPk92NdezEvDXOjJ11lCuueZMlFWraEQNexrOhR2blAMVfbpPqSIHPU8bz +9GbVIWTjrXa+jlyI+C4+sHCWC8uGJVOm229DenjteN3MBuipstv7q70GOj0E +HCanN4Mle6BrrP0VVNg8Se2Y3APT7avSRtv7YGdSPOvAwFGoNbue91/uOARJ +BE9wx5NAtqfi6za1OUgLlb9UWJkOy3d73+I340O+yhdzFWczIUXbstJu0yIc +2vqOJ9UyF95laFWPLRVCg1gfRakN+ZCYF/mSV3oZ6uUkyvla3wDJ859OpmaK +IRTFHrL9eAukVO/G/i4QQ+LUJ1W777eAUXMicjMphq+zhr+u/3kL5EdXHlKu +FcNNS6L9jecXgtL6YJ/KfjHUF9bZ/UG5EHTnzxl80l2O97vyLqsHFYL9QYnP +Ok3L8U5hiMqCqUKId7ZZ82pSHF+sC1zuNF0EjDstDN55Eliw0b+nfF4xlIg5 +T2kvlkBMzYxfLlgMba+2kOcUJFAsbnDXQ0YxsB0OEg7WEli24mPgU+NiqNmQ +vbD1ogSu4WsMLo4ohjnLiZYXJpL4X/7ZhvbpYjhgmOPdGCOFdzsxfU9vCdhe +Ff617rQU9n93OdHyrQQI/oiEljQpLJP8O7lyuARa37hQr29IoaXWNbfWmRLQ +CF7C190ihTd/Si9/L1YK/QWHC34ypHG75CnlfvNS8FpuNyRTJo3S6SM/u3NL +QTe8MjqrShqDG8/sPHujFAT7Vkiwnkkj48ZnD6OSUqgo5QPOO2ncNaCaH1lR +ChLrKpK1/knjssS4D/UvS6E1mq1nsY6BfrEVj+xmS8F8ZCYs6BMDO9QlxxnK +JIRan1d5MshA7oV4yaSVJJTkqHeKTTLwkblK6l9VEqScfQwrFsng0xPM5HYt +EgbvP53i05BBXpvSnEAjElJjkg9ePCKDSS+y1YQ3kNAnzgmqE5LFmhhDB/dg +EiT3PpaTlJTFQ4dnDh3eT8L6BrcXgUxZ9I2V/JVykITysEQ1EV1ZXCrY+efJ +ERJO9YwOuLvJolDYGzOeaBJ0blYGjOTKYs7XyLq5ZBKiTRy2MlbLocs18vJc +CQnWW7J+rlorhx3VL6aGSBKEo34c37ReDp+Sr43e3ybhSm1cQbKPHEqvzgop +Kifhvu2DHwtPyqE4T+TzlY9IGHVTDBl/J4f8z+c0kp+TcC8smH/ZZzmcXiPM +sG8h4diVhxkaw3KYNBczKthKwpKPrpWBvPJoo9PhE/qaBOWA0zwfVeSRf0TG +TbuThC2HJk49D5dHoaCNP4S+kaB0Ya3sQJw8/pL+WHa5///rd7aYP1keZ26v +2sMZICHsz8rWtXnyWPS8vExniIS041vEK57L4/rBoEuccRKen6vPzpdTwMLG +MKWIvyQYlVy8c+yxAlrSU+gVpcC8vWVuuEEBm3XU7k2LUWDHM9/K+5UCyoi0 +PRARp8DXMegdfFHAor6hfl1JCizDWZFRC5g41yH7w0uGgmCFyWumqkzcz8fT +q61IwURZcsO0JhOlx91bmGwKwqxVhyg9Jobf/6IopERB3D4fA2INE3PTLAS6 +ORRcqm1q4HVg4uk6tUYfFQrqArKHakOYKD7SHDmgRYHNH0PRiHAmJllHsElt +ClqS3xjoRTEx5nzw6gM6FLyrEIjKO8lE9bK/pWO6FAwvPigad4WJotxnAy8N +KDhwVXgVN4eJN1Zcl4heRcFvvZueE/lM7O9Kuqu5mgK+Ld15fqVMjLP3tosz +pECKtF5lWcNE1qvM6WUmFGSaf/L8+4yJn3fZNpfQJt4djSpvZmKr51cxGy4F +6rxljZy3TLye+mNxyBoK1jrLefH3M7FMwCqfQgrq++9FPR5kYshAnImRKQXr +jzrmHx5jonPtE7tq2q4F8cPfZph4U2jt17q1FOz+PRbVIMRCqws8o6XmFBjt +85f4KspCX++TUhoWFCwa6Czkk2Khdr76xpu089/Xtq0hWMhbEjOSbklB96M0 +tbsGLOx6lz3P3pqColWCNa+MWRhrg+V3aYeRx1xHkYWqqrGR0jYUSOQGxKiu +o8fvNDh20LaPM+zI8WbhTRmtpbrrKJD/W7zn8XYWlvC/OhpDezCE4OsKZOGm +5pcLXtJO2LFYQ+ogC8cNGgO811Pg0htZqx/KQr+vxmbXaLM9frk5HWPh9vDf +xp9pV6/rOp6UwELTMIuEzRsoSKpzkC46w8L+RseuNNpe3GcljSkspBqvOTbT +Vik3Mv92gYU/H/7un6M9rVH6bn4mCy3yRHPU7ShouK64l8hlIY9uWbgH7XRm +xny8zsLKjiuhsbR1RKM1wykW3q1w63tJmydxoi6jnIVV/mV2Y7Rb+HZ6lFfS +8xHa0StiT8GViO6R19UszCs2uaxKe9eEY9zYUxZO/pmKMKdtFFTPEGlmIfht +jfegveibManWysKL800r99Bu8yYtbN+y8HGRt/Qx2nkd7PcBnSyM6zuRm0h7 +v8PF4LgeFrp0Rbmm08YmoYXXPrOw+ISUYRZtYbOYy9XfWXg+VNr6Gu2uykmt +7mEWyvBujMunXaS369nsOAvbZE+O5dEOK+7xlJ5moVNIypkc2tYc5zGDv/T7 +7DTyuExbIrvhhDMfgVnzN7ql0P4syZXdv4jA+rnchBO0bydT1FkhAjc95Bs8 +TDtKgGNVLErgmKvZcX/a9jGXPjRJEih6Vtfekbb8rPD+flkCT7YWbDSmPXjg +OP9CgsB+/eAEFu0Hg1NXFJUJFIj1nZpPO8Fvt46pGoHHVDZlfaHX26X7Y/0W +bQIXmzGO1dJmu27aHGFAIPtcwoUs2j9fNv68aEygd3TIjxDa1dZrEu4hgT9W +VIatp5305LbcWwsCl1hoWCrQ9jJSLvtpS2CG0Q27kf/Hh+rSbvVNBObHizPi +aU9mMqJ1PQi8mG0zaE/7l4gS29CbwJ2ZAVIStIfHDXeaBxJ4XTAn+hIdnz/8 +zIVsgwg0a99c7Ua7v92OtD9AoIyZlddy2n2VvpMeRwl01P9ecpyO/x71oIs+ +MQR6vbIKWEX7Q/YRE/94AqeNFKL6bel4OH4mZt85AlkCiW1raTetuyeckE+g +HbdCvYPOx/qHT6gztwhUqzWZd5h2neZz59RSAhnWQ8ZitB+J9V7KqiDQ0MJo +wMyK/l7vBZXvviCwxdl/7Qk6/0s3iDc9eEVgqIJWwFLaRY8V9lS3E8iz59/0 +Bbp+FFzTK2vuJXB2m9KebDO63u7aAn0TBOqoDOWcpevPha4dfd9mCKy8xLVf +QPu8/YG4oX/0+m07u+8IXb+SdBOafwsoorLyYylXoCBmlnIVkVfEpjSO4CRd +D3clLgg2sVREM5d400q6vu6YExFbu04R87Rmbi6i7b+XUW61URGnJpvTnOh6 +7OOk+cfRQxHlbunP9upR4CzjnhAYpIiF23okeun6blJYdDU9XRFfvJfaGqhK +wXtmYbbFZUWsOfdHO4vuD2HpN7N+ZSuig6ng19aVFNyLLrjieFMRRebdndFc +Qee729UM4SpFLBJo+/GG7j8rF5xPPtGriAExHy49kKPzwTs8KkSNjdMBF27N +CFFw901opJI2G/8svus7tIR+H9sjx97oszF4SkO6ezEFKfqHInSAjUXNByIq +BCgQWrL3yLADG83rp4zcFlAwv2JbsP9hNv7MvGxn8IeEMVFbH5caNi5euDMt +jO7XHbuJ1p31bJycOI+idD+vfjYDkc/ZGP7Xs+j6FxKSwwoVbrSxUVxduKm5 +jwStviU90wP0ONvSZPoDCUHUy82ZYkp4YInNyHd6/zBgv8nz83YlDCypMVa5 +R8Ln0z4u+/k5eOpa8rvtR+nrB9QIrSUcvH6/Jzg9nIQpq+mhoaUc/JDIdHgW +SoIgX0pcIIODA80Go8wQ+nmhtXd81DnIOzZT8ySIhKN+HDF7Jw5WWmacue1N +gsSawZeq2Rzc1c7Z5Iok2IwctvlioIyr82uVnk2XwqDvogN3IlegQOXy2GUl +JfT/gyRvfM1K7Knie9RH74dFX3CSyBEVXLHGaUSkthBkE0o3GhiooW7Gh/lT +S29BhqrhUrEAdUy+nd4RsOsGNDFM9cfPaaDP0ZWM608LwEi2JlmzTRM9W7oL +zkzngTBf7sGtMVoY3Sgikml/DeSjFUzcOdqo6PTfyX2JOSCg5FXuWK+N3h6H +u5dVZYMGV7r08GYdXJIrl6JVdQX2d4vW2vLoYr1M3KsP+RdhZPz0JpsMXeRZ +f0fAeDQdrDSfXbJR10MnecF3uw+eh0fjxrNTLXqYGNyr1DFxDoLUdDr/89PH +hCrDmvb8s8Ad3v7GXcAAfQS8PqsEJYIFW2qDUK4BJvQHJKX2xMOKqFNHalat +woEQzWCiMhZU/AwfK3Wuwt6wtJAqMhr8Hu2IvbNvNXYZB79d5nkMHl99s31M +3BBNGzefbTsXCr9u/JvSvGeIzlahapIRh8BXqVDg0gYj3IvD7cfU9sOYSqrB +7VEjdNn7XK6XEwT382Z7JxKM8a1xTrG3TiB4mCuisbwJmpeveNHP7wcye+Ir +NKpN6Pm/f7JUZysk/fPXT6wxwWSHeJ4/7K3Am2JJfaszQeOu719GJLfCQPmC +m1cbTTBn6GjK2JwPPOCJzRB9bYLZnv0/PZt8wON81OHJLyZo8fHN24btPpBR +Gar/aDEX9Xdr69eDN4gL7qY2uHJRgm8mep2XF+SZHQ0bdefir82alZlmXqBz +NMks1YuLDf6Mp7yqXmA3Sr7t2MpFWScb2QUznnCibWLadzcXfWSvnPue4Qm/ +cyPXhkVzcZmF9UHlTg/oNE59XVDIxefNepOcne6w41DeFZsSLvqauk9VObnD +ZMldv0GSi1MhQl7bue4gSnRMaZdzscDhieK3pe6wbpGc7MNqLu5puxFSed8N +qt4UbH/9losWrIbTaYvdwFb4vnpIBxf1bDiZJpOu0GHVOCn1notuL6itvz66 +wq8HPxK2fOTigy3MD2nlrqCeo1X8fYCLxeXLA7O3uUJVp2nI6SEu3tI9NNS0 +wRVslzuB5igXA5rkWxcauoJ//KH/Dk5wcZ57eVypCH2/6hOXJH9zcW3ndjPZ +WReImbng+2CGi7XxXXoXv7rAUr2bapvnuMjKP23PeeUCWXseTPz7x8VR008J +tQ9d4H+MeEYs "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "PlotRange" -> {{0, 30}, {0., 0.0676215601415681}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -11059,6 +10995,7 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -11086,7 +11023,8 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.1813924222088017}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.0676215601415681}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -11094,17 +11032,565 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913306567510605`*^9}, + CellChangeTimes->{3.9913306567510605`*^9, 3.994252929657126*^9}, CellLabel-> - "Out[195]=",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] + "Out[119]=",ExpressionUUID->"4a867379-eca3-4773-a888-a3aa3a3e442b"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-\ -6bd251746ea6"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4Fd8bAHBRiUKR7druHddV9r0st/eVXUWW7EUJaZE2ZSlLRCmJSAsi +tNhmUkpUQtlKvi1IIdoka0JI/eb3xzzzfJ4zz8ycM+9yhrVtr6MfLw8PD+88 ++qDPk92NdezEvDXOjJ11lCuueZMlFWraEQNexrOhR2blAMVfbpPqSIHPU8bz +9GbVIWTjrXa+jlyI+C4+sHCWC8uGJVOm229DenjteN3MBuipstv7q70GOj0E +HCanN4Mle6BrrP0VVNg8Se2Y3APT7avSRtv7YGdSPOvAwFGoNbue91/uOARJ +BE9wx5NAtqfi6za1OUgLlb9UWJkOy3d73+I340O+yhdzFWczIUXbstJu0yIc +2vqOJ9UyF95laFWPLRVCg1gfRakN+ZCYF/mSV3oZ6uUkyvla3wDJ859OpmaK +IRTFHrL9eAukVO/G/i4QQ+LUJ1W777eAUXMicjMphq+zhr+u/3kL5EdXHlKu +FcNNS6L9jecXgtL6YJ/KfjHUF9bZ/UG5EHTnzxl80l2O97vyLqsHFYL9QYnP +Ok3L8U5hiMqCqUKId7ZZ82pSHF+sC1zuNF0EjDstDN55Eliw0b+nfF4xlIg5 +T2kvlkBMzYxfLlgMba+2kOcUJFAsbnDXQ0YxsB0OEg7WEli24mPgU+NiqNmQ +vbD1ogSu4WsMLo4ohjnLiZYXJpL4X/7ZhvbpYjhgmOPdGCOFdzsxfU9vCdhe +Ff617rQU9n93OdHyrQQI/oiEljQpLJP8O7lyuARa37hQr29IoaXWNbfWmRLQ +CF7C190ihTd/Si9/L1YK/QWHC34ypHG75CnlfvNS8FpuNyRTJo3S6SM/u3NL +QTe8MjqrShqDG8/sPHujFAT7Vkiwnkkj48ZnD6OSUqgo5QPOO2ncNaCaH1lR +ChLrKpK1/knjssS4D/UvS6E1mq1nsY6BfrEVj+xmS8F8ZCYs6BMDO9QlxxnK +JIRan1d5MshA7oV4yaSVJJTkqHeKTTLwkblK6l9VEqScfQwrFsng0xPM5HYt +EgbvP53i05BBXpvSnEAjElJjkg9ePCKDSS+y1YQ3kNAnzgmqE5LFmhhDB/dg +EiT3PpaTlJTFQ4dnDh3eT8L6BrcXgUxZ9I2V/JVykITysEQ1EV1ZXCrY+efJ +ERJO9YwOuLvJolDYGzOeaBJ0blYGjOTKYs7XyLq5ZBKiTRy2MlbLocs18vJc +CQnWW7J+rlorhx3VL6aGSBKEo34c37ReDp+Sr43e3ybhSm1cQbKPHEqvzgop +Kifhvu2DHwtPyqE4T+TzlY9IGHVTDBl/J4f8z+c0kp+TcC8smH/ZZzmcXiPM +sG8h4diVhxkaw3KYNBczKthKwpKPrpWBvPJoo9PhE/qaBOWA0zwfVeSRf0TG +TbuThC2HJk49D5dHoaCNP4S+kaB0Ya3sQJw8/pL+WHa5///rd7aYP1keZ26v +2sMZICHsz8rWtXnyWPS8vExniIS041vEK57L4/rBoEuccRKen6vPzpdTwMLG +MKWIvyQYlVy8c+yxAlrSU+gVpcC8vWVuuEEBm3XU7k2LUWDHM9/K+5UCyoi0 +PRARp8DXMegdfFHAor6hfl1JCizDWZFRC5g41yH7w0uGgmCFyWumqkzcz8fT +q61IwURZcsO0JhOlx91bmGwKwqxVhyg9Jobf/6IopERB3D4fA2INE3PTLAS6 +ORRcqm1q4HVg4uk6tUYfFQrqArKHakOYKD7SHDmgRYHNH0PRiHAmJllHsElt +ClqS3xjoRTEx5nzw6gM6FLyrEIjKO8lE9bK/pWO6FAwvPigad4WJotxnAy8N +KDhwVXgVN4eJN1Zcl4heRcFvvZueE/lM7O9Kuqu5mgK+Ld15fqVMjLP3tosz +pECKtF5lWcNE1qvM6WUmFGSaf/L8+4yJn3fZNpfQJt4djSpvZmKr51cxGy4F +6rxljZy3TLye+mNxyBoK1jrLefH3M7FMwCqfQgrq++9FPR5kYshAnImRKQXr +jzrmHx5jonPtE7tq2q4F8cPfZph4U2jt17q1FOz+PRbVIMRCqws8o6XmFBjt +85f4KspCX++TUhoWFCwa6Czkk2Khdr76xpu089/Xtq0hWMhbEjOSbklB96M0 +tbsGLOx6lz3P3pqColWCNa+MWRhrg+V3aYeRx1xHkYWqqrGR0jYUSOQGxKiu +o8fvNDh20LaPM+zI8WbhTRmtpbrrKJD/W7zn8XYWlvC/OhpDezCE4OsKZOGm +5pcLXtJO2LFYQ+ogC8cNGgO811Pg0htZqx/KQr+vxmbXaLM9frk5HWPh9vDf +xp9pV6/rOp6UwELTMIuEzRsoSKpzkC46w8L+RseuNNpe3GcljSkspBqvOTbT +Vik3Mv92gYU/H/7un6M9rVH6bn4mCy3yRHPU7ShouK64l8hlIY9uWbgH7XRm +xny8zsLKjiuhsbR1RKM1wykW3q1w63tJmydxoi6jnIVV/mV2Y7Rb+HZ6lFfS +8xHa0StiT8GViO6R19UszCs2uaxKe9eEY9zYUxZO/pmKMKdtFFTPEGlmIfht +jfegveibManWysKL800r99Bu8yYtbN+y8HGRt/Qx2nkd7PcBnSyM6zuRm0h7 +v8PF4LgeFrp0Rbmm08YmoYXXPrOw+ISUYRZtYbOYy9XfWXg+VNr6Gu2uykmt +7mEWyvBujMunXaS369nsOAvbZE+O5dEOK+7xlJ5moVNIypkc2tYc5zGDv/T7 +7DTyuExbIrvhhDMfgVnzN7ql0P4syZXdv4jA+rnchBO0bydT1FkhAjc95Bs8 +TDtKgGNVLErgmKvZcX/a9jGXPjRJEih6Vtfekbb8rPD+flkCT7YWbDSmPXjg +OP9CgsB+/eAEFu0Hg1NXFJUJFIj1nZpPO8Fvt46pGoHHVDZlfaHX26X7Y/0W +bQIXmzGO1dJmu27aHGFAIPtcwoUs2j9fNv68aEygd3TIjxDa1dZrEu4hgT9W +VIatp5305LbcWwsCl1hoWCrQ9jJSLvtpS2CG0Q27kf/Hh+rSbvVNBObHizPi +aU9mMqJ1PQi8mG0zaE/7l4gS29CbwJ2ZAVIStIfHDXeaBxJ4XTAn+hIdnz/8 +zIVsgwg0a99c7Ua7v92OtD9AoIyZlddy2n2VvpMeRwl01P9ecpyO/x71oIs+ +MQR6vbIKWEX7Q/YRE/94AqeNFKL6bel4OH4mZt85AlkCiW1raTetuyeckE+g +HbdCvYPOx/qHT6gztwhUqzWZd5h2neZz59RSAhnWQ8ZitB+J9V7KqiDQ0MJo +wMyK/l7vBZXvviCwxdl/7Qk6/0s3iDc9eEVgqIJWwFLaRY8V9lS3E8iz59/0 +Bbp+FFzTK2vuJXB2m9KebDO63u7aAn0TBOqoDOWcpevPha4dfd9mCKy8xLVf +QPu8/YG4oX/0+m07u+8IXb+SdBOafwsoorLyYylXoCBmlnIVkVfEpjSO4CRd +D3clLgg2sVREM5d400q6vu6YExFbu04R87Rmbi6i7b+XUW61URGnJpvTnOh6 +7OOk+cfRQxHlbunP9upR4CzjnhAYpIiF23okeun6blJYdDU9XRFfvJfaGqhK +wXtmYbbFZUWsOfdHO4vuD2HpN7N+ZSuig6ng19aVFNyLLrjieFMRRebdndFc +Qee729UM4SpFLBJo+/GG7j8rF5xPPtGriAExHy49kKPzwTs8KkSNjdMBF27N +CFFw901opJI2G/8svus7tIR+H9sjx97oszF4SkO6ezEFKfqHInSAjUXNByIq +BCgQWrL3yLADG83rp4zcFlAwv2JbsP9hNv7MvGxn8IeEMVFbH5caNi5euDMt +jO7XHbuJ1p31bJycOI+idD+vfjYDkc/ZGP7Xs+j6FxKSwwoVbrSxUVxduKm5 +jwStviU90wP0ONvSZPoDCUHUy82ZYkp4YInNyHd6/zBgv8nz83YlDCypMVa5 +R8Ln0z4u+/k5eOpa8rvtR+nrB9QIrSUcvH6/Jzg9nIQpq+mhoaUc/JDIdHgW +SoIgX0pcIIODA80Go8wQ+nmhtXd81DnIOzZT8ySIhKN+HDF7Jw5WWmacue1N +gsSawZeq2Rzc1c7Z5Iok2IwctvlioIyr82uVnk2XwqDvogN3IlegQOXy2GUl +JfT/gyRvfM1K7Knie9RH74dFX3CSyBEVXLHGaUSkthBkE0o3GhiooW7Gh/lT +S29BhqrhUrEAdUy+nd4RsOsGNDFM9cfPaaDP0ZWM608LwEi2JlmzTRM9W7oL +zkzngTBf7sGtMVoY3Sgikml/DeSjFUzcOdqo6PTfyX2JOSCg5FXuWK+N3h6H +u5dVZYMGV7r08GYdXJIrl6JVdQX2d4vW2vLoYr1M3KsP+RdhZPz0JpsMXeRZ +f0fAeDQdrDSfXbJR10MnecF3uw+eh0fjxrNTLXqYGNyr1DFxDoLUdDr/89PH +hCrDmvb8s8Ad3v7GXcAAfQS8PqsEJYIFW2qDUK4BJvQHJKX2xMOKqFNHalat +woEQzWCiMhZU/AwfK3Wuwt6wtJAqMhr8Hu2IvbNvNXYZB79d5nkMHl99s31M +3BBNGzefbTsXCr9u/JvSvGeIzlahapIRh8BXqVDg0gYj3IvD7cfU9sOYSqrB +7VEjdNn7XK6XEwT382Z7JxKM8a1xTrG3TiB4mCuisbwJmpeveNHP7wcye+Ir +NKpN6Pm/f7JUZysk/fPXT6wxwWSHeJ4/7K3Am2JJfaszQeOu719GJLfCQPmC +m1cbTTBn6GjK2JwPPOCJzRB9bYLZnv0/PZt8wON81OHJLyZo8fHN24btPpBR +Gar/aDEX9Xdr69eDN4gL7qY2uHJRgm8mep2XF+SZHQ0bdefir82alZlmXqBz +NMks1YuLDf6Mp7yqXmA3Sr7t2MpFWScb2QUznnCibWLadzcXfWSvnPue4Qm/ +cyPXhkVzcZmF9UHlTg/oNE59XVDIxefNepOcne6w41DeFZsSLvqauk9VObnD +ZMldv0GSi1MhQl7bue4gSnRMaZdzscDhieK3pe6wbpGc7MNqLu5puxFSed8N +qt4UbH/9losWrIbTaYvdwFb4vnpIBxf1bDiZJpOu0GHVOCn1notuL6itvz66 +wq8HPxK2fOTigy3MD2nlrqCeo1X8fYCLxeXLA7O3uUJVp2nI6SEu3tI9NNS0 +wRVslzuB5igXA5rkWxcauoJ//KH/Dk5wcZ57eVypCH2/6hOXJH9zcW3ndjPZ +WReImbng+2CGi7XxXXoXv7rAUr2bapvnuMjKP23PeeUCWXseTPz7x8VR008J +tQ9d4H+MeEYs + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Fd8bAHBRiUKR7druHddV9r0st/eVXUWW7EUJaZE2ZSlLRCmJSAsi +tNhmUkpUQtlKvi1IIdoka0JI/eb3xzzzfJ4zz8ycM+9yhrVtr6MfLw8PD+88 ++qDPk92NdezEvDXOjJ11lCuueZMlFWraEQNexrOhR2blAMVfbpPqSIHPU8bz +9GbVIWTjrXa+jlyI+C4+sHCWC8uGJVOm229DenjteN3MBuipstv7q70GOj0E +HCanN4Mle6BrrP0VVNg8Se2Y3APT7avSRtv7YGdSPOvAwFGoNbue91/uOARJ +BE9wx5NAtqfi6za1OUgLlb9UWJkOy3d73+I340O+yhdzFWczIUXbstJu0yIc +2vqOJ9UyF95laFWPLRVCg1gfRakN+ZCYF/mSV3oZ6uUkyvla3wDJ859OpmaK +IRTFHrL9eAukVO/G/i4QQ+LUJ1W777eAUXMicjMphq+zhr+u/3kL5EdXHlKu +FcNNS6L9jecXgtL6YJ/KfjHUF9bZ/UG5EHTnzxl80l2O97vyLqsHFYL9QYnP +Ok3L8U5hiMqCqUKId7ZZ82pSHF+sC1zuNF0EjDstDN55Eliw0b+nfF4xlIg5 +T2kvlkBMzYxfLlgMba+2kOcUJFAsbnDXQ0YxsB0OEg7WEli24mPgU+NiqNmQ +vbD1ogSu4WsMLo4ohjnLiZYXJpL4X/7ZhvbpYjhgmOPdGCOFdzsxfU9vCdhe +Ff617rQU9n93OdHyrQQI/oiEljQpLJP8O7lyuARa37hQr29IoaXWNbfWmRLQ +CF7C190ihTd/Si9/L1YK/QWHC34ypHG75CnlfvNS8FpuNyRTJo3S6SM/u3NL +QTe8MjqrShqDG8/sPHujFAT7Vkiwnkkj48ZnD6OSUqgo5QPOO2ncNaCaH1lR +ChLrKpK1/knjssS4D/UvS6E1mq1nsY6BfrEVj+xmS8F8ZCYs6BMDO9QlxxnK +JIRan1d5MshA7oV4yaSVJJTkqHeKTTLwkblK6l9VEqScfQwrFsng0xPM5HYt +EgbvP53i05BBXpvSnEAjElJjkg9ePCKDSS+y1YQ3kNAnzgmqE5LFmhhDB/dg +EiT3PpaTlJTFQ4dnDh3eT8L6BrcXgUxZ9I2V/JVykITysEQ1EV1ZXCrY+efJ +ERJO9YwOuLvJolDYGzOeaBJ0blYGjOTKYs7XyLq5ZBKiTRy2MlbLocs18vJc +CQnWW7J+rlorhx3VL6aGSBKEo34c37ReDp+Sr43e3ybhSm1cQbKPHEqvzgop +Kifhvu2DHwtPyqE4T+TzlY9IGHVTDBl/J4f8z+c0kp+TcC8smH/ZZzmcXiPM +sG8h4diVhxkaw3KYNBczKthKwpKPrpWBvPJoo9PhE/qaBOWA0zwfVeSRf0TG +TbuThC2HJk49D5dHoaCNP4S+kaB0Ya3sQJw8/pL+WHa5///rd7aYP1keZ26v +2sMZICHsz8rWtXnyWPS8vExniIS041vEK57L4/rBoEuccRKen6vPzpdTwMLG +MKWIvyQYlVy8c+yxAlrSU+gVpcC8vWVuuEEBm3XU7k2LUWDHM9/K+5UCyoi0 +PRARp8DXMegdfFHAor6hfl1JCizDWZFRC5g41yH7w0uGgmCFyWumqkzcz8fT +q61IwURZcsO0JhOlx91bmGwKwqxVhyg9Jobf/6IopERB3D4fA2INE3PTLAS6 +ORRcqm1q4HVg4uk6tUYfFQrqArKHakOYKD7SHDmgRYHNH0PRiHAmJllHsElt +ClqS3xjoRTEx5nzw6gM6FLyrEIjKO8lE9bK/pWO6FAwvPigad4WJotxnAy8N +KDhwVXgVN4eJN1Zcl4heRcFvvZueE/lM7O9Kuqu5mgK+Ld15fqVMjLP3tosz +pECKtF5lWcNE1qvM6WUmFGSaf/L8+4yJn3fZNpfQJt4djSpvZmKr51cxGy4F +6rxljZy3TLye+mNxyBoK1jrLefH3M7FMwCqfQgrq++9FPR5kYshAnImRKQXr +jzrmHx5jonPtE7tq2q4F8cPfZph4U2jt17q1FOz+PRbVIMRCqws8o6XmFBjt +85f4KspCX++TUhoWFCwa6Czkk2Khdr76xpu089/Xtq0hWMhbEjOSbklB96M0 +tbsGLOx6lz3P3pqColWCNa+MWRhrg+V3aYeRx1xHkYWqqrGR0jYUSOQGxKiu +o8fvNDh20LaPM+zI8WbhTRmtpbrrKJD/W7zn8XYWlvC/OhpDezCE4OsKZOGm +5pcLXtJO2LFYQ+ogC8cNGgO811Pg0htZqx/KQr+vxmbXaLM9frk5HWPh9vDf +xp9pV6/rOp6UwELTMIuEzRsoSKpzkC46w8L+RseuNNpe3GcljSkspBqvOTbT +Vik3Mv92gYU/H/7un6M9rVH6bn4mCy3yRHPU7ShouK64l8hlIY9uWbgH7XRm +xny8zsLKjiuhsbR1RKM1wykW3q1w63tJmydxoi6jnIVV/mV2Y7Rb+HZ6lFfS +8xHa0StiT8GViO6R19UszCs2uaxKe9eEY9zYUxZO/pmKMKdtFFTPEGlmIfht +jfegveibManWysKL800r99Bu8yYtbN+y8HGRt/Qx2nkd7PcBnSyM6zuRm0h7 +v8PF4LgeFrp0Rbmm08YmoYXXPrOw+ISUYRZtYbOYy9XfWXg+VNr6Gu2uykmt +7mEWyvBujMunXaS369nsOAvbZE+O5dEOK+7xlJ5moVNIypkc2tYc5zGDv/T7 +7DTyuExbIrvhhDMfgVnzN7ql0P4syZXdv4jA+rnchBO0bydT1FkhAjc95Bs8 +TDtKgGNVLErgmKvZcX/a9jGXPjRJEih6Vtfekbb8rPD+flkCT7YWbDSmPXjg +OP9CgsB+/eAEFu0Hg1NXFJUJFIj1nZpPO8Fvt46pGoHHVDZlfaHX26X7Y/0W +bQIXmzGO1dJmu27aHGFAIPtcwoUs2j9fNv68aEygd3TIjxDa1dZrEu4hgT9W +VIatp5305LbcWwsCl1hoWCrQ9jJSLvtpS2CG0Q27kf/Hh+rSbvVNBObHizPi +aU9mMqJ1PQi8mG0zaE/7l4gS29CbwJ2ZAVIStIfHDXeaBxJ4XTAn+hIdnz/8 +zIVsgwg0a99c7Ua7v92OtD9AoIyZlddy2n2VvpMeRwl01P9ecpyO/x71oIs+ +MQR6vbIKWEX7Q/YRE/94AqeNFKL6bel4OH4mZt85AlkCiW1raTetuyeckE+g +HbdCvYPOx/qHT6gztwhUqzWZd5h2neZz59RSAhnWQ8ZitB+J9V7KqiDQ0MJo +wMyK/l7vBZXvviCwxdl/7Qk6/0s3iDc9eEVgqIJWwFLaRY8V9lS3E8iz59/0 +Bbp+FFzTK2vuJXB2m9KebDO63u7aAn0TBOqoDOWcpevPha4dfd9mCKy8xLVf +QPu8/YG4oX/0+m07u+8IXb+SdBOafwsoorLyYylXoCBmlnIVkVfEpjSO4CRd +D3clLgg2sVREM5d400q6vu6YExFbu04R87Rmbi6i7b+XUW61URGnJpvTnOh6 +7OOk+cfRQxHlbunP9upR4CzjnhAYpIiF23okeun6blJYdDU9XRFfvJfaGqhK +wXtmYbbFZUWsOfdHO4vuD2HpN7N+ZSuig6ng19aVFNyLLrjieFMRRebdndFc +Qee729UM4SpFLBJo+/GG7j8rF5xPPtGriAExHy49kKPzwTs8KkSNjdMBF27N +CFFw901opJI2G/8svus7tIR+H9sjx97oszF4SkO6ezEFKfqHInSAjUXNByIq +BCgQWrL3yLADG83rp4zcFlAwv2JbsP9hNv7MvGxn8IeEMVFbH5caNi5euDMt +jO7XHbuJ1p31bJycOI+idD+vfjYDkc/ZGP7Xs+j6FxKSwwoVbrSxUVxduKm5 +jwStviU90wP0ONvSZPoDCUHUy82ZYkp4YInNyHd6/zBgv8nz83YlDCypMVa5 +R8Ln0z4u+/k5eOpa8rvtR+nrB9QIrSUcvH6/Jzg9nIQpq+mhoaUc/JDIdHgW +SoIgX0pcIIODA80Go8wQ+nmhtXd81DnIOzZT8ySIhKN+HDF7Jw5WWmacue1N +gsSawZeq2Rzc1c7Z5Iok2IwctvlioIyr82uVnk2XwqDvogN3IlegQOXy2GUl +JfT/gyRvfM1K7Knie9RH74dFX3CSyBEVXLHGaUSkthBkE0o3GhiooW7Gh/lT +S29BhqrhUrEAdUy+nd4RsOsGNDFM9cfPaaDP0ZWM608LwEi2JlmzTRM9W7oL +zkzngTBf7sGtMVoY3Sgikml/DeSjFUzcOdqo6PTfyX2JOSCg5FXuWK+N3h6H +u5dVZYMGV7r08GYdXJIrl6JVdQX2d4vW2vLoYr1M3KsP+RdhZPz0JpsMXeRZ +f0fAeDQdrDSfXbJR10MnecF3uw+eh0fjxrNTLXqYGNyr1DFxDoLUdDr/89PH +hCrDmvb8s8Ad3v7GXcAAfQS8PqsEJYIFW2qDUK4BJvQHJKX2xMOKqFNHalat +woEQzWCiMhZU/AwfK3Wuwt6wtJAqMhr8Hu2IvbNvNXYZB79d5nkMHl99s31M +3BBNGzefbTsXCr9u/JvSvGeIzlahapIRh8BXqVDg0gYj3IvD7cfU9sOYSqrB +7VEjdNn7XK6XEwT382Z7JxKM8a1xTrG3TiB4mCuisbwJmpeveNHP7wcye+Ir +NKpN6Pm/f7JUZysk/fPXT6wxwWSHeJ4/7K3Am2JJfaszQeOu719GJLfCQPmC +m1cbTTBn6GjK2JwPPOCJzRB9bYLZnv0/PZt8wON81OHJLyZo8fHN24btPpBR +Gar/aDEX9Xdr69eDN4gL7qY2uHJRgm8mep2XF+SZHQ0bdefir82alZlmXqBz +NMks1YuLDf6Mp7yqXmA3Sr7t2MpFWScb2QUznnCibWLadzcXfWSvnPue4Qm/ +cyPXhkVzcZmF9UHlTg/oNE59XVDIxefNepOcne6w41DeFZsSLvqauk9VObnD +ZMldv0GSi1MhQl7bue4gSnRMaZdzscDhieK3pe6wbpGc7MNqLu5puxFSed8N +qt4UbH/9losWrIbTaYvdwFb4vnpIBxf1bDiZJpOu0GHVOCn1notuL6itvz66 +wq8HPxK2fOTigy3MD2nlrqCeo1X8fYCLxeXLA7O3uUJVp2nI6SEu3tI9NNS0 +wRVslzuB5igXA5rkWxcauoJ//KH/Dk5wcZ57eVypCH2/6hOXJH9zcW3ndjPZ +WReImbng+2CGi7XxXXoXv7rAUr2bapvnuMjKP23PeeUCWXseTPz7x8VR008J +tQ9d4H+MeEYs + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0676215601415681}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0676215601415681}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Fd8bAHBRiUKR7druHddV9r0st/eVXUWW7EUJaZE2ZSlLRCmJSAsi +tNhmUkpUQtlKvi1IIdoka0JI/eb3xzzzfJ4zz8ycM+9yhrVtr6MfLw8PD+88 ++qDPk92NdezEvDXOjJ11lCuueZMlFWraEQNexrOhR2blAMVfbpPqSIHPU8bz +9GbVIWTjrXa+jlyI+C4+sHCWC8uGJVOm229DenjteN3MBuipstv7q70GOj0E +HCanN4Mle6BrrP0VVNg8Se2Y3APT7avSRtv7YGdSPOvAwFGoNbue91/uOARJ +BE9wx5NAtqfi6za1OUgLlb9UWJkOy3d73+I340O+yhdzFWczIUXbstJu0yIc +2vqOJ9UyF95laFWPLRVCg1gfRakN+ZCYF/mSV3oZ6uUkyvla3wDJ859OpmaK +IRTFHrL9eAukVO/G/i4QQ+LUJ1W777eAUXMicjMphq+zhr+u/3kL5EdXHlKu +FcNNS6L9jecXgtL6YJ/KfjHUF9bZ/UG5EHTnzxl80l2O97vyLqsHFYL9QYnP +Ok3L8U5hiMqCqUKId7ZZ82pSHF+sC1zuNF0EjDstDN55Eliw0b+nfF4xlIg5 +T2kvlkBMzYxfLlgMba+2kOcUJFAsbnDXQ0YxsB0OEg7WEli24mPgU+NiqNmQ +vbD1ogSu4WsMLo4ohjnLiZYXJpL4X/7ZhvbpYjhgmOPdGCOFdzsxfU9vCdhe +Ff617rQU9n93OdHyrQQI/oiEljQpLJP8O7lyuARa37hQr29IoaXWNbfWmRLQ +CF7C190ihTd/Si9/L1YK/QWHC34ypHG75CnlfvNS8FpuNyRTJo3S6SM/u3NL +QTe8MjqrShqDG8/sPHujFAT7Vkiwnkkj48ZnD6OSUqgo5QPOO2ncNaCaH1lR +ChLrKpK1/knjssS4D/UvS6E1mq1nsY6BfrEVj+xmS8F8ZCYs6BMDO9QlxxnK +JIRan1d5MshA7oV4yaSVJJTkqHeKTTLwkblK6l9VEqScfQwrFsng0xPM5HYt +EgbvP53i05BBXpvSnEAjElJjkg9ePCKDSS+y1YQ3kNAnzgmqE5LFmhhDB/dg +EiT3PpaTlJTFQ4dnDh3eT8L6BrcXgUxZ9I2V/JVykITysEQ1EV1ZXCrY+efJ +ERJO9YwOuLvJolDYGzOeaBJ0blYGjOTKYs7XyLq5ZBKiTRy2MlbLocs18vJc +CQnWW7J+rlorhx3VL6aGSBKEo34c37ReDp+Sr43e3ybhSm1cQbKPHEqvzgop +Kifhvu2DHwtPyqE4T+TzlY9IGHVTDBl/J4f8z+c0kp+TcC8smH/ZZzmcXiPM +sG8h4diVhxkaw3KYNBczKthKwpKPrpWBvPJoo9PhE/qaBOWA0zwfVeSRf0TG +TbuThC2HJk49D5dHoaCNP4S+kaB0Ya3sQJw8/pL+WHa5///rd7aYP1keZ26v +2sMZICHsz8rWtXnyWPS8vExniIS041vEK57L4/rBoEuccRKen6vPzpdTwMLG +MKWIvyQYlVy8c+yxAlrSU+gVpcC8vWVuuEEBm3XU7k2LUWDHM9/K+5UCyoi0 +PRARp8DXMegdfFHAor6hfl1JCizDWZFRC5g41yH7w0uGgmCFyWumqkzcz8fT +q61IwURZcsO0JhOlx91bmGwKwqxVhyg9Jobf/6IopERB3D4fA2INE3PTLAS6 +ORRcqm1q4HVg4uk6tUYfFQrqArKHakOYKD7SHDmgRYHNH0PRiHAmJllHsElt +ClqS3xjoRTEx5nzw6gM6FLyrEIjKO8lE9bK/pWO6FAwvPigad4WJotxnAy8N +KDhwVXgVN4eJN1Zcl4heRcFvvZueE/lM7O9Kuqu5mgK+Ld15fqVMjLP3tosz +pECKtF5lWcNE1qvM6WUmFGSaf/L8+4yJn3fZNpfQJt4djSpvZmKr51cxGy4F +6rxljZy3TLye+mNxyBoK1jrLefH3M7FMwCqfQgrq++9FPR5kYshAnImRKQXr +jzrmHx5jonPtE7tq2q4F8cPfZph4U2jt17q1FOz+PRbVIMRCqws8o6XmFBjt +85f4KspCX++TUhoWFCwa6Czkk2Khdr76xpu089/Xtq0hWMhbEjOSbklB96M0 +tbsGLOx6lz3P3pqColWCNa+MWRhrg+V3aYeRx1xHkYWqqrGR0jYUSOQGxKiu +o8fvNDh20LaPM+zI8WbhTRmtpbrrKJD/W7zn8XYWlvC/OhpDezCE4OsKZOGm +5pcLXtJO2LFYQ+ogC8cNGgO811Pg0htZqx/KQr+vxmbXaLM9frk5HWPh9vDf +xp9pV6/rOp6UwELTMIuEzRsoSKpzkC46w8L+RseuNNpe3GcljSkspBqvOTbT +Vik3Mv92gYU/H/7un6M9rVH6bn4mCy3yRHPU7ShouK64l8hlIY9uWbgH7XRm +xny8zsLKjiuhsbR1RKM1wykW3q1w63tJmydxoi6jnIVV/mV2Y7Rb+HZ6lFfS +8xHa0StiT8GViO6R19UszCs2uaxKe9eEY9zYUxZO/pmKMKdtFFTPEGlmIfht +jfegveibManWysKL800r99Bu8yYtbN+y8HGRt/Qx2nkd7PcBnSyM6zuRm0h7 +v8PF4LgeFrp0Rbmm08YmoYXXPrOw+ISUYRZtYbOYy9XfWXg+VNr6Gu2uykmt +7mEWyvBujMunXaS369nsOAvbZE+O5dEOK+7xlJ5moVNIypkc2tYc5zGDv/T7 +7DTyuExbIrvhhDMfgVnzN7ql0P4syZXdv4jA+rnchBO0bydT1FkhAjc95Bs8 +TDtKgGNVLErgmKvZcX/a9jGXPjRJEih6Vtfekbb8rPD+flkCT7YWbDSmPXjg +OP9CgsB+/eAEFu0Hg1NXFJUJFIj1nZpPO8Fvt46pGoHHVDZlfaHX26X7Y/0W +bQIXmzGO1dJmu27aHGFAIPtcwoUs2j9fNv68aEygd3TIjxDa1dZrEu4hgT9W +VIatp5305LbcWwsCl1hoWCrQ9jJSLvtpS2CG0Q27kf/Hh+rSbvVNBObHizPi +aU9mMqJ1PQi8mG0zaE/7l4gS29CbwJ2ZAVIStIfHDXeaBxJ4XTAn+hIdnz/8 +zIVsgwg0a99c7Ua7v92OtD9AoIyZlddy2n2VvpMeRwl01P9ecpyO/x71oIs+ +MQR6vbIKWEX7Q/YRE/94AqeNFKL6bel4OH4mZt85AlkCiW1raTetuyeckE+g +HbdCvYPOx/qHT6gztwhUqzWZd5h2neZz59RSAhnWQ8ZitB+J9V7KqiDQ0MJo +wMyK/l7vBZXvviCwxdl/7Qk6/0s3iDc9eEVgqIJWwFLaRY8V9lS3E8iz59/0 +Bbp+FFzTK2vuJXB2m9KebDO63u7aAn0TBOqoDOWcpevPha4dfd9mCKy8xLVf +QPu8/YG4oX/0+m07u+8IXb+SdBOafwsoorLyYylXoCBmlnIVkVfEpjSO4CRd +D3clLgg2sVREM5d400q6vu6YExFbu04R87Rmbi6i7b+XUW61URGnJpvTnOh6 +7OOk+cfRQxHlbunP9upR4CzjnhAYpIiF23okeun6blJYdDU9XRFfvJfaGqhK +wXtmYbbFZUWsOfdHO4vuD2HpN7N+ZSuig6ng19aVFNyLLrjieFMRRebdndFc +Qee729UM4SpFLBJo+/GG7j8rF5xPPtGriAExHy49kKPzwTs8KkSNjdMBF27N +CFFw901opJI2G/8svus7tIR+H9sjx97oszF4SkO6ezEFKfqHInSAjUXNByIq +BCgQWrL3yLADG83rp4zcFlAwv2JbsP9hNv7MvGxn8IeEMVFbH5caNi5euDMt +jO7XHbuJ1p31bJycOI+idD+vfjYDkc/ZGP7Xs+j6FxKSwwoVbrSxUVxduKm5 +jwStviU90wP0ONvSZPoDCUHUy82ZYkp4YInNyHd6/zBgv8nz83YlDCypMVa5 +R8Ln0z4u+/k5eOpa8rvtR+nrB9QIrSUcvH6/Jzg9nIQpq+mhoaUc/JDIdHgW +SoIgX0pcIIODA80Go8wQ+nmhtXd81DnIOzZT8ySIhKN+HDF7Jw5WWmacue1N +gsSawZeq2Rzc1c7Z5Iok2IwctvlioIyr82uVnk2XwqDvogN3IlegQOXy2GUl +JfT/gyRvfM1K7Knie9RH74dFX3CSyBEVXLHGaUSkthBkE0o3GhiooW7Gh/lT +S29BhqrhUrEAdUy+nd4RsOsGNDFM9cfPaaDP0ZWM608LwEi2JlmzTRM9W7oL +zkzngTBf7sGtMVoY3Sgikml/DeSjFUzcOdqo6PTfyX2JOSCg5FXuWK+N3h6H +u5dVZYMGV7r08GYdXJIrl6JVdQX2d4vW2vLoYr1M3KsP+RdhZPz0JpsMXeRZ +f0fAeDQdrDSfXbJR10MnecF3uw+eh0fjxrNTLXqYGNyr1DFxDoLUdDr/89PH +hCrDmvb8s8Ad3v7GXcAAfQS8PqsEJYIFW2qDUK4BJvQHJKX2xMOKqFNHalat +woEQzWCiMhZU/AwfK3Wuwt6wtJAqMhr8Hu2IvbNvNXYZB79d5nkMHl99s31M +3BBNGzefbTsXCr9u/JvSvGeIzlahapIRh8BXqVDg0gYj3IvD7cfU9sOYSqrB +7VEjdNn7XK6XEwT382Z7JxKM8a1xTrG3TiB4mCuisbwJmpeveNHP7wcye+Ir +NKpN6Pm/f7JUZysk/fPXT6wxwWSHeJ4/7K3Am2JJfaszQeOu719GJLfCQPmC +m1cbTTBn6GjK2JwPPOCJzRB9bYLZnv0/PZt8wON81OHJLyZo8fHN24btPpBR +Gar/aDEX9Xdr69eDN4gL7qY2uHJRgm8mep2XF+SZHQ0bdefir82alZlmXqBz +NMks1YuLDf6Mp7yqXmA3Sr7t2MpFWScb2QUznnCibWLadzcXfWSvnPue4Qm/ +cyPXhkVzcZmF9UHlTg/oNE59XVDIxefNepOcne6w41DeFZsSLvqauk9VObnD +ZMldv0GSi1MhQl7bue4gSnRMaZdzscDhieK3pe6wbpGc7MNqLu5puxFSed8N +qt4UbH/9losWrIbTaYvdwFb4vnpIBxf1bDiZJpOu0GHVOCn1notuL6itvz66 +wq8HPxK2fOTigy3MD2nlrqCeo1X8fYCLxeXLA7O3uUJVp2nI6SEu3tI9NNS0 +wRVslzuB5igXA5rkWxcauoJ//KH/Dk5wcZ57eVypCH2/6hOXJH9zcW3ndjPZ +WReImbng+2CGi7XxXXoXv7rAUr2bapvnuMjKP23PeeUCWXseTPz7x8VR008J +tQ9d4H+MeEYs + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0676215601415681}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.0676215601415681}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994252929741807*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"c41d5882-ccef-45dc-898a-200e5ee3c613"] +}, Open ]], Cell[CellGroupData[{ @@ -11115,26 +11601,30 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], - ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -11156,66 +11646,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[199]:=",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], + "In[121]:=",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 199, 165, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331752212366*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.768553232930742`*^-163\\\", \ +RowBox[{\\\"505518991860510123640143\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"101\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 45, + 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331752212366*^9, 3.994252929798932*^9}, CellLabel-> "During evaluation of \ -In[199]:=",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], +In[121]:=",ExpressionUUID->"41c8bb1c-2a34-4bfc-963c-0122f8279907"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 199, 166, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133175222237*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.310432970915479`*^-166\\\", \ +RowBox[{\\\"164243120455479739170682\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"105\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 46, + 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331752212366*^9, 3.994252929808826*^9}, CellLabel-> "During evaluation of \ -In[199]:=",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], +In[121]:=",ExpressionUUID->"b3f92445-b2d5-4939-8d36-41f93e4a8b0c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ -\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ -2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 199, 167, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317522303677`*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.264442584522434`*^-169\\\", \ +RowBox[{\\\"552513857212233842570175\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"108\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 47, + 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331752212366*^9, 3.994252929818343*^9}, CellLabel-> "During evaluation of \ -In[199]:=",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], +In[121]:=",ExpressionUUID->"4f7fa6ca-78fc-4b44-bd4b-ee79297c59f2"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 199, 168, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331752237467*^9}, +during this calculation.\"", 2, 121, 48, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331752212366*^9, 3.9942529298274918`*^9}, CellLabel-> "During evaluation of \ -In[199]:=",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], +In[121]:=",ExpressionUUID->"dac0423d-95e3-46c0-b7a7-ff07f6a48d80"], -Cell[BoxData["9.779568499633264`"], "Output", - CellChangeTimes->{3.991331759108553*^9}, +Cell[BoxData["11.440681110241243`"], "Output", + CellChangeTimes->{3.991331759108553*^9, 3.9942530155694733`*^9}, CellLabel-> - "Out[199]=",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] + "Out[121]=",ExpressionUUID->"717df061-3802-46c3-abd1-5e3c3776be52"] }, Open ]], Cell[CellGroupData[{ @@ -11282,68 +11779,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849016830597*^9, - 3.991849020984995*^9}},ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-\ -7a397847208f"], + CellChangeTimes->{{3.991849016830597*^9, 3.991849020984995*^9}}, + CellLabel-> + "In[122]:=",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 200, - 169, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317591425533`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.562847661786641`*^-214\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 122, 49, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317591425533`*^9, 3.9942530156216373`*^9}, CellLabel-> "During evaluation of \ -In[200]:=",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], +In[122]:=",ExpressionUUID->"b67b4091-2e1d-4c21-9003-1c11dcb8c0f5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 200, - 170, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317591525517`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.856292636930497`*^-219\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 122, 50, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317591425533`*^9, 3.994253015630682*^9}, CellLabel-> "During evaluation of \ -In[200]:=",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], +In[122]:=",ExpressionUUID->"fdbfeec5-2695-4ed1-b910-f4909796a535"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 200, 171, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331759160553*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.7880078916745698`*^-224\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 122, 51, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317591425533`*^9, 3.994253015639434*^9}, CellLabel-> "During evaluation of \ -In[200]:=",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], +In[122]:=",ExpressionUUID->"67d32937-eefb-4456-9afa-5f6636c334c3"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 200, 172, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317591685543`*^9}, +during this calculation.\"", 2, 122, 52, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317591425533`*^9, 3.994253015650401*^9}, CellLabel-> "During evaluation of \ -In[200]:=",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], +In[122]:=",ExpressionUUID->"a56a3855-0e87-4a6a-aa14-725a6000e012"], -Cell[BoxData["1.044718879268698`"], "Output", - CellChangeTimes->{3.991331766558941*^9}, +Cell[BoxData["0.33348532347890164`"], "Output", + CellChangeTimes->{3.991331766558941*^9, 3.994253027109874*^9}, CellLabel-> - "Out[200]=",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] + "Out[122]=",ExpressionUUID->"5d81673d-ed78-4c4e-a055-2b8dd13aa877"] }, Open ]], Cell[CellGroupData[{ @@ -11364,8 +11865,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -11410,68 +11910,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849024657757*^9, - 3.991849027138817*^9}},ExpressionUUID->"22b50200-0b82-dc47-9932-\ -f1f0210d6caf"], + CellChangeTimes->{{3.991849024657757*^9, 3.991849027138817*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 201, - 173, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317665951805`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.562847661786641`*^-214\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 123, 53, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317665951805`*^9, 3.994253027160963*^9}, CellLabel-> "During evaluation of \ -In[201]:=",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], +In[123]:=",ExpressionUUID->"b7336138-1be3-4544-8b95-200fc988a3a7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 201, - 174, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317666041794`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.856292636930497`*^-219\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 123, 54, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317665951805`*^9, 3.9942530271721487`*^9}, CellLabel-> "During evaluation of \ -In[201]:=",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], +In[123]:=",ExpressionUUID->"c3f92d26-1d41-4dbe-a2f8-77265a51eb20"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 201, 175, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317666131783`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.7880078916745698`*^-224\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 123, 55, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317665951805`*^9, 3.994253027181437*^9}, CellLabel-> "During evaluation of \ -In[201]:=",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], +In[123]:=",ExpressionUUID->"a2e46a29-bbc8-47e8-931a-11367cc4c291"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 201, 176, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317666211815`*^9}, +during this calculation.\"", 2, 123, 56, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317665951805`*^9, 3.99425302719042*^9}, CellLabel-> "During evaluation of \ -In[201]:=",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], +In[123]:=",ExpressionUUID->"e0e85e75-d56a-4d74-b441-be897ee0d785"], -Cell[BoxData["4.7987767072565894`"], "Output", - CellChangeTimes->{3.991331773590704*^9}, +Cell[BoxData["34.53015132144531`"], "Output", + CellChangeTimes->{3.991331773590704*^9, 3.994253037801791*^9}, CellLabel-> - "Out[201]=",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] + "Out[123]=",ExpressionUUID->"5117aa1a-35bf-4bbd-a57a-6c562ef0a5eb"] }, Open ]], Cell[CellGroupData[{ @@ -11492,8 +11996,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -11538,68 +12041,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849031047804*^9, - 3.9918490341764317`*^9}},ExpressionUUID->"8a5105db-666c-444e-9451-\ -d3e8d1574bcd"], + CellChangeTimes->{{3.991849031047804*^9, 3.9918490341764317`*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 202, - 177, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317736257057`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.562847661786641`*^-214\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 124, 57, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317736257057`*^9, 3.9942530378602333`*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], +In[124]:=",ExpressionUUID->"068b2133-6533-46c4-aa94-cc5f16c8fc87"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 202, - 178, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317736361847`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.856292636930497`*^-219\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 124, 58, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317736257057`*^9, 3.994253037869926*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], +In[124]:=",ExpressionUUID->"7168909c-1a56-4180-9c62-e68447986af4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 202, 179, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331773644182*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.7880078916745698`*^-224\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 124, 59, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317736257057`*^9, 3.9942530378819427`*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], +In[124]:=",ExpressionUUID->"165ce665-a623-4a65-8e2a-259260ca0440"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 202, 180, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331773653183*^9}, +during this calculation.\"", 2, 124, 60, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317736257057`*^9, 3.994253037892508*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], +In[124]:=",ExpressionUUID->"04937824-4e84-42df-81fc-b2fba1eb331f"], -Cell[BoxData["15.12281532960454`"], "Output", - CellChangeTimes->{3.991331777337887*^9}, +Cell[BoxData["5.781345257491713`"], "Output", + CellChangeTimes->{3.991331777337887*^9, 3.994253046794106*^9}, CellLabel-> - "Out[202]=",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] + "Out[124]=",ExpressionUUID->"77e07b5c-59bd-4aed-88f5-91a09c50f725"] }, Open ]], Cell[CellGroupData[{ @@ -11608,22 +12115,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918490375675926`*^9, - 3.991849040901537*^9}},ExpressionUUID->"d0efa798-230b-fa46-b413-\ -76bfd8e40ccb"], - -Cell[BoxData["0.12263596348954131`"], "Output", - CellChangeTimes->{3.9913317773679104`*^9}, + CellChangeTimes->{{3.9918490375675926`*^9, 3.991849040901537*^9}}, CellLabel-> - "Out[203]=",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] + "In[125]:=",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], + +Cell[BoxData["0.02360277312477385`"], "Output", + CellChangeTimes->{3.9913317773679104`*^9, 3.99425304684192*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"66392f6f-be93-4d2d-af64-b71f3aa95f30"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918490438339844`*^9, 3.991849046673996*^9}, - 3.9919249287922287`*^9},ExpressionUUID->"f842f74e-f562-934a-9011-\ -6604b8708636"], + 3.9919249287922287`*^9}, + CellLabel-> + "In[126]:=",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], Cell[CellGroupData[{ @@ -11646,12 +12154,12 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[205]:=",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], + "In[127]:=",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], -Cell[BoxData["12.368532070745184`"], "Output", - CellChangeTimes->{3.9913317774008274`*^9}, +Cell[BoxData["7.3663521403016965`"], "Output", + CellChangeTimes->{3.9913317774008274`*^9, 3.994253046866674*^9}, CellLabel-> - "Out[205]=",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] + "Out[127]=",ExpressionUUID->"0dee023c-e70f-4b0c-8753-fa220d31bbbf"] }, Open ]], Cell[CellGroupData[{ @@ -11661,12 +12169,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[207]:=",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], + "In[128]:=",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], -Cell[BoxData["1.0665924029125342`"], "Output", - CellChangeTimes->{3.9913317774358253`*^9}, +Cell[BoxData["3.8666222542076496`"], "Output", + CellChangeTimes->{3.9913317774358253`*^9, 3.994253046880425*^9}, CellLabel-> - "Out[207]=",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] + "Out[128]=",ExpressionUUID->"ff4c3e4a-8110-4c5d-9092-41cbc3a015e4"] }, Open ]], Cell[CellGroupData[{ @@ -11676,12 +12184,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[210]:=",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], + "In[129]:=",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], -Cell[BoxData["13.192182341836848`"], "Output", - CellChangeTimes->{3.991331777510603*^9}, +Cell[BoxData["28.48290111802069`"], "Output", + CellChangeTimes->{3.991331777510603*^9, 3.994253046895293*^9}, CellLabel-> - "Out[210]=",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] + "Out[129]=",ExpressionUUID->"6d550707-8a6b-45b8-852a-fdff744ac241"] }, Open ]], Cell[CellGroupData[{ @@ -11871,12 +12379,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[211]:=",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], + "In[130]:=",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], -Cell[BoxData["0.041096786108657246`"], "Output", - CellChangeTimes->{3.991331777537592*^9}, +Cell[BoxData["0.0060955333283108344`"], "Output", + CellChangeTimes->{3.991331777537592*^9, 3.994253046914168*^9}, CellLabel-> - "Out[211]=",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] + "Out[130]=",ExpressionUUID->"d0bd2f83-2413-47f4-8b65-6faba96bdf84"] }, Open ]], Cell[CellGroupData[{ @@ -11890,12 +12398,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[212]:=",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], + "In[131]:=",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], -Cell[BoxData["4.371605972693579`"], "Output", - CellChangeTimes->{3.9913317776362495`*^9}, +Cell[BoxData["11.35112968856103`"], "Output", + CellChangeTimes->{3.9913317776362495`*^9, 3.99425304709918*^9}, CellLabel-> - "Out[212]=",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] + "Out[131]=",ExpressionUUID->"fdf7913f-9b6d-4321-92a8-339bcc723587"] }, Open ]], Cell[CellGroupData[{ @@ -12087,12 +12595,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[213]:=",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], + "In[132]:=",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], -Cell[BoxData["0.013804398425195999`"], "Output", - CellChangeTimes->{3.9913317776511555`*^9}, +Cell[BoxData["0.0332324322416519`"], "Output", + CellChangeTimes->{3.9913317776511555`*^9, 3.994253047120063*^9}, CellLabel-> - "Out[213]=",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] + "Out[132]=",ExpressionUUID->"49677e84-12da-404b-b9d3-507c2c4e09af"] }, Open ]], Cell[CellGroupData[{ @@ -12106,12 +12614,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[214]:=",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], + "In[133]:=",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], -Cell[BoxData["7.5428626210616345`"], "Output", - CellChangeTimes->{3.991331777742655*^9}, +Cell[BoxData["4.861428209148306`"], "Output", + CellChangeTimes->{3.991331777742655*^9, 3.9942530473238993`*^9}, CellLabel-> - "Out[214]=",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] + "Out[133]=",ExpressionUUID->"00dd86cc-11a7-4903-a597-97914671aa25"] }, Open ]], Cell[CellGroupData[{ @@ -12204,12 +12712,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[215]:=",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], + "In[134]:=",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.9913317777546787`*^9}, +Cell[BoxData["0.09821679951903568`"], "Output", + CellChangeTimes->{3.9913317777546787`*^9, 3.994253047342247*^9}, CellLabel-> - "Out[215]=",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] + "Out[134]=",ExpressionUUID->"62613ff1-cf68-442b-a2c7-ccd587d8dd0e"] }, Open ]], Cell[CellGroupData[{ @@ -12299,12 +12807,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[216]:=",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], + "In[135]:=",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.991331777779663*^9}, +Cell[BoxData["0.9017832004809644`"], "Output", + CellChangeTimes->{3.991331777779663*^9, 3.994253047358328*^9}, CellLabel-> - "Out[216]=",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] + "Out[135]=",ExpressionUUID->"6d9d265b-325e-42a0-a89c-ec580ab0e168"] }, Open ]], Cell[CellGroupData[{ @@ -12427,12 +12935,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[217]:=",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], + "In[136]:=",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913317778036633`*^9}, +Cell[BoxData["0.08857025981127323`"], "Output", + CellChangeTimes->{3.9913317778036633`*^9, 3.994253047378181*^9}, CellLabel-> - "Out[217]=",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] + "Out[136]=",ExpressionUUID->"b5ec88f0-fed0-43a5-a432-ee18c9430030"] }, Open ]], Cell[CellGroupData[{ @@ -12447,30 +12955,33 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -12494,68 +13005,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918490946810665`*^9},ExpressionUUID->"1dec41a6-6752-2041-9d38-\ -804123b5ccd0"], + CellChangeTimes->{3.9918490946810665`*^9}, + CellLabel-> + "In[137]:=",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 218, 181, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317778296604`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.015768209740153`*^-214\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 137, 61, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317778296604`*^9, 3.9942530474001923`*^9}, CellLabel-> "During evaluation of \ -In[218]:=",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], +In[137]:=",ExpressionUUID->"73b4c169-f77b-46d2-bef4-4b4ae9e17abf"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 218, - 182, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331777838663*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.1857575059259896`*^-219\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 137, 62, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317778296604`*^9, 3.994253047409853*^9}, CellLabel-> "During evaluation of \ -In[218]:=",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], +In[137]:=",ExpressionUUID->"cc63561c-c815-4050-a633-482f7d405313"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 218, - 183, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317778466587`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.493097201818946`*^-224\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 137, 63, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317778296604`*^9, 3.994253047419039*^9}, CellLabel-> "During evaluation of \ -In[218]:=",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], +In[137]:=",ExpressionUUID->"59c469db-98c6-42eb-a622-903ce46c47c9"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 218, 184, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331777854885*^9}, +during this calculation.\"", 2, 137, 64, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317778296604`*^9, 3.994253047429905*^9}, CellLabel-> "During evaluation of \ -In[218]:=",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], +In[137]:=",ExpressionUUID->"8baa7482-b9d1-43d9-b653-f5049614e507"], -Cell[BoxData["4.37160597269358`"], "Output", - CellChangeTimes->{3.991331781456501*^9}, +Cell[BoxData["11.351129688561043`"], "Output", + CellChangeTimes->{3.991331781456501*^9, 3.99425305524587*^9}, CellLabel-> - "Out[218]=",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] + "Out[137]=",ExpressionUUID->"0a9dee66-8312-4fff-a85f-b121c133f2f6"] }, Open ]], Cell[CellGroupData[{ @@ -12570,30 +13085,33 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -12617,67 +13135,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.99184909912471*^9},ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], + CellChangeTimes->{3.99184909912471*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 219, 185, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331781491499*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.015768209740153`*^-214\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 138, 65, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331781491499*^9, 3.994253055293857*^9}, CellLabel-> "During evaluation of \ -In[219]:=",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], +In[138]:=",ExpressionUUID->"46efa097-f80a-439d-8ba5-6523b8ef0eb1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 219, - 186, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317815004997`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.1857575059259896`*^-219\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 138, 66, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331781491499*^9, 3.994253055305107*^9}, CellLabel-> "During evaluation of \ -In[219]:=",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], +In[138]:=",ExpressionUUID->"63bb1b87-207b-4dd0-85fe-ad56ca77d61d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 219, - 187, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317815094967`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.493097201818946`*^-224\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 138, 67, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331781491499*^9, 3.9942530553162527`*^9}, CellLabel-> "During evaluation of \ -In[219]:=",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], +In[138]:=",ExpressionUUID->"36dcb36f-1fd6-4d33-bcae-07ca27237bc3"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 219, 188, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317815164986`*^9}, +during this calculation.\"", 2, 138, 68, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331781491499*^9, 3.994253055324779*^9}, CellLabel-> "During evaluation of \ -In[219]:=",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], +In[138]:=",ExpressionUUID->"01589ed9-4733-4038-9508-0fed280778bc"], -Cell[BoxData["7.54286262106163`"], "Output", - CellChangeTimes->{3.9913317851500416`*^9}, +Cell[BoxData["4.8614282091483085`"], "Output", + CellChangeTimes->{3.9913317851500416`*^9, 3.994253063113694*^9}, CellLabel-> - "Out[219]=",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] + "Out[138]=",ExpressionUUID->"b5dd2dac-f9c7-4671-94b7-791e8a3e49bd"] }, Open ]], Cell[CellGroupData[{ @@ -12735,93 +13258,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918491043389053`*^9},ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-\ -b799ae260294"], + CellChangeTimes->{3.9918491043389053`*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS -N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS -KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 -CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ -2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ -YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP -oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R -iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx -EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 -ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 -hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF -i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn -tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc -f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 -tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py -d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z -znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw -qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I -gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA -TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge -wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo -+AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg -Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL -IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ -vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj -ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE -7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N -UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h -bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON -R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr -JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ -i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY -nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je -4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J -ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v -x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 -7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX -RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy -e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF -G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI -h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 -8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb -+cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa -5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 -qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL -+sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV -ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 -NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag -mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol -A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO -zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf -1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 -KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr -KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 -4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR -R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x -BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv -fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC -nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q -e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ -sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY -XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 -uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B -CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 -GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl -XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo -+nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb -5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb -4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz -rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw -q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS -xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 -QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI -0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 -r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= - + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk4VN8fB3AJCYXsoew1ZGksoXI+DMlaWUq2GDOXbDFJhORb+CpJKJRQ +EYksUaKd+qkUokVK1hnZyUXR1+/44z73eT33ue/7PufccxTpRxyY3FxcXEP4 +Wr6Hvtfa9KD1vUmsDZLoM+Egk/ECfbp5KSp7MkRbdk+eQYaK+SMkPNLbsuy9 +jHd8Qrov0bsP6g/7sSsjYht4zZtRQmTD0gB20ivpZ7ElbUh64M5NNvbD1tDc +RepHtCQ9UDCEPfz1TXRk/RfEpRC4cgR7/aCy2yztG/LnNn86hm0zEW10tPkH +6nwT8GUS+8nisGBESS+Kiu+3n8H+FCcVdT+4H1WjO0rz2ON85sMz1EGUy9/g +uIjNlxxyUHeOjViT6n1ciIM2iF5rCq0fQlKr+9/xYtvLzt4ap42i7vXmj0Ww +iXwlSU3+cVRtMvZMEjtWdU98QPMEKh1iK8pjf5Hq2BpWMoVW6DUvqGMzXP0P +pydPo+OCtWFU7MkcrutVwb+QxscZa2NsfiVNkSkqiX7XeQvbYGcwGixFJGZR +gXTaX0dshaKDsdpzs8h2RMzKA9twS8J4UP08uvyP0HwItp/Bj+Zh2iLSfv2x +Jgd7JuIYj4DaX1QkeTmlGPtUveAOCv9/SEL5dmM1dhYY3vFtXkKvDJt2v1/u +V9hkzipZAZHsiQpe4KCSV+k9cbLckFthEyaOPcnxjL6YzA1E90KGMna0Onmv +InglbHVwHTfDzihXVJ6g8kI0IbkiAftr6+iT/27ywpCwXHkmtsL0A9e1Enxg +LBdRdxu7VM8+TXOOD+Qi9H6+x258eGJFYD0/RFi8uiVvykFkQ/uPIZoQXJdN +v9GMvc5WSCTqiRDc/PlQhY2t02EOa4zWQFd3tjiXGQf5D9Tkb9VaC4XrE3fq +Y4dwN+vsFBIBlqVKdQH2oNLdqfhZUTC369LLouH5Id6sbtFdB+ecWtNqsbnv +sBWlQ9fBwocEz05sBd2NDiUj66A+2RjJmXOQKy216n2PGJQ0vlMtwm7xYR2V +eisBCZI6/7ZZcFB3Uco5L35JoDYnvJjHHh0puXnbQhLu69/2V9jFQQJh/e3b +n0nCpVlHnlBs8zNOel41UvDBxdlDypKD6goMyOI8GTigVn4rYjcHFQz+CTcO +k4czrp455204aLdzYvfRMnmQ3tEl+BR7tFFsVxlbHhwebO6axNYr2CKhcHAD +VCUZZjvb4vmke97jNdkIyMU0XdmOg6Yneo4PnVaAKb6S2DZ7DhILMq++Z6cE +0U7V6JgDB7ELBPz2+itBNu1rSRV27bdW2bEEJdgyOXJsEtvd1uO02jMlaDL7 +pBHkiPtphDtkU5Vh2LtXMsAJf3+4aPKklAoM5ZQMR+znICdfQU3rXlVoiJFO +/ebKQSjcmXrgryoU6fAnqbhxkHp83jaGjBp857XqDsTmuqlrdnKfGvxj9uLa +f9hl3W4Hqp6rwXRYRYiaB96f+0vj1t/YBFP6Ab6Jh3A/c7tPw3QKaJ8Uz09h +cNBNx8yuuZMUaBqnqfZhp9B7e3iuUqB44xCfARP/36eOjWxop8DhM+k/urFF +H13jcqSpQ9FwJlvPF/8/uuPq9coacC/Y13b6MAfJKl2IPTewBd6/746tOsJB +j87OUH5za0LSh8jbMiF4Pn4d7CAUNUHLRhjisHMbVShmnpqQzNSp3hfKQUq+ +dR/mP2vCY/mo2jkWHm/poCrxVgtkg+5TXcI5SF52A6FwUAfkfmj/8Y/hoC2F +YUILiApLNK2dX5I5iM44TWraU2GLhP/CvvN4vyqndXu5UyFh62/pZuyVN8or +XkVQoW5CivU8Be+33GGntEoqNG1NyKlIxedpltc1irIufHDPbc/PwOt7zlbL +hU8P4l5UfmrK4aDrLJW9Nc36sLdlIG3bXQ5qDUfbzhQaQb7Om0CVTg5S9Pxo +7xG4EwZpxoIUgSHEXLp/Vz4SgNUqqi1sgs/FkdpVUnQziMy8YCYXM4TCdHd8 +S1M3B41X9F6PJ0OIPrbYJDZsAZIZH9PdeX6iMrOjq/JaLIFvVUOB2IGfqGDG +/3lphhVoyLM68kt+onlT6XeNsTYgSPGTUBMaRt+5Vk71etvBipIrb36yhlGw +3JHUOOU9EDQZs4WrcxjdPdz07FL8XrgpPpkcYz+CTvySmdM4vA9uiYrrBr8Y +QaT1rv3/O+QASZeZs027RpGR20XTwX2OQNpv6jvUMoo+yFzzb9R1gun5S3Ln +ncbQ+lunHxVvdoaVno6nZ4fHUG2Puq39mv3QIcRabIgeRxs6Jn3Dx/bDrjOF +1f4iE0j30sXSmz0HIK9zic6qmUDXeH5ppTW4wD/t85SXlEl031T7a/zDg9Ai +NufsGTeJsradFV0scYW4p7k1c18mUUtXYYJushv4Ne1Rf6YxhWrsclRCTrmD +3iu9GouEKTQV5MgVzPCAbK0QXoGuKUTuoviN0zzhgISOwJTmNCoe65w/anAI +avQYT1USp5HL9UIfDyEvOHs1tmVj5zS6V2VzaGWiF2T8Fstf0v6FjGQ//E76 +7QUagQk9+Sd/IeUe369th72BmRQ0+7rpFxoQDNiT0+8NQ1d9yiwlZlBrir2P +pTMdjKJX2jm5zKCMiDzBY610EGmL6U+5OoMePVn67WPlA/SZmcf0zzNI2B0S +det8QChg4OX61SRSEP9fi9wjH7jxg1kxgK3TbCfN98QHHre9VLorQCKHHW63 +vzz3AcLvXC4SIlGGXPjbmNc+YNArPe4uTKL13+8IN33xgfSzHc2nJEik4imV +5T7nA7vCnZMCFUlk5DVeHK/HgMb0YtPmbSS6lT151N6AAYkal2sCDEkk3j5t +ImXIgK9LlIcCRiQat5jrKN7OAI3Ir8GWxiQ+v7hWNJsx4Mzf6Iv1O0i0dk70 +4Lp9DHhXPZmTYkqigfP6q/OCGECXMJX5YU2ilProw7W3GCAULG+h4k6iIGqm +UUQxAyaYObYF2La3K1cbljDA0NGiT9mDRAKZ7NsPyhiwu/z5A0VPEsWz9g7f +r2bA4UsKq6W9SBRNUQmoecEAWneq7oQPifwz3wZWdTPAYuGKrGUAiazWsnew +ehgg3bbzeS325niuNdQ+Bhx4lzpNCSQRm6VfVjnIAJv8xTmBIBJ52+eNVYwy +gHN08Nz/gknkwns0uPwPA8adeZvUWSSyPLo+pFSSCSFd/0pkR5DoRV6CdZo0 +Eyy7jEJ5Ikm0o3laJWI9E3po/qZHsHVU33bSNjDh3WfShHaCRDKfo2hdqkyI +PnGsdCCKRCPG3yUF9JlgLO2C1sSS6AJ3/mNfRyYo8ik8mjmDx68tlGXnzIQn +SxBnH0+iM24RLN0DTDD5dby2CDuieu+mJVcmOGX3Rrsk4P7EiouX6UxIOvvE +7V4iiXTf0BkvQ5kQmvKObn+WRJ8vqgoqpzJht42DqswFEt1Fa/yGLjJhqKbW +zB37zNhMY1k6E9ZytfflYlOtGk8aZjLh8D6yRCkVrx+Xz7RdLhOCvKsPqlwk +0a4j+Z0RpUxQaYjZJJJOInn5fw1M7jKh+P6Yvw32zJsj6SsrmKBW5KOTgH1D +Ddml3GPCumlD0z/Yf79/f3azjgk8fKzIbxkkqraVLX7fxATB0Dvbky6T6Nwf +bt6MN0yo0+ZceYRNLx72PtjMhIzjqVET2CI8dbIDLUx4Gsn/3DGTRIH1Lhd+ +f8J9OTluklkkUla/HK4yyITPVWJNp7NJ9OdzTPtPNhNmNQ2My7Fb45k65UNM +YPvSNL9in+zVGzYaZQLHi+uy1hUSfc1q99jzC/fTNAptw05bJWpxYgUB3ywz +di9dJdGj6e9uYSsJWGxndavlkIjzvYQVzEtA07bAj3bYO6rN8+mrCXg6cp6d +jc32iliwFiUgzvJ2hvo13N/WYp2FGAGaA5FUO+zt29ZRkAQBr6+pbj2Cnbqm +dL+uDAErJKf2Vi4/r/tRKatIAD89TUYrl0REYWmThDIBATuPPbbBTk2N/CGs +SkCH8OJzP2w2IbaGh0LAoYxvo/nLz8Us/UZ1CJg5Zfp6dR6J6v4Ti2VTCVhI +vBqqhD34s+dSjx4BVxb8TxhjGz870dBhSMAwy7nMD3sg8O6Gx0DAhW0tmY+x +17pE6T8wI6DU0prWhm1E221baU6AUpf4ngHsFJm+yMLdBPhv/jeRP59EtTzl +qXnWBHTyUaplsPsnooqybQmYrFxtqo5t+Eri4/m9BEjoRUdZYdMr+0YSHQh4 +ab6K4oJ9Pqec+x8nAqwuNRoQ2H0sK51wFwIM2K9Zp7DXeEpahrgS4K0vdD15 +Oc+q38PfnYA572PaWcvvb4w55+lFgHlwVWDZch8B6xsudAJkquJkHyznkZIP +HRh4/FeD1Z8t5/X2t9gSBD6Uj2c3Lec1V7B3+RGwvzDbr3W534OYv+BPABV1 +ZH5ezr9hLb49kICxUNVN3cv556U09IMJkGw7JzmwnB8xYKodQsDQOj7iJ7YQ +o9KFwiLAVSRdYhx7256TR5TDCBB9uVV1ejnf2CZBPhyv757eDBI7WVX6mlQE +AScm8xnz2PdFBu+JniBAQCgk4w9270LlG8FoArI226ssLudzTvbyniTAfcJY +/C+2wQeb+aVYAky3GDCW/X+i5OrE "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -12835,105 +13359,106 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS -N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS -KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 -CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ -2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ -YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP -oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R -iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx -EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 -ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 -hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF -i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn -tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc -f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 -tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py -d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z -znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw -qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I -gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA -TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge -wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo -+AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg -Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL -IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ -vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj -ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE -7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N -UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h -bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON -R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr -JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ -i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY -nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je -4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J -ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v -x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 -7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX -RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy -e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF -G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI -h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 -8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb -+cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa -5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 -qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL -+sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV -ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 -NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag -mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol -A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO -zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf -1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 -KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr -KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 -4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR -R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x -BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv -fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC -nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q -e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ -sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY -XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 -uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B -CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 -GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl -XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo -+nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb -5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb -4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz -rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw -q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS -xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 -QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI -0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 -r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= - +1:eJwV1Hk4VN8fB3AJCYXsoew1ZGksoXI+DMlaWUq2GDOXbDFJhORb+CpJKJRQ +EYksUaKd+qkUokVK1hnZyUXR1+/44z73eT33ue/7PufccxTpRxyY3FxcXEP4 +Wr6Hvtfa9KD1vUmsDZLoM+Egk/ECfbp5KSp7MkRbdk+eQYaK+SMkPNLbsuy9 +jHd8Qrov0bsP6g/7sSsjYht4zZtRQmTD0gB20ivpZ7ElbUh64M5NNvbD1tDc +RepHtCQ9UDCEPfz1TXRk/RfEpRC4cgR7/aCy2yztG/LnNn86hm0zEW10tPkH +6nwT8GUS+8nisGBESS+Kiu+3n8H+FCcVdT+4H1WjO0rz2ON85sMz1EGUy9/g +uIjNlxxyUHeOjViT6n1ciIM2iF5rCq0fQlKr+9/xYtvLzt4ap42i7vXmj0Ww +iXwlSU3+cVRtMvZMEjtWdU98QPMEKh1iK8pjf5Hq2BpWMoVW6DUvqGMzXP0P +pydPo+OCtWFU7MkcrutVwb+QxscZa2NsfiVNkSkqiX7XeQvbYGcwGixFJGZR +gXTaX0dshaKDsdpzs8h2RMzKA9twS8J4UP08uvyP0HwItp/Bj+Zh2iLSfv2x +Jgd7JuIYj4DaX1QkeTmlGPtUveAOCv9/SEL5dmM1dhYY3vFtXkKvDJt2v1/u +V9hkzipZAZHsiQpe4KCSV+k9cbLckFthEyaOPcnxjL6YzA1E90KGMna0Onmv +InglbHVwHTfDzihXVJ6g8kI0IbkiAftr6+iT/27ywpCwXHkmtsL0A9e1Enxg +LBdRdxu7VM8+TXOOD+Qi9H6+x258eGJFYD0/RFi8uiVvykFkQ/uPIZoQXJdN +v9GMvc5WSCTqiRDc/PlQhY2t02EOa4zWQFd3tjiXGQf5D9Tkb9VaC4XrE3fq +Y4dwN+vsFBIBlqVKdQH2oNLdqfhZUTC369LLouH5Id6sbtFdB+ecWtNqsbnv +sBWlQ9fBwocEz05sBd2NDiUj66A+2RjJmXOQKy216n2PGJQ0vlMtwm7xYR2V +eisBCZI6/7ZZcFB3Uco5L35JoDYnvJjHHh0puXnbQhLu69/2V9jFQQJh/e3b +n0nCpVlHnlBs8zNOel41UvDBxdlDypKD6goMyOI8GTigVn4rYjcHFQz+CTcO +k4czrp455204aLdzYvfRMnmQ3tEl+BR7tFFsVxlbHhwebO6axNYr2CKhcHAD +VCUZZjvb4vmke97jNdkIyMU0XdmOg6Yneo4PnVaAKb6S2DZ7DhILMq++Z6cE +0U7V6JgDB7ELBPz2+itBNu1rSRV27bdW2bEEJdgyOXJsEtvd1uO02jMlaDL7 +pBHkiPtphDtkU5Vh2LtXMsAJf3+4aPKklAoM5ZQMR+znICdfQU3rXlVoiJFO +/ebKQSjcmXrgryoU6fAnqbhxkHp83jaGjBp857XqDsTmuqlrdnKfGvxj9uLa +f9hl3W4Hqp6rwXRYRYiaB96f+0vj1t/YBFP6Ab6Jh3A/c7tPw3QKaJ8Uz09h +cNBNx8yuuZMUaBqnqfZhp9B7e3iuUqB44xCfARP/36eOjWxop8DhM+k/urFF +H13jcqSpQ9FwJlvPF/8/uuPq9coacC/Y13b6MAfJKl2IPTewBd6/746tOsJB +j87OUH5za0LSh8jbMiF4Pn4d7CAUNUHLRhjisHMbVShmnpqQzNSp3hfKQUq+ +dR/mP2vCY/mo2jkWHm/poCrxVgtkg+5TXcI5SF52A6FwUAfkfmj/8Y/hoC2F +YUILiApLNK2dX5I5iM44TWraU2GLhP/CvvN4vyqndXu5UyFh62/pZuyVN8or +XkVQoW5CivU8Be+33GGntEoqNG1NyKlIxedpltc1irIufHDPbc/PwOt7zlbL +hU8P4l5UfmrK4aDrLJW9Nc36sLdlIG3bXQ5qDUfbzhQaQb7Om0CVTg5S9Pxo +7xG4EwZpxoIUgSHEXLp/Vz4SgNUqqi1sgs/FkdpVUnQziMy8YCYXM4TCdHd8 +S1M3B41X9F6PJ0OIPrbYJDZsAZIZH9PdeX6iMrOjq/JaLIFvVUOB2IGfqGDG +/3lphhVoyLM68kt+onlT6XeNsTYgSPGTUBMaRt+5Vk71etvBipIrb36yhlGw +3JHUOOU9EDQZs4WrcxjdPdz07FL8XrgpPpkcYz+CTvySmdM4vA9uiYrrBr8Y +QaT1rv3/O+QASZeZs027RpGR20XTwX2OQNpv6jvUMoo+yFzzb9R1gun5S3Ln +ncbQ+lunHxVvdoaVno6nZ4fHUG2Puq39mv3QIcRabIgeRxs6Jn3Dx/bDrjOF +1f4iE0j30sXSmz0HIK9zic6qmUDXeH5ppTW4wD/t85SXlEl031T7a/zDg9Ai +NufsGTeJsradFV0scYW4p7k1c18mUUtXYYJushv4Ne1Rf6YxhWrsclRCTrmD +3iu9GouEKTQV5MgVzPCAbK0QXoGuKUTuoviN0zzhgISOwJTmNCoe65w/anAI +avQYT1USp5HL9UIfDyEvOHs1tmVj5zS6V2VzaGWiF2T8Fstf0v6FjGQ//E76 +7QUagQk9+Sd/IeUe369th72BmRQ0+7rpFxoQDNiT0+8NQ1d9yiwlZlBrir2P +pTMdjKJX2jm5zKCMiDzBY610EGmL6U+5OoMePVn67WPlA/SZmcf0zzNI2B0S +det8QChg4OX61SRSEP9fi9wjH7jxg1kxgK3TbCfN98QHHre9VLorQCKHHW63 +vzz3AcLvXC4SIlGGXPjbmNc+YNArPe4uTKL13+8IN33xgfSzHc2nJEik4imV +5T7nA7vCnZMCFUlk5DVeHK/HgMb0YtPmbSS6lT151N6AAYkal2sCDEkk3j5t +ImXIgK9LlIcCRiQat5jrKN7OAI3Ir8GWxiQ+v7hWNJsx4Mzf6Iv1O0i0dk70 +4Lp9DHhXPZmTYkqigfP6q/OCGECXMJX5YU2ilProw7W3GCAULG+h4k6iIGqm +UUQxAyaYObYF2La3K1cbljDA0NGiT9mDRAKZ7NsPyhiwu/z5A0VPEsWz9g7f +r2bA4UsKq6W9SBRNUQmoecEAWneq7oQPifwz3wZWdTPAYuGKrGUAiazWsnew +ehgg3bbzeS325niuNdQ+Bhx4lzpNCSQRm6VfVjnIAJv8xTmBIBJ52+eNVYwy +gHN08Nz/gknkwns0uPwPA8adeZvUWSSyPLo+pFSSCSFd/0pkR5DoRV6CdZo0 +Eyy7jEJ5Ikm0o3laJWI9E3po/qZHsHVU33bSNjDh3WfShHaCRDKfo2hdqkyI +PnGsdCCKRCPG3yUF9JlgLO2C1sSS6AJ3/mNfRyYo8ik8mjmDx68tlGXnzIQn +SxBnH0+iM24RLN0DTDD5dby2CDuieu+mJVcmOGX3Rrsk4P7EiouX6UxIOvvE +7V4iiXTf0BkvQ5kQmvKObn+WRJ8vqgoqpzJht42DqswFEt1Fa/yGLjJhqKbW +zB37zNhMY1k6E9ZytfflYlOtGk8aZjLh8D6yRCkVrx+Xz7RdLhOCvKsPqlwk +0a4j+Z0RpUxQaYjZJJJOInn5fw1M7jKh+P6Yvw32zJsj6SsrmKBW5KOTgH1D +Ddml3GPCumlD0z/Yf79/f3azjgk8fKzIbxkkqraVLX7fxATB0Dvbky6T6Nwf +bt6MN0yo0+ZceYRNLx72PtjMhIzjqVET2CI8dbIDLUx4Gsn/3DGTRIH1Lhd+ +f8J9OTluklkkUla/HK4yyITPVWJNp7NJ9OdzTPtPNhNmNQ2My7Fb45k65UNM +YPvSNL9in+zVGzYaZQLHi+uy1hUSfc1q99jzC/fTNAptw05bJWpxYgUB3ywz +di9dJdGj6e9uYSsJWGxndavlkIjzvYQVzEtA07bAj3bYO6rN8+mrCXg6cp6d +jc32iliwFiUgzvJ2hvo13N/WYp2FGAGaA5FUO+zt29ZRkAQBr6+pbj2Cnbqm +dL+uDAErJKf2Vi4/r/tRKatIAD89TUYrl0REYWmThDIBATuPPbbBTk2N/CGs +SkCH8OJzP2w2IbaGh0LAoYxvo/nLz8Us/UZ1CJg5Zfp6dR6J6v4Ti2VTCVhI +vBqqhD34s+dSjx4BVxb8TxhjGz870dBhSMAwy7nMD3sg8O6Gx0DAhW0tmY+x +17pE6T8wI6DU0prWhm1E221baU6AUpf4ngHsFJm+yMLdBPhv/jeRP59EtTzl +qXnWBHTyUaplsPsnooqybQmYrFxtqo5t+Eri4/m9BEjoRUdZYdMr+0YSHQh4 +ab6K4oJ9Pqec+x8nAqwuNRoQ2H0sK51wFwIM2K9Zp7DXeEpahrgS4K0vdD15 +Oc+q38PfnYA572PaWcvvb4w55+lFgHlwVWDZch8B6xsudAJkquJkHyznkZIP +HRh4/FeD1Z8t5/X2t9gSBD6Uj2c3Lec1V7B3+RGwvzDbr3W534OYv+BPABV1 +ZH5ezr9hLb49kICxUNVN3cv556U09IMJkGw7JzmwnB8xYKodQsDQOj7iJ7YQ +o9KFwiLAVSRdYhx7256TR5TDCBB9uVV1ejnf2CZBPhyv757eDBI7WVX6mlQE +AScm8xnz2PdFBu+JniBAQCgk4w9270LlG8FoArI226ssLudzTvbyniTAfcJY +/C+2wQeb+aVYAky3GDCW/X+i5OrE "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6044061540843431, - 1.5841467887057727`}}, + "PlotRange" -> {{0, 180}, {0.7264261641488331, + 1.3518041529193996`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6044061540843444}, + "AxesOrigin" -> {0, 0.7264261641488348}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -12945,21 +13470,21 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6044061540843431, - 1.5841467887057727`}}, + "PlotRange" -> {{0, 180}, {0.7264261641488331, + 1.3518041529193996`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6044061540843444}, + "AxesOrigin" -> {0, 0.7264261641488348}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -12973,103 +13498,104 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS -N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS -KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 -CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ -2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ -YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP -oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R -iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx -EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 -ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 -hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF -i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn -tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc -f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 -tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py -d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z -znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw -qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I -gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA -TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge -wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo -+AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg -Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL -IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ -vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj -ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE -7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N -UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h -bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON -R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr -JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ -i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY -nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je -4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J -ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v -x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 -7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX -RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy -e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF -G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI -h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 -8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb -+cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa -5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 -qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL -+sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV -ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 -NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag -mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol -A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO -zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf -1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 -KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr -KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 -4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR -R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x -BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv -fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC -nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q -e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ -sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY -XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 -uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B -CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 -GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl -XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo -+nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb -5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb -4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz -rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw -q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS -xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 -QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI -0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 -r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= - +1:eJwV1Hk4VN8fB3AJCYXsoew1ZGksoXI+DMlaWUq2GDOXbDFJhORb+CpJKJRQ +EYksUaKd+qkUokVK1hnZyUXR1+/44z73eT33ue/7PufccxTpRxyY3FxcXEP4 +Wr6Hvtfa9KD1vUmsDZLoM+Egk/ECfbp5KSp7MkRbdk+eQYaK+SMkPNLbsuy9 +jHd8Qrov0bsP6g/7sSsjYht4zZtRQmTD0gB20ivpZ7ElbUh64M5NNvbD1tDc +RepHtCQ9UDCEPfz1TXRk/RfEpRC4cgR7/aCy2yztG/LnNn86hm0zEW10tPkH +6nwT8GUS+8nisGBESS+Kiu+3n8H+FCcVdT+4H1WjO0rz2ON85sMz1EGUy9/g +uIjNlxxyUHeOjViT6n1ciIM2iF5rCq0fQlKr+9/xYtvLzt4ap42i7vXmj0Ww +iXwlSU3+cVRtMvZMEjtWdU98QPMEKh1iK8pjf5Hq2BpWMoVW6DUvqGMzXP0P +pydPo+OCtWFU7MkcrutVwb+QxscZa2NsfiVNkSkqiX7XeQvbYGcwGixFJGZR +gXTaX0dshaKDsdpzs8h2RMzKA9twS8J4UP08uvyP0HwItp/Bj+Zh2iLSfv2x +Jgd7JuIYj4DaX1QkeTmlGPtUveAOCv9/SEL5dmM1dhYY3vFtXkKvDJt2v1/u +V9hkzipZAZHsiQpe4KCSV+k9cbLckFthEyaOPcnxjL6YzA1E90KGMna0Onmv +InglbHVwHTfDzihXVJ6g8kI0IbkiAftr6+iT/27ywpCwXHkmtsL0A9e1Enxg +LBdRdxu7VM8+TXOOD+Qi9H6+x258eGJFYD0/RFi8uiVvykFkQ/uPIZoQXJdN +v9GMvc5WSCTqiRDc/PlQhY2t02EOa4zWQFd3tjiXGQf5D9Tkb9VaC4XrE3fq +Y4dwN+vsFBIBlqVKdQH2oNLdqfhZUTC369LLouH5Id6sbtFdB+ecWtNqsbnv +sBWlQ9fBwocEz05sBd2NDiUj66A+2RjJmXOQKy216n2PGJQ0vlMtwm7xYR2V +eisBCZI6/7ZZcFB3Uco5L35JoDYnvJjHHh0puXnbQhLu69/2V9jFQQJh/e3b +n0nCpVlHnlBs8zNOel41UvDBxdlDypKD6goMyOI8GTigVn4rYjcHFQz+CTcO +k4czrp455204aLdzYvfRMnmQ3tEl+BR7tFFsVxlbHhwebO6axNYr2CKhcHAD +VCUZZjvb4vmke97jNdkIyMU0XdmOg6Yneo4PnVaAKb6S2DZ7DhILMq++Z6cE +0U7V6JgDB7ELBPz2+itBNu1rSRV27bdW2bEEJdgyOXJsEtvd1uO02jMlaDL7 +pBHkiPtphDtkU5Vh2LtXMsAJf3+4aPKklAoM5ZQMR+znICdfQU3rXlVoiJFO +/ebKQSjcmXrgryoU6fAnqbhxkHp83jaGjBp857XqDsTmuqlrdnKfGvxj9uLa +f9hl3W4Hqp6rwXRYRYiaB96f+0vj1t/YBFP6Ab6Jh3A/c7tPw3QKaJ8Uz09h +cNBNx8yuuZMUaBqnqfZhp9B7e3iuUqB44xCfARP/36eOjWxop8DhM+k/urFF +H13jcqSpQ9FwJlvPF/8/uuPq9coacC/Y13b6MAfJKl2IPTewBd6/746tOsJB +j87OUH5za0LSh8jbMiF4Pn4d7CAUNUHLRhjisHMbVShmnpqQzNSp3hfKQUq+ +dR/mP2vCY/mo2jkWHm/poCrxVgtkg+5TXcI5SF52A6FwUAfkfmj/8Y/hoC2F +YUILiApLNK2dX5I5iM44TWraU2GLhP/CvvN4vyqndXu5UyFh62/pZuyVN8or +XkVQoW5CivU8Be+33GGntEoqNG1NyKlIxedpltc1irIufHDPbc/PwOt7zlbL +hU8P4l5UfmrK4aDrLJW9Nc36sLdlIG3bXQ5qDUfbzhQaQb7Om0CVTg5S9Pxo +7xG4EwZpxoIUgSHEXLp/Vz4SgNUqqi1sgs/FkdpVUnQziMy8YCYXM4TCdHd8 +S1M3B41X9F6PJ0OIPrbYJDZsAZIZH9PdeX6iMrOjq/JaLIFvVUOB2IGfqGDG +/3lphhVoyLM68kt+onlT6XeNsTYgSPGTUBMaRt+5Vk71etvBipIrb36yhlGw +3JHUOOU9EDQZs4WrcxjdPdz07FL8XrgpPpkcYz+CTvySmdM4vA9uiYrrBr8Y +QaT1rv3/O+QASZeZs027RpGR20XTwX2OQNpv6jvUMoo+yFzzb9R1gun5S3Ln +ncbQ+lunHxVvdoaVno6nZ4fHUG2Puq39mv3QIcRabIgeRxs6Jn3Dx/bDrjOF +1f4iE0j30sXSmz0HIK9zic6qmUDXeH5ppTW4wD/t85SXlEl031T7a/zDg9Ai +NufsGTeJsradFV0scYW4p7k1c18mUUtXYYJushv4Ne1Rf6YxhWrsclRCTrmD +3iu9GouEKTQV5MgVzPCAbK0QXoGuKUTuoviN0zzhgISOwJTmNCoe65w/anAI +avQYT1USp5HL9UIfDyEvOHs1tmVj5zS6V2VzaGWiF2T8Fstf0v6FjGQ//E76 +7QUagQk9+Sd/IeUe369th72BmRQ0+7rpFxoQDNiT0+8NQ1d9yiwlZlBrir2P +pTMdjKJX2jm5zKCMiDzBY610EGmL6U+5OoMePVn67WPlA/SZmcf0zzNI2B0S +det8QChg4OX61SRSEP9fi9wjH7jxg1kxgK3TbCfN98QHHre9VLorQCKHHW63 +vzz3AcLvXC4SIlGGXPjbmNc+YNArPe4uTKL13+8IN33xgfSzHc2nJEik4imV +5T7nA7vCnZMCFUlk5DVeHK/HgMb0YtPmbSS6lT151N6AAYkal2sCDEkk3j5t +ImXIgK9LlIcCRiQat5jrKN7OAI3Ir8GWxiQ+v7hWNJsx4Mzf6Iv1O0i0dk70 +4Lp9DHhXPZmTYkqigfP6q/OCGECXMJX5YU2ilProw7W3GCAULG+h4k6iIGqm +UUQxAyaYObYF2La3K1cbljDA0NGiT9mDRAKZ7NsPyhiwu/z5A0VPEsWz9g7f +r2bA4UsKq6W9SBRNUQmoecEAWneq7oQPifwz3wZWdTPAYuGKrGUAiazWsnew +ehgg3bbzeS325niuNdQ+Bhx4lzpNCSQRm6VfVjnIAJv8xTmBIBJ52+eNVYwy +gHN08Nz/gknkwns0uPwPA8adeZvUWSSyPLo+pFSSCSFd/0pkR5DoRV6CdZo0 +Eyy7jEJ5Ikm0o3laJWI9E3po/qZHsHVU33bSNjDh3WfShHaCRDKfo2hdqkyI +PnGsdCCKRCPG3yUF9JlgLO2C1sSS6AJ3/mNfRyYo8ik8mjmDx68tlGXnzIQn +SxBnH0+iM24RLN0DTDD5dby2CDuieu+mJVcmOGX3Rrsk4P7EiouX6UxIOvvE +7V4iiXTf0BkvQ5kQmvKObn+WRJ8vqgoqpzJht42DqswFEt1Fa/yGLjJhqKbW +zB37zNhMY1k6E9ZytfflYlOtGk8aZjLh8D6yRCkVrx+Xz7RdLhOCvKsPqlwk +0a4j+Z0RpUxQaYjZJJJOInn5fw1M7jKh+P6Yvw32zJsj6SsrmKBW5KOTgH1D +Ddml3GPCumlD0z/Yf79/f3azjgk8fKzIbxkkqraVLX7fxATB0Dvbky6T6Nwf +bt6MN0yo0+ZceYRNLx72PtjMhIzjqVET2CI8dbIDLUx4Gsn/3DGTRIH1Lhd+ +f8J9OTluklkkUla/HK4yyITPVWJNp7NJ9OdzTPtPNhNmNQ2My7Fb45k65UNM +YPvSNL9in+zVGzYaZQLHi+uy1hUSfc1q99jzC/fTNAptw05bJWpxYgUB3ywz +di9dJdGj6e9uYSsJWGxndavlkIjzvYQVzEtA07bAj3bYO6rN8+mrCXg6cp6d +jc32iliwFiUgzvJ2hvo13N/WYp2FGAGaA5FUO+zt29ZRkAQBr6+pbj2Cnbqm +dL+uDAErJKf2Vi4/r/tRKatIAD89TUYrl0REYWmThDIBATuPPbbBTk2N/CGs +SkCH8OJzP2w2IbaGh0LAoYxvo/nLz8Us/UZ1CJg5Zfp6dR6J6v4Ti2VTCVhI +vBqqhD34s+dSjx4BVxb8TxhjGz870dBhSMAwy7nMD3sg8O6Gx0DAhW0tmY+x +17pE6T8wI6DU0prWhm1E221baU6AUpf4ngHsFJm+yMLdBPhv/jeRP59EtTzl +qXnWBHTyUaplsPsnooqybQmYrFxtqo5t+Eri4/m9BEjoRUdZYdMr+0YSHQh4 +ab6K4oJ9Pqec+x8nAqwuNRoQ2H0sK51wFwIM2K9Zp7DXeEpahrgS4K0vdD15 +Oc+q38PfnYA572PaWcvvb4w55+lFgHlwVWDZch8B6xsudAJkquJkHyznkZIP +HRh4/FeD1Z8t5/X2t9gSBD6Uj2c3Lec1V7B3+RGwvzDbr3W534OYv+BPABV1 +ZH5ezr9hLb49kICxUNVN3cv556U09IMJkGw7JzmwnB8xYKodQsDQOj7iJ7YQ +o9KFwiLAVSRdYhx7256TR5TDCBB9uVV1ejnf2CZBPhyv757eDBI7WVX6mlQE +AScm8xnz2PdFBu+JniBAQCgk4w9270LlG8FoArI226ssLudzTvbyniTAfcJY +/C+2wQeb+aVYAky3GDCW/X+i5OrE "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + "PlotRange" -> {{0, 180}, {0.7264261641488331, 1.3518041529193996`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6044061540843444}, + "AxesOrigin" -> {0, 0.7264261641488348}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13079,7 +13605,8 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.6044061540843444}, + AxesOrigin->{0, 0.7264261641488348}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -13107,7 +13634,8 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.7264261641488331, 1.3518041529193996`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -13115,9 +13643,9 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913320330871353`*^9}, + CellChangeTimes->{3.9913320330871353`*^9, 3.994253639108286*^9}, CellLabel-> - "Out[220]=",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] + "Out[139]=",ExpressionUUID->"b9044636-4361-49bf-80c8-f63f18c07987"] }, Open ]], Cell[CellGroupData[{ @@ -13132,30 +13660,33 @@ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -13180,205 +13711,162 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.9918491076725483`*^9, - 3.9918491120260525`*^9}},ExpressionUUID->"cbec275e-4d01-7747-9ece-\ -7fa9a2a651b1"], + CellChangeTimes->{{3.9918491076725483`*^9, 3.9918491120260525`*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2976471457269651`*^-270\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 221, - 189, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991332033325203*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.579690126292063`*^-265\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 69, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991332033325203*^9, 3.99425363930751*^9}, CellLabel-> "During evaluation of \ -In[221]:=",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], +In[140]:=",ExpressionUUID->"950da0ea-1b56-44a7-aa04-5dab1938bee9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.376858869110442`*^-282\\\", \ + "\"\\!\\(\\*FractionBox[\\\"8.085793612782729`*^-277\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 70, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991332033325203*^9, 3.994253639317408*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"cf633fff-6e3a-4298-a99d-215ca9b007a1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.534415187396654`*^-288\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 221, 190, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913320333342056`*^9}, + 140, 71, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991332033325203*^9, 3.994253639326994*^9}, CellLabel-> "During evaluation of \ -In[221]:=",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.193593532260836`*^-293\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 221, 191, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991332033342205*^9}, - CellLabel-> - "During evaluation of \ -In[221]:=",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], +In[140]:=",ExpressionUUID->"2eb3a02f-f96b-4999-9a7a-02a90901a164"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 221, 192, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991332033351204*^9}, +during this calculation.\"", 2, 140, 72, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991332033325203*^9, 3.994253639335761*^9}, CellLabel-> "During evaluation of \ -In[221]:=",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], +In[140]:=",ExpressionUUID->"18f37339-75d2-4418-85ef-d1c93b5048e7"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK -SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx -/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr -12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI -64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs -Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ -g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q -LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o -2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL -6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u -nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr -t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 -MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 -eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M -qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD -y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ -1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh -a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk -LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz -5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 -bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg -PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx -ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg -RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 -Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab -+LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l -8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm -JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 -Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk -7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar -LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 -KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR -zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e -aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ -EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr -xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ -lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh -7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX -jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw -Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 -VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK -wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I -3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h -YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS -a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG -+Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk -30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE -aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ -gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk -pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 -/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 -BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB -DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm -Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU -mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg -srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa -elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp -F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR -vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO -p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe -zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y -c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS -5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD -ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF -aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX -oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD -KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE -ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv -XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y -HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T -SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol -DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN -kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK -J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 -XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw -YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl -49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi -hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV -sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 -NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR -P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy -r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ -sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp -3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L -TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG -cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU -XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB -oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX -flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N -Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j -GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 -8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ -lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr -MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC -ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi -z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq -frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T -VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda -R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a -d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP -cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 -ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ -2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM -uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B -8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 -SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV -rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw -u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B -jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO -FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz -oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE -zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 -hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb -QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe -htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b -gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr -CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d -3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V -Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr -t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS -d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ -TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb -EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK -Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ -KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb -vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU -/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 -JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG -bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD -VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 -0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z -j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ -z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 -dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs -D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ -M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ -3z9DIQ== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k8VP0XB3ChUJEo+zJzZyxlK0U/yzinEqKSsmRXtpTIEqFsJURClBRJ +UhJzB9kqhCQhjyXiifZFyL60+d3nr3m9X/femXPPfM/nfi/9kO8+d24uLi7+ +JVxc/33ODj5vZCbkGbziy5S34kOD7myJkK190dD1rT1T4LAs4NqXhyT6UkG3 +oCKqyVMNgvbe6+XpywXeY/JnMz1ZsHpMPHWhtwSudAQ9sfPcDUOP9vhO99bD +nMpo1yUPRzBiDr+Z6O2EZJVX9mmux2Chd0v6eO97KBfOjb9jcxoatt/J+yd3 +ClZE9h3xd0gCmaGqz4dU/0CkraWd4p7LsMbb+R7fdh6cENJ0iOTJgtSNRg/3 +WPFjdOfA76aJm/A6Y0PdhLAg/t1b0tQ8kgcJeREvuSVXo0u+jLTZ4B0QT/sQ +fylLFDtFdm6L870HsZY7DTpn1+LtgKuSa2Pug1RZuxT3EjEsery0wPfCfSgW +tZzbuEIM81e9MG5Mvw+vOp3IFHkx3B+YwLbPvw9Mi0DCwkQMmRaRgtuf3Yf6 +3TeWdVwVQ8HiXu0pviL4YzTT3qYvjmdDA4y7zhZBgM5N5+fREjglIGTl5V0M +pjlC02aJEtixmKvX5l8MBN+puPZ0Cezx9mxTCSmGjm5rTtddCYxp5pvoiykG +9eMreQbbJbBR+5H6VHYxfM0Pzp+UksSHN+/qKHUUg8OaPaPSpZKoctcvIUGd +DZvCHkZlP5JEuzXGYLiZDcvfK4vRmyRx6E54+pwOG6rYPKD4WhK3nnJR3rOD +DWJmVckbFiXx1/yBD9X2bOiIYm7eYSaFJd9dklJj2WD442eozwcp7M1rEtAd +YEOISdr6JyNSONc9eUztLRuKb6r1i85KoWa50x3pT2yQsHTRqeKXpvrLlfl1 +jA0jlU/neNSl0W1/NBBLSLgUnRx49aQ0tm++o8y9hoT3axV9GgVlUPs8l2Xn +FhLEfWtlxcVl8Infea8FHRJ2NR9o86LJ4Pcz67/L6pNQHpqgumqTDIqP829y +RhLOD40P2x6QQYHkz731JiRoFjz0/JErg5t2JV0QsiUhSt/ioNT/ZLFs1O1c +ZTAJJk7Zk1u2yeJfjbOiD0JIEIr8fsZqlyxyW+ReLw4j4XpDTH6yiyxaDzy8 +lRFBQqVp9fdl8bJ4L7U6wSSWhPEDjKCp17JolRw9L36ZhIrQ43yrP8pi/dOq +gx+vkBB+/XGG+pgsKmx83VJ0lYSVb20eenHL4bIn37K2ZJGg5JnI9Xa9HNYo +a5or5ZHgdGLmfGuYHN4x0KMFc0hQuLJNZjhGDiXdS+6JlpJU/y4W8SXLYXly +v05RGQmhv9d1bMuTw90GSZ69FSSkn3FaW9Uqh3djPgrw15DQmvLsxm1ZeYxx +plX2PydBt/hqWXitPG78EmBlMkSCYW/7n7FmedwT2Pvr+FsS9nDxGjt3yqN7 +vOqaK+9IcN3n8xo+yWNmqsj1gQ8kGIXRIyKX0vCJdYOI0VcSjsvP3tqqQsOk +JJfRnHESZkqTmxc0aKg1rDOYM0HVZ6IyytlMw6XHvxplT5IQ4+eiTRjQcO/8 +vqiUaRIyG1qauS1oGGd48LbtPAmNnjdGG4JoeGWLD6/fIgk7f+uInAqjYY7U +yVwTLg60J3drb46k4anSrhrZJRx4XSUQmRdPw5v5mwLruDkwtiJQJOY6DdE8 +582XpRyQIE22GNXTMJzPUbB2BQeyDD/Y/22ioeOH2kaflRwgXp+OLH9BQ8PI +mCUyghxQ4y59rthDQ2O51YK+QhzYZinrwPeVhtrqmiFzwhzwnp+IbBak4+Ic +uSp1LQd0/TzEPovQkVfd+Z6CGAf4h/sLeSTouEH8sFs55dsDDa8MCDoG1wjr +vBTnwGBNuuoDbTpaWl0OGpTkwP0ty+s79ego2DMqay/FgVAy3GYc6fj137pv +3ZTFcj2jVczoeHwxeKJWmgPmMTp9N53paDp+tytAlgNyf4uO1brR8c9nK85r +yiNBBM8bLzrG2bZX6stxIO7wCnWJQDr+PNFr/JOy9buIBq0QOqq1N3ZYynOA +aTd9YH84HQf+aJ+7T7nO7M2ZpDg6FssfDdlP40BSo4Xk/Qt0jA6+WJlL2YHV +VPw8lY66fn8Uf1BeUGe/5s2iY+zb6LQIOgea7zB8iVw6Em7c6Q2UL9MyePEO +HWvyrj3jJTigKRKlEcaho4DG1NNwylwJM40Z5XT8IS9/qYJyO88Ru/KHdLSV +xvRRytdPDf7oqqPjFCnURmNw4OjMvpiJp1R/6YZ6FpR1fZ5JrXpBxyaHzLfh +lPm/6JGqHXQ05G19XEA5r4854NlPR60YNjFH2d/i6vGYIaqfy/sLJZkcwBbB +Zbc+0pGx7x9fHcpC26Ov1X2jY67bfl9rym8ezm4YHKOj+pxc4XHK9zcfbfo1 +RceAo1OMOMqhRUP2kgt0XPEyuf86ZRNFywntv9T9DVS8LKYsdqP5nCUPgb5T +63hrKH8UZ8n48xNYo1hwsoVySTKHc1GQwEC1ebVuypECisZFIgSe9+pnDlA2 +j878t0WcwD+fRJ2GKMv9EvL/KkOgubVX/1vKIwFn+JYRBC4Xy8n873j1yNx1 +hhKB+srhN/67Ps7dW3OrKoE/tVu+/ff91oNvnzltJHA01Sz0BWWmjZXjKW0C +GzRbLGopT758PnlVj8DaEiE/knKdiUFcBRKoZvm+L5ty0pMS2Z4dBP74LXT+ +PGUHXaXSSVMCJ7SdYwIory+9ZiK8l8BSjewXtpQXVIQH1awIbK244siiPJsl +FbXJjsCygmXdcpSnVykwdZwJtDZtI/9Q/89ElMYzAzcCe7cUT7+mPDalc8TQ +i6r/tndOKeXv7oaCpj7U9Y6tZecpf+3dQ5oHEFj4KEXTmfL7h66zdqcJZL84 +eIyL8pCaz1WXaAL9peZV2qj19O+Nk/oesQTO71phc4XyqzMXov1SCAz7+nSG +QbnFrEIo7jaButdCj8pR6/fZ4yecC/cIfHr7/a1X1Hpv1Gi1vMQm0MZ1tXki +5RrRd5nZVQTWxU9yjVPzUzKwXOlBG4EB5zS+ZVDzxt69tqW6k8DurVrt/83j +/Vr5Y3W9BA6o+qoOUvOaf2tz6Yt3BI6V1tlIUs486gTvZ6j7y6+L9KPm/cqb +w++//KTWi4ap0RLKaeYBMaOLVL2MjIQkKh+SNsW9mBdg4PTZroybVJ5E/+LY +rJJj4C2mQk8BlTcRxx79XMNgoOg2FVKB8qmhpiwpZQZ+67yz+gaVT0ENAx8U +NBlYruR59DyVZ0cTlh7XN2Jgh9jLlO2iHDj8Z5XoNjMGqhdZVRaKcMDDV6rc +eC8D32QqeK+m7LJf4/c+OwY6ha6J6KHy0VLaNs7Lh4Hikz5HkMpP/cL7OZcv +M5AnvVwql58DA7TCGzuuMdDfhv/IOB81P5cLsqdvUOf/8MjTp1wRlX99XwED +bUs13rRT+a15ICdD6BEDI/qMAvqpfF+3NC353DsGzj/36kn6TUJzaOpFrc8M +5JaRUnv0iwSP8eSkj8MMXNNxKezLTxLyBi4kbptm4Ijr4OKWBRJoJbFxf5cx +Ed/XVtfNkCDmHBYZpMrEH+7bc/3GSHjQHRKhsJGJn97drAsfJcHS9GR4txYT +VVMG3sWPkJCqdeKUJjDxm/y4RuYwCYIrfU+OWTDxtLuM8K3PJPBWHTruEcxE +6azAC9aDJEyImLpY1zMxK95kamcrCX3eRMeRZ0xsXMUWWGwhoa7pJ0S0MvFR +M+czh3o+J4cWyt99xcT3v3LnhZ+RsOH9yqGFYSb6r/6eUfaEBB/OS8csUQVM +kJ7lpJaTMGxuZf/RTQH3L9hf5GST0Fmg9mLeSwFfLd0QRqf2F9U8y/QEfRVw +Io7H/OI1EuIryqW0QxSwkfW9xC2DBGV5if7YC9Rxq+z42RQSPMf6D6iUK6A5 +36VDFWdJ+JjoYu3Pp4jORkkWDw5Tvz+sSmxYqYiJLEdHHk8S5owXRkeFFdHr +1O4yc3cSlvOkxnhJKWLOdabxh4NU/SENZS5qirhz9UPJWTsSTrsriprvV0Tv +nni9F7uo/huMvFS5oYjcF0/V62hQz/sfwTs/aSuh7khuw4NBNshslDvHr6+E +f9vsZ1X62TDm31ivslUJg4J9yeweNqTNCuv7mylhoY1EY0grGwb/FKgvOivh +qbbLhcuq2eC/8l9RyXglzJ/YeuF0Ghsy1+HgrgElfPLOQnvciNqPuvIHlEUo +42Nr5Uif3GLq/UScO7Z+HWZUFvBOGhSBSJtiEvljPe7z4T5GdBWCTBx7r7a2 +KpWfoCOjfg8yVHSERT3VsHciyjXt0l1okdqqNZWijukqAvdc5/JBV6Y+WeOV +Bo4RhoFKm2+DEE9u4MHoDRgeIb+KJ+UWyEXJ69sqbsRwbtrRy503QUDBoXzf +s404l60xpLUuB9RZkuxgR000m+48tNcmC/wHRRpMuTZhWHNGiNP2TPgxlWi1 +M2MTDtY7DKZcuALGGk2ZO9U248lTk7HXVqVDzZTer7n2zVjfKjRTl5gKPqqa +/f+4ayFLjP+nhVsysMbcum0FtPE8t8fdA9GJsIMpsVswVxs7uvY8UPsYB8qR +50/Wb9mCjU4n+1XZMbDeXadWoX8LCpcfff0pJRrcaw6fLfP7H+ZNpGbuX4iA +2pxut4m1OthfnaX6mz8Mpu8uzmlU6GCRqUbaxbYgcFUoFMjcrYvvjKYDuR0C +YGL9Je2ScV2Uk11U+Cx/HCrzfr2bidPD9+W+wi8Ej4KdIQP15PSxv9Cwd12h +B0gfi61Sr9PH8HdXb5lkHYKkRQ+thHp9HJsPvep98RBwpxpxvjTq42QaLeJq +1CEYLl9akPNcH5M4vnxCHoegmutshkiXPt6geyQe1DgEdmmRwbOf9PGk+wmf +4oaDkPEwRKtmBQvDTPxW1026wNrl3pzdNix07DTnXO5ygrztp0PHbVnYUjnc +bVnlBJqnk7ZfcmChrFRXuOINJ9gzTvb0HWQhdl3W5qWy/NyrmQVXbxbGe6uP +3eFxgvnciG2hUSx0aAnec+5/jtCvd6krv5CF0e7njPaQ9nD4RN71ncUs5Pvy +7LlHhj3MFj9wHyFZSL9r4JYSaQ8iRN/cxnIW8o+Il8hY2IMZv6zM4zoWusom +hiyfsoNH3fluXT0s/Gj3d5mOrh2YClWqBfWx0Ev5y/NjDDvoM34+KzHAwgnF +HVOlK+1guvp7nNNbFo5qdewOHLIFtZsbir4Ns7CPVJ9siLGFR/1bgxJHWZip +WlQZ7WsLpmv2g8Y4C5cnzCbts7UFj9gT/wTOUPWlfAcFNVuYrjuXKT7PQvUg +xlJlcVuI/nnFtfonC3mqDNh6S2xBeHOBquMfFpZ9Strk8v0AZB+rnllcZGGr +1JHY9J4D8H8EdHLk "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -13392,164 +13880,117 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK -SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx -/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr -12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI -64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs -Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ -g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q -LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o -2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL -6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u -nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr -t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 -MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 -eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M -qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD -y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ -1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh -a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk -LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz -5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 -bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg -PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx -ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg -RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 -Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab -+LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l -8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm -JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 -Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk -7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar -LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 -KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR -zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e -aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ -EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr -xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ -lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh -7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX -jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw -Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 -VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK -wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I -3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h -YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS -a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG -+Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk -30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE -aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ -gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk -pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 -/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 -BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB -DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm -Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU -mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg -srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa -elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp -F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR -vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO -p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe -zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y -c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS -5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD -ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF -aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX -oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD -KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE -ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv -XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y -HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T -SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol -DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN -kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK -J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 -XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw -YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl -49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi -hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV -sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 -NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR -P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy -r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ -sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp -3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L -TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG -cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU -XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB -oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX -flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N -Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j -GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 -8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ -lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr -MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC -ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi -z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq -frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T -VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda -R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a -d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP -cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 -ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ -2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM -uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B -8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 -SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV -rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw -u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B -jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO -FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz -oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE -zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 -hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb -QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe -htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b -gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr -CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d -3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V -Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr -t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS -d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ -TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb -EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK -Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ -KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb -vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU -/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 -JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG -bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD -VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 -0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z -j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ -z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 -dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs -D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ -M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ -3z9DIQ== +1:eJwV13k8VP0XB3ChUJEo+zJzZyxlK0U/yzinEqKSsmRXtpTIEqFsJURClBRJ +UhJzB9kqhCQhjyXiifZFyL60+d3nr3m9X/femXPPfM/nfi/9kO8+d24uLi7+ +JVxc/33ODj5vZCbkGbziy5S34kOD7myJkK190dD1rT1T4LAs4NqXhyT6UkG3 +oCKqyVMNgvbe6+XpywXeY/JnMz1ZsHpMPHWhtwSudAQ9sfPcDUOP9vhO99bD +nMpo1yUPRzBiDr+Z6O2EZJVX9mmux2Chd0v6eO97KBfOjb9jcxoatt/J+yd3 +ClZE9h3xd0gCmaGqz4dU/0CkraWd4p7LsMbb+R7fdh6cENJ0iOTJgtSNRg/3 +WPFjdOfA76aJm/A6Y0PdhLAg/t1b0tQ8kgcJeREvuSVXo0u+jLTZ4B0QT/sQ +fylLFDtFdm6L870HsZY7DTpn1+LtgKuSa2Pug1RZuxT3EjEsery0wPfCfSgW +tZzbuEIM81e9MG5Mvw+vOp3IFHkx3B+YwLbPvw9Mi0DCwkQMmRaRgtuf3Yf6 +3TeWdVwVQ8HiXu0pviL4YzTT3qYvjmdDA4y7zhZBgM5N5+fREjglIGTl5V0M +pjlC02aJEtixmKvX5l8MBN+puPZ0Cezx9mxTCSmGjm5rTtddCYxp5pvoiykG +9eMreQbbJbBR+5H6VHYxfM0Pzp+UksSHN+/qKHUUg8OaPaPSpZKoctcvIUGd +DZvCHkZlP5JEuzXGYLiZDcvfK4vRmyRx6E54+pwOG6rYPKD4WhK3nnJR3rOD +DWJmVckbFiXx1/yBD9X2bOiIYm7eYSaFJd9dklJj2WD442eozwcp7M1rEtAd +YEOISdr6JyNSONc9eUztLRuKb6r1i85KoWa50x3pT2yQsHTRqeKXpvrLlfl1 +jA0jlU/neNSl0W1/NBBLSLgUnRx49aQ0tm++o8y9hoT3axV9GgVlUPs8l2Xn +FhLEfWtlxcVl8Infea8FHRJ2NR9o86LJ4Pcz67/L6pNQHpqgumqTDIqP829y +RhLOD40P2x6QQYHkz731JiRoFjz0/JErg5t2JV0QsiUhSt/ioNT/ZLFs1O1c +ZTAJJk7Zk1u2yeJfjbOiD0JIEIr8fsZqlyxyW+ReLw4j4XpDTH6yiyxaDzy8 +lRFBQqVp9fdl8bJ4L7U6wSSWhPEDjKCp17JolRw9L36ZhIrQ43yrP8pi/dOq +gx+vkBB+/XGG+pgsKmx83VJ0lYSVb20eenHL4bIn37K2ZJGg5JnI9Xa9HNYo +a5or5ZHgdGLmfGuYHN4x0KMFc0hQuLJNZjhGDiXdS+6JlpJU/y4W8SXLYXly +v05RGQmhv9d1bMuTw90GSZ69FSSkn3FaW9Uqh3djPgrw15DQmvLsxm1ZeYxx +plX2PydBt/hqWXitPG78EmBlMkSCYW/7n7FmedwT2Pvr+FsS9nDxGjt3yqN7 +vOqaK+9IcN3n8xo+yWNmqsj1gQ8kGIXRIyKX0vCJdYOI0VcSjsvP3tqqQsOk +JJfRnHESZkqTmxc0aKg1rDOYM0HVZ6IyytlMw6XHvxplT5IQ4+eiTRjQcO/8 +vqiUaRIyG1qauS1oGGd48LbtPAmNnjdGG4JoeGWLD6/fIgk7f+uInAqjYY7U +yVwTLg60J3drb46k4anSrhrZJRx4XSUQmRdPw5v5mwLruDkwtiJQJOY6DdE8 +582XpRyQIE22GNXTMJzPUbB2BQeyDD/Y/22ioeOH2kaflRwgXp+OLH9BQ8PI +mCUyghxQ4y59rthDQ2O51YK+QhzYZinrwPeVhtrqmiFzwhzwnp+IbBak4+Ic +uSp1LQd0/TzEPovQkVfd+Z6CGAf4h/sLeSTouEH8sFs55dsDDa8MCDoG1wjr +vBTnwGBNuuoDbTpaWl0OGpTkwP0ty+s79ego2DMqay/FgVAy3GYc6fj137pv +3ZTFcj2jVczoeHwxeKJWmgPmMTp9N53paDp+tytAlgNyf4uO1brR8c9nK85r +yiNBBM8bLzrG2bZX6stxIO7wCnWJQDr+PNFr/JOy9buIBq0QOqq1N3ZYynOA +aTd9YH84HQf+aJ+7T7nO7M2ZpDg6FssfDdlP40BSo4Xk/Qt0jA6+WJlL2YHV +VPw8lY66fn8Uf1BeUGe/5s2iY+zb6LQIOgea7zB8iVw6Em7c6Q2UL9MyePEO +HWvyrj3jJTigKRKlEcaho4DG1NNwylwJM40Z5XT8IS9/qYJyO88Ru/KHdLSV +xvRRytdPDf7oqqPjFCnURmNw4OjMvpiJp1R/6YZ6FpR1fZ5JrXpBxyaHzLfh +lPm/6JGqHXQ05G19XEA5r4854NlPR60YNjFH2d/i6vGYIaqfy/sLJZkcwBbB +Zbc+0pGx7x9fHcpC26Ov1X2jY67bfl9rym8ezm4YHKOj+pxc4XHK9zcfbfo1 +RceAo1OMOMqhRUP2kgt0XPEyuf86ZRNFywntv9T9DVS8LKYsdqP5nCUPgb5T +63hrKH8UZ8n48xNYo1hwsoVySTKHc1GQwEC1ebVuypECisZFIgSe9+pnDlA2 +j878t0WcwD+fRJ2GKMv9EvL/KkOgubVX/1vKIwFn+JYRBC4Xy8n873j1yNx1 +hhKB+srhN/67Ps7dW3OrKoE/tVu+/ff91oNvnzltJHA01Sz0BWWmjZXjKW0C +GzRbLGopT758PnlVj8DaEiE/knKdiUFcBRKoZvm+L5ty0pMS2Z4dBP74LXT+ +PGUHXaXSSVMCJ7SdYwIory+9ZiK8l8BSjewXtpQXVIQH1awIbK244siiPJsl +FbXJjsCygmXdcpSnVykwdZwJtDZtI/9Q/89ElMYzAzcCe7cUT7+mPDalc8TQ +i6r/tndOKeXv7oaCpj7U9Y6tZecpf+3dQ5oHEFj4KEXTmfL7h66zdqcJZL84 +eIyL8pCaz1WXaAL9peZV2qj19O+Nk/oesQTO71phc4XyqzMXov1SCAz7+nSG +QbnFrEIo7jaButdCj8pR6/fZ4yecC/cIfHr7/a1X1Hpv1Gi1vMQm0MZ1tXki +5RrRd5nZVQTWxU9yjVPzUzKwXOlBG4EB5zS+ZVDzxt69tqW6k8DurVrt/83j +/Vr5Y3W9BA6o+qoOUvOaf2tz6Yt3BI6V1tlIUs486gTvZ6j7y6+L9KPm/cqb +w++//KTWi4ap0RLKaeYBMaOLVL2MjIQkKh+SNsW9mBdg4PTZroybVJ5E/+LY +rJJj4C2mQk8BlTcRxx79XMNgoOg2FVKB8qmhpiwpZQZ+67yz+gaVT0ENAx8U +NBlYruR59DyVZ0cTlh7XN2Jgh9jLlO2iHDj8Z5XoNjMGqhdZVRaKcMDDV6rc +eC8D32QqeK+m7LJf4/c+OwY6ha6J6KHy0VLaNs7Lh4Hikz5HkMpP/cL7OZcv +M5AnvVwql58DA7TCGzuuMdDfhv/IOB81P5cLsqdvUOf/8MjTp1wRlX99XwED +bUs13rRT+a15ICdD6BEDI/qMAvqpfF+3NC353DsGzj/36kn6TUJzaOpFrc8M +5JaRUnv0iwSP8eSkj8MMXNNxKezLTxLyBi4kbptm4Ijr4OKWBRJoJbFxf5cx +Ed/XVtfNkCDmHBYZpMrEH+7bc/3GSHjQHRKhsJGJn97drAsfJcHS9GR4txYT +VVMG3sWPkJCqdeKUJjDxm/y4RuYwCYIrfU+OWTDxtLuM8K3PJPBWHTruEcxE +6azAC9aDJEyImLpY1zMxK95kamcrCX3eRMeRZ0xsXMUWWGwhoa7pJ0S0MvFR +M+czh3o+J4cWyt99xcT3v3LnhZ+RsOH9yqGFYSb6r/6eUfaEBB/OS8csUQVM +kJ7lpJaTMGxuZf/RTQH3L9hf5GST0Fmg9mLeSwFfLd0QRqf2F9U8y/QEfRVw +Io7H/OI1EuIryqW0QxSwkfW9xC2DBGV5if7YC9Rxq+z42RQSPMf6D6iUK6A5 +36VDFWdJ+JjoYu3Pp4jORkkWDw5Tvz+sSmxYqYiJLEdHHk8S5owXRkeFFdHr +1O4yc3cSlvOkxnhJKWLOdabxh4NU/SENZS5qirhz9UPJWTsSTrsriprvV0Tv +nni9F7uo/huMvFS5oYjcF0/V62hQz/sfwTs/aSuh7khuw4NBNshslDvHr6+E +f9vsZ1X62TDm31ivslUJg4J9yeweNqTNCuv7mylhoY1EY0grGwb/FKgvOivh +qbbLhcuq2eC/8l9RyXglzJ/YeuF0Ghsy1+HgrgElfPLOQnvciNqPuvIHlEUo +42Nr5Uif3GLq/UScO7Z+HWZUFvBOGhSBSJtiEvljPe7z4T5GdBWCTBx7r7a2 +KpWfoCOjfg8yVHSERT3VsHciyjXt0l1okdqqNZWijukqAvdc5/JBV6Y+WeOV +Bo4RhoFKm2+DEE9u4MHoDRgeIb+KJ+UWyEXJ69sqbsRwbtrRy503QUDBoXzf +s404l60xpLUuB9RZkuxgR000m+48tNcmC/wHRRpMuTZhWHNGiNP2TPgxlWi1 +M2MTDtY7DKZcuALGGk2ZO9U248lTk7HXVqVDzZTer7n2zVjfKjRTl5gKPqqa +/f+4ayFLjP+nhVsysMbcum0FtPE8t8fdA9GJsIMpsVswVxs7uvY8UPsYB8qR +50/Wb9mCjU4n+1XZMbDeXadWoX8LCpcfff0pJRrcaw6fLfP7H+ZNpGbuX4iA +2pxut4m1OthfnaX6mz8Mpu8uzmlU6GCRqUbaxbYgcFUoFMjcrYvvjKYDuR0C +YGL9Je2ScV2Uk11U+Cx/HCrzfr2bidPD9+W+wi8Ej4KdIQP15PSxv9Cwd12h +B0gfi61Sr9PH8HdXb5lkHYKkRQ+thHp9HJsPvep98RBwpxpxvjTq42QaLeJq +1CEYLl9akPNcH5M4vnxCHoegmutshkiXPt6geyQe1DgEdmmRwbOf9PGk+wmf +4oaDkPEwRKtmBQvDTPxW1026wNrl3pzdNix07DTnXO5ygrztp0PHbVnYUjnc +bVnlBJqnk7ZfcmChrFRXuOINJ9gzTvb0HWQhdl3W5qWy/NyrmQVXbxbGe6uP +3eFxgvnciG2hUSx0aAnec+5/jtCvd6krv5CF0e7njPaQ9nD4RN71ncUs5Pvy +7LlHhj3MFj9wHyFZSL9r4JYSaQ8iRN/cxnIW8o+Il8hY2IMZv6zM4zoWusom +hiyfsoNH3fluXT0s/Gj3d5mOrh2YClWqBfWx0Ev5y/NjDDvoM34+KzHAwgnF +HVOlK+1guvp7nNNbFo5qdewOHLIFtZsbir4Ns7CPVJ9siLGFR/1bgxJHWZip +WlQZ7WsLpmv2g8Y4C5cnzCbts7UFj9gT/wTOUPWlfAcFNVuYrjuXKT7PQvUg +xlJlcVuI/nnFtfonC3mqDNh6S2xBeHOBquMfFpZ9Strk8v0AZB+rnllcZGGr +1JHY9J4D8H8EdHLk "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "PlotRange" -> {{0, 30}, {0., 0.06696896869956358}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -13561,19 +14002,19 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "PlotRange" -> {{0, 30}, {0., 0.06696896869956358}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13587,163 +14028,116 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK -SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx -/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr -12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI -64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs -Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ -g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q -LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o -2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL -6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u -nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr -t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 -MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 -eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M -qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD -y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ -1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh -a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk -LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz -5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 -bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg -PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx -ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg -RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 -Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab -+LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l -8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm -JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 -Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk -7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar -LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 -KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR -zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e -aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ -EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr -xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ -lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh -7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX -jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw -Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 -VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK -wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I -3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h -YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS -a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG -+Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk -30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE -aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ -gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk -pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 -/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 -BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB -DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm -Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU -mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg -srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa -elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp -F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR -vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO -p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe -zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y -c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS -5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD -ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF -aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX -oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD -KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE -ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv -XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y -HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T -SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol -DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN -kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK -J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 -XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw -YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl -49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi -hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV -sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 -NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR -P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy -r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ -sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp -3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L -TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG -cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU -XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB -oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX -flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N -Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j -GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 -8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ -lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr -MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC -ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi -z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq -frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T -VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda -R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a -d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP -cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 -ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ -2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM -uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B -8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 -SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV -rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw -u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B -jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO -FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz -oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE -zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 -hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb -QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe -htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b -gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr -CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d -3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V -Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr -t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS -d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ -TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb -EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK -Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ -KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb -vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU -/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 -JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG -bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD -VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 -0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z -j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ -z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 -dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs -D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ -M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ -3z9DIQ== +1:eJwV13k8VP0XB3ChUJEo+zJzZyxlK0U/yzinEqKSsmRXtpTIEqFsJURClBRJ +UhJzB9kqhCQhjyXiifZFyL60+d3nr3m9X/femXPPfM/nfi/9kO8+d24uLi7+ +JVxc/33ODj5vZCbkGbziy5S34kOD7myJkK190dD1rT1T4LAs4NqXhyT6UkG3 +oCKqyVMNgvbe6+XpywXeY/JnMz1ZsHpMPHWhtwSudAQ9sfPcDUOP9vhO99bD +nMpo1yUPRzBiDr+Z6O2EZJVX9mmux2Chd0v6eO97KBfOjb9jcxoatt/J+yd3 +ClZE9h3xd0gCmaGqz4dU/0CkraWd4p7LsMbb+R7fdh6cENJ0iOTJgtSNRg/3 +WPFjdOfA76aJm/A6Y0PdhLAg/t1b0tQ8kgcJeREvuSVXo0u+jLTZ4B0QT/sQ +fylLFDtFdm6L870HsZY7DTpn1+LtgKuSa2Pug1RZuxT3EjEsery0wPfCfSgW +tZzbuEIM81e9MG5Mvw+vOp3IFHkx3B+YwLbPvw9Mi0DCwkQMmRaRgtuf3Yf6 +3TeWdVwVQ8HiXu0pviL4YzTT3qYvjmdDA4y7zhZBgM5N5+fREjglIGTl5V0M +pjlC02aJEtixmKvX5l8MBN+puPZ0Cezx9mxTCSmGjm5rTtddCYxp5pvoiykG +9eMreQbbJbBR+5H6VHYxfM0Pzp+UksSHN+/qKHUUg8OaPaPSpZKoctcvIUGd +DZvCHkZlP5JEuzXGYLiZDcvfK4vRmyRx6E54+pwOG6rYPKD4WhK3nnJR3rOD +DWJmVckbFiXx1/yBD9X2bOiIYm7eYSaFJd9dklJj2WD442eozwcp7M1rEtAd +YEOISdr6JyNSONc9eUztLRuKb6r1i85KoWa50x3pT2yQsHTRqeKXpvrLlfl1 +jA0jlU/neNSl0W1/NBBLSLgUnRx49aQ0tm++o8y9hoT3axV9GgVlUPs8l2Xn +FhLEfWtlxcVl8Infea8FHRJ2NR9o86LJ4Pcz67/L6pNQHpqgumqTDIqP829y +RhLOD40P2x6QQYHkz731JiRoFjz0/JErg5t2JV0QsiUhSt/ioNT/ZLFs1O1c +ZTAJJk7Zk1u2yeJfjbOiD0JIEIr8fsZqlyxyW+ReLw4j4XpDTH6yiyxaDzy8 +lRFBQqVp9fdl8bJ4L7U6wSSWhPEDjKCp17JolRw9L36ZhIrQ43yrP8pi/dOq +gx+vkBB+/XGG+pgsKmx83VJ0lYSVb20eenHL4bIn37K2ZJGg5JnI9Xa9HNYo +a5or5ZHgdGLmfGuYHN4x0KMFc0hQuLJNZjhGDiXdS+6JlpJU/y4W8SXLYXly +v05RGQmhv9d1bMuTw90GSZ69FSSkn3FaW9Uqh3djPgrw15DQmvLsxm1ZeYxx +plX2PydBt/hqWXitPG78EmBlMkSCYW/7n7FmedwT2Pvr+FsS9nDxGjt3yqN7 +vOqaK+9IcN3n8xo+yWNmqsj1gQ8kGIXRIyKX0vCJdYOI0VcSjsvP3tqqQsOk +JJfRnHESZkqTmxc0aKg1rDOYM0HVZ6IyytlMw6XHvxplT5IQ4+eiTRjQcO/8 +vqiUaRIyG1qauS1oGGd48LbtPAmNnjdGG4JoeGWLD6/fIgk7f+uInAqjYY7U +yVwTLg60J3drb46k4anSrhrZJRx4XSUQmRdPw5v5mwLruDkwtiJQJOY6DdE8 +582XpRyQIE22GNXTMJzPUbB2BQeyDD/Y/22ioeOH2kaflRwgXp+OLH9BQ8PI +mCUyghxQ4y59rthDQ2O51YK+QhzYZinrwPeVhtrqmiFzwhzwnp+IbBak4+Ic +uSp1LQd0/TzEPovQkVfd+Z6CGAf4h/sLeSTouEH8sFs55dsDDa8MCDoG1wjr +vBTnwGBNuuoDbTpaWl0OGpTkwP0ty+s79ego2DMqay/FgVAy3GYc6fj137pv +3ZTFcj2jVczoeHwxeKJWmgPmMTp9N53paDp+tytAlgNyf4uO1brR8c9nK85r +yiNBBM8bLzrG2bZX6stxIO7wCnWJQDr+PNFr/JOy9buIBq0QOqq1N3ZYynOA +aTd9YH84HQf+aJ+7T7nO7M2ZpDg6FssfDdlP40BSo4Xk/Qt0jA6+WJlL2YHV +VPw8lY66fn8Uf1BeUGe/5s2iY+zb6LQIOgea7zB8iVw6Em7c6Q2UL9MyePEO +HWvyrj3jJTigKRKlEcaho4DG1NNwylwJM40Z5XT8IS9/qYJyO88Ru/KHdLSV +xvRRytdPDf7oqqPjFCnURmNw4OjMvpiJp1R/6YZ6FpR1fZ5JrXpBxyaHzLfh +lPm/6JGqHXQ05G19XEA5r4854NlPR60YNjFH2d/i6vGYIaqfy/sLJZkcwBbB +Zbc+0pGx7x9fHcpC26Ov1X2jY67bfl9rym8ezm4YHKOj+pxc4XHK9zcfbfo1 +RceAo1OMOMqhRUP2kgt0XPEyuf86ZRNFywntv9T9DVS8LKYsdqP5nCUPgb5T +63hrKH8UZ8n48xNYo1hwsoVySTKHc1GQwEC1ebVuypECisZFIgSe9+pnDlA2 +j878t0WcwD+fRJ2GKMv9EvL/KkOgubVX/1vKIwFn+JYRBC4Xy8n873j1yNx1 +hhKB+srhN/67Ps7dW3OrKoE/tVu+/ff91oNvnzltJHA01Sz0BWWmjZXjKW0C +GzRbLGopT758PnlVj8DaEiE/knKdiUFcBRKoZvm+L5ty0pMS2Z4dBP74LXT+ +PGUHXaXSSVMCJ7SdYwIory+9ZiK8l8BSjewXtpQXVIQH1awIbK244siiPJsl +FbXJjsCygmXdcpSnVykwdZwJtDZtI/9Q/89ElMYzAzcCe7cUT7+mPDalc8TQ +i6r/tndOKeXv7oaCpj7U9Y6tZecpf+3dQ5oHEFj4KEXTmfL7h66zdqcJZL84 +eIyL8pCaz1WXaAL9peZV2qj19O+Nk/oesQTO71phc4XyqzMXov1SCAz7+nSG +QbnFrEIo7jaButdCj8pR6/fZ4yecC/cIfHr7/a1X1Hpv1Gi1vMQm0MZ1tXki +5RrRd5nZVQTWxU9yjVPzUzKwXOlBG4EB5zS+ZVDzxt69tqW6k8DurVrt/83j +/Vr5Y3W9BA6o+qoOUvOaf2tz6Yt3BI6V1tlIUs486gTvZ6j7y6+L9KPm/cqb +w++//KTWi4ap0RLKaeYBMaOLVL2MjIQkKh+SNsW9mBdg4PTZroybVJ5E/+LY +rJJj4C2mQk8BlTcRxx79XMNgoOg2FVKB8qmhpiwpZQZ+67yz+gaVT0ENAx8U +NBlYruR59DyVZ0cTlh7XN2Jgh9jLlO2iHDj8Z5XoNjMGqhdZVRaKcMDDV6rc +eC8D32QqeK+m7LJf4/c+OwY6ha6J6KHy0VLaNs7Lh4Hikz5HkMpP/cL7OZcv +M5AnvVwql58DA7TCGzuuMdDfhv/IOB81P5cLsqdvUOf/8MjTp1wRlX99XwED +bUs13rRT+a15ICdD6BEDI/qMAvqpfF+3NC353DsGzj/36kn6TUJzaOpFrc8M +5JaRUnv0iwSP8eSkj8MMXNNxKezLTxLyBi4kbptm4Ijr4OKWBRJoJbFxf5cx +Ed/XVtfNkCDmHBYZpMrEH+7bc/3GSHjQHRKhsJGJn97drAsfJcHS9GR4txYT +VVMG3sWPkJCqdeKUJjDxm/y4RuYwCYIrfU+OWTDxtLuM8K3PJPBWHTruEcxE +6azAC9aDJEyImLpY1zMxK95kamcrCX3eRMeRZ0xsXMUWWGwhoa7pJ0S0MvFR +M+czh3o+J4cWyt99xcT3v3LnhZ+RsOH9yqGFYSb6r/6eUfaEBB/OS8csUQVM +kJ7lpJaTMGxuZf/RTQH3L9hf5GST0Fmg9mLeSwFfLd0QRqf2F9U8y/QEfRVw +Io7H/OI1EuIryqW0QxSwkfW9xC2DBGV5if7YC9Rxq+z42RQSPMf6D6iUK6A5 +36VDFWdJ+JjoYu3Pp4jORkkWDw5Tvz+sSmxYqYiJLEdHHk8S5owXRkeFFdHr +1O4yc3cSlvOkxnhJKWLOdabxh4NU/SENZS5qirhz9UPJWTsSTrsriprvV0Tv +nni9F7uo/huMvFS5oYjcF0/V62hQz/sfwTs/aSuh7khuw4NBNshslDvHr6+E +f9vsZ1X62TDm31ivslUJg4J9yeweNqTNCuv7mylhoY1EY0grGwb/FKgvOivh +qbbLhcuq2eC/8l9RyXglzJ/YeuF0Ghsy1+HgrgElfPLOQnvciNqPuvIHlEUo +42Nr5Uif3GLq/UScO7Z+HWZUFvBOGhSBSJtiEvljPe7z4T5GdBWCTBx7r7a2 +KpWfoCOjfg8yVHSERT3VsHciyjXt0l1okdqqNZWijukqAvdc5/JBV6Y+WeOV +Bo4RhoFKm2+DEE9u4MHoDRgeIb+KJ+UWyEXJ69sqbsRwbtrRy503QUDBoXzf +s404l60xpLUuB9RZkuxgR000m+48tNcmC/wHRRpMuTZhWHNGiNP2TPgxlWi1 +M2MTDtY7DKZcuALGGk2ZO9U248lTk7HXVqVDzZTer7n2zVjfKjRTl5gKPqqa +/f+4ayFLjP+nhVsysMbcum0FtPE8t8fdA9GJsIMpsVswVxs7uvY8UPsYB8qR +50/Wb9mCjU4n+1XZMbDeXadWoX8LCpcfff0pJRrcaw6fLfP7H+ZNpGbuX4iA +2pxut4m1OthfnaX6mz8Mpu8uzmlU6GCRqUbaxbYgcFUoFMjcrYvvjKYDuR0C +YGL9Je2ScV2Uk11U+Cx/HCrzfr2bidPD9+W+wi8Ej4KdIQP15PSxv9Cwd12h +B0gfi61Sr9PH8HdXb5lkHYKkRQ+thHp9HJsPvep98RBwpxpxvjTq42QaLeJq +1CEYLl9akPNcH5M4vnxCHoegmutshkiXPt6geyQe1DgEdmmRwbOf9PGk+wmf +4oaDkPEwRKtmBQvDTPxW1026wNrl3pzdNix07DTnXO5ygrztp0PHbVnYUjnc +bVnlBJqnk7ZfcmChrFRXuOINJ9gzTvb0HWQhdl3W5qWy/NyrmQVXbxbGe6uP +3eFxgvnciG2hUSx0aAnec+5/jtCvd6krv5CF0e7njPaQ9nD4RN71ncUs5Pvy +7LlHhj3MFj9wHyFZSL9r4JYSaQ8iRN/cxnIW8o+Il8hY2IMZv6zM4zoWusom +hiyfsoNH3fluXT0s/Gj3d5mOrh2YClWqBfWx0Ev5y/NjDDvoM34+KzHAwgnF +HVOlK+1guvp7nNNbFo5qdewOHLIFtZsbir4Ns7CPVJ9siLGFR/1bgxJHWZip +WlQZ7WsLpmv2g8Y4C5cnzCbts7UFj9gT/wTOUPWlfAcFNVuYrjuXKT7PQvUg +xlJlcVuI/nnFtfonC3mqDNh6S2xBeHOBquMfFpZ9Strk8v0AZB+rnllcZGGr +1JHY9J4D8H8EdHLk "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "PlotRange" -> {{0, 30}, {0., 0.06696896869956358}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13754,6 +14148,7 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -13781,7 +14176,8 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.17388882737814787`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06696896869956358}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -13789,17 +14185,571 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913324679337597`*^9}, + CellChangeTimes->{3.9913324679337597`*^9, 3.994254160170334*^9}, CellLabel-> - "Out[221]=",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] + "Out[140]=",ExpressionUUID->"a1ddb8d2-7166-4909-a99f-1e229dceee0e"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"f380af60-a605-c546-a4c8-\ -b989835aa113"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k8VP0XB3ChUJEo+zJzZyxlK0U/yzinEqKSsmRXtpTIEqFsJURClBRJ +UhJzB9kqhCQhjyXiifZFyL60+d3nr3m9X/femXPPfM/nfi/9kO8+d24uLi7+ +JVxc/33ODj5vZCbkGbziy5S34kOD7myJkK190dD1rT1T4LAs4NqXhyT6UkG3 +oCKqyVMNgvbe6+XpywXeY/JnMz1ZsHpMPHWhtwSudAQ9sfPcDUOP9vhO99bD +nMpo1yUPRzBiDr+Z6O2EZJVX9mmux2Chd0v6eO97KBfOjb9jcxoatt/J+yd3 +ClZE9h3xd0gCmaGqz4dU/0CkraWd4p7LsMbb+R7fdh6cENJ0iOTJgtSNRg/3 +WPFjdOfA76aJm/A6Y0PdhLAg/t1b0tQ8kgcJeREvuSVXo0u+jLTZ4B0QT/sQ +fylLFDtFdm6L870HsZY7DTpn1+LtgKuSa2Pug1RZuxT3EjEsery0wPfCfSgW +tZzbuEIM81e9MG5Mvw+vOp3IFHkx3B+YwLbPvw9Mi0DCwkQMmRaRgtuf3Yf6 +3TeWdVwVQ8HiXu0pviL4YzTT3qYvjmdDA4y7zhZBgM5N5+fREjglIGTl5V0M +pjlC02aJEtixmKvX5l8MBN+puPZ0Cezx9mxTCSmGjm5rTtddCYxp5pvoiykG +9eMreQbbJbBR+5H6VHYxfM0Pzp+UksSHN+/qKHUUg8OaPaPSpZKoctcvIUGd +DZvCHkZlP5JEuzXGYLiZDcvfK4vRmyRx6E54+pwOG6rYPKD4WhK3nnJR3rOD +DWJmVckbFiXx1/yBD9X2bOiIYm7eYSaFJd9dklJj2WD442eozwcp7M1rEtAd +YEOISdr6JyNSONc9eUztLRuKb6r1i85KoWa50x3pT2yQsHTRqeKXpvrLlfl1 +jA0jlU/neNSl0W1/NBBLSLgUnRx49aQ0tm++o8y9hoT3axV9GgVlUPs8l2Xn +FhLEfWtlxcVl8Infea8FHRJ2NR9o86LJ4Pcz67/L6pNQHpqgumqTDIqP829y +RhLOD40P2x6QQYHkz731JiRoFjz0/JErg5t2JV0QsiUhSt/ioNT/ZLFs1O1c +ZTAJJk7Zk1u2yeJfjbOiD0JIEIr8fsZqlyxyW+ReLw4j4XpDTH6yiyxaDzy8 +lRFBQqVp9fdl8bJ4L7U6wSSWhPEDjKCp17JolRw9L36ZhIrQ43yrP8pi/dOq +gx+vkBB+/XGG+pgsKmx83VJ0lYSVb20eenHL4bIn37K2ZJGg5JnI9Xa9HNYo +a5or5ZHgdGLmfGuYHN4x0KMFc0hQuLJNZjhGDiXdS+6JlpJU/y4W8SXLYXly +v05RGQmhv9d1bMuTw90GSZ69FSSkn3FaW9Uqh3djPgrw15DQmvLsxm1ZeYxx +plX2PydBt/hqWXitPG78EmBlMkSCYW/7n7FmedwT2Pvr+FsS9nDxGjt3yqN7 +vOqaK+9IcN3n8xo+yWNmqsj1gQ8kGIXRIyKX0vCJdYOI0VcSjsvP3tqqQsOk +JJfRnHESZkqTmxc0aKg1rDOYM0HVZ6IyytlMw6XHvxplT5IQ4+eiTRjQcO/8 +vqiUaRIyG1qauS1oGGd48LbtPAmNnjdGG4JoeGWLD6/fIgk7f+uInAqjYY7U +yVwTLg60J3drb46k4anSrhrZJRx4XSUQmRdPw5v5mwLruDkwtiJQJOY6DdE8 +582XpRyQIE22GNXTMJzPUbB2BQeyDD/Y/22ioeOH2kaflRwgXp+OLH9BQ8PI +mCUyghxQ4y59rthDQ2O51YK+QhzYZinrwPeVhtrqmiFzwhzwnp+IbBak4+Ic +uSp1LQd0/TzEPovQkVfd+Z6CGAf4h/sLeSTouEH8sFs55dsDDa8MCDoG1wjr +vBTnwGBNuuoDbTpaWl0OGpTkwP0ty+s79ego2DMqay/FgVAy3GYc6fj137pv +3ZTFcj2jVczoeHwxeKJWmgPmMTp9N53paDp+tytAlgNyf4uO1brR8c9nK85r +yiNBBM8bLzrG2bZX6stxIO7wCnWJQDr+PNFr/JOy9buIBq0QOqq1N3ZYynOA +aTd9YH84HQf+aJ+7T7nO7M2ZpDg6FssfDdlP40BSo4Xk/Qt0jA6+WJlL2YHV +VPw8lY66fn8Uf1BeUGe/5s2iY+zb6LQIOgea7zB8iVw6Em7c6Q2UL9MyePEO +HWvyrj3jJTigKRKlEcaho4DG1NNwylwJM40Z5XT8IS9/qYJyO88Ru/KHdLSV +xvRRytdPDf7oqqPjFCnURmNw4OjMvpiJp1R/6YZ6FpR1fZ5JrXpBxyaHzLfh +lPm/6JGqHXQ05G19XEA5r4854NlPR60YNjFH2d/i6vGYIaqfy/sLJZkcwBbB +Zbc+0pGx7x9fHcpC26Ov1X2jY67bfl9rym8ezm4YHKOj+pxc4XHK9zcfbfo1 +RceAo1OMOMqhRUP2kgt0XPEyuf86ZRNFywntv9T9DVS8LKYsdqP5nCUPgb5T +63hrKH8UZ8n48xNYo1hwsoVySTKHc1GQwEC1ebVuypECisZFIgSe9+pnDlA2 +j878t0WcwD+fRJ2GKMv9EvL/KkOgubVX/1vKIwFn+JYRBC4Xy8n873j1yNx1 +hhKB+srhN/67Ps7dW3OrKoE/tVu+/ff91oNvnzltJHA01Sz0BWWmjZXjKW0C +GzRbLGopT758PnlVj8DaEiE/knKdiUFcBRKoZvm+L5ty0pMS2Z4dBP74LXT+ +PGUHXaXSSVMCJ7SdYwIory+9ZiK8l8BSjewXtpQXVIQH1awIbK244siiPJsl +FbXJjsCygmXdcpSnVykwdZwJtDZtI/9Q/89ElMYzAzcCe7cUT7+mPDalc8TQ +i6r/tndOKeXv7oaCpj7U9Y6tZecpf+3dQ5oHEFj4KEXTmfL7h66zdqcJZL84 +eIyL8pCaz1WXaAL9peZV2qj19O+Nk/oesQTO71phc4XyqzMXov1SCAz7+nSG +QbnFrEIo7jaButdCj8pR6/fZ4yecC/cIfHr7/a1X1Hpv1Gi1vMQm0MZ1tXki +5RrRd5nZVQTWxU9yjVPzUzKwXOlBG4EB5zS+ZVDzxt69tqW6k8DurVrt/83j +/Vr5Y3W9BA6o+qoOUvOaf2tz6Yt3BI6V1tlIUs486gTvZ6j7y6+L9KPm/cqb +w++//KTWi4ap0RLKaeYBMaOLVL2MjIQkKh+SNsW9mBdg4PTZroybVJ5E/+LY +rJJj4C2mQk8BlTcRxx79XMNgoOg2FVKB8qmhpiwpZQZ+67yz+gaVT0ENAx8U +NBlYruR59DyVZ0cTlh7XN2Jgh9jLlO2iHDj8Z5XoNjMGqhdZVRaKcMDDV6rc +eC8D32QqeK+m7LJf4/c+OwY6ha6J6KHy0VLaNs7Lh4Hikz5HkMpP/cL7OZcv +M5AnvVwql58DA7TCGzuuMdDfhv/IOB81P5cLsqdvUOf/8MjTp1wRlX99XwED +bUs13rRT+a15ICdD6BEDI/qMAvqpfF+3NC353DsGzj/36kn6TUJzaOpFrc8M +5JaRUnv0iwSP8eSkj8MMXNNxKezLTxLyBi4kbptm4Ijr4OKWBRJoJbFxf5cx +Ed/XVtfNkCDmHBYZpMrEH+7bc/3GSHjQHRKhsJGJn97drAsfJcHS9GR4txYT +VVMG3sWPkJCqdeKUJjDxm/y4RuYwCYIrfU+OWTDxtLuM8K3PJPBWHTruEcxE +6azAC9aDJEyImLpY1zMxK95kamcrCX3eRMeRZ0xsXMUWWGwhoa7pJ0S0MvFR +M+czh3o+J4cWyt99xcT3v3LnhZ+RsOH9yqGFYSb6r/6eUfaEBB/OS8csUQVM +kJ7lpJaTMGxuZf/RTQH3L9hf5GST0Fmg9mLeSwFfLd0QRqf2F9U8y/QEfRVw +Io7H/OI1EuIryqW0QxSwkfW9xC2DBGV5if7YC9Rxq+z42RQSPMf6D6iUK6A5 +36VDFWdJ+JjoYu3Pp4jORkkWDw5Tvz+sSmxYqYiJLEdHHk8S5owXRkeFFdHr +1O4yc3cSlvOkxnhJKWLOdabxh4NU/SENZS5qirhz9UPJWTsSTrsriprvV0Tv +nni9F7uo/huMvFS5oYjcF0/V62hQz/sfwTs/aSuh7khuw4NBNshslDvHr6+E +f9vsZ1X62TDm31ivslUJg4J9yeweNqTNCuv7mylhoY1EY0grGwb/FKgvOivh +qbbLhcuq2eC/8l9RyXglzJ/YeuF0Ghsy1+HgrgElfPLOQnvciNqPuvIHlEUo +42Nr5Uif3GLq/UScO7Z+HWZUFvBOGhSBSJtiEvljPe7z4T5GdBWCTBx7r7a2 +KpWfoCOjfg8yVHSERT3VsHciyjXt0l1okdqqNZWijukqAvdc5/JBV6Y+WeOV +Bo4RhoFKm2+DEE9u4MHoDRgeIb+KJ+UWyEXJ69sqbsRwbtrRy503QUDBoXzf +s404l60xpLUuB9RZkuxgR000m+48tNcmC/wHRRpMuTZhWHNGiNP2TPgxlWi1 +M2MTDtY7DKZcuALGGk2ZO9U248lTk7HXVqVDzZTer7n2zVjfKjRTl5gKPqqa +/f+4ayFLjP+nhVsysMbcum0FtPE8t8fdA9GJsIMpsVswVxs7uvY8UPsYB8qR +50/Wb9mCjU4n+1XZMbDeXadWoX8LCpcfff0pJRrcaw6fLfP7H+ZNpGbuX4iA +2pxut4m1OthfnaX6mz8Mpu8uzmlU6GCRqUbaxbYgcFUoFMjcrYvvjKYDuR0C +YGL9Je2ScV2Uk11U+Cx/HCrzfr2bidPD9+W+wi8Ej4KdIQP15PSxv9Cwd12h +B0gfi61Sr9PH8HdXb5lkHYKkRQ+thHp9HJsPvep98RBwpxpxvjTq42QaLeJq +1CEYLl9akPNcH5M4vnxCHoegmutshkiXPt6geyQe1DgEdmmRwbOf9PGk+wmf +4oaDkPEwRKtmBQvDTPxW1026wNrl3pzdNix07DTnXO5ygrztp0PHbVnYUjnc +bVnlBJqnk7ZfcmChrFRXuOINJ9gzTvb0HWQhdl3W5qWy/NyrmQVXbxbGe6uP +3eFxgvnciG2hUSx0aAnec+5/jtCvd6krv5CF0e7njPaQ9nD4RN71ncUs5Pvy +7LlHhj3MFj9wHyFZSL9r4JYSaQ8iRN/cxnIW8o+Il8hY2IMZv6zM4zoWusom +hiyfsoNH3fluXT0s/Gj3d5mOrh2YClWqBfWx0Ev5y/NjDDvoM34+KzHAwgnF +HVOlK+1guvp7nNNbFo5qdewOHLIFtZsbir4Ns7CPVJ9siLGFR/1bgxJHWZip +WlQZ7WsLpmv2g8Y4C5cnzCbts7UFj9gT/wTOUPWlfAcFNVuYrjuXKT7PQvUg +xlJlcVuI/nnFtfonC3mqDNh6S2xBeHOBquMfFpZ9Strk8v0AZB+rnllcZGGr +1JHY9J4D8H8EdHLk + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VP0XB3ChUJEo+zJzZyxlK0U/yzinEqKSsmRXtpTIEqFsJURClBRJ +UhJzB9kqhCQhjyXiifZFyL60+d3nr3m9X/femXPPfM/nfi/9kO8+d24uLi7+ +JVxc/33ODj5vZCbkGbziy5S34kOD7myJkK190dD1rT1T4LAs4NqXhyT6UkG3 +oCKqyVMNgvbe6+XpywXeY/JnMz1ZsHpMPHWhtwSudAQ9sfPcDUOP9vhO99bD +nMpo1yUPRzBiDr+Z6O2EZJVX9mmux2Chd0v6eO97KBfOjb9jcxoatt/J+yd3 +ClZE9h3xd0gCmaGqz4dU/0CkraWd4p7LsMbb+R7fdh6cENJ0iOTJgtSNRg/3 +WPFjdOfA76aJm/A6Y0PdhLAg/t1b0tQ8kgcJeREvuSVXo0u+jLTZ4B0QT/sQ +fylLFDtFdm6L870HsZY7DTpn1+LtgKuSa2Pug1RZuxT3EjEsery0wPfCfSgW +tZzbuEIM81e9MG5Mvw+vOp3IFHkx3B+YwLbPvw9Mi0DCwkQMmRaRgtuf3Yf6 +3TeWdVwVQ8HiXu0pviL4YzTT3qYvjmdDA4y7zhZBgM5N5+fREjglIGTl5V0M +pjlC02aJEtixmKvX5l8MBN+puPZ0Cezx9mxTCSmGjm5rTtddCYxp5pvoiykG +9eMreQbbJbBR+5H6VHYxfM0Pzp+UksSHN+/qKHUUg8OaPaPSpZKoctcvIUGd +DZvCHkZlP5JEuzXGYLiZDcvfK4vRmyRx6E54+pwOG6rYPKD4WhK3nnJR3rOD +DWJmVckbFiXx1/yBD9X2bOiIYm7eYSaFJd9dklJj2WD442eozwcp7M1rEtAd +YEOISdr6JyNSONc9eUztLRuKb6r1i85KoWa50x3pT2yQsHTRqeKXpvrLlfl1 +jA0jlU/neNSl0W1/NBBLSLgUnRx49aQ0tm++o8y9hoT3axV9GgVlUPs8l2Xn +FhLEfWtlxcVl8Infea8FHRJ2NR9o86LJ4Pcz67/L6pNQHpqgumqTDIqP829y +RhLOD40P2x6QQYHkz731JiRoFjz0/JErg5t2JV0QsiUhSt/ioNT/ZLFs1O1c +ZTAJJk7Zk1u2yeJfjbOiD0JIEIr8fsZqlyxyW+ReLw4j4XpDTH6yiyxaDzy8 +lRFBQqVp9fdl8bJ4L7U6wSSWhPEDjKCp17JolRw9L36ZhIrQ43yrP8pi/dOq +gx+vkBB+/XGG+pgsKmx83VJ0lYSVb20eenHL4bIn37K2ZJGg5JnI9Xa9HNYo +a5or5ZHgdGLmfGuYHN4x0KMFc0hQuLJNZjhGDiXdS+6JlpJU/y4W8SXLYXly +v05RGQmhv9d1bMuTw90GSZ69FSSkn3FaW9Uqh3djPgrw15DQmvLsxm1ZeYxx +plX2PydBt/hqWXitPG78EmBlMkSCYW/7n7FmedwT2Pvr+FsS9nDxGjt3yqN7 +vOqaK+9IcN3n8xo+yWNmqsj1gQ8kGIXRIyKX0vCJdYOI0VcSjsvP3tqqQsOk +JJfRnHESZkqTmxc0aKg1rDOYM0HVZ6IyytlMw6XHvxplT5IQ4+eiTRjQcO/8 +vqiUaRIyG1qauS1oGGd48LbtPAmNnjdGG4JoeGWLD6/fIgk7f+uInAqjYY7U +yVwTLg60J3drb46k4anSrhrZJRx4XSUQmRdPw5v5mwLruDkwtiJQJOY6DdE8 +582XpRyQIE22GNXTMJzPUbB2BQeyDD/Y/22ioeOH2kaflRwgXp+OLH9BQ8PI +mCUyghxQ4y59rthDQ2O51YK+QhzYZinrwPeVhtrqmiFzwhzwnp+IbBak4+Ic +uSp1LQd0/TzEPovQkVfd+Z6CGAf4h/sLeSTouEH8sFs55dsDDa8MCDoG1wjr +vBTnwGBNuuoDbTpaWl0OGpTkwP0ty+s79ego2DMqay/FgVAy3GYc6fj137pv +3ZTFcj2jVczoeHwxeKJWmgPmMTp9N53paDp+tytAlgNyf4uO1brR8c9nK85r +yiNBBM8bLzrG2bZX6stxIO7wCnWJQDr+PNFr/JOy9buIBq0QOqq1N3ZYynOA +aTd9YH84HQf+aJ+7T7nO7M2ZpDg6FssfDdlP40BSo4Xk/Qt0jA6+WJlL2YHV +VPw8lY66fn8Uf1BeUGe/5s2iY+zb6LQIOgea7zB8iVw6Em7c6Q2UL9MyePEO +HWvyrj3jJTigKRKlEcaho4DG1NNwylwJM40Z5XT8IS9/qYJyO88Ru/KHdLSV +xvRRytdPDf7oqqPjFCnURmNw4OjMvpiJp1R/6YZ6FpR1fZ5JrXpBxyaHzLfh +lPm/6JGqHXQ05G19XEA5r4854NlPR60YNjFH2d/i6vGYIaqfy/sLJZkcwBbB +Zbc+0pGx7x9fHcpC26Ov1X2jY67bfl9rym8ezm4YHKOj+pxc4XHK9zcfbfo1 +RceAo1OMOMqhRUP2kgt0XPEyuf86ZRNFywntv9T9DVS8LKYsdqP5nCUPgb5T +63hrKH8UZ8n48xNYo1hwsoVySTKHc1GQwEC1ebVuypECisZFIgSe9+pnDlA2 +j878t0WcwD+fRJ2GKMv9EvL/KkOgubVX/1vKIwFn+JYRBC4Xy8n873j1yNx1 +hhKB+srhN/67Ps7dW3OrKoE/tVu+/ff91oNvnzltJHA01Sz0BWWmjZXjKW0C +GzRbLGopT758PnlVj8DaEiE/knKdiUFcBRKoZvm+L5ty0pMS2Z4dBP74LXT+ +PGUHXaXSSVMCJ7SdYwIory+9ZiK8l8BSjewXtpQXVIQH1awIbK244siiPJsl +FbXJjsCygmXdcpSnVykwdZwJtDZtI/9Q/89ElMYzAzcCe7cUT7+mPDalc8TQ +i6r/tndOKeXv7oaCpj7U9Y6tZecpf+3dQ5oHEFj4KEXTmfL7h66zdqcJZL84 +eIyL8pCaz1WXaAL9peZV2qj19O+Nk/oesQTO71phc4XyqzMXov1SCAz7+nSG +QbnFrEIo7jaButdCj8pR6/fZ4yecC/cIfHr7/a1X1Hpv1Gi1vMQm0MZ1tXki +5RrRd5nZVQTWxU9yjVPzUzKwXOlBG4EB5zS+ZVDzxt69tqW6k8DurVrt/83j +/Vr5Y3W9BA6o+qoOUvOaf2tz6Yt3BI6V1tlIUs486gTvZ6j7y6+L9KPm/cqb +w++//KTWi4ap0RLKaeYBMaOLVL2MjIQkKh+SNsW9mBdg4PTZroybVJ5E/+LY +rJJj4C2mQk8BlTcRxx79XMNgoOg2FVKB8qmhpiwpZQZ+67yz+gaVT0ENAx8U +NBlYruR59DyVZ0cTlh7XN2Jgh9jLlO2iHDj8Z5XoNjMGqhdZVRaKcMDDV6rc +eC8D32QqeK+m7LJf4/c+OwY6ha6J6KHy0VLaNs7Lh4Hikz5HkMpP/cL7OZcv +M5AnvVwql58DA7TCGzuuMdDfhv/IOB81P5cLsqdvUOf/8MjTp1wRlX99XwED +bUs13rRT+a15ICdD6BEDI/qMAvqpfF+3NC353DsGzj/36kn6TUJzaOpFrc8M +5JaRUnv0iwSP8eSkj8MMXNNxKezLTxLyBi4kbptm4Ijr4OKWBRJoJbFxf5cx +Ed/XVtfNkCDmHBYZpMrEH+7bc/3GSHjQHRKhsJGJn97drAsfJcHS9GR4txYT +VVMG3sWPkJCqdeKUJjDxm/y4RuYwCYIrfU+OWTDxtLuM8K3PJPBWHTruEcxE +6azAC9aDJEyImLpY1zMxK95kamcrCX3eRMeRZ0xsXMUWWGwhoa7pJ0S0MvFR +M+czh3o+J4cWyt99xcT3v3LnhZ+RsOH9yqGFYSb6r/6eUfaEBB/OS8csUQVM +kJ7lpJaTMGxuZf/RTQH3L9hf5GST0Fmg9mLeSwFfLd0QRqf2F9U8y/QEfRVw +Io7H/OI1EuIryqW0QxSwkfW9xC2DBGV5if7YC9Rxq+z42RQSPMf6D6iUK6A5 +36VDFWdJ+JjoYu3Pp4jORkkWDw5Tvz+sSmxYqYiJLEdHHk8S5owXRkeFFdHr +1O4yc3cSlvOkxnhJKWLOdabxh4NU/SENZS5qirhz9UPJWTsSTrsriprvV0Tv +nni9F7uo/huMvFS5oYjcF0/V62hQz/sfwTs/aSuh7khuw4NBNshslDvHr6+E +f9vsZ1X62TDm31ivslUJg4J9yeweNqTNCuv7mylhoY1EY0grGwb/FKgvOivh +qbbLhcuq2eC/8l9RyXglzJ/YeuF0Ghsy1+HgrgElfPLOQnvciNqPuvIHlEUo +42Nr5Uif3GLq/UScO7Z+HWZUFvBOGhSBSJtiEvljPe7z4T5GdBWCTBx7r7a2 +KpWfoCOjfg8yVHSERT3VsHciyjXt0l1okdqqNZWijukqAvdc5/JBV6Y+WeOV +Bo4RhoFKm2+DEE9u4MHoDRgeIb+KJ+UWyEXJ69sqbsRwbtrRy503QUDBoXzf +s404l60xpLUuB9RZkuxgR000m+48tNcmC/wHRRpMuTZhWHNGiNP2TPgxlWi1 +M2MTDtY7DKZcuALGGk2ZO9U248lTk7HXVqVDzZTer7n2zVjfKjRTl5gKPqqa +/f+4ayFLjP+nhVsysMbcum0FtPE8t8fdA9GJsIMpsVswVxs7uvY8UPsYB8qR +50/Wb9mCjU4n+1XZMbDeXadWoX8LCpcfff0pJRrcaw6fLfP7H+ZNpGbuX4iA +2pxut4m1OthfnaX6mz8Mpu8uzmlU6GCRqUbaxbYgcFUoFMjcrYvvjKYDuR0C +YGL9Je2ScV2Uk11U+Cx/HCrzfr2bidPD9+W+wi8Ej4KdIQP15PSxv9Cwd12h +B0gfi61Sr9PH8HdXb5lkHYKkRQ+thHp9HJsPvep98RBwpxpxvjTq42QaLeJq +1CEYLl9akPNcH5M4vnxCHoegmutshkiXPt6geyQe1DgEdmmRwbOf9PGk+wmf +4oaDkPEwRKtmBQvDTPxW1026wNrl3pzdNix07DTnXO5ygrztp0PHbVnYUjnc +bVnlBJqnk7ZfcmChrFRXuOINJ9gzTvb0HWQhdl3W5qWy/NyrmQVXbxbGe6uP +3eFxgvnciG2hUSx0aAnec+5/jtCvd6krv5CF0e7njPaQ9nD4RN71ncUs5Pvy +7LlHhj3MFj9wHyFZSL9r4JYSaQ8iRN/cxnIW8o+Il8hY2IMZv6zM4zoWusom +hiyfsoNH3fluXT0s/Gj3d5mOrh2YClWqBfWx0Ev5y/NjDDvoM34+KzHAwgnF +HVOlK+1guvp7nNNbFo5qdewOHLIFtZsbir4Ns7CPVJ9siLGFR/1bgxJHWZip +WlQZ7WsLpmv2g8Y4C5cnzCbts7UFj9gT/wTOUPWlfAcFNVuYrjuXKT7PQvUg +xlJlcVuI/nnFtfonC3mqDNh6S2xBeHOBquMfFpZ9Strk8v0AZB+rnllcZGGr +1JHY9J4D8H8EdHLk + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06696896869956358}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06696896869956358}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VP0XB3ChUJEo+zJzZyxlK0U/yzinEqKSsmRXtpTIEqFsJURClBRJ +UhJzB9kqhCQhjyXiifZFyL60+d3nr3m9X/femXPPfM/nfi/9kO8+d24uLi7+ +JVxc/33ODj5vZCbkGbziy5S34kOD7myJkK190dD1rT1T4LAs4NqXhyT6UkG3 +oCKqyVMNgvbe6+XpywXeY/JnMz1ZsHpMPHWhtwSudAQ9sfPcDUOP9vhO99bD +nMpo1yUPRzBiDr+Z6O2EZJVX9mmux2Chd0v6eO97KBfOjb9jcxoatt/J+yd3 +ClZE9h3xd0gCmaGqz4dU/0CkraWd4p7LsMbb+R7fdh6cENJ0iOTJgtSNRg/3 +WPFjdOfA76aJm/A6Y0PdhLAg/t1b0tQ8kgcJeREvuSVXo0u+jLTZ4B0QT/sQ +fylLFDtFdm6L870HsZY7DTpn1+LtgKuSa2Pug1RZuxT3EjEsery0wPfCfSgW +tZzbuEIM81e9MG5Mvw+vOp3IFHkx3B+YwLbPvw9Mi0DCwkQMmRaRgtuf3Yf6 +3TeWdVwVQ8HiXu0pviL4YzTT3qYvjmdDA4y7zhZBgM5N5+fREjglIGTl5V0M +pjlC02aJEtixmKvX5l8MBN+puPZ0Cezx9mxTCSmGjm5rTtddCYxp5pvoiykG +9eMreQbbJbBR+5H6VHYxfM0Pzp+UksSHN+/qKHUUg8OaPaPSpZKoctcvIUGd +DZvCHkZlP5JEuzXGYLiZDcvfK4vRmyRx6E54+pwOG6rYPKD4WhK3nnJR3rOD +DWJmVckbFiXx1/yBD9X2bOiIYm7eYSaFJd9dklJj2WD442eozwcp7M1rEtAd +YEOISdr6JyNSONc9eUztLRuKb6r1i85KoWa50x3pT2yQsHTRqeKXpvrLlfl1 +jA0jlU/neNSl0W1/NBBLSLgUnRx49aQ0tm++o8y9hoT3axV9GgVlUPs8l2Xn +FhLEfWtlxcVl8Infea8FHRJ2NR9o86LJ4Pcz67/L6pNQHpqgumqTDIqP829y +RhLOD40P2x6QQYHkz731JiRoFjz0/JErg5t2JV0QsiUhSt/ioNT/ZLFs1O1c +ZTAJJk7Zk1u2yeJfjbOiD0JIEIr8fsZqlyxyW+ReLw4j4XpDTH6yiyxaDzy8 +lRFBQqVp9fdl8bJ4L7U6wSSWhPEDjKCp17JolRw9L36ZhIrQ43yrP8pi/dOq +gx+vkBB+/XGG+pgsKmx83VJ0lYSVb20eenHL4bIn37K2ZJGg5JnI9Xa9HNYo +a5or5ZHgdGLmfGuYHN4x0KMFc0hQuLJNZjhGDiXdS+6JlpJU/y4W8SXLYXly +v05RGQmhv9d1bMuTw90GSZ69FSSkn3FaW9Uqh3djPgrw15DQmvLsxm1ZeYxx +plX2PydBt/hqWXitPG78EmBlMkSCYW/7n7FmedwT2Pvr+FsS9nDxGjt3yqN7 +vOqaK+9IcN3n8xo+yWNmqsj1gQ8kGIXRIyKX0vCJdYOI0VcSjsvP3tqqQsOk +JJfRnHESZkqTmxc0aKg1rDOYM0HVZ6IyytlMw6XHvxplT5IQ4+eiTRjQcO/8 +vqiUaRIyG1qauS1oGGd48LbtPAmNnjdGG4JoeGWLD6/fIgk7f+uInAqjYY7U +yVwTLg60J3drb46k4anSrhrZJRx4XSUQmRdPw5v5mwLruDkwtiJQJOY6DdE8 +582XpRyQIE22GNXTMJzPUbB2BQeyDD/Y/22ioeOH2kaflRwgXp+OLH9BQ8PI +mCUyghxQ4y59rthDQ2O51YK+QhzYZinrwPeVhtrqmiFzwhzwnp+IbBak4+Ic +uSp1LQd0/TzEPovQkVfd+Z6CGAf4h/sLeSTouEH8sFs55dsDDa8MCDoG1wjr +vBTnwGBNuuoDbTpaWl0OGpTkwP0ty+s79ego2DMqay/FgVAy3GYc6fj137pv +3ZTFcj2jVczoeHwxeKJWmgPmMTp9N53paDp+tytAlgNyf4uO1brR8c9nK85r +yiNBBM8bLzrG2bZX6stxIO7wCnWJQDr+PNFr/JOy9buIBq0QOqq1N3ZYynOA +aTd9YH84HQf+aJ+7T7nO7M2ZpDg6FssfDdlP40BSo4Xk/Qt0jA6+WJlL2YHV +VPw8lY66fn8Uf1BeUGe/5s2iY+zb6LQIOgea7zB8iVw6Em7c6Q2UL9MyePEO +HWvyrj3jJTigKRKlEcaho4DG1NNwylwJM40Z5XT8IS9/qYJyO88Ru/KHdLSV +xvRRytdPDf7oqqPjFCnURmNw4OjMvpiJp1R/6YZ6FpR1fZ5JrXpBxyaHzLfh +lPm/6JGqHXQ05G19XEA5r4854NlPR60YNjFH2d/i6vGYIaqfy/sLJZkcwBbB +Zbc+0pGx7x9fHcpC26Ov1X2jY67bfl9rym8ezm4YHKOj+pxc4XHK9zcfbfo1 +RceAo1OMOMqhRUP2kgt0XPEyuf86ZRNFywntv9T9DVS8LKYsdqP5nCUPgb5T +63hrKH8UZ8n48xNYo1hwsoVySTKHc1GQwEC1ebVuypECisZFIgSe9+pnDlA2 +j878t0WcwD+fRJ2GKMv9EvL/KkOgubVX/1vKIwFn+JYRBC4Xy8n873j1yNx1 +hhKB+srhN/67Ps7dW3OrKoE/tVu+/ff91oNvnzltJHA01Sz0BWWmjZXjKW0C +GzRbLGopT758PnlVj8DaEiE/knKdiUFcBRKoZvm+L5ty0pMS2Z4dBP74LXT+ +PGUHXaXSSVMCJ7SdYwIory+9ZiK8l8BSjewXtpQXVIQH1awIbK244siiPJsl +FbXJjsCygmXdcpSnVykwdZwJtDZtI/9Q/89ElMYzAzcCe7cUT7+mPDalc8TQ +i6r/tndOKeXv7oaCpj7U9Y6tZecpf+3dQ5oHEFj4KEXTmfL7h66zdqcJZL84 +eIyL8pCaz1WXaAL9peZV2qj19O+Nk/oesQTO71phc4XyqzMXov1SCAz7+nSG +QbnFrEIo7jaButdCj8pR6/fZ4yecC/cIfHr7/a1X1Hpv1Gi1vMQm0MZ1tXki +5RrRd5nZVQTWxU9yjVPzUzKwXOlBG4EB5zS+ZVDzxt69tqW6k8DurVrt/83j +/Vr5Y3W9BA6o+qoOUvOaf2tz6Yt3BI6V1tlIUs486gTvZ6j7y6+L9KPm/cqb +w++//KTWi4ap0RLKaeYBMaOLVL2MjIQkKh+SNsW9mBdg4PTZroybVJ5E/+LY +rJJj4C2mQk8BlTcRxx79XMNgoOg2FVKB8qmhpiwpZQZ+67yz+gaVT0ENAx8U +NBlYruR59DyVZ0cTlh7XN2Jgh9jLlO2iHDj8Z5XoNjMGqhdZVRaKcMDDV6rc +eC8D32QqeK+m7LJf4/c+OwY6ha6J6KHy0VLaNs7Lh4Hikz5HkMpP/cL7OZcv +M5AnvVwql58DA7TCGzuuMdDfhv/IOB81P5cLsqdvUOf/8MjTp1wRlX99XwED +bUs13rRT+a15ICdD6BEDI/qMAvqpfF+3NC353DsGzj/36kn6TUJzaOpFrc8M +5JaRUnv0iwSP8eSkj8MMXNNxKezLTxLyBi4kbptm4Ijr4OKWBRJoJbFxf5cx +Ed/XVtfNkCDmHBYZpMrEH+7bc/3GSHjQHRKhsJGJn97drAsfJcHS9GR4txYT +VVMG3sWPkJCqdeKUJjDxm/y4RuYwCYIrfU+OWTDxtLuM8K3PJPBWHTruEcxE +6azAC9aDJEyImLpY1zMxK95kamcrCX3eRMeRZ0xsXMUWWGwhoa7pJ0S0MvFR +M+czh3o+J4cWyt99xcT3v3LnhZ+RsOH9yqGFYSb6r/6eUfaEBB/OS8csUQVM +kJ7lpJaTMGxuZf/RTQH3L9hf5GST0Fmg9mLeSwFfLd0QRqf2F9U8y/QEfRVw +Io7H/OI1EuIryqW0QxSwkfW9xC2DBGV5if7YC9Rxq+z42RQSPMf6D6iUK6A5 +36VDFWdJ+JjoYu3Pp4jORkkWDw5Tvz+sSmxYqYiJLEdHHk8S5owXRkeFFdHr +1O4yc3cSlvOkxnhJKWLOdabxh4NU/SENZS5qirhz9UPJWTsSTrsriprvV0Tv +nni9F7uo/huMvFS5oYjcF0/V62hQz/sfwTs/aSuh7khuw4NBNshslDvHr6+E +f9vsZ1X62TDm31ivslUJg4J9yeweNqTNCuv7mylhoY1EY0grGwb/FKgvOivh +qbbLhcuq2eC/8l9RyXglzJ/YeuF0Ghsy1+HgrgElfPLOQnvciNqPuvIHlEUo +42Nr5Uif3GLq/UScO7Z+HWZUFvBOGhSBSJtiEvljPe7z4T5GdBWCTBx7r7a2 +KpWfoCOjfg8yVHSERT3VsHciyjXt0l1okdqqNZWijukqAvdc5/JBV6Y+WeOV +Bo4RhoFKm2+DEE9u4MHoDRgeIb+KJ+UWyEXJ69sqbsRwbtrRy503QUDBoXzf +s404l60xpLUuB9RZkuxgR000m+48tNcmC/wHRRpMuTZhWHNGiNP2TPgxlWi1 +M2MTDtY7DKZcuALGGk2ZO9U248lTk7HXVqVDzZTer7n2zVjfKjRTl5gKPqqa +/f+4ayFLjP+nhVsysMbcum0FtPE8t8fdA9GJsIMpsVswVxs7uvY8UPsYB8qR +50/Wb9mCjU4n+1XZMbDeXadWoX8LCpcfff0pJRrcaw6fLfP7H+ZNpGbuX4iA +2pxut4m1OthfnaX6mz8Mpu8uzmlU6GCRqUbaxbYgcFUoFMjcrYvvjKYDuR0C +YGL9Je2ScV2Uk11U+Cx/HCrzfr2bidPD9+W+wi8Ej4KdIQP15PSxv9Cwd12h +B0gfi61Sr9PH8HdXb5lkHYKkRQ+thHp9HJsPvep98RBwpxpxvjTq42QaLeJq +1CEYLl9akPNcH5M4vnxCHoegmutshkiXPt6geyQe1DgEdmmRwbOf9PGk+wmf +4oaDkPEwRKtmBQvDTPxW1026wNrl3pzdNix07DTnXO5ygrztp0PHbVnYUjnc +bVnlBJqnk7ZfcmChrFRXuOINJ9gzTvb0HWQhdl3W5qWy/NyrmQVXbxbGe6uP +3eFxgvnciG2hUSx0aAnec+5/jtCvd6krv5CF0e7njPaQ9nD4RN71ncUs5Pvy +7LlHhj3MFj9wHyFZSL9r4JYSaQ8iRN/cxnIW8o+Il8hY2IMZv6zM4zoWusom +hiyfsoNH3fluXT0s/Gj3d5mOrh2YClWqBfWx0Ev5y/NjDDvoM34+KzHAwgnF +HVOlK+1guvp7nNNbFo5qdewOHLIFtZsbir4Ns7CPVJ9siLGFR/1bgxJHWZip +WlQZ7WsLpmv2g8Y4C5cnzCbts7UFj9gT/wTOUPWlfAcFNVuYrjuXKT7PQvUg +xlJlcVuI/nnFtfonC3mqDNh6S2xBeHOBquMfFpZ9Strk8v0AZB+rnllcZGGr +1JHY9J4D8H8EdHLk + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06696896869956358}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06696896869956358}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994254160262691*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"0b346fb7-422e-4243-a03d-603bb42b4f6c"] +}, Open ]], Cell[CellGroupData[{ @@ -13810,26 +14760,30 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], - ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -13851,66 +14805,72 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[225]:=",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], + "In[142]:=",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5794624625701512`*^-174\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 225, 201, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333512859148*^9}, - CellLabel-> - "During evaluation of \ -In[225]:=",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.303016475329449`*^-178\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ + "\"\\!\\(\\*FractionBox[\\\"1.140173688604462`*^-165\\\", \ +RowBox[{\\\"161198658118785115956678\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"98\\\", \\\"\[RightSkeleton]\\\"}], \\\"0000000000000000000000000\\\"}]]\\) \ is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 225, 202, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333512868147*^9}, +lost.\"", 2, 142, 73, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333512859148*^9, 3.994254160322927*^9}, CellLabel-> "During evaluation of \ -In[225]:=",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], +In[142]:=",ExpressionUUID->"b8fa2447-b5a8-4634-a6af-5ae61e70a4ee"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.3647813242367804`*^-181\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 225, 203, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335128761463`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1428963647729138`*^-168\\\", \ +RowBox[{\\\"505518991860510123640143\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"101\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 142, 74, + 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333512859148*^9, 3.994254160332623*^9}, CellLabel-> "During evaluation of \ -In[225]:=",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], +In[142]:=",ExpressionUUID->"4d561d3c-554a-4b75-9bb4-fb17c25eb0c9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1456255425521214`*^-171\\\", \ +RowBox[{\\\"164243120455479739170682\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"105\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 142, 75, + 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333512859148*^9, 3.994254160342215*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"17130ba8-f186-47bd-8a78-f24a1f51a64a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 225, 204, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333512885145*^9}, +during this calculation.\"", 2, 142, 76, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333512859148*^9, 3.9942541603507977`*^9}, CellLabel-> "During evaluation of \ -In[225]:=",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], +In[142]:=",ExpressionUUID->"aca6bf84-2287-4190-a2ec-8d2876704bc5"], -Cell[BoxData["9.779568499633264`"], "Output", - CellChangeTimes->{3.9913335200445786`*^9}, +Cell[BoxData["11.441857898760919`"], "Output", + CellChangeTimes->{3.9913335200445786`*^9, 3.9942542302869062`*^9}, CellLabel-> - "Out[225]=",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] + "Out[142]=",ExpressionUUID->"9f84eeec-bd27-4040-be6f-71e48aedc9b8"] }, Open ]], Cell[CellGroupData[{ @@ -13977,68 +14937,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918491385551624`*^9, - 3.991849142620474*^9}},ExpressionUUID->"f2835c98-560f-8e47-bdab-\ -0d2700971836"], + CellChangeTimes->{{3.9918491385551624`*^9, 3.991849142620474*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 226, 205, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335200775414`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.015768209740153`*^-214\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 143, 77, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335200775414`*^9, 3.994254230330954*^9}, CellLabel-> "During evaluation of \ -In[226]:=",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], +In[143]:=",ExpressionUUID->"fb4e6dc5-2bae-4f50-baf7-93572fd3673f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 226, - 206, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335200875454`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.1857575059259896`*^-219\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 143, 78, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335200775414`*^9, 3.994254230341468*^9}, CellLabel-> "During evaluation of \ -In[226]:=",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], +In[143]:=",ExpressionUUID->"0cd54359-72a2-4883-94d1-00700dd0d293"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 226, - 207, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335200945435`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.493097201818946`*^-224\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 143, 79, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335200775414`*^9, 3.9942542303506937`*^9}, CellLabel-> "During evaluation of \ -In[226]:=",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], +In[143]:=",ExpressionUUID->"90fb291e-0081-4acb-a092-a1f2c1a1fac9"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 226, 208, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335201035423`*^9}, +during this calculation.\"", 2, 143, 80, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335200775414`*^9, 3.994254230360374*^9}, CellLabel-> "During evaluation of \ -In[226]:=",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], +In[143]:=",ExpressionUUID->"8462547d-ca9f-4f52-a8c7-d17a0c25e9ae"], -Cell[BoxData["0.7348275136088338`"], "Output", - CellChangeTimes->{3.9913335271231823`*^9}, +Cell[BoxData["0.5271017182123071`"], "Output", + CellChangeTimes->{3.9913335271231823`*^9, 3.9942542397113953`*^9}, CellLabel-> - "Out[226]=",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] + "Out[143]=",ExpressionUUID->"a458e671-2a91-46cc-adba-4b1779640e86"] }, Open ]], Cell[CellGroupData[{ @@ -14059,8 +15023,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -14105,68 +15068,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849146408966*^9, - 3.9918491485488663`*^9}},ExpressionUUID->"ca837916-250f-4d4e-8368-\ -5a08f479e656"], + CellChangeTimes->{{3.991849146408966*^9, 3.9918491485488663`*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 227, 209, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335271591835`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.015768209740153`*^-214\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 144, 81, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335271591835`*^9, 3.994254239764166*^9}, CellLabel-> "During evaluation of \ -In[227]:=",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], +In[144]:=",ExpressionUUID->"1a15f40f-7aa4-4657-baf1-b1761b877e9a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 227, - 210, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335271681843`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.1857575059259896`*^-219\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 144, 82, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335271591835`*^9, 3.994254239775124*^9}, CellLabel-> "During evaluation of \ -In[227]:=",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], +In[144]:=",ExpressionUUID->"d4a29d28-1dac-4b85-ba74-f9c934273b81"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 227, - 211, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333527176182*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.493097201818946`*^-224\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 144, 83, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335271591835`*^9, 3.9942542397833147`*^9}, CellLabel-> "During evaluation of \ -In[227]:=",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], +In[144]:=",ExpressionUUID->"46cab44c-e87e-4371-a209-be9dfd577cf7"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 227, 212, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333527184183*^9}, +during this calculation.\"", 2, 144, 84, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335271591835`*^9, 3.99425423979144*^9}, CellLabel-> "During evaluation of \ -In[227]:=",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], +In[144]:=",ExpressionUUID->"e0c9029a-bf16-4efe-a1e7-5a8983c82579"], -Cell[BoxData["5.221864211842707`"], "Output", - CellChangeTimes->{3.9913335331581306`*^9}, +Cell[BoxData["35.20640853620276`"], "Output", + CellChangeTimes->{3.9913335331581306`*^9, 3.994254248663289*^9}, CellLabel-> - "Out[227]=",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] + "Out[144]=",ExpressionUUID->"f899f6c6-2dd7-4b3d-b578-39e1d83822a5"] }, Open ]], Cell[CellGroupData[{ @@ -14187,8 +15154,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -14233,68 +15199,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918491518098984`*^9, - 3.9918491543107758`*^9}},ExpressionUUID->"b579991f-985b-234a-94aa-\ -ed18c097f8c0"], + CellChangeTimes->{{3.9918491518098984`*^9, 3.9918491543107758`*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 228, 213, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335331923027`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.015768209740153`*^-214\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 145, 85, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335331923027`*^9, 3.994254248711238*^9}, CellLabel-> "During evaluation of \ -In[228]:=",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], +In[145]:=",ExpressionUUID->"434b0c56-4d08-4de4-859a-415b2c28153f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 228, - 214, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333533202278*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.1857575059259896`*^-219\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 145, 86, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335331923027`*^9, 3.9942542487207603`*^9}, CellLabel-> "During evaluation of \ -In[228]:=",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], +In[145]:=",ExpressionUUID->"34b3279e-194c-4b43-9560-9dd9c07837ac"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 228, - 215, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335332102795`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.493097201818946`*^-224\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 145, 87, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335331923027`*^9, 3.994254248729545*^9}, CellLabel-> "During evaluation of \ -In[228]:=",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], +In[145]:=",ExpressionUUID->"ba6ede82-9ab1-45f9-b169-3ec2fa670882"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 228, 216, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333533218281*^9}, +during this calculation.\"", 2, 145, 88, 31387618025806839705, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335331923027`*^9, 3.994254248739006*^9}, CellLabel-> "During evaluation of \ -In[228]:=",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], +In[145]:=",ExpressionUUID->"ee06d2ba-1858-4de3-87e1-ffa0e44f0c31"], -Cell[BoxData["15.545902834190647`"], "Output", - CellChangeTimes->{3.9913335366055527`*^9}, +Cell[BoxData["6.4576024722493965`"], "Output", + CellChangeTimes->{3.9913335366055527`*^9, 3.9942542550407343`*^9}, CellLabel-> - "Out[228]=",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] + "Out[145]=",ExpressionUUID->"a43e570c-c4ea-4dd8-80bd-44cfb9e8fdf2"] }, Open ]], Cell[CellGroupData[{ @@ -14303,23 +15273,25 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918491594691143`*^9, - 3.9918491632611027`*^9}},ExpressionUUID->"afb7855c-8700-d444-926c-\ -6d96abe14e67"], - -Cell[BoxData["0.08155763943441016`"], "Output", - CellChangeTimes->{3.9913335366395893`*^9}, + CellChangeTimes->{{3.9918491594691143`*^9, 3.9918491632611027`*^9}}, CellLabel-> - "Out[229]=",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] + "In[146]:=",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], + +Cell[BoxData["0.03495810774207898`"], "Output", + CellChangeTimes->{3.9913335366395893`*^9, 3.994254255083144*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"379f93cf-4345-46d3-9a94-d7e277f5ac49"] }, Open ]], Cell[BoxData[ RowBox[{"NotebookSave", "[", "]"}]], "Input", CellChangeTimes->{{3.9940825466139717`*^9, 3.994082556581811*^9}}, - CellLabel->"In[1]:=",ExpressionUUID->"c0cc8245-14d5-45aa-a33d-f814f47e8678"] + CellLabel-> + "In[147]:=",ExpressionUUID->"c0cc8245-14d5-45aa-a33d-f814f47e8678"] }, -WindowSize->{714, 876}, -WindowMargins->{{-3, Automatic}, {3, Automatic}}, +Evaluator->"kernel 2", +WindowSize->{714, 170.25}, +WindowMargins->{{Automatic, 3}, {Automatic, 191.25}}, CellContext->Notebook, Magnification:>1.5 Inherited, FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", @@ -14338,621 +15310,639 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 305, 6, 99, "Input",ExpressionUUID->"46ee9baf-ea38-4cdd-b8d2-6697866c6380"], -Cell[884, 30, 278, 5, 62, "Output",ExpressionUUID->"df56cd66-dc52-488f-a7e2-222800609c30"] +Cell[576, 22, 300, 5, 55, "Input",ExpressionUUID->"46ee9baf-ea38-4cdd-b8d2-6697866c6380"], +Cell[879, 29, 299, 5, 62, "Output",ExpressionUUID->"7c6d31a3-aef3-446e-b058-8b87069b95ad"] }, Open ]], Cell[CellGroupData[{ -Cell[1199, 40, 253, 5, 55, "Input",ExpressionUUID->"37e66f91-f187-4f59-b4a8-68f043f59aad"], -Cell[1455, 47, 275, 5, 62, "Output",ExpressionUUID->"80289892-ad7a-4dda-9db0-5d8fd6fd36c1"] +Cell[1215, 39, 248, 4, 55, "Input",ExpressionUUID->"37e66f91-f187-4f59-b4a8-68f043f59aad"], +Cell[1466, 45, 295, 5, 62, "Output",ExpressionUUID->"6146afe2-a264-4a9f-bb04-5293e504484d"] }, Open ]], Cell[CellGroupData[{ -Cell[1767, 57, 231, 5, 55, "Input",ExpressionUUID->"66487090-f3d0-45cc-8f44-1b72ce709401"], -Cell[2001, 64, 278, 5, 62, "Output",ExpressionUUID->"13b33187-561d-453c-85bf-2150480479a5"] +Cell[1798, 55, 226, 4, 55, "Input",ExpressionUUID->"66487090-f3d0-45cc-8f44-1b72ce709401"], +Cell[2027, 61, 299, 5, 62, "Output",ExpressionUUID->"cefcb43a-df0d-46d8-b7a1-8d76be3d20de"] }, Open ]], Cell[CellGroupData[{ -Cell[2316, 74, 180, 4, 55, "Input",ExpressionUUID->"1f84ddca-d27e-4c21-96b3-9e46c8babde5"], -Cell[2499, 80, 276, 5, 62, "Output",ExpressionUUID->"f56080e6-6be5-4a3d-b5a2-336475d5a07b"] +Cell[2363, 71, 175, 3, 55, "Input",ExpressionUUID->"1f84ddca-d27e-4c21-96b3-9e46c8babde5"], +Cell[2541, 76, 297, 5, 62, "Output",ExpressionUUID->"e35ff867-62f7-4e21-a3af-c4f170c22a45"] }, Open ]], Cell[CellGroupData[{ -Cell[2812, 90, 262, 8, 81, "Input",ExpressionUUID->"b024573c-0436-4fef-9078-b2f1f93edb5d"], -Cell[3077, 100, 279, 5, 62, "Output",ExpressionUUID->"a660b1ad-54ea-4a28-b59b-6c0b305309e7"] +Cell[2875, 86, 257, 7, 81, "Input",ExpressionUUID->"b024573c-0436-4fef-9078-b2f1f93edb5d"], +Cell[3135, 95, 300, 5, 62, "Output",ExpressionUUID->"b1c24273-3133-4438-94d6-051897cb1a2d"] }, Open ]], Cell[CellGroupData[{ -Cell[3393, 110, 136, 3, 55, "Input",ExpressionUUID->"ff07b2d7-60f7-4b14-8455-33dcc579fa48"], -Cell[3532, 115, 280, 5, 62, "Output",ExpressionUUID->"528b833e-8779-486a-9378-d5459997c832"] +Cell[3472, 105, 131, 2, 55, "Input",ExpressionUUID->"ff07b2d7-60f7-4b14-8455-33dcc579fa48"], +Cell[3606, 109, 303, 5, 62, "Output",ExpressionUUID->"710875e0-bf3c-4af8-b055-ebc0122a716f"] }, Open ]], Cell[CellGroupData[{ -Cell[3849, 125, 281, 7, 55, "Input",ExpressionUUID->"d7eebc84-1507-4b94-aeb0-06ba1a7fe2af"], -Cell[4133, 134, 292, 5, 62, "Output",ExpressionUUID->"4b57dd02-8a7a-44f5-8ce9-89033fbea820"] +Cell[3946, 119, 276, 6, 55, "Input",ExpressionUUID->"d7eebc84-1507-4b94-aeb0-06ba1a7fe2af"], +Cell[4225, 127, 313, 5, 62, "Output",ExpressionUUID->"0a20a5e7-f3cf-4a23-a16c-35d86a236ce4"] }, Open ]], Cell[CellGroupData[{ -Cell[4462, 144, 262, 8, 55, "Input",ExpressionUUID->"5bba16fc-7492-444a-8c47-d0fef0e9e724"], -Cell[4727, 154, 280, 5, 62, "Output",ExpressionUUID->"6e178369-8370-45c7-bfdf-7b5d6ca8aa48"] +Cell[4575, 137, 257, 7, 55, "Input",ExpressionUUID->"5bba16fc-7492-444a-8c47-d0fef0e9e724"], +Cell[4835, 146, 300, 5, 62, "Output",ExpressionUUID->"b3867591-909f-4574-b2cf-78eaae4215d1"] }, Open ]], Cell[CellGroupData[{ -Cell[5044, 164, 331, 7, 55, "Input",ExpressionUUID->"f5ec54d2-0635-437c-8011-be47e7aaa732"], -Cell[5378, 173, 260, 5, 62, "Output",ExpressionUUID->"ad273ec8-234e-45cc-825c-983eaeddaf50"] +Cell[5172, 156, 326, 6, 55, "Input",ExpressionUUID->"f5ec54d2-0635-437c-8011-be47e7aaa732"], +Cell[5501, 164, 279, 4, 62, "Output",ExpressionUUID->"a456e39a-5c9c-4497-bd4b-7c9502e50cbe"] }, Open ]], Cell[CellGroupData[{ -Cell[5675, 183, 229, 5, 55, "Input",ExpressionUUID->"97c238e9-73d4-4a7e-b299-f9076851a055"], -Cell[5907, 190, 260, 5, 62, "Output",ExpressionUUID->"4e786fe9-6e71-4124-8dd7-0b9e0be89510"] +Cell[5817, 173, 225, 4, 55, "Input",ExpressionUUID->"97c238e9-73d4-4a7e-b299-f9076851a055"], +Cell[6045, 179, 278, 4, 62, "Output",ExpressionUUID->"a39ea077-2d60-4683-845b-409b0380b605"] }, Open ]], Cell[CellGroupData[{ -Cell[6204, 200, 133, 3, 55, "Input",ExpressionUUID->"341b1781-3c4d-4fab-9834-3fa9294df147"], -Cell[6340, 205, 276, 5, 62, "Output",ExpressionUUID->"08d7eff9-1330-47c5-9b66-42679ccfe862"] +Cell[6360, 188, 129, 2, 55, "Input",ExpressionUUID->"341b1781-3c4d-4fab-9834-3fa9294df147"], +Cell[6492, 192, 300, 5, 62, "Output",ExpressionUUID->"0b97c715-d96f-4dee-903f-f945d721552f"] }, Open ]], Cell[CellGroupData[{ -Cell[6653, 215, 133, 3, 55, "Input",ExpressionUUID->"ee4af430-f24b-40e7-8410-6ff671c99c26"], -Cell[6789, 220, 278, 5, 62, "Output",ExpressionUUID->"fc90407e-40a6-4f53-8642-55423744de78"] +Cell[6829, 202, 129, 2, 55, "Input",ExpressionUUID->"ee4af430-f24b-40e7-8410-6ff671c99c26"], +Cell[6961, 206, 300, 5, 62, "Output",ExpressionUUID->"01d2f41f-b2a3-4188-ae79-2b99df0dd7b8"] }, Open ]], Cell[CellGroupData[{ -Cell[7104, 230, 561, 20, 148, "Input",ExpressionUUID->"da9439a2-f2d1-45a8-aed2-4190ad60d48d"], -Cell[7668, 252, 296, 5, 62, "Output",ExpressionUUID->"43b3c043-cc77-4c18-9594-2ea9e11f530c"] +Cell[7298, 216, 557, 19, 148, "Input",ExpressionUUID->"da9439a2-f2d1-45a8-aed2-4190ad60d48d"], +Cell[7858, 237, 318, 5, 62, "Output",ExpressionUUID->"9802d7dd-1963-4f71-9447-0367d36ea25d"] }, Open ]], Cell[CellGroupData[{ -Cell[8001, 262, 561, 20, 148, "Input",ExpressionUUID->"f68c0082-03f1-4227-af6e-881d491ef838"], -Cell[8565, 284, 292, 5, 62, "Output",ExpressionUUID->"adb8d0d7-df23-4f23-8552-c65056c1d528"] +Cell[8213, 247, 557, 19, 148, "Input",ExpressionUUID->"f68c0082-03f1-4227-af6e-881d491ef838"], +Cell[8773, 268, 316, 5, 62, "Output",ExpressionUUID->"3f541f1a-5605-418e-ac9a-09a465cd9b80"] }, Open ]], Cell[CellGroupData[{ -Cell[8894, 294, 1592, 51, 639, "Input",ExpressionUUID->"ac163cda-e1c1-4ff2-9d93-f7846cecb903"], -Cell[10489, 347, 292, 5, 62, "Output",ExpressionUUID->"5976bcbe-cfd0-4eb4-89f8-dd787c639744"] +Cell[9126, 278, 1588, 50, 639, "Input",ExpressionUUID->"ac163cda-e1c1-4ff2-9d93-f7846cecb903"], +Cell[10717, 330, 314, 5, 62, "Output",ExpressionUUID->"7c58441d-e776-4d5c-8d65-59e38d2ee72b"] }, Open ]], Cell[CellGroupData[{ -Cell[10818, 357, 1426, 47, 561, "Input",ExpressionUUID->"58ce9701-481d-4806-942d-ceabd604b5a4"], -Cell[12247, 406, 308, 6, 62, "Output",ExpressionUUID->"2be0b447-5e01-47ea-b7fe-6436648450ad"] +Cell[11068, 340, 1422, 46, 561, "Input",ExpressionUUID->"58ce9701-481d-4806-942d-ceabd604b5a4"], +Cell[12493, 388, 332, 6, 62, "Output",ExpressionUUID->"01653b4d-2a3d-4d5e-9365-659b4b7c243d"] }, Open ]], Cell[CellGroupData[{ -Cell[12592, 417, 1426, 47, 561, "Input",ExpressionUUID->"60ec0657-420d-4193-b80a-8c10a90b449e"], -Cell[14021, 466, 312, 6, 62, "Output",ExpressionUUID->"f67510b9-cf52-4561-8ace-0072dfc2631b"] +Cell[12862, 399, 1422, 46, 561, "Input",ExpressionUUID->"60ec0657-420d-4193-b80a-8c10a90b449e"], +Cell[14287, 447, 334, 6, 62, "Output",ExpressionUUID->"7b5ac5d1-a7ef-4bce-90fb-390b3d316cab"] }, Open ]], Cell[CellGroupData[{ -Cell[14370, 477, 1592, 51, 639, "Input",ExpressionUUID->"6fe94587-552b-4a80-b06b-b7b8c7d2d37a"], -Cell[15965, 530, 288, 5, 62, "Output",ExpressionUUID->"6edcd110-ea30-4836-ac18-549cc719ad4a"] +Cell[14658, 458, 1588, 50, 639, "Input",ExpressionUUID->"6fe94587-552b-4a80-b06b-b7b8c7d2d37a"], +Cell[16249, 510, 310, 5, 62, "Output",ExpressionUUID->"4f1ed146-72a7-4a6a-9262-fa545eab8c89"] }, Open ]], Cell[CellGroupData[{ -Cell[16290, 540, 135, 3, 55, "Input",ExpressionUUID->"54a67b2e-154c-4864-a645-9c792d6d55d0"], -Cell[16428, 545, 277, 5, 62, "Output",ExpressionUUID->"fff2c29b-f3cb-4044-a513-bd745a9be60e"] +Cell[16596, 520, 131, 2, 55, "Input",ExpressionUUID->"54a67b2e-154c-4864-a645-9c792d6d55d0"], +Cell[16730, 524, 301, 5, 62, "Output",ExpressionUUID->"85028614-4f71-4e56-9e63-54bc4045b72d"] }, Open ]], Cell[CellGroupData[{ -Cell[16742, 555, 137, 3, 55, "Input",ExpressionUUID->"2f513acc-5c81-4d84-8006-bfc6b6b68105"], -Cell[16882, 560, 282, 5, 62, "Output",ExpressionUUID->"33b81d31-e158-440a-8768-657a31575826"] +Cell[17068, 534, 133, 2, 55, "Input",ExpressionUUID->"2f513acc-5c81-4d84-8006-bfc6b6b68105"], +Cell[17204, 538, 304, 5, 62, "Output",ExpressionUUID->"31adcbbb-b999-4a6c-bdfe-fc37ad447506"] }, Open ]], Cell[CellGroupData[{ -Cell[17201, 570, 254, 5, 55, "Input",ExpressionUUID->"8341a2c8-1bd2-4e26-bf07-4be012293a6c"], -Cell[17458, 577, 280, 5, 62, "Output",ExpressionUUID->"8b193aee-7e4a-467d-b7df-22091dddf8b4"] +Cell[17545, 548, 250, 4, 55, "Input",ExpressionUUID->"8341a2c8-1bd2-4e26-bf07-4be012293a6c"], +Cell[17798, 554, 302, 5, 62, "Output",ExpressionUUID->"c02057c9-5616-4c55-bd92-9646a99b764b"] }, Open ]], Cell[CellGroupData[{ -Cell[17775, 587, 223, 5, 55, "Input",ExpressionUUID->"4c658e0e-3d02-4e4d-bf06-55837f481290"], -Cell[18001, 594, 293, 6, 62, "Output",ExpressionUUID->"79ce8ec0-9529-45c8-b716-39154dc32772"] +Cell[18137, 564, 219, 4, 55, "Input",ExpressionUUID->"4c658e0e-3d02-4e4d-bf06-55837f481290"], +Cell[18359, 570, 317, 6, 62, "Output",ExpressionUUID->"fd137846-d6b8-493e-8d66-2952a666da4a"] }, Open ]], Cell[CellGroupData[{ -Cell[18331, 605, 138, 3, 55, "Input",ExpressionUUID->"0401ee42-b9d5-4435-95f3-6329a31df7f2"], -Cell[18472, 610, 280, 5, 62, "Output",ExpressionUUID->"bc4ae10b-97f4-4f7d-8ad1-96650b9b5e44"] +Cell[18713, 581, 134, 2, 55, "Input",ExpressionUUID->"0401ee42-b9d5-4435-95f3-6329a31df7f2"], +Cell[18850, 585, 302, 5, 62, "Output",ExpressionUUID->"028623d8-556b-49b1-96fe-9fe8bd1bcf5a"] }, Open ]], Cell[CellGroupData[{ -Cell[18789, 620, 353, 6, 55, "Input",ExpressionUUID->"be9d00c9-0554-4293-a4d1-51d3cd6850d4"], -Cell[19145, 628, 253, 5, 62, "Output",ExpressionUUID->"03af3daa-a42e-4867-984b-aea10f183605"] +Cell[19189, 595, 349, 5, 55, "Input",ExpressionUUID->"be9d00c9-0554-4293-a4d1-51d3cd6850d4"], +Cell[19541, 602, 271, 4, 62, "Output",ExpressionUUID->"2f3bfa98-0e63-4491-a8e5-1fa1799c9516"] }, Open ]], Cell[CellGroupData[{ -Cell[19435, 638, 254, 6, 55, "Input",ExpressionUUID->"8860ca16-13f9-415e-8f31-fcafc37a00d5"], -Cell[19692, 646, 275, 5, 62, "Output",ExpressionUUID->"95cbaa16-e7c2-4da0-bd6b-d02533f16603"] +Cell[19849, 611, 250, 5, 55, "Input",ExpressionUUID->"8860ca16-13f9-415e-8f31-fcafc37a00d5"], +Cell[20102, 618, 296, 5, 62, "Output",ExpressionUUID->"3dfbbcad-a6ba-436a-baae-815cdf33e026"] }, Open ]], Cell[CellGroupData[{ -Cell[20004, 656, 223, 5, 55, "Input",ExpressionUUID->"39a929b0-c2db-44a8-a971-430f57fa7c6d"], -Cell[20230, 663, 275, 5, 62, "Output",ExpressionUUID->"d9f8ca63-e98a-4bbd-87d1-b341c5291d88"] +Cell[20435, 628, 219, 4, 55, "Input",ExpressionUUID->"39a929b0-c2db-44a8-a971-430f57fa7c6d"], +Cell[20657, 634, 297, 5, 62, "Output",ExpressionUUID->"eb1a8917-75ac-4bdf-ac59-b5907e217192"] }, Open ]], Cell[CellGroupData[{ -Cell[20542, 673, 354, 11, 81, "Input",ExpressionUUID->"d7a5d73b-2b59-407a-8051-5d9d16656c7a"], -Cell[20899, 686, 295, 5, 62, "Output",ExpressionUUID->"1abd978d-22fd-477a-9d5c-63c2be3334a8"] +Cell[20991, 644, 350, 10, 81, "Input",ExpressionUUID->"d7a5d73b-2b59-407a-8051-5d9d16656c7a"], +Cell[21344, 656, 317, 5, 62, "Output",ExpressionUUID->"293dbd94-f394-491f-b3a3-4800a100ddfe"] }, Open ]], Cell[CellGroupData[{ -Cell[21231, 696, 354, 11, 81, "Input",ExpressionUUID->"17018113-577e-47d8-a7af-9b0c2d31300d"], -Cell[21588, 709, 310, 6, 62, "Output",ExpressionUUID->"a0176ae0-0612-423c-913a-09e6d59b7e7a"] +Cell[21698, 666, 350, 10, 81, "Input",ExpressionUUID->"17018113-577e-47d8-a7af-9b0c2d31300d"], +Cell[22051, 678, 332, 6, 62, "Output",ExpressionUUID->"d88123f8-ce9b-4f45-9730-f22b07e95fe1"] }, Open ]], Cell[CellGroupData[{ -Cell[21935, 720, 998, 27, 488, "Input",ExpressionUUID->"2446f182-7cd4-43d4-ad6e-32e05dadb042"], -Cell[22936, 749, 294, 5, 62, "Output",ExpressionUUID->"76a28c02-4b29-4207-8eed-188b7aaa9c7c"] +Cell[22420, 689, 994, 26, 488, "Input",ExpressionUUID->"2446f182-7cd4-43d4-ad6e-32e05dadb042"], +Cell[23417, 717, 316, 5, 62, "Output",ExpressionUUID->"300bd504-7d43-40c5-ae6e-5de629579985"] }, Open ]], Cell[CellGroupData[{ -Cell[23267, 759, 203, 4, 55, "Input",ExpressionUUID->"8127b2ee-382a-4abf-a064-b74a76aabc24"], -Cell[23473, 765, 276, 5, 62, "Output",ExpressionUUID->"0b4654ae-a7f4-4d6c-be8c-4f4d72225713"] +Cell[23770, 727, 199, 3, 55, "Input",ExpressionUUID->"8127b2ee-382a-4abf-a064-b74a76aabc24"], +Cell[23972, 732, 298, 5, 62, "Output",ExpressionUUID->"28d16ddf-7b9c-4bc7-bd2b-88a9cded3152"] }, Open ]], Cell[CellGroupData[{ -Cell[23786, 775, 332, 6, 55, "Input",ExpressionUUID->"de983083-5236-41af-87ee-cb92112ec7ed"], -Cell[24121, 783, 262, 5, 62, "Output",ExpressionUUID->"bb261691-73f1-4d8b-9a07-9f8b7038484c"] +Cell[24307, 742, 328, 5, 55, "Input",ExpressionUUID->"de983083-5236-41af-87ee-cb92112ec7ed"], +Cell[24638, 749, 280, 4, 62, "Output",ExpressionUUID->"898ffb6b-205e-435e-80e7-0bdc132af616"] }, Open ]], -Cell[24398, 791, 177, 3, 55, "Input",ExpressionUUID->"c164eff1-4a6e-4e0f-96b4-50747e3c9aa4"], +Cell[24933, 756, 173, 2, 109, "Input",ExpressionUUID->"c164eff1-4a6e-4e0f-96b4-50747e3c9aa4"], Cell[CellGroupData[{ -Cell[24600, 798, 332, 6, 55, "Input",ExpressionUUID->"593cb70e-8547-4c0c-82b1-ae66acf94cab"], -Cell[24935, 806, 255, 5, 62, "Output",ExpressionUUID->"6a1ae5f3-dd75-4986-b6e3-c16d4415b47c"] +Cell[25131, 762, 328, 5, 55, "Input",ExpressionUUID->"593cb70e-8547-4c0c-82b1-ae66acf94cab"], +Cell[25462, 769, 273, 4, 62, "Output",ExpressionUUID->"abaea188-8939-4ef5-9e53-feaf12d7a4fc"] }, Open ]], -Cell[25205, 814, 177, 3, 55, "Input",ExpressionUUID->"117c190d-fb54-4f07-9373-18e88054d2a2"], +Cell[25750, 776, 173, 2, 109, "Input",ExpressionUUID->"117c190d-fb54-4f07-9373-18e88054d2a2"], Cell[CellGroupData[{ -Cell[25407, 821, 332, 6, 55, "Input",ExpressionUUID->"b5eaa0a8-22e9-48c7-a113-1562d7bf655f"], -Cell[25742, 829, 253, 5, 62, "Output",ExpressionUUID->"ad7d7bbc-0e78-49b5-b1f0-7353ce16922a"] +Cell[25948, 782, 328, 5, 55, "Input",ExpressionUUID->"b5eaa0a8-22e9-48c7-a113-1562d7bf655f"], +Cell[26279, 789, 273, 4, 62, "Output",ExpressionUUID->"24259011-74a6-42e2-9bec-60f6f72c2f4f"] }, Open ]], -Cell[26010, 837, 177, 3, 55, "Input",ExpressionUUID->"ba67e9a2-b20e-4129-a3a9-d47cd96e2fe8"], +Cell[26567, 796, 173, 2, 109, "Input",ExpressionUUID->"ba67e9a2-b20e-4129-a3a9-d47cd96e2fe8"], Cell[CellGroupData[{ -Cell[26212, 844, 356, 6, 55, "Input",ExpressionUUID->"9bfaf618-816c-4ce6-b0d7-cc5be285b598"], -Cell[26571, 852, 251, 5, 62, "Output",ExpressionUUID->"0a372bca-0c4a-4cbd-984b-9a047d8b2d3f"] +Cell[26765, 802, 352, 5, 55, "Input",ExpressionUUID->"9bfaf618-816c-4ce6-b0d7-cc5be285b598"], +Cell[27120, 809, 269, 4, 62, "Output",ExpressionUUID->"9ad0afb9-b414-420d-918d-82facb52c635"] }, Open ]], -Cell[26837, 860, 175, 3, 55, "Input",ExpressionUUID->"3b391916-83c1-4822-8db6-6d087142d483"], +Cell[27404, 816, 171, 2, 109, "Input",ExpressionUUID->"3b391916-83c1-4822-8db6-6d087142d483"], Cell[CellGroupData[{ -Cell[27037, 867, 304, 6, 55, "Input",ExpressionUUID->"e5ff2d12-564a-4e06-a9af-82867595a7fc"], -Cell[27344, 875, 258, 5, 62, "Output",ExpressionUUID->"ce20665e-0d17-4596-8b5a-ea8de4b3dc5b"] +Cell[27600, 822, 300, 5, 55, "Input",ExpressionUUID->"e5ff2d12-564a-4e06-a9af-82867595a7fc"], +Cell[27903, 829, 276, 4, 62, "Output",ExpressionUUID->"457e1187-e364-429c-a387-accc263a0027"] }, Open ]], -Cell[27617, 883, 175, 3, 55, "Input",ExpressionUUID->"cee6ce0a-2c7a-41a3-a9c3-ca400d88247e"], +Cell[28194, 836, 171, 2, 109, "Input",ExpressionUUID->"cee6ce0a-2c7a-41a3-a9c3-ca400d88247e"], Cell[CellGroupData[{ -Cell[27817, 890, 310, 6, 55, "Input",ExpressionUUID->"437ae41f-a8e2-40d0-b72f-06a6954e0db7"], -Cell[28130, 898, 258, 5, 62, "Output",ExpressionUUID->"f359c36e-4f1a-47ff-8a1f-7ca8dfdb72de"] +Cell[28390, 842, 306, 5, 55, "Input",ExpressionUUID->"437ae41f-a8e2-40d0-b72f-06a6954e0db7"], +Cell[28699, 849, 276, 4, 62, "Output",ExpressionUUID->"d32687a8-dd12-4baa-9b3c-c83263dbef91"] }, Open ]], -Cell[28403, 906, 177, 3, 55, "Input",ExpressionUUID->"e308565d-68e5-4fd7-a842-22ecc7f68d40"], +Cell[28990, 856, 173, 2, 109, "Input",ExpressionUUID->"e308565d-68e5-4fd7-a842-22ecc7f68d40"], Cell[CellGroupData[{ -Cell[28605, 913, 310, 6, 55, "Input",ExpressionUUID->"00627439-4a18-4f7a-8faa-b888aceb263f"], -Cell[28918, 921, 259, 5, 62, "Output",ExpressionUUID->"c237c864-5525-4bea-bac2-43c2d712c99d"] +Cell[29188, 862, 306, 5, 55, "Input",ExpressionUUID->"00627439-4a18-4f7a-8faa-b888aceb263f"], +Cell[29497, 869, 277, 4, 62, "Output",ExpressionUUID->"8bd8f2e2-2cad-4fd1-88fd-2f166a83a148"] }, Open ]], -Cell[29192, 929, 176, 3, 55, "Input",ExpressionUUID->"49286e54-260b-4511-b13e-44ef0fd1186d"], +Cell[29789, 876, 172, 2, 109, "Input",ExpressionUUID->"49286e54-260b-4511-b13e-44ef0fd1186d"], Cell[CellGroupData[{ -Cell[29393, 936, 282, 5, 55, "Input",ExpressionUUID->"18a6f425-c577-4036-886c-93340e3eb7d7"], -Cell[29678, 943, 256, 5, 62, "Output",ExpressionUUID->"845798e1-f7dc-408d-adf4-08a2a7d14c59"] +Cell[29986, 882, 278, 4, 55, "Input",ExpressionUUID->"18a6f425-c577-4036-886c-93340e3eb7d7"], +Cell[30267, 888, 274, 4, 62, "Output",ExpressionUUID->"a8141dfa-ecd0-43d6-9304-7f7fc0a64a4e"] }, Open ]], -Cell[29949, 951, 179, 3, 55, "Input",ExpressionUUID->"a0c8fde8-b575-42d2-8b39-ef7141a4db7f"], +Cell[30556, 895, 175, 2, 109, "Input",ExpressionUUID->"a0c8fde8-b575-42d2-8b39-ef7141a4db7f"], Cell[CellGroupData[{ -Cell[30153, 958, 19813, 486, 7166, "Input",ExpressionUUID->"47aa838b-a52b-4efd-862e-f0bd51c69cbf"], -Cell[49969, 1446, 295, 5, 62, "Output",ExpressionUUID->"d7b67e4e-d0d4-41f0-9b75-4cd8c4c6a944"] +Cell[30756, 901, 19809, 485, 7166, "Input",ExpressionUUID->"47aa838b-a52b-4efd-862e-f0bd51c69cbf"], +Cell[50568, 1388, 317, 5, 62, "Output",ExpressionUUID->"b622b387-b1c5-4382-8871-7b18574db46e"] }, Open ]], Cell[CellGroupData[{ -Cell[50301, 1456, 19752, 490, 7205, "Input",ExpressionUUID->"234f4524-0def-4ff5-bea8-480a5b7c9661"], -Cell[70056, 1948, 294, 5, 62, "Output",ExpressionUUID->"31eb9017-7100-46de-bbc1-07cd8d2dd124"] +Cell[50922, 1398, 19748, 489, 7205, "Input",ExpressionUUID->"234f4524-0def-4ff5-bea8-480a5b7c9661"], +Cell[70673, 1889, 316, 5, 62, "Output",ExpressionUUID->"5924ef8e-f987-4cbf-8570-4b94c205092d"] }, Open ]], Cell[CellGroupData[{ -Cell[70387, 1958, 19752, 484, 7204, "Input",ExpressionUUID->"47c18f6b-3b32-4b94-bfe5-9ff6556ee0e1"], -Cell[90142, 2444, 305, 6, 62, "Output",ExpressionUUID->"35921106-03a3-4c73-951f-c70ff8094557"] +Cell[71026, 1899, 19748, 483, 7204, "Input",ExpressionUUID->"47c18f6b-3b32-4b94-bfe5-9ff6556ee0e1"], +Cell[90777, 2384, 325, 6, 62, "Output",ExpressionUUID->"28962ec5-9fb9-4d91-b882-b01e82ba4f47"] }, Open ]], Cell[CellGroupData[{ -Cell[90484, 2455, 22538, 554, 8281, "Input",ExpressionUUID->"4eb9645d-d6fe-45a3-8de9-b5c23cc07269"], -Cell[113025, 3011, 311, 6, 62, "Output",ExpressionUUID->"d2c7fb2b-a0b9-4d15-a6ac-adde1fc297e4"] +Cell[91139, 2395, 22534, 553, 8281, "Input",ExpressionUUID->"4eb9645d-d6fe-45a3-8de9-b5c23cc07269"], +Cell[113676, 2950, 333, 6, 62, "Output",ExpressionUUID->"8fb3c8c3-b895-4d4e-b357-886e02c30a04"] }, Open ]], Cell[CellGroupData[{ -Cell[113373, 3022, 22539, 554, 8281, "Input",ExpressionUUID->"f0be3295-346c-4258-9c55-daf5fdf477c4"], -Cell[135915, 3578, 310, 6, 62, "Output",ExpressionUUID->"674d2fa6-6b87-4ec9-b49a-5d3b74bd4e3a"] +Cell[114046, 2961, 22535, 553, 8281, "Input",ExpressionUUID->"f0be3295-346c-4258-9c55-daf5fdf477c4"], +Cell[136584, 3516, 331, 6, 62, "Output",ExpressionUUID->"0cbb4fcc-82c3-4a92-86d1-fb6730b68071"] }, Open ]], Cell[CellGroupData[{ -Cell[136262, 3589, 25495, 627, 9401, "Input",ExpressionUUID->"3f2f2d2d-48a0-4d8d-a000-9b730dd74a56"], -Cell[161760, 4218, 315, 6, 62, "Output",ExpressionUUID->"b54527dd-b76e-465a-bc10-bdce5827f4d4"] +Cell[136952, 3527, 25491, 626, 9401, "Input",ExpressionUUID->"3f2f2d2d-48a0-4d8d-a000-9b730dd74a56"], +Cell[162446, 4155, 337, 6, 62, "Output",ExpressionUUID->"09c80c70-acc5-462e-a2cb-47a1fc455c0e"] }, Open ]], Cell[CellGroupData[{ -Cell[162112, 4229, 134, 3, 55, "Input",ExpressionUUID->"30776b29-6c07-4adf-9310-f7e6db2b3278"], -Cell[162249, 4234, 273, 5, 62, "Output",ExpressionUUID->"71f13eb1-ce13-4e70-9769-7819cd3942ff"] +Cell[162820, 4166, 130, 2, 55, "Input",ExpressionUUID->"30776b29-6c07-4adf-9310-f7e6db2b3278"], +Cell[162953, 4170, 295, 5, 62, "Output",ExpressionUUID->"8da6f07f-091f-4b2b-afb5-bb1a3e3015c8"] }, Open ]], Cell[CellGroupData[{ -Cell[162559, 4244, 134, 3, 55, "Input",ExpressionUUID->"1dbb6e9f-e397-4d26-a577-32961d6f4256"], -Cell[162696, 4249, 275, 5, 62, "Output",ExpressionUUID->"7b97e034-d207-4315-923e-b524c2e07739"] +Cell[163285, 4180, 130, 2, 55, "Input",ExpressionUUID->"1dbb6e9f-e397-4d26-a577-32961d6f4256"], +Cell[163418, 4184, 297, 5, 62, "Output",ExpressionUUID->"0ad31506-a4e7-4e9b-9539-fa2e9cd25d1d"] }, Open ]], Cell[CellGroupData[{ -Cell[163008, 4259, 1148, 40, 628, "Input",ExpressionUUID->"c7c4a410-54e6-4538-9085-92cacdc46841"], -Cell[164159, 4301, 295, 5, 62, "Output",ExpressionUUID->"c4dbdb89-4923-42dc-9c35-cb1fa47580a8"] +Cell[163752, 4194, 1144, 39, 628, "Input",ExpressionUUID->"c7c4a410-54e6-4538-9085-92cacdc46841"], +Cell[164899, 4235, 319, 5, 62, "Output",ExpressionUUID->"40175019-0e54-48f3-bf71-1b066f91e888"] }, Open ]], Cell[CellGroupData[{ -Cell[164491, 4311, 1045, 36, 625, "Input",ExpressionUUID->"ad215961-7d84-4562-ad89-4f5edd191601"], -Cell[165539, 4349, 308, 6, 62, "Output",ExpressionUUID->"074514b1-9dfa-4b7a-9634-371e6999d5e8"] +Cell[165255, 4245, 1041, 35, 625, "Input",ExpressionUUID->"ad215961-7d84-4562-ad89-4f5edd191601"], +Cell[166299, 4282, 330, 6, 62, "Output",ExpressionUUID->"7cc35e95-1f1f-4166-8310-ce9dfd231a4c"] }, Open ]], Cell[CellGroupData[{ -Cell[165884, 4360, 1148, 40, 628, "Input",ExpressionUUID->"d4a9ce26-a31e-45fb-9327-c3c276da9451"], -Cell[167035, 4402, 290, 5, 62, "Output",ExpressionUUID->"608c2e85-8f10-4b3f-958e-41d00cf6084e"] +Cell[166666, 4293, 1144, 39, 628, "Input",ExpressionUUID->"d4a9ce26-a31e-45fb-9327-c3c276da9451"], +Cell[167813, 4334, 312, 5, 62, "Output",ExpressionUUID->"d0de5268-1502-4c28-b65b-265d9cf55c66"] }, Open ]], Cell[CellGroupData[{ -Cell[167362, 4412, 112, 2, 55, "Input",ExpressionUUID->"df7fd3c4-8909-4036-af2f-eba46922c214"], -Cell[167477, 4416, 298, 5, 62, "Output",ExpressionUUID->"d90a4236-559c-4f29-a298-c5a608e5fd30"] +Cell[168162, 4344, 108, 1, 55, "Input",ExpressionUUID->"df7fd3c4-8909-4036-af2f-eba46922c214"], +Cell[168273, 4347, 320, 5, 62, "Output",ExpressionUUID->"e4acce24-d0fb-469e-98b9-17bafa78a853"] }, Open ]], Cell[CellGroupData[{ -Cell[167812, 4426, 112, 2, 55, "Input",ExpressionUUID->"c9ba7fa7-cf4a-43d6-94c7-a2d36119d56f"], -Cell[167927, 4430, 312, 6, 62, "Output",ExpressionUUID->"018585c4-8503-4248-bf8e-eeae350f2a3e"] +Cell[168630, 4357, 108, 1, 55, "Input",ExpressionUUID->"c9ba7fa7-cf4a-43d6-94c7-a2d36119d56f"], +Cell[168741, 4360, 333, 6, 62, "Output",ExpressionUUID->"ac4869ef-1316-4782-92bd-caf5f33290af"] }, Open ]], Cell[CellGroupData[{ -Cell[168276, 4441, 112, 2, 55, "Input",ExpressionUUID->"423057bf-e0e4-49f6-8fa6-a39a5435d404"], -Cell[168391, 4445, 316, 6, 62, "Output",ExpressionUUID->"5d32031b-9576-4b9e-8678-a0cb1eefa590"] +Cell[169111, 4371, 108, 1, 55, "Input",ExpressionUUID->"423057bf-e0e4-49f6-8fa6-a39a5435d404"], +Cell[169222, 4374, 338, 6, 62, "Output",ExpressionUUID->"76bae730-a26c-4f6b-a2a4-b96e281a629e"] }, Open ]], Cell[CellGroupData[{ -Cell[168744, 4456, 112, 2, 55, "Input",ExpressionUUID->"fe54588b-bd36-4428-a80c-48ca368ab726"], -Cell[168859, 4460, 289, 5, 62, "Output",ExpressionUUID->"250dd489-76b9-43a0-854b-eaba76272690"] +Cell[169597, 4385, 108, 1, 55, "Input",ExpressionUUID->"fe54588b-bd36-4428-a80c-48ca368ab726"], +Cell[169708, 4388, 311, 5, 62, "Output",ExpressionUUID->"68a6b6cd-2ed3-41ad-88d2-6c43aa25d253"] }, Open ]], Cell[CellGroupData[{ -Cell[169185, 4470, 111, 2, 55, "Input",ExpressionUUID->"df4f346b-67c7-4ef1-b26f-e00b950ea088"], -Cell[169299, 4474, 298, 5, 62, "Output",ExpressionUUID->"1d038270-697a-4e92-ac23-46117016a939"] +Cell[170056, 4398, 107, 1, 55, "Input",ExpressionUUID->"df4f346b-67c7-4ef1-b26f-e00b950ea088"], +Cell[170166, 4401, 320, 5, 62, "Output",ExpressionUUID->"301cc04e-79d7-40f1-9abd-5e2472af6e4d"] }, Open ]], Cell[CellGroupData[{ -Cell[169634, 4484, 111, 2, 55, "Input",ExpressionUUID->"47c86b3a-e683-4b32-bf88-88e029c0fd6f"], -Cell[169748, 4488, 297, 5, 62, "Output",ExpressionUUID->"819ef6b7-19fe-43f1-aa86-3e18e7243c5c"] +Cell[170523, 4411, 107, 1, 55, "Input",ExpressionUUID->"47c86b3a-e683-4b32-bf88-88e029c0fd6f"], +Cell[170633, 4414, 318, 5, 62, "Output",ExpressionUUID->"187e3485-e868-41ee-bcda-eedd5b74a318"] }, Open ]], Cell[CellGroupData[{ -Cell[170082, 4498, 501, 17, 182, "Input",ExpressionUUID->"077fc7c8-cb4a-4d7e-bfce-557bfb6b839e"], -Cell[170586, 4517, 311, 6, 62, "Output",ExpressionUUID->"5a1f1778-a566-4dbb-b263-ca94c5aee4d9"] +Cell[170988, 4424, 497, 16, 182, "Input",ExpressionUUID->"077fc7c8-cb4a-4d7e-bfce-557bfb6b839e"], +Cell[171488, 4442, 333, 6, 62, "Output",ExpressionUUID->"0c188ec0-4758-4d02-af46-274a0d007cae"] }, Open ]], Cell[CellGroupData[{ -Cell[170934, 4528, 501, 17, 182, "Input",ExpressionUUID->"7c5da625-d577-4bfc-8b40-b5d1e0106c80"], -Cell[171438, 4547, 308, 6, 62, "Output",ExpressionUUID->"94008485-336c-4c9e-b9df-c4e414acccc3"] +Cell[171858, 4453, 497, 16, 182, "Input",ExpressionUUID->"7c5da625-d577-4bfc-8b40-b5d1e0106c80"], +Cell[172358, 4471, 329, 6, 62, "Output",ExpressionUUID->"0db0a96c-5487-4f8f-98ad-2dad80687a64"] }, Open ]], Cell[CellGroupData[{ -Cell[171783, 4558, 1792, 61, 1100, "Input",ExpressionUUID->"4449b7a5-11bd-4513-9ae9-69d3171bd40e"], -Cell[173578, 4621, 291, 5, 62, "Output",ExpressionUUID->"92401a1d-768d-439c-bb5a-306f54e21608"] +Cell[172724, 4482, 1788, 60, 1100, "Input",ExpressionUUID->"4449b7a5-11bd-4513-9ae9-69d3171bd40e"], +Cell[174515, 4544, 313, 5, 62, "Output",ExpressionUUID->"760f5f04-65e1-44e0-933b-61269b3a7dc6"] }, Open ]], Cell[CellGroupData[{ -Cell[173906, 4631, 1105, 37, 667, "Input",ExpressionUUID->"f93161ec-a0b1-4878-b6e6-7d05eb0baf83"], -Cell[175014, 4670, 311, 6, 62, "Output",ExpressionUUID->"e0f59c46-d252-42f3-a5eb-11f282b531e5"] +Cell[174865, 4554, 1101, 36, 667, "Input",ExpressionUUID->"f93161ec-a0b1-4878-b6e6-7d05eb0baf83"], +Cell[175969, 4592, 333, 6, 62, "Output",ExpressionUUID->"3392d036-e5df-4935-bc63-4fcea27e7b2e"] }, Open ]], Cell[CellGroupData[{ -Cell[175362, 4681, 1822, 62, 1100, "Input",ExpressionUUID->"ea1a516b-645f-4cc6-8301-e5d46b198d3d"], -Cell[177187, 4745, 290, 5, 62, "Output",ExpressionUUID->"d7d1fcbd-0d2c-40af-9e1f-84de7aa4da87"] +Cell[176339, 4603, 1818, 61, 1100, "Input",ExpressionUUID->"ea1a516b-645f-4cc6-8301-e5d46b198d3d"], +Cell[178160, 4666, 312, 5, 62, "Output",ExpressionUUID->"6d536e58-583d-42ab-8010-b7911d4061ba"] }, Open ]], Cell[CellGroupData[{ -Cell[177514, 4755, 1714, 56, 758, "Input",ExpressionUUID->"db382234-9f26-450e-a668-667d07445395"], -Cell[179231, 4813, 294, 5, 62, "Output",ExpressionUUID->"ab840852-b91a-428e-b52e-bf4e042034d7"] +Cell[178509, 4676, 1710, 55, 758, "Input",ExpressionUUID->"db382234-9f26-450e-a668-667d07445395"], +Cell[180222, 4733, 316, 5, 62, "Output",ExpressionUUID->"dd59e3a7-d5f4-4c47-bd4a-9e9068383f1c"] }, Open ]], Cell[CellGroupData[{ -Cell[179562, 4823, 1635, 54, 451, "Input",ExpressionUUID->"53f34036-74f2-433b-a5f3-57b3019bc920"], -Cell[181200, 4879, 292, 5, 62, "Output",ExpressionUUID->"2ea0e49b-98d6-4a0c-8288-6e2fbe1cb463"] +Cell[180575, 4743, 1631, 53, 451, "Input",ExpressionUUID->"53f34036-74f2-433b-a5f3-57b3019bc920"], +Cell[182209, 4798, 314, 5, 62, "Output",ExpressionUUID->"833df01e-d026-4778-9673-abd42c98c48b"] }, Open ]], -Cell[181507, 4887, 188, 4, 55, "Input",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], -Cell[181698, 4893, 154, 3, 55, "Input",ExpressionUUID->"a5161e25-7247-124f-8601-7bcc4af89c62"], -Cell[181855, 4898, 208, 4, 55, "Input",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], -Cell[182066, 4904, 154, 3, 55, "Input",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], Cell[CellGroupData[{ -Cell[182245, 4911, 1301, 43, 318, "Input",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], -Cell[183549, 4956, 178, 3, 62, "Output",ExpressionUUID->"1658422d-0016-324a-9843-942f5453a9c7"] +Cell[182560, 4808, 207, 3, 55, "Input",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], +Cell[182770, 4813, 160, 2, 62, "Output",ExpressionUUID->"53014386-3305-48d6-ab7d-3b55c2666f1a"] }, Open ]], +Cell[182945, 4818, 173, 2, 109, "Input",ExpressionUUID->"a5161e25-7247-124f-8601-7bcc4af89c62"], Cell[CellGroupData[{ -Cell[183764, 4964, 910, 31, 224, "Input",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], -Cell[184677, 4997, 175, 3, 62, "Output",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] +Cell[183143, 4824, 230, 4, 55, "Input",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], +Cell[183376, 4830, 160, 2, 62, "Output",ExpressionUUID->"3d38baa3-e32c-44f2-b2a0-cb98fc7bbc0b"] }, Open ]], +Cell[183551, 4835, 173, 2, 109, "Input",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], Cell[CellGroupData[{ -Cell[184889, 5005, 887, 30, 259, "Input",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], -Cell[185779, 5037, 176, 3, 62, "Output",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] +Cell[183749, 4841, 1297, 42, 303, "Input",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], +Cell[185049, 4885, 198, 2, 62, "Output",ExpressionUUID->"a5e022c6-501a-45b4-962c-487decb441a2"] }, Open ]], Cell[CellGroupData[{ -Cell[185992, 5045, 558, 19, 100, "Input",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], -Cell[186553, 5066, 172, 3, 62, "Output",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] +Cell[185284, 4892, 929, 30, 259, "Input",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], +Cell[186216, 4924, 195, 2, 62, "Output",ExpressionUUID->"8b4a8b7e-cea8-4bec-acad-99b07b5cefe1"] }, Open ]], Cell[CellGroupData[{ -Cell[186762, 5074, 623, 21, 100, "Input",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], -Cell[187388, 5097, 172, 3, 62, "Output",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] +Cell[186448, 4931, 906, 29, 259, "Input",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], +Cell[187357, 4962, 194, 2, 62, "Output",ExpressionUUID->"45b72961-e582-4bb5-8672-71a0f680d49b"] }, Open ]], Cell[CellGroupData[{ -Cell[187597, 5105, 170, 5, 105, "Input",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], -Cell[187770, 5112, 172, 3, 62, "Output",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +Cell[187588, 4969, 554, 18, 100, "Input",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], +Cell[188145, 4989, 191, 2, 62, "Output",ExpressionUUID->"8c5897c5-87b9-47ce-92c2-7f06f8ab3e13"] }, Open ]], Cell[CellGroupData[{ -Cell[187979, 5120, 170, 5, 104, "Input",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], -Cell[188152, 5127, 171, 3, 62, "Output",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +Cell[188373, 4996, 619, 20, 100, "Input",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], +Cell[188995, 5018, 193, 2, 62, "Output",ExpressionUUID->"cd968f42-b68c-44f4-b56a-49f4251867ea"] }, Open ]], Cell[CellGroupData[{ -Cell[188360, 5135, 181, 5, 81, "Input",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], -Cell[188544, 5142, 170, 3, 62, "Output",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +Cell[189225, 5025, 166, 4, 105, "Input",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], +Cell[189394, 5031, 191, 2, 62, "Output",ExpressionUUID->"a7873a9a-7c10-4e90-b4b9-487705584a67"] }, Open ]], Cell[CellGroupData[{ -Cell[188751, 5150, 181, 5, 81, "Input",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], -Cell[188935, 5157, 172, 3, 62, "Output",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +Cell[189622, 5038, 166, 4, 104, "Input",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], +Cell[189791, 5044, 189, 2, 62, "Output",ExpressionUUID->"140a0b23-d784-439d-8ff8-d2d285e75e1e"] }, Open ]], Cell[CellGroupData[{ -Cell[189144, 5165, 6055, 185, 2152, "Input",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], -Cell[195202, 5352, 172, 3, 62, "Output",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +Cell[190017, 5051, 177, 4, 81, "Input",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], +Cell[190197, 5057, 187, 2, 62, "Output",ExpressionUUID->"ca7d3df5-12d8-41ef-9949-cb6f0982512a"] }, Open ]], Cell[CellGroupData[{ -Cell[195411, 5360, 368, 9, 79, "Input",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], -Cell[195782, 5371, 171, 3, 62, "Output",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +Cell[190421, 5064, 177, 4, 81, "Input",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], +Cell[190601, 5070, 190, 2, 62, "Output",ExpressionUUID->"cfd744e2-2289-4f0d-a6ec-4fefa6c0603a"] }, Open ]], Cell[CellGroupData[{ -Cell[195990, 5379, 6122, 187, 2152, "Input",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], -Cell[202115, 5568, 173, 3, 62, "Output",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +Cell[190828, 5077, 6051, 184, 2152, "Input",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], +Cell[196882, 5263, 193, 2, 62, "Output",ExpressionUUID->"9d7d5f57-0d75-4d7b-8746-ca577031d0df"] }, Open ]], Cell[CellGroupData[{ -Cell[202325, 5576, 368, 9, 79, "Input",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], -Cell[202696, 5587, 170, 3, 62, "Output",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +Cell[197112, 5270, 364, 8, 79, "Input",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], +Cell[197479, 5280, 191, 2, 62, "Output",ExpressionUUID->"ff9fcf2e-6894-4f75-b0e1-631e3a425689"] }, Open ]], Cell[CellGroupData[{ -Cell[202903, 5595, 2663, 88, 1067, "Input",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], -Cell[205569, 5685, 171, 3, 62, "Output",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +Cell[197707, 5287, 6118, 186, 2152, "Input",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], +Cell[203828, 5475, 191, 2, 62, "Output",ExpressionUUID->"49390200-9193-46e0-9667-597ade77500b"] }, Open ]], Cell[CellGroupData[{ -Cell[205777, 5693, 2603, 85, 967, "Input",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], -Cell[208383, 5780, 173, 3, 62, "Output",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +Cell[204056, 5482, 364, 8, 79, "Input",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], +Cell[204423, 5492, 189, 2, 62, "Output",ExpressionUUID->"1ea4af3c-2096-41d4-8d76-73a17fffa76e"] }, Open ]], Cell[CellGroupData[{ -Cell[208593, 5788, 3712, 118, 1454, "Input",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], -Cell[212308, 5908, 174, 3, 62, "Output",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] +Cell[204649, 5499, 2659, 87, 1067, "Input",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], +Cell[207311, 5588, 190, 2, 62, "Output",ExpressionUUID->"5367aa68-961c-4f73-8ee4-a448dd739228"] }, Open ]], -Cell[212497, 5914, 138, 3, 55, "Input",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], Cell[CellGroupData[{ -Cell[212660, 5921, 2054, 59, 409, "Input",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], -Cell[214717, 5982, 557, 12, 145, "Message",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], -Cell[215277, 5996, 559, 12, 109, "Message",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], -Cell[215839, 6010, 561, 12, 109, "Message",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], -Cell[216403, 6024, 458, 10, 40, "Message",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], -Cell[216864, 6036, 172, 3, 62, "Output",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +Cell[207538, 5595, 2599, 84, 967, "Input",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], +Cell[210140, 5681, 191, 2, 62, "Output",ExpressionUUID->"5660dd43-7f25-412d-ac16-7ba474ecd4e1"] }, Open ]], Cell[CellGroupData[{ -Cell[217073, 6044, 2052, 59, 731, "Input",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], -Cell[219128, 6105, 555, 12, 245, "Message",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], -Cell[219686, 6119, 559, 12, 235, "Message",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], -Cell[220248, 6133, 561, 12, 245, "Message",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], -Cell[220812, 6147, 458, 10, 81, "Message",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], -Cell[221273, 6159, 172, 3, 62, "Output",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +Cell[210368, 5688, 3708, 117, 1454, "Input",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], +Cell[214079, 5807, 192, 2, 62, "Output",ExpressionUUID->"8eb28060-f156-4842-b33e-5a2e1de84de5"] }, Open ]], +Cell[214286, 5812, 160, 3, 109, "Input",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], Cell[CellGroupData[{ -Cell[221482, 6167, 1936, 53, 506, "Input",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], -Cell[223421, 6222, 20458, 382, 327, "Output",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] +Cell[214471, 5819, 2209, 61, 731, "Input",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], +Cell[216683, 5882, 630, 13, 182, "Message",ExpressionUUID->"b2221fa5-7e25-4e5d-9151-fda8c42ec73c"], +Cell[217316, 5897, 629, 13, 182, "Message",ExpressionUUID->"e0d8cad5-4a0c-405b-8ebe-bdaa6de31179"], +Cell[217948, 5912, 630, 13, 182, "Message",ExpressionUUID->"373524bc-310b-4408-a2ad-1a6eb6288f6f"], +Cell[218581, 5927, 492, 11, 81, "Message",ExpressionUUID->"5f1da751-6bc1-48fc-8665-2869bfe0c71f"], +Cell[219076, 5940, 189, 2, 62, "Output",ExpressionUUID->"5ce3d232-6d8d-480a-9be8-72df61d9b677"] }, Open ]], Cell[CellGroupData[{ -Cell[243916, 6609, 2094, 60, 782, "Input",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], -Cell[246013, 6671, 500, 11, 182, "Message",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], -Cell[246516, 6684, 503, 11, 182, "Message",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], -Cell[247022, 6697, 506, 11, 182, "Message",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], -Cell[247531, 6710, 455, 10, 81, "Message",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], -Cell[247989, 6722, 57321, 985, 318, "Output",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] +Cell[219302, 5947, 2207, 61, 731, "Input",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], +Cell[221512, 6010, 630, 13, 182, "Message",ExpressionUUID->"f0358d18-b124-476d-97b6-16836afcffc3"], +Cell[222145, 6025, 629, 13, 182, "Message",ExpressionUUID->"c17d8d4a-06a5-4185-92ef-cd609574e0bf"], +Cell[222777, 6040, 628, 13, 182, "Message",ExpressionUUID->"2cc30891-1c40-4b93-9001-2131988c21a6"], +Cell[223408, 6055, 492, 11, 81, "Message",ExpressionUUID->"eb51ef05-90be-4559-a3f5-acefff56dbca"], +Cell[223903, 6068, 192, 2, 62, "Output",ExpressionUUID->"7013e498-db1e-48a8-a6d8-e049b72101ae"] }, Open ]], -Cell[305325, 7710, 2455, 69, 677, "Input",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], -Cell[307783, 7781, 209, 5, 55, "Input",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], Cell[CellGroupData[{ -Cell[308017, 7790, 217, 7, 90, "Input",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], -Cell[308237, 7799, 172, 3, 62, "Output",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +Cell[224132, 6075, 2047, 54, 506, "Input",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], +Cell[226182, 6131, 20442, 385, 327, "Output",ExpressionUUID->"c61e6157-5720-4694-abdc-cb9716a7572b"] }, Open ]], Cell[CellGroupData[{ -Cell[308446, 7807, 1816, 53, 684, "Input",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], -Cell[310265, 7862, 508, 11, 182, "Message",ExpressionUUID->"3a61d965-a130-7645-90c6-a5061b94ec40"], -Cell[310776, 7875, 508, 11, 182, "Message",ExpressionUUID->"c3c0d10c-aa86-9b43-bfa9-71bc099863f1"], -Cell[311287, 7888, 511, 11, 182, "Message",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], -Cell[311801, 7901, 456, 10, 71, "Message",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], -Cell[312260, 7913, 26000, 472, 322, "Output",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] +Cell[246661, 6521, 2249, 62, 782, "Input",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], +Cell[248913, 6585, 538, 12, 182, "Message",ExpressionUUID->"2ab5415e-7aa4-4ae0-8afa-c31b9ed9d8f1"], +Cell[249454, 6599, 542, 12, 182, "Message",ExpressionUUID->"ceb0a3e3-dbef-4828-b255-a434ba650a1a"], +Cell[249999, 6613, 544, 12, 182, "Message",ExpressionUUID->"fc72447b-2a6a-450f-baa8-0c0beb14e977"], +Cell[250546, 6627, 495, 11, 81, "Message",ExpressionUUID->"5f49c87d-1756-4b90-bac9-7e5eac8a7043"], +Cell[251044, 6640, 22251, 413, 318, "Output",ExpressionUUID->"66e7c35f-6207-412a-99df-60a89f19e1bb"] }, Open ]], Cell[CellGroupData[{ -Cell[338297, 8390, 1616, 48, 526, "Input",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], -Cell[339916, 8440, 584, 12, 235, "Message",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], -Cell[340503, 8454, 588, 12, 235, "Message",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], -Cell[341094, 8468, 592, 12, 267, "Message",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], -Cell[341689, 8482, 456, 10, 71, "Message",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], -Cell[342148, 8494, 169, 3, 62, "Output",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] +Cell[273332, 7058, 2477, 69, 677, "Input",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], +Cell[275812, 7129, 9492, 222, 326, "Output",ExpressionUUID->"70bd2aa5-1967-45b8-bb26-f2b0890f90f5"] }, Open ]], Cell[CellGroupData[{ -Cell[342354, 8502, 2249, 64, 731, "Input",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], -Cell[344606, 8568, 555, 12, 245, "Message",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], -Cell[345164, 8582, 557, 12, 235, "Message",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], -Cell[345724, 8596, 563, 12, 235, "Message",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], -Cell[346290, 8610, 458, 10, 71, "Message",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], -Cell[346751, 8622, 173, 3, 62, "Output",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] +Cell[285341, 7356, 228, 4, 55, "Input",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], +Cell[285572, 7362, 28609, 545, 318, "Output",ExpressionUUID->"843472c3-727d-409a-9e94-6d2f96ba41c0"] }, Open ]], Cell[CellGroupData[{ -Cell[346961, 8630, 2223, 64, 283, "Input",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], -Cell[349187, 8696, 555, 12, 145, "Message",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], -Cell[349745, 8710, 557, 12, 109, "Message",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], -Cell[350305, 8724, 561, 12, 109, "Message",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], -Cell[350869, 8738, 458, 10, 40, "Message",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], -Cell[351330, 8750, 173, 3, 62, "Output",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] +Cell[314218, 7912, 236, 6, 90, "Input",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], +Cell[314457, 7920, 191, 2, 62, "Output",ExpressionUUID->"d90eceff-6d1a-4cca-8ada-ba8263315d6d"] }, Open ]], Cell[CellGroupData[{ -Cell[351540, 8758, 2221, 64, 283, "Input",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], -Cell[353764, 8824, 557, 12, 145, "Message",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], -Cell[354324, 8838, 557, 12, 245, "Message",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], -Cell[354884, 8852, 563, 12, 245, "Message",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], -Cell[355450, 8866, 456, 10, 81, "Message",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], -Cell[355909, 8878, 173, 3, 62, "Output",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] +Cell[314685, 7927, 1970, 55, 684, "Input",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], +Cell[316658, 7984, 544, 12, 182, "Message",ExpressionUUID->"ea134136-7379-4a78-8d0a-b3beedb9b7b8"], +Cell[317205, 7998, 634, 14, 182, "Message",ExpressionUUID->"9be92465-0a4c-4fc7-8b8a-efad5ab83d55"], +Cell[317842, 8014, 635, 14, 182, "Message",ExpressionUUID->"17945219-7e77-456f-9077-726d0413effc"], +Cell[318480, 8030, 493, 11, 81, "Message",ExpressionUUID->"ff67d218-96f9-479c-b2db-e88ac87d1692"], +Cell[318976, 8043, 21844, 404, 328, "Output",ExpressionUUID->"670a73a0-c84c-499a-b376-1f8d8e9edafc"] }, Open ]], Cell[CellGroupData[{ -Cell[356119, 8886, 213, 6, 88, "Input",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], -Cell[356335, 8894, 171, 3, 62, "Output",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] +Cell[340857, 8452, 1750, 52, 526, "Input",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], +Cell[342610, 8506, 633, 13, 182, "Message",ExpressionUUID->"8e215057-3515-42bf-9a80-1e0ac659794a"], +Cell[343246, 8521, 635, 13, 182, "Message",ExpressionUUID->"2e94e76c-b7c9-4c6e-ba12-dbbb4db34227"], +Cell[343884, 8536, 636, 13, 182, "Message",ExpressionUUID->"20ce9531-2792-455b-8058-38678e6aebd3"], +Cell[344523, 8551, 495, 11, 81, "Message",ExpressionUUID->"bd15d206-bf8a-427b-9fcc-79033baaa46b"], +Cell[345021, 8564, 193, 3, 62, "Output",ExpressionUUID->"82a89ff7-85cb-4d90-b13d-dbf1f151d52e"] }, Open ]], -Cell[356521, 8900, 245, 5, 55, "Input",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], Cell[CellGroupData[{ -Cell[356791, 8909, 558, 19, 100, "Input",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], -Cell[357352, 8930, 172, 3, 62, "Output",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] +Cell[345251, 8572, 2272, 64, 731, "Input",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], +Cell[347526, 8638, 631, 13, 182, "Message",ExpressionUUID->"d9580d45-fc0f-45c8-a3e2-fa72f16d2f5b"], +Cell[348160, 8653, 632, 13, 182, "Message",ExpressionUUID->"f21b6339-2fa7-4560-9078-d0ea95c72aef"], +Cell[348795, 8668, 631, 13, 182, "Message",ExpressionUUID->"dc98fcaa-8794-4f04-889c-c1039dc22427"], +Cell[349429, 8683, 493, 11, 81, "Message",ExpressionUUID->"cac73a18-321b-4dcd-ac21-bf6bf25186cc"], +Cell[349925, 8696, 195, 3, 62, "Output",ExpressionUUID->"8ebb6a38-383e-4c91-a8d2-34d3d31f5c70"] }, Open ]], Cell[CellGroupData[{ -Cell[357561, 8938, 170, 5, 105, "Input",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], -Cell[357734, 8945, 173, 3, 62, "Output",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] +Cell[350157, 8704, 2235, 63, 692, "Input",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], +Cell[352395, 8769, 633, 13, 182, "Message",ExpressionUUID->"445f4324-f47c-4f9b-83c0-772440b6e46d"], +Cell[353031, 8784, 634, 13, 182, "Message",ExpressionUUID->"fe6fb6f4-c27e-4278-a6b1-d7c3e5b80e3c"], +Cell[353668, 8799, 631, 13, 182, "Message",ExpressionUUID->"4828f25b-b1a9-419d-a9dc-11377693c0b8"], +Cell[354302, 8814, 493, 11, 81, "Message",ExpressionUUID->"3d0b0eb0-deef-4a53-a646-6492472bad9b"], +Cell[354798, 8827, 195, 3, 62, "Output",ExpressionUUID->"3c24641d-af42-4a8f-9ec5-80b16901e87b"] }, Open ]], Cell[CellGroupData[{ -Cell[357944, 8953, 181, 5, 81, "Input",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], -Cell[358128, 8960, 173, 3, 62, "Output",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] +Cell[355030, 8835, 2233, 63, 692, "Input",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], +Cell[357266, 8900, 633, 13, 182, "Message",ExpressionUUID->"067b2b99-2c22-4f93-9c55-271d17c61f00"], +Cell[357902, 8915, 634, 13, 182, "Message",ExpressionUUID->"8887b464-e6c8-4d4a-89a4-0fca65c701b6"], +Cell[358539, 8930, 633, 13, 182, "Message",ExpressionUUID->"dc93013a-c6c7-4e2d-9063-6eb08e12916f"], +Cell[359175, 8945, 495, 11, 81, "Message",ExpressionUUID->"47d2463c-0ffb-4347-ac11-3a631212a8d6"], +Cell[359673, 8958, 195, 3, 62, "Output",ExpressionUUID->"f9f4a5d7-c3ac-4a45-a629-97afa86c7b71"] }, Open ]], Cell[CellGroupData[{ -Cell[358338, 8968, 6055, 185, 2152, "Input",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], -Cell[364396, 9155, 172, 3, 62, "Output",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] +Cell[359905, 8966, 236, 6, 88, "Input",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], +Cell[360144, 8974, 195, 3, 62, "Output",ExpressionUUID->"25e9f2c8-b9ae-4c3f-b1ce-87666f180840"] }, Open ]], +Cell[360354, 8980, 271, 6, 109, "Input",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], Cell[CellGroupData[{ -Cell[364605, 9163, 368, 9, 79, "Input",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], -Cell[364976, 9174, 170, 3, 62, "Output",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] +Cell[360650, 8990, 558, 19, 100, "Input",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], +Cell[361211, 9011, 193, 3, 62, "Output",ExpressionUUID->"d440e024-8d72-4e45-b7ca-6538341b1228"] }, Open ]], Cell[CellGroupData[{ -Cell[365183, 9182, 6122, 187, 2152, "Input",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], -Cell[371308, 9371, 175, 3, 62, "Output",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] +Cell[361441, 9019, 170, 5, 105, "Input",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], +Cell[361614, 9026, 194, 3, 62, "Output",ExpressionUUID->"56682dde-915d-4cef-954d-81a91075f90a"] }, Open ]], Cell[CellGroupData[{ -Cell[371520, 9379, 368, 9, 79, "Input",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], -Cell[371891, 9390, 172, 3, 62, "Output",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] +Cell[361845, 9034, 181, 5, 81, "Input",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], +Cell[362029, 9041, 195, 3, 62, "Output",ExpressionUUID->"80f591e1-cd3e-46b2-afea-824ee901a281"] }, Open ]], Cell[CellGroupData[{ -Cell[372100, 9398, 2663, 88, 1067, "Input",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], -Cell[374766, 9488, 173, 3, 62, "Output",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] +Cell[362261, 9049, 6055, 185, 2152, "Input",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], +Cell[368319, 9236, 195, 3, 62, "Output",ExpressionUUID->"53b903cd-7fcc-49a5-b896-23e768970ee1"] }, Open ]], Cell[CellGroupData[{ -Cell[374976, 9496, 2603, 85, 967, "Input",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], -Cell[377582, 9583, 171, 3, 62, "Output",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] +Cell[368551, 9244, 368, 9, 79, "Input",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], +Cell[368922, 9255, 193, 3, 62, "Output",ExpressionUUID->"50ccc7ba-e666-495f-bc49-11cad28463ab"] }, Open ]], Cell[CellGroupData[{ -Cell[377790, 9591, 3712, 118, 1454, "Input",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], -Cell[381505, 9711, 174, 3, 62, "Output",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] +Cell[369152, 9263, 6122, 187, 2152, "Input",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], +Cell[375277, 9452, 197, 3, 62, "Output",ExpressionUUID->"97da76e4-d087-4d36-8d3f-b91d3ec467ce"] }, Open ]], Cell[CellGroupData[{ -Cell[381716, 9719, 2052, 59, 731, "Input",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], -Cell[383771, 9780, 578, 12, 141, "Message",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], -Cell[384352, 9794, 583, 12, 141, "Message",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], -Cell[384938, 9808, 586, 12, 141, "Message",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], -Cell[385527, 9822, 456, 10, 40, "Message",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], -Cell[385986, 9834, 170, 3, 62, "Output",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] +Cell[375511, 9460, 368, 9, 79, "Input",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], +Cell[375882, 9471, 194, 3, 62, "Output",ExpressionUUID->"a2731960-75d4-4c58-9627-97c641384299"] }, Open ]], Cell[CellGroupData[{ -Cell[386193, 9842, 2054, 59, 409, "Input",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], -Cell[388250, 9903, 576, 12, 141, "Message",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], -Cell[388829, 9917, 581, 12, 141, "Message",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], -Cell[389413, 9931, 586, 12, 245, "Message",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], -Cell[390002, 9945, 458, 10, 81, "Message",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], -Cell[390463, 9957, 172, 3, 62, "Output",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] +Cell[376113, 9479, 2663, 88, 1067, "Input",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], +Cell[378779, 9569, 196, 3, 62, "Output",ExpressionUUID->"964742df-94dd-40c3-babc-2da06c6fd03c"] }, Open ]], Cell[CellGroupData[{ -Cell[390672, 9965, 2028, 55, 506, "Input",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], -Cell[392703, 10022, 20011, 378, 331, "Output",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] +Cell[379012, 9577, 2603, 85, 967, "Input",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], +Cell[381618, 9664, 193, 3, 62, "Output",ExpressionUUID->"97665a3f-c980-4c51-8b15-0a67a70591f3"] }, Open ]], Cell[CellGroupData[{ -Cell[412751, 10405, 2115, 60, 782, "Input",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], -Cell[414869, 10467, 501, 11, 109, "Message",ExpressionUUID->"abf9cb8a-fbbf-7a43-abcd-82efb32ab217"], -Cell[415373, 10480, 503, 11, 109, "Message",ExpressionUUID->"8fcd13e3-81e0-3446-8882-6e42ca5c0bd1"], -Cell[415879, 10493, 505, 11, 109, "Message",ExpressionUUID->"2c23ed60-41ee-5841-90ce-1d26cb02619d"], -Cell[416387, 10506, 456, 10, 40, "Message",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], -Cell[416846, 10518, 32548, 580, 319, "Output",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] +Cell[381848, 9672, 3712, 118, 1454, "Input",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], +Cell[385563, 9792, 195, 3, 62, "Output",ExpressionUUID->"77d5a5d6-beea-46ee-ada1-44214ee8163b"] }, Open ]], -Cell[449409, 11101, 209, 5, 55, "Input",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], Cell[CellGroupData[{ -Cell[449643, 11110, 1616, 48, 526, "Input",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], -Cell[451262, 11160, 596, 12, 276, "Message",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], -Cell[451861, 11174, 599, 12, 267, "Message",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], -Cell[452463, 11188, 605, 12, 266, "Message",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], -Cell[453071, 11202, 456, 10, 40, "Message",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], -Cell[453530, 11214, 170, 3, 62, "Output",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] +Cell[385795, 9800, 2211, 62, 731, "Input",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], +Cell[388009, 9864, 633, 13, 182, "Message",ExpressionUUID->"0009f3c8-829e-4e98-adeb-754648f70bb8"], +Cell[388645, 9879, 631, 13, 182, "Message",ExpressionUUID->"ab8ef3af-abca-445e-9ff4-8b00599f2949"], +Cell[389279, 9894, 634, 13, 182, "Message",ExpressionUUID->"e3ce1a38-bb42-463e-8466-2d59a3836ee7"], +Cell[389916, 9909, 493, 11, 81, "Message",ExpressionUUID->"bc72ed68-8cd0-4faa-9ebd-02d1cefde747"], +Cell[390412, 9922, 193, 3, 62, "Output",ExpressionUUID->"9cd894b1-dc78-44df-94bd-30db4309563f"] }, Open ]], Cell[CellGroupData[{ -Cell[453737, 11222, 2247, 64, 399, "Input",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], -Cell[455987, 11288, 580, 12, 141, "Message",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], -Cell[456570, 11302, 583, 12, 141, "Message",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], -Cell[457156, 11316, 584, 12, 141, "Message",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], -Cell[457743, 11330, 458, 10, 40, "Message",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], -Cell[458204, 11342, 170, 3, 62, "Output",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] +Cell[390642, 9930, 2213, 62, 731, "Input",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], +Cell[392858, 9994, 631, 13, 182, "Message",ExpressionUUID->"7442ef00-a588-404e-af2e-02da03f302fd"], +Cell[393492, 10009, 629, 13, 182, "Message",ExpressionUUID->"aaca2a3a-b3d7-4f38-8d26-be83085966dd"], +Cell[394124, 10024, 632, 13, 182, "Message",ExpressionUUID->"0f66b000-2046-453e-b7be-4f03533d7305"], +Cell[394759, 10039, 491, 11, 81, "Message",ExpressionUUID->"0159ef3d-36f3-4e71-b38e-cb2b09e09e06"], +Cell[395253, 10052, 196, 3, 62, "Output",ExpressionUUID->"85266473-c2c6-4291-8627-1f2dbe111096"] }, Open ]], Cell[CellGroupData[{ -Cell[458411, 11350, 2219, 64, 283, "Input",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], -Cell[460633, 11416, 580, 12, 141, "Message",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], -Cell[461216, 11430, 583, 12, 141, "Message",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], -Cell[461802, 11444, 586, 12, 141, "Message",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], -Cell[462391, 11458, 458, 10, 40, "Message",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], -Cell[462852, 11470, 171, 3, 62, "Output",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] +Cell[395486, 10060, 2051, 55, 506, "Input",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], +Cell[397540, 10117, 20277, 383, 332, "Output",ExpressionUUID->"0343e45e-10d5-44e1-b2a5-241ae6e04e42"] }, Open ]], Cell[CellGroupData[{ -Cell[463060, 11478, 2221, 64, 283, "Input",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], -Cell[465284, 11544, 580, 12, 245, "Message",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], -Cell[465867, 11558, 583, 12, 245, "Message",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], -Cell[466453, 11572, 584, 12, 245, "Message",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], -Cell[467040, 11586, 456, 10, 81, "Message",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], -Cell[467499, 11598, 170, 3, 62, "Output",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] +Cell[417854, 10505, 2274, 63, 782, "Input",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], +Cell[420131, 10570, 537, 12, 182, "Message",ExpressionUUID->"7044afce-ca67-4528-9b7d-4bfe4e5119db"], +Cell[420671, 10584, 541, 12, 182, "Message",ExpressionUUID->"1f8cb54f-aec4-41f4-8ae0-e9a2c93f45fb"], +Cell[421215, 10598, 543, 12, 182, "Message",ExpressionUUID->"c8dc7b90-b715-4c59-a30e-37207e451f4b"], +Cell[421761, 10612, 495, 11, 81, "Message",ExpressionUUID->"cbdfb06b-e0bf-4d80-9b92-0c29bc2eefb5"], +Cell[422259, 10625, 22102, 411, 323, "Output",ExpressionUUID->"4a867379-eca3-4773-a888-a3aa3a3e442b"] }, Open ]], Cell[CellGroupData[{ -Cell[467706, 11606, 213, 6, 88, "Input",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], -Cell[467922, 11614, 174, 3, 62, "Output",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] +Cell[444398, 11041, 232, 5, 55, "Input",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], +Cell[444633, 11048, 28462, 543, 323, "Output",ExpressionUUID->"c41d5882-ccef-45dc-898a-200e5ee3c613"] }, Open ]], -Cell[468111, 11620, 247, 5, 55, "Input",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], Cell[CellGroupData[{ -Cell[468383, 11629, 558, 19, 100, "Input",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], -Cell[468944, 11650, 173, 3, 62, "Output",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] +Cell[473132, 11596, 1750, 52, 526, "Input",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], +Cell[474885, 11650, 636, 14, 182, "Message",ExpressionUUID->"41c8bb1c-2a34-4bfc-963c-0122f8279907"], +Cell[475524, 11666, 636, 14, 182, "Message",ExpressionUUID->"b3f92445-b2d5-4939-8d36-41f93e4a8b0c"], +Cell[476163, 11682, 636, 14, 182, "Message",ExpressionUUID->"4f7fa6ca-78fc-4b44-bd4b-ee79297c59f2"], +Cell[476802, 11698, 495, 11, 81, "Message",ExpressionUUID->"dac0423d-95e3-46c0-b7a7-ff07f6a48d80"], +Cell[477300, 11711, 195, 3, 62, "Output",ExpressionUUID->"717df061-3802-46c3-abd1-5e3c3776be52"] }, Open ]], Cell[CellGroupData[{ -Cell[469154, 11658, 170, 5, 105, "Input",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], -Cell[469327, 11665, 173, 3, 62, "Output",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] +Cell[477532, 11719, 2270, 64, 731, "Input",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], +Cell[479805, 11785, 635, 13, 182, "Message",ExpressionUUID->"b67b4091-2e1d-4c21-9003-1c11dcb8c0f5"], +Cell[480443, 11800, 633, 13, 182, "Message",ExpressionUUID->"fdbfeec5-2695-4ed1-b910-f4909796a535"], +Cell[481079, 11815, 634, 13, 182, "Message",ExpressionUUID->"67d32937-eefb-4456-9afa-5f6636c334c3"], +Cell[481716, 11830, 495, 11, 81, "Message",ExpressionUUID->"a56a3855-0e87-4a6a-aa14-725a6000e012"], +Cell[482214, 11843, 194, 3, 62, "Output",ExpressionUUID->"5d81673d-ed78-4c4e-a055-2b8dd13aa877"] }, Open ]], Cell[CellGroupData[{ -Cell[469537, 11673, 181, 5, 81, "Input",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], -Cell[469721, 11680, 171, 3, 62, "Output",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] +Cell[482445, 11851, 2231, 63, 692, "Input",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], +Cell[484679, 11916, 633, 13, 182, "Message",ExpressionUUID->"b7336138-1be3-4544-8b95-200fc988a3a7"], +Cell[485315, 11931, 635, 13, 182, "Message",ExpressionUUID->"c3f92d26-1d41-4dbe-a2f8-77265a51eb20"], +Cell[485953, 11946, 634, 13, 182, "Message",ExpressionUUID->"a2e46a29-bbc8-47e8-931a-11367cc4c291"], +Cell[486590, 11961, 494, 11, 81, "Message",ExpressionUUID->"e0e85e75-d56a-4d74-b441-be897ee0d785"], +Cell[487087, 11974, 192, 3, 62, "Output",ExpressionUUID->"5117aa1a-35bf-4bbd-a57a-6c562ef0a5eb"] }, Open ]], Cell[CellGroupData[{ -Cell[469929, 11688, 6055, 185, 2152, "Input",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], -Cell[475987, 11875, 173, 3, 62, "Output",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] +Cell[487316, 11982, 2233, 63, 692, "Input",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], +Cell[489552, 12047, 635, 13, 182, "Message",ExpressionUUID->"068b2133-6533-46c4-aa94-cc5f16c8fc87"], +Cell[490190, 12062, 633, 13, 182, "Message",ExpressionUUID->"7168909c-1a56-4180-9c62-e68447986af4"], +Cell[490826, 12077, 636, 13, 182, "Message",ExpressionUUID->"165ce665-a623-4a65-8e2a-259260ca0440"], +Cell[491465, 12092, 495, 11, 81, "Message",ExpressionUUID->"04937824-4e84-42df-81fc-b2fba1eb331f"], +Cell[491963, 12105, 192, 3, 62, "Output",ExpressionUUID->"77e07b5c-59bd-4aed-88f5-91a09c50f725"] }, Open ]], Cell[CellGroupData[{ -Cell[476197, 11883, 368, 9, 79, "Input",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], -Cell[476568, 11894, 172, 3, 62, "Output",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] +Cell[492192, 12113, 236, 6, 88, "Input",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], +Cell[492431, 12121, 195, 3, 62, "Output",ExpressionUUID->"66392f6f-be93-4d2d-af64-b71f3aa95f30"] }, Open ]], +Cell[492641, 12127, 273, 6, 109, "Input",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], Cell[CellGroupData[{ -Cell[476777, 11902, 6122, 187, 2152, "Input",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], -Cell[482902, 12091, 175, 3, 62, "Output",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] +Cell[492939, 12137, 558, 19, 100, "Input",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], +Cell[493500, 12158, 195, 3, 62, "Output",ExpressionUUID->"0dee023c-e70f-4b0c-8753-fa220d31bbbf"] }, Open ]], Cell[CellGroupData[{ -Cell[483114, 12099, 368, 9, 79, "Input",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], -Cell[483485, 12110, 171, 3, 62, "Output",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] +Cell[493732, 12166, 170, 5, 105, "Input",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], +Cell[493905, 12173, 195, 3, 62, "Output",ExpressionUUID->"ff4c3e4a-8110-4c5d-9092-41cbc3a015e4"] }, Open ]], Cell[CellGroupData[{ -Cell[483693, 12118, 2663, 88, 1067, "Input",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], -Cell[486359, 12208, 173, 3, 62, "Output",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] +Cell[494137, 12181, 181, 5, 81, "Input",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], +Cell[494321, 12188, 192, 3, 62, "Output",ExpressionUUID->"6d550707-8a6b-45b8-852a-fdff744ac241"] }, Open ]], Cell[CellGroupData[{ -Cell[486569, 12216, 2603, 85, 967, "Input",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], -Cell[489175, 12303, 171, 3, 62, "Output",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] +Cell[494550, 12196, 6055, 185, 2152, "Input",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], +Cell[500608, 12383, 196, 3, 62, "Output",ExpressionUUID->"d0bd2f83-2413-47f4-8b65-6faba96bdf84"] }, Open ]], Cell[CellGroupData[{ -Cell[489383, 12311, 3712, 118, 1454, "Input",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], -Cell[493098, 12431, 174, 3, 62, "Output",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] +Cell[500841, 12391, 368, 9, 79, "Input",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], +Cell[501212, 12402, 193, 3, 62, "Output",ExpressionUUID->"fdf7913f-9b6d-4321-92a8-339bcc723587"] }, Open ]], Cell[CellGroupData[{ -Cell[493309, 12439, 2054, 59, 731, "Input",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], -Cell[495366, 12500, 572, 12, 245, "Message",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], -Cell[495941, 12514, 573, 12, 245, "Message",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], -Cell[496517, 12528, 579, 12, 245, "Message",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], -Cell[497099, 12542, 456, 10, 81, "Message",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], -Cell[497558, 12554, 169, 3, 62, "Output",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] +Cell[501442, 12410, 6122, 187, 2152, "Input",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], +Cell[507567, 12599, 195, 3, 62, "Output",ExpressionUUID->"49677e84-12da-404b-b9d3-507c2c4e09af"] }, Open ]], Cell[CellGroupData[{ -Cell[497764, 12562, 2049, 58, 731, "Input",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], -Cell[499816, 12622, 570, 12, 245, "Message",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], -Cell[500389, 12636, 575, 12, 245, "Message",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], -Cell[500967, 12650, 579, 12, 245, "Message",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], -Cell[501549, 12664, 458, 10, 81, "Message",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], -Cell[502010, 12676, 171, 3, 62, "Output",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] +Cell[507799, 12607, 368, 9, 79, "Input",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], +Cell[508170, 12618, 194, 3, 62, "Output",ExpressionUUID->"00dd86cc-11a7-4903-a597-97914671aa25"] }, Open ]], Cell[CellGroupData[{ -Cell[502218, 12684, 2030, 55, 506, "Input",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], -Cell[504251, 12741, 20011, 378, 327, "Output",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] +Cell[508401, 12626, 2663, 88, 1067, "Input",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], +Cell[511067, 12716, 196, 3, 62, "Output",ExpressionUUID->"62613ff1-cf68-442b-a2c7-ccd587d8dd0e"] }, Open ]], Cell[CellGroupData[{ -Cell[524299, 13124, 2120, 60, 782, "Input",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], -Cell[526422, 13186, 501, 11, 182, "Message",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], -Cell[526926, 13199, 505, 11, 182, "Message",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], -Cell[527434, 13212, 506, 11, 182, "Message",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], -Cell[527943, 13225, 456, 10, 81, "Message",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], -Cell[528402, 13237, 31008, 556, 319, "Output",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] +Cell[511300, 12724, 2603, 85, 967, "Input",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], +Cell[513906, 12811, 193, 3, 62, "Output",ExpressionUUID->"6d9d265b-325e-42a0-a89c-ec580ab0e168"] }, Open ]], -Cell[559425, 13796, 209, 5, 55, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], Cell[CellGroupData[{ -Cell[559659, 13805, 1616, 48, 526, "Input",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], -Cell[561278, 13855, 593, 12, 276, "Message",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], -Cell[561874, 13869, 595, 12, 276, "Message",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], -Cell[562472, 13883, 602, 12, 276, "Message",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], -Cell[563077, 13897, 456, 10, 81, "Message",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], -Cell[563536, 13909, 172, 3, 62, "Output",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] +Cell[514136, 12819, 3712, 118, 1454, "Input",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], +Cell[517851, 12939, 196, 3, 62, "Output",ExpressionUUID->"b5ec88f0-fed0-43a5-a432-ee18c9430030"] }, Open ]], Cell[CellGroupData[{ -Cell[563745, 13917, 2249, 64, 731, "Input",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], -Cell[565997, 13983, 572, 12, 235, "Message",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], -Cell[566572, 13997, 575, 12, 141, "Message",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], -Cell[567150, 14011, 579, 12, 245, "Message",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], -Cell[567732, 14025, 458, 10, 81, "Message",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], -Cell[568193, 14037, 173, 3, 62, "Output",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] +Cell[518084, 12947, 2213, 62, 731, "Input",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], +Cell[520300, 13011, 635, 13, 182, "Message",ExpressionUUID->"73b4c169-f77b-46d2-bef4-4b4ae9e17abf"], +Cell[520938, 13026, 634, 13, 182, "Message",ExpressionUUID->"cc63561c-c815-4050-a633-482f7d405313"], +Cell[521575, 13041, 633, 13, 182, "Message",ExpressionUUID->"59c469db-98c6-42eb-a622-903ce46c47c9"], +Cell[522211, 13056, 495, 11, 81, "Message",ExpressionUUID->"8baa7482-b9d1-43d9-b653-f5049614e507"], +Cell[522709, 13069, 192, 3, 62, "Output",ExpressionUUID->"0a9dee66-8312-4fff-a85f-b121c133f2f6"] }, Open ]], Cell[CellGroupData[{ -Cell[568403, 14045, 2221, 64, 692, "Input",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], -Cell[570627, 14111, 572, 12, 245, "Message",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], -Cell[571202, 14125, 575, 12, 245, "Message",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], -Cell[571780, 14139, 577, 12, 245, "Message",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], -Cell[572360, 14153, 456, 10, 81, "Message",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], -Cell[572819, 14165, 172, 3, 62, "Output",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] +Cell[522938, 13077, 2210, 62, 731, "Input",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], +Cell[525151, 13141, 631, 13, 182, "Message",ExpressionUUID->"46efa097-f80a-439d-8ba5-6523b8ef0eb1"], +Cell[525785, 13156, 632, 13, 182, "Message",ExpressionUUID->"63bb1b87-207b-4dd0-85fe-ad56ca77d61d"], +Cell[526420, 13171, 633, 13, 182, "Message",ExpressionUUID->"36dcb36f-1fd6-4d33-bcae-07ca27237bc3"], +Cell[527056, 13186, 493, 11, 81, "Message",ExpressionUUID->"01589ed9-4733-4038-9508-0fed280778bc"], +Cell[527552, 13199, 195, 3, 62, "Output",ExpressionUUID->"b5dd2dac-f9c7-4671-94b7-791e8a3e49bd"] }, Open ]], Cell[CellGroupData[{ -Cell[573028, 14173, 2223, 64, 692, "Input",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], -Cell[575254, 14239, 572, 12, 245, "Message",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], -Cell[575829, 14253, 573, 12, 245, "Message",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], -Cell[576405, 14267, 579, 12, 245, "Message",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], -Cell[576987, 14281, 456, 10, 81, "Message",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], -Cell[577446, 14293, 173, 3, 62, "Output",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] +Cell[527784, 13207, 2053, 55, 506, "Input",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], +Cell[529840, 13264, 20335, 383, 327, "Output",ExpressionUUID->"b9044636-4361-49bf-80c8-f63f18c07987"] }, Open ]], Cell[CellGroupData[{ -Cell[577656, 14301, 215, 6, 88, "Input",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], -Cell[577874, 14309, 174, 3, 62, "Output",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] +Cell[550212, 13652, 2279, 63, 782, "Input",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], +Cell[552494, 13717, 533, 12, 182, "Message",ExpressionUUID->"950da0ea-1b56-44a7-aa04-5dab1938bee9"], +Cell[553030, 13731, 537, 12, 182, "Message",ExpressionUUID->"cf633fff-6e3a-4298-a99d-215ca9b007a1"], +Cell[553570, 13745, 540, 12, 182, "Message",ExpressionUUID->"2eb3a02f-f96b-4999-9a7a-02a90901a164"], +Cell[554113, 13759, 493, 11, 81, "Message",ExpressionUUID->"18f37339-75d2-4418-85ef-d1c93b5048e7"], +Cell[554609, 13772, 22484, 417, 326, "Output",ExpressionUUID->"a1ddb8d2-7166-4909-a99f-1e229dceee0e"] }, Open ]], -Cell[578063, 14315, 206, 3, 55, "Input",ExpressionUUID->"c0cc8245-14d5-45aa-a33d-f814f47e8678"] +Cell[CellGroupData[{ +Cell[577130, 14194, 232, 5, 55, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], +Cell[577365, 14201, 28844, 549, 326, "Output",ExpressionUUID->"0b346fb7-422e-4243-a03d-603bb42b4f6c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[606246, 14755, 1750, 52, 526, "Input",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], +Cell[607999, 14809, 631, 13, 182, "Message",ExpressionUUID->"b8fa2447-b5a8-4634-a6af-5ae61e70a4ee"], +Cell[608633, 14824, 637, 14, 182, "Message",ExpressionUUID->"4d561d3c-554a-4b75-9bb4-fb17c25eb0c9"], +Cell[609273, 14840, 637, 14, 182, "Message",ExpressionUUID->"17130ba8-f186-47bd-8a78-f24a1f51a64a"], +Cell[609913, 14856, 495, 11, 81, "Message",ExpressionUUID->"aca6bf84-2287-4190-a2ec-8d2876704bc5"], +Cell[610411, 14869, 197, 3, 62, "Output",ExpressionUUID->"9f84eeec-bd27-4040-be6f-71e48aedc9b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[610645, 14877, 2272, 64, 731, "Input",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], +Cell[612920, 14943, 633, 13, 182, "Message",ExpressionUUID->"fb4e6dc5-2bae-4f50-baf7-93572fd3673f"], +Cell[613556, 14958, 634, 13, 182, "Message",ExpressionUUID->"0cd54359-72a2-4883-94d1-00700dd0d293"], +Cell[614193, 14973, 635, 13, 182, "Message",ExpressionUUID->"90fb291e-0081-4acb-a092-a1f2c1a1fac9"], +Cell[614831, 14988, 495, 11, 81, "Message",ExpressionUUID->"8462547d-ca9f-4f52-a8c7-d17a0c25e9ae"], +Cell[615329, 15001, 197, 3, 62, "Output",ExpressionUUID->"a458e671-2a91-46cc-adba-4b1779640e86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[615563, 15009, 2233, 63, 692, "Input",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], +Cell[617799, 15074, 633, 13, 182, "Message",ExpressionUUID->"1a15f40f-7aa4-4657-baf1-b1761b877e9a"], +Cell[618435, 15089, 634, 13, 182, "Message",ExpressionUUID->"d4a29d28-1dac-4b85-ba74-f9c934273b81"], +Cell[619072, 15104, 635, 13, 182, "Message",ExpressionUUID->"46cab44c-e87e-4371-a209-be9dfd577cf7"], +Cell[619710, 15119, 494, 11, 81, "Message",ExpressionUUID->"e0c9029a-bf16-4efe-a1e7-5a8983c82579"], +Cell[620207, 15132, 194, 3, 62, "Output",ExpressionUUID->"f899f6c6-2dd7-4b3d-b578-39e1d83822a5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[620438, 15140, 2235, 63, 692, "Input",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], +Cell[622676, 15205, 633, 13, 182, "Message",ExpressionUUID->"434b0c56-4d08-4de4-859a-415b2c28153f"], +Cell[623312, 15220, 636, 13, 182, "Message",ExpressionUUID->"34b3279e-194c-4b43-9560-9dd9c07837ac"], +Cell[623951, 15235, 633, 13, 182, "Message",ExpressionUUID->"ba6ede82-9ab1-45f9-b169-3ec2fa670882"], +Cell[624587, 15250, 495, 11, 81, "Message",ExpressionUUID->"ee06d2ba-1858-4de3-87e1-ffa0e44f0c31"], +Cell[625085, 15263, 197, 3, 62, "Output",ExpressionUUID->"a43e570c-c4ea-4dd8-80bd-44cfb9e8fdf2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[625319, 15271, 238, 6, 88, "Input",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], +Cell[625560, 15279, 196, 3, 62, "Output",ExpressionUUID->"379f93cf-4345-46d3-9a94-d7e277f5ac49"] +}, Open ]], +Cell[625771, 15285, 211, 4, 109, "Input",ExpressionUUID->"c0cc8245-14d5-45aa-a33d-f814f47e8678"] } ] *) diff --git a/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_pr_Qw2.nb b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_pr_Qw2.nb index f8d8b2f..88710f6 100755 --- a/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_pr_Qw2.nb +++ b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_pr_Qw2.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 605849, 14693] -NotebookOptionsPosition[ 566984, 14072] -NotebookOutlinePosition[ 567395, 14089] -CellTagsIndexPosition[ 567352, 14086] +NotebookDataLength[ 665501, 15931] +NotebookOptionsPosition[ 624922, 15282] +NotebookOutlinePosition[ 625359, 15300] +CellTagsIndexPosition[ 625316, 15297] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -25,15 +25,14 @@ Cell[BoxData[ CellChangeTimes->{ 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, 3.9920650045886707`*^9, {3.9940727514461927`*^9, 3.994072775295883*^9}}, - CellLabel-> - "In[104]:=",ExpressionUUID->"32cdfcf5-6501-4fa3-a2ea-6f6c4c61aac9"], + CellLabel->"In[1]:=",ExpressionUUID->"32cdfcf5-6501-4fa3-a2ea-6f6c4c61aac9"], Cell[BoxData["1.6`"], "Output", CellChangeTimes->{ 3.991320420900818*^9, 3.99379974700918*^9, 3.993800338579624*^9, - 3.9938003856877937`*^9, {3.994072756527327*^9, 3.9940727765701942`*^9}}, - CellLabel-> - "Out[104]=",ExpressionUUID->"053f38e8-1460-4507-8bc0-346f96b751db"] + 3.9938003856877937`*^9, {3.994072756527327*^9, 3.9940727765701942`*^9}, + 3.994250049134211*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"74dd0ac0-7afa-4780-9b07-adb0954ba0bb"] }, Open ]], Cell[CellGroupData[{ @@ -42,15 +41,14 @@ Cell[BoxData[ RowBox[{"A", "=", "240"}]], "Input", CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { 3.993799082059058*^9, 3.9937990826790457`*^9}}, - CellLabel-> - "In[105]:=",ExpressionUUID->"fab0ec26-34de-46b2-903b-7c93449cf9cb"], + CellLabel->"In[2]:=",ExpressionUUID->"fab0ec26-34de-46b2-903b-7c93449cf9cb"], Cell[BoxData["240"], "Output", CellChangeTimes->{ 3.9913196497381973`*^9, 3.993799747282215*^9, 3.99380033885446*^9, - 3.993800385764146*^9, {3.994072756590721*^9, 3.994072776647262*^9}}, - CellLabel-> - "Out[105]=",ExpressionUUID->"296c475b-958e-42e1-859e-1c4c611cbcca"] + 3.993800385764146*^9, {3.994072756590721*^9, 3.994072776647262*^9}, + 3.9942500491821527`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"ac9170cf-10fb-4d60-8b62-4ba9050d7ca6"] }, Open ]], Cell[CellGroupData[{ @@ -59,15 +57,14 @@ Cell[BoxData[ RowBox[{"A1", "=", " ", "176"}]], "Input", CellChangeTimes->{ 3.991798961431202*^9, {3.993799246718399*^9, 3.993799247496731*^9}}, - CellLabel-> - "In[106]:=",ExpressionUUID->"2fe5a80b-3eb2-448c-98e6-2d9515f8843f"], + CellLabel->"In[3]:=",ExpressionUUID->"2fe5a80b-3eb2-448c-98e6-2d9515f8843f"], Cell[BoxData["176"], "Output", CellChangeTimes->{ 3.9913196497578354`*^9, 3.993799747300477*^9, 3.993800338871715*^9, - 3.993800385779578*^9, {3.994072756603456*^9, 3.9940727766610518`*^9}}, - CellLabel-> - "Out[106]=",ExpressionUUID->"035ee109-57f3-4c4f-9fbe-650476b8521e"] + 3.993800385779578*^9, {3.994072756603456*^9, 3.9940727766610518`*^9}, + 3.994250049188295*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"546ee3a0-d87b-4de0-9a38-7493f79e1247"] }, Open ]], Cell[CellGroupData[{ @@ -75,15 +72,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, - CellLabel-> - "In[107]:=",ExpressionUUID->"016208f3-4d07-4be7-8cb1-7778fd2d50d7"], + CellLabel->"In[4]:=",ExpressionUUID->"016208f3-4d07-4be7-8cb1-7778fd2d50d7"], Cell[BoxData["0.55`"], "Output", CellChangeTimes->{ 3.991319649777508*^9, 3.993799747316929*^9, 3.993800338888788*^9, - 3.993800385794606*^9, {3.994072756615819*^9, 3.994072776674831*^9}}, - CellLabel-> - "Out[107]=",ExpressionUUID->"1969b9cd-1848-47b0-b52e-4e04444205a5"] + 3.993800385794606*^9, {3.994072756615819*^9, 3.994072776674831*^9}, + 3.9942500491942253`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"4858a8c3-c5d2-4351-b24f-88f65cfd8051"] }, Open ]], Cell[CellGroupData[{ @@ -95,30 +91,28 @@ Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", - CellLabel-> - "In[108]:=",ExpressionUUID->"67456cb2-82d8-4bec-99f7-5234f56da8b2"], + CellLabel->"In[5]:=",ExpressionUUID->"67456cb2-82d8-4bec-99f7-5234f56da8b2"], Cell[BoxData["0.543`"], "Output", CellChangeTimes->{ 3.9913196497965145`*^9, 3.993799747333138*^9, 3.993800338906427*^9, - 3.993800385809697*^9, {3.994072756628705*^9, 3.994072776688608*^9}}, - CellLabel-> - "Out[108]=",ExpressionUUID->"e71aa819-0e5c-4dac-b05b-6bae467fa5c8"] + 3.993800385809697*^9, {3.994072756628705*^9, 3.994072776688608*^9}, + 3.9942500492005663`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"4ee8f77d-6202-4222-a121-33f627e94df6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", - CellLabel-> - "In[109]:=",ExpressionUUID->"e5e592a6-6b3c-40b5-b451-317de01086cb"], + CellLabel->"In[6]:=",ExpressionUUID->"e5e592a6-6b3c-40b5-b451-317de01086cb"], Cell[BoxData["0.17`"], "Output", CellChangeTimes->{ 3.9913196498144608`*^9, 3.9937997473490753`*^9, 3.993800338928018*^9, - 3.993800385813496*^9, {3.994072756641103*^9, 3.994072776693177*^9}}, - CellLabel-> - "Out[109]=",ExpressionUUID->"9d693dc6-24c6-40c0-8649-0194e0be109c"] + 3.993800385813496*^9, {3.994072756641103*^9, 3.994072776693177*^9}, + 3.994250049206676*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"cdf7b261-153d-4017-86b0-4841425aab35"] }, Open ]], Cell[CellGroupData[{ @@ -129,15 +123,14 @@ Cell[BoxData[ SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}]}]], "Input", CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, - CellLabel-> - "In[110]:=",ExpressionUUID->"7559727d-92a6-44bb-a652-46040a7e4513"], + CellLabel->"In[7]:=",ExpressionUUID->"7559727d-92a6-44bb-a652-46040a7e4513"], Cell[BoxData["6.5007312471204965`"], "Output", CellChangeTimes->{ 3.9913196498225155`*^9, 3.993799747366351*^9, 3.993800338948053*^9, - 3.993800385835421*^9, {3.994072756653392*^9, 3.994072776710863*^9}}, - CellLabel-> - "Out[110]=",ExpressionUUID->"783d7263-fae5-4b46-bef7-dd67c23f320f"] + 3.993800385835421*^9, {3.994072756653392*^9, 3.994072776710863*^9}, + 3.99425004921311*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"031a3ce7-5dbc-4115-ae4c-522adbc279de"] }, Open ]], Cell[CellGroupData[{ @@ -149,15 +142,14 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", - CellLabel-> - "In[111]:=",ExpressionUUID->"d8cda65f-d223-4ae2-abe5-cb266ea5b8f6"], + CellLabel->"In[8]:=",ExpressionUUID->"d8cda65f-d223-4ae2-abe5-cb266ea5b8f6"], Cell[BoxData["4.64`"], "Output", CellChangeTimes->{ 3.9913196498425236`*^9, 3.993799747384128*^9, 3.993800338968402*^9, - 3.993800385850627*^9, {3.9940727566658983`*^9, 3.994072776724451*^9}}, - CellLabel-> - "Out[111]=",ExpressionUUID->"1df66750-06b5-49b4-940d-c558dcdef32f"] + 3.993800385850627*^9, {3.9940727566658983`*^9, 3.994072776724451*^9}, + 3.994250049220385*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"816be306-9be6-4d61-ae3c-9e2fd0229dd3"] }, Open ]], Cell[CellGroupData[{ @@ -168,15 +160,13 @@ Cell[BoxData[ 3.991799283179735*^9, {3.9937993186432753`*^9, 3.993799326240513*^9}, { 3.993799364756247*^9, 3.993799370026516*^9}, {3.993799480203456*^9, 3.993799488443741*^9}}, - CellLabel-> - "In[112]:=",ExpressionUUID->"16453c2c-d523-4e43-83b7-f43d8b9e8f6b"], + CellLabel->"In[9]:=",ExpressionUUID->"16453c2c-d523-4e43-83b7-f43d8b9e8f6b"], Cell[BoxData["0.7654`"], "Output", CellChangeTimes->{ 3.9937997474107447`*^9, 3.993800338988703*^9, 3.9938003858649893`*^9, { - 3.994072756678184*^9, 3.994072776737771*^9}}, - CellLabel-> - "Out[112]=",ExpressionUUID->"a0cb594b-e1ae-4c61-bc79-6dc59ed27c08"] + 3.994072756678184*^9, 3.994072776737771*^9}, 3.994250049226347*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"67b18ffd-081e-4967-ab05-cac08735488f"] }, Open ]], Cell[CellGroupData[{ @@ -185,45 +175,41 @@ Cell[BoxData[ RowBox[{"b2", "=", "0.4513"}]], "Input", CellChangeTimes->{ 3.991799280663351*^9, {3.993799372069343*^9, 3.993799377027832*^9}}, - CellLabel-> - "In[113]:=",ExpressionUUID->"67fad4af-0930-43ab-8c83-fa76d0d347fa"], + CellLabel->"In[10]:=",ExpressionUUID->"67fad4af-0930-43ab-8c83-fa76d0d347fa"], Cell[BoxData["0.4513`"], "Output", CellChangeTimes->{ 3.993799747427882*^9, 3.993800339005568*^9, 3.993800385879345*^9, { - 3.9940727566903763`*^9, 3.9940727767497873`*^9}}, - CellLabel-> - "Out[113]=",ExpressionUUID->"c66499ec-660e-4a0f-bcee-7422ee861dac"] + 3.9940727566903763`*^9, 3.9940727767497873`*^9}, 3.9942500492323847`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"65dac505-14b1-454c-9e24-5514a8b6e703"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", - CellLabel-> - "In[114]:=",ExpressionUUID->"a9365375-98e4-46ca-b51d-b84d98f661c7"], + CellLabel->"In[11]:=",ExpressionUUID->"a9365375-98e4-46ca-b51d-b84d98f661c7"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498927155`*^9, 3.993799747452092*^9, 3.993800339022945*^9, - 3.993800385893304*^9, {3.994072756702078*^9, 3.9940727767611856`*^9}}, - CellLabel-> - "Out[114]=",ExpressionUUID->"7cda01a1-0bc4-4014-997c-c49bdc5db8c0"] + 3.993800385893304*^9, {3.994072756702078*^9, 3.9940727767611856`*^9}, + 3.994250049238476*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"7efc9887-e25f-40bf-b21f-f760ef63f9e1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", - CellLabel-> - "In[115]:=",ExpressionUUID->"8ace0032-5e58-435d-8d4d-3d2c068cca42"], + CellLabel->"In[12]:=",ExpressionUUID->"8ace0032-5e58-435d-8d4d-3d2c068cca42"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498996067`*^9, 3.993799747468101*^9, 3.993800339041868*^9, - 3.9938003859074306`*^9, {3.9940727567134666`*^9, 3.994072776772606*^9}}, - CellLabel-> - "Out[115]=",ExpressionUUID->"35138b60-0dd3-4343-a155-402c6a893aa2"] + 3.9938003859074306`*^9, {3.9940727567134666`*^9, 3.994072776772606*^9}, + 3.994250049244549*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"a981a516-0c36-4e67-8663-7b9ecc6e6a97"] }, Open ]], Cell[CellGroupData[{ @@ -247,15 +233,14 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[116]:=",ExpressionUUID->"179da8ec-c925-49d0-be0d-66c3876bcbb2"], + CellLabel->"In[13]:=",ExpressionUUID->"179da8ec-c925-49d0-be0d-66c3876bcbb2"], Cell[BoxData["2.0171665757171935`"], "Output", CellChangeTimes->{ 3.9913197863028755`*^9, 3.9937997474836817`*^9, 3.9938003390596933`*^9, - 3.993800385921398*^9, {3.994072756725263*^9, 3.994072776784317*^9}}, - CellLabel-> - "Out[116]=",ExpressionUUID->"bfee3a58-f7c9-4221-8a38-890be6104ac8"] + 3.993800385921398*^9, {3.994072756725263*^9, 3.994072776784317*^9}, + 3.994250049250936*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"fbfd8386-9fc1-44b9-b44b-3ecad2c2d199"] }, Open ]], Cell[CellGroupData[{ @@ -279,15 +264,14 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[117]:=",ExpressionUUID->"83b8e148-02bc-49bb-bea8-c995dfeb82bb"], + CellLabel->"In[14]:=",ExpressionUUID->"83b8e148-02bc-49bb-bea8-c995dfeb82bb"], Cell[BoxData["1.5074639495621045`"], "Output", CellChangeTimes->{ 3.9913197864610195`*^9, 3.993799747498741*^9, 3.993800339079308*^9, - 3.993800385933773*^9, {3.994072756739362*^9, 3.994072776796445*^9}}, - CellLabel-> - "Out[117]=",ExpressionUUID->"73d60ccb-8a91-4a21-b9e0-f547f6171094"] + 3.993800385933773*^9, {3.994072756739362*^9, 3.994072776796445*^9}, + 3.994250049257277*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"1b260337-3033-41df-97f3-574e30cba6f5"] }, Open ]], Cell[CellGroupData[{ @@ -342,15 +326,14 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[118]:=",ExpressionUUID->"3d43be64-23c5-4a92-ab3e-9cdd7819b7bb"], + CellLabel->"In[15]:=",ExpressionUUID->"3d43be64-23c5-4a92-ab3e-9cdd7819b7bb"], Cell[BoxData["0.5126444245586296`"], "Output", CellChangeTimes->{ 3.991319786533783*^9, 3.993799747513342*^9, 3.993800339097157*^9, - 3.993800385946536*^9, {3.994072756750792*^9, 3.9940727768075857`*^9}}, - CellLabel-> - "Out[118]=",ExpressionUUID->"aa7591e2-fdae-43c8-8038-485e6119feda"] + 3.993800385946536*^9, {3.994072756750792*^9, 3.9940727768075857`*^9}, + 3.994250049263504*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"883d3bd1-7125-4654-a156-bb47e8c83b05"] }, Open ]], Cell[CellGroupData[{ @@ -401,16 +384,15 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[119]:=",ExpressionUUID->"8b136e1d-8a5c-4ca3-8ba9-064eeb7fa7e3"], + CellLabel->"In[16]:=",ExpressionUUID->"8b136e1d-8a5c-4ca3-8ba9-064eeb7fa7e3"], Cell[BoxData[ RowBox[{"-", "0.12490541136574432`"}]], "Output", CellChangeTimes->{ 3.991319786540777*^9, 3.993799747527933*^9, 3.9938003391147947`*^9, - 3.99380038595966*^9, {3.994072756762456*^9, 3.99407277681929*^9}}, - CellLabel-> - "Out[119]=",ExpressionUUID->"94347e67-699f-44e7-8f91-f6817d51e17c"] + 3.99380038595966*^9, {3.994072756762456*^9, 3.99407277681929*^9}, + 3.994250049269783*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"351da46f-9cd6-42e4-8ff8-eaf40f878f89"] }, Open ]], Cell[CellGroupData[{ @@ -461,16 +443,15 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[120]:=",ExpressionUUID->"597653ed-1cc8-44b2-a580-ca17a1b57470"], + CellLabel->"In[17]:=",ExpressionUUID->"597653ed-1cc8-44b2-a580-ca17a1b57470"], Cell[BoxData[ RowBox[{"-", "0.47786808677187637`"}]], "Output", CellChangeTimes->{ 3.9913197865777817`*^9, 3.993799747543792*^9, 3.993800339132107*^9, - 3.9938003859736147`*^9, {3.994072756774001*^9, 3.994072776830839*^9}}, - CellLabel-> - "Out[120]=",ExpressionUUID->"15cf6e7e-9189-4b04-a170-845f3fa97abc"] + 3.9938003859736147`*^9, {3.994072756774001*^9, 3.994072776830839*^9}, + 3.9942500492760572`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"34b6af85-88b8-4ca1-9931-6208c30b4532"] }, Open ]], Cell[CellGroupData[{ @@ -525,45 +506,42 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[121]:=",ExpressionUUID->"9a94d223-c93f-448f-a7fc-b8115b6e4dba"], + CellLabel->"In[18]:=",ExpressionUUID->"9a94d223-c93f-448f-a7fc-b8115b6e4dba"], Cell[BoxData["0.6637051934091774`"], "Output", CellChangeTimes->{ 3.9913197866129*^9, 3.993799747559553*^9, 3.993800339136161*^9, - 3.993800385987465*^9, {3.994072756786757*^9, 3.994072776842886*^9}}, - CellLabel-> - "Out[121]=",ExpressionUUID->"9e73f054-4d44-4e33-8142-bd796501a233"] + 3.993800385987465*^9, {3.994072756786757*^9, 3.994072776842886*^9}, + 3.9942500492826157`*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"287db08e-0689-44da-8006-bbae9d6ae4f4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", - CellLabel-> - "In[122]:=",ExpressionUUID->"ea96506f-71e9-43e8-9862-700285eae938"], + CellLabel->"In[19]:=",ExpressionUUID->"ea96506f-71e9-43e8-9862-700285eae938"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786620775*^9, 3.9937997475753107`*^9, 3.993800339165604*^9, - 3.9938003860010223`*^9, {3.99407275679909*^9, 3.994072776854899*^9}}, - CellLabel-> - "Out[122]=",ExpressionUUID->"58740243-798b-4dfa-8199-f1dd531b09a0"] + 3.9938003860010223`*^9, {3.99407275679909*^9, 3.994072776854899*^9}, + 3.994250049289785*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"b7ffaa52-8e85-4e04-851f-b1c0f3c5b7db"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fin", "=", "0.09"}]], "Input", - CellLabel-> - "In[123]:=",ExpressionUUID->"9c73db80-a16f-46e3-af25-28f0aad14798"], + CellLabel->"In[20]:=",ExpressionUUID->"9c73db80-a16f-46e3-af25-28f0aad14798"], Cell[BoxData["0.09`"], "Output", CellChangeTimes->{ 3.991319786657793*^9, 3.9937997475908947`*^9, 3.993800339182325*^9, - 3.9938003860157137`*^9, {3.9940727568120337`*^9, 3.994072776866831*^9}}, - CellLabel-> - "Out[123]=",ExpressionUUID->"34956363-76d7-4499-a48c-5a9b1df60ab8"] + 3.9938003860157137`*^9, {3.9940727568120337`*^9, 3.994072776866831*^9}, + 3.9942500492969522`*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"0c302b8b-d73a-4fe9-a442-9763747aeb95"] }, Open ]], Cell[CellGroupData[{ @@ -572,15 +550,14 @@ Cell[BoxData[ RowBox[{"ffin", "=", "0.42"}]], "Input", CellChangeTimes->{{3.9938002062742653`*^9, 3.993800206278376*^9}, { 3.99380037453472*^9, 3.993800374695301*^9}}, - CellLabel-> - "In[124]:=",ExpressionUUID->"8f226229-eaeb-412e-8a0f-19f56de1c03c"], + CellLabel->"In[21]:=",ExpressionUUID->"8f226229-eaeb-412e-8a0f-19f56de1c03c"], Cell[BoxData["0.42`"], "Output", CellChangeTimes->{ 3.9913197866657925`*^9, 3.993799747607007*^9, 3.993800339199224*^9, - 3.9938003860303698`*^9, {3.994072756823955*^9, 3.994072776878458*^9}}, - CellLabel-> - "Out[124]=",ExpressionUUID->"a7095a08-54bd-4b06-aa3d-383af229c068"] + 3.9938003860303698`*^9, {3.994072756823955*^9, 3.994072776878458*^9}, + 3.994250049303121*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"6c649cf3-9c6c-4918-b377-ea3e14970045"] }, Open ]], Cell[CellGroupData[{ @@ -589,31 +566,29 @@ Cell[BoxData[ RowBox[{"fex", "=", RowBox[{"-", "2.59"}]}]], "Input", CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, - CellLabel-> - "In[125]:=",ExpressionUUID->"e3f3304c-8b14-4d7e-9991-dd32a47bc8ca"], + CellLabel->"In[22]:=",ExpressionUUID->"e3f3304c-8b14-4d7e-9991-dd32a47bc8ca"], Cell[BoxData[ RowBox[{"-", "2.59`"}]], "Output", CellChangeTimes->{ 3.9913197866996*^9, 3.993799747623555*^9, 3.9938003392162523`*^9, - 3.993800386045208*^9, {3.994072756835642*^9, 3.994072776890398*^9}}, - CellLabel-> - "Out[125]=",ExpressionUUID->"fb412096-4638-4658-94a7-4978319b9b2f"] + 3.993800386045208*^9, {3.994072756835642*^9, 3.994072776890398*^9}, + 3.994250049309657*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"0f1fa43a-232d-42e8-a01a-692e0d3d210b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffex", "=", "0.54"}]], "Input", - CellLabel-> - "In[126]:=",ExpressionUUID->"097ee5d6-0b41-4944-a0fd-461ebdc2fa5b"], + CellLabel->"In[23]:=",ExpressionUUID->"097ee5d6-0b41-4944-a0fd-461ebdc2fa5b"], Cell[BoxData["0.54`"], "Output", CellChangeTimes->{ 3.9913197867406044`*^9, 3.9937997476274233`*^9, 3.993800339233366*^9, - 3.993800386060211*^9, {3.994072756847537*^9, 3.994072776902615*^9}}, - CellLabel-> - "Out[126]=",ExpressionUUID->"211c568f-6a6b-47b5-ae5c-5f0a40012061"] + 3.993800386060211*^9, {3.994072756847537*^9, 3.994072776902615*^9}, + 3.994250049316128*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"f6ea8f45-7302-40db-923e-cdba4651c89a"] }, Open ]], Cell[CellGroupData[{ @@ -623,15 +598,13 @@ Cell[BoxData[ CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, 3.993799773981587*^9, {3.993800017055696*^9, 3.993800017126395*^9}}, - CellLabel-> - "In[127]:=",ExpressionUUID->"f647a085-2221-4ddf-b542-94135a0f80f8"], + CellLabel->"In[24]:=",ExpressionUUID->"f647a085-2221-4ddf-b542-94135a0f80f8"], Cell[BoxData["64"], "Output", CellChangeTimes->{ 3.9913197867861958`*^9, 3.993800339250176*^9, 3.993800386074368*^9, { - 3.994072756859651*^9, 3.994072776915943*^9}}, - CellLabel-> - "Out[127]=",ExpressionUUID->"376e819c-ef98-4d5d-bf48-de7a9e491029"] + 3.994072756859651*^9, 3.994072776915943*^9}, 3.994250049322235*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"13338980-d82e-45a5-87c5-55a90baa4499"] }, Open ]], Cell[CellGroupData[{ @@ -641,15 +614,14 @@ Cell[BoxData[ RowBox[{"92", "-", "Z1"}]}]], "Input", CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, 3.9916443064841423`*^9}, - CellLabel-> - "In[128]:=",ExpressionUUID->"73530cc7-4509-4c2a-bc82-3b6e6f190af1"], + CellLabel->"In[25]:=",ExpressionUUID->"73530cc7-4509-4c2a-bc82-3b6e6f190af1"], Cell[BoxData["28"], "Output", CellChangeTimes->{ 3.9913197867928696`*^9, 3.993799747743443*^9, 3.993800339268099*^9, - 3.993800386088282*^9, {3.994072756878846*^9, 3.994072776927128*^9}}, - CellLabel-> - "Out[128]=",ExpressionUUID->"5a06941a-2689-40df-b58e-60b73764017e"] + 3.993800386088282*^9, {3.994072756878846*^9, 3.994072776927128*^9}, + 3.994250049328289*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"b09725bd-5079-4306-b389-86536e2f7541"] }, Open ]], Cell[CellGroupData[{ @@ -658,15 +630,14 @@ Cell[BoxData[ RowBox[{"A2", "=", RowBox[{"A", "-", "A1"}]}]], "Input", CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, - CellLabel-> - "In[129]:=",ExpressionUUID->"be41b13b-7e99-4aee-8978-caf79c9ddd4e"], + CellLabel->"In[26]:=",ExpressionUUID->"be41b13b-7e99-4aee-8978-caf79c9ddd4e"], Cell[BoxData["64"], "Output", CellChangeTimes->{ 3.991319786827894*^9, 3.993799747762579*^9, 3.9938003392862883`*^9, - 3.993800386103376*^9, {3.994072756893341*^9, 3.994072776939496*^9}}, - CellLabel-> - "Out[129]=",ExpressionUUID->"4d495a98-1c73-4674-aa27-b8801b1b63b5"] + 3.993800386103376*^9, {3.994072756893341*^9, 3.994072776939496*^9}, + 3.9942500493342333`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"e724177b-e7ee-4cf2-bfd1-461e094bbc58"] }, Open ]], Cell[CellGroupData[{ @@ -681,15 +652,14 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[130]:=",ExpressionUUID->"ddbbb689-8d7b-40b9-bc82-bbe57496b4ff"], + CellLabel->"In[27]:=",ExpressionUUID->"ddbbb689-8d7b-40b9-bc82-bbe57496b4ff"], Cell[BoxData["0.10431818181818181`"], "Output", CellChangeTimes->{ 3.9913197868648605`*^9, 3.993799747778633*^9, 3.993800339303063*^9, - 3.993800386118601*^9, {3.9940727569059267`*^9, 3.994072776951536*^9}}, - CellLabel-> - "Out[130]=",ExpressionUUID->"3e1ee14d-22ac-414f-a908-e67669b5afea"] + 3.993800386118601*^9, {3.9940727569059267`*^9, 3.994072776951536*^9}, + 3.9942500493403788`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"055f680c-8311-4a05-a621-5adae849e6b0"] }, Open ]], Cell[CellGroupData[{ @@ -704,16 +674,15 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[131]:=",ExpressionUUID->"2571b230-161a-4a78-ad26-e012bd34a71c"], + CellLabel->"In[28]:=",ExpressionUUID->"2571b230-161a-4a78-ad26-e012bd34a71c"], Cell[BoxData[ RowBox[{"-", "2.571590909090909`"}]], "Output", CellChangeTimes->{ 3.9913197868718567`*^9, 3.993799747795951*^9, 3.993800339319376*^9, - 3.993800386134354*^9, {3.9940727569175262`*^9, 3.994072776962891*^9}}, - CellLabel-> - "Out[131]=",ExpressionUUID->"33943dd2-84ae-4faa-b50e-6e4bd49723ae"] + 3.993800386134354*^9, {3.9940727569175262`*^9, 3.994072776962891*^9}, + 3.994250049346726*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"87e335b4-daed-4f4f-b690-4f00ed1ba613"] }, Open ]], Cell[CellGroupData[{ @@ -744,15 +713,14 @@ Cell[BoxData[ CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, - CellLabel-> - "In[132]:=",ExpressionUUID->"a4b5fd42-4b8a-4f68-a675-ff02dd992ea7"], + CellLabel->"In[29]:=",ExpressionUUID->"a4b5fd42-4b8a-4f68-a675-ff02dd992ea7"], Cell[BoxData["16.821909430837295`"], "Output", CellChangeTimes->{ 3.9913197869068584`*^9, 3.993799747812237*^9, 3.993800339336598*^9, - 3.9938003861388483`*^9, {3.994072756929346*^9, 3.994072776974725*^9}}, - CellLabel-> - "Out[132]=",ExpressionUUID->"b7259d1a-b7a8-4ee8-9d74-d67e1e9ae84b"] + 3.9938003861388483`*^9, {3.994072756929346*^9, 3.994072776974725*^9}, + 3.9942500493531837`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"1b361e7b-aad6-49dd-8580-592e1b109539"] }, Open ]], Cell[CellGroupData[{ @@ -760,15 +728,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, - CellLabel-> - "In[133]:=",ExpressionUUID->"b29d18c9-2648-401d-a879-5c4da77d2ebd"], + CellLabel->"In[30]:=",ExpressionUUID->"b29d18c9-2648-401d-a879-5c4da77d2ebd"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786940857*^9, 3.9937997478307247`*^9, 3.993800339353257*^9, - 3.993800386159964*^9, {3.994072756940832*^9, 3.994072776986273*^9}}, - CellLabel-> - "Out[133]=",ExpressionUUID->"b86a17e2-e90a-424f-a7de-9146d541bf49"] + 3.993800386159964*^9, {3.994072756940832*^9, 3.994072776986273*^9}, + 3.994250049359209*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"19f2caeb-2733-4d0a-af96-6ea41a068625"] }, Open ]], Cell[CellGroupData[{ @@ -778,21 +745,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { 3.9937993902853117`*^9, 3.993799392293758*^9}}, - CellLabel-> - "In[134]:=",ExpressionUUID->"67536fb1-428f-4970-bef7-dd9fa78d07cc"], + CellLabel->"In[31]:=",ExpressionUUID->"67536fb1-428f-4970-bef7-dd9fa78d07cc"], Cell[BoxData["1.25`"], "Output", CellChangeTimes->{ 3.9937997478713713`*^9, 3.993800339369935*^9, 3.9938003861811666`*^9, { - 3.9940727569525537`*^9, 3.9940727769978867`*^9}}, - CellLabel-> - "Out[134]=",ExpressionUUID->"fae9b2ae-27ac-42d7-96d2-e550c033b363"] + 3.9940727569525537`*^9, 3.9940727769978867`*^9}, 3.9942500493651733`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"936d2718-9ef0-4af6-92f1-6d865337f988"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, - CellLabel-> - "In[135]:=",ExpressionUUID->"62aaa394-7779-447e-98bb-5e67991c9717"], + CellLabel->"In[32]:=",ExpressionUUID->"62aaa394-7779-447e-98bb-5e67991c9717"], Cell[CellGroupData[{ @@ -801,21 +765,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { 3.993799395152514*^9, 3.9937993965162697`*^9}}, - CellLabel-> - "In[136]:=",ExpressionUUID->"a77d887e-fba8-47d6-a3fe-8a269447322f"], + CellLabel->"In[33]:=",ExpressionUUID->"a77d887e-fba8-47d6-a3fe-8a269447322f"], Cell[BoxData["0.85`"], "Output", CellChangeTimes->{ 3.993799747898118*^9, 3.993800339418215*^9, 3.993800386208997*^9, { - 3.99407275696742*^9, 3.9940727770129023`*^9}}, - CellLabel-> - "Out[136]=",ExpressionUUID->"a5cf4f0e-2c0e-408d-bfae-c4f7e09a0c4b"] + 3.99407275696742*^9, 3.9940727770129023`*^9}, 3.994250049374558*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"0c1bf9e8-8663-4f7a-9f9f-3e3f8719068a"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, - CellLabel-> - "In[137]:=",ExpressionUUID->"098094a0-0622-4340-998e-974a3fbaea36"], + CellLabel->"In[34]:=",ExpressionUUID->"098094a0-0622-4340-998e-974a3fbaea36"], Cell[CellGroupData[{ @@ -824,21 +785,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { 3.993799398824368*^9, 3.9937994002405863`*^9}}, - CellLabel-> - "In[138]:=",ExpressionUUID->"bd847fa6-4efb-4faf-9432-c6191bf960fb"], + CellLabel->"In[35]:=",ExpressionUUID->"bd847fa6-4efb-4faf-9432-c6191bf960fb"], Cell[BoxData["2.3`"], "Output", CellChangeTimes->{ 3.993799747923098*^9, 3.993800339511382*^9, 3.993800386234042*^9, { - 3.994072756981262*^9, 3.994072777026493*^9}}, - CellLabel-> - "Out[138]=",ExpressionUUID->"00abaf12-6170-4f08-ab83-570f54918266"] + 3.994072756981262*^9, 3.994072777026493*^9}, 3.994250049386754*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"d8e14d93-47d1-414e-84b1-140c986f3dbf"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, - CellLabel-> - "In[139]:=",ExpressionUUID->"3cac4ba9-5060-49f9-9442-8b99990e4efd"], + CellLabel->"In[36]:=",ExpressionUUID->"3cac4ba9-5060-49f9-9442-8b99990e4efd"], Cell[CellGroupData[{ @@ -847,21 +805,18 @@ Cell[BoxData[ CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, 3.991799359954439*^9, {3.993799403099743*^9, 3.9937994038178663`*^9}}, - CellLabel-> - "In[140]:=",ExpressionUUID->"a57d45b8-4eaf-45bf-8d43-c6b3bf452990"], + CellLabel->"In[37]:=",ExpressionUUID->"a57d45b8-4eaf-45bf-8d43-c6b3bf452990"], Cell[BoxData["1.1`"], "Output", CellChangeTimes->{ 3.9937997479459248`*^9, 3.99380033956159*^9, 3.9938003862601*^9, { - 3.994072756995009*^9, 3.99407277703996*^9}}, - CellLabel-> - "Out[140]=",ExpressionUUID->"51fc0c6e-3e6f-44e2-beac-57915eda11b9"] + 3.994072756995009*^9, 3.99407277703996*^9}, 3.994250049396263*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"db7106f2-1317-4dd0-b7fa-7651e94dc4db"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, - CellLabel-> - "In[141]:=",ExpressionUUID->"c42f8c03-6a5c-4468-ba74-295ed3698f72"], + CellLabel->"In[38]:=",ExpressionUUID->"c42f8c03-6a5c-4468-ba74-295ed3698f72"], Cell[CellGroupData[{ @@ -870,21 +825,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, 3.991718016467348*^9, 3.991799361414671*^9, {3.993799407392029*^9, 3.993799410650194*^9}}, - CellLabel-> - "In[142]:=",ExpressionUUID->"bdab98b9-03d2-4503-9c92-fef6b99d57e4"], + CellLabel->"In[39]:=",ExpressionUUID->"bdab98b9-03d2-4503-9c92-fef6b99d57e4"], Cell[BoxData["0.8664`"], "Output", CellChangeTimes->{ 3.993799747968698*^9, 3.993800339671721*^9, 3.9938003862845907`*^9, { - 3.994072757008773*^9, 3.994072777054493*^9}}, - CellLabel-> - "Out[142]=",ExpressionUUID->"cdef2081-aaa2-44a3-9704-ad809dfd3a91"] + 3.994072757008773*^9, 3.994072777054493*^9}, 3.994250049406837*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"c849cfc9-09ff-4bae-902d-3a176edec16c"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, - CellLabel-> - "In[143]:=",ExpressionUUID->"6fc34824-c613-4c74-bd86-7e6165efcfd6"], + CellLabel->"In[40]:=",ExpressionUUID->"6fc34824-c613-4c74-bd86-7e6165efcfd6"], Cell[CellGroupData[{ @@ -893,21 +845,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9937994136330442`*^9, 3.993799417576207*^9}}, - CellLabel-> - "In[144]:=",ExpressionUUID->"01613d92-1a84-4d81-8e66-83e6cb4f3771"], + CellLabel->"In[41]:=",ExpressionUUID->"01613d92-1a84-4d81-8e66-83e6cb4f3771"], Cell[BoxData["0.5924`"], "Output", CellChangeTimes->{ 3.993799747991611*^9, 3.9938003397687387`*^9, 3.993800386310059*^9, { - 3.994072757022612*^9, 3.994072777068264*^9}}, - CellLabel-> - "Out[144]=",ExpressionUUID->"a4881d9b-3bc4-4998-95f6-b7463339ac39"] + 3.994072757022612*^9, 3.994072777068264*^9}, 3.994250049417119*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"01d946ca-a820-4af1-924f-446811c35680"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, - CellLabel-> - "In[145]:=",ExpressionUUID->"4ab84259-8e29-4323-8038-b52d809033a3"], + CellLabel->"In[42]:=",ExpressionUUID->"4ab84259-8e29-4323-8038-b52d809033a3"], Cell[CellGroupData[{ @@ -916,21 +865,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.993799421955809*^9, 3.993799423886447*^9}}, - CellLabel-> - "In[146]:=",ExpressionUUID->"7aa1d22a-b349-4180-a635-7bfc3d28d3c1"], + CellLabel->"In[43]:=",ExpressionUUID->"7aa1d22a-b349-4180-a635-7bfc3d28d3c1"], Cell[BoxData["1.888`"], "Output", CellChangeTimes->{ 3.993799748012844*^9, 3.993800339865109*^9, 3.993800386335606*^9, { - 3.9940727570366488`*^9, 3.9940727770819397`*^9}}, - CellLabel-> - "Out[146]=",ExpressionUUID->"7d1e41fd-9d04-46d3-a5cd-7a878ed138a7"] + 3.9940727570366488`*^9, 3.9940727770819397`*^9}, 3.994250049427352*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"49a94248-ec60-466e-aa49-eb0dc6f68539"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, - CellLabel-> - "In[147]:=",ExpressionUUID->"6055af0d-6869-4171-a21a-658029b063d2"], + CellLabel->"In[44]:=",ExpressionUUID->"6055af0d-6869-4171-a21a-658029b063d2"], Cell[CellGroupData[{ @@ -938,21 +884,18 @@ Cell[BoxData[ RowBox[{"nn2", "=", "0.6347"}]], "Input", CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, 3.9917993660901737`*^9, {3.993799431418026*^9, 3.9937994366447783`*^9}}, - CellLabel-> - "In[148]:=",ExpressionUUID->"a68fe271-87b5-449f-993b-e025b56c7a29"], + CellLabel->"In[45]:=",ExpressionUUID->"a68fe271-87b5-449f-993b-e025b56c7a29"], Cell[BoxData["0.6347`"], "Output", CellChangeTimes->{ 3.99379974807285*^9, 3.993800339960155*^9, 3.9938003863606977`*^9, { - 3.99407275705245*^9, 3.994072777095529*^9}}, - CellLabel-> - "Out[148]=",ExpressionUUID->"be174ef3-3830-4211-9231-a9216274a932"] + 3.99407275705245*^9, 3.994072777095529*^9}, 3.994250049436838*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"424e1ffa-7876-4f54-ba64-8f5667e6243c"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, - CellLabel-> - "In[149]:=",ExpressionUUID->"a9ef26f6-938f-4c92-bbf3-71e11417d2e2"], + CellLabel->"In[46]:=",ExpressionUUID->"a9ef26f6-938f-4c92-bbf3-71e11417d2e2"], Cell[CellGroupData[{ @@ -1441,15 +1384,14 @@ uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== "], - CellLabel-> - "In[150]:=",ExpressionUUID->"caeae8bf-beca-485d-ad51-b172b2499144"], + CellLabel->"In[47]:=",ExpressionUUID->"caeae8bf-beca-485d-ad51-b172b2499144"], Cell[BoxData["0.33523276963055626`"], "Output", CellChangeTimes->{ 3.991319787430073*^9, 3.9937997481547623`*^9, 3.993800340061625*^9, - 3.9938003864136953`*^9, {3.994072757136285*^9, 3.994072777132966*^9}}, - CellLabel-> - "Out[150]=",ExpressionUUID->"638c121f-3f8b-4f3e-8303-f3ae4a3c3aeb"] + 3.9938003864136953`*^9, {3.994072757136285*^9, 3.994072777132966*^9}, + 3.994250049509881*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"c3840ebc-08cd-4671-9eb5-0787047beea2"] }, Open ]], Cell[CellGroupData[{ @@ -1943,15 +1885,14 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[151]:=",ExpressionUUID->"86996236-767f-48ce-a191-066540e9f792"], + CellLabel->"In[48]:=",ExpressionUUID->"86996236-767f-48ce-a191-066540e9f792"], Cell[BoxData["10.264944924096582`"], "Output", CellChangeTimes->{ 3.991319787574972*^9, 3.9937997481878023`*^9, 3.993800340089472*^9, - 3.993800386441668*^9, {3.994072757163142*^9, 3.9940727771627817`*^9}}, - CellLabel-> - "Out[151]=",ExpressionUUID->"e722a45b-59e4-4d03-978d-83aac7ec7dab"] + 3.993800386441668*^9, {3.994072757163142*^9, 3.9940727771627817`*^9}, + 3.9942500495405912`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"bc697d69-64b9-48a9-8168-18d5c9fc47d5"] }, Open ]], Cell[CellGroupData[{ @@ -2439,16 +2380,15 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[152]:=",ExpressionUUID->"933fcba6-44f2-4029-a09e-1c15e24f5fe2"], + CellLabel->"In[49]:=",ExpressionUUID->"933fcba6-44f2-4029-a09e-1c15e24f5fe2"], Cell[BoxData[ RowBox[{"-", "28.42814742925769`"}]], "Output", CellChangeTimes->{ 3.991319787641424*^9, 3.993799748217864*^9, 3.993800340114811*^9, - 3.993800386467917*^9, {3.99407275718851*^9, 3.994072777190625*^9}}, - CellLabel-> - "Out[152]=",ExpressionUUID->"d5af67ee-0068-41e5-a751-409ed0fd58cf"] + 3.993800386467917*^9, {3.99407275718851*^9, 3.994072777190625*^9}, + 3.994250049572138*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"e761a50c-7ba6-4f9a-8071-5e132093de85"] }, Open ]], Cell[CellGroupData[{ @@ -3006,16 +2946,15 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[153]:=",ExpressionUUID->"75f9bcfc-6a85-4c93-baef-735481a5b347"], + CellLabel->"In[50]:=",ExpressionUUID->"75f9bcfc-6a85-4c93-baef-735481a5b347"], Cell[BoxData[ RowBox[{"-", "38.363033654277935`"}]], "Output", CellChangeTimes->{ 3.991319787711939*^9, 3.9937997482559977`*^9, 3.993800340146491*^9, - 3.993800386499661*^9, {3.9940727572190027`*^9, 3.994072777223873*^9}}, - CellLabel-> - "Out[153]=",ExpressionUUID->"7cd884a8-3ac2-452c-a87b-78df983f74e7"] + 3.993800386499661*^9, {3.9940727572190027`*^9, 3.994072777223873*^9}, + 3.994250049608673*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"e787289c-3832-468e-acac-9d872c0d9c79"] }, Open ]], Cell[CellGroupData[{ @@ -3573,16 +3512,15 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[154]:=",ExpressionUUID->"67477285-563b-4c0a-80e8-539d67ea9ecf"], + CellLabel->"In[51]:=",ExpressionUUID->"67477285-563b-4c0a-80e8-539d67ea9ecf"], Cell[BoxData[ RowBox[{"-", "84.97316533656249`"}]], "Output", CellChangeTimes->{ 3.9913197877723045`*^9, 3.993799748294525*^9, 3.993800340178175*^9, - 3.9938003865308523`*^9, {3.994072757249708*^9, 3.994072777255313*^9}}, - CellLabel-> - "Out[154]=",ExpressionUUID->"3588086d-fb2f-46aa-8ddc-a101c791de5d"] + 3.9938003865308523`*^9, {3.994072757249708*^9, 3.994072777255313*^9}, + 3.994250049646204*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"b3e43271-178f-4a61-ba1b-126582e16685"] }, Open ]], Cell[CellGroupData[{ @@ -4213,46 +4151,43 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[155]:=",ExpressionUUID->"5ad6636d-d66a-400a-ba31-879ecfd77c42"], + CellLabel->"In[52]:=",ExpressionUUID->"5ad6636d-d66a-400a-ba31-879ecfd77c42"], Cell[BoxData[ RowBox[{"-", "228.76196692780508`"}]], "Output", CellChangeTimes->{ 3.991319787833355*^9, 3.993799748333426*^9, 3.9938003402193203`*^9, - 3.9938003865686073`*^9, {3.9940727572851143`*^9, 3.9940727772935343`*^9}}, - CellLabel-> - "Out[155]=",ExpressionUUID->"263817c8-1067-4391-a9f2-e9cf36c8c975"] + 3.9938003865686073`*^9, {3.9940727572851143`*^9, 3.9940727772935343`*^9}, + 3.994250049689287*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"b92385d0-f1fc-4c8a-957d-d0a287a56d9a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U21", "=", "0"}]], "Input", - CellLabel-> - "In[156]:=",ExpressionUUID->"23fb3a30-4d3b-46d8-bbbd-19d287caef32"], + CellLabel->"In[53]:=",ExpressionUUID->"23fb3a30-4d3b-46d8-bbbd-19d287caef32"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210013676`*^9, 3.993799748353148*^9, 3.993800340246324*^9, - 3.993800386583934*^9, {3.99407275729825*^9, 3.994072777306653*^9}}, - CellLabel-> - "Out[156]=",ExpressionUUID->"7ca6ca88-b06e-45d5-9917-723a5e3801e0"] + 3.993800386583934*^9, {3.99407275729825*^9, 3.994072777306653*^9}, + 3.994250049698907*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"249f7ef5-f35a-40d0-80e2-7f943737ecb5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U22", "=", "0"}]], "Input", - CellLabel-> - "In[157]:=",ExpressionUUID->"6d75fe2b-562f-472a-b120-644cefa3cd24"], + CellLabel->"In[54]:=",ExpressionUUID->"6d75fe2b-562f-472a-b120-644cefa3cd24"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210355663`*^9, 3.993799748372961*^9, 3.9938003402680492`*^9, - 3.993800386599262*^9, {3.99407275730969*^9, 3.994072777318306*^9}}, - CellLabel-> - "Out[157]=",ExpressionUUID->"bdbe96b1-5210-43e5-8bb9-fc147a546e6c"] + 3.993800386599262*^9, {3.99407275730969*^9, 3.994072777318306*^9}, + 3.994250049705011*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"a4044e71-14e1-4aa5-bc43-185a4fe91660"] }, Open ]], Cell[CellGroupData[{ @@ -4296,15 +4231,14 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[158]:=",ExpressionUUID->"7977bcdd-7adb-463f-9114-5193396a6062"], + CellLabel->"In[55]:=",ExpressionUUID->"7977bcdd-7adb-463f-9114-5193396a6062"], Cell[BoxData["185.79450939883742`"], "Output", CellChangeTimes->{ 3.991320421068556*^9, 3.9937997483941936`*^9, 3.9938003402909203`*^9, - 3.99380038661649*^9, {3.9940727573211393`*^9, 3.994072777330056*^9}}, - CellLabel-> - "Out[158]=",ExpressionUUID->"c6fc3758-3cad-4cda-9146-1d6e0b6e8e49"] + 3.99380038661649*^9, {3.9940727573211393`*^9, 3.994072777330056*^9}, + 3.9942500497114153`*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"09048185-1e88-4bc8-b6fb-307966c5ec5f"] }, Open ]], Cell[CellGroupData[{ @@ -4344,16 +4278,15 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[159]:=",ExpressionUUID->"1f82598d-042d-4771-afc3-d6ccc1241e2d"], + CellLabel->"In[56]:=",ExpressionUUID->"1f82598d-042d-4771-afc3-d6ccc1241e2d"], Cell[BoxData[ RowBox[{"-", "142.60312447586276`"}]], "Output", CellChangeTimes->{ 3.991320421098543*^9, 3.9937997484173307`*^9, 3.993800340312326*^9, - 3.993800386633136*^9, {3.99407275733285*^9, 3.994072777341887*^9}}, - CellLabel-> - "Out[159]=",ExpressionUUID->"df1deea6-e51a-44ab-b894-a4a562919170"] + 3.993800386633136*^9, {3.99407275733285*^9, 3.994072777341887*^9}, + 3.994250049717862*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"9b958be1-a72b-4c9f-97c1-133466c6122f"] }, Open ]], Cell[CellGroupData[{ @@ -4397,101 +4330,94 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[160]:=",ExpressionUUID->"49925539-8e44-4e8a-a304-d27778ea5471"], + CellLabel->"In[57]:=",ExpressionUUID->"49925539-8e44-4e8a-a304-d27778ea5471"], Cell[BoxData["169.9317606773619`"], "Output", CellChangeTimes->{ 3.9913204211275444`*^9, 3.993799748440692*^9, 3.993800340332926*^9, - 3.99380038664979*^9, {3.994072757344488*^9, 3.994072777353434*^9}}, - CellLabel-> - "Out[160]=",ExpressionUUID->"45856cf2-be72-46c4-b775-177456dd934c"] + 3.99380038664979*^9, {3.994072757344488*^9, 3.994072777353434*^9}, + 3.994250049724612*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"f062ee34-fe30-4788-ae27-53b8f7be6c79"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c11"], "Input", - CellLabel-> - "In[161]:=",ExpressionUUID->"87cdf76d-dadd-4b04-85cd-63e99a0ddf4c"], + CellLabel->"In[58]:=",ExpressionUUID->"87cdf76d-dadd-4b04-85cd-63e99a0ddf4c"], Cell[BoxData["0.5126444245586296`"], "Output", CellChangeTimes->{ 3.9913204211385536`*^9, 3.9937997484629087`*^9, 3.9938003403521013`*^9, - 3.9938003866670628`*^9, {3.994072757355731*^9, 3.994072777364881*^9}}, - CellLabel-> - "Out[161]=",ExpressionUUID->"40909c0b-3fe9-4db8-9b0d-424b68546445"] + 3.9938003866670628`*^9, {3.994072757355731*^9, 3.994072777364881*^9}, + 3.994250049730665*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"9ad7be33-79c2-4dc7-91c4-c96b8e213886"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c12"], "Input", - CellLabel-> - "In[162]:=",ExpressionUUID->"dc4afb41-daf7-4e2b-94cf-ddd8b507975f"], + CellLabel->"In[59]:=",ExpressionUUID->"dc4afb41-daf7-4e2b-94cf-ddd8b507975f"], Cell[BoxData[ RowBox[{"-", "0.12490541136574432`"}]], "Output", CellChangeTimes->{ 3.9913204211683464`*^9, 3.9937997484829597`*^9, 3.993800340372787*^9, - 3.993800386684751*^9, {3.994072759775218*^9, 3.994072777376302*^9}}, - CellLabel-> - "Out[162]=",ExpressionUUID->"a425b2d0-4efa-4e69-83f6-29b81dd91b34"] + 3.993800386684751*^9, {3.994072759775218*^9, 3.994072777376302*^9}, + 3.9942500497368507`*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"fbeb29f9-9bf6-4083-8182-028ebc075c46"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c21"], "Input", - CellLabel-> - "In[163]:=",ExpressionUUID->"de4da22e-2958-48a2-8152-8ffe94ed74ce"], + CellLabel->"In[60]:=",ExpressionUUID->"de4da22e-2958-48a2-8152-8ffe94ed74ce"], Cell[BoxData[ RowBox[{"-", "0.47786808677187637`"}]], "Output", CellChangeTimes->{ 3.991320421199068*^9, 3.993799748505329*^9, 3.9938003403919477`*^9, - 3.9938003866995373`*^9, {3.9940727599543447`*^9, 3.9940727773879633`*^9}}, - CellLabel-> - "Out[163]=",ExpressionUUID->"2ca73151-219e-4ec8-871d-ef1142e6b2ab"] + 3.9938003866995373`*^9, {3.9940727599543447`*^9, 3.9940727773879633`*^9}, + 3.994250049742803*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"4ba1bb99-4f69-4158-ad65-f21e305917aa"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c22"], "Input", - CellLabel-> - "In[164]:=",ExpressionUUID->"0ef55228-4105-47db-beaa-55f17eac1a44"], + CellLabel->"In[61]:=",ExpressionUUID->"0ef55228-4105-47db-beaa-55f17eac1a44"], Cell[BoxData["0.6637051934091774`"], "Output", CellChangeTimes->{ 3.991320421228037*^9, 3.99379974852349*^9, 3.993800340409604*^9, - 3.993800386721094*^9, {3.994072759966642*^9, 3.994072777399509*^9}}, - CellLabel-> - "Out[164]=",ExpressionUUID->"c208e07e-5d8b-4886-9604-ec41a9fec21d"] + 3.993800386721094*^9, {3.994072759966642*^9, 3.994072777399509*^9}, + 3.994250049749302*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"5c5a8aa1-b9ff-41a2-9a52-c9a3a64458a5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w1"], "Input", - CellLabel-> - "In[165]:=",ExpressionUUID->"1779f3c0-544b-49b4-ba5b-40ac26009326"], + CellLabel->"In[62]:=",ExpressionUUID->"1779f3c0-544b-49b4-ba5b-40ac26009326"], Cell[BoxData["2.0171665757171935`"], "Output", CellChangeTimes->{ 3.9913204212585373`*^9, 3.993799748542218*^9, 3.993800340426003*^9, - 3.9938003867354116`*^9, {3.9940727599787703`*^9, 3.9940727774113617`*^9}}, - CellLabel-> - "Out[165]=",ExpressionUUID->"9bac2540-a076-4c33-8e1e-968fe23bef8d"] + 3.9938003867354116`*^9, {3.9940727599787703`*^9, 3.9940727774113617`*^9}, + 3.9942500497558537`*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"3448dd2e-bbc1-4a72-bc8a-a111c9d1745c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w2"], "Input", - CellLabel-> - "In[166]:=",ExpressionUUID->"984b4179-491d-424d-80a2-69e9d88de387"], + CellLabel->"In[63]:=",ExpressionUUID->"984b4179-491d-424d-80a2-69e9d88de387"], Cell[BoxData["1.5074639495621045`"], "Output", CellChangeTimes->{ 3.9913204212884274`*^9, 3.9937997485616417`*^9, 3.99380034044471*^9, - 3.9938003867502003`*^9, {3.9940727599906197`*^9, 3.994072777422779*^9}}, - CellLabel-> - "Out[166]=",ExpressionUUID->"e272e1aa-42c8-4067-b2ae-a410769ea8c7"] + 3.9938003867502003`*^9, {3.9940727599906197`*^9, 3.994072777422779*^9}, + 3.994250049762064*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"af9adbd8-fe90-467a-8ad4-349a5d71db02"] }, Open ]], Cell[CellGroupData[{ @@ -4512,16 +4438,15 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", - CellLabel-> - "In[167]:=",ExpressionUUID->"fee11733-32af-4a89-9485-97d6a976a647"], + CellLabel->"In[64]:=",ExpressionUUID->"fee11733-32af-4a89-9485-97d6a976a647"], Cell[BoxData[ RowBox[{"-", "30.893583323663808`"}]], "Output", CellChangeTimes->{ 3.9913204213185234`*^9, 3.993799748579701*^9, 3.9938003404617233`*^9, - 3.993800386765017*^9, {3.994072760002514*^9, 3.994072777434401*^9}}, - CellLabel-> - "Out[167]=",ExpressionUUID->"da695754-1bbc-4f4c-bf01-30455d26d459"] + 3.993800386765017*^9, {3.994072760002514*^9, 3.994072777434401*^9}, + 3.9942500497683973`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"666fd87f-f27e-49f7-9e3e-7cd0f9f5c786"] }, Open ]], Cell[CellGroupData[{ @@ -4542,16 +4467,15 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", - CellLabel-> - "In[168]:=",ExpressionUUID->"5d2fc11b-7dce-45eb-b28b-5bd1edf42050"], + CellLabel->"In[65]:=",ExpressionUUID->"5d2fc11b-7dce-45eb-b28b-5bd1edf42050"], Cell[BoxData[ RowBox[{"-", "7.926031139913374`"}]], "Output", CellChangeTimes->{ 3.991320421349531*^9, 3.993799748598835*^9, 3.993800340479863*^9, - 3.9938003867807913`*^9, {3.994072760013989*^9, 3.994072777446135*^9}}, - CellLabel-> - "Out[168]=",ExpressionUUID->"b89c4ba2-8ca0-4536-a43b-59bfa4084884"] + 3.9938003867807913`*^9, {3.994072760013989*^9, 3.994072777446135*^9}, + 3.994250049774755*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"c763a2be-c6d7-4a16-a8b2-20d617c76ba1"] }, Open ]], Cell[CellGroupData[{ @@ -4616,15 +4540,14 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[169]:=",ExpressionUUID->"caa95c66-88cd-43e6-be46-37559a76fff1"], + CellLabel->"In[66]:=",ExpressionUUID->"caa95c66-88cd-43e6-be46-37559a76fff1"], Cell[BoxData["154.9009260751736`"], "Output", CellChangeTimes->{ 3.9913204213784294`*^9, 3.993799748618464*^9, 3.993800340498665*^9, - 3.993800386794903*^9, {3.994072760026211*^9, 3.994072777457891*^9}}, - CellLabel-> - "Out[169]=",ExpressionUUID->"4bc302f5-d8e8-4727-9df2-8ee09fe782c2"] + 3.993800386794903*^9, {3.994072760026211*^9, 3.994072777457891*^9}, + 3.994250049781291*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"ea2563e6-8faa-4cdc-8e59-5d0f86718861"] }, Open ]], Cell[CellGroupData[{ @@ -4665,16 +4588,15 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[170]:=",ExpressionUUID->"1b1d8ba0-234b-4e6e-9391-0ae41062e947"], + CellLabel->"In[67]:=",ExpressionUUID->"1b1d8ba0-234b-4e6e-9391-0ae41062e947"], Cell[BoxData[ RowBox[{"-", "142.60312447586276`"}]], "Output", CellChangeTimes->{ 3.9913204213904285`*^9, 3.993799748639475*^9, 3.993800340517002*^9, - 3.993800386808839*^9, {3.9940727600400333`*^9, 3.994072777469482*^9}}, - CellLabel-> - "Out[170]=",ExpressionUUID->"0579b556-b3b8-481d-8192-a9eb8edeb71d"] + 3.993800386808839*^9, {3.9940727600400333`*^9, 3.994072777469482*^9}, + 3.994250049787773*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"7121c715-51d9-4aaf-8569-3e1a060ee516"] }, Open ]], Cell[CellGroupData[{ @@ -4740,15 +4662,14 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[171]:=",ExpressionUUID->"3d2b6824-ba26-4ec3-be0d-851eea74ac0a"], + CellLabel->"In[68]:=",ExpressionUUID->"3d2b6824-ba26-4ec3-be0d-851eea74ac0a"], Cell[BoxData["162.00572953744853`"], "Output", CellChangeTimes->{ 3.991320421419428*^9, 3.993799748660536*^9, 3.993800340536582*^9, - 3.993800386822714*^9, {3.994072760046308*^9, 3.994072777481387*^9}}, - CellLabel-> - "Out[171]=",ExpressionUUID->"74c3e31c-b4ed-46d2-8322-f5e14e68d1bd"] + 3.993800386822714*^9, {3.994072760046308*^9, 3.994072777481387*^9}, + 3.9942500497946873`*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"81a5ea78-d7c4-498c-a112-a25ec5c65d12"] }, Open ]], Cell[CellGroupData[{ @@ -4808,15 +4729,14 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}], ")"}]}], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[172]:=",ExpressionUUID->"d4246052-e64a-4d05-889d-4691a4517a41"], + CellLabel->"In[69]:=",ExpressionUUID->"d4246052-e64a-4d05-889d-4691a4517a41"], Cell[BoxData["110.13261932733474`"], "Output", CellChangeTimes->{ 3.9913204214494324`*^9, 3.993799748682187*^9, 3.9938003405568943`*^9, - 3.993800386836596*^9, {3.994072760058202*^9, 3.994072777493164*^9}}, - CellLabel-> - "Out[172]=",ExpressionUUID->"cbb3c230-bc01-447e-8d5f-3313ccf3e9fb"] + 3.993800386836596*^9, {3.994072760058202*^9, 3.994072777493164*^9}, + 3.9942500498013773`*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"d8a20062-e2ff-4063-85ff-7bd32b4eb680"] }, Open ]], Cell[CellGroupData[{ @@ -4874,38 +4794,47 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[173]:=",ExpressionUUID->"4d7a1e80-b9af-4b3f-80b5-d223c4cad807"], + CellLabel->"In[70]:=",ExpressionUUID->"4d7a1e80-b9af-4b3f-80b5-d223c4cad807"], Cell[BoxData["1014.9570765717414`"], "Output", CellChangeTimes->{ 3.991320421481529*^9, 3.993799748705882*^9, 3.9938003405772467`*^9, - 3.993800386850522*^9, {3.994072760069648*^9, 3.994072777505143*^9}}, - CellLabel-> - "Out[173]=",ExpressionUUID->"2db78271-1a14-4ef2-a5eb-675c7dcbc68b"] + 3.993800386850522*^9, {3.994072760069648*^9, 3.994072777505143*^9}, + 3.99425004980786*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"ddb849ce-fcaf-45bd-9003-a057e9b85837"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"f1", "=", "0.417057434"}]], "Input", - CellChangeTimes->{3.9918501413985214`*^9, - 3.9940826097277718`*^9},ExpressionUUID->"5894836c-9594-0940-b94c-\ -299085c765cc"], + CellChangeTimes->{3.9918501413985214`*^9, 3.9940826097277718`*^9}, + CellLabel->"In[71]:=",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], + +Cell[BoxData["0.417057434`"], "Output", + CellChangeTimes->{3.994250049814143*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"99c867de-26a0-43eb-95fd-442cdecfccbd"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918501359768734`*^9, - 3.991850137465685*^9}},ExpressionUUID->"5965eb10-01f8-5545-9b6f-\ -8fab318cd4b7"], + CellChangeTimes->{{3.9918501359768734`*^9, 3.991850137465685*^9}}, + CellLabel->"In[72]:=",ExpressionUUID->"5965eb10-01f8-5545-9b6f-8fab318cd4b7"], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f2", "=", "0.285081564"}]], "Input", - CellChangeTimes->{3.9918501402114105`*^9, - 3.994082615801478*^9},ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-\ -092c5143dcf0"], + CellChangeTimes->{3.9918501402114105`*^9, 3.994082615801478*^9}, + CellLabel->"In[73]:=",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], + +Cell[BoxData["0.285081564`"], "Output", + CellChangeTimes->{3.994250049823971*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"df7a4389-53c7-4171-a79c-aa1ba8527d50"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918501388085117`*^9, - 3.991850138811516*^9}},ExpressionUUID->"6e7c45d7-0298-ce41-ba97-\ -a3c857e6ae57"], + CellChangeTimes->{{3.9918501388085117`*^9, 3.991850138811516*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], Cell[CellGroupData[{ @@ -4951,13 +4880,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel-> - "In[399]:=",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], + CellLabel->"In[75]:=",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], -Cell[BoxData["2.3793916761039797`*^-53"], "Output", - CellChangeTimes->{3.9913437871842365`*^9}, - CellLabel-> - "Out[399]=",ExpressionUUID->"d7904bcf-fc55-b844-b4d2-059d830f1317"] +Cell[BoxData["1.3128345860136716`*^-53"], "Output", + CellChangeTimes->{3.9913437871842365`*^9, 3.9942500498364964`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"f4d1759c-db50-4d8e-949d-fba7a61cc330"] }, Open ]], Cell[CellGroupData[{ @@ -4991,14 +4918,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.991557655438551*^9},ExpressionUUID->"f2e6289f-a8bc-6d44-a856-\ -301cf9f22a61"], + CellChangeTimes->{3.991557655438551*^9}, + CellLabel->"In[76]:=",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], -Cell[BoxData["8.839304777809617`*^-55"], "Output", - CellChangeTimes->{3.9913437872132397`*^9}, - CellLabel-> - "Out[400]=",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] +Cell[BoxData["5.280021077181867`*^-55"], "Output", + CellChangeTimes->{3.9913437872132397`*^9, 3.994250049843089*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"76e7ea67-7fba-4b94-b766-19333d4ca163"] }, Open ]], Cell[CellGroupData[{ @@ -5031,14 +4956,12 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.9915576595317745`*^9, - 3.9915576617156334`*^9}},ExpressionUUID->"cdf84d2f-1e96-4c43-9286-\ -fda42549e334"], + CellChangeTimes->{{3.9915576595317745`*^9, 3.9915576617156334`*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], -Cell[BoxData["2.0384594858915346`*^-54"], "Output", - CellChangeTimes->{3.9913437872412376`*^9}, - CellLabel-> - "Out[401]=",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] +Cell[BoxData["1.6755662600660195`*^-54"], "Output", + CellChangeTimes->{3.9913437872412376`*^9, 3.9942500498496943`*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"4c555676-c8e0-4b4d-a7e5-ff11c82c9c9b"] }, Open ]], Cell[CellGroupData[{ @@ -5061,13 +4984,11 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel-> - "In[402]:=",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], + CellLabel->"In[78]:=",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], -Cell[BoxData["27.24865368249903`"], "Output", - CellChangeTimes->{3.9913437872672386`*^9}, - CellLabel-> - "Out[402]=",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] +Cell[BoxData["21.564356467709583`"], "Output", + CellChangeTimes->{3.9913437872672386`*^9, 3.994250049856298*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"1be89bdc-a127-4a98-a141-01d102d80da4"] }, Open ]], Cell[CellGroupData[{ @@ -5093,13 +5014,11 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Il"}], ")"}], "*", RowBox[{"(", RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", - CellLabel-> - "In[403]:=",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], + CellLabel->"In[79]:=",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], -Cell[BoxData["47.62007062351`"], "Output", - CellChangeTimes->{3.991343787279253*^9}, - CellLabel-> - "Out[403]=",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] +Cell[BoxData["37.34687649642956`"], "Output", + CellChangeTimes->{3.991343787279253*^9, 3.9942500498630533`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"1070a2ed-6e0d-4518-bd26-4f525077ab3e"] }, Open ]], Cell[CellGroupData[{ @@ -5108,13 +5027,11 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel-> - "In[404]:=",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], + CellLabel->"In[80]:=",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], -Cell[BoxData["0.718596406513947`"], "Output", - CellChangeTimes->{3.9913437873062572`*^9}, - CellLabel-> - "Out[404]=",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +Cell[BoxData["2.2599026584106374`"], "Output", + CellChangeTimes->{3.9913437873062572`*^9, 3.994250049869528*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"fe86902c-e7e8-41c1-b63f-1a7b97478f33"] }, Open ]], Cell[CellGroupData[{ @@ -5123,13 +5040,11 @@ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", - CellLabel-> - "In[405]:=",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], + CellLabel->"In[81]:=",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], -Cell[BoxData["2.8712430196956706`"], "Output", - CellChangeTimes->{3.9913437873353844`*^9}, - CellLabel-> - "Out[405]=",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +Cell[BoxData["5.213107675044065`"], "Output", + CellChangeTimes->{3.9913437873353844`*^9, 3.9942500498759747`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"c9b0a03e-ff46-486c-9ec1-dbbffe605fdb"] }, Open ]], Cell[CellGroupData[{ @@ -5138,13 +5053,11 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel-> - "In[406]:=",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], + CellLabel->"In[82]:=",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], -Cell[BoxData["136.72879537516795`"], "Output", - CellChangeTimes->{3.991343787361582*^9}, - CellLabel-> - "Out[406]=",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +Cell[BoxData["194.69328850245972`"], "Output", + CellChangeTimes->{3.991343787361582*^9, 3.994250049882202*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"3f88c857-6723-4c12-8a70-ed34ed07ee8f"] }, Open ]], Cell[CellGroupData[{ @@ -5153,13 +5066,11 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[407]:=",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], + CellLabel->"In[83]:=",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], -Cell[BoxData["19.58078461858683`"], "Output", - CellChangeTimes->{3.9913437873734856`*^9}, - CellLabel-> - "Out[407]=",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +Cell[BoxData["48.73334650829151`"], "Output", + CellChangeTimes->{3.9913437873734856`*^9, 3.99425004988828*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"2a6fb04d-a662-4b98-8a09-fb567403bc3f"] }, Open ]], Cell[CellGroupData[{ @@ -5348,13 +5259,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[408]:=",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], + CellLabel->"In[84]:=",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], -Cell[BoxData["0.03116264120310575`"], "Output", - CellChangeTimes->{3.9913437874002857`*^9}, - CellLabel-> - "Out[408]=",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +Cell[BoxData["0.004829507560664348`"], "Output", + CellChangeTimes->{3.9913437874002857`*^9, 3.994250049895265*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"dd397407-5ca2-44c7-97e2-7f12a0fa6f07"] }, Open ]], Cell[CellGroupData[{ @@ -5367,13 +5276,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[409]:=",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], + CellLabel->"In[85]:=",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], -Cell[BoxData["5.020278507983894`"], "Output", - CellChangeTimes->{3.9913437875033875`*^9}, - CellLabel-> - "Out[409]=",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +Cell[BoxData["12.752446655949889`"], "Output", + CellChangeTimes->{3.9913437875033875`*^9, 3.994250050010943*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"4b10d4db-7ada-4e27-9207-74d0f5188dfb"] }, Open ]], Cell[CellGroupData[{ @@ -5564,13 +5471,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[410]:=",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], + CellLabel->"In[86]:=",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], -Cell[BoxData["0.011613560908040731`"], "Output", - CellChangeTimes->{3.9913437875342865`*^9}, - CellLabel-> - "Out[410]=",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +Cell[BoxData["0.019758369740822724`"], "Output", + CellChangeTimes->{3.9913437875342865`*^9, 3.994250050018612*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"e310d4cf-f450-47eb-ae89-887434a9044e"] }, Open ]], Cell[CellGroupData[{ @@ -5583,13 +5488,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[411]:=",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], + CellLabel->"In[87]:=",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], -Cell[BoxData["8.223604958038852`"], "Output", - CellChangeTimes->{3.9913437876352882`*^9}, - CellLabel-> - "Out[411]=",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +Cell[BoxData["6.304772012032533`"], "Output", + CellChangeTimes->{3.9913437876352882`*^9, 3.99425005005968*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"a698af8a-6c00-4956-8f95-aa7c462c86a1"] }, Open ]], Cell[CellGroupData[{ @@ -5681,13 +5584,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[412]:=",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], + CellLabel->"In[88]:=",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.991343787650694*^9}, - CellLabel-> - "Out[412]=",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +Cell[BoxData["0.09821679951903568`"], "Output", + CellChangeTimes->{3.991343787650694*^9, 3.994250050066997*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"cbb5201d-3687-4201-a294-8529df0c4c66"] }, Open ]], Cell[CellGroupData[{ @@ -5776,13 +5677,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[413]:=",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], + CellLabel->"In[89]:=",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.9913437876776943`*^9}, - CellLabel-> - "Out[413]=",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +Cell[BoxData["0.9017832004809644`"], "Output", + CellChangeTimes->{3.9913437876776943`*^9, 3.9942500500739717`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"84c9655a-7034-4ef0-b09b-a835468e5e46"] }, Open ]], Cell[CellGroupData[{ @@ -5904,19 +5803,17 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel-> - "In[414]:=",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], + CellLabel->"In[90]:=",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913437877049465`*^9}, - CellLabel-> - "Out[414]=",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] +Cell[BoxData["0.08857025981127323`"], "Output", + CellChangeTimes->{3.9913437877049465`*^9, 3.9942500500813713`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"1e095df4-fe6c-4457-a962-87b23e56a075"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"8111b6bb-cdcb-\ -ad40-9440-412e77bed40d"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"8111b6bb-cdcb-ad40-9440-412e77bed40d"], Cell[CellGroupData[{ @@ -5977,68 +5874,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918501532204666`*^9},ExpressionUUID->"fc88a60e-e348-d344-96c4-\ -1f4f66f53217"], + CellChangeTimes->{3.9918501532204666`*^9}, + CellLabel->"In[92]:=",ExpressionUUID->"fc88a60e-e348-d344-96c4-1f4f66f53217"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 415, 433, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437877189426`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.791880078397317`*^-209\\\", \ +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 1, + 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437877189426`*^9, 3.994250050104045*^9}, CellLabel-> "During evaluation of \ -In[415]:=",ExpressionUUID->"0833bd34-3252-a046-9aa3-94c1d6e5cfe9"], +In[92]:=",ExpressionUUID->"3c70cd11-9931-419b-8758-1de74e48ad1a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 415, 434, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343787730139*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.379570710536672`*^-214\\\", \ +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 2, + 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437877189426`*^9, 3.994250050120222*^9}, CellLabel-> "During evaluation of \ -In[415]:=",ExpressionUUID->"f24a3618-ee43-704a-86fe-493dbed35e8d"], +In[92]:=",ExpressionUUID->"b0180274-4bd1-4814-9cc8-d7dac97d9467"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 415, 435, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437877381363`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.026893150384297`*^-219\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 3, + 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437877189426`*^9, 3.994250050123618*^9}, CellLabel-> "During evaluation of \ -In[415]:=",ExpressionUUID->"86271901-aa3c-5542-ab18-fc06d3fd3f32"], +In[92]:=",ExpressionUUID->"da0f8d0d-62a3-4b14-a6a8-c8b6c69de40b"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 415, 436, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343787747137*^9}, +during this calculation.\"", 2, 92, 4, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437877189426`*^9, 3.99425005012649*^9}, CellLabel-> "During evaluation of \ -In[415]:=",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], +In[92]:=",ExpressionUUID->"a5b038d0-e3f5-4f9f-bd78-886169f3efc4"], -Cell[BoxData["5.020278507983898`"], "Output", - CellChangeTimes->{3.991343791131052*^9}, - CellLabel-> - "Out[415]=",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +Cell[BoxData["12.752446655949885`"], "Output", + CellChangeTimes->{3.991343791131052*^9, 3.994250051508388*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"ed8f91a5-e2b5-46f7-b066-1304483e7647"] }, Open ]], Cell[CellGroupData[{ @@ -6100,68 +6002,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918501579408264`*^9},ExpressionUUID->"dca13eb7-7f94-3e45-81a8-\ -b62dad3009d2"], + CellChangeTimes->{3.9918501579408264`*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"dca13eb7-7f94-3e45-81a8-b62dad3009d2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 416, 437, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437911686516`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.791880078397317`*^-209\\\", \ +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 5, + 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437911686516`*^9, 3.9942500516004343`*^9}, CellLabel-> "During evaluation of \ -In[416]:=",ExpressionUUID->"44f2ed65-5109-0141-bef6-eebaeda3d61d"], +In[93]:=",ExpressionUUID->"73a8a68d-a618-442e-8831-c9f9f368698c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 416, 438, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134379117865*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.379570710536672`*^-214\\\", \ +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 6, + 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437911686516`*^9, 3.994250051604095*^9}, CellLabel-> "During evaluation of \ -In[416]:=",ExpressionUUID->"ba49f32e-1ff7-b147-9f42-9c90ccc55447"], +In[93]:=",ExpressionUUID->"03e26a12-10f8-4664-86ec-1688af7ba40b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 416, 439, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437911866493`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.026893150384297`*^-219\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 7, + 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437911686516`*^9, 3.994250051607205*^9}, CellLabel-> "During evaluation of \ -In[416]:=",ExpressionUUID->"fa95acf1-55b2-c042-9a9f-32e1ebea5c1e"], +In[93]:=",ExpressionUUID->"027d27ea-fced-4a50-aee7-a3de630ebdc1"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 416, 440, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437911946507`*^9}, +during this calculation.\"", 2, 93, 8, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437911686516`*^9, 3.994250051610133*^9}, CellLabel-> "During evaluation of \ -In[416]:=",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], +In[93]:=",ExpressionUUID->"5df34ef9-2d35-43b8-be13-24228b647bdd"], -Cell[BoxData["8.223604958038848`"], "Output", - CellChangeTimes->{3.991343794599764*^9}, - CellLabel-> - "Out[416]=",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +Cell[BoxData["6.304772012032532`"], "Output", + CellChangeTimes->{3.991343794599764*^9, 3.994250052997344*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"a4b1b36c-c2c6-46a0-b70b-d200f3871b65"] }, Open ]], Cell[CellGroupData[{ @@ -6171,140 +6078,142 @@ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ - FractionBox[ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", RowBox[{ - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", - RowBox[{"Cos", "[", - FractionBox[ - RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], - RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918501631488323`*^9},ExpressionUUID->"46451e4d-f5ef-b246-91c6-\ -4265c9fafb97"], + CellChangeTimes->{3.9918501631488323`*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"46451e4d-f5ef-b246-91c6-4265c9fafb97"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK -kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB -QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf -41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 -bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 -urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR -rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 -sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM -w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms -l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo -waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml -Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 -4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d -FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta -CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE -5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv -f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf -FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ -WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C -uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 -3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU -qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 -qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu -Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa -Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k -IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 -hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ -EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ -yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd -Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr -F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa -vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U -HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL -W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs -nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP -wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d -hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz -2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf -81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo -dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF -Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 -CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF -NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ -LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ -ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE -965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz -hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v -DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx -HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px -XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 -z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg -fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e -IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m -fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv -J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu -liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE -f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU -c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc -MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE -M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX -hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv -JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q -12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd -7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB -qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 -3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ -cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ -PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb -tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk -Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv -ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP -cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 -/oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE -EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N -KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af -rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS -8X7ZCUqv+v+2j8xX + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hc4Vv0fB3BkZZQRksguZHTfyKi+n8ySGRWJdLvvo5QRklEk60llFz0y +MkoeW2RVKo1fCQ2VonBsIiuOlN/XH+c61+v6nut9PuNcR47hs5/FwcbGNoyv +lfvpVo3N99tbd6WV0W7JLfWhXRP5OgyTYlR2RefzinuydVMVTRqRhofBeXls +W+YbbgH6M7TOfHeiAnZFUPhTLpMW1KVvIayEfen5+qbworfo5P4DbJux69pP +Zy3ROlBrIcNFBXv0y6tzwQ2f0cPDflu2Ym8YUHD+ZdyFhC9HHdPE3jd5Tt+/ +5TvSZdzgpWM/XBrlDyrqRU2CFdLbsT9GSITWeJOou+l1jiH2BLfJ6CxtAP2q +GkkCbO4rvk70+UE0psg/ZYotI5z58nTDMBo+qPVwH7a11K/bE8bjqFopNtcR +m8iRF1fnnUC97nV1R7HDlWyiT7ZMosqCn7s8sD9LfNgWUDSFFit8Us5iMw97 +nki5Mo0+7KllXMD+eZPtVqX3DOoL5cm5hM0rry40RZtD1XENzEzsVOZTcyGx +X6jeRW78DrbsHadwzflfqKYhobcSW29rzIRXwwIyNPpH/BX2cd3vLaPGS0j1 +9ULhH+zZoDOcfMp/ULJcVQ7/nz50oYF/hwrvX6TXF8K9ATsd9P7zaFlGykE6 +G/WwmQUvTfyK2EFg6aRvMHbR85SeCCkOSI66/TkO++eQ67mkKxzQVDpbehP7 +nOpcVbn3Kig90VbwGDu1TE5hksYFYfT0RqG/fehL+/jDv3lc0Hrk0jUlbNnp ++4fXiHHDfM21LgPsYm3rZPV5bhhR46wmsJvrQthPNfBCbdTBhKfYc0/ffx82 +FoB3vztGk5b7kIilgFDoQwEoz1NnK8fW+mACgvqCkHOWM60V27O/OmebxhoY +LtfdK8hGIl+OFq2dAkIgxOx5lIg9IF86Ff1LGGIWF+bL2Ek0S7xa3UYXgXhz +ZeWP2Bz/DcqtPy0CRnbTHUvYsvRN+4vGRCDzok/9Pg4SHTZOrGztEYUbdrvS +JrHb3P38JV6LgfJ101wbThJ9uxN/2Y1XHIitwWPnscfHivLumorDv8F+NcXY +fAHke8MmcUhYbHrLz0UikygHbbdqCXC9uEGmHbs+X3euMFsSHKyR0GkeEuUP +LAYaBEjD2Nm3Puv4SbTnQOw3/xJpGEi922qNPd4salYyKA3/s/+TdQlbO3+r +mKyTDBgEK6SyCZComeFaxbVrE2iPPGifwZ6e7Dk7HCkLIb87r02uIZGol8m9 +Kit5qDhkQewQJdFgPt9xW095OBFbuRiFXdvVLvUjRh6M1y+ztWIfsXSJVG6S +h+Rxe/dj63B9aoH7b9AUID3KPvyqGH7/6J2fYRKKUDw9J/FbgkQOHvzqFr1K +sMN875CaNIlQ4AHaoT9KUB8cxheBrRqdvZ0pqQznogsyPmKz5dGNwuyUYTai +kydShkQl35wPVT5WhrgcS97eTSTiPlgcsSF3M5QNCJRUyOP6TKw+jjJU4JmY +T37BFhLl2ad9nQ9TgZx+tXheFRLFM3p7ODNUYFnRY/AkNvPCmTGZ9ypgN3Cy +j65KIuHGTDZ7Y1Uo/0lf/T81EnnSJ1QbFNRAw/23GK8miaTkE8Iv928FmS4X +m04dEjXGzapQHOqw0cnotr0unseM0wdCTh1i4kfCW7GzmhVVjFzV4XxCRsOz +7SSS96h/t/BJHSK9bQ7U6+N+iweUiNca0DEkub5xJ4mkpWQIWSctkI9/Jihv +RqKtBQECvxENDrK6mcGOJGIwI+fUrWlwkW5kxudEonSF5G9uR2jw3F0vIwN7 +VW5Z+fMgGnSQs9mPDpPoS9aoQ3IFDQyc/MUEXUh0Kd0tU0WBDrkij2oeHMP7 +vWyp4citDSMiXlyBJ0l0y0/RtrpFBz59Vgw1uUCiym9Nl9d36cBFoyFh9ggS +PbFweRE6pgMWr3NpD7H75a/vMuLTBZ0QTRGDSBIpv+dRbzPXBd/MlxZ6MSQq +po+tHnmiCzINzv9ZX8H7ma14urFuOxxNjwkk00nUHoi2RxXoQ5Dm6vKyKhLJ +uXZYu5zaCU9Svh2onyARa7mmVDoY4GmUmW2Wej+SGKvlkWAYwVpXxvcrIf0o +gL6jK1nVBDKH+vX/96ofMX4svRQdNYUd0wWdl+UGUImRP092mznIWiSqrbo0 +gPJnPR8Xp+6Fi9w+PxKnB9DC7vVvmsP3QWioVcYGn0HUzbZqqveYFWjFDmaM +zAwi740+iREKNlBwKTczMHgIlZ542XQt2hYk3jlUaogNo5AZyXm1E3bg7vD4 +75/yYTRnYXbwxdH9kFfG53iBNYL0nZN2D9jZw8hvlckX8qPonWSmZzPdAWJW +y2+x/jaKNtyObCzccgBS7x96UVY9hmp7VC2tBQ/C2SXtf1XixpHMh58egT8O +wpl1h65sYP1A9GtJxXk9h+CdBN3W3XUCZXLOaCQ/dQRnU77iVrtJVLNb80t0 +nRN0WdRYB9F+ovTtccJLRYchvzgncvzhT9T2tSCGfsUZTMcavFzMplC11U1F +3wtHILUyvOJy9xSa8rJn82a6wDkPWcn13tNozkzl+ISxK/B9PnvV5u80KvzR +ueCvexQCukMVq27OIMdbBe4uAm5w9OruSpNts6iqct/RVbFuoL5Wv27k7SzS +l3pHXaLcoMjl4zY9Yg4p9Hh8eXviGOyUPGpYOjuH+vlP2twkj4FKGXRbxv1C +7fHW7uYHGNDu0/y3Ye08Sg3K5j/TzoDxMGJDddo8any4TLnvdYeYWM3oVJEF +tPYIxNLr3WH7g4mTgiELSN9tojBamwmNsmsOuXYtoNs3fvpb6zIhdOMce3n3 +Alr3fnqXhB4T9nyffM32fQFNmM5/KDRkgmTGh4bs3gX8/2JjbzFiwscoG473 +gwtozbywk4gdE8q9UN+aqQXUf1VndbYXE6yFv9Z2clIovuHcidrbTAjIq6go +UqGQFy1NP6iQCb+oLN1GVQpZ3q1YrVfEBOH5N+0tahTiSxu8e7+ECVvSB4zH +1CkU7Wc7WnOPCa6770tL0yh0TkXxZPUTJmy86EE4GFDIM+31qcpvTPiUkBK3 +1oJCe9cM7vDrYcKfx4v6q/ZRaEs0myCtjwl1OUW/5rAH/XRKKgaYMMUzc/2z +FYWOWWf/KB9nwujH9FPJdhRy5PL3LltkQm5amN5nRwqZ+2/wLRZngQaPcVMR +QaEn2TEWyetZELRsXZnkQaEdLdOKQRtYkMW9M+zscQppKb3uNJZhQSx3WS7y +pJDkp1Djr0osaO2ME3/iRaExg25xPh0WbBNS900IoFACR84DD3sWxGc7b7WI +wP1rCqRbHWAB/canLv6LFIpyDvKjH2JBdpPt0RbsoHu2m5cPs0CP3aFzbxSu +n2BPus5gweACI0M3lkL0Vwzms9MsiDDtV/50hUKfkpT4FRJZsL/Pd4iWRqFS +JHh8OIkF2kWEcDN21I/Z5pIUFoTPVGg4pFOItrc5TC+NBZ2MCqPTN/D+2Nyn +rbJYcFJxZ0tWBoXMfHI6g4pZcOJNtemLbApJS/+ju6uUBSLXWlLMcyg0+8on +ZVU5C/ZcoN49x85VRlbxVSz412Ot4pNbFPrT3d2UV8+CTfbxgsV5FLpnKVXY ++pIFnB0dvZZ3KHR5kYMr9RULpBLlaI3YjMLRY04tLAj9dum0aiGFhDjrpfrb +WBAYYvhg1V0KnWpwTKA+4nwl9ui7RRRSUL0eqDjAgufqsw8el1Bo8dP59yOD +LCgYnJjeVEqh9miWVtkwCzTz7cXOY4f1ao/qj+N5Oy3IaZdR6Ev6exebGRZI +FPI5XiunUDKPsGkIOwE/tGQVFKso1Djd7RywioBtPAR3CPZQd5GfNxcBZrz1 +Sa3YO+6Z5DBWE5CQtTHH/x7+3tyCflsIE2AY2JFeUo3rtzQVMRUlYKw/uW4B +23C7iAoSI8BDPS7CqIZCiYLFB+mSBMimNnO/wzas/14hJUfAeH4H2XOfQkRB +8UsxBQLuVLw2lKvFzycGf1+rRMDwI2MDN+xBQlSQU4WAXF9C9cvKuaj58XEt +Ar5uMu94UEeh+r+i4YM0AhTFpI7OYA+M9Fzr0SbgXltH/OZ6Chk0hTz9oEdA +Smj998vY/adKZR4AAfGbA01NGii0xjFU574RAdo3K5e8sfWN91hWmBDw0v6Q +Uzp2vGRfcMEeAnQ/5XIMYddyliVmWxCw84SmjUAjhcjJ0Ds3LAn459UkaGHr +PRfruGpLwPS5LtEAbEZF31jsfgLeaE7PpmBfvVnGcdGBgLNn1oRWYvf57dUK +dCRg1p8WOIYt6Cpu7nuYAA21zWNcD3DeXtLF8wgB0n5LnJuwr246f9nVjYCg +/M2brbBr+SxyHRl4Xmremgzsvjnxuv1MAuRCA7vOYAv2km2WBAFp7AYa/6zk +tZQPmh3H/edWKt7AZtw//wc8CZCp/vKocCU/12Kd4SkC9DlLlmtW8q9KqOl4 +E1Deqtj/dCU/qH+3pi8BW1/s9GrDFmBWOKr4EWC+bvbfTuztNmE+CgEEhNua +ePWt5Bvsi5EOJEAvTq1/BPuK0vpMiSACHhnfWZ7ErhEaqBIOIcDZv/rRLHbv +74pX/OfwvCMdFBdW8ofCernCCAi0i1RfxNZ9t29hORzPR2v31xX/H+iKCew= + "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -6318,105 +6227,107 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK -kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB -QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf -41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 -bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 -urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR -rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 -sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM -w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms -l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo -waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml -Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 -4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d -FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta -CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE -5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv -f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf -FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ -WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C -uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 -3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU -qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 -qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu -Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa -Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k -IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 -hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ -EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ -yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd -Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr -F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa -vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U -HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL -W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs -nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP -wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d -hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz -2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf -81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo -dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF -Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 -CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF -NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ -LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ -ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE -965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz -hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v -DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx -HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px -XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 -z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg -fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e -IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m -fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv -J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu -liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE -f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU -c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc -MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE -M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX -hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv -JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q -12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd -7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB -qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 -3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ -cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ -PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb -tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk -Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv -ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP -cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 -/oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE -EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N -KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af -rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS -8X7ZCUqv+v+2j8xX +1:eJwV1Hc4Vv0fB3BkZZQRksguZHTfyKi+n8ySGRWJdLvvo5QRklEk60llFz0y +MkoeW2RVKo1fCQ2VonBsIiuOlN/XH+c61+v6nut9PuNcR47hs5/FwcbGNoyv +lfvpVo3N99tbd6WV0W7JLfWhXRP5OgyTYlR2RefzinuydVMVTRqRhofBeXls +W+YbbgH6M7TOfHeiAnZFUPhTLpMW1KVvIayEfen5+qbworfo5P4DbJux69pP +Zy3ROlBrIcNFBXv0y6tzwQ2f0cPDflu2Ym8YUHD+ZdyFhC9HHdPE3jd5Tt+/ +5TvSZdzgpWM/XBrlDyrqRU2CFdLbsT9GSITWeJOou+l1jiH2BLfJ6CxtAP2q +GkkCbO4rvk70+UE0psg/ZYotI5z58nTDMBo+qPVwH7a11K/bE8bjqFopNtcR +m8iRF1fnnUC97nV1R7HDlWyiT7ZMosqCn7s8sD9LfNgWUDSFFit8Us5iMw97 +nki5Mo0+7KllXMD+eZPtVqX3DOoL5cm5hM0rry40RZtD1XENzEzsVOZTcyGx +X6jeRW78DrbsHadwzflfqKYhobcSW29rzIRXwwIyNPpH/BX2cd3vLaPGS0j1 +9ULhH+zZoDOcfMp/ULJcVQ7/nz50oYF/hwrvX6TXF8K9ATsd9P7zaFlGykE6 +G/WwmQUvTfyK2EFg6aRvMHbR85SeCCkOSI66/TkO++eQ67mkKxzQVDpbehP7 +nOpcVbn3Kig90VbwGDu1TE5hksYFYfT0RqG/fehL+/jDv3lc0Hrk0jUlbNnp ++4fXiHHDfM21LgPsYm3rZPV5bhhR46wmsJvrQthPNfBCbdTBhKfYc0/ffx82 +FoB3vztGk5b7kIilgFDoQwEoz1NnK8fW+mACgvqCkHOWM60V27O/OmebxhoY +LtfdK8hGIl+OFq2dAkIgxOx5lIg9IF86Ff1LGGIWF+bL2Ek0S7xa3UYXgXhz +ZeWP2Bz/DcqtPy0CRnbTHUvYsvRN+4vGRCDzok/9Pg4SHTZOrGztEYUbdrvS +JrHb3P38JV6LgfJ101wbThJ9uxN/2Y1XHIitwWPnscfHivLumorDv8F+NcXY +fAHke8MmcUhYbHrLz0UikygHbbdqCXC9uEGmHbs+X3euMFsSHKyR0GkeEuUP +LAYaBEjD2Nm3Puv4SbTnQOw3/xJpGEi922qNPd4salYyKA3/s/+TdQlbO3+r +mKyTDBgEK6SyCZComeFaxbVrE2iPPGifwZ6e7Dk7HCkLIb87r02uIZGol8m9 +Kit5qDhkQewQJdFgPt9xW095OBFbuRiFXdvVLvUjRh6M1y+ztWIfsXSJVG6S +h+Rxe/dj63B9aoH7b9AUID3KPvyqGH7/6J2fYRKKUDw9J/FbgkQOHvzqFr1K +sMN875CaNIlQ4AHaoT9KUB8cxheBrRqdvZ0pqQznogsyPmKz5dGNwuyUYTai +kydShkQl35wPVT5WhrgcS97eTSTiPlgcsSF3M5QNCJRUyOP6TKw+jjJU4JmY +T37BFhLl2ad9nQ9TgZx+tXheFRLFM3p7ODNUYFnRY/AkNvPCmTGZ9ypgN3Cy +j65KIuHGTDZ7Y1Uo/0lf/T81EnnSJ1QbFNRAw/23GK8miaTkE8Iv928FmS4X +m04dEjXGzapQHOqw0cnotr0unseM0wdCTh1i4kfCW7GzmhVVjFzV4XxCRsOz +7SSS96h/t/BJHSK9bQ7U6+N+iweUiNca0DEkub5xJ4mkpWQIWSctkI9/Jihv +RqKtBQECvxENDrK6mcGOJGIwI+fUrWlwkW5kxudEonSF5G9uR2jw3F0vIwN7 +VW5Z+fMgGnSQs9mPDpPoS9aoQ3IFDQyc/MUEXUh0Kd0tU0WBDrkij2oeHMP7 +vWyp4citDSMiXlyBJ0l0y0/RtrpFBz59Vgw1uUCiym9Nl9d36cBFoyFh9ggS +PbFweRE6pgMWr3NpD7H75a/vMuLTBZ0QTRGDSBIpv+dRbzPXBd/MlxZ6MSQq +po+tHnmiCzINzv9ZX8H7ma14urFuOxxNjwkk00nUHoi2RxXoQ5Dm6vKyKhLJ +uXZYu5zaCU9Svh2onyARa7mmVDoY4GmUmW2Wej+SGKvlkWAYwVpXxvcrIf0o +gL6jK1nVBDKH+vX/96ofMX4svRQdNYUd0wWdl+UGUImRP092mznIWiSqrbo0 +gPJnPR8Xp+6Fi9w+PxKnB9DC7vVvmsP3QWioVcYGn0HUzbZqqveYFWjFDmaM +zAwi740+iREKNlBwKTczMHgIlZ542XQt2hYk3jlUaogNo5AZyXm1E3bg7vD4 +75/yYTRnYXbwxdH9kFfG53iBNYL0nZN2D9jZw8hvlckX8qPonWSmZzPdAWJW +y2+x/jaKNtyObCzccgBS7x96UVY9hmp7VC2tBQ/C2SXtf1XixpHMh58egT8O +wpl1h65sYP1A9GtJxXk9h+CdBN3W3XUCZXLOaCQ/dQRnU77iVrtJVLNb80t0 +nRN0WdRYB9F+ovTtccJLRYchvzgncvzhT9T2tSCGfsUZTMcavFzMplC11U1F +3wtHILUyvOJy9xSa8rJn82a6wDkPWcn13tNozkzl+ISxK/B9PnvV5u80KvzR +ueCvexQCukMVq27OIMdbBe4uAm5w9OruSpNts6iqct/RVbFuoL5Wv27k7SzS +l3pHXaLcoMjl4zY9Yg4p9Hh8eXviGOyUPGpYOjuH+vlP2twkj4FKGXRbxv1C +7fHW7uYHGNDu0/y3Ye08Sg3K5j/TzoDxMGJDddo8any4TLnvdYeYWM3oVJEF +tPYIxNLr3WH7g4mTgiELSN9tojBamwmNsmsOuXYtoNs3fvpb6zIhdOMce3n3 +Alr3fnqXhB4T9nyffM32fQFNmM5/KDRkgmTGh4bs3gX8/2JjbzFiwscoG473 +gwtozbywk4gdE8q9UN+aqQXUf1VndbYXE6yFv9Z2clIovuHcidrbTAjIq6go +UqGQFy1NP6iQCb+oLN1GVQpZ3q1YrVfEBOH5N+0tahTiSxu8e7+ECVvSB4zH +1CkU7Wc7WnOPCa6770tL0yh0TkXxZPUTJmy86EE4GFDIM+31qcpvTPiUkBK3 +1oJCe9cM7vDrYcKfx4v6q/ZRaEs0myCtjwl1OUW/5rAH/XRKKgaYMMUzc/2z +FYWOWWf/KB9nwujH9FPJdhRy5PL3LltkQm5amN5nRwqZ+2/wLRZngQaPcVMR +QaEn2TEWyetZELRsXZnkQaEdLdOKQRtYkMW9M+zscQppKb3uNJZhQSx3WS7y +pJDkp1Djr0osaO2ME3/iRaExg25xPh0WbBNS900IoFACR84DD3sWxGc7b7WI +wP1rCqRbHWAB/canLv6LFIpyDvKjH2JBdpPt0RbsoHu2m5cPs0CP3aFzbxSu +n2BPus5gweACI0M3lkL0Vwzms9MsiDDtV/50hUKfkpT4FRJZsL/Pd4iWRqFS +JHh8OIkF2kWEcDN21I/Z5pIUFoTPVGg4pFOItrc5TC+NBZ2MCqPTN/D+2Nyn +rbJYcFJxZ0tWBoXMfHI6g4pZcOJNtemLbApJS/+ju6uUBSLXWlLMcyg0+8on +ZVU5C/ZcoN49x85VRlbxVSz412Ot4pNbFPrT3d2UV8+CTfbxgsV5FLpnKVXY ++pIFnB0dvZZ3KHR5kYMr9RULpBLlaI3YjMLRY04tLAj9dum0aiGFhDjrpfrb +WBAYYvhg1V0KnWpwTKA+4nwl9ui7RRRSUL0eqDjAgufqsw8el1Bo8dP59yOD +LCgYnJjeVEqh9miWVtkwCzTz7cXOY4f1ao/qj+N5Oy3IaZdR6Ev6exebGRZI +FPI5XiunUDKPsGkIOwE/tGQVFKso1Djd7RywioBtPAR3CPZQd5GfNxcBZrz1 +Sa3YO+6Z5DBWE5CQtTHH/x7+3tyCflsIE2AY2JFeUo3rtzQVMRUlYKw/uW4B +23C7iAoSI8BDPS7CqIZCiYLFB+mSBMimNnO/wzas/14hJUfAeH4H2XOfQkRB +8UsxBQLuVLw2lKvFzycGf1+rRMDwI2MDN+xBQlSQU4WAXF9C9cvKuaj58XEt +Ar5uMu94UEeh+r+i4YM0AhTFpI7OYA+M9Fzr0SbgXltH/OZ6Chk0hTz9oEdA +Smj998vY/adKZR4AAfGbA01NGii0xjFU574RAdo3K5e8sfWN91hWmBDw0v6Q +Uzp2vGRfcMEeAnQ/5XIMYddyliVmWxCw84SmjUAjhcjJ0Ds3LAn459UkaGHr +PRfruGpLwPS5LtEAbEZF31jsfgLeaE7PpmBfvVnGcdGBgLNn1oRWYvf57dUK +dCRg1p8WOIYt6Cpu7nuYAA21zWNcD3DeXtLF8wgB0n5LnJuwr246f9nVjYCg +/M2brbBr+SxyHRl4Xmremgzsvjnxuv1MAuRCA7vOYAv2km2WBAFp7AYa/6zk +tZQPmh3H/edWKt7AZtw//wc8CZCp/vKocCU/12Kd4SkC9DlLlmtW8q9KqOl4 +E1Deqtj/dCU/qH+3pi8BW1/s9GrDFmBWOKr4EWC+bvbfTuztNmE+CgEEhNua +ePWt5Bvsi5EOJEAvTq1/BPuK0vpMiSACHhnfWZ7ErhEaqBIOIcDZv/rRLHbv +74pX/OfwvCMdFBdW8ofCernCCAi0i1RfxNZ9t29hORzPR2v31xX/H+iKCew= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.7504249066936067}, + "PlotRange" -> {{0, 180}, {0.5932777546308782, + 1.6088818134912901`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5932777546308795}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -6428,20 +6339,21 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, + "PlotRange" -> {{0, 180}, {0.5932777546308782, + 1.6088818134912901`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.7504249066936067}, + "AxesOrigin" -> {0, 0.5932777546308795}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -6455,104 +6367,105 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK -kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB -QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf -41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 -bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 -urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR -rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 -sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM -w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms -l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo -waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml -Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 -4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d -FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta -CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE -5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv -f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf -FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ -WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C -uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 -3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU -qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 -qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu -Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa -Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k -IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 -hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ -EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ -yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd -Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr -F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa -vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U -HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL -W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs -nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP -wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d -hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz -2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf -81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo -dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF -Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 -CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF -NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ -LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ -ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE -965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz -hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v -DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx -HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px -XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 -z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg -fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e -IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m -fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv -J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu -liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE -f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU -c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc -MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE -M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX -hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv -JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q -12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd -7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB -qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 -3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ -cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ -PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb -tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk -Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv -ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP -cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 -/oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE -EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N -KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af -rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS -8X7ZCUqv+v+2j8xX +1:eJwV1Hc4Vv0fB3BkZZQRksguZHTfyKi+n8ySGRWJdLvvo5QRklEk60llFz0y +MkoeW2RVKo1fCQ2VonBsIiuOlN/XH+c61+v6nut9PuNcR47hs5/FwcbGNoyv +lfvpVo3N99tbd6WV0W7JLfWhXRP5OgyTYlR2RefzinuydVMVTRqRhofBeXls +W+YbbgH6M7TOfHeiAnZFUPhTLpMW1KVvIayEfen5+qbworfo5P4DbJux69pP +Zy3ROlBrIcNFBXv0y6tzwQ2f0cPDflu2Ym8YUHD+ZdyFhC9HHdPE3jd5Tt+/ +5TvSZdzgpWM/XBrlDyrqRU2CFdLbsT9GSITWeJOou+l1jiH2BLfJ6CxtAP2q +GkkCbO4rvk70+UE0psg/ZYotI5z58nTDMBo+qPVwH7a11K/bE8bjqFopNtcR +m8iRF1fnnUC97nV1R7HDlWyiT7ZMosqCn7s8sD9LfNgWUDSFFit8Us5iMw97 +nki5Mo0+7KllXMD+eZPtVqX3DOoL5cm5hM0rry40RZtD1XENzEzsVOZTcyGx +X6jeRW78DrbsHadwzflfqKYhobcSW29rzIRXwwIyNPpH/BX2cd3vLaPGS0j1 +9ULhH+zZoDOcfMp/ULJcVQ7/nz50oYF/hwrvX6TXF8K9ATsd9P7zaFlGykE6 +G/WwmQUvTfyK2EFg6aRvMHbR85SeCCkOSI66/TkO++eQ67mkKxzQVDpbehP7 +nOpcVbn3Kig90VbwGDu1TE5hksYFYfT0RqG/fehL+/jDv3lc0Hrk0jUlbNnp ++4fXiHHDfM21LgPsYm3rZPV5bhhR46wmsJvrQthPNfBCbdTBhKfYc0/ffx82 +FoB3vztGk5b7kIilgFDoQwEoz1NnK8fW+mACgvqCkHOWM60V27O/OmebxhoY +LtfdK8hGIl+OFq2dAkIgxOx5lIg9IF86Ff1LGGIWF+bL2Ek0S7xa3UYXgXhz +ZeWP2Bz/DcqtPy0CRnbTHUvYsvRN+4vGRCDzok/9Pg4SHTZOrGztEYUbdrvS +JrHb3P38JV6LgfJ101wbThJ9uxN/2Y1XHIitwWPnscfHivLumorDv8F+NcXY +fAHke8MmcUhYbHrLz0UikygHbbdqCXC9uEGmHbs+X3euMFsSHKyR0GkeEuUP +LAYaBEjD2Nm3Puv4SbTnQOw3/xJpGEi922qNPd4salYyKA3/s/+TdQlbO3+r +mKyTDBgEK6SyCZComeFaxbVrE2iPPGifwZ6e7Dk7HCkLIb87r02uIZGol8m9 +Kit5qDhkQewQJdFgPt9xW095OBFbuRiFXdvVLvUjRh6M1y+ztWIfsXSJVG6S +h+Rxe/dj63B9aoH7b9AUID3KPvyqGH7/6J2fYRKKUDw9J/FbgkQOHvzqFr1K +sMN875CaNIlQ4AHaoT9KUB8cxheBrRqdvZ0pqQznogsyPmKz5dGNwuyUYTai +kydShkQl35wPVT5WhrgcS97eTSTiPlgcsSF3M5QNCJRUyOP6TKw+jjJU4JmY +T37BFhLl2ad9nQ9TgZx+tXheFRLFM3p7ODNUYFnRY/AkNvPCmTGZ9ypgN3Cy +j65KIuHGTDZ7Y1Uo/0lf/T81EnnSJ1QbFNRAw/23GK8miaTkE8Iv928FmS4X +m04dEjXGzapQHOqw0cnotr0unseM0wdCTh1i4kfCW7GzmhVVjFzV4XxCRsOz +7SSS96h/t/BJHSK9bQ7U6+N+iweUiNca0DEkub5xJ4mkpWQIWSctkI9/Jihv +RqKtBQECvxENDrK6mcGOJGIwI+fUrWlwkW5kxudEonSF5G9uR2jw3F0vIwN7 +VW5Z+fMgGnSQs9mPDpPoS9aoQ3IFDQyc/MUEXUh0Kd0tU0WBDrkij2oeHMP7 +vWyp4citDSMiXlyBJ0l0y0/RtrpFBz59Vgw1uUCiym9Nl9d36cBFoyFh9ggS +PbFweRE6pgMWr3NpD7H75a/vMuLTBZ0QTRGDSBIpv+dRbzPXBd/MlxZ6MSQq +po+tHnmiCzINzv9ZX8H7ma14urFuOxxNjwkk00nUHoi2RxXoQ5Dm6vKyKhLJ +uXZYu5zaCU9Svh2onyARa7mmVDoY4GmUmW2Wej+SGKvlkWAYwVpXxvcrIf0o +gL6jK1nVBDKH+vX/96ofMX4svRQdNYUd0wWdl+UGUImRP092mznIWiSqrbo0 +gPJnPR8Xp+6Fi9w+PxKnB9DC7vVvmsP3QWioVcYGn0HUzbZqqveYFWjFDmaM +zAwi740+iREKNlBwKTczMHgIlZ542XQt2hYk3jlUaogNo5AZyXm1E3bg7vD4 +75/yYTRnYXbwxdH9kFfG53iBNYL0nZN2D9jZw8hvlckX8qPonWSmZzPdAWJW +y2+x/jaKNtyObCzccgBS7x96UVY9hmp7VC2tBQ/C2SXtf1XixpHMh58egT8O +wpl1h65sYP1A9GtJxXk9h+CdBN3W3XUCZXLOaCQ/dQRnU77iVrtJVLNb80t0 +nRN0WdRYB9F+ovTtccJLRYchvzgncvzhT9T2tSCGfsUZTMcavFzMplC11U1F +3wtHILUyvOJy9xSa8rJn82a6wDkPWcn13tNozkzl+ISxK/B9PnvV5u80KvzR +ueCvexQCukMVq27OIMdbBe4uAm5w9OruSpNts6iqct/RVbFuoL5Wv27k7SzS +l3pHXaLcoMjl4zY9Yg4p9Hh8eXviGOyUPGpYOjuH+vlP2twkj4FKGXRbxv1C +7fHW7uYHGNDu0/y3Ye08Sg3K5j/TzoDxMGJDddo8any4TLnvdYeYWM3oVJEF +tPYIxNLr3WH7g4mTgiELSN9tojBamwmNsmsOuXYtoNs3fvpb6zIhdOMce3n3 +Alr3fnqXhB4T9nyffM32fQFNmM5/KDRkgmTGh4bs3gX8/2JjbzFiwscoG473 +gwtozbywk4gdE8q9UN+aqQXUf1VndbYXE6yFv9Z2clIovuHcidrbTAjIq6go +UqGQFy1NP6iQCb+oLN1GVQpZ3q1YrVfEBOH5N+0tahTiSxu8e7+ECVvSB4zH +1CkU7Wc7WnOPCa6770tL0yh0TkXxZPUTJmy86EE4GFDIM+31qcpvTPiUkBK3 +1oJCe9cM7vDrYcKfx4v6q/ZRaEs0myCtjwl1OUW/5rAH/XRKKgaYMMUzc/2z +FYWOWWf/KB9nwujH9FPJdhRy5PL3LltkQm5amN5nRwqZ+2/wLRZngQaPcVMR +QaEn2TEWyetZELRsXZnkQaEdLdOKQRtYkMW9M+zscQppKb3uNJZhQSx3WS7y +pJDkp1Djr0osaO2ME3/iRaExg25xPh0WbBNS900IoFACR84DD3sWxGc7b7WI +wP1rCqRbHWAB/canLv6LFIpyDvKjH2JBdpPt0RbsoHu2m5cPs0CP3aFzbxSu +n2BPus5gweACI0M3lkL0Vwzms9MsiDDtV/50hUKfkpT4FRJZsL/Pd4iWRqFS +JHh8OIkF2kWEcDN21I/Z5pIUFoTPVGg4pFOItrc5TC+NBZ2MCqPTN/D+2Nyn +rbJYcFJxZ0tWBoXMfHI6g4pZcOJNtemLbApJS/+ju6uUBSLXWlLMcyg0+8on +ZVU5C/ZcoN49x85VRlbxVSz412Ot4pNbFPrT3d2UV8+CTfbxgsV5FLpnKVXY ++pIFnB0dvZZ3KHR5kYMr9RULpBLlaI3YjMLRY04tLAj9dum0aiGFhDjrpfrb +WBAYYvhg1V0KnWpwTKA+4nwl9ui7RRRSUL0eqDjAgufqsw8el1Bo8dP59yOD +LCgYnJjeVEqh9miWVtkwCzTz7cXOY4f1ao/qj+N5Oy3IaZdR6Ev6exebGRZI +FPI5XiunUDKPsGkIOwE/tGQVFKso1Djd7RywioBtPAR3CPZQd5GfNxcBZrz1 +Sa3YO+6Z5DBWE5CQtTHH/x7+3tyCflsIE2AY2JFeUo3rtzQVMRUlYKw/uW4B +23C7iAoSI8BDPS7CqIZCiYLFB+mSBMimNnO/wzas/14hJUfAeH4H2XOfQkRB +8UsxBQLuVLw2lKvFzycGf1+rRMDwI2MDN+xBQlSQU4WAXF9C9cvKuaj58XEt +Ar5uMu94UEeh+r+i4YM0AhTFpI7OYA+M9Fzr0SbgXltH/OZ6Chk0hTz9oEdA +Smj998vY/adKZR4AAfGbA01NGii0xjFU574RAdo3K5e8sfWN91hWmBDw0v6Q +Uzp2vGRfcMEeAnQ/5XIMYddyliVmWxCw84SmjUAjhcjJ0Ds3LAn459UkaGHr +PRfruGpLwPS5LtEAbEZF31jsfgLeaE7PpmBfvVnGcdGBgLNn1oRWYvf57dUK +dCRg1p8WOIYt6Cpu7nuYAA21zWNcD3DeXtLF8wgB0n5LnJuwr246f9nVjYCg +/M2brbBr+SxyHRl4Xmremgzsvjnxuv1MAuRCA7vOYAv2km2WBAFp7AYa/6zk +tZQPmh3H/edWKt7AZtw//wc8CZCp/vKocCU/12Kd4SkC9DlLlmtW8q9KqOl4 +E1Deqtj/dCU/qH+3pi8BW1/s9GrDFmBWOKr4EWC+bvbfTuztNmE+CgEEhNua +ePWt5Bvsi5EOJEAvTq1/BPuK0vpMiSACHhnfWZ7ErhEaqBIOIcDZv/rRLHbv +74pX/OfwvCMdFBdW8ofCernCCAi0i1RfxNZ9t29hORzPR2v31xX/H+iKCew= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, + "PlotRange" -> {{0, 180}, {0.5932777546308782, 1.6088818134912901`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.7504249066936067}, + "AxesOrigin" -> {0, 0.5932777546308795}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -6562,7 +6475,8 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.7504249066936067}, + AxesOrigin->{0, 0.5932777546308795}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -6590,7 +6504,8 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.7504249066936051, 1.313047485013753}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.5932777546308782, 1.6088818134912901`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -6598,9 +6513,8 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913440619685707`*^9}, - CellLabel-> - "Out[417]=",ExpressionUUID->"0e6ef056-d4e3-ac4d-9f2a-df071f8decb1"] + CellChangeTimes->{3.9913440619685707`*^9, 3.994250408834568*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"831f3c7e-8ccc-42ec-8bec-a4897e96bd28"] }, Open ]], Cell[CellGroupData[{ @@ -6663,340 +6577,159 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918501659425144`*^9},ExpressionUUID->"06bd0169-a5a6-404c-935d-\ -e1a61565f71e"], + CellChangeTimes->{3.9918501659425144`*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"06bd0169-a5a6-404c-935d-e1a61565f71e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.7414575136308495`*^-273\\\", \ + "\"\\!\\(\\*FractionBox[\\\"6.317853740732868`*^-274\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 418, - 441, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913440621885586`*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 95, 9, + 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913440621885586`*^9, 3.994250409384728*^9}, CellLabel-> "During evaluation of \ -In[418]:=",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], +In[95]:=",ExpressionUUID->"73047025-7673-4ae2-bc1e-79cd3667cb1c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.133412609607657`*^-284\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.613725448315115`*^-285\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 418, 442, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913440621975574`*^9}, +to represent as a normalized machine number; precision may be lost.\"", 2, 95, + 10, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913440621885586`*^9, 3.9942504093933496`*^9}, CellLabel-> "During evaluation of \ -In[418]:=",ExpressionUUID->"637082a9-fe74-7345-8895-dee77343ee6f"], +In[95]:=",ExpressionUUID->"5f736add-1e07-4fc8-a677-915c12a44d6f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.599262146182568`*^-296\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.0813103625880375`*^-296\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 418, 443, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991344062205559*^9}, + 2, 95, 11, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913440621885586`*^9, 3.994250409400873*^9}, CellLabel-> "During evaluation of \ -In[418]:=",ExpressionUUID->"b2e7262c-7c6d-d94d-a545-ea4b363e579a"], +In[95]:=",ExpressionUUID->"889fe2a4-d380-49bc-bf51-952606299e5b"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 418, 444, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134406221356*^9}, +during this calculation.\"", 2, 95, 12, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913440621885586`*^9, 3.994250409410754*^9}, CellLabel-> "During evaluation of \ -In[418]:=",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], +In[95]:=",ExpressionUUID->"81971340-0768-495c-ac1b-8232033cc0da"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ -494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L -A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ -HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq -DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ -bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn -5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ -Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC -H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF -7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ -+1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 -gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq -rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG -C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ -Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe -elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 -df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ -vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB -B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD -TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti -B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 -wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls -L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN -3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI -ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya -zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u -TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X -WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF -ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s -Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff -QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn -t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi -Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV -7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih -Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde -vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA -dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 -BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G -LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD -55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK -+Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM -zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk -rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a -uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 -8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 -ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt -FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK -+fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em -6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 -q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY -Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF -pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU -XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz -qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb -6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 -e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud -zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg -7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY -jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L -EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 -0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e -ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn -9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY -hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy -8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp -Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd -Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM -VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW -w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 -uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj -yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt -r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt -06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 -XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP -R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np -bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe -GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb -bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl -X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq -Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb -Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 -q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E -97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo -JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT -bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr -PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A -kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me -BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF -bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z -+FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 -2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG -lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 -7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U -sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw -pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa -vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW -g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn -hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 -C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 -mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i -3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg -GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ -cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI -hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R -E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ -T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv -+isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 -VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq -LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu -2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY -hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL -bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ -Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo -wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 -uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m -MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV -LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY -esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX -Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS -oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 -2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F -cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 -hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU -s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k -7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe -ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 -H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX -BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ -HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR -XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz -oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 -YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO -8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK -+5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR -T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 -g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn -ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz -95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC -nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf -TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ -MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k -Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH -lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn -0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr -zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD -F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 -GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ -V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu -e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW -zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V -vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 -twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 -uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx -5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 -uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc -0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX -Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO -/joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r -ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht -Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI -W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF -6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU -HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A -9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e -E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V -M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb -IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg -7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf -AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 -oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 -vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC -1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 -P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy -0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg -l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ -riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG -/aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c -4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 -BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st -/KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq -DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp -13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj -mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q -JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI -Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 -1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F -4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk -Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha -+OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl -jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl -dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX -jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 -25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB -dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM -4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 -A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 -VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd -zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo -9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 -NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh -qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq -zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd -ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo -oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I -DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf -lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl -5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL -M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs -h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j -1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv -U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg -75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS -kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG -hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN -RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 -a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x -UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 -ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu -8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX -u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI -RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj -ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC -sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR -i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww -lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou -LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 -Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE -QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK -74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK -nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF -xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH -KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY -uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 -9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr -oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E -iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w -L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U -ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t -Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW -38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs -grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB -TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj -yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL -GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l -TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq -WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw -PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 -/KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx -JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 -qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl -p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx -N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x -hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn -izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE -LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM -rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE -p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 -YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH -FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX -piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz -X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 -+VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO -phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg -9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC -ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU -ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 -HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t -BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF -ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM -mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI -FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM -xZ+NDXq9HfXOhZcGEP8DWaJNdQ== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VO/7B3DyqZRIQojBzBmDrC1kGfcdfYhESgsVyr6vkaVs2VJRyk4l +Scycyq+FKIo2qVSKKCT1KQllSSK/5/vHueZ6XXNd5zn3c577Pfco7wvc4j5H +QEBgjiC5yOdE9+MmKr3UpDfA+Lqah4FJW7FM5LqOBNDLrVoZY70MUOr5PpmO +kwAzg8kW1hwI31zRLtRRAvd2LzqvYq0PS4aWnfzdXgWvTtv//rPRAnrqbALH +2u+Bpqrgw4Mbd4A5NfD+R/tLkAi+bFtg6Qm/2/VPj7T3gbmo/hKGaQQ0ml0s +fVEyCrGKiZ59sqkg31PzeZ/GDHgyRDug/gRI+jlXzDcTwvQHyz5oqubASV3z +WpttwtjzR9Be+n4hvM3VafghLoo/v1/nVXedhfTS2OdzZJdgoXSn70HH87Ds +1Me0rKKl+Fo7ePxKzgVIsbc0eTkhhdKnRT0bIi9CqME558cJMuiRz2xeY3EJ +1g9PRQV8lEO9NU/zXtVUQOSGU+p3B+XwjWpu5cL6CqDPaXYunZBDTZkWyqSp +AmTsXQxqhJdjSusO6/xnFTBYff+XkNZyrExL8+J8rICshMywvAPL0X+DZeEp +kUrok1IJaBKVR0/nhC01DpUQb2y3V26tAv6NtytU/lYJG5yKf+qbKuBgNyvu +2XAliMV9S9xmrYAZn0bkIsYqobAxqSzTRQEDs2T2185UQrXVrW/z0hQwU0m9 +RlycByM7WeGjbxXQZHht0PdVPHDaP36kJZqB/bpGdoEHeMDOMZUfSGKgR//k +5MkYHnneDP78TAYazy/fXhXHg6hptVbTUga6nhBY3Z/Kg9OJTlI1LQy8aNET +IZnHg5YTD89cUFDEWvGvuhereWBI5107VK+ImwIrJLLHeLC+/dnM0CNFhEKP +uaO/eGAj8I+F80tFzJHrMbH+wwPXLQFv4ZMiHk/OSB4V5IN5tHJs3FwllPrS +5ye1mA9BihPn161QwubniTfLVPnQ5Hnme2O4Ejo2pB8ScOCD5bSBREy0EvJW +hed/3sWHZ5lteqvjlLBN8sucx058eFuzIK40TQnPxdvcSnDjw5BImERSoRJm +Nj54/DiQDzJXNuib31NCJcnekrIkPvhN/oh7JKqMhmbFSkU0HwyDPaQ/Syhj +n99I+rqrfBAe6KwUklHGRpO95R/+jw8XuhrfmDCVcWZ2/YRkDR+675zWuK6n +jKun2n9YNPLBNsmg45yzMn7UTH3c84YPjL98/3o38r3Xpih4y4fBcKbQe29l +zDXlfszv4kOql4iWTJgy/ueW0LO+lw8NG98nHk9VxmezihnuX/mwUiJeO/qq +MhZoPTTonOKDQPp4U+4NZbT0Uy4fnyb1C/k43qhVxjJr/ptFs3zwHd+S9OO+ +MkpEHQzXEqKhtIPq8uwk6xVrtpqI0CB95lGyvRATe27t8jolR8PvFeLdmtuY +aHjt/rplejRMFMnFr3Jkoq0FZ3+pPg1ji9mUgTMTX7c6lmga0DA0auCz3puJ +X3PowVXGNPTVuk44HmTiQEPEFnFTGpo33hRLvcDEo+z7I8KbaHh4++7VYxVM +ZNkMLdpuQ0OTdot91mUmBmWyNc/Y0nBn6Yf84homhjr5xLC30FDVtZBz/SkT +zzZpec/ZQUO+rxP0jTORM+gg9deZhpz3Xn3/TTFRSd+oSWQvDadsQ5O+zzIR +z65NkNpHw/FVqU8mF7Cw0sNTS8GNhoQ/V3csZrAwbmv3rhlPGmL966YkWSzU +Se/P+eZFQ0zPgyI5VRYmn+388tqbhvDGro/slSyUXZXRUuxLg2/63CBjcxbS +5kuvCAbS4DWzeKnpRhZ+Nz5a3krsESh3w2IzC+0/T9UWBNHgslV7eosjC48N +NeuphNBgv9wh1TuAhfvmvjuxaD8NdsdcVwSGsnCr8/mIOmKbWf9nYQdYKJic +c8grnIYNHxMk4xJYmL5WZ/RaBA3Glbyz2dksDN0TekwxioYupcoz/xawMFt3 +6FsZcVT2peKxMyxUDOb8VI+m4WZ8WeGWSyx87hI5qRpDw/ZfpQWCNAtVMz79 +LiEe8zuff6WKhfeomxdkD9KwcufZXLE6Frpc1J+dJn7xtDjndgML/00zob0P +0RBkVpTtd5+Fx2sdF74iprXyTzU/Y+GIRFpLQSwNanNPZSZ/YOGykDfpc+Np +eBR1MmPNZxZGdhbe2EHsMZJ5vH+AhXN7f2aVEZd2HTtqOkbqtZLyNkygwczu +aPqPSRbKPTXfF0vc9+DIkbMzLBRWfyl+l1ipKiX17zwK3YsfZBom0lDPSU7h +i1C4gspzDSF2KjqcvFucwpfOuUNlxNMSiUkiUhTOOkWt7CAuSI0/fEuWwqs3 +x7XnHabB8G9sojeDwiWpd//TIe4IPZQgwyIOP+24kzjia0z8Qw6FcpfV0mKI +pZ2j48I1KGz5Ty+siPh6W2QsW5fCwl3h8rXE9lYHDrWtofB0y7mE18Sj9eEH +Ew0p/JsQenGQ+OSa/TErgcIFm8rSBZJo0K0Mjf5gRmHKoXHtJcStSiFRmRso +zB2RP80gDsgOioRNFLoIvq1VJRZdFHhgyI7CkqzPpdrEvHj/iKLtFJ4QE7Jb +RWz1yzfceheFe/YMNvzPX/189v9xpnBsyGVchzi1zyuswo3C69cVh9WJOTs9 +Qx28SX2cL7Qy8YOn7iHCAWQ9o6g1UsTuZm7BN0MoNPXPTpxL/E/NviCPCAqL +a2byfpJ6zmvtDZSKoVDjTHDkO2LTUueApjgKWYxrzEbiXlkn/9AkCv/cTMku +I47N2O3HPELhTMDl18nEjLm7fF8cp3DRg6FeV+K6KAefuCwKNzYsqOEST7lv +9+oupFBX/dPL/8j7y+uy9zx2jsIQho50NfFau60exmUUxt/xVUsiDjfe7JZ/ +mezHoef3pIilqmxcLa+RemSSrd6S83ONs2nfZDWFw5utLuQR/5Cwctl+j0LG +L4V2ceIOP2arz0MKRYJVHe+S89nwYApiWyi0biyjAogzoyoVy99QKPlD+FRd +HA0H2hIz6rooXHlg1NCJ2EVr92xrL4XvNZ01p0k/6PQt6vk9QOGO5meTGsQy +xp9sxEYoDK/oflVP+kcg+/Yd5jiFrRUpf22In1sGFG+cpfCGfpP5PtJ/AVef +7ylaysYarc/1u0k/bxcpf3pVho2urJrVL0m/m7jHcR8osFEoOExwPbGorK7C +MIeNZSPtZfKR5HzEnXyHxmy8vvSDSQnJk1OdPtbb1rFRuD8uc4rkTcxqszpv +czZWGcWb2hJv/DJacHIzG8OOfHvyPZSGAdttu/rd2Oh4Kf7kLMmzl5c0n0x6 +szFim/FcI+JbQvOMRAPZuODKr94Qkn9pN2/I6UWysUG9pb3dnwZVRZnOlGNs +3KCb+SHchwbPoc6dK26w0dStYPdCV5J3G/7vEdSy8fkfp4+LSF7rlaSvtW9g +48JD7f3/y/N5241lDjaT9bq9ds860VB2u6j9WTcbT4dWc+scaeg/6rI9ZL4K +utGmj47bkf0a0GDqLFLBWRcxg4DNNPyy+P39u7gKvo1KLLcivy8LhU4mecup +4LvPOilT1uT9RDZec9FUweZ6JSe9DTQcdFdZartVBbfs/2ahaEL63WTw+Yoz +Klis8byljkPD2YLqgq/nVfBE18MhrgrJu9+HPS+Wq+BIjptWHUXy+ZrCLLNK +BXMwceEVZRpc1W215O6rYOZCgy37l9NwRbrqqPA3FcyQa5sNF6PBcjjC8pMe +B69K1H7Z85MP8rqMZGFjDqZL75m3Z4TMKyFN91as4+BZe/P/dg7x4dSEuHHI +Rg469KyeNB8g88bMJa1ZZw7Sh1Oipz/wIWTRu6WyaRzsr8jXfdbKh3w17Lbu +4mA9z+6OFI/MN76f5YJ6OXi785+uy5f4APyjO7I+cfDrfIHP5hf50K/ztvXt +MAfLdSxbfEv4oLU2pNHjH1WstMsROJHLh0bz0vI4TVWceN9pbHWYzC+uwqHX +YlXxBNesLp7MY0PF62/XH1bF7/4p6x5v58Pw27j5T9JUkfHRZlrUng8/bX8X +fMhSxamYhmUZNnz4ZTTQJFauiqsCeSJBZnyYI9ki7d2qir29sZK0Bh9kmzJu +KSir4UTaXQY1wyP/H5bNSbmnhtkFx5PWZ/Pg6z6LcqOHavjmibA2I4sHR89F +2Iw8UUN+260b4xk8eMXoyHd4rYabdlm7F6fxwEU2b5XGFzUMSXjt9IbMu5Fi +y91fiKqjZKr73Q/7eMCbZDxa7qCO6+x9DQI0eSDxVOX4lWF19C/S+1ZUVwny +qZc36+lpoLvjGT/7yxWQu8JAfKmnJnLEw5Qq8y5Bs9y6NaMntDD6XcDHI/vL +wVD+Xqb2G22Myarm+3EugphQSdjeBB0ca5uYFuu/AIx4RWMHFV3Ub1gu2HGw +FBawd9/Y8lAXC7fWuH+UOw9aXNnLEXtW4mL54I25recgpFui0UpgFTaMYVZv +wFkYHj26zTJ3FW5+UZdbsqMYLLQf5FtqrkbeYHfCzpECuDNq9OfXs9Xo2awv +7eufBwEaKztfuK/B6HXt6mo6OcAdcmtzWKCHamY1a2/0nYJ/KZlNoiV6mGgt +Qjm9OwmqcUcO3NPXx9OWzk8SZjNB3d2gnt2pj0eTi/J1jI+D+x2vw9eC16Jm +dDSlP3ME6s+2uf2QMkDHJyynlrspMFY++0v7pgEKRr4Ia31/GFzZlQvyNxli +emCei6hPAvxQz9KrGjHEtK8iveVz4qC69M+H8VQjtP1aNX55Ohoc17PQiGGM +TRqPW5YHHoDl/ik1Wg3GGNSX3X93NgykFvpd3bSDi2ObBzY9UQ2BUrODUSMO +XPQ3MfbpkQ+BlQePm2Xt5uKLQO+/v8VDwGbkyuuOvVw088k5bPo7GJLfjP92 +9eNio8PSJqXmYJgsiTWNiid28x1a7B8MnUZZr8oquSh94d73izeDwGt/aaEl +zcW2f71sk3lBMEFfdx+8wsVcA50un3NBIMHs+KV7g4t+TZGe5ulBsFFYQf52 +AxcFpXCxhXMQ1LWVub16zcW+w4WH/ISDwEqsWjO8g4sHZEcbdv4JhA6LxxMy +XVykpqvS+z8Fwtitb6lOvVzUqZ7DUqoNBM1zOvyvA1yMUtF5qeIRCHWd68KP +fufiv0OuFvPsAsFKcitoj3BRn6FS9MMoEDxS9r8IG+dicy2z/dsScr+G5Pxl +k+T+75uuTk0HQMJUjuutKS5eaG1ykPoSAOKrL2nsmeHivIs7mo1eBUCx/63x +2VkuBg9X/fW/EwD/D2n9Yxo= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7010,299 +6743,115 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ -494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L -A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ -HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq -DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ -bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn -5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ -Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC -H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF -7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ -+1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 -gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq -rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG -C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ -Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe -elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 -df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ -vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB -B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD -TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti -B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 -wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls -L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN -3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI -ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya -zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u -TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X -WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF -ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s -Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff -QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn -t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi -Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV -7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih -Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde -vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA -dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 -BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G -LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD -55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK -+Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM -zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk -rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a -uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 -8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 -ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt -FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK -+fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em -6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 -q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY -Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF -pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU -XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz -qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb -6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 -e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud -zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg -7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY -jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L -EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 -0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e -ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn -9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY -hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy -8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp -Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd -Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM -VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW -w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 -uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj -yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt -r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt -06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 -XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP -R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np -bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe -GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb -bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl -X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq -Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb -Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 -q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E -97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo -JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT -bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr -PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A -kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me -BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF -bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z -+FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 -2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG -lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 -7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U -sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw -pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa -vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW -g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn -hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 -C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 -mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i -3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg -GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ -cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI -hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R -E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ -T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv -+isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 -VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq -LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu -2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY -hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL -bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ -Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo -wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 -uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m -MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV -LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY -esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX -Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS -oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 -2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F -cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 -hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU -s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k -7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe -ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 -H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX -BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ -HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR -XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz -oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 -YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO -8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK -+5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR -T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 -g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn -ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz -95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC -nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf -TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ -MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k -Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH -lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn -0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr -zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD -F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 -GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ -V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu -e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW -zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V -vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 -twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 -uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx -5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 -uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc -0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX -Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO -/joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r -ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht -Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI -W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF -6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU -HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A -9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e -E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V -M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb -IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg -7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf -AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 -oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 -vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC -1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 -P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy -0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg -l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ -riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG -/aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c -4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 -BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st -/KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq -DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp -13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj -mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q -JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI -Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 -1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F -4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk -Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha -+OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl -jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl -dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX -jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 -25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB -dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM -4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 -A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 -VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd -zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo -9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 -NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh -qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq -zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd -ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo -oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I -DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf -lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl -5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL -M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs -h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j -1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv -U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg -75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS -kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG -hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN -RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 -a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x -UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 -ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu -8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX -u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI -RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj -ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC -sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR -i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww -lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou -LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 -Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE -QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK -74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK -nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF -xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH -KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY -uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 -9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr -oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E -iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w -L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U -ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t -Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW -38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs -grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB -TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj -yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL -GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l -TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq -WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw -PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 -/KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx -JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 -qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl -p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx -N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x -hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn -izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE -LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM -rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE -p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 -YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH -FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX -piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz -X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 -+VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO -phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg -9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC -ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU -ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 -HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t -BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF -ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM -mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI -FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM -xZ+NDXq9HfXOhZcGEP8DWaJNdQ== +1:eJwV13k4VO/7B3DyqZRIQojBzBmDrC1kGfcdfYhESgsVyr6vkaVs2VJRyk4l +Scycyq+FKIo2qVSKKCT1KQllSSK/5/vHueZ6XXNd5zn3c577Pfco7wvc4j5H +QEBgjiC5yOdE9+MmKr3UpDfA+Lqah4FJW7FM5LqOBNDLrVoZY70MUOr5PpmO +kwAzg8kW1hwI31zRLtRRAvd2LzqvYq0PS4aWnfzdXgWvTtv//rPRAnrqbALH +2u+Bpqrgw4Mbd4A5NfD+R/tLkAi+bFtg6Qm/2/VPj7T3gbmo/hKGaQQ0ml0s +fVEyCrGKiZ59sqkg31PzeZ/GDHgyRDug/gRI+jlXzDcTwvQHyz5oqubASV3z +WpttwtjzR9Be+n4hvM3VafghLoo/v1/nVXedhfTS2OdzZJdgoXSn70HH87Ds +1Me0rKKl+Fo7ePxKzgVIsbc0eTkhhdKnRT0bIi9CqME558cJMuiRz2xeY3EJ +1g9PRQV8lEO9NU/zXtVUQOSGU+p3B+XwjWpu5cL6CqDPaXYunZBDTZkWyqSp +AmTsXQxqhJdjSusO6/xnFTBYff+XkNZyrExL8+J8rICshMywvAPL0X+DZeEp +kUrok1IJaBKVR0/nhC01DpUQb2y3V26tAv6NtytU/lYJG5yKf+qbKuBgNyvu +2XAliMV9S9xmrYAZn0bkIsYqobAxqSzTRQEDs2T2185UQrXVrW/z0hQwU0m9 +RlycByM7WeGjbxXQZHht0PdVPHDaP36kJZqB/bpGdoEHeMDOMZUfSGKgR//k +5MkYHnneDP78TAYazy/fXhXHg6hptVbTUga6nhBY3Z/Kg9OJTlI1LQy8aNET +IZnHg5YTD89cUFDEWvGvuhereWBI5107VK+ImwIrJLLHeLC+/dnM0CNFhEKP +uaO/eGAj8I+F80tFzJHrMbH+wwPXLQFv4ZMiHk/OSB4V5IN5tHJs3FwllPrS +5ye1mA9BihPn161QwubniTfLVPnQ5Hnme2O4Ejo2pB8ScOCD5bSBREy0EvJW +hed/3sWHZ5lteqvjlLBN8sucx058eFuzIK40TQnPxdvcSnDjw5BImERSoRJm +Nj54/DiQDzJXNuib31NCJcnekrIkPvhN/oh7JKqMhmbFSkU0HwyDPaQ/Syhj +n99I+rqrfBAe6KwUklHGRpO95R/+jw8XuhrfmDCVcWZ2/YRkDR+675zWuK6n +jKun2n9YNPLBNsmg45yzMn7UTH3c84YPjL98/3o38r3Xpih4y4fBcKbQe29l +zDXlfszv4kOql4iWTJgy/ueW0LO+lw8NG98nHk9VxmezihnuX/mwUiJeO/qq +MhZoPTTonOKDQPp4U+4NZbT0Uy4fnyb1C/k43qhVxjJr/ptFs3zwHd+S9OO+ +MkpEHQzXEqKhtIPq8uwk6xVrtpqI0CB95lGyvRATe27t8jolR8PvFeLdmtuY +aHjt/rplejRMFMnFr3Jkoq0FZ3+pPg1ji9mUgTMTX7c6lmga0DA0auCz3puJ +X3PowVXGNPTVuk44HmTiQEPEFnFTGpo33hRLvcDEo+z7I8KbaHh4++7VYxVM +ZNkMLdpuQ0OTdot91mUmBmWyNc/Y0nBn6Yf84homhjr5xLC30FDVtZBz/SkT +zzZpec/ZQUO+rxP0jTORM+gg9deZhpz3Xn3/TTFRSd+oSWQvDadsQ5O+zzIR +z65NkNpHw/FVqU8mF7Cw0sNTS8GNhoQ/V3csZrAwbmv3rhlPGmL966YkWSzU +Se/P+eZFQ0zPgyI5VRYmn+388tqbhvDGro/slSyUXZXRUuxLg2/63CBjcxbS +5kuvCAbS4DWzeKnpRhZ+Nz5a3krsESh3w2IzC+0/T9UWBNHgslV7eosjC48N +NeuphNBgv9wh1TuAhfvmvjuxaD8NdsdcVwSGsnCr8/mIOmKbWf9nYQdYKJic +c8grnIYNHxMk4xJYmL5WZ/RaBA3Glbyz2dksDN0TekwxioYupcoz/xawMFt3 +6FsZcVT2peKxMyxUDOb8VI+m4WZ8WeGWSyx87hI5qRpDw/ZfpQWCNAtVMz79 +LiEe8zuff6WKhfeomxdkD9KwcufZXLE6Frpc1J+dJn7xtDjndgML/00zob0P +0RBkVpTtd5+Fx2sdF74iprXyTzU/Y+GIRFpLQSwNanNPZSZ/YOGykDfpc+Np +eBR1MmPNZxZGdhbe2EHsMZJ5vH+AhXN7f2aVEZd2HTtqOkbqtZLyNkygwczu +aPqPSRbKPTXfF0vc9+DIkbMzLBRWfyl+l1ipKiX17zwK3YsfZBom0lDPSU7h +i1C4gspzDSF2KjqcvFucwpfOuUNlxNMSiUkiUhTOOkWt7CAuSI0/fEuWwqs3 +x7XnHabB8G9sojeDwiWpd//TIe4IPZQgwyIOP+24kzjia0z8Qw6FcpfV0mKI +pZ2j48I1KGz5Ty+siPh6W2QsW5fCwl3h8rXE9lYHDrWtofB0y7mE18Sj9eEH +Ew0p/JsQenGQ+OSa/TErgcIFm8rSBZJo0K0Mjf5gRmHKoXHtJcStSiFRmRso +zB2RP80gDsgOioRNFLoIvq1VJRZdFHhgyI7CkqzPpdrEvHj/iKLtFJ4QE7Jb +RWz1yzfceheFe/YMNvzPX/189v9xpnBsyGVchzi1zyuswo3C69cVh9WJOTs9 +Qx28SX2cL7Qy8YOn7iHCAWQ9o6g1UsTuZm7BN0MoNPXPTpxL/E/NviCPCAqL +a2byfpJ6zmvtDZSKoVDjTHDkO2LTUueApjgKWYxrzEbiXlkn/9AkCv/cTMku +I47N2O3HPELhTMDl18nEjLm7fF8cp3DRg6FeV+K6KAefuCwKNzYsqOEST7lv +9+oupFBX/dPL/8j7y+uy9zx2jsIQho50NfFau60exmUUxt/xVUsiDjfe7JZ/ +mezHoef3pIilqmxcLa+RemSSrd6S83ONs2nfZDWFw5utLuQR/5Cwctl+j0LG +L4V2ceIOP2arz0MKRYJVHe+S89nwYApiWyi0biyjAogzoyoVy99QKPlD+FRd +HA0H2hIz6rooXHlg1NCJ2EVr92xrL4XvNZ01p0k/6PQt6vk9QOGO5meTGsQy +xp9sxEYoDK/oflVP+kcg+/Yd5jiFrRUpf22In1sGFG+cpfCGfpP5PtJ/AVef +7ylaysYarc/1u0k/bxcpf3pVho2urJrVL0m/m7jHcR8osFEoOExwPbGorK7C +MIeNZSPtZfKR5HzEnXyHxmy8vvSDSQnJk1OdPtbb1rFRuD8uc4rkTcxqszpv +czZWGcWb2hJv/DJacHIzG8OOfHvyPZSGAdttu/rd2Oh4Kf7kLMmzl5c0n0x6 +szFim/FcI+JbQvOMRAPZuODKr94Qkn9pN2/I6UWysUG9pb3dnwZVRZnOlGNs +3KCb+SHchwbPoc6dK26w0dStYPdCV5J3G/7vEdSy8fkfp4+LSF7rlaSvtW9g +48JD7f3/y/N5241lDjaT9bq9ds860VB2u6j9WTcbT4dWc+scaeg/6rI9ZL4K +utGmj47bkf0a0GDqLFLBWRcxg4DNNPyy+P39u7gKvo1KLLcivy8LhU4mecup +4LvPOilT1uT9RDZec9FUweZ6JSe9DTQcdFdZartVBbfs/2ahaEL63WTw+Yoz +Klis8byljkPD2YLqgq/nVfBE18MhrgrJu9+HPS+Wq+BIjptWHUXy+ZrCLLNK +BXMwceEVZRpc1W215O6rYOZCgy37l9NwRbrqqPA3FcyQa5sNF6PBcjjC8pMe +B69K1H7Z85MP8rqMZGFjDqZL75m3Z4TMKyFN91as4+BZe/P/dg7x4dSEuHHI +Rg469KyeNB8g88bMJa1ZZw7Sh1Oipz/wIWTRu6WyaRzsr8jXfdbKh3w17Lbu +4mA9z+6OFI/MN76f5YJ6OXi785+uy5f4APyjO7I+cfDrfIHP5hf50K/ztvXt +MAfLdSxbfEv4oLU2pNHjH1WstMsROJHLh0bz0vI4TVWceN9pbHWYzC+uwqHX +YlXxBNesLp7MY0PF62/XH1bF7/4p6x5v58Pw27j5T9JUkfHRZlrUng8/bX8X +fMhSxamYhmUZNnz4ZTTQJFauiqsCeSJBZnyYI9ki7d2qir29sZK0Bh9kmzJu +KSir4UTaXQY1wyP/H5bNSbmnhtkFx5PWZ/Pg6z6LcqOHavjmibA2I4sHR89F +2Iw8UUN+260b4xk8eMXoyHd4rYabdlm7F6fxwEU2b5XGFzUMSXjt9IbMu5Fi +y91fiKqjZKr73Q/7eMCbZDxa7qCO6+x9DQI0eSDxVOX4lWF19C/S+1ZUVwny +qZc36+lpoLvjGT/7yxWQu8JAfKmnJnLEw5Qq8y5Bs9y6NaMntDD6XcDHI/vL +wVD+Xqb2G22Myarm+3EugphQSdjeBB0ca5uYFuu/AIx4RWMHFV3Ub1gu2HGw +FBawd9/Y8lAXC7fWuH+UOw9aXNnLEXtW4mL54I25recgpFui0UpgFTaMYVZv +wFkYHj26zTJ3FW5+UZdbsqMYLLQf5FtqrkbeYHfCzpECuDNq9OfXs9Xo2awv +7eufBwEaKztfuK/B6HXt6mo6OcAdcmtzWKCHamY1a2/0nYJ/KZlNoiV6mGgt +Qjm9OwmqcUcO3NPXx9OWzk8SZjNB3d2gnt2pj0eTi/J1jI+D+x2vw9eC16Jm +dDSlP3ME6s+2uf2QMkDHJyynlrspMFY++0v7pgEKRr4Ia31/GFzZlQvyNxli +emCei6hPAvxQz9KrGjHEtK8iveVz4qC69M+H8VQjtP1aNX55Ohoc17PQiGGM +TRqPW5YHHoDl/ik1Wg3GGNSX3X93NgykFvpd3bSDi2ObBzY9UQ2BUrODUSMO +XPQ3MfbpkQ+BlQePm2Xt5uKLQO+/v8VDwGbkyuuOvVw088k5bPo7GJLfjP92 +9eNio8PSJqXmYJgsiTWNiid28x1a7B8MnUZZr8oquSh94d73izeDwGt/aaEl +zcW2f71sk3lBMEFfdx+8wsVcA50un3NBIMHs+KV7g4t+TZGe5ulBsFFYQf52 +AxcFpXCxhXMQ1LWVub16zcW+w4WH/ISDwEqsWjO8g4sHZEcbdv4JhA6LxxMy +XVykpqvS+z8Fwtitb6lOvVzUqZ7DUqoNBM1zOvyvA1yMUtF5qeIRCHWd68KP +fufiv0OuFvPsAsFKcitoj3BRn6FS9MMoEDxS9r8IG+dicy2z/dsScr+G5Pxl +k+T+75uuTk0HQMJUjuutKS5eaG1ykPoSAOKrL2nsmeHivIs7mo1eBUCx/63x +2VkuBg9X/fW/EwD/D2n9Yxo= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "PlotRange" -> {{0, 30}, {0., 0.059610001850326035`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7314,19 +6863,19 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "PlotRange" -> {{0, 30}, {0., 0.059610001850326035`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7340,298 +6889,114 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ -494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L -A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ -HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq -DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ -bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn -5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ -Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC -H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF -7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ -+1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 -gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq -rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG -C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ -Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe -elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 -df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ -vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB -B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD -TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti -B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 -wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls -L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN -3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI -ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya -zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u -TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X -WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF -ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s -Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff -QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn -t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi -Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV -7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih -Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde -vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA -dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 -BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G -LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD -55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK -+Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM -zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk -rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a -uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 -8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 -ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt -FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK -+fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em -6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 -q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY -Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF -pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU -XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz -qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb -6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 -e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud -zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg -7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY -jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L -EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 -0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e -ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn -9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY -hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy -8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp -Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd -Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM -VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW -w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 -uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj -yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt -r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt -06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 -XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP -R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np -bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe -GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb -bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl -X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq -Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb -Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 -q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E -97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo -JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT -bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr -PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A -kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me -BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF -bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z -+FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 -2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG -lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 -7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U -sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw -pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa -vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW -g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn -hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 -C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 -mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i -3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg -GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ -cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI -hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R -E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ -T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv -+isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 -VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq -LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu -2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY -hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL -bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ -Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo -wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 -uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m -MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV -LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY -esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX -Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS -oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 -2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F -cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 -hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU -s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k -7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe -ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 -H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX -BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ -HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR -XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz -oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 -YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO -8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK -+5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR -T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 -g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn -ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz -95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC -nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf -TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ -MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k -Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH -lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn -0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr -zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD -F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 -GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ -V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu -e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW -zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V -vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 -twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 -uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx -5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 -uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc -0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX -Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO -/joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r -ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht -Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI -W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF -6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU -HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A -9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e -E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V -M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb -IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg -7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf -AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 -oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 -vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC -1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 -P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy -0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg -l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ -riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG -/aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c -4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 -BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st -/KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq -DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp -13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj -mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q -JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI -Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 -1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F -4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk -Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha -+OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl -jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl -dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX -jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 -25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB -dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM -4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 -A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 -VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd -zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo -9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 -NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh -qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq -zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd -ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo -oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I -DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf -lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl -5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL -M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs -h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j -1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv -U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg -75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS -kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG -hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN -RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 -a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x -UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 -ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu -8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX -u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI -RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj -ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC -sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR -i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww -lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou -LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 -Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE -QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK -74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK -nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF -xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH -KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY -uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 -9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr -oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E -iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w -L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U -ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t -Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW -38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs -grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB -TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj -yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL -GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l -TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq -WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw -PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 -/KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx -JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 -qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl -p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx -N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x -hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn -izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE -LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM -rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE -p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 -YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH -FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX -piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz -X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 -+VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO -phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg -9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC -ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU -ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 -HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t -BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF -ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM -mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI -FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM -xZ+NDXq9HfXOhZcGEP8DWaJNdQ== +1:eJwV13k4VO/7B3DyqZRIQojBzBmDrC1kGfcdfYhESgsVyr6vkaVs2VJRyk4l +Scycyq+FKIo2qVSKKCT1KQllSSK/5/vHueZ6XXNd5zn3c577Pfco7wvc4j5H +QEBgjiC5yOdE9+MmKr3UpDfA+Lqah4FJW7FM5LqOBNDLrVoZY70MUOr5PpmO +kwAzg8kW1hwI31zRLtRRAvd2LzqvYq0PS4aWnfzdXgWvTtv//rPRAnrqbALH +2u+Bpqrgw4Mbd4A5NfD+R/tLkAi+bFtg6Qm/2/VPj7T3gbmo/hKGaQQ0ml0s +fVEyCrGKiZ59sqkg31PzeZ/GDHgyRDug/gRI+jlXzDcTwvQHyz5oqubASV3z +WpttwtjzR9Be+n4hvM3VafghLoo/v1/nVXedhfTS2OdzZJdgoXSn70HH87Ds +1Me0rKKl+Fo7ePxKzgVIsbc0eTkhhdKnRT0bIi9CqME558cJMuiRz2xeY3EJ +1g9PRQV8lEO9NU/zXtVUQOSGU+p3B+XwjWpu5cL6CqDPaXYunZBDTZkWyqSp +AmTsXQxqhJdjSusO6/xnFTBYff+XkNZyrExL8+J8rICshMywvAPL0X+DZeEp +kUrok1IJaBKVR0/nhC01DpUQb2y3V26tAv6NtytU/lYJG5yKf+qbKuBgNyvu +2XAliMV9S9xmrYAZn0bkIsYqobAxqSzTRQEDs2T2185UQrXVrW/z0hQwU0m9 +RlycByM7WeGjbxXQZHht0PdVPHDaP36kJZqB/bpGdoEHeMDOMZUfSGKgR//k +5MkYHnneDP78TAYazy/fXhXHg6hptVbTUga6nhBY3Z/Kg9OJTlI1LQy8aNET +IZnHg5YTD89cUFDEWvGvuhereWBI5107VK+ImwIrJLLHeLC+/dnM0CNFhEKP +uaO/eGAj8I+F80tFzJHrMbH+wwPXLQFv4ZMiHk/OSB4V5IN5tHJs3FwllPrS +5ye1mA9BihPn161QwubniTfLVPnQ5Hnme2O4Ejo2pB8ScOCD5bSBREy0EvJW +hed/3sWHZ5lteqvjlLBN8sucx058eFuzIK40TQnPxdvcSnDjw5BImERSoRJm +Nj54/DiQDzJXNuib31NCJcnekrIkPvhN/oh7JKqMhmbFSkU0HwyDPaQ/Syhj +n99I+rqrfBAe6KwUklHGRpO95R/+jw8XuhrfmDCVcWZ2/YRkDR+675zWuK6n +jKun2n9YNPLBNsmg45yzMn7UTH3c84YPjL98/3o38r3Xpih4y4fBcKbQe29l +zDXlfszv4kOql4iWTJgy/ueW0LO+lw8NG98nHk9VxmezihnuX/mwUiJeO/qq +MhZoPTTonOKDQPp4U+4NZbT0Uy4fnyb1C/k43qhVxjJr/ptFs3zwHd+S9OO+ +MkpEHQzXEqKhtIPq8uwk6xVrtpqI0CB95lGyvRATe27t8jolR8PvFeLdmtuY +aHjt/rplejRMFMnFr3Jkoq0FZ3+pPg1ji9mUgTMTX7c6lmga0DA0auCz3puJ +X3PowVXGNPTVuk44HmTiQEPEFnFTGpo33hRLvcDEo+z7I8KbaHh4++7VYxVM +ZNkMLdpuQ0OTdot91mUmBmWyNc/Y0nBn6Yf84homhjr5xLC30FDVtZBz/SkT +zzZpec/ZQUO+rxP0jTORM+gg9deZhpz3Xn3/TTFRSd+oSWQvDadsQ5O+zzIR +z65NkNpHw/FVqU8mF7Cw0sNTS8GNhoQ/V3csZrAwbmv3rhlPGmL966YkWSzU +Se/P+eZFQ0zPgyI5VRYmn+388tqbhvDGro/slSyUXZXRUuxLg2/63CBjcxbS +5kuvCAbS4DWzeKnpRhZ+Nz5a3krsESh3w2IzC+0/T9UWBNHgslV7eosjC48N +NeuphNBgv9wh1TuAhfvmvjuxaD8NdsdcVwSGsnCr8/mIOmKbWf9nYQdYKJic +c8grnIYNHxMk4xJYmL5WZ/RaBA3Glbyz2dksDN0TekwxioYupcoz/xawMFt3 +6FsZcVT2peKxMyxUDOb8VI+m4WZ8WeGWSyx87hI5qRpDw/ZfpQWCNAtVMz79 +LiEe8zuff6WKhfeomxdkD9KwcufZXLE6Frpc1J+dJn7xtDjndgML/00zob0P +0RBkVpTtd5+Fx2sdF74iprXyTzU/Y+GIRFpLQSwNanNPZSZ/YOGykDfpc+Np +eBR1MmPNZxZGdhbe2EHsMZJ5vH+AhXN7f2aVEZd2HTtqOkbqtZLyNkygwczu +aPqPSRbKPTXfF0vc9+DIkbMzLBRWfyl+l1ipKiX17zwK3YsfZBom0lDPSU7h +i1C4gspzDSF2KjqcvFucwpfOuUNlxNMSiUkiUhTOOkWt7CAuSI0/fEuWwqs3 +x7XnHabB8G9sojeDwiWpd//TIe4IPZQgwyIOP+24kzjia0z8Qw6FcpfV0mKI +pZ2j48I1KGz5Ty+siPh6W2QsW5fCwl3h8rXE9lYHDrWtofB0y7mE18Sj9eEH +Ew0p/JsQenGQ+OSa/TErgcIFm8rSBZJo0K0Mjf5gRmHKoXHtJcStSiFRmRso +zB2RP80gDsgOioRNFLoIvq1VJRZdFHhgyI7CkqzPpdrEvHj/iKLtFJ4QE7Jb +RWz1yzfceheFe/YMNvzPX/189v9xpnBsyGVchzi1zyuswo3C69cVh9WJOTs9 +Qx28SX2cL7Qy8YOn7iHCAWQ9o6g1UsTuZm7BN0MoNPXPTpxL/E/NviCPCAqL +a2byfpJ6zmvtDZSKoVDjTHDkO2LTUueApjgKWYxrzEbiXlkn/9AkCv/cTMku +I47N2O3HPELhTMDl18nEjLm7fF8cp3DRg6FeV+K6KAefuCwKNzYsqOEST7lv +9+oupFBX/dPL/8j7y+uy9zx2jsIQho50NfFau60exmUUxt/xVUsiDjfe7JZ/ +mezHoef3pIilqmxcLa+RemSSrd6S83ONs2nfZDWFw5utLuQR/5Cwctl+j0LG +L4V2ceIOP2arz0MKRYJVHe+S89nwYApiWyi0biyjAogzoyoVy99QKPlD+FRd +HA0H2hIz6rooXHlg1NCJ2EVr92xrL4XvNZ01p0k/6PQt6vk9QOGO5meTGsQy +xp9sxEYoDK/oflVP+kcg+/Yd5jiFrRUpf22In1sGFG+cpfCGfpP5PtJ/AVef +7ylaysYarc/1u0k/bxcpf3pVho2urJrVL0m/m7jHcR8osFEoOExwPbGorK7C +MIeNZSPtZfKR5HzEnXyHxmy8vvSDSQnJk1OdPtbb1rFRuD8uc4rkTcxqszpv +czZWGcWb2hJv/DJacHIzG8OOfHvyPZSGAdttu/rd2Oh4Kf7kLMmzl5c0n0x6 +szFim/FcI+JbQvOMRAPZuODKr94Qkn9pN2/I6UWysUG9pb3dnwZVRZnOlGNs +3KCb+SHchwbPoc6dK26w0dStYPdCV5J3G/7vEdSy8fkfp4+LSF7rlaSvtW9g +48JD7f3/y/N5241lDjaT9bq9ds860VB2u6j9WTcbT4dWc+scaeg/6rI9ZL4K +utGmj47bkf0a0GDqLFLBWRcxg4DNNPyy+P39u7gKvo1KLLcivy8LhU4mecup +4LvPOilT1uT9RDZec9FUweZ6JSe9DTQcdFdZartVBbfs/2ahaEL63WTw+Yoz +Klis8byljkPD2YLqgq/nVfBE18MhrgrJu9+HPS+Wq+BIjptWHUXy+ZrCLLNK +BXMwceEVZRpc1W215O6rYOZCgy37l9NwRbrqqPA3FcyQa5sNF6PBcjjC8pMe +B69K1H7Z85MP8rqMZGFjDqZL75m3Z4TMKyFN91as4+BZe/P/dg7x4dSEuHHI +Rg469KyeNB8g88bMJa1ZZw7Sh1Oipz/wIWTRu6WyaRzsr8jXfdbKh3w17Lbu +4mA9z+6OFI/MN76f5YJ6OXi785+uy5f4APyjO7I+cfDrfIHP5hf50K/ztvXt +MAfLdSxbfEv4oLU2pNHjH1WstMsROJHLh0bz0vI4TVWceN9pbHWYzC+uwqHX +YlXxBNesLp7MY0PF62/XH1bF7/4p6x5v58Pw27j5T9JUkfHRZlrUng8/bX8X +fMhSxamYhmUZNnz4ZTTQJFauiqsCeSJBZnyYI9ki7d2qir29sZK0Bh9kmzJu +KSir4UTaXQY1wyP/H5bNSbmnhtkFx5PWZ/Pg6z6LcqOHavjmibA2I4sHR89F +2Iw8UUN+260b4xk8eMXoyHd4rYabdlm7F6fxwEU2b5XGFzUMSXjt9IbMu5Fi +y91fiKqjZKr73Q/7eMCbZDxa7qCO6+x9DQI0eSDxVOX4lWF19C/S+1ZUVwny +qZc36+lpoLvjGT/7yxWQu8JAfKmnJnLEw5Qq8y5Bs9y6NaMntDD6XcDHI/vL +wVD+Xqb2G22Myarm+3EugphQSdjeBB0ca5uYFuu/AIx4RWMHFV3Ub1gu2HGw +FBawd9/Y8lAXC7fWuH+UOw9aXNnLEXtW4mL54I25recgpFui0UpgFTaMYVZv +wFkYHj26zTJ3FW5+UZdbsqMYLLQf5FtqrkbeYHfCzpECuDNq9OfXs9Xo2awv +7eufBwEaKztfuK/B6HXt6mo6OcAdcmtzWKCHamY1a2/0nYJ/KZlNoiV6mGgt +Qjm9OwmqcUcO3NPXx9OWzk8SZjNB3d2gnt2pj0eTi/J1jI+D+x2vw9eC16Jm +dDSlP3ME6s+2uf2QMkDHJyynlrspMFY++0v7pgEKRr4Ia31/GFzZlQvyNxli +emCei6hPAvxQz9KrGjHEtK8iveVz4qC69M+H8VQjtP1aNX55Ohoc17PQiGGM +TRqPW5YHHoDl/ik1Wg3GGNSX3X93NgykFvpd3bSDi2ObBzY9UQ2BUrODUSMO +XPQ3MfbpkQ+BlQePm2Xt5uKLQO+/v8VDwGbkyuuOvVw088k5bPo7GJLfjP92 +9eNio8PSJqXmYJgsiTWNiid28x1a7B8MnUZZr8oquSh94d73izeDwGt/aaEl +zcW2f71sk3lBMEFfdx+8wsVcA50un3NBIMHs+KV7g4t+TZGe5ulBsFFYQf52 +AxcFpXCxhXMQ1LWVub16zcW+w4WH/ISDwEqsWjO8g4sHZEcbdv4JhA6LxxMy +XVykpqvS+z8Fwtitb6lOvVzUqZ7DUqoNBM1zOvyvA1yMUtF5qeIRCHWd68KP +fufiv0OuFvPsAsFKcitoj3BRn6FS9MMoEDxS9r8IG+dicy2z/dsScr+G5Pxl +k+T+75uuTk0HQMJUjuutKS5eaG1ykPoSAOKrL2nsmeHivIs7mo1eBUCx/63x +2VkuBg9X/fW/EwD/D2n9Yxo= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "PlotRange" -> {{0, 30}, {0., 0.059610001850326035`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7642,6 +7007,7 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -7669,7 +7035,8 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.15142054732361562`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.059610001850326035`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -7677,11 +7044,12 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.99134491550045*^9}, - CellLabel-> - "Out[418]=",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] + CellChangeTimes->{3.99134491550045*^9, 3.994250988292637*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"b59ebf22-801b-4511-b908-cb213bb3e4c8"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", @@ -7750,15 +7118,786 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"30", ",", "0.007985"}], "}"}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, - 3.9940827155625067`*^9},ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-\ -b938908ab9a4"], + 3.9940827155625067`*^9}, + CellLabel->"In[96]:=",ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-b938908ab9a4"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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->{ + "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.051395}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994250988897374*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"590e12a8-ca65-4435-aa82-1ca6c4fe1fca"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"6b0777bb-40fd-b54e-aa03-\ -b6e82cb2e939"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"6b0777bb-40fd-b54e-aa03-b6e82cb2e939"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VO/7B3DyqZRIQojBzBmDrC1kGfcdfYhESgsVyr6vkaVs2VJRyk4l +Scycyq+FKIo2qVSKKCT1KQllSSK/5/vHueZ6XXNd5zn3c577Pfco7wvc4j5H +QEBgjiC5yOdE9+MmKr3UpDfA+Lqah4FJW7FM5LqOBNDLrVoZY70MUOr5PpmO +kwAzg8kW1hwI31zRLtRRAvd2LzqvYq0PS4aWnfzdXgWvTtv//rPRAnrqbALH +2u+Bpqrgw4Mbd4A5NfD+R/tLkAi+bFtg6Qm/2/VPj7T3gbmo/hKGaQQ0ml0s +fVEyCrGKiZ59sqkg31PzeZ/GDHgyRDug/gRI+jlXzDcTwvQHyz5oqubASV3z +WpttwtjzR9Be+n4hvM3VafghLoo/v1/nVXedhfTS2OdzZJdgoXSn70HH87Ds +1Me0rKKl+Fo7ePxKzgVIsbc0eTkhhdKnRT0bIi9CqME558cJMuiRz2xeY3EJ +1g9PRQV8lEO9NU/zXtVUQOSGU+p3B+XwjWpu5cL6CqDPaXYunZBDTZkWyqSp +AmTsXQxqhJdjSusO6/xnFTBYff+XkNZyrExL8+J8rICshMywvAPL0X+DZeEp +kUrok1IJaBKVR0/nhC01DpUQb2y3V26tAv6NtytU/lYJG5yKf+qbKuBgNyvu +2XAliMV9S9xmrYAZn0bkIsYqobAxqSzTRQEDs2T2185UQrXVrW/z0hQwU0m9 +RlycByM7WeGjbxXQZHht0PdVPHDaP36kJZqB/bpGdoEHeMDOMZUfSGKgR//k +5MkYHnneDP78TAYazy/fXhXHg6hptVbTUga6nhBY3Z/Kg9OJTlI1LQy8aNET +IZnHg5YTD89cUFDEWvGvuhereWBI5107VK+ImwIrJLLHeLC+/dnM0CNFhEKP +uaO/eGAj8I+F80tFzJHrMbH+wwPXLQFv4ZMiHk/OSB4V5IN5tHJs3FwllPrS +5ye1mA9BihPn161QwubniTfLVPnQ5Hnme2O4Ejo2pB8ScOCD5bSBREy0EvJW +hed/3sWHZ5lteqvjlLBN8sucx058eFuzIK40TQnPxdvcSnDjw5BImERSoRJm +Nj54/DiQDzJXNuib31NCJcnekrIkPvhN/oh7JKqMhmbFSkU0HwyDPaQ/Syhj +n99I+rqrfBAe6KwUklHGRpO95R/+jw8XuhrfmDCVcWZ2/YRkDR+675zWuK6n +jKun2n9YNPLBNsmg45yzMn7UTH3c84YPjL98/3o38r3Xpih4y4fBcKbQe29l +zDXlfszv4kOql4iWTJgy/ueW0LO+lw8NG98nHk9VxmezihnuX/mwUiJeO/qq +MhZoPTTonOKDQPp4U+4NZbT0Uy4fnyb1C/k43qhVxjJr/ptFs3zwHd+S9OO+ +MkpEHQzXEqKhtIPq8uwk6xVrtpqI0CB95lGyvRATe27t8jolR8PvFeLdmtuY +aHjt/rplejRMFMnFr3Jkoq0FZ3+pPg1ji9mUgTMTX7c6lmga0DA0auCz3puJ +X3PowVXGNPTVuk44HmTiQEPEFnFTGpo33hRLvcDEo+z7I8KbaHh4++7VYxVM +ZNkMLdpuQ0OTdot91mUmBmWyNc/Y0nBn6Yf84homhjr5xLC30FDVtZBz/SkT +zzZpec/ZQUO+rxP0jTORM+gg9deZhpz3Xn3/TTFRSd+oSWQvDadsQ5O+zzIR +z65NkNpHw/FVqU8mF7Cw0sNTS8GNhoQ/V3csZrAwbmv3rhlPGmL966YkWSzU +Se/P+eZFQ0zPgyI5VRYmn+388tqbhvDGro/slSyUXZXRUuxLg2/63CBjcxbS +5kuvCAbS4DWzeKnpRhZ+Nz5a3krsESh3w2IzC+0/T9UWBNHgslV7eosjC48N +NeuphNBgv9wh1TuAhfvmvjuxaD8NdsdcVwSGsnCr8/mIOmKbWf9nYQdYKJic +c8grnIYNHxMk4xJYmL5WZ/RaBA3Glbyz2dksDN0TekwxioYupcoz/xawMFt3 +6FsZcVT2peKxMyxUDOb8VI+m4WZ8WeGWSyx87hI5qRpDw/ZfpQWCNAtVMz79 +LiEe8zuff6WKhfeomxdkD9KwcufZXLE6Frpc1J+dJn7xtDjndgML/00zob0P +0RBkVpTtd5+Fx2sdF74iprXyTzU/Y+GIRFpLQSwNanNPZSZ/YOGykDfpc+Np +eBR1MmPNZxZGdhbe2EHsMZJ5vH+AhXN7f2aVEZd2HTtqOkbqtZLyNkygwczu +aPqPSRbKPTXfF0vc9+DIkbMzLBRWfyl+l1ipKiX17zwK3YsfZBom0lDPSU7h +i1C4gspzDSF2KjqcvFucwpfOuUNlxNMSiUkiUhTOOkWt7CAuSI0/fEuWwqs3 +x7XnHabB8G9sojeDwiWpd//TIe4IPZQgwyIOP+24kzjia0z8Qw6FcpfV0mKI +pZ2j48I1KGz5Ty+siPh6W2QsW5fCwl3h8rXE9lYHDrWtofB0y7mE18Sj9eEH +Ew0p/JsQenGQ+OSa/TErgcIFm8rSBZJo0K0Mjf5gRmHKoXHtJcStSiFRmRso +zB2RP80gDsgOioRNFLoIvq1VJRZdFHhgyI7CkqzPpdrEvHj/iKLtFJ4QE7Jb +RWz1yzfceheFe/YMNvzPX/189v9xpnBsyGVchzi1zyuswo3C69cVh9WJOTs9 +Qx28SX2cL7Qy8YOn7iHCAWQ9o6g1UsTuZm7BN0MoNPXPTpxL/E/NviCPCAqL +a2byfpJ6zmvtDZSKoVDjTHDkO2LTUueApjgKWYxrzEbiXlkn/9AkCv/cTMku +I47N2O3HPELhTMDl18nEjLm7fF8cp3DRg6FeV+K6KAefuCwKNzYsqOEST7lv +9+oupFBX/dPL/8j7y+uy9zx2jsIQho50NfFau60exmUUxt/xVUsiDjfe7JZ/ +mezHoef3pIilqmxcLa+RemSSrd6S83ONs2nfZDWFw5utLuQR/5Cwctl+j0LG +L4V2ceIOP2arz0MKRYJVHe+S89nwYApiWyi0biyjAogzoyoVy99QKPlD+FRd +HA0H2hIz6rooXHlg1NCJ2EVr92xrL4XvNZ01p0k/6PQt6vk9QOGO5meTGsQy +xp9sxEYoDK/oflVP+kcg+/Yd5jiFrRUpf22In1sGFG+cpfCGfpP5PtJ/AVef +7ylaysYarc/1u0k/bxcpf3pVho2urJrVL0m/m7jHcR8osFEoOExwPbGorK7C +MIeNZSPtZfKR5HzEnXyHxmy8vvSDSQnJk1OdPtbb1rFRuD8uc4rkTcxqszpv +czZWGcWb2hJv/DJacHIzG8OOfHvyPZSGAdttu/rd2Oh4Kf7kLMmzl5c0n0x6 +szFim/FcI+JbQvOMRAPZuODKr94Qkn9pN2/I6UWysUG9pb3dnwZVRZnOlGNs +3KCb+SHchwbPoc6dK26w0dStYPdCV5J3G/7vEdSy8fkfp4+LSF7rlaSvtW9g +48JD7f3/y/N5241lDjaT9bq9ds860VB2u6j9WTcbT4dWc+scaeg/6rI9ZL4K +utGmj47bkf0a0GDqLFLBWRcxg4DNNPyy+P39u7gKvo1KLLcivy8LhU4mecup +4LvPOilT1uT9RDZec9FUweZ6JSe9DTQcdFdZartVBbfs/2ahaEL63WTw+Yoz +Klis8byljkPD2YLqgq/nVfBE18MhrgrJu9+HPS+Wq+BIjptWHUXy+ZrCLLNK +BXMwceEVZRpc1W215O6rYOZCgy37l9NwRbrqqPA3FcyQa5sNF6PBcjjC8pMe +B69K1H7Z85MP8rqMZGFjDqZL75m3Z4TMKyFN91as4+BZe/P/dg7x4dSEuHHI +Rg469KyeNB8g88bMJa1ZZw7Sh1Oipz/wIWTRu6WyaRzsr8jXfdbKh3w17Lbu +4mA9z+6OFI/MN76f5YJ6OXi785+uy5f4APyjO7I+cfDrfIHP5hf50K/ztvXt +MAfLdSxbfEv4oLU2pNHjH1WstMsROJHLh0bz0vI4TVWceN9pbHWYzC+uwqHX +YlXxBNesLp7MY0PF62/XH1bF7/4p6x5v58Pw27j5T9JUkfHRZlrUng8/bX8X +fMhSxamYhmUZNnz4ZTTQJFauiqsCeSJBZnyYI9ki7d2qir29sZK0Bh9kmzJu +KSir4UTaXQY1wyP/H5bNSbmnhtkFx5PWZ/Pg6z6LcqOHavjmibA2I4sHR89F +2Iw8UUN+260b4xk8eMXoyHd4rYabdlm7F6fxwEU2b5XGFzUMSXjt9IbMu5Fi +y91fiKqjZKr73Q/7eMCbZDxa7qCO6+x9DQI0eSDxVOX4lWF19C/S+1ZUVwny +qZc36+lpoLvjGT/7yxWQu8JAfKmnJnLEw5Qq8y5Bs9y6NaMntDD6XcDHI/vL +wVD+Xqb2G22Myarm+3EugphQSdjeBB0ca5uYFuu/AIx4RWMHFV3Ub1gu2HGw +FBawd9/Y8lAXC7fWuH+UOw9aXNnLEXtW4mL54I25recgpFui0UpgFTaMYVZv +wFkYHj26zTJ3FW5+UZdbsqMYLLQf5FtqrkbeYHfCzpECuDNq9OfXs9Xo2awv +7eufBwEaKztfuK/B6HXt6mo6OcAdcmtzWKCHamY1a2/0nYJ/KZlNoiV6mGgt +Qjm9OwmqcUcO3NPXx9OWzk8SZjNB3d2gnt2pj0eTi/J1jI+D+x2vw9eC16Jm +dDSlP3ME6s+2uf2QMkDHJyynlrspMFY++0v7pgEKRr4Ia31/GFzZlQvyNxli +emCei6hPAvxQz9KrGjHEtK8iveVz4qC69M+H8VQjtP1aNX55Ohoc17PQiGGM +TRqPW5YHHoDl/ik1Wg3GGNSX3X93NgykFvpd3bSDi2ObBzY9UQ2BUrODUSMO +XPQ3MfbpkQ+BlQePm2Xt5uKLQO+/v8VDwGbkyuuOvVw088k5bPo7GJLfjP92 +9eNio8PSJqXmYJgsiTWNiid28x1a7B8MnUZZr8oquSh94d73izeDwGt/aaEl +zcW2f71sk3lBMEFfdx+8wsVcA50un3NBIMHs+KV7g4t+TZGe5ulBsFFYQf52 +AxcFpXCxhXMQ1LWVub16zcW+w4WH/ISDwEqsWjO8g4sHZEcbdv4JhA6LxxMy +XVykpqvS+z8Fwtitb6lOvVzUqZ7DUqoNBM1zOvyvA1yMUtF5qeIRCHWd68KP +fufiv0OuFvPsAsFKcitoj3BRn6FS9MMoEDxS9r8IG+dicy2z/dsScr+G5Pxl +k+T+75uuTk0HQMJUjuutKS5eaG1ykPoSAOKrL2nsmeHivIs7mo1eBUCx/63x +2VkuBg9X/fW/EwD/D2n9Yxo= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VO/7B3DyqZRIQojBzBmDrC1kGfcdfYhESgsVyr6vkaVs2VJRyk4l +Scycyq+FKIo2qVSKKCT1KQllSSK/5/vHueZ6XXNd5zn3c577Pfco7wvc4j5H +QEBgjiC5yOdE9+MmKr3UpDfA+Lqah4FJW7FM5LqOBNDLrVoZY70MUOr5PpmO +kwAzg8kW1hwI31zRLtRRAvd2LzqvYq0PS4aWnfzdXgWvTtv//rPRAnrqbALH +2u+Bpqrgw4Mbd4A5NfD+R/tLkAi+bFtg6Qm/2/VPj7T3gbmo/hKGaQQ0ml0s +fVEyCrGKiZ59sqkg31PzeZ/GDHgyRDug/gRI+jlXzDcTwvQHyz5oqubASV3z +WpttwtjzR9Be+n4hvM3VafghLoo/v1/nVXedhfTS2OdzZJdgoXSn70HH87Ds +1Me0rKKl+Fo7ePxKzgVIsbc0eTkhhdKnRT0bIi9CqME558cJMuiRz2xeY3EJ +1g9PRQV8lEO9NU/zXtVUQOSGU+p3B+XwjWpu5cL6CqDPaXYunZBDTZkWyqSp +AmTsXQxqhJdjSusO6/xnFTBYff+XkNZyrExL8+J8rICshMywvAPL0X+DZeEp +kUrok1IJaBKVR0/nhC01DpUQb2y3V26tAv6NtytU/lYJG5yKf+qbKuBgNyvu +2XAliMV9S9xmrYAZn0bkIsYqobAxqSzTRQEDs2T2185UQrXVrW/z0hQwU0m9 +RlycByM7WeGjbxXQZHht0PdVPHDaP36kJZqB/bpGdoEHeMDOMZUfSGKgR//k +5MkYHnneDP78TAYazy/fXhXHg6hptVbTUga6nhBY3Z/Kg9OJTlI1LQy8aNET +IZnHg5YTD89cUFDEWvGvuhereWBI5107VK+ImwIrJLLHeLC+/dnM0CNFhEKP +uaO/eGAj8I+F80tFzJHrMbH+wwPXLQFv4ZMiHk/OSB4V5IN5tHJs3FwllPrS +5ye1mA9BihPn161QwubniTfLVPnQ5Hnme2O4Ejo2pB8ScOCD5bSBREy0EvJW +hed/3sWHZ5lteqvjlLBN8sucx058eFuzIK40TQnPxdvcSnDjw5BImERSoRJm +Nj54/DiQDzJXNuib31NCJcnekrIkPvhN/oh7JKqMhmbFSkU0HwyDPaQ/Syhj +n99I+rqrfBAe6KwUklHGRpO95R/+jw8XuhrfmDCVcWZ2/YRkDR+675zWuK6n +jKun2n9YNPLBNsmg45yzMn7UTH3c84YPjL98/3o38r3Xpih4y4fBcKbQe29l +zDXlfszv4kOql4iWTJgy/ueW0LO+lw8NG98nHk9VxmezihnuX/mwUiJeO/qq +MhZoPTTonOKDQPp4U+4NZbT0Uy4fnyb1C/k43qhVxjJr/ptFs3zwHd+S9OO+ +MkpEHQzXEqKhtIPq8uwk6xVrtpqI0CB95lGyvRATe27t8jolR8PvFeLdmtuY +aHjt/rplejRMFMnFr3Jkoq0FZ3+pPg1ji9mUgTMTX7c6lmga0DA0auCz3puJ +X3PowVXGNPTVuk44HmTiQEPEFnFTGpo33hRLvcDEo+z7I8KbaHh4++7VYxVM +ZNkMLdpuQ0OTdot91mUmBmWyNc/Y0nBn6Yf84homhjr5xLC30FDVtZBz/SkT +zzZpec/ZQUO+rxP0jTORM+gg9deZhpz3Xn3/TTFRSd+oSWQvDadsQ5O+zzIR +z65NkNpHw/FVqU8mF7Cw0sNTS8GNhoQ/V3csZrAwbmv3rhlPGmL966YkWSzU +Se/P+eZFQ0zPgyI5VRYmn+388tqbhvDGro/slSyUXZXRUuxLg2/63CBjcxbS +5kuvCAbS4DWzeKnpRhZ+Nz5a3krsESh3w2IzC+0/T9UWBNHgslV7eosjC48N +NeuphNBgv9wh1TuAhfvmvjuxaD8NdsdcVwSGsnCr8/mIOmKbWf9nYQdYKJic +c8grnIYNHxMk4xJYmL5WZ/RaBA3Glbyz2dksDN0TekwxioYupcoz/xawMFt3 +6FsZcVT2peKxMyxUDOb8VI+m4WZ8WeGWSyx87hI5qRpDw/ZfpQWCNAtVMz79 +LiEe8zuff6WKhfeomxdkD9KwcufZXLE6Frpc1J+dJn7xtDjndgML/00zob0P +0RBkVpTtd5+Fx2sdF74iprXyTzU/Y+GIRFpLQSwNanNPZSZ/YOGykDfpc+Np +eBR1MmPNZxZGdhbe2EHsMZJ5vH+AhXN7f2aVEZd2HTtqOkbqtZLyNkygwczu +aPqPSRbKPTXfF0vc9+DIkbMzLBRWfyl+l1ipKiX17zwK3YsfZBom0lDPSU7h +i1C4gspzDSF2KjqcvFucwpfOuUNlxNMSiUkiUhTOOkWt7CAuSI0/fEuWwqs3 +x7XnHabB8G9sojeDwiWpd//TIe4IPZQgwyIOP+24kzjia0z8Qw6FcpfV0mKI +pZ2j48I1KGz5Ty+siPh6W2QsW5fCwl3h8rXE9lYHDrWtofB0y7mE18Sj9eEH +Ew0p/JsQenGQ+OSa/TErgcIFm8rSBZJo0K0Mjf5gRmHKoXHtJcStSiFRmRso +zB2RP80gDsgOioRNFLoIvq1VJRZdFHhgyI7CkqzPpdrEvHj/iKLtFJ4QE7Jb +RWz1yzfceheFe/YMNvzPX/189v9xpnBsyGVchzi1zyuswo3C69cVh9WJOTs9 +Qx28SX2cL7Qy8YOn7iHCAWQ9o6g1UsTuZm7BN0MoNPXPTpxL/E/NviCPCAqL +a2byfpJ6zmvtDZSKoVDjTHDkO2LTUueApjgKWYxrzEbiXlkn/9AkCv/cTMku +I47N2O3HPELhTMDl18nEjLm7fF8cp3DRg6FeV+K6KAefuCwKNzYsqOEST7lv +9+oupFBX/dPL/8j7y+uy9zx2jsIQho50NfFau60exmUUxt/xVUsiDjfe7JZ/ +mezHoef3pIilqmxcLa+RemSSrd6S83ONs2nfZDWFw5utLuQR/5Cwctl+j0LG +L4V2ceIOP2arz0MKRYJVHe+S89nwYApiWyi0biyjAogzoyoVy99QKPlD+FRd +HA0H2hIz6rooXHlg1NCJ2EVr92xrL4XvNZ01p0k/6PQt6vk9QOGO5meTGsQy +xp9sxEYoDK/oflVP+kcg+/Yd5jiFrRUpf22In1sGFG+cpfCGfpP5PtJ/AVef +7ylaysYarc/1u0k/bxcpf3pVho2urJrVL0m/m7jHcR8osFEoOExwPbGorK7C +MIeNZSPtZfKR5HzEnXyHxmy8vvSDSQnJk1OdPtbb1rFRuD8uc4rkTcxqszpv +czZWGcWb2hJv/DJacHIzG8OOfHvyPZSGAdttu/rd2Oh4Kf7kLMmzl5c0n0x6 +szFim/FcI+JbQvOMRAPZuODKr94Qkn9pN2/I6UWysUG9pb3dnwZVRZnOlGNs +3KCb+SHchwbPoc6dK26w0dStYPdCV5J3G/7vEdSy8fkfp4+LSF7rlaSvtW9g +48JD7f3/y/N5241lDjaT9bq9ds860VB2u6j9WTcbT4dWc+scaeg/6rI9ZL4K +utGmj47bkf0a0GDqLFLBWRcxg4DNNPyy+P39u7gKvo1KLLcivy8LhU4mecup +4LvPOilT1uT9RDZec9FUweZ6JSe9DTQcdFdZartVBbfs/2ahaEL63WTw+Yoz +Klis8byljkPD2YLqgq/nVfBE18MhrgrJu9+HPS+Wq+BIjptWHUXy+ZrCLLNK +BXMwceEVZRpc1W215O6rYOZCgy37l9NwRbrqqPA3FcyQa5sNF6PBcjjC8pMe +B69K1H7Z85MP8rqMZGFjDqZL75m3Z4TMKyFN91as4+BZe/P/dg7x4dSEuHHI +Rg469KyeNB8g88bMJa1ZZw7Sh1Oipz/wIWTRu6WyaRzsr8jXfdbKh3w17Lbu +4mA9z+6OFI/MN76f5YJ6OXi785+uy5f4APyjO7I+cfDrfIHP5hf50K/ztvXt +MAfLdSxbfEv4oLU2pNHjH1WstMsROJHLh0bz0vI4TVWceN9pbHWYzC+uwqHX +YlXxBNesLp7MY0PF62/XH1bF7/4p6x5v58Pw27j5T9JUkfHRZlrUng8/bX8X +fMhSxamYhmUZNnz4ZTTQJFauiqsCeSJBZnyYI9ki7d2qir29sZK0Bh9kmzJu +KSir4UTaXQY1wyP/H5bNSbmnhtkFx5PWZ/Pg6z6LcqOHavjmibA2I4sHR89F +2Iw8UUN+260b4xk8eMXoyHd4rYabdlm7F6fxwEU2b5XGFzUMSXjt9IbMu5Fi +y91fiKqjZKr73Q/7eMCbZDxa7qCO6+x9DQI0eSDxVOX4lWF19C/S+1ZUVwny +qZc36+lpoLvjGT/7yxWQu8JAfKmnJnLEw5Qq8y5Bs9y6NaMntDD6XcDHI/vL +wVD+Xqb2G22Myarm+3EugphQSdjeBB0ca5uYFuu/AIx4RWMHFV3Ub1gu2HGw +FBawd9/Y8lAXC7fWuH+UOw9aXNnLEXtW4mL54I25recgpFui0UpgFTaMYVZv +wFkYHj26zTJ3FW5+UZdbsqMYLLQf5FtqrkbeYHfCzpECuDNq9OfXs9Xo2awv +7eufBwEaKztfuK/B6HXt6mo6OcAdcmtzWKCHamY1a2/0nYJ/KZlNoiV6mGgt +Qjm9OwmqcUcO3NPXx9OWzk8SZjNB3d2gnt2pj0eTi/J1jI+D+x2vw9eC16Jm +dDSlP3ME6s+2uf2QMkDHJyynlrspMFY++0v7pgEKRr4Ia31/GFzZlQvyNxli +emCei6hPAvxQz9KrGjHEtK8iveVz4qC69M+H8VQjtP1aNX55Ohoc17PQiGGM +TRqPW5YHHoDl/ik1Wg3GGNSX3X93NgykFvpd3bSDi2ObBzY9UQ2BUrODUSMO +XPQ3MfbpkQ+BlQePm2Xt5uKLQO+/v8VDwGbkyuuOvVw088k5bPo7GJLfjP92 +9eNio8PSJqXmYJgsiTWNiid28x1a7B8MnUZZr8oquSh94d73izeDwGt/aaEl +zcW2f71sk3lBMEFfdx+8wsVcA50un3NBIMHs+KV7g4t+TZGe5ulBsFFYQf52 +AxcFpXCxhXMQ1LWVub16zcW+w4WH/ISDwEqsWjO8g4sHZEcbdv4JhA6LxxMy +XVykpqvS+z8Fwtitb6lOvVzUqZ7DUqoNBM1zOvyvA1yMUtF5qeIRCHWd68KP +fufiv0OuFvPsAsFKcitoj3BRn6FS9MMoEDxS9r8IG+dicy2z/dsScr+G5Pxl +k+T+75uuTk0HQMJUjuutKS5eaG1ykPoSAOKrL2nsmeHivIs7mo1eBUCx/63x +2VkuBg9X/fW/EwD/D2n9Yxo= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.059610001850326035`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.059610001850326035`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VO/7B3DyqZRIQojBzBmDrC1kGfcdfYhESgsVyr6vkaVs2VJRyk4l +Scycyq+FKIo2qVSKKCT1KQllSSK/5/vHueZ6XXNd5zn3c577Pfco7wvc4j5H +QEBgjiC5yOdE9+MmKr3UpDfA+Lqah4FJW7FM5LqOBNDLrVoZY70MUOr5PpmO +kwAzg8kW1hwI31zRLtRRAvd2LzqvYq0PS4aWnfzdXgWvTtv//rPRAnrqbALH +2u+Bpqrgw4Mbd4A5NfD+R/tLkAi+bFtg6Qm/2/VPj7T3gbmo/hKGaQQ0ml0s +fVEyCrGKiZ59sqkg31PzeZ/GDHgyRDug/gRI+jlXzDcTwvQHyz5oqubASV3z +WpttwtjzR9Be+n4hvM3VafghLoo/v1/nVXedhfTS2OdzZJdgoXSn70HH87Ds +1Me0rKKl+Fo7ePxKzgVIsbc0eTkhhdKnRT0bIi9CqME558cJMuiRz2xeY3EJ +1g9PRQV8lEO9NU/zXtVUQOSGU+p3B+XwjWpu5cL6CqDPaXYunZBDTZkWyqSp +AmTsXQxqhJdjSusO6/xnFTBYff+XkNZyrExL8+J8rICshMywvAPL0X+DZeEp +kUrok1IJaBKVR0/nhC01DpUQb2y3V26tAv6NtytU/lYJG5yKf+qbKuBgNyvu +2XAliMV9S9xmrYAZn0bkIsYqobAxqSzTRQEDs2T2185UQrXVrW/z0hQwU0m9 +RlycByM7WeGjbxXQZHht0PdVPHDaP36kJZqB/bpGdoEHeMDOMZUfSGKgR//k +5MkYHnneDP78TAYazy/fXhXHg6hptVbTUga6nhBY3Z/Kg9OJTlI1LQy8aNET +IZnHg5YTD89cUFDEWvGvuhereWBI5107VK+ImwIrJLLHeLC+/dnM0CNFhEKP +uaO/eGAj8I+F80tFzJHrMbH+wwPXLQFv4ZMiHk/OSB4V5IN5tHJs3FwllPrS +5ye1mA9BihPn161QwubniTfLVPnQ5Hnme2O4Ejo2pB8ScOCD5bSBREy0EvJW +hed/3sWHZ5lteqvjlLBN8sucx058eFuzIK40TQnPxdvcSnDjw5BImERSoRJm +Nj54/DiQDzJXNuib31NCJcnekrIkPvhN/oh7JKqMhmbFSkU0HwyDPaQ/Syhj +n99I+rqrfBAe6KwUklHGRpO95R/+jw8XuhrfmDCVcWZ2/YRkDR+675zWuK6n +jKun2n9YNPLBNsmg45yzMn7UTH3c84YPjL98/3o38r3Xpih4y4fBcKbQe29l +zDXlfszv4kOql4iWTJgy/ueW0LO+lw8NG98nHk9VxmezihnuX/mwUiJeO/qq +MhZoPTTonOKDQPp4U+4NZbT0Uy4fnyb1C/k43qhVxjJr/ptFs3zwHd+S9OO+ +MkpEHQzXEqKhtIPq8uwk6xVrtpqI0CB95lGyvRATe27t8jolR8PvFeLdmtuY +aHjt/rplejRMFMnFr3Jkoq0FZ3+pPg1ji9mUgTMTX7c6lmga0DA0auCz3puJ +X3PowVXGNPTVuk44HmTiQEPEFnFTGpo33hRLvcDEo+z7I8KbaHh4++7VYxVM +ZNkMLdpuQ0OTdot91mUmBmWyNc/Y0nBn6Yf84homhjr5xLC30FDVtZBz/SkT +zzZpec/ZQUO+rxP0jTORM+gg9deZhpz3Xn3/TTFRSd+oSWQvDadsQ5O+zzIR +z65NkNpHw/FVqU8mF7Cw0sNTS8GNhoQ/V3csZrAwbmv3rhlPGmL966YkWSzU +Se/P+eZFQ0zPgyI5VRYmn+388tqbhvDGro/slSyUXZXRUuxLg2/63CBjcxbS +5kuvCAbS4DWzeKnpRhZ+Nz5a3krsESh3w2IzC+0/T9UWBNHgslV7eosjC48N +NeuphNBgv9wh1TuAhfvmvjuxaD8NdsdcVwSGsnCr8/mIOmKbWf9nYQdYKJic +c8grnIYNHxMk4xJYmL5WZ/RaBA3Glbyz2dksDN0TekwxioYupcoz/xawMFt3 +6FsZcVT2peKxMyxUDOb8VI+m4WZ8WeGWSyx87hI5qRpDw/ZfpQWCNAtVMz79 +LiEe8zuff6WKhfeomxdkD9KwcufZXLE6Frpc1J+dJn7xtDjndgML/00zob0P +0RBkVpTtd5+Fx2sdF74iprXyTzU/Y+GIRFpLQSwNanNPZSZ/YOGykDfpc+Np +eBR1MmPNZxZGdhbe2EHsMZJ5vH+AhXN7f2aVEZd2HTtqOkbqtZLyNkygwczu +aPqPSRbKPTXfF0vc9+DIkbMzLBRWfyl+l1ipKiX17zwK3YsfZBom0lDPSU7h +i1C4gspzDSF2KjqcvFucwpfOuUNlxNMSiUkiUhTOOkWt7CAuSI0/fEuWwqs3 +x7XnHabB8G9sojeDwiWpd//TIe4IPZQgwyIOP+24kzjia0z8Qw6FcpfV0mKI +pZ2j48I1KGz5Ty+siPh6W2QsW5fCwl3h8rXE9lYHDrWtofB0y7mE18Sj9eEH +Ew0p/JsQenGQ+OSa/TErgcIFm8rSBZJo0K0Mjf5gRmHKoXHtJcStSiFRmRso +zB2RP80gDsgOioRNFLoIvq1VJRZdFHhgyI7CkqzPpdrEvHj/iKLtFJ4QE7Jb +RWz1yzfceheFe/YMNvzPX/189v9xpnBsyGVchzi1zyuswo3C69cVh9WJOTs9 +Qx28SX2cL7Qy8YOn7iHCAWQ9o6g1UsTuZm7BN0MoNPXPTpxL/E/NviCPCAqL +a2byfpJ6zmvtDZSKoVDjTHDkO2LTUueApjgKWYxrzEbiXlkn/9AkCv/cTMku +I47N2O3HPELhTMDl18nEjLm7fF8cp3DRg6FeV+K6KAefuCwKNzYsqOEST7lv +9+oupFBX/dPL/8j7y+uy9zx2jsIQho50NfFau60exmUUxt/xVUsiDjfe7JZ/ +mezHoef3pIilqmxcLa+RemSSrd6S83ONs2nfZDWFw5utLuQR/5Cwctl+j0LG +L4V2ceIOP2arz0MKRYJVHe+S89nwYApiWyi0biyjAogzoyoVy99QKPlD+FRd +HA0H2hIz6rooXHlg1NCJ2EVr92xrL4XvNZ01p0k/6PQt6vk9QOGO5meTGsQy +xp9sxEYoDK/oflVP+kcg+/Yd5jiFrRUpf22In1sGFG+cpfCGfpP5PtJ/AVef +7ylaysYarc/1u0k/bxcpf3pVho2urJrVL0m/m7jHcR8osFEoOExwPbGorK7C +MIeNZSPtZfKR5HzEnXyHxmy8vvSDSQnJk1OdPtbb1rFRuD8uc4rkTcxqszpv +czZWGcWb2hJv/DJacHIzG8OOfHvyPZSGAdttu/rd2Oh4Kf7kLMmzl5c0n0x6 +szFim/FcI+JbQvOMRAPZuODKr94Qkn9pN2/I6UWysUG9pb3dnwZVRZnOlGNs +3KCb+SHchwbPoc6dK26w0dStYPdCV5J3G/7vEdSy8fkfp4+LSF7rlaSvtW9g +48JD7f3/y/N5241lDjaT9bq9ds860VB2u6j9WTcbT4dWc+scaeg/6rI9ZL4K +utGmj47bkf0a0GDqLFLBWRcxg4DNNPyy+P39u7gKvo1KLLcivy8LhU4mecup +4LvPOilT1uT9RDZec9FUweZ6JSe9DTQcdFdZartVBbfs/2ahaEL63WTw+Yoz +Klis8byljkPD2YLqgq/nVfBE18MhrgrJu9+HPS+Wq+BIjptWHUXy+ZrCLLNK +BXMwceEVZRpc1W215O6rYOZCgy37l9NwRbrqqPA3FcyQa5sNF6PBcjjC8pMe +B69K1H7Z85MP8rqMZGFjDqZL75m3Z4TMKyFN91as4+BZe/P/dg7x4dSEuHHI +Rg469KyeNB8g88bMJa1ZZw7Sh1Oipz/wIWTRu6WyaRzsr8jXfdbKh3w17Lbu +4mA9z+6OFI/MN76f5YJ6OXi785+uy5f4APyjO7I+cfDrfIHP5hf50K/ztvXt +MAfLdSxbfEv4oLU2pNHjH1WstMsROJHLh0bz0vI4TVWceN9pbHWYzC+uwqHX +YlXxBNesLp7MY0PF62/XH1bF7/4p6x5v58Pw27j5T9JUkfHRZlrUng8/bX8X +fMhSxamYhmUZNnz4ZTTQJFauiqsCeSJBZnyYI9ki7d2qir29sZK0Bh9kmzJu +KSir4UTaXQY1wyP/H5bNSbmnhtkFx5PWZ/Pg6z6LcqOHavjmibA2I4sHR89F +2Iw8UUN+260b4xk8eMXoyHd4rYabdlm7F6fxwEU2b5XGFzUMSXjt9IbMu5Fi +y91fiKqjZKr73Q/7eMCbZDxa7qCO6+x9DQI0eSDxVOX4lWF19C/S+1ZUVwny +qZc36+lpoLvjGT/7yxWQu8JAfKmnJnLEw5Qq8y5Bs9y6NaMntDD6XcDHI/vL +wVD+Xqb2G22Myarm+3EugphQSdjeBB0ca5uYFuu/AIx4RWMHFV3Ub1gu2HGw +FBawd9/Y8lAXC7fWuH+UOw9aXNnLEXtW4mL54I25recgpFui0UpgFTaMYVZv +wFkYHj26zTJ3FW5+UZdbsqMYLLQf5FtqrkbeYHfCzpECuDNq9OfXs9Xo2awv +7eufBwEaKztfuK/B6HXt6mo6OcAdcmtzWKCHamY1a2/0nYJ/KZlNoiV6mGgt +Qjm9OwmqcUcO3NPXx9OWzk8SZjNB3d2gnt2pj0eTi/J1jI+D+x2vw9eC16Jm +dDSlP3ME6s+2uf2QMkDHJyynlrspMFY++0v7pgEKRr4Ia31/GFzZlQvyNxli +emCei6hPAvxQz9KrGjHEtK8iveVz4qC69M+H8VQjtP1aNX55Ohoc17PQiGGM +TRqPW5YHHoDl/ik1Wg3GGNSX3X93NgykFvpd3bSDi2ObBzY9UQ2BUrODUSMO +XPQ3MfbpkQ+BlQePm2Xt5uKLQO+/v8VDwGbkyuuOvVw088k5bPo7GJLfjP92 +9eNio8PSJqXmYJgsiTWNiid28x1a7B8MnUZZr8oquSh94d73izeDwGt/aaEl +zcW2f71sk3lBMEFfdx+8wsVcA50un3NBIMHs+KV7g4t+TZGe5ulBsFFYQf52 +AxcFpXCxhXMQ1LWVub16zcW+w4WH/ISDwEqsWjO8g4sHZEcbdv4JhA6LxxMy +XVykpqvS+z8Fwtitb6lOvVzUqZ7DUqoNBM1zOvyvA1yMUtF5qeIRCHWd68KP +fufiv0OuFvPsAsFKcitoj3BRn6FS9MMoEDxS9r8IG+dicy2z/dsScr+G5Pxl +k+T+75uuTk0HQMJUjuutKS5eaG1ykPoSAOKrL2nsmeHivIs7mo1eBUCx/63x +2VkuBg9X/fW/EwD/D2n9Yxo= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.059610001850326035`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.059610001850326035`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994250988934099*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"4c823b5e-069d-48d7-aaca-211940c2f579"] +}, Open ]], Cell[CellGroupData[{ @@ -7767,14 +7906,12 @@ Cell[BoxData[ FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.9918501819649506`*^9},ExpressionUUID->"1ec1e156-ca0f-9240-857c-\ -ac86e3a0e3fd"], + CellChangeTimes->{3.9918501819649506`*^9}, + CellLabel->"In[98]:=",ExpressionUUID->"1ec1e156-ca0f-9240-857c-ac86e3a0e3fd"], -Cell[BoxData["10.362747935330784`"], "Output", - CellChangeTimes->{3.9913453868532257`*^9}, - CellLabel-> - "Out[420]=",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +Cell[BoxData["12.365749116638321`"], "Output", + CellChangeTimes->{3.9913453868532257`*^9, 3.994250988982779*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"3d40d0cf-bdfe-4a2d-b275-f23002d60fba"] }, Open ]], Cell[CellGroupData[{ @@ -7830,171 +7967,158 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991850184857586*^9},ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-\ -da901e49f6f1"], + CellChangeTimes->{3.991850184857586*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-da901e49f6f1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ + "\"\\!\\(\\*FractionBox[\\\"6.9347080399653425`*^-258\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 421, 449, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345387062414*^9}, + 2, 99, 13, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345387062414*^9, 3.994250989107121*^9}, CellLabel-> "During evaluation of \ -In[421]:=",ExpressionUUID->"08a2126f-e71c-b94d-8844-15e292a8f7d1"], +In[99]:=",ExpressionUUID->"28972989-7d32-4a0b-8d9a-4a2a947318d2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.19148428074309`*^-272\\\", \ + "\"\\!\\(\\*FractionBox[\\\"8.91863716787082`*^-268\\\", \ \\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 421, 450, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345387076412*^9}, + 2, 99, 14, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345387062414*^9, 3.9942509891194763`*^9}, CellLabel-> "During evaluation of \ -In[421]:=",ExpressionUUID->"1acf7f10-7675-ea41-b478-94e928ef3377"], +In[99]:=",ExpressionUUID->"f8c07028-1514-4fb9-9124-c0e97bd5f857"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.652750330712858`*^-282\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.147014243046984`*^-277\\\", \ \\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 421, 451, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345387088339*^9}, +\"", 2, 99, 15, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345387062414*^9, 3.994250989127599*^9}, CellLabel-> "During evaluation of \ -In[421]:=",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], +In[99]:=",ExpressionUUID->"42f48e16-1fe0-49dc-ac8e-d5452c1666b9"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 421, 452, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913453870973415`*^9}, +during this calculation.\"", 2, 99, 16, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345387062414*^9, 3.994250989135805*^9}, CellLabel-> "During evaluation of \ -In[421]:=",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], +In[99]:=",ExpressionUUID->"f6b5f415-8d76-4d77-80f6-9e9b762bc7f1"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy -GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi -4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai -bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa -uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk -vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb -hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS -SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP -F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw -2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr -w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD -JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY -/nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH -zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 -8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 -HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX -csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw -uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh -XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e -w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e -caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN -C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ -EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf -hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N -SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z -20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp -HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S -TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC -+3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b -g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW -221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 -88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 -H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH -F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC -akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS -f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp -+zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP -KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR -HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE -Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e -7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso -ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 -Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw -ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL -jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs -6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa -d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn -jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 -TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 -IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv -gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp -OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna -SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 -NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk -Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 -i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov -GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 -6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf -FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL -Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV -ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h -hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi -xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA -2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 -M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK -/HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg -qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ -PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe -HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h -xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy -NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N -hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf -LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 -Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ -497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE -zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf -Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN -kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU -BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS -gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK -Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s -h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg -8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 -BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW -wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS -9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm -oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb -reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu -+7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN -8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc -Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H -OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D -3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh -zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l -sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO -hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP -8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 -vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs -zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz -0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T -7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON -EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ -8VF94vJg1Az+B+ielp4= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8Vf0fAPCeNNSDZF4y77kXmSFErs/HKKWiRVFG2WVkZDXskSgzMkvy +GPfegySrSGhSSVGKh9RTMlJGKvmd3x/3dV7v1/feM77ns678Ud+9rkuXLFmy +SH3+f5wdeNjGOF9sZP0i1GADz2ajngJaqHFfFKgs3WB66D4NUPTpUVpfGggo +x8oQ95UgaHd5L09fEYxXQNFixyZYOyGeNt9bDapeGYbPOrbBYJOl73RvK+iZ +Z44bdxyErYzRd1O93VDnN+En1+YB8716mV97h0FIXIxZ2hgC90z/KX5e9B2E +s4bz2wvOgdRg/cejqgvQtY+nevRNGoh4OZavNOXBcaZeU2JmNqRpbm20tOZF +VeVp0YaoAnidvaFlSpAfuRPS7Vb9V+F8cfjTpRJr0f6O22JLcDGIZ7w/l54v +jHwKcYa5j0sgfv92o+5ZURTZMHuzpKkUAvSvOj6MomGgXNou//RysLgiML0j +iYZvaaEP2y+XA33l6YSuTBrWmUsYil4ph2c9NlUvSmnIcy+Jp5RdDuon+HgG +umj4W53Dn99eDp9Kgku+SUrgtdjk622z5XBYxHJ83Q0JHG/gdK2wqQCzyZ9h +Pu8l8b+s3RxjXjaEbstQvjsmie7yOmOB/GzgXlV7Izwrid1ih7SLhdhA2++k +X8+7Dk9VR72elWLDWF37HI/6OtS0oIV7abIhPSol8HLIOrwaIvvXZVs2DIsq ++LTxS+GjoS8FMyVsEPdtlhYXl8JjlrVxZRVs2PngYKennBS29bH8bCvZUBt2 +XnWNthR++yNoyalnQ+Lg11Hbg1LYGPmCYD5hg1ZZo/tkkRQmCRAq1l/ZEGm4 +54jkJmnUyNTUrtXhwDaHgm96JtLoYi51aYsBBwQivkRb75RGQ68ks2dGHMi7 +F1uS4iSNFt0L0b3mHKizaPiy4pw0lmb7JnNsOfD1IBH0/bU0WppNPAs+zQGH +kzOJT07J4DoWmRx7hwPMLBOp0VgZjCUGQs62cqjnv8hZmSKDwT8mqvw7OBD2 +e/0zk2IZXOuxT2BXFwcyox1E65/IoFTszcCH7zjwJPV+4XVpWRyPMZIb+sUB +A+7lmrPNskhr/RSQvJELZr1dCxMPZNGEm1VQq8cFyyXLzB27ZdF6cLiu34AL +znt9XsMHWczase22hDEXtp6SD49YLofLzQ/yue7iwgnZ2WvGKnKo7Vr7Z5Mr +F9rcC8fvBcnhKm705r5ULmz/rS90+pQciiuEvA/P4EJXSo/uxgg5ZIfHxBBZ +XHhdvyqi+Jwc+vFa3nDI48LE34FCsXly2GpT01lcwgVa5Ta9ra1yqJApvP1E +Axe8fkxFPOCXx0yhA3IrB7lg4Ocm9lFIHlt7Vz8+PMQF3tE3FTw0eYx2v/aQ +854L1/vvvTKiy2Pbgd42409cGLiTqXpTVx7v+fbd05ziglWsft9VR3lkH7L1 +0lpKgswfjnezizy+qruYz1pGwlgQneedpzw6CJ9VNVtBQoLH3+q0QHnsMpNx +M11NQsuOd9EXEuTxTsio3WohErSEIjVOVclj/let4QY5Epacn2nLrpXHDfPO +cJpOQhfPMbvaRnl8J6O/XJ9BwvGZvbFT7fJ4NqSys1iRhOI+Rr/7G3kUmtV2 +26JOgljhg7j9PHS8M7f6cIUBCSPiLCl/XjoejF2WRxiSUJ1SVXWRn45q6YW7 +s1gkWEXlvH0kTsdVxICkH1L36+qlZaxKx6jk6u0TW0iYVxEcULOmo5Jya/ua +3STM5ktGatvRUfBGl4rBHhKm1zAZ+o50TBXSYDntJWHiu/4xM086GiXLuxbu +J2G40XnW7gwdw36f/vfzQRIG1XwuO0XRkWvw/NaULQlvC0MM3eLpqNq7gDN2 +JLyKTo7yS6Xj8Sltr8nDJDzacUsg4TodnU1SWZVOJNy/fbcquZyOJTmyjZlH +SGjTeLI/naRjU8qWqaCjJNwRHsopqKejtfrDRFUX6nn7Vyve7KTjQ5e5RBd3 +Eshdoo8auuk4mhTzQdGDBHazrHdLLx3vWxYtfqRccm3jjcdDdMTV0kEHj5GQ +c9wBhmeo39fJxPJ6k5D1zmP4v590vNClP1NGOcMqIHZ8kY5ieuKq5j4kXNBO +ePxjFYFSZ1qnAn1JOH89zeePAIEnzdyjlp+g9lc8f+0yEQLNNU+/S6Uc9avq +wBoZAjc/48zm+5EQ7t30U4QgcOO+0lppfxJOD3bkSyoReCivy+wy5aB7/e+Z +WgQGJjs/jQ6g4uH88hOGWwnc9MG4TuEkCR4La4RNdhAYlqG4LJaym69krflu +AkM1XzMHKTvt0/i9147AjJ0RE3FBJNi36xcedKTWx92zeijb6ZmZOLgQeK1l +UUImmIT962wTPH0IdPJUqyymvCfZWcU3gEDHFU3tQ5QtF727AkMI9HQeq5MM +IWGHX4hf2BkC/b83JVpR3vY+SiQiisADv1QNIyhvsU6+FRtPoF+qYRebssn9 +LLvzSQRO5o0Zv6QM+kULKakEOrw0yp6nbFjBvnLpEoFEq063RCgJ/XIVhVty +CWzcX6+6kXLYpbKC6UICExKvz1hQpvGV5l8rJpDnT6eaA+VbkSV5e8sIPPVh +xStvyjZzxbl/cQk8IsScDKU87XUtp7KawPVTC6FRlNOHr152vEXgrQT34HjK +WgevZAs0EagYtulTAuXnnQVZt1sI3LlkW2cc5ROm+Ze82qn9m/RWjKS8pj43 +c90jAntqouaCKXPVczIedRG438bR6DjlXcXZ6aEvCBT2f/fbjvKYRFaaUh+B +cka92uaUEy9mpva+JXAqXnFEg/L65RkpcUPU9WvKBEQpPwhLu6jzkUCxO/o1 +s9T+uH1NuTAySqCrXs3LHsrL3S4mp08S2G4+G0BSLu5PTjKZptbZ7y7GUTbd +k3R+6geBxbe2KdtRHu5ITLyyQODj3WJmypTlquMT/qxg4HbywHwz9X6bFePi +OX8zsFAx6VIsZYf8mLjDggxcl15ca045NyEypkGCgQ9+8UbfpeLH4E94tKcM +A/lMJTVDKfcFnI2iEQy8LZjjqkZZzPFURJAqA2dFglzPU/F4syc0nKnJQA25 +PC0dyvstQs726DDwpF3buf5AEtJ0Tp7WAgbO6Nx8LU1ZsyLg1JApA8WVd/bU +U/H/TM4/LGUbAx2+RR7eS5mfzzdkYg8Dt7R5SYRS+cKO9A7Ot2FgZtq01UrK +FnPHg3YeYmDM7RbxNCrfEoY9AstdGJjY8twhn8rHZfVHT7gFM7BBp2Qkkcrn +a+pHfEVPU99/INW8QOW7SbGjT1sEA38KsLS8KYdfPOxFT2SgwD96H429SPjp +auMxkMdA19P2ha2eJEwJWTjZtDLw2+hxZTpVj/q86M+O3WfgoVpfG0tnqh90 +/ITwJwxc3eGe/v/6lRJWIVv6ioHDDxhbGql6t2GYb3B+lIEjbonlovYk+FQ9 +tc8XZuJ9R/7MNdZUPP9d2llFY+LT9aOuC/tIMHKNYHVIMzFvw5ND/1H1mF9C +U3pSkYnZIk2NJFW/2RFpb9GQia2uOieEdpIwamV9aMSFiZWDvJ1yJiR0l6k9 +/uHJxPes9wnPqX7QwLNiM78vEzelhZ89CyScu1UrqRvKxLk+U6lOqp8oydLe +xCczsU5lhTlLjwT3iTcHVWqZGHz0ZfQxFar/JDnZ+K9UQM0vUfxL11L3P6pK +38CngBmrL4/brSFhznx+fFxQAZuN08sq+UlYzZMW6ympgJ4zDfV7qX65IfRe +jZOaAmJ3oZ0fDwlnXBWErfYp4BDLvkBihgtiRmNPVQoV8OqvGyDzigtXcuty +P19TwO28R1+K9HBh/XyM+z+lCrg09+tx3m4uGNZIL9KrFZBR6HHlYyc1ryhb +qUu2K+Cr9M/m4e1cqBSrTuL9ooDvMD6XXkPNI5PB2z/oKiJtQLlB/yIXpDRl +4ngNFfFbWb1OYRI1f/i3taoYK+Ilx9e2fyVyIWNW0NB/B7W+Z3lRYww1PyyU +qS86KmJSVqM9bxgX/PneCkucU0SW8pEhHhcu5KzHgZ39ijiWnMS4oMOFMWfe +gJpwJWwuv6y4/SkHJgrMbjfHKKFRkv26mcccmHwdsfLxOSX8JmCvX/CAA9+s +5nOH0pXQenrrz//ucmBu82ibQKkSPm0+1Ghbw4GlIk/EPJ8poYber6xb2RyQ +aLvYIC2/HneEYbW7I4f6vyG+NL51PSZ+ftoxNcIGoU6FC5WTyih36E/0548V +IJVA7tbVVcXOsxE+fDfKIVtFX1DYXQ1zX94M6A4rg0eSxjrfU9VxfdPeH1W6 +pWAg1Zqi8UoD4yR/pQQ/KAEBnqLAI1EbsCjJ0GrG8zrIRMoa2ipo4o9PxW11 +n6/BKubh2r33NfHuuFfs4IkiUGdJkMH2WsjgW/Y+TvQq+A8I3bNYoo31p60e +LbcohMnvSdbbs7VR+L+3CZJkHphrdORsV9uIjXoV5dn6OXDn++Zfc10bkXZc +9tV9Thb4qGq9ee6qg4HO6++Oe2cCa8Klx3aVLnZ7rm22JNJhC4O2i79IF8sM +9wnsZaSCUkRiSKueHq5SVKrlu34BlF31m5lv9NDmwpbNsX+dB9c7HjE1fptQ +oiOR6/YhHpqv9LhMieojc5HAtJ4YmC5dnNO4pY+uwPzwRzoKnJkVq3J2GWCF +uRdvOCccppTTdau/GuCMxsjufuNTUFf8a2gmYTOO/RKKjb0UDHZm1CwgY4gj +WU/6Kp0DYZ13fL16iyG2WskWlu33A9HVXlW7DrDQVnA8VbTMG4pNz4R9tWWh +ee2gg06GN2iduWCafpiFp3ptYo+Ee4Pl18qXfUdYaCji83DA2hviXs3MO3ux +0D+gPNuLxxt+FIWbhEVS6xZE2TMnL3izOf1FSQULlw/GeGYyjoPHyeK87VwW +Fj4ZoemuPQ6z3JuuY5UszHMjQoYXjoEQvW9Os5aFEV2g6dB7DHbwSkvdbqF8 +nfXr38Rj0NRT4vLiJQuFP8cfWjPtCRYCdWpBfSz8YyOY6THkCX3mD2dp/Sxk +XRhX7uzyhOmGLwkO/7Lww6kRm7oyT1C7uoHzeZSFYnIcGTEnT2h6YxyUNM5C +68XbZQ93UecT2QcaX1nI/rvePWGzJ7jFn3weOMPCgfFH7ori1Pla4nLEf7Dw +r8G0wpXLPSHqZ5Zzw08Wbtb9Z+bbNw8Q3Fimar/Awtwl710+/+sBBd4NM4uL +LNTdSf802uUB/wMCZDuP "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -8008,130 +8132,114 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy -GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi -4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai -bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa -uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk -vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb -hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS -SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP -F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw -2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr -w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD -JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY -/nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH -zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 -8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 -HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX -csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw -uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh -XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e -w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e -caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN -C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ -EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf -hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N -SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z -20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp -HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S -TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC -+3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b -g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW -221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 -88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 -H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH -F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC -akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS -f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp -+zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP -KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR -HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE -Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e -7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso -ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 -Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw -ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL -jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs -6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa -d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn -jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 -TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 -IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv -gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp -OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna -SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 -NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk -Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 -i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov -GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 -6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf -FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL -Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV -ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h -hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi -xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA -2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 -M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK -/HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg -qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ -PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe -HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h -xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy -NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N -hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf -LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 -Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ -497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE -zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf -Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN -kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU -BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS -gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK -Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s -h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg -8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 -BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW -wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS -9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm -oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb -reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu -+7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN -8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc -Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H -OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D -3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh -zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l -sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO -hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP -8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 -vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs -zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz -0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T -7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON -EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ -8VF94vJg1Az+B+ielp4= +1:eJwV13c8Vf0fAPCeNNSDZF4y77kXmSFErs/HKKWiRVFG2WVkZDXskSgzMkvy +GPfegySrSGhSSVGKh9RTMlJGKvmd3x/3dV7v1/feM77ns678Ud+9rkuXLFmy +SH3+f5wdeNjGOF9sZP0i1GADz2ajngJaqHFfFKgs3WB66D4NUPTpUVpfGggo +x8oQ95UgaHd5L09fEYxXQNFixyZYOyGeNt9bDapeGYbPOrbBYJOl73RvK+iZ +Z44bdxyErYzRd1O93VDnN+En1+YB8716mV97h0FIXIxZ2hgC90z/KX5e9B2E +s4bz2wvOgdRg/cejqgvQtY+nevRNGoh4OZavNOXBcaZeU2JmNqRpbm20tOZF +VeVp0YaoAnidvaFlSpAfuRPS7Vb9V+F8cfjTpRJr0f6O22JLcDGIZ7w/l54v +jHwKcYa5j0sgfv92o+5ZURTZMHuzpKkUAvSvOj6MomGgXNou//RysLgiML0j +iYZvaaEP2y+XA33l6YSuTBrWmUsYil4ph2c9NlUvSmnIcy+Jp5RdDuon+HgG +umj4W53Dn99eDp9Kgku+SUrgtdjk622z5XBYxHJ83Q0JHG/gdK2wqQCzyZ9h +Pu8l8b+s3RxjXjaEbstQvjsmie7yOmOB/GzgXlV7Izwrid1ih7SLhdhA2++k +X8+7Dk9VR72elWLDWF37HI/6OtS0oIV7abIhPSol8HLIOrwaIvvXZVs2DIsq ++LTxS+GjoS8FMyVsEPdtlhYXl8JjlrVxZRVs2PngYKennBS29bH8bCvZUBt2 +XnWNthR++yNoyalnQ+Lg11Hbg1LYGPmCYD5hg1ZZo/tkkRQmCRAq1l/ZEGm4 +54jkJmnUyNTUrtXhwDaHgm96JtLoYi51aYsBBwQivkRb75RGQ68ks2dGHMi7 +F1uS4iSNFt0L0b3mHKizaPiy4pw0lmb7JnNsOfD1IBH0/bU0WppNPAs+zQGH +kzOJT07J4DoWmRx7hwPMLBOp0VgZjCUGQs62cqjnv8hZmSKDwT8mqvw7OBD2 +e/0zk2IZXOuxT2BXFwcyox1E65/IoFTszcCH7zjwJPV+4XVpWRyPMZIb+sUB +A+7lmrPNskhr/RSQvJELZr1dCxMPZNGEm1VQq8cFyyXLzB27ZdF6cLiu34AL +znt9XsMHWczase22hDEXtp6SD49YLofLzQ/yue7iwgnZ2WvGKnKo7Vr7Z5Mr +F9rcC8fvBcnhKm705r5ULmz/rS90+pQciiuEvA/P4EJXSo/uxgg5ZIfHxBBZ +XHhdvyqi+Jwc+vFa3nDI48LE34FCsXly2GpT01lcwgVa5Ta9ra1yqJApvP1E +Axe8fkxFPOCXx0yhA3IrB7lg4Ocm9lFIHlt7Vz8+PMQF3tE3FTw0eYx2v/aQ +854L1/vvvTKiy2Pbgd42409cGLiTqXpTVx7v+fbd05ziglWsft9VR3lkH7L1 +0lpKgswfjnezizy+qruYz1pGwlgQneedpzw6CJ9VNVtBQoLH3+q0QHnsMpNx +M11NQsuOd9EXEuTxTsio3WohErSEIjVOVclj/let4QY5Epacn2nLrpXHDfPO +cJpOQhfPMbvaRnl8J6O/XJ9BwvGZvbFT7fJ4NqSys1iRhOI+Rr/7G3kUmtV2 +26JOgljhg7j9PHS8M7f6cIUBCSPiLCl/XjoejF2WRxiSUJ1SVXWRn45q6YW7 +s1gkWEXlvH0kTsdVxICkH1L36+qlZaxKx6jk6u0TW0iYVxEcULOmo5Jya/ua +3STM5ktGatvRUfBGl4rBHhKm1zAZ+o50TBXSYDntJWHiu/4xM086GiXLuxbu +J2G40XnW7gwdw36f/vfzQRIG1XwuO0XRkWvw/NaULQlvC0MM3eLpqNq7gDN2 +JLyKTo7yS6Xj8Sltr8nDJDzacUsg4TodnU1SWZVOJNy/fbcquZyOJTmyjZlH +SGjTeLI/naRjU8qWqaCjJNwRHsopqKejtfrDRFUX6nn7Vyve7KTjQ5e5RBd3 +Eshdoo8auuk4mhTzQdGDBHazrHdLLx3vWxYtfqRccm3jjcdDdMTV0kEHj5GQ +c9wBhmeo39fJxPJ6k5D1zmP4v590vNClP1NGOcMqIHZ8kY5ieuKq5j4kXNBO +ePxjFYFSZ1qnAn1JOH89zeePAIEnzdyjlp+g9lc8f+0yEQLNNU+/S6Uc9avq +wBoZAjc/48zm+5EQ7t30U4QgcOO+0lppfxJOD3bkSyoReCivy+wy5aB7/e+Z +WgQGJjs/jQ6g4uH88hOGWwnc9MG4TuEkCR4La4RNdhAYlqG4LJaym69krflu +AkM1XzMHKTvt0/i9147AjJ0RE3FBJNi36xcedKTWx92zeijb6ZmZOLgQeK1l +UUImmIT962wTPH0IdPJUqyymvCfZWcU3gEDHFU3tQ5QtF727AkMI9HQeq5MM +IWGHX4hf2BkC/b83JVpR3vY+SiQiisADv1QNIyhvsU6+FRtPoF+qYRebssn9 +LLvzSQRO5o0Zv6QM+kULKakEOrw0yp6nbFjBvnLpEoFEq063RCgJ/XIVhVty +CWzcX6+6kXLYpbKC6UICExKvz1hQpvGV5l8rJpDnT6eaA+VbkSV5e8sIPPVh +xStvyjZzxbl/cQk8IsScDKU87XUtp7KawPVTC6FRlNOHr152vEXgrQT34HjK +WgevZAs0EagYtulTAuXnnQVZt1sI3LlkW2cc5ROm+Ze82qn9m/RWjKS8pj43 +c90jAntqouaCKXPVczIedRG438bR6DjlXcXZ6aEvCBT2f/fbjvKYRFaaUh+B +cka92uaUEy9mpva+JXAqXnFEg/L65RkpcUPU9WvKBEQpPwhLu6jzkUCxO/o1 +s9T+uH1NuTAySqCrXs3LHsrL3S4mp08S2G4+G0BSLu5PTjKZptbZ7y7GUTbd +k3R+6geBxbe2KdtRHu5ITLyyQODj3WJmypTlquMT/qxg4HbywHwz9X6bFePi +OX8zsFAx6VIsZYf8mLjDggxcl15ca045NyEypkGCgQ9+8UbfpeLH4E94tKcM +A/lMJTVDKfcFnI2iEQy8LZjjqkZZzPFURJAqA2dFglzPU/F4syc0nKnJQA25 +PC0dyvstQs726DDwpF3buf5AEtJ0Tp7WAgbO6Nx8LU1ZsyLg1JApA8WVd/bU +U/H/TM4/LGUbAx2+RR7eS5mfzzdkYg8Dt7R5SYRS+cKO9A7Ot2FgZtq01UrK +FnPHg3YeYmDM7RbxNCrfEoY9AstdGJjY8twhn8rHZfVHT7gFM7BBp2Qkkcrn +a+pHfEVPU99/INW8QOW7SbGjT1sEA38KsLS8KYdfPOxFT2SgwD96H429SPjp +auMxkMdA19P2ha2eJEwJWTjZtDLw2+hxZTpVj/q86M+O3WfgoVpfG0tnqh90 +/ITwJwxc3eGe/v/6lRJWIVv6ioHDDxhbGql6t2GYb3B+lIEjbonlovYk+FQ9 +tc8XZuJ9R/7MNdZUPP9d2llFY+LT9aOuC/tIMHKNYHVIMzFvw5ND/1H1mF9C +U3pSkYnZIk2NJFW/2RFpb9GQia2uOieEdpIwamV9aMSFiZWDvJ1yJiR0l6k9 +/uHJxPes9wnPqX7QwLNiM78vEzelhZ89CyScu1UrqRvKxLk+U6lOqp8oydLe +xCczsU5lhTlLjwT3iTcHVWqZGHz0ZfQxFar/JDnZ+K9UQM0vUfxL11L3P6pK +38CngBmrL4/brSFhznx+fFxQAZuN08sq+UlYzZMW6ympgJ4zDfV7qX65IfRe +jZOaAmJ3oZ0fDwlnXBWErfYp4BDLvkBihgtiRmNPVQoV8OqvGyDzigtXcuty +P19TwO28R1+K9HBh/XyM+z+lCrg09+tx3m4uGNZIL9KrFZBR6HHlYyc1ryhb +qUu2K+Cr9M/m4e1cqBSrTuL9ooDvMD6XXkPNI5PB2z/oKiJtQLlB/yIXpDRl +4ngNFfFbWb1OYRI1f/i3taoYK+Ilx9e2fyVyIWNW0NB/B7W+Z3lRYww1PyyU +qS86KmJSVqM9bxgX/PneCkucU0SW8pEhHhcu5KzHgZ39ijiWnMS4oMOFMWfe +gJpwJWwuv6y4/SkHJgrMbjfHKKFRkv26mcccmHwdsfLxOSX8JmCvX/CAA9+s +5nOH0pXQenrrz//ucmBu82ibQKkSPm0+1Ghbw4GlIk/EPJ8poYber6xb2RyQ +aLvYIC2/HneEYbW7I4f6vyG+NL51PSZ+ftoxNcIGoU6FC5WTyih36E/0548V +IJVA7tbVVcXOsxE+fDfKIVtFX1DYXQ1zX94M6A4rg0eSxjrfU9VxfdPeH1W6 +pWAg1Zqi8UoD4yR/pQQ/KAEBnqLAI1EbsCjJ0GrG8zrIRMoa2ipo4o9PxW11 +n6/BKubh2r33NfHuuFfs4IkiUGdJkMH2WsjgW/Y+TvQq+A8I3bNYoo31p60e +LbcohMnvSdbbs7VR+L+3CZJkHphrdORsV9uIjXoV5dn6OXDn++Zfc10bkXZc +9tV9Thb4qGq9ee6qg4HO6++Oe2cCa8Klx3aVLnZ7rm22JNJhC4O2i79IF8sM +9wnsZaSCUkRiSKueHq5SVKrlu34BlF31m5lv9NDmwpbNsX+dB9c7HjE1fptQ +oiOR6/YhHpqv9LhMieojc5HAtJ4YmC5dnNO4pY+uwPzwRzoKnJkVq3J2GWCF +uRdvOCccppTTdau/GuCMxsjufuNTUFf8a2gmYTOO/RKKjb0UDHZm1CwgY4gj +WU/6Kp0DYZ13fL16iyG2WskWlu33A9HVXlW7DrDQVnA8VbTMG4pNz4R9tWWh +ee2gg06GN2iduWCafpiFp3ptYo+Ee4Pl18qXfUdYaCji83DA2hviXs3MO3ux +0D+gPNuLxxt+FIWbhEVS6xZE2TMnL3izOf1FSQULlw/GeGYyjoPHyeK87VwW +Fj4ZoemuPQ6z3JuuY5UszHMjQoYXjoEQvW9Os5aFEV2g6dB7DHbwSkvdbqF8 +nfXr38Rj0NRT4vLiJQuFP8cfWjPtCRYCdWpBfSz8YyOY6THkCX3mD2dp/Sxk +XRhX7uzyhOmGLwkO/7Lww6kRm7oyT1C7uoHzeZSFYnIcGTEnT2h6YxyUNM5C +68XbZQ93UecT2QcaX1nI/rvePWGzJ7jFn3weOMPCgfFH7ori1Pla4nLEf7Dw +r8G0wpXLPSHqZ5Zzw08Wbtb9Z+bbNw8Q3Fimar/Awtwl710+/+sBBd4NM4uL +LNTdSf802uUB/wMCZDuP "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "PlotRange" -> {{0, 30}, {0., 0.06147411188816348}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -8143,19 +8251,19 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "PlotRange" -> {{0, 30}, {0., 0.06147411188816348}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8169,129 +8277,113 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy -GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi -4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai -bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa -uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk -vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb -hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS -SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP -F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw -2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr -w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD -JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY -/nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH -zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 -8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 -HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX -csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw -uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh -XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e -w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e -caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN -C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ -EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf -hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N -SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z -20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp -HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S -TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC -+3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b -g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW -221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 -88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 -H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH -F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC -akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS -f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp -+zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP -KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR -HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE -Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e -7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso -ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 -Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw -ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL -jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs -6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa -d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn -jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 -TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 -IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv -gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp -OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna -SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 -NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk -Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 -i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov -GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 -6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf -FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL -Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV -ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h -hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi -xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA -2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 -M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK -/HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg -qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ -PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe -HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h -xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy -NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N -hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf -LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 -Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ -497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE -zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf -Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN -kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU -BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS -gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK -Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s -h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg -8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 -BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW -wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS -9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm -oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb -reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu -+7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN -8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc -Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H -OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D -3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh -zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l -sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO -hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP -8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 -vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs -zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz -0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T -7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON -EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ -8VF94vJg1Az+B+ielp4= +1:eJwV13c8Vf0fAPCeNNSDZF4y77kXmSFErs/HKKWiRVFG2WVkZDXskSgzMkvy +GPfegySrSGhSSVGKh9RTMlJGKvmd3x/3dV7v1/feM77ns678Ud+9rkuXLFmy +SH3+f5wdeNjGOF9sZP0i1GADz2ajngJaqHFfFKgs3WB66D4NUPTpUVpfGggo +x8oQ95UgaHd5L09fEYxXQNFixyZYOyGeNt9bDapeGYbPOrbBYJOl73RvK+iZ +Z44bdxyErYzRd1O93VDnN+En1+YB8716mV97h0FIXIxZ2hgC90z/KX5e9B2E +s4bz2wvOgdRg/cejqgvQtY+nevRNGoh4OZavNOXBcaZeU2JmNqRpbm20tOZF +VeVp0YaoAnidvaFlSpAfuRPS7Vb9V+F8cfjTpRJr0f6O22JLcDGIZ7w/l54v +jHwKcYa5j0sgfv92o+5ZURTZMHuzpKkUAvSvOj6MomGgXNou//RysLgiML0j +iYZvaaEP2y+XA33l6YSuTBrWmUsYil4ph2c9NlUvSmnIcy+Jp5RdDuon+HgG +umj4W53Dn99eDp9Kgku+SUrgtdjk622z5XBYxHJ83Q0JHG/gdK2wqQCzyZ9h +Pu8l8b+s3RxjXjaEbstQvjsmie7yOmOB/GzgXlV7Izwrid1ih7SLhdhA2++k +X8+7Dk9VR72elWLDWF37HI/6OtS0oIV7abIhPSol8HLIOrwaIvvXZVs2DIsq ++LTxS+GjoS8FMyVsEPdtlhYXl8JjlrVxZRVs2PngYKennBS29bH8bCvZUBt2 +XnWNthR++yNoyalnQ+Lg11Hbg1LYGPmCYD5hg1ZZo/tkkRQmCRAq1l/ZEGm4 +54jkJmnUyNTUrtXhwDaHgm96JtLoYi51aYsBBwQivkRb75RGQ68ks2dGHMi7 +F1uS4iSNFt0L0b3mHKizaPiy4pw0lmb7JnNsOfD1IBH0/bU0WppNPAs+zQGH +kzOJT07J4DoWmRx7hwPMLBOp0VgZjCUGQs62cqjnv8hZmSKDwT8mqvw7OBD2 +e/0zk2IZXOuxT2BXFwcyox1E65/IoFTszcCH7zjwJPV+4XVpWRyPMZIb+sUB +A+7lmrPNskhr/RSQvJELZr1dCxMPZNGEm1VQq8cFyyXLzB27ZdF6cLiu34AL +znt9XsMHWczase22hDEXtp6SD49YLofLzQ/yue7iwgnZ2WvGKnKo7Vr7Z5Mr +F9rcC8fvBcnhKm705r5ULmz/rS90+pQciiuEvA/P4EJXSo/uxgg5ZIfHxBBZ +XHhdvyqi+Jwc+vFa3nDI48LE34FCsXly2GpT01lcwgVa5Ta9ra1yqJApvP1E +Axe8fkxFPOCXx0yhA3IrB7lg4Ocm9lFIHlt7Vz8+PMQF3tE3FTw0eYx2v/aQ +854L1/vvvTKiy2Pbgd42409cGLiTqXpTVx7v+fbd05ziglWsft9VR3lkH7L1 +0lpKgswfjnezizy+qruYz1pGwlgQneedpzw6CJ9VNVtBQoLH3+q0QHnsMpNx +M11NQsuOd9EXEuTxTsio3WohErSEIjVOVclj/let4QY5Epacn2nLrpXHDfPO +cJpOQhfPMbvaRnl8J6O/XJ9BwvGZvbFT7fJ4NqSys1iRhOI+Rr/7G3kUmtV2 +26JOgljhg7j9PHS8M7f6cIUBCSPiLCl/XjoejF2WRxiSUJ1SVXWRn45q6YW7 +s1gkWEXlvH0kTsdVxICkH1L36+qlZaxKx6jk6u0TW0iYVxEcULOmo5Jya/ua +3STM5ktGatvRUfBGl4rBHhKm1zAZ+o50TBXSYDntJWHiu/4xM086GiXLuxbu +J2G40XnW7gwdw36f/vfzQRIG1XwuO0XRkWvw/NaULQlvC0MM3eLpqNq7gDN2 +JLyKTo7yS6Xj8Sltr8nDJDzacUsg4TodnU1SWZVOJNy/fbcquZyOJTmyjZlH +SGjTeLI/naRjU8qWqaCjJNwRHsopqKejtfrDRFUX6nn7Vyve7KTjQ5e5RBd3 +Eshdoo8auuk4mhTzQdGDBHazrHdLLx3vWxYtfqRccm3jjcdDdMTV0kEHj5GQ +c9wBhmeo39fJxPJ6k5D1zmP4v590vNClP1NGOcMqIHZ8kY5ieuKq5j4kXNBO +ePxjFYFSZ1qnAn1JOH89zeePAIEnzdyjlp+g9lc8f+0yEQLNNU+/S6Uc9avq +wBoZAjc/48zm+5EQ7t30U4QgcOO+0lppfxJOD3bkSyoReCivy+wy5aB7/e+Z +WgQGJjs/jQ6g4uH88hOGWwnc9MG4TuEkCR4La4RNdhAYlqG4LJaym69krflu +AkM1XzMHKTvt0/i9147AjJ0RE3FBJNi36xcedKTWx92zeijb6ZmZOLgQeK1l +UUImmIT962wTPH0IdPJUqyymvCfZWcU3gEDHFU3tQ5QtF727AkMI9HQeq5MM +IWGHX4hf2BkC/b83JVpR3vY+SiQiisADv1QNIyhvsU6+FRtPoF+qYRebssn9 +LLvzSQRO5o0Zv6QM+kULKakEOrw0yp6nbFjBvnLpEoFEq063RCgJ/XIVhVty +CWzcX6+6kXLYpbKC6UICExKvz1hQpvGV5l8rJpDnT6eaA+VbkSV5e8sIPPVh +xStvyjZzxbl/cQk8IsScDKU87XUtp7KawPVTC6FRlNOHr152vEXgrQT34HjK +WgevZAs0EagYtulTAuXnnQVZt1sI3LlkW2cc5ROm+Ze82qn9m/RWjKS8pj43 +c90jAntqouaCKXPVczIedRG438bR6DjlXcXZ6aEvCBT2f/fbjvKYRFaaUh+B +cka92uaUEy9mpva+JXAqXnFEg/L65RkpcUPU9WvKBEQpPwhLu6jzkUCxO/o1 +s9T+uH1NuTAySqCrXs3LHsrL3S4mp08S2G4+G0BSLu5PTjKZptbZ7y7GUTbd +k3R+6geBxbe2KdtRHu5ITLyyQODj3WJmypTlquMT/qxg4HbywHwz9X6bFePi +OX8zsFAx6VIsZYf8mLjDggxcl15ca045NyEypkGCgQ9+8UbfpeLH4E94tKcM +A/lMJTVDKfcFnI2iEQy8LZjjqkZZzPFURJAqA2dFglzPU/F4syc0nKnJQA25 +PC0dyvstQs726DDwpF3buf5AEtJ0Tp7WAgbO6Nx8LU1ZsyLg1JApA8WVd/bU +U/H/TM4/LGUbAx2+RR7eS5mfzzdkYg8Dt7R5SYRS+cKO9A7Ot2FgZtq01UrK +FnPHg3YeYmDM7RbxNCrfEoY9AstdGJjY8twhn8rHZfVHT7gFM7BBp2Qkkcrn +a+pHfEVPU99/INW8QOW7SbGjT1sEA38KsLS8KYdfPOxFT2SgwD96H429SPjp +auMxkMdA19P2ha2eJEwJWTjZtDLw2+hxZTpVj/q86M+O3WfgoVpfG0tnqh90 +/ITwJwxc3eGe/v/6lRJWIVv6ioHDDxhbGql6t2GYb3B+lIEjbonlovYk+FQ9 +tc8XZuJ9R/7MNdZUPP9d2llFY+LT9aOuC/tIMHKNYHVIMzFvw5ND/1H1mF9C +U3pSkYnZIk2NJFW/2RFpb9GQia2uOieEdpIwamV9aMSFiZWDvJ1yJiR0l6k9 +/uHJxPes9wnPqX7QwLNiM78vEzelhZ89CyScu1UrqRvKxLk+U6lOqp8oydLe +xCczsU5lhTlLjwT3iTcHVWqZGHz0ZfQxFar/JDnZ+K9UQM0vUfxL11L3P6pK +38CngBmrL4/brSFhznx+fFxQAZuN08sq+UlYzZMW6ympgJ4zDfV7qX65IfRe +jZOaAmJ3oZ0fDwlnXBWErfYp4BDLvkBihgtiRmNPVQoV8OqvGyDzigtXcuty +P19TwO28R1+K9HBh/XyM+z+lCrg09+tx3m4uGNZIL9KrFZBR6HHlYyc1ryhb +qUu2K+Cr9M/m4e1cqBSrTuL9ooDvMD6XXkPNI5PB2z/oKiJtQLlB/yIXpDRl +4ngNFfFbWb1OYRI1f/i3taoYK+Ilx9e2fyVyIWNW0NB/B7W+Z3lRYww1PyyU +qS86KmJSVqM9bxgX/PneCkucU0SW8pEhHhcu5KzHgZ39ijiWnMS4oMOFMWfe +gJpwJWwuv6y4/SkHJgrMbjfHKKFRkv26mcccmHwdsfLxOSX8JmCvX/CAA9+s +5nOH0pXQenrrz//ucmBu82ibQKkSPm0+1Ghbw4GlIk/EPJ8poYber6xb2RyQ +aLvYIC2/HneEYbW7I4f6vyG+NL51PSZ+ftoxNcIGoU6FC5WTyih36E/0548V +IJVA7tbVVcXOsxE+fDfKIVtFX1DYXQ1zX94M6A4rg0eSxjrfU9VxfdPeH1W6 +pWAg1Zqi8UoD4yR/pQQ/KAEBnqLAI1EbsCjJ0GrG8zrIRMoa2ipo4o9PxW11 +n6/BKubh2r33NfHuuFfs4IkiUGdJkMH2WsjgW/Y+TvQq+A8I3bNYoo31p60e +LbcohMnvSdbbs7VR+L+3CZJkHphrdORsV9uIjXoV5dn6OXDn++Zfc10bkXZc +9tV9Thb4qGq9ee6qg4HO6++Oe2cCa8Klx3aVLnZ7rm22JNJhC4O2i79IF8sM +9wnsZaSCUkRiSKueHq5SVKrlu34BlF31m5lv9NDmwpbNsX+dB9c7HjE1fptQ +oiOR6/YhHpqv9LhMieojc5HAtJ4YmC5dnNO4pY+uwPzwRzoKnJkVq3J2GWCF +uRdvOCccppTTdau/GuCMxsjufuNTUFf8a2gmYTOO/RKKjb0UDHZm1CwgY4gj +WU/6Kp0DYZ13fL16iyG2WskWlu33A9HVXlW7DrDQVnA8VbTMG4pNz4R9tWWh +ee2gg06GN2iduWCafpiFp3ptYo+Ee4Pl18qXfUdYaCji83DA2hviXs3MO3ux +0D+gPNuLxxt+FIWbhEVS6xZE2TMnL3izOf1FSQULlw/GeGYyjoPHyeK87VwW +Fj4ZoemuPQ6z3JuuY5UszHMjQoYXjoEQvW9Os5aFEV2g6dB7DHbwSkvdbqF8 +nfXr38Rj0NRT4vLiJQuFP8cfWjPtCRYCdWpBfSz8YyOY6THkCX3mD2dp/Sxk +XRhX7uzyhOmGLwkO/7Lww6kRm7oyT1C7uoHzeZSFYnIcGTEnT2h6YxyUNM5C +68XbZQ93UecT2QcaX1nI/rvePWGzJ7jFn3weOMPCgfFH7ori1Pla4nLEf7Dw +r8G0wpXLPSHqZ5Zzw08Wbtb9Z+bbNw8Q3Fimar/Awtwl710+/+sBBd4NM4uL +LNTdSf802uUB/wMCZDuP "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "PlotRange" -> {{0, 30}, {0., 0.06147411188816348}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8302,6 +8394,7 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8329,7 +8422,8 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.07335635796919572}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06147411188816348}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8337,9 +8431,8 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913457856953163`*^9}, - CellLabel-> - "Out[421]=",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] + CellChangeTimes->{3.9913457856953163`*^9, 3.9942516813266783`*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"1f00eaac-1270-4c79-b0ea-04e853312b1f"] }, Open ]], Cell[CellGroupData[{ @@ -8392,66 +8485,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[422]:=",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], + "In[100]:=",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 422, 453, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345785749161*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.828699418657412`*^-177\\\", \ +RowBox[{\\\"240596938679980309735403735113653345779\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"54\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8305808000876544000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 17, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345785749161*^9, 3.994251681498446*^9}, CellLabel-> "During evaluation of \ -In[422]:=",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], +In[100]:=",ExpressionUUID->"506144b4-be80-4f70-b3cf-91f1f5d57731"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 422, 454, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345785759161*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.261727114208004`*^-181\\\", \ +RowBox[{\\\"650574122190666757524531699747318646986\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"57\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8904834370174976000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 18, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345785749161*^9, 3.994251681508341*^9}, CellLabel-> "During evaluation of \ -In[422]:=",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], +In[100]:=",ExpressionUUID->"3e5781c1-e224-41e3-81f7-8514b810f5d8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 422, 455, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345785767502*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.1441044959479576`*^-184\\\", \ +RowBox[{\\\"182746270923358292188640954459021807938\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"61\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3679745821507584000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 19, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345785749161*^9, 3.9942516815178013`*^9}, CellLabel-> "During evaluation of \ -In[422]:=",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], +In[100]:=",ExpressionUUID->"ec94d5d5-ec21-4e40-8c5d-3f42458c107b"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 422, 456, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913457857765007`*^9}, +during this calculation.\"", 2, 100, 20, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345785749161*^9, 3.99425168152669*^9}, CellLabel-> "During evaluation of \ -In[422]:=",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], +In[100]:=",ExpressionUUID->"63546eaa-5b94-43fb-8fd6-a5b06f9f0d5d"], -Cell[BoxData["10.362747935330768`"], "Output", - CellChangeTimes->{3.991345792196575*^9}, +Cell[BoxData["12.36571511221715`"], "Output", + CellChangeTimes->{3.991345792196575*^9, 3.994251759288045*^9}, CellLabel-> - "Out[422]=",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] + "Out[100]=",ExpressionUUID->"38ee6d54-b018-458e-9142-26ec1e301cc5"] }, Open ]], Cell[CellGroupData[{ @@ -8518,68 +8618,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918501903071613`*^9, - 3.9918501951272774`*^9}},ExpressionUUID->"0b10f52e-4583-2a4b-993d-\ -96e59dd43e6a"], + CellChangeTimes->{{3.9918501903071613`*^9, 3.9918501951272774`*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"0b10f52e-4583-2a4b-993d-96e59dd43e6a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 423, 457, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345792232563*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.791880078397317`*^-209\\\", \ +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 21, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345792232563*^9, 3.994251759356537*^9}, CellLabel-> "During evaluation of \ -In[423]:=",ExpressionUUID->"0e308aaf-a4b5-d740-9882-5c338a63d7a7"], +In[101]:=",ExpressionUUID->"c4b474aa-567a-4b69-b9a9-7072fe320149"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 423, 458, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345792242544*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.379570710536672`*^-214\\\", \ +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 22, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345792232563*^9, 3.994251759365142*^9}, CellLabel-> "During evaluation of \ -In[423]:=",ExpressionUUID->"5e35cc91-e340-c74b-b6dd-42063e8a308b"], +In[101]:=",ExpressionUUID->"e0540506-4ff4-448c-9101-0c7924e28997"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 423, 459, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913457922505417`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.026893150384297`*^-219\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 23, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345792232563*^9, 3.994251759373472*^9}, CellLabel-> "During evaluation of \ -In[423]:=",ExpressionUUID->"c3f5c3a9-ece1-e648-aa3a-3f66f2873ea7"], +In[101]:=",ExpressionUUID->"cf0dcec6-d688-4e06-aada-913d73f96d53"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 423, 460, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913457922595577`*^9}, +during this calculation.\"", 2, 101, 24, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345792232563*^9, 3.994251759381708*^9}, CellLabel-> "During evaluation of \ -In[423]:=",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], +In[101]:=",ExpressionUUID->"a41b2122-7d0f-4c87-8dd0-cc80b5784595"], -Cell[BoxData["0.32136877427435395`"], "Output", - CellChangeTimes->{3.991345799137081*^9}, +Cell[BoxData["1.9134039102480322`"], "Output", + CellChangeTimes->{3.991345799137081*^9, 3.994251770673225*^9}, CellLabel-> - "Out[423]=",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] + "Out[101]=",ExpressionUUID->"56a9e5d0-4acd-4e25-88f1-7a0a85c3c171"] }, Open ]], Cell[CellGroupData[{ @@ -8600,8 +8707,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8646,68 +8752,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.99185020477277*^9, - 3.991850207864538*^9}},ExpressionUUID->"a58948c9-6d3d-e847-a269-\ -d2e0cc5d1484"], + CellChangeTimes->{{3.99185020477277*^9, 3.991850207864538*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"a58948c9-6d3d-e847-a269-d2e0cc5d1484"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 424, 461, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913457991730843`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.791880078397317`*^-209\\\", \ +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 25, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913457991730843`*^9, 3.994251770720105*^9}, CellLabel-> "During evaluation of \ -In[424]:=",ExpressionUUID->"2247cd70-3ffa-2245-971e-6c6a2bd1ecfc"], +In[102]:=",ExpressionUUID->"9411f8ff-2838-4791-9867-683414b5629e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 424, 462, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913457991830807`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.379570710536672`*^-214\\\", \ +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 26, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913457991730843`*^9, 3.994251770729734*^9}, CellLabel-> "During evaluation of \ -In[424]:=",ExpressionUUID->"d9ae7d5b-4e89-a74f-be53-15700ab2593c"], +In[102]:=",ExpressionUUID->"82da7b75-5e00-450c-a7c2-8614a67c1358"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 424, 463, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345799191578*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.026893150384297`*^-219\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 27, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913457991730843`*^9, 3.9942517707390547`*^9}, CellLabel-> "During evaluation of \ -In[424]:=",ExpressionUUID->"821c7ce3-36cc-9549-9881-1225eb1561cf"], +In[102]:=",ExpressionUUID->"2020d9ef-2f0c-4b31-8a7b-d2d5dd205ec6"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 424, 464, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913457992005787`*^9}, +during this calculation.\"", 2, 102, 28, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913457991730843`*^9, 3.994251770746435*^9}, CellLabel-> "During evaluation of \ -In[424]:=",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], +In[102]:=",ExpressionUUID->"5c18c0ed-447e-44bd-8076-b20739c72ce7"], -Cell[BoxData["6.886509882261309`"], "Output", - CellChangeTimes->{3.991345804559931*^9}, +Cell[BoxData["44.435552467181815`"], "Output", + CellChangeTimes->{3.991345804559931*^9, 3.9942517815671463`*^9}, CellLabel-> - "Out[424]=",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] + "Out[102]=",ExpressionUUID->"2c0994ee-2006-4b1e-bdc7-c98c738d5087"] }, Open ]], Cell[CellGroupData[{ @@ -8728,8 +8841,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8774,68 +8886,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918502122939777`*^9, - 3.991850217343153*^9}},ExpressionUUID->"c817b2d1-7deb-5a45-9938-\ -ca10003188eb"], + CellChangeTimes->{{3.9918502122939777`*^9, 3.991850217343153*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"c817b2d1-7deb-5a45-9938-ca10003188eb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 425, 465, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913458046014442`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.791880078397317`*^-209\\\", \ +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 29, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458046014442`*^9, 3.9942517816336737`*^9}, CellLabel-> "During evaluation of \ -In[425]:=",ExpressionUUID->"3701f96f-691c-9040-a8a1-ff3958638338"], +In[103]:=",ExpressionUUID->"4c5c9cfd-f81a-4609-aad3-f28a1f17e9f5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 425, 466, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913458046114445`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.379570710536672`*^-214\\\", \ +RowBox[{\\\"365000401101666289871540890002851771561\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 30, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458046014442`*^9, 3.9942517816451607`*^9}, CellLabel-> "During evaluation of \ -In[425]:=",ExpressionUUID->"9e260603-f97f-ac44-8251-869444fbcc24"], +In[103]:=",ExpressionUUID->"32ca0449-96fe-495c-a1f9-300325822a2e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 425, 467, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345804619444*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.026893150384297`*^-219\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 31, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458046014442`*^9, 3.994251781654048*^9}, CellLabel-> "During evaluation of \ -In[425]:=",ExpressionUUID->"f34d60ab-6a89-fd45-89b6-5f3b4b17dd22"], +In[103]:=",ExpressionUUID->"424d6953-26c6-4d2f-8068-d41a8db87e3a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 425, 468, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913458046274433`*^9}, +during this calculation.\"", 2, 103, 32, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458046014442`*^9, 3.994251781663061*^9}, CellLabel-> "During evaluation of \ -In[425]:=",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], +In[103]:=",ExpressionUUID->"c94bdfef-5e96-4f76-9abf-ea4eab3ec7f5"], -Cell[BoxData["18.478556086442907`"], "Output", - CellChangeTimes->{3.991345807954506*^9}, +Cell[BoxData["10.861312922956575`"], "Output", + CellChangeTimes->{3.991345807954506*^9, 3.994251790703154*^9}, CellLabel-> - "Out[425]=",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] + "Out[103]=",ExpressionUUID->"50fd31bb-ccf0-4233-afe1-eea8457b9357"] }, Open ]], Cell[CellGroupData[{ @@ -8844,22 +8963,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991850221900238*^9, - 3.9918502257325497`*^9}},ExpressionUUID->"350334c7-7c47-c24c-8adc-\ -781173809e57"], - -Cell[BoxData["0.028488532115740543`"], "Output", - CellChangeTimes->{3.991345807987507*^9}, + CellChangeTimes->{{3.991850221900238*^9, 3.9918502257325497`*^9}}, CellLabel-> - "Out[426]=",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] + "In[104]:=",ExpressionUUID->"350334c7-7c47-c24c-8adc-781173809e57"], + +Cell[BoxData["0.08709639950094351`"], "Output", + CellChangeTimes->{3.991345807987507*^9, 3.99425179074647*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"bbe3de61-f24b-4405-a858-fd9311e16996"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.991850228782873*^9, 3.991850231287325*^9}, - 3.9919246253575134`*^9},ExpressionUUID->"597921e5-69d3-564d-a8fa-\ -092e912c15e0"], + 3.9919246253575134`*^9}, + CellLabel-> + "In[105]:=",ExpressionUUID->"597921e5-69d3-564d-a8fa-092e912c15e0"], Cell[CellGroupData[{ @@ -8882,12 +9002,12 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[428]:=",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], + "In[106]:=",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], -Cell[BoxData["8.947947137013426`"], "Output", - CellChangeTimes->{3.991345808020666*^9}, +Cell[BoxData["5.82655858930626`"], "Output", + CellChangeTimes->{3.991345808020666*^9, 3.994251790772635*^9}, CellLabel-> - "Out[428]=",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] + "Out[106]=",ExpressionUUID->"fd284e02-d84f-4516-b6a3-e96733043229"] }, Open ]], Cell[CellGroupData[{ @@ -8897,12 +9017,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[430]:=",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], + "In[107]:=",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], -Cell[BoxData["1.2539951617800844`"], "Output", - CellChangeTimes->{3.9913458080616665`*^9}, +Cell[BoxData["4.347623476662995`"], "Output", + CellChangeTimes->{3.9913458080616665`*^9, 3.994251790788897*^9}, CellLabel-> - "Out[430]=",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] + "Out[107]=",ExpressionUUID->"e1c196cc-47f2-41c8-8869-2ce54193c336"] }, Open ]], Cell[CellGroupData[{ @@ -8912,12 +9032,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[433]:=",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], + "In[108]:=",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], -Cell[BoxData["11.220682417678793`"], "Output", - CellChangeTimes->{3.991345808188246*^9}, +Cell[BoxData["25.331682911020316`"], "Output", + CellChangeTimes->{3.991345808188246*^9, 3.9942517908053827`*^9}, CellLabel-> - "Out[433]=",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] + "Out[108]=",ExpressionUUID->"6e17e5f7-a86b-4e51-ab8c-4facd2697e76"] }, Open ]], Cell[CellGroupData[{ @@ -9107,12 +9227,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[434]:=",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], + "In[109]:=",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], -Cell[BoxData["0.04214145338799881`"], "Output", - CellChangeTimes->{3.991345808220566*^9}, +Cell[BoxData["0.0054448797658757896`"], "Output", + CellChangeTimes->{3.991345808220566*^9, 3.994251790824048*^9}, CellLabel-> - "Out[434]=",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] + "Out[109]=",ExpressionUUID->"7031619b-fdf9-4791-8bfc-d889c2879764"] }, Open ]], Cell[CellGroupData[{ @@ -9126,12 +9246,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[435]:=",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], + "In[110]:=",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], -Cell[BoxData["4.317080886816563`"], "Output", - CellChangeTimes->{3.9913458083195686`*^9}, +Cell[BoxData["12.010215322928465`"], "Output", + CellChangeTimes->{3.9913458083195686`*^9, 3.994251791029834*^9}, CellLabel-> - "Out[435]=",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] + "Out[110]=",ExpressionUUID->"4bc5157c-86ae-44cb-9257-b685114150aa"] }, Open ]], Cell[CellGroupData[{ @@ -9323,12 +9443,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[436]:=",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], + "In[111]:=",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], -Cell[BoxData["0.012862376162526763`"], "Output", - CellChangeTimes->{3.991345808334568*^9}, +Cell[BoxData["0.03675146528954906`"], "Output", + CellChangeTimes->{3.991345808334568*^9, 3.9942517910474873`*^9}, CellLabel-> - "Out[436]=",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] + "Out[111]=",ExpressionUUID->"b5772289-a512-4532-88fe-c0597b328ae9"] }, Open ]], Cell[CellGroupData[{ @@ -9342,12 +9462,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[437]:=",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], + "In[112]:=",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], -Cell[BoxData["7.814196669618258`"], "Output", - CellChangeTimes->{3.991345808432392*^9}, +Cell[BoxData["4.622826680070004`"], "Output", + CellChangeTimes->{3.991345808432392*^9, 3.99425179123378*^9}, CellLabel-> - "Out[437]=",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] + "Out[112]=",ExpressionUUID->"aa910f34-61d4-48db-bc16-2924f3d218cf"] }, Open ]], Cell[CellGroupData[{ @@ -9440,12 +9560,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[438]:=",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], + "In[113]:=",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.991345808448488*^9}, +Cell[BoxData["0.09821679951903568`"], "Output", + CellChangeTimes->{3.991345808448488*^9, 3.994251791253166*^9}, CellLabel-> - "Out[438]=",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] + "Out[113]=",ExpressionUUID->"afe7f624-72c1-48fb-880d-1feddf213f85"] }, Open ]], Cell[CellGroupData[{ @@ -9535,12 +9655,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[439]:=",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], + "In[114]:=",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.9913458084773808`*^9}, +Cell[BoxData["0.9017832004809644`"], "Output", + CellChangeTimes->{3.9913458084773808`*^9, 3.9942517912682133`*^9}, CellLabel-> - "Out[439]=",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] + "Out[114]=",ExpressionUUID->"22b51f28-05a9-4ad9-a1e7-0abbf28ab53b"] }, Open ]], Cell[CellGroupData[{ @@ -9663,12 +9783,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[440]:=",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], + "In[115]:=",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913458085134735`*^9}, +Cell[BoxData["0.08857025981127323`"], "Output", + CellChangeTimes->{3.9913458085134735`*^9, 3.99425179128679*^9}, CellLabel-> - "Out[440]=",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] + "Out[115]=",ExpressionUUID->"404a800a-08c6-44cf-a6cc-53e5371abc80"] }, Open ]], Cell[CellGroupData[{ @@ -9730,67 +9850,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.99185025346871*^9},ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], + CellChangeTimes->{3.99185025346871*^9}, + CellLabel-> + "In[116]:=",ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 441, - 469, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913458085463753`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.68803112948971`*^-218\\\", \ +RowBox[{\\\"4160735933984357432554811027341847802665\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"13\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3770116038587316426506240000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 116, + 33, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458085463753`*^9, 3.994251791306796*^9}, CellLabel-> "During evaluation of \ -In[441]:=",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], +In[116]:=",ExpressionUUID->"d5d00a7d-5afb-4bcb-9baa-66bdad60987a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 441, - 470, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913458085563755`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.529594713269142`*^-223\\\", \ +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 116, + 34, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458085463753`*^9, 3.9942517913161297`*^9}, CellLabel-> "During evaluation of \ -In[441]:=",ExpressionUUID->"dda5376f-614c-1846-a3e1-09857b4bcae6"], +In[116]:=",ExpressionUUID->"60b24f01-ef06-468a-9598-9c3cfc4cdea5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 441, 471, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345808564377*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.113303766448975`*^-229\\\", \ +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 116, + 35, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458085463753`*^9, 3.9942517913259163`*^9}, CellLabel-> "During evaluation of \ -In[441]:=",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], +In[116]:=",ExpressionUUID->"09a7e9ae-537d-49a9-b0ed-6e838adfe891"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 441, 472, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913458085733776`*^9}, +during this calculation.\"", 2, 116, 36, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458085463753`*^9, 3.994251791335535*^9}, CellLabel-> "During evaluation of \ -In[441]:=",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], +In[116]:=",ExpressionUUID->"93340569-ba3f-4f65-86fe-f9ebb92abc22"], -Cell[BoxData["4.317080886816564`"], "Output", - CellChangeTimes->{3.9913458125059433`*^9}, +Cell[BoxData["12.01021532292847`"], "Output", + CellChangeTimes->{3.9913458125059433`*^9, 3.99425179883751*^9}, CellLabel-> - "Out[441]=",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] + "Out[116]=",ExpressionUUID->"2946db29-964e-4072-b850-931b52c0ab5c"] }, Open ]], Cell[CellGroupData[{ @@ -9852,68 +9980,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918502579298553`*^9},ExpressionUUID->"baacd3f7-96e4-2949-b9f9-\ -9afb90e551d9"], + CellChangeTimes->{3.9918502579298553`*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"baacd3f7-96e4-2949-b9f9-9afb90e551d9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 442, - 473, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345812542961*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.68803112948971`*^-218\\\", \ +RowBox[{\\\"4160735933984357432554811027341847802665\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"13\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3770116038587316426506240000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 37, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345812542961*^9, 3.994251798883206*^9}, CellLabel-> "During evaluation of \ -In[442]:=",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], +In[117]:=",ExpressionUUID->"4892d3a3-7177-460d-8a79-91bb63016afe"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 442, - 474, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345812552984*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.529594713269142`*^-223\\\", \ +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 38, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345812542961*^9, 3.994251798892367*^9}, CellLabel-> "During evaluation of \ -In[442]:=",ExpressionUUID->"b91abb11-65b8-3b43-a495-4cb1457edd27"], +In[117]:=",ExpressionUUID->"54ed4b9e-28b8-4563-a772-86d6da78c692"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 442, 475, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134581256196*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.113303766448975`*^-229\\\", \ +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 39, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345812542961*^9, 3.994251798902741*^9}, CellLabel-> "During evaluation of \ -In[442]:=",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], +In[117]:=",ExpressionUUID->"e22e22a1-24d9-44df-8e3a-8eb0bb0182f5"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 442, 476, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345812570959*^9}, +during this calculation.\"", 2, 117, 40, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345812542961*^9, 3.994251798912225*^9}, CellLabel-> "During evaluation of \ -In[442]:=",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], +In[117]:=",ExpressionUUID->"8e4996ff-9c60-46ae-8dde-4c819117ff44"], -Cell[BoxData["7.8141966696182585`"], "Output", - CellChangeTimes->{3.991345816415531*^9}, +Cell[BoxData["4.622826680070001`"], "Output", + CellChangeTimes->{3.991345816415531*^9, 3.9942518063088427`*^9}, CellLabel-> - "Out[442]=",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] + "Out[117]=",ExpressionUUID->"20d38484-6b60-41e7-9294-54d05035ec8e"] }, Open ]], Cell[CellGroupData[{ @@ -9971,95 +10106,95 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918502605597496`*^9},ExpressionUUID->"ea08a5a9-d446-9147-ba82-\ -e3924f732df2"], + CellChangeTimes->{3.9918502605597496`*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"ea08a5a9-d446-9147-ba82-e3924f732df2"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi -CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 -j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu -7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF -KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 -zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW -kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 -8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 -wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v -lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt -p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t -k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X -HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc -BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ -y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG -gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh -hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB -gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U -1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n -I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq -h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp -Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ -ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a -bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f -hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj -3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx -5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf -t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw -pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD -6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p -ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia -12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 -Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r -jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q -ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 -D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h -tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T -BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth -YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT -NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya -0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv -o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 -MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn -opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS -DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B -Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH -imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L -I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX -7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v -+j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj -3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo -8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g -HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 -uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG -hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj -K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s -RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD -YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R -uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp -voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp -4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn -YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 -r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW -bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw -PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za -oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ -Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL -QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z -PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu -T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN -caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L -V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 -y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K -VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb -KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy -icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F -8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo -5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk4Fe0bB3AJqeyyL9l7Eekca6nntmWXRKGynXOGFLIkCi1SoVRS+JVk +Tfal7BWlkrwRiQrxxqnGfo4lpfwef8w11+d6Zr7Xd56ZuRV9gpwYnBwcHBP4 +WDkHv9XeVNP5dudgrN0RyCbRzslcPR/zYiSxv/fyiocy9VNUzBvRzovHZ1bs +SP+Xh4/6AgmKbko3wa6IOP2c27wdOf8cizXFjn8p2XS68B1aoLZUmGHXdQbf +XaL0IMlnZUoW2OSntqjIhj70NqP0wy5s6VHlA/Nm/eh8c9O/Vti2U1FGoe1f +UIIac40t9pMlcn1E4TA6/UI+zh77w1mJU9WBX5HgLX8LR+xJHnNyljKKlpNe +W+3F5rl8zI26wERm+duv7sOWF85oDW74jiY6myTdsR1k5vMnzcaRsA7XnDc2 +cU9JXIt3EjnYPLMksE+r7o470j6F9pvdGPDH7pN4vzWscAbl3gjoCsOmu/sf +vnGZheJfh289iT19hyOrMpCN7t1O7j6NzaukJTRDmUNqrauGE7FT6M8thcTm +0Y5fznbJ2Ar33U5vWZhH/52o/5WGbbj5wmRAw08U97tB4T62n/6XdtJsCU2e +vHX9JfZsxHGudWp/kDURKdaBfaZhvbE671/U+y6gvxc7DQyLfNuXUVtlApVc +6ZfXah5SuArOaV/nEckhUeHLG0NnZThhuHIpWxZ7+ptH1PXLnNBcFXFuE3aU +xlxVeeBqUEjLWrcTO6VMUXmKwg0JtZUoEPtT5/iTvzncYMbOmD2JrcCqcRcQ +4wGnwLTxi9jFug7JWgs80BBen5eN3VJ3ctXRBl541Vti/Bl77nn3l+9mfJCp +uemPay6JROz4hE494QMB6897jmDrvDcHfiN+uB18cC4a23/k0b2t2gLwobHl +n1zsY5ztOjv4hEB5WMVkFntUqXQmbl4YdOP7DXLy8P4QbWs7qCJA0TCOrMfm +LGIqSgaLgOsD2toubAXqRqfCMRE4+oZXnDOfRO5m1yrfDolCtmzWEAO7gxYS +KvFGDP60V2wzvk+iwftJiV684rBmwMvPFXt8rDDngYU4eHu/GwnDXhf2tXt7 +kzior5p7XYptft5Z1+uRBFwaN7JQKyBRfa7+XEGmFKx/77is/IBEuaO/wreF +yYFeh3KMexGJrFwuDoaWyMHWouzf0djjLaK7SphyoDLf+DgLWzd3s5iCmzzs +HGkWJLFbfDyquHduhKcGy2R0MYlYU0MnvscqAHt7T3RlCYlEA8wfVtkrAZf0 +JuHd5SRi5q7zc/RXAvcHAoqnsGv7O2UmLiiBgcKZ4/exD9odilVrUoIde/6O +cVTgfprhTukUZbD33CdYg61L3p+OkVCBl31MbZ0qEjn7rteyGVYFmsdwu0s1 +iVC4C2X/H1VIv/CBFo+tEZdpQJdSg3mrVOPH2Bw5VNOYPWow/C6iSrWGRCWD +B/ZXNqvBQ/2C6kVsnn3FZ6WzN4G2noRIaR3uZ27/gfRRB13TXxJWj0mUszf1 +80KMOigemWfGYif5DA9x3VaHiVX5C0+x6WeOj8l3q0PxVtlBwyckEm7M4Nhr +pgFBAfZPtZ7i74c6qdGgrAmxBTxdys0kklG6ejpxZDPczq+jmLwgUWPCrPoi +pxZIOZv/ScA+yHZ7TyhqwePNfzb0YN9tUVE39dCCgUuzmv4vSaTkW9/1s1cL +6hp6F1Jf4ectHlUl3mjDpRduPJxtJJKTkScU3HRgxNJ+TrCDRJvzwvh+IwrA +D+G3Ip9I5EOPndNyoMDEeGXWYew05eRBr4MU8IpGtU3Yq7PLyl9GUCBZWrw0 +6DP+3+6SzskVFAjvT2ns7MfzNM0rQ12ZClu1KmiZX/D7TbTTduXRheqmH52B +oyTKClFxfNSuBxeeevb2zJCoMxwZnM8zgkdrtNythMaQokePw6GjO0AbCdwY +oYwhxnJ1qVwkgHIZ91P3/WNIYqx2jYSPKTw6Ip1KxI6hMKpxf7KGOQikOBVV +lY8hn4mlVlHSAkSGvhssDo2hEtPQNZkdltDX1yuSLjWOcmf9m4tTrMH3uLDc +fqdx9NNE8t+W07ZgSruJOFLG0QDH6plhb3uw522/k9A3jgJlg66dVd4N45q1 +m3/LTKDSw61NN+McIUWk5ESH3wQ6yZZa0Dy8B0RbHXPfVU2gOZtd+155OoG5 +Q3RPFJ7TRgeum4zu2Qsld+x13nlMoi6pDP8WqjNEd6UwlyomkXR+bGPBPy7g +Zkr0PBOYQrVDGnYO/PvAIcHGMNF3Csm/n/YNn9gHG+cctjs3TSHqzevFOUP7 +YUSzyFRReBplcLG1k5+7wreieC8/NI2qTbZ8iqtzg+7cxy1/gqdRmkGC8FKh +OzjIK+Z8zplGHZ/zLlAvHwCbrMk9+7um0SP7OyrHzhyE71fFfCO5ZtBMwF6O +QPohOCYhbveKMoPmdqn7TZp5wIm7Jg9Oes6ggomPP0P1PSHYb8mAlTSDXLPy +aIf4vED4tbocZ/0Mqqq09Vx90Qs4SwcNhb/NICOZrsX4RS+Y4Y7ydhdkIeUh +30/vDntDGF2fPa7LQiPrj+y+89UbbJ3C+k0OsFBnkgPN0sUH3CdN5WOjWCgl +InP98U4fYPqeehefwUKNT5YXadY08I3bwiisZyHBg3CRWk+DxtfhKWVdLKSw +4VWHbCMNig5ovBbqZiGddntJnic0EByzbw7GdjI+8KCvmQZPlst/U97jfNnw +N9GvaSAQG5Va2cNC0gNFgq19NJh6O+6Z38dCKh4SaQcXaLAtrOuz5yALGXlN +FsTp0uF8rW2PxA8Wyk+fDnXQpwPzSr4UHXtDN2unhCEdysxvqZVjT1osvC/Y +TodIitD/LEkWnl8cq9pN6bDBL4QZOsZCAgvCbiJ76PBcdhP/swm8H1f01mYG +0GHyq52LLouF9rwyeO8bRIe5e/q3I7GfcGzL1AmmA+NrZsET7PTQnXrPwujg +N90hZcVmIQc3S+/RU3TYu6/J2XWWhepU3Oo0E+hgk9GqGjjPQkkNUYdr8+lQ +u+r3UuAvFgqgpBpFFNBBymHDWBG23YOKtYaFdNhGncz6jr0ulfmgpoQOs1Wv +Dnv/ZqG4EEey+iHu4+bg7bjEQlHqKkcePaND9J3cH8p/Wcg/9c3RykE6aEsl +6mStYiNrAaZxyBAdfFquq/di/xPHwU/5jw5uyudJPk42YobolVSM0oHOIdpy +AtvbIXOifJwO8xWaPTar2ciVOzSw7Bcd+qNmDjO52MgyVPpYsTgD9s546rLX +sNGzzAs2yZIMMFUYlVTjZSPjdpZKhDT2i/h6V2wd1TcfzeQZoJ4ppvcYW6r3 +lNlnVQYEtYbzxK5lo7FtA+Lr9BjgKh6+gXM9G13lvPfYdy8Dmh/8LvuXn43W +beFLs3dhwMTHTM2f2OcPRIRQ9zMgT/EWTUmAjSIeOm5admdAQok3bzi2N7Hq ++i0fBmhUdqtIC7IRtc2H/iKYARwRRrkuQmzUe111vfI1BnS5ZKWmi7BRKeL3 ++36dATvy9+yuwz4/MdtScoMBjnpn3/RhU6xbYgxTGZDz1UFYQpSNkjhoLPu7 +DOjp3951DXtX0L2PEcW4/3FttcgNbCQnd0l/ZykD+q2kVW5iz7YF3VhdzoCo +UVtmOXa2GrJPqmKAjXhozTfsPwMDTTn1+PrNxy87ibHRQzuZgretOJ+I+Ssr +zkaJvzi5U9oYsHrGDOlh+xSQ3m7tDBidlTW3xxbiqpcZ6WCAx7s/6VHYRxtc +ry5+YMAnC83wPmxljVvhKqMMOMffOXFego1+9UZ3/2AyYMr8TGA6dmccQ6fs +OwMYHyWrSrBjhnVJo3EGwO7Fiz3Yn9K6D+1mM8AlWtdLSZKNktcIW5xcRcA5 +lZTWcuxG1sCBsNUEOKaaH3+O/W2gMCSQm4BTUswPPdjGD83v+awlwMF4pnYR +m+kV8dtGmAA93oGFHVK4v52FiIUoARxVbbYO2NsNRNSRGAEbwlKcPbCv8Rfv +o0oRcOtG5fnolfX6LxUyigRIGPd51GITecWtYsoEsHcw3F6uXH8t8ougKgHN +Wxt532MzCVF+LnUC7j18Gje5si5q6TeuQ4AKL/PnRmk2qv8reppJIWCnZmK6 +Jvboj6GbQ7oEbGaRk/rY25pOPn9vSIDJne4aO+yRo6Xyj4GAM1TZZ2HYAq6n +9GpMCXi64Mcbg21kZmVXYU7A2h+01Rexk6T+i8yzIiB2Cg8y7FqusmuZNgRc +Cjqocw/769Sp++l2BFizOP/exzZ8KdZzxZGAb067aqqxfSr+G7voRED1/FD2 +Y+wrd8o4zzkTIK+uYNaC/V+ItU64KwHTppeyOrH5PcQtj7kTcMy2zPPDSp71 +10P+BwmoVDnR9Xnl/o3RiR5eBPCsZfaMrvRZZ5Pt6kOA27VEglzJmxOvc6Lj +vKG3RZMrecNfO+wIAgJcyvJYK3nt5cxdfgT07d3sPL/Sryb6D/gTkGlvUbO4 +kp9ts2H7UQLSni6+XVrJvyKhqRdIwPJW69vLK/kRIyZbjhFwwpAqyynDRnz0 +Clf1EAKEQmr2cGEb7I4JUg4jwDC+ZzsPts822wty4QR0UK98WoN9WVUyQyKC +ADHqoNZa7Gqh0SrhkwTU7W3VW4c9/LuibX0UAW0BtqwV832LGeaOIeAV3Ze2 +Hlu/y/bn8mkCkjbJxq/4/4n7GM4= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -10073,107 +10208,107 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi -CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 -j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu -7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF -KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 -zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW -kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 -8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 -wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v -lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt -p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t -k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X -HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc -BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ -y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG -gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh -hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB -gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U -1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n -I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq -h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp -Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ -ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a -bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f -hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj -3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx -5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf -t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw -pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD -6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p -ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia -12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 -Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r -jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q -ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 -D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h -tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T -BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth -YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT -NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya -0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv -o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 -MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn -opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS -DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B -Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH -imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L -I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX -7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v -+j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj -3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo -8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g -HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 -uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG -hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj -K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s -RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD -YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R -uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp -voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp -4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn -YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 -r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW -bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw -PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za -oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ -Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL -QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z -PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu -T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN -caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L -V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 -y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K -VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb -KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy -icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F -8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo -5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= +1:eJwV1Hk4Fe0bB3AJqeyyL9l7Eekca6nntmWXRKGynXOGFLIkCi1SoVRS+JVk +Tfal7BWlkrwRiQrxxqnGfo4lpfwef8w11+d6Zr7Xd56ZuRV9gpwYnBwcHBP4 +WDkHv9XeVNP5dudgrN0RyCbRzslcPR/zYiSxv/fyiocy9VNUzBvRzovHZ1bs +SP+Xh4/6AgmKbko3wa6IOP2c27wdOf8cizXFjn8p2XS68B1aoLZUmGHXdQbf +XaL0IMlnZUoW2OSntqjIhj70NqP0wy5s6VHlA/Nm/eh8c9O/Vti2U1FGoe1f +UIIac40t9pMlcn1E4TA6/UI+zh77w1mJU9WBX5HgLX8LR+xJHnNyljKKlpNe +W+3F5rl8zI26wERm+duv7sOWF85oDW74jiY6myTdsR1k5vMnzcaRsA7XnDc2 +cU9JXIt3EjnYPLMksE+r7o470j6F9pvdGPDH7pN4vzWscAbl3gjoCsOmu/sf +vnGZheJfh289iT19hyOrMpCN7t1O7j6NzaukJTRDmUNqrauGE7FT6M8thcTm +0Y5fznbJ2Ar33U5vWZhH/52o/5WGbbj5wmRAw08U97tB4T62n/6XdtJsCU2e +vHX9JfZsxHGudWp/kDURKdaBfaZhvbE671/U+y6gvxc7DQyLfNuXUVtlApVc +6ZfXah5SuArOaV/nEckhUeHLG0NnZThhuHIpWxZ7+ptH1PXLnNBcFXFuE3aU +xlxVeeBqUEjLWrcTO6VMUXmKwg0JtZUoEPtT5/iTvzncYMbOmD2JrcCqcRcQ +4wGnwLTxi9jFug7JWgs80BBen5eN3VJ3ctXRBl541Vti/Bl77nn3l+9mfJCp +uemPay6JROz4hE494QMB6897jmDrvDcHfiN+uB18cC4a23/k0b2t2gLwobHl +n1zsY5ztOjv4hEB5WMVkFntUqXQmbl4YdOP7DXLy8P4QbWs7qCJA0TCOrMfm +LGIqSgaLgOsD2toubAXqRqfCMRE4+oZXnDOfRO5m1yrfDolCtmzWEAO7gxYS +KvFGDP60V2wzvk+iwftJiV684rBmwMvPFXt8rDDngYU4eHu/GwnDXhf2tXt7 +kzior5p7XYptft5Z1+uRBFwaN7JQKyBRfa7+XEGmFKx/77is/IBEuaO/wreF +yYFeh3KMexGJrFwuDoaWyMHWouzf0djjLaK7SphyoDLf+DgLWzd3s5iCmzzs +HGkWJLFbfDyquHduhKcGy2R0MYlYU0MnvscqAHt7T3RlCYlEA8wfVtkrAZf0 +JuHd5SRi5q7zc/RXAvcHAoqnsGv7O2UmLiiBgcKZ4/exD9odilVrUoIde/6O +cVTgfprhTukUZbD33CdYg61L3p+OkVCBl31MbZ0qEjn7rteyGVYFmsdwu0s1 +iVC4C2X/H1VIv/CBFo+tEZdpQJdSg3mrVOPH2Bw5VNOYPWow/C6iSrWGRCWD +B/ZXNqvBQ/2C6kVsnn3FZ6WzN4G2noRIaR3uZ27/gfRRB13TXxJWj0mUszf1 +80KMOigemWfGYif5DA9x3VaHiVX5C0+x6WeOj8l3q0PxVtlBwyckEm7M4Nhr +pgFBAfZPtZ7i74c6qdGgrAmxBTxdys0kklG6ejpxZDPczq+jmLwgUWPCrPoi +pxZIOZv/ScA+yHZ7TyhqwePNfzb0YN9tUVE39dCCgUuzmv4vSaTkW9/1s1cL +6hp6F1Jf4ectHlUl3mjDpRduPJxtJJKTkScU3HRgxNJ+TrCDRJvzwvh+IwrA +D+G3Ip9I5EOPndNyoMDEeGXWYew05eRBr4MU8IpGtU3Yq7PLyl9GUCBZWrw0 +6DP+3+6SzskVFAjvT2ns7MfzNM0rQ12ZClu1KmiZX/D7TbTTduXRheqmH52B +oyTKClFxfNSuBxeeevb2zJCoMxwZnM8zgkdrtNythMaQokePw6GjO0AbCdwY +oYwhxnJ1qVwkgHIZ91P3/WNIYqx2jYSPKTw6Ip1KxI6hMKpxf7KGOQikOBVV +lY8hn4mlVlHSAkSGvhssDo2hEtPQNZkdltDX1yuSLjWOcmf9m4tTrMH3uLDc +fqdx9NNE8t+W07ZgSruJOFLG0QDH6plhb3uw522/k9A3jgJlg66dVd4N45q1 +m3/LTKDSw61NN+McIUWk5ESH3wQ6yZZa0Dy8B0RbHXPfVU2gOZtd+155OoG5 +Q3RPFJ7TRgeum4zu2Qsld+x13nlMoi6pDP8WqjNEd6UwlyomkXR+bGPBPy7g +Zkr0PBOYQrVDGnYO/PvAIcHGMNF3Csm/n/YNn9gHG+cctjs3TSHqzevFOUP7 +YUSzyFRReBplcLG1k5+7wreieC8/NI2qTbZ8iqtzg+7cxy1/gqdRmkGC8FKh +OzjIK+Z8zplGHZ/zLlAvHwCbrMk9+7um0SP7OyrHzhyE71fFfCO5ZtBMwF6O +QPohOCYhbveKMoPmdqn7TZp5wIm7Jg9Oes6ggomPP0P1PSHYb8mAlTSDXLPy +aIf4vED4tbocZ/0Mqqq09Vx90Qs4SwcNhb/NICOZrsX4RS+Y4Y7ydhdkIeUh +30/vDntDGF2fPa7LQiPrj+y+89UbbJ3C+k0OsFBnkgPN0sUH3CdN5WOjWCgl +InP98U4fYPqeehefwUKNT5YXadY08I3bwiisZyHBg3CRWk+DxtfhKWVdLKSw +4VWHbCMNig5ovBbqZiGddntJnic0EByzbw7GdjI+8KCvmQZPlst/U97jfNnw +N9GvaSAQG5Va2cNC0gNFgq19NJh6O+6Z38dCKh4SaQcXaLAtrOuz5yALGXlN +FsTp0uF8rW2PxA8Wyk+fDnXQpwPzSr4UHXtDN2unhCEdysxvqZVjT1osvC/Y +TodIitD/LEkWnl8cq9pN6bDBL4QZOsZCAgvCbiJ76PBcdhP/swm8H1f01mYG +0GHyq52LLouF9rwyeO8bRIe5e/q3I7GfcGzL1AmmA+NrZsET7PTQnXrPwujg +N90hZcVmIQc3S+/RU3TYu6/J2XWWhepU3Oo0E+hgk9GqGjjPQkkNUYdr8+lQ +u+r3UuAvFgqgpBpFFNBBymHDWBG23YOKtYaFdNhGncz6jr0ulfmgpoQOs1Wv +Dnv/ZqG4EEey+iHu4+bg7bjEQlHqKkcePaND9J3cH8p/Wcg/9c3RykE6aEsl +6mStYiNrAaZxyBAdfFquq/di/xPHwU/5jw5uyudJPk42YobolVSM0oHOIdpy +AtvbIXOifJwO8xWaPTar2ciVOzSw7Bcd+qNmDjO52MgyVPpYsTgD9s546rLX +sNGzzAs2yZIMMFUYlVTjZSPjdpZKhDT2i/h6V2wd1TcfzeQZoJ4ppvcYW6r3 +lNlnVQYEtYbzxK5lo7FtA+Lr9BjgKh6+gXM9G13lvPfYdy8Dmh/8LvuXn43W +beFLs3dhwMTHTM2f2OcPRIRQ9zMgT/EWTUmAjSIeOm5admdAQok3bzi2N7Hq ++i0fBmhUdqtIC7IRtc2H/iKYARwRRrkuQmzUe111vfI1BnS5ZKWmi7BRKeL3 ++36dATvy9+yuwz4/MdtScoMBjnpn3/RhU6xbYgxTGZDz1UFYQpSNkjhoLPu7 +DOjp3951DXtX0L2PEcW4/3FttcgNbCQnd0l/ZykD+q2kVW5iz7YF3VhdzoCo +UVtmOXa2GrJPqmKAjXhozTfsPwMDTTn1+PrNxy87ibHRQzuZgretOJ+I+Ssr +zkaJvzi5U9oYsHrGDOlh+xSQ3m7tDBidlTW3xxbiqpcZ6WCAx7s/6VHYRxtc +ry5+YMAnC83wPmxljVvhKqMMOMffOXFego1+9UZ3/2AyYMr8TGA6dmccQ6fs +OwMYHyWrSrBjhnVJo3EGwO7Fiz3Yn9K6D+1mM8AlWtdLSZKNktcIW5xcRcA5 +lZTWcuxG1sCBsNUEOKaaH3+O/W2gMCSQm4BTUswPPdjGD83v+awlwMF4pnYR +m+kV8dtGmAA93oGFHVK4v52FiIUoARxVbbYO2NsNRNSRGAEbwlKcPbCv8Rfv +o0oRcOtG5fnolfX6LxUyigRIGPd51GITecWtYsoEsHcw3F6uXH8t8ougKgHN +Wxt532MzCVF+LnUC7j18Gje5si5q6TeuQ4AKL/PnRmk2qv8reppJIWCnZmK6 +Jvboj6GbQ7oEbGaRk/rY25pOPn9vSIDJne4aO+yRo6Xyj4GAM1TZZ2HYAq6n +9GpMCXi64Mcbg21kZmVXYU7A2h+01Rexk6T+i8yzIiB2Cg8y7FqusmuZNgRc +Cjqocw/769Sp++l2BFizOP/exzZ8KdZzxZGAb067aqqxfSr+G7voRED1/FD2 +Y+wrd8o4zzkTIK+uYNaC/V+ItU64KwHTppeyOrH5PcQtj7kTcMy2zPPDSp71 +10P+BwmoVDnR9Xnl/o3RiR5eBPCsZfaMrvRZZ5Pt6kOA27VEglzJmxOvc6Lj +vKG3RZMrecNfO+wIAgJcyvJYK3nt5cxdfgT07d3sPL/Sryb6D/gTkGlvUbO4 +kp9ts2H7UQLSni6+XVrJvyKhqRdIwPJW69vLK/kRIyZbjhFwwpAqyynDRnz0 +Clf1EAKEQmr2cGEb7I4JUg4jwDC+ZzsPts822wty4QR0UK98WoN9WVUyQyKC +ADHqoNZa7Gqh0SrhkwTU7W3VW4c9/LuibX0UAW0BtqwV832LGeaOIeAV3Ze2 +Hlu/y/bn8mkCkjbJxq/4/4n7GM4= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.48341415918018676`, - 1.8971786059380225`}}, + "PlotRange" -> {{0, 180}, {0.8323061080628766, + 1.1941027980669534`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.4834141591801878}, + "AxesOrigin" -> {0, 0.8323061080628785}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -10185,21 +10320,21 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.48341415918018676`, - 1.8971786059380225`}}, + "PlotRange" -> {{0, 180}, {0.8323061080628766, + 1.1941027980669534`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.4834141591801878}, + "AxesOrigin" -> {0, 0.8323061080628785}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10213,105 +10348,105 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi -CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 -j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu -7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF -KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 -zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW -kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 -8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 -wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v -lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt -p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t -k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X -HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc -BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ -y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG -gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh -hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB -gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U -1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n -I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq -h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp -Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ -ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a -bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f -hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj -3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx -5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf -t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw -pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD -6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p -ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia -12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 -Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r -jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q -ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 -D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h -tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T -BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth -YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT -NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya -0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv -o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 -MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn -opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS -DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B -Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH -imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L -I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX -7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v -+j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj -3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo -8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g -HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 -uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG -hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj -K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s -RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD -YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R -uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp -voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp -4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn -YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 -r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW -bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw -PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za -oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ -Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL -QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z -PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu -T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN -caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L -V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 -y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K -VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb -KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy -icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F -8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo -5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= +1:eJwV1Hk4Fe0bB3AJqeyyL9l7Eekca6nntmWXRKGynXOGFLIkCi1SoVRS+JVk +Tfal7BWlkrwRiQrxxqnGfo4lpfwef8w11+d6Zr7Xd56ZuRV9gpwYnBwcHBP4 +WDkHv9XeVNP5dudgrN0RyCbRzslcPR/zYiSxv/fyiocy9VNUzBvRzovHZ1bs +SP+Xh4/6AgmKbko3wa6IOP2c27wdOf8cizXFjn8p2XS68B1aoLZUmGHXdQbf +XaL0IMlnZUoW2OSntqjIhj70NqP0wy5s6VHlA/Nm/eh8c9O/Vti2U1FGoe1f +UIIac40t9pMlcn1E4TA6/UI+zh77w1mJU9WBX5HgLX8LR+xJHnNyljKKlpNe +W+3F5rl8zI26wERm+duv7sOWF85oDW74jiY6myTdsR1k5vMnzcaRsA7XnDc2 +cU9JXIt3EjnYPLMksE+r7o470j6F9pvdGPDH7pN4vzWscAbl3gjoCsOmu/sf +vnGZheJfh289iT19hyOrMpCN7t1O7j6NzaukJTRDmUNqrauGE7FT6M8thcTm +0Y5fznbJ2Ar33U5vWZhH/52o/5WGbbj5wmRAw08U97tB4T62n/6XdtJsCU2e +vHX9JfZsxHGudWp/kDURKdaBfaZhvbE671/U+y6gvxc7DQyLfNuXUVtlApVc +6ZfXah5SuArOaV/nEckhUeHLG0NnZThhuHIpWxZ7+ptH1PXLnNBcFXFuE3aU +xlxVeeBqUEjLWrcTO6VMUXmKwg0JtZUoEPtT5/iTvzncYMbOmD2JrcCqcRcQ +4wGnwLTxi9jFug7JWgs80BBen5eN3VJ3ctXRBl541Vti/Bl77nn3l+9mfJCp +uemPay6JROz4hE494QMB6897jmDrvDcHfiN+uB18cC4a23/k0b2t2gLwobHl +n1zsY5ztOjv4hEB5WMVkFntUqXQmbl4YdOP7DXLy8P4QbWs7qCJA0TCOrMfm +LGIqSgaLgOsD2toubAXqRqfCMRE4+oZXnDOfRO5m1yrfDolCtmzWEAO7gxYS +KvFGDP60V2wzvk+iwftJiV684rBmwMvPFXt8rDDngYU4eHu/GwnDXhf2tXt7 +kzior5p7XYptft5Z1+uRBFwaN7JQKyBRfa7+XEGmFKx/77is/IBEuaO/wreF +yYFeh3KMexGJrFwuDoaWyMHWouzf0djjLaK7SphyoDLf+DgLWzd3s5iCmzzs +HGkWJLFbfDyquHduhKcGy2R0MYlYU0MnvscqAHt7T3RlCYlEA8wfVtkrAZf0 +JuHd5SRi5q7zc/RXAvcHAoqnsGv7O2UmLiiBgcKZ4/exD9odilVrUoIde/6O +cVTgfprhTukUZbD33CdYg61L3p+OkVCBl31MbZ0qEjn7rteyGVYFmsdwu0s1 +iVC4C2X/H1VIv/CBFo+tEZdpQJdSg3mrVOPH2Bw5VNOYPWow/C6iSrWGRCWD +B/ZXNqvBQ/2C6kVsnn3FZ6WzN4G2noRIaR3uZ27/gfRRB13TXxJWj0mUszf1 +80KMOigemWfGYif5DA9x3VaHiVX5C0+x6WeOj8l3q0PxVtlBwyckEm7M4Nhr +pgFBAfZPtZ7i74c6qdGgrAmxBTxdys0kklG6ejpxZDPczq+jmLwgUWPCrPoi +pxZIOZv/ScA+yHZ7TyhqwePNfzb0YN9tUVE39dCCgUuzmv4vSaTkW9/1s1cL +6hp6F1Jf4ectHlUl3mjDpRduPJxtJJKTkScU3HRgxNJ+TrCDRJvzwvh+IwrA +D+G3Ip9I5EOPndNyoMDEeGXWYew05eRBr4MU8IpGtU3Yq7PLyl9GUCBZWrw0 +6DP+3+6SzskVFAjvT2ns7MfzNM0rQ12ZClu1KmiZX/D7TbTTduXRheqmH52B +oyTKClFxfNSuBxeeevb2zJCoMxwZnM8zgkdrtNythMaQokePw6GjO0AbCdwY +oYwhxnJ1qVwkgHIZ91P3/WNIYqx2jYSPKTw6Ip1KxI6hMKpxf7KGOQikOBVV +lY8hn4mlVlHSAkSGvhssDo2hEtPQNZkdltDX1yuSLjWOcmf9m4tTrMH3uLDc +fqdx9NNE8t+W07ZgSruJOFLG0QDH6plhb3uw522/k9A3jgJlg66dVd4N45q1 +m3/LTKDSw61NN+McIUWk5ESH3wQ6yZZa0Dy8B0RbHXPfVU2gOZtd+155OoG5 +Q3RPFJ7TRgeum4zu2Qsld+x13nlMoi6pDP8WqjNEd6UwlyomkXR+bGPBPy7g +Zkr0PBOYQrVDGnYO/PvAIcHGMNF3Csm/n/YNn9gHG+cctjs3TSHqzevFOUP7 +YUSzyFRReBplcLG1k5+7wreieC8/NI2qTbZ8iqtzg+7cxy1/gqdRmkGC8FKh +OzjIK+Z8zplGHZ/zLlAvHwCbrMk9+7um0SP7OyrHzhyE71fFfCO5ZtBMwF6O +QPohOCYhbveKMoPmdqn7TZp5wIm7Jg9Oes6ggomPP0P1PSHYb8mAlTSDXLPy +aIf4vED4tbocZ/0Mqqq09Vx90Qs4SwcNhb/NICOZrsX4RS+Y4Y7ydhdkIeUh +30/vDntDGF2fPa7LQiPrj+y+89UbbJ3C+k0OsFBnkgPN0sUH3CdN5WOjWCgl +InP98U4fYPqeehefwUKNT5YXadY08I3bwiisZyHBg3CRWk+DxtfhKWVdLKSw +4VWHbCMNig5ovBbqZiGddntJnic0EByzbw7GdjI+8KCvmQZPlst/U97jfNnw +N9GvaSAQG5Va2cNC0gNFgq19NJh6O+6Z38dCKh4SaQcXaLAtrOuz5yALGXlN +FsTp0uF8rW2PxA8Wyk+fDnXQpwPzSr4UHXtDN2unhCEdysxvqZVjT1osvC/Y +TodIitD/LEkWnl8cq9pN6bDBL4QZOsZCAgvCbiJ76PBcdhP/swm8H1f01mYG +0GHyq52LLouF9rwyeO8bRIe5e/q3I7GfcGzL1AmmA+NrZsET7PTQnXrPwujg +N90hZcVmIQc3S+/RU3TYu6/J2XWWhepU3Oo0E+hgk9GqGjjPQkkNUYdr8+lQ +u+r3UuAvFgqgpBpFFNBBymHDWBG23YOKtYaFdNhGncz6jr0ulfmgpoQOs1Wv +Dnv/ZqG4EEey+iHu4+bg7bjEQlHqKkcePaND9J3cH8p/Wcg/9c3RykE6aEsl +6mStYiNrAaZxyBAdfFquq/di/xPHwU/5jw5uyudJPk42YobolVSM0oHOIdpy +AtvbIXOifJwO8xWaPTar2ciVOzSw7Bcd+qNmDjO52MgyVPpYsTgD9s546rLX +sNGzzAs2yZIMMFUYlVTjZSPjdpZKhDT2i/h6V2wd1TcfzeQZoJ4ppvcYW6r3 +lNlnVQYEtYbzxK5lo7FtA+Lr9BjgKh6+gXM9G13lvPfYdy8Dmh/8LvuXn43W +beFLs3dhwMTHTM2f2OcPRIRQ9zMgT/EWTUmAjSIeOm5admdAQok3bzi2N7Hq ++i0fBmhUdqtIC7IRtc2H/iKYARwRRrkuQmzUe111vfI1BnS5ZKWmi7BRKeL3 ++36dATvy9+yuwz4/MdtScoMBjnpn3/RhU6xbYgxTGZDz1UFYQpSNkjhoLPu7 +DOjp3951DXtX0L2PEcW4/3FttcgNbCQnd0l/ZykD+q2kVW5iz7YF3VhdzoCo +UVtmOXa2GrJPqmKAjXhozTfsPwMDTTn1+PrNxy87ibHRQzuZgretOJ+I+Ssr +zkaJvzi5U9oYsHrGDOlh+xSQ3m7tDBidlTW3xxbiqpcZ6WCAx7s/6VHYRxtc +ry5+YMAnC83wPmxljVvhKqMMOMffOXFego1+9UZ3/2AyYMr8TGA6dmccQ6fs +OwMYHyWrSrBjhnVJo3EGwO7Fiz3Yn9K6D+1mM8AlWtdLSZKNktcIW5xcRcA5 +lZTWcuxG1sCBsNUEOKaaH3+O/W2gMCSQm4BTUswPPdjGD83v+awlwMF4pnYR +m+kV8dtGmAA93oGFHVK4v52FiIUoARxVbbYO2NsNRNSRGAEbwlKcPbCv8Rfv +o0oRcOtG5fnolfX6LxUyigRIGPd51GITecWtYsoEsHcw3F6uXH8t8ougKgHN +Wxt532MzCVF+LnUC7j18Gje5si5q6TeuQ4AKL/PnRmk2qv8reppJIWCnZmK6 +Jvboj6GbQ7oEbGaRk/rY25pOPn9vSIDJne4aO+yRo6Xyj4GAM1TZZ2HYAq6n +9GpMCXi64Mcbg21kZmVXYU7A2h+01Rexk6T+i8yzIiB2Cg8y7FqusmuZNgRc +Cjqocw/769Sp++l2BFizOP/exzZ8KdZzxZGAb067aqqxfSr+G7voRED1/FD2 +Y+wrd8o4zzkTIK+uYNaC/V+ItU64KwHTppeyOrH5PcQtj7kTcMy2zPPDSp71 +10P+BwmoVDnR9Xnl/o3RiR5eBPCsZfaMrvRZZ5Pt6kOA27VEglzJmxOvc6Lj +vKG3RZMrecNfO+wIAgJcyvJYK3nt5cxdfgT07d3sPL/Sryb6D/gTkGlvUbO4 +kp9ts2H7UQLSni6+XVrJvyKhqRdIwPJW69vLK/kRIyZbjhFwwpAqyynDRnz0 +Clf1EAKEQmr2cGEb7I4JUg4jwDC+ZzsPts822wty4QR0UK98WoN9WVUyQyKC +ADHqoNZa7Gqh0SrhkwTU7W3VW4c9/LuibX0UAW0BtqwV832LGeaOIeAV3Ze2 +Hlu/y/bn8mkCkjbJxq/4/4n7GM4= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.48341415918018676`, 1.8971786059380225`}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.4834141591801878}, + "PlotRange" -> {{0, 180}, {0.8323061080628766, 1.1941027980669534`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8323061080628785}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10321,7 +10456,8 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.4834141591801878}, + AxesOrigin->{0, 0.8323061080628785}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -10349,7 +10485,8 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.48341415918018676`, 1.8971786059380225`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.8323061080628766, 1.1941027980669534`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -10357,9 +10494,9 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913460797739086`*^9}, + CellChangeTimes->{3.9913460797739086`*^9, 3.9942523814514437`*^9}, CellLabel-> - "Out[443]=",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] + "Out[118]=",ExpressionUUID->"e152fb4c-1cbc-4b01-a994-2d11332f4788"] }, Open ]], Cell[CellGroupData[{ @@ -10422,207 +10559,161 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.9918502644064465`*^9, - 3.9918502684162617`*^9}},ExpressionUUID->"42ddbf41-0bd8-b749-bead-\ -56c89a9b7467"], + CellChangeTimes->{{3.9918502644064465`*^9, 3.9918502684162617`*^9}}, + CellLabel-> + "In[119]:=",ExpressionUUID->"42ddbf41-0bd8-b749-bead-56c89a9b7467"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.7282513679946418`*^-262\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 444, - 477, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991346080016945*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.257931564737443`*^-276\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 41, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991346080016945*^9, 3.994252381639799*^9}, CellLabel-> "During evaluation of \ -In[444]:=",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], +In[119]:=",ExpressionUUID->"7d685208-cb97-4e55-878d-82b1bca3135d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.1421038932835147`*^-273\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.2705446403582567`*^-288\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 42, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991346080016945*^9, 3.994252381649692*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"5223b29f-9896-4514-b08f-f5ae717ebfe5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2832841852410526`*^-300\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 444, 478, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991346080026985*^9}, + 119, 43, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991346080016945*^9, 3.994252381658105*^9}, CellLabel-> "During evaluation of \ -In[444]:=",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.655058850000931`*^-284\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 444, 479, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913460800358925`*^9}, - CellLabel-> - "During evaluation of \ -In[444]:=",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], +In[119]:=",ExpressionUUID->"f81c7d86-f036-4587-bf59-8843bf6ac77f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 444, 480, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991346080043894*^9}, +during this calculation.\"", 2, 119, 44, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991346080016945*^9, 3.994252381666297*^9}, CellLabel-> "During evaluation of \ -In[444]:=",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], +In[119]:=",ExpressionUUID->"04cff1e3-771b-4424-b69a-5277c6725919"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW -QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx -/f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu -+ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 -jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D -y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP -Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs -mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f -oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo -7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM -b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv -gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 -Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN -kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla -bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi -mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk -+8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ -8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q -mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L -nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD -F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ -HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd -H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv -40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ -Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw -00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA -3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY -8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj -qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe -zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ -6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW -/AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF -X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU -+iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar -CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma -uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM -LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 -pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY -W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt -yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn -SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW -lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA -ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ -hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc -Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z -tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb -SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 -5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS -hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi -H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 -vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q -3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT -v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir -So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb -3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX -h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP -A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 -JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z -kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv -bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ -oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB -K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq -w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK -UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI -V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV -6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 -CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R -WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z -jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL -c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d -MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE -S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP -nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ -KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT -s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 -PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 -nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV -7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx -yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR -17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J -2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW -jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 -vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j -aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 -OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g -jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN -pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD -c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN -5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR -zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 -Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 -OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv -q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr -YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX -W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh -9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 -Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u -T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb -3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k -yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E -8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt -tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr -fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 -RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 -ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS -FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx -jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH -k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j -I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 -DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh -xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs -GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 -0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu -FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX -SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI -zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 -XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l -tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf -2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 -ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb -My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ -1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 -d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi -t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y -/2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL -HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws -V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt -zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy -yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r -lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX -3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw -sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs -FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 -lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw -OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP -3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC -kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y -MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR -heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV12k8lVsXAHBRIUMyHjNnMs9F5FirSFERpXArMitJGQp1kzIUlZAkU5HZ +OYeK0E2hlCQkc5RUb0TKFNXt3ffT8/t/eNZ+1h7WXo+qx2FHb14eHp5lS3h4 +/nvODT1roifkW2QO248U3zS36MqmhK/vjQaZoPn0cCs5QKmXHpTeZLjiYvad +ZaUJYdtLevh6b0KLHG+LjJUZrJqUSV7oqQTfR/Ue7y1tYfi+3eGZngZYM9E/ +amnpCtb0sTffejph8GKT0jAegIUekytTPSNgvlhW5WoSAY2WhfkdN6fBJVBI +J4ORAArDNR89tH+DhkRHWfl8CkgGuJXwW/LhuggJ7Qd8GZBsYF1n5ySAGsEf +vI1UcqEvXf/hNzERbEhO0LDsvwkJ+ade8squwn6zMeVdKbdAJvX9uZQsCYyr +pLyO+FUIcTttLDrnpNC1wWPFzGIxyN1pk+NdIo0fPnwOEeQrAbbEznkDIWl0 +HQielxUqge7OfdzLytLYE1CH2vIlQHcIoTpslkZFz6xnUutKoGFbzvL2a9LY +fbfnw8/wEvhtPdv2wlwGE8x0qaIzJRBsesPtWTQF1bZ2xCn1lYJtrujMlkQK +etXX7jg1XApU/hPxbVcoKN8tyx74UArtXbsqXhVR0G3eVTjueynoBgnzDbVR +8FUNxaNIqAz+V3Cs4LucLFIfd62UYpXBHkm7CfnbsjjWrJKZklkGVl8XIwLf +y+HYrsNx4nblEL45VfPRFzncZm2TbLqjHNg3dPol5uTQJmPKco9zOVB2upvW +CMhjbuyvjFSPcvhy7/E8n648KkO6REdYOaREJ4VcOy6PbLFW0fDschiRYgY2 +iSigXnCT59mxcpA5XK8oI6OAMuv8BFW+lsPWp84v/FUU0MbvjGP1dDlURSRo +rzRSQCOLn229v8rh/PDUmIuzAjKXaQZ9EmWDYXGd79ebCkhRur3dyJANp80d +9sutVUQHECqJCWXD5n3Z3002KCIltWxuIpwNolHjZ5y2KqKdWL+qw99syGyM +KUhyV0QRix2SAnFsuGdbO778nCLWrd9/aG06G6acaWHTfYp4nj9jVV4NG/aF +zp5vjVRCPPLj+I0fbGBc3aAwFqOEfNVHvnj/YpP8L5XzJymhsuQXKwYPByJ+ +abRvyFfCHeOiBan8HLhyZp9UTasSPl8aY2AszYHWy805txSVUeOJ592zhhww +Y1+783e9Mp5JX7Lg4MsBq56235NPlVG809DU4gAH7HiWbnLrVEaWxfNVzEMc +8HQM7IMPymjRwr7wv6McsI5UPRW1TAW/f35fu/ZvDgQpz+Wt11LBrSV7LJen +cqDJN2eiMUwFU3oyeF3uc8Dml6n4iUgVbNXol6t5wIG2pC7j1VEq+Jf+pj7J +RxzoqxGMyj+nghMv82zrH3NgUihEPCZTBV+XB4q8beMAhbvZxLpBBUMzsmMd +3nIg4Me3qKciqlh1TUXixx+SzxEf6Y/iqvj+w7KsRR4uCIz1l/JRVPGXc2TZ +3BIu3Bpo7LagqmJH3jR+4uPC0IMr2neNVVE2XnFLCT8X7GNMe2+4kXhHTljc +E+WC0r/lh+q9VHHvvp5HF1dy4UsYle+NvyoGmFY0e4hxId5PSJcSoopHJtL2 +8Ilz4eGWN2cuxpP347CaKcUFQ/HTepEVqritoyp5To4LPAmzTelVqijzV+TR +W/JcaOM74FpVp4qjBn0DDgpcODjrGPPtsSoG0cy35SlyIb+XPuDbr4pxPvXV +6ipcOOpwLShmWBVdzh341kiMLSLL80ZVcfxtyL09qlx4UzenPzSpip81rkzF +UrkgnfM0dicfFR+xCqQf0LkwKsNSOCpARTOJz083MrhQmVRRcUmEiowlYcLP +ie2jMwZbZKj46nCgTRuT5OcdYLhem4qBG38WVatzYdfQ2+Z9BlTceqlsWkuD +C/TdTntPGFMxW7f6VRbxw80W8dVIxQ+VY04RmlxY0BIb0nGiom+7/xFpbS7M +ZcmdNnKlYtSNoTuhxDMrGXRTNyp6hqgWdRJPTpsesPKn4uZwmdwYHS6Me1uJ +2AZSsULh5a0B4v/12HHtg6komr93r54uF0bqPOdcT1LxnzaR0ZfEwzqB19yj +qZg6bnJHQY8LgznHzX3iqNgxZLPWl7j7zIXoI5epGFK3bt8sccuWatH4WyRf +KzH9OX0uNP/zqOJCCRXPJuiy9Q240KTXujOFQ/INChz1I34g8S4ju4aKio7h +kZ3EdTHjrPwHVDxS4PyGz5AL9+Zn3xY3kvGsoxcMiSsHVqjdfUHF60dGPM4T +c7ZJtdR2UlFttUFFJXFZvfKhhz1UdK9crOslLjbQFHsySOKbt575RVyQt/r2 +83dUbLhuJKhkxIU8KdjV8ZGKn6Tqt7KIc+NsFrrHqUjx/23nSpy1sCNzcIrk +9+KkWChxxsF9MDJLxYCZl5cvEF994zfyaZGK+wXOvsojTrUPjpn4Q0XvMs3u +auLLj06qTy+l4dDPnRnPiC8axT//IUjDNedTVfqIE24lB/4rSsMkj0j/j8Tx +MlmrlkrS8Bh/Zug34phzhXcEZWkYefTcxkXi6J8Vu1cq0XCJZE8fz2ounDp0 +f1GSRsPWTorRMuITw0+y5NRp2Cz03oGfONyhA1V0aFh8ucX4P4c1DrxnGNIw +u8xrZClx8JqPsVomNOST2+T0X7ygwikNA3Ma8ggLJC2Q8QJlf7Yar6ehnYZF +yhTxwYRlQebWNGxPjHL7QOz3e6XEhi00tH7sM9tD7HNYrmrTdhoKvI53ekrs ++Y7uss2JhpkGp6KqiN136P1ydKVheONI2E3ivY9Nc5zdaJj3YatpIrGridWG +fV40POi9+2kw8U55l3j/QBpu/FJlZ07scMFT63AwDbc+Wb9Jkdjuz6G2kOM0 +1MrrFf1vfTe/j5aMiqZh2miGyG3ijU4XqmPiaEi/8WdjAvGG5quuCYk0/Ljy +vf1+YvPSsty0NBpO/p3Vv5x4QKU0Z+N1Gm4511jZR/ZjRFpx9kwODR8nWxaW +EFefLsh0LKbhd9vdn6yJd83nX1/CpuGbzEkjceKZgLwMbiUNPxt9yh4g+9/Q +OTdd9D6ZL17+Tj/ijhfZV/95SEOPoNXXtYmDLLPSAh7TkP/iy7OT5PywdTNS +W9poWP14X10Ascay1KTYdzQUtvdociTn8WlE8qU1H8n+0TyRw0/sM5V0cXSM +zOcDrZxacp7zBy4kbpih4fvlPqLyxCqVcfH/LqfjlVWidY+1SP1yi4wK06bj +kiqvpgZSf+52hZ9iGNDxk1mcuivxTtvjf3etoeN4RUvNVzUuJK8JPWEIdEx7 +8s5bilhE+PDxSQc6ehhkT9uS+ra0xiPI5xgdEzMr3N1IvczT3X9Y6gQdmWtf +9PaReroh3y2wKYqOhbffxjoSn7q0J4B6no6SvHpxFspcWPTe5TeUSUf9XGP1 +JaQ+fxO3dd/VQEfPKuuDBhQu9AZQ2w8009HWerz+tAyph08W4VQrHTcOxi9t +l+ZCUkSpclE3+V75fHcfcj/ojwgPL4zRcb0bNTyC3B+BFS/3Zkkw8LJ4UScK +k/USKnpRQWGg41XHqCAhLlh4R7GeKDJwd8e0RvYKkp+sgeJXNQaGKTFDpgVI +PYlKHkRzBhZs5yzELOPCmL3TX6NexLUG42m/ONBZrPP8hz+D3IdnTlYtcqCW +b/k6kcMMLNMKVOn8wYFz1VVyxuEMtHZzyP49wwF1ZUp/3AUGim2GAsYEB3wn ++521qhg4OOO4uW6QA6OJ7ruO8jOxSFOfV6CGA4Fj2lR9YSYqWQSueF3FgflN +CxMTYkzkFb7ckX2HAyv4kmP85ZgYTO27oc7lgH544x13HSZ6hPYelirkwElv +poT9Dia2pklM7iT9g7TFl5daOUyUoeh/CQngQO71e9c/5zFx5/SBQ4P+HNBY +OOtbWMREiayJXiT9i/kdxT/USiYa3bcP4fEg/Yqmva7cYybe3YTvXXdzgCtd +mSgwzkQtt9rek+tJP/L1mM0HYzUUa08Zi5HggIKBUqyAuRqO7FlevU2M9B9H +mxq01qvh67ULFHERDqTOiZkf3aKGNssy8pOWc2Dod7HuHzc1DG4NEfFeYMNR +4UEJ2XNqmH519f2AITZkaODQ1gE19Mmfd1paQPo1T4HgO6fUsWrjfEudFhsm +s63+qT+rjlJWhRotamz42hfF//ycOs7+Zcd5TWPDd/uF6+9S1LGsINd4VJ4N +8+vGmkSL1HFnnonvsBAbeCVbpf3b1VHsT+ew/Xg5yDZdqlVU1UDHRLzDKCon +/zMyvHENGui+bcVpQblyEH/BvMj9qolPz40bD8yXgkI8Z7uxsTaauwv81s0u +gXQtUzEJXx2MfLluR6pVMflvWr9m+rIuRrkMrxYYKQQzhYYkvW49rDVokHvt +VACifDdD9kfrY+LXrrWxQ/mgdFrZ3IVpgIXXzV2UNuWBIGNPlWOzAUolZ64+ +WHcDdFmynGN7DfEgd00Oj2MuHB0Sb7TlMcK2HwtreMuy4Ot0opNNOnHhhfST +vNdhk96TDBud1TjV0RVbezYdHkyv+znfthrfZaW1m89dgUBtw/4O7zXo8PWI +FasmBViTXl0ugsaouKkiZyjsMmykU7aJ3DTG3WJC7xL5L4F61PnjDSYmeFtY +I+Ht6QTQ9DatZ/SbYOdZicXWpfHg/cDv7J0ja/FuF//272IxUJ/b5fVNyhRl +9LW/6OlFw0zRn3m9alPcMh5CU3I8BZ6MUsGMbWYYORbK5FGJhG+aKcaVU2ao +2p22/CnlGNzL//luNn4dnp9PPj72LBhcrWi4Tskcz5c1V+36GgTyh+JqdB+a +Y9OqdwupxwNAakVAxbbdLHT29RFzkveDfMuTEVMuLDzUnXDfRNAPDE9etEzZ +w8Ia50I+5rwv2E1xX/fuZ+H2rVJbGa98IbZ7dsEzgIXN5t5q7ARf+HHz1IaI +0yy89KadMvqvD/SvS3lVUMpCuROpt2smvMEvND/Ths3Ce6Xig0vfeMMc+673 +Fy4L7+uVfXFt9QZxau+8QRULYwL0uWql3rBFQFHhn4csTDvwhGnp7w33uwq8 +Xr1mofm4kODJT15gK3pPJ6yXhWb6YtSQHi/o3fRsjjLAwkK59uehzV4wUzse +v+8tC3NGB+vSC71A54Z++ecxFipd/ha2x88L7vevD0ucYKG9YdLfhc4knuQO +0JtioZh10/ivzV7gExfaETLLwsaA0HdPNEi8h7EZMj9YuPm0mds6OS+IXrzq +WbvIQn4Rhk7tCi8QW12svfc3C388Gtxo+dMTsg/Vzv75w8KoFyvyu8c94f8m +fkDy "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -10636,166 +10727,116 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW -QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx -/f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu -+ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 -jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D -y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP -Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs -mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f -oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo -7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM -b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv -gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 -Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN -kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla -bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi -mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk -+8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ -8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q -mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L -nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD -F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ -HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd -H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv -40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ -Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw -00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA -3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY -8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj -qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe -zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ -6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW -/AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF -X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU -+iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar -CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma -uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM -LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 -pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY -W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt -yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn -SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW -lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA -ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ -hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc -Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z -tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb -SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 -5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS -hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi -H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 -vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q -3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT -v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir -So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb -3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX -h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP -A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 -JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z -kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv -bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ -oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB -K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq -w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK -UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI -V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV -6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 -CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R -WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z -jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL -c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d -MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE -S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP -nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ -KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT -s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 -PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 -nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV -7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx -yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR -17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J -2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW -jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 -vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j -aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 -OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g -jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN -pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD -c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN -5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR -zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 -Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 -OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv -q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr -YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX -W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh -9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 -Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u -T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb -3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k -yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E -8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt -tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr -fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 -RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 -ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS -FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx -jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH -k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j -I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 -DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh -xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs -GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 -0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu -FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX -SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI -zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 -XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l -tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf -2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 -ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb -My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ -1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 -d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi -t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y -/2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL -HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws -V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt -zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy -yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r -lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX -3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw -sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs -FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 -lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw -OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP -3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC -kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y -MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR -heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb +1:eJwV12k8lVsXAHBRIUMyHjNnMs9F5FirSFERpXArMitJGQp1kzIUlZAkU5HZ +OYeK0E2hlCQkc5RUb0TKFNXt3ffT8/t/eNZ+1h7WXo+qx2FHb14eHp5lS3h4 +/nvODT1roifkW2QO248U3zS36MqmhK/vjQaZoPn0cCs5QKmXHpTeZLjiYvad +ZaUJYdtLevh6b0KLHG+LjJUZrJqUSV7oqQTfR/Ue7y1tYfi+3eGZngZYM9E/ +amnpCtb0sTffejph8GKT0jAegIUekytTPSNgvlhW5WoSAY2WhfkdN6fBJVBI +J4ORAArDNR89tH+DhkRHWfl8CkgGuJXwW/LhuggJ7Qd8GZBsYF1n5ySAGsEf +vI1UcqEvXf/hNzERbEhO0LDsvwkJ+ade8squwn6zMeVdKbdAJvX9uZQsCYyr +pLyO+FUIcTttLDrnpNC1wWPFzGIxyN1pk+NdIo0fPnwOEeQrAbbEznkDIWl0 +HQielxUqge7OfdzLytLYE1CH2vIlQHcIoTpslkZFz6xnUutKoGFbzvL2a9LY +fbfnw8/wEvhtPdv2wlwGE8x0qaIzJRBsesPtWTQF1bZ2xCn1lYJtrujMlkQK +etXX7jg1XApU/hPxbVcoKN8tyx74UArtXbsqXhVR0G3eVTjueynoBgnzDbVR +8FUNxaNIqAz+V3Cs4LucLFIfd62UYpXBHkm7CfnbsjjWrJKZklkGVl8XIwLf +y+HYrsNx4nblEL45VfPRFzncZm2TbLqjHNg3dPol5uTQJmPKco9zOVB2upvW +CMhjbuyvjFSPcvhy7/E8n648KkO6REdYOaREJ4VcOy6PbLFW0fDschiRYgY2 +iSigXnCT59mxcpA5XK8oI6OAMuv8BFW+lsPWp84v/FUU0MbvjGP1dDlURSRo +rzRSQCOLn229v8rh/PDUmIuzAjKXaQZ9EmWDYXGd79ebCkhRur3dyJANp80d +9sutVUQHECqJCWXD5n3Z3002KCIltWxuIpwNolHjZ5y2KqKdWL+qw99syGyM +KUhyV0QRix2SAnFsuGdbO778nCLWrd9/aG06G6acaWHTfYp4nj9jVV4NG/aF +zp5vjVRCPPLj+I0fbGBc3aAwFqOEfNVHvnj/YpP8L5XzJymhsuQXKwYPByJ+ +abRvyFfCHeOiBan8HLhyZp9UTasSPl8aY2AszYHWy805txSVUeOJ592zhhww +Y1+783e9Mp5JX7Lg4MsBq56235NPlVG809DU4gAH7HiWbnLrVEaWxfNVzEMc +8HQM7IMPymjRwr7wv6McsI5UPRW1TAW/f35fu/ZvDgQpz+Wt11LBrSV7LJen +cqDJN2eiMUwFU3oyeF3uc8Dml6n4iUgVbNXol6t5wIG2pC7j1VEq+Jf+pj7J +RxzoqxGMyj+nghMv82zrH3NgUihEPCZTBV+XB4q8beMAhbvZxLpBBUMzsmMd +3nIg4Me3qKciqlh1TUXixx+SzxEf6Y/iqvj+w7KsRR4uCIz1l/JRVPGXc2TZ +3BIu3Bpo7LagqmJH3jR+4uPC0IMr2neNVVE2XnFLCT8X7GNMe2+4kXhHTljc +E+WC0r/lh+q9VHHvvp5HF1dy4UsYle+NvyoGmFY0e4hxId5PSJcSoopHJtL2 +8Ilz4eGWN2cuxpP347CaKcUFQ/HTepEVqritoyp5To4LPAmzTelVqijzV+TR +W/JcaOM74FpVp4qjBn0DDgpcODjrGPPtsSoG0cy35SlyIb+XPuDbr4pxPvXV +6ipcOOpwLShmWBVdzh341kiMLSLL80ZVcfxtyL09qlx4UzenPzSpip81rkzF +UrkgnfM0dicfFR+xCqQf0LkwKsNSOCpARTOJz083MrhQmVRRcUmEiowlYcLP +ie2jMwZbZKj46nCgTRuT5OcdYLhem4qBG38WVatzYdfQ2+Z9BlTceqlsWkuD +C/TdTntPGFMxW7f6VRbxw80W8dVIxQ+VY04RmlxY0BIb0nGiom+7/xFpbS7M +ZcmdNnKlYtSNoTuhxDMrGXRTNyp6hqgWdRJPTpsesPKn4uZwmdwYHS6Me1uJ +2AZSsULh5a0B4v/12HHtg6komr93r54uF0bqPOdcT1LxnzaR0ZfEwzqB19yj +qZg6bnJHQY8LgznHzX3iqNgxZLPWl7j7zIXoI5epGFK3bt8sccuWatH4WyRf +KzH9OX0uNP/zqOJCCRXPJuiy9Q240KTXujOFQ/INChz1I34g8S4ju4aKio7h +kZ3EdTHjrPwHVDxS4PyGz5AL9+Zn3xY3kvGsoxcMiSsHVqjdfUHF60dGPM4T +c7ZJtdR2UlFttUFFJXFZvfKhhz1UdK9crOslLjbQFHsySOKbt575RVyQt/r2 +83dUbLhuJKhkxIU8KdjV8ZGKn6Tqt7KIc+NsFrrHqUjx/23nSpy1sCNzcIrk +9+KkWChxxsF9MDJLxYCZl5cvEF994zfyaZGK+wXOvsojTrUPjpn4Q0XvMs3u +auLLj06qTy+l4dDPnRnPiC8axT//IUjDNedTVfqIE24lB/4rSsMkj0j/j8Tx +MlmrlkrS8Bh/Zug34phzhXcEZWkYefTcxkXi6J8Vu1cq0XCJZE8fz2ounDp0 +f1GSRsPWTorRMuITw0+y5NRp2Cz03oGfONyhA1V0aFh8ucX4P4c1DrxnGNIw +u8xrZClx8JqPsVomNOST2+T0X7ygwikNA3Ma8ggLJC2Q8QJlf7Yar6ehnYZF +yhTxwYRlQebWNGxPjHL7QOz3e6XEhi00tH7sM9tD7HNYrmrTdhoKvI53ekrs ++Y7uss2JhpkGp6KqiN136P1ydKVheONI2E3ivY9Nc5zdaJj3YatpIrGridWG +fV40POi9+2kw8U55l3j/QBpu/FJlZ07scMFT63AwDbc+Wb9Jkdjuz6G2kOM0 +1MrrFf1vfTe/j5aMiqZh2miGyG3ijU4XqmPiaEi/8WdjAvGG5quuCYk0/Ljy +vf1+YvPSsty0NBpO/p3Vv5x4QKU0Z+N1Gm4511jZR/ZjRFpx9kwODR8nWxaW +EFefLsh0LKbhd9vdn6yJd83nX1/CpuGbzEkjceKZgLwMbiUNPxt9yh4g+9/Q +OTdd9D6ZL17+Tj/ijhfZV/95SEOPoNXXtYmDLLPSAh7TkP/iy7OT5PywdTNS +W9poWP14X10Ascay1KTYdzQUtvdociTn8WlE8qU1H8n+0TyRw0/sM5V0cXSM +zOcDrZxacp7zBy4kbpih4fvlPqLyxCqVcfH/LqfjlVWidY+1SP1yi4wK06bj +kiqvpgZSf+52hZ9iGNDxk1mcuivxTtvjf3etoeN4RUvNVzUuJK8JPWEIdEx7 +8s5bilhE+PDxSQc6ehhkT9uS+ra0xiPI5xgdEzMr3N1IvczT3X9Y6gQdmWtf +9PaReroh3y2wKYqOhbffxjoSn7q0J4B6no6SvHpxFspcWPTe5TeUSUf9XGP1 +JaQ+fxO3dd/VQEfPKuuDBhQu9AZQ2w8009HWerz+tAyph08W4VQrHTcOxi9t +l+ZCUkSpclE3+V75fHcfcj/ojwgPL4zRcb0bNTyC3B+BFS/3Zkkw8LJ4UScK +k/USKnpRQWGg41XHqCAhLlh4R7GeKDJwd8e0RvYKkp+sgeJXNQaGKTFDpgVI +PYlKHkRzBhZs5yzELOPCmL3TX6NexLUG42m/ONBZrPP8hz+D3IdnTlYtcqCW +b/k6kcMMLNMKVOn8wYFz1VVyxuEMtHZzyP49wwF1ZUp/3AUGim2GAsYEB3wn ++521qhg4OOO4uW6QA6OJ7ruO8jOxSFOfV6CGA4Fj2lR9YSYqWQSueF3FgflN +CxMTYkzkFb7ckX2HAyv4kmP85ZgYTO27oc7lgH544x13HSZ6hPYelirkwElv +poT9Dia2pklM7iT9g7TFl5daOUyUoeh/CQngQO71e9c/5zFx5/SBQ4P+HNBY +OOtbWMREiayJXiT9i/kdxT/USiYa3bcP4fEg/Yqmva7cYybe3YTvXXdzgCtd +mSgwzkQtt9rek+tJP/L1mM0HYzUUa08Zi5HggIKBUqyAuRqO7FlevU2M9B9H +mxq01qvh67ULFHERDqTOiZkf3aKGNssy8pOWc2Dod7HuHzc1DG4NEfFeYMNR +4UEJ2XNqmH519f2AITZkaODQ1gE19Mmfd1paQPo1T4HgO6fUsWrjfEudFhsm +s63+qT+rjlJWhRotamz42hfF//ycOs7+Zcd5TWPDd/uF6+9S1LGsINd4VJ4N +8+vGmkSL1HFnnonvsBAbeCVbpf3b1VHsT+ew/Xg5yDZdqlVU1UDHRLzDKCon +/zMyvHENGui+bcVpQblyEH/BvMj9qolPz40bD8yXgkI8Z7uxsTaauwv81s0u +gXQtUzEJXx2MfLluR6pVMflvWr9m+rIuRrkMrxYYKQQzhYYkvW49rDVokHvt +VACifDdD9kfrY+LXrrWxQ/mgdFrZ3IVpgIXXzV2UNuWBIGNPlWOzAUolZ64+ +WHcDdFmynGN7DfEgd00Oj2MuHB0Sb7TlMcK2HwtreMuy4Ot0opNNOnHhhfST +vNdhk96TDBud1TjV0RVbezYdHkyv+znfthrfZaW1m89dgUBtw/4O7zXo8PWI +FasmBViTXl0ugsaouKkiZyjsMmykU7aJ3DTG3WJC7xL5L4F61PnjDSYmeFtY +I+Ht6QTQ9DatZ/SbYOdZicXWpfHg/cDv7J0ja/FuF//272IxUJ/b5fVNyhRl +9LW/6OlFw0zRn3m9alPcMh5CU3I8BZ6MUsGMbWYYORbK5FGJhG+aKcaVU2ao +2p22/CnlGNzL//luNn4dnp9PPj72LBhcrWi4Tskcz5c1V+36GgTyh+JqdB+a +Y9OqdwupxwNAakVAxbbdLHT29RFzkveDfMuTEVMuLDzUnXDfRNAPDE9etEzZ +w8Ia50I+5rwv2E1xX/fuZ+H2rVJbGa98IbZ7dsEzgIXN5t5q7ARf+HHz1IaI +0yy89KadMvqvD/SvS3lVUMpCuROpt2smvMEvND/Ths3Ce6Xig0vfeMMc+673 +Fy4L7+uVfXFt9QZxau+8QRULYwL0uWql3rBFQFHhn4csTDvwhGnp7w33uwq8 +Xr1mofm4kODJT15gK3pPJ6yXhWb6YtSQHi/o3fRsjjLAwkK59uehzV4wUzse +v+8tC3NGB+vSC71A54Z++ecxFipd/ha2x88L7vevD0ucYKG9YdLfhc4knuQO +0JtioZh10/ivzV7gExfaETLLwsaA0HdPNEi8h7EZMj9YuPm0mds6OS+IXrzq +WbvIQn4Rhk7tCi8QW12svfc3C388Gtxo+dMTsg/Vzv75w8KoFyvyu8c94f8m +fkDy "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "PlotRange" -> {{0, 30}, {0., 0.0632938933295427}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -10807,19 +10848,19 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "PlotRange" -> {{0, 30}, {0., 0.0632938933295427}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10833,165 +10874,115 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW -QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx -/f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu -+ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 -jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D -y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP -Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs -mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f -oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo -7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM -b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv -gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 -Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN -kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla -bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi -mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk -+8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ -8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q -mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L -nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD -F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ -HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd -H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv -40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ -Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw -00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA -3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY -8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj -qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe -zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ -6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW -/AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF -X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU -+iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar -CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma -uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM -LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 -pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY -W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt -yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn -SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW -lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA -ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ -hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc -Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z -tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb -SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 -5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS -hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi -H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 -vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q -3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT -v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir -So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb -3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX -h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP -A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 -JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z -kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv -bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ -oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB -K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq -w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK -UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI -V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV -6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 -CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R -WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z -jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL -c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d -MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE -S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP -nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ -KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT -s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 -PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 -nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV -7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx -yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR -17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J -2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW -jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 -vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j -aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 -OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g -jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN -pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD -c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN -5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR -zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 -Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 -OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv -q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr -YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX -W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh -9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 -Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u -T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb -3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k -yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E -8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt -tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr -fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 -RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 -ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS -FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx -jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH -k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j -I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 -DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh -xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs -GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 -0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu -FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX -SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI -zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 -XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l -tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf -2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 -ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb -My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ -1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 -d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi -t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y -/2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL -HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws -V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt -zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy -yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r -lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX -3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw -sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs -FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 -lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw -OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP -3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC -kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y -MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR -heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb +1:eJwV12k8lVsXAHBRIUMyHjNnMs9F5FirSFERpXArMitJGQp1kzIUlZAkU5HZ +OYeK0E2hlCQkc5RUb0TKFNXt3ffT8/t/eNZ+1h7WXo+qx2FHb14eHp5lS3h4 +/nvODT1roifkW2QO248U3zS36MqmhK/vjQaZoPn0cCs5QKmXHpTeZLjiYvad +ZaUJYdtLevh6b0KLHG+LjJUZrJqUSV7oqQTfR/Ue7y1tYfi+3eGZngZYM9E/ +amnpCtb0sTffejph8GKT0jAegIUekytTPSNgvlhW5WoSAY2WhfkdN6fBJVBI +J4ORAArDNR89tH+DhkRHWfl8CkgGuJXwW/LhuggJ7Qd8GZBsYF1n5ySAGsEf +vI1UcqEvXf/hNzERbEhO0LDsvwkJ+ade8squwn6zMeVdKbdAJvX9uZQsCYyr +pLyO+FUIcTttLDrnpNC1wWPFzGIxyN1pk+NdIo0fPnwOEeQrAbbEznkDIWl0 +HQielxUqge7OfdzLytLYE1CH2vIlQHcIoTpslkZFz6xnUutKoGFbzvL2a9LY +fbfnw8/wEvhtPdv2wlwGE8x0qaIzJRBsesPtWTQF1bZ2xCn1lYJtrujMlkQK +etXX7jg1XApU/hPxbVcoKN8tyx74UArtXbsqXhVR0G3eVTjueynoBgnzDbVR +8FUNxaNIqAz+V3Cs4LucLFIfd62UYpXBHkm7CfnbsjjWrJKZklkGVl8XIwLf +y+HYrsNx4nblEL45VfPRFzncZm2TbLqjHNg3dPol5uTQJmPKco9zOVB2upvW +CMhjbuyvjFSPcvhy7/E8n648KkO6REdYOaREJ4VcOy6PbLFW0fDschiRYgY2 +iSigXnCT59mxcpA5XK8oI6OAMuv8BFW+lsPWp84v/FUU0MbvjGP1dDlURSRo +rzRSQCOLn229v8rh/PDUmIuzAjKXaQZ9EmWDYXGd79ebCkhRur3dyJANp80d +9sutVUQHECqJCWXD5n3Z3002KCIltWxuIpwNolHjZ5y2KqKdWL+qw99syGyM +KUhyV0QRix2SAnFsuGdbO778nCLWrd9/aG06G6acaWHTfYp4nj9jVV4NG/aF +zp5vjVRCPPLj+I0fbGBc3aAwFqOEfNVHvnj/YpP8L5XzJymhsuQXKwYPByJ+ +abRvyFfCHeOiBan8HLhyZp9UTasSPl8aY2AszYHWy805txSVUeOJ592zhhww +Y1+783e9Mp5JX7Lg4MsBq56235NPlVG809DU4gAH7HiWbnLrVEaWxfNVzEMc +8HQM7IMPymjRwr7wv6McsI5UPRW1TAW/f35fu/ZvDgQpz+Wt11LBrSV7LJen +cqDJN2eiMUwFU3oyeF3uc8Dml6n4iUgVbNXol6t5wIG2pC7j1VEq+Jf+pj7J +RxzoqxGMyj+nghMv82zrH3NgUihEPCZTBV+XB4q8beMAhbvZxLpBBUMzsmMd +3nIg4Me3qKciqlh1TUXixx+SzxEf6Y/iqvj+w7KsRR4uCIz1l/JRVPGXc2TZ +3BIu3Bpo7LagqmJH3jR+4uPC0IMr2neNVVE2XnFLCT8X7GNMe2+4kXhHTljc +E+WC0r/lh+q9VHHvvp5HF1dy4UsYle+NvyoGmFY0e4hxId5PSJcSoopHJtL2 +8Ilz4eGWN2cuxpP347CaKcUFQ/HTepEVqritoyp5To4LPAmzTelVqijzV+TR +W/JcaOM74FpVp4qjBn0DDgpcODjrGPPtsSoG0cy35SlyIb+XPuDbr4pxPvXV +6ipcOOpwLShmWBVdzh341kiMLSLL80ZVcfxtyL09qlx4UzenPzSpip81rkzF +UrkgnfM0dicfFR+xCqQf0LkwKsNSOCpARTOJz083MrhQmVRRcUmEiowlYcLP +ie2jMwZbZKj46nCgTRuT5OcdYLhem4qBG38WVatzYdfQ2+Z9BlTceqlsWkuD +C/TdTntPGFMxW7f6VRbxw80W8dVIxQ+VY04RmlxY0BIb0nGiom+7/xFpbS7M +ZcmdNnKlYtSNoTuhxDMrGXRTNyp6hqgWdRJPTpsesPKn4uZwmdwYHS6Me1uJ +2AZSsULh5a0B4v/12HHtg6komr93r54uF0bqPOdcT1LxnzaR0ZfEwzqB19yj +qZg6bnJHQY8LgznHzX3iqNgxZLPWl7j7zIXoI5epGFK3bt8sccuWatH4WyRf +KzH9OX0uNP/zqOJCCRXPJuiy9Q240KTXujOFQ/INChz1I34g8S4ju4aKio7h +kZ3EdTHjrPwHVDxS4PyGz5AL9+Zn3xY3kvGsoxcMiSsHVqjdfUHF60dGPM4T +c7ZJtdR2UlFttUFFJXFZvfKhhz1UdK9crOslLjbQFHsySOKbt575RVyQt/r2 +83dUbLhuJKhkxIU8KdjV8ZGKn6Tqt7KIc+NsFrrHqUjx/23nSpy1sCNzcIrk +9+KkWChxxsF9MDJLxYCZl5cvEF994zfyaZGK+wXOvsojTrUPjpn4Q0XvMs3u +auLLj06qTy+l4dDPnRnPiC8axT//IUjDNedTVfqIE24lB/4rSsMkj0j/j8Tx +MlmrlkrS8Bh/Zug34phzhXcEZWkYefTcxkXi6J8Vu1cq0XCJZE8fz2ounDp0 +f1GSRsPWTorRMuITw0+y5NRp2Cz03oGfONyhA1V0aFh8ucX4P4c1DrxnGNIw +u8xrZClx8JqPsVomNOST2+T0X7ygwikNA3Ma8ggLJC2Q8QJlf7Yar6ehnYZF +yhTxwYRlQebWNGxPjHL7QOz3e6XEhi00tH7sM9tD7HNYrmrTdhoKvI53ekrs ++Y7uss2JhpkGp6KqiN136P1ydKVheONI2E3ivY9Nc5zdaJj3YatpIrGridWG +fV40POi9+2kw8U55l3j/QBpu/FJlZ07scMFT63AwDbc+Wb9Jkdjuz6G2kOM0 +1MrrFf1vfTe/j5aMiqZh2miGyG3ijU4XqmPiaEi/8WdjAvGG5quuCYk0/Ljy +vf1+YvPSsty0NBpO/p3Vv5x4QKU0Z+N1Gm4511jZR/ZjRFpx9kwODR8nWxaW +EFefLsh0LKbhd9vdn6yJd83nX1/CpuGbzEkjceKZgLwMbiUNPxt9yh4g+9/Q +OTdd9D6ZL17+Tj/ijhfZV/95SEOPoNXXtYmDLLPSAh7TkP/iy7OT5PywdTNS +W9poWP14X10Ascay1KTYdzQUtvdociTn8WlE8qU1H8n+0TyRw0/sM5V0cXSM +zOcDrZxacp7zBy4kbpih4fvlPqLyxCqVcfH/LqfjlVWidY+1SP1yi4wK06bj +kiqvpgZSf+52hZ9iGNDxk1mcuivxTtvjf3etoeN4RUvNVzUuJK8JPWEIdEx7 +8s5bilhE+PDxSQc6ehhkT9uS+ra0xiPI5xgdEzMr3N1IvczT3X9Y6gQdmWtf +9PaReroh3y2wKYqOhbffxjoSn7q0J4B6no6SvHpxFspcWPTe5TeUSUf9XGP1 +JaQ+fxO3dd/VQEfPKuuDBhQu9AZQ2w8009HWerz+tAyph08W4VQrHTcOxi9t +l+ZCUkSpclE3+V75fHcfcj/ojwgPL4zRcb0bNTyC3B+BFS/3Zkkw8LJ4UScK +k/USKnpRQWGg41XHqCAhLlh4R7GeKDJwd8e0RvYKkp+sgeJXNQaGKTFDpgVI +PYlKHkRzBhZs5yzELOPCmL3TX6NexLUG42m/ONBZrPP8hz+D3IdnTlYtcqCW +b/k6kcMMLNMKVOn8wYFz1VVyxuEMtHZzyP49wwF1ZUp/3AUGim2GAsYEB3wn ++521qhg4OOO4uW6QA6OJ7ruO8jOxSFOfV6CGA4Fj2lR9YSYqWQSueF3FgflN +CxMTYkzkFb7ckX2HAyv4kmP85ZgYTO27oc7lgH544x13HSZ6hPYelirkwElv +poT9Dia2pklM7iT9g7TFl5daOUyUoeh/CQngQO71e9c/5zFx5/SBQ4P+HNBY +OOtbWMREiayJXiT9i/kdxT/USiYa3bcP4fEg/Yqmva7cYybe3YTvXXdzgCtd +mSgwzkQtt9rek+tJP/L1mM0HYzUUa08Zi5HggIKBUqyAuRqO7FlevU2M9B9H +mxq01qvh67ULFHERDqTOiZkf3aKGNssy8pOWc2Dod7HuHzc1DG4NEfFeYMNR +4UEJ2XNqmH519f2AITZkaODQ1gE19Mmfd1paQPo1T4HgO6fUsWrjfEudFhsm +s63+qT+rjlJWhRotamz42hfF//ycOs7+Zcd5TWPDd/uF6+9S1LGsINd4VJ4N +8+vGmkSL1HFnnonvsBAbeCVbpf3b1VHsT+ew/Xg5yDZdqlVU1UDHRLzDKCon +/zMyvHENGui+bcVpQblyEH/BvMj9qolPz40bD8yXgkI8Z7uxsTaauwv81s0u +gXQtUzEJXx2MfLluR6pVMflvWr9m+rIuRrkMrxYYKQQzhYYkvW49rDVokHvt +VACifDdD9kfrY+LXrrWxQ/mgdFrZ3IVpgIXXzV2UNuWBIGNPlWOzAUolZ64+ +WHcDdFmynGN7DfEgd00Oj2MuHB0Sb7TlMcK2HwtreMuy4Ot0opNNOnHhhfST +vNdhk96TDBud1TjV0RVbezYdHkyv+znfthrfZaW1m89dgUBtw/4O7zXo8PWI +FasmBViTXl0ugsaouKkiZyjsMmykU7aJ3DTG3WJC7xL5L4F61PnjDSYmeFtY +I+Ht6QTQ9DatZ/SbYOdZicXWpfHg/cDv7J0ja/FuF//272IxUJ/b5fVNyhRl +9LW/6OlFw0zRn3m9alPcMh5CU3I8BZ6MUsGMbWYYORbK5FGJhG+aKcaVU2ao +2p22/CnlGNzL//luNn4dnp9PPj72LBhcrWi4Tskcz5c1V+36GgTyh+JqdB+a +Y9OqdwupxwNAakVAxbbdLHT29RFzkveDfMuTEVMuLDzUnXDfRNAPDE9etEzZ +w8Ia50I+5rwv2E1xX/fuZ+H2rVJbGa98IbZ7dsEzgIXN5t5q7ARf+HHz1IaI +0yy89KadMvqvD/SvS3lVUMpCuROpt2smvMEvND/Ths3Ce6Xig0vfeMMc+673 +Fy4L7+uVfXFt9QZxau+8QRULYwL0uWql3rBFQFHhn4csTDvwhGnp7w33uwq8 +Xr1mofm4kODJT15gK3pPJ6yXhWb6YtSQHi/o3fRsjjLAwkK59uehzV4wUzse +v+8tC3NGB+vSC71A54Z++ecxFipd/ha2x88L7vevD0ucYKG9YdLfhc4knuQO +0JtioZh10/ivzV7gExfaETLLwsaA0HdPNEi8h7EZMj9YuPm0mds6OS+IXrzq +WbvIQn4Rhk7tCi8QW12svfc3C388Gtxo+dMTsg/Vzv75w8KoFyvyu8c94f8m +fkDy "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "PlotRange" -> {{0, 30}, {0., 0.0632938933295427}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -11002,6 +10993,7 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -11029,7 +11021,8 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.1760850255633475}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.0632938933295427}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -11037,17 +11030,568 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913465524249306`*^9}, + CellChangeTimes->{3.9913465524249306`*^9, 3.994252882977272*^9}, CellLabel-> - "Out[444]=",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] + "Out[119]=",ExpressionUUID->"4555ab54-ddb4-4e2a-8a52-4fc759a3d4e4"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"6883477e-2a54-0a45-979a-\ -ae60c73e9e82"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"6883477e-2a54-0a45-979a-ae60c73e9e82"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV12k8lVsXAHBRIUMyHjNnMs9F5FirSFERpXArMitJGQp1kzIUlZAkU5HZ +OYeK0E2hlCQkc5RUb0TKFNXt3ffT8/t/eNZ+1h7WXo+qx2FHb14eHp5lS3h4 +/nvODT1roifkW2QO248U3zS36MqmhK/vjQaZoPn0cCs5QKmXHpTeZLjiYvad +ZaUJYdtLevh6b0KLHG+LjJUZrJqUSV7oqQTfR/Ue7y1tYfi+3eGZngZYM9E/ +amnpCtb0sTffejph8GKT0jAegIUekytTPSNgvlhW5WoSAY2WhfkdN6fBJVBI +J4ORAArDNR89tH+DhkRHWfl8CkgGuJXwW/LhuggJ7Qd8GZBsYF1n5ySAGsEf +vI1UcqEvXf/hNzERbEhO0LDsvwkJ+ade8squwn6zMeVdKbdAJvX9uZQsCYyr +pLyO+FUIcTttLDrnpNC1wWPFzGIxyN1pk+NdIo0fPnwOEeQrAbbEznkDIWl0 +HQielxUqge7OfdzLytLYE1CH2vIlQHcIoTpslkZFz6xnUutKoGFbzvL2a9LY +fbfnw8/wEvhtPdv2wlwGE8x0qaIzJRBsesPtWTQF1bZ2xCn1lYJtrujMlkQK +etXX7jg1XApU/hPxbVcoKN8tyx74UArtXbsqXhVR0G3eVTjueynoBgnzDbVR +8FUNxaNIqAz+V3Cs4LucLFIfd62UYpXBHkm7CfnbsjjWrJKZklkGVl8XIwLf +y+HYrsNx4nblEL45VfPRFzncZm2TbLqjHNg3dPol5uTQJmPKco9zOVB2upvW +CMhjbuyvjFSPcvhy7/E8n648KkO6REdYOaREJ4VcOy6PbLFW0fDschiRYgY2 +iSigXnCT59mxcpA5XK8oI6OAMuv8BFW+lsPWp84v/FUU0MbvjGP1dDlURSRo +rzRSQCOLn229v8rh/PDUmIuzAjKXaQZ9EmWDYXGd79ebCkhRur3dyJANp80d +9sutVUQHECqJCWXD5n3Z3002KCIltWxuIpwNolHjZ5y2KqKdWL+qw99syGyM +KUhyV0QRix2SAnFsuGdbO778nCLWrd9/aG06G6acaWHTfYp4nj9jVV4NG/aF +zp5vjVRCPPLj+I0fbGBc3aAwFqOEfNVHvnj/YpP8L5XzJymhsuQXKwYPByJ+ +abRvyFfCHeOiBan8HLhyZp9UTasSPl8aY2AszYHWy805txSVUeOJ592zhhww +Y1+783e9Mp5JX7Lg4MsBq56235NPlVG809DU4gAH7HiWbnLrVEaWxfNVzEMc +8HQM7IMPymjRwr7wv6McsI5UPRW1TAW/f35fu/ZvDgQpz+Wt11LBrSV7LJen +cqDJN2eiMUwFU3oyeF3uc8Dml6n4iUgVbNXol6t5wIG2pC7j1VEq+Jf+pj7J +RxzoqxGMyj+nghMv82zrH3NgUihEPCZTBV+XB4q8beMAhbvZxLpBBUMzsmMd +3nIg4Me3qKciqlh1TUXixx+SzxEf6Y/iqvj+w7KsRR4uCIz1l/JRVPGXc2TZ +3BIu3Bpo7LagqmJH3jR+4uPC0IMr2neNVVE2XnFLCT8X7GNMe2+4kXhHTljc +E+WC0r/lh+q9VHHvvp5HF1dy4UsYle+NvyoGmFY0e4hxId5PSJcSoopHJtL2 +8Ilz4eGWN2cuxpP347CaKcUFQ/HTepEVqritoyp5To4LPAmzTelVqijzV+TR +W/JcaOM74FpVp4qjBn0DDgpcODjrGPPtsSoG0cy35SlyIb+XPuDbr4pxPvXV +6ipcOOpwLShmWBVdzh341kiMLSLL80ZVcfxtyL09qlx4UzenPzSpip81rkzF +UrkgnfM0dicfFR+xCqQf0LkwKsNSOCpARTOJz083MrhQmVRRcUmEiowlYcLP +ie2jMwZbZKj46nCgTRuT5OcdYLhem4qBG38WVatzYdfQ2+Z9BlTceqlsWkuD +C/TdTntPGFMxW7f6VRbxw80W8dVIxQ+VY04RmlxY0BIb0nGiom+7/xFpbS7M +ZcmdNnKlYtSNoTuhxDMrGXRTNyp6hqgWdRJPTpsesPKn4uZwmdwYHS6Me1uJ +2AZSsULh5a0B4v/12HHtg6komr93r54uF0bqPOdcT1LxnzaR0ZfEwzqB19yj +qZg6bnJHQY8LgznHzX3iqNgxZLPWl7j7zIXoI5epGFK3bt8sccuWatH4WyRf +KzH9OX0uNP/zqOJCCRXPJuiy9Q240KTXujOFQ/INChz1I34g8S4ju4aKio7h +kZ3EdTHjrPwHVDxS4PyGz5AL9+Zn3xY3kvGsoxcMiSsHVqjdfUHF60dGPM4T +c7ZJtdR2UlFttUFFJXFZvfKhhz1UdK9crOslLjbQFHsySOKbt575RVyQt/r2 +83dUbLhuJKhkxIU8KdjV8ZGKn6Tqt7KIc+NsFrrHqUjx/23nSpy1sCNzcIrk +9+KkWChxxsF9MDJLxYCZl5cvEF994zfyaZGK+wXOvsojTrUPjpn4Q0XvMs3u +auLLj06qTy+l4dDPnRnPiC8axT//IUjDNedTVfqIE24lB/4rSsMkj0j/j8Tx +MlmrlkrS8Bh/Zug34phzhXcEZWkYefTcxkXi6J8Vu1cq0XCJZE8fz2ounDp0 +f1GSRsPWTorRMuITw0+y5NRp2Cz03oGfONyhA1V0aFh8ucX4P4c1DrxnGNIw +u8xrZClx8JqPsVomNOST2+T0X7ygwikNA3Ma8ggLJC2Q8QJlf7Yar6ehnYZF +yhTxwYRlQebWNGxPjHL7QOz3e6XEhi00tH7sM9tD7HNYrmrTdhoKvI53ekrs ++Y7uss2JhpkGp6KqiN136P1ydKVheONI2E3ivY9Nc5zdaJj3YatpIrGridWG +fV40POi9+2kw8U55l3j/QBpu/FJlZ07scMFT63AwDbc+Wb9Jkdjuz6G2kOM0 +1MrrFf1vfTe/j5aMiqZh2miGyG3ijU4XqmPiaEi/8WdjAvGG5quuCYk0/Ljy +vf1+YvPSsty0NBpO/p3Vv5x4QKU0Z+N1Gm4511jZR/ZjRFpx9kwODR8nWxaW +EFefLsh0LKbhd9vdn6yJd83nX1/CpuGbzEkjceKZgLwMbiUNPxt9yh4g+9/Q +OTdd9D6ZL17+Tj/ijhfZV/95SEOPoNXXtYmDLLPSAh7TkP/iy7OT5PywdTNS +W9poWP14X10Ascay1KTYdzQUtvdociTn8WlE8qU1H8n+0TyRw0/sM5V0cXSM +zOcDrZxacp7zBy4kbpih4fvlPqLyxCqVcfH/LqfjlVWidY+1SP1yi4wK06bj +kiqvpgZSf+52hZ9iGNDxk1mcuivxTtvjf3etoeN4RUvNVzUuJK8JPWEIdEx7 +8s5bilhE+PDxSQc6ehhkT9uS+ra0xiPI5xgdEzMr3N1IvczT3X9Y6gQdmWtf +9PaReroh3y2wKYqOhbffxjoSn7q0J4B6no6SvHpxFspcWPTe5TeUSUf9XGP1 +JaQ+fxO3dd/VQEfPKuuDBhQu9AZQ2w8009HWerz+tAyph08W4VQrHTcOxi9t +l+ZCUkSpclE3+V75fHcfcj/ojwgPL4zRcb0bNTyC3B+BFS/3Zkkw8LJ4UScK +k/USKnpRQWGg41XHqCAhLlh4R7GeKDJwd8e0RvYKkp+sgeJXNQaGKTFDpgVI +PYlKHkRzBhZs5yzELOPCmL3TX6NexLUG42m/ONBZrPP8hz+D3IdnTlYtcqCW +b/k6kcMMLNMKVOn8wYFz1VVyxuEMtHZzyP49wwF1ZUp/3AUGim2GAsYEB3wn ++521qhg4OOO4uW6QA6OJ7ruO8jOxSFOfV6CGA4Fj2lR9YSYqWQSueF3FgflN +CxMTYkzkFb7ckX2HAyv4kmP85ZgYTO27oc7lgH544x13HSZ6hPYelirkwElv +poT9Dia2pklM7iT9g7TFl5daOUyUoeh/CQngQO71e9c/5zFx5/SBQ4P+HNBY +OOtbWMREiayJXiT9i/kdxT/USiYa3bcP4fEg/Yqmva7cYybe3YTvXXdzgCtd +mSgwzkQtt9rek+tJP/L1mM0HYzUUa08Zi5HggIKBUqyAuRqO7FlevU2M9B9H +mxq01qvh67ULFHERDqTOiZkf3aKGNssy8pOWc2Dod7HuHzc1DG4NEfFeYMNR +4UEJ2XNqmH519f2AITZkaODQ1gE19Mmfd1paQPo1T4HgO6fUsWrjfEudFhsm +s63+qT+rjlJWhRotamz42hfF//ycOs7+Zcd5TWPDd/uF6+9S1LGsINd4VJ4N +8+vGmkSL1HFnnonvsBAbeCVbpf3b1VHsT+ew/Xg5yDZdqlVU1UDHRLzDKCon +/zMyvHENGui+bcVpQblyEH/BvMj9qolPz40bD8yXgkI8Z7uxsTaauwv81s0u +gXQtUzEJXx2MfLluR6pVMflvWr9m+rIuRrkMrxYYKQQzhYYkvW49rDVokHvt +VACifDdD9kfrY+LXrrWxQ/mgdFrZ3IVpgIXXzV2UNuWBIGNPlWOzAUolZ64+ +WHcDdFmynGN7DfEgd00Oj2MuHB0Sb7TlMcK2HwtreMuy4Ot0opNNOnHhhfST +vNdhk96TDBud1TjV0RVbezYdHkyv+znfthrfZaW1m89dgUBtw/4O7zXo8PWI +FasmBViTXl0ugsaouKkiZyjsMmykU7aJ3DTG3WJC7xL5L4F61PnjDSYmeFtY +I+Ht6QTQ9DatZ/SbYOdZicXWpfHg/cDv7J0ja/FuF//272IxUJ/b5fVNyhRl +9LW/6OlFw0zRn3m9alPcMh5CU3I8BZ6MUsGMbWYYORbK5FGJhG+aKcaVU2ao +2p22/CnlGNzL//luNn4dnp9PPj72LBhcrWi4Tskcz5c1V+36GgTyh+JqdB+a +Y9OqdwupxwNAakVAxbbdLHT29RFzkveDfMuTEVMuLDzUnXDfRNAPDE9etEzZ +w8Ia50I+5rwv2E1xX/fuZ+H2rVJbGa98IbZ7dsEzgIXN5t5q7ARf+HHz1IaI +0yy89KadMvqvD/SvS3lVUMpCuROpt2smvMEvND/Ths3Ce6Xig0vfeMMc+673 +Fy4L7+uVfXFt9QZxau+8QRULYwL0uWql3rBFQFHhn4csTDvwhGnp7w33uwq8 +Xr1mofm4kODJT15gK3pPJ6yXhWb6YtSQHi/o3fRsjjLAwkK59uehzV4wUzse +v+8tC3NGB+vSC71A54Z++ecxFipd/ha2x88L7vevD0ucYKG9YdLfhc4knuQO +0JtioZh10/ivzV7gExfaETLLwsaA0HdPNEi8h7EZMj9YuPm0mds6OS+IXrzq +WbvIQn4Rhk7tCi8QW12svfc3C388Gtxo+dMTsg/Vzv75w8KoFyvyu8c94f8m +fkDy + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV12k8lVsXAHBRIUMyHjNnMs9F5FirSFERpXArMitJGQp1kzIUlZAkU5HZ +OYeK0E2hlCQkc5RUb0TKFNXt3ffT8/t/eNZ+1h7WXo+qx2FHb14eHp5lS3h4 +/nvODT1roifkW2QO248U3zS36MqmhK/vjQaZoPn0cCs5QKmXHpTeZLjiYvad +ZaUJYdtLevh6b0KLHG+LjJUZrJqUSV7oqQTfR/Ue7y1tYfi+3eGZngZYM9E/ +amnpCtb0sTffejph8GKT0jAegIUekytTPSNgvlhW5WoSAY2WhfkdN6fBJVBI +J4ORAArDNR89tH+DhkRHWfl8CkgGuJXwW/LhuggJ7Qd8GZBsYF1n5ySAGsEf +vI1UcqEvXf/hNzERbEhO0LDsvwkJ+ade8squwn6zMeVdKbdAJvX9uZQsCYyr +pLyO+FUIcTttLDrnpNC1wWPFzGIxyN1pk+NdIo0fPnwOEeQrAbbEznkDIWl0 +HQielxUqge7OfdzLytLYE1CH2vIlQHcIoTpslkZFz6xnUutKoGFbzvL2a9LY +fbfnw8/wEvhtPdv2wlwGE8x0qaIzJRBsesPtWTQF1bZ2xCn1lYJtrujMlkQK +etXX7jg1XApU/hPxbVcoKN8tyx74UArtXbsqXhVR0G3eVTjueynoBgnzDbVR +8FUNxaNIqAz+V3Cs4LucLFIfd62UYpXBHkm7CfnbsjjWrJKZklkGVl8XIwLf +y+HYrsNx4nblEL45VfPRFzncZm2TbLqjHNg3dPol5uTQJmPKco9zOVB2upvW +CMhjbuyvjFSPcvhy7/E8n648KkO6REdYOaREJ4VcOy6PbLFW0fDschiRYgY2 +iSigXnCT59mxcpA5XK8oI6OAMuv8BFW+lsPWp84v/FUU0MbvjGP1dDlURSRo +rzRSQCOLn229v8rh/PDUmIuzAjKXaQZ9EmWDYXGd79ebCkhRur3dyJANp80d +9sutVUQHECqJCWXD5n3Z3002KCIltWxuIpwNolHjZ5y2KqKdWL+qw99syGyM +KUhyV0QRix2SAnFsuGdbO778nCLWrd9/aG06G6acaWHTfYp4nj9jVV4NG/aF +zp5vjVRCPPLj+I0fbGBc3aAwFqOEfNVHvnj/YpP8L5XzJymhsuQXKwYPByJ+ +abRvyFfCHeOiBan8HLhyZp9UTasSPl8aY2AszYHWy805txSVUeOJ592zhhww +Y1+783e9Mp5JX7Lg4MsBq56235NPlVG809DU4gAH7HiWbnLrVEaWxfNVzEMc +8HQM7IMPymjRwr7wv6McsI5UPRW1TAW/f35fu/ZvDgQpz+Wt11LBrSV7LJen +cqDJN2eiMUwFU3oyeF3uc8Dml6n4iUgVbNXol6t5wIG2pC7j1VEq+Jf+pj7J +RxzoqxGMyj+nghMv82zrH3NgUihEPCZTBV+XB4q8beMAhbvZxLpBBUMzsmMd +3nIg4Me3qKciqlh1TUXixx+SzxEf6Y/iqvj+w7KsRR4uCIz1l/JRVPGXc2TZ +3BIu3Bpo7LagqmJH3jR+4uPC0IMr2neNVVE2XnFLCT8X7GNMe2+4kXhHTljc +E+WC0r/lh+q9VHHvvp5HF1dy4UsYle+NvyoGmFY0e4hxId5PSJcSoopHJtL2 +8Ilz4eGWN2cuxpP347CaKcUFQ/HTepEVqritoyp5To4LPAmzTelVqijzV+TR +W/JcaOM74FpVp4qjBn0DDgpcODjrGPPtsSoG0cy35SlyIb+XPuDbr4pxPvXV +6ipcOOpwLShmWBVdzh341kiMLSLL80ZVcfxtyL09qlx4UzenPzSpip81rkzF +UrkgnfM0dicfFR+xCqQf0LkwKsNSOCpARTOJz083MrhQmVRRcUmEiowlYcLP +ie2jMwZbZKj46nCgTRuT5OcdYLhem4qBG38WVatzYdfQ2+Z9BlTceqlsWkuD +C/TdTntPGFMxW7f6VRbxw80W8dVIxQ+VY04RmlxY0BIb0nGiom+7/xFpbS7M +ZcmdNnKlYtSNoTuhxDMrGXRTNyp6hqgWdRJPTpsesPKn4uZwmdwYHS6Me1uJ +2AZSsULh5a0B4v/12HHtg6komr93r54uF0bqPOdcT1LxnzaR0ZfEwzqB19yj +qZg6bnJHQY8LgznHzX3iqNgxZLPWl7j7zIXoI5epGFK3bt8sccuWatH4WyRf +KzH9OX0uNP/zqOJCCRXPJuiy9Q240KTXujOFQ/INChz1I34g8S4ju4aKio7h +kZ3EdTHjrPwHVDxS4PyGz5AL9+Zn3xY3kvGsoxcMiSsHVqjdfUHF60dGPM4T +c7ZJtdR2UlFttUFFJXFZvfKhhz1UdK9crOslLjbQFHsySOKbt575RVyQt/r2 +83dUbLhuJKhkxIU8KdjV8ZGKn6Tqt7KIc+NsFrrHqUjx/23nSpy1sCNzcIrk +9+KkWChxxsF9MDJLxYCZl5cvEF994zfyaZGK+wXOvsojTrUPjpn4Q0XvMs3u +auLLj06qTy+l4dDPnRnPiC8axT//IUjDNedTVfqIE24lB/4rSsMkj0j/j8Tx +MlmrlkrS8Bh/Zug34phzhXcEZWkYefTcxkXi6J8Vu1cq0XCJZE8fz2ounDp0 +f1GSRsPWTorRMuITw0+y5NRp2Cz03oGfONyhA1V0aFh8ucX4P4c1DrxnGNIw +u8xrZClx8JqPsVomNOST2+T0X7ygwikNA3Ma8ggLJC2Q8QJlf7Yar6ehnYZF +yhTxwYRlQebWNGxPjHL7QOz3e6XEhi00tH7sM9tD7HNYrmrTdhoKvI53ekrs ++Y7uss2JhpkGp6KqiN136P1ydKVheONI2E3ivY9Nc5zdaJj3YatpIrGridWG +fV40POi9+2kw8U55l3j/QBpu/FJlZ07scMFT63AwDbc+Wb9Jkdjuz6G2kOM0 +1MrrFf1vfTe/j5aMiqZh2miGyG3ijU4XqmPiaEi/8WdjAvGG5quuCYk0/Ljy +vf1+YvPSsty0NBpO/p3Vv5x4QKU0Z+N1Gm4511jZR/ZjRFpx9kwODR8nWxaW +EFefLsh0LKbhd9vdn6yJd83nX1/CpuGbzEkjceKZgLwMbiUNPxt9yh4g+9/Q +OTdd9D6ZL17+Tj/ijhfZV/95SEOPoNXXtYmDLLPSAh7TkP/iy7OT5PywdTNS +W9poWP14X10Ascay1KTYdzQUtvdociTn8WlE8qU1H8n+0TyRw0/sM5V0cXSM +zOcDrZxacp7zBy4kbpih4fvlPqLyxCqVcfH/LqfjlVWidY+1SP1yi4wK06bj +kiqvpgZSf+52hZ9iGNDxk1mcuivxTtvjf3etoeN4RUvNVzUuJK8JPWEIdEx7 +8s5bilhE+PDxSQc6ehhkT9uS+ra0xiPI5xgdEzMr3N1IvczT3X9Y6gQdmWtf +9PaReroh3y2wKYqOhbffxjoSn7q0J4B6no6SvHpxFspcWPTe5TeUSUf9XGP1 +JaQ+fxO3dd/VQEfPKuuDBhQu9AZQ2w8009HWerz+tAyph08W4VQrHTcOxi9t +l+ZCUkSpclE3+V75fHcfcj/ojwgPL4zRcb0bNTyC3B+BFS/3Zkkw8LJ4UScK +k/USKnpRQWGg41XHqCAhLlh4R7GeKDJwd8e0RvYKkp+sgeJXNQaGKTFDpgVI +PYlKHkRzBhZs5yzELOPCmL3TX6NexLUG42m/ONBZrPP8hz+D3IdnTlYtcqCW +b/k6kcMMLNMKVOn8wYFz1VVyxuEMtHZzyP49wwF1ZUp/3AUGim2GAsYEB3wn ++521qhg4OOO4uW6QA6OJ7ruO8jOxSFOfV6CGA4Fj2lR9YSYqWQSueF3FgflN +CxMTYkzkFb7ckX2HAyv4kmP85ZgYTO27oc7lgH544x13HSZ6hPYelirkwElv +poT9Dia2pklM7iT9g7TFl5daOUyUoeh/CQngQO71e9c/5zFx5/SBQ4P+HNBY +OOtbWMREiayJXiT9i/kdxT/USiYa3bcP4fEg/Yqmva7cYybe3YTvXXdzgCtd +mSgwzkQtt9rek+tJP/L1mM0HYzUUa08Zi5HggIKBUqyAuRqO7FlevU2M9B9H +mxq01qvh67ULFHERDqTOiZkf3aKGNssy8pOWc2Dod7HuHzc1DG4NEfFeYMNR +4UEJ2XNqmH519f2AITZkaODQ1gE19Mmfd1paQPo1T4HgO6fUsWrjfEudFhsm +s63+qT+rjlJWhRotamz42hfF//ycOs7+Zcd5TWPDd/uF6+9S1LGsINd4VJ4N +8+vGmkSL1HFnnonvsBAbeCVbpf3b1VHsT+ew/Xg5yDZdqlVU1UDHRLzDKCon +/zMyvHENGui+bcVpQblyEH/BvMj9qolPz40bD8yXgkI8Z7uxsTaauwv81s0u +gXQtUzEJXx2MfLluR6pVMflvWr9m+rIuRrkMrxYYKQQzhYYkvW49rDVokHvt +VACifDdD9kfrY+LXrrWxQ/mgdFrZ3IVpgIXXzV2UNuWBIGNPlWOzAUolZ64+ +WHcDdFmynGN7DfEgd00Oj2MuHB0Sb7TlMcK2HwtreMuy4Ot0opNNOnHhhfST +vNdhk96TDBud1TjV0RVbezYdHkyv+znfthrfZaW1m89dgUBtw/4O7zXo8PWI +FasmBViTXl0ugsaouKkiZyjsMmykU7aJ3DTG3WJC7xL5L4F61PnjDSYmeFtY +I+Ht6QTQ9DatZ/SbYOdZicXWpfHg/cDv7J0ja/FuF//272IxUJ/b5fVNyhRl +9LW/6OlFw0zRn3m9alPcMh5CU3I8BZ6MUsGMbWYYORbK5FGJhG+aKcaVU2ao +2p22/CnlGNzL//luNn4dnp9PPj72LBhcrWi4Tskcz5c1V+36GgTyh+JqdB+a +Y9OqdwupxwNAakVAxbbdLHT29RFzkveDfMuTEVMuLDzUnXDfRNAPDE9etEzZ +w8Ia50I+5rwv2E1xX/fuZ+H2rVJbGa98IbZ7dsEzgIXN5t5q7ARf+HHz1IaI +0yy89KadMvqvD/SvS3lVUMpCuROpt2smvMEvND/Ths3Ce6Xig0vfeMMc+673 +Fy4L7+uVfXFt9QZxau+8QRULYwL0uWql3rBFQFHhn4csTDvwhGnp7w33uwq8 +Xr1mofm4kODJT15gK3pPJ6yXhWb6YtSQHi/o3fRsjjLAwkK59uehzV4wUzse +v+8tC3NGB+vSC71A54Z++ecxFipd/ha2x88L7vevD0ucYKG9YdLfhc4knuQO +0JtioZh10/ivzV7gExfaETLLwsaA0HdPNEi8h7EZMj9YuPm0mds6OS+IXrzq +WbvIQn4Rhk7tCi8QW12svfc3C388Gtxo+dMTsg/Vzv75w8KoFyvyu8c94f8m +fkDy + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0632938933295427}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0632938933295427}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV12k8lVsXAHBRIUMyHjNnMs9F5FirSFERpXArMitJGQp1kzIUlZAkU5HZ +OYeK0E2hlCQkc5RUb0TKFNXt3ffT8/t/eNZ+1h7WXo+qx2FHb14eHp5lS3h4 +/nvODT1roifkW2QO248U3zS36MqmhK/vjQaZoPn0cCs5QKmXHpTeZLjiYvad +ZaUJYdtLevh6b0KLHG+LjJUZrJqUSV7oqQTfR/Ue7y1tYfi+3eGZngZYM9E/ +amnpCtb0sTffejph8GKT0jAegIUekytTPSNgvlhW5WoSAY2WhfkdN6fBJVBI +J4ORAArDNR89tH+DhkRHWfl8CkgGuJXwW/LhuggJ7Qd8GZBsYF1n5ySAGsEf +vI1UcqEvXf/hNzERbEhO0LDsvwkJ+ade8squwn6zMeVdKbdAJvX9uZQsCYyr +pLyO+FUIcTttLDrnpNC1wWPFzGIxyN1pk+NdIo0fPnwOEeQrAbbEznkDIWl0 +HQielxUqge7OfdzLytLYE1CH2vIlQHcIoTpslkZFz6xnUutKoGFbzvL2a9LY +fbfnw8/wEvhtPdv2wlwGE8x0qaIzJRBsesPtWTQF1bZ2xCn1lYJtrujMlkQK +etXX7jg1XApU/hPxbVcoKN8tyx74UArtXbsqXhVR0G3eVTjueynoBgnzDbVR +8FUNxaNIqAz+V3Cs4LucLFIfd62UYpXBHkm7CfnbsjjWrJKZklkGVl8XIwLf +y+HYrsNx4nblEL45VfPRFzncZm2TbLqjHNg3dPol5uTQJmPKco9zOVB2upvW +CMhjbuyvjFSPcvhy7/E8n648KkO6REdYOaREJ4VcOy6PbLFW0fDschiRYgY2 +iSigXnCT59mxcpA5XK8oI6OAMuv8BFW+lsPWp84v/FUU0MbvjGP1dDlURSRo +rzRSQCOLn229v8rh/PDUmIuzAjKXaQZ9EmWDYXGd79ebCkhRur3dyJANp80d +9sutVUQHECqJCWXD5n3Z3002KCIltWxuIpwNolHjZ5y2KqKdWL+qw99syGyM +KUhyV0QRix2SAnFsuGdbO778nCLWrd9/aG06G6acaWHTfYp4nj9jVV4NG/aF +zp5vjVRCPPLj+I0fbGBc3aAwFqOEfNVHvnj/YpP8L5XzJymhsuQXKwYPByJ+ +abRvyFfCHeOiBan8HLhyZp9UTasSPl8aY2AszYHWy805txSVUeOJ592zhhww +Y1+783e9Mp5JX7Lg4MsBq56235NPlVG809DU4gAH7HiWbnLrVEaWxfNVzEMc +8HQM7IMPymjRwr7wv6McsI5UPRW1TAW/f35fu/ZvDgQpz+Wt11LBrSV7LJen +cqDJN2eiMUwFU3oyeF3uc8Dml6n4iUgVbNXol6t5wIG2pC7j1VEq+Jf+pj7J +RxzoqxGMyj+nghMv82zrH3NgUihEPCZTBV+XB4q8beMAhbvZxLpBBUMzsmMd +3nIg4Me3qKciqlh1TUXixx+SzxEf6Y/iqvj+w7KsRR4uCIz1l/JRVPGXc2TZ +3BIu3Bpo7LagqmJH3jR+4uPC0IMr2neNVVE2XnFLCT8X7GNMe2+4kXhHTljc +E+WC0r/lh+q9VHHvvp5HF1dy4UsYle+NvyoGmFY0e4hxId5PSJcSoopHJtL2 +8Ilz4eGWN2cuxpP347CaKcUFQ/HTepEVqritoyp5To4LPAmzTelVqijzV+TR +W/JcaOM74FpVp4qjBn0DDgpcODjrGPPtsSoG0cy35SlyIb+XPuDbr4pxPvXV +6ipcOOpwLShmWBVdzh341kiMLSLL80ZVcfxtyL09qlx4UzenPzSpip81rkzF +UrkgnfM0dicfFR+xCqQf0LkwKsNSOCpARTOJz083MrhQmVRRcUmEiowlYcLP +ie2jMwZbZKj46nCgTRuT5OcdYLhem4qBG38WVatzYdfQ2+Z9BlTceqlsWkuD +C/TdTntPGFMxW7f6VRbxw80W8dVIxQ+VY04RmlxY0BIb0nGiom+7/xFpbS7M +ZcmdNnKlYtSNoTuhxDMrGXRTNyp6hqgWdRJPTpsesPKn4uZwmdwYHS6Me1uJ +2AZSsULh5a0B4v/12HHtg6komr93r54uF0bqPOdcT1LxnzaR0ZfEwzqB19yj +qZg6bnJHQY8LgznHzX3iqNgxZLPWl7j7zIXoI5epGFK3bt8sccuWatH4WyRf +KzH9OX0uNP/zqOJCCRXPJuiy9Q240KTXujOFQ/INChz1I34g8S4ju4aKio7h +kZ3EdTHjrPwHVDxS4PyGz5AL9+Zn3xY3kvGsoxcMiSsHVqjdfUHF60dGPM4T +c7ZJtdR2UlFttUFFJXFZvfKhhz1UdK9crOslLjbQFHsySOKbt575RVyQt/r2 +83dUbLhuJKhkxIU8KdjV8ZGKn6Tqt7KIc+NsFrrHqUjx/23nSpy1sCNzcIrk +9+KkWChxxsF9MDJLxYCZl5cvEF994zfyaZGK+wXOvsojTrUPjpn4Q0XvMs3u +auLLj06qTy+l4dDPnRnPiC8axT//IUjDNedTVfqIE24lB/4rSsMkj0j/j8Tx +MlmrlkrS8Bh/Zug34phzhXcEZWkYefTcxkXi6J8Vu1cq0XCJZE8fz2ounDp0 +f1GSRsPWTorRMuITw0+y5NRp2Cz03oGfONyhA1V0aFh8ucX4P4c1DrxnGNIw +u8xrZClx8JqPsVomNOST2+T0X7ygwikNA3Ma8ggLJC2Q8QJlf7Yar6ehnYZF +yhTxwYRlQebWNGxPjHL7QOz3e6XEhi00tH7sM9tD7HNYrmrTdhoKvI53ekrs ++Y7uss2JhpkGp6KqiN136P1ydKVheONI2E3ivY9Nc5zdaJj3YatpIrGridWG +fV40POi9+2kw8U55l3j/QBpu/FJlZ07scMFT63AwDbc+Wb9Jkdjuz6G2kOM0 +1MrrFf1vfTe/j5aMiqZh2miGyG3ijU4XqmPiaEi/8WdjAvGG5quuCYk0/Ljy +vf1+YvPSsty0NBpO/p3Vv5x4QKU0Z+N1Gm4511jZR/ZjRFpx9kwODR8nWxaW +EFefLsh0LKbhd9vdn6yJd83nX1/CpuGbzEkjceKZgLwMbiUNPxt9yh4g+9/Q +OTdd9D6ZL17+Tj/ijhfZV/95SEOPoNXXtYmDLLPSAh7TkP/iy7OT5PywdTNS +W9poWP14X10Ascay1KTYdzQUtvdociTn8WlE8qU1H8n+0TyRw0/sM5V0cXSM +zOcDrZxacp7zBy4kbpih4fvlPqLyxCqVcfH/LqfjlVWidY+1SP1yi4wK06bj +kiqvpgZSf+52hZ9iGNDxk1mcuivxTtvjf3etoeN4RUvNVzUuJK8JPWEIdEx7 +8s5bilhE+PDxSQc6ehhkT9uS+ra0xiPI5xgdEzMr3N1IvczT3X9Y6gQdmWtf +9PaReroh3y2wKYqOhbffxjoSn7q0J4B6no6SvHpxFspcWPTe5TeUSUf9XGP1 +JaQ+fxO3dd/VQEfPKuuDBhQu9AZQ2w8009HWerz+tAyph08W4VQrHTcOxi9t +l+ZCUkSpclE3+V75fHcfcj/ojwgPL4zRcb0bNTyC3B+BFS/3Zkkw8LJ4UScK +k/USKnpRQWGg41XHqCAhLlh4R7GeKDJwd8e0RvYKkp+sgeJXNQaGKTFDpgVI +PYlKHkRzBhZs5yzELOPCmL3TX6NexLUG42m/ONBZrPP8hz+D3IdnTlYtcqCW +b/k6kcMMLNMKVOn8wYFz1VVyxuEMtHZzyP49wwF1ZUp/3AUGim2GAsYEB3wn ++521qhg4OOO4uW6QA6OJ7ruO8jOxSFOfV6CGA4Fj2lR9YSYqWQSueF3FgflN +CxMTYkzkFb7ckX2HAyv4kmP85ZgYTO27oc7lgH544x13HSZ6hPYelirkwElv +poT9Dia2pklM7iT9g7TFl5daOUyUoeh/CQngQO71e9c/5zFx5/SBQ4P+HNBY +OOtbWMREiayJXiT9i/kdxT/USiYa3bcP4fEg/Yqmva7cYybe3YTvXXdzgCtd +mSgwzkQtt9rek+tJP/L1mM0HYzUUa08Zi5HggIKBUqyAuRqO7FlevU2M9B9H +mxq01qvh67ULFHERDqTOiZkf3aKGNssy8pOWc2Dod7HuHzc1DG4NEfFeYMNR +4UEJ2XNqmH519f2AITZkaODQ1gE19Mmfd1paQPo1T4HgO6fUsWrjfEudFhsm +s63+qT+rjlJWhRotamz42hfF//ycOs7+Zcd5TWPDd/uF6+9S1LGsINd4VJ4N +8+vGmkSL1HFnnonvsBAbeCVbpf3b1VHsT+ew/Xg5yDZdqlVU1UDHRLzDKCon +/zMyvHENGui+bcVpQblyEH/BvMj9qolPz40bD8yXgkI8Z7uxsTaauwv81s0u +gXQtUzEJXx2MfLluR6pVMflvWr9m+rIuRrkMrxYYKQQzhYYkvW49rDVokHvt +VACifDdD9kfrY+LXrrWxQ/mgdFrZ3IVpgIXXzV2UNuWBIGNPlWOzAUolZ64+ +WHcDdFmynGN7DfEgd00Oj2MuHB0Sb7TlMcK2HwtreMuy4Ot0opNNOnHhhfST +vNdhk96TDBud1TjV0RVbezYdHkyv+znfthrfZaW1m89dgUBtw/4O7zXo8PWI +FasmBViTXl0ugsaouKkiZyjsMmykU7aJ3DTG3WJC7xL5L4F61PnjDSYmeFtY +I+Ht6QTQ9DatZ/SbYOdZicXWpfHg/cDv7J0ja/FuF//272IxUJ/b5fVNyhRl +9LW/6OlFw0zRn3m9alPcMh5CU3I8BZ6MUsGMbWYYORbK5FGJhG+aKcaVU2ao +2p22/CnlGNzL//luNn4dnp9PPj72LBhcrWi4Tskcz5c1V+36GgTyh+JqdB+a +Y9OqdwupxwNAakVAxbbdLHT29RFzkveDfMuTEVMuLDzUnXDfRNAPDE9etEzZ +w8Ia50I+5rwv2E1xX/fuZ+H2rVJbGa98IbZ7dsEzgIXN5t5q7ARf+HHz1IaI +0yy89KadMvqvD/SvS3lVUMpCuROpt2smvMEvND/Ths3Ce6Xig0vfeMMc+673 +Fy4L7+uVfXFt9QZxau+8QRULYwL0uWql3rBFQFHhn4csTDvwhGnp7w33uwq8 +Xr1mofm4kODJT15gK3pPJ6yXhWb6YtSQHi/o3fRsjjLAwkK59uehzV4wUzse +v+8tC3NGB+vSC71A54Z++ecxFipd/ha2x88L7vevD0ucYKG9YdLfhc4knuQO +0JtioZh10/ivzV7gExfaETLLwsaA0HdPNEi8h7EZMj9YuPm0mds6OS+IXrzq +WbvIQn4Rhk7tCi8QW12svfc3C388Gtxo+dMTsg/Vzv75w8KoFyvyu8c94f8m +fkDy + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0632938933295427}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.0632938933295427}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994252883056555*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"01d9ae2a-6923-4146-81c4-81a60143b556"] +}, Open ]], Cell[CellGroupData[{ @@ -11099,66 +11643,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[448]:=",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], + "In[121]:=",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 448, 489, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347571140808*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.768553232930742`*^-163\\\", \ +RowBox[{\\\"505518991860510123640143147290826802026\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"71\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9512072804761600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 45, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347571140808*^9, 3.994252883117878*^9}, CellLabel-> "During evaluation of \ -In[448]:=",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], +In[121]:=",ExpressionUUID->"723c1025-9e2f-44ea-ab69-d2b230cbb72c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 448, 490, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475711508217`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.310432970915479`*^-166\\\", \ +RowBox[{\\\"164243120455479739170682508554789627978\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"75\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4724542670438400000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 46, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347571140808*^9, 3.9942528831293077`*^9}, CellLabel-> "During evaluation of \ -In[448]:=",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], +In[121]:=",ExpressionUUID->"06204c97-d214-4a05-9426-ac36e9150231"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ -\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ -2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 448, 491, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475711592274`*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.264442584522434`*^-169\\\", \ +RowBox[{\\\"552513857212233842570175958778312308519\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"78\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3361543354777600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 121, + 47, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347571140808*^9, 3.9942528831394873`*^9}, CellLabel-> "During evaluation of \ -In[448]:=",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], +In[121]:=",ExpressionUUID->"4a523c4b-7eeb-472d-8198-8152bb6c9ca1"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 448, 492, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475711683846`*^9}, +during this calculation.\"", 2, 121, 48, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347571140808*^9, 3.9942528831493883`*^9}, CellLabel-> "During evaluation of \ -In[448]:=",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], +In[121]:=",ExpressionUUID->"d18e0612-25e1-41b1-bd33-7cceff166fdb"], -Cell[BoxData["10.362747935330763`"], "Output", - CellChangeTimes->{3.991347578228073*^9}, +Cell[BoxData["12.358128138119152`"], "Output", + CellChangeTimes->{3.991347578228073*^9, 3.994252971471237*^9}, CellLabel-> - "Out[448]=",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] + "Out[121]=",ExpressionUUID->"16e19a0e-578c-48ae-89e1-e935ad407df7"] }, Open ]], Cell[CellGroupData[{ @@ -11225,68 +11776,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918503106317043`*^9, - 3.9918503148567924`*^9}},ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-\ -2a98ba29b602"], + CellChangeTimes->{{3.9918503106317043`*^9, 3.9918503148567924`*^9}}, + CellLabel-> + "In[122]:=",ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-2a98ba29b602"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 449, - 493, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347578265545*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.68803112948971`*^-218\\\", \ +RowBox[{\\\"4160735933984357432554811027341847802665\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"13\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3770116038587316426506240000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 49, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347578265545*^9, 3.994252971525416*^9}, CellLabel-> "During evaluation of \ -In[449]:=",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], +In[122]:=",ExpressionUUID->"11e40a85-6bfb-41ee-9fbe-8cc0fd94c7bc"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 449, - 494, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347578275551*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.529594713269142`*^-223\\\", \ +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 50, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347578265545*^9, 3.994252971535347*^9}, CellLabel-> "During evaluation of \ -In[449]:=",ExpressionUUID->"bbc1c804-e094-2b49-bceb-c837038552fa"], +In[122]:=",ExpressionUUID->"4dfaa9e2-4299-4a82-b75b-7402ccd23e9f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 449, 495, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475782835484`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.113303766448975`*^-229\\\", \ +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 122, + 51, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347578265545*^9, 3.994252971544654*^9}, CellLabel-> "During evaluation of \ -In[449]:=",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], +In[122]:=",ExpressionUUID->"d9e42840-7ba7-4705-aebc-1918dd9fbcdd"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 449, 496, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475782930756`*^9}, +during this calculation.\"", 2, 122, 52, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347578265545*^9, 3.994252971555922*^9}, CellLabel-> "During evaluation of \ -In[449]:=",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], +In[122]:=",ExpressionUUID->"b51446d6-efc3-41b8-8e73-3394eda58913"], -Cell[BoxData["1.4359199941844076`"], "Output", - CellChangeTimes->{3.9913475858902473`*^9}, +Cell[BoxData["0.1818285715129896`"], "Output", + CellChangeTimes->{3.9913475858902473`*^9, 3.994252982510874*^9}, CellLabel-> - "Out[449]=",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] + "Out[122]=",ExpressionUUID->"63f963c7-b6de-495d-ae7d-ed7ae651c915"] }, Open ]], Cell[CellGroupData[{ @@ -11307,8 +11865,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -11353,68 +11910,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850318596199*^9, - 3.991850321359722*^9}},ExpressionUUID->"edfdd675-c60b-304e-9e16-\ -68452b971319"], + CellChangeTimes->{{3.991850318596199*^9, 3.991850321359722*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"edfdd675-c60b-304e-9e16-68452b971319"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 450, - 497, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475859272156`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.68803112948971`*^-218\\\", \ +RowBox[{\\\"4160735933984357432554811027341847802665\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"13\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3770116038587316426506240000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 123, + 53, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913475859272156`*^9, 3.9942529825603*^9}, CellLabel-> "During evaluation of \ -In[450]:=",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], +In[123]:=",ExpressionUUID->"b53ebb8e-c596-4d5b-bf9f-77b04839b98c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 450, - 498, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347585937319*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.529594713269142`*^-223\\\", \ +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 123, + 54, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913475859272156`*^9, 3.994252982569824*^9}, CellLabel-> "During evaluation of \ -In[450]:=",ExpressionUUID->"7911ebc5-127d-5841-a246-fcff3e2e3d7f"], +In[123]:=",ExpressionUUID->"63740ad5-c898-45be-b78c-b2c8e80d59eb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 450, 499, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475859463177`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.113303766448975`*^-229\\\", \ +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 123, + 55, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913475859272156`*^9, 3.9942529825795927`*^9}, CellLabel-> "During evaluation of \ -In[450]:=",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], +In[123]:=",ExpressionUUID->"df705c78-4f7f-4fbc-ba41-894d7f4e405a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 450, 500, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475859543304`*^9}, +during this calculation.\"", 2, 123, 56, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913475859272156`*^9, 3.994252982589953*^9}, CellLabel-> "During evaluation of \ -In[450]:=",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], +In[123]:=",ExpressionUUID->"19ad8cb5-3423-48e8-a823-0b561bf27672"], -Cell[BoxData["5.09241659576143`"], "Output", - CellChangeTimes->{3.9913475931276417`*^9}, +Cell[BoxData["39.413512479652255`"], "Output", + CellChangeTimes->{3.9913475931276417`*^9, 3.994252992915432*^9}, CellLabel-> - "Out[450]=",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] + "Out[123]=",ExpressionUUID->"0d4ca74d-cf30-479e-ac4f-f7b3a2db6318"] }, Open ]], Cell[CellGroupData[{ @@ -11435,8 +11999,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -11481,68 +12044,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850325611994*^9, - 3.991850328926569*^9}},ExpressionUUID->"d0469d46-2e74-494a-be85-\ -b41cb2f3fa92"], + CellChangeTimes->{{3.991850325611994*^9, 3.991850328926569*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"d0469d46-2e74-494a-be85-b41cb2f3fa92"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 451, - 501, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134759316485*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.68803112948971`*^-218\\\", \ +RowBox[{\\\"4160735933984357432554811027341847802665\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"13\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3770116038587316426506240000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 124, + 57, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99134759316485*^9, 3.994252992962986*^9}, CellLabel-> "During evaluation of \ -In[451]:=",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], +In[124]:=",ExpressionUUID->"b4ca2a85-a869-46ec-9d48-13d6d682f282"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 451, - 502, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347593173849*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.529594713269142`*^-223\\\", \ +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 124, + 58, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99134759316485*^9, 3.994252992973894*^9}, CellLabel-> "During evaluation of \ -In[451]:=",ExpressionUUID->"05cc4b97-7653-f04b-8664-f56b3128e201"], +In[124]:=",ExpressionUUID->"9094b7cb-3e39-4ef4-8a1c-cbdb4ae2f673"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 451, 503, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347593182852*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.113303766448975`*^-229\\\", \ +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 124, + 59, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99134759316485*^9, 3.9942529929865017`*^9}, CellLabel-> "During evaluation of \ -In[451]:=",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], +In[124]:=",ExpressionUUID->"bf2de4ea-cd84-4e7a-bc3b-cf02a8f39fa4"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 451, 504, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475931908703`*^9}, +during this calculation.\"", 2, 124, 60, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99134759316485*^9, 3.994252992995202*^9}, CellLabel-> "During evaluation of \ -In[451]:=",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], +In[124]:=",ExpressionUUID->"6560987d-2a6c-4055-aac7-82ed580db3fb"], -Cell[BoxData["16.684462799943017`"], "Output", - CellChangeTimes->{3.9913475973006153`*^9}, +Cell[BoxData["5.83927293542708`"], "Output", + CellChangeTimes->{3.9913475973006153`*^9, 3.994253001701619*^9}, CellLabel-> - "Out[451]=",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] + "Out[124]=",ExpressionUUID->"8b1b75ea-9c66-4b83-aa96-94d15f162769"] }, Open ]], Cell[CellGroupData[{ @@ -11551,22 +12121,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.99185033265069*^9, - 3.9918503366548977`*^9}},ExpressionUUID->"58b5e243-0972-1946-bd17-\ -aca0f3e8a35b"], - -Cell[BoxData["0.15578016747845222`"], "Output", - CellChangeTimes->{3.991347597341627*^9}, + CellChangeTimes->{{3.99185033265069*^9, 3.9918503366548977`*^9}}, CellLabel-> - "Out[452]=",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] + "In[125]:=",ExpressionUUID->"58b5e243-0972-1946-bd17-aca0f3e8a35b"], + +Cell[BoxData["0.01198561074429598`"], "Output", + CellChangeTimes->{3.991347597341627*^9, 3.9942530017499847`*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"56fa120f-31c0-4dfe-ad4e-1ca55a16b9f5"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918503408077297`*^9, 3.99185034363356*^9}, - 3.991924645514969*^9},ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-\ -a3711ba632a4"], + 3.991924645514969*^9}, + CellLabel-> + "In[126]:=",ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-a3711ba632a4"], Cell[CellGroupData[{ @@ -11589,12 +12160,12 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[454]:=",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], + "In[127]:=",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], -Cell[BoxData["12.368532070745184`"], "Output", - CellChangeTimes->{3.991347597372614*^9}, +Cell[BoxData["7.3663521403016965`"], "Output", + CellChangeTimes->{3.991347597372614*^9, 3.994253001774639*^9}, CellLabel-> - "Out[454]=",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] + "Out[127]=",ExpressionUUID->"da464f37-8810-43ab-acd7-d0af44eada2b"] }, Open ]], Cell[CellGroupData[{ @@ -11604,12 +12175,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[456]:=",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], + "In[128]:=",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], -Cell[BoxData["1.0665924029125342`"], "Output", - CellChangeTimes->{3.991347597428034*^9}, +Cell[BoxData["3.8666222542076496`"], "Output", + CellChangeTimes->{3.991347597428034*^9, 3.9942530017928143`*^9}, CellLabel-> - "Out[456]=",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] + "Out[128]=",ExpressionUUID->"0fc43ed2-cb1b-4e7c-a39e-08da721f328e"] }, Open ]], Cell[CellGroupData[{ @@ -11619,12 +12190,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[459]:=",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], + "In[129]:=",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], -Cell[BoxData["13.192182341836848`"], "Output", - CellChangeTimes->{3.9913475974971066`*^9}, +Cell[BoxData["28.48290111802069`"], "Output", + CellChangeTimes->{3.9913475974971066`*^9, 3.994253001809327*^9}, CellLabel-> - "Out[459]=",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] + "Out[129]=",ExpressionUUID->"94c70551-1d24-4e97-9d64-abfaedce5f55"] }, Open ]], Cell[CellGroupData[{ @@ -11814,12 +12385,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[460]:=",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], + "In[130]:=",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], -Cell[BoxData["0.038908834568544604`"], "Output", - CellChangeTimes->{3.991347597528105*^9}, +Cell[BoxData["0.0053530324129668246`"], "Output", + CellChangeTimes->{3.991347597528105*^9, 3.994253001829288*^9}, CellLabel-> - "Out[460]=",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] + "Out[130]=",ExpressionUUID->"8fb11bb3-983c-4aee-a811-a3fde7bde249"] }, Open ]], Cell[CellGroupData[{ @@ -11833,12 +12404,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[461]:=",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], + "In[131]:=",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], -Cell[BoxData["4.492838724335521`"], "Output", - CellChangeTimes->{3.9913475976441536`*^9}, +Cell[BoxData["12.11281276563576`"], "Output", + CellChangeTimes->{3.9913475976441536`*^9, 3.9942530020260973`*^9}, CellLabel-> - "Out[461]=",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] + "Out[131]=",ExpressionUUID->"64ea0d19-911b-4cc3-ade1-4fe8832dcb00"] }, Open ]], Cell[CellGroupData[{ @@ -12030,12 +12601,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[462]:=",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], + "In[132]:=",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], -Cell[BoxData["0.012544276227890849`"], "Output", - CellChangeTimes->{3.991347597671173*^9}, +Cell[BoxData["0.03293697238074574`"], "Output", + CellChangeTimes->{3.991347597671173*^9, 3.994253002046042*^9}, CellLabel-> - "Out[462]=",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] + "Out[132]=",ExpressionUUID->"5d226ced-ab91-4813-89b6-f89c868773cd"] }, Open ]], Cell[CellGroupData[{ @@ -12049,12 +12620,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[463]:=",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], + "In[133]:=",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], -Cell[BoxData["7.912653285153153`"], "Output", - CellChangeTimes->{3.9913475977705975`*^9}, +Cell[BoxData["4.883184156491515`"], "Output", + CellChangeTimes->{3.9913475977705975`*^9, 3.994253002248989*^9}, CellLabel-> - "Out[463]=",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] + "Out[133]=",ExpressionUUID->"4d19229c-efb8-4333-99ce-58d7a8cfa733"] }, Open ]], Cell[CellGroupData[{ @@ -12147,12 +12718,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[464]:=",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], + "In[134]:=",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.9913475977856007`*^9}, +Cell[BoxData["0.09821679951903568`"], "Output", + CellChangeTimes->{3.9913475977856007`*^9, 3.994253002264969*^9}, CellLabel-> - "Out[464]=",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] + "Out[134]=",ExpressionUUID->"8355dc46-a7a1-405c-b0d6-3c1a8c2e237f"] }, Open ]], Cell[CellGroupData[{ @@ -12242,12 +12813,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[465]:=",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], + "In[135]:=",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.991347597813669*^9}, +Cell[BoxData["0.9017832004809644`"], "Output", + CellChangeTimes->{3.991347597813669*^9, 3.994253002282661*^9}, CellLabel-> - "Out[465]=",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] + "Out[135]=",ExpressionUUID->"670e298a-8fef-40e8-9ea5-f837a77f5874"] }, Open ]], Cell[CellGroupData[{ @@ -12370,12 +12941,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[466]:=",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], + "In[136]:=",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913475978426323`*^9}, +Cell[BoxData["0.08857025981127323`"], "Output", + CellChangeTimes->{3.9913475978426323`*^9, 3.994253002301005*^9}, CellLabel-> - "Out[466]=",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] + "Out[136]=",ExpressionUUID->"cabd2347-99cf-4413-92be-c64fdbe39bcc"] }, Open ]], Cell[CellGroupData[{ @@ -12437,68 +13008,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918503626529236`*^9},ExpressionUUID->"ba508068-6b78-254c-87d6-\ -cf1adc0753dd"], + CellChangeTimes->{3.9918503626529236`*^9}, + CellLabel-> + "In[137]:=",ExpressionUUID->"ba508068-6b78-254c-87d6-cf1adc0753dd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.6476402424150632`*^-194\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 467, - 505, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347597872814*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.4912676032090585`*^-216\\\", \ +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 137, + 61, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347597872814*^9, 3.994253002326907*^9}, CellLabel-> "During evaluation of \ -In[467]:=",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], +In[137]:=",ExpressionUUID->"593c5d25-8a34-435f-b6f3-a7bbf5025801"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2411289608803614`*^-198\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 467, - 506, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475978828144`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4340282830494108`*^-221\\\", \ +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 137, + 62, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347597872814*^9, 3.9942530023377123`*^9}, CellLabel-> "During evaluation of \ -In[467]:=",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], +In[137]:=",ExpressionUUID->"38597b4d-e4fe-47d7-b881-0ccb298a09ea"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.349134949982097`*^-203\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 467, - 507, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347597891815*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.890230570396352`*^-227\\\", \ +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 137, + 63, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347597872814*^9, 3.994253002347495*^9}, CellLabel-> "During evaluation of \ -In[467]:=",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], +In[137]:=",ExpressionUUID->"f740c74a-ba1a-42f7-8005-e5d3b4bb5130"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 467, 508, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347597900812*^9}, +during this calculation.\"", 2, 137, 64, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347597872814*^9, 3.994253002360218*^9}, CellLabel-> "During evaluation of \ -In[467]:=",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], +In[137]:=",ExpressionUUID->"bedc7a27-e7ba-47ec-9590-6e032ac324e5"], -Cell[BoxData["4.492838724335523`"], "Output", - CellChangeTimes->{3.9913476018505497`*^9}, +Cell[BoxData["12.112812765635743`"], "Output", + CellChangeTimes->{3.9913476018505497`*^9, 3.994253010082507*^9}, CellLabel-> - "Out[467]=",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] + "Out[137]=",ExpressionUUID->"e96e1e6e-d865-4abb-b0c7-11e4d3771839"] }, Open ]], Cell[CellGroupData[{ @@ -12560,68 +13138,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918503657638073`*^9},ExpressionUUID->"842e33e4-ae06-f746-ab8b-\ -97489285cc9c"], + CellChangeTimes->{3.9918503657638073`*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"842e33e4-ae06-f746-ab8b-97489285cc9c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.6476402424150632`*^-194\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 468, - 509, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913476018885117`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.4912676032090585`*^-216\\\", \ +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 65, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913476018885117`*^9, 3.994253010127673*^9}, CellLabel-> "During evaluation of \ -In[468]:=",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], +In[138]:=",ExpressionUUID->"6a0ee948-8190-47f1-b420-0062055d39e3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2411289608803614`*^-198\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 468, - 510, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134760189851*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4340282830494108`*^-221\\\", \ +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 66, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913476018885117`*^9, 3.994253010136956*^9}, CellLabel-> "During evaluation of \ -In[468]:=",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], +In[138]:=",ExpressionUUID->"0668773d-6a3b-4cf4-b72b-318176e22920"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.349134949982097`*^-203\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 468, - 511, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913476019065113`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.890230570396352`*^-227\\\", \ +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 67, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913476018885117`*^9, 3.994253010146574*^9}, CellLabel-> "During evaluation of \ -In[468]:=",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], +In[138]:=",ExpressionUUID->"a96f32ba-41e4-451d-b506-605f2b8d02da"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 468, 512, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913476019158936`*^9}, +during this calculation.\"", 2, 138, 68, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913476018885117`*^9, 3.994253010155405*^9}, CellLabel-> "During evaluation of \ -In[468]:=",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], +In[138]:=",ExpressionUUID->"da3bf9f0-d71b-4260-865b-fc0a922e1060"], -Cell[BoxData["7.912653285153152`"], "Output", - CellChangeTimes->{3.9913476058912296`*^9}, +Cell[BoxData["4.883184156491511`"], "Output", + CellChangeTimes->{3.9913476058912296`*^9, 3.99425301777383*^9}, CellLabel-> - "Out[468]=",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] + "Out[138]=",ExpressionUUID->"7be84648-0300-4083-8bf3-0154cb2c1dc9"] }, Open ]], Cell[CellGroupData[{ @@ -12679,93 +13264,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991850369070572*^9},ExpressionUUID->"b2e314f8-a6f0-6942-a94c-\ -5ac1cacd7190"], + CellChangeTimes->{3.991850369070572*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"b2e314f8-a6f0-6942-a94c-5ac1cacd7190"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK -niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB -QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL -uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV -HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh -GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM -JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI -Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 -YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud -1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 -20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB -bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y -waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D -6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX -YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy -hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj -u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb -bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO -F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu -bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa -Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K -G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl -zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW -Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm -WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 -Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 -5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK -Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez -bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd -bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x -1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl -qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc -oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp -0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb -/FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN -BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn -27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj -O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy -IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO -3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ -+ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC -DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE -1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A -rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 -yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN -C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy -yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP -r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz -MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI -9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl -Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 -80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt -M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 -kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo -7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg -sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W -+uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU -UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n -t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE -z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV -BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH -ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 -TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th -/o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl -lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH -dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP -sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs -t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz -Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE -mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m -ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t -+1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq -k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg -c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu -wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX -wTw= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk8VN0fB3DJlu0J2XdjaZTym7FGnW9IkS1KssWYey1JIZpKlFI9KdmK +erIURRpbKUKlUglPKRXVI2TJ2JmRyPI7/riv+3q/zr2f8z3fe899XU3GAVeC +n4+PbwAfS+fwt+v0KlvebjIcj3ymQeGgTaP5xgwbNupqOcNZcleOSbq2TS2a +qKz118R2Yf4rJE5/ifbdktXXwi5nxb0QtGlGaldTrCjYf79SqIsreo+Wpxne +1cZ+1BKePUf7hGZSJwN0sQe/NsYcqWlHbzLbQldjK/VRvH5Z/4fs8jtf6mNv +H4sxj2zuRKYPRA8YYD+ZGxRjFXUjtyaPIEPszyfljz0M60E+/W/K6dijQjaD +PFofGhX03W6KLXTh4B76dD96SpU1tsBWk8pqCK8ZQN47xsIQtpPyr9uj1sPo +RJF46zZsMldLzkBkFAl9c553xI7TcU7Y1zyGLkk8POyG3S7/8X+HiiZQRPSQ +915spmdIcNqFSZR4t/o1gT1+ne/GvTAu2tXFjg/FFtEyWDlBm0LqtrMDR7HT +mS+2rpT9hYqjdqXHY2sU7IlbP/0LCdxsvXQe22ztmdH9Nb/RixGzw/9gB5l0 +Ng9azyFkXiD8DJvHihIQ1Z1Hz0yUjJqwT9SIWVJFFtADalnZJ+xMMLsb2LyI +ng/ZXBtaqu9Wg01E0TJoeCq1Xlmbg4pepXWdVOYHIbvr/+lhj//0jUm5wA8b +nth9NcKO0Z+6Xxa2HGpIiVfO2OmlmpQxmiDcOGe692/sry3DTxbyBEHU7svF +TGyNyUpPSVkhiOFkiRdis42cUg2mhaDuxaXZ19j1j44uC60RATe2bKaYDgdN +vWjtHLAWB9ebhV9uYEs7iK889kQc1ib31lViG360AQlzCeBLdRZ6ix3S+yD3 +f+skQeXlvbt/sA/yNxtuFF8JVinFfl66HNSnVTKR8EsK+uvDI9fq4f6QjSve +0aVBl5G1cRs2/91+TYVwafj9dZpgYmvQ1V2LhqTBz8n8fRa2p3XyvbddMnDy +xYiU7GoOehcQESnfJAsH2xQsZakc9L0gKdFPRA6kJQw5JtjDQ0V5d7bIwaf3 +UTwPbNFDPa0WdXIQNnlBJxvb5vROI78H8rA4OjCxVp+DqvNNpgpzFGGS5Ur3 +XsNB+X2z0RsOqYKISY3HsnUctG3X2e+Rxaow1V3wcg32cL2MbXG/KnwrLjvt +jm2Uv1ZWY48aqJ+Vm2Fj1zN87wtuUocpklbjs56DJse6Dg+c0oCmyrz8t4Yc +JLPfpuK+oxZUOhuIj9I5qD9fNMglRAvA9GKtlhEHVf3XojxyRguMV4k83Y3t +7eBzSrdOC5JPOFU/x85fE+16lUYB5XaV89eN8fyDBeOx8tqQXFKRtNeUg3YG +ihnYd+vAYV74GooFB6HoXbTd8zqQSTP44Yetn5BjylTUhan/vf+Zjc2XR7eK +3aEL6UatncqWHFT83Wv3vWe6IB7/OF5xI96f7uyTSjf1IJGpkk5BuD4bx8+D +DCoE2cf3RlhzUJ5bxrfpWCqUWNFZ1dhJjO4ugX+ooJTb6Mlvg9/vE1FDaq1U +KDJki6dhS9Vm8blZ6wNPz4xStQW/P/RR/RrKGnh101dZahsHKWtdikvsXQux +njTTBQcOqj3Po87wGwDz49pUd0fcD+6ej6SmASR0zNqVYmfXa1OtfA3gA59U +i78TB2kFVn/43WYALH1NkyZnvF52nw7ZtA7cCtnBpa4cpKqsRmrsMYQLSSb7 +H3tw0Npbh8T/IBocLKz5OkZwEIN5asrAiQaMmb283STer5TU737eNOiHD751 +2Mtvlpa9YtGgsEldNzUQ77fswZ2p5TRI9fGINQ/G39NMvywqhQ5XXER3ZYTi +55vosM5DyAgy/UquXorkoBsR2i4Pmo1B013zYEQ8B7VEI9PTt8zh0yvJcNEC +DtL0/eTkE7oRPBzvST9q4SBi8WGJ6hGA86pmGTVzHCQ/VCUsz7CCigslGiK0 +QXSIbvlfqr4NJH7eV8oXPIgYI3MNMoNbwKp488zTvEFUbBUpnPNuK3zZ8O5o +z8AgyueFPGOn20FB5+68kHVD6PdmhX/r47ZDyqzFL4O4IdTBt3yi298RvIx1 +bT+3DqEwlQPJJynOcIclfydGbxiVBDfUXU5wgdknAo3GZ4fRUa7i9JrgHeBr +llup1DeMpuxt3V/vdYVp9vkdWc4jyNwrZXPfDjcoVBU/86Z2BH1QzAqpp++E +zJ7xR6d0R5HS7VO1hat3gemZUppc1iiq6tJ3cJJwh/B5oyHDv8aQ2sfxwOgR +d6Bqbdk5dHIM0S+nsPO6dsPb/kdimXzjKEuAuy71hQeEq+9qkN04jh5uXv81 +4dEekBICs8y4cZRpel5qrsgTfIXquy49G0fvvt06Q7/gBdVqs5XBi+PogeN1 +7YMnvKG98UNrvNUEmtjvxhfG9IGrSX3J7Scm0JQtNWjU2hd+fim28nw8gQpH +vvyONNkL5zhRQ1PzE8jjxq0AH3E/iHroGtprNonu39u+d/lZP9CNoiv+iJ5E +5sofZv6e8QOnEomtGSWTiNIV+PV9sD9wXm+ee/NjEvWK7XO+3uMP97o607Yp +cFFLklPA1l0M+NDeZtpry0XprByxqBYGiMyzbntHcVHtk8WZALsAsGy5HB+X +zUV/ecNZenUAqF74uP9sHRdprHr9TqU2AKRWZnlIPeMiw2ZHBaEnAaAQKzl2 +DdvV0utO+7MAqD1yRa34Oc5XiW46/iYASsT6E/6t5yKljrt/NbQHgFzcsoCF +Bi7S9pXP9J4OgK5r4S/V33ORud9oYYIRE+4Orqr37uKi21fHI51MmLDaxcj6 +Dfaq1slN8mZMSLt/+JBxNxeNbpn+WGjBhENn1o2I/+Di7xffsmYrJvwzX21c +1cNFktNSe6R3YPsz5fh+clHvReMVOfuZIOpZVLZzhIuSamKCq24zwW/0AZKc +4aL9tAxzViETWFFCygS2w53yFWZFTHhta1xYgy2a0X+nspgJ138ttAXOclFC +hMvgwwom/JyfS6z9w0UxVO19D54z4f2fDIvdC1wUktEUeu87EyIV50J2LOch +O8l+y4guJuRV6IRmY69O4JOg/WACz7RRdQi7P8K4uLyPCWLGnqmnBHjI3yln +pGwYr3ch8mmZIA95CEaGlc4yweVkrsacMA9tjVQ6yJYj4IbgpUfu4jz0POeM +faoCAQKBRQE52JbNk9osJQKCz1WV/MQ21Gn6Yq1GQG1krN5hCR5SbDtm/U2H +AFGhsJspkjw0tKFDTtSYgLQ7U/crVvLQJf7cx4FuBAzdPT1zbxUPia4Xz3Tc +RQDP/wR7DPu0FyuCvpuAhetyi2tkeYhV4aK36EnA06Sh+Dxsf3JZyhUGAUY0 +qkCSHA/RGxnMl+EEKNhU9Loo8FBbio4YJZkANROzzovKPFSCJIIGUgg4f0rJ +tAb79AivvjiNgI3b5TcMYNPs6mPNMvB6m2w3b1bhoSS+gEnHbALcqv51G8O2 +PZD7hcUmQOUs5bSFGg+pqp4z2VRCwFX3N+cDsHmNB9KWlxFAl6BaJmLf1EWO +SfcJeMRezP6CPd/RUZdXTcD8kzBmhDoPVTgoF75tIMCpJ4+TpsFDibP8gumN +BKTf8Ln6EJtROOi/p5mAz3djuO3YKwWqlXvfETCl1XZbRZOHQms8Ls18JkCi +8vCKXGyK/pVo7T4CpIX9qq9o8dBs2/FWTj8BFUGbJCuwWxIIw9IBAvQumou/ +x47tNho0HybgZ36UkCiFh75mtvo4cwloJtK5h7FThaW2HF1Gwtp2yWJrbR6q +nezwOrScBBv7A0xf7J8dRRFhgiT4UI6XsbAtK2xyGStIKNiXJMTG7vdj/bGX +ImGl9ooiCR1cv8MW6S0yJEwouAvpYFuYSlORLAnbdAymLbCTJdjudEU8n23w +laCl8erOcmVNEkQ02Y212OQtdoMshYQT9d8aW5auTz7S+ZcOCR8mo/f2YveT +MhICVBKsV/3YIqqLx2W2Bg0bkvD88jrhHdjVCzJx/TQSOo19ivyx+zhdl7uM +SFC71tEdjr2h7uiLj2Z4PtMGiRTs3tAStcdAwoqi3x6N2JIex4wrrUiYbQ7K +bsM2t97mUG5DwtMHsqxe7CTFH0dubSPh/EuVgTnsKoHS5Bx7ErpTI2JF9Hio +Z+xYwVUH3J+IuUIZbLNXsp8uupCg+nd+9WpsRvmPobOuJJxafHKDhn3xeil/ +/E4SmoWFVC2xf0TYGUZ7kJCoIdPiiC3hK7f1oCcJG0Q/C7sv5dn1+IR4k2Bp +9rTVZ+l+9eOJvn4kdPQv6IViV4na3/Rg4P58dS2LWMqbknvkyiTh6vTrZtZS +XnfPOweShM2rfY7HLuU1l/XbBpHwLUjq+aml+iqPz0MIzn/Tc+3cUv5N+1UW +oSQwQluFLy7lX5RfYxxGQvK5TpGUpXxW7+b1B3F9gcLZ6djizHIPagQJQoT9 +6wxsU+fYA5RDJLRPFJy+tpS/YfsZ1WgS6pPVP1/HvqCjkCXPwv1pL6vJxn64 +su++1FESAsK9jHOxu/+UN4rFkOCuqG59Yyn/Z2y3YCwJIzl/epds8mH778U4 +EtwGxvFvIA/9H8hnxyo= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -12779,105 +13365,106 @@ wTw= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK -niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB -QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL -uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV -HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh -GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM -JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI -Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 -YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud -1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 -20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB -bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y -waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D -6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX -YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy -hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj -u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb -bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO -F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu -bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa -Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K -G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl -zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW -Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm -WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 -Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 -5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK -Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez -bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd -bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x -1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl -qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc -oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp -0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb -/FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN -BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn -27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj -O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy -IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO -3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ -+ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC -DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE -1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A -rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 -yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN -C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy -yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP -r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz -MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI -9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl -Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 -80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt -M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 -kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo -7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg -sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W -+uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU -UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n -t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE -z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV -BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH -ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 -TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th -/o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl -lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH -dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP -sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs -t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz -Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE -mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m -ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t -+1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq -k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg -c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu -wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX -wTw= +1:eJwV1nk8VN0fB3DJlu0J2XdjaZTym7FGnW9IkS1KssWYey1JIZpKlFI9KdmK +erIURRpbKUKlUglPKRXVI2TJ2JmRyPI7/riv+3q/zr2f8z3fe899XU3GAVeC +n4+PbwAfS+fwt+v0KlvebjIcj3ymQeGgTaP5xgwbNupqOcNZcleOSbq2TS2a +qKz118R2Yf4rJE5/ifbdktXXwi5nxb0QtGlGaldTrCjYf79SqIsreo+Wpxne +1cZ+1BKePUf7hGZSJwN0sQe/NsYcqWlHbzLbQldjK/VRvH5Z/4fs8jtf6mNv +H4sxj2zuRKYPRA8YYD+ZGxRjFXUjtyaPIEPszyfljz0M60E+/W/K6dijQjaD +PFofGhX03W6KLXTh4B76dD96SpU1tsBWk8pqCK8ZQN47xsIQtpPyr9uj1sPo +RJF46zZsMldLzkBkFAl9c553xI7TcU7Y1zyGLkk8POyG3S7/8X+HiiZQRPSQ +915spmdIcNqFSZR4t/o1gT1+ne/GvTAu2tXFjg/FFtEyWDlBm0LqtrMDR7HT +mS+2rpT9hYqjdqXHY2sU7IlbP/0LCdxsvXQe22ztmdH9Nb/RixGzw/9gB5l0 +Ng9azyFkXiD8DJvHihIQ1Z1Hz0yUjJqwT9SIWVJFFtADalnZJ+xMMLsb2LyI +ng/ZXBtaqu9Wg01E0TJoeCq1Xlmbg4pepXWdVOYHIbvr/+lhj//0jUm5wA8b +nth9NcKO0Z+6Xxa2HGpIiVfO2OmlmpQxmiDcOGe692/sry3DTxbyBEHU7svF +TGyNyUpPSVkhiOFkiRdis42cUg2mhaDuxaXZ19j1j44uC60RATe2bKaYDgdN +vWjtHLAWB9ebhV9uYEs7iK889kQc1ib31lViG360AQlzCeBLdRZ6ix3S+yD3 +f+skQeXlvbt/sA/yNxtuFF8JVinFfl66HNSnVTKR8EsK+uvDI9fq4f6QjSve +0aVBl5G1cRs2/91+TYVwafj9dZpgYmvQ1V2LhqTBz8n8fRa2p3XyvbddMnDy +xYiU7GoOehcQESnfJAsH2xQsZakc9L0gKdFPRA6kJQw5JtjDQ0V5d7bIwaf3 +UTwPbNFDPa0WdXIQNnlBJxvb5vROI78H8rA4OjCxVp+DqvNNpgpzFGGS5Ur3 +XsNB+X2z0RsOqYKISY3HsnUctG3X2e+Rxaow1V3wcg32cL2MbXG/KnwrLjvt +jm2Uv1ZWY48aqJ+Vm2Fj1zN87wtuUocpklbjs56DJse6Dg+c0oCmyrz8t4Yc +JLPfpuK+oxZUOhuIj9I5qD9fNMglRAvA9GKtlhEHVf3XojxyRguMV4k83Y3t +7eBzSrdOC5JPOFU/x85fE+16lUYB5XaV89eN8fyDBeOx8tqQXFKRtNeUg3YG +ihnYd+vAYV74GooFB6HoXbTd8zqQSTP44Yetn5BjylTUhan/vf+Zjc2XR7eK +3aEL6UatncqWHFT83Wv3vWe6IB7/OF5xI96f7uyTSjf1IJGpkk5BuD4bx8+D +DCoE2cf3RlhzUJ5bxrfpWCqUWNFZ1dhJjO4ugX+ooJTb6Mlvg9/vE1FDaq1U +KDJki6dhS9Vm8blZ6wNPz4xStQW/P/RR/RrKGnh101dZahsHKWtdikvsXQux +njTTBQcOqj3Po87wGwDz49pUd0fcD+6ej6SmASR0zNqVYmfXa1OtfA3gA59U +i78TB2kFVn/43WYALH1NkyZnvF52nw7ZtA7cCtnBpa4cpKqsRmrsMYQLSSb7 +H3tw0Npbh8T/IBocLKz5OkZwEIN5asrAiQaMmb283STer5TU737eNOiHD751 +2Mtvlpa9YtGgsEldNzUQ77fswZ2p5TRI9fGINQ/G39NMvywqhQ5XXER3ZYTi +55vosM5DyAgy/UquXorkoBsR2i4Pmo1B013zYEQ8B7VEI9PTt8zh0yvJcNEC +DtL0/eTkE7oRPBzvST9q4SBi8WGJ6hGA86pmGTVzHCQ/VCUsz7CCigslGiK0 +QXSIbvlfqr4NJH7eV8oXPIgYI3MNMoNbwKp488zTvEFUbBUpnPNuK3zZ8O5o +z8AgyueFPGOn20FB5+68kHVD6PdmhX/r47ZDyqzFL4O4IdTBt3yi298RvIx1 +bT+3DqEwlQPJJynOcIclfydGbxiVBDfUXU5wgdknAo3GZ4fRUa7i9JrgHeBr +llup1DeMpuxt3V/vdYVp9vkdWc4jyNwrZXPfDjcoVBU/86Z2BH1QzAqpp++E +zJ7xR6d0R5HS7VO1hat3gemZUppc1iiq6tJ3cJJwh/B5oyHDv8aQ2sfxwOgR +d6Bqbdk5dHIM0S+nsPO6dsPb/kdimXzjKEuAuy71hQeEq+9qkN04jh5uXv81 +4dEekBICs8y4cZRpel5qrsgTfIXquy49G0fvvt06Q7/gBdVqs5XBi+PogeN1 +7YMnvKG98UNrvNUEmtjvxhfG9IGrSX3J7Scm0JQtNWjU2hd+fim28nw8gQpH +vvyONNkL5zhRQ1PzE8jjxq0AH3E/iHroGtprNonu39u+d/lZP9CNoiv+iJ5E +5sofZv6e8QOnEomtGSWTiNIV+PV9sD9wXm+ee/NjEvWK7XO+3uMP97o607Yp +cFFLklPA1l0M+NDeZtpry0XprByxqBYGiMyzbntHcVHtk8WZALsAsGy5HB+X +zUV/ecNZenUAqF74uP9sHRdprHr9TqU2AKRWZnlIPeMiw2ZHBaEnAaAQKzl2 +DdvV0utO+7MAqD1yRa34Oc5XiW46/iYASsT6E/6t5yKljrt/NbQHgFzcsoCF +Bi7S9pXP9J4OgK5r4S/V33ORud9oYYIRE+4Orqr37uKi21fHI51MmLDaxcj6 +Dfaq1slN8mZMSLt/+JBxNxeNbpn+WGjBhENn1o2I/+Di7xffsmYrJvwzX21c +1cNFktNSe6R3YPsz5fh+clHvReMVOfuZIOpZVLZzhIuSamKCq24zwW/0AZKc +4aL9tAxzViETWFFCygS2w53yFWZFTHhta1xYgy2a0X+nspgJ138ttAXOclFC +hMvgwwom/JyfS6z9w0UxVO19D54z4f2fDIvdC1wUktEUeu87EyIV50J2LOch +O8l+y4guJuRV6IRmY69O4JOg/WACz7RRdQi7P8K4uLyPCWLGnqmnBHjI3yln +pGwYr3ch8mmZIA95CEaGlc4yweVkrsacMA9tjVQ6yJYj4IbgpUfu4jz0POeM +faoCAQKBRQE52JbNk9osJQKCz1WV/MQ21Gn6Yq1GQG1krN5hCR5SbDtm/U2H +AFGhsJspkjw0tKFDTtSYgLQ7U/crVvLQJf7cx4FuBAzdPT1zbxUPia4Xz3Tc +RQDP/wR7DPu0FyuCvpuAhetyi2tkeYhV4aK36EnA06Sh+Dxsf3JZyhUGAUY0 +qkCSHA/RGxnMl+EEKNhU9Loo8FBbio4YJZkANROzzovKPFSCJIIGUgg4f0rJ +tAb79AivvjiNgI3b5TcMYNPs6mPNMvB6m2w3b1bhoSS+gEnHbALcqv51G8O2 +PZD7hcUmQOUs5bSFGg+pqp4z2VRCwFX3N+cDsHmNB9KWlxFAl6BaJmLf1EWO +SfcJeMRezP6CPd/RUZdXTcD8kzBmhDoPVTgoF75tIMCpJ4+TpsFDibP8gumN +BKTf8Ln6EJtROOi/p5mAz3djuO3YKwWqlXvfETCl1XZbRZOHQms8Ls18JkCi +8vCKXGyK/pVo7T4CpIX9qq9o8dBs2/FWTj8BFUGbJCuwWxIIw9IBAvQumou/ +x47tNho0HybgZ36UkCiFh75mtvo4cwloJtK5h7FThaW2HF1Gwtp2yWJrbR6q +nezwOrScBBv7A0xf7J8dRRFhgiT4UI6XsbAtK2xyGStIKNiXJMTG7vdj/bGX +ImGl9ooiCR1cv8MW6S0yJEwouAvpYFuYSlORLAnbdAymLbCTJdjudEU8n23w +laCl8erOcmVNEkQ02Y212OQtdoMshYQT9d8aW5auTz7S+ZcOCR8mo/f2YveT +MhICVBKsV/3YIqqLx2W2Bg0bkvD88jrhHdjVCzJx/TQSOo19ivyx+zhdl7uM +SFC71tEdjr2h7uiLj2Z4PtMGiRTs3tAStcdAwoqi3x6N2JIex4wrrUiYbQ7K +bsM2t97mUG5DwtMHsqxe7CTFH0dubSPh/EuVgTnsKoHS5Bx7ErpTI2JF9Hio +Z+xYwVUH3J+IuUIZbLNXsp8uupCg+nd+9WpsRvmPobOuJJxafHKDhn3xeil/ +/E4SmoWFVC2xf0TYGUZ7kJCoIdPiiC3hK7f1oCcJG0Q/C7sv5dn1+IR4k2Bp +9rTVZ+l+9eOJvn4kdPQv6IViV4na3/Rg4P58dS2LWMqbknvkyiTh6vTrZtZS +XnfPOweShM2rfY7HLuU1l/XbBpHwLUjq+aml+iqPz0MIzn/Tc+3cUv5N+1UW +oSQwQluFLy7lX5RfYxxGQvK5TpGUpXxW7+b1B3F9gcLZ6djizHIPagQJQoT9 +6wxsU+fYA5RDJLRPFJy+tpS/YfsZ1WgS6pPVP1/HvqCjkCXPwv1pL6vJxn64 +su++1FESAsK9jHOxu/+UN4rFkOCuqG59Yyn/Z2y3YCwJIzl/epds8mH778U4 +EtwGxvFvIA/9H8hnxyo= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5511670383120075, - 1.7091854080147844`}}, + "PlotRange" -> {{0, 180}, {0.785538080060638, + 1.2596760799774713`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5511670383120088}, + "AxesOrigin" -> {0, 0.7855380800606397}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -12889,21 +13476,20 @@ wTw= "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5511670383120075, - 1.7091854080147844`}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5511670383120088}, + "PlotRange" -> {{0, 180}, {0.785538080060638, 1.2596760799774713`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7855380800606397}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -12917,103 +13503,104 @@ wTw= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK -niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB -QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL -uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV -HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh -GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM -JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI -Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 -YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud -1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 -20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB -bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y -waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D -6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX -YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy -hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj -u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb -bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO -F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu -bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa -Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K -G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl -zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW -Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm -WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 -Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 -5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK -Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez -bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd -bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x -1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl -qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc -oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp -0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb -/FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN -BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn -27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj -O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy -IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO -3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ -+ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC -DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE -1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A -rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 -yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN -C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy -yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP -r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz -MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI -9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl -Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 -80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt -M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 -kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo -7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg -sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W -+uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU -UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n -t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE -z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV -BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH -ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 -TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th -/o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl -lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH -dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP -sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs -t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz -Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE -mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m -ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t -+1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq -k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg -c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu -wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX -wTw= +1:eJwV1nk8VN0fB3DJlu0J2XdjaZTym7FGnW9IkS1KssWYey1JIZpKlFI9KdmK +erIURRpbKUKlUglPKRXVI2TJ2JmRyPI7/riv+3q/zr2f8z3fe899XU3GAVeC +n4+PbwAfS+fwt+v0KlvebjIcj3ymQeGgTaP5xgwbNupqOcNZcleOSbq2TS2a +qKz118R2Yf4rJE5/ifbdktXXwi5nxb0QtGlGaldTrCjYf79SqIsreo+Wpxne +1cZ+1BKePUf7hGZSJwN0sQe/NsYcqWlHbzLbQldjK/VRvH5Z/4fs8jtf6mNv +H4sxj2zuRKYPRA8YYD+ZGxRjFXUjtyaPIEPszyfljz0M60E+/W/K6dijQjaD +PFofGhX03W6KLXTh4B76dD96SpU1tsBWk8pqCK8ZQN47xsIQtpPyr9uj1sPo +RJF46zZsMldLzkBkFAl9c553xI7TcU7Y1zyGLkk8POyG3S7/8X+HiiZQRPSQ +915spmdIcNqFSZR4t/o1gT1+ne/GvTAu2tXFjg/FFtEyWDlBm0LqtrMDR7HT +mS+2rpT9hYqjdqXHY2sU7IlbP/0LCdxsvXQe22ztmdH9Nb/RixGzw/9gB5l0 +Ng9azyFkXiD8DJvHihIQ1Z1Hz0yUjJqwT9SIWVJFFtADalnZJ+xMMLsb2LyI +ng/ZXBtaqu9Wg01E0TJoeCq1Xlmbg4pepXWdVOYHIbvr/+lhj//0jUm5wA8b +nth9NcKO0Z+6Xxa2HGpIiVfO2OmlmpQxmiDcOGe692/sry3DTxbyBEHU7svF +TGyNyUpPSVkhiOFkiRdis42cUg2mhaDuxaXZ19j1j44uC60RATe2bKaYDgdN +vWjtHLAWB9ebhV9uYEs7iK889kQc1ib31lViG360AQlzCeBLdRZ6ix3S+yD3 +f+skQeXlvbt/sA/yNxtuFF8JVinFfl66HNSnVTKR8EsK+uvDI9fq4f6QjSve +0aVBl5G1cRs2/91+TYVwafj9dZpgYmvQ1V2LhqTBz8n8fRa2p3XyvbddMnDy +xYiU7GoOehcQESnfJAsH2xQsZakc9L0gKdFPRA6kJQw5JtjDQ0V5d7bIwaf3 +UTwPbNFDPa0WdXIQNnlBJxvb5vROI78H8rA4OjCxVp+DqvNNpgpzFGGS5Ur3 +XsNB+X2z0RsOqYKISY3HsnUctG3X2e+Rxaow1V3wcg32cL2MbXG/KnwrLjvt +jm2Uv1ZWY48aqJ+Vm2Fj1zN87wtuUocpklbjs56DJse6Dg+c0oCmyrz8t4Yc +JLPfpuK+oxZUOhuIj9I5qD9fNMglRAvA9GKtlhEHVf3XojxyRguMV4k83Y3t +7eBzSrdOC5JPOFU/x85fE+16lUYB5XaV89eN8fyDBeOx8tqQXFKRtNeUg3YG +ihnYd+vAYV74GooFB6HoXbTd8zqQSTP44Yetn5BjylTUhan/vf+Zjc2XR7eK +3aEL6UatncqWHFT83Wv3vWe6IB7/OF5xI96f7uyTSjf1IJGpkk5BuD4bx8+D +DCoE2cf3RlhzUJ5bxrfpWCqUWNFZ1dhJjO4ugX+ooJTb6Mlvg9/vE1FDaq1U +KDJki6dhS9Vm8blZ6wNPz4xStQW/P/RR/RrKGnh101dZahsHKWtdikvsXQux +njTTBQcOqj3Po87wGwDz49pUd0fcD+6ej6SmASR0zNqVYmfXa1OtfA3gA59U +i78TB2kFVn/43WYALH1NkyZnvF52nw7ZtA7cCtnBpa4cpKqsRmrsMYQLSSb7 +H3tw0Npbh8T/IBocLKz5OkZwEIN5asrAiQaMmb283STer5TU737eNOiHD751 +2Mtvlpa9YtGgsEldNzUQ77fswZ2p5TRI9fGINQ/G39NMvywqhQ5XXER3ZYTi +55vosM5DyAgy/UquXorkoBsR2i4Pmo1B013zYEQ8B7VEI9PTt8zh0yvJcNEC +DtL0/eTkE7oRPBzvST9q4SBi8WGJ6hGA86pmGTVzHCQ/VCUsz7CCigslGiK0 +QXSIbvlfqr4NJH7eV8oXPIgYI3MNMoNbwKp488zTvEFUbBUpnPNuK3zZ8O5o +z8AgyueFPGOn20FB5+68kHVD6PdmhX/r47ZDyqzFL4O4IdTBt3yi298RvIx1 +bT+3DqEwlQPJJynOcIclfydGbxiVBDfUXU5wgdknAo3GZ4fRUa7i9JrgHeBr +llup1DeMpuxt3V/vdYVp9vkdWc4jyNwrZXPfDjcoVBU/86Z2BH1QzAqpp++E +zJ7xR6d0R5HS7VO1hat3gemZUppc1iiq6tJ3cJJwh/B5oyHDv8aQ2sfxwOgR +d6Bqbdk5dHIM0S+nsPO6dsPb/kdimXzjKEuAuy71hQeEq+9qkN04jh5uXv81 +4dEekBICs8y4cZRpel5qrsgTfIXquy49G0fvvt06Q7/gBdVqs5XBi+PogeN1 +7YMnvKG98UNrvNUEmtjvxhfG9IGrSX3J7Scm0JQtNWjU2hd+fim28nw8gQpH +vvyONNkL5zhRQ1PzE8jjxq0AH3E/iHroGtprNonu39u+d/lZP9CNoiv+iJ5E +5sofZv6e8QOnEomtGSWTiNIV+PV9sD9wXm+ee/NjEvWK7XO+3uMP97o607Yp +cFFLklPA1l0M+NDeZtpry0XprByxqBYGiMyzbntHcVHtk8WZALsAsGy5HB+X +zUV/ecNZenUAqF74uP9sHRdprHr9TqU2AKRWZnlIPeMiw2ZHBaEnAaAQKzl2 +DdvV0utO+7MAqD1yRa34Oc5XiW46/iYASsT6E/6t5yKljrt/NbQHgFzcsoCF +Bi7S9pXP9J4OgK5r4S/V33ORud9oYYIRE+4Orqr37uKi21fHI51MmLDaxcj6 +Dfaq1slN8mZMSLt/+JBxNxeNbpn+WGjBhENn1o2I/+Di7xffsmYrJvwzX21c +1cNFktNSe6R3YPsz5fh+clHvReMVOfuZIOpZVLZzhIuSamKCq24zwW/0AZKc +4aL9tAxzViETWFFCygS2w53yFWZFTHhta1xYgy2a0X+nspgJ138ttAXOclFC +hMvgwwom/JyfS6z9w0UxVO19D54z4f2fDIvdC1wUktEUeu87EyIV50J2LOch +O8l+y4guJuRV6IRmY69O4JOg/WACz7RRdQi7P8K4uLyPCWLGnqmnBHjI3yln +pGwYr3ch8mmZIA95CEaGlc4yweVkrsacMA9tjVQ6yJYj4IbgpUfu4jz0POeM +faoCAQKBRQE52JbNk9osJQKCz1WV/MQ21Gn6Yq1GQG1krN5hCR5SbDtm/U2H +AFGhsJspkjw0tKFDTtSYgLQ7U/crVvLQJf7cx4FuBAzdPT1zbxUPia4Xz3Tc +RQDP/wR7DPu0FyuCvpuAhetyi2tkeYhV4aK36EnA06Sh+Dxsf3JZyhUGAUY0 +qkCSHA/RGxnMl+EEKNhU9Loo8FBbio4YJZkANROzzovKPFSCJIIGUgg4f0rJ +tAb79AivvjiNgI3b5TcMYNPs6mPNMvB6m2w3b1bhoSS+gEnHbALcqv51G8O2 +PZD7hcUmQOUs5bSFGg+pqp4z2VRCwFX3N+cDsHmNB9KWlxFAl6BaJmLf1EWO +SfcJeMRezP6CPd/RUZdXTcD8kzBmhDoPVTgoF75tIMCpJ4+TpsFDibP8gumN +BKTf8Ln6EJtROOi/p5mAz3djuO3YKwWqlXvfETCl1XZbRZOHQms8Ls18JkCi +8vCKXGyK/pVo7T4CpIX9qq9o8dBs2/FWTj8BFUGbJCuwWxIIw9IBAvQumou/ +x47tNho0HybgZ36UkCiFh75mtvo4cwloJtK5h7FThaW2HF1Gwtp2yWJrbR6q +nezwOrScBBv7A0xf7J8dRRFhgiT4UI6XsbAtK2xyGStIKNiXJMTG7vdj/bGX +ImGl9ooiCR1cv8MW6S0yJEwouAvpYFuYSlORLAnbdAymLbCTJdjudEU8n23w +laCl8erOcmVNEkQ02Y212OQtdoMshYQT9d8aW5auTz7S+ZcOCR8mo/f2YveT +MhICVBKsV/3YIqqLx2W2Bg0bkvD88jrhHdjVCzJx/TQSOo19ivyx+zhdl7uM +SFC71tEdjr2h7uiLj2Z4PtMGiRTs3tAStcdAwoqi3x6N2JIex4wrrUiYbQ7K +bsM2t97mUG5DwtMHsqxe7CTFH0dubSPh/EuVgTnsKoHS5Bx7ErpTI2JF9Hio +Z+xYwVUH3J+IuUIZbLNXsp8uupCg+nd+9WpsRvmPobOuJJxafHKDhn3xeil/ +/E4SmoWFVC2xf0TYGUZ7kJCoIdPiiC3hK7f1oCcJG0Q/C7sv5dn1+IR4k2Bp +9rTVZ+l+9eOJvn4kdPQv6IViV4na3/Rg4P58dS2LWMqbknvkyiTh6vTrZtZS +XnfPOweShM2rfY7HLuU1l/XbBpHwLUjq+aml+iqPz0MIzn/Tc+3cUv5N+1UW +oSQwQluFLy7lX5RfYxxGQvK5TpGUpXxW7+b1B3F9gcLZ6djizHIPagQJQoT9 +6wxsU+fYA5RDJLRPFJy+tpS/YfsZ1WgS6pPVP1/HvqCjkCXPwv1pL6vJxn64 +su++1FESAsK9jHOxu/+UN4rFkOCuqG59Yyn/Z2y3YCwJIzl/epds8mH778U4 +EtwGxvFvIA/9H8hnxyo= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + "PlotRange" -> {{0, 180}, {0.785538080060638, 1.2596760799774713`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5511670383120088}, + "AxesOrigin" -> {0, 0.7855380800606397}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13023,7 +13610,8 @@ wTw= AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5511670383120088}, + AxesOrigin->{0, 0.7855380800606397}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -13051,7 +13639,8 @@ wTw= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.785538080060638, 1.2596760799774713`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -13059,9 +13648,9 @@ wTw= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991347865018469*^9}, + CellChangeTimes->{3.991347865018469*^9, 3.9942535949451933`*^9}, CellLabel-> - "Out[469]=",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] + "Out[139]=",ExpressionUUID->"a304e770-dfe8-4a65-a278-eb97d46f8d03"] }, Open ]], Cell[CellGroupData[{ @@ -13125,199 +13714,159 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ - 3.9918503718899097`*^9, {3.991850469268881*^9, - 3.9918504694651966`*^9}},ExpressionUUID->"497f9779-a3e4-c84e-a207-\ -0aac70483e3c"], + 3.9918503718899097`*^9, {3.991850469268881*^9, 3.9918504694651966`*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"497f9779-a3e4-c84e-a207-0aac70483e3c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.458740908982352`*^-268\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 470, - 513, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913478652482224`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.141612556271227`*^-272\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 69, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913478652482224`*^9, 3.994253595144051*^9}, CellLabel-> "During evaluation of \ -In[470]:=",ExpressionUUID->"56dc07a7-05cc-424a-8fff-08f056385a44"], +In[140]:=",ExpressionUUID->"e78f880a-a8aa-412e-adc5-280ad667df40"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.7391049816418008`*^-279\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.303953962898764`*^-284\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 70, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913478652482224`*^9, 3.9942535951545877`*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"59734ed7-7474-405b-b656-6e448fe8d7d7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.097145959939893`*^-296\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 470, 514, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913478652572174`*^9}, + 140, 71, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913478652482224`*^9, 3.9942535951644573`*^9}, CellLabel-> "During evaluation of \ -In[470]:=",ExpressionUUID->"71ae3883-d346-164c-9764-dc57f6863817"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.230095503809359`*^-290\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 470, 515, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913478652662163`*^9}, - CellLabel-> - "During evaluation of \ -In[470]:=",ExpressionUUID->"16c86d51-9f27-3c48-b312-93c489e538a4"], +In[140]:=",ExpressionUUID->"71426442-573c-4c9f-8adb-f51a3963c908"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 470, 516, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347865275215*^9}, +during this calculation.\"", 2, 140, 72, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913478652482224`*^9, 3.99425359517455*^9}, CellLabel-> "During evaluation of \ -In[470]:=",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], +In[140]:=",ExpressionUUID->"1d3f0f1c-4d76-4ed5-863c-6f03a9aad1ad"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ -Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH -/49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a -j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ -HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 -PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L -sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 -y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To -OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA -XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV -WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl -Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw -kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H -JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 -maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt -NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe -vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ -ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv -ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B -1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS -pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk -VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU -Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj -SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs -+TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F -jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL -c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt -t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA -t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 -PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp -cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr -ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe -DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd -dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 -TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU -RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP -Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh -nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 -PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv -Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac -X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU -CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e -N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T -3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T -sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z -bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O -s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 -hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih -Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v -JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O -fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci -vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ -2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL -lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z -Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu -1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl -qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 -B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 -YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 -6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ -T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw -RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w -n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P -r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik -ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 -pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l -HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh -S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 -EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK -rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 -GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu -OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo -lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l -HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 -lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 -dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR -ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX -7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu -fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg -eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn -YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE -9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS -WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ -Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 -85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV -icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ -xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum -j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l -rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ -dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu -hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w -cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH -ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD -69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 -w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme -MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn -PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 -wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G -XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu -6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH -x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD -5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m -zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ -tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u -wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe -Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF -oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl -9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY -caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU -Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo -f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 -3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN -hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf -Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis -j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB -LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 -eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo -qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O -03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 -NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 -cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 -pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu -KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA -YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn -yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me -g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ -V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw -EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg -5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv -fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo -9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8Vu/7AHDS0CAZGVnPsLJKRep5uq6kgaJF8hFlk2jIioySLaNFpITM +5zz8UOgTGSkq2UKE1CdkhIzW7/7+dV7v1znnPuc6931d131oNu6H7Rfx8PDw +8vLw/O/4o/dVDTMyfYflqK0vrxJrR+s9CZ+dncEwkaw9uaJFElCs0UaiMx72 +orrZu2YV8DyY08HXmQZK+so/c5p1Yc2YePx8RyG4uw2IezcbQN9TY/fpjioY +KnBp+tB0HPYwhz9MdjSDIUpcim50hvkOnZsTHQOw0OwdaPHCB6p3PUpvSpuC +E4e0jQ8VRIB0X+lnG7XfcCSsOOxXWgKIulrnLNvFh4E5/M8GbyVC/MY95cam +/Lg1SVN32dNUeH9nQ+WkkACWrM7bezcmDSLTAxoXSa5BI7MWpgFkgPiNwfCE +FBEEDctjkPYIQo8a7Gj+IYbxVxsnPiVnwwXdB9avgiXwZO1mNRGfXDC8Lzht +FCWBX03ZLWcDcoG+zC/s7U0JfOiyTLk+JBfetZoVtGSR61vmOt3jc0Hj7Cq+ +3rcSWLiHZRSamwv/ZXplfpeSxCVvTVZ97skFS1Hjb+v+TxKPvioTOcnKA/3x +BV+3QSmsqnzsozWWBz77bqx/PiqFX5zMea2m8oDzQL1L5IcUbn00sT9kLg8k +jp7ULeVfh6P8Bpp1i/Jh9EntLJ/GOpzXSVonIZ4PCcGxHone69BLRdJtbEc+ +DIgputUISOMrN58VrpH5IO5eISMuLo3T6eV1q2PzYf9L8zfO8tIYLD6qT93I +hxLfSLXVm6RR+r/3l/tT8iGib2L4uLk06qSeHRfm5oNWdrnjeJo0KtevKM9u +yYcg1qFTUltlcChZaDRTnAP7rO5919GTwQja38Z10hwQDBy5YrpfBt/IzhdG +ynMguTokM/akDMb9tPG0VOHAE8OykaXhMrjbIG3m+TYOTJgzPKfey2BiWs9Y +siUHrC7ORLy+JIsLK8S7E5I5oHBbT3o4RBYl+g0HnO5zSPzX85fFyuKn20Xf +tqZzwPeXyju9dFlsG1ESrs/lwM0rVmKlr2XR6HLDHW4ZB17H1aVmyMjh0rJt +3TEdHNjGSSy6XCGH7X+CXOIFKNDvePt77KUcpumZc+OEKDDmWbzXulkORz94 +ZUWJUGB72O09DMmhpckX7kVJCvZcogUELpHHLo0VaqIKFJyV+/Fwp6o8FjUl +Sl3ZTkGNY+q3ak95/Hnb7qqqPQUGv3SF/S7J43Y3ev0DRwrexrZqbw6UxzMn +Et+KuFDwvnR5YHq4PG4SDRAbcaNgbKWHcEiyPGbqzDxy8KZAgrtPZ0+VPC64 +f9kXH0GB69xk4EsBGvp/Npt5lkvBtnMOaz8L09BzeYlNRz4F/MNduXwSNDw3 +v2lwmKIgo7u6fQedhl3yLvJ8RRT0PrupVqxNQzc70ftz5RSYhOh2PrCm4X7r +eYu5egpk/+SfqbCj4WRu9eGq1xSMetL5PjjT8M5Nyjn0LQVhTis1JDxoKHxr +7dyiZgoqjT5ciQmjYYJ7ZH5FJwVawkGalwpouBCmrXVwiAKeyJmaOyU0PB/i +5//6M4mfz8WipJw8v0p0Ztd/FJyeORwyWUvDWzFcV+YIBemdzG7HLhou1lxy +K3eCgvOHEs+G9NFQ66u+Je93CrBeYOnDTzQsjPtgeniKgg/lPzb0jtHQ+3Lh +56EZCtamvrx2lI+OZnjsTssCBZ/E2dLn+el4irdamO8XBYWxBQXXBejoadde +p/6bxB+c1FMvTsfbEdwhj78kPntXrZ1qdJwrMFoyxMuFeVWhXnVTOm6Ln3V8 +uYQLP1KkgjZZ0PH3XhPm1qVcmF6twNS1pqPciYi7GcRjU7ou+s50HJ+8/tRn +GRcGym1/WPjTkS9ct33pci70qbslngymY0zQci874p5Ub5ZDKB3n9W60VxC3 +X4kOPhdHR0FmY4v7Ci7UGz0WDMug49aMrNailVyo+/d5QXQOHTdUSPrwrOJC +jebrowkUHaN2sD4aED8T6U+6V0rH6d7EuTbi8pARdvozOvK6dOZICHDhyezM +x+xqOnarN9KOExd2r1AqfkPHR66T1i3E1AGx+rJmOqI0U1lAkAt5FXJnKjvo +6HBG5rE+cebDzf/X0E/H8+FeqvnED8XArOkzHY8ZDq7pJb4fajDfPkJHyTuq +z1et5kLSaSsYmKGj1JCrny3x7Q9OA18W6KgW7xEeSXzD5ELIt790ZCt5niog +jnvurzy1mIEm9IXFbcQxm8Ia5pYzcMgz3OMHcWRGvNsfQQZWRudzxYS4ECae +smaxKAP99CdKtYhDwh8VLZdkoOW37tgDxME/C46tlmXguPHPLQ7EAWeeLogy +GFj78H22H7Ff34sUKWUGKiUt+hZL7HOoCeXVGVhzZBHPQ2LP6u5BBS0Gutjb +DxYSX9jy+ZqqDgNL2p/criQ++2hCZSOLjEeLkHlN7Cb587X2Tgb+p+V4sY34 +dOSSs6w9DDzh1JvaQ+z0e7WInhEDZ+Iup/QTO7hLlew9yMDmiXa3T8S2/czj +B0wZKKLjJTpEfPKI5q/DFgy8FjoeM0h8olY31dyagTYX3/X2EVvo6OtZ2TFw +lC93cRfxsWzjIVtnBm7IFOJtJj667niYsxsDy3cktNYRH4q2VXW/wECWXG1A +ObHx3zNvPbwZqMevy5dPbHTO+5yvP3l/5WDrZOJ9g8GigcEMDJPdfDOceLdp +9OOQUAaenR5I9yDWq7ttERnFwAgG4/oJYtBN+x0bx0Dx+PCj+sSs3Lz7t24x +0Cohd0aZuFs+N3X3XQammLkFCRD73sq+N53KwMFPBzdOkPl9HJSZfDibgTKa +Vn8pYrPZ9Lu8HAauk7ksG0087fowiVvIwMe6WbZOxFrm9+8IPmWgaS+/jSRx +05t7t/+tZOBdOR3pcbIez+5KueVay8B7vNZ/qog5Gkk36t8ycHNUDMueWGXJ +jdhr/eR72tI5CWT9v/SNv77lMwNPyzcVWxA7TMTGfBom95s6fpUjTu+OjtKb +ZqDB6J72dJJf8oWhYX+WMjF+/ZvWOyQ/K5SuheavZGLgIGVwiNgq5eo1SyEm +PvC7NLaM+G5Y0NUySSY+L2159b/8Xmt9KdBTjYn8X2vbVEj+F7f6BChsZOI2 +UdXOFn4yf4bel1u3MBEzowX9iOO3XPTTAiYatVtI1pH6IrDK3XvsEBPNw24U +7yX1Jy/ojFeKGRO5f085DJJ6ZTh72nP/P0w0EDpq4k8cNuDkkWPHRE/+iobc +xVxYXGpz1sGLicxL7v5Ti0g+a5xyF/Njotag7J9AYr10a7eaQCbuMFErX0Uc +cN3SlR7BRNbWK6OypD4u2Js59SYzsaqG7Wn5h4JJYcOTZlXkvEAF73dSjztd +6e9c6pjYGVrR8HSa9IsXCxDwmomKLplXrpD6HeubK5fVTqxRW7V4koINA6v6 +5oeZmJpXkdFO+oFbQeOJFBEFfHfxJav0IwVmK7PeFEgoYHiO8vVdfRTssA9k +v5BRwJm1up9ffaBAQHKjzLiSAnIubcmq76IgLzC+B1kKyK0zTk9upWDYxPSf +T3YKKFHwquZKHQXN2eoNc84KKDNjvqaxloIyvqXbBdwV8E3WGt+1NRSEPy6R +0vZRwOrb0xmJlRQoy0l0hUYrIL3CPO5cKQWOY13mqiUKqBLgssw5h/SbqJNm +55cponoKigeFk/cfVqNvWKWIWSFHFL1DKZjdO//tm5Aifove9+t0CAUr+OJD +nKUU8THPOK9hEInfp7ropLoiirX13u4j/d/fXlHE5IgiFk2pC5wn+4e1O0Yb +VVMVcbw7WoWtR8H9u0/ufn2oiDkqmgmNQIHK/FXHR1mKKKCi8M2KTQGrSOYv +vVARv/aYeXlsJfuZ9SYaUrWKWLK/a/klDQq4awuj+EcUcdvc24OzZH9jMO5l +MKSthNtPX6ouHuOA9EbZa/wsJWQN8VfmjXBg7HxNlepOJRzIGje7/x8HbvwQ +Yp03UsKVncUW/gMc6P2drfHXWgn3fSgaFmznwPlVPSKS4Uoou3FvYdxTDiSp +YO/+biVUlCqg0UPJfs6W/0JRgDImz/2b3yRMxr+n/2/FVWWUFR39LbiaA+Pv +A5c1hCuj2ZuNFw1WcuC7yfzd/gRltC340FfMx4HZ7cM1glnK+LituM11Oh8W +ib5e6/xOGWfTeGqOtuWDZM31MhmaCqYUs0olbuaT/xHxRaFVKiiSaDHTtCof +hN8oxnDH16Off+xL05lckA6jDmprq6HZrZ2BDZk5cEdVV0jEUR2bLZvZs2bZ +UC+1c8tUnAY+OjhQvOf3I9gmXRWr2a6JVall4c98MkGQL83jVPAG9J25UBe1 +PANkg+RYxxU3ovbBiJ2l3g9huYJlyeG6jfg+cdM64+8PQIMtSXmd0MKrDR9D +qqLuw/le4WpDnk0Y8t+n2RylezA+FWVqcGcTnrjJa9YTdBf2ar5IMlDfjLti +kqqnlyTCs6ntP2ffbkYjge8zGV63wE1Nq6vJfgvaiL+U3qN7A9hjdq3Hl2vj +wZEGv/GpONjNlDggkKaNhwtcPGvmr4NyYIR3lY4Onug5uPeySxSst9etUOjS +wSf9m9v/6Q8D+2dOV4vObUW9cdlfov0hUHG/1W5STBcN39tJ/5wIhumsv7Oa +j3Ux0sa0YYdlINgq5C5POrANH6rf06hy8YPJ9QnahRPb0KZ5pqJitzc8Sf/Z +PxO2HRvMejrTuz3AQp+B22VZGHsze+v2L+dg3ZnQUo1KFvIblD3r0HIDsRWu +BQeOsfFrrZ3UhUxnSN/l7ztxnI271o58CU9wBi3/mF0Jlmx84GgXlRfoDMYT +3LbOU2xssWrbJfaPM1xrn5m3dWXj9AWPdxeEnGEuLUDPN4iN5wb9gk/6O0HX +9oSWzFw2Or1h3WyydgSni+nJBhw2PnvVE2xu7Ag/OMX2o1w2jug23hpmOYIw +vXN2YwkbTce+rNsg5QhG/DLS/1aS8RbaFmGbAzxtzbRraWMj+/mmULcDDmAo ++ETds5ONqiV5JhksB+jc++qHRDcbTZ78+vJZ1QGmy0bCrD6y0e8PdT5ihQOo +P9iQ/3WYjXwJ1y0Ov7SHp107PaO+sfFF9+DKvsf2YCh6BDQn2AihB2w8H9mD +Q+jFJo8ZNv5jLPm15po9TFdeSxKfY2PBYJegn6c9BC/cti1bYGPHu7M1bAd7 +ENqcrXbiNxvl1WIWrzCzh3tnymb+/mXjAbsvrz7utof/BxJdT5I= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -13331,158 +13880,114 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ -Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH -/49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a -j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ -HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 -PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L -sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 -y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To -OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA -XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV -WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl -Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw -kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H -JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 -maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt -NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe -vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ -ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv -ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B -1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS -pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk -VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU -Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj -SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs -+TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F -jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL -c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt -t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA -t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 -PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp -cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr -ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe -DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd -dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 -TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU -RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP -Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh -nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 -PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv -Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac -X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU -CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e -N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T -3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T -sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z -bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O -s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 -hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih -Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v -JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O -fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci -vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ -2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL -lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z -Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu -1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl -qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 -B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 -YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 -6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ -T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw -RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w -n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P -r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik -ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 -pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l -HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh -S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 -EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK -rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 -GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu -OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo -lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l -HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 -lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 -dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR -ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX -7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu -fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg -eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn -YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE -9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS -WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ -Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 -85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV -icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ -xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum -j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l -rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ -dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu -hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w -cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH -ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD -69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 -w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme -MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn -PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 -wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G -XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu -6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH -x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD -5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m -zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ -tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u -wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe -Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF -oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl -9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY -caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU -Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo -f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 -3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN -hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf -Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis -j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB -LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 -eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo -qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O -03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 -NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 -cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 -pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu -KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA -YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn -yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me -g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ -V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw -EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg -5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv -fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo -9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= +1:eJwV13c8Vu/7AHDS0CAZGVnPsLJKRep5uq6kgaJF8hFlk2jIioySLaNFpITM +5zz8UOgTGSkq2UKE1CdkhIzW7/7+dV7v1znnPuc6931d131oNu6H7Rfx8PDw +8vLw/O/4o/dVDTMyfYflqK0vrxJrR+s9CZ+dncEwkaw9uaJFElCs0UaiMx72 +orrZu2YV8DyY08HXmQZK+so/c5p1Yc2YePx8RyG4uw2IezcbQN9TY/fpjioY +KnBp+tB0HPYwhz9MdjSDIUpcim50hvkOnZsTHQOw0OwdaPHCB6p3PUpvSpuC +E4e0jQ8VRIB0X+lnG7XfcCSsOOxXWgKIulrnLNvFh4E5/M8GbyVC/MY95cam +/Lg1SVN32dNUeH9nQ+WkkACWrM7bezcmDSLTAxoXSa5BI7MWpgFkgPiNwfCE +FBEEDctjkPYIQo8a7Gj+IYbxVxsnPiVnwwXdB9avgiXwZO1mNRGfXDC8Lzht +FCWBX03ZLWcDcoG+zC/s7U0JfOiyTLk+JBfetZoVtGSR61vmOt3jc0Hj7Cq+ +3rcSWLiHZRSamwv/ZXplfpeSxCVvTVZ97skFS1Hjb+v+TxKPvioTOcnKA/3x +BV+3QSmsqnzsozWWBz77bqx/PiqFX5zMea2m8oDzQL1L5IcUbn00sT9kLg8k +jp7ULeVfh6P8Bpp1i/Jh9EntLJ/GOpzXSVonIZ4PCcGxHone69BLRdJtbEc+ +DIgputUISOMrN58VrpH5IO5eISMuLo3T6eV1q2PzYf9L8zfO8tIYLD6qT93I +hxLfSLXVm6RR+r/3l/tT8iGib2L4uLk06qSeHRfm5oNWdrnjeJo0KtevKM9u +yYcg1qFTUltlcChZaDRTnAP7rO5919GTwQja38Z10hwQDBy5YrpfBt/IzhdG +ynMguTokM/akDMb9tPG0VOHAE8OykaXhMrjbIG3m+TYOTJgzPKfey2BiWs9Y +siUHrC7ORLy+JIsLK8S7E5I5oHBbT3o4RBYl+g0HnO5zSPzX85fFyuKn20Xf +tqZzwPeXyju9dFlsG1ESrs/lwM0rVmKlr2XR6HLDHW4ZB17H1aVmyMjh0rJt +3TEdHNjGSSy6XCGH7X+CXOIFKNDvePt77KUcpumZc+OEKDDmWbzXulkORz94 +ZUWJUGB72O09DMmhpckX7kVJCvZcogUELpHHLo0VaqIKFJyV+/Fwp6o8FjUl +Sl3ZTkGNY+q3ak95/Hnb7qqqPQUGv3SF/S7J43Y3ev0DRwrexrZqbw6UxzMn +Et+KuFDwvnR5YHq4PG4SDRAbcaNgbKWHcEiyPGbqzDxy8KZAgrtPZ0+VPC64 +f9kXH0GB69xk4EsBGvp/Npt5lkvBtnMOaz8L09BzeYlNRz4F/MNduXwSNDw3 +v2lwmKIgo7u6fQedhl3yLvJ8RRT0PrupVqxNQzc70ftz5RSYhOh2PrCm4X7r +eYu5egpk/+SfqbCj4WRu9eGq1xSMetL5PjjT8M5Nyjn0LQVhTis1JDxoKHxr +7dyiZgoqjT5ciQmjYYJ7ZH5FJwVawkGalwpouBCmrXVwiAKeyJmaOyU0PB/i +5//6M4mfz8WipJw8v0p0Ztd/FJyeORwyWUvDWzFcV+YIBemdzG7HLhou1lxy +K3eCgvOHEs+G9NFQ66u+Je93CrBeYOnDTzQsjPtgeniKgg/lPzb0jtHQ+3Lh +56EZCtamvrx2lI+OZnjsTssCBZ/E2dLn+el4irdamO8XBYWxBQXXBejoadde +p/6bxB+c1FMvTsfbEdwhj78kPntXrZ1qdJwrMFoyxMuFeVWhXnVTOm6Ln3V8 +uYQLP1KkgjZZ0PH3XhPm1qVcmF6twNS1pqPciYi7GcRjU7ou+s50HJ+8/tRn +GRcGym1/WPjTkS9ct33pci70qbslngymY0zQci874p5Ub5ZDKB3n9W60VxC3 +X4kOPhdHR0FmY4v7Ci7UGz0WDMug49aMrNailVyo+/d5QXQOHTdUSPrwrOJC +jebrowkUHaN2sD4aED8T6U+6V0rH6d7EuTbi8pARdvozOvK6dOZICHDhyezM +x+xqOnarN9KOExd2r1AqfkPHR66T1i3E1AGx+rJmOqI0U1lAkAt5FXJnKjvo +6HBG5rE+cebDzf/X0E/H8+FeqvnED8XArOkzHY8ZDq7pJb4fajDfPkJHyTuq +z1et5kLSaSsYmKGj1JCrny3x7Q9OA18W6KgW7xEeSXzD5ELIt790ZCt5niog +jnvurzy1mIEm9IXFbcQxm8Ia5pYzcMgz3OMHcWRGvNsfQQZWRudzxYS4ECae +smaxKAP99CdKtYhDwh8VLZdkoOW37tgDxME/C46tlmXguPHPLQ7EAWeeLogy +GFj78H22H7Ff34sUKWUGKiUt+hZL7HOoCeXVGVhzZBHPQ2LP6u5BBS0Gutjb +DxYSX9jy+ZqqDgNL2p/criQ++2hCZSOLjEeLkHlN7Cb587X2Tgb+p+V4sY34 +dOSSs6w9DDzh1JvaQ+z0e7WInhEDZ+Iup/QTO7hLlew9yMDmiXa3T8S2/czj +B0wZKKLjJTpEfPKI5q/DFgy8FjoeM0h8olY31dyagTYX3/X2EVvo6OtZ2TFw +lC93cRfxsWzjIVtnBm7IFOJtJj667niYsxsDy3cktNYRH4q2VXW/wECWXG1A +ObHx3zNvPbwZqMevy5dPbHTO+5yvP3l/5WDrZOJ9g8GigcEMDJPdfDOceLdp +9OOQUAaenR5I9yDWq7ttERnFwAgG4/oJYtBN+x0bx0Dx+PCj+sSs3Lz7t24x +0Cohd0aZuFs+N3X3XQammLkFCRD73sq+N53KwMFPBzdOkPl9HJSZfDibgTKa +Vn8pYrPZ9Lu8HAauk7ksG0087fowiVvIwMe6WbZOxFrm9+8IPmWgaS+/jSRx +05t7t/+tZOBdOR3pcbIez+5KueVay8B7vNZ/qog5Gkk36t8ycHNUDMueWGXJ +jdhr/eR72tI5CWT9v/SNv77lMwNPyzcVWxA7TMTGfBom95s6fpUjTu+OjtKb +ZqDB6J72dJJf8oWhYX+WMjF+/ZvWOyQ/K5SuheavZGLgIGVwiNgq5eo1SyEm +PvC7NLaM+G5Y0NUySSY+L2159b/8Xmt9KdBTjYn8X2vbVEj+F7f6BChsZOI2 +UdXOFn4yf4bel1u3MBEzowX9iOO3XPTTAiYatVtI1pH6IrDK3XvsEBPNw24U +7yX1Jy/ojFeKGRO5f085DJJ6ZTh72nP/P0w0EDpq4k8cNuDkkWPHRE/+iobc +xVxYXGpz1sGLicxL7v5Ti0g+a5xyF/Njotag7J9AYr10a7eaQCbuMFErX0Uc +cN3SlR7BRNbWK6OypD4u2Js59SYzsaqG7Wn5h4JJYcOTZlXkvEAF73dSjztd +6e9c6pjYGVrR8HSa9IsXCxDwmomKLplXrpD6HeubK5fVTqxRW7V4koINA6v6 +5oeZmJpXkdFO+oFbQeOJFBEFfHfxJav0IwVmK7PeFEgoYHiO8vVdfRTssA9k +v5BRwJm1up9ffaBAQHKjzLiSAnIubcmq76IgLzC+B1kKyK0zTk9upWDYxPSf +T3YKKFHwquZKHQXN2eoNc84KKDNjvqaxloIyvqXbBdwV8E3WGt+1NRSEPy6R +0vZRwOrb0xmJlRQoy0l0hUYrIL3CPO5cKQWOY13mqiUKqBLgssw5h/SbqJNm +55cponoKigeFk/cfVqNvWKWIWSFHFL1DKZjdO//tm5Aifove9+t0CAUr+OJD +nKUU8THPOK9hEInfp7ropLoiirX13u4j/d/fXlHE5IgiFk2pC5wn+4e1O0Yb +VVMVcbw7WoWtR8H9u0/ufn2oiDkqmgmNQIHK/FXHR1mKKKCi8M2KTQGrSOYv +vVARv/aYeXlsJfuZ9SYaUrWKWLK/a/klDQq4awuj+EcUcdvc24OzZH9jMO5l +MKSthNtPX6ouHuOA9EbZa/wsJWQN8VfmjXBg7HxNlepOJRzIGje7/x8HbvwQ +Yp03UsKVncUW/gMc6P2drfHXWgn3fSgaFmznwPlVPSKS4Uoou3FvYdxTDiSp +YO/+biVUlCqg0UPJfs6W/0JRgDImz/2b3yRMxr+n/2/FVWWUFR39LbiaA+Pv +A5c1hCuj2ZuNFw1WcuC7yfzd/gRltC340FfMx4HZ7cM1glnK+LituM11Oh8W +ib5e6/xOGWfTeGqOtuWDZM31MhmaCqYUs0olbuaT/xHxRaFVKiiSaDHTtCof +hN8oxnDH16Off+xL05lckA6jDmprq6HZrZ2BDZk5cEdVV0jEUR2bLZvZs2bZ +UC+1c8tUnAY+OjhQvOf3I9gmXRWr2a6JVall4c98MkGQL83jVPAG9J25UBe1 +PANkg+RYxxU3ovbBiJ2l3g9huYJlyeG6jfg+cdM64+8PQIMtSXmd0MKrDR9D +qqLuw/le4WpDnk0Y8t+n2RylezA+FWVqcGcTnrjJa9YTdBf2ar5IMlDfjLti +kqqnlyTCs6ntP2ffbkYjge8zGV63wE1Nq6vJfgvaiL+U3qN7A9hjdq3Hl2vj +wZEGv/GpONjNlDggkKaNhwtcPGvmr4NyYIR3lY4Onug5uPeySxSst9etUOjS +wSf9m9v/6Q8D+2dOV4vObUW9cdlfov0hUHG/1W5STBcN39tJ/5wIhumsv7Oa +j3Ux0sa0YYdlINgq5C5POrANH6rf06hy8YPJ9QnahRPb0KZ5pqJitzc8Sf/Z +PxO2HRvMejrTuz3AQp+B22VZGHsze+v2L+dg3ZnQUo1KFvIblD3r0HIDsRWu +BQeOsfFrrZ3UhUxnSN/l7ztxnI271o58CU9wBi3/mF0Jlmx84GgXlRfoDMYT +3LbOU2xssWrbJfaPM1xrn5m3dWXj9AWPdxeEnGEuLUDPN4iN5wb9gk/6O0HX +9oSWzFw2Or1h3WyydgSni+nJBhw2PnvVE2xu7Ag/OMX2o1w2jug23hpmOYIw +vXN2YwkbTce+rNsg5QhG/DLS/1aS8RbaFmGbAzxtzbRraWMj+/mmULcDDmAo ++ETds5ONqiV5JhksB+jc++qHRDcbTZ78+vJZ1QGmy0bCrD6y0e8PdT5ihQOo +P9iQ/3WYjXwJ1y0Ov7SHp107PaO+sfFF9+DKvsf2YCh6BDQn2AihB2w8H9mD +Q+jFJo8ZNv5jLPm15po9TFdeSxKfY2PBYJegn6c9BC/cti1bYGPHu7M1bAd7 +ENqcrXbiNxvl1WIWrzCzh3tnymb+/mXjAbsvrz7utof/BxJdT5I= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "PlotRange" -> {{0, 30}, {0., 0.06275779485369197}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -13494,19 +13999,19 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "PlotRange" -> {{0, 30}, {0., 0.06275779485369197}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13520,157 +14025,113 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ -Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH -/49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a -j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ -HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 -PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L -sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 -y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To -OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA -XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV -WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl -Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw -kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H -JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 -maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt -NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe -vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ -ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv -ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B -1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS -pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk -VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU -Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj -SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs -+TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F -jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL -c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt -t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA -t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 -PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp -cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr -ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe -DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd -dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 -TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU -RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP -Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh -nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 -PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv -Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac -X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU -CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e -N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T -3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T -sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z -bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O -s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 -hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih -Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v -JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O -fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci -vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ -2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL -lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z -Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu -1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl -qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 -B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 -YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 -6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ -T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw -RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w -n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P -r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik -ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 -pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l -HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh -S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 -EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK -rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 -GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu -OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo -lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l -HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 -lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 -dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR -ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX -7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu -fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg -eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn -YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE -9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS -WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ -Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 -85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV -icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ -xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum -j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l -rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ -dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu -hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w -cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH -ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD -69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 -w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme -MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn -PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 -wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G -XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu -6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH -x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD -5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m -zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ -tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u -wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe -Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF -oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl -9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY -caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU -Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo -f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 -3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN -hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf -Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis -j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB -LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 -eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo -qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O -03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 -NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 -cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 -pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu -KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA -YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn -yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me -g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ -V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw -EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg -5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv -fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo -9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= +1:eJwV13c8Vu/7AHDS0CAZGVnPsLJKRep5uq6kgaJF8hFlk2jIioySLaNFpITM +5zz8UOgTGSkq2UKE1CdkhIzW7/7+dV7v1znnPuc6931d131oNu6H7Rfx8PDw +8vLw/O/4o/dVDTMyfYflqK0vrxJrR+s9CZ+dncEwkaw9uaJFElCs0UaiMx72 +orrZu2YV8DyY08HXmQZK+so/c5p1Yc2YePx8RyG4uw2IezcbQN9TY/fpjioY +KnBp+tB0HPYwhz9MdjSDIUpcim50hvkOnZsTHQOw0OwdaPHCB6p3PUpvSpuC +E4e0jQ8VRIB0X+lnG7XfcCSsOOxXWgKIulrnLNvFh4E5/M8GbyVC/MY95cam +/Lg1SVN32dNUeH9nQ+WkkACWrM7bezcmDSLTAxoXSa5BI7MWpgFkgPiNwfCE +FBEEDctjkPYIQo8a7Gj+IYbxVxsnPiVnwwXdB9avgiXwZO1mNRGfXDC8Lzht +FCWBX03ZLWcDcoG+zC/s7U0JfOiyTLk+JBfetZoVtGSR61vmOt3jc0Hj7Cq+ +3rcSWLiHZRSamwv/ZXplfpeSxCVvTVZ97skFS1Hjb+v+TxKPvioTOcnKA/3x +BV+3QSmsqnzsozWWBz77bqx/PiqFX5zMea2m8oDzQL1L5IcUbn00sT9kLg8k +jp7ULeVfh6P8Bpp1i/Jh9EntLJ/GOpzXSVonIZ4PCcGxHone69BLRdJtbEc+ +DIgputUISOMrN58VrpH5IO5eISMuLo3T6eV1q2PzYf9L8zfO8tIYLD6qT93I +hxLfSLXVm6RR+r/3l/tT8iGib2L4uLk06qSeHRfm5oNWdrnjeJo0KtevKM9u +yYcg1qFTUltlcChZaDRTnAP7rO5919GTwQja38Z10hwQDBy5YrpfBt/IzhdG +ynMguTokM/akDMb9tPG0VOHAE8OykaXhMrjbIG3m+TYOTJgzPKfey2BiWs9Y +siUHrC7ORLy+JIsLK8S7E5I5oHBbT3o4RBYl+g0HnO5zSPzX85fFyuKn20Xf +tqZzwPeXyju9dFlsG1ESrs/lwM0rVmKlr2XR6HLDHW4ZB17H1aVmyMjh0rJt +3TEdHNjGSSy6XCGH7X+CXOIFKNDvePt77KUcpumZc+OEKDDmWbzXulkORz94 +ZUWJUGB72O09DMmhpckX7kVJCvZcogUELpHHLo0VaqIKFJyV+/Fwp6o8FjUl +Sl3ZTkGNY+q3ak95/Hnb7qqqPQUGv3SF/S7J43Y3ev0DRwrexrZqbw6UxzMn +Et+KuFDwvnR5YHq4PG4SDRAbcaNgbKWHcEiyPGbqzDxy8KZAgrtPZ0+VPC64 +f9kXH0GB69xk4EsBGvp/Npt5lkvBtnMOaz8L09BzeYlNRz4F/MNduXwSNDw3 +v2lwmKIgo7u6fQedhl3yLvJ8RRT0PrupVqxNQzc70ftz5RSYhOh2PrCm4X7r +eYu5egpk/+SfqbCj4WRu9eGq1xSMetL5PjjT8M5Nyjn0LQVhTis1JDxoKHxr +7dyiZgoqjT5ciQmjYYJ7ZH5FJwVawkGalwpouBCmrXVwiAKeyJmaOyU0PB/i +5//6M4mfz8WipJw8v0p0Ztd/FJyeORwyWUvDWzFcV+YIBemdzG7HLhou1lxy +K3eCgvOHEs+G9NFQ66u+Je93CrBeYOnDTzQsjPtgeniKgg/lPzb0jtHQ+3Lh +56EZCtamvrx2lI+OZnjsTssCBZ/E2dLn+el4irdamO8XBYWxBQXXBejoadde +p/6bxB+c1FMvTsfbEdwhj78kPntXrZ1qdJwrMFoyxMuFeVWhXnVTOm6Ln3V8 +uYQLP1KkgjZZ0PH3XhPm1qVcmF6twNS1pqPciYi7GcRjU7ou+s50HJ+8/tRn +GRcGym1/WPjTkS9ct33pci70qbslngymY0zQci874p5Ub5ZDKB3n9W60VxC3 +X4kOPhdHR0FmY4v7Ci7UGz0WDMug49aMrNailVyo+/d5QXQOHTdUSPrwrOJC +jebrowkUHaN2sD4aED8T6U+6V0rH6d7EuTbi8pARdvozOvK6dOZICHDhyezM +x+xqOnarN9KOExd2r1AqfkPHR66T1i3E1AGx+rJmOqI0U1lAkAt5FXJnKjvo +6HBG5rE+cebDzf/X0E/H8+FeqvnED8XArOkzHY8ZDq7pJb4fajDfPkJHyTuq +z1et5kLSaSsYmKGj1JCrny3x7Q9OA18W6KgW7xEeSXzD5ELIt790ZCt5niog +jnvurzy1mIEm9IXFbcQxm8Ia5pYzcMgz3OMHcWRGvNsfQQZWRudzxYS4ECae +smaxKAP99CdKtYhDwh8VLZdkoOW37tgDxME/C46tlmXguPHPLQ7EAWeeLogy +GFj78H22H7Ff34sUKWUGKiUt+hZL7HOoCeXVGVhzZBHPQ2LP6u5BBS0Gutjb +DxYSX9jy+ZqqDgNL2p/criQ++2hCZSOLjEeLkHlN7Cb587X2Tgb+p+V4sY34 +dOSSs6w9DDzh1JvaQ+z0e7WInhEDZ+Iup/QTO7hLlew9yMDmiXa3T8S2/czj +B0wZKKLjJTpEfPKI5q/DFgy8FjoeM0h8olY31dyagTYX3/X2EVvo6OtZ2TFw +lC93cRfxsWzjIVtnBm7IFOJtJj667niYsxsDy3cktNYRH4q2VXW/wECWXG1A +ObHx3zNvPbwZqMevy5dPbHTO+5yvP3l/5WDrZOJ9g8GigcEMDJPdfDOceLdp +9OOQUAaenR5I9yDWq7ttERnFwAgG4/oJYtBN+x0bx0Dx+PCj+sSs3Lz7t24x +0Cohd0aZuFs+N3X3XQammLkFCRD73sq+N53KwMFPBzdOkPl9HJSZfDibgTKa +Vn8pYrPZ9Lu8HAauk7ksG0087fowiVvIwMe6WbZOxFrm9+8IPmWgaS+/jSRx +05t7t/+tZOBdOR3pcbIez+5KueVay8B7vNZ/qog5Gkk36t8ycHNUDMueWGXJ +jdhr/eR72tI5CWT9v/SNv77lMwNPyzcVWxA7TMTGfBom95s6fpUjTu+OjtKb +ZqDB6J72dJJf8oWhYX+WMjF+/ZvWOyQ/K5SuheavZGLgIGVwiNgq5eo1SyEm +PvC7NLaM+G5Y0NUySSY+L2159b/8Xmt9KdBTjYn8X2vbVEj+F7f6BChsZOI2 +UdXOFn4yf4bel1u3MBEzowX9iOO3XPTTAiYatVtI1pH6IrDK3XvsEBPNw24U +7yX1Jy/ojFeKGRO5f085DJJ6ZTh72nP/P0w0EDpq4k8cNuDkkWPHRE/+iobc +xVxYXGpz1sGLicxL7v5Ti0g+a5xyF/Njotag7J9AYr10a7eaQCbuMFErX0Uc +cN3SlR7BRNbWK6OypD4u2Js59SYzsaqG7Wn5h4JJYcOTZlXkvEAF73dSjztd +6e9c6pjYGVrR8HSa9IsXCxDwmomKLplXrpD6HeubK5fVTqxRW7V4koINA6v6 +5oeZmJpXkdFO+oFbQeOJFBEFfHfxJav0IwVmK7PeFEgoYHiO8vVdfRTssA9k +v5BRwJm1up9ffaBAQHKjzLiSAnIubcmq76IgLzC+B1kKyK0zTk9upWDYxPSf +T3YKKFHwquZKHQXN2eoNc84KKDNjvqaxloIyvqXbBdwV8E3WGt+1NRSEPy6R +0vZRwOrb0xmJlRQoy0l0hUYrIL3CPO5cKQWOY13mqiUKqBLgssw5h/SbqJNm +55cponoKigeFk/cfVqNvWKWIWSFHFL1DKZjdO//tm5Aifove9+t0CAUr+OJD +nKUU8THPOK9hEInfp7ropLoiirX13u4j/d/fXlHE5IgiFk2pC5wn+4e1O0Yb +VVMVcbw7WoWtR8H9u0/ufn2oiDkqmgmNQIHK/FXHR1mKKKCi8M2KTQGrSOYv +vVARv/aYeXlsJfuZ9SYaUrWKWLK/a/klDQq4awuj+EcUcdvc24OzZH9jMO5l +MKSthNtPX6ouHuOA9EbZa/wsJWQN8VfmjXBg7HxNlepOJRzIGje7/x8HbvwQ +Yp03UsKVncUW/gMc6P2drfHXWgn3fSgaFmznwPlVPSKS4Uoou3FvYdxTDiSp +YO/+biVUlCqg0UPJfs6W/0JRgDImz/2b3yRMxr+n/2/FVWWUFR39LbiaA+Pv +A5c1hCuj2ZuNFw1WcuC7yfzd/gRltC340FfMx4HZ7cM1glnK+LituM11Oh8W +ib5e6/xOGWfTeGqOtuWDZM31MhmaCqYUs0olbuaT/xHxRaFVKiiSaDHTtCof +hN8oxnDH16Off+xL05lckA6jDmprq6HZrZ2BDZk5cEdVV0jEUR2bLZvZs2bZ +UC+1c8tUnAY+OjhQvOf3I9gmXRWr2a6JVall4c98MkGQL83jVPAG9J25UBe1 +PANkg+RYxxU3ovbBiJ2l3g9huYJlyeG6jfg+cdM64+8PQIMtSXmd0MKrDR9D +qqLuw/le4WpDnk0Y8t+n2RylezA+FWVqcGcTnrjJa9YTdBf2ar5IMlDfjLti +kqqnlyTCs6ntP2ffbkYjge8zGV63wE1Nq6vJfgvaiL+U3qN7A9hjdq3Hl2vj +wZEGv/GpONjNlDggkKaNhwtcPGvmr4NyYIR3lY4Onug5uPeySxSst9etUOjS +wSf9m9v/6Q8D+2dOV4vObUW9cdlfov0hUHG/1W5STBcN39tJ/5wIhumsv7Oa +j3Ux0sa0YYdlINgq5C5POrANH6rf06hy8YPJ9QnahRPb0KZ5pqJitzc8Sf/Z +PxO2HRvMejrTuz3AQp+B22VZGHsze+v2L+dg3ZnQUo1KFvIblD3r0HIDsRWu +BQeOsfFrrZ3UhUxnSN/l7ztxnI271o58CU9wBi3/mF0Jlmx84GgXlRfoDMYT +3LbOU2xssWrbJfaPM1xrn5m3dWXj9AWPdxeEnGEuLUDPN4iN5wb9gk/6O0HX +9oSWzFw2Or1h3WyydgSni+nJBhw2PnvVE2xu7Ag/OMX2o1w2jug23hpmOYIw +vXN2YwkbTce+rNsg5QhG/DLS/1aS8RbaFmGbAzxtzbRraWMj+/mmULcDDmAo ++ETds5ONqiV5JhksB+jc++qHRDcbTZ78+vJZ1QGmy0bCrD6y0e8PdT5ihQOo +P9iQ/3WYjXwJ1y0Ov7SHp107PaO+sfFF9+DKvsf2YCh6BDQn2AihB2w8H9mD +Q+jFJo8ZNv5jLPm15po9TFdeSxKfY2PBYJegn6c9BC/cti1bYGPHu7M1bAd7 +ENqcrXbiNxvl1WIWrzCzh3tnymb+/mXjAbsvrz7utof/BxJdT5I= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "PlotRange" -> {{0, 30}, {0., 0.06275779485369197}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13681,6 +14142,7 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -13708,7 +14170,8 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.16919668648256683`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06275779485369197}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -13716,17 +14179,562 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913483238131485`*^9}, + CellChangeTimes->{3.9913483238131485`*^9, 3.994254099485817*^9}, CellLabel-> - "Out[470]=",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] + "Out[140]=",ExpressionUUID->"8e48ca62-4b3e-49c3-b4c1-6a8244c7a521"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"54d9c986-d109-3d4c-9ee8-\ -76427bb63659"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8Vu/7AHDS0CAZGVnPsLJKRep5uq6kgaJF8hFlk2jIioySLaNFpITM +5zz8UOgTGSkq2UKE1CdkhIzW7/7+dV7v1znnPuc6931d131oNu6H7Rfx8PDw +8vLw/O/4o/dVDTMyfYflqK0vrxJrR+s9CZ+dncEwkaw9uaJFElCs0UaiMx72 +orrZu2YV8DyY08HXmQZK+so/c5p1Yc2YePx8RyG4uw2IezcbQN9TY/fpjioY +KnBp+tB0HPYwhz9MdjSDIUpcim50hvkOnZsTHQOw0OwdaPHCB6p3PUpvSpuC +E4e0jQ8VRIB0X+lnG7XfcCSsOOxXWgKIulrnLNvFh4E5/M8GbyVC/MY95cam +/Lg1SVN32dNUeH9nQ+WkkACWrM7bezcmDSLTAxoXSa5BI7MWpgFkgPiNwfCE +FBEEDctjkPYIQo8a7Gj+IYbxVxsnPiVnwwXdB9avgiXwZO1mNRGfXDC8Lzht +FCWBX03ZLWcDcoG+zC/s7U0JfOiyTLk+JBfetZoVtGSR61vmOt3jc0Hj7Cq+ +3rcSWLiHZRSamwv/ZXplfpeSxCVvTVZ97skFS1Hjb+v+TxKPvioTOcnKA/3x +BV+3QSmsqnzsozWWBz77bqx/PiqFX5zMea2m8oDzQL1L5IcUbn00sT9kLg8k +jp7ULeVfh6P8Bpp1i/Jh9EntLJ/GOpzXSVonIZ4PCcGxHone69BLRdJtbEc+ +DIgputUISOMrN58VrpH5IO5eISMuLo3T6eV1q2PzYf9L8zfO8tIYLD6qT93I +hxLfSLXVm6RR+r/3l/tT8iGib2L4uLk06qSeHRfm5oNWdrnjeJo0KtevKM9u +yYcg1qFTUltlcChZaDRTnAP7rO5919GTwQja38Z10hwQDBy5YrpfBt/IzhdG +ynMguTokM/akDMb9tPG0VOHAE8OykaXhMrjbIG3m+TYOTJgzPKfey2BiWs9Y +siUHrC7ORLy+JIsLK8S7E5I5oHBbT3o4RBYl+g0HnO5zSPzX85fFyuKn20Xf +tqZzwPeXyju9dFlsG1ESrs/lwM0rVmKlr2XR6HLDHW4ZB17H1aVmyMjh0rJt +3TEdHNjGSSy6XCGH7X+CXOIFKNDvePt77KUcpumZc+OEKDDmWbzXulkORz94 +ZUWJUGB72O09DMmhpckX7kVJCvZcogUELpHHLo0VaqIKFJyV+/Fwp6o8FjUl +Sl3ZTkGNY+q3ak95/Hnb7qqqPQUGv3SF/S7J43Y3ev0DRwrexrZqbw6UxzMn +Et+KuFDwvnR5YHq4PG4SDRAbcaNgbKWHcEiyPGbqzDxy8KZAgrtPZ0+VPC64 +f9kXH0GB69xk4EsBGvp/Npt5lkvBtnMOaz8L09BzeYlNRz4F/MNduXwSNDw3 +v2lwmKIgo7u6fQedhl3yLvJ8RRT0PrupVqxNQzc70ftz5RSYhOh2PrCm4X7r +eYu5egpk/+SfqbCj4WRu9eGq1xSMetL5PjjT8M5Nyjn0LQVhTis1JDxoKHxr +7dyiZgoqjT5ciQmjYYJ7ZH5FJwVawkGalwpouBCmrXVwiAKeyJmaOyU0PB/i +5//6M4mfz8WipJw8v0p0Ztd/FJyeORwyWUvDWzFcV+YIBemdzG7HLhou1lxy +K3eCgvOHEs+G9NFQ66u+Je93CrBeYOnDTzQsjPtgeniKgg/lPzb0jtHQ+3Lh +56EZCtamvrx2lI+OZnjsTssCBZ/E2dLn+el4irdamO8XBYWxBQXXBejoadde +p/6bxB+c1FMvTsfbEdwhj78kPntXrZ1qdJwrMFoyxMuFeVWhXnVTOm6Ln3V8 +uYQLP1KkgjZZ0PH3XhPm1qVcmF6twNS1pqPciYi7GcRjU7ou+s50HJ+8/tRn +GRcGym1/WPjTkS9ct33pci70qbslngymY0zQci874p5Ub5ZDKB3n9W60VxC3 +X4kOPhdHR0FmY4v7Ci7UGz0WDMug49aMrNailVyo+/d5QXQOHTdUSPrwrOJC +jebrowkUHaN2sD4aED8T6U+6V0rH6d7EuTbi8pARdvozOvK6dOZICHDhyezM +x+xqOnarN9KOExd2r1AqfkPHR66T1i3E1AGx+rJmOqI0U1lAkAt5FXJnKjvo +6HBG5rE+cebDzf/X0E/H8+FeqvnED8XArOkzHY8ZDq7pJb4fajDfPkJHyTuq +z1et5kLSaSsYmKGj1JCrny3x7Q9OA18W6KgW7xEeSXzD5ELIt790ZCt5niog +jnvurzy1mIEm9IXFbcQxm8Ia5pYzcMgz3OMHcWRGvNsfQQZWRudzxYS4ECae +smaxKAP99CdKtYhDwh8VLZdkoOW37tgDxME/C46tlmXguPHPLQ7EAWeeLogy +GFj78H22H7Ff34sUKWUGKiUt+hZL7HOoCeXVGVhzZBHPQ2LP6u5BBS0Gutjb +DxYSX9jy+ZqqDgNL2p/criQ++2hCZSOLjEeLkHlN7Cb587X2Tgb+p+V4sY34 +dOSSs6w9DDzh1JvaQ+z0e7WInhEDZ+Iup/QTO7hLlew9yMDmiXa3T8S2/czj +B0wZKKLjJTpEfPKI5q/DFgy8FjoeM0h8olY31dyagTYX3/X2EVvo6OtZ2TFw +lC93cRfxsWzjIVtnBm7IFOJtJj667niYsxsDy3cktNYRH4q2VXW/wECWXG1A +ObHx3zNvPbwZqMevy5dPbHTO+5yvP3l/5WDrZOJ9g8GigcEMDJPdfDOceLdp +9OOQUAaenR5I9yDWq7ttERnFwAgG4/oJYtBN+x0bx0Dx+PCj+sSs3Lz7t24x +0Cohd0aZuFs+N3X3XQammLkFCRD73sq+N53KwMFPBzdOkPl9HJSZfDibgTKa +Vn8pYrPZ9Lu8HAauk7ksG0087fowiVvIwMe6WbZOxFrm9+8IPmWgaS+/jSRx +05t7t/+tZOBdOR3pcbIez+5KueVay8B7vNZ/qog5Gkk36t8ycHNUDMueWGXJ +jdhr/eR72tI5CWT9v/SNv77lMwNPyzcVWxA7TMTGfBom95s6fpUjTu+OjtKb +ZqDB6J72dJJf8oWhYX+WMjF+/ZvWOyQ/K5SuheavZGLgIGVwiNgq5eo1SyEm +PvC7NLaM+G5Y0NUySSY+L2159b/8Xmt9KdBTjYn8X2vbVEj+F7f6BChsZOI2 +UdXOFn4yf4bel1u3MBEzowX9iOO3XPTTAiYatVtI1pH6IrDK3XvsEBPNw24U +7yX1Jy/ojFeKGRO5f085DJJ6ZTh72nP/P0w0EDpq4k8cNuDkkWPHRE/+iobc +xVxYXGpz1sGLicxL7v5Ti0g+a5xyF/Njotag7J9AYr10a7eaQCbuMFErX0Uc +cN3SlR7BRNbWK6OypD4u2Js59SYzsaqG7Wn5h4JJYcOTZlXkvEAF73dSjztd +6e9c6pjYGVrR8HSa9IsXCxDwmomKLplXrpD6HeubK5fVTqxRW7V4koINA6v6 +5oeZmJpXkdFO+oFbQeOJFBEFfHfxJav0IwVmK7PeFEgoYHiO8vVdfRTssA9k +v5BRwJm1up9ffaBAQHKjzLiSAnIubcmq76IgLzC+B1kKyK0zTk9upWDYxPSf +T3YKKFHwquZKHQXN2eoNc84KKDNjvqaxloIyvqXbBdwV8E3WGt+1NRSEPy6R +0vZRwOrb0xmJlRQoy0l0hUYrIL3CPO5cKQWOY13mqiUKqBLgssw5h/SbqJNm +55cponoKigeFk/cfVqNvWKWIWSFHFL1DKZjdO//tm5Aifove9+t0CAUr+OJD +nKUU8THPOK9hEInfp7ropLoiirX13u4j/d/fXlHE5IgiFk2pC5wn+4e1O0Yb +VVMVcbw7WoWtR8H9u0/ufn2oiDkqmgmNQIHK/FXHR1mKKKCi8M2KTQGrSOYv +vVARv/aYeXlsJfuZ9SYaUrWKWLK/a/klDQq4awuj+EcUcdvc24OzZH9jMO5l +MKSthNtPX6ouHuOA9EbZa/wsJWQN8VfmjXBg7HxNlepOJRzIGje7/x8HbvwQ +Yp03UsKVncUW/gMc6P2drfHXWgn3fSgaFmznwPlVPSKS4Uoou3FvYdxTDiSp +YO/+biVUlCqg0UPJfs6W/0JRgDImz/2b3yRMxr+n/2/FVWWUFR39LbiaA+Pv +A5c1hCuj2ZuNFw1WcuC7yfzd/gRltC340FfMx4HZ7cM1glnK+LituM11Oh8W +ib5e6/xOGWfTeGqOtuWDZM31MhmaCqYUs0olbuaT/xHxRaFVKiiSaDHTtCof +hN8oxnDH16Off+xL05lckA6jDmprq6HZrZ2BDZk5cEdVV0jEUR2bLZvZs2bZ +UC+1c8tUnAY+OjhQvOf3I9gmXRWr2a6JVall4c98MkGQL83jVPAG9J25UBe1 +PANkg+RYxxU3ovbBiJ2l3g9huYJlyeG6jfg+cdM64+8PQIMtSXmd0MKrDR9D +qqLuw/le4WpDnk0Y8t+n2RylezA+FWVqcGcTnrjJa9YTdBf2ar5IMlDfjLti +kqqnlyTCs6ntP2ffbkYjge8zGV63wE1Nq6vJfgvaiL+U3qN7A9hjdq3Hl2vj +wZEGv/GpONjNlDggkKaNhwtcPGvmr4NyYIR3lY4Onug5uPeySxSst9etUOjS +wSf9m9v/6Q8D+2dOV4vObUW9cdlfov0hUHG/1W5STBcN39tJ/5wIhumsv7Oa +j3Ux0sa0YYdlINgq5C5POrANH6rf06hy8YPJ9QnahRPb0KZ5pqJitzc8Sf/Z +PxO2HRvMejrTuz3AQp+B22VZGHsze+v2L+dg3ZnQUo1KFvIblD3r0HIDsRWu +BQeOsfFrrZ3UhUxnSN/l7ztxnI271o58CU9wBi3/mF0Jlmx84GgXlRfoDMYT +3LbOU2xssWrbJfaPM1xrn5m3dWXj9AWPdxeEnGEuLUDPN4iN5wb9gk/6O0HX +9oSWzFw2Or1h3WyydgSni+nJBhw2PnvVE2xu7Ag/OMX2o1w2jug23hpmOYIw +vXN2YwkbTce+rNsg5QhG/DLS/1aS8RbaFmGbAzxtzbRraWMj+/mmULcDDmAo ++ETds5ONqiV5JhksB+jc++qHRDcbTZ78+vJZ1QGmy0bCrD6y0e8PdT5ihQOo +P9iQ/3WYjXwJ1y0Ov7SHp107PaO+sfFF9+DKvsf2YCh6BDQn2AihB2w8H9mD +Q+jFJo8ZNv5jLPm15po9TFdeSxKfY2PBYJegn6c9BC/cti1bYGPHu7M1bAd7 +ENqcrXbiNxvl1WIWrzCzh3tnymb+/mXjAbsvrz7utof/BxJdT5I= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vu/7AHDS0CAZGVnPsLJKRep5uq6kgaJF8hFlk2jIioySLaNFpITM +5zz8UOgTGSkq2UKE1CdkhIzW7/7+dV7v1znnPuc6931d131oNu6H7Rfx8PDw +8vLw/O/4o/dVDTMyfYflqK0vrxJrR+s9CZ+dncEwkaw9uaJFElCs0UaiMx72 +orrZu2YV8DyY08HXmQZK+so/c5p1Yc2YePx8RyG4uw2IezcbQN9TY/fpjioY +KnBp+tB0HPYwhz9MdjSDIUpcim50hvkOnZsTHQOw0OwdaPHCB6p3PUpvSpuC +E4e0jQ8VRIB0X+lnG7XfcCSsOOxXWgKIulrnLNvFh4E5/M8GbyVC/MY95cam +/Lg1SVN32dNUeH9nQ+WkkACWrM7bezcmDSLTAxoXSa5BI7MWpgFkgPiNwfCE +FBEEDctjkPYIQo8a7Gj+IYbxVxsnPiVnwwXdB9avgiXwZO1mNRGfXDC8Lzht +FCWBX03ZLWcDcoG+zC/s7U0JfOiyTLk+JBfetZoVtGSR61vmOt3jc0Hj7Cq+ +3rcSWLiHZRSamwv/ZXplfpeSxCVvTVZ97skFS1Hjb+v+TxKPvioTOcnKA/3x +BV+3QSmsqnzsozWWBz77bqx/PiqFX5zMea2m8oDzQL1L5IcUbn00sT9kLg8k +jp7ULeVfh6P8Bpp1i/Jh9EntLJ/GOpzXSVonIZ4PCcGxHone69BLRdJtbEc+ +DIgputUISOMrN58VrpH5IO5eISMuLo3T6eV1q2PzYf9L8zfO8tIYLD6qT93I +hxLfSLXVm6RR+r/3l/tT8iGib2L4uLk06qSeHRfm5oNWdrnjeJo0KtevKM9u +yYcg1qFTUltlcChZaDRTnAP7rO5919GTwQja38Z10hwQDBy5YrpfBt/IzhdG +ynMguTokM/akDMb9tPG0VOHAE8OykaXhMrjbIG3m+TYOTJgzPKfey2BiWs9Y +siUHrC7ORLy+JIsLK8S7E5I5oHBbT3o4RBYl+g0HnO5zSPzX85fFyuKn20Xf +tqZzwPeXyju9dFlsG1ESrs/lwM0rVmKlr2XR6HLDHW4ZB17H1aVmyMjh0rJt +3TEdHNjGSSy6XCGH7X+CXOIFKNDvePt77KUcpumZc+OEKDDmWbzXulkORz94 +ZUWJUGB72O09DMmhpckX7kVJCvZcogUELpHHLo0VaqIKFJyV+/Fwp6o8FjUl +Sl3ZTkGNY+q3ak95/Hnb7qqqPQUGv3SF/S7J43Y3ev0DRwrexrZqbw6UxzMn +Et+KuFDwvnR5YHq4PG4SDRAbcaNgbKWHcEiyPGbqzDxy8KZAgrtPZ0+VPC64 +f9kXH0GB69xk4EsBGvp/Npt5lkvBtnMOaz8L09BzeYlNRz4F/MNduXwSNDw3 +v2lwmKIgo7u6fQedhl3yLvJ8RRT0PrupVqxNQzc70ftz5RSYhOh2PrCm4X7r +eYu5egpk/+SfqbCj4WRu9eGq1xSMetL5PjjT8M5Nyjn0LQVhTis1JDxoKHxr +7dyiZgoqjT5ciQmjYYJ7ZH5FJwVawkGalwpouBCmrXVwiAKeyJmaOyU0PB/i +5//6M4mfz8WipJw8v0p0Ztd/FJyeORwyWUvDWzFcV+YIBemdzG7HLhou1lxy +K3eCgvOHEs+G9NFQ66u+Je93CrBeYOnDTzQsjPtgeniKgg/lPzb0jtHQ+3Lh +56EZCtamvrx2lI+OZnjsTssCBZ/E2dLn+el4irdamO8XBYWxBQXXBejoadde +p/6bxB+c1FMvTsfbEdwhj78kPntXrZ1qdJwrMFoyxMuFeVWhXnVTOm6Ln3V8 +uYQLP1KkgjZZ0PH3XhPm1qVcmF6twNS1pqPciYi7GcRjU7ou+s50HJ+8/tRn +GRcGym1/WPjTkS9ct33pci70qbslngymY0zQci874p5Ub5ZDKB3n9W60VxC3 +X4kOPhdHR0FmY4v7Ci7UGz0WDMug49aMrNailVyo+/d5QXQOHTdUSPrwrOJC +jebrowkUHaN2sD4aED8T6U+6V0rH6d7EuTbi8pARdvozOvK6dOZICHDhyezM +x+xqOnarN9KOExd2r1AqfkPHR66T1i3E1AGx+rJmOqI0U1lAkAt5FXJnKjvo +6HBG5rE+cebDzf/X0E/H8+FeqvnED8XArOkzHY8ZDq7pJb4fajDfPkJHyTuq +z1et5kLSaSsYmKGj1JCrny3x7Q9OA18W6KgW7xEeSXzD5ELIt790ZCt5niog +jnvurzy1mIEm9IXFbcQxm8Ia5pYzcMgz3OMHcWRGvNsfQQZWRudzxYS4ECae +smaxKAP99CdKtYhDwh8VLZdkoOW37tgDxME/C46tlmXguPHPLQ7EAWeeLogy +GFj78H22H7Ff34sUKWUGKiUt+hZL7HOoCeXVGVhzZBHPQ2LP6u5BBS0Gutjb +DxYSX9jy+ZqqDgNL2p/criQ++2hCZSOLjEeLkHlN7Cb587X2Tgb+p+V4sY34 +dOSSs6w9DDzh1JvaQ+z0e7WInhEDZ+Iup/QTO7hLlew9yMDmiXa3T8S2/czj +B0wZKKLjJTpEfPKI5q/DFgy8FjoeM0h8olY31dyagTYX3/X2EVvo6OtZ2TFw +lC93cRfxsWzjIVtnBm7IFOJtJj667niYsxsDy3cktNYRH4q2VXW/wECWXG1A +ObHx3zNvPbwZqMevy5dPbHTO+5yvP3l/5WDrZOJ9g8GigcEMDJPdfDOceLdp +9OOQUAaenR5I9yDWq7ttERnFwAgG4/oJYtBN+x0bx0Dx+PCj+sSs3Lz7t24x +0Cohd0aZuFs+N3X3XQammLkFCRD73sq+N53KwMFPBzdOkPl9HJSZfDibgTKa +Vn8pYrPZ9Lu8HAauk7ksG0087fowiVvIwMe6WbZOxFrm9+8IPmWgaS+/jSRx +05t7t/+tZOBdOR3pcbIez+5KueVay8B7vNZ/qog5Gkk36t8ycHNUDMueWGXJ +jdhr/eR72tI5CWT9v/SNv77lMwNPyzcVWxA7TMTGfBom95s6fpUjTu+OjtKb +ZqDB6J72dJJf8oWhYX+WMjF+/ZvWOyQ/K5SuheavZGLgIGVwiNgq5eo1SyEm +PvC7NLaM+G5Y0NUySSY+L2159b/8Xmt9KdBTjYn8X2vbVEj+F7f6BChsZOI2 +UdXOFn4yf4bel1u3MBEzowX9iOO3XPTTAiYatVtI1pH6IrDK3XvsEBPNw24U +7yX1Jy/ojFeKGRO5f085DJJ6ZTh72nP/P0w0EDpq4k8cNuDkkWPHRE/+iobc +xVxYXGpz1sGLicxL7v5Ti0g+a5xyF/Njotag7J9AYr10a7eaQCbuMFErX0Uc +cN3SlR7BRNbWK6OypD4u2Js59SYzsaqG7Wn5h4JJYcOTZlXkvEAF73dSjztd +6e9c6pjYGVrR8HSa9IsXCxDwmomKLplXrpD6HeubK5fVTqxRW7V4koINA6v6 +5oeZmJpXkdFO+oFbQeOJFBEFfHfxJav0IwVmK7PeFEgoYHiO8vVdfRTssA9k +v5BRwJm1up9ffaBAQHKjzLiSAnIubcmq76IgLzC+B1kKyK0zTk9upWDYxPSf +T3YKKFHwquZKHQXN2eoNc84KKDNjvqaxloIyvqXbBdwV8E3WGt+1NRSEPy6R +0vZRwOrb0xmJlRQoy0l0hUYrIL3CPO5cKQWOY13mqiUKqBLgssw5h/SbqJNm +55cponoKigeFk/cfVqNvWKWIWSFHFL1DKZjdO//tm5Aifove9+t0CAUr+OJD +nKUU8THPOK9hEInfp7ropLoiirX13u4j/d/fXlHE5IgiFk2pC5wn+4e1O0Yb +VVMVcbw7WoWtR8H9u0/ufn2oiDkqmgmNQIHK/FXHR1mKKKCi8M2KTQGrSOYv +vVARv/aYeXlsJfuZ9SYaUrWKWLK/a/klDQq4awuj+EcUcdvc24OzZH9jMO5l +MKSthNtPX6ouHuOA9EbZa/wsJWQN8VfmjXBg7HxNlepOJRzIGje7/x8HbvwQ +Yp03UsKVncUW/gMc6P2drfHXWgn3fSgaFmznwPlVPSKS4Uoou3FvYdxTDiSp +YO/+biVUlCqg0UPJfs6W/0JRgDImz/2b3yRMxr+n/2/FVWWUFR39LbiaA+Pv +A5c1hCuj2ZuNFw1WcuC7yfzd/gRltC340FfMx4HZ7cM1glnK+LituM11Oh8W +ib5e6/xOGWfTeGqOtuWDZM31MhmaCqYUs0olbuaT/xHxRaFVKiiSaDHTtCof +hN8oxnDH16Off+xL05lckA6jDmprq6HZrZ2BDZk5cEdVV0jEUR2bLZvZs2bZ +UC+1c8tUnAY+OjhQvOf3I9gmXRWr2a6JVall4c98MkGQL83jVPAG9J25UBe1 +PANkg+RYxxU3ovbBiJ2l3g9huYJlyeG6jfg+cdM64+8PQIMtSXmd0MKrDR9D +qqLuw/le4WpDnk0Y8t+n2RylezA+FWVqcGcTnrjJa9YTdBf2ar5IMlDfjLti +kqqnlyTCs6ntP2ffbkYjge8zGV63wE1Nq6vJfgvaiL+U3qN7A9hjdq3Hl2vj +wZEGv/GpONjNlDggkKaNhwtcPGvmr4NyYIR3lY4Onug5uPeySxSst9etUOjS +wSf9m9v/6Q8D+2dOV4vObUW9cdlfov0hUHG/1W5STBcN39tJ/5wIhumsv7Oa +j3Ux0sa0YYdlINgq5C5POrANH6rf06hy8YPJ9QnahRPb0KZ5pqJitzc8Sf/Z +PxO2HRvMejrTuz3AQp+B22VZGHsze+v2L+dg3ZnQUo1KFvIblD3r0HIDsRWu +BQeOsfFrrZ3UhUxnSN/l7ztxnI271o58CU9wBi3/mF0Jlmx84GgXlRfoDMYT +3LbOU2xssWrbJfaPM1xrn5m3dWXj9AWPdxeEnGEuLUDPN4iN5wb9gk/6O0HX +9oSWzFw2Or1h3WyydgSni+nJBhw2PnvVE2xu7Ag/OMX2o1w2jug23hpmOYIw +vXN2YwkbTce+rNsg5QhG/DLS/1aS8RbaFmGbAzxtzbRraWMj+/mmULcDDmAo ++ETds5ONqiV5JhksB+jc++qHRDcbTZ78+vJZ1QGmy0bCrD6y0e8PdT5ihQOo +P9iQ/3WYjXwJ1y0Ov7SHp107PaO+sfFF9+DKvsf2YCh6BDQn2AihB2w8H9mD +Q+jFJo8ZNv5jLPm15po9TFdeSxKfY2PBYJegn6c9BC/cti1bYGPHu7M1bAd7 +ENqcrXbiNxvl1WIWrzCzh3tnymb+/mXjAbsvrz7utof/BxJdT5I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06275779485369197}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06275779485369197}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vu/7AHDS0CAZGVnPsLJKRep5uq6kgaJF8hFlk2jIioySLaNFpITM +5zz8UOgTGSkq2UKE1CdkhIzW7/7+dV7v1znnPuc6931d131oNu6H7Rfx8PDw +8vLw/O/4o/dVDTMyfYflqK0vrxJrR+s9CZ+dncEwkaw9uaJFElCs0UaiMx72 +orrZu2YV8DyY08HXmQZK+so/c5p1Yc2YePx8RyG4uw2IezcbQN9TY/fpjioY +KnBp+tB0HPYwhz9MdjSDIUpcim50hvkOnZsTHQOw0OwdaPHCB6p3PUpvSpuC +E4e0jQ8VRIB0X+lnG7XfcCSsOOxXWgKIulrnLNvFh4E5/M8GbyVC/MY95cam +/Lg1SVN32dNUeH9nQ+WkkACWrM7bezcmDSLTAxoXSa5BI7MWpgFkgPiNwfCE +FBEEDctjkPYIQo8a7Gj+IYbxVxsnPiVnwwXdB9avgiXwZO1mNRGfXDC8Lzht +FCWBX03ZLWcDcoG+zC/s7U0JfOiyTLk+JBfetZoVtGSR61vmOt3jc0Hj7Cq+ +3rcSWLiHZRSamwv/ZXplfpeSxCVvTVZ97skFS1Hjb+v+TxKPvioTOcnKA/3x +BV+3QSmsqnzsozWWBz77bqx/PiqFX5zMea2m8oDzQL1L5IcUbn00sT9kLg8k +jp7ULeVfh6P8Bpp1i/Jh9EntLJ/GOpzXSVonIZ4PCcGxHone69BLRdJtbEc+ +DIgputUISOMrN58VrpH5IO5eISMuLo3T6eV1q2PzYf9L8zfO8tIYLD6qT93I +hxLfSLXVm6RR+r/3l/tT8iGib2L4uLk06qSeHRfm5oNWdrnjeJo0KtevKM9u +yYcg1qFTUltlcChZaDRTnAP7rO5919GTwQja38Z10hwQDBy5YrpfBt/IzhdG +ynMguTokM/akDMb9tPG0VOHAE8OykaXhMrjbIG3m+TYOTJgzPKfey2BiWs9Y +siUHrC7ORLy+JIsLK8S7E5I5oHBbT3o4RBYl+g0HnO5zSPzX85fFyuKn20Xf +tqZzwPeXyju9dFlsG1ESrs/lwM0rVmKlr2XR6HLDHW4ZB17H1aVmyMjh0rJt +3TEdHNjGSSy6XCGH7X+CXOIFKNDvePt77KUcpumZc+OEKDDmWbzXulkORz94 +ZUWJUGB72O09DMmhpckX7kVJCvZcogUELpHHLo0VaqIKFJyV+/Fwp6o8FjUl +Sl3ZTkGNY+q3ak95/Hnb7qqqPQUGv3SF/S7J43Y3ev0DRwrexrZqbw6UxzMn +Et+KuFDwvnR5YHq4PG4SDRAbcaNgbKWHcEiyPGbqzDxy8KZAgrtPZ0+VPC64 +f9kXH0GB69xk4EsBGvp/Npt5lkvBtnMOaz8L09BzeYlNRz4F/MNduXwSNDw3 +v2lwmKIgo7u6fQedhl3yLvJ8RRT0PrupVqxNQzc70ftz5RSYhOh2PrCm4X7r +eYu5egpk/+SfqbCj4WRu9eGq1xSMetL5PjjT8M5Nyjn0LQVhTis1JDxoKHxr +7dyiZgoqjT5ciQmjYYJ7ZH5FJwVawkGalwpouBCmrXVwiAKeyJmaOyU0PB/i +5//6M4mfz8WipJw8v0p0Ztd/FJyeORwyWUvDWzFcV+YIBemdzG7HLhou1lxy +K3eCgvOHEs+G9NFQ66u+Je93CrBeYOnDTzQsjPtgeniKgg/lPzb0jtHQ+3Lh +56EZCtamvrx2lI+OZnjsTssCBZ/E2dLn+el4irdamO8XBYWxBQXXBejoadde +p/6bxB+c1FMvTsfbEdwhj78kPntXrZ1qdJwrMFoyxMuFeVWhXnVTOm6Ln3V8 +uYQLP1KkgjZZ0PH3XhPm1qVcmF6twNS1pqPciYi7GcRjU7ou+s50HJ+8/tRn +GRcGym1/WPjTkS9ct33pci70qbslngymY0zQci874p5Ub5ZDKB3n9W60VxC3 +X4kOPhdHR0FmY4v7Ci7UGz0WDMug49aMrNailVyo+/d5QXQOHTdUSPrwrOJC +jebrowkUHaN2sD4aED8T6U+6V0rH6d7EuTbi8pARdvozOvK6dOZICHDhyezM +x+xqOnarN9KOExd2r1AqfkPHR66T1i3E1AGx+rJmOqI0U1lAkAt5FXJnKjvo +6HBG5rE+cebDzf/X0E/H8+FeqvnED8XArOkzHY8ZDq7pJb4fajDfPkJHyTuq +z1et5kLSaSsYmKGj1JCrny3x7Q9OA18W6KgW7xEeSXzD5ELIt790ZCt5niog +jnvurzy1mIEm9IXFbcQxm8Ia5pYzcMgz3OMHcWRGvNsfQQZWRudzxYS4ECae +smaxKAP99CdKtYhDwh8VLZdkoOW37tgDxME/C46tlmXguPHPLQ7EAWeeLogy +GFj78H22H7Ff34sUKWUGKiUt+hZL7HOoCeXVGVhzZBHPQ2LP6u5BBS0Gutjb +DxYSX9jy+ZqqDgNL2p/criQ++2hCZSOLjEeLkHlN7Cb587X2Tgb+p+V4sY34 +dOSSs6w9DDzh1JvaQ+z0e7WInhEDZ+Iup/QTO7hLlew9yMDmiXa3T8S2/czj +B0wZKKLjJTpEfPKI5q/DFgy8FjoeM0h8olY31dyagTYX3/X2EVvo6OtZ2TFw +lC93cRfxsWzjIVtnBm7IFOJtJj667niYsxsDy3cktNYRH4q2VXW/wECWXG1A +ObHx3zNvPbwZqMevy5dPbHTO+5yvP3l/5WDrZOJ9g8GigcEMDJPdfDOceLdp +9OOQUAaenR5I9yDWq7ttERnFwAgG4/oJYtBN+x0bx0Dx+PCj+sSs3Lz7t24x +0Cohd0aZuFs+N3X3XQammLkFCRD73sq+N53KwMFPBzdOkPl9HJSZfDibgTKa +Vn8pYrPZ9Lu8HAauk7ksG0087fowiVvIwMe6WbZOxFrm9+8IPmWgaS+/jSRx +05t7t/+tZOBdOR3pcbIez+5KueVay8B7vNZ/qog5Gkk36t8ycHNUDMueWGXJ +jdhr/eR72tI5CWT9v/SNv77lMwNPyzcVWxA7TMTGfBom95s6fpUjTu+OjtKb +ZqDB6J72dJJf8oWhYX+WMjF+/ZvWOyQ/K5SuheavZGLgIGVwiNgq5eo1SyEm +PvC7NLaM+G5Y0NUySSY+L2159b/8Xmt9KdBTjYn8X2vbVEj+F7f6BChsZOI2 +UdXOFn4yf4bel1u3MBEzowX9iOO3XPTTAiYatVtI1pH6IrDK3XvsEBPNw24U +7yX1Jy/ojFeKGRO5f085DJJ6ZTh72nP/P0w0EDpq4k8cNuDkkWPHRE/+iobc +xVxYXGpz1sGLicxL7v5Ti0g+a5xyF/Njotag7J9AYr10a7eaQCbuMFErX0Uc +cN3SlR7BRNbWK6OypD4u2Js59SYzsaqG7Wn5h4JJYcOTZlXkvEAF73dSjztd +6e9c6pjYGVrR8HSa9IsXCxDwmomKLplXrpD6HeubK5fVTqxRW7V4koINA6v6 +5oeZmJpXkdFO+oFbQeOJFBEFfHfxJav0IwVmK7PeFEgoYHiO8vVdfRTssA9k +v5BRwJm1up9ffaBAQHKjzLiSAnIubcmq76IgLzC+B1kKyK0zTk9upWDYxPSf +T3YKKFHwquZKHQXN2eoNc84KKDNjvqaxloIyvqXbBdwV8E3WGt+1NRSEPy6R +0vZRwOrb0xmJlRQoy0l0hUYrIL3CPO5cKQWOY13mqiUKqBLgssw5h/SbqJNm +55cponoKigeFk/cfVqNvWKWIWSFHFL1DKZjdO//tm5Aifove9+t0CAUr+OJD +nKUU8THPOK9hEInfp7ropLoiirX13u4j/d/fXlHE5IgiFk2pC5wn+4e1O0Yb +VVMVcbw7WoWtR8H9u0/ufn2oiDkqmgmNQIHK/FXHR1mKKKCi8M2KTQGrSOYv +vVARv/aYeXlsJfuZ9SYaUrWKWLK/a/klDQq4awuj+EcUcdvc24OzZH9jMO5l +MKSthNtPX6ouHuOA9EbZa/wsJWQN8VfmjXBg7HxNlepOJRzIGje7/x8HbvwQ +Yp03UsKVncUW/gMc6P2drfHXWgn3fSgaFmznwPlVPSKS4Uoou3FvYdxTDiSp +YO/+biVUlCqg0UPJfs6W/0JRgDImz/2b3yRMxr+n/2/FVWWUFR39LbiaA+Pv +A5c1hCuj2ZuNFw1WcuC7yfzd/gRltC340FfMx4HZ7cM1glnK+LituM11Oh8W +ib5e6/xOGWfTeGqOtuWDZM31MhmaCqYUs0olbuaT/xHxRaFVKiiSaDHTtCof +hN8oxnDH16Off+xL05lckA6jDmprq6HZrZ2BDZk5cEdVV0jEUR2bLZvZs2bZ +UC+1c8tUnAY+OjhQvOf3I9gmXRWr2a6JVall4c98MkGQL83jVPAG9J25UBe1 +PANkg+RYxxU3ovbBiJ2l3g9huYJlyeG6jfg+cdM64+8PQIMtSXmd0MKrDR9D +qqLuw/le4WpDnk0Y8t+n2RylezA+FWVqcGcTnrjJa9YTdBf2ar5IMlDfjLti +kqqnlyTCs6ntP2ffbkYjge8zGV63wE1Nq6vJfgvaiL+U3qN7A9hjdq3Hl2vj +wZEGv/GpONjNlDggkKaNhwtcPGvmr4NyYIR3lY4Onug5uPeySxSst9etUOjS +wSf9m9v/6Q8D+2dOV4vObUW9cdlfov0hUHG/1W5STBcN39tJ/5wIhumsv7Oa +j3Ux0sa0YYdlINgq5C5POrANH6rf06hy8YPJ9QnahRPb0KZ5pqJitzc8Sf/Z +PxO2HRvMejrTuz3AQp+B22VZGHsze+v2L+dg3ZnQUo1KFvIblD3r0HIDsRWu +BQeOsfFrrZ3UhUxnSN/l7ztxnI271o58CU9wBi3/mF0Jlmx84GgXlRfoDMYT +3LbOU2xssWrbJfaPM1xrn5m3dWXj9AWPdxeEnGEuLUDPN4iN5wb9gk/6O0HX +9oSWzFw2Or1h3WyydgSni+nJBhw2PnvVE2xu7Ag/OMX2o1w2jug23hpmOYIw +vXN2YwkbTce+rNsg5QhG/DLS/1aS8RbaFmGbAzxtzbRraWMj+/mmULcDDmAo ++ETds5ONqiV5JhksB+jc++qHRDcbTZ78+vJZ1QGmy0bCrD6y0e8PdT5ihQOo +P9iQ/3WYjXwJ1y0Ov7SHp107PaO+sfFF9+DKvsf2YCh6BDQn2AihB2w8H9mD +Q+jFJo8ZNv5jLPm15po9TFdeSxKfY2PBYJegn6c9BC/cti1bYGPHu7M1bAd7 +ENqcrXbiNxvl1WIWrzCzh3tnymb+/mXjAbsvrz7utof/BxJdT5I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06275779485369197}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNFh1oursnJt4fwPtivSznuphDXDuUzOFgp3V96 +RXUylM/hsOrzih/7lWdB+QIObN+Z5SQcFkD5Ig4Hg2IPnOZZDOVLOOS1tx1d +kb0UypdxELVav9E7ZDmUr+Aw0yPTrP/wCihfyeGS6eT8bTtXQvkqDm9MLgVV +Wq+C8tUcQiWiOYoCYHwNB93JDyvsmGF8LYfEpU1dq+Jh+nUcdFUSSiqLYebr +OWya+375MW+Y/QYOhasV2HZ9g7nP0MFDfHYYV+MSKN/I4Vdy1Oxj3xZB+cYO +y1yE9vYkLYTyTRy+uVxvlZ8zH8o3dfghE9E3oXEOlG/mUDxfhrWjaSaUb+4w +davvxx0rpkH5Fg7LtvybxvAHFr6WDoqnxLdMaJgI5Vs5fDE9nbq4uA/Kt3Y4 +EOk1bXJAF5Rv48DOrZ75b0YblG/rMEdszwttj2Yo385ha8i9voKoBnsAW4iE +RA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.051395}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06275779485369197}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9942540995703583`*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"cb1dce16-d472-423e-b0b3-0b2f8f0b1834"] +}, Open ]], Cell[CellGroupData[{ @@ -13776,18 +14784,75 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], - RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ -UUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[142]:=",ExpressionUUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"9e6d6a70-ad75-9b40-8a0b-ca802f09d5a2"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.140173688604462`*^-165\\\", \ +RowBox[{\\\"161198658118785115956678299518758546564\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"68\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9916936247705600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 73, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994254099626445*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"89b8cf2a-4997-46af-aaef-e295d38af78f"], -Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1428963647729138`*^-168\\\", \ +RowBox[{\\\"505518991860510123640143147290826802026\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"71\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9512072804761600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 74, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994254099637151*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"7d6a0900-cdbf-4670-903d-e818fdd84bd0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1456255425521214`*^-171\\\", \ +RowBox[{\\\"164243120455479739170682508554789627978\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"75\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4724542670438400000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 75, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942540996490803`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"59832163-70f5-424f-8c36-76d0195b89bf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 142, 76, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942540996572866`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"c1c5cac6-7045-4d4a-a57e-9de7cb1a980b"], + +Cell[BoxData["12.36227052602928`"], "Output", + CellChangeTimes->{3.994254176691227*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"a31ed038-469b-48ba-bb27-cb2722cc60d5"] }, Open ]], Cell[CellGroupData[{ @@ -13854,27 +14919,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850391956293*^9, - 3.9918503966918755`*^9}},ExpressionUUID->"a3e3d205-e3b4-874a-a36c-\ -53cfa72184b4"], + CellChangeTimes->{{3.991850391956293*^9, 3.9918503966918755`*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"a3e3d205-e3b4-874a-a36c-53cfa72184b4"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"9e9d949e-1d4c-8649-8d0e-b7deecfb3ba4"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.4912676032090585`*^-216\\\", \ +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 77, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994254176736414*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"26373ec4-fbbb-42c5-8ec4-816a776d24bb"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"76f8ef60-aab6-7442-aeca-4cebad23cb0e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4340282830494108`*^-221\\\", \ +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 78, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994254176745472*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"2d3cc4df-1465-4340-a4a7-aaee30c536e4"], -Cell[BoxData["1.0713232818739324`"], "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.890230570396352`*^-227\\\", \ +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 79, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994254176754506*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"e92d8ec6-d58e-49d4-be9e-a14d495371e6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 80, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994254176764328*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"2e9ff3b9-6f16-44bd-b1bf-8f78edcea419"], + +Cell[BoxData["0.32977984834522384`"], "Output", + CellChangeTimes->{3.994254186637162*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"d3eb49fe-c418-4c95-bacc-95befe17d677"] }, Open ]], Cell[CellGroupData[{ @@ -13895,8 +15008,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -13941,27 +15053,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918504007528324`*^9, - 3.991850403970867*^9}},ExpressionUUID->"6977f025-454e-0e4a-b118-\ -07bad9ba3e82"], + CellChangeTimes->{{3.9918504007528324`*^9, 3.991850403970867*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"6977f025-454e-0e4a-b118-07bad9ba3e82"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"566a849f-fc85-4d42-a545-a46d44cf7346"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.4912676032090585`*^-216\\\", \ +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 81, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994254186682404*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"9f006b30-e811-4e91-803c-d36d27054587"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"fb1cb4d6-a504-e445-bb52-7946e1bca3c6"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4340282830494108`*^-221\\\", \ +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 82, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994254186691893*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"5117ea6d-99fc-4fa4-a551-dbba5b3f4a4f"], -Cell[BoxData["5.515504100347031`"], "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.890230570396352`*^-227\\\", \ +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 83, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942541867002068`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"d5bcac1e-e8a8-4ae3-ac4f-efba11391b6d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 84, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994254186710011*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"688d6274-c153-420f-a343-3e8d7da6698c"], + +Cell[BoxData["40.0897696944101`"], "Output", + CellChangeTimes->{3.994254196217208*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"2c8ab818-915f-4c5d-9390-228f57f52176"] }, Open ]], Cell[CellGroupData[{ @@ -13982,8 +15142,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -14028,27 +15187,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918504078476295`*^9, - 3.9918504110344543`*^9}},ExpressionUUID->"df8ecb01-788a-604d-b773-\ -f29bb610eb30"], + CellChangeTimes->{{3.9918504078476295`*^9, 3.9918504110344543`*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"df8ecb01-788a-604d-b773-f29bb610eb30"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"f9e34ec5-1462-b340-b2e7-8e875dd33d28"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.4912676032090585`*^-216\\\", \ +RowBox[{\\\"6657177494374971892087697643746956484264\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 85, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994254196260351*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"72c0b847-13ff-407b-beea-bbee75ff9b4b"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"19ffb858-7059-2a48-a3db-e2d0dfcf2131"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4340282830494108`*^-221\\\", \ +RowBox[{\\\"111907153680443277505994197391386338500\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 86, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9942541962707253`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"5e222bb2-bce5-49d2-8ae6-30994e54f8e6"], -Cell[BoxData["17.107550304528036`"], "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.890230570396352`*^-227\\\", \ +RowBox[{\\\"197404219092301941520573764198405501114\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7786163203929806995456000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 87, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994254196280191*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"a6ac82dc-3070-49b3-97a9-edae12c7eea6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 88, 31387618012696765089, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994254196289392*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"8be1b1a7-a774-41b6-b465-7a90c8ede7f5"], + +Cell[BoxData["6.5155301501847696`"], "Output", + CellChangeTimes->{3.994254203585328*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"d1c251ec-1ba4-4606-b539-c4e0cabbadca"] }, Open ]], Cell[CellGroupData[{ @@ -14057,20 +15264,24 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918504490520267`*^9, - 3.991850453720993*^9}},ExpressionUUID->"54a5e329-20bd-e742-afe8-\ -d2cfa007cfcf"], + CellChangeTimes->{{3.9918504490520267`*^9, 3.991850453720993*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"54a5e329-20bd-e742-afe8-d2cfa007cfcf"], -Cell[BoxData["0.11028946354837708`"], "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] +Cell[BoxData["0.02040480524056822`"], "Output", + CellChangeTimes->{3.994254203629302*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"8c0526fb-ba41-4a6a-bcb0-17e8c6f87aca"] }, Open ]], Cell[BoxData[ RowBox[{"NotebookSave", "[", "]"}]], "Input", - CellChangeTimes->{{3.99408275627424*^9, - 3.994082759688036*^9}},ExpressionUUID->"6328874d-704c-46e4-bf50-\ -43b34d3da068"] + CellChangeTimes->{{3.99408275627424*^9, 3.994082759688036*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"6328874d-704c-46e4-bf50-43b34d3da068"] }, -WindowSize->{714, 288}, +Evaluator->"kernel 1", +WindowSize->{714, 170.25}, WindowMargins->{{Automatic, 3}, {Automatic, 15}}, CellContext->Notebook, FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", @@ -14089,612 +15300,639 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 305, 6, 36, "Input",ExpressionUUID->"32cdfcf5-6501-4fa3-a2ea-6f6c4c61aac9"], -Cell[884, 30, 278, 5, 41, "Output",ExpressionUUID->"053f38e8-1460-4507-8bc0-346f96b751db"] +Cell[576, 22, 300, 5, 36, "Input",ExpressionUUID->"32cdfcf5-6501-4fa3-a2ea-6f6c4c61aac9"], +Cell[879, 29, 299, 5, 41, "Output",ExpressionUUID->"74dd0ac0-7afa-4780-9b07-adb0954ba0bb"] }, Open ]], Cell[CellGroupData[{ -Cell[1199, 40, 253, 5, 36, "Input",ExpressionUUID->"fab0ec26-34de-46b2-903b-7c93449cf9cb"], -Cell[1455, 47, 275, 5, 41, "Output",ExpressionUUID->"296c475b-958e-42e1-859e-1c4c611cbcca"] +Cell[1215, 39, 248, 4, 36, "Input",ExpressionUUID->"fab0ec26-34de-46b2-903b-7c93449cf9cb"], +Cell[1466, 45, 298, 5, 41, "Output",ExpressionUUID->"ac9170cf-10fb-4d60-8b62-4ba9050d7ca6"] }, Open ]], Cell[CellGroupData[{ -Cell[1767, 57, 231, 5, 36, "Input",ExpressionUUID->"2fe5a80b-3eb2-448c-98e6-2d9515f8843f"], -Cell[2001, 64, 278, 5, 41, "Output",ExpressionUUID->"035ee109-57f3-4c4f-9fbe-650476b8521e"] +Cell[1801, 55, 226, 4, 36, "Input",ExpressionUUID->"2fe5a80b-3eb2-448c-98e6-2d9515f8843f"], +Cell[2030, 61, 299, 5, 41, "Output",ExpressionUUID->"546ee3a0-d87b-4de0-9a38-7493f79e1247"] }, Open ]], Cell[CellGroupData[{ -Cell[2316, 74, 180, 4, 55, "Input",ExpressionUUID->"016208f3-4d07-4be7-8cb1-7778fd2d50d7"], -Cell[2499, 80, 276, 5, 62, "Output",ExpressionUUID->"1969b9cd-1848-47b0-b52e-4e04444205a5"] +Cell[2366, 71, 175, 3, 36, "Input",ExpressionUUID->"016208f3-4d07-4be7-8cb1-7778fd2d50d7"], +Cell[2544, 76, 299, 5, 41, "Output",ExpressionUUID->"4858a8c3-c5d2-4351-b24f-88f65cfd8051"] }, Open ]], Cell[CellGroupData[{ -Cell[2812, 90, 262, 8, 81, "Input",ExpressionUUID->"67456cb2-82d8-4bec-99f7-5234f56da8b2"], -Cell[3077, 100, 279, 5, 62, "Output",ExpressionUUID->"e71aa819-0e5c-4dac-b05b-6bae467fa5c8"] +Cell[2880, 86, 257, 7, 54, "Input",ExpressionUUID->"67456cb2-82d8-4bec-99f7-5234f56da8b2"], +Cell[3140, 95, 302, 5, 41, "Output",ExpressionUUID->"4ee8f77d-6202-4222-a121-33f627e94df6"] }, Open ]], Cell[CellGroupData[{ -Cell[3393, 110, 136, 3, 55, "Input",ExpressionUUID->"e5e592a6-6b3c-40b5-b451-317de01086cb"], -Cell[3532, 115, 280, 5, 62, "Output",ExpressionUUID->"9d693dc6-24c6-40c0-8649-0194e0be109c"] +Cell[3479, 105, 131, 2, 36, "Input",ExpressionUUID->"e5e592a6-6b3c-40b5-b451-317de01086cb"], +Cell[3613, 109, 301, 5, 41, "Output",ExpressionUUID->"cdf7b261-153d-4017-86b0-4841425aab35"] }, Open ]], Cell[CellGroupData[{ -Cell[3849, 125, 281, 7, 55, "Input",ExpressionUUID->"7559727d-92a6-44bb-a652-46040a7e4513"], -Cell[4133, 134, 292, 5, 62, "Output",ExpressionUUID->"783d7263-fae5-4b46-bef7-dd67c23f320f"] +Cell[3951, 119, 276, 6, 36, "Input",ExpressionUUID->"7559727d-92a6-44bb-a652-46040a7e4513"], +Cell[4230, 127, 312, 5, 41, "Output",ExpressionUUID->"031a3ce7-5dbc-4115-ae4c-522adbc279de"] }, Open ]], Cell[CellGroupData[{ -Cell[4462, 144, 262, 8, 55, "Input",ExpressionUUID->"d8cda65f-d223-4ae2-abe5-cb266ea5b8f6"], -Cell[4727, 154, 280, 5, 62, "Output",ExpressionUUID->"1df66750-06b5-49b4-940d-c558dcdef32f"] +Cell[4579, 137, 257, 7, 36, "Input",ExpressionUUID->"d8cda65f-d223-4ae2-abe5-cb266ea5b8f6"], +Cell[4839, 146, 301, 5, 41, "Output",ExpressionUUID->"816be306-9be6-4d61-ae3c-9e2fd0229dd3"] }, Open ]], Cell[CellGroupData[{ -Cell[5044, 164, 331, 7, 55, "Input",ExpressionUUID->"16453c2c-d523-4e43-83b7-f43d8b9e8f6b"], -Cell[5378, 173, 260, 5, 62, "Output",ExpressionUUID->"a0cb594b-e1ae-4c61-bc79-6dc59ed27c08"] +Cell[5177, 156, 326, 6, 36, "Input",ExpressionUUID->"16453c2c-d523-4e43-83b7-f43d8b9e8f6b"], +Cell[5506, 164, 277, 4, 41, "Output",ExpressionUUID->"67b18ffd-081e-4967-ab05-cac08735488f"] }, Open ]], Cell[CellGroupData[{ -Cell[5675, 183, 229, 5, 55, "Input",ExpressionUUID->"67fad4af-0930-43ab-8c83-fa76d0d347fa"], -Cell[5907, 190, 260, 5, 62, "Output",ExpressionUUID->"c66499ec-660e-4a0f-bcee-7422ee861dac"] +Cell[5820, 173, 225, 4, 36, "Input",ExpressionUUID->"67fad4af-0930-43ab-8c83-fa76d0d347fa"], +Cell[6048, 179, 280, 4, 41, "Output",ExpressionUUID->"65dac505-14b1-454c-9e24-5514a8b6e703"] }, Open ]], Cell[CellGroupData[{ -Cell[6204, 200, 133, 3, 55, "Input",ExpressionUUID->"a9365375-98e4-46ca-b51d-b84d98f661c7"], -Cell[6340, 205, 276, 5, 62, "Output",ExpressionUUID->"7cda01a1-0bc4-4014-997c-c49bdc5db8c0"] +Cell[6365, 188, 129, 2, 36, "Input",ExpressionUUID->"a9365375-98e4-46ca-b51d-b84d98f661c7"], +Cell[6497, 192, 298, 5, 41, "Output",ExpressionUUID->"7efc9887-e25f-40bf-b21f-f760ef63f9e1"] }, Open ]], Cell[CellGroupData[{ -Cell[6653, 215, 133, 3, 55, "Input",ExpressionUUID->"8ace0032-5e58-435d-8d4d-3d2c068cca42"], -Cell[6789, 220, 278, 5, 62, "Output",ExpressionUUID->"35138b60-0dd3-4343-a155-402c6a893aa2"] +Cell[6832, 202, 129, 2, 36, "Input",ExpressionUUID->"8ace0032-5e58-435d-8d4d-3d2c068cca42"], +Cell[6964, 206, 300, 5, 41, "Output",ExpressionUUID->"a981a516-0c36-4e67-8663-7b9ecc6e6a97"] }, Open ]], Cell[CellGroupData[{ -Cell[7104, 230, 561, 20, 148, "Input",ExpressionUUID->"179da8ec-c925-49d0-be0d-66c3876bcbb2"], -Cell[7668, 252, 296, 5, 62, "Output",ExpressionUUID->"bfee3a58-f7c9-4221-8a38-890be6104ac8"] +Cell[7301, 216, 557, 19, 100, "Input",ExpressionUUID->"179da8ec-c925-49d0-be0d-66c3876bcbb2"], +Cell[7861, 237, 318, 5, 41, "Output",ExpressionUUID->"fbfd8386-9fc1-44b9-b44b-3ecad2c2d199"] }, Open ]], Cell[CellGroupData[{ -Cell[8001, 262, 561, 20, 148, "Input",ExpressionUUID->"83b8e148-02bc-49bb-bea8-c995dfeb82bb"], -Cell[8565, 284, 292, 5, 62, "Output",ExpressionUUID->"73d60ccb-8a91-4a21-b9e0-f547f6171094"] +Cell[8216, 247, 557, 19, 100, "Input",ExpressionUUID->"83b8e148-02bc-49bb-bea8-c995dfeb82bb"], +Cell[8776, 268, 314, 5, 41, "Output",ExpressionUUID->"1b260337-3033-41df-97f3-574e30cba6f5"] }, Open ]], Cell[CellGroupData[{ -Cell[8894, 294, 1592, 51, 211, "Input",ExpressionUUID->"3d43be64-23c5-4a92-ab3e-9cdd7819b7bb"], -Cell[10489, 347, 292, 5, 62, "Output",ExpressionUUID->"aa7591e2-fdae-43c8-8038-485e6119feda"] +Cell[9127, 278, 1588, 50, 103, "Input",ExpressionUUID->"3d43be64-23c5-4a92-ab3e-9cdd7819b7bb"], +Cell[10718, 330, 314, 5, 41, "Output",ExpressionUUID->"883d3bd1-7125-4654-a156-bb47e8c83b05"] }, Open ]], Cell[CellGroupData[{ -Cell[10818, 357, 1426, 47, 211, "Input",ExpressionUUID->"8b136e1d-8a5c-4ca3-8ba9-064eeb7fa7e3"], -Cell[12247, 406, 308, 6, 62, "Output",ExpressionUUID->"94347e67-699f-44e7-8f91-f6817d51e17c"] +Cell[11069, 340, 1422, 46, 73, "Input",ExpressionUUID->"8b136e1d-8a5c-4ca3-8ba9-064eeb7fa7e3"], +Cell[12494, 388, 330, 6, 41, "Output",ExpressionUUID->"351da46f-9cd6-42e4-8ff8-eaf40f878f89"] }, Open ]], Cell[CellGroupData[{ -Cell[12592, 417, 1426, 47, 211, "Input",ExpressionUUID->"597653ed-1cc8-44b2-a580-ca17a1b57470"], -Cell[14021, 466, 312, 6, 62, "Output",ExpressionUUID->"15cf6e7e-9189-4b04-a170-845f3fa97abc"] +Cell[12861, 399, 1422, 46, 73, "Input",ExpressionUUID->"597653ed-1cc8-44b2-a580-ca17a1b57470"], +Cell[14286, 447, 336, 6, 41, "Output",ExpressionUUID->"34b6af85-88b8-4ca1-9931-6208c30b4532"] }, Open ]], Cell[CellGroupData[{ -Cell[14370, 477, 1592, 51, 211, "Input",ExpressionUUID->"9a94d223-c93f-448f-a7fc-b8115b6e4dba"], -Cell[15965, 530, 288, 5, 62, "Output",ExpressionUUID->"9e73f054-4d44-4e33-8142-bd796501a233"] +Cell[14659, 458, 1588, 50, 103, "Input",ExpressionUUID->"9a94d223-c93f-448f-a7fc-b8115b6e4dba"], +Cell[16250, 510, 312, 5, 41, "Output",ExpressionUUID->"287db08e-0689-44da-8006-bbae9d6ae4f4"] }, Open ]], Cell[CellGroupData[{ -Cell[16290, 540, 135, 3, 55, "Input",ExpressionUUID->"ea96506f-71e9-43e8-9862-700285eae938"], -Cell[16428, 545, 277, 5, 62, "Output",ExpressionUUID->"58740243-798b-4dfa-8199-f1dd531b09a0"] +Cell[16599, 520, 131, 2, 36, "Input",ExpressionUUID->"ea96506f-71e9-43e8-9862-700285eae938"], +Cell[16733, 524, 299, 5, 41, "Output",ExpressionUUID->"b7ffaa52-8e85-4e04-851f-b1c0f3c5b7db"] }, Open ]], Cell[CellGroupData[{ -Cell[16742, 555, 137, 3, 55, "Input",ExpressionUUID->"9c73db80-a16f-46e3-af25-28f0aad14798"], -Cell[16882, 560, 282, 5, 62, "Output",ExpressionUUID->"34956363-76d7-4499-a48c-5a9b1df60ab8"] +Cell[17069, 534, 133, 2, 36, "Input",ExpressionUUID->"9c73db80-a16f-46e3-af25-28f0aad14798"], +Cell[17205, 538, 306, 5, 41, "Output",ExpressionUUID->"0c302b8b-d73a-4fe9-a442-9763747aeb95"] }, Open ]], Cell[CellGroupData[{ -Cell[17201, 570, 254, 5, 55, "Input",ExpressionUUID->"8f226229-eaeb-412e-8a0f-19f56de1c03c"], -Cell[17458, 577, 280, 5, 62, "Output",ExpressionUUID->"a7095a08-54bd-4b06-aa3d-383af229c068"] +Cell[17548, 548, 250, 4, 36, "Input",ExpressionUUID->"8f226229-eaeb-412e-8a0f-19f56de1c03c"], +Cell[17801, 554, 302, 5, 41, "Output",ExpressionUUID->"6c649cf3-9c6c-4918-b377-ea3e14970045"] }, Open ]], Cell[CellGroupData[{ -Cell[17775, 587, 223, 5, 55, "Input",ExpressionUUID->"e3f3304c-8b14-4d7e-9991-dd32a47bc8ca"], -Cell[18001, 594, 293, 6, 62, "Output",ExpressionUUID->"fb412096-4638-4658-94a7-4978319b9b2f"] +Cell[18140, 564, 219, 4, 36, "Input",ExpressionUUID->"e3f3304c-8b14-4d7e-9991-dd32a47bc8ca"], +Cell[18362, 570, 315, 6, 41, "Output",ExpressionUUID->"0f1fa43a-232d-42e8-a01a-692e0d3d210b"] }, Open ]], Cell[CellGroupData[{ -Cell[18331, 605, 138, 3, 55, "Input",ExpressionUUID->"097ee5d6-0b41-4944-a0fd-461ebdc2fa5b"], -Cell[18472, 610, 280, 5, 62, "Output",ExpressionUUID->"211c568f-6a6b-47b5-ae5c-5f0a40012061"] +Cell[18714, 581, 134, 2, 36, "Input",ExpressionUUID->"097ee5d6-0b41-4944-a0fd-461ebdc2fa5b"], +Cell[18851, 585, 302, 5, 41, "Output",ExpressionUUID->"f6ea8f45-7302-40db-923e-cdba4651c89a"] }, Open ]], Cell[CellGroupData[{ -Cell[18789, 620, 353, 6, 55, "Input",ExpressionUUID->"f647a085-2221-4ddf-b542-94135a0f80f8"], -Cell[19145, 628, 253, 5, 62, "Output",ExpressionUUID->"376e819c-ef98-4d5d-bf48-de7a9e491029"] +Cell[19190, 595, 349, 5, 36, "Input",ExpressionUUID->"f647a085-2221-4ddf-b542-94135a0f80f8"], +Cell[19542, 602, 271, 4, 41, "Output",ExpressionUUID->"13338980-d82e-45a5-87c5-55a90baa4499"] }, Open ]], Cell[CellGroupData[{ -Cell[19435, 638, 254, 6, 55, "Input",ExpressionUUID->"73530cc7-4509-4c2a-bc82-3b6e6f190af1"], -Cell[19692, 646, 275, 5, 62, "Output",ExpressionUUID->"5a06941a-2689-40df-b58e-60b73764017e"] +Cell[19850, 611, 250, 5, 36, "Input",ExpressionUUID->"73530cc7-4509-4c2a-bc82-3b6e6f190af1"], +Cell[20103, 618, 297, 5, 41, "Output",ExpressionUUID->"b09725bd-5079-4306-b389-86536e2f7541"] }, Open ]], Cell[CellGroupData[{ -Cell[20004, 656, 223, 5, 55, "Input",ExpressionUUID->"be41b13b-7e99-4aee-8978-caf79c9ddd4e"], -Cell[20230, 663, 275, 5, 62, "Output",ExpressionUUID->"4d495a98-1c73-4674-aa27-b8801b1b63b5"] +Cell[20437, 628, 219, 4, 36, "Input",ExpressionUUID->"be41b13b-7e99-4aee-8978-caf79c9ddd4e"], +Cell[20659, 634, 299, 5, 41, "Output",ExpressionUUID->"e724177b-e7ee-4cf2-bfd1-461e094bbc58"] }, Open ]], Cell[CellGroupData[{ -Cell[20542, 673, 354, 11, 81, "Input",ExpressionUUID->"ddbbb689-8d7b-40b9-bc82-bbe57496b4ff"], -Cell[20899, 686, 295, 5, 62, "Output",ExpressionUUID->"3e1ee14d-22ac-414f-a908-e67669b5afea"] +Cell[20995, 644, 350, 10, 54, "Input",ExpressionUUID->"ddbbb689-8d7b-40b9-bc82-bbe57496b4ff"], +Cell[21348, 656, 319, 5, 41, "Output",ExpressionUUID->"055f680c-8311-4a05-a621-5adae849e6b0"] }, Open ]], Cell[CellGroupData[{ -Cell[21231, 696, 354, 11, 81, "Input",ExpressionUUID->"2571b230-161a-4a78-ad26-e012bd34a71c"], -Cell[21588, 709, 310, 6, 62, "Output",ExpressionUUID->"33943dd2-84ae-4faa-b50e-6e4bd49723ae"] +Cell[21704, 666, 350, 10, 54, "Input",ExpressionUUID->"2571b230-161a-4a78-ad26-e012bd34a71c"], +Cell[22057, 678, 332, 6, 41, "Output",ExpressionUUID->"87e335b4-daed-4f4f-b690-4f00ed1ba613"] }, Open ]], Cell[CellGroupData[{ -Cell[21935, 720, 998, 27, 154, "Input",ExpressionUUID->"a4b5fd42-4b8a-4f68-a675-ff02dd992ea7"], -Cell[22936, 749, 294, 5, 62, "Output",ExpressionUUID->"b7259d1a-b7a8-4ee8-9d74-d67e1e9ae84b"] +Cell[22426, 689, 994, 26, 55, "Input",ExpressionUUID->"a4b5fd42-4b8a-4f68-a675-ff02dd992ea7"], +Cell[23423, 717, 318, 5, 41, "Output",ExpressionUUID->"1b361e7b-aad6-49dd-8580-592e1b109539"] }, Open ]], Cell[CellGroupData[{ -Cell[23267, 759, 203, 4, 55, "Input",ExpressionUUID->"b29d18c9-2648-401d-a879-5c4da77d2ebd"], -Cell[23473, 765, 276, 5, 62, "Output",ExpressionUUID->"b86a17e2-e90a-424f-a7de-9146d541bf49"] +Cell[23778, 727, 199, 3, 36, "Input",ExpressionUUID->"b29d18c9-2648-401d-a879-5c4da77d2ebd"], +Cell[23980, 732, 298, 5, 41, "Output",ExpressionUUID->"19f2caeb-2733-4d0a-af96-6ea41a068625"] }, Open ]], Cell[CellGroupData[{ -Cell[23786, 775, 332, 6, 55, "Input",ExpressionUUID->"67536fb1-428f-4970-bef7-dd9fa78d07cc"], -Cell[24121, 783, 262, 5, 62, "Output",ExpressionUUID->"fae9b2ae-27ac-42d7-96d2-e550c033b363"] +Cell[24315, 742, 328, 5, 36, "Input",ExpressionUUID->"67536fb1-428f-4970-bef7-dd9fa78d07cc"], +Cell[24646, 749, 282, 4, 41, "Output",ExpressionUUID->"936d2718-9ef0-4af6-92f1-6d865337f988"] }, Open ]], -Cell[24398, 791, 177, 3, 55, "Input",ExpressionUUID->"62aaa394-7779-447e-98bb-5e67991c9717"], +Cell[24943, 756, 173, 2, 36, "Input",ExpressionUUID->"62aaa394-7779-447e-98bb-5e67991c9717"], Cell[CellGroupData[{ -Cell[24600, 798, 332, 6, 55, "Input",ExpressionUUID->"a77d887e-fba8-47d6-a3fe-8a269447322f"], -Cell[24935, 806, 255, 5, 62, "Output",ExpressionUUID->"a5cf4f0e-2c0e-408d-bfae-c4f7e09a0c4b"] +Cell[25141, 762, 328, 5, 36, "Input",ExpressionUUID->"a77d887e-fba8-47d6-a3fe-8a269447322f"], +Cell[25472, 769, 273, 4, 41, "Output",ExpressionUUID->"0c1bf9e8-8663-4f7a-9f9f-3e3f8719068a"] }, Open ]], -Cell[25205, 814, 177, 3, 55, "Input",ExpressionUUID->"098094a0-0622-4340-998e-974a3fbaea36"], +Cell[25760, 776, 173, 2, 36, "Input",ExpressionUUID->"098094a0-0622-4340-998e-974a3fbaea36"], Cell[CellGroupData[{ -Cell[25407, 821, 332, 6, 55, "Input",ExpressionUUID->"bd847fa6-4efb-4faf-9432-c6191bf960fb"], -Cell[25742, 829, 253, 5, 62, "Output",ExpressionUUID->"00abaf12-6170-4f08-ab83-570f54918266"] +Cell[25958, 782, 328, 5, 36, "Input",ExpressionUUID->"bd847fa6-4efb-4faf-9432-c6191bf960fb"], +Cell[26289, 789, 271, 4, 41, "Output",ExpressionUUID->"d8e14d93-47d1-414e-84b1-140c986f3dbf"] }, Open ]], -Cell[26010, 837, 177, 3, 55, "Input",ExpressionUUID->"3cac4ba9-5060-49f9-9442-8b99990e4efd"], +Cell[26575, 796, 173, 2, 36, "Input",ExpressionUUID->"3cac4ba9-5060-49f9-9442-8b99990e4efd"], Cell[CellGroupData[{ -Cell[26212, 844, 356, 6, 55, "Input",ExpressionUUID->"a57d45b8-4eaf-45bf-8d43-c6b3bf452990"], -Cell[26571, 852, 251, 5, 62, "Output",ExpressionUUID->"51fc0c6e-3e6f-44e2-beac-57915eda11b9"] +Cell[26773, 802, 352, 5, 36, "Input",ExpressionUUID->"a57d45b8-4eaf-45bf-8d43-c6b3bf452990"], +Cell[27128, 809, 269, 4, 41, "Output",ExpressionUUID->"db7106f2-1317-4dd0-b7fa-7651e94dc4db"] }, Open ]], -Cell[26837, 860, 175, 3, 55, "Input",ExpressionUUID->"c42f8c03-6a5c-4468-ba74-295ed3698f72"], +Cell[27412, 816, 171, 2, 36, "Input",ExpressionUUID->"c42f8c03-6a5c-4468-ba74-295ed3698f72"], Cell[CellGroupData[{ -Cell[27037, 867, 304, 6, 55, "Input",ExpressionUUID->"bdab98b9-03d2-4503-9c92-fef6b99d57e4"], -Cell[27344, 875, 258, 5, 62, "Output",ExpressionUUID->"cdef2081-aaa2-44a3-9704-ad809dfd3a91"] +Cell[27608, 822, 300, 5, 36, "Input",ExpressionUUID->"bdab98b9-03d2-4503-9c92-fef6b99d57e4"], +Cell[27911, 829, 276, 4, 41, "Output",ExpressionUUID->"c849cfc9-09ff-4bae-902d-3a176edec16c"] }, Open ]], -Cell[27617, 883, 175, 3, 55, "Input",ExpressionUUID->"6fc34824-c613-4c74-bd86-7e6165efcfd6"], +Cell[28202, 836, 171, 2, 36, "Input",ExpressionUUID->"6fc34824-c613-4c74-bd86-7e6165efcfd6"], Cell[CellGroupData[{ -Cell[27817, 890, 310, 6, 55, "Input",ExpressionUUID->"01613d92-1a84-4d81-8e66-83e6cb4f3771"], -Cell[28130, 898, 258, 5, 62, "Output",ExpressionUUID->"a4881d9b-3bc4-4998-95f6-b7463339ac39"] +Cell[28398, 842, 306, 5, 36, "Input",ExpressionUUID->"01613d92-1a84-4d81-8e66-83e6cb4f3771"], +Cell[28707, 849, 276, 4, 41, "Output",ExpressionUUID->"01d946ca-a820-4af1-924f-446811c35680"] }, Open ]], -Cell[28403, 906, 177, 3, 55, "Input",ExpressionUUID->"4ab84259-8e29-4323-8038-b52d809033a3"], +Cell[28998, 856, 173, 2, 36, "Input",ExpressionUUID->"4ab84259-8e29-4323-8038-b52d809033a3"], Cell[CellGroupData[{ -Cell[28605, 913, 310, 6, 55, "Input",ExpressionUUID->"7aa1d22a-b349-4180-a635-7bfc3d28d3c1"], -Cell[28918, 921, 259, 5, 62, "Output",ExpressionUUID->"7d1e41fd-9d04-46d3-a5cd-7a878ed138a7"] +Cell[29196, 862, 306, 5, 36, "Input",ExpressionUUID->"7aa1d22a-b349-4180-a635-7bfc3d28d3c1"], +Cell[29505, 869, 277, 4, 41, "Output",ExpressionUUID->"49a94248-ec60-466e-aa49-eb0dc6f68539"] }, Open ]], -Cell[29192, 929, 176, 3, 55, "Input",ExpressionUUID->"6055af0d-6869-4171-a21a-658029b063d2"], +Cell[29797, 876, 172, 2, 36, "Input",ExpressionUUID->"6055af0d-6869-4171-a21a-658029b063d2"], Cell[CellGroupData[{ -Cell[29393, 936, 282, 5, 55, "Input",ExpressionUUID->"a68fe271-87b5-449f-993b-e025b56c7a29"], -Cell[29678, 943, 256, 5, 62, "Output",ExpressionUUID->"be174ef3-3830-4211-9231-a9216274a932"] +Cell[29994, 882, 278, 4, 36, "Input",ExpressionUUID->"a68fe271-87b5-449f-993b-e025b56c7a29"], +Cell[30275, 888, 274, 4, 41, "Output",ExpressionUUID->"424e1ffa-7876-4f54-ba64-8f5667e6243c"] }, Open ]], -Cell[29949, 951, 179, 3, 55, "Input",ExpressionUUID->"a9ef26f6-938f-4c92-bbf3-71e11417d2e2"], +Cell[30564, 895, 175, 2, 36, "Input",ExpressionUUID->"a9ef26f6-938f-4c92-bbf3-71e11417d2e2"], Cell[CellGroupData[{ -Cell[30153, 958, 19813, 486, 3214, "Input",ExpressionUUID->"caeae8bf-beca-485d-ad51-b172b2499144"], -Cell[49969, 1446, 295, 5, 62, "Output",ExpressionUUID->"638c121f-3f8b-4f3e-8303-f3ae4a3c3aeb"] +Cell[30764, 901, 19809, 485, 1708, "Input",ExpressionUUID->"caeae8bf-beca-485d-ad51-b172b2499144"], +Cell[50576, 1388, 317, 5, 41, "Output",ExpressionUUID->"c3840ebc-08cd-4671-9eb5-0787047beea2"] }, Open ]], Cell[CellGroupData[{ -Cell[50301, 1456, 19752, 490, 3214, "Input",ExpressionUUID->"86996236-767f-48ce-a191-066540e9f792"], -Cell[70056, 1948, 294, 5, 62, "Output",ExpressionUUID->"e722a45b-59e4-4d03-978d-83aac7ec7dab"] +Cell[50930, 1398, 19748, 489, 1720, "Input",ExpressionUUID->"86996236-767f-48ce-a191-066540e9f792"], +Cell[70681, 1889, 318, 5, 41, "Output",ExpressionUUID->"bc697d69-64b9-48a9-8168-18d5c9fc47d5"] }, Open ]], Cell[CellGroupData[{ -Cell[70387, 1958, 19752, 484, 3213, "Input",ExpressionUUID->"933fcba6-44f2-4029-a09e-1c15e24f5fe2"], -Cell[90142, 2444, 305, 6, 62, "Output",ExpressionUUID->"d5af67ee-0068-41e5-a751-409ed0fd58cf"] +Cell[71036, 1899, 19748, 483, 1720, "Input",ExpressionUUID->"933fcba6-44f2-4029-a09e-1c15e24f5fe2"], +Cell[90787, 2384, 327, 6, 41, "Output",ExpressionUUID->"e761a50c-7ba6-4f9a-8071-5e132093de85"] }, Open ]], Cell[CellGroupData[{ -Cell[90484, 2455, 22538, 554, 3639, "Input",ExpressionUUID->"75f9bcfc-6a85-4c93-baef-735481a5b347"], -Cell[113025, 3011, 311, 6, 62, "Output",ExpressionUUID->"7cd884a8-3ac2-452c-a87b-78df983f74e7"] +Cell[91151, 2395, 22534, 553, 1885, "Input",ExpressionUUID->"75f9bcfc-6a85-4c93-baef-735481a5b347"], +Cell[113688, 2950, 333, 6, 41, "Output",ExpressionUUID->"e787289c-3832-468e-acac-9d872c0d9c79"] }, Open ]], Cell[CellGroupData[{ -Cell[113373, 3022, 22539, 554, 3639, "Input",ExpressionUUID->"67477285-563b-4c0a-80e8-539d67ea9ecf"], -Cell[135915, 3578, 310, 6, 62, "Output",ExpressionUUID->"3588086d-fb2f-46aa-8ddc-a101c791de5d"] +Cell[114058, 2961, 22535, 553, 1885, "Input",ExpressionUUID->"67477285-563b-4c0a-80e8-539d67ea9ecf"], +Cell[136596, 3516, 332, 6, 41, "Output",ExpressionUUID->"b3e43271-178f-4a61-ba1b-126582e16685"] }, Open ]], Cell[CellGroupData[{ -Cell[136262, 3589, 25495, 627, 4065, "Input",ExpressionUUID->"5ad6636d-d66a-400a-ba31-879ecfd77c42"], -Cell[161760, 4218, 315, 6, 62, "Output",ExpressionUUID->"263817c8-1067-4391-a9f2-e9cf36c8c975"] +Cell[136965, 3527, 25491, 626, 2078, "Input",ExpressionUUID->"5ad6636d-d66a-400a-ba31-879ecfd77c42"], +Cell[162459, 4155, 337, 6, 41, "Output",ExpressionUUID->"b92385d0-f1fc-4c8a-957d-d0a287a56d9a"] }, Open ]], Cell[CellGroupData[{ -Cell[162112, 4229, 134, 3, 55, "Input",ExpressionUUID->"23fb3a30-4d3b-46d8-bbbd-19d287caef32"], -Cell[162249, 4234, 273, 5, 62, "Output",ExpressionUUID->"7ca6ca88-b06e-45d5-9917-723a5e3801e0"] +Cell[162833, 4166, 130, 2, 36, "Input",ExpressionUUID->"23fb3a30-4d3b-46d8-bbbd-19d287caef32"], +Cell[162966, 4170, 295, 5, 41, "Output",ExpressionUUID->"249f7ef5-f35a-40d0-80e2-7f943737ecb5"] }, Open ]], Cell[CellGroupData[{ -Cell[162559, 4244, 134, 3, 55, "Input",ExpressionUUID->"6d75fe2b-562f-472a-b120-644cefa3cd24"], -Cell[162696, 4249, 275, 5, 62, "Output",ExpressionUUID->"bdbe96b1-5210-43e5-8bb9-fc147a546e6c"] +Cell[163298, 4180, 130, 2, 36, "Input",ExpressionUUID->"6d75fe2b-562f-472a-b120-644cefa3cd24"], +Cell[163431, 4184, 297, 5, 41, "Output",ExpressionUUID->"a4044e71-14e1-4aa5-bc43-185a4fe91660"] }, Open ]], Cell[CellGroupData[{ -Cell[163008, 4259, 1148, 40, 211, "Input",ExpressionUUID->"7977bcdd-7adb-463f-9114-5193396a6062"], -Cell[164159, 4301, 295, 5, 62, "Output",ExpressionUUID->"c6fc3758-3cad-4cda-9146-1d6e0b6e8e49"] +Cell[163765, 4194, 1144, 39, 73, "Input",ExpressionUUID->"7977bcdd-7adb-463f-9114-5193396a6062"], +Cell[164912, 4235, 319, 5, 41, "Output",ExpressionUUID->"09048185-1e88-4bc8-b6fb-307966c5ec5f"] }, Open ]], Cell[CellGroupData[{ -Cell[164491, 4311, 1045, 36, 211, "Input",ExpressionUUID->"1f82598d-042d-4771-afc3-d6ccc1241e2d"], -Cell[165539, 4349, 308, 6, 62, "Output",ExpressionUUID->"df1deea6-e51a-44ab-b894-a4a562919170"] +Cell[165268, 4245, 1041, 35, 73, "Input",ExpressionUUID->"1f82598d-042d-4771-afc3-d6ccc1241e2d"], +Cell[166312, 4282, 330, 6, 41, "Output",ExpressionUUID->"9b958be1-a72b-4c9f-97c1-133466c6122f"] }, Open ]], Cell[CellGroupData[{ -Cell[165884, 4360, 1148, 40, 211, "Input",ExpressionUUID->"49925539-8e44-4e8a-a304-d27778ea5471"], -Cell[167035, 4402, 290, 5, 62, "Output",ExpressionUUID->"45856cf2-be72-46c4-b775-177456dd934c"] +Cell[166679, 4293, 1144, 39, 73, "Input",ExpressionUUID->"49925539-8e44-4e8a-a304-d27778ea5471"], +Cell[167826, 4334, 312, 5, 41, "Output",ExpressionUUID->"f062ee34-fe30-4788-ae27-53b8f7be6c79"] }, Open ]], Cell[CellGroupData[{ -Cell[167362, 4412, 112, 2, 55, "Input",ExpressionUUID->"87cdf76d-dadd-4b04-85cd-63e99a0ddf4c"], -Cell[167477, 4416, 298, 5, 62, "Output",ExpressionUUID->"40909c0b-3fe9-4db8-9b0d-424b68546445"] +Cell[168175, 4344, 108, 1, 36, "Input",ExpressionUUID->"87cdf76d-dadd-4b04-85cd-63e99a0ddf4c"], +Cell[168286, 4347, 320, 5, 41, "Output",ExpressionUUID->"9ad7be33-79c2-4dc7-91c4-c96b8e213886"] }, Open ]], Cell[CellGroupData[{ -Cell[167812, 4426, 112, 2, 55, "Input",ExpressionUUID->"dc4afb41-daf7-4e2b-94cf-ddd8b507975f"], -Cell[167927, 4430, 312, 6, 62, "Output",ExpressionUUID->"a425b2d0-4efa-4e69-83f6-29b81dd91b34"] +Cell[168643, 4357, 108, 1, 36, "Input",ExpressionUUID->"dc4afb41-daf7-4e2b-94cf-ddd8b507975f"], +Cell[168754, 4360, 336, 6, 41, "Output",ExpressionUUID->"fbeb29f9-9bf6-4083-8182-028ebc075c46"] }, Open ]], Cell[CellGroupData[{ -Cell[168276, 4441, 112, 2, 55, "Input",ExpressionUUID->"de4da22e-2958-48a2-8152-8ffe94ed74ce"], -Cell[168391, 4445, 316, 6, 62, "Output",ExpressionUUID->"2ca73151-219e-4ec8-871d-ef1142e6b2ab"] +Cell[169127, 4371, 108, 1, 36, "Input",ExpressionUUID->"de4da22e-2958-48a2-8152-8ffe94ed74ce"], +Cell[169238, 4374, 338, 6, 41, "Output",ExpressionUUID->"4ba1bb99-4f69-4158-ad65-f21e305917aa"] }, Open ]], Cell[CellGroupData[{ -Cell[168744, 4456, 112, 2, 55, "Input",ExpressionUUID->"0ef55228-4105-47db-beaa-55f17eac1a44"], -Cell[168859, 4460, 289, 5, 62, "Output",ExpressionUUID->"c208e07e-5d8b-4886-9604-ec41a9fec21d"] +Cell[169613, 4385, 108, 1, 36, "Input",ExpressionUUID->"0ef55228-4105-47db-beaa-55f17eac1a44"], +Cell[169724, 4388, 311, 5, 41, "Output",ExpressionUUID->"5c5a8aa1-b9ff-41a2-9a52-c9a3a64458a5"] }, Open ]], Cell[CellGroupData[{ -Cell[169185, 4470, 111, 2, 55, "Input",ExpressionUUID->"1779f3c0-544b-49b4-ba5b-40ac26009326"], -Cell[169299, 4474, 298, 5, 62, "Output",ExpressionUUID->"9bac2540-a076-4c33-8e1e-968fe23bef8d"] +Cell[170072, 4398, 107, 1, 36, "Input",ExpressionUUID->"1779f3c0-544b-49b4-ba5b-40ac26009326"], +Cell[170182, 4401, 322, 5, 41, "Output",ExpressionUUID->"3448dd2e-bbc1-4a72-bc8a-a111c9d1745c"] }, Open ]], Cell[CellGroupData[{ -Cell[169634, 4484, 111, 2, 55, "Input",ExpressionUUID->"984b4179-491d-424d-80a2-69e9d88de387"], -Cell[169748, 4488, 297, 5, 62, "Output",ExpressionUUID->"e272e1aa-42c8-4067-b2ae-a410769ea8c7"] +Cell[170541, 4411, 107, 1, 36, "Input",ExpressionUUID->"984b4179-491d-424d-80a2-69e9d88de387"], +Cell[170651, 4414, 319, 5, 41, "Output",ExpressionUUID->"af9adbd8-fe90-467a-8ad4-349a5d71db02"] }, Open ]], Cell[CellGroupData[{ -Cell[170082, 4498, 501, 17, 105, "Input",ExpressionUUID->"fee11733-32af-4a89-9485-97d6a976a647"], -Cell[170586, 4517, 311, 6, 62, "Output",ExpressionUUID->"da695754-1bbc-4f4c-bf01-30455d26d459"] +Cell[171007, 4424, 497, 16, 71, "Input",ExpressionUUID->"fee11733-32af-4a89-9485-97d6a976a647"], +Cell[171507, 4442, 335, 6, 41, "Output",ExpressionUUID->"666fd87f-f27e-49f7-9e3e-7cd0f9f5c786"] }, Open ]], Cell[CellGroupData[{ -Cell[170934, 4528, 501, 17, 105, "Input",ExpressionUUID->"5d2fc11b-7dce-45eb-b28b-5bd1edf42050"], -Cell[171438, 4547, 308, 6, 62, "Output",ExpressionUUID->"b89c4ba2-8ca0-4536-a43b-59bfa4084884"] +Cell[171879, 4453, 497, 16, 71, "Input",ExpressionUUID->"5d2fc11b-7dce-45eb-b28b-5bd1edf42050"], +Cell[172379, 4471, 330, 6, 41, "Output",ExpressionUUID->"c763a2be-c6d7-4a16-a8b2-20d617c76ba1"] }, Open ]], Cell[CellGroupData[{ -Cell[171783, 4558, 1792, 61, 358, "Input",ExpressionUUID->"caa95c66-88cd-43e6-be46-37559a76fff1"], -Cell[173578, 4621, 291, 5, 62, "Output",ExpressionUUID->"4bc302f5-d8e8-4727-9df2-8ee09fe782c2"] +Cell[172746, 4482, 1788, 60, 142, "Input",ExpressionUUID->"caa95c66-88cd-43e6-be46-37559a76fff1"], +Cell[174537, 4544, 313, 5, 41, "Output",ExpressionUUID->"ea2563e6-8faa-4cdc-8e59-5d0f86718861"] }, Open ]], Cell[CellGroupData[{ -Cell[173906, 4631, 1105, 37, 256, "Input",ExpressionUUID->"1b1d8ba0-234b-4e6e-9391-0ae41062e947"], -Cell[175014, 4670, 311, 6, 62, "Output",ExpressionUUID->"0579b556-b3b8-481d-8192-a9eb8edeb71d"] +Cell[174887, 4554, 1101, 36, 73, "Input",ExpressionUUID->"1b1d8ba0-234b-4e6e-9391-0ae41062e947"], +Cell[175991, 4592, 333, 6, 41, "Output",ExpressionUUID->"7121c715-51d9-4aaf-8569-3e1a060ee516"] }, Open ]], Cell[CellGroupData[{ -Cell[175362, 4681, 1822, 62, 313, "Input",ExpressionUUID->"3d2b6824-ba26-4ec3-be0d-851eea74ac0a"], -Cell[177187, 4745, 290, 5, 62, "Output",ExpressionUUID->"74c3e31c-b4ed-46d2-8322-f5e14e68d1bd"] +Cell[176361, 4603, 1818, 61, 144, "Input",ExpressionUUID->"3d2b6824-ba26-4ec3-be0d-851eea74ac0a"], +Cell[178182, 4666, 314, 5, 41, "Output",ExpressionUUID->"81a5ea78-d7c4-498c-a112-a25ec5c65d12"] }, Open ]], Cell[CellGroupData[{ -Cell[177514, 4755, 1714, 56, 260, "Input",ExpressionUUID->"d4246052-e64a-4d05-889d-4691a4517a41"], -Cell[179231, 4813, 294, 5, 62, "Output",ExpressionUUID->"cbb3c230-bc01-447e-8d5f-3313ccf3e9fb"] +Cell[178533, 4676, 1710, 55, 101, "Input",ExpressionUUID->"d4246052-e64a-4d05-889d-4691a4517a41"], +Cell[180246, 4733, 318, 5, 41, "Output",ExpressionUUID->"d8a20062-e2ff-4063-85ff-7bd32b4eb680"] }, Open ]], Cell[CellGroupData[{ -Cell[179562, 4823, 1635, 54, 208, "Input",ExpressionUUID->"4d7a1e80-b9af-4b3f-80b5-d223c4cad807"], -Cell[181200, 4879, 292, 5, 41, "Output",ExpressionUUID->"2db78271-1a14-4ef2-a5eb-675c7dcbc68b"] +Cell[180601, 4743, 1631, 53, 101, "Input",ExpressionUUID->"4d7a1e80-b9af-4b3f-80b5-d223c4cad807"], +Cell[182235, 4798, 313, 5, 41, "Output",ExpressionUUID->"ddb849ce-fcaf-45bd-9003-a057e9b85837"] }, Open ]], -Cell[181507, 4887, 188, 4, 36, "Input",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], -Cell[181698, 4893, 154, 3, 36, "Input",ExpressionUUID->"5965eb10-01f8-5545-9b6f-8fab318cd4b7"], -Cell[181855, 4898, 186, 4, 36, "Input",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], -Cell[182044, 4904, 154, 3, 36, "Input",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], Cell[CellGroupData[{ -Cell[182223, 4911, 1301, 43, 174, "Input",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], -Cell[183527, 4956, 178, 3, 41, "Output",ExpressionUUID->"d7904bcf-fc55-b844-b4d2-059d830f1317"] +Cell[182585, 4808, 207, 3, 36, "Input",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], +Cell[182795, 4813, 160, 2, 41, "Output",ExpressionUUID->"99c867de-26a0-43eb-95fd-442cdecfccbd"] }, Open ]], +Cell[182970, 4818, 173, 2, 36, "Input",ExpressionUUID->"5965eb10-01f8-5545-9b6f-8fab318cd4b7"], Cell[CellGroupData[{ -Cell[183742, 4964, 908, 31, 128, "Input",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], -Cell[184653, 4997, 177, 3, 41, "Output",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] +Cell[183168, 4824, 205, 3, 36, "Input",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], +Cell[183376, 4829, 160, 2, 41, "Output",ExpressionUUID->"df7a4389-53c7-4171-a79c-aa1ba8527d50"] }, Open ]], +Cell[183551, 4834, 173, 2, 36, "Input",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], Cell[CellGroupData[{ -Cell[184867, 5005, 889, 30, 128, "Input",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], -Cell[185759, 5037, 178, 3, 41, "Output",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] +Cell[183749, 4840, 1297, 42, 61, "Input",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], +Cell[185049, 4884, 198, 2, 41, "Output",ExpressionUUID->"f4d1759c-db50-4d8e-949d-fba7a61cc330"] }, Open ]], Cell[CellGroupData[{ -Cell[185974, 5045, 558, 19, 66, "Input",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], -Cell[186535, 5066, 172, 3, 41, "Output",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] +Cell[185284, 4891, 927, 30, 73, "Input",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], +Cell[186214, 4923, 195, 2, 41, "Output",ExpressionUUID->"76e7ea67-7fba-4b94-b766-19333d4ca163"] }, Open ]], Cell[CellGroupData[{ -Cell[186744, 5074, 651, 22, 66, "Input",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], -Cell[187398, 5098, 167, 3, 41, "Output",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] +Cell[186446, 4930, 908, 29, 73, "Input",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], +Cell[187357, 4961, 198, 2, 41, "Output",ExpressionUUID->"4c555676-c8e0-4b4d-a7e5-ff11c82c9c9b"] }, Open ]], Cell[CellGroupData[{ -Cell[187602, 5106, 170, 5, 71, "Input",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], -Cell[187775, 5113, 172, 3, 41, "Output",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +Cell[187592, 4968, 554, 18, 66, "Input",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], +Cell[188149, 4988, 191, 2, 41, "Output",ExpressionUUID->"1be89bdc-a127-4a98-a141-01d102d80da4"] }, Open ]], Cell[CellGroupData[{ -Cell[187984, 5121, 170, 5, 69, "Input",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], -Cell[188157, 5128, 173, 3, 41, "Output",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +Cell[188377, 4995, 647, 21, 66, "Input",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], +Cell[189027, 5018, 190, 2, 41, "Output",ExpressionUUID->"1070a2ed-6e0d-4518-bd26-4f525077ab3e"] }, Open ]], Cell[CellGroupData[{ -Cell[188367, 5136, 181, 5, 55, "Input",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], -Cell[188551, 5143, 171, 3, 41, "Output",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +Cell[189254, 5025, 166, 4, 71, "Input",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], +Cell[189423, 5031, 191, 2, 41, "Output",ExpressionUUID->"fe86902c-e7e8-41c1-b63f-1a7b97478f33"] }, Open ]], Cell[CellGroupData[{ -Cell[188759, 5151, 181, 5, 55, "Input",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], -Cell[188943, 5158, 172, 3, 41, "Output",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +Cell[189651, 5038, 166, 4, 69, "Input",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], +Cell[189820, 5044, 192, 2, 41, "Output",ExpressionUUID->"c9b0a03e-ff46-486c-9ec1-dbbffe605fdb"] }, Open ]], Cell[CellGroupData[{ -Cell[189152, 5166, 6055, 185, 831, "Input",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], -Cell[195210, 5353, 174, 3, 41, "Output",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +Cell[190049, 5051, 177, 4, 55, "Input",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], +Cell[190229, 5057, 189, 2, 41, "Output",ExpressionUUID->"3f88c857-6723-4c12-8a70-ed34ed07ee8f"] }, Open ]], Cell[CellGroupData[{ -Cell[195421, 5361, 368, 9, 53, "Input",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], -Cell[195792, 5372, 172, 3, 41, "Output",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +Cell[190455, 5064, 177, 4, 55, "Input",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], +Cell[190635, 5070, 189, 2, 41, "Output",ExpressionUUID->"2a6fb04d-a662-4b98-8a09-fb567403bc3f"] }, Open ]], Cell[CellGroupData[{ -Cell[196001, 5380, 6122, 187, 900, "Input",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], -Cell[202126, 5569, 175, 3, 41, "Output",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +Cell[190861, 5077, 6051, 184, 431, "Input",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], +Cell[196915, 5263, 193, 2, 41, "Output",ExpressionUUID->"dd397407-5ca2-44c7-97e2-7f12a0fa6f07"] }, Open ]], Cell[CellGroupData[{ -Cell[202338, 5577, 368, 9, 53, "Input",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], -Cell[202709, 5588, 172, 3, 41, "Output",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +Cell[197145, 5270, 364, 8, 53, "Input",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], +Cell[197512, 5280, 191, 2, 41, "Output",ExpressionUUID->"4b10d4db-7ada-4e27-9207-74d0f5188dfb"] }, Open ]], Cell[CellGroupData[{ -Cell[202918, 5596, 2663, 88, 435, "Input",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], -Cell[205584, 5686, 171, 3, 41, "Output",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +Cell[197740, 5287, 6118, 186, 431, "Input",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], +Cell[203861, 5475, 193, 2, 41, "Output",ExpressionUUID->"e310d4cf-f450-47eb-ae89-887434a9044e"] }, Open ]], Cell[CellGroupData[{ -Cell[205792, 5694, 2603, 85, 435, "Input",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], -Cell[208398, 5781, 173, 3, 41, "Output",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +Cell[204091, 5482, 364, 8, 53, "Input",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], +Cell[204458, 5492, 189, 2, 41, "Output",ExpressionUUID->"a698af8a-6c00-4956-8f95-aa7c462c86a1"] }, Open ]], Cell[CellGroupData[{ -Cell[208608, 5789, 3712, 118, 575, "Input",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], -Cell[212323, 5909, 174, 3, 41, "Output",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] +Cell[204684, 5499, 2659, 87, 215, "Input",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], +Cell[207346, 5588, 190, 2, 41, "Output",ExpressionUUID->"cbb5201d-3687-4201-a294-8529df0c4c66"] }, Open ]], -Cell[212512, 5915, 138, 3, 36, "Input",ExpressionUUID->"8111b6bb-cdcb-ad40-9440-412e77bed40d"], Cell[CellGroupData[{ -Cell[212675, 5922, 2054, 59, 276, "Input",ExpressionUUID->"fc88a60e-e348-d344-96c4-1f4f66f53217"], -Cell[214732, 5983, 559, 12, 98, "Message",ExpressionUUID->"0833bd34-3252-a046-9aa3-94c1d6e5cfe9"], -Cell[215294, 5997, 560, 12, 98, "Message",ExpressionUUID->"f24a3618-ee43-704a-86fe-493dbed35e8d"], -Cell[215857, 6011, 565, 12, 98, "Message",ExpressionUUID->"86271901-aa3c-5542-ab18-fc06d3fd3f32"], -Cell[216425, 6025, 456, 10, 32, "Message",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], -Cell[216884, 6037, 170, 3, 41, "Output",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +Cell[207573, 5595, 2599, 84, 215, "Input",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], +Cell[210175, 5681, 193, 2, 41, "Output",ExpressionUUID->"84c9655a-7034-4ef0-b09b-a835468e5e46"] }, Open ]], Cell[CellGroupData[{ -Cell[217091, 6045, 2054, 59, 276, "Input",ExpressionUUID->"dca13eb7-7f94-3e45-81a8-b62dad3009d2"], -Cell[219148, 6106, 559, 12, 98, "Message",ExpressionUUID->"44f2ed65-5109-0141-bef6-eebaeda3d61d"], -Cell[219710, 6120, 559, 12, 98, "Message",ExpressionUUID->"ba49f32e-1ff7-b147-9f42-9c90ccc55447"], -Cell[220272, 6134, 565, 12, 98, "Message",ExpressionUUID->"fa95acf1-55b2-c042-9a9f-32e1ebea5c1e"], -Cell[220840, 6148, 458, 10, 32, "Message",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], -Cell[221301, 6160, 170, 3, 41, "Output",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +Cell[210405, 5688, 3708, 117, 316, "Input",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], +Cell[214116, 5807, 194, 2, 41, "Output",ExpressionUUID->"1e095df4-fe6c-4457-a962-87b23e56a075"] }, Open ]], +Cell[214325, 5812, 160, 3, 36, "Input",ExpressionUUID->"8111b6bb-cdcb-ad40-9440-412e77bed40d"], Cell[CellGroupData[{ -Cell[221508, 6168, 1938, 53, 232, "Input",ExpressionUUID->"46451e4d-f5ef-b246-91c6-4265c9fafb97"], -Cell[223449, 6223, 20207, 379, 295, "Output",ExpressionUUID->"0e6ef056-d4e3-ac4d-9f2a-df071f8decb1"] +Cell[214510, 5819, 2073, 58, 116, "Input",ExpressionUUID->"fc88a60e-e348-d344-96c4-1f4f66f53217"], +Cell[216586, 5879, 664, 14, 53, "Message",ExpressionUUID->"3c70cd11-9931-419b-8758-1de74e48ad1a"], +Cell[217253, 5895, 664, 14, 53, "Message",ExpressionUUID->"b0180274-4bd1-4814-9cc8-d7dac97d9467"], +Cell[217920, 5911, 664, 14, 53, "Message",ExpressionUUID->"da0f8d0d-62a3-4b14-a6a8-c8b6c69de40b"], +Cell[218587, 5927, 491, 11, 32, "Message",ExpressionUUID->"a5b038d0-e3f5-4f9f-bd78-886169f3efc4"], +Cell[219081, 5940, 189, 2, 41, "Output",ExpressionUUID->"ed8f91a5-e2b5-46f7-b066-1304483e7647"] }, Open ]], Cell[CellGroupData[{ -Cell[243693, 6607, 2094, 60, 311, "Input",ExpressionUUID->"06bd0169-a5a6-404c-935d-e1a61565f71e"], -Cell[245790, 6669, 503, 11, 71, "Message",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], -Cell[246296, 6682, 505, 11, 71, "Message",ExpressionUUID->"637082a9-fe74-7345-8895-dee77343ee6f"], -Cell[246804, 6695, 506, 11, 71, "Message",ExpressionUUID->"b2e7262c-7c6d-d94d-a545-ea4b363e579a"], -Cell[247313, 6708, 455, 10, 32, "Message",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], -Cell[247771, 6720, 55770, 961, 290, "Output",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] +Cell[219307, 5947, 2073, 58, 116, "Input",ExpressionUUID->"dca13eb7-7f94-3e45-81a8-b62dad3009d2"], +Cell[221383, 6007, 666, 14, 53, "Message",ExpressionUUID->"73a8a68d-a618-442e-8831-c9f9f368698c"], +Cell[222052, 6023, 664, 14, 53, "Message",ExpressionUUID->"03e26a12-10f8-4664-86ec-1688af7ba40b"], +Cell[222719, 6039, 664, 14, 53, "Message",ExpressionUUID->"027d27ea-fced-4a50-aee7-a3de630ebdc1"], +Cell[223386, 6055, 492, 11, 32, "Message",ExpressionUUID->"5df34ef9-2d35-43b8-be13-24228b647bdd"], +Cell[223881, 6068, 188, 2, 41, "Output",ExpressionUUID->"a4b1b36c-c2c6-46a0-b70b-d200f3871b65"] }, Open ]], -Cell[303556, 7684, 2455, 69, 296, "Input",ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-b938908ab9a4"], -Cell[306014, 7755, 209, 5, 36, "Input",ExpressionUUID->"6b0777bb-40fd-b54e-aa03-b6e82cb2e939"], Cell[CellGroupData[{ -Cell[306248, 7764, 217, 7, 61, "Input",ExpressionUUID->"1ec1e156-ca0f-9240-857c-ac86e3a0e3fd"], -Cell[306468, 7773, 173, 3, 41, "Output",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +Cell[224106, 6075, 2049, 54, 232, "Input",ExpressionUUID->"46451e4d-f5ef-b246-91c6-4265c9fafb97"], +Cell[226158, 6131, 20430, 385, 295, "Output",ExpressionUUID->"831f3c7e-8ccc-42ec-8bec-a4897e96bd28"] }, Open ]], Cell[CellGroupData[{ -Cell[306678, 7781, 1814, 53, 311, "Input",ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-da901e49f6f1"], -Cell[308495, 7836, 506, 11, 71, "Message",ExpressionUUID->"08a2126f-e71c-b94d-8844-15e292a8f7d1"], -Cell[309004, 7849, 508, 11, 71, "Message",ExpressionUUID->"1acf7f10-7675-ea41-b478-94e928ef3377"], -Cell[309515, 7862, 509, 11, 71, "Message",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], -Cell[310027, 7875, 458, 10, 32, "Message",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], -Cell[310488, 7887, 24818, 454, 290, "Output",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] +Cell[246625, 6521, 2113, 59, 311, "Input",ExpressionUUID->"06bd0169-a5a6-404c-935d-e1a61565f71e"], +Cell[248741, 6582, 536, 12, 71, "Message",ExpressionUUID->"73047025-7673-4ae2-bc1e-79cd3667cb1c"], +Cell[249280, 6596, 542, 12, 71, "Message",ExpressionUUID->"5f736add-1e07-4fc8-a677-915c12a44d6f"], +Cell[249825, 6610, 544, 12, 71, "Message",ExpressionUUID->"889fe2a4-d380-49bc-bf51-952606299e5b"], +Cell[250372, 6624, 493, 11, 32, "Message",ExpressionUUID->"81971340-0768-495c-ac1b-8232033cc0da"], +Cell[250868, 6637, 22143, 410, 290, "Output",ExpressionUUID->"b59ebf22-801b-4511-b908-cb213bb3e4c8"] }, Open ]], Cell[CellGroupData[{ -Cell[335343, 8346, 1616, 48, 132, "Input",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], -Cell[336962, 8396, 582, 12, 118, "Message",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], -Cell[337547, 8410, 588, 12, 118, "Message",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], -Cell[338138, 8424, 590, 12, 118, "Message",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], -Cell[338731, 8438, 458, 10, 32, "Message",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], -Cell[339192, 8450, 171, 3, 41, "Output",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] +Cell[273048, 7052, 2477, 69, 296, "Input",ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-b938908ab9a4"], +Cell[275528, 7123, 9492, 222, 298, "Output",ExpressionUUID->"590e12a8-ca65-4435-aa82-1ca6c4fe1fca"] }, Open ]], Cell[CellGroupData[{ -Cell[339400, 8458, 2251, 64, 348, "Input",ExpressionUUID->"0b10f52e-4583-2a4b-993d-96e59dd43e6a"], -Cell[341654, 8524, 557, 12, 98, "Message",ExpressionUUID->"0e308aaf-a4b5-d740-9882-5c338a63d7a7"], -Cell[342214, 8538, 560, 12, 98, "Message",ExpressionUUID->"5e35cc91-e340-c74b-b6dd-42063e8a308b"], -Cell[342777, 8552, 565, 12, 98, "Message",ExpressionUUID->"c3f5c3a9-ece1-e648-aa3a-3f66f2873ea7"], -Cell[343345, 8566, 458, 10, 32, "Message",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], -Cell[343806, 8578, 172, 3, 41, "Output",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] +Cell[285057, 7350, 228, 4, 36, "Input",ExpressionUUID->"6b0777bb-40fd-b54e-aa03-b6e82cb2e939"], +Cell[285288, 7356, 28506, 542, 290, "Output",ExpressionUUID->"4c823b5e-069d-48d7-aaca-211940c2f579"] }, Open ]], Cell[CellGroupData[{ -Cell[344015, 8586, 2218, 64, 81, "Input",ExpressionUUID->"a58948c9-6d3d-e847-a269-d2e0cc5d1484"], -Cell[346236, 8652, 559, 12, 109, "Message",ExpressionUUID->"2247cd70-3ffa-2245-971e-6c6a2bd1ecfc"], -Cell[346798, 8666, 562, 12, 98, "Message",ExpressionUUID->"d9ae7d5b-4e89-a74f-be53-15700ab2593c"], -Cell[347363, 8680, 563, 12, 98, "Message",ExpressionUUID->"821c7ce3-36cc-9549-9881-1225eb1561cf"], -Cell[347929, 8694, 458, 10, 32, "Message",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], -Cell[348390, 8706, 170, 3, 41, "Output",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] +Cell[313831, 7903, 236, 6, 61, "Input",ExpressionUUID->"1ec1e156-ca0f-9240-857c-ac86e3a0e3fd"], +Cell[314070, 7911, 191, 2, 41, "Output",ExpressionUUID->"3d40d0cf-bdfe-4a2d-b275-f23002d60fba"] }, Open ]], Cell[CellGroupData[{ -Cell[348597, 8714, 2221, 64, 348, "Input",ExpressionUUID->"c817b2d1-7deb-5a45-9938-ca10003188eb"], -Cell[350821, 8780, 559, 12, 98, "Message",ExpressionUUID->"3701f96f-691c-9040-a8a1-ff3958638338"], -Cell[351383, 8794, 562, 12, 98, "Message",ExpressionUUID->"9e260603-f97f-ac44-8251-869444fbcc24"], -Cell[351948, 8808, 563, 12, 98, "Message",ExpressionUUID->"f34d60ab-6a89-fd45-89b6-5f3b4b17dd22"], -Cell[352514, 8822, 458, 10, 32, "Message",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], -Cell[352975, 8834, 171, 3, 41, "Output",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] +Cell[314298, 7918, 1833, 52, 311, "Input",ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-da901e49f6f1"], +Cell[316134, 7972, 542, 12, 71, "Message",ExpressionUUID->"28972989-7d32-4a0b-8d9a-4a2a947318d2"], +Cell[316679, 7986, 545, 12, 71, "Message",ExpressionUUID->"f8c07028-1514-4fb9-9124-c0e97bd5f857"], +Cell[317227, 8000, 544, 12, 71, "Message",ExpressionUUID->"42f48e16-1fe0-49dc-ac8e-d5452c1666b9"], +Cell[317774, 8014, 491, 11, 32, "Message",ExpressionUUID->"f6b5f415-8d76-4d77-80f6-9e9b762bc7f1"], +Cell[318268, 8027, 21945, 407, 290, "Output",ExpressionUUID->"1f00eaac-1270-4c79-b0ea-04e853312b1f"] }, Open ]], Cell[CellGroupData[{ -Cell[353183, 8842, 213, 6, 60, "Input",ExpressionUUID->"350334c7-7c47-c24c-8adc-781173809e57"], -Cell[353399, 8850, 173, 3, 41, "Output",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] +Cell[340250, 8439, 1616, 48, 132, "Input",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], +Cell[341869, 8489, 665, 14, 73, "Message",ExpressionUUID->"506144b4-be80-4f70-b3cf-91f1f5d57731"], +Cell[342537, 8505, 665, 14, 73, "Message",ExpressionUUID->"3e5781c1-e224-41e3-81f7-8514b810f5d8"], +Cell[343205, 8521, 668, 14, 73, "Message",ExpressionUUID->"ec94d5d5-ec21-4e40-8c5d-3f42458c107b"], +Cell[343876, 8537, 492, 11, 32, "Message",ExpressionUUID->"63546eaa-5b94-43fb-8fd6-a5b06f9f0d5d"], +Cell[344371, 8550, 192, 3, 41, "Output",ExpressionUUID->"38ee6d54-b018-458e-9142-26ec1e301cc5"] }, Open ]], -Cell[353587, 8856, 245, 5, 36, "Input",ExpressionUUID->"597921e5-69d3-564d-a8fa-092e912c15e0"], Cell[CellGroupData[{ -Cell[353857, 8865, 558, 19, 66, "Input",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], -Cell[354418, 8886, 170, 3, 41, "Output",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] +Cell[344600, 8558, 2274, 64, 348, "Input",ExpressionUUID->"0b10f52e-4583-2a4b-993d-96e59dd43e6a"], +Cell[346877, 8624, 665, 14, 73, "Message",ExpressionUUID->"c4b474aa-567a-4b69-b9a9-7072fe320149"], +Cell[347545, 8640, 665, 14, 73, "Message",ExpressionUUID->"e0540506-4ff4-448c-9101-0c7924e28997"], +Cell[348213, 8656, 665, 14, 73, "Message",ExpressionUUID->"cf0dcec6-d688-4e06-aada-913d73f96d53"], +Cell[348881, 8672, 493, 11, 32, "Message",ExpressionUUID->"a41b2122-7d0f-4c87-8dd0-cc80b5784595"], +Cell[349377, 8685, 193, 3, 41, "Output",ExpressionUUID->"56a9e5d0-4acd-4e25-88f1-7a0a85c3c171"] }, Open ]], Cell[CellGroupData[{ -Cell[354625, 8894, 170, 5, 71, "Input",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], -Cell[354798, 8901, 173, 3, 41, "Output",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] +Cell[349607, 8693, 2230, 63, 348, "Input",ExpressionUUID->"a58948c9-6d3d-e847-a269-d2e0cc5d1484"], +Cell[351840, 8758, 667, 14, 73, "Message",ExpressionUUID->"9411f8ff-2838-4791-9867-683414b5629e"], +Cell[352510, 8774, 667, 14, 73, "Message",ExpressionUUID->"82da7b75-5e00-450c-a7c2-8614a67c1358"], +Cell[353180, 8790, 669, 14, 73, "Message",ExpressionUUID->"2020d9ef-2f0c-4b31-8a7b-d2d5dd205ec6"], +Cell[353852, 8806, 495, 11, 32, "Message",ExpressionUUID->"5c18c0ed-447e-44bd-8076-b20739c72ce7"], +Cell[354350, 8819, 195, 3, 41, "Output",ExpressionUUID->"2c0994ee-2006-4b1e-bdc7-c98c738d5087"] }, Open ]], Cell[CellGroupData[{ -Cell[355008, 8909, 181, 5, 55, "Input",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], -Cell[355192, 8916, 171, 3, 41, "Output",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] +Cell[354582, 8827, 2233, 63, 348, "Input",ExpressionUUID->"c817b2d1-7deb-5a45-9938-ca10003188eb"], +Cell[356818, 8892, 669, 14, 73, "Message",ExpressionUUID->"4c5c9cfd-f81a-4609-aad3-f28a1f17e9f5"], +Cell[357490, 8908, 669, 14, 73, "Message",ExpressionUUID->"32ca0449-96fe-495c-a1f9-300325822a2e"], +Cell[358162, 8924, 667, 14, 73, "Message",ExpressionUUID->"424d6953-26c6-4d2f-8068-d41a8db87e3a"], +Cell[358832, 8940, 495, 11, 32, "Message",ExpressionUUID->"c94bdfef-5e96-4f76-9abf-ea4eab3ec7f5"], +Cell[359330, 8953, 193, 3, 41, "Output",ExpressionUUID->"50fd31bb-ccf0-4233-afe1-eea8457b9357"] }, Open ]], Cell[CellGroupData[{ -Cell[355400, 8924, 6055, 185, 831, "Input",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], -Cell[361458, 9111, 172, 3, 41, "Output",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] +Cell[359560, 8961, 236, 6, 60, "Input",ExpressionUUID->"350334c7-7c47-c24c-8adc-781173809e57"], +Cell[359799, 8969, 193, 3, 41, "Output",ExpressionUUID->"bbe3de61-f24b-4405-a858-fd9311e16996"] }, Open ]], +Cell[360007, 8975, 271, 6, 109, "Input",ExpressionUUID->"597921e5-69d3-564d-a8fa-092e912c15e0"], Cell[CellGroupData[{ -Cell[361667, 9119, 368, 9, 53, "Input",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], -Cell[362038, 9130, 172, 3, 41, "Output",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] +Cell[360303, 8985, 558, 19, 66, "Input",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], +Cell[360864, 9006, 191, 3, 41, "Output",ExpressionUUID->"fd284e02-d84f-4516-b6a3-e96733043229"] }, Open ]], Cell[CellGroupData[{ -Cell[362247, 9138, 6122, 187, 900, "Input",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], -Cell[368372, 9327, 173, 3, 41, "Output",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] +Cell[361092, 9014, 170, 5, 71, "Input",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], +Cell[361265, 9021, 194, 3, 41, "Output",ExpressionUUID->"e1c196cc-47f2-41c8-8869-2ce54193c336"] }, Open ]], Cell[CellGroupData[{ -Cell[368582, 9335, 368, 9, 53, "Input",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], -Cell[368953, 9346, 170, 3, 41, "Output",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] +Cell[361496, 9029, 181, 5, 55, "Input",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], +Cell[361680, 9036, 195, 3, 41, "Output",ExpressionUUID->"6e17e5f7-a86b-4e51-ab8c-4facd2697e76"] }, Open ]], Cell[CellGroupData[{ -Cell[369160, 9354, 2663, 88, 435, "Input",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], -Cell[371826, 9444, 171, 3, 41, "Output",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] +Cell[361912, 9044, 6055, 185, 831, "Input",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], +Cell[367970, 9231, 196, 3, 41, "Output",ExpressionUUID->"7031619b-fdf9-4791-8bfc-d889c2879764"] }, Open ]], Cell[CellGroupData[{ -Cell[372034, 9452, 2603, 85, 435, "Input",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], -Cell[374640, 9539, 173, 3, 41, "Output",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] +Cell[368203, 9239, 368, 9, 53, "Input",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], +Cell[368574, 9250, 195, 3, 41, "Output",ExpressionUUID->"4bc5157c-86ae-44cb-9257-b685114150aa"] }, Open ]], Cell[CellGroupData[{ -Cell[374850, 9547, 3712, 118, 575, "Input",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], -Cell[378565, 9667, 174, 3, 41, "Output",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] +Cell[368806, 9258, 6122, 187, 900, "Input",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], +Cell[374931, 9447, 196, 3, 41, "Output",ExpressionUUID->"b5772289-a512-4532-88fe-c0597b328ae9"] }, Open ]], Cell[CellGroupData[{ -Cell[378776, 9675, 2049, 58, 276, "Input",ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], -Cell[380828, 9735, 579, 12, 98, "Message",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], -Cell[381410, 9749, 582, 12, 98, "Message",ExpressionUUID->"dda5376f-614c-1846-a3e1-09857b4bcae6"], -Cell[381995, 9763, 584, 12, 118, "Message",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], -Cell[382582, 9777, 458, 10, 32, "Message",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], -Cell[383043, 9789, 172, 3, 41, "Output",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] +Cell[375164, 9455, 368, 9, 53, "Input",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], +Cell[375535, 9466, 191, 3, 41, "Output",ExpressionUUID->"aa910f34-61d4-48db-bc16-2924f3d218cf"] }, Open ]], Cell[CellGroupData[{ -Cell[383252, 9797, 2054, 59, 276, "Input",ExpressionUUID->"baacd3f7-96e4-2949-b9f9-9afb90e551d9"], -Cell[385309, 9858, 577, 12, 98, "Message",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], -Cell[385889, 9872, 580, 12, 98, "Message",ExpressionUUID->"b91abb11-65b8-3b43-a495-4cb1457edd27"], -Cell[386472, 9886, 583, 12, 118, "Message",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], -Cell[387058, 9900, 456, 10, 32, "Message",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], -Cell[387517, 9912, 171, 3, 41, "Output",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] +Cell[375763, 9474, 2663, 88, 435, "Input",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], +Cell[378429, 9564, 194, 3, 41, "Output",ExpressionUUID->"afe7f624-72c1-48fb-880d-1feddf213f85"] }, Open ]], Cell[CellGroupData[{ -Cell[387725, 9920, 2030, 55, 232, "Input",ExpressionUUID->"ea08a5a9-d446-9147-ba82-e3924f732df2"], -Cell[389758, 9977, 20493, 384, 295, "Output",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] +Cell[378660, 9572, 2603, 85, 435, "Input",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], +Cell[381266, 9659, 197, 3, 41, "Output",ExpressionUUID->"22b51f28-05a9-4ad9-a1e7-0abbf28ab53b"] }, Open ]], Cell[CellGroupData[{ -Cell[410288, 10366, 2120, 60, 109, "Input",ExpressionUUID->"42ddbf41-0bd8-b749-bead-56c89a9b7467"], -Cell[412411, 10428, 501, 11, 71, "Message",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], -Cell[412915, 10441, 504, 11, 71, "Message",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], -Cell[413422, 10454, 508, 11, 71, "Message",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], -Cell[413933, 10467, 456, 10, 32, "Message",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], -Cell[414392, 10479, 31462, 562, 290, "Output",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] +Cell[381500, 9667, 3712, 118, 575, "Input",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], +Cell[385215, 9787, 195, 3, 41, "Output",ExpressionUUID->"404a800a-08c6-44cf-a6cc-53e5371abc80"] }, Open ]], -Cell[445869, 11044, 209, 5, 36, "Input",ExpressionUUID->"6883477e-2a54-0a45-979a-ae60c73e9e82"], Cell[CellGroupData[{ -Cell[446103, 11053, 1616, 48, 132, "Input",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], -Cell[447722, 11103, 596, 12, 118, "Message",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], -Cell[448321, 11117, 602, 12, 118, "Message",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], -Cell[448926, 11131, 605, 12, 118, "Message",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], -Cell[449534, 11145, 458, 10, 32, "Message",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], -Cell[449995, 11157, 171, 3, 41, "Output",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] +Cell[385447, 9795, 2074, 59, 276, "Input",ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], +Cell[387524, 9856, 667, 14, 73, "Message",ExpressionUUID->"d5d00a7d-5afb-4bcb-9baa-66bdad60987a"], +Cell[388194, 9872, 670, 14, 73, "Message",ExpressionUUID->"60b24f01-ef06-468a-9598-9c3cfc4cdea5"], +Cell[388867, 9888, 669, 14, 73, "Message",ExpressionUUID->"09a7e9ae-537d-49a9-b0ed-6e838adfe891"], +Cell[389539, 9904, 495, 11, 32, "Message",ExpressionUUID->"93340569-ba3f-4f65-86fe-f9ebb92abc22"], +Cell[390037, 9917, 193, 3, 41, "Output",ExpressionUUID->"2946db29-964e-4072-b850-931b52c0ab5c"] }, Open ]], Cell[CellGroupData[{ -Cell[450203, 11165, 2251, 64, 348, "Input",ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-2a98ba29b602"], -Cell[452457, 11231, 577, 12, 98, "Message",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], -Cell[453037, 11245, 580, 12, 98, "Message",ExpressionUUID->"bbc1c804-e094-2b49-bceb-c837038552fa"], -Cell[453620, 11259, 586, 12, 118, "Message",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], -Cell[454209, 11273, 458, 10, 32, "Message",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], -Cell[454670, 11285, 173, 3, 41, "Output",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] +Cell[390267, 9925, 2077, 59, 276, "Input",ExpressionUUID->"baacd3f7-96e4-2949-b9f9-9afb90e551d9"], +Cell[392347, 9986, 665, 14, 73, "Message",ExpressionUUID->"4892d3a3-7177-460d-8a79-91bb63016afe"], +Cell[393015, 10002, 666, 14, 73, "Message",ExpressionUUID->"54ed4b9e-28b8-4563-a772-86d6da78c692"], +Cell[393684, 10018, 665, 14, 73, "Message",ExpressionUUID->"e22e22a1-24d9-44df-8e3a-8eb0bb0182f5"], +Cell[394352, 10034, 493, 11, 32, "Message",ExpressionUUID->"8e4996ff-9c60-46ae-8dde-4c819117ff44"], +Cell[394848, 10047, 194, 3, 41, "Output",ExpressionUUID->"20d38484-6b60-41e7-9294-54d05035ec8e"] }, Open ]], Cell[CellGroupData[{ -Cell[454880, 11293, 2219, 64, 348, "Input",ExpressionUUID->"edfdd675-c60b-304e-9e16-68452b971319"], -Cell[457102, 11359, 579, 12, 71, "Message",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], -Cell[457684, 11373, 580, 12, 98, "Message",ExpressionUUID->"7911ebc5-127d-5841-a246-fcff3e2e3d7f"], -Cell[458267, 11387, 586, 12, 118, "Message",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], -Cell[458856, 11401, 458, 10, 32, "Message",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], -Cell[459317, 11413, 171, 3, 41, "Output",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] +Cell[395079, 10055, 2053, 55, 232, "Input",ExpressionUUID->"ea08a5a9-d446-9147-ba82-e3924f732df2"], +Cell[397135, 10112, 20520, 386, 295, "Output",ExpressionUUID->"e152fb4c-1cbc-4b01-a994-2d11332f4788"] }, Open ]], Cell[CellGroupData[{ -Cell[459525, 11421, 2219, 64, 348, "Input",ExpressionUUID->"d0469d46-2e74-494a-be85-b41cb2f3fa92"], -Cell[461747, 11487, 576, 12, 109, "Message",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], -Cell[462326, 11501, 580, 12, 98, "Message",ExpressionUUID->"05cc4b97-7653-f04b-8664-f56b3128e201"], -Cell[462909, 11515, 584, 12, 118, "Message",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], -Cell[463496, 11529, 458, 10, 32, "Message",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], -Cell[463957, 11541, 173, 3, 41, "Output",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] +Cell[417692, 10503, 2143, 60, 311, "Input",ExpressionUUID->"42ddbf41-0bd8-b749-bead-56c89a9b7467"], +Cell[419838, 10565, 534, 12, 71, "Message",ExpressionUUID->"7d685208-cb97-4e55-878d-82b1bca3135d"], +Cell[420375, 10579, 538, 12, 71, "Message",ExpressionUUID->"5223b29f-9896-4514-b08f-f5ae717ebfe5"], +Cell[420916, 10593, 541, 12, 71, "Message",ExpressionUUID->"f81c7d86-f036-4587-bf59-8843bf6ac77f"], +Cell[421460, 10607, 493, 11, 32, "Message",ExpressionUUID->"04cff1e3-771b-4424-b69a-5277c6725919"], +Cell[421956, 10620, 22261, 414, 290, "Output",ExpressionUUID->"4555ab54-ddb4-4e2a-8a52-4fc759a3d4e4"] }, Open ]], Cell[CellGroupData[{ -Cell[464167, 11549, 212, 6, 60, "Input",ExpressionUUID->"58b5e243-0972-1946-bd17-aca0f3e8a35b"], -Cell[464382, 11557, 172, 3, 41, "Output",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] +Cell[444254, 11039, 232, 5, 36, "Input",ExpressionUUID->"6883477e-2a54-0a45-979a-ae60c73e9e82"], +Cell[444489, 11046, 28621, 546, 290, "Output",ExpressionUUID->"01d9ae2a-6923-4146-81c4-81a60143b556"] }, Open ]], -Cell[464569, 11563, 244, 5, 36, "Input",ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-a3711ba632a4"], Cell[CellGroupData[{ -Cell[464838, 11572, 558, 19, 66, "Input",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], -Cell[465399, 11593, 171, 3, 41, "Output",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] +Cell[473147, 11597, 1616, 48, 132, "Input",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], +Cell[474766, 11647, 665, 14, 73, "Message",ExpressionUUID->"723c1025-9e2f-44ea-ab69-d2b230cbb72c"], +Cell[475434, 11663, 667, 14, 73, "Message",ExpressionUUID->"06204c97-d214-4a05-9426-ac36e9150231"], +Cell[476104, 11679, 667, 14, 73, "Message",ExpressionUUID->"4a523c4b-7eeb-472d-8198-8152bb6c9ca1"], +Cell[476774, 11695, 495, 11, 32, "Message",ExpressionUUID->"d18e0612-25e1-41b1-bd33-7cceff166fdb"], +Cell[477272, 11708, 193, 3, 41, "Output",ExpressionUUID->"16e19a0e-578c-48ae-89e1-e935ad407df7"] }, Open ]], Cell[CellGroupData[{ -Cell[465607, 11601, 170, 5, 71, "Input",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], -Cell[465780, 11608, 171, 3, 41, "Output",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] +Cell[477502, 11716, 2274, 64, 348, "Input",ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-2a98ba29b602"], +Cell[479779, 11782, 665, 14, 73, "Message",ExpressionUUID->"11e40a85-6bfb-41ee-9fbe-8cc0fd94c7bc"], +Cell[480447, 11798, 666, 14, 73, "Message",ExpressionUUID->"4dfaa9e2-4299-4a82-b75b-7402ccd23e9f"], +Cell[481116, 11814, 665, 14, 73, "Message",ExpressionUUID->"d9e42840-7ba7-4705-aebc-1918dd9fbcdd"], +Cell[481784, 11830, 493, 11, 32, "Message",ExpressionUUID->"b51446d6-efc3-41b8-8e73-3394eda58913"], +Cell[482280, 11843, 195, 3, 41, "Output",ExpressionUUID->"63f963c7-b6de-495d-ae7d-ed7ae651c915"] }, Open ]], Cell[CellGroupData[{ -Cell[465988, 11616, 181, 5, 55, "Input",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], -Cell[466172, 11623, 173, 3, 41, "Output",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] +Cell[482512, 11851, 2231, 63, 348, "Input",ExpressionUUID->"edfdd675-c60b-304e-9e16-68452b971319"], +Cell[484746, 11916, 665, 14, 73, "Message",ExpressionUUID->"b53ebb8e-c596-4d5b-bf9f-77b04839b98c"], +Cell[485414, 11932, 668, 14, 73, "Message",ExpressionUUID->"63740ad5-c898-45be-b78c-b2c8e80d59eb"], +Cell[486085, 11948, 669, 14, 73, "Message",ExpressionUUID->"df705c78-4f7f-4fbc-ba41-894d7f4e405a"], +Cell[486757, 11964, 495, 11, 32, "Message",ExpressionUUID->"19ad8cb5-3423-48e8-a823-0b561bf27672"], +Cell[487255, 11977, 195, 3, 41, "Output",ExpressionUUID->"0d4ca74d-cf30-479e-ac4f-f7b3a2db6318"] }, Open ]], Cell[CellGroupData[{ -Cell[466382, 11631, 6055, 185, 831, "Input",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], -Cell[472440, 11818, 173, 3, 41, "Output",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] +Cell[487487, 11985, 2231, 63, 348, "Input",ExpressionUUID->"d0469d46-2e74-494a-be85-b41cb2f3fa92"], +Cell[489721, 12050, 664, 14, 73, "Message",ExpressionUUID->"b4ca2a85-a869-46ec-9d48-13d6d682f282"], +Cell[490388, 12066, 665, 14, 73, "Message",ExpressionUUID->"9094b7cb-3e39-4ef4-8a1c-cbdb4ae2f673"], +Cell[491056, 12082, 666, 14, 73, "Message",ExpressionUUID->"bf2de4ea-cd84-4e7a-bc3b-cf02a8f39fa4"], +Cell[491725, 12098, 492, 11, 32, "Message",ExpressionUUID->"6560987d-2a6c-4055-aac7-82ed580db3fb"], +Cell[492220, 12111, 193, 3, 41, "Output",ExpressionUUID->"8b1b75ea-9c66-4b83-aa96-94d15f162769"] }, Open ]], Cell[CellGroupData[{ -Cell[472650, 11826, 368, 9, 53, "Input",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], -Cell[473021, 11837, 172, 3, 41, "Output",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] +Cell[492450, 12119, 235, 6, 60, "Input",ExpressionUUID->"58b5e243-0972-1946-bd17-aca0f3e8a35b"], +Cell[492688, 12127, 196, 3, 41, "Output",ExpressionUUID->"56fa120f-31c0-4dfe-ad4e-1ca55a16b9f5"] }, Open ]], +Cell[492899, 12133, 270, 6, 109, "Input",ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-a3711ba632a4"], Cell[CellGroupData[{ -Cell[473230, 11845, 6122, 187, 900, "Input",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], -Cell[479355, 12034, 173, 3, 41, "Output",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] +Cell[493194, 12143, 558, 19, 66, "Input",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], +Cell[493755, 12164, 193, 3, 41, "Output",ExpressionUUID->"da464f37-8810-43ab-acd7-d0af44eada2b"] }, Open ]], Cell[CellGroupData[{ -Cell[479565, 12042, 368, 9, 53, "Input",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], -Cell[479936, 12053, 172, 3, 41, "Output",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] +Cell[493985, 12172, 170, 5, 71, "Input",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], +Cell[494158, 12179, 195, 3, 41, "Output",ExpressionUUID->"0fc43ed2-cb1b-4e7c-a39e-08da721f328e"] }, Open ]], Cell[CellGroupData[{ -Cell[480145, 12061, 2663, 88, 435, "Input",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], -Cell[482811, 12151, 173, 3, 41, "Output",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] +Cell[494390, 12187, 181, 5, 55, "Input",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], +Cell[494574, 12194, 194, 3, 41, "Output",ExpressionUUID->"94c70551-1d24-4e97-9d64-abfaedce5f55"] }, Open ]], Cell[CellGroupData[{ -Cell[483021, 12159, 2603, 85, 435, "Input",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], -Cell[485627, 12246, 171, 3, 41, "Output",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] +Cell[494805, 12202, 6055, 185, 831, "Input",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], +Cell[500863, 12389, 196, 3, 41, "Output",ExpressionUUID->"8fb11bb3-983c-4aee-a811-a3fde7bde249"] }, Open ]], Cell[CellGroupData[{ -Cell[485835, 12254, 3712, 118, 575, "Input",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], -Cell[489550, 12374, 174, 3, 109, "Output",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] +Cell[501096, 12397, 368, 9, 53, "Input",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], +Cell[501467, 12408, 196, 3, 41, "Output",ExpressionUUID->"64ea0d19-911b-4cc3-ade1-4fe8832dcb00"] }, Open ]], Cell[CellGroupData[{ -Cell[489761, 12382, 2054, 59, 109, "Input",ExpressionUUID->"ba508068-6b78-254c-87d6-cf1adc0753dd"], -Cell[491818, 12443, 574, 12, 109, "Message",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], -Cell[492395, 12457, 580, 12, 98, "Message",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], -Cell[492978, 12471, 580, 12, 98, "Message",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], -Cell[493561, 12485, 456, 10, 32, "Message",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], -Cell[494020, 12497, 172, 3, 41, "Output",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] +Cell[501700, 12416, 6122, 187, 900, "Input",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], +Cell[507825, 12605, 194, 3, 41, "Output",ExpressionUUID->"5d226ced-ab91-4813-89b6-f89c868773cd"] }, Open ]], Cell[CellGroupData[{ -Cell[494229, 12505, 2054, 59, 276, "Input",ExpressionUUID->"842e33e4-ae06-f746-ab8b-97489285cc9c"], -Cell[496286, 12566, 576, 12, 109, "Message",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], -Cell[496865, 12580, 577, 12, 109, "Message",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], -Cell[497445, 12594, 582, 12, 98, "Message",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], -Cell[498030, 12608, 458, 10, 32, "Message",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], -Cell[498491, 12620, 172, 3, 41, "Output",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] +Cell[508056, 12613, 368, 9, 53, "Input",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], +Cell[508427, 12624, 194, 3, 41, "Output",ExpressionUUID->"4d19229c-efb8-4333-99ce-58d7a8cfa733"] }, Open ]], Cell[CellGroupData[{ -Cell[498700, 12628, 2028, 55, 232, "Input",ExpressionUUID->"b2e314f8-a6f0-6942-a94c-5ac1cacd7190"], -Cell[500731, 12685, 20021, 378, 109, "Output",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] +Cell[508658, 12632, 2663, 88, 435, "Input",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], +Cell[511324, 12722, 196, 3, 41, "Output",ExpressionUUID->"8355dc46-a7a1-405c-b0d6-3c1a8c2e237f"] }, Open ]], Cell[CellGroupData[{ -Cell[520789, 13068, 2146, 61, 311, "Input",ExpressionUUID->"497f9779-a3e4-c84e-a207-0aac70483e3c"], -Cell[522938, 13131, 502, 11, 71, "Message",ExpressionUUID->"56dc07a7-05cc-424a-8fff-08f056385a44"], -Cell[523443, 13144, 506, 11, 71, "Message",ExpressionUUID->"71ae3883-d346-164c-9764-dc57f6863817"], -Cell[523952, 13157, 508, 11, 71, "Message",ExpressionUUID->"16c86d51-9f27-3c48-b312-93c489e538a4"], -Cell[524463, 13170, 456, 10, 32, "Message",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], -Cell[524922, 13182, 30030, 538, 290, "Output",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] +Cell[511557, 12730, 2603, 85, 435, "Input",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], +Cell[514163, 12817, 193, 3, 41, "Output",ExpressionUUID->"670e298a-8fef-40e8-9ea5-f837a77f5874"] }, Open ]], -Cell[554967, 13723, 209, 5, 36, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], Cell[CellGroupData[{ -Cell[555201, 13732, 1590, 47, 132, "Input",ExpressionUUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], -Cell[556794, 13781, 342, 6, 26, "Message",ExpressionUUID->"9e6d6a70-ad75-9b40-8a0b-ca802f09d5a2"], -Cell[557139, 13789, 101, 0, 41, "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +Cell[514393, 12825, 3712, 118, 575, "Input",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], +Cell[518108, 12945, 196, 3, 41, "Output",ExpressionUUID->"cabd2347-99cf-4413-92be-c64fdbe39bcc"] }, Open ]], Cell[CellGroupData[{ -Cell[557277, 13794, 2249, 64, 348, "Input",ExpressionUUID->"a3e3d205-e3b4-874a-a36c-53cfa72184b4"], -Cell[559529, 13860, 342, 6, 26, "Message",ExpressionUUID->"9e9d949e-1d4c-8649-8d0e-b7deecfb3ba4"], -Cell[559874, 13868, 342, 6, 26, "Message",ExpressionUUID->"76f8ef60-aab6-7442-aeca-4cebad23cb0e"], -Cell[560219, 13876, 101, 0, 41, "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +Cell[518341, 12953, 2077, 59, 276, "Input",ExpressionUUID->"ba508068-6b78-254c-87d6-cf1adc0753dd"], +Cell[520421, 13014, 667, 14, 73, "Message",ExpressionUUID->"593c5d25-8a34-435f-b6f3-a7bbf5025801"], +Cell[521091, 13030, 668, 14, 73, "Message",ExpressionUUID->"38597b4d-e4fe-47d7-b881-0ccb298a09ea"], +Cell[521762, 13046, 665, 14, 73, "Message",ExpressionUUID->"f740c74a-ba1a-42f7-8005-e5d3b4bb5130"], +Cell[522430, 13062, 493, 11, 32, "Message",ExpressionUUID->"bedc7a27-e7ba-47ec-9590-6e032ac324e5"], +Cell[522926, 13075, 195, 3, 41, "Output",ExpressionUUID->"e96e1e6e-d865-4abb-b0c7-11e4d3771839"] }, Open ]], Cell[CellGroupData[{ -Cell[560357, 13881, 2221, 64, 348, "Input",ExpressionUUID->"6977f025-454e-0e4a-b118-07bad9ba3e82"], -Cell[562581, 13947, 342, 6, 26, "Message",ExpressionUUID->"566a849f-fc85-4d42-a545-a46d44cf7346"], -Cell[562926, 13955, 342, 6, 26, "Message",ExpressionUUID->"fb1cb4d6-a504-e445-bb52-7946e1bca3c6"], -Cell[563271, 13963, 100, 0, 41, "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +Cell[523158, 13083, 2077, 59, 276, "Input",ExpressionUUID->"842e33e4-ae06-f746-ab8b-97489285cc9c"], +Cell[525238, 13144, 669, 14, 73, "Message",ExpressionUUID->"6a0ee948-8190-47f1-b420-0062055d39e3"], +Cell[525910, 13160, 668, 14, 73, "Message",ExpressionUUID->"0668773d-6a3b-4cf4-b72b-318176e22920"], +Cell[526581, 13176, 667, 14, 73, "Message",ExpressionUUID->"a96f32ba-41e4-451d-b506-605f2b8d02da"], +Cell[527251, 13192, 495, 11, 32, "Message",ExpressionUUID->"da3bf9f0-d71b-4260-865b-fc0a922e1060"], +Cell[527749, 13205, 193, 3, 41, "Output",ExpressionUUID->"7be84648-0300-4083-8bf3-0154cb2c1dc9"] }, Open ]], Cell[CellGroupData[{ -Cell[563408, 13968, 2223, 64, 348, "Input",ExpressionUUID->"df8ecb01-788a-604d-b773-f29bb610eb30"], -Cell[565634, 14034, 342, 6, 26, "Message",ExpressionUUID->"f9e34ec5-1462-b340-b2e7-8e875dd33d28"], -Cell[565979, 14042, 342, 6, 26, "Message",ExpressionUUID->"19ffb858-7059-2a48-a3db-e2d0dfcf2131"], -Cell[566324, 14050, 101, 0, 41, "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +Cell[527979, 13213, 2051, 55, 232, "Input",ExpressionUUID->"b2e314f8-a6f0-6942-a94c-5ac1cacd7190"], +Cell[530033, 13270, 20294, 382, 295, "Output",ExpressionUUID->"a304e770-dfe8-4a65-a278-eb97d46f8d03"] }, Open ]], Cell[CellGroupData[{ -Cell[566462, 14055, 213, 6, 60, "Input",ExpressionUUID->"54a5e329-20bd-e742-afe8-d2cfa007cfcf"], -Cell[566678, 14063, 102, 0, 41, "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] +Cell[550364, 13657, 2168, 61, 311, "Input",ExpressionUUID->"497f9779-a3e4-c84e-a207-0aac70483e3c"], +Cell[552535, 13720, 536, 12, 71, "Message",ExpressionUUID->"e78f880a-a8aa-412e-adc5-280ad667df40"], +Cell[553074, 13734, 541, 12, 71, "Message",ExpressionUUID->"59734ed7-7474-405b-b656-6e448fe8d7d7"], +Cell[553618, 13748, 544, 12, 71, "Message",ExpressionUUID->"71426442-573c-4c9f-8adb-f51a3963c908"], +Cell[554165, 13762, 494, 11, 32, "Message",ExpressionUUID->"1d3f0f1c-4d76-4ed5-863c-6f03a9aad1ad"], +Cell[554662, 13775, 22043, 408, 290, "Output",ExpressionUUID->"8e48ca62-4b3e-49c3-b4c1-6a8244c7a521"] }, Open ]], -Cell[566795, 14066, 185, 4, 36, "Input",ExpressionUUID->"6328874d-704c-46e4-bf50-43b34d3da068"] +Cell[CellGroupData[{ +Cell[576742, 14188, 232, 5, 36, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], +Cell[576977, 14195, 28405, 540, 290, "Output",ExpressionUUID->"cb1dce16-d472-423e-b0b3-0b2f8f0b1834"] +}, Open ]], +Cell[CellGroupData[{ +Cell[605419, 14740, 1616, 48, 132, "Input",ExpressionUUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], +Cell[607038, 14790, 643, 14, 73, "Message",ExpressionUUID->"89b8cf2a-4997-46af-aaef-e295d38af78f"], +Cell[607684, 14806, 644, 14, 73, "Message",ExpressionUUID->"7d6a0900-cdbf-4670-903d-e818fdd84bd0"], +Cell[608331, 14822, 646, 14, 73, "Message",ExpressionUUID->"59832163-70f5-424f-8c36-76d0195b89bf"], +Cell[608980, 14838, 473, 11, 32, "Message",ExpressionUUID->"c1c5cac6-7045-4d4a-a57e-9de7cb1a980b"], +Cell[609456, 14851, 170, 3, 41, "Output",ExpressionUUID->"a31ed038-469b-48ba-bb27-cb2722cc60d5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[609663, 14859, 2272, 64, 348, "Input",ExpressionUUID->"a3e3d205-e3b4-874a-a36c-53cfa72184b4"], +Cell[611938, 14925, 645, 14, 73, "Message",ExpressionUUID->"26373ec4-fbbb-42c5-8ec4-816a776d24bb"], +Cell[612586, 14941, 644, 14, 73, "Message",ExpressionUUID->"2d3cc4df-1465-4340-a4a7-aaee30c536e4"], +Cell[613233, 14957, 643, 14, 73, "Message",ExpressionUUID->"e92d8ec6-d58e-49d4-be9e-a14d495371e6"], +Cell[613879, 14973, 471, 11, 32, "Message",ExpressionUUID->"2e9ff3b9-6f16-44bd-b1bf-8f78edcea419"], +Cell[614353, 14986, 172, 3, 41, "Output",ExpressionUUID->"d3eb49fe-c418-4c95-bacc-95befe17d677"] +}, Open ]], +Cell[CellGroupData[{ +Cell[614562, 14994, 2233, 63, 348, "Input",ExpressionUUID->"6977f025-454e-0e4a-b118-07bad9ba3e82"], +Cell[616798, 15059, 645, 14, 73, "Message",ExpressionUUID->"9f006b30-e811-4e91-803c-d36d27054587"], +Cell[617446, 15075, 644, 14, 73, "Message",ExpressionUUID->"5117ea6d-99fc-4fa4-a551-dbba5b3f4a4f"], +Cell[618093, 15091, 645, 14, 73, "Message",ExpressionUUID->"d5bcac1e-e8a8-4ae3-ac4f-efba11391b6d"], +Cell[618741, 15107, 471, 11, 32, "Message",ExpressionUUID->"688d6274-c153-420f-a343-3e8d7da6698c"], +Cell[619215, 15120, 169, 3, 41, "Output",ExpressionUUID->"2c8ab818-915f-4c5d-9390-228f57f52176"] +}, Open ]], +Cell[CellGroupData[{ +Cell[619421, 15128, 2235, 63, 348, "Input",ExpressionUUID->"df8ecb01-788a-604d-b773-f29bb610eb30"], +Cell[621659, 15193, 645, 14, 73, "Message",ExpressionUUID->"72c0b847-13ff-407b-beea-bbee75ff9b4b"], +Cell[622307, 15209, 646, 14, 73, "Message",ExpressionUUID->"5e222bb2-bce5-49d2-8ae6-30994e54f8e6"], +Cell[622956, 15225, 643, 14, 73, "Message",ExpressionUUID->"a6ac82dc-3070-49b3-97a9-edae12c7eea6"], +Cell[623602, 15241, 471, 11, 32, "Message",ExpressionUUID->"8be1b1a7-a774-41b6-b465-7a90c8ede7f5"], +Cell[624076, 15254, 171, 3, 41, "Output",ExpressionUUID->"d1c251ec-1ba4-4606-b539-c4e0cabbadca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[624284, 15262, 236, 6, 60, "Input",ExpressionUUID->"54a5e329-20bd-e742-afe8-d2cfa007cfcf"], +Cell[624523, 15270, 172, 3, 41, "Output",ExpressionUUID->"8c0526fb-ba41-4a6a-bcb0-17e8c6f87aca"] +}, Open ]], +Cell[624710, 15276, 208, 4, 109, "Input",ExpressionUUID->"6328874d-704c-46e4-bf50-43b34d3da068"] } ] *) diff --git a/automation/decompress.py b/automation/decompress.py new file mode 100644 index 0000000..cbc7ee9 --- /dev/null +++ b/automation/decompress.py @@ -0,0 +1,56 @@ +import base64 +import zlib + + +def decompress_wolfram_data(compressed_str: str) -> str: + """Декодирует и распаковывает строку CompressedData из Wolfram Mathematica.""" + # 1. Удаляем пробелы, переносы строк и префикс версии (например, "1:") + cleaned_str = "".join(compressed_str.split()) + if ":" in cleaned_str: + cleaned_str = cleaned_str.split(":", 1)[1] + + # 2. Алфавиты: Wolfram использует отличный от стандартного Base64 набор символов + # Стандартный: 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/' + wolfram_alphabet = ( + "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789+/" + ) + standard_alphabet = ( + "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" + ) + + # Создаем таблицу перевода символов из Wolfram в стандартный Base64 + translation_table = str.maketrans(wolfram_alphabet, standard_alphabet) + standard_b64_str = cleaned_str.translate(translation_table) + + # 3. Добавляем паддинг '=', если длина строки не кратна 4 + padding_needed = len(standard_b64_str) % 4 + if padding_needed: + standard_b64_str += "=" * (4 - padding_needed) + + # 4. Декодируем из Base64 в байты + binary_data = base64.b64decode(standard_b64_str) + + # 5. Распаковываем с помощью zlib (алгоритм Deflate) + decompressed_bytes = zlib.decompress(binary_data) + + # Возвращаем результат в виде текстовой строки + return decompressed_bytes.decode("utf-8", errors="ignore") + + +# === ПРИМЕР ИСПОЛЬЗОВАНИЯ === +if __name__ == "__main__": + # Пример сжатой строки из Mathematica (результат Compress["Hello World! This is Wolfram compression."]) + wolfram_data = """ + 1:eJxVjDEOwjAMRaGSgYmJgYmBiaUrV65wAsbChMTgAtS9W9SptfS97+f79Wev + bX6fLhXF6Kx0Y9WSpM/fXstxmsv9uE3p2SgUizWclE3Z6p38g2bE9Y6g8w2VgG6A + """ + wolfram_data = input("Enter wolfram compressed data string:\n") + + try: + result = decompress_wolfram_data(wolfram_data) + print("Успешно распаковано!") + print("-" * 30) + print(result) + print("-" * 30) + except Exception as e: + print(f"Ошибка при распаковке: {e}") diff --git a/automation/fill_table_from_nb.py b/automation/fill_table_from_nb.py new file mode 100755 index 0000000..411cb7a --- /dev/null +++ b/automation/fill_table_from_nb.py @@ -0,0 +1,519 @@ +#!/usr/bin/env python3 +"""Заполнение Excel-шаблона результатами из Mathematica Notebook (.nb). + +Пример: + python fill_table_from_nb.py \ + --template table_template.xlsx \ + --notebooks h_174-66_Pu240_2-3_osc_Qw1.nb \ + --output table_filled.xlsx + +Можно передать сразу несколько notebook-файлов. Имя каждого файла должно содержать: + _2-3_ или _4-5_ — блок строк в таблице; + _osc_, _pr_ или _gid_ — группу столбцов; + _Qw1 или _Qw2 — левую или правую половину таблицы. +""" + +from __future__ import annotations + +import argparse +import glob +import math +import re +import sys +from dataclasses import dataclass +from pathlib import Path +from typing import Iterable + + +# Границы блоков в конкретном шаблоне. +PAIR_START_ROW = { + "2-3": 5, + "4-5": 19, +} + +# Смещение группы относительно первого столбца данных своей половины. +MODEL_COLUMN_OFFSET = { + "osc": 0, # Jосц/J + "pr": 3, # Jпр/J + "gid": 6, # Jгид/J +} + +# Порядок столбцов внутри каждой группы шаблона. +METHOD_COLUMN_OFFSET = { + "heavy": 0, + "new": 1, + "light": 2, +} + +# Смещение строк относительно строки Qb. +VALUE_ROW_OFFSET = { + "Qb": 0, + "Qw": 1, + "hb": 2, + "hw": 3, + "L": 4, + "Q": 5, + "int1": 6, + "int2": 7, +} + +QB_TO_METHOD = { + "Qb3": "heavy", + "Qb2": "new", + "Qb1": "light", +} + +GROUP_RE = re.compile(r"Cell\[CellGroupData\[\{(.*?)\},\s*Open\s*\]\]", re.S) +INPUT_LABEL_RE = re.compile(r'CellLabel->\s*"In\[(\d+)\]:="') +ASSIGNMENT_RE = re.compile(r'RowBox\[\{"([A-Za-z][A-Za-z0-9]*)",\s*"="') +SIMPLE_OUTPUT_RE = re.compile(r'Cell\[BoxData\["([^"]+)"\],\s*"Output"', re.S) + + +@dataclass(frozen=True) +class NbRecord: + order: int + input_number: int + expression: str + assignments: tuple[str, ...] + value: float | None + + +@dataclass(frozen=True) +class Target: + pair: str + model: str + qw_side: int + + +@dataclass +class MethodValues: + Qb: float | None = None + Qw: float | None = None + hb: float | None = None + hw: float | None = None + L: float | None = None + Q: float | None = None + int1: float | None = None + int2: float | None = None + + def as_dict(self) -> dict[str, float | None]: + return { + "Qb": self.Qb, + "Qw": self.Qw, + "hb": self.hb, + "hw": self.hw, + "L": self.L, + "Q": self.Q, + "int1": self.int1, + "int2": self.int2, + } + + +def mathematica_number_to_float(raw: str) -> float | None: + """Преобразует 1.23`*^-4 и подобные числа Mathematica в float.""" + value = raw.strip() + value = re.sub(r"`(?:\d+(?:\.\d*)?)?", "", value) + value = value.replace("*^", "e") + + special = { + "Infinity": math.inf, + "-Infinity": -math.inf, + "Indeterminate": None, + } + if value in special: + return special[value] + + try: + return float(value) + except ValueError: + return None + + +def parse_records(nb_path: Path) -> list[NbRecord]: + text = nb_path.read_text(encoding="utf-8", errors="replace") + records: list[NbRecord] = [] + + for order, group_match in enumerate(GROUP_RE.finditer(text)): + group = group_match.group(1) + input_label = INPUT_LABEL_RE.search(group) + if input_label is None: + continue + + input_end = group.find(']], "Input"') + if input_end == -1: + input_end = group.find('], "Input"') + expression = group[:input_end] if input_end != -1 else group + + outputs = SIMPLE_OUTPUT_RE.findall(group) + value = mathematica_number_to_float(outputs[-1]) if outputs else None + assignments = tuple(ASSIGNMENT_RE.findall(expression)) + + records.append( + NbRecord( + order=order, + input_number=int(input_label.group(1)), + expression=expression, + assignments=assignments, + value=value, + ) + ) + + if not records: + raise ValueError(f"В файле {nb_path.name} не найдены группы Input/Output.") + return records + + +def is_q_result(record: NbRecord) -> bool: + expr = record.expression + return ( + 'FractionBox["q"' in expr + and "SqrtBox" in expr + and 'RowBox[{"S1", "*", "S2"}]' in expr + ) + + +def is_integral(record: NbRecord) -> bool: + return 'SubsuperscriptBox["\\[Integral]"' in record.expression + + +def first_value_for_assignment( + records: Iterable[NbRecord], assignment_name: str +) -> float | None: + for record in records: + if assignment_name in record.assignments and record.value is not None: + return record.value + return None + + +def extract_methods(records: list[NbRecord]) -> dict[str, MethodValues]: + """Выделяет heavy/new/light без привязки к номерам In[]/Out[].""" + q_indexes = [i for i, record in enumerate(records) if is_q_result(record)] + if len(q_indexes) < 3: + raise ValueError( + "Найдено меньше трёх выражений q/Sqrt[S1*S2]. " + "Проверьте, что notebook полностью вычислен и сохранён с Output-ячейками." + ) + + extracted: dict[str, MethodValues] = {} + previous_q_index = -1 + + for q_index in q_indexes: + search_window = records[previous_q_index + 1 : q_index + 1] + qb_candidates: list[tuple[int, str]] = [] + for local_index, record in enumerate(search_window): + for qb_name in QB_TO_METHOD: + if qb_name in record.assignments and record.value is not None: + qb_candidates.append((local_index, qb_name)) + + if not qb_candidates: + previous_q_index = q_index + continue + + qb_local_index, qb_name = qb_candidates[-1] + method = QB_TO_METHOD[qb_name] + section = search_window[qb_local_index:] + values = MethodValues() + values.Qb = first_value_for_assignment(section, qb_name) + values.hb = first_value_for_assignment(section, "hb") + values.Q = records[q_index].value + if values.Q is None: + q_value = first_value_for_assignment(section, "q") + s1_value = first_value_for_assignment(section, "S1") + s2_value = first_value_for_assignment(section, "S2") + if ( + q_value is not None + and s1_value is not None + and s2_value is not None + and s1_value * s2_value > 0 + ): + values.Q = q_value / math.sqrt(s1_value * s2_value) + + if method == "heavy": + values.Qw = first_value_for_assignment(section, "Qw3") + values.hw = first_value_for_assignment(section, "hw") + values.L = first_value_for_assignment(section, "L") + + # Первый числовой интеграл после o1 — int1, после o2 — int2. + pending_integral: str | None = None + oscillator_values: dict[str, float | None] = {"int1": None, "int2": None} + for record in section: + if "o1" in record.assignments: + pending_integral = "int1" + oscillator_values["int1"] = record.value + continue + if "o2" in record.assignments: + pending_integral = "int2" + oscillator_values["int2"] = record.value + continue + if pending_integral and is_integral(record) and record.value is not None: + setattr(values, pending_integral, record.value) + pending_integral = None + + # Аналитический запасной вариант: + # integral(0..inf) 2*x^2*o*exp(-o*x^2) dx = sqrt(pi)/(2*sqrt(o)). + for integral_name, oscillator_value in oscillator_values.items(): + if ( + getattr(values, integral_name) is None + and oscillator_value is not None + and oscillator_value > 0 + ): + setattr( + values, + integral_name, + math.sqrt(math.pi) / (2.0 * math.sqrt(oscillator_value)), + ) + + extracted[method] = values + previous_q_index = q_index + + required_methods = {"heavy", "new", "light"} + missing_methods = required_methods - extracted.keys() + if missing_methods: + raise ValueError( + "Не удалось выделить методы: " + ", ".join(sorted(missing_methods)) + ) + + required_by_method = { + "heavy": ("Qb", "Qw", "hb", "hw", "L", "Q", "int1", "int2"), + "new": ("Qb", "hb", "Q", "int1", "int2"), + "light": ("Qb", "hb", "Q", "int1", "int2"), + } + for method, required_names in required_by_method.items(): + missing_values = [ + name + for name in required_names + if getattr(extracted[method], name) is None + ] + if missing_values: + raise ValueError( + f"Для метода {method} не найдены значения: " + + ", ".join(missing_values) + ) + + return extracted + + +def extract_metadata(records: list[NbRecord]) -> dict[str, float | None]: + return { + name: first_value_for_assignment(records, name) + for name in ("Z1", "Z2", "d", "b1", "b2") + } + + +def detect_target(nb_path: Path) -> Target: + name = nb_path.stem + lower = name.lower() + + pair_candidates = re.findall(r"(?:^|_)(\d+-\d+)(?=_|$)", name) + pair = next((item for item in pair_candidates if item in PAIR_START_ROW), None) + if pair is None: + raise ValueError( + f"В имени {nb_path.name} не найден поддерживаемый блок 2-3 или 4-5." + ) + + model: str | None = None + for candidate in MODEL_COLUMN_OFFSET: + if re.search(rf"(?:^|[_-]){candidate}(?:[_-]|$)", lower): + model = candidate + break + if model is None: + raise ValueError( + f"В имени {nb_path.name} не найден тип расчёта osc, pr или gid." + ) + + qw_match = re.search(r"qw[_-]?([12])(?:[_-]|$)", lower) + if qw_match is None: + raise ValueError(f"В имени {nb_path.name} не найдено Qw1 или Qw2.") + + return Target(pair=pair, model=model, qw_side=int(qw_match.group(1))) + + +def format_metadata(pair: str, metadata: dict[str, float | None]) -> str: + def integer_or_blank(value: float | None) -> str: + if value is None: + return "" + if float(value).is_integer(): + return str(int(value)) + return f"{value:.3g}" + + def compact_decimal(value: float | None) -> str: + if value is None: + return "" + text = f"{value:.2f}" + if text.startswith("0."): + text = text[1:] + elif text.startswith("-0."): + text = "-" + text[2:] + return text + + return ( + f"{pair}\n" + f"Z1={integer_or_blank(metadata['Z1'])}\n" + f"Z2={integer_or_blank(metadata['Z2'])}\n" + f"d={integer_or_blank(metadata['d'])}\n" + f"b1={compact_decimal(metadata['b1'])}\n" + f"b2={compact_decimal(metadata['b2'])}" + ) + + +def write_notebook_to_sheet( + worksheet, + target: Target, + methods: dict[str, MethodValues], + metadata: dict[str, float | None], + written_cells: dict[str, str], + source_name: str, +) -> list[str]: + start_row = PAIR_START_ROW[target.pair] + + # Qw1: подпись в A, данные с C. Qw2: подпись в M, данные с N. + if target.qw_side == 1: + metadata_column = 1 + first_data_column = 3 + else: + metadata_column = 13 + first_data_column = 14 + + worksheet.cell(row=start_row, column=metadata_column).value = format_metadata( + target.pair, metadata + ) + + report: list[str] = [] + model_start_column = first_data_column + MODEL_COLUMN_OFFSET[target.model] + + for method_name in ("heavy", "new", "light"): + column = model_start_column + METHOD_COLUMN_OFFSET[method_name] + values = methods[method_name].as_dict() + + for value_name, row_offset in VALUE_ROW_OFFSET.items(): + value = values[value_name] + if value is None: + continue + + row = start_row + row_offset + coordinate = worksheet.cell(row=row, column=column).coordinate + previous_source = written_cells.get(coordinate) + if previous_source is not None and previous_source != source_name: + print( + f"Предупреждение: {coordinate} уже заполнялась из " + f"{previous_source}; новое значение берётся из {source_name}.", + file=sys.stderr, + ) + + cell = worksheet.cell(row=row, column=column) + cell.value = value + cell.number_format = "0.000" + written_cells[coordinate] = source_name + report.append(f"{coordinate}={value:.12g}") + + return report + + +def expand_notebook_arguments(patterns: list[str]) -> list[Path]: + paths: list[Path] = [] + for pattern in patterns: + matches = [Path(p) for p in glob.glob(pattern)] + if matches: + paths.extend(matches) + else: + path = Path(pattern) + if path.exists(): + paths.append(path) + else: + raise FileNotFoundError(f"Не найден notebook: {pattern}") + + unique_paths: list[Path] = [] + seen: set[Path] = set() + for path in paths: + resolved = path.resolve() + if resolved not in seen: + seen.add(resolved) + unique_paths.append(path) + return unique_paths + + +def main() -> int: + parser = argparse.ArgumentParser(description=__doc__) + parser.add_argument("--template", required=True, type=Path, help="Excel-шаблон") + parser.add_argument( + "--notebooks", + required=True, + nargs="+", + help="Один или несколько .nb файлов; разрешены маски *.nb", + ) + parser.add_argument("--output", required=True, type=Path, help="Итоговый .xlsx") + parser.add_argument("--sheet", default="Лист1", help="Имя листа шаблона") + parser.add_argument( + "--dry-run", + action="store_true", + help="Только разобрать notebook и показать найденные значения", + ) + args = parser.parse_args() + + notebook_paths = expand_notebook_arguments(args.notebooks) + parsed_items = [] + + for nb_path in notebook_paths: + records = parse_records(nb_path) + target = detect_target(nb_path) + methods = extract_methods(records) + metadata = extract_metadata(records) + parsed_items.append((nb_path, target, methods, metadata)) + + print( + f"{nb_path.name}: pair={target.pair}, model={target.model}, " + f"Qw{target.qw_side}" + ) + for method_name in ("heavy", "new", "light"): + values = methods[method_name].as_dict() + visible = ", ".join( + f"{key}={value:.12g}" + for key, value in values.items() + if value is not None + ) + print(f" {method_name}: {visible}") + + if args.dry_run: + return 0 + + try: + from openpyxl import load_workbook + except ImportError as exc: + raise SystemExit( + "Не установлен openpyxl. Выполните: python -m pip install openpyxl" + ) from exc + + if not args.template.exists(): + raise FileNotFoundError(f"Не найден шаблон: {args.template}") + + # Открытие через бинарный поток позволяет использовать шаблон без расширения .xlsx. + with args.template.open("rb") as template_file: + workbook = load_workbook(template_file) + + if args.sheet not in workbook.sheetnames: + raise KeyError( + f"В шаблоне нет листа {args.sheet!r}. Доступны: " + + ", ".join(workbook.sheetnames) + ) + worksheet = workbook[args.sheet] + + written_cells: dict[str, str] = {} + for nb_path, target, methods, metadata in parsed_items: + report = write_notebook_to_sheet( + worksheet=worksheet, + target=target, + methods=methods, + metadata=metadata, + written_cells=written_cells, + source_name=nb_path.name, + ) + print(f" Записано {len(report)} ячеек: " + ", ".join(report)) + + args.output.parent.mkdir(parents=True, exist_ok=True) + workbook.save(args.output) + print(f"Готово: {args.output}") + return 0 + + +if __name__ == "__main__": + raise SystemExit(main()) diff --git a/automation/table_template.xlsx b/automation/table_template.xlsx new file mode 100644 index 0000000000000000000000000000000000000000..8887da6158dddeec1f6ee86c5c959f1e8e07c49e GIT binary patch literal 29172 zcmeFY1Dj+`n=PDW+eVk!g)ZB+ZQHhOTV1wocG+fkq04rC`MmF(@0v3+=NFu_uiVJU zz>bJ}-D?F>K^hDk9RLY{1^@sgfSvNZu}}~IKnfB7Km$O7Y75)jxtQ9y=&N`-m^$k+ zc-Yzy7lDIP6#zhi@&DiPe{l=^O4YR& z^Fp*plRx<^66UXAq}bB=JoOBp!iLME$l|j-2WTjZU~UTY-NZB!F2$i)#G-;cb?|hl zK7(m(Gnr#zoOS49x&*KF@dwA<%Y1{`E)kL~A;L`ttNl$8k`_}-q;1XfwPqWKNC{Fp z=|n+vuRR-9o4~}#mpL}aVeJ4-U9q{&Mj4FNZMUc zqKibuFFg?l-Z;8<7U&Sq61n7_?ISFihUe zK&??(%^joXT99QS<%^oI`Zo50v*g)q|JAgzQw079PMPzCOpI}7BlGoIpK%+KhZkH` zWeZNrdZRoiE>cf@6Px}!k?cOS4xrOfqVgRek^Og&e0l}eNPqzV#!vtN60l`FY#80`ove-Q?XCZzw`$dGtIhA|y+r2( zF}1C5t4S9ekrm2W6sDneA+_4}u%ZpAT1%}wnwCnV2DDvkx>G(_ zKQ9`iFUQDUITv2ubBnLW|KcsOGRbAqwU2{}tbAwIz>JD89|Q4f>9cK3P^8KdWktb( zo5P`<6Fa^seuzw<6ef{_2aHDnMx=iCnqnCKQqro9%rUKJMrAIAExTQ#ahkAD8IGx7 zZLo>qr7h(Vb_Uny0~d}F<1yhyiBnFi;EXVVQ5EQm@YGwfuzW^tPnk@1vO?>qX`pL??Jt zXVm`LGnA+$U#DI*Z#N z6WEg0g3r3f%KA1V5K^|swQQzzcq=F}@O=Sk;e5ns5Y+~zG|2$3PeV^#zwF#}_NM6d z5ycnd$KGzbzTo}JcRjt0o#gc~t1(JmUoQ>4X+AnO-}%Q|NIERBmzM6Z8Qr09cN1xK z>m#HPY2jRUIHw=+=6s(&?2*&%tsN0lSPi-tH$%a^B<1(p1<>bZo4DL+`lW#HAG=a&CP*0?XRh)6;5QCP7e*C*%oX-%idh8&8?t0GwiBtv*}kGrs>UM1{ zBu|i%zW8f@S5kbuO8?XxRjKrq9722MyKGQQ$1K>VF~z(NK`qzRZc#s`1VZY+gKh`r zg9;P~$0Z=}Z~@RDK+yf0oc=TP{ufb!0Ochx?*H9Kck-+i&{2dXoSC-qdo{i;zef z_=zL@qhh#$?{OEQUNXWWpw0h%gAd71Udk)mHoYn3;wJ9>#5Jq|MJnFuvc~2QGien(S68%?68UnmtbYL^5X2;?@6m? zE^%zzuZwG8>|^ody0cCViE{qYla(Oey!gWEj=7o_`%T*CoREn9uT_J#|E?P2*v3S! zmmWdIN4S0V>d^Y8n{Q;-h1J*b)2jR5?Z;FdpKTudIRD%nM5xV{eV(54$Ev#7r7Qj9 z_^OA!)x1x+)7^0A476~G&1tVb?sLNUtBJdEI~KPuGZz-E8g2QtujnlqzPQKb_*e;p zW2@KMEY=PyUs-N*qR+x6&A&1^wLLe!cMk0DSM4u%ai94SM2DASFKb_6Pi;tell3Rd z2Ku}^2>kLfPOp|6oqfEz0>8^%Jrn$h-g`D}n;xW&&R(t7eBnnRo^^yBr~S4sKGBWB zH<-)5ho5z5MOT^E7k&Au+?{1s^Cw3S`JeTxj~-8`fD^VP{@$If`7W>S)lI~s5?^&S zJLdAVSj#5A8|R{}+j5~-9ar_X`Ehw1u)teLTu1A8Clf=R>tM)D(3h{L*tIga*Hqt* zr(}FG9(WS}c5`t86{^pUsc#jX3GI;di&Mj){;2<`|DgX*|9=1P{;C0L z5$c`MTAWGTaUGGJ6C4tp5*!np6&w_#d~p;nH^7x&GWlr)e zlRpKQ>9mrYEMSJu9q$xfjRVIa5ANGLl(yT6Zv&n;?vStVkk4j?!5xi=BR_dch$jP% zUhfnF%2Ohp_7$A=2Qy=L{m(9a3`rProWuGYzSn{1W?h&v8>ho)`6$t+Svb~cWo%HT zu|?Iy9#|B&Z&2m2Ma{|^_6wHVikH}mSKEpg#U@!5n`}^Zut^ohD)nNBb`}<8E0qAPbik zyXhz`Q`^u!3K=`}gJIR9;HFSGuveG_3H?TZ30$h3;&&E2E9WY@j`Acfd1`)h1v;h` zjdf8;5--;bo?^Pxf3413w!m(7f_EfG1g8Xt1m`%%I42bc6?p-fqKfm^uMJ3N-+0uFiWlc2lRGVAYI$1f0phZ?s#b7(3zG^}CM7ECM1JrD3d}JAePwVw28mW7D;pt!xE=u~8tyMIa1=9Dv>gJex1L(zO>DlW;@@3=5zVQzyVn zAeI1>CPk)e%1bPqHqo_@wpJo2M7Lu?m)ZZgaF>UsK_rkPqeVarLmmJe13d)Z!>FEW zdjH29sF*FBylaJ={HLN35?7g?ZFnqfj^YNT zAg@Hg3yp|j63`_e$)J<~)W7X2JTcIeWc3__rm=odm?vL8+E8@5q<^|;7AwyGSoN)G zZDe8Qu9`v9Ul)*PBmFsxroSbS89r|Rw)rD6HwhpoxrUV|yZS8#f{-H=UXHr8QLd7D|%gTIO5qsT|I9j#|XaF>V8-X?itO?)~ zGaw^H_)|!!ztBuT=pqcbf|Efe0VD%W1e}N=5|k*UK7YP?%}t2ZK>awGCQlv}tDI*O zp;^e&l~&bC&?IhB{1fmCA~T$s=nYe6t_`_J6q$b10%lw(!IWxBP%WTZ#l$M?LA8)t zEfn|ukJO~*3VkU+6O<`XL%@a@5g982YIrOT0?UOCTpT3^aML22OQYschxyT}wuj z%>e-%EtOl6$BuA&IxrW`E_~ZXIWdc9~nhX>bOfsNEfSH&x0W`wn zqm=i~b>)m*>C9cKb@}u3{&CWJ>( za4}sW$OuR5UIuybDNZPdu#p|llZo5BPUy*3y6XFSZVqYN^tT}&r#Thz<$XgVk8n)W zf7&|uk^7qtI{;dvS!)$3W&pNmjmE@@ozM)`qaV}FZo61}6{#QY4 z5-&n7PBTv9&q9{qM~27eJ|+uF#rQA0;8wVYf4;~o$cNj*ZzL=(?&Af!Z4-a-bTAK- z;u02`vUL7=jr&FE!fYW~__M`Dr26Q-IXx~SH8YPzNPM_RQeOWgLIeEt6oCLG8khIO zQXk4#UB$zA?oU}SnuD=V83D^;s zckblO-UXQFUv431%-a?BkTO`8sYimsQ^0ofM;4Ri>xS4e!NPr;7Ci5VaXhxqt2hzU z`+YpW5#Wp{a2R=sA2L#~e0MXW`=KSPOyA|m1yO7}!pHxu)2lLQ`P1^w37bbfo|S8H zlW%CC*H7^J{>|~ptLUEN&DEXfvh`Sg_oQY$Y6lX(?`Os3p`AOAe}M}BxjO%;?)JbA zGNbxsZulZGpVjV6&lf*X`TqCO6^m4C+d4P^z=ZOD)W*#J(#9H_PQ@I^zPptlP*Lt+ zsP5?()JEa5%*iqotC^nPG+HYFw}6g|mCv`<>(FN6R`>GZ(QV&OZSfj0qwCWj(y8WZ zDKN9)H1qJPhMvEEO7am^wy_(|DyKF^-CCyH<{&Jyt5xQU`F}Eb?2j0C7*s3u3+o{+ zi>lJUb?S}6rHPh~rqe-9$6#ry49ptUrcVWlF5;$?a{Yi8pDiL&S0{WOA>n(rNgK8q zJp38+dwEiFV4*zdeM+>Ej(w-`8QEP^g@=#cn`t&}?|?)y`K-pRl16ijKlivhf=~(j ziMF9g!;^k5ez30tMtMp*v5}0yW5PTYGVeik=3@V?vrhbGMcMlus)Hm=ul`s>#^5mO zQ%`Dm=d~!7<&Hgon&S=nWrXx8e_{i(U+#w%poaJD0| z526y8KN)5IWL?}+m5P>8wgKZ)m;3Hd^qsp(1b?xq)z2qZBP^H&1;1KMk%cL;(t?%h zIU2MDZiqTP@dUiYo=d=*t|SmS82TL)i98}-dLLR%E$%b!x_ITnnlyf4$nl8Rf!c z3lS?^i5@PhreG7BRm-s299^^){X7OMZIPO^55%-l`7){@h#r)R5nVrRpi~OPf>r_t z+_hB!s^#1nyRUGG85>5KaM$`H{)v|^uXu!dZqq5}!d@Jg&5me=_iFo8{P1AOlvvS0 zJ8c^4{QgQ=)p2!dQ57gomS6>feABdOoVSv04sk$DN3ErTzqcoSKQ*XFmY~nB6{!Y& zKMv?~ma#@y8||Pu_;*$#jn;1%N9k#?7v89u$MkqYrrB`RoClk&4YVC~(0f+BhuZc0 z+d6jE&*{*67Kjb9-dOs(B{+o)AOrHgmKXxd{%ACZ?yyR z7cyk5I=+`taGcTAQ=XmB6(Xd9o ze)N0G;K5+gg#$LfIO^E=hcnIJ8jbIX{zrEhD`eT}4P3yi!u>zGLzaKJLru+ipgZ)_ zxBLP-;04EnMkdGUSS0b?9qV2QaVdr&fxBnYy71ox#k0UmF0h>HB#V0wG2n=nuMoZK1w zuHHYymR)J@*^7r1u6d0)>Q_eIP`n^@w2pxq;qP4TnKrIN<+ zJD=}1Ma5TRV0&M}Db%DotpE4-AC+S%9)Ber(Mu%Ls+|#dkf@K{o-gMJUIi~I2>cn@ z$MMVd#Z|idM=?HGq{b_K_eV2t!e_)I!DpqIDX+vIBfJ=rq7wVtN5%gi&Upe}T^>K|;bIY#K{9|eb zA%tEPW~YfKGCwnb)1a(AYzduDrEG=|*t;G${SEnVO_EtYGzq5ALfbDRc_YR{0irOl zDRcm+0~`Pm%ehP#5wa7&f1tWG6hPK0-p(r2B75p6rzpJ0)S968RWJg$%Yv)u5myv+ zpXk0Nl%uk`J)st*C*&&e|T;fg19KUb=x) zk%Tc6y|}z|y|vJ|?bC6CTI`26S@G)Tagr5RR-DeN4eFK+??;GL=Y|Bkt2xoEa%F|J z1ba>5b>}Q@;cu=%YaaU$=;*=dD1Z~a^se|`lGR2Qx09^J!gBmJ>{*mmTr)}|ytV%G z>T;41Uh(5&U!jq5@Q7oq?~$D*rbTUVZfkLuR7}A^%%f_KcV#5&VxuFsHsRTmX@}dP z_*iscJrhxts6bq3U?Q|1a> z`gWgS`-S;rTfU|p|9*vY)Z-dpIGKxhijR=PZ;rzB_W;cc%$up)JmF@XhZ2;@`WV<4 z5+o8%pW=jk`J!{wBs=#_37g5f;c!F!Z@TlO&^gRM==2)RRj~gnm@2IDvBdExg)Zdw z$4`raBHi8y$`+C-#BXt-wC4M1bRlKzKg+8Ks+0f!VxbXr8%;sGEj)$3a#`BN11a*h zAT%Fu2a;3dW5uE8=jE}X{=i?&;|G*(LCuu}eaLxa5rEMoAsIS{X=in_fUtLvI240M zlFOGH=LlBkMS~#>dEX1|Q9OZcy|Sw0nTfB9H}idKxMsn3XEoZRUjo1bC*gsT0E3-E9K_WD-M{D>=)dDzLy1drR8IKz8^*#ua_?KZ-9yMow|U6qu;5$j zI@^SkI2h{|*-oG(xdR&ei7hVKvwj~|$C|xizpl~gVe}AiLP~aAzJsLDVKX4^5DtxS z`c60$`X!=;!9fJ)Fzc+f9mVVqijf?{W8J3eeAkh{bJ83k&pWQ83G^uHs|7b2XHOM~ zd1*zB5ZqM-WjcG4A`bgdfEjKlq7B4;RwhUO=5H2cPd)ilNV#ZOrGUJ2Oc%5SYWc!Z z7(|?-a`Tv@#iY|Wj*U{L?J&dfRhBOEYqmF%Jov>^_UL-pXTaqxrZ!!sZ5H6E%IGwP z?mmtFDx=CS)8^dVQGy`&h1k2!Rv>|RBge~TalUp zby?esK+ZnR{nOgx^k>~Xn=+dN98&rPuF68nPH1}mzF)71VXe2MQ~RIV-kt%*P@(pK zl^@uttCC6T`g@-~8edtKkN>lNm*o$j3jq>V0FbcI{yn$tVqt1)%J{GAzoxa%HD~QN z+0c8D*1m{OF11?8*AdUqTWu(_4S;s}tz(_lM)h7ef{WK6CQb50_}h`~2&1YmmLiZr2{y10srA zQoe0Y51Fm#!Gb*jr#M{AgZnys+H1dCMDT}ArL-H9amAXdHH_DABME>kfmBdQyc*LZ zj6z`qrN|@)Gad0@%hg@5 z)8+6bIDJ`c>V-9A-NJ!KYsJU~+8aD@MhOLK_v| zu2tupkys{dp@Ij~lD%cKgUO_WsSO6kKAX_!$V|~oM#>jC4~qHlqvavzZtx+88*bFF zrY>ul0$cyO#tnYzC`0y+*Q$o%skp<#fo#%^ajkjiQ|RcVUh}ex?Q&Vpt@d%u8g${& zR>C4TlMELVb=vit$-XPu(s*r%=;mM%`F5Rh%gg}lifs<=h%%V)&UMD!hO z>7e!-ZutYKZ;nayd35)C892V%J9fb$k zM%?#cpj>;(b7jo0G(BRSr#qGrRz0e=#9BmRpRlf;lw2}Mm2TT$yH@(UVOV8!` z!Rr$=n;-bWe0cIMIfhOtYA>4!G^X#%x+4SLbrcWg2rf!(j;R>eB^u+&t0Hd%jUFww z%6r(As+M4z;whwHF&ng%UZ1)@ELwC#vQ~n>1yc8`)#uRxGIB1Zq3@bqv$tXC_6Z`bU*BqFb8)@;X}Dq&|GBte6|c`3mpSaY zJ6<9YqE>1>rYHvgJ=up^*TVhZhuYoqR!F}m%Z8Z1#N%7VVbH-UkBhJWaX}W4Z#)q^kK}o;xu0;~uLL9&Hwl#FNE`*FOp9*WWwHBIkYjTJpruha#UhpWC{FE0Ei$X;CnY6}Ir-Eu&iD__v_$aT zaJ-Db$Rs&b2|l@`i_A3VsmCZH>WLqmy`;=OuO>MSLMd8oJL@&~YSAF{hw)*8C*kECk)Go`PxDl*>{wt$CI{l~jvJ zPf&wxH13#P;yt$^6OE$H3F~A$epUNpK-OtpdOPwB@&Up@g1dDU3sesI_X{)O>7qY<{n^xbba1VQ?}@|CrvPD(XK&W(*Y_vf%A#Uv^8DNFv;0writ zv{|k@&}Y2ofjJnTO($P+pLx1nQPXlE>&IUSFD1lPMD;!c9W@DeJ*B={~JVFm|CucT;+c{4a*imIpLwWZ5%(@Qt z`#I~FYu1h&8FmJ006OA3dKcf&^Zqn2pg#aqE;d;MKD^m8eW8C85MpYpH691gSDs6% z%n+(DT&J0}g{@e3#tyhi0?rgmXl&X2q$e839eYfeA@vlHS}+cezS*RPkOn?smt!DH z2qu00y27tvbSy<5$JH@?yZE3$=7(M&bfb3qK8cj=6X;p(VShZkdjHsf2>Dlzj+|Iq z9-gUWI+7%;@sXGIF}>9oX;WP`#8}X8d5s8efx817qU>fZ@zrk?6wf*MvNn`?mzkD> z&6mqhE)(fmbs7H88otI%d?#_f*iIK8IaVJt0w)Q+^3y$OAk zWb@PR*-7iZIzQk3+)d}Ne(m`5e*Sa^$HEgTRBb3;AW(;Dw_NsR)=;WWxDa_@YG46$ zXCA=YmbY*9z&~8RQ064bB35ixzh>$%6^ev-J-zF-G6Wa}AsS3xNuT`auWQ{0ug()c z9VxBV8dJx0hO{I|wjTa2gPW{7}v_c|PGHiCCE6JgupazqcQ%iZMfBC~CmU6IuF zjzj{!vQl${)wiYmP~w4WlyAS-P|a5N^4@{l`u_V2c@A#Ae>`wc5e?8`q5p@ovM_Wq zHBokPva~b*m(OZW?vWe%jy&d0wli?6FfhkOgg|7Qgh(6~RfW2w;A-tBCf|^gc=T`a2Us{T&ZEe@Xdv zH6x0dO=bUjN-fU+p|J_mSVF2S49VAk-(!y2v+nz`{Lz83E}1q68X#$Qolz`T!Rd@I z$<2o9IcCl#*z((m43=;tc@f$P^u*D@XEhd|6HW|wovCcHG)Rr-mS|3FLEgfgLYY#p z-f&I6`Ebxkw(gNx+yN|CceXhwe#&w(Jojps`&EvM4H?;Ix0O2vjlVn1WmE-%|6+^0 zW{CdhU&o*uSV;0axL}{ZKc8#tucdbTrG>B5yyw^8K6{vMvC24H%?td&Ctk8WERC;mL?H3?=sOzCBE@%PG?y+Ty?Ky!<9m|7d@T|I|A|lvn zvh|d4%dJU)W$+TtY(f#t%3AK;i829+TD0q?pXg#*NMz#lZk(cpF5Vz`U)k-0E|Hv>jgMJDvD;P;>zDjvZT72x$_Xa1 zhR*sM`k33f8k3vj0ft@!bXb%5L;xgninG5e{Fn8}mTJQ{9H*n+vQeSPGBMa!umpq{ zp=xmD=0!ueUp1ZzcUs?BcQcl8$8pZzJzmq;_e^f9+a0euFzPSJz$j{1Brw4ZV|oCZ zSI#DEYVu|_MvCR)fkYH2Vwj;`2_e^*&@1cgC7Kcs2#3X`ULPQt*MEnA)}?Op}8p&gM*!Uq=K9{0xa%7X%HkO zM3evkkb2+=0sYUPfe>iPyMVVDFBJ_JB|~>&2PbG#G{ZkzRc^3G*@=la2$4;)-rZ`lp*wX(I&h z`O8}cjjUd@PH`N5gcC}fovhHL{TjSG(Ghm!r+08>{D4>Z3f~&}^y4LF0b$Mu>;{pA zYn!HT$`8(|a>;1?yuTb5t1kfATCHwJ57std&0riPG@Ste#NmHVkW^YkJYXP?i>QW+ zvb~v$JCIEP!cL}!E~X~L?v^eV#K6fLVs(2PGbck^Vi`j_b5~$95_1u|ySp>E|2vq$ z*xpvBs4Nti56M6I{42Soy&bWNrL8G|`8zWk*LQZ{hnVRH7xNFUADn)Wd6NJDF+fs8 zP{kwXV%u9q*?fcQ+MF_gWJngCJyItr!azhtN)diYklw(SfboKTU{R~A3hY~z^~~w2 zCNpnSuV&tii>pa4XA{>?aei#|F}FVwy*thKMGB13j2?wcaHK&AAqis8*mi+o&}5wc z-R;>z0t}LF46|2^jZbp7DQAa%Pj9`m!kRT|0?;Jj{Z7x6X(=fj?<^=n;}H1y$iSPh zp^yl4A$11u*#eeABm_C@;5Y`U^jMXKh9>9c1)AgtUQRM10}4eb4?6r8GzlvN8mSPp z>_A8avXJt364H=4beRZX@CbF&FN;V>c#7DW0wO{@rnvY_ir6w3e||NIIcA2jc&y3T zctlOYLBl4hvLTW2O#>kpEHKE$SnnQp?uVK)kYY=t%V`-iJSdX>!O1qVI4FQ zAw48C(jf{8`q&y?SN0a$v(HR(Ps2b!Kg=~ttUPFc!GKAt21q}vot^SiTgBV#l50q~ z1GAD*Ye}t)4$j%Z9?C6q1~QH@tLzeMIiv0>d^{hS_!=FJp=mjl+e_B-b-4orKeNZ5 zu6tqQjb4B3q3{ ztHUL~&sCSx(^JbFSvUvd;XhBs{KTYWJfO`#^Nn%Y+sf~EThHva7UzjDFlKz&v{O=X zqb*SiL!G3AhIu%`wJ&^sT3tONVoyxnAC(792bHw{mVS|0Y=4ou`+$qp1-_3H8BNZc zQ6PsZdc%?f$}M>YvhJ8g7KiF0jr~GWx)I1#>CaWsP-lW?j97QqlAal9Tmgy~olHcnLuc)wb4QR2^3`~Rzn?cVWxz#u-6ox0W-rC-xvFZ54il4Q zqVM*~S|#mz(?ElJF|=oXMJ^3ZYE%(bR1qvJtXWs{zm60?>g0)W?a8UBT*9)ktc+%r z96K&$;1Zffa0f^qXTr^aT!V5G$^O;YMlSuUa03~qAq0S`MYyjnWwF>bBtcghhKZ4} zuCg+UN4`0GPfA)ko`_$rPo+X7G&EGIbit}6Ej4v{b+wB^XVwUpJ^ia`U+T^mAQ7eg zY1S}2(uB{{T`?AHT1rfg9hS+w6@ z?`4;N+-0Cb6TAmPP7GStujhJWkIH`eo&)>!LjW@U(7sh;_pSToT(!GJ`~=GH`p~fP z;@T4t_-0s)dSv{Yi1{#^+unQ9c+X+tM7?+W2wZq(z~uxkQtn~UokaE4Ptix)ct4d# z*Uf_c{lIthvS6Wc`e%>;5mFS`Q07b-n$$cV&&Kxl=LUQ4%Z}s8$w?KOQ~_cRzxQ?> zhBn^6+&FV-mRs*L;j0tQLtrn~+bnpfiu+sah-UxfZ2sgRD|~!?GIY>m+3ti_SV7`! zYinz0NFu5TaCp8p1SCwDI9E%eLxZcTstOe*6qOf?$4il+u7><={e@}$J5yWg0vT{V zE4z`1GV3A|kAmBL-Uh{JfYk+~a*OqkG3KPMM zPbU4!Vg8OycNJIw5T12J9t#lBqbN?=92ExuU{nb<8TmLb!=D+a4wwNvf4AuLU;r0c z1N`}~kmjxszIZl40gm$|Bi?KtTge=3(KI{RY5AGZ8EA>KLm};CL&Zq( zzFyJi%6_u1A>ncC>vU(w^5n^y1#Z)OT|~S6$C2aghC(_#O(R;4WvBC`*$8kOnX6@& zb(SYU`1DKSKrk%?= zOZmWwIFa^Gk9KteKXdt8zVpR-;iSzj9^vg0^fVvGP7r{SC{oO3&N|s`d2?Yv`-0D| zZ!1P}PCE%TDqx1)&DUk0a1n*%ND0UcwR&Luq#lBY z_b-Rw_4@qRM~P_Z-uJ~{H?G=CxA_U)VjYm(v(*R_Q zneFuK=5{3N_3X#dfnQ)R)ZzLbPJ%2nwLYKNxXm$iWX!SIU!-qoTPWZDo$^h8n<lP`ib5>QD}!E3(u85z&Z} zkx1qyr@v5v@n4KB0;b%lIfs>>o_2jgys0{voG zOVqicwRJaEYS2`!p1(N^2L~R|=fAVH&U@ZiCpMn?orEuM-N^T=iW`88+ic_Bij0lh z$!xt*au+Z#>>>iq3G5c4E1zPmO?FVg!q21*e1E5e#6sGp=fr_JzP3oZftTp>&0P%J zo4GSS=;={vjHc849)qb#Af|T--{gxeNvZ8#fL`u90pgt%F4x47k{j+Q)x=~FUZCda4wZNy=t;GX> zuien{#yFgTQ1cK_19-Qf0g}+vJj896Rv5TD>`zmj-aj}N5)}*<_q8%DnDVCUrFG@(vMoZ}9sCk+&D-waiQNg_3 zQAN`wVvI?#U1NkRg44}j-)mEM~z(P^QTs~^Or9n`g&FHTB>rKDuyPE z4b*t^GxNM&KlJGVb-|H21>v~7As4%HYewA25K!;wt@q@i4|-lj|M|yyfd)yRQO7UbtXstc%=zGf0kD=vNCZUm z=^W2&Sjjj6&JAGBLtWkdj=O9~&|<*n73ZM2W%6de(8If3WZ|dMMki#m@3)^;mlR`l z5wOS11SmpqdtL4kEUPqCo#6n3CJ*u*LWZn9qAC-4;B|`Cj_>nS_H{KnK|Dh$;y>vh zJ(DLJOG|1_4L!ZfA_IcSOD)r=AoC{CTBOnJVbO4jd?}ECnah2awG>#-l!}my^mKJq zRZ+7XbBgv%b5rK^o5QghwJN0wI$GMQx;l5;HADmV8mCHPP;pP`wr}6^&aYo?8yj_5 zdPuN@?4lt64-XGgrAjoZpaP1Dil(Ne7Z`4{R;*d??>+!zXmFuIg{oy{CKmAP#Un-zNi{znof?4c*XG6hSwZUTI0QQ}e_nWNVuU z(b3a?91?w5v}o0+S?lTLh0jz0`hkLbYKjIRAs;tL0fPAS{`ljl?e#O=9SBjG@ZdS) z=Yja}iB>R^!As3lsTSK!Hm7=^=r|aO4o4y?+coO)M%wZ|oE-V93nW|+;;RYpGGj+; zAoGac>yTGD#O1Wx;IgadbUbVZXZIAelieEm0f-YNLWBxsD3Ya0DdqF%7#Lc6fVl?> z2v80HWsIf0<1xI&lubjPx60F;VyS+&(#R==*RSkUTQX7 zw!+6V^zA1E9d-X%!U!zn$WRok6U^{S(G6p+bfp2ODrco=NLx#<`Mu_q%}!s?ZpyvwQrEI~m)ih5 zz?|H}n*+;l_`XzvC7wqONS-Omizo0U-ar!@cSj@b;Ee%tlYE>J7iJp;=5?cz@oBnd zMFU)xdZFph8SQbno_rM!yA$#4nD1mGR>QSEy9D1p%<$4?6juDz6i}fmU>=Z zy4hX^!yJC+i`n)cXFqcQtzf|-7N@jSw`k$)PLV`8L32JC#DA+Goe*o{!bG#sIr`#hrpU5bS3TlLbKfgNCR|Cv+{ zkiFzfyse&r2vtb*tdm>;Z21XYnA6Wd?8KaUqhrj0^{UE$DJU-Hw;1F@AG>jx(J3K6 z>@+8XmCr4*1-#cD#;gfHk`U};ZI}ii*|x_0Hl_GZ5M6ioWSn}r3FHN_#bKbL0D8L+ zfDb*1p2az6z+8bT4mFd^SP(G-SBOh}$MO!P{cU&A-|@F+1tEMw-?g<3FaRf>`o0w& zdjq$&NSD#b~If-xAsUg73?#h|nNEaIlP964QwnFO2M3{3?u?UjT+j34d=3H9A%ylYb zv5(MT6pL9B+)g`A9f7ZQUJNxe9R+1lLnTyuoRUj(U&hP6-YE1L1w7+9B=x0hjp2JMP8 zT0Tz|Qg45|h0AlzzsbpgESB?6ZD*VI_`h6KW1wYkKEV~;@46x-;r2W-VO|RxSX>G2 zr+^n{ck?o+8QU{Ie2#Cccb_2=pL(_uQ8E8G?&#T$<$3c>rAeEHoih&^1QD;%mtr{E zwN1i~jC9K3zqUO`jH;Iu-Mshk_c1Iu94rKgxAb~R$eT+aKM-<(Vz~J*-Od6)Op_B` z1Dp_*dsp;VXN%5q8)g8ORpud_TmjV9E|d>I!%6C~JURvmKCP8PdcIHK1P(cYHMi;r z>fY)Q6_E1d#hl^zCg$-@V3ggNKNALUD1Gq*KE3PgmXK$s+jd!yVr}MU-~U^P0;}xf z_m<_^8x5cH@u9)tAXa;H1Jh8o`h7F;m4f~sdG2t>+$1s9dlWK;lx9038V(%ZfCAqM z>-IThJRZ8$y98)*T#V8yhekH?sp**#D^7sXb1^EBk zyY7Fg+yDQjvNDdnG7gp1v9q&9c0yJtLc&2vWMpScR)n(mipWfa?Ciacm3^}3_tJge zpYGe|{`?2u^F!yMbFSBUzpwXoyGif%jpl9!7Fi)$?IFzRqmT?D~4?G>u24dOy)6 zGb_yjEGOm?F&zA#7UN&T^q451-hly*D8(#IJV;JXE-EUj?C#)=gN-Hzh8r%Lj4-IK z$fSvoLA*_JnU6|^bYN`}V&u3^q2KMA6O(jn*8Z@af&=u-mm)|qrw`9p8vUko9+(^9 zSWc{V-e7{-c)po6lt$BQT%w(isn&7EnU{3OgDf2U!Z=4wK-XwdNMvbfYnz>h%N*%< zwvlkYp?nsU{|0jg()K33VhUd`zXN-zOc{1b&+cN&ZAe{ohD=(iX!k9H)|2{KAb zqblcar(R{`7_&i%o!p4v_n{m35Q$aZJYvp5eJjXZW8}Iw^Vf}9t%+lqqVs|lO#bWM z3`CLE*v&p;C73TH^Rzp+-vv92G54??yXUq~Qw?~C+Ly->WS@ozH`mXjo-v7rI{=ot zY^D?!=o^i)nXxLPv~>OxV$XR-vZzr|QjUO4ftFvK!wv-`4<{=J2M0U5z1?U}EJ9o3 zs(_mcf6Pp$6?Ze7ek7UQ#Cp?gLlF|17?itv;id&!Iu=c7X(?cZ$mB2}>celQye?&? zbGk2OH2|)HjV1+yqpG6x;64Hx0wKYn0_I7M;Bm zUOSP-N-%#(Sn?NsTyK!~ZR>tDD|tK|ty&EN+)=?Q&K}9=mr#m!+ErM=cm)x}Q^lC; zzTkFx0i<=DV;>{h-(%sYgRFX{crbitW7o%mUu9HV4D!tFjRIFe#fLLlw`iT@#xt7TFN6#QG(>gjpeI%&S8=2MjXg0et29%T*2pV%02deZCQ()T9%pL zBk_i*jnxW|ey$ZoDRomT*s=_;V_k2t3XPfcSUXh%?#5SQFbdz7v*_YYH<4PMj;S1Y zB78jf2ts&avowrjFtZ`OTZtkN04h=_%LdJS#w~i6MhgMpFH{?x-l95Vo*RPYIqcVA z)_4xUc=|8iq)dzX9}USq;~Mh;_aMr3qneZ7f_jmk`@toUNTR64uEQ-I{D5W1s&Un& zInmfgvL%rpqM~=xu}gmmy2X6G*GJ*oXOIsr6;%-hFls4NcU^C zVV%vUg;Sq>W85dgV)l5zFItlW-p!^eM|5JaR3JiLFP4cva-JX#$w42kMON-XJ(Si> z4g96*+HKJBefDzO`#Rs%BWP5caW2vCQ)&^2#-{jbL{{cJsKHU&ZSsJdfZrv%zEus!~dg zX17mi3$lLqof+DjJ?8;;^>LC%f5(P{KK5(7=gdPCV^v|@cQ;x{Qi9))gOqp*d}v!0 ze2G(wY@6#zds7w5l+jG`KrV8CIHwFWSPsh%v*b zovDR!b>pbo2)OlgnF?A%cNU%v<(x^znbo#r#{kPl(|$dcP9U8!nrfl8lA%ung$`YUEiwl-s1S-;b8z+0^dWE>r-DK#>kchEq}hwPgvAk zNIg zLl2IY{0Hpdp_Jeo3h8%*Fsy*xr*&cY?pqZqRutDCT=JNgS^hj-Iw}DF0WoTky#RCY zs)igf*D~2T$uRfLw?s(eA=v^{=xL_1Nl1lZ-1CMNgp~#Ck?%7K6Hx+=5&{)FimGfd zCFGd?=zhFDof`yFu=xH-EOL}#;zUh4a{U0L1L&*Pra}Ww{Ia*0$#X+1Ei0J0Y7&- zF(y~wX#P$s@;URXs-hMn z90bqsGIC`M63iOCPcySaUbG}O`i}BUq@!T%IZv(b&%UA>+_WxCg2P$Tf~l0~FA2ot z(yCkE^BuqXlLFClV)5o15qe|kP1)7rJHDH)=c{hW(g(G_2j0Mf|9V;GCdk8DF$WKx zL;`OBHh>h9vAVMp`AV@|>cTTlfuQ}Z+SEw;X%OmuX$u z%a8Ir1bA{D78i=Aw*oeusV_1zsWr{+*4lBCK6%e#ALOGTh+l^p&@AeMg(zu%34B;= zC{BBj{^bU<*>lkPj!9aeZ4*73q)d1NcqTy3r!z~3%~SjVNBV=93Lz%+)pt^@?k8vp z-X@KnuD!v8fGB&aro;MW05%>`h5KF9cuxch2ViEWwE#BZ15@^gr}{>cnp;mk^<^T` zmht&GpjmX6!U0xR+D@wS=MMY?ZOFDEm>2 zpSTfiTo?E5e;$RvV{2whpKSnARYEkWd4J<)Md4s$=cRGa&$8@=GcH!BF$LA1 z9dtVLSEOO2xReBck}f4S$1JzkRGuqp8wLU4Jb@Tj8dTp8iEj*9^D-UxU=M(A0>um; zYQQwqw#;4OlO4rt$MIv)Qjqd5Uw~Orc|OO8my23fxk#Yrw4I$@;<~#+M009B+XKi= z|8cZDw7kA8<^ez|e`X(ifi7GvLOe=&V90$5rDZ*VBb@k)=OHeEd&epVfMCSt8St~U zc>plN-*03eua8GLwKIY^44IKmx65CEk>2&=rNWX9Zq}hy+2KW;n0v1j(>4GOHB%!C zh|jFq$;rlZa!#EZVXvd3Iae!Ng7E|fWyF=PO&)De&HriQ1)D)TPNm4+W~%nxxng5lq87PfOs4|jUcQHXS8DLg4ly= z5Gz?=d3m|7yPZi6Ap{28;Zf`a!W&j1?Hx_$KGpJz&IWRX{WLmnyJoNUo&>)WNHdG|Gb&rM4*@9Fyvwm$5Rehq5{uW#R)OXT!7`)@p$`x>QBSB=6pco7humk^S( zOZ<85xwD(|<`i&=Ydayw(?h+&-=-fq_yK{dhpV09aj5}Z)!;>*5JeM_yBMsDj*+zF zEdqha%gcKkM{u8Be+Re#$TOVb<~9QEVWe>yYB=R00DFUP6)%jazSgEi(J=iH_20OR;DWQJ& z45qIF7>xn)t@ij@hNZ^0(?%ysBEJ;=+Vb4zV6q)`QT5n8gJZME^6K--k8tzWw&5DH zH2R93UX=}?29QVW@tbgUOaJ4%V#D#&d;3iwYkK3Ss!>i~6n05?IuYW#cSb#oO|DJ8j z+2mozpo6%3IH6`Ez_A6Qgh@%}^^F?$_~}B?hP@92J=-D5j+a#G@dR-YSn+Zzohthu zV@jI8HGl{+adhC3h+NidkYDuw+R^LS#RUp}Cb>uNgGBR4SG(!3ek4%MJ}`?nM?|u#rOIYB_#5Tat{0?XKQ+Tm ze_QR8abO1cYqAwZ0z3m0pRrGuve#fCV(GyFR>-I0H2?wn1;=Vnj4z9eIIPxM07oCx z=%U6aX}J20#4KNb@s;yfjQ2?Rs~a*-k81=RH!&nNg<|;c0Yw%DNUrOPr0A6rAJKX&(G6dAF>V}(}>Iu229x*IQT12jGljTPJ0H6+$Vtx z)HwZk5`S7JA@uYvAf8ef+z!0`0LpgtV7Ko*V$Aw3?cSjnf*6XQ3lDo39kdE-*-r=9 z+q@Dfk0WegUmqwKbcJh0PoA9z)PRAKm?;o}qTN3VC52EWHj_UMpm}@0&KT3c);qiv zWSeE1<;(oXKm`I);%V31*{RK2HJToKKNdn|xPI+BIc~%#{r*9bhTJYh49D6%C<1`! zV_H+Ea*(JXi;aTb`rE*jo54e&&P*AXWk0o$>Bg&&JkT)My;N-vlkPABD>$K>6wyEDg<=1)Y(zra;?O%I5K?zNQ@uGnufj5)`;PjTFg&0f?P4( zS)fLM$K{212_h520X)d?%R(7nuc}&rsW+YkFK|2y%WKj&h=5uK4vy;r9M`q8=(4TV z1rjPWzlBMB7fJ zQ3;FrR%!Gqpn?HYf0|@fgSuxUP%jBC<`sn!UJs|QXs5cUApAS6rUEmLPxt{4N`RsS z_{#lvJkKJ_YHsB)(160ifnQa5U*-HwQ)SHq?{a=pY$Y+zd^`N4uL3t>JbAhoDTO0^ z4){f6#}AMO11f(@Wd|fB$}?u5Ht`ofLQme&PF65lDDp}(^IkY$?uBXhf?^-$M{@wD z63$c(D67Xgwm^xHu5}|+RSp1P6TT*C7HKrd1~{#X;ZYU8@73qNT2{Q*%f}&_veF|h zeWaoZ#^K&t`@IJI>$e&qqbjNYD>d}Y99V-fQTIvLnTIo6>6+LqC z6Kig#xA{xEhqsv#0ztzSa_c~F{rQYJYtzIP72+MoheW)!_t&|78;<;*xVtO>S?Ppu zz=+ZIfFwjKpLQRp3QD`IvCeT(h`ZuGtt6)5Qxe_RU+MT0T}xjVt#-wFVL4={z0LKEo8y+SHO zb$l)heV0oRNVhaC{8t?bSXYU%EB%2~1~|JC*YXnASc5jR+rXZ?Y@sIuP3a*E$d9l& z`4Z-*FG-j{Rc5jD- zAIP6xA;{jf^KtaZ>69~?<<=MzI)52L>N`TPHUgc7Koy_x0Wj#VG$Jwt3nRA1FH3B1 zhHWp%x6t)9r22|^RQ033xXO4(Z`5NlOIJip85rsqw*@j9>P(8wThdqVcC+C|h@q9q zZyIBh`*fMuVGfq<5kr7(AKPC$z^bjC5X^Stmd;Q(r96ei_HBm^1fcbLOi+Xg=&be0 zx>l5-S(;z+)j=p-2=y36Z#yHcC?yS z1KchRt}*B|r763UBKn;mbh$*J(iHJYQR+=)CmIhh8ffQ3kMb>AjZPd7UY^`u?=L7e ziWJ`fX``#Xwt2=zBc>sEesdbOM_sXHNS_Z_xsMhSR`e4}m#>22QGok!gvoWwzl41# z@%(D>hWpJ`Z2a^W5k>wpa~R%P9u}b9VZ5B^Nt?Bh5ImHssfCD|tvmF{6jVP;a5g2i zZp`~$z&y;{Hf|B#1(>U(`tgSTPAtuNxKB8rrlzKlGuIP903;pHPoYMQYOcD~zhDT0 zNpnt4-Xi~=b+H64-ApR{IGP&nBS!eEq}mHN0t3`$ye0sZL3aQn1n?!-MLfLb0;Mz! z9;&Fy+gX}rwUGe3?ssZQNnw-}Rp5?H;2s6NKOqE+*|1?SXn!}~pry0(qjcc;j=B;|mb03Pz#gUo`0g52E8 zwc(&L^1Fv~aY@OneMO%o0N|xZPbo>6&h=Vum06F(hSsY@=qE}XZ-kX$1K}koFc6Yt zj{?LQAoI+;p0I#gPF6B)Ev+GXO;$2p-4f2?pHhIldZ!+qR8m~rTw9E~%MzggC4;I9 zR7>RM7AU<=*2n^d63uj?$76{%8DTnkfETlLRnO8y?>$GCsI&H3mMZ(q8K!Dv^;xEQ zAbd2k+B!PE%JVn@>CIjyuiF9?kqT2$Qp%ev*ZDLDym|8`JDZ&sI{lLWgJyWMME?J!}awSOlBY0GnP zayspryO5%FVuBwxliH;-+uwmC>92vO0J`?ovpw+rck0a+2CH(MF(b!z?>&V53F(UO zwM@1`p31BvHx%rzxQ)IH`4MpsNM@WdJvmpbC}Wa`E{Q)sty3|54|$lBL@1`wg!mms zgTj*)gBP7l7t6o{TVz&Ddv!>68Jmbs#8foY>3NEa4-Bm?l;!o$Li|~9(!`aWz^c}Y zWUy2Lx+SM7n=ftb_0Pj6$P2Q?s==omV3{2=c>m`H&429n{d=3{UweJ~gtg<+D+?(WVF9)+EIn8Av3jm)E4VdCZYn`mjXC?NK)Lz8zp)nmoC)bl|kmDShV;^I$AuuHKxA_ z_fB-t9gKEzQH`bdgPFT6p8G*;s@gJQLnN|%{>z6+D9xAT&i z$lvmQy+&8-uQAu0{6o=AE7u6z+h40^ejl8}b?s;K>7g8#f8YIo)~Ee(?|)yV_UGM8 zS)Sv;m)r3j|7>COI6X-Hn{zSS3o9ji=>B7|bd#Y$RRtR(89@TFPrWCHJ6#`Y8&&RA z^oBRoWn!ye6R2PuuiJBQes)fa_GJnJm$v+g@6q8QzZ?2yUf2&Bd#$%jeRacn?((@# zvkF=nZQtXsL@DGYHJV&KkW1Wfq;k@6=QDOU&Q9S|54Ab(_-WqeIO%Ql6`f;+Z4%vK z20Z+tO40DZc{9n!!ONIOsFaRrjCouJ_xM_Hga3W|8Ce(XO~EIpi}#4Z{_dto6Lou} z?Gr8&r2WIw1>xZQk^kS;9gL6XuT)MKnfmT1jKb04cJ9L(xtF6LN4YDP10|QQxmqxj zuoM$K8Zda_T1WE2#ov}WA(cSt!e!+0&Ro18vwx&kv|bpa)~g_#XQ4sYVAtkf>c}ow zikCJuYrMfz?Jz}KpaFVC(hSE1U%&%58?fW zN&_>^_#A^tuVU9v&~oJ}j(IX$#+zvx3rad->xcx$=4q*P0#81CHdDqA^@%f6$O5dm zETfAwY4dF))tqh0Bjs)a=6Qn^ci9(%AL@!c>}ufNyYZY)wASioDe3LCK#V|{4xC6y zN6wia6)t%KefnGXwYd5Y=I=Zi@+qIs+KJOhGdJ6Min|`UHSzF3yC;u2-x_z6*Y1|+ zsA>hFYUkV?vV(lV4`UH4g!ALE&P|u8M*DBM_YQ1~_*=!#8@)%`%FngkNW#Czi{sKj z$4Iy_9`myHUuR}V+2f{UFf`QxN`(D=Xx_KA{r`~(y6n$aLgZ(gk<*i5&TSL=t%f9+ zvieDC^Q6+b3>HGSTn9`=h}o6A8faQk^I9q4KnDQ218J4hr0@j)0Rdf zxi4aapI(SpwU2($Q^RkgUs&1R6tr_qDbpY;_o;f}xyw#hCTfUt7S74?hw~QOW*Lh% z6i$jQ()F^dC^)5RiudEOh3K#5e6uLu-Y>%Pe;z#_b7>nV-v`Zv@0a`3fPc3(J#7GC z^l9P}CWg`m{QTn&(r+}}1w{5y9Bnq+G`W)|w_#&6nhjc4Ipp|dUTSBHIc2(ZwP zoK>wryv|4*kUnr)Js@Jrh>3ij*i%B)ci!U|4}E$@%^waI0}}xjumAf|ZGSz*zuy1l z;5K!oe;WAbX;FVQJbkYLQ{|7K^(#=FZFu$so!?Do!0PNj6~r+&yzrYH-#V_ zu&(rfp9^x<&e`)Iep`Bj|DTKauhSvUS~upCx2UM zy!5YDer-Q_*2>vkzoH@bV2dy>%SKv|MCB){~qxDvT}Aw^4ZHci$Z@J z5ItRh{Kr{Oe-4X(#iVBqo&|Ql4GNq8^S=HE%sXrFpHS(yIS3N6fS~^ZPG_6{Go1as fd5`7an*SNx)RiuPDR~0kc`sqcq< literal 0 HcmV?d00001 diff --git a/automation/test_2-3.xlsx b/automation/test_2-3.xlsx new file mode 100644 index 0000000000000000000000000000000000000000..5c523158a258bd2537760501fa7af709e86b856b GIT binary patch literal 11493 zcma)i1yEeewl?nW8eD_B1lPeKxD#}6cL*Nb-DQB_5+u00LvVKw!5w~bZoPZn$-B4e zpQ+tjYOk+$uU@^R`%{vIgu(&?1A_z0ih9~5bW+Quh zCU+Za`3ZT%ZWbh%jSdyp#lyyzsmouS(Wc|Hv8wR1nEK$ew(gdB0#*B%aZ&#_Gc#Op@j< z6Um}(wS3CdJzJU_d^I#AWh+DoX#1X2f)SXqyeaRYUn4$_V1LZs8@78gf$o59##Q=9 z7gi0(49LO3!0;fzz|jA97mV#3O@H?xI9^_%hXqZt3d1yqXIv3j!GS1T{xwLP5{-W( ztpVNP)1oABUf18N6T{yV)`?<;LtY2`6EC}6w$O+|8fkf)Jq01SN=j}fc9o?>YHG7= z1+<8C4V8VVx9ksB9y`k7rDR8cDAO2ca9X4Q^sQW=2&aTj9t}*v@_R%s+P;KxK9Mdo z)y}**1S66H$TAVf>tj)F{J|u8*isvvjwrry>h1$ySD)qJ+hJ{>HoN_|I>R79ZgX6k z2dkZ#@!D9ivHsY=ypx8tigPc>Cs7X)Vc?zgm3HTkRmGqA5hG8-W8Gjh`Yaa#lmo^A zG?d{a4V4Mcfw9~Yyv(nxA?j{>!3jhIl+ge-LAIaJT9yVi`7#p^{r3-NWzXU*Ylk$0 z?co1ZsJxIL!!k4&m>&Tc80MQo-L09OElh1p|JAboR_UphY|JtjT08E+XHsXktK@Qt zR)5B2K*lQNpsmV|^hjMF0~G;zTZ<%G?z}z%mUM(Z!quFZGO4iFQQ<4KNXAR3N+L<3 z{O**yKUNg-!p^UZ%>jHzX_AgOQ?NuD=g3RofV(}Pbv<$?&*(tx zB#}!b^r!x)9z~%h6jb+cHmD%qaTLP=Y2F;-RBG8Eyjm;g5XUL5JPDYluQ(r_bUP7^ zxG9Q^wfxgWG6_k)q_KFpv30>i6c+-v?M=OfdlkpE=%l3`;s@WUA%_v?Ebfx%RHtHX z5XDE6J>btod~_Z{7AD=!&okD%Fi!n4KUR;iiQF8%rsSLKDI0vAMsXc}Xi;(C(T?jp zf0H%*!eonv5+G9DKm*PK=#@StE?%(D2 z$LBkYr|aXGs%)RK0e0-yij~tj{GtPdJeJ#MuBD8r9L;6^P4PhPy=rt|j{GMy2)nHV_I11;^jLQMeN*W;R zz9wXAmKo;;YavJq@zmZn#iyhvZU3XsexGjN>X%=-^KPx!8(rSi)ckX4ksnnHJYqsE zdgzAHVND4I#H0&u;I`8ZVjNVIBx#5~bmzj>%uyA)_g>31+EZ`UPNHMwRo?I2ksT=K zv#(3-yMQ!tVh`lVRh+ivdG=Xm*h27?k(W^*Mo%~oQb?DCpUiyY30{;N!QU?le~!!wqeJKt7_O(Z@Ci#{7(WWMfQ3JLPd@6s6CV&{1lj$A1_B;oJwNR*GQt_WXvBI|~7?mu+PL6{R8lPd(}r;Y^) zsPD;37kLaw-%U@wQhyso=zokY#Fpby+n!*Nf+pp`bkakH9O7QFrl}Lub&R{-^cY`3 zVM~`&>L#SjD77eyw9r|{)Kx#wjTHn8;2MhW_4&{e?S64R>|{0bJ{@CaN*roC-%@YZ zX6joqt{uY&Hc9T@jn1dOL|_`R;v43noHhU>gwo_k{Nk=A>UP$e$v`x^^ zZ1PlZ=bD$WIlgY`eYAr^sBg$lFDss_b2~W~&UMD+xEljT?s@%$S^hSsI-XS9a48rN z{VpPH9d}@sceA|t-XNS`wAC|S*A#+I&oo6AWe@r%o+3lXabGk^V|jy+g-4}%{gUsz zjf>BEJ#4$pwb%H^O{{FQ27_w>tXuqA&34Iz$oKo~cWJKB~=d(iYm4sIj$^ z{;;t?{eV|t95o*Wym>sFEZv(*V@L1~^kb@X(Z* zB+L(yYnixQAPCwe!cZ*|Rez2n+m530v37>Mo3gMMZhvY1{<_^$eDCdXwZELv@?~aQ zab$P@X=i71wfO#YR?Ozy!&hpjXY1w0640^s`Gd!uw@`;?2U~L+Z=9ByqHR^>S@e3V z{)!R&$i?1+tzff|=bfXMm&@zO{gc`G^_3=((5sQ-^ZAV9^_K+hDj@@(Ox(-e z6L$Q`Dw_3WkIz2*9bVt{SBO_9gfiddgtaExn$~&(JOo}Js&6i*3~(Zrw^nDzo~{-$ zwn;irKHYK0e2x_GZP9#UC2(HLd1uc0>wfHMmF=M^|J65pexLj5h~4wLC+D3&#*^IO zHp!I4@pVp4k3}U+_`~_lk&(W^%G1w>=L<|;K|xQUSNrQ-GhQukn~5AgJ74GBElZE< zz3b<#+4yMRB&cuo`OJ=3 zYAA9W?4E?2Mbt2|6UraLpALc@O2+KFf^^7wJ+0exzPGi6zsS=~jNR+QY1O*#E|eCl z9_~&uSIfHZ^Qm3O^D}6K!;>t|j7mw$sjTt!=|*Et1M%LH!XT@n{pJ32ef_1+^O)RD zVCU5Fwdt^+37?3CTkJ<5`caqrSyLLR0rUl@fT69~pw5tc83Wt(_d#oQCuRmVXtQl1 z|7K6tdOdFsFE^Jfpzrl1^9q6I;+^eF607CO);YCnB&+Q^3|p%l`{ge|%e<5;KLs~$ zP~dMdNp;#t(Cl+e6N_1CQ~36 z+zAbV43!R7hh{-BDUur@jOs57^#F&2hWCeBU{tY8T~!i2tf9j+UO@WK`kC6#N4FQM zrd4Y>!y0ydz_DNryIr6>VdWJE^V#)wW2Ex)5bXz-{juYm^@DPpfVzIG3Q)q)_0YsI zA)PUqiF}$Ie^p{qKY|7)(4M-8TAW42yzBj@_}6p}UQB}oa+5B2LJ-2Zs=Rh&Sjp4~ zTMnI(_b;taQ)Ud_@=)?ssB`AybjM}X#7s=eAJ;5*Gj9}31X&Lq#dK%7wa8q4sqmRv z&w>V0HR+3>u6q}9*=T$|IW|csgNh2yUZquqd_6jDoStr7pOZjbmGNuj^*%fNell0| zmtEgCg1_E)z!h4U{JL@!(Jo1ktj5Z^eVpbH!w4|0)5ntz+ka8Ioa$!_kAI^fU!Nzx+}G1iPlF zy4yB_7;Vq0gb0SLef$6n_>AbL8Y3Dsh&$c+Vs#QPJnvpiDua|L-3Gogp=xxh@tDn2@_q{)7qqWXB z#acpD(pb|~OpUjjOKQrD zPZ6xj^@h;c=nBdj*2z@VHgn=0OC&)KA=Jt=E>d5jMs&0_y9td-eo8k^F&XDuaXAHW zS<3RJ*80SM^s?5C4lTtSD-|1BD9cdGQftme7 zN#tnIyyS@Z6IHhF5^Yc(h9a!*=PUj~gboRYla~W-_Uy_qO&nS=wNhMFb*hr?g6FA% z=QsyZH3dnP(QL+$CuZeL3Oa|QDpXYDLN+Y?%8*|GmX%GXb-A>x;)yhWCjY--O2 z`a-)i45Uyk7pdS-ZKvENtIof~+%?foaSnB*rv!Hu_M1*0eZPO0O2b`x#N@bpK*WfJ zZBlaum={IWyuYgi%PIg8D+gz_qtC5N;X+~=!Udq5M0244OYRhL-d7JF^qONaM&G^j z=b$c0lN@B29K<&j-5dM>Is--dYq7*PjB7$5Fn+6BN+&&!hZU*k!nZh`hLiy>cQ&g( zPiz?kQqO#{5AS_{kSpOCezu}a7QX|(6F#jz8mlT}$>&C?PF3wFLr?WpJEFc=S0`Z> z>Dvr)hST}QZ0vChm0MrYi?uo+xwNRnor|(Sm?mIj8mnhp}HkrRLQg}-m6Uk2O zky{>3jsILcu3dI?DKtHwaVT!7#L`Vm`WvFTnAi7fws!vg;9K>grr<{SfSbZdOCLV} zqN77FLW)mhpX9F+v)fuasS8vU=z=Bv9fM?N5bVU@r^WN8)EmwP<36;^in>h;r_hB~y|tS{gNBYv0VK#v~TQ1(Pvg-WlNnG!fMubQVo>|4}pf=J~pj zC7W$fUj`41O0$$%R8mLqlon{jy(1+Ofo1{a?M=Bi^VD_RsYPJMmp!8t#Gw}xhawuf zNJ={mY_?MD>{K?XWAr4+AuBq2#ukQ6eo!dnp49-^CQzg0LN3)X$XDdAQp)qOlLp;2 zn6Fe@V;xCici++|b;)0UiQ;d(A@%>dYI|R4u%y``<1b9?j|fEo$ANA^HYu4KD2(g> z4k88a3LTG>Mcgo`6VD$W0vh5Ylo?zi(pO8%#ulvZR?X4QvTc~mgX36T;b}h*JODAC zi;`HnIrb_W-YIN_^wfstDZUt+KgiDnVF)Qcp0KG@+|9G!hq~c|pU=15)knEK+C9kCk46o5uhr=76G2yeyK2zr-EBwL zU|&$+1{?3)7E`14_ekwTYw`nu12E%pC~c(qVx7qjMI7M)B=O*sV$zbakz{GYD#C2R zCNO}ZxY9{i&l6wj>}*qVwd0)82l>s{11@yAuKFmHE;!1BENFhtslm^M3tiJnTTM9Lyz z7$Q96SK93QxKr-!Eqc+h)*pWWn1!Z9mQIhYBL#|0`-2bxsPQkpkQ{!2ps(sod!Q?=1C$<&nuLA*tQ|Es2JK(7pYY?fGuBKJesx zDTky3?i-VJd$Wsutv_Fo=LgGS27@-!`Y;$a5&()4dPY^LN`FG){Sl}!tcWZo=VB4c zynCmu_^eItQGAT^ZtsZ9u6m5q=baGj(6!Vqh2Tli=yG|A|Adsau{n9nI{gq*^cbQm z=(y(nN#|gz2{=AM=selA4r zF1Mrx{YY{2qqURO`ea6Q%mku(sE>>!m5ij;+Qy@&vL zO~_wktW%SS<-=Ew!@K`T%Q( zw^vJQQ)lO}an!sm^pO{2BU@V|=(6`))na@Z!5Joen4VoHw|nP_$f@76Wc@SK)iNF8 zYg*;pZLzE!7s3WboE5w)rbhL;adyWS(9Z2URk$#$%L8A#Jh<@s=vq`^rFYX!U65Q3 z$o6v*cjN++ms*lbr1~!ADfrDwdKJTZN7k=ruD>s3PydYOUgnuq7z#w%jwimn62y;K zG@?1cGv*2-QE}+Oty*}vszl-00+t9x^&wD;%;!~-pwatJiP5?ebOdT(GPWQ8#zOU!=7dgAPyWG$BZWCB+?E#}xd~;LTniDGL zTThFst-^H!idJeiM2VN~loRh0I!yW~j<2F9aVL21p~Kv2&6!(?(q>E|X$^iV>!aFS zdP<|em5e3B=QVcMqXWb{+)!jLJJn7cBc8(P3JUW01^qZfOMS?Js(u`8sa1BzUgLaj&$b#sgC|99l z`Os}SyT)fboUO-ctIcWKjM0Q_6aHdp%;*_2eA?U~_T%`aN$f1{L2qk`tjqKKUExWe zCdpcXOJk)rHvivz7_Xvb~NaEuWL z0kkW5$ioou!IcP@cqM6lF6+b~Cg&r@=!ZO9z6;bJ*QjWEo8%J-X;28a&71N{IWIpp z9DXSOgqVThk?HY+Aw6n=NgON(f8NHC3fq3D7FpT+IttAV#k}1Pel5MxJ@?q|Uk`c2 z-?@m2%upzD5P0fqZ5Sq>Mcgn~b0R;$SD!;amfl~&pI|bSad!vwc(4sxfgDL7g;igS}cMB=3ts+V1azp zV{No!aXgHE>JI%_eI#cp0_YRaWk^TOCXt2DBCEwf=N!i&@$QJ~LvVk?j~FOdVh8R8 zIVsEkIIVh^7kw4_r^^sZXjzkb+nn*n|F15C{kO}A(mHj_mqGKv9)X1$B{k5ooDG7y zBrX7q8ej}qRD|P7uT<#VuG$5{Pmb|WssTEk_UtV@Jw2;CViML5Rffwi&A+V`1^#3k zaqU2&@X;BTPt5M+Z-O>Kr^%oVoY`5Gb_&qQm+9*22%dn_FMS1Kq-!@r@5vskm zd_Mr7d0w#2-#IJM9e5N;ap@3BEniE~I`?NiIm>tBO)e4NKd_Hbxk~l=(Tchl*- z-_>e8xc0u|y1V5?lEG1d8oilMM86tiI3l(fJ(*!3gpAO>SK2rit7JsP1M;aN zV(`oW{n*>!T-EED%Jl<)ig?u|41pVR#o*&tukJe$M;xR1`OG0KIa&)HYL-CiD3YBSCG^4`dRjv=; z!2J7hGPpYPtTQGCOH62KI(>B!Cb$(N{en(Cd9~+Mkyox?TzuupZfAx9RBQd$4Px(l zwqKr2MLN}f37;yh$&8qbF#T6GBM@%XE1+8Siw;p(Hb9{yhr0FT8x<1JUhn529LDeC zG-zId`dOO0su<=t>9D=?yrMu>6!az9P`E;gLx?<%F(yX6K-XX;KA}o<8IoRPQDF4S zmc`_N^A{t63NNG?`zThq?Q1_Hf@=5>U~f@!L$<)D)czCr9uA8Mydvd{O$OFkEh~?D z5CxUobv#6TOtoqi9VtA#Y?C~padJsyu7u#6aM%(U zX-8+Un6btgP8gBn2qczO=Qq!eU*{Fz|?s({BJDFHE zSuXN1*|Fe8@WZR*7MIML#&X@aWJEmc?9NCT6z21YZH6^$smY&fY`D4)hTfRp64h#(WU%Mer&K}mLPQN|ws+O$nG7DN; zcrK)Phj=W)val7Yuzv$wEJJf4<1n>w7`;TXEAynp*(AU7qQqJ3%2y)gWbAz$9q*#w4+-_EIisPPg2Vv!ShMh^?wI%oa(}X5?!|cu=&>ZLf>ovLiJ` zalfKu$)KC%xb;kKQe33=d{E3O-KI6Q7PKs&|E|C8QEf!mo{X_jAh#1DeVDl@P(!1u zOmWU|QZ(%-lyh12rgMtUrP`g4tZe*FB}@WYqX+C=KHa+znj6 zPe&tP{uiHeeU`b%OS5vwWezz>Xyx$XCtZ!VO23V{Y(yhNRLYZVsQ+@}L`?CYUgDxurhH8-gk}{hFuLR#(hUhDlFoK;gB_f$xw` z-znRmsSZsQJ{+wiW1=L3rxlu+YG`fbwlS;wZrM_6tnc2)chYG>jydz^LiHgui_hb) zHMd8LyQ^s(7Xg&57zMvP-n)Uciw~Cvi#-bwHzS3NlEq91%&VD>zVMbpMPvKp^TYE% zE1HdNK~lT$2SP2}sPyKojjy?wyLA9O85^#(nFFj7?XTSLiNCa#e%6MUV5XE`Y%Z;u z`Qq^y>Pc*=g5`ag{!JoV`CIUjjRPCGPG&t;ywB8};bzt`OsU426+L!FqmH1gitbeX z(oc#^7tbdU>P3+JIBDn&oCQxW!>m!_~HZMr`l#QN*}DU zWne4C(P`+zD_e66*@GPL7nBMy|6~f)tg*()YnC2sk>DNV^|k4?gM8MP{YT~LH8z){ z1l8k2xBbZZI&FI(PlH|i`qTGk*T?I<`P0UXoQkgW3Oo&lb>vmS3&<6WOUCYH{#hVI z_$W`?h_IE6g^aqc9%pw=+xw1UcpX#UnPZ48wcDkn^{&J3?YtEzy-S)tl-YA?O{r<` zh4m)Qj*CT4BF4*L(er32#KlR)ZSpvj61(ymUZgt6SC}cp@g=`Vpht(>Cw38I$(NB> zB8qg`aBevg!HVGJZ)Pc=&ZOqEB8lCJVdW!%2QEQa#YA~aK{$iPAe;Q79nF_=ncP6M zM~+fEB0;@qEDn*BV3vq12f4ZU(3EI8v6gW3aE6)6AqO01Xnm~o0hAK8+(YA*GLS3jg{O<=kx@)LWnzVcB(UVL%_NQzpLy?r;riTUUcwdmwg>unLzlFo>f(T@>Ivto}+b<7IzyszRzTJWv52Y4a_c^R~#ygt6+a zxU)G59?%zOimC&x?9ro@ZG*PI7KVP&Tx9Qf9vihowKT?MH^!OL2An={8B;0G#u%rh zc9mLFozh7jOn@!uKd9MFu95yQt?A8{{+(!l zPCBhd;k{fZ#@_n$c2ORzpcC1*?0lS}@dXi@>&}5HBjS8I1bX)5Y-*{N6{?L^$`~F& zAPPp#DmS%hdCFb2@G&hGg3U#yJ#@Pn?NExzxH859I?eZLGp)RA*r68mvqkjQ<;u7{ z1hxi`)z&tlj*cLp_k&DbLY(>Oy~*PNv=^23kz$Z@Ozew@^k*vPTewvrxK-EMQyvI} zAEdS)MmPgL7p!~^HiMtJnx2X7P+=(iaM`5eWAlCC{@XJ}&mYkU5l#=L^=)WK-XhW) zRqOW<{mUHx_dxw+nqvvPD1j_!5>=n>!H{I*$pch@78Fc|UDcs|$>#Z;r-8X(vUJnA zpxT$WdKP>8&Od8Q5>=Huq<6s$lB(8>O9O1!>IB{)5bh&&u^dQR?RM38(Ras#45Nc{~D&=XLW2=AUM{{5T#% z`DT`fQ2*kl>4@3cI-A-$8>o8Nn>y+JHq9~Bk>95Ilr%U`??8tE`{N2iHxJgglQN?} z+~C4i_TknVg8*JtyOeZFw%py^yq~`|rRotZwQi1QR6-u>XJKzXOc~21IFSZDNd@^! z6d}Iq)K}!eK5t(d#4|Xe!XFNyvlr;}^_+RY3hT6D!(Xyd!amf}3K^P{2DO2YDmW229G1!8 zDm{F%YNF~v6G_s9jOAPu=HsW3|6qdG&YggK#X*CO-yAJST8y*l*e1rH=SGkUM}Elu zg@`K6>jFMcwl(OYaqGjT8%c&BX5urO&!~aZyL)EN+V40NjjzC+vB$kCJN-s8bs#rE z>@#BH1DKL5I0P2tf2V=IS<_!Xzc*F?UsC9w(tk2A|0VlIAO!FE-_rlX$NW?LPrl*b z;#hCa=RdFy{{;Axr1Eb7e^R)Ad#?XOS@{#?&&9aEQG9X#Bg$V(bAO`zS)c!nQbYJ3 zQU0pd|3vvS(fl_GI1|}lD1WD&e~SJYq5c+Sq54O>`cv>vkN>wIKJ~x9{D1uapTd9o vqQ8Y(Y5o%aFP`a7oImIH-#FE@U||1Ywkyd(!~A{;@$EnSW-ie5zwiDZ@qhIh literal 0 HcmV?d00001 diff --git a/automation/wolfram-table_to_exel.py b/automation/wolfram-table_to_exel.py new file mode 100755 index 0000000..84bc4ca --- /dev/null +++ b/automation/wolfram-table_to_exel.py @@ -0,0 +1,117 @@ +#!/usr/bin/env python + +import re +import subprocess +import sys + + +def get_clipboard_text() -> str: + """Читает грязный текст напрямую из буфера обмена ОС через xclip.""" + try: + process = subprocess.Popen( + ["xclip", "-selection", "clipboard", "-o"], + stdout=subprocess.PIPE, + stderr=subprocess.PIPE, + ) + stdout, _ = process.communicate() + return stdout.decode("utf-8", errors="ignore") + except FileNotFoundError: + print( + "\n[КРИТИЧЕСКАЯ ОШИБКА] Утилита 'xclip' не найдена в системе!" + ) + sys.exit(1) + + +def clean_wolfram_text_to_row(wolfram_text: str) -> str: + """Находит все строки таблицы без привязки к переносам строк и собирает значения Y.""" + y_values = [] + + # Регулярное выражение находит структуры вида {"X", Y_блок} сквозь любые переносы строк (\n) + # Оно сопоставляет начало строки таблицы `{"X"` и забирает весь блок до закрывающей скобки перед запятой или концом списка + pattern = r'\{"(\d+)"\s*,\s*(.*?)\}(?:,|\s*\n*\s*\})' + matches = re.findall(pattern, wolfram_text, re.DOTALL) + + for x_val, y_block in matches: + # Вытаскиваем все элементы в кавычках внутри блока Y (это решает проблему RowBox) + quoted_elements = re.findall(r'"([^"]+)"', y_block) + + if quoted_elements: + # Склеиваем все части (например, ['-', '2.7105...']) + y_val = "".join(quoted_elements) + else: + # Если кавычек внутри блока нет (чистое число без RowBox и маркеров точности) + y_val = y_block.strip() + + # Очищаем маркеры Wolfram + y_val = y_val.replace("`", "") + y_val = y_val.replace("*^-", "e-").replace("*^", "e") + + # Проверяем на экстремально маленькие числа (машинный ноль) + try: + num_check = float(y_val) + if abs(num_check) < 1e-10: + y_val = "0" + except ValueError: + pass + + y_values.append(y_val) + + # Объединяем через табуляцию для вставки одной строкой в Google Sheets + return "\t".join(y_values) + + +def copy_to_clipboard(text: str): + """Помещает очищенный текст обратно в буфер обмена через xclip.""" + process = subprocess.Popen( + ["xclip", "-selection", "clipboard"], + stdin=subprocess.PIPE, + close_fds=True, + ) + process.communicate(input=text.encode("utf-8")) + + +def main(): + print("=" * 60) + print(" ИСПРАВЛЕННЫЙ СКРИПТ (ПАРСИНГ ПЕРЕНОСОВ СТРОК И ROWBOX)") + print("=" * 60) + print("Инструкция:") + print("1. Выделите таблицу в Wolfram Mathematica и нажмите Ctrl+C.") + print("2. Переключитесь сюда и просто нажмите ENTER.") + print("3. Скрипт сам заберет данные, очистит их и обновит буфер.") + print("4. Откройте Google Sheets и нажмите Ctrl+V.\n") + print("Для выхода из скрипта нажмите Ctrl+C.\n") + + while True: + try: + input("Нажмите [ENTER] для обработки буфера обмена...") + + raw_input = get_clipboard_text() + + if not raw_input.strip(): + print("[ОШИБКА] Буфер обмена пуст!\n") + continue + + cleaned_result = clean_wolfram_text_to_row(raw_input) + + if cleaned_result: + copy_to_clipboard(cleaned_result) + print( + "[УСПЕХ] Буфер обмена обновлен! Все элементы на месте." + ) + print("Превью строки для Google Sheets (первые 4 элемента):") + # Показываем первые 4 элемента для наглядности зануления + preview_parts = cleaned_result.split("\t")[:4] + print(" | ".join(preview_parts) + " ...\n") + else: + print( + "[ОШИБКА] В буфере обмена нет таблицы Wolfram. Попробуйте скопировать заново.\n" + ) + + except KeyboardInterrupt: + print("\n\nСкрипт успешно остановлен. До свидания!") + sys.exit(0) + + +if __name__ == "__main__": + main() +